accept 4slot ZX3

2023-07-26 21:56:52 +02:00 · 2023-07-26 21:56:52 +02:00 · 8205b7dff5
parent c30e9f457a
commit 8205b7dff5
2 changed files with 13 additions and 8 deletions
--- a/SD/BIN/BPLUGINS/ZX3
+++ b/SD/BIN/BPLUGINS/ZX3
--- 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