DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   VAX-11 MACRO X0.3-11               Page   1

HJ01                                                                                                                             (1)



                                     0000     1 	.TITLE	DIFFERENCES - BACKTRANSLATOR FOR DIFF 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.	MAY 1978

                                     0000    24 ;

                                     0000    25 ; BACKTRANSLATOR DIFFERENCES

                                     0000    26 ;

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   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:

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   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 	$CLIDEFQUALDIFF			;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

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   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 		RQFLGS=CLI$V_PARMREQ,-	;PRIMARY INPUT IS REQUIRED

                                     0010    61 		QUALST=PARM_QUALS	;QUALIFIERS ASSOCIATED WITH FILE

                           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

                           00000048' 0028       	    .LONG	<PARM_QUALS-$CLI.>

                                     002C    62 

                                     002C    63 INPUT2_ARGLIST:

                                     002C    64 	$ARGLST	3,-			;CREATE AN ARGUMENT LIST

                                     002C    65 		INPUT2_DESC,-		;FOR SECONDARY OUTPUT

                                     002C    66 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     002C    67 		BITMAP			;BIT ARRAY

                           00000003  002C       		.LONG	3

                           0000003C' 0030       		.LONG	INPUT2_DESC

                           00000000' 0034       		.LONG	CLIWORKAREA

                           00000000' 0038       		.LONG	BITMAP

                                     003C    68 

                                     003C    69 INPUT2_DESC:

                                     003C    70 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

                                     003C    71 		RQTYPE=CLI$K_INPUT2,-	;FOR PRIMARY OUTPUT

                                     003C    72 		QUALST=PARM_QUALS	;QUALIFIERS ASSOCIATED WITH FILE

                           00000058  003C       	.BLKB	CLI$C_REQDESC

                           0000003C  0058       	. = $CLI.+CLI$B_RQTYPE

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   VAX-11 MACRO X0.3-11               Page   5

HJ01                                                                                                                             (2)



                                 11  003C       	  .BYTE	CLI$K_INPUT2

                           00000054  003D       	. = $CLI.+CLI$A_QUALST

                           0000001C' 0054       	    .LONG	<PARM_QUALS-$CLI.>

                                     0058    73 

                                     0058    74 PARM_QUALS:

                                     0058    75 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0058    76 		QDCODE=CLI$K_DIFF_CHAN,-;/CHANGE_BARS=(C[,[NO]NUMBER])

                                     0058    77 		TRUACT=DIFF_CHANGEBAR	;CALL QUALIFIER HANDLER

                           0000006C  0058       	.BLKB	CLI$C_QUALDEF

                           00000058  006C       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0058       	  .BYTE	30049$-.

                                 01  0059       	  .BYTE	CLI$K_DIFF_CHAN

                           00000064  005A       	. = $CLI.+CLI$A_TRUACT

                           00000025' 0064       	    .LONG	<DIFF_CHANGEBAR-$CLI.>

                           0000006C  0068       . = $CLI..

                                 00  006C       	.BYTE	0

                                 00  006D       	.BYTE	0

                                 00  006E       	.BYTE	0

                                     006F       30049$:

                                     006F    78 

                                     006F    79 	$CLIQUALDESC	END_LIST	;TERMINATE THE QUALIFIER LIST

                                 00  006F       	.BYTE	0

                                     0070    80 

                                     0070    81 OUTPUT_ARGLIST:

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

                                     0070    83 		OUTPUT_DESC,-		;FOR FIRST OUTPUT PARAMETER

                                     0070    84 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     0070    85 		BITMAP			;BIT ARRAY

                           00000003  0070       		.LONG	3

                           00000080' 0074       		.LONG	OUTPUT_DESC

                           00000000' 0078       		.LONG	CLIWORKAREA

                           00000000' 007C       		.LONG	BITMAP

                                     0080    86 

                                     0080    87 OUTPUT_DESC:

                                     0080    88 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

                                     0080    89 		RQTYPE=CLI$K_OUTPUT1	;FOR PRIMARY OUTPUT

                           0000009C  0080       	.BLKB	CLI$C_REQDESC

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

                                 20  0080       	  .BYTE	CLI$K_OUTPUT1

                           0000009C  0081       	. = $CLI..

                                     009C    90 

                                     009C    91 

                                     009C    92 QUAL_ARGLIST:

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

                                     009C    94 		QUAL_DESC,-		;FOR COMMAND QUALIFIERS

                                     009C    95 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     009C    96 		BITMAP			;BIT ARRAY

                           00000003  009C       		.LONG	3

                           000000AC' 00A0       		.LONG	QUAL_DESC

                           00000000' 00A4       		.LONG	CLIWORKAREA

                           00000000' 00A8       		.LONG	BITMAP

                                     00AC    97 

                                     00AC    98 QUAL_DESC:

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

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

                                     00AC   101 		QUALST=QUAL_LIST	;ADDRESS OF THE QUALIFIERS

                           000000C8  00AC       	.BLKB	CLI$C_REQDESC

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   VAX-11 MACRO X0.3-11               Page   6

HJ01                                                                                                                             (2)



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

                                 02  00AC       	  .BYTE	CLI$K_GETQUAL

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

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

                                     00C8   102 

                                     00C8   103 

                                     00C8   104 QUAL_LIST:

                                     00C8   105 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00C8   106 		QDCODE=CLI$K_DIFF_COMM,-;/COMMENT_DELIMITERS=(C,C,COLON,...)

                                     00C8   107 		TRUACT=DIFF_COMMENT	;CALL QUALIFIER HANDLER

                           000000DC  00C8       	.BLKB	CLI$C_QUALDEF

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

                                 17' 00C8       	  .BYTE	30054$-.

                                 02  00C9       	  .BYTE	CLI$K_DIFF_COMM

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

                           00000002' 00D4       	    .LONG	<DIFF_COMMENT-$CLI.>

                           000000DC  00D8       . = $CLI..

                                 00  00DC       	.BYTE	0

                                 00  00DD       	.BYTE	0

                                 00  00DE       	.BYTE	0

                                     00DF       30054$:

                                     00DF   108 

                                     00DF   109 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00DF   110 		QDCODE=CLI$K_DIFF_IGNO,-;/IGNORE:(BLANK_LINES,COMMENTS,...)

                                     00DF   111 		TRUACT=DIFF_IGNORE	;CALL QUALIFIER HANDLER

                           000000F3  00DF       	.BLKB	CLI$C_QUALDEF

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

                                 17' 00DF       	  .BYTE	30058$-.

                                 03  00E0       	  .BYTE	CLI$K_DIFF_IGNO

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

                           0000008A' 00EB       	    .LONG	<DIFF_IGNORE-$CLI.>

                           000000F3  00EF       . = $CLI..

                                 00  00F3       	.BYTE	0

                                 00  00F4       	.BYTE	0

                                 00  00F5       	.BYTE	0

                                     00F6       30058$:

                                     00F6   112 

                                     00F6   113 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00F6   114 		QDCODE=CLI$K_DIFF_LINE,-;/LINE_WIDTH=N

                                     00F6   115 		TRUACT=DIFF_LINEWIDTH	;CALL QUALIFIER HANDLER

                           0000010A  00F6       	.BLKB	CLI$C_QUALDEF

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

                                 17' 00F6       	  .BYTE	30062$-.

                                 04  00F7       	  .BYTE	CLI$K_DIFF_LINE

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

                           000000D6' 0102       	    .LONG	<DIFF_LINEWIDTH-$CLI.>

                           0000010A  0106       . = $CLI..

                                 00  010A       	.BYTE	0

                                 00  010B       	.BYTE	0

                                 00  010C       	.BYTE	0

                                     010D       30062$:

                                     010D   116 

                                     010D   117 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     010D   118 		QDCODE=CLI$K_DIFF_MATC,-;/MATCH:N

                                     010D   119 		TRUACT=DIFF_MATCH	;CALL QUALIFIER HANDLER

                           00000121  010D       	.BLKB	CLI$C_QUALDEF

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

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   VAX-11 MACRO X0.3-11               Page   7

HJ01                                                                                                                             (2)



                                 17' 010D       	  .BYTE	30066$-.

                                 05  010E       	  .BYTE	CLI$K_DIFF_MATC

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

                           000000CA' 0119       	    .LONG	<DIFF_MATCH-$CLI.>

                           00000121  011D       . = $CLI..

                                 00  0121       	.BYTE	0

                                 00  0122       	.BYTE	0

                                 00  0123       	.BYTE	0

                                     0124       30066$:

                                     0124   120 

                                     0124   121 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0124   122 		QDCODE=CLI$K_DIFF_MAXI,-;/MAXIMUM_DIFFERENCES:N

                                     0124   123 		TRUACT=DIFF_MAXDIFF	;CALL QUALIFIER HANDLER

                           00000138  0124       	.BLKB	CLI$C_QUALDEF

                           00000124  0138       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0124       	  .BYTE	30070$-.

                                 06  0125       	  .BYTE	CLI$K_DIFF_MAXI

                           00000130  0126       	. = $CLI.+CLI$A_TRUACT

                           000000BE' 0130       	    .LONG	<DIFF_MAXDIFF-$CLI.>

                           00000138  0134       . = $CLI..

                                 00  0138       	.BYTE	0

                                 00  0139       	.BYTE	0

                                 00  013A       	.BYTE	0

                                     013B       30070$:

                                     013B   124 

                                     013B   125 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     013B   126 		QDCODE=CLI$K_DIFF_MERG,-;/MERGED_DIFF:N

                                     013B   127 		TRUACT=DIFF_MERGED	;CALL QUALIFIER HANDLER

                           0000014F  013B       	.BLKB	CLI$C_QUALDEF

                           0000013B  014F       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 013B       	  .BYTE	30074$-.

                                 07  013C       	  .BYTE	CLI$K_DIFF_MERG

                           00000147  013D       	. = $CLI.+CLI$A_TRUACT

                           000000B2' 0147       	    .LONG	<DIFF_MERGED-$CLI.>

                           0000014F  014B       . = $CLI..

                                 00  014F       	.BYTE	0

                                 00  0150       	.BYTE	0

                                 00  0151       	.BYTE	0

                                     0152       30074$:

                                     0152   128 

                                     0152   129 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0152   130 		QDCODE=CLI$K_DIFF_MODE,-;/MODE:(ASCII,OCTAL,HEX)

                                     0152   131 		TRUACT=DIFF_MODE	;CALL QUALIFIER HANDLER

                           00000166  0152       	.BLKB	CLI$C_QUALDEF

                           00000152  0166       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0152       	  .BYTE	30078$-.

                                 08  0153       	  .BYTE	CLI$K_DIFF_MODE

                           0000015E  0154       	. = $CLI.+CLI$A_TRUACT

                           000000A6' 015E       	    .LONG	<DIFF_MODE-$CLI.>

                           00000166  0162       . = $CLI..

                                 00  0166       	.BYTE	0

                                 00  0167       	.BYTE	0

                                 00  0168       	.BYTE	0

                                     0169       30078$:

                                     0169   132 

                                     0169   133 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0169   134 		QDCODE=CLI$K_DIFF_SEPA,-;/SEPARATE_DIFFERENCES

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   VAX-11 MACRO X0.3-11               Page   8

HJ01                                                                                                                             (2)



                                     0169   135 		TRUACT=DIFF_SEPARATE	;CALL QUALIFIER HANDLER

                           0000017D  0169       	.BLKB	CLI$C_QUALDEF

                           00000169  017D       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0169       	  .BYTE	30082$-.

                                 0A  016A       	  .BYTE	CLI$K_DIFF_SEPA

                           00000175  016B       	. = $CLI.+CLI$A_TRUACT

                           000000C7' 0175       	    .LONG	<DIFF_SEPARATE-$CLI.>

                           0000017D  0179       . = $CLI..

                                 00  017D       	.BYTE	0

                                 00  017E       	.BYTE	0

                                 00  017F       	.BYTE	0

                                     0180       30082$:

                                     0180   136 

                                     0180   137 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0180   138 		QDCODE=CLI$K_DIFF_SLP,-	;/SLP

                                     0180   139 		TRUACT=DIFF_SLP		;CALL QUALIFIER HANDLER

                           00000194  0180       	.BLKB	CLI$C_QUALDEF

                           00000180  0194       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0180       	  .BYTE	30086$-.

                                 0B  0181       	  .BYTE	CLI$K_DIFF_SLP

                           0000018C  0182       	. = $CLI.+CLI$A_TRUACT

                           000000BB' 018C       	    .LONG	<DIFF_SLP-$CLI.>

                           00000194  0190       . = $CLI..

                                 00  0194       	.BYTE	0

                                 00  0195       	.BYTE	0

                                 00  0196       	.BYTE	0

                                     0197       30086$:

                                     0197   140 

                                     0197   141 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0197   142 		QDCODE=CLI$K_DIFF_WIND,-;/WINDOW:N

                                     0197   143 		TRUACT=DIFF_WINDOW	;CALL QUALIFIER HANDLER

                           000001AB  0197       	.BLKB	CLI$C_QUALDEF

                           00000197  01AB       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0197       	  .BYTE	30090$-.

                                 0C  0198       	  .BYTE	CLI$K_DIFF_WIND

                           000001A3  0199       	. = $CLI.+CLI$A_TRUACT

                           000000B5' 01A3       	    .LONG	<DIFF_WINDOW-$CLI.>

                           000001AB  01A7       . = $CLI..

                                 00  01AB       	.BYTE	0

                                 00  01AC       	.BYTE	0

                                 00  01AD       	.BYTE	0

                                     01AE       30090$:

                                     01AE   144 

                                     01AE   145 

                                     01AE   146 	$CLIQUALDESC	END_LIST	;TERMINATE THE QUALIFIER LIST

                                 00  01AE       	.BYTE	0

                                     01AF   147 

                                 00  01AF   148 SLPFLAG:.BYTE	0			;LOW BIT SET TO 1 IF /SLP USED

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   VAX-11 MACRO X0.3-11               Page   9

HJ01                                                                                                                             (3)



                                     01B0   150 ;	.SBTTL DIFFERENCES

                                     01B0   151 ;+

                                     01B0   152 ; BACKTRANSLATOR DIFFERENCES

                                     01B0   153 ;

                                     01B0   154 ; CONVERTS DCL COMMAND TO COMPATIBILITY MODE IMAGE COMMAND

                                     01B0   155 ;

                                     01B0   156 ;

                                     01B0   157 ; INPUTS:

                                     01B0   158 ;  THE INPUTS ARE RETURNED FROM THE DCL RESULT PARSER AS RESPONSES

                                     01B0   159 ;  TO THE VARIOUS REQUEST DESCRIPTORS THAT ARE GIVEN TO IT.

                                     01B0   160 ;

                                     01B0   161 ;

                                     01B0   162 ; OUTPUTS:

                                     01B0   163 ;  THE OUTPUT CONSISTS OF TWO STRINGS OR AN ERROR MESSAGE AND ABORT.

                                     01B0   164 ;  THE CALLER OPENS THE IMAGE AND INVOKES THE COMPATIBILITY EMULATOR

                                     01B0   165 ;  IF NO ERROR OCCURS.

                                     01B0   166 ;

                                     01B0   167 ;  1- FILENAME STRING OF COMPATIBILITY MODE IMAGE TO BE ACTIVATED.

                                     01B0   168 ;

                                     01B0   169 ;  2- COMMAND LINE TO BE GIVEN TO THE IMAGE.

                                     01B0   170 ;

                                     01B0   171 ;-

                                     01B0   172 

                                     01B0   173 	PURE

                                 00000000       	.PSECT	PURE_	BYTE,RD,EXE,NOWRT

                           3A 49 54  0000   174 TISTRING: .ASCII \TI:\

                           00000003  0003   175 LENTISTRING=.-TISTRING

                                     0003   176 

                                     0003   177 DIFF::

                                 FA  0003   178 	CALLG	W^QUAL_ARGLIST,-	;PROCESS COMMAND OPTIONS -

         08 BC       009C'CF         0004   179 		@CLI$A_UTILSERV(AP)	;DEFAULT OPTIONS TO OUTPUT FILESPEC

                                 FA  0009   180 	CALLG	W^OUTPUT_ARGLIST,-	;PROCESS PRIMARY OUTPUT

         08 BC       0070'CF         000A   181 		@CLI$A_UTILSERV(AP)

            59       0088'CF     7D  000F   182 	MOVQ	W^CLI$Q_RQDESC+OUTPUT_DESC,R9 ;PICK UP STRING DESCRIPTOR

                          59     B5  0014   183 	TSTW	R9			;IS ONE PRESENT?

                          0C     12  0016   184 	BNEQ	10$			;BRANCH IF YES

            0A       01AF'CF     E8  0018   185 	BLBS	W^SLPFLAG,20$		;BRANCH IF /SLP, DON'T DEFAULT TT:

            59            03     D0  001D   186 	MOVL	#LENTISTRING,R9		;DEFAULT TO TERMINAL

            5A         DD AF     9E  0020   187 	MOVAB	TISTRING,R10		;

                          FFD9'  30  0024   188 10$:	BSBW	INSERTARG		;SAVE IT AS PRIMARY OUTPUT

       0000'CF         F6 8F     90  0027   189 20$:	MOVB	#PRIM_INPUT,W^HOLDLOC	;CAUSE OPTIONS TO GO ON INPUT

       0000'CF         F6 8F     90  002D   190 	MOVB	#PRIM_INPUT,W^PARAMLOC	;SET UP TO INPUT

                                 FA  0033   191 	CALLG	W^INPUT_ARGLIST,-	;PROCESS THE PRIMARY INPUT

         08 BC       0000'CF         0034   192 		@CLI$A_UTILSERV(AP)

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

                          FFBF'  30  003E   194 	BSBW	INSERTARG		;SAVE IT AS PRIMARY INPUT

                     0000'CF     97  0041   195 	DECB	W^HOLDLOC		;CAUSE OPTIONS TO GO ON THIS INPUT

                     0000'CF     97  0045   196 	DECB	W^PARAMLOC		;AND THE FILESPEC TO GO IN 2ND SLOT

                                 FA  0049   197 	CALLG	W^INPUT2_ARGLIST,-	;PROCESS THE PRIMARY INPUT

         08 BC       002C'CF         004A   198 		@CLI$A_UTILSERV(AP)

            59       0044'CF     7D  004F   199 	MOVQ	W^CLI$Q_RQDESC+INPUT2_DESC,R9 ;PICK UP STRING DESCRIPTOR

                          59     B5  0054   200 	TSTW	R9			;IS THERE AN EXPLICIT SECOND FILE?

                          11     12  0056   201 	BNEQ	30$			;BRANCH IF YES

                                 E1  0058   202 	BBC	#CLI$V_CONCATINP,-	;BRANCH IF ONLY ONE INPUT GIVEN

       0013'CF            01         0059   203 		W^CLI$B_RQSTAT+INPUT_DESC,50$

                          1B         005D       

                                 FA  005E   204 	CALLG	W^INPUT_ARGLIST,-	;PROCESS THE PRIMARY INPUT

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   VAX-11 MACRO X0.3-11               Page  10

HJ01                                                                                                                             (3)



         08 BC       0000'CF         005F   205 		@CLI$A_UTILSERV(AP)

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

                                 E1  0069   207 30$:	BBC	#CLI$V_CONCATINP,-	;BRANCH IF THREE INPUTS NOT GIVEN

       0013'CF            01         006A   208 		W^CLI$B_RQSTAT+INPUT_DESC,40$

                          07         006E       

                                     006F   209 	ERROR	TOOMANY,FATAL		;ABORT

            50         5C 8F     9A  006F       	MOVZBL	#BTR$_TOOMANY+FATAL&^XFF,R0

                          FF8A'  31  0073       	BRW	ERR_EXIT

                          FF87'  30  0076   210 40$:	BSBW	INSERTARG		;SAVE IT AS PRIMARY INPUT

                                     0079   211 50$:	DEFPROG	DIF			;RETURN DEFAULT PROGRAM TO RUN

            50            0F     D0  0079       	MOVL	#PROG_DIF,R0

                                 05  007C   212 	RSB				;RETURN TO GENERATE COMMAND TEXT

                                     007D   213 

                                     007D   214 

                                     007D   215 DIFF_CHANGEBAR:

                                     007D   216 	$SETSTRING	</CB>,FLAGS=<BTR$M_RETURN> ;SET UP /CHANGEBAR:(C,NUMB)

                               0FFC  007D       	.WORD	SAVE_REG_MASK

                          FF7E'  30  007F       	BSBW	SETSTRING

                                 01  0082       	.BYTE	$$$FLAGS

                                 00  0083       	.BYTE	0

                                 03  0084       	.BYTE	$$CNT

                           42 43 2F  0085       	.ASCII	\/CB\

                          FF75'  30  0088   217 	BSBW	GETSUBVAL		;PICK UP THE CHANGEBAR CHARACTER

                          50     DD  008B   218 	PUSHL	R0			;SAVE FLAG FOR VALUE PRESENT

            57            3A     90  008D   219 	MOVB	#^A\:\,R7		;PRECEDE VALUE WITH A COLON

                          FF6D'  30  0090   220 	BSBW	ADDCHAR			;PUT THE CHARACTER IN

       0008'CF            01     B1  0093   221 	CMPW	#1,W^CLI$W_RQSIZE+VALUE_DESC ;IS THE VALUE EXACTLY 1 CHAR?

                          0D     12  0098   222 	BNEQ	20$			;BRANCH IF NOT, WE HAVE [NO]NUMBER

            59       0008'CF     7D  009A   223 	MOVQ	W^CLI$Q_RQDESC+VALUE_DESC,R9 ;GET THE DESCRIPTOR FOR THE CHAR

                          FF5E'  30  009F   224 	BSBW	ADDSTR			;PUT THE CHARACTER IN

                          FF5B'  30  00A2   225 10$:	BSBW	GETSUBVAL		;PICK UP THE [NO]NUMBER OPTION

                          50     DD  00A5   226 	PUSHL	R0			;FIX STACK FOR OTHER ENTRY

                          01     BA  00A7   227 20$:	POPR	#^M<R0>			;SET R0 TO VALUE PRESENT FLAG

                                     00A9   228 	$GETKEYWORDNVAL	LIST=<-		;ACCEPT /COMMENT_DELIMITERS OF:

                                     00A9   229 				NUMBER,-

                                     00A9   230 				NONUMBER>

                          FF54'  30  00A9       	BSBW	GETKEYWORDNVAL

                                 11' 00AC       	.BYTE	30095$-30096$

                                     00AD       30096$:

                                 06' 00AD       	.BYTE	$$CNT

                  52 45 42 4D 55 4E  00AE       	.ASCII	\NUMBER\

                                 08' 00B4       	.BYTE	$$CNT

            52 45 42 4D 55 4E 4F 4E  00B5       	.ASCII	\NONUMBER\

                                 00  00BD       	.BYTE	0

                                     00BE       30095$:

                                     00BE   231 	$REPLACE	<:1,:0>,10$	;SET THE NUMBER/NONUMBER FLAG

                          FF3F'  30  00BE       	BSBW	REPLACE

                                 E0' 00C1       	.BYTE	10$-30098$

                                     00C2       30098$:

                                 FF  00C2       	.BYTE	$$INDEX

                                 02  00C3       	.BYTE	$$CNT

                              31 3A  00C4       	.ASCII	\:1\

                                 FE  00C6       	.BYTE	$$INDEX

                                 02  00C7       	.BYTE	$$CNT

                              30 3A  00C8       	.ASCII	\:0\

                                     00CA       30097$:

                                     00CA   232 

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   VAX-11 MACRO X0.3-11               Page  11

