MCRON           - ON ERROR MCR COMMAND EXECUTION                 22-AUG-1978 01:47:43   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      44  ON ERROR

   (1)     163  RESET ON ERROR PARAMETERS

MCRON           - ON ERROR MCR COMMAND EXECUTION                 22-AUG-1978 01:47:43   VAX-11 MACRO X0.3-11               Page   1

01                                                                                                                               (1)



                                     0000     1 	.TITLE	MCRON - ON ERROR MCR 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 20-MAY-77

                                     0000    24 ;

                                     0000    25 ; ON ERROR MCR COMMAND EXECUTION

                                     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  

                                     0000    33 ;

                                     0000    34 ; LOCAL DATA

                                     0000    35 ;

                                     0000    36  

                                 00000000    37 	.PSECT	MCR$ZCODE,BYTE,RD,NOWRT

                                     0000    38 LEVELTBL:				;SEVERIY LEVEL TABLE

                     4F 52 52 45 02  0000    39 	.ASCII	<2>/ERRO/		;ERROR

                     45 56 45 53 04  0005    40 	.ASCII	<4>/SEVE/		;SEVERE ERROR

                     4E 52 41 57 00  000A    41 	.ASCII	<0>/WARN/		;WARNING

                                     000F    42 LEVELEND:				;

MCRON           - ON ERROR MCR COMMAND EXECUTION                 22-AUG-1978 01:47:43   VAX-11 MACRO X0.3-11               Page   2

01              ON ERROR                                                                                                         (1)



                                     000F    44 	.SBTTL	ON ERROR

                                     000F    45 ;+

                                     000F    46 ; MCR$ON - ON ERROR

                                     000F    47 ;

                                     000F    48 ; THIS ROUTINE IS CALLED AS  AN INTERNAL COMMAND TO EXECUTE THE ON MCR COMMAND.

                                     000F    49 ;

                                     000F    50 ; INPUTS:

                                     000F    51 ;

                                     000F    52 ;	R6 = COMMAND BUFFER DISPLAY PARAMETER.

                                     000F    53 ;	R9 = ADDRESS OF NEXT BYTE IN COMMAND BUFFER.

                                     000F    54 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     000F    55 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     000F    56 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     000F    57 ;

                                     000F    58 ; OUTPUTS:

                                     000F    59 ;

                                     000F    60 ;	THE ON CLAUSE IS PARSED AND THE CORRESPONDING ERROR LEVEL IS COMPUTED.

                                     000F    61 ;	STORAGE IS ALLOCATED FOR THE THEN CLAUSE AND IT IS COPIED FOR SUBSEQUENT

                                     000F    62 ;	REFERENCE WHEN AN ON CONDITION ACTUALLY EXISTS.

                                     000F    63 ;

                                     000F    64 ;	R0 LOW BIT CLEAR INDICATES FAILURE TO ESTABLISH ON CONDITION PARAMETERS.

                                     000F    65 ;

                                     000F    66 ;		R0 = MCR$_ONERR - INVALID ERROR LEVEL SPECIFIED.

                                     000F    67 ;		R0 = MCR$_ONLEVL - ON CONDITION CAN NOT BE ESTABLISHED AT CURRENT

                                     000F    68 ;			COMMAND LEVEL.

                                     000F    69 ;		R0 = MCR$ONOVF - NO ROOM FOR ON CONDITION COMMAND TEXT.

                                     000F    70 ;		R0 = MCR$_PARMDEL - INVALID PARAMETER DELIMITER.

                                     000F    71 ;

                                     000F    72 ;	R0 LOW BIT SET INDICATES SUCCESSFUL COMPLETION.

                                     000F    73 ;

                                     000F    74 ;		R0 = MCR$NORMAL - NORMAL COMPLETION.

                                     000F    75 ;-

                                     000F    76  

                                     000F    77 MCR$ON::				;ON ERROR

            56            59     D0  000F    78 	MOVL	R9,R6			;SAVE COMMAND BUFFER BACKUP PARAMETER

                                     0012    79 	SETCHAR				;PEEK AT NEXT CHARACTER IN INPUT BUFFER

                          0084   30  0015    80 	BSBW	90$			;CHECK FOR BLANK TERMINATOR

                          007E   30  0018    81 	BSBW	80$			;MOVE TERMINATOR, GET TOKEN, AND CHECK

            51            04     D1  001B    82 	CMPL	#4,R1			;ERROR LEVEL LONGER THAN 4 CHARACTERS

                          03     18  001E    83 	BGEQ	10$			;IF GEQ NO

            51            04     D0  0020    84 	MOVL	#4,R1			;SET LENGTH OF ERROR LEVEL TO 4

            55         DA AF     9E  0023    85 10$:	MOVAB	LEVELTBL,R5		;GET ADDRESS OF ERROR LEVEL NAME TABLE

            57            03     D0  0027    86 	MOVL	#<LEVELEND-LEVELTBL>/5,R7 ;SET LOOP COUNT

            53            51     7D  002A    87 20$:	MOVQ	R1,R3			;COPY ERROR LEVEL NAME PARAMETERS

            5A            85     9A  002D    88 	MOVZBL	(R5)+,R10		;SAVE ERROR LEVEL NUMBER

            50            55     D0  0030    89 	MOVL	R5,R0			;SET ADDRESS OF ERROR LEVEL NAME

                          85     D5  0033    90 	TSTL	(R5)+			;POINT TO NEXT ENTRY IN TABLE

            84            80     91  0035    91 30$:	CMPB	(R0)+,(R4)+		;CHARACTERS MATCH?

                          05     12  0038    92 	BNEQ	40$			;IF NEQ NO

            F8            53     F5  003A    93 	SOBGTR	R3,30$			;ANY MORE CHARACTERS TO COMPARE?

                          07     11  003D    94 	BRB	50$			;

            E8            57     F5  003F    95 40$:	SOBGTR	R7,20$			;ANY MORE ENTRIES TO COMPARE?

                                     0042    96 	STATUS	ONERR			;SET INVALID ERROR LEVEL SPECIFIED STATUS

                                 05  0045    97 	RSB				;

                                     0046    98  

                                     0046    99 ;

                                     0046   100 ; LEGAL ERROR LEVEL - PARSE THEN CLAUSE

