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

actualizo plugin ZX3

This commit is contained in:
antoniovillena 2023-07-26 21:07:08 +02:00
parent 1ef1709df4
commit a8b004abac
2 changed files with 44 additions and 5 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.

49
utils/zx3.asm
View File

@ -89,14 +89,18 @@ FileFound ld hl, Stat
rla
jr z, Inc1
inc a
Inc1 cp $a4
Inc1 cp $ec
jr c, LengthOk
call Print
dz 'File too long'
ret
LengthOk cp $5c
LengthOk ld hl, Slot+2
cp $a4
jr c, PenUlt
ld (hl), $c5
jr UltSlot
PenUlt cp $5c
jr c, UltSlot
ld hl, Slot+2
ld (hl), $d7
UltSlot ld ixl, a
call Print
@ -118,14 +122,49 @@ Handle ld a, 0
call Print
dz 'Read Error'
ret
ReadOK ld a, $40
ReadOK jr c, Comprob
ld hl, ReadOK
ld (hl), $30
ld bc, zxuno_port
ld a, newreg
out (c), a
inc b
in a, (c)
and %11100000
jr nz, ReadId
call Print
dz 'Unknown core'
ret
ReadId ld hl, $dffe
ld de, $d062
cp %00100000
jr z, Strcmp
ld de, $1063
cp %01000000
jr z, Strcmp
ld d, $60
Strcmp djnz Listo
call Print
dz 'Invalid core'
ret
Listo inc l
inc hl
inc l
ld a, (hl)
inc l
cp e
jr nz, Strcmp
ld a, (hl)
cp d
jr nz, Strcmp
Comprob ld a, $40
ld hl, $c000
exx
call wrflsh
inc de
exx
dec ixl
jr nz, Bucle
jp nz, Bucle
ld bc, zxuno_port
ld hl, (Slot+1)
ld a, core_addr