SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)   12500  SYSGEN Utility main routine

   (1)   15800  BOO$USEFILE - Use parameter file

   (1)   20400  BOO$FACMSG - Output facility error message

   (1)   22100  BOO$CONFIGALL - Auto-configure all adapters

   (1)   32800  Reset routines BOO$RESETLIST and BOO$CONRESET

   (1)   36800  BOO$CONADP - Set connect adapter number

   (1)   44100  BOO$CONNECT - Connnect specified device and loa

   (1)   49500  BOO$LOAD - Load a specified driver if not alrea

   (1)   50400  BOO$RELOAD - Reload a specified driver

   (1)   52200  PUTERROR - Routine to print system message for 

   (1)   54200  BOO$GIVEHELP - Print Help information

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page   1

04                                                                                                                               (1)



                                     0000   100 	.TITLE	SYSGEN - SYSGEN UTILITY AND PARAMETER FILE EDITOR

                                     0000   200 	.IDENT	/04/

                                     0000   300 ;

                                     0000   400 ; COPYRIGHT (C) 1978

                                     0000   500 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000   600 ;

                                     0000   700 ; THIS SOFTWARE IS FURNISHED  UNDER A LICENSE FOR USE ONLY ON A SINGLE

                                     0000   800 ; COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY WITH  THE INCLUSION OF THE

                                     0000   900 ; ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,

                                     0000  1000 ; MAY NOT BE PROVIDED OR  OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON

                                     0000  1100 ; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE

                                     0000  1200 ; TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES

                                     0000  1300 ; REMAIN IN DEC.

                                     0000  1400 ;

                                     0000  1500 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE

                                     0000  1600 ; AND SHOULD  NOT BE CONSTRUED  AS A COMMITMENT  BY DIGITAL  EQUIPMENT

                                     0000  1700 ; CORPORATION.

                                     0000  1800 ;

                                     0000  1900 ; DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE USE OR  RELIABILITY OF ITS

                                     0000  2000 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

                                     0000  2100 

                                     0000  2200 ;++

                                     0000  2300 ;

                                     0000  2400 ; Facility:  System generation and initialization

                                     0000  2500 ;

                                     0000  2600 ; Abstract: SYSGEN is the main routine to provide all SYSBOOT parameter

                                     0000  2700 ;	alteration commands in an online environment.

                                     0000  2800 ;

                                     0000  2900 ; Environment:

                                     0000  3000 ;

                                     0000  3100 ; Author:  RICHARD I. HUSTVEDT, Creation date:  4-MAY-1978

                                     0000  3200 ;

                                     0000  3300 ; Modified by:

                                     0000  3400 ;

                                     0000  3500 ;  , Version  ,

                                     0000  3600 ; 01	- 

                                     0000  3700 ;--

                                     0000  3800 

                                     0000  3900 ;

                                     0000  4000 ; Include files:

                                     0000  4100 ;

                                     0000  4200 	$ACFDEF				; Define autoconfiguration block

                                     0000  4300 	$ADPDEF				; Define adapter control block

                                     0000  4400 	$CLIDEF				; Define CLI codes and values

                                     0000  4500 	$PRDEF				; Define processor registers

                                     0000  4600 	$PRMDEF				; Parameter descriptor definitions

                                     0000  4700 	$TPADEF				; TPARSE definitions

                                     0000  4800 

                                     0000  4900 ;

                                     0000  5000 ; MACROS:

                                     0000  5100 ;

                                     0000  5200 ;

                                     0000  5300 ; Macro to print message

                                     0000  5400 ;

                                     0000  5500 ;	MSG	message_text

                                     0000  5600 ;

                                     0000  5700 	.MACRO	MSG,STR			;

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page   2

04                                                                                                                               (1)



                                     0000  5800 	BSBW	BOO$MSGOUT		;

                                     0000  5900 	.ASCII	<CR><LF>		;

                                     0000  6000 	.ASCIZ	\'STR'\			;

                                     0000  6100 	.ENDM	MSG			;

                                     0000  6200 

                                     0000  6300 	.MACRO	ERROR,STR		;

                                     0000  6400 	BSBW	BOO$FACMSG		;

                                     0000  6500 	.ASCIZ	\'STR'\			;

                                     0000  6600 	.ENDM	ERROR			;

                                     0000  6700 ;

                                     0000  6800 ; Equated Symbols:

                                     0000  6900 ;

                           0000000D  0000  7000 	CR=13				; Character value for carriage return

                           0000000C  0000  7100 	FF=12				; Character value for form feed

                           0000000A  0000  7200 	LF=10				; Character value for line feed

                           00001000  0000  7300 	UBA_IOBASE=8*512		; Offset from UBA configuration register

                                     0000  7400 					; to base of I/O page

                                     0000  7500 ;

                                     0000  7600 ; Own Storage

                                     0000  7700 ;

                                 00000000  7800 	.PSECT	$$$$000,NOEXE,NOWRT	; PSECT to mark lower address

                                     0000  7900 BOO$LOLIM::				; Marker definition

                                 00000000  8000 	.PSECT	____ZZZ,WRT,PAGE	; PSECT to mark upper address limit

                                     0000  8100 BOO$HILIM::				;

                                 00000000  8200 	.PSECT	BOO$SYSGEN,WRT		; Main PSECT

                                     0000  8300 BOO$AB_PRMBUF::				; Parameter buffer

                           00002000  0000  8400 	.BLKB	512*16			; A generous buffer

                                     2000  8500 BOO$GL_CONADP::				; Adapter TR number

                           FFFFFFFF  2000  8600 	.LONG	-1			; Null value

                                     2004  8700 BOO$GL_CONCREG::			; Control register

                           FFFFFFFF  2004  8800 	.LONG	-1			; Null value

                                     2008  8900 BOO$GL_CONCUNIT::			; Controller unit

                           FFFFFFFF  2008  9000 	.LONG	-1			; Null value

                                     200C  9100 BOO$GL_CONVECT::			; Vector offset

                           FFFFFFFF  200C  9200 	.LONG	-1			; Null value

                                     2010  9300 BOO$GL_CONNUMV::			; Number of vectors

                           FFFFFFFF  2010  9400 	.LONG	-1			; Null value

                                     2014  9500 BOO$GL_CONAUNIT::			; Adapter unit

                           FFFFFFFF  2014  9600 	.LONG	-1			; Null value

                                     2018  9700 BOO$GL_CONDEV::				; Device name string address

                           FFFFFFFF  2018  9800 	.LONG	-1			; Null value

                                     201C  9900 BOO$GL_CONDRV::				; Driver name string address

                           FFFFFFFF  201C 10000 	.LONG	-1			; Null value

                                     2020 10100 BOO$GL_NEXTSTR::			; Next string location

                           00000000  2020 10200 	.LONG	0			;

                                     2024 10300 BOO$GL_SELECT::				; Address of select list

                           00000000  2024 10400 	.LONG	0			;

                                     2028 10500 BOO$AL_CLIBLK::				; CLI call back block

                                     2028 10600 	$CLIREQDESC	-		; Get command call back block

                                     2028 10700 		RQTYPE=CLI$K_GETCMD	;

                           00002030  2044 10800 BOO$GQ_CMDESC==BOO$AL_CLIBLK+CLI$W_RQSIZE	; Command descriptor address

                                     2044 10900 BOO$GT_PROMPT::				; Prompt string

00 20 20 3E 4E 45 47 53 59 53 0A 0D  2044 11000 	.ASCIZ	<CR><LF>%SYSGEN>  %	;

                                     2050 11100 BOO$AL_ACF::				; Auto-configuration block

                           0000206C  2050 11200 	.BLKB	ACF$C_LENGTH		; Allocate space for it

                                     206C 11300 BOO$GQ_LIMITS::				; High and low address limits for lockdown

                           00000000' 206C 11400 	.LONG	BOO$LOLIM		; Lower address bound

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page   3

04                                                                                                                               (1)



                           FFFFFFFF' 2070 11500 	.LONG	BOO$HILIM-1		;

                                     2074 11600 BOO$GQ_RETADR::				; Return address receiver

                  00000000 00000000  2074 11700 	.LONG	0,0			;

                                     207C 11800 BOO$GL_RETSAVE::			; Saved co-routine return address

                           00000000  207C 11900 	.LONG	0			;

                                     2080 12000 FACNAMED:				; Facility name descriptor

                  00002088'00000006' 2080 12100 	.LONG	FACNAMSZ,FACNAME	;

                  4E 45 47 53 59 53  2088 12200 FACNAME:.ASCII	/SYSGEN/		;

                           00000006  208E 12300 FACNAMSZ=.-FACNAME			; Length of facility name

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page   4

04              SYSGEN Utility main routine                                                                                      (1)



                                     208E 12500 	.SBTTL	SYSGEN Utility main routine

                                     208E 12600 ;++

                                     208E 12700 ; Functional Description:

                                     208E 12800 ;	SYSGEN is the control module for the sysgen utility program which

                                     208E 12900 ;	provides functional commands for the creation, examinitation and

                                     208E 13000 ;	editing of parameter files, the creation of I/O data base and the loading

                                     208E 13100 ;	of device drivers.

                                     208E 13200 ;

                                     208E 13300 ; Calling Sequence:

                                     208E 13400 ;	CALLG ARGLIST,BOO$SYSGEN	called by the image activator

                                     208E 13500 ;

                                     208E 13600 ; Input Parameters:

                                     208E 13700 ;

                                     208E 13800 ; Output Parameters:

                                     208E 13900 ;

                                     208E 14000 ;--

                               0000  208E 14100 BOO$SYSGEN::	.WORD	0

                                     2090 14200 	$LKWSET_S	INADR=BOO$GQ_LIMITS,-	;

                                     2090 14300 			RETADR=BOO$GQ_RETADR	; Lock entire image in working set

            2D            50     E9  209F 14400 	BLBC	R0,10$			; EXIT IF ERROR LOCKING PAGES, FATAL

                          7E     7C  20A2 14500 	CLRQ	-(SP)			; Null call back arguments

                     FF80 CF     9F  20A4 14600 	PUSHAB	W^BOO$AL_CLIBLK		; Address of request block

         08 BC            03     FB  20A8 14700 	CALLS	#3,@CLI$A_UTILSERV(AP)	; Call utility service routine

       FF79 CF         00'8F     91  20AC 14800 	CMPB	#CLI$K_VERB_FORE,W^BOO$AL_CLIBLK+CLI$B_RQSTAT ; Foreign command?

                          04     13  20B2 14900 	BEQL	5$			; Branch if yes

                     FF78 CF     7C  20B4 15000 	CLRQ	W^BOO$GQ_CMDESC		; Clear command string descriptor

            01            02     EF  20B8 15100 5$:	EXTZV	#2,#1,24(AP),-(SP)	; GET VERIFY FLAG

            7E         18 AC         20BB       

       0000'CF            01     FB  20BE 15200 	CALLS	#1,W^BOO$GETPARAM	; READ AND PROCESS COMMANDS

            50   00000000'8F     D1  20C3 15300 	CMPL	#RMS$_EOF,R0		; CHECK FOR END OF FILE

                          03     12  20CA 15400 	BNEQ	10$			; NO, RETURN STATUS

            50            01     D0  20CC 15500 	MOVL	#1,R0			; SET NORMAL STATUS

                                 04  20CF 15600 10$:	RET				;

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page   5

04              BOO$USEFILE - Use parameter file                                                                                 (1)



                                     20D0 15800 	.SBTTL	BOO$USEFILE - Use parameter file

                                     20D0 15900 ;++

                                     20D0 16000 ; Functional description:

                                     20D0 16100 ;	BOO$USEFILE reads the specified file in response to the USE

                                     20D0 16200 ;	command and merges all of the values specified in that file into

                                     20D0 16300 ;	the working copy of the parameter values.  This is accomplished

                                     20D0 16400 ;	by looking up each value specified and merging the associated 

                                     20D0 16500 ;	value.

                                     20D0 16600 ;

                                     20D0 16700 ; Calling sequence:

                                     20D0 16800 ;	CALLG	arglist,BOO$USEFILE

                                     20D0 16900 ;

                                     20D0 17000 ; Input Parameters:

                                     20D0 17100 ;	TPA$L_TOKENCNT(AP) - Length of file name string

                                     20D0 17200 ;	TPA$L_TOKENPTR(AP) - Address fo file name string

                                     20D0 17300 ; Output Parameters:

                                     20D0 17400 ;	R0 - Completion status code

                                     20D0 17500 ;

                                     20D0 17600 ;--

                                     20D0 17700 BOO$USEFILE::				;

                               03FC  20D0 17800 	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9>	; Entry mask

            57         10 AC     9E  20D2 17900 	MOVAB	TPA$L_TOKENCNT(AP),R7	; Set address of file name descriptor

                          DF27'  30  20D6 18000 	BSBW	BOO$FILOPEN		; Open specified file

            04            50     E8  20D9 18100 	BLBS	R0,20$			; Continue if success

            50            01     3C  20DC 18200 10$:	MOVZWL	#1,R0			; Force success

                                 04  20DF 18300 	RET				;

            56       DF1C CF     9E  20E0 18400 20$:	MOVAB	BOO$AB_PRMBUF,R6	; Set address of parameter buffer

            59            10     D0  20E5 18500 	MOVL	#16,R9			; Set size of buffer

                          DF15'  30  20E8 18600 	BSBW	BOO$READFILE		; Read file content into parameter buffer

            EE            50     E9  20EB 18700 	BLBC	R0,10$			; Exit if error

            58       DF0E CF     9E  20EE 18800 	MOVAB	BOO$AB_PRMBUF,R8	; Init pointer to parameter buffer

            68            20     28  20F3 18900 	MOVC3	#32,(R8),EXE$GT_STARTUP	; Set startup command file name

                 00000000'EF         20F6       

            58            20     C0  20FB 19000 	ADDL	#32,R8			;  and advance buffer pointer

                          68     D5  20FE 19100 30$:	TSTL	(R8)			; Check for end of list

                          20     13  2100 19200 	BEQL	DONE			; Branch if yes

         10 AC            68     9A  2102 19300 	MOVZBL	(R8),TPA$L_TOKENCNT(AP)	; Set token count for search

         14 AC         01 A8     9E  2106 19400 	MOVAB	1(R8),TPA$L_TOKENPTR(AP); And address of string

            58            10     C0  210B 19500 	ADDL	#16,R8			; Advance to value

         1C AC            88     D0  210E 19600 	MOVL	(R8)+,TPA$L_NUMBER(AP)	; Set number 

       0000'CF            6C     FA  2112 19700 	CALLG	(AP),W^BOO$SEARCH	; Search for parameter

            E4            50     E9  2117 19800 	BLBC	R0,30$			; Next parameter if not found

       0000'CF            6C     FA  211A 19900 	CALLG	(AP),W^BOO$SETVALUE	; Set value of parameter

                          FFDC   31  211F 20000 	BRW	30$			; Continue with next parameter

            50            01     3C  2122 20100 DONE:	MOVZWL	#1,R0			; Return success

                                 04  2125 20200 	RET				;

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page   6

04              BOO$FACMSG - Output facility error message                                                                       (1)



                                     2126 20400 	.SBTTL	BOO$FACMSG - Output facility error message

                                     2126 20500 ;

                                     2126 20600 ; Functional Description:

                                     2126 20700 ;	BOO$FACMSG outputs an error message preceded by the facility

                                     2126 20800 ;	name.

                                     2126 20900 ;

                                     2126 21000 ; Calling Sequence:

                                     2126 21100 ;	BSBW	BOO$FACMSG

                                     2126 21200 ;	.ASCIZ	string

                                     2126 21300 ;

                                     2126 21400 BOO$FACMSG::				;

                          DED7'  30  2126 21500 	BSBW	BOO$MSGOUT		;

                              0A 0D  2129 21600 	.ASCII	<CR><LF>		; New line

            00 4E 45 47 53 59 53 25  212B 21700 	.ASCIZ	/%SYSGEN/		; Facility name

                          DECA'  31  2133 21800 	BRW	BOO$MSGOUT		;

                                     2136 21900 

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page   7

04              BOO$CONFIGALL - Auto-configure all adapters                                                                      (1)



                                     2136 22100 	.SBTTL	BOO$CONFIGALL - Auto-configure all adapters

                                     2136 22200 ;++

                                     2136 22300 ; Functional Description:

                                     2136 22400 ;	BOO$CONFIGALL is called to implement the "AUTOCONFIGURE ALL"

                                     2136 22500 ;	command. All standard devices supported by VAX/VMS will be 

                                     2136 22600 ;	located and connected for use with any necessary drivers being

                                     2136 22700 ;	loaded.

                                     2136 22800 ;

                                     2136 22900 ; Calling Sequence:

                                     2136 23000 ;	CALLG	ARGLIST,BOO$CONFIGALL

                                     2136 23100 ;

                                     2136 23200 ; Output parameters:

                                     2136 23300 ;	R0 - Completion status code

                                     2136 23400 ;--

                                     2136 23500 BOO$CONFIGALL::				;

                               0FFC  2136 23600 	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>	; Entry mask

                          DEC5'  30  2138 23700 	BSBW	IOC$AUTORESET		; Reset controller characters for device

                                     213B 23800 					; names

                          5B     D4  213B 23900 	CLRL	R11			; Indicate no ADP address yet

                          5B     DD  213D 24000 10$:	PUSHL	R11			; Set as argument

   00002179'EF            01     FB  213F 24100 	CALLS	#1,NEXTADP		; Get next ADP address

            5B            50     D0  2146 24200 	MOVL	R0,R11			; Check return status

                          0C     18  2149 24300 	BGEQ	20$			; Branch if done

                          5B     DD  214B 24400 	PUSHL	R11			; Set as ADP argument

         B4'AF            01     FB  214D 24500 	CALLS	#1,B^CONFIGADP		; Configure the entire adapter

            E9            50     E8  2151 24600 	BLBS	R0,10$			; Continue if no error

                          0302   30  2154 24700 	BSBW	PUTERROR		; Report error

            50            01     D0  2157 24800 20$:	MOVL	#1,R0			; Set success

                                 04  215A 24900 	RET				;

                                     215B 25000 BOO$CONFIGONE::				;

                               0FFC  215B 25100 	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>	; Entry mask

                          DEA0'  30  215D 25200 	BSBW	IOC$AUTORESET		; Reset controller characters for device

                                     2160 25300 					; device names

                       1C AC     DD  2160 25400 	PUSHL	TPA$L_NUMBER(AP)	; Set TR number of adapter

         9D'AF            01     FB  2163 25500 	CALLS	#1,B^LOCADP		; Locate adapter control block

                          50     DD  2167 25600 	PUSHL	R0			; Set as argument to CONFIGADP

                          0A     13  2169 25700 	BEQL	10$			; Done if no adapter

         B4'AF            01     FB  216B 25800 	CALLS	#1,B^CONFIGADP		; Configure adapter

            03            50     E8  216F 25900 	BLBS	R0,10$			; Continue if no error

                          02E4   30  2172 26000 	BSBW	PUTERROR		; Give error status

            50            01     D0  2175 26100 10$:	MOVL	#1,R0			; Set success for parse

                                 04  2178 26200 20$:	RET				; 

                                     2179 26300 

                                     2179 26400 NEXTADP:				; Return next ADP address in R0

                               0000  2179 26500 	.WORD	0			; Null entry mask

                                     217B 26600 	$CMEXEC_S	B^10$,(AP)	; Call real routine in exec mode

                                 04  2187 26700 	RET				;

                               0000  2188 26800 10$:	.WORD	0			; Null entry mask

            50         04 AC     D0  218A 26900 	MOVL	4(AP),R0		; Get current address

                          05     13  218E 27000 	BEQL	20$			; 0 => start of list

            50         04 A0     D0  2190 27100 	MOVL	ADP$L_LINK(R0),R0	; Flink onward

                                 04  2194 27200 	RET				;

            50   00000000'EF     D0  2195 27300 20$:	MOVL	IOC$GL_ADPLIST,R0	; Return head of list

                                 04  219C 27400 	RET				;

                                     219D 27500 

                                     219D 27600 LOCADP:					; Return address of ADP for TR number

                               0000  219D 27700 	.WORD	0			;

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page   8

04              BOO$CONFIGALL - Auto-configure all adapters                                                                      (1)



            50   FFFFFFFC'EF     9E  219F 27800 	MOVAB	IOC$GL_ADPLIST-ADP$L_LINK,R0 ; Set starting address

            50         04 A0     D0  21A6 27900 10$:	MOVL	ADP$L_LINK(R0),R0	; Flink onward

                          07     13  21AA 28000 	BEQL	20$			; Done if at end

         0C A0         04 AC     B1  21AC 28100 	CMPW	4(AP),ADP$W_TR(R0)	; Is this the specified TR?

                          F3     12  21B1 28200 	BNEQ	10$			; No, try another

                                 04  21B3 28300 20$:	RET				;

                                     21B4 28400 

                               00FC  21B4 28500 CONFIGADP:	.WORD	^M<R2,R3,R4,R5,R6,R7>; Entry mask 

                     FEC2 CF     D4  21B6 28600 	CLRL	BOO$GL_RETSAVE		; Zap return address for initial call

         F7'AF            6C     FA  21BA 28700 10$:	CALLG	(AP),B^50$		; Call configure one device

            32            50     E9  21BE 28800 	BLBC	R0,45$			; Branch if done with this adapter

            55       FE8B CF     9E  21C1 28900 	MOVAB	BOO$AL_ACF,R5		; Set address of arguments describing device

            56       FE5A CF     D0  21C6 29000 	MOVL	W^BOO$GL_SELECT,R6	; Get pointer to select list

                          19     13  21CB 29100 	BEQL	35$			; Branch if null

            57         14 A5     D0  21CD 29200 20$:	MOVL	ACF$L_DEVNAME(R5),R7	; Get pointer to device name

            54            86     9A  21D1 29300 	MOVZBL	(R6)+,R4		; Get length of select entry

                          E4     13  21D4 29400 	BEQL	10$			; End of list, no match, try another device

            54            87     91  21D6 29500 	CMPB	(R7)+,R4		; Compare with device entry

                          06     19  21D9 29600 	BLSS	25$			; Branch if select longer than device

            66            54     29  21DB 29700 	CMPC3	R4,(R6),(R7)		; Do we have a match?

                          67         21DE       

                          05     13  21DF 29800 	BEQL	35$			; Yes include device

            56            54     C0  21E1 29900 25$:	ADDL	R4,R6			; Advance to next entry in select list

                          E7     11  21E4 30000 	BRB	20$			; And try again

       0000'CF            65     FA  21E6 30100 35$:	CALLG	(R5),W^IOGEN$LOADER	; Load database and driver if necessary

            CC            50     E8  21EB 30200 	BLBS	R0,10$			; Branch if no error

                          0268   30  21EE 30300 	BSBW	PUTERROR		; Give error message

                          C7     11  21F1 30400 	BRB	10$			; continue

            50            01     D0  21F3 30500 45$:	MOVL	#1,R0			; Set success

                                 04  21F6 30600 	RET				; and return

                               0000  21F7 30700 50$:	.WORD	0			; 

                                     21F9 30800 	$CMKRNL_S	B^55$,(AP)	; Call auto configure in kernel mode

                                 04  2205 30900 	RET				;

                               0FFC  2206 31000 55$:	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>	;

            50       FE70 CF     D0  2208 31100 	MOVL	BOO$GL_RETSAVE,R0	; Get saved return address

                          07     12  220D 31200 	BNEQ	60$			; Branch if one present

            50   00000000'EF     9E  220F 31300 	MOVAB	IOC$AUTOCONFIG,R0	; Else use main entry point

                          50     DD  2216 31400 60$:	PUSHL	R0			; Stack call back address

            58         04 AC     D0  2218 31500 	MOVL	4(AP),R8		; Get address of ADP

            56            68     D0  221C 31600 	MOVL	ADP$L_CSR(R8),R6	; Get Configuration register address

            57       FE2D CF     9E  221F 31700 	MOVAB	BOO$AL_ACF,R7		; Address of configuration control block

                                     2224 31800 	SETIPL	#31			; Disable interrupts

                          9E     16  2227 31900 	JSB	@(SP)+			; Call Auto configurtation code

                                     2229 32000 	SETIPL	#0			; Enable interrupts

       FE4B CF            8E     D0  222C 32100 	MOVL	(SP)+,BOO$GL_RETSAVE	; Save return

            04            50     E8  2231 32200 	BLBS	R0,70$			; Continue if another device

                     FE44 CF     D4  2234 32300 	CLRL	BOO$GL_RETSAVE		; Else clear return 

                                 04  2238 32400 70$:	RET				; And return

            50            01     3C  2239 32500 90$:	MOVZWL	#1,R0			; Set success status

                                 04  223C 32600 	RET				; and return

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page   9

04              Reset routines BOO$RESETLIST and BOO$CONRESET                                                                    (1)



                                     223D 32800 	.SBTTL	Reset routines BOO$RESETLIST and BOO$CONRESET

                                     223D 32900 ;

                                     223D 33000 ; BOO$CONRESET - Reset values for connect command

                                     223D 33100 ;

                                     223D 33200 BOO$CONRESET::				;

                               0000  223D 33300 	.WORD	0			; Null entry mask

       FDDA CF       DDBD CF     9E  223F 33400 	MOVAB	W^BOO$AB_PRMBUF,BOO$GL_NEXTSTR	; Reset for string allocation

       FDB9 CF            01     CE  2246 33500 	MNEGL	#1,BOO$GL_CONCREG	; Null control register

       FDC4 CF            01     CE  224B 33600 	MNEGL	#1,BOO$GL_CONAUNIT	; Null adapter unit

       FDB7 CF            01     CE  2250 33700 	MNEGL	#1,BOO$GL_CONVECT	; Null vector

       FDB6 CF            01     D0  2255 33800 	MOVL	#1,BOO$GL_CONNUMV	; Default number of vectors

                     FDBA CF     D4  225A 33900 	CLRL	BOO$GL_CONDEV		; Clear device name pointer

                     FDBA CF     D4  225E 34000 	CLRL	BOO$GL_CONDRV		; and driver name pointer

                                 04  2262 34100 	RET				; Return

                                     2263 34200 ;

                                     2263 34300 ;	BOO$RESETLIST - Reset select list values

                                     2263 34400 ;

                                     2263 34500 BOO$RESETLIST::				;

                               0000  2263 34600 	.WORD	0			; Null entry mask

                     FDBB CF     D4  2265 34700 	CLRL	BOO$GL_SELECT		; Zap select list pointer

       FDB0 CF       DD93 CF     9E  2269 34800 	MOVAB	BOO$AB_PRMBUF,BOO$GL_NEXTSTR ; Set next string address

                                 04  2270 34900 	RET				; and return

                                     2271 35000 

                                     2271 35100 ;

                                     2271 35200 ; BOO$MAKLIST - Make a select list entry

                                     2271 35300 ;

                                     2271 35400 BOO$MAKLIST::				;

                               007C  2271 35500 	.WORD	^M<R2,R3,R4,R5,R6>	; Entry mask

            56       FDA9 CF     D0  2273 35600 	MOVL	W^BOO$GL_NEXTSTR,R6	; Get pointer to next available string space

                     FDA8 CF     D5  2278 35700 	TSTL	W^BOO$GL_SELECT		; Is selection pointer already set

                          05     12  227C 35800 	BNEQ	10$			; Yes, continue to add entry

       FDA1 CF            56     D0  227E 35900 	MOVL	R6,W^BOO$GL_SELECT	; Else set pointer to first select entry

            50         10 AC     D0  2283 36000 10$:	MOVL	TPA$L_TOKENCNT(AP),R0	; Get string length

            86            50     90  2287 36100 	MOVB	R0,(R6)+		; Set count for string

         14 BC            50     28  228A 36200 	MOVC3	R0,@TPA$L_TOKENPTR(AP),(R6) ; Copy string body

                          66         228E       

                          63     94  228F 36300 	CLRB	(R3)			; Mark end of list

       FD8A CF            53     D0  2291 36400 	MOVL	R3,W^BOO$GL_NEXTSTR	; Save next string address

            50            01     D0  2296 36500 	MOVL	#1,R0			; Set success status

                                 04  2299 36600 	RET				;

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page  10

04              BOO$CONADP - Set connect adapter number                                                                          (1)



                                     229A 36800 	.SBTTL	BOO$CONADP - Set connect adapter number

                                     229A 36900 BOO$CONADP::				;

                                     229A 37000 BOO$SETADP::				;

                               0000  229A 37100 	.WORD	0			;

       FD5E CF         1C AC     D0  229C 37200 	MOVL	TPA$L_NUMBER(AP),W^BOO$GL_CONADP ; Set adapter number

                                 04  22A2 37300 	RET				; and return

                                     22A3 37400 

                                     22A3 37500 BOO$CONCREG::				; Control register address

                               0000  22A3 37600 	.WORD	0			; Null entry mask

            0D            00     EF  22A5 37700 	EXTZV	#0,#13,TPA$L_NUMBER(AP),W^BOO$GL_CONCREG; Set control register 

       FD57 CF         1C AC         22A8       

                                 04  22AD 37800 	RET				; and return

                                     22AE 37900 

                                     22AE 38000 BOO$CONCVEC::				; Set controller vector 

                               0000  22AE 38100 	.WORD	0			; Null entry mask

         1C AC   FFFFFE03 8F     CB  22B0 38200 	BICL3	#^XFFFFFE03,TPA$L_NUMBER(AP),W^BOO$GL_CONVECT ; Set vector offset

                     FD51 CF         22B8       

                                 04  22BB 38300 	RET				; and return

                                     22BC 38400 

                                     22BC 38500 BOO$CONCNUM::				; Number of vectors

                               0000  22BC 38600 	.WORD	0			; Null entry mask

       FD4C CF         1C AC     D0  22BE 38700 	MOVL	TPA$L_NUMBER(AP),W^BOO$GL_CONNUMV ; Set number of vectors

                                 04  22C4 38800 	RET				; and return

                                     22C5 38900 

                                     22C5 39000 BOO$CONAUNIT::				; Adapter unit number

                               0000  22C5 39100 	.WORD	0			; Null entry mask

       FD47 CF         1C AC     D0  22C7 39200 	MOVL	TPA$L_NUMBER(AP),W^BOO$GL_CONAUNIT; Set adapter unit number

                                 04  22CD 39300 	RET				; and return

                                     22CE 39400 

                                     22CE 39500 BOO$CONDRVNAM::				; Driver name

                               007C  22CE 39600 	.WORD	^M<R2,R3,R4,R5,R6>	; Entry mask (R2-R6)

            56       FD4C CF     D0  22D0 39700 	MOVL	W^BOO$GL_NEXTSTR,R6	; Address of next string storage

       FD42 CF            56     D0  22D5 39800 	MOVL	R6,BOO$GL_CONDRV	; Save pointer to driver name

            86         10 AC     90  22DA 39900 	MOVB	TPA$L_TOKENCNT(AP),(R6)+	; Set count for string

            56         10 AC     C1  22DE 40000 	ADDL3	TPA$L_TOKENCNT(AP),R6,BOO$GL_NEXTSTR ; Mark string allocated

                     FD3B CF         22E2       

         14 BC         10 AC     28  22E5 40100 	MOVC3	TPA$L_TOKENCNT(AP),@TPA$L_TOKENPTR(AP),(R6)	; Copy string

                          66         22EA       

            50            01     D0  22EB 40200 	MOVL	#1,R0			; and return success

                                 04  22EE 40300 	RET				;

                                     22EF 40400 

                                     22EF 40500 BOO$DEVNAME::				; Device name

                               007C  22EF 40600 	.WORD	^M<R2,R3,R4,R5,R6>	; Device name/unit

                          52     D4  22F1 40700 	CLRL	R2			; Initialize unit accumulator

            56       FD29 CF     D0  22F3 40800 	MOVL	BOO$GL_NEXTSTR,R6	; Get pointer to next available string

            55            86     9E  22F8 40900 	MOVAB	(R6)+,R5		; Save pointer to count byte

                          65     94  22FB 41000 	CLRB	(R5)			; Initialize count to zero

            54         14 AC     D0  22FD 41100 	MOVL	TPA$L_TOKENPTR(AP),R4	; Get pointer to string

            53         10 AC     D0  2301 41200 	MOVL	TPA$L_TOKENCNT(AP),R3	; And number of characters

            50            84     9A  2305 41300 10$:	MOVZBL	(R4)+,R0		; Get a character from device name

            30            50     91  2308 41400 	CMPB	R0,#^A/0/		; And check for a digit

                          05     1F  230B 41500 	BLSSU	20$			; Branch if not

            39            50     91  230D 41600 	CMPB	R0,#^A/9/		; Final check for digit

                          0D     1B  2310 41700 	BLEQU	40$			; Yes it is

            86            50     90  2312 41800 20$:	MOVB	R0,(R6)+		; Part of device name

                          65     96  2315 41900 	INCB	(R5)			; Increase count

            EB            53     F5  2317 42000 	SOBGTR	R3,10$			; Continue

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page  11

04              BOO$CONADP - Set connect adapter number                                                                          (1)



                          16     11  231A 42100 	BRB	50$			;

            50            84     9A  231C 42200 30$:	MOVZBL	(R4)+,R0		; Get another digit

            50            30     C2  231F 42300 40$:	SUBL	#^A/0/,R0		; Get value

            52            0A     C4  2322 42400 	MULL	#10,R2			; Scale accumulator before adding digit

                          27     19  2325 42500 	BLSS	60$			; Error

            50            09     D1  2327 42600 	CMPL	#9,R0			; Check for numeric

                          22     19  232A 42700 	BLSS	60$			; Error if not

            52            50     C0  232C 42800 	ADDL	R0,R2			; And add new digit

            EA            53     F5  232F 42900 	SOBGTR	R3,30$			; Continue for entire unit number

       FCE9 CF            56     D0  2332 43000 50$:	MOVL	R6,BOO$GL_NEXTSTR	; Save updated string pointer

       FCCC CF            52     D0  2337 43100 	MOVL	R2,BOO$GL_CONCUNIT	; Set unit number

       FCD3 CF            52     D0  233C 43200 	MOVL	R2,BOO$GL_CONAUNIT	; Assume same for adapter unit

       FCD2 CF            55     D0  2341 43300 	MOVL	R5,BOO$GL_CONDEV	; Save device name pointer

                          65     95  2346 43400 	TSTB	(R5)			; Must not be null device name

                          04     13  2348 43500 	BEQL	60$			; Error if so

            50            01     D0  234A 43600 	MOVL	#1,R0			; Return success

                                 04  234D 43700 	RET				; and return

                          50     D4  234E 43800 60$:	CLRL	R0			; Return error status

                                 04  2350 43900 	RET				;

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page  12

04              BOO$CONNECT - Connnect specified device and loa                                                                  (1)



                                     2351 44100 	.SBTTL	BOO$CONNECT - Connnect specified device and load driver

                                     2351 44200 ;

                                     2351 44300 ; BOO$CONNECT - Allows a single device to be introduced, appropriate data

                                     2351 44400 ;		structures allocated and initialized, the driver loaded if 

                                     2351 44500 ;		required and the controller and device initialized.

                                     2351 44600 ;

                                     2351 44700 BOO$CONNECT::				;

                               0FFC  2351 44800 	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>	;

                     FCA9 CF     D5  2353 44900 	TSTL	W^BOO$GL_CONADP		; Has an adapter been specified?

                          29     14  2357 45000 	BGTR	10$			; Continue if so

                                     2359 45100 	ERROR	<-E-No adapter TR number specified>	;

            50            01     D0  237E 45200 5$:	MOVL	#1,R0			; Success for parse

                                 04  2381 45300 	RET				;

                                     2382 45400 10$:	$CMEXEC_S	B^CONNECT	; Change mode to see data base

            01            50     E9  238E 45500 	BLBC	R0,20$			; Error occured

                                 04  2391 45600 	RET				; 

                          00C4   30  2392 45700 20$:	BSBW	PUTERROR		; Give error message

                          E7     11  2395 45800 	BRB	5$			;

                                     2397 45900 CONNECT:				;

                               0FFC  2397 46000 	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>	;

            5B   FFFFFFFC'GF     9E  2399 46100 	MOVAB	G^IOC$GL_ADPLIST-ADP$L_LINK,R11	; Get address of adapter list

            5B         04 AB     D0  23A0 46200 10$:	MOVL	ADP$L_LINK(R11),R11	; Flink onward through adapter list

                          03     12  23A4 46300 	BNEQ	15$			; Continue if another adapter

                          0084   31  23A6 46400 	BRW	40$			; No adapter with specified TR

       FC51 CF         0C AB     B1  23A9 46500 15$:	CMPW	ADP$W_TR(R11),W^BOO$GL_CONADP	; Is this the specified TR?

                          EF     12  23AF 46600 	BNEQ	10$			; No, try another

            5A       FC9B CF     9E  23B1 46700 	MOVAB	W^BOO$AL_ACF,R10	; Get address of ACF

            6A            5B     D0  23B6 46800 	MOVL	R11,ACF$L_ADAPTER(R10)	; Set address of ADP

         04 AA            6B     D0  23B9 46900 	MOVL	ADP$L_CSR(R11),ACF$L_CONFIGREG(R10)	; Set address of config reg

       FC3E CF            02     78  23BD 47000 	ASHL	#2,W^BOO$GL_CONADP,R0	; Get TR number*4

                          50         23C2       

            50       0100 8F     A1  23C3 47100 	ADDW3	#^X100,R0,ACF$W_AVECTOR(R10)	; Set SCB offset for adapter

                       08 AA         23C8       

         14 AA       FC4A CF     D0  23CA 47200 	MOVL	BOO$GL_CONDEV,ACF$L_DEVNAME(R10); Set pointer to device name

         18 AA       FC48 CF     D0  23D0 47300 	MOVL	BOO$GL_CONDRV,ACF$L_DRVNAME(R10); And driver name

                          1F     14  23D6 47400 	BGTR	20$				; Branch if driver specified

            56       FC44 CF     D0  23D8 47500 	MOVL	W^BOO$GL_NEXTSTR,R6	; Get address of next free space

         18 AA            56     D0  23DD 47600 	MOVL	R6,ACF$L_DRVNAME(R10)	; Set as driver name address

            86            08     90  23E1 47700 	MOVB	#8,(R6)+		; Set count for string

   66   52455649 52442020 8F     7D  23E4 47800 	MOVQ	#^A/  DRIVER/,(R6)	; Set driver suffix

            51         14 AA     D0  23EF 47900 	MOVL	ACF$L_DEVNAME(R10),R1	; Pointer to device name

            66         01 A1     B0  23F3 48000 	MOVW	1(R1),(R6)		; Form default driver name

         0A AA       FC19 CF     90  23F7 48100 20$:	MOVB	BOO$GL_CONAUNIT,ACF$B_AUNIT(R10); Set adapter unit

                       0B AA     94  23FD 48200 	CLRB	ACF$B_AFLAG(R10)	; Default flags

         10 AA       FC08 CF     B0  2400 48300 	MOVW	BOO$GL_CONVECT,ACF$W_CVECTOR(R10); Set vector address

       FBF5 CF   00001000 8F     C1  2406 48400 	ADDL3	#UBA_IOBASE,BOO$GL_CONCREG,ACF$L_CONTRLREG(R10); and control register address

                       0C AA         240F       

         0C AA         04 AA     C0  2411 48500 	ADDL	ACF$L_CONFIGREG(R10),ACF$L_CONTRLREG(R10) ; Add adapter va base

         12 AA       FBEE CF     90  2416 48600 	MOVB	BOO$GL_CONCUNIT,ACF$B_CUNIT(R10) ; Set controller unit number

         13 AA       FBF0 CF     90  241C 48700 	MOVB	BOO$GL_CONNUMV,ACF$B_CNUMVEC(R10); Set count of vectors

   00000000'EF            6A     FA  2422 48800 	CALLG	(R10),IOGEN$LOADER	; Load data base and driver

            00            50     E8  2429 48900 	BLBS	R0,30$			; Continue if no error

                                     242C 49000 30$:					;

                                 04  242C 49100 	RET				;

                          50     D4  242D 49200 40$:	CLRL	R0			; Return error status 

                                 04  242F 49300 	RET				;

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page  13

04              BOO$LOAD - Load a specified driver if not alrea                                                                  (1)



                                     2430 49500 	.SBTTL	BOO$LOAD - Load a specified driver if not already loaded

                                     2430 49600 ;

                                     2430 49700 ; BOO$LOAD - 	Loads the specified driver if not already loaded.

                                     2430 49800 ;

                                     2430 49900 BOO$LOAD::				;

                               0FFC  2430 50000 	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>

                          52     D4  2432 50100 	CLRL	R2			; Clear reload flag

                          05     11  2434 50200 	BRB	LOADRV			; And merge with common code

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page  14

04              BOO$RELOAD - Reload a specified driver                                                                           (1)



                                     2436 50400 	.SBTTL	BOO$RELOAD - Reload a specified driver

                                     2436 50500 ;

                                     2436 50600 ; BOO$RELOAD -	Reloads the specified driver replacing any existing copy

                                     2436 50700 ;		unless there are busy units requiring the driver that would

                                     2436 50800 ;		be replaced.

                                     2436 50900 ;

                                     2436 51000 BOO$RELOAD::				;

                               0FFC  2436 51100 	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>	;

            52            01     90  2438 51200 	MOVB	#ACF$M_RELOAD,R2	; Set flag to force reload

            5A       FC11 CF     9E  243B 51300 LOADRV:	MOVAB	W^BOO$AL_ACF,R10	; Get base address for ACF block

         18 AA       FBD8 CF     D0  2440 51400 	MOVL	BOO$GL_CONDRV,ACF$L_DRVNAME(R10)	;

         0B AA            52     90  2446 51500 	MOVB	R2,ACF$B_AFLAG(R10)	; Set flags for load or reload

                       14 AA     D4  244A 51600 	CLRL	ACF$L_DEVNAME(R10)	; No device name

       0000'CF            6A     FA  244D 51700 	CALLG	(R10),W^IOGEN$LOADER	; Load requested driver

            03            50     E8  2452 51800 	BLBS	R0,10$			; Continue if no error

                          0001   30  2455 51900 	BSBW	PUTERROR		; Give error message

                                 04  2458 52000 10$:	RET				;

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page  15

