.ENABLE SUBSTITUTION
.SETS LI ""
.SETS MP ""
.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 SY:[12,2]TRUNC.OBJ;*/DE
.IFT $ASM MAC SY:[12,2]TRUNC'LI'=SY:[12,3]TRUNC
.IFT $TKB .GOTO START2
.ASK $TKB TASKBUILD
.IFT $TKB .ASK $MAP MAP
.IFT $MAP .SETS MP ",TI:"
.START2:.IFT $TKB PIP SY:[12,1]TRUNC.TSK;*/DE
.IFT $TKB .OPEN TRUNCBLD.CMD;1
.IFT $TKB .DATA SY:[12,1]TRUNC/CP/MU/-FP=SY:[12,2]TRUNC,[12,2]PRFCS,[12,2]DIRDL
.IFT $TKB .DATA /
.IFT $TKB .DATA ASG=TI:2:3
.IFT $TKB .DATA ASG=SY:1
.IFT $TKB .DATA UNITS=3
.IFT $TKB .DATA STACK=64
.IFT $TKB .DATA TASK=...TRU
.IFT $TKB .DATA UIC=[200,200]
.IFT $TKB .DATA PRI=55
.IFT $TKB .DATA LIBR=SYSRES:RO
.IFT $TKB .DATA /
.IFT $TKB .CLOSE
.IFT $TKB TKB @TRUNCBLD
.IFT $TKB PIP TRUNCBLD.CMD;1/DE
.END:;EOF TRUNC