SET             PROTECTION - BACKTRANSLATOR FOR COMMAND          22-AUG-1978 05:25:12   VAX-11 MACRO X0.3-11               Page   1

HJ                                                                                                                               (1)



                                     0000     1 	.TITLE	SET PROTECTION - BACKTRANSLATOR FOR COMMAND

                                     0000     2 	.IDENT	/HJ/

                                     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.	DECEMBER 1977

                                     0000    24 ;

                                     0000    25 ; BACKTRANSLATOR SET PROTECTION FILE

                                     0000    26 ;

SET             PROTECTION - BACKTRANSLATOR FOR COMMAND          22-AUG-1978 05:25:12   VAX-11 MACRO X0.3-11               Page   2

HJ                                                                                                                               (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:

SET             PROTECTION - BACKTRANSLATOR FOR COMMAND          22-AUG-1978 05:25:12   VAX-11 MACRO X0.3-11               Page   3

HJ                                                                                                                               (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 	$CLIDEFQUALSET			;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

SET             PROTECTION - BACKTRANSLATOR FOR COMMAND          22-AUG-1978 05:25:12   VAX-11 MACRO X0.3-11               Page   4

HJ                                                                                                                               (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 		RQFLGS=CLI$V_PARMREQ,-	;PRIMARY INPUT IS REQUIRED

                                     0010    61 		QUALST=INPUT_QUALS	;QUALIFIERS NEEDED ON INPUTS

                           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	<INPUT_QUALS-$CLI.>

                                     002C    62 

                                     002C    63 INPUT_QUALS:

                                     002C    64 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     002C    65 		QDCODE=CLI$K_STPR_PROT,-;/PROTECTION:(GROUP:RWED,SYSTEM:....)

                                     002C    66 		TRUACT=PROT_PROTECTION	;CALL QUALIFIER HANDLER

                           00000040  002C       	.BLKB	CLI$C_QUALDEF

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

                                 17' 002C       	  .BYTE	30401$-.

                                 02  002D       	  .BYTE	CLI$K_STPR_PROT

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

                           FFFFFFF9' 0038       	    .LONG	<PROT_PROTECTION-$CLI.>

                           00000040  003C       . = $CLI..

                                 00  0040       	.BYTE	0

                                 00  0041       	.BYTE	0

                                 00  0042       	.BYTE	0

                                     0043       30401$:

                                     0043    67 

SET             PROTECTION - BACKTRANSLATOR FOR COMMAND          22-AUG-1978 05:25:12   VAX-11 MACRO X0.3-11               Page   5

HJ                                                                                                                               (2)



                                     0043    68 	$CLIQUALDESC	END_LIST	;TERMINATE THE QUALIFIER LIST

                                 00  0043       	.BYTE	0

                                     0044    69 

                                     0044    70 QUAL_ARGLIST:

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

                                     0044    72 		QUAL_DESC,-		;FOR COMMAND QUALIFIERS

                                     0044    73 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     0044    74 		BITMAP			;BIT ARRAY

                           00000003  0044       		.LONG	3

                           00000054' 0048       		.LONG	QUAL_DESC

                           00000000' 004C       		.LONG	CLIWORKAREA

                           00000000' 0050       		.LONG	BITMAP

                                     0054    75 

                                     0054    76 QUAL_DESC:

                                     0054    77 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

                                     0054    78 		RQTYPE=CLI$K_GETQUAL,-	;FOR COMMAND QUALIFIERS

                                     0054    79 		QUALST=QUAL_LIST	;ADDRESS OF THE QUALIFIERS

                           00000070  0054       	.BLKB	CLI$C_REQDESC

                           00000054  0070       	. = $CLI.+CLI$B_RQTYPE

                                 02  0054       	  .BYTE	CLI$K_GETQUAL

                           0000006C  0055       	. = $CLI.+CLI$A_QUALST

                           0000001C' 006C       	    .LONG	<QUAL_LIST-$CLI.>

                                     0070    80 

                                     0070    81 

                                     0070    82 QUAL_LIST:

                                     0070    83 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0070    84 		QDCODE=CLI$K_SET_PROT,- ;/PROTECTION:(GROUP:RWED,SYSTEM:....)

                                     0070    85 		TRUACT=PROT_PROTECTION	;CALL QUALIFIER HANDLER

                           00000084  0070       	.BLKB	CLI$C_QUALDEF

                           00000070  0084       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0070       	  .BYTE	30406$-.

                                 0B  0071       	  .BYTE	CLI$K_SET_PROT

                           0000007C  0072       	. = $CLI.+CLI$A_TRUACT

                           FFFFFFB5' 007C       	    .LONG	<PROT_PROTECTION-$CLI.>

                           00000084  0080       . = $CLI..

                                 00  0084       	.BYTE	0

                                 00  0085       	.BYTE	0

                                 00  0086       	.BYTE	0

                                     0087       30406$:

                                     0087    86 

                                     0087    87 	$CLIQUALDESC	END_LIST	;TERMINATE THE QUALIFIER LIST

                                 00  0087       	.BYTE	0

                                     0088    88 

                                 00  0088    89 SUBFLD:	.BYTE	0			;FLAG WORD, 1 INDICATES PROTECTION

                                     0089    90 					;SUBOPTION ALREADY SPECIFIED

SET             PROTECTION - BACKTRANSLATOR FOR COMMAND          22-AUG-1978 05:25:12   VAX-11 MACRO X0.3-11               Page   6

HJ                                                                                                                               (3)



                                     0089    92 ;	.SBTTL SET PROTECTION

                                     0089    93 ;+

                                     0089    94 ; BACKTRANSLATOR SET PROTECTION

                                     0089    95 ;

                                     0089    96 ; CONVERTS DCL COMMAND TO COMPATIBILITY MODE IMAGE COMMAND

                                     0089    97 ;

                                     0089    98 ;

                                     0089    99 ; INPUTS:

                                     0089   100 ;  THE INPUTS ARE RETURNED FROM THE DCL RESULT PARSER AS RESPONSES

                                     0089   101 ;  TO THE VARIOUS REQUEST DESCRIPTORS THAT ARE GIVEN TO IT.

                                     0089   102 ;

                                     0089   103 ;

                                     0089   104 ; OUTPUTS:

                                     0089   105 ;  THE OUTPUT CONSISTS OF TWO STRINGS OR AN ERROR MESSAGE AND ABORT.

                                     0089   106 ;  THE CALLER OPENS THE IMAGE AND INVOKES THE COMPATIBILITY EMULATOR

                                     0089   107 ;  IF NO ERROR OCCURS.

                                     0089   108 ;

                                     0089   109 ;  1- FILENAME STRING OF COMPATIBILITY MODE IMAGE TO BE ACTIVATED.

                                     0089   110 ;

                                     0089   111 ;  2- COMMAND LINE TO BE GIVEN TO THE IMAGE.

                                     0089   112 ;

                                     0089   113 ;-

                                     0089   114 

                                     0089   115 	PURE

                                 00000000       	.PSECT	PURE_	BYTE,RD,EXE,NOWRT

                                     0000   116 

                     0088'CF     94  0000   117 SET::	CLRB	W^SUBFLD		;INITIALIZE FLAG BYTE

                                     0004   118 	$SETSTRING	</PR>,TYPE=INLINE ;INSERT PROTECTION SWITCH

                          FFF9'  30  0004       	BSBW	SETSTRING

                                 01  0007       	.BYTE	$$$FLAGS

                                 00  0008       	.BYTE	0

                                 03  0009       	.BYTE	$$CNT

                           52 50 2F  000A       	.ASCII	\/PR\

                                 FA  000D   119 	CALLG	W^INPUT_ARGLIST,-	;PROCESS PRIMARY INPUT

         08 BC       0000'CF         000E   120 		@CLI$A_UTILSERV(AP)

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

                          FFE5'  30  0018   122 	BSBW	INSERTARG		;SAVE IT AS PRIMARY OUTPUT

                                 FA  001B   123 	CALLG	W^QUAL_ARGLIST,-	;PROCESS COMMAND QUALIFIER PROTECTION

         08 BC       0044'CF         001C   124 		@CLI$A_UTILSERV(AP)

                                     0021   125 	DEFPROG	PIP			;RETURN DEFAULT PROGRAM TO RUN

            50            01     D0  0021       	MOVL	#PROG_PIP,R0

                                 05  0024   126 	RSB				;RETURN TO GENERATE COMMAND TEXT

                                     0025   127 

                                     0025   128 

                                     0025   129 PROT_PROTECTION:

                                     0025   130 	$SETSTRING	<>,FLAGS=<BTR$M_RETURN> ;SET UP FOR PROTECTION OPTIONS

                               0FFC  0025       	.WORD	SAVE_REG_MASK

                          FFD6'  30  0027       	BSBW	SETSTRING

                                 01  002A       	.BYTE	$$$FLAGS

                                 00  002B       	.BYTE	0

                                 00  002C       	.BYTE	$$CNT

                                     002D   131 10$:	$GETKEYWORD		LIST=  <GROUP,-	;HANDLE KEYWORD LIST ON /PROTECT

                                     002D   132 				OWNER,-

                                     002D   133 				WORLD,-

                                     002D   134 				SYSTEM>

                          FFD0'  30  002D       	BSBW	GETKEYWORD

                                 1A' 0030       	.BYTE	30411$-30412$

SET             PROTECTION - BACKTRANSLATOR FOR COMMAND          22-AUG-1978 05:25:12   VAX-11 MACRO X0.3-11               Page   7

HJ                                                                                                                               (3)



                                     0031       30412$:

                                 05' 0031       	.BYTE	$$CNT

                     50 55 4F 52 47  0032       	.ASCII	\GROUP\

                                 05' 0037       	.BYTE	$$CNT

                     52 45 4E 57 4F  0038       	.ASCII	\OWNER\

                                 05' 003D       	.BYTE	$$CNT

                     44 4C 52 4F 57  003E       	.ASCII	\WORLD\

                                 06' 0043       	.BYTE	$$CNT

                  4D 45 54 53 59 53  0044       	.ASCII	\SYSTEM\

                                 00  004A       	.BYTE	0

                                     004B       30411$:

                          34     13  004B   135 	BEQL	20$			;BRANCH IF NO VALUES TO PROCESS

       0088'CF            50     E2  004D   136 	BBSS	R0,W^SUBFLD,30$		;BRANCH IF OPTION ALREADY PROCESSED

                          2F         0052       

                                     0053   137 	$REPLACE	</GR,/OW,/WO,/SY> ;SET OPTION TEXT AND RETURN

                          FFAA'  30  0053       	BSBW	REPLACE

                                 14' 0056       	.BYTE	30413$-30414$

                                     0057       30414$:

                                 FF  0057       	.BYTE	$$INDEX

                                 03  0058       	.BYTE	$$CNT

                           52 47 2F  0059       	.ASCII	\/GR\

                                 FE  005C       	.BYTE	$$INDEX

                                 03  005D       	.BYTE	$$CNT

                           57 4F 2F  005E       	.ASCII	\/OW\

                                 FD  0061       	.BYTE	$$INDEX

                                 03  0062       	.BYTE	$$CNT

                           4F 57 2F  0063       	.ASCII	\/WO\

                                 FC  0066       	.BYTE	$$INDEX

                                 03  0067       	.BYTE	$$CNT

                           59 53 2F  0068       	.ASCII	\/SY\

                                     006B       30413$:

                          FF92'  30  006B   138 	BSBW	GETSUBKEYVAL		;GO PICK UP A SUB-VALUE

            BC            50     E9  006E   139 	BLBC	R0,10$			;BRANCH IF THERE IS NONE

            57            3A     90  0071   140 	MOVB	#^A\:\,R7		;PRECEDE VALUE WITH A ':'

                          FF89'  30  0074   141 	BSBW	ADDCHAR			;PUT THE CHARACTER IN

            59       0008'CF     7D  0077   142 	MOVQ	W^CLI$Q_RQDESC+VALUE_DESC,R9 ;GET SIZE AND ADDRESS OF VALUE

                          FF81'  30  007C   143 	BSBW	ADDSTR			;PUT IT INTO THE RESULT OPTION

                          AC     11  007F   144 	BRB	10$			;LOOP THROUGH THE SUBOPTIONS

                                 04  0081   145 20$:	RET				;RETURN TO CLI

                                     0082   146 

                          FF7B'  30  0082   147 30$:	BSBW	GETSUBKEYVAL		;SWALLOW SUBVALUE IF THERE IS ONE

                          A6     11  0085   148 	BRB	10$			;CONTINUE KEYWORD SCAN

                                     0087   149 

                                     0087   150 	.END

SET             PROTECTION - BACKTRANSLATOR FOR COMMAND          22-AUG-1978 05:25:12   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (3)



$$$            = 00000004            CLI$B_QDCODE     00000001            CLI$K_STAC_DISA= 00000001            

$$$.           = 00000001            CLI$B_QDFLGS     00000002            CLI$K_STAC_ENAB= 00000002            

$$$FLAGS       = 00000001            CLI$B_QDSTAT     00000003            CLI$K_STAC_NEW_= 00000003            

$$$GBL         = 00000000            CLI$B_RQFLGS     00000002            CLI$K_STCR_026 = 00000001            

$$CNT          = 00000003            CLI$B_RQINDX     00000001            CLI$K_STCR_029 = 00000002            

$$INDEX        = FFFFFFFB            CLI$B_RQSTAT     00000003            CLI$K_STDV_ERRO= 00000002            

$$T1           = 00000003            CLI$B_RQTYPE     00000000            CLI$K_STDV_SPOO= 00000001            

$CLI.          = 00000070 R     03   CLI$C_QDBITS     00000014            CLI$K_STLG_INTE= 00000001            

$CLI..         = 00000087 R     03   CLI$C_QUALDEF    00000014            CLI$K_STLP_CR  = 00000001            

$QUALNUM$      = 0000000B            CLI$C_REQDESC    0000001C            CLI$K_STLP_FF  = 00000002            

ADDCHAR          ********   X   04   CLI$C_WORKAREA   00000080            CLI$K_STLP_LA11= 00000005            

ADDSTR           ********   X   04   CLI$K_ASCIIVAL = 00000041            CLI$K_STLP_LA18= 00000006            

BIT...         = 00000008            CLI$K_CLISERV  = 00000005            CLI$K_STLP_LOWE= 00000004            

BITMAP           ********   X   03   CLI$K_ENDPRM1  = 00000030            CLI$K_STLP_LP11= 00000007            

BTR$M_DECIMAL  = 00000080            CLI$K_ENDPRM2  = 00000031            CLI$K_STLP_PAGE= 00000008            

BTR$M_EXPLICIT = 00000020            CLI$K_ENDPRM3  = 00000032            CLI$K_STLP_UNKN= 00000009            

BTR$M_FORCE    = 00000002            CLI$K_ENDPRM4  = 00000033            CLI$K_STLP_UPPE= 00000003            

BTR$M_LIST     = 00000040            CLI$K_FILSPEC  = 00000044            CLI$K_STLP_WIDT= 0000000A            

BTR$M_MULTKEY  = 00000010            CLI$K_GETCMD   = 00000001            CLI$K_STMT_DENS= 00000001            

BTR$M_RETURN   = 00000001            CLI$K_GETOPT   = 00000003            CLI$K_STMT_REWI= 00000002            

BTR$M_TEMPPOS  = 00000004            CLI$K_GETQUAL  = 00000002            CLI$K_STMT_UNLO= 00000003            

BTR$M_VALREQ   = 00000008            CLI$K_INITPRS  = 00000000            CLI$K_STPC_IDEN= 00000001            

BTR$V_DECIMAL  = 00000007            CLI$K_INPSPEC  = 00000001            CLI$K_STPC_PRIO= 00000002            

BTR$V_EXPLICIT = 00000005            CLI$K_INPUT1   = 00000010            CLI$K_STPC_RESO= 00000003            

BTR$V_FORCE    = 00000001            CLI$K_INPUT2   = 00000011            CLI$K_STPC_SWAP= 00000004            

BTR$V_LIST     = 00000006            CLI$K_INPUT3   = 00000012            CLI$K_STPR_DEFA= 00000001            

BTR$V_MULTKEY  = 00000004            CLI$K_INPUT4   = 00000013            CLI$K_STPR_DEVI= 00000003            

BTR$V_RETURN   = 00000000            CLI$K_KEYVAL   = 00000043            CLI$K_STPR_OWNE= 00000004            

BTR$V_TEMPPOS  = 00000002            CLI$K_KEYWORD  = 00000042            CLI$K_STPR_PROT= 00000002            

BTR$V_VALREQ   = 00000003            CLI$K_NUMERVAL = 00000040            CLI$K_STQE_AFTE= 00000001            

BTR$_AMBIGKEYW = 00688030            CLI$K_OUTPUT1  = 00000020            CLI$K_STQE_ENTR= 00000003            

BTR$_ILLEGOPT  = 00688018            CLI$K_OUTPUT2  = 00000021            CLI$K_STQE_FORM= 00000004            

BTR$_IMGFNF    = 00688060            CLI$K_OUTPUT3  = 00000022            CLI$K_STQE_HOLD= 00000005            

BTR$_INTFAIL   = 00688048            CLI$K_OUTPUT4  = 00000023            CLI$K_STQE_JOB_= 00000002            

BTR$_INVALKEYW = 00688028            CLI$K_OUTSPEC  = 00000002            CLI$K_STQE_LOWE= 00000006            

BTR$_KEYVALOVR = 00688038            CLI$K_PARDONE  = 00000003            CLI$K_STQE_NAME= 00000007            

BTR$_MISSNGVAL = 00688008            CLI$K_QDBITS     00000014            CLI$K_STQE_PRIO= 00000008            

BTR$_NOTIMPLEM = 00688020            CLI$K_QUALDEF    00000014            CLI$K_STQE_RELE= 00000009            

BTR$_OPTVALOVR = 00688050            CLI$K_REQDESC    0000001C            CLI$K_STRM_BLOC= 00000001            

BTR$_STRINGOVR = 00688010            CLI$K_SET_ACCO = 00000001            CLI$K_STRM_BUFF= 00000002            

BTR$_TOOMANY   = 00688058            CLI$K_SET_CARD = 00000002            CLI$K_STRM_DISK= 00000003            

BTR$_UNEXPLIST = 00688040            CLI$K_SET_CONT = 00000012            CLI$K_STRM_HASH= 00000006            

BTRAN          = 00680000            CLI$K_SET_DEFA = 00000004            CLI$K_STRM_INDE= 00000007            

CLI$A_ABSACT     00000014            CLI$K_SET_DEVI = 00000003            CLI$K_STRM_MAGT= 00000004            

CLI$A_ERRACT     00000004            CLI$K_SET_LOGI = 00000005            CLI$K_STRM_RELA= 00000008            

CLI$A_FLSACT     00000010            CLI$K_SET_MAGT = 00000006            CLI$K_STRM_SEQU= 00000009            

CLI$A_IMGFILED   00000010            CLI$K_SET_ON   = 00000007            CLI$K_STRM_SYST= 0000000A            

CLI$A_IMGHDADR   0000000C            CLI$K_SET_PASS = 00000008            CLI$K_STRM_UNIT= 00000005            

CLI$A_PROGXFER   00000004            CLI$K_SET_PRIN = 00000009            CLI$K_STTT_BROA= 00000001            

CLI$A_PRSACT     00000010            CLI$K_SET_PROC = 0000000A            CLI$K_STTT_CRFI= 00000002            

CLI$A_QDVALADR   00000008            CLI$K_SET_PROT = 0000000B            CLI$K_STTT_ECHO= 00000003            

CLI$A_QUALST     00000018            CLI$K_SET_QUEU = 0000000C            CLI$K_STTT_EIGH= 00000004            

CLI$A_RQADDR     0000000C            CLI$K_SET_RMS_ = 00000011            CLI$K_STTT_ESCA= 00000005            

CLI$A_TRUACT     0000000C            CLI$K_SET_TERM = 0000000D            CLI$K_STTT_HARD= 00000006            

CLI$A_UTILSERV   00000008            CLI$K_SET_UIC  = 0000000E            CLI$K_STTT_HOLD= 00000007            

CLI$B_BITNUM     00000001            CLI$K_SET_VERI = 0000000F            CLI$K_STTT_HOST= 00000008            

CLI$B_QDBLKSIZ   00000000            CLI$K_SET_WORK = 00000010            CLI$K_STTT_INTE= 00000009            

SET             PROTECTION - BACKTRANSLATOR FOR COMMAND          22-AUG-1978 05:25:12   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (3)



CLI$K_STTT_LA36= 0000000A            CLI$M_VFYINP   = 00000020            PROG_MAR       = 00000003            

CLI$K_STTT_LFFI= 0000000B            CLI$Q_QDVALDESC  00000004            PROG_PIP       = 00000001            

CLI$K_STTT_LOCA= 0000000C            CLI$Q_RQDESC     00000008            PROG_SLP       = 00000006            

CLI$K_STTT_LOWE= 0000000D            CLI$S_PRITYP   = 00000004            PROG_SOS       = 00000005            

CLI$K_STTT_PAGE= 0000000E            CLI$S_SUBTYP   = 00000004            PROG_SRT       = 0000000E            

CLI$K_STTT_PARI= 0000001E            CLI$S_TRMVRBLV = 00000002            PROG_TKB       = 00000009            

CLI$K_STTT_PASS= 0000000F            CLI$V_ABSADR   = 00000001            PROG_UFD       = 0000000D            

CLI$K_STTT_PERM= 00000020            CLI$V_ALLOCCUR = 00000000            PROT_PROTECTION  00000025 R     04   

CLI$K_STTT_READ= 0000001F            CLI$V_BATCH    = 00000003            PRO_B_FLAGS      00000001            

CLI$K_STTT_REMO= 00000010            CLI$V_CONCATINP= 00000001            PRO_B_PROMPT     00000000            

CLI$K_STTT_SCOP= 00000011            CLI$V_DBGEXCP  = 00000010            PRO_K_LENGTH     00000002            

CLI$K_STTT_SCRI= 00000012            CLI$V_DBGTRU   = 00000001            PRO_M_CONCAT   = 00000001            

CLI$K_STTT_SPEE= 00000013            CLI$V_DEBUG    = 00000000            PRO_M_IMPCAT   = 00000002            

CLI$K_STTT_TAB = 00000014            CLI$V_DUMMY    = 00000001            PRO_M_LIST     = 00000004            

CLI$K_STTT_TTSY= 00000015            CLI$V_EXPNAM   = 00000002            PRO_M_OPTION   = 00000008            

CLI$K_STTT_TYPE= 00000016            CLI$V_INDIRECT = 00000004            PRO_M_REQ      = 00000010            

CLI$K_STTT_UNKN= 00000017            CLI$V_KEYVALU  = 00000001            PRO_M_STRING   = 00000020            

CLI$K_STTT_UPPE= 00000018            CLI$V_LASTVAL  = 00000000            PRO_V_CONCAT   = 00000000            

CLI$K_STTT_VT05= 00000019            CLI$V_MOREINP  = 00000002            PRO_V_IMPCAT   = 00000001            

CLI$K_STTT_VT52= 0000001A            CLI$V_MOREVALS = 00000000            PRO_V_LIST     = 00000002            

CLI$K_STTT_VT55= 0000001B            CLI$V_PARMDEF  = 00000003            PRO_V_OPTION   = 00000003            

CLI$K_STTT_WIDT= 0000001C            CLI$V_PARMPRS  = 00000000            PRO_V_REQ      = 00000004            

CLI$K_STTT_WRAP= 0000001D            CLI$V_PARMREQ  = 00000000            PRO_V_STRING   = 00000005            

CLI$K_STWR_LIMI= 00000001            CLI$V_PRITYP   = 00000004            QUAL_ARGLIST     00000044 R     03   

CLI$K_STWR_QUOT= 00000002            CLI$V_QDEXPA   = 00000002            QUAL_DESC        00000054 R     03   

CLI$K_UTILOPR  = 00000000            CLI$V_QDUSRV   = 00000001            QUAL_LIST        00000070 R     03   

CLI$K_VALCONV  = 00000004            CLI$V_QUALEXP  = 00000001            QUA_B_DEFVAL     00000002            

CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            QUA_B_IMAGE      00000005            

CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            QUA_B_INDEX      00000001            

CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            QUA_B_OFFSET     00000000            

CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            QUA_B_PARMCNT    00000008            

CLI$L_RQVALU     0000000C            CLI$V_VFYINP   = 00000005            QUA_G_CHNGLST    00000006            

CLI$L_USRVAL     00000014            CLI$W_QDVALSIZ   00000004            QUA_M_BATDEF   = 00000100            

CLI$L_WORKAREA   00000000            CLI$W_RQSIZE     00000008            QUA_M_CHNGLIST = 00000001            

CLI$M_ABSADR   = 00000002            CLI$W_SERVCOD    00000001            QUA_M_DEFTRUE  = 00000080            

CLI$M_ALLOCCUR = 00000001            CLIWORKAREA      ********   X   03   QUA_M_FILE     = 00000004            

CLI$M_BATCH    = 00000008            FATAL          = 00000004            QUA_M_IMAGE    = 00000400            

CLI$M_CONCATINP= 00000002            GBL...         = 00000000            QUA_M_INTDEF   = 00000200            

CLI$M_DBGEXCP  = 00010000            GETKEYWORD       ********   X   04   QUA_M_KEYVAL   = 00004000            

CLI$M_DBGTRU   = 00000002            GETSUBKEYVAL     ********   X   04   QUA_M_LOCALKEY = 00000002            

CLI$M_DEBUG    = 00000001            INPUT_ARGLIST    00000000 R     03   QUA_M_NEG      = 00000040            

CLI$M_DUMMY    = 00000002            INPUT_DESC       00000010 R     03   QUA_M_ONEVAL   = 00002000            

CLI$M_EXPNAM   = 00000004            INPUT_QUALS      0000002C R     03   QUA_M_OUTPUT   = 00000800            

CLI$M_INDIRECT = 00000010            INSERTARG        ********   X   04   QUA_M_PARM     = 00000010            

CLI$M_KEYVALU  = 00000002            LAST_PARAM     = FFFFFFEC            QUA_M_VAL      = 00000020            

CLI$M_LASTVAL  = 00000001            NONE           = 00000000            QUA_M_VALREQ   = 00001000            

CLI$M_MOREINP  = 00000004            PRIM_INPUT     = FFFFFFF6            QUA_M_VERB     = 00000008            

CLI$M_MOREVALS = 00000001            PRIM_OUTPUT    = 00000000            QUA_S_MAXPARM  = 00000004            

CLI$M_PARMDEF  = 00000008            PROG_BP2       = 0000000C            QUA_S_MINPARM  = 00000004            

CLI$M_PARMPRS  = 00000001            PROG_CBL       = 00000008            QUA_V_BATDEF   = 00000008            

CLI$M_PARMREQ  = 00000001            PROG_CNT       = 0000000F            QUA_V_CHNGLIST = 00000000            

CLI$M_QDEXPA   = 00000004            PROG_DIF       = 0000000F            QUA_V_DEFTRUE  = 00000007            

CLI$M_QDUSRV   = 00000002            PROG_DMP       = 00000007            QUA_V_FILE     = 00000002            

CLI$M_QUALEXP  = 00000002            PROG_F4V       = 00000002            QUA_V_IMAGE    = 0000000A            

CLI$M_QUALTRU  = 00000001            PROG_LBR       = 0000000B            QUA_V_INTDEF   = 00000009            

CLI$M_TRMVRBLV = 00000300            PROG_LIB       = 0000000A            QUA_V_KEYVAL   = 0000000E            

CLI$M_VERIFY   = 00000004            PROG_MAC       = 00000004            QUA_V_LOCALKEY = 00000001            

SET             PROTECTION - BACKTRANSLATOR FOR COMMAND          22-AUG-1978 05:25:12   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (3)



QUA_V_MAXPARM  = 00000004            

QUA_V_MINPARM  = 00000000            

QUA_V_NEG      = 00000006            

QUA_V_ONEVAL   = 0000000D            

QUA_V_OUTPUT   = 0000000B            

QUA_V_PARM     = 00000004            

QUA_V_VAL      = 00000005            

QUA_V_VALREQ   = 0000000C            

QUA_V_VERB     = 00000003            

QUA_W_FLAGS      00000003            

QUA_W_PROMPT     00000009            

QUA_W_QUALIST    00000006            

REPLACE          ********   X   04   

SAVE_REG_MASK  = 00000FFC            

SET              00000000 RG    04   

SETSTRING        ********   X   04   

SUBFLD           00000088 R     03   

VALUE_DESC       ********   X   04   





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_          00000089      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

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





THERE WERE NO ERRORS OR WARNINGS.

7402. BYTES LEFT IN FREE MEMORY POOL.

4748. BYTES OF RECLAIMED MEMORY.

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

67 MLB DIR RDS - 763 GETS TO DEFINE 36 MACROS. 109 INTER. FILE WRITES. 

