]> cloudbase.mooo.com Git - z180-stamp-cpm3.git/commitdiff
Remove 'inidone' initialisation bypassing.
authorLeo C <erbl259-lmu@yahoo.de>
Sun, 26 May 2019 22:38:33 +0000 (00:38 +0200)
committerLeo C <erbl259-lmu@yahoo.de>
Sun, 26 May 2019 22:38:33 +0000 (00:38 +0200)
cbios/ascii.180
cbios/boot.180
cbios/conbuf.180
cbios/config.inc
cbios/msgbuf.180

index 9b9566a4011779c0d5d927fc384b95bb6fd996b2..3ffa931cf6da387cdf1725883377ccaa0c086d22 100644 (file)
@@ -111,13 +111,6 @@ IOCTL_MAX equ      ($-ioctl_ftab)/2
 ;\r
 \r
 asci_ioctl:\r
-       ld      a,b\r
-       cp      1\r
-       jr      nz,asioc_1\r
-       ld      a,(inidone)\r
-       cp      inidoneval\r
-       ret     z\r
-asioc_1:\r
        push    hl\r
        ex      (sp),ix\r
        ld      (ix+o.absdev),b\r
index 566f19012dcabe8dc6ece5184b2db2677e72b6cd..9594459b8cbc25687b4ba291cc2678b82d0b2c66 100644 (file)
@@ -39,17 +39,12 @@ tpa$bank equ        0
        dseg                    ; init done from banked memory\r
 \r
 hwinit:\r
-       ld      a,(INIDONE)\r
-       and     80h\r
-       cp      INIDONEVAL\r
-       jr      z,hwini_skip\r
        ld      hl,hwini_tab\r
        call    ioini1l\r
        ld      a,0c3h\r
        ld      hl,boot\r
        ld      (0),a\r
        ld      (1),hl\r
-hwini_skip:\r
        call    msginit\r
        call    cpu_frq\r
        ld      (f_cpu),hl\r
index a9e1ec6fb704334589f9712cfd90bb7d86220135..99b1c3a768a903706b0719a3a23e830bc6a19e40 100644 (file)
@@ -38,10 +38,6 @@ ff_dev:
 ;\r
        dseg\r
 ff.init:\r
-       ld      a,(INIDONE)\r
-       cp      INIDONEVAL\r
-       ret     z\r
-\r
        ld      ix,ci.fifo\r
        call    bufinit\r
        ld      ix,co.fifo\r
index a2cbc6eca134f9cac5a6b752cc18a021df959788..fe1b1f5ad37fe99fbc8cbe8f154b27ecb6c60128 100644 (file)
@@ -131,9 +131,6 @@ CWAITROM    equ     2 shl MWI0
 \r
 DDTZRSTVEC     equ     030h            ;DDTZ Restart vector (breakpoints)\r
 \r
-INIDONE                equ     03Fh            ;CP/M skip hw init, if this address\r
-INIDONEVAL     equ     080h            ;    is set to this value.\r
-\r
 mtx.fifo_len   equ     64              ;Message transfer fifos\r
 mtx.fifo_id    equ     0               ;    This *must* have #0\r
 mrx.fifo_len   equ     64\r
index 6c702610685fb6457a6709c83deaecdf87de2f2f..d24bd61073ea83fa422a45952fe51bb992dd188a 100644 (file)
@@ -27,24 +27,6 @@ irx  equ     1*2
 ;\r
        dseg\r
 msginit:\r
-       ld      a,(INIDONE)\r
-       cp      INIDONEVAL\r
-       jr      nz,msgi_1\r
-\r
-       ld      hl,(040h)\r
-       ld      a,(040h+2)\r
-       call    phy2log\r
-\r
-       ld      a,l\r
-       or      h\r
-       jr      z,msgi_1\r
-\r
-       ld      de,fifolst\r
-       ld      bc,4*2\r
-       ldir\r
-       ret\r
-\r
-msgi_1:\r
        ld      a,(043h)\r
 \r
 ;TODO: value should be 0\r