SYSRUNDWN       IMAGE RUNDOWN SYSTEM SERVICE                     21-AUG-1978 20:41:12   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)    3400  HISTORY			; DETAILED

   (1)    4000  DECLARATIONS

   (1)    6100  EXE$RUNDWN - IMAGE RUNDOWN SYSTEM SERVICE

SYSRUNDWN       IMAGE RUNDOWN SYSTEM SERVICE                     21-AUG-1978 20:41:12   VAX-11 MACRO X0.3-11               Page   1

02                                                                                                                               (1)



                                     0000   100 

                                     0000   200 	.TITLE	SYSRUNDWN IMAGE RUNDOWN SYSTEM SERVICE

                                     0000   300 	.IDENT	/02/

                                     0000   400 

                                     0000   500 ;

                                     0000   600 ; COPYRIGHT (C) 1978

                                     0000   700 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000   800 ;

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

                                     0000  1000 ; COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY WITH  THE INCLUSION OF THE

                                     0000  1100 ; ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,

                                     0000  1200 ; MAY NOT BE PROVIDED OR  OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON

                                     0000  1300 ; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE

                                     0000  1400 ; TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES

                                     0000  1500 ; REMAIN IN DEC.

                                     0000  1600 ;

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

                                     0000  1800 ; AND SHOULD  NOT BE CONSTRUED  AS A COMMITMENT  BY DIGITAL  EQUIPMENT

                                     0000  1900 ; CORPORATION.

                                     0000  2000 ;

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

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

                                     0000  2300 

                                     0000  2400 ;++

                                     0000  2500 ; FACILITY: EXECUTIVE, SYSTEM SERVICES

                                     0000  2600 ;

                                     0000  2700 ; ABSTRACT:

                                     0000  2800 ;

                                     0000  2900 ; ENVIRONMENT:

                                     0000  3000 ;

                                     0000  3100 ;--

                                     0000  3200 ;

                                     0000  3300 ;	.PAGE

                                     0000  3400 	.SBTTL	HISTORY			; DETAILED

                                     0000  3500 ;

                                     0000  3600 ; AUTHOR:	R. HUSTVEDT	 CREATION DATE: 10-OCT-76

                                     0000  3700 ;

                                     0000  3800 ; MODIFIED BY: R.HEINEN 19-JUN-1978

SYSRUNDWN       IMAGE RUNDOWN SYSTEM SERVICE                     21-AUG-1978 20:41:12   VAX-11 MACRO X0.3-11               Page   2

02              DECLARATIONS                                                                                                     (1)



                                     0000  4000 	.SBTTL	DECLARATIONS

                                     0000  4100 

                                     0000  4200 ;

                                     0000  4300 ; INCLUDE FILES:

                                     0000  4400 ;

                                     0000  4500 

                                     0000  4600 	$ACBDEF				; DEFINE AST CONTROL BLOCK

                                     0000  4700 	$CCBDEF				; DEFINE CHANNEL CONTROL BLOCK

                                     0000  4800 	$IPLDEF				; DEFINE INTERRUPT PRIORITIES

                                     0000  4900 	$LOGDEF				; DEFINE LOGICAL NAME BLOCK

                                     0000  5000 	$PCBDEF				; DEFINE PCB OFFSETS

                                     0000  5100 	$PRDEF				; DEFINE PROCESSOR REGISTERS

                                     0000  5200 	$SSDEF				; DEFINE STATUS CODES

                                     0000  5300 

                                     0000  5400 ;

                                     0000  5500 ; EQUATED SYMBOLS:

                                     0000  5600 ;

                           00000004  0000  5700 ACMODE=4				; DISPLACEMENT TO ACCESS MODE ARGUMENT

                                     0000  5800 

                                     0000  5900 	.LIST	MEB			; LIST MACRO EXPANSIONS

SYSRUNDWN       IMAGE RUNDOWN SYSTEM SERVICE                     21-AUG-1978 20:41:12   VAX-11 MACRO X0.3-11               Page   3

