.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 LIST.OBJ;*/DE/NM
.IFT $ASM MAC LIST'LI'=LIST
.IFT $TKB .GOTO START2
.ASK $TKB TASKBUILD
.IFT $TKB .ASK $MAP MAP
.IFT $MAP .SETS MP ",TI:"
.START2:.IFT $TKB PIP LIST.TSK;*/DE/NM
.IFT $TKB .OPEN LISTBLD.CMD;1
.IFT $TKB .DATA LIST/CP/-FP=LIST
.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=...LIS
.IFT $TKB .DATA UIC=[200,200]
.IFT $TKB .DATA PRI=50
.IFT $TKB .DATA LIBR=FCSRES:RO
.IFT $TKB .DATA /
.IFT $TKB .CLOSE
.IFT $TKB TKB @LISTBLD
.IFT $TKB PIP LISTBLD.CMD;1/DE,LIST.OBJ;1