MCRPRCFIL       - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:48:10   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      35  PROCESS FILE SPECIFICATION

   (1)     236  CONVERT UIC NUMBER AND CHECK

MCRPRCFIL       - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:48:10   VAX-11 MACRO X0.3-11               Page   1

01                                                                                                                               (1)



                                     0000     1 	.TITLE	MCRPRCFIL - 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 	DEFCMDBLK			;DEFINE COMMAND BLOCK BITS

                                     0000    31 	DEFCMDWRK			;DEFINE WORK AREA OFFSETS

                                     0000    32 	DEFERRCOD			;DEFINE ERROR/STATUS VALUES

                                     0000    33 	DEFPTRDSC			;DEFINE RESULT PARSE DESCRIPTOR FORMAT

MCRPRCFIL       - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:48:10   VAX-11 MACRO X0.3-11               Page   2

01              PROCESS FILE SPECIFICATION                                                                                       (1)



                                     0000    35 	.SBTTL	PROCESS FILE SPECIFICATION

                                     0000    36 ;+

                                     0000    37 ; MCR$PROCFILE - PROCESS FILE SPECIFICATION.

                                     0000    38 ;

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

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

                                     0000    41 ;

                                     0000    42 ; INPUTS:

                                     0000    43 ;

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

                                     0000    45 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

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

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

                                     0000    48 ;

                                     0000    49 ; OUTPUTS:

                                     0000    50 ;

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

                                     0000    52 ;

                                     0000    53 ;		R0 = MCR$_DIRECT - INVALID DIRECTORY SYNTAX.

                                     0000    54 ;		R0 = MCR$_NUMBER - INVALID GROUP, MEMBER, OR VERSION NUMBER.

                                     0000    55 ;		R0 = MCR$_NULFIL - NULL FILE SPECIFICATION.

                                     0000    56 ;

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

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

                                     0000    59 ;		BUFFER.

                                     0000    60 ;

                                     0000    61 ;		R0 = MCR$_NORMAL - NORMAL COMPLETION.

                                     0000    62 ;-

                                     0000    63  

                                 00000000    64 	.PSECT	YMCR$ZCODE,BYTE,RD,NOWRT

                                     0000    65 MCR$PROCFILE::				;PROCESS FILE SPECIFICATION

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

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

                                     0008    68 	MOVTOKN				;MOVE TERMINATOR AND GET TOKEN

         C9 AD            07     E5  000B    69 	BBCC	#CMD_V_DEVNAM,WRK_B_CMDFLG(FP),5$ ;BR IF NOT DEVICE NAME NEXT

                          32         000F       

                          26     13  0010    70 	BEQL	3$			;BR IF NULL DEVICE NAME

            2F            50     91  0012    71 	CMPB	R0,#^A\/\		;QUALIFIER FOLLOWING

                          2B     13  0015    72 	BEQL	5$			;BR IF YES

            3A            50     91  0017    73 	CMPB	R0,#^A/:/		;VALID DEVICE TERMINATOR

                          05     13  001A    74 	BEQL	2$			;BR IF YES

            20            50     91  001C    75 	CMPB	R0,#^A/ /		;TERMINATE WITH A SPACE?

                          17     12  001F    76 	BNEQ	3$			;BR IF SYTAX ERROR

            57            51     7D  0021    77 2$:	MOVQ	R1,R7			;SET SIZE AND ADDRESS OF NAME STRING

                          56     D4  0024    78 	CLRL	R6			;ZERO FLAGS

            55            03     9A  0026    79 	MOVZBL	#PTR_K_PARAMETR,R5	;TABLE ENTRY IS A PARAMETER

                                     0029    80 	GENDESCR			;CREATE A RESULT DESCRIPTOR

            58         01 A9     9E  002C    81 	MOVAB	1(R9),R8		;START OF NEXT PARAMETER

                                     0030    82 	MOVTOKN				;MOVE TERMINATOR AND GET TOKEN

                          0A     12  0033    83 	BNEQ	4$			;BR IF VALID TOKEN HERE

                          00B8   31  0035    84 	BRW	115$			;ELSE RETURN TO MAIN PARSER

                                     0038    85 3$:	STATUS	PARMDEL			;

                          00F1   31  003C    86 	BRW	FILXIT			;

                                     003F    87  

                       CB AD     96  003F    88 4$:	INCB	WRK_B_PARMCNT(FP)	;COUNT PARAMETER

                                     0042    89 ;

                                     0042    90 ; TOKEN OBTAINED - FORM MUST BE:

MCRPRCFIL       - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:48:10   VAX-11 MACRO X0.3-11               Page   3

01              PROCESS FILE SPECIFICATION                                                                                       (1)



                                     0042    91 ;

                                     0042    92 ;	'NODE::' OR,

                                     0042    93 ;	'DEVICE:' OR,

                                     0042    94 ;	'FILENAME.' OR,

                                     0042    95 ;	'FILENAME;' OR,

                                     0042    96 ;	'FILENAME '.

                                     0042    97 ;

                                     0042    98  

                          22     13  0042    99 5$:	BEQL	20$			;BR IF NO TOKEN HERE

            50            3A     91  0044   100 	CMPB	#^A/:/,R0		;NODE OR DEVICE NAME?

                          56     12  0047   101 	BNEQ	60$			;IF NEQ NO

                                     0049   102  

                                     0049   103 ;

                                     0049   104 ; NODE OR DEVICE NAME

                                     0049   105 ;

                                     0049   106  

                                     0049   107 	MOVCHAR				;MOVE TERMINATOR TO COMMAND BUFFER

                                     004C   108 	SETCHAR				;PEEK AT NEXT CHARACTER IN INPUT BUFFER

            50            3A     91  004F   109 	CMPB	#^A/:/,R0		;NODE NAME?

                          0D     12  0052   110 	BNEQ	10$			;IF NEQ NO

                                     0054   111 	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

                          0D     13  0057   112 	BEQL	20$			;IF EQL NONE

                                     0059   113  

                                     0059   114 ;

                                     0059   115 ; TOKEN OBTAINED - FORM MUST BE:

                                     0059   116 ;

                                     0059   117 ;	'DEVICE:' OR,

                                     0059   118 ;	'FILENAME.' OR,

                                     0059   119 ;	'FILENAME;' OR,

                                     0059   120 ;	'FILENAME '.

                                     0059   121 ;

                                     0059   122  

            50            3A     91  0059   123 	CMPB	#^A/:/,R0		;DEVICE NAME?

                          41     12  005C   124 	BNEQ	60$			;IF NEQ NO

                                     005E   125 	MOVCHAR				;MOVE TERMINATOR TO COMMAND BUFFER

                                     0061   126 10$:	GTBTOKEN			;GET NEXT BLANK TOKEN

                          39     12  0064   127 	BNEQ	60$			;IF NEQ TOKEN OBTAINED

                                     0066   128  

                                     0066   129 ;

                                     0066   130 ; NO TOKEN OBTAINED - FORM MUST BE:

                                     0066   131 ;

                                     0066   132 ;	'[DIRECTORY]' OR,

                                     0066   133 ;	'<DIRECTORY>' OR,

                                     0066   134 ;	'.TYPE' OR,

                                     0066   135 ;	';VERSION'.

                                     0066   136 ;

                                     0066   137  

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

                          05     13  006A   139 	BEQL	30$			;IF EQL YES

            50            3C     91  006C   140 	CMPB	#^A/</,R0		;DIRECTORY?

                          2E     12  006F   141 	BNEQ	60$			;IF NEQ NO

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

                                     0075   143 	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

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

                          0E     12  007B   145 	BNEQ	40$			;IF NEQ NO

                                     007D   146  

                                     007D   147 ;

MCRPRCFIL       - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:48:10   VAX-11 MACRO X0.3-11               Page   4

01              PROCESS FILE SPECIFICATION                                                                                       (1)



                                     007D   148 ; OLD STYLE DIRECTORY - FORM IS:

                                     007D   149 ;

                                     007D   150 ;	'[GROUP,MEMBER]'.

                                     007D   151 ;

                                     007D   152  

                          7B     10  007D   153 	BSBB	CVTUIC			;CONVERT GROUP NUMBER AND CHECK

                                     007F   154 	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

            5C            50     91  0082   155 	CMPB	R0,AP			;EXPECTED TERMINATOR?

                          6E     12  0085   156 	BNEQ	120$			;IF NEQ NO

                          71     10  0087   157 	BSBB	CVTUIC			;CONVERT AND CHECK MEMBER NUMBER

                          11     11  0089   158 	BRB	50$			;

                                     008B   159  

                                     008B   160 ;

                                     008B   161 ; NEW STYLE DIRECTORY - FORM IS:

                                     008B   162 ;

                                     008B   163 ;	'<SUB.SUB...SUB>'.

                                     008B   164 ;

                                     008B   165  

            5C            50     91  008B   166 40$:	CMPB	R0,AP			;EXPECTED TERMINATOR?

                          0C     13  008E   167 	BEQL	50$			;IF EQL YES

            50            2E     91  0090   168 	CMPB	#^A/./,R0		;SUBDIRECTORY?

                          60     12  0093   169 	BNEQ	120$			;IF NEQ NO

                                     0095   170 	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

                          5B     13  0098   171 	BEQL	120$			;IF EQL NONE

                          EF     11  009A   172 	BRB	40$			;

                                     009C   173 50$:	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

                                     009F   174  

                                     009F   175 ;

                                     009F   176 ; FILENAME, TYPE, OR VERSION - FORM MUST BE:

                                     009F   177 ;

                                     009F   178 ;	'FILENAME.' OR,

                                     009F   179 ;	'FILENAME;' OR,

                                     009F   180 ;	'FILENAME ' OR,

                                     009F   181 ;	'.TYPE' OR,

                                     009F   182 ;	';VERSION'.

                                     009F   183 ;

                                     009F   184  

            50            2E     91  009F   185 60$:	CMPB	#^A/./,R0		;FILE TYPE?

                          08     12  00A2   186 	BNEQ	70$			;IF NEQ NO

                                     00A4   187 	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

            50            2E     91  00A7   188 	CMPB	#^A/./,R0		;NEW VERSION FORMAT?

                          05     13  00AA   189 	BEQL	80$			;IF EQL YES

                                     00AC   190  

                                     00AC   191 ;

                                     00AC   192 ; FILE VERSION - FORM MUST BE:

                                     00AC   193 ;

                                     00AC   194 ;	';VERSION'.

                                     00AC   195 ;

                                     00AC   196  

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

                          17     12  00AF   198 	BNEQ	100$			;IF NEQ NO

                                     00B1   199 80$:	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

                          08     12  00B4   200 	BNEQ	90$			;IF NEQ NO NEGATIVE VERSION

            50            2D     91  00B6   201 	CMPB	#^A/-/,R0		;NEGATIVE VERSION?

                          0D     12  00B9   202 	BNEQ	100$			;IF NEQ NO

                                     00BB   203 	MOVBTOKN			;MOVE TERMINATOR AND GET BLANK TOKEN

            50            0A     D0  00BE   204 90$:	MOVL	#10,R0			;SET CONVERSION RADIX

MCRPRCFIL       - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:48:10   VAX-11 MACRO X0.3-11               Page   5

01              PROCESS FILE SPECIFICATION                                                                                       (1)



            53       7FFF 8F     3C  00C1   205 	MOVZWL	#32767,R3		;SET CONVERSION LIMIT

                          39     10  00C6   206 	BSBB	CVTNUM			;CONVERT AND CHECK NUMBER

                                     00C8   207  

                                     00C8   208 ;

                                     00C8   209 ; FILE SPECIFICATION SCANNED - CHECK RESULT

                                     00C8   210 ;

                                     00C8   211  

            59            58     C3  00C8   212 100$:	SUBL3	R8,R9,R7		;CALCULATE LENGTH OF PARAMETER STRING

                          57         00CB       

                          0E     12  00CC   213 	BNEQ	105$			;BR IF NOT A NULL FILE SPEC

            2C            50     91  00CE   214 	CMPB	R0,#^A/,/		;EXPLICIT NULL FILE?

                          09     13  00D1   215 	BEQL	105$			;BR IF YES-FORM A RESULT DESCRIPTOR

                          50     95  00D3   216 	TSTB	R0			;IS THIS AT END OF LINE?

                          19     13  00D5   217 	BEQL	115$			;BR IF YES - NULL FILES ALLOWED HERE

                                     00D7   218 	STATUS	NULFIL			;ELSE THIS IS AN ERROR

                          54     11  00DA   219 	BRB	FILXIT			;RETURN THE ERROR

                          03     EF  00DC   220 105$:	EXTZV	#WRK_V_EQUAL,#1,-	;GET THE EQUAL SIGN SEEN FLAG BIT

         FA AD            01         00DE   221 		WRK_W_FLAGS(FP),R6	;AS FLAG VALUE FOR DESCRIPTOR

                          56         00E1       

            55            03     9A  00E2   222 	MOVZBL	#PTR_K_PARAMETR,R5	;ASSUME NOT PROCESSING QUALIFIER

         FA AD            04     E1  00E5   223 	BBC	#WRK_V_QUAL,WRK_W_FLAGS(FP),110$ ;IF CLR, NOT PROCESSING QUALIFIER

                          03         00E9       

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

                                     00ED   225 110$:	GENDESCR			;GENERATE RESULT PARSE DESCRIPTOR

                                     00F0   226 115$:	STATUS	NORMAL			;SET SUCCESSFUL COMPLETION

                          3B     11  00F3   227 	BRB	FILXIT			;

                                     00F5   228  

                                     00F5   229 ;

                                     00F5   230 ; INVALID DIRECTORY SYNTAX

                                     00F5   231 ;

                                     00F5   232  

                                     00F5   233 120$:	STATUS	DIRECT			;SET INVALID DIRECTORY SYNTAX

                          36     11  00F8   234 	BRB	FILXIT			;

