source: buchla-68k/ram/scordsp.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: 20.8 KB
Line 
1/*
2 =============================================================================
3 scordsp.c -- MIDAS score display driver
4 Version 136 -- 1988-12-08 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#include "ram.h"
9
10/*
11
12*/
13
14/* initialized stuff */
15
16int16_t var2src[6] = { /* analog variable map */
17
18 SM_HTPW, SM_VTMW, SM_LPBR, SM_CTL1, SM_PED1, SM_KPRS
19};
20
21int16_t simled[3] = { /* simulated LED colors for group modes */
22
23 0x00A2, /* play mode = green */
24 0x0062, /* standby mode = yellow */
25 0x0052 /* record mode = red */
26};
27
28int8_t nsvtab[] = { /* note value modifier (accidental) table */
29
30 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, /* 21 .. 32 -- A0 .. G#0 */
31 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, /* 33 .. 44 -- A1 .. G#1 */
32 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, /* 45 .. 56 -- A2 .. G#2 */
33 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, /* 57 .. 68 -- A3 .. G#3 */
34 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, /* 69 .. 80 -- A4 .. G#4 */
35 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, /* 81 .. 92 -- A5 .. G#5 */
36 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, /* 93 .. 104 -- A6 .. G#6 */
37 0, 1, 0, 0 /* 105 .. 108 -- A7 .. C7 */
38};
39
40int16_t scorpal[16][3] = { /* score palette */
41
42 {0, 0, 0}, /* 0 - black */
43 {2, 3, 3}, /* 1 - white */
44 {0, 0, 1}, /* 2 - dark blue #1 */
45 {2, 0, 2}, /* 3 - dark violet */
46 {0, 0, 3}, /* 4 - dark blue #2 */
47 {3, 0, 0}, /* 5 - red */
48 {3, 3, 0}, /* 6 - yellow */
49 {1, 2, 0}, /* 7 - dark green */
50 {0, 3, 3}, /* 8 - light blue */
51 {3, 2, 0}, /* 9 - tan */
52 {0, 3, 0}, /* 10 - light green */
53 {3, 1, 2}, /* 11 - light violet */
54 {0, 2, 3}, /* 12 - medium blue */
55 {2, 0, 0}, /* 13 - dark red */
56 {2, 2, 1}, /* 14 - ivory */
57 {3, 3, 3} /* 15 - bright white */
58};
59
60/*
61
62*/
63
64int8_t *clklbl[] = { /* clock control and scource labels */
65
66 "Local", /* 0 - CK_LOCAL */
67 "MIDI ", /* 1 - CK_MIDI */
68 "SMPTE", /* 2 - CK_SMPTE */
69 "PLS24", /* 3 - CK_PLS24 */
70 "PLS48", /* 4 - CK_PLS48 */
71 "PLS96", /* 5 - CK_PLS96 */
72 "Step " /* 6 - CK_STEP */
73};
74
75int8_t *sdisp[] = { /* score display fixed text strings */
76
77 /* 0 */ "\230\231\232\233 ", /* Interpolate */
78
79 /* 1 */ "\200\201\202\203 1 2 3 4 5 6 7 8 9 \254 \255 \256 ",
80 /* Group / Instrument */
81
82 /* 2 */ "\220\221\222\223 Pch/Hor Mod/Vrt Brth/LP GPC/CV1 Pedal 1 Key Prs Group",
83 /* Analog Source */
84
85 /* 3 */ "\015\016\017 Play Recrd OvrDub PunchIn ",
86 /* Rec Mode */
87
88 /* 4 */ "\204\205\206\207", /* Transpose */
89
90 /* 5 */ "\210\211\212\213 / / / / / / / / / / / / ",
91 /* Dynamics / Location */
92
93 /* 6 */ "\214\215\216\217", /* Velocity */
94
95 /* 7 */ "\224\225\226\227 0/+00.0 0/+00.0 0/+00.0 0/+00.0 0/+00.0 0/+00.0 # 00 ",
96 /* Resolution / Value */
97
98 /* 8 */ " "
99
100
101};
102
103/*
104
105*/
106
107/*
108 =============================================================================
109 makeln(lnc, lec) -- create the constant slice at 'consl'.
110 make the line object color 'lnc', and ledger line color 'lec',
111 =============================================================================
112*/
113
114void makeln(uint16_t lnc, uint16_t lew)
115{
116 register uint16_t *lp, *cp;
117 register int16_t i;
118 register uint16_t lbg;
119
120 lp = obj15; /* setup line object pointer */
121 cp = consl; /* setup constant slice pointer */
122
123 lew = exp_c(lew); /* create ledger line constant */
124
125 lnc &= 0x000F; /* mask cursor line color */
126
127/*
128
129*/
130 for (i = 0; i < 224; i++) {
131
132 /* stuff data into line object */
133
134 if ((i EQ 42) OR /* top ledger line */
135 (i EQ 50) OR /* top ledger line */
136 (i EQ 58) OR /* top ledger line */
137 (i EQ 66) OR /* top ledger line */
138 (i EQ 162) OR /* bottom ledger line */
139 (i EQ 170) OR /* bottom ledger line */
140 (i EQ 178) OR /* bottom ledger line */
141 (i EQ 186)) {
142
143 lbg = lew;
144 *lp++ = lbg & 0xFFF0;
145 *lp++ = lbg;
146 *lp++ = lbg;
147 *lp++ = lbg;
148
149 } else if (i > 209) { /* new data area */
150
151 lbg = 0;
152 *lp++ = lbg & 0xFFF0;
153 *lp++ = lbg;
154 *lp++ = lbg;
155 *lp++ = lbg;
156
157 } else {
158
159 lbg = 0;
160 *lp++ = lbg & 0xFFF0;
161 *lp++ = lbg;
162 *lp++ = (lbg & 0xFFF0) | lnc;
163 *lp++ = lbg;
164 }
165
166 *cp++ = 0; /* clear a line in the constant slice */
167 }
168
169/*
170
171*/
172
173 consl[74] = lew; /* constant slice treble clef lines */
174 consl[82] = lew;
175 consl[90] = lew;
176 consl[98] = lew;
177 consl[106] = lew;
178
179 consl[122] = lew; /* constant slice bass clef lines */
180 consl[130] = lew;
181 consl[138] = lew;
182 consl[146] = lew;
183 consl[154] = lew;
184
185 consl[210] = exp_c(NDMC); /* constant slice new data margin line */
186}
187
188/*
189
190*/
191
192/*
193 =============================================================================
194 ds_vmod() -- display velocity mode
195 =============================================================================
196*/
197
198void ds_vmod(void)
199{
200 if (ndisp NE 2)
201 return;
202
203 if (v_regs[5] & 0x0180)
204 vbank(0);
205
206 vputs(obj8, 5, 0, sdisp[6],
207 velflag ? ((SD_CHNG << 4) | SDBG11) : SDW11ATR);
208}
209
210/*
211 =============================================================================
212 ds_vel() -- display velocities
213 =============================================================================
214*/
215
216void ds_vel(void)
217{
218 register int16_t i;
219 int8_t buf[6];
220
221 if (ndisp NE 2)
222 return;
223
224 if (v_regs[5] & 0x0180)
225 vbank(0);
226
227 ds_vmod();
228
229 for (i = 0; i < 12; i++) {
230
231 sprintf(buf, "%03d", lastvel[i] / 252);
232 vputs(obj8, 5, (i * 5) + 6, buf, SDW11ATR);
233 }
234}
235
236/*
237
238*/
239
240/*
241 =============================================================================
242 dsvmode() -- display variable mode
243 =============================================================================
244*/
245
246void dsvmode(int16_t n)
247{
248 if (ndisp NE 2)
249 return;
250
251 if (v_regs[5] & 0x0180)
252 vbank(0);
253
254 vputc(obj8, 6, 5 + (n * 9), '*', simled[varmode[n][abs(angroup) - 1]]);
255}
256
257
258/*
259 =============================================================================
260 ds_anmd() -- display mode for all variables
261 =============================================================================
262*/
263
264void ds_anmd(void)
265{
266 register int16_t i;
267
268 if (ndisp NE 2)
269 return;
270
271 for (i = 0; i < 6; i++)
272 dsvmode(i);
273}
274
275/*
276
277*/
278
279/*
280 =============================================================================
281 ds_angr() -- display analog variable group number
282 =============================================================================
283*/
284
285void ds_angr(void)
286{
287 int8_t buf[4];
288
289 if (ndisp NE 2)
290 return;
291
292 if (v_regs[5] & 0x0180)
293 vbank(0);
294
295 sprintf(buf, "# %2.2d", abs(angroup));
296 vputs(obj8, 7, 59, buf, SDW12ATR);
297}
298
299/*
300
301*/
302
303/*
304 =============================================================================
305 ds_anrs() -- display analog resolution
306 =============================================================================
307*/
308
309void ds_anrs(void)
310{
311 register int16_t i;
312 int8_t buf[3];
313
314 if (ndisp NE 2)
315 return;
316
317 if (v_regs[5] & 0x0180)
318 vbank(0);
319
320 buf[1] = '/';
321 buf[2] = '\0';
322
323 for (i = 0; i < 6; i++) {
324
325 buf[0] = '0' + anrs[i][abs(angroup) - 1];
326 vputs(obj8, 7, 6 + (i * 9), buf, SDW12ATR);
327 }
328}
329
330/*
331
332*/
333
334/*
335 =============================================================================
336 dsanval() -- display analog value
337 =============================================================================
338*/
339
340void dsanval(int16_t var)
341{
342 register int16_t tmp, val, v1, v2;
343 int8_t buf[16];
344
345 if (ndisp NE 2)
346 return;
347
348 if (v_regs[5] & 0x0180)
349 vbank(0);
350
351 val = valents[((abs(angroup) - 1) << 4) | var2src[var]].val >> 5;
352 tmp = abs(val);
353 v1 = tmp / 100;
354 v2 = (tmp - (v1 * 100)) / 10;
355 sprintf(buf, "%c%02d.%1d", ((val < 0) ? '-' : '+'), v1, v2);
356 vputs(obj8, 7, 8 + (var * 9), buf, SDW12ATR);
357}
358
359/*
360 =============================================================================
361 ds_anvl() -- display analog values
362 =============================================================================
363*/
364
365void ds_anvl(void)
366{
367 register int16_t i;
368
369 if (ndisp NE 2)
370 return;
371
372 for (i = 0; i < 6; i++)
373 dsanval(i);
374}
375
376/*
377
378*/
379
380/*
381 =============================================================================
382 uclk() -- underline clock label
383 =============================================================================
384*/
385
386void uclk(void)
387{
388 if (sliders NE LS_VOICE) {
389
390 point = GLCplot;
391
392 GLCcurs(G_ON);
393
394 if (clkrun)
395 lseg(CK_XL, CK_Y, CK_XR, CK_Y, 1); /* clock on */
396 else
397 lseg(CK_XL, CK_Y, CK_XR, CK_Y, 0); /* clock off */
398
399 GLCcurs(G_OFF);
400 }
401}
402
403/*
404
405*/
406
407/*
408 =============================================================================
409 dclkmd() -- display clock mode
410 =============================================================================
411*/
412
413void dclkmd(void)
414{
415 uclk();
416
417 if (ndisp NE 2)
418 return;
419
420 if (v_regs[5] & 0x0180)
421 vbank(0);
422
423 vputs(obj8, 0, 29, "Clock",
424 clkrun ? ((SD_CHNG << 4) | SDBG02) : SDW02ATR);
425}
426
427/*
428
429*/
430
431/*
432 =============================================================================
433 dsclk() -- display clock status, control, and source
434 =============================================================================
435*/
436
437void dsclk(void)
438{
439 int16_t atr[26];
440
441 uclk();
442
443 if (ndisp NE 2)
444 return;
445
446 memsetw(atr, SDW02ATR, 26);
447
448 if (clkrun)
449 memsetw(atr, (SDBG02 | (SD_CHNG << 4)), 5);
450
451 sprintf(bfs, "Clock Con %5.5s Src %5.5s ",
452 clklbl[clkctl], clklbl[clksrc]);
453
454 if (v_regs[5] & 0x0180)
455 vbank(0);
456
457 vputsa(obj8, 0, 29, bfs, atr);
458}
459
460/*
461
462*/
463
464/*
465 =============================================================================
466 dssect() -- display current score section
467 =============================================================================
468*/
469
470void dssect(void)
471{
472 if (ndisp NE 2)
473 return;
474
475 sprintf(bfs, "%02d", cursect + 1);
476
477 if (v_regs[5] & 0x0180)
478 vbank(0);
479
480 vputs(obj8, 0, 6, bfs, SDW01ATR);
481}
482
483/*
484
485*/
486
487/*
488 =============================================================================
489 dslocn() -- display current score location
490 =============================================================================
491*/
492
493void dslocn(void)
494{
495 register int32_t curfr, beat;
496 register int16_t frame;
497
498 if (ndisp NE 2)
499 return;
500
501 curfr = t_ctr;
502 beat = curfr / 48;
503 frame = curfr % 48;
504
505 sprintf(bfs, "%05ld F %02d", beat, frame);
506
507 if (v_regs[5] & 0x0180)
508 vbank(0);
509
510 vputs(obj8, 0, 11, bfs, SDW00ATR);
511}
512
513/*
514
515*/
516
517/*
518 =============================================================================
519 dnedmod() -- display note edit mode
520 =============================================================================
521*/
522
523void dnedmod(void)
524{
525 if (ndisp NE 2)
526 return;
527
528 if (v_regs[5] & 0x0180)
529 vbank(0);
530
531 vputs(obj8, 0, 55, nedlbl[noteop],
532 (notesel ? ((SD_CHNG << 4) | SDBG03) : SDW03ATR) |
533 (noteop EQ NOP_NUL ? 0 : C_BLINK));
534}
535
536/*
537 =============================================================================
538 dsmem() -- display remaining memory 'units' (long words)
539 =============================================================================
540*/
541
542void dsmem(void)
543{
544 if (ndisp NE 2)
545 return;
546
547 sprintf(bfs, "M %05ld", evleft());
548
549 if (v_regs[5] & 0x0180)
550 vbank(0);
551
552 vputs(obj8, 8, 57, bfs, SDW15ATR);
553}
554
555/*
556
557*/
558
559/*
560 =============================================================================
561 dsgstat() -- display group status
562 =============================================================================
563*/
564
565void dsgstat(int16_t n)
566{
567 int8_t c;
568
569 if (ndisp NE 2)
570 return;
571
572 if (v_regs[5] & 0x0180)
573 vbank(0);
574
575 c = 1 + n + (grpstat[n] ? ((n > 8) ? 162 : '0') : 192);
576 vputc(obj8, 2, 5 + (n * 5), c, (((n + 3) << 4) | 2));
577}
578
579/*
580 =============================================================================
581 dsgmode() -- display group mode
582 =============================================================================
583*/
584
585void dsgmode(int16_t n)
586{
587 if (ndisp NE 2)
588 return;
589
590 if (v_regs[5] & 0x0180)
591 vbank(0);
592
593 vputc(obj8, 2, 6 + (n * 5), '*', simled[grpmode[n]]);
594}
595
596/*
597
598*/
599
600/*
601 =============================================================================
602 dsgmods() -- display mode and status for all groups
603 =============================================================================
604*/
605
606void dsgmods(void)
607{
608 register int16_t i;
609
610 if (ndisp NE 2)
611 return;
612
613 for (i = 0; i < 12; i++) {
614
615 dsgstat(i);
616 dsgmode(i);
617 }
618}
619
620/*
621 =============================================================================
622 dsgmodz() -- display modes for all groups and variables
623 =============================================================================
624*/
625
626void dsgmodz(void)
627{
628 register int16_t i;
629
630 if (ndisp NE 2)
631 return;
632
633 for (i = 0; i < 12; i++) /* group modes */
634 dsgmode(i);
635
636 for (i = 0; i < 6; i++) /* variable modes */
637 dsvmode(i);
638}
639
640/*
641
642*/
643
644/*
645 =============================================================================
646 dsrpmod() -- display record / play modes
647 =============================================================================
648*/
649
650void dsrpmod(void)
651{
652 int16_t atr[25];
653
654 switch (sliders) {
655
656 case LS_PRMTR:
657 case LS_OTHER:
658 case LS_EQ:
659 case LS_NGRP:
660
661 point = GLCplot;
662
663 GLCcurs(G_ON);
664
665 if (recsw) {
666
667 lseg(RP_RL, RP_Y, RP_RR, RP_Y, 1); /* record */
668 lseg(RP_PL, RP_Y, RP_PR, RP_Y, 0);
669
670 } else {
671
672 lseg(RP_RL, RP_Y, RP_RR, RP_Y, 0); /* play */
673 lseg(RP_PL, RP_Y, RP_PR, RP_Y, 1);
674 }
675
676 GLCcurs(G_OFF);
677 }
678/*
679
680*/
681 if (ndisp NE 2)
682 return;
683
684 memsetw(atr, SDW14ATR, 25);
685
686 if (recsw) /* record */
687 memsetw(&atr[5], (C_BLINK | SDBG14 | (SD_CHNG << 4)), 5);
688 else /* play */
689 memsetw(&atr[0], (SDBG14 | (SD_CHNG << 4)), 4);
690
691 if (dubsw) /* overdub */
692 memsetw(&atr[11], (SDBG14 | (SD_CHNG << 4)), 6);
693
694 if (pchsw) /* punch in enable */
695 memsetw(&atr[18], (SDBG14 | (SD_CHNG << 4)), 7);
696
697 if (v_regs[5] & 0x0180)
698 vbank(0);
699
700 vputsa(obj8, 8, 31, "Play Recrd OvrDub PunchIn", atr);
701}
702
703/*
704
705*/
706
707/*
708 =============================================================================
709 dsimode() -- display insert mode
710 =============================================================================
711*/
712
713void dsimode(void)
714{
715 int16_t atr[7];
716
717 if (ndisp NE 2)
718 return;
719
720 if (insmode)
721 memsetw(atr, (SDBG01 | (SD_CHNG << 4)), 7);
722 else
723 memsetw(atr, SDW01ATR, 7);
724
725 if (v_regs[5] & 0x0180)
726 vbank(0);
727
728 vputsa(obj8, 0, 22, "Insert ", atr);
729}
730
731/*
732
733*/
734
735/*
736 =============================================================================
737 sdwin() -- fill in a score display window
738 =============================================================================
739*/
740
741void sdwin(int16_t n)
742{
743 int16_t atr[64], atrib, i;
744
745 if (ndisp NE 2) /* only if score is selected */
746 return;
747
748 if (v_regs[5] & 0x0180) /* select bank 0 */
749 vbank(0);
750
751 switch (n) { /* dispatch off of window number */
752
753 case 0: /* score location */
754
755 vputs(obj8, 0, 0,
756 ac_code EQ N_SHARP ? "\250 " : "\251 ",
757 SDW00ATR);
758
759 vputs(obj8, 0, 2, "Sec ", SDW01ATR);
760 vputs(obj8, 0, 9, "B F ", SDW00ATR);
761
762 dssect(); /* display current section */
763 dslocn(); /* display score location */
764 return;
765
766 case 1: /* insert mode */
767
768 dsimode(); /* display score insert mode */
769 return;
770
771 case 2: /* clock */
772
773 dsclk(); /* display clock status */
774 return;
775
776 case 3: /* note edit */
777
778 dnedmod();
779 return;
780/*
781
782*/
783 case 4: /* assignment */
784
785 vputs(obj8, 1, 0, "Assignment ", SDW04ATR);
786 rd_ioas(0); /* display assignment table number */
787 return;
788
789 case 5: /* tuning */
790
791 vputs(obj8, 1, 14, "Tune ", SDW05ATR);
792 rd_tune(0); /* display tuning table number */
793 return;
794
795 case 6: /* tempo */
796
797 vputs(obj8, 1, 21, "Tempo ", SDW06ATR);
798 rd_tmpo(0); /* display tempo */
799 return;
800
801 case 7: /* interpolate */
802
803 vputs(obj8, 1, 31, "Int ", SDW07ATR);
804 rd_intp(0);
805 return;
806
807 case 8: /* stop/next */
808
809 vputs(obj8, 1, 40, "Stop/Next ", SDW08ATR);
810 return;
811/*
812
813*/
814
815 case 9: /* punch in/out */
816
817 vputs(obj8, 1, 50, "In/Out ", SDW09ATR);
818 return;
819
820 case 10: /* output */
821
822 vputs(obj8, 1, 57, "Output ", SDW10ATR);
823 return;
824
825 case 11: /* group/instr, transposition, dyn/loc, velocity */
826
827 vputs(obj8, 2, 0, sdisp[1], SDW11ATR);
828 dsgmods(); /* display mode and status for all groups */
829 ds_inst(); /* display instruments */
830
831 vputs(obj8, 3, 4, sdisp[8], SDW11ATR);
832 vputs(obj8, 3, 0, sdisp[4], SDW11ATR);
833 ds_trns(); /* display transpositions */
834
835 vputs(obj8, 4, 4, sdisp[8], SDW11ATR); /* dyn/loc */
836 vputs(obj8, 4, 0, sdisp[5], SDW11ATR);
837 ds_dyn(); /* display dynamics */
838 ds_loc(); /* display locations */
839
840 vputs(obj8, 5, 4, sdisp[8], SDW11ATR); /* velocity */
841 vputs(obj8, 5, 0, sdisp[6], SDW11ATR);
842 ds_vel(); /* display velocities */
843
844 return;
845/*
846
847*/
848 case 12: /* analog variables */
849
850 vputs(obj8, 6, 0, sdisp[2], SDW12ATR);
851 vputs(obj8, 7, 0, sdisp[7], SDW12ATR);
852
853 if (angroup < 0)
854 atrib = SDW12ATR;
855 else
856 atrib = (SD_CHNG << 4) | SDBG12;
857
858 for (i = 0; i < 4; i++)
859 vputa(obj8, 7, i, atrib);
860
861 if (ancmsw)
862 atrib = (SD_CHNG << 4) | SDBG12;
863 else
864 atrib = SDW12ATR;
865
866 for (i = 0; i < 4; i++)
867 vputa(obj8, 6, i, atrib);
868
869 ds_anmd();
870 ds_angr();
871 ds_anrs();
872 ds_anvl();
873
874 return;
875
876 case 13: /* score */
877
878 sprintf(bfs, "Score %02.2d %16.16s ",
879 curscor + 1, scname[curscor]);
880
881 vputs(obj8, 8, 0, bfs, SDW13ATR);
882 return;
883
884 case 14: /* record/play, overdub, punchin */
885
886 vputs(obj8, 8, 27, sdisp[3], SDW14ATR); /* Rec Mode */
887 dsrpmod(); /* display rec/play modes */
888 return;
889
890 case 15: /* memory */
891
892 dsmem(); /* display available events */
893 return;
894 }
895}
896
897/*
898
899*/
900
901/*
902 =============================================================================
903 sdwins() -- display all score windows
904 =============================================================================
905*/
906
907void sdwins(void)
908{
909 register int16_t i;
910
911 if (ndisp NE 2) /* only if score display is selected */
912 return;
913
914 for (i = 0; i < 17; i++) /* refresh each of the windows */
915 sdwin(i);
916}
917
918/*
919
920*/
921
922/*
923 =============================================================================
924 sdsetup() -- setup the score display
925 =============================================================================
926*/
927
928void sdsetup(void)
929{
930 dswap(); /* clear the video display */
931
932 sd = D_FWD; /* display direction = forward */
933 noteop = NOP_NUL; /* no pending note edit operation */
934 notesel = FALSE; /* no note selected */
935 secop = SOP_NUL; /* no pending section edit operation */
936 scmctl = -1; /* no area 1 menu up */
937 sdmctl = -1; /* no area 2 menu up */
938 submenu = FALSE; /* submenu cursor not enabled */
939 lastam = 0; /* reset assignment menu page */
940
941 clrsctl(); /* clear out the slices */
942
943 /* setup object pointers */
944
945 obj0 = v_curs0; /* 0 - cursor (arrow) */
946 obj2 = v_tcur; /* 2 - cursor (typewriter) */
947 obj3 = v_cur; /* 3 - cursor (underline) */
948 obj8 = v_ct0; /* 8 - character text */
949 obj11 = v_win0; /* 11 - window */
950 obj13 = v_kbobj; /* 13 - keyboard */
951 obj14 = v_score; /* 14 - score */
952 obj15 = v_lnobj; /* 15 - line */
953
954 /* ---------------- initialize object table -------------------- */
955 /* obj, typ, bnk, base, xpix, ypix, x0, y0, flags, pri */
956
957 SetObj( 0, 0, 1, obj0, 16, 16, C1X, C1Y, OBFL_00, -1);
958 SetObj(TTCURS, 0, 1, obj2, 16, 16, 0, 0, TTCCFL, -1);
959 SetObj( 3, 0, 1, obj3, 512, 18, 0, 0, OBFL_01, -1);
960 SetObj( 8, 1, 0, obj8, 512, 108, 0, 0, OBFL_08, -1);
961 SetObj( 11, 0, 1, obj11, 512, 224, 0, 14, OBFL_11, -1);
962 SetObj( 13, 0, 1, obj13, 16, 224, 0, 14, OBFL_13, -1);
963 SetObj( 14, 0, 0, obj14, 512, 224, 0, 14, OBFL_14, -1);
964 SetObj( 15, 0, 1, obj15, 16, 224, 248, 14, OBFL_15, -1);
965
966 if (v_regs[5] & 0x0180) /* select bank 0 */
967 vbank(0);
968
969 memsetw(obj14, 0, 32767); /* clear score object */
970 memsetw(obj14+32767L, 0, 24577);
971
972 vbank(1); /* select bank 1 */
973
974 stcset(); /* setup text cursor colors */
975 stcclr(); /* clear text cursors */
976 arcurs(SDCURSR); /* setup arrow cursor */
977 ttcini(SDCURSR); /* setup typewriter cursor */
978
979/*
980
981*/
982 if ((v_regs[5] & 0x0180) NE 0x0100)
983 vbank(1); /* select bank 1 */
984
985 memcpyw(obj13, kbobj, 896); /* setup 'keyboard' object */
986 makeln(LN_VRT, LN_HOR); /* setup 'lines' object */
987 sdwins(); /* fill in the windows */
988
989 /* display some objects */
990
991 SetPri( 3, 12); /* Underline cursors */
992 objclr(12);
993 objon(12, 12, 2); /* ... row 0 */
994 objon(12, 250, 2); /* ... row 17 */
995 objon(12, 264, 2); /* ... row 18 */
996 objon(12, 278, 2); /* ... row 19 */
997 objon(12, 292, 2); /* ... row 20 */
998 objon(12, 306, 2); /* ... row 21 */
999 objon(12, 320, 2); /* ... row 22 */
1000 objon(12, 334, 2); /* ... row 23 */
1001 objon(12, 348, 2); /* ... row 24 */
1002
1003 SetPri( 8, 7); /* Character Text */
1004 objclr(7);
1005 objon(7, 0, 12); /* ... row 0 */
1006 objon(7, 238, 12); /* ... row 17 */
1007 objon(7, 252, 12); /* ... row 18 */
1008 objon(7, 266, 12); /* ... row 19 */
1009 objon(7, 280, 12); /* ... row 20 */
1010 objon(7, 294, 12); /* ... row 21 */
1011 objon(7, 308, 12); /* ... row 22 */
1012 objon(7, 322, 12); /* ... row 23 */
1013 objon(7, 336, 12); /* ... row 24 */
1014
1015 SetPri(13, 2); /* Keyboard object */
1016 SetPri(14, 1); /* Score object */
1017 SetPri(15, 0); /* Line object */
1018
1019 vsndpal(scorpal); /* set the palette */
1020
1021 SetPri( 0, 15); /* Turn on arrow cursor */
1022 setgc(C1X, C1Y);
1023
1024 sc_refr(t_cur); /* position the score on the display */
1025}
1026
Note: See TracBrowser for help on using the repository browser.