MCRGOTO         - GOTO MCR COMMAND EXECUTION                     22-AUG-1978 01:38:09   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      37  GOSUB LABEL

   (1)      87  GOTO LABEL

   (1)     113  POSITION FILE TO GOTO LABEL

   (1)     165  DEALLOCTE GOTO CONTROL BLOCK

   (1)     179  RETURN FROM SUBROUTINE

MCRGOTO         - GOTO MCR COMMAND EXECUTION                     22-AUG-1978 01:38:09   VAX-11 MACRO X0.3-11               Page   1

01                                                                                                                               (1)



                                     0000     1 	.TITLE	MCRGOTO - GOTO 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 ; W. H. BROWN 22-DEC-1977

                                     0000    24 ;

                                     0000    25 ; GOTO/GOSUB 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 	DEFSYMTBL			; DEFINE SYMBOL ENTRY OFFSETS

                                     0000    33 	$DEVDEF				; DEFINE DEVICE CHARACTERISTIC BITS

                                     0000    34 	$PSLDEF				; DEFINE PROCESSOR STATUS FIELDS

                                     0000    35 	$RABDEF				; DEFINE RAB OFFSETS

MCRGOTO         - GOTO MCR COMMAND EXECUTION                     22-AUG-1978 01:38:09   VAX-11 MACRO X0.3-11               Page   2

01              GOSUB LABEL                                                                                                      (1)



                                     0000    37 	.SBTTL	GOSUB LABEL

                                     0000    38 ;+

                                     0000    39 ; MCR$GOSUB - GOSUB LABEL

                                     0000    40 ;

                                     0000    41 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE GOSUB LABEL MCR

                                     0000    42 ; COMMAND.

                                     0000    43 ;

                                     0000    44 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     0000    45 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     0000    46 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

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

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

                                     0000    49 ;

                                     0000    50 ; OUTPUTS:

                                     0000    51 ;

                                     0000    52 ;	THE SPECIFIED LABEL IS SEARCHED FOR IN THE CURRENT LABEL TABLE, AND IF

                                     0000    53 ;	FOUND, A RANDOM FIND IS EXECUTED TO POSITION THE INPUT FILE FOR SUBSE-

                                     0000    54 ;	QUENT GET OPERATIONS. OTHERWISE A LABEL TABLE ENTRY IS CONSTRUCTED AND

                                     0000    55 ;	APPROPRIATE STATE INFORMATION IS SET UP SO THAT A FORWARD GOSUB SEARCH

                                     0000    56 ;	IS EXECUTED.

                                     0000    57 ;-

                                     0000    58  

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

                                     0000    60 MCR$GOSUB::				; GO TO A COMMMAND SUBROUTINE

                          23     10  0000    61 	BSBB	SETGO			; SET UP THE GOTO

       0084 CB            08     C3  0002    62 	SUBL3	#8,PRC_L_STACKPT(R11),R0 ; ALLOCATE STACK SPACE FOR RETURN

                          50         0007       

       0088 CB            50     D1  0008    63 	CMPL	R0,PRC_L_STACKLM(R11)	; DID STACK OVERFLOW

                          11     1B  000D    64 	BLEQU	10$			; BR IF YES

       0084 CB            50     D0  000F    65 	MOVL	R0,PRC_L_STACKPT(R11)	; SET NEW STACK POINTER

            53         14 AB     D0  0014    66 	MOVL	PRC_L_INDINPRAB(R11),R3	; GET INPUT RAB

            60         0E A3     7D  0018    67 	MOVQ	RAB$W_RFA-2(R3),(R0)	; SET RECORD FILE ADDRESS IN STACK

                          60     B4  001C    68 	CLRW	(R0)			; ZERO 2 BYTES = RETURN ADDRESS

                          22     11  001E    69 	BRB	MCR$POSITION		; POSITION THE FILE TO LABEL

                                     0020    70 10$:	STATUS	STKOVF			; INDICATE NO SPACE FOR RETURN

                                 05  0024    71 	RSB				; 

                                     0025    72 ;

                                     0025    73 ; LOCAL SUBROUTINE TO SET UP FOR GOTO/GOSUB

                                     0025    74 ;

                                     0025    75 	.ENABL	LSB			;

                                     0025    76  

         54 AB            0B     E0  0025    77 SETGO:	BBS	#PRC_V_YLEVEL,PRC_W_FLAGS(R11),5$ ; IF SET, CONTROL Y/C LEVEL

                          12         0029       

            50         14 AB     D0  002A    78 	MOVL	PRC_L_INDINPRAB(R11),R0	;GET ADDRESS OF CURRENT INPUT RAB

         18 A0            1C     E1  002E    79 	BBC	#DEV$V_RND,RAB$L_CTX(R0),5$ ; IF CLR, NOT RANDOM ACCESS DEVICE

                          09         0032       

                                     0033    80 	GETOKEN				; GET SYMBOL NAME

                                     0036    81 	DISABLE				; DISABLE CONTROL Y/C AST'S

                          8E     7C  0039    82 	CLRQ	(SP)+			; REMOVE RETURN INFORMATION FROM STACK

                                 05  003B    83 	RSB

                          8E     D5  003C    84 5$:	TSTL	(SP)+			; CLEAR LOCAL SUBROUTINE

                          2A     11  003E    85 	BRB	10$			; RETURN

MCRGOTO         - GOTO MCR COMMAND EXECUTION                     22-AUG-1978 01:38:09   VAX-11 MACRO X0.3-11               Page   3

01              GOTO LABEL                                                                                                       (1)



                                     0040    87 	.SBTTL	GOTO LABEL

                                     0040    88 ;+

                                     0040    89 ; MCR$GOTO - GOTO LABEL

                                     0040    90 ;

                                     0040    91 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE GOTO LABEL MCR

                                     0040    92 ; COMMAND.

                                     0040    93 ;

                                     0040    94 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     0040    95 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     0040    96 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     0040    97 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     0040    98 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     0040    99 ;

                                     0040   100 ; OUTPUTS:

                                     0040   101 ;

                                     0040   102 ;	THE SPECIFIED LABEL IS SEARCHED FOR IN THE CURRENT LABEL TABLE, AND IF

                                     0040   103 ;	FOUND, A RANDOM FIND IS EXECUTED TO POSITION THE INPUT FILE FOR SUBSE-

                                     0040   104 ;	QUENT GET OPERATIONS. OTHERWISE A LABEL TABLE ENTRY IS CONSTRUCTED AND

                                     0040   105 ;	APPROPRIATE STATE INFORMATION IS SET UP SO THAT A FORWARD GOTO SEARCH

                                     0040   106 ;	IS EXECUTED.

                                     0040   107 ;-

                                     0040   108  

                                     0040   109 MCR$GOTO::				; GOTO LABEL

                          E3     10  0040   110 	BSBB	SETGO			; SET UP FOR GOTO

                                     0042   111 					; FALL INTO POSITION

MCRGOTO         - GOTO MCR COMMAND EXECUTION                     22-AUG-1978 01:38:09   VAX-11 MACRO X0.3-11               Page   4

01              POSITION FILE TO GOTO LABEL                                                                                      (1)



                                     0042   113 	.SBTTL	POSITION FILE TO GOTO LABEL

                                     0042   114 ;+

                                     0042   115 ; MCR$POSITION - POSITION FILE TO GOTO LABEL

                                     0042   116 ;

                                     0042   117 ; THIS ROUTINE IS CALLED TO SEARCH THE LABEL TABLE FOR A GOTO LABEL, AND IF

                                     0042   118 ; FOUND POSITION THE CURRENT COMMAND FILE TO THE LABEL.

                                     0042   119 ;

                                     0042   120 ; INPUTS:

                                     0042   121 ;

                                     0042   122 ;	R1 = LENGTH OF GOTO LABEL.

                                     0042   123 ;	R2 = ADDRESS OF GOTO LABEL.

                                     0042   124 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     0042   125 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     0042   126 ;

                                     0042   127 ;	IT IS ASSUMED THAT CONTROL Y/C AST'S ARE DISABLED.

                                     0042   128 ;

                                     0042   129 ; OUTPUTS:

                                     0042   130 ;

                                     0042   131 ;	THE LABEL TABLE IS SEARCHED FOR THE SPECIFIED GOTO LABEL. IF THE LABEL

                                     0042   132 ;	IS FOUND, THEN THE CURRENT COMMAND FILE IS POSITIONED TO THAT POINT.

                                     0042   133 ;	OTHERWISE A NEW LABEL TABLE ENTRY IS MADE AND A POINTER TO THE GOTO

                                     0042   134 ;	LABEL IS ESTABLISHED IN THE PROCESS WORK AREA.

                                     0042   135 ;-

                                     0042   136  

                                     0042   137 MCR$POSITION::				; POSITION FILE TO GOTO LABEL

            50         30 AB     9E  0042   138 	MOVAB	PRC_Q_LABEL(R11),R0	; GET ADDRESS OF LABEL TABLE LISTHEAD

                                     0046   139 	SEARCHT				; SEARCH TABLE FOR LABEL

            22            50     E8  0049   140 	BLBS	R0,30$			; IF LBS LABEL ENTRY FOUND

            54            51     7D  004C   141 	MOVQ	R1,R4			; SAVE SAVE AND ADDRESS OF LABEL

            51            09     C0  004F   142 	ADDL	#2+7,R1			; ADD IN FOR LABEL SIZE AND BLOCK SIZE

                          FFAB'  30  0052   143 	BSBW	MCR$ALLDYNMEM		; ALLOCATE DYNAMIC MEMORY

            15            50     E9  0055   144 	BLBC	R0,20$			; BR IF FAILED

            82            51     90  0058   145 	MOVB	R1,(R2)+		; SAVE SIZE OF BLOCK IN BLOCK

         4C AB            62     9E  005B   146 	MOVAB	(R2),PRC_L_SYMBOL(R11)	; SAVE TARGET FOR GOTO

            82            54     90  005F   147 	MOVB	R4,(R2)+		; SET SIZE OF LABEL STRING

            65            54     28  0062   148 	MOVC	R4,(R5),(R2)		; FILL IN LABEL NAME

                          62         0065       

         54 AB            10     A8  0066   149 	BISW	#PRC_M_GOTO,PRC_W_FLAGS(R11) ; SET FORWARD GOTO IN PROGRESS

                                     006A   150 10$:	STATUS	NORMAL			; SET NORMAL COMPLETION

                                 05  006D   151 20$:	RSB				; 

                                     006E   152  

                                     006E   153 ;

                                     006E   154 ; LABEL ALREADY DEFINED - POINT TO PROPER RECORD

                                     006E   155 ;

                                     006E   156  

            58         14 AB     D0  006E   157 30$:	MOVL	PRC_L_INDINPRAB(R11),R8	; GET ADDRESS OF INDIRECT FILE RAB

         0E A341          06     28  0072   158 	MOVC	#6,SYM_T_SYMBOL+2(R3)[R1],RAB$W_RFA(R8) ; RESTORE RECORD FILE ADDRESS

                       10 A8         0077       

         1E A8            02     90  0079   159 FIND:	MOVB	#RAB$C_RFA,RAB$B_RAC(R8) ; SET ACCESS MODE FOR RANDOM FIND

                                     007D   160 	$FIND	RAB=(R8)		; FIND RECORD THAT HAS LABEL

         1E A8            00     90  0086   161 	MOVB	#RAB$C_SEQ,RAB$B_RAC(R8) ; RESET TO SEQUENTIAL ACCESS MODE

                                 05  008A   162 	RSB				; 

                                     008B   163 	.DSABL	LSB

MCRGOTO         - GOTO MCR COMMAND EXECUTION                     22-AUG-1978 01:38:09   VAX-11 MACRO X0.3-11               Page   5

01              DEALLOCTE GOTO CONTROL BLOCK                                                                                     (1)



                                     008B   165 	.SBTTL	DEALLOCTE GOTO CONTROL BLOCK

                                     008B   166 ;+

                                     008B   167 ; MCR$DEALGOTO-DEALLOCATE GOTO CONTROL BLOCK

                                     008B   168 ;

                                     008B   169 ; THIS ROUTINE IS CALLED TO DEALLOCATE AN OUTSTANDING GOTO CONTROL

                                     008B   170 ; BLOCK WHEN IT IS SATISFIED OR AN END OF FILE IS REACHED WITHOUT

                                     008B   171 ; FINDING THE LABEL.

                                     008B   172 ;

                                     008B   173 ;-

                                     008B   174 MCR$DEALGOTO::				; 

            50         4C AB     D0  008B   175 	MOVL	PRC_L_SYMBOL(R11),R0	; ADDRESS OF GOTO CONTROL BLOCK

            51            70     9A  008F   176 	MOVZBL	-(R0),R1		; GET LENGTH AND POINT AT START OF BLOCK

                          FF6B'  31  0092   177 	BRW	MCR$DEADYNMEM		; DEALLOCATE THE BLOCK

MCRGOTO         - GOTO MCR COMMAND EXECUTION                     22-AUG-1978 01:38:09   VAX-11 MACRO X0.3-11               Page   6

01              RETURN FROM SUBROUTINE                                                                                           (1)



                                     0095   179 	.SBTTL	RETURN FROM SUBROUTINE

                                     0095   180 ;+

                                     0095   181 ; MCR$RETURN - RETURN FROM SUBROUTINE

                                     0095   182 ;

                                     0095   183 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE RETURN MCR

                                     0095   184 ; COMMAND.

                                     0095   185 ;

                                     0095   186 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     0095   187 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     0095   188 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     0095   189 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     0095   190 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     0095   191 ;

                                     0095   192 ; OUTPUTS:

                                     0095   193 ;

                                     0095   194 ;	THE MOST RECENT SUBROUTINE CALL IS POPPED FROM THE INDIRECT STACK

                                     0095   195 ;	AND A RETURN TO THAT POINT IS MADE.

                                     0095   196 ;-

                                     0095   197 MCR$RETURN::				; RETURN FORM SUBROUTINE

            53       0084 CB     D0  0095   198 	MOVL	PRC_L_STACKPT(R11),R3	; SET TOP OF STACK

                          83     B5  009A   199 	TSTW	(R3)+			; IS TOP A SUBROUTINE?

                          1A     12  009C   200 	BNEQ	20$			; BR IF NO

            58         14 AB     D0  009E   201 	MOVL	PRC_L_INDINPRAB(R11),R8	; GET THE CURRENT INPUT RAB

         10 A8            83     D0  00A2   202 	MOVL	(R3)+,RAB$W_RFA(R8)	; SET 4 BYTES OF RECORD FILE ADDRESS

         14 A8            83     B0  00A6   203 	MOVW	(R3)+,RAB$W_RFA4(R8)	; AND THE REMAINING 2 BYTES

       0084 CB            53     D0  00AA   204 	MOVL	R3,PRC_L_STACKPT(R11)	; SET NEW TOP OF STACK

                          C8     10  00AF   205 	BSBB	FIND			; POSITION

                                     00B1   206 	FORNBLK				; READ THE SUBOUTINE CALL LINE

                                     00B4   207 	STATUS	NORMAL			; SET GOOD RETURN

                                 05  00B7   208 	RSB				;

                                     00B8   209 20$:	STATUS	BADRET			; BAD RETURN

                                 05  00BC   210 	RSB

                                     00BD   211  

                                     00BD   212 	.END

MCRGOTO         - GOTO MCR COMMAND EXECUTION                     22-AUG-1978 01:38:09   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



$$.TMP1        = 00000001            CLI$_ONLEVL    = 00038100            DEV$V_IDV      = 0000001A            

$$.TMP2        = 00000068            CLI$_ONOVF     = 00038108            DEV$V_MBX      = 00000014            

BIT...         = 00000020            CLI$_OVRFLW    = 00038160            DEV$V_MNT      = 00000013            

CLI$_ABFNAM    = 000381B8            CLI$_PARMDEL   = 00038110            DEV$V_NET      = 0000000D            

CLI$_ABKEYW    = 00038000            CLI$_PROC_ID   = 0003FFF1            DEV$V_ODV      = 0000001B            

CLI$_ABVERB    = 00038008            CLI$_QUEJOBCRE = 0003FFF9            DEV$V_RCK      = 0000001E            

CLI$_BADRET    = 00038198            CLI$_REQPRMABS = 00038812            DEV$V_REC      = 00000000            

CLI$_BADTEXT   = 000381B0            CLI$_RSLOVF    = 00038118            DEV$V_RND      = 0000001C            

CLI$_BUFOVF    = 00038018            CLI$_SKPDAT    = 00038120            DEV$V_RTM      = 0000001D            

CLI$_COMPLX    = 00038020            CLI$_SPARE0    = 00038010            DEV$V_SDI      = 00000004            

CLI$_CONFQUAL  = 00038802            CLI$_SPARE1    = 00038058            DEV$V_SHR      = 00000010            

CLI$_CREQUEJOB = 0003884A            CLI$_STKOVF    = 00038128            DEV$V_SPL      = 00000006            

CLI$_DEFOVF    = 00038028            CLI$_SUBMITERR = 00038852            DEV$V_SQD      = 00000005            

CLI$_DEVALSPL  = 0003885A            CLI$_SYMDEL    = 00038130            DEV$V_SWL      = 00000019            

CLI$_DEVNOTFOR = 0003887A            CLI$_SYMOVF    = 00038138            DEV$V_TRM      = 00000002            

CLI$_DEVNOTSPL = 00038862            CLI$_UNDFIL    = 00038188            DEV$V_WCK      = 0000001F            

CLI$_DIRECT    = 00038030            CLI$_UNDSYM    = 00038140            FIND             00000079 R     03   

CLI$_EXPSYN    = 00038038            CLI$_UNPROPARM = 00038170            GBL...         = 00000000            

CLI$_FILOPN    = 00038190            CLI$_UNPROQUAL = 00038168            INPBUFSIZ      = 00000084            

CLI$_ILLVAL    = 0003883A            CLI$_USGOTO    = 00038148            MCR$ALLDYNMEM    ********   X   03   

CLI$_IMCHNG    = 00038040            CLI$_VALCNVERR = 00038832            MCR$DEADYNMEM    ********   X   03   

CLI$_IMGFNF    = 00038872            CLI$_VALREQ    = 00038150            MCR$DEALGOTO     0000008B RG    03   

CLI$_INSFPRM   = 00038048            CMDBUFSIZ      = 000001FC            MCR$DISABLE      ********   X   03   

CLI$_INVKEY    = 00038178            DEV$M_ALL      = 00800000            MCR$FORNBLK      ********   X   03   

CLI$_INVQUAL   = 0003880A            DEV$M_AVL      = 00040000            MCR$GETOKEN      ********   X   03   

CLI$_INVQUALNUM= 0003881A            DEV$M_CCL      = 00000002            MCR$GOSUB        00000000 RG    03   

CLI$_INVREQTYP = 00038822            DEV$M_DIR      = 00000008            MCR$GOTO         00000040 RG    03   

CLI$_INVRSP    = 00038180            DEV$M_DMT      = 00200000            MCR$POSITION     00000042 RG    03   

CLI$_INVUIC    = 000381A8            DEV$M_ELG      = 00400000            MCR$RETURN       00000095 RG    03   

CLI$_IVCHAR    = 00038050            DEV$M_FOD      = 00004000            MCR$SEARCHT      ********   X   03   

CLI$_IVDEVTYPE = 0003886A            DEV$M_FOR      = 01000000            MCR_M_ALPHAN   = 00000002            

CLI$_IVFNAM    = 000381C0            DEV$M_GEN      = 00020000            MCR_M_DEFALT   = 00000008            

CLI$_IVKEYW    = 00038060            DEV$M_IDV      = 04000000            MCR_M_DELINP   = 00000080            

CLI$_IVOPER    = 00038068            DEV$M_MBX      = 00100000            MCR_M_DOLLARS  = 00000100            

CLI$_IVPROT    = 00038070            DEV$M_MNT      = 00080000            MCR_M_ESCAPE   = 00000004            

CLI$_IVQLOC    = 00038078            DEV$M_NET      = 00002000            MCR_M_ESCTRM   = 00000200            

CLI$_IVSYMB    = 00038080            DEV$M_ODV      = 08000000            MCR_M_GLOBAL   = 00000400            

CLI$_IVVALU    = 00038088            DEV$M_RCK      = 40000000            MCR_M_LOWER    = 00000800            

CLI$_IVVERB    = 00038090            DEV$M_REC      = 00000001            MCR_M_OPNINP   = 00000040            

CLI$_MAXPARM   = 00038098            DEV$M_RND      = 10000000            MCR_M_RAD50    = 00000001            

CLI$_MULKEY    = 000381A0            DEV$M_RTM      = 20000000            MCR_M_STRSUB   = 00001000            

CLI$_NOATFIL   = 000380A0            DEV$M_SDI      = 00000010            MCR_V_ALPHAN   = 00000001            

CLI$_NOCCAT    = 000380A8            DEV$M_SHR      = 00010000            MCR_V_DEFALT   = 00000003            

CLI$_NOCOMD    = 000380B0            DEV$M_SPL      = 00000040            MCR_V_DELINP   = 00000007            

CLI$_NOKEYW    = 000380B8            DEV$M_SQD      = 00000020            MCR_V_DOLLARS  = 00000008            

CLI$_NOLIST    = 000380C0            DEV$M_SWL      = 02000000            MCR_V_ESCAPE   = 00000002            

CLI$_NOOPTPRS  = 00038842            DEV$M_TRM      = 00000004            MCR_V_ESCTRM   = 00000009            

CLI$_NOQUAL    = 000380C8            DEV$M_WCK      = 80000000            MCR_V_FORCMD   = 0000000E            

CLI$_NORMAL    = 00030001            DEV$V_ALL      = 00000017            MCR_V_GLOBAL   = 0000000A            

CLI$_NOTNEG    = 000380D8            DEV$V_AVL      = 00000012            MCR_V_LOWER    = 0000000B            

CLI$_NOVALU    = 000380D0            DEV$V_CCL      = 00000001            MCR_V_OPNINP   = 00000006            

CLI$_NOVALUE   = 0003882A            DEV$V_DIR      = 00000003            MCR_V_RAD50    = 00000000            

CLI$_NULFIL    = 000380E0            DEV$V_DMT      = 00000015            MCR_V_STRSUB   = 0000000C            

CLI$_NUMBER    = 000380E8            DEV$V_ELG      = 00000016            MSGBUFSIZ      = 00000084            

CLI$_ONCOMD    = 000380F0            DEV$V_FOD      = 0000000E            PRC_B_DEFRADIX   00000092            

CLI$_ONERR     = 000380F8            DEV$V_FOR      = 00000018            PRC_B_EXMDEPMOD  00000091            

CLI$_ONEVAL    = 00038158            DEV$V_GEN      = 00000011            PRC_B_EXMDEPWID  00000090            

MCRGOTO         - GOTO MCR COMMAND EXECUTION                     22-AUG-1978 01:38:09   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



PRC_K_DEC      = 00000001            PRC_V_GOEOF    = 00000000            RAB$C_BID      = 00000001            

PRC_K_HEX      = 00000000            PRC_V_GOTO     = 00000004            RAB$C_BLN        00000044            

PRC_K_LENGTH     000000A0            PRC_V_HANGUP   = 0000000C            RAB$C_KEY      = 00000001            

PRC_K_OCT      = 00000002            PRC_V_IND      = 00000005            RAB$C_RFA      = 00000002            

PRC_L_CLIWRK0    0000005C            PRC_V_MODE     = 00000006            RAB$C_SEQ      = 00000000            

PRC_L_CLIWRK1    00000060            PRC_V_NOCTLY   = 0000000E            RAB$K_BLN        00000044            

PRC_L_CLIWRK2    00000064            PRC_V_PAUSE    = 0000000D            RAB$L_BKT        00000038            

PRC_L_CLIWRK3    00000068            PRC_V_USRDET   = 00000008            RAB$L_CTX        00000018            

PRC_L_CLIWRK4    0000006C            PRC_V_VERIFY   = 00000007            RAB$L_DCT        00000038            

PRC_L_ERRRAB     00000010            PRC_V_YLEVEL   = 0000000B            RAB$L_FAB        0000003C            

PRC_L_EXMDEPADR  0000008C            PRC_W_CLIFLAG    00000052            RAB$L_KBF        00000030            

PRC_L_EXTARG     00000078            PRC_W_ERRIFI     00000052            RAB$L_PBF        00000030            

PRC_L_EXTBLK     00000070            PRC_W_FLAGS      00000054            RAB$L_RBF        00000028            

PRC_L_EXTCOD     00000080            PRC_W_INPCHAN    00000050            RAB$L_RFA0       00000010            

PRC_L_EXTHND     00000074            PRC_W_ONLEVEL    00000056            RAB$L_RHB        0000002C            

PRC_L_EXTPRM     0000007C            PSL$C_EXEC     = 00000001            RAB$L_ROP        00000004            

PRC_L_INDEPTH    00000048            PSL$C_KERNEL   = 00000000            RAB$L_STS        00000008            

