.ENABLE SUBSTITUTION
.ENABLE GLOBAL
.;COMMAND FILE TO BUILD PORTACALC ON PDP11 (RSX11M+)
.; GLENN EVERHART, 12/21/82
.OPEN PORTACALC.BLD
.DATA PCC/FP/CP/ID=AT
.SETS NM "AT"
F4P 'NM'='NM'/NOTR/NOF77
TRU 'NM'.OBJ;*
.SETS NM "BASCNG"
.GOSUB WORK
.SETS NM "BLOCK"
.GOSUB WORK
.SETS NM "CALBIN"
.GOSUB WORK
.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 "SPREDSHT"
.GOSUB WORK
.SETS NM "STRCMP"
.GOSUB WORK
.SETS NM "INDEX"
.GOSUB WORK
.SETS NM "UVT100"
.GOSUB WORK
.SETS NM "VAROUT"
.GOSUB WORK
.SETS NM "VARSCN"
.GOSUB WORK
.SETS NM "XQTCMD"
.GOSUB WORK
.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 LB:[1,1]SYSLIB/LB:$SHORT
.DATA /
.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:
.IF NM NE "AT" .DATA 'NM'
F4P 'NM'='NM'/NOTR/NOF77
TRU 'NM'.OBJ;*
.RETURN
.DONE: