mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-01 16:04:55 +00:00
68 lines
847 B
ArmAsm
68 lines
847 B
ArmAsm
|
FISH_SAMPLE = $D000
|
||
|
|
FISH_LENGTH = 17 ; $11
|
||
|
|
BOAT_SAMPLE = $E100
|
||
|
|
BOAT_LENGTH = 20 ; $14
|
||
|
|
|
||
|
|
play_fish:
|
||
|
|
; only avail if language card
|
||
|
|
|
||
|
|
lda SOUND_STATUS
|
||
|
|
and #SOUND_IN_LC
|
||
|
|
beq done_play_fish
|
||
|
|
|
||
|
|
; switch in language card
|
||
|
|
; read/write RAM $d000 bank 1
|
||
|
|
|
||
|
|
bit $C083
|
||
|
|
bit $C083
|
||
|
|
|
||
|
|
; call the btc player
|
||
|
|
|
||
|
|
lda #<FISH_SAMPLE
|
||
|
|
sta BTC_L
|
||
|
|
|
||
|
|
lda #>FISH_SAMPLE
|
||
|
|
sta BTC_H
|
||
|
|
|
||
|
|
ldx #FISH_LENGTH
|
||
|
|
jsr play_audio
|
||
|
|
|
||
|
|
; read ROM/no-write
|
||
|
|
|
||
|
|
bit $c082
|
||
|
|
|
||
|
|
done_play_fish:
|
||
|
|
rts
|
||
|
|
|
||
|
|
|
||
|
|
play_boat:
|
||
|
|
; only avail if language card
|
||
|
|
|
||
|
|
lda SOUND_STATUS
|
||
|
|
and #SOUND_IN_LC
|
||
|
|
beq done_play_boat
|
||
|
|
|
||
|
|
; switch in language card
|
||
|
|
; read/write RAM $d000 bank 1
|
||
|
|
|
||
|
|
bit $C083
|
||
|
|
bit $C083
|
||
|
|
|
||
|
|
; call the btc player
|
||
|
|
|
||
|
|
lda #<BOAT_SAMPLE
|
||
|
|
sta BTC_L
|
||
|
|
|
||
|
|
lda #>BOAT_SAMPLE
|
||
|
|
sta BTC_H
|
||
|
|
|
||
|
|
ldx #BOAT_LENGTH
|
||
|
|
jsr play_audio
|
||
|
|
|
||
|
|
; read ROM/no-write
|
||
|
|
|
||
|
|
bit $c082
|
||
|
|
|
||
|
|
done_play_boat:
|
||
|
|
rts
|