SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)     103  SHOW DIRECTORY

   (1)     143  SHOW LOGICAL NAME EQUIVALENCES

   (1)     209  SHOW PROTECTION

   (1)     256  SHOW SYMBOL TABLE ENTRIES

   (1)     325  DISPLAY LIST

   (1)     348  DISPLAY ITEM

   (1)     382  SHOW STATUS

   (1)     468  SHOW DAYTIME

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page   1

01                                                                                                                               (1)



                                     0000     1 	.TITLE	SHOW - SHOW INFORMATION DCLS COMMAND EXECUTION

                                     0000     2 	.IDENT	/01/

                                     0000     3  

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

                                     0000     7 ;

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

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

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

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

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

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

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

                                     0000    15 ;

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

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

                                     0000    18 ; EQUIPMENT CORPORATION.

                                     0000    19 ;

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

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

                                     0000    22 ;

                                     0000    23 ; D. N. CUTLER 15-APR-77

                                     0000    24 ;

                                     0000    25 ; MODIFIED BY B. WALTHER 3-DEC-1977

                                     0000    26 ;

                                     0000    27 ; SHOW INFORMATION DCLS COMMAND EXECUTION

                                     0000    28 ;

                                     0000    29 ;	SHOW DAYTIME

                                     0000    30 ;	SHOW DIRECTORY

                                     0000    31 ;	SHOW LOGICAL NAME EQUIVALENCES

                                     0000    32 ;	SHOW PROTECTION

                                     0000    33 ;	SHOW STATUS

                                     0000    34 ;

                                     0000    35 ; MACRO LIBRARY CALLS

                                     0000    36 ;

                                     0000    37  

                                     0000    38 	$CLIDEFQUALSHOW			;DEFINE SHOW QUALIFIER NUMBERS

                                     0000    39 	DEFCMDWRK			;DEFINE WORK AREA OFFSETS

                                     0000    40 	DEFERRCOD			;DEFINE ERROR/STATUS VALUES

                                     0000    41 	DEFPTRDSC			;DEFINE RESULT PARSE DESCRIPTOR FORMAT

                                     0000    42 	DEFSYMTBL			;DEFINE SYMBOL ENTRY OFFSETS

                                     0000    43 	$LOGDEF				;DEFINE LOG OFFSETS

                                     0000    44 	$SSDEF				;DEFINE SYSTEM STATUS VALUES

                                     0000    45 	$JPIDEF				;GET JOB PROCESS INFORMATION DEFINITIONS

                                     0000    46  

                                     0000    47 ;

                                     0000    48 ; LOCAL DATA

                                     0000    49 ;

                                     0000    50  

                                 00000000    51 	.PSECT	DCL$ZCODE,BYTE,RD,NOWRT

                                     0000    52 ACCESS:					;ALLOWED ACCESS DESIGNATORS

                        44 45 57 52  0000    53 	.ASCII	/RWED/			;

                                     0004    54 FORMATMSG:				;TABLE DISPLAY CONTROL STRING

20 53 41 21 20 3D 20 53 41 21 20 20  0004    55 	.ASCII	/  !AS = !AS   !AC/	;

                     43 41 21 20 20  0010       

                                     0015    56 FORMATEND:				;

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page   2

01                                                                                                                               (1)



                                     0015    57 NOACCESS:				;NO ACCESS ALLOWED DESIGNATOR

         53 53 45 43 43 41 20 4F 4E  0015    58 	.ASCII	/NO ACCESS/		;

                                     001E    59 NOACCESSEND:				;

                                     001E    60 PROTECTMSG:				;DEFAULT PROTECTION CONTROL STRING

44 41 21 3D 4D 45 54 53 59 53 20 20  001E    61 	.ASCII	/  SYSTEM=!AD, OWNER=!AD, GROUP=!AD, WORLD=!AD/ ;

2C 44 41 21 3D 52 45 4E 57 4F 20 2C  002A       

20 2C 44 41 21 3D 50 55 4F 52 47 20  0036       

         44 41 21 3D 44 4C 52 4F 57  0042       

                                     004B    62 PROTECTEND:				;

                                     004B    63 STATUS_MSG:				;

                                     004B    64 	.ASCII	-			;

20 6E 6F 20 73 75 74 61 74 53 20 20  004B    65 	&  Status on  !%D!_ Elapsed CPU :!%D&;

73 70 61 6C 45 20 5F 21 44 25 21 20  0057       

   44 25 21 3A 20 55 50 43 20 64 65  0063       

                                     006E    66 	.ASCII	-			;

2F 49 20 2E 66 66 75 42 20 20 2F 21  006E    67 	&!/  Buff. I/O :!9UL    Cur. ws. :   !5UW!_Open files :     !5UW&;

43 20 20 20 20 4C 55 39 21 3A 20 4F  007A       

20 20 20 3A 20 2E 73 77 20 2E 72 75  0086       

66 20 6E 65 70 4F 5F 21 57 55 35 21  0092       

21 20 20 20 20 20 3A 20 73 65 6C 69  009E       

                           57 55 35  00AA       

                                     00AD    68 	.ASCII	-			;

4F 2F 49 20 2E 72 69 44 20 20 2F 21  00AD    69 	&!/  Dir. I/O : !9UL    Phys. Mem. : !5UW!_Page Faults :!9UL&;

50 20 20 20 20 4C 55 39 21 20 3A 20  00B9       

20 3A 20 2E 6D 65 4D 20 2E 73 79 68  00C5       

46 20 65 67 61 50 5F 21 57 55 35 21  00D1       

   4C 55 39 21 3A 20 73 74 6C 75 61  00DD       

                                     00E8    70 STATUS_END:				;

                                     00E8    71 LOG_NAME_TABLE:				;OFFSETS TO TEXT STRINGS

                                 1F' 00E8    72 	.BYTE	TEXT_T_NULLSTR-LOG_NAME_TABLE;

                                 04' 00E9    73 	.BYTE	TEXT_T_SYSTEM-LOG_NAME_TABLE;

                                 0D' 00EA    74 	.BYTE	TEXT_T_GROUP-LOG_NAME_TABLE;

                                 15' 00EB    75 	.BYTE	TEXT_T_PROCESS-LOG_NAME_TABLE;

                                     00EC    76 TEXT_T_SYSTEM:				;

         29 6D 65 74 73 79 73 28 00' 00EC    77 	.ASCIC	/(system)/		;

                                 08  00EC       

                                     00F5    78 TEXT_T_GROUP:				;

            29 70 75 6F 72 67 28 00' 00F5    79 	.ASCIC	/(group)/		;

                                 07  00F5       

                                     00FD    80 TEXT_T_PROCESS:				;

      29 73 73 65 63 6F 72 70 28 00' 00FD    81 	.ASCIC	/(process)/		;

                                 09  00FD       

                                     0107    82 TEXT_T_NULLSTR:				;

                           00000000  0107    83 	.LONG	0			;NULL STRING

                                     010B    84 JPI_CODES:				;LIST OF JPI ITEM CODES

                           00000000  010B    85 FAO_CPUTIM=<.-JPI_CODES>*2		;FOR SHOW STATUS

                               0407  010B    86 	.WORD	JPI$_CPUTIM		;

                               040C  010D    87 	.WORD	JPI$_BUFIO		;

                           00000008  010F    88 FAO_WSSIZE=<.-JPI_CODES>*2		;

                               0411  010F    89 	.WORD	JPI$_WSSIZE		;

                           0000000C  0111    90 	FAO_FILLM=<.-JPI_CODES>*2	;

                               040F  0111    91 	.WORD	JPI$_FILLM		;

                               040B  0113    92 	.WORD	JPI$_DIRIO		;

                           00000014  0115    93 FAO_GPGCNT=<.-JPI_CODES>*2		;

                               030C  0115    94 	.WORD	JPI$_GPGCNT		;

                               040A  0117    95 	.WORD	JPI$_PAGEFLTS		;

                           0000001C  0119    96 FAO_FILCNT=<.-JPI_CODES>*2		;

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page   3

01                                                                                                                               (1)



                           0000001C  0119    97 FAO_Q_CPU=FAO_FILCNT			;USE THIS LOCATION TWICE

                               0314  0119    98 	.WORD	JPI$_FILCNT		;

                           00000020  011B    99 FAO_PPGCNT=<.-JPI_CODES>*2		;

                               030D  011B   100 	.WORD	JPI$_PPGCNT		;

                           00000009  011D   101 JPI_ARGS = <.-JPI_CODES>/2		;COMPUTE NUMBER OF JPI CODES

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page   4

01              SHOW DIRECTORY                                                                                                   (1)



                                     011D   103 	.SBTTL	SHOW DIRECTORY

                                     011D   104 ;+

                                     011D   105 ; DCL$SHOWDIR - SHOW DIRECTORY

                                     011D   106 ;

                                     011D   107 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SHOW DIRECTORY

                                     011D   108 ; DCLS COMMAND.

                                     011D   109 ;

                                     011D   110 ; INPUTS:

                                     011D   111 ;

                                     011D   112 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     011D   113 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     011D   114 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     011D   115 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     011D   116 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     011D   117 ;

                                     011D   118 ; OUTPUTS:

                                     011D   119 ;

                                     011D   120 ;	THE CURRENT DEFAULT DIRECTORY IS WRITTEN TO THE OUTPUT STREAM.

                                     011D   121 ;-

                                     011D   122  

                                     011D   123 DCL$SHOWDEF::				;SHOW DEVICE AND DIRECTORY INFORMATION

         04 A8            02     C0  011D   124 	ADDL	#2,4(R8)		;MAKE ROOM FOR LEADING SPACES

            51       0000'CF     9E  0121   125 	MOVAB	W^DCL$T_DSKNAM,R1	;ADDRESS OF DISK NAME COUNTED STRING

            50            81     9A  0126   126 	MOVZBL	(R1)+,R0		;GET QUAD WORD DESCRIPTOR

                          03     BB  0129   127 	PUSHR	#^M<R0,R1>		;PUT QUAD WORD DESCRIPTOR IN STACK

                          7E     7C  012B   128 	CLRQ	-(SP)			;FIRST TWO ARGS ARE ZERO

                          7E     D4  012D   129 	CLRL	-(SP)			;ALSO THIRD IS ZERO

                          68     7F  012F   130 	PUSHAQ	(R8)			;ADDRESS OF BUFFER DESCRIPTOR

                          68     3F  0131   131 	PUSHAW	(R8)			;PLACE TO RESTORE LENGTH

                       14 AE     7F  0133   132 	PUSHAQ	20(SP)			;ADDRESS OF DESCRIPTOR IN STACK

   00000000'9F            08     FB  0136   133 	CALLS	#8,@#SYS$TRNLOG		;TRANSLATE AND CLEAR THE STACK

            68            88     C1  013D   134 	ADDL3	(R8)+,(R8),R2		;FIND FIRST BYTE AFTER DEVICE NAME

                          52         0140       

            51   00000000'9F     9E  0141   135 	MOVAB	@#PIO$GT_DDSTRING,R1	;GET ADDRESS OF DEFAULT DIRECTORY STRING

            50            81     9A  0148   136 	MOVZBL	(R1)+,R0		;GET LENGTH OF DEFAULT DIRECTORY STRING

            61            50     28  014B   137 	MOVC	R0,(R1),(R2)		;INSERT DEFAULT DIRECTORY STRING

                          62         014E       

            52            68     D0  014F   138 	MOVL	(R8),R2			;POINT AT START OF DEVICE NAME

            72       2020 8F     B0  0152   139 	MOVW	#^A/  /,-(R2)		;INSERT LEADER FOR NEATNESS

            53            52     C3  0157   140 	SUBL3	R2,R3,R1		;FIND LENGTH OF STRING

                          51         015A       

                          0236   31  015B   141 	BRW	EXTMSG			;

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page   5

01              SHOW LOGICAL NAME EQUIVALENCES                                                                                   (1)



                                     015E   143 	.SBTTL	SHOW LOGICAL NAME EQUIVALENCES

                                     015E   144 ;+

                                     015E   145 ; DCL$SHOWLOG  - SHOW LOGICAL NAME EQUIVALENCES

                                     015E   146 ;;

                                     015E   147 ; DCL$SHOWTRAN - SHOW LOGICAL NAME TRANSLATION

                                     015E   148 ;

                                     015E   149 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SHOW LOGICAL

                                     015E   150 ; NAME EQUIVALENCES DCLS COMMAND.

                                     015E   151 ;

                                     015E   152 ; INPUTS:

                                     015E   153 ;

                                     015E   154 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     015E   155 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     015E   156 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     015E   157 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     015E   158 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     015E   159 ;

                                     015E   160 ; OUTPUTS:

                                     015E   161 ;

                                     015E   162 ;	THE SPECIFIED LOGICAL NAME EQUIVALENCE OR ALL LOGICAL NAME EQUIVALENCES

                                     015E   163 ;	FROM THE PROCESS LOGICAL NAME TABLE ARE WRITTEN TO THE OUTPUT STREAM.

                                     015E   164 ;-

                                     015E   165  

                                     015E   166 DCL$SHOWTRAN::				;SHOW THE TRANSLATION FOR A NAME

                          8A     D5  015E   167 	TSTL	(R10)+			;SKIP OPTION NAME

                                     0160   168 	GETDVAL				;SEPARATE DESCRIPTOR

                                     0163   169 	COMPSTRING			;REMOVE QUOTES IF THERE

                          50     D4  0166   170 	CLRL	R0			;TRANSLATE FROM ANY TABLE

                          22     11  0168   171 	BRB	SHWNAM			;PRINT THE RESULT

                                     016A   172  

                                     016A   173 DCL$SHOWLOG::				;SHOW LOGICAL NAME EQUIVALENCES

                          8A     D5  016A   174 	TSTL	(R10)+			;SKIP PAST OPTION DESCRIPTOR

                                     016C   175 10$:	GETDVAL				;GET NEXT DESCRIPTOR VALUE

            55            03     91  016F   176 	CMPB	#PTR_K_PARAMETR,R5	;PARAMETER?

                          12     13  0172   177 	BEQL	20$			;IF EQL YES

            51            04     91  0174   178 	CMPB	#CLI$K_SHLG_ALL,R1	;'ALL' QUALIFIER?

                          F3     12  0177   179 	BNEQ	10$			;IF NEQ NO

                                     0179   180  

                                     0179   181 ;

                                     0179   182 ; DISPLAY ALL PROCESS LOGICAL NAME EQUIVALENCES

                                     0179   183 ;

                                     0179   184  

            5A   00000000'9F     9E  0179   185 	MOVAB	@#CTL$GL_PLTFL,R10	;GET ADDRESS OF PROCESS NAME TABLE LISTHEAD

            57            14     9A  0180   186 	MOVZBL	#LOG$C_LENGTH,R7	;SET OFFSET TO LOGICAL NAME

                          00F8   31  0183   187 	BRW	DISPLIST		;DISPLAY LIST

                                     0186   188  

                                     0186   189 ;

                                     0186   190 ; DISPLAY SPECIFIED PROCESS LOGICAL NAME EQUIVALENCE

                                     0186   191 ;

                                     0186   192  

                                     0186   193 20$:	COMPSTRING			;COMPRESS QUOTED STRING

            50            03     90  0189   194 	MOVB	#3,R0			;ONLY LOOK IN USER TABLE

                                     018C   195 SHWNAM:					;

                          79     D4  018C   196 	CLRL	-(R9)			;RESERVE LOCATION FOR RESULTANT TABLE

            79            51     7D  018E   197 	MOVQ	R1,-(R9)		;SAVE STRING DESCRIPTOR

         04 A8            3C     C1  0191   198 	ADDL3	#60,4(R8),-(R9)		;BUILD EQUIVALENCE NAME DESCRIPTOR

                          79         0195       

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page   6

01              SHOW LOGICAL NAME EQUIVALENCES                                                                                   (1)



            79            3F     9A  0196   199 	MOVZBL	#LOG$C_NAMLENGTH-1,-(R9) ;

                                     0199   200 	$TRNLOG_S 8(R9),(R9),(R9),16(R9),,R0;TRANSLATE LOGICAL NAME IN SPECIFIED TABLE

            01            50     D1  01AE   201 	CMPL	R0,#SS$_NORMAL		;TEST FOR SUCCESSFUL TRANSLATION

                          05     13  01B1   202 	BEQLU	10$			;BRANCH IF SUCCESS

                          69     B4  01B3   203 	CLRW	(R9)			;ELSE CLEAR BYTE COUNT OF RESULTANT STRING

                          00F2   31  01B5   204 	BRW	DISPITEM		;AND GO DISPLAY ITEM

            53         10 A9     9A  01B8   205 10$:	MOVZBL	16(R9),R3		;GET RESULTANT TABLE

                          53     D6  01BC   206 	INCL	R3			;INDEX INTO TEXT TABLE

                          00EB   31  01BE   207 	BRW	DISPTRANS		;DISPLAY ITEM

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page   7

