DELETE          - BACKTRANSLATOR FOR DELETE COMMAND              22-AUG-1978 05:18:25   VAX-11 MACRO X0.3-11               Page   1

HJ                                                                                                                               (1)



                                     0000     1 	.TITLE	DELETE - BACKTRANSLATOR FOR DELETE COMMAND

                                     0000     2 	.IDENT	/HJ/

                                     0000     3  

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

                                     0000     7 ;

                                     0000     8 ; THIS SOFTWARE IS FURNISHED UNDER  A LICENSE FOR USE ONLY  ON  A

                                     0000     9 ; SINGLE COMPUTER SYSTEM AND MAY BE  COPIED ONLY WITH  THE INCLU-

                                     0000    10 ; SION OF  THE  ABOVE  COPYRIGHT NOTICE.  THIS SOFTWARE,  OR  ANY

                                     0000    11 ; OTHER COPIES THEREOF, MAY NOT BE  PROVIDED  OR  OTHERWISE  MADE

                                     0000    12 ; AVAILABLE TO ANY OTHER PERSON EXCEPT  FOR  USE  ON  SUCH SYSTEM

                                     0000    13 ; AND TO  ONE WHO AGREES  TO  THESE LICENSE  TERMS.  TITLE TO AND

                                     0000    14 ; OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

                                     0000    15 ;

                                     0000    16 ; THE INFORMATION IN THIS SOFTWARE  IS  SUBJECT TO CHANGE WITHOUT

                                     0000    17 ; NOTICE AND SHOULD NOT BE CONSTRUED  AS  A COMMITMENT BY DIGITAL

                                     0000    18 ; EQUIPMENT CORPORATION.

                                     0000    19 ;

                                     0000    20 ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS

                                     0000    21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

                                     0000    22 ;

                                     0000    23 ; H.J.	AUGUST 1977

                                     0000    24 ;

                                     0000    25 ; BACKTRANSLATOR DELETE

                                     0000    26 ;

DELETE          - BACKTRANSLATOR FOR DELETE COMMAND              22-AUG-1978 05:18:25   VAX-11 MACRO X0.3-11               Page   2

HJ                                                                                                                               (2)



                                     0000    28 ;	.SBTTL INITIALIZE DATA DEFINITIONS

                                     0000    29 ;

                                     0000    30 ; MACRO LIBRARY CALLS

                                     0000    31 ;

                                     0000    32 	$BTDEFS				;DEFINE VALUES TO BE USED LOCALLY

                                     0000       	.SAVE

                                 00000000       	.PSECT	$ABS$,ABS

                                     0000       	.RESTORE

                                     0000    33 	$CLIDEF				;DEFINE CLI CODES AND VALUES

                                     0000       	.SAVE

                                 00000000       	.PSECT	$ABS$,ABS

                                     0000       CLI$L_INIARGCNT:

                           00000004  0000        			.BLKL	1

                                     0004       CLI$A_PROGXFER:

                           00000008  0004        			.BLKL	1

                                     0008       CLI$A_UTILSERV:

                           0000000C  0008        			.BLKL	1

                                     000C       CLI$A_IMGHDADR:

                           00000010  000C        			.BLKL	1

                                     0010       CLI$A_IMGFILED:

                           00000014  0010        			.BLKL	1

                                     0014       CLI$L_LINKFLAG:

                           00000018  0014        			.BLKL	1

                                     0018       CLI$L_CLIFLAG:

                           0000001C  0018        			.BLKL	1

                           00000000  001C        	. = 0

                                     0000       CLI$B_RQTYPE:

                           00000001  0000        			.BLKB	1

                                     0001       CLI$W_SERVCOD:

                                     0001       CLI$B_RQINDX:

                                     0001       CLI$B_BITNUM:

                           00000002  0001        			.BLKB	1

                                     0002       CLI$B_RQFLGS:

                           00000003  0002        			.BLKB	1

                                     0003       CLI$B_RQSTAT:

                           00000004  0003        			.BLKB	1

                                     0004       CLI$A_ERRACT:

                           00000008  0004        			.BLKL	1

                                     0008       CLI$Q_RQDESC:

                                     0008       CLI$W_RQSIZE:

                           0000000A  0008        			.BLKW	1

                           0000000C  000A        			.BLKW	1

                                     000C       CLI$L_RQVALU:

                                     000C       CLI$A_RQADDR:

                           00000010  000C        			.BLKL	1

                                     0010       CLI$A_PRSACT:

                           00000014  0010        			.BLKL	1

                                     0014       CLI$A_ABSACT:

                           00000018  0014        			.BLKL	1

                                     0018       CLI$A_QUALST:

                           0000001C  0018        			.BLKL	1

                                     001C       CLI$C_REQDESC:

                                     001C       CLI$K_REQDESC:

                           00000000  001C        	. = 0

                                     0000       CLI$B_QDBLKSIZ:

                           00000001  0000        			.BLKB	1

                                     0001       CLI$B_QDCODE:

DELETE          - BACKTRANSLATOR FOR DELETE COMMAND              22-AUG-1978 05:18:25   VAX-11 MACRO X0.3-11               Page   3

HJ                                                                                                                               (2)



                           00000002  0001        			.BLKB	1

                                     0002       CLI$B_QDFLGS:

                           00000003  0002        			.BLKB	1

                                     0003       CLI$B_QDSTAT:

                           00000004  0003        			.BLKB	1

                                     0004       CLI$Q_QDVALDESC:

                                     0004       CLI$W_QDVALSIZ:

                           00000006  0004        			.BLKW	1

                           00000008  0006        			.BLKW	1

                                     0008       CLI$A_QDVALADR:

                           0000000C  0008        			.BLKL	1

                                     000C       CLI$A_TRUACT:

                           00000010  000C        			.BLKL	1

                                     0010       CLI$A_FLSACT:

                           00000014  0010        			.BLKL	1

                                     0014       CLI$C_QUALDEF:

                                     0014       CLI$K_QUALDEF:

                                     0014       CLI$C_QDBITS:

                                     0014       CLI$K_QDBITS:

                                     0014       CLI$L_USRVAL:

                           00000018  0014        			.BLKL	1

                           00000000  0018        	. = 0

                                     0000       CLI$L_WORKAREA:

                           00000080  0000        			.BLKL	32

                                     0080       CLI$C_WORKAREA:

                                     0080       CLI$K_WORKAREA:

                                     0000       	.RESTORE

                                     0000    34 	$CLIDEFQUALDELE			;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

DELETE          - BACKTRANSLATOR FOR DELETE COMMAND              22-AUG-1978 05:18:25   VAX-11 MACRO X0.3-11               Page   4

HJ                                                                                                                               (2)



                                     0000       	.RESTORE

                                     0000    35 

                                     0000    36 ;

                                     0000    37 ; LOCAL SYMBOLS

                                     0000    38 ;

                                     0000    39 

                                     0000    40 ;

                                     0000    41 ; ARGUMENT LIST OFFSET DEFINITIONS

                                     0000    42 ;

                                     0000    43 

                                     0000    44 ;

                                     0000    45 ; LOCAL DATA

                                     0000    46 ;

                                     0000    47 	IMPURE

                                 00000000       	.PSECT	IMPURE_	LONG,RD,WRT,NOEXE

                                     0000    48 ;

                                     0000    49 ;

                                     0000    50 ;

                                     0000    51 INPUT_ARGLIST:

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

                                     0000    53 		INPUT_DESC,-		;FOR FIRST INPUT PARAMETER

                                     0000    54 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     0000    55 		BITMAP			;BIT ARRAY

                           00000003  0000       		.LONG	3

                           00000010' 0004       		.LONG	INPUT_DESC

                           00000000' 0008       		.LONG	CLIWORKAREA

                           00000000' 000C       		.LONG	BITMAP

                                     0010    56 

                                     0010    57 INPUT_DESC:

                                     0010    58 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

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

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

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

                           0000002C  0013       	. = $CLI..

                                     002C    61 

                                     002C    62 

                                     002C    63 ;QUAL_ARGLIST:

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

                                     002C    65 ;		QUAL_DESC,-		;FOR COMMAND QUALIFIERS

                                     002C    66 ;		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     002C    67 ;		BITMAP			;BIT ARRAY

                                     002C    68 

                                     002C    69 ;QUAL_DESC:

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

                                     002C    71 ;		RQTYPE=CLI$K_GETQUAL,-	;FOR COMMAND QUALIFIERS

                                     002C    72 ;		QUALST=QUAL_LIST	;ADDRESS OF THE QUALIFIERS

                                     002C    73 

                                     002C    74 

                                     002C    75 ;QUAL_LIST:

                                     002C    76 ;	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     002C    77 ;		QDCODE=CLI$K_DELE_DIRE,-;/DIECTORY

                                     002C    78 ;		TRUACT=DELE_DIRECTORY	;CALL QUALIFIER HANDLER

                                     002C    79 

