[movitz-cvs] CVS update: movitz/losp/x86-pc/textmode.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/x86-pc
In directory common-lisp.net:/tmp/cvs-serv12480

Modified Files:
	textmode.lisp 
Log Message:
Make the variables that define the textmode memory location into
proper dynamic variables.

Date: Thu Aug 12 09:54:52 2004
Author: ffjeld

Index: movitz/losp/x86-pc/textmode.lisp
diff -u movitz/losp/x86-pc/textmode.lisp:1.10 movitz/losp/x86-pc/textmode.lisp:1.11
--- movitz/losp/x86-pc/textmode.lisp:1.10	Mon Aug  9 07:39:46 2004
+++ movitz/losp/x86-pc/textmode.lisp	Thu Aug 12 09:54:51 2004
@@ -1,6 +1,6 @@
 ;;;;------------------------------------------------------------------
 ;;;; 
-;;;;    Copyright (C) 2001,2000, 2002-2004,
+;;;;    Copyright (C) 2000-2004,
 ;;;;    Department of Computer Science, University of Tromso, Norway
 ;;;; 
 ;;;; Filename:      textmode.lisp
@@ -9,7 +9,7 @@
 ;;;; Created at:    Thu Nov  9 15:38:56 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: textmode.lisp,v 1.10 2004/08/09 14:39:46 ffjeld Exp $
+;;;; $Id: textmode.lisp,v 1.11 2004/08/12 16:54:51 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -23,22 +23,22 @@
 
 (in-package muerte.x86-pc)
 
-(define-global-variable *screen* 
+(defvar *screen* 
     (vga-memory-map))
 
-(define-global-variable *screen-width*
+(defvar *screen-width*
     (vga-horizontal-display-end))
 
-(define-global-variable *screen-stride*
+(defvar *screen-stride*
     (vga-horizontal-display-end))
 
-(define-global-variable *cursor-x*
+(defvar *cursor-x*
     (rem (vga-cursor-location) *screen-stride*))
 
-(define-global-variable *cursor-y*
+(defvar *cursor-y*
     (truncate (vga-cursor-location) *screen-stride*))
 
-(define-global-variable *screen-height*
+(defvar *screen-height*
     (truncate (vga-vertical-display-end)
 	      (vga-character-height)))