.ENABLE SUBSTITUTION
.ENABLE GLOBAL
.ASKS F4 WHAT IS THE NAME OF YOUR COMPILER AS INSTALLED (F4P)
.SETS DBG ""
.ASK DB SHOULD COMMAND FILES BE ON LOGICAL DEVICE DK:
.IFT DB .SETS DBG "/DE"
.ASK FSL IS THERE A SUPERVISOR MODE FCSFSL TO LINK TO
.SETS ODLF "OPCCSAV"
.IFT FSL .SETS ODLF "OPCC"
.SETS DSS ""
.ASK XX INCLUDE DISPLAY SORT COMMAND (MAY OVFL ADDRESS SPC)
.IFT XX .SETS DSS "/DE"
.ASK TTP IS TERMINAL A VT52 (IF NO, ASSUME VT100)
.ASK CLEN ERASE GENERATED OBJECTS ON COMPLETION
.ASKS FNM GIVE TASK NAME (NO .TSK) TO GENERATE
.ASK VKP UPDATE VKLUGPRM.FTN
.;COMMAND FILE TO BUILD PORTACALC ON PDP11 (RSX11M+)
.; GLENN EVERHART, 12/21/82
.IFT VKP PIP VKLUGPRM.FTN/NV=SVKLUGPRM.FTN
.IFT VKP .IFT TTP PIP VKLUGPRM.FTN/UP=SVKLUGPR5.FTN
.OPEN PORTACALC.BLD
.DATA 'FNM'/FP/CP,'FNM'/-SP='ODLF'/MP
.SETS NM "AT"
.GOSUB WORK
.SETS NM "BASCNG"
.GOSUB WORK
.SETS NM "BLOCK"
.GOSUB WORK
.SETS NM "CALBIN"
.GOSUB WORK
.SETS NM "CMDMUN"
'F4' CMDMUN=CMDMUN/NOF77/NOTR'DBG'
.;.GOSUB WORK
.SETS NM "TTYINI"
.GOSUB WORK
MAC TTYINI=TTYINI
SRD /OV/DE
.SETS NM "CALC"
.GOSUB WORK
.SETS NM "CALUN"
.GOSUB WORK
.SETS NM "CMND"
.GOSUB WORK
.SETS NM "CONTYP"
.GOSUB WORK
.SETS NM "DECLR"
.GOSUB WORK
.SETS NM "DSPSHT"
.GOSUB WORK
.SETS NM "ERRCX"
.GOSUB WORK
.SETS NM "ERRMSG"
.GOSUB WORK
.SETS NM "FLIP"
.GOSUB WORK
.SETS NM "GETNNB"
.GOSUB WORK
.SETS NM "INPOST"
.GOSUB WORK
.SETS NM "LIST"
.GOSUB WORK
.SETS NM "MOUT"
.GOSUB WORK
.SETS NM "MULADD"
.GOSUB WORK
.SETS NM "MULCON"
.GOSUB WORK
.SETS NM "MULDIV"
.GOSUB WORK
.SETS NM "MULMUL"
.GOSUB WORK
.SETS NM "NEXTEL"
.GOSUB WORK
.SETS NM "POSTVL"
.GOSUB WORK
.SETS NM "RECALC"
.GOSUB WORK
.SETS NM "SLEND"
.GOSUB WORK
.SETS NM "OSPREDSHT"
'F4' OSPREDSHT=OSPREDSHT/NOF77/NOTR'DBG'
.;.GOSUB WORK
LBR OSPREDSHT/CR=OSPREDSHT
.SETS NM "STRCMP"
.GOSUB WORK
.SETS NM "INDEX"
.GOSUB WORK
.SETS NM "USRFCT"
.GOSUB WORK
.SETS NM "UVT100"
.IFT TTP .SETS NM "UVT52"
'F4' UVT100='NM'/NOTR/NOF77/NOI4
.;.GOSUB WORK
.SETS NM "VAROUT"
.GOSUB WORK
.SETS NM "VARSCN"
.GOSUB WORK
.SETS NM "OXQTCMD"
'F4' OXQTCMD=OXQTCMD/NOTR/NOF77/NOI4'DSS'
.;.GOSUB WORK
LBR XQTCMD.OLB/CR=OXQTCMD.OBJ
.SETS NM "ZERO"
.GOSUB WORK
.SETS NM "ZNEG"
.GOSUB WORK
.; NOTE IF YOUR FORTRAN OTS IS SOMEWHERE ELSE OR YOU
.; DON'T USE F4P/F77, YOU'LL HAVE TO EDIT THIS.
.DATA TASK=...PCC
.DATA UNITS=10
.IFT FSL .DATA SUPLIB=FCSFSL:SV
.DATA ASG=TI:1:5:6:8
.DATA MAXBUF=512
.DATA //
.CLOSE
SRD /OV/DE
TKB @PORTACALC.BLD
.IFT CLEN PIP *.OLB;*/DE/NM
.IFT CLEN PIP *.OBJ;*/DE/NM
.IFT CLEN PIP PORTACALC.BLD;*/DE/NM
.IFT CLEN PIP VKLUGPRM.FTN;0/DE/NM
.GOTO DONE
.WORK:
'F4' 'NM'='NM'/NOTR/NOF77
TRU 'NM'.OBJ;*
.RETURN
.DONE: