STACP           ROUTINE TO START NETACP                          22-AUG-1978 01:57:03   VAX-11 MACRO X0.3-11               Page   1

01                                                                                                                               (1)



                                     0000     1 	.TITLE STACP  ROUTINE TO START NETACP

                                     0000     2 	.IDENT	/01 /

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ;			  COPYRIGHT (c) 1978 BY

                                     0000     6 ;	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

                                     0000     7 ;

                                     0000     8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED

                                     0000     9 ; ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE

                                     0000    10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER

                                     0000    11 ; COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY

                                     0000    12 ; OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY

                                     0000    13 ; TRANSFERRED.

                                     0000    14 ;

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

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

                                     0000    17 ; CORPORATION.

                                     0000    18 ;

                                     0000    19 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS

                                     0000    20 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

                                     0000    21 ;

                                     0000    22 

                                     0000    23 ;++

                                     0000    24 ; FACILITY:

                                     0000    25 ;	NCP--THE NETWORK CONTROL PROGRAM

                                     0000    26 ; ABSTRACT:

                                     0000    27 ;

                                     0000    28 ;	STACP IS CALLED FROM THE SETSTATE_ON ROUTINE OF NCP.

                                     0000    29 ;	WHENEVER THE NETWORK MANAGER ENTERS "SET STATE LOCAL ON"

                                     0000    30 ;	THROUGH THE NCP AND THE NETWORK ACP DOESNT EXIST, 

                                     0000    31 ;	STACP CREATES THE ACP.

                                     0000    32 ;	ALSO STACP CREATES THE ENVIRONMENT THAT NETACP NEEDS TO

                                     0000    33 ;	RUN, AN AQB AND VCB ARE CREATED AND LINKED TOGETHER AND

                                     0000    34 ;	TO THE NETWORK UCB.

                                     0000    35 ;

                                     0000    36 ; ENVIRONMENT:

                                     0000    37 ;	VAX11/780 VAX/VMS OPERATING SYSTEM

                                     0000    38 ; AUTHOR:TOM DOPIRAK	, CREATION DATE:3/14/78

                                     0000    39 ;

                                     0000    40 ; MODIFIED BY:

                                     0000    41 ;

                                     0000    42 ;--

STACP           ROUTINE TO START NETACP                          22-AUG-1978 01:57:03   VAX-11 MACRO X0.3-11               Page   2

01                                                                                                                               (3)



                                 00000000    45 	.PSECT	$PLIT$,NOWRT,NOEXE,2

                                     0000    46 	$AQBDEF

                                     0000    47 	$SSDEF

                                     0000    48 	$DYNDEF

                                     0000    49 	$UCBDEF

                                     0000    50 	$VCBDEF

                                     0000    51 	$PQLDEF

                                     0000    52 ;

                                     0000    53 ; DESCRIPTOR MACRO GENERATES CHARACTER STRING DESCRIPTORS

                                     0000    54 ; FOR CHARACTER STRING INPUT TO SYSTEM SERVICES.

                                     0000    55 ;

                                     0000    56 	.MACRO	DESCRIPTOR	TEXT,?LABEL1,?LABEL2

                                     0000    57 		.LONG	LABEL2-LABEL1

                                     0000    58 		.LONG	LABEL1

                                     0000    59 	LABEL1:	.ASCII	\TEXT\

                                     0000    60 	LABEL2:

                                     0000    61 	.ENDM	DESCRIPTOR

                                     0000    62 ;

                                     0000    63 ;CHARACTER STRING DESCRIPTORS FOR 'CREATE PROCESS'

                                     0000    64 ;

                                     0000    65 IMAGE_NAME:

                                     0000    66 	DESCRIPTOR	<SYS$SYSTEM:CCP.EXE>

                                     001A    67 PROCESS_NAME:

                                     001A    68 	DESCRIPTOR	<NETACP>

                                     0028    69 INPUT_DESC:

                                     0028    70 	DESCRIPTOR	<TTA0:>

                                     0035    71 UIC:

                           00010001  0035    72 	.LONG		^X00010001

                                     0039    73 ;

                                     0039    74 ;QUOTA LIST FOR NETACP

                                     0039    75 

                                     0039    76 QLIST:

                                 01' 0039    77 	.BYTE	PQL$_ASTLM

                           00000080  003A    78 	.LONG	128

                                 05' 003E    79 	.byte pql$_diolm

                           00007FFF  003F    80 	.long	^X00007FFF

                                 02' 0043    81 	.BYTE	PQL$_BIOLM

                           00007FFF  0044    82 	.LONG	^X00007FFF

                                 00' 0048    83 	.BYTE	PQL$_LISTEND

                                 00000000    84 	.PSECT $OWN$,NOEXE,2

                                     0000    85 ;

                                     0000    86 ;STORAGE FOR RETURNED PROCESS ID

                           00000004  0000    87 PIDADR:.BLKL 1

                                     0004    88 ;

                                     0004    89 ;ROUTINE ENTRY,CHANGE MODE TO KERNEL

                                     0004    90 ;

                                 00000000    91 	.PSECT $CODE$,NOWRT,2

                                     0000    92 stacp::

                               0000  0000    93 	.WORD	0		;ENTRY MASK

                                     0002    94 	$CMKRNL_S GO		;EXECUTE ROUTINE GO

                                 04  0011    95 	RET			;LEAVE ROUTINE

