source: buchla-68k/ram/ettpch.c@ b28a12e

Last change on this file since b28a12e was b28a12e, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Zero redundant declarations.
  • Property mode set to 100644
File size: 4.5 KB
Line 
1/*
2 =============================================================================
3 ettpch.c -- MIDAS tuning table pitch field handlers
4 Version 6 -- 1987-12-21 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#define DEBUGIT 0
9
10#include "ram.h"
11
12/*
13 =============================================================================
14 loc2key() -- convert a screen location to a key number or field code
15 =============================================================================
16*/
17
18int16_t loc2key(int16_t row, int16_t col)
19{
20 if (row EQ 24) {
21
22 if ((col > 6) AND (col < 39))
23 return(-1); /* -1 = name */
24 else if (col > 52)
25 return(-9); /* -9 = table # */
26 else
27 return(-10); /* -10 = not a field */
28
29 } else if (col < 12)
30 return(row); /* 0..23 = key 0..23 */
31 else if ((col > 11) AND (col < 22))
32 return(row + 24); /* 24..47 = key 24..47 */
33 else if ((col > 21) AND (col < 32))
34 return(row + 48); /* 48..71 = key 48..71 */
35 else if ((col > 31) AND (col < 42))
36 return(row + 72); /* 72..95 = key 72..95 */
37 else if ((col > 41) AND (col < 53))
38 return(row + 96); /* 96..119 = key 96..119 */
39 else if ((col > 52) AND (row < 8))
40 return(row + 120); /* 120..127 = key 120..127 */
41 else if (col > 52) {
42
43 if ((row EQ 9) OR (row EQ 10))
44 return(-2); /* -2 = transpose and copy */
45 else if (row EQ 12)
46 return(-3); /* -3 = increment */
47 else if (row EQ 14)
48 return(-4); /* -4 = interpolate */
49 else if (row EQ 16)
50 return(-5); /* -5 = undo */
51 else if (row EQ 18)
52 return(-6); /* -6 = value */
53 else if (row EQ 20)
54 return(-7); /* -7 = store */
55 else if (row EQ 22)
56 return(-8); /* -8 = retrieve */
57 else
58 return(-10); /* -10 = not a field */
59 } else
60 return(-10); /* -10 = not a field */
61}
62
63/*
64
65*/
66
67/*
68 =============================================================================
69 et_tpch() -- load the edit buffer
70 =============================================================================
71*/
72
73int16_t et_tpch(int16_t nn)
74{
75 register int16_t key, val;
76
77 key = loc2key(stcrow, stccol);
78
79 if (key < 0)
80 return(FAILURE);
81
82 val = tuntab[key];
83 cnvc2p(ebuf, (val >> 1));
84 ebflag = TRUE;
85 return(SUCCESS);
86}
87
88/*
89
90*/
91
92/*
93 =============================================================================
94 ef_tpch() -- unload (parse) edit buffer
95 =============================================================================
96*/
97
98int16_t ef_tpch(int16_t nn)
99{
100 register int16_t key;
101
102 ebflag = FALSE;
103 key = loc2key(stcrow, stccol);
104
105 if (key < 0)
106 return(FAILURE);
107
108 if (cnvp2c() EQ FAILURE)
109 return(FAILURE);
110
111 modtun();
112 tuntab[key] = cents << 1;
113 return(SUCCESS);
114}
115
116/*
117
118*/
119
120/*
121 =============================================================================
122 rd_tpch() -- (re)display the field
123 =============================================================================
124*/
125
126int16_t rd_tpch(int16_t nn)
127{
128 register int16_t val, key, n;
129
130 n = nn & 0xFF;
131 key = loc2key(cfetp->frow, cfetp->flcol);
132 val = tuntab[key];
133
134 cnvc2p(dspbuf, (val >> 1));
135
136 dspbuf[0] += '0';
137 dspbuf[1] += 'A';
138 dspbuf[2] = sfdsp[dspbuf[2] - 7];
139 dspbuf[3] += '0';
140 dspbuf[4] += '0';
141 dspbuf[5] = '\0';
142
143 vbank(0);
144 vcputsv(tunob, 64,
145 ((val EQ 320) OR (val EQ 21920))
146 ? TDMKEYC : tdbox[n][4], tdbox[n][5],
147 cfetp->frow, cfetp->flcol, dspbuf, 14);
148
149 return(SUCCESS);
150}
151
152/*
153
154*/
155
156/*
157 =============================================================================
158 nd_tpch() -- handle new data entry
159 =============================================================================
160*/
161
162int16_t nd_tpch(int16_t nn, int16_t k)
163{
164 register int16_t col, n;
165
166 n = nn & 0xFF;
167
168 if (stccol < 11)
169 col = stccol - 6;
170 else if (stccol < 21)
171 col = stccol - 16;
172 else if (stccol < 31)
173 col = stccol - 26;
174 else if (stccol < 41)
175 col = stccol - 36;
176 else if (stccol < 52)
177 col = stccol - 47;
178 else
179 col = stccol - 58;
180
181 switch (col) {
182
183 case 0:
184
185 ebuf[0] = k;
186 dspbuf[0] = k + '0';
187 break;
188
189 case 1:
190
191 if (k GT 6)
192 return(FAILURE);
193
194 ebuf[1] = k;
195 dspbuf[0] = k + 'A';
196 break;
197/*
198
199*/
200 case 2:
201
202 if (k EQ 7) { /* blank */
203
204 ebuf[2] = k;
205 dspbuf[0] = sfdsp[0];
206 break;
207
208 } else if (k EQ 8) { /* flat */
209
210 ebuf[2] = k;
211 dspbuf[0] = sfdsp[1];
212 break;
213
214 } else if (k EQ 9) { /* sharp */
215
216 ebuf[2] = k;
217 dspbuf[0] = sfdsp[2];
218 break;
219
220 } else
221 return(FAILURE);
222/*
223
224*/
225 case 3:
226 case 4:
227
228 ebuf[col] = k;
229 dspbuf[0] = k + '0';
230 break;
231 }
232
233 dspbuf[1] = '\0';
234
235 vbank(0);
236 vcputsv(tunob, 64, TDENTRY, tdbox[n][5], stcrow, stccol, dspbuf, 14);
237
238 if (col EQ 4)
239 return(SUCCESS);
240
241 advtcur();
242 return(SUCCESS);
243}
244
Note: See TracBrowser for help on using the repository browser.