mirror of https://github.com/zxdos/zxuno.git
Beta provisional que resuelve un bug al utilizar SDs con clusteres grandes
This commit is contained in:
parent
18eb0cb261
commit
a24b925057
|
@ -1584,7 +1584,7 @@ saba
|
||||||
jr nz, erfnf ; wrong length
|
jr nz, erfnf ; wrong length
|
||||||
ld l, (ix+$1a) ; first cluster of the file
|
ld l, (ix+$1a) ; first cluster of the file
|
||||||
ld h, (ix+$1b)
|
ld h, (ix+$1b)
|
||||||
ld ix, $c000
|
ld ix, $e000
|
||||||
bucop push hl ; save current cluster
|
bucop push hl ; save current cluster
|
||||||
ld b, e
|
ld b, e
|
||||||
call calcs ; translate cluster to address
|
call calcs ; translate cluster to address
|
||||||
|
@ -1675,7 +1675,7 @@ sabe pop bc
|
||||||
ld b, (ix+$14)
|
ld b, (ix+$14)
|
||||||
ld l, (ix+$1a)
|
ld l, (ix+$1a)
|
||||||
ld h, (ix+$1b)
|
ld h, (ix+$1b)
|
||||||
ld ix, $c000
|
ld ix, $e000
|
||||||
bucap push hl
|
bucap push hl
|
||||||
call calcs
|
call calcs
|
||||||
call trans
|
call trans
|
||||||
|
@ -1771,6 +1771,14 @@ desc pop hl
|
||||||
trans push bc
|
trans push bc
|
||||||
ld a, (tmpbu2+$d)
|
ld a, (tmpbu2+$d)
|
||||||
ld b, a
|
ld b, a
|
||||||
|
ld a, (tmpbu2+$1d)
|
||||||
|
or a
|
||||||
|
jr nz, otva
|
||||||
|
ld a, (tmpbu2+$1c)
|
||||||
|
rrca
|
||||||
|
cp b
|
||||||
|
jr nc, otva
|
||||||
|
ld b, a
|
||||||
otva call readata
|
otva call readata
|
||||||
inc ixh
|
inc ixh
|
||||||
inc ixh
|
inc ixh
|
||||||
|
@ -1788,14 +1796,14 @@ otv2 sub 6
|
||||||
call prsta1
|
call prsta1
|
||||||
ld de, (tmpbu2+$1e) ; SPI address, initially 0000
|
ld de, (tmpbu2+$1e) ; SPI address, initially 0000
|
||||||
exx
|
exx
|
||||||
ld a, $40
|
ld a, $20
|
||||||
ld hl, $c000
|
ld hl, $e000
|
||||||
exx
|
exx
|
||||||
call wrflsh
|
call wrflsh
|
||||||
inc de
|
inc de
|
||||||
ld (tmpbu2+$1e), de
|
ld (tmpbu2+$1e), de
|
||||||
exx
|
exx
|
||||||
ld ix, $c000
|
ld ix, $e000
|
||||||
pop de
|
pop de
|
||||||
pop hl
|
pop hl
|
||||||
pop bc
|
pop bc
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
cad0 defb 'Core: ',0
|
cad0 defb 'Core: ',0
|
||||||
cad1 defm 'http://zxuno.speccy.org', 0
|
cad1 defm 'http://zxuno.speccy.org', 0
|
||||||
defm 'ZX-Uno BIOS v0.48', 0
|
defm 'ZX-Uno BIOS v0.49', 0
|
||||||
defm 'Copyleft ', 127, ' 2016 ZX-Uno Team', 0
|
defm 'Copyleft ', 127, ' 2016 ZX-Uno Team', 0
|
||||||
defm 'Processor: Z80 3.5MHz', 0
|
defm 'Processor: Z80 3.5MHz', 0
|
||||||
defm 'Memory: 512K Ok', 0
|
defm 'Memory: 512K Ok', 0
|
||||||
|
@ -37,7 +37,7 @@ cad8 defm $10, ' ', $10, ' ', $10, 0
|
||||||
cad9 defb $14, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
|
cad9 defb $14, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
|
||||||
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $18, $11
|
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $18, $11
|
||||||
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $15, 0
|
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $15, 0
|
||||||
defb ' BIOS v0.48 ', $7f, '2016 ZX-Uno Team', 0
|
defb ' BIOS v0.49 ', $7f, '2016 ZX-Uno Team', 0
|
||||||
IF recovery=0
|
IF recovery=0
|
||||||
cad10 defb 'Hardware tests', 0
|
cad10 defb 'Hardware tests', 0
|
||||||
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
|
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
|
||||||
|
|
Loading…
Reference in New Issue