From a122b8e78777a5e873628a1ea8dbd067fd5972e1 Mon Sep 17 00:00:00 2001
From: antoniovillena <>
Date: Sun, 20 Aug 2023 22:36:32 +0200
Subject: [PATCH] actualizo plugin hasta 5 slots fix

---
 SD/BIN/BPLUGINS/ZX3 | Bin 754 -> 763 bytes
 utils/zx3.asm       |  12 ++++++++----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/SD/BIN/BPLUGINS/ZX3 b/SD/BIN/BPLUGINS/ZX3
index 868dd728aa595a3f1146682076f467434d8850a6..3e1f98f4cbbdc129522d39d4229df78fad668e39 100644
GIT binary patch
delta 382
zcmeyw`kQrvs`KFnM(aOs3t8S)Jga|O`L^Jbcf(olrXYV`g}nR{g`)iYlGGH2lV?9P
zF*5)OrulCxAP^+Ncui76{H*uH3`>r?>E}BQB!TSZ@*1&?2Esry+%j`g!G@&em*xS@
zQ2gC=exVjqvlUD8zc>papxSqmY`%>KTz6F_b2BQk8YwlM^`30NsHY0FKQ%E$!L_I;
zzlh<aMVMk?qnQEFnRWtiD?tu@pdbiT+03ZQ=skHQqmoESlkm;Ex(ZBpRS)?$LY+GK
zHlw8!$c=UkM*siY2`DmrxGDJI|Jjfxpg~$bll7S79blef1A7Llv5861ju99Vfo~(<
z7D6O$G{NOiluqtt(l-Oy!C|Yx%^_3$j9+1;VrbJ-xN25VSUqD@_ysoSB%}4;hi@0N
J{d>FkB><dqrr`hp

delta 373
zcmey(`iXUds`J4HM(aOs3t8S)Jga|O`L^Jbcf(nyrXYV`g}nR{g`)iYlGGH2lV_hd
zF*5)OrulCxAP^+Ncui76{H)W&3`@52od%LX)=GJeh(-fppb2i7IjLYH((+65fF>w@
zYC6AA>t~bI@1}oo7D7O^A0$~k8Z9^`^D`>4+)Y30G})9<PZel&YGR6lYf({t5yMG~
zFvXlkGXtOt?F8Odg53B(K@h02gHe^yY4SQoB?0dy;hT4L4|z30T{!s(qoowcX?JUk
z{{OcVP-OUUQ}Dz8v))ZWL$ur{n={Ef!2H4n_5)O76O*DHBQO90-$uSIgh-rkg3F;O
zoji?6-wb32hph%ThfMV|eub5aK21;Is#!rn^o&vA7ucMWjMjf2zFo}r@9pB3074|C
A#sB~S

diff --git a/utils/zx3.asm b/utils/zx3.asm
index 21d877b..cb6993f 100644
--- a/utils/zx3.asm
+++ b/utils/zx3.asm
@@ -69,6 +69,7 @@ Normal          ld      a, 0
                 ld      a, 7            ;PLUGIN_OK|PLUGIN_RESTORE_SCREEN|PLUGIN_RESTORE_BUFFERS
                 ret
 Init            xor     a
+                ld      ixh, a
                 esxdos  M_GETSETDRV     ; A = unidad actual
                 jr      nc, SDCard
                 call    Print
@@ -98,7 +99,8 @@ LengthOk        add     hl, hl
                 jr      z, Inc1
                 inc     a
 Inc1            ld      hl, Slot+2
-                jr      c, Cafac
+                jr      nc, Cafac
+                inc     ixh
                 cp      $34
                 jr      c, Tob3
                 ld      (hl), $a1
@@ -116,7 +118,7 @@ PenUlt          cp      $5c
                 ld      (hl), $d7
 UltSlot         ld      ixl, a
                 ld      a, (hl)
-                ld      ixh, a
+                ld      (Mybyte+1), a
                 call    Print
                 db      13, 'Writing SPI flash', 13
                 dz      '['
@@ -178,7 +180,9 @@ Comprob         ld      a, $40
                 inc     de
                 exx
                 dec     ixl
-                jp      nz, Bucle
+                jr      nz, TBucle
+                dec     ixh
+TBucle          jp      nz, Bucle
                 wreg    flash_cs, 0     ; activamos spi, enviando un 0
                 wreg    flash_spi, $13
                 ld      a, 1
@@ -213,7 +217,7 @@ rdfls2          ini
                 dec     a
                 jr      nz, rdfls1
                 wreg    flash_cs, 1
-                ld      a, ixh
+Mybyte          ld      a, 0
                 ld      ($ffff), a
                 ld      a, $10
                 ld      hl, $f000