01              SHOW PROTECTION                                                                                                  (1)



                                     01C1   209 	.SBTTL	SHOW PROTECTION

                                     01C1   210 ;+

                                     01C1   211 ; DCL$SHOWPROT - SHOW PROTECTION

                                     01C1   212 ;

                                     01C1   213 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SHOW PROTECTION

                                     01C1   214 ; DCLS COMMAND.

                                     01C1   215 ;

                                     01C1   216 ; INPUTS:

                                     01C1   217 ;

                                     01C1   218 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     01C1   219 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     01C1   220 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     01C1   221 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     01C1   222 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     01C1   223 ;

                                     01C1   224 ; OUTPUTS:

                                     01C1   225 ;

                                     01C1   226 ;	THE CURRENT DEFAULT PROTECTION IS CONVERTED TO ASCII AND WRITTEN TO

                                     01C1   227 ;	THE OUTPUT STREAM.

                                     01C1   228 ;-

                                     01C1   229  

                                     01C1   230 DCL$SHOWPROT::				;SHOW PROTECTION INFORMATION

            50   00000000'9F     3C  01C1   231 	MOVZWL	@#PIO$GW_DFPROT,R0	;GET DEFAULT PROTECTION

            57            0C     9A  01C8   232 	MOVZBL	#12,R7			;SET OUTER LOOP INDEX

                          7E     D4  01CB   233 10$:	CLRL	-(SP)			;ALLOCATE SPACE FOR ACCESS DESIGNATORS

            79       FE44 CF     9E  01CD   234 	MOVAB	NOACCESS,-(R9)		;ASSUME NO ACCESS ALLOWED

            79            09     9A  01D2   235 	MOVZBL	#NOACCESSEND-NOACCESS,-(R9) ;

            04            57     EF  01D5   236 	EXTZV	R7,#4,R0,R1		;EXTRACT NEXT PROTECTION FIELD

            51            50         01D8       

            52            51     D2  01DA   237 	MCOML	R1,R2			;COMPLEMENT PROTECTION FIELD

            52            0F     D3  01DD   238 	BITL	#^XF,R2			;ALL ACCESS DENIED?

                          1A     13  01E0   239 	BEQL	40$			;IF EQL YES

                          56     D4  01E2   240 	CLRL	R6			;CLEAR INNER LOOP INDEX

         04 A9            6E     9E  01E4   241 	MOVAB	(SP),4(R9)		;SET ADDRESS OF ACCESS DESIGNATORS

                          69     D4  01E8   242 	CLRL	(R9)			;CLEAR COUNT OF ACCESS DESIGNATORS

            51            56     E0  01EA   243 20$:	BBS	R6,R1,30$		;IF SET, ACCESS DENIED

                          0A         01ED       

         00 B94E     FE0D CF46   90  01EE   244 	MOVB	ACCESS[R6],@(R9)[SP]	;INSERT ACCESS DESIGNATOR

                          69     D6  01F6   245 	INCL	(R9)			;INCREMENT COUNT OF ACCESS DESIGNATORS

            56            04     F2  01F8   246 30$:	AOBLSS	#4,R6,20$		;ANY MORE TO CHECK?

                          EE         01FB       

         FC 8F            00     9D  01FC   247 40$:	ACBB	#0,#-4,R7,10$		;ANY MORE FIELDS TO CHECK?

            FFC8          57         0200       

                     FE17 CF     9F  0203   248 	PUSHAB	PROTECTMSG		;BUILD FORMAT CONTROL STRING DESCRIPTOR

                          2D     DD  0207   249 	PUSHL	#PROTECTEND-PROTECTMSG	;

            50            5E     D0  0209   250 	MOVL	SP,R0			;COPY ADDRESS OF CONTROL STRING DESCRIPTOR

                                     020C   251 	$FAOL_S	(R0),(R8),(R8),(R9)	;FORMAT PROTECTION MESSAGE

            51            68     7D  021B   252 	MOVQ	(R8),R1			;RETRIEVE OUTPUT MESSAGE PARAMETERS

            5E            18     C0  021E   253 	ADDL	#6*4,SP			;CLEAN STACK

                          0170   31  0221   254 	BRW	EXTMSG			;

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page   8

01              SHOW SYMBOL TABLE ENTRIES                                                                                        (1)



                                     0224   256 	.SBTTL	SHOW SYMBOL TABLE ENTRIES

                                     0224   257 ;+

                                     0224   258 ; DCL$SHOWSYMBOL - SHOW SYMBOL TABLE ENTRIES

                                     0224   259 ;

                                     0224   260 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SHOW SYMBOL

                                     0224   261 ; TABLE ENTRIES DCLS COMMAND.

                                     0224   262 ;

                                     0224   263 ; INPUTS:

                                     0224   264 ;

                                     0224   265 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     0224   266 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     0224   267 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     0224   268 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     0224   269 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     0224   270 ;

                                     0224   271 ; OUTPUTS:

                                     0224   272 ;

                                     0224   273 ;	THE SPECIFIED SYMBOL TABLE ENTRY OR ALL SYMBOL TABLE ENTRIES FROM

                                     0224   274 ;	EITHER THE LOCAL OR GLOBAL SYMBOL TABLE ARE WRITTEN TO THE OUTPUT

                                     0224   275 ;	STREAM.

                                     0224   276 ;-

                                     0224   277  

                                     0224   278 DCL$SHOWSYMBL::				;SHOW SYMBOL TABLE ENTRIES

                          8A     D5  0224   279 	TSTL	(R10)+			;SKIP PAST OPTION DESCRIPTOR

                          57     D4  0226   280 	CLRL	R7			;ZERO TABLE LISTHEAD ADDRESS

                                     0228   281 10$:	GETDVAL				;GET NEXT DESCRIPTOR VALUE

            55            03     91  022B   282 	CMPB	#PTR_K_PARAMETR,R5	;PARAMETER?

                          23     13  022E   283 	BEQL	40$			;IF EQL YES

                          13     1F  0230   284 	BLSSU	30$			;IF LSSU, END OF LINE

                                     0232   285 	ASSUME	CLI$K_SHSY_GLOB LT CLI$K_SHSY_LOCA

                                     0232   286 	ASSUME	CLI$K_SHSY_ALL	GT CLI$K_SHSY_LOCA

            02            51     91  0232   287 	CMPB	R1,#CLI$K_SHSY_LOCA	;'LOCAL' QUALIFIER?

                          F1     1A  0235   288 	BGTRU	10$			; IF GTRU, THEN IT IS 'ALL'

                          06     1F  0237   289 	BLSSU	20$			;IF LSSU, THEN IT IS 'GLOBAL'

            57         38 AB     7E  0239   290 	MOVAQ	PRC_Q_LOCAL(R11),R7	;SET ADDRESS OF LOCAL SYMBOL TABLE

                          E9     11  023D   291 	BRB	10$			;

            57         28 AB     7E  023F   292 20$:	MOVAQ	PRC_Q_GLOBAL(R11),R7	;SET ADDRESS OF GLOBAL SYMBOL TABLE

                          E3     11  0243   293 	BRB	10$			;

                                     0245   294  

                                     0245   295 ;

                                     0245   296 ; DISPLAY ALL SYMBOL ENTRIES

                                     0245   297 ;

                                     0245   298  

            5A            57     D0  0245   299 30$:	MOVL	R7,R10			;GET ADDRESS OF SYMBOL TABLE LISTHEAD

                          04     12  0248   300 	BNEQ	35$			;BR IF TABLE ADDRESS PRESENT

            5A         38 AB     7E  024A   301 	MOVAQ	PRC_Q_LOCAL(R11),R10	;SET DEFAULT TABLE

            57            0C     9A  024E   302 35$:	MOVZBL	#SYM_T_SYMBOL,R7	;SET OFFSET TO SYMBOL NAME

                          2B     11  0251   303 	BRB	DISPLIST		;DISPLAY LIST

                                     0253   304  

                                     0253   305 ;

                                     0253   306 ; DISPLAY SPECIFIED SYMBOL VALUE

                                     0253   307 ;

                                     0253   308  

                                     0253   309 40$:	COMPSTRING			;COMPRESS STRING AND BUILD DESCRIPTOR

            79            51     7D  0256   310 	MOVQ	R1,-(R9)		;SAVE SYMBOL ENTRY DESCRIPTOR

                          79     7C  0259   311 	CLRQ	-(R9)			;ASSUME SYMBOL NOT DEFINED

                          57     D5  025B   312 	TSTL	R7			;SPECIFIC SYMBOL TABLE?

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page   9

01              SHOW SYMBOL TABLE ENTRIES                                                                                        (1)



                          05     12  025D   313 	BNEQ	50$			;IF EQL YES

                                     025F   314 	SEARCH				;SEARCH ALL LOCAL AND GLOBAL SYMBOL TABLES

                          06     11  0262   315 	BRB	60$			;

            50            57     D0  0264   316 50$:	MOVL	R7,R0			;GET ADDRESS OF SYMBOL TABLE LISTHEAD

                                     0267   317 	SEARCHT				;SEARCH SPECIFIC SYMBOL TABLE

            3D            50     E9  026A   318 60$:	BLBC	R0,DISPITEM		;IF LBC SEARCH FAILURE

            52         0C A3     9A  026D   319 	MOVZBL	SYM_T_SYMBOL(R3),R2	;GET LENGTH OF SYMBOL

            52         0D A342   9E  0271   320 	MOVAB	SYM_T_SYMBOL+1(R3)[R2],R2 ;GET ADDRESS OF VALUE LENGTH

            51            82     9A  0276   321 	MOVZBL	(R2)+,R1		;GET LENGTH OF VALUE

            69            51     7D  0279   322 	MOVQ	R1,(R9)			;SAVE VALUE DESCRIPTOR

                          2C     11  027C   323 	BRB	DISPITEM		;DISPLAY ITEM

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page  10

