IMAGECTRL       - IMAGE CONTROL DCLS COMMAND EXECUTION           22-AUG-1978 01:18:21   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      51  CONTINUE IMAGE EXECUTION

   (1)      78  DEBUG IMAGE EXECUTION

   (1)     126  STOP IMAGE EXECUTION

   (1)     199  TEST PREVIOUS MODE

   (1)     219  RUN DOWN IMAGE AND INDIRECT LEVELS

   (1)     272  SHUT DOWN IMAGE

IMAGECTRL       - IMAGE CONTROL DCLS COMMAND EXECUTION           22-AUG-1978 01:18:21   VAX-11 MACRO X0.3-11               Page   1

01                                                                                                                               (1)



                                     0000     1 	.TITLE	IMAGECTRL - IMAGE CONTROL DCLS COMMAND EXECUTION

                                     0000     2 	.IDENT	/01/

                                     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 ; D. N. CUTLER 4-APR-77

                                     0000    24 ;

                                     0000    25 ; IMAGE CONTROL DCLS COMMAND EXECUTION

                                     0000    26 ;

                                     0000    27 ;	CONTINUE IMAGE EXECUTION

                                     0000    28 ;	DEBUG IMAGE EXECUTION

                                     0000    29 ;	STOP IMAGE EXECUTION

                                     0000    30 ;

                                     0000    31 ; MACRO LIBRARY CALLS

                                     0000    32 ;

                                     0000    33  

                                     0000    34 	DEFCMDWRK			;DEFINE WORK AREA OFFSETS

                                     0000    35 	DEFERRCOD			;DEFINE ERROR/STATUS VALUES

                                     0000    36 	DEFPTRDSC			;DEFINE RESULT PARSE DESCRIPTOR FORMAT

                                     0000    37 	$DEVDEF				;DEFINE DEVICE CHARACTERISTIC BITS

                                     0000    38 	$PSLDEF				;DEFINE PROCESSOR STATUS FIELDS

                                     0000    39 	$RABDEF				;DEFINE RAB OFFSETS

                                     0000    40 	$SSDEF				;DEFINE SYSTEM STATUS VALUES

                                     0000    41  

                                     0000    42 ;

                                     0000    43 ; LOCAL DATA

                                     0000    44 ;

                                     0000    45 ; HEX CONVERSION TABLE

                                     0000    46 ;

                                     0000    47  

                                 00000000    48 	.PSECT	DCL$ZCODE,BYTE,RD,NOWRT

34 35 36 37 38 39 41 42 43 44 45 46  0000    49 HEXTAB:	.ASCII	/FEDCBA9876543210/	;

                        30 31 32 33  000C       

IMAGECTRL       - IMAGE CONTROL DCLS COMMAND EXECUTION           22-AUG-1978 01:18:21   VAX-11 MACRO X0.3-11               Page   2

01              CONTINUE IMAGE EXECUTION                                                                                         (1)



                                     0010    51 	.SBTTL	CONTINUE IMAGE EXECUTION

                                     0010    52 ;+

                                     0010    53 ; DCL$CONTINUE - CONTINUE IMAGE EXECUTION

                                     0010    54 ;

                                     0010    55 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE CONTINUE DCLS

                                     0010    56 ; COMMAND.

                                     0010    57 ;

                                     0010    58 ; INPUTS:

                                     0010    59 ;

                                     0010    60 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     0010    61 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     0010    62 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     0010    63 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     0010    64 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     0010    65 ;

                                     0010    66 ; OUTPUTS:

                                     0010    67 ;

                                     0010    68 ;	IF A PREVIOUS IMAGE WAS INTERRUPTED VIA A CONTROL Y AST, THEN THE

                                     0010    69 ;	CURRENT COMMAND CONTEXT IS REMOVED FROM THE STACK AND CONTROL IS

                                     0010    70 ;	RETURNED TO THE IMAGE. OTHERWISE THIS COMMAND IS A NOPERATION.

                                     0010    71 ;-

                                     0010    72  

                                     0010    73 	.ENABL	LSB

                                     0010    74 DCL$CONTINUE::				;CONTINUE IMAGE EXECUTION

                          0094   30  0010    75 	BSBW	TESTMODE		;TEST PREVIOUS MODE

                                 04  0013    76 10$:	RET				;

IMAGECTRL       - IMAGE CONTROL DCLS COMMAND EXECUTION           22-AUG-1978 01:18:21   VAX-11 MACRO X0.3-11               Page   3

01              DEBUG IMAGE EXECUTION                                                                                            (1)



                                     0014    78 	.SBTTL	DEBUG IMAGE EXECUTION

                                     0014    79 ;+

                                     0014    80 ; DCL$DEBUG - DEBUG IMAGE EXECUTION

                                     0014    81 ;

                                     0014    82 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE DEBUG DCLS

                                     0014    83 ; COMMAND.

                                     0014    84 ;

                                     0014    85 ; INPUTS:

                                     0014    86 ;

                                     0014    87 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     0014    88 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     0014    89 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     0014    90 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     0014    91 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     0014    92 ;

                                     0014    93 ; OUTPUTS:

                                     0014    94 ;

                                     0014    95 ;	IF A PREVIOUS IMAGE WAS INTERRUPTED VIA A CONTROL Y AST, THEN A

                                     0014    96 ;	DEBUG EXCEPTION IS GENERATED FOR THE IMAGE. OTHERWISE THIS COMMAND

                                     0014    97 ;	IS A NOPERATION.

                                     0014    98 ;-

                                     0014    99  

                                     0014   100 DCL$DEBUG::				;DEBUG IMAGE EXECUTION

                          0090   30  0014   101 	BSBW	TESTMODE		;TEST PREVIOUS MODE

         10 AD         24'AF     9E  0017   102 	MOVAB	B^20$,16(FP)		;RESET AST RETURN ADDRESS

            0B            16     78  001C   103 	ASHL	#PSL$V_PRVMOD,#<PSL$C_SUPER@2>! - ;CONSTRUCT PROPER PSL

                          7E         001F       

                                     0020   104 		PSL$C_USER,-(SP)	;

                       F0 AF     9F  0020   105 	PUSHAB	10$			;SET PC

                                 02  0023   106 	REI				;

                                     0024   107  

                                     0024   108 ;

                                     0024   109 ; CONTROL IS REGAINED AT THIS POINT WITH:

                                     0024   110 ;

                                     0024   111 ;	00(SP) = NUMBER OF AST ARGUMENTS (ALWAYS 5).

                                     0024   112 ;	04(SP) = AST PARAMETER.

                                     0024   113 ;	08(SP) = SAVED R0.

                                     0024   114 ;	12(SP) = SAVED R1.

                                     0024   115 ;	16(SP) = IMAGE PC.

                                     0024   116 ;	20(SP) = IMAGE PSL.

                                     0024   117 ;

                                     0024   118  

            5E            08     C0  0024   119 20$:	ADDL	#8,SP			;REMOVE NUMBER OF ARGUMENTS AND PARAMETER

                          03     BA  0027   120 	POPR	#^M<R0,R1>		;RESTORE SAVED REGISTERS

            7E       046C 8F     3C  0029   121 	MOVZWL	#SS$_DEBUG,-(SP)	;SET EXCEPTION NAME

                          03     DD  002E   122 	PUSHL	#3			;SET NUMBER OF EXCEPTION ARGUMENTS

                 00000000'9F     17  0030   123 	JMP	@#EXE$REFLECT		;REFLECT EXCEPTION

                                     0036   124 	.DSABL	LSB

IMAGECTRL       - IMAGE CONTROL DCLS COMMAND EXECUTION           22-AUG-1978 01:18:21   VAX-11 MACRO X0.3-11               Page   4

01              STOP IMAGE EXECUTION                                                                                             (1)



                                     0036   126 	.SBTTL	STOP IMAGE EXECUTION

                                     0036   127 ;+

                                     0036   128 ; DCL$STOP - STOP IMAGE EXECUTION

                                     0036   129 ;

                                     0036   130 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE STOP DCLS

                                     0036   131 ; COMMAND.

                                     0036   132 ;

                                     0036   133 ; INPUTS:

                                     0036   134 ;

                                     0036   135 ;	R8 = ADDRESS OF SCRATCH BUFFER DESCRIPTOR.

                                     0036   136 ;	R9 = ADDRESS OF SCRATCH STACK.

                                     0036   137 ;	R10 = RESULT PARSE DESCRIPTOR TABLE POINTER.

                                     0036   138 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     0036   139 ;	FP = BASE ADDRESS OF COMMAND WORK AREA.

                                     0036   140 ;

                                     0036   141 ; OUTPUTS:

                                     0036   142 ;

                                     0036   143 ;	IF A PROCESS NAME OR IDENTIFICATION IS SPECIFIED, THEN THAT PROCESS IS

                                     0036   144 ;	DELETED.

                                     0036   145 ;

                                     0036   146 ;	IF THE JOB IS A NONINTERACTIVE JOB, THEN THE JOB IS LOGGED OFF THE SYSTEM

                                     0036   147 ;	WITH A STATUS OF NORMAL COMPLETION. OTHERWISE ALL INDIRECT FILE LEVELS ARE

                                     0036   148 ;	UNSTACKED AND A TEST IS MADE TO DETERMINE IF AN IMAGE WAS INTERRUPTED VIA

                                     0036   149 ;	A CONTROL C/Y. IF A PREVIOUS IMAGE WAS INTERRUPTED, THEN THE CONTEXT OF THE

                                     0036   150 ;	RUN COMMAND THAT INITIATED IMAGE EXECUTION IS REMOVED FROM THE STACK AND

                                     0036   151 ;	RMS-32 IS CALLED TO CLOSE ALL OPEN IMAGE FILES. OTHERWISE NO OPERATION IS

                                     0036   152 ;	PERFORMED.

                                     0036   153 ;-

                                     0036   154  

                                     0036   155 DCL$STOP::				;STOP IMAGE EXECUTION

                                     0036   156 	GETDVAL				;GET DESCRIPTOR VALUES

            55            04     D1  0039   157 	CMPL	#PTR_K_ENDLINE,R5	;END OF LINE?

                          27     12  003C   158 	BNEQ	40$			;IF NEQ NO

         14 AB         08 AB     D1  003E   159 10$:	CMPL	PRC_L_INPRAB(R11),PRC_L_INDINPRAB(R11) ;INDIRECT LEVEL ZERO?

                          05     13  0043   160 	BEQL	20$			;IF EQL YES

                                     0045   161 	UNSTACK				;UNSTACK INDIRECT LEVEL

                          F4     11  0048   162 	BRB	10$			;

         54 AB            06     E0  004A   163 20$:	BBS	#PRC_V_MODE,PRC_W_FLAGS(R11),30$ ;IF SET, NONINTERACTIVE JOB

                          13         004E       

                          56     10  004F   164 	BSBB	TESTMODE		;TEST PREVIOUS MODE

            5D         CC AD     D0  0051   165 	MOVL	WRK_L_SAVFP(FP),FP	;RESTORE SAVED FRAME POINTER

                                     0055   166 	SHUTDOWN			;CLOSE FILES OF PREVIOUS IMAGE

                                     0058   167 	$RUNDWN_S #PSL$C_USER		;RUN DOWN PREVIOUS IMAGE

                                 05  0061   168 	RSB				;

                          FF9B'  31  0062   169 30$:	BRW	DCL$LOGOUT		;LOG PROCESS OUT

                                     0065   170  

                                     0065   171 ;

                                     0065   172 ; DELETE PROCESS

                                     0065   173 ;

                                     0065   174  

                          79     D4  0065   175 40$:	CLRL	-(R9)			;CLEAR PROCESS IDENTIFICATION

            57            58     D0  0067   176 	MOVL	R8,R7			;COPY ADDRESS OF SCRATCH DESCRIPTOR

            55            00     D1  006A   177 	CMPL	#PTR_K_COMDQUAL,R5	;COMMAND QUALIFIER SPECIFIED?

                          25     12  006D   178 	BNEQ	70$			;IF NEQ NO

                                     006F   179 	GETDVAL				;GET VALUE PARAMETERS

            52            51     7D  0072   180 	MOVQ	R1,R2			;SAVE VALUE PARAMETERS

                          52     D7  0075   181 50$:	DECL	R2			;ANY MORE CHARACTERS TO CONVERT?

IMAGECTRL       - IMAGE CONTROL DCLS COMMAND EXECUTION           22-AUG-1978 01:18:21   VAX-11 MACRO X0.3-11               Page   5

01              STOP IMAGE EXECUTION                                                                                             (1)



                          11     19  0077   182 	BLSS	60$			;IF LSS NO

            10            83     3A  0079   183 	LOCC	(R3)+,#16,HEXTAB	;SEARCH FOR HEX CHARACTER MATCH

                       82 AF         007C       

                          23     13  007E   184 	BEQL	80$			;IF EQL VALUE SYNTAX ERROR

            69            10     C4  0080   185 	MULL	#16,(R9)		;SCALE ACCUMULATED RESULT

            69            50     C0  0083   186 	ADDL	R0,(R9)			;ADD IN NEXT DIGIT

                          69     D7  0086   187 	DECL	(R9)			;SUBTRACT OUT CHARACTER COUNT

                          EB     11  0088   188 	BRB	50$			;

                                     008A   189 60$:	GETDVAL				;GET DESCRIPTOR VALUES

            55            04     D1  008D   190 	CMPL	#PTR_K_ENDLINE,R5	;END OF LINE?

                          02     12  0090   191 	BNEQ	70$			;IF NEQ NO

                          57     D4  0092   192 	CLRL	R7			;CLEAR DESCRIPTOR ADDRESS

            68            51     7D  0094   193 70$:	MOVQ	R1,(R8)			;SAVE PROCESS NAME PARAMETERS

                                     0097   194 	$DELPRC_S (R9),(R7)		;DELETE PROCESS

                                 05  00A2   195 	RSB				;

                                     00A3   196 80$:	STATUS	IVVALU			;SET INVALID VALUE SYNTAX STATUS

                                 05  00A6   197 	RSB				;