DELETE          - BACKTRANSLATOR FOR DELETE COMMAND              22-AUG-1978 05:18:25   VAX-11 MACRO X0.3-11               Page   5

HJ                                                                                                                               (2)



                                     002C    80 ;	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     002C    81 ;		QDCODE=CLI$K_DELE_FILE,-;/FULL

                                     002C    82 ;		TRUACT=DELE_FULL	;CALL QUALIFIER HANDLER

                                     002C    83 

                                     002C    84 ;	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     002C    85 ;		QDCODE=CLI$K_DELE_RT11,-;/RT11

                                     002C    86 ;		TRUACT=DELE_RT11	;CALL QUALIFIER HANDLER

                                     002C    87 

                                     002C    88 ;	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     002C    89 ;		QDCODE=CLI$K_DELE_DOS1,-;/DOS11

                                     002C    90 ;		TRUACT=DELE_DOS11	;CALL QUALIFIER HANDLER

                                     002C    91 

                                     002C    92 

                                     002C    93 ;	$CLIQUALDESC	END_LIST	;TERMINATE THE QUALIFIER LIST

DELETE          - BACKTRANSLATOR FOR DELETE COMMAND              22-AUG-1978 05:18:25   VAX-11 MACRO X0.3-11               Page   6

HJ                                                                                                                               (3)



                                     002C    95 ;	.SBTTL DELETE

                                     002C    96 ;+

                                     002C    97 ; BACKTRANSLATOR DELETE

                                     002C    98 ;

                                     002C    99 ; CONVERTS DCL COMMAND TO COMPATIBILITY MODE IMAGE COMMAND

                                     002C   100 ;

                                     002C   101 ;

                                     002C   102 ; INPUTS:

                                     002C   103 ;  THE INPUTS ARE RETURNED FROM THE DCL RESULT PARSER AS RESPONSES

                                     002C   104 ;  TO THE VARIOUS REQUEST DESCRIPTORS THAT ARE GIVEN TO IT.

                                     002C   105 ;

                                     002C   106 ;

                                     002C   107 ; OUTPUTS:

                                     002C   108 ;  THE OUTPUT CONSISTS OF TWO STRINGS OR AN ERROR MESSAGE AND ABORT.

                                     002C   109 ;  THE CALLER OPENS THE IMAGE AND INVOKES THE COMPATIBILITY EMULATOR

                                     002C   110 ;  IF NO ERROR OCCURS.

                                     002C   111 ;

                                     002C   112 ;  1- FILENAME STRING OF COMPATIBILITY MODE IMAGE TO BE ACTIVATED.

                                     002C   113 ;

                                     002C   114 ;  2- COMMAND LINE TO BE GIVEN TO THE IMAGE.

                                     002C   115 ;

                                     002C   116 ;-

                                     002C   117 

                                     002C   118 	PURE

                                 00000000       	.PSECT	PURE_	BYTE,RD,EXE,NOWRT

                                     0000   119 

                                     0000   120 DELE::

                                     0000   121 ;	CALLG	W^QUAL_ARGLIST,-	;PROCESS COMMAND OPTIONS

                                     0000   122 ;		@CLI$A_UTILSERV(AP)

                                     0000   123 	$SETSTRING	</DE>,TYPE=INLINE ;ALWAYS TURN ON /DE OPTION

                          FFFD'  30  0000       	BSBW	SETSTRING

                                 01  0003       	.BYTE	$$$FLAGS

                                 00  0004       	.BYTE	0

                                 03  0005       	.BYTE	$$CNT

                           45 44 2F  0006       	.ASCII	\/DE\

                                 FA  0009   124 10$:	CALLG	W^INPUT_ARGLIST,-	;PROCESS INPUTS

         08 BC       0000'CF         000A   125 		@CLI$A_UTILSERV(AP)

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

                          FFE9'  30  0014   127 	BSBW	INSERTARG		;SAVE IT AS PRIMARY OUTPUT

                     0000'CF     97  0017   128 	DECB	W^PARAMLOC		;SET UP TO PUT NEXT SPEC IN NEXT SPOT

                                 E0  001B   129 	BBS	#CLI$V_CONCATINP,-	;BRANCH IF MORE INPUTS

       0013'CF            01         001C   130 		W^CLI$B_RQSTAT+INPUT_DESC,10$

                          E8         0020       

                                     0021   131 	DEFPROG	PIP			;RETURN DEFAULT PROGRAM TO RUN

            50            01     D0  0021       	MOVL	#PROG_PIP,R0

                                 05  0024   132 	RSB				;RETURN TO GENERATE COMMAND TEXT

                                     0025   133 

                                     0025   134 

                                     0025   135 ;

                                     0025   136 ;DELE_RT11:

                                     0025   137 ;	$SETSTRING	</RT>,FLX,FLAGS=<BTR$M_FORCE>

                                     0025   138 ;					;DO A DIRECTORY LISTING OF RT DEVICE

                                     0025   139 ;

                                     0025   140 ;DELE_DOS11:

                                     0025   141 ;	$SETSTRING	</DO>,FLX,FLAGS=<BTR$M_FORCE>

                                     0025   142 ;					;DO A DIRECTORY LISTING OF DOS DEVICE

                                     0025   143 ;

