Update IXON flag from character device table (@ctbl)

[z180-stamp-cpm3.git] / cbios / sdio.180

diff --git a/cbios/sdio.180 b/cbios/sdio.180
index d934ef401f61b1d145922af9b89bd036298bee89..88038741d672cb17cdcd238a37d58cca9148453a 100644 (file)
--- a/cbios/sdio.180
+++ b/cbios/sdio.180
@@ -34,8 +34,8 @@
 \r
     ; Port Address Equates\r
 \r
-       include config.inc\r
-       include z180reg.inc\r
+       maclib z180reg.inc\r
+       maclib config.inc\r
 \r
     ; CP/M 3 Disk definition macros\r
 \r
@@ -43,7 +43,7 @@
 \r
     ; Z180 macro library instruction definitions (ignored by slr180)\r
 \r
-       include z180.lib\r
+       maclib z180.lib\r
 \r
     ; common control characters\r
 \r
@@ -164,9 +164,6 @@ sd$init7:
 ;     relative drive number in @rdrv (8 bits)  +1\r
 \r
 sd$login:\r
-       ld      (sdstack),sp\r
-       ld      sp,sdstack\r
-\r
        xor     a\r
        ld      (residual),a\r
        ld      hl,send_msg+1\r
@@ -198,9 +195,6 @@ sd$login:
 \r
        ld      a,(recv_msg_rc)\r
        or      a\r
-\r
-       ld      sp,(sdstack)\r
-\r
        ret     z\r
        ld      hl,0\r
        ld      (@xdph),hl\r
@@ -236,9 +230,6 @@ sd$write:
        ret\r
 \r
 rwc_new_sectors:\r
-       ld      (sdstack),sp\r
-       ld      sp,sdstack\r
-\r
        ld      b,1             ; assume 1 sector to transfer\r
        ld      a,(@cnt)\r
        or      a\r
@@ -289,8 +280,7 @@ retry:
        call    msg.recv\r
        ld      a,(recv_msg_rc)\r
        or      a\r
-;      ret     z               ; check status and return to BDOS if no error\r
-       jr      z,exit\r
+       ret     z               ; check status and return to BDOS if no error\r
 \r
        ld      hl,print_details\r
        call    pr.errors\r
@@ -308,8 +298,6 @@ retry:
        dec     c\r
 e_exit:\r
        ld      a,c\r
-exit:\r
-       ld      sp,(sdstack)\r
        ret\r
 \r
 ;-------------------------------------------------------------------------------\r
@@ -403,10 +391,4 @@ fr$msg19:  db      'FR_INVALID_PARAMETER,',0
 fr$msg20:      db      'short read/write,',0\r
                db      0\r
 \r
-       rept    80\r
-        db     07CH\r
-       endm\r
-sdstack::\r
-       dw      0\r
-\r
        end\r