2023-05-31 05:15:43 +00:00
|
|
|
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
|
|
|
|
|
|
2023-05-31 21:06:35 +00:00
|
|
|
; read ROM/no-write
|
2023-05-31 05:15:43 +00:00
|
|
|
|
2023-05-31 21:06:35 +00:00
|
|
|
bit $c082
|
2023-05-31 05:15:43 +00:00
|
|
|
|
|
|
|
|
done_play_purple:
|
|
|
|
|
rts
|
|
|
|
|
|
