.SETS OLDUIC <UIC>
.SETF MACRO
.SETF LIBR
;
;This command file will assemble and build [1,54]ASS68.TSK
;
.ASK ASS Do You wish to re-compile any modules
.IFF ASS .GOTO 500
;
.IFNINS ...MAC .SETT MACRO
.IFT MACRO INS $BIGMAC
.SETF ASS68
.SETF FINDER
.SETF GETTER
.SETF HEX
.SETF OPEN14
.SETF PACKER
.SETF PARAM
.SETF PARSER
.SETF PRINT
.SETF PUNCH
.SETF PUTTER
.ASK ASS68 Do you want to re-compile main program ASS68
.ASK FINDER Do you want to re-compile the subroutine FINDER
.ASK GETTER Do you want to re-compile the subroutine GETTER
.ASK HEX Do you want to re-compile the subroutine HEX
.ASK OPEN14 Do you want to recompile the subroutine OPEN14
.ASK PACKER Do you want to recompile the subroutine PACKER
.ASK PARAM Do you want to recompile the subroutine PARAM
.ASK PARSER Do you want to recompile the subroutine PARSER
.ASK PRINT Do you want to recompile the subroutine PRINT
.ASK PUNCH Do you want to recompile the subroutine PUNCH
.ASK PUTTER Do you want to recompile the subroutine PUTTER
.IFT ASS68 F4P ASS68=ASS68
.IFT FINDER F4P FINDER=FINDER
.IFT GETTER F4P GETTER=GETTER
.IFT HEX F4P HEX=HEX
.IFT OPEN14 F4P OPEN14=OPEN14
.IFT PACKER F4P PACKER=PACKER
.IFT PARAM F4P PARAM=PARAM
.IFT PARSER F4P PARSER=PARSER
.IFT PRINT F4P PRINT=PRINT
.IFT PUNCH F4P PUNCH=PUNCH
.IFT PUTTER F4P PUTTER=PUTTER
.500:
.IFNINS ...LBR .SETT LIBR
.IFT LIBR INS $LBR
.ASK OK Does the library ASS68.OLB already exist
.IFF OK LBR ASS68/CR
LBR ASS68/RP=FINDER,GETTER,HEX,OPEN14,PACKER,PARAM
LBR ASS68/RP=PARSER,PRINT,PUNCH,PUTTER
;
.OPEN ASS68.BLD
.DATA [1,54]ASS68/CP/FP=ASS68,ASS68/LB
.DATA /
.DATA TASK=...ASS
.DATA //
.CLOSE
TKB @ASS68.BLD
PIP ASS68.BLD;*/DE
;
.IFT LIBR REM ...LBR
.IFT MACRO REM ...MAC