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)