SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)    2000  DECLARATIONS

   (1)   16750  SYSTEM INITIALIZATION PROCESS

   (1)   23250  SIP_CRESYSPRC - CREATE A SYSTEM PROCESS

   (1)   26100  SIP_CREATELOG - CREATE SYSTEM WIDE LOGICAL NAME

   (1)   28300  SYSTEM INITIALIZATION KERNEL LEVEL

   (1)   40900  SIP MAP SYSTEM SECTION

   (1)   43800  SIP_INIWCB - ALLOCATE AND INIT A WINDOW CONTROL

   (1)   45150  SIP MAKE KNOWN FILE ENTRY FOR FCP

   (1)   45750  SIP ERROR/MESSAGE OUTPUT

   (1)   49550  SIP_SETTIME  -  SET SYSTEM TIME TO CORRECT VALU

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page   1

02.08                                                                                                                            (1)



                                     0000    50 	.TITLE	SYSINIT	- SYSTEM INITIALIZATION PROCESS

                                     0000   100 	.IDENT	/02.08/

                                     0000   150 ;

                                     0000   200 ; COPYRIGHT (C) 1977,1978

                                     0000   250 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000   300 ;

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

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

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

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

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

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

                                     0000   650 ; REMAIN IN DEC.

                                     0000   700 ;

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

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

                                     0000   850 ; CORPORATION.

                                     0000   900 ;

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

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

                                     0000  1050 

                                     0000  1100 ;++

                                     0000  1150 ; FACILITY:	SYSTEM INITIALIZATION

                                     0000  1200 ;

                                     0000  1250 ; ABSTRACT:	PERFORMS OPERATIONS NECESSARY TO GET

                                     0000  1300 ;		THE SYSTEM TO A POINT THAT IT CAN

                                     0000  1350 ;		SUPPORT ITSELF.

                                     0000  1400 ;

                                     0000  1450 ; ENVIRONMENT:	OPERATES WITHIN THE LIMITED CAPABILITIES

                                     0000  1500 ;		THE BOOT STRAPPED OPERATING SYSTEM.

                                     0000  1550 ;

                                     0000  1600 ; AUTHOR:  W.H.BROWN, CREATION DATE:  6-JAN-77

                                     0000  1650 ;

                                     0000  1700 ; MODIFIED BY:

                                     0000  1750 ;

                                     0000  1800 ;	, : VERSION

                                     0000  1850 ; 01	- 

                                     0000  1900 ;--

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page   2

02.08           DECLARATIONS                                                                                                     (1)



                                     0000  2000 	.SBTTL	DECLARATIONS

                                     0000  2050 ;

                                     0000  2100 ; INCLUDE FILES:	NONE

                                     0000  2150 

                                     0000  2200 ;

                                     0000  2250 ; MACROS:

                                     0000  2300 ;

                                     0000  2350 ;

                                     0000  2400 ; PROGRAM SECTION DEFINITION MACROS

                                     0000  2450 ;	ARGUMENTS ARE:

                                     0000  2500 ;		1) SECTION NAME (KEY WORD IS NAME)

                                     0000  2550 ;		2) ALIGNMENT    (KEY WORD IS ALIGN)

                                     0000  2600 ;

                                     0000  2650 ;	IN ALL CASE, ARGUMENTS ARE OPTIONAL

                                     0000  2700 ;

                                     0000  2750 ; MACRO TO GENERATE A PROGRAM SECTION FOR EXECUTABLE CODE

                                     0000  2800 ;

                                     0000  2850 	.MACRO	PURE_SECT NAME=SIP_PURE,ALIGN=BYTE

                                     0000  2900  

                                     0000  2950 	.PSECT	NAME	EXE,RD,NOWRT,ALIGN

                                     0000  3000  

                                     0000  3050 	.ENDM	PURE_SECT

                                     0000  3100 ;

                                     0000  3150 ; MACRO TO GENERATE IMPURE DATA SEGMENT

                                     0000  3200 ;

                                     0000  3250 	.MACRO	IMPURE_DATA  NAME=SIP_RWDATA,ALIGN=LONG

                                     0000  3300  

                                     0000  3350 	.PSECT	NAME	NOEXE,WRT,RD,ALIGN

                                     0000  3400  

                                     0000  3450 	.ENDM	IMPURE_DATA

                                     0000  3500 ;

                                     0000  3550 ; MACRO TO GENERATE A STRING WITH DESCRIPTOR

                                     0000  3600 ;

                                     0000  3650 ;	STRING_DESC <STRING> 

                                     0000  3700 ;

                                     0000  3750 ; WHERE:

                                     0000  3800 ;	<STRING> IS THE STRING TO BE USED

                                     0000  3850 ;

                                     0000  3900 	.MACRO	STRING_DESC ST,?L1,?L2

                                     0000  3950  

                                     0000  4000 	.LONG	L2-L1

                                     0000  4050 	.LONG	L1

                                     0000  4100 L1:	.ASCII	\ST\

                                     0000  4150 L2:

                                     0000  4200  

                                     0000  4250 	.ENDM

                                     0000  4300 

                                     0000  4350 ;

                                     0000  4400 ; MACRO TO GENERATE A LIST OF SELFRELATIVE WORD POINTERS

                                     0000  4450 ;

                                     0000  4500 	.MACRO	OFFSET	LIST

                                     0000  4550 	.IRP	$$$,<LIST>

                                     0000  4600 	.WORD	<$$$-.-2>

                                     0000  4650 	.ENDR

                                     0000  4700 	.ENDM	OFFSET

                                     0000  4750 ;

                                     0000  4800 ; MACRO TO GENERATE THE REQUIRED DATA TO CREATE A SYSTEM PROCESS

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page   3

02.08           DECLARATIONS                                                                                                     (1)



                                     0000  4850 ;

                                     0000  4900 	.MACRO	SIP_CRESYSPRC	PRCNAM,FILNAM,-

                                     0000  4950 			BASPRI=8,UIC=<<1@16>!4>

                                     0000  5000 	BSBW	SIP_CRESYSPRC

                                     0000  5050 	.ASCIC	\PRCNAM\

                                     0000  5100 	.ASCIC	\FILNAM\

                                     0000  5150 	.BYTE	BASPRI

                                     0000  5200 	.LONG	UIC

                                     0000  5250 	.ENDM

                                     0000  5300 

                                     0000  5350 ;

                                     0000  5400 ; MACRO TO GENERATE QUOTA LIST

                                     0000  5450 ;

                                     0000  5500 	.MACRO	PQL QUOTA,VALUE

                                     0000  5550 	.BYTE	PQL$_'QUOTA

                                     0000  5600 	.LONG	VALUE

                                     0000  5650 	.ENDM	PQL

                                     0000  5700  

                                     0000  5750 ;

                                     0000  5800 ; EQUATED SYMBOLS:

                                     0000  5850 ;

                                     0000  5900 	$SFTDEF				; SWAP FILE TABLE DEFINITIONS

                                     0000  5950 	$EMBDEF				; ERROR LOG MESSAGE BUFFER FORMAT

                                     0000  6000 	$ERLDEF				; ERROR LOG BUFFER DEFINITIONS

                                     0000  6050 	$IPLDEF				; DEFINE INTERRUPT PRIORITY LEVELS

                                     0000  6100 	$KFIDEF				; KNOWN FILE ENTRY DEFINITIONS

                                     0000  6150 	$KFPDEF				; KNOWN FILE POINTER BLOCK DEFINITIONS

                                     0000  6200 	$LOGDEF				; DEFINE LOG OFFSETS

                                     0000  6250 	$PCBDEF				; DEFINE PCB OFFSETS

                                     0000  6300 	$PFLDEF				; PAGE FILE OFFSET DEFINITONS

                                     0000  6350 	$PHDDEF				; DEFINE PROCESS HEADER OFFSETS

                                     0000  6400 	$PQLDEF				; DEFINE PROCESS QUOTA LIST CODES

                                     0000  6450 	$PRDEF				; PROCESSOR REGISTER DEFINITIONS

                                     0000  6500 	$PTEDEF				; PAGE TABLE ENTRY DEFINITIONS

                                     0000  6550 	$SECDEF				; DEFINE PROCESS SECTION

                                     0000  6600 	$TQEDEF				; DEFINE TIMER QUEUE ENTRY OFFSETS

                                     0000  6650 	$UCBDEF				; UNIT CONTROL BLOCK DEFINITIONS

                                     0000  6700 	$DEVDEF				; DEVICE BIT DEFINITIONS

                                     0000  6750 	$VADEF				; DEFINE VIRTUAL ADDRESS FIELDS

                                     0000  6800 

                                     0000  6850 ;

                                     0000  6900 ; OWN STORAGE:

                                     0000  6950 ;

                                     0000  7000 	PURE_SECT

                                     0000  7050  

                                     0000  7100 SIP_Q_TTNAME:

                                     0000  7150 	STRING_DESC	<OPA0>		; DEVICE NAME FOR TERMINAL

                                     000C  7200  

                                     000C  7250 SIP_Q_DSKNAME:

                                     000C  7300 	STRING_DESC	<SYS$DISK>	; DEVICE NAME FOR DISK

                                     001C  7350  

                                     001C  7400 SIP_Q_SYSTEM:				; SYSTEM LOGICAL NAME

                                     001C  7450 	STRING_DESC	<SYS$SYSTEM>	;

                                     002E  7500  

                                     002E  7550 SIP_Q_STARTUP:				; STARTUP PROCESS NAME

                                     002E  7600 	STRING_DESC	<STARTUP>	;

                                     003D  7650 

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page   4

02.08           DECLARATIONS                                                                                                     (1)



                                     003D  7700 

                                     003D  7750 SIP_Q_SPOUTPUT:				; STARTUP PROCESS OUTPUT

                                     003D  7800 	STRING_DESC	<OPA0:>		; CONSOLE

                                     004A  7850 

                                     004A  7900 SIP_Q_SPIMAGE:				; STARTUP PROCESS IMAGE

                                     004A  7950 	STRING_DESC	<SYS$SYSTEM:LOGINOUT.EXE>	; NORMAL LOGINOUT IMAGE

                                     0069  8000 SIP_Q_SYSUAF:				; SYSUAF NAME STRING

                                     0069  8050 	STRING_DESC	<SYSUAF>	;

                                     0077  8100 

                                     0077  8150 SIP_Q_SYSUAFALT:			; SYSUAF ALTERNATE NAME

                                     0077  8200 	STRING_DESC	<SYSUAFALT>	;

                                     0088  8250 

                                     0088  8300  

                                     0088  8350 SIP_Q_PRVMSK:

                  FFFFFFFF FFFFFFFF  0088  8400 	.LONG	-1,-1			; INITIAL PRIVLEDGES

                                     0090  8450  

                                     0090  8500 

                                     0090  8550 SIP_A_PQL:				; PROCESS QUOTA LIST

                                     0090  8600 	PQL	ASTLM,64		; LARGE ASTLIMIT

                                     0095  8650 	PQL	BYTLM,40960		; LARGE BYTE LIMIT

                                     009A  8700 	PQL	FILLM,64		; LARGE FILE LIMIT

                                     009F  8750 	PQL	PGFLQUOTA,20480		; LARGE VIRTUAL SPACE

                                     00A4  8800 	PQL	TQELM,64		; LARGE TIME QUEUE ENTRY QUOTA

                                     00A9  8850 	PQL	WSDEFAULT,100		; LARGE WORKING SET

                                     00AE  8900 	PQL	WSQUOTA,512		; LARGE MAXIMUM WORKING SET

                                     00B3  8950 	PQL	PRCLM,64		; ALLOW MANY SUB-PROCESSES

                                     00B8  9000 	PQL	LISTEND,0		; LIST TERMINATOR

                                     00BD  9050  

                                     00BD  9100 FAOERR:	STRING_DESC  <SYSINIT - !AC, !XL>

                                     00D7  9150  

                                     00D7  9200 PAGFILERR:

6C 69 61 66 20 70 75 6B 6F 6F 6C 00' 00D7  9250 	.ASCIC	\lookup failure on paging file\

6E 69 67 61 70 20 6E 6F 20 65 72 75  00E3       

                  65 6C 69 66 20 67  00EF       

                                 1D  00D7       

                                     00F5  9300 DMPFILERR:

6C 69 61 66 20 70 75 6B 6F 6F 6C 00' 00F5  9350 	.ASCIC	\lookup failure on SYSDMP file\

4D 44 53 59 53 20 6E 6F 20 65 72 75  0101       

                  65 6C 69 66 20 50  010D       

                                 1D  00F5       

                                     0113  9400 SWPFILERR:

6C 69 61 66 20 70 75 6B 6F 6F 6C 00' 0113  9450 	.ASCIC	\lookup failure on system swap file\

65 74 73 79 73 20 6E 6F 20 65 72 75  011F       

   65 6C 69 66 20 70 61 77 73 20 6D  012B       

                                 22  0113       

                                     0136  9500 RMSFILERR:

6C 69 61 66 20 70 75 6B 6F 6F 6C 00' 0136  9550 	.ASCIC	\lookup failure on RMS image\

69 20 53 4D 52 20 6E 6F 20 65 72 75  0142       

                        65 67 61 6D  014E       

                                 1B  0136       

                                     0152  9600 MSGFILERR:

6C 69 61 66 20 70 75 6B 6F 6F 6C 00' 0152  9650 	.ASCIC	\lookup failure on system message file, SYSMSG.MPF\

65 74 73 79 73 20 6E 6F 20 65 72 75  015E       

69 66 20 65 67 61 73 73 65 6D 20 6D  016A       

4D 2E 47 53 4D 53 59 53 20 2C 65 6C  0176       

                              46 50  0182       

                                 31  0152       

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page   5

02.08           DECLARATIONS                                                                                                     (1)



                                     0184  9700  

                                     0184  9750 ACPINIERR:

74 69 6E 69 20 50 43 41 31 31 46 00' 0184  9800 	.ASCIC	\F11ACP initialization error\

65 20 6E 6F 69 74 61 7A 69 6C 61 69  0190       

                        72 6F 72 72  019C       

                                 1B  0184       

                                     01A0  9850  

74 6E 75 6F 6D 20 72 6F 72 72 65 00' 01A0  9900 MOUERR:	.ASCIC	\error mounting system device\

64 20 6D 65 74 73 79 73 20 67 6E 69  01AC       

                     65 63 69 76 65  01B8       

                                 1C  01A0       

                                     01BD  9950  

                                     01BD 10000 INIPAGFIL:				; ERROR INITIALIZING THE PAGE FILE

69 20 65 6C 69 66 20 65 67 61 70 00' 01BD 10050 	.ASCIC	\page file initialization error\

6F 69 74 61 7A 69 6C 61 69 74 69 6E  01C9       

               72 6F 72 72 65 20 6E  01D5       

                                 1E  01BD       

                                     01DC 10100  

                                     01DC 10150 RMSMAPERR:				; ERROR ON RMS FILE MAP

69 70 70 61 6D 20 72 6F 72 72 65 00' 01DC 10200 	.ASCIC	\error mapping RMS\

                  53 4D 52 20 67 6E  01E8       

                                 11  01DC       

                                     01EE 10250  

                                     01EE 10300 MAPSECERR:				; ERROR MAPPING A SYSTEM SECTION

69 70 70 61 6D 20 72 6F 72 72 65 00' 01EE 10350 	.ASCIC	\error mapping section\

      6E 6F 69 74 63 65 73 20 67 6E  01FA       

                                 15  01EE       

                                     0204 10400  

                                     0204 10450 INIWCBERR:				; ERROR INITING A WINDOW CONTROL BLOCK

69 74 69 6E 69 20 72 6F 72 72 65 00' 0204 10500 	.ASCIC	\error initing a WCB\

            42 43 57 20 61 20 67 6E  0210       

                                 13  0204       

                                     0218 10550  

74 61 64 20 64 69 6C 61 76 6E 69 00' 0218 10600 TIMERR:	.ASCIC	\invalid date/time\	;

                  65 6D 69 74 2F 65  0224       

                                 11  0218       

                                     022A 10650  

                                     022A 10700 INIKNOWNFIL:

20 65 6C 69 66 20 6E 77 6F 6E 6B 00' 022A 10750 	.ASCIC	\known file list initialization error\

6C 61 69 74 69 6E 69 20 74 73 69 6C  0236       

6F 72 72 65 20 6E 6F 69 74 61 7A 69  0242       

                                 72  024E       

                                 24  022A       

                                     024F 10800 

            5D 45 58 45 53 59 53 5B  024F 10850 SYSUIC:	.ASCII	\[SYSEXE]\		; SYSTEM DIRECTORY UIC

                           00000008  0257 10900 	SYSUICSIZ=.-SYSUIC

                                     0257 10950 TIMEPROMPT:

                                 33' 0257 11000 	.BYTE	NPROMPT

54 4E 45 20 45 53 41 45 4C 50 0A 0D  0258 11050 	.ASCII	<13><10>/PLEASE ENTER DATE AND TIME (DD-MMM-YYYY  HH:MM)  /

20 44 4E 41 20 45 54 41 44 20 52 45  0264       

4D 4D 4D 2D 44 44 28 20 45 4D 49 54  0270       

4D 4D 3A 48 48 20 20 59 59 59 59 2D  027C       

                           20 20 29  0288       

                           00000033  028B 11100 NPROMPT=.-TIMEPROMPT-1

                                     028B 11150  

                                     028B 11200 PAGFILNAM:

59 53 2E 45 4C 49 46 45 47 41 50 00' 028B 11250 	.ASCIC	\PAGEFILE.SYS\

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page   6

02.08           DECLARATIONS                                                                                                     (1)



                                 53  0297       

                                 0C  028B       

                                     0298 11300 DMPFILNAM:

50 4D 44 2E 50 4D 55 44 53 59 53 00' 0298 11350 	.ASCIC	\SYSDUMP.DMP\

                                 0B  0298       

                                     02A4 11400 SWPFILNAM:

59 53 2E 45 4C 49 46 50 41 57 53 00' 02A4 11450 	.ASCIC	\SWAPFILE.SYS\

                                 53  02B0       

                                 0C  02A4       

                                     02B1 11500 RMSFILNAM:

            45 58 45 2E 53 4D 52 00' 02B1 11550 	.ASCIC	\RMS.EXE\

                                 07  02B1       

                                     02B9 11600 MSGFILNAM:

47 53 4D 53 59 53 5D 32 2C 31 5B 00' 02B9 11650 	.ASCIC	\[1,2]SYSMSG.MPF\

                        46 50 4D 2E  02C5       

                                 0F  02B9       

                                     02C9 11700 ;	.ASCIC	\[SYSMSG]SYSMSG.MPF\

                                     02C9 11750  

                                     02C9 11800 SIP_A_NAMES:

                          00D7'028B' 02C9 11850 	.WORD	PAGFILNAM,PAGFILERR	; FILENAME AND ERROR POINTER

                          00F5'0298' 02CD 11900 	.WORD	DMPFILNAM,DMPFILERR	;

                          0113'02A4' 02D1 11950 	.WORD	SWPFILNAM,SWPFILERR	;

                          0136'02B1' 02D5 12000 	.WORD	RMSFILNAM,RMSFILERR	;

                          0152'02B9' 02D9 12050 	.WORD	MSGFILNAM,MSGFILERR	;

                               0000  02DD 12100 	.WORD	0			; END OF LIST

                                     02DF 12150  

                                     02DF 12200 	IMPURE_DATA SIP_RWDATA_PAGE,PAGE

                                     0000 12250 

                                     0000 12300 SIP_A_INDEXFHDR:

                           00000200  0000 12350 	.BLKB	512			; INDEX FILE HEADER BUFFER FOR FIL$OPENFILE

                                     0200 12400 SIP_A_FILEHDR:

                           00000400  0200 12450 	.BLKB	512			; FILE HEADER BUFFER FOR FIL$OPENFILE

                                     0400 12500 

                                     0400 12550 	IMPURE_DATA

                                     0000 12600  

                                     0000 12650 SIP_L_PROCID:				; CREATED PROCESS ID

                           00000004  0000 12700 	.BLKL	1

                                     0004 12750  

                                     0004 12800 SIP_L_TTCHAN:

                           00000008  0004 12850 	.BLKL	1			; CHANNEL FOR TERMINAL HERE

                                     0008 12900  

                                     0008 12950 SIP_Q_TMPDESC:				; TEMPORY STRING DESCRIPTOR

                           00000010  0008 13000 	.BLKQ	1

                                     0010 13050 SIP_Q_STATBLK:

                           00000018  0010 13100 	.BLKQ	1			; STATISTICS BLOCK RETURNED BY FIL$OPENFILE

                                     0018 13150 SIP_A_OPENARG:				; ARGUMENT LIST TO FIL$OPENFILE

                           00000005  0018 13200 	.LONG	5			; 5 ARGUMENTS TO FIL$OPENFILE

                           0000006C' 001C 13250 	.LONG	SIP_L_DSKCHAN		; ADDRESS TO RETURN DISK CHANNEL

                           00000008' 0020 13300 	.LONG	SIP_Q_TMPDESC		; ADDRESS OF FILE NAME DESCRIPTOR

                           00000000' 0024 13350 	.LONG	SIP_A_INDEXFHDR		; BUFFER ADDRESS FOR INDEX FILE HEADER

                           00000200' 0028 13400 	.LONG	SIP_A_FILEHDR		; BUFFER ADDRESS FOR FILE HEADER

                           00000010' 002C 13450 	.LONG	SIP_Q_STATBLK		; ADDRESS TO RETURN STATISTICS BLOCK

                                     0030 13500 					;    STARTING LBN IF CONTIG, 0 IF NOT

                                     0030 13550 					;    FILE SIZE IN BLOCKS

                                     0030 13600  

                                     0030 13650 SIP_A_FILATT:				; LIST OF FILE ATTRIBUTE AREAS

                           00000048  0030 13700 	.BLKQ	3			; NUMBER OF FILES LOOKED UP

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page   7

02.08           DECLARATIONS                                                                                                     (1)



                                     0048 13750 SIP_Q_RMSFIL:				; RMS AND MSG FILE DESCRIPTOR

                           00000058  0048 13800 	.BLKQ	2			;

                                     0058 13850 

                                     0058 13900 SIP_Q_CURNTIM:				; CURRENT TIME QUAD WORD

                           00000060  0058 13950 	.BLKQ	1			;

                                     0060 14000 SIP_Q_INTIME:				; INPUT TIME VALUE

                           00000068  0060 14050 	.BLKQ	1			;

                                     0068 14100 

                                     0068 14150 SIP_A_KFIARG:				; ARGUMENT LIST FOR MAKING A KNOWN

                           00000009  0068 14200 	.LONG	9			; FILE ENTRY FOR THE SYSTEM DEVICE FCP

                                     006C 14250 SIP_L_DSKCHAN:

                           00000070  006C 14300 	.BLKL	1			; CHANNEL FOR DISK HERE

                           00000090' 0070 14350 	.LONG	SIP_L_KFICMDBIT		; ADDRESS OF KNOW FILE CMD BITS

                           00000088' 0074 14400 	.LONG	SIP_Q_PRVMSK		; ADDRESS OF PRIVILEGE MASK

                           00000004  0078 14450 	.LONG	4			; NAME MASK FOR KFI ENTRY

                           00000000  007C 14500 	.LONG	0			; OBSOSLETE PARAM, ADR OF DEV STRING

                           00000094' 0080 14550 	.LONG	SIP_T_KFIDIRNAM		; ADDRESS OF COUNTED ASCII DIRECTORY STRING

                           0000009B' 0084 14600 	.LONG	SIP_T_KFIFILNAM		; ADDRESS OF COUNTED ASCII FILE NAME

                           000000A3' 0088 14650 	.LONG	SIP_T_KFITYPNAM		; ADDRESS OF COUNTED ASCII TYPE NAME

                           00000000  008C 14700 	.LONG	0			; STOPPER ADDRESS FOR ABOVE ADDRESS VECTOR

                                     0090 14750 

                                     0090 14800 SIP_L_KFICMDBIT:			; KNOWN FILE ENTRY COMMAND BITS

                           00000085' 0090 14850 	.LONG	KFI$M_KP_OPEN ! KFI$M_KP_SHARED ! KFI$M_PROCPRIV

                                     0094 14900 SIP_T_KFIDIRNAM:			; COUNTED DIRECTORY STRING 

               45 58 45 53 59 53 00' 0094 14950 	.ASCIC	/SYSEXE/		; NO BRACKETS, CANONICAL FORM

                                 06  0094       

                                     009B 15000 SIP_T_KFIFILNAM:			; COUNTED FILE NAME FOR ACP

            50 43 41 41 31 31 46 00' 009B 15050 	.ASCIC	/F11AACP/		; STRUCTURE LEVEL FIXED BY SYSIMGACT

                                 07  009B       

                                     00A3 15100 					; "F11A" FOR LEVEL 1, "F11B" FOR LEVEL 2

                                     00A3 15150 SIP_T_KFITYPNAM:			; COUNTED TYPE NAME STRING

                        45 58 45 00' 00A3 15200 	.ASCIC	/EXE/

                                 03  00A3       

                                     00A7 15250 

                                     00A7 15300 SIP_Q_LINBUF:

                          0050'0000  00A7 15350 	.WORD	0,SIP_C_LINBUFSIZ	; DESCRIPTOR FOR LINE BUFFER

                           000000AF' 00AB 15400 	.LONG	SIP_T_LINBUF

                                     00AF 15450  

                                     00AF 15500 SIP_T_LINBUF:

                           000000FF  00AF 15550 	.BLKB	80

                                     00FF 15600  

                           00000050  00FF 15650 SIP_C_LINBUFSIZ=.-SIP_T_LINBUF

               2D 4E 41 4A 2D 31 30  00FF 15700 NEWYEAR:.ASCII	/01-JAN-/		; YEAR BASE STRING

30 3A 30 30 3A 30 30 20 37 37 39 31  0106 15750 YEAR:	.ASCII	/1977 00:00:00.00/	; TO DETERMINE YEAR FRACTION

                        30 30 2E 30  0112       

                                     0116 15800 NEWYRDESC:				; NEW YEAR DESCRIPTOR

                  000000FF'00000017  0116 15850 	.LONG	.-NEWYEAR,NEWYEAR	; STRING DESCRIPTOR FOR NEW YEAR

                                     011E 15900  

                                     011E 15950 CREPRCERR:				; CREATE PROCESS ERROR

                                 27' 011E 16000 	.BYTE	CREERREND-.-1		; LENGTH OF STRING

65 63 6F 72 70 20 65 74 61 65 72 63  011F 16050 	.ASCII	\create process error on \

20 6E 6F 20 72 6F 72 72 65 20 73 73  012B       

                                     0137 16100 CREPRCNAM:				;

                           00000146  0137 16150 	.BLKB	15			;

                                     0146 16200 CREERREND:

                                     0146 16250 SIP_Q_SPINPUT:				; STARTUP PROCESS INPUT

                           00000000  0146 16300 	.LONG	0			; COUNT FOR STRING

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page   8

02.08           DECLARATIONS                                                                                                     (1)



                           00000001' 014A 16350 	.LONG	EXE$GT_STARTUP+1	; ADDRESS 

                                     014E 16400 

                                     014E 16500 ;

                                     014E 16550 ;	BUFFER TO READ SYSTEM DUMP FILE FOR ERROR LOG INFORMATION

                                     014E 16600 ;

                                     014E 16650 SIP_A_ERLBUFFER:			; 

                           0000074E  014E 16700 	.BLKB	<3*512>			; 3 PAGES

                                     074E 16712 

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page   9

02.08           SYSTEM INITIALIZATION PROCESS                                                                                    (1)



                                     074E 16750 	.SBTTL	SYSTEM INITIALIZATION PROCESS

                                     074E 16800 ;++

                                     074E 16850 ; FUNCTIONAL DESCRIPTION:

                                     074E 16900 ;

                                     074E 16950 ;	THIS PROCESS IS INITIATED BY THE OPERATING SYSTEM AFTER

                                     074E 17000 ;	IT HAS BEEN BOOT STRAPPED AND PROCESSOR INITIALIZTION

                                     074E 17050 ;	HAS BEEN COMPLETED. THE FOLLOWING FUNCTIONS ARE

                                     074E 17100 ;	PERFORMED:

                                     074E 17150 ;

                                     074E 17200 ;		1) THE ADDRESS OF THE PAGING FILE IS FOUND

                                     074E 17250 ;		2) THE ADDRESS OF THE SYSTEM DUMP FILE IS FOUND

                                     074E 17300 ;		3) THESE ADDRESS ARE STORED IN THE SYSTEM

                                     074E 17350 ;		4) THE PAGING FILE IS INITIALIZED

                                     074E 17400 ;		5) THE JOB CONTROLLER IS STARTED

                                     074E 17450 ;

                                     074E 17500 ;

                                     074E 17550 ; CALLING SEQUENCE:

                                     074E 17600 ;

                                     074E 17650 ;	NONE-ENTERED DIRECTLY FROM THE IMAGE ACTIVATOR

                                     074E 17700 ;

                                     074E 17750 ; INPUT PARAMETERS:

                                     074E 17800 ;

                                     074E 17850 ;	NONE

                                     074E 17900 ;

                                     074E 17950 ; IMPLICIT INPUTS:

                                     074E 18000 ;

                                     074E 18050 ;	LOGICAL DEVICE "DISK" IS ASSIGNED TO THE SYSTEM DISK

                                     074E 18100 ;

                                     074E 18150 ; OUTPUT PARAMETERS:

                                     074E 18200 ;

                                     074E 18250 ;	NONE

                                     074E 18300 ;

                                     074E 18350 ; IMPLICIT OUTPUTS:

                                     074E 18400 ;

                                     074E 18450 ;	FILE ADDRESS ARE STORED, THE SPECIFIED PROCESSES ARE CREATED

                                     074E 18500 ;

                                     074E 18550 ;

                                     074E 18600 ; COMPLETION CODES:

                                     074E 18650 ;

                                     074E 18700 ;

                                     074E 18750 ; SIDE EFFECTS:

                                     074E 18800 ;

                                     074E 18850 ;	NONE

                                     074E 18900 ;

                                     074E 18950 ;--

                                     074E 19000 	PURE_SECT

                                     02DF 19050 

                                     02DF 19100 SIP_START:

                               0000  02DF 19150 	.WORD	0			; ENTRY MASK

       0000'CF            00     FB  02E1 19200 	CALLS	#0,W^LOCKDOWN		; LOCK PAGES THAT MUST BE LOCKED

                                     02E6 19250 	$CMKRNL_S	W^SIP_SETTIME	; START BY SETTING TIME

                          020A   30  02F3 19300 	BSBW	SIP_CREATELOG		; CREATE SYSTEM WIDE LOGICAL NAMES

   00000000'EF   00000000'8F     E1  02F6 19350 	BBC	#EXE$V_SYSUAFALT,EXE$GL_FLAGS,10$ ; BR IF NORMAL NAME FOR SYSUAF

                          13         0301       

                                     0302 19400 	$CRELOG_S	#LOG$C_SYSTEM,SIP_Q_SYSUAF,SIP_Q_SYSUAFALT	;

                                     0315 19450 					; EQUATE SYSUAF TO ALTERNATE NAME

            58       0030'CF     DE  0315 19500 10$:	MOVAL	W^SIP_A_FILATT,R8	; FILE ATTRIBUTE LIST POINTER

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  10

02.08           SYSTEM INITIALIZATION PROCESS                                                                                    (1)



            59       FFAB CF     DE  031A 19550 	MOVAL	W^SIP_A_NAMES,R9	; LIST OF NAME STRINGS

            5A       0008'CF     DE  031F 19600 	MOVAL	W^SIP_Q_TMPDESC,R10	; TEMPORARY AREA FOR STRING DESCRIPTOR

            5B       0010'CF     DE  0324 19650 	MOVAL	W^SIP_Q_STATBLK,R11	; ADDRESS OF STATISTICS BLOCK

            50            89     3C  0329 19700 30$:	MOVZWL	(R9)+,R0		; ADDRESS OF NEXT NAME(COUNTED ASCII)

                          35     13  032C 19750 	BEQL	50$			; BR IF END OF LIST

            6A            80     9A  032E 19800 	MOVZBL	(R0)+,(R10)		; SET LENGTH OF STRING

         04 AA            50     D0  0331 19850 	MOVL	R0,4(R10)		; ADDRESS OF STRING

                                     0335 19900 	$DASSGN_S W^SIP_L_DSKCHAN	; FIL$OPENFILE ASSIGN CHANNEL EACH CALL

                                     0341 19950 					; LEAVE IT ASSIGNED AFTER LAST CALL

   00000000'EF       0018'CF     FA  0341 20000 	CALLG	W^SIP_A_OPENARG,FIL$OPENFILE ; GET FILE SIZE AND START LBN

                                     034A 20050 					; FOR SPECIFIED FILE

            51            89     3C  034A 20100 	MOVZWL	(R9)+,R1		; GET ERROR CODE

            0A            50     E8  034D 20150 	BLBS	R0,40$			; BR IF WORKED OK!

                          88     D4  0350 20200 	CLRL	(R8)+			; FILE LOOKUP FAILED-SET ZERO LENGTH

            88            01     CE  0352 20250 	MNEGL	#1,(R8)+		; SET START BLOCK AS -1

                          057B   30  0355 20300 	BSBW	SIP_SYSMSG		; PRINT ERROR INFORMATION

                          CF     11  0358 20350 	BRB	30$			; TRY FOR NEXT

            88         04 AB     D0  035A 20400 40$:	MOVL	4(R11),(R8)+		; FILE SIZE TO FIRST LONG WORD

            88            6B     D0  035E 20450 	MOVL	(R11),(R8)+		; START LBN (0 IF NOT CONTIGUOUS) TO SECOND

                          C6     11  0361 20500 	BRB	30$			; TRY FOR NEXT

                                     0363 20550 50$:	$CMKRNL_S	W^SIP_KERNALRTN	; EXECUTE THIS AT KERNAL ACCESS MODE

   00000000'EF            00'    E1  0370 20600 	BBC	S^#EXE$V_SHRF11ACP,EXE$GL_FLAGS,60$ ; BRANCH IF NOT SHARING FCP

                          1A         0377       

                                     0378 20650 	$CMKRNL_S W^MAKE_FCP_KFI,W^SIP_A_KFIARG ; MAKE KNOWN FILE ENTRY FOR FCP

            08            50     E8  0387 20700 	BLBS	R0,60$			; BRANCH IF SUCCESSFUL

            51       FE9C CF     9E  038A 20750 	MOVAB	W^INIKNOWNFIL,R1	; ADDRESS OF ERROR MESSAGE

                          0541   30  038F 20800 	BSBW	SIP_SYSMSG		; ISSUE THE MESSAGE

            7E       006C'CF     3C  0392 20850 60$:	MOVZWL	W^SIP_L_DSKCHAN,-(SP)	; GET CHANNEL ASSIGNED TO SYSTEM DISK

   00000000'EF            01     FB  0397 20900 	CALLS	#1,MOUNT_SYSTEM		; AND MOUNT IT

            08            50     E8  039E 20950 	BLBS	R0,65$			; BR IF MOUNT WENT OK

            51       FDFB CF     9E  03A1 21000 	MOVAB	W^MOUERR,R1		; SET ERROR MESSAGE

                          052A   30  03A6 21050 	BSBW	SIP_SYSMSG		; OUTPUT SYSTEM MESSAGE

                                     03A9 21100 65$:

                                     03A9 21150 ;

                                     03A9 21200 ; NOW INTERLOCK WITH THE FCP BY ISSUING A QI/O TO IT.

                                     03A9 21250 ;

                                     03A9 21300 	$QIOW_S -

                                     03A9 21350 		CHAN=W^SIP_L_DSKCHAN,-

                                     03A9 21400 		FUNC=#IO$_ACPCONTROL

   00000000'EF            00'    E0  03C8 21450 	BBS	S^#EXE$V_INIT,EXE$GL_FLAGS,70$ ; BRANCH IF FCP IS RUNNING

                          08         03CF       

            51       FDB0 CF     9E  03D0 21500 	MOVAB	W^ACPINIERR,R1		; SET ERROR TEXT

                          04F0   30  03D5 21550 	BSBW	SIP_FATAL		; PRINT ERROR AND EXIT

                                     03D8 21600 ;

                                     03D8 21650 ; NOW ISSUE PROCESS CREATE ON THE JOB CONTROLLER

                                     03D8 21700 ;

                                     03D8 21750 70$:

                                     03D8 21800 	SIP_CRESYSPRC	JOB_CONTROL,-	; CREATE THE PROCESS

                                     03D8 21850 		<SYS$SYSTEM:JOBCTL.EXE> ; FILE NAME OF IMAGE TO RUN

                                     0402 21900 

                                     0402 21950 ;

                                     0402 22000 ; CREATE PROCESS FOR OPERATOR

                                     0402 22050 ;

                                     0402 22100 80$:					; REFERENCE

                                     0402 22150 	SIP_CRESYSPRC	OPCOM,-		; PROCESS NAME

                                     0402 22200 		FILNAM=<SYS$SYSTEM:OPCOM.EXE>,-	; IMAGE TO INITIATE

                                     0402 22250 		BASPRI=6		;

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  11

02.08           SYSTEM INITIALIZATION PROCESS                                                                                    (1)



                                     0425 22300  

                                     0425 22350 	SIP_CRESYSPRC	ERRFMT,-	; ERROR FORMAT PROGRAM

                                     0425 22400 		FILNAM=<SYS$SYSTEM:ERRFMT.EXE>,- ; FILE NAME FOR IMAGE

                                     0425 22450 		BASPRI=7,-		;

                                     0425 22500 		UIC=<<1@16>+6>		; [1,6] IS UIC FOR ERROR LOGGING

                                     044A 22550 	

                                     044A 22600 90$:					;

       0146'CF   00000000'EF     9A  044A 22650 	MOVZBL	EXE$GT_STARTUP,W^SIP_Q_SPINPUT	; SET CORRECT COUNT IN DESCR

                                     0453 22700 	$CREPRC_S	INPUT=W^SIP_Q_SPINPUT,-	; INPUT FROM STARTUP FILE

                                     0453 22750 			OUTPUT=W^SIP_Q_SPOUTPUT,-	; OUTPUT TO CONSOLE TERMINAL

                                     0453 22800 			ERROR=W^SIP_Q_SPOUTPUT,-	; ERRORS ALSO

                                     0453 22850 			BASPRI=#4,-		; BASE PRIORITY

                                     0453 22900 			IMAGE=W^SIP_Q_SPIMAGE,-	; RUN LOGIN IMAGE

                                     0453 22950 			UIC=#^X80020,-		; RUN IN UIC [10,40]

                                     0453 23000 			STSFLG=#<1@6>,-		; FLAG FOR AUTO LOGIN

                                     0453 23050 			PRVADR=W^SIP_Q_PRVMSK,-	; ALL PRIVILEGES

                                     0453 23100 			PRCNAM=W^SIP_Q_STARTUP	; NAME IS STARTUP

                                 04  0487 23150 	RET				; THATS ALL FOR NOW

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  12

02.08           SIP_CRESYSPRC - CREATE A SYSTEM PROCESS                                                                          (1)



                                     0488 23250 	.SBTTL	SIP_CRESYSPRC - CREATE A SYSTEM PROCESS

                                     0488 23300 ;++

                                     0488 23350 ; FUNCTIONAL DESCRIPTION

                                     0488 23400 ;

                                     0488 23450 ;	THIS ROUTINE IS CALLED TO CREATE A SYSTEM PROCESS

                                     0488 23500 ;

                                     0488 23550 ; INPUT PARAMETER:

                                     0488 23600 ;

                                     0488 23650 ;	BSBW	SIP_CRESYSPRC

                                     0488 23700 ;		.ASCIC	\PROCESS_NAME\

                                     0488 23750 ;		.ASCIC	\IMAGE_FILE_SPEC\

                                     0488 23800 ;		.BYTE	BASE_PRIORITY

                                     0488 23850 ;		.LONG	UIC

                                     0488 23900 ;

                                     0488 23950 ; OUTPUTS:

                                     0488 24000 ;

                                     0488 24050 ;	THE PROCESS IS CREATED AND THE PROCESS ID FOR THE PROCESS

                                     0488 24100 ;	IS STORED IN LOCATION SIP_PROCID.

                                     0488 24150 ;--

                                     0488 24200  

                                     0488 24250 SIP_CRESYSPRC::				; CREATE A SYSTEM PROCESS

                          01     BA  0488 24300 	POPR	#^M<R0>			; GET ADDRESS OF ARGUMENTS

                          3C     BB  048A 24350 	PUSHR	#^M<R2,R3,R4,R5>	; SAVE WORKING REGISTERS

            55            50     D0  048C 24400 	MOVL	R0,R5			; COPY ARGUMENT LIST ADDRESS

            50            85     9A  048F 24450 	MOVZBL	(R5)+,R0		; GET LENGTH OF PROCESS NAME STRING

            51            65     DE  0492 24500 	MOVAL	(R5),R1			; SET ADDRESS OF NAME STRING

            55            50     C0  0495 24550 	ADDL	R0,R5			; SKIP TO NEXT ARGUMENT

            52            85     9A  0498 24600 	MOVZBL	(R5)+,R2		; GET LENGTH OF FILE NAME STRING

            53            65     DE  049B 24650 	MOVAL	(R5),R3			; SET ADDRESS OF NAME STRING

            55            52     C0  049E 24700 	ADDL	R2,R5			; SKIP TO NEXT ARGUMENT

                          0F     BB  04A1 24750 	PUSHR	#^M<R0,R1,R2,R3>	; FORM TO QUADWORD DESCRIPTORS

            52            6E     7E  04A3 24800 	MOVAQ	(SP),R2			; SET ADDRESS OF PROCESS NAME

            53         08 AE     7E  04A6 24850 	MOVAQ	8(SP),R3		; AND ADDRESS OF FILE NAME

            50            85     9A  04AA 24900 	MOVZBL	(R5)+,R0		; PRIORITY TO START WITH

            51            85     D0  04AD 24950 	MOVL	(R5)+,R1		; UIC FOR THE NEW PROCESS

            54       FB4C CF     7E  04B0 25000 	MOVAQ	W^SIP_Q_TTNAME,R4	; GET COMMON ARGUMENT

                                     04B5 25050 	$CREPRC_S	-		; CREATE A NEW PROCESS

                                     04B5 25100 		PIDADR=	W^SIP_L_PROCID,-; STORE PROCESS ID

                                     04B5 25150 		INPUT=(R4),-		; INPUT DEVICE NAME

                                     04B5 25200 		OUTPUT=(R4),-		; 

                                     04B5 25250 		ERROR=(R4),-		;

                                     04B5 25300 		IMAGE=	(R3),-		; NAME OF IMAGE TO RUN

                                     04B5 25350 		QUOTA=W^SIP_A_PQL,-	; PROCESS QUOTA LIST

                                     04B5 25400 		PRCNAM=	(R2),-		; NAME OF THE PROCESS

                                     04B5 25450 		BASPRI=	R0,-		;

                                     04B5 25500 		PRVADR=	W^SIP_Q_PRVMSK,-; INITIAL PROCESS PRIVLEDGE POINTER

                                     04B5 25550 		UIC=	R1

            18            50     E8  04DB 25600 	BLBS	R0,10$			; BR IS SERVICE EXCEPTED

                          21     BB  04DE 25650 	PUSHR	#^M<R0,R5>		; SAVE ERROR AND RETURN PC

         04 B2            62     2C  04E0 25700 	MOVC5	(R2),@4(R2),#0,#15,W^CREPRCNAM ; COPY NAME INTO MESSAGE

            0F            00         04E4       

                     0137'CF         04E6       

            51       011E'CF     9E  04E9 25710 	MOVAB	W^CREPRCERR,R1		; SET ADDR OF MESSAGE

            50            6E     D0  04EE 25720 	MOVL	(SP),R0			; SET STATUS VALUE

                          03DF   30  04F1 25750 	BSBW	SIP_SYSMSG		; PRINT THE MESSAGE

                          21     BA  04F4 25800 	POPR	#^M<R0,R5>		; RESTORE ERROR AND RETURN PC

            51            55     D0  04F6 25850 10$:	MOVL	R5,R1			; SAVE RETURN PC

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  13

02.08           SIP_CRESYSPRC - CREATE A SYSTEM PROCESS                                                                          (1)



            5E            10     C0  04F9 25900 	ADDL	#<2*8>,SP		; CLEAR 2 STRING DESCRIPTORS

                          3C     BA  04FC 25950 	POPR	#^M<R2,R3,R4,R5>	; RESTORE CALLERS CONTEXT

                          61     17  04FE 26000 	JMP	(R1)			; RETURN TO CALLER

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  14

02.08           SIP_CREATELOG - CREATE SYSTEM WIDE LOGICAL NAME                                                                  (1)



                                     0500 26100 	.SBTTL	SIP_CREATELOG - CREATE SYSTEM WIDE LOGICAL NAMES

                                     0500 26150 ;++

                                     0500 26200 ; FUNCTIONAL DESCRIPTION:

                                     0500 26250 ;

                                     0500 26300 ;	THIS ROUTINE CREATES LOGICAL NAME EQUIVALENCES FOR THE LOGICAL NAMES

                                     0500 26350 ;	'SYSTEM' .

                                     0500 26400 ;

                                     0500 26450 ; INPUT PARAMETERS:

                                     0500 26500 ;

                                     0500 26550 ;	CURRENT ASSIGNMENT FOR THE LOGICAL NAME 'DISK'.

                                     0500 26600 ;

                                     0500 26650 ; OUTPUTS:

                                     0500 26700 ;

                                     0500 26750 ;	THE EQUIVALENCE NAME FOR THE LOGICAL NAME 'DISK' IS APPENDED BY THE

                                     0500 26800 ;	STRING '[10,40]' AND THE RESULTANT STRING IS USED AS THE EQUIVALENCE

                                     0500 26850 ;	STRING FOR THE LOGICAL NAMES 'SYSTEM' .

                                     0500 26900 ;--

                                     0500 26950  

                                     0500 27000 SIP_CREATELOG:				; CREATE SYSTEM WIDE LOGICAL NAMES

            5E            20     C2  0500 27050 	SUBL	#32,SP			; ALLOCATE SPACE TO BUILD EQUIVALENCE STRING

                          6E     9F  0503 27100 	PUSHAB	(SP)			; BUILD OUTPUT BUFFER DESCRIPTOR

                          20     DD  0505 27150 	PUSHL	#32			;

            52            5E     D0  0507 27200 	MOVL	SP,R2			; SET ADDRESS OF OUTPUT BUFFER DESCRIPTOR

                                     050A 27250 	$TRNLOG_S  SIP_Q_DSKNAME,(R2),(R2) ; TRANSLATE LOGICAL NAME 'SYS$DISK'

            62            82     C1  051F 27300 	ADDL3	(R2)+,(R2),R2		; CALCULATE APPEND ADDRESS

                          52         0522       

       FD27 CF            08     28  0523 27350 	MOVC	#SYSUICSIZ,SYSUIC,(R2)	; CONCATENATE SYSTEM DIRECTORY UIC

                          62         0528       

            52            5E     D0  0529 27400 	MOVL	SP,R2			; SET ADDRESS OF EQUIVALENCE STRING DESCRIPTOR

            62            08     C0  052C 27450 	ADDL	#SYSUICSIZ,(R2)		; ACCOUNT FOR SYSTEM DIRECTORY UIC

                          0008   30  052F 27500 	BSBW	100$			; CREATE LOGICAL NAMES

                                     0532 27550 	OFFSET	<SIP_Q_SYSTEM>		; POINTER TO LOGICAL NAME

                               0000  0534 27600 	.WORD	0			; END OF LIST

            5E            28     C0  0536 27650 	ADDL	#40,SP			; REMOVE EQUIVALENCE NAME FROM STACK

                                 05  0539 27700 	RSB				;

                                     053A 27750 ;

                                     053A 27800 ; LOCAL SUBROUTINE TO MAKE LOGICAL NAME ASSIGNMENTS

                                     053A 27850 ;

                          08     BA  053A 27900 100$:	POPR	#^M<R3>			; SET ADDRESS OF LIST OF OFFSETS

            50            83     32  053C 27950 110$:	CVTWL	(R3)+,R0		; OFFSET TO DESCRIPTOR

                          14     13  053F 28000 	BEQL	120$			; BR IF END

            50            53     C0  0541 28050 	ADDL	R3,R0			; FIND REAL ADDRESS

                                     0544 28100 	$CRELOG_S #LOG$C_SYSTEM,(R0),(R2) ; CREATE THE NAME

                          E7     11  0553 28150 	BRB	110$			; CHECK FOR MORE

                          63     17  0555 28200 120$:	JMP	(R3)			; RETURN TO CALLER

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  15

02.08           SYSTEM INITIALIZATION KERNEL LEVEL                                                                               (1)



                                     0557 28300 	.SBTTL	SYSTEM INITIALIZATION KERNEL LEVEL

                                     0557 28350 ;++

                                     0557 28400 ; FUNCTIONAL DESCRIPTION:

                                     0557 28450 ;

                                     0557 28500 ;	THIS ROUTINE IS CALLED TO PURFORM SYSTEM INITIALIZATION

                                     0557 28550 ;	FUNCTIONS WHICH REQUIRE KERNEL LEVEL ACCESS.

                                     0557 28600 ;	THE FOLLOWING ARE PURFORMED:

                                     0557 28650 ;

                                     0557 28700 ;		1) ADDRESS OF THE PAGING FILE IS SET

                                     0557 28750 ;		2) ADDRESS OF SYSTEM DUMP IMAGE FILE IS SET

                                     0557 28800 ;		3) ADDRESS OF SYSTEM SWAP FILE IS SET

                                     0557 28850 ;		4) THE PAGING FILE IS INITED

                                     0557 28900 ;

                                     0557 28950 ; CALLING SEQUENCE:

                                     0557 29000 ;

                                     0557 29050 ;	ENTER VIA THE CHANGE MODE TO SYSTEM SERVICE

                                     0557 29100 ;

                                     0557 29150 ; INPUT PARAMETERS:

                                     0557 29200 ;

                                     0557 29250 ;	NONE

                                     0557 29300 ;

                                     0557 29350 ; IMPLICIT INPUTS:

                                     0557 29400 ;

                                     0557 29450 ;	LOCATION "SIP_A_FILATT" CONTAINS A LIST OF QUAD WORD

                                     0557 29500 ;	FILE DESCRIPTORS FOR:

                                     0557 29550 ;		1) SYSTEM PAGING FILE

                                     0557 29600 ;		2) SYSTEM DUMP FILE

                                     0557 29650 ;

                                     0557 29700 ;	THE DESCRIPTOR IS OF THE FORMAT:

                                     0557 29750 ;

                                     0557 29800 ;		.LONG	SIZE

                                     0557 29850 ;		.LONG	STARTING LOGICAL BLOCK

                                     0557 29900 ;

                                     0557 29950 ; OUTPUT PARAMETERS:

                                     0557 30000 ;

                                     0557 30050 ;	NONE

                                     0557 30100 ;

                                     0557 30150 ; IMPLICIT OUTPUTS:

                                     0557 30200 ;

                                     0557 30250 ;	NONE

                                     0557 30300 ;

                                     0557 30350 ; COMPLETION CODES:

                                     0557 30400 ;

                                     0557 30450 ;	R0 IS RETURNED TRUE OF FALSE DEPENDING ON

                                     0557 30500 ;	INITIALIZATION SUCESS OR FAILURE

                                     0557 30550 ;

                                     0557 30600 ; SIDE EFFECTS:

                                     0557 30650 ;

                                     0557 30700 ;	NONE

                                     0557 30750 ;

                                     0557 30800 ;--

                                     0557 30850 

                                     0557 30900 SIP_KERNALRTN:				; KERNEL ROUTINE

                               003C  0557 30950 	.WORD	^M<R2,R3,R4,R5>		; SAVE SOME REGISTERS

            53   00000000'9F     D0  0559 31000 	MOVL	@#MMG$GL_GPTE,R3	; GET BASE ADDRESS OF GPTE

            52   00000000'9F     3C  0560 31050 	MOVZWL	@#SGN$GW_MAXGPGCT,R2	; GET COUNT OF GLOBAL PAGES

            52            02     78  0567 31100 	ASHL	#2,R2,4(R3)		; SET THE GLOBAL PAGE TABLE ENTRY MAX CNT

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  16

02.08           SYSTEM INITIALIZATION KERNEL LEVEL                                                                               (1)



                       04 A3         056A       

            50   00000000'EF     D0  056C 31150 	MOVL	EXE$GL_SYSUCB,R0	; PICK UP ADDRESS OF SYSTEM UCB

                                 CA  0573 31200 	BICL	#<DEV$M_FOR!DEV$M_MNT>,-; CLEAR FOREIGN AND MOUNTED FORM INIT IN

         34 A0   01080000 8F         0574 31250 		UCB$L_DEVCHAR(R0)	; SYSTEM DISK UCB CHARACTERISTICS WORD

            51   00000000'EF     D0  057B 31300 	MOVL	SCH$GL_CURPCB,R1	; GET CURRENT PROCESS PCB ADDRESS

         28 A0         60 A1     D0  0582 31350 	MOVL	PCB$L_PID(R1),UCB$L_PID(R0) ; ALLOCATE SYSTEM DEVICE

                                     0587 31400 ;

                                     0587 31450 ; INIT KNOWN FILE POINTER BLOCK

                                     0587 31500 ;

                                     0587 31550 SIP_INIKNOWNFIL:

            51   00000000'EF     9A  0587 31600 	MOVZBL	SGN$GB_KFILSTCT,R1	; DESIRED NUMBER OF KNOWN FILE LISTS

            51            04     C4  058E 31650 	MULL	#4,R1			; NUMBER OF BYTE REQUIRED

            51            0C     C0  0591 31700 	ADDL	#KFP$L_QUE0,R1		; PLUS OVERHEAD BYTES

                          51     DD  0594 31750 	PUSHL	R1			; SAVE REQUESTED SIZE

                 00000000'EF     16  0596 31800 	JSB	EXE$ALONONPAGED		; ALLOCATE THE POINTER BLOCK

            08            50     E8  059C 31850 	BLBS	R0,20$			; BRANCH IF SUCCESSFUL

            51       FC87 CF     9E  059F 31900 	MOVAB	W^INIKNOWNFIL,R1	; ADDRESS OF ERROR MESSAGE

                          0321   30  05A4 31950 	BSBW	SIP_FATAL		; ISSUE FATAL ERROR

            62            00     2C  05A7 32000 20$:	MOVC5	#0,(R2),#0,R1,(R2)	; ZERO THE BLOCK

            51            00         05AA       

                          62         05AC       

                                     05AD 32050 					; BLOCK ADDRESS IN R1 WHEN DONE

         08 A1            8E     D0  05AD 32100 	MOVL	(SP)+,KFP$W_SIZE(R1)	; SIZE IS THE REQUESTED SIZE

         0A A1       0000'8F     B0  05B1 32150 	MOVW	#<DYN$C_KFI@8 + DYN$C_PTR>,KFP$B_TYPE(R1) ; SET STRUCTURE TYPES

   00000000'EF         0C A1     9E  05B7 32200 	MOVAB	KFP$L_QUE0(R1),EXE$GL_KNOWNFIL ; SET ADDRESS OF VECTOR

                                     05BF 32250 					; OF KNOWN FILE LISTS

                                     05BF 32300 

            54       0030'CF     DE  05BF 32350 	MOVAL	W^SIP_A_FILATT,R4	; SET POINT TO FILE ATTRIBUTE BLOCKS

                                     05C4 32400 ;

                                     05C4 32450 ; INIT PAGING FILE

                                     05C4 32500 ;

                                     05C4 32550  

                                     05C4 32600 SIP_INITPAGFIL:				;

                          02C5   30  05C4 32650 	BSBW	SIP_INIWCB		; ALLOCATE AND INIT A WINDOW

            53   00000000'EF     DE  05C7 32700 	MOVAL	MMG$A_PAGFIL,R3		; GET ADDRESS OF PAGING FILE ARRAY

         0C A3            52     D0  05CE 32750 	MOVL	R2,PFL$L_WINDOW(R3)	; SET WINDOW ADDRESS

                       10 A3     D4  05D2 32800 	CLRL	PFL$L_VBN(R3)		; CALCULATE STARTING VBN - 1

            50            08     C6  05D5 32850 	DIVL	#8,R0			; FIND NUMBER OF BYTES IN ALLOCATION MAP

            50   FFF80000 8F     CA  05D8 32900 	BICL	#^C<PTE$M_PGFLVB @-3>,R0 ; GUARANTEE THAT PAGE FILE SMALL ENOUGH

         14 A3            50     D0  05DF 32950 	MOVL	R0,PFL$L_BITMAPSIZ(R3)	; SET RESULTANT BITMAP SIZE IN BYTES

            50            08     C5  05E3 33000 	MULL3	#8,R0,PFL$L_FREPAGCNT(R3) ; CALCULATE NUMBER OF FREE PAGES - 1

                       18 A3         05E6       

                       18 A3     D7  05E8 33050 	DECL	PFL$L_FREPAGCNT(R3)	;

         1C A3         18 A3     D0  05EB 33100 	MOVL	PFL$L_FREPAGCNT(R3),PFL$L_RESERVCNT(R3) ; COPY TO RESERVATION COUNTER

                          09     BB  05F0 33150 	PUSHR	#^M<R0,R3>		; SAVE PAGE FILE CB ADR AND COUNT

            50            0D     C1  05F2 33200 	ADDL3	#13,R0,R1		; COMPUTE SIZE TO ALLOCATE FOR BITMAP

                          51         05F5       

                 00000000'EF     16  05F6 33250 	JSB	EXE$ALONONPAGED		; ALLOCATE  BLOCK

            08            50     E8  05FC 33300 	BLBS	R0,15$			; BRANCH IF ALLOCATED SUCCESSFULLY

            51       FBBA CF     9E  05FF 33350 	MOVAB	W^INIPAGFIL,R1		; FAILED TO ALLOCATE PAGE FILE BIT MAP

                          02C1   30  0604 33400 	BSBW	SIP_FATAL		;

                          09     BA  0607 33450 15$:	POPR	#^M<R0,R3>		; RECOVER PGFIL CONTROL BLOCK ADR, COUNT

         08 A2            51     B0  0609 33500 	MOVW	R1,8(R2)		; SET SIZE OF BLOCK

            52            0C     C0  060D 33550 	ADDL	#12,R2			; POINT TO HEART OF BITMAP

            63            52     D0  0610 33600 	MOVL	R2,PFL$L_BITMAP(R3)	; AND SAVE POINTER IN PAGE FILE BLOCK

                          50     D7  0613 33650 20$:	DECL	R0			; ANY MORE FREE PAGES?

                          05     19  0615 33700 	BLSS	30$			; IF LSS NO

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  17

02.08           SYSTEM INITIALIZATION KERNEL LEVEL                                                                               (1)



            82            01     8E  0617 33750 	MNEGB	#1,(R2)+		; SET PAGES FREE

                          F7     11  061A 33800 	BRB	20$			;

                                     061C 33850 30$:					; REFERENCE

                          82     94  061C 33900 	CLRB	(R2)+			; MARK END WITH ZERO BYTE

                                     061E 33950 ;

                                     061E 34000 ;	SYSDMP FILE INITIALIZATION

                                     061E 34050 ;

   00000000'EF            84     7D  061E 34100 	MOVQ	(R4)+,EXE$GQ_SYSDMP	; SAVE SIZE AND LBN OF SYSDMP FILE

         FC A4         F8 A4     C1  0625 34150 	ADDL3	-8(R4),-4(R4),R0	; COMPUTE CHECK SUM FOR FILE DESCR

                          50         062A       

   00000000'EF            50     D2  062B 34200 	MCOML	R0,EXE$GL_DMPCHK	; AND SAVE AS ONES COMPLEMENT

                                     0632 34250  

                                     0632 34300 ;

                                     0632 34350 ;	SWAP FILE INITIALIZATION

                                     0632 34400 ;

                                     0632 34450 SIP_INITSWPFIL:				; INIT SWAP FILE

                          0257   30  0632 34500 	BSBW	SIP_INIWCB		; ALLOCATE AND INIT A WINDOW

            53   00000020'EF     DE  0635 34550 	MOVAL	SWP$GL_SFTBAS+SFT$C_LENGTH,R3	; BASE OF SWAP FILE TABLE

                       10 A3     D4  063C 34600 	CLRL	SFT$L_VBN(R3)		; SET BASE VBN FOR SWAP FILE

         0C A3            52     D0  063F 34650 	MOVL	R2,SFT$L_WINDOW(R3)	; SET WINDOW ADDRESS

            51   00000000'EF     D0  0643 34700 	MOVL	SGN$GL_MAXWSCNT,R1	; GET MAX WORKING SET SIZE

            51   00000000'EF     C0  064A 34750 	ADDL	SGN$GL_PHDPAGCT,R1	; ADD PROCESS HEADER SIZE

         02 A3            51     B0  0651 34800 	MOVW	R1,SFT$W_SLOTSZ(R3)	; SET AS SLOT SIZE

            50            51     C6  0655 34850 	DIVL	R1,R0			; AND COMPUTE NUMBER OF SLOTS (TRUNCATED)

   00000040 8F            50     D1  0658 34900 	CMPL	R0,#64			; CHECK FOR MAXIMUM

                          04     1B  065F 34950 	BLEQU	5$			; BR IF IT WILL FIT IN AVAILABLE MAP

            50         40 8F     9A  0661 35000 	MOVZBL	#64,R0			; ELSE LIMIT TO MAXIMUM

            63            50     90  0665 35050 5$:	MOVB	R0,SFT$B_SLTCNT(R3)	; SET AS NUMBER OF SLOTS AVAIL

   00000000'EF            50     D0  0668 35100 	MOVL	R0,SWP$GL_SLOTCNT	; NOTE NUMBER OF AVAILABLE SLOTS

   00000000'EF            50     B1  066F 35150 	CMPW	R0,SCH$GW_PROCLIM	; LIMIT NUMBER OF PROCESSES TO SLOTS

                          07     18  0676 35200 	BGEQ	10$			; BRANCH IF ENOUGH SLOTS

   00000000'EF            50     B0  0678 35250 	MOVW	R0,SCH$GW_PROCLIM	; ELSE MINIMIZE

                          50     D7  067F 35300 10$:	DECL	R0			; MAKE ZERO ORIGIN BIT NUMBER

                          07     19  0681 35350 	BLSS	20$			; DONE

         14 A3            50     E3  0683 35400 	BBCS	R0,SFT$L_BITMAP(R3),10$	; SET ALL AVAILABLE SLOTS

                          F7         0687       

                          F5     11  0688 35450 	BRB	10$			; JUST INCASE BIT NON-ZERO

                                     068A 35500 20$:					; SWAP FILE INITIALIZATION COMPLETE

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  18

02.08           SYSTEM INITIALIZATION KERNEL LEVEL                                                                               (1)



                                     068A 35600 ;

                                     068A 35650 ;	INSTALL RMS IMAGE AND SYSTEM MESSAGE FILE AS A PAGEABLE SYSTEM SECTION

                                     068A 35700 ;

            55   00000000'FF     DE  068A 35750 	MOVAL	@MMG$GL_SYSPHD,R5	; POINT TO SYSTEM HEADER

            54       0048'CF     DE  0691 35800 	MOVAL	W^SIP_Q_RMSFIL,R4	; RMS AND MSG FILE DESCRIPTOR ADDRESS

                       04 A4     D5  0696 35850 	TSTL	4(R4)			; RMS PRESENT AND CONTIGUOUS?

                          13     15  0699 35900 	BLEQ	25$			; BRANCH IF NOT

            52   00000000'EF     D0  069B 35950 	MOVL	BOO$GL_SPTFREL,R2	; GET BASE VPN

            52            64     C0  06A2 36000 	ADDL	(R4),R2			; COMPUTE NEXT FREE SPT SLOT

   00000000'EF            52     D1  06A5 36050 	CMPL	R2,BOO$GL_SPTFREH	; CHECK FOR INSUFFICIENT SPT

                          08     15  06AC 36100 	BLEQ	30$			; CONTINUE IF SUFFICIENT

            51       FB2A CF     9E  06AE 36150 25$:	MOVAB	W^RMSMAPERR,R1		; NOT FOUND, NOT CONTIGUOUS, OR TOO BIG

                          0212   30  06B3 36200 	BSBW	SIP_FATAL		;

   00000000'EF            52     D0  06B6 36250 30$:	MOVL	R2,BOO$GL_SPTFREL	; MARK AS ALLOCATED

            52            64     C2  06BD 36300 	SUBL	(R4),R2			; BACK TO BASE VPN

            52            09     78  06C0 36350 	ASHL	#9,R2,MMG$GL_RMSBASE	; COMPUTE RMS IMAGE BASE VA

                 00000000'EF         06C3       

   00000000'EF   80000000 8F     C8  06C8 36400 	BISL	#^X80000000,MMG$GL_RMSBASE	; SET SYSTEM BIT IN VA

   00000000'EF   00000000'EF     D0  06D3 36450 	MOVL	MMG$GL_RMSBASE,CTL$GL_RMSBASE	; JUST IN CASE WE CALL RMS

                                     06DE 36500 ;

                                     06DE 36550 ; ***** NOTE THAT AT THIS MOMENT A 1 BLOCK IMAGE HEADER IS ASSUMED FOR RMS

                                     06DE 36600 ;

            53            02     D0  06DE 36650 	MOVL	#2,R3			; START MAPPING AFTER HEADER BLOCK

                          014A   30  06E1 36700 	BSBW	SIP_MAPSEC		; MAP RMS AS A SYSTEM SECTION

                       04 A4     D5  06E4 36750 	TSTL	4(R4)			; MSG FILE PRESENT AND CONTIGUOUS?

                          33     15  06E7 36800 	BLEQ	40$			; BRANCH IF NOT

            52   00000000'EF     D0  06E9 36850 	MOVL	BOO$GL_SPTFREL,R2 	; SYSTEM PAGE NUMBER TO START MAPPING AT

            52            64     C0  06F0 36900 	ADDL	(R4),R2			; ALLOCATE REQUIRED NUMBER OF PAGES

   00000000'EF            52     D1  06F3 36950 	CMPL	R2,BOO$GL_SPTFREH 	; CHECK FOR FIT

                          20     14  06FA 37000 	BGTR	40$			; INSUFFICIENT SPT

   00000000'EF            52     D0  06FC 37050 	MOVL	R2,BOO$GL_SPTFREL	; MARK PAGES ALLOCATED

            52            64     C2  0703 37100 	SUBL	(R4),R2			; RECOMPUTE BASE VPN

            52            09     78  0706 37150 	ASHL	#9,R2,R0		; COMPUTE SYSTEM VA

                          50         0709       

            50   80000000 8F     C9  070A 37200 	BISL3	#^X80000000,R0,MSG$GL_INDEX ; AND SET INDEX BASE ADDRESS

                 00000000'EF         0711       

            53            01     D0  0716 37250 	MOVL	#1,R3			; START MAPPING AT FIRST BLOCK

                          0112   30  0719 37300 	BSBW	SIP_MAPSEC		; MAP MESSAGE FILE AS A SYSTEM SECTION

                                     071C 37350 40$:					; RMS MAPPING COMPLETE

   00000000'EF   00000000'8F     E0  071C 37400 	BBS	#EXE$V_SYSPAGING,EXE$GL_FLAGS,60$	; DONE IF SYSTEM PAGING

                          17         0727       

            51   00000000'EF     D0  0728 37450 	MOVL	MMG$GL_RMSBASE,R1	; GET BASE OF RMS IMAGE

       0048'CF            01     C3  072F 37500 	SUBL3	#1,W^SIP_Q_RMSFIL,R0	; AND SIZE OF RMS IMAGE EXCLUDING HEADER

                          50         0734       

                          61     95  0735 37550 50$:	TSTB	(R1)			; TOUCH PAGE TO MAKE IT APPEAR

            51       0200 C1     9E  0737 37600 	MOVAB	512(R1),R1		; MOVE TO NEXT PAGE

            F6            50     F5  073C 37650 	SOBGTR	R0,50$			; TOUCH THEM ALL

                                     073F 37700 60$:					; DONE

            51   00000000'EF     D0  073F 37750 	MOVL	EXE$GL_SYSUCB,R1	; GET SYSTEM DEVICE UCB ADDRESS

                       28 A1     D4  0746 37800 	CLRL	UCB$L_PID(R1)		; DEALLOCATE SYSTEM DEVICE

                                     0749 37850 ;

                                     0749 37900 ;	RESTORE ERROR LOG INFORMATION AFTER SYSTEM FATAL BUGCHECK

                                     0749 37950 ;

                                     0749 38000 RESTORERL:				; RESTORE ERROR LOG INFORMATION

            53   00000004'EF     D0  0749 38050 	MOVL	EXE$GQ_SYSDMP+4,R3	; GET LBN OF DUMPFILE

                          03     14  0750 38100 	BGTR	10$			; CONTINUE IF VALID

                          00CF   31  0752 38150 5$:	BRW	NOERL			; BRANCH IF NONE

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  19

02.08           SYSTEM INITIALIZATION KERNEL LEVEL                                                                               (1)



                                     0755 38200 10$:	$QIOW_S	CHAN=SIP_L_DSKCHAN,-	; READ DUMP FILE

                                     0755 38250 		FUNC=#IO$_READLBLK,-	; 

                                     0755 38300 		P1=SIP_A_ERLBUFFER,-	; BUFFER ADDRESS

                                     0755 38350 		P2=#<3*512>,-		; SIZE 

                                     0755 38400 		P3=R3			; LBN

            CF            50     E9  0780 38450 	BLBC	R0,5$			; SKIP IF ERROR READING FILE

            54       014E'CF     9E  0783 38500 	MOVAB	W^SIP_A_ERLBUFFER,R4	; GET ADDRESS OF ERROR LOG INFO

            55            64     D0  0788 38550 	MOVL	(R4),R5			; PICK UP SAVED SEQUENCE NUMBER

                          C5     13  078B 38600 	BEQL	5$			; SKIP IF NULL, NO INFO

                          64     D4  078D 38650 	CLRL	(R4)			; ZAP SEQUENCE NUMBER

                                     078F 38700 	$QIOW_S	CHAN=SIP_L_DSKCHAN,-	; MARK FILE EMPTY

                                     078F 38750 		FUNC=#IO$_WRITELBLK,-	; BY REWRITING FIRST BLOCK

                                     078F 38800 		P1=SIP_A_ERLBUFFER,-	; BUFFER ADDRESS

                                     078F 38850 		P2=#512,-		; SIZE

                                     078F 38900 		P3=R3			; LBN

                     03E0 8F     BB  07BA 38950 	PUSHR	#^M<R5,R6,R7,R8,R9>	; SAVE R5-R9

            55            02     D0  07BE 39000 	MOVL	#2,R5			; SET NUMBER OF ERROR LOG BUFFERS

            54       0200 C4     9E  07C1 39050 20$:	MOVAB	512(R4),R4		; POINT TO NEXT BUFFER

                       01 A4     95  07C6 39100 	TSTB	ERL$B_MSGCNT(R4)	; ANY MESSAGES IN BUFFER?

                          4B     13  07C9 39150 	BEQL	80$			; NO, TRY NEXT BUFFER

            57       01F4 8F     3C  07CB 39200 	MOVZWL	#<512-ERL$C_LENGTH>,R7	; SET BYTES IN BUFFER

         08 A4         04 A4     C3  07D0 39250 	SUBL3	ERL$L_NEXT(R4),ERL$L_END(R4),R6 ; EMPTY BUFFER SIZE

                          56         07D5       

            57            56     D1  07D6 39300 	CMPL	R6,R7			; CHECK FOR REASONABLE POINTERS

                          3B     1A  07D9 39350 	BGTRU	80$			; NO, TRY NEXT BUFFER

            57            56     C2  07DB 39400 	SUBL	R6,R7			; COMPUTE ALLOCATED SPACE IN BUFFER

            5A            0C     9A  07DE 39450 	MOVZBL	#ERL$C_LENGTH,R10	; SET INITIAL OFFSET IN ERL BUFFER

            58            644A   9E  07E1 39500 30$:	MOVAB	(R4)[R10],R8		; COMPUTE MESSAGE BASE ADDRESS

            59            68     3C  07E5 39550 	MOVZWL	EMB$W_SIZE(R8),R9	; GET MESSAGE SIZE

                          2C     13  07E8 39600 	BEQL	80$			; NULL - ERROR

            57            59     C2  07EA 39650 	SUBL	R9,R7			; CHECK FOR FIT IN ALLOCATED BUFFER

                          27     19  07ED 39700 	BLSS	80$			; NO SKIP REST OF BUFFER

                       03 A8     95  07EF 39750 	TSTB	EMB$B_VALID(R8)		; IS THIS A VALID MESSAGE?

                          1D     13  07F2 39800 	BEQL	40$			; BRANCH IF NOT

            51            59     D0  07F4 39850 	MOVL	R9,R1			; SIZE OF BUFFER TO ALLOCATE

                 00000000'EF     16  07F7 39900 	JSB	ERL$ALLOCEMB		; ALLOCATE BUFFER FOR MESSAGE

            16            50     E9  07FD 39950 	BLBC	R0,80$			; SKIP IF NO SPACE

                          3F     BB  0800 40000 	PUSHR	#^M<R0,R1,R2,R3,R4,R5>	; SAVE MOVC REGISTERS

            68            59     28  0802 40050 	MOVC3	R9,(R8),(R2)		; COPY MESSAGE ENTIRELY

                          62         0805       

                          3F     BA  0806 40100 	POPR	#^M<R0,R1,R2,R3,R4,R5>	; RESTORE MOVC REGISTERS

                       03 A2     94  0808 40150 	CLRB	EMB$B_VALID(R2)		; CLEAR VALID STATUS

                 00000000'EF     16  080B 40200 	JSB	ERL$RELEASEMB		; MARK MESSAGE COMPLETE

            5A            59     C0  0811 40250 40$:	ADDL	R9,R10			; POINT TO NEXT MESSAGE

                          CB     11  0814 40300 	BRB	30$			; 

            A8            55     F5  0816 40350 80$:	SOBGTR	R5,20$			; NEXT BUFFER

                     03E0 8F     BA  0819 40400 	POPR	#^M<R5,R6,R7,R8,R9>	; RESTORE R5-R9

   00000000'EF            55     D0  081D 40450 	MOVL	R5,ERL$GL_SEQUENCE	; RESTORE CURRENT SEQUENCE MESSAGE

                                     0824 40500 NOERL:					; 

                 00000000'EF     16  0824 40550 	JSB	ERL$COLDSTART		; LOG STARTUP

                                     082A 40600 ;

                                     082A 40650 ; INITIALIZATION KERNEL ROUTINE COMPLETE

                                     082A 40700 ;

            50            01     3C  082A 40750 	MOVZWL	#1,R0			; GIVE SUCCESS

                                 04  082D 40800 	RET

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  20

02.08           SIP MAP SYSTEM SECTION                                                                                           (1)



                                     082E 40900 	.SBTTL	SIP MAP SYSTEM SECTION

                                     082E 40950 ;++

                                     082E 41000 ; FUNCTIONAL DESCRIPTION:

                                     082E 41050 ;

                                     082E 41100 ;	THIS ROUTINE MAPS A FILE INTO A SPECIFIED PORTION OF SYSTEM SPACE

                                     082E 41150 ;

                                     082E 41200 ; CALLING SEQUENCE:

                                     082E 41250 ;

                                     082E 41300 ;	BSBW	SIP_MAPSEC

                                     082E 41350 ;

                                     082E 41400 ; INPUTS:

                                     082E 41450 ;

                                     082E 41500 ;	R2 = SYSTEM VIRTUAL PAGE NUMBER TO BEGIN MAPPING AT

                                     082E 41550 ;	R3 = STARTING VIRTUAL BLOCK IN FILE TO START MAPPING

                                     082E 41600 ;	R4 = ADDRESS OF QUAD WORD DESCRIPTOR OF FILE TO MAP

                                     082E 41650 ;		0(R4) = SIZE OF FILE IN BLOCKS

                                     082E 41700 ;		4(R4) = LOGICAL BLOCK NUMBER OF FIRST VBN OF FILE

                                     082E 41750 ;			PREVIOUSLY CHECKED FOR FILE NOT FOUND OR NOT CONTIGUOUS

                                     082E 41800 ;	R5 = PROCESS HEADER ADDRESS

                                     082E 41850 ;

                                     082E 41900 ; OUTPUTS:

                                     082E 41950 ;

                                     082E 42000 ;	R0-R3 ALTERED

                                     082E 42050 ;	R4 = ADDRESS OF NEXT QUADWORD DESCRIPTOR

                                     082E 42100 ;	R5 PRESERVED

                                     082E 42150 ;

                                     082E 42200 ;--

                                     082E 42250 

                                     082E 42300 SIP_MAPSEC:

                          0C     BB  082E 42350 	PUSHR	#^M<R2,R3>		; SAVE SYSTEM VIRTUAL PAGE NUMBER

                          0059   30  0830 42400 	BSBW	SIP_INIWCB		; ALLOCATE AND INIT A WINDOW

                          05     BB  0833 42450 	PUSHR	#^M<R0,R2>		; SAVE WCB ADR, SIZE OF FILE

                 00000000'EF     16  0835 42500 	JSB	MMG$ALCSTX		; ALLOCATE A SYSTEM PROCESS SECTION

            08            50     E8  083B 42550 	BLBS	R0,20$			; BRANCH IF SUCCESSFUL

            51       F9AC CF     9E  083E 42600 	MOVAB	W^MAPSECERR,R1		; ERROR MAPPING A SYSTEM SECTION

                          0082   30  0843 42650 	BSBW	SIP_FATAL		;

                                     0846 42700 	

                          01     BA  0846 42750 20$:	POPR	#^M<R0>			; RECOVER FILE SIZE

            55         20 A5     C1  0848 42800 	ADDL3	PHD$L_PSTBASOFF(R5),R5,R3 ; BASE ADDRESS OF SECTION TABLE

                          53         084C       

            53            6341   DE  084D 42850 	MOVAL	(R3)[R1],R3		; ADDRESS OF SECTION TABLE ENTRY

                          63     D4  0851 42900 	CLRL	SEC$L_CCB(R3)		; NO CHANNEL CONTROL BLOCK ADDRESS

         0C A3            8E     D0  0853 42950 	MOVL	(SP)+,SEC$L_WINDOW(R3) 	; SET WINDOW ADDRESS

                          04     BA  0857 43000 	POPR	#^M<R2>			; RECOVER SAVED VIRTUAL PAGE NUBMBER

            50            6E     C2  0859 43050 	SUBL	(SP),R0			; FORM SECTION SIZE AS

                          50     D6  085C 43100 	INCL	R0			; FILE SIZE - START VBN + 1

         10 A3            8E     D0  085E 43150 	MOVL	(SP)+,SEC$L_VBN(R3)	; STARTING VBN OF SECTION

         08 A3            52     D0  0862 43200 	MOVL	R2,SEC$L_VPXPFC(R3)	; STARTING VIRTUAL PAGE NUMBER IN SPT

                       14 A3     B4  0866 43250 	CLRW	SEC$W_FLAGS(R3)		; ZERO SECTION FLAGS

         1C A3            50     D0  0869 43300 	MOVL	R0,SEC$L_PAGCNT(R3)	; SIZE OF SECTION IN PAGES

         18 A3            50     D0  086D 43350 	MOVL	R0,SEC$L_REFCNT(R3)	; NUMBER OF OUTSTANDING REFERENCES

                       04 A3     D4  0871 43400 	CLRL	SEC$W_SECXFL(R3)	; NO SECTION INDICES

                                 F0  0874 43450 	INSV	#<PTE$C_URKW ! PTE$M_TYP1 ! PTE$M_TYP0>@-16,-

            10   00007440 8F         0875 43500 		#16,#16,R1		; FORM SECTION TYPE PTE

            51            10         087B       

            52   00000000'FF42   DE  087D 43550 	MOVAL	@MMG$GL_SPTBASE[R2],R2	; ADDRESS OF FIRST SPT ENTRY TO FILL IN

            82            51     D0  0885 43600 30$:	MOVL	R1,(R2)+		; STORE EACH PAGE TABLE ENTRY

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  21

02.08           SIP MAP SYSTEM SECTION                                                                                           (1)



            FA            50     F5  0888 43650 	SOBGTR	R0,30$			; AND REPEAT FOR EACH PAGE

                                 05  088B 43700 	RSB				;

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  22

02.08           SIP_INIWCB - ALLOCATE AND INIT A WINDOW CONTROL                                                                  (1)



                                     088C 43800 	.SBTTL	SIP_INIWCB - ALLOCATE AND INIT A WINDOW CONTROL BLOCK

                                     088C 43850 ;

                                     088C 43900 ; INPUTS:

                                     088C 43950 ;

                                     088C 44000 ;	R4 = ADDRESS OF FILE DESCRIPTOR

                                     088C 44050 ;		0(R4) = FILE SIZE

                                     088C 44100 ;		4(R4) = STARTING LOGICAL BLOCK NUMBER

                                     088C 44150 ;

                                     088C 44200 ; OUTPUTS:

                                     088C 44250 ;

                                     088C 44300 ;	R0 = SIZE OF FILE

                                     088C 44350 ;	R2 = WINDOW CONTROL BLOCK ADDRESS

                                     088C 44400 ;	R4 = R4 + 8 (POINTING TO NEXT FILE DESCRIPTOR)

                                     088C 44450 ;	RETURNS IN LINE ONLY IF SUCCESSFUL

                                     088C 44500 ;	FATAL ERROR IF FAIL TO ALLOCATE A WINDOW

                                     088C 44550 ;

                                     088C 44600 SIP_INIWCB:

            51            84     7D  088C 44650 	MOVQ	(R4)+,R1		;R1=SIZE, R2=STARTING LBN

                          51     DD  088F 44700 	PUSHL	R1			;SAVE THE SIZE

            53   00000000'EF     D0  0891 44750 	MOVL	EXE$GL_SYSUCB,R3	;SYSTEM UCB ADDRESS

                 00000000'EF     16  0898 44800 	JSB	MMG$INIWCB		;ALLOCATE AND INIT THE WINDOW

            03            50     E9  089E 44850 	BLBC	R0,10$			;BRANCH IF FAILED

                          01     BA  08A1 44900 	POPR	#^M<R0>			;RETURN FILE SIZE IN R0

                                 05  08A3 44950 	RSB

            51       F95C CF     9E  08A4 45000 10$:	MOVAB	W^INIWCBERR,R1		; ERROR INITING WINDOW CONTROL BLOCK

                          001C   30  08A9 45050 	BSBW	SIP_FATAL		;

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  23

02.08           SIP MAKE KNOWN FILE ENTRY FOR FCP                                                                                (1)



                                     08AC 45150 	.SBTTL	SIP MAKE KNOWN FILE ENTRY FOR FCP

                                     08AC 45200 

                                     08AC 45250 MAKE_FCP_KFI:

                               0000  08AC 45300 	.WORD	0

       0000'CF            6C     FA  08AE 45350 	CALLG	(AP),W^INS$CREDEL	; CREATE THE KNOWN FILE ENTRY

            0F            50     E9  08B3 45400 	BLBC	R0,10$			; BRANCH IF ERROR

            51   00000000'FF     D0  08B6 45450 	MOVL	@EXE$GL_KNOWNFIL,R1	; GET ADDRESS OF FIRST KNOWN FILE LIST

   00000000'EF         00 B1     D0  08BD 45500 	MOVL	@(R1),KFI$GL_F11AACP	; STORE KNOWN FILE ENTRY ADDRESS

                                     08C5 45550 					; FOR THE FCP, WHERE THE IMAGE

                                     08C5 45600 					; ACIVATOR WILL FIND IT.

                                 04  08C5 45650 10$:	RET

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  24

02.08           SIP ERROR/MESSAGE OUTPUT                                                                                         (1)



                                     08C6 45750 	.SBTTL	SIP ERROR/MESSAGE OUTPUT

                                     08C6 45800 ;++

                                     08C6 45850 ; FUNCTIONAL DESCRIPTION:

                                     08C6 45900 ;

                                     08C6 45950 ;	THIS MODULE IS CALL TO DISPLAY AN ERROR FOR THE

                                     08C6 46000 ;	SYSTEM INITIALIZATION PROCESS.

                                     08C6 46050 ;

                                     08C6 46100 ; CALLING SEQUENCE:

                                     08C6 46150 ;

                                     08C6 46200 ;	BSB	SIP_FATAL		; DISPLAY ERROR AND EXIT

                                     08C6 46250 ;	BSB	SIP_SYSMSG		; TO DISPLAY A SYSTEM ERROR AND RETURN

                                     08C6 46300 ;	BSB	SIP_R0MSG		; TO DISPLAY AN ERROR WITH VALUE IN R0

                          2F     10  08C6 46350 	BSB	SIP_TYPOUT		; TYPE OUT A MESSAGE

                                     08C8 46400 ;

                                     08C8 46450 ; INPUT PARAMETERS:

                                     08C8 46500 ;

                                     08C8 46550 ; FOR SIP_FATAL AND SIP_SYSMSG:

                                     08C8 46600 ;

                                     08C8 46650 ;	R0 IS ERROR CODE

                                     08C8 46700 ;	R1 IS ADDRESS OF COUNTED MESSAGE STRING

                                     08C8 46750 ;

                                     08C8 46800 ; CALL AT SIP_TYPOUT WITH:

                                     08C8 46850 ;

                                     08C8 46900 ;	R0 = BYTE COUNT

                                     08C8 46950 ;	R1 = ADDRESS OF STRING

                                     08C8 47000 ;

                                     08C8 47050 ; OUTPUT PARAMETERS:

                                     08C8 47100 ;

                                     08C8 47150 ;	THE MESSAGE IS DISPLAYED AND AN IMAGE EXIT IS EFFECTED IF

                                     08C8 47200 ;	ENTERED AT SIP_FATAL.

                                     08C8 47250 ;--

                                     08C8 47300 ;

                                     08C8 47350 SIP_FATAL:

                          50     DD  08C8 47400 	PUSHL	R0			; SAVE ERROR

                          07     10  08CA 47450 	BSB	SIP_SYSMSG		; OUTPUT MESSAGE

   00000000'9F            01     FB  08CC 47500 	CALLS	#1,@#SYS$EXIT		; TAKE EXIT WITH STATUS

                                     08D3 47550  

                                     08D3 47600 ;

                                     08D3 47650 ; ROUTINE TO PRINT MESSAGE WITH SYSTEM ERROR CODE

                                     08D3 47700 ;

                                     08D3 47750  

                                     08D3 47800 SIP_SYSMSG:

                          05     BB  08D3 47850 	PUSHR	#<^M<R0,R2>>		; SAVE ARGUMENT AND A REGISTER

                          51     DD  08D5 47900 	PUSHL	R1			; PUSH ADDRESS OF THE TEXT STRING

            52       00A9'CF     DE  08D7 47950 	MOVAL	W^SIP_Q_LINBUF+2,R2	; GET THE BUFFER DESCRIPTOR

            72            62     B0  08DC 48000 	MOVW	(R2),-(R2)		; SET BUFFER LENGTH

                          62     7F  08DF 48050 	PUSHAQ	(R2)			; ADDRESS OF BUFFER DESCRIPTOR

                          62     3F  08E1 48100 	PUSHAW	(R2)			; PLACE TO RETURN LENGTH

                     F7D6 CF     9F  08E3 48150 	PUSHAB	W^FAOERR		; FORMAT STRING

   00000000'9F            05     FB  08E7 48200 	CALLS	#5,@#SYS$FAO		; FORMAT THE MESSAGE

            50            62     3C  08EE 48250 	MOVZWL	(R2),R0			; GET LENGTH

            51         04 A2     D0  08F1 48300 	MOVL	4(R2),R1		; BUFFER ADDRESS

                          04     BA  08F5 48350 	POPR	#^M<R2>			; RESTORE CALLER R2

                                     08F7 48400 					; FALL INTO TYPE OUT

                                     08F7 48450  

                                     08F7 48500 SIP_TYPOUT:				;

                          03     BB  08F7 48550 	PUSHR	#^M<R0,R1>		; SAVE BUFFER AND COUNT

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  25

02.08           SIP ERROR/MESSAGE OUTPUT                                                                                         (1)



                                     08F9 48600 	$ASSIGN_S  W^SIP_Q_TTNAME,W^SIP_L_TTCHAN ; ASSIGN A CHANNEL TO TERMINAL

            36            50     E9  090A 48650 	BLBC	R0,30$			; BR IF ERROR ASSIGNING CHANNEL

                          03     BA  090D 48700 	POPR	#^M<R0,R1>		; RESTORE COUNT AND BUFFER

                                     090F 48750 	$QIOW_S	#0,W^SIP_L_TTCHAN,-	; EVENT FLAG 0, TERMINAL CHANNEL

                                     090F 48800 		#IO$_WRITEVBLK,-	; WRITE OPERATION

                                     090F 48850 		,,,-			; NO I/O STATUS,AST ADDRESS OR PARAMETER

                                     090F 48900 		(R1),R0,-		; BUFFER ADDRESS IN R1,R0 CONTAINS COUNT

                                     090F 48950 		#0,#32			; NULL PARAMETER PLUS CARRAIGE CONTROL

            10            50     E9  0930 49000 	BLBC	R0,30$			; BR IF ERROR WRITING TERMINAL

                                     0933 49050 	$DASSGN_S W^SIP_L_TTCHAN	; REMOVE TERMINAL ASSIGNMENT

            01            50     E9  093F 49100 	BLBC	R0,30$			; BR ON DEASSIGN ERROR

                                 05  0942 49150 	RSB				; RETURN TO CALLER

                                     0943 49200 30$:	$CMKRNL_S B^100$		; GET TO KERNAL MODE

                                     094F 49250 ;

                                     094F 49300 ; FATAL ERROR ROUTINE

                                     094F 49350 ;

                               0000  094F 49400 100$:	.WORD	0			; ERROR ATTEMPTING OUTPUT TO TERMINAL

                                     0951 49450 	BUG_CHECK  SYSTRMERR,FATAL	; REPORT FATAL ERROR

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  26

