DIRECT          - BACKTRANSLATOR FOR DIRECT COMMAND              22-AUG-1978 05:17:50   VAX-11 MACRO X0.3-11               Page   1

HJ01                                                                                                                             (1)



                                     0000     1 	.TITLE	DIRECT - BACKTRANSLATOR FOR DIRECT 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.	AUGUST 1977

                                     0000    24 ;

                                     0000    25 ; BACKTRANSLATOR DIRECT

                                     0000    26 ;

DIRECT          - BACKTRANSLATOR FOR DIRECT COMMAND              22-AUG-1978 05:17:50   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:

DIRECT          - BACKTRANSLATOR FOR DIRECT COMMAND              22-AUG-1978 05:17:50   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 	$CLIDEFQUALDIRE			;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

DIRECT          - BACKTRANSLATOR FOR DIRECT COMMAND              22-AUG-1978 05:17:50   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

                           0000002C  0010       	.BLKB	CLI$C_REQDESC

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

                                 10  0010       	  .BYTE	CLI$K_INPUT1

                           0000002C  0011       	. = $CLI..

                                     002C    60 

                                     002C    61 OUTPUT_ARGLIST:

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

                                     002C    63 		OUTPUT_DESC,-		;FOR PRIMARY AND ONLY OUTPUT

                                     002C    64 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     002C    65 		BITMAP			;BIT ARRAY

                           00000003  002C       		.LONG	3

                           0000003C' 0030       		.LONG	OUTPUT_DESC

                           00000000' 0034       		.LONG	CLIWORKAREA

                           00000000' 0038       		.LONG	BITMAP

                                     003C    66 

                                     003C    67 OUTPUT_DESC:

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

                                     003C    69 		RQTYPE=CLI$K_OUTPUT1	;FOR PRIMARY OUTPUT

                           00000058  003C       	.BLKB	CLI$C_REQDESC

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

                                 20  003C       	  .BYTE	CLI$K_OUTPUT1

                           00000058  003D       	. = $CLI..

                                     0058    70 

                                     0058    71 

                                     0058    72 QUAL_ARGLIST:

                                     0058    73 	$ARGLST	3,-			;CREATE AN ARGUMENT LIST

DIRECT          - BACKTRANSLATOR FOR DIRECT COMMAND              22-AUG-1978 05:17:50   VAX-11 MACRO X0.3-11               Page   5

HJ01                                                                                                                             (2)



                                     0058    74 		QUAL_DESC,-		;FOR COMMAND QUALIFIERS

                                     0058    75 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     0058    76 		BITMAP			;BIT ARRAY

                           00000003  0058       		.LONG	3

                           00000068' 005C       		.LONG	QUAL_DESC

                           00000000' 0060       		.LONG	CLIWORKAREA

                           00000000' 0064       		.LONG	BITMAP

                                     0068    77 

                                     0068    78 QUAL_DESC:

                                     0068    79 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

                                     0068    80 		RQTYPE=CLI$K_GETQUAL,-	;FOR COMMAND QUALIFIERS

                                     0068    81 		QUALST=QUAL_LIST	;ADDRESS OF THE QUALIFIERS

                           00000084  0068       	.BLKB	CLI$C_REQDESC

                           00000068  0084       	. = $CLI.+CLI$B_RQTYPE

                                 02  0068       	  .BYTE	CLI$K_GETQUAL

                           00000080  0069       	. = $CLI.+CLI$A_QUALST

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

                                     0084    82 

                                     0084    83 

                                     0084    84 QUAL_LIST:

                                     0084    85 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0084    86 		QDCODE=CLI$K_DIRE_BRIE,-;/BRIEF

                                     0084    87 		TRUACT=DIRE_BRIEF	;CALL QUALIFIER HANDLER

                           00000098  0084       	.BLKB	CLI$C_QUALDEF

                           00000084  0098       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0084       	  .BYTE	30028$-.

                                 01  0085       	  .BYTE	CLI$K_DIRE_BRIE

                           00000090  0086       	. = $CLI.+CLI$A_TRUACT

                           FFFFFFD6' 0090       	    .LONG	<DIRE_BRIEF-$CLI.>

                           00000098  0094       . = $CLI..

                                 00  0098       	.BYTE	0

                                 00  0099       	.BYTE	0

                                 00  009A       	.BYTE	0

                                     009B       30028$:

                                     009B    88 

                                     009B    89 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     009B    90 		QDCODE=CLI$K_DIRE_FULL,-;/FULL

                                     009B    91 		TRUACT=DIRE_FULL	;CALL QUALIFIER HANDLER

                           000000AF  009B       	.BLKB	CLI$C_QUALDEF

                           0000009B  00AF       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 009B       	  .BYTE	30032$-.

                                 04  009C       	  .BYTE	CLI$K_DIRE_FULL

                           000000A7  009D       	. = $CLI.+CLI$A_TRUACT

                           FFFFFFCA' 00A7       	    .LONG	<DIRE_FULL-$CLI.>

                           000000AF  00AB       . = $CLI..

                                 00  00AF       	.BYTE	0

                                 00  00B0       	.BYTE	0

                                 00  00B1       	.BYTE	0

                                     00B2       30032$:

                                     00B2    92 

                                     00B2    93 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00B2    94 		QDCODE=CLI$K_DIRE_PRIN,-;/PRINTER

                                     00B2    95 		TRUACT=DIRE_PRINTER	;CALL QUALIFIER HANDLER

                           000000C6  00B2       	.BLKB	CLI$C_QUALDEF

                           000000B2  00C6       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 00B2       	  .BYTE	30036$-.

                                 06  00B3       	  .BYTE	CLI$K_DIRE_PRIN

DIRECT          - BACKTRANSLATOR FOR DIRECT COMMAND              22-AUG-1978 05:17:50   VAX-11 MACRO X0.3-11               Page   6

HJ01                                                                                                                             (2)



                           000000BE  00B4       	. = $CLI.+CLI$A_TRUACT

                           FFFFFFBE' 00BE       	    .LONG	<DIRE_PRINTER-$CLI.>

                           000000C6  00C2       . = $CLI..

                                 00  00C6       	.BYTE	0

                                 00  00C7       	.BYTE	0

                                 00  00C8       	.BYTE	0

                                     00C9       30036$:

                                     00C9    96 

                                     00C9    97 ;	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00C9    98 ;		QDCODE=CLI$K_DIRE_TERM	;/TERMINAL IS A NOP

                                     00C9    99 

                                     00C9   100 ;	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00C9   101 ;		QDCODE=CLI$K_DIRE_RT11,-;/RT11

                                     00C9   102 ;		TRUACT=DIRE_RT11	;CALL QUALIFIER HANDLER

                                     00C9   103 

                                     00C9   104 ;	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00C9   105 ;		QDCODE=CLI$K_DIRE_DOS1,-;/DOS11

                                     00C9   106 ;		TRUACT=DIRE_DOS11	;CALL QUALIFIER HANDLER

                                     00C9   107 

                                     00C9   108 

                                     00C9   109 	$CLIQUALDESC	END_LIST	;TERMINATE THE QUALIFIER LIST

                                 00  00C9       	.BYTE	0

                                     00CA   110 

                               0000  00CA   111 DIRFLAG:	.WORD	0		;NON-ZERO IF /OUTPUT:SPEC OR /PRINTER

DIRECT          - BACKTRANSLATOR FOR DIRECT COMMAND              22-AUG-1978 05:17:50   VAX-11 MACRO X0.3-11               Page   7

