Beta provisional que resuelve un bug al utilizar SDs con clusteres grandes

This commit is contained in:
antoniovillena 2016-08-12 11:32:40 +02:00
parent 18eb0cb261
commit a24b925057
2 changed files with 15 additions and 7 deletions

View File

@ -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

View File

@ -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