IMAGECTRL       - IMAGE CONTROL DCLS COMMAND EXECUTION           22-AUG-1978 01:18:21   VAX-11 MACRO X0.3-11               Page   6

01              TEST PREVIOUS MODE                                                                                               (1)



                                     00A7   199 	.SBTTL	TEST PREVIOUS MODE

                                     00A7   200 ;

                                     00A7   201 ; SUBROUTINE TO TEST PREVIOUS MODE AND DISABLE CONTROL Y AST

                                     00A7   202 ;

                                     00A7   203  

                                     00A7   204 TESTMODE:				;TEST PREVIOUS MODE

         54 AB            04     A8  00A7   205 	BISW	#PRC_M_DISABL,PRC_W_FLAGS(R11) ;DISABLE CONTROL Y AST

         54 AB            0B     E5  00AB   206 	BBCC	#PRC_V_YLEVEL,PRC_W_FLAGS(R11),10$ ;IF CLR, NOT AT CONTROL Y/C LEVEL

                          0A         00AF       

         00 BB            18     E1  00B0   207 	BBC	#PSL$V_CURMOD,@PRC_L_SAVAP(R11),10$ ;IF CLR, PREVIOUS MODE SUPERVISOR

                          05         00B4       

            6B         C8 AD     7D  00B5   208 	MOVQ	WRK_L_SAVAP(FP),PRC_L_SAVAP(R11) ;RESTORE ARGUMENT AND FRAME POINTERS

                                 05  00B9   209 	RSB				;

                                     00BA   210  

                                     00BA   211 ;

                                     00BA   212 ; PREVIOUS MODE SUPERVISOR

                                     00BA   213 ;

                                     00BA   214  

                          8E     D5  00BA   215 10$:	TSTL	(SP)+			;REMOVE RETURN FROM STACK

                                     00BC   216 	STATUS	NORMAL			;SET COMPLETION STATUS

                                 05  00BF   217 	RSB				;

IMAGECTRL       - IMAGE CONTROL DCLS COMMAND EXECUTION           22-AUG-1978 01:18:21   VAX-11 MACRO X0.3-11               Page   7

01              RUN DOWN IMAGE AND INDIRECT LEVELS                                                                               (1)



                                     00C0   219 	.SBTTL	RUN DOWN IMAGE AND INDIRECT LEVELS

                                     00C0   220 ;+

                                     00C0   221 ; DCL$RUNDOWN - RUN DOWN IMAGE AND INDIRECT LEVELS

                                     00C0   222 ;

                                     00C0   223 ; THIS SUBROUTINE IS CALLED TO CHECK WHETHER INDIRECT LEVELS SHOULD BE RUN DOWN

                                     00C0   224 ; AND TO CLOSE RMS-32 FILES AND RUN DOWN THE PREVIOUS IMAGE.

                                     00C0   225 ;

                                     00C0   226 ; INPUTS:

                                     00C0   227 ;

                                     00C0   228 ;	NONE.

                                     00C0   229 ;

                                     00C0   230 ; OUTPUTS:

                                     00C0   231 ;

                                     00C0   232 ;	IF THE CURRENT LEVEL IS CONTROL Y/C, THEN ALL INDIRECT FILES ARE UNSTACKED.

                                     00C0   233 ;	IF THE PREVIOUS MODE WAS USER, THEN THE USER IMAGE EXIT HANDLERS ARE

                                     00C0   234 ;	EXECUTED. THE PREVIOUS IMAGE IS ALWAYS RUNDOWN.

                                     00C0   235 ;-

                                     00C0   236 	.ENABL	LSB

                                     00C0   237  

                                     00C0   238 DCL$RUNDWNI::				;RUN DOWN BUT PRESERVE INDIRECT LEVEL

            50         2A'AF     9E  00C0   239 	MOVAB	B^20$,R0		;SET EXIT HANDLER RETURN ADDRESS

                          04     11  00C4   240 	BRB	5$			;

                                     00C6   241  

                                     00C6   242 DCL$RUNDOWN::				;RUN DOWN IMAGE AND INDIRECT LEVELS

            50         1E'AF     9E  00C6   243 	MOVAB	B^10$,R0		;SET EXIT HANDLER RETURN ADDRESS

         54 AB            04     A8  00CA   244 5$:	BISW	#PRC_M_DISABL,PRC_W_FLAGS(R11) ;DISABLE CONTROL Y/C AST'S

         54 AB            0B     E5  00CE   245 	BBCC	#PRC_V_YLEVEL,PRC_W_FLAGS(R11),20$ ;IF CLR, NOT AT CONTROL Y/C LEVEL

                          57         00D2       

                          50     DD  00D3   246 	PUSHL	R0			;PUSH PROPER RETURN ADDRESS

            50            6B     D0  00D5   247 	MOVL	PRC_L_SAVAP(R11),R0	;GET ADDRESS OF PREVIOUS PSL

            60            18     E1  00D8   248 	BBC	#PSL$V_CURMOD,(R0),10$	;IF CLR, PREVIOUS MODE SUPERVISOR

                          42         00DB       

            70   00000000'9F     9E  00DC   249 	MOVAB	@#EXE$EXIT_IMAGE,-(R0)	;RESET USER RETURN ADDRESS

         F8 A0       0980 8F     3C  00E3   250 	MOVZWL	#SS$_CLIFRCEXT,-8(R0)	;SET EXIT CAUSE INTO SAVED R0

            5E            5D     C3  00E9   251 	SUBL3	FP,SP,WRK_L_SAVSP(FP)	;SAVE RELATIVE ADDRESS OF TOP OF STACK

                       C4 AD         00EC       

            58         C8 AD     7D  00EE   252 	MOVQ	WRK_L_SAVAP(FP),R8	;RETRIEVE PREVIOUS ARGUMENT AND FRAME POINTERS

            6B            58     7D  00F2   253 	MOVQ	R8,PRC_L_SAVAP(R11)	;SAVE IN PROCESS WORK AREA

       FD34 CD            5D     C2  00F5   254 	SUBL	FP,WRK_L_RSLNXT(FP)	;CONVERT PARSE POINTER TO RELATIVE ADDRESS

            57         08 A0     9E  00FA   255 	MOVAB	8(R0),R7		;GET ADDRESS OF END OF ARGUMENT LIST + 4

            57            5D     C2  00FE   256 	SUBL	FP,R7			;CALCULATE LENGTH OF CALL FRAME AND ARGLIST

            5E            57     C2  0101   257 	SUBL	R7,SP			;CALCULATE NEW TOP OF STACK ADDRESS

            6D            57     28  0104   258 	MOVC	R7,(FP),(SP)		;MOVE CALL FRAME AND ARGUMENT LIST

                          6E         0107       

            5D            5E     C3  0108   259 	SUBL3	SP,FP,R7		;CALCULATE LENGTH OF COMMAND BUFFER AND ARGLISTS

                          57         010B       

            59            57     C3  010C   260 	SUBL3	R7,R9,FP		;CALCULATE NEW TOP OF STACK ADDRESS

                          5D         010F       

            6E            57     28  0110   261 	MOVC	R7,(SP),(FP)		;COLLAPSE STACK REMOVING FIRST COMMAND CONTEXT

                          6D         0113       

         C4 A9            59     C0  0114   262 	ADDL	R9,WRK_L_SAVSP(R9)	;CALCULATE NEW COMMAND STACK POINTER

       FD34 C9            59     C0  0118   263 	ADDL	R9,WRK_L_RSLNXT(R9)	;CONVERT PARSE POINTER TO REAL ADDRESS

                                 04  011D   264 	RET				;

         14 AB         08 AB     D1  011E   265 10$:	CMPL	PRC_L_INPRAB(R11),PRC_L_INDINPRAB(R11) ;INDIRECT LEVEL ZERO?

                          05     13  0123   266 	BEQL	20$			;IF EQL YES

                                     0125   267 	UNSTACK				;UNSTACK INDIRECT LEVEL

                          F4     11  0128   268 	BRB	10$			;