DELETE          - BACKTRANSLATOR FOR DELETE COMMAND              22-AUG-1978 05:18:25   VAX-11 MACRO X0.3-11               Page   7

HJ                                                                                                                               (3)



                                     0025   144 

                                     0025   145 	.END

DELETE          - BACKTRANSLATOR FOR DELETE COMMAND              22-AUG-1978 05:18:25   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (3)



$$$            = 00000004            CLI$B_RQFLGS     00000002            CLI$L_WORKAREA   00000000            

$$$.           = 00000001            CLI$B_RQINDX     00000001            CLI$M_ABSADR   = 00000002            

$$$FLAGS       = 00000001            CLI$B_RQSTAT     00000003            CLI$M_ALLOCCUR = 00000001            

$$$GBL         = 00000000            CLI$B_RQTYPE     00000000            CLI$M_BATCH    = 00000008            

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

$$T1           = 00000003            CLI$C_QUALDEF    00000014            CLI$M_DBGEXCP  = 00010000            

$CLI.          = 00000010 R     03   CLI$C_REQDESC    0000001C            CLI$M_DBGTRU   = 00000002            

$CLI..         = 0000002C R     03   CLI$C_WORKAREA   00000080            CLI$M_DEBUG    = 00000001            

$QUALNUM$      = 00000004            CLI$K_ASCIIVAL = 00000041            CLI$M_DUMMY    = 00000002            

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

BITMAP           ********   X   03   CLI$K_DELE_BEFO= 00000008            CLI$M_INDIRECT = 00000010            

BTR$M_DECIMAL  = 00000080            CLI$K_DELE_CONF= 00000005            CLI$M_KEYVALU  = 00000002            

BTR$M_EXPLICIT = 00000020            CLI$K_DELE_CREA= 00000001            CLI$M_LASTVAL  = 00000001            

BTR$M_FORCE    = 00000002            CLI$K_DELE_ENTR= 00000002            CLI$M_MOREINP  = 00000004            

BTR$M_LIST     = 00000040            CLI$K_DELE_EXPI= 00000009            CLI$M_MOREVALS = 00000001            

BTR$M_MULTKEY  = 00000010            CLI$K_DELE_LOG = 00000006            CLI$M_PARMDEF  = 00000008            

BTR$M_RETURN   = 00000001            CLI$K_DELE_MODI= 00000003            CLI$M_PARMPRS  = 00000001            

BTR$M_TEMPPOS  = 00000004            CLI$K_DELE_QUEU= 00000004            CLI$M_PARMREQ  = 00000001            

