MACRO           - BACKTRANSLATOR FOR MACRO COMMAND               22-AUG-1978 05:19:36   VAX-11 MACRO X0.3-11               Page   1

HJ01                                                                                                                             (1)



                                     0000     1 	.TITLE	MACRO - BACKTRANSLATOR FOR MACRO COMMAND

                                     0000     2 	.IDENT	/HJ01/

                                     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 ; H.J.	SEPTEMBER 1977

                                     0000    24 ;

                                     0000    25 ; BACKTRANSLATOR MACRO

                                     0000    26 ;

MACRO           - BACKTRANSLATOR FOR MACRO COMMAND               22-AUG-1978 05:19:36   VAX-11 MACRO X0.3-11               Page   2

HJ01                                                                                                                             (2)



                                     0000    28 ;	.SBTTL INITIALIZE DATA DEFINITIONS

                                     0000    29 ;

                                     0000    30 ; MACRO LIBRARY CALLS

                                     0000    31 ;

                                     0000    32 	$BTDEFS				;DEFINE VALUES TO BE USED LOCALLY

                                     0000       	.SAVE

                                 00000000       	.PSECT	$ABS$,ABS

                                     0000       	.RESTORE

                                     0000    33 	$CLIDEF				;DEFINE CLI CODES AND VALUES

                                     0000       	.SAVE

                                 00000000       	.PSECT	$ABS$,ABS

                                     0000       CLI$L_INIARGCNT:

                           00000004  0000        			.BLKL	1

                                     0004       CLI$A_PROGXFER:

                           00000008  0004        			.BLKL	1

                                     0008       CLI$A_UTILSERV:

                           0000000C  0008        			.BLKL	1

                                     000C       CLI$A_IMGHDADR:

                           00000010  000C        			.BLKL	1

                                     0010       CLI$A_IMGFILED:

                           00000014  0010        			.BLKL	1

                                     0014       CLI$L_LINKFLAG:

                           00000018  0014        			.BLKL	1

                                     0018       CLI$L_CLIFLAG:

                           0000001C  0018        			.BLKL	1

                           00000000  001C        	. = 0

                                     0000       CLI$B_RQTYPE:

                           00000001  0000        			.BLKB	1

                                     0001       CLI$W_SERVCOD:

                                     0001       CLI$B_RQINDX:

                                     0001       CLI$B_BITNUM:

                           00000002  0001        			.BLKB	1

                                     0002       CLI$B_RQFLGS:

                           00000003  0002        			.BLKB	1

                                     0003       CLI$B_RQSTAT:

                           00000004  0003        			.BLKB	1

                                     0004       CLI$A_ERRACT:

                           00000008  0004        			.BLKL	1

                                     0008       CLI$Q_RQDESC:

                                     0008       CLI$W_RQSIZE:

                           0000000A  0008        			.BLKW	1

                           0000000C  000A        			.BLKW	1

                                     000C       CLI$L_RQVALU:

                                     000C       CLI$A_RQADDR:

                           00000010  000C        			.BLKL	1

                                     0010       CLI$A_PRSACT:

                           00000014  0010        			.BLKL	1

                                     0014       CLI$A_ABSACT:

                           00000018  0014        			.BLKL	1

                                     0018       CLI$A_QUALST:

                           0000001C  0018        			.BLKL	1

                                     001C       CLI$C_REQDESC:

                                     001C       CLI$K_REQDESC:

                           00000000  001C        	. = 0

                                     0000       CLI$B_QDBLKSIZ:

                           00000001  0000        			.BLKB	1

                                     0001       CLI$B_QDCODE:

MACRO           - BACKTRANSLATOR FOR MACRO COMMAND               22-AUG-1978 05:19:36   VAX-11 MACRO X0.3-11               Page   3

HJ01                                                                                                                             (2)



                           00000002  0001        			.BLKB	1

                                     0002       CLI$B_QDFLGS:

                           00000003  0002        			.BLKB	1

                                     0003       CLI$B_QDSTAT:

                           00000004  0003        			.BLKB	1

                                     0004       CLI$Q_QDVALDESC:

                                     0004       CLI$W_QDVALSIZ:

                           00000006  0004        			.BLKW	1

                           00000008  0006        			.BLKW	1

                                     0008       CLI$A_QDVALADR:

                           0000000C  0008        			.BLKL	1

                                     000C       CLI$A_TRUACT:

                           00000010  000C        			.BLKL	1

                                     0010       CLI$A_FLSACT:

                           00000014  0010        			.BLKL	1

                                     0014       CLI$C_QUALDEF:

                                     0014       CLI$K_QUALDEF:

                                     0014       CLI$C_QDBITS:

                                     0014       CLI$K_QDBITS:

                                     0014       CLI$L_USRVAL:

                           00000018  0014        			.BLKL	1

                           00000000  0018        	. = 0

                                     0000       CLI$L_WORKAREA:

                           00000080  0000        			.BLKL	32

                                     0080       CLI$C_WORKAREA:

                                     0080       CLI$K_WORKAREA:

                                     0000       	.RESTORE

                                     0000    34 	$CLIDEFQUALMACR			;DEFINE QUALIFIER CODES

                                     0000       	.SAVE

                                 00000080       	.PSECT	$ABS$,ABS

                           00000000  0080       	.=0

                                     0000       PRO_B_PROMPT:

                           00000001  0000       	.BLKB	1

                                     0001       PRO_B_FLAGS:

                           00000002  0001       	.BLKB	1

                                     0002       PRO_K_LENGTH:

                                     0000       	.RESTORE

                                     0000       	.SAVE

                                 00000080       	.PSECT	$ABS$,ABS

                           00000000  0080       	.=0

                                     0000       QUA_B_OFFSET:

                           00000001  0000       	.BLKB	1

                                     0001       QUA_B_INDEX:

                           00000002  0001       	.BLKB	1

                                     0002       QUA_B_DEFVAL:

                           00000003  0002       	.BLKB	1

                                     0003       QUA_W_FLAGS:

                           00000005  0003       	.BLKW	1

                                     0005       QUA_B_IMAGE:

                           00000006  0005       	.BLKB	1

                                     0006       QUA_G_CHNGLST:

                                     0006       QUA_W_QUALIST:

                           00000008  0006       	.BLKW	1

                                     0008       QUA_B_PARMCNT:

                           00000009  0008       	.BLKB	1

                                     0009       QUA_W_PROMPT:

                           0000000B  0009       	.BLKW	1

MACRO           - BACKTRANSLATOR FOR MACRO COMMAND               22-AUG-1978 05:19:36   VAX-11 MACRO X0.3-11               Page   4

HJ01                                                                                                                             (2)



                                     0000       	.RESTORE

                                     0000    35 

                                     0000    36 ;

                                     0000    37 ; LOCAL SYMBOLS

                                     0000    38 ;

                                     0000    39 

                                     0000    40 ;

                                     0000    41 ; ARGUMENT LIST OFFSET DEFINITIONS

                                     0000    42 ;

                                     0000    43 

                                     0000    44 ;

                                     0000    45 ; LOCAL DATA

                                     0000    46 ;

                                     0000    47 	IMPURE

                                 00000000       	.PSECT	IMPURE_	LONG,RD,WRT,NOEXE

                                     0000    48 ;

                                     0000    49 ;

                                     0000    50 ;

                                     0000    51 INPUT_ARGLIST:

                                     0000    52 	$ARGLST	3,-			;CREATE AN ARGUMENT LIST

                                     0000    53 		INPUT_DESC,-		;FOR FIRST INPUT PARAMETER

                                     0000    54 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     0000    55 		BITMAP			;BIT ARRAY

                           00000003  0000       		.LONG	3

                           00000010' 0004       		.LONG	INPUT_DESC

                           00000000' 0008       		.LONG	CLIWORKAREA

                           00000000' 000C       		.LONG	BITMAP

                                     0010    56 

                                     0010    57 INPUT_DESC:

                                     0010    58 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

                                     0010    59 		RQTYPE=CLI$K_INPUT1,-	;FOR PRIMARY INPUT

                                     0010    60 		QUALST=LIB_QUAL,-	;ACCEPT /LIBRARY QUALIFIER

                                     0010    61 		RQFLGS=CLI$V_PARMREQ	;PRIMARY INPUT IS REQUIRED

                           0000002C  0010       	.BLKB	CLI$C_REQDESC

                           00000010  002C       	. = $CLI.+CLI$B_RQTYPE

                                 10  0010       	  .BYTE	CLI$K_INPUT1

                           00000012  0011       	. = $CLI.+CLI$B_RQFLGS

                                 01  0012       	.BYTE	$$$.

                           00000028  0013       	. = $CLI.+CLI$A_QUALST

                           0000001C' 0028       	    .LONG	<LIB_QUAL-$CLI.>

                                     002C    62 

                                     002C    63 LIB_QUAL:

                                     002C    64 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     002C    65 		QDCODE=CLI$K_MACR_LIBR,-;/LIBRARY

                                     002C    66 		TRUACT=MACR_LIBRARY	;CALL QUALIFIER HANDLER

                           00000040  002C       	.BLKB	CLI$C_QUALDEF

                           0000002C  0040       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 002C       	  .BYTE	30033$-.

                                 03  002D       	  .BYTE	CLI$K_MACR_LIBR

                           00000038  002E       	. = $CLI.+CLI$A_TRUACT

                           00000188' 0038       	    .LONG	<MACR_LIBRARY-$CLI.>

                           00000040  003C       . = $CLI..

                                 00  0040       	.BYTE	0

                                 00  0041       	.BYTE	0

                                 00  0042       	.BYTE	0

                                     0043       30033$:

                                     0043    67 

MACRO           - BACKTRANSLATOR FOR MACRO COMMAND               22-AUG-1978 05:19:36   VAX-11 MACRO X0.3-11               Page   5

HJ01                                                                                                                             (2)



                                     0043    68 	$CLIQUALDESC	END_LIST	;TERMINATE THE QUALIFIER LIST

                                 00  0043       	.BYTE	0

                                     0044    69 

                                     0044    70 OBJECT_ARGLIST:

                                     0044    71 	$ARGLST	3,-			;CREATE AN ARGUMENT LIST

                                     0044    72 		OBJECT_DESC,-		;FOR PRIMARY OUTPUT

                                     0044    73 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     0044    74 		BITMAP			;BIT ARRAY

                           00000003  0044       		.LONG	3

                           00000054' 0048       		.LONG	OBJECT_DESC

                           00000000' 004C       		.LONG	CLIWORKAREA

                           00000000' 0050       		.LONG	BITMAP

                                     0054    75 

                                     0054    76 OBJECT_DESC:

                                     0054    77 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

                                     0054    78 		RQTYPE=CLI$K_OUTPUT1	;FOR PRIMARY OUTPUT

                           00000070  0054       	.BLKB	CLI$C_REQDESC

                           00000054  0070       	. = $CLI.+CLI$B_RQTYPE

                                 20  0054       	  .BYTE	CLI$K_OUTPUT1

                           00000070  0055       	. = $CLI..

                                     0070    79 

                                     0070    80 LIST_ARGLIST:

                                     0070    81 	$ARGLST	3,-			;CREATE AN ARGUMENT LIST

                                     0070    82 		LIST_DESC,-		;FOR SECONDARY OUTPUT

                                     0070    83 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     0070    84 		BITMAP			;BIT ARRAY

                           00000003  0070       		.LONG	3

                           00000080' 0074       		.LONG	LIST_DESC

                           00000000' 0078       		.LONG	CLIWORKAREA

                           00000000' 007C       		.LONG	BITMAP

                                     0080    85 

                                     0080    86 LIST_DESC:

                                     0080    87 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

                                     0080    88 		RQTYPE=CLI$K_OUTPUT2	;FOR SECONDARY OUTPUT

                           0000009C  0080       	.BLKB	CLI$C_REQDESC

                           00000080  009C       	. = $CLI.+CLI$B_RQTYPE

                                 21  0080       	  .BYTE	CLI$K_OUTPUT2

                           0000009C  0081       	. = $CLI..

                                     009C    89 

                                     009C    90 

                                     009C    91 QUAL_ARGLIST:

                                     009C    92 	$ARGLST	3,-			;CREATE AN ARGUMENT LIST

                                     009C    93 		QUAL_DESC,-		;FOR COMMAND QUALIFIERS

                                     009C    94 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     009C    95 		BITMAP			;BIT ARRAY

                           00000003  009C       		.LONG	3

                           000000AC' 00A0       		.LONG	QUAL_DESC

                           00000000' 00A4       		.LONG	CLIWORKAREA

                           00000000' 00A8       		.LONG	BITMAP

                                     00AC    96 

                                     00AC    97 QUAL_DESC:

                                     00AC    98 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

                                     00AC    99 		RQTYPE=CLI$K_GETQUAL,-	;FOR COMMAND QUALIFIERS

                                     00AC   100 		QUALST=QUAL_LIST	;ADDRESS OF THE QUALIFIERS

                           000000C8  00AC       	.BLKB	CLI$C_REQDESC

                           000000AC  00C8       	. = $CLI.+CLI$B_RQTYPE

                                 02  00AC       	  .BYTE	CLI$K_GETQUAL

MACRO           - BACKTRANSLATOR FOR MACRO COMMAND               22-AUG-1978 05:19:36   VAX-11 MACRO X0.3-11               Page   6

HJ01                                                                                                                             (2)



                           000000C4  00AD       	. = $CLI.+CLI$A_QUALST

                           0000001C' 00C4       	    .LONG	<QUAL_LIST-$CLI.>

                                     00C8   101 

                                     00C8   102 

                                     00C8   103 QUAL_LIST:

                                     00C8   104 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00C8   105 		QDCODE=CLI$K_MACR_RSX1,-;/RSX11 MACRO-11 QUALIFIER

                                     00C8   106 		TRUACT=MACR_RSX11	;CALL QUALIFIER HANDLER

                           000000DC  00C8       	.BLKB	CLI$C_QUALDEF

                           000000C8  00DC       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 00C8       	  .BYTE	30038$-.

                                 07  00C9       	  .BYTE	CLI$K_MACR_RSX1

                           000000D4  00CA       	. = $CLI.+CLI$A_TRUACT

                           000000F7' 00D4       	    .LONG	<MACR_RSX11-$CLI.>

                           000000DC  00D8       . = $CLI..

                                 00  00DC       	.BYTE	0

                                 00  00DD       	.BYTE	0

                                 00  00DE       	.BYTE	0

                                     00DF       30038$:

                                     00DF   107 

                                     00DF   108 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00DF   109 		QDCODE=CLI$K_MACR_DISA,-;/DISABLE:LIST QUALIFIER

                                     00DF   110 		TRUACT=MACR_DISABLE	;CALL QUALIFIER HANDLER

                           000000F3  00DF       	.BLKB	CLI$C_QUALDEF

                           000000DF  00F3       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 00DF       	  .BYTE	30042$-.

                                 01  00E0       	  .BYTE	CLI$K_MACR_DISA

                           000000EB  00E1       	. = $CLI.+CLI$A_TRUACT

                           FFFFFF86' 00EB       	    .LONG	<MACR_DISABLE-$CLI.>

                           000000F3  00EF       . = $CLI..

                                 00  00F3       	.BYTE	0

                                 00  00F4       	.BYTE	0

                                 00  00F5       	.BYTE	0

                                     00F6       30042$:

                                     00F6   111 

                                     00F6   112 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00F6   113 		QDCODE=CLI$K_MACR_ENAB,-;/ENABLE:LIST QUALIFIER

                                     00F6   114 		TRUACT=MACR_ENABLE	;CALL QUALIFIER HANDLER

                           0000010A  00F6       	.BLKB	CLI$C_QUALDEF

                           000000F6  010A       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 00F6       	  .BYTE	30046$-.

                                 02  00F7       	  .BYTE	CLI$K_MACR_ENAB

                           00000102  00F8       	. = $CLI.+CLI$A_TRUACT

                           00000014' 0102       	    .LONG	<MACR_ENABLE-$CLI.>

                           0000010A  0106       . = $CLI..

                                 00  010A       	.BYTE	0

                                 00  010B       	.BYTE	0

                                 00  010C       	.BYTE	0

                                     010D       30046$:

                                     010D   115 

                                     010D   116 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     010D   117 		QDCODE=CLI$K_MACR_SHOW,-;/SHOW:LIST QUALIFIER

                                     010D   118 		TRUACT=MACR_SHOW	;CALL QUALIFIER HANDLER

                           00000121  010D       	.BLKB	CLI$C_QUALDEF

                           0000010D  0121       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 010D       	  .BYTE	30050$-.

                                 06  010E       	  .BYTE	CLI$K_MACR_SHOW

MACRO           - BACKTRANSLATOR FOR MACRO COMMAND               22-AUG-1978 05:19:36   VAX-11 MACRO X0.3-11               Page   7

HJ01                                                                                                                             (2)



                           00000119  010F       	. = $CLI.+CLI$A_TRUACT

                           0000000B' 0119       	    .LONG	<MACR_SHOW-$CLI.>

                           00000121  011D       . = $CLI..

                                 00  0121       	.BYTE	0

                                 00  0122       	.BYTE	0

                                 00  0123       	.BYTE	0

                                     0124       30050$:

                                     0124   119 

                                     0124   120 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0124   121 		QDCODE=CLI$K_MACR_NOSH,-;/NOSHOW:LIST QUALIFIER

                                     0124   122 		TRUACT=MACR_NOSHOW	;CALL QUALIFIER HANDLER

                           00000138  0124       	.BLKB	CLI$C_QUALDEF

                           00000124  0138       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0124       	  .BYTE	30054$-.

                                 08  0125       	  .BYTE	CLI$K_MACR_NOSH

                           00000130  0126       	. = $CLI.+CLI$A_TRUACT

                           00000081' 0130       	    .LONG	<MACR_NOSHOW-$CLI.>

                           00000138  0134       . = $CLI..

                                 00  0138       	.BYTE	0

                                 00  0139       	.BYTE	0

                                 00  013A       	.BYTE	0

                                     013B       30054$:

                                     013B   123 

                                     013B   124 

                                     013B   125 	$CLIQUALDESC	END_LIST	;TERMINATE THE QUALIFIER LIST

                                 00  013B       	.BYTE	0

MACRO           - BACKTRANSLATOR FOR MACRO COMMAND               22-AUG-1978 05:19:36   VAX-11 MACRO X0.3-11               Page   8

HJ01                                                                                                                             (3)



                                     013C   127 ;	.SBTTL MACRO

                                     013C   128 ;+

                                     013C   129 ; BACKTRANSLATOR MACRO

                                     013C   130 ;

                                     013C   131 ; CONVERTS DCL COMMAND TO COMPATIBILITY MODE IMAGE COMMAND

                                     013C   132 ;

                                     013C   133 ;

                                     013C   134 ; INPUTS:

                                     013C   135 ;  THE INPUTS ARE RETURNED FROM THE DCL RESULT PARSER AS RESPONSES

                                     013C   136 ;  TO THE VARIOUS REQUEST DESCRIPTORS THAT ARE GIVEN TO IT.

                                     013C   137 ;

                                     013C   138 ;

                                     013C   139 ; OUTPUTS:

                                     013C   140 ;  THE OUTPUT CONSISTS OF TWO STRINGS OR AN ERROR MESSAGE AND ABORT.

                                     013C   141 ;  THE CALLER OPENS THE IMAGE AND INVOKES THE COMPATIBILITY EMULATOR

                                     013C   142 ;  IF NO ERROR OCCURS.

                                     013C   143 ;

                                     013C   144 ;  1- FILENAME STRING OF COMPATIBILITY MODE IMAGE TO BE ACTIVATED.

                                     013C   145 ;

                                     013C   146 ;  2- COMMAND LINE TO BE GIVEN TO THE IMAGE.

                                     013C   147 ;

                                     013C   148 ;-

                                     013C   149 

                                     013C   150 	PURE

                                 00000000       	.PSECT	PURE_	BYTE,RD,EXE,NOWRT

                                     0000   151 

                                     0000   152 MACR::

                                 FA  0000   153 	CALLG	W^OBJECT_ARGLIST,-	;PROCESS PRIMARY OUTPUT (/OBJECT:SPEC)

         08 BC       0044'CF         0001   154 		@CLI$A_UTILSERV(AP)

            59       005C'CF     7D  0006   155 	MOVQ	W^CLI$Q_RQDESC+OBJECT_DESC,R9 ;PICK UP STRING DESCRIPTOR

                          FFF2'  30  000B   156 	BSBW	INSERTARG		;SAVE IT AS PRIMARY OUTPUT

                     0000'CF     97  000E   157 	DECB	W^PARAMLOC		;SET UP FOR SECONDARY OUTPUT

                                 FA  0012   158 	CALLG	W^LIST_ARGLIST,-	;PROCESS SECONDARY OUTPUT (/LIST:SPEC)

         08 BC       0070'CF         0013   159 		@CLI$A_UTILSERV(AP)

            59       0088'CF     7D  0018   160 	MOVQ	W^CLI$Q_RQDESC+LIST_DESC,R9 ;PICK UP STRING DESCRIPTOR

                          FFE0'  30  001D   161 	BSBW	INSERTARG		;SAVE IT AS SECONDARY OUTPUT

       0000'CF         F6 8F     90  0020   162 	MOVB	#PRIM_INPUT,W^HOLDLOC	;CAUSE OPTIONS TO GO AT END OF INPUT

                                 FA  0026   163 	CALLG	W^QUAL_ARGLIST,-	;PROCESS COMMAND OPTIONS

         08 BC       009C'CF         0027   164 		@CLI$A_UTILSERV(AP)

       0000'CF         F7 8F     90  002C   165 	MOVB	#PRIM_INPUT+1,W^PARAMLOC;SET UP TO START ACCEPTING INPUTS

                     0000'CF     97  0032   166 10$:	DECB	W^PARAMLOC		;PUT NEXT INPUT IN NEXT POSITION

       0000'CF       0000'CF     90  0036   167 	MOVB	W^PARAMLOC,W^HOLDLOC	;MAKE /LIBRARY OCCUR ON THIS INPUT

                                 FA  003D   168 	CALLG	W^INPUT_ARGLIST,-	;PROCESS THE PRIMARY INPUT

         08 BC       0000'CF         003E   169 		@CLI$A_UTILSERV(AP)

            59       0018'CF     7D  0043   170 	MOVQ	W^CLI$Q_RQDESC+INPUT_DESC,R9 ;PICK UP STRING DESCRIPTOR

                          FFB5'  30  0048   171 	BSBW	INSERTARG		;SAVE IT AS PRIMARY INPUT

                                 E0  004B   172 	BBS	#CLI$V_CONCATINP,-	;BRANCH IF MORE INPUTS TO GET THEM

       0013'CF            01         004C   173 		W^CLI$B_RQSTAT+INPUT_DESC,10$

                          E1         0050       

                                     0051   174 	$SETSTRING	</-SP>,TYPE=INLINE,POS=<PRIM_OUTPUT-1>

                          FFAC'  30  0051       	BSBW	SETSTRING

                                 05  0054       	.BYTE	$$$FLAGS

                                 00  0055       	.BYTE	0

                                 FF  0056       	.BYTE	PRIM_OUTPUT-1

                                 04  0057       	.BYTE	$$CNT

                        50 53 2D 2F  0058       	.ASCII	\/-SP\

                                     005C   175 					;PREVENT AUTOMATIC SPOOLING OF LISTING

MACRO           - BACKTRANSLATOR FOR MACRO COMMAND               22-AUG-1978 05:19:36   VAX-11 MACRO X0.3-11               Page   9

HJ01                                                                                                                             (3)



                                     005C   176 	DEFPROG	MAR,NOSTICK		;RETURN DEFAULT PROGRAM TO RUN

            50            03     D0  005C       	MOVL	#PROG_MAR,R0

       0000'CF            01     D0  005F       	MOVL	#1,W^STICKY_FLAG

                                 05  0064   177 	RSB				;RETURN TO GENERATE COMMAND TEXT

                                     0065   178 

                                     0065   179 

                                     0065   180 MACR_DISABLE:

                                     0065   181 	$SETSTRING	</DS>,FLAGS=<BTR$M_RETURN> ;SET UP /DISABLE OPTION

                               0FFC  0065       	.WORD	SAVE_REG_MASK

                          FF96'  30  0067       	BSBW	SETSTRING

                                 01  006A       	.BYTE	$$$FLAGS

                                 00  006B       	.BYTE	0

                                 03  006C       	.BYTE	$$CNT

                           53 44 2F  006D       	.ASCII	\/DS\

                                     0070   182 DISKEYWDS:

                                     0070   183 	$GETKEYWORD	LIST=<-		;ACCEPT /DISABLE[:VALS...] OPTION

                                     0070   184 				ABSOLUTE,-

                                     0070   185 				DEBUG,-

                                     0070   186 				TRUNCATION,-

                                     0070   187 				GLOBAL,-

                                     0070   188 				LOCAL,-

                                     0070   189 				TRACEBACK,-

                                     0070   190 				AMA,-

                                     0070   191 				DBG,-

                                     0070   192 				FPT,-

                                     0070   193 				GBL,-

                                     0070   194 				LSB,-

                                     0070   195 				TBK,-

                                     0070   196 				>

                          FF8D'  30  0070       	BSBW	GETKEYWORD

                                 4A' 0073       	.BYTE	30059$-30060$

                                     0074       30060$:

                                 08' 0074       	.BYTE	$$CNT

            45 54 55 4C 4F 53 42 41  0075       	.ASCII	\ABSOLUTE\

                                 05' 007D       	.BYTE	$$CNT

                     47 55 42 45 44  007E       	.ASCII	\DEBUG\

                                 0A' 0083       	.BYTE	$$CNT

      4E 4F 49 54 41 43 4E 55 52 54  0084       	.ASCII	\TRUNCATION\

                                 06' 008E       	.BYTE	$$CNT

                  4C 41 42 4F 4C 47  008F       	.ASCII	\GLOBAL\

                                 05' 0095       	.BYTE	$$CNT

                     4C 41 43 4F 4C  0096       	.ASCII	\LOCAL\

                                 09' 009B       	.BYTE	$$CNT

         4B 43 41 42 45 43 41 52 54  009C       	.ASCII	\TRACEBACK\

                                 03' 00A5       	.BYTE	$$CNT

                           41 4D 41  00A6       	.ASCII	\AMA\

                                 03' 00A9       	.BYTE	$$CNT

                           47 42 44  00AA       	.ASCII	\DBG\

                                 03' 00AD       	.BYTE	$$CNT

                           54 50 46  00AE       	.ASCII	\FPT\

                                 03' 00B1       	.BYTE	$$CNT

                           4C 42 47  00B2       	.ASCII	\GBL\

                                 03' 00B5       	.BYTE	$$CNT

                           42 53 4C  00B6       	.ASCII	\LSB\

                                 03' 00B9       	.BYTE	$$CNT

                           4B 42 54  00BA       	.ASCII	\TBK\

                                 00  00BD       	.BYTE	0

MACRO           - BACKTRANSLATOR FOR MACRO COMMAND               22-AUG-1978 05:19:36   VAX-11 MACRO X0.3-11               Page  10

HJ01                                                                                                                             (3)



                                     00BE       30059$:

                                     00BE   197 	$REPLACE	<:AMA,:DBG,:FPT,:GBL,:LSB,:TBK,-

                                     00BE   198 			 :AMA,:DBG,:FPT,:GBL,:LSB,:TBK>,DISKEYWDS

                          FF3F'  30  00BE       	BSBW	REPLACE

                                 AE' 00C1       	.BYTE	DISKEYWDS-30062$

                                     00C2       30062$:

                                 FF  00C2       	.BYTE	$$INDEX

                                 04  00C3       	.BYTE	$$CNT

                        41 4D 41 3A  00C4       	.ASCII	\:AMA\

                                 FE  00C8       	.BYTE	$$INDEX

                                 04  00C9       	.BYTE	$$CNT

                        47 42 44 3A  00CA       	.ASCII	\:DBG\

                                 FD  00CE       	.BYTE	$$INDEX

                                 04  00CF       	.BYTE	$$CNT

                        54 50 46 3A  00D0       	.ASCII	\:FPT\

                                 FC  00D4       	.BYTE	$$INDEX

                                 04  00D5       	.BYTE	$$CNT

                        4C 42 47 3A  00D6       	.ASCII	\:GBL\

                                 FB  00DA       	.BYTE	$$INDEX

                                 04  00DB       	.BYTE	$$CNT

                        42 53 4C 3A  00DC       	.ASCII	\:LSB\

                                 FA  00E0       	.BYTE	$$INDEX

                                 04  00E1       	.BYTE	$$CNT

                        4B 42 54 3A  00E2       	.ASCII	\:TBK\

                                 F9  00E6       	.BYTE	$$INDEX

                                 04  00E7       	.BYTE	$$CNT

                        41 4D 41 3A  00E8       	.ASCII	\:AMA\

                                 F8  00EC       	.BYTE	$$INDEX

                                 04  00ED       	.BYTE	$$CNT

                        47 42 44 3A  00EE       	.ASCII	\:DBG\

                                 F7  00F2       	.BYTE	$$INDEX

                                 04  00F3       	.BYTE	$$CNT

                        54 50 46 3A  00F4       	.ASCII	\:FPT\

                                 F6  00F8       	.BYTE	$$INDEX

                                 04  00F9       	.BYTE	$$CNT

                        4C 42 47 3A  00FA       	.ASCII	\:GBL\

                                 F5  00FE       	.BYTE	$$INDEX

                                 04  00FF       	.BYTE	$$CNT

                        42 53 4C 3A  0100       	.ASCII	\:LSB\

                                 F4  0104       	.BYTE	$$INDEX

                                 04  0105       	.BYTE	$$CNT

                        4B 42 54 3A  0106       	.ASCII	\:TBK\

                                     010A       30061$:

                                     010A   199 

                                     010A   200 MACR_ENABLE:

                                     010A   201 	$SETSTRING	</EN>,FLAGS=<BTR$M_RETURN> ;SET UP /ENABLE OPTION

                               0FFC  010A       	.WORD	SAVE_REG_MASK

                          FEF1'  30  010C       	BSBW	SETSTRING

                                 01  010F       	.BYTE	$$$FLAGS

                                 00  0110       	.BYTE	0

                                 03  0111       	.BYTE	$$CNT

                           4E 45 2F  0112       	.ASCII	\/EN\

                          FF58   31  0115   202 	BRW	DISKEYWDS		;USE COMMON CODE WITH /DISABLE

                                     0118   203 

                                     0118   204 MACR_SHOW:

                                     0118   205 	$SETSTRING	</LI>,FLAGS=<BTR$M_RETURN>,POS=<PRIM_OUTPUT-1>

                               0FFC  0118       	.WORD	SAVE_REG_MASK

MACRO           - BACKTRANSLATOR FOR MACRO COMMAND               22-AUG-1978 05:19:36   VAX-11 MACRO X0.3-11               Page  11

HJ01                                                                                                                             (3)



                          FEE3'  30  011A       	BSBW	SETSTRING

                                 05  011D       	.BYTE	$$$FLAGS

                                 00  011E       	.BYTE	0

                                 FF  011F       	.BYTE	PRIM_OUTPUT-1

                                 03  0120       	.BYTE	$$CNT

                           49 4C 2F  0121       	.ASCII	\/LI\

                                     0124   206 SHOWKEYWDS:

                                     0124   207 	$GETKEYWORD	LIST=<-		;ACCEPT /SHOW[:VALS...]

                                     0124   208 				CONDITIONALS,-

                                     0124   209 				DEFINITIONS,-

                                     0124   210 				CALLS,-

                                     0124   211 				EXPANSIONS,-

                                     0124   212 				BINARY,-

                                     0124   213 				CND,-

                                     0124   214 				MD,-

                                     0124   215 				MC,-

                                     0124   216 				ME,-

                                     0124   217 				MEB,-

                                     0124   218 				>

                          FED9'  30  0124       	BSBW	GETKEYWORD

                                 43' 0127       	.BYTE	30063$-30064$

                                     0128       30064$:

                                 0C' 0128       	.BYTE	$$CNT

53 4C 41 4E 4F 49 54 49 44 4E 4F 43  0129       	.ASCII	\CONDITIONALS\

                                 0B' 0135       	.BYTE	$$CNT

   53 4E 4F 49 54 49 4E 49 46 45 44  0136       	.ASCII	\DEFINITIONS\

                                 05' 0141       	.BYTE	$$CNT

                     53 4C 4C 41 43  0142       	.ASCII	\CALLS\

                                 0A' 0147       	.BYTE	$$CNT

      53 4E 4F 49 53 4E 41 50 58 45  0148       	.ASCII	\EXPANSIONS\

                                 06' 0152       	.BYTE	$$CNT

                  59 52 41 4E 49 42  0153       	.ASCII	\BINARY\

                                 03' 0159       	.BYTE	$$CNT

                           44 4E 43  015A       	.ASCII	\CND\

                                 02' 015D       	.BYTE	$$CNT

                              44 4D  015E       	.ASCII	\MD\

                                 02' 0160       	.BYTE	$$CNT

                              43 4D  0161       	.ASCII	\MC\

                                 02' 0163       	.BYTE	$$CNT

                              45 4D  0164       	.ASCII	\ME\

                                 03' 0166       	.BYTE	$$CNT

                           42 45 4D  0167       	.ASCII	\MEB\

                                 00  016A       	.BYTE	0

                                     016B       30063$:

                                     016B   219 	$REPLACE	<:CND,:MD,:MC,:ME,:MEB,:CND,:MD,:MC,:ME,:MEB>,SHOWKEYWDS

                          FE92'  30  016B       	BSBW	REPLACE

                                 B5' 016E       	.BYTE	SHOWKEYWDS-30066$

                                     016F       30066$:

                                 FF  016F       	.BYTE	$$INDEX

                                 04  0170       	.BYTE	$$CNT

                        44 4E 43 3A  0171       	.ASCII	\:CND\

                                 FE  0175       	.BYTE	$$INDEX

                                 03  0176       	.BYTE	$$CNT

                           44 4D 3A  0177       	.ASCII	\:MD\

                                 FD  017A       	.BYTE	$$INDEX

                                 03  017B       	.BYTE	$$CNT

                           43 4D 3A  017C       	.ASCII	\:MC\

MACRO           - BACKTRANSLATOR FOR MACRO COMMAND               22-AUG-1978 05:19:36   VAX-11 MACRO X0.3-11               Page  12

HJ01                                                                                                                             (3)



                                 FC  017F       	.BYTE	$$INDEX

                                 03  0180       	.BYTE	$$CNT

                           45 4D 3A  0181       	.ASCII	\:ME\

                                 FB  0184       	.BYTE	$$INDEX

                                 04  0185       	.BYTE	$$CNT

                        42 45 4D 3A  0186       	.ASCII	\:MEB\

                                 FA  018A       	.BYTE	$$INDEX

                                 04  018B       	.BYTE	$$CNT

                        44 4E 43 3A  018C       	.ASCII	\:CND\

                                 F9  0190       	.BYTE	$$INDEX

                                 03  0191       	.BYTE	$$CNT

                           44 4D 3A  0192       	.ASCII	\:MD\

                                 F8  0195       	.BYTE	$$INDEX

                                 03  0196       	.BYTE	$$CNT

                           43 4D 3A  0197       	.ASCII	\:MC\

                                 F7  019A       	.BYTE	$$INDEX

                                 03  019B       	.BYTE	$$CNT

                           45 4D 3A  019C       	.ASCII	\:ME\

                                 F6  019F       	.BYTE	$$INDEX

                                 04  01A0       	.BYTE	$$CNT

                        42 45 4D 3A  01A1       	.ASCII	\:MEB\

                                     01A5       30065$:

                                     01A5   220 

                                     01A5   221 MACR_NOSHOW:

                                     01A5   222 	$SETSTRING	</NL>,FLAGS=<BTR$M_RETURN>,POS=<PRIM_OUTPUT-1>

                               0FFC  01A5       	.WORD	SAVE_REG_MASK

                          FE56'  30  01A7       	BSBW	SETSTRING

                                 05  01AA       	.BYTE	$$$FLAGS

                                 00  01AB       	.BYTE	0

                                 FF  01AC       	.BYTE	PRIM_OUTPUT-1

                                 03  01AD       	.BYTE	$$CNT

                           4C 4E 2F  01AE       	.ASCII	\/NL\

                          FF70   31  01B1   223 	BRW	SHOWKEYWDS		;USE COMMON CODE WITH /SHOW:

                                     01B4   224 

                                     01B4   225 MACR_LIBRARY:

                                     01B4   226 	$SETSTRING	</ML>		;APPEND /ML QUALIFIER TO RESULT INPUT

                               0FFC  01B4       	.WORD	SAVE_REG_MASK

                          FE47'  30  01B6       	BSBW	SETSTRING

                                 00  01B9       	.BYTE	$$$FLAGS

                                 00  01BA       	.BYTE	0

                                 03  01BB       	.BYTE	$$CNT

                           4C 4D 2F  01BC       	.ASCII	\/ML\

                                     01BF   227 

                                     01BF   228 MACR_RSX11:

                                     01BF   229 	$SETSTRING	<>,MAC,FLAGS=<BTR$M_FORCE> ;MAKE ASSEMBLER MACRO-11

                               0FFC  01BF       	.WORD	SAVE_REG_MASK

                          FE3C'  30  01C1       	BSBW	SETSTRING

                                 02  01C4       	.BYTE	$$$FLAGS

                                 04  01C5       	.BYTE	PROG_MAC

                                 00  01C6       	.BYTE	$$CNT

                                     01C7   230 

                                     01C7   231 

                                     01C7   232 	.END

MACRO           - BACKTRANSLATOR FOR MACRO COMMAND               22-AUG-1978 05:19:36   VAX-11 MACRO X0.3-11               Page  13

SYMBOL TABLE                                                                                                                     (3)



$$$            = 00000004            CLI$B_QDSTAT     00000003            CLI$M_CONCATINP= 00000002            

$$$.           = 00000001            CLI$B_RQFLGS     00000002            CLI$M_DBGEXCP  = 00010000            

$$$FLAGS       = 00000002            CLI$B_RQINDX     00000001            CLI$M_DBGTRU   = 00000002            

$$$GBL         = 00000000            CLI$B_RQSTAT     00000003            CLI$M_DEBUG    = 00000001            

$$CNT          = 00000000            CLI$B_RQTYPE     00000000            CLI$M_DUMMY    = 00000002            

$$INDEX        = FFFFFFF5            CLI$C_QDBITS     00000014            CLI$M_EXPNAM   = 00000004            

$$T1           = 00000003            CLI$C_QUALDEF    00000014            CLI$M_INDIRECT = 00000010            

$CLI.          = 00000124 R     03   CLI$C_REQDESC    0000001C            CLI$M_KEYVALU  = 00000002            

$CLI..         = 0000013B R     03   CLI$C_WORKAREA   00000080            CLI$M_LASTVAL  = 00000001            

$QUALNUM$      = 00000009            CLI$K_ASCIIVAL = 00000041            CLI$M_MOREINP  = 00000004            

BIT...         = 00000008            CLI$K_CLISERV  = 00000005            CLI$M_MOREVALS = 00000001            

BITMAP           ********   X   03   CLI$K_ENDPRM1  = 00000030            CLI$M_PARMDEF  = 00000008            

BTR$M_DECIMAL  = 00000080            CLI$K_ENDPRM2  = 00000031            CLI$M_PARMPRS  = 00000001            

BTR$M_EXPLICIT = 00000020            CLI$K_ENDPRM3  = 00000032            CLI$M_PARMREQ  = 00000001            

BTR$M_FORCE    = 00000002            CLI$K_ENDPRM4  = 00000033            CLI$M_QDEXPA   = 00000004            

BTR$M_LIST     = 00000040            CLI$K_FILSPEC  = 00000044            CLI$M_QDUSRV   = 00000002            

BTR$M_MULTKEY  = 00000010            CLI$K_GETCMD   = 00000001            CLI$M_QUALEXP  = 00000002            

BTR$M_RETURN   = 00000001            CLI$K_GETOPT   = 00000003            CLI$M_QUALTRU  = 00000001            

BTR$M_TEMPPOS  = 00000004            CLI$K_GETQUAL  = 00000002            CLI$M_TRMVRBLV = 00000300            

BTR$M_VALREQ   = 00000008            CLI$K_INITPRS  = 00000000            CLI$M_VERIFY   = 00000004            

BTR$V_DECIMAL  = 00000007            CLI$K_INPSPEC  = 00000001            CLI$M_VFYINP   = 00000020            

BTR$V_EXPLICIT = 00000005            CLI$K_INPUT1   = 00000010            CLI$Q_QDVALDESC  00000004            

BTR$V_FORCE    = 00000001            CLI$K_INPUT2   = 00000011            CLI$Q_RQDESC     00000008            

BTR$V_LIST     = 00000006            CLI$K_INPUT3   = 00000012            CLI$S_PRITYP   = 00000004            

BTR$V_MULTKEY  = 00000004            CLI$K_INPUT4   = 00000013            CLI$S_SUBTYP   = 00000004            

BTR$V_RETURN   = 00000000            CLI$K_KEYVAL   = 00000043            CLI$S_TRMVRBLV = 00000002            

BTR$V_TEMPPOS  = 00000002            CLI$K_KEYWORD  = 00000042            CLI$V_ABSADR   = 00000001            

BTR$V_VALREQ   = 00000003            CLI$K_MACR_DISA= 00000001            CLI$V_ALLOCCUR = 00000000            

BTR$_AMBIGKEYW = 00688030            CLI$K_MACR_ENAB= 00000002            CLI$V_BATCH    = 00000003            

BTR$_ILLEGOPT  = 00688018            CLI$K_MACR_LIBR= 00000003            CLI$V_CONCATINP= 00000001            

BTR$_IMGFNF    = 00688060            CLI$K_MACR_LIST= 00000004            CLI$V_DBGEXCP  = 00000010            

BTR$_INTFAIL   = 00688048            CLI$K_MACR_NOSH= 00000008            CLI$V_DBGTRU   = 00000001            

BTR$_INVALKEYW = 00688028            CLI$K_MACR_OBJE= 00000005            CLI$V_DEBUG    = 00000000            

BTR$_KEYVALOVR = 00688038            CLI$K_MACR_RSX1= 00000007            CLI$V_DUMMY    = 00000001            

BTR$_MISSNGVAL = 00688008            CLI$K_MACR_SHOW= 00000006            CLI$V_EXPNAM   = 00000002            

BTR$_NOTIMPLEM = 00688020            CLI$K_NUMERVAL = 00000040            CLI$V_INDIRECT = 00000004            

BTR$_OPTVALOVR = 00688050            CLI$K_OUTPUT1  = 00000020            CLI$V_KEYVALU  = 00000001            

BTR$_STRINGOVR = 00688010            CLI$K_OUTPUT2  = 00000021            CLI$V_LASTVAL  = 00000000            

BTR$_TOOMANY   = 00688058            CLI$K_OUTPUT3  = 00000022            CLI$V_MOREINP  = 00000002            

BTR$_UNEXPLIST = 00688040            CLI$K_OUTPUT4  = 00000023            CLI$V_MOREVALS = 00000000            

BTRAN          = 00680000            CLI$K_OUTSPEC  = 00000002            CLI$V_PARMDEF  = 00000003            

CLI$A_ABSACT     00000014            CLI$K_PARDONE  = 00000003            CLI$V_PARMPRS  = 00000000            

CLI$A_ERRACT     00000004            CLI$K_QDBITS     00000014            CLI$V_PARMREQ  = 00000000            

CLI$A_FLSACT     00000010            CLI$K_QUALDEF    00000014            CLI$V_PRITYP   = 00000004            

CLI$A_IMGFILED   00000010            CLI$K_REQDESC    0000001C            CLI$V_QDEXPA   = 00000002            

CLI$A_IMGHDADR   0000000C            CLI$K_UTILOPR  = 00000000            CLI$V_QDUSRV   = 00000001            

CLI$A_PROGXFER   00000004            CLI$K_VALCONV  = 00000004            CLI$V_QUALEXP  = 00000001            

CLI$A_PRSACT     00000010            CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            