01              DISPLAY LIST                                                                                                     (1)



                                     027E   325 	.SBTTL	DISPLAY LIST

                                     027E   326 ;

                                     027E   327 ; DISPLIST - DISPLAY LIST OF ENTRIES

                                     027E   328 ;

                                     027E   329 ; THIS ROUTINE DISPLAYS A LIST OF LOGICAL OR SYMBOL NAMES.

                                     027E   330 ;

                                     027E   331  

                                     027E   332 DISPLIST:				;DISPLAY LIST

            5C            5A     D0  027E   333 	MOVL	R10,AP			;COPY ADDRESS OF NAME TABLE LISTHEAD

            5A            6A     D0  0281   334 10$:	MOVL	(R10),R10		;GET ADDRESS OF NEXT ENTRY

            5C            5A     D1  0284   335 	CMPL	R10,AP			;END OF TABLE?

                          20     13  0287   336 	BEQL	20$			;IF EQL YES

            79         01 AA47   9E  0289   337 	MOVAB	1(R10)[R7],-(R9)	;BUILD NAME DESCRIPTOR

            79            6A47   9A  028E   338 	MOVZBL	(R10)[R7],-(R9)		;

         04 A9            69     C1  0292   339 	ADDL3	(R9),4(R9),-(R9)	;BUILD VALUE OR EQUIVALENCE NAME DESCRIPTOR

                          79         0296       

            79         00 B9     9A  0297   340 	MOVZBL	@(R9),-(R9)		;

                       04 A9     D6  029B   341 	INCL	4(R9)			;

                          0A     10  029E   342 	BSBB	DISPITEM		;FORMAT AND OUTPUT ENTRY

            59            18     C0  02A0   343 	ADDL	#24,R9			;ADJUST SCRATCH STACK POINTER

            68         84 8F     9A  02A3   344 	MOVZBL	#MSGBUFSIZ,(R8)		;RESET SCRATCH BUFFER DESCRIPTOR SIZE

                          D8     11  02A7   345 	BRB	10$			;

                                 05  02A9   346 20$:	RSB				;

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page  11

01              DISPLAY ITEM                                                                                                     (1)



                                     02AA   348 	.SBTTL	DISPLAY ITEM

                                     02AA   349 ;

                                     02AA   350 ; DISPITEM - DISPLAY ITEM

                                     02AA   351 ;

                                     02AA   352 ; THIS ROUTINE IS CALLED TO DISPLAY A LOGICAL OR SYMBOL NAME.

                                     02AA   353 ;

                                     02AA   354 ; DISPTRANS - DISPLAY TRANSLATION 

                                     02AA   355 ;

                                     02AA   356 ;  INPUT:  R3 = INDEX INTO LOGICAL NAME TABLE TEXT TABLE

                                     02AA   357 ;

                                     02AA   358  

                                     02AA   359 DISPITEM:				;DISPLAY ITEM

                          53     D4  02AA   360 	CLRL	R3			;MAKE SURE WE POINT TO NULL STRING

                                     02AC   361 DISPTRANS:				;

            54       FE38 CF     9E  02AC   362 	MOVAB	LOG_NAME_TABLE,R4	;GET ADDRESS OF TEXT TABLE

            53            54     C0  02B1   363 	ADDL2	R4,R3			;POINT TO CORRECT ENTRY

            53            63     9A  02B4   364 	MOVZBL	(R3),R3			;AND GET OFFSET TO TEXT

            53            54     C0  02B7   365 	ADDL2	R4,R3			;COMPUTE POINTER TO TEXT

            54            69     9E  02BA   366 	MOVAB	(R9),R4			;GET ADDRESS OF VALUE DESCRIPTOR

                          64     D5  02BD   367 	TSTL	(R4)			;ZERO LENGTH VALUE?

                          11     13  02BF   368 	BEQL	20$			;IF EQL YES

         04 B4            1B     91  02C1   369 	CMPB	#27,@4(R4)		;FIRST CHARACTER ESCAPE?

                          0B     12  02C5   370 	BNEQ	20$			;IF NEQ NO

            64            04     C2  02C7   371 	SUBL	#4,(R4)			;REDUCE LENGTH OF VALUE BY HEADER

                          02     18  02CA   372 	BGEQ	10$			;IF GEQ OKAY

                          64     D4  02CC   373 	CLRL	(R4)			;CLEAR VALUE LENGTH

         04 A4            04     C0  02CE   374 10$:	ADDL	#4,4(R4)		;POINT PAST VALUE HEADER

            55         08 A9     9E  02D2   375 20$:	MOVAB	8(R9),R5		;GET ADDRESS OF NAME DESCRIPTOR

            79       FD2A CF     9E  02D6   376 	MOVAB	FORMATMSG,-(R9)		;BUILD FORMAT CONTROL STRING DESCRIPTOR

            79            11     9A  02DB   377 	MOVZBL	#FORMATEND-FORMATMSG,-(R9) ;

                                     02DE   378 	$FAO_S	(R9),(R8),(R8),R5,R4,R3	;FORMAT OUTPUT MESSAGE

            51            68     7D  02F1   379 	MOVQ	(R8),R1			;GET OUTPUT MESSAGE PARAMETERS

                          009D   31  02F4   380 	BRW	EXTMSG			;OUTPUT MESSAGE

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page  12

01              SHOW STATUS                                                                                                      (1)



                                     02F7   382 	.SBTTL	SHOW STATUS

                                     02F7   383 ;+

                                     02F7   384 ; DCL$SHOWSTAT - SHOW STATUS

                                     02F7   385 ;

                                     02F7   386 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SHOW STATUS

                                     02F7   387 ; DCLS COMMAND.

                                     02F7   388 ;

                                     02F7   389 ; INPUTS:

                                     02F7   390 ;

                                     02F7   391 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     02F7   392 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     02F7   393 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     02F7   394 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     02F7   395 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     02F7   396 ;

                                     02F7   397 ; OUTPUTS:

                                     02F7   398 ;

                                     02F7   399 ;	 VALUES CHARACTERIZING THE CURRENT PROCESS'S STATUS

                                     02F7   400 ;	ARE FORMATTED AND WRITTEN TO THE OUTPUT STREAM.

                                     02F7   401 ;

                                     02F7   402 ; SIDE EFFECTS:

                                     02F7   403 ;

                                     02F7   404 ;	THIS ROUTINE IS USING THE COMMAND BUFFER INSTEAD OF THE SCRATCH BUFFER

                                     02F7   405 ;	(THE LATTER IS USED AS SCRATCH STACK)

                                     02F7   406 ;-

                                     02F7   407  

                                     02F7   408 DCL$SHOWSTAT::

                                     02F7   409 

                                     02F7   410 ;

                                     02F7   411 ; BUILD DESCRIPTOR TO COMMAND BUFFER

                                     02F7   412 ;

                                     02F7   413 

            58         04 A8     D0  02F7   414 	MOVL	4(R8),R8		;BUILD DESCRIPTOR TO COMMAND BUFFER

                                     02FB   415 					;IN SCRATCH BUFFER

            68       01FC 8F     3C  02FB   416 	MOVZWL	#CMDBUFSIZ,(R8)		;LENGTH OF BUFFER

         04 A8       FD38 CD     DE  0300   417 	MOVAL	WRK_AB_BUFFER(FP),4(R8)	;POINTER TO START OF COMMAND BUFFER

                                     0306   418 

                                     0306   419 ;

                                     0306   420 ; INITIALIZE POINTERS AND INDEXES

                                     0306   421 ;

                                     0306   422 

            50         04 A8     D0  0306   423  	MOVL	4(R8),R0		;POINTER TO SCRATCH BUFFER

                          51     D4  030A   424 	CLRL	R1			;INDEX INTO JPI RESULTANT LIST

            59            24     C2  030C   425 	SUBL	#JPI_ARGS*4,R9		;ALLOCATE JPI RESULTANT LIST

                                     030F   426 

                                     030F   427 ;

                                     030F   428 ; CONSTRUCT LIST OF JPI ITEM DESCRIPTOR BLOCKS IN SCRATCH BUFFER

                                     030F   429 ;

                                     030F   430 

            80            04     B0  030F   431 10$:	MOVW	#4,(R0)+		;LENGTH OF RESULT (=LONGWORD)

            80       FDF4 CF41   B0  0312   432 	MOVW	JPI_CODES[R1],(R0)+	;JPI CODE

            80            6941   DE  0318   433 	MOVAL	(R9)[R1],(R0)+		;POINTER TO RESULT BUFFER (=LONGWORD)

                          80     D4  031C   434 	CLRL	(R0)+			;NO NEED FOR RESULTANT LENGTH

            51            08     F3  031E   435 	AOBLEQ	#JPI_ARGS-1,R1,10$	;REPEAT FOR EACH ITEM IN LIST

                          ED         0321       

                          60     D4  0322   436 	CLRL	(R0)			;END ITEM LIST

                                     0324   437 

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page  13

01              SHOW STATUS                                                                                                      (1)



                                     0324   438 ;

                                     0324   439 ; GET JOB PROCESS PARAMETERS

                                     0324   440 ;

                                     0324   441 

                                     0324   442 	$GETJPI_S	ITMLST=@4(R8)	;

                                     0338   443 

                                     0338   444 ;

                                     0338   445 ; PERFORM SOME ARITHMETIC ON VALUES OBTAINED

                                     0338   446 ;

                                     0338   447 

         0C A9         1C A9     C2  0338   448 	SUBL	FAO_FILCNT(R9),FAO_FILLM(R9) ;COMPUTE COUNT OF OPEN FILES

         14 A9         20 A9     C0  033D   449 	ADDL	FAO_PPGCNT(R9),FAO_GPGCNT(R9) ;COMPUTE TOTAL PHYSICAL MEMORY OCCUPIED

                 FFFE7960 8F     7A  0342   450 	EMUL	#-100000,FAO_CPUTIM(R9),- ;CALCULATE TIME IN 100NS UNITS

            00            69         0348   451 		#0,FAO_Q_CPU(R9)	;

                       1C A9         034A       

            69         1C A9     DE  034C   452 	MOVAL	FAO_Q_CPU(R9),FAO_CPUTIM(R9) ;REPLACE BY POINTER TO QUADWORD

                          79     D4  0350   453 	CLRL	-(R9)			;INSERT SYSTEM TIME AND DATE AT TOP

                                     0352   454 

                                     0352   455 ;

                                     0352   456 ; FORMAT AND PRINT INFORMATION

                                     0352   457 ;

                                     0352   458 

                     FCF5 CF     9F  0352   459 	PUSHAB	STATUS_MSG		;FAO MESSAGE TEXT

            7E         9D 8F     9A  0356   460 	MOVZBL	#STATUS_END-STATUS_MSG,-(SP) ;LENGTH OF MESSAGE

            50            5E     D0  035A   461 	MOVL	SP,R0			;

                                     035D   462 	$FAOL_S	(R0),(R8),(R8),(R9)	;BUILD MESSAGE IN SCRATCH BUFFER

            51            68     7D  036C   463 	MOVQ	(R8),R1			;DESCRIPTOR OF MESSAGE

            5E            08     C0  036F   464 	ADDL	#2*4,SP			;CLEAN STACK

                          001F   31  0372   465 	BRW	EXTMSG			;GO OUTPUT MESSAGE

                                     0375   466 

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page  14

01              SHOW DAYTIME                                                                                                     (1)



                                     0375   468 	.SBTTL	SHOW DAYTIME

                                     0375   469 ;+

                                     0375   470 ; DCL$SHOWTIME - SHOW DAYTIME

                                     0375   471 ;

                                     0375   472 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SHOW DAYTIME

                                     0375   473 ; DCLS COMMAND.

                                     0375   474 ;

                                     0375   475 ; INPUTS:

                                     0375   476 ;

                                     0375   477 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     0375   478 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     0375   479 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     0375   480 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     0375   481 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     0375   482 ;

                                     0375   483 ; OUTPUTS:

                                     0375   484 ;

                                     0375   485 ;	THE CURRENT TIME AND DATE ARE CONVERTED TO ASCII AND WRITTEN TO THE

                                     0375   486 ;	OUTPUT STREAM.

                                     0375   487 ;-

                                     0375   488  

                                     0375   489 DCL$SHOWTIME::				;SHOW TIME AND DATE INFORMATION

            52         04 A8     D0  0375   490 	MOVL	4(R8),R2		;GET ADDRESS OF SCRATCH BUFFER

            62       2020 8F     B0  0379   491 	MOVW	#^A/  /,(R2)		;INSERT LEADING BLANKS

         04 A8            02     C0  037E   492 	ADDL	#2,4(R8)		;POINT PAST LEADING BLANKS

                                     0382   493 	$ASCTIM_S ,(R8)			;CONVERT CURRENT TIME TO ASCII

            51            16     3C  0391   494 	MOVZWL	#22,R1			;SET LENGTH OF OUTPUT MESSAGE

                                     0394   495 EXTMSG:	MSGOUT				;OUTPUT MESSAGE TEXT

                                     0397   496 	STATUS	NORMAL			;SET NORMAL COMPLETION STATUS

                                 05  039A   497 	RSB				;

                                     039B   498  

                                     039B   499 	.END

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page  15

SYMBOL TABLE                                                                                                                     (1)



$$$            = 00000004            CLI$_CREQUEJOB = 0003884A            CLI$_STKOVF    = 00038128            

$$$GBL         = 00000000            CLI$_DEFOVF    = 00038028            CLI$_SUBMITERR = 00038852            

$$T1           = 00000001            CLI$_DEVALSPL  = 0003885A            CLI$_SYMDEL    = 00038130            

$$T2           = 00000006            CLI$_DEVNOTFOR = 0003887A            CLI$_SYMOVF    = 00038138            

$QUALNUM$      = 00000002            CLI$_DEVNOTSPL = 00038862            CLI$_UNDFIL    = 00038188            

ACCESS           00000000 R     03   CLI$_DIRECT    = 00038030            CLI$_UNDSYM    = 00038140            

BIT...         = 00000103            CLI$_EXPSYN    = 00038038            CLI$_UNPROPARM = 00038170            

CLI$K_SHDV_ALLO= 00000001            CLI$_FILOPN    = 00038190            CLI$_UNPROQUAL = 00038168            

CLI$K_SHDV_BRIE= 00000002            CLI$_ILLVAL    = 0003883A            CLI$_USGOTO    = 00038148            

CLI$K_SHDV_FULL= 00000003            CLI$_IMCHNG    = 00038040            CLI$_VALCNVERR = 00038832            

CLI$K_SHDV_MOUN= 00000004            CLI$_IMGFNF    = 00038872            CLI$_VALREQ    = 00038150            

CLI$K_SHLG_ALL = 00000004            CLI$_INSFPRM   = 00038048            CMDBUFSIZ      = 000001FC            

CLI$K_SHLG_GROU= 00000002            CLI$_INVKEY    = 00038178            CTL$GL_PLTFL     ********   X   03   

CLI$K_SHLG_PROC= 00000003            CLI$_INVQUAL   = 0003880A            DCL$COMPSTRING   ********   X   03   

CLI$K_SHLG_SYST= 00000001            CLI$_INVQUALNUM= 0003881A            DCL$GETDVAL      ********   X   03   

CLI$K_SHOW_DAYT= 00000001            CLI$_INVREQTYP = 00038822            DCL$MSGOUT       ********   X   03   

CLI$K_SHOW_DEFA= 00000003            CLI$_INVRSP    = 00038180            DCL$SEARCH       ********   X   03   

CLI$K_SHOW_DEVI= 0000000A            CLI$_INVUIC    = 000381A8            DCL$SEARCHT      ********   X   03   

CLI$K_SHOW_LOGI= 00000004            CLI$_IVCHAR    = 00038050            DCL$SHOWDEF      0000011D RG    03   

CLI$K_SHOW_MAGT= 00000012            CLI$_IVDEVTYPE = 0003886A            DCL$SHOWLOG      0000016A RG    03   

CLI$K_SHOW_NETW= 00000010            CLI$_IVFNAM    = 000381C0            DCL$SHOWPROT     000001C1 RG    03   

CLI$K_SHOW_PRIN= 0000000F            CLI$_IVKEYW    = 00038060            DCL$SHOWSTAT     000002F7 RG    03   

CLI$K_SHOW_PROC= 0000000C            CLI$_IVOPER    = 00038068            DCL$SHOWSYMBL    00000224 RG    03   

CLI$K_SHOW_PROT= 00000005            CLI$_IVPROT    = 00038070            DCL$SHOWTIME     00000375 RG    03   

CLI$K_SHOW_QUEU= 00000006            CLI$_IVQLOC    = 00038078            DCL$SHOWTRAN     0000015E RG    03   

CLI$K_SHOW_RMS_= 00000011            CLI$_IVSYMB    = 00038080            DCL$T_DSKNAM     ********   X   03   

CLI$K_SHOW_STAT= 0000000B            CLI$_IVVALU    = 00038088            DISPITEM         000002AA R     03   

CLI$K_SHOW_SYMB= 00000007            CLI$_IVVERB    = 00038090            DISPLIST         0000027E R     03   

CLI$K_SHOW_SYST= 0000000D            CLI$_MAXPARM   = 00038098            DISPTRANS        000002AC R     03   

CLI$K_SHOW_TERM= 0000000E            CLI$_MULKEY    = 000381A0            EXTMSG           00000394 R     03   

CLI$K_SHOW_TIME= 00000002            CLI$_NOATFIL   = 000380A0            FAO_CPUTIM     = 00000000            

CLI$K_SHOW_TRAN= 00000008            CLI$_NOCCAT    = 000380A8            FAO_FILCNT     = 0000001C            

CLI$K_SHOW_WORK= 00000009            CLI$_NOCOMD    = 000380B0            FAO_FILLM      = 0000000C            

CLI$K_SHPR_ACCO= 00000002            CLI$_NOKEYW    = 000380B8            FAO_GPGCNT     = 00000014            

CLI$K_SHPR_ALL = 00000005            CLI$_NOLIST    = 000380C0            FAO_PPGCNT     = 00000020            

CLI$K_SHPR_PRIV= 00000003            CLI$_NOOPTPRS  = 00038842            FAO_Q_CPU      = 0000001C            

CLI$K_SHPR_QUOT= 00000001            CLI$_NOQUAL    = 000380C8            FAO_WSSIZE     = 00000008            

CLI$K_SHPR_SUBP= 00000004            CLI$_NORMAL    = 00030001            FORMATEND        00000015 R     03   

CLI$K_SHQU_ALL = 00000001            CLI$_NOTNEG    = 000380D8            FORMATMSG        00000004 R     03   

CLI$K_SHQU_BATC= 00000002            CLI$_NOVALU    = 000380D0            GBL...         = 00000000            

CLI$K_SHQU_BRIE= 00000003            CLI$_NOVALUE   = 0003882A            INPBUFSIZ      = 00000084            

CLI$K_SHQU_DEVI= 00000004            CLI$_NULFIL    = 000380E0            JPI$C_ADRTYPE  = 00000001            

CLI$K_SHQU_ENTR= 00000005            CLI$_NUMBER    = 000380E8            JPI$C_CTLTYPE  = 00000002            

CLI$K_SHQU_FULL= 00000006            CLI$_ONCOMD    = 000380F0            JPI$C_LISTEND  = 00000000            

CLI$K_SHSS_PROC= 00000001            CLI$_ONERR     = 000380F8            JPI$C_PCBTYPE  = 00000003            

CLI$K_SHSY_ALL = 00000003            CLI$_ONEVAL    = 00038158            JPI$C_PHDTYPE  = 00000004            

CLI$K_SHSY_GLOB= 00000001            CLI$_ONLEVL    = 00038100            JPI$_ACCOUNT   = 00000203            

CLI$K_SHSY_LOCA= 00000002            CLI$_ONOVF     = 00038108            JPI$_APTCNT    = 0000030A            

CLI$K_SHTE_PERM= 00000001            CLI$_OVRFLW    = 00038160            JPI$_ASTACT    = 00000300            

CLI$_ABFNAM    = 000381B8            CLI$_PARMDEL   = 00038110            JPI$_ASTCNT    = 0000030E            

CLI$_ABKEYW    = 00038000            CLI$_PROC_ID   = 0003FFF1            JPI$_ASTEN     = 00000301            

CLI$_ABVERB    = 00038008            CLI$_QUEJOBCRE = 0003FFF9            JPI$_ASTLM     = 00000409            

CLI$_BADRET    = 00038198            CLI$_REQPRMABS = 00038812            JPI$_BIOCNT    = 0000030F            

CLI$_BADTEXT   = 000381B0            CLI$_RSLOVF    = 00038118            JPI$_BIOLM     = 00000310            

CLI$_BUFOVF    = 00038018            CLI$_SKPDAT    = 00038120            JPI$_BUFIO     = 0000040C            

CLI$_COMPLX    = 00038020            CLI$_SPARE0    = 00038010            JPI$_BYTCNT    = 00000311            

CLI$_CONFQUAL  = 00038802            CLI$_SPARE1    = 00038058            JPI$_BYTLM     = 0000031A            

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page  16

SYMBOL TABLE                                                                                                                     (1)



JPI$_CPULIM    = 0000040D            LOG$C_PROCESS  = 00000002            PRC_M_GOTO     = 00000010            

JPI$_CPUTIM    = 00000407            LOG$C_SYSTEM   = 00000000            PRC_M_HANGUP   = 00001000            

JPI$_CURPRIV   = 00000400            LOG$K_LENGTH     00000014            PRC_M_IND      = 00000020            

JPI$_DFPFC     = 00000406            LOG$L_LTBL       00000004            PRC_M_MODE     = 00000040            

JPI$_DFWSCNT   = 00000403            LOG$L_LTFL       00000000            PRC_M_NOCTLY   = 00004000            

JPI$_DIOCNT    = 00000312            LOG$L_MBXUCB     00000010            PRC_M_PAUSE    = 00002000            

JPI$_DIOLM     = 00000313            LOG$T_NAME       00000014            PRC_M_USRDET   = 00000100            

JPI$_DIRIO     = 0000040B            LOG$W_GROUP      0000000C            PRC_M_VERIFY   = 00000080            

JPI$_EFCS      = 00000317            LOG$W_SIZE       00000008            PRC_M_YLEVEL   = 00000800            

JPI$_EFCU      = 00000318            LOG_NAME_TABLE   000000E8 R     03   PRC_Q_ALLOCREG   00000020            

JPI$_EFWM      = 00000316            MSGBUFSIZ      = 00000084            PRC_Q_GLOBAL     00000028            

JPI$_EXCVEC    = 00000100            NOACCESS         00000015 R     03   PRC_Q_LABEL      00000030            

JPI$_FILCNT    = 00000314            NOACCESSEND      0000001E R     03   PRC_Q_LOCAL      00000038            

JPI$_FILLM     = 0000040F            PIO$GT_DDSTRING  ********   X   03   PRC_V_CNTRLY   = 00000001            

JPI$_FINALEXC  = 00000101            PIO$GW_DFPROT    ********   X   03   PRC_V_DBGQUAL  = 00000009            

JPI$_FREP0VA   = 00000404            PRC_B_DEFRADIX   00000092            PRC_V_DBGTRUE  = 0000000A            

JPI$_FREP1VA   = 00000405            PRC_B_EXMDEPMOD  00000091            PRC_V_DISABL   = 00000002            

JPI$_GPGCNT    = 0000030C            PRC_B_EXMDEPWID  00000090            PRC_V_EXIT     = 00000003            

JPI$_GRP       = 00000308            PRC_K_DEC      = 00000001            PRC_V_GOEOF    = 00000000            

JPI$_LASTADR   = 00000102            PRC_K_HEX      = 00000000            PRC_V_GOTO     = 00000004            

JPI$_LASTCTL   = 00000207            PRC_K_LENGTH     000000A0            PRC_V_HANGUP   = 0000000C            

JPI$_LASTPCB   = 0000031D            PRC_K_OCT      = 00000002            PRC_V_IND      = 00000005            

JPI$_LASTPHD   = 00000412            PRC_L_CLIWRK0    0000005C            PRC_V_MODE     = 00000006            

JPI$_LOGINTIM  = 00000206            PRC_L_CLIWRK1    00000060            PRC_V_NOCTLY   = 0000000E            

JPI$_MEM       = 00000307            PRC_L_CLIWRK2    00000064            PRC_V_PAUSE    = 0000000D            

JPI$_OWNER     = 00000303            PRC_L_CLIWRK3    00000068            PRC_V_USRDET   = 00000008            

JPI$_PAGEFLTS  = 0000040A            PRC_L_CLIWRK4    0000006C            PRC_V_VERIFY   = 00000007            

JPI$_PGFLQUOTA = 0000040E            PRC_L_ERRRAB     00000010            PRC_V_YLEVEL   = 0000000B            

JPI$_PID       = 00000319            PRC_L_EXMDEPADR  0000008C            PRC_W_CLIFLAG    00000052            

JPI$_PPGCNT    = 0000030D            PRC_L_EXTARG     00000078            PRC_W_ERRIFI     00000052            

JPI$_PRCCNT    = 0000031B            PRC_L_EXTBLK     00000070            PRC_W_FLAGS      00000054            

JPI$_PRCLM     = 00000408            PRC_L_EXTCOD     00000080            PRC_W_INPCHAN    00000050            

JPI$_PRCNAM    = 0000031C            PRC_L_EXTHND     00000074            PRC_W_ONLEVEL    00000056            

JPI$_PRI       = 00000302            PRC_L_EXTPRM     0000007C            PROTECTEND       0000004B R     03   

JPI$_PRIB      = 00000309            PRC_L_INDEPTH    00000048            PROTECTMSG       0000001E R     03   

JPI$_PROCPRIV  = 00000204            PRC_L_INDFAB     0000001C            PRO_B_FLAGS      00000001            

JPI$_STATE     = 00000306            PRC_L_INDINPRAB  00000014            PRO_B_PROMPT     00000000            

JPI$_STS       = 00000305            PRC_L_INDOUTRAB  00000018            PRO_K_LENGTH     00000002            

JPI$_TMBU      = 0000030B            PRC_L_INPRAB     00000008            PRO_M_CONCAT   = 00000001            

JPI$_TQCNT     = 00000315            PRC_L_LSTSTATUS  00000094            PRO_M_IMPCAT   = 00000002            

JPI$_TQLM      = 00000410            PRC_L_ONCTLY     0000009C            PRO_M_LIST     = 00000004            

JPI$_UIC       = 00000304            PRC_L_ONERROR    00000058            PRO_M_OPTION   = 00000008            

JPI$_USERNAME  = 00000202            PRC_L_OUTRAB     0000000C            PRO_M_REQ      = 00000010            

JPI$_VIRTPEAK  = 00000200            PRC_L_PROCUIC    00000098            PRO_M_STRING   = 00000020            

JPI$_VOLUMES   = 00000205            PRC_L_SAVAP      00000000            PRO_V_CONCAT   = 00000000            

JPI$_WSAUTH    = 00000401            PRC_L_SAVFP      00000004            PRO_V_IMPCAT   = 00000001            

JPI$_WSPEAK    = 00000201            PRC_L_SEVERITY   00000040            PRO_V_LIST     = 00000002            

JPI$_WSQUOTA   = 00000402            PRC_L_STACKLM    00000088            PRO_V_OPTION   = 00000003            

JPI$_WSSIZE    = 00000411            PRC_L_STACKPT    00000084            PRO_V_REQ      = 00000004            

JPI_ARGS       = 00000009            PRC_L_STATUS     00000044            PRO_V_STRING   = 00000005            

JPI_CODES        0000010B R     03   PRC_L_SYMBOL     0000004C            PTR_K_BLANK    = 00000001            

LOG$B_AMOD       0000000E            PRC_M_CNTRLY   = 00000002            PTR_K_COLON    = 00000002            

LOG$B_TABLE      0000000B            PRC_M_DBGQUAL  = 00000200            PTR_K_COMDQUAL = 00000000            

LOG$B_TYPE       0000000A            PRC_M_DBGTRUE  = 00000400            PTR_K_COMMA    = 00000005            

LOG$C_GROUP    = 00000001            PRC_M_DISABL   = 00000004            PTR_K_ENDLINE  = 00000004            

LOG$C_LENGTH     00000014            PRC_M_EXIT     = 00000008            PTR_K_LPAREN   = 00000007            

LOG$C_NAMLENGTH= 00000040            PRC_M_GOEOF    = 00000001            PTR_K_PARAMETR = 00000003            

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page  17

SYMBOL TABLE                                                                                                                     (1)



PTR_K_PARMQUAL = 00000001            QUA_W_FLAGS      00000003            SS$_DUPLNAM    = 00000094            

PTR_K_PLUS     = 00000004            QUA_W_PROMPT     00000009            SS$_ENDOFFILE  = 00000870            

PTR_K_QUALVALU = 00000002            QUA_W_QUALIST    00000006            SS$_ENDOFTAPE  = 00000878            

PTR_K_RPAREN   = 00000006            RSLBUFSIZ      = 00000180            SS$_ENDOFUSRLBL= 00000970            

PTR_K_SLASH    = 00000003            SHWNAM           0000018C R     03   SS$_EXQUOTA    = 0000001C            

PTR_L_DESCR      00000000            SS$_ABORT      = 0000002C            SS$_EXTIDXFILE = 00000880            

PTR_S_FLAGS    = 00000004            SS$_ACCONFLICT = 00000800            SS$_FCPREADERR = 00000888            

PTR_S_OFFSET   = 0000000C            SS$_ACCVIO     = 0000000C            SS$_FCPREPSTN  = 00000988            

PTR_S_TERM     = 00000004            SS$_ACPVAFUL   = 000002FC            SS$_FCPREWNDERR= 00000890            

PTR_S_TYPE     = 00000004            SS$_ARTRES     = 00000474            SS$_FCPSPACERR = 00000898            

PTR_S_VALUE    = 00000008            SS$_ASTFLT     = 0000040C            SS$_FCPWRITERR = 000008A0            

PTR_V_FLAGS    = 00000014            SS$_BADATTRIB  = 00000034            SS$_FILACCERR  = 0000009C            

PTR_V_NEGATE   = 00000000            SS$_BADCHKSUM  = 00000808            SS$_FILALRACC  = 000000A4            

PTR_V_OFFSET   = 00000008            SS$_BADESCAPE  = 0000003C            SS$_FILELOCKED = 000008A8            

PTR_V_TERM     = 00000018            SS$_BADFILEHDR = 00000810            SS$_FILENUMCHK = 000008B0            

PTR_V_TYPE     = 0000001C            SS$_BADFILENAME= 00000818            SS$_FILESEQCHK = 000008B8            

PTR_V_VALUE    = 00000000            SS$_BADFILEVER = 00000820            SS$_FILESTRUCT = 000008C0            

QUA_B_DEFVAL     00000002            SS$_BADIMGHDR  = 00000044            SS$_FILNOTACC  = 000000AC            

QUA_B_IMAGE      00000005            SS$_BADIRECTORY= 00000828            SS$_FILNOTCNTG = 000002AC            

QUA_B_INDEX      00000001            SS$_BADPARAM   = 00000014            SS$_FILNOTEXP  = 000000B4            

QUA_B_OFFSET     00000000            SS$_BADSTACK   = 000002B4            SS$_FLTDIV     = 00000494            

QUA_B_PARMCNT    00000008            SS$_BEGOFFILE  = 00000938            SS$_FLTOVF     = 0000048C            

QUA_G_CHNGLST    00000006            SS$_BLOCKCNTERR= 00000940            SS$_FLTUND     = 0000049C            

QUA_M_BATDEF   = 00000100            SS$_BREAK      = 00000414            SS$_FORMAT     = 000000BC            

QUA_M_CHNGLIST = 00000001            SS$_BUFBYTALI  = 0000030C            SS$_GPTFULL    = 000000C4            

QUA_M_DEFTRUE  = 00000080            SS$_BUFFEROVF  = 00000601            SS$_GSDFULL    = 000000CC            

QUA_M_FILE     = 00000004            SS$_BUGCHECK   = 000002A4            SS$_HANGUP     = 000002CC            

QUA_M_IMAGE    = 00000400            SS$_CANCEL     = 00000830            SS$_HEADERFULL = 000008C8            

QUA_M_INTDEF   = 00000200            SS$_CHANINTLK  = 0000004C            SS$_IDXFILEFULL= 000008D0            

QUA_M_KEYVAL   = 00004000            SS$_CLIFRCEXT  = 00000980            SS$_ILLBLKNUM  = 000000DC            

QUA_M_LOCALKEY = 00000002            SS$_CMODSUPR   = 0000041C            SS$_ILLCNTRFUNC= 000000E4            

QUA_M_NEG      = 00000040            SS$_CMODUSER   = 00000424            SS$_ILLEFC     = 000000EC            

QUA_M_ONEVAL   = 00002000            SS$_COMPAT     = 0000042C            SS$_ILLIOFUNC  = 000000F4            

QUA_M_OUTPUT   = 00000800            SS$_CONTINUE   = 00000001            SS$_ILLLBLAST  = 00000968            

QUA_M_PARM     = 00000010            SS$_CONTROLC   = 00000651            SS$_ILLPAGCNT  = 000000FC            

QUA_M_VAL      = 00000020            SS$_CONTROLO   = 00000609            SS$_ILLSEQOP   = 000002DC            

QUA_M_VALREQ   = 00001000            SS$_CONTROLY   = 00000611            SS$_ILLSER     = 00000104            

QUA_M_VERB     = 00000008            SS$_CREATED    = 00000619            SS$_ILLUSRLBLRD= 00000958            

QUA_S_MAXPARM  = 00000004            SS$_CTRLERR    = 00000054            SS$_ILLUSRLBLWT= 00000960            

QUA_S_MINPARM  = 00000004            SS$_DATACHECK  = 0000005C            SS$_INCVOLLABEL= 0000010C            

QUA_V_BATDEF   = 00000008            SS$_DATAOVERUN = 00000838            SS$_INSFARG    = 00000114            

QUA_V_CHNGLIST = 00000000            SS$_DEBUG      = 0000046C            SS$_INSFMEM    = 00000124            

QUA_V_DEFTRUE  = 00000007            SS$_DECOVF     = 000004A4            SS$_INSFRAME   = 0000012C            

QUA_V_FILE     = 00000002            SS$_DEVACTIVE  = 000002C4            SS$_INSFWSL    = 0000011C            

QUA_V_IMAGE    = 0000000A            SS$_DEVALLOC   = 00000840            SS$_INTDIV     = 00000484            

QUA_V_INTDEF   = 00000009            SS$_DEVALRALLOC= 00000641            SS$_INTOVF     = 0000047C            

QUA_V_KEYVAL   = 0000000E            SS$_DEVASSIGN  = 00000848            SS$_IVADDR     = 00000134            

