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

diff --git a/z180/ser1-i.180 b/z180/ser1-i.180
index 4074a9d..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	;
 
@@ -126,7 +126,7 @@ bg.w1:
 	ret				; 9
 					;   153 
 
-ser.outstat:
+ser.ost:
 	push	ix
 	ld	ix,ser1.outbuf		;
 buf.full:
@@ -148,6 +148,7 @@ buf.put:
 	push	bc
 	push	ix
 	pop	hl
+	ld	a,c
 	ld	c,(ix+o.in_idx)		;
 	ld	b,0
 	add	hl,bc