[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
- To: RJF at MIT-MC
- From: HIC at MIT-MC (Howard I. Cannon)
- Date: Sun, 29 Oct 78 09:30:00 GMT
- Cc: (BUG LISP) at MIT-MC
- Original-date: 29 OCT 1978 0430-EST
PDLOV: MOVE F,INTPDL ;INTERRUPT ROUTINES MUST LOAD INTPDL INTO F
MOVE R,IPSWD1(F) ;GET OLD INTERRUPT MASK
TRZ R,AP.CLK ;LEAVE ON ALL EXCEPT CLOCK INTS
MOVEM R,IMASK ;REMEMBER, ALLOW PDL OV IN PDL OV HANDLER
] ;END IFE SAIL
TLZ R,4 ;TURN OFF <ESC>I INTERRUPTS
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.
(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...