SHOW$DEVI_CLI   - SHOW DEVICES: CLI INTERFACE                    21-AUG-1978 19:18:11   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      46  DECLARATIONS

   (3)     137  SHOW$DEVI_CLI	- SHOW DEVICES: CLI INTERFACE

   (4)     213  DEVI_ALLO_PRES	- ACTION ROUTINE FOR /ALLOCATE Q

   (5)     260  DEVI_MOUN_PRES	- ACTION ROUTINE FOR /MOUNTED QU

   (6)     307  DEVI_DEVN_PRES	-ACTION ROUTINE FOR INPUT PARAME

SHOW$DEVI_CLI   - SHOW DEVICES: CLI INTERFACE                    21-AUG-1978 19:18:11   VAX-11 MACRO X0.3-11               Page   1

X001                                                                                                                             (1)



                                     0000     1 	.TITLE	SHOW$DEVI_CLI	- SHOW DEVICES: CLI INTERFACE

                                     0000     2 	.IDENT	/X001/

                                     0000     3 ;

                                     0000     4 ; COPYRIGHT (C) 1977

                                     0000     5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     6 ;

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

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

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

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

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

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

                                     0000    13 ; REMAIN IN DEC.

                                     0000    14 ;

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

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

                                     0000    17 ; CORPORATION.

                                     0000    18 ;

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

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

                                     0000    21 ;

                                     0000    22 ;

                                     0000    23 

                                     0000    24 ;++

                                     0000    25 ;  FACILITY :	DCL SHOW COMMAND

                                     0000    26 ;

                                     0000    27 ; ABSTRACT:	SHOW DEVICES  COMMAND OPTION.

                                     0000    28 ;		In this module, the calls to the CLI necessary to parse

                                     0000    29 ;		the command line are performed.

                                     0000    30 ;

                                     0000    31 ;

                                     0000    32 ; ENVIRONMENT:

                                     0000    33 ;

                                     0000    34 ;	RUNS IN USER MODE

                                     0000    35 ;

                                     0000    36 ;

                                     0000    37 ; AUTHOR: 	B. U. WALTHER,	CREATION DATE: 17-OCT-1977

                                     0000    38 ;

                                     0000    39 ; MODIFIED BY:

                                     0000    40 ;

                                     0000    41 ;		: VERSION

                                     0000    42 ;

                                     0000    43 ;--

                                     0000    44 

SHOW$DEVI_CLI   - SHOW DEVICES: CLI INTERFACE                    21-AUG-1978 19:18:11   VAX-11 MACRO X0.3-11               Page   2

X001            DECLARATIONS                                                                                                     (2)



                                     0000    46 	.SBTTL	DECLARATIONS

                                     0000    47 

                                     0000    48 ;

                                     0000    49 ; INCLUDE FILES:

                                     0000    50 ;

                                     0000    51 

                                     0000    52 	$CLIDEF				; COMMAND LANGUAGE INTERFACE DEFINITIONS

                                     0000    53 	$CLIDEFQUALSHOW			; DEFINE SHOW QUALIFIERS

                                     0000    54 	$DEVDEF				; DEVICE CHARACTERISTICS

                                     0000    55 	$STSDEF				; error code defintions

                                     0000    56 	$LOGDEF				; logical name definitions

                                     0000    57 

                                     0000    58 ;

                                     0000    59 ; MACROS:

                                     0000    60 ;

                                     0000    61 

                                     0000    62 ;

                                     0000    63 ; EQUATED SYMBOLS:

                                     0000    64 ;

                                     0000    65 

                                     0000    66 	$GBLINI	GLOBAL				; MAKE DEFINITIONS GLOBAL

                                     0000    67 	$VIELD	DEVI,0,<-			; DEFINE BITMASKS

                                     0000    68 			<DEVN,,M>, -		; DEVICE NAME PRESENT

                                     0000    69 			<ALLO,,M>, -		; ALLOCATED BIT

                                     0000    70 			<BRIE,,M>,-		; BRIEF BIT

                                     0000    71 			<FULL,,M>, -		; FULL BIT

                                     0000    72 			<MOUN,,M>, -		; MOUNT BIT

                                     0000    73 			>

                           0000000F  0000    74 DEVNAM_BUFF_LEN = 15				; MAXIMUM LENGTH OF GENERIC DEVICE NAME

                                     0000    75 

                                     0000    76 ;

                                     0000    77 ; OWN STORAGE

                                     0000    78 ;

                                     0000    79 

                                 00000000    80 	.PSECT	SHOW$RWDATA	LONG,RD,WRT,NOEXE

                                     0000    81 

                                     0000    82 ;

                                     0000    83 ; DEFINE CLI CALL BACK STRUCTURES

                                     0000    84 ;

                                     0000    85 

                                     0000    86 SHOW_DEVI_GETQU:

                                     0000    87 	$CLIREQDESC	-			; CLI REQUEST DESCRIPTOR BLOCK

                                     0000    88 		RQTYPE=CLI$K_GETQUAL, -		; TO GET QUALIFIERS

                                     0000    89 		QUALST=SHOW_DEVI_QUALS 		; POINTER TO QUALIFIER LIST

                                     001C    90 SHOW_DEVI_QUALS:

                                     001C    91 	$CLIQUALDEF	-			;

                                     001C    92 		QDCODE=CLI$K_SHDV_ALLO, -	; SHOW DEVICES/ALLOCATED

                                     001C    93 		SETLST=DEVI$V_ALLO, -		; SET BIT

                                     001C    94 		TRUACT=DEVI_ALLO_PRES		; ACTION ROUTINE

                                     0034    95 	$CLIQUALDEF	-			;

                                     0034    96 		QDCODE=CLI$K_SHDV_MOUN, -	; SHOW SHDVCES/MOUNTED

                                     0034    97 		SETLST=DEVI$V_MOUN,-		; SET LIST

                                     0034    98 		TRUACT=DEVI_MOUN_PRES		; ACTION ROUTINE

                                     004C    99 	$CLIQUALDEF	-

                                     004C   100 		QDCODE=CLI$K_SHDV_BRIE,-	; SHOW DEVICES/BRIEF

                                     004C   101 		SETLST=DEVI$V_BRIE		; SET LIST

                                     0064   102 	$CLIQUALDEF	-

SHOW$DEVI_CLI   - SHOW DEVICES: CLI INTERFACE                    21-AUG-1978 19:18:11   VAX-11 MACRO X0.3-11               Page   3

X001            DECLARATIONS                                                                                                     (2)



                                     0064   103 		QDCODE=CLI$K_SHDV_FULL,	-	; SHOW DEVICES/FULL

                                     0064   104 		SETLST=DEVI$V_FULL		; SET LIST

                                     007C   105 	$CLIQUALDEF	END_LIST		; END OF QUALIFIER LIST

                                     007D   106 SHOW_DEVI_GETIN:

                                     007D   107 	$CLIREQDESC	-			;

                                     007D   108 		RQTYPE=CLI$K_INPUT1, -	 	; GET PARAMETER

                                     007D   109 		BITNUM=DEVI$V_DEVN,-		; BIT FOR PARAMETER PRESENT

                                     007D   110 		PRSACT=DEVI_DEVN_PRES		;

                                     0099   111 DEVNAM_BUFF:

                           000000A8  0099   112 	.BLKB	DEVNAM_BUFF_LEN			; BUFFER FOR PARSED DEVICE NAME

                                     00A8   113 DEVI_Q_TRDEVN:				

                           00000000  00A8   114 	.LONG	0				; DESCRIPTOR TO TRANSLATED DEVICE NAME

                           000000B0' 00AC   115 	.LONG	DEVI_T_TRDEVN

                                     00B0   116 DEVI_T_TRDEVN:

                           000000F0  00B0   117 	.BLKB	LOG$C_NAMLENGTH			; BUFFER FOR TRANSLATED DEVICE NAME

                                     00F0   118 

                                     00F0   119 ;

                                     00F0   120 ; global storage

                                     00F0   121 ;

                                     00F0   122 DEVI$L_BITLIS::

                           00000000  00F0   123 	.LONG	0				; BIT LIST FOR CLI

                                     00F4   124 DEVI$L_CH_MSK::

                           FFFFFFFF  00F4   125 	.LONG	^C<0>			; MASK FOR DEVICE CHARACTERISTICS

                                     00F8   126 						; ( RELEVANT BITS ARE CLEARED)

                                     00F8   127 DEVI$L_CH_CRIT::

                           00000000  00F8   128 	.LONG	0				; CRITERION FOR DEVICE CHARACTERISTICS 

                                     00FC   129 						; ( I.E AFTER APPLYING ABOVE MASK, DEVICE CHARS MUST MATCH THIS WORD)

                                     00FC   130 DEVI$Q_DEVNAM::

                           00000000  00FC   131 	.LONG	0				; QUADWORD DESCRIPTOR OF PARSED

                           00000099' 0100   132 	.LONG	DEVNAM_BUFF			; GENERIC DEVICE NAME

                                     0104   133 DEVI$W_UNIT::

                           00000108  0104   134 	.BLKL	1				; DEVICE UNIT RESULTING FROM PARSE

                                     0108   135 						; (NOTE: THE ABOVE HAVE TO BE CONTIGUOUS)

SHOW$DEVI_CLI   - SHOW DEVICES: CLI INTERFACE                    21-AUG-1978 19:18:11   VAX-11 MACRO X0.3-11               Page   4

X001            SHOW$DEVI_CLI - SHOW DEVICES: CLI INTERFACE                                                                      (3)



                                     0108   137 	.SBTTL	SHOW$DEVI_CLI	- SHOW DEVICES: CLI INTERFACE

                                     0108   138 ;++

                                     0108   139 ; FUNCTIONAL DESCRIPTION:

                                     0108   140 ;

                                     0108   141 ;	This routine performs the necessary calls to the CLI to parse the

                                     0108   142 ;	command line. True action routines are called for each of the

                                     0108   143 ;	qualifiers found present.

                                     0108   144 ;	The routine invoked if an input parameter is present parses the

                                     0108   145 ;	latter as a physical device name and, after validation,

                                     0108   146 ;	returns the parsed device name and unit in global locations.

                                     0108   147 ;

                                     0108   148 ; CALLING SEQUENCE:

                                     0108   149 ;

                                     0108   150 ;	CALLS	#2,SHOW$DEVICES

                                     0108   151 ;

                                     0108   152 ; INPUT PARAMETERS:

                                     0108   153 ;

                                     0108   154 ;	offset	CLI$A_UTILSERV	=	 address of the CLI utility service routine

                                     0108   155 ;

                                     0108   156 ; IMPLICIT INPUTS:

                                     0108   157 ;

                                     0108   158 ;	NONE

                                     0108   159 ;

                                     0108   160 ; OUTPUT PARAMETERS:

                                     0108   161 ;

                                     0108   162 ;	NONE

                                     0108   163 ;

                                     0108   164 ; IMPLICIT OUTPUTS:

                                     0108   165 ;

                                     0108   166 ;	NONE

                                     0108   167 ;

                                     0108   168 ; COMPLETION CODES:

                                     0108   169 ;

                                     0108   170 ;	R0	= status code

                                     0108   171 ;

                                     0108   172 ; SIDE EFFECTS:

                                     0108   173 ;

                                     0108   174 ;	NONE

                                     0108   175 ;

                                     0108   176 ;--

                                     0108   177 

                                 00000000   178 	.PSECT	SHOW$CODE	BYTE,RD,NOWRT,EXE

                               0FFC' 0000   179 	.ENTRY	SHOW$DEVI_CLI,^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>

                                     0002   180 ;

                                     0002   181 ; request qualifiers from CLI

                                     0002   182 ;

                     00F0'CF     9F  0002   183 	PUSHAB	W^DEVI$L_BITLIS			; BIT LIST

                     0000'CF     9F  0006   184 	PUSHAB	W^SHOW$A_CLIWORK		; CLI WORK AREA

                     0000'CF     9F  000A   185 	PUSHAB	W^SHOW_DEVI_GETQU		; CLI REQUEST QUALIFIER PARSING

         08 BC            03     FB  000E   186 	CALLS	#3,@CLI$A_UTILSERV(AP)		; CALL CLI UTILITY SERVICE ROUTINE

                                     0012   187 ;

                                     0012   188 ; request input parameter (if any) from CLI

                                     0012   189 ;

   00000000'EF       0000'8F     3C  0012   190 	MOVZWL	#SS$_NORMAL,SHOW$L_STATUS	; assume success

                     00F0'CF     9F  001B   191 	PUSHAB	W^DEVI$L_BITLIS			; BIT LIST

                     0000'CF     9F  001F   192 	PUSHAB	W^SHOW$A_CLIWORK		; CLI WORK AREA

                     007D'CF     9F  0023   193 	PUSHAB	W^SHOW_DEVI_GETIN		; REQUEST INPUT PARAMETER (DEVICE NAME)

SHOW$DEVI_CLI   - SHOW DEVICES: CLI INTERFACE                    21-AUG-1978 19:18:11   VAX-11 MACRO X0.3-11               Page   5

X001            SHOW$DEVI_CLI - SHOW DEVICES: CLI INTERFACE                                                                      (3)



         08 BC            03     FB  0027   194 	CALLS 	#3,@CLI$A_UTILSERV(AP)		; CALL CLI 

            50       0000'CF     D0  002B   195 	MOVL	W^SHOW$L_STATUS,R0		; load status set by action routine

            09            50     E9  0030   196 	BLBC	R0,90$				; branch if error

                                     0033   197 ;

                                     0033   198 ; call SHOW DEVICES utility to perform the requested functions

                                     0033   199 ;

                     00A8'CF     DF  0033   200 	PUSHAL	W^DEVI_Q_TRDEVN		; DESCRIPTOR TO TRANSLATED INPUT PARAMETER

                                     0037   201 						; IN COMMAND LINE

       0000'CF            01     FB  0037   202 	CALLS	#1,W^SHOW$DEVI_UTL		; CALL SHOW DEVICES UTILITY MODULE

                                     003C   203 

                                     003C   204 ;

                                     003C   205 ; Exit

                                     003C   206 ;

                                     003C   207 

                                     003C   208 

                                     003C   209 90$:

       0000'CF            50     D0  003C   210 	MOVL	R0,W^SHOW$L_STATUS		; save status

                                 04  0041   211 	RET					; AND RETURN

SHOW$DEVI_CLI   - SHOW DEVICES: CLI INTERFACE                    21-AUG-1978 19:18:11   VAX-11 MACRO X0.3-11               Page   6

X001            DEVI_ALLO_PRES - ACTION ROUTINE FOR /ALLOCATE Q                                                                  (4)



                                     0042   213 	.SBTTL	DEVI_ALLO_PRES	- ACTION ROUTINE FOR /ALLOCATE QUALIFIER

                                     0042   214 

                                     0042   215 ;++

                                     0042   216 ; FUNCTIONAL DESCRIPTION:

                                     0042   217 ;

                                     0042   218 ;	Action routine for /ALLOCATE qualifier true.

                                     0042   219 ;

                                     0042   220 ;

                                     0042   221 ; CALLING SEQUENCE:

                                     0042   222 ;

                                     0042   223 ;		CALLS	#3,DEVI_ALLO_PRES

                                     0042   224 ;	( called by the CLI as a true action routine)

                                     0042   225 ;

                                     0042   226 ; INPUT PARAMETERS:

                                     0042   227 ;

                                     0042   228 ;	not used

                                     0042   229 ;

                                     0042   230 ; IMPLICIT INPUTS:

                                     0042   231 ;

                                     0042   232 ;	NONE

                                     0042   233 ;

                                     0042   234 ; OUTPUT PARAMETERS:

                                     0042   235 ;

                                     0042   236 ;	NONE

                                     0042   237 ;

                                     0042   238 ; IMPLICIT OUTPUTS:

                                     0042   239 ;

                                     0042   240 ;	modifies bitmasks governing the search algorithm according

                                     0042   241 ;	 to device characteristics

                                     0042   242 ;

                                     0042   243 ; COMPLETION CODES:

                                     0042   244 ;

                                     0042   245 ;	NONE

                                     0042   246 ;

                                     0042   247 ; SIDE EFFECTS:

                                     0042   248 ;

                                     0042   249 ;	NONE

                                     0042   250 ;

                                     0042   251 ;--

                                     0042   252 

                                 00000042   253 	.PSECT	SHOW$CODE	BYTE,RD,NOWRT,EXE

                                     0042   254 DEVI_ALLO_PRES:

                               0000  0042   255 	.WORD	0

       00F4'CF   00800000 8F     CA  0044   256 	BICL	#DEV$M_ALL,W^DEVI$L_CH_MSK		; ALLOCATED BIT IS RELEVANT

       00F8'CF   00800000 8F     C8  004D   257 	BISL	#DEV$M_ALL,W^DEVI$L_CH_CRIT		; ALLOCATED BIT HAS TO BE SET

                                 04  0056   258 	RET

SHOW$DEVI_CLI   - SHOW DEVICES: CLI INTERFACE                    21-AUG-1978 19:18:11   VAX-11 MACRO X0.3-11               Page   7

X001            DEVI_MOUN_PRES - ACTION ROUTINE FOR /MOUNTED QU                                                                  (5)



                                     0057   260 	.SBTTL	DEVI_MOUN_PRES	- ACTION ROUTINE FOR /MOUNTED QUALIFIER

                                     0057   261 

                                     0057   262 ;++

                                     0057   263 ; FUNCTIONAL DESCRIPTION:

                                     0057   264 ;

                                     0057   265 ;	Action routine for /MOUNTED qualifier true.

                                     0057   266 ;

                                     0057   267 ;

                                     0057   268 ; CALLING SEQUENCE:

                                     0057   269 ;

                                     0057   270 ;		CALLS 	#3,DEVI_MOUN_PRES

                                     0057   271 ;	( called by the CLI as a true action routine)

                                     0057   272 ;

                                     0057   273 ; INPUT PARAMETERS:

                                     0057   274 ;

                                     0057   275 ;	not used

                                     0057   276 ;

                                     0057   277 ; IMPLICIT INPUTS:

                                     0057   278 ;

                                     0057   279 ;	NONE

                                     0057   280 ;

                                     0057   281 ; OUTPUT PARAMETERS:

                                     0057   282 ;

                                     0057   283 ;	NONE

                                     0057   284 ;

                                     0057   285 ; IMPLICIT OUTPUTS:

                                     0057   286 ;

                                     0057   287 ;	modifies bitmasks governing the search algorithm according

                                     0057   288 ;	 to device characteristics

                                     0057   289 ;

                                     0057   290 ; COMPLETION CODES:

                                     0057   291 ;

                                     0057   292 ;	NONE

                                     0057   293 ;

                                     0057   294 ; SIDE EFFECTS:

                                     0057   295 ;

                                     0057   296 ;	NONE

                                     0057   297 ;

                                     0057   298 ;--

                                     0057   299 

                                 00000057   300 	.PSECT	SHOW$CODE	BYTE,RD,NOWRT,EXE

                                     0057   301 DEVI_MOUN_PRES:

                               0000  0057   302 	.WORD	0

       00F4'CF   00080000 8F     CA  0059   303 	BICL	#DEV$M_MNT,W^DEVI$L_CH_MSK		; MOUNTED BIT IS RELEVANT

       00F8'CF   00080000 8F     C8  0062   304 	BISL	#DEV$M_MNT,W^DEVI$L_CH_CRIT		; MOUNTED BIT HAS TO BE SET

                                 04  006B   305 	RET

SHOW$DEVI_CLI   - SHOW DEVICES: CLI INTERFACE                    21-AUG-1978 19:18:11   VAX-11 MACRO X0.3-11               Page   8

X001            DEVI_DEVN_PRES -ACTION ROUTINE FOR INPUT PARAME                                                                  (6)



                                     006C   307 	.SBTTL	DEVI_DEVN_PRES	-ACTION ROUTINE FOR INPUT PARAMETER PRESENT

                                     006C   308 ;++

                                     006C   309 ; FUNCTIONAL DESCRIPTION:

                                     006C   310 ;

                                     006C   311 ;	Action routine for input parameter present.

                                     006C   312 ;

                                     006C   313 ;	Parses the input parameter as a physical device name, i.e:

                                     006C   314 ;		<alphabetic string> <digit string> < colon>

                                     006C   315 ;		   (mandatory)	      ( optional)   ( optional)

                                     006C   316 ;	If  valid, returns quadword descriptor of generic device name

                                     006C   317 ;	and binary value of unit (-1 if no unit specified) in the following

                                     006C   318 ;	global locations, respectively:

                                     006C   319 ;		DEVI$Q_DEVNAM

                                     006C   320 ;		DEVI$W_UNIT

                                     006C   321 ;	A error message is issued if an invalid string is detected.

                                     006C   322 ;

                                     006C   323 ;

                                     006C   324 ; CALLING SEQUENCE:

                                     006C   325 ;

                                     006C   326 ;	This routine is called by the CLI if an input parameter is found

                                     006C   327 ;	present.

                                     006C   328 ;

                                     006C   329 ; INPUT PARAMETERS:

                                     006C   330 ;

                                     006C   331 ;	NOT USED

                                     006C   332 ;

                                     006C   333 ; IMPLICIT INPUTS:

                                     006C   334 ;

                                     006C   335 ;	COMMAND LINE

                                     006C   336 ;

                                     006C   337 ; OUTPUT PARAMETERS:

                                     006C   338 ;

                                     006C   339 ;	DEVI$Q_DEVNAM	= QUADWORD DESCRIPTOR OF GENERIC DEVICE NAME STRING

                                     006C   340 ;	DEVI$W_UNIT	= BINARY UNIT NUMBER. ( =-1 MEANS NO UNIT SPECIFIED)

                                     006C   341 ;

                                     006C   342 ; IMPLICIT OUTPUTS:

                                     006C   343 ;

                                     006C   344 ;	NONE

                                     006C   345 ;

                                     006C   346 ; COMPLETION CODES:

                                     006C   347 ;

                                     006C   348 ;	SHOW$L_STATUS	= SS$_NORMAL	: SUCCESSFUL PARSING OF DEVICE NAME

                                     006C   349 ;			= SS$_IVDEVNAM	: INVALID DEVICE MAME

                                     006C   350 ;

                                     006C   351 ; SIDE EFFECTS:

                                     006C   352 ;

                                     006C   353 ;	NONE

                                     006C   354 ;

                                     006C   355 ;--

                                     006C   356 

                                 0000006C   357 	.PSECT	SHOW$CODE	BYTE,RD,NOWRT,EXE

                                     006C   358 

                                     006C   359 DEVI_DEVN_PRES:

                               03D0  006C   360 	.WORD	^M<R4,R6,R7,R8,R9>

                                     006E   361 

                                     006E   362 ;

                                     006E   363 ; parse device name

SHOW$DEVI_CLI   - SHOW DEVICES: CLI INTERFACE                    21-AUG-1978 19:18:11   VAX-11 MACRO X0.3-11               Page   9

X001            DEVI_DEVN_PRES -ACTION ROUTINE FOR INPUT PARAME                                                                  (6)



                                     006E   364 ;

                                     006E   365 

                          1F     10  006E   366 	BSB	PARSE_DEVNAM			; PARSE DEVICE NAME

            16            50     E8  0070   367 	BLBS	R0,90$				; BRANCH IF SUCCESS

                 00000000'8F     DD  0073   368 	PUSHL	#SHOW$_IVDEVNAM			; MESSAGE CODE FOR 'INVALID DEVICE'

                     00A8'CF     DF  0079   369 	PUSHAL	W^DEVI_Q_TRDEVN			; DESCRIPTOR TO TRANSLATED INPUT PARAMATER

       0000'CF            02     FB  007D   370 	CALLS 	#2,W^SHOW$PRINT_MSG		; ISSUE MESSAGE

            50   10000000 8F     C8  0082   371 	BISL	#STS$M_INHIB_MSG,R0		; inhibit further message output

                                     0089   372 90$:

       0000'CF            50     D0  0089   373 	MOVL	R0,W^SHOW$L_STATUS		; save status

                                 04  008E   374 	RET					; AND RETURN

                                     008F   375 

                                     008F   376 ;

                                     008F   377 ; subroutine to parse device name

                                     008F   378 ;

                                     008F   379 

                                     008F   380 PARSE_DEVNAM:

                                     008F   381 

                                     008F   382 ;

                                     008F   383 ; TRANSLATE INPUT PARAMETER ONE LEVEL

                                     008F   384 ;

                                     008F   385 

       00A8'CF       0040 8F     3C  008F   386 	MOVZWL	#LOG$C_NAMLENGTH,W^DEVI_Q_TRDEVN ; INSERT LENGTH OF BUFFER DESCRIPTOR

                                     0096   387 	$TRNLOG_S	-			;

                                     0096   388 		LOGNAM=<W^SHOW_DEVI_GETIN+CLI$Q_RQDESC>,-	; INPUT DESCRIPTOR

                                     0096   389 		RSLBUF=W^DEVI_Q_TRDEVN,-	; DESCRIPTOR TO TRANSLATED STRING

                                     0096   390 		RSLLEN=W^DEVI_Q_TRDEVN		; STORE RESULTANT LENGHT

                                     00AF   391 

            01            50     E8  00AF   392 	BLBS	R0,5$			; CONTINUE ON SUCCESS

                                 05  00B2   393 	RSB				; ELSE RETURN ERROR CODE

                                     00B3   394 

                                     00B3   395 5$:

            1B       00B0'CF     91  00B3   396 	CMPB	W^DEVI_T_TRDEVN,#27	; CHECK FOR ESCAPE

                          0A     12  00B8   397 	BNEQU	7$			; BRANCH IF NOT ESCAPE

       00A8'CF            04     A2  00BA   398 	SUBW2	#4,W^DEVI_Q_TRDEVN	; ADJUST LENGTH

       00AC'CF            04     C0  00BF   399 	ADDL2	#4,W^DEVI_Q_TRDEVN+4	; ADJUST POINTER

                                     00C4   400 7$:

            59       00AC'CF     D0  00C4   401 	MOVL	W^DEVI_Q_TRDEVN+4,R9	; POINTER TO TRANSLATED DEVICE NAME

            58       00A8'CF     3C  00C9   402 	MOVZWL	W^DEVI_Q_TRDEVN,R8	; GET LENGTH OF TRANSLATED NAME

            58            59     C0  00CE   403 	ADDL2	R9,R8			; CALCULATE POINTER TO END 

         5F 8F            69     91  00D1   404 	CMPB	(R9),#^A/_/		; 1ST CHARACTER UNDERSCORE ?

                          02     12  00D5   405 	BNEQU	8$			; NOT UNDERSCORE

                          59     D6  00D7   406 	INCL	R9			; SKIP UNDERCORE

                                     00D9   407 8$:

            56   FFFFFFFF 8F     D0  00D9   408 	MOVL	#-1,R6			; RESULTING UNIT NUMBER

            54            56     D0  00E0   409 	MOVL	R6,R4			; LENGTH OF STRING PARSED SO FAR

                                     00E3   410 

                                     00E3   411 ;

                                     00E3   412 ; check for alphabetic

                                     00E3   413 ;

                                     00E3   414 

                                     00E3   415 10$:

            58            59     D1  00E3   416 	CMPL	R9,R8				; END OF INPUT PARAMETER ?

                          5F     1E  00E6   417 	BGEQU	75$				; BRANCH IF END OF INPUT

            57            89     90  00E8   418 	MOVB	(R9)+,R7			; FETCH NEXT CHARACTER

            54            0F     F3  00EB   419 	AOBLEQ	#DEVNAM_BUFF_LEN,R4,12$		; CHECK LENGTH OF RESULTANT STRING

                          02         00EE       

SHOW$DEVI_CLI   - SHOW DEVICES: CLI INTERFACE                    21-AUG-1978 19:18:11   VAX-11 MACRO X0.3-11               Page  10

X001            DEVI_DEVN_PRES -ACTION ROUTINE FOR INPUT PARAME                                                                  (6)



                          4E     11  00EF   420 	BRB	70$				; BRANCH IF STRING TOO LONG

                                     00F1   421 12$:

         41 8F            57     91  00F1   422 	CMPB	R7,#^A/A/			; UPPER CASE ALPHABETIC ?

                          21     1F  00F5   423 	BLSSU	40$				; IF NO, MAYBE A DIGIT

         5A 8F            57     91  00F7   424 	CMPB	R7,#^A/Z/				; UPPER CASE ?

                          0C     1B  00FB   425 	BLEQU	20$				; YES, GO TO STORE

         61 8F            57     91  00FD   426 	CMPB	R7,#^A/a/			; LOWER CASE ALPHABETIC ?

                          3C     1F  0101   427 	BLSSU	70$				; IF NO, ERROR

         7A 8F            57     91  0103   428 	CMPB	R7,#^A/z/			; LOWER CASE ?

                          36     1A  0107   429 	BGTRU	70$				; IF NO, ERROR

                                     0109   430 20$:

       0099'C4            57     90  0109   431 	MOVB	R7,DEVNAM_BUFF(R4)		; STORE CHARACTER

                          D3     11  010E   432 	BRB	10$				; AND GO FETCH NEXT ONE

                                     0110   433 

                                     0110   434 ;

                                     0110   435 ; check for digit

                                     0110   436 ;

                                     0110   437 

                                     0110   438 30$:

            58            59     D1  0110   439 	CMPL	R9,R8				; END OF INPUT PARAMETER ?

                          34     13  0113   440 	BEQLU	80$				; BRANCH IF END

            57            89     90  0115   441 	MOVB	(R9)+,R7			; FETCH NEXT CHARACTER

                                     0118   442 40$:

            30            57     91  0118   443 	CMPB	R7,#^A/0/			; IS IT A DIGIT ?

                          22     1F  011B   444 	BLSSU	70$				; IF NO, ERROR

            39            57     91  011D   445 	CMPB	R7,#^A/9/			; DIGIT ?

                          13     1A  0120   446 	BGTRU	50$				; IF NO, MAYBE A COLON

            57            30     82  0122   447 	SUBB2	#^A/0/,R7			; CONVERT TO BINARY

                          56     B5  0125   448 	TSTW	R6				; FIRST DIGIT ?

                          02     18  0127   449 	BGEQ	42$				; BRANCH IF NO

                          56     D4  0129   450 	CLRL	R6				; INITIALIZE RESULTANT UNIT NUMBER

                                     012B   451 42$:

            56            0A     A4  012B   452 	MULW	#10,R6				; SCALE RESULT BY 10 DECIMAL

                          0F     1D  012E   453 	BVS	70$				; IF OVERFLOW, ERROR

            56            57     A0  0130   454 	ADDW2	R7,R6				; ADD NEW DIGIT

                          DB     11  0133   455 	BRB	30$				; FETCH NEXT DIGIT

                                     0135   456 

                                     0135   457 ;

                                     0135   458 ; check for colon

                                     0135   459 ;

                                     0135   460 

                                     0135   461 50$:

            3A            57     91  0135   462 	CMPB	R7,#^A/:/			; IS IT A COLON ?

                          05     12  0138   463 	BNEQU	70$				; IF NOT THEN ERROR

            59            58     D1  013A   464 	CMPL 	R8,R9				; WAS THIS LAST CHARACTER ?

                          0A     13  013D   465 	BEQLU	80$				; OK IF LAST

                                     013F   466 						; ELSE DROP INTO ERROR EXIT

                                     013F   467 

                                     013F   468 ;

                                     013F   469 ; invalid device name

                                     013F   470 ;

                                     013F   471 

                                     013F   472 70$:

            50   00000000'8F     D0  013F   473 	MOVL	#SS$_IVDEVNAM,R0		; INVALID DEVICE NAME

                                 05  0146   474 	RSB					; RETURN FROM SUBROUTINE

                                     0147   475 

                                     0147   476 ;

SHOW$DEVI_CLI   - SHOW DEVICES: CLI INTERFACE                    21-AUG-1978 19:18:11   VAX-11 MACRO X0.3-11               Page  11

X001            DEVI_DEVN_PRES -ACTION ROUTINE FOR INPUT PARAME                                                                  (6)



                                     0147   477 ; store parsed values

                                     0147   478 ;

                                     0147   479 

                                     0147   480 75$:

                          54     B6  0147   481 	INCW	R4				; ADJUST DEVICE NAME LENGTH

                                     0149   482 80$:

   000000FC'EF            54     B0  0149   483 	MOVW	R4,DEVI$Q_DEVNAM		; STORE LENGTH OF GENERIC NAME

   00000104'EF            56     B0  0150   484 	MOVW	R6,DEVI$W_UNIT			; STORE BINARY UNIT NUMBER

            50   00000000'8F     D0  0157   485 	MOVL	#SS$_NORMAL,R0			; indicate sucess

                                 05  015E   486 	RSB					; RETURN FROM SUBROUTINE

                                     015F   487 	.END

SHOW$DEVI_CLI   - SHOW DEVICES: CLI INTERFACE                    21-AUG-1978 19:18:11   VAX-11 MACRO X0.3-11               Page  12

SYMBOL TABLE                                                                                                                     (6)



$$$            = 00000004            CLI$K_QUALDEF    00000014            CLI$M_DBGEXCP  = 00010000            

$$$GBL         = 00000000            CLI$K_REQDESC    0000001C            CLI$M_DBGTRU   = 00000002            

$CLI.          = 0000007D R     03   CLI$K_SHDV_ALLO= 00000001            CLI$M_DEBUG    = 00000001            

$CLI..         = 00000099 R     03   CLI$K_SHDV_BRIE= 00000002            CLI$M_DUMMY    = 00000002            

$QUALNUM$      = 00000002            CLI$K_SHDV_FULL= 00000003            CLI$M_EXPNAM   = 00000004            

BIT...         = 00000005            CLI$K_SHDV_MOUN= 00000004            CLI$M_INDIRECT = 00000010            

CLI$A_ABSACT     00000014            CLI$K_SHLG_ALL = 00000004            CLI$M_KEYVALU  = 00000002            

CLI$A_ERRACT     00000004            CLI$K_SHLG_GROU= 00000002            CLI$M_LASTVAL  = 00000001            

CLI$A_FLSACT     00000010            CLI$K_SHLG_PROC= 00000003            CLI$M_MOREINP  = 00000004            

CLI$A_IMGFILED   00000010            CLI$K_SHLG_SYST= 00000001            CLI$M_MOREVALS = 00000001            

CLI$A_IMGHDADR   0000000C            CLI$K_SHOW_DAYT= 00000001            CLI$M_PARMDEF  = 00000008            

CLI$A_PROGXFER   00000004            CLI$K_SHOW_DEFA= 00000003            CLI$M_PARMPRS  = 00000001            

CLI$A_PRSACT     00000010            CLI$K_SHOW_DEVI= 0000000A            CLI$M_PARMREQ  = 00000001            

CLI$A_QDVALADR   00000008            CLI$K_SHOW_LOGI= 00000004            CLI$M_QDEXPA   = 00000004            

CLI$A_QUALST     00000018            CLI$K_SHOW_MAGT= 00000012            CLI$M_QDUSRV   = 00000002            

CLI$A_RQADDR     0000000C            CLI$K_SHOW_NETW= 00000010            CLI$M_QUALEXP  = 00000002            

CLI$A_TRUACT     0000000C            CLI$K_SHOW_PRIN= 0000000F            CLI$M_QUALTRU  = 00000001            

CLI$A_UTILSERV   00000008            CLI$K_SHOW_PROC= 0000000C            CLI$M_TRMVRBLV = 00000300            

CLI$B_BITNUM     00000001            CLI$K_SHOW_PROT= 00000005            CLI$M_VERIFY   = 00000004            

CLI$B_QDBLKSIZ   00000000            CLI$K_SHOW_QUEU= 00000006            CLI$M_VFYINP   = 00000020            

CLI$B_QDCODE     00000001            CLI$K_SHOW_RMS_= 00000011            CLI$Q_QDVALDESC  00000004            

CLI$B_QDFLGS     00000002            CLI$K_SHOW_STAT= 0000000B            CLI$Q_RQDESC     00000008            

CLI$B_QDSTAT     00000003            CLI$K_SHOW_SYMB= 00000007            CLI$S_PRITYP   = 00000004            

CLI$B_RQFLGS     00000002            CLI$K_SHOW_SYST= 0000000D            CLI$S_SUBTYP   = 00000004            

CLI$B_RQINDX     00000001            CLI$K_SHOW_TERM= 0000000E            CLI$S_TRMVRBLV = 00000002            

CLI$B_RQSTAT     00000003            CLI$K_SHOW_TIME= 00000002            CLI$V_ABSADR   = 00000001            

CLI$B_RQTYPE     00000000            CLI$K_SHOW_TRAN= 00000008            CLI$V_ALLOCCUR = 00000000            

CLI$C_QDBITS     00000014            CLI$K_SHOW_WORK= 00000009            CLI$V_BATCH    = 00000003            

CLI$C_QUALDEF    00000014            CLI$K_SHPR_ACCO= 00000002            CLI$V_CONCATINP= 00000001            

CLI$C_REQDESC    0000001C            CLI$K_SHPR_ALL = 00000005            CLI$V_DBGEXCP  = 00000010            

CLI$C_WORKAREA   00000080            CLI$K_SHPR_PRIV= 00000003            CLI$V_DBGTRU   = 00000001            

CLI$K_ASCIIVAL = 00000041            CLI$K_SHPR_QUOT= 00000001            CLI$V_DEBUG    = 00000000            

CLI$K_CLISERV  = 00000005            CLI$K_SHPR_SUBP= 00000004            CLI$V_DUMMY    = 00000001            

CLI$K_ENDPRM1  = 00000030            CLI$K_SHQU_ALL = 00000001            CLI$V_EXPNAM   = 00000002            

CLI$K_ENDPRM2  = 00000031            CLI$K_SHQU_BATC= 00000002            CLI$V_INDIRECT = 00000004            

CLI$K_ENDPRM3  = 00000032            CLI$K_SHQU_BRIE= 00000003            CLI$V_KEYVALU  = 00000001            

CLI$K_ENDPRM4  = 00000033            CLI$K_SHQU_DEVI= 00000004            CLI$V_LASTVAL  = 00000000            

CLI$K_FILSPEC  = 00000044            CLI$K_SHQU_ENTR= 00000005            CLI$V_MOREINP  = 00000002            

CLI$K_GETCMD   = 00000001            CLI$K_SHQU_FULL= 00000006            CLI$V_MOREVALS = 00000000            

CLI$K_GETOPT   = 00000003            CLI$K_SHSS_PROC= 00000001            CLI$V_PARMDEF  = 00000003            

CLI$K_GETQUAL  = 00000002            CLI$K_SHSY_ALL = 00000003            CLI$V_PARMPRS  = 00000000            

CLI$K_INITPRS  = 00000000            CLI$K_SHSY_GLOB= 00000001            CLI$V_PARMREQ  = 00000000            

CLI$K_INPSPEC  = 00000001            CLI$K_SHSY_LOCA= 00000002            CLI$V_PRITYP   = 00000004            

CLI$K_INPUT1   = 00000010            CLI$K_SHTE_PERM= 00000001            CLI$V_QDEXPA   = 00000002            

CLI$K_INPUT2   = 00000011            CLI$K_UTILOPR  = 00000000            CLI$V_QDUSRV   = 00000001            

CLI$K_INPUT3   = 00000012            CLI$K_VALCONV  = 00000004            CLI$V_QUALEXP  = 00000001            

CLI$K_INPUT4   = 00000013            CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            

CLI$K_KEYVAL   = 00000043            CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            

CLI$K_KEYWORD  = 00000042            CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            

CLI$K_NUMERVAL = 00000040            CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            

CLI$K_OUTPUT1  = 00000020            CLI$L_RQVALU     0000000C            CLI$V_VFYINP   = 00000005            

CLI$K_OUTPUT2  = 00000021            CLI$L_USRVAL     00000014            CLI$W_QDVALSIZ   00000004            

CLI$K_OUTPUT3  = 00000022            CLI$L_WORKAREA   00000000            CLI$W_RQSIZE     00000008            

CLI$K_OUTPUT4  = 00000023            CLI$M_ABSADR   = 00000002            CLI$W_SERVCOD    00000001            

CLI$K_OUTSPEC  = 00000002            CLI$M_ALLOCCUR = 00000001            DEV$M_ALL      = 00800000            

CLI$K_PARDONE  = 00000003            CLI$M_BATCH    = 00000008            DEV$M_AVL      = 00040000            

CLI$K_QDBITS     00000014            CLI$M_CONCATINP= 00000002            DEV$M_CCL      = 00000002            

SHOW$DEVI_CLI   - SHOW DEVICES: CLI INTERFACE                    21-AUG-1978 19:18:11   VAX-11 MACRO X0.3-11               Page  13

SYMBOL TABLE                                                                                                                     (6)



DEV$M_DIR      = 00000008            DEVI$V_BRIE    = 00000002  G         QUA_M_LOCALKEY = 00000002            

DEV$M_DMT      = 00200000            DEVI$V_DEVN    = 00000000  G         QUA_M_NEG      = 00000040            

DEV$M_ELG      = 00400000            DEVI$V_FULL    = 00000003  G         QUA_M_ONEVAL   = 00002000            

DEV$M_FOD      = 00004000            DEVI$V_MOUN    = 00000004  G         QUA_M_OUTPUT   = 00000800            

DEV$M_FOR      = 01000000            DEVI$W_UNIT      00000104 RG    03   QUA_M_PARM     = 00000010            

DEV$M_GEN      = 00020000            DEVI_ALLO_PRES   00000042 R     04   QUA_M_VAL      = 00000020            

DEV$M_IDV      = 04000000            DEVI_DEVN_PRES   0000006C R     04   QUA_M_VALREQ   = 00001000            

DEV$M_MBX      = 00100000            DEVI_MOUN_PRES   00000057 R     04   QUA_M_VERB     = 00000008            

DEV$M_MNT      = 00080000            DEVI_Q_TRDEVN    000000A8 R     03   QUA_S_MAXPARM  = 00000004            

DEV$M_NET      = 00002000            DEVI_T_TRDEVN    000000B0 R     03   QUA_S_MINPARM  = 00000004            

DEV$M_ODV      = 08000000            DEVNAM_BUFF      00000099 R     03   QUA_V_BATDEF   = 00000008            

DEV$M_RCK      = 40000000            DEVNAM_BUFF_LEN= 0000000F            QUA_V_CHNGLIST = 00000000            

DEV$M_REC      = 00000001            GBL...         = 00000001            QUA_V_DEFTRUE  = 00000007            

DEV$M_RND      = 10000000            LOG$B_AMOD       0000000E            QUA_V_FILE     = 00000002            

DEV$M_RTM      = 20000000            LOG$B_TABLE      0000000B            QUA_V_IMAGE    = 0000000A            

DEV$M_SDI      = 00000010            LOG$B_TYPE       0000000A            QUA_V_INTDEF   = 00000009            

DEV$M_SHR      = 00010000            LOG$C_GROUP    = 00000001            QUA_V_KEYVAL   = 0000000E            

DEV$M_SPL      = 00000040            LOG$C_LENGTH     00000014            QUA_V_LOCALKEY = 00000001            

DEV$M_SQD      = 00000020            LOG$C_NAMLENGTH= 00000040            QUA_V_MAXPARM  = 00000004            

DEV$M_SWL      = 02000000            LOG$C_PROCESS  = 00000002            QUA_V_MINPARM  = 00000000            

DEV$M_TRM      = 00000004            LOG$C_SYSTEM   = 00000000            QUA_V_NEG      = 00000006            

DEV$M_WCK      = 80000000            LOG$K_LENGTH     00000014            QUA_V_ONEVAL   = 0000000D            

DEV$V_ALL      = 00000017            LOG$L_LTBL       00000004            QUA_V_OUTPUT   = 0000000B            

DEV$V_AVL      = 00000012            LOG$L_LTFL       00000000            QUA_V_PARM     = 00000004            

DEV$V_CCL      = 00000001            LOG$L_MBXUCB     00000010            QUA_V_VAL      = 00000005            

DEV$V_DIR      = 00000003            LOG$T_NAME       00000014            QUA_V_VALREQ   = 0000000C            

DEV$V_DMT      = 00000015            LOG$W_GROUP      0000000C            QUA_V_VERB     = 00000003            

DEV$V_ELG      = 00000016            LOG$W_SIZE       00000008            QUA_W_FLAGS      00000003            

DEV$V_FOD      = 0000000E            PARSE_DEVNAM     0000008F R     04   QUA_W_PROMPT     00000009            

DEV$V_FOR      = 00000018            PRO_B_FLAGS      00000001            QUA_W_QUALIST    00000006            

DEV$V_GEN      = 00000011            PRO_B_PROMPT     00000000            SHOW$A_CLIWORK   ********   X   04   

DEV$V_IDV      = 0000001A            PRO_K_LENGTH     00000002            SHOW$DEVI_CLI    00000000 RG    04   

DEV$V_MBX      = 00000014            PRO_M_CONCAT   = 00000001            SHOW$DEVI_UTL    ********   X   04   

DEV$V_MNT      = 00000013            PRO_M_IMPCAT   = 00000002            SHOW$L_STATUS    ********   X   04   

DEV$V_NET      = 0000000D            PRO_M_LIST     = 00000004            SHOW$PRINT_MSG   ********   X   04   

DEV$V_ODV      = 0000001B            PRO_M_OPTION   = 00000008            SHOW$_IVDEVNAM   ********   X   04   

DEV$V_RCK      = 0000001E            PRO_M_REQ      = 00000010            SHOW_DEVI_GETIN  0000007D R     03   

DEV$V_REC      = 00000000            PRO_M_STRING   = 00000020            SHOW_DEVI_GETQU  00000000 R     03   

DEV$V_RND      = 0000001C            PRO_V_CONCAT   = 00000000            SHOW_DEVI_QUALS  0000001C R     03   

DEV$V_RTM      = 0000001D            PRO_V_IMPCAT   = 00000001            SS$_IVDEVNAM     ********   X   04   

DEV$V_SDI      = 00000004            PRO_V_LIST     = 00000002            SS$_NORMAL       ********   X   04   

DEV$V_SHR      = 00000010            PRO_V_OPTION   = 00000003            STS$K_ERROR    = 00000002            

DEV$V_SPL      = 00000006            PRO_V_REQ      = 00000004            STS$K_INFO     = 00000003            

DEV$V_SQD      = 00000005            PRO_V_STRING   = 00000005            STS$K_SEVERE   = 00000004            

DEV$V_SWL      = 00000019            QUA_B_DEFVAL     00000002            STS$K_SUCCESS  = 00000001            

DEV$V_TRM      = 00000002            QUA_B_IMAGE      00000005            STS$K_WARNING  = 00000000            

DEV$V_WCK      = 0000001F            QUA_B_INDEX      00000001            STS$M_CODE     = 00007FF8            

DEVI$L_BITLIS    000000F0 RG    03   QUA_B_OFFSET     00000000            STS$M_COND_ID  = 0FFFFFF8            

DEVI$L_CH_CRIT   000000F8 RG    03   QUA_B_PARMCNT    00000008            STS$M_CONTROL  = F0000000            

DEVI$L_CH_MSK    000000F4 RG    03   QUA_G_CHNGLST    00000006            STS$M_CUST_DEF = 08000000            

DEVI$M_ALLO    = 00000002  G         QUA_M_BATDEF   = 00000100            STS$M_FAC_NO   = 0FFF0000            

DEVI$M_BRIE    = 00000004  G         QUA_M_CHNGLIST = 00000001            STS$M_FAC_SP   = 00008000            

DEVI$M_DEVN    = 00000001  G         QUA_M_DEFTRUE  = 00000080            STS$M_INHIB_MSG= 10000000            

DEVI$M_FULL    = 00000008  G         QUA_M_FILE     = 00000004            STS$M_MSG_NO   = 0000FFF8            

DEVI$M_MOUN    = 00000010  G         QUA_M_IMAGE    = 00000400            STS$M_SEVERITY = 00000007            

DEVI$Q_DEVNAM    000000FC RG    03   QUA_M_INTDEF   = 00000200            STS$M_SUCCESS  = 00000001            

DEVI$V_ALLO    = 00000001  G         QUA_M_KEYVAL   = 00004000            STS$S_CODE     = 0000000C            

SHOW$DEVI_CLI   - SHOW DEVICES: CLI INTERFACE                    21-AUG-1978 19:18:11   VAX-11 MACRO X0.3-11               Page  14

SYMBOL TABLE                                                                                                                     (6)



STS$S_COND_ID  = 00000019            

STS$S_CONTROL  = 00000004            

STS$S_CUST_DEF = 00000001            

STS$S_FAC_NO   = 0000000C            

STS$S_FAC_SP   = 00000001            

STS$S_INHIB_MSG= 00000001            

STS$S_MSG_NO   = 0000000D            

STS$S_SEVERITY = 00000003            

STS$S_SUCCESS  = 00000001            

STS$V_CODE     = 00000003            

STS$V_COND_ID  = 00000003            

STS$V_CONTROL  = 0000001C            

STS$V_CUST_DEF = 0000001B            

STS$V_FAC_NO   = 00000010            

STS$V_FAC_SP   = 0000000F            

STS$V_INHIB_MSG= 0000001C            

STS$V_MSG_NO   = 00000003            

STS$V_SEVERITY = 00000000            

STS$V_SUCCESS  = 00000000            

SYS$TRNLOG       ********   X   04   





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$            00000080      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

SHOW$RWDATA      00000108      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

SHOW$CODE        0000015F      04     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

12108. BYTES LEFT IN FREE MEMORY POOL.

1922. BYTES OF RECLAIMED MEMORY.

OBJ$:SHODEVCLI,LIS$:SHODEVCLI/-SP=EXECML$/ML,LIB$:CLIUTL/ML,SRC$:SHODEVCLI

47 MLB DIR RDS - 655 GETS TO DEFINE 29 MACROS. 52 INTER. FILE WRITES. 

