RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)    3600  HISTORY			; DETAILED

   (1)    4500  DECLARATIONS

   (1)   10100  SCH$RSE - REPORT SYSTEM EVENT

   (1)   24500  SCH$UNWAIT - DECREMENT COUNT IN WAIT QUEUE

   (1)   29700  SITUATIONAL PRIORITY INCREMENT TABLE

   (1)   31600  SCH$CHSE - CHANGE STATE TO EXECUTABLE

   (1)   41200  SWPO - SWAP OUT SIMPLE NON-EXECUTABLE

   (1)   43000  SCH$QEND - QUANTUM END ROUTINE

   (1)   47400  SCH$WAKE - WAKE PROCESS INTERNAL

   (1)   51200  SCH$SWPWAKE - WAKE SWAPPER PROCESS

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page   1

X01                                                                                                                              (1)



                                     0000   100 

                                     0000   200 	.TITLE	RSE - REPORT SYSTEM EVENT

                                     0000   300 	.IDENT	/X01/		;

                                     0000   400 

                                     0000   500 ;

                                     0000   600 ; COPYRIGHT (C) 1977

                                     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, SCHEDULER

                                     0000  2600 ;

                                     0000  2700 ; ABSTRACT:

                                     0000  2800 ;	THIS MODULE CONTAINS THE SYSTEM EVENT REPORTING ROUTINES AND

                                     0000  2900 ;	THEIR SUPPORTING SUBROUTINES.

                                     0000  3000 ;

                                     0000  3100 ; ENVIRONMENT:

                                     0000  3200 ;	MODE = KERNEL	

                                     0000  3300 ;--

                                     0000  3400 ;

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page   2

X01             HISTORY   ; DETAILED                                                                                             (1)



                                     0000  3600 	.SBTTL	HISTORY			; DETAILED

                                     0000  3700 ;

                                     0000  3800 ; AUTHOR:	R. HUSTVEDT	 CREATION DATE: 6-SEP-76

                                     0000  3900 ;

                                     0000  4000 ; MODIFIED BY:

                                     0000  4100 ;	, : VERSION

                                     0000  4200 ; 01	 -

                                     0000  4300 

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page   3

X01             DECLARATIONS                                                                                                     (1)



                                     0000  4500 	.SBTTL	DECLARATIONS

                                     0000  4600 

                                     0000  4700 ;

                                     0000  4800 ; INCLUDE FILES:

                                     0000  4900 ;

                                     0000  5000 	$CEBDEF				; DEFINE COMMON EVENT BLOCK

                                     0000  5100 	$IPLDEF				; IPL DEFINITIONS

                                     0000  5200 	$PCBDEF				; PCB DEFINITIONS

                                     0000  5300 	$PHDDEF				; PROCESS HEADER DEFINITIONS

                                     0000  5400 	$PRDEF				; PROCESSOR REGISTER DEFS

                                     0000  5500 	$PRIDEF				; PRIORITY INCREMENT CLASSES

                                     0000  5600 	$SSDEF				; DEFINE STATUS CODES

                                     0000  5700 	$STATEDEF			; STATE DEFINITIONS

                                     0000  5800 	$WQHDEF				; WAIT QUEUE HEADER DEFINITIONS

                                     0000  5900 ;

                                     0000  6000 ; MACROS:

                                     0000  6100 ;

                                     0000  6200 	.MACRO	EVENT,EVTN,STATLIST,EACTION,CONT=0

                                     0000  6300 	.IF	NB,EVTN

                                     0000  6400 EVT$_'EVTN==EVTCTR

                                     0000  6500 	.ENDC

                                     0000  6600 EVTCTR=EVTCTR+1

                                     0000  6700 	.WORD	EACTION-STACT

                                     0000  6800 RSE...=.

                                     0000  6900 	.PSECT	ASE2,BYTE

                                     0000  7000 STMSK=CONT

                                     0000  7100 	.IRP	ST,<STATLIST>

                                     0000  7200 STMSK=STMSK+<1@SCH$C_'ST>

                                     0000  7300 	.ENDR	

                                     0000  7400 	.LONG	STMSK

                                     0000  7500 	.PSECT	ASE1,BYTE

                                     0000  7600 .=RSE...

                                     0000  7700 	.ENDM	EVENT

                                     0000  7800 

                                     0000  7900 ;

                                     0000  8000 ;	GENERATE MASK FOR WAIT STATES

                                     0000  8100 ;

                                     0000  8200 ;	GMASK	STATENAME

                                     0000  8300 ;

                                     0000  8400 

                                     0000  8500 	.MACRO	GMASK,STATE

                                     0000  8600 ST=SCH$C_'STATE

                                     0000  8700 WAITST=WAITST+<1@ST>

                                     0000  8800 	.ENDM	GMASK

                                     0000  8900 ;

                                     0000  9000 ; EQUATED SYMBOLS:

                                     0000  9100 ;

                           00000000  0000  9200 EVTCTR=0				; INITIALIZE EVENT COUNTER TO 0

                           00000000  0000  9300 WAITST=0				; INITIALIZE WAIT STATE MASK

                                     0000  9400 ;

                                     0000  9500 ; OWN STORAGE:

                                     0000  9600 ;

                                 00000000  9700 	.PSECT	ASE2,BYTE		; STATE EVENT MASK PSECT

                           00000000  0000  9800 STET=	.				; BASE OF STATE EVENT TABLE

                                 00000000  9900 	.PSECT	ASE1,BYTE

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page   4

X01             SCH$RSE - REPORT SYSTEM EVENT                                                                                    (1)



                                     0000 10100 	.SBTTL	SCH$RSE - REPORT SYSTEM EVENT

                                     0000 10200 

                                     0000 10300 ;++

                                     0000 10400 ; FUNCTIONAL DESCRIPTION:

                                     0000 10500 ;	SCH$RSE RECEIVES SYSTEM EVENT REPORTS FROM VARIOUS SOURCES

                                     0000 10600 ;	AND PERFORMS THE APPROPRIATE ACTION FOR THE SPECIFIED PROCESS.

                                     0000 10700 ;	EVENT REPORTING MUST BE PERFORMED WITH IPL=IPL$_SYNCH.

                                     0000 10800 ;	AS A SIDE EFFECT OF AN EVENT REPORT, THE RESCHEDULING INTERRUPT

                                     0000 10900 ;	MAY BE TRIGGERED IF APPROPRIATE.

                                     0000 11000 ;

                                     0000 11100 ; CALLING SEQUENCE:

                                     0000 11200 ;	BSB/JSB	SCH$RSE

                                     0000 11300 ;	.BYTE	EVT$_EVENTNAME

                                     0000 11400 ;

                                     0000 11500 ;	THIS CALLING SEQUENCE IS GENERATED BY THE RPTEVT SYSTEM MACRO

                                     0000 11600 ;	

                                     0000 11700 ;	REPEVT	EVENTNAME

                                     0000 11800 ;

                                     0000 11900 ; INPUT PARAMETERS:

                                     0000 12000 ;	R2 - SITUATIONAL PRIORITY INCREMENT CLASS NUMBER

                                     0000 12100 ;	R4 - PCB ADDRESS OF PROCESS FOR WHICH EVENT IS REPORTED

                                     0000 12200 ;

                                     0000 12300 ;	EVENT NUMBER CONTAINED IN BYTE LOCATED BY ADDRESS AT TOP 

                                     0000 12400 ;	OF STACK.  @(SP)

                                     0000 12500 ;

                                     0000 12600 ; IMPLICIT INPUTS:

                                     0000 12700 ;	SCHEDULER DATA BASE

                                     0000 12800 ;

                                     0000 12900 ; OUTPUT PARAMETERS:

                                     0000 13000 ;	NONE

                                     0000 13100 ;

                                     0000 13200 ; IMPLICIT OUTPUTS:

                                     0000 13300 ;	NONE

                                     0000 13400 ;

                                     0000 13500 ; COMPLETION CODES:

                                     0000 13600 ;	NONE

                                     0000 13700 ;

                                     0000 13800 ; SIDE EFFECTS:

                                     0000 13900 ;	A RESECHEDULING INTERRUPT MAY BE REQUESTED IF THE SPECIFIED

                                     0000 14000 ;	PROCESS IS HIGHER IN PRIORITY THAN THE CURRENT PROCESS.

                                     0000 14100 ;

                                     0000 14200 ;--

                                     0000 14300 

                                     0000 14400 SCH$RSE::				; REPORT SYSTEM EVENT

            53         00 BE     9A  0000 14500 	MOVZBL	@(SP),R3		; GET EVENT NUMBER 

                          6E     D6  0004 14600 	INCL	(SP)			; UPDATE RETURN ADDRESS

            51         30 A4     3C  0006 14700 	MOVZWL	PCB$W_STATE(R4),R1	; GET CURRENT STATE NUMBER

            50       0000'CF43   D0  000A 14800 10$:	MOVL	W^STET[R3],R0		; GET STATE MASK FOR EVENT

            50            51     E0  0010 14900 	BBS	R1,R0,ACTION		; DO ACTION IF STATE BIT SET

                          06         0013       

                          53     D6  0014 15000 	INCL	R3			; CHECK NEXT ACTION

            F1            50     E8  0016 15100 	BLBS	R0,10$			; IF CONTINUATION

                                 05  0019 15200 	RSB				; OTHERWISE IGNORE EVENT

                                     001A 15300 	

            00            53     CF  001A 15400 ACTION:	CASEL	R3,#0,S^#MAXEVT		; SWITCH ON EVENT NUMBER(UPDATED)

                          0A'        001D       

                                     001E 15500 STACT:					; BASE OF ACTION TABLE

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page   5

