GOTO            - GOTO DCLS COMMAND EXECUTION                    22-AUG-1978 01:17:11   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      37  GOTO LABEL

   (1)      69  POSITION FILE TO GOTO LABEL

   (1)     121  DEALLOCTE GOTO CONTROL BLOCK

GOTO            - GOTO DCLS COMMAND EXECUTION                    22-AUG-1978 01:17:11   VAX-11 MACRO X0.3-11               Page   1

01                                                                                                                               (1)



                                     0000     1 	.TITLE	GOTO - GOTO DCLS COMMAND EXECUTION

                                     0000     2 	.IDENT	/01/

                                     0000     3  

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

                                     0000     7 ;

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

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

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

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

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

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

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

                                     0000    15 ;

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

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

                                     0000    18 ; EQUIPMENT CORPORATION.

                                     0000    19 ;

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

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

                                     0000    22 ;

                                     0000    23 ; D. N. CUTLER 6-MAY-77

                                     0000    24 ;

                                     0000    25 ; GOTO DCLS 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

GOTO            - GOTO DCLS COMMAND EXECUTION                    22-AUG-1978 01:17:11   VAX-11 MACRO X0.3-11               Page   2

01              GOTO LABEL                                                                                                       (1)



                                     0000    37 	.SBTTL	GOTO LABEL

                                     0000    38 ;+

                                     0000    39 ; DCL$GOTO - GOTO LABEL

                                     0000    40 ;

                                     0000    41 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE GOTO LABEL DCLS

                                     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 GOTO SEARCH

                                     0000    56 ;	IS EXECUTED.

                                     0000    57 ;-

                                     0000    58  

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

                                     0000    60 	.ENABL	LSB

                                     0000    61 DCL$GOTO::				;GOTO LABEL

         54 AB            0B     E0  0000    62 	BBS	#PRC_V_YLEVEL,PRC_W_FLAGS(R11),10$ ;IF SET, AT CONTROL Y/C LEVEL

                          39         0004       

            50         14 AB     D0  0005    63 	MOVL	PRC_L_INDINPRAB(R11),R0	;GET CURRENT INPUT RAB

         18 A0            1C     E1  0009    64 	BBC	#DEV$V_RND,RAB$L_CTX(R0),10$ ;IF CLR, NOT RANDOM ACCESS DEVICE

                          30         000D       

                                     000E    65 	GETDVAL				;GET LABEL DESCRIPTOR VALUES

                                     0011    66 	DISABLE				;DISABLE CONTROL Y/C AST'S

                          8E     7C  0014    67 	CLRQ	(SP)+			;REMOVE RETURN INFORMATION FROM STACK

GOTO            - GOTO DCLS COMMAND EXECUTION                    22-AUG-1978 01:17:11   VAX-11 MACRO X0.3-11               Page   3

01              POSITION FILE TO GOTO LABEL                                                                                      (1)



                                     0016    69 	.SBTTL	POSITION FILE TO GOTO LABEL

                                     0016    70 ;+

                                     0016    71 ; DCL$POSITION - POSITION FILE TO GOTO LABEL

                                     0016    72 ;

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

                                     0016    74 ; FOUND POSITION THE CURRENT COMMAND FILE TO THE LABEL.

                                     0016    75 ;

                                     0016    76 ; INPUTS:

                                     0016    77 ;

                                     0016    78 ;	R1 = LENGTH OF GOTO LABEL.

                                     0016    79 ;	R2 = ADDRESS OF GOTO LABEL.

                                     0016    80 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     0016    81 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     0016    82 ;

                                     0016    83 ;	IT IS ASSUMED THAT CONTROL Y/C AST'S ARE DISABLED.

                                     0016    84 ;

                                     0016    85 ; OUTPUTS:

                                     0016    86 ;

                                     0016    87 ;	THE LABEL TABLE IS SEARCHED FOR THE SPECIFIED GOTO LABEL. IF THE LABEL

                                     0016    88 ;	IS FOUND, THEN THE CURRENT COMMAND FILE IS POSITIONED TO THAT POINT.

                                     0016    89 ;	OTHERWISE A NEW LABEL TABLE ENTRY IS MADE AND A POINTER TO THE GOTO

                                     0016    90 ;	LABEL IS ESTABLISHED IN THE PROCESS WORK AREA.

                                     0016    91 ;-

                                     0016    92  

                                     0016    93 DCL$POSITION::				;POSITION FILE TO GOTO LABEL

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

                                     001A    95 	SEARCHT				;SEARCH TABLE FOR LABEL

            22            50     E8  001D    96 	BLBS	R0,30$			;IF LBS LABEL ENTRY FOUND

            54            51     7D  0020    97 	MOVQ	R1,R4			;SAVE SAVE AND ADDRESS OF LABEL

            51            09     C0  0023    98 	ADDL	#2+7,R1			;ADD IN FOR LABEL SIZE AND BLOCK SIZE

                          FFD7'  30  0026    99 	BSBW	DCL$ALLDYNMEM		;ALLOCATE DYNAMIC MEMORY

            15            50     E9  0029   100 	BLBC	R0,20$			;BR IF FAILED

            82            51     90  002C   101 	MOVB	R1,(R2)+		;SAVE SIZE OF BLOCK IN BLOCK

         4C AB            62     9E  002F   102 	MOVAB	(R2),PRC_L_SYMBOL(R11)	;SAVE TARGET FOR GOTO

            82            54     90  0033   103 	MOVB	R4,(R2)+		;SET SIZE OF LABEL STRING

            65            54     28  0036   104 	MOVC	R4,(R5),(R2)		;FILL IN LABEL NAME

                          62         0039       

         54 AB            10     A8  003A   105 	BISW	#PRC_M_GOTO,PRC_W_FLAGS(R11) ;SET FORWARD GOTO IN PROGRESS

                                     003E   106 10$:	STATUS	NORMAL			;SET NORMAL COMPLETION

                                 05  0041   107 20$:	RSB				;

                                     0042   108  

                                     0042   109 ;

                                     0042   110 ; LABEL ALREADY DEFINED - POINT TO PROPER RECORD

                                     0042   111 ;

                                     0042   112  

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

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

                       10 A8         004B       

         1E A8            02     90  004D   115 	MOVB	#RAB$C_RFA,RAB$B_RAC(R8) ;SET ACCESS MODE FOR RANDOM FIND

                                     0051   116 	$FIND	RAB=(R8)		;FIND RECORD THAT HAS LABEL

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

                                 05  005E   118 	RSB				;

                                     005F   119 	.DSABL	LSB

GOTO            - GOTO DCLS COMMAND EXECUTION                    22-AUG-1978 01:17:11   VAX-11 MACRO X0.3-11               Page   4

01              DEALLOCTE GOTO CONTROL BLOCK                                                                                     (1)



                                     005F   121 	.SBTTL	DEALLOCTE GOTO CONTROL BLOCK

                                     005F   122 ;+

                                     005F   123 ; DCL$DEALGOTO-DEALLOCATE GOTO CONTROL BLOCK

                                     005F   124 ;

                                     005F   125 ; THIS ROUTINE IS CALLED TO DEALLOCATE AN OUTSTANDING GOTO CONTROL

                                     005F   126 ; BLOCK WHEN IT IS SATISFIED OR AN END OF FILE IS REACHED WITHOUT

                                     005F   127 ; FINDING THE LABEL.

                                     005F   128 ;

                                     005F   129 ;-

                                     005F   130 DCL$DEALGOTO::				;

            50         4C AB     D0  005F   131 	MOVL	PRC_L_SYMBOL(R11),R0	; ADDRESS OF GOTO CONTROL BLOCK

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

                          FF97'  31  0066   133 	BRW	DCL$DEADYNMEM		; DEALLOCATE THE BLOCK

                                     0069   134  

                                     0069   135 	.END

GOTO            - GOTO DCLS COMMAND EXECUTION                    22-AUG-1978 01:17:11   VAX-11 MACRO X0.3-11               Page   5

SYMBOL TABLE                                                                                                                     (1)



$$.TMP1        = 00000001            CLI$_ONLEVL    = 00038100            DEV$V_AVL      = 00000012            

$$.TMP2        = 00000068            CLI$_ONOVF     = 00038108            DEV$V_CCL      = 00000001            

BIT...         = 00000020            CLI$_OVRFLW    = 00038160            DEV$V_DIR      = 00000003            

CLI$_ABFNAM    = 000381B8            CLI$_PARMDEL   = 00038110            DEV$V_DMT      = 00000015            

CLI$_ABKEYW    = 00038000            CLI$_PROC_ID   = 0003FFF1            DEV$V_ELG      = 00000016            

CLI$_ABVERB    = 00038008            CLI$_QUEJOBCRE = 0003FFF9            DEV$V_FOD      = 0000000E            

CLI$_BADRET    = 00038198            CLI$_REQPRMABS = 00038812            DEV$V_FOR      = 00000018            

CLI$_BADTEXT   = 000381B0            CLI$_RSLOVF    = 00038118            DEV$V_GEN      = 00000011            

CLI$_BUFOVF    = 00038018            CLI$_SKPDAT    = 00038120            DEV$V_IDV      = 0000001A            

CLI$_COMPLX    = 00038020            CLI$_SPARE0    = 00038010            DEV$V_MBX      = 00000014            

CLI$_CONFQUAL  = 00038802            CLI$_SPARE1    = 00038058            DEV$V_MNT      = 00000013            

CLI$_CREQUEJOB = 0003884A            CLI$_STKOVF    = 00038128            DEV$V_NET      = 0000000D            

CLI$_DEFOVF    = 00038028            CLI$_SUBMITERR = 00038852            DEV$V_ODV      = 0000001B            

CLI$_DEVALSPL  = 0003885A            CLI$_SYMDEL    = 00038130            DEV$V_RCK      = 0000001E            

CLI$_DEVNOTFOR = 0003887A            CLI$_SYMOVF    = 00038138            DEV$V_REC      = 00000000            

CLI$_DEVNOTSPL = 00038862            CLI$_UNDFIL    = 00038188            DEV$V_RND      = 0000001C            

CLI$_DIRECT    = 00038030            CLI$_UNDSYM    = 00038140            DEV$V_RTM      = 0000001D            

CLI$_EXPSYN    = 00038038            CLI$_UNPROPARM = 00038170            DEV$V_SDI      = 00000004            

CLI$_FILOPN    = 00038190            CLI$_UNPROQUAL = 00038168            DEV$V_SHR      = 00000010            

CLI$_ILLVAL    = 0003883A            CLI$_USGOTO    = 00038148            DEV$V_SPL      = 00000006            

CLI$_IMCHNG    = 00038040            CLI$_VALCNVERR = 00038832            DEV$V_SQD      = 00000005            

CLI$_IMGFNF    = 00038872            CLI$_VALREQ    = 00038150            DEV$V_SWL      = 00000019            

CLI$_INSFPRM   = 00038048            CMDBUFSIZ      = 000001FC            DEV$V_TRM      = 00000002            

CLI$_INVKEY    = 00038178            DCL$ALLDYNMEM    ********   X   03   DEV$V_WCK      = 0000001F            

CLI$_INVQUAL   = 0003880A            DCL$DEADYNMEM    ********   X   03   GBL...         = 00000000            

CLI$_INVQUALNUM= 0003881A            DCL$DEALGOTO     0000005F RG    03   INPBUFSIZ      = 00000084            

CLI$_INVREQTYP = 00038822            DCL$DISABLE      ********   X   03   MSGBUFSIZ      = 00000084            

CLI$_INVRSP    = 00038180            DCL$GETDVAL      ********   X   03   PRC_B_DEFRADIX   00000092            

CLI$_INVUIC    = 000381A8            DCL$GOTO         00000000 RG    03   PRC_B_EXMDEPMOD  00000091            

CLI$_IVCHAR    = 00038050            DCL$POSITION     00000016 RG    03   PRC_B_EXMDEPWID  00000090            

CLI$_IVDEVTYPE = 0003886A            DCL$SEARCHT      ********   X   03   PRC_K_DEC      = 00000001            

CLI$_IVFNAM    = 000381C0            DEV$M_ALL      = 00800000            PRC_K_HEX      = 00000000            

CLI$_IVKEYW    = 00038060            DEV$M_AVL      = 00040000            PRC_K_LENGTH     000000A0            

CLI$_IVOPER    = 00038068            DEV$M_CCL      = 00000002            PRC_K_OCT      = 00000002            

CLI$_IVPROT    = 00038070            DEV$M_DIR      = 00000008            PRC_L_CLIWRK0    0000005C            

CLI$_IVQLOC    = 00038078            DEV$M_DMT      = 00200000            PRC_L_CLIWRK1    00000060            

CLI$_IVSYMB    = 00038080            DEV$M_ELG      = 00400000            PRC_L_CLIWRK2    00000064            

CLI$_IVVALU    = 00038088            DEV$M_FOD      = 00004000            PRC_L_CLIWRK3    00000068            

CLI$_IVVERB    = 00038090            DEV$M_FOR      = 01000000            PRC_L_CLIWRK4    0000006C            

CLI$_MAXPARM   = 00038098            DEV$M_GEN      = 00020000            PRC_L_ERRRAB     00000010            

CLI$_MULKEY    = 000381A0            DEV$M_IDV      = 04000000            PRC_L_EXMDEPADR  0000008C            

CLI$_NOATFIL   = 000380A0            DEV$M_MBX      = 00100000            PRC_L_EXTARG     00000078            

CLI$_NOCCAT    = 000380A8            DEV$M_MNT      = 00080000            PRC_L_EXTBLK     00000070            

CLI$_NOCOMD    = 000380B0            DEV$M_NET      = 00002000            PRC_L_EXTCOD     00000080            

CLI$_NOKEYW    = 000380B8            DEV$M_ODV      = 08000000            PRC_L_EXTHND     00000074            

CLI$_NOLIST    = 000380C0            DEV$M_RCK      = 40000000            PRC_L_EXTPRM     0000007C            

CLI$_NOOPTPRS  = 00038842            DEV$M_REC      = 00000001            PRC_L_INDEPTH    00000048            

CLI$_NOQUAL    = 000380C8            DEV$M_RND      = 10000000            PRC_L_INDFAB     0000001C            

CLI$_NORMAL    = 00030001            DEV$M_RTM      = 20000000            PRC_L_INDINPRAB  00000014            

CLI$_NOTNEG    = 000380D8            DEV$M_SDI      = 00000010            PRC_L_INDOUTRAB  00000018            

CLI$_NOVALU    = 000380D0            DEV$M_SHR      = 00010000            PRC_L_INPRAB     00000008            

CLI$_NOVALUE   = 0003882A            DEV$M_SPL      = 00000040            PRC_L_LSTSTATUS  00000094            

CLI$_NULFIL    = 000380E0            DEV$M_SQD      = 00000020            PRC_L_ONCTLY     0000009C            

CLI$_NUMBER    = 000380E8            DEV$M_SWL      = 02000000            PRC_L_ONERROR    00000058            

CLI$_ONCOMD    = 000380F0            DEV$M_TRM      = 00000004            PRC_L_OUTRAB     0000000C            

CLI$_ONERR     = 000380F8            DEV$M_WCK      = 80000000            PRC_L_PROCUIC    00000098            

CLI$_ONEVAL    = 00038158            DEV$V_ALL      = 00000017            PRC_L_SAVAP      00000000            

GOTO            - GOTO DCLS COMMAND EXECUTION                    22-AUG-1978 01:17:11   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (1)



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            

PRC_V_GOEOF    = 00000000            RAB$C_BID      = 00000001            RAB$V_KGT      = 00000016            

PRC_V_GOTO     = 00000004            RAB$C_BLN        00000044            RAB$V_LIM      = 0000000E            

PRC_V_HANGUP   = 0000000C            RAB$C_KEY      = 00000001            RAB$V_LOA      = 0000000D            

PRC_V_IND      = 00000005            RAB$C_RFA      = 00000002            RAB$V_LOC      = 00000010            

PRC_V_MODE     = 00000006            RAB$C_SEQ      = 00000000            RAB$V_MAS      = 00000005            

PRC_V_NOCTLY   = 0000000E            RAB$K_BLN        00000044            RAB$V_NLK      = 00000014            

PRC_V_PAUSE    = 0000000D            RAB$L_BKT        00000038            RAB$V_NXR      = 00000017            

PRC_V_USRDET   = 00000008            RAB$L_CTX        00000018            RAB$V_PMT      = 0000001E            

PRC_V_VERIFY   = 00000007            RAB$L_DCT        00000038            RAB$V_PPF_IND  = 0000000E            

PRC_V_YLEVEL   = 0000000B            RAB$L_FAB        0000003C            RAB$V_PPF_RAT  = 00000006            

PRC_W_CLIFLAG    00000052            RAB$L_KBF        00000030            RAB$V_PTA      = 0000001D            

PRC_W_ERRIFI     00000052            RAB$L_PBF        00000030            RAB$V_RAH      = 00000009            

PRC_W_FLAGS      00000054            RAB$L_RBF        00000028            RAB$V_RLK      = 00000013            

