.ENABLE SUBSTITUTION ; ; INTEL I80 COMPILE AND BUILD INDIRECT COMMAND FILE ; .SETF MP .IF = 6 .SETT MP .ASK COM Compile the routines .IFF COM .GOTO 100 .ASK LST Listing .SETS LIST "" .IFT LST .SETS LIST "/LIST" FORTRAN/F77 BINHEX'LIST'/TRACEBACK:NAMES FORTRAN/F77 BINOUT'LIST'/TRACEBACK:NAMES FORTRAN/F77 BLDINS'LIST'/TRACEBACK:NAMES FORTRAN/F77 BSERCH'LIST'/TRACEBACK:NAMES FORTRAN/F77 DECODE'LIST'/TRACEBACK:NAMES FORTRAN/F77 ERRPRT'LIST'/TRACEBACK:NAMES FORTRAN/F77 FLGERR'LIST'/TRACEBACK:NAMES FORTRAN/F77 FNDSYM'LIST'/TRACEBACK:NAMES FORTRAN/F77 GETBSU'LIST'/TRACEBACK:NAMES FORTRAN/F77 GETFIL'LIST'/TRACEBACK:NAMES MACRO GETFNB'LIST' FORTRAN/F77 GETLIN'LIST'/TRACEBACK:NAMES FORTRAN/F77 GETOPC'LIST'/TRACEBACK:NAMES FORTRAN/F77 GETSYM'LIST'/TRACEBACK:NAMES FORTRAN/F77 HEADNG'LIST'/TRACEBACK:NAMES FORTRAN/F77 INITP1'LIST'/TRACEBACK:NAMES FORTRAN/F77 INITP2'LIST'/TRACEBACK:NAMES FORTRAN/F77 IN8085'LIST'/CONTINUATION:60/TRACEBACK:NAMES FORTRAN/F77 IPOP'LIST'/TRACEBACK:NAMES FORTRAN/F77 IPUSH'LIST'/TRACEBACK:NAMES FORTRAN/F77 LSERCH'LIST'/TRACEBACK:NAMES FORTRAN/F77 PACK'LIST'/TRACEBACK:NAMES FORTRAN/F77 PASS1'LIST'/TRACEBACK:NAMES FORTRAN/F77 PASS2'LIST'/TRACEBACK:NAMES FORTRAN/F77 PRTLIN'LIST'/TRACEBACK:NAMES FORTRAN/F77 PUTSYM'LIST'/TRACEBACK:NAMES FORTRAN/F77 P1DIR'LIST'/TRACEBACK:NAMES FORTRAN/F77 P1SUDO'LIST'/TRACEBACK:NAMES FORTRAN/F77 P2DIR'LIST'/TRACEBACK:NAMES FORTRAN/F77 P2SUDO'LIST'/TRACEBACK:NAMES FORTRAN/F77 SYMPRT'LIST'/TRACEBACK:NAMES FORTRAN/F77 SYMSRT'LIST'/TRACEBACK:NAMES FORTRAN/F77 TIMER'LIST'/TRACEBACK:NAMES FORTRAN/F77 TRIVIA'LIST'/TRACEBACK:NAMES FORTRAN/F77 XPRSIN'LIST'/TRACEBACK:NAMES FORTRAN/F77 XREF'LIST'/TRACEBACK:NAMES FORTRAN/F77 XRFPRT'LIST'/TRACEBACK:NAMES .IFT LST PRINT/NOFLAG_PAGE *.LST/DELETE COPY *.OBJ I80.OBS LIBRARY/CREATE/OBJECT I80 I80.OBS DELETE *.OBJ;*,*.OBS;* .100: .OPEN I80.BLD .DATA I80,I80/-SP=I80/MP .DATA UNITS=5 .DATA ACTFIL=5 .DATA TASK=...I80 .IFF MP .DATA LIBR=FCSRES:RO .IFT MP .DATA SUPLIB=FCSFSL:SV .DATA // .CLOSE .OPEN I80.ODL .DATA .ROOT MAIN-*(A,B,C,D,E,F,G,H,I) .DATA MAIN: .FCTR I80/LB:IN8085:TIMER-L .DATA A: .FCTR I80/LB:INITP1-I80/LB .DATA B: .FCTR I80/LB:GETFIL-I80/LB .DATA C: .FCTR I80/LB:PASS1-I80/LB .DATA D: .FCTR I80/LB:INITP2-I80/LB .DATA E: .FCTR I80/LB:PASS2-I80/LB .DATA F: .FCTR I80/LB:SYMPRT-I80/LB-J .DATA G: .FCTR LB:[1,24]CHSLIB/LB:SPOOL:GETFNB .DATA H: .FCTR I80/LB:ERRPRT-I80/LB .DATA I: .FCTR I80/LB:XRFPRT-I80/LB .DATA J: .FCTR LB:[1,24]CHSLIB/LB:TSKLOG .IFF MP .DATA L: .FCTR LB:[1,1]ANSLIB/DL .IFT MP .DATA L: .FCTR LB:[1,1]SYSLIB/DL .DATA .END .CLOSE LINK @I80.BLD DELETE I80.BLD;*,I80.ODL;* PURGE *.* SRD /WB/ST/-BR PIP *.*;*/TR