.; .; 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 .GOTO 15 ;  Illegal device name, alpha numerics only, try again .GOTO 10 .15: .SETS $BL$ DEV+":[1,20]" .TESTFILE 'DEV': .IF 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 .GOTO 28 ;  Illegal device name, alpha numerics only, try again .GOTO 25 .28: .TESTFILE 'OUT': .IF 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