PROCFILE        - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:12:00   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      34  PROCESS FILE SPECIFICATION

   (1)     210  CONVERT UIC NUMBER AND CHECK

PROCFILE        - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:12:00   VAX-11 MACRO X0.3-11               Page   1

01                                                                                                                               (1)



                                     0000     1 	.TITLE	PROCFILE - PROCESS FILE SPECIFICATION

                                     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 22-MAR-77

                                     0000    24 ;

                                     0000    25 ; PROCESS FILE SPECIFICATION

                                     0000    26 ;

                                     0000    27 ; MACRO LIBRARY CALLS

                                     0000    28 ;

                                     0000    29  

                                     0000    30 	DEFCMDWRK			;DEFINE WORK AREA OFFSETS

                                     0000    31 	DEFERRCOD			;DEFINE ERROR/STATUS VALUES

                                     0000    32 	DEFPTRDSC			;DEFINE RESULT PARSE DESCRIPTOR FORMAT

PROCFILE        - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:12:00   VAX-11 MACRO X0.3-11               Page   2

01              PROCESS FILE SPECIFICATION                                                                                       (1)



                                     0000    34 	.SBTTL	PROCESS FILE SPECIFICATION

                                     0000    35 ;+

                                     0000    36 ; DCL$PROCFILE - PROCESS FILE SPECIFICATION.

                                     0000    37 ;

                                     0000    38 ; THIS ROUTINE IS CALLED TO SCAN A FILE SPECIFICATION FOR SYNTACTIC CORRECT-

                                     0000    39 ; NESS AND TO EMIT A FILE DESCRIPTOR TO THE RESULT PARSE TABLE.

                                     0000    40 ;

                                     0000    41 ; INPUTS:

                                     0000    42 ;

                                     0000    43 ;	R9 = ADDRESS OF NEXT BYTE IN COMMAND BUFFER.

                                     0000    44 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     0000    45 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     0000    46 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     0000    47 ;

                                     0000    48 ; OUTPUTS:

                                     0000    49 ;

                                     0000    50 ;	R0 LOW BIT CLEAR INDICATES A FAILURE TO PARSE FILE SPECIFICATION.

                                     0000    51 ;

                                     0000    52 ;		R0 = DCL$_DIRECT - INVALID DIRECTORY SYNTAX.

                                     0000    53 ;		R0 = DCL$_NUMBER - INVALID GROUP, MEMBER, OR VERSION NUMBER.

                                     0000    54 ;		R0 = DCL$_NULFIL - NULL FILE SPECIFICATION.

                                     0000    55 ;

                                     0000    56 ;	R0 LOW BIT SET INDICATES A SUCCESSFUL PARSE WITH THE FILE DESCRIPTOR

                                     0000    57 ;		EMITTED AND THE FILE SPECIFICATION COPIED TO THE COMMAND

                                     0000    58 ;		BUFFER.

                                     0000    59 ;

                                     0000    60 ;		R0 = DCL$_NORMAL - NORMAL COMPLETION.

                                     0000    61 ;-

                                     0000    62  

                                 00000000    63 	.PSECT	YDCL$ZCODE,BYTE,RD,NOWRT

                                     0000    64 DCL$PROCFILE::				;PROCESS FILE SPECIFICATION

                     01C0 8F     BB  0000    65 	PUSHR	#^M<R6,R7,R8>		;SAVE REGISTERS

            58         01 A9     9E  0004    66 	MOVAB	1(R9),R8		;SAVE STARTING ADDRESS OF PARAMETER

                                     0008    67 	MOVTOKN				;MOVE TERMINATOR AND GET TOKEN

                          22     13  000B    68 	BEQL	20$			;IF EQL NONE

                                     000D    69  

                                     000D    70 ;

                                     000D    71 ; TOKEN OBTAINED - FORM MUST BE:

                                     000D    72 ;

                                     000D    73 ;	'NODE::' OR,

                                     000D    74 ;	'DEVICE:' OR,

                                     000D    75 ;	'FILENAME.' OR,

                                     000D    76 ;	'FILENAME;' OR,

                                     000D    77 ;	'FILENAME '.

                                     000D    78 ;

                                     000D    79  

            50            3A     91  000D    80 	CMPB	#^A/:/,R0		;NODE OR DEVICE NAME?

                          56     12  0010    81 	BNEQ	60$			;IF NEQ NO

                                     0012    82  

                                     0012    83 ;

                                     0012    84 ; NODE OR DEVICE NAME

                                     0012    85 ;

                                     0012    86  

                                     0012    87 	MOVCHAR				;MOVE TERMINATOR TO COMMAND BUFFER

                                     0015    88 	SETCHAR				;PEEK AT NEXT CHARACTER IN INPUT BUFFER

            50            3A     91  0018    89 	CMPB	#^A/:/,R0		;NODE NAME?

                          0D     12  001B    90 	BNEQ	10$			;IF NEQ NO