BTR$M_VALREQ   = 00000008            CLI$K_DELE_SINC= 00000007            CLI$M_QDEXPA   = 00000004            

BTR$V_DECIMAL  = 00000007            CLI$K_DELE_SYMB= 0000000A            CLI$M_QDUSRV   = 00000002            

BTR$V_EXPLICIT = 00000005            CLI$K_DLSY_ALL = 00000001            CLI$M_QUALEXP  = 00000002            

BTR$V_FORCE    = 00000001            CLI$K_DLSY_GLOB= 00000002            CLI$M_QUALTRU  = 00000001            

BTR$V_LIST     = 00000006            CLI$K_DLSY_LOCA= 00000003            CLI$M_TRMVRBLV = 00000300            

BTR$V_MULTKEY  = 00000004            CLI$K_ENDPRM1  = 00000030            CLI$M_VERIFY   = 00000004            

BTR$V_RETURN   = 00000000            CLI$K_ENDPRM2  = 00000031            CLI$M_VFYINP   = 00000020            

BTR$V_TEMPPOS  = 00000002            CLI$K_ENDPRM3  = 00000032            CLI$Q_QDVALDESC  00000004            

BTR$V_VALREQ   = 00000003            CLI$K_ENDPRM4  = 00000033            CLI$Q_RQDESC     00000008            

BTR$_AMBIGKEYW = 00688030            CLI$K_FILSPEC  = 00000044            CLI$S_PRITYP   = 00000004            

BTR$_ILLEGOPT  = 00688018            CLI$K_GETCMD   = 00000001            CLI$S_SUBTYP   = 00000004            

BTR$_IMGFNF    = 00688060            CLI$K_GETOPT   = 00000003            CLI$S_TRMVRBLV = 00000002            

BTR$_INTFAIL   = 00688048            CLI$K_GETQUAL  = 00000002            CLI$V_ABSADR   = 00000001            

BTR$_INVALKEYW = 00688028            CLI$K_INITPRS  = 00000000            CLI$V_ALLOCCUR = 00000000            

BTR$_KEYVALOVR = 00688038            CLI$K_INPSPEC  = 00000001            CLI$V_BATCH    = 00000003            

BTR$_MISSNGVAL = 00688008            CLI$K_INPUT1   = 00000010            CLI$V_CONCATINP= 00000001            

BTR$_NOTIMPLEM = 00688020            CLI$K_INPUT2   = 00000011            CLI$V_DBGEXCP  = 00000010            

BTR$_OPTVALOVR = 00688050            CLI$K_INPUT3   = 00000012            CLI$V_DBGTRU   = 00000001            

BTR$_STRINGOVR = 00688010            CLI$K_INPUT4   = 00000013            CLI$V_DEBUG    = 00000000            

BTR$_TOOMANY   = 00688058            CLI$K_KEYVAL   = 00000043            CLI$V_DUMMY    = 00000001            

BTR$_UNEXPLIST = 00688040            CLI$K_KEYWORD  = 00000042            CLI$V_EXPNAM   = 00000002            

BTRAN          = 00680000            CLI$K_NUMERVAL = 00000040            CLI$V_INDIRECT = 00000004            

CLI$A_ABSACT     00000014            CLI$K_OUTPUT1  = 00000020            CLI$V_KEYVALU  = 00000001            

CLI$A_ERRACT     00000004            CLI$K_OUTPUT2  = 00000021            CLI$V_LASTVAL  = 00000000            

CLI$A_FLSACT     00000010            CLI$K_OUTPUT3  = 00000022            CLI$V_MOREINP  = 00000002            

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

CLI$A_IMGHDADR   0000000C            CLI$K_OUTSPEC  = 00000002            CLI$V_PARMDEF  = 00000003            

CLI$A_PROGXFER   00000004            CLI$K_PARDONE  = 00000003            CLI$V_PARMPRS  = 00000000            

CLI$A_PRSACT     00000010            CLI$K_QDBITS     00000014            CLI$V_PARMREQ  = 00000000            

CLI$A_QDVALADR   00000008            CLI$K_QUALDEF    00000014            CLI$V_PRITYP   = 00000004            

CLI$A_QUALST     00000018            CLI$K_REQDESC    0000001C            CLI$V_QDEXPA   = 00000002            

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

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