X01             SCH$RSE - REPORT SYSTEM EVENT                                                                                    (1)



                                     001E 15600 	EVENT	AST,<-			; AST EVENT

                                     001E 15700 		CEF,-			; COMMON EVENT FLAG WAIT

                                     001E 15800 		COLPG,-			; COLLIDED PAGE WAIT

                                     001E 15900 		FPG,-			; FREE PAGE WAIT

                                     001E 16000 		HIB,-			; RESIDENT HIBERNATE

                                     001E 16100 		HIBO,-			; NON-RESIDENT HIBERNATE

                                     001E 16200 		LEF,-			; LOCAL EVENT FLAG WAIT

                                     001E 16300 		LEFO,-			; LOCAL EVENT FLAG WAIT (NON-RES)

                                     001E 16400 		MWAIT,-			; MUTEX WAIT

                                     001E 16500 		PFW,-			; PAGE FAULT WAIT

                                     001E 16600 		>,EVENTE		; AST EXECUTABLE STATE CHANGE

                           00000000  0020 16700 EVT$_COLPGA==EVT$_AST			; USE SAME EVENT FOR COLLIDED PAGE AVAIL

                                     0020 16800 

                                     0020 16900 

                                     0020 17000 	EVENT	EVENT,<LEF>,LEFEVT,CONT=1	; EVENT FLAG SETTING

                                     0022 17100 	EVENT	,<CEF>,CEFEVT,CONT=1	; COMMON EVENT FLAG SET

                                     0024 17200 	EVENT	,<LEFO>,EVENTE		; NON-RESIDENT LOCAL EVENT

                                     0026 17300 

                                     0026 17400 	EVENT	FPGA,<-			; FREE PAGE AVAILABLE

                                     0026 17500 		FPG,-			; FREE PAGE WAIT STATE

                                     0026 17600 		>,EVENTF		; EXECUTABLE STATE CHANGE

                                     0028 17700 	EVENT	WAKE,<-			; WAKE EVENT

                                     0028 17800 		HIB,-			; RESIDENT HIBERNATE

                                     0028 17900 		HIBO,-			; NON-RESIDENT HIBERNATE

                                     0028 18000 		>,EVENTE		;

                                     002A 18100 

                                     002A 18200 

                                     002A 18300 	EVENT	RESUME,<-		; RESUME EVENT

                                     002A 18400 		SUSP,-			; RESIDENT SUSPENDED

                                     002A 18500 		SUSPO,-			; NON-RESIDENT SUSPENDED

                                     002A 18600 		>,EVENTE		; EXECUTABLE

                                     002C 18700 

                                     002C 18800 

                                     002C 18900 	EVENT	PFCOM,<-		; PAGE FAULT COMPLETE EVENT

                                     002C 19000 		PFW,-			; PAGE FAULT WAIT

                                     002C 19100 		>,EVENTE		; EXECUTABLE

                                     002E 19200 

                                     002E 19300 	EVENT	SETPRI,<-		; SET PRIORITY EVENT

                                     002E 19400 		COM,-			; RESIDENT COMPUTE

                                     002E 19500 		COMO,-			; NON-RESIDENT COMPUTE

                                     002E 19600 		>,EVENTF		; EXECUTABLE

                                     0030 19700 

                                     0030 19800 	EVENT	SWPOUT,<-		; SWAP OUT EVENT

                                     0030 19900 		HIB,-			; RESIDENT HIBERNATE

                                     0030 20000 		LEF,-			; RESIDENT LOCAL EVENT FLAG WAIT

                                     0030 20100 		SUSP,-			; RESIDENT SUSPENDED

                                     0030 20200 		>,SWPO,CONT=1		; SIMPLE SWAP OUT

                                     0032 20300 	EVENT	,<-			; SWAP OUT EVENT CONINUATION

                                     0032 20400 		COM,-			; RESIDENT COMPUTE

                                     0032 20500 		>,SWPOE			; EXECUTABLE OUTSWAP

                                     0034 20600 

                                     0034 20700 ;

                                     0034 20800 ;	IF CASE FALLS THROUGH, THEN BUGCHECK WITH ILLEGAL EVENT

                                     0034 20900 ;	NUMBER.

                                     0034 21000 ;

                           0000000A  0034 21100 MAXEVT=EVTCTR-1				; MAXIMUM EVENT NUMBER

                                     0034 21200 	BUG_CHECK ILLEVTNUM,FATAL	; ILLEGAL EVENT NUMBER

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page   6

X01             SCH$RSE - REPORT SYSTEM EVENT                                                                                    (1)



                                     0038 21300 

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page   7

X01             SCH$RSE - REPORT SYSTEM EVENT                                                                                    (1)



                                     0038 21500 ;

                                     0038 21600 ;	COMMON EVENT FLAG SET

                                     0038 21700 ;

                                     0038 21800 CEFEVT:					;

            0E         28 A4     E9  0038 21900 	BLBC	PCB$L_STS(R4),EVENTE	; BR IF NOT RESIDENT

                                     003C 22000 LEFEVT:					; LOCAL EVENT FLAG SET FOR RESIDENT PROCESS

            53         64 A4     D0  003C 22100 	MOVL	PCB$L_PHD(R4),R3	; POINT TO PHD

       00C0 C3            04     C0  0040 22200 	ADDL	#4,PHD$L_PC(R3)		; SKIP PC OVER CHMK INSTRUCTION

       0088 C3            01     3C  0045 22300 	MOVZWL	#SS$_NORMAL,PHD$L_R0(R3); SET NORMAL COMPLETION FOR WAIT

                                     004A 22400 ;

                                     004A 22500 ;	EVENT EXECUTABLE ACTION ROUTINE

                                     004A 22600 ;

                                     004A 22700 

                                     004A 22800 EVENTE:					; EVENT EXECUTABLE STATE CHANGE

            28         28 A4     E9  004A 22900 	BLBC	PCB$L_STS(R4),20$	; SKIP IF NOT RESIDENT

         2C A4   00000002'EF     C2  004E 23000 	SUBL	EXE$GQ_SYSTIME+2,PCB$L_WTIME(R4) ; COMPUTE WAIT TIME

                          1E     18  0056 23100 	BGEQ	20$			; UNDERFLOW, NO CHARGE

            53         64 A4     D0  0058 23200 	MOVL	PCB$L_PHD(R4),R3	; GET PHD POINTER

            50         40 A3     32  005C 23300 	CVTWL	PHD$W_QUANT(R3),R0	; AND REMAINING QUANTUM

            50         2C A4     C2  0060 23400 	SUBL	PCB$L_WTIME(R4),R0	; CHECK FOR QUANTUM RUNOUT

                          0C     19  0064 23500 	BLSS	10$			; NO

            50   00000000'EF     B0  0066 23600 	MOVW	SCH$GW_QUAN,R0   	; INIT FOR NEW QUAN

         28 A4            03     E5  006D 23700 	BBCC	#PCB$V_INQUAN,PCB$L_STS(R4),10$	; CLEAR INITIAL QUAN FLAG

                          00         0071       

         40 A3            50     B0  0072 23800 10$:	MOVW	R0,PHD$W_QUANT(R3)	; SET UPDATED QUANTUM

                                     0076 23900 20$:					;

                                     0076 24000 EVENTF:					; ACTIVATE WITH NO WAIT TIME ACCOUNTING

                       AB'AF     9F  0076 24100 	PUSHAB	B^SCH$CHSE		; MAKE UNWAIT EXIT THROUGH CHSE

                                     0079 24200 ;	BRB	SCH$UNWAIT		; AND FALL INTO UNWAIT

                                     0079 24300 

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page   8

