SYSDASSGN       - SYSTEM SERVICE DEASSIGN I/O CHANNEL            21-AUG-1978 23:37:11   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      49  DEASSIGN I/O CHANNEL

SYSDASSGN       - SYSTEM SERVICE DEASSIGN I/O CHANNEL            21-AUG-1978 23:37:11   VAX-11 MACRO X0.3-11               Page   1

01                                                                                                                               (1)



                                     0000     1 	.TITLE	SYSDASSGN - SYSTEM SERVICE DEASSIGN 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 26-AUG-76

                                     0000    24 ;

                                     0000    25 ; SYSTEM SERVICE DEASSIGN I/O CHANNEL

                                     0000    26 ;

                                     0000    27 ; MACRO LIBRARY CALLS

                                     0000    28 ;

                                     0000    29  

                                     0000    30 	$CCBDEF				;DEFINE CCB OFFSETS

                                     0000    31 	$DDBDEF				;DEFINE DDB OFFSETS

                                     0000    32 	$DDTDEF				;DEFINE DDT OFFSETS

                                     0000    33 	$IODEF				;DEFINE I/O FUNCTION CODES

                                     0000    34 	$IPLDEF				;DEFINE INTERRUPT PRIORITY LEVELS

                                     0000    35 	$PCBDEF				;DEFINE PCB OFFSETS

                                     0000    36 	$PRDEF				;DEFINE PROCESSOR REGISTERS

                                     0000    37 	$RSNDEF				;DEFINE RESOURCE WAIT NUMBERS

                                     0000    38 	$SSDEF				;DEFINE SYSTEM STATUS VALUES

                                     0000    39 	$UCBDEF				;DEFINE UCB OFFSETS

                                     0000    40  

                                     0000    41 ;

                                     0000    42 ; LOCAL SYMBOLS

                                     0000    43 ;

                                     0000    44 ; ARGUMENT LIST OFFSET DEFINITIONS

                                     0000    45 ;

                                     0000    46  

                           00000004  0000    47 CHAN=4					;I/O CHANNEL NUMBER

SYSDASSGN       - SYSTEM SERVICE DEASSIGN I/O CHANNEL            21-AUG-1978 23:37:11   VAX-11 MACRO X0.3-11               Page   2

01              DEASSIGN I/O CHANNEL                                                                                             (2)



                                     0000    49 	.SBTTL	DEASSIGN I/O CHANNEL

                                     0000    50 ;+

                                     0000    51 ; EXE$DASSGN - DEASSIGN I/O CHANNEL

                                     0000    52 ;

                                     0000    53 ; THIS SERVICE DEASSIGNS A PREVIOUSLY ASSIGNED I/O CHANNEL AND CLEARS THE

                                     0000    54 ; LINKAGE AND CONTROL INFORMATION IN THE CORRESPONDING CHANNEL CONTROL BLOCK.

                                     0000    55 ; IF ANY I/O IS OUTSTANDING ON THE CHANNEL IT IS CANCELLED. IF A FILE IS

                                     0000    56 ; OPEN ON THE CHANNEL IT IS CLOSED. IF A MAILBOX WAS ASSOCIATED WITH THE

                                     0000    57 ; DEVICE WHEN IT WAS ASSIGNED, THE LINKAGE TO THE MAILBOX IS CLEARED. IF THE

                                     0000    58 ; THE CHANNEL IS LAST ONE ASSIGNED TO THE DEVICE AND IT IS MARKED FOR DIS-

                                     0000    59 ; MOUNT, THEN THE DISMOUNT IS COMPLETED.

                                     0000    60 ;

                                     0000    61 ; INPUTS:

                                     0000    62 ;

                                     0000    63 ;	CHAN(AP) = NUMBER OF THE I/O CHANNEL TO DEASSIGN.

                                     0000    64 ;

                                     0000    65 ;	R4 = CURRENT PROCESS PCB ADDRESS.

                                     0000    66 ;

                                     0000    67 ; OUTPUTS:

                                     0000    68 ;

                                     0000    69 ;	R0 LOW BIT CLEAR INDICATES FAILURE TO DEASSIGN CHANNEL.

                                     0000    70 ;

                                     0000    71 ;		R0 = SS$_IVCHAN - INVALID CHANNEL NUMBER SPECIFIED.

                                     0000    72 ;

                                     0000    73 ;		R0 = SS$_NOPRIV - SPECIFIED CHANNEL IS NOT ASSIGNED TO A

                                     0000    74 ;			DEVICE OR THE CALLER DOES NOT HAVE SUFFICIENT

                                     0000    75 ;			PRIVILEGE TO ACCESS THE CHANNEL.

                                     0000    76 ;

                                     0000    77 ;	R0 LOW BIT SET INDICATES SUCCESSFUL COMPLETION.

                                     0000    78 ;

                                     0000    79 ;		R0 = SS$_NORMAL - NORMAL COMPLETION.

                                     0000    80 ;-

                                     0000    81  

                               00FC' 0000    82 	.ENTRY	EXE$DASSGN,^M<R2,R3,R4,R5,R6,R7>

            55         04 AC     3C  0002    83 	MOVZWL	CHAN(AP),R5		;GET CHANNEL NUMBER

            50            55     D0  0006    84 	MOVL	R5,R0			;COPY I/O CHANNEL NUMBER

                          FFF4'  30  0009    85 	BSBW	IOC$VERIFYCHAN		;VERIFY CHANNEL NUMBER

            57            50     E9  000C    86 	BLBC	R0,50$			;IF LBC INVALID CHANNEL

            56            51     D0  000F    87 	MOVL	R1,R6			;COPY ADDRESS OF CCB

            57            52     D0  0012    88 	MOVL	R2,R7			;SAVE CHANNEL INDEX

                                     0015    89 10$:	$CANCEL_S R5			;CANCEL I/O ON CHANNEL

                       04 A6     D5  001F    90 20$:	TSTL	CCB$L_WIND(R6)		;FILE ACCESSED ON CHANNEL?

                          25     13  0022    91 	BEQL	30$			;IF EQL NO

                                     0024    92 	$QIOW_S	#31,R5,#IO$_DEACCESS	;DEACCESS FILE

            07            50     E8  003F    93 	BLBS	R0,30$			;IF LBS SUCCESSFUL COMPLETION

            50       00AC 8F     B1  0042    94 	CMPW	#SS$_FILNOTACC,R0	;NO FILE ACCESSED?

                          1D     12  0047    95 	BNEQ	50$			;IF NEQ NO

                          7E     DC  0049    96 30$:	MOVPSL	-(SP)			;SAVE CURRENT PROCESSOR STATUS

                                     004B    97 	SETIPL	#IPL$_ASTDEL		;RAISE TO AST DELIVERY LEVEL

                       0A A6     B5  004E    98 	TSTW	CCB$W_IOC(R6)		;ANY I/O STILL OUTSTANDING?

                          14     13  0051    99 	BEQL	60$			;IF EQL NO

                                     0053   100 	SETIPL	#IPL$_SYNCH		;RAISE TO SYNCHRONIZATION LEVEL

            50            13     DB  0056   101 	MFPR	#PR$_ASTLVL,R0		;READ CURRENT AST LEVEL

                          06     13  0059   102 	BEQL	40$			;IF EQL AST QUEUED

            50            01     3C  005B   103 	MOVZWL	#RSN$_ASTWAIT,R0	;SET AST WAIT RESOURCE WAIT NUMBER

                          FF9F'  30  005E   104 	BSBW	SCH$RWAIT		;WAIT FOR AST

                                     0061   105 40$:	SETIPL	#0			;ALLOW INTERRUPTS

SYSDASSGN       - SYSTEM SERVICE DEASSIGN I/O CHANNEL            21-AUG-1978 23:37:11   VAX-11 MACRO X0.3-11               Page   3

01              DEASSIGN I/O CHANNEL                                                                                             (2)



                          AF     11  0064   106 	BRB	10$			;

                                 04  0066   107 50$:	RET				;

                          FF96'  30  0067   108 60$:	BSBW	SCH$IOLOCKW		;LOCK I/O DATABASE FOR WRITE ACCESS

            55            66     D0  006A   109 	MOVL	CCB$L_UCB(R6),R5	;GET ASSIGNED DEVICE UCB ADDRESS

                       09 A6     94  006D   110 	CLRB	CCB$B_AMOD(R6)		;DEASSIGN CHANNEL

                       50 A5     B7  0070   111 	DECW	UCB$W_REFC(R5)		;DECREMENT DEVICE REFERENCE COUNT

                          14     13  0073   112 	BEQL	70$			;IF EQL LAST REFERENCE

         50 A5            01     B1  0075   113 	CMPW	#1,UCB$W_REFC(R5)	;UCB REFERENCE COUNT ONE?

                          65     12  0079   114 	BNEQ	120$			;IF NEQ NO

         34 A5            00'    E1  007B   115 	BBC	S^#DEV$V_ALL,UCB$L_DEVCHAR(R5),120$ ;IF CLR, DEVICE NOT ALLOCATED

                          60         007F       

         28 A5         60 A4     D1  0080   116 	CMPL	PCB$L_PID(R4),UCB$L_PID(R5) ;ALLOCATED TO CURRENT PROCESS?

                          59     12  0085   117 	BNEQ	120$			;IF NEQ NO

                          03     11  0087   118 	BRB	80$			;

                       28 A5     D4  0089   119 70$:	CLRL	UCB$L_PID(R5)		;CLEAR OWNER PROCESS ID

         34 A5            00'    E1  008C   120 80$:	BBC	S^#DEV$V_DMT,UCB$L_DEVCHAR(R5),90$ ;IF CLR, NOT MARKED FOR DISMOUNT

                          1C         0090       

         34 A5            00'    E1  0091   121 	BBC	S^#DEV$V_FOR,UCB$L_DEVCHAR(R5),90$ ;IF CLR, STRUCTURED VOLUME

                          17         0095       

                                 CA  0096   122 	BICL	#DEV$M_DMT!DEV$M_FOR!-	;CLEAR MARKED FOR DISMOUNT, FOREIGN, AND

         34 A5   00000000'8F         0097   123 		DEV$M_MNT,UCB$L_DEVCHAR(R5) ;MOUNTED

            50         30 A5     D0  009E   124 	MOVL	UCB$L_VCB(R5),R0	;GET ADDRESS OF VCB

                          09     13  00A2   125 	BEQL	90$			;IF EQL NONE

                       30 A5     D4  00A4   126 	CLRL	UCB$L_VCB(R5)		;CLEAR ADDRESS OF VCB

                          FF56'  30  00A7   127 	BSBW	EXE$DEANONPAGED		;DEALLOCATE VCB

                       1A A5     B4  00AA   128 	CLRW	UCB$W_VPROT(R5)		;CLEAR VOLUME PROTECTION MASK

            50         24 A5     D0  00AD   129 90$:	MOVL	UCB$L_DDB(R5),R0	;GET ADDRESS OF DDB

            50         0C A0     D0  00B1   130 	MOVL	DDB$L_DDT(R0),R0	;GET ADDRESS OF DDT

            50         0C A0     D0  00B5   131 	MOVL	DDT$L_CANCEL(R0),R0	;GET ADDRESS OF CANCEL I/O ENTRY POINT

                          10     13  00B9   132 	BEQL	100$			;IF EQL NONE

            53         4C A5     D0  00BB   133 	MOVL	UCB$L_IRP(R5),R3	;GET CURRENT I/O PACKET ADDRESS

            52            57     D0  00BF   134 	MOVL	R7,R2			;SET CHANNEL INDEX

                                     00C2   135 	SETIPL	UCB$B_FIPL(R5)		;RAISE TO DEVICE FORK IPL

                          60     16  00C6   136 	JSB	(R0)			;CALL DRIVER AT CANCEL I/O ENTRY POINT

                                     00C8   137 	SETIPL	#IPL$_ASTDEL		;LOWER TO AST DELIVERY LEVEL

            55         54 A5     D0  00CB   138 100$:	MOVL	UCB$L_AMB(R5),R5	;GET ASSOCIATED MAILBOX UCB ADDRESS

                          06     13  00CF   139 	BEQL	110$			;IF EQL NONE

                       50 A5     B7  00D1   140 	DECW	UCB$W_REFC(R5)		;DECREMENT MAILBOX UCB REFERENCE COUNT

                          FF29'  30  00D4   141 	BSBW	IOC$DELMBX		;CHECK FOR MAILBOX DELETION

            55            66     D0  00D7   142 110$:	MOVL	CCB$L_UCB(R6),R5	;RETRIEVE ASSIGNED DEVICE UCB ADDRESS

                       54 A5     D4  00DA   143 	CLRL	UCB$L_AMB(R5)		;CLEAR ASSOCIATED MAILBOX UCB ADDRESS

                          FF20'  30  00DD   144 	BSBW	IOC$DELMBX		;CHECK FOR MAILBOX DELETION

            50            01     3C  00E0   145 120$:	MOVZWL	#SS$_NORMAL,R0		;SET NORMAL COMPLETION

                          FF1A'  31  00E3   146 	BRW	IOC$UNLOCK		;UNLOCK I/O DATA BASE AND RETURN

                                     00E6   147  

                                     00E6   148 	.END

SYSDASSGN       - SYSTEM SERVICE DEASSIGN I/O CHANNEL            21-AUG-1978 23:37:11   VAX-11 MACRO X0.3-11               Page   4

SYMBOL TABLE                                                                                                                     (2)



$$T1           = 00000001            IO$M_INHRETRY  = 00008000            IO$V_WRTATTN   = 00000008            

BIT...         = 00000000            IO$M_INHSEEK   = 00001000            IO$_ACCESS     = 00000032            

CCB$B_AMOD       00000009            IO$M_INTERRUPT = 00000040            IO$_ACPCONTROL = 00000038            

CCB$B_STS        00000008            IO$M_MOUNT     = 00000200            IO$_CREATE     = 00000033            

CCB$C_LENGTH     00000010            IO$M_NOECHO    = 00000040            IO$_DEACCESS   = 00000034            

CCB$K_LENGTH     00000010            IO$M_NOFILTR   = 00000200            IO$_DELETE     = 00000035            

CCB$L_DIRP       0000000C            IO$M_NOFORMAT  = 00000100            IO$_DIAGNOSE   = 0000001D            

CCB$L_UCB        00000000            IO$M_NOW       = 00000040            IO$_DRVCLR     = 00000004            

CCB$L_WIND       00000004            IO$M_NOWAIT    = 00000080            IO$_ERASETAPE  = 00000006            

CCB$W_IOC        0000000A            IO$M_PACKED    = 00000080            IO$_LOGICAL    = 0000002F            

CHAN           = 00000004            IO$M_PURGE     = 00000800            IO$_MODIFY     = 00000036            

DDB$B_ACPCLASS   00000013            IO$M_READATTN  = 00000080            IO$_MOUNT      = 00000039            

DDB$B_TYPE       0000000A            IO$M_REVERSE   = 00000040            IO$_NOP        = 00000000            

DDB$C_LENGTH     00000014            IO$M_SHUTDOWN  = 00000080            IO$_OFFSET     = 00000006            

DDB$K_LENGTH     00000014            IO$M_STARTUP   = 00000040            IO$_PACKACK    = 00000008            

DDB$L_ACPD       00000010            IO$M_SYNCH     = 00000200            IO$_PHYSICAL   = 0000001F            

DDB$L_DDT        0000000C            IO$M_TIMED     = 00000080            IO$_READHEAD   = 0000000E            

DDB$L_LINK       00000000            IO$M_TRMNOECHO = 00001000            IO$_READLBLK   = 00000021            

DDB$L_UCB        00000004            IO$M_WRTATTN   = 00000100            IO$_READPBLK   = 0000000C            

DDB$T_NAME       00000014            IO$S_FCODE     = 00000006            IO$_READPRESET = 00000019            

DDB$W_SIZE       00000008            IO$V_ABORT     = 00000008            IO$_READPROMPT = 00000037            

DDT$L_CANCEL     0000000C            IO$V_ACCESS    = 00000006            IO$_READTRACKD = 00000010            

DDT$L_FDT        00000008            IO$V_ATTNAST   = 00000008            IO$_READVBLK   = 00000031            

DDT$L_INIT       00000018            IO$V_BINARY    = 00000006            IO$_RECAL      = 00000003            

DDT$L_REGDUMP    00000010            IO$V_CANCTRLO  = 00000006            IO$_RELEASE    = 00000005            

DDT$L_START      00000000            IO$V_COMMOD    = 00000006            IO$_RETCENTER  = 00000007            

DDT$L_UNSOLINT   00000004            IO$V_CREATE    = 00000007            IO$_REWIND     = 00000024            

DDT$W_DIAGBUF    00000014            IO$V_CTRLCAST  = 00000008            IO$_REWINDOFF  = 00000022            

DDT$W_ERRORBUF   00000016            IO$V_CTRLYAST  = 00000007            IO$_SEARCH     = 00000009            

DEV$M_DMT        ********   X   01   IO$V_CVTLOW    = 00000008            IO$_SEEK       = 00000002            

DEV$M_FOR        ********   X   01   IO$V_DATACHECK = 0000000E            IO$_SENSECHAR  = 0000001B            

DEV$M_MNT        ********   X   01   IO$V_DELETE    = 00000008            IO$_SENSEMODE  = 00000027            

DEV$V_ALL        ********   X   01   IO$V_DMOUNT    = 0000000A            IO$_SETCHAR    = 0000001A            

DEV$V_DMT        ********   X   01   IO$V_DSABLMBX  = 0000000A            IO$_SETMODE    = 00000023            

DEV$V_FOR        ********   X   01   IO$V_ENABLMBX  = 00000007            IO$_SKIPFILE   = 00000025            

EXE$DASSGN       00000000 RG    01   IO$V_FCODE     = 00000000            IO$_SKIPRECORD = 00000026            

EXE$DEANONPAGED  ********   X   01   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$DELMBX       ********   X   01   

IO$M_DSABLMBX  = 00000400            IO$V_REVERSE   = 00000006            IOC$UNLOCK       ********   X   01   

IO$M_ENABLMBX  = 00000080            IO$V_SHUTDOWN  = 00000007            IOC$VERIFYCHAN   ********   X   01   

IO$M_FCODE     = 0000003F            IO$V_STARTUP   = 00000006            IPL$_ASTDEL    = 00000002            

IO$M_HANGUP    = 00000200            IO$V_SYNCH     = 00000009            IPL$_HWCLK     = 00000018            

IO$M_INHERLOG  = 00000800            IO$V_TIMED     = 00000007            IPL$_IOPOST    = 00000004            

IO$M_INHEXTGAP = 00001000            IO$V_TRMNOECHO = 0000000C            IPL$_MAILBOX   = 0000000B            

SYSDASSGN       - SYSTEM SERVICE DEASSIGN I/O CHANNEL            21-AUG-1978 23:37:11   VAX-11 MACRO X0.3-11               Page   5

SYMBOL TABLE                                                                                                                     (2)



IPL$_POWER     = 0000001F            PCB$W_BYTCNT     00000042            RSN$_MAILBOX   = 00000002            

IPL$_QUEUEAST  = 00000006            PCB$W_BYTLM      00000068            RSN$_NPDYNMEM  = 00000003            

IPL$_SCHED     = 00000003            PCB$W_DIOCNT     00000044            RSN$_PGDYNMEM  = 00000005            

IPL$_SYNCH     = 00000007            PCB$W_DIOLM      00000046            RSN$_PGFILE    = 00000004            

IPL$_TIMER     = 00000007            PCB$W_FILCNT     00000048            SCH$IOLOCKW      ********   X   01   

PCB$B_ASTACT     0000000C            PCB$W_GPGCNT     00000038            SCH$RWAIT        ********   X   01   

PCB$B_ASTEN      0000000D            PCB$W_GRP        00000022            SS$_ABORT      = 0000002C            

PCB$B_PRI        0000000B            PCB$W_MEM        00000020            SS$_ACCONFLICT = 00000800            

PCB$B_PRIB       00000033            PCB$W_MTXCNT     0000000E            SS$_ACCVIO     = 0000000C            

PCB$B_TYPE       0000000A            PCB$W_PPGCNT     0000003A            SS$_ARITH      = 00000404            

PCB$B_WEFC       00000032            PCB$W_PRCCNT     0000006A            SS$_ASTFLT     = 0000040C            

PCB$C_LENGTH     0000007C            PCB$W_SIZE       00000008            SS$_BADATTRIB  = 00000034            

PCB$K_LENGTH     0000007C            PCB$W_STATE      00000030            SS$_BADCHKSUM  = 00000808            

PCB$L_ASTQBL     00000014            PCB$W_TMBU       00000036            SS$_BADESCAPE  = 0000003C            

PCB$L_ASTQFL     00000010            PCB$W_TQCNT      0000004A            SS$_BADFILEHDR = 00000810            

PCB$L_EFC2P      00000058            PR$_ACCR       = 00000029            SS$_BADFILENAME= 00000818            

PCB$L_EFC3P      0000005C            PR$_ACCS       = 00000028            SS$_BADFILEVER = 00000820            

PCB$L_EFCS       00000050            PR$_ASTLVL     = 00000013            SS$_BADIMGHDR  = 00000044            

PCB$L_EFCU       00000054            PR$_ESP        = 00000001            SS$_BADIRECTORY= 00000828            

PCB$L_EFWM       0000004C            PR$_ICCS       = 00000018            SS$_BADPARAM   = 00000014            

PCB$L_OWNER      0000001C            PR$_ICR        = 0000001A            SS$_BADSTACK   = 000002B4            

PCB$L_PHD        00000064            PR$_IPL        = 00000012            SS$_BEGOFFILE  = 00000938            

PCB$L_PHYPCB     00000018            PR$_ISP        = 00000004            SS$_BLOCKCNTERR= 00000940            

PCB$L_PID        00000060            PR$_KSP        = 00000000            SS$_BREAK      = 00000414            

PCB$L_PQB        0000004C            PR$_MAPEN      = 00000038            SS$_BUFFEROVF  = 00000601            

PCB$L_SQBL       00000004            PR$_NICR       = 00000019            SS$_BUGCHECK   = 000002A4            

PCB$L_SQFL       00000000            PR$_P0BR       = 00000008            SS$_CANCEL     = 00000830            

PCB$L_STS        00000028            PR$_P0LR       = 00000009            SS$_CHANINTLK  = 0000004C            

PCB$L_UIC        00000020            PR$_P1BR       = 0000000A            SS$_CLIFRCEXT  = 00000980            

PCB$L_WSSWP      00000024            PR$_P1LR       = 0000000B            SS$_CMODSUPR   = 0000041C            

PCB$L_WTIME      0000002C            PR$_PCBB       = 00000010            SS$_CMODUSER   = 00000424            

PCB$T_LNAME      0000006C            PR$_RXCS       = 00000020            SS$_COMPAT     = 0000042C            

PCB$V_ASTPEN   = 00000011            PR$_RXDB       = 00000021            SS$_CONTINUE   = 00000001            

PCB$V_BATCH    = 0000000E            PR$_SBIER      = 00000034            SS$_CONTROLC   = 00000651            

PCB$V_DELPEN   = 00000001            PR$_SBIFS      = 00000030            SS$_CONTROLO   = 00000609            

PCB$V_FORCPEN  = 00000002            PR$_SBIMT      = 00000033            SS$_CONTROLY   = 00000611            

PCB$V_HIBER    = 00000013            PR$_SBIQC      = 00000036            SS$_CREATED    = 00000619            

PCB$V_INQUAN   = 00000003            PR$_SBIS       = 00000031            SS$_CTRLERR    = 00000054            

PCB$V_LOGIN    = 00000014            PR$_SBISC      = 00000032            SS$_DATACHECK  = 0000005C            

PCB$V_NOACNT   = 0000000F            PR$_SBITA      = 00000035            SS$_DATAOVERUN = 00000838            

PCB$V_PHDRES   = 00000012            PR$_SBR        = 0000000C            SS$_DEBUG      = 0000046C            

PCB$V_PSWAPM   = 00000004            PR$_SCBB       = 00000011            SS$_DEVACTIVE  = 000002C4            

PCB$V_RES      = 00000000            PR$_SID        = 0000003E            SS$_DEVALLOC   = 00000840            

PCB$V_RESPEN   = 00000005            PR$_SIRR       = 00000014            SS$_DEVALRALLOC= 00000641            

PCB$V_SSFEXC   = 00000006            PR$_SISR       = 00000015            SS$_DEVASSIGN  = 00000848            

PCB$V_SSFEXCE  = 00000007            PR$_SLR        = 0000000D            SS$_DEVFOREIGN = 00000064            

PCB$V_SSFEXCS  = 00000008            PR$_SSP        = 00000002            SS$_DEVICEFULL = 00000850            

PCB$V_SSFEXCU  = 00000009            PR$_TBIA       = 00000039            SS$_DEVMOUNT   = 0000006C            

PCB$V_SSRWAIT  = 0000000A            PR$_TBIS       = 0000003A            SS$_DEVNOTALLOC= 00000858            

PCB$V_SUSPEN   = 0000000B            PR$_TODR       = 0000001B            SS$_DEVNOTMBX  = 00000074            

PCB$V_SWPVBN   = 00000010            PR$_TXCS       = 00000022            SS$_DEVNOTMOUNT= 0000007C            

PCB$V_WAKEPEN  = 0000000C            PR$_TXDB       = 00000023            SS$_DEVOFFLINE = 00000084            

PCB$V_WALL     = 0000000D            PR$_USP        = 00000003            SS$_DIRFULL    = 00000860            

PCB$W_APTCNT     00000034            PR$_WCSA       = 0000002C            SS$_DRVERR     = 0000008C            

PCB$W_ASTCNT     0000003C            PR$_WCSD       = 0000002D            SS$_DUPFILENAME= 00000868            

PCB$W_BIOCNT     0000003E            RSN$_ASTWAIT   = 00000001            SS$_DUPLNAM    = 00000094            

PCB$W_BIOLM      00000040            RSN$_BRKTHRU   = 00000006            SS$_ENDOFFILE  = 00000870            

SYSDASSGN       - SYSTEM SERVICE DEASSIGN I/O CHANNEL            21-AUG-1978 23:37:11   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (2)



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            SYS$CANCEL       ********   X   01   

SS$_FILALRACC  = 000000A4            SS$_NOLOGNAM   = 000001BC            SYS$QIOW         ********   X   01   

SS$_FILELOCKED = 000008A8            SS$_NOMBX      = 00000274            UCB$B_AMOD       00000053            

SS$_FILENUMCHK = 000008B0            SS$_NOMOREFILES= 00000930            UCB$B_CEX        00000077            

SS$_FILESEQCHK = 000008B8            SS$_NONEXDRV   = 000001C4            UCB$B_CM1        0000004A            

SS$_FILESTRUCT = 000008C0            SS$_NONEXPR    = 000008E8            UCB$B_CM2        0000004B            

SS$_FILNOTACC  = 000000AC            SS$_NONLOCAL   = 000008F0            UCB$B_DEVCLASS   00000038            

SS$_FILNOTCNTG = 000002AC            SS$_NOPRIV     = 00000024            UCB$B_DEVTYPE    00000039            

SS$_FILNOTEXP  = 000000B4            SS$_NORMAL     = 00000001            UCB$B_DIPL       00000052            

SS$_FORMAT     = 000000BC            SS$_NOSIGNAL   = 00000900            UCB$B_DX_SCTCNT  FFFFFFFE            

SS$_GPTFULL    = 000000C4            SS$_NOSOLICIT  = 00000284            UCB$B_DX_SPARE   FFFFFFFF            

SS$_GSDFULL    = 000000CC            SS$_NOSUCHDEV  = 00000908            UCB$B_ERTCNT     00000070            

SS$_GSDNOTXXX  = 000000D4            SS$_NOSUCHFILE = 00000910            UCB$B_ERTMAX     00000071            

SS$_HANGUP     = 000002CC            SS$_NOSUCHNODE = 0000028C            UCB$B_ESCAPE     0000004B            

SS$_HEADERFULL = 000008C8            SS$_NOSUCHSEC  = 00000978            UCB$B_FEX        00000076            

SS$_IDXFILEFULL= 000008D0            SS$_NOTAPEOP   = 00000264            UCB$B_FIPL       0000000B            

SS$_ILLBLKNUM  = 000000DC            SS$_NOTFILEDEV = 000001CC            UCB$B_LOCSRV     0000003C            

SS$_ILLCNTRFUNC= 000000E4            SS$_NOTINTBLSZ = 000001D4            UCB$B_OFFNDX     00000090            

SS$_ILLEFC     = 000000EC            SS$_NOTLABELMT = 000001DC            UCB$B_OFFRTC     00000091            

SS$_ILLIOFUNC  = 000000F4            SS$_NOTNETDEV  = 000002EC            UCB$B_REMSRV     0000003D            

SS$_ILLLBLAST  = 00000968            SS$_NOTRAN     = 00000629            UCB$B_SECTORS    0000003C            

SS$_ILLPAGCNT  = 000000FC            SS$_NOTSQDEV   = 000001E4            UCB$B_SLAVE      00000074            

SS$_ILLSEQOP   = 000002DC            SS$_OPCCUS     = 00000434            UCB$B_SPR        00000075            

SS$_ILLSER     = 00000104            SS$_OPCDEC     = 0000043C            UCB$B_STATE      00000052            

SS$_ILLUSRLBLRD= 00000958            SS$_OPINCOMPL  = 000002D4            UCB$B_TRACKS     0000003D            

SS$_ILLUSRLBLWT= 00000960            SS$_PAGOWNVIO  = 000001EC            UCB$B_TYPE       0000000A            

SS$_INCVOLLABEL= 0000010C            SS$_PAGRDERR   = 00000444            UCB$B_VERTSZ     0000003F            

