.;BASE1.COM
	.;EDIT LEVEL = 3
	.;BASE.COM builds an RT11 V5 Base Level
	.;
	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
.START:
	;
	.IFDF $DEMON .GOTO 1
	.ASKS DAT Please enter todays date:
	DATE 'DAT'
	.IF <EXSTAT> EQ <SUCCES> .GOTO 1
	;
	;Illegal date
	.GOTO START:
.1:	;
	;        RT-11 V5 BASE LEVEL BUILD
	;
	.SETS CONFIG "1144"
	.IFDF $DEMON .SETS CONFIG "DAEMON"
	.IFNDF $DEMON .ASKS [::CONFIG] CONFIG What configuration file do you want to use (1144)?
	@'CONFIG'/T
	;
	.IFNDF $DEMON .ASK $LIST Do you want to produce a LIST disk?

	.IFNDF $DEMON .GOTO 11$
	.IFF $LIST .SETS $LST "NL0"

.11$:	;
	;
	;
	; To build a base level you need the following:
	;
	;
	; INPUT: 
	;  1.  SOURCE MASTER            in '$SRC' (WRITE ENABLED)
	;
	; VOLUMES TO BE BUILT:
	;  1.  BINARY MASTER            in '$BIN'
	.IFT $LIST;  2.  LIST MASTER    in '$LST'
	;  3.  OBJECT MASTER            in '$OBJ'
	;  4.  MAP MASTER               in '$MAP'
	;
	.IFNDF $DEMON .ASKS T Mount the above disks and hit return when ready
.4:

	ASSIGN '$SRC' SRC
	ASSIGN '$BIN' BIN
	ASSIGN '$LST' LST
	ASSIGN '$OBJ' OBJ
	ASSIGN '$MAP' MAP 

	LOAD '$SRC'
	LOAD '$BIN'
	LOAD '$LST'
	LOAD '$OBJ'
	LOAD '$MAP'

	.IFDF $DEMON .SETT INIT
	.IFDF $DEMON .SETS INI "/BAD"
	.IFNDF $DEMON .ASK [<TRUE>] INIT Initialize the work volumes (Y)?
	.IFNDF $DEMON .IFT INIT .ASKS INI Initialize option (/BAD or /REP)?
	.IFF INIT .SETS INI ""
	.SETS INI INI+"/SEG:31"

	.IFF INIT .GOTO 90

	.OPEN BASE.TMP
	.DATA INIT'INI'/NOQ/VOL '$BIN':
	.DATA BINARYMASTER
	.DATA RT-11 DEV
	.CLOSE
	$@BASE.TMP
.10:
	.IFF $LIST .GOTO 30
	.OPEN BASE.TMP
	.DATA INIT'INI'/NOQ/VOL '$LST':
	.DATA LST
	.DATA RT-11 DEV
	.CLOSE
	$@BASE.TMP
.30:
	.IF $MAP EQ $LST .IFT $LIST .GOTO 40
	.OPEN BASE.TMP
	.DATA INIT'INI'/NOQ/VOL '$MAP':
	.DATA MAP
	.DATA RT-11 DEV
	.CLOSE
	$@BASE.TMP
.40:	
	.OPEN BASE.TMP
	.DATA INIT'INI'/NOQ/VOL '$OBJ':
	.DATA OBJMASTER
	.DATA RT-11 DEV
	.CLOSE
	$@BASE.TMP

.90:	.EXIT