MCRPRCFIL       - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:48:10   VAX-11 MACRO X0.3-11               Page   6

01              CONVERT UIC NUMBER AND CHECK                                                                                     (1)



                                     00FA   236 	.SBTTL	CONVERT UIC NUMBER AND CHECK

                                     00FA   237 ;

                                     00FA   238 ; CVTUIC - CONVERT UIC NUMBER AND CHECK

                                     00FA   239 ;

                                     00FA   240  

                                     00FA   241 	.ENABL	LSB

                                     00FA   242 CVTUIC:					;CONVERT UIC AND CHECK

            50            08     D0  00FA   243 	MOVL	#8,R0			;SET CONVERSION RADIX

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

                                     0101   245 CVTNUM:					;CONVERT AND CHECK NUMBER

                          51     D5  0101   246 	TSTL	R1			;ANY DIGITS TO CONVERT?

                          26     13  0103   247 	BEQL	20$			;IF EQL NO

                          54     7C  0105   248 	CLRQ	R4			;CLEAR ACCUMULATED RESULT

            51            01     D1  0107   249 	CMPL	#1,R1			;EXACTLY ONE CHARACTER?

                          05     12  010A   250 	BNEQ	10$			;IF NEQ NO

            62            2A     91  010C   251 	CMPB	#^A/*/,(R2)		;ASTERISK?

                          23     13  010F   252 	BEQL	30$			;IF EQL YES

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

                          54         0114       

                          14     19  0115   254 	BLSS	20$			;IF LSS ILLEGAL CHARACTER

            54            50     91  0117   255 	CMPB	R0,R4			;DIGIT TOO LARGE?

                          0F     15  011A   256 	BLEQ	20$			;IF LEQ YES

            55            50     C4  011C   257 	MULL	R0,R5			;SCALE ACCUMULATED RESULT

            55            54     C0  011F   258 	ADDL	R4,R5			;ADD IN NEW DIGIT

            55            53     D1  0122   259 	CMPL	R3,R5			;RESULT OVERFLOW?

                          04     19  0125   260 	BLSS	20$			;IF LSS YES

            E7            51     F5  0127   261 	SOBGTR	R1,10$			;ANY MORE DIGITS TO CONVERT?

                                 05  012A   262 	RSB				;

                          8E     D5  012B   263 20$:	TSTL	(SP)+			;REMOVE RETURN FROM STACK

                                     012D   264 	STATUS	NUMBER			;SET NUMBER ERROR

                                     0130   265 FILXIT:					;COMMMON EXIT

                     01C0 8F     BA  0130   266 	POPR	#^M<R6,R7,R8>		;RESTORE REGISTERS

                                 05  0134   267 30$:	RSB				;

                                     0135   268 	.DSABL	LSB

                                     0135   269  

                                     0135   270 	.END

MCRPRCFIL       - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:48:10   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



BIT...         = 00000005            CLI$_OVRFLW    = 00038160            MCR$PROCFILE     00000000 RG    03   

CLI$_ABFNAM    = 000381B8            CLI$_PARMDEL   = 00038110            MCR$SETCHAR      ********   X   03   

CLI$_ABKEYW    = 00038000            CLI$_PROC_ID   = 0003FFF1            MCR_M_ALPHAN   = 00000002            

CLI$_ABVERB    = 00038008            CLI$_QUEJOBCRE = 0003FFF9            MCR_M_DEFALT   = 00000008            

CLI$_BADRET    = 00038198            CLI$_REQPRMABS = 00038812            MCR_M_DELINP   = 00000080            

CLI$_BADTEXT   = 000381B0            CLI$_RSLOVF    = 00038118            MCR_M_DOLLARS  = 00000100            

CLI$_BUFOVF    = 00038018            CLI$_SKPDAT    = 00038120            MCR_M_ESCAPE   = 00000004            

CLI$_COMPLX    = 00038020            CLI$_SPARE0    = 00038010            MCR_M_ESCTRM   = 00000200            

CLI$_CONFQUAL  = 00038802            CLI$_SPARE1    = 00038058            MCR_M_GLOBAL   = 00000400            

CLI$_CREQUEJOB = 0003884A            CLI$_STKOVF    = 00038128            MCR_M_LOWER    = 00000800            

CLI$_DEFOVF    = 00038028            CLI$_SUBMITERR = 00038852            MCR_M_OPNINP   = 00000040            

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

CLI$_DEVNOTFOR = 0003887A            CLI$_SYMOVF    = 00038138            MCR_M_STRSUB   = 00001000            

CLI$_DEVNOTSPL = 00038862            CLI$_UNDFIL    = 00038188            MCR_V_ALPHAN   = 00000001            

CLI$_DIRECT    = 00038030            CLI$_UNDSYM    = 00038140            MCR_V_DEFALT   = 00000003            

CLI$_EXPSYN    = 00038038            CLI$_UNPROPARM = 00038170            MCR_V_DELINP   = 00000007            

CLI$_FILOPN    = 00038190            CLI$_UNPROQUAL = 00038168            MCR_V_DOLLARS  = 00000008            

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

CLI$_IMCHNG    = 00038040            CLI$_VALCNVERR = 00038832            MCR_V_ESCTRM   = 00000009            

CLI$_IMGFNF    = 00038872            CLI$_VALREQ    = 00038150            MCR_V_FORCMD   = 0000000E            

CLI$_INSFPRM   = 00038048            CMDBUFSIZ      = 000001FC            MCR_V_GLOBAL   = 0000000A            

CLI$_INVKEY    = 00038178            CMD_AB_PAROUT    00000005            MCR_V_LOWER    = 0000000B            

CLI$_INVQUAL   = 0003880A            CMD_B_DEFIMG     00000002            MCR_V_OPNINP   = 00000006            

CLI$_INVQUALNUM= 0003881A            CMD_B_FLAGS      00000004            MCR_V_RAD50    = 00000000            

CLI$_INVREQTYP = 00038822            CMD_B_PARMCNT    00000001            MCR_V_STRSUB   = 0000000C            

CLI$_INVRSP    = 00038180            CMD_B_QUABLK     00000003            MSGBUFSIZ      = 00000084            

CLI$_INVUIC    = 000381A8            CMD_B_VERBTYP    00000000            PRC_B_DEFRADIX   00000092            

CLI$_IVCHAR    = 00038050            CMD_M_ABREV    = 00000020            PRC_B_EXMDEPMOD  00000091            

CLI$_IVDEVTYPE = 0003886A            CMD_M_DEFQUAL  = 00000010            PRC_B_EXMDEPWID  00000090            

CLI$_IVFNAM    = 000381C0            CMD_M_DEVNAM   = 00000080            PRC_K_DEC      = 00000001            

CLI$_IVKEYW    = 00038060            CMD_M_IMMED    = 00000002            PRC_K_HEX      = 00000000            

CLI$_IVOPER    = 00038068            CMD_M_NOEQL    = 00000040            PRC_K_LENGTH     000000A0            

CLI$_IVPROT    = 00038070            CMD_M_NOSTAT   = 00000008            PRC_K_OCT      = 00000002            

CLI$_IVQLOC    = 00038078            CMD_M_OPTION   = 00000001            PRC_L_CLIWRK0    0000005C            

CLI$_IVSYMB    = 00038080            CMD_M_PAROUT   = 00000004            PRC_L_CLIWRK1    00000060            

CLI$_IVVALU    = 00038088            CMD_S_MAXPARM  = 00000004            PRC_L_CLIWRK2    00000064            

CLI$_IVVERB    = 00038090            CMD_S_MINPARM  = 00000004            PRC_L_CLIWRK3    00000068            

CLI$_MAXPARM   = 00038098            CMD_V_ABREV    = 00000005            PRC_L_CLIWRK4    0000006C            

CLI$_MULKEY    = 000381A0            CMD_V_DEFQUAL  = 00000004            PRC_L_ERRRAB     00000010            

CLI$_NOATFIL   = 000380A0            CMD_V_DEVNAM   = 00000007            PRC_L_EXMDEPADR  0000008C            

CLI$_NOCCAT    = 000380A8            CMD_V_IMMED    = 00000001            PRC_L_EXTARG     00000078            

CLI$_NOCOMD    = 000380B0            CMD_V_MAXPARM  = 00000004            PRC_L_EXTBLK     00000070            

CLI$_NOKEYW    = 000380B8            CMD_V_MINPARM  = 00000000            PRC_L_EXTCOD     00000080            

CLI$_NOLIST    = 000380C0            CMD_V_NOEQL    = 00000006            PRC_L_EXTHND     00000074            

CLI$_NOOPTPRS  = 00038842            CMD_V_NOSTAT   = 00000003            PRC_L_EXTPRM     0000007C            

CLI$_NOQUAL    = 000380C8            CMD_V_OPTION   = 00000000            PRC_L_INDEPTH    00000048            

CLI$_NORMAL    = 00030001            CMD_V_PAROUT   = 00000002            PRC_L_INDFAB     0000001C            

CLI$_NOTNEG    = 000380D8            CVTNUM           00000101 R     03   PRC_L_INDINPRAB  00000014            

CLI$_NOVALU    = 000380D0            CVTUIC           000000FA R     03   PRC_L_INDOUTRAB  00000018            

CLI$_NOVALUE   = 0003882A            FILXIT           00000130 R     03   PRC_L_INPRAB     00000008            

CLI$_NULFIL    = 000380E0            GBL...         = 00000000            PRC_L_LSTSTATUS  00000094            

CLI$_NUMBER    = 000380E8            INPBUFSIZ      = 00000084            PRC_L_ONCTLY     0000009C            

CLI$_ONCOMD    = 000380F0            MCR$GENDESCR     ********   X   03   PRC_L_ONERROR    00000058            

CLI$_ONERR     = 000380F8            MCR$GTBTOKEN     ********   X   03   PRC_L_OUTRAB     0000000C            

CLI$_ONEVAL    = 00038158            MCR$MOVBTOKN     ********   X   03   PRC_L_PROCUIC    00000098            

CLI$_ONLEVL    = 00038100            MCR$MOVCHAR      ********   X   03   PRC_L_SAVAP      00000000            

CLI$_ONOVF     = 00038108            MCR$MOVTOKN      ********   X   03   PRC_L_SAVFP      00000004            

MCRPRCFIL       - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:48:10   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



PRC_L_SEVERITY   00000040            PTR_S_FLAGS    = 00000004            

PRC_L_STACKLM    00000088            PTR_S_OFFSET   = 0000000C            

PRC_L_STACKPT    00000084            PTR_S_TERM     = 00000004            

PRC_L_STATUS     00000044            PTR_S_TYPE     = 00000004            

PRC_L_SYMBOL     0000004C            PTR_S_VALUE    = 00000008            

PRC_M_CNTRLY   = 00000002            PTR_V_EQUAL    = 00000000            

PRC_M_DBGQUAL  = 00000200            PTR_V_FLAGS    = 00000014            

PRC_M_DBGTRUE  = 00000400            PTR_V_NEGATE   = 00000000            

PRC_M_DISABL   = 00000004            PTR_V_OFFSET   = 00000008            

PRC_M_EXIT     = 00000008            PTR_V_TERM     = 00000018            

PRC_M_GOEOF    = 00000001            PTR_V_TYPE     = 0000001C            

PRC_M_GOTO     = 00000010            PTR_V_VALUE    = 00000000            

PRC_M_HANGUP   = 00001000            RSLBUFSIZ      = 00000180            

PRC_M_IND      = 00000020            WRK_AB_BUFFER    FFFFFD44            

PRC_M_MODE     = 00000040            WRK_AG_RESULT    FFFFFBC0            

PRC_M_NOCTLY   = 00004000            WRK_B_CMDFLG     FFFFFFC9            

PRC_M_PAUSE    = 00002000            WRK_B_CURADX     FFFFFFCA            