02              EXE$RUNDWN - IMAGE RUNDOWN SYSTEM SERVICE                                                                        (1)



                                     0000  6100 	.SBTTL	EXE$RUNDWN - IMAGE RUNDOWN SYSTEM SERVICE

                                     0000  6200 

                                     0000  6300 ;++

                                     0000  6400 ; FUNCTIONAL DESCRIPTION:

                                     0000  6500 ;	EXE$RUNDWN TERMINATES ALL PENDING ACTIVITY FOR THE SPECIFIED

                                     0000  6600 ;	AND ALL LESS PRIVILEGED ACCESS MODES.  ALL RESOURCES ASSOCIATED 

                                     0000  6700 ;	WITH THE PENDING ACTIVITY WILL BE RELEASED IF APPROPRIATE

                                     0000  6800 ;

                                     0000  6900 ; CALLING SEQUENCE:

                                     0000  7000 ;	CALLG	ARGLIST,EXE$RUNDWN

                                     0000  7100 ;

                                     0000  7200 ; INPUT PARAMETERS:

                                     0000  7300 ;	ACMODE(AP) - ACCESS MODE BOUNDARY FOR WHICH RUNDOWN IS TO BE PERFORMED

                                     0000  7400 ;			(MAXIMIZED WITH THE ACCESS MODE OF THE CALLER)

                                     0000  7500 ;

                                     0000  7600 ; IMPLICIT INPUTS:

                                     0000  7700 ;	R4 - POINTER TO CURRENT PCB

                                     0000  7800 ;

                                     0000  7900 ; OUTPUT PARAMETERS:

                                     0000  8000 ;	NONE

                                     0000  8100 ;

                                     0000  8200 ; IMPLICIT OUTPUTS:

                                     0000  8300 ;	ALL ACTIVITY INITIATED BUT NOT COMPLETED FOR ALL ACCESS MODES

                                     0000  8400 ;	HAVING THE SAME OR LESSER PRIVILEGE THAN THAT SPECIFIED WILL

                                     0000  8500 ;	BE TERMINATED.

                                     0000  8600 ;

                                     0000  8700 ; COMPLETION CODES:

                                     0000  8800 ;	SS$_NORMAL  -  SUCCESSFUL COMPLETION

                                     0000  8900 ;

                                     0000  9000 ; SIDE EFFECTS:

                                     0000  9100 ;	NONE

                                     0000  9200 ;

                                     0000  9300 ;--

                                     0000  9400 

                               00FC' 0000  9500 	.ENTRY	EXE$RUNDWN,^M<R2,R3,R4,R5,R6,R7>

            02            00     EF  0002  9600 	EXTZV	#0,#2,ACMODE(AP),R0	; FETCH ACCESS MODE ARGUMENT

            50         04 AC         0005       

                          FFF5'  30  0008  9700 	BSBW	EXE$MAXACMODE		; MAXIMIZE WITH PREVIOUS

            57            50     D0  000B  9800 	MOVL	R0,R7			; SAVE IN R7 FOR REFERENCE

         28 A4            16     E5  000E  9805 	BBCC	#PCB$V_PWRAST,PCB$L_STS(R4),10$	; SKIP IF NO POWER FAIL AST

                          09         0012       

                 00000000'9F     D4  0013  9810 	CLRL	@#CTL$GL_POWERAST	; ZAP AST ADDRESS

                       3C A4     B6  0019  9815 	INCW	PCB$W_ASTCNT(R4)	; AND RESTORE AST QUOTA

                                     001C  9820 10$:					;

                                     001C  9900  

                                     001C 10000 ;-------------------------------------------------------------

                                     001C 10100 ;

                                     001C 10200 ;	DEASSIGN CHANNELS WITHOUT OPEN FILES

                                     001C 10300 ;

                                     001C 10400 ;-------------------------------------------------------------

                                     001C 10500 DASSIGN1:				; FIRST DEASSIGN PASS

            56   00000000'9F     3C  001C 10600 	MOVZWL	@#CTL$GW_NMIOCH,R6	; GET NUMBER OF I/O CHANNELS

            55   00000000'9F     3C  0023 10700 	MOVZWL	@#CTL$GW_CHINDX,R5	; GET MAXIMUM INDEX + 16

            55            55     CE  002A 10800 	MNEGL	R5,R5			; INVERT

            55            10     C0  002D 10900 10$:	ADDL	#16,R5			; POINT AT NEXT CHANNEL

            53   00000000'FF45   9E  0030 11000 	MOVAB	@CTL$GL_CCBBASE[R5],R3	; COMPUTE ADDRESS OF HIGHEST CHANNEL

            57         09 A3     91  0038 11100 	CMPB	CCB$B_AMOD(R3),R7	; IS THIS CHANNEL DEASSIGNABLE?

SYSRUNDWN       IMAGE RUNDOWN SYSTEM SERVICE                     21-AUG-1978 20:41:12   VAX-11 MACRO X0.3-11               Page   4

02              EXE$RUNDWN - IMAGE RUNDOWN SYSTEM SERVICE                                                                        (1)



                          0A     15  003C 11200 	BLEQ	20$			; NO, ASSIGNED BY LOWER ACMODE

            7E            55     CE  003E 11300 	MNEGL	R5,-(SP)		; CHANNEL NUMBER ARGUMENT

   00000000'9F            01     FB  0041 11400 	CALLS	#1,@#SYS$DASSGN		; DE-ASSIGN CHANNEL

            E2            56     F4  0048 11500 20$:	SOBGEQ	R6,10$			; NEXT CHANNEL

                                     004B 11600  

                                     004B 11700 ;-------------------------------------------------------------

                                     004B 11800 ;

                                     004B 11900 ;	RELEASE MEMORY

                                     004B 12000 ;

                                     004B 12100 ;-------------------------------------------------------------

                                     004B 12200 

                          FFB2'  30  004B 12300 	BSBW	MMG$IMGRESET		; RELEASE IMAGE PAGES

                                     004E 12400 ;**************************************   NEED INTERFACE CHANGE FOR ACMODE

                                     004E 12500 ;-------------------------------------------------------------

                                     004E 12600 ;

                                     004E 12700 ;	DEASSIGN CHANNELS - ALL

                                     004E 12800 ;

                                     004E 12900 ;-------------------------------------------------------------

                                     004E 13000  

            56   00000000'9F     3C  004E 13100 	MOVZWL	@#CTL$GW_NMIOCH,R6	; GET NUMBER OF I/O CHANNELS

            55   00000000'9F     3C  0055 13200 	MOVZWL	@#CTL$GW_CHINDX,R5	; GET MAXIMUM INDEX + 16

            55            55     CE  005C 13300 	MNEGL	R5,R5			; INVERT

            55            10     C0  005F 13400 25$:	ADDL	#16,R5			; POINT AT NEXT CHANNEL

            53   00000000'FF45   9E  0062 13500 	MOVAB	@CTL$GL_CCBBASE[R5],R3	; COMPUTE ADDRESS OF HIGHEST CHANNEL

            57         09 A3     91  006A 13600 	CMPB	CCB$B_AMOD(R3),R7	; IS THIS CHANNEL DEASSIGNABLE?

                          0A     15  006E 13700 	BLEQ	30$			; NO, ASSIGNED BY LOWER ACMODE

            7E            55     CE  0070 13800 	MNEGL	R5,-(SP)		; CHANNEL NUMBER ARGUMENT

   00000000'9F            01     FB  0073 13900 	CALLS	#1,@#SYS$DASSGN		; DE-ASSIGN CHANNEL

            E2            56     F4  007A 14000 30$:	SOBGEQ	R6,25$			; NEXT CHANNEL

                                     007D 14100  

                                     007D 14200 ;-------------------------------------------------------------

                                     007D 14300 ;

                                     007D 14400 ; 	DEALLOCATE LOGICAL NAMES

                                     007D 14500 ;

                                     007D 14600 ;-------------------------------------------------------------

                                     007D 14700  

                                     007D 14800 	$DALLOC_S	ACMODE=R7	; DE-ALLOCATE AT ACCESS MODE

                          57     DD  007D       		PUSHL	R7

                          00     DD  007F       		PUSHL	#0

   00000000'GF            02     FB  0081       		CALLS	#2,G^SYS$DALLOC

                                     0088 14900 

                                     0088 15000 ;-------------------------------------------------------------

                                     0088 15100 ;

                                     0088 15200 ;	CANCEL TIMER REQUESTS

                                     0088 15300 ;

                                     0088 15400 ;-------------------------------------------------------------

                                     0088 15500 

                          57     DD  0088 15600 	PUSHL	R7			; ACCESS MODE ARGUMENT

                          00     DD  008A 15700 	PUSHL	#0			; CANCEL ALL INDICATOR

       0000'CF            02     FB  008C 15800 	CALLS	#2,W^EXE$CANTIM		; CANCEL TIMER REQUESTS

                                     0091 15900 

                                     0091 16000 

                                     0091 16100 ;-------------------------------------------------------------

                                     0091 16200 ;

                                     0091 16300 ;	DISASSOCIATE COMMON EVENT BLOCKS

                                     0091 16400 ;

                                     0091 16500 ;-------------------------------------------------------------

