[movitz-cvs] CVS update: movitz/losp/muerte/io-port.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	io-port.lisp 
Log Message:
Fixed %io-port-write-succession for :16-bit.

Date: Thu Feb 26 06:18:29 2004
Author: ffjeld

Index: movitz/losp/muerte/io-port.lisp
diff -u movitz/losp/muerte/io-port.lisp:1.7 movitz/losp/muerte/io-port.lisp:1.8
--- movitz/losp/muerte/io-port.lisp:1.7	Tue Feb  3 05:02:59 2004
+++ movitz/losp/muerte/io-port.lisp	Thu Feb 26 06:18:29 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Mar 21 22:14:08 2001
 ;;;;                
-;;;; $Id: io-port.lisp,v 1.7 2004/02/03 10:02:59 ffjeld Exp $
+;;;; $Id: io-port.lisp,v 1.8 2004/02/26 11:18:29 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -306,8 +306,8 @@
 		  (:cmpl :ecx (:esp))
 		  (:jbe 'end-io-read-loop)
 		  (:inw :dx :ax)
-		  (:addl 1 :ecx)
-		  (:movw :ax (:ebx ,(+ offset -2) (:ecx 2)))
+		  (:addl 2 :ecx)
+		  (:movw :ax (:ebx ,(+ offset -2) :ecx))
 		  (:jmp 'io-read-loop)
 		  (:popl :eax)		; increment :esp, and put a lispval in :eax.
 		 end-io-read-loop)))
@@ -439,8 +439,8 @@
 		 io-read-loop
 		  (:cmpl :ecx (:esp))
 		  (:jbe 'end-io-read-loop)
-		  (:addl 1 :ecx)
-		  (:movw (:ebx ,(+ offset -2) (:ecx 2)) :ax)
+		  (:addl 2 :ecx)
+		  (:movw (:ebx ,(+ offset -2) :ecx) :ax)
 		  (:outw :ax :dx)
 		  (:jmp 'io-read-loop)
 		  (:popl :eax)		; increment :esp, and put a lispval in :eax.