Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv31991 Modified Files: ne2k.lisp Log Message: This makes Qemu work. Date: Tue Nov 30 15:16:40 2004 Author: ffjeld Index: movitz/losp/x86-pc/ne2k.lisp diff -u movitz/losp/x86-pc/ne2k.lisp:1.13 movitz/losp/x86-pc/ne2k.lisp:1.14 --- movitz/losp/x86-pc/ne2k.lisp:1.13 Wed Nov 24 17:20:30 2004 +++ movitz/losp/x86-pc/ne2k.lisp Tue Nov 30 15:16:38 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.13 2004/11/24 16:20:30 ffjeld Exp $ +;;;; $Id: ne2k.lisp,v 1.14 2004/11/30 14:16:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -217,6 +217,7 @@ (%io-port-write-succession (asic-io-base device) packet 2 start end :16-bit)) (setf (io-register8x2 dp8390 ($page0-write tbcr1) ($page0-write tbcr0)) packet-length (dp8390 ($page0-write cr)) ($command transmit start abort-complete)) + #+ignore (loop while (= (dp8390 ($page0-read cr)) ($command start transmit abort-complete))))) nil)