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

[Frode Vatvedt Fjeld]

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

Modified Files:
	bootblock.lisp 
Log Message:
Removed some bogus comments.

Date: Thu Jan 15 16:25:43 2004
Author: ffjeld

Index: movitz/bootblock.lisp
diff -u movitz/bootblock.lisp:1.3 movitz/bootblock.lisp:1.4
--- movitz/bootblock.lisp:1.3	Thu Jan 15 15:02:16 2004
+++ movitz/bootblock.lisp	Thu Jan 15 16:25:43 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.3 2004/01/15 20:02:16 ffjeld Exp $
+;;;; $Id: bootblock.lisp,v 1.4 2004/01/15 21:25:43 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -89,24 +89,16 @@
        
        ;;
        ;; We are running at address #x7c00.
-       ;; First we need to initialize the data segment
-       ;; registers and the stack pointer.
-       ;; Having done this, we can reference variables in the bootblock
-       ;; and use the stack to hold local variables
        ;;
 
        (:xorw :ax :ax)
-       (:movw :ax :ds)			; Let data segment and extended segment)
-       (:movw :ax :es)			; point to #x7c00 -> Data
-					; references will be to #x7c00 + offset)
+       (:movw :ax :ds)
+       (:movw :ax :es)
 
        (:movw #x9000 :ax)
-       (:movw :ax :ss)			; Let stack segment point to #xb000)
+       (:movw :ax :ss)
        (:movw #xfffc :bp)
-       (:leaw (:bp ,(- +stack-frame-size+)) :sp) ; and the stack pointer to #xfffe ->)
-					; Make room for 10 bytes on the stack
-
-					; stack is at #x9fffe)
+       (:leaw (:bp ,(- +stack-frame-size+)) :sp)
        (:movw 'welcome :si)		; Print welcome message)
        (:call 'print)
        
@@ -114,29 +106,21 @@
        ;; Enable the A20 gate
        ;;
        (:call 'empty-8042)
-       (:movb #xd1 :al)			; Write ouput port
+       (:movb #xd1 :al)
        (:outb :al #x64)
 
        (:call 'empty-8042)
-       (:movb #xdf :al)			; Enable A20 address line
+       (:movb #xdf :al)
        (:outb :al #x60)
        (:call 'empty-8042)
 
-
+       ;;
+       ;; Read sectors into memory
+       ;;
+       
        (:movw ,(+ 1 skip-sectors) (:bp ,+linear-sector+))
        (:movl ,load-address (:bp ,+destination+))
 
-;;;       
-;;;       read-loop
-;;;
-;;;       (:movw 'track-end-msg :si)	; Print ')' to screen after each track
-;;;       (:call 'print)
-;;;       (:movw 'track-start-msg :si)	; Print '(' to screen for each track
-;;;       (:call 'print)
-;;;
-;;;       read
-;;;
-
        read-loop
        
        (:cmpw ,last-sector (:bp ,+linear-sector+))
@@ -212,8 +196,6 @@
        ;;
        read-done
 
-;;;       foo (:jmp 'foo)
-       
        motor-loop			; Wait for floppy motor
        (:btw 8 (#x43e))
        (:jc 'motor-loop)
@@ -313,10 +295,6 @@
        track-start-msg (% format 8 "(")
        track-end-msg   (% format 8 ")") ;; (% format 8 ")~%
")
        sector-msg      (% format 8 "-")
-
-;;;     integer-msg (% nformat "Int: ")
-;;;     integer-msg-int (% format "XXXX~%
")
-
      
        (% align 16)
        gdt