Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory clnet:/tmp/cvs-serv24451 Modified Files: textmode.lisp Log Message: Added *text-output-port* to take advantage of bochs' 0xe9 port hack. --- /project/movitz/cvsroot/movitz/losp/x86-pc/textmode.lisp 2005/08/26 21:42:39 1.15 +++ /project/movitz/cvsroot/movitz/losp/x86-pc/textmode.lisp 2007/03/26 21:43:21 1.16 @@ -9,7 +9,7 @@ ;;;; Created at: Thu Nov 9 15:38:56 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: textmode.lisp,v 1.15 2005/08/26 21:42:39 ffjeld Exp $ +;;;; $Id: textmode.lisp,v 1.16 2007/03/26 21:43:21 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -23,6 +23,9 @@ (in-package muerte.x86-pc) +(defvar *text-output-port* nil + "Output all text also to this port. For example, bochs #xe9 port hack.") + (defvar *screen* (vga-memory-map)) @@ -67,6 +70,8 @@ value) (defun textmode-write-char (c) + (when *text-output-port* + (setf (io-port *text-output-port* :unsigned-byte8) (char-code c))) (case c (#\newline (setf *cursor-x* 0)