[LispM-Hackers] Interrupts work (mostly), and Yet Another Question

[James A. Crippen]

Nyef <nyef@softhome.net> writes:

> > Suggestions?
> 
> (defun %write-port-8 (address data)
>     "Write 8-bit data value data to I/O port address."
>     ; FIXME: Implement
>     )
> 
> (defun interrupt-acknowledge (interrupt-level)
>     "Acknowledge an interrupt on a PC/AT or better class machine."
>     (if (> interrupt-level 7)
>         (%write-port-8 #xa0 #x20))
>     (%write-port-8 #x20 #x20))

Uhh, where's the compiler?

'james

-- 
James A. Crippen <james@unlambda.com> ,-./-.  Anchorage, Alaska,
Lambda Unlimited: Recursion 'R' Us   |  |/  | USA, 61.20939N, -149.767W
Y = \f.(\x.f(xx)) (\x.f(xx))         |  |\  | Earth, Sol System,
Y(F) = F(Y(F))                        \_,-_/  Milky Way.