PRC_W_INPCHAN    00000050            RAB$L_RFA0       00000010            RAB$V_RNE      = 00000018            

PRC_W_ONLEVEL    00000056            RAB$L_RHB        0000002C            RAB$V_RNF      = 0000001B            

PSL$C_EXEC     = 00000001            RAB$L_ROP        00000004            RAB$V_TMO      = 00000019            

PSL$C_KERNEL   = 00000000            RAB$L_STS        00000008            RAB$V_TPT      = 00000001            

PSL$C_SUPER    = 00000002            RAB$L_STV        0000000C            RAB$V_UIF      = 00000004            

PSL$C_USER     = 00000003            RAB$L_UBF        00000024            RAB$V_ULK      = 00000012            

PSL$M_CM       = 80000000            RAB$M_ASY      = 00000001            RAB$V_WAT      = 00000011            

PSL$M_CURMOD   = 03000000            RAB$M_BIO      = 00000800            RAB$V_WBH      = 0000000A            

PSL$M_DV       = 00000080            RAB$M_CCO      = 80000000            RAB$W_ISI        00000002            

PSL$M_FPD      = 08000000            RAB$M_CVT      = 04000000            RAB$W_RFA        00000010            

PSL$M_FU       = 00000040            RAB$M_EOF      = 00000100            RAB$W_RFA4       00000014            

PSL$M_IPL      = 001F0000            RAB$M_FDL      = 00000040            RAB$W_RSZ        00000022            

PSL$M_IS       = 04000000            RAB$M_HSH      = 00000080            RAB$W_USZ        00000020            

PSL$M_IV       = 00000020            RAB$M_KGE      = 00200000            RSLBUFSIZ      = 00000180            

GOTO            - GOTO DCLS COMMAND EXECUTION                    22-AUG-1978 01:17:11   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



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    FFFFFD38            

WRK_AG_RESULT    FFFFFBB4            

WRK_B_VERBTYP    FFFFFFC0            

WRK_K_LENGTH     FFFFFBB4            

WRK_L_CHARPTR    FFFFFFFC            

WRK_L_CMDOUT     FFFFFFBC            

WRK_L_IMAGE      FFFFFFEC            

WRK_L_MAXPARM    FFFFFFE4            

WRK_L_MINPARM    FFFFFFE8            

WRK_L_PARMCNT    FFFFFFF0            

WRK_L_PAROUT     FFFFFFF4            

WRK_L_PROMPT     FFFFFFD0            

WRK_L_PROPTR     FFFFFFDC            

WRK_L_QUABLK     FFFFFFE0            

WRK_L_RSLNXT     FFFFFD34            

WRK_L_SAVAP      FFFFFFC8            

WRK_L_SAVFP      FFFFFFCC            

WRK_L_SAVSP      FFFFFFC4            

WRK_M_COMMAND  = 00000002            

WRK_M_IMCHNG   = 00000004            

WRK_M_INQUIRE  = 00000100            

WRK_M_NOSTAT   = 00000200            

WRK_M_PROMPT   = 00000008            

WRK_M_QUAL     = 00000010            

WRK_M_QUOTE    = 00000020            

WRK_M_RUNDWN   = 00000001            

WRK_M_STAR     = 00000040            

WRK_M_TRAILSPC = 00000400            

WRK_M_VERB     = 00000080            

WRK_Q_IOSB       FFFFFFD4            

WRK_V_COMMAND  = 00000001            

WRK_V_IMCHNG   = 00000002            

WRK_V_INQUIRE  = 00000008            

WRK_V_NOSTAT   = 00000009            

WRK_V_PROMPT   = 00000003            

WRK_V_QUAL     = 00000004            

WRK_V_QUOTE    = 00000005            

WRK_V_RUNDWN   = 00000000            

WRK_V_STAR     = 00000006            

WRK_V_TRAILSPC = 0000000A            

WRK_V_VERB     = 00000007            

WRK_W_FLAGS      FFFFFFFA            

WRK_W_IMGCHAN    FFFFFFF8            





GOTO            - GOTO DCLS COMMAND EXECUTION                    22-AUG-1978 01:17:11   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  

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





THERE WERE NO ERRORS OR WARNINGS.

14146. BYTES LEFT IN FREE MEMORY POOL.

1462. BYTES OF RECLAIMED MEMORY.

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

32 MLB DIR RDS - 613 GETS TO DEFINE 25 MACROS. 47 INTER. FILE WRITES. 