02.08           SIP_SETTIME  -  SET SYSTEM TIME TO CORRECT VALU                                                                  (1)



                                     0955 49550 	.SBTTL	SIP_SETTIME  -  SET SYSTEM TIME TO CORRECT VALUE AT STARTUP

                                     0955 49600 ;++

                                     0955 49650 ; FUNCTIONAL DESCRIPTION:

                                     0955 49700 ;	SIP_SETTIME SOLICITS THE CORRECT TIME FROM THE OPERATOR IF NECESSARY,

                                     0955 49750 ;	CONVERTS THE ASCII RESPONSE TO BINARY FORMAT AND SETS THE CORRECT

                                     0955 49800 ;	TIME VALUE IN EXE$SYSTIME AND ALL CURRENT TIME QUEUE ENTRIES WHICH WILL

                                     0955 49850 ;	EXPIRE AS A RESULT OF THE NEW TIME VALUE.

                                     0955 49900 ;

                                     0955 49950 ; INPUT PARAMETERS:

                                     0955 50000 ;	NONE

                                     0955 50050 ;

                                     0955 50100 ; IMPLICIT INPUTS:

                                     0955 50150 ;	EXE$GQ_SYSTIME - CURRENT SYSTEM TIME IN 100 NANOSECOND UNITS.

                                     0955 50200 ;

                                     0955 50250 ; IMPLICIT OUTPUTS:

                                     0955 50300 ;	EXE$GQ_SYSTIME - SET TO CURRENT TIME IN 100 NANOSECOND UNITS SINCE

                                     0955 50350 ;			 17-NOV-1858  00:00:00.

                                     0955 50400 ;

                                     0955 50450 ;--

                                     0955 50500 

                                     0955 50550 SIP_SETTIME:				; SET CORRECT TIME

                               061C  0955 50600 	.WORD	^M<R2,R3,R4,R9,R10>	; ENTRY MASK

   00000000'EF            00'    E0  0957 50650 	BBS	S^#EXE$V_SETTIME,EXE$GL_FLAGS,READTIME	; BR IF MUST SOLICIT TIME

                          4E         095E       

   00000000'EF            00'    E0  095F 50700 	BBS	S^#EXE$V_SIMULATOR,EXE$GL_FLAGS,READTIME; MUST FOR SIMULATOR

                          46         0966       

                 00000000'EF     D5  0967 50750 	TSTL	EXE$GL_TODR		; CHECK FOR FIRST BOOT

                          3E     13  096D 50800 	BEQL	READTIME		; YES, MUST SOLICIT TIME

            5A            1B     DB  096F 50850 	MFPR	#PR$_TODR,R10		; GET TIME OF DAY CLOCK VALUE

            5A   00000000'EF     C3  0972 50900 	SUBL3	EXE$GL_TODR,R10,R9	; GET TOD DELTA TIME (10 MS UNITS)

                          59         0979       

                          31     1F  097A 50950 	BLSSU	READTIME		; LESS, MUST SOLICIT TIME

            1F            01     EF  097C 51000 	EXTZV	#1,#31,R9,R0		; DIVIDE BY 2

            50            59         097F       

            50   00030D40 8F     7A  0981 51050 	EMUL	#<100*1000*2>,R0,#0,R0	; COMPUTE 100 NANOSECOND DELTA

            50            00         0988       

            0A            59     E9  098A 51100 	BLBC	R9,10$			; BR IF NO CORRECTION NEEDED

            50   000186A0 8F     C0  098D 51150 	ADDL	#<100*1000>,R0		; ADD LAST 10MS UNIT

            51            00     D8  0994 51200 	ADWC	#0,R1			; TO QUADWORD

            50   00000000'EF     C0  0997 51250 10$:	ADDL	EXE$GQ_TODCBASE,R0	; FORM ABSOLUTE TIME

            51   00000004'EF     D8  099E 51300 	ADWC	EXE$GQ_TODCBASE+4,R1	;

       0060'CF            50     7D  09A5 51350 	MOVQ	R0,W^SIP_Q_INTIME	; SAVE FOR QUEUE ADJUSTMENTS

                          00D0   31  09AA 51400 	BRW	TIMESET			;

                                     09AD 51450 READTIME:				; SOLICIT TIME 

                                     09AD 51500 	$GETTIM_S	W^SIP_Q_CURNTIM	; GET CURRENT TIME FOR VALIDITY CHECK

                                     09B8 51550 	$ASSIGN_S	W^SIP_Q_TTNAME,W^SIP_L_TTCHAN	; AND ASSIGN TO INPUT DEVICE

            03            50     E8  09C9 51600 	BLBS	R0,10$			; CONTINUE IF SUCCESSFUL

                          00A2   31  09CC 51650 	BRW	99$			; FATAL SET TIME ERROR

            52       F884 CF     9E  09CF 51700 10$:	MOVAB	W^TIMEPROMPT,R2		; GET ADDRESS OF PROMPT STRING

            53            82     9A  09D4 51750 	MOVZBL	(R2)+,R3		; AND LENGTH

                                     09D7 51800 	$QIOW_S	#0,W^SIP_L_TTCHAN,-	; PROMPT AND READ TIME

                                     09D7 51850 	#<IO$_READPROMPT!IO$M_PURGE!IO$M_TIMED!IO$M_CVTLOW>,-

                                     09D7 51900 	W^SIP_Q_TMPDESC,,,-		; I/O STATUS BLOCK , NO AST OR PARAM

                                     09D7 51950 	W^SIP_T_LINBUF,#SIP_C_LINBUFSIZ,-	; BUFFER ADDRESS AND SIZE

                                     09D7 52000 	#20,#0,-			; 20 XSECOND TIME OUT

                                     09D7 52050 	R2,R3				; PROMPT ADDRESS AND SIZE

            6C            50     E9  0A02 52100 	BLBC	R0,99$			; FATAL SET TIME ERROR

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  27

02.08           SIP_SETTIME  -  SET SYSTEM TIME TO CORRECT VALU                                                                  (1)



            54       0008'CF     7D  0A05 52150 	MOVQ	W^SIP_Q_TMPDESC,R4	; GET COMPLETION STATUS

            02            54     E8  0A0A 52200 	BLBS	R4,20$			; CONTINUE IF SUCCESSFUL READ

                          C0     11  0A0D 52250 	BRB	10$			; TRY AGAIN FOR TIME

                                     0A0F 52300 20$:					; SOMETHING WAS INPUT

       0008'CF       000A'CF     3C  0A0F 52350 	MOVZWL	W^SIP_Q_TMPDESC+2,W^SIP_Q_TMPDESC	; FORM DESCRIPTOR FOR BUFFER

       000C'CF       00AF'CF     9E  0A16 52400 	MOVAB	W^SIP_T_LINBUF,W^SIP_Q_TMPDESC+4	; SET DESCRIPTOR ADDRESS

                                     0A1D 52450 	$BINTIM_S	W^SIP_Q_TMPDESC,W^SIP_Q_INTIME	; CONVERT TO BINARY TIME

            16            50     E9  0A2C 52500 	BLBC	R0,89$			; INVALID TIME

       005C'CF       0064'CF     D1  0A2F 52550 	CMPL	W^SIP_Q_INTIME+4,W^SIP_Q_CURNTIM+4	; CHECK FOR VALID

                          0D     19  0A36 52600 	BLSS	89$			; NOT VALID, TOO EARLY

                          09     14  0A38 52650 	BGTR	30$			; LOOKS GOOD

       0058'CF       0060'CF     D1  0A3A 52700 	CMPL	W^SIP_Q_INTIME,W^SIP_Q_CURNTIM	; CHECK LOW ORDER BITS

                          02     1F  0A41 52750 	BLSSU	89$			; NOT VALID

                                     0A43 52800 30$:					; VALID TIME INPUT, CONVERTED

                          2C     11  0A43 52850 	BRB	100$			; RELEASE CHANNEL AND EXIT

                                     0A45 52900 

                                     0A45 52950 89$:					; INVALID TIME VALUE INPUT

            52       F7CF CF     9E  0A45 53000 	MOVAB	W^TIMERR,R2		; ADDRESS OF ERROR MESSAGE 

            53            82     9A  0A4A 53050 	MOVZBL	(R2)+,R3		; GET STRING LENGTH

                                     0A4D 53100 	$QIOW_S	#0,W^SIP_L_TTCHAN,-	; GIVE ERROR MESSAGE

                                     0A4D 53150 		#IO$_WRITEVBLK,-	;

                                     0A4D 53200 		,,,-			; NO I/O STATUS,AST OR AST PARAM

                                     0A4D 53250 		(R2),R3	,-		; BUFFER ADDRESS, LENGTH

                                     0A4D 53300 		#0,#32			; SET CARRIAGE CONTROL TO CR/LF

                          FF5E   31  0A6E 53350 	BRW	10$			; AND TRY AGAIN

                                     0A71 53400 99$:					; BAD ERROR

                                     0A71 53450 100$:					; EXIT

                                     0A71 53500 	$DASSGN_S	W^SIP_L_TTCHAN	; DE-ASSIGN TERMINAL CHANNEL

                                     0A7D 53550 TIMESET:				;

   00000008'EF   00000050 8F     D0  0A7D 53600 	MOVL	#SIP_C_LINBUFSIZ,SIP_Q_TMPDESC	; FORM TEMP DESCRIPTOR

       000C'CF       00AF'CF     9E  0A88 53650 	MOVAB	W^SIP_T_LINBUF,W^SIP_Q_TMPDESC+4; TO GET ASCII TIME

                                     0A8F 53700 	$ASCTIM_S	TIMADR=W^SIP_Q_INTIME,-	; TIME TO CONVERT

                                     0A8F 53750 			TIMBUF=W^SIP_Q_TMPDESC,-; BUFFER DESCRIPTOR

                                     0A8F 53800 			TIMLEN=W^SIP_T_LINBUF	; CONVERSION LENGTH

       0106'CF       00B6'CF     D0  0AA4 53850 	MOVL	W^SIP_T_LINBUF+7,W^YEAR		; SET YEAR IN NEWYEAR STRING

                                     0AAB 53900 	$BINTIM_S	TIMADR=W^SIP_Q_CURNTIM,-; COMPUTE BASE OF YEAR

                                     0AAB 53950 			TIMBUF=W^NEWYRDESC	; USING START OF CALENDAR YEAR

            50       0060'CF     7D  0ABA 54000 	MOVQ	W^SIP_Q_INTIME,R0	; GET TIME TO SET

            50       0058'CF     C2  0ABF 54050 	SUBL	W^SIP_Q_CURNTIM,R0	; COMPUTE YEAR DELTA

            51       005C'CF     D9  0AC4 54100 	SBWC	W^SIP_Q_CURNTIM+4,R1	; IN 100 NANOSECOND UNITS

            50   00030D40 8F     7B  0AC9 54150 	EDIV	#<100*1000*2>,R0,R0,R1	; SCALE TO 20 MS UNITS

            51            50         0AD0       

            50            01     78  0AD2 54200 	ASHL	#1,R0,R0		; CONVERT TO 10 MS UNITS

                          50         0AD5       

            50   10000000 8F     C1  0AD6 54250 	ADDL3	#<1@28>,R0,R1		; COMPUTE BIASED VALUE FOR TODR

                          51         0ADD       

   00000000'EF            00'    E0  0ADE 54300 	BBS	S^#EXE$V_SIMULATOR,EXE$GL_FLAGS,20$ ; SKIP REGISTER OPERATIONS ON SIM

                          6D         0AE5       

            1B            51     DA  0AE6 54350 	MTPR	R1,#PR$_TODR		; SET AS CURRENT TIME

            5A            1B     DB  0AE9 54400 	MFPR	#PR$_TODR,R10		; GET TIME

   00000000'EF            5A     D0  0AEC 54450 	MOVL	R10,EXE$GL_TODR		; SAVE TODR FOR BASE

   00000000'EF       0060'CF     7D  0AF3 54500 	MOVQ	W^SIP_Q_INTIME,EXE$GQ_TODCBASE	; SAVE TIME OF DAY CLOCK BASE

            52   00000000'EF     9E  0AFC 54550 	MOVAB	EXE$A_SYSPARAM,R2	; GET SYSTEM PARAMETER ADDRESS

            14            09     EF  0B03 54600 	EXTZV	#VA$V_VPN,#VA$S_VPN-1,R2,R3	; COMPUTE PAGE NUMBER

            53            52         0B06       

            53   00000004'EF     C0  0B08 54650 	ADDL	EXE$GQ_STAREXE+4,R3	; COMPUTE LOGICAL BLOCK NUMBER

                                     0B0F 54700 	$ASSIGN_S	W^SIP_Q_DSKNAME,W^SIP_L_DSKCHAN	; ASSIGN DISK

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  28

02.08           SIP_SETTIME  -  SET SYSTEM TIME TO CORRECT VALU                                                                  (1)



                                     0B20 54750 	$QIOW_S	CHAN=SIP_L_DSKCHAN,-	; WRITE BACK UPDATED AREA TO SYSTEM

                                     0B20 54800 		FUNC=#IO$_WRITELBLK,-	; IMAGE

                                     0B20 54850 		P1=(R2),-		; SYSTEM PARAMETER PAGE

                                     0B20 54900 		P2=#<<EXE$C_SYSPARSZ+511>&^C511>,-	; SIZE

                                     0B20 54950 		P3=R3			; BLOCK NUMBER

                                     0B47 55000 	$DASSGN_S	W^SIP_L_DSKCHAN	; RELEASE CHANNEL

       0000'CF            6C     FA  0B53 55050 20$:	CALLG	(AP),W^SIP_KSETTIME	; SET TIME AS CURRENT TIME

                                 04  0B58 55100 	RET				; AND RETURN

                                     0B59 55150  

                                     0B59 55200 ;

                                     0B59 55250 ;********************************************************************

                                     0B59 55300 ;

                                     0B59 55350 ; THE FOLLOWING ROUTINE MUST BE LOCKED IN THE WORKING SET TO

                                     0B59 55400 ; PREVENT PAGE FAULTING AT RAISED IPL!!!!!!!!

                                     0B59 55450 ;

                                     0B59 55500 ;********************************************************************

                                     0B59 55550  

                                     0B59 55600 	.SAVE				; SAVE CURRENT PSECT INFO

                                     0B59 55650  

                                 00000000 55700 	.PSECT	$LOCKEDC1$	NOWRT,RD,EXE,PAGE

                                     0000 55750 

                                     0000 55800 SIP_KSETTIME:				; KERNEL MODE PORTION OF SET TIME 

                               00D0  0000 55850 	.WORD	^M<R4,R6,R7>		; REGISTERS R4,R6,R7

            54       0060'CF     7D  0002 55900 	MOVQ	W^SIP_Q_INTIME,R4	; GET INPUT TIME

                                     0007 55950 	SETIPL	#IPL$_POWER		; RAISE TO BLOCK POWER FAIL

            56   00000000'EF     9E  000A 56000 	MOVAB	EXE$GL_TQFL,R6		; GET ADDRESS OF TIMER QUEUE HEAD

   00000000'EF            54     7D  0011 56050 	MOVQ	R4,EXE$GQ_SYSTIME	; SET SYSTEM TIME

            57            66     D0  0018 56100 	MOVL	(R6),R7			; AND POINT AT HEAD OF TIMER QUEUE

            57            56     D1  001B 56150 10$:	CMPL	R6,R7			; CHECK FOR END

                          17     13  001E 56200 	BEQL	30$			; YES, DONE WITH LIST

         1C A7            55     D1  0020 56250 	CMPL	R5,TQE$Q_TIME+4(R7)	; CHECK FOR PAST DUE

                          0C     1F  0024 56300 	BLSSU	20$			; NO, TRY ANOTHER

                          06     1A  0026 56350 	BGTRU	15$			; GTRU THAN ENTRY, CONVERT ENTRY

         18 A7            54     D1  0028 56400 	CMPL	R4,TQE$Q_TIME(R7)	; ALSO CHECK LOW ORDER BITS

                          04     1F  002C 56450 	BLSSU	20$			; NO,

         18 A7            54     7D  002E 56500 15$:	MOVQ	R4,TQE$Q_TIME(R7)	; SET NEW EXPIRATION TIME

            57            67     D0  0032 56550 20$:	MOVL	(R7),R7			; FLINK TO NEXT ENTRY

                          E4     11  0035 56600 	BRB	10$			;

                                     0037 56650 30$:

                                     0037 56700 	SETIPL	#0			; NOW DROP IPL

            50            01     3C  003A 56750 	MOVZWL	#1,R0			; SET SUCCESSFUL COMPLETION STATUS

                                 04  003D 56800 	RET				; AND RETURN TO USER MODE

                                     003E 56850  

                                 00000B59 56900 	.RESTORE			; BACK TO NORMAL PSECT

                                     0B59 56950 	.END	SIP_START

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  29

SYMBOL TABLE                                                                                                                     (1)



$$T1           = 00000001            DEV$V_SWL      = 00000019            EMB$K_UBC      = 00000070            

ACPINIERR        00000184 R     03   DEV$V_TRM      = 00000002            EMB$K_UI       = 00000061            

BIT...         = 00000020            DEV$V_WCK      = 0000001F            EMB$K_VD       = 00000041            

BOO$GL_SPTFREH   ********   X   03   DMPFILERR        000000F5 R     03   EMB$K_VM       = 00000040            

BOO$GL_SPTFREL   ********   X   03   DMPFILNAM        00000298 R     03   EMB$K_WS       = 00000024            

BUG$_SYSTRMERR   ********   X   03   DYN$C_KFI        ********   X   03   EMB$L_DV_CHAR    00000036            

CREERREND        00000146 R     05   DYN$C_PTR        ********   X   03   EMB$L_DV_MEDIA   00000026            

CREPRCERR        0000011E R     05   EMB$B_BUFIND     00000002            EMB$L_DV_OPCNT   0000002E            

CREPRCNAM        00000137 R     05   EMB$B_DEVCLS     00000005            EMB$L_DV_OWNUIC  00000032            

CTL$GL_RMSBASE   ********   X   03   EMB$B_DEVTYP     00000004            EMB$L_DV_REGSAV  0000004E            

DEV$M_ALL      = 00800000            EMB$B_DV_CLASS   0000001C            EMB$L_DV_RQPID   0000001E            

DEV$M_AVL      = 00040000            EMB$B_DV_ERTCNT  00000010            EMB$Q_DV_IOSB    00000012            

DEV$M_CCL      = 00000002            EMB$B_DV_ERTMAX  00000011            EMB$Q_DV_TIME    00000006            

DEV$M_DIR      = 00000008            EMB$B_DV_SLAVE   0000003A            EMB$Q_HD_TIME    00000006            

DEV$M_DMT      = 00200000            EMB$B_DV_TYPE    0000001D            EMB$Q_TS_TIME    00000006            

DEV$M_ELG      = 00400000            EMB$B_VALID      00000003            EMB$T_DV_NAME    0000003E            

DEV$M_FOD      = 00004000            EMB$C_AW       = 00000007            EMB$W_DV_BCNT    00000024            

DEV$M_FOR      = 01000000            EMB$C_BE       = 00000004            EMB$W_DV_BOFF    00000022            

DEV$M_GEN      = 00020000            EMB$C_CR       = 00000025            EMB$W_DV_DEVSTS  0000001A            

DEV$M_IDV      = 04000000            EMB$C_CS       = 00000020            EMB$W_DV_ENTRY   00000004            

DEV$M_MBX      = 00100000            EMB$C_DE       = 00000001            EMB$W_DV_ERRCNT  0000002C            