MCRON           - ON ERROR MCR COMMAND EXECUTION                 22-AUG-1978 01:47:43   VAX-11 MACRO X0.3-11               Page   3

01              ON ERROR                                                                                                         (1)



                                     0046   101 ;

                                     0046   102  

            56            59     D0  0046   103 50$:	MOVL	R9,R6			;SAVE COMMAND BUFFER BACKUP PARAMETER

                          4E     10  0049   104 	BSBB	80$			;MOVE TERMINATOR, GET TOKEN, AND CHECK

            56         01 A9     9E  004B   105 	MOVAB	1(R9),R6		;SET ADDRESS OF START OF THEN CLAUSE

         54 AB            20     A8  004F   106 	BISW	#PRC_M_IND,PRC_W_FLAGS(R11) ;DISABLE "@" FILE RECOGNITION

                                     0053   107 60$:	MOVCHAR				;MOVE CHARACTER TO COMMAND BUFFER

                          FB     12  0056   108 	BNEQ	60$			;IF NEQ MORE TO GO

         54 AB            20     AA  0058   109 	BICW	#PRC_M_IND,PRC_W_FLAGS(R11) ;ENABLE "@" FILE RECOGNITION

            59            56     C2  005C   110 	SUBL	R6,R9			;CALCULATE LENGTH OF THEN CLAUSE

         FA AD            02     A8  005F   111 	BISW	#WRK_M_COMMAND,WRK_W_FLAGS(FP) ;SET COMMAND IN PROGRESS

            59         84 8F     91  0063   112 	CMPB	#INPBUFSIZ,R9		;ON COMMAND TEXT TOO LARGE FOR INPUT BUFFER?

                          4A     1F  0067   113 	BLSSU	130$			;IF LSSU YES

         54 AB            06     E0  0069   114 	BBS	#PRC_V_MODE,PRC_W_FLAGS(R11),70$ ;IF SET, NONINTERACTIVE JOB

                          07         006D       

         14 AB         08 AB     D1  006E   115 	CMPL	PRC_L_INPRAB(R11),PRC_L_INDINPRAB(R11) ;INDIRECT LEVEL NONZERO?

                          34     13  0073   116 	BEQL	110$			;IF EQL NO

                                     0075   117 70$:	DISABLE				;DISABLE CONTROL Y/C AST'S

                          8E     7C  0078   118 	CLRQ	(SP)+			;REMOVE RETURN INFORMATION FROM STACK

                          3B     10  007A   119 	BSBB	MCR$ONRESET		;RESET ON ERROR PARAMETERS

            59            08     C1  007C   120 	ADDL3	#8,R9,R1		;ADD BYTE FOR LENGTH AND ROUND TO QUADWORD

                          51         007F       

                          FF7D'  30  0080   121 	BSBW	MCR$ALLDYNMEM		;ALLOCATE THE MEMORY

            28            50     E9  0083   122 	BLBC	R0,120$			;IF LBC ALLOCATION FAILURE

         58 AB            52     D0  0086   123 	MOVL	R2,PRC_L_ONERROR(R11)	;SAVE ADDRESS OF ON ERROR TEXT BUFFER

            82            51     90  008A   124 	MOVB	R1,(R2)+		;SAVE LENGTH OF ON TEXT BUFFER

            66            59     28  008D   125 	MOVC	R9,(R6),(R2)		;MOVE TEXT TO ON ERROR BUFFER

                          62         0090       

         56 AB            5A     B0  0091   126 	MOVW	R10,PRC_W_ONLEVEL(R11)	;SAVE ON ERROR LEVEL

                                     0095   127 	STATUS	NORMAL			;SET NORMAL COMPLETION STATUS

                                 05  0098   128 	RSB				;

                                     0099   129  

                                     0099   130 ;

                                     0099   131 ; MOVE TERMINATOR, GET TOKEN, AND CHECK FOR BLANK TERMINATOR

                                     0099   132 ;

                                     0099   133  

                                     0099   134 80$:	MOVTOKN				;MOVE TERMINATOR AND GET TOKEN

            50            20     91  009C   135 90$:	CMPB	#^A/ /,R0		;BLANK TERMINATOR?

                          01     12  009F   136 	BNEQ	100$			;IF NEQ NO

                                 05  00A1   137 	RSB				;

                          8E     D5  00A2   138 100$:	TSTL	(SP)+			;CLEAN STACK

                                     00A4   139 	STATUS	PARMDEL			;SET INVALID PARAMETER DELIMITER

                                 05  00A8   140 	RSB				;

                                     00A9   141  

                                     00A9   142 ;

                                     00A9   143 ; INVALID ON CONDITION LEVEL

                                     00A9   144 ;

                                     00A9   145  

                                     00A9   146 110$:	STATUS	ONLEVL			;SET INVALID ON CONDITION LEVEL STATUS

                                 05  00AD   147 	RSB				;

                                     00AE   148  

                                     00AE   149 ;

                                     00AE   150 ; NO ROOM TO ALLOCATE ON COMMAND TEXT

                                     00AE   151 ;

                                     00AE   152  

                                     00AE   153 120$:	STATUS	ONOVF			;SET NO ROOM FOR COMMAND TEXT STATUS

                                 05  00B2   154 	RSB				;

MCRON           - ON ERROR MCR COMMAND EXECUTION                 22-AUG-1978 01:47:43   VAX-11 MACRO X0.3-11               Page   4

01              ON ERROR                                                                                                         (1)



                                     00B3   155  

                                     00B3   156 ;

                                     00B3   157 ; ON COMMAND TEXT TOO LARGE FOR INPUT BUFFER

                                     00B3   158 ;

                                     00B3   159  

                                     00B3   160 130$:	STATUS	ONCOMD			;SET ON COMMAND TO COMPLEX STATUS

                                 05  00B6   161 	RSB				;

MCRON           - ON ERROR MCR COMMAND EXECUTION                 22-AUG-1978 01:47:43   VAX-11 MACRO X0.3-11               Page   5

01              RESET ON ERROR PARAMETERS                                                                                        (1)



                                     00B7   163 	.SBTTL	RESET ON ERROR PARAMETERS

                                     00B7   164 ;+

                                     00B7   165 ; MCR$ONRESET - RESET ON ERROR PARAMETERS

                                     00B7   166 ;

                                     00B7   167 ; THIS ROUTINE IS CALLED TO RESET THE ON ERROR PARAMETERS TO THEIR DEFAULT

                                     00B7   168 ; VALUES.

                                     00B7   169 ;

                                     00B7   170 ; INPUTS:

                                     00B7   171 ;

                                     00B7   172 ;	NONE.

                                     00B7   173 ;

                                     00B7   174 ;	IT IS ASSUMED THAT CONTROL Y/C AST'S ARE DISABLED.

                                     00B7   175 ;

                                     00B7   176 ; OUTPUTS:

                                     00B7   177 ;

                                     00B7   178 ;	IF AN ON ERROR COMMAND BUFFER IS CURRENTLY ALLOCATED, THEN IT IS RETURNED

                                     00B7   179 ;	TO THE DYNAMIC STORAGE REGION. THE ON ERROR LEVEL IS SET TO 'ERROR' AND

                                     00B7   180 ;	THE ON ERROR COMMAND TEXT POINTER IS CLEARED.

                                     00B7   181 ;-

                                     00B7   182  

                                     00B7   183 MCR$ONRESET::				;RESET ON ERROR PARAMETERS

            50         58 AB     D0  00B7   184 	MOVL	PRC_L_ONERROR(R11),R0	;GET ADDRESS OF ON ERROR COMMAND TEXT

                          06     13  00BB   185 	BEQL	10$			;IF EQL NONE

            51            60     9A  00BD   186 	MOVZBL	(R0),R1			;GET LENGTH OF ON ERROR COMMAND TEXT

                          FF3D'  30  00C0   187 	BSBW	MCR$DEADYNMEM		;DEALLOCTE THE MEMORY

                       58 AB     D4  00C3   188 10$:	CLRL	PRC_L_ONERROR(R11)	;CLEAR ADDRESS OF ON ERROR TEXT

         56 AB            02     B0  00C6   189 	MOVW	#2,PRC_W_ONLEVEL(R11)	;RESET ON ERROR LEVEL TO ERROR

                                 05  00CA   190 	RSB				;

                                     00CB   191  

                                     00CB   192 	.END

MCRON           - ON ERROR MCR COMMAND EXECUTION                 22-AUG-1978 01:47:43   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (1)



BIT...         = 0003FFE9            CLI$_OVRFLW    = 00038160            PRC_B_DEFRADIX   00000092            

CLI$_ABFNAM    = 000381B8            CLI$_PARMDEL   = 00038110            PRC_B_EXMDEPMOD  00000091            

CLI$_ABKEYW    = 00038000            CLI$_PROC_ID   = 0003FFF1            PRC_B_EXMDEPWID  00000090            

CLI$_ABVERB    = 00038008            CLI$_QUEJOBCRE = 0003FFF9            PRC_K_DEC      = 00000001            

CLI$_BADRET    = 00038198            CLI$_REQPRMABS = 00038812            PRC_K_HEX      = 00000000            

CLI$_BADTEXT   = 000381B0            CLI$_RSLOVF    = 00038118            PRC_K_LENGTH     000000A0            

CLI$_BUFOVF    = 00038018            CLI$_SKPDAT    = 00038120            PRC_K_OCT      = 00000002            

CLI$_COMPLX    = 00038020            CLI$_SPARE0    = 00038010            PRC_L_CLIWRK0    0000005C            

CLI$_CONFQUAL  = 00038802            CLI$_SPARE1    = 00038058            PRC_L_CLIWRK1    00000060            

CLI$_CREQUEJOB = 0003884A            CLI$_STKOVF    = 00038128            PRC_L_CLIWRK2    00000064            

CLI$_DEFOVF    = 00038028            CLI$_SUBMITERR = 00038852            PRC_L_CLIWRK3    00000068            

CLI$_DEVALSPL  = 0003885A            CLI$_SYMDEL    = 00038130            PRC_L_CLIWRK4    0000006C            

CLI$_DEVNOTFOR = 0003887A            CLI$_SYMOVF    = 00038138            PRC_L_ERRRAB     00000010            

CLI$_DEVNOTSPL = 00038862            CLI$_UNDFIL    = 00038188            PRC_L_EXMDEPADR  0000008C            

CLI$_DIRECT    = 00038030            CLI$_UNDSYM    = 00038140            PRC_L_EXTARG     00000078            

CLI$_EXPSYN    = 00038038            CLI$_UNPROPARM = 00038170            PRC_L_EXTBLK     00000070            

CLI$_FILOPN    = 00038190            CLI$_UNPROQUAL = 00038168            PRC_L_EXTCOD     00000080            

CLI$_ILLVAL    = 0003883A            CLI$_USGOTO    = 00038148            PRC_L_EXTHND     00000074            

CLI$_IMCHNG    = 00038040            CLI$_VALCNVERR = 00038832            PRC_L_EXTPRM     0000007C            

CLI$_IMGFNF    = 00038872            CLI$_VALREQ    = 00038150            PRC_L_INDEPTH    00000048            

CLI$_INSFPRM   = 00038048            CMDBUFSIZ      = 000001FC            PRC_L_INDFAB     0000001C            

CLI$_INVKEY    = 00038178            GBL...         = 00000000            PRC_L_INDINPRAB  00000014            

CLI$_INVQUAL   = 0003880A            INPBUFSIZ      = 00000084            PRC_L_INDOUTRAB  00000018            

CLI$_INVQUALNUM= 0003881A            LEVELEND         0000000F R     03   PRC_L_INPRAB     00000008            

CLI$_INVREQTYP = 00038822            LEVELTBL         00000000 R     03   PRC_L_LSTSTATUS  00000094            

CLI$_INVRSP    = 00038180            MCR$ALLDYNMEM    ********   X   03   PRC_L_ONCTLY     0000009C            

CLI$_INVUIC    = 000381A8            MCR$DEADYNMEM    ********   X   03   PRC_L_ONERROR    00000058            

CLI$_IVCHAR    = 00038050            MCR$DISABLE      ********   X   03   PRC_L_OUTRAB     0000000C            

CLI$_IVDEVTYPE = 0003886A            MCR$MOVCHAR      ********   X   03   PRC_L_PROCUIC    00000098            

CLI$_IVFNAM    = 000381C0            MCR$MOVTOKN      ********   X   03   PRC_L_SAVAP      00000000            

CLI$_IVKEYW    = 00038060            MCR$ON           0000000F RG    03   PRC_L_SAVFP      00000004            

CLI$_IVOPER    = 00038068            MCR$ONRESET      000000B7 RG    03   PRC_L_SEVERITY   00000040            

CLI$_IVPROT    = 00038070            MCR$SETCHAR      ********   X   03   PRC_L_STACKLM    00000088            

CLI$_IVQLOC    = 00038078            MCR_M_ALPHAN   = 00000002            PRC_L_STACKPT    00000084            

CLI$_IVSYMB    = 00038080            MCR_M_DEFALT   = 00000008            PRC_L_STATUS     00000044            

CLI$_IVVALU    = 00038088            MCR_M_DELINP   = 00000080            PRC_L_SYMBOL     0000004C            

CLI$_IVVERB    = 00038090            MCR_M_DOLLARS  = 00000100            PRC_M_CNTRLY   = 00000002            

CLI$_MAXPARM   = 00038098            MCR_M_ESCAPE   = 00000004            PRC_M_DBGQUAL  = 00000200            

CLI$_MULKEY    = 000381A0            MCR_M_ESCTRM   = 00000200            PRC_M_DBGTRUE  = 00000400            

CLI$_NOATFIL   = 000380A0            MCR_M_GLOBAL   = 00000400            PRC_M_DISABL   = 00000004            

CLI$_NOCCAT    = 000380A8            MCR_M_LOWER    = 00000800            PRC_M_EXIT     = 00000008            

CLI$_NOCOMD    = 000380B0            MCR_M_OPNINP   = 00000040            PRC_M_GOEOF    = 00000001            

CLI$_NOKEYW    = 000380B8            MCR_M_RAD50    = 00000001            PRC_M_GOTO     = 00000010            

CLI$_NOLIST    = 000380C0            MCR_M_STRSUB   = 00001000            PRC_M_HANGUP   = 00001000            

CLI$_NOOPTPRS  = 00038842            MCR_V_ALPHAN   = 00000001            PRC_M_IND      = 00000020            

CLI$_NOQUAL    = 000380C8            MCR_V_DEFALT   = 00000003            PRC_M_MODE     = 00000040            

CLI$_NORMAL    = 00030001            MCR_V_DELINP   = 00000007            PRC_M_NOCTLY   = 00004000            

CLI$_NOTNEG    = 000380D8            MCR_V_DOLLARS  = 00000008            PRC_M_PAUSE    = 00002000            

CLI$_NOVALU    = 000380D0            MCR_V_ESCAPE   = 00000002            PRC_M_USRDET   = 00000100            

CLI$_NOVALUE   = 0003882A            MCR_V_ESCTRM   = 00000009            PRC_M_VERIFY   = 00000080            

CLI$_NULFIL    = 000380E0            MCR_V_FORCMD   = 0000000E            PRC_M_YLEVEL   = 00000800            

CLI$_NUMBER    = 000380E8            MCR_V_GLOBAL   = 0000000A            PRC_Q_ALLOCREG   00000020            

CLI$_ONCOMD    = 000380F0            MCR_V_LOWER    = 0000000B            PRC_Q_GLOBAL     00000028            

CLI$_ONERR     = 000380F8            MCR_V_OPNINP   = 00000006            PRC_Q_LABEL      00000030            

CLI$_ONEVAL    = 00038158            MCR_V_RAD50    = 00000000            PRC_Q_LOCAL      00000038            

CLI$_ONLEVL    = 00038100            MCR_V_STRSUB   = 0000000C            PRC_V_CNTRLY   = 00000001            

CLI$_ONOVF     = 00038108            MSGBUFSIZ      = 00000084            PRC_V_DBGQUAL  = 00000009            

MCRON           - ON ERROR MCR COMMAND EXECUTION                 22-AUG-1978 01:47:43   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



PRC_V_DBGTRUE  = 0000000A            WRK_V_STAR     = 00000006            

PRC_V_DISABL   = 00000002            WRK_V_TRAILSPC = 00000009            

PRC_V_EXIT     = 00000003            WRK_V_VERB     = 00000007            

PRC_V_GOEOF    = 00000000            WRK_W_FLAGS      FFFFFFFA            

PRC_V_GOTO     = 00000004            WRK_W_LOCFLG     FFFFFFF8            

PRC_V_HANGUP   = 0000000C            _$$_           = 0000003C            

PRC_V_IND      = 00000005            

PRC_V_MODE     = 00000006            

PRC_V_NOCTLY   = 0000000E            

PRC_V_PAUSE    = 0000000D            

PRC_V_USRDET   = 00000008            

PRC_V_VERIFY   = 00000007            

PRC_V_YLEVEL   = 0000000B            

PRC_W_CLIFLAG    00000052            

PRC_W_ERRIFI     00000052            

PRC_W_FLAGS      00000054            

PRC_W_INPCHAN    00000050            

PRC_W_ONLEVEL    00000056            

RSLBUFSIZ      = 00000180            

WRK_AB_BUFFER    FFFFFD44            

WRK_AG_RESULT    FFFFFBC0            

WRK_B_CMDFLG     FFFFFFC9            

WRK_B_CURADX     FFFFFFCA            

WRK_B_PARMCNT    FFFFFFCB            

WRK_B_VERBTYP    FFFFFFC8            

WRK_K_LENGTH     FFFFFBC0            

WRK_L_CHARPTR    FFFFFFFC            

WRK_L_IMAGE      FFFFFFEC            

WRK_L_MAXPARM    FFFFFFCC            

WRK_L_MINPARM    FFFFFFD0            

WRK_L_PAROUT     FFFFFFF0            

WRK_L_PROMPT     FFFFFFF4            

WRK_L_QUABLK     FFFFFFE8            

WRK_L_RSLNXT     FFFFFD40            

WRK_L_SAVAP      FFFFFFD8            

WRK_L_SAVFP      FFFFFFDC            

WRK_L_SAVSP      FFFFFFD4            

WRK_M_ALL      = 00000001            

WRK_M_ASK      = 00000100            

WRK_M_COMMAND  = 00000002            

WRK_M_CONTINU  = 00000400            

WRK_M_EQUAL    = 00000008            

WRK_M_IMCHNG   = 00000004            

WRK_M_QUAL     = 00000010            

WRK_M_QUOTE    = 00000020            

WRK_M_STAR     = 00000040            

WRK_M_TRAILSPC = 00000200            

WRK_M_VERB     = 00000080            

WRK_Q_IOSB       FFFFFFE0            

WRK_V_ALL      = 00000000            

WRK_V_ASK      = 00000008            

WRK_V_COMMAND  = 00000001            

WRK_V_CONTINU  = 0000000A            

WRK_V_EQUAL    = 00000003            

WRK_V_IMCHNG   = 00000002            

WRK_V_QUAL     = 00000004            

WRK_V_QUOTE    = 00000005            

MCRON           - ON ERROR MCR COMMAND EXECUTION                 22-AUG-1978 01:47:43   VAX-11 MACRO X0.3-11               Page   8

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  

MCR$ZCODE        000000CB      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

18200. BYTES LEFT IN FREE MEMORY POOL.

1264. BYTES OF RECLAIMED MEMORY.

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

21 MLB DIR RDS - 380 GETS TO DEFINE 19 MACROS. 27 INTER. FILE WRITES. 