X01             SCH$UNWAIT - DECREMENT COUNT IN WAIT QUEUE                                                                       (1)



                                     0079 24500 	.SBTTL	SCH$UNWAIT - DECREMENT COUNT IN WAIT QUEUE

                                     0079 24600 ;++

                                     0079 24700 ;

                                     0079 24800 ; FUNCTIONAL DESCRIPTION:

                                     0079 24900 ;	SCH$UNWAIT DECREMENTS THE NUMBER OF PROCESSES IN THE WAIT

                                     0079 25000 ;	QUEUE SELECTED BY THE SPECIFIED PCB AND STATE VALUE.

                                     0079 25100 ;

                                     0079 25200 ; CALLING SEQUENCE:

                                     0079 25300 ;	BSB/JSB	SCH$UNWAIT

                                     0079 25400 ;

                                     0079 25500 ; INPUT PARAMETERS:

                                     0079 25600 ;	R1 - STATE NUMBER (PRESERVED)

                                     0079 25700 ;	R2 - UNUSED	  (PRESERVED)

                                     0079 25800 ;	R4 - PCB ADDRESS  (PRESERVED)

                                     0079 25900 ;

                                     0079 26000 ; IMPLICIT INPUTS:

                                     0079 26100 ;	PCB LOCATED BY ADDRESS IN R4

                                     0079 26200 ;

                                     0079 26300 ; IMPLICIT OUTPUTS:

                                     0079 26400 ;	COUNT IN WAIT QUEUE HEADER IS DECREMENTED IF STATE IS A WAIT

                                     0079 26500 ;	STATE.

                                     0079 26600 ;

                                     0079 26700 ;--

                                     0079 26800 

                                     0079 26900 SCH$UNWAIT::				; DECREMENT PROPER WAIT COUNT

         9E'AF            51     E1  0079 27000 	BBC	R1,B^WAITMSK,20$	; SKIP OUT IF NOT WAIT STATE

                          11         007D       

            51            03     B1  007E 27100 	CMPW	#SCH$C_CEF,R1		; CHECK FOR COMMON EVENT FLAG WAIT

                          0D     13  0081 27200 	BEQL	30$			; CEF WAIT

            51            0C     C4  0083 27300 	MULL	#WQH$C_LENGTH,R1	; COMPUTE BYTE INDEX TO WQ HDR

            50       0000'CF41   9E  0086 27400 	MOVAB	W^SCH$AQ_WQHDR[R1],R0	; COMPUTE ADDRESS OF WAIT Q HEADER

                       08 A0     B7  008C 27500 10$:	DECW	WQH$W_WQCNT(R0)		; DECREMENT WAIT QUEUE COUNT

                                 05  008F 27600 20$:	RSB				; RETURN

                                     0090 27700 

            50         32 A4     9A  0090 27800 30$:	MOVZBL	PCB$B_WEFC(R4),R0	; WAIT CLUSTER NUMBER

            50         50 A440   D0  0094 27900 	MOVL	PCB$L_EFCS(R4)[R0],R0	; GET CLUSTER ADDRESS

            50            14     C0  0099 28000 	ADDL	#CEB$L_WQFL,R0		; POINT TO WAIT QUEUE HEADER

                          EE     11  009C 28100 	BRB	10$			; GO DECREMENT WAIT COUNT

                                     009E 28200 

                                     009E 28300 	GMASK	CEF			; COMMON EVENT FLAG

                                     009E 28400 	GMASK	LEF			; LOCAL EVENT FLAG WAIT

                                     009E 28500 	GMASK	LEFO			; LOCAL EVENT FLAG WAIT

                                     009E 28600 	GMASK	HIB			; HIBERNAT WAIT

                                     009E 28700 	GMASK	HIBO			; HIBERNATE WAIT

                                     009E 28800 	GMASK	FPG			; FREE PAGE WAIT

                                     009E 28900 	GMASK	COLPG			; COLLISION PAGE WAIT

                                     009E 29000 	GMASK	PFW			; PAGE FAULT WAIT

                                     009E 29100 	GMASK	SUSP			; SUSPENDED WAIT

                                     009E 29200 	GMASK	SUSPO			; SUSPENDED WAIT

                                     009E 29300 	GMASK	MWAIT			; MUTEX WAIT

                           00000FFE  009E 29400 WAITMSK:.LONG	WAITST			; MASK OF WAIT STATES

                                     00A2 29500 

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page   9

X01             SITUATIONAL PRIORITY INCREMENT TABLE                                                                             (1)



                                     00A2 29700 	.SBTTL	SITUATIONAL PRIORITY INCREMENT TABLE

                                     00A2 29800 ;

                                     00A2 29900 ; FIXED DATA:

                                     00A2 30000 ;		SITUATIONAL PRIORITY INCREMENT TABLE

                                     00A2 30100 ;		    (INDEXED BY PRIORITY INCREMENT CLASS)

                                     00A2 30200 ;

                                     00A2 30300 

                                     00A2 30400 B_PINC:					;

                                 00  00A2 30500 	.BYTE	0			; CLASS 0 - NONE

                                 02  00A3 30600 	.BYTE	2			; CLASS 1 - I/O COMPLETE

                                 03  00A4 30700 	.BYTE	3			; CLASS 2 - RESOURCE AVAIL

                                 04  00A5 30800 	.BYTE	4			; CLASS 3 - TERM OUTPUT COMP

                                 06  00A6 30900 	.BYTE	6			; CLASS 4 - TERM INPUT COMP

                                     00A7 31000 

                                     00A7 31100 

                                     00A7 31200 EXESTATE:				; EXECUTABLE STATE MASK

                           00003000  00A7 31300 	.LONG	<1@SCH$C_COM>!<1@SCH$C_COMO>

                                     00AB 31400 

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page  10

