UNLOCK          - BACKTRANSLATOR FOR UNLOCK COMMAND              22-AUG-1978 05:20:48   VAX-11 MACRO X0.3-11               Page   1

HJ                                                                                                                               (1)



                                     0000     1 	.TITLE	UNLOCK - BACKTRANSLATOR FOR UNLOCK 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 UNLOCK

                                     0000    26 ;

UNLOCK          - BACKTRANSLATOR FOR UNLOCK COMMAND              22-AUG-1978 05:20:48   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:

UNLOCK          - BACKTRANSLATOR FOR UNLOCK COMMAND              22-AUG-1978 05:20:48   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 

                                     0000    35 ;

                                     0000    36 ; LOCAL SYMBOLS

                                     0000    37 ;

                                     0000    38 

                                     0000    39 ;

                                     0000    40 ; ARGUMENT LIST OFFSET DEFINITIONS

                                     0000    41 ;

                                     0000    42 

                                     0000    43 ;

                                     0000    44 ; LOCAL DATA

                                     0000    45 ;

                                     0000    46 	IMPURE

                                 00000000       	.PSECT	IMPURE_	LONG,RD,WRT,NOEXE

                                     0000    47 ;

                                     0000    48 ;

                                     0000    49 ;

                                     0000    50 INPUT_ARGLIST:

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

                                     0000    52 		INPUT_DESC,-		;FOR FIRST INPUT PARAMETER

                                     0000    53 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     0000    54 		BITMAP			;BIT ARRAY

                           00000003  0000       		.LONG	3

                           00000010' 0004       		.LONG	INPUT_DESC

                           00000000' 0008       		.LONG	CLIWORKAREA

                           00000000' 000C       		.LONG	BITMAP

                                     0010    55 

                                     0010    56 INPUT_DESC:

                                     0010    57 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

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

UNLOCK          - BACKTRANSLATOR FOR UNLOCK COMMAND              22-AUG-1978 05:20:48   VAX-11 MACRO X0.3-11               Page   4

HJ                                                                                                                               (2)



                                     0010    59 		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..

UNLOCK          - BACKTRANSLATOR FOR UNLOCK COMMAND              22-AUG-1978 05:20:48   VAX-11 MACRO X0.3-11               Page   5

HJ                                                                                                                               (3)



                                     002C    61 ;	.SBTTL UNLOCK

                                     002C    62 ;+

                                     002C    63 ; BACKTRANSLATOR UNLOCK

                                     002C    64 ;

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

                                     002C    66 ;

                                     002C    67 ;

                                     002C    68 ; INPUTS:

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

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

                                     002C    71 ;

                                     002C    72 ;

                                     002C    73 ; OUTPUTS:

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

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

                                     002C    76 ;  IF NO ERROR OCCURS.

                                     002C    77 ;

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

                                     002C    79 ;

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

                                     002C    81 ;

                                     002C    82 ;-

                                     002C    83 

                                     002C    84 	PURE

                                 00000000       	.PSECT	PURE_	BYTE,RD,EXE,NOWRT

                                     0000    85 

                                     0000    86 UNLO::

                                     0000    87 	$SETSTRING	</UN>,TYPE=INLINE ;ALWAYS TURN ON /UN OPTION

                          FFFD'  30  0000       	BSBW	SETSTRING

                                 01  0003       	.BYTE	$$$FLAGS

                                 00  0004       	.BYTE	0

                                 03  0005       	.BYTE	$$CNT

                           4E 55 2F  0006       	.ASCII	\/UN\

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

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

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

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

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

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

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

                          E8         0020       

                                     0021    95 	DEFPROG	PIP			;RETURN DEFAULT PROGRAM TO RUN

            50            01     D0  0021       	MOVL	#PROG_PIP,R0

                                 05  0024    96 	RSB				;RETURN TO GENERATE COMMAND TEXT

                                     0025    97 

                                     0025    98 

                                     0025    99 	.END

UNLOCK          - BACKTRANSLATOR FOR UNLOCK COMMAND              22-AUG-1978 05:20:48   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (3)



