.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"
.;COMMAND FILE TO BUILD PORTACALC ON PDP11 (RSX11M+)
.; GLENN EVERHART, 12/21/82
PIP VKLUGPRM.FTN/NV=SVKLUGPRM.FTN
.OPEN PORTACALC.BLD
.DATA PCC/FP/CP,PCC/-SP=OPCCSAV/MP
.SETS NM "AT"
.GOSUB WORK
.SETS NM "BASCNG"
.GOSUB WORK
.SETS NM "BLOCK"
.GOSUB WORK
.SETS NM "CALBIN"
.GOSUB WORK
.SETS NM "CMDMUN"
.GOSUB WORK
.SETS NM "TTYINI"
.GOSUB WORK
'F4' CMDMUN=CMDMUN.FOR/NOF77/NOI4/NOTR'DBG'
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"
.GOSUB WORK
LBR OSPREDSHT/CR=OSPREDSHT
.SETS NM "STRCMP"
.GOSUB WORK
.SETS NM "INDEX"
.GOSUB WORK
.SETS NM "USRFCT"
.GOSUB WORK
.SETS NM "UVT100"
.; BUILD UVT100 USING UVTAVO VERSION.
'F4' UVT100=UVTAVO/NOTR/NOF77
TRU UVT100.OBJ
.SETS NM "VAROUT"
.GOSUB WORK
.SETS NM "VARSCN"
.GOSUB WORK
.SETS NM "OXQTCMD"
.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
.DATA ASG=TI:1:5:6:8
.DATA MAXBUF=512
;.DATA SUPLIB=FCSFSL:SV
.DATA //
.CLOSE
SRD /OV/DE
TKB @PORTACALC.BLD
.GOTO DONE
.WORK:
'F4' 'NM'='NM'/NOTR/NOF77
TRU 'NM'.OBJ;*
.RETURN
.DONE:
