From 58fab07b4c4f6b90f0e0a4038bbaabebeeda4ab7 Mon Sep 17 00:00:00 2001
From: antoniovillena <>
Date: Sat, 25 Mar 2023 17:44:11 +0100
Subject: [PATCH] finalizo ZX3

---
 SD/BIN/BPLUGINS/ZX3 | Bin 0 -> 547 bytes
 utils/zx3.asm       |  26 ++++++++++++++++++++------
 2 files changed, 20 insertions(+), 6 deletions(-)
 create mode 100644 SD/BIN/BPLUGINS/ZX3

diff --git a/SD/BIN/BPLUGINS/ZX3 b/SD/BIN/BPLUGINS/ZX3
new file mode 100644
index 0000000000000000000000000000000000000000..dd90dbc7d1f44c27ba85ef7afee32c420f21040d
GIT binary patch
literal 547
zcmb18atdGof~W{%g@T;Y^vpa3U4_KFlKi~P{IblPoYcHT2BqB%jMjhN7P7o8_~hDf
zwzM(G-&Y|ozeJ%ZKffe3h2i8`i6&+SAi*^MZ3P5^L>RA0YKQ|>d*&tQ7Zs%@mnfv=
zBo=2VcsetjwBu%dTgmda;+ehCl!k8y-d3KS1+v4A8z^eW@V3&9{p9-dod%LX?ZGYz
z$%#cNU<)(zic^cgR<bcFGBBK<Wn|fCAPiLGmYI_ZR*{xpng?`|qH@#ug<4uoRys|Z
z{hIxP3=D6BG#G9EEwK=SsV>RSSIEiFOJ_LwFUEpZQM1wP`rUk>ByV_8W=UpVx<YV(
zC&b0P(F}qNFK^oA-@JPL;!Q<{1B?s~b`0m|8t?;^2c;&aD7Y3C<re{c<p7ktdA6=m
z_~u<*h4VlUX=yat{drqy!=m#x^KIhWLa?tZAKG27Q{Jxd>m|o}c+jzdgAC49RAU6H
z4}2R53>r{ao@Ho)%b_V{f+(|7xXEb!m*wqZtjJd3=}oXf9JU(V95U6<_!ZVDHZ(qk
c8_EibxMz$Czrd<a0*!k3b}`$(w~Jo_09Oj#wEzGB

literal 0
HcmV?d00001

diff --git a/utils/zx3.asm b/utils/zx3.asm
index d0848f6..ee6a56b 100644
--- a/utils/zx3.asm
+++ b/utils/zx3.asm
@@ -81,17 +81,30 @@ FileName        ld      hl, 0
                 ret
 FileFound       ld      hl, Stat
                 esxdos  F_FSTAT
+                ld      hl, (Stat+7)
                 ld      a, (Stat+9)
-                cp      $29
+                add     hl, hl
+                adc     a, a
+                add     hl, hl
+                adc     a, a
+                ld      de, 0
+                sbc     hl, de
+                jr      z, Inc1
+                inc     a
+Inc1            cp      $a4
                 jr      c, LengthOk
                 call    Print
                 dz      'File too long'
                 ret
-LengthOk        call    Print
+LengthOk        cp      $5c
+                jr      c, UltSlot
+                ld      hl, Slot+2
+                ld      (hl), $d7
+UltSlot         ld      ixl, a
+                call    Print
                 db      13, 'Writing SPI flash', 13
-                dz      '[', 6, '      ]', 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8
-                ld      ixl, $15
-Slot            ld      de, $d700 ; $e900
+                dz      '['
+Slot            ld      de, $e900
                 exx
 Bucle           ld      a, 'o'
                 exx
@@ -121,8 +134,9 @@ ReadOK          ld      a, $40
                 out     (c), a
                 inc     a
                 inc     b
-                out     (c), h
+                inc     l
                 out     (c), l
+                out     (c), h
                 out     (c), 0
                 dec     b
                 out     (c), a