IMAGECTRL       - IMAGE CONTROL DCLS COMMAND EXECUTION           22-AUG-1978 01:18:21   VAX-11 MACRO X0.3-11               Page   8

01              RUN DOWN IMAGE AND INDIRECT LEVELS                                                                               (1)



                                 05  012A   269 20$:	RSB				;

                                     012B   270 	.DSABL	LSB

IMAGECTRL       - IMAGE CONTROL DCLS COMMAND EXECUTION           22-AUG-1978 01:18:21   VAX-11 MACRO X0.3-11               Page   9

01              SHUT DOWN IMAGE                                                                                                  (1)



                                     012B   272 	.SBTTL	SHUT DOWN IMAGE

                                     012B   273 ;+

                                     012B   274 ; DCL$SHUTDOWN - SHUT DOWM IMAGE

                                     012B   275 ;

                                     012B   276 ; THIS ROUTINE IS CALLED TO CLOSE ALL FILES OPENED BY THE JUST EXECUTED IMAGE

                                     012B   277 ; AND TO CLOSE THE IMAGE ACTIVATION FILE.

                                     012B   278 ;

                                     012B   279 ; INPUTS:

                                     012B   280 ;

                                     012B   281 ;	R11 = BASE ADDRESS OF PROCESS WORK AREA.

                                     012B   282 ;

                                     012B   283 ; OUTPUTS:

                                     012B   284 ;

                                     012B   285 ;	ALL FILES OPENED BY THE JUST EXECUTED IMAGE ARE CLOSED BY CALLING RMS-32,

                                     012B   286 ;	DATA RECORDS ARE SKIPPED IN THE INPUT STREAM, AND THE IMAGE FILE IS CLOSED.

                                     012B   287 ;

                                     012B   288 ;		R2 = NUMBER OF DATA RECORDS SKIPPED IN THE INPUT STREAM.

                                     012B   289 ;-

                                     012B   290  

                                     012B   291 DCL$SHUTDOWN::				;SHUT DOWN IMAGE

                                     012B   292 	ALLOCBUF			;ALLOCATE BUFFER AND DESCRIPTOR

            62         84 8F     9A  012E   293 10$:	MOVZBL	#MSGBUFSIZ,(R2)		;RESET SIZE OF MESSAGE BUFFER

                          00     DD  0132   294 	PUSHL	#0			;RUN DOWN ONLY IMAGE FILES

                          62     9F  0134   295 	PUSHAB	(R2)			;SET ADDRESS OF MESSAGE BUFFER DESCRIPTOR

   00000000'9F            02     FB  0136   296 	CALLS	#2,@#SYS$RMSRUNDWN	;RUNDOWN RMS-32 FILES

            EE            50     E9  013D   297 	BLBC	R0,10$			;IF RUNDOWN FAILURE CONTINUE WITH NEXT FILE

            5E       008C CE     9E  0140   298 	MOVAB	MSGBUFSIZ+8(SP),SP	;DEALLOCATE MESSAGE BUFFER AND DESCRIPTOR

                          52     D4  0145   299 	CLRL	R2			;CLEAR COUNT OF RECORDS SKIPPED

            53         14 AB     D0  0147   300 	MOVL	PRC_L_INDINPRAB(R11),R3	;GET ADDRESS OF INDIRECT RAB

            7E         10 A3     7D  014B   301 	MOVQ	RAB$W_RFA(R3),-(SP)	;SAVE RFA OF LAST COMMAND

         18 A3            02     E0  014F   302 	BBS	#DEV$V_TRM,RAB$L_CTX(R3),30$ ;IF SET, DEVICE IS TERMINAL

                          1C         0153       

         02 A3       4000 8F     A8  0154   303 	BISW	#RAB$M_PPF_IND,RAB$W_ISI(R3) ;CONVERT TO NONPRIVILEGED ISI

                          52     D6  015A   304 20$:	INCL	R2			;INCREMENT NUMBER OF RECORDS SKIPPED

                                     015C   305 	$GET	RAB=(R3)		;GET NEXT RECORD FROM INDIRECT FILE

            F2            50     E8  0165   306 	BLBS	R0,20$			;IF LBS SUCCESS

                          52     D7  0168   307 	DECL	R2			;ADJUST FOR LAST RECORD

         02 A3       4000 8F     AA  016A   308 	BICW	#RAB$M_PPF_IND,RAB$W_ISI(R3) ;CONVERT BACK TO PRIVILEGED ISI

         10 A3            8E     7D  0170   309 30$:	MOVQ	(SP)+,RAB$W_RFA(R3)	;RESTORE RFA OF LAST COMMAND

                                 05  0174   310 	RSB				;

                                     0175   311  

                                     0175   312 	.END

IMAGECTRL       - IMAGE CONTROL DCLS COMMAND EXECUTION           22-AUG-1978 01:18:21   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



$$.TMP1        = 00000001            CLI$_ONLEVL    = 00038100            DEV$M_WCK      = 80000000            

$$.TMP2        = 00000063            CLI$_ONOVF     = 00038108            DEV$V_ALL      = 00000017            

BIT...         = 00000000            CLI$_OVRFLW    = 00038160            DEV$V_AVL      = 00000012            

CLI$_ABFNAM    = 000381B8            CLI$_PARMDEL   = 00038110            DEV$V_CCL      = 00000001            

CLI$_ABKEYW    = 00038000            CLI$_PROC_ID   = 0003FFF1            DEV$V_DIR      = 00000003            

CLI$_ABVERB    = 00038008            CLI$_QUEJOBCRE = 0003FFF9            DEV$V_DMT      = 00000015            

