52 lines
1.0 KiB
ArmAsm
52 lines
1.0 KiB
ArmAsm
; After powering sound off then on, NR12, NR14, and NR44
|
|
; are clear.
|
|
.define REQUIRE_CGB 1
|
|
.include "shell.inc"
|
|
.include "apu.s"
|
|
|
|
main:
|
|
call sync_apu
|
|
|
|
ld a,$FF
|
|
call fill_apu_regs
|
|
|
|
; Power down for a moment
|
|
wreg NR52,$00
|
|
wreg NR41,-$12
|
|
wreg NR12,$F0
|
|
delay_msec 100
|
|
wreg NR52,$80
|
|
|
|
set_test 2,"Powering off should clear NR12"
|
|
call sync_apu
|
|
wreg NR14,$80
|
|
lda NR52
|
|
and $01
|
|
jp nz,test_failed
|
|
|
|
set_test 3,"Powering off should clear NR13"
|
|
call sync_apu
|
|
wreg NR10,$11
|
|
wreg NR12,$08
|
|
wreg NR14,$80
|
|
delay_apu 20
|
|
lda NR52
|
|
and $01
|
|
jp z,test_failed
|
|
|
|
set_test 4,"Powering off should clear NR41"
|
|
call sync_apu
|
|
delay_clocks 8192 ; avoids extra length clocking
|
|
wreg NR42,$08
|
|
wreg NR44,$C0
|
|
delay_apu 63
|
|
lda NR52
|
|
and $08
|
|
jp z,test_failed
|
|
delay_apu 1
|
|
lda NR52
|
|
and $08
|
|
jp nz,test_failed
|
|
|
|
jp tests_passed
|