PRC_M_USRDET   = 00000100            WRK_B_PARMCNT    FFFFFFCB            

PRC_M_VERIFY   = 00000080            WRK_B_VERBTYP    FFFFFFC8            

PRC_M_YLEVEL   = 00000800            WRK_K_LENGTH     FFFFFBC0            

PRC_Q_ALLOCREG   00000020            WRK_L_CHARPTR    FFFFFFFC            

PRC_Q_GLOBAL     00000028            WRK_L_IMAGE      FFFFFFEC            

PRC_Q_LABEL      00000030            WRK_L_MAXPARM    FFFFFFCC            

PRC_Q_LOCAL      00000038            WRK_L_MINPARM    FFFFFFD0            

PRC_V_CNTRLY   = 00000001            WRK_L_PAROUT     FFFFFFF0            

PRC_V_DBGQUAL  = 00000009            WRK_L_PROMPT     FFFFFFF4            

PRC_V_DBGTRUE  = 0000000A            WRK_L_QUABLK     FFFFFFE8            

PRC_V_DISABL   = 00000002            WRK_L_RSLNXT     FFFFFD40            

PRC_V_EXIT     = 00000003            WRK_L_SAVAP      FFFFFFD8            

PRC_V_GOEOF    = 00000000            WRK_L_SAVFP      FFFFFFDC            

PRC_V_GOTO     = 00000004            WRK_L_SAVSP      FFFFFFD4            

PRC_V_HANGUP   = 0000000C            WRK_M_ALL      = 00000001            

PRC_V_IND      = 00000005            WRK_M_ASK      = 00000100            

PRC_V_MODE     = 00000006            WRK_M_COMMAND  = 00000002            

PRC_V_NOCTLY   = 0000000E            WRK_M_CONTINU  = 00000400            

PRC_V_PAUSE    = 0000000D            WRK_M_EQUAL    = 00000008            

PRC_V_USRDET   = 00000008            WRK_M_IMCHNG   = 00000004            

PRC_V_VERIFY   = 00000007            WRK_M_QUAL     = 00000010            

PRC_V_YLEVEL   = 0000000B            WRK_M_QUOTE    = 00000020            

PRC_W_CLIFLAG    00000052            WRK_M_STAR     = 00000040            

PRC_W_ERRIFI     00000052            WRK_M_TRAILSPC = 00000200            

PRC_W_FLAGS      00000054            WRK_M_VERB     = 00000080            

PRC_W_INPCHAN    00000050            WRK_Q_IOSB       FFFFFFE0            

PRC_W_ONLEVEL    00000056            WRK_V_ALL      = 00000000            

PTR_K_BLANK    = 00000001            WRK_V_ASK      = 00000008            

PTR_K_COLON    = 00000002            WRK_V_COMMAND  = 00000001            

PTR_K_COMDQUAL = 00000000            WRK_V_CONTINU  = 0000000A            

PTR_K_COMMA    = 00000005            WRK_V_EQUAL    = 00000003            

PTR_K_ENDLINE  = 00000004            WRK_V_IMCHNG   = 00000002            

PTR_K_LPAREN   = 00000007            WRK_V_QUAL     = 00000004            

PTR_K_PARAMETR = 00000003            WRK_V_QUOTE    = 00000005            

PTR_K_PARMQUAL = 00000001            WRK_V_STAR     = 00000006            

PTR_K_PLUS     = 00000004            WRK_V_TRAILSPC = 00000009            

PTR_K_QUALVALU = 00000002            WRK_V_VERB     = 00000007            

PTR_K_RPAREN   = 00000006            WRK_W_FLAGS      FFFFFFFA            

PTR_K_SLASH    = 00000003            WRK_W_LOCFLG     FFFFFFF8            

PTR_L_DESCR      00000000            _$$_           = 0000003A            

MCRPRCFIL       - PROCESS FILE SPECIFICATION                     22-AUG-1978 01:48:10   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  

YMCR$ZCODE       00000135      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

16928. BYTES LEFT IN FREE MEMORY POOL.

626. BYTES OF RECLAIMED MEMORY.

OBJ$:MCRPRCFIL,LIS$:MCRPRCFIL/-SP=EXECML$/ML,LIB$:MCR/ML,SRC$:MCRPRCFIL

21 MLB DIR RDS - 446 GETS TO DEFINE 23 MACROS. 35 INTER. FILE WRITES. 

