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

HJ                                                                                                                               (1)



                                     0000     1 	.TITLE	CREATE - BACKTRANSLATOR FOR CREATE 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.	JANUARY 1978

                                     0000    24 ;

                                     0000    25 ; BACKTRANSLATOR CREATE

                                     0000    26 ;

CREATE          - BACKTRANSLATOR FOR CREATE COMMAND              22-AUG-1978 05:25:52   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:

CREATE          - BACKTRANSLATOR FOR CREATE COMMAND              22-AUG-1978 05:25:52   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 	$CLIDEFQUALCREA			;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

CREATE          - BACKTRANSLATOR FOR CREATE COMMAND              22-AUG-1978 05:25:52   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

                           00000003  002C       		.LONG	3

                           0000003C' 0030       		.LONG	QUAL_DESC

                           00000000' 0034       		.LONG	CLIWORKAREA

                           00000000' 0038       		.LONG	BITMAP

                                     003C    68 

                                     003C    69 QUAL_DESC:

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

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

                                     003C    72 		QUALST=QUAL_LIST	;ADDRESS OF THE QUALIFIERS

                           00000058  003C       	.BLKB	CLI$C_REQDESC

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

                                 02  003C       	  .BYTE	CLI$K_GETQUAL

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

HJ                                                                                                                               (2)



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

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

                                     0058    73 

                                     0058    74 

                                     0058    75 QUAL_LIST:

                                     0058    76 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0058    77 		QDCODE=CLI$K_CREA_DIRE,-;/DIRECTORY

                                     0058    78 		TRUACT=CREA_DIRECT	;CALL QUALIFIER HANDLER

                           0000006C  0058       	.BLKB	CLI$C_QUALDEF

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

                                 17' 0058       	  .BYTE	30013$-.

                                 01  0059       	  .BYTE	CLI$K_CREA_DIRE

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

                           FFFFFFD1' 0064       	    .LONG	<CREA_DIRECT-$CLI.>

                           0000006C  0068       . = $CLI..

                                 00  006C       	.BYTE	0

                                 00  006D       	.BYTE	0

                                 00  006E       	.BYTE	0

                                     006F       30013$:

                                     006F    79 

                                     006F    80 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     006F    81 		QDCODE=CLI$K_CREA_OWNE,-;/OWNER:[NNN,MMM]

                                     006F    82 		TRUACT=CREA_OWNER	;CALL QUALIFIER HANDLER

                           00000083  006F       	.BLKB	CLI$C_QUALDEF

                           0000006F  0083       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 006F       	  .BYTE	30017$-.

                                 02  0070       	  .BYTE	CLI$K_CREA_OWNE

                           0000007B  0071       	. = $CLI.+CLI$A_TRUACT

                           FFFFFFC2' 007B       	    .LONG	<CREA_OWNER-$CLI.>

                           00000083  007F       . = $CLI..

                                 00  0083       	.BYTE	0

                                 00  0084       	.BYTE	0

                                 00  0085       	.BYTE	0

                                     0086       30017$:

                                     0086    83 

                                     0086    84 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0086    85 		QDCODE=CLI$K_CREA_PROT,-;/PROTECTION:(SYSTEM:RWED,GROU:R...)

                                     0086    86 		TRUACT=CREA_PROTECTION	;CALL QUALIFIER HANDLER

                           0000009A  0086       	.BLKB	CLI$C_QUALDEF

                           00000086  009A       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0086       	  .BYTE	30021$-.

                                 03  0087       	  .BYTE	CLI$K_CREA_PROT

                           00000092  0088       	. = $CLI.+CLI$A_TRUACT

                           FFFFFFB8' 0092       	    .LONG	<CREA_PROTECTION-$CLI.>

                           0000009A  0096       . = $CLI..

                                 00  009A       	.BYTE	0

                                 00  009B       	.BYTE	0

                                 00  009C       	.BYTE	0

                                     009D       30021$:

                                     009D    87 

                                     009D    88 

                                     009D    89 	$CLIQUALDESC	END_LIST	;TERMINATE THE QUALIFIER LIST

                                 00  009D       	.BYTE	0

                                     009E    90 

            00 00 00 00 00 00 00 5B  009E    91 SUBVALS:	.BYTE	^A\[\,0,0,0,0,0,0,0 ;SLOT FOR SYSTEM=RWED

            00 00 00 00 00 00 00 2C  00A6    92 		.BYTE	^A\,\,0,0,0,0,0,0,0 ;SLOT FOR GROUP =RWED

            00 00 00 00 00 00 00 2C  00AE    93 		.BYTE	^A\,\,0,0,0,0,0,0,0 ;SLOT FOR OWNER =RWED

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

HJ                                                                                                                               (2)



            00 00 00 00 00 00 00 2C  00B6    94 		.BYTE	^A\,\,0,0,0,0,0,0,0 ;SLOT FOR WORLD =RWED

                              00 5D  00BE    95 		.BYTE	^A\]\,0		;STRING TERMINATOR

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