X01             SCH$CHSE - CHANGE STATE TO EXECUTABLE                                                                            (1)



                                     00AB 31600 	.SBTTL	SCH$CHSE - CHANGE STATE TO EXECUTABLE

                                     00AB 31700 ;++

                                     00AB 31800 ; FUNCTIONAL DESCRIPTION:

                                     00AB 31900 ;	SCH$CHSE CHANGES THE STATE OF A PROCESS, AS REPRESENTED BY

                                     00AB 32000 ;	ITS PCB, TO AN EXECUTABLE STATE.  THE RESCHEDULING INTERRUPT

                                     00AB 32100 ;	WILL BE TRIGGERED IF THE PROCESS IS RESIDENT AND HAS A PRIOITY

                                     00AB 32200 ;	GREATER THAN THAT OF THE CURRENTLY EXECUTING PROCESS.  A 

                                     00AB 32300 ;	PRIORITY INCREMENT CLASS NUMBER SUPPLIED AS A REGISTER CONTAINED

                                     00AB 32400 ;	ARGUMENT IS USED TO COMPUTE THE NEW PROCESS PRIORITY FROM ITS

                                     00AB 32500 ;	BASE PRIORITY.

                                     00AB 32600 ;

                                     00AB 32700 ; CALLING SEQUENCE:

                                     00AB 32800 ;	BSB/JSB	SCH$CHSE	

                                     00AB 32900 ;

                                     00AB 33000 ; INPUT PARAMETERS:

                                     00AB 33100 ;	R0 - NEW PRIORITY	(SCH$CHSEP ONLY)

                                     00AB 33200 ;	R2 - PRIORITY INCREMENT CLASS NUMBER   (SCH$CHSE ONLY)

                                     00AB 33300 ;		0 => NO INCREMENT

                                     00AB 33400 ;		1 => NON-TERMINAL I/O COMPLETION

                                     00AB 33500 ;		2 => RESOURCE AVAILABILITY

                                     00AB 33600 ;		3 => TERMINAL OUTPUT COMPLETION

                                     00AB 33700 ;		4 => TERMINAL INPUT COMPLETION

                                     00AB 33800 ;	R4 - PCB ADDRESS

                                     00AB 33900 ;

                                     00AB 34000 ; IMPLICIT INPUTS:

                                     00AB 34100 ;	SCH$AQ_COMT - COMPUTE QUEUE HEADERS FOR COM,COMO STATES

                                     00AB 34200 ;	SCH$GB_PRI  - CURRENT PROCESS PRIORITY.

                                     00AB 34300 ;

                                     00AB 34400 ;

                                     00AB 34500 ; OUTPUT PARAMETERS:

                                     00AB 34600 ;	R2 - R2 , PRIORITY INCREMENT CLASS NUMBER IF SCH$CHSE. (PRESERVED)

                                     00AB 34700 ;	R3 - R3 (PRESERVED)

                                     00AB 34800 ;

                                     00AB 34900 ; IMPLICIT OUTPUTS:

                                     00AB 35000 ;	SCH$AQ_COMH  -  VECTOR OF COMPUTE QUEUE HEADERS.

                                     00AB 35100 ;	SCH$GL_COMQS -  COMPUTE QUEUE SUMMARY BIT VECTOR.

                                     00AB 35200 ;

                                     00AB 35300 ; COMPLETION CODES:

                                     00AB 35400 ;	NONE

                                     00AB 35500 ;

                                     00AB 35600 ; SIDE EFFECTS:

                                     00AB 35700 ;	THE PCB SPECIFIED IS REMOVED FROM ITS PRESENT STATE QUEUE

                                     00AB 35800 ;	AND INSERTED IN THE APPROPRIATE COMPUTE QUEUE, COM OR COMO,

                                     00AB 35900 ;	AT THE PRIORITY COMPUTED FOR THE SPECIFIED SITUATION CLASS.

                                     00AB 36000 ;	THE SUMMARY BIT FOR THE DESTINATION STATE QUEUE IS SET TO

                                     00AB 36100 ;	NOTE THAT IT IS OCCUPIED.

                                     00AB 36200 ;	IF THE NEW PRIORITY FOR THE PROCESS IS GREATER THAN THAT OF

                                     00AB 36300 ;	CURRENT PROCESS AND IT IS RESIDENT, THE RESCHEDULING INTERRUPT 

                                     00AB 36400 ;	WILL BE TRIGGERED.

                                     00AB 36500 ;

                                     00AB 36600 ;--

                                     00AB 36700 SCH$CHSE::				;CHANGE TO EXECUTABLE STATE

                          50     D4  00AB 36800 	CLRL	R0			; CLEAR HIGH SUM BITS FOR ADDB

         33 A4         F1 AF42   83  00AD 36900 	SUBB3	B_PINC[R2],PCB$B_PRIB(R4),R0	; ADD PRIORITY INCR

                          50         00B3       

         0B A4            50     91  00B4 37000 	CMPB	R0,PCB$B_PRI(R4)	; CHECK FOR > CURRENT PRI

                          04     15  00B8 37100 	BLEQ	10$			; NO

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page  11

X01             SCH$CHSE - CHANGE STATE TO EXECUTABLE                                                                            (1)



            50         0B A4     90  00BA 37200 	MOVB	PCB$B_PRI(R4),R0	; KEEP CURRENT PRIORITY INSTEAD

            10            50     91  00BE 37300 10$:	CMPB	R0,#16			; CHECK FOR RESULT >15

                          04     18  00C1 37400 	BGEQ	SCH$CHSEP		; YES, USE COMPUTED VALUE

            50         33 A4     90  00C3 37500 	MOVB	PCB$B_PRIB(R4),R0	; KEEP AT BASE IF LESS

                                     00C7 37600 

                                     00C7 37700 ;

                                     00C7 37800 ;	SCH$CHSEP - SUB-ENTRY POINT WITH PRIORITY PRECOMPUTED IN R0

                                     00C7 37900 ;

                                     00C7 38000 

                                     00C7 38100 SCH$CHSEP::				; ENTRY WITH PRIO IN R0

            51            12     DB  00C7 38200 	MFPR	#PR$_IPL,R1		; GET IPL

            07            51     D1  00CA 38300 	CMPL	R1,#IPL$_SYNCH		; MUST BE AT SYNCH OR GREATER

                          54     19  00CD 38400 	BLSS	BADIPL			; NO, FATAL ERROR

            51            64     0F  00CF 38500 	REMQUE	(R4),R1			; REMOVE FROM CURREN QUEUE

                          1A     12  00D2 38600 	BNEQ	10$			; CONTINUE IF QUEUE NOTEMPTY

            51         30 A4     3C  00D4 38700 	MOVZWL	PCB$W_STATE(R4),R1	; GET OLD STATE

         CB AF            51     E1  00D8 38800 	BBC	R1,EXESTATE,10$		; NO SUMMARY BITS

                          11         00DC       

            51         0B A4     9A  00DD 38900 	MOVZBL	PCB$B_PRI(R4),R1	; GET CURRENT PRI

            03         30 A4     E9  00E1 39000 	BLBC	PCB$W_STATE(R4),5$	; SKIP IF RESIDENT

            51            20     C0  00E5 39100 	ADDL	#32,R1			; MAKE NONRES PRIO

       0000'CF            51     E5  00E8 39200 5$:	BBCC	R1,W^SCH$GL_COMQS,10$	; CLEAR PRESENCE BIT FOR STATE

                          00         00ED       

         0B A4            50     90  00EE 39300 10$:	MOVB	R0,PCB$B_PRI(R4)	; SAVE NEW PRIO

            51            0C     D0  00F2 39400 	MOVL	#SCH$C_COM,R1		; ASSUME COM STATE

            0A         28 A4     E8  00F5 39500 	BLBS	PCB$L_STS(R4),20$	; CHECK FOR RESIDENCE

                          51     D6  00F9 39600 	INCL	R1			; COMO=COM+1

            50            20     C0  00FB 39700 	ADDL2	#32,R0			; COMO HEADERS FOLLOW COM

                          007A   30  00FE 39800 	BSBW	SCH$SWPWAKE		; WAKE SWAPPER

                          0A     11  0101 39900 	BRB	30$			; COMPLETE STATE CHANGE

            50       0000'CF     91  0103 40000 20$:	CMPB	W^SCH$GB_PRI,R0		; IS PRIO GREATER THAN CURRENT PROCESS

                          03     15  0108 40100 	BLEQ	30$			; NO, DONT RESCHEDULE

                                     010A 40200 	SOFTINT	#IPL$_SCHED		; TRIGGER RESCHEDULE INTERRUPT

         30 A4            51     B0  010D 40300 30$:	MOVW	R1,PCB$W_STATE(R4)	; SET NEW STATE

            51   00000000'EF40   7E  0111 40400 	MOVAQ	L^SCH$AQ_COMT[R0],R1	; COMPUTE HDR ADDR

       0000'CF            50     E2  0119 40500 	BBSS	R0,W^SCH$GL_COMQS,40$	; SET SUMMARY BIT FOR NEW QUEUE

                          00         011E       

            91            64     0E  011F 40600 40$:	INSQUE	(R4),@(R1)+		; INSERT IN NEW QUEUE

                                 05  0122 40700 	RSB				; RETURN

                                     0123 40800 

                                     0123 40900 BADIPL:	BUG_CHECK BADRSEIPL,FATAL	; BAD IPL AT ENTRANCE TO RSE

                                     0127 41000 

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page  12

