X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp.git/blobdiff_plain/f4d5b4febbffab80cb06bd18564d4c326756fad7..cb52e1e0dbfdf6c6defe20b3711e0c50285748f5:/z180/ser1-i.180

diff --git a/z180/ser1-i.180 b/z180/ser1-i.180
index 322ec40..2410e38 100644
--- a/z180/ser1-i.180
+++ b/z180/ser1-i.180
@@ -6,8 +6,8 @@
 
 	
 	global	ser.init
-	global	ser.instat,ser.in
-	global	ser.out
+	global	ser.ist,ser.in
+	global	ser.ost,ser.out
 
 ;TODO: define a trampoline area somewhere in top ram. 
 rtxisvjmp	equ	0FF60h	;momentan frei...
@@ -78,7 +78,7 @@ ser.init:
 ;	ei
 	ret			;
 
-ser.instat:
+ser.ist:
 	push	ix
 	ld	ix,ser1.inbuf	;
 
@@ -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
@@ -125,7 +126,7 @@ bg.w1:
 	ret				; 9
 					;   153 
 
-ser.outstat:
+ser.ost:
 	push	ix
 	ld	ix,ser1.outbuf		;
 buf.full:
@@ -147,10 +148,11 @@ buf.put:
 	push	bc
 	push	ix
 	pop	hl
+	ld	a,c
 	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 +160,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