HJ                                                                                                                               (3)



                                     00C0    97 ;	.SBTTL CREATE

                                     00C0    98 ;+

                                     00C0    99 ; BACKTRANSLATOR CREATE

                                     00C0   100 ;

                                     00C0   101 ; CONVERTS DCL COMMAND TO COMPATIBILITY MODE IMAGE COMMAND

                                     00C0   102 ;

                                     00C0   103 ;

                                     00C0   104 ; INPUTS:

                                     00C0   105 ;  THE INPUTS ARE RETURNED FROM THE DCL RESULT PARSER AS RESPONSES

                                     00C0   106 ;  TO THE VARIOUS REQUEST DESCRIPTORS THAT ARE GIVEN TO IT.

                                     00C0   107 ;

                                     00C0   108 ;

                                     00C0   109 ; OUTPUTS:

                                     00C0   110 ;  THE OUTPUT CONSISTS OF TWO STRINGS OR AN ERROR MESSAGE AND ABORT.

                                     00C0   111 ;  THE CALLER OPENS THE IMAGE AND INVOKES THE COMPATIBILITY EMULATOR

                                     00C0   112 ;  IF NO ERROR OCCURS.

                                     00C0   113 ;

                                     00C0   114 ;  1- FILENAME STRING OF COMPATIBILITY MODE IMAGE TO BE ACTIVATED.

                                     00C0   115 ;

                                     00C0   116 ;  2- COMMAND LINE TO BE GIVEN TO THE IMAGE.

                                     00C0   117 ;

                                     00C0   118 ;-

                                     00C0   119 

                                     00C0   120 	PURE

                                 00000000       	.PSECT	PURE_	BYTE,RD,EXE,NOWRT

                                     0000   121 

                                     0000   122 CREA::

                                 FA  0000   123 	CALLG	W^QUAL_ARGLIST,-	;PROCESS QUALIFIERS

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

                                 FA  0006   125 	CALLG	W^INPUT_ARGLIST,-	;PROCESS INPUT

         08 BC       0000'CF         0007   126 		@CLI$A_UTILSERV(AP)

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

                          FFEC'  30  0011   128 	BSBW	INSERTARG		;SAVE IT AS PRIMARY OUTPUT

       0000'CF            0D     91  0014   129 	CMPB	#PROG_UFD,W^PROGINDEX	;ARE WE GOING TO INVOKE UFD?

                          0A     13  0019   130 	BEQL	10$			;BRANCH IF YES

                                     001B   131 	$SETSTRING <TI:>,TYPE=INLINE,POS=<PRIM_INPUT> ;INPUT IS ALWAYS TI:

                          FFE2'  30  001B       	BSBW	SETSTRING

                                 05  001E       	.BYTE	$$$FLAGS

                                 00  001F       	.BYTE	0

                                 F6  0020       	.BYTE	PRIM_INPUT

                                 03  0021       	.BYTE	$$CNT

                           3A 49 54  0022       	.ASCII	\TI:\

                                     0025   132 10$:	DEFPROG	PIP			;RETURN DEFAULT PROGRAM TO RUN

            50            01     D0  0025       	MOVL	#PROG_PIP,R0

                                 05  0028   133 	RSB				;RETURN TO GENERATE COMMAND TEXT

                                     0029   134 

                                     0029   135 

                                     0029   136 CREA_DIRECT:

                                     0029   137 	$SETSTRING	<>,UFD,FLAGS=<BTR$M_FORCE> ;FORCE PROGRAM TO BE UFD

                               0FFC  0029       	.WORD	SAVE_REG_MASK

                          FFD2'  30  002B       	BSBW	SETSTRING

                                 02  002E       	.BYTE	$$$FLAGS

                                 0D  002F       	.BYTE	PROG_UFD

                                 00  0030       	.BYTE	$$CNT

                                     0031   138 

                                     0031   139 CREA_OWNER:

                                     0031   140 	$GETSTRING	</UIC=>,UFD,FLAGS=<BTR$M_VALREQ> ;HANDLE DIRECTORY OWNER QUALIFIER

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

HJ                                                                                                                               (3)



                               0FFC  0031       	.WORD	SAVE_REG_MASK

                          FFCA'  30  0033       	BSBW	GETSTRING

                                 08  0036       	.BYTE	$$$FLAGS

                                 0D  0037       	.BYTE	PROG_UFD

                                 05  0038       	.BYTE	$$CNT

                     3D 43 49 55 2F  0039       	.ASCII	\/UIC=\

                                     003E   141 

                                     003E   142 CREA_PROTECTION:

                                     003E   143 	$SETSTRING	</PRO=>,UFD,FLAGS=<BTR$M_RETURN> ;SET /PROTECT OPTION

                               0FFC  003E       	.WORD	SAVE_REG_MASK

                          FFBD'  30  0040       	BSBW	SETSTRING

                                 01  0043       	.BYTE	$$$FLAGS

                                 0D  0044       	.BYTE	PROG_UFD

                                 05  0045       	.BYTE	$$CNT

                     3D 4F 52 50 2F  0046       	.ASCII	\/PRO=\

                                     004B   144 10$:	$GETKEYWORD	LIST=<-		;HANDLE KEYWORD LIST ON /PROTECTION

                                     004B   145 				SYSTEM,-

                                     004B   146 				OWNER,-

                                     004B   147 				GROUP,-

                                     004B   148 				WORLD>

                          FFB2'  30  004B       	BSBW	GETKEYWORD

                                 1A' 004E       	.BYTE	30026$-30027$

                                     004F       30027$:

                                 06' 004F       	.BYTE	$$CNT

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

                                 05' 0056       	.BYTE	$$CNT

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

                                 05' 005C       	.BYTE	$$CNT

                     50 55 4F 52 47  005D       	.ASCII	\GROUP\

                                 05' 0062       	.BYTE	$$CNT

                     44 4C 52 4F 57  0063       	.ASCII	\WORLD\

                                 00  0068       	.BYTE	0

                                     0069       30026$:

                          50     DD  0069   149 	PUSHL	R0			;IS THERE A VALUE?

                                     006B   150 					;WARNING- STACK IS NOT CLEAN

                          1F     13  006B   151 	BEQL	30$			;BRANCH IF NOT

                          FF90'  30  006D   152 	BSBW	GETSUBKEYVAL		;GET THE SUB VALUE STRING

            36            50     E9  0070   153 	BLBC	R0,80$			;BRANCH IF THERE WAS NO VALUE

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

            59            05     B1  0078   155 	CMPW	#5,R9			;MAKE SURE STRING WILL FIT IN TABLE

                          26     19  007B   156 	BLSS	70$			;BRANCH IF SUBVALUE TOO LONG

            8E            03     78  007D   157 	ASHL	#3,(SP)+,R0		;PUT VALUE INTO CORRECT SLOT

                          50         0080       

            6A            59     28  0081   158 	MOVC3	R9,(R10),W^SUBVALS-7[R0];SAVE THE STRING

                     0097'CF40       0084       

                          83     94  0088   159 	CLRB	(R3)+			;MAKE IT ASCIZ

                          BF     11  008A   160 	BRB	10$			;LOOP THROUGH THE SUBOPTIONS

                          59     D4  008C   161 30$:	CLRL	R9			;START AT FIRST SUBFIELD

            5A       009E'CF49   7E  008E   162 40$:	MOVAQ	W^SUBVALS[R9],R10	;POINT TO NEXT FIELD

                          03     11  0094   163 	BRB	60$			;JUMP INTO LOOP

                          FF67'  30  0096   164 50$:	BSBW	ADDCHAR			;PUT THE CHARACTER IN

            57            8A     90  0099   165 60$:	MOVB	(R10)+,R7		;GET A CHARACTER

                          F8     12  009C   166 	BNEQ	50$			;BRANCH IF AT END OF STRING

            59            05     F2  009E   167 	AOBLSS	#5,R9,40$		;LOOP THROUGH THE FIVE SUB FIELDS

                          EC         00A1       

                                 04  00A2   168 	RET				;RETURN BACK TO CLI PARSER-CLEAN STACK

                                     00A3   169 

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

HJ                                                                                                                               (3)



                                     00A3   170 70$:	ERROR	KEYVALOVR,FATAL		;ABORT ON ERROR

            50            3C     9A  00A3       	MOVZBL	#BTR$_KEYVALOVR+FATAL&^XFF,R0

                          FF57'  31  00A6       	BRW	ERR_EXIT

                                     00A9   171 80$:	ERROR	MISSNGVAL,FATAL		;ABORT ON ERROR

            50            0C     9A  00A9       	MOVZBL	#BTR$_MISSNGVAL+FATAL&^XFF,R0

                          FF51'  31  00AC       	BRW	ERR_EXIT

                                     00AF   172 

                                     00AF   173 

                                     00AF   174 	.END

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

