.ENABLE ESCAPE .ENABLE GLOBAL .ENABLE SUBSTITUTIONS .; .; SET UP SOME CONSTANTS .; .SETF $OPTS .SETS $RMSLN "" .SETS $LSTLN "" .SETS $MAPLN "" .SETS $RMSLB "" .; .; GET PGM NAME AND VALIDATE .; .10: .ASKS PGM ENTER PROGRAM NAME .TESTFILE 'PGM'.MAC .IF EQ 1 .GOTO 20 ; ; FILE NOT FOUND ; .GOTO 10 .; .; LONG VERSION OF THIS FILE? .; .20: .ASK $LNG DO YOU WANT LONG VERSION .IFF $LNG .GOTO 60 .; .; GET OPTIONS .; .ASK $LST LIST AND MAP FILES .IFT $LST .SETS $LSTLN ",'PGM'/-SP" .IFT $LST .SETS $MAPLN ",'PGM'/-SP" .ASK $RMS USE RMS .IFT $RMS .SETS $RMSLN "LB:[1,1]RMSMAC.MLB/ML,DB1:''" .IFT $RMS .SETS $RMSLB ",LB:[1,1]RMSLIB/LB" .60: .SETS $SWLIN "/CP" .ASKS $SWTCH ENTER TKB SWITCHES (=/CP) .IFF .OR .IF LT 3 .SETS $SWLIN "'$SWTCH'" .OPEN MACCMD.CMD .DATA 'PGM''$SWLIN''$MAPLN'='PGM''$RMSLB' .IFF $LNG .GOTO 40 .ASK $OPTS ANY TKB OPTIONS .IFF $OPTS .GOTO 40 .DATA / .; .; WE WANT TKB OPTIONS, GET THEM .; .30: .ASKS $OPT ENTER OPTION (// TO END) .DATA '$OPT' .IF $OPT NE "//" .GOTO 30 .; .; CLOSE TKB CMD FILE .; .40: .IFF $OPTS .DATA // .CLOSE .; .; ...AND ASSEMBLE .; MAC 'PGM''$LSTLN'='$RMSLN''PGM' .IF NE 1 .STOP .; .; THEN TASKBUILD .; TKB @MACCMD PIP MACCMD.CMD;*/DE