PROCFILE        - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:12:00   VAX-11 MACRO X0.3-11               Page   3

01              PROCESS FILE SPECIFICATION                                                                                       (1)



                                     001D    91 	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

                          0D     13  0020    92 	BEQL	20$			;IF EQL NONE

                                     0022    93  

                                     0022    94 ;

                                     0022    95 ; TOKEN OBTAINED - FORM MUST BE:

                                     0022    96 ;

                                     0022    97 ;	'DEVICE:' OR,

                                     0022    98 ;	'FILENAME.' OR,

                                     0022    99 ;	'FILENAME;' OR,

                                     0022   100 ;	'FILENAME '.

                                     0022   101 ;

                                     0022   102  

            50            3A     91  0022   103 	CMPB	#^A/:/,R0		;DEVICE NAME?

                          41     12  0025   104 	BNEQ	60$			;IF NEQ NO

                                     0027   105 	MOVCHAR				;MOVE TERMINATOR TO COMMAND BUFFER

                                     002A   106 10$:	GTBTOKEN			;GET NEXT BLANK TOKEN

                          39     12  002D   107 	BNEQ	60$			;IF NEQ TOKEN OBTAINED

                                     002F   108  

                                     002F   109 ;

                                     002F   110 ; NO TOKEN OBTAINED - FORM MUST BE:

                                     002F   111 ;

                                     002F   112 ;	'[DIRECTORY]' OR,

                                     002F   113 ;	'<DIRECTORY>' OR,

                                     002F   114 ;	'.TYPE' OR,

                                     002F   115 ;	';VERSION'.

                                     002F   116 ;

                                     002F   117  

            50         5B 8F     91  002F   118 20$:	CMPB	#^A/[/,R0		;DIRECTORY?

                          05     13  0033   119 	BEQL	30$			;IF EQL YES

            50            3C     91  0035   120 	CMPB	#^A/</,R0		;DIRECTORY?

                          2E     12  0038   121 	BNEQ	60$			;IF NEQ NO

            5C         02 A0     9E  003A   122 30$:	MOVAB	2(R0),AP		;SAVE DIRECTORY TERMINATOR CHARACTER

                                     003E   123 	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

            50            2C     91  0041   124 	CMPB	#^A/,/,R0		;OLD STYLE DIRECTORY?

                          0E     12  0044   125 	BNEQ	40$			;IF NEQ NO

                                     0046   126  

                                     0046   127 ;

                                     0046   128 ; OLD STYLE DIRECTORY - FORM IS:

                                     0046   129 ;

                                     0046   130 ;	'[GROUP,MEMBER]'.

                                     0046   131 ;

                                     0046   132  

                          6C     10  0046   133 	BSBB	CVTUIC			;CONVERT GROUP NUMBER AND CHECK

                                     0048   134 	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

            5C            50     91  004B   135 	CMPB	R0,AP			;EXPECTED TERMINATOR?

                          5F     12  004E   136 	BNEQ	120$			;IF NEQ NO

                          62     10  0050   137 	BSBB	CVTUIC			;CONVERT AND CHECK MEMBER NUMBER

                          11     11  0052   138 	BRB	50$			;

                                     0054   139  

                                     0054   140 ;

                                     0054   141 ; NEW STYLE DIRECTORY - FORM IS:

                                     0054   142 ;

                                     0054   143 ;	'<SUB.SUB...SUB>'.

                                     0054   144 ;

                                     0054   145  

            5C            50     91  0054   146 40$:	CMPB	R0,AP			;EXPECTED TERMINATOR?

                          0C     13  0057   147 	BEQL	50$			;IF EQL YES

PROCFILE        - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:12:00   VAX-11 MACRO X0.3-11               Page   4

01              PROCESS FILE SPECIFICATION                                                                                       (1)



            50            2E     91  0059   148 	CMPB	#^A/./,R0		;SUBDIRECTORY?

                          51     12  005C   149 	BNEQ	120$			;IF NEQ NO

                                     005E   150 	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

                          4C     13  0061   151 	BEQL	120$			;IF EQL NONE

                          EF     11  0063   152 	BRB	40$			;

                                     0065   153 50$:	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

                                     0068   154  

                                     0068   155 ;

                                     0068   156 ; FILENAME, TYPE, OR VERSION - FORM MUST BE:

                                     0068   157 ;

                                     0068   158 ;	'FILENAME.' OR,

                                     0068   159 ;	'FILENAME;' OR,

                                     0068   160 ;	'FILENAME ' OR,

                                     0068   161 ;	'.TYPE' OR,

                                     0068   162 ;	';VERSION'.

                                     0068   163 ;

                                     0068   164  

            50            2E     91  0068   165 60$:	CMPB	#^A/./,R0		;FILE TYPE?

                          08     12  006B   166 	BNEQ	70$			;IF NEQ NO

                                     006D   167 	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

            50            2E     91  0070   168 	CMPB	#^A/./,R0		;NEW VERSION FORMAT?

                          05     13  0073   169 	BEQL	80$			;IF EQL YES

                                     0075   170  

                                     0075   171 ;

                                     0075   172 ; FILE VERSION - FORM MUST BE:

                                     0075   173 ;

                                     0075   174 ;	';VERSION'.

                                     0075   175 ;

                                     0075   176  

            50            3B     91  0075   177 70$:	CMPB	#59,R0			;FILE VERSION?****TEMP**** ^A/;/

                          17     12  0078   178 	BNEQ	100$			;IF NEQ NO

                                     007A   179 80$:	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

                          08     12  007D   180 	BNEQ	90$			;IF NEQ NO NEGATIVE VERSION

            50            2D     91  007F   181 	CMPB	#^A/-/,R0		;NEGATIVE VERSION?

                          0D     12  0082   182 	BNEQ	100$			;IF NEQ NO

                                     0084   183 	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

            50            0A     D0  0087   184 90$:	MOVL	#10,R0			;SET CONVERSION RADIX

            53       7FFF 8F     3C  008A   185 	MOVZWL	#32767,R3		;SET CONVERSION LIMIT

                          2A     10  008F   186 	BSBB	CVTNUM			;CONVERT AND CHECK NUMBER

                                     0091   187  

                                     0091   188 ;

                                     0091   189 ; FILE SPECIFICATION SCANNED - CHECK RESULT

                                     0091   190 ;

                                     0091   191  

                                     0091   192 100$:	STATUS	NULFIL			;ASSUME NULL FILE SPECIFICATION

            59            58     C3  0094   193 	SUBL3	R8,R9,R7		;CALCULATE LENGTH OF PARAMETER STRING

                          57         0097       

                          50     13  0098   194 	BEQL	FILXIT			;IF EQL NONE

                          56     D4  009A   195 	CLRL	R6			;CLEAR FLAGS

            55            03     9A  009C   196 	MOVZBL	#PTR_K_PARAMETR,R5	;ASSUME NOT PROCESSING QUALIFIER

         FA AD            04     E1  009F   197 	BBC	#WRK_V_QUAL,WRK_W_FLAGS(FP),110$ ;IF CLR, NOT PROCESSING QUALIFIER

                          03         00A3       

            55            02     9A  00A4   198 	MOVZBL	#PTR_K_QUALVALU,R5	;SET ITEM TYPE TO QUALIFIER VALUE

                                     00A7   199 110$:	GENDESCR			;GENERATE RESULT PARSE DESCRIPTOR

                                     00AA   200 	STATUS	NORMAL			;SET SUCCESSFUL COMPLETION

                          3B     11  00AD   201 	BRB	FILXIT			;

                                     00AF   202  

PROCFILE        - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:12:00   VAX-11 MACRO X0.3-11               Page   5

01              PROCESS FILE SPECIFICATION                                                                                       (1)



                                     00AF   203 ;

                                     00AF   204 ; INVALID DIRECTORY SYNTAX

                                     00AF   205 ;

                                     00AF   206  

                                     00AF   207 120$:	STATUS	DIRECT			;SET INVALID DIRECTORY SYNTAX

                          36     11  00B2   208 	BRB	FILXIT			;

PROCFILE        - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:12:00   VAX-11 MACRO X0.3-11               Page   6

01              CONVERT UIC NUMBER AND CHECK                                                                                     (1)



                                     00B4   210 	.SBTTL	CONVERT UIC NUMBER AND CHECK

                                     00B4   211 ;

                                     00B4   212 ; CVTUIC - CONVERT UIC NUMBER AND CHECK

                                     00B4   213 ;

                                     00B4   214  

                                     00B4   215 	.ENABL	LSB

                                     00B4   216 CVTUIC:					;CONVERT UIC AND CHECK

            50            08     D0  00B4   217 	MOVL	#8,R0			;SET CONVERSION RADIX

            53         FF 8F     9A  00B7   218 	MOVZBL	#255,R3			;SET CONVERSION LIMIT

                                     00BB   219 CVTNUM:					;CONVERT AND CHECK NUMBER

                          51     D5  00BB   220 	TSTL	R1			;ANY DIGITS TO CONVERT?

                          26     13  00BD   221 	BEQL	20$			;IF EQL NO

                          54     7C  00BF   222 	CLRQ	R4			;CLEAR ACCUMULATED RESULT

            51            01     D1  00C1   223 	CMPL	#1,R1			;EXACTLY ONE CHARACTER?

                          05     12  00C4   224 	BNEQ	10$			;IF NEQ NO

            62            2A     91  00C6   225 	CMPB	#^A/*/,(R2)		;ASTERISK?

                          23     13  00C9   226 	BEQL	30$			;IF EQL YES

            82            30     83  00CB   227 10$:	SUBB3	#^A/0/,(R2)+,R4		;SUBTRACT DIGIT BIAS FROM NEXT CHARACTER

                          54         00CE       

                          14     19  00CF   228 	BLSS	20$			;IF LSS ILLEGAL CHARACTER

            54            50     91  00D1   229 	CMPB	R0,R4			;DIGIT TOO LARGE?

                          0F     15  00D4   230 	BLEQ	20$			;IF LEQ YES

            55            50     C4  00D6   231 	MULL	R0,R5			;SCALE ACCUMULATED RESULT

            55            54     C0  00D9   232 	ADDL	R4,R5			;ADD IN NEW DIGIT

            55            53     D1  00DC   233 	CMPL	R3,R5			;RESULT OVERFLOW?

                          04     19  00DF   234 	BLSS	20$			;IF LSS YES

            E7            51     F5  00E1   235 	SOBGTR	R1,10$			;ANY MORE DIGITS TO CONVERT?

                                 05  00E4   236 	RSB				;

                          8E     D5  00E5   237 20$:	TSTL	(SP)+			;REMOVE RETURN FROM STACK

                                     00E7   238 	STATUS	NUMBER			;SET NUMBER ERROR

                                     00EA   239 FILXIT:					;COMMMON EXIT

                     01C0 8F     BA  00EA   240 	POPR	#^M<R6,R7,R8>		;RESTORE REGISTERS

                                 05  00EE   241 30$:	RSB				;

                                     00EF   242 	.DSABL	LSB

                                     00EF   243  

                                     00EF   244 	.END

PROCFILE        - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:12:00   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



BIT...         = 00000005            CLI$_OVRFLW    = 00038160            PRC_L_INPRAB     00000008            

CLI$_ABFNAM    = 000381B8            CLI$_PARMDEL   = 00038110            PRC_L_LSTSTATUS  00000094            

CLI$_ABKEYW    = 00038000            CLI$_PROC_ID   = 0003FFF1            PRC_L_ONCTLY     0000009C            

CLI$_ABVERB    = 00038008            CLI$_QUEJOBCRE = 0003FFF9            PRC_L_ONERROR    00000058            

CLI$_BADRET    = 00038198            CLI$_REQPRMABS = 00038812            PRC_L_OUTRAB     0000000C            

CLI$_BADTEXT   = 000381B0            CLI$_RSLOVF    = 00038118            PRC_L_PROCUIC    00000098            

CLI$_BUFOVF    = 00038018            CLI$_SKPDAT    = 00038120            PRC_L_SAVAP      00000000            

CLI$_COMPLX    = 00038020            CLI$_SPARE0    = 00038010            PRC_L_SAVFP      00000004            

CLI$_CONFQUAL  = 00038802            CLI$_SPARE1    = 00038058            PRC_L_SEVERITY   00000040            

CLI$_CREQUEJOB = 0003884A            CLI$_STKOVF    = 00038128            PRC_L_STACKLM    00000088            

CLI$_DEFOVF    = 00038028            CLI$_SUBMITERR = 00038852            PRC_L_STACKPT    00000084            

CLI$_DEVALSPL  = 0003885A            CLI$_SYMDEL    = 00038130            PRC_L_STATUS     00000044            

CLI$_DEVNOTFOR = 0003887A            CLI$_SYMOVF    = 00038138            PRC_L_SYMBOL     0000004C            

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

CLI$_DIRECT    = 00038030            CLI$_UNDSYM    = 00038140            PRC_M_DBGQUAL  = 00000200            

CLI$_EXPSYN    = 00038038            CLI$_UNPROPARM = 00038170            PRC_M_DBGTRUE  = 00000400            

CLI$_FILOPN    = 00038190            CLI$_UNPROQUAL = 00038168            PRC_M_DISABL   = 00000004            

CLI$_ILLVAL    = 0003883A            CLI$_USGOTO    = 00038148            PRC_M_EXIT     = 00000008            

CLI$_IMCHNG    = 00038040            CLI$_VALCNVERR = 00038832            PRC_M_GOEOF    = 00000001            

CLI$_IMGFNF    = 00038872            CLI$_VALREQ    = 00038150            PRC_M_GOTO     = 00000010            

CLI$_INSFPRM   = 00038048            CMDBUFSIZ      = 000001FC            PRC_M_HANGUP   = 00001000            

CLI$_INVKEY    = 00038178            CVTNUM           000000BB R     03   PRC_M_IND      = 00000020            

CLI$_INVQUAL   = 0003880A            CVTUIC           000000B4 R     03   PRC_M_MODE     = 00000040            

CLI$_INVQUALNUM= 0003881A            DCL$GENDESCR     ********   X   03   PRC_M_NOCTLY   = 00004000            

CLI$_INVREQTYP = 00038822            DCL$GTBTOKEN     ********   X   03   PRC_M_PAUSE    = 00002000            

CLI$_INVRSP    = 00038180            DCL$MOVBTOKN     ********   X   03   PRC_M_USRDET   = 00000100            

CLI$_INVUIC    = 000381A8            DCL$MOVCHAR      ********   X   03   PRC_M_VERIFY   = 00000080            

CLI$_IVCHAR    = 00038050            DCL$MOVTOKN      ********   X   03   PRC_M_YLEVEL   = 00000800            

CLI$_IVDEVTYPE = 0003886A            DCL$PROCFILE     00000000 RG    03   PRC_Q_ALLOCREG   00000020            

CLI$_IVFNAM    = 000381C0            DCL$SETCHAR      ********   X   03   PRC_Q_GLOBAL     00000028            

CLI$_IVKEYW    = 00038060            FILXIT           000000EA R     03   PRC_Q_LABEL      00000030            

CLI$_IVOPER    = 00038068            GBL...         = 00000000            PRC_Q_LOCAL      00000038            

CLI$_IVPROT    = 00038070            INPBUFSIZ      = 00000084            PRC_V_CNTRLY   = 00000001            

CLI$_IVQLOC    = 00038078            MSGBUFSIZ      = 00000084            PRC_V_DBGQUAL  = 00000009            

CLI$_IVSYMB    = 00038080            PRC_B_DEFRADIX   00000092            PRC_V_DBGTRUE  = 0000000A            

CLI$_IVVALU    = 00038088            PRC_B_EXMDEPMOD  00000091            PRC_V_DISABL   = 00000002            

CLI$_IVVERB    = 00038090            PRC_B_EXMDEPWID  00000090            PRC_V_EXIT     = 00000003            

CLI$_MAXPARM   = 00038098            PRC_K_DEC      = 00000001            PRC_V_GOEOF    = 00000000            

CLI$_MULKEY    = 000381A0            PRC_K_HEX      = 00000000            PRC_V_GOTO     = 00000004            

CLI$_NOATFIL   = 000380A0            PRC_K_LENGTH     000000A0            PRC_V_HANGUP   = 0000000C            

CLI$_NOCCAT    = 000380A8            PRC_K_OCT      = 00000002            PRC_V_IND      = 00000005            

CLI$_NOCOMD    = 000380B0            PRC_L_CLIWRK0    0000005C            PRC_V_MODE     = 00000006            

CLI$_NOKEYW    = 000380B8            PRC_L_CLIWRK1    00000060            PRC_V_NOCTLY   = 0000000E            

CLI$_NOLIST    = 000380C0            PRC_L_CLIWRK2    00000064            PRC_V_PAUSE    = 0000000D            

CLI$_NOOPTPRS  = 00038842            PRC_L_CLIWRK3    00000068            PRC_V_USRDET   = 00000008            

CLI$_NOQUAL    = 000380C8            PRC_L_CLIWRK4    0000006C            PRC_V_VERIFY   = 00000007            

CLI$_NORMAL    = 00030001            PRC_L_ERRRAB     00000010            PRC_V_YLEVEL   = 0000000B            

CLI$_NOTNEG    = 000380D8            PRC_L_EXMDEPADR  0000008C            PRC_W_CLIFLAG    00000052            

CLI$_NOVALU    = 000380D0            PRC_L_EXTARG     00000078            PRC_W_ERRIFI     00000052            

CLI$_NOVALUE   = 0003882A            PRC_L_EXTBLK     00000070            PRC_W_FLAGS      00000054            

CLI$_NULFIL    = 000380E0            PRC_L_EXTCOD     00000080            PRC_W_INPCHAN    00000050            

CLI$_NUMBER    = 000380E8            PRC_L_EXTHND     00000074            PRC_W_ONLEVEL    00000056            

CLI$_ONCOMD    = 000380F0            PRC_L_EXTPRM     0000007C            PTR_K_BLANK    = 00000001            

CLI$_ONERR     = 000380F8            PRC_L_INDEPTH    00000048            PTR_K_COLON    = 00000002            

CLI$_ONEVAL    = 00038158            PRC_L_INDFAB     0000001C            PTR_K_COMDQUAL = 00000000            