X01             SWPO - SWAP OUT SIMPLE NON-EXECUTABLE                                                                            (1)



                                     0127 41200 	.SBTTL	SWPO - SWAP OUT SIMPLE NON-EXECUTABLE

                                     0127 41300 ;

                                     0127 41400 ;	SWPO - SWAP OUT ACTION ROUTINE FOR SIMPLE NON-EXECUTABLE STATES

                                     0127 41500 ;

                                     0127 41600 SWPO:					; NON-EXECUTABLE OUTSWAP

                          FF4F   30  0127 41700 	BSBW	SCH$UNWAIT		; REMOVE FROM WAIT QUEUE

                       30 A4     B6  012A 41800 	INCW	PCB$W_STATE(R4)		; UPDATE STATE NUMBER

            51            64     0F  012D 41900 	REMQUE	(R4),R1			; REMOVE FROM WAIT QUEUE

         10 B0            64     0E  0130 42000 	INSQUE	(R4),@WQH$L_WQBL+WQH$C_LENGTH(R0)	; INSERT AT TAIL OF QUEUE

                       14 A0     B6  0134 42100 	INCW	WQH$W_WQCNT+WQH$C_LENGTH(R0)	; NOTE COUNT IN WAIT QUEUE

                                 05  0137 42200 	RSB				; EXIT

                                     0138 42300 

                                     0138 42400 ;

                                     0138 42500 ;	SWPOE - SWAP OUT EXECUTABLE ACTION ROUTINE

                                     0138 42600 ;

            50         0B A4     9A  0138 42700 SWPOE:	MOVZBL	PCB$B_PRI(R4),R0	; GET PRIORITY

                          FF88   31  013C 42800 	BRW	SCH$CHSEP		; AND CHANGE TO COMO

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page  13

X01             SCH$QEND - QUANTUM END ROUTINE                                                                                   (1)



                                     013F 43000 	.SBTTL	SCH$QEND - QUANTUM END ROUTINE

                                     013F 43100 

                                     013F 43200 ;++

                                     013F 43300 ;

                                     013F 43400 ; FUNCTIONAL DESCRIPTION:

                                     013F 43500 ;	SCH$QEND IS CALLED BY THE TIMER WHEN THE QUANTUM FOR THE CURRENT

                                     013F 43600 ;	PROCESS HAS BEEN EXHAUSTED.  A NEW QUANTUM IS INITIALIZED

                                     013F 43700 ;	THE PROCESS PLACED AT ITS BASE PRIORITY AND THE RESCHEDULING

                                     013F 43800 ;	INTERRUPT TRIGGERED.

                                     013F 43900 ;

                                     013F 44000 ; CALLING SEQUENCE:

                                     013F 44100 ;	BSB/JSB	SCH$QEND

                                     013F 44200 ;

                                     013F 44300 ; INPUT PARAMETERS:

                                     013F 44400 ;	R4 - PCB ADDRESS OF CURRENT PROCESS

                                     013F 44500 ;	R5 - PROCESS HEADER ADDRESS

                                     013F 44600 ;

                                     013F 44700 ; IMPLICIT INPUTS:

                                     013F 44800 ;	PCB OF CURRENT PROCESS

                                     013F 44900 ;	PROCESS HEADER OF CURRENT PROCESS

                                     013F 45000 ;

                                     013F 45100 ; IMPLICIT OUTPUTS:

                                     013F 45200 ;	PHD$W_QUANT - INITIALIZED TO A NEW QUANTUM 

                                     013F 45300 ;	PCB$V_INQUAN - INITIAL QUANTUM FLAG CLEARED

                                     013F 45400 ;

                                     013F 45500 ;--

                                     013F 45600 

                                     013F 45700 SCH$QEND::				; QUANTUM END ROUTINE

         28 A4            03     E5  013F 45800 	BBCC	#PCB$V_INQUAN,PCB$L_STS(R4),10$ ; CLEAR INITIAL QUAN FLAG

                          00         0143       

         40 A5   00000000'EF     B0  0144 45900 10$:	MOVW	SCH$GW_QUAN,PHD$W_QUANT(R5)   ; SET NEW QUANTUM

            10         0B A4     91  014C 46000 	CMPB	PCB$B_PRI(R4),#16		; CHECK FOR REAL-TIME

                          03     19  0150 46100 	BLSS	50$				; YES

                                     0152 46200 ;***************************************************************

                                     0152 46300 ;

                                     0152 46400 ;	CHECK FOR CPU TIME LIMIT EXPIRATION

                                     0152 46500 ;

                                     0152 46600 ;***************************************************************

                                     0152 46700 

                                     0152 46800 	SOFTINT	#IPL$_SCHED		; TRIGGER RESCHEDULING INT

                                 05  0155 46900 50$:	RSB				; AND RETURN

                                     0156 47000 

                                     0156 47100 

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page  14

X01             SCH$QEND - QUANTUM END ROUTINE                                                                                   (1)



                                     0156 47300 

                                     0156 47400 	.SBTTL	SCH$WAKE - WAKE PROCESS INTERNAL

                                     0156 47500 ;++

                                     0156 47600 ; FUNCTIONAL DESCRIPTION:

                                     0156 47700 ;	SCH$WAKE WAKES THE PROCESS SPECIFIED BY THE PID SUPPLIED.

                                     0156 47800 ;

                                     0156 47900 ; CALLING SEQUENCE:

                                     0156 48000 ;	BSB/JSB	SCH$WAKE

                                     0156 48100 ;

                                     0156 48200 ; INPUT PARAMETERS:

                                     0156 48300 ;	R1 - PID OF PROCESS TO WAKE

                                     0156 48400 ;

                                     0156 48500 ; OUTPUT PARAMETERS:

                                     0156 48600 ;	R0 - COMPLETION STATUS CODE

                                     0156 48700 ;	R4 - PCB ADDRESS OF PROCESS AWAKENED

                                     0156 48800 ;

                                     0156 48900 ; COMPLETION CODES:

                                     0156 49000 ;	SS$_NORMAL  -  NORMAL SUCCESSFUL COMPLETION STATUS

                                     0156 49100 ;	SS$_NONEXPR -  NONEXISTENT PROCESS (INVALID PID)

                                     0156 49200 ;

                                     0156 49300 ; ENVIRONMENT:

                                     0156 49400 ;	IPL = IPL$_SYNCH

                                     0156 49500 ;

                                     0156 49600 ;--

                                     0156 49700 SCH$WAKE::				; WAKE PROCESS INTERNAL

            54            51     3C  0156 49800 	MOVZWL	R1,R4			; GET PROCESS INDEX (PIX)

            54       0000'DF44   D0  0159 49900 	MOVL	@W^SCH$GL_PCBVEC[R4],R4	; LOOK UP PCB ADDRESS

         60 A4            51     D1  015F 50000 	CMPL	R1,PCB$L_PID(R4)	; VERIFY PID

                          10     12  0163 50100 	BNEQ	30$			; REPORT ERROR

         28 A4            0C     E2  0165 50200 	BBSS	#PCB$V_WAKEPEN,PCB$L_STS(R4),10$   ; SET WAKE PENDING

                          00         0169       

                                     016A 50300 10$:					;

            52            02     9A  016A 50400 	MOVZBL	#PRI$_RESAVL,R2		; SET PRIORITY INCREMENT CLASS

                                     016D 50500 	RPTEVT	WAKE			; REPORT WAKE EVENT

            50            01     3C  0171 50600 	MOVZWL	#SS$_NORMAL,R0		; SET SUCCESS CODE

                                 05  0174 50700 20$:	RSB				; RETURN

                                     0175 50800 

            50       08E8 8F     3C  0175 50900 30$:	MOVZWL	#SS$_NONEXPR,R0		; SET NONEXISTENT PROCESS STATUS

                                 05  017A 51000 	RSB				;

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page  15