SYMBOL TABLE                                                                                                                     (3)



$$$            = 00000004            CLI$B_QDSTAT     00000003            CLI$M_EXPNAM   = 00000004            

$$$.           = 00000001            CLI$B_RQFLGS     00000002            CLI$M_INDIRECT = 00000010            

$$$FLAGS       = 00000001            CLI$B_RQINDX     00000001            CLI$M_KEYVALU  = 00000002            

$$$GBL         = 00000000            CLI$B_RQSTAT     00000003            CLI$M_LASTVAL  = 00000001            

$$CNT          = 00000005            CLI$B_RQTYPE     00000000            CLI$M_MOREINP  = 00000004            

$$T1           = 00000003            CLI$C_QDBITS     00000014            CLI$M_MOREVALS = 00000001            

$CLI.          = 00000086 R     03   CLI$C_QUALDEF    00000014            CLI$M_PARMDEF  = 00000008            

$CLI..         = 0000009D R     03   CLI$C_REQDESC    0000001C            CLI$M_PARMPRS  = 00000001            

$QUALNUM$      = 00000004            CLI$C_WORKAREA   00000080            CLI$M_PARMREQ  = 00000001            

ADDCHAR          ********   X   04   CLI$K_ASCIIVAL = 00000041            CLI$M_QDEXPA   = 00000004            

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

BITMAP           ********   X   03   CLI$K_CREA_DIRE= 00000001            CLI$M_QUALEXP  = 00000002            

BTR$M_DECIMAL  = 00000080            CLI$K_CREA_OWNE= 00000002            CLI$M_QUALTRU  = 00000001            

BTR$M_EXPLICIT = 00000020            CLI$K_CREA_PROT= 00000003            CLI$M_TRMVRBLV = 00000300            

BTR$M_FORCE    = 00000002            CLI$K_ENDPRM1  = 00000030            CLI$M_VERIFY   = 00000004            

BTR$M_LIST     = 00000040            CLI$K_ENDPRM2  = 00000031            CLI$M_VFYINP   = 00000020            

BTR$M_MULTKEY  = 00000010            CLI$K_ENDPRM3  = 00000032            CLI$Q_QDVALDESC  00000004            

BTR$M_RETURN   = 00000001            CLI$K_ENDPRM4  = 00000033            CLI$Q_RQDESC     00000008            

BTR$M_TEMPPOS  = 00000004            CLI$K_FILSPEC  = 00000044            CLI$S_PRITYP   = 00000004            

BTR$M_VALREQ   = 00000008            CLI$K_GETCMD   = 00000001            CLI$S_SUBTYP   = 00000004            

BTR$V_DECIMAL  = 00000007            CLI$K_GETOPT   = 00000003            CLI$S_TRMVRBLV = 00000002            

BTR$V_EXPLICIT = 00000005            CLI$K_GETQUAL  = 00000002            CLI$V_ABSADR   = 00000001            

BTR$V_FORCE    = 00000001            CLI$K_INITPRS  = 00000000            CLI$V_ALLOCCUR = 00000000            

BTR$V_LIST     = 00000006            CLI$K_INPSPEC  = 00000001            CLI$V_BATCH    = 00000003            

BTR$V_MULTKEY  = 00000004            CLI$K_INPUT1   = 00000010            CLI$V_CONCATINP= 00000001            

BTR$V_RETURN   = 00000000            CLI$K_INPUT2   = 00000011            CLI$V_DBGEXCP  = 00000010            

BTR$V_TEMPPOS  = 00000002            CLI$K_INPUT3   = 00000012            CLI$V_DBGTRU   = 00000001            

BTR$V_VALREQ   = 00000003            CLI$K_INPUT4   = 00000013            CLI$V_DEBUG    = 00000000            

BTR$_AMBIGKEYW = 00688030            CLI$K_KEYVAL   = 00000043            CLI$V_DUMMY    = 00000001            

BTR$_ILLEGOPT  = 00688018            CLI$K_KEYWORD  = 00000042            CLI$V_EXPNAM   = 00000002            

BTR$_IMGFNF    = 00688060            CLI$K_NUMERVAL = 00000040            CLI$V_INDIRECT = 00000004            

BTR$_INTFAIL   = 00688048            CLI$K_OUTPUT1  = 00000020            CLI$V_KEYVALU  = 00000001            

BTR$_INVALKEYW = 00688028            CLI$K_OUTPUT2  = 00000021            CLI$V_LASTVAL  = 00000000            

