Arreglo bug

This commit is contained in:
antoniovillena 2020-08-13 19:07:24 +02:00
parent 6a396592e2
commit 5bf2ae58ba
6 changed files with 12 additions and 11 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -2352,18 +2352,19 @@ rotp call readat0 ; read 512 bytes of entries (16 entries)
djnz rotp
erfnf ld ix, cad78
terror jp ferror
saba
saba sub 'N'
jr z, sab2
IF version=3
sub 'D'
sub 'D'-'N'
ELSE
IF version<3
sub $30+version
sub $30+version-'N'
ELSE
sub $2f+version
sub $2f+version-'N'
ENDIF
ENDIF
jr nz, erfnf
call testl
sab2 call testl
jr nz, erfnf ; wrong length
ld l, (ix+$1a) ; first cluster of the file
ld h, (ix+$1b)
@ -2444,17 +2445,19 @@ otve call readata
erfnf2 jp erfnf
sabe pop bc
pop hl
sub 'N'
jr z, sab3
IF version=3
sub 'D'
sub 'D'-'N'
ELSE
IF version<3
sub $30+version
sub $30+version-'N'
ELSE
sub $2f+version
sub $2f+version-'N'
ENDIF
ENDIF
jr nz, erfnf2
call testl
sab3 call testl
jr nz, erfnf2
ld b, (ix+$14)
ld l, (ix+$1a)

View File

@ -393,8 +393,6 @@ cad115 defb 'Slot occupied, select', 0
defb 'another or delete a', 0
defb 'ROM to free it', 0
cad116 defb 'Disable for', 0
defb 'better compa-', 0
defb 'tibility with', 0
defb 'old games', 0, 0
IF recovery=1
cad117 defb 'Remove jumpers', 0