X01             SCH$SWPWAKE - WAKE SWAPPER PROCESS                                                                               (1)



                                     017B 51200 	.SBTTL	SCH$SWPWAKE - WAKE SWAPPER PROCESS

                                     017B 51300 ;++

                                     017B 51400 ; FUNCTIONAL DESCRIPTION:

                                     017B 51500 ;	SCH$SWPWAKE AWAKENS THE SWAPPER PROCESS TO PERFORM SOME OPERATION.

                                     017B 51600 ;

                                     017B 51700 ; CALLING SEQUENCE:

                                     017B 51800 ;	BSB/JSB	SCH$SWPWAKE

                                     017B 51900 ;

                                     017B 52000 ; INPUT PARAMETERS:

                                     017B 52100 ;	NONE

                                     017B 52200 ;

                                     017B 52300 ; OUTPUT PARAMETERS:

                                     017B 52400 ;	R0-R4 PRESERVED

                                     017B 52500 ;

                                     017B 52600 ; SIDE EFFECTS:

                                     017B 52700 ;	A WAKE EVENT IS GENERATED FOR THE SWAPPER PROCESS WHICH CAN

                                     017B 52800 ;	CAUSE THE PROCESSOR TO BE RESCHEDULED.

                                     017B 52900 ;

                                     017B 53000 ;--

                                     017B 53100 

                                     017B 53200 SCH$SWPWAKE::				; WAKE SWAPPER PROCESS

                          1F     BB  017B 53300 	PUSHR	#^M<R0,R1,R2,R3,R4>	; SAVE R0-R4

            51       0000'CF     D0  017D 53400 	MOVL	W^SCH$GL_SWPPID,R1	; GET PID OF SWAPPER

                          D2     10  0182 53500 	BSBB	SCH$WAKE		; AND AWAKEN IT

                          1F     BA  0184 53600 	POPR	#^M<R0,R1,R2,R3,R4>	; RESTORE R0-R4

                                 05  0186 53700 	RSB				; AND RETURN TO CALLER

                                     0187 53800 

                                     0187 53900 	.END

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page  16

SYMBOL TABLE                                                                                                                     (1)



ACTION           0000001A R     04   PCB$C_LENGTH     0000007C            PCB$W_MTXCNT     0000000E            

BADIPL           00000123 R     04   PCB$K_LENGTH     0000007C            PCB$W_PPGCNT     0000003A            

BIT...         = 0000000F            PCB$L_ASTQBL     00000014            PCB$W_PRCCNT     0000006A            

BUG$_BADRSEIPL   ********   X   04   PCB$L_ASTQFL     00000010            PCB$W_SIZE       00000008            

BUG$_ILLEVTNUM   ********   X   04   PCB$L_EFC2P      00000058            PCB$W_STATE      00000030            

B_PINC           000000A2 R     04   PCB$L_EFC3P      0000005C            PCB$W_TMBU       00000036            

CEB$B_STS        0000000B            PCB$L_EFCS       00000050            PCB$W_TQCNT      0000004A            

CEB$B_TYPE       0000000A            PCB$L_EFCU       00000054            PHD$B_ASTLVL     000000CF            

CEB$L_CEBBL      00000004            PCB$L_EFWM       0000004C            PHD$B_DFPFC      00000038            

CEB$L_CEBFL      00000000            PCB$L_OWNER      0000001C            PHD$B_PAGFIL     0000001F            

CEB$L_EFC        00000010            PCB$L_PHD        00000064            PHD$B_PGTBPFC    00000039            

CEB$L_PID        0000000C            PCB$L_PHYPCB     00000018            PHD$C_LENGTH     00000118            

CEB$L_UIC        00000020            PCB$L_PID        00000060            PHD$C_PHDPAGCTX= 00000008            

CEB$L_WQBL       00000018            PCB$L_PQB        0000004C            PHD$K_LENGTH     00000118            

CEB$L_WQFL       00000014            PCB$L_SQBL       00000004            PHD$L_BIOCNT     00000054            

CEB$T_EFCNAM     00000028            PCB$L_SQFL       00000000            PHD$L_CPULIM     00000058            

CEB$V_NOQUOTA  = 00000000            PCB$L_STS        00000028            PHD$L_CPUTIM     0000003C            

CEB$V_PERM     = 00000001            PCB$L_UIC        00000020            PHD$L_DIOCNT     00000050            

CEB$W_GRP        00000022            PCB$L_WSSWP      00000024            PHD$L_ESP        0000007C            

CEB$W_PROT       00000024            PCB$L_WTIME      0000002C            PHD$L_FREP0VA    00000028            

CEB$W_REFC       00000026            PCB$T_LNAME      0000006C            PHD$L_FREP1VA    00000030            

CEB$W_SIZE       00000008            PCB$V_ASTPEN   = 00000011            PHD$L_FREPTECNT  0000002C            

CEB$W_STATE      0000001E            PCB$V_BATCH    = 0000000E            PHD$L_KSP        00000078            

CEB$W_WQCNT      0000001C            PCB$V_DELPEN   = 00000001            PHD$L_P0BR       000000C8            

CEFEVT           00000038 R     04   PCB$V_FORCPEN  = 00000002            PHD$L_P0LRASTL   000000CC            

EVENTE           0000004A R     04   PCB$V_HIBER    = 00000013            PHD$L_P1BR       000000D0            

EVENTF           00000076 R     04   PCB$V_INQUAN   = 00000003            PHD$L_P1LR       000000D4            

EVT$_AST       = 00000000  G         PCB$V_LOGIN    = 00000014            PHD$L_PAGEFLTS   0000004C            

EVT$_COLPGA    = 00000000  G         PCB$V_NETWRK   = 00000015            PHD$L_PAGFIL     0000001C            

EVT$_EVENT     = 00000001  G         PCB$V_NOACNT   = 0000000F            PHD$L_PC         000000C0            

EVT$_FPGA      = 00000004  G         PCB$V_NODELET  = 00000017            PHD$L_PCB        00000078            

EVT$_PFCOM     = 00000007  G         PCB$V_PHDRES   = 00000012            PHD$L_PGFLCNT    00000034            

EVT$_RESUME    = 00000006  G         PCB$V_PSWAPM   = 00000004            PHD$L_PGFLQUOTA  0000005C            

EVT$_SETPRI    = 00000008  G         PCB$V_PWRAST   = 00000016            PHD$L_PSL        000000C4            

EVT$_SWPOUT    = 00000009  G         PCB$V_RES      = 00000000            PHD$L_PSTBASOFF  00000020            

EVT$_WAKE      = 00000005  G         PCB$V_RESPEN   = 00000005            PHD$L_PTWSLELCK  00000064            

EVTCTR         = 0000000B            PCB$V_SSFEXC   = 00000006            PHD$L_PTWSLEVAL  00000068            

EXE$GQ_SYSTIME   ********   X   04   PCB$V_SSFEXCE  = 00000007            PHD$L_R0         00000088            

EXESTATE         000000A7 R     04   PCB$V_SSFEXCS  = 00000008            PHD$L_R1         0000008C            

GBL...         = 00000000            PCB$V_SSFEXCU  = 00000009            PHD$L_R10        000000B0            

IPL$_ASTDEL    = 00000002            PCB$V_SSRWAIT  = 0000000A            PHD$L_R11        000000B4            

IPL$_HWCLK     = 00000018            PCB$V_SUSPEN   = 0000000B            PHD$L_R12        000000B8            

IPL$_IOPOST    = 00000004            PCB$V_SWPVBN   = 00000010            PHD$L_R13        000000BC            

