TITLE	PSISER -- PROGRAMMED SOFTWARE INTERRUPT SERVICE   V274
SUBTTL	C. D. O'TOOLE/CDO/RCB    27-OCT-87

	SEARCH	F,S
	$RELOC
	$HIGH

;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED
;  OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION
; 1973,1974,1975,1976,1977,1978,1979,1980,1982,1984,1986,1988.
;ALL RIGHTS RESERVED.

.CPYRT<1973,1988>


XP VPSISR,274

PSISER:	ENTRY	PSISER

	XP	PSIMPI,3	;MAXIMUM PRIORITY LEVEL

	IFL	PSIMPI,<PRINTX ? PSIMPI CANNOT BE NEGATIVE
				XP PSIMPI,0>
	IFG	<PSIMPI-3>,<PRINTX ? PSIMPI CANNOT BE .GT. 3
				XP PSIMPI,3>
	IFL	<^D35+C$MIN>,<PRINTX ? TOO MANY CONDITIONS FOR THIS EDIT
				XP C$MIN,-^D35>

	IFN	PSIMPI,<
		CNDSIZ==7	;SIZE OF BYTE FOR OFFSET
		PSIMVO==:^D127*4 ;MAX VECTOR OFFSET ( FOR GETTAB )
	>
	IFE	PSIMPI,<
		CNDSIZ==9	;SIZE OF BYTE FOR OFFSET
		PSIMVO==:^D511*4 ;MAX VECTOR OFFSET ( FOR GETTAB )
	>
DEFINE	BITS(NAME,X),<NAME==0
		IRP X,<NAME==NAME!1B<-C$'X>>>




;THE FOLLOWING CONDITIONS ARE IGNORED WHEN IN PFH OR CANNOT BE
;	GRANTED IMMEDIATELY.  C$TLE IS INCLUDED AND IS SPECIAL CASED.
;	IF A CONDITION IS IGNORED, IT CAN BE FATAL TO THE JOB (C$IMR).

BITS(IMBITS,<AUUO,TLE,IUUO,IMR,ADCK,ARIT,PLOV,APRC,UEIJ,XEIJ,ADRB,NXM>)


;THE FOLLOWING IMMEDIATE CONDITIONS FIND THE USERS PC IN JOBPD1.
;	ALL OTHERS GET THE PC FROM .CPPC

BITS(PD1BIT,<AUUO,IUUO,ADCK,UEIJ>)


;THE FOLLOWING CONDITIONS HAVE A STANDARD MESSAGE ASSOCIATED WITH THEM
;	AND WILL BE DEFERRED UNTIL AFTER PRINTING IF THE USER REQUESTED
;	THE MESSAGE.  ALL CONDITIONS HERE MUST ALSO BE IN IMBITS.

BITS(MSGBIT,<TLE,IUUO,IMR,ADCK,PLOV,UEIJ,XEIJ,ADRB,NXM>)

IFN <<IMBITS&MSGBIT>-MSGBIT>,<
	IMBITS==IMBITS		;SHOW BITS IN LISTING
	MSGBIT==MSGBIT		;SHOW BITS IN LISTING
	PRINTX ? MESSAGE CONDITIONS MISSING FROM IMMEDIATE CONDITIONS>

;SOME BITS FOR EASY TESTS AGAINST ENABLED CONDITIONS FOR THE USER
	BITS(APRBIT,<ARIT>)
	BITS(AUUBIT,<AUUO>)
	BITS(TLEBIT,<TLE>)
	BITS(JBIBIT,<JBI>)
	BITS(QUEBIT,<QUE>)
	BITS(WAKBIT,<WAKE>)
	BITS(CTCBIT,<CTLC>)
	BITS(TMRBIT,<TMR>)
	BITS(DTCBIT,<DTC>)
SUBTTL	DATA STRUCTURES

;USER INTERRUPT BLOCK FORMAT

	PHASE	0
.PSVNP:! BLOCK	1		;USERS NEW PC
.PSVOP:! BLOCK	1		;USERS OLD PC
.PSVFL:! BLOCK	1		;INTERRUPT CONTROL FLAGS
				; 0-17 ARE CONTROL FLAGS
				;18-35 ARE REASONS FOR DEVICE INTERRUPTS
	PS.XXX==1B0		;*** RESERVED
	PS.VPO==1B1		;TURN OFF UNTIL PISYS. TURNS IT BACK ON
	PS.VTO==1B2		;TURN OFF HIGHER LEVELS UNTIL DEBRK.
	PS.XXX==1B3		;*** RESERVED
	PS.VDS==1B4		;DISMISS ANY OTHER PENDING AT DEBRK.
				;  FOR THE CONDITION IN PROGRESS
	PS.VPM==1B5		;PRINT APPROPRIATE MESSAGE FOR THIS CONDITION
	PS.XXX==1B6		;*** RESERVED
.PSVIS:! BLOCK	1		;INTERRUPT STATUS WORD
	DEPHASE

;THE FOLLOWING DATA BASE IS BUILT FOR EACH USER OF PSISER.
;JBTPIA(J) CONTAINS CONTROL FLAGS AND THE ADDRESS OF THE TABLE.

	PHASE	0
PITNPI:! BLOCK	1		;NUMBER OF PENDING INTERRUPTS (MUST BE FIRST)
PITSTS:! BLOCK	1		;  0   ON IF ^C FROM TI WAIT
	PITQAB==1B1		;  1   ON IF C$QUE IS ABORTING REQUEST
				; 2-8  FREE
				; 9-17 WAKING JOB FOR C$WAKE
				;18-35 REQUEST ID FOR C$QUE
PITST2:! BLOCK	1		;ENTIRE WORD USED FOR PIJBI. UUO
PITST3:! BLOCK	1		;ENTIRE WORD USED FOR C$DTC
PITIVA:! BLOCK	1		; 0-8  HIGHEST VECTOR IN USE
				; 9-17 SECTION OF USER'S BASE
				;18-35 ADDRESS OF USER'S BASE
IFN PSIMPI,<
PITHLP:! BLOCK	1		;HIGHEST LEVEL IN PROGRESS ( -1 IF NONE )
>
PITCIB:! BLOCK	<PSIMPI+1>	;FULLWORD ADDRESS OF CURRENT INTERRUPT BLOCK
PITCIC:! BLOCK	<PSIMPI+1>	;LH = PC FLAGS IF EXTENDED ADDRESSING MODE
				;RH = CURRENT INTERRUPT CONDITION OR DDB
PITCHN:! BLOCK	1		;LH = DEVICE CHAIN FOR "ADDED" DEVICES
				;RH = FLAG DURING PRINTING OF ERROR MESSAGE
PITENB:! BLOCK	1		;BIT MAP FOR ENABLED CONDITIONS (NON-DEVICE)
PITPND:! BLOCK	1		;BIT MAP FOR PENDING CONDITIONS (NON-DEVICE)
PITMSG:! BLOCK	1		;BIT MAP FOR WANTED MESSAGES (NON-DEVICE)
PITTAB:! BLOCK	<<-C$MIN+1>+3>/4 ;9 BITS FOR EACH NON-DEVICE CONDITION
PITSIZ::!			;SIZE OF THE DATA BASE IN WORDS
	IFN	PITNPI,<PRINTX ? PITNPI IS NOT FIRST IN THE DATA BASE>
	DEPHASE

	RELOC	PSISER		;SAVE SPACE

VECBAS:	POINT	23,PITIVA(P1),35	;GLOBAL ADDRESS OF USER'S VECTOR
VECBS2:	POINT	23,PITIVA(T1),35	;ANOTHER WAY OF ADDRESSING IT
SUBTTL	UUOCON INTERFACE -- PIINI.

;CALL TO INIT THE PI SYSTEM
;CALL WITH:
;	MOVEI	AC,BASE-ADDRESS-OF-INTERRUPT-VECTOR
;	PIINI.	AC,
;	  HERE IF SYSTEM NOT AVAIL
;	NORMAL RETURN IS HERE

PIINI::	PUSHJ	P,SAVE1##	;SAVE AN AC
	TLNN	T1,(PS.IEA)	;USER REQUESTING EXTENDED ADDRESSING?
	HRRZS	T1		;NO, USE SECTION 0
	MOVE	P1,T1		;PRESERVE THE USER'S ARGUMENT
	TLZ	T1,(PS.IEA)	;CLEAR ILLEGAL ADDRESSING BIT
IFN FTXMON,<
	PUSHJ	P,SSPCS##	;SAVE PCS (FOR PIRST)
>
	PUSHJ	P,SXPCS##	;CHECK FOR VALID SECTION/BIT COMBINATION
	  JRST	ECOD1##		;(01) ILLEGAL SECTION NUMBER/BIT COMBINATION
	HRRZS	T1		;IADRCK ADDS IN PCS
	PUSHJ	P,IADRCK##	;CHECK ADDRESS VALIDITY
	  JRST	ECOD2##		;(02) BAD ADDRESS
	  JFCL			;PAGED OUT. ASSUME IT WILL COME IN.
IFN FTXMON,<
	XSFM	T1		;GET CURRENT PCS
	TLNE	P1,(PS.IEA)	;IF USER REQUESTED EXTENDED ADDRESSING,
	TRO	T1,(PS.IEA)	;PROPAGATE THE BIT
	HRL	P1,T1		;UPDATE LH OF ARGUMENT REGISTER
>
	PUSHJ	P,CLRPSI	;CLEAR OLD DATA
	MOVEI	T2,PITSIZ	;NUMBER OF WORDS TO GET
	PUSHJ	P,GETWDS##	;GO GET THEM
	  JRST	ECOD3##		;(03) INSUFFICIENT MONITOR FREE CORE
	HRLI	T2,(T1)		;PREPARE TO CLEAR THE DATA BASE
	HRRI	T2,1(T1)	;DESTINATION
	SETZM	0(T1)		;CLEAR THE BEGINNING
	BLT	T2,PITSIZ-1(T1)	;CLEAR THE REST
IFN PSIMPI,<SETOM PITHLP(T1)>	;SET INTERRUPT LEVEL TO -1
	TLZE	P1,(PS.IEA)	;USING EXTENDED ADDRESSING?
	TLOA	T1,(SI.UEA)	;YES, MARK IT
	TLZA	P1,-1		;NO, CLEAR LH OF USER'S VECTOR ORIGIN
	TLZ	P1,^-<(SECMSK)>	;YES, LEAVE SECTION NUMBER ALONE
	MOVEM	P1,PITIVA(T1)	;STORE IN PIT
	MOVEM	T1,JBTPIA##(J)	;STORE ADDRESS IN HANDY PLACE
	JRST	CPOPJ1##	;GOOD RETURN

;SUBROUTINE TO CLEAR THE SOFTWARE INTERRUPT SYSTEM
;CALL WITH:
;	J = JOB #
;	PUSHJ	P,CLRPSI
;	RETURN HERE ALWAYS

CLRPSI::HRRZ	T2,JBTPIA##(J)	;GET ADDRESS OF PIT
	JUMPE	T2,CPOPJ##	;RETURN IF ZERO
	HLRZ	F,PITCHN(T2)	;GET START OF PSI DDBS
	SETZM	JBTPIA##(J)	;CLEAR USERS TABLE NOW
	MOVEI	T1,PITSIZ	;NUMBER OF WORDS WE HAVE
	PUSHJ	P,GIVWDS##	;RETURN THE CORE
	PUSHJ	P,CLRTMR	;REMOVE ANY TIMER QUEUE REQUESTS
CLRP.1:	JUMPE	F,CPOPJ##	;RETURN WHEN OUT OF DDBS
	SETZM	DEVPSI(F)	;CLEAR INTERRUPT BITS
	HLRZ	F,DEVESE(F)	;STEP TO NEXT DDB
	JRST	CLRP.1		;LOOP OVER ALL DDBS

;SUBROUTINE TO REMOVE ANY TIMER QUEUE ENTRIES FOR PITMR.

CLRTMR:	PUSHJ	P,CTXJCJ##	;GET INTERRUPT HANDLE FROM CTXSER
	  POPJ	P,		;OK IF NONE
	MOVE	T2,[PSITMR,,1]	;REQUEST TO CHANGE TO EXPIRE IN 1 TICK
	PUSHJ	P,CLKCHG##	;SEARCH FOR/MODIFY EXISTING ENTRY
	  POPJ	P,		;OK IF DIDN'T FIND ONE
	POPJ	P,		;DONE
SUBTTL	UUOCON INTERFACE -- PISYS.

;CALL TO MANIPULATE THE PI SYSTEM
;CALL WITH:
;	MOVE	AC,[XWD FLAGS,ADDRESS]
;	PISYS.	AC,
;	  HERE ON AN ERROR
;	HERE WHEN FUNCTION COMPLETE
;
;ADDR:	CONDITION-REQUESTED OR DEVICE-ENABLED (CHANNEL,DEVNAM,UDX)
;	OFFSET-FROM-BASE(PIINI.) ,, REASONS-IF-DEVICE
;	PRIORITY LEVEL ,, 0

PISYS::	PUSHJ	P,SAVE4##	;SAVE A FEW FIRST
	TRNE	T1,-1		;ANY ADDRESS GIVEN?
	TLNE	T1,(PS.CSI!PS.RDV!PS.ADV) ;IS ARGUMENT NEEDED?
	SKIPA			;YES
	PJRST	ECOD0##		;(0) UNNECESSARY ARG SUPPLIED
	TLNN	T1,(PS.ALL)	;ANYTHING TO DO?
	PJRST	ECOD1##		;(1) NO FUNCTION GIVEN
	TLNE	T1,<-1-PS.ALL>_<-^D18> ;ANY UNUSED BITS SET?
	PJRST	ECOD2##		;(2) UNUSED BIT IS NOT = 0
	SKIPN	P1,JBTPIA##(J)	;PIINI. UUO DONE?
	JRST	ECOD13##	;(13) PIINI. UUO NOT DONE
	MOVE	P2,T1		;COPY ARGUMENT
	TLNE	P2,(PS.CPI)	;CLEAR PENDING INTERRUPTS?
	PUSHJ	P,CLRAPI	;YES, CLEAR ALL PENDING INTERRUPTS
	TLNE	P2,(PS.CSI)	;CLEAR FOR 1 CONDITION OR DEVICE?
	JRST	[PUSHJ P,CLRSPI	;YES, CLEAR PENDING INTERRUPT
		   POPJ P,	;ILLEGAL CONDITION OR DEVICE
		 JRST .+1]	;RESUME INLINE CODE
	MOVSI	T1,(SI.ON)	;PI SYSTEM ON BIT
	TLNE	P2,(PS.ON)	;WANT TO TURN ON?
	JRST	[TLNE P2,(PS.OFF) ;TURN SYSTEM OFF?
		 JRST ECOD3##	;(3) BOTH TURN OFF AND TURN ON
		 IORM T1,JBTPIA##(J) ;LIGHT THE BIT
		 JRST PISY.1]	;RESUME INLINE CODE
	TLNE	P2,(PS.OFF)	;WANT TO TURN OFF?
	ANDCAM	T1,JBTPIA##(J)	;CLEAR THE SYSTEM ON BIT
PISY.1:	TLNE	P2,(PS.RDV)	;WANT TO REMOVE DEVICE OR COND?
	PJRST	REMDEV		;YES, GO DO THAT
	TLNE	P2,(PS.ADV)	;WANT TO ADD?
	JRST	ADDDEV		;YES, GO DO THAT
	JRST	CPOPJ1##	;NO, ALL DONE
;SUBROUTINE CALLED BY UUOCON DURING RELEASE OF A DDB
;CALL
;	F = DDB BEING RELEASED
;	SKIPE	DEVPSI(F)
;	PUSHJ	P,PSIRMV
;ALWAYS CPOPJ RETURN
;WIPES T1-T2

PSIRMV::SETZM	DEVPSI(F)	;CLEAR ANY ENABLED BITS
	LDB	T1,PJCHN##	;GET OWNER
	PUSHJ	P,CTXPSI##	;GET PIT ADDRESS FROM CTXSER
	  POPJ	P,		;NO SUCH JOB?  UUOCON MESSED UP.
	JUMPE	T2,CPOPJ##	;NO PIT, HOW DID THOSE BITS GET LIT
	PUSHJ	P,SAVE2##	;SAVE A FEW REGS NOW
	MOVE	P1,T2		;COPY DATA BASE ADDRESS
UNLDDB:	HLRZ	P2,PITCHN(P1)	;GET FIRST DDB IN PSI CHAIN
	MOVEI	P1,<PITCHN-DEVESE>(P1) ;PRIME THE PUMP
UNLD.1:	JUMPE	P2,CPOPJ##	;RETURN WHEN OUT OF DDBS
	CAIN	P2,(F)		;ONE WE'VE BEEN LOOKING FOR
	JRST	[HLL P2,DEVESE(F) ;YES, GET POINTER TO NEXT
		 HLLM P2,DEVESE(P1) ;STORE IN PREVIOUS
		 POPJ P,]	;AND RETURN WITH CHAIN UNLINKED
	MOVE	P1,P2		;NO, REMEMBER HOW WE GOT HERE
	HLRZ	P2,DEVESE(P2)	;STEP TO NEXT PSI DDB
	JRST	UNLD.1		;CONTINUE SEARCH

;SUBROUTINE TO REMOVE A DEVICE OR CONDITION
;CALLED ONLY FROM PISYS UUO WITH:
;	P1 = ADDRESS OF PRIORITY INTERRUPT TABLE
;	P2 = USERS ARGUMENT
;	PUSHJ	P,REMDEV
;	  RETURN HERE ON ERROR
;	RETURN HERE IF OK
;
REMDEV:	TLNE	P2,(PS.ADV)	;ALSO WANT TO ADD DEVICE
	PJRST	ECOD14##	;(14) BOTH ADD AND REMOVE SELECTED
	PUSHJ	P,CHKCND	;CHECK THE CONDITION/DEVICE WORD
	  POPJ	P,0		;INVALID
	  JRST	REMD.1		;DEVICE CODE
	MOVSI	T2,(1B0)	;GET A BIT
	LSH	T2,(T1)		;POSITION IT CORRECTLY
	ANDCAM	T2,PITENB(P1)	;CLEAR ENABLED BIT
	TRNE	T2,JBIBIT	;IF THIS IS CROSS JOB INTERRUPT
	SETZM	PITST2(P1)	;CLEAR PIJBI. UUO INTERLOCK
	ANDCAM	T2,PITPND(P1)	;AND DEFERRED PENDING BIT
	TLNE	T2,(TMRBIT)	;IF THIS IS TIMER INTERRUPTS
	PUSHJ	P,CLRTMR	;REMOVE ANY CLOCK REQUEST QUEUE ENTRIES
	JRST	CPOPJ1##	;GOOD RETURN
REMD.1:	SETZM	DEVPSI(F)	;CLEAR INTERRUPT INFORMATION
	AOS	(P)		;GOING TO GIVE GOOD RETURN
	PJRST	UNLDDB		;UNLINK DDB AND RETURN
;SUBROUTINE TO ADD A DEVICE OR CONDITION
;CALLED FROM PISYS. UUO WITH:
;	P1 = ADDRESS OF PROGRAM INTERRUPT TABLE
;	P2 = USERS ARG POINTER
;	PUSHJ	P,ADDDEV
;	  RETURN HERE ON ERROR
;	RETURN HERE IF ALL IS OK
;
ADDDEV:	PUSHJ	P,SAVUM##	;PRESERVE M FOR THE REST OF THE WORLD
	PUSHJ	P,CHKCND	;GO CHECK OUT ARGUMENT
	  POPJ	P,0		;INVALID DEVICE OR CONDITION
	  JRST	ADDD.1		;HE WANTS TO ADD A DDB
	MOVE	P3,T1		;COPY CONDITION WANTED
	PUSHJ	P,CNDPTR	;GET A CONDITION POINTER INTO P4
	TDZA	F,F		;INDICATE CONDITION ENABLE AND SKIP
ADDD.1:	MOVE	P4,[POINT CNDSIZ,DEVESE(F),26] ;GET POINTER FOR OFFSET
	HRRI	M,2(P2)		;GET PRIORITY INFORMATION
	PUSHJ	P,GETWDU##	;...
	TRNE	T1,-1		;IS RESERVED HALF WORD NON-ZERO
	PJRST	ECOD12##	;(12) RESERVED HALFWORD IS NON-ZERO
IFE PSIMPI,<PJUMPN T1,ECOD11##>	;(11) PRIORITY IS TOO BIG
IFN PSIMPI,<
	HLRZS	T1		;GET PRIORITY LEVEL
	CAILE	T1,PSIMPI	;CHECK IT
	PJRST	ECOD11##	;(11) PRIORITY IS TOO BIG
	HRL	P3,T1		;SAVE IN LH OF P3, RH = CONDITION
>
	HRRI	M,1(P2)		;GET THE VECTOR OFFSET WORD
	PUSHJ	P,GETWDU##	; ..
	MOVEI	T2,-1		;ASSUME CONDITION
	SKIPE	F		;ARE WE RIGHT?
	MOVEI	T2,-1-IR.ALL	;NO, LOAD BITS FOR INVALID REASONS
	TRNE	T1,(T2)		;ANY BITS SET
	PJRST	ECOD10##	;(10) UNIMPLEMENTED BIT IS ON
	LSHC	T1,-^D18	;T1 = 0,,OFFSET  T2 = REASONS,,0
	CAIG	T1,PSIMVO	;IS VALUE TOO BIG?
	TRNE	T1,3		;MUST BE MULTIPLE OF 4 WORDS (.PSVIS+1)
	PJRST	ECOD7##		;(7) BAD VECTOR OFFSET
	LDB	P2,VECBAS	;GET BASE OF VECTOR
	ADDI	P2,.PSVFL(T1)	;POINT TO CONTROL FLAGS
	MOVE	M,P2		;...
	MOVE	P2,T1		;SAVE OFFSET
	HLRZ	T1,M		;GET SECTION OF BLOCK
	PUSHJ	P,SVPCS##	;SET IT UP
	PUSHJ	P,GTWST2##	;GET CONTROL FLAGS ( GETWDU AND SAVE T2 )
	EXCH	P2,T1		;RESTORE, GET FLAGS
	JUMPE	F,ADDD.2	;DEVICE OR REGULAR CONDITION
	PJUMPE	T2,ECOD10##	;(10) DEVICE, NO ENABLED BITS IS AN ERROR
	TLNE	P2,(PS.VPM)	;USER WANT ANY MESSAGE PRINTED
	TLO	T2,(1B0)	;YES, LIGHT FLAG IN DDB
	EXCH	T2,DEVPSI(F)	;SET ENABLED, GET PREVIOUS STATE
	TLNE	T2,-1		;ANY PREVIOUS CONDITIONS
	JRST	ADDD.3		;YES, ALREADY IN DEVICE CHAIN
	HLL	T2,PITCHN(P1)	;GET FIRST IN CHAIN
	HLLM	T2,DEVESE(F)	;LINK THAT IN
	HRLM	F,PITCHN(P1)	;THIS IS NOW THE FIRST
	JRST	ADDD.3		;RESUME
ADDD.2:	MOVSI	T2,(1B0)	;GET A BIT
	LSH	T2,(P3)		;POSITION IT CORRECTLY
	IORM	T2,PITENB(P1)	;NOT DEVICE, LIGHT ENABLED CONDITION
	TDNN	T2,[MSGBIT]	;THIS CONDITION HAVE A MESSAGE
	JRST	ADDD.3		;NO, SKIP TEST
	ANDCAM	T2,PITMSG(P1)	;CLEAR JUST IN CASE
	TLNE	P2,(PS.VPM)	;USER WANT IT PRINTED
	IORM	T2,PITMSG(P1)	;YES, LIGHT BIT FOR PSIIMM
ADDD.3:	LSH	T1,-2		;SHIFT OFF ZERO BITS
	DPB	T1,P4		;STORE OFFSET
	AOS	T1		;BUMP FOR PFH
	LDB	T2,[POINT 9,PITIVA(P1),8] ;GET MAX SO FAR
	CAIGE	T2,(T1)		;GREATER THAN THIS ONE?
	DPB	T1,[POINT 9,PITIVA(P1),8] ;SAVE THE GREATEST FOR PFH
IFN PSIMPI,<
	HRRE	T1,P3		;GET CONDITION TO ADD
	SKIPE	F		;DDB OR CONDITION
	SKIPA	P4,[POINT 2,DEVESE(F),19] ;DDB, GET POINTER TO PRIORITY
	PUSHJ	P,CNDLVL	;CONDITION, COMPUTE POINTER TO PRIORITY
	HLRZ	T1,P3		;RESTORE SAVED PRIORITY LEVEL
	DPB	T1,P4		;STORE IT
>
	AOS	(P)		;GOING TO GIVE GOOD RETURN
;	PJRST	APPSI		;FALL INTO ENABLE HARDWARE TRAP CODE

;SUBROUTINE TO SET UP HARDWARE TRAP1 INTERCEPT
;FALLEN INTO BY ADDDEV ABOVE,  ALSO CALLED BY KISER/KLSER

APPSI::	HRRZ	T2,JBTPIA##(J)	;GET BASE OF TABLE
	JUMPE	T2,CPOPJ##	;RETURN IF NOT USING PSI
	MOVE	T2,PITENB(T2)	;GET ENABLED CONDITIONS
	TLNN	T2,(APRBIT)	;WANT APR TRAPS
	POPJ	P,		;NO, GET OUT NOW
	MOVEI	T2,UI.AOT	;YES, SET DISPATCH FOR PSIAPR
	MOVEM	T2,.USAOT	;STORE FOR HARDWARE TRAP
	POPJ	P,		;RETURN
;SUBROUTINE TO CLEAR A SPECIFIC CONDITION FOR THE USER
;CALLED FROM PISYS UUO
;	P1 = ADDRESS OF DATA BASE
;	P2 = USERS ARGUMENT
;	PUSHJ	P,CLRSPI
;	  RETURN HERE IF ERROR
;	NORMAL RETURN

