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

finalizo ZX3

This commit is contained in:
antoniovillena 2023-03-25 17:44:11 +01:00
parent 976e3ef1ad
commit 58fab07b4c
2 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
SD/BIN/BPLUGINS/ZX3 Normal file
View File

Binary file not shown.

26
utils/zx3.asm
View File

@ -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