04              PUTERROR - Routine to print system message for                                                                   (1)



                                     2459 52200 	.SBTTL	PUTERROR - Routine to print system message for error code

                                     2459 52300 ;+

                                     2459 52400 ;  PUTERROR is called to output the text for the status code in R0.

                                     2459 52500 ;  This text is output to the logical name SYS$OUTPUT using SYS$PUTMSG.

                                     2459 52600 ;

                                     2459 52700 ; Input:

                                     2459 52800 ;	R0 - Error code

                                     2459 52900 ;

                                     2459 53000 ;-

                                     2459 53100 PUTERROR:				;

                          00     DD  2459 53200 	PUSHL	#0			; Number of FAO arguments

                          50     DD  245B 53300 	PUSHL	R0			; Status code value

                          02     DD  245D 53400 	PUSHL	#2			; count of message arguments

            51            5E     D0  245F 53500 	MOVL	SP,R1			; Save current place

                     FC1A CF     9F  2462 53600 	PUSHAB	W^FACNAMED		; Pointer to facility name descriptor

                          00     DD  2466 53700 	PUSHL	#0			; Null action routine address

                          51     DD  2468 53800 	PUSHL	R1			; Address of message vector

   00000000'EF            06     FB  246A 53900 	CALLS	#6,SYS$PUTMSG		; Output error message text

                                 05  2471 54000 	RSB				;

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page  16

04              BOO$GIVEHELP - Print Help information                                                                            (1)



                                     2472 54200 	.SBTTL	BOO$GIVEHELP - Print Help information

                                     2472 54300 ;

                                     2472 54400 ; 	Print Help Information

                                     2472 54500 ;

                               003C  2472 54600 BOO$GIVEHELP::	.WORD	^M<R2,R3,R4,R5>	;

                          7E     7C  2474 54700 	CLRQ	-(SP)			; Null input buffer

                       82'AF     9F  2476 54800 	PUSHAB	B^HELPMSG		; Set address of help message

       0000'CF            03     FB  2479 54900 	CALLS	#3,W^BOO$READPROMPT	; Write help message

            50            01     D0  247E 55000 	MOVL	#1,R0			; Return success

                                 04  2481 55100 	RET				;

                                     2482 55200 

                                     2482 55300 

                                     2482 55400 HELPMSG:				; ASCIZ Help message string

4E 45 47 53 59 53 20 72 6F 6A 61 4D  2482 55500 	.ASCII	/Major SYSGEN Commands are:/<CR><LF><LF>

72 61 20 73 64 6E 61 6D 6D 6F 43 20  248E       

                     0A 0A 0D 3A 65  249A       

43 20 2D 20 09 45 54 41 45 52 43 09  249F 55600 	.ASCII	/	CREATE	 - Create contiguous file/<CR><LF>

67 69 74 6E 6F 63 20 65 74 61 65 72  24AB       

   0A 0D 65 6C 69 66 20 73 75 6F 75  24B7       

20 45 54 41 45 52 43 20 20 20 20 09  24C2 55700 	.ASCII	\	    CREATE file_spec/SIZE=block_count\<CR><LF>

49 53 2F 63 65 70 73 5F 65 6C 69 66  24CE       

75 6F 63 5F 6B 63 6F 6C 62 3D 45 5A  24DA       

                        0A 0D 74 6E  24E6       

69 78 45 20 2D 20 09 54 49 58 45 09  24EA 55800 	.ASCII	/	EXIT	 - Exit SYSGEN utility/<CR><LF>

69 74 75 20 4E 45 47 53 59 53 20 74  24F6       

                  0A 0D 79 74 69 6C  2502       

20 74 65 53 20 2D 20 09 54 45 53 09  2508 55900 	.ASCII	/	SET	 - Set parameter value/<CR><LF>

61 76 20 72 65 74 65 6D 61 72 61 70  2514       

                     0A 0D 65 75 6C  2520       

72 61 70 20 54 45 53 20 20 20 20 09  2525 56000 	.ASCII	/	    SET parameter_name value/<CR><LF>

20 65 6D 61 6E 5F 72 65 74 65 6D 61  2531       

               0A 0D 65 75 6C 61 76  253D       

54 53 2F 20 54 45 53 20 20 20 20 09  2544 56100 	.ASCII	\	    SET /STARTUP file_spec\<CR><LF>

73 5F 65 6C 69 66 20 50 55 54 52 41  2550       

                     0A 0D 63 65 70  255C       

6F 68 53 20 2D 20 09 57 4F 48 53 09  2561 56200 	.ASCII	/	SHOW	 - Show parameter value(s)/<CR><LF>

20 72 65 74 65 6D 61 72 61 70 20 77  256D       

      0A 0D 29 73 28 65 75 6C 61 76  2579       

61 70 20 57 4F 48 53 20 20 20 20 09  2583 56300 	.ASCII	/	    SHOW parameter_name/<CR><LF>

65 6D 61 6E 5F 72 65 74 65 6D 61 72  258F       

                              0A 0D  259B       

6F 68 53 20 2D 20 50 43 41 2F 09 09  259D 56400 	.ASCII	\		/ACP - Show ACP parameters\<CR><LF>

65 6D 61 72 61 70 20 50 43 41 20 77  25A9       

                  0A 0D 73 72 65 74  25B5       

6F 68 53 20 2D 20 4C 4C 41 2F 09 09  25BB 56500 	.ASCII	\		/ALL - Show ALL parameters\<CR><LF>

65 6D 61 72 61 70 20 4C 4C 41 20 77  25C7       

                  0A 0D 73 72 65 74  25D3       

2D 20 53 45 43 49 56 45 44 2F 09 09  25D9 56600 	.ASCII	\		/DEVICES - Show device data base\<CR><LF>

65 63 69 76 65 64 20 77 6F 68 53 20  25E5       

0A 0D 65 73 61 62 20 61 74 61 64 20  25F1       

6F 68 53 20 2D 20 4E 45 47 2F 09 09  25FD 56700 	.ASCII	\		/GEN - Show generative parameters\<CR><LF>

65 76 69 74 61 72 65 6E 65 67 20 77  2609       

0D 73 72 65 74 65 6D 61 72 61 70 20  2615       

                                 0A  2621       

53 20 2D 20 52 4F 4A 41 4D 2F 09 09  2622 56800 	.ASCII	\		/MAJOR - Show MAJOR parameters\<CR><LF>

61 70 20 52 4F 4A 41 4D 20 77 6F 68  262E       

      0A 0D 73 72 65 74 65 6D 61 72  263A       

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page  17

04              BOO$GIVEHELP - Print Help information                                                                            (1)



53 20 2D 20 53 45 4D 41 4E 2F 09 09  2644 56900 	.ASCII	\		/NAMES - Show parameter names\<CR><LF>

65 74 65 6D 61 72 61 70 20 77 6F 68  2650       

         0A 0D 73 65 6D 61 6E 20 72  265C       

6F 68 53 20 2D 20 4C 51 50 2F 09 09  2665 57000 	.ASCII	\		/PQL - Show Process Quota List values\<CR><LF>

75 51 20 73 73 65 63 6F 72 50 20 77  2671       

6C 61 76 20 74 73 69 4C 20 61 74 6F  267D       

                     0A 0D 73 65 75  2689       

6F 68 53 20 2D 20 53 4D 52 2F 09 09  268E 57100 	.ASCII	\		/RMS - Show RMS parameters\<CR><LF>

65 6D 61 72 61 70 20 53 4D 52 20 77  269A       

                  0A 0D 73 72 65 74  26A6       

2D 20 50 55 54 52 41 54 53 2F 09 09  26AC 57200 	.ASCII	\		/STARTUP - Show Startup command file name\<CR><LF>

75 74 72 61 74 53 20 77 6F 68 53 20  26B8       

69 66 20 64 6E 61 6D 6D 6F 63 20 70  26C4       

         0A 0D 65 6D 61 6E 20 65 6C  26D0       

6F 68 53 20 2D 20 53 59 53 2F 09 09  26D9 57300 	.ASCII	\		/SYS - Show SYSTEM parameters\<CR><LF>

72 61 70 20 4D 45 54 53 59 53 20 77  26E5       

         0A 0D 73 72 65 74 65 6D 61  26F1       

20 74 65 53 20 2D 20 09 45 53 55 09  26FA 57400 	.ASCII	/	USE	 - Set parameter file name /<CR><LF>

69 66 20 72 65 74 65 6D 61 72 61 70  2706       

      0A 0D 20 65 6D 61 6E 20 65 6C  2712       

6C 69 66 20 45 53 55 20 20 20 20 09  271C 57500 	.ASCII	\	    USE file_spec \<CR><LF>

         0A 0D 20 63 65 70 73 5F 65  2728       

