blob: 6a2750362f1a17e91f9e3c3583579b8852424cbf (
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
43
44
45
|
.include "atari.inc"
.import _bell_type
.export _bell
DISTVOL = $a8
PITCH = $40
JIFFIES = $03
_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 #$08
sta COLOR4
lda #JIFFIES
sta CDTMV2
done:
rts
bell_callback:
lda #0
sta AUDC1
sta AUDF1
sta COLOR4
lda #JIFFIES
sta CDTMV2
rts
|
