Context Navigation

source: buchla-68k/ram/im700.c@ 0c834c5

Last change on this file since 0c834c5 was 0c834c5, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Prototypes for global function pointers. Consistent global types.
Property mode set to `100644`
File size: 32.9 KB

Line
1	/*
2	=============================================================================
3	im700.c -- variable definitions and initialization for MIDAS-VII
4	Version 102 -- 1989-11-16 -- D.N. Lynx Crowe
5	=============================================================================
6	*/
7
8	#define DEBUGVAL 0 /* initial value for debugsw */
9
10	#define FET_DEFS 1 /* so fields.h gets things right */
11	#define M7CAT 1 /* so libdsp.h gets it right */
12
13	#include "stddefs.h"
14	#include "biosdefs.h"
15	#include "cmeta.h"
16	#include "curpak.h"
17	#include "fields.h"
18	#include "fpu.h"
19	#include "glcfns.h"
20	#include "glcdefs.h"
21	#include "graphdef.h"
22	#include "hwdefs.h"
23	#include "macros.h"
24	#include "memory.h"
25	#include "objdefs.h"
26	#include "panel.h"
27	#include "sclock.h"
28	#include "scwheel.h"
29	#include "slice.h"
30	#include "smdefs.h"
31	#include "timers.h"
32	#include "vsdd.h"
33	#include "vsddsw.h"
34	#include "vsddvars.h"
35
36	#include "midas.h"
37
38	#include "asgdsp.h"
39	#include "instdsp.h"
40	#include "libdsp.h"
41	#include "score.h"
42	#include "scdsp.h"
43	#include "scfns.h"
44	#include "wsdsp.h"
45
46	extern unsigned tofpu(unsigned time);
47
48	extern short nokey(void);
49	extern void stdmkey(void);
50	extern void cxkstd(void);
51	extern void cykstd(void);
52	extern void cxgen(void);
53	extern void cygen(void);
54	extern void cmvgen(void);
55	extern short stdctp2(void);
56
57	extern short blakpal[16][3];
58
59	extern PFS t_prmtr[];
60
61	extern char *funcndx[256][2];
62
63	extern char keystat[24];
64	extern char ldcmnt[38];
65	extern char ldfile[9];
66	extern char loadedc[NLTYPES][37];
67	extern char loadedf[NLTYPES][8];
68	extern char masens[3];
69	extern char mctlval[NCTRLS];
70	extern char mdbyte[3];
71	extern char mpsust[48];
72	extern char mrstat[3];
73	extern char trgtab[NTRIGS];
74
75	extern short fnoff[];
76
77	extern short articen[12]; /* voice articulation enable status */
78	extern short grpmode[12]; /* group mode - 0 = play, 1 = stdby, 2 = rec */
79	extern short grpsel[12]; /* group select status for instrument selection */
80	extern short grpstat[12]; /* group status - 0 = off, non-0 = on */
81	extern short gtctab[12]; /* group to color table */
82	extern short lastvce[12]; /* last voice assigned in each group */
83	extern short lastvel[12]; /* last velocity sent to group */
84	extern short mpbend[48]; /* MIDI pitch bend data, by port and channel */
85	extern short msmstv[3]; /* MIDI state machine state variables */
86	extern short prstab[NTRIGS]; /* pressure */
87	extern short vce2trg[12]; /* voice to trigger map (-1 EQ NULL) */
88	extern short veltab[NTRIGS]; /* velocity */
89
90	/*
91
92	*/
93
94	extern PFS (oldsw)[]; / saved swpt value */
95	extern PFS (swpt)[]; / switch dispatch table pointer */
96
97	extern void (curmove)(void); / cursor move function */
98	extern short (curtype)(void); / cursor type function */
99	extern void (cx_key)(void); / x rate calculation */
100	extern void (cx_upd)(void); / x update */
101	extern void (cy_key)(void); / y rate calculation */
102	extern void (cy_upd)(void); / y update */
103	extern void (d_key)(void); / in-field data key processor */
104	extern void (e_key)(void); / E key processor */
105	extern void (m_key)(void); / M key processor */
106	extern void (not_fld)(short k); / not-in-field data key processor */
107	extern void (premove)(void); / cursor pre-move function */
108	extern void (pstmove)(void); / cursor post-move function */
109	extern void (x_key)(void); / X key processor */
110	extern void (xy_dn)(void); / cursor - finger on (down) */
111	extern void (xy_up)(void); / cursor - finger off (up) */
112
113	extern short cratex; / cursor x rate table pointer */
114	extern short cratey; / cursor x rate table pointer */
115
116	short admctl; /* assignment display submenu control variable */
117	short adnamsw; /* assignment display virtual typewriter flag */
118	short aflag; /* analog activity flag */
119	short aform; /* action buffer format */
120	short amplval; /* amplitude */
121	short ancmsw; /* analog variable r/p control source */
122	short angroup; /* analog variable group being shown */
123	short asgfks; /* first key selected */
124	short asghit; /* row hit / assignment in progress */
125	short asgmod; /* assignment number or table modified */
126	short asig; /* analog signal number */
127	short asmode; /* panel assignment mode */
128	short astat; /* analog signal status */
129	short auxctl; /* aux control flag */
130	short aval; /* analog signal value */
131	short bform; /* oscillator data buffer format */
132	short catin; /* catalog read in flag */
133	short cents; /* pitch to cents conversion buffer */
134	short chtime; /* horizontal cursor counter */
135	short chwait; /* horizontal cursor wait time */
136	short cflag; /* accidental flag */
137	short clkctl; /* clock control */
138	short clkrun; /* clock status */
139	short clksrc; /* clock source */
140	short cmfirst; /* first cursor motion switch */
141	short cmtype; /* cursor motion type */
142	short cnote; /* note value at cursor */
143	short ctrsw; /* scupd center update switch */
144	short curasg; /* current assignment table */
145	short curfunc; /* current function number */
146	short curgrp; /* current group */
147	short curinst; /* current instrument number */
148	short curmop; /* current MIDI output port */
149	short curpnt; /* current point number (absolute) */
150	short curpos; /* cursor pad position for current axis */
151	short cursbox; /* currently selected box */
152	short curscor; /* Current score number */
153	short cursect; /* current section */
154	short curslim; /* cursor type change point */
155	short curtun; /* current tuning table */
156	short curvce; /* current voice number */
157	short curwave; /* current waveshape library slot */
158	short curwdth; /* current waveshape cursor width */
159	short curwfnl; /* current waveshape final value */
160	short curwhrm; /* current waveshape harmonic number */
161	short curwhrv; /* current waveshape harmonic value */
162	short curwoff; /* current waveshape offset value */
163	short curwpnt; /* current waveshape point number */
164	short curwslt; /* current waveshape instrument slot */
165	short cvtime; /* vertical cursor counter */
166	short cvwait; /* veritcal cursor wait time */
167	short cxrate; /* cursor x rate */
168	short cxval; /* graphic cursor x value */
169	short cyrate; /* cursor y rate */
170	short cyval; /* graphic cursor y value */
171	short debugne; /* debug flag for note entry */
172	short defect; /* defect code */
173	short dferror; /* error code from BIOS or XBIOS */
174	short dfsides; /* number of sides */
175	short dftype; /* disk type code */
176	short dsp_ok; /* display update OK this cycle flag */
177	short dubsw; /* overdub / replace switch */
178	short ebflag; /* edit buffer data flag */
179	short editss; /* edit panel switch state */
180	short editsw; /* edit mode switch */
181	short endflg; /* !end flag */
182	short ext_cv1; /* CV-1 value */
183	short ext_cv2; /* CV-2 value */
184	short ext_cv3; /* CV-3 value */
185	short ext_cv4; /* CV-4 value */
186	short ext_mod; /* Aux Signal Mod value */
187	short gomode; /* go to mode */
188	short grptran; /* group translation value */
189	short gtmsel; /* group transpose/map select */
190	short hitbox; /* box we just hit */
191	short hitcx; /* x of cursor when we hit the box */
192	short hitcy; /* y of cursor when we hit the box */
193	short idcfsw; /* copy / fetch menu switch */
194	short idimsw; /* instrument display instrument menu switch */
195	short idintmp; /* temporary for instrument number */
196	short idnamsw; /* typewriter switch */
197	short idsrcsw; /* source menu switch */
198	short idtdat; /* current instrument vtyper data entry string */
199	short imflag; /* instrument modified flag */
200	short initcfg; /* initial configuration */
201	short insmode; /* score insert mode */
202	short ismode; /* instrument select mode */
203	short lampio; /* LCD timeout disable switch state at I/O time */
204	short lampsw; /* LCD timeout disable switch */
205	short lasgsw; /* assignments store switch */
206	short lastam; /* last assignment menu base */
207	short ldelsw; /* delete switch */
208	short lderrsw; /* error message displayed switch */
209	short ldidsiz; /* getcat() did showsiz() switch */
210	short ldkind; /* fetch file type */
211	short ldpass; /* librarian load state variable */
212	short ldrow; /* fetch select row */
213	short ldslot; /* fetch select slot */
214	short legato; /* execkey() "legato" mode switch */
215	short lksel; /* librarian key slot selector */
216	short lmwtype; /* librarian message window type */
217	short loadrow; /* librarian row selected for load letter */
218	short loadsw; /* panel "Load" mode state */
219	short lorchl; /* load hi (TRUE) / lo (FALSE) orchestra */
220	short lorchsw; /* hi orchestra (21 - 40) store switch */
221	short lorclsw; /* lo orchestra (01 - 20) store switch */
222	short lpatsw; /* patch table store switch */
223	short lrasw; /* append (TRUE) / replace (FALSE) score */
224	short lscrsw; /* score store switch */
225	short lselsw; /* fetch select switch */
226	short lseqsw; /* sequence table store switch */
227	short lstbgnc; /* last note begin entry table index */
228	short lstendc; /* last note end entry table index */
229	short lstflag; /* last note list end switch */
230	short lstrsw; /* store state switch */
231	short lstwoff; /* last waveshape offset value */
232	short lstwpnt; /* last waveshape point number */
233	short ltagged; /* load tag switch */
234	short ltunsw; /* tunings store switch */
235	short lwavsw; /* waveshapes store switch */
236	short mascntr; /* MIDI active sensing timeout counter */
237	short mdb1; /* current MIDI data byte 1 */
238	short mdb2; /* current MIDI data byte 2 */
239	short michan; /* current MIDI channel */
240	short midiclk; /* MIDI clock switch */
241	short midigo; /* MIDI run switch */
242	short mistat; /* current MIDI status */
243	short nchwait; /* next chwait value */
244	short ncvwait; /* next cvwait value */
245	short ndisp; /* current display number */
246	short newflag; /* new data entered while t_cur EQ t_ctr */
247	short nkdown; /* number of keys down */
248	short notenum; /* note number */
249	short noteop; /* pending note operation code */
250	short notepit; /* note pitch */
251	short notesel; /* note selection state */
252	short npts; /* number of points in function */
253	short nxtflag; /* next score flag */
254	short oldltag; /* previous load tag for tagslot */
255	short oldpk; /* previous pkctrl state */
256	short oldsl; /* previous sliders state */
257	short pchsw; /* punch-in enable switch */
258	short pecase; /* point edit case variable */
259	short pkctrl; /* local performance key state */
260	short pntsv; /* point selection state variable */
261	short prgchan; /* MIDI program change channel (port 1) */
262	short ps_dpth; /* phase shifter -- depth */
263	short ps_intn; /* phase shifter -- intensity */
264	short ps_rate; /* phase shifter -- rate */
265	short pulsclk; /* pulse clock state */
266	short recsw; /* record / play switch */
267	short runit; /* run switch for main scan loop */
268	short sbase; /* score VSDD RAM scroll offset */
269	short scmctl; /* score submenu control flag */
270	short scrlpot; /* scroll pot state */
271	short sd; /* score display direction */
272	short se; /* score execution direction */
273	short sdmcol; /* score menu - saved stccol */
274	short sdmctl; /* score menu - control variable */
275	short sdmrow; /* score menu - saved stcrow */
276	short secop; /* pending score section operation */
277	short secopok; /* section operation OK flag */
278	short sgcsw; /* graphic cursor display switch */
279	short sgoflag; /* section number relative column 0..3 */
280	short sharp; /* sharp flag */
281	short sliders; /* slider and switch state */
282	short soffset; /* score scroll offset */
283	short ss_ptsw; /* smooth scroll patch scroll switch */
284	short ss_sqsw; /* smooth scroll sequence scroll switch */
285	short stccol; /* score cursor col */
286	short stcrow; /* score cursor row */
287	short stepclk; /* note entry - step clock state */
288	short stepenb; /* note entry - step enable flag */
289	short stepint; /* note entry - note interval */
290	short stepwgt; /* note entry - note weight */
291	short subj; /* edited point number (relative) */
292	short submenu; /* submenu active switch */
293	short swctrl; /* scroll wheel 'srolling' flag */
294	short swdelta; /* scroll wheel change while touched */
295	short swdir; /* scroll wheel direction */
296	short swfiin; /* scroll wheel fifo input pointer */
297	short swflag; /* scroll wheel touched flag */
298	short swlast; /* scroll wheel last value */
299	short swstop; /* scroll wheel stop flag */
300	short swndx; /* scroll wheel look back index */
301	short tagslot; /* tagged load slot */
302	short tdnamsw; /* tuning editor displaying typewriter */
303	short temax; /* time upper limit */
304	short temin; /* time lower limit */
305	short testing; /* test level */
306	short tglclk; /* clock on/off toggle flag */
307	short tglpch; /* punch in/out toggle flag */
308	short thescore; /* score selected from sqscan */
309	short timemlt; /* time scaling */
310	short tkctrl; /* trackball active flag */
311	short tmpomlt; /* tempo multiplier */
312	short tmpoval; /* tempo value */
313	short trkball; /* trackball selected switch */
314	short ttcmdsv; /* tuning editor edit state variable */
315	short ttsel1; /* tuning editor key select variable 1 */
316	short ttsel2; /* tuning editor key select variable 2 */
317	short ttsel3; /* tuning editor key select variable 3 */
318	short tuneval; /* fine tuning */
319	short tunmod; /* tuning table modified */
320	short tunval; /* tuning editor increment / transpose value */
321	short txfiin; /* trackball x fifo input pointer */
322	short txflag; /* trackball x axis active flag */
323	short txlast; /* trackball x axis last value */
324	short txstop; /* trackball x axis filter counter */
325	short tyfiin; /* trackball y fifo input pointer */
326	short tyflag; /* trackball y axis active flag */
327	short tylast; /* trackball y axis last value */
328	short tystop; /* trackball y axis filter counter */
329	short velflag; /* velocity display flag */
330	short verbose; /* verbose output switch */
331	short vlbtype; /* type of message window display */
332	short vrbw08; /* score display video reset detail word */
333	short vrbw09; /* score display video reset detail word */
334	short vrbw10; /* score display video reset detail word */
335	short vrbw11; /* score display video reset detail word */
336	short vrbw12; /* score display video reset detail word */
337	short vrbw13; /* score display video reset detail word */
338	short vrbw14; /* score display video reset detail word */
339	short vrbw15; /* score display video reset detail word */
340	short vrcw; /* score display video reset control word */
341	short vtccol; /* virtual typewriter cursor column */
342	short vtcrow; /* virtual typewriter cursor row */
343	char vtdechr; /* virtual typewriter data entry character */
344	short vtdecol; /* virtual typewriter data entry column */
345	short vtpcol; /* virtual typewriter column */
346	short vtprow; /* virtual typewriter row */
347	short vtwcol; /* virtual typewriter window left column */
348	short vtwrow; /* virtual typewriter window top row */
349	short vtxval; /* virtual typewriter cursor x value */
350	short vtyval; /* virtual typewriter cursor y value */
351	short wcflag; /* ws/cf menu select flag (cf=0, ws=1) */
352	short wcmcol; /* ws/cf menu label column */
353	short wcmrow; /* ws/cf menu label row */
354	short wcpage; /* ws/cf menu page */
355	short wdupdfl; /* waveshape display needs updated flag */
356	short wmcsel; /* ws menu ws a/b select */
357	short wmctag; /* ws/cf display update flag */
358	short wplast; /* last point for interpolate operation */
359	short wpntsv; /* waveshape point selection state variable */
360	short wshmax; /* waveshape maximum value */
361	short wvlast; /* last value for interpolate operation */
362	short xkcount; /* cursor x key on count */
363	short xkstat; /* cursor x key status */
364	short xycntr; /* xy center for cursor pad */
365	short ykcount; /* cursor y key on count */
366	short ykstat; /* cursor y key status */
367
368	short anrs[8][16]; /* analog variable resolution */
369	short grp2prt[12][2]; /* group to port and channel table */
370	short sctctab[10][64]; /* score background color table */
371	short sigtab[128][2]; /* signals: [0] = value, [1] = switch */
372	short tunlib[NTUNS][128]; /* tuning table library */
373	short varmode[8][16]; /* analog variable record mode */
374	short wsnmod[12][2]; /* waveshape number / data modified */
375
376	struct EXFILE mphead; /* MIDAS-VII program header */
377	struct fet cfetp; / current fet entry pointer */
378	struct fet curfet; / current fet table pointer */
379	struct fet infetp; / in-field fet pointer */
380	struct gdsel gdfsep; / gdsel freechain pointer */
381	struct instpnt pntptr; / pointer to edited point */
382	struct mlibhdr ldhead; /* library header */
383	struct nevent nefree; / pointer to free note entries */
384	struct nevent nelist; / pointer to note entry list */
385	struct octent adoct; / assignment display object control pointer */
386	struct octent ldoct; / librarian object control table pointer */
387	struct octent mdoct; / menu display object control table pointer */
388	struct octent tdoct; / tuning display object control table pointer */
389	struct octent wdoct; / object control table pointer */
390	struct octent idoct; / instrument display octent pointer */
391	struct pflent pflist; / pendant function list header */
392	struct pflent pfqhdr; / pendant function list entry freechain header */
393	struct s_entry libsp; / librarian score pointer */
394	struct s_entry peg; / insert mode 'peg' to hang the tail on */
395	struct s_entry size1; / score E_SIZE1 entry free list pointer */
396	struct s_entry size2; / score E_SIZE2 entry free list pointer */
397	struct s_entry size3; / score E_SIZE3 entry free list pointer */
398	struct selbox csbp; / current select box table pointer */
399	struct selbox curboxp; / current select box pointer */
400	struct s_entry p_bak; / pointer to entry at left edge of display */
401	struct s_entry p_cbgn; / pointer to start of copy */
402	struct s_entry p_cend; / pointer to end of copy */
403	struct s_entry p_cur; / pointer to entry at current execution time */
404	struct s_entry p_ctr; / pointer to entry at center of display */
405	struct s_entry p_fwd; / pointer to entry at right edge of display */
406	struct n_entry p_nbeg; / pointer to note begin */
407	struct n_entry p_nend; / pointer to note end */
408	struct s_entry p_sbgn; / pointer to start of section */
409	struct s_entry p_sec1; / pointer to start of 1st section */
410	struct s_entry p_sec2; / pointer to start of 2nd section */
411	struct s_entry p_send; / pointer to end of section */
412	struct s_entry scp; / current score pointer */
413
414	struct asgent asgtab[NASGS]; /* assignment table library */
415	struct fcat filecat[FCMAX]; /* file catalog */
416	struct gdsel gdstbc[NGDSEL]; / center group & event status lists */
417	struct gdsel gdstbn[NGDSEL]; / right group & event status lists */
418	struct gdsel gdstbp[NGDSEL]; / left group & event status lists */
419	struct gdsel gdfsl[MAXFSL]; /* gdsel pool */
420	struct instdef idefs[NINST]; /* current instrument definitions */
421	struct n_entry lstbgns[NLSTENTS]; / last note begin entry table */
422	struct n_entry lstends[NLSTENTS]; / last note end entry table */
423	struct instdef vbufs[12]; /* voice instrument buffers */
424	struct nevent nevents[NNEVTS]; /* note event list */
425	struct pflent pfents[NPFENTS]; /* pendant function list entry pool */
426	struct scndx sindex[N_SCORES]; /* score file table of contents */
427	struct sment vpsms[192]; / voice parameter general S/M pointer table */
428	struct sment sments[192]; /* source multiplier assignment table */
429	struct valent valents[NGPSRS]; /* source value table */
430	struct wstbl wslib[NUMWAVS]; /* waveshape library */
431	struct s_entry scores[N_SCORES]; / Score pointer table */
432
433	struct s_time stimes[N_SCORES][N_SECTS]; /* score section SMPTE times */
434	struct s_entry hplist[N_SCORES][N_TYPES]; / Score change list pointers */
435	struct s_entry seclist[N_SCORES][N_SECTS]; / Section pointer table */
436
437	unsigned asgob; / assignment display object pointer */
438	unsigned consl; / constant slice pointer */
439	unsigned cursl; / current (center) slice pointer */
440	unsigned instob; / instrument object pointer */
441	unsigned librob; / librarian display object pointer */
442	unsigned menuob; / menu display object pointer */
443	unsigned nxtsl; / next (right edge) slice pointer */
444	unsigned obj0; / object 0 VSDD RAM pointer */
445	unsigned obj1; / object 1 VSDD RAM pointer */
446	unsigned obj2; / object 2 VSDD RAM pointer */
447	unsigned obj3; / object 3 VSDD RAM pointer */
448	unsigned obj4; / object 4 VSDD RAM pointer */
449	unsigned obj5; / object 5 VSDD RAM pointer */
450	unsigned obj6; / object 6 VSDD RAM pointer */
451	unsigned obj7; / object 7 VSDD RAM pointer */
452	unsigned obj8; / object 8 VSDD RAM pointer */
453	unsigned obj9; / object 9 VSDD RAM pointer */
454	unsigned obj10; / object 10 VSDD RAM pointer */
455	unsigned obj11; / object 11 VSDD RAM pointer */
456	unsigned obj12; / object 12 VSDD RAM pointer */
457	unsigned obj13; / object 13 VSDD RAM pointer */
458	unsigned obj14; / object 14 VSDD RAM pointer */
459	unsigned obj15; / object 15 VSDD RAM pointer */
460	unsigned prvsl; / previous (left edge) slice pointer */
461	unsigned saddr; / score VSDD RAM base pointer */
462	unsigned tunob; / tuning table display object pointer */
463	unsigned vtobj; / virtual typewriter display object pointer */
464	unsigned waveob; / waveshape display object pointer */
465
466	unsigned curintp; /* current interpolate time (FPU format) */
467	unsigned scrl; /* score VSDD object scroll register image */
468	unsigned vtbgval; /* virtual typewriter data background color */
469	unsigned vtfgval; /* virtual typewriter data foreground color */
470
471	unsigned dfbuf[4096]; /* track formatting buffer */
472	unsigned slices[896]; /* score display slices */
473
474	/*
475
476	*/
477
478	/* initialized variables */
479
480	short debugsw = DEBUGVAL; /* debug output switch */
481
482	short swback = SWBACK; /* scroll wheel look back count */
483	short swthr = SWTHR; /* scroll wheel movement threshold */
484	short swtime = SWTIME; /* scroll wheel timer scan time */
485	short swwait = SWWAIT; /* scroll wheel wait count */
486
487	short tkback = TKBACK; /* trackball FIFO look back count */
488	short tkrmin = TKRMIN; /* trackball rate threshold */
489	short tkthr = TKTHR; /* trackball movement threshold */
490	short tktime = TKTIME; /* trackball timer scan time */
491	short tkwait = TKWAIT; /* trackball wait count */
492
493	short curhold = CURHOLD; /* cursor hold time */
494	short hcwval = HCWVAL; /* graphics cursor X wait time */
495	short thcwval = THCWVAL; /* text cursor H wait time */
496	short tvcwval = TVCWVAL; /* text cursor V wait time */
497	short vcwval = VCWVAL; /* graphics cursor Y wait time */
498
499	/*
500
501	*/
502
503	short tmultab[] = { /* time multiplier table - indexed by voltage */
504
505	0xFFFF, 0xFAFA, 0xF627, 0xF182, 0xED09, /* 0 */
506	0xE8BA, 0xE492, 0xE08F, 0xDCB0, 0xD8F2, /* 5 */
507	0xD555, 0xD1D6, 0xCE73, 0xCB2C, 0xC800, /* 10 */
508	0xC4EC, 0xC1F0, 0xBF0B, 0xBC3C, 0xB981, /* 15 */
509	0xB6DB, 0xB448, 0xB1C7, 0xAF57, 0xACF9, /* 20 */
510	0xAAAA, 0xA86B, 0xA63B, 0xA41A, 0xA206, /* 25 */
511	0xA000, 0x9E06, 0x9C18, 0x9A37, 0x9861, /* 30 */
512	0x9696, 0x94D6, 0x9320, 0x9174, 0x8FD1, /* 35 */
513	0x8E38, 0x8CA8, 0x8B21, 0x89A2, 0x882B, /* 40 */
514	0x86BC, 0x8555, 0x83F5, 0x829C, 0x814A, /* 45 */
515	0x8000, 0x7EBB, 0x7D7D, 0x7C45, 0x7B13, /* 50 */
516	0x79E7, 0x78C1, 0x77A0, 0x7684, 0x756E, /* 55 */
517	0x745D, 0x7350, 0x7249, 0x7146, 0x7047, /* 60 */
518	0x6F4D, 0x6E58, 0x6D66, 0x6C79, 0x6B90, /* 65 */
519	0x6AAA, 0x69C8, 0x68EB, 0x6810, 0x6739, /* 70 */
520	0x6666, 0x6596, 0x64C9, 0x6400, 0x6339, /* 75 */
521	0x6276, 0x61B5, 0x60F8, 0x603D, 0x5F85, /* 80 */
522	0x5ED0, 0x5E1E, 0x5D6E, 0x5CC0, 0x5C16, /* 85 */
523	0x5B6D, 0x5AC7, 0x5A24, 0x5982, 0x58E3, /* 90 */
524	0x5846, 0x57AB, 0x5713, 0x567C, 0x55E7, /* 95 */
525	0x5555 /* 100 */
526	};
527
528	/*
529
530	*/
531
532	short crate0[] = { /* cursor rate table 1 */
533
534	0, 0, 0, 0, 0, 0, 0, 0, /* 0..7 */
535	0, 0, 0, 0, 1, 1, 1, 1, /* 8..15 */
536	1, 1, 1, 1, 1, 1, 1, 1, /* 16..23 */
537	1, 1, 1, 1, 1, 1, 1, 1, /* 24..31 */
538	1, 1, 1, 1, 1, 1, 1, 1, /* 32..39 */
539	1, 1, 1, 1, 1, 1, 1, 1, /* 40..47 */
540	1, 1, 1, 1, 1, 1, 1, 1, /* 48..55 */
541	1, 1, 1, 1, 1, 1, 1, 1 /* 56..63 */
542	};
543
544	short crate1[] = { /* cursor rate table 1 */
545
546	0, 0, 0, 0, 0, 0, 0, 0, /* 0..7 */
547	1, 1, 1, 1, 1, 1, 1, 1, /* 8..15 */
548	3, 3, 3, 3, 3, 3, 3, 3, /* 16..23 */
549	5, 5, 5, 5, 5, 5, 5, 5, /* 24..31 */
550	7, 7, 7, 7, 7, 7, 7, 7, /* 32..39 */
551	9, 9, 9, 9, 9, 9, 9, 9, /* 40..47 */
552	11, 11, 11, 11, 11, 11, 11, 11, /* 48..55 */
553	13, 13, 13, 13, 13, 13, 13, 13 /* 56..63 */
554	};
555
556	short crate2[] = { /* cursor rate table 2 */
557
558	0, 0, 0, 0, 0, 0, 0, 0, /* 0..7 */
559	1, 1, 1, 1, 1, 1, 1, 1, /* 8..15 */
560	2, 2, 2, 2, 2, 2, 2, 2, /* 16..23 */
561	4, 4, 4, 4, 8, 8, 8, 8, /* 24..31 */
562	16, 16, 16, 16, 32, 32, 32, 32, /* 32..39 */
563	64, 64, 64, 64,128,128,128,128, /* 40..47 */
564	96, 96, 96, 96,256,256,256,256, /* 48..55 */
565	256,256,256,256,256,256,256,256 /* 56..63 */
566	};
567
568	/*
569
570	*/
571
572	short loctab[9] = {
573
574	0, /* 0 - left */
575
576	125 << 5, /* 1 */
577	250 << 5, /* 2 */
578	375 << 5, /* 3 */
579
580	500 << 5, /* 4 - center */
581
582	625 << 5, /* 5 */
583	750 << 5, /* 6 */
584	875 << 5, /* 7 */
585
586	1000 << 5 /* 8 - right */
587	};
588
589	/*
590
591	*/
592
593	/*
594	=============================================================================
595	valof() -- return initial value of a source
596	=============================================================================
597	*/
598
599	short valof(short srcv)
600	{
601	switch (srcv) {
602
603	case SM_NONE: /* -none- */
604	return(0);
605
606	case SM_RAND: /* Random */
607	return(xgetran(0));
608
609	case SM_CTL1: /* Ctl V1 */
610	return(SM_SCALE(sigtab[79][0]));
611
612	case SM_PTCH: /* Pitch */
613	case SM_KPRS: /* Key Prs */
614	case SM_KVEL: /* Key Vel */
615	return(0);
616
617	case SM_PED1: /* Pedal 1 */
618	return(SM_SCALE(sigtab[77][0]));
619
620	case SM_HTPW: /* Hor Tab / Pch Whl */
621	return(0);
622
623	case SM_VTMW: /* Vrt Tab / Mod Whl */
624	return(SM_SCALE(sigtab[54][0]));
625
626	case SM_LPBR: /* LongPot / Breath */
627	return(SM_SCALE(sigtab[57][0]));
628
629	default:
630	return(0);
631	}
632	}
633
634	/*
635
636	*/
637
638	/*
639	=============================================================================
640	inismtb() -- initialize source / multiplier data structures
641	=============================================================================
642	*/
643
644	void inismtb(void)
645	{
646	register short i, oldi;
647
648	oldi = setipl(FPU_DI);
649
650	/* ++++++++++++++++++++++++++++ FPU interrupts disabled +++++++++++++++++++++ */
651
652	for (i = 0; i < NGPSRS; i++) {
653
654	valents[i].nxt = &valents[i];
655	valents[i].prv = &valents[i];
656	valents[i].val = valof(i & 0x000F);
657	}
658
659	for (i = 0; i < 192; i++) {
660
661	vpsms[i] = &sments[i];
662
663	sments[i].prv = (struct sment *)&valents[0];
664	sments[i].nxt = valents[0].nxt;
665
666	valents[0].nxt->prv = &sments[i];
667	valents[0].nxt = &sments[i];
668
669	sments[i].vp = i;
670	sments[i].sm = 0;
671	}
672
673	setipl(oldi);
674
675	/* ++++++++++++++++++++++++++++ Interrupts restored +++++++++++++++++++++++++ */
676
677	}
678
679	/*
680
681	*/
682
683	/*
684	=============================================================================
685	clrpfl() -- clear pendant function list
686	=============================================================================
687	*/
688
689	void clrpfl(void)
690	{
691	register short i;
692
693	memsetw(&pfents[0], 0, (NPFENTS * sizeof (struct pflent))/2);
694
695	for (i = 0; i < NPFENTS-1; i++)
696	pfents[i].nextpf = &pfents[i+1];
697
698	pfqhdr = &pfents[0];
699	pflist = (struct pflent *)NULL;
700	}
701
702	/*
703
704	*/
705
706	/*
707	=============================================================================
708	im700() -- initialize MIDAS 700
709	=============================================================================
710	*/
711
712	void im700(void)
713	{
714	register short i, j, k;
715	register char *ioadr;
716	register struct instdef *ip;
717
718	debugsw = DEBUGVAL; /* initialize debug switch */
719
720	GLCinit(); /* initialize the GLC */
721	GLCcurs(G_ON);
722	GLCtext(2, 1, "MIDAS 7 -- Initialization in progress -- Please stand by");
723	GLCcurs(G_OFF);
724
725	vsndpal(blakpal); /* setup the blackout palette */
726
727	VHinit(); /* clear the video hardware */
728	VSinit(); /* ... and the video software */
729
730	memset(keystat, 0, 24); /* clear front panel key status */
731	memset(trgtab, 0, NTRIGS); /* clear trigger status table */
732	memset(mctlval, 0, NCTRLS); /* clear MIDI controller values */
733
734	memsetw(grpmode, 0, 12); /* set all groups to PLAY */
735	memsetw(grpstat, GS_ENBL, 12); /* enable all groups for param. artic. */
736	memsetw(grpsel, TRUE, 12); /* enable all groups for instr. sel. */
737	memsetw(sigtab, 0, ((sizeof sigtab) / (sizeof sigtab[0][0])));
738
739	memsetw(veltab, SM_SCALE(64), NTRIGS); /* clear velocity table */
740	memsetw(lastvel, SM_SCALE(64), 12); /* clear last velocity table */
741	memsetw(prstab, 0, NTRIGS); /* clear pressure table */
742
743	curintp = tofpu(100); /* set default interpolate time */
744
745	angroup = -1; /* analog values: group 1, not shown */
746	ancmsw = FALSE; /* analog variable mode from grpmode */
747	velflag = FALSE; /* velocity not displayed */
748
749	dubsw = TRUE; /* set overdub mode */
750
751	sd = D_FWD; /* set display direction */
752	se = D_FWD; /* set execution direction */
753
754	swinit(); /* reset the scroll wheel variables */
755
756	inismtb(); /* clear the S/M data structures */
757	clrnl(); /* clear note entry lists */
758	clrpfl(); /* clear pendant function list */
759
760	lstbgnc = 0; /* reset last note begin count */
761	lstendc = 0; /* reset last note end count */
762	lstflag = TRUE; /* set end of note entry list flag */
763
764	memsetw(lstbgns, 0, (NLSTENTS << 1)); /* clear note begin list */
765	memsetw(lstends, 0, (NLSTENTS << 1)); /* clear note end list */
766
767	/* set funcndx[] entries */
768
769	for (i = 0; i < 12; i++) {
770
771	ip = &vbufs[i];
772
773	for (j = 0; j < NFINST; j++) {
774
775	k = (i << 4) + fnoff[j];
776
777	funcndx[k][0] = &ip->idhfnc[j];
778	funcndx[k][1] = ip->idhpnt;
779	}
780	}
781
782	/*
783
784	*/
785	for (i = 0; i < 3; i++) { /* reset the state machines */
786
787	msmstv[i] = 0; /* state = 0 */
788	mrstat[i] = 0; /* clear running status */
789	mdbyte[i] = 0; /* clear first byte buffer */
790	masens[i] = 0; /* clear active sensing */
791	}
792
793	for (i = 0; i < 48; i++) {
794
795	mpbend[i] = 0; /* clear bend values */
796	mpsust[i] = 0; /* clear sustain values */
797	}
798
799	for (i = 0; i < 12; i++) {
800
801	for (j = 0; j < 6; j++) {
802
803	varmode[j][i] = 0; /* set r/p mode */
804	anrs[j][i] = 4; /* set analog resolution */
805	}
806
807	setdyn(i, 6); /* set group dynamics */
808	setloc(i, 4); /* set group locations */
809	lastvce[i] = 0; /* clear last voice assigned */
810	vce2trg[i] = -1; /* clear voice to trigger table */
811	}
812
813	for (i = 0; i < NLTYPES; i++) {
814
815	memset(loadedc[i], ' ', 37);
816	memset(loadedf[i], ' ', 8);
817	}
818
819	memset(ldfile, ' ', 8); /* clear the library file name field */
820	ldfile[8] = '\0';
821
822	memset(ldcmnt, ' ', 37); /* clear the library comment field */
823	ldcmnt[37] = '\0';
824
825	/*
826
827	*/
828	xkcount = 1; /* reset cursor control variables */
829	ykcount = 1;
830	xycntr = XYCENTRE;
831
832	clksrc = CK_LOCAL; /* clock source = local */
833	clkctl = CK_LOCAL; /* clock control = local */
834	clkrun = FALSE; /* clock stopped */
835	midiclk = FALSE; /* ... */
836	pulsclk = FALSE; /* ... */
837	stepclk = FALSE; /* ... */
838	fc_sw = 0; /* stop the frame clock */
839	fc_val = 0L; /* ... and reset it */
840	scrlpot = 0; /* not scrolling */
841	tmpomlt = 50; /* initialize tempo multiplier */
842	io_leds = 0x18; /* ... and turn off the LEDs */
843	io_leds = 0x19; /* ... */
844	settmpo(60); /* set default tempo */
845
846	timemlt = tmultab[50]; /* initialize time scaling */
847	io_leds = 0x1A;
848	io_leds = 0x1B;
849
850	tuneval = 0; /* initialize fine tuning */
851	io_leds = 0x1C;
852	io_leds = 0x1D;
853
854	for (i = 0; i < 12; i++) /* setup default values for gtctab */
855	gtctab[i] = ((i+3) << 12) \| ((i+3) << 8) \| ((i+3) << 4) \| (i+3);
856
857	editsw = FALSE; /* setup edit switch state */
858	io_leds = 0x1E;
859	ioadr = &io_ser + 2L;
860	editss = *ioadr & 0x0008;
861
862	ac_code = N_SHARP; /* default accidentals to display as sharps */
863
864	memsetw(articen, TRUE, 12); /* enable articulation for all voices */
865	/*
866
867	*/
868	curmove = cmvgen;
869	premove = nokey;
870	pstmove = nokey;
871	curtype = stdctp2;
872
873	x_key = nokey; /* setup default key processors */
874	e_key = nokey;
875	m_key = stdmkey;
876	d_key = nokey;
877
878	not_fld = nokey;
879
880	cx_key = cxkstd; /* setup default cursor processors */
881	cy_key = cykstd;
882	cx_upd = cxgen;
883	cy_upd = cygen;
884	xy_up = nokey;
885	xy_dn = nokey;
886
887	curslim = 349; /* cursor limit for graphics to text switch */
888
889	chtime = hcwval; /* initialize default cursor wait times */
890	cvtime = vcwval;
891	nchwait = curhold;
892	ncvwait = curhold;
893	chwait = 1;
894	cvwait = 1;
895
896	cratex = crate1; /* initialize default cursor x rate table */
897	cratey = crate1; /* initialize default cursor y rate table */
898
899	cmfirst = TRUE; /* setup for first motion of cursor */
900	cmtype = CT_GRAF;
901
902	cxval = XCTR; /* default cursor to center of screen */
903	cyval = YCTR;
904
905	stcrow = cyval / 14; /* keep text position in sync */
906	stccol = cxval / 8;
907
908	submenu = FALSE; /* no submenu up to start with */
909	/*
910
911	*/
912	curinst = 0; /* current instrument = 0 */
913	curfunc = 12; /* current function = 12 = level */
914	curvce = 0; /* current voice = 0 */
915
916	asmode = FALSE; /* deselect assignment mode */
917	gomode = GO_NULL; /* deselect go to mode */
918	ismode = IS_NULL; /* deselect instrument select mode */
919	pkctrl = PK_PFRM; /* select local performance key state */
920	oldpk = pkctrl; /* ... */
921	sliders = LS_PRMTR; /* setup the LCD display pots and switches */
922	oldsl = sliders; /* ... */
923	swpt = t_prmtr; /* ... */
924	oldsw = swpt; /* ... */
925	setleds(); /* set performance keyboard leds */
926
927	initpt(); /* initialize the patch table */
928	initsq(); /* initialize the sequence table */
929	initil(); /* initialize the instrument library */
930	iniwslb(); /* initialize the waveshape library */
931	inital(); /* initialize the assignment library */
932	inittl(); /* initialize the tuning table library */
933	scinit(); /* initialize the score */
934
935	clearer(1, 0); /* reset the fpu to its nominal values */
936	getasg(curasg = 0); /* setup default assignments */
937
938	lcdlbls(); /* put up the LCD display */
939	lampsw = FALSE; /* enable LCD timeout */
940	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: