;
;		Build a C program.
;	NOTE: Old .TSK and .MAP files deleted.
;
.ENABLE SUBSTITUTION
.SETS SWT "-AV"
.ASK PRF Profile/Trace
.IFT PRF .SETS SWT "-APV"
.ASKS FIL File Name
.ASK OK Compile
.ASKN [256.:4096.:512.] STK Stack:
.ASKS TSK 3 char. task name
.ASKN [3.:32.:4.] FILES Active files
.ASKN [::0.] XUN Extra LUNs
.SETN LUNS FILES+XUN
.IFF OK .GOTO 100
XCC 'SWT' 'FIL'
.IF <EXSTAT> NE 1 .GOTO 200
.100:
PIP 'FIL'.TSK;*/DE/NM,.MAP;*
.OPEN CPROGBLD.CMD
.ENABLE DATA
'FIL'/CP,'FIL'/-SP='FIL',[1,1]C/LB
/
STACK='STK'
TASK=...'TSK'
ACTFIL='FILES'
UNITS='LUNS'
//
.DISABLE DATA
.CLOSE CPROGBLD.CMD
PIP TI:=CPROGBLD.CMD
TKB @CPROGBLD
.IFINS 'TSK' REMOVE 'TSK'
INS 'FIL'
PIP CPROGBLD.CMD;*/DE,'FIL'.OBJ;*
; DONE
.EXIT
.200:
; ERROR, ABORT BUILD.
