Update IXON flag from character device table (@ctbl)

diff --git a/cbios/ascii.180 b/cbios/ascii.180
index 5c93f1fb311559a640c4edf07f324b687a8d578f..9b9566a4011779c0d5d927fc384b95bb6fd996b2 100644 (file)
--- a/cbios/ascii.180
+++ b/cbios/ascii.180
@@ -156,8 +156,13 @@ init_st:
        ld      b,(ix+o.absdev)\r
        ld      c,8                     ;\r
        mlt     bc                      ;\r
-       ld      hl,@ctbl+7              ;\r
+       ld      hl,@ctbl+6              ;\r
        add     hl,bc                   ;\r
+       res     IXON,(ix+o.fflags)\r
+       bit     mbxon_bit,(hl)          ;get cpm3 xon flag\r
+       jr      z,$+6\r
+        set    IXON,(ix+o.fflags)\r
+       inc     hl\r
        ld      a,(hl)                  ;get baudrate index\r
        call    as_br_div\r
        ld      c,astc0l\r
@@ -219,18 +224,22 @@ mod_tab:
 func_tcgeta:\r
        call    chk_ptr\r
 \r
+       ld      b,(ix+o.absdev)\r
+       ld      c,8                     ;\r
+       mlt     bc                      ;\r
+       ld      hl,@ctbl+6              ;\r
+       add     hl,bc                   ;\r
+       res     IXON,(ix+o.fflags)\r
+       bit     mbxon_bit,(hl)          ;get cpm3 xon flag\r
+       jr      z,$+6\r
+        set    IXON,(ix+o.fflags)\r
+       inc     hl\r
        ld      a,(ix+o.iflags)\r
        call    b_st_a\r
        inc     de\r
        ld      a,(ix+o.fflags)\r
        call    b_st_a\r
        inc     de\r
-\r
-       ld      b,(ix+o.absdev)\r
-       ld      c,8                     ;\r
-       mlt     bc                      ;\r
-       ld      hl,@ctbl+7              ;\r
-       add     hl,bc                   ;\r
        ld      a,(hl)                  ;get baudrate index\r
        and     M_CBAUD\r
        ld      b,a\r
@@ -261,8 +270,13 @@ func_tcseta:
        ld      b,(ix+o.absdev)\r
        ld      c,8                     ;\r
        mlt     bc                      ;\r
-       ld      hl,@ctbl+7              ;\r
+       ld      hl,@ctbl+6              ;\r
        add     hl,bc                   ;\r
+       res     mbxon_bit,(hl)\r
+       bit     IXON,a\r
+       jr      z,$+4\r
+        set    mbxon_bit,(hl)\r
+       inc     hl\r
        call    b_ld_a\r
        ld      (ix+o.cflags),a\r
        and     M_CBAUD\r