HJ01                                                                                                                             (3)



                                     00CC   113 ;	.SBTTL DIRECTORY

                                     00CC   114 ;+

                                     00CC   115 ; BACKTRANSLATOR DIRECTORY

                                     00CC   116 ;

                                     00CC   117 ; CONVERTS DCL COMMAND TO COMPATIBILITY MODE IMAGE COMMAND

                                     00CC   118 ;

                                     00CC   119 ;

                                     00CC   120 ; INPUTS:

                                     00CC   121 ;  THE INPUTS ARE RETURNED FROM THE DCL RESULT PARSER AS RESPONSES

                                     00CC   122 ;  TO THE VARIOUS REQUEST DESCRIPTORS THAT ARE GIVEN TO IT.

                                     00CC   123 ;

                                     00CC   124 ;

                                     00CC   125 ; OUTPUTS:

                                     00CC   126 ;  THE OUTPUT CONSISTS OF TWO STRINGS OR AN ERROR MESSAGE AND ABORT.

                                     00CC   127 ;  THE CALLER OPENS THE IMAGE AND INVOKES THE COMPATIBILITY EMULATOR

                                     00CC   128 ;  IF NO ERROR OCCURS.

                                     00CC   129 ;

                                     00CC   130 ;  1- FILENAME STRING OF COMPATIBILITY MODE IMAGE TO BE ACTIVATED.

                                     00CC   131 ;

                                     00CC   132 ;  2- COMMAND LINE TO BE GIVEN TO THE IMAGE.

                                     00CC   133 ;

                                     00CC   134 ;-

                                     00CC   135 

                                     00CC   136 	PURE

                                 00000000       	.PSECT	PURE_	BYTE,RD,EXE,NOWRT

                                     0000   137 

                                     0000   138 DIRE::

                                 FA  0000   139 	CALLG	W^OUTPUT_ARGLIST,-	;PROCESS PRIMARY OUTPUT (/OUTPUT:SPEC)

         08 BC       002C'CF         0001   140 		@CLI$A_UTILSERV(AP)

            59       0044'CF     7D  0006   141 	MOVQ	W^CLI$Q_RQDESC+OUTPUT_DESC,R9 ;PICK UP STRING DESCRIPTOR

       00CA'CF            59     B0  000B   142 	MOVW	R9,W^DIRFLAG		;SET DIRFLAG BASED ON SPEC ON /OUTPUT:

                          FFED'  30  0010   143 	BSBW	INSERTARG		;SAVE IT AS PRIMARY OUTPUT

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

                                 FA  0019   145 	CALLG	W^QUAL_ARGLIST,-	;PROCESS COMMAND QUALIFIER OPTIONS

         08 BC       0058'CF         001A   146 		@CLI$A_UTILSERV(AP)

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

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

                                 FA  0029   149 	CALLG	W^INPUT_ARGLIST,-	;PROCESS THE PRIMARY INPUT

         08 BC       0000'CF         002A   150 		@CLI$A_UTILSERV(AP)

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

                          FFC9'  30  0034   152 	BSBW	INSERTARG		;SAVE IT AS PRIMARY INPUT

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

       0013'CF            01         0038   154 		W^CLI$B_RQSTAT+INPUT_DESC,10$

                          E8         003C       

                                     003D   155 	$SETSTRING	</LI>,TYPE=INLINE ;ALWAYS TURN ON /LI OPTION

                          FFC0'  30  003D       	BSBW	SETSTRING

                                 01  0040       	.BYTE	$$$FLAGS

                                 00  0041       	.BYTE	0

                                 03  0042       	.BYTE	$$CNT

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

                     00CA'CF     B5  0046   156 	TSTW	W^DIRFLAG		;DID AN OUTPUT EXPLICITLY GET SET?

                          0A     12  004A   157 	BNEQ	20$			;BRANCH IF YES

                                     004C   158 	$SETSTRING	<TI:>,TYPE=INLINE,POS=<PRIM_OUTPUT> ;SET EXPLICIT TI:

                          FFB1'  30  004C       	BSBW	SETSTRING

                                 05  004F       	.BYTE	$$$FLAGS

                                 00  0050       	.BYTE	0

                                 00  0051       	.BYTE	PRIM_OUTPUT

DIRECT          - BACKTRANSLATOR FOR DIRECT COMMAND              22-AUG-1978 05:17:50   VAX-11 MACRO X0.3-11               Page   8

HJ01                                                                                                                             (3)



                                 03  0052       	.BYTE	$$CNT

                           3A 49 54  0053       	.ASCII	\TI:\

                                     0056   159 20$:	DEFPROG	PIP			;RETURN DEFAULT PROGRAM TO RUN

            50            01     D0  0056       	MOVL	#PROG_PIP,R0

                                 05  0059   160 	RSB				;RETURN TO GENERATE COMMAND TEXT

                                     005A   161 

                                     005A   162 

                                     005A   163 

                                     005A   164 DIRE_BRIEF:

                                     005A   165 	$SETSTRING	</BR>		;GENERATE /BR OPTION

                               0FFC  005A       	.WORD	SAVE_REG_MASK

                          FFA1'  30  005C       	BSBW	SETSTRING

                                 00  005F       	.BYTE	$$$FLAGS

                                 00  0060       	.BYTE	0

                                 03  0061       	.BYTE	$$CNT

                           52 42 2F  0062       	.ASCII	\/BR\

                                     0065   166 

                                     0065   167 DIRE_FULL:

                                     0065   168 	$SETSTRING	</FU>		;GENERATE /FU OPTION

                               0FFC  0065       	.WORD	SAVE_REG_MASK

                          FF96'  30  0067       	BSBW	SETSTRING

                                 00  006A       	.BYTE	$$$FLAGS

                                 00  006B       	.BYTE	0

                                 03  006C       	.BYTE	$$CNT

                           55 46 2F  006D       	.ASCII	\/FU\

                                     0070   169 

                                     0070   170 DIRE_PRINTER:

                                     0070   171 	$SETSTRING	<LP:DIRECT.LOG>,POS=PRIM_OUTPUT,FLAGS=<BTR$M_RETURN>

                               0FFC  0070       	.WORD	SAVE_REG_MASK

                          FF8B'  30  0072       	BSBW	SETSTRING

                                 05  0075       	.BYTE	$$$FLAGS

                                 00  0076       	.BYTE	0

                                 00  0077       	.BYTE	PRIM_OUTPUT

                                 0D  0078       	.BYTE	$$CNT

4F 4C 2E 54 43 45 52 49 44 3A 50 4C  0079       	.ASCII	\LP:DIRECT.LOG\

                                 47  0085       

                                     0086   172 					;GENERATE OUTPUT TO LINEPRINTER

                     00CA'CF     B6  0086   173 	INCW	W^DIRFLAG		;SET FLAG NON-ZERO IF /PRINTER OCCURED

                                 04  008A   174 	RET				;RETURN TO CLI

                                     008B   175 

                                     008B   176 ;DIRE_RT11:

                                     008B   177 ;	$SETSTRING	</RT>,FLX,FLAGS=<BTR$M_FORCE>

                                     008B   178 ;					;DO A DIRECTORY LISTING OF RT DEVICE

                                     008B   179 ;

                                     008B   180 ;DIRE_DOS11:

                                     008B   181 ;	$SETSTRING	</DO>,FLX,FLAGS=<BTR$M_FORCE>

                                     008B   182 ;					;DO A DIRECTORY LISTING OF DOS DEVICE

                                     008B   183 ;

                                     008B   184 

                                     008B   185 	.END

DIRECT          - BACKTRANSLATOR FOR DIRECT COMMAND              22-AUG-1978 05:17:50   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (3)



$$$            = 00000004            CLI$B_RQINDX     00000001            CLI$M_DUMMY    = 00000002            

$$$FLAGS       = 00000005            CLI$B_RQSTAT     00000003            CLI$M_EXPNAM   = 00000004            

$$$GBL         = 00000000            CLI$B_RQTYPE     00000000            CLI$M_INDIRECT = 00000010            

$$CNT          = 0000000D            CLI$C_QDBITS     00000014            CLI$M_KEYVALU  = 00000002            

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

$CLI.          = 000000B2 R     03   CLI$C_REQDESC    0000001C            CLI$M_MOREINP  = 00000004            

$CLI..         = 000000C9 R     03   CLI$C_WORKAREA   00000080            CLI$M_MOREVALS = 00000001            

$QUALNUM$      = 00000008            CLI$K_ASCIIVAL = 00000041            CLI$M_PARMDEF  = 00000008            

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

BITMAP           ********   X   03   CLI$K_COPY_ZZZZ= 00000007            CLI$M_PARMREQ  = 00000001            

