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
|
||||
ld l, (ix+$1a) ; first cluster of the file
|
||||
ld h, (ix+$1b)
|
||||
ld ix, $c000
|
||||
ld ix, $e000
|
||||
bucop push hl ; save current cluster
|
||||
ld b, e
|
||||
call calcs ; translate cluster to address
|
||||
|
@ -1675,7 +1675,7 @@ sabe pop bc
|
|||
ld b, (ix+$14)
|
||||
ld l, (ix+$1a)
|
||||
ld h, (ix+$1b)
|
||||
ld ix, $c000
|
||||
ld ix, $e000
|
||||
bucap push hl
|
||||
call calcs
|
||||
call trans
|
||||
|
@ -1771,6 +1771,14 @@ desc pop hl
|
|||
trans push bc
|
||||
ld a, (tmpbu2+$d)
|
||||
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
|
||||
inc ixh
|
||||
inc ixh
|
||||
|
@ -1788,14 +1796,14 @@ otv2 sub 6
|
|||
call prsta1
|
||||
ld de, (tmpbu2+$1e) ; SPI address, initially 0000
|
||||
exx
|
||||
ld a, $40
|
||||
ld hl, $c000
|
||||
ld a, $20
|
||||
ld hl, $e000
|
||||
exx
|
||||
call wrflsh
|
||||
inc de
|
||||
ld (tmpbu2+$1e), de
|
||||
exx
|
||||
ld ix, $c000
|
||||
ld ix, $e000
|
||||
pop de
|
||||
pop hl
|
||||
pop bc
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
cad0 defb 'Core: ',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 'Processor: Z80 3.5MHz', 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
|
||||
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 ' BIOS v0.48 ', $7f, '2016 ZX-Uno Team', 0
|
||||
defb ' BIOS v0.49 ', $7f, '2016 ZX-Uno Team', 0
|
||||
IF recovery=0
|
||||
cad10 defb 'Hardware tests', 0
|
||||
defb $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11, $11
|
||||
|
|
Loading…
Reference in New Issue