PRC_L_INDFAB     0000001C            PSL$C_SUPER    = 00000002            RAB$L_STV        0000000C            

PRC_L_INDINPRAB  00000014            PSL$C_USER     = 00000003            RAB$L_UBF        00000024            

PRC_L_INDOUTRAB  00000018            PSL$M_CM       = 80000000            RAB$M_ASY      = 00000001            

PRC_L_INPRAB     00000008            PSL$M_CURMOD   = 03000000            RAB$M_BIO      = 00000800            

PRC_L_LSTSTATUS  00000094            PSL$M_DV       = 00000080            RAB$M_CCO      = 80000000            

PRC_L_ONCTLY     0000009C            PSL$M_FPD      = 08000000            RAB$M_CVT      = 04000000            

PRC_L_ONERROR    00000058            PSL$M_FU       = 00000040            RAB$M_EOF      = 00000100            

PRC_L_OUTRAB     0000000C            PSL$M_IPL      = 001F0000            RAB$M_FDL      = 00000040            

PRC_L_PROCUIC    00000098            PSL$M_IS       = 04000000            RAB$M_HSH      = 00000080            

PRC_L_SAVAP      00000000            PSL$M_IV       = 00000020            RAB$M_KGE      = 00200000            

PRC_L_SAVFP      00000004            PSL$M_PRVMOD   = 00C00000            RAB$M_KGT      = 00400000            

PRC_L_SEVERITY   00000040            PSL$M_SAFBITS  = 000037FF            RAB$M_LIM      = 00004000            

PRC_L_STACKLM    00000088            PSL$M_TBIT     = 00000010            RAB$M_LOA      = 00002000            

PRC_L_STACKPT    00000084            PSL$M_TP       = 40000000            RAB$M_LOC      = 00010000            

PRC_L_STATUS     00000044            PSL$S_CURMOD   = 00000002            RAB$M_MAS      = 00000020            

PRC_L_SYMBOL     0000004C            PSL$S_IPL      = 00000005            RAB$M_NLK      = 00100000            

PRC_M_CNTRLY   = 00000002            PSL$S_PRVMOD   = 00000002            RAB$M_NXR      = 00800000            

PRC_M_DBGQUAL  = 00000200            PSL$V_CM       = 0000001F            RAB$M_PMT      = 40000000            

PRC_M_DBGTRUE  = 00000400            PSL$V_CURMOD   = 00000018            RAB$M_PPF_IND  = 00004000            

PRC_M_DISABL   = 00000004            PSL$V_DV       = 00000007            RAB$M_PPF_RAT  = 00003FC0            

PRC_M_EXIT     = 00000008            PSL$V_FPD      = 0000001B            RAB$M_PTA      = 20000000            

PRC_M_GOEOF    = 00000001            PSL$V_FU       = 00000006            RAB$M_RAH      = 00000200            

PRC_M_GOTO     = 00000010            PSL$V_IPL      = 00000010            RAB$M_RLK      = 00080000            

PRC_M_HANGUP   = 00001000            PSL$V_IS       = 0000001A            RAB$M_RNE      = 01000000            

PRC_M_IND      = 00000020            PSL$V_IV       = 00000005            RAB$M_RNF      = 08000000            

PRC_M_MODE     = 00000040            PSL$V_PRVMOD   = 00000016            RAB$M_TMO      = 02000000            

PRC_M_NOCTLY   = 00004000            PSL$V_TBIT     = 00000004            RAB$M_TPT      = 00000002            

PRC_M_PAUSE    = 00002000            PSL$V_TP       = 0000001E            RAB$M_UIF      = 00000010            

PRC_M_USRDET   = 00000100            RAB$B_BID        00000000            RAB$M_ULK      = 00040000            

PRC_M_VERIFY   = 00000080            RAB$B_BLN        00000001            RAB$M_WAT      = 00020000            

PRC_M_YLEVEL   = 00000800            RAB$B_KRF        00000035            RAB$M_WBH      = 00000400            

PRC_Q_ALLOCREG   00000020            RAB$B_KSZ        00000034            RAB$S_PPF_RAT  = 00000008            

PRC_Q_GLOBAL     00000028            RAB$B_MBC        00000037            RAB$V_ASY      = 00000000            

PRC_Q_LABEL      00000030            RAB$B_MBF        00000036            RAB$V_BIO      = 0000000B            

PRC_Q_LOCAL      00000038            RAB$B_PSZ        00000034            RAB$V_CCO      = 0000001F            

PRC_V_CNTRLY   = 00000001            RAB$B_RAC        0000001E            RAB$V_CVT      = 0000001A            

PRC_V_DBGQUAL  = 00000009            RAB$B_ROP1       00000005            RAB$V_EOF      = 00000008            

PRC_V_DBGTRUE  = 0000000A            RAB$B_ROP2       00000006            RAB$V_FDL      = 00000006            

PRC_V_DISABL   = 00000002            RAB$B_ROP3       00000007            RAB$V_HSH      = 00000007            

PRC_V_EXIT     = 00000003            RAB$B_TMO        0000001F            RAB$V_KGE      = 00000015            

MCRGOTO         - GOTO MCR COMMAND EXECUTION                     22-AUG-1978 01:38:09   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



RAB$V_KGT      = 00000016            WRK_L_SAVSP      FFFFFFD4            

RAB$V_LIM      = 0000000E            WRK_M_ALL      = 00000001            

RAB$V_LOA      = 0000000D            WRK_M_ASK      = 00000100            

RAB$V_LOC      = 00000010            WRK_M_COMMAND  = 00000002            

RAB$V_MAS      = 00000005            WRK_M_CONTINU  = 00000400            

RAB$V_NLK      = 00000014            WRK_M_EQUAL    = 00000008            

RAB$V_NXR      = 00000017            WRK_M_IMCHNG   = 00000004            

RAB$V_PMT      = 0000001E            WRK_M_QUAL     = 00000010            

RAB$V_PPF_IND  = 0000000E            WRK_M_QUOTE    = 00000020            

RAB$V_PPF_RAT  = 00000006            WRK_M_STAR     = 00000040            

RAB$V_PTA      = 0000001D            WRK_M_TRAILSPC = 00000200            

RAB$V_RAH      = 00000009            WRK_M_VERB     = 00000080            

RAB$V_RLK      = 00000013            WRK_Q_IOSB       FFFFFFE0            

RAB$V_RNE      = 00000018            WRK_V_ALL      = 00000000            

RAB$V_RNF      = 0000001B            WRK_V_ASK      = 00000008            

RAB$V_TMO      = 00000019            WRK_V_COMMAND  = 00000001            

RAB$V_TPT      = 00000001            WRK_V_CONTINU  = 0000000A            

RAB$V_UIF      = 00000004            WRK_V_EQUAL    = 00000003            

RAB$V_ULK      = 00000012            WRK_V_IMCHNG   = 00000002            

RAB$V_WAT      = 00000011            WRK_V_QUAL     = 00000004            

RAB$V_WBH      = 0000000A            WRK_V_QUOTE    = 00000005            

RAB$W_ISI        00000002            WRK_V_STAR     = 00000006            

RAB$W_RFA        00000010            WRK_V_TRAILSPC = 00000009            

RAB$W_RFA4       00000014            WRK_V_VERB     = 00000007            

RAB$W_RSZ        00000022            WRK_W_FLAGS      FFFFFFFA            

RAB$W_USZ        00000020            WRK_W_LOCFLG     FFFFFFF8            

RSLBUFSIZ      = 00000180            _$$_           = 00000066            

SETGO            00000025 R     03   

SYM_B_TYPE       0000000A            

SYM_K_DECIMAL  = 00000004            

SYM_K_HEXDEC   = 00000005            

SYM_K_LOGICAL  = 00000002            

SYM_K_OCTAL    = 00000003            

SYM_K_PERM     = 00000001            

SYM_K_STRING   = 00000000            

SYM_L_BL         00000004            

SYM_L_FL         00000000            

SYM_T_SYMBOL     0000000C            

SYM_W_SIZE       00000008            

SYS$FIND         ********  GX   03   

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            

MCRGOTO         - GOTO MCR COMMAND EXECUTION                     22-AUG-1978 01:38:09   VAX-11 MACRO X0.3-11               Page  10

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        000000BD      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

13312. BYTES LEFT IN FREE MEMORY POOL.

1320. BYTES OF RECLAIMED MEMORY.

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

33 MLB DIR RDS - 642 GETS TO DEFINE 26 MACROS. 51 INTER. FILE WRITES. 