CLRSPI:	PUSHJ	P,CHKCND	;FETCH/CHECK CONDITION WORD
	  POPJ	P,		;BAD DEVICE OR CONDITION
	  JRST	[HLLZS DEVPSI(F) ;CLEAR DEVICE PENDING BITS
		 JRST CPOPJ1##]	;GOOD RETURN
	MOVSI	T2,(1B0)	;GET A BIT
	LSH	T2,(T1)		;POSITION IT CORRECTLY
	TRNE	T2,JBIBIT	;IF THIS IS CROSS JOB INTERRUPT
	SETZM	PITST2(P1)	;CLEAR PIJBI. UUO INTERLOCK
	ANDCAM	T2,PITPND(P1)	;CLEAR PENDING INTERRUPT
	JRST	CPOPJ1##	;AND GOOD RETURN

;SUBROUTINE TO CLEAR ALL PENDING INTERRUPTS FOR A JOB
;CALLED FROM PISYS UUO
;	P1 = ADDRESS OF DATA BASE

CLRAPI:	SETZM	PITNPI(P1)	;CLEAR PENDING COUNT
	SETZM	PITST2(P1)	;CLEAR PIJBI. UUO INTERLOCK
	SETZM	PITPND(P1)	;CLEAR PENDING CONDITIONS
	HLRZ	F,PITCHN(P1)	;POINT TO FIRST PSI'ED DDB
CLRA.1:	JUMPE	F,CPOPJ##	;RETURN WHEN OUT OF DDBS
	HLLZS	DEVPSI(F)	;CLEAR ANY PENDING INTERRUPTS
	HLRZ	F,DEVESE(F)	;STEP TO NEXT IN THE CHAIN
	JRST	CLRA.1		;LOOP OVER ALL DDBS
;SUBROUTINE TO FETCH AND VALIDATE THE DEVICE OR CONDITION GIVEN BY THE USER
;CALLED WITH:
;	P2 = USER ARGUMENT
;	PUSHJ	P,CHKCND
;	  RETURN HERE IF THE CONDITION IS INVALID
;	  RETURN HERE IF A DEVICE WAS SPECIFIED
;	RETURN HERE IF A CONDITION WAS SPECIFIED
;
;UPON RETURN F=ADDRESS OF DDB (IF DEVICE)
;	T1 = CONDITION NUMBER (IF CONDITION)

CHKCND:	PUSHJ	P,CTXJCJ##	;GET CURRENT JCH FOR JOB
	  POPJ	P,		;CONTEXT WENT AWAY
	MOVE	T4,T1		;SAVE JCH FOR COMPARES
	HRR	M,P2		;ADDRESS OF WORD
	PUSHJ	P,GETWDU##	;GET THE WORD
	HLRE	T2,T1		;CHECK IF CONDITION OR DEVICE NAME
	AOJE	T2,CHKC.1	;GO IT CONDITION WAS SPECIFIED
	PUSHJ	P,DVCNSG##	;ELSE LOOK FOR A DEVICE
	  JRST	ECOD5##		;(5) NOT A DEVICE
CHKC.0:	HRRZ	T2,TTYTAB##(J)	;GET ADDRESS OF THIS JOBS TTY DDB
	CAIN	T2,(F)		;SKIP IF THIS IS NOT HIS TTY
	PJRST	CPOPJ1##	;GOOD RETURN
	LDB	T2,PJCHN##	;GET NAME OF OWNER
	TRNN	T2,CTXMSK##	;IF NO CONTEXT OWNS IT,
	TRZ	T4,CTXMSK##	;THEN DON'T COMPARE CONTEXT NUMBERS
	MOVEI	T3,ASSPRG	;SEE IF DEVICE IS
	TDNE	T3,DEVMOD(F)	; OPEN FOR 
	CAIE	T2,(T4)		; THIS JOB.
	PJRST	ECOD5##		;(5) OR NOT OPENED BY THIS JOB
	JRST	CPOPJ1##	;SKIP RETURN
CHKC.1:	CAML	T1,[C$MIN]	;SKIP IF CODE IS TOO SMALL
	JRST	CPOPJ2##	;DOUBLE SKIP RETURN

;HERE COULD BE "-1,,DDB" FROM PISAV., CHECK FOR THAT

	HLRZ	F,DEVLST##	;HEAD OF DDB CHAIN
CHKC.2:	CAIN	F,(T1)		;THE ONE WE WANT
	JRST	CHKC.0		;AND CHECK OWNERSHIP
	PUSHJ	P,NXDDB##	;STEP TO NEXT DDB
	  JUMPE	F,ECOD6##	;(6) OR CONDITION CODE TOO SMALL
	JRST	CHKC.2		;AND LOOK AT IT
SUBTTL	UUOCON INTERFACE -- PISAV.

;CALL TO SAVE THE CURRENT PSI SYSTEM
;CALL WITH:
;	MOVE	AC,[XWD LENGTH,ADDRESS]
;	PISAV.	AC,
;	  HERE ON AN ERROR
;	HERE OLD SYSTEM IS SAVED AND CLEARED
;
;ADDRESS	GETS	FLAG,,NUMBER OF WORDS STORED
;			(OR WOULD HAVE IF BLOCK WERE LONG ENOUGH)
;ADDRESS+1	GETS	BASE OF CURRENT INTERRUPT VECTOR
;
;ADDRESS+2 THROUGH
;ADDRESS+N	GETS	SAVED STATE, 3 WORD BLOCKS, SUITABLE FOR PIRST. (OR PISYS.)

PISAVE::PUSHJ	P,SAVE4##	;SAVE A FEW FIRST
	HRR	M,T1		;ADDRESS OF BLOCK
	HLRZ	P2,T1		;AND LENGTH OF IT
	SOJL	P2,ECOD1##	;(1) BLOCK SIZE ZERO
	MOVEI	P3,1		;ADJUST BOTH COUNTERS
	SKIPN	P1,JBTPIA##(J)	;GET DATA BASE
	JRST	PISA.5		;OK IF SAVING AN EMPTY SYSTEM
	PUSH	P,M		;REMEMBER ADDRESS OF FIRST WORD
	PUSH	P,F		;AND SAVE F
	LDB	T1,VECBAS	;GET BASE OF SYSTEM CURRENTLY IN USE
	PUSHJ	P,STORE		;STORE IN THE BLOCK
	HLRZ	P4,PITCHN(P1)	;GET START OF THE PSI DDBS
	JUMPE	P4,PISA.2	;NONE, GET NON-DEVICE CONDITIONS
PISA.1:	HRROI	T1,(P4)		;GET -1,,DDB ADDRESS
	PUSHJ	P,STORE		;STUFF THAT AWAY
	LDB	T1,[POINT CNDSIZ,DEVESE(P4),26] ;GET VECTOR OFFSET
	LSH	T1,^D20		;*4, WANT IT IN LEFT HALF
	HLR	T1,DEVPSI(P4)	;INSERT CONDITIONS ENABLED
	TRZ	T1,-1-IR.ALL	;CLEAR RESIDUE
	PUSHJ	P,STORE		;DROP IT IN
IFE PSIMPI,<SETZ T1,>		;CLEAR PRIORITY INFORMATION
IFN PSIMPI,<
	LDB	T1,[POINT 2,DEVESE(P4),19] ;GET PRIORITY LEVEL
	HRLZS	T1		;WANT IN LEFT HALF FOR UUO
>
	PUSHJ	P,STORE		;STORE PRIORITY INFORMATION
	HLRZ	P4,DEVESE(P4)	;STEP TO NEXT PSI'ED DDB
	JUMPN	P4,PISA.1	;CONTINUE UNTIL DONE

PISA.2:	SKIPN	F,PITENB(P1)	;ANY NON-DEVICE CONDITIONS ENABLED
	JRST	PISA.4		;NOPE, ALL DONE WITH THE SAVE
PISA.3:	MOVE	T1,F		;COPY CURRENT BITS
	JFFO	T1,.+1		;FIND ONE ENABLED
	MOVN	T1,T2		;WANT NEGATIVE CONDITION NUMBER
	TDZ	F,BITTBL##(T2)	;AND CLEAR WHAT WE FOUND ENABLED
IFN PSIMPI,<PUSH P,T1>		;SAVE CONDITION NUMBER
	PUSHJ	P,CNDPTR	;COMPUTE A CONDITION POINTER
	PUSHJ	P,STORE		;STORE CONDITION NUMBER
	LDB	T1,P4		;GET OFFSET PROPER
	LSH	T1,^D20		;*4 AND MOVE TO THE LEFT HALF
	PUSHJ	P,STORE		;STORE THAT
IFE PSIMPI,<SETZ T1,>		;CLEAR PRIORITY INFORMATION
IFN PSIMPI,<
	POP	P,T1		;RESTORE CONDITION NUMBER
	PUSHJ	P,CNDLVL	;GET PRIORITY LEVEL
	LDB	T1,P4		;GET IT
	HRLZS	T1		;WANT IN LEFT HALF FOR UUO
>
	PUSHJ	P,STORE		;STORE PRIORITY INFORMATION
	JUMPN	F,PISA.3	;CONTINUE UNTIL EXHAUSTED ENABLED CONDITIONS

PISA.4:	POP	P,F		;RESTORE F
	POP	P,M		;RESTORE ADDRESS OF FIRST WORD
PISA.5:	MOVE	T1,P3		;NUMBER OF WORDS STORED (OR TRIED TO)
	SKIPGE	P1		;IS THE PSI SYSTEM CURRENTLY TURNED ON
	TLO	T1,(SI.ON)	;YES, LIGHT BIT FOR PIRST.
	TLNE	P1,(SI.UEA)	;EXTENDED USER?
	TLO	T1,(SI.UEA)	;YES, LIGHT BIT FOR PIRST.
	PUSHJ	P,PUTWDU##	;STORE IN BEGINNING OF USERS BLOCK
	JUMPL	P2,ECOD0##	;(0) WAS THIS TRIP REALLY WORTH IT
	PUSHJ	P,CLRPSI	;HAVING SAVED THE SYSTEM, CLEAR OLD DATA
	JRST	CPOPJ1##	;AND RETURN SUCCESS

;LOCAL ROUTINE FOR STORING DATA INTO THE BLOCK FOR PISAV.

STORE:	SOSL	P2		;ROOM LEFT IN THE BLOCK
	PUSHJ	P,PUTWD1##	;YES, STORE THIS VALUE
	AOJA	P3,CPOPJ##	;COUNT THE WORD AND RETURN
SUBTTL	UUOCON INTERFACE -- PIRST.

;CALL TO RESTORE THE PI SYSTEM FROM BLOCK SAVED BY PISAV.
;CALL WITH:
;	MOVEI	AC,BLOCK USED DURING PISAV.
;	PISAV.	AC,
;	  HERE ON AN ERROR
;	HERE PI SYSTEM SUCCESSFULLY RESTORED
;
;THIS UUO CAN ALSO BE USED TO BUILD AN ENTIRE PI SYSTEM AVOIDING PIINI AND
;	MULTIPLE PISYS. UUOS.

PIRST::	PUSHJ	P,SAVE4##	;SAVE A FEW FIRST
	HRRI	M,(T1)		;ADDRESS OF THE BLOCK
	PUSHJ	P,GETWDU##	;GET FLAG AND WORD COUNT
	HLL	P4,T1		;SAVE FLAG FOR NOW
	HRRZ	P3,T1		;COPY COUNT
	SOJLE	P3,[PUSHJ P,CLRPSI ;SAVED AN EMPTY SYSTEM
		    JRST CPOPJ1##] ;SO CLEAR OLD AND RETURN
	PUSHJ	P,GETWD1##	;GET BASE OF OLD SYSTEM
	TLNE	P4,(SI.UEA)	;IF EXTENDED USER
	TLO	T1,(PS.IEA)	;LIGHT UUO BIT
	PUSHJ	P,PIINI		;AND DO A PIINI. FOR IT
	  JRST	ECOD1##		;(1) NO MONITOR CORE
	SOS	P3		;ADJUST COUNTER
	MOVEI	P2,1(M)		;POINT TO FIRST BLOCK TO RESTORE
	MOVE	P1,JBTPIA##(J)	;BASE FROM PIINI.
	TLNE	P4,(SI.ON)	;WAS OLD SYSTEM ON
	TLO	P1,(SI.ON)	;YES, RESTORE STATE

PIRS.1:	SUBI	P3,3		;DEDUCT 1 BLOCK FROM COUNT
	JUMPL	P3,PIRS.2	;ALL DONE
	PUSHJ	P,[PUSHJ P,SAVE3## ;SAVE MY P REGS FIRST
		   JRST ADDDEV]    ;AND CALL PISYS. ADD ROUTINE
	  JRST	[PUSHJ P,CLRPSI    ;FAILED, CLEAR SO NOT HALF RESTORED
		 PJRST ECOD0##]    ;(0) AND GIVE FAIL RETURN TO UUO
	ADDI	P2,3		;POINT TO NEXT GROUP
	JRST	PIRS.1		;AND PROCESS THAT

PIRS.2:	MOVEM	P1,JBTPIA##(J)	;STORE BACK WITH "ON" FLAG
	JRST	CPOPJ1##	;AND GIVE GOOD RETURN
SUBTTL	UUOCON INTERFACE -- DEBRK.

DEBRK::	PUSHJ	P,SAVE4##	;SAVE A FEW FIRST
	SKIPE	P1,JBTPIA##(J)	;GET ADDRESS OF PI TABLE
IFN PSIMPI,<SKIPGE P4,PITHLP(P1)> ;GET HIGHEST LEVEL IN PROGRESS
IFE PSIMPI,<SKIPN P2,PITCIB(P1)> ;GET INT BLOCK ADDRESS
	JRST	CPOPJ1##	;NO PI IN PROGRESS
IFN PSIMPI,<
	ADDI	P4,PITCIB(P1)	;POINT TO CORRECT PITCIB FOR LEVEL IN PROGRESS
	MOVE	P2,0(P4)	;AND GET INT BLOCK ADDRESS
>
	HLRZ	T1,P2		;GET SECTION NUMBER OF BLOCK
	PUSHJ	P,SVPCS##	;SET IT FOR FOLLOWING
	MOVEI	M,.PSVOP(P2)	;OLD PC
	PUSHJ	P,GETWDU##	;FETCH IT
	MOVE	P3,T1		;SAVE FOR NOW
	MOVEI	M,.PSVFL(P2)	;FLAG WORD
	PUSHJ	P,GETWDU##	;GET THAT TOO
	DMOVE	T3,.JDAT+JOBPD1## ;GET UUO PC
	PUSH	P,P4		;SAVE AC USED FOR PC
	PUSHJ	P,DEBRPC	;ADJUST PC FOR EXTENDED USER
	TLNN	T3,(XC.UIO)	;DOES HE HAVE USER IOT SET
	TLZ	P3,(XC.UIO)	;NO, CLEAR FROM OLD PC
IFE FTKS10,<
	TLNE	T3,(XC.PUB)	;OLD PC PUBLIC
	TLO	P3,(XC.PUB)	;YES, NEW PC IS TOO
>
	TLO	P3,(XC.USR)	;SET USER MODE
	TLZ	P3,37		;CLEAR INDEX AND @
	DMOVEM	P3,.JDAT+JOBPD1## ;STORE BACK FOR USER
	POP	P,P4		;RESTORE PC REGISTER
IFE PSIMPI,<
	SETZM	PITCIB(P1)	;CLEAR INTERRUPT IN PROGRESS
	SETZ	P2,		;GET A ZERO
	EXCH	P2,PITCIC(P1)	;GET AND CLEAR CURRENT CONDITION/DEVICE
>
IFN PSIMPI,<
	SETZM	0(P4)		;CLEAR INTERRUPT IN PROGRESS
	SETZ	P2,		;GET A ZERO
	EXCH	P2,PITCIC-PITCIB(P4) ;GET AND CLEAR INTERRUPT REASON
DEBR.1:	SOSGE	PITHLP(P1)	;NOW FIND NEXT HIGHEST IN PROGRESS
	JRST	DEBR.2		;THIS WAS THE LAST, PITHLP IS NOW BACK TO -1
	SKIPN	-1(P4)		;IS THIS LEVEL IN PROGRESS
	SOJA	P4,DEBR.1	;NO, KEEP LOOKING
DEBR.2:	MOVSI	T3,(SI.DBK)	;SYSTEM OFF UNTIL DEBRK.
	ANDCAM	T3,JBTPIA##(J)	;THIS WAS THE DEBRK.
>
	TLNN	T1,(PS.VDS)	;DISMISS OTHERS
	POPJ	P,		;NO, RETURN, CATCH NEW INTERRUPTS AT UUOXIT
	HRRZ	P2,P2		;GET CONDITION NUMBER OR DDB ADDRESS
	CAIGE	P2,C$MIN	;CONDITION OR DEVICE
	JRST	DEBR.3		;YES, GO IF A DEVICE CONDITION
	MOVSI	T1,(1B0)	;GET A BIT
	LSH	T1,(P2)		;POSITION IT CORRECTLY
	TRNE	T1,JBIBIT	;IF THIS IS CROSS JOB INTERRUPT
	SETZM	PITST2(P1)	;CLEAR PIJBI. UUO INTERLOCK
	ANDCAM	T1,PITPND(P1)	;CLEAR THE PENDING BIT
	POPJ	P,		;RETURN
DEBR.3:	HLRZ	F,PITCHN(P1)	;GET HEAD OF PSI DDBS
DEBR.4:	JUMPE	F,CPOPJ##	;RETURN WHEN OUT OF DDBS
	CAMN	P2,F		;THIS THE ONE WE'RE LOOKING FOR
	JRST	[HLLZS DEVPSI(F) ;YES, CLEAR PENDING BITS
		 POPJ P,]	;AND RETURN
	HLRZ	F,DEVESE(F)	;STEP TO THE NEXT ONE
	JRST	DEBR.4		;TRY THE NEXT

;HERE TO ADJUST PC FOR EXTENDED ADDRESSING
DEBRPC:
IFN PSIMPI,<
	PUSH	P,T1		;SAVE A BASE REGISTER
	MOVE	T1,P4		;BEFORE WE CLOBBER IT
>
	MOVE	P4,P3		;COPY PC FOR DOUBLEWORD
	TLNN	P1,(SI.UEA)	;EXTENDED USER?
	JRST	DEBRP1		;NO, HANDLE OTHER WAY
IFE PSIMPI,<
	HLLZ	P3,PITCIC(P1)	;GET FLAGS FROM STORAGE
	POPJ	P,		;AND RETURN ALL FIXED UP
>
IFN PSIMPI,<
	HLLZ	P3,PITCIC-PITCIB(T1)	;GET FLAGS FROM RIGHT LEVEL BLOCK
	JRST	TPOPJ##		;RETURN DOUBLEWORD PC
>
DEBRP1:	TRZ	P3,-1		;CLEAR JUNK
	HLL	P4,T4		;STAY IN SAME SECTION
IFE PSIMPI,<POPJ P,>		;RETURN DOUBLEWORD PC
IFN PSIMPI,<JRST TPOPJ##>	;RETURN DOUBLEWORD PC
SUBTTL	UUOCON INTERFACE -- PIJBI.

;CALL TO INTERRUPT ANOTHER JOB AND GIVE STATUS
;CALL WITH:
;	MOVE	AC,[XWD JCH TO INTERRUPT,STATUS TO GIVE]
;	PIJBI.	AC,
;	  HERE ON AN ERROR
;	HERE WHEN INTERRUPT HAS BEEN POSTED FOR THE JOB
;
;JOB NUMBER OF -1 IS INTERRUPT YOURSELF, UUO WILL FAIL (ERROR 1) IF THE JOB
;	ALREADY HAS ONE PENDING, CALLER MUST TRY AGAIN, CAN'T JUST LET IT
;	STACK SINCE YOU WILL LOSE STATUS (ONLY 1 PLACE TO STORE IT)

PIJOB::	PUSHJ	P,SAVE1##	;PLACE TO SAVE ARGUMENT
	MOVE	P1,T1		;SAVE IT
	HLRZ	T1,P1		;GET JUST HANDLE TO INTERRUPT
	CAIN	T1,-1		;SELF POINTER?
	MOVE	T1,J		;YES, USE JOB NUMBER
	MOVE	T4,T1		;SAVE CONTEXT TO INTERRUPT
	TRNE	T4,CTXMSK##	;CONTEXT NUMBER GIVEN?
	PUSHJ	P,CTXJCJ##	;YES, GET CURRENT HANDLE FROM CTXSER
	  MOVE	T1,J		;NO, DON'T INCLUDE IT IN STATUS
	HRL	P1,T1		;PUT HANDLE INTO STATUS WORD
	MOVE	T1,T4		;GET TARGET AGAIN
	PUSHJ	P,CTXPSI##	;GET PIT FROM CTXSER
	  JRST	ECOD0##		;(0) ILLEGAL JOB NUMBER
	JUMPE	T2,ECOD0##	;(0) NOT ENABLED FOR INTERRUPT
	MOVEI	T3,JBIBIT	;BIT FOR ENABLED THIS TYPE OF INTERRUPT
	TDNN	T3,PITENB(T2)	;YES, USER ENABLED FOR CROSS JOB INTERRUPTS
	JRST	ECOD0##		;(0) NOT ENABLED FOR INTERRUPT
	UUOLOK			;PREVENT RACES WITH OTHER CPUS
	SKIPN	T3,PITST2(T2)	;TARGET ALREADY HAVE ONE PENDING
	MOVEM	P1,PITST2(T2)	;NO, GIVE HIM THIS ONE
	UUONLK			;ALLOW OTHER CPUS BACK IN NOW
	JUMPN	T3,ECOD1##	;(1) TARGET IS BUSY, TRY LATER
	MOVE	J,T4		;GET HANDLE INTO J FOR SIGNAL
	SIGNAL	C$JBI		;CAUSE THE INTERRUPT
	  JRST	ECOD0##		;(0) REALLY OUGHT TO STOPCD HERE SINCE JUST CHECKED
	JRST	CPOPJ1##	;GIVE GOOD RETURN TO CALLER
SUBTTL	UUOCON INTERFACE -- PITMR.

;CALL TO INTERRUPT THE CURRENT JOB WHEN SPECIFIED TIMER EXPIRES
;CALL WITH:
;	MOVE	AC,[XWD FLAGS,INTERVAL]
;	PITMR.	AC,
;	  HERE ON AN ERROR
;	HERE WHEN TIMER REQUEST HAS BEEN ENTERED
;FLAG BITS:
;	1B0	ON =  INTERVAL IS IN MILLISECONDS (BETTER RESOLUTION)
;		OFF = INTERVAL IS IN SECONDS (LONGER REQUESTS AVAILABLE)

PITMR::	MOVSI	T2,(TMRBIT)	;BIT FOR ENABLED THIS TYPE OF INTERRUPT
	SKIPE	T3,JBTPIA##(J)	;JOB USING PSISER
	TDNN	T2,PITENB(T3)	;YES, USER ENABLED FOR TIMER INTERRUPTS
	JRST	ECOD0##		;(0) NOT ENABLED FOR INTERRUPT
	TLNE	T1,377777	;ONLY 1 FLAG BIT DEFINED AT THE MOMENT
	JRST	ECOD1##		;(1) UNIMPLEMENTED BIT IS SET
	TLZN	T1,(1B0)	;ALREADY IN MILLISECONDS
	IMULI	T1,^D1000	;NO, GET IT THERE
	IMUL	T1,TICSEC##	;CONVERT FROM MILISECONDS
	IDIVI	T1,^D1000	; TO JIFFIES
	SKIPE	T1		;REQUEST FOR 0 TIME BECOMES 1 TICK
	SKIPE	T2		;ANY REMAINDER
	AOS	T1		;YES, ROUND UP TO FULL JIFFY
	TLNE	T1,-1		;ONLY 18 BITS IN THE CLOCK REQUEST QUEUE
	MOVEI	T1,-1		;SO ROUND DOWN TO MAXIMUM TIMER
	HRLI	T1,PSITMR	;WHERE TO GO WHEN IT EXPIRES
	PUSH	P,T1		;SAVE FROM CTXSER
	PUSHJ	P,CTXJCJ##	;GET HANDLE TO INTERRUPT FROM CTXSER
	  JFCL			;CAN'T FAIL
	POP	P,T2		;CLKCHG WANTS STATUS IN T2
	PUSHJ	P,CLKCHG##	;FIND, MODIFY ANY PREVIOUS PITMR. CALLS
	  CAIA			;NONE, ADD A NEW ONE
	JRST	CPOPJ1##	;GIVE GOOD RETURN TO UUO
	PUSH	P,T1		;SAVE FROM CTXSER
	PUSHJ	P,CTXJCJ##	;GET HANDLE AGAIN
	  JFCL			;CAN'T FAIL
	POP	P,T2		;GET CLKCHG VALUE BACK
	SYSPIF			;2 WORDS PER ENTRY
	IDPB	T2,CLOCK##	;STORE ADDRESS AND INTERVAL
	IDPB	T1,CLOCK##	;DATA ITEM IS THE CONTEXT HANDLE
	SETOM	CLKNEW##	;MARK A NEW ENTRY IN THE SYSTEM QUEUE
	SYSPIN			;DONE STORING
	JRST	CPOPJ1##	;GIVE GOOD RETURN TO UUO

;HERE WHEN THE TIMER SET BY PITMR. EXPIRES, INTERRUPT THE JOB

PSITMR:	PUSHJ	P,CTXPSI##	;GET PIT FOR CONTEXT
	  POPJ	P,		;WENT AWAY
	JUMPE	T2,CPOPJ##	;GO AWAY IF NOT STILL USING PSISER
	PUSH	P,J		;SAVE FOR CALLER
	MOVE	J,T1		;GET JCH WHERE IT BELONGS
	SIGNAL	C$TMR		;CAUSE THE INTERRUPT
	  JFCL			;IGNORE FAIL RETURN
	JRST	JPOPJ##		;RETURN TO CLOCK1
SUBTTL UUOCON INTERFACE -- PIBLK.

;CALL TO RETURN USER INTERRUPT BLOCK ADDRESS FOR INTERRUPT IN PROGRESS
;CALL WITH:
;	PIBLK.	AC,
;	  HERE IF NOT INITIALIZED OR NONE IN PROGRESS
;	HERE WITH AC CONTAINING ADDRESS OF INTERRUPT BLOCK

PIBLK::	PUSHJ	P,SAVE2##	;SAVE A FEW FIRST
	SKIPN	P1,JBTPIA##(J)	;GET ADDRESS OF PI TABLE
	  PJRST	RTZER##		;ERROR RETURN, NOT INITIALIZED
IFN PSIMPI,<SKIPGE P2,PITHLP(P1)>;GET HIGHEST LEVEL IN PROGRESS
IFE PSIMPI,<SKIPN T1,PITCIB(P1)>;GET INT BLOCK ADDRESS
	  PJRST	ECOD1##		;ERROR RETURN, NO PI IN PROGRESS
IFN PSIMPI,<
	ADDI	P2,PITCIB(P1)	;POINT TO PITCIB FOR LEVEL IN PROGRESS
	MOVE	T1,0(P2)	;AND GET INT BLOCK ADDRESS
>;END IFN PSIMPI
	JRST	STOTC1##	;GIVE GOOD RETURN WITH BLOCK ADDRESS
SUBTTL	UUOCON INTERFACE -- PIFLG. UUO

;CALL TO SET OR READ FLAGS FOR INTERRUPTED PC FOR A USER TAKING INTERRUPTS
;	IN A MULTI-SECTION ENVIRONMENT
;CALL WITH:
;	SETZ	AC,		;TO READ FLAGS
;		-OR-
;	MOVE	AC,[FLAGS,,1]	;TO WRITE FLAGS
;		-THEN-
;	PIFLG.	AC,
;	  HERE IF NOT EXTENDED USER OR NO INTERRUPT IN PROGRESS
;	HERE WITH AC CONTAINING THE PC FLAGS

;PIFLG. ERROR CODES

PSFNI%==0	;PSI SYSTEM NOT INITIALIZED
PSFNP%==1	;NO INTERRUPT IN PROGRESS
PSFEA%==2	;NOT USING EXTENDED ADDRESSING FORMAT FOR PI SYSTEM
PSFIF%==3	;ILLEGAL FUNCTION CODE

ERCODE	ERRFNI,PSFNI%
ERCODE	ERRFNP,PSFNP%
ERCODE	ERRFEA,PSFEA%
ERCODE	ERRFIF,PSFIF%

PIFLG::	HRRZ	T4,T1		;EXTRACT FUNCTION CODE FROM USER'S ARGUMENT
	CAIL	T4,FLGTBL	;WITHIN RANGE OF DISPATCH TABLE?
	JRST	ERRFIF		;ILLEGAL FUNCTION CODE
	SKIPN	T2,JBTPIA##(J)	;GET PIT ADDRESS AND FLAGS
	JRST	ERRFNI		;NOT INITIALIZED
	TLNN	T2,(SI.UEA)	;EXTENDED USER?
	JRST	ERRFEA		;NOT INITIALIZED FOR EXTENDED ADDRESSING
IFE PSIMPI,<SKIPN PITCIB(T2)>	;SEE IF IN PROGRESS
IFN PSIMPI,<SKIPGE T3,PITHLP(T2)> ;GET HIGHEST LEVEL IN PROGRESS
	JRST	ERRFNP		;NO INTERRUPT IN PROGRESS
IFE PSIMPI,<MOVEI T3,PITCIC(T2)> ;POINT TO CURRENT FLAGS
IFN PSIMPI,<ADDI T3,PITCIC(T2)>	;POINT TO CURRENT FLAGS
	JRST	@FLGTAB(T4)	;FINISH BY FUNCTION-SPECIFIC ROUTINE

FLGTAB:	IFIW	FLGRED		;(0) READ FLAGS
	IFIW	FLGWRT		;(1) WRITE FLAGS
 FLGTBL==.-FLGTAB	;LENGTH OF TABLE

FLGWRT:	HLLM	T1,(T3)		;SET THE FLAGS AS REQUESTED
FLGRED:	HLLZ	T1,(T3)		;GET FLAGS,,0
	JRST	STOTC1##	;RETURN TO USER
SUBTTL	SUPPORT FOR THE SIGNAL MACRO  --  PSICND

;ROUTINE TO CAUSE A NON-DEVICE CONDITION
;CALL VIA THE SIGNAL MACRO
;	J  = JOB TO BE SIGNALLED
;	T1 = THE CONDITION ( NEGATIVE ) SET UP BY SIGNAL MACRO
;	T2 = STATUS IF NOT RECONSTRUCTABLE
;			C$DTC  = UNIVERSAL DATE/TIME OFFSET
;			C$WAKE = JOB NUMBER OF WAKER
;			C$QUE  = REQUEST ID (AND 1B0=1 IF ABORTING)
;			C$CTLC = 1B0 ON IF JOB WAS IN TI STATE
;RETURN	CPOPJ USER DOESN'T WANT THE TRAP
;	CPOPJ1 IF USER DOES (AND WE WOKE UP THE JOB)

PSICND::JUMPGE	T1,CPOPJ##	;ONLY NEGATIVE CONDITIONS HERE
	CAMGE	T1,[C$MIN]	;CONDITION TOO SMALL
	POPJ	P,		;BAD CONDITION
IFN FTXMON,<
	PUSHJ	P,SSEC0##	;MUST BE IN SECTION 0 HERE
>
	PUSHJ	P,SAVE4##	;SAVE A FEW FIRST
	PUSHJ	P,SAVJW##	;SIMILARLY
	DMOVE	P1,T1		;PRESERVE CONDITION & STATUS
	MOVE	T1,J		;GET JCH IN RIGHT REGISTER
	PUSHJ	P,CTXPSI##	;GET PIT FROM CTXSER
	  POPJ	P,		;NO SUCH JOB
	JUMPE	T2,CPOPJ##	;NOT USING PSISER
	MOVE	J,T1		;PUT JCH WHERE IT BELONGS
	MOVE	T1,P1		;RESTORE CONDITION
	MOVE	P1,T2		;GET PIT WORD WHERE WE WANT IT
	MOVE	T2,P2		;RESTORE STATUS
	PUSH	P,F		;SAVE F FOR CALLER
	MOVSI	F,(1B0)		;GET A BIT
	LSH	F,(T1)		;POSITION IT CORRECTLY
	TDNN	F,PITENB(P1)	;USER ENABLE FOR THIS INTERRUPT
	JRST	FPOPJ##		;NO, QUIT NOW
	TDNE	F,[IMBITS]	;IS THIS AN IMMEDIATE CONDITION
	JRST	PSIIMM		;YES, GO DIRECTLY TO GENERATOR
	TRNE	F,DTCBIT	;SET DATE/DAYTIME?
	ADDM	T2,PITST3(P1)	;YES, ACCUMULATE TIME OFFSET
	TRNE	F,QUEBIT	;ENQ/DEQ
	JRST	[SKIPGE	T2		;WERE ANY REQUESTS ABORTED?
		HRLI	T2,(PITQAB)	;YES, REMEMBER FOR LATER
		IORM	T2,PITSTS(P1)	;REMEMBER REQUEST ID
		JRST	.+1]
	TRNE	F,WAKBIT	;WAKE UUO.
	DPB	T2,[POINT 9,PITSTS(P1),17] ;YES, REMEMBER WAKING JOB
	TLNN	F,(CTCBIT)	;^C
	JRST	PSIAGN		;NO, GO POST INTERRUPT
	MOVSI	P2,(1B0)	;GET "FROM TI WAIT" BIT
	ANDCAM	P2,PITSTS(P1)	;CLEAR OLD STATUS
	IORM	T2,PITSTS(P1)	;SET NEW STATUS
	SKIPGE	T2		;FROM "TI" WAIT
	JRST	[DMOVE	P2,.JDAT+JOBPD1##	;YES, GET UUO PC
		 JRST	.+2]		;AND SKIP SAVED PC
	DMOVE	P2,USRPC##	;NO, GET SAVED PC
	TLNN	P2,USRMOD	;BETTER BE A USER PC
	DMOVE	P2,.JDAT+JOBPD1## ;GET LAST UUO PC
	PUSHJ	P,ISDDT		;USER IN DDT
	  JRST	FPOPJ##		;YES, LET CONTROL C STOP THE JOB
PSIAGN:	AOS	-1(P)		;USER WANTS INTERRUPT
PSIAG1:	TDNE	F,PITPND(P1)	;ALREADY HAVE THIS ONE PENDING
	JRST	PSIAG2		;YES, JUST WAKE THE JOB
	IORM	F,PITPND(P1)	;LIGHT ONE FOR THIS INTERRUPT
	AOS	PITNPI(P1)	;BUMP PENDING COUNT
PSIAG2:	POP	P,F		;DON'T NEED THIS ANY MORE
	JUMPGE	P1,CPOPJ##	;DON'T WAKE THE JOB IF PI OFF
	MOVE	T1,J		;COPY JCH
	PUSHJ	P,CTXVAL##	;VALIDATE IT
	  POPJ	P,		;CONTEXT WENT AWAY
	  TRZA	J,CTXMSK##	;CURRENT, SET FOR UUOCON
	  POPJ	P,		;NOT CURRENT, WE'LL CATCH IT AT ITS RESTORE
	PJRST	WAKEJB##	;WAKE JOB AND RETURN
;HERE WHEN A CONDITION MUST BE GRANTED IMMEDIATELY (APR STUFF)

PSIIMM:	JUMPGE	P1,FPOPJ##	;CANNOT GRANT IF PS IS OFF
	DMOVE	P3,T1		;SAVE CONDITION AND STATUS AGAIN
	MOVE	T1,J		;COPY JCH
	PUSHJ	P,CTXVAL##	;SEE IF CURRENT
	  JRST	FPOPJ##		;CONTEXT WENT AWAY
	  TRNA			;CURRENT IS OK
	  JRST	PSITLE		;CANNOT GRANT IF NOT CURRENT
	DMOVE	T1,P3		;RESTORE CONDITION AND STATUS
	TDNE	F,[PD1BIT]	;WHERE IS THE CURRENT PC
	JRST	[DMOVE	P2,.JDAT+JOBPD1##	;GET PC OF ALL UUOS
		 JRST	.+2]	;AND SKIP APR CONDITION PC
	DMOVE	P2,.CPPC##	;ALL OTHERS ARE APR CONDITIONS
	TLNN	P2,(XC.USR)	;PC IN USER MODE
	JRST	PSITLE		;NO, SEE IF TIME LIMIT EXCEEDED
IFE PSIMPI,<SKIPN PITCIB(P1)>	;ONE ALREADY IN PROGRESS
IFN PSIMPI,<TLNN P1,(SI.DBK)>	;SYSTEM TURNED OFF
	PUSHJ	P,ISPFH		;CHECK FOR USERS PFH
	  JRST	PSITLE		;CAN'T GRANT IT NOW
IFN PSIMPI,<
	PUSHJ	P,CNDLVL	;GET POINTER TO PRIORITY INFORMATION
	LDB	P4,P4		;GET LEVEL FOR CONDITION
	CAMG	P4,PITHLP(P1)	;HIGHER THAN ONE IN PROGRESS
	JRST	PSITLE		;NO, CAN'T GRANT IT NOW
>
	TDNE	F,PITMSG(P1)	;USER WANT STANDARD ERROR MESSAGE
	JRST	PSIMSG		;YES, REMEMBER THAT
	AOS	PITNPI(P1)	;KEEP THE COUNT STRAIGHT
	POP	P,F		;BALANCE STACK FOR CALLER
	PJRST	GENCND		;EXIT, CAUSING THE INTERRUPT

PSITLE:	TLNN	F,(TLEBIT)	;WAS THIS TIME LIMIT EXCEEDED
	JRST	FPOPJ##		;NO, IGNORE TRAP
	TDNN	F,PITMSG(P1)	;CALLER STANDARD MESSAGE
	JRST	PSIAGN		;NO, JUST POST IT
PSIMSG:	HLLOS	PITCHN(P1)	;MARK PRINTING A MESSAGE
	JRST	PSIAG1		;GO POST BUT GIVE DOESN'T WANT RETURN
;SUBROUTINE CALLED AFTER PRINTING THE STANDARD MESSAGE FOR A USER
;	J = JOB
;	PUSHJ	P,PSIERR
;	  HERE IF AT CLOCK LEVEL AND WANTS THE INTERRUPT
;	  HERE IF AT UUO LEVEL AND WANTS THE INTERRUPT
;	HERE IF TIME TO STOP THE JOB

PSIERR::SKIPGE	T1,JBTPIA##(J)	;GET BASE OF DATA
	HRL	T1,PITCHN(T1)	;GET FLAG THAT WE WERE PRINTING
	JUMPGE	T1,CPOPJ2##	;QUIT IF NOT PSIING OR NOT PRINTING
	HLLZS	PITCHN(T1)	;CLEAR FLAG
	HRRZ	T1,P		;FIND OUT IF UUO OR CLOCK LEVEL
	CAMLE	T1,LOCORE##	;CHECK STACK ADDRESS
	AOS	(P)		;IN JOBDAT, GIVE CPOPJ1 RETURN
	POPJ	P,		;RETURN TO INTERRUPT USER

;SUBROUTINE CALLED TO GRANT USER INDUCED ERROR IN JOB, I.E. THINGS NOT COVERED
;	BY SPECIFIC CONDITIONS LIKE PDLOVERFLOW, ETC..
;
;	J = JOB NUMBER
;	PUSHJ P,USREIJ
;	  RETURN HERE TO GRANT INTERRUPT
;	RETURN HERE TO STOP JOB ( PRINT MSG, AND MAYBE BACK THROUGH PSIERR )

USREIJ::MOVE	T1,[MSGBIT]	;GET CONDITIONS THAT HAVE ERROR MESSAGES
	SKIPE	T2,JBTPIA##(J)	;USER PSI'ING
	TDNE	T1,PITPND(T2)	;OR WERE WE JUST PRINTING A MESSAGE
	JRST	CPOPJ1##	;GO STOP THE JOB (OR RETURN THROUGH PSIERR)
	SIGNAL	C$UEIJ		;SIGNAL CONDITION
	  AOS	(P)		;DOESN'T WANT OR CAN'T GRANT, STOP THE JOB
	POPJ	P,		;RETURN
SUBTTL	SUPPORT FOR DEVICE RELATED CONDITIONS

;HERE FOR DEVICE RELATED TRAPS ALSO IN .JBINT (AND SOME THAT AREN'T)
;	T4 = .JBINT TYPE
;	F = DDB INVOLVED
;	PUSHJ	P,PSIJBI
;	  HERE IF USER WANTS INTERRUPT (AVOID .JBINT)
;		T3 = POSITIVE IF USER WANTS ERROR MESSAGE AS WELL
;	HERE IF USER DOESN'T WANT THE TRAP (TRY .JBINT,T4 STILL OK)

PSIJBI::PUSHJ	P,SAVE3##	;SAVE A FEW
	LDB	P2,PJOBN##	;GET JOB NUMBER
	MOVE	P2,JBTSTS##(P2)	;THEN STATUS OF JOB
	TRNE	P2,JS.ASA	;EXEC UUO IN PROGRESS
	JRST	CPOPJ1##	;YES, NO USER TO GIVE IT TO
	SETZ	P2,		;CLEAR INTERRUPT BITS
	CAIE	T4,.EROFL	;DISK OFF-LINE
	CAIN	T4,.ERIDV	;INTERVENTION REQUIRED
	MOVEI	P2,IR.DOL	;YES, DEVICE OFF-LINE TRAP
	CAIN	T4,.ERFUL	;DISK FULL
	MOVEI	P2,IR.DFL	;YES, SET TRAP
	CAIN	T4,.ERQEX	;QUOTA EXCEEDED
	MOVEI	P2,IR.QTE	;YES, SET TRAP
	CAIN	T4,'IDC'	;I/O TO DETACHED CPU
	MOVEI	P2,IR.IER!IR.OER!IR.DOL ;ERROR CONDITION
	PUSHJ	P,PSIDEV	;CALL SIGNALLER
	JUMPE	P3,CPOPJ1##	;RETURN IF NOT PSIING
	MOVE	T3,DEVPSI(P3)	;GET BITS FROM CORRECT DDB
	TLC	T3,(1B0)	;FLIP SO NEGATIVE IS "NO MESSAGE"
	POPJ	P,		;GO CLEAN UP AND GIVE INTERRUPT

;HERE JUST BEFORE AN INPUT OR OUTPUT RETURNS TO THE USER

PSIEDN::TLNN	S,IO		;DETERMINE DIRECTION OF THE IO
PSIIDN::SKIPA	T1,[IR.IER]	;INPUT ERROR
PSIODN::MOVEI	T1,IR.OER	;OUTPUT ERROR
	TRNE	S,IODEND	;END OF FILE?
	TRO	T1,IR.EOF	;YES, FLAG THAT CONDITION
	TRNN	S,IOBKTL!IODTER!IODERR!IOIMPM!IOTEND ;AND ERRORS LIT
	TRZ	T1,IR.IER!IR.OER;NO, DO NOT SIGNAL ERROR
	JRST	PSIDVB		;GO SIGNAL CONDITION

; HERE WHEN A REEL SWITCH OCCURS

PSIRSW::MOVEI	T1,IR.RSW	;FLAG THAT CONDITION
;	JRST	PSIDVB		;FALL INTO DEVICE BITS SET UP ROUTINE

;HERE WHEN CALLER ALREADY HAS DETERMINED WHAT TYPE OF INTERRUPT TO GIVE

PSIDVB::JUMPE	T1,CPOPJ##	;EXIT IF NOTHING HAPPENED
	PUSHJ	P,SAVE3##	;SAVE A FEW NOW
	HRRZ	P2,T1		;MOVE CONDITIONS
	JRST	PSIDEV		;ENTER COMMON CODE

;SUBROUTINE TO SIGNAL DOWN DEVICE

PSIDWN::PUSHJ	P,SAVE3##	;SAVE A FEW
	MOVEI	P2,IR.IER!IR.OER!IR.DOL ;SET INPUT ERR, OUTPUT ERR, OFF-LINE
	JRST	PSIDEV		;ENTER COMMON CODE
;SUBROUTINE TO SIGNAL DEVICE ON-LINE

PSIONL::PUSHJ	P,SAVE3##	;SAVE A FEW
	MOVEI	P2,IR.ONL	;DEVICE ON-LINE
	JRST	PSIDEV		;ENTER COMMON CODE

;SUBROUTINE TO SIGNAL INPUT AVAILABLE

PSIAVL::PUSHJ	P,SAVE3##	;SAVE A FEW
	MOVEI	P2,IR.IAL	;INPUT AVAILABLE
	JRST	PSIDEV		;ENTER COMMON CODE

;SUBROUTINE TO SIGNAL INPUT/OUTPUT DONE INTERRUPTS
;CALLED BY SETIOD

PSIIOD::PUSHJ	P,SAVE3##	;SAVE A FEW
	TLNN	S,IO		;GET THE DIRECTION OF THE IO
	SKIPA	P2,[IR.IND]	;INPUT
	MOVEI	P2,IR.OUD	;OUTPUT
;	JRST	PSIDEV		;FALL INTO COMMON CODE

;ROUTINE CALLED BY THE ABOVE SIGNALLERS TO CAUSE A DEVICE RELEATED INTERRUPT
;RETURNS P3 = 0 OR DDB USED (USEFUL ONLY TO PSIJBI)

PSIDEV:
IFN FTXMON,<
	PUSHJ	P,SSEC0##		;MUST RUN ONLY IN SECTION 0
>
	HLRZ	P3,DEVPSI(F)	;GET ENABLED FOR DEVICE
IFN FTMPXSER,<
	JUMPN	P3,PSIDV1	;JUMP IF NOT MPX
	MOVEI	P1,DEPMSG	;NOT USING THE DEVICE ITSELF
	TDNN	P1,DEVMSG(F)	;TRY THE MPX CONTROLLING
	POPJ	P,		;NOT MPX'ED, IGNORE INTERRUPT
	PUSH	P,F		;SAVE ORIGINAL F
	HRRZ	F,DEVXTR(F)	;STEP TO MPX DDB
	HLRZ	P3,DEVPSI(F)	;GET BITS FOR THE MPX
	JUMPE	P3,FPOPJ##	;IGNORE IF NOT PSI'ING
	PUSH	P,[CAIA FPOPJ##] ;STACK RESTORE RETURN
PSIDV1:
>; END FTMPXSER
	AND	P2,P3		;MASK DOWN TO ENABLED BITS
	SETZ	P3,		;CLEAR IN CASE WE RETURN
	JUMPE	P2,CPOPJ##	;RETURN IF NOT ENABLED
	PUSH	P,T1		;SAVE SOME
	PUSH	P,T2		;VOLATILE REGISTERS
	LDB	T1,PJCHN##	;GET JCH OWNING DEVICE
	PUSHJ	P,CTXPSI##	;JOB USING PSISER?
	  JRST	TTPOPJ##	;NO SUCH JCH
	SKIPN	P1,T2		;GET JBTPIA IN RIGHT REGISTER
	JRST	TTPOPJ##	;NOT USING PI SYSTEM
	SETCM	P3,DEVPSI(F)	;GET WHAT'S NOT LIT
	TRNN	P3,(P2)		;ALREADY HAVE THESE CONDITIONS
	JRST	PSIDV2		;YES, BITS AND COUNTS ARE RIGHT
	SETCMI	P3,(P2)		;P3=NOT WHAT WE ARE SETTING
	IORB	P2,DEVPSI(F)	;LIGHT NEW CONDITIONS, GET EVERYTHING
	TRNN	P2,(P3)		;ANY OTHERS ALREADY PENDING
	AOS	PITNPI(P1)	;NO, BUMP PENDING COUNT
PSIDV2:	MOVE	P3,F		;RETURN DDB ACTUALLY USED
	JUMPGE	P1,TTPOPJ##	;DON'T WAKE IF PI OFF
	PUSHJ	P,CTXVAL##	;IS THIS THE CURRENT CONTEXT FOR THE JOB?
	  JRST	TTPOPJ##	;CONTEXT WENT AWAY
	  TRNA			;YES, KEEP GOING
	  JRST	TTPOPJ##	;DON'T WAKE IT IF NOT CURRENT
	PUSH	P,J		;SAVE JOB FOR CALLER
	LDB	J,PJOBN##	;GET JOB OF DDB
	PUSHJ	P,WAKEJB##	;WAKE THE JOB
	POP	P,J		;RESTORE
	JRST	TTPOPJ##	;RESTORE CALLER'S T1 AND T2 AND RETURN
SUBTTL	GRANT AN INTERRUPT TO A RUNNING USER

;CALLED BY UUOCON OR CLOCK1 TO GRANT AN INTERRUPT FOR A USER
;	J = JOB NUMBER
;	XCT	PINOJN		;SKIP IF CANNOT GRANT INTERRUPT
;	PUSHJ	P,PSIGEN##	;CAN, GIVE AN INTERRUPT
;
;ALWAYS CPOPJ RETURN

PSIGEN::SKIPG	@JBTPIA##(J)	;ARE THERE ANY PENDING INTERRUPTS
	POPJ	P,		;NO, GET OUT NOW
	PUSHJ	P,SAVE4##	;SAVE A FEW FIRST
	SKIPGE	P1,JBTPIA##(J)	;GET DATA BASE
IFN PSIMPI,<TLNE P1,(SI.DBK)>	;SYSTEM OFF UNTIL DEBRK.
IFE PSIMPI,<SKIPE PITCIB(P1)>	;ALREADY ONE IN PROGRESS
	POPJ	P,		;CANNOT GRANT INTERRUPT NOW
	HRRZ	P2,-5(P)	; ***** GET CALLERS PC
	CAIN	P2,CIPPSI##	;FROM CLOCK1
	JRST	[DMOVE	P2,.CPPC## ;YES, GET CURRENT PC
		 JRST	.+2]	;AND SKIP
	DMOVE	P2,.JDAT+JOBPD1## ;NO, GET UUO RETURN PC
	TLNN	P2,(XC.USR)	;BETTER BE A USER MODE PC HERE
	POPJ	P,		;DEFER UNTIL USER GETS OUT
	PUSHJ	P,VALPC		;VALIDITY CHECK THE PC
	  POPJ	P,		;ILLEGAL (MESSAGE ALREADY TYPED)
PSIGN1:	PUSHJ	P,ISPFH		;CHECK IF IN PFH OR DDT
	  POPJ	P,		;DEFER UNTIL USER GETS OUT
	HLRZ	T1,PITIVA(P1)	;GET VECTOR EXTENT
	ANDI	T1,(SECMSK)	;JUST ITS SECTION NUMBER
	PUSHJ	P,SVPCS##	;DO THINGS TO THE RIGHT SECTION
	PUSHJ	P,GENINT	;CAUSE INT
	  JFCL			;NONE TO GIVE
	POPJ	P,		;RETURN
;SUBROUTINE TO ACTUALLY GRANT THE INTERRUPT, CALLED BY PSIGEN AND PSIIMM
;CALL WITH:
;	P1 = ADDRESS OF PSI DATA BASE
;	P2-P3 = CURRENT USER MODE PC DOUBLEWORD
;ENTER AT GENCND WITH T1 ALREADY SET UP AS CONDITION TO GIVE (PSIIMM)
;	CPOPJ	CAN'T GIVE THE INTERRUPT
;	CPOPJ1	DID, USER IS OFF AND RUNNING

GENINT:	PUSHJ	P,GENNXT	;HERE WHEN WE DON'T KNOW WHAT'S NEXT, GO FIND IT
	  POPJ	P,		;NONE TO GIVE OR LOWER LEVELS WAITING FOR DEBRK.
	SKIPL	T1		;DEVICE OR CONDITION INTERRUPT
	SKIPA	P4,[POINT CNDSIZ,DEVESE(F),26] ;DEVICE, GET POINTER TO OFFSET
GENCND:	PUSHJ	P,CNDPTR	;GET POINTER FOR OFFSET
	LDB	P4,P4		;GET OFFSET PROPER
	LSH	P4,2		;BACK TO 4 WORD BLOCKS
	ADD	P4,PITIVA(P1)	;PLUS VECTOR BASE
	TLZ	P4,^-<(SECMSK)>	;CLEAR EXTRANEOUS BITS
IFN FTXMON,<
	PUSHJ	P,SAVR##	;NEED ANOTHER REGISTER
	MOVE	R,T1		;PRESERVE CONDITION
	HLRZ	T1,P4		;GET SECTION FOR VECTOR
	PUSHJ	P,SVPCS##	;SET FOR PXCT AND FLTST
	MOVE	T1,R		;RESTORE INTERRUPT REASON
> ;END OF IFN FTXMON
	PUSH	P,J		;SAVE J
	ANDI	J,JOBMSK##	;GET ONLY JOB #
	PUSHJ	P,VALVEC	;VALIDATE THE ADDRESS
	  JRST	JPOPJ##		;INVALID, GAVE ERROR
	PUSHJ	P,PCSTOR	;STORE INTERRUPTED PC FOR USER
	TLNE	P1,(SI.UEA)	;EXTENDED USER?
	EXCTUX	<SKIPA P3,.PSVNP(P4)> ;GET NEW PC FOR INTERRUPT (WITH SECTION)
	EXCTUX	<HRR P3,.PSVNP(P4)> ;GET NEW PC FOR INTERRUPT (IN SECTION)
	TLZ	P2,(<-1,,0>-<XC.USR!XC.UIO!IFE FTKS10,<XC.PUB>>) ;CLEAR ALL BUT THESE
	MOVSI	T2,(XC.USR)	;GET USER MODE BIT
	TDNE	T2,.JDAT+JOBPD1## ;A USER PC IN JOBDAT
	DMOVEM	P2,.JDAT+JOBPD1## ;YES, STORE FOR UUO DISMISS
	DMOVEM	P2,.CPPC##	;STORE FOR CLOCK1
	EXCTUX	<MOVE P3,.PSVFL(P4)> ;GET CONTROL FLAGS
	MOVSI	T2,(SI.ON)	;PI SYSTEM ON
	TLNE	P3,(PS.VPO)	;USER WANT IT TURNED OFF
	ANDCAM	T2,JBTPIA##(J)	;YES, TURN IT OFF TILL PISYS.
IFN PSIMPI,<
	MOVSI	T2,(SI.DBK)	;OFF UNTIL DEBRK
	TLNE	P3,(PS.VTO)	;USER WANT IT DONE
	IORM	T2,JBTPIA##(J)	;YES, MARK WAITING FOR DEBRK.
	PUSH	P,P4		;SAVE USERS ADDRESS A MOMENT
	CAML	T1,[C$MIN]	;DEVICE OR CONDITION
	SKIPL	T1		; ..
	SKIPA	P4,[POINT 2,DEVESE(F),19] ;DEVICE, POINT TO PRIORITY INFORMATION
	PUSHJ	P,CNDLVL	;CONDITION, GET POINTER TO PRIORITY
	LDB	T2,P4		;GET IT
	POP	P,P4		;RESTORE USERS BLOCK ADDRESS
	MOVEM	T2,PITHLP(P1)	;STORE LEVEL IN PROGRESS
	ADDI	T2,PITCIB(P1)	;POINT TO CORRECT "IN PROGRESS" BLOCK
>
IFE PSIMPI,<MOVEI T2,PITCIB(P1)> ;POINT TO ONLY CURRENT BLOCK
	MOVEM	P4,0(T2)	;STORE CURRENT INTERRUPT BLOCK
	HRR	P2,T1		;GET PC FLAGS,,CONDITION
	MOVEM	P2,PITCIC-PITCIB(T2)	;STORE CONDITION AND FLAGS
	EXCTUU	<HRRM T1,.PSVFL(P4)> ;STORE REASONS OR CONDITION FOR USER
	CAML	T1,[C$MIN]	;DEVICE OR CONDITION
	SKIPL	T1		; ..
	JRST	[SETZ T1,	;CLEAR T1 FOR STATUS DISPATCH
		 HRRM F,PITCIC-PITCIB(T2)	;STORE REAL CURRENT CONDITION (DDB)
		 JRST .+1]	;RETURN INLINE
	XCT	LDSTS(T1)	;LOAD STATUS WORD FOR USER
	EXCTUU	<MOVEM T2,.PSVIS(P4)> ;STORE STATUS WORD
	MOVE	T2,[WTMASK+JERR+CNTRLC,,JS.MPE+JS.DPM+UTRP]
	ANDCAM	T2,JBTSTS##(J)	;CLEAR ALL ERROR CONDITIONS
	SOS	PITNPI(P1)	;ONE LESS PENDING INTERRUPT
	JRST	JPOPJ1##	;RETURN
;SUBROUTINE TO STORE THE INTERRUPT-FROM PC FOR GENINT
;CALL WITH:
;	P1 = PIT POINTER
;	P2-P3 = USER'S PC DOUBLEWORD
;	P4 = START OF BLOCK IN USER'S VECTOR FOR THIS CONDITION
;RETURNS:
;	CPOPJ ALWAYS, WITH THE PC STORED IN THE USER'S INTERRUPT VECTOR

PCSTOR:	TLNN	P1,(SI.UEA)	;EXTENDED USER?
	JRST	PCSTO1		;NO, DO IT THE OTHER WAY
	EXCTXU	<MOVEM P3,.PSVOP(P4)> ;STORE 30-BIT ADDRESS FROM PC FOR USER
	POPJ	P,		;RETURN TO GENINT
PCSTO1:	HRR	P2,P3		;GET SECTION-ZERO STYLE PC
	EXCTXU	<MOVEM P2,.PSVOP(P4)> ;STORE OLD-STYLE PC FOR USER
	TRZ	P2,-1		;CLEAR TRASH
	POPJ	P,		;RETURN TO GENINT
;SUBROUTINE TO FIGURE OUT WHICH INTERRUPT TO GIVE NOW
;CALL WITH:
;	P1 = ADDRESS OF PSI DATA BASE
;	P2-P3 = USERS PC ( FYI, WE REALLY LEAVE IT ALONE HERE )
;RETURNS:
;	CPOPJ IF NONE TO GIVE NOW (MAYBE PRIORITIES)
;	CPOPJ1 WITH THE FOLLOWING
;	T1 = CONDITION NUMBER OR DEVICE BITS TO CAUSE
;	F = DDB USED IF T1 IS DEVICE BITS, ELSE INDETERMINATE (READ WIPED)
;WIPES T2,T3,T4 AND P4

;*** OF SPECIAL NOTE, THERE ARE 2 COPIES OF THIS ROUTINE UNDER CONDITIONALS
;	FOR NUMBER OF PRIORITY LEVELS, ANY CHANGES TO ONE BETTER BE LOOKED AT
;	FOR THE OTHER LEAST SOMEBODY FLIPPING CONDITIONAL WILL GET IT.

IFE PSIMPI,<			;FIRST THE ONE FOR NO LEVELS, ITS EASIER
GENNXT:	SKIPN	T1,PITPND(P1)	;ANY NON-DEVICE PENDING
	JRST	GENDEV		;NO, TRY DEVICE CHAIN
	JFFO	T1,.+1		;YES, DETERMINE CONDITION
	MOVN	T1,T2		;GET CONDITION NUMBER
	MOVE	T2,BITTBL##(T2)	;GET BIT FOR THIS CONDITION
	ANDCAM	T2,PITPND(P1)	;NO LONGER PENDING
	JRST	CPOPJ1##	;AND RETURN WITH IT
GENDEV:	HLRZ	F,PITCHN(P1)	;POINT TO FIRST DDB
GEND.1:	JUMPE	F,[SOSG PITNPI(P1) ;COUNT WAS TOO HIGH
		   POPJ P,	;BUT IT'S RIGHT NOW
		   JRST GENNXT]	;LOOK AGAIN IF STILL UP
	HLLZ	T1,DEVPSI(F)	;GET CURRENT ENABLED BITS
	EXCH	T1,DEVPSI(F)	;GET PENDING CONDITIONS, CLEAR THEM
	TLZ	T1,-1		;CLEAR ENABLED BITS
	JUMPN	T1,CPOPJ1##	;USE IT IF ANY INTERRUPTS PENDING
	HLRZ	F,DEVESE(P3)	;STEP TO NEXT DDB
	JRST	GEND.1		;LOOP FOR ALL PSI'ED DDBS
>

IFN PSIMPI,<			;NOW FOR MULTIPLE LEVELS, ITS HARDER
GENNXT:	MOVE	T4,PITHLP(P1)	;GET HIGHEST LEVEL IN PROGRESS
	CAIN	T4,PSIMPI	;QUICK CHECK FOR HIGHEST POSSIBLE
	POPJ	P,		;WOULDN'T FIND ONE HIGHER ANYWAY
	SETZ	F,		;CLEAR BEST SO FAR
	MOVE	T3,PITPND(P1)	;GET NON-DEVICE PENDING
GENN.1:	SKIPN	T1,T3		;ANY WE HAVEN'T LOOKED AT YET
	JRST	GENDEV		;NO, TRY DEVICE CHAIN
	JFFO	T1,.+1		;YES, DETERMINE CONDITION
	MOVN	T1,T2		;GET CONDITION NUMBER
	TDZ	T3,BITTBL##(T2)	;DON'T LOOK AT THIS CONDITION AGAIN
	PUSHJ	P,CNDLVL	;COMPUTE LEVEL POINTER
	LDB	P4,P4		;GET PRIORITY OF THIS CONDITION
	CAMG	P4,T4		;HIGHER THAN BEST SO FAR
	JRST	GENN.1		;NO, LOOK SOME MORE
	MOVE	F,T1		;WHICH ONE IT IS
	CAIN	P4,PSIMPI	;QUICK CHECK, HIGHEST POSSIBLE
	JRST	GENW.1		;CAN'T GET ANY BETTER, STOP NOW
	MOVE	T4,P4		;COPY HIGHEST PRIORITY FOUND SO FAR
	JUMPN	T3,GENN.1	;LOOK FOR MAYBE A BETTER ONE
GENDEV:	HLRZ	T1,PITCHN(P1)	;POINT TO FIRST DDB
	JUMPE	T1,GENWAT	;LAST DDB, FIGURE OUT WHAT HAPPENED
GEND.1:	HRRZ	T2,DEVPSI(T1)	;GET CURRENT PENDING BITS
	JUMPE	T2,GEND.2	;TRY ANOTHER IF NONE PENDING
	LDB	T3,[POINT 2,DEVESE(T1),19] ;GET PRIORITY OF THIS DDB
	CAMG	T3,T4		;BEST SO FAR
	JRST	GEND.2		;NO, TRY ANOTHER
	MOVE	F,T1		;WHICH DDB HAS IT
	CAIN	T3,PSIMPI	;SAME QUICK CHECK AS ABOVE
	JRST	GENW.2		;...
	MOVE	T4,T3		;REMEMBER HIGHEST LEVEL SO FAR
GEND.2:	HLRZ	T1,DEVESE(T1)	;STEP TO NEXT PSI DDB
	JUMPN	T1,GEND.1	;AND TAKE A LOOK AT IT

;HERE WHEN ALL DONE LOOKING, F=BEST SO FAR, T4=IMPORTANT ONLY IF F = 0

GENWAT:	JUMPE	F,[JUMPGE T4,CPOPJ## ;NONE FOUND, OK IF BECAUSE OF PRIORITIES
		    SOSG PITNPI(P1) ;PENDING COUNT WAS TOO HIGH
		    POPJ P,	;BUT ITS OK NOW
		    JRST GENNXT] ;DO THIS ALL OVER AGAIN IF COUNT IS STILL UP
	SKIPL	T1,F		;A DDB OR CONDITION FOUND
	JRST	GENW.2		;A DDB, GO CLEAR PENDING BITS
GENW.1:	MOVSI	T2,(1B0)	;GET A BIT
	LSH	T2,(T1)		;POSITION IT CORRECTLY
	ANDCAM	T2,PITPND(P1)	;NO LONGER PENDING
	JRST	CPOPJ1##	;AND RETURN TO GIVE THE INTERRUPT
GENW.2:	HLLZ	T1,DEVPSI(F)	;GET ENABLED CONDITIONS FROM DDB
	EXCH	T1,DEVPSI(F)	;LEAVE THEM ALONE, GET SIGNALLED CONDITIONS
	TLZ	T1,-1		;CLEAR JUNK FROM LEFT HALF
	JRST	CPOPJ1##	;RETURN WITH F = DDB, T1 = DEVICE BITS
>
;TABLE EXECUTED DURING PSIGEN TO FETCH THE CORRECT STATUS WORD
;	FOR THE CONDITION ABOUT TO BE GRANTED.
;	CONDITIONS ARE NEGATIVE.. THIS TABLE GOES BACKWARDS..

	PUSHJ	P,LATPSI##	;(-40) LAT EVENT
	PUSHJ	P,LLMPSI##	;(-37) LLMOP EVENT
	PUSHJ	P,ENTPSI##	;(-36) ETHERNET EVENT
	PUSHJ	P,SCSPSI##	;(-35) SCS EVENT
	SETZ	T2,		;(-34) RESERVED TO CUSTOMER
	SETZ	T2,		;(-33) RESERVED TO CUSTOMER
	PUSHJ	P,NXTOOB##	;(-32) OUT-OF-BAND CHARACTER
	PUSHJ	P,GETDTC	;(-31) DATE/TIME CHANGED
	PUSHJ	P,GETJBI	;(-30) CROSS JOB INTERRUPTS
	SETZ	T2,		;(-27) NETWORK TOPOLOGY CHANGE
	PUSHJ	P,GETQUE	;(-26) ENQ/DEQ
	MOVEI	T2,DR.EVT	;(-25) DECNET EVENT
	PUSHJ	P,STRSIG##	;(-24) IPCF
	SETZ	T2,		;(-23) ADDRESS BREAK
	LDB	T2,[POINT 9,PITSTS(P1),17] ;(-22) WAKE UUO
	PUSHJ	P,GETATC	;(-21) DETACH/ATTACH
	SETZ	T2,		;(-20) DATASET STATUS CHANGE
	MOVE	T2,SYSKTM##	;(-17) KSYS WARNING
	SETZ	T2,		;(-16) EXTERNAL ERROR IN JOB
	SETZ	T2,		;(-15) USER INDUCED ERROR IN JOB
	MOVE	T2,DATE##	;(-14) APR CLOCK TICK
	SETZ	T2,		;(-13) NON-EX MEM
	PUSHJ	P,[IFE FTXMON,<DNCALL (SCTPSI##)>
		   IFN FTXMON,<SNCALL (SCTPSI##,MS.HGH)>
		   POPJ P,]	;(-12) DECNET NSP UUOS
	SETZ	T2,		;(-11) PDL OVERFLOW
	SETZ	T2,		;(-10) APR CONDITIONS
	MOVE	T2,DEVNAM(F)	;(-7) ADDRESS CHECK
	LDB	T2,[POINT 23,.USPFW,35] ;(-6) ILL MEM REF
	PUSHJ	P,GETUUO	;(-5) ILLEGAL UUO
	PUSHJ	P,GETUUO	;(-4) ANY UUO

	PUSHJ	P,GETIOW	;(-3) ^C
	MOVE	T2,DATE##	;(-2) TIMER REQUEST
	PUSHJ	P,GETJRT	;(-1) TIME LIMIT EXCEEDED
LDSTS:	PUSHJ	P,GETUDX	;(0) DEVICE CONDITIONS COME HERE


;TABLE OF SIXBIT ABBREVIATIONS FOR NON-DEVICE CONDITIONS
;	USED FOR PRINTING ERROR MESSAGES.

	'LLM',,'LAT'	;(-37) LLMOP EVENT	(-40) LAT EVENT
	'SCS',,'ETH'	;(-35) SCS EVENT	(-36) ETHERNET EVENT
	'RC1',,'RC2'	;(-33) RSV'D FOR CUST	(-34) RSV'D FOR CUST
	'DTC',,'OOB'	;(-31) DATE/TIME CHANGE (-32) OUT-OF-BAND
	'NTC',,'JBI'	;(-27) NTWRK TOPOLOGY	(-30) CROSS JOB
	'DVT',,'QUE'	;(-25) DECNET EVENT	(-26) ENQ/DEQ
	'ABK',,'IPC'	;(-23) ADR BREAK	(-24) IPCF
	'DAT',,'WAK'	;(-21) DET/ATTACH	(-22) WAKE UUO
	'KSY',,'DSC'	;(-17) KSYS WARNING	(-20) DATASET STATUS
	'UEJ',,'XEJ'	;(-15) USER ERROR	(-16) EXTERNAL ERROR
	'NXM',,'APC'	;(-13) NXM		(-14) CLOCK TICK
	'PDL',,'NSP'	;(-11) PDL OV		(-12) DECNET NSP INTERRUPTS
	'ACK',,'ARI'	;(- 7) ADR CHECK	(-10) ARITHMETIC EXC
	'ILU',,'IMR'	;(- 5) ILL UUO		(- 6) ILL MEM REF
	'STP',,'UUO'	;(- 3) ^C		(- 4) ANY UUO
	'TLE',,'TMR'	;(- 1) TIME LIMIT	(- 2) TIMER REQUEST
LDSIX:
;SUBROUTINES CALLED BY THE PRECEDING TABLE TO FETCH STATUS

GETUDX:	PUSH	P,U		;SAVE U
	PUSH	P,P1		;SAVE P1 AROUND IONDF
	PUSHJ	P,IONDF##	;GET UDX FOR DEVICE
	  TDZA	T2,T2		;FAILED, NONE TO RETURN
	HRL	T2,T1		;INSERT IN RETURN AC
	HRR	T2,DEVIOS(F)	;INSERT DEVICE STATUS
	POP	P,P1		;RESTORE
	JRST	UPOPJ##		;RESTORE U AND RETURN

GETQUE:	MOVE	T2,PITSTS(P1)	;GET SAVED REQUEST ID
	TLZ	T2,(-1-PITQAB-777777)	;ZERO UNWANTED BITS
	ANDCAM	T2,PITSTS(P1)	;CLEAR WHAT WE ARE SIGNALLING
	TLZE	T2,(PITQAB)	;WERE ANY REQUESTS ABORTED?
	TLO	T2,(1B0)	;YES, LIGHT SIGN BIT
	POPJ	P,		;AND RETURN

GETATC:	MOVE	T2,J		;COPY JCH
	ANDI	T2,JOBMSK##	;KEEP ONLY JOB NUMBER
	HRRZ	T2,TTYTAB##(T2)	;GET TTY DDB FOR JOB
	MOVE	T2,DDBLDB##(T2)	;GET ATTACHED LDB
	SOJL	T2,CPOPJ##	;RETURN -1 IF DETACHED
	PUSH	P,U		;SAVE LDB REGISTER
	AOS	U,T2		;GET CORRECT ADDRESS IN U
	SE1XCT	<LDB T2,LDPLNO##>	;GET LINE NUMBER
	ADDI	T2,.UXTRM	;MAKE IT A UDX
	JRST	UPOPJ##		;RESTORE LDB REGISTER AND RETURN

GETIOW:	HLLZ	T2,PITSTS(P1)	;GET SAVED STATUS
	TLZ	T2,377777	;WANT ONLY THE SIGN BIT
	POPJ	P,		;RETURN

GETJRT:	PUSH	P,W		;SAVE W
	MOVE	T1,J		;COPY JOB NUMBER
	PUSHJ	P,JOBTMM##	;DO "RUNTIME UUO"
	MOVE	T2,T1		;PUT RESULT IN RETURN AC
	JRST	WPOPJ##		;RESTORE W AND RETURN

GETJBI:	SETZ	T2,		;PITST2 INTERLOCKS PIJBI. UUO
	EXCH	T2,PITST2(P1)	;GET STATUS, ALLOW OTHERS NOW
	POPJ	P,		;RETURN

GETUUO:	HRLZ	T2,.USMUO	;GET UUO OPCODE
	IOR	T2,.USMUE	;INCLUDE ADDRESS CALCULATION
	POPJ	P,		;RETURN UUO

GETDTC:	SETZ	T2,		;SET TO CLEAR STATUS
	EXCH	T2,PITST3(P1)	;GET THE DATE/TIME OFFSET
	POPJ	P,		;RETURN
SUBTTL	PSISER SUBROUTINES

;SUBROUTINE TO RETURN PSI INFO FOR VMSER AND PFH

PSIIVA::SKIPE	T1,JBTPIA##(J)	;GET ADDR OF DATA BASE
	MOVE	T1,PITIVA(T1)	;USING, GET VECTOR INFORMATION
	POPJ	P,		;RETURN FOR STORE INTO PFH

;SUBROUTINE TO RETURN RANGE OF PAGES THAT INCLUDE THE USERS PSI VECTOR

PSIIVR::SKIPN	T1,JBTPIA##(J)	;GET ADDRESS OF DATA BASE
	POPJ	P,		;NONE, RETURN ZERO
	PUSH	P,J		;SAVE A WORK AC
	LDB	J,[POINT 9,PITIVA(T1),8] ;GET HIGHEST OFFSET IN USE
	JUMPE	J,PSIIV1	;RETURN ZERO IF NO CONDITIONS YET
	LSH	J,2		;TO WORDS FROM BASE
	ADD	J,PITIVA(T1)	;TO FIRST ADDRESS BEYOND VECTOR
	TLZ	J,^-<(SECMSK)>	;CLEAR EXTRANEOUS BITS
	LDB	T1,VECBS2	;GET LOWEST ADDRESS USED
	LSH	T1,W2PLSH	;MAKE A PAGE NUMBER
	LSH	J,W2PLSH	;SIMILARLY
	HRL	T1,J		;MAKE XWD LAST-PAGE,,FIRST-PAGE OF PSI VECTOR
	JRST	JPOPJ##		;RESTORE J AND RETURN ANSWER
PSIIV1:	EXCH	J,(P)		;RESTORE J, STORE ANSWER (ZERO)
	JRST	TPOPJ##		;RETURN ZERO WHEN NO CONDITIONS YET

;SUBROUTINE TO CHECK IF A USER IS ENABLED FOR A CONDITION
;CALL	T1 = CONDITION ( NEGATIVE ONES ONLY )
;	J  = JCH INTERESTED IN
;RETURN CPOPJ IF NOT ENABLED
;	CPOPJ1 IF SO
;USES T2 & T3

PSITST::JUMPGE	T1,CPOPJ##	;ONLY NEGATIVE CONDITIONS HERE
	CAMGE	T1,[C$MIN]	;AND THEN ONLY IN RANGE
	POPJ	P,		;NONE OF THE ABOVE
	MOVE	T3,T1		;SAVE CONDITION
	MOVE	T1,J		;GET JOB NUMBER WHERE WE NEED IT
	PUSHJ	P,CTXPSI##	;GET JBTPIA FOR JCH
	  JRST	PSITS1		;RESTORE T1 AND SAY NO
	JUMPE	T2,PSITS1	;IF NO SUCH JCH OR NOT USING PSISER
	MOVSI	T1,(1B0)	;GET A BIT
	LSH	T1,(T3)		;POSITION IT CORRECTLY
	TDNE	T1,PITENB(T2)	;USER ENABLED FOR THIS TRAP
	AOS	(P)		;YES, GIVE SKIP RETURN
PSITS1:	MOVE	T1,T3		;RESTORE CONDITION (JUST IN CASE)
	POPJ	P,		;RETURN
;SUBROUTINE TO TELL ALL INTERESTED ABOUT NETWORK TOPOLOGY CHANGES
IFN FTNET,<
PSINTC::HRROI	T2,C$NTC	;GET CONDITION TO SIGNAL
	JRST	PSITEL		;GO TELL ALL JOBS AND CONTEXTS
>; END FTNET

;SUBROUTINE TO TELL ALL INTERESTED ABOUT DECNET EVENT
IFN FTDECNET,<
PSIDVT::HRROI	T2,C$DEVT	;GET CONDITION TO SIGNAL
	JRST	PSITEL		;TELL ALL JOBS AND CONTEXTS
>;END OF IFN FTDECNET

;SUBROUTINE TO INFORM JOBS OF KSYS TIMER
PSIKSY::HRROI	T2,C$KSYS	;GET CONDITION TO SIGNAL
	JRST	PSITEL		;GO TELL ALL JOBS AND CONTEXTS

;SUBROUTINE TO INFORM JOBS OF SET DATE/DAYTIME COMMAND
PSISDT::HRROI	T2,C$DTC	;GET CONDITION TO SIGNAL TO THE WORLD
PSITEL:
IFN FTXMON,<
	PUSHJ	P,SSEC0##	;NOT IN SECTION ONE YET
>
	PUSHJ	P,SAVE3##	;SAVE JOB LOOP INDEX AND SCRATCH REGISTERS
	PUSH	P,J		;SAVE J FOR COMCON
	MOVE	P2,T2		;SAVE CONDITION
	MOVE	P3,T1		;SAVE POSSIBLE STATUS (UDT OFFSET)
	MOVE	P1,HIGHJB##	;GET HIGHEST JOB NUMBER ASSIGNED
TELL.1:	MOVE	J,P1		;COPY JOB FOR JCH LOOP
	PUSHJ	P,TELLJB	;INFORM ALL JCHS FOR THIS JOB
	SOJG	P1,TELL.1	;CONTINUE FOR ALL JOBS
	MOVE	T1,P3		;RESTORE UDT OFFSET
	JRST	JPOPJ##		;RESTORE J AND RETURN

;SUBROUTINE TO INFORM ALL OF A JOB'S CONTEXTS ABOUT AN EVENT
;CALLED LIKE PSICND
;RETURNS NON-SKIP ALWAYS

PSIJOB::
IFN FTXMON,<
	PUSHJ	P,SSEC0##	;ALLOW CALLS FROM SECTION ONE
>
	PUSHJ	P,SAVE3##	;PRESERVE REGISTERS
	MOVE	P1,J		;RETURN SAME JOB NUMBER
	DMOVE	P2,T1		;SAVE CONDITION & STATUS
	PUSHJ	P,TELLJB	;TELL ALL JCHS FOR THE JOB
	MOVE	J,P1		;RESTORE THE JOB NUMBER
	DMOVE	T1,P2		;RESTORE STATUS
	POPJ	P,		;RETURN TO CALLER

;SUBROUTINE TO NOTIFY ALL JCHS FOR JOB IN J OF CONDITION & STATUS IN P1 & P2

TELLJB:	MOVE	T1,J		;GET JCH BACK
	TLO	T1,(1B0)	;SET STEP FLAG FOR CTXSER
	PUSHJ	P,CTXPSI##	;GET JCH AND PIT
	  POPJ	P,		;NO SUCH JOB
	MOVE	J,T1		;MOVE JCH FOR SIGNAL
	DMOVE	T1,P2		;GET CONDITION AND STATUS
	PUSHJ	P,PSICND	;SIGNAL THE CONDITION
	  JFCL			;DON'T CARE IF NOT ENABLED
	TRNE	J,CTXMSK##	;CTXSER LOADED?
	JRST	TELLJB		;YES, LOOP OVER ALL JOB'S CONTEXTS
	POPJ	P,		;NO, RETURN NOW
;HERE ON HARDWARE TRAP FOR ARITHMETIC INTERRUPTS

PSIAPR::MOVE	P,[MJOBPD##,,.JDAT+JOBPDL##] ;SET UP A PUSH DOWN LIST
	MOVE	J,.CPJOB##	;GET JOB NUMBER RUNNING
	DMOVE	T1,.USMUP-1	;GET PC OF INTERRUPT
	TRZ	T1,-1		;CLEAR JUNK
	DMOVEM	T1,.CPPC##	;STORE FOR SIGNALLER
	SIGNAL	C$ARIT		;SIGNAL TRAP
	  JFCL			;CANNOT GRANT IT
	MOVSI	T1,(XC.OVF+XC.FOV+XC.FUF+XC.NDV)
	ANDCAM	T1,.CPPC##	;CLEAR CONDITION THAT CAUSED TRAP
	USERAC			;BACK TO USERS ACS
	XJEN	.CPPC##


;SUBROUTINE CALLED TO SIGNAL ANY UUO
;CALLED BY UUOCON JUST BEFORE DISPATCHING
;	PUSHJ	P,ANYUUO
;	  HERE TO PROCESS THE UUO
;	HERE TO SKIP DISPATCH AND INTERRUPT USER

ANYUUO::SKIPL	T3,JBTPIA##(J)	;GET BASE OF PSI DATA
	POPJ	P,		;NOT USING PSI OR SYSTEM OFF
	MOVE	T3,PITENB(T3)	;GET ENABLED CONDITIONS
	TLNN	T3,(AUUBIT)	;USER WANT TO TRAP EVERY UUO
	POPJ	P,		;NO, RETURN NOW
	HRLZ	T3,.USMUO	;GET UUO OPCODE
	IOR	T3,.USMUE	;INCLUDE EFFECTIVE ADDRESS

	TDZ	T3,[777,,200000] ;CLEAR OUT JUNK
	CAME	T3,[CALLI 216]	;PIFLG.
	CAMN 	T3,[CALLI 212]	;PIBLK.
	POPJ	P,		;DON'T WANT BLK ADDR FOR UUO INTERRUPTED
	CAML	T3,[CALLI 135]	;PIINI.
	CAMLE	T3,[CALLI 141]	;PIRST.
	SKIPA			;OK IF NOT ONE THAT CHANGES THE STATE
	POPJ	P,		; OF THE PI SYSTEM
	PUSH	P,T1		;SAVE DISPATCH AC
	PUSH	P,T2
	SIGNAL	C$AUUO		;SIGNAL A UUO IS DONE
	  JRST	TTPOPJ##	;USER CANNOT TAKE IT, DO UUO
	POP	P,T2		;RESTORE REGISTER
	JRST	TPOPJ1##	;SKIP DISPATCH, USER WANTS IT
;SUBROUTINE CALLED BY PSIGEN TO VALIDATE THE INTERRUPT-FROM PC
;RETURNS CPOPJ IF INVALID
;	CPOPJ1 IF OK

VALPC:	TLNN	P1,(SI.UEA)	;EXTENDED USER?
	TLNN	P3,(SECMSK)	;OR SECTION 0 PC?
	JRST	CPOPJ1##	;PC OK, KEEP GOING
	HLRZ	T1,P3		;GET PC SECTION
	PUSHJ	P,SVPCS##	;SET UP FOR PXCTS
	HRRZ	T1,P3		;GET A COPY OF THE PC
	EXCTUX	<MAP T2,(T1)>	;IN-SECTION TRANSLATION
	EXCTUX	<MAP T1,@T1>	;SECTION-ZERO TRANSLATION
;	TLZ	T1,^-<(SECMSK)>	;GET JUST PHYSICAL ADDRESS IN SECTION ZERO
;	TLZ	T2,^-<(SECMSK)>	;AND IN PC SECTION
	CAMN	T1,T2		;IF THE SAME,
	JRST	CPOPJ1##	;THEN THIS IS LEGAL AFTER ALL
	MOVSI	T1,JERR		;JOB ERROR BIT
	IORM	T1,JBTSTS##(J)	;PREVENT TRAPS
	PUSHJ	P,GIVRES##	;GIVE UP ANY RESOURCES
	JSP	T1,ERRPNT##	;START UP AN ERROR MESSAGE (WILL PUSH F & U)
	  ASCIZ/Illegal non-zero section PSI interrupt/
	DMOVE	T1,P2		;COPY THE USER PC
	PUSHJ	P,DPCP##	;CALL PC TYPER
	JRST	PCSTOP##	;STOP JOB, NOT CONTINUABLE
;SUBROUTINE CALLED BY PSIGEN TO VALIDATE THE INTERRUPT VECTOR ADDRESS
;RETURNS CPOPJ IF INVALID
;	CPOPJ1 IF OK

VALVEC:	PUSH	P,T1		;SAVE CONDITION
	HRRZ	T1,P4		;POINT TO ADDRESS (IN-SECTION FOR IADRCK)
	SETO	T2,		;LOOP COUNTER
VALV.1:	PUSHJ	P,IADRCK##	;HAVE UUOCON SEE IF ABOVE JOBPFI
	  JRST	VALV.2		;YES, SAY ILLEGAL TO USER
	  JFCL			;CHECK OURSELVES ABOUT OTHER PROBLEMS
	HLLZ	T4,P4		;GET SECTION NUMBER OF VECTOR
	ADD	T4,T1		;GET GLOBAL ADDRESS
	LSH	T4,W2PLSH	;CONVERT TO PAGE NUMBER
	SE1XCT	<MOVE T4,@[IW MS.MAP,UMAPS(T4)]> ;GET MAP ENTRY FOR PAGE
	PUSHJ	P,FLTST##	;CHECK IF PAGE CAUSES FAULT
	  JRST	VALV.3		;YES, SAY PAGED OUT
	TDNN	T4,[PM.WRT]	;IS THE PAGE WRITABLE
	JRST	[MOVEI T2,[ASCIZ/, is write protected/]
		JRST  VALV.4]	;DIFFERENT ERROR IF VECTOR IN THE HIGH SEG
	ADDI	T1,.PSVIS	;STEP TO LAST WORD IN VECTOR
	AOJE	T2,VALV.1	;CHECK IT NOW
	JRST	TPOPJ1##	;RETURN IF PASSED BOTH TESTS
VALV.2:	SKIPA	T2,[[ASCIZ/, is illegal/]]
VALV.3:	MOVEI	T2,[ASCIZ/, is paged out/]
VALV.4:	PUSH	P,T2		;SAVE ADDRESS OF MESSAGE
	MOVSI	T1,JERR		;CAN'T CONTINUE BIT
	IORM	T1,JBTSTS##(J)	;PREVENT TRAPS
	PUSHJ	P,GIVRES##	;GIVE UP ANY RESOURCES
	JSP	T1,ERRPNT##	;FIRE UP AN ERROR MESSAGE
	  ASCIZ/PSI Interrupt Vector at /  ;**** ERRPNT WILL PUSH F & U
	MOVE	T2,P4		;GET LOCATION OF VECTOR
	PUSHJ	P,UDPCP##	;OUTPUT IT
	SKIPL	T2,-3(P)	;GET CONDITION NUMBER
	JRST	VALV.5		;ITS A DDB
	ROT	T2,-1		;DIVIDE TO GET TABLE ENTRY
	SKIPGE	T2		;WHICH HALF
	SKIPA	T2,LDSIX(T2)	;LEFT
	MOVS	T2,LDSIX(T2)	;RIGHT
	TRZA	T2,-1		;CLEAR OTHER
VALV.5:	SKIPA	T2,DEVNAM(F)	;GET DEVICE NAME
	SKIPA	T1,[[ASCIZ/, for Condition /]]
	MOVEI	T1,[ASCIZ/, for Device /]
	MOVEM	T2,-3(P)	;STORE FOR SAFE KEEPING
	PUSHJ	P,CONMES##	;OUTPUT CORRECT STRING
	MOVE	T2,-3(P)	;RESTORE
	PUSHJ	P,PRNAME##	;OUTPUT SIXBIT DEVICE OR CONDITION
	MOVEI	T1,TPOPJ##	;FOR CLEANUP
	EXCH	T1,-2(P)	;GET CORRECT ENDING
	PUSHJ	P,CONMES##	;APPEND "ILLEGAL" OR "PAGED OUT"
	JRST	PCSTOP##	;AND STOP THE JOB, NON-CONTINUABLE
;SUBROUTINE TO BUILD A BYTE POINTER TO THE VECTOR OFFSET BYTE
;CALL WITH:
;	P1 = ADDRESS OF PSI DATA BASE
;	T1 = CONDITION NUMBER (ONLY NEGATIVE ONES HERE)
;	PUSHJ	P,CNDPTR
;	RETURN HERE POINTER IN P4
;PRESERVES T1 WIPES T2

CNDPTR:	PUSH	P,T1		;SAVE CONDITION
	MOVM	T1,T1		;GET POSITIVE CONDITION
	IDIVI	T1,4		;T1 := WORD AND T2 := QUARTER
	MOVE	P4,CNDP.A(T2)	;GET A GOOD POINTER
	ADDI	P4,(T1)		;ADD IN WORD OFFSET
	JRST	TPOPJ##		;RESTORE T1 AND RETURN

CNDP.A:	POINT	CNDSIZ,PITTAB(P1),8	;BYTE 0
	POINT	CNDSIZ,PITTAB(P1),17	;BYTE 1
	POINT	CNDSIZ,PITTAB(P1),26	;BYTE 3
	POINT	CNDSIZ,PITTAB(P1),35	;BYTE 4

;SUBROUTINE TO BUILD A BYTE POINTER TO THE PRIORITY BYTE
;
;SAME CALL AND RETURN AS CNDPTR

IFN PSIMPI,<
CNDLVL:	PUSHJ	P,CNDPTR	;LET CNDPTR FIGURE OUT BYTE AND WORD OFFSETS
	HLL	P4,CNDP.B(T2)	;BUT INSERT DIFFERENT SIZE AND POSITION INFO
	POPJ	P,		;RETURN

CNDP.B:	POINT	2,0(P1),1	;BYTE 0
	POINT	2,0(P1),10	;BYTE 1
	POINT	2,0(P1),19	;BYTE 2
	POINT	2,0(P1),28	;BYTE 3
>
;SUBROUTINE TO SEE IF USER IS IN PFH OR DDT
;CALL WITH:
;	P2-P3 = PC DOUBLEWORD
;	PUSHJ	P,ISPFH
;	  HERE IF IN PFH OR DDT
;	HERE IF NOT
;WIPES T2

ISPFH:	TLNE	P3,(SECMSK)	;IN SECTION ZERO?
	JRST	ISDDT		;NO, NOT IN PFH
	MOVE	T2,P2		;MOVE PC FOR VMSER
	HRR	T2,P3		;GET REST OF PC
	PUSH	P,T3		;SAVE T3 AROUND VMSER
	PUSHJ	P,INPFH##	;SEE IF WE ARE IN PFH
	  JRST	T3POPJ##	;YES, RESTORE T3 AND RETURN
	POP	P,T3		;RESTORE NOW
ISDDT:	HRRZ	T2,.JDAT+JOBDDT## ;GET START OF DDT
	SKIPE	.JDAT+JOBDDT##	;DDT LOADED?
	CAILE	T2,(P3)		;ABOVE START OF DDT?
	JRST	CPOPJ1##	;NO, ALL IS WELL
	HLRZ	T2,.JDAT+JOBDDT## ;GET END OF DDT
	CAIG	T2,(P3)		;ABOVE END?
	AOS	(P)		;YES, NOT IN DDT
	POPJ	P,0		;IN DDT


PSILIT::XLIST			;FORCED OUT LITERAL POOL HERE
	$LIT
	LIST
PSIEND::END