source: buchla-68k/ram/m7menu.c@ fa38804

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

Removed form-feed comments.
  • Property mode set to 100644
File size: 13.2 KB
Line 
1/*
2 =============================================================================
3 m7menu.c -- MIDAS main menu functions
4 Version 42 -- 1989-12-19 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#define DEBUGIT 0
9
10#include "ram.h"
11
12#define DENSITY 1 /* double density */
13
14#define M_COPY 8 /* "copy" text index in mtexts[] */
15#define M_FORM 10 /* "format" text index in mtexts[] */
16
17#define VER_ROW 2 /* version message row */
18#define VER_COL 51 /* version message column */
19
20#if DEBUGIT
21short debugm7 = 1;
22#endif
23
24static int8_t ml01[61], ml02[61], ml03[61], ml04[61], ml05[61];
25
26static int8_t mlc01[] = {1, 0xBA, 58, 0xB1, 1, 0xBB, -1};
27static int8_t mlc02[] = {1, 0xB6, 29, 0xB1, 1, 0xB7, 28, 0xB1, 1, 0xB4, -1};
28static int8_t mlc03[] = {1, 0xB6, 29, 0xB1, 1, 0xB2, 28, 0xB1, 1, 0xB4, -1};
29static int8_t mlc04[] = {1, 0xB6, 29, 0xB1, 1, 0xB5, 28, 0xB1, 1, 0xB4, -1};
30static int8_t mlc05[] = {1, 0xB9, 58, 0xB1, 1, 0xB8, -1};
31
32static int8_t *mtexts[] = {
33
34 /* 0 */ "MIDAS VII for the Buchla 700 Version",
35 /* 1 */ "Librarian",
36 /* 2 */ "Patch Editor",
37 /* 3 */ "Score editor",
38 /* 4 */ "Sequence Editor",
39 /* 5 */ "Instrument designer",
40 /* 6 */ "Initialize system",
41 /* 7 */ "Waveshape editor",
42 /* 8 */ "Write program to disk",
43 /* 9 */ "Tuning tables",
44 /* 10 */ "Format disk",
45 /* 11 */ "Assignment tables",
46 /* 12 */ "Diagnostics",
47 /* 13 */ "created by Buchla and Associates of Berkeley, California",
48};
49
50static int16_t mlintab[][4] = {
51
52 { 18, 26, 18, 322},
53
54 { 21, 26, 21, 42},
55 { 21, 54, 21, 84},
56 { 21, 96, 21, 126},
57 { 21, 138, 21, 168},
58 { 21, 180, 21, 210},
59 { 21, 222, 21, 252},
60 { 21, 264, 21, 294},
61 { 21, 306, 21, 322},
62
63 {258, 54, 258, 84},
64 {258, 96, 258, 126},
65 {258, 138, 258, 168},
66 {258, 180, 258, 210},
67 {258, 222, 258, 252},
68 {258, 264, 258, 294},
69
70 {261, 54, 261, 84},
71 {261, 96, 261, 126},
72 {261, 138, 261, 168},
73 {261, 180, 261, 210},
74 {261, 222, 261, 252},
75 {261, 264, 261, 294},
76
77 {490, 26, 490, 42},
78 {490, 54, 490, 84},
79 {490, 96, 490, 126},
80 {490, 138, 490, 168},
81 {490, 180, 490, 210},
82 {490, 222, 490, 252},
83 {490, 264, 490, 294},
84 {490, 306, 490, 322},
85
86 {493, 26, 493, 322},
87
88 { -1, -1, -1, -1}
89};
90
91static int16_t mrowcol[][2] = {
92
93 { 2, 4}, /* 0 */
94 { 4, 4}, /* 1 */
95 { 4, 34}, /* 2 */
96 { 7, 4}, /* 3 */
97 { 7, 34}, /* 4 */
98 {10, 4}, /* 5 */
99 {10, 34}, /* 6 */
100 {13, 4}, /* 7 */
101 {13, 34}, /* 8 */
102 {16, 4}, /* 9 */
103 {16, 34}, /* 10 */
104 {19, 4}, /* 11 */
105 {19, 34}, /* 12 */
106 {22, 4} /* 13 */
107};
108
109struct selbox mdboxes[] = { /* main menu box definitions */
110
111 { 22, 53, 257, 87, 0, mdselbx}, /* 0 */
112 {262, 53, 489, 87, 1, mdselbx}, /* 1 */
113 { 22, 95, 257, 129, 2, mdselbx}, /* 2 */
114 {262, 95, 489, 129, 3, mdselbx}, /* 3 */
115 { 22, 137, 257, 171, 4, mdselbx}, /* 4 */
116 {262, 137, 489, 171, 5, mdselbx}, /* 5 */
117 { 22, 179, 257, 213, 6, mdselbx}, /* 6 */
118 {262, 179, 489, 213, 7, mdselbx}, /* 7 */
119 { 22, 221, 257, 255, 8, mdselbx}, /* 8 */
120 {262, 221, 489, 255, 9, mdselbx}, /* 9 */
121 { 22, 263, 257, 297, 10, mdselbx}, /* 10 */
122 {262, 263, 489, 297, 11, mdselbx}, /* 11 */
123 { 0, 0, 0, 0, 0, FN_NULL} /* end of table */
124};
125
126int16_t menupal[16][3] = { /* menu display color palette */
127
128 {0, 0, 0}, /* 0 */
129 {2, 1, 0}, /* 1 MCURSOR cursor color */
130 {0, 0, 0}, /* 2 MBKGRND background color */
131 {3, 0, 2}, /* 3 */
132 {2, 1, 0}, /* 4 MBUCHLA "Created by ..." color */
133 {2, 1, 0}, /* 5 MTITLE title color */
134 {0, 1, 0}, /* 6 */
135 {2, 0, 0}, /* 7 MHILITE hilite color */
136 {2, 2, 2}, /* 8 MLFILES file name color */
137 {0, 0, 0}, /* 9 */
138 {1, 1, 2}, /* 10 MLINES outline color */
139 {2, 3, 3}, /* 11 MBUTTON button legend color */
140 {3, 1, 1}, /* 12 */
141 {3, 3, 0}, /* 13 */
142 {0, 3, 3}, /* 14 */
143 {0, 0, 3} /* 15 */
144};
145
146int16_t blakpal[16][3] = { /* black palette */
147
148 {0, 0, 0}, /* 0 */
149 {0, 0, 0}, /* 1 */
150 {0, 0, 0}, /* 2 */
151 {0, 0, 0}, /* 3 */
152 {0, 0, 0}, /* 4 */
153 {0, 0, 0}, /* 5 */
154 {0, 0, 0}, /* 6 */
155 {0, 0, 0}, /* 7 */
156 {0, 0, 0}, /* 8 */
157 {0, 0, 0}, /* 9 */
158 {0, 0, 0}, /* 10 */
159 {0, 0, 0}, /* 11 */
160 {0, 0, 0}, /* 12 */
161 {0, 0, 0}, /* 13 */
162 {0, 0, 0}, /* 14 */
163 {0, 0, 0} /* 15 */
164};
165
166int16_t mfrc[][2] = { /* file name row and column by load type LT_??? */
167
168 {20, 6}, /* assignments */
169 {11, 6}, /* lo orchestra */
170 {11, 20}, /* hi orchestra */
171 { 8, 6}, /* score */
172 {17, 6}, /* tunings */
173 {14, 6}, /* waveshapes */
174 { 5, 36}, /* patches */
175 { 8, 36} /* sequences */
176};
177
178struct curpak m7_flds = { /* main menu cursor package definitions */
179
180 stdctp2, /* curtype */
181 nokey, /* premove */
182 nokey, /* pstmove */
183 cxkstd, /* cx_key */
184 cykstd, /* cy_key */
185 cxgen, /* cx_upd */
186 cygen, /* cy_upd */
187 nokey, /* xy_up */
188 nokey, /* xy_dn */
189 nokey, /* x_key */
190 select, /* e_key */
191 nokey, /* m_key */
192 nodkey, /* d_key */
193 nonf, /* not_fld */
194 (struct fet *)NULL, /* curfet */
195 mdboxes, /* csbp */
196 crate1, /* cratex */
197 crate1, /* cratey */
198 CT_GRAF, /* cmtype */
199 MCURX, /* cxval */
200 MCURY /* cyval */
201};
202
203/*
204 =============================================================================
205 dswap() -- clear the screen for display switching
206 =============================================================================
207*/
208
209void dswap(void)
210{
211 register int16_t i;
212
213 vsndpal(blakpal); /* blackout the palette */
214
215 if (v_regs[5] & 0x0180)
216 vbank(0); /* select bank 0 */
217
218 setipl(VID_DI); /* disable the un-blanker */
219 vi_ctl = 0; /* reset un-blank control */
220
221 for (i = 0; i < 16; i++) /* blank the objects */
222 v_odtab[i][0] |= V_BLA;
223
224 VHinit(); /* init VSDD hardware */
225 VSinit(); /* init VSDD software */
226}
227
228/*
229 =============================================================================
230 mlbld() -- build a menu line
231 =============================================================================
232*/
233
234void mlbld(int8_t *where, int8_t *from)
235{
236 register int16_t i, j;
237 register int8_t c;
238
239 while (-1 NE (i = *from++)) {
240
241 c = *from++;
242
243 for (j = 0; j < i; j++)
244 *where++ = c;
245 }
246
247 *where = '\0';
248}
249
250/*
251 =============================================================================
252 mlpoint() -- draw a point for the MIDAS 700 main menu
253 =============================================================================
254*/
255
256void mlpoint(int16_t x, int16_t y, int16_t pen)
257{
258 if (v_regs[5] & 0x0180)
259 vbank(0);
260
261 vputp(mdoct, x, y, pen);
262}
263
264/*
265 =============================================================================
266 mdselbx() -- process a hit in a window for the MIDAS 700 main menu
267 =============================================================================
268*/
269
270int16_t mdselbx(int16_t n)
271{
272 register uint16_t mlcv, mbcv, mbak;
273 register int16_t rc;
274
275#if DEBUGIT
276 if (debugsw AND debugm7)
277 printf("mdselbx(%d): ENTRY old ndisp = %d\n", n, ndisp);
278#endif
279
280 mlcv = exp_c(MLINES);
281 mbcv = exp_c(MBUTTON);
282 mbak = exp_c(MBKGRND);
283
284 rc = SUCCESS;
285
286 if (ndisp EQ 7) { /* "Write program to disk" selected */
287
288 if (n EQ 7) { /* verified, time to do it */
289
290 if (dcopy()) {
291
292 sprintf(bfs, " FAILED -- Error %d", defect);
293
294 vcputsv(menuob, 64, MHILITE, mbak,
295 mrowcol[M_COPY][0] + 1,
296 mrowcol[M_COPY][1],
297 bfs, 14);
298
299 rc = FAILURE;
300 }
301
302 ndisp = -1;
303
304 } else { /* not verified, cancel it */
305
306 ndisp = n; /* display number = box number */
307 runit = FALSE; /* cue msl() to setup the new display */
308 dsp_ok = FALSE; /* disallow display updates */
309 }
310
311 vcputsv(menuob, 64, mbcv, mbak,
312 mrowcol[M_COPY][0], mrowcol[M_COPY][1],
313 mtexts[M_COPY], 14);
314
315 } else if (ndisp EQ 9) { /* "Format disk" selected */
316
317 if (n EQ 9) { /* verified, time to do it */
318
319 if (dformat(DENSITY)) {
320
321 sprintf(bfs, " FAILED -- Error %d", defect);
322
323 vcputsv(menuob, 64, MHILITE, mbak,
324 mrowcol[M_FORM][0] + 1,
325 mrowcol[M_FORM][1],
326 bfs, 14);
327
328 rc = FAILURE;
329 }
330
331 ndisp = -1;
332
333 } else { /* not verified, cancel it */
334
335 ndisp = n; /* display number = box number */
336 runit = FALSE; /* cue msl() to setup the new display */
337 dsp_ok = FALSE; /* disallow display updates */
338 }
339
340 vcputsv(menuob, 64, mbcv, mbak,
341 mrowcol[M_FORM][0], mrowcol[M_FORM][1],
342 mtexts[M_FORM], 14);
343
344
345 } else { /* select a new menu item */
346
347 ndisp = n; /* display number = box number */
348
349 if (n EQ 7) { /* select "Write program to disk" */
350
351 vcputsv(menuob, 64, MHILITE, mbak,
352 mrowcol[M_COPY][0], mrowcol[M_COPY][1],
353 mtexts[M_COPY], 14);
354
355 } else if (n EQ 9) { /* select "Format disk" */
356
357 vcputsv(menuob, 64, MHILITE, mbak,
358 mrowcol[M_FORM][0], mrowcol[M_FORM][1],
359 mtexts[M_FORM], 14);
360
361 } else {
362
363 runit = FALSE; /* cue msl() to setup the new display */
364 dsp_ok = FALSE; /* disallow display updates */
365 }
366 }
367
368#if DEBUGIT
369 if (debugsw AND debugm7)
370 printf("mdselbx(%d): EXIT ndisp = %d rc = %d runit = %d\n",
371 n, ndisp, rc, runit);
372#endif
373
374 return(rc);
375}
376
377/*
378 =============================================================================
379 drawm() -- draw the MIDAS 700 main menu
380 =============================================================================
381*/
382
383void drawm(void)
384{
385 register int16_t *mlp;
386 register int16_t i;
387 register uint16_t mlcv, mbcv, mbak;
388 int8_t buf[16];
389
390 mlcv = exp_c(MLINES);
391 mbcv = exp_c(MBUTTON);
392 mbak = exp_c(MBKGRND);
393
394 if (ml01[0] EQ 0) {
395
396 mlbld(ml01, mlc01);
397 mlbld(ml02, mlc02);
398 mlbld(ml03, mlc03);
399 mlbld(ml04, mlc04);
400 mlbld(ml05, mlc05);
401 }
402
403 if (v_regs[5] & 0x0180)
404 vbank(0);
405
406 vbfill4(menuob, 128, 0, 0, 511, 349, mbak);
407
408 vcputsv(menuob, 64, mlcv, mbak, 1, 2, ml01, 14);
409 vcputsv(menuob, 64, mlcv, mbak, 2, 2, "\260", 14);
410 vcputsv(menuob, 64, mlcv, mbak, 2, 61, "\260", 14);
411
412 vcputsv(menuob, 64, mlcv, mbak, 3, 2, ml02, 14);
413 vcputsv(menuob, 64, mlcv, mbak, 4, 2, "\260", 14);
414 vcputsv(menuob, 64, mlcv, mbak, 4, 32, "\260", 14);
415 vcputsv(menuob, 64, mlcv, mbak, 4, 61, "\260", 14);
416 vcputsv(menuob, 64, mlcv, mbak, 5, 2, "\260", 14);
417 vcputsv(menuob, 64, mlcv, mbak, 5, 32, "\260", 14);
418 vcputsv(menuob, 64, mlcv, mbak, 5, 61, "\260", 14);
419
420 vcputsv(menuob, 64, mlcv, mbak, 6, 2, ml03, 14);
421 vcputsv(menuob, 64, mlcv, mbak, 7, 2, "\260", 14);
422 vcputsv(menuob, 64, mlcv, mbak, 7, 32, "\260", 14);
423 vcputsv(menuob, 64, mlcv, mbak, 7, 61, "\260", 14);
424 vcputsv(menuob, 64, mlcv, mbak, 8, 2, "\260", 14);
425 vcputsv(menuob, 64, mlcv, mbak, 8, 32, "\260", 14);
426 vcputsv(menuob, 64, mlcv, mbak, 8, 61, "\260", 14);
427
428 vcputsv(menuob, 64, mlcv, mbak, 9, 2, ml03, 14);
429 vcputsv(menuob, 64, mlcv, mbak, 10, 2, "\260", 14);
430 vcputsv(menuob, 64, mlcv, mbak, 10, 32, "\260", 14);
431 vcputsv(menuob, 64, mlcv, mbak, 10, 61, "\260", 14);
432 vcputsv(menuob, 64, mlcv, mbak, 11, 2, "\260", 14);
433 vcputsv(menuob, 64, mlcv, mbak, 11, 32, "\260", 14);
434 vcputsv(menuob, 64, mlcv, mbak, 11, 61, "\260", 14);
435
436 vcputsv(menuob, 64, mlcv, mbak, 12, 2, ml03, 14);
437 vcputsv(menuob, 64, mlcv, mbak, 13, 2, "\260", 14);
438 vcputsv(menuob, 64, mlcv, mbak, 13, 32, "\260", 14);
439 vcputsv(menuob, 64, mlcv, mbak, 13, 61, "\260", 14);
440 vcputsv(menuob, 64, mlcv, mbak, 14, 2, "\260", 14);
441 vcputsv(menuob, 64, mlcv, mbak, 14, 32, "\260", 14);
442 vcputsv(menuob, 64, mlcv, mbak, 14, 61, "\260", 14);
443
444 vcputsv(menuob, 64, mlcv, mbak, 15, 2, ml03, 14);
445 vcputsv(menuob, 64, mlcv, mbak, 16, 2, "\260", 14);
446 vcputsv(menuob, 64, mlcv, mbak, 16, 32, "\260", 14);
447 vcputsv(menuob, 64, mlcv, mbak, 16, 61, "\260", 14);
448 vcputsv(menuob, 64, mlcv, mbak, 17, 2, "\260", 14);
449 vcputsv(menuob, 64, mlcv, mbak, 17, 32, "\260", 14);
450 vcputsv(menuob, 64, mlcv, mbak, 17, 61, "\260", 14);
451
452 vcputsv(menuob, 64, mlcv, mbak, 18, 2, ml03, 14);
453 vcputsv(menuob, 64, mlcv, mbak, 19, 2, "\260", 14);
454 vcputsv(menuob, 64, mlcv, mbak, 19, 32, "\260", 14);
455 vcputsv(menuob, 64, mlcv, mbak, 19, 61, "\260", 14);
456 vcputsv(menuob, 64, mlcv, mbak, 20, 2, "\260", 14);
457 vcputsv(menuob, 64, mlcv, mbak, 20, 32, "\260", 14);
458 vcputsv(menuob, 64, mlcv, mbak, 20, 61, "\260", 14);
459
460 vcputsv(menuob, 64, mlcv, mbak, 21, 2, ml04, 14);
461 vcputsv(menuob, 64, mlcv, mbak, 22, 2, "\260", 14);
462 vcputsv(menuob, 64, mlcv, mbak, 22, 61, "\260", 14);
463 vcputsv(menuob, 64, mlcv, mbak, 23, 2, ml05, 14);
464
465 mlp = &mlintab[0][0];
466 point = mlpoint;
467
468 while (-1 NE mlp[0]) {
469
470 lseg(mlp[0], mlp[1], mlp[2], mlp[3], mlcv);
471 mlp += 4;
472 }
473
474 vcputsv(menuob, 64, MTITLE, mbak, mrowcol[0][0], mrowcol[0][1],
475 mtexts[0], 14);
476
477 vcputsv(menuob, 64, MTITLE, mbak, VER_ROW, VER_COL, m7verms, 14);
478
479 for (i = 1; i < 13; i++)
480 vcputsv(menuob, 64, mbcv, mbak, mrowcol[i][0], mrowcol[i][1],
481 mtexts[i], 14);
482
483 vcputsv(menuob, 64, MBUCHLA, mbak, mrowcol[13][0], mrowcol[13][1],
484 mtexts[13], 14);
485
486 for (i = 0; i < NLTYPES; i++) {
487
488 memcpy(buf, loadedf[i], 8);
489 buf[8] = '\0';
490
491 vcputsv(menuob, 64, MLFILES, mbak, mfrc[i][0], mfrc[i][1],
492 buf, 14);
493 }
494}
495
496/*
497 =============================================================================
498 m7menu() -- setup the MIDAS 700 main menu display
499 =============================================================================
500*/
501
502void m7menu(void)
503{
504 menuob = &v_score[0];
505 obj0 = &v_curs0[0];
506 mdoct = &v_obtab[MENUOBJ];
507
508 curslim = 350;
509
510 curset(&m7_flds);
511
512 ndisp = -1;
513 dswap();
514
515 vbank(0);
516 memsetw(menuob, 0, 32767);
517 memsetw(menuob+32767L, 0, 12033);
518
519 SetObj(MENUOBJ, 0, 0, menuob, 512, 350, 0, 0, MENUFL, -1);
520 SetObj(0, 0, 1, obj0, 16, 16, MCURX, MCURY, OBFL_00, -1);
521
522 arcurs(MCURSOR);
523
524 drawm();
525
526 vsndpal(menupal);
527
528 SetPri(MENUOBJ, MENUPRI);
529 SetPri(0, GCPRI);
530
531 setgc(MCURX, MCURY);
532}
533
Note: See TracBrowser for help on using the repository browser.