[movitz-cvs] CVS update: movitz/bootblock.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv19078

Modified Files:
	bootblock.lisp 
Log Message:
Minor edits: use keyword assembly instructions.

Date: Wed Feb  2 08:48:21 2005
Author: ffjeld

Index: movitz/bootblock.lisp
diff -u movitz/bootblock.lisp:1.10 movitz/bootblock.lisp:1.11
--- movitz/bootblock.lisp:1.10	Wed Jul  7 19:33:04 2004
+++ movitz/bootblock.lisp	Wed Feb  2 08:48:21 2005
@@ -1,6 +1,6 @@
 ;;;;------------------------------------------------------------------
 ;;;; 
-;;;;    Copyright (C) 2001,2000, 2002-2004,
+;;;;    Copyright (C) 2001,2000, 2002-2005,
 ;;;;    Department of Computer Science, University of Tromso, Norway
 ;;;; 
 ;;;; Filename:      bootblock.lisp
@@ -9,7 +9,7 @@
 ;;;; Created at:    Mon Oct  9 20:47:19 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: bootblock.lisp,v 1.10 2004/07/07 17:33:04 ffjeld Exp $
+;;;; $Id: bootblock.lisp,v 1.11 2005/02/02 07:48:21 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -35,32 +35,32 @@
 
 (defun mkasm16-bios-print ()
   "Print something to the terminal.  [es:si] points to the text"
-  `((movzxb (:si) :cx)
-    (incw :si)
-    (movb #xe :ah)
-    (movw 7 :bx)
-    :print-loop
-    (lodsb)
-    (int #x10)
-    (loop ':print-loop)
-    (ret)))
+  `((:movzxb (:si) :cx)
+    (:incw :si)
+    (:movb #xe :ah)
+    (:movw 7 :bx)
+    print-loop
+    (:lodsb)
+    (:int #x10)
+    (:loop 'print-loop)
+    (:ret)))
 
 (defun mkasm16-format-hex ()
   "Format a 16-bit word (in DX) into hex string (in DI)"
-  `((std)
-    (movw 4 :cx)
-    (addw :cx :di)
-    (decw :di)
-    :format-loop
-    (movb :dl :bl)
-    (andw #x0f bx)
-    (movb ('hex-table bx) :al)
-    (stosb)
-    (shrw :dx 4)
-    (decw :cx)
-    (jnz ':format-loop)
-    (cld)
-    (ret)
+  `((:std)
+    (:movw 4 :cx)
+    (:addw :cx :di)
+    (:decw :di)
+    format-loop
+    (:movb :dl :bl)
+    (:andw #x0f bx)
+    (:movb ('hex-table bx) :al)
+    (:stosb)
+    (:shrw :dx 4)
+    (:decw :cx)
+    (:jnz 'format-loop)
+    (:cld)
+    (:ret)
     hex-table (% format nil "0123456789abcdef")))
 
 (defconstant +SECTOR-SIZE+ 512)