	.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	;
	;	Building HOL -- Disk contiguous space lister
	;
	.SETF SRCDEV
	.IFNDF $TKB .SETS $TKB "TKB"
	.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:
	SLP @'$SRC''<UIC>'HOL.COR
	MAC HOL,'$LST'HOL/-SP=HOL
	PIP HOL.MAC;*/DE
	.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
	.DATA //
	.CLOSE
	'$TKB' @HOLTKB
	PIP HOL.OBJ;*/DE
	PIP HOLTKB.CMD;*/DE
.HOLEX: ;