IPL$_MAILBOX   = 0000000B            PCB$V_WAKEPEN  = 0000000C            PHD$L_R2         00000090            

IPL$_POWER     = 0000001F            PCB$V_WALL     = 0000000D            PHD$L_R3         00000094            

IPL$_QUEUEAST  = 00000006            PCB$W_APTCNT     00000034            PHD$L_R4         00000098            

IPL$_SCHED     = 00000003            PCB$W_ASTCNT     0000003C            PHD$L_R5         0000009C            

IPL$_SYNCH     = 00000007            PCB$W_BIOCNT     0000003E            PHD$L_R6         000000A0            

IPL$_TIMER     = 00000007            PCB$W_BIOLM      00000040            PHD$L_R7         000000A4            

LEFEVT           0000003C R     04   PCB$W_BYTCNT     00000042            PHD$L_R8         000000A8            

MAXEVT         = 0000000A            PCB$W_BYTLM      00000068            PHD$L_R9         000000AC            

PCB$B_ASTACT     0000000C            PCB$W_DIOCNT     00000044            PHD$L_REFERFLT   00000014            

PCB$B_ASTEN      0000000D            PCB$W_DIOLM      00000046            PHD$L_SSP        00000080            

PCB$B_PRI        0000000B            PCB$W_FILCNT     00000048            PHD$L_USP        00000084            

PCB$B_PRIB       00000033            PCB$W_GPGCNT     00000038            PHD$L_WSL        00000118            

PCB$B_TYPE       0000000A            PCB$W_GRP        00000022            PHD$M_DALCSTX  = 00000002            

PCB$B_WEFC       00000032            PCB$W_MEM        00000020            PHD$M_PFMFLG   = 00000001            

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page  17

SYMBOL TABLE                                                                                                                     (1)



PHD$M_WSPEAKCHK= 00000004            PR$_SBIFS      = 00000030            SS$_ACCONFLICT = 00000800            

PHD$Q_PRIVMSK    00000000            PR$_SBIMT      = 00000033            SS$_ACCVIO     = 0000000C            

PHD$S_ASTLVL   = 00000008            PR$_SBIQC      = 00000036            SS$_ACPVAFUL   = 000002FC            

PHD$S_P0LR     = 00000018            PR$_SBIS       = 00000031            SS$_ARTRES     = 00000474            

PHD$V_ASTLVL   = 00000018            PR$_SBISC      = 00000032            SS$_ASTFLT     = 0000040C            

PHD$V_DALCSTX  = 00000001            PR$_SBITA      = 00000035            SS$_BADATTRIB  = 00000034            

PHD$V_P0LR     = 00000000            PR$_SBR        = 0000000C            SS$_BADCHKSUM  = 00000808            

PHD$V_PFMFLG   = 00000000            PR$_SCBB       = 00000011            SS$_BADESCAPE  = 0000003C            

PHD$V_WSPEAKCHK= 00000002            PR$_SID        = 0000003E            SS$_BADFILEHDR = 00000810            

PHD$W_ASTLM      00000044            PR$_SIRR       = 00000014            SS$_BADFILENAME= 00000818            

PHD$W_BAK        00000048            PR$_SISR       = 00000015            SS$_BADFILEVER = 00000820            

PHD$W_DFWSCNT    0000001A            PR$_SLR        = 0000000D            SS$_BADIMGHDR  = 00000044            

PHD$W_EMPTPG     000000D8            PR$_SSP        = 00000002            SS$_BADIRECTORY= 00000828            

PHD$W_EXTDYNWS   00000076            PR$_TBIA       = 00000039            SS$_BADPARAM   = 00000014            

PHD$W_FILLM      00000060            PR$_TBIS       = 0000003A            SS$_BADSTACK   = 000002B4            

PHD$W_FLAGS      0000003A            PR$_TODR       = 0000001B            SS$_BEGOFFILE  = 00000938            

PHD$W_PHVINDEX   00000046            PR$_TXCS       = 00000022            SS$_BLOCKCNTERR= 00000940            

PHD$W_PRCLM      00000042            PR$_TXDB       = 00000023            SS$_BREAK      = 00000414            

PHD$W_PST        00000020            PR$_USP        = 00000003            SS$_BUFBYTALI  = 0000030C            

PHD$W_PSTBASMAX  0000004A            PR$_WCSA       = 0000002C            SS$_BUFFEROVF  = 00000601            

PHD$W_PSTFREE    00000026            PR$_WCSD       = 0000002D            SS$_BUGCHECK   = 000002A4            

PHD$W_PSTLAST    00000024            PRI$_IOCOM     = 00000001            SS$_CANCEL     = 00000830            

PHD$W_PTCNTACT   00000070            PRI$_NULL      = 00000000            SS$_CHANINTLK  = 0000004C            

PHD$W_PTCNTLCK   0000006C            PRI$_RESAVL    = 00000002            SS$_CLIFRCEXT  = 00000980            

PHD$W_PTCNTMAX   00000072            PRI$_TICOM     = 00000004            SS$_CMODSUPR   = 0000041C            

PHD$W_PTCNTVAL   0000006E            PRI$_TIMER     = 00000002            SS$_CMODUSER   = 00000424            

PHD$W_QUANT      00000040            PRI$_TOCOM     = 00000003            SS$_COMPAT     = 0000042C            

PHD$W_TQLM       00000062            RSE...         = 00000034 R     04   SS$_CONTINUE   = 00000001            

PHD$W_WSAUTH     0000000A            SCH$AQ_COMT      ********   X   04   SS$_CONTROLC   = 00000651            

PHD$W_WSDYN      0000000E            SCH$AQ_WQHDR     ********   X   04   SS$_CONTROLO   = 00000609            

PHD$W_WSFLUID    00000074            SCH$CHSE         000000AB RG    04   SS$_CONTROLY   = 00000611            

PHD$W_WSLAST     00000012            SCH$CHSEP        000000C7 RG    04   SS$_CREATED    = 00000619            

PHD$W_WSLIST     00000008            SCH$C_CEF      = 00000003            SS$_CTRLERR    = 00000054            

PHD$W_WSLOCK     0000000C            SCH$C_COLPG    = 00000001            SS$_DATACHECK  = 0000005C            

PHD$W_WSLX       0000004A            SCH$C_COM      = 0000000C            SS$_DATAOVERUN = 00000838            

PHD$W_WSNEXT     00000010            SCH$C_COMO     = 0000000D            SS$_DEBUG      = 0000046C            

PHD$W_WSQUOTA    00000018            SCH$C_CUR      = 0000000E            SS$_DECOVF     = 000004A4            

PR$_ACCR       = 00000029            SCH$C_FPG      = 0000000B            SS$_DEVACTIVE  = 000002C4            

PR$_ACCS       = 00000028            SCH$C_HIB      = 00000007            SS$_DEVALLOC   = 00000840            

PR$_ASTLVL     = 00000013            SCH$C_HIBO     = 00000008            SS$_DEVALRALLOC= 00000641            

PR$_ESP        = 00000001            SCH$C_LEF      = 00000005            SS$_DEVASSIGN  = 00000848            

PR$_ICCS       = 00000018            SCH$C_LEFO     = 00000006            SS$_DEVFOREIGN = 00000064            

PR$_ICR        = 0000001A            SCH$C_MWAIT    = 00000002            SS$_DEVICEFULL = 00000850            

PR$_IPL        = 00000012            SCH$C_PFW      = 00000004            SS$_DEVMOUNT   = 0000006C            

PR$_ISP        = 00000004            SCH$C_SUSP     = 00000009            SS$_DEVNOTALLOC= 00000858            

PR$_KSP        = 00000000            SCH$C_SUSPO    = 0000000A            SS$_DEVNOTMBX  = 00000074            

PR$_MAPEN      = 00000038            SCH$GB_PRI       ********   X   04   SS$_DEVNOTMOUNT= 0000007C            

PR$_NICR       = 00000019            SCH$GL_COMQS     ********   X   04   SS$_DEVOFFLINE = 00000084            

