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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
/* Sounds for Taipan! Atari 800 port.
Made by capturing the Apple II audio and taking wild guesses,
then refining them.
I'm not shooting for Atari sounds that are identical to the
Apple ones: (a) it's impossible anyway, and (b) the Apple
sounds are a bit harsh to the ear. Hopefully these sound
a little smoother while still being pretty close.
*/
#include <atari.h>
#include <peekpoke.h>
#include "sounds.h"
int sound_disabled = 0x06ff;
/* to build standalone xex that just plays the 3 sounds:
cl65 -DTESTXEX -t atari -o sounds.xex sounds.c
*/
#ifdef TESTXEX
#include <stdio.h>
void jsleep(unsigned int j) {
POKE(20,0);
while(PEEK(20) < j)
;
}
#else
extern void __fastcall__ jsleep(unsigned int j);
#endif
void init_sound(unsigned char audc1) {
if(PEEK(sound_disabled)) return;
/* init POKEY audio */
POKEY_WRITE.audctl = 0;
POKEY_WRITE.skctl = 3;
POKEY_WRITE.audc1 = audc1; /* SOUND 0,x,audc1>>4,audc1&0x0f */
}
void stop_sound(void) {
POKEY_WRITE.audc1 = 0x00; /* SOUND 0,x,0,0 */
}
void bad_joss_sound(void) {
unsigned char i;
init_sound(0xaa);
for(i=0; i<10; i++) {
POKEY_WRITE.audf1 = 80-i*8;
jsleep(1);
}
stop_sound();
}
void good_joss_sound(void) {
unsigned char i, j;
init_sound(0xaa);
for(j=0; j<3; j++) {
for(i=0; i<4; i++) {
POKEY_WRITE.audf1 = 20-i*5;
jsleep(2);
}
}
stop_sound();
}
void under_attack_sound(void) {
unsigned char i, j;
init_sound(0xaa);
for(j=0; j<3; j++) {
for(i=0; i<3; i++) {
POKEY_WRITE.audf1 = 20-i*3;
jsleep(3);
}
}
stop_sound();
}
#ifdef NEW_SOUNDS
void cannon_sound(void) {
unsigned char i;
init_sound(0xaa);
for(i = 20; i < 40; i += 1) {
POKEY_WRITE.audf1 = i;
jsleep(1);
}
init_sound(0x8a);
POKEY_WRITE.audf1 = 120;
for(i = 15; i > 3; i--) {
POKEY_WRITE.audc1 = 0x80 | i;
jsleep(3);
}
stop_sound();
}
/* this isn't a very good explosion yet */
void weve_been_hit_sound(void) {
unsigned char i;
init_sound(0x8a);
POKEY_WRITE.audf1 = 200;
for(i = 15; i > 3; i--) {
POKEY_WRITE.audc1 = 0x80 | i;
POKEY_WRITE.audf1 = 200-i*2;
jsleep(4);
}
stop_sound();
}
#endif
#ifdef TESTXEX
int main(void) {
for(;;) {
puts("Bad joss, Taipan!");
bad_joss_sound();
jsleep(30);
puts("Good joss, Taipan!");
good_joss_sound();
jsleep(30);
puts("1.0E+97 hostile ships approaching, Taipan!");
under_attack_sound();
jsleep(30);
#ifdef NEW_SOUNDS
puts("We're firing on them!");
cannon_sound();
jsleep(30);
puts("We've been hit!");
weve_been_hit_sound();
jsleep(30);
#endif
}
hang: goto hang;
return 0;
}
#endif
|
