From 61afd42b6b60b267cb53661c9af7dd5ba4b7ab24 Mon Sep 17 00:00:00 2001
From: antoniovillena <>
Date: Sat, 29 Jul 2023 11:25:09 +0200
Subject: [PATCH] arreglo plugin ZX3

---
 SD/BIN/BPLUGINS/ZX3 | Bin 663 -> 739 bytes
 utils/zx3.asm       |  47 +++++++++++++++++++++++++++++++++++++++-----
 2 files changed, 42 insertions(+), 5 deletions(-)

diff --git a/SD/BIN/BPLUGINS/ZX3 b/SD/BIN/BPLUGINS/ZX3
index 7a5cf55061eb6a862c51f10fe5b6af80e109b095..57e0053d8818f7042a40ef421f5b4dc83cc7716f 100644
GIT binary patch
delta 365
zcmbQv`j~Zsv4L?@kiV}&UVe!}QGR|&Y6`>2vp1TU8Gr=S{I?Yl2ohnuCaEEQ*0^b6
zvMm#kT%@dS+~k&-lM2?FmS36&)T#Km>HI>iS4~!Lnl#1#&9XNT0%>?-0@N^BiBT6s
z1u`mus8U815H*`oD%H+Gk>SA2vo=k_H}C2mvTlT1FKoy7wo>uK|MhPZ-)6q8v=dNd
z`0%zsPT}n$7OY5C;i;{{1F&1~))@W&57ux~@WX$g*^|#PsyM*>#RgUbw?`3V&)dMa
zk#7qj5(k>#awtkC8!_pdfr5g=R)d>ErurGb!b(Nkrl)Y#tf1g}#;EWMY|cqW>%R}*
LE@u1pcJWI9@Ajdt

delta 289
zcmaFNI-PZbvBC4kAb($ly!;Y{qWt`l)D(u3XM38M8Gr=S{I?Yl2ohnuCaEEQ_IcyP
zWLqX6xky?4d81oqPAXVyT7GFBP^aSbrt=H6<~3O@Xwnq_H_P5Y2&CbS2~fjiB}QEk
z709RrqDmQ6K-6qTDapI80<3pyjQ;<(b5LYBaP#bkM&X-xbq`rLPL^U)ae%pn4eSQE
z(-iF(-&Vd2d>i?;5F%011eZfmI=PNX-wfn@4qFXw4w>p_{0b`-KQ=yvt7Zjx@foAS
UFR(c$8Lj_5e7l(K-`mA60WoHLr~m)}

diff --git a/utils/zx3.asm b/utils/zx3.asm
index 3b84779..0e555eb 100644
--- a/utils/zx3.asm
+++ b/utils/zx3.asm
@@ -164,11 +164,7 @@ Listo           inc     l
                 ld      a, (hl)
                 cp      d
                 jr      nz, Strcmp
-Comprob         ld      b, ixl
-                djnz    Lastbyte
-                ld      a, ixh
-                ld      ($ffff), a
-Lastbyte        ld      a, $40
+Comprob         ld      a, $40
                 ld      hl, $c000
                 exx
                 call    wrflsh
@@ -176,6 +172,47 @@ Lastbyte        ld      a, $40
                 exx
                 dec     ixl
                 jp      nz, Bucle
+                wreg    flash_cs, 0     ; activamos spi, enviando un 0
+                wreg    flash_spi, $13
+                ld      a, 1
+                out     (c), a
+                ld      hl, $fff0
+                xor     a
+                out     (c), h
+                out     (c), l
+                out     (c), a
+                ld      a, $10
+                ld      hl, $f000
+                in      f, (c)
+rdfls1          ld      e, $20
+rdfls2          ini
+                inc     b
+                ini
+                inc     b
+                ini
+                inc     b
+                ini
+                inc     b
+                ini
+                inc     b
+                ini
+                inc     b
+                ini
+                inc     b
+                ini
+                inc     b
+                dec     e
+                jr      nz, rdfls2
+                dec     a
+                jr      nz, rdfls1
+                wreg    flash_cs, 1
+                ld      a, ixh
+                ld      ($ffff), a
+                ld      a, $10
+                ld      hl, $f000
+                exx
+                ld      de, $fff0
+                call    wrflsh
                 ld      bc, zxuno_port
                 ld      hl, (Slot+1)
                 ld      a, core_addr