CLI$_BADRET    = 00038198            CLI$_REQPRMABS = 00038812            DEV$V_ELG      = 00000016            

CLI$_BADTEXT   = 000381B0            CLI$_RSLOVF    = 00038118            DEV$V_FOD      = 0000000E            

CLI$_BUFOVF    = 00038018            CLI$_SKPDAT    = 00038120            DEV$V_FOR      = 00000018            

CLI$_COMPLX    = 00038020            CLI$_SPARE0    = 00038010            DEV$V_GEN      = 00000011            

CLI$_CONFQUAL  = 00038802            CLI$_SPARE1    = 00038058            DEV$V_IDV      = 0000001A            

CLI$_CREQUEJOB = 0003884A            CLI$_STKOVF    = 00038128            DEV$V_MBX      = 00000014            

CLI$_DEFOVF    = 00038028            CLI$_SUBMITERR = 00038852            DEV$V_MNT      = 00000013            

CLI$_DEVALSPL  = 0003885A            CLI$_SYMDEL    = 00038130            DEV$V_NET      = 0000000D            

CLI$_DEVNOTFOR = 0003887A            CLI$_SYMOVF    = 00038138            DEV$V_ODV      = 0000001B            

CLI$_DEVNOTSPL = 00038862            CLI$_UNDFIL    = 00038188            DEV$V_RCK      = 0000001E            

CLI$_DIRECT    = 00038030            CLI$_UNDSYM    = 00038140            DEV$V_REC      = 00000000            

CLI$_EXPSYN    = 00038038            CLI$_UNPROPARM = 00038170            DEV$V_RND      = 0000001C            

CLI$_FILOPN    = 00038190            CLI$_UNPROQUAL = 00038168            DEV$V_RTM      = 0000001D            

CLI$_ILLVAL    = 0003883A            CLI$_USGOTO    = 00038148            DEV$V_SDI      = 00000004            

CLI$_IMCHNG    = 00038040            CLI$_VALCNVERR = 00038832            DEV$V_SHR      = 00000010            

CLI$_IMGFNF    = 00038872            CLI$_VALREQ    = 00038150            DEV$V_SPL      = 00000006            

CLI$_INSFPRM   = 00038048            CMDBUFSIZ      = 000001FC            DEV$V_SQD      = 00000005            

CLI$_INVKEY    = 00038178            DCL$ALLOCBUF     ********   X   03   DEV$V_SWL      = 00000019            

CLI$_INVQUAL   = 0003880A            DCL$CONTINUE     00000010 RG    03   DEV$V_TRM      = 00000002            

CLI$_INVQUALNUM= 0003881A            DCL$DEBUG        00000014 RG    03   DEV$V_WCK      = 0000001F            

CLI$_INVREQTYP = 00038822            DCL$GETDVAL      ********   X   03   EXE$EXIT_IMAGE   ********   X   03   

CLI$_INVRSP    = 00038180            DCL$LOGOUT       ********   X   03   EXE$REFLECT      ********   X   03   

CLI$_INVUIC    = 000381A8            DCL$RUNDOWN      000000C6 RG    03   GBL...         = 00000000            

CLI$_IVCHAR    = 00038050            DCL$RUNDWNI      000000C0 RG    03   HEXTAB           00000000 R     03   

CLI$_IVDEVTYPE = 0003886A            DCL$SHUTDOWN     0000012B RG    03   INPBUFSIZ      = 00000084            

CLI$_IVFNAM    = 000381C0            DCL$STOP         00000036 RG    03   MSGBUFSIZ      = 00000084            

CLI$_IVKEYW    = 00038060            DCL$UNSTACK      ********   X   03   PRC_B_DEFRADIX   00000092            

CLI$_IVOPER    = 00038068            DEV$M_ALL      = 00800000            PRC_B_EXMDEPMOD  00000091            

CLI$_IVPROT    = 00038070            DEV$M_AVL      = 00040000            PRC_B_EXMDEPWID  00000090            

CLI$_IVQLOC    = 00038078            DEV$M_CCL      = 00000002            PRC_K_DEC      = 00000001            

CLI$_IVSYMB    = 00038080            DEV$M_DIR      = 00000008            PRC_K_HEX      = 00000000            

CLI$_IVVALU    = 00038088            DEV$M_DMT      = 00200000            PRC_K_LENGTH     000000A0            

CLI$_IVVERB    = 00038090            DEV$M_ELG      = 00400000            PRC_K_OCT      = 00000002            

CLI$_MAXPARM   = 00038098            DEV$M_FOD      = 00004000            PRC_L_CLIWRK0    0000005C            

CLI$_MULKEY    = 000381A0            DEV$M_FOR      = 01000000            PRC_L_CLIWRK1    00000060            

CLI$_NOATFIL   = 000380A0            DEV$M_GEN      = 00020000            PRC_L_CLIWRK2    00000064            

CLI$_NOCCAT    = 000380A8            DEV$M_IDV      = 04000000            PRC_L_CLIWRK3    00000068            

CLI$_NOCOMD    = 000380B0            DEV$M_MBX      = 00100000            PRC_L_CLIWRK4    0000006C            

CLI$_NOKEYW    = 000380B8            DEV$M_MNT      = 00080000            PRC_L_ERRRAB     00000010            

CLI$_NOLIST    = 000380C0            DEV$M_NET      = 00002000            PRC_L_EXMDEPADR  0000008C            

CLI$_NOOPTPRS  = 00038842            DEV$M_ODV      = 08000000            PRC_L_EXTARG     00000078            

CLI$_NOQUAL    = 000380C8            DEV$M_RCK      = 40000000            PRC_L_EXTBLK     00000070            

CLI$_NORMAL    = 00030001            DEV$M_REC      = 00000001            PRC_L_EXTCOD     00000080            

CLI$_NOTNEG    = 000380D8            DEV$M_RND      = 10000000            PRC_L_EXTHND     00000074            

CLI$_NOVALU    = 000380D0            DEV$M_RTM      = 20000000            PRC_L_EXTPRM     0000007C            

CLI$_NOVALUE   = 0003882A            DEV$M_SDI      = 00000010            PRC_L_INDEPTH    00000048            

CLI$_NULFIL    = 000380E0            DEV$M_SHR      = 00010000            PRC_L_INDFAB     0000001C            

CLI$_NUMBER    = 000380E8            DEV$M_SPL      = 00000040            PRC_L_INDINPRAB  00000014            

CLI$_ONCOMD    = 000380F0            DEV$M_SQD      = 00000020            PRC_L_INDOUTRAB  00000018            

CLI$_ONERR     = 000380F8            DEV$M_SWL      = 02000000            PRC_L_INPRAB     00000008            

CLI$_ONEVAL    = 00038158            DEV$M_TRM      = 00000004            PRC_L_LSTSTATUS  00000094            

IMAGECTRL       - IMAGE CONTROL DCLS COMMAND EXECUTION           22-AUG-1978 01:18:21   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (1)