QUA_V_LOCALKEY = 00000001            SS$_DEVFOREIGN = 00000064            SS$_IVCHAN     = 0000013C            

QUA_V_MAXPARM  = 00000004            SS$_DEVICEFULL = 00000850            SS$_IVCHNLSEC  = 0000026C            

QUA_V_MINPARM  = 00000000            SS$_DEVMOUNT   = 0000006C            SS$_IVDEVNAM   = 00000144            

QUA_V_NEG      = 00000006            SS$_DEVNOTALLOC= 00000858            SS$_IVGSDNAM   = 0000014C            

QUA_V_ONEVAL   = 0000000D            SS$_DEVNOTMBX  = 00000074            SS$_IVLOGNAM   = 00000154            

QUA_V_OUTPUT   = 0000000B            SS$_DEVNOTMOUNT= 0000007C            SS$_IVLOGTAB   = 0000015C            

QUA_V_PARM     = 00000004            SS$_DEVOFFLINE = 00000084            SS$_IVPROTECT  = 000002F4            

QUA_V_VAL      = 00000005            SS$_DIRFULL    = 00000860            SS$_IVQUOTAL   = 00000164            

QUA_V_VALREQ   = 0000000C            SS$_DRVERR     = 0000008C            SS$_IVSECFLG   = 0000016C            

QUA_V_VERB     = 00000003            SS$_DUPFILENAME= 00000868            SS$_IVSECIDCTL = 000002E4            

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page  18

SYMBOL TABLE                                                                                                                     (1)



SS$_IVSSRQ     = 00000174            SS$_SECTBLFUL  = 0000021C            WRK_L_QUABLK     FFFFFFE0            

SS$_IVSTSFLG   = 0000017C            SS$_SSFAIL     = 0000045C            WRK_L_RSLNXT     FFFFFD34            

SS$_IVTIME     = 00000184            SS$_SUBRNG     = 000004AC            WRK_L_SAVAP      FFFFFFC8            

SS$_LCKPAGFUL  = 000000D4            SS$_SUPERSEDE  = 00000631            WRK_L_SAVFP      FFFFFFCC            

SS$_LENVIO     = 0000018C            SS$_TAPEPOSLOST= 00000224            WRK_L_SAVSP      FFFFFFC4            

SS$_LKWSETFUL  = 00000194            SS$_TBIT       = 00000464            WRK_M_COMMAND  = 00000002            

SS$_MBFULL     = 000008D8            SS$_TIMEOUT    = 0000022C            WRK_M_IMCHNG   = 00000004            

SS$_MBTOOSML   = 0000019C            SS$_TOOMANYVER = 00000990            WRK_M_INQUIRE  = 00000100            

SS$_MCHECK     = 000002BC            SS$_TOOMUCHDATA= 0000029C            WRK_M_NOSTAT   = 00000200            

SS$_MEDOFL     = 000001A4            SS$_UNASEFC    = 00000234            WRK_M_PROMPT   = 00000008            

SS$_MSGNOTFND  = 00000621            SS$_UNSAFE     = 0000023C            WRK_M_QUAL     = 00000010            

SS$_MTLBLLONG  = 00000304            SS$_UNWIND     = 00000920            WRK_M_QUOTE    = 00000020            

SS$_MUSTCLOSEFL= 00000948            SS$_UNWINDING  = 00000928            WRK_M_RUNDWN   = 00000001            

SS$_NOAQB      = 00000314            SS$_VASFULL    = 00000244            WRK_M_STAR     = 00000040            

SS$_NODATA     = 000001AC            SS$_VECINUSE   = 0000024C            WRK_M_TRAILSPC = 00000400            

SS$_NOHANDLER  = 000008F8            SS$_VOLINV     = 00000254            WRK_M_VERB     = 00000080            

SS$_NOHOMEBLK  = 000008E0            SS$_WAITUSRLBL = 00000950            WRK_Q_IOSB       FFFFFFD4            

SS$_NOIOCHAN   = 000001B4            SS$_WASCLR     = 00000001            WRK_V_COMMAND  = 00000001            

SS$_NOLINKS    = 0000027C            SS$_WASECC     = 00000639            WRK_V_IMCHNG   = 00000002            

SS$_NOLOGNAM   = 000001BC            SS$_WASSET     = 00000009            WRK_V_INQUIRE  = 00000008            

SS$_NOMBX      = 00000274            SS$_WRITLCK    = 0000025C            WRK_V_NOSTAT   = 00000009            

SS$_NOMOREFILES= 00000930            SS$_WRONGACP   = 0000031C            WRK_V_PROMPT   = 00000003            

SS$_NONEXDRV   = 000001C4            STATUS_END       000000E8 R     03   WRK_V_QUAL     = 00000004            

SS$_NONEXPR    = 000008E8            STATUS_MSG       0000004B R     03   WRK_V_QUOTE    = 00000005            

SS$_NONLOCAL   = 000008F0            SYM_B_TYPE       0000000A            WRK_V_RUNDWN   = 00000000            

SS$_NOPRIV     = 00000024            SYM_K_DECIMAL  = 00000004            WRK_V_STAR     = 00000006            

SS$_NORMAL     = 00000001            SYM_K_HEXDEC   = 00000005            WRK_V_TRAILSPC = 0000000A            

SS$_NOSIGNAL   = 00000900            SYM_K_LOGICAL  = 00000002            WRK_V_VERB     = 00000007            

SS$_NOSOLICIT  = 00000284            SYM_K_OCTAL    = 00000003            WRK_W_FLAGS      FFFFFFFA            

SS$_NOSUCHDEV  = 00000908            SYM_K_PERM     = 00000001            WRK_W_IMGCHAN    FFFFFFF8            

SS$_NOSUCHFILE = 00000910            SYM_K_STRING   = 00000000            

SS$_NOSUCHNODE = 0000028C            SYM_L_BL         00000004            

SS$_NOSUCHSEC  = 00000978            SYM_L_FL         00000000            

SS$_NOTAPEOP   = 00000264            SYM_T_SYMBOL     0000000C            

SS$_NOTFILEDEV = 000001CC            SYM_W_SIZE       00000008            

SS$_NOTINTBLSZ = 000001D4            SYS$ASCTIM       ********   X   03   

SS$_NOTLABELMT = 000001DC            SYS$FAO          ********   X   03   

SS$_NOTMODIFIED= 00000659            SYS$FAOL         ********   X   03   

SS$_NOTNETDEV  = 000002EC            SYS$GETJPI       ********   X   03   

SS$_NOTRAN     = 00000629            SYS$TRNLOG       ********   X   03   

SS$_NOTSQDEV   = 000001E4            TEXT_T_GROUP     000000F5 R     03   

SS$_OPCCUS     = 00000434            TEXT_T_NULLSTR   00000107 R     03   

SS$_OPCDEC     = 0000043C            TEXT_T_PROCESS   000000FD R     03   

SS$_OPINCOMPL  = 000002D4            TEXT_T_SYSTEM    000000EC R     03   

SS$_PAGOWNVIO  = 000001EC            WRK_AB_BUFFER    FFFFFD38            

SS$_PAGRDERR   = 00000444            WRK_AG_RESULT    FFFFFBB4            

SS$_PARITY     = 000001F4            WRK_B_VERBTYP    FFFFFFC0            

SS$_PARTESCAPE = 000001FC            WRK_K_LENGTH     FFFFFBB4            

SS$_PFMBSY     = 00000204            WRK_L_CHARPTR    FFFFFFFC            

SS$_PLHLDR     = 00000404            WRK_L_CMDOUT     FFFFFFBC            

SS$_PSTFULL    = 0000020C            WRK_L_IMAGE      FFFFFFEC            

SS$_RADRMOD    = 0000044C            WRK_L_MAXPARM    FFFFFFE4            

SS$_REJECT     = 00000294            WRK_L_MINPARM    FFFFFFE8            

SS$_REMOTE     = 00000649            WRK_L_PARMCNT    FFFFFFF0            

SS$_RESIGNAL   = 00000918            WRK_L_PAROUT     FFFFFFF4            

SS$_RESULTOVF  = 00000214            WRK_L_PROMPT     FFFFFFD0            

SS$_ROPRAND    = 00000454            WRK_L_PROPTR     FFFFFFDC            

SHOW            - SHOW INFORMATION DCLS COMMAND EXECUTION        22-AUG-1978 01:24:57   VAX-11 MACRO X0.3-11               Page  19

PROGRAM SECTION SYNOPSIS                                                                                                         (1)







PROGRAM SECTION SYNOPSIS



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

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

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

DCL$ZCODE        0000039B      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

3130. BYTES LEFT IN FREE MEMORY POOL.

2570. BYTES OF RECLAIMED MEMORY.

EXE$:SHOW,LIS$:SHOW/-SP=EXECML$/ML,LIB$:DCL/ML,SRC$:SHOW

67 MLB DIR RDS - 1049 GETS TO DEFINE 39 MACROS. 77 INTER. FILE WRITES. 

