From 862e877b9173f80da391bd9534e8eb96eb8f3c6b Mon Sep 17 00:00:00 2001
From: antoniovillena <>
Date: Sat, 25 Mar 2023 20:12:37 +0100
Subject: [PATCH] bug ZX3

---
 SD/BIN/BPLUGINS/ZX3 | Bin 551 -> 552 bytes
 utils/zx3.asm       |  15 ++++++++-------
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/SD/BIN/BPLUGINS/ZX3 b/SD/BIN/BPLUGINS/ZX3
index 17f16fedcb8d12c52b6aa1216237ae86650af587..98246460d82a0d8e4ab627ab4554aa824053e4c5 100644
GIT binary patch
delta 171
zcmZ3^vVvuTo3LyXGs9WgCZ_psD<JT!?8L}=PK~DX3$^r{tPCeUT<8jvhbUqLu^8c8
zMLWi~m2U&zM!qeCNU%1+<<OK0*-SphsBH$)&S9&;%^_3$j9+1;VpHQ&xDHm3{m&Q`
Veu2$8$!Pue;oHS*|K2Ws2>`oULHhsz

delta 170
zcmZ3%vYcgto3Kn1Gs9V#CZ_psD<JT!%*4ogPW7hq3$^r`tPCbTT<BuQ2vh-4#s*>`
zxQcHp-v+*od|L<+W@*BuP-yaTMr|{YUJhFgZVs91XZ#AQ6k8gf!ZomhtbfL+@C$6z
RNk;3x58p0k`}cP7O8|31L974(

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