SYSRUNDWN       IMAGE RUNDOWN SYSTEM SERVICE                     21-AUG-1978 20:41:12   VAX-11 MACRO X0.3-11               Page   5

02              EXE$RUNDWN - IMAGE RUNDOWN SYSTEM SERVICE                                                                        (1)



                                     0091 16600 

            7E         40 8F     9A  0091 16700 	MOVZBL	#64,-(SP)		; PUSHL EFN FOR GROUP #2

       0000'CF            01     FB  0095 16800 	CALLS	#1,W^EXE$DACEFC		; DISASSOCIATE

            7E         60 8F     9A  009A 16900 	MOVZBL	#96,-(SP)		; PUSH	EFN FOR GROUP #3

       0000'CF            01     FB  009E 17000 	CALLS	#1,W^EXE$DACEFC		; DISASSOCIATE

                                     00A3 17100 ;-------------------------------------------------------------

                                     00A3 17200 ;

                                     00A3 17300 ;	PURGE PENDING UNDELIVERED AST CONTROL BLOCKS

                                     00A3 17400 ;

                                     00A3 17500 ;-------------------------------------------------------------

                                     00A3 17600 

                                     00A3 17700 ASTRUNDWN:				; 

            56         10 A4     DE  00A3 17800 	MOVAL	PCB$L_ASTQFL(R4),R6	; COMPUTE ADDRESS OF HEADER

                                     00A7 17900 	DSBINT	#IPL$_SYNCH		; BLOCK AST ARRIVAL

            7E            12     DB  00A7       		MFPR	S^#PR$_IPL,-(SP)

            12            07     DA  00AA       		MTPR	#IPL$_SYNCH,S^#PR$_IPL

         60 A4       0004'CF     D1  00AD 18000 	CMPL	W^EXE$GQ_ERLMBX+4,PCB$L_PID(R4)	; CHECK FOR ERROR LOG MAILBOX

                          04     12  00B3 18100 	BNEQ	10$			; BR IF NO

                     0000'CF     7C  00B5 18200 	CLRQ	W^EXE$GQ_ERLMBX		; YES, DEASSIGN IT

            50         14 A4     D0  00B9 18300 10$:	MOVL	PCB$L_ASTQBL(R4),R0	; GET TAIL OF AST QUEUE

            56            50     D1  00BD 18400 	CMPL	R0,R6			; CHECK FOR EMPTY QUEUE

                          1A     13  00C0 18500 	BEQL	20$			; YES, DONE WITH ASTS

            02            00     ED  00C2 18600 	CMPZV	#ACB$V_MODE,#ACB$S_MODE,ACB$B_RMOD(R0),R7 ; CHECK ACCESS MODE OF ACB

            57         0B A0         00C5       

                          12     19  00C8 18700 	BLSS	20$			; REACHED THE END OF DELETABLE ASTS

            50            60     0F  00CA 18800 	REMQUE	(R0),R0			; REMOVE IT FROM AST QUEUE

                          0D     1D  00CD 18900 	BVS	20$			; EXIT IF QUEUE EMPTY

         0B A0            06     E1  00CF 19000 	BBC	#ACB$V_QUOTA,ACB$B_RMOD(R0),15$	; SKIP IF NO QUOTA ACCOUNTING

                          03         00D3       

                       3C A4     B6  00D4 19100 	INCW	PCB$W_ASTCNT(R4)	; ALLOW ANOTHER AST

                          FF26'  30  00D7 19200 15$:	BSBW	EXE$DEANONPAGED		; AND RELEASE ITS SPACE

                          DD     11  00DA 19300 	BRB	10$			; CONTINUE

                                     00DC 19400 

                                     00DC 19500 ;-------------------------------------------------------------

                                     00DC 19600 ;

                                     00DC 19700 ;	RESET AST ACTIVE AND AST ENABLE BITS

                                     00DC 19800 ;

                                     00DC 19900 ;-------------------------------------------------------------

                                     00DC 20000 

            55            57     D0  00DC 20100 20$:	MOVL	R7,R5			; INITIALIZE MODE INDEX

                          13     13  00DF 20200 	BEQL	40$			; SKIP TERMINATION HANDLER FOR KERNEL

                                     00E1 20300 30$:	

            55            02     D1  00E1 20400 	CMPL	#2,R5			; SUPERVISOR OR USER MODE?

                          07     19  00E4 20500 	BLSS	35$			; BRANCH IF NOT

                 FFFFFFF8'9F45   D4  00E6 20600 	CLRL	@#CTL$GL_CMSUPR-8[R5]	; CLEAR CHANGE MODE HANDLER

                 FFFFFFFC'9F45   D4  00ED 20700 35$:	CLRL	@#CTL$GL_THEXEC-4[R5]	; CLEAR TERMINATION HANDLER

                 00000000'9F45   7C  00F4 20800 40$:	CLRQ	@#CTL$AQ_EXCVEC[R5]	; CLEAR EXCEPTION HANDLER ENTRIES

                 00000000'9F45   D4  00FB 20900 	CLRL	@#CTL$AL_FINALEXC[R5]	; CLEAR LAST CHANCE EXCEPTION HANDLER

         0D A4            55     E2  0102 21000 	BBSS	R5,PCB$B_ASTEN(R4),50$	; SET ENABLE BIT

                          00         0106       

         0C A4            55     E5  0107 21100 50$:	BBCC	R5,PCB$B_ASTACT(R4),60$	; CLEAR AST ACTIVE

                          00         010B       

            55            06     C1  010C 21200 60$:	ADDL3	#PCB$V_SSFEXC,R5,R0	; COMPUTE SSFAIL ENABLE BIT NUMBER

                          50         010F       

         28 A4            50     E5  0110 21300 	BBCC	R0,PCB$L_STS(R4),70$	; AND CLEAR IT

                          00         0114       

            55            04     F2  0115 21400 70$:	AOBLSS	#4,R5,30$		; DO ALL REQUESTED MODES

