SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              22-AUG-1978 00:19:14   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      65  ASSIGN I/O CHANNEL

   (1)     307  TEST IF MAILBOX SPECIFIED

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              22-AUG-1978 00:19:14   VAX-11 MACRO X0.3-11               Page   1

01                                                                                                                               (1)



                                     0000     1 	.TITLE	SYSASSIGN - SYSTEM SERVICE ASSIGN I/O CHANNEL

                                     0000     2 	.IDENT	/01/

                                     0000     3  

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

                                     0000     7 ;

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

                                     0000     9 ; SINGLE COMPUTER SYSTEM AND MAY BE  COPIED ONLY WITH  THE INCLU-

                                     0000    10 ; SION OF  THE  ABOVE  COPYRIGHT NOTICE.  THIS SOFTWARE,  OR  ANY

                                     0000    11 ; OTHER COPIES THEREOF, MAY NOT BE  PROVIDED  OR  OTHERWISE  MADE

                                     0000    12 ; AVAILABLE TO ANY OTHER PERSON EXCEPT  FOR  USE  ON  SUCH SYSTEM

                                     0000    13 ; AND TO  ONE WHO AGREES  TO  THESE LICENSE  TERMS.  TITLE TO AND

                                     0000    14 ; OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

                                     0000    15 ;

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

                                     0000    17 ; NOTICE AND SHOULD NOT BE CONSTRUED  AS  A COMMITMENT BY DIGITAL

                                     0000    18 ; EQUIPMENT CORPORATION.

                                     0000    19 ;

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

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

                                     0000    22 ;

                                     0000    23 ; D. N. CUTLER 25-AUG-76

                                     0000    24 ;

                                     0000    25 ; MODIFIED BY:

                                     0000    26 ;

                                     0000    27 ; C. A. MONIA 23-JAN-1978

                                     0000    28 ;

                                     0000    29 ;	01 - MODIFIED FOR STAND-ALONE DSC SYSTEM

                                     0000    30 ;

                                     0000    31 ;

                                     0000    32 ; SYSTEM SERVICE ASSIGN I/O CHANNEL

                                     0000    33 ;

                                     0000    34 ; MACRO LIBRARY CALLS

                                     0000    35 ;

                                     0000    36  

                                     0000    37 	$CCBDEF				;DEFINE CCB OFFSETS

                                     0000    38 	$IODEF				;DEFINE I/O FUNCTION CODES

                                     0000    39 	$LOGDEF				;DEFINE LOG OFFSETS

                                     0000    40 	$PCBDEF				;DEFINE PCB OFFSETS

                                     0000    41 	$PRDEF				;DEFINE PROCESSOR REGISTERS

                                     0000    42 	$PRVDEF				;DEFINE PRIVILEGE BITS

                                     0000    43 	$SSDEF				;DEFINE SYSTEM STATUS VALUES

                                     0000    44 	$UCBDEF				;DEFINE UCB OFFSETS

                                     0000    45  

                                     0000    46 ;

                                     0000    47 ; LOCAL SYMBOLS

                                     0000    48 ;

                                     0000    49 ; ARGUMENT LIST OFFSET DEFINITIONS

                                     0000    50 ;

                                     0000    51  

                           00000004  0000    52 DEVNAM=4				;ADDRESS OF DEVICE NAME STRING DESCRIPTOR

                           00000008  0000    53 CHAN=8					;ADDRESS TO STORE ASSIGNED CHANNEL NUMBER

                           0000000C  0000    54 ACMODE=12				;ACCESS MODE

                           00000010  0000    55 MBXNAM=16				;ADDRESS OF MAILBOX NAME STRING DESCRIPTOR

                                     0000    56  

                                     0000    57 ;

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              22-AUG-1978 00:19:14   VAX-11 MACRO X0.3-11               Page   2

01                                                                                                                               (1)



                                     0000    58 ; LOCAL DATA

                                     0000    59 ;

                                     0000    60  

                                 00000000    61 	.PSECT	Y$EXEPAGED

                                     0000    62 ;NETNAM:	.ASCII	/NET/			;NETWORK DEVICE NAME

                                     0000    63 ;NETEND:					;REFERENCE LABEL

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              22-AUG-1978 00:19:14   VAX-11 MACRO X0.3-11               Page   3

01              ASSIGN I/O CHANNEL                                                                                               (1)



                                     0000    65 	.SBTTL	ASSIGN I/O CHANNEL

                                     0000    66 ;+

                                     0000    67 ; EXE$ASSIGN - ASSIGN I/O CHANNEL

                                     0000    68 ;

                                     0000    69 ; THIS SERVICE PROVIDES THE CAPABILITY TO ASSIGN A DEVICE TO AN I/O CHANNEL

                                     0000    70 ; AND ESTABLISH NECESSARY DEVICE LINKAGE AND CONTROL INFORMATION IN THE

                                     0000    71 ; ASSOCIATED CHANNEL CONTROL BLOCK. OPTIONALLY A MAILBOX CAN ALSO BE

                                     0000    72 ; SPECIFIED WHICH WILL RECEIVE UNSOLICITED INPUT SENT TO THE ASSIGNED

                                     0000    73 ; DEVICE.

                                     0000    74 ;

                                     0000    75 ; INPUTS:

                                     0000    76 ;

                                     0000    77 ;	DEVNAM(AP) = ADDRESS OF DEVICE NAME STRING DESCRIPTOR.

                                     0000    78 ;	CHAN(AP) = ADDRESS TO STORE ASSIGNED CHANNEL NUMBER.

                                     0000    79 ;	ACMODE(AP) = ACCESS MODE CHANNEL IS TO BE ASSIGNED TO.

                                     0000    80 ;	MBXNAM(AP) = ADDRESS OF MAILBOX NAME STRING DESCRIPTOR (ZERO IMPLIES

                                     0000    81 ;		NONE).

                                     0000    82 ;

                                     0000    83 ;	R4 = CURRENT PROCESS PCB ADDRESS.

                                     0000    84 ;

                                     0000    85 ; OUTPUTS:

                                     0000    86 ;

                                     0000    87 ;	R0 LOW BIT CLEAR INDICATES FAILURE TO ASSIGN CHANNEL TO DEVICE.

                                     0000    88 ;

                                     0000    89 ;		R0 = SS$_ACCVIO - DEVICE NAME STRING, DEVICE NAME STRING

                                     0000    90 ;			DESCRIPTOR, MAILBOX NAME STRING, OR MAILBOX NAME

                                     0000    91 ;			STRING DESCRIPTOR CANNOT BE READ BY CALLING ACCESS

                                     0000    92 ;			MODE, OR CHANNEL NUMBER CANNOT BE WRITTEN BY CALLING

                                     0000    93 ;			ACCESS MODE.

                                     0000    94 ;

                                     0000    95 ;		R0 = SS$_DEVALLOC - DEVICE ALLOCATED TO ANOTHER PROCESS.

                                     0000    96 ;

                                     0000    97 ;		R0 = SS$_DEVNOTMBX - SPECIFIED MAILBOX DEVICE IS NOT A

                                     0000    98 ;			MAILBOX.

                                     0000    99 ;

                                     0000   100 ;		R0 = SS$_EXQUOTA - PROCESS HAS INSUFFICIENT BUFFER QUOTA TO

                                     0000   101 ;			ALLOCATE NETWORK UCB.

                                     0000   102 ;

                                     0000   103 ;		R0 = SS$_INSFMEM - SUFFICIENT SYSTEM DYNAMIC MEMORY DOES NOT

                                     0000   104 ;			EXIST TO ALLOCATE NETWORK UCB.

                                     0000   105 ;

                                     0000   106 ;		R0 = SS$_IVDEVNAM - DEVICE OR MAILBOX NAME STRING CONTAINS

                                     0000   107 ;			INVALID CHARACTERS, OR NO DEVICE NAME STRING

                                     0000   108 ;			DESCRIPTOR SPECIFIED.

                                     0000   109 ;

                                     0000   110 ;		R0 = SS$_IVLOGNAM - ZERO OR GREATER THAN MAXIMUM LENGTH

                                     0000   111 ;			DEVICE OR MAILBOX NAME STRING SPECIFIED.

                                     0000   112 ;

                                     0000   113 ;		R0 = SS$_NOIOCHAN - NO I/O CHANNEL IS AVAILABLE FOR ASSIGNMENT.

                                     0000   114 ;

                                     0000   115 ;		R0 = SS$_NOPRIV - PROCESS DOES NOT HAVE PRIVILEGE TO CREATE

                                     0000   116 ;			NETWORK UCB.

                                     0000   117 ;

                                     0000   118 ;		R0 = SS$_NOSUCHDEV - SPECIFIED DEVICE OR MAILBOX DOES NOT

                                     0000   119 ;			EXIST ON HOST SYSTEM.

                                     0000   120 ;

                                     0000   121 ;	R0 LOW BIT SET INDICATES SUCCESSFUL COMPLETION.

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              22-AUG-1978 00:19:14   VAX-11 MACRO X0.3-11               Page   4

01              ASSIGN I/O CHANNEL                                                                                               (1)



                                     0000   122 ;

                                     0000   123 ;		R0 = SS$_REMOTE - NORMAL COMPLETION, ASSIGNMENT COMPLETED

                                     0000   124 ;			ON REMOTE SYSTEM.

                                     0000   125 ;

                                     0000   126 ;		R0 = SS$_NORMAL - NORMAL COMPLETION, ASSIGNMENT COMPLETED

                                     0000   127 ;			ON HOST SYSTEM.

                                     0000   128 ;-

                                     0000   129  

                               0FFC' 0000   130 	.ENTRY	EXE$ASSIGN,^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>

            5B         08 AC     D0  0002   131 	MOVL	CHAN(AP),R11		;GET ADDRESS TO STORE CHANNEL NUMBER

                                     0006   132 	IFNOWRT	#2,(R11),30$		;CAN CHANNEL NUMBER BE WRITTEN?

                          6B     B4  000C   133 	CLRW	(R11)			;CLEAR CHANNEL NUMBER IN CASE OF ERROR

            5A         10 AC     D0  000E   134 	MOVL	MBXNAM(AP),R10		;GET ADDRESS OF MAILBOX NAME DESCRIPTOR

                          0C     13  0012   135 	BEQL	10$			;IF EQL NO MAILBOX SPECIFIED

                                     0014   136 	IFNORD	#8,(R10),30$		;CAN MAILBOX DESCRIPTOR BE READ?

            7E            6A     7D  001A   137 	MOVQ	(R10),-(SP)		;COPY MAILBOX NAME DESCRIPTOR

            5A            5E     D0  001D   138 	MOVL	SP,R10			;SET ADDRESS OF MAILBOX NAME DESCRIPTOR

            50       0144 8F     3C  0020   139 10$:	MOVZWL	#SS$_IVDEVNAM,R0	;SET INVALID DEVICE NAME STATUS

            59         04 AC     D0  0025   140 	MOVL	DEVNAM(AP),R9		;GET ADDRESS OF DEVICE NAME DESCRIPTOR

                          18     13  0029   141 	BEQL	20$			;IF EQL NO DEVICE SPECIFIED

                                     002B   142 	IFNORD	#8,(R9),30$		;CAN DEVICE NAME DESCRIPTOR BE READ?

            02            00     EF  0031   143 	EXTZV	#0,#2,ACMODE(AP),R0	;GET SPECIFIED ACCESS MODE

            50         0C AC         0034       

                          FFC6'  30  0037   144 	BSBW	EXE$MAXACMODE		;MAXIMIZE ACCESS MODE

            58            50     D0  003A   145 	MOVL	R0,R8			;SAVE MAXIMIZED ACCESS MODE

                          FFC0'  30  003D   146 	BSBW	IOC$FFCHAN		;FIND FREE I/O CHANNEL

            05            50     E8  0040   147 	BLBS	R0,FREECHAN		;IF LBS FREE I/O CHANNEL FOUND

                                 04  0043   148 20$:	RET				;

            50            0C     3C  0044   149 30$:	MOVZWL	#SS$_ACCVIO,R0		;SET ACCESS VIOLATION STATUS

                                 04  0047   150 	RET				;

                                     0048   151  

                                     0048   152 ;

                                     0048   153 ; FREE CHANNEL FOUND

                                     0048   154 ;

                                     0048   155  

                                     0048   156 	.ENABL	LSB

                                     0048   157 FREECHAN:				;FREE CHANNEL FOUND

            57            51     D0  0048   158 	MOVL	R1,R7			;SAVE CHANNEL INDEX

                          FFB2'  30  004B   159 	BSBW	SCH$IOLOCKW		;LOCK I/O DATA BASE FOR WRITE ACCESS

                          0080   30  004E   160 	BSBW	TEST_MAILBOX		;TEST IF MAILBOX SPECIFIED

            35            50     E9  0051   161 	BLBC	R0,30$			;IF LBC SEARCH FAILURE

            51            59     D0  0054   162 	MOVL	R9,R1			;SET ADDRESS OF DEVICE NAME DESCRIPTOR

                          FFA6'  30  0057   163 	BSBW	IOC$SEARCHDEV		;SEARCH FOR DEVICE

            2E            50     E9  005A   164 	BLBC	R0,40$			;IF LBC SEARCH FAILURE

                                     005D   165  

                                     005D   166 ;

                                     005D   167 ; DEVICE FOUND

                                     005D   168 ;

                                     005D   169  

            55            51     D0  005D   170 	MOVL	R1,R5			;SAVE ADDRESS OF DEVICE UCB

         34 A5            00'    E0  0060   171 	BBS	S^#DEV$V_SPL,UCB$L_DEVCHAR(R5),80$ ;IF SET, SPOOLED DEVICE

                          4F         0064       

                                     0065   172 ;	CMPL	#NET$UCB0,R5		;ASSIGNING TO NETWORK DEVICE?

                                     0065   173 ;	BEQL	NETWORK			;IF EQL YES

                                     0065   174  

                                     0065   175 ;

                                     0065   176 ; LOCAL ASSIGNMENT

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              22-AUG-1978 00:19:14   VAX-11 MACRO X0.3-11               Page   5

01              ASSIGN I/O CHANNEL                                                                                               (1)



                                     0065   177 ;

                                     0065   178  

                                     0065   179 LOCAL:					;LOCAL ASSIGNMENT

            50         28 A5     D0  0065   180 	MOVL	UCB$L_PID(R5),R0	;GET PROCESS ID OF OWNER

                          27     13  0069   181 	BEQL	50$			;IF EQL DEVICE NOT ALLOCATED

            51            54     D0  006B   182 	MOVL	R4,R1			;COPY PROCESS PCB ADDRESS

         60 A1            50     D1  006E   183 10$:	CMPL	R0,PCB$L_PID(R1)	;PROCESS ID MATCH?

                          28     13  0072   184 	BEQL	70$			;IF EQL YES

            51         1C A1     3C  0074   185 	MOVZWL	PCB$L_OWNER(R1),R1	;GET CREATOR PROCESS INDEX

                          0A     13  0078   186 	BEQL	20$			;IF EQL NO CREATOR

            51   00000000'EF41   D0  007A   187 	MOVL	L^SCH$AL_PCB[R1],R1	;GET ADDRESS OF CREATOR PCB

                          EA     11  0082   188 	BRB	10$			;

            50       0840 8F     3C  0084   189 20$:	MOVZWL	#SS$_DEVALLOC,R0	;SET DEVICE ALREADY ALLOCATED

                          42     11  0089   190 30$:	BRB	90$			;

                                     008B   191  

                                     008B   192 ;

                                     008B   193 ; DEVICE SEARCH FAILURE

                                     008B   194 ;

                                     008B   195  

            50       08F0 8F     B1  008B   196 40$:	CMPW	#SS$_NONLOCAL,R0	;REMOTE DEVICE?

                          3B     12  0090   197 	BNEQ	90$			;IF NEQ NO

                                     0092   198 ;	BRW	REMOTE			;

                                     0092   199  

                                     0092   200 ;

                                     0092   201 ; DEVICE NOT SPOOLED OR ALLOCATED

                                     0092   202 ;

                                     0092   203  

         34 A5            00'    E0  0092   204 50$:	BBS	S^#DEV$V_SHR,UCB$L_DEVCHAR(R5),70$ ;IF SET, DEVICE SHAREABLE

                          05         0096       

                                     0097   205  

                                     0097   206 ;

                                     0097   207 ; NONSHAREABLE DEVICE - PERFORM IMPLICIT ALLOCATION

                                     0097   208 ;

                                     0097   209  

         28 A5         60 A4     D0  0097   210 60$:	MOVL	PCB$L_PID(R4),UCB$L_PID(R5) ;SET CURRENT PROCESS AS OWNER

                                     009C   211  

                                     009C   212 ;

                                     009C   213 ; ASSOCIATE MAILBOX IF:

                                     009C   214 ;

                                     009C   215 ;	1. NOT FILE DEVICE

                                     009C   216 ;	2. NOT SHAREABLE DEVICE

                                     009C   217 ;	3. MAILBOX NOT ALREADY ASSOCIATED

                                     009C   218 ;	4. MAILBOX IS SPECIFIED

                                     009C   219 ;

                                     009C   220  

         34 A5            00'    E0  009C   221 70$:	BBS	S^#DEV$V_FOD,UCB$L_DEVCHAR(R5),80$ ;IF SET, FILE DEVICE

                          13         00A0       

         34 A5            00'    E0  00A1   222 	BBS	S^#DEV$V_SHR,UCB$L_DEVCHAR(R5),80$ ;IF SET, SHARED DEVICE

                          0E         00A5       

                       54 A5     D5  00A6   223 	TSTL	UCB$L_AMB(R5)		;ALREADY ASSOCIATED MAILBOX?

                          09     12  00A9   224 	BNEQ	80$			;IF NEQ YES

         54 A5            56     D0  00AB   225 	MOVL	R6,UCB$L_AMB(R5)	;SET ASSOCIATED MAILBOX UCB ADDRESS

                          03     13  00AF   226 	BEQL	80$			;IF EQL NONE SPECIFIED

                       50 A6     B6  00B1   227 	INCW	UCB$W_REFC(R6)		;INCREMENT MAILBOX UCB REFERENCE COUNT

            50   00000000'FF47   9E  00B4   228 80$:	MOVAB	@CTL$GL_CCBBASE[R7],R0	;COMPUTE BASE OF CCB

            60            55     D0  00BC   229 	MOVL	R5,CCB$L_UCB(R0)	;STORE UCB ADDRESS IN CCB

                       50 A5     B6  00BF   230 	INCW	UCB$W_REFC(R5)		;INCREMENT UCB REFERENCE COUNT

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              22-AUG-1978 00:19:14   VAX-11 MACRO X0.3-11               Page   6

01              ASSIGN I/O CHANNEL                                                                                               (1)



            58            01     81  00C2   231 	ADDB3	#1,R8,CCB$B_AMOD(R0)	;STORE ACCESS MODE OF CHANNEL

                       09 A0         00C5       

            6B            57     AE  00C7   232 	MNEGW	R7,(R11)		;STORE ASSIGNED CHANNEL NUMBER

            50            01     3C  00CA   233 	MOVZWL	#SS$_NORMAL,R0		;SET NORMAL COMPLETION STATUS

                          FF30'  31  00CD   234 90$:	BRW	IOC$UNLOCK		;UNLOCK I/O DATA BASE AND RETURN

                                     00D0   235  

                                     00D0   236 ;

                                     00D0   237 ; NETWORK ASSIGNMENT

                                     00D0   238 ;

                                     00D0   239  

                                     00D0   240 ;NETWORK:				;

                                     00D0   241 ;	BSBW	SCH$IOUNLOCK		;UNLOCK I/O DATA BASE

                                     00D0   242 ;	MOVZWL	#SS$_NOPRIV,R0		;ASSUME PROCESS DOES NOT HAVE PRIVILEGE

                                     00D0   243 ;	IFNPRIV	NETMBX,100$		;CAN PROCESS CREATE NETWORK DEVICE?

                                     00D0   244 ;	MOVZWL	#SS$_EXQUOTA,R0		;SET QUOTA EXCEEDED STATUS

                                     00D0   245 ;	ADDW3	#256,UCB$W_SIZE(R5),R1	;ADD IN BIAS *******TEMP*******

                                     00D0   246 ;	CMPW	R1,PCB$W_BYTCNT(R4)	;ENOUGH BYTES TO SATISFY REQUIREMENTS?

                                     00D0   247 ;	BGTRU	100$			;IF GTRU NO

                                     00D0   248 ;	BSBW	IOC$CREATE_UCB		;CREATE NETWORK UCB

                                     00D0   249 ;	BLBC	R0,100$			;IF LBC CREATION FAILURE

                                     00D0   250 ;	MOVL	R2,R5			;COPY ADDRESS OF CREATED UCB

                                     00D0   251 ;	BISW	#UCB$M_DELMBX,UCB$W_DEVSTS(R5) ;MARK NETWORK UCB FOR DELETE

                                     00D0   252 ;	MOVW	UCB$W_SIZE(R5),UCB$W_CHARGE(R5) ;SET BYTES CHARGED TO PROCESS

                                     00D0   253 ;	SUBW	UCB$W_SIZE(R5),PCB$W_BYTCNT(R4) ;REDUCE CURRENT BYTE COUNT

                                     00D0   254 ;	SUBW	UCB$W_SIZE(R5),PCB$W_BYTLM(R4) ;REDUCE BYTE COUNT LIMIT

                                     00D0   255 ;	BSBW	TEST_MAILBOX		;TEST IF MAILBOX SPECIFIED

                                     00D0   256 ;	DECW	UCB$W_REFC(R5)		;DECREMENT UCB REFERENCE COUNT

                                     00D0   257 ;	BLBS	R0,60$			;IF LBS NO FAILURE

                                     00D0   258 ;	PUSHL	R0			;SAVE STATUS VALUE

                                     00D0   259 ;	BSBW	IOC$DELMBX		;DELETE MAILBOX

                                     00D0   260 ;	POPL	R0			;RETRIEVE STATUS VALUE

                                     00D0   261 ;	BRB	90$			;

                                 04  00D0   262 100$:	RET				;

                                     00D1   263 	.DSABL	LSB

                                     00D1   264  

                                     00D1   265 ;

                                     00D1   266 ; REMOTE DEVICE SPECIFIED

                                     00D1   267 ;

                                     00D1   268  

                                     00D1   269 ;REMOTE:					;

                                     00D1   270 ;	BSBW	SCH$IOUNLOCK		;UNLOCK I/O DATA BASE

                                     00D1   271 ;	MOVL	R9,R1			;SET ADDRESS OF DEVICE NAME DESCRIPTOR

                                     00D1   272 ;	MOVZBL	#LOG$C_NAMLENGTH,R2	;GET MAXIMUM LENGTH OF LOGICAL NAME

                                     00D1   273 ;	SUBL	R2,SP			;ALLOCATE SPACE TO STORE TRANSLATED NAME

                                     00D1   274 ;	MOVL	SP,R3			;SET ADDRESS OF TRANSLATED NAME STORAGE

                                     00D1   275 ;	CLRL	R5			;CLEAR NAME TABLE SEARCH DISABLE MASK

                                     00D1   276 ;	BSBW	LOG$TRNSLOGNAME		;TRANSLATE LOGICAL NAME

                                     00D1   277 ;	SETIPL	#0			;ALLOW INTERRUPTS

                                     00D1   278 ;	BLBC	R0,30$			;IF LBC TRANSLATION FAILURE

                                     00D1   279 ;	PUSHAB	(SP)			;BUILD TRANSLATED NAME DESCRIPTOR

                                     00D1   280 ;	PUSHL	R1			;

                                     00D1   281 ;	CMPB	#^A/_/,8(SP)		;TRANSLATED NAME START WITH UNDERSCORE?

                                     00D1   282 ;	BNEQ	10$			;IF NEQ NO

                                     00D1   283 ;	DECL	(SP)			;DECREMENT LENGTH OF TRANSLATED NAME

                                     00D1   284 ;	INCL	4(SP)			;INCREMENT STARTING ADDRESS OF NAME

                                     00D1   285 ;10$:	MOVL	SP,R9			;SET ADDRESS OF TRANSLATED NAME DESCRIPTOR

                                     00D1   286 ;	PUSHAB	NETNAM			;BUILD NETWORK DEVICE NAME DESCRIPTOR

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              22-AUG-1978 00:19:14   VAX-11 MACRO X0.3-11               Page   7

01              ASSIGN I/O CHANNEL                                                                                               (1)



                                     00D1   287 ;	PUSHL	#NETEND-NETNAM		;

                                     00D1   288 ;	MOVL	SP,R6			;SAVE ADDRESS OF NAME STRING DESCRIPTOR

                                     00D1   289 ;	MOVAL	-(SP),R7		;ALLOCATE SPACE TO STORE CHANNEL NUMBER

                                     00D1   290 ;	$ASSIGN_S (R6),(R7),R8,(R10)	;ASSIGN CHANNEL TO NETWORK

                                     00D1   291 ;	BLBC	R0,30$			;IF LBC ASSIGNMENT FAILURE

                                     00D1   292 ;	$QIO_S	#31,(R7),#IO$_ACCESS,(R6),,,,R9 ;CONNECT TO NETWORK

                                     00D1   293 ;	BLBC	R0,40$			;IF LBC SERVICE FAILURE

                                     00D1   294 ;20$:	$WAITFR_S #31			;WAIT FOR CONNECT TO COMPLETE

                                     00D1   295 ;	$CLREF_S #31			;CLEAR EVENT FLAG

                                     00D1   296 ;	MOVZWL	(R6),R0			;GET I/O COMPLETION CODE

                                     00D1   297 ;	BEQL	20$			;IF EQL I/O NOT FINISHED

                                     00D1   298 ;	BLBC	R0,40$			;IF LBC CONNECT FAILURE

                                     00D1   299 ;	MOVW	(R7),(R11)		;STORE ASSIGNED DEVICE CHANNEL NUMBER

                                     00D1   300 ;	MOVZWL	#SS$_REMOTE,R0		;SET COMPLETION STATUS

                                     00D1   301 ;30$:	RET				;

                                     00D1   302 ;40$:	PUSHL	R0			;SAVE FINAL STATUS

                                     00D1   303 ;	$DASSGN_S (R7)			;DEASSIGN CHANNEL

                                     00D1   304 ;	POPL	R0			;RETRIEVE FINAL STATUS

                                     00D1   305 ;	RET				;

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              22-AUG-1978 00:19:14   VAX-11 MACRO X0.3-11               Page   8

01              TEST IF MAILBOX SPECIFIED                                                                                        (1)



                                     00D1   307 	.SBTTL	TEST IF MAILBOX SPECIFIED

                                     00D1   308 ;

                                     00D1   309 ; SUBROUTINE TO TEST IF A MAILBOX IS SPECIFIED

                                     00D1   310 ;

                                     00D1   311  

                                     00D1   312 TEST_MAILBOX:				;

            56            5A     D0  00D1   313 	MOVL	R10,R6			;SET ADDRESS OF MAILBOX NAME DESCRIPTOR

                          1B     13  00D4   314 	BEQL	10$			;IF EQL NO NAME SPECIFIED

            51            56     D0  00D6   315 	MOVL	R6,R1			;COPY ADDRESS OF MAILBOX NAME DESCRIPTOR

                          FF24'  30  00D9   316 	BSBW	IOC$SEARCHDEV		;SEARCH FOR DEVICE

            15            50     E9  00DC   317 	BLBC	R0,20$			;IF LBC SEARCH ERROR

            50       0074 8F     3C  00DF   318 	MOVZWL	#SS$_DEVNOTMBX,R0	;SET DEVICE NOT MAILBOX STATUS

         34 A1            00'    E1  00E4   319 	BBC	S^#DEV$V_MBX,UCB$L_DEVCHAR(R1),20$ ;IF CLR, DEVICE NOT MAILBOX

                          0B         00E8       

         34 A1            00'    E0  00E9   320 	BBS	S^#DEV$V_NET,UCB$L_DEVCHAR(R1),20$ ;IF SET, NETWORK DEVICE

                          06         00ED       

            56            51     D0  00EE   321 	MOVL	R1,R6			;SAVE ADDRESS OF MAILBOX UCB

            50            01     3C  00F1   322 10$:	MOVZWL	#SS$_NORMAL,R0		;SET NORMAL COMPLETION STATUS

                                 05  00F4   323 20$:	RSB				;

                                     00F5   324  

                                     00F5   325 	.END

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              22-AUG-1978 00:19:14   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



ACMODE         = 0000000C            IO$M_TIMED     = 00000080            IO$_READHEAD   = 0000000E            

BIT...         = 00000000            IO$M_TRMNOECHO = 00001000            IO$_READLBLK   = 00000021            

CCB$B_AMOD       00000009            IO$M_WRTATTN   = 00000100            IO$_READPBLK   = 0000000C            

CCB$B_STS        00000008            IO$S_FCODE     = 00000006            IO$_READPRESET = 00000019            

CCB$C_LENGTH     00000010            IO$V_ABORT     = 00000008            IO$_READPROMPT = 00000037            

CCB$K_LENGTH     00000010            IO$V_ACCESS    = 00000006            IO$_READTRACKD = 00000010            

CCB$L_DIRP       0000000C            IO$V_ATTNAST   = 00000008            IO$_READVBLK   = 00000031            

CCB$L_UCB        00000000            IO$V_BINARY    = 00000006            IO$_RECAL      = 00000003            

CCB$L_WIND       00000004            IO$V_CANCTRLO  = 00000006            IO$_RELEASE    = 00000005            

CCB$W_IOC        0000000A            IO$V_COMMOD    = 00000006            IO$_RETCENTER  = 00000007            

CHAN           = 00000008            IO$V_CREATE    = 00000007            IO$_REWIND     = 00000024            

CTL$GL_CCBBASE   ********   X   03   IO$V_CTRLCAST  = 00000008            IO$_REWINDOFF  = 00000022            

DEV$V_FOD        ********   X   03   IO$V_CTRLYAST  = 00000007            IO$_SEARCH     = 00000009            

DEV$V_MBX        ********   X   03   IO$V_CVTLOW    = 00000008            IO$_SEEK       = 00000002            

DEV$V_NET        ********   X   03   IO$V_DATACHECK = 0000000E            IO$_SENSECHAR  = 0000001B            

DEV$V_SHR        ********   X   03   IO$V_DELETE    = 00000008            IO$_SENSEMODE  = 00000027            

DEV$V_SPL        ********   X   03   IO$V_DMOUNT    = 0000000A            IO$_SETCHAR    = 0000001A            

DEVNAM         = 00000004            IO$V_DSABLMBX  = 0000000A            IO$_SETMODE    = 00000023            

EXE$ASSIGN       00000000 RG    03   IO$V_ENABLMBX  = 00000007            IO$_SKIPFILE   = 00000025            

EXE$MAXACMODE    ********   X   03   IO$V_FCODE     = 00000000            IO$_SKIPRECORD = 00000026            

FREECHAN         00000048 R     03   IO$V_HANGUP    = 00000009            IO$_SPACEFILE  = 00000002            

GBL...         = 00000000            IO$V_INHERLOG  = 0000000B            IO$_SPACERECORD= 00000009            

IO$M_ABORT     = 00000100            IO$V_INHEXTGAP = 0000000C            IO$_STARTSPNDL = 00000019            

IO$M_ACCESS    = 00000040            IO$V_INHRETRY  = 0000000F            IO$_UNLOAD     = 00000001            

IO$M_ATTNAST   = 00000100            IO$V_INHSEEK   = 0000000C            IO$_VIRTUAL    = 0000003F            

IO$M_BINARY    = 00000040            IO$V_INTERRUPT = 00000006            IO$_WRITECHECK = 0000000A            

IO$M_CANCTRLO  = 00000040            IO$V_MOUNT     = 00000009            IO$_WRITECHECKH= 00000018            

IO$M_COMMOD    = 00000040            IO$V_NOECHO    = 00000006            IO$_WRITEHEAD  = 0000000D            

IO$M_CREATE    = 00000080            IO$V_NOFILTR   = 00000009            IO$_WRITELBLK  = 00000020            

IO$M_CTRLCAST  = 00000100            IO$V_NOFORMAT  = 00000008            IO$_WRITEMARK  = 0000001C            

IO$M_CTRLYAST  = 00000080            IO$V_NOW       = 00000006            IO$_WRITEOF    = 00000028            

IO$M_CVTLOW    = 00000100            IO$V_NOWAIT    = 00000007            IO$_WRITEPBLK  = 0000000B            

IO$M_DATACHECK = 00004000            IO$V_PACKED    = 00000007            IO$_WRITETRACKD= 0000000F            

IO$M_DELETE    = 00000100            IO$V_PURGE     = 0000000B            IO$_WRITEVBLK  = 00000030            

IO$M_DMOUNT    = 00000400            IO$V_READATTN  = 00000007            IOC$FFCHAN       ********   X   03   

IO$M_DSABLMBX  = 00000400            IO$V_REVERSE   = 00000006            IOC$SEARCHDEV    ********   X   03   

IO$M_ENABLMBX  = 00000080            IO$V_SHUTDOWN  = 00000007            IOC$UNLOCK       ********   X   03   

IO$M_FCODE     = 0000003F            IO$V_STARTUP   = 00000006            LOCAL            00000065 R     03   

IO$M_HANGUP    = 00000200            IO$V_SYNCH     = 00000009            LOG$B_AMOD       0000000E            

IO$M_INHERLOG  = 00000800            IO$V_TIMED     = 00000007            LOG$B_TABLE      0000000B            

IO$M_INHEXTGAP = 00001000            IO$V_TRMNOECHO = 0000000C            LOG$B_TYPE       0000000A            

IO$M_INHRETRY  = 00008000            IO$V_WRTATTN   = 00000008            LOG$C_GROUP    = 00000001            

IO$M_INHSEEK   = 00001000            IO$_ACCESS     = 00000032            LOG$C_LENGTH     00000014            

IO$M_INTERRUPT = 00000040            IO$_ACPCONTROL = 00000038            LOG$C_NAMLENGTH= 00000040            

IO$M_MOUNT     = 00000200            IO$_CREATE     = 00000033            LOG$C_PROCESS  = 00000002            

IO$M_NOECHO    = 00000040            IO$_DEACCESS   = 00000034            LOG$C_SYSTEM   = 00000000            

IO$M_NOFILTR   = 00000200            IO$_DELETE     = 00000035            LOG$K_LENGTH     00000014            

IO$M_NOFORMAT  = 00000100            IO$_DIAGNOSE   = 0000001D            LOG$L_LTBL       00000004            

IO$M_NOW       = 00000040            IO$_DRVCLR     = 00000004            LOG$L_LTFL       00000000            

IO$M_NOWAIT    = 00000080            IO$_ERASETAPE  = 00000006            LOG$L_MBXUCB     00000010            

IO$M_PACKED    = 00000080            IO$_LOGICAL    = 0000002F            LOG$T_NAME       00000014            

IO$M_PURGE     = 00000800            IO$_MODIFY     = 00000036            LOG$W_GROUP      0000000C            

IO$M_READATTN  = 00000080            IO$_MOUNT      = 00000039            LOG$W_SIZE       00000008            

IO$M_REVERSE   = 00000040            IO$_NOP        = 00000000            MBXNAM         = 00000010            

IO$M_SHUTDOWN  = 00000080            IO$_OFFSET     = 00000006            PCB$B_ASTACT     0000000C            

IO$M_STARTUP   = 00000040            IO$_PACKACK    = 00000008            PCB$B_ASTEN      0000000D            

IO$M_SYNCH     = 00000200            IO$_PHYSICAL   = 0000001F            PCB$B_PRI        0000000B            

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              22-AUG-1978 00:19:14   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



PCB$B_PRIB       00000033            PCB$W_MTXCNT     0000000E            PRV$V_LOG_IO   = 00000007            

PCB$B_TYPE       0000000A            PCB$W_PPGCNT     0000003A            PRV$V_NETMBX   = 00000014            

PCB$B_WEFC       00000032            PCB$W_PRCCNT     0000006A            PRV$V_NOACNT   = 00000009            

PCB$C_LENGTH     0000007C            PCB$W_SIZE       00000008            PRV$V_OPER     = 00000012            

PCB$K_LENGTH     0000007C            PCB$W_STATE      00000030            PRV$V_PHY_IO   = 00000016            

PCB$L_ASTQBL     00000014            PCB$W_TMBU       00000036            PRV$V_PRMCEB   = 0000000A            

PCB$L_ASTQFL     00000010            PCB$W_TQCNT      0000004A            PRV$V_PRMGBL   = 00000018            

PCB$L_EFC2P      00000058            PR$_ACCR       = 00000029            PRV$V_PRMMBX   = 0000000B            

PCB$L_EFC3P      0000005C            PR$_ACCS       = 00000028            PRV$V_PSWAPM   = 0000000C            

PCB$L_EFCS       00000050            PR$_ASTLVL     = 00000013            PRV$V_SETPRI   = 0000000D            

PCB$L_EFCU       00000054            PR$_ESP        = 00000001            PRV$V_SETPRV   = 0000000E            

PCB$L_EFWM       0000004C            PR$_ICCS       = 00000018            PRV$V_SYSGBL   = 00000019            

PCB$L_OWNER      0000001C            PR$_ICR        = 0000001A            PRV$V_SYSNAM   = 00000002            

PCB$L_PHD        00000064            PR$_IPL        = 00000012            PRV$V_TMPMBX   = 0000000F            

PCB$L_PHYPCB     00000018            PR$_ISP        = 00000004            PRV$V_VOLPRO   = 00000015            

PCB$L_PID        00000060            PR$_KSP        = 00000000            PRV$V_WORLD    = 00000010            

PCB$L_PQB        0000004C            PR$_MAPEN      = 00000038            SCH$AL_PCB       ********   X   03   

PCB$L_SQBL       00000004            PR$_NICR       = 00000019            SCH$IOLOCKW      ********   X   03   

PCB$L_SQFL       00000000            PR$_P0BR       = 00000008            SS$_ABORT      = 0000002C            

PCB$L_STS        00000028            PR$_P0LR       = 00000009            SS$_ACCONFLICT = 00000800            

PCB$L_UIC        00000020            PR$_P1BR       = 0000000A            SS$_ACCVIO     = 0000000C            

PCB$L_WSSWP      00000024            PR$_P1LR       = 0000000B            SS$_ARITH      = 00000404            

PCB$L_WTIME      0000002C            PR$_PCBB       = 00000010            SS$_ASTFLT     = 0000040C            

PCB$T_LNAME      0000006C            PR$_RXCS       = 00000020            SS$_BADATTRIB  = 00000034            

PCB$V_ASTPEN   = 00000011            PR$_RXDB       = 00000021            SS$_BADCHKSUM  = 00000808            

PCB$V_BATCH    = 0000000E            PR$_SBIER      = 00000034            SS$_BADESCAPE  = 0000003C            

PCB$V_DELPEN   = 00000001            PR$_SBIFS      = 00000030            SS$_BADFILEHDR = 00000810            

PCB$V_FORCPEN  = 00000002            PR$_SBIMT      = 00000033            SS$_BADFILENAME= 00000818            

PCB$V_HIBER    = 00000013            PR$_SBIQC      = 00000036            SS$_BADFILEVER = 00000820            

PCB$V_INQUAN   = 00000003            PR$_SBIS       = 00000031            SS$_BADIMGHDR  = 00000044            

PCB$V_LOGIN    = 00000014            PR$_SBISC      = 00000032            SS$_BADIRECTORY= 00000828            

PCB$V_NOACNT   = 0000000F            PR$_SBITA      = 00000035            SS$_BADPARAM   = 00000014            

PCB$V_PHDRES   = 00000012            PR$_SBR        = 0000000C            SS$_BADSTACK   = 000002B4            

PCB$V_PSWAPM   = 00000004            PR$_SCBB       = 00000011            SS$_BEGOFFILE  = 00000938            

PCB$V_RES      = 00000000            PR$_SID        = 0000003E            SS$_BLOCKCNTERR= 00000940            

PCB$V_RESPEN   = 00000005            PR$_SIRR       = 00000014            SS$_BREAK      = 00000414            

PCB$V_SSFEXC   = 00000006            PR$_SISR       = 00000015            SS$_BUFFEROVF  = 00000601            

PCB$V_SSFEXCE  = 00000007            PR$_SLR        = 0000000D            SS$_BUGCHECK   = 000002A4            

PCB$V_SSFEXCS  = 00000008            PR$_SSP        = 00000002            SS$_CANCEL     = 00000830            

PCB$V_SSFEXCU  = 00000009            PR$_TBIA       = 00000039            SS$_CHANINTLK  = 0000004C            

PCB$V_SSRWAIT  = 0000000A            PR$_TBIS       = 0000003A            SS$_CLIFRCEXT  = 00000980            

PCB$V_SUSPEN   = 0000000B            PR$_TODR       = 0000001B            SS$_CMODSUPR   = 0000041C            

PCB$V_SWPVBN   = 00000010            PR$_TXCS       = 00000022            SS$_CMODUSER   = 00000424            

PCB$V_WAKEPEN  = 0000000C            PR$_TXDB       = 00000023            SS$_COMPAT     = 0000042C            

PCB$V_WALL     = 0000000D            PR$_USP        = 00000003            SS$_CONTINUE   = 00000001            

PCB$W_APTCNT     00000034            PR$_WCSA       = 0000002C            SS$_CONTROLC   = 00000651            

PCB$W_ASTCNT     0000003C            PR$_WCSD       = 0000002D            SS$_CONTROLO   = 00000609            

PCB$W_BIOCNT     0000003E            PRV$V_ALLSPOOL = 00000004            SS$_CONTROLY   = 00000611            

PCB$W_BIOLM      00000040            PRV$V_BUGCHK   = 00000017            SS$_CREATED    = 00000619            

PCB$W_BYTCNT     00000042            PRV$V_CMEXEC   = 00000001            SS$_CTRLERR    = 00000054            

PCB$W_BYTLM      00000068            PRV$V_CMKRNL   = 00000000            SS$_DATACHECK  = 0000005C            

PCB$W_DIOCNT     00000044            PRV$V_DETACH   = 00000005            SS$_DATAOVERUN = 00000838            

PCB$W_DIOLM      00000046            PRV$V_DEVCHAR  = 00000011            SS$_DEBUG      = 0000046C            

PCB$W_FILCNT     00000048            PRV$V_DIAGNOSE = 00000006            SS$_DEVACTIVE  = 000002C4            

PCB$W_GPGCNT     00000038            PRV$V_EXQUOTA  = 00000013            SS$_DEVALLOC   = 00000840            

PCB$W_GRP        00000022            PRV$V_GROUP    = 00000008            SS$_DEVALRALLOC= 00000641            

PCB$W_MEM        00000020            PRV$V_GRPNAM   = 00000003            SS$_DEVASSIGN  = 00000848            

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              22-AUG-1978 00:19:14   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (1)



SS$_DEVFOREIGN = 00000064            SS$_IVLOGNAM   = 00000154            SS$_ROPRAND    = 00000454            

SS$_DEVICEFULL = 00000850            SS$_IVLOGTAB   = 0000015C            SS$_SECTBLFUL  = 0000021C            

SS$_DEVMOUNT   = 0000006C            SS$_IVPROTECT  = 000002F4            SS$_SSFAIL     = 0000045C            

SS$_DEVNOTALLOC= 00000858            SS$_IVQUOTAL   = 00000164            SS$_SUPERSEDE  = 00000631            

SS$_DEVNOTMBX  = 00000074            SS$_IVSECFLG   = 0000016C            SS$_TAPEPOSLOST= 00000224            

SS$_DEVNOTMOUNT= 0000007C            SS$_IVSECIDCTL = 000002E4            SS$_TBIT       = 00000464            

SS$_DEVOFFLINE = 00000084            SS$_IVSSRQ     = 00000174            SS$_TIMEOUT    = 0000022C            

SS$_DIRFULL    = 00000860            SS$_IVSTSFLG   = 0000017C            SS$_TOOMANYVER = 00000990            

SS$_DRVERR     = 0000008C            SS$_IVTIME     = 00000184            SS$_TOOMUCHDATA= 0000029C            

SS$_DUPFILENAME= 00000868            SS$_LENVIO     = 0000018C            SS$_UNASEFC    = 00000234            

SS$_DUPLNAM    = 00000094            SS$_LKWSETFUL  = 00000194            SS$_UNSAFE     = 0000023C            

SS$_ENDOFFILE  = 00000870            SS$_MBFULL     = 000008D8            SS$_UNWIND     = 00000920            

SS$_ENDOFTAPE  = 00000878            SS$_MBTOOSML   = 0000019C            SS$_UNWINDING  = 00000928            

SS$_ENDOFUSRLBL= 00000970            SS$_MCHECK     = 000002BC            SS$_VASFULL    = 00000244            

SS$_EXQUOTA    = 0000001C            SS$_MEDOFL     = 000001A4            SS$_VECINUSE   = 0000024C            

SS$_EXTIDXFILE = 00000880            SS$_MSGNOTFND  = 00000621            SS$_VOLINV     = 00000254            

SS$_FCPREADERR = 00000888            SS$_MUSTCLOSEFL= 00000948            SS$_WAITUSRLBL = 00000950            

SS$_FCPREPSTN  = 00000988            SS$_NODATA     = 000001AC            SS$_WASCLR     = 00000001            

SS$_FCPREWNDERR= 00000890            SS$_NOHANDLER  = 000008F8            SS$_WASECC     = 00000639            

SS$_FCPSPACERR = 00000898            SS$_NOHOMEBLK  = 000008E0            SS$_WASSET     = 00000009            

SS$_FCPWRITERR = 000008A0            SS$_NOIOCHAN   = 000001B4            SS$_WRITLCK    = 0000025C            

SS$_FILACCERR  = 0000009C            SS$_NOLINKS    = 0000027C            TEST_MAILBOX     000000D1 R     03   

SS$_FILALRACC  = 000000A4            SS$_NOLOGNAM   = 000001BC            UCB$B_AMOD       00000053            

SS$_FILELOCKED = 000008A8            SS$_NOMBX      = 00000274            UCB$B_CEX        00000077            

SS$_FILENUMCHK = 000008B0            SS$_NOMOREFILES= 00000930            UCB$B_CM1        0000004A            

SS$_FILESEQCHK = 000008B8            SS$_NONEXDRV   = 000001C4            UCB$B_CM2        0000004B            

SS$_FILESTRUCT = 000008C0            SS$_NONEXPR    = 000008E8            UCB$B_DEVCLASS   00000038            

SS$_FILNOTACC  = 000000AC            SS$_NONLOCAL   = 000008F0            UCB$B_DEVTYPE    00000039            

SS$_FILNOTCNTG = 000002AC            SS$_NOPRIV     = 00000024            UCB$B_DIPL       00000052            

SS$_FILNOTEXP  = 000000B4            SS$_NORMAL     = 00000001            UCB$B_DX_SCTCNT  FFFFFFFE            

SS$_FORMAT     = 000000BC            SS$_NOSIGNAL   = 00000900            UCB$B_DX_SPARE   FFFFFFFF            

SS$_GPTFULL    = 000000C4            SS$_NOSOLICIT  = 00000284            UCB$B_ERTCNT     00000070            

SS$_GSDFULL    = 000000CC            SS$_NOSUCHDEV  = 00000908            UCB$B_ERTMAX     00000071            

SS$_GSDNOTXXX  = 000000D4            SS$_NOSUCHFILE = 00000910            UCB$B_ESCAPE     0000004B            

SS$_HANGUP     = 000002CC            SS$_NOSUCHNODE = 0000028C            UCB$B_FEX        00000076            

SS$_HEADERFULL = 000008C8            SS$_NOSUCHSEC  = 00000978            UCB$B_FIPL       0000000B            

SS$_IDXFILEFULL= 000008D0            SS$_NOTAPEOP   = 00000264            UCB$B_LOCSRV     0000003C            

SS$_ILLBLKNUM  = 000000DC            SS$_NOTFILEDEV = 000001CC            UCB$B_OFFNDX     00000090            

SS$_ILLCNTRFUNC= 000000E4            SS$_NOTINTBLSZ = 000001D4            UCB$B_OFFRTC     00000091            

SS$_ILLEFC     = 000000EC            SS$_NOTLABELMT = 000001DC            UCB$B_REMSRV     0000003D            

SS$_ILLIOFUNC  = 000000F4            SS$_NOTNETDEV  = 000002EC            UCB$B_SECTORS    0000003C            

SS$_ILLLBLAST  = 00000968            SS$_NOTRAN     = 00000629            UCB$B_SLAVE      00000074            

SS$_ILLPAGCNT  = 000000FC            SS$_NOTSQDEV   = 000001E4            UCB$B_SPR        00000075            

SS$_ILLSEQOP   = 000002DC            SS$_OPCCUS     = 00000434            UCB$B_STATE      00000052            

SS$_ILLSER     = 00000104            SS$_OPCDEC     = 0000043C            UCB$B_TRACKS     0000003D            

SS$_ILLUSRLBLRD= 00000958            SS$_OPINCOMPL  = 000002D4            UCB$B_TYPE       0000000A            

SS$_ILLUSRLBLWT= 00000960            SS$_PAGOWNVIO  = 000001EC            UCB$B_VERTSZ     0000003F            

SS$_INCVOLLABEL= 0000010C            SS$_PAGRDERR   = 00000444            UCB$C_LENGTH     00000074            

SS$_INSFARG    = 00000114            SS$_PARITY     = 000001F4            UCB$C_LOGLNK   = 00000001            

SS$_INSFMEM    = 00000124            SS$_PARTESCAPE = 000001FC            UCB$K_LENGTH     00000074            

SS$_INSFRAME   = 0000012C            SS$_PFMBSY     = 00000204            UCB$L_AMB        00000054            

SS$_INSFWSL    = 0000011C            SS$_PSTFULL    = 0000020C            UCB$L_ASTQBL     00000010            

SS$_IVADDR     = 00000134            SS$_RADRMOD    = 0000044C            UCB$L_ASTQFL     0000000C            

SS$_IVCHAN     = 0000013C            SS$_REJECT     = 00000294            UCB$L_CPID       0000005C            

SS$_IVCHNLSEC  = 0000026C            SS$_REMOTE     = 00000649            UCB$L_CRB        00000020            

SS$_IVDEVNAM   = 00000144            SS$_RESIGNAL   = 00000918            UCB$L_DDB        00000024            

SS$_IVGSDNAM   = 0000014C            SS$_RESULTOVF  = 00000214            UCB$L_DEVCHAR    00000034            

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              22-AUG-1978 00:19:14   VAX-11 MACRO X0.3-11               Page  12

SYMBOL TABLE                                                                                                                     (1)



UCB$L_DEVDEPEND  0000003C            UCB$S_LNKPRI   = 00000002            UCB$W_REFC       00000050            

UCB$L_DPC        0000007C            UCB$S_LTYPE    = 00000002            UCB$W_SIZE       00000008            

UCB$L_DUETIM     0000005C            UCB$T_PARTNER    0000000C            UCB$W_SRCADDR    0000001A            

UCB$L_DX_BFPNT   FFFFFFF4            UCB$V_BACKP    = 00000005            UCB$W_STS        00000058            

UCB$L_DX_BUF     FFFFFFF0            UCB$V_BSY      = 00000008            UCB$W_UNIT       00000048            

UCB$L_DX_RXDB    FFFFFFF8            UCB$V_CANCEL   = 00000003            UCB$W_VPROT      0000001A            

UCB$L_EMB        00000078            UCB$V_DEADMO   = 0000000A            

UCB$L_FIRST      00000014            UCB$V_DELMBX   = 00000001            

UCB$L_FPC        0000000C            UCB$V_DIAGBUF  = 00000001            

UCB$L_FQBL       00000004            UCB$V_DX_WRITE = 00000003            

UCB$L_FQFL       00000000            UCB$V_ECC      = 00000000            

UCB$L_FR3        00000010            UCB$V_ERLOGIP  = 00000002            

UCB$L_FR4        00000014            UCB$V_INT      = 00000001            

UCB$L_IOQBL      00000044            UCB$V_INTTYPE  = 00000007            

UCB$L_IOQFL      00000040            UCB$V_JOB      = 00000000            

UCB$L_IRP        0000004C            UCB$V_LNKPRI   = 00000006            

UCB$L_LINK       0000002C            UCB$V_LTYPE    = 00000000            

UCB$L_LOGADR     00000064            UCB$V_MOUNTING = 00000009            

UCB$L_MAXBLOCK   00000080            UCB$V_MSGACK   = 00000004            

UCB$L_MEDIA      00000088            UCB$V_MSGFLO   = 00000003            

UCB$L_NT_DATSSB  00000074            UCB$V_NOCNVRT  = 00000002            

UCB$L_NT_INTSSB  00000078            UCB$V_NT_BFROVF= 00000002            

UCB$L_OPCNT      00000060            UCB$V_NT_BREAK = 00000005            

UCB$L_OWNUIC     0000001C            UCB$V_NT_NAME  = 00000004            

UCB$L_PID        00000028            UCB$V_NT_NONTR = 00000006            

UCB$L_RQBL       00000004            UCB$V_NT_SDP   = 00000003            

UCB$L_RQFL       00000000            UCB$V_ONLINE   = 00000004            

UCB$L_SVAPTE     00000068            UCB$V_POWER    = 00000005            

UCB$L_SVPN       00000064            UCB$V_PRMMBX   = 00000000            

UCB$L_TTCHAR     0000003C            UCB$V_SEGFLO   = 00000002            

UCB$L_VCB        00000030            UCB$V_TIM      = 00000000            

UCB$M_BSY      = 00000100            UCB$V_TIMOUT   = 00000006            

UCB$M_CANCEL   = 00000008            UCB$V_TT_NOTIF = 00000002            

UCB$M_DEADMO   = 00000400            UCB$V_TT_TIMO  = 00000001            

UCB$M_DELMBX   = 00000002            UCB$V_VALID    = 0000000B            

UCB$M_DIAGBUF  = 00000002            UCB$W_BCNT       0000006E            

UCB$M_DX_WRITE = 00000008            UCB$W_BCR        00000092            

UCB$M_ECC      = 00000001            UCB$W_BOFF       0000006C            

UCB$M_ERLOGIP  = 00000004            UCB$W_BUFQUO     00000018            

UCB$M_INT      = 00000002            UCB$W_BYTESTOGO  0000003E            

UCB$M_INTTYPE  = 00000080            UCB$W_CHARGE     0000004A            

UCB$M_JOB      = 00000001            UCB$W_CYLINDERS  0000003E            

UCB$M_MOUNTING = 00000200            UCB$W_DA         00000088            

UCB$M_NOCNVRT  = 00000004            UCB$W_DC         0000008A            

UCB$M_NT_BFROVF= 00000004            UCB$W_DEVBUFSIZ  0000003A            

UCB$M_NT_BREAK = 00000020            UCB$W_DEVSTS     0000005A            

UCB$M_NT_NAME  = 00000010            UCB$W_DSTADDR    00000018            

UCB$M_NT_NONTR = 00000040            UCB$W_DX_BCR     FFFFFFFC            

UCB$M_NT_SDP   = 00000008            UCB$W_EC1        0000008C            

UCB$M_ONLINE   = 00000010            UCB$W_EC2        0000008E            

UCB$M_POWER    = 00000020            UCB$W_ERRCNT     00000072            

UCB$M_PRMMBX   = 00000001            UCB$W_FUNC       00000084            

UCB$M_TIM      = 00000001            UCB$W_MB_SEED    FFFFFFFC            

UCB$M_TIMOUT   = 00000040            UCB$W_MSGCNT     00000016            

UCB$M_TT_NOTIF = 00000004            UCB$W_MSGMAX     00000014            

UCB$M_TT_TIMO  = 00000002            UCB$W_NT_CHAN    0000007C            

UCB$M_VALID    = 00000800            UCB$W_OFFSET     00000086            

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              22-AUG-1978 00:19:14   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$            FFFFFFFF      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

Y$EXEPAGED       000000F5      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

8996. BYTES LEFT IN FREE MEMORY POOL.

3336. BYTES OF RECLAIMED MEMORY.

OBJ$:SYSASSIGN,LIS$:SYSASSIGN/-SP=LIB$:LIB/ML,SRC$:SYSASSIGN

7 MLB DIR RDS - 932 GETS TO DEFINE 19 MACROS. 76 INTER. FILE WRITES. 