DEV$M_MNT      = 00080000            EMB$C_DT       = 00000060            EMB$W_DV_ERRSEQ  0000000E            

DEV$M_NET      = 00002000            EMB$C_HE       = 00000008            EMB$W_DV_FUNC    0000003C            

DEV$M_ODV      = 08000000            EMB$C_LENGTH     00000004            EMB$W_DV_UNIT    0000002A            

DEV$M_RCK      = 40000000            EMB$C_MC       = 00000002            EMB$W_HD_ENTRY   00000004            

DEV$M_REC      = 00000001            EMB$C_NF       = 00000023            EMB$W_HD_ERRSEQ  0000000E            

DEV$M_RND      = 10000000            EMB$C_NM       = 0000002A            EMB$W_SIZE       00000000            

DEV$M_RTM      = 20000000            EMB$C_OM       = 00000029            EMB$W_TS_ENTRY   00000004            

DEV$M_SDI      = 00000010            EMB$C_SA       = 00000005            EMB$W_TS_ERRSEQ  0000000E            

DEV$M_SHR      = 00010000            EMB$C_SBC      = 00000028            ERL$ALLOCEMB     ********   X   03   

DEV$M_SPL      = 00000040            EMB$C_SE       = 00000006            ERL$B_BUFIND     00000002            

DEV$M_SQD      = 00000020            EMB$C_SS       = 00000027            ERL$B_BUSY       00000000            

DEV$M_SWL      = 02000000            EMB$C_TS       = 00000026            ERL$B_MSGCNT     00000001            

DEV$M_TRM      = 00000004            EMB$C_TS_LENGTH  00000010            ERL$COLDSTART    ********   X   03   

DEV$M_WCK      = 80000000            EMB$C_UBC      = 00000070            ERL$C_LENGTH     0000000C            

DEV$V_ALL      = 00000017            EMB$C_UI       = 00000061            ERL$GL_SEQUENCE  ********   X   03   

DEV$V_AVL      = 00000012            EMB$C_VD       = 00000041            ERL$K_LENGTH     0000000C            

DEV$V_CCL      = 00000001            EMB$C_VM       = 00000040            ERL$L_END        00000008            

DEV$V_DIR      = 00000003            EMB$C_WS       = 00000024            ERL$L_NEXT       00000004            

DEV$V_DMT      = 00000015            EMB$K_AW       = 00000007            ERL$M_LOCK     = 00000001            

DEV$V_ELG      = 00000016            EMB$K_BE       = 00000004            ERL$M_TIMER    = 00000002            

DEV$V_FOD      = 0000000E            EMB$K_CR       = 00000025            ERL$RELEASEMB    ********   X   03   

DEV$V_FOR      = 00000018            EMB$K_CS       = 00000020            ERL$V_LOCK     = 00000000            

DEV$V_GEN      = 00000011            EMB$K_DE       = 00000001            ERL$V_TIMER    = 00000001            

DEV$V_IDV      = 0000001A            EMB$K_DT       = 00000060            EXE$ALONONPAGED  ********   X   03   

DEV$V_MBX      = 00000014            EMB$K_HE       = 00000008            EXE$A_SYSPARAM   ********   X   03   

DEV$V_MNT      = 00000013            EMB$K_LENGTH     00000004            EXE$C_SYSPARSZ   ********   X   03   

DEV$V_NET      = 0000000D            EMB$K_MC       = 00000002            EXE$GL_DMPCHK    ********   X   03   

DEV$V_ODV      = 0000001B            EMB$K_NF       = 00000023            EXE$GL_FLAGS     ********   X   03   

DEV$V_RCK      = 0000001E            EMB$K_NM       = 0000002A            EXE$GL_KNOWNFIL  ********   X   03   

DEV$V_REC      = 00000000            EMB$K_OM       = 00000029            EXE$GL_SYSUCB    ********   X   03   

DEV$V_RND      = 0000001C            EMB$K_SA       = 00000005            EXE$GL_TODR      ********   X   03   

DEV$V_RTM      = 0000001D            EMB$K_SBC      = 00000028            EXE$GL_TQFL      ********   X   06   

DEV$V_SDI      = 00000004            EMB$K_SE       = 00000006            EXE$GQ_STAREXE   ********   X   03   

DEV$V_SHR      = 00000010            EMB$K_SS       = 00000027            EXE$GQ_SYSDMP    ********   X   03   

DEV$V_SPL      = 00000006            EMB$K_TS       = 00000026            EXE$GQ_SYSTIME   ********   X   06   

DEV$V_SQD      = 00000005            EMB$K_TS_LENGTH  00000010            EXE$GQ_TODCBASE  ********   X   03   

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  30

SYMBOL TABLE                                                                                                                     (1)



EXE$GT_STARTUP   ********   X   05   KFI$M_KFIHD    = 00000001            MMG$A_PAGFIL     ********   X   03   

EXE$V_INIT       ********   X   03   KFI$M_KFISEQ   = 00000003            MMG$GL_GPTE      ********   X   03   

EXE$V_SETTIME    ********   X   03   KFI$M_KP_OPEN  = 00000001            MMG$GL_RMSBASE   ********   X   03   

EXE$V_SHRF11ACP  ********   X   03   KFI$M_KP_RESHDR= 00000002            MMG$GL_SPTBASE   ********   X   03   

EXE$V_SIMULATOR  ********   X   03   KFI$M_KP_SHARED= 00000004            MMG$GL_SYSPHD    ********   X   03   

EXE$V_SYSPAGING  ********   X   03   KFI$M_LIM      = 00000040            MMG$INIWCB       ********   X   03   

EXE$V_SYSUAFALT  ********   X   03   KFI$M_MARKDEL  = 00000080            MOUERR           000001A0 R     03   

FAOERR           000000BD R     03   KFI$M_NOREPLACE= 00000040            MOUNT_SYSTEM     ********   X   03   

FIL$OPENFILE     ********   X   03   KFI$M_PROCPRIV = 00000080            MSG$GL_INDEX     ********   X   03   

GBL...         = 00000000            KFI$Q_PROCPRIV   00000024            MSGFILERR        00000152 R     03   

INIKNOWNFIL      0000022A R     03   KFI$S_KFISEQ   = 00000002            MSGFILNAM        000002B9 R     03   

INIPAGFIL        000001BD R     03   KFI$V_COMPATMOD= 0000000F            NEWYEAR          000000FF R     05   

INIWCBERR        00000204 R     03   KFI$V_DONOTOPEN= 00000002            NEWYRDESC        00000116 R     05   

INS$CREDEL       ********   X   03   KFI$V_FILIDOPEN= 00000001            NOERL            00000824 R     03   

IO$M_CVTLOW      ********   X   03   KFI$V_IS_RESHDR= 00000008            NPROMPT        = 00000033            

IO$M_PURGE       ********   X   03   KFI$V_IS_SHARED= 00000009            PAGFILERR        000000D7 R     03   

IO$M_TIMED       ********   X   03   KFI$V_KFIHD    = 00000000            PAGFILNAM        0000028B R     03   

IO$_ACPCONTROL   ********   X   03   KFI$V_KFISEQ   = 00000000            PCB$B_ASTACT     0000000C            

IO$_READLBLK     ********   X   03   KFI$V_KP_OPEN  = 00000000            PCB$B_ASTEN      0000000D            

IO$_READPROMPT   ********   X   03   KFI$V_KP_RESHDR= 00000001            PCB$B_PRI        0000000B            

IO$_WRITELBLK    ********   X   03   KFI$V_KP_SHARED= 00000002            PCB$B_PRIB       00000033            

IO$_WRITEVBLK    ********   X   03   KFI$V_LIM      = 00000006            PCB$B_TYPE       0000000A            

IPL$_ASTDEL    = 00000002            KFI$V_MARKDEL  = 00000007            PCB$B_WEFC       00000032            

IPL$_HWCLK     = 00000018            KFI$V_NOREPLACE= 00000006            PCB$C_LENGTH     0000007C            

IPL$_IOPOST    = 00000004            KFI$V_PROCPRIV = 00000007            PCB$K_LENGTH     0000007C            

IPL$_MAILBOX   = 0000000B            KFI$W_FID        0000001C            PCB$L_ASTQBL     00000014            

IPL$_POWER     = 0000001F            KFI$W_FID_NUM    0000001C            PCB$L_ASTQFL     00000010            

IPL$_QUEUEAST  = 00000006            KFI$W_FID_RVN    00000020            PCB$L_EFC2P      00000058            

IPL$_SCHED     = 00000003            KFI$W_FID_SEQ    0000001E            PCB$L_EFC3P      0000005C            

IPL$_SYNCH     = 00000007            KFI$W_FLAGS      00000014            PCB$L_EFCS       00000050            

IPL$_TIMER     = 00000007            KFI$W_GBLSECCNT  00000016            PCB$L_EFCU       00000054            

KFI$B_DEVNAM     0000000C            KFI$W_REFCNT     00000010            PCB$L_EFWM       0000004C            

KFI$B_DEVUCB     0000000C            KFI$W_SIZE       00000008            PCB$L_OWNER      0000001C            

KFI$B_DIRNAM     0000000D            KFP$B_QUECOUNT   00000000            PCB$L_PHD        00000064            

KFI$B_FILNAM     0000000E            KFP$B_TYPE       0000000A            PCB$L_PHYPCB     00000018            

KFI$B_KFICTL     0000000B            KFP$B_TYPE1      0000000B            PCB$L_PID        00000060            

KFI$B_KFIQNUM    00000012            KFP$L_QUE0       0000000C            PCB$L_PQB        0000004C            

KFI$B_KFISEQ     00000013            KFP$W_SIZE       00000008            PCB$L_SQBL       00000004            

KFI$B_MATCHCTL   0000002C            LOCKDOWN         ********   X   03   PCB$L_SQFL       00000000            

KFI$B_TYPE       0000000A            LOG$B_AMOD       0000000E            PCB$L_STS        00000028            

KFI$B_TYPNAM     0000000F            LOG$B_TABLE      0000000B            PCB$L_UIC        00000020            

KFI$C_KFIHDLEN   00000014            LOG$B_TYPE       0000000A            PCB$L_WSSWP      00000024            

KFI$C_LENGTH     00000034            LOG$C_GROUP    = 00000001            PCB$L_WTIME      0000002C            

KFI$GL_F11AACP   ********   X   03   LOG$C_LENGTH     00000014            PCB$T_LNAME      0000006C            

KFI$K_KFIHDLEN   00000014            LOG$C_NAMLENGTH= 00000040            PCB$V_ASTPEN   = 00000011            

KFI$K_LENGTH     00000034            LOG$C_PROCESS  = 00000002            PCB$V_BATCH    = 0000000E            

KFI$L_IDENT      00000030            LOG$C_SYSTEM   = 00000000            PCB$V_DELPEN   = 00000001            

KFI$L_IMGHDR     00000020            LOG$K_LENGTH     00000014            PCB$V_FORCPEN  = 00000002            

KFI$L_KFIQBL     00000004            LOG$L_LTBL       00000004            PCB$V_HIBER    = 00000013            

KFI$L_KFIQFL     00000000            LOG$L_LTFL       00000000            PCB$V_INQUAN   = 00000003            

KFI$L_USECNT     00000018            LOG$L_MBXUCB     00000010            PCB$V_LOGIN    = 00000014            

KFI$L_WINDOW     0000001C            LOG$T_NAME       00000014            PCB$V_NETWRK   = 00000015            

KFI$M_COMPATMOD= 00008000            LOG$W_GROUP      0000000C            PCB$V_NOACNT   = 0000000F            

KFI$M_DONOTOPEN= 00000004            LOG$W_SIZE       00000008            PCB$V_NODELET  = 00000017            

KFI$M_FILIDOPEN= 00000002            MAKE_FCP_KFI     000008AC R     03   PCB$V_PHDRES   = 00000012            

KFI$M_IS_RESHDR= 00000100            MAPSECERR        000001EE R     03   PCB$V_PSWAPM   = 00000004            

KFI$M_IS_SHARED= 00000200            MMG$ALCSTX       ********   X   03   PCB$V_PWRAST   = 00000016            

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  31

SYMBOL TABLE                                                                                                                     (1)



PCB$V_RES      = 00000000            PHD$L_KSP        00000078            PHD$W_PTCNTACT   00000070            

PCB$V_RESPEN   = 00000005            PHD$L_P0BR       000000C8            PHD$W_PTCNTLCK   0000006C            

PCB$V_SSFEXC   = 00000006            PHD$L_P0LRASTL   000000CC            PHD$W_PTCNTMAX   00000072            

PCB$V_SSFEXCE  = 00000007            PHD$L_P1BR       000000D0            PHD$W_PTCNTVAL   0000006E            

PCB$V_SSFEXCS  = 00000008            PHD$L_P1LR       000000D4            PHD$W_QUANT      00000040            

PCB$V_SSFEXCU  = 00000009            PHD$L_PAGEFLTS   0000004C            PHD$W_TQLM       00000062            

PCB$V_SSRWAIT  = 0000000A            PHD$L_PAGFIL     0000001C            PHD$W_WSAUTH     0000000A            

PCB$V_SUSPEN   = 0000000B            PHD$L_PC         000000C0            PHD$W_WSDYN      0000000E            

PCB$V_SWPVBN   = 00000010            PHD$L_PCB        00000078            PHD$W_WSFLUID    00000074            

PCB$V_WAKEPEN  = 0000000C            PHD$L_PGFLCNT    00000034            PHD$W_WSLAST     00000012            

PCB$V_WALL     = 0000000D            PHD$L_PGFLQUOTA  0000005C            PHD$W_WSLIST     00000008            

PCB$W_APTCNT     00000034            PHD$L_PSL        000000C4            PHD$W_WSLOCK     0000000C            

PCB$W_ASTCNT     0000003C            PHD$L_PSTBASOFF  00000020            PHD$W_WSLX       0000004A            

PCB$W_BIOCNT     0000003E            PHD$L_PTWSLELCK  00000064            PHD$W_WSNEXT     00000010            

PCB$W_BIOLM      00000040            PHD$L_PTWSLEVAL  00000068            PHD$W_WSQUOTA    00000018            

PCB$W_BYTCNT     00000042            PHD$L_R0         00000088            PQL$_ASTLM     = 00000001            

PCB$W_BYTLM      00000068            PHD$L_R1         0000008C            PQL$_BIOLM     = 00000002            

PCB$W_DIOCNT     00000044            PHD$L_R10        000000B0            PQL$_BYTLM     = 00000003            

PCB$W_DIOLM      00000046            PHD$L_R11        000000B4            PQL$_CPULM     = 00000004            

PCB$W_FILCNT     00000048            PHD$L_R12        000000B8            PQL$_DIOLM     = 00000005            

PCB$W_GPGCNT     00000038            PHD$L_R13        000000BC            PQL$_FILLM     = 00000006            

PCB$W_GRP        00000022            PHD$L_R2         00000090            PQL$_LENGTH    = 0000000C            

PCB$W_MEM        00000020            PHD$L_R3         00000094            PQL$_LISTEND   = 00000000            

PCB$W_MTXCNT     0000000E            PHD$L_R4         00000098            PQL$_PGFLQUOTA = 00000007            

PCB$W_PPGCNT     0000003A            PHD$L_R5         0000009C            PQL$_PRCLM     = 00000008            

PCB$W_PRCCNT     0000006A            PHD$L_R6         000000A0            PQL$_TQELM     = 00000009            

PCB$W_SIZE       00000008            PHD$L_R7         000000A4            PQL$_WSDEFAULT = 0000000B            

PCB$W_STATE      00000030            PHD$L_R8         000000A8            PQL$_WSQUOTA   = 0000000A            

PCB$W_TMBU       00000036            PHD$L_R9         000000AC            PR$_ACCR       = 00000029            

PCB$W_TQCNT      0000004A            PHD$L_REFERFLT   00000014            PR$_ACCS       = 00000028            

PFL$B_PFC        0000000B            PHD$L_SSP        00000080            PR$_ASTLVL     = 00000013            

PFL$B_TYPE       0000000A            PHD$L_USP        00000084            PR$_ESP        = 00000001            

PFL$C_LENGTH     00000020            PHD$L_WSL        00000118            PR$_ICCS       = 00000018            

PFL$K_LENGTH     00000020            PHD$M_DALCSTX  = 00000002            PR$_ICR        = 0000001A            

PFL$L_BITMAP     00000000            PHD$M_PFMFLG   = 00000001            PR$_IPL        = 00000012            

PFL$L_BITMAPSIZ  00000014            PHD$M_WSPEAKCHK= 00000004            PR$_ISP        = 00000004            

PFL$L_FREPAGCNT  00000018            PHD$Q_PRIVMSK    00000000            PR$_KSP        = 00000000            

PFL$L_RESERVCNT  0000001C            PHD$S_ASTLVL   = 00000008            PR$_MAPEN      = 00000038            

PFL$L_STARTBYTE  00000004            PHD$S_P0LR     = 00000018            PR$_NICR       = 00000019            

PFL$L_VBN        00000010            PHD$V_ASTLVL   = 00000018            PR$_P0BR       = 00000008            

PFL$L_WINDOW     0000000C            PHD$V_DALCSTX  = 00000001            PR$_P0LR       = 00000009            

PFL$W_SIZE       00000008            PHD$V_P0LR     = 00000000            PR$_P1BR       = 0000000A            

PHD$B_ASTLVL     000000CF            PHD$V_PFMFLG   = 00000000            PR$_P1LR       = 0000000B            

PHD$B_DFPFC      00000038            PHD$V_WSPEAKCHK= 00000002            PR$_PCBB       = 00000010            

PHD$B_PAGFIL     0000001F            PHD$W_ASTLM      00000044            PR$_PME        = 0000003D            

PHD$B_PGTBPFC    00000039            PHD$W_BAK        00000048            PR$_RXCS       = 00000020            

PHD$C_LENGTH     00000118            PHD$W_DFWSCNT    0000001A            PR$_RXDB       = 00000021            

PHD$C_PHDPAGCTX= 00000008            PHD$W_EMPTPG     000000D8            PR$_SBIER      = 00000034            

PHD$K_LENGTH     00000118            PHD$W_EXTDYNWS   00000076            PR$_SBIFS      = 00000030            

PHD$L_BIOCNT     00000054            PHD$W_FILLM      00000060            PR$_SBIMT      = 00000033            

PHD$L_CPULIM     00000058            PHD$W_FLAGS      0000003A            PR$_SBIQC      = 00000036            

PHD$L_CPUTIM     0000003C            PHD$W_PHVINDEX   00000046            PR$_SBIS       = 00000031            

PHD$L_DIOCNT     00000050            PHD$W_PRCLM      00000042            PR$_SBISC      = 00000032            

PHD$L_ESP        0000007C            PHD$W_PST        00000020            PR$_SBITA      = 00000035            

PHD$L_FREP0VA    00000028            PHD$W_PSTBASMAX  0000004A            PR$_SBR        = 0000000C            

PHD$L_FREP1VA    00000030            PHD$W_PSTFREE    00000026            PR$_SCBB       = 00000011            

PHD$L_FREPTECNT  0000002C            PHD$W_PSTLAST    00000024            PR$_SID        = 0000003E            

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  32

SYMBOL TABLE                                                                                                                     (1)



PR$_SIRR       = 00000014            PTE$V_STX      = 00000000            SFT$B_TYPE       0000000A            

PR$_SISR       = 00000015            PTE$V_TYP0     = 00000016            SFT$C_LENGTH     00000020            

PR$_SLR        = 0000000D            PTE$V_TYP1     = 0000001A            SFT$K_LENGTH     00000020            

PR$_SSP        = 00000002            PTE$V_VALID    = 0000001F            SFT$L_BITMAP     00000014            

PR$_TBIA       = 00000039            PTE$V_WRT      = 00000012            SFT$L_VBN        00000010            

PR$_TBIS       = 0000003A            READTIME         000009AD R     03   SFT$L_WINDOW     0000000C            

PR$_TODR       = 0000001B            RESTORERL        00000749 R     03   SFT$W_SIZE       00000008            

PR$_TXCS       = 00000022            RMSFILERR        00000136 R     03   SFT$W_SLOTSZ     00000002            

PR$_TXDB       = 00000023            RMSFILNAM        000002B1 R     03   SGN$GB_KFILSTCT  ********   X   03   

PR$_USP        = 00000003            RMSMAPERR        000001DC R     03   SGN$GL_MAXWSCNT  ********   X   03   

PR$_WCSA       = 0000002C            SCH$GL_CURPCB    ********   X   03   SGN$GL_PHDPAGCT  ********   X   03   

PR$_WCSD       = 0000002D            SCH$GW_PROCLIM   ********   X   03   SGN$GW_MAXGPGCT  ********   X   03   

PTE$C_EOWN     = 00800000            SEC$B_AMOD       00000015            SIP_A_ERLBUFFER  0000014E R     05   

PTE$C_ER       = 38000000            SEC$B_PFC        0000000B            SIP_A_FILATT     00000030 R     05   

PTE$C_ERKW     = 30000000            SEC$C_LENGTH     00000020            SIP_A_FILEHDR    00000200 R     04   

PTE$C_EW       = 28000000            SEC$K_LENGTH     00000020            SIP_A_INDEXFHDR  00000000 R     04   

PTE$C_KOWN     = 00000000            SEC$K_MATALL   = 00000000            SIP_A_KFIARG     00000068 R     05   

PTE$C_KR       = 18000000            SEC$K_MATEQU   = 00000001            SIP_A_NAMES      000002C9 R     03   

PTE$C_KW       = 10000000            SEC$K_MATLEQ   = 00000002            SIP_A_OPENARG    00000018 R     05   

PTE$C_NA       = 00000000            SEC$L_CCB        00000000            SIP_A_PQL        00000090 R     03   

PTE$C_SOWN     = 01000000            SEC$L_GSD        00000000            SIP_CREATELOG    00000500 R     03   

PTE$C_SR       = 58000000            SEC$L_PAGCNT     0000001C            SIP_CRESYSPRC    00000488 RG    03   

PTE$C_SREW     = 48000000            SEC$L_REFCNT     00000018            SIP_C_LINBUFSIZ= 00000050            

PTE$C_SRKW     = 50000000            SEC$L_VBN        00000010            SIP_FATAL        000008C8 R     03   

PTE$C_SW       = 40000000            SEC$L_VPXPFC     00000008            SIP_INIKNOWNFIL  00000587 R     03   

PTE$C_UOWN     = 01800000            SEC$L_WINDOW     0000000C            SIP_INITPAGFIL   000005C4 R     03   

PTE$C_UR       = 78000000            SEC$M_AMOD     = 00000300            SIP_INITSWPFIL   00000632 R     03   

PTE$C_UREW     = 68000000            SEC$M_CRF      = 00000002            SIP_INIWCB       0000088C R     03   

PTE$C_URKW     = 70000000            SEC$M_DZRO     = 00000004            SIP_KERNALRTN    00000557 R     03   

PTE$C_URSW     = 60000000            SEC$M_GBL      = 00000001            SIP_KSETTIME     00000000 R     06   

PTE$C_UW       = 20000000            SEC$M_PERM     = 00004000            SIP_L_DSKCHAN    0000006C R     05   

PTE$M_CRF      = 00010000            SEC$M_SYSGBL   = 00008000            SIP_L_KFICMDBIT  00000090 R     05   

PTE$M_DZRO     = 00020000            SEC$M_WRT      = 00000008            SIP_L_PROCID     00000000 R     05   

PTE$M_GPTX     = 003FFFFF            SEC$S_AMOD     = 00000002            SIP_L_TTCHAN     00000004 R     05   

PTE$M_MODIFY   = 04000000            SEC$S_CRF      = 00000001            SIP_MAPSEC       0000082E R     03   

PTE$M_OWN      = 01800000            SEC$S_DZRO     = 00000001            SIP_Q_CURNTIM    00000058 R     05   

PTE$M_PFN      = 001FFFFF            SEC$S_GBL      = 00000001            SIP_Q_DSKNAME    0000000C R     03   

PTE$M_PGFLVB   = 003FFFFF            SEC$S_PERM     = 00000001            SIP_Q_INTIME     00000060 R     05   

PTE$M_PROT     = 78000000            SEC$S_PFC      = 00000008            SIP_Q_LINBUF     000000A7 R     05   

PTE$M_TYP0     = 00400000            SEC$S_SYSGBL   = 00000001            SIP_Q_PRVMSK     00000088 R     03   

PTE$M_TYP1     = 04000000            SEC$S_VPX      = 00000016            SIP_Q_RMSFIL     00000048 R     05   

PTE$M_VALID    = 80000000            SEC$S_WRT      = 00000001            SIP_Q_SPIMAGE    0000004A R     03   

PTE$M_WRT      = 00040000            SEC$V_AMOD     = 00000008            SIP_Q_SPINPUT    00000146 R     05   

PTE$S_GPTX     = 00000016            SEC$V_CRF      = 00000001            SIP_Q_SPOUTPUT   0000003D R     03   

PTE$S_OWN      = 00000002            SEC$V_DZRO     = 00000002            SIP_Q_STARTUP    0000002E R     03   

PTE$S_PFN      = 00000015            SEC$V_GBL      = 00000000            SIP_Q_STATBLK    00000010 R     05   

PTE$S_PGFLVB   = 00000016            SEC$V_PERM     = 0000000E            SIP_Q_SYSTEM     0000001C R     03   

PTE$S_PROT     = 00000004            SEC$V_PFC      = 00000018            SIP_Q_SYSUAF     00000069 R     03   

PTE$S_STX      = 00000010            SEC$V_SYSGBL   = 0000000F            SIP_Q_SYSUAFALT  00000077 R     03   

PTE$V_CRF      = 00000010            SEC$V_VPX      = 00000000            SIP_Q_TMPDESC    00000008 R     05   

PTE$V_DZRO     = 00000011            SEC$V_WRT      = 00000003            SIP_Q_TTNAME     00000000 R     03   

PTE$V_GPTX     = 00000000            SEC$W_FLAGS      00000014            SIP_SETTIME      00000955 R     03   

PTE$V_MODIFY   = 0000001A            SEC$W_SECXBL     00000006            SIP_START        000002DF R     03   

PTE$V_OWN      = 00000017            SEC$W_SECXFL     00000004            SIP_SYSMSG       000008D3 R     03   

PTE$V_PFN      = 00000000            SFT$B_IOSZ       00000001            SIP_TYPOUT       000008F7 R     03   

PTE$V_PGFLVB   = 00000000            SFT$B_PFC        0000000B            SIP_T_KFIDIRNAM  00000094 R     05   

PTE$V_PROT     = 0000001B            SFT$B_SLTCNT     00000000            SIP_T_KFIFILNAM  0000009B R     05   

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  33

SYMBOL TABLE                                                                                                                     (1)



SIP_T_KFITYPNAM  000000A3 R     05   UCB$B_ERTMAX     00000071            UCB$M_BSY      = 00000100            

SIP_T_LINBUF     000000AF R     05   UCB$B_ESCAPE     0000004B            UCB$M_CANCEL   = 00000008            

SWP$GL_SFTBAS    ********   X   03   UCB$B_FEX        00000076            UCB$M_DEADMO   = 00000400            

SWP$GL_SLOTCNT   ********   X   03   UCB$B_FIPL       0000000B            UCB$M_DELMBX   = 00000002            

SWPFILERR        00000113 R     03   UCB$B_LOCSRV     0000003C            UCB$M_DIAGBUF  = 00000002            

SWPFILNAM        000002A4 R     03   UCB$B_OFFNDX     00000094            UCB$M_DX_WRITE = 00000008            

SYS$ASCTIM       ********   X   03   UCB$B_OFFRTC     00000095            UCB$M_ECC      = 00000001            

SYS$ASSIGN       ********   X   03   UCB$B_REMSRV     0000003D            UCB$M_ERLOGIP  = 00000004            

SYS$BINTIM       ********   X   03   UCB$B_SECTORS    0000003C            UCB$M_INT      = 00000002            

SYS$CMKRNL       ********   X   03   UCB$B_SLAVE      00000074            UCB$M_INTTYPE  = 00000080            

SYS$CRELOG       ********   X   03   UCB$B_SPR        00000075            UCB$M_JOB      = 00000001            

SYS$CREPRC       ********   X   03   UCB$B_STATE      00000052            UCB$M_MOUNTING = 00000200            

SYS$DASSGN       ********   X   03   UCB$B_TRACKS     0000003D            UCB$M_NOCNVRT  = 00000004            

SYS$EXIT         ********   X   03   UCB$B_TYPE       0000000A            UCB$M_NT_BFROVF= 00000004            

SYS$FAO          ********   X   03   UCB$B_VERTSZ     0000003F            UCB$M_NT_BREAK = 00000020            

SYS$GETTIM       ********   X   03   UCB$C_LENGTH     00000074            UCB$M_NT_NAME  = 00000010            

SYS$QIOW         ********   X   03   UCB$C_LOGLNK   = 00000001            UCB$M_ONLINE   = 00000010            

SYS$TRNLOG       ********   X   03   UCB$K_LENGTH     00000074            UCB$M_POWER    = 00000020            

SYSUIC           0000024F R     03   UCB$L_AMB        00000054            UCB$M_PRMMBX   = 00000001            

SYSUICSIZ      = 00000008            UCB$L_ASTQBL     00000010            UCB$M_TIM      = 00000001            

TIMEPROMPT       00000257 R     03   UCB$L_ASTQFL     0000000C            UCB$M_TIMOUT   = 00000040            

TIMERR           00000218 R     03   UCB$L_CPID       0000005C            UCB$M_TT_NOTIF = 00000004            

TIMESET          00000A7D R     03   UCB$L_CRB        00000020            UCB$M_TT_TIMO  = 00000002            

TQE$B_EFN        00000029            UCB$L_DDB        00000024            UCB$M_UNLOAD   = 00001000            

TQE$B_RMOD       00000028            UCB$L_DEVCHAR    00000034            UCB$M_VALID    = 00000800            

TQE$B_RQTYPE     0000000B            UCB$L_DEVDEPEND  0000003C            UCB$S_LNKPRI   = 00000002            

TQE$B_TYPE       0000000A            UCB$L_DPC        00000080            UCB$S_LTYPE    = 00000002            

TQE$C_LENGTH     00000030            UCB$L_DUETIM     0000005C            UCB$T_PARTNER    0000000C            

TQE$C_SSREPT   = 00000005            UCB$L_DX_BFPNT   0000009C            UCB$V_BACKP    = 00000005            

TQE$C_SSSNGL   = 00000001            UCB$L_DX_BUF     00000098            UCB$V_BSY      = 00000008            

TQE$C_TMSNGL   = 00000000            UCB$L_DX_RXDB    000000A0            UCB$V_CANCEL   = 00000003            

TQE$C_WKREPT   = 00000006            UCB$L_EMB        00000078            UCB$V_DEADMO   = 0000000A            

TQE$C_WKSNGL   = 00000002            UCB$L_FIRST      00000014            UCB$V_DELMBX   = 00000001            

TQE$K_LENGTH     00000030            UCB$L_FPC        0000000C            UCB$V_DIAGBUF  = 00000001            

TQE$L_AST        00000010            UCB$L_FQBL       00000004            UCB$V_DX_WRITE = 00000003            

TQE$L_ASTPRM     00000014            UCB$L_FQFL       00000000            UCB$V_ECC      = 00000000            

TQE$L_FPC        0000000C            UCB$L_FR3        00000010            UCB$V_ERLOGIP  = 00000002            

TQE$L_FR3        00000010            UCB$L_FR4        00000014            UCB$V_INT      = 00000001            

TQE$L_FR4        00000014            UCB$L_IOQBL      00000044            UCB$V_INTTYPE  = 00000007            

TQE$L_PID        0000000C            UCB$L_IOQFL      00000040            UCB$V_JOB      = 00000000            

TQE$L_RQPID      0000002C            UCB$L_IRP        0000004C            UCB$V_LNKPRI   = 00000006            

TQE$L_TQBL       00000004            UCB$L_LINK       0000002C            UCB$V_LTYPE    = 00000000            

TQE$L_TQFL       00000000            UCB$L_LOGADR     00000064            UCB$V_MOUNTING = 00000009            

TQE$M_REPEAT   = 00000004            UCB$L_MAXBLOCK   00000084            UCB$V_MSGACK   = 00000004            

TQE$Q_DELTA      00000020            UCB$L_MEDIA      0000008C            UCB$V_MSGFLO   = 00000003            

TQE$Q_TIME       00000018            UCB$L_NT_DATSSB  00000074            UCB$V_NOCNVRT  = 00000002            

TQE$V_REPEAT   = 00000002            UCB$L_NT_INTSSB  00000078            UCB$V_NT_BFROVF= 00000002            

TQE$W_SIZE       00000008            UCB$L_OPCNT      00000060            UCB$V_NT_BREAK = 00000005            

UCB$B_AMOD       00000053            UCB$L_OWNUIC     0000001C            UCB$V_NT_NAME  = 00000004            

UCB$B_CEX        00000077            UCB$L_PID        00000028            UCB$V_ONLINE   = 00000004            

UCB$B_CM1        0000004A            UCB$L_RQBL       00000004            UCB$V_POWER    = 00000005            

UCB$B_CM2        0000004B            UCB$L_RQFL       00000000            UCB$V_PRMMBX   = 00000000            

UCB$B_DEVCLASS   00000038            UCB$L_SVAPTE     00000068            UCB$V_SEGFLO   = 00000002            

UCB$B_DEVTYPE    00000039            UCB$L_SVPN       00000064            UCB$V_TIM      = 00000000            

UCB$B_DIPL       00000052            UCB$L_TTCHAR     0000003C            UCB$V_TIMOUT   = 00000006            

UCB$B_DX_SCTCNT  000000A6            UCB$L_VCB        00000030            UCB$V_TT_NOTIF = 00000002            

UCB$B_ERTCNT     00000070            UCB$M_BACKP    = 00000020            UCB$V_TT_TIMO  = 00000001            

SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  34

SYMBOL TABLE                                                                                                                     (1)



UCB$V_UNLOAD   = 0000000C            

UCB$V_VALID    = 0000000B            

UCB$W_BCNT       0000006E            

UCB$W_BCR        00000096            

UCB$W_BOFF       0000006C            

UCB$W_BUFQUO     00000018            

UCB$W_BYTESTOGO  0000003E            

UCB$W_CHARGE     0000004A            

UCB$W_CYLINDERS  0000003E            

UCB$W_DA         0000008C            

UCB$W_DC         0000008E            

UCB$W_DEVBUFSIZ  0000003A            

UCB$W_DEVSTS     0000005A            

UCB$W_DIRSEQ     00000088            

UCB$W_DSTADDR    00000018            

UCB$W_DX_BCR     000000A4            

UCB$W_EC1        00000090            

UCB$W_EC2        00000092            

UCB$W_ERRCNT     00000072            

UCB$W_FUNC       0000007E            

UCB$W_MB_SEED    FFFFFFFC            

UCB$W_MSGCNT     00000016            

UCB$W_MSGMAX     00000014            

UCB$W_NT_CHAN    0000007C            

UCB$W_OFFSET     0000008A            

UCB$W_REFC       00000050            

UCB$W_SIZE       00000008            

UCB$W_SRCADDR    0000001A            

UCB$W_STS        00000058            

UCB$W_UNIT       00000048            

UCB$W_VPROT      0000001A            

VA$M_BYTE      = 000001FF            

VA$M_P1        = 40000000            

VA$M_SYSTEM    = 80000000            

VA$M_VPG       = FFFFFE00            

VA$M_VPN       = 3FFFFE00            

VA$S_BYTE      = 00000009            

VA$S_VPG       = 00000017            

VA$S_VPN       = 00000015            

VA$V_BYTE      = 00000000            

VA$V_P1        = 0000001E            

VA$V_SYSTEM    = 0000001F            

VA$V_VPG       = 00000009            

VA$V_VPN       = 00000009            

YEAR             00000106 R     05   





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$            FFFFFFFE      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

SIP_PURE         00000B59      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  

SIP_RWDATA_PAGE  00000400      04     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT PAGE  

SIP_RWDATA       0000074E      05     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

$LOCKEDC1$       0000003E      06     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT PAGE  



SYSINIT         - SYSTEM INITIALIZATION PROCESS                  22-AUG-1978 00:38:42   VAX-11 MACRO X0.3-11               Page  35

PROGRAM SECTION SYNOPSIS                                                                                                         (1)





THERE WERE NO ERRORS OR WARNINGS.

1594. BYTES LEFT IN FREE MEMORY POOL.

86. BYTES OF RECLAIMED MEMORY.

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

28 MLB DIR RDS - 1373 GETS TO DEFINE 47 MACROS. 103 INTER. FILE WRITES. 

