.; SCPGEN.CMD SCP TESTER TASK GENERATOR .; ************************************* .; Ing.Brunecky Ver.001 March 1981 .; .; Command file produces "debug" task SCPTST .; to simplify the new substituted commands .; verification. .; Following global parameters allow non-querry run: .; $NQR = .TRUE. - use non query run if possible .; $ALDV= "dduu" - assembly listing device .; $MPDV= "dduu" - taskbuild map listing device .; $TKDV= "dduu" - task image output device .; .; NOTE: current UFD used for all files, only .; SCP sources assumed to reside under SY:[12,10] .; @LB:[1,7]PRVTST check, if TI: privileged .ENABLE GLOBAL .IFNDF $EDI .SETS $EDI "EDI" .;default editor to be used .ENABLE SUBSTITUTION .SETS UIC .SETF CRL .SETF EXE .SETS SUIC "[12,10]" .SETS OUIC UIC .SETS DUIC UIC .SETS LUIC UIC .SETS S "CATAB" .GOSUB EDI .SETS S "SCP" .GOSUB EDI .SETS S "SCPTST" .GOSUB EDI .; .; Assembly finished succesfully, prepare task-build .IFNDF $TKDV .ASKS $TKDV Task image output device [ddu] .PARSE $TKDV ":" $TKDV X .IF $TKDV = "" .SETS $TKDV "SY0" .IFNDF $MPDV .ASKS $MPDV Task map listing device [ddu] .PARSE $MPDV ":" $MPDV X .IF $MPDV = "" .SETS $MPDV "SY0" SET /UIC='UIC' .OPEN SCPTSTBLD.CMD .DATA ; BUILD-COMMAND FILE SCPTST FOR RSX11M .DATA ; **************************************** .DATA ; .DATA TK:SCPTST/CP/-FP,MP:SCPTST= .DATA SCPTST,SCP,CATAB .DATA / .DATA TASK=...SCT .DATA PRI=50 .DATA STACK=30 .DATA UNITS=1 .DATA ASG=TI:1 .DATA PAR=GEN .DATA // .CLOSE ASN '$MPDV':=MP: ASN '$TKDV':=TK: PIP MP:SCPTST.MAP;*/DE/NM PIP TK:SCPTST.TSK/PU/NM TKB @SCPTSTBLD .IF NE 1 ; SCPTST taskbuild error, continue manuelly ! .IF NE 1 .GOTO EX ASN =TK: ASN =MP: PIP SCPTSTBLD.CMD;*/DE/NM .EX: SET /UIC='UIC' .EXIT .; .; Subroutine for editing and assembly .EDI: .IFDF $NQR .GOTO E12 .E10: .ASK ED Edit source file 'S'.MAC .IFF ED .GOTO ASM .E12: SET /UIC='SUIC' '$EDI' 'S'.MAC .SETT AS .ASM: .IFNDF AS .SETF AS .IFNDF L .GOTO A10 .TESTFILE 'LUIC''L'.OLB .IF NE 1 .SETT CRL .IF = 1 .GOTO A20 .A10: .TESTFILE'OUIC''S'.OBJ .IF NE 1 .SETT AS .A20: .IFT CRL .SETT AS .IFF AS .RETURN .IFNDF $ALDV .ASKS $ALDV Assembly listing device [dduu] .PARSE $ALDV ":" $ALDV X .IF $ALDV = "" .SETS $ALDV "SY0" SET /UIC='OUIC' PIP 'S'.OBJ;*/DE/NM,'$ALDV':'DUIC''S'.LST;*/DE/NM .IFT EXE MAC 'S','$ALDV':'DUIC''S'/-SP=[11,10]RSXMC/PA:1,[1,1]EXEMC/ML,'SUIC''S' .IFF EXE MAC 'S','$ALDV':'DUIC''S'/-SP='SUIC''S' .SETF AS .IF NE 1 .GOTO E10 .IFNDF L PIP 'S'.OBJ/PU/NM .IFNDF L .RETURN SET /UIC='LUIC' .IFT CRL .TESTFILE 'L'.OLB .IFT CRL .IF NE 1 LBR 'L'/CR:20 LBR 'L'/RP='OUIC''S' SET /UIC='OUIC' PIP 'S'.OBJ;*/DE/NM .RETURN