BTR$M_DECIMAL  = 00000080            CLI$K_DIRE_BRIE= 00000001            CLI$M_QDEXPA   = 00000004            

BTR$M_EXPLICIT = 00000020            CLI$K_DIRE_COLU= 00000002            CLI$M_QDUSRV   = 00000002            

BTR$M_FORCE    = 00000002            CLI$K_DIRE_FULL= 00000004            CLI$M_QUALEXP  = 00000002            

BTR$M_LIST     = 00000040            CLI$K_DIRE_OUTP= 00000005            CLI$M_QUALTRU  = 00000001            

BTR$M_MULTKEY  = 00000010            CLI$K_DIRE_PRIN= 00000006            CLI$M_TRMVRBLV = 00000300            

BTR$M_RETURN   = 00000001            CLI$K_ENDPRM1  = 00000030            CLI$M_VERIFY   = 00000004            

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

BTR$M_VALREQ   = 00000008            CLI$K_ENDPRM3  = 00000032            CLI$Q_QDVALDESC  00000004            

BTR$V_DECIMAL  = 00000007            CLI$K_ENDPRM4  = 00000033            CLI$Q_RQDESC     00000008            

BTR$V_EXPLICIT = 00000005            CLI$K_FILSPEC  = 00000044            CLI$S_PRITYP   = 00000004            

BTR$V_FORCE    = 00000001            CLI$K_GETCMD   = 00000001            CLI$S_SUBTYP   = 00000004            

BTR$V_LIST     = 00000006            CLI$K_GETOPT   = 00000003            CLI$S_TRMVRBLV = 00000002            

BTR$V_MULTKEY  = 00000004            CLI$K_GETQUAL  = 00000002            CLI$V_ABSADR   = 00000001            

BTR$V_RETURN   = 00000000            CLI$K_INITPRS  = 00000000            CLI$V_ALLOCCUR = 00000000            

BTR$V_TEMPPOS  = 00000002            CLI$K_INPSPEC  = 00000001            CLI$V_BATCH    = 00000003            

BTR$V_VALREQ   = 00000003            CLI$K_INPUT1   = 00000010            CLI$V_CONCATINP= 00000001            

BTR$_AMBIGKEYW = 00688030            CLI$K_INPUT2   = 00000011            CLI$V_DBGEXCP  = 00000010            

BTR$_ILLEGOPT  = 00688018            CLI$K_INPUT3   = 00000012            CLI$V_DBGTRU   = 00000001            

BTR$_IMGFNF    = 00688060            CLI$K_INPUT4   = 00000013            CLI$V_DEBUG    = 00000000            

BTR$_INTFAIL   = 00688048            CLI$K_KEYVAL   = 00000043            CLI$V_DUMMY    = 00000001            

BTR$_INVALKEYW = 00688028            CLI$K_KEYWORD  = 00000042            CLI$V_EXPNAM   = 00000002            

BTR$_KEYVALOVR = 00688038            CLI$K_NUMERVAL = 00000040            CLI$V_INDIRECT = 00000004            

BTR$_MISSNGVAL = 00688008            CLI$K_OUTPUT1  = 00000020            CLI$V_KEYVALU  = 00000001            

BTR$_NOTIMPLEM = 00688020            CLI$K_OUTPUT2  = 00000021            CLI$V_LASTVAL  = 00000000            

BTR$_OPTVALOVR = 00688050            CLI$K_OUTPUT3  = 00000022            CLI$V_MOREINP  = 00000002            

BTR$_STRINGOVR = 00688010            CLI$K_OUTPUT4  = 00000023            CLI$V_MOREVALS = 00000000            

BTR$_TOOMANY   = 00688058            CLI$K_OUTSPEC  = 00000002            CLI$V_PARMDEF  = 00000003            

BTR$_UNEXPLIST = 00688040            CLI$K_PARDONE  = 00000003            CLI$V_PARMPRS  = 00000000            

BTRAN          = 00680000            CLI$K_QDBITS     00000014            CLI$V_PARMREQ  = 00000000            

