NETINI                                                           22-AUG-1978 00:54:46   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)    3400  HISTORY

   (1)    4200  DECLARATIONS

   (1)    9800  INITIALIZATION

   (1)   23600  ACP TERMINATION CHECK

NETINI                                                           22-AUG-1978 00:54:46   VAX-11 MACRO X0.3-11               Page   1

X01                                                                                                                              (1)



                                     0000   100 

                                     0000   200 	.TITLE	NETINI

                                     0000   300 	.IDENT	/X01/

                                     0000   400 

                                     0000   500 ;

                                     0000   600 ; COPYRIGHT (C) 1977, 1978

                                     0000   700 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000   800 ;

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

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

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

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

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

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

                                     0000  1500 ; REMAIN IN DEC.

                                     0000  1600 ;

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

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

                                     0000  1900 ; CORPORATION.

                                     0000  2000 ;

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

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

                                     0000  2300 

                                     0000  2400 ;++

                                     0000  2500 ; FACILITY:	NETWORK ACP

                                     0000  2600 ;

                                     0000  2700 ; ABSTRACT:

                                     0000  2800 ;	THIS MODULE PERFORMS INITIALIZATION FOR THE ACP.

                                     0000  2900 ;

                                     0000  3000 ; ENVIRONMENT:

                                     0000  3100 ;	MODE = KERNEL

                                     0000  3200 ;--

NETINI                                                           22-AUG-1978 00:54:46   VAX-11 MACRO X0.3-11               Page   2

X01             HISTORY                                                                                                          (1)



                                     0000  3400 	.SBTTL	HISTORY

                                     0000  3500 ; AUTHOR:	SCOTT G. DAVIS, CREATION DATE: 03-AUG-77

                                     0000  3600 ;

                                     0000  3700 ; MODIFIED BY:

                                     0000  3800 ;

                                     0000  3900 ;	, : VERSION

                                     0000  4000 ; 01	- 

NETINI                                                           22-AUG-1978 00:54:46   VAX-11 MACRO X0.3-11               Page   3

X01             DECLARATIONS                                                                                                     (1)



                                     0000  4200 	.SBTTL	DECLARATIONS

                                     0000  4300 ;

                                     0000  4400 ; INCLUDE FILES:

                                     0000  4500 ;

                                     0000  4600 	$ACCDEF

                                     0000  4700 	$AQBDEF

                                     0000  4800 	$DRDEF

                                     0000  4900 	$MSGDEF

                                     0000  5000 	$NDBDEF

                                     0000  5100 	$UCBDEF

                                     0000  5200 	$VCBDEF

                                     0000  5300 

                                     0000  5400 ;

                                     0000  5500 ; MACROS:

                                     0000  5600 ;

                                     0000  5700 

                                     0000  5800 ;

                                     0000  5900 ; EQUATED SYMBOLS:

                                     0000  6000 ;

                           00010000  0000  6100 POOL_LENGTH = 65536			; NO. OF BYTES IN POOL

                                     0000  6200 

                                     0000  6300 ;

                                     0000  6400 ; OWN STORAGE:

                                     0000  6500 ;

                                 00000000  6600 	.PSECT	NET_IMPURE,WRT,NOEXE

                                     0000  6700    

                                     0000  6800 ;

                                     0000  6900 ; FIELDS USED FOR TERMINATION MAILBOX CREATION, MESSAGE BUFFERING

                                     0000  7000 ;

                                     0000  7100   

                           00000002  0000  7200 MBX_CHAN:	.BLKW	1		; CHANNEL NUMBER OF MBX

                           0000000E  0002  7300 BBUF:	.BLKL	3			; DEVICE CHARACTERISTICS

                           00000010  000E  7400 NET$MBX_UNIT::	.BLKW	1		; UNIT NUMBER RETURNED HERE

                                     0010  7500 ENDBUF:					; TRUNCATE THE REST

                                     0010  7600   

                                     0010  7700 MBX_IOSB:				; I/O STATUS BLOCK

                           00000012  0010  7800 	.BLKW	1			; STATUS OF I/O COMPLETION

                           00000014  0012  7900 MBX_LEN:	.BLKW	1		; LENGTH OF OPERATION HERE

                           00000018  0014  8000 MBX_PID:	.BLKL	1		; PID OF PROCESS DELETED

                                     0018  8100   

                                     0018  8200 EXIT_MSG:				; BUFFER FOR MAILBOX MESSAGE

                           0000001A  0018  8300 EXIT_ID:	.BLKW	1		; MESSAGE IDENTIFICATION

                           0000001C  001A  8400 	.BLKW	1			; NOT USED

                           00000020  001C  8500 EXIT_CODE:	.BLKL	1		; STATUS OF MESSAGE

                           0000006C  0020  8600 	.BLKB	ACC$C_TERMLEN-<.-EXIT_MSG> ; REMAINDER OF MESSAGE

                                     006C  8700 

                                 00000000  8800 	.PSECT	NET_PURE,NOWRT,NOEXE

                                     0000  8900 

                                     0000  9000 EXIT_BUF:				; DESCRIPTOR FOR CHANNEL INFO

                           0000000E  0000  9100 	.LONG	ENDBUF-BBUF		; LENGTH OF BUFFER

                           00000002' 0004  9200 	.LONG	BBUF			; ADDRESS OF BUFFER

                                     0008  9300 LKWSET_ADDR:				; DESCRIPTOR FOR LOCKING IODONE IN WSET

                           00000000' 0008  9400 	.LONG	START_LOCK		; START ADDRESS

                           00000000' 000C  9500 	.LONG	END_LOCK		; END ADDRESS

NETINI                                                           22-AUG-1978 00:54:46   VAX-11 MACRO X0.3-11               Page   4

X01             DECLARATIONS                                                                                                     (1)



                                 00000000  9700 	.PSECT	NET_DISCONNECT,NOWRT

                                     0000  9800 	.SBTTL	INITIALIZATION

                                     0000  9900 ;++

                                     0000 10000 ; FUNCTIONAL DESCRIPTION:

                                     0000 10100 ;

                                     0000 10200 ; NET$INITIALIZE - INITIALIZE THE NETWORK ACP

                                     0000 10300 ;

                                     0000 10400 ; IMPLICIT INPUTS:

                                     0000 10500 ;

                                     0000 10600 ;	NETWORK DEVICE UCB

                                     0000 10700 ;

                                     0000 10800 ;--

                                     0000 10900 

                                     0000 11000 

                               0000  0000 11100 NET$INITIALIZE:: .WORD	0		; ACP ENTRY POINT

                                     0002 11200 	$CMKRNL_S	B^STARTUP	; GO TO KERNEL MODE FOREVER

                                 00  000E 11300 	HALT				; SHOULD NEVER GET HERE!!!!!!!!!

                                     000F 11400 

                                     000F 11500 

                               0000  000F 11600 STARTUP:	.WORD	0		; ENTRY POINT

            6D       01ED'CF     DE  0011 11700 	MOVAL	W^FATAL,(FP)		; SET UP FOR EXCEPTIONS

                                     0016 11800 ;

                                     0016 11900 ; SET UP MAILBOX FOR PROCESS TERMINATION NOTIFICATION

                                     0016 12000 ;

                                     0016 12100 	$CREMBX_S CHAN=W^MBX_CHAN-	;

                                     0016 12200 		MAXMSG=#ACC$C_TERMLEN-	;

                                     0016 12300 		BUFQUO=#<ACC$C_TERMLEN*NET$C_MAXCIR>- ;

                                     0016 12400 		PROMSK=#0		;

            54            50     E9  0033 12500 	BLBC	R0,10$			; IF BC ERROR

                                     0036 12600 	$GETCHN_S CHAN=W^MBX_CHAN,PRIBUF=W^EXIT_BUF

            04            50     E8  004C 12700 	BLBS	R0,2$			; IF BS OK

                                     004F 12800 1$:	BUG_CHECK	NETSYSSRV,FATAL	; FATAL ERROR

                                     0053 12900 2$:

                                     0053 13000 

                                     0053 13100 ;

                                     0053 13200 ; SET UP CONTROL BLOCKS

                                     0053 13300 ;

            55   00000000'EF     DE  0053 13400 	MOVAL	L^NET$UCB0,R5		; GET THE BASE UCB ADDRESS

            50         30 A5     D0  005A 13500 	MOVL	UCB$L_VCB(R5),R0	; GET THE VCB ADDRESS

         0C A0            01     B0  005E 13600 	MOVW	#1,VCB$W_TRANS(R0)	; SET THE TRADITIONAL ACP IDLE COUNT

            50         10 A0     D0  0062 13700 	MOVL	VCB$L_AQB(R0),R0	; GET THE AQB HEADER ADDRESS

         0B A0            01     90  0066 13800 	MOVB	#1,AQB$B_MNTCNT(R0)	; ONE THING MOUNTED

         15 A0            04     90  006A 13900 	MOVB	#AQB$K_NET,AQB$B_ACPTYPE(R0) ; MARK THE ACP TYPE

       0000'CF            50     D0  006E 14000 	MOVL	R0,W^NET$GL_Q_HEAD 	; SAVE THE AQB HEADER ADDRESS

                                     0073 14100 	$CMEXEC_S	W^NET$INI_CONFIG ; INITIALIZE DATABASE

         58 A5            09     E4  0080 14200 	BBSC	#UCB$V_MOUNTING,UCB$W_STS(R5),5$ ; MOUNTING COMPLETE

                          00         0084       

                                     0085 14300 5$:

         34 A5            00'    E2  0085 14400 	BBSS	S^#DEV$V_MNT,UCB$L_DEVCHAR(R5),10$ ; DEVICE IS FINISHED MOUNTING

                          00         0089       

                                     008A 14500 10$:

            56            01     D0  008A 14600 	MOVL	#NDB$C_MSG_START,R6	; DECNET STARTING

                          FF70'  30  008D 14700 	BSBW	NET$OPCOM_NODE		; PRINT IT

                                     0090 14800 	$GETTIM_S	W^NET$GQ_ZTIMEN ; SET TIME COUNTERS LAST ZEROED

                                     009B 14900 ;

                                     009B 15000 ; CREATE A CORE POOL FOR INTERNALLY GENERATED MESSAGES AND CONTROL BLOCKS

                                     009B 15100 ;

NETINI                                                           22-AUG-1978 00:54:46   VAX-11 MACRO X0.3-11               Page   5

X01             INITIALIZATION                                                                                                   (1)



            56       0000'CF     9E  009B 15200 	MOVAB	W^NET$GQ_POOL_HD,R6	; POINT TO POOL HEAD

                                     00A0 15300 	$EXPREG_S	PAGCNT = #POOL_LENGTH/512- ; NO. OF PAGES

                                     00A0 15400 			RETADR = (R6)+	; ADDRESS FOR POOL ADDRESS

            99            50     E9  00B3 15500 	BLBC	R0,1$			; IF BC ERROR

                          76     D4  00B6 15600 	CLRL	-(R6)			; SET UP POOL HEAD

            56            76     D0  00B8 15700 	MOVL	-(R6),R6		; GET ADDRESS OF POOL

                          86     D4  00BB 15800 	CLRL	(R6)+			; INIT 1ST POOL BLOCK

            66   00010000 8F     D0  00BD 15900 	MOVL	#POOL_LENGTH,(R6)	; IT'S THIS LONG

                                     00C4 16000 	$LKWSET_S	W^LKWSET_ADDR	; LOCK IODONE INTO WORKING SET

                          0088   30  00D3 16100 	BSBW	MBX_QIO			; PUT OUT A READ FOR PROCESS TERMINATIONS

                                     00D6 16200 ;

                                     00D6 16300 ; NOW TRY TO PERFORM SOME OPERATION

                                     00D6 16400 ;

                          FF27'  31  00D6 16500 	BRW	NET$QIO			; TRY TO DEQUEUE A REQUEST - WILL HIBERNATE

NETINI                                                           22-AUG-1978 00:54:46   VAX-11 MACRO X0.3-11               Page   6

X01             INITIALIZATION                                                                                                   (1)



                                     00D9 16700 ;+

                                     00D9 16800 ;

                                     00D9 16900 ; NET$EXIT_AST - THIS ROUTINE SERVICES PROCESS TERMINATIONS

                                     00D9 17000 ;

                                     00D9 17100 ;-

                                     00D9 17200 

                               0000  00D9 17300 NET$EXIT_AST::	.WORD	0		; ENTRY POINT

            00'      0010'CF     B1  00DB 17400 	CMPW	W^MBX_IOSB,S^#SS$_ABORT	; WAS THE I/O CANCELLED?

                          7B     13  00E0 17500 	BEQL	100$			; IF EQL YES

       0000'8F       0010'CF     B1  00E2 17600 	CMPW	W^MBX_IOSB,#SS$_CANCEL	; TRY THIS CODE, TOO

                          72     13  00E9 17700 	BEQL	100$			; IF EQL NO MORE I/O

            03       0018'CF     B1  00EB 17800 	CMPW	W^EXIT_ID,#MSG$_DELPROC	; IS IT PROCESS TERMINATION?

                          69     12  00F0 17900 	BNEQ	50$			; IF NEQ NO - IGNORE

                                     00F2 18000 ;

                                     00F2 18100 ; SEE IF THERE ARE ANY CIR'S PENDING FOR THIS PROCESS

                                     00F2 18200 ;

            5B            FF'    D0  00F2 18300 	MOVL	S^#NET$C_MAXCIR-1,R11	; USE 1-ORIGIN INDEXING

                                     00F5 18400 30$:

       0000'CF4B     0014'CF     D1  00F5 18500 	CMPL	W^MBX_PID,W^NET$AL_CIRPID[R11] ; PIDS MATCH?

                          4A     12  00FD 18600 	BNEQ	40$			; IF NEQ NO

                     0000'CF4B   D4  00FF 18700 	CLRL	W^NET$AL_CIRPID[R11]	; SLOT IS FREE

       0000'CF       0000'CF4B   B0  0104 18800 	MOVW	W^NET$AW_CIRDST[R11],W^NET$GW_SRCADDR ; STUFF PARTNER'S LOGICAL LINK ADDRESS

            51       0001'CF4B   7E  010C 18900 	MOVAQ	W^NET$AT_CIRNOD+1[R11],R1 ; GET ADDRESS OF NODE NAME

            53       0000'CF     9E  0112 19000 	MOVAB	W^NET$GT_DSTNODE,R3	; GET ADDRESS FOR STORING NAME

            56            53     D0  0117 19100 	MOVL	R3,R6			; SAVE POINTER

                          FEE3'  30  011A 19200 	BSBW	NET$MOVE_STRING		; MOVE THE NODE NAME

                          FEE0'  30  011D 19300 	BSBW	NET$FND_NDB_NAM		; DETERMINE THE NDB

                          27     13  0120 19400 	BEQL	40$			; IF EQL THE NDB DISAPPEARED

       0000'CF         14 A9     B0  0122 19500 	MOVW	NDB$W_CHANNEL(R9),W^NET$GW_CHANNEL ; STUFF THE CHANNEL NO.

                          55     D4  0128 19600 	CLRL	R5			; NO ASSOCIATED UCB

                          5A     D4  012A 19700 	CLRL	R10			; NO DATA TO GO ON DC

            58            04     B0  012C 19800 	MOVW	#NET$C_DR_NOBJ,R8	; ASSUME CAN'T FIND THE .COM FILE

       001C'CF   00000000'8F     D1  012F 19900 	CMPL	#RMS$_FNF,W^EXIT_CODE	; FILE-NOT-FOUND?

                          0C     13  0138 20000 	BEQL	35$			; IF EQL YES

            58            26     B0  013A 20100 	MOVW	#NET$C_DR_EXIT,R8	; ASSUME JUST AN EXIT

                     001C'CF     D5  013D 20200 	TSTL	W^EXIT_CODE		; WAS IT AN ACCESS PROBLEM?

                          03     14  0141 20300 	BGTR	35$			; IF GTR NO

            58            22     B0  0143 20400 	MOVW	#NET$C_DR_ACCESS,R8	; SAY SO

                                     0146 20500 35$:

                          FEB7'  30  0146 20600 	BSBW	NET$XMT_DC		; SEND THE DC

                                     0149 20700 40$:

            A9            5B     F4  0149 20800 	SOBGEQ	R11,30$			; LOOP

       0000'CF       0014'CF     D1  014C 20900 	CMPL	W^MBX_PID,W^NET$GL_DATALOCK ; DID THIS GUY LOCK THE DATABASE?

                          03     12  0153 21000 	BNEQ	45$			; IF NEQ NO

                          FEA8'  30  0155 21100 	BSBW	NET$CTL_CLRLOCK		; UNLOCK THE DATABASE

                                     0158 21200 45$:

                                     0158 21300 ;

                                     0158 21400 ; DECLARE AST IF ANY PROCESSING MESSAGES WERE QUEUED FOR LOCAL LINKS

                                     0158 21500 ;

                          FEA5'  30  0158 21600 	BSBW	NET$CHKLOCALAST		; SEE IF ANY MSGS WERE QUEUED

                                     015B 21700 

                                     015B 21800 50$:

                          01     10  015B 21900 	BSBB	MBX_QIO			; PUT OUT ANOTHER READ

                                 04  015D 22000 100$:	RET				; DONE

                                     015E 22100 

                                     015E 22200 ;+

                                     015E 22300 ; MBX_QIO - THIS ROUTINE PUTS A READ OUT ON THE MAILBOX FOR

NETINI                                                           22-AUG-1978 00:54:46   VAX-11 MACRO X0.3-11               Page   7

X01             INITIALIZATION                                                                                                   (1)



                                     015E 22400 ;		PROCESS TERMINATION NOTIFICATION

                                     015E 22500 ;-

                                     015E 22600 

                                     015E 22700 MBX_QIO:

                                     015E 22800 	$QIO_S  CHAN=W^MBX_CHAN,FUNC=S^#IO$_READVBLK,-

                                     015E 22900 		ASTADR=W^NET$SET_EXI_AST,IOSB=W^MBX_IOSB,-

                                     015E 23000 		P1=W^EXIT_MSG,P2=#ACC$C_TERMLEN

            04            50     E8  0187 23100 	BLBS	R0,10$			; IF BC OK

                                     018A 23200 	BUG_CHECK	ACPMBFAIL,FATAL

                                     018E 23300 10$:

                                 05  018E 23400 	RSB				; RETURN

NETINI                                                           22-AUG-1978 00:54:46   VAX-11 MACRO X0.3-11               Page   8

X01             ACP TERMINATION CHECK                                                                                            (1)



                                     018F 23600 	.SBTTL	ACP TERMINATION CHECK

                                     018F 23700 ;++

                                     018F 23800 ; FUNCTIONAL DESCRIPTION:

                                     018F 23900 ;

                                     018F 24000 ; NET$CHK_ACPDONE - SEE IF THE ACP PROCESS CAN CEASE OPERATION

                                     018F 24100 ;

                                     018F 24200 ; CALLING SEQUENCE:

                                     018F 24300 ;

                                     018F 24400 ;	BSB	NET$CHK_ACPDONE

                                     018F 24500 ;

                                     018F 24600 ; INPUT PARAMETERS:

                                     018F 24700 ;

                                     018F 24800 ;	R2 - AQB ADDRESS

                                     018F 24900 ;

                                     018F 25000 ; SIDE EFFECTS:

                                     018F 25100 ;

                                     018F 25200 ;	ACP MAY TERMINATE

                                     018F 25300 ;

                                     018F 25400 ;--

                                     018F 25500 

                                     018F 25600 NET$CHK_ACPDONE::

       0000'CF            00     FB  018F 25700 	CALLS	#0,W^LOCK_IODB		; LOCK THE I/O DATA BASE

            52            62     D1  0194 25800 	CMPL	AQB$L_ACPQFL(R2),R2	; ANY I/O IN QUEUE?

                          4E     12  0197 25900 	BNEQ	100$			; IF NEQ YES - DON'T TERMINATE

                                     0199 26000 ;

                                     0199 26100 ; NO MORE I/O - NOW UNHOOK THE AQB FROM THE SYSTEM AQB LIST

                                     0199 26200 ;

            51   00000000'EF     9E  0199 26300 	MOVAB	L^IOC$GL_AQBLIST,R1	; GET THE LIST ADDRESS

            50            61     D0  01A0 26400 	MOVL	(R1),R0			; GET FIRST AQB POINTER

            50            52     D1  01A3 26500 	CMPL	R2,R0			; IS IT THE FIRST?

                          06     12  01A6 26600 	BNEQ	20$			; IF NEQ NO

            61         10 A2     D0  01A8 26700 	MOVL	AQB$L_LINK(R2),(R1)	; LINK IT IN

                          11     11  01AC 26800 	BRB	40$			; DONE

                                     01AE 26900 20$:

            52         10 A0     D1  01AE 27000 	CMPL	AQB$L_LINK(R0),R2	; IS THIS IT?

                          06     13  01B2 27100 	BEQL	30$			; IF EQL YES

            50         10 A0     D0  01B4 27200 	MOVL	AQB$L_LINK(R0),R0	; GET LINK

                          F4     11  01B8 27300 	BRB	20$			; LOOP

                                     01BA 27400 30$:

         10 A0         10 A2     D0  01BA 27500 	MOVL	AQB$L_LINK(R2),AQB$L_LINK(R0) ; RELINK

                                     01BF 27600 40$:

            50            52     D0  01BF 27700 	MOVL	R2,R0			; SET TO DEALLOCATE THE AQB

                          FE3B'  30  01C2 27800 	BSBW	NET$DEANONPAGED		; DO IT

       0000'CF            00     FB  01C5 27900 	CALLS	#0,W^UNLOCK_IODB	; NOW UNLOCK THE I/O DATABASE

                                     01CA 28000 	$DASSGN_S	CHAN=W^MBX_CHAN	; DEASSIGN THE MAILBOX CHANNEL

            56            06     D0  01D6 28100 	MOVL	#NDB$C_MSG_SHUT,R6	; DECNET SHUTTING DOWN

                          FE24'  30  01D9 28200 	BSBW	NET$OPCOM_NODE		; PRINT IT

                                     01DC 28300 	$DELPRC_S			; SAYONARA!

                                     01E7 28400 100$:

       0000'CF            00     FB  01E7 28500 	CALLS	#0,W^UNLOCK_IODB	; NOW UNLOCK THE I/O DATABASE

                                     01EC 28600 200$:

                                 05  01EC 28700 	RSB				; BACK YOU GO

                                     01ED 28800 

                                     01ED 28900 

                                     01ED 29000 ;

                                     01ED 29100 ; COME HERE IF THERE ANY ANY EXCEPTIONS

                                     01ED 29200 ;

NETINI                                                           22-AUG-1978 00:54:46   VAX-11 MACRO X0.3-11               Page   9

X01             ACP TERMINATION CHECK                                                                                            (1)



                               0000  01ED 29300 FATAL:	.WORD	0

                                     01EF 29400 	BUG_CHECK	FATALEXCPT,FATAL

                                     01F3 29500 

                                     01F3 29600 	.END	NET$INITIALIZE

NETINI                                                           22-AUG-1978 00:54:46   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



$$T1           = 00000000            AQB$K_NET      = 00000004            MSG$_RESOPR    = 00000013            

ACC$C_INS_LEN    000000B0            AQB$K_UNDEFINED= 00000000            MSG$_SCANBAD   = 00000028            

ACC$C_JOB_LEN    0000006C            AQB$L_ACPPID     0000000C            MSG$_SCANRSP   = 00000029            

ACC$C_PRT_LEN    00000058            AQB$L_ACPQBL     00000004            MSG$_SMBDON    = 00000009            

ACC$C_TERMLEN    00000054            AQB$L_ACPQFL     00000000            MSG$_SMBINI    = 00000008            

ACC$K_BATTRM   = 00000002            AQB$L_LINK       00000010            MSG$_SMBRSP    = 00000020            

ACC$K_DISAACC  = 00000004            AQB$M_CREATING = 00000008            MSG$_SNDACC    = 0000000A            

ACC$K_DISASEL  = 00000006            AQB$M_DEFCLASS = 00000002            MSG$_SNDSMB    = 00000004            

ACC$K_ENABACC  = 00000003            AQB$M_DEFSYS   = 00000004            MSG$_SUSOPR    = 00000012            

ACC$K_ENABSEL  = 00000005            AQB$M_UNIQUE   = 00000001            MSG$_THIRDPARTY= 00000039            

ACC$K_INSMESG  = 00000001            AQB$V_CREATING = 00000003            MSG$_TIMEOUT   = 0000003A            

ACC$K_INSMSG   = 00000011            AQB$V_DEFCLASS = 00000001            MSG$_TRMHANGUP = 00000006            

ACC$K_INS_LEN    000000B0            AQB$V_DEFSYS   = 00000002            MSG$_TRMUNSOLIC= 00000001            

ACC$K_INTTRM   = 00000003            AQB$V_UNIQUE   = 00000000            MSG$_XM_ATTN   = 0000000D            

ACC$K_JOB_LEN    0000006C            AQB$W_SIZE       00000008            MSG$_XM_DATAVL = 0000000B            

ACC$K_LOGTRM   = 00000004            BBUF             00000002 R     03   MSG$_XM_SHUTDN = 0000000C            

ACC$K_NEWFILE  = 00000002            BIT...         = 00000009            NDB$B_COMMVER    0000002B            

ACC$K_PRCTRM   = 00000001            BUG$_ACPMBFAIL   ********   X   05   NDB$B_CONNTMO    0000004F            

ACC$K_PRTJOB   = 00000010            BUG$_FATALEXCPT  ********   X   05   NDB$B_FUNC       00000021            

ACC$K_PRT_LEN    00000058            BUG$_NETSYSSRV   ********   X   05   NDB$B_NONPRVACC  00000050            

ACC$K_TERMLEN    00000054            DEV$V_MNT        ********   X   05   NDB$B_NUMBUF     0000000B            

ACC$L_BIOCNT     0000003C            ENDBUF           00000010 R     03   NDB$B_PRVACC     0000007C            

ACC$L_CPUTIM     0000002C            END_LOCK         ********   X   04   NDB$B_RTEVER     00000028            

ACC$L_DIOCNT     00000040            EXIT_BUF         00000000 R     04   NDB$B_STATE      00000016            

ACC$L_FINALSTS   00000004            EXIT_CODE        0000001C R     03   NDB$B_STATUS     00000017            

ACC$L_GETCNT     00000038            EXIT_ID          00000018 R     03   NDB$B_TYPE       0000000A            

ACC$L_JOBID      0000000C            EXIT_MSG         00000018 R     03   NDB$C_CTL_LOOP = 00000005            

ACC$L_OWNER      00000050            FATAL            000001ED R     05   NDB$C_LENGTH     000000BC            

ACC$L_PAGCNT     00000030            GBL...         = 00000000            NDB$C_LOOP     = 00000003            

ACC$L_PAGEFLTS   00000030            IO$_READVBLK     ********   X   05   NDB$C_MAINT    = 00000004            

ACC$L_PGFLPEAK   00000034            IOC$GL_AQBLIST   ********   X   05   NDB$C_MSG_DCHK = 00000009            

ACC$L_PID        00000008            LKWSET_ADDR      00000008 R     04   NDB$C_MSG_DOWN = 00000003            

ACC$L_QIOCNT     00000034            LOCK_IODB        ********   X   05   NDB$C_MSG_DSRCH= 00000007            

ACC$L_VOLUMES    00000044            MBX_CHAN         00000000 R     03   NDB$C_MSG_LOOPB= 00000008            

ACC$L_WSPEAK     00000038            MBX_IOSB         00000010 R     03   NDB$C_MSG_MAINT= 00000002            

ACC$Q_LOGIN      00000048            MBX_LEN          00000012 R     03   NDB$C_MSG_NGINI= 00000004            

ACC$Q_QUETIME    0000003C            MBX_PID          00000014 R     03   NDB$C_MSG_OKINI= 00000005            

ACC$Q_TERMTIME   00000010            MBX_QIO          0000015E R     05   NDB$C_MSG_SHUT = 00000006            

ACC$T_ACCOUNT    00000018            MSG$_ABOOPR    = 00000011            NDB$C_MSG_START= 00000001            

ACC$T_JOB_NAME   00000054            MSG$_ABORT     = 00000030            NDB$C_OFF      = 00000001            

ACC$T_JOB_QUE    0000005C            MSG$_ACCRSP    = 00000021            NDB$C_ON       = 00000000            

ACC$T_PRT_NAME   00000044            MSG$_CONFIRM   = 00000031            NDB$C_SHUT     = 00000002            

ACC$T_PRT_QUE    0000004C            MSG$_CONNECT   = 00000032            NDB$K_LENGTH     000000BC            

ACC$T_USERNAME   00000020            MSG$_CRUNSOLIC = 00000002            NDB$L_LINE_NAME  00000004            

ACC$T_USER_DATA  0000002C            MSG$_DELPROC   = 00000003            NDB$L_NEXT       00000000            

ACC$W_MSGSIZ     00000002            MSG$_DELSMB    = 00000014            NDB$M_CTL_LOOP = 00000008            

ACC$W_MSGTYP     00000000            MSG$_DEVOFFLIN = 00000005            NDB$M_LOOPBACK = 00000001            

AQB$B_ACPTYPE    00000015            MSG$_DEVONLIN  = 00000007            NDB$M_OFF      = 00000002            

AQB$B_CLASS      00000016            MSG$_DISCON    = 00000033            NDB$M_SHUT     = 00000004            

AQB$B_MNTCNT     0000000B            MSG$_EXIT      = 00000034            NDB$Q_AST        0000000C            

AQB$B_STATUS     00000014            MSG$_INIOPR    = 00000010            NDB$Q_ZEROTIME   000000AC            

AQB$B_TYPE       0000000A            MSG$_INTMSG    = 00000035            NDB$T_NAME       0000001A            

AQB$C_LENGTH     00000018            MSG$_OPREPLY   = 00000009            NDB$T_SYSVER     0000002E            

AQB$K_F11V1    = 00000001            MSG$_OPRQST    = 00000008            NDB$V_CTL_LOOP = 00000003            

AQB$K_F11V2    = 00000002            MSG$_PATHLOST  = 00000036            NDB$V_LOOPBACK = 00000000            

AQB$K_LENGTH     00000018            MSG$_PROTOCOL  = 00000037            NDB$V_OFF      = 00000001            

AQB$K_MTA      = 00000003            MSG$_REJECT    = 00000038            NDB$V_SHUT     = 00000002            

NETINI                                                           22-AUG-1978 00:54:46   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (1)



NDB$W_BLKSIZE    00000022            NET$QIO          ********   X   05   UCB$L_DX_BFPNT   0000009C            

NDB$W_BUFSIZE    000000A8            NET$SET_EXI_AST  ********   X   05   UCB$L_DX_BUF     00000098            

NDB$W_CHANNEL    00000014            NET$UCB0         ********   X   05   UCB$L_DX_RXDB    000000A0            

NDB$W_CHAR       000000AA            NET$XMT_DC       ********   X   05   UCB$L_EMB        00000078            

NDB$W_HISBLKSIZ  000000B8            POOL_LENGTH    = 00010000            UCB$L_FIRST      00000014            

NDB$W_HISNSPSIZ  000000BA            RMS$_FNF         ********   X   05   UCB$L_FPC        0000000C            

NDB$W_MAXLNK     00000026            SS$_ABORT        ********   X   05   UCB$L_FQBL       00000004            

NDB$W_NODEADDR   00000018            SS$_CANCEL       ********   X   05   UCB$L_FQFL       00000000            

NDB$W_NSPSIZE    00000024            STARTUP          0000000F R     05   UCB$L_FR3        00000010            

NDB$W_RCVBLKS    000000B4            START_LOCK       ********   X   04   UCB$L_FR4        00000014            

NDB$W_SIZE       00000008            SYS$CMEXEC       ********   X   05   UCB$L_IOQBL      00000044            

NDB$W_XMTBLKS    000000B6            SYS$CMKRNL       ********   X   05   UCB$L_IOQFL      00000040            

NET$AL_CIRPID    ********   X   05   SYS$CREMBX       ********   X   05   UCB$L_IRP        0000004C            

NET$AT_CIRNOD    ********   X   05   SYS$DASSGN       ********   X   05   UCB$L_LINK       0000002C            

NET$AW_CIRDST    ********   X   05   SYS$DELPRC       ********   X   05   UCB$L_LOGADR     00000064            

NET$CHKLOCALAST  ********   X   05   SYS$EXPREG       ********   X   05   UCB$L_MAXBLOCK   00000084            

NET$CHK_ACPDONE  0000018F RG    05   SYS$GETCHN       ********   X   05   UCB$L_MEDIA      0000008C            

NET$CTL_CLRLOCK  ********   X   05   SYS$GETTIM       ********   X   05   UCB$L_NT_DATSSB  00000074            

NET$C_DR_ABORT = 00000009            SYS$LKWSET       ********   X   05   UCB$L_NT_INTSSB  00000078            

NET$C_DR_ACCESS= 00000022            SYS$QIO          ********   X   05   UCB$L_OPCNT      00000060            

NET$C_DR_ACCNT = 00000024            UCB$B_AMOD       00000053            UCB$L_OWNUIC     0000001C            

NET$C_DR_BADFC = 00000018            UCB$B_CEX        00000077            UCB$L_PID        00000028            

NET$C_DR_BADLNK= 00000016            UCB$B_CM1        0000004A            UCB$L_RQBL       00000004            

NET$C_DR_BADSRV= 00000023            UCB$B_CM2        0000004B            UCB$L_RQFL       00000000            

NET$C_DR_CONF  = 0000002A            UCB$B_DEVCLASS   00000038            UCB$L_SVAPTE     00000068            

NET$C_DR_EXIT  = 00000026            UCB$B_DEVTYPE    00000039            UCB$L_SVPN       00000064            

NET$C_DR_FMT   = 00000005            UCB$B_DIPL       00000052            UCB$L_TTCHAR     0000003C            

NET$C_DR_IMLONG= 0000002B            UCB$B_DX_SCTCNT  000000A6            UCB$L_VCB        00000030            

NET$C_DR_LOSS  = 00000028            UCB$B_ERTCNT     00000070            UCB$M_BACKP    = 00000020            

NET$C_DR_NOBJ  = 00000004            UCB$B_ERTMAX     00000071            UCB$M_BSY      = 00000100            

NET$C_DR_NOCON = 00000020            UCB$B_ESCAPE     0000004B            UCB$M_CANCEL   = 00000008            

NET$C_DR_NOLINK= 00000029            UCB$B_FEX        00000076            UCB$M_DEADMO   = 00000400            

NET$C_DR_NONZ  = 00000015            UCB$B_FIPL       0000000B            UCB$M_DELMBX   = 00000002            

NET$C_DR_NOPATH= 00000027            UCB$B_LOCSRV     0000003C            UCB$M_DIAGBUF  = 00000002            

NET$C_DR_NORMAL= 00000000            UCB$B_OFFNDX     00000094            UCB$M_DX_WRITE = 00000008            

NET$C_DR_PROTCL= 00000007            UCB$B_OFFRTC     00000095            UCB$M_ECC      = 00000001            

NET$C_DR_RSU   = 00000001            UCB$B_REMSRV     0000003D            UCB$M_ERLOGIP  = 00000004            

NET$C_DR_SEGSIZ= 00000025            UCB$B_SECTORS    0000003C            UCB$M_INT      = 00000002            

NET$C_DR_SHUT  = 00000003            UCB$B_SLAVE      00000074            UCB$M_INTTYPE  = 00000080            

NET$C_DR_THIRD = 00000008            UCB$B_SPR        00000075            UCB$M_JOB      = 00000001            

NET$C_DR_ZERO  = 00000017            UCB$B_STATE      00000052            UCB$M_MOUNTING = 00000200            

NET$C_MAXCIR     ********   X   05   UCB$B_TRACKS     0000003D            UCB$M_NOCNVRT  = 00000004            

NET$DEANONPAGED  ********   X   05   UCB$B_TYPE       0000000A            UCB$M_NT_BFROVF= 00000004            

NET$EXIT_AST     000000D9 RG    05   UCB$B_VERTSZ     0000003F            UCB$M_NT_BREAK = 00000020            

NET$FND_NDB_NAM  ********   X   05   UCB$C_LENGTH     00000074            UCB$M_NT_NAME  = 00000010            

NET$GL_DATALOCK  ********   X   05   UCB$C_LOGLNK   = 00000001            UCB$M_ONLINE   = 00000010            

NET$GL_Q_HEAD    ********   X   05   UCB$K_LENGTH     00000074            UCB$M_POWER    = 00000020            

NET$GQ_POOL_HD   ********   X   05   UCB$L_AMB        00000054            UCB$M_PRMMBX   = 00000001            

NET$GQ_ZTIMEN    ********   X   05   UCB$L_ASTQBL     00000010            UCB$M_TIM      = 00000001            

NET$GT_DSTNODE   ********   X   05   UCB$L_ASTQFL     0000000C            UCB$M_TIMOUT   = 00000040            

NET$GW_CHANNEL   ********   X   05   UCB$L_CPID       0000005C            UCB$M_TT_NOTIF = 00000004            

NET$GW_SRCADDR   ********   X   05   UCB$L_CRB        00000020            UCB$M_TT_TIMO  = 00000002            

NET$INITIALIZE   00000000 RG    05   UCB$L_DDB        00000024            UCB$M_UNLOAD   = 00001000            

NET$INI_CONFIG   ********   X   05   UCB$L_DEVCHAR    00000034            UCB$M_VALID    = 00000800            

NET$MBX_UNIT     0000000E RG    03   UCB$L_DEVDEPEND  0000003C            UCB$S_LNKPRI   = 00000002            

NET$MOVE_STRING  ********   X   05   UCB$L_DPC        00000080            UCB$S_LTYPE    = 00000002            

NET$OPCOM_NODE   ********   X   05   UCB$L_DUETIM     0000005C            UCB$T_PARTNER    0000000C            

NETINI                                                           22-AUG-1978 00:54:46   VAX-11 MACRO X0.3-11               Page  12

SYMBOL TABLE                                                                                                                     (1)



UCB$V_BACKP    = 00000005            UCB$W_STS        00000058            VCB$V_IDXHDRBAD= 00000003            

UCB$V_BSY      = 00000008            UCB$W_UNIT       00000048            VCB$V_INTCHG   = 00000004            

UCB$V_CANCEL   = 00000003            UCB$W_VPROT      0000001A            VCB$V_LOGICEOVS= 00000001            

UCB$V_DEADMO   = 0000000A            UNLOCK_IODB      ********   X   05   VCB$V_MUSTCLOSE= 00000006            

UCB$V_DELMBX   = 00000001            VCB$B_CUR_RVN    0000002F            VCB$V_NOALLOC  = 00000004            

UCB$V_DIAGBUF  = 00000001            VCB$B_EOFDELTA   0000004E            VCB$V_NOWRITE  = 00000007            

UCB$V_DX_WRITE = 00000003            VCB$B_IBMAPSIZE  00000038            VCB$V_OVRACC   = 00000001            

UCB$V_ECC      = 00000000            VCB$B_IBMAPVBN   0000003A            VCB$V_OVREXP   = 00000000            

UCB$V_ERLOGIP  = 00000002            VCB$B_LRU_LIM    00000049            VCB$V_OVRLBL   = 00000002            

UCB$V_INT      = 00000001            VCB$B_QNAMECNT   0000000B            VCB$V_OVRSETID = 00000003            

UCB$V_INTTYPE  = 00000007            VCB$B_RESFILES   0000004F            VCB$V_PARTFILE = 00000000            

UCB$V_JOB      = 00000000            VCB$B_SBMAPSIZE  00000039            VCB$V_STARFILE = 00000008            

UCB$V_LNKPRI   = 00000006            VCB$B_SBMAPVBN   0000003B            VCB$V_SYSTEM   = 00000007            

UCB$V_LTYPE    = 00000000            VCB$B_STATUS     0000000B            VCB$V_WAIMOUVOL= 00000002            

UCB$V_MOUNTING = 00000009            VCB$B_TM         0000002E            VCB$V_WAIREWIND= 00000003            

UCB$V_MSGACK   = 00000004            VCB$B_TYPE       0000000A            VCB$V_WAIUSRLBL= 00000004            

UCB$V_MSGFLO   = 00000003            VCB$B_WINDOW     00000048            VCB$V_WRITE_IF = 00000000            

UCB$V_NOCNVRT  = 00000002            VCB$C_COMLEN     00000024            VCB$V_WRITE_SM = 00000001            

UCB$V_NT_BFROVF= 00000002            VCB$C_LENGTH     00000054            VCB$W_CLUSTER    0000003C            

UCB$V_NT_BREAK = 00000005            VCB$C_MRKLEN     0000000B            VCB$W_CUR_NUM    00000024            

UCB$V_NT_NAME  = 00000004            VCB$K_COMLEN     00000024            VCB$W_CUR_SEQ    00000026            

UCB$V_ONLINE   = 00000004            VCB$K_LENGTH     00000054            VCB$W_EXTEND     0000003E            

UCB$V_POWER    = 00000005            VCB$K_MRKLEN     0000000B            VCB$W_FILEPROT   0000004A            

UCB$V_PRMMBX   = 00000000            VCB$L_AQB        00000010            VCB$W_MCOUNT     0000004C            

UCB$V_SEGFLO   = 00000002            VCB$L_BLOCKBL    00000004            VCB$W_MODE       0000002C            

UCB$V_TIM      = 00000000            VCB$L_BLOCKFL    00000000            VCB$W_RECORDSZ   00000050            

UCB$V_TIMOUT   = 00000006            VCB$L_CUR_FID    00000024            VCB$W_RVN        0000000E            

UCB$V_TT_NOTIF = 00000002            VCB$L_FCBBL      00000004            VCB$W_SIZE       00000008            

UCB$V_TT_TIMO  = 00000001            VCB$L_FCBFL      00000000            VCB$W_START_NUM  00000028            

UCB$V_UNLOAD   = 0000000C            VCB$L_FREE       00000040            VCB$W_START_SEQ  0000002A            

UCB$V_VALID    = 0000000B            VCB$L_HOME2LBN   00000028            VCB$W_TRANS      0000000C            

UCB$W_BCNT       0000006E            VCB$L_HOMELBN    00000024            

UCB$W_BCR        00000096            VCB$L_IBMAPLBN   00000030            

UCB$W_BOFF       0000006C            VCB$L_IXHDR2LBN  0000002C            

UCB$W_BUFQUO     00000018            VCB$L_MAXFILES   00000044            

UCB$W_BYTESTOGO  0000003E            VCB$L_MVL        00000034            

UCB$W_CHARGE     0000004A            VCB$L_RVT        00000020            

UCB$W_CYLINDERS  0000003E            VCB$L_SBMAPLBN   00000034            

UCB$W_DA         0000008C            VCB$L_START_FID  00000028            

UCB$W_DC         0000008E            VCB$L_ST_RECORD  00000030            

UCB$W_DEVBUFSIZ  0000003A            VCB$L_USRLBLAST  00000044            

UCB$W_DEVSTS     0000005A            VCB$L_VPBL       00000040            

UCB$W_DIRSEQ     00000088            VCB$L_VPFL       0000003C            

UCB$W_DSTADDR    00000018            VCB$L_WCB        00000038            

UCB$W_DX_BCR     000000A4            VCB$M_CANCELIO = 00000020            

UCB$W_EC1        00000090            VCB$M_MUSTCLOSE= 00000040            

UCB$W_EC2        00000092            VCB$M_NOWRITE  = 00000080            

UCB$W_ERRCNT     00000072            VCB$M_WAIMOUVOL= 00000004            

UCB$W_FUNC       0000007E            VCB$M_WAIREWIND= 00000008            

UCB$W_MB_SEED    FFFFFFFC            VCB$M_WAIUSRLBL= 00000010            

UCB$W_MSGCNT     00000016            VCB$T_QNAME      0000000C            

UCB$W_MSGMAX     00000014            VCB$T_VOLNAME    00000014            

UCB$W_NT_CHAN    0000007C            VCB$V_CANCELIO = 00000005            

UCB$W_OFFSET     0000008A            VCB$V_EBCDIC   = 00000005            

UCB$W_REFC       00000050            VCB$V_EXTFID   = 00000005            

UCB$W_SIZE       00000008            VCB$V_GROUP    = 00000006            

UCB$W_SRCADDR    0000001A            VCB$V_HOMBLKBAD= 00000002            

NETINI                                                           22-AUG-1978 00:54:46   VAX-11 MACRO X0.3-11               Page  13

PROGRAM SECTION SYNOPSIS                                                                                                         (1)







PROGRAM SECTION SYNOPSIS



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

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

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

NET_IMPURE       0000006C      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT BYTE  

NET_PURE         00000010      04     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD  NOWRT BYTE  

NET_DISCONNECT   000001F3      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

10120. BYTES LEFT IN FREE MEMORY POOL.

2646. BYTES OF RECLAIMED MEMORY.

OBJ$:NETINI,LIS$:NETINI/-SP=EXECML$/ML,M1/ML,M2/ML,SRC$:NETINI

94 MLB DIR RDS - 862 GETS TO DEFINE 30 MACROS. 50 INTER. FILE WRITES. 

