blob: e64fb6b617547aca909dd153df420e3895cbd422 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
.include "atari.inc"
.import _bell_type
.export _bell
DISTVOL = $a8
PITCH = $40
JIFFIES = $03
FLASH_COLOR = $08
_bell:
lda #<bell_callback
sta CDTMA2
lda #>bell_callback
sta CDTMA2+1
lda _bell_type
beq done
lda #JIFFIES
sta CDTMV2
lda _bell_type
and #1
beq check_flash
lda #DISTVOL
sta AUDC1
lda #PITCH
sta AUDF1
check_flash:
lda _bell_type
and #2
beq done
lda #FLASH_COLOR
sta COLOR4
done:
rts
bell_callback:
lda #0
sta AUDC1
sta AUDF1
sta COLOR4
rts
|
