.;
.; This command procedure is for use in customizing sysgen.  If the
.; SYSGEN3 patch is applied, it will be invoked by SYSGEN3 prior to
.; it doing anything very interesting.  This allows all kinds of global
.; symbols to be set according the desires of the user.
.;
	.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.IFDF $ONCE .RETURN	! Only pass this way once
	.SETT $ONCE		! LOOP THOUGH BUT ONCE
	.SETS $FCP "MULTIHEADER"
	.SETT $11M		! RSX11M
	.SETF $FRL		!
	.SETT $FUD		! FULL DUPLEX DRIVER
	.SETT $MUP		! MULTI USER PROTECTION
	.SETN $GPB 0		!
	.SETF $BLD		! DO NOT BUILD AUTOMATICALLY
	.SETT $ANSLB		! ANSI SUPPORT
.;	.SETT $ANSBB		! ASSUME BUILD WITH ANSLIB
.;	.SETS $DBG "/TR"	! TRACE XXXBLD.BLD
	.SETF $EDF		! DO NOT PAUSE TO EDIT
	.SETS $SYUIC "[1,54]"	! FOOL INTO PUT FILES ON [1,24]
	.SETF $MLH
	.SETF $BLDMD		! Look in sysgen3 to see how DEC uses these
	.SETF $DEVMD		! two symbols.
.;	.SETT $FRLTK		! ASSUME FCSRES
	.SETT $FRL
	.SETS $OBJDV "SY"	! FOOL INTO NOT ASKING
	.SETS $MAPDV "MP"	! FOOL INTO NOT ASKING
.;	.SETS $CL$ "SY:[1,24]"	! 
.;	.SETS $BL$ "SY:[1,20]"	! XXXBLD.BLD FILES
.;	.SETS $MP$ "MP:[1,34]"	! MAP OUTPUT
.;	.SETS $OD$ "SY:[1,24]"	! PRIV OBJECTS
.;	.SETS $LI$ "SY:[1,24]"	! PRIV OBJECTS
.;	.SETS $TK$ "TK:[1,53]"	! TASK OUTPUT
	.SETT $KMSRS		! USE KMS FCSRES
	.SETT $MAP		! CREATE MAP (TO MP:)
	.ONERR .GOTO 10
.10:	.ASKS DEV On what device are the XXXBLD.BLD files (ddu, default = SY)
	.IF DEV EQ "" .SETS DEV "SY"
	.TEST DEV
	.IFT <ALPHAN> .GOTO 15
	;  Illegal device name, alpha numerics only, try again
	.GOTO 10
.15:	.SETS $BL$ DEV+":[1,20]"
	.TESTFILE 'DEV':
	.IF <FILERR> EQ 230. .GOTO 20	! SHOULD BE NO SUCH FILE
	; 'DEV': Does not exist, is offline, or is a Logical Device
	.ASK ANS Is 'DEV': a logical device
	.IFT ANS .GOTO 20
	.GOTO 10
.20:	.SETS $MAPDV "NL:"
	.ONERR .GOTO 25
	.IFDF $TK$ .GOTO 35
.25:	.ASKS OUT Onto what device should tasks be built (ddu , default =TK)
	.IF OUT EQ "" .SETS OUT "TK"
	.TEST OUT
	.IFT <ALPHAN> .GOTO 28
	;  Illegal device name, alpha numerics only, try again
	.GOTO 25
.28:	.TESTFILE 'OUT':
	.IF <FILERR> EQ 230. .GOTO 30	! SHOULD BE NO SUCH FILE
	; 'OUT': Does not exist, is offline, or is a Logical Device
	.ASK ANS Is 'OUT': a logical device
	.IFT ANS .GOTO 30
	.GOTO 25
	.IFDF $TK$ .GOTO 35
.30:	.ASKS OUTUIC What is the target system UIC ([G,M], default=[1,54])
	.IF OUTUIC EQ "" .SETS OUTUIC "[1,54]"
	.SETS $TK$ OUT+":"+OUTUIC
.35:
	.IFNDF $SELCT .ASK $SELCT Allow FCSRES and library names to be specified
.;	.SETT $SGN2		! PRETEND THIS IS SYSGEN2
