Created
December 28, 2020 14:51
-
-
Save decuser/fdf54b646ff58ce95528db867e4b5488 to your computer and use it in GitHub Desktop.
Revisions
-
decuser created this gist
Dec 28, 2020 .There are no files selected for viewing
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode charactersOriginal file line number Diff line number Diff line change @@ -0,0 +1,116 @@ 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 .