66 20 64 65 76 72 65 73 65 52 09 09  2731 57600 	.ASCII	/		Reserved filespecs are:/<CR><LF>

65 72 61 20 73 63 65 70 73 65 6C 69  273D       

                           0A 0D 3A  2749       

2D 20 54 4C 55 41 46 45 44 09 09 09  274C 57700 	.ASCII	/			DEFAULT - Use permanent defaults/<CR><LF>

65 6E 61 6D 72 65 70 20 65 73 55 20  2758       

0D 73 74 6C 75 61 66 65 64 20 74 6E  2764       

                                 0A  2770       

2D 20 54 4E 45 52 52 55 43 09 09 09  2771 57800 	.ASCII	/			CURRENT - Use current values/<CR><LF>

74 6E 65 72 72 75 63 20 65 73 55 20  277D       

         0A 0D 73 65 75 6C 61 76 20  2789       

72 57 20 2D 20 09 45 54 49 52 57 09  2792 57900 	.ASCII	\	WRITE	 - Write parameter file\<CR><LF>

65 74 65 6D 61 72 61 70 20 65 74 69  279E       

            0A 0D 65 6C 69 66 20 72  27AA       

66 20 45 54 49 52 57 20 20 20 20 09  27B2 58000 	.ASCIZ	\	    WRITE file_spec\<CR><LF>

   00 0A 0D 63 65 70 73 5F 65 6C 69  27BE       

                                     27C9 58100 

                                     27C9 58200 	.END	BOO$SYSGEN		;

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page  18

SYMBOL TABLE                                                                                                                     (1)



$CLI.          = 00002028 R     05   BOO$GL_CONADP    00002000 RG    05   CLI$K_ENDPRM2  = 00000031            

$CLI..         = 00002044 R     05   BOO$GL_CONAUNIT  00002014 RG    05   CLI$K_ENDPRM3  = 00000032            

ACF$B_AFLAG      0000000B            BOO$GL_CONCREG   00002004 RG    05   CLI$K_ENDPRM4  = 00000033            

ACF$B_AUNIT      0000000A            BOO$GL_CONCUNIT  00002008 RG    05   CLI$K_FILSPEC  = 00000044            

ACF$B_CNUMVEC    00000013            BOO$GL_CONDEV    00002018 RG    05   CLI$K_GETCMD   = 00000001            

ACF$B_CUNIT      00000012            BOO$GL_CONDRV    0000201C RG    05   CLI$K_GETOPT   = 00000003            

ACF$C_LENGTH     0000001C            BOO$GL_CONNUMV   00002010 RG    05   CLI$K_GETQUAL  = 00000002            

ACF$K_LENGTH     0000001C            BOO$GL_CONVECT   0000200C RG    05   CLI$K_INITPRS  = 00000000            

ACF$L_ADAPTER    00000000            BOO$GL_NEXTSTR   00002020 RG    05   CLI$K_INPSPEC  = 00000001            

ACF$L_CONFIGREG  00000004            BOO$GL_RETSAVE   0000207C RG    05   CLI$K_INPUT1   = 00000010            

ACF$L_CONTRLREG  0000000C            BOO$GL_SELECT    00002024 RG    05   CLI$K_INPUT2   = 00000011            

ACF$L_DEVNAME    00000014            BOO$GQ_CMDESC  = 00002030 RG    05   CLI$K_INPUT3   = 00000012            

ACF$L_DRVNAME    00000018            BOO$GQ_LIMITS    0000206C RG    05   CLI$K_INPUT4   = 00000013            

ACF$M_RELOAD   = 00000001            BOO$GQ_RETADR    00002074 RG    05   CLI$K_KEYVAL   = 00000043            

ACF$V_RELOAD   = 00000000            BOO$GT_PROMPT    00002044 RG    05   CLI$K_KEYWORD  = 00000042            

ACF$W_AVECTOR    00000008            BOO$HILIM        00000000 RG    04   CLI$K_NUMERVAL = 00000040            

ACF$W_CVECTOR    00000010            BOO$LOAD         00002430 RG    05   CLI$K_OUTPUT1  = 00000020            

ADP$B_NUMBER     0000000B            BOO$LOLIM        00000000 RG    03   CLI$K_OUTPUT2  = 00000021            

ADP$B_TYPE       0000000A            BOO$MAKLIST      00002271 RG    05   CLI$K_OUTPUT3  = 00000022            

ADP$C_MBAADPLEN  00000014            BOO$MSGOUT       ********   X   05   CLI$K_OUTPUT4  = 00000023            

ADP$C_NUMDATAP = 00000010            BOO$READFILE     ********   X   05   CLI$K_OUTSPEC  = 00000002            

ADP$C_UBAADPLEN  00000070            BOO$READPROMPT   ********   X   05   CLI$K_PARDONE  = 00000003            

ADP$K_MBAADPLEN  00000014            BOO$RELOAD       00002436 RG    05   CLI$K_QDBITS     00000014            

ADP$K_UBAADPLEN  00000070            BOO$RESETLIST    00002263 RG    05   CLI$K_QUALDEF    00000014            

ADP$L_CRB        00000010            BOO$SEARCH       ********   X   05   CLI$K_REQDESC    0000001C            

ADP$L_CSR        00000000            BOO$SETADP       0000229A RG    05   CLI$K_UTILOPR  = 00000000            

ADP$L_DPQBL      00000018            BOO$SETVALUE     ********   X   05   CLI$K_VALCONV  = 00000004            

ADP$L_DPQFL      00000014            BOO$SYSGEN       0000208E RG    05   CLI$K_VERB_FORE  ********   X   05   

ADP$L_INTD       00000064            BOO$USEFILE      000020D0 RG    05   CLI$K_WORKAREA   00000080            

ADP$L_LINK       00000004            CLI$A_ABSACT     00000014            CLI$L_CLIFLAG    00000018            

ADP$L_MRQBL      00000020            CLI$A_ERRACT     00000004            CLI$L_INIARGCNT  00000000            

ADP$L_MRQFL      0000001C            CLI$A_FLSACT     00000010            CLI$L_LINKFLAG   00000014            

ADP$L_VECTOR     00000010            CLI$A_IMGFILED   00000010            CLI$L_RQVALU     0000000C            

ADP$W_ADPTYPE    0000000E            CLI$A_IMGHDADR   0000000C            CLI$L_USRVAL     00000014            

ADP$W_DPBITMAP   00000024            CLI$A_PROGXFER   00000004            CLI$L_WORKAREA   00000000            

ADP$W_MRBITMAP   00000026            CLI$A_PRSACT     00000010            CLI$M_ABSADR   = 00000002            

ADP$W_SIZE       00000008            CLI$A_QDVALADR   00000008            CLI$M_ALLOCCUR = 00000001            

ADP$W_TR         0000000C            CLI$A_QUALST     00000018            CLI$M_BATCH    = 00000008            

BIT...         = 00000011            CLI$A_RQADDR     0000000C            CLI$M_CONCATINP= 00000002            

BOO$AB_PRMBUF    00000000 RG    05   CLI$A_TRUACT     0000000C            CLI$M_DBGEXCP  = 00010000            

BOO$AL_ACF       00002050 RG    05   CLI$A_UTILSERV   00000008            CLI$M_DBGTRU   = 00000002            

BOO$AL_CLIBLK    00002028 RG    05   CLI$B_BITNUM     00000001            CLI$M_DEBUG    = 00000001            

BOO$CONADP       0000229A RG    05   CLI$B_QDBLKSIZ   00000000            CLI$M_DUMMY    = 00000002            

BOO$CONAUNIT     000022C5 RG    05   CLI$B_QDCODE     00000001            CLI$M_EXPNAM   = 00000004            

BOO$CONCNUM      000022BC RG    05   CLI$B_QDFLGS     00000002            CLI$M_INDIRECT = 00000010            

BOO$CONCREG      000022A3 RG    05   CLI$B_QDSTAT     00000003            CLI$M_KEYVALU  = 00000002            

BOO$CONCVEC      000022AE RG    05   CLI$B_RQFLGS     00000002            CLI$M_LASTVAL  = 00000001            

BOO$CONDRVNAM    000022CE RG    05   CLI$B_RQINDX     00000001            CLI$M_MOREINP  = 00000004            

BOO$CONFIGALL    00002136 RG    05   CLI$B_RQSTAT     00000003            CLI$M_MOREVALS = 00000001            

BOO$CONFIGONE    0000215B RG    05   CLI$B_RQTYPE     00000000            CLI$M_PARMDEF  = 00000008            

BOO$CONNECT      00002351 RG    05   CLI$C_QDBITS     00000014            CLI$M_PARMPRS  = 00000001            

