diff options
author | Leo C | 2014-10-28 10:29:13 +0100 |
---|---|---|
committer | Leo C | 2014-10-28 10:29:13 +0100 |
commit | 30d1329e8e5c029a87f657baace698d1d7031f9e (patch) | |
tree | 8968e54145c1212cbaad6938e3da86cb42bf3707 /z180/ser1-i.180 | |
parent | 8a7deceacd30529e5c32082b2c719eb055841d0d (diff) | |
download | z180-stamp-30d1329e8e5c029a87f657baace698d1d7031f9e.zip |
CP/M 3 compatible character i/o handling
Diffstat (limited to 'z180/ser1-i.180')
-rw-r--r-- | z180/ser1-i.180 | 9 |
1 files changed, 5 insertions, 4 deletions
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
|