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
149
150
151
152
153
154
155
156
|
/* this file is no longer used. the sound code was rewritten in asm,
and lives in soundasm.s. This file is kept purely for reference. */
/* 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"
/* location we will look at, to see if sound is disabled.
0 = enabled, 1 = disabled. If you change this here,
change it in newtitle.s also! */
static 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
/* set volume 10, distortion 10 on audio channel 0 */
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 */
}
/* silence audio channel 0 */
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
|
