Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv14307
Modified Files: los0.lisp Log Message: *** empty log message *** Date: Wed Dec 15 14:58:27 2004 Author: ffjeld
Index: movitz/losp/los0.lisp diff -u movitz/losp/los0.lisp:1.34 movitz/losp/los0.lisp:1.35 --- movitz/losp/los0.lisp:1.34 Mon Dec 13 12:27:58 2004 +++ movitz/losp/los0.lisp Wed Dec 15 14:58:26 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 1 18:08:32 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: los0.lisp,v 1.34 2004/12/13 11:27:58 ffjeld Exp $ +;;;; $Id: los0.lisp,v 1.35 2004/12/15 13:58:26 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -1187,6 +1187,8 @@ ;;; (vector-push code-vector ts)))) ;; (muerte::cli) (pic8259-end-of-interrupt 0) + (when (eql #\esc (muerte.x86-pc.keyboard:poll-char)) + (break "Test-timer keyboard break.")) (with-inline-assembly (:returns :nothing) (:compile-form (:result-mode :ecx) muerte.x86-pc::*screen*) (:shrl 2 :ecx)