CP/M 3 compatible character i/o handling

[z180-stamp.git] / z180 / ser1-i.180

diff --git a/z180/ser1-i.180 b/z180/ser1-i.180
index 4074a9d2c95311bb66901cb7c512db1f16fc7d9a..2410e3804ed64b6f0e3126f7a0830fbdea0ab330 100644 (file)
--- a/z180/ser1-i.180
+++ b/z180/ser1-i.180
@@ -6,8 +6,8 @@
 \r
        \r
        global  ser.init\r
-       global  ser.instat,ser.in\r
-       global  ser.out\r
+       global  ser.ist,ser.in\r
+       global  ser.ost,ser.out\r
 \r
 ;TODO: define a trampoline area somewhere in top ram. \r
 rtxisvjmp      equ     0FF60h  ;momentan frei...\r
@@ -78,7 +78,7 @@ ser.init:
 ;      ei\r
        ret                     ;\r
 \r
-ser.instat:\r
+ser.ist:\r
        push    ix\r
        ld      ix,ser1.inbuf   ;\r
 \r
@@ -126,7 +126,7 @@ bg.w1:
        ret                             ; 9\r
                                        ;   153 \r
 \r
-ser.outstat:\r
+ser.ost:\r
        push    ix\r
        ld      ix,ser1.outbuf          ;\r
 buf.full:\r
@@ -148,6 +148,7 @@ buf.put:
        push    bc\r
        push    ix\r
        pop     hl\r
+       ld      a,c\r
        ld      c,(ix+o.in_idx)         ;\r
        ld      b,0\r
        add     hl,bc\r