HJ01                                                                                                                             (3)



                                     00CA   233 DIFF_COMMENT:

                                     00CA   234 	$SETSTRING	</CO>,FLAGS=<BTR$M_RETURN>,POS=<PRIM_INPUT>

                               0FFC  00CA       	.WORD	SAVE_REG_MASK

                          FF31'  30  00CC       	BSBW	SETSTRING

                                 05  00CF       	.BYTE	$$$FLAGS

                                 00  00D0       	.BYTE	0

                                 F6  00D1       	.BYTE	PRIM_INPUT

                                 03  00D2       	.BYTE	$$CNT

                           4F 43 2F  00D3       	.ASCII	\/CO\

                                     00D6   235 					;SET UP /COMMENT:C OPTION

                          FF27'  30  00D6   236 10$:	BSBW	GETSUBVAL		;PICK UP THE SUBVALUE

                          17     13  00D9   237 	BEQL	20$			;BRANCH IF THERE IS NONE

       0008'CF            01     B1  00DB   238 	CMPW	#1,W^CLI$W_RQSIZE+VALUE_DESC ;IS THE VALUE EXACTLY 1 CHAR?

                          10     12  00E0   239 	BNEQ	20$			;BRANCH IF NOT

            57            3A     90  00E2   240 	MOVB	#^A\:\,R7		;PRECEDE VALUE WITH A COLON

                          FF18'  30  00E5   241 	BSBW	ADDCHAR			;PUT THE CHARACTER IN

            59       0008'CF     7D  00E8   242 	MOVQ	W^CLI$Q_RQDESC+VALUE_DESC,R9 ;GET THE DESCRIPTOR FOR THE CHAR

                          FF10'  30  00ED   243 	BSBW	ADDSTR			;PUT IT IN THE RESULT OPTION

                          E4     11  00F0   244 	BRB	10$			;LOOP THRU ANY MORE

                                     00F2   245 

                                     00F2   246 20$:	$GETKEYWORDNVAL	LIST=<-		;ACCEPT /COMMENT_DELIMITERS OF:

                                     00F2   247 				COLON,-

                                     00F2   248 				COMMA,-

                                     00F2   249 				FORM,-

                                     00F2   250 				TAB,-

                                     00F2   251 				LEFT,-

                                     00F2   252 				RIGHT,-

                                     00F2   253 				SEMI,-

                                     00F2   254 				SPACE,-

                                     00F2   255 				SLASH,-

                                     00F2   256 				EXCLAMATION>

                          FF0B'  30  00F2       	BSBW	GETKEYWORDNVAL

                                 3E' 00F5       	.BYTE	30099$-30100$

                                     00F6       30100$:

                                 05' 00F6       	.BYTE	$$CNT

                     4E 4F 4C 4F 43  00F7       	.ASCII	\COLON\

                                 05' 00FC       	.BYTE	$$CNT

                     41 4D 4D 4F 43  00FD       	.ASCII	\COMMA\

                                 04' 0102       	.BYTE	$$CNT

                        4D 52 4F 46  0103       	.ASCII	\FORM\

                                 03' 0107       	.BYTE	$$CNT

                           42 41 54  0108       	.ASCII	\TAB\

                                 04' 010B       	.BYTE	$$CNT

                        54 46 45 4C  010C       	.ASCII	\LEFT\

                                 05' 0110       	.BYTE	$$CNT

                     54 48 47 49 52  0111       	.ASCII	\RIGHT\

                                 04' 0116       	.BYTE	$$CNT

                        49 4D 45 53  0117       	.ASCII	\SEMI\

                                 05' 011B       	.BYTE	$$CNT

                     45 43 41 50 53  011C       	.ASCII	\SPACE\

                                 05' 0121       	.BYTE	$$CNT

                     48 53 41 4C 53  0122       	.ASCII	\SLASH\

                                 0B' 0127       	.BYTE	$$CNT

   4E 4F 49 54 41 4D 41 4C 43 58 45  0128       	.ASCII	\EXCLAMATION\

                                 00  0133       	.BYTE	0

                                     0134       30099$:

                                     0134   257 	$REPLACE	<:CL,:CM,:FF,:HT,:LB,:RB,:SE,:SP,:SL,:!>,10$

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   VAX-11 MACRO X0.3-11               Page  12

HJ01                                                                                                                             (3)



                          FEC9'  30  0134       	BSBW	REPLACE

                                 9E' 0137       	.BYTE	10$-30102$

                                     0138       30102$:

                                 FF  0138       	.BYTE	$$INDEX

                                 03  0139       	.BYTE	$$CNT

                           4C 43 3A  013A       	.ASCII	\:CL\

                                 FE  013D       	.BYTE	$$INDEX

                                 03  013E       	.BYTE	$$CNT

                           4D 43 3A  013F       	.ASCII	\:CM\

                                 FD  0142       	.BYTE	$$INDEX

                                 03  0143       	.BYTE	$$CNT

                           46 46 3A  0144       	.ASCII	\:FF\

                                 FC  0147       	.BYTE	$$INDEX

                                 03  0148       	.BYTE	$$CNT

                           54 48 3A  0149       	.ASCII	\:HT\

                                 FB  014C       	.BYTE	$$INDEX

                                 03  014D       	.BYTE	$$CNT

                           42 4C 3A  014E       	.ASCII	\:LB\

                                 FA  0151       	.BYTE	$$INDEX

                                 03  0152       	.BYTE	$$CNT

                           42 52 3A  0153       	.ASCII	\:RB\

                                 F9  0156       	.BYTE	$$INDEX

                                 03  0157       	.BYTE	$$CNT

                           45 53 3A  0158       	.ASCII	\:SE\

                                 F8  015B       	.BYTE	$$INDEX

                                 03  015C       	.BYTE	$$CNT

                           50 53 3A  015D       	.ASCII	\:SP\

                                 F7  0160       	.BYTE	$$INDEX

                                 03  0161       	.BYTE	$$CNT

                           4C 53 3A  0162       	.ASCII	\:SL\

                                 F6  0165       	.BYTE	$$INDEX

                                 02  0166       	.BYTE	$$CNT

                              21 3A  0167       	.ASCII	\:!\

                                     0169       30101$:

                                     0169   258 

                                     0169   259 DIFF_IGNORE:

                                     0169   260 	$SETSTRING	<>,FLAGS=<BTR$M_RETURN>,POS=<PRIM_INPUT>

                               0FFC  0169       	.WORD	SAVE_REG_MASK

                          FE92'  30  016B       	BSBW	SETSTRING

                                 05  016E       	.BYTE	$$$FLAGS

                                 00  016F       	.BYTE	0

                                 F6  0170       	.BYTE	PRIM_INPUT

                                 00  0171       	.BYTE	$$CNT

                                     0172   261 					;SET UP /IGNORE OPTION

                                     0172   262 10$:	$GETKEYWORD	LIST=<-		;ACCEPT /IGNORE:(COMMENTS,SPACING,...)

                                     0172   263 				BLANK_LINES,-

                                     0172   264 				COMMENTS,-

                                     0172   265 				FORM_FEEDS,-

                                     0172   266 				TRAILING_BLANKS,-

                                     0172   267 				SPACING>

                          FE8B'  30  0172       	BSBW	GETKEYWORD

                                 39' 0175       	.BYTE	30103$-30104$

                                     0176       30104$:

                                 0B' 0176       	.BYTE	$$CNT

   53 45 4E 49 4C 5F 4B 4E 41 4C 42  0177       	.ASCII	\BLANK_LINES\

                                 08' 0182       	.BYTE	$$CNT

            53 54 4E 45 4D 4D 4F 43  0183       	.ASCII	\COMMENTS\

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   VAX-11 MACRO X0.3-11               Page  13

HJ01                                                                                                                             (3)



                                 0A' 018B       	.BYTE	$$CNT

      53 44 45 45 46 5F 4D 52 4F 46  018C       	.ASCII	\FORM_FEEDS\

                                 0F' 0196       	.BYTE	$$CNT

41 4C 42 5F 47 4E 49 4C 49 41 52 54  0197       	.ASCII	\TRAILING_BLANKS\

                           53 4B 4E  01A3       

                                 07' 01A6       	.BYTE	$$CNT

               47 4E 49 43 41 50 53  01A7       	.ASCII	\SPACING\

                                 00  01AE       	.BYTE	0

                                     01AF       30103$:

                                     01AF   268 	$REPLACE	</BL,/CO,/FF,/TB,/MB>,10$

                          FE4E'  30  01AF       	BSBW	REPLACE

                                 BF' 01B2       	.BYTE	10$-30106$

                                     01B3       30106$:

                                 FF  01B3       	.BYTE	$$INDEX

                                 03  01B4       	.BYTE	$$CNT

                           4C 42 2F  01B5       	.ASCII	\/BL\

                                 FE  01B8       	.BYTE	$$INDEX

                                 03  01B9       	.BYTE	$$CNT

                           4F 43 2F  01BA       	.ASCII	\/CO\

                                 FD  01BD       	.BYTE	$$INDEX

                                 03  01BE       	.BYTE	$$CNT

                           46 46 2F  01BF       	.ASCII	\/FF\

                                 FC  01C2       	.BYTE	$$INDEX

                                 03  01C3       	.BYTE	$$CNT

                           42 54 2F  01C4       	.ASCII	\/TB\

                                 FB  01C7       	.BYTE	$$INDEX

                                 03  01C8       	.BYTE	$$CNT

                           42 4D 2F  01C9       	.ASCII	\/MB\

                                     01CC       30105$:

                                     01CC   269 

                                     01CC   270 DIFF_LINEWIDTH:

                                     01CC   271 	$GETDECNUM	</WD>		;SET UP /LINEWIDTH:N OPTION

                               0FFC  01CC       	.WORD	SAVE_REG_MASK

                          FE2F'  30  01CE       	BSBW	GETSTRING

                                 80  01D1       	.BYTE	$$$FLAGS

                                 00  01D2       	.BYTE	0

                                 03  01D3       	.BYTE	$$CNT

                           44 57 2F  01D4       	.ASCII	\/WD\

                                     01D7   272 

                                     01D7   273 DIFF_MATCH:

                                     01D7   274 	$GETDECNUM	</MS>		;SET UP /MATCH:N

                               0FFC  01D7       	.WORD	SAVE_REG_MASK

                          FE24'  30  01D9       	BSBW	GETSTRING

                                 80  01DC       	.BYTE	$$$FLAGS

                                 00  01DD       	.BYTE	0

                                 03  01DE       	.BYTE	$$CNT

                           53 4D 2F  01DF       	.ASCII	\/MS\

                                     01E2   275 

                                     01E2   276 DIFF_MAXDIFF:

                                     01E2   277 	$GETDECNUM	</MX>		;SET UP /MAXIMUM_DIFFERENCES:N

                               0FFC  01E2       	.WORD	SAVE_REG_MASK

                          FE19'  30  01E4       	BSBW	GETSTRING

                                 80  01E7       	.BYTE	$$$FLAGS

                                 00  01E8       	.BYTE	0

                                 03  01E9       	.BYTE	$$CNT

                           58 4D 2F  01EA       	.ASCII	\/MX\

                                     01ED   278 

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   VAX-11 MACRO X0.3-11               Page  14

HJ01                                                                                                                             (3)



                                     01ED   279 DIFF_MERGED:

                                     01ED   280 	$GETDECNUM	</MD>		;SET UP /MERGED_DIFFERENCES

                               0FFC  01ED       	.WORD	SAVE_REG_MASK

                          FE0E'  30  01EF       	BSBW	GETSTRING

                                 80  01F2       	.BYTE	$$$FLAGS

                                 00  01F3       	.BYTE	0

                                 03  01F4       	.BYTE	$$CNT

                           44 4D 2F  01F5       	.ASCII	\/MD\

                                     01F8   281 

                                     01F8   282 DIFF_MODE:

                                     01F8   283 	$SETSTRING	</OM>,FLAGS=<BTR$M_RETURN> ;SET UP /MODE OPTION

                               0FFC  01F8       	.WORD	SAVE_REG_MASK

                          FE03'  30  01FA       	BSBW	SETSTRING

                                 01  01FD       	.BYTE	$$$FLAGS

                                 00  01FE       	.BYTE	0

                                 03  01FF       	.BYTE	$$CNT

                           4D 4F 2F  0200       	.ASCII	\/OM\

                                     0203   284 10$:	$GETKEYWORD	LIST=<-		;ACCEPT /DEBUG:(ASCII,OCTAL,HEX)

                                     0203   285 				ASCII,-

                                     0203   286 				OCTAL,-

                                     0203   287 				HEXADECIMAL>

                          FDFA'  30  0203       	BSBW	GETKEYWORD

                                 19' 0206       	.BYTE	30107$-30108$

                                     0207       30108$:

                                 05' 0207       	.BYTE	$$CNT

                     49 49 43 53 41  0208       	.ASCII	\ASCII\

                                 05' 020D       	.BYTE	$$CNT

                     4C 41 54 43 4F  020E       	.ASCII	\OCTAL\

                                 0B' 0213       	.BYTE	$$CNT

   4C 41 4D 49 43 45 44 41 58 45 48  0214       	.ASCII	\HEXADECIMAL\

                                 00  021F       	.BYTE	0

                                     0220       30107$:

                                     0220   288 	$REPLACE	<:A,:O,:H>,10$

                          FDDD'  30  0220       	BSBW	REPLACE

                                 DF' 0223       	.BYTE	10$-30110$

                                     0224       30110$:

                                 FF  0224       	.BYTE	$$INDEX

                                 02  0225       	.BYTE	$$CNT

                              41 3A  0226       	.ASCII	\:A\

                                 FE  0228       	.BYTE	$$INDEX

                                 02  0229       	.BYTE	$$CNT

                              4F 3A  022A       	.ASCII	\:O\

                                 FD  022C       	.BYTE	$$INDEX

                                 02  022D       	.BYTE	$$CNT

                              48 3A  022E       	.ASCII	\:H\

                                     0230       30109$:

                                     0230   289 

                                     0230   290 DIFF_SEPARATE:

                                     0230   291 	$SETSTRING	</LD>		;SET UP /SEPARATE_DIFFERENCES

                               0FFC  0230       	.WORD	SAVE_REG_MASK

                          FDCB'  30  0232       	BSBW	SETSTRING

                                 00  0235       	.BYTE	$$$FLAGS

                                 00  0236       	.BYTE	0

                                 03  0237       	.BYTE	$$CNT

                           44 4C 2F  0238       	.ASCII	\/LD\

                                     023B   292 

                                     023B   293 DIFF_SLP:

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   VAX-11 MACRO X0.3-11               Page  15

HJ01                                                                                                                             (3)



                                     023B   294 	$SETSTRING	</SL>,FLAGS=<BTR$M_RETURN> ;PRODUCE SLP OUTPUT FILE

                               0FFC  023B       	.WORD	SAVE_REG_MASK

                          FDC0'  30  023D       	BSBW	SETSTRING

                                 01  0240       	.BYTE	$$$FLAGS

                                 00  0241       	.BYTE	0

                                 03  0242       	.BYTE	$$CNT

                           4C 53 2F  0243       	.ASCII	\/SL\

       01AF'CF            01     88  0246   295 	BISB	#1,W^SLPFLAG		;INDICATE /SLP USED

                                 04  024B   296 	RET				;RETURN TO CLI

                                     024C   297 

                                     024C   298 DIFF_WINDOW:

                                     024C   299 	$GETDECNUM	</MW>		;SET UP /WINDOW:N

                               0FFC  024C       	.WORD	SAVE_REG_MASK

                          FDAF'  30  024E       	BSBW	GETSTRING

                                 80  0251       	.BYTE	$$$FLAGS

                                 00  0252       	.BYTE	0

                                 03  0253       	.BYTE	$$CNT

                           57 4D 2F  0254       	.ASCII	\/MW\

                                     0257   300 

                                     0257   301 

                                     0257   302 	.END

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   VAX-11 MACRO X0.3-11               Page  16

SYMBOL TABLE                                                                                                                     (3)



$$$            = 00000004            CLI$B_QDCODE     00000001            CLI$L_RQVALU     0000000C            

$$$.           = 00000001            CLI$B_QDFLGS     00000002            CLI$L_USRVAL     00000014            

$$$FLAGS       = 00000080            CLI$B_QDSTAT     00000003            CLI$L_WORKAREA   00000000            

$$$GBL         = 00000000            CLI$B_RQFLGS     00000002            CLI$M_ABSADR   = 00000002            

$$CNT          = 00000003            CLI$B_RQINDX     00000001            CLI$M_ALLOCCUR = 00000001            

$$INDEX        = FFFFFFFC            CLI$B_RQSTAT     00000003            CLI$M_BATCH    = 00000008            

$$T1           = 00000003            CLI$B_RQTYPE     00000000            CLI$M_CONCATINP= 00000002            

$CLI.          = 00000197 R     03   CLI$C_QDBITS     00000014            CLI$M_DBGEXCP  = 00010000            

$CLI..         = 000001AE R     03   CLI$C_QUALDEF    00000014            CLI$M_DBGTRU   = 00000002            

$QUALNUM$      = 0000000D            CLI$C_REQDESC    0000001C            CLI$M_DEBUG    = 00000001            

ADDCHAR          ********   X   04   CLI$C_WORKAREA   00000080            CLI$M_DUMMY    = 00000002            

ADDSTR           ********   X   04   CLI$K_ASCIIVAL = 00000041            CLI$M_EXPNAM   = 00000004            

BIT...         = 00000008            CLI$K_CLISERV  = 00000005            CLI$M_INDIRECT = 00000010            

BITMAP           ********   X   03   CLI$K_DIFF_CHAN= 00000001            CLI$M_KEYVALU  = 00000002            

BTR$M_DECIMAL  = 00000080            CLI$K_DIFF_COMM= 00000002            CLI$M_LASTVAL  = 00000001            

BTR$M_EXPLICIT = 00000020            CLI$K_DIFF_IGNO= 00000003            CLI$M_MOREINP  = 00000004            

BTR$M_FORCE    = 00000002            CLI$K_DIFF_LINE= 00000004            CLI$M_MOREVALS = 00000001            

BTR$M_LIST     = 00000040            CLI$K_DIFF_MATC= 00000005            CLI$M_PARMDEF  = 00000008            

BTR$M_MULTKEY  = 00000010            CLI$K_DIFF_MAXI= 00000006            CLI$M_PARMPRS  = 00000001            

BTR$M_RETURN   = 00000001            CLI$K_DIFF_MERG= 00000007            CLI$M_PARMREQ  = 00000001            

BTR$M_TEMPPOS  = 00000004            CLI$K_DIFF_MODE= 00000008            CLI$M_QDEXPA   = 00000004            

BTR$M_VALREQ   = 00000008            CLI$K_DIFF_OUTP= 00000009            CLI$M_QDUSRV   = 00000002            

BTR$V_DECIMAL  = 00000007            CLI$K_DIFF_SEPA= 0000000A            CLI$M_QUALEXP  = 00000002            

BTR$V_EXPLICIT = 00000005            CLI$K_DIFF_SLP = 0000000B            CLI$M_QUALTRU  = 00000001            

BTR$V_FORCE    = 00000001            CLI$K_DIFF_WIND= 0000000C            CLI$M_TRMVRBLV = 00000300            

BTR$V_LIST     = 00000006            CLI$K_ENDPRM1  = 00000030            CLI$M_VERIFY   = 00000004            

BTR$V_MULTKEY  = 00000004            CLI$K_ENDPRM2  = 00000031            CLI$M_VFYINP   = 00000020            

BTR$V_RETURN   = 00000000            CLI$K_ENDPRM3  = 00000032            CLI$Q_QDVALDESC  00000004            

BTR$V_TEMPPOS  = 00000002            CLI$K_ENDPRM4  = 00000033            CLI$Q_RQDESC     00000008            

BTR$V_VALREQ   = 00000003            CLI$K_FILSPEC  = 00000044            CLI$S_PRITYP   = 00000004            

BTR$_AMBIGKEYW = 00688030            CLI$K_GETCMD   = 00000001            CLI$S_SUBTYP   = 00000004            

BTR$_ILLEGOPT  = 00688018            CLI$K_GETOPT   = 00000003            CLI$S_TRMVRBLV = 00000002            

BTR$_IMGFNF    = 00688060            CLI$K_GETQUAL  = 00000002            CLI$V_ABSADR   = 00000001            

