call ff_gech\r
ld a,b ;remaining chrs in buffer\r
cp s0.rx_len/4 ; < 32?\r
- jr nc,a0i_1 ; no, just get char\r
- bit CRTS_IFLOW,(ix+oint.fflags) ; yes, enable RTS if needed\r
+ jr nc,a0i_2 ; no, just get char\r
+ ld b,(ix+oint.fflags) ; yes, enable RTS if needed\r
+ bit CRTS_IFLOW,b ; yes, enable RTS if needed\r
jr z,a0i_1 ; no needed\r
di ; needed, enable\r
in0 a,(cntla0)\r
ei\r
out0 (cntla0),a\r
a0i_1:\r
+ bit IXOFF,b ; XON/XOFF on input?\r
+ jr z,a0i_2 ; no\r
+ di\r
+ set TDC1,(ix+oint.stat) ;\r
+ in0 a,(stat0) ;\r
+ or M_TIE ;\r
+ ei\r
+ out0 (stat0),a ;\r
+a0i_2:\r
ld a,c\r
pop ix\r
ret\r
jr nz,a1i_2 ; no, just get char\r
bit IXOFF,(ix+oint.fflags) ; XON/XOFF on input?\r
jr z,a1i_2 ; no\r
-\r
di\r
set TDC1,(ix+oint.stat) ;\r
in0 a,(stat1) ;\r
- set TIE,a ;\r
+ or M_TIE, ;\r
out0 (stat1),a ;\r
ei\r
a1i_2:\r