.ENABLE SUBSTITUTION
REM PIN
.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 PIN.OBJ;*/DE/NM
.IFT $ASM MAC PIN.OBJ;1'LI'=PIN
.IFT $TKB .GOTO START2
.ASK $TKB TASKBUILD
.IFT $TKB .ASK $MAP MAP
.IFT $MAP .SETS MP ",TI:"
.START2:.IFT $TKB PIP PIN.TSK;*/DE/NM
.IFT $TKB .OPEN PINBLD.CMD;1
.IFT $TKB .DATA PIN.TSK;1/CP/-FP=PIN
.IFT $TKB .DATA /
.IFT $TKB .DATA ASG=TI:2
.IFT $TKB .DATA ASG=SY:1
.IFT $TKB .DATA UNITS=2
.IFT $TKB .DATA ACTFIL=2
.IFT $TKB .DATA STACK=64
.IFT $TKB .DATA TASK=...PIN
.IFT $TKB .DATA UIC=[200,200]
.IFT $TKB .DATA PRI=60
.IFT $TKB .DATA LIBR=FCSRES:RO
.IFT $TKB .DATA /
.IFT $TKB .CLOSE
.IFT $TKB TKB @PINBLD
.IFT $TKB PIP PINBLD.CMD;1/DE/NM,PIN.OBJ;1
INS PIN
TCF 7
