From 30d1329e8e5c029a87f657baace698d1d7031f9e Mon Sep 17 00:00:00 2001
From: Leo C
Date: Tue, 28 Oct 2014 10:29:13 +0100
Subject: CP/M 3 compatible character i/o handling

---
 z180/ser1-i.180 | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'z180/ser1-i.180')

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
-- 
cgit v1.2.3