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

Modified Files: ne2k.lisp Log Message: Minor edit.

Date: Mon Feb 2 09:57:35 2004 Author: ffjeld

Index: movitz/losp/x86-pc/ne2k.lisp diff -u movitz/losp/x86-pc/ne2k.lisp:1.5 movitz/losp/x86-pc/ne2k.lisp:1.6 --- movitz/losp/x86-pc/ne2k.lisp:1.5 Sun Feb 1 17:10:17 2004 +++ movitz/losp/x86-pc/ne2k.lisp Mon Feb 2 09:57:34 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Sep 17 15:16:00 2002 ;;;; -;;;; $Id: ne2k.lisp,v 1.5 2004/02/01 22:10:17 ffjeld Exp $ +;;;; $Id: ne2k.lisp,v 1.6 2004/02/02 14:57:34 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -67,10 +67,9 @@ "Probe for the presence of a NE2000 compatible card at IO-address io-base." (with-dp8390 (dp8390 io-base) (let ((test-vector #(#xabba #x00ff #x5599 #x0123 #x45de #xadbe #xef23))) - (declare (dynamic-extent test-vector)) ;; NE1000 has RAM buffer located at 8192 ;; NE2000 has RAM buffer located at 16384 - ;; We have detected NE2000, check if 16-bit access works: + ;; Check if 16-bit access works to NE2000 RAM works: (setf (dp8390 ($page0-write cr)) ($command page-0) (dp8390 ($page0-write dcr)) ($data-config fifo-threshold-8-bytes loopback-off