[movitz-cvs] CVS update: movitz/losp/common-lisp.lisp movitz/losp/los0.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	common-lisp.lisp los0.lisp 
Log Message:
Many minor edits. Removed non-ASCII characters etc.

Date: Mon Jan 19 06:23:43 2004
Author: ffjeld

Index: movitz/losp/common-lisp.lisp
diff -u movitz/losp/common-lisp.lisp:1.1.1.1 movitz/losp/common-lisp.lisp:1.2
--- movitz/losp/common-lisp.lisp:1.1.1.1	Tue Jan 13 06:05:04 2004
+++ movitz/losp/common-lisp.lisp	Mon Jan 19 06:23:43 2004
@@ -1,7 +1,7 @@
 ;;;;------------------------------------------------------------------
 ;;;; 
 ;;;;    Copyright (C) 20012000, 2004,
-;;;;    Department of Computer Science, University of Tromsø, Norway
+;;;;    Department of Computer Science, University of Tromso, Norway
 ;;;; 
 ;;;; Filename:      common-lisp.lisp
 ;;;; Description:   
@@ -9,7 +9,7 @@
 ;;;; Created at:    Tue Dec  5 18:33:01 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: common-lisp.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $
+;;;; $Id: common-lisp.lisp,v 1.2 2004/01/19 11:23:43 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 


Index: movitz/losp/los0.lisp
diff -u movitz/losp/los0.lisp:1.1.1.1 movitz/losp/los0.lisp:1.2
--- movitz/losp/los0.lisp:1.1.1.1	Tue Jan 13 06:05:04 2004
+++ movitz/losp/los0.lisp	Mon Jan 19 06:23:43 2004
@@ -1,7 +1,7 @@
 ;;;;------------------------------------------------------------------
 ;;;; 
 ;;;;    Copyright (C) 2001,2000, 2002-2004,
-;;;;    Department of Computer Science, University of Tromsø, Norway
+;;;;    Department of Computer Science, University of Tromso, Norway
 ;;;; 
 ;;;; Filename:      los0.lisp
 ;;;; Description:   Top-level initialization file.
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  1 18:08:32 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: los0.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $
+;;;; $Id: los0.lisp,v 1.2 2004/01/19 11:23:43 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -19,6 +19,8 @@
 (require :x86-pc/all)
 (require :x86-pc/io-space)
 (require :x86-pc/ne2k)
+(require :x86-pc/floppy)
+
 (require :lib/readline)
 (require :lib/toplevel)
 (require :lib/net/ip6)
@@ -37,6 +39,12 @@
 (in-package muerte.init)
 
 (declaim (special muerte::*multiboot-data*))
+
+(defun test-floppy ()
+  (muerte.x86-pc::fd-start-disk)	; to initialize the controller and spin the drive up.
+  (muerte.x86-pc::fd-cmd-seek 70)	; to seek to track 70.
+  (setf (muerte.x86-pc::fd-motor) nil))	; to turn the drive and controller off.
+
 
 (defun alist-get-expand (alist key)
   (let (cons)