SYSRUNDWN       IMAGE RUNDOWN SYSTEM SERVICE                     21-AUG-1978 20:41:12   VAX-11 MACRO X0.3-11               Page   6

02              EXE$RUNDWN - IMAGE RUNDOWN SYSTEM SERVICE                                                                        (1)



                          C8         0118       

                 00000000'9F     D4  0119 21500 	CLRL	@#CTL$GL_CMHANDLR	; CLEAR COMPATIBILITY MODE HANDLER

                          FEDE'  30  011F 21600 	BSBW	SCH$NEWLVL		; COMPUTE NEW ASTLVL

         28 A4            02     E5  0122 21700 	BBCC	#PCB$V_FORCPEN,PCB$L_STS(R4),80$	; CLEAR FORCE EXIT PENDING

                          00         0126       

                                     0127 21800 80$:					;

                                     0127 21900 	ENBINT				; ENABLE AGAIN

            12            8E     DA  0127       		MTPR	(SP)+,S^#PR$_IPL

                                     012A 22000 ;-------------------------------------------------------------

                                     012A 22100 ;

                                     012A 22200 ;	DELETE IMAGE LOGICAL NAMES

                                     012A 22300 ;

                                     012A 22400 ;-------------------------------------------------------------

                                     012A 22500 

                                     012A 22600 LOGNRUNDWN:				; LOGICAL NAME RUNDOWN

                                     012A 22700 	$DELLOG_S	TBLFLG=#2,-	; DELETE PROCESS LOCAL

                                     012A 22800 			ACMODE=R7	; FOR RUNDOWN MODE

                          57     DD  012A       		PUSHL	R7

                          00     DD  012C       		PUSHL	#0

                          02     DD  012E       		PUSHL	#2

   00000000'GF            03     FB  0130       		CALLS	#3,G^SYS$DELLOG

                                     0137 22900 

                                     0137 23000 

            50            01     3C  0137 23100 	MOVZWL	#SS$_NORMAL,R0		; SET NORMAL COMPLETION STATUS

                                 04  013A 23200 	RET				; RETURN

                                     013B 23300 

                                     013B 23400 	.END

SYSRUNDWN       IMAGE RUNDOWN SYSTEM SERVICE                     21-AUG-1978 20:41:12   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



ACB$B_RMOD       0000000B            LOG$C_PROCESS  = 00000002            PCB$V_SSRWAIT  = 0000000A            

ACB$B_TYPE       0000000A            LOG$C_SYSTEM   = 00000000            PCB$V_SUSPEN   = 0000000B            

ACB$L_AST        00000010            LOG$K_LENGTH     00000014            PCB$V_SWPVBN   = 00000010            

ACB$L_ASTPRM     00000014            LOG$L_LTBL       00000004            PCB$V_WAKEPEN  = 0000000C            

ACB$L_ASTQBL     00000004            LOG$L_LTFL       00000000            PCB$V_WALL     = 0000000D            

ACB$L_ASTQFL     00000000            LOG$L_MBXUCB     00000010            PCB$W_APTCNT     00000034            

ACB$L_KAST       00000018            LOG$T_NAME       00000014            PCB$W_ASTCNT     0000003C            

ACB$L_PID        0000000C            LOG$W_GROUP      0000000C            PCB$W_BIOCNT     0000003E            

ACB$M_QUOTA    = 00000040            LOG$W_SIZE       00000008            PCB$W_BIOLM      00000040            

ACB$S_MODE     = 00000002            LOGNRUNDWN       0000012A R     01   PCB$W_BYTCNT     00000042            

ACB$V_KAST     = 00000007            MMG$IMGRESET     ********   X   01   PCB$W_BYTLM      00000068            

ACB$V_MODE     = 00000000            PCB$B_ASTACT     0000000C            PCB$W_DIOCNT     00000044            

ACB$V_QUOTA    = 00000006            PCB$B_ASTEN      0000000D            PCB$W_DIOLM      00000046            

ACB$W_SIZE       00000008            PCB$B_PRI        0000000B            PCB$W_FILCNT     00000048            

ACMODE         = 00000004            PCB$B_PRIB       00000033            PCB$W_GPGCNT     00000038            

ASTRUNDWN        000000A3 R     01   PCB$B_TYPE       0000000A            PCB$W_GRP        00000022            

BIT...         = 00000000            PCB$B_WEFC       00000032            PCB$W_MEM        00000020            

CCB$B_AMOD       00000009            PCB$C_LENGTH     0000007C            PCB$W_MTXCNT     0000000E            

CCB$B_STS        00000008            PCB$K_LENGTH     0000007C            PCB$W_PPGCNT     0000003A            

CCB$C_LENGTH     00000010            PCB$L_ASTQBL     00000014            PCB$W_PRCCNT     0000006A            

CCB$K_LENGTH     00000010            PCB$L_ASTQFL     00000010            PCB$W_SIZE       00000008            

CCB$L_DIRP       0000000C            PCB$L_EFC2P      00000058            PCB$W_STATE      00000030            

CCB$L_UCB        00000000            PCB$L_EFC3P      0000005C            PCB$W_TMBU       00000036            

CCB$L_WIND       00000004            PCB$L_EFCS       00000050            PCB$W_TQCNT      0000004A            

CCB$W_IOC        0000000A            PCB$L_EFCU       00000054            PR$_ACCR       = 00000029            

CTL$AL_FINALEXC  ********   X   01   PCB$L_EFWM       0000004C            PR$_ACCS       = 00000028            

CTL$AQ_EXCVEC    ********   X   01   PCB$L_OWNER      0000001C            PR$_ASTLVL     = 00000013            

CTL$GL_CCBBASE   ********   X   01   PCB$L_PHD        00000064            PR$_ESP        = 00000001            

CTL$GL_CMHANDLR  ********   X   01   PCB$L_PHYPCB     00000018            PR$_ICCS       = 00000018            

CTL$GL_CMSUPR    ********   X   01   PCB$L_PID        00000060            PR$_ICR        = 0000001A            

CTL$GL_POWERAST  ********   X   01   PCB$L_PQB        0000004C            PR$_IPL        = 00000012            

CTL$GL_THEXEC    ********   X   01   PCB$L_SQBL       00000004            PR$_ISP        = 00000004            

CTL$GW_CHINDX    ********   X   01   PCB$L_SQFL       00000000            PR$_KSP        = 00000000            

CTL$GW_NMIOCH    ********   X   01   PCB$L_STS        00000028            PR$_MAPEN      = 00000038            