CLI$_ONLEVL    = 00038100            PRC_L_INDINPRAB  00000014            PTR_K_COMMA    = 00000005            

CLI$_ONOVF     = 00038108            PRC_L_INDOUTRAB  00000018            PTR_K_ENDLINE  = 00000004            

PROCFILE        - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:12:00   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



PTR_K_LPAREN   = 00000007            WRK_V_RUNDWN   = 00000000            

PTR_K_PARAMETR = 00000003            WRK_V_STAR     = 00000006            

PTR_K_PARMQUAL = 00000001            WRK_V_TRAILSPC = 0000000A            

PTR_K_PLUS     = 00000004            WRK_V_VERB     = 00000007            

PTR_K_QUALVALU = 00000002            WRK_W_FLAGS      FFFFFFFA            

PTR_K_RPAREN   = 00000006            WRK_W_IMGCHAN    FFFFFFF8            

PTR_K_SLASH    = 00000003            _$$_           = 0000003A            

PTR_L_DESCR      00000000            

PTR_S_FLAGS    = 00000004            

PTR_S_OFFSET   = 0000000C            

PTR_S_TERM     = 00000004            

PTR_S_TYPE     = 00000004            

PTR_S_VALUE    = 00000008            

PTR_V_FLAGS    = 00000014            

PTR_V_NEGATE   = 00000000            

PTR_V_OFFSET   = 00000008            

PTR_V_TERM     = 00000018            

PTR_V_TYPE     = 0000001C            

PTR_V_VALUE    = 00000000            

RSLBUFSIZ      = 00000180            

WRK_AB_BUFFER    FFFFFD38            

WRK_AG_RESULT    FFFFFBB4            

WRK_B_VERBTYP    FFFFFFC0            

WRK_K_LENGTH     FFFFFBB4            

WRK_L_CHARPTR    FFFFFFFC            

WRK_L_CMDOUT     FFFFFFBC            

WRK_L_IMAGE      FFFFFFEC            

WRK_L_MAXPARM    FFFFFFE4            

WRK_L_MINPARM    FFFFFFE8            

WRK_L_PARMCNT    FFFFFFF0            

WRK_L_PAROUT     FFFFFFF4            

WRK_L_PROMPT     FFFFFFD0            

WRK_L_PROPTR     FFFFFFDC            

WRK_L_QUABLK     FFFFFFE0            

WRK_L_RSLNXT     FFFFFD34            

WRK_L_SAVAP      FFFFFFC8            

WRK_L_SAVFP      FFFFFFCC            

WRK_L_SAVSP      FFFFFFC4            

WRK_M_COMMAND  = 00000002            

WRK_M_IMCHNG   = 00000004            

WRK_M_INQUIRE  = 00000100            

WRK_M_NOSTAT   = 00000200            

WRK_M_PROMPT   = 00000008            

WRK_M_QUAL     = 00000010            

WRK_M_QUOTE    = 00000020            

WRK_M_RUNDWN   = 00000001            

WRK_M_STAR     = 00000040            

WRK_M_TRAILSPC = 00000400            

WRK_M_VERB     = 00000080            

WRK_Q_IOSB       FFFFFFD4            

WRK_V_COMMAND  = 00000001            

WRK_V_IMCHNG   = 00000002            

WRK_V_INQUIRE  = 00000008            

WRK_V_NOSTAT   = 00000009            

WRK_V_PROMPT   = 00000003            

WRK_V_QUAL     = 00000004            

WRK_V_QUOTE    = 00000005            

PROCFILE        - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:12:00   VAX-11 MACRO X0.3-11               Page   9

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  

YDCL$ZCODE       000000EF      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

18546. BYTES LEFT IN FREE MEMORY POOL.

584. BYTES OF RECLAIMED MEMORY.

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

21 MLB DIR RDS - 391 GETS TO DEFINE 22 MACROS. 28 INTER. FILE WRITES. 

