mirror of
https://github.com/koute/pinky.git
synced 2025-04-02 10:31:50 -04:00
36 lines
541 B
ArmAsm
36 lines
541 B
ArmAsm
; Verifies all length table entries
|
|
|
|
.include "apu_shell.inc"
|
|
|
|
main: test_main_chans test
|
|
jmp tests_passed
|
|
|
|
test: loop_n_times test_entry,32
|
|
rts
|
|
|
|
test_entry:
|
|
tay
|
|
setb SNDMODE,0
|
|
|
|
; Load
|
|
tya
|
|
asl a
|
|
asl a
|
|
asl a
|
|
ldx chan_off
|
|
sta $4003,x
|
|
|
|
; Verify
|
|
lda table,y
|
|
tax
|
|
dex
|
|
: setb SNDMODE,$C0 ; clock length counter
|
|
dex
|
|
bne :-
|
|
jsr len_should_be_1
|
|
rts
|
|
|
|
table: .byte 10, 254, 20, 2, 40, 4, 80, 6
|
|
.byte 160, 8, 60, 10, 14, 12, 26, 14
|
|
.byte 12, 16, 24, 18, 48, 20, 96, 22
|
|
.byte 192, 24, 72, 26, 16, 28, 32, 30
|