DASSIGN1         0000001C R     01   PCB$L_UIC        00000020            PR$_NICR       = 00000019            

EXE$CANTIM       ********   X   01   PCB$L_WSSWP      00000024            PR$_P0BR       = 00000008            

EXE$DACEFC       ********   X   01   PCB$L_WTIME      0000002C            PR$_P0LR       = 00000009            

EXE$DEANONPAGED  ********   X   01   PCB$T_LNAME      0000006C            PR$_P1BR       = 0000000A            

EXE$GQ_ERLMBX    ********   X   01   PCB$V_ASTPEN   = 00000011            PR$_P1LR       = 0000000B            

EXE$MAXACMODE    ********   X   01   PCB$V_BATCH    = 0000000E            PR$_PCBB       = 00000010            

EXE$RUNDWN       00000000 RG    01   PCB$V_DELPEN   = 00000001            PR$_PME        = 0000003D            

GBL...         = 00000000            PCB$V_FORCPEN  = 00000002            PR$_RXCS       = 00000020            

IPL$_ASTDEL    = 00000002            PCB$V_HIBER    = 00000013            PR$_RXDB       = 00000021            

IPL$_HWCLK     = 00000018            PCB$V_INQUAN   = 00000003            PR$_SBIER      = 00000034            

IPL$_IOPOST    = 00000004            PCB$V_LOGIN    = 00000014            PR$_SBIFS      = 00000030            

IPL$_MAILBOX   = 0000000B            PCB$V_NETWRK   = 00000015            PR$_SBIMT      = 00000033            

IPL$_POWER     = 0000001F            PCB$V_NOACNT   = 0000000F            PR$_SBIQC      = 00000036            

IPL$_QUEUEAST  = 00000006            PCB$V_NODELET  = 00000017            PR$_SBIS       = 00000031            

IPL$_SCHED     = 00000003            PCB$V_PHDRES   = 00000012            PR$_SBISC      = 00000032            

IPL$_SYNCH     = 00000007            PCB$V_PSWAPM   = 00000004            PR$_SBITA      = 00000035            

IPL$_TIMER     = 00000007            PCB$V_PWRAST   = 00000016            PR$_SBR        = 0000000C            

LOG$B_AMOD       0000000E            PCB$V_RES      = 00000000            PR$_SCBB       = 00000011            

LOG$B_TABLE      0000000B            PCB$V_RESPEN   = 00000005            PR$_SID        = 0000003E            

LOG$B_TYPE       0000000A            PCB$V_SSFEXC   = 00000006            PR$_SIRR       = 00000014            

LOG$C_GROUP    = 00000001            PCB$V_SSFEXCE  = 00000007            PR$_SISR       = 00000015            

LOG$C_LENGTH     00000014            PCB$V_SSFEXCS  = 00000008            PR$_SLR        = 0000000D            

LOG$C_NAMLENGTH= 00000040            PCB$V_SSFEXCU  = 00000009            PR$_SSP        = 00000002            

SYSRUNDWN       IMAGE RUNDOWN SYSTEM SERVICE                     21-AUG-1978 20:41:12   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



PR$_TBIA       = 00000039            SS$_DEVOFFLINE = 00000084            SS$_IVPROTECT  = 000002F4            

PR$_TBIS       = 0000003A            SS$_DIRFULL    = 00000860            SS$_IVQUOTAL   = 00000164            

PR$_TODR       = 0000001B            SS$_DRVERR     = 0000008C            SS$_IVSECFLG   = 0000016C            

PR$_TXCS       = 00000022            SS$_DUPFILENAME= 00000868            SS$_IVSECIDCTL = 000002E4            

PR$_TXDB       = 00000023            SS$_DUPLNAM    = 00000094            SS$_IVSSRQ     = 00000174            

PR$_USP        = 00000003            SS$_ENDOFFILE  = 00000870            SS$_IVSTSFLG   = 0000017C            

PR$_WCSA       = 0000002C            SS$_ENDOFTAPE  = 00000878            SS$_IVTIME     = 00000184            

PR$_WCSD       = 0000002D            SS$_ENDOFUSRLBL= 00000970            SS$_LCKPAGFUL  = 000000D4            

SCH$NEWLVL       ********   X   01   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            

SS$_CONTINUE   = 00000001            SS$_ILLLBLAST  = 00000968            SS$_NOTAPEOP   = 00000264            

