include "sndregs.inc"
section .vect
include "sndregs.inc"
section .vect
+ jr main ; RST 0
+ dc 6,0
+ dc 6*8, 0 ; RST [1, 7]
jp vblank_isr
TESTDATA_LEN equ 43
jp vblank_isr
TESTDATA_LEN equ 43
call init
; iy is left with YMADDR
ld (iy), YM_OPER
call init
; iy is left with YMADDR
ld (iy), YM_OPER
- ld hl, YMADDR
-.wait: ld a, (hl)
vblank_isr:
ex af, af'
exx
ld hl, frame
inc (hl)
vblank_isr:
ex af, af'
exx
ld hl, frame
inc (hl)
+ ld a, (hl)
+ ld (IPC+1), a