.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.SETS MCR ""
	.IF <CLI> NE "MCR" .SETS MCR "MCR "
	.SETS UIC <UIC>
	.IFDF <DIRECT> .IF <DIRECT> NE "[]" .SETS UIC <DIRECT> !Named directory
	;
	;	Building HOL -- Disk contiguous space lister
	;
	.SETF SRCDEV
	.IFDF $SRC .GOTO SRCOK
	.SETS $SRC COMMAN
	.PARSE $SRC " " $SRC DUMMY
	.PARSE $SRC "/" $SRC DUMMY
	.PARSE $SRC "." $SRC EXT
	.IF EXT EQ "" .SETS EXT "CMD"
	.TESTFILE '$SRC'.'EXT'
	.PARSE <FILSPC> ":" $SRC TEMP
	.TESTFILE SY:
	.PARSE <FILSPC> ":" SYDEV TEMP
	.IF $SRC EQ SYDEV .SETT SRCDEV
	.SETS $SRC $SRC+":"
.SRCOK:	.SETF Q
	.SETT SGLBLD
	.IFDF $LST .AND .IFDF $MP .SETF SGLBLD
	.IFF SGLBLD .GOTO CHKMP
	.ASK Q Generate listings
	.IFT Q .SETS $LST ""
	.IFF Q .SETS $LST "NL:"
	.SETF Q
	.ASK Q Generate maps
	.IFT Q .SETS $MP ""
	.IFF Q .SETS $MP "NL:"
.CHKMP:
.HOL1:
	.IFNINS ...SLP INS $SLP
	.IF <EXSTAT> NE <SUCCES> .GOTO HOLEX
'mcr'SLP @'$SRC''UIC'HOL.COR
	.IF <EXSTAT> NE <SUCCES> .GOTO HOLEX
'mcr'MAC HOL,'$LST'HOL/-SP=HOL
	.IF <EXSTAT> NE <SUCCES> .GOTO HOLEX
'mcr'PIP HOL.MAC;*/DE
; Task build now
	.SETF fcsfsl				! Assume FSL false
	.SETF fcsres				! Assume RES false

.TSTFSL:
	.TESTFILE lb:[1,1]fcsfsl.tsk		! Look for the FSL Library
	.IF <FILERR> NE 1 .GOTO tstres		! Not present, can''t use it
	.TESTFILE lb:[1,1]fcsfsl.stb		! Look for the symbol table
	.IF <FILERR> NE 1 .GOTO tstres		! Not present, can''t use it
	.SETT fcsfsl				! Now we have all needed for
.;						! supervisor mode FCS support
;
; Linking Task to Supervisor Mode FCS Library
;
	.GOTO FCSEND

.TSTRES:
	.TESTFILE lb:[1,1]fcsres.tsk		! Look for the RES Library
	.IF <FILERR> NE 1 .GOTO nores		! Not present, can''t use it
	.TESTFILE lb:[1,1]fcsres.stb		! Look for the symbol table
	.IF <FILERR> NE 1 .GOTO nores		! Not present, can''t use it
	.SETT fcsres				! Now we have all needed for
.;						! resident FCS support
;
; Linking Task to resident FCS-Library
;
	.GOTO FCSEND
.NORES:
;
; Linking Task to normal FCS-Library
;
.FCSEND:
	.OPEN HOLTKB.CMD
	.DATA HOL/CP,'$MP'HOL/-SP=HOL
	.DATA /
	.DATA UIC=[1,1]
	.DATA TASK=...HOL
	.DATA UNITS=3
	.DATA ASG=TI:2:3
	.DATA STACK=50
.IFT FCSFSL .DATA SUPLIB=FCSFSL:SV
.IFT FCSRES .DATA LIBR=FCSRES:RO
	.DATA //
	.CLOSE
'mcr'TKB @HOLTKB
	.IF <EXSTAT> NE <SUCCES> .GOTO HOLEX
'mcr'PIP HOL.OBJ;*/DE
'mcr'PIP HOLTKB.CMD;*/DE
	.GOTO 10
.HOLEX:
;
; An error has occured building HOL. Please correct and retry
;
.10:
	.SETN STATUS <EXSTAT>
	.EXIT STATUS