source: buchla-68k/ram/etioas.c@ 081eee0

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

Fixed etioas.c.
  • Property mode set to 100644
File size: 9.8 KB
RevLine 
[f40a309]1/*
2 =============================================================================
3 etioas.c -- line 17 field handlers (I/O Assignment thru Interpolate)
4 Version 12 -- 1988-08-22 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
[b28a12e]8#include "ram.h"
[f40a309]9
10/*
11 =============================================================================
12 Assignment table field handlers
13 =============================================================================
14*/
15
16/*
17 =============================================================================
18 et_ioas() -- load edit buffer
19 =============================================================================
20*/
21
[7258c6a]22int16_t et_ioas(int16_t n)
[f40a309]23{
[7ecfb7b]24 (void)n;
25
[f40a309]26 sprintf(ebuf, "%02.2d", curasg);
27 ebflag = TRUE;
28
29 return(SUCCESS);
30}
31
[fa38804]32
[f40a309]33/*
34 =============================================================================
35 ef_ioas() -- parse edit buffer
36 =============================================================================
37*/
38
[7258c6a]39int16_t ef_ioas(int16_t n)
[f40a309]40{
[7258c6a]41 register int16_t ival;
[f40a309]42 register struct s_entry *ep;
43
[7ecfb7b]44 (void)n;
45
[f40a309]46 ebuf[2] = '\0';
47 ival = ((ebuf[0] - '0') * 10) + (ebuf[1] - '0');
48
49 ebflag = FALSE;
50
51 if (ival GE NASGS)
52 return(FAILURE);
53
54 getasg(curasg = ival);
55 mpcupd();
56
57 if (recsw) {
58
59 if (E_NULL NE (ep = findev(p_cur, t_cur, EV_ASGN, -1, -1))) {
60
[5c977dd]61 ep->e_data1 = (int8_t)ival;
[f40a309]62
63 } else if (E_NULL NE (ep = e_alc(E_SIZE2))) {
64
65 ep->e_type = EV_ASGN;
[5c977dd]66 ep->e_data1 = (int8_t)ival;
[f40a309]67 ep->e_time = t_cur;
68 p_cur = e_ins(ep, ep_adj(p_cur, 0, t_cur))->e_fwd;
69 eh_ins(ep, EH_ASGN);
70 ctrsw = TRUE;
71 se_disp(ep, D_FWD, gdstbc, 1);
72 scupd();
73 }
74 }
75
76 return(SUCCESS);
77}
78
79/*
80 =============================================================================
81 rd_ioas() -- (re)display the field
82 =============================================================================
83*/
84
[7258c6a]85int16_t rd_ioas(int16_t n)
[f40a309]86{
[7ecfb7b]87 (void)n;
88
[f40a309]89 sprintf(dspbuf, "%02.2d", curasg);
90
91 if (v_regs[5] & 0x0180)
92 vbank(0);
93
94 vputs(obj8, 1, 11, dspbuf, SDW04ATR);
95 return(SUCCESS);
96}
97
98/*
99 =============================================================================
100 nd_ioas() -- data entry function
101 =============================================================================
102*/
103
[7258c6a]104int16_t nd_ioas(int16_t n, int16_t k)
[f40a309]105{
[7258c6a]106 register int16_t ec;
[f40a309]107
[7ecfb7b]108 (void)n;
109
[f40a309]110 ec = stccol - cfetp->flcol;
[5c977dd]111 ebuf[ec] = (int8_t)(k + '0');
[f40a309]112
113 if (v_regs[5] & 0x0180)
114 vbank(0);
115
116 vputc(obj8, 1, stccol, k + '0', SDW04DEA);
117 advscur();
118 return(SUCCESS);
119}
120
121/*
122 =============================================================================
123 Tuning field handlers
124 =============================================================================
125*/
126
127/*
128 =============================================================================
129 et_tune() -- load edit buffer
130 =============================================================================
131*/
132
[7258c6a]133int16_t et_tune(int16_t n)
[f40a309]134{
[7ecfb7b]135 (void)n;
136
[5c977dd]137 ebuf[0] = (int8_t)('0' + curtun);
[f40a309]138 ebuf[1] = '\0';
139 ebflag = TRUE;
140 return(SUCCESS);
141}
142
143/*
144 =============================================================================
145 ef_tune() -- parse edit buffer
146 =============================================================================
147*/
148
[7258c6a]149int16_t ef_tune(int16_t n)
[f40a309]150{
[7258c6a]151 register int16_t ival;
[f40a309]152 register struct s_entry *ep;
153
[7ecfb7b]154 (void)n;
155
[f40a309]156 ebuf[1] = '\0';
157 ival = ebuf[0] - '0';
158 ebflag = FALSE;
159 gettun(ival);
160
161 if (recsw) {
162
163 if (E_NULL NE (ep = findev(p_cur, t_cur, EV_TUNE, -1, -1))) {
164
[5c977dd]165 ep->e_data1 = (int8_t)ival;
[f40a309]166
167 } else if (E_NULL NE (ep = e_alc(E_SIZE2))) {
168
169 ep->e_type = EV_TUNE;
[5c977dd]170 ep->e_data1 = (int8_t)ival;
[f40a309]171 ep->e_time = t_cur;
172 p_cur = e_ins(ep, ep_adj(p_cur, 0, t_cur))->e_fwd;
173 eh_ins(ep, EH_TUNE);
174 ctrsw = TRUE;
175 se_disp(ep, D_FWD, gdstbc, 1);
176 scupd();
177 }
178 }
179
180 return(SUCCESS);
181}
182
183/*
184 =============================================================================
185 rd_tune() -- (re)display the field
186 =============================================================================
187*/
188
[7258c6a]189int16_t rd_tune(int16_t n)
[f40a309]190{
[7ecfb7b]191 (void)n;
192
[f40a309]193 if (v_regs[5] & 0x0180)
194 vbank(0);
195
196 vputc(obj8, 1, 19, curtun + '0', SDW05ATR);
197
198 return(SUCCESS);
199}
200
201/*
202 =============================================================================
203 nd_tune() -- data entry function
204 =============================================================================
205*/
206
[7258c6a]207int16_t nd_tune(int16_t n, int16_t k)
[f40a309]208{
[7ecfb7b]209 (void)n;
[f40a309]210
[5c977dd]211 ebuf[0] = (int8_t)(k + '0');
[f40a309]212
213 if (v_regs[5] & 0x0180)
214 vbank(0);
215
216 vputc(obj8, 1, stccol, k + '0', SDW05DEA);
217
218 return(SUCCESS);
219}
220
221/*
222 =============================================================================
223 Tempo field handlers
224 =============================================================================
225*/
226
227/*
228 =============================================================================
229 et_tmpo() -- load edit buffer
230 =============================================================================
231*/
232
[7258c6a]233int16_t et_tmpo(int16_t n)
[f40a309]234{
[7ecfb7b]235 (void)n;
236
[f40a309]237 sprintf(ebuf, "%03.3d", tmpoval);
238 ebflag = TRUE;
239
240 return(SUCCESS);
241}
242
243/*
244 =============================================================================
245 ef_tmpo() -- parse edit buffer
246 =============================================================================
247*/
248
[7258c6a]249int16_t ef_tmpo(int16_t n)
[f40a309]250{
[7258c6a]251 register int16_t ival;
[f40a309]252 register struct s_entry *ep;
253
[7ecfb7b]254 (void)n;
255
[f40a309]256 ebuf[3] = '\0';
257 ival = ((ebuf[0] - '0') * 100) + ((ebuf[1] - '0') * 10)
258 + (ebuf[2] - '0');
259
260 ebflag = FALSE;
261
262 if ((ival GT 240) OR (ival LT 4))
263 return(FAILURE);
264
265 settmpo(ival);
266
267 if (recsw) {
268
269 if (E_NULL NE (ep = findev(p_cur, t_cur, EV_TMPO, -1, -1))) {
270
[5c977dd]271 ep->e_data1 = (int8_t)ival;
[f40a309]272
273 } else if (E_NULL NE (ep = e_alc(E_SIZE2))) {
274
275 ep->e_type = EV_TMPO;
[5c977dd]276 ep->e_data1 = (int8_t)ival;
[f40a309]277 ep->e_time = t_cur;
278 p_cur = e_ins(ep, ep_adj(p_cur, 0, t_cur))->e_fwd;
279 eh_ins(ep, EH_TMPO);
280 ctrsw = TRUE;
281 se_disp(ep, D_FWD, gdstbc, 1);
282 scupd();
283 }
284 }
285
286 return(SUCCESS);
287}
288
289/*
290 =============================================================================
291 rd_tmpo() -- (re)display the field
292 =============================================================================
293*/
294
[7258c6a]295int16_t rd_tmpo(int16_t n)
[f40a309]296{
[7ecfb7b]297 (void)n;
298
[f40a309]299 sprintf(dspbuf, "%03.3d", tmpoval);
300
301 if (v_regs[5] & 0x0180)
302 vbank(0);
303
304 vputs(obj8, 1, 27, dspbuf, SDW06ATR);
305
306 return(SUCCESS);
307}
308
309/*
310 =============================================================================
311 nd_tmpo() -- data entry function
312 =============================================================================
313*/
314
[7258c6a]315int16_t nd_tmpo(int16_t n, int16_t k)
[f40a309]316{
[7258c6a]317 register int16_t ec;
[f40a309]318
[7ecfb7b]319 (void)n;
320
[f40a309]321 ec = stccol - cfetp->flcol;
[5c977dd]322 ebuf[ec] = (int8_t)(k + '0');
[f40a309]323
324 if (v_regs[5] & 0x0180)
325 vbank(0);
326
327 vputc(obj8, 1, stccol, k + '0', SDW06DEA);
328 advscur();
329
330 return(SUCCESS);
331}
332
333/*
334 =============================================================================
335 Interpolate field handlers
336 =============================================================================
337*/
338
339/*
340 =============================================================================
341 et_intp() -- load edit buffer
342 =============================================================================
343*/
344
[7258c6a]345int16_t et_intp(int16_t n)
[f40a309]346{
[7258c6a]347 register int16_t th, tl;
348 register int32_t tt, sc, sf;
[f40a309]349
[7ecfb7b]350 (void)n;
351
[f40a309]352 sc = 1000L;
353 sf = 100L;
354 tt = fromfpu(curintp);
[5c977dd]355 th = (int16_t)(tt / sc);
356 tl = (int16_t)((tt - (th * sc)) / sf);
[f40a309]357
358 sprintf(ebuf, "%02d.%d", th, tl);
359 ebflag = TRUE;
360
361 return(SUCCESS);
362}
363
364/*
365 =============================================================================
366 ef_intp() -- parse edit buffer
367 =============================================================================
368*/
369
[7258c6a]370int16_t ef_intp(int16_t n)
[f40a309]371{
[7258c6a]372 register int16_t i;
373 register uint16_t tmpval;
[f40a309]374 register struct s_entry *ep;
375
[7ecfb7b]376 (void)n;
377
[f40a309]378 ebuf[2] = '.'; /* add implied decimal point */
379 ebuf[4] = '\0'; /* terminate the string in ebuf */
380 ebflag = FALSE;
381 tmpval = 0;
382
383 for (i = 0; i < 2; i++) /* convert from ASCII to binary */
[5c977dd]384 tmpval = (tmpval * 10) + (uint16_t)(ebuf[i] - '0');
[f40a309]385
[5c977dd]386 tmpval = ((tmpval * 10) + (uint16_t)(ebuf[3] - '0')) * 100;
[f40a309]387
[7258c6a]388 if (tmpval > (uint16_t)64900)
[f40a309]389 return(FAILURE);
390
391 if (tmpval EQ 0)
392 tmpval = 1;
393
394 curintp = tofpu(tmpval);
395
396 if (recsw) {
397
398 if (E_NULL NE (ep = findev(p_cur, t_cur, EV_INTP, -1, -1))) {
399
[5c977dd]400 ep->e_data1 = (int8_t)(curintp >> 8);
401 ep->e_data2 = (int8_t)(0x00FF & curintp);
[f40a309]402
403 } else if (E_NULL NE (ep = e_alc(E_SIZE3))) {
404
405 ep->e_type = EV_INTP;
406 ep->e_time = t_cur;
[5c977dd]407 ep->e_data1 = (int8_t)(curintp >> 8);
408 ep->e_data2 = (int8_t)(0x00FF & curintp);
[f40a309]409 p_cur = e_ins(ep, ep_adj(p_cur, 0, t_cur))->e_fwd;
410 eh_ins(ep, EH_INTP);
411 ctrsw = TRUE;
412 se_disp(ep, D_FWD, gdstbc, 1);
413 scupd();
414 }
415 }
416
417 return(SUCCESS);
418}
419
420/*
421 =============================================================================
422 rd_intp() -- (re)display the field
423 =============================================================================
424*/
425
[7258c6a]426int16_t rd_intp(int16_t n)
[f40a309]427{
[7258c6a]428 register int16_t th, tl;
429 register int32_t tt, sc, sf;
[f40a309]430
[7ecfb7b]431 (void)n;
432
[f40a309]433 sc = 1000L;
434 sf = 100L;
435 tt = fromfpu(curintp);
[5c977dd]436 th = (int16_t)(tt / sc);
437 tl = (int16_t)((tt - (th * sc)) / sf);
[f40a309]438
439 sprintf(dspbuf, "%02d.%d", th, tl); /* convert to ASCII */
440
441 vbank(0); /* display the value */
442
443 vputs(obj8, 1, 35, dspbuf, SDW07ATR);
444
445 return(SUCCESS);
446}
447
448/*
449 =============================================================================
450 nd_intp() -- data entry function
451 =============================================================================
452*/
453
[7258c6a]454int16_t nd_intp(int16_t n, int16_t k)
[f40a309]455{
[7258c6a]456 register int16_t ec;
[f40a309]457
[7ecfb7b]458 (void)n;
459
[f40a309]460 ec = stccol - cfetp->flcol; /* setup edit buffer column */
461
462 if (ec EQ 2)
463 return(FAILURE);
464
465 if ((ec EQ 0) AND (k > 6))
466 return(FAILURE);
467
468 if ((ec EQ 1) AND (ebuf[0] EQ '6') AND (k > 4))
469 return(FAILURE);
470
[5c977dd]471 ebuf[ec] = (int8_t)(k + '0');
[f40a309]472 ebuf[2] = '.';
473 ebuf[4] = '\0';
474
[5c977dd]475 dspbuf[0] = (int8_t)(k + '0');
[f40a309]476 dspbuf[1] = '\0';
477
478 vbank(0);
479
480 vputs(obj8, 1, stccol, dspbuf, SDW07DEA);
481
482 advscur();
483
484 if (stccol EQ 37)
485 advscur();
486
487 return(SUCCESS);
488}
[6262b5c]489
Note: See TracBrowser for help on using the repository browser.