!*** F77.CTL - RSTS/E Build Procedure For F77 *** ! Copyright (C) 1981 By Digital Equipment Corporation Maynard, Mass. $PROMPT LB: $PROMPT PATCH $PROMPT Put the F77 OTS in SYSLIB.OLB or F4POTS.OLB,SYSLIB,8256,,OTSNAM 2 SYSLIB=SYSLIB F4POTS=F4POTS $PROMPT ONLY CREATE A NEW .OLB IF IT'S F4POTS,~OTSNAM:,-8128,,CREOTS 2 SYSLIB= F4POTS=/CR:150. $PROMPT IS IT SYSLIB,~OTSNAM:,-8128,,OLDOTS 2 SYSLIB= F4POTS=$PRO !COMMENT $PROMPT IS IT F4POTS,~OTSNAM:,-8128,,NEWOTS 2 SYSLIB=$PRO !COMMENT F4POTS= $PROMPT Have F77 use FCS or RMS by default,FCS,8256,,FCSRMS 2 FCS=FCS RMS=RMS $PROMPT LIBRARY NAME IF WE ARE USING RMS,~FCSRMS:,-8128,,USERMS 2 FCS=$PRO !COMMENT RMS= $PROMPT Use the LONG or SHORT error text module by default,LONG,8256,,LERR 2 LONG= SHORT=$PROMPT !COMMENT $PROMPT AND IF WE ARE USING THE LONG ERR TXT,~LERR: ,-8128,,SERR 2 =$PROMPT !COMMENT ~LERR: = $ALLOW FATAL ERRORS ! ! Make sure the RT11 and RSX run-time systems have been added ! (Informational messages will appear if already present) RUN ~RUNLIB:UTILTY ADD RT11 ADD RSX EXIT $ALLOW WARNING ERRORS ! ! Copy required F77 components and optional OTS modules ! onto the system ! ! The F77 Compiler may be customized by editing F77RST.CMD. ! F77RST.CMD is copied from the distribution medium with the /PROTECT ! switch so that it will not wipe out an edited version of the ! file if it exists in the current account. ! The patching procedure will allow you to pause to edit ! F77RST.CMD (or copy it to this account from a different account). ! You will be prompted when you may edit or move the file. ! RUN ~RUNLIB:PIP.SAV ~LIBDEV:[1,2]*<40>=~INPUT:F77COM.MSG/RW:NO SY:[1,2]*<40>/PR:NO=~LIBDEV:[1,2]F77COM.MSG *=~INPDEV:[11,36]F77.OLB,~INPDEV:[11,36]F77RST.ODL/RW:NO *=~INPDEV:[11,36]F77RST.CMD/RW:NO/PR:NOWARN ~SYSTEM:*=~INPDEV:[11,37]F4POTS.OBJ,~INPDEV:[11,37]SHORT.OBJ/RW:NO ~SYSTEM:*=~INPDEV:[11,37]~FCSRMS:11M.OBJ/RW:NO *=~INPDEV:[11,40]F77TST.FTN/RW:NO LB:*.*=~INPDEV:[11,40]*.OBJ/RW:NO/HALT LB:*.*=~INPDEV:[11,40]*.ODL/RW:NO/HALT ^Z ! ! Customize the F77 compiler (if necessary) ! If you wish to change the compiler defaults edit the ! file "F77RST.CMD" as described in the PDP-11 FORTRAN-77 ! Installation Guide. Otherwise type a carriage return. ! Exiting from an editor or typing a carriage return will cause this ! procedure to continue. ! $WAIT $DETACH ! ! Build the F77 OTS ! ! Note: (When installing into SYSLIB.OLB) ! If F77 had been previously installed in SYSLIB.OLB then approximately ! 175 messages of the following form will appear. ! MODULE "$xxxxx" REPLACED ! Where xxxxx represents the various modules replaced in the ! library. These messages should be disregarded. ! ! ! ! $ALLOW FATAL ERRORS $DISABLE LOG ~OLDOTS:RUN ~RUNLIB:LBR.TSK ~OLDOTS:LB:~OTSNAM:.OLB/DE:$ERTXT ~OLDOTS:LB:~OTSNAM:.OLB/DE:$DLR ~OLDOTS:LB:~OTSNAM:.OLB/DE:$FDR ~OLDOTS:LB:~OTSNAM:.OLB/DE:$IKF ~OLDOTS:LB:~OTSNAM:.OLB/DE:$IKU ~OLDOTS:LB:~OTSNAM:.OLB/DE:$RSF ~OLDOTS:LB:~OTSNAM:.OLB/DE:$RSU ~OLDOTS:LB:~OTSNAM:.OLB/DE:$UNLOC ~OLDOTS:LB:~OTSNAM:.OLB/DE:$DLS ~OLDOTS:LB:~OTSNAM:.OLB/DE:$ORGIX ~OLDOTS:LB:~OTSNAM:.OLB/DE:$ORGRL ~OLDOTS:LB:~OTSNAM:.OLB/DE:$ORGSQ ~OLDOTS:LB:~OTSNAM:.OLB/DE:$FCSRM ~OLDOTS:LB:~OTSNAM:.OLB/DE:$OTV ~OLDOTS:^Z $ENABLE LOG $ALLOW WARNING ERRORS RUN ~RUNLIB:LBR.TSK ~OLDOTS:LB:~OTSNAM:.OLB/CO:200.:2048.:512.=LB:~OTSNAM:.OLB ~LERR:LB:~OTSNAM:.OLB~CREOTS:=~SYSTEM:SHORT.OBJ/RP ~LERR:LB:~OTSNAM:.OLB/DG:$ERTXT ~LERR:LB:~OTSNAM:.OLB=~SYSTEM:~FCSRMS:11M.OBJ/RP ~SERR:LB:~OTSNAM:.OLB~CREOTS:=~SYSTEM:~FCSRMS:11M.OBJ/RP ~SERR:LB:~OTSNAM:.OLB/DG:$ERTXT ~SERR:LB:~OTSNAM:.OLB=~SYSTEM:SHORT.OBJ/RP LB:~OTSNAM:.OLB=~SYSTEM:F4POTS.OBJ/RP ^Z ~NEWOTS:RUN ~RUNLIB:PIP.SAV ~NEWOTS:LB:~OTSNAM:.OLB<40>/RE ~NEWOTS:^Z ! ! Patch Procedure for F77 OTS ! $DOPAT @~PATLOC:F4POTS.V40 ! No Patches found for F77 OTS or patching not selected $BREAK $ALLOW WARNING ERRORS ! ! Patch Procedure for F77 Compiler ! $DOPAT @~PATLOC:F77CMP.V40 ! No Patches found for F77 Compiler or patching not selected $BREAK $ALLOW WARNING ERRORS ! ! Build the F77 Compiler ! RUN ~RUNLIB:TKB.TSK _@F77RST.CMD RUN ~RUNLIB:PIP.SAV ~SYSTEM:F77.TMP<104>=F77.TSK ~SYSTEM:F77.TSK,SY:F77.TSK/DE:NO ~SYSTEM:F77.TSK=~SYSTEM:F77.TMP/RE F77.OLB,F77RST.ODL/DE:NO ~SYSTEM:SHORT.OBJ,~SYSTEM:F4POTS.OBJ/DE:NO ~SYSTEM:~FCSRMS:11M.OBJ/DE:NO ^Z ! $ALLOW FATAL ERRORS ! ! Add the following CCL Commands to the system start-up file. ! RUN $UTILTY CCL F77= CCL F77-=~SYSTEM:F77.TSK EXIT $ALLOW WARNING ERRORS ! ! Test the F77 installation with the test program ! ! Note: the following output is expected, including error messages ! ! ! ! RUN ~SYSTEM:F77.TSK ! F77>F77TST=F77TST ! F77 -- ERROR 28-E Overflow while converting constant or constant expression ! [I = 71347] in module F77TST at line 6 ! F77 -- 1 Error F77TST.FTN;0 ! ! F77>^Z ! %Task exit status: ERROR ! ! RUN ~RUNLIB:TKB.TSK ~NEWOTS:! TKB>F77TST=F77TST,LB:F4POTS/LB,LB:SYSLIB/LB ~OLDOTS:! TKB>F77TST=F77TST,LB:SYSLIB/LB ~USERMS:! TKB>LB:RMSLIB/LB ! TKB>// ! ! RUN F77TST.TSK ! F77TST -- ERROR 73 ~LERR:! FLOATING ZERO DIVIDE ! at PC = ?????? ! in "F77TST" at or after 6 ! ! FORTRAN-77 INSTALLATION SUCCESSFUL! ! F77TST -- STOP RUN ~SYSTEM:F77.TSK F77TST=F77TST ^Z RUN ~RUNLIB:TKB.TSK ~NEWOTS:F77TST=F77TST,LB:F4POTS/LB,LB:SYSLIB/LB ~OLDOTS:F77TST=F77TST,LB:SYSLIB/LB ~USERMS:LB:RMSLIB/LB // RUN F77TST.TSK RUN ~RUNLIB:PIP.SAV F77TST.FTN,F77TST.OBJ,F77TST.TSK/DE:NO ^Z ! ! If you wish to further customize the OTS you may do so now. The procedures ! are outlined in the PDP-11 FORTRAN-77 Installation Guide. ! ! F77 Installation is complete. ! $ALLOW FATAL ERRORS