STACP           ROUTINE TO START NETACP                          22-AUG-1978 01:57:03   VAX-11 MACRO X0.3-11               Page   3

01                                                                                                                               (4)



                                     0012    97 ;

                                     0012    98 ;ROUTINE WHICH ACTUALLY STARTS ACP

                                     0012    99 ;

                                     0012   100 GO:

                               004C  0012   101 	.WORD	^M<R2,R3,R6>

                                     0014   102 ;

                                     0014   103 ;CHECK TO SEE IF ACP IS MARKED FOR DISMOUNT

                                     0014   104 ;

            53   00000000'EF     DE  0014   105 	MOVAL	NET$UCB0,R3		;GET UCB ADDRESS

         34 A3   00000000'8F     E1  001B   106 	BBC	#DEV$V_DMT,UCB$L_DEVCHAR(R3),40$	;DEV MARKED FOR DISMOUNT

                          08         0023       

            50   0000006C 8F     D0  0024   107 	MOVL	#SS$_DEVMOUNT,R0	;NOTE MARK FOR DISMOUNT

                                 04  002B   108 	RET

                                     002C   109 40$:

                                     002C   110 ;

                                     002C   111 ;BUILD THE ACP QUEUE BLOCK(AQB)

                                     002C   112 ;

            51            18     9A  002C   113 	MOVZBL	#AQB$C_LENGTH,R1	;LENGTH OF AQB BLOCK

                 00000000'EF     16  002F   114 	JSB	EXE$ALONONPAGED		;GET A CHUNK OF STORAGE

            03            50     E8  0035   115 	BLBS	R0,50$			;BR ON SUCCESSFUL ALLOCATION

                          0098   31  0038   116 	BRW	77$			;ERROR ON ALLOCATION

                                     003B   117 50$:

                                     003B   118 

                                     003B   119 ;

                                     003B   120 ;FILL IN THE AQB

                                     003B   121 ;

         08 A2            18     9B  003B   122 	MOVZBW	#AQB$C_LENGTH,AQB$W_SIZE(R2)	;RECORD SIZE OF AQB

         0A A2            03     90  003F   123 	MOVB	#DYN$C_AQB,AQB$B_TYPE(R2);NOTE TYPE OF BLOCK

            62            52     D0  0043   124 	MOVL	R2,AQB$L_ACPQFL(R2)	;SET QUEUE FORWARD LINK

         04 A2            52     D0  0046   125 	MOVL	R2,AQB$L_ACPQBL(R2)	;SET QUEUE BACK LINK

         0B A2            01     90  004A   126 	MOVB	#1,AQB$B_MNTCNT(R2)		;INITIALIZE MOUNT COUNT

         14 A2            09     88  004E   127 	BISB	#AQB$M_UNIQUE!AQB$M_CREATING,AQB$B_STATUS(R2);NOTE STATUS OF ACP

                          52     DD  0052   128 	PUSHL	R2			;SAVE AQB ADDRESS

                                     0054   129 ;

                                     0054   130 ;BUILD VCB

                                     0054   131 ;

            51         54 8F     9A  0054   132 	MOVZBL	#VCB$C_LENGTH,R1	;RECORD LENGTH OF BLOCK

                 00000000'EF     16  0058   133 	JSB	EXE$ALONONPAGED		;ALLOCATE THE STORAGE

            69            50     E9  005E   134 	BLBC	R0,76$			;DEALLOCATE AQB ON ALLOCATION FAILURE

                                     0061   135 ;

                                     0061   136 75$:

         0A A2            11     90  0061   137 	MOVB	#DYN$C_VCB,VCB$B_TYPE(R2);SET STRUCTURE TYPE

         08 A2         54 8F     9B  0065   138 	MOVZBW	#VCB$C_LENGTH,VCB$W_SIZE(R2)	;SET SIZE OF VCB

         0C A2            01     B0  006A   139 	MOVW	#1,VCB$W_TRANS(R2)	;INITIALIZE TRANSACTION COUNT

         10 A2            6E     D0  006E   140 	MOVL	(SP),VCB$L_AQB(R2)	;ADD LINK TO AQB

            53   00000000'EF     DE  0072   141 	MOVAL	NET$UCB0,R3		;ADDRESS OF NETWORK UCB

         30 A3            52     D0  0079   142 	MOVL	R2,UCB$L_VCB(R3)	;LINK TO VCB

         58 A3       0200 8F     A8  007D   143 	BISW	#UCB$M_MOUNTING,UCB$W_STS(R3)	;NOTE DEVICE IS MOUNTING

                                     0083   144 ;

                                     0083   145 ;STARTUP THE ACP

                                     0083   146 ;

                                     0083   147 	$CREPRC_S		PIDADR=PIDADR,-

                                     0083   148 			IMAGE=IMAGE_NAME,-

                                     0083   149 			INPUT=INPUT_DESC,-

                                     0083   150 			QUOTA=QLIST,-

                                     0083   151 			BASPRI=#8,-

                                     0083   152 			PRCNAM=PROCESS_NAME,-

STACP           ROUTINE TO START NETACP                          22-AUG-1978 01:57:03   VAX-11 MACRO X0.3-11               Page   4

01                                                                                                                               (4)



                                     0083   153 			STSFLG=#0,-	;DISABLE RESOURCE WAIT

                                     0083   154 			UIC=UIC

            19            50     E8  00BB   155 	BLBS	R0,80$			;BR IF SUCCESSFUL

            56            50     D0  00BE   156 	MOVL	R0,R6			;SAVE ERROR STATUS

                                     00C1   157 ;

                                     00C1   158 ;DEALLOCATE THE AQB AND VCB

                                     00C1   159 ;

            50            52     D0  00C1   160 	MOVL	R2,R0			;ADDRESS VCB

                 00000000'EF     16  00C4   161 	JSB	EXE$DEANONPAGED		;RETURN BLOCK

                                     00CA   162 76$:

                          50   8ED0  00CA   163 	POPL	R0			;ADDRESS AQB

                 00000000'EF     16  00CD   164 	JSB	EXE$DEANONPAGED		;RETURN AQB

                                     00D3   165 77$:

            50            56     D0  00D3   166 	MOVL	R6,R0			;RESTORE ERROR STATUS

                                 04  00D6   167 	RET

                                     00D7   168 ;

                                     00D7   169 ;PLACE PID INTO AQB

                                     00D7   170 80$:

                                     00D7   171 

                          52   8ED0  00D7   172 	POPL	R2			;RESTORE ADDRESS OF AQB

         0C A2       0000'CF     D0  00DA   173 	MOVL W^PIDADR,AQB$L_ACPPID(R2)

                                     00E0   174 ;

                                     00E0   175 ;LINK THE AQB INTO THE AQB LIST

                                     00E0   176 ;

                                     00E0   177 

       0000'CF            00     FB  00E0   178 	CALLS	#0,W^LOCK_IODB	;LOCK THE IO DATABASE

            51   00000000'EF     9E  00E5   179 	MOVAB	L^IOC$GL_AQBLIST,R1		;GET ADDRESS OF LIST HEAD

         10 A2            61     D0  00EC   180 	MOVL	(R1),AQB$L_LINK(R2)	;MAKE FORWARD LINK FROM AQB

            61            52     D0  00F0   181 	MOVL	R2,(R1)			;MAKE THIS AQB HEAD OF LIST

       0000'CF            00     FB  00F3   182 	CALLS	#0,W^UNLOCK_IODB		;UNLOCK DATABASE

            50            01     D0  00F8   183 	MOVL	#1,R0			;RETURN SUCCESS

                                 04  00FB   184 100$:	RET

                                     00FC   185 	.END	

STACP           ROUTINE TO START NETACP                          22-AUG-1978 01:57:03   VAX-11 MACRO X0.3-11               Page   5

SYMBOL TABLE                                                                                                                     (4)



$$T1           = 00000000            DYN$C_PTR      = 00000025            SS$_CHANINTLK  = 0000004C            

AQB$B_ACPTYPE    00000015            DYN$C_RVT      = 0000000E            SS$_CLIFRCEXT  = 00000980            

AQB$B_CLASS      00000016            DYN$C_SFT      = 00000024            SS$_CMODSUPR   = 0000041C            

AQB$B_MNTCNT     0000000B            DYN$C_SSB      = 0000001D            SS$_CMODUSER   = 00000424            

AQB$B_STATUS     00000014            DYN$C_TQE      = 0000000F            SS$_COMPAT     = 0000042C            

AQB$B_TYPE       0000000A            DYN$C_TYPAHD   = 00000014            SS$_CONTINUE   = 00000001            

AQB$C_LENGTH     00000018            DYN$C_UCB      = 00000010            SS$_CONTROLC   = 00000651            

AQB$K_F11V1    = 00000001            DYN$C_VCB      = 00000011            SS$_CONTROLO   = 00000609            

AQB$K_F11V2    = 00000002            DYN$C_WCB      = 00000012            SS$_CONTROLY   = 00000611            

AQB$K_LENGTH     00000018            EXE$ALONONPAGED  ********   X   05   SS$_CREATED    = 00000619            

AQB$K_MTA      = 00000003            EXE$DEANONPAGED  ********   X   05   SS$_CTRLERR    = 00000054            

AQB$K_NET      = 00000004            GBL...         = 00000000            SS$_DATACHECK  = 0000005C            

AQB$K_UNDEFINED= 00000000            GO               00000012 R     05   SS$_DATAOVERUN = 00000838            

AQB$L_ACPPID     0000000C            IMAGE_NAME       00000000 R     02   SS$_DEBUG      = 0000046C            

AQB$L_ACPQBL     00000004            INPUT_DESC       00000028 R     02   SS$_DECOVF     = 000004A4            

AQB$L_ACPQFL     00000000            IOC$GL_AQBLIST   ********   X   05   SS$_DEVACTIVE  = 000002C4            

AQB$L_LINK       00000010            LOCK_IODB        ********   X   05   SS$_DEVALLOC   = 00000840            

AQB$M_CREATING = 00000008            NET$UCB0         ********   X   05   SS$_DEVALRALLOC= 00000641            

AQB$M_DEFCLASS = 00000002            PIDADR           00000000 R     04   SS$_DEVASSIGN  = 00000848            

AQB$M_DEFSYS   = 00000004            PQL$_ASTLM     = 00000001            SS$_DEVFOREIGN = 00000064            

AQB$M_UNIQUE   = 00000001            PQL$_BIOLM     = 00000002            SS$_DEVICEFULL = 00000850            

AQB$V_CREATING = 00000003            PQL$_BYTLM     = 00000003            SS$_DEVMOUNT   = 0000006C            

AQB$V_DEFCLASS = 00000001            PQL$_CPULM     = 00000004            SS$_DEVNOTALLOC= 00000858            

AQB$V_DEFSYS   = 00000002            PQL$_DIOLM     = 00000005            SS$_DEVNOTMBX  = 00000074            

AQB$V_UNIQUE   = 00000000            PQL$_FILLM     = 00000006            SS$_DEVNOTMOUNT= 0000007C            

AQB$W_SIZE       00000008            PQL$_LENGTH    = 0000000C            SS$_DEVOFFLINE = 00000084            

BIT...         = 0000000D            PQL$_LISTEND   = 00000000            SS$_DIRFULL    = 00000860            

DEV$V_DMT        ********   X   05   PQL$_PGFLQUOTA = 00000007            SS$_DRVERR     = 0000008C            

DYN$C_ACB      = 00000002            PQL$_PRCLM     = 00000008            SS$_DUPFILENAME= 00000868            

DYN$C_ADP      = 00000001            PQL$_TQELM     = 00000009            SS$_DUPLNAM    = 00000094            

DYN$C_AQB      = 00000003            PQL$_WSDEFAULT = 0000000B            SS$_ENDOFFILE  = 00000870            

DYN$C_BRDCST   = 0000001A            PQL$_WSQUOTA   = 0000000A            SS$_ENDOFTAPE  = 00000878            

DYN$C_BUFIO    = 00000013            PROCESS_NAME     0000001A R     02   SS$_ENDOFUSRLBL= 00000970            

DYN$C_CEB      = 00000004            QLIST            00000039 R     02   SS$_EXQUOTA    = 0000001C            

DYN$C_CRB      = 00000005            SS$_ABORT      = 0000002C            SS$_EXTIDXFILE = 00000880            

DYN$C_CXB      = 0000001B            SS$_ACCONFLICT = 00000800            SS$_FCPREADERR = 00000888            

DYN$C_DDB      = 00000006            SS$_ACCVIO     = 0000000C            SS$_FCPREPSTN  = 00000988            

DYN$C_DPT      = 0000001E            SS$_ACPVAFUL   = 000002FC            SS$_FCPREWNDERR= 00000890            

DYN$C_FCB      = 00000007            SS$_ARTRES     = 00000474            SS$_FCPSPACERR = 00000898            

DYN$C_FRK      = 00000008            SS$_ASTFLT     = 0000040C            SS$_FCPWRITERR = 000008A0            

DYN$C_GSD      = 00000015            SS$_BADATTRIB  = 00000034            SS$_FILACCERR  = 0000009C            

DYN$C_IDB      = 00000009            SS$_BADCHKSUM  = 00000808            SS$_FILALRACC  = 000000A4            

DYN$C_IRP      = 0000000A            SS$_BADESCAPE  = 0000003C            SS$_FILELOCKED = 000008A8            

DYN$C_JPB      = 0000001F            SS$_BADFILEHDR = 00000810            SS$_FILENUMCHK = 000008B0            

DYN$C_KFH      = 00000026            SS$_BADFILENAME= 00000818            SS$_FILESEQCHK = 000008B8            

DYN$C_KFI      = 00000018            SS$_BADFILEVER = 00000820            SS$_FILESTRUCT = 000008C0            

DYN$C_LOG      = 0000000B            SS$_BADIMGHDR  = 00000044            SS$_FILNOTACC  = 000000AC            

DYN$C_MTL      = 00000019            SS$_BADIRECTORY= 00000828            SS$_FILNOTCNTG = 000002AC            

DYN$C_MVL      = 00000016            SS$_BADPARAM   = 00000014            SS$_FILNOTEXP  = 000000B4            

DYN$C_NDB      = 0000001C            SS$_BADSTACK   = 000002B4            SS$_FLTDIV     = 00000494            

DYN$C_NET      = 00000017            SS$_BEGOFFILE  = 00000938            SS$_FLTOVF     = 0000048C            

DYN$C_PBH      = 00000020            SS$_BLOCKCNTERR= 00000940            SS$_FLTUND     = 0000049C            

DYN$C_PCB      = 0000000C            SS$_BREAK      = 00000414            SS$_FORMAT     = 000000BC            

DYN$C_PDB      = 00000021            SS$_BUFBYTALI  = 0000030C            SS$_GPTFULL    = 000000C4            

DYN$C_PFL      = 00000023            SS$_BUFFEROVF  = 00000601            SS$_GSDFULL    = 000000CC            

DYN$C_PIB      = 00000022            SS$_BUGCHECK   = 000002A4            SS$_HANGUP     = 000002CC            

DYN$C_PQB      = 0000000D            SS$_CANCEL     = 00000830            SS$_HEADERFULL = 000008C8            

STACP           ROUTINE TO START NETACP                          22-AUG-1978 01:57:03   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (4)



SS$_IDXFILEFULL= 000008D0            SS$_NOSOLICIT  = 00000284            UCB$B_CM2        0000004B            

SS$_ILLBLKNUM  = 000000DC            SS$_NOSUCHDEV  = 00000908            UCB$B_DEVCLASS   00000038            

SS$_ILLCNTRFUNC= 000000E4            SS$_NOSUCHFILE = 00000910            UCB$B_DEVTYPE    00000039            

SS$_ILLEFC     = 000000EC            SS$_NOSUCHNODE = 0000028C            UCB$B_DIPL       00000052            

SS$_ILLIOFUNC  = 000000F4            SS$_NOSUCHSEC  = 00000978            UCB$B_DX_SCTCNT  000000A6            

SS$_ILLLBLAST  = 00000968            SS$_NOTAPEOP   = 00000264            UCB$B_ERTCNT     00000070            

SS$_ILLPAGCNT  = 000000FC            SS$_NOTFILEDEV = 000001CC            UCB$B_ERTMAX     00000071            

SS$_ILLSEQOP   = 000002DC            SS$_NOTINTBLSZ = 000001D4            UCB$B_ESCAPE     0000004B            

SS$_ILLSER     = 00000104            SS$_NOTLABELMT = 000001DC            UCB$B_FEX        00000076            

SS$_ILLUSRLBLRD= 00000958            SS$_NOTMODIFIED= 00000659            UCB$B_FIPL       0000000B            

SS$_ILLUSRLBLWT= 00000960            SS$_NOTNETDEV  = 000002EC            UCB$B_LOCSRV     0000003C            

SS$_INCVOLLABEL= 0000010C            SS$_NOTRAN     = 00000629            UCB$B_OFFNDX     00000094            

SS$_INSFARG    = 00000114            SS$_NOTSQDEV   = 000001E4            UCB$B_OFFRTC     00000095            

SS$_INSFMEM    = 00000124            SS$_OPCCUS     = 00000434            UCB$B_REMSRV     0000003D            

SS$_INSFRAME   = 0000012C            SS$_OPCDEC     = 0000043C            UCB$B_SECTORS    0000003C            

SS$_INSFWSL    = 0000011C            SS$_OPINCOMPL  = 000002D4            UCB$B_SLAVE      00000074            

SS$_INTDIV     = 00000484            SS$_PAGOWNVIO  = 000001EC            UCB$B_SPR        00000075            

SS$_INTOVF     = 0000047C            SS$_PAGRDERR   = 00000444            UCB$B_STATE      00000052            

SS$_IVADDR     = 00000134            SS$_PARITY     = 000001F4            UCB$B_TRACKS     0000003D            

SS$_IVCHAN     = 0000013C            SS$_PARTESCAPE = 000001FC            UCB$B_TYPE       0000000A            

SS$_IVCHNLSEC  = 0000026C            SS$_PFMBSY     = 00000204            UCB$B_VERTSZ     0000003F            

SS$_IVDEVNAM   = 00000144            SS$_PLHLDR     = 00000404            UCB$C_LENGTH     00000074            

SS$_IVGSDNAM   = 0000014C            SS$_PSTFULL    = 0000020C            UCB$C_LOGLNK   = 00000001            

SS$_IVLOGNAM   = 00000154            SS$_RADRMOD    = 0000044C            UCB$K_LENGTH     00000074            

SS$_IVLOGTAB   = 0000015C            SS$_REJECT     = 00000294            UCB$L_AMB        00000054            

SS$_IVPROTECT  = 000002F4            SS$_REMOTE     = 00000649            UCB$L_ASTQBL     00000010            

SS$_IVQUOTAL   = 00000164            SS$_RESIGNAL   = 00000918            UCB$L_ASTQFL     0000000C            

SS$_IVSECFLG   = 0000016C            SS$_RESULTOVF  = 00000214            UCB$L_CPID       0000005C            

SS$_IVSECIDCTL = 000002E4            SS$_ROPRAND    = 00000454            UCB$L_CRB        00000020            

SS$_IVSSRQ     = 00000174            SS$_SECTBLFUL  = 0000021C            UCB$L_DDB        00000024            

SS$_IVSTSFLG   = 0000017C            SS$_SSFAIL     = 0000045C            UCB$L_DEVCHAR    00000034            

SS$_IVTIME     = 00000184            SS$_SUBRNG     = 000004AC            UCB$L_DEVDEPEND  0000003C            

SS$_LCKPAGFUL  = 000000D4            SS$_SUPERSEDE  = 00000631            UCB$L_DPC        00000080            

SS$_LENVIO     = 0000018C            SS$_TAPEPOSLOST= 00000224            UCB$L_DUETIM     0000005C            

SS$_LKWSETFUL  = 00000194            SS$_TBIT       = 00000464            UCB$L_DX_BFPNT   0000009C            

SS$_MBFULL     = 000008D8            SS$_TIMEOUT    = 0000022C            UCB$L_DX_BUF     00000098            

SS$_MBTOOSML   = 0000019C            SS$_TOOMANYVER = 00000990            UCB$L_DX_RXDB    000000A0            

SS$_MCHECK     = 000002BC            SS$_TOOMUCHDATA= 0000029C            UCB$L_EMB        00000078            

SS$_MEDOFL     = 000001A4            SS$_UNASEFC    = 00000234            UCB$L_FIRST      00000014            

SS$_MSGNOTFND  = 00000621            SS$_UNSAFE     = 0000023C            UCB$L_FPC        0000000C            

SS$_MTLBLLONG  = 00000304            SS$_UNWIND     = 00000920            UCB$L_FQBL       00000004            

SS$_MUSTCLOSEFL= 00000948            SS$_UNWINDING  = 00000928            UCB$L_FQFL       00000000            

SS$_NOAQB      = 00000314            SS$_VASFULL    = 00000244            UCB$L_FR3        00000010            

SS$_NODATA     = 000001AC            SS$_VECINUSE   = 0000024C            UCB$L_FR4        00000014            

SS$_NOHANDLER  = 000008F8            SS$_VOLINV     = 00000254            UCB$L_IOQBL      00000044            

SS$_NOHOMEBLK  = 000008E0            SS$_WAITUSRLBL = 00000950            UCB$L_IOQFL      00000040            

SS$_NOIOCHAN   = 000001B4            SS$_WASCLR     = 00000001            UCB$L_IRP        0000004C            

SS$_NOLINKS    = 0000027C            SS$_WASECC     = 00000639            UCB$L_LINK       0000002C            

SS$_NOLOGNAM   = 000001BC            SS$_WASSET     = 00000009            UCB$L_LOGADR     00000064            

SS$_NOMBX      = 00000274            SS$_WRITLCK    = 0000025C            UCB$L_MAXBLOCK   00000084            

SS$_NOMOREFILES= 00000930            SS$_WRONGACP   = 0000031C            UCB$L_MEDIA      0000008C            

SS$_NONEXDRV   = 000001C4            STACP            00000000 RG    05   UCB$L_NT_DATSSB  00000074            

SS$_NONEXPR    = 000008E8            SYS$CMKRNL       ********   X   05   UCB$L_NT_INTSSB  00000078            

SS$_NONLOCAL   = 000008F0            SYS$CREPRC       ********   X   05   UCB$L_OPCNT      00000060            

SS$_NOPRIV     = 00000024            UCB$B_AMOD       00000053            UCB$L_OWNUIC     0000001C            

SS$_NORMAL     = 00000001            UCB$B_CEX        00000077            UCB$L_PID        00000028            

SS$_NOSIGNAL   = 00000900            UCB$B_CM1        0000004A            UCB$L_RQBL       00000004            

STACP           ROUTINE TO START NETACP                          22-AUG-1978 01:57:03   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (4)



UCB$L_RQFL       00000000            UCB$V_PRMMBX   = 00000000            VCB$K_MRKLEN     0000000B            

UCB$L_SVAPTE     00000068            UCB$V_SEGFLO   = 00000002            VCB$L_AQB        00000010            

UCB$L_SVPN       00000064            UCB$V_TIM      = 00000000            VCB$L_BLOCKBL    00000004            

UCB$L_TTCHAR     0000003C            UCB$V_TIMOUT   = 00000006            VCB$L_BLOCKFL    00000000            

UCB$L_VCB        00000030            UCB$V_TT_NOTIF = 00000002            VCB$L_CUR_FID    00000024            

UCB$M_BACKP    = 00000020            UCB$V_TT_TIMO  = 00000001            VCB$L_FCBBL      00000004            

UCB$M_BSY      = 00000100            UCB$V_UNLOAD   = 0000000C            VCB$L_FCBFL      00000000            

UCB$M_CANCEL   = 00000008            UCB$V_VALID    = 0000000B            VCB$L_FREE       00000040            

UCB$M_DEADMO   = 00000400            UCB$W_BCNT       0000006E            VCB$L_HOME2LBN   00000028            

UCB$M_DELMBX   = 00000002            UCB$W_BCR        00000096            VCB$L_HOMELBN    00000024            

UCB$M_DIAGBUF  = 00000002            UCB$W_BOFF       0000006C            VCB$L_IBMAPLBN   00000030            

UCB$M_DX_WRITE = 00000008            UCB$W_BUFQUO     00000018            VCB$L_IXHDR2LBN  0000002C            

UCB$M_ECC      = 00000001            UCB$W_BYTESTOGO  0000003E            VCB$L_MAXFILES   00000044            

UCB$M_ERLOGIP  = 00000004            UCB$W_CHARGE     0000004A            VCB$L_MVL        00000034            

UCB$M_INT      = 00000002            UCB$W_CYLINDERS  0000003E            VCB$L_RVT        00000020            

UCB$M_INTTYPE  = 00000080            UCB$W_DA         0000008C            VCB$L_SBMAPLBN   00000034            

UCB$M_JOB      = 00000001            UCB$W_DC         0000008E            VCB$L_START_FID  00000028            

UCB$M_MOUNTING = 00000200            UCB$W_DEVBUFSIZ  0000003A            VCB$L_ST_RECORD  00000030            

UCB$M_NOCNVRT  = 00000004            UCB$W_DEVSTS     0000005A            VCB$L_USRLBLAST  00000044            

UCB$M_NT_BFROVF= 00000004            UCB$W_DIRSEQ     00000088            VCB$L_VPBL       00000040            

UCB$M_NT_BREAK = 00000020            UCB$W_DSTADDR    00000018            VCB$L_VPFL       0000003C            

UCB$M_NT_NAME  = 00000010            UCB$W_DX_BCR     000000A4            VCB$L_WCB        00000038            

UCB$M_ONLINE   = 00000010            UCB$W_EC1        00000090            VCB$M_CANCELIO = 00000020            

UCB$M_POWER    = 00000020            UCB$W_EC2        00000092            VCB$M_MUSTCLOSE= 00000040            

UCB$M_PRMMBX   = 00000001            UCB$W_ERRCNT     00000072            VCB$M_NOWRITE  = 00000080            

UCB$M_TIM      = 00000001            UCB$W_FUNC       0000007E            VCB$M_WAIMOUVOL= 00000004            

UCB$M_TIMOUT   = 00000040            UCB$W_MB_SEED    FFFFFFFC            VCB$M_WAIREWIND= 00000008            

UCB$M_TT_NOTIF = 00000004            UCB$W_MSGCNT     00000016            VCB$M_WAIUSRLBL= 00000010            

UCB$M_TT_TIMO  = 00000002            UCB$W_MSGMAX     00000014            VCB$T_QNAME      0000000C            

UCB$M_UNLOAD   = 00001000            UCB$W_NT_CHAN    0000007C            VCB$T_VOLNAME    00000014            

UCB$M_VALID    = 00000800            UCB$W_OFFSET     0000008A            VCB$V_CANCELIO = 00000005            

UCB$S_LNKPRI   = 00000002            UCB$W_REFC       00000050            VCB$V_EBCDIC   = 00000005            

UCB$S_LTYPE    = 00000002            UCB$W_SIZE       00000008            VCB$V_EXTFID   = 00000005            

UCB$T_PARTNER    0000000C            UCB$W_SRCADDR    0000001A            VCB$V_GROUP    = 00000006            

UCB$V_BACKP    = 00000005            UCB$W_STS        00000058            VCB$V_HOMBLKBAD= 00000002            

UCB$V_BSY      = 00000008            UCB$W_UNIT       00000048            VCB$V_IDXHDRBAD= 00000003            

UCB$V_CANCEL   = 00000003            UCB$W_VPROT      0000001A            VCB$V_INTCHG   = 00000004            

UCB$V_DEADMO   = 0000000A            UIC              00000035 R     02   VCB$V_LOGICEOVS= 00000001            

UCB$V_DELMBX   = 00000001            UNLOCK_IODB      ********   X   05   VCB$V_MUSTCLOSE= 00000006            

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

UCB$V_DX_WRITE = 00000003            VCB$B_EOFDELTA   0000004E            VCB$V_NOWRITE  = 00000007            

UCB$V_ECC      = 00000000            VCB$B_IBMAPSIZE  00000038            VCB$V_OVRACC   = 00000001            

UCB$V_ERLOGIP  = 00000002            VCB$B_IBMAPVBN   0000003A            VCB$V_OVREXP   = 00000000            

UCB$V_INT      = 00000001            VCB$B_LRU_LIM    00000049            VCB$V_OVRLBL   = 00000002            

UCB$V_INTTYPE  = 00000007            VCB$B_QNAMECNT   0000000B            VCB$V_OVRSETID = 00000003            

UCB$V_JOB      = 00000000            VCB$B_RESFILES   0000004F            VCB$V_PARTFILE = 00000000            

UCB$V_LNKPRI   = 00000006            VCB$B_SBMAPSIZE  00000039            VCB$V_STARFILE = 00000008            

UCB$V_LTYPE    = 00000000            VCB$B_SBMAPVBN   0000003B            VCB$V_SYSTEM   = 00000007            

UCB$V_MOUNTING = 00000009            VCB$B_STATUS     0000000B            VCB$V_WAIMOUVOL= 00000002            

UCB$V_MSGACK   = 00000004            VCB$B_TM         0000002E            VCB$V_WAIREWIND= 00000003            

UCB$V_MSGFLO   = 00000003            VCB$B_TYPE       0000000A            VCB$V_WAIUSRLBL= 00000004            

UCB$V_NOCNVRT  = 00000002            VCB$B_WINDOW     00000048            VCB$V_WRITE_IF = 00000000            

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

UCB$V_NT_BREAK = 00000005            VCB$C_LENGTH     00000054            VCB$W_CLUSTER    0000003C            

UCB$V_NT_NAME  = 00000004            VCB$C_MRKLEN     0000000B            VCB$W_CUR_NUM    00000024            

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

UCB$V_POWER    = 00000005            VCB$K_LENGTH     00000054            VCB$W_EXTEND     0000003E            

STACP           ROUTINE TO START NETACP                          22-AUG-1978 01:57:03   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (4)



VCB$W_FILEPROT   0000004A            

VCB$W_MCOUNT     0000004C            

VCB$W_MODE       0000002C            

VCB$W_RECORDSZ   00000050            

VCB$W_RVN        0000000E            

VCB$W_SIZE       00000008            

VCB$W_START_NUM  00000028            

VCB$W_START_SEQ  0000002A            

VCB$W_TRANS      0000000C            





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  

$PLIT$           00000049      02     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD  NOWRT LONG  

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

$OWN$            00000004      04     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

$CODE$           000000FC      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT LONG  





THERE WERE NO ERRORS OR WARNINGS.

9606. BYTES LEFT IN FREE MEMORY POOL.

4196. BYTES OF RECLAIMED MEMORY.

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

9 MLB DIR RDS - 859 GETS TO DEFINE 19 MACROS. 59 INTER. FILE WRITES. 

