COPY            - BACKTRANSLATOR FOR COPY COMMAND                22-AUG-1978 05:21:38   VAX-11 MACRO X0.3-11               Page   1

HJ                                                                                                                               (1)



                                     0000     1 	.TITLE	COPY - BACKTRANSLATOR FOR COPY 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.	SEPTEMBER 1977

                                     0000    24 ;

                                     0000    25 ; BACKTRANSLATOR COPY

                                     0000    26 ;

COPY            - BACKTRANSLATOR FOR COPY COMMAND                22-AUG-1978 05:21:38   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:

COPY            - BACKTRANSLATOR FOR COPY COMMAND                22-AUG-1978 05:21:38   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 	$CLIDEFQUALCOPY			;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

COPY            - BACKTRANSLATOR FOR COPY COMMAND                22-AUG-1978 05:21:38   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 		QUALST=INQUAL_LIST,-	;INDICATE ACCEPTABLE OPTIONS

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

                                     002C    62 

                                     002C    63 INQUAL_LIST:

                                     002C    64 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     002C    65 		QDCODE=CLI$K_COPY_OVER,-;/OVERLAY

                                     002C    66 		TRUACT=COPY_OVERLAY	;CALL QUALIFIER HANDLER

                           00000040  002C       	.BLKB	CLI$C_QUALDEF

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

                                 17' 002C       	  .BYTE	30085$-.

                                 0A  002D       	  .BYTE	CLI$K_COPY_OVER

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

                           0000003D' 0038       	    .LONG	<COPY_OVERLAY-$CLI.>

                           00000040  003C       . = $CLI..

                                 00  0040       	.BYTE	0

                                 00  0041       	.BYTE	0

                                 00  0042       	.BYTE	0

                                     0043       30085$:

                                     0043    67 

COPY            - BACKTRANSLATOR FOR COPY COMMAND                22-AUG-1978 05:21:38   VAX-11 MACRO X0.3-11               Page   5

HJ                                                                                                                               (2)



                                     0043    68 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0043    69 		QDCODE=CLI$K_COPY_REPL,-;/REPLACE

                                     0043    70 		TRUACT=COPY_REPLACE	;CALL QUALIFIER HANDLER

                           00000057  0043       	.BLKB	CLI$C_QUALDEF

                           00000043  0057       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0043       	  .BYTE	30089$-.

                                 0D  0044       	  .BYTE	CLI$K_COPY_REPL

                           0000004F  0045       	. = $CLI.+CLI$A_TRUACT

                           00000032' 004F       	    .LONG	<COPY_REPLACE-$CLI.>

                           00000057  0053       . = $CLI..

                                 00  0057       	.BYTE	0

                                 00  0058       	.BYTE	0

                                 00  0059       	.BYTE	0

                                     005A       30089$:

                                     005A    71 

                                     005A    72 ;	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     005A    73 ;		QDCODE=CLI$K_COPY_RT11,-;/RT11

                                     005A    74 ;		TRUACT=COPY_RT11	;CALL QUALIFIER HANDLER

                                     005A    75 ;

                                     005A    76 ;	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     005A    77 ;		QDCODE=CLI$K_COPY_DOS1,-;/DOS11

                                     005A    78 ;		TRUACT=COPY_DOS11	;CALL QUALIFIER HANDLER

                                     005A    79 ;

                                     005A    80 

                                     005A    81 	$CLIQUALDESC	END_LIST	;TERMINATE THE QUALIFIER LIST

                                 00  005A       	.BYTE	0

                                     005B    82 

                                     005B    83 OUTPUT_ARGLIST:

                                     005B    84 	$ARGLST	3,-			;CREATE AN ARGUMENT LIST

                                     005B    85 		OUTPUT_DESC,-		;FOR FIRST OUTPUT PARAMETER

                                     005B    86 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     005B    87 		BITMAP			;BIT ARRAY

                           00000003  005B       		.LONG	3

                           0000006B' 005F       		.LONG	OUTPUT_DESC

                           00000000' 0063       		.LONG	CLIWORKAREA

                           00000000' 0067       		.LONG	BITMAP

                                     006B    88 

                                     006B    89 OUTPUT_DESC:

                                     006B    90 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

                                     006B    91 		RQTYPE=CLI$K_OUTPUT1,-	;FOR PRIMARY OUTPUT

                                     006B    92 		QUALST=OUTQUAL_LIST,-	;INDICATE ACCEPTABLE OPTIONS

                                     006B    93 		RQFLGS=CLI$V_PARMREQ	;PRIMARY OUTPUT IS REQUIRED

                           00000087  006B       	.BLKB	CLI$C_REQDESC

                           0000006B  0087       	. = $CLI.+CLI$B_RQTYPE

                                 20  006B       	  .BYTE	CLI$K_OUTPUT1

                           0000006D  006C       	. = $CLI.+CLI$B_RQFLGS

                                 01  006D       	.BYTE	$$$.

                           00000083  006E       	. = $CLI.+CLI$A_QUALST

                           0000001C' 0083       	    .LONG	<OUTQUAL_LIST-$CLI.>

                                     0087    94 

                                     0087    95 

                                     0087    96 OUTQUAL_LIST:

                                     0087    97 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0087    98 		QDCODE=CLI$K_COPY_ALLO,-;/ALLOCATION:N

                                     0087    99 		TRUACT=COPY_ALLOCATION	;CALL QUALIFIER HANDLER

                           0000009B  0087       	.BLKB	CLI$C_QUALDEF

                           00000087  009B       	. = $CLI.+CLI$B_QDBLKSIZ

COPY            - BACKTRANSLATOR FOR COPY COMMAND                22-AUG-1978 05:21:38   VAX-11 MACRO X0.3-11               Page   6

HJ                                                                                                                               (2)



                                 17' 0087       	  .BYTE	30095$-.

                                 02  0088       	  .BYTE	CLI$K_COPY_ALLO

                           00000093  0089       	. = $CLI.+CLI$A_TRUACT

                           FFFFFFB5' 0093       	    .LONG	<COPY_ALLOCATION-$CLI.>

                           0000009B  0097       . = $CLI..

                                 00  009B       	.BYTE	0

                                 00  009C       	.BYTE	0

                                 00  009D       	.BYTE	0

                                     009E       30095$:

                                     009E   100 

                                     009E   101 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     009E   102 		QDCODE=CLI$K_COPY_CONT,-;/CONTIGUOUS

                                     009E   103 		TRUACT=COPY_CONTIG,-	;CALL QUALIFIER HANDLER

                                     009E   104 		FLSACT=COPY_NOCONTIG	;CALL FALSE QUALIFIER HANDLER

                           000000B2  009E       	.BLKB	CLI$C_QUALDEF

                           0000009E  00B2       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 009E       	  .BYTE	30099$-.

                                 05  009F       	  .BYTE	CLI$K_COPY_CONT

                           000000AA  00A0       	. = $CLI.+CLI$A_TRUACT

                           FFFFFFA9' 00AA       	    .LONG	<COPY_CONTIG-$CLI.>

                           FFFFFFB4' 00AE       	    .LONG	<COPY_NOCONTIG-$CLI.>

                                 00  00B2       	.BYTE	0

                                 00  00B3       	.BYTE	0

                                 00  00B4       	.BYTE	0

                                     00B5       30099$:

                                     00B5   105 

                                     00B5   106 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00B5   107 		QDCODE=CLI$K_COPY_OVER,-;/OVERLAY

                                     00B5   108 		TRUACT=COPY_OVERLAY	;CALL QUALIFIER HANDLER

                           000000C9  00B5       	.BLKB	CLI$C_QUALDEF

                           000000B5  00C9       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 00B5       	  .BYTE	30103$-.

                                 0A  00B6       	  .BYTE	CLI$K_COPY_OVER

                           000000C1  00B7       	. = $CLI.+CLI$A_TRUACT

                           FFFFFFB4' 00C1       	    .LONG	<COPY_OVERLAY-$CLI.>

                           000000C9  00C5       . = $CLI..

                                 00  00C9       	.BYTE	0

                                 00  00CA       	.BYTE	0

                                 00  00CB       	.BYTE	0

                                     00CC       30103$:

                                     00CC   109 

                                     00CC   110 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00CC   111 		QDCODE=CLI$K_COPY_REPL,-;/REPLACE

                                     00CC   112 		TRUACT=COPY_REPLACE	;CALL QUALIFIER HANDLER

                           000000E0  00CC       	.BLKB	CLI$C_QUALDEF

                           000000CC  00E0       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 00CC       	  .BYTE	30107$-.

                                 0D  00CD       	  .BYTE	CLI$K_COPY_REPL

                           000000D8  00CE       	. = $CLI.+CLI$A_TRUACT

                           FFFFFFA9' 00D8       	    .LONG	<COPY_REPLACE-$CLI.>

                           000000E0  00DC       . = $CLI..

                                 00  00E0       	.BYTE	0

                                 00  00E1       	.BYTE	0

                                 00  00E2       	.BYTE	0

                                     00E3       30107$:

                                     00E3   113 

                                     00E3   114 ;	$CLIQUALDESC -			;DEFINE A QUALIFIER

COPY            - BACKTRANSLATOR FOR COPY COMMAND                22-AUG-1978 05:21:38   VAX-11 MACRO X0.3-11               Page   7

HJ                                                                                                                               (2)



                                     00E3   115 ;		QDCODE=CLI$K_COPY_RT11,-;/RT11

                                     00E3   116 ;		TRUACT=COPY_RT11	;CALL QUALIFIER HANDLER

                                     00E3   117 ;

                                     00E3   118 ;	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00E3   119 ;		QDCODE=CLI$K_COPY_DOS1,-;/DOS11

                                     00E3   120 ;		TRUACT=COPY_DOS11	;CALL QUALIFIER HANDLER

                                     00E3   121 

                                     00E3   122 	$CLIQUALDESC	END_LIST	;TERMINATE THE QUALIFIER LIST

                                 00  00E3       	.BYTE	0

                                     00E4   123 

                                     00E4   124 

                                     00E4   125 QUAL_ARGLIST:

                                     00E4   126 	$ARGLST	3,-			;CREATE AN ARGUMENT LIST

                                     00E4   127 		QUAL_DESC,-		;FOR FIRST OUTPUT PARAMETER

                                     00E4   128 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     00E4   129 		BITMAP			;BIT ARRAY

                           00000003  00E4       		.LONG	3

                           000000F4' 00E8       		.LONG	QUAL_DESC

                           00000000' 00EC       		.LONG	CLIWORKAREA

                           00000000' 00F0       		.LONG	BITMAP

                                     00F4   130 

                                     00F4   131 QUAL_DESC:

                                     00F4   132 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

                                     00F4   133 		RQTYPE=CLI$K_GETQUAL,-	;FOR COMMAND QUALIFIERS

                                     00F4   134 		QUALST=QUAL_LIST	;INDICATE ACCEPTABLE OPTIONS

                           00000110  00F4       	.BLKB	CLI$C_REQDESC

                           000000F4  0110       	. = $CLI.+CLI$B_RQTYPE

                                 02  00F4       	  .BYTE	CLI$K_GETQUAL

                           0000010C  00F5       	. = $CLI.+CLI$A_QUALST

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

                                     0110   135 

                                     0110   136 QUAL_LIST:

                                     0110   137 ;	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0110   138 ;		QDCODE=CLI$K_COPY_ASCI,-;/ASCII[:N]

                                     0110   139 ;		TRUACT=COPY_ASCII	;CALL QUALIFIER HANDLER

                                     0110   140 ;

                                     0110   141 ;	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0110   142 ;		QDCODE=CLI$K_COPY_BINA,-;/BINARY[:N]

                                     0110   143 ;		TRUACT=COPY_BINARY	;CALL QUALIFIER HANDLER

                                     0110   144 ;

                                     0110   145 ;	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0110   146 ;		QDCODE=CLI$K_COPY_IMAG,-;/IMAGE[:N]

                                     0110   147 ;		TRUACT=COPY_IMAGE	;CALL QUALIFIER HANDLER

                                     0110   148 ;

                                     0110   149 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0110   150 		QDCODE=CLI$K_COPY_NEW_,-;/NEW_VERSION

                                     0110   151 		TRUACT=COPY_NEW_VERS	;CALL QUALIFIER HANDLER

                           00000124  0110       	.BLKB	CLI$C_QUALDEF

                           00000110  0124       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0110       	  .BYTE	30112$-.

                                 15  0111       	  .BYTE	CLI$K_COPY_NEW_

                           0000011C  0112       	. = $CLI.+CLI$A_TRUACT

                           FFFFFF4E' 011C       	    .LONG	<COPY_NEW_VERS-$CLI.>

                           00000124  0120       . = $CLI..

                                 00  0124       	.BYTE	0

                                 00  0125       	.BYTE	0

                                 00  0126       	.BYTE	0

COPY            - BACKTRANSLATOR FOR COPY COMMAND                22-AUG-1978 05:21:38   VAX-11 MACRO X0.3-11               Page   8

HJ                                                                                                                               (2)



                                     0127       30112$:

                                     0127   152 

                                     0127   153 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0127   154 		QDCODE=CLI$K_COPY_RSX1	;/RSX11

                           0000013B  0127       	.BLKB	CLI$C_QUALDEF

                           00000127  013B       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0127       	  .BYTE	30116$-.

                                 14  0128       	  .BYTE	CLI$K_COPY_RSX1

                           0000013B  0129       . = $CLI..

                                 00  013B       	.BYTE	0

                                 00  013C       	.BYTE	0

                                 00  013D       	.BYTE	0

                                     013E       30116$:

                                     013E   155 

                                     013E   156 

                                     013E   157 	$CLIQUALDESC	END_LIST	;TERMINATE THE QUALIFIER LIST

                                 00  013E       	.BYTE	0

COPY            - BACKTRANSLATOR FOR COPY COMMAND                22-AUG-1978 05:21:38   VAX-11 MACRO X0.3-11               Page   9

HJ                                                                                                                               (3)



                                     013F   159 ;	.SBTTL COPY

                                     013F   160 ;+

                                     013F   161 ; BACKTRANSLATOR COPY

                                     013F   162 ;

                                     013F   163 ; CONVERTS DCL COMMAND TO COMPATIBILITY MODE IMAGE COMMAND

                                     013F   164 ;

                                     013F   165 ;

                                     013F   166 ; INPUTS:

                                     013F   167 ;  THE INPUTS ARE RETURNED FROM THE DCL RESULT PARSER AS RESPONSES

                                     013F   168 ;  TO THE VARIOUS REQUEST DESCRIPTORS THAT ARE GIVEN TO IT.

                                     013F   169 ;

                                     013F   170 ;

                                     013F   171 ; OUTPUTS:

                                     013F   172 ;  THE OUTPUT CONSISTS OF TWO STRINGS OR AN ERROR MESSAGE AND ABORT.

                                     013F   173 ;  THE CALLER OPENS THE IMAGE AND INVOKES THE COMPATIBILITY EMULATOR

                                     013F   174 ;  IF NO ERROR OCCURS.

                                     013F   175 ;

                                     013F   176 ;  1- FILENAME STRING OF COMPATIBILITY MODE IMAGE TO BE ACTIVATED.

                                     013F   177 ;

                                     013F   178 ;  2- COMMAND LINE TO BE GIVEN TO THE IMAGE.

                                     013F   179 ;

                                     013F   180 ;-

                                     013F   181 

                                     013F   182 	PURE

                                 00000000       	.PSECT	PURE_	BYTE,RD,EXE,NOWRT

                                     0000   183 

                                     0000   184 COPY::

                                 FA  0000   185 	CALLG	W^QUAL_ARGLIST,-	;PROCESS THE COMMAND QUALIFIERS

         08 BC       00E4'CF         0001   186 		@CLI$A_UTILSERV(AP)

                                 FA  0006   187 	CALLG	W^OUTPUT_ARGLIST,-	;PROCESS OUTPUT FILE SPEC

         08 BC       005B'CF         0007   188 		@CLI$A_UTILSERV(AP)

            59       0073'CF     7D  000C   189 	MOVQ	W^CLI$Q_RQDESC+OUTPUT_DESC,R9 ;PICK UP OUTPUT FILE SPEC

                          FFEC'  30  0011   190 	BSBW	INSERTARG		;SET IT UP FOR RESULT STRING

       0000'CF         F6 8F     90  0014   191 	MOVB	#PRIM_INPUT,W^PARAMLOC	;SET TO TAKE NEXT ARGUMENT AS INPUT

       0000'CF         F6 8F     90  001A   192 	MOVB	#PRIM_INPUT,W^HOLDLOC	;CAUSE QUALIFIER TO APPEAR ON PARAMETER

                                 FA  0020   193 10$:	CALLG	W^INPUT_ARGLIST,-	;PROCESS INPUTS

         08 BC       0000'CF         0021   194 		@CLI$A_UTILSERV(AP)

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

                          FFD2'  30  002B   196 	BSBW	INSERTARG		;SAVE IT AS INPUT

                     0000'CF     97  002E   197 	DECB	W^PARAMLOC		;SET UP TO TAKE INPUT LIST

                                 E0  0032   198 	BBS	#CLI$V_CONCATINP,-	;BRANCH IF MORE INPUTS TO GET THEM

       0013'CF            01         0033   199 		W^CLI$B_RQSTAT+INPUT_DESC,10$

                          E8         0037       

                                     0038   200 	DEFPROG	PIP			;RETURN DEFAULT PROGRAM TO RUN

            50            01     D0  0038       	MOVL	#PROG_PIP,R0

                                 05  003B   201 	RSB				;RETURN TO GENERATE COMMAND TEXT

                                     003C   202 

                                     003C   203 

                                     003C   204 

                                     003C   205 COPY_ALLOCATION:

                                     003C   206 	$GETDECNUM	</BL>		;GET OUTPUT FILE /ALLOCATION:N

                               0FFC  003C       	.WORD	SAVE_REG_MASK

                          FFBF'  30  003E       	BSBW	GETSTRING

                                 80  0041       	.BYTE	$$$FLAGS

                                 00  0042       	.BYTE	0

                                 03  0043       	.BYTE	$$CNT

                           4C 42 2F  0044       	.ASCII	\/BL\

COPY            - BACKTRANSLATOR FOR COPY COMMAND                22-AUG-1978 05:21:38   VAX-11 MACRO X0.3-11               Page  10

HJ                                                                                                                               (3)



                                     0047   207 

                                     0047   208 COPY_CONTIG:

                                     0047   209 	$SETSTRING	</CO>		;SET OUTPUT FILE /CONTIGUOUS

                               0FFC  0047       	.WORD	SAVE_REG_MASK

                          FFB4'  30  0049       	BSBW	SETSTRING

                                 00  004C       	.BYTE	$$$FLAGS

                                 00  004D       	.BYTE	0

                                 03  004E       	.BYTE	$$CNT

                           4F 43 2F  004F       	.ASCII	\/CO\

                                     0052   210 

                                     0052   211 COPY_NOCONTIG:

                                     0052   212 	$SETSTRING	</-CO>,FLAGS=<BTR$M_EXPLICIT> ;SET OUT FILE /NOCONTIG

                               0FFC  0052       	.WORD	SAVE_REG_MASK

                          FFA9'  30  0054       	BSBW	SETSTRING

                                 20  0057       	.BYTE	$$$FLAGS

                                 00  0058       	.BYTE	0

                                 04  0059       	.BYTE	$$CNT

                        4F 43 2D 2F  005A       	.ASCII	\/-CO\

                                     005E   213 

                                     005E   214 COPY_NEW_VERS:

                                     005E   215 	$SETSTRING	</NV>,PIP	;SET /NEW_VERSION OPTION

                               0FFC  005E       	.WORD	SAVE_REG_MASK

                          FF9D'  30  0060       	BSBW	SETSTRING

                                 00  0063       	.BYTE	$$$FLAGS

                                 01  0064       	.BYTE	PROG_PIP

                                 03  0065       	.BYTE	$$CNT

                           56 4E 2F  0066       	.ASCII	\/NV\

                                     0069   216 

                                     0069   217 COPY_OVERLAY:

                                     0069   218 	$SETSTRING	</UP>,PIP,POS=<PRIM_OUTPUT> ;SET UPDATE OPTION

                               0FFC  0069       	.WORD	SAVE_REG_MASK

                          FF92'  30  006B       	BSBW	SETSTRING

                                 04  006E       	.BYTE	$$$FLAGS

                                 01  006F       	.BYTE	PROG_PIP

                                 00  0070       	.BYTE	PRIM_OUTPUT

                                 03  0071       	.BYTE	$$CNT

                           50 55 2F  0072       	.ASCII	\/UP\

                                     0075   219 

                                     0075   220 COPY_REPLACE:

                                     0075   221 	$SETSTRING	</SU>,PIP,POS=<PRIM_OUTPUT> ;SET SUPERSEDE OPTION

                               0FFC  0075       	.WORD	SAVE_REG_MASK

                          FF86'  30  0077       	BSBW	SETSTRING

                                 04  007A       	.BYTE	$$$FLAGS

                                 01  007B       	.BYTE	PROG_PIP

                                 00  007C       	.BYTE	PRIM_OUTPUT

                                 03  007D       	.BYTE	$$CNT

                           55 53 2F  007E       	.ASCII	\/SU\

                                     0081   222 

                                     0081   223 ;COPY_ASCII:

                                     0081   224 ;	$GETDECNUM	</FA>,FLX	;SET /ASCII:N OPTION

                                     0081   225 ;

                                     0081   226 ;COPY_BINARY:

                                     0081   227 ;	$GETDECNUM	</FB>,FLX	;SET /BINARY:N OPTION

                                     0081   228 ;

                                     0081   229 ;COPY_IMAGE:

                                     0081   230 ;	$GETDECNUM	</IM>,FLX	;SET /IMAGE:N OPTION

                                     0081   231 ;

COPY            - BACKTRANSLATOR FOR COPY COMMAND                22-AUG-1978 05:21:38   VAX-11 MACRO X0.3-11               Page  11

HJ                                                                                                                               (3)



                                     0081   232 ;COPY_RT11:

                                     0081   233 ;	$SETSTRING	</RT>,FLX,FLAGS=<BTR$M_FORCE> ;IDENTIFY AS RT11 FILE

                                     0081   234 ;

                                     0081   235 ;COPY_DOS11:

                                     0081   236 ;	$SETSTRING	</DO>,FLX,FLAGS=<BTR$M_FORCE> ;IDENTIFY AS DOS11 FILE

                                     0081   237 ;

                                     0081   238 

                                     0081   239 	.END

COPY            - BACKTRANSLATOR FOR COPY COMMAND                22-AUG-1978 05:21:38   VAX-11 MACRO X0.3-11               Page  12

SYMBOL TABLE                                                                                                                     (3)



$$$            = 00000004            CLI$B_RQFLGS     00000002            CLI$L_LINKFLAG   00000014            

$$$.           = 00000001            CLI$B_RQINDX     00000001            CLI$L_RQVALU     0000000C            

$$$FLAGS       = 00000004            CLI$B_RQSTAT     00000003            CLI$L_USRVAL     00000014            

$$$GBL         = 00000000            CLI$B_RQTYPE     00000000            CLI$L_WORKAREA   00000000            

$$CNT          = 00000003            CLI$C_QDBITS     00000014            CLI$M_ABSADR   = 00000002            

$$T1           = 00000003            CLI$C_QUALDEF    00000014            CLI$M_ALLOCCUR = 00000001            

$CLI.          = 00000127 R     03   CLI$C_REQDESC    0000001C            CLI$M_BATCH    = 00000008            

$CLI..         = 0000013E R     03   CLI$C_WORKAREA   00000080            CLI$M_CONCATINP= 00000002            

$QUALNUM$      = 00000016            CLI$K_ASCIIVAL = 00000041            CLI$M_DBGEXCP  = 00010000            

BIT...         = 00000008            CLI$K_CLISERV  = 00000005            CLI$M_DBGTRU   = 00000002            

BITMAP           ********   X   03   CLI$K_COPY_ALIG= 00000001            CLI$M_DEBUG    = 00000001            

BTR$M_DECIMAL  = 00000080            CLI$K_COPY_ALLO= 00000002            CLI$M_DUMMY    = 00000002            

BTR$M_EXPLICIT = 00000020            CLI$K_COPY_CONC= 00000004            CLI$M_EXPNAM   = 00000004            

BTR$M_FORCE    = 00000002            CLI$K_COPY_CONT= 00000005            CLI$M_INDIRECT = 00000010            

BTR$M_LIST     = 00000040            CLI$K_COPY_EXTE= 00000007            CLI$M_KEYVALU  = 00000002            

BTR$M_MULTKEY  = 00000010            CLI$K_COPY_FILE= 00000008            CLI$M_LASTVAL  = 00000001            

BTR$M_RETURN   = 00000001            CLI$K_COPY_LOG = 0000000E            CLI$M_MOREINP  = 00000004            

BTR$M_TEMPPOS  = 00000004            CLI$K_COPY_NEW_= 00000015            CLI$M_MOREVALS = 00000001            

BTR$M_VALREQ   = 00000008            CLI$K_COPY_OVER= 0000000A            CLI$M_PARMDEF  = 00000008            

BTR$V_DECIMAL  = 00000007            CLI$K_COPY_PROT= 0000000B            CLI$M_PARMPRS  = 00000001            

BTR$V_EXPLICIT = 00000005            CLI$K_COPY_READ= 0000000C            CLI$M_PARMREQ  = 00000001            

BTR$V_FORCE    = 00000001            CLI$K_COPY_REPL= 0000000D            CLI$M_QDEXPA   = 00000004            

BTR$V_LIST     = 00000006            CLI$K_COPY_RSX1= 00000014            CLI$M_QDUSRV   = 00000002            

BTR$V_MULTKEY  = 00000004            CLI$K_COPY_TRUN= 00000011            CLI$M_QUALEXP  = 00000002            

BTR$V_RETURN   = 00000000            CLI$K_COPY_WRIT= 00000010            CLI$M_QUALTRU  = 00000001            

BTR$V_TEMPPOS  = 00000002            CLI$K_COPY_ZZZZ= 00000013            CLI$M_TRMVRBLV = 00000300            

BTR$V_VALREQ   = 00000003            CLI$K_ENDPRM1  = 00000030            CLI$M_VERIFY   = 00000004            

BTR$_AMBIGKEYW = 00688030            CLI$K_ENDPRM2  = 00000031            CLI$M_VFYINP   = 00000020            

BTR$_ILLEGOPT  = 00688018            CLI$K_ENDPRM3  = 00000032            CLI$Q_QDVALDESC  00000004            

BTR$_IMGFNF    = 00688060            CLI$K_ENDPRM4  = 00000033            CLI$Q_RQDESC     00000008            

BTR$_INTFAIL   = 00688048            CLI$K_FILSPEC  = 00000044            CLI$S_PRITYP   = 00000004            

BTR$_INVALKEYW = 00688028            CLI$K_GETCMD   = 00000001            CLI$S_SUBTYP   = 00000004            

BTR$_KEYVALOVR = 00688038            CLI$K_GETOPT   = 00000003            CLI$S_TRMVRBLV = 00000002            

BTR$_MISSNGVAL = 00688008            CLI$K_GETQUAL  = 00000002            CLI$V_ABSADR   = 00000001            

BTR$_NOTIMPLEM = 00688020            CLI$K_INITPRS  = 00000000            CLI$V_ALLOCCUR = 00000000            

BTR$_OPTVALOVR = 00688050            CLI$K_INPSPEC  = 00000001            CLI$V_BATCH    = 00000003            

BTR$_STRINGOVR = 00688010            CLI$K_INPUT1   = 00000010            CLI$V_CONCATINP= 00000001            

BTR$_TOOMANY   = 00688058            CLI$K_INPUT2   = 00000011            CLI$V_DBGEXCP  = 00000010            

BTR$_UNEXPLIST = 00688040            CLI$K_INPUT3   = 00000012            CLI$V_DBGTRU   = 00000001            

BTRAN          = 00680000            CLI$K_INPUT4   = 00000013            CLI$V_DEBUG    = 00000000            

CLI$A_ABSACT     00000014            CLI$K_KEYVAL   = 00000043            CLI$V_DUMMY    = 00000001            

CLI$A_ERRACT     00000004            CLI$K_KEYWORD  = 00000042            CLI$V_EXPNAM   = 00000002            

CLI$A_FLSACT     00000010            CLI$K_NUMERVAL = 00000040            CLI$V_INDIRECT = 00000004            

CLI$A_IMGFILED   00000010            CLI$K_OUTPUT1  = 00000020            CLI$V_KEYVALU  = 00000001            

CLI$A_IMGHDADR   0000000C            CLI$K_OUTPUT2  = 00000021            CLI$V_LASTVAL  = 00000000            

CLI$A_PROGXFER   00000004            CLI$K_OUTPUT3  = 00000022            CLI$V_MOREINP  = 00000002            

CLI$A_PRSACT     00000010            CLI$K_OUTPUT4  = 00000023            CLI$V_MOREVALS = 00000000            

CLI$A_QDVALADR   00000008            CLI$K_OUTSPEC  = 00000002            CLI$V_PARMDEF  = 00000003            

CLI$A_QUALST     00000018            CLI$K_PARDONE  = 00000003            CLI$V_PARMPRS  = 00000000            

CLI$A_RQADDR     0000000C            CLI$K_QDBITS     00000014            CLI$V_PARMREQ  = 00000000            

CLI$A_TRUACT     0000000C            CLI$K_QUALDEF    00000014            CLI$V_PRITYP   = 00000004            

CLI$A_UTILSERV   00000008            CLI$K_REQDESC    0000001C            CLI$V_QDEXPA   = 00000002            

CLI$B_BITNUM     00000001            CLI$K_UTILOPR  = 00000000            CLI$V_QDUSRV   = 00000001            

CLI$B_QDBLKSIZ   00000000            CLI$K_VALCONV  = 00000004            CLI$V_QUALEXP  = 00000001            

CLI$B_QDCODE     00000001            CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            

CLI$B_QDFLGS     00000002            CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            

CLI$B_QDSTAT     00000003            CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            

COPY            - BACKTRANSLATOR FOR COPY COMMAND                22-AUG-1978 05:21:38   VAX-11 MACRO X0.3-11               Page  13

SYMBOL TABLE                                                                                                                     (3)



CLI$V_VERIFY   = 00000002            PRO_V_OPTION   = 00000003            

CLI$V_VFYINP   = 00000005            PRO_V_REQ      = 00000004            

CLI$W_QDVALSIZ   00000004            PRO_V_STRING   = 00000005            

CLI$W_RQSIZE     00000008            QUAL_ARGLIST     000000E4 R     03   

CLI$W_SERVCOD    00000001            QUAL_DESC        000000F4 R     03   

CLIWORKAREA      ********   X   03   QUAL_LIST        00000110 R     03   

COPY             00000000 RG    04   QUA_B_DEFVAL     00000002            

COPY_ALLOCATION  0000003C R     04   QUA_B_IMAGE      00000005            

COPY_CONTIG      00000047 R     04   QUA_B_INDEX      00000001            

COPY_NEW_VERS    0000005E R     04   QUA_B_OFFSET     00000000            

COPY_NOCONTIG    00000052 R     04   QUA_B_PARMCNT    00000008            

COPY_OVERLAY     00000069 R     04   QUA_G_CHNGLST    00000006            

COPY_REPLACE     00000075 R     04   QUA_M_BATDEF   = 00000100            

FATAL          = 00000004            QUA_M_CHNGLIST = 00000001            

GBL...         = 00000000            QUA_M_DEFTRUE  = 00000080            

GETSTRING        ********   X   04   QUA_M_FILE     = 00000004            

HOLDLOC          ********   X   04   QUA_M_IMAGE    = 00000400            

INPUT_ARGLIST    00000000 R     03   QUA_M_INTDEF   = 00000200            

INPUT_DESC       00000010 R     03   QUA_M_KEYVAL   = 00004000            

INQUAL_LIST      0000002C R     03   QUA_M_LOCALKEY = 00000002            

INSERTARG        ********   X   04   QUA_M_NEG      = 00000040            

LAST_PARAM     = FFFFFFEC            QUA_M_ONEVAL   = 00002000            

NONE           = 00000000            QUA_M_OUTPUT   = 00000800            

OUTPUT_ARGLIST   0000005B R     03   QUA_M_PARM     = 00000010            

OUTPUT_DESC      0000006B R     03   QUA_M_VAL      = 00000020            

OUTQUAL_LIST     00000087 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            SAVE_REG_MASK  = 00000FFC            

PRO_M_LIST     = 00000004            SETSTRING        ********   X   04   

PRO_M_OPTION   = 00000008            

PRO_M_REQ      = 00000010            

PRO_M_STRING   = 00000020            

PRO_V_CONCAT   = 00000000            

PRO_V_IMPCAT   = 00000001            

PRO_V_LIST     = 00000002            

COPY            - BACKTRANSLATOR FOR COPY COMMAND                22-AUG-1978 05:21:38   VAX-11 MACRO X0.3-11               Page  14

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

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





THERE WERE NO ERRORS OR WARNINGS.

12224. BYTES LEFT IN FREE MEMORY POOL.

2306. BYTES OF RECLAIMED MEMORY.

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

61 MLB DIR RDS - 634 GETS TO DEFINE 35 MACROS. 112 INTER. FILE WRITES. 

