Disable msg- i/o-fifos for test with avr

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

diff --git a/z180/ser1-i.180 b/z180/ser1-i.180
index 322ec406478dd1f2fad38a469111e38ef17b1466..4074a9d2c95311bb66901cb7c512db1f16fc7d9a 100644 (file)
--- a/z180/ser1-i.180
+++ b/z180/ser1-i.180
@@ -103,16 +103,17 @@ bg.w1:
        cp      (hl)                    ; 6     while (out_idx==in_idx) \r
        jr      z,bg.wait               ; 6 (/8)        ;\r
 \r
-       inc     a                       ; 4\r
        ld      e,a                     ; 4     \r
-       inc     e                       ; 4\r
        ld      d,0                     ; 6\r
+       inc     de\r
+       inc     de\r
 \r
        ex      de,hl                   ; 3\r
        add     hl,de                   ;10\r
        ld      l,(hl)                  ; 6\r
        ex      de,hl                   ; 3     \r
-       \r
+\r
+       inc     a                       ; 4\r
        dec     hl                      ; 4\r
        and     (hl)                    ; 6     \r
        inc     hl                      ; 4\r
@@ -150,7 +151,7 @@ buf.put:
        ld      c,(ix+o.in_idx)         ;\r
        ld      b,0\r
        add     hl,bc\r
-       ld      b,a\r
+       ld      (hl),a\r
 \r
        ld      a,c                     ;\r
        inc     a\r
@@ -158,7 +159,6 @@ buf.put:
 bp.wait:\r
        cp      (ix+o.out_idx)          ;\r
        jr      z,bp.wait\r
-       ld      (hl),b\r
        ld      (ix+o.in_idx),a\r
 \r
        di                      ;036f\r