BOO$CONRESET     0000223D RG    05   CLI$C_QUALDEF    00000014            CLI$M_PARMREQ  = 00000001            

BOO$DEVNAME      000022EF RG    05   CLI$C_REQDESC    0000001C            CLI$M_QDEXPA   = 00000004            

BOO$FACMSG       00002126 RG    05   CLI$C_WORKAREA   00000080            CLI$M_QDUSRV   = 00000002            

BOO$FILOPEN      ********   X   05   CLI$K_ASCIIVAL = 00000041            CLI$M_QUALEXP  = 00000002            

BOO$GETPARAM     ********   X   05   CLI$K_CLISERV  = 00000005            CLI$M_QUALTRU  = 00000001            

BOO$GIVEHELP     00002472 RG    05   CLI$K_ENDPRM1  = 00000030            CLI$M_TRMVRBLV = 00000300            

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page  19

SYMBOL TABLE                                                                                                                     (1)



CLI$M_VERIFY   = 00000004            PR$_ASTLVL     = 00000013            PRM$M_PQL      = 00000800            

CLI$M_VFYINP   = 00000020            PR$_ESP        = 00000001            PRM$M_RMS      = 00000020            

CLI$Q_QDVALDESC  00000004            PR$_ICCS       = 00000018            PRM$M_SPECIAL  = 00000080            

CLI$Q_RQDESC     00000008            PR$_ICR        = 0000001A            PRM$M_STATIC   = 00000002            

CLI$S_PRITYP   = 00000004            PR$_IPL        = 00000012            PRM$M_SYS      = 00000040            

CLI$S_SUBTYP   = 00000004            PR$_ISP        = 00000004            PRM$M_SYSGEN   = 00000004            

CLI$S_TRMVRBLV = 00000002            PR$_KSP        = 00000000            PRM$T_NAME       00000014            

CLI$V_ABSADR   = 00000001            PR$_MAPEN      = 00000038            PRM$T_UNIT       00000024            

CLI$V_ALLOCCUR = 00000000            PR$_NICR       = 00000019            PRM$V_ACP      = 00000003            

CLI$V_BATCH    = 00000003            PR$_P0BR       = 00000008            PRM$V_CONTROL  = 00000009            

CLI$V_CONCATINP= 00000001            PR$_P0LR       = 00000009            PRM$V_DISPLAY  = 00000008            

CLI$V_DBGEXCP  = 00000010            PR$_P1BR       = 0000000A            PRM$V_DYNAMIC  = 00000000            

CLI$V_DBGTRU   = 00000001            PR$_P1LR       = 0000000B            PRM$V_JBC      = 00000004            

CLI$V_DEBUG    = 00000000            PR$_PCBB       = 00000010            PRM$V_MAJOR    = 0000000A            

CLI$V_DUMMY    = 00000001            PR$_PME        = 0000003D            PRM$V_NEG      = 0000000C            

CLI$V_EXPNAM   = 00000002            PR$_RXCS       = 00000020            PRM$V_PQL      = 0000000B            

CLI$V_INDIRECT = 00000004            PR$_RXDB       = 00000021            PRM$V_RMS      = 00000005            

CLI$V_KEYVALU  = 00000001            PR$_SBIER      = 00000034            PRM$V_SPECIAL  = 00000007            

CLI$V_LASTVAL  = 00000000            PR$_SBIFS      = 00000030            PRM$V_STATIC   = 00000001            

CLI$V_MOREINP  = 00000002            PR$_SBIMT      = 00000033            PRM$V_SYS      = 00000006            

CLI$V_MOREVALS = 00000000            PR$_SBIQC      = 00000036            PRM$V_SYSGEN   = 00000002            

CLI$V_PARMDEF  = 00000003            PR$_SBIS       = 00000031            PRM$W_FLAGS      00000010            

CLI$V_PARMPRS  = 00000000            PR$_SBISC      = 00000032            PUTERROR         00002459 R     05   

CLI$V_PARMREQ  = 00000000            PR$_SBITA      = 00000035            RMS$_EOF         ********   X   05   

CLI$V_PRITYP   = 00000004            PR$_SBR        = 0000000C            SYS$CMEXEC       ********   X   05   

CLI$V_QDEXPA   = 00000002            PR$_SCBB       = 00000011            SYS$CMKRNL       ********   X   05   

CLI$V_QDUSRV   = 00000001            PR$_SID        = 0000003E            SYS$LKWSET       ********   X   05   

CLI$V_QUALEXP  = 00000001            PR$_SIRR       = 00000014            SYS$PUTMSG       ********   X   05   

CLI$V_QUALTRU  = 00000000            PR$_SISR       = 00000015            TPA$B_MCOUNT     00000007            

CLI$V_SUBTYP   = 00000000            PR$_SLR        = 0000000D            TPA$C_LENGTH0    00000024            

CLI$V_TRMVRBLV = 00000008            PR$_SSP        = 00000002            TPA$K_COUNT0   = 00000008            

CLI$V_VERIFY   = 00000002            PR$_TBIA       = 00000039            TPA$K_LENGTH0    00000024            

CLI$V_VFYINP   = 00000005            PR$_TBIS       = 0000003A            TPA$L_CHAR       00000018            

CLI$W_QDVALSIZ   00000004            PR$_TODR       = 0000001B            TPA$L_COUNT      00000000            

CLI$W_RQSIZE     00000008            PR$_TXCS       = 00000022            TPA$L_NUMBER     0000001C            

CLI$W_SERVCOD    00000001            PR$_TXDB       = 00000023            TPA$L_OPTIONS    00000004            

CONFIGADP        000021B4 R     05   PR$_USP        = 00000003            TPA$L_PARAM      00000020            

CONNECT          00002397 R     05   PR$_WCSA       = 0000002C            TPA$L_STRINGCNT  00000008            

CR             = 0000000D            PR$_WCSD       = 0000002D            TPA$L_STRINGPTR  0000000C            

DONE             00002122 R     05   PRM$B_POS        00000013            TPA$L_TOKENCNT   00000010            

EXE$GT_STARTUP   ********   X   05   PRM$B_SIZE       00000012            TPA$L_TOKENPTR   00000014            

FACNAME          00002088 R     05   PRM$C_BYTE     = 00000008            TPA$M_ABBREV   = 00000002            

FACNAMED         00002080 R     05   PRM$C_LENGTH     00000030            TPA$M_ABBRFM   = 00000004            

FACNAMSZ       = 00000006            PRM$C_LONG     = 00000020            TPA$M_AMBIG    = 00010000            

FF             = 0000000C            PRM$C_WORD     = 00000010            TPA$M_BLANKS   = 00000001            

GBL...         = 00000000            PRM$K_LENGTH     00000030            TPA$V_ABBREV   = 00000001            

HELPMSG          00002482 R     05   PRM$L_ADDR       00000000            TPA$V_ABBRFM   = 00000002            

IOC$AUTOCONFIG   ********   X   05   PRM$L_DEFAULT    00000004            TPA$V_AMBIG    = 00000010            

IOC$AUTORESET    ********   X   05   PRM$L_MAX        0000000C            TPA$V_BLANKS   = 00000000            

IOC$GL_ADPLIST   ********   X   05   PRM$L_MIN        00000008            UBA_IOBASE     = 00001000            

IOGEN$LOADER     ********   X   05   PRM$M_ACP      = 00000008            

LF             = 0000000A            PRM$M_CONTROL  = 00000200            

LOADRV           0000243B R     05   PRM$M_DISPLAY  = 00000100            

LOCADP           0000219D R     05   PRM$M_DYNAMIC  = 00000001            

NEXTADP          00002179 R     05   PRM$M_JBC      = 00000010            

PR$_ACCR       = 00000029            PRM$M_MAJOR    = 00000400            

PR$_ACCS       = 00000028            PRM$M_NEG      = 00001000            

SYSGEN          - SYSGEN UTILITY AND PARAMETER FILE EDITOR       21-AUG-1978 22:33:34   VAX-11 MACRO X0.3-11               Page  20

PROGRAM SECTION SYNOPSIS                                                                                                         (1)







PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

$ABS$            00000080      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

$$$$000          00000000      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD  NOWRT BYTE  

____ZZZ          00000000      04     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT PAGE  

BOO$SYSGEN       000027C9      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

16260. BYTES LEFT IN FREE MEMORY POOL.

620. BYTES OF RECLAIMED MEMORY.

OBJ$:SYSGEN,LIS$:SYSGEN/-SP=EXECML$/ML,SRC$:SYSGEN

14 MLB DIR RDS - 531 GETS TO DEFINE 24 MACROS. 41 INTER. FILE WRITES. 

