source: buchla-68k/ram/tdfield.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: 10.2 KB
Line 
1/*
2 =============================================================================
3 tdfield.c -- MIDAS-VII tuning display field processing and cursor motion
4 Version 18 -- 1989-11-15 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#include "ram.h"
9
10struct fet td_fet1[] = { /* field definitions */
11
12 { 0, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
13 { 1, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
14 { 2, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
15 { 3, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
16 { 4, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
17 { 5, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
18 { 6, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
19 { 7, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
20 { 8, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
21 { 9, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
22 {10, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
23 {11, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
24 {12, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
25 {13, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
26 {14, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
27 {15, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
28 {16, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
29 {17, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
30 {18, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
31 {19, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
32 {20, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
33 {21, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
34 {22, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
35 {23, 6, 10, 0, et_tpch, ef_tpch, rd_tpch, nd_tpch},
36
37 { 0, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
38 { 1, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
39 { 2, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
40 { 3, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
41 { 4, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
42 { 5, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
43 { 6, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
44 { 7, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
45 { 8, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
46 { 9, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
47 {10, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
48 {11, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
49 {12, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
50 {13, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
51 {14, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
52 {15, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
53 {16, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
54 {17, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
55 {18, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
56 {19, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
57 {20, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
58 {21, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
59 {22, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
60 {23, 16, 20, 1, et_tpch, ef_tpch, rd_tpch, nd_tpch},
61/*
62
63*/
64 { 0, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
65 { 1, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
66 { 2, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
67 { 3, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
68 { 4, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
69 { 5, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
70 { 6, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
71 { 7, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
72 { 8, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
73 { 9, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
74 {10, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
75 {11, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
76 {12, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
77 {13, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
78 {14, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
79 {15, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
80 {16, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
81 {17, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
82 {18, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
83 {19, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
84 {20, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
85 {21, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
86 {22, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
87 {23, 26, 30, 2, et_tpch, ef_tpch, rd_tpch, nd_tpch},
88
89 { 0, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
90 { 1, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
91 { 2, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
92 { 3, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
93 { 4, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
94 { 5, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
95 { 6, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
96 { 7, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
97 { 8, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
98 { 9, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
99 {10, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
100 {11, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
101 {12, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
102 {13, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
103 {14, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
104 {15, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
105 {16, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
106 {17, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
107 {18, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
108 {19, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
109 {20, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
110 {21, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
111 {22, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
112 {23, 36, 40, 3, et_tpch, ef_tpch, rd_tpch, nd_tpch},
113/*
114
115*/
116 { 0, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
117 { 1, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
118 { 2, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
119 { 3, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
120 { 4, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
121 { 5, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
122 { 6, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
123 { 7, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
124 { 8, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
125 { 9, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
126 {10, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
127 {11, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
128 {12, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
129 {13, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
130 {14, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
131 {15, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
132 {16, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
133 {17, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
134 {18, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
135 {19, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
136 {20, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
137 {21, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
138 {22, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
139 {23, 47, 51, 4, et_tpch, ef_tpch, rd_tpch, nd_tpch},
140
141 { 0, 58, 62, 5, et_tpch, ef_tpch, rd_tpch, nd_tpch},
142 { 1, 58, 62, 5, et_tpch, ef_tpch, rd_tpch, nd_tpch},
143 { 2, 58, 62, 5, et_tpch, ef_tpch, rd_tpch, nd_tpch},
144 { 3, 58, 62, 5, et_tpch, ef_tpch, rd_tpch, nd_tpch},
145 { 4, 58, 62, 5, et_tpch, ef_tpch, rd_tpch, nd_tpch},
146 { 5, 58, 62, 5, et_tpch, ef_tpch, rd_tpch, nd_tpch},
147 { 6, 58, 62, 5, et_tpch, ef_tpch, rd_tpch, nd_tpch},
148 { 7, 58, 62, 5, et_tpch, ef_tpch, rd_tpch, nd_tpch},
149
150 {18, 58, 62, 6, et_tval, ef_tval, rd_tval, nd_tval},
151
152 {24, 7, 38, 7, et_null, ef_null, rd_null, nd_null},
153 {24, 61, 61, 6, et_ttab, ef_ttab, rd_ttab, nd_ttab},
154
155 { 0, 0, 0, 0x0000, FN_NULL, FN_NULL, FN_NULL, FN_NULL}
156};
157
158/*
159
160*/
161
162int16_t tdbox[][8] = { /* display box parameters */
163
164 { 0, 0, 95, 335, TCFBX00, TCBBX00, 0, 1}, /* 0 */
165 { 96, 0, 175, 335, TCFBX01, TCBBX01, 0, 13}, /* 1 */
166 {176, 0, 255, 335, TCFBX02, TCBBX02, 0, 23}, /* 2 */
167 {256, 0, 335, 335, TCFBX03, TCBBX03, 0, 33}, /* 3 */
168 {336, 0, 423, 335, TCFBX04, TCBBX04, 0, 43}, /* 4 */
169 {424, 0, 511, 118, TCFBX05, TCBBX05, 0, 54}, /* 5 */
170 {424, 119, 511, 349, TCFBX06, TCBBX06, 9, 54}, /* 6 */
171 { 0, 336, 423, 349, TCFBX07, TCBBX07, 24, 1} /* 7 */
172};
173
174int8_t *tdbxlb[] = { /* display box labels */
175
176 "", /* 0 */
177 "", /* 1 */
178 "", /* 2 */
179 "", /* 3 */
180 "", /* 4 */
181 "", /* 5 */
182 "", /* 6 */
183 "Name:" /* 7 */
184};
185
186/*
187
188*/
189
190struct curpak td_flds = {
191
192 stdctp0, /* curtype */
193 nokey, /* premove */
194 nokey, /* pstmove */
195 cxkstd, /* cx_key */
196 cykstd, /* cy_key */
197 tdcxupd, /* cx_upd */
198 tdcyupd, /* cy_upd */
199 nokey, /* xy_up */
200 nokey, /* xy_dn */
201 nokey, /* x_key */
202 select, /* e_key */
203 stdmkey, /* m_key */
204 stddkey, /* d_key */
205 nonf, /* not_fld */
206 td_fet1, /* curfet */
207 tdboxes, /* csbp */
208 crate1, /* cratex */
209 crate1, /* cratey */
210 CT_TEXT, /* cmtype */
211 TDCURX, /* cxval */
212 TDCURY /* cyval */
213};
214
215/*
216
217*/
218
219/*
220 =============================================================================
221 tdcyupd() -- update cursor y location
222 =============================================================================
223*/
224
225void tdcyupd(void)
226{
227 register int16_t pval, vh, vl;
228
229 if (tdnamsw) { /* see if we're in the menu area */
230
231 vtcrow = YTOR(vtyval += cyrate);
232
233 if (vtcrow > (vtwrow + 2))
234 vtyval = RTOY(vtcrow = vtwrow + 2);
235 else if (vtcrow < vtwrow)
236 vtyval = RTOY(vtcrow = vtwrow);
237
238 } else { /* just moving the cursor */
239
240 cyval += cyrate;
241
242 if (cyval GT (CYMAX - 1))
243 cyval = CYMAX - 1;
244 else if (cyval LT 1)
245 cyval = 1;
246 }
247}
248
249/*
250
251*/
252
253/*
254 =============================================================================
255 tdcxupd() -- update cursor x location
256 =============================================================================
257*/
258
259void tdcxupd(void)
260{
261
262 if (tdnamsw) { /* see if we're in the menu area */
263
264 vtccol = XTOC(vtxval += cxrate);
265
266 if (vtccol > (vtwcol + 29))
267 vtxval = CTOX(vtccol = vtwcol + 29);
268 else if (vtccol < vtwcol)
269 vtxval = CTOX(vtccol = vtwcol);
270
271 } else { /* just moving the cursor */
272
273 cxval += cxrate;
274
275 if (cxval GT (CXMAX- 1))
276 cxval = CXMAX - 1;
277 else if (cxval LT 1)
278 cxval = 1;
279 }
280}
281
282/*
283
284*/
285
286/*
287 =============================================================================
288 tdfield() -- setup field routines for the tuning editor
289 =============================================================================
290*/
291
292void tdfield(void)
293{
294 tdnamsw = FALSE;
295 submenu = FALSE;
296
297 curset(&td_flds);
298}
299
Note: See TracBrowser for help on using the repository browser.