PRC_L_ONCTLY     0000009C            PSL$M_FPD      = 08000000            RAB$B_ROP3       00000007            

PRC_L_ONERROR    00000058            PSL$M_FU       = 00000040            RAB$B_TMO        0000001F            

PRC_L_OUTRAB     0000000C            PSL$M_IPL      = 001F0000            RAB$C_BID      = 00000001            

PRC_L_PROCUIC    00000098            PSL$M_IS       = 04000000            RAB$C_BLN        00000044            

PRC_L_SAVAP      00000000            PSL$M_IV       = 00000020            RAB$C_KEY      = 00000001            

PRC_L_SAVFP      00000004            PSL$M_PRVMOD   = 00C00000            RAB$C_RFA      = 00000002            

PRC_L_SEVERITY   00000040            PSL$M_SAFBITS  = 000037FF            RAB$C_SEQ      = 00000000            

PRC_L_STACKLM    00000088            PSL$M_TBIT     = 00000010            RAB$K_BLN        00000044            

PRC_L_STACKPT    00000084            PSL$M_TP       = 40000000            RAB$L_BKT        00000038            

PRC_L_STATUS     00000044            PSL$S_CURMOD   = 00000002            RAB$L_CTX        00000018            

PRC_L_SYMBOL     0000004C            PSL$S_IPL      = 00000005            RAB$L_DCT        00000038            

PRC_M_CNTRLY   = 00000002            PSL$S_PRVMOD   = 00000002            RAB$L_FAB        0000003C            

PRC_M_DBGQUAL  = 00000200            PSL$V_CM       = 0000001F            RAB$L_KBF        00000030            

PRC_M_DBGTRUE  = 00000400            PSL$V_CURMOD   = 00000018            RAB$L_PBF        00000030            

PRC_M_DISABL   = 00000004            PSL$V_DV       = 00000007            RAB$L_RBF        00000028            

PRC_M_EXIT     = 00000008            PSL$V_FPD      = 0000001B            RAB$L_RFA0       00000010            

PRC_M_GOEOF    = 00000001            PSL$V_FU       = 00000006            RAB$L_RHB        0000002C            

PRC_M_GOTO     = 00000010            PSL$V_IPL      = 00000010            RAB$L_ROP        00000004            

PRC_M_HANGUP   = 00001000            PSL$V_IS       = 0000001A            RAB$L_STS        00000008            

PRC_M_IND      = 00000020            PSL$V_IV       = 00000005            RAB$L_STV        0000000C            

PRC_M_MODE     = 00000040            PSL$V_PRVMOD   = 00000016            RAB$L_UBF        00000024            

PRC_M_NOCTLY   = 00004000            PSL$V_TBIT     = 00000004            RAB$M_ASY      = 00000001            

PRC_M_PAUSE    = 00002000            PSL$V_TP       = 0000001E            RAB$M_BIO      = 00000800            

PRC_M_USRDET   = 00000100            PTR_K_BLANK    = 00000001            RAB$M_CCO      = 80000000            

PRC_M_VERIFY   = 00000080            PTR_K_COLON    = 00000002            RAB$M_CVT      = 04000000            

PRC_M_YLEVEL   = 00000800            PTR_K_COMDQUAL = 00000000            RAB$M_EOF      = 00000100            

PRC_Q_ALLOCREG   00000020            PTR_K_COMMA    = 00000005            RAB$M_FDL      = 00000040            

PRC_Q_GLOBAL     00000028            PTR_K_ENDLINE  = 00000004            RAB$M_HSH      = 00000080            

PRC_Q_LABEL      00000030            PTR_K_LPAREN   = 00000007            RAB$M_KGE      = 00200000            

PRC_Q_LOCAL      00000038            PTR_K_PARAMETR = 00000003            RAB$M_KGT      = 00400000            

PRC_V_CNTRLY   = 00000001            PTR_K_PARMQUAL = 00000001            RAB$M_LIM      = 00004000            

PRC_V_DBGQUAL  = 00000009            PTR_K_PLUS     = 00000004            RAB$M_LOA      = 00002000            

PRC_V_DBGTRUE  = 0000000A            PTR_K_QUALVALU = 00000002            RAB$M_LOC      = 00010000            

PRC_V_DISABL   = 00000002            PTR_K_RPAREN   = 00000006            RAB$M_MAS      = 00000020            

PRC_V_EXIT     = 00000003            PTR_K_SLASH    = 00000003            RAB$M_NLK      = 00100000            

PRC_V_GOEOF    = 00000000            PTR_L_DESCR      00000000            RAB$M_NXR      = 00800000            

PRC_V_GOTO     = 00000004            PTR_S_FLAGS    = 00000004            RAB$M_PMT      = 40000000            

PRC_V_HANGUP   = 0000000C            PTR_S_OFFSET   = 0000000C            RAB$M_PPF_IND  = 00004000            

PRC_V_IND      = 00000005            PTR_S_TERM     = 00000004            RAB$M_PPF_RAT  = 00003FC0            

PRC_V_MODE     = 00000006            PTR_S_TYPE     = 00000004            RAB$M_PTA      = 20000000            

PRC_V_NOCTLY   = 0000000E            PTR_S_VALUE    = 00000008            RAB$M_RAH      = 00000200            

PRC_V_PAUSE    = 0000000D            PTR_V_FLAGS    = 00000014            RAB$M_RLK      = 00080000            

PRC_V_USRDET   = 00000008            PTR_V_NEGATE   = 00000000            RAB$M_RNE      = 01000000            

PRC_V_VERIFY   = 00000007            PTR_V_OFFSET   = 00000008            RAB$M_RNF      = 08000000            

PRC_V_YLEVEL   = 0000000B            PTR_V_TERM     = 00000018            RAB$M_TMO      = 02000000            

PRC_W_CLIFLAG    00000052            PTR_V_TYPE     = 0000001C            RAB$M_TPT      = 00000002            

PRC_W_ERRIFI     00000052            PTR_V_VALUE    = 00000000            RAB$M_UIF      = 00000010            

PRC_W_FLAGS      00000054            RAB$B_BID        00000000            RAB$M_ULK      = 00040000            

PRC_W_INPCHAN    00000050            RAB$B_BLN        00000001            RAB$M_WAT      = 00020000            

PRC_W_ONLEVEL    00000056            RAB$B_KRF        00000035            RAB$M_WBH      = 00000400            

PSL$C_EXEC     = 00000001            RAB$B_KSZ        00000034            RAB$S_PPF_RAT  = 00000008            

PSL$C_KERNEL   = 00000000            RAB$B_MBC        00000037            RAB$V_ASY      = 00000000            

PSL$C_SUPER    = 00000002            RAB$B_MBF        00000036            RAB$V_BIO      = 0000000B            

PSL$C_USER     = 00000003            RAB$B_PSZ        00000034            RAB$V_CCO      = 0000001F            

PSL$M_CM       = 80000000            RAB$B_RAC        0000001E            RAB$V_CVT      = 0000001A            

PSL$M_CURMOD   = 03000000            RAB$B_ROP1       00000005            RAB$V_EOF      = 00000008            

PSL$M_DV       = 00000080            RAB$B_ROP2       00000006            RAB$V_FDL      = 00000006            

IMAGECTRL       - IMAGE CONTROL DCLS COMMAND EXECUTION           22-AUG-1978 01:18:21   VAX-11 MACRO X0.3-11               Page  12

SYMBOL TABLE                                                                                                                     (1)



RAB$V_HSH      = 00000007            SS$_CONTINUE   = 00000001            SS$_ILLLBLAST  = 00000968            

RAB$V_KGE      = 00000015            SS$_CONTROLC   = 00000651            SS$_ILLPAGCNT  = 000000FC            

RAB$V_KGT      = 00000016            SS$_CONTROLO   = 00000609            SS$_ILLSEQOP   = 000002DC            

RAB$V_LIM      = 0000000E            SS$_CONTROLY   = 00000611            SS$_ILLSER     = 00000104            

RAB$V_LOA      = 0000000D            SS$_CREATED    = 00000619            SS$_ILLUSRLBLRD= 00000958            

RAB$V_LOC      = 00000010            SS$_CTRLERR    = 00000054            SS$_ILLUSRLBLWT= 00000960            

RAB$V_MAS      = 00000005            SS$_DATACHECK  = 0000005C            SS$_INCVOLLABEL= 0000010C            

RAB$V_NLK      = 00000014            SS$_DATAOVERUN = 00000838            SS$_INSFARG    = 00000114            

RAB$V_NXR      = 00000017            SS$_DEBUG      = 0000046C            SS$_INSFMEM    = 00000124            

RAB$V_PMT      = 0000001E            SS$_DECOVF     = 000004A4            SS$_INSFRAME   = 0000012C            

RAB$V_PPF_IND  = 0000000E            SS$_DEVACTIVE  = 000002C4            SS$_INSFWSL    = 0000011C            

RAB$V_PPF_RAT  = 00000006            SS$_DEVALLOC   = 00000840            SS$_INTDIV     = 00000484            

RAB$V_PTA      = 0000001D            SS$_DEVALRALLOC= 00000641            SS$_INTOVF     = 0000047C            

RAB$V_RAH      = 00000009            SS$_DEVASSIGN  = 00000848            SS$_IVADDR     = 00000134            

RAB$V_RLK      = 00000013            SS$_DEVFOREIGN = 00000064            SS$_IVCHAN     = 0000013C            

RAB$V_RNE      = 00000018            SS$_DEVICEFULL = 00000850            SS$_IVCHNLSEC  = 0000026C            

RAB$V_RNF      = 0000001B            SS$_DEVMOUNT   = 0000006C            SS$_IVDEVNAM   = 00000144            

RAB$V_TMO      = 00000019            SS$_DEVNOTALLOC= 00000858            SS$_IVGSDNAM   = 0000014C            

RAB$V_TPT      = 00000001            SS$_DEVNOTMBX  = 00000074            SS$_IVLOGNAM   = 00000154            

RAB$V_UIF      = 00000004            SS$_DEVNOTMOUNT= 0000007C            SS$_IVLOGTAB   = 0000015C            

RAB$V_ULK      = 00000012            SS$_DEVOFFLINE = 00000084            SS$_IVPROTECT  = 000002F4            

RAB$V_WAT      = 00000011            SS$_DIRFULL    = 00000860            SS$_IVQUOTAL   = 00000164            

RAB$V_WBH      = 0000000A            SS$_DRVERR     = 0000008C            SS$_IVSECFLG   = 0000016C            

RAB$W_ISI        00000002            SS$_DUPFILENAME= 00000868            SS$_IVSECIDCTL = 000002E4            

RAB$W_RFA        00000010            SS$_DUPLNAM    = 00000094            SS$_IVSSRQ     = 00000174            

RAB$W_RFA4       00000014            SS$_ENDOFFILE  = 00000870            SS$_IVSTSFLG   = 0000017C            

RAB$W_RSZ        00000022            SS$_ENDOFTAPE  = 00000878            SS$_IVTIME     = 00000184            

RAB$W_USZ        00000020            SS$_ENDOFUSRLBL= 00000970            SS$_LCKPAGFUL  = 000000D4            

RSLBUFSIZ      = 00000180            SS$_EXQUOTA    = 0000001C            SS$_LENVIO     = 0000018C            

SS$_ABORT      = 0000002C            SS$_EXTIDXFILE = 00000880            SS$_LKWSETFUL  = 00000194            

SS$_ACCONFLICT = 00000800            SS$_FCPREADERR = 00000888            SS$_MBFULL     = 000008D8            

SS$_ACCVIO     = 0000000C            SS$_FCPREPSTN  = 00000988            SS$_MBTOOSML   = 0000019C            

SS$_ACPVAFUL   = 000002FC            SS$_FCPREWNDERR= 00000890            SS$_MCHECK     = 000002BC            

SS$_ARTRES     = 00000474            SS$_FCPSPACERR = 00000898            SS$_MEDOFL     = 000001A4            

SS$_ASTFLT     = 0000040C            SS$_FCPWRITERR = 000008A0            SS$_MSGNOTFND  = 00000621            

SS$_BADATTRIB  = 00000034            SS$_FILACCERR  = 0000009C            SS$_MTLBLLONG  = 00000304            

SS$_BADCHKSUM  = 00000808            SS$_FILALRACC  = 000000A4            SS$_MUSTCLOSEFL= 00000948            

SS$_BADESCAPE  = 0000003C            SS$_FILELOCKED = 000008A8            SS$_NOAQB      = 00000314            

SS$_BADFILEHDR = 00000810            SS$_FILENUMCHK = 000008B0            SS$_NODATA     = 000001AC            

SS$_BADFILENAME= 00000818            SS$_FILESEQCHK = 000008B8            SS$_NOHANDLER  = 000008F8            

SS$_BADFILEVER = 00000820            SS$_FILESTRUCT = 000008C0            SS$_NOHOMEBLK  = 000008E0            

SS$_BADIMGHDR  = 00000044            SS$_FILNOTACC  = 000000AC            SS$_NOIOCHAN   = 000001B4            

SS$_BADIRECTORY= 00000828            SS$_FILNOTCNTG = 000002AC            SS$_NOLINKS    = 0000027C            

SS$_BADPARAM   = 00000014            SS$_FILNOTEXP  = 000000B4            SS$_NOLOGNAM   = 000001BC            

SS$_BADSTACK   = 000002B4            SS$_FLTDIV     = 00000494            SS$_NOMBX      = 00000274            

SS$_BEGOFFILE  = 00000938            SS$_FLTOVF     = 0000048C            SS$_NOMOREFILES= 00000930            

SS$_BLOCKCNTERR= 00000940            SS$_FLTUND     = 0000049C            SS$_NONEXDRV   = 000001C4            

SS$_BREAK      = 00000414            SS$_FORMAT     = 000000BC            SS$_NONEXPR    = 000008E8            

SS$_BUFBYTALI  = 0000030C            SS$_GPTFULL    = 000000C4            SS$_NONLOCAL   = 000008F0            

SS$_BUFFEROVF  = 00000601            SS$_GSDFULL    = 000000CC            SS$_NOPRIV     = 00000024            

SS$_BUGCHECK   = 000002A4            SS$_HANGUP     = 000002CC            SS$_NORMAL     = 00000001            

SS$_CANCEL     = 00000830            SS$_HEADERFULL = 000008C8            SS$_NOSIGNAL   = 00000900            

SS$_CHANINTLK  = 0000004C            SS$_IDXFILEFULL= 000008D0            SS$_NOSOLICIT  = 00000284            

SS$_CLIFRCEXT  = 00000980            SS$_ILLBLKNUM  = 000000DC            SS$_NOSUCHDEV  = 00000908            

SS$_CMODSUPR   = 0000041C            SS$_ILLCNTRFUNC= 000000E4            SS$_NOSUCHFILE = 00000910            

SS$_CMODUSER   = 00000424            SS$_ILLEFC     = 000000EC            SS$_NOSUCHNODE = 0000028C            

SS$_COMPAT     = 0000042C            SS$_ILLIOFUNC  = 000000F4            SS$_NOSUCHSEC  = 00000978            

IMAGECTRL       - IMAGE CONTROL DCLS COMMAND EXECUTION           22-AUG-1978 01:18:21   VAX-11 MACRO X0.3-11               Page  13

SYMBOL TABLE                                                                                                                     (1)



SS$_NOTAPEOP   = 00000264            WRK_L_IMAGE      FFFFFFEC            

SS$_NOTFILEDEV = 000001CC            WRK_L_MAXPARM    FFFFFFE4            

SS$_NOTINTBLSZ = 000001D4            WRK_L_MINPARM    FFFFFFE8            

SS$_NOTLABELMT = 000001DC            WRK_L_PARMCNT    FFFFFFF0            

SS$_NOTMODIFIED= 00000659            WRK_L_PAROUT     FFFFFFF4            

SS$_NOTNETDEV  = 000002EC            WRK_L_PROMPT     FFFFFFD0            

SS$_NOTRAN     = 00000629            WRK_L_PROPTR     FFFFFFDC            

SS$_NOTSQDEV   = 000001E4            WRK_L_QUABLK     FFFFFFE0            

SS$_OPCCUS     = 00000434            WRK_L_RSLNXT     FFFFFD34            

SS$_OPCDEC     = 0000043C            WRK_L_SAVAP      FFFFFFC8            

SS$_OPINCOMPL  = 000002D4            WRK_L_SAVFP      FFFFFFCC            

SS$_PAGOWNVIO  = 000001EC            WRK_L_SAVSP      FFFFFFC4            

SS$_PAGRDERR   = 00000444            WRK_M_COMMAND  = 00000002            

SS$_PARITY     = 000001F4            WRK_M_IMCHNG   = 00000004            

SS$_PARTESCAPE = 000001FC            WRK_M_INQUIRE  = 00000100            

SS$_PFMBSY     = 00000204            WRK_M_NOSTAT   = 00000200            

SS$_PLHLDR     = 00000404            WRK_M_PROMPT   = 00000008            

SS$_PSTFULL    = 0000020C            WRK_M_QUAL     = 00000010            

SS$_RADRMOD    = 0000044C            WRK_M_QUOTE    = 00000020            

SS$_REJECT     = 00000294            WRK_M_RUNDWN   = 00000001            

SS$_REMOTE     = 00000649            WRK_M_STAR     = 00000040            

SS$_RESIGNAL   = 00000918            WRK_M_TRAILSPC = 00000400            

SS$_RESULTOVF  = 00000214            WRK_M_VERB     = 00000080            

SS$_ROPRAND    = 00000454            WRK_Q_IOSB       FFFFFFD4            

SS$_SECTBLFUL  = 0000021C            WRK_V_COMMAND  = 00000001            

SS$_SSFAIL     = 0000045C            WRK_V_IMCHNG   = 00000002            

SS$_SUBRNG     = 000004AC            WRK_V_INQUIRE  = 00000008            

SS$_SUPERSEDE  = 00000631            WRK_V_NOSTAT   = 00000009            

SS$_TAPEPOSLOST= 00000224            WRK_V_PROMPT   = 00000003            

SS$_TBIT       = 00000464            WRK_V_QUAL     = 00000004            

SS$_TIMEOUT    = 0000022C            WRK_V_QUOTE    = 00000005            

SS$_TOOMANYVER = 00000990            WRK_V_RUNDWN   = 00000000            

SS$_TOOMUCHDATA= 0000029C            WRK_V_STAR     = 00000006            

SS$_UNASEFC    = 00000234            WRK_V_TRAILSPC = 0000000A            

SS$_UNSAFE     = 0000023C            WRK_V_VERB     = 00000007            

SS$_UNWIND     = 00000920            WRK_W_FLAGS      FFFFFFFA            

SS$_UNWINDING  = 00000928            WRK_W_IMGCHAN    FFFFFFF8            

SS$_VASFULL    = 00000244            _$$_           = 00000022            

SS$_VECINUSE   = 0000024C            

SS$_VOLINV     = 00000254            

SS$_WAITUSRLBL = 00000950            

SS$_WASCLR     = 00000001            

SS$_WASECC     = 00000639            

SS$_WASSET     = 00000009            

SS$_WRITLCK    = 0000025C            

SS$_WRONGACP   = 0000031C            

SYS$DELPRC       ********   X   03   

SYS$GET          ********  GX   03   

SYS$RMSRUNDWN    ********   X   03   

SYS$RUNDWN       ********   X   03   

TESTMODE         000000A7 R     03   

WRK_AB_BUFFER    FFFFFD38            

WRK_AG_RESULT    FFFFFBB4            

WRK_B_VERBTYP    FFFFFFC0            

WRK_K_LENGTH     FFFFFBB4            

WRK_L_CHARPTR    FFFFFFFC            

WRK_L_CMDOUT     FFFFFFBC            

IMAGECTRL       - IMAGE CONTROL DCLS COMMAND EXECUTION           22-AUG-1978 01:18:21   VAX-11 MACRO X0.3-11               Page  14

PROGRAM SECTION SYNOPSIS                                                                                                         (1)







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$            FFFFFFFC      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

DCL$ZCODE        00000175      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

6582. BYTES LEFT IN FREE MEMORY POOL.

3252. BYTES OF RECLAIMED MEMORY.

EXE$:IMAGECTRL,LIS$:IMAGECTRL/-SP=EXECML$/ML,LIB$:DCL/ML,SRC$:IMAGECTRL

40 MLB DIR RDS - 890 GETS TO DEFINE 30 MACROS. 72 INTER. FILE WRITES. 

