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
|
void rot_chariot()
{
c1= c2;
c2= c3;
{
c3.val= 32;
c3.code= 9;
}
}
void init_chariot()
{
{
c3.rep= 0;
c3.freq= 0;
c3.acc= 0;
}
rot_chariot();
rot_chariot();
}
void trait_ph()
{
const array<0,2,integer> deca
= {{300,30,40}};
ptr_tcph= pred(integer,num_ph);
ledeb=swap(t_cph[ptr_tcph]) + deca[typlec];
lefin=swap(t_cph[ptr_tcph+1]) + deca[typlec];
nb_word= lefin - ledeb;
ptr_tcph=(cardinal)ledeb >> 1;
ptr_word = 0;
do {
memw[adword+ ptr_word]= t_cph[ptr_tcph];
ptr_word = ptr_word +2;
ptr_tcph = ptr_tcph+1;
} while (!(ptr_tcph>=((cardinal)lefin >> 1)));
ptr_oct= 0;
ptr_word= 0;
init_chariot();
do {
rot_chariot();
charg_car();
trait_car();
} while (!(ptr_word >= nb_word));
rot_chariot();
trait_car();
entroct(ord('#'));
}
void parole(integer rep, integer ht, integer typ)
{
array<0,500,integer> savph;
integer i;
integer tempo;
if (sonoff) return;
num_ph= rep;
haut= ht;
typlec= typ;
if (typlec!=0)
{
for( i=0; i <= 500; i ++) savph[i]=t_cph[i];
tempo= tempo_bruit;
}
else
if (haut>5) tempo= tempo_f;
else tempo= tempo_m;
addfix= (real)((tempo-addv[0]))/256;
cctable(tbi);
switch (typ) {
case 1 : {
charge_bruit();
/*if zuul then zzuul(adbruit,0,1095);*/
regenbruit();
}
break;
case 2 : {
charge_son();
charge_phbruit();
}
break;
}
trait_ph();
litph(tbi,typ,tempo);
if (typlec!=0)
for( i=0; i <= 500; i ++)
{
t_cph[i]=savph[i];
mlec=typlec;
}
writepal(numpal);
}
|
