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)