SS$_CONTROLC   = 00000651            SS$_ILLPAGCNT  = 000000FC            SS$_NOTFILEDEV = 000001CC            

SS$_CONTROLO   = 00000609            SS$_ILLSEQOP   = 000002DC            SS$_NOTINTBLSZ = 000001D4            

SS$_CONTROLY   = 00000611            SS$_ILLSER     = 00000104            SS$_NOTLABELMT = 000001DC            

SS$_CREATED    = 00000619            SS$_ILLUSRLBLRD= 00000958            SS$_NOTMODIFIED= 00000659            

SS$_CTRLERR    = 00000054            SS$_ILLUSRLBLWT= 00000960            SS$_NOTNETDEV  = 000002EC            

SS$_DATACHECK  = 0000005C            SS$_INCVOLLABEL= 0000010C            SS$_NOTRAN     = 00000629            

SS$_DATAOVERUN = 00000838            SS$_INSFARG    = 00000114            SS$_NOTSQDEV   = 000001E4            

SS$_DEBUG      = 0000046C            SS$_INSFMEM    = 00000124            SS$_OPCCUS     = 00000434            

SS$_DECOVF     = 000004A4            SS$_INSFRAME   = 0000012C            SS$_OPCDEC     = 0000043C            

SS$_DEVACTIVE  = 000002C4            SS$_INSFWSL    = 0000011C            SS$_OPINCOMPL  = 000002D4            

SS$_DEVALLOC   = 00000840            SS$_INTDIV     = 00000484            SS$_PAGOWNVIO  = 000001EC            

SS$_DEVALRALLOC= 00000641            SS$_INTOVF     = 0000047C            SS$_PAGRDERR   = 00000444            

SS$_DEVASSIGN  = 00000848            SS$_IVADDR     = 00000134            SS$_PARITY     = 000001F4            

SS$_DEVFOREIGN = 00000064            SS$_IVCHAN     = 0000013C            SS$_PARTESCAPE = 000001FC            

SS$_DEVICEFULL = 00000850            SS$_IVCHNLSEC  = 0000026C            SS$_PFMBSY     = 00000204            

SS$_DEVMOUNT   = 0000006C            SS$_IVDEVNAM   = 00000144            SS$_PLHLDR     = 00000404            

SS$_DEVNOTALLOC= 00000858            SS$_IVGSDNAM   = 0000014C            SS$_PSTFULL    = 0000020C            

SS$_DEVNOTMBX  = 00000074            SS$_IVLOGNAM   = 00000154            SS$_RADRMOD    = 0000044C            

SS$_DEVNOTMOUNT= 0000007C            SS$_IVLOGTAB   = 0000015C            SS$_REJECT     = 00000294            

SYSRUNDWN       IMAGE RUNDOWN SYSTEM SERVICE                     21-AUG-1978 20:41:12   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



SS$_REMOTE     = 00000649            

SS$_RESIGNAL   = 00000918            

SS$_RESULTOVF  = 00000214            

SS$_ROPRAND    = 00000454            

SS$_SECTBLFUL  = 0000021C            

SS$_SSFAIL     = 0000045C            

SS$_SUBRNG     = 000004AC            

SS$_SUPERSEDE  = 00000631            

SS$_TAPEPOSLOST= 00000224            

SS$_TBIT       = 00000464            

SS$_TIMEOUT    = 0000022C            

SS$_TOOMANYVER = 00000990            

SS$_TOOMUCHDATA= 0000029C            

SS$_UNASEFC    = 00000234            

SS$_UNSAFE     = 0000023C            

SS$_UNWIND     = 00000920            

SS$_UNWINDING  = 00000928            

SS$_VASFULL    = 00000244            

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$DALLOC       ********   X   01   

SYS$DASSGN       ********   X   01   

SYS$DELLOG       ********   X   01   





PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        0000013B      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

$ABS$            0000007C      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

14486. BYTES LEFT IN FREE MEMORY POOL.

3202. BYTES OF RECLAIMED MEMORY.

OBJ$:SYSRUNDWN,LIS$:SYSRUNDWN/-SP=EXECML$/ML,SRC$:SYSRUNDWN

8 MLB DIR RDS - 631 GETS TO DEFINE 21 MACROS. 43 INTER. FILE WRITES. 

