[no subject]

[HIC at MIT-MC (Howard I. Cannon)]

PDLOV:	MOVE F,INTPDL		;INTERRUPT ROUTINES MUST LOAD INTPDL INTO F
	MOVE R,IPSWD1(F)	;GET OLD INTERRUPT MASK
IFE SAIL,[
	TRZ R,AP.CLK		;LEAVE ON ALL EXCEPT CLOCK INTS
	MOVEM R,IMASK		;REMEMBER, ALLOW PDL OV IN PDL OV HANDLER
	APRENB R,
]	;END IFE SAIL
IFN SAIL,[
	TLZ R,4			;TURN OFF <ESC>I INTERRUPTS
	MOVEM R,IMASK
	INTMSK R		;LEAVE ON ALL BUT ESC<I> AND CLOCK INTS
]	;END IFN SAIL

Bug in the running code:  The code is currently what appears in the IFE SAIL
conditional and should be changed to what is now in the IFN SAIL conditional.
If not, PSLOV's will get an interrupt system error message.

--howard
(BTW, I have an apparently working but VERY UNTESTED oneseg LISP
on [1,HIC]...it is called TSTLSP.  Perhaps some people would be interested
in trying it out...

--howard