50 lines
972 B
ArmAsm
50 lines
972 B
ArmAsm
; Writes to wave RAM while playing
|
|
|
|
.define REQUIRE_DMG 1
|
|
;.define REQUIRE_CGB 1
|
|
.include "shell.inc"
|
|
.include "apu.s"
|
|
|
|
main:
|
|
loop_n_times test,69
|
|
|
|
; CGB behaves erratically, so DMG-only for now
|
|
check_crc_dmg_cgb $3B4538A9,$2B27544E
|
|
jp tests_passed
|
|
|
|
test:
|
|
add $99
|
|
ld b,a
|
|
|
|
; Reload wave and have its first
|
|
; sample read occur 2 clocks earlier
|
|
; each loop iteration
|
|
ld hl,wave
|
|
call load_wave
|
|
wreg NR30,$80 ; enable
|
|
wreg NR32,$00 ; silent
|
|
ld a,b
|
|
sta NR33 ; period
|
|
wreg NR34,$87 ; start
|
|
|
|
; Write to wave
|
|
wreg NR33,-2 ; period = 4
|
|
delay_clocks 168
|
|
wreg WAVE,$F7
|
|
|
|
; Print wave RAM
|
|
wreg NR30,0
|
|
delay 1000
|
|
ld hl,WAVE
|
|
- ld a,(hl+)
|
|
call print_a
|
|
bit 6,l
|
|
jr z,-
|
|
call print_newline
|
|
|
|
ret
|
|
|
|
wave:
|
|
.byte $00,$11,$22,$33,$44,$55,$66,$77
|
|
.byte $88,$99,$AA,$BB,$CC,$DD,$EE,$FF
|