rt-11-f77.txt

att rq1 f77v5b.dsk
.IND du1:INSTAL.COM
;
; FORTRAN-77/RT-11 Installation procedure for RX50 diskette distribution
; Version 5.0
;
; This procedure will build the working FORTRAN-77 on SY:
;
* Enter the name of the device holding the distribution files [ddn:] [S]: du1:
;
.ASSIGN du1: INP
.ASSIGN SY: OUP
;
; The RX50 distribution is supplied with a complete FORTRAN-77 system
; on each diskette;  disk 1 contains the SJ/FB version of the compiler
; while disk 2 holds the XM version.  If the disk that is now loaded
; does not hold the compiler that you want, replace it now with the
; other diskette.
;
* Is the correct diskette mounted and ready to go? [Y/N D:N]: Y
;
; Do you want your default system library SYSLIB.OBJ to include
;
;   1) only the RT-11 distributed SYSLIB.OBJ (unchanged)
;   2) SYSLIB plus FORTRAN-IV (FORLIB) (unchanged SYSLIB+FORLIB)
;   3) SYSLIB plus FORTRAN-77 (F77OTS) (new combined SYSLIB+F77OTS)
;
* Enter option number:  [O]: 3
;
; The original SYSLIB will now be renamed to SYSLIB.DIS (distributed)
; in order that this process can be repeated if necessary.  Then, a
; new copy of SYSLIB will be made, and the updates performed.
;
.RENAME OUP:SYSLIB.OBJ OUP:SYSLIB.DIS
.PROTECT OUP:SYSLIB.DIS
;
.$@OUP:F77LIB.TMP

.R LIBR
*OUP:SYSLIB.OBJ[-1]=OUP:SYSLIB.DIS,INP:SYSUPD/U/G
Global? $OVRH
Global?
*OUP:SYSLIB.OBJ[-1]=INP:F77OTS.OBJ,OUP:SYSLIB.OBJ/G
Global? $OVRH
Global?
*^C
.DELETE/NOQUERY OUP:F77LIB.TMP
;
; Copying the F77 compiler and message file to the system disk...
;
.COPY INP:(F77*.SAV,F77COM.MSG) OUP:
 Files copied:
INP:F77.SAV    to OUP:F77.SAV
INP:F77XM.SAV  to OUP:F77XM.SAV
INP:F77COM.MSG to OUP:F77COM.MSG
;
; There are several optional object modules supplied in the distribution.
; They are explained in detail in the FORTRAN-77/RT-11 Installation Guide.
;
* Do you want to copy any of the optional modules to SY:? [Y/N D:N]: Y
;
* Do you want to copy F77MAP.OBJ? [Y/N D:N]: Y
.COPY INP:F77MAP.OBJ OUP:
 Files copied:
INP:F77MAP.OBJ to OUP:F77MAP.OBJ
;
* Do you want to copy F77CVF.OBJ? [Y/N D:N]: Y
.COPY INP:F77CVF.OBJ OUP:
 Files copied:
INP:F77CVF.OBJ to OUP:F77CVF.OBJ
;
* Do you want to copy F77EIS.OBJ? [Y/N D:N]: Y
.COPY INP:F77EIS.OBJ OUP:
 Files copied:
INP:F77EIS.OBJ to OUP:F77EIS.OBJ
;
* Do you want to copy F77NER.OBJ? [Y/N D:N]: Y
.COPY INP:F77NER.OBJ OUP:
 Files copied:
INP:F77NER.OBJ to OUP:F77NER.OBJ
;
* Do you want to copy F77RAN.OBJ? [Y/N D:N]: Y
.COPY INP:F77RAN.OBJ OUP:
 Files copied:
INP:F77RAN.OBJ to OUP:F77RAN.OBJ
;
* Do you want to copy SHORT.OBJ? [Y/N D:N]: Y
.COPY INP:SHORT.OBJ OUP:
 Files copied:
INP:SHORT.OBJ  to OUP:SHORT.OBJ
;
* Do you want to copy F77DWA.MAC? [Y/N D:N]: Y
.COPY INP:F77DWA.MAC OUP:
 Files copied:
INP:F77DWA.MAC to OUP:F77DWA.MAC
;
; This completes the FORTRAN-77/RT-11 installation.
;
@ <EOF>


.f77xm graph.for
F77 -- ERROR  5-E Statement out of order, statement ignored
		  [LOGICAL*1] in module .MAIN. at line 2
F77 -- ERROR 72-E Arguments incompatible with function, assumed user supplied
		  [MAXF=LEN(STAB)] in module .MAIN. at line 7
F77 -- ERROR 56-F Variable name, constant, or expression invalid in this context
		  [    STRING(IY)=] in module .MAIN. at line 15
F77 -- ERROR 54-F Unclosed DO loops or IF block
		  [END] in module .MAIN. at line 18
F77 -- ERROR 50-F Undefined statement label
		  [ 20] in module .MAIN.
F77 -- ERROR  8-E Extra characters following a valid statement
		  [=X*Y*R*EXP(-R))] in module FUN at line 3

.