Add OPL4 playback and analyzer support
This commit is contained in:
@@ -0,0 +1,22 @@
|
||||
.module wc_findnext
|
||||
.area _CODE
|
||||
WC_ENTRY = 0x6006
|
||||
.globl _wc_findnext
|
||||
_wc_findnext::
|
||||
push ix
|
||||
ld ix, #0
|
||||
add ix, sp
|
||||
ld a, 4(ix) ; A = flags (from stack)
|
||||
ex af, af' ; A' = flags
|
||||
ex de, hl ; DE = entry_buf (SDCC HL → WC DE)
|
||||
ld a, #0x3A
|
||||
call WC_ENTRY
|
||||
ld a, #0
|
||||
jr z, _wc_findnext_end
|
||||
inc a
|
||||
_wc_findnext_end:
|
||||
pop ix
|
||||
; callee cleans 1 byte (flags)
|
||||
pop hl
|
||||
inc sp
|
||||
jp (hl)
|
||||
Reference in New Issue
Block a user