source: buchla-68k/ram/ptdisp.c@ 7258c6a

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

Use standard integer types.
  • Property mode set to 100644
File size: 7.3 KB
Line 
1/*
2 =============================================================================
3 ptdisp.c -- MIDAS-VII Patch editor display functions
4 Version 32 -- 1989-11-16 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#include "stddefs.h"
9#include "hwdefs.h"
10#include "graphdef.h"
11#include "vsdd.h"
12#include "patch.h"
13
14#include "midas.h"
15#include "ptdisp.h"
16
17extern int8_t *LineBak(void);
18extern int8_t *LineFwd(void);
19
20extern int8_t *(*BakLine)(void);
21extern int8_t *(*FwdLine)(void);
22
23extern uint16_t pt_alc(void);
24
25extern uint16_t *obj8, *obj9, *obj10, *obj11;
26extern uint16_t *LineBuf, *ScObAdr, *OldLine;
27extern uint16_t LineAtr;
28
29extern int16_t CurLine, CurScan;
30extern int16_t ScrlObj, SmScNsl;
31extern int16_t PdScDnF, PdScUpF;
32extern int16_t ctcsw, submenu;
33extern int16_t cxval;
34
35extern int16_t cg3[][256];
36
37uint16_t seqflag[16]; /* sequence flags */
38uint16_t seqline[16]; /* current sequencer line */
39uint16_t seqstim[16]; /* sequence stimulus */
40uint16_t seqtime[16]; /* sequence timers */
41uint16_t sregval[16]; /* register values */
42uint16_t trstate[16]; /* trigger states */
43
44struct seqent seqtab[NSLINES]; /* sequence table */
45
46/*
47
48*/
49
50int8_t pthead[] =
51
52 "\260 Definer p ch Stmulus p ch Destnation \275\276 Datum \260 No Seq Rg T \260";
53
54int8_t *ptmcon[] = {
55
56 "\260 Key SeqLin Instr Index Level V Out Srce PchWh Pitch \260",
57 "\260 Rel SeqCtl Osc Freq Loctn Depth Mult ModWh Freq \260",
58 "\260 Trg Tuning WaveA Pitch Filtr Rate Time Breth KeyVl \260",
59 "\260 Pls RegSet WaveB Intvl Fil Q Inten Valu Pedal KeyPr \260",
60 "\260 LED RegAdd Confg Ratio Dynmc Aux Func GPC/V Randm \260"
61};
62
63int16_t ptabpal[16][3] = { /* patch display palette */
64
65 {0, 0, 0}, /* 0 - black */
66 {2, 3, 3}, /* 1 - white */
67 {0, 0, 1}, /* 2 - dark blue #1 */
68 {2, 0, 2}, /* 3 - dark violet */
69 {0, 0, 3}, /* 4 - dark blue #2 */
70 {3, 0, 0}, /* 5 - red */
71 {3, 3, 0}, /* 6 - yellow */
72 {1, 2, 0}, /* 7 - dark green */
73 {0, 3, 3}, /* 8 - light blue */
74 {2, 2, 2}, /* 9 - gray */
75 {0, 3, 0}, /* 10 - light green */
76 {3, 1, 2}, /* 11 - light violet */
77 {0, 2, 3}, /* 12 - medium blue */
78 {2, 0, 0}, /* 13 - dark red */
79 {1, 1, 2}, /* 14 - electric purple */
80 {3, 3, 3} /* 15 - bright white */
81};
82
83/*
84
85*/
86
87/*
88 =============================================================================
89 ptwin() -- fill in a patch table display window
90 =============================================================================
91*/
92
93void ptwin(int16_t n)
94{
95 register int16_t i, j;
96 int16_t atrbuf[64];
97 int8_t linbuf[66];
98
99 if (v_regs[5] & 0x0180)
100 vbank(0);
101
102 switch (n) {
103
104 case 0: /* headings and box outline */
105
106 /* row 0 */
107
108 memset(linbuf, '\261', 63);
109 linbuf[0] = '\272';
110 linbuf[48] = '\267';
111 linbuf[62] = '\273';
112 linbuf[63] = '\0';
113
114 memsetw(atrbuf, PTBATR, 63);
115 atrbuf[63] = 0x0000;
116
117 vputsa(obj8, 0, 0, linbuf, atrbuf);
118
119 /* row 1 */
120
121 memsetw(atrbuf, PTHATR+0x0100, 64);
122 atrbuf[0] = PTBATR;
123 atrbuf[1] = PTHATR;
124 atrbuf[14] = PTHATR;
125 atrbuf[27] = PTHATR;
126 atrbuf[41] = PTHATR;
127 atrbuf[47] = PTHATR;
128 atrbuf[48] = PTBATR;
129 atrbuf[49] = PTHATR;
130 atrbuf[52] = PTHATR;
131 atrbuf[56] = PTHATR;
132 atrbuf[59] = PTHATR;
133 atrbuf[61] = PTHATR;
134 atrbuf[62] = PTBATR;
135 atrbuf[63] = 0x0000;
136
137 vputsa(obj8, 1, 0, pthead, atrbuf);
138/*
139
140*/
141 /* row 18 */
142
143 memset(linbuf, '\261', 63);
144 linbuf[0] = '\266';
145 linbuf[48] = '\265';
146 linbuf[62] = '\264';
147 linbuf[63] = '\0';
148
149 memsetw(atrbuf, PTBATR, 63);
150 atrbuf[63] = 0x0000;
151
152 vputsa(obj11, 0, 0, linbuf, atrbuf);
153
154 /* row 24 */
155
156 memset(linbuf, '\261', 63);
157 linbuf[0] = '\271';
158 linbuf[62] = '\270';
159 linbuf[63] = '\0';
160
161 memsetw(atrbuf, PTBATR, 63);
162 atrbuf[63] = 0x0000;
163
164 vputsa(obj11, 6, 0, linbuf, atrbuf);
165
166 break;
167/*
168
169*/
170 case 1: /* patches */
171
172 SetDTop(0, 13);
173
174 for (i = 0; i < 16; i++) {
175
176 for (j = 0; j < 47; j++)
177 linbuf[j] = ' ';
178
179 linbuf[47] = '\0';
180
181 UpdVid(i, 0, "\260", PTBATR);
182
183 UpdVid(i, 1, linbuf,
184 (i EQ 7) ? PTEATR : PTPATR);
185 }
186
187 dptw();
188
189 break;
190/*
191
192*/
193 case 2: /* sequence status */
194
195 for (i = 0; i < 16; i++) {
196
197 sprintf(linbuf, " %03d %02d %d ",
198 seqline[i], sregval[i], trstate[i]);
199
200 vvputsv(obj10, 16, PDBORFG, PDSEQBG,
201 i, 0, "\260", 14, 14, cg3);
202
203 vvputsv(obj10, 16, PDSEQFG, PDSEQBG,
204 i, 1, linbuf, 14, 14, cg3);
205
206 vvputsv(obj10, 16, PDBORFG, PDSEQBG,
207 i, 14, "\260", 14, 14, cg3);
208
209 if (i EQ 7) {
210
211 if (48 EQ XTOC(cxval)) {
212
213 vsplot4(obj10, 16, PDPTRFG,
214 i, 0, "\277", 14, 14, cg3);
215
216 } else {
217
218 vsplot4(obj10, 16, PDPTRFG,
219 i, 0, "\274", 14, 14, cg3);
220 }
221 }
222
223 sprintf(linbuf, "%02d", i + 1);
224
225 vvputsv(obj10, 16,
226 (seqflag[i] & SQF_RUN) ? PDSEQRN : PDSEQFG, PDSEQBG,
227 i, 2, linbuf, 14, 14, cg3);
228 }
229
230 break;
231
232 case 3: /* menu */
233
234 memsetw(atrbuf, PTMATR, 64);
235 atrbuf[0] = PTBATR;
236 atrbuf[62] = PTBATR;
237 atrbuf[63] = 0x0000;
238
239 for (i = 0; i < 5; i++)
240 vputsa(obj11, (i + 1), 0, ptmcon[i], atrbuf);
241
242 break;
243 }
244}
245
246/*
247
248*/
249
250/*
251 =============================================================================
252 ptwins() -- draw the patch table display
253 =============================================================================
254*/
255
256void ptwins(void)
257{
258 register int16_t i;
259
260 for (i = 0; i < 4; i++)
261 ptwin(i);
262}
263
264/*
265 =============================================================================
266 ptdisp() -- setup the patch table display
267 =============================================================================
268*/
269
270void ptdisp(void)
271{
272 dswap(); /* clear the video display */
273
274 BakLine = LineBak;
275 FwdLine = LineFwd;
276
277 /* setup object pointers */
278
279 obj8 = &v_score[OB08LOC]; /* 8 - headings */
280 obj9 = &v_score[OB09LOC]; /* 9 - patches */
281 obj10 = &v_score[OB10LOC]; /* 10 - status */
282 obj11 = &v_score[OB11LOC]; /* 11 - menu */
283
284 ScrlObj = 9;
285 ScObAdr = obj9;
286 LineBuf = obj9;
287 OldLine = (uint16_t *)NULL;
288 LineAtr = PTPATR;
289
290 CurLine = 0;
291 CurScan = 13;
292
293 PdScDnF = FALSE;
294 PdScUpF = FALSE;
295
296 /* ---------------- initialize object table -------------------- */
297 /* obj, typ, bnk, base, xpix, ypix, x0, y0, flags, pri */
298
299 SetObj( 8, 1, 0, obj8, 512, 28, 0, 0, PDFL_08, -1);
300 SetObj( 9, 1, 0, obj9, 384, 224, 0, 28, PDFL_09, -1);
301 SetObj( 10, 0, 0, obj10, 128, 224, 384, 28, PDFL_10, -1);
302 SetObj( 11, 1, 0, obj11, 512, 98, 0, 252, PDFL_11, -1);
303
304 if (v_regs[5] & 0x0180)
305 vbank(0);
306
307 memsetw(v_score, 0, 32767); /* clear display objects */
308 memsetw(v_score+32767L, 0, 24577);
309
310 voidpb(); /* void the patch buffer */
311 ptwins(); /* fill up the windows */
312
313/*
314
315*/
316 /* display some objects */
317
318 SetPri( 8, 8); /* headings */
319 SetPri( 9, 9); /* patches */
320 SetPri(10, 10); /* sequence status */
321 SetPri(11, 11); /* menu */
322
323 if (v_regs[5] & 0x0180) /* select bank 0 */
324 vbank(0);
325
326 memcpyw(v_cgtab, cg3, 3584); /* setup character generator */
327 v_regs[1] = (v_regs[1] & 0x0FFF) | 0xE000;
328
329 /* fix the initial scan line specs in the object descriptor table */
330
331 v_odtab[ 8][0] = (v_odtab[ 8][0] & 0x0FFF) | 0xD000;
332 v_odtab[ 9][0] = (v_odtab[ 9][0] & 0x0FFF) | 0xD000;
333
334 v_odtab[11][0] = (v_odtab[11][0] & 0x0FFF) | 0xD000;
335
336 submenu = FALSE;
337
338 ctcsw = TRUE; /* enable cursor */
339 ctcpos(DATAROW, 2); /* set initial cursor */
340 aftercm(); /* set initial submenu */
341
342 vsndpal(ptabpal); /* set the palette */
343}
Note: See TracBrowser for help on using the repository browser.