X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp.git/blobdiff_plain/eded7ec457ef999586c66b15ada5948bddcc735c..4caee1ec599c6d78f5234b218e2ccf5e23eb4bf0:/z180/ser1-i.180?ds=sidebyside

diff --git a/z180/ser1-i.180 b/z180/ser1-i.180
index 322ec40..4074a9d 100644
--- a/z180/ser1-i.180
+++ b/z180/ser1-i.180
@@ -103,16 +103,17 @@ bg.w1:
 	cp	(hl)			; 6	while (out_idx==in_idx) 
 	jr	z,bg.wait		; 6 (/8)	;
 
-	inc	a			; 4
 	ld	e,a			; 4	
-	inc	e			; 4
 	ld	d,0			; 6
+	inc	de
+	inc	de
 
 	ex	de,hl			; 3
 	add	hl,de			;10
 	ld	l,(hl)			; 6
 	ex	de,hl			; 3	
-	
+
+	inc	a			; 4
 	dec	hl			; 4
 	and	(hl)			; 6	
 	inc	hl			; 4
@@ -150,7 +151,7 @@ buf.put:
 	ld	c,(ix+o.in_idx)		;
 	ld	b,0
 	add	hl,bc
-	ld	b,a
+	ld	(hl),a
 
 	ld	a,c			;
 	inc	a
@@ -158,7 +159,6 @@ buf.put:
 bp.wait:
 	cp	(ix+o.out_idx)		;
 	jr	z,bp.wait
-	ld	(hl),b
 	ld	(ix+o.in_idx),a
 
 	di			;036f