BTR$_KEYVALOVR = 00688038            CLI$K_OUTPUT3  = 00000022            CLI$V_MOREINP  = 00000002            

BTR$_MISSNGVAL = 00688008            CLI$K_OUTPUT4  = 00000023            CLI$V_MOREVALS = 00000000            

BTR$_NOTIMPLEM = 00688020            CLI$K_OUTSPEC  = 00000002            CLI$V_PARMDEF  = 00000003            

BTR$_OPTVALOVR = 00688050            CLI$K_PARDONE  = 00000003            CLI$V_PARMPRS  = 00000000            

BTR$_STRINGOVR = 00688010            CLI$K_QDBITS     00000014            CLI$V_PARMREQ  = 00000000            

BTR$_TOOMANY   = 00688058            CLI$K_QUALDEF    00000014            CLI$V_PRITYP   = 00000004            

BTR$_UNEXPLIST = 00688040            CLI$K_REQDESC    0000001C            CLI$V_QDEXPA   = 00000002            

BTRAN          = 00680000            CLI$K_UTILOPR  = 00000000            CLI$V_QDUSRV   = 00000001            

CLI$A_ABSACT     00000014            CLI$K_VALCONV  = 00000004            CLI$V_QUALEXP  = 00000001            

CLI$A_ERRACT     00000004            CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            

CLI$A_FLSACT     00000010            CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            

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

CLI$A_IMGHDADR   0000000C            CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            

CLI$A_PROGXFER   00000004            CLI$L_RQVALU     0000000C            CLI$V_VFYINP   = 00000005            

CLI$A_PRSACT     00000010            CLI$L_USRVAL     00000014            CLI$W_QDVALSIZ   00000004            

CLI$A_QDVALADR   00000008            CLI$L_WORKAREA   00000000            CLI$W_RQSIZE     00000008            

CLI$A_QUALST     00000018            CLI$M_ABSADR   = 00000002            CLI$W_SERVCOD    00000001            

CLI$A_RQADDR     0000000C            CLI$M_ALLOCCUR = 00000001            CLIWORKAREA      ********   X   03   

CLI$A_TRUACT     0000000C            CLI$M_BATCH    = 00000008            CREA             00000000 RG    04   

CLI$A_UTILSERV   00000008            CLI$M_CONCATINP= 00000002            CREA_DIRECT      00000029 R     04   

CLI$B_BITNUM     00000001            CLI$M_DBGEXCP  = 00010000            CREA_OWNER       00000031 R     04   

CLI$B_QDBLKSIZ   00000000            CLI$M_DBGTRU   = 00000002            CREA_PROTECTION  0000003E R     04   

CLI$B_QDCODE     00000001            CLI$M_DEBUG    = 00000001            ERR_EXIT         ********   X   04   

CLI$B_QDFLGS     00000002            CLI$M_DUMMY    = 00000002            FATAL          = 00000004            

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

SYMBOL TABLE                                                                                                                     (3)



GBL...         = 00000000            QUA_M_INTDEF   = 00000200            

GETKEYWORD       ********   X   04   QUA_M_KEYVAL   = 00004000            

GETSTRING        ********   X   04   QUA_M_LOCALKEY = 00000002            

GETSUBKEYVAL     ********   X   04   QUA_M_NEG      = 00000040            

INPUT_ARGLIST    00000000 R     03   QUA_M_ONEVAL   = 00002000            

INPUT_DESC       00000010 R     03   QUA_M_OUTPUT   = 00000800            

INSERTARG        ********   X   04   QUA_M_PARM     = 00000010            

LAST_PARAM     = FFFFFFEC            QUA_M_VAL      = 00000020            

NONE           = 00000000            QUA_M_VALREQ   = 00001000            

PRIM_INPUT     = FFFFFFF6            QUA_M_VERB     = 00000008            

PRIM_OUTPUT    = 00000000            QUA_S_MAXPARM  = 00000004            

PROGINDEX        ********   X   04   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            SUBVALS          0000009E R     03   

PRO_M_REQ      = 00000010            VALUE_DESC       ********   X   04   

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     0000002C R     03   

QUAL_DESC        0000003C R     03   

QUAL_LIST        00000058 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            

QUA_M_IMAGE    = 00000400            

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

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

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





THERE WERE NO ERRORS OR WARNINGS.

12786. BYTES LEFT IN FREE MEMORY POOL.

1786. BYTES OF RECLAIMED MEMORY.

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

61 MLB DIR RDS - 630 GETS TO DEFINE 37 MACROS. 87 INTER. FILE WRITES. 