$$$.           = 00000001            CLI$B_RQTYPE     00000000            CLI$M_PARMPRS  = 00000001            

$$$FLAGS       = 00000001            CLI$C_QDBITS     00000014            CLI$M_PARMREQ  = 00000001            

$$CNT          = 00000003            CLI$C_QUALDEF    00000014            CLI$M_QDEXPA   = 00000004            

$$T1           = 00000003            CLI$C_REQDESC    0000001C            CLI$M_QDUSRV   = 00000002            

$CLI.          = 00000010 R     03   CLI$C_WORKAREA   00000080            CLI$M_QUALEXP  = 00000002            

$CLI..         = 0000002C R     03   CLI$K_ASCIIVAL = 00000041            CLI$M_QUALTRU  = 00000001            

BIT...         = 00000045            CLI$K_CLISERV  = 00000005            CLI$M_TRMVRBLV = 00000300            

BITMAP           ********   X   03   CLI$K_ENDPRM1  = 00000030            CLI$M_VERIFY   = 00000004            

BTR$M_DECIMAL  = 00000080            CLI$K_ENDPRM2  = 00000031            CLI$M_VFYINP   = 00000020            

BTR$M_EXPLICIT = 00000020            CLI$K_ENDPRM3  = 00000032            CLI$Q_QDVALDESC  00000004            

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

BTR$M_LIST     = 00000040            CLI$K_FILSPEC  = 00000044            CLI$S_PRITYP   = 00000004            

BTR$M_MULTKEY  = 00000010            CLI$K_GETCMD   = 00000001            CLI$S_SUBTYP   = 00000004            

BTR$M_RETURN   = 00000001            CLI$K_GETOPT   = 00000003            CLI$S_TRMVRBLV = 00000002            

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

BTR$M_VALREQ   = 00000008            CLI$K_INITPRS  = 00000000            CLI$V_ALLOCCUR = 00000000            

BTR$V_DECIMAL  = 00000007            CLI$K_INPSPEC  = 00000001            CLI$V_BATCH    = 00000003            

BTR$V_EXPLICIT = 00000005            CLI$K_INPUT1   = 00000010            CLI$V_CONCATINP= 00000001            

BTR$V_FORCE    = 00000001            CLI$K_INPUT2   = 00000011            CLI$V_DBGEXCP  = 00000010            

BTR$V_LIST     = 00000006            CLI$K_INPUT3   = 00000012            CLI$V_DBGTRU   = 00000001            

BTR$V_MULTKEY  = 00000004            CLI$K_INPUT4   = 00000013            CLI$V_DEBUG    = 00000000            

BTR$V_RETURN   = 00000000            CLI$K_KEYVAL   = 00000043            CLI$V_DUMMY    = 00000001            

BTR$V_TEMPPOS  = 00000002            CLI$K_KEYWORD  = 00000042            CLI$V_EXPNAM   = 00000002            

BTR$V_VALREQ   = 00000003            CLI$K_NUMERVAL = 00000040            CLI$V_INDIRECT = 00000004            

BTR$_AMBIGKEYW = 00688030            CLI$K_OUTPUT1  = 00000020            CLI$V_KEYVALU  = 00000001            

BTR$_ILLEGOPT  = 00688018            CLI$K_OUTPUT2  = 00000021            CLI$V_LASTVAL  = 00000000            

BTR$_IMGFNF    = 00688060            CLI$K_OUTPUT3  = 00000022            CLI$V_MOREINP  = 00000002            

BTR$_INTFAIL   = 00688048            CLI$K_OUTPUT4  = 00000023            CLI$V_MOREVALS = 00000000            

BTR$_INVALKEYW = 00688028            CLI$K_OUTSPEC  = 00000002            CLI$V_PARMDEF  = 00000003            

BTR$_KEYVALOVR = 00688038            CLI$K_PARDONE  = 00000003            CLI$V_PARMPRS  = 00000000            

BTR$_MISSNGVAL = 00688008            CLI$K_QDBITS     00000014            CLI$V_PARMREQ  = 00000000            

