diff options
author | Leo C | 2019-05-27 00:38:33 +0200 |
---|---|---|
committer | Leo C | 2019-05-27 00:38:33 +0200 |
commit | e8b62d9ac855de6439580c15ee12f496a94c5e5d (patch) | |
tree | bec60e59ca9d2fdd67c41fc6b13c0ada2207d5a9 | |
parent | a26eb60cd97a29ac5179178d75755e90d6f95272 (diff) | |
download | z180-stamp-cpm3-e8b62d9ac855de6439580c15ee12f496a94c5e5d.zip |
Remove 'inidone' initialisation bypassing.
-rw-r--r-- | cbios/ascii.180 | 7 | ||||
-rw-r--r-- | cbios/boot.180 | 5 | ||||
-rw-r--r-- | cbios/conbuf.180 | 4 | ||||
-rw-r--r-- | cbios/config.inc | 3 | ||||
-rw-r--r-- | cbios/msgbuf.180 | 18 |
5 files changed, 0 insertions, 37 deletions
diff --git a/cbios/ascii.180 b/cbios/ascii.180 index 9b9566a..3ffa931 100644 --- a/cbios/ascii.180 +++ b/cbios/ascii.180 @@ -111,13 +111,6 @@ IOCTL_MAX equ ($-ioctl_ftab)/2 ;
asci_ioctl:
- ld a,b
- cp 1
- jr nz,asioc_1
- ld a,(inidone)
- cp inidoneval
- ret z
-asioc_1:
push hl
ex (sp),ix
ld (ix+o.absdev),b
diff --git a/cbios/boot.180 b/cbios/boot.180 index 566f190..9594459 100644 --- a/cbios/boot.180 +++ b/cbios/boot.180 @@ -39,17 +39,12 @@ tpa$bank equ 0 dseg ; init done from banked memory
hwinit:
- ld a,(INIDONE)
- and 80h
- cp INIDONEVAL
- jr z,hwini_skip
ld hl,hwini_tab
call ioini1l
ld a,0c3h
ld hl,boot
ld (0),a
ld (1),hl
-hwini_skip:
call msginit
call cpu_frq
ld (f_cpu),hl
diff --git a/cbios/conbuf.180 b/cbios/conbuf.180 index a9e1ec6..99b1c3a 100644 --- a/cbios/conbuf.180 +++ b/cbios/conbuf.180 @@ -38,10 +38,6 @@ ff_dev: ;
dseg
ff.init:
- ld a,(INIDONE)
- cp INIDONEVAL
- ret z
-
ld ix,ci.fifo
call bufinit
ld ix,co.fifo
diff --git a/cbios/config.inc b/cbios/config.inc index a2cbc6e..fe1b1f5 100644 --- a/cbios/config.inc +++ b/cbios/config.inc @@ -131,9 +131,6 @@ CWAITROM equ 2 shl MWI0 DDTZRSTVEC equ 030h ;DDTZ Restart vector (breakpoints)
-INIDONE equ 03Fh ;CP/M skip hw init, if this address
-INIDONEVAL equ 080h ; is set to this value.
-
mtx.fifo_len equ 64 ;Message transfer fifos
mtx.fifo_id equ 0 ; This *must* have #0
mrx.fifo_len equ 64
diff --git a/cbios/msgbuf.180 b/cbios/msgbuf.180 index 6c70261..d24bd61 100644 --- a/cbios/msgbuf.180 +++ b/cbios/msgbuf.180 @@ -27,24 +27,6 @@ irx equ 1*2 ;
dseg
msginit:
- ld a,(INIDONE)
- cp INIDONEVAL
- jr nz,msgi_1
-
- ld hl,(040h)
- ld a,(040h+2)
- call phy2log
-
- ld a,l
- or h
- jr z,msgi_1
-
- ld de,fifolst
- ld bc,4*2
- ldir
- ret
-
-msgi_1:
ld a,(043h)
;TODO: value should be 0
|