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

[Frode Vatvedt Fjeld]

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

Modified Files:
	bootblock.lisp 
Log Message:
Minor edits.

Date: Thu May 20 14:25:12 2004
Author: ffjeld

Index: movitz/bootblock.lisp
diff -u movitz/bootblock.lisp:1.8 movitz/bootblock.lisp:1.9
--- movitz/bootblock.lisp:1.8	Fri Apr 16 15:15:20 2004
+++ movitz/bootblock.lisp	Thu May 20 14:25:12 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Mon Oct  9 20:47:19 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: bootblock.lisp,v 1.8 2004/04/16 19:15:20 ffjeld Exp $
+;;;; $Id: bootblock.lisp,v 1.9 2004/05/20 18:25:12 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -155,7 +155,6 @@
        (:movw :bx :es)
        (:xorw :bx :bx)
 
-       
        (:int #x13)			; Call BIOS routine
        (:jc 'read-error)
        (:movzxb :al :ecx)
@@ -285,7 +284,7 @@
        ;; Data
        welcome         (% format 8 "Loading Movitz ~D..~%
"
 			  ,(incf *bootblock-build*))
-       entering        (% format 8 ")~%
Enter..")
+       entering        (% format 8 "~%
Enter..")
        error           (% format 8 "Failed!)")
        track-start-msg (% format 8 "(")
        track-end-msg   (% format 8 ")")