BTR$_NOTIMPLEM = 00688020            CLI$K_QUALDEF    00000014            CLI$V_PRITYP   = 00000004            

BTR$_OPTVALOVR = 00688050            CLI$K_REQDESC    0000001C            CLI$V_QDEXPA   = 00000002            

BTR$_STRINGOVR = 00688010            CLI$K_UTILOPR  = 00000000            CLI$V_QDUSRV   = 00000001            

BTR$_TOOMANY   = 00688058            CLI$K_VALCONV  = 00000004            CLI$V_QUALEXP  = 00000001            

BTR$_UNEXPLIST = 00688040            CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            

BTRAN          = 00680000            CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            

CLI$A_ABSACT     00000014            CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            

CLI$A_ERRACT     00000004            CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            

CLI$A_FLSACT     00000010            CLI$L_RQVALU     0000000C            CLI$V_VFYINP   = 00000005            

CLI$A_IMGFILED   00000010            CLI$L_USRVAL     00000014            CLI$W_QDVALSIZ   00000004            

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

CLI$A_PROGXFER   00000004            CLI$M_ABSADR   = 00000002            CLI$W_SERVCOD    00000001            

CLI$A_PRSACT     00000010            CLI$M_ALLOCCUR = 00000001            CLIWORKAREA      ********   X   03   

CLI$A_QDVALADR   00000008            CLI$M_BATCH    = 00000008            FATAL          = 00000004            

CLI$A_QUALST     00000018            CLI$M_CONCATINP= 00000002            GBL...         = 00000000            

CLI$A_RQADDR     0000000C            CLI$M_DBGEXCP  = 00010000            INPUT_ARGLIST    00000000 R     03   

CLI$A_TRUACT     0000000C            CLI$M_DBGTRU   = 00000002            INPUT_DESC       00000010 R     03   

CLI$A_UTILSERV   00000008            CLI$M_DEBUG    = 00000001            INSERTARG        ********   X   04   

CLI$B_BITNUM     00000001            CLI$M_DUMMY    = 00000002            LAST_PARAM     = FFFFFFEC            

CLI$B_QDBLKSIZ   00000000            CLI$M_EXPNAM   = 00000004            NONE           = 00000000            

CLI$B_QDCODE     00000001            CLI$M_INDIRECT = 00000010            PARAMLOC         ********   X   04   

CLI$B_QDFLGS     00000002            CLI$M_KEYVALU  = 00000002            PRIM_INPUT     = FFFFFFF6            

CLI$B_QDSTAT     00000003            CLI$M_LASTVAL  = 00000001            PRIM_OUTPUT    = 00000000            

CLI$B_RQFLGS     00000002            CLI$M_MOREINP  = 00000004            PROG_BP2       = 0000000C            

CLI$B_RQINDX     00000001            CLI$M_MOREVALS = 00000001            PROG_CBL       = 00000008            

CLI$B_RQSTAT     00000003            CLI$M_PARMDEF  = 00000008            PROG_CNT       = 0000000F            

UNLOCK          - BACKTRANSLATOR FOR UNLOCK COMMAND              22-AUG-1978 05:20:48   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (3)



PROG_DIF       = 0000000F            

PROG_DMP       = 00000007            

PROG_F4V       = 00000002            

PROG_LBR       = 0000000B            

PROG_LIB       = 0000000A            

PROG_MAC       = 00000004            

PROG_MAR       = 00000003            

PROG_PIP       = 00000001            

PROG_SLP       = 00000006            

PROG_SOS       = 00000005            

PROG_SRT       = 0000000E            

PROG_TKB       = 00000009            

PROG_UFD       = 0000000D            

SAVE_REG_MASK  = 00000FFC            

SETSTRING        ********   X   04   

UNLO             00000000 RG    04   





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.

16878. BYTES LEFT IN FREE MEMORY POOL.

2450. BYTES OF RECLAIMED MEMORY.

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

41 MLB DIR RDS - 434 GETS TO DEFINE 25 MACROS. 51 INTER. FILE WRITES. 