CLI$A_ABSACT     00000014            CLI$K_QUALDEF    00000014            CLI$V_PRITYP   = 00000004            

CLI$A_ERRACT     00000004            CLI$K_REQDESC    0000001C            CLI$V_QDEXPA   = 00000002            

CLI$A_FLSACT     00000010            CLI$K_UTILOPR  = 00000000            CLI$V_QDUSRV   = 00000001            

CLI$A_IMGFILED   00000010            CLI$K_VALCONV  = 00000004            CLI$V_QUALEXP  = 00000001            

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

CLI$A_PROGXFER   00000004            CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            

CLI$A_PRSACT     00000010            CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            

CLI$A_QDVALADR   00000008            CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            

CLI$A_QUALST     00000018            CLI$L_RQVALU     0000000C            CLI$V_VFYINP   = 00000005            

CLI$A_RQADDR     0000000C            CLI$L_USRVAL     00000014            CLI$W_QDVALSIZ   00000004            

CLI$A_TRUACT     0000000C            CLI$L_WORKAREA   00000000            CLI$W_RQSIZE     00000008            

CLI$A_UTILSERV   00000008            CLI$M_ABSADR   = 00000002            CLI$W_SERVCOD    00000001            

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

CLI$B_QDBLKSIZ   00000000            CLI$M_BATCH    = 00000008            DIRE             00000000 RG    04   

CLI$B_QDCODE     00000001            CLI$M_CONCATINP= 00000002            DIRE_BRIEF       0000005A R     04   

CLI$B_QDFLGS     00000002            CLI$M_DBGEXCP  = 00010000            DIRE_FULL        00000065 R     04   

CLI$B_QDSTAT     00000003            CLI$M_DBGTRU   = 00000002            DIRE_PRINTER     00000070 R     04   

CLI$B_RQFLGS     00000002            CLI$M_DEBUG    = 00000001            DIRFLAG          000000CA R     03   

DIRECT          - BACKTRANSLATOR FOR DIRECT COMMAND              22-AUG-1978 05:17:50   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (3)



FATAL          = 00000004            QUA_M_IMAGE    = 00000400            

GBL...         = 00000000            QUA_M_INTDEF   = 00000200            

HOLDLOC          ********   X   04   QUA_M_KEYVAL   = 00004000            

INPUT_ARGLIST    00000000 R     03   QUA_M_LOCALKEY = 00000002            

INPUT_DESC       00000010 R     03   QUA_M_NEG      = 00000040            

INSERTARG        ********   X   04   QUA_M_ONEVAL   = 00002000            

LAST_PARAM     = FFFFFFEC            QUA_M_OUTPUT   = 00000800            

NONE           = 00000000            QUA_M_PARM     = 00000010            

OUTPUT_ARGLIST   0000002C R     03   QUA_M_VAL      = 00000020            

OUTPUT_DESC      0000003C 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            

PRO_V_OPTION   = 00000003            

PRO_V_REQ      = 00000004            

PRO_V_STRING   = 00000005            

QUAL_ARGLIST     00000058 R     03   

QUAL_DESC        00000068 R     03   

QUAL_LIST        00000084 R     03   

QUA_B_DEFVAL     00000002            

QUA_B_IMAGE      00000005            

QUA_B_INDEX      00000001            

QUA_B_OFFSET     00000000            

QUA_B_PARMCNT    00000008            

QUA_G_CHNGLST    00000006            

QUA_M_BATDEF   = 00000100            

QUA_M_CHNGLIST = 00000001            

QUA_M_DEFTRUE  = 00000080            

QUA_M_FILE     = 00000004            

DIRECT          - BACKTRANSLATOR FOR DIRECT COMMAND              22-AUG-1978 05:17:50   VAX-11 MACRO X0.3-11               Page  11

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

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





THERE WERE NO ERRORS OR WARNINGS.

13268. BYTES LEFT IN FREE MEMORY POOL.

2036. BYTES OF RECLAIMED MEMORY.

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

58 MLB DIR RDS - 606 GETS TO DEFINE 33 MACROS. 91 INTER. FILE WRITES. 

