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 "stddefs.h"
|
---|
11 | #include "fields.h"
|
---|
12 | #include "vsdd.h"
|
---|
13 | #include "vsddsw.h"
|
---|
14 | #include "graphdef.h"
|
---|
15 | #include "charset.h"
|
---|
16 |
|
---|
17 | #include "midas.h"
|
---|
18 | #include "tundsp.h"
|
---|
19 |
|
---|
20 | /* functions defined elsewhere */
|
---|
21 |
|
---|
22 | extern int16_t cnvp2c(void);
|
---|
23 |
|
---|
24 | extern void advtcur(void);
|
---|
25 | extern void cnvc2p(int8_t *buf, int16_t cv);
|
---|
26 | extern void modtun(void);
|
---|
27 |
|
---|
28 | /* variables defined elsewhere */
|
---|
29 |
|
---|
30 | #if DEBUGIT
|
---|
31 | extern short debugsw;
|
---|
32 | #endif
|
---|
33 |
|
---|
34 | extern int16_t stcrow, stccol, cents;
|
---|
35 |
|
---|
36 | extern int16_t tdbox[][8];
|
---|
37 |
|
---|
38 | extern int16_t tuntab[];
|
---|
39 |
|
---|
40 | extern int8_t dspbuf[];
|
---|
41 | extern int8_t sfdsp[];
|
---|
42 |
|
---|
43 | extern uint16_t *tunob;
|
---|
44 |
|
---|
45 | /* |
---|
46 |
|
---|
47 | */
|
---|
48 |
|
---|
49 | /*
|
---|
50 | =============================================================================
|
---|
51 | loc2key() -- convert a screen location to a key number or field code
|
---|
52 | =============================================================================
|
---|
53 | */
|
---|
54 |
|
---|
55 | int16_t loc2key(int16_t row, int16_t col)
|
---|
56 | {
|
---|
57 | if (row EQ 24) {
|
---|
58 |
|
---|
59 | if ((col > 6) AND (col < 39))
|
---|
60 | return(-1); /* -1 = name */
|
---|
61 | else if (col > 52)
|
---|
62 | return(-9); /* -9 = table # */
|
---|
63 | else
|
---|
64 | return(-10); /* -10 = not a field */
|
---|
65 |
|
---|
66 | } else if (col < 12)
|
---|
67 | return(row); /* 0..23 = key 0..23 */
|
---|
68 | else if ((col > 11) AND (col < 22))
|
---|
69 | return(row + 24); /* 24..47 = key 24..47 */
|
---|
70 | else if ((col > 21) AND (col < 32))
|
---|
71 | return(row + 48); /* 48..71 = key 48..71 */
|
---|
72 | else if ((col > 31) AND (col < 42))
|
---|
73 | return(row + 72); /* 72..95 = key 72..95 */
|
---|
74 | else if ((col > 41) AND (col < 53))
|
---|
75 | return(row + 96); /* 96..119 = key 96..119 */
|
---|
76 | else if ((col > 52) AND (row < 8))
|
---|
77 | return(row + 120); /* 120..127 = key 120..127 */
|
---|
78 | else if (col > 52) {
|
---|
79 |
|
---|
80 | if ((row EQ 9) OR (row EQ 10))
|
---|
81 | return(-2); /* -2 = transpose and copy */
|
---|
82 | else if (row EQ 12)
|
---|
83 | return(-3); /* -3 = increment */
|
---|
84 | else if (row EQ 14)
|
---|
85 | return(-4); /* -4 = interpolate */
|
---|
86 | else if (row EQ 16)
|
---|
87 | return(-5); /* -5 = undo */
|
---|
88 | else if (row EQ 18)
|
---|
89 | return(-6); /* -6 = value */
|
---|
90 | else if (row EQ 20)
|
---|
91 | return(-7); /* -7 = store */
|
---|
92 | else if (row EQ 22)
|
---|
93 | return(-8); /* -8 = retrieve */
|
---|
94 | else
|
---|
95 | return(-10); /* -10 = not a field */
|
---|
96 | } else
|
---|
97 | return(-10); /* -10 = not a field */
|
---|
98 | }
|
---|
99 |
|
---|
100 | /* |
---|
101 |
|
---|
102 | */
|
---|
103 |
|
---|
104 | /*
|
---|
105 | =============================================================================
|
---|
106 | et_tpch() -- load the edit buffer
|
---|
107 | =============================================================================
|
---|
108 | */
|
---|
109 |
|
---|
110 | int16_t et_tpch(int16_t nn)
|
---|
111 | {
|
---|
112 | register int16_t key, val;
|
---|
113 |
|
---|
114 | key = loc2key(stcrow, stccol);
|
---|
115 |
|
---|
116 | if (key < 0)
|
---|
117 | return(FAILURE);
|
---|
118 |
|
---|
119 | val = tuntab[key];
|
---|
120 | cnvc2p(ebuf, (val >> 1));
|
---|
121 | ebflag = TRUE;
|
---|
122 | return(SUCCESS);
|
---|
123 | }
|
---|
124 |
|
---|
125 | /* |
---|
126 |
|
---|
127 | */
|
---|
128 |
|
---|
129 | /*
|
---|
130 | =============================================================================
|
---|
131 | ef_tpch() -- unload (parse) edit buffer
|
---|
132 | =============================================================================
|
---|
133 | */
|
---|
134 |
|
---|
135 | int16_t ef_tpch(int16_t nn)
|
---|
136 | {
|
---|
137 | register int16_t key;
|
---|
138 |
|
---|
139 | ebflag = FALSE;
|
---|
140 | key = loc2key(stcrow, stccol);
|
---|
141 |
|
---|
142 | if (key < 0)
|
---|
143 | return(FAILURE);
|
---|
144 |
|
---|
145 | if (cnvp2c() EQ FAILURE)
|
---|
146 | return(FAILURE);
|
---|
147 |
|
---|
148 | modtun();
|
---|
149 | tuntab[key] = cents << 1;
|
---|
150 | return(SUCCESS);
|
---|
151 | }
|
---|
152 |
|
---|
153 | /* |
---|
154 |
|
---|
155 | */
|
---|
156 |
|
---|
157 | /*
|
---|
158 | =============================================================================
|
---|
159 | rd_tpch() -- (re)display the field
|
---|
160 | =============================================================================
|
---|
161 | */
|
---|
162 |
|
---|
163 | int16_t rd_tpch(int16_t nn)
|
---|
164 | {
|
---|
165 | register int16_t val, key, n;
|
---|
166 |
|
---|
167 | n = nn & 0xFF;
|
---|
168 | key = loc2key(cfetp->frow, cfetp->flcol);
|
---|
169 | val = tuntab[key];
|
---|
170 |
|
---|
171 | cnvc2p(dspbuf, (val >> 1));
|
---|
172 |
|
---|
173 | dspbuf[0] += '0';
|
---|
174 | dspbuf[1] += 'A';
|
---|
175 | dspbuf[2] = sfdsp[dspbuf[2] - 7];
|
---|
176 | dspbuf[3] += '0';
|
---|
177 | dspbuf[4] += '0';
|
---|
178 | dspbuf[5] = '\0';
|
---|
179 |
|
---|
180 | vbank(0);
|
---|
181 | vcputsv(tunob, 64,
|
---|
182 | ((val EQ 320) OR (val EQ 21920))
|
---|
183 | ? TDMKEYC : tdbox[n][4], tdbox[n][5],
|
---|
184 | cfetp->frow, cfetp->flcol, dspbuf, 14);
|
---|
185 |
|
---|
186 | return(SUCCESS);
|
---|
187 | }
|
---|
188 |
|
---|
189 | /* |
---|
190 |
|
---|
191 | */
|
---|
192 |
|
---|
193 | /*
|
---|
194 | =============================================================================
|
---|
195 | nd_tpch() -- handle new data entry
|
---|
196 | =============================================================================
|
---|
197 | */
|
---|
198 |
|
---|
199 | int16_t nd_tpch(int16_t nn, int16_t k)
|
---|
200 | {
|
---|
201 | register int16_t col, n;
|
---|
202 |
|
---|
203 | n = nn & 0xFF;
|
---|
204 |
|
---|
205 | if (stccol < 11)
|
---|
206 | col = stccol - 6;
|
---|
207 | else if (stccol < 21)
|
---|
208 | col = stccol - 16;
|
---|
209 | else if (stccol < 31)
|
---|
210 | col = stccol - 26;
|
---|
211 | else if (stccol < 41)
|
---|
212 | col = stccol - 36;
|
---|
213 | else if (stccol < 52)
|
---|
214 | col = stccol - 47;
|
---|
215 | else
|
---|
216 | col = stccol - 58;
|
---|
217 |
|
---|
218 | switch (col) {
|
---|
219 |
|
---|
220 | case 0:
|
---|
221 |
|
---|
222 | ebuf[0] = k;
|
---|
223 | dspbuf[0] = k + '0';
|
---|
224 | break;
|
---|
225 |
|
---|
226 | case 1:
|
---|
227 |
|
---|
228 | if (k GT 6)
|
---|
229 | return(FAILURE);
|
---|
230 |
|
---|
231 | ebuf[1] = k;
|
---|
232 | dspbuf[0] = k + 'A';
|
---|
233 | break;
|
---|
234 | /* |
---|
235 |
|
---|
236 | */
|
---|
237 | case 2:
|
---|
238 |
|
---|
239 | if (k EQ 7) { /* blank */
|
---|
240 |
|
---|
241 | ebuf[2] = k;
|
---|
242 | dspbuf[0] = sfdsp[0];
|
---|
243 | break;
|
---|
244 |
|
---|
245 | } else if (k EQ 8) { /* flat */
|
---|
246 |
|
---|
247 | ebuf[2] = k;
|
---|
248 | dspbuf[0] = sfdsp[1];
|
---|
249 | break;
|
---|
250 |
|
---|
251 | } else if (k EQ 9) { /* sharp */
|
---|
252 |
|
---|
253 | ebuf[2] = k;
|
---|
254 | dspbuf[0] = sfdsp[2];
|
---|
255 | break;
|
---|
256 |
|
---|
257 | } else
|
---|
258 | return(FAILURE);
|
---|
259 | /* |
---|
260 |
|
---|
261 | */
|
---|
262 | case 3:
|
---|
263 | case 4:
|
---|
264 |
|
---|
265 | ebuf[col] = k;
|
---|
266 | dspbuf[0] = k + '0';
|
---|
267 | break;
|
---|
268 | }
|
---|
269 |
|
---|
270 | dspbuf[1] = '\0';
|
---|
271 |
|
---|
272 | vbank(0);
|
---|
273 | vcputsv(tunob, 64, TDENTRY, tdbox[n][5], stcrow, stccol, dspbuf, 14);
|
---|
274 |
|
---|
275 | if (col EQ 4)
|
---|
276 | return(SUCCESS);
|
---|
277 |
|
---|
278 | advtcur();
|
---|
279 | return(SUCCESS);
|
---|
280 | }
|
---|