PR$_P0BR       = 00000008            SCH$GL_PCBVEC    ********   X   04   SS$_DIRFULL    = 00000860            

PR$_P0LR       = 00000009            SCH$GL_SWPPID    ********   X   04   SS$_DRVERR     = 0000008C            

PR$_P1BR       = 0000000A            SCH$GW_QUAN      ********   X   04   SS$_DUPFILENAME= 00000868            

PR$_P1LR       = 0000000B            SCH$QEND         0000013F RG    04   SS$_DUPLNAM    = 00000094            

PR$_PCBB       = 00000010            SCH$RSE          00000000 RG    04   SS$_ENDOFFILE  = 00000870            

PR$_PME        = 0000003D            SCH$SWPWAKE      0000017B RG    04   SS$_ENDOFTAPE  = 00000878            

PR$_RXCS       = 00000020            SCH$UNWAIT       00000079 RG    04   SS$_ENDOFUSRLBL= 00000970            

PR$_RXDB       = 00000021            SCH$WAKE         00000156 RG    04   SS$_EXQUOTA    = 0000001C            

PR$_SBIER      = 00000034            SS$_ABORT      = 0000002C            SS$_EXTIDXFILE = 00000880            

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page  18

SYMBOL TABLE                                                                                                                     (1)



SS$_FCPREADERR = 00000888            SS$_MBFULL     = 000008D8            SS$_TIMEOUT    = 0000022C            

SS$_FCPREPSTN  = 00000988            SS$_MBTOOSML   = 0000019C            SS$_TOOMANYVER = 00000990            

SS$_FCPREWNDERR= 00000890            SS$_MCHECK     = 000002BC            SS$_TOOMUCHDATA= 0000029C            

SS$_FCPSPACERR = 00000898            SS$_MEDOFL     = 000001A4            SS$_UNASEFC    = 00000234            

SS$_FCPWRITERR = 000008A0            SS$_MSGNOTFND  = 00000621            SS$_UNSAFE     = 0000023C            

SS$_FILACCERR  = 0000009C            SS$_MTLBLLONG  = 00000304            SS$_UNWIND     = 00000920            

SS$_FILALRACC  = 000000A4            SS$_MUSTCLOSEFL= 00000948            SS$_UNWINDING  = 00000928            

SS$_FILELOCKED = 000008A8            SS$_NOAQB      = 00000314            SS$_VASFULL    = 00000244            

SS$_FILENUMCHK = 000008B0            SS$_NODATA     = 000001AC            SS$_VECINUSE   = 0000024C            

SS$_FILESEQCHK = 000008B8            SS$_NOHANDLER  = 000008F8            SS$_VOLINV     = 00000254            

SS$_FILESTRUCT = 000008C0            SS$_NOHOMEBLK  = 000008E0            SS$_WAITUSRLBL = 00000950            

SS$_FILNOTACC  = 000000AC            SS$_NOIOCHAN   = 000001B4            SS$_WASCLR     = 00000001            

SS$_FILNOTCNTG = 000002AC            SS$_NOLINKS    = 0000027C            SS$_WASECC     = 00000639            

SS$_FILNOTEXP  = 000000B4            SS$_NOLOGNAM   = 000001BC            SS$_WASSET     = 00000009            

SS$_FLTDIV     = 00000494            SS$_NOMBX      = 00000274            SS$_WRITLCK    = 0000025C            

SS$_FLTOVF     = 0000048C            SS$_NOMOREFILES= 00000930            SS$_WRONGACP   = 0000031C            

SS$_FLTUND     = 0000049C            SS$_NONEXDRV   = 000001C4            ST             = 00000002            

SS$_FORMAT     = 000000BC            SS$_NONEXPR    = 000008E8            STACT            0000001E R     04   

SS$_GPTFULL    = 000000C4            SS$_NONLOCAL   = 000008F0            STET           = 00000000 R     03   

SS$_GSDFULL    = 000000CC            SS$_NOPRIV     = 00000024            STMSK          = 00001000            

SS$_HANGUP     = 000002CC            SS$_NORMAL     = 00000001            SWPO             00000127 R     04   

SS$_HEADERFULL = 000008C8            SS$_NOSIGNAL   = 00000900            SWPOE            00000138 R     04   

SS$_IDXFILEFULL= 000008D0            SS$_NOSOLICIT  = 00000284            WAITMSK          0000009E R     04   

SS$_ILLBLKNUM  = 000000DC            SS$_NOSUCHDEV  = 00000908            WAITST         = 00000FFE            

SS$_ILLCNTRFUNC= 000000E4            SS$_NOSUCHFILE = 00000910            WQH$C_LENGTH     0000000C            

SS$_ILLEFC     = 000000EC            SS$_NOSUCHNODE = 0000028C            WQH$K_LENGTH     0000000C            

SS$_ILLIOFUNC  = 000000F4            SS$_NOSUCHSEC  = 00000978            WQH$L_WQBL       00000004            

SS$_ILLLBLAST  = 00000968            SS$_NOTAPEOP   = 00000264            WQH$L_WQFL       00000000            

SS$_ILLPAGCNT  = 000000FC            SS$_NOTFILEDEV = 000001CC            WQH$W_WQCNT      00000008            

SS$_ILLSEQOP   = 000002DC            SS$_NOTINTBLSZ = 000001D4            WQH$W_WQSTATE    0000000A            

SS$_ILLSER     = 00000104            SS$_NOTLABELMT = 000001DC            

SS$_ILLUSRLBLRD= 00000958            SS$_NOTMODIFIED= 00000659            

SS$_ILLUSRLBLWT= 00000960            SS$_NOTNETDEV  = 000002EC            

SS$_INCVOLLABEL= 0000010C            SS$_NOTRAN     = 00000629            

SS$_INSFARG    = 00000114            SS$_NOTSQDEV   = 000001E4            

SS$_INSFMEM    = 00000124            SS$_OPCCUS     = 00000434            

SS$_INSFRAME   = 0000012C            SS$_OPCDEC     = 0000043C            

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

SS$_INTDIV     = 00000484            SS$_PAGOWNVIO  = 000001EC            

SS$_INTOVF     = 0000047C            SS$_PAGRDERR   = 00000444            

SS$_IVADDR     = 00000134            SS$_PARITY     = 000001F4            

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

SS$_IVCHNLSEC  = 0000026C            SS$_PFMBSY     = 00000204            

SS$_IVDEVNAM   = 00000144            SS$_PLHLDR     = 00000404            

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

SS$_IVLOGNAM   = 00000154            SS$_RADRMOD    = 0000044C            

SS$_IVLOGTAB   = 0000015C            SS$_REJECT     = 00000294            

SS$_IVPROTECT  = 000002F4            SS$_REMOTE     = 00000649            

SS$_IVQUOTAL   = 00000164            SS$_RESIGNAL   = 00000918            

SS$_IVSECFLG   = 0000016C            SS$_RESULTOVF  = 00000214            

SS$_IVSECIDCTL = 000002E4            SS$_ROPRAND    = 00000454            

SS$_IVSSRQ     = 00000174            SS$_SECTBLFUL  = 0000021C            

SS$_IVSTSFLG   = 0000017C            SS$_SSFAIL     = 0000045C            

SS$_IVTIME     = 00000184            SS$_SUBRNG     = 000004AC            

SS$_LCKPAGFUL  = 000000D4            SS$_SUPERSEDE  = 00000631            

SS$_LENVIO     = 0000018C            SS$_TAPEPOSLOST= 00000224            

SS$_LKWSETFUL  = 00000194            SS$_TBIT       = 00000464            

RSE             - REPORT SYSTEM EVENT                            21-AUG-1978 20:09:02   VAX-11 MACRO X0.3-11               Page  19

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

ASE2             0000002C      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

ASE1             00000187      04     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

12302. BYTES LEFT IN FREE MEMORY POOL.

2944. BYTES OF RECLAIMED MEMORY.

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

8 MLB DIR RDS - 798 GETS TO DEFINE 21 MACROS. 56 INTER. FILE WRITES. 