BTR$_INTFAIL   = 00688048            CLI$K_INITPRS  = 00000000            CLI$V_ALLOCCUR = 00000000            

BTR$_INVALKEYW = 00688028            CLI$K_INPSPEC  = 00000001            CLI$V_BATCH    = 00000003            

BTR$_KEYVALOVR = 00688038            CLI$K_INPUT1   = 00000010            CLI$V_CONCATINP= 00000001            

BTR$_MISSNGVAL = 00688008            CLI$K_INPUT2   = 00000011            CLI$V_DBGEXCP  = 00000010            

BTR$_NOTIMPLEM = 00688020            CLI$K_INPUT3   = 00000012            CLI$V_DBGTRU   = 00000001            

BTR$_OPTVALOVR = 00688050            CLI$K_INPUT4   = 00000013            CLI$V_DEBUG    = 00000000            

BTR$_STRINGOVR = 00688010            CLI$K_KEYVAL   = 00000043            CLI$V_DUMMY    = 00000001            

BTR$_TOOMANY   = 00688058            CLI$K_KEYWORD  = 00000042            CLI$V_EXPNAM   = 00000002            

BTR$_UNEXPLIST = 00688040            CLI$K_NUMERVAL = 00000040            CLI$V_INDIRECT = 00000004            

BTRAN          = 00680000            CLI$K_OUTPUT1  = 00000020            CLI$V_KEYVALU  = 00000001            

CLI$A_ABSACT     00000014            CLI$K_OUTPUT2  = 00000021            CLI$V_LASTVAL  = 00000000            

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

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

CLI$A_IMGFILED   00000010            CLI$K_OUTSPEC  = 00000002            CLI$V_PARMDEF  = 00000003            

CLI$A_IMGHDADR   0000000C            CLI$K_PARDONE  = 00000003            CLI$V_PARMPRS  = 00000000            

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

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

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

CLI$A_QUALST     00000018            CLI$K_UTILOPR  = 00000000            CLI$V_QDUSRV   = 00000001            

CLI$A_RQADDR     0000000C            CLI$K_VALCONV  = 00000004            CLI$V_QUALEXP  = 00000001            

CLI$A_TRUACT     0000000C            CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            

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

CLI$B_BITNUM     00000001            CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            

CLI$B_QDBLKSIZ   00000000            CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   VAX-11 MACRO X0.3-11               Page  17

SYMBOL TABLE                                                                                                                     (3)



CLI$V_VFYINP   = 00000005            PRO_K_LENGTH     00000002            QUA_W_PROMPT     00000009            

CLI$W_QDVALSIZ   00000004            PRO_M_CONCAT   = 00000001            QUA_W_QUALIST    00000006            

CLI$W_RQSIZE     00000008            PRO_M_IMPCAT   = 00000002            REPLACE          ********   X   04   

CLI$W_SERVCOD    00000001            PRO_M_LIST     = 00000004            SAVE_REG_MASK  = 00000FFC            

CLIWORKAREA      ********   X   03   PRO_M_OPTION   = 00000008            SETSTRING        ********   X   04   

DIFF             00000003 RG    04   PRO_M_REQ      = 00000010            SLPFLAG          000001AF R     03   

DIFF_CHANGEBAR   0000007D R     04   PRO_M_STRING   = 00000020            TISTRING         00000000 R     04   

DIFF_COMMENT     000000CA R     04   PRO_V_CONCAT   = 00000000            VALUE_DESC       ********   X   04   

DIFF_IGNORE      00000169 R     04   PRO_V_IMPCAT   = 00000001            

DIFF_LINEWIDTH   000001CC R     04   PRO_V_LIST     = 00000002            

DIFF_MATCH       000001D7 R     04   PRO_V_OPTION   = 00000003            

DIFF_MAXDIFF     000001E2 R     04   PRO_V_REQ      = 00000004            

DIFF_MERGED      000001ED R     04   PRO_V_STRING   = 00000005            

DIFF_MODE        000001F8 R     04   QUAL_ARGLIST     0000009C R     03   

DIFF_SEPARATE    00000230 R     04   QUAL_DESC        000000AC R     03   

DIFF_SLP         0000023B R     04   QUAL_LIST        000000C8 R     03   

DIFF_WINDOW      0000024C R     04   QUA_B_DEFVAL     00000002            

ERR_EXIT         ********   X   04   QUA_B_IMAGE      00000005            

FATAL          = 00000004            QUA_B_INDEX      00000001            

GBL...         = 00000000            QUA_B_OFFSET     00000000            

GETKEYWORD       ********   X   04   QUA_B_PARMCNT    00000008            

GETKEYWORDNVAL   ********   X   04   QUA_G_CHNGLST    00000006            

GETSTRING        ********   X   04   QUA_M_BATDEF   = 00000100            

GETSUBVAL        ********   X   04   QUA_M_CHNGLIST = 00000001            

HOLDLOC          ********   X   04   QUA_M_DEFTRUE  = 00000080            

INPUT2_ARGLIST   0000002C R     03   QUA_M_FILE     = 00000004            

INPUT2_DESC      0000003C R     03   QUA_M_IMAGE    = 00000400            

INPUT_ARGLIST    00000000 R     03   QUA_M_INTDEF   = 00000200            

INPUT_DESC       00000010 R     03   QUA_M_KEYVAL   = 00004000            

INSERTARG        ********   X   04   QUA_M_LOCALKEY = 00000002            

LAST_PARAM     = FFFFFFEC            QUA_M_NEG      = 00000040            

LENTISTRING    = 00000003            QUA_M_ONEVAL   = 00002000            

NONE           = 00000000            QUA_M_OUTPUT   = 00000800            

OUTPUT_ARGLIST   00000070 R     03   QUA_M_PARM     = 00000010            

OUTPUT_DESC      00000080 R     03   QUA_M_VAL      = 00000020            

PARAMLOC         ********   X   04   QUA_M_VALREQ   = 00001000            

PARM_QUALS       00000058 R     03   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            

DIFFERENCES     - BACKTRANSLATOR FOR DIFF COMMAND                22-AUG-1978 05:28:57   VAX-11 MACRO X0.3-11               Page  18

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

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





THERE WERE NO ERRORS OR WARNINGS.

11830. BYTES LEFT IN FREE MEMORY POOL.

1218. BYTES OF RECLAIMED MEMORY.

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

61 MLB DIR RDS - 669 GETS TO DEFINE 39 MACROS. 134 INTER. FILE WRITES. 