CLI$A_UTILSERV   00000008            CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            

CLI$B_BITNUM     00000001            CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            

CLI$B_QDBLKSIZ   00000000            CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            

CLI$B_QDCODE     00000001            CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            

CLI$B_QDFLGS     00000002            CLI$L_RQVALU     0000000C            CLI$V_VFYINP   = 00000005            

CLI$B_QDSTAT     00000003            CLI$L_USRVAL     00000014            CLI$W_QDVALSIZ   00000004            

DELETE          - BACKTRANSLATOR FOR DELETE COMMAND              22-AUG-1978 05:18:25   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (3)



CLI$W_RQSIZE     00000008            QUA_M_KEYVAL   = 00004000            

CLI$W_SERVCOD    00000001            QUA_M_LOCALKEY = 00000002            

CLIWORKAREA      ********   X   03   QUA_M_NEG      = 00000040            

DELE             00000000 RG    04   QUA_M_ONEVAL   = 00002000            

FATAL          = 00000004            QUA_M_OUTPUT   = 00000800            

GBL...         = 00000000            QUA_M_PARM     = 00000010            

INPUT_ARGLIST    00000000 R     03   QUA_M_VAL      = 00000020            

INPUT_DESC       00000010 R     03   QUA_M_VALREQ   = 00001000            

INSERTARG        ********   X   04   QUA_M_VERB     = 00000008            

LAST_PARAM     = FFFFFFEC            QUA_S_MAXPARM  = 00000004            

NONE           = 00000000            QUA_S_MINPARM  = 00000004            

PARAMLOC         ********   X   04   QUA_V_BATDEF   = 00000008            

PRIM_INPUT     = FFFFFFF6            QUA_V_CHNGLIST = 00000000            

PRIM_OUTPUT    = 00000000            QUA_V_DEFTRUE  = 00000007            

PROG_BP2       = 0000000C            QUA_V_FILE     = 00000002            

PROG_CBL       = 00000008            QUA_V_IMAGE    = 0000000A            

PROG_CNT       = 0000000F            QUA_V_INTDEF   = 00000009            

PROG_DIF       = 0000000F            QUA_V_KEYVAL   = 0000000E            

PROG_DMP       = 00000007            QUA_V_LOCALKEY = 00000001            

PROG_F4V       = 00000002            QUA_V_MAXPARM  = 00000004            

PROG_LBR       = 0000000B            QUA_V_MINPARM  = 00000000            

PROG_LIB       = 0000000A            QUA_V_NEG      = 00000006            

PROG_MAC       = 00000004            QUA_V_ONEVAL   = 0000000D            

PROG_MAR       = 00000003            QUA_V_OUTPUT   = 0000000B            

PROG_PIP       = 00000001            QUA_V_PARM     = 00000004            

PROG_SLP       = 00000006            QUA_V_VAL      = 00000005            

PROG_SOS       = 00000005            QUA_V_VALREQ   = 0000000C            

PROG_SRT       = 0000000E            QUA_V_VERB     = 00000003            

PROG_TKB       = 00000009            QUA_W_FLAGS      00000003            

PROG_UFD       = 0000000D            QUA_W_PROMPT     00000009            

PRO_B_FLAGS      00000001            QUA_W_QUALIST    00000006            

PRO_B_PROMPT     00000000            SAVE_REG_MASK  = 00000FFC            

PRO_K_LENGTH     00000002            SETSTRING        ********   X   04   

PRO_M_CONCAT   = 00000001            

PRO_M_IMPCAT   = 00000002            

PRO_M_LIST     = 00000004            

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            

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            

QUA_M_IMAGE    = 00000400            

QUA_M_INTDEF   = 00000200            

DELETE          - BACKTRANSLATOR FOR DELETE COMMAND              22-AUG-1978 05:18:25   VAX-11 MACRO X0.3-11               Page  10

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

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





THERE WERE NO ERRORS OR WARNINGS.

13320. BYTES LEFT IN FREE MEMORY POOL.

2492. BYTES OF RECLAIMED MEMORY.

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

55 MLB DIR RDS - 593 GETS TO DEFINE 32 MACROS. 72 INTER. FILE WRITES. 

