falso
/
zxuno-git
mirror of https://github.com/zxdos/zxuno.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

bug ZX3

This commit is contained in:
antoniovillena 2023-03-25 20:12:37 +01:00
parent 1ec436770d
commit 862e877b91
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
SD/BIN/BPLUGINS/ZX3
View File

Binary file not shown.

15
utils/zx3.asm
View File

@ -81,12 +81,12 @@ FileName ld hl, 0
ret ret
FileFound ld hl, Stat FileFound ld hl, Stat
esxdos F_FSTAT esxdos F_FSTAT
ld hl, (Stat+7) ld hl, (Stat+7) ;4000
ld a, (Stat+9) ld a, (Stat+9) ;0c
add hl, hl add hl, hl ;8000
adc a, a adc a, a ;18
add hl, hl add hl, hl ;0000
adc a, a adc a, a ;31
ld de, 0 ld de, 0
sbc hl, de sbc hl, de
jr z, Inc1 jr z, Inc1
@ -146,12 +146,12 @@ ReadOK ld a, $40
out (c), a out (c), a
include Print.inc include Print.inc
wrflsh ex af, af' wrflsh ex af, af'
ld a, 1
wrfls1 wreg flash_cs, 0 ; activamos spi, enviando un 0 wrfls1 wreg flash_cs, 0 ; activamos spi, enviando un 0
wreg flash_spi, 6 ; envío write enable wreg flash_spi, 6 ; envío write enable
wreg flash_cs, 1 ; desactivamos spi, enviando un 1 wreg flash_cs, 1 ; desactivamos spi, enviando un 1
wreg flash_cs, 0 ; activamos spi, enviando un 0 wreg flash_cs, 0 ; activamos spi, enviando un 0
wreg flash_spi, $21 ; envío sector erase wreg flash_spi, $21 ; envío sector erase
ld a, 1
out (c), a out (c), a
out (c), d out (c), d
out (c), e out (c), e
@ -163,6 +163,7 @@ wrfls2 call waits5
wreg flash_cs, 1 ; desactivamos spi, enviando un 1 wreg flash_cs, 1 ; desactivamos spi, enviando un 1
wreg flash_cs, 0 ; activamos spi, enviando un 0 wreg flash_cs, 0 ; activamos spi, enviando un 0
wreg flash_spi, $12 ; page program wreg flash_spi, $12 ; page program
inc a
out (c), a out (c), a
out (c), d out (c), d
out (c), e out (c), e