falso
/
zxuno-git
mirror of https://github.com/zxdos/zxuno.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

actualizo plugin hasta 5 slots

This commit is contained in:
antoniovillena 2023-08-20 13:03:39 +02:00
parent f5fa714560
commit 0f687643ab
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
SD/BIN/BPLUGINS/ZX3
View File

Binary file not shown.

20
utils/zx3.asm
View File

@ -86,22 +86,26 @@ FileFound ld hl, Stat
esxdos F_FSTAT
ld hl, (Stat+7)
ld a, (Stat+9)
add hl, hl
rla
cp $9a
ccf
jr nc, LengthOk
cp $5e
jr c, LengthOk
call Print
dz 'File too long'
ret
LengthOk adc hl, hl
LengthOk add hl, hl
rla
adc hl, hl
rla
jr z, Inc1
inc a
Inc1 ld hl, Slot+2
cp $ec
jr c, Cafac
cp $34
jr c, Tob3
ld (hl), $a1
jr UltSlot
Cafac cp $ec
jr c, AntPen
ld (hl), $b3
Tob3 ld (hl), $b3
jr UltSlot
AntPen cp $a4
jr c, PenUlt