dos33fsprogs/games/sb/play_purple.s
2023-06-05 16:29:18 -04:00

35 lines
434 B
ArmAsm

PURPLE = $D000
PURPLE_LENGTH = 28
play_purple:
; only avail if language card
lda SOUND_STATUS
and #SOUND_IN_LC
beq done_play_purple
; switch in language card
; read/write RAM $d000 bank 1
bit $C083
bit $C083
; call the btc player
lda #<PURPLE
sta BTC_L
lda #>PURPLE
sta BTC_H
ldx #PURPLE_LENGTH ; 28 pages long???
jsr play_audio
; read ROM/no-write
bit $c082
done_play_purple:
rts