SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              21-AUG-1978 20:19:08   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      58  ASSIGN I/O CHANNEL

   (1)     300  TEST IF MAILBOX SPECIFIED

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              21-AUG-1978 20:19:08   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 ; SYSTEM SERVICE ASSIGN I/O CHANNEL

                                     0000    26 ;

                                     0000    27 ; MACRO LIBRARY CALLS

                                     0000    28 ;

                                     0000    29  

                                     0000    30 	$CCBDEF				;DEFINE CCB OFFSETS

                                     0000    31 	$IODEF				;DEFINE I/O FUNCTION CODES

                                     0000    32 	$LOGDEF				;DEFINE LOG OFFSETS

                                     0000    33 	$PCBDEF				;DEFINE PCB OFFSETS

                                     0000    34 	$PRDEF				;DEFINE PROCESSOR REGISTERS

                                     0000    35 	$PRVDEF				;DEFINE PRIVILEGE BITS

                                     0000    36 	$SSDEF				;DEFINE SYSTEM STATUS VALUES

                                     0000    37 	$UCBDEF				;DEFINE UCB OFFSETS

                                     0000    38  

                                     0000    39 ;

                                     0000    40 ; LOCAL SYMBOLS

                                     0000    41 ;

                                     0000    42 ; ARGUMENT LIST OFFSET DEFINITIONS

                                     0000    43 ;

                                     0000    44  

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

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

                           0000000C  0000    47 ACMODE=12				;ACCESS MODE

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

                                     0000    49  

                                     0000    50 ;

                                     0000    51 ; LOCAL DATA

                                     0000    52 ;

                                     0000    53  

                                 00000000    54 	.PSECT	Y$EXEPAGED

                           54 45 4E  0000    55 NETNAM:	.ASCII	/NET/			;NETWORK DEVICE NAME

                                     0003    56 NETEND:					;REFERENCE LABEL

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              21-AUG-1978 20:19:08   VAX-11 MACRO X0.3-11               Page   2

01              ASSIGN I/O CHANNEL                                                                                               (1)



                                     0003    58 	.SBTTL	ASSIGN I/O CHANNEL

                                     0003    59 ;+

                                     0003    60 ; EXE$ASSIGN - ASSIGN I/O CHANNEL

                                     0003    61 ;

                                     0003    62 ; THIS SERVICE PROVIDES THE CAPABILITY TO ASSIGN A DEVICE TO AN I/O CHANNEL

                                     0003    63 ; AND ESTABLISH NECESSARY DEVICE LINKAGE AND CONTROL INFORMATION IN THE

                                     0003    64 ; ASSOCIATED CHANNEL CONTROL BLOCK. OPTIONALLY A MAILBOX CAN ALSO BE

                                     0003    65 ; SPECIFIED WHICH WILL RECEIVE UNSOLICITED INPUT SENT TO THE ASSIGNED

                                     0003    66 ; DEVICE.

                                     0003    67 ;

                                     0003    68 ; INPUTS:

                                     0003    69 ;

                                     0003    70 ;	DEVNAM(AP) = ADDRESS OF DEVICE NAME STRING DESCRIPTOR.

                                     0003    71 ;	CHAN(AP) = ADDRESS TO STORE ASSIGNED CHANNEL NUMBER.

                                     0003    72 ;	ACMODE(AP) = ACCESS MODE CHANNEL IS TO BE ASSIGNED TO.

                                     0003    73 ;	MBXNAM(AP) = ADDRESS OF MAILBOX NAME STRING DESCRIPTOR (ZERO IMPLIES

                                     0003    74 ;		NONE).

                                     0003    75 ;

                                     0003    76 ;	R4 = CURRENT PROCESS PCB ADDRESS.

                                     0003    77 ;

                                     0003    78 ; OUTPUTS:

                                     0003    79 ;

                                     0003    80 ;	R0 LOW BIT CLEAR INDICATES FAILURE TO ASSIGN CHANNEL TO DEVICE.

                                     0003    81 ;

                                     0003    82 ;		R0 = SS$_ACCVIO - DEVICE NAME STRING, DEVICE NAME STRING

                                     0003    83 ;			DESCRIPTOR, MAILBOX NAME STRING, OR MAILBOX NAME

                                     0003    84 ;			STRING DESCRIPTOR CANNOT BE READ BY CALLING ACCESS

                                     0003    85 ;			MODE, OR CHANNEL NUMBER CANNOT BE WRITTEN BY CALLING

                                     0003    86 ;			ACCESS MODE.

                                     0003    87 ;

                                     0003    88 ;		R0 = SS$_DEVALLOC - DEVICE ALLOCATED TO ANOTHER PROCESS.

                                     0003    89 ;

                                     0003    90 ;		R0 = SS$_DEVNOTMBX - SPECIFIED MAILBOX DEVICE IS NOT A

                                     0003    91 ;			MAILBOX.

                                     0003    92 ;

                                     0003    93 ;		R0 = SS$_EXQUOTA - PROCESS HAS INSUFFICIENT BUFFER QUOTA TO

                                     0003    94 ;			ALLOCATE NETWORK UCB.

                                     0003    95 ;

                                     0003    96 ;		R0 = SS$_INSFMEM - SUFFICIENT SYSTEM DYNAMIC MEMORY DOES NOT

                                     0003    97 ;			EXIST TO ALLOCATE NETWORK UCB.

                                     0003    98 ;

                                     0003    99 ;		R0 = SS$_IVDEVNAM - DEVICE OR MAILBOX NAME STRING CONTAINS

                                     0003   100 ;			INVALID CHARACTERS, OR NO DEVICE NAME STRING

                                     0003   101 ;			DESCRIPTOR SPECIFIED.

                                     0003   102 ;

                                     0003   103 ;		R0 = SS$_IVLOGNAM - ZERO OR GREATER THAN MAXIMUM LENGTH

                                     0003   104 ;			DEVICE OR MAILBOX NAME STRING SPECIFIED.

                                     0003   105 ;

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

                                     0003   107 ;

                                     0003   108 ;		R0 = SS$_NOPRIV - PROCESS DOES NOT HAVE PRIVILEGE TO CREATE

                                     0003   109 ;			NETWORK UCB.

                                     0003   110 ;

                                     0003   111 ;		R0 = SS$_NOSUCHDEV - SPECIFIED DEVICE OR MAILBOX DOES NOT

                                     0003   112 ;			EXIST ON HOST SYSTEM.

                                     0003   113 ;

                                     0003   114 ;	R0 LOW BIT SET INDICATES SUCCESSFUL COMPLETION.

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              21-AUG-1978 20:19:08   VAX-11 MACRO X0.3-11               Page   3

01              ASSIGN I/O CHANNEL                                                                                               (1)



                                     0003   115 ;

                                     0003   116 ;		R0 = SS$_REMOTE - NORMAL COMPLETION, ASSIGNMENT COMPLETED

                                     0003   117 ;			ON REMOTE SYSTEM.

                                     0003   118 ;

                                     0003   119 ;		R0 = SS$_NORMAL - NORMAL COMPLETION, ASSIGNMENT COMPLETED

                                     0003   120 ;			ON HOST SYSTEM.

                                     0003   121 ;-

                                     0003   122  

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

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

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

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

            5A         10 AC     D0  0011   127 	MOVL	MBXNAM(AP),R10		;GET ADDRESS OF MAILBOX NAME DESCRIPTOR

                          0C     13  0015   128 	BEQL	10$			;IF EQL NO MAILBOX SPECIFIED

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

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

            5A            5E     D0  0020   131 	MOVL	SP,R10			;SET ADDRESS OF MAILBOX NAME DESCRIPTOR

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

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

                          18     13  002C   134 	BEQL	20$			;IF EQL NO DEVICE SPECIFIED

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

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

            50         0C AC         0037       

                          FFC3'  30  003A   137 	BSBW	EXE$MAXACMODE		;MAXIMIZE ACCESS MODE

            58            50     D0  003D   138 	MOVL	R0,R8			;SAVE MAXIMIZED ACCESS MODE

                          FFBD'  30  0040   139 	BSBW	IOC$FFCHAN		;FIND FREE I/O CHANNEL

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

                                 04  0046   141 20$:	RET				;

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

                                 04  004A   143 	RET				;

                                     004B   144  

                                     004B   145 ;

                                     004B   146 ; FREE CHANNEL FOUND

                                     004B   147 ;

                                     004B   148  

                                     004B   149 	.ENABL	LSB

                                     004B   150 FREECHAN:				;FREE CHANNEL FOUND

            57            51     D0  004B   151 	MOVL	R1,R7			;SAVE CHANNEL INDEX

                          FFAF'  30  004E   152 	BSBW	SCH$IOLOCKW		;LOCK I/O DATA BASE FOR WRITE ACCESS

                          0175   30  0051   153 	BSBW	TEST_MAILBOX		;TEST IF MAILBOX SPECIFIED

            3E            50     E9  0054   154 	BLBC	R0,30$			;IF LBC SEARCH FAILURE

            51            59     D0  0057   155 	MOVL	R9,R1			;SET ADDRESS OF DEVICE NAME DESCRIPTOR

                          FFA3'  30  005A   156 	BSBW	IOC$SEARCHDEV		;SEARCH FOR DEVICE

            37            50     E9  005D   157 	BLBC	R0,40$			;IF LBC SEARCH FAILURE

                                     0060   158  

                                     0060   159 ;

                                     0060   160 ; DEVICE FOUND

                                     0060   161 ;

                                     0060   162  

            55            51     D0  0060   163 	MOVL	R1,R5			;SAVE ADDRESS OF DEVICE UCB

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

                          5B         0067       

            55   00000000'8F     D1  0068   165 	CMPL	#NET$UCB0,R5		;ASSIGNING TO NETWORK DEVICE?

                          6E     13  006F   166 	BEQL	NETWORK			;IF EQL YES

                                     0071   167  

                                     0071   168 ;

                                     0071   169 ; LOCAL ASSIGNMENT

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              21-AUG-1978 20:19:08   VAX-11 MACRO X0.3-11               Page   4

01              ASSIGN I/O CHANNEL                                                                                               (1)



                                     0071   170 ;

                                     0071   171  

                                     0071   172 LOCAL:					;LOCAL ASSIGNMENT

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

                          2A     13  0075   174 	BEQL	50$			;IF EQL DEVICE NOT ALLOCATED

            51            54     D0  0077   175 	MOVL	R4,R1			;COPY PROCESS PCB ADDRESS

         60 A1            50     D1  007A   176 10$:	CMPL	R0,PCB$L_PID(R1)	;PROCESS ID MATCH?

                          2B     13  007E   177 	BEQL	70$			;IF EQL YES

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

                          0A     13  0084   179 	BEQL	20$			;IF EQL NO CREATOR

            51   00000000'FF41   D0  0086   180 	MOVL	@L^SCH$GL_PCBVEC[R1],R1	;GET ADDRESS OF CREATOR PCB

                          EA     11  008E   181 	BRB	10$			;

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

                          45     11  0095   183 30$:	BRB	90$			;

                                     0097   184  

                                     0097   185 ;

                                     0097   186 ; DEVICE SEARCH FAILURE

                                     0097   187 ;

                                     0097   188  

            50       08F0 8F     B1  0097   189 40$:	CMPW	#SS$_NONLOCAL,R0	;REMOTE DEVICE?

                          3E     12  009C   190 	BNEQ	90$			;IF NEQ NO

                          0089   31  009E   191 	BRW	REMOTE			;

                                     00A1   192  

                                     00A1   193 ;

                                     00A1   194 ; DEVICE NOT SPOOLED OR ALLOCATED

                                     00A1   195 ;

                                     00A1   196  

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

                          05         00A5       

                                     00A6   198  

                                     00A6   199 ;

                                     00A6   200 ; NONSHAREABLE DEVICE - PERFORM IMPLICIT ALLOCATION

                                     00A6   201 ;

                                     00A6   202  

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

                                     00AB   204  

                                     00AB   205 ;

                                     00AB   206 ; ASSOCIATE MAILBOX IF:

                                     00AB   207 ;

                                     00AB   208 ;	1. NOT FILE DEVICE

                                     00AB   209 ;	2. NOT SHAREABLE DEVICE

                                     00AB   210 ;	3. MAILBOX NOT ALREADY ASSOCIATED

                                     00AB   211 ;	4. MAILBOX IS SPECIFIED

                                     00AB   212 ;

                                     00AB   213  

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

                          13         00AF       

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

                          0E         00B4       

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

                          09     12  00B8   217 	BNEQ	80$			;IF NEQ YES

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

                          03     13  00BE   219 	BEQL	80$			;IF EQL NONE SPECIFIED

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

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

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

                       50 A5     B6  00CE   223 	INCW	UCB$W_REFC(R5)		;INCREMENT UCB REFERENCE COUNT

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              21-AUG-1978 20:19:08   VAX-11 MACRO X0.3-11               Page   5

01              ASSIGN I/O CHANNEL                                                                                               (1)



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

                       09 A0         00D4       

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

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

                          FF21'  31  00DC   227 90$:	BRW	IOC$UNLOCK		;UNLOCK I/O DATA BASE AND RETURN

                                     00DF   228  

                                     00DF   229 ;

                                     00DF   230 ; NETWORK ASSIGNMENT

                                     00DF   231 ;

                                     00DF   232  

                                     00DF   233 NETWORK:				;

                          FF1E'  30  00DF   234 	BSBW	SCH$IOUNLOCK		;UNLOCK I/O DATA BASE

            50            24     3C  00E2   235 	MOVZWL	#SS$_NOPRIV,R0		;ASSUME PROCESS DOES NOT HAVE PRIVILEGE

                                     00E5   236 	IFNPRIV	NETMBX,100$		;CAN PROCESS CREATE NETWORK DEVICE?

            50            1C     3C  00EA   237 	MOVZWL	#SS$_EXQUOTA,R0		;SET QUOTA EXCEEDED STATUS

         08 A5       0100 8F     A1  00ED   238 	ADDW3	#256,UCB$W_SIZE(R5),R1	;ADD IN BIAS *******TEMP*******

                          51         00F3       

         42 A4            51     B1  00F4   239 	CMPW	R1,PCB$W_BYTCNT(R4)	;ENOUGH BYTES TO SATISFY REQUIREMENTS?

                          2F     1A  00F8   240 	BGTRU	100$			;IF GTRU NO

                          FF03'  30  00FA   241 	BSBW	IOC$CREATE_UCB		;CREATE NETWORK UCB

            29            50     E9  00FD   242 	BLBC	R0,100$			;IF LBC CREATION FAILURE

            55            52     D0  0100   243 	MOVL	R2,R5			;COPY ADDRESS OF CREATED UCB

         5A A5            02     A8  0103   244 	BISW	#UCB$M_DELMBX,UCB$W_DEVSTS(R5) ;MARK NETWORK UCB FOR DELETE

         4A A5         08 A5     B0  0107   245 	MOVW	UCB$W_SIZE(R5),UCB$W_CHARGE(R5) ;SET BYTES CHARGED TO PROCESS

         42 A4         08 A5     A2  010C   246 	SUBW	UCB$W_SIZE(R5),PCB$W_BYTCNT(R4) ;REDUCE CURRENT BYTE COUNT

         68 A4         08 A5     A2  0111   247 	SUBW	UCB$W_SIZE(R5),PCB$W_BYTLM(R4) ;REDUCE BYTE COUNT LIMIT

                          00B0   30  0116   248 	BSBW	TEST_MAILBOX		;TEST IF MAILBOX SPECIFIED

                       50 A5     B7  0119   249 	DECW	UCB$W_REFC(R5)		;DECREMENT UCB REFERENCE COUNT

            87            50     E8  011C   250 	BLBS	R0,60$			;IF LBS NO FAILURE

                          50     DD  011F   251 	PUSHL	R0			;SAVE STATUS VALUE

                          FEDC'  30  0121   252 	BSBW	IOC$DELMBX		;DELETE MAILBOX

                          50   8ED0  0124   253 	POPL	R0			;RETRIEVE STATUS VALUE

                          B3     11  0127   254 	BRB	90$			;

                                 04  0129   255 100$:	RET				;

                                     012A   256 	.DSABL	LSB

                                     012A   257  

                                     012A   258 ;

                                     012A   259 ; REMOTE DEVICE SPECIFIED

                                     012A   260 ;

                                     012A   261  

                                     012A   262 REMOTE:					;

                          FED3'  30  012A   263 	BSBW	SCH$IOUNLOCK		;UNLOCK I/O DATA BASE

            51            59     D0  012D   264 	MOVL	R9,R1			;SET ADDRESS OF DEVICE NAME DESCRIPTOR

            52         40 8F     9A  0130   265 	MOVZBL	#LOG$C_NAMLENGTH,R2	;GET MAXIMUM LENGTH OF LOGICAL NAME

            5E            52     C2  0134   266 	SUBL	R2,SP			;ALLOCATE SPACE TO STORE TRANSLATED NAME

            53            5E     D0  0137   267 	MOVL	SP,R3			;SET ADDRESS OF TRANSLATED NAME STORAGE

                          55     D4  013A   268 	CLRL	R5			;CLEAR NAME TABLE SEARCH DISABLE MASK

                          FEC1'  30  013C   269 	BSBW	LOG$TRNSLOGNAME		;TRANSLATE LOGICAL NAME

                                     013F   270 	SETIPL	#0			;ALLOW INTERRUPTS

            73            50     E9  0142   271 	BLBC	R0,30$			;IF LBC TRANSLATION FAILURE

                          6E     9F  0145   272 	PUSHAB	(SP)			;BUILD TRANSLATED NAME DESCRIPTOR

                          51     DD  0147   273 	PUSHL	R1			;

         08 AE         5F 8F     91  0149   274 	CMPB	#^A/_/,8(SP)		;TRANSLATED NAME START WITH UNDERSCORE?

                          05     12  014E   275 	BNEQ	10$			;IF NEQ NO

                          6E     D7  0150   276 	DECL	(SP)			;DECREMENT LENGTH OF TRANSLATED NAME

                       04 AE     D6  0152   277 	INCL	4(SP)			;INCREMENT STARTING ADDRESS OF NAME

            59            5E     D0  0155   278 10$:	MOVL	SP,R9			;SET ADDRESS OF TRANSLATED NAME DESCRIPTOR

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              21-AUG-1978 20:19:08   VAX-11 MACRO X0.3-11               Page   6

01              ASSIGN I/O CHANNEL                                                                                               (1)



                     FEA4 CF     9F  0158   279 	PUSHAB	NETNAM			;BUILD NETWORK DEVICE NAME DESCRIPTOR

                          03     DD  015C   280 	PUSHL	#NETEND-NETNAM		;

            56            5E     D0  015E   281 	MOVL	SP,R6			;SAVE ADDRESS OF NAME STRING DESCRIPTOR

            57            7E     DE  0161   282 	MOVAL	-(SP),R7		;ALLOCATE SPACE TO STORE CHANNEL NUMBER

                                     0164   283 	$ASSIGN_S (R6),(R7),R8,(R10)	;ASSIGN CHANNEL TO NETWORK

            42            50     E9  0173   284 	BLBC	R0,30$			;IF LBC ASSIGNMENT FAILURE

                                     0176   285 	$QIO_S	#31,(R7),#IO$_ACCESS!IO$M_ACCESS,(R6),,,,R9 ;CONNECT TO NETWORK

            23            50     E9  0193   286 	BLBC	R0,40$			;IF LBC SERVICE FAILURE

                                     0196   287 20$:	$WAITFR_S #31			;WAIT FOR CONNECT TO COMPLETE

                                     019F   288 	$CLREF_S #31			;CLEAR EVENT FLAG

            50            66     3C  01A8   289 	MOVZWL	(R6),R0			;GET I/O COMPLETION CODE

                          E9     13  01AB   290 	BEQL	20$			;IF EQL I/O NOT FINISHED

            09            50     E9  01AD   291 	BLBC	R0,40$			;IF LBC CONNECT FAILURE

            6B            67     B0  01B0   292 	MOVW	(R7),(R11)		;STORE ASSIGNED DEVICE CHANNEL NUMBER

            50       0649 8F     3C  01B3   293 	MOVZWL	#SS$_REMOTE,R0		;SET COMPLETION STATUS

                                 04  01B8   294 30$:	RET				;

                          50     DD  01B9   295 40$:	PUSHL	R0			;SAVE FINAL STATUS

                                     01BB   296 	$DASSGN_S (R7)			;DEASSIGN CHANNEL

                          50   8ED0  01C5   297 	POPL	R0			;RETRIEVE FINAL STATUS

                                 04  01C8   298 	RET				;

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              21-AUG-1978 20:19:08   VAX-11 MACRO X0.3-11               Page   7

01              TEST IF MAILBOX SPECIFIED                                                                                        (1)



                                     01C9   300 	.SBTTL	TEST IF MAILBOX SPECIFIED

                                     01C9   301 ;

                                     01C9   302 ; SUBROUTINE TO TEST IF A MAILBOX IS SPECIFIED

                                     01C9   303 ;

                                     01C9   304  

                                     01C9   305 TEST_MAILBOX:				;

            56            5A     D0  01C9   306 	MOVL	R10,R6			;SET ADDRESS OF MAILBOX NAME DESCRIPTOR

                          1B     13  01CC   307 	BEQL	10$			;IF EQL NO NAME SPECIFIED

            51            56     D0  01CE   308 	MOVL	R6,R1			;COPY ADDRESS OF MAILBOX NAME DESCRIPTOR

                          FE2C'  30  01D1   309 	BSBW	IOC$SEARCHDEV		;SEARCH FOR DEVICE

            15            50     E9  01D4   310 	BLBC	R0,20$			;IF LBC SEARCH ERROR

            50       0074 8F     3C  01D7   311 	MOVZWL	#SS$_DEVNOTMBX,R0	;SET DEVICE NOT MAILBOX STATUS

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

                          0B         01E0       

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

                          06         01E5       

            56            51     D0  01E6   314 	MOVL	R1,R6			;SAVE ADDRESS OF MAILBOX UCB

            50            01     3C  01E9   315 10$:	MOVZWL	#SS$_NORMAL,R0		;SET NORMAL COMPLETION STATUS

                                 05  01EC   316 20$:	RSB				;

                                     01ED   317  

                                     01ED   318 	.END

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              21-AUG-1978 20:19:08   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



$$T1           = 00000001            IO$M_STARTUP   = 00000040            IO$_OFFSET     = 00000006            

ACMODE         = 0000000C            IO$M_SYNCH     = 00000200            IO$_PACKACK    = 00000008            

BIT...         = 00000000            IO$M_TIMED     = 00000080            IO$_PHYSICAL   = 0000001F            

CCB$B_AMOD       00000009            IO$M_TRMNOECHO = 00001000            IO$_READHEAD   = 0000000E            

CCB$B_STS        00000008            IO$M_WRTATTN   = 00000100            IO$_READLBLK   = 00000021            

CCB$C_LENGTH     00000010            IO$S_FCODE     = 00000006            IO$_READPBLK   = 0000000C            

CCB$K_LENGTH     00000010            IO$V_ABORT     = 00000008            IO$_READPRESET = 00000019            

CCB$L_DIRP       0000000C            IO$V_ACCESS    = 00000006            IO$_READPROMPT = 00000037            

CCB$L_UCB        00000000            IO$V_ATTNAST   = 00000008            IO$_READTRACKD = 00000010            

CCB$L_WIND       00000004            IO$V_BINARY    = 00000006            IO$_READVBLK   = 00000031            

CCB$W_IOC        0000000A            IO$V_CANCTRLO  = 00000006            IO$_RECAL      = 00000003            

CHAN           = 00000008            IO$V_COMMOD    = 00000006            IO$_RELEASE    = 00000005            

CTL$GL_CCBBASE   ********   X   03   IO$V_CREATE    = 00000007            IO$_RETCENTER  = 00000007            

DEV$V_FOD        ********   X   03   IO$V_CTRLCAST  = 00000008            IO$_REWIND     = 00000024            

DEV$V_MBX        ********   X   03   IO$V_CTRLYAST  = 00000007            IO$_REWINDOFF  = 00000022            

DEV$V_NET        ********   X   03   IO$V_CVTLOW    = 00000008            IO$_SEARCH     = 00000009            

DEV$V_SHR        ********   X   03   IO$V_DATACHECK = 0000000E            IO$_SEEK       = 00000002            

DEV$V_SPL        ********   X   03   IO$V_DELETE    = 00000008            IO$_SENSECHAR  = 0000001B            

DEVNAM         = 00000004            IO$V_DMOUNT    = 0000000A            IO$_SENSEMODE  = 00000027            

EXE$ASSIGN       00000003 RG    03   IO$V_DSABLMBX  = 0000000A            IO$_SETCHAR    = 0000001A            

EXE$MAXACMODE    ********   X   03   IO$V_ENABLMBX  = 00000007            IO$_SETMODE    = 00000023            

FREECHAN         0000004B R     03   IO$V_FCODE     = 00000000            IO$_SKIPFILE   = 00000025            

GBL...         = 00000000            IO$V_HANGUP    = 00000009            IO$_SKIPRECORD = 00000026            

IO$M_ABORT     = 00000100            IO$V_INHERLOG  = 0000000B            IO$_SPACEFILE  = 00000002            

IO$M_ACCESS    = 00000040            IO$V_INHEXTGAP = 0000000C            IO$_SPACERECORD= 00000009            

IO$M_ATTNAST   = 00000100            IO$V_INHRETRY  = 0000000F            IO$_STARTSPNDL = 00000019            

IO$M_BINARY    = 00000040            IO$V_INHSEEK   = 0000000C            IO$_UNLOAD     = 00000001            

IO$M_CANCTRLO  = 00000040            IO$V_INTERRUPT = 00000006            IO$_VIRTUAL    = 0000003F            

IO$M_COMMOD    = 00000040            IO$V_INTSKIP   = 00000008            IO$_WRITECHECK = 0000000A            

IO$M_CREATE    = 00000080            IO$V_MOUNT     = 00000009            IO$_WRITECHECKH= 00000018            

IO$M_CTRLCAST  = 00000100            IO$V_NOECHO    = 00000006            IO$_WRITEHEAD  = 0000000D            

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

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

IO$M_DATACHECK = 00004000            IO$V_NOW       = 00000006            IO$_WRITEOF    = 00000028            

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

IO$M_DMOUNT    = 00000400            IO$V_PACKED    = 00000007            IO$_WRITETRACKD= 0000000F            

IO$M_DSABLMBX  = 00000400            IO$V_PURGE     = 0000000B            IO$_WRITEVBLK  = 00000030            

IO$M_ENABLMBX  = 00000080            IO$V_READATTN  = 00000007            IOC$CREATE_UCB   ********   X   03   

IO$M_FCODE     = 0000003F            IO$V_REVERSE   = 00000006            IOC$DELMBX       ********   X   03   

IO$M_HANGUP    = 00000200            IO$V_SHUTDOWN  = 00000007            IOC$FFCHAN       ********   X   03   

IO$M_INHERLOG  = 00000800            IO$V_STARTUP   = 00000006            IOC$SEARCHDEV    ********   X   03   

IO$M_INHEXTGAP = 00001000            IO$V_SYNCH     = 00000009            IOC$UNLOCK       ********   X   03   

IO$M_INHRETRY  = 00008000            IO$V_TIMED     = 00000007            LOCAL            00000071 R     03   

IO$M_INHSEEK   = 00001000            IO$V_TRMNOECHO = 0000000C            LOG$B_AMOD       0000000E            

IO$M_INTERRUPT = 00000040            IO$V_WRTATTN   = 00000008            LOG$B_TABLE      0000000B            

IO$M_INTSKIP   = 00000100            IO$_ACCESS     = 00000032            LOG$B_TYPE       0000000A            

IO$M_MOUNT     = 00000200            IO$_ACPCONTROL = 00000038            LOG$C_GROUP    = 00000001            

IO$M_NOECHO    = 00000040            IO$_CREATE     = 00000033            LOG$C_LENGTH     00000014            

IO$M_NOFILTR   = 00000200            IO$_DEACCESS   = 00000034            LOG$C_NAMLENGTH= 00000040            

IO$M_NOFORMAT  = 00000100            IO$_DELETE     = 00000035            LOG$C_PROCESS  = 00000002            

IO$M_NOW       = 00000040            IO$_DIAGNOSE   = 0000001D            LOG$C_SYSTEM   = 00000000            

IO$M_NOWAIT    = 00000080            IO$_DRVCLR     = 00000004            LOG$K_LENGTH     00000014            

IO$M_PACKED    = 00000080            IO$_ERASETAPE  = 00000006            LOG$L_LTBL       00000004            

IO$M_PURGE     = 00000800            IO$_LOGICAL    = 0000002F            LOG$L_LTFL       00000000            

IO$M_READATTN  = 00000080            IO$_MODIFY     = 00000036            LOG$L_MBXUCB     00000010            

IO$M_REVERSE   = 00000040            IO$_MOUNT      = 00000039            LOG$TRNSLOGNAME  ********   X   03   

IO$M_SHUTDOWN  = 00000080            IO$_NOP        = 00000000            LOG$T_NAME       00000014            

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              21-AUG-1978 20:19:08   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



LOG$W_GROUP      0000000C            PCB$V_WALL     = 0000000D            PR$_TXDB       = 00000023            

LOG$W_SIZE       00000008            PCB$W_APTCNT     00000034            PR$_USP        = 00000003            

MBXNAM         = 00000010            PCB$W_ASTCNT     0000003C            PR$_WCSA       = 0000002C            

NET$UCB0         ********   X   03   PCB$W_BIOCNT     0000003E            PR$_WCSD       = 0000002D            

NETEND           00000003 R     03   PCB$W_BIOLM      00000040            PRV$V_ALLSPOOL = 00000004            

NETNAM           00000000 R     03   PCB$W_BYTCNT     00000042            PRV$V_BUGCHK   = 00000017            

NETWORK          000000DF R     03   PCB$W_BYTLM      00000068            PRV$V_CMEXEC   = 00000001            

PCB$B_ASTACT     0000000C            PCB$W_DIOCNT     00000044            PRV$V_CMKRNL   = 00000000            

PCB$B_ASTEN      0000000D            PCB$W_DIOLM      00000046            PRV$V_DETACH   = 00000005            

PCB$B_PRI        0000000B            PCB$W_FILCNT     00000048            PRV$V_DIAGNOSE = 00000006            

PCB$B_PRIB       00000033            PCB$W_GPGCNT     00000038            PRV$V_EXQUOTA  = 00000013            

PCB$B_TYPE       0000000A            PCB$W_GRP        00000022            PRV$V_GROUP    = 00000008            

PCB$B_WEFC       00000032            PCB$W_MEM        00000020            PRV$V_GRPNAM   = 00000003            

PCB$C_LENGTH     0000007C            PCB$W_MTXCNT     0000000E            PRV$V_LOG_IO   = 00000007            

PCB$K_LENGTH     0000007C            PCB$W_PPGCNT     0000003A            PRV$V_MOUNT    = 00000011            

PCB$L_ASTQBL     00000014            PCB$W_PRCCNT     0000006A            PRV$V_NETMBX   = 00000014            

PCB$L_ASTQFL     00000010            PCB$W_SIZE       00000008            PRV$V_NOACNT   = 00000009            

PCB$L_EFC2P      00000058            PCB$W_STATE      00000030            PRV$V_OPER     = 00000012            

PCB$L_EFC3P      0000005C            PCB$W_TMBU       00000036            PRV$V_PHY_IO   = 00000016            

PCB$L_EFCS       00000050            PCB$W_TQCNT      0000004A            PRV$V_PRMCEB   = 0000000A            

PCB$L_EFCU       00000054            PR$_ACCR       = 00000029            PRV$V_PRMGBL   = 00000018            

PCB$L_EFWM       0000004C            PR$_ACCS       = 00000028            PRV$V_PRMMBX   = 0000000B            

PCB$L_OWNER      0000001C            PR$_ASTLVL     = 00000013            PRV$V_PSWAPM   = 0000000C            

PCB$L_PHD        00000064            PR$_ESP        = 00000001            PRV$V_SETPRI   = 0000000D            

PCB$L_PHYPCB     00000018            PR$_ICCS       = 00000018            PRV$V_SETPRV   = 0000000E            

PCB$L_PID        00000060            PR$_ICR        = 0000001A            PRV$V_SYSGBL   = 00000019            

PCB$L_PQB        0000004C            PR$_IPL        = 00000012            PRV$V_SYSNAM   = 00000002            

PCB$L_SQBL       00000004            PR$_ISP        = 00000004            PRV$V_TMPMBX   = 0000000F            

PCB$L_SQFL       00000000            PR$_KSP        = 00000000            PRV$V_VOLPRO   = 00000015            

PCB$L_STS        00000028            PR$_MAPEN      = 00000038            PRV$V_WORLD    = 00000010            

PCB$L_UIC        00000020            PR$_NICR       = 00000019            REMOTE           0000012A R     03   

PCB$L_WSSWP      00000024            PR$_P0BR       = 00000008            SCH$GL_PCBVEC    ********   X   03   

PCB$L_WTIME      0000002C            PR$_P0LR       = 00000009            SCH$IOLOCKW      ********   X   03   

PCB$T_LNAME      0000006C            PR$_P1BR       = 0000000A            SCH$IOUNLOCK     ********   X   03   

PCB$V_ASTPEN   = 00000011            PR$_P1LR       = 0000000B            SS$_ABORT      = 0000002C            

PCB$V_BATCH    = 0000000E            PR$_PCBB       = 00000010            SS$_ACCONFLICT = 00000800            

PCB$V_DELPEN   = 00000001            PR$_PME        = 0000003D            SS$_ACCVIO     = 0000000C            

PCB$V_FORCPEN  = 00000002            PR$_RXCS       = 00000020            SS$_ACPVAFUL   = 000002FC            

PCB$V_HIBER    = 00000013            PR$_RXDB       = 00000021            SS$_ARTRES     = 00000474            

PCB$V_INQUAN   = 00000003            PR$_SBIER      = 00000034            SS$_ASTFLT     = 0000040C            

PCB$V_LOGIN    = 00000014            PR$_SBIFS      = 00000030            SS$_BADATTRIB  = 00000034            

PCB$V_NETWRK   = 00000015            PR$_SBIMT      = 00000033            SS$_BADCHKSUM  = 00000808            

PCB$V_NOACNT   = 0000000F            PR$_SBIQC      = 00000036            SS$_BADESCAPE  = 0000003C            

PCB$V_NODELET  = 00000017            PR$_SBIS       = 00000031            SS$_BADFILEHDR = 00000810            

PCB$V_PHDRES   = 00000012            PR$_SBISC      = 00000032            SS$_BADFILENAME= 00000818            

PCB$V_PSWAPM   = 00000004            PR$_SBITA      = 00000035            SS$_BADFILEVER = 00000820            

PCB$V_PWRAST   = 00000016            PR$_SBR        = 0000000C            SS$_BADIMGHDR  = 00000044            

PCB$V_RES      = 00000000            PR$_SCBB       = 00000011            SS$_BADIRECTORY= 00000828            

PCB$V_RESPEN   = 00000005            PR$_SID        = 0000003E            SS$_BADPARAM   = 00000014            

PCB$V_SSFEXC   = 00000006            PR$_SIRR       = 00000014            SS$_BADSTACK   = 000002B4            

PCB$V_SSFEXCE  = 00000007            PR$_SISR       = 00000015            SS$_BEGOFFILE  = 00000938            

PCB$V_SSFEXCS  = 00000008            PR$_SLR        = 0000000D            SS$_BLOCKCNTERR= 00000940            

PCB$V_SSFEXCU  = 00000009            PR$_SSP        = 00000002            SS$_BREAK      = 00000414            

PCB$V_SSRWAIT  = 0000000A            PR$_TBIA       = 00000039            SS$_BUFBYTALI  = 0000030C            

PCB$V_SUSPEN   = 0000000B            PR$_TBIS       = 0000003A            SS$_BUFFEROVF  = 00000601            

PCB$V_SWPVBN   = 00000010            PR$_TODR       = 0000001B            SS$_BUGCHECK   = 000002A4            

PCB$V_WAKEPEN  = 0000000C            PR$_TXCS       = 00000022            SS$_CANCEL     = 00000830            

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              21-AUG-1978 20:19:08   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



SS$_CHANINTLK  = 0000004C            SS$_IDXFILEFULL= 000008D0            SS$_NOSOLICIT  = 00000284            

SS$_CLIFRCEXT  = 00000980            SS$_ILLBLKNUM  = 000000DC            SS$_NOSUCHDEV  = 00000908            

SS$_CMODSUPR   = 0000041C            SS$_ILLCNTRFUNC= 000000E4            SS$_NOSUCHFILE = 00000910            

SS$_CMODUSER   = 00000424            SS$_ILLEFC     = 000000EC            SS$_NOSUCHNODE = 0000028C            

SS$_COMPAT     = 0000042C            SS$_ILLIOFUNC  = 000000F4            SS$_NOSUCHSEC  = 00000978            

SS$_CONTINUE   = 00000001            SS$_ILLLBLAST  = 00000968            SS$_NOTAPEOP   = 00000264            

SS$_CONTROLC   = 00000651            SS$_ILLPAGCNT  = 000000FC            SS$_NOTFILEDEV = 000001CC            

SS$_CONTROLO   = 00000609            SS$_ILLSEQOP   = 000002DC            SS$_NOTINTBLSZ = 000001D4            

SS$_CONTROLY   = 00000611            SS$_ILLSER     = 00000104            SS$_NOTLABELMT = 000001DC            

SS$_CREATED    = 00000619            SS$_ILLUSRLBLRD= 00000958            SS$_NOTMODIFIED= 00000659            

SS$_CTRLERR    = 00000054            SS$_ILLUSRLBLWT= 00000960            SS$_NOTNETDEV  = 000002EC            

SS$_DATACHECK  = 0000005C            SS$_INCVOLLABEL= 0000010C            SS$_NOTRAN     = 00000629            

SS$_DATAOVERUN = 00000838            SS$_INSFARG    = 00000114            SS$_NOTSQDEV   = 000001E4            

SS$_DEBUG      = 0000046C            SS$_INSFMEM    = 00000124            SS$_OPCCUS     = 00000434            

SS$_DECOVF     = 000004A4            SS$_INSFRAME   = 0000012C            SS$_OPCDEC     = 0000043C            

SS$_DEVACTIVE  = 000002C4            SS$_INSFWSL    = 0000011C            SS$_OPINCOMPL  = 000002D4            

SS$_DEVALLOC   = 00000840            SS$_INTDIV     = 00000484            SS$_PAGOWNVIO  = 000001EC            

SS$_DEVALRALLOC= 00000641            SS$_INTOVF     = 0000047C            SS$_PAGRDERR   = 00000444            

SS$_DEVASSIGN  = 00000848            SS$_IVADDR     = 00000134            SS$_PARITY     = 000001F4            

SS$_DEVFOREIGN = 00000064            SS$_IVCHAN     = 0000013C            SS$_PARTESCAPE = 000001FC            

SS$_DEVICEFULL = 00000850            SS$_IVCHNLSEC  = 0000026C            SS$_PFMBSY     = 00000204            

SS$_DEVMOUNT   = 0000006C            SS$_IVDEVNAM   = 00000144            SS$_PLHLDR     = 00000404            

SS$_DEVNOTALLOC= 00000858            SS$_IVGSDNAM   = 0000014C            SS$_PSTFULL    = 0000020C            

SS$_DEVNOTMBX  = 00000074            SS$_IVLOGNAM   = 00000154            SS$_RADRMOD    = 0000044C            

SS$_DEVNOTMOUNT= 0000007C            SS$_IVLOGTAB   = 0000015C            SS$_REJECT     = 00000294            

SS$_DEVOFFLINE = 00000084            SS$_IVPROTECT  = 000002F4            SS$_REMOTE     = 00000649            

SS$_DIRFULL    = 00000860            SS$_IVQUOTAL   = 00000164            SS$_RESIGNAL   = 00000918            

SS$_DRVERR     = 0000008C            SS$_IVSECFLG   = 0000016C            SS$_RESULTOVF  = 00000214            

SS$_DUPFILENAME= 00000868            SS$_IVSECIDCTL = 000002E4            SS$_ROPRAND    = 00000454            

SS$_DUPLNAM    = 00000094            SS$_IVSSRQ     = 00000174            SS$_SECTBLFUL  = 0000021C            

SS$_ENDOFFILE  = 00000870            SS$_IVSTSFLG   = 0000017C            SS$_SSFAIL     = 0000045C            

SS$_ENDOFTAPE  = 00000878            SS$_IVTIME     = 00000184            SS$_SUBRNG     = 000004AC            

SS$_ENDOFUSRLBL= 00000970            SS$_LCKPAGFUL  = 000000D4            SS$_SUPERSEDE  = 00000631            

SS$_EXQUOTA    = 0000001C            SS$_LENVIO     = 0000018C            SS$_TAPEPOSLOST= 00000224            

SS$_EXTIDXFILE = 00000880            SS$_LKWSETFUL  = 00000194            SS$_TBIT       = 00000464            

SS$_FCPREADERR = 00000888            SS$_MBFULL     = 000008D8            SS$_TIMEOUT    = 0000022C            

SS$_FCPREPSTN  = 00000988            SS$_MBTOOSML   = 0000019C            SS$_TOOMANYVER = 00000990            

SS$_FCPREWNDERR= 00000890            SS$_MCHECK     = 000002BC            SS$_TOOMUCHDATA= 0000029C            

SS$_FCPSPACERR = 00000898            SS$_MEDOFL     = 000001A4            SS$_UNASEFC    = 00000234            

SS$_FCPWRITERR = 000008A0            SS$_MSGNOTFND  = 00000621            SS$_UNSAFE     = 0000023C            

SS$_FILACCERR  = 0000009C            SS$_MTLBLLONG  = 00000304            SS$_UNWIND     = 00000920            

SS$_FILALRACC  = 000000A4            SS$_MUSTCLOSEFL= 00000948            SS$_UNWINDING  = 00000928            

SS$_FILELOCKED = 000008A8            SS$_NOAQB      = 00000314            SS$_VASFULL    = 00000244            

SS$_FILENUMCHK = 000008B0            SS$_NODATA     = 000001AC            SS$_VECINUSE   = 0000024C            

SS$_FILESEQCHK = 000008B8            SS$_NOHANDLER  = 000008F8            SS$_VOLINV     = 00000254            

SS$_FILESTRUCT = 000008C0            SS$_NOHOMEBLK  = 000008E0            SS$_WAITUSRLBL = 00000950            

SS$_FILNOTACC  = 000000AC            SS$_NOIOCHAN   = 000001B4            SS$_WASCLR     = 00000001            

SS$_FILNOTCNTG = 000002AC            SS$_NOLINKS    = 0000027C            SS$_WASECC     = 00000639            

SS$_FILNOTEXP  = 000000B4            SS$_NOLOGNAM   = 000001BC            SS$_WASSET     = 00000009            

SS$_FLTDIV     = 00000494            SS$_NOMBX      = 00000274            SS$_WRITLCK    = 0000025C            

SS$_FLTOVF     = 0000048C            SS$_NOMOREFILES= 00000930            SS$_WRONGACP   = 0000031C            

SS$_FLTUND     = 0000049C            SS$_NONEXDRV   = 000001C4            SYS$ASSIGN       ********   X   03   

SS$_FORMAT     = 000000BC            SS$_NONEXPR    = 000008E8            SYS$CLREF        ********   X   03   

SS$_GPTFULL    = 000000C4            SS$_NONLOCAL   = 000008F0            SYS$DASSGN       ********   X   03   

SS$_GSDFULL    = 000000CC            SS$_NOPRIV     = 00000024            SYS$QIO          ********   X   03   

SS$_HANGUP     = 000002CC            SS$_NORMAL     = 00000001            SYS$WAITFR       ********   X   03   

SS$_HEADERFULL = 000008C8            SS$_NOSIGNAL   = 00000900            TEST_MAILBOX     000001C9 R     03   

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              21-AUG-1978 20:19:08   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (1)



UCB$B_AMOD       00000053            UCB$L_OWNUIC     0000001C            UCB$V_NT_NAME  = 00000004            

UCB$B_CEX        00000077            UCB$L_PID        00000028            UCB$V_ONLINE   = 00000004            

UCB$B_CM1        0000004A            UCB$L_RQBL       00000004            UCB$V_POWER    = 00000005            

UCB$B_CM2        0000004B            UCB$L_RQFL       00000000            UCB$V_PRMMBX   = 00000000            

UCB$B_DEVCLASS   00000038            UCB$L_SVAPTE     00000068            UCB$V_SEGFLO   = 00000002            

UCB$B_DEVTYPE    00000039            UCB$L_SVPN       00000064            UCB$V_TIM      = 00000000            

UCB$B_DIPL       00000052            UCB$L_TTCHAR     0000003C            UCB$V_TIMOUT   = 00000006            

UCB$B_DX_SCTCNT  000000A6            UCB$L_VCB        00000030            UCB$V_TT_NOTIF = 00000002            

UCB$B_ERTCNT     00000070            UCB$M_BACKP    = 00000020            UCB$V_TT_TIMO  = 00000001            

UCB$B_ERTMAX     00000071            UCB$M_BSY      = 00000100            UCB$V_UNLOAD   = 0000000C            

UCB$B_ESCAPE     0000004B            UCB$M_CANCEL   = 00000008            UCB$V_VALID    = 0000000B            

UCB$B_FEX        00000076            UCB$M_DEADMO   = 00000400            UCB$W_BCNT       0000006E            

UCB$B_FIPL       0000000B            UCB$M_DELMBX   = 00000002            UCB$W_BCR        00000096            

UCB$B_LOCSRV     0000003C            UCB$M_DIAGBUF  = 00000002            UCB$W_BOFF       0000006C            

UCB$B_OFFNDX     00000094            UCB$M_DX_WRITE = 00000008            UCB$W_BUFQUO     00000018            

UCB$B_OFFRTC     00000095            UCB$M_ECC      = 00000001            UCB$W_BYTESTOGO  0000003E            

UCB$B_REMSRV     0000003D            UCB$M_ERLOGIP  = 00000004            UCB$W_CHARGE     0000004A            

UCB$B_SECTORS    0000003C            UCB$M_INT      = 00000002            UCB$W_CYLINDERS  0000003E            

UCB$B_SLAVE      00000074            UCB$M_INTTYPE  = 00000080            UCB$W_DA         0000008C            

UCB$B_SPR        00000075            UCB$M_JOB      = 00000001            UCB$W_DC         0000008E            

UCB$B_STATE      00000052            UCB$M_MOUNTING = 00000200            UCB$W_DEVBUFSIZ  0000003A            

UCB$B_TRACKS     0000003D            UCB$M_NOCNVRT  = 00000004            UCB$W_DEVSTS     0000005A            

UCB$B_TYPE       0000000A            UCB$M_NT_BFROVF= 00000004            UCB$W_DIRSEQ     00000088            

UCB$B_VERTSZ     0000003F            UCB$M_NT_BREAK = 00000020            UCB$W_DSTADDR    00000018            

UCB$C_LENGTH     00000074            UCB$M_NT_NAME  = 00000010            UCB$W_DX_BCR     000000A4            

UCB$C_LOGLNK   = 00000001            UCB$M_ONLINE   = 00000010            UCB$W_EC1        00000090            

UCB$K_LENGTH     00000074            UCB$M_POWER    = 00000020            UCB$W_EC2        00000092            

UCB$L_AMB        00000054            UCB$M_PRMMBX   = 00000001            UCB$W_ERRCNT     00000072            

UCB$L_ASTQBL     00000010            UCB$M_TIM      = 00000001            UCB$W_FUNC       0000007E            

UCB$L_ASTQFL     0000000C            UCB$M_TIMOUT   = 00000040            UCB$W_MB_SEED    FFFFFFFC            

UCB$L_CPID       0000005C            UCB$M_TT_NOTIF = 00000004            UCB$W_MSGCNT     00000016            

UCB$L_CRB        00000020            UCB$M_TT_TIMO  = 00000002            UCB$W_MSGMAX     00000014            

UCB$L_DDB        00000024            UCB$M_UNLOAD   = 00001000            UCB$W_NT_CHAN    0000007C            

UCB$L_DEVCHAR    00000034            UCB$M_VALID    = 00000800            UCB$W_OFFSET     0000008A            

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

UCB$L_DPC        00000080            UCB$S_LTYPE    = 00000002            UCB$W_SIZE       00000008            

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

UCB$L_DX_BFPNT   0000009C            UCB$V_BACKP    = 00000005            UCB$W_STS        00000058            

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

UCB$L_DX_RXDB    000000A0            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   00000084            UCB$V_MSGACK   = 00000004            

UCB$L_MEDIA      0000008C            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            

SYSASSIGN       - SYSTEM SERVICE ASSIGN I/O CHANNEL              21-AUG-1978 20:19:08   VAX-11 MACRO X0.3-11               Page  12

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  

Y$EXEPAGED       000001ED      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

6204. BYTES LEFT IN FREE MEMORY POOL.

3400. BYTES OF RECLAIMED MEMORY.

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

18 MLB DIR RDS - 1064 GETS TO DEFINE 30 MACROS. 80 INTER. FILE WRITES. 