SS$_INSFARG    = 00000114            SS$_PARITY     = 000001F4            UCB$C_LENGTH     00000074            

SS$_INSFMEM    = 00000124            SS$_PARTESCAPE = 000001FC            UCB$C_LOGLNK   = 00000001            

SS$_INSFRAME   = 0000012C            SS$_PFMBSY     = 00000204            UCB$K_LENGTH     00000074            

SS$_INSFWSL    = 0000011C            SS$_PSTFULL    = 0000020C            UCB$L_AMB        00000054            

SS$_IVADDR     = 00000134            SS$_RADRMOD    = 0000044C            UCB$L_ASTQBL     00000010            

SS$_IVCHAN     = 0000013C            SS$_REJECT     = 00000294            UCB$L_ASTQFL     0000000C            

SS$_IVCHNLSEC  = 0000026C            SS$_REMOTE     = 00000649            UCB$L_CPID       0000005C            

SS$_IVDEVNAM   = 00000144            SS$_RESIGNAL   = 00000918            UCB$L_CRB        00000020            

SS$_IVGSDNAM   = 0000014C            SS$_RESULTOVF  = 00000214            UCB$L_DDB        00000024            

SS$_IVLOGNAM   = 00000154            SS$_ROPRAND    = 00000454            UCB$L_DEVCHAR    00000034            

SS$_IVLOGTAB   = 0000015C            SS$_SECTBLFUL  = 0000021C            UCB$L_DEVDEPEND  0000003C            

SS$_IVPROTECT  = 000002F4            SS$_SSFAIL     = 0000045C            UCB$L_DPC        0000007C            

SS$_IVQUOTAL   = 00000164            SS$_SUPERSEDE  = 00000631            UCB$L_DUETIM     0000005C            

SS$_IVSECFLG   = 0000016C            SS$_TAPEPOSLOST= 00000224            UCB$L_DX_BFPNT   FFFFFFF4            

SS$_IVSECIDCTL = 000002E4            SS$_TBIT       = 00000464            UCB$L_DX_BUF     FFFFFFF0            

SS$_IVSSRQ     = 00000174            SS$_TIMEOUT    = 0000022C            UCB$L_DX_RXDB    FFFFFFF8            

SS$_IVSTSFLG   = 0000017C            SS$_TOOMANYVER = 00000990            UCB$L_EMB        00000078            

SS$_IVTIME     = 00000184            SS$_TOOMUCHDATA= 0000029C            UCB$L_FIRST      00000014            

SS$_LENVIO     = 0000018C            SS$_UNASEFC    = 00000234            UCB$L_FPC        0000000C            

SS$_LKWSETFUL  = 00000194            SS$_UNSAFE     = 0000023C            UCB$L_FQBL       00000004            

SS$_MBFULL     = 000008D8            SS$_UNWIND     = 00000920            UCB$L_FQFL       00000000            

SYSDASSGN       - SYSTEM SERVICE DEASSIGN I/O CHANNEL            21-AUG-1978 23:37:11   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (2)



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            

UCB$S_LNKPRI   = 00000002            UCB$W_REFC       00000050            

UCB$S_LTYPE    = 00000002            UCB$W_SIZE       00000008            

UCB$T_PARTNER    0000000C            UCB$W_SRCADDR    0000001A            

UCB$V_BACKP    = 00000005            UCB$W_STS        00000058            

UCB$V_BSY      = 00000008            UCB$W_UNIT       00000048            

UCB$V_CANCEL   = 00000003            UCB$W_VPROT      0000001A            

UCB$V_DEADMO   = 0000000A            

UCB$V_DELMBX   = 00000001            

UCB$V_DIAGBUF  = 00000001            

UCB$V_DX_WRITE = 00000003            

UCB$V_ECC      = 00000000            

SYSDASSGN       - SYSTEM SERVICE DEASSIGN I/O CHANNEL            21-AUG-1978 23:37:11   VAX-11 MACRO X0.3-11               Page   8

PROGRAM SECTION SYNOPSIS                                                                                                         (2)







PROGRAM SECTION SYNOPSIS



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

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

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





THERE WERE NO ERRORS OR WARNINGS.

8132. BYTES LEFT IN FREE MEMORY POOL.

3514. BYTES OF RECLAIMED MEMORY.

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

11 MLB DIR RDS - 989 GETS TO DEFINE 25 MACROS. 72 INTER. FILE WRITES. 

