.; DECUS.CMD .; This command file will assemble and taskbuild a BP2 task using .; sequential I/O only with or without BP2/RMSSEQ resident library .; support, using the fastest possible ODL. Alternately, it will build .; the task "flat out", using no ODL at all. .ENABLE SUBSTITUTION .ENABLE QUIET .SETF INSBP2 .SETF FLTOUT .SETF BP2RES .SETF RMSRES .SETS RMSLIB "" .10: .ASKS PROGRM What is the name of your BP2 program .IF PROGRM EQ "" .EXIT ! Exit if .TEST PROGRM ! Check to see if legal name .IFT .GOTO 20 ! If legal name, skip .DISABLE QUIET ! Enable printing ; BP2BLD -- Name only. Omit extension.! Warn user .ENABLE QUIET ! Disable Printing .GOTO 10 ! Bad name, try again .20: .TESTFILE 'PROGRM'.B2S .IF EQ 1 .GOTO 30 ! If find file .DISABLE QUIET ! Enable printing error msg ; BP2BLD -- 'PROGRM'.B2S does not exist, try again. .ENABLE QUIET .GOTO 10 .30: .ASK FLTOUT Build 'PROGRM' Flat-Out (unoverlayed) .ASK BP2RES Build with BP2 Resident Library .ASK RMSRES Build with RSMSEQ Resident Library .IFT RMSRES .SETS RMSLIB "RES" .OPEN ASM.CMD;1 .DATA OLD 'PROGRM' .DATA COMPILE 'PROGRM'.OBJ;1 .DATA EXIT .CLOSE .IFNINS BP2 .SETT INSBP2 ! Set flag. .IFT INSBP2 INS $BASIC2 ! Install if needed BP2 @ASM.CMD PIP ASM.CMD;1/DE .IFT INSBP2 REM BP2 ! Remove it if needed .IFF FLTOUT .GOTO OVRLY ! If want it overlayed .OPEN BLD.CMD;1 .ENABLE DATA 'PROGRM'.TSK;1/CP/FP=[2,1]BPRMSOBJ1,'''PROGRM', [2,1]BASIC2/LB,RMSLIB/LB / UNITS = 14 ASG = TI:13 ASG = SY:5:6:7:8:9:10:11:12 .DISABLE DATA .IFT RMSRES .DATA RESLIB=[2,1]RMSSEQ/RO .IFT BP2RES .DATA RESLIB=[2,1]BASIC2/RO .ENABLE DATA EXTTSK= 952 // .DISABLE DATA .CLOSE .GOTO BLD ! Taskbuild it .OVRLY: .OPEN BLD.CMD;1 .ENABLE DATA 'PROGRM'.TSK;1/CP/FP=BLD.ODL/MP UNITS = 14 ASG = TI:13 ASG = SY:5:6:7:8:9:10:11:12 .DISABLE DATA .IFT RMSRES .DATA RESLIB=[2,1]RMSSEQ/RO .IFT BP2RES .DATA RESLIB=[2,1]BASIC2/RO .ENABLE DATA EXTTSK= 952 // .DISABLE DATA .CLOSE .OPEN BLD.ODL;1 .ENABLE DATA .ROOT BASIC2-RMSROT-USER,RMSALL USER: .FCTR SY:'PROGRM'-LIBR LIBR: .FCTR LB:[2,1]BASIC2/LB BASIC2: .FCTR LB:[2,1]BP2IC1.OBJ ; FSTSEQRES ; ULTRA COMPACTED ODL FOR USE IN BUILDING BP2 TASKS USING SEQUENTIAL ; FILES ONLY, FOR TASKS BUILT WITH OR WITHOUT RMSSEQ RESIDENT LIBRARY ; RMSROT: .FCTR SY:[2,1]FSTROT'RMSLIB' .NAME RMS11 RMSALL: .FCTR RMS11-*(RMSFIL,RMSREC) .NAME RMSFAB RMSFIL: .FCTR RMSFAB-RMSFL RMSFL: .FCTR SY:[2,1]FSTFIL'RMSLIB' RMSREC: .FCTR SY:[2,1]FSTREC'RMSLIB' .END .DISABLE DATA .CLOSE .BLD: TXB @BLD.CMD PIP BLD.CMD;1/DE/NM,BLD.ODL;1