.ENABLE SUBSTITUTION
.ENABLE GLOBAL
.; VERSION OF RSX11M+ MAKE FOR AVO VERSION OF PORTACALC WITH
.; "*U MTXEQ A,X,B" MATRIX EQUATION SOLVER FUNCTION
.ASKS F4 WHAT IS THE TASKNAME OF YOUR COMPILER (F77)
.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=MVKLUGPRM.FTN
.OPEN PORTACALC.BLD
.DATA PCC/FP/CP/ID=AT
.SETS NM "AT"
'F4' 'NM'='NM'/NOTR/NOF77
TRU 'NM'.OBJ;*
.SETS NM "BASCNG"
.GOSUB WORK
.SETS NM "BLOCK"
.GOSUB WORK
.SETS NM "CMDMUN"
.GOSUB WORK
.SETS NM "TTYINI"
.GOSUB WORK
MAC TTYINI=TTYINI
'F4' CMDMUN=CMDMUN.FOR/NOF77/NOI4/NOTR'DBG'
SRD /OV/DE
.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 "MTXEQU"
.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
.IFT DB 'F4' SPREDSHT=SPREDSHT/NOTR/DE
.IFT DB PIP SPREDSHT.OBJ/PU
.SETS NM "STRCMP"
.GOSUB WORK
.SETS NM "INDEX"
.GOSUB WORK
.SETS NM "USRFCT"
.DATA 'NM'
'F4' USRFCT=USRFCT.FOR/NOTR/NOF77
.SETS NM "UVTAVO"
.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'
'F4' 'NM'='NM'/NOTR/NOF77
TRU 'NM'.OBJ;*
.RETURN
.DONE: