RM0GETDVI       GET DEVICE INFO FROM SYSTEM                      21-AUG-1978 21:25:11   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      42  DECLARATIONS

   (1)      68  RM$GETDEVNAM  -  GET DEVICE NAME AND UNIT #

   (1)     140  RM$GETDEVIFID  -  GET DEVICE ID AND FILE ID

   (1)     206  RM$GETDEVUNI - GET DEVICE UNIT NUMBER IN ASCII

RM0GETDVI       GET DEVICE INFO FROM SYSTEM                      21-AUG-1978 21:25:11   VAX-11 MACRO X0.3-11               Page   1

006                                                                                                                              (1)



                                     0000     1 	$BEGIN	RM0GETDVI,006,F$RMSOPEN0,<GET DEVICE INFO FROM SYSTEM>

                                     0000     2 

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     7 ;

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

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

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

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

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

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

                                     0000    14 ; REMAIN IN DEC.

                                     0000    15 ;

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

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

                                     0000    18 ; 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 ;++

                                     0000    24 ; FACILITY: RMS32

                                     0000    25 ;

                                     0000    26 ; ABSTRACT:

                                     0000    27 ;		THIS MODULE CONTAINS TWO ROUTINES TO GET THE DEVICE ID

                                     0000    28 ;		AND FILE ID OF THE FILE OPEN ON A CHANNEL FROM THE

                                     0000    29 ;		SYSTEM DATA BASE.

                                     0000    30 ;

                                     0000    31 ; ENVIRONMENT:

                                     0000    32 ;		STAR PROCESSOR RUNNING STARLET EXEC.

                                     0000    33 ;

                                     0000    34 ; AUTHOR: L F LAVERDURE,	 CREATION DATE: 17-JUN-78

                                     0000    35 ;

                                     0000    36 ; MODIFIED BY:

                                     0000    37 ;

                                     0000    38 ;	L F LAVERDURE,   13-JUL-78  14:17

                                     0000    39 ; 01	- 

                                     0000    40 ;--

RM0GETDVI       GET DEVICE INFO FROM SYSTEM                      21-AUG-1978 21:25:11   VAX-11 MACRO X0.3-11               Page   2

006             DECLARATIONS                                                                                                     (1)



                                     0000    42 	.SBTTL	DECLARATIONS

                                     0000    43 ;

                                     0000    44 ; INCLUDE FILES:

                                     0000    45 ;

                                     0000    46 

                                     0000    47 ;

                                     0000    48 ; MACROS:

                                     0000    49 ;

                                     0000    50 	$CCBDEF

                                     0000    51 	$DDBDEF

                                     0000    52 	$DEVDEF

                                     0000    53 	$FCBDEF

                                     0000    54 	$IFBDEF

                                     0000    55 	$UCBDEF

                                     0000    56 	$WCBDEF

                                     0000    57 	.LIST MEB

                                     0000    58 

                                     0000    59 ;

                                     0000    60 ; EQUATED SYMBOLS:

                                     0000    61 ;

                                     0000    62 

                                     0000    63 ;

                                     0000    64 ; OWN STORAGE:

                                     0000    65 ;

                                     0000    66 

RM0GETDVI       GET DEVICE INFO FROM SYSTEM                      21-AUG-1978 21:25:11   VAX-11 MACRO X0.3-11               Page   3

006             RM$GETDEVNAM  -  GET DEVICE NAME AND UNIT #                                                                      (1)



                                     0000    68 	.SBTTL RM$GETDEVNAM  -  GET DEVICE NAME AND UNIT #

                                     0000    69 ;++

                                     0000    70 ; FUNCTIONAL DESCRIPTION:

                                     0000    71 ;

                                     0000    72 ;  THIS ROUTINE RETURNS THE COUNTED GENERIC DEVICE NAME STRING

                                     0000    73 ;  AND THE BINARY UNIT NUMBER FOR THE FILE OPEN ON THE CHANNEL.

                                     0000    74 ;

                                     0000    75 ;

                                     0000    76 ; CALLING SEQUENCE:

                                     0000    77 ;

                                     0000    78 ;	BSBW	RM$GETDEVNAM

                                     0000    79 ;

                                     0000    80 ; INPUT PARAMETERS:

                                     0000    81 ;

                                     0000    82 ;	R9		IFAB ADDRESS

                                     0000    83 ;	R3		ADDRESS OF BUFFER TO RETURN DEVICE NAME STRING

                                     0000    84 ;	IFB$W_CHNL	CHANNEL #

                                     0000    85 ;

                                     0000    86 ; IMPLICIT INPUTS:

                                     0000    87 ;

                                     0000    88 ;	NONE

                                     0000    89 ;

                                     0000    90 ; OUTPUT PARAMETERS:

                                     0000    91 ;

                                     0000    92 ;	R6		UCB ADDRESS

                                     0000    93 ;	R4		UNIT # IN BINARY

                                     0000    94 ;	R3		ADDRESS FOLLOWING DEVICE NAME IN BUFFER

                                     0000    95 ;	R1		CCB ADDRESS

                                     0000    96 ;	R0,R2,R5	DESTROYED

                                     0000    97 ;

                                     0000    98 ; IMPLICIT OUTPUTS:

                                     0000    99 ;

                                     0000   100 ;	THE COUNTED ASCII STRING FOR THE GENERIC DEVICE NAME IS MOVED

                                     0000   101 ;	TO THE BUFFER PROVIDED.

                                     0000   102 ;

                                     0000   103 ; COMPLETION CODES:

                                     0000   104 ;

                                     0000   105 ;	NONE

                                     0000   106 ;

                                     0000   107 ; SIDE EFFECTS:

                                     0000   108 ;

                                     0000   109 ;	NONE

                                     0000   110 ;

                                     0000   111 ;--

RM0GETDVI       GET DEVICE INFO FROM SYSTEM                      21-AUG-1978 21:25:11   VAX-11 MACRO X0.3-11               Page   4

006             RM$GETDEVNAM  -  GET DEVICE NAME AND UNIT #                                                                      (1)



                                     0000   113 RM$GETDEVNAM::

            54            53     D0  0000   114 	MOVL	R3,R4				; SAVE THE CALLER'S BUFFER ADDRESS

                          1A     10  0003   115 	BSBB	RM$GETCCB			; GET THE CCB ADDRESS INTO R5

                          51     DD  0005   116 	PUSHL	R1				; SAVE THE CCB ADDRESS

            56            61     D0  0007   117 	MOVL	CCB$L_UCB(R1),R6		; GET THE UCB ADDRESS

         24 A6            14     C1  000A   118 	ADDL3	#DDB$T_NAME,UCB$L_DDB(R6),R1	; GET ADR OF DEVICE NAME

                          51         000E       

            50            61     9B  000F   119 	MOVZBW	(R1),R0				; GET LENGTH OF DEVICE NAME

                          50     B6  0012   120 	INCW	R0				; INCREMENT TO MOVE COUNT TOO

            61            50     28  0014   121 	MOVC3	R0,(R1),(R4)			; MOVE THE DEVICE NAME STRING

                          64         0017       

                          02     BA  0018   122 	POPR	#^M<R1>				; RECOVER CCB ADDRESS

            54         48 A6     3C  001A   123 	MOVZWL	UCB$W_UNIT(R6),R4		; GET THE UNIT NUMBER

                                 05  001E   124 	RSB					; RETURN

                                     001F   125 ;++

                                     001F   126 ;

                                     001F   127 ;  SUBROUTINE TO RETURN THE CCB ADDRESS

                                     001F   128 ;

                                     001F   129 ;  INPUT:	R9	IFAB ADDRESS WITH CHANNEL IN IFB$W_CHNL

                                     001F   130 ;

                                     001F   131 ;  OUTPUT:	R1	ADDRESS OF CCB

                                     001F   132 ;		R0,R2,R3 DESTROYED

                                     001F   133 ;

                                     001F   134 ;--

                                     001F   135 RM$GETCCB::

            50         20 A9     3C  001F   136 	MOVZWL	IFB$W_CHNL(R9),R0		; SET CHANNEL #

                 00000000'9F     17  0023   137 	JMP	@#IOC$VERIFYCHAN		; GET THE CCB ADDRESS (IN R1)

                                     0029   138 						; AND RETURN

RM0GETDVI       GET DEVICE INFO FROM SYSTEM                      21-AUG-1978 21:25:11   VAX-11 MACRO X0.3-11               Page   5

006             RM$GETDEVIFID  -  GET DEVICE ID AND FILE ID                                                                      (1)



                                     0029   140 	.SBTTL RM$GETDEVIFID  -  GET DEVICE ID AND FILE ID

                                     0029   141 ;++

                                     0029   142 ; FUNCTIONAL DESCRIPTION:

                                     0029   143 ;

                                     0029   144 ;  THIS ROUTINE RETURNS THE COUNTED DEVICE NAME STRING AND ASCII UNIT NUMBER,

                                     0029   145 ;  AS WELL AS THE FILE ID FOR THE FILE OPEN ON THE CHANNEL.

                                     0029   146 ;

                                     0029   147 ; CALLING SEQUENCE:

                                     0029   148 ;

                                     0029   149 ;	BSBW	RM$GETDVIFID

                                     0029   150 ;

                                     0029   151 ; INPUT PARAMETERS:

                                     0029   152 ;

                                     0029   153 ;	R9		IFAB ADDRESS

                                     0029   154 ;	R3		ADDRESS OF 22-BYTE BUFFER TO RETURN DEVICE NAME STRING

                                     0029   155 ;	IFB$W_CHNL	CHANNEL #

                                     0029   156 ;

                                     0029   157 ; IMPLICIT INPUTS:

                                     0029   158 ;

                                     0029   159 ;	NONE

                                     0029   160 ;

                                     0029   161 ; OUTPUT PARAMETERS:

                                     0029   162 ;

                                     0029   163 ;	R3		ADDRESS FOLLOWING FILE ID IN BUFFER IF DEVICE IS DISK

                                     0029   164 ;	R0-R2		DESTROYED

                                     0029   165 ;

                                     0029   166 ; IMPLICIT OUTPUTS:

                                     0029   167 ;

                                     0029   168 ;	THE COUNTED ASCII STRING FOR THE DEVICE NAME AND UNIT IS MOVED

                                     0029   169 ;	TO THE BUFFER PROVIDED, FOLLOWED BY THE FILE ID STARTING 16 BYTES

                                     0029   170 ;	FROM THE START OF THE BUFFER.

                                     0029   171 ;

                                     0029   172 ; COMPLETION CODES:

                                     0029   173 ;

                                     0029   174 ;	NONE

                                     0029   175 ;

                                     0029   176 ; SIDE EFFECTS:

                                     0029   177 ;

                                     0029   178 ;	NONE

                                     0029   179 ;

                                     0029   180 ;--

RM0GETDVI       GET DEVICE INFO FROM SYSTEM                      21-AUG-1978 21:25:11   VAX-11 MACRO X0.3-11               Page   6

006             RM$GETDEVIFID  -  GET DEVICE ID AND FILE ID                                                                      (1)



                                     0029   182 	$NEWPSECT	F$RMSCLOSERNDN

                                     0029       		.SAVE

                                 00000000       		.PSECT	F$RMSCLOSERNDN,GBL,NOWRT

0000000A 00000064 000003E8 00002710  0000   183 DIVTBL:	.LONG	10000,1000,100,10	; DIVISOR TABLE FOR ASCII CONVERSION

                                     0010   184 ;

                                     0010   185 RM$GETDVIFID::

                     0078 8F     BB  0010   186 	PUSHR	#^M<R3,R4,R5,R6>

                          FFE9'  30  0014   187 	BSBW	RM$GETDEVNAM			; GET THE DEVICE NAME (IN BUFFER)

                                     0017   188 						; AND UNIT # (IN R4)

                          04     BA  0017   189 	POPR	#^M<R2>				; ADR OF DEVICE NAME COUNT

                          51     DD  0019   190 	PUSHL	R1				; SAVE CCB ADDRESS

                          1F     10  001B   191 	BSBB	RM$GETDEVUNI			; GET UNIT NUMBER IN ASCII

                          02     BA  001D   192 	POPR	#^M<R1>				; RECOVER CCB ADDRESS

                                     001F   193 ;

                                     001F   194 ;  NOW GET THE FILE ID FROM THE FCB

                                     001F   195 ;  R2 = ADDRESS OF THE SPECIFIED OUTPUT BUFFER

                                     001F   196 ;

                       10 A2     D4  001F   197 	CLRL	16(R2)				; ZERO THE FILE ID

                       14 A2     B4  0022   198 	CLRW	20(R2)				;   "

            69            05     E0  0025   199 	BBS	#DEV$V_SQD,(R9),50$		; BRANCH IF MAGTAPE (NO FCB)

                          0E         0028       

            55         04 A1     D0  0029   200 	MOVL	CCB$L_WIND(R1),R5		; GET THE WCB ADDRESS

            55         18 A5     D0  002D   201 	MOVL	WCB$L_FCB(R5),R5		; GET THE FCB ADDRESS

         20 A5            06     28  0031   202 	MOVC3	#6,FCB$W_FID(R5),16(R2)		; COPY THE FILE ID TO BUFFER

                       10 A2         0035       

                     0070 8F     BA  0037   203 50$:	POPR	#^M<R4,R5,R6>

                                 05  003B   204 	RSB

RM0GETDVI       GET DEVICE INFO FROM SYSTEM                      21-AUG-1978 21:25:11   VAX-11 MACRO X0.3-11               Page   7

006             RM$GETDEVUNI - GET DEVICE UNIT NUMBER IN ASCII                                                                   (1)



                                     003C   206 	.SBTTL	RM$GETDEVUNI - GET DEVICE UNIT NUMBER IN ASCII

                                     003C   207 ;++

                                     003C   208 ; FUNCTIONAL DESCRIPTION:

                                     003C   209 ;

                                     003C   210 ;  THIS ROUTINE CONVERTS THE BINARY UNIT NUMBER INTO DECIMAL ASCII

                                     003C   211 ;  IN THE SPECIFIED OUTPUT STRING AND UPDATES THE COUNT FIELD OF

                                     003C   212 ;  THAT STRING.

                                     003C   213 ;

                                     003C   214 ; CALLING SEQUENCE:

                                     003C   215 ;

                                     003C   216 ;	BSBW	RM$GETDEVUNI

                                     003C   217 ;

                                     003C   218 ; INPUT PARAMETERS:

                                     003C   219 ;

                                     003C   220 ;	R4		DEVICE UNIT # IN BINARY

                                     003C   221 ;	R3		ADDRESS OF BUFFER TO RETURN ASCII UNIT NUMBER

                                     003C   222 ;	R2		ADR OF BYTE COUNT TO AUGMENT WITH # OF CHARACTERS RETURNED

                                     003C   223 ;

                                     003C   224 ; IMPLICIT INPUTS:

                                     003C   225 ;

                                     003C   226 ;	NONE

                                     003C   227 ;

                                     003C   228 ; OUTPUT PARAMETERS:

                                     003C   229 ;

                                     003C   230 ;	R3		ADDRESS OF NEXT BYTE IN BUFFER AFTER UNIT NUMBER

                                     003C   231 ;	R2		PRESERVED

                                     003C   232 ;	R0-R1,R4-R6	DESTROYED

                                     003C   233 ;

                                     003C   234 ; IMPLICIT OUTPUTS:

                                     003C   235 ;

                                     003C   236 ;	THE DECIMAL ASCII TRANSLATION FOR THE SPECIFIED BINARY UNIT NUMBER

                                     003C   237 ;	IS PLACED IN THE BUFFER PROVIDED AND THE COUNT OF CHARACTERS

                                     003C   238 ;	GENERATED IS ADDED TO THE BYTE ADDRESSED BY R2.

                                     003C   239 ;

                                     003C   240 ; COMPLETION CODES:

                                     003C   241 ;

                                     003C   242 ;	NONE

                                     003C   243 ;

                                     003C   244 ; SIDE EFFECTS:

                                     003C   245 ;

                                     003C   246 ;	NONE

                                     003C   247 ;

                                     003C   248 ;--

RM0GETDVI       GET DEVICE INFO FROM SYSTEM                      21-AUG-1978 21:25:11   VAX-11 MACRO X0.3-11               Page   8

006             RM$GETDEVUNI - GET DEVICE UNIT NUMBER IN ASCII                                                                   (1)



                                     003C   250 RM$GETDEVUNI::

                          55     7C  003C   251 	CLRQ	R5				; WORK SPACE

            0A            54     D1  003E   252 	CMPL	R4,#10				; FAST PATH FOR SINGLE DIGIT

                          1D     19  0041   253 	BLSS	50$				; BRANCH IF JUST ONE DIGIT

            50         BA AF     9E  0043   254 	MOVAB	DIVTBL,R0			; DIVISOR TABLE ADDRESS

            54            80     7B  0047   255 10$:	EDIV	(R0)+,R4,R1,R4			; R1=QUOIENT, R4=REMAINDER

            54            51         004A       

                          08     13  004C   256 	BEQL	30$				; BRANCH IF 0 QUOTIENT

                          56     96  004E   257 20$:	INCB	R6				; COUNT # CHARS OUTPUT

            51            30     89  0050   258 	BISB3	#^A/0/,R1,(R3)+			; ADD THE DIGIT TO THE DEVICE NAME

                          83         0053       

                          04     11  0054   259 	BRB	40$

                          56     95  0056   260 30$:	TSTB	R6				; ALREADY OUTPUT A CHAR?

                          F4     12  0058   261 	BNEQ	20$				; BRANCH IF YES, ELSE IGNORE LEAD 0

            0A         FC A0     D1  005A   262 40$:	CMPL	-4(R0),#10			; LAST DIVISOR?

                          E7     12  005E   263 	BNEQ	10$				; CONTINUE IF NOT

                          56     96  0060   264 50$:	INCB	R6				; COUNT THE LAST DIGIT

            54            30     89  0062   265 	BISB3	#^A/0/,R4,(R3)+			; ADD THE DIGIT TO THE DEVICE NAME

                          83         0065       

            62            56     80  0066   266 	ADDB2	R6,(R2)				; ADD TO THE DEVICE NAME COUNT

                                 05  0069   267 	RSB

                                     006A   268 

                                     006A   269 

                                     006A   270 	.END

RM0GETDVI       GET DEVICE INFO FROM SYSTEM                      21-AUG-1978 21:25:11   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



$$.PSECT_EP    = 00000000            DEV$V_FOR      = 00000018            GBL...         = 00000000            

$$RMSTEST      = 0000001A            DEV$V_GEN      = 00000011            IFB$B_AMAX       00000059            

$$RMS_PBUGCHK  = 00000010            DEV$V_IDV      = 0000001A            IFB$B_AVBN       00000058            

$$RMS_TBUGCHK  = 00000008            DEV$V_MBX      = 00000014            IFB$B_BID        00000008            

$$RMS_UMODE    = 00000004            DEV$V_MNT      = 00000013            IFB$B_BKS        0000004A            

BIT...         = 0000000C            DEV$V_NET      = 0000000D            IFB$B_BLN        00000009            

CCB$B_AMOD       00000009            DEV$V_ODV      = 0000001B            IFB$B_EFN        0000000B            

CCB$B_STS        00000008            DEV$V_RCK      = 0000001E            IFB$B_EXTRABUF   0000005D            

CCB$C_LENGTH     00000010            DEV$V_REC      = 00000000            IFB$B_FAC        00000022            

CCB$K_LENGTH     00000010            DEV$V_RND      = 0000001C            IFB$B_FSZ        0000004B            

CCB$L_DIRP       0000000C            DEV$V_RTM      = 0000001D            IFB$B_KBUFSZ     0000005C            

CCB$L_UCB        00000000            DEV$V_SDI      = 00000004            IFB$B_MODE       0000000A            

CCB$L_WIND       00000004            DEV$V_SHR      = 00000010            IFB$B_NUM_KEYS   0000005A            

CCB$W_IOC        0000000A            DEV$V_SPL      = 00000006            IFB$B_ORGCASE    00000023            

DDB$B_ACPCLASS   00000013            DEV$V_SQD      = 00000005            IFB$B_RAT        0000003D            

DDB$B_TYPE       0000000A            DEV$V_SWL      = 00000019            IFB$B_RFMORG     0000003C            

DDB$C_LENGTH     00000034            DEV$V_TRM      = 00000002            IFB$B_UBUFSZ     0000005B            

DDB$K_LENGTH     00000034            DEV$V_WCK      = 0000001F            IFB$C_BID      = 0000000B            

DDB$L_ACPD       00000010            DIVTBL           00000000 R     04   IFB$C_BLN        00000060            

DDB$L_DDT        0000000C            FCB$B_DIRIDX     00000048            IFB$C_BLN_IDX    00000060            

DDB$L_LINK       00000000            FCB$B_FID_NMX    00000025            IFB$C_BLN_REL    00000060            

DDB$L_UCB        00000004            FCB$B_FID_RVN    00000024            IFB$C_BLN_SEQ    0000005C            

DDB$T_DRVNAME    00000024            FCB$B_TYPE       0000000A            IFB$C_DIR      = 00000003            

DDB$T_NAME       00000014            FCB$C_LENGTH     00000048            IFB$C_FHAEND     00000050            

DDB$W_SIZE       00000008            FCB$K_LENGTH     00000048            IFB$C_IDX      = 00000002            

DEV$M_ALL      = 00800000            FCB$L_EFBLK      00000040            IFB$C_MAXORG   = 00000002            

DEV$M_AVL      = 00040000            FCB$L_EXFCB      0000000C            IFB$C_REL      = 00000001            

DEV$M_CCL      = 00000002            FCB$L_FCBBL      00000004            IFB$C_SEQ      = 00000000            

DEV$M_DIR      = 00000008            FCB$L_FCBFL      00000000            IFB$K_BLN        00000060            

DEV$M_DMT      = 00200000            FCB$L_FILEOWNER  00000038            IFB$K_BLN_IDX    00000060            

DEV$M_ELG      = 00400000            FCB$L_FILESIZE   00000034            IFB$K_BLN_REL    00000060            

DEV$M_FOD      = 00004000            FCB$L_HDLBN      00000030            IFB$K_BLN_SEQ    0000005C            

DEV$M_FOR      = 01000000            FCB$L_STLBN      0000002C            IFB$K_FHAEND     00000050            

DEV$M_GEN      = 00020000            FCB$L_STVBN      00000028            IFB$L_ARGLST     00000018            

DEV$M_IDV      = 04000000            FCB$L_WLBL       00000014            IFB$L_ASBADDR    00000014            

DEV$M_MBX      = 00100000            FCB$L_WLFL       00000010            IFB$L_AS_DEV     00000054            

DEV$M_MNT      = 00080000            FCB$V_BADBLK   = 00000002            IFB$L_BDB_BLNK   00000034            

DEV$M_NET      = 00002000            FCB$V_DIR      = 00000000            IFB$L_BDB_FLNK   00000030            

DEV$M_ODV      = 08000000            FCB$V_EXCL     = 00000003            IFB$L_BKPBITS    00000004            

DEV$M_RCK      = 40000000            FCB$V_MARKDEL  = 00000001            IFB$L_BWB        0000000C            

DEV$M_REC      = 00000001            FCB$V_SPOOL    = 00000004            IFB$L_DVBN       00000058            

DEV$M_RND      = 10000000            FCB$W_ACNT       00000018            IFB$L_EBK        00000044            

DEV$M_RTM      = 20000000            FCB$W_AMOD       0000003E            IFB$L_FRB_PTR    00000028            

DEV$M_SDI      = 00000010            FCB$W_DIRSEQ     00000044            IFB$L_FWA_BDB    00000050            

DEV$M_SHR      = 00010000            FCB$W_FID        00000020            IFB$L_HBK        00000040            

DEV$M_SPL      = 00000040            FCB$W_FID_NUM    00000020            IFB$L_IDX_PTR    00000054            

DEV$M_SQD      = 00000020            FCB$W_FID_RVN    00000024            IFB$L_IOS        0000000C            

DEV$M_SWL      = 02000000            FCB$W_FID_SEQ    00000022            IFB$L_IOS4       00000010            

DEV$M_TRM      = 00000004            FCB$W_FILEPROT   0000003C            IFB$L_IRAB_LNK   0000001C            

DEV$M_WCK      = 80000000            FCB$W_LCNT       0000001A            IFB$L_LAST_FAB   00000024            

DEV$V_ALL      = 00000017            FCB$W_SEGN       00000026            IFB$L_LOCK_BDB   00000050            

DEV$V_AVL      = 00000012            FCB$W_SIZE       00000008            IFB$L_MRN        00000054            

DEV$V_CCL      = 00000001            FCB$W_STATUS     0000001E            IFB$L_NRP_LNK    00000050            

DEV$V_DIR      = 00000003            FCB$W_TCNT       00000046            IFB$L_NWA_PTR    00000028            

DEV$V_DMT      = 00000015            FCB$W_UICGROUP   0000003A            IFB$L_PRIM_DEV   00000000            

DEV$V_ELG      = 00000016            FCB$W_UICMEMBER  00000038            IFB$L_RLB_LNK    0000002C            

DEV$V_FOD      = 0000000E            FCB$W_WCNT       0000001C            IFB$L_RNS_LEN    00000050            

RM0GETDVI       GET DEVICE INFO FROM SYSTEM                      21-AUG-1978 21:25:11   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



IFB$M_BIO      = 00000020            IFB$W_MRS        0000004C            UCB$L_LINK       0000002C            

IFB$M_BRO      = 00000040            IFB$W_RTDEQ      0000003A            UCB$L_LOGADR     00000064            

IFB$M_DEL      = 00000004            IOC$VERIFYCHAN   ********   X   02   UCB$L_MAXBLOCK   00000084            

IFB$M_EXE      = 00000080            RM$GETCCB        0000001F RG    02   UCB$L_MEDIA      0000008C            

IFB$M_GET      = 00000002            RM$GETDEVNAM     00000000 RG    02   UCB$L_NT_DATSSB  00000074            

IFB$M_PUT      = 00000001            RM$GETDEVUNI     0000003C RG    04   UCB$L_NT_INTSSB  00000078            

IFB$M_TRN      = 00000010            RM$GETDVIFID     00000010 RG    04   UCB$L_OPCNT      00000060            

IFB$M_UPD      = 00000008            UCB$B_AMOD       00000053            UCB$L_OWNUIC     0000001C            

IFB$S_ORG      = 00000004            UCB$B_CEX        00000077            UCB$L_PID        00000028            

IFB$S_RFM      = 00000004            UCB$B_CM1        0000004A            UCB$L_RQBL       00000004            

IFB$V_ACCESSED = 00000025            UCB$B_CM2        0000004B            UCB$L_RQFL       00000000            

IFB$V_ANSI_D   = 00000026            UCB$B_DEVCLASS   00000038            UCB$L_SVAPTE     00000068            

IFB$V_ASYNC    = 00000023            UCB$B_DEVTYPE    00000039            UCB$L_SVPN       00000064            

IFB$V_ASYNCWAIT= 00000024            UCB$B_DIPL       00000052            UCB$L_TTCHAR     0000003C            

IFB$V_BIO      = 00000005            UCB$B_DX_SCTCNT  000000A6            UCB$L_VCB        00000030            

IFB$V_BRO      = 00000006            UCB$B_ERTCNT     00000070            UCB$M_BACKP    = 00000020            

IFB$V_BUSY     = 00000020            UCB$B_ERTMAX     00000071            UCB$M_BSY      = 00000100            

IFB$V_CREATE   = 00000032            UCB$B_ESCAPE     0000004B            UCB$M_CANCEL   = 00000008            

IFB$V_DAP      = 0000003E            UCB$B_FEX        00000076            UCB$M_DEADMO   = 00000400            

IFB$V_DAP_OPEN = 0000003D            UCB$B_FIPL       0000000B            UCB$M_DELMBX   = 00000002            

IFB$V_DEL      = 00000002            UCB$B_LOCSRV     0000003C            UCB$M_DIAGBUF  = 00000002            

IFB$V_DFW      = 0000002C            UCB$B_OFFNDX     00000094            UCB$M_DX_WRITE = 00000008            

IFB$V_DLT      = 0000002B            UCB$B_OFFRTC     00000095            UCB$M_ECC      = 00000001            

IFB$V_DMO      = 00000028            UCB$B_REMSRV     0000003D            UCB$M_ERLOGIP  = 00000004            

IFB$V_EOF      = 00000021            UCB$B_SECTORS    0000003C            UCB$M_INT      = 00000002            

IFB$V_EXE      = 00000007            UCB$B_SLAVE      00000074            UCB$M_INTTYPE  = 00000080            

IFB$V_GET      = 00000001            UCB$B_SPR        00000075            UCB$M_JOB      = 00000001            

IFB$V_MSE      = 00000031            UCB$B_STATE      00000052            UCB$M_MOUNTING = 00000200            

IFB$V_NORECLK  = 00000033            UCB$B_TRACKS     0000003D            UCB$M_NOCNVRT  = 00000004            

IFB$V_NSP      = 0000003F            UCB$B_TYPE       0000000A            UCB$M_NT_BFROVF= 00000004            

IFB$V_NWA      = 0000003C            UCB$B_VERTSZ     0000003F            UCB$M_NT_BREAK = 00000020            

IFB$V_ORG      = 00000004            UCB$C_LENGTH     00000074            UCB$M_NT_NAME  = 00000010            

IFB$V_PPF_IMAGE= 00000022            UCB$C_LOGLNK   = 00000001            UCB$M_ONLINE   = 00000010            

IFB$V_PPF_INPUT= 0000002E            UCB$K_LENGTH     00000074            UCB$M_POWER    = 00000020            

IFB$V_PUT      = 00000000            UCB$L_AMB        00000054            UCB$M_PRMMBX   = 00000001            

IFB$V_RFM      = 00000000            UCB$L_ASTQBL     00000010            UCB$M_TIM      = 00000001            

IFB$V_RWC      = 00000027            UCB$L_ASTQFL     0000000C            UCB$M_TIMOUT   = 00000040            

IFB$V_RW_ATTR  = 00000034            UCB$L_CPID       0000005C            UCB$M_TT_NOTIF = 00000004            

IFB$V_SCF      = 0000002A            UCB$L_CRB        00000020            UCB$M_TT_TIMO  = 00000002            

IFB$V_SPL      = 00000029            UCB$L_DDB        00000024            UCB$M_UNLOAD   = 00001000            

IFB$V_SQO      = 0000002D            UCB$L_DEVCHAR    00000034            UCB$M_VALID    = 00000800            

IFB$V_TEF      = 00000036            UCB$L_DEVDEPEND  0000003C            UCB$S_LNKPRI   = 00000002            

IFB$V_TMP      = 00000035            UCB$L_DPC        00000080            UCB$S_LTYPE    = 00000002            

IFB$V_TRN      = 00000004            UCB$L_DUETIM     0000005C            UCB$T_PARTNER    0000000C            

IFB$V_UPD      = 00000003            UCB$L_DX_BFPNT   0000009C            UCB$V_BACKP    = 00000005            

IFB$V_WRTACC   = 00000030            UCB$L_DX_BUF     00000098            UCB$V_BSY      = 00000008            

IFB$W_ASDEVBSIZ  0000005A            UCB$L_DX_RXDB    000000A0            UCB$V_CANCEL   = 00000003            

IFB$W_BKS_BYTES  0000005C            UCB$L_EMB        00000078            UCB$V_DEADMO   = 0000000A            

IFB$W_BKS_RECS   0000005E            UCB$L_FIRST      00000014            UCB$V_DELMBX   = 00000001            

IFB$W_CHNL       00000020            UCB$L_FPC        0000000C            UCB$V_DIAGBUF  = 00000001            

IFB$W_DEQ        0000004E            UCB$L_FQBL       00000004            UCB$V_DX_WRITE = 00000003            

IFB$W_DEVBUFSIZ  00000038            UCB$L_FQFL       00000000            UCB$V_ECC      = 00000000            

IFB$W_EBK0       00000044            UCB$L_FR3        00000010            UCB$V_ERLOGIP  = 00000002            

IFB$W_EBK2       00000046            UCB$L_FR4        00000014            UCB$V_INT      = 00000001            

IFB$W_FFB        00000048            UCB$L_IOQBL      00000044            UCB$V_INTTYPE  = 00000007            

IFB$W_IOS2       0000000E            UCB$L_IOQFL      00000040            UCB$V_JOB      = 00000000            

IFB$W_LRL        0000003E            UCB$L_IRP        0000004C            UCB$V_LNKPRI   = 00000006            

RM0GETDVI       GET DEVICE INFO FROM SYSTEM                      21-AUG-1978 21:25:11   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (1)



UCB$V_LTYPE    = 00000000            WCB$L_P2_LBN     0000002C            

UCB$V_MOUNTING = 00000009            WCB$L_PID        0000000C            

UCB$V_MSGACK   = 00000004            WCB$L_PREVLBN    FFFFFFFC            

UCB$V_MSGFLO   = 00000003            WCB$L_RVT        0000001C            

UCB$V_NOCNVRT  = 00000002            WCB$L_STVBN      00000020            

UCB$V_NT_BFROVF= 00000002            WCB$L_WLBL       00000004            

UCB$V_NT_BREAK = 00000005            WCB$L_WLFL       00000000            

UCB$V_NT_NAME  = 00000004            WCB$M_NOTFCP   = 00000004            

UCB$V_ONLINE   = 00000004            WCB$M_READ     = 00000001            

UCB$V_POWER    = 00000005            WCB$M_SHRWCB   = 00000008            

UCB$V_PRMMBX   = 00000000            WCB$M_WRITE    = 00000002            

UCB$V_SEGFLO   = 00000002            WCB$V_DLOCK    = 00000001            

UCB$V_TIM      = 00000000            WCB$V_NOREAD   = 0000000A            

UCB$V_TIMOUT   = 00000006            WCB$V_NOTFCP   = 00000002            

UCB$V_TT_NOTIF = 00000002            WCB$V_NOTRUNC  = 0000000B            

UCB$V_TT_TIMO  = 00000001            WCB$V_NOWRITE  = 00000000            

UCB$V_UNLOAD   = 0000000C            WCB$V_READ     = 00000000            

UCB$V_VALID    = 0000000B            WCB$V_READCK   = 00000009            

UCB$W_BCNT       0000006E            WCB$V_SEQONLY  = 00000006            

UCB$W_BCR        00000096            WCB$V_SHRWCB   = 00000003            

UCB$W_BOFF       0000006C            WCB$V_SPOOL    = 00000004            

UCB$W_BUFQUO     00000018            WCB$V_WRITE    = 00000001            

UCB$W_BYTESTOGO  0000003E            WCB$V_WRITEAC  = 00000008            

UCB$W_CHARGE     0000004A            WCB$V_WRITECK  = 00000005            

UCB$W_CYLINDERS  0000003E            WCB$W_ACON       00000014            

UCB$W_DA         0000008C            WCB$W_COUNT      00000000            

UCB$W_DC         0000008E            WCB$W_NMAP       00000016            

UCB$W_DEVBUFSIZ  0000003A            WCB$W_P1_COUNT   00000024            

UCB$W_DEVSTS     0000005A            WCB$W_P2_COUNT   0000002A            

UCB$W_DIRSEQ     00000088            WCB$W_PREVCOUNT  FFFFFFFA            

UCB$W_DSTADDR    00000018            WCB$W_REFCNT     0000000E            

UCB$W_DX_BCR     000000A4            WCB$W_SIZE       00000008            

UCB$W_EC1        00000090            

UCB$W_EC2        00000092            

UCB$W_ERRCNT     00000072            

UCB$W_FUNC       0000007E            

UCB$W_MB_SEED    FFFFFFFC            

UCB$W_MSGCNT     00000016            

UCB$W_MSGMAX     00000014            

UCB$W_NT_CHAN    0000007C            

UCB$W_OFFSET     0000008A            

UCB$W_REFC       00000050            

UCB$W_SIZE       00000008            

UCB$W_SRCADDR    0000001A            

UCB$W_STS        00000058            

UCB$W_UNIT       00000048            

UCB$W_VPROT      0000001A            

WCB$B_ACCESS     0000000B            

WCB$B_TYPE       0000000A            

WCB$C_LENGTH     00000024            

WCB$C_MAP        00000024            

WCB$K_LENGTH     00000024            

WCB$K_MAP        00000024            

WCB$L_FCB        00000018            

WCB$L_LBN        00000002            

WCB$L_ORGUCB     00000010            

WCB$L_P1_LBN     00000026            

RM0GETDVI       GET DEVICE INFO FROM SYSTEM                      21-AUG-1978 21:25:11   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  

F$RMSOPEN0       00000029      02     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  

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

F$RMSCLOSERNDN   0000006A      04     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

12816. BYTES LEFT IN FREE MEMORY POOL.

3868. BYTES OF RECLAIMED MEMORY.

OBJ$:RM0GETDVI,LIS$:RM0GETDVI/-SP=EXECML$/ML,LIB$:R/ML,SRC$:RM0GETDVI

33 MLB DIR RDS - 750 GETS TO DEFINE 18 MACROS. 50 INTER. FILE WRITES. 