CLI$A_QDVALADR   00000008            CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            

CLI$A_QUALST     00000018            CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            

CLI$A_RQADDR     0000000C            CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            

CLI$A_TRUACT     0000000C            CLI$L_RQVALU     0000000C            CLI$V_VFYINP   = 00000005            

CLI$A_UTILSERV   00000008            CLI$L_USRVAL     00000014            CLI$W_QDVALSIZ   00000004            

CLI$B_BITNUM     00000001            CLI$L_WORKAREA   00000000            CLI$W_RQSIZE     00000008            

CLI$B_QDBLKSIZ   00000000            CLI$M_ABSADR   = 00000002            CLI$W_SERVCOD    00000001            

CLI$B_QDCODE     00000001            CLI$M_ALLOCCUR = 00000001            CLIWORKAREA      ********   X   03   

CLI$B_QDFLGS     00000002            CLI$M_BATCH    = 00000008            DISKEYWDS        00000070 R     04   

MACRO           - BACKTRANSLATOR FOR MACRO COMMAND               22-AUG-1978 05:19:36   VAX-11 MACRO X0.3-11               Page  14

SYMBOL TABLE                                                                                                                     (3)



FATAL          = 00000004            QUAL_LIST        000000C8 R     03   

GBL...         = 00000000            QUA_B_DEFVAL     00000002            

GETKEYWORD       ********   X   04   QUA_B_IMAGE      00000005            

HOLDLOC          ********   X   04   QUA_B_INDEX      00000001            

INPUT_ARGLIST    00000000 R     03   QUA_B_OFFSET     00000000            

INPUT_DESC       00000010 R     03   QUA_B_PARMCNT    00000008            

INSERTARG        ********   X   04   QUA_G_CHNGLST    00000006            

LAST_PARAM     = FFFFFFEC            QUA_M_BATDEF   = 00000100            

LIB_QUAL         0000002C R     03   QUA_M_CHNGLIST = 00000001            

LIST_ARGLIST     00000070 R     03   QUA_M_DEFTRUE  = 00000080            

LIST_DESC        00000080 R     03   QUA_M_FILE     = 00000004            

MACR             00000000 RG    04   QUA_M_IMAGE    = 00000400            

MACR_DISABLE     00000065 R     04   QUA_M_INTDEF   = 00000200            

MACR_ENABLE      0000010A R     04   QUA_M_KEYVAL   = 00004000            

MACR_LIBRARY     000001B4 R     04   QUA_M_LOCALKEY = 00000002            

MACR_NOSHOW      000001A5 R     04   QUA_M_NEG      = 00000040            

MACR_RSX11       000001BF R     04   QUA_M_ONEVAL   = 00002000            

MACR_SHOW        00000118 R     04   QUA_M_OUTPUT   = 00000800            

NONE           = 00000000            QUA_M_PARM     = 00000010            

OBJECT_ARGLIST   00000044 R     03   QUA_M_VAL      = 00000020            

OBJECT_DESC      00000054 R     03   QUA_M_VALREQ   = 00001000            

PARAMLOC         ********   X   04   QUA_M_VERB     = 00000008            

PRIM_INPUT     = FFFFFFF6            QUA_S_MAXPARM  = 00000004            

PRIM_OUTPUT    = 00000000            QUA_S_MINPARM  = 00000004            

PROG_BP2       = 0000000C            QUA_V_BATDEF   = 00000008            

PROG_CBL       = 00000008            QUA_V_CHNGLIST = 00000000            

PROG_CNT       = 0000000F            QUA_V_DEFTRUE  = 00000007            

PROG_DIF       = 0000000F            QUA_V_FILE     = 00000002            

PROG_DMP       = 00000007            QUA_V_IMAGE    = 0000000A            

PROG_F4V       = 00000002            QUA_V_INTDEF   = 00000009            

PROG_LBR       = 0000000B            QUA_V_KEYVAL   = 0000000E            

PROG_LIB       = 0000000A            QUA_V_LOCALKEY = 00000001            

PROG_MAC       = 00000004            QUA_V_MAXPARM  = 00000004            

PROG_MAR       = 00000003            QUA_V_MINPARM  = 00000000            

PROG_PIP       = 00000001            QUA_V_NEG      = 00000006            

PROG_SLP       = 00000006            QUA_V_ONEVAL   = 0000000D            

PROG_SOS       = 00000005            QUA_V_OUTPUT   = 0000000B            

PROG_SRT       = 0000000E            QUA_V_PARM     = 00000004            

PROG_TKB       = 00000009            QUA_V_VAL      = 00000005            

PROG_UFD       = 0000000D            QUA_V_VALREQ   = 0000000C            

PRO_B_FLAGS      00000001            QUA_V_VERB     = 00000003            

PRO_B_PROMPT     00000000            QUA_W_FLAGS      00000003            

PRO_K_LENGTH     00000002            QUA_W_PROMPT     00000009            

PRO_M_CONCAT   = 00000001            QUA_W_QUALIST    00000006            

PRO_M_IMPCAT   = 00000002            REPLACE          ********   X   04   

PRO_M_LIST     = 00000004            SAVE_REG_MASK  = 00000FFC            

PRO_M_OPTION   = 00000008            SETSTRING        ********   X   04   

PRO_M_REQ      = 00000010            SHOWKEYWDS       00000124 R     04   

PRO_M_STRING   = 00000020            STICKY_FLAG      ********   X   04   

PRO_V_CONCAT   = 00000000            

PRO_V_IMPCAT   = 00000001            

PRO_V_LIST     = 00000002            

PRO_V_OPTION   = 00000003            

PRO_V_REQ      = 00000004            

PRO_V_STRING   = 00000005            

QUAL_ARGLIST     0000009C R     03   

QUAL_DESC        000000AC R     03   

MACRO           - BACKTRANSLATOR FOR MACRO COMMAND               22-AUG-1978 05:19:36   VAX-11 MACRO X0.3-11               Page  15

PROGRAM SECTION SYNOPSIS                                                                                                         (3)







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$            00000080      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

IMPURE_          0000013C      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

PURE_            000001C7      04     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

12496. BYTES LEFT IN FREE MEMORY POOL.

1718. BYTES OF RECLAIMED MEMORY.

OBJ$:MACRCMD,LIS$:MACRCMD/-SP/LI:MEB=EXECML$/ML,LIB$:B/ML,SRC$:MACRCMD

61 MLB DIR RDS - 646 GETS TO DEFINE 36 MACROS. 114 INTER. FILE WRITES. 

