From 8205b7dff5a0f226eef0d0fac70435d76675ba55 Mon Sep 17 00:00:00 2001
From: antoniovillena <>
Date: Wed, 26 Jul 2023 21:56:52 +0200
Subject: [PATCH] accept 4slot ZX3

---
 SD/BIN/BPLUGINS/ZX3 | Bin 642 -> 651 bytes
 utils/zx3.asm       |  21 +++++++++++++--------
 2 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/SD/BIN/BPLUGINS/ZX3 b/SD/BIN/BPLUGINS/ZX3
index ebe6d550dcfea5b0742e17b9f551d7e756cda71d..4168b286fe9fca85c1b2907e1c6c3fd5d735ccb4 100644
GIT binary patch
delta 352
zcmZo-?Pi@|tbe;P$lq5XFTX^gC_ld>HHG2i*@h-&1|Y#S|7`^Xf<zdvNot6ny*)9>
zj`8-yh4OK3jRwMJZ#TMS=A?pkr{$OC0W~XjH=SRoHL1yJN|UDezghMMLNG-o`S}Vt
z`FZIKC*Nj?YcSd<nl=7=W5Hs!S%UB15+Hq4g6&_71(VtJyZL8tPZnj=Qw2ILH8DlO
zwWuh+h~cC~m||3;nE|8qA3K4!l`L;7o;^?y1ggwnRAsz9xsOqa?@6QZ&AYmXEE<7o
zv`i=OW0ZG*d4&z^1-Q=??HJ!yz72dE`L+-uk<kQ~Ls2?emPy|X<a-WV4Q>vZ>Sz24
jD;1wMK834h1%=QvMulHsb51f^|9$v&G26eli(di&7ZQ>W

delta 343
zcmeBXZDO5ZtbeI7$lq5XFTX^gC_ld>HHG2i+43f41|Y#S|7`^Xf<zdvNot6ny)-e&
zj`7mOh4P`cjRwMJFEzSl=A?pkr{$OC0W~W&HJx9m)!Ag#-J~i0HcMQC(dOS93n7@w
zlKgyyocz3WphDfoe@iS_%#KR1{fn_+GP`~^|Lmp7a*TSaKo_MZrYN`;73CK(oU{m2
z3~V$rV6^^YC-AnC<!!~Y2MU5fm4%F|jF%=)XH??5-6(wXuI?fIMxYukoyo@;<sD!?
zU<11x?jc1x#<!Jk1K&ozErdwKH^JpllulM-(l-Nnn!{Fun?t7h8Nb3x#XF5p;i_3d
Z0rQMe;TPDPlZ@7XAHH48_V4ZDmjJc}jl%!{

diff --git a/utils/zx3.asm b/utils/zx3.asm
index 690e2da..8cd01b3 100644
--- a/utils/zx3.asm
+++ b/utils/zx3.asm
@@ -85,17 +85,22 @@ FileFound       ld      hl, Stat
                 ld      a, (Stat+9)
                 add     hl, hl
                 rla
-                adc     hl, hl
-                rla
-                jr      z, Inc1
-                inc     a
-Inc1            cp      $ec
-                jr      c, LengthOk
+                cp      $9a
+                ccf
+                jr      nc, LengthOk
                 call    Print
                 dz      'File too long'
                 ret
-LengthOk        ld      hl, Slot+2
-                cp      $a4
+LengthOk        adc     hl, hl
+                rla
+                jr      z, Inc1
+                inc     a
+Inc1            ld      hl, Slot+2
+                cp      $ec
+                jr      c, AntPen
+                ld      (hl), $b3
+                jr      UltSlot
+AntPen          cp      $a4
                 jr      c, PenUlt
                 ld      (hl), $c5
                 jr      UltSlot