seldsk/read/write: remove b0call

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

diff --git a/cbios/misc.180 b/cbios/misc.180
index 28c0123f3b2012c2490c9ae4fc863570545736b2..10eb83c200655b9bde125846d46d6b5ed6f5cfc8 100644 (file)
--- a/cbios/misc.180
+++ b/cbios/misc.180
@@ -1,11 +1,8 @@
 \r
        public intinit\r
-       public bufinit\r
        public cpu_frq\r
        public get_tmr\r
 \r
-       public fifolst\r
-\r
        extrn div32_r,?pmsg\r
        extrn msg.sm,msg.recv,hwl2phy\r
 \r
@@ -156,61 +153,6 @@ get_tmr:
        pop     de\r
        ret\r
 \r
-;--------------------------------------------------------------------\r
-\r
-       dseg\r
-\r
-fifolst:\r
-       rept 4\r
-        dw     0\r
-       endm\r
-\r
-;--------------------------------------------------------------------\r
-\r
-       dseg\r
-\r
-bufinit:\r
-       ld      (ix+o.in_idx),0         ;reset pointers (empty fifo)\r
-       ld      (ix+o.out_idx),0\r
-       ld      a,(ix+o.id)\r
-       ld      hl,fifolst\r
-       ld      e,a\r
-       ld      d,0\r
-       add     hl,de\r
-       add     hl,de\r
-       push    ix\r
-       pop     de\r
-       cp      4\r
-       jr      nc,bfi_skip\r
-\r
-       ld      (hl),e\r
-       inc     hl\r
-       ld      (hl),d\r
-\r
-bfi_skip:\r
-       ex      de,hl\r
-       call    hwl2phy                 ;get phys. address of fifo\r
-       ld      c,a\r
-       ld      a,(ix+o.id)             ;fifo id\r
-       or      a                       ;test if fifo 0\r
-       ret     z\r
-\r
-       ld      b,a\r
-       push    bc                      ;c: bank-addr, b: ignored\r
-       push    hl                      ;address\r
-       ld      c,0\r
-       push    bc                      ;c: function, b:subf\r
-       ld      b,5\r
-       ld      h,c\r
-       ld      l,c\r
-       add     hl,sp\r
-       call    msg.sm\r
-       pop     hl\r
-       pop     hl\r
-       pop     hl\r
-       ret\r
-\r
 ;----------------------------------------------------------------------\r
 \r
-\r
        end\r