.ENABLE SUBSTITUTION
.SETS LI ""
.SETS MP ""
.SETT $ASM
.SETT $TKB
.IFDF $ASM .GOTO START
.SETF $MAP
.SETF $LIST
.IFNDF $TKB .SETF $TKB
.IFNDF $ASM .SETF $ASM
.SETF $TKB
.ASK $ASM ASSEMBLE
.IFT $ASM .ASK $LIST LIST
.IFT $LIST .SETS LI ",LP:"
.START:.IFT $ASM PIP PDQ.OBJ;*/DE/NM
.IFT $ASM MAC PDQ.OBJ;1'LI'=PDQ
.IFT $TKB .GOTO START2
.ASK $TKB TASKBUILD
.IFT $TKB .ASK $MAP MAP
.IFT $MAP .SETS MP ",TI:"
.START2:.IFT $TKB PIP PDQ.TSK;*/DE/NM
.IFT $TKB .OPEN PDQBLD.CMD;1
.IFT $TKB .DATA PDQ.TSK;1/CP/-FP/SL/PR=PDQ,LB:'<SYSUIC>'RSX11M.STB/SS
.IFT $TKB .DATA /
.IFT $TKB .DATA ASG=TI:2
.IFT $TKB .DATA ASG=SY:1
.IFT $TKB .DATA UNITS=2
.IFT $TKB .DATA STACK=64
.IFT $TKB .DATA TASK=MC0
.IFT $TKB .DATA UIC=[200,200]
.IFT $TKB .DATA PRI=60
.IFT $TKB .DATA /
.IFT $TKB .CLOSE
.IFT $TKB TKB @PDQBLD
.IFT $TKB PIP PDQBLD.CMD;1/DE/NM,PDQ.OBJ;1