source: buchla-68k/ram/swinit.c@ e225e77

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

Added missing includes and declarations.
  • Property mode set to 100644
File size: 8.9 KB
Line 
1/*
2 =============================================================================
3 swinit.c -- MIDAS-VII -- more variable definitions and initializations
4 Version 12 -- 1988-10-12 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#define FET_DEFS 1 /* so fields.h gets things right */
9
10#include "stddefs.h"
11#include "scwheel.h"
12#include "score.h"
13#include "fields.h"
14#include "vsdd.h"
15#include "vsddsw.h"
16#include "vsddvars.h"
17
18#include "midas.h"
19
20#include "scdsp.h"
21#include "libdsp.h"
22#include "wsdsp.h"
23
24#include "memory.h"
25
26extern void tkinit(void);
27
28extern int16_t swctrl;
29extern int16_t swdir;
30extern int16_t swfiin;
31extern int16_t swflag;
32
33extern int16_t swfifo[NSWFIFO];
34
35/*
36
37*/
38
39BOOL se_chg; /* Score free list changed flag */
40
41LPF (*oldsw)[]; /* saved swpt value */
42LPF (*swpt)[]; /* switch dispatch table pointer */
43
44LPF aswtbl[14]; /* assignment switch table */
45
46void (*curmove)(void); /* cursor move function */
47int16_t (*curtype)(void); /* cursor type function */
48void (*cx_key)(void); /* x rate calculation */
49void (*cx_upd)(void); /* x update */
50void (*cy_key)(void); /* y rate calculation */
51void (*cy_upd)(void); /* y update */
52void (*d_key)(int16_t k); /* in-field data key processor */
53void (*e_key)(void); /* E key processor */
54void (*m_key)(void); /* M key processor */
55void (*itxput)(int16_t row, int16_t col, int8_t *txt, int16_t tag);
56 /* instrument menu text put function */
57int16_t (*not_fld)(int16_t k); /* not-in-field data key processor */
58void (*olddkey)(int16_t k); /* saved d_key value */
59void (*oldekey)(void); /* saved e_key value */
60void (*oldmkey)(void); /* saved m_key value */
61void (*oldxkey)(void); /* saved x_key value */
62void (*premove)(void); /* cursor pre-move function */
63void (*pstmove)(void); /* cursor post-move function */
64void (*vt_adv)(void); /* vtyper data cursor advance function */
65void (*vt_bsp)(void); /* vtyper data cursor backspace function */
66void (*vt_cdn)(void); /* vtyper data cursor down function */
67void (*vt_cup)(void); /* vtyper data cursor up function */
68void (*vt_dsp)(uint16_t *obj, uint16_t fg, uint16_t bg, int16_t row, int16_t col, int8_t *buf);
69 /* vtyper display function */
70void (*vt_stop)(void); /* vtyper exit function */
71void (*x_key)(void); /* X key processor */
72void (*xy_dn)(void); /* cursor - finger on (down) */
73void (*xy_up)(void); /* cursor - finger off (up) */
74
75int16_t *cratex; /* cursor x rate table pointer */
76int16_t *cratey; /* cursor x rate table pointer */
77
78int16_t BotEdge; /* configuration box bottom edge */
79int16_t LftEdge; /* configuration box left edge */
80int16_t RgtEdge; /* configuration box right edge */
81int16_t TopEdge; /* configuration box top edge */
82
83int16_t BarBcur[14]; /* current bottom-zero bar values */
84int16_t BarCcur[14]; /* current centered-zero bar values */
85int16_t BGeq[14]; /* current EQ bar settings */
86int16_t BGother[14]; /* current other pot bar settings */
87int16_t BGprmtr[14]; /* current parameter pot bar settings */
88
89int16_t articen[12]; /* voice articulation enable status */
90int16_t grpdyn[12]; /* group dynamics table (0..9) */
91int16_t grploc[12]; /* group location table (0..8) */
92int16_t grpmode[12]; /* group mode - 0 = play, 1 = stdby, 2 = rec */
93int16_t grpsel[12]; /* group select status for instrument selection */
94int16_t grpstat[12]; /* group status - 0 = off, non-0 = on */
95int16_t grptmap[12]; /* group map */
96int16_t gtctab[12]; /* group to color table */
97int16_t ins2grp[12]; /* instrument to group table (00..NINST-1) */
98int16_t instmod[12]; /* intrument data modified */
99int16_t key2grp[88]; /* port 1 key to group assignment table */
100int16_t lastart[16]; /* last articulation values (by parameter) */
101int16_t lastvce[12]; /* last voice assigned in each group */
102int16_t lastvel[12]; /* last velocity sent to group */
103int16_t ldmap[N_SCORES]; /* gather read map */
104int16_t mctlnum[4]; /* MIDI controller number table (-1, 00..99) */
105int16_t mpbend[48]; /* MIDI pitch bend data, by port and channel */
106int16_t msmstv[3]; /* MIDI state machine state variables */
107int16_t offsets[NUMWPCAL]; /* offsets for current waveshape */
108int16_t oldtun[128]; /* previous tuning table for undo */
109int16_t prstab[NTRIGS]; /* pressure */
110int16_t s_inst[12]; /* instrument selections */
111int16_t s_trns[12]; /* current transposition values */
112int16_t swfifo[NSWFIFO]; /* scroll wheel fifo */
113int16_t txfifo[NTKFIFO]; /* trackball X fifo */
114int16_t tyfifo[NTKFIFO]; /* trackball Y fifo */
115int16_t tuntab[128]; /* current tuning table */
116int16_t vce2grp[12]; /* voice to group table (-1, 1..12)*/
117int16_t vce2trg[12]; /* voice to trigger map (-1 EQ NULL) */
118int16_t veltab[NTRIGS]; /* velocity */
119int16_t vmtab[NUMHARM]; /* harmonics for current waveshape */
120int16_t wsbuf[NUMWPCAL]; /* final values for current waveshape */
121
122/*
123
124*/
125
126int8_t *lmln22; /* message window line 22 */
127int8_t *lmln23; /* message window line 23 */
128int8_t *lmln24; /* message window line 24 */
129int8_t *vtdeptr; /* virtual typewriter data entry pointer */
130
131int8_t *funcndx[256][2]; /* function header pointers */
132int8_t *vlbptr[3]; /* variable label pointers */
133
134int8_t bfs[128]; /* display generation buffer */
135int8_t caname[16]; /* current assignment table name */
136int8_t dspbuf[65]; /* display generation buffer */
137int8_t ebuf[MAXEBUF+1]; /* edit data entry buffer */
138int8_t errbuf[65]; /* error message build area */
139int8_t idbuf[65]; /* display format conversion work area */
140int8_t keystat[24]; /* front panel key status */
141int8_t ldcmnt[38]; /* comment field */
142int8_t ldfile[9]; /* file name field */
143int8_t ldmsg1[65]; /* messsage build area 1 */
144int8_t ldmsg2[65]; /* messsage build area 2 */
145int8_t ldmsg3[65]; /* messsage build area 3 */
146int8_t loadedc[NLTYPES][37]; /* loaded file comments */
147int8_t loadedf[NLTYPES][8]; /* loaded file names */
148int8_t masens[3]; /* MIDI port active sensing flags */
149int8_t mctlval[NCTRLS]; /* MIDI controller values */
150int8_t mdbyte[3]; /* MIDI data byte buffers */
151int8_t mpsust[48]; /* MIDI sustain status, by port and channel */
152int8_t mrstat[3]; /* MIDI running status */
153int8_t scname[N_SCORES][16]; /* Score names */
154int8_t trgtab[NTRIGS]; /* trigger status */
155int8_t tuncurn[33]; /* current tuning table name */
156int8_t tunname[NTUNS][32]; /* tuning table names */
157
158/*
159
160*/
161
162int32_t *pspool; /* Score storage pool pointer */
163
164int32_t afi; /* analog processor FIFO value */
165int32_t curtime; /* current sqscan time */
166int32_t ctime; /* time at cursor */
167int32_t dvwork; /* divide work area */
168int32_t frags; /* Score storage pool fragment count */
169int32_t iotime; /* saved lcdtime value */
170int32_t lcdontm; /* LCD backlight on time */
171int32_t lcdtime; /* LCD backlight timer */
172int32_t lcsum; /* library checksum */
173int32_t ndbytes; /* bytes needed for storage */
174int32_t noteoff; /* note off time */
175int32_t noteon; /* note on time */
176int32_t noteper; /* note period */
177int32_t noteval; /* note value */
178int32_t nrest; /* number of rests */
179int32_t schksum; /* Score checksum */
180int32_t se1_cnt; /* Score - free list E_SIZE1 entry count */
181int32_t se2_cnt; /* Score - free list E_SIZE2 entry count */
182int32_t se3_cnt; /* Score - free list E_SIZE3 entry count */
183int32_t snbreq; /* Score - disk bytes required */
184int32_t snlreq; /* Score - score bytes required */
185int32_t sntbreq; /* Score - total disk bytes required */
186int32_t sntlreq; /* Score - total score bytes required */
187int32_t spcount; /* Score - storage pool free entry count */
188int32_t swcount; /* scroll wheel counter */
189int32_t swrate; /* scroll wheel rate */
190int32_t swtemp; /* scroll wheel work area */
191int32_t t_bak; /* time at p_bak */
192int32_t t_cbgn; /* time at p_cbgn */
193int32_t t_cend; /* time at p_cend */
194int32_t t_cur; /* time at p_cur */
195int32_t t_ctr; /* time at p_ctr */
196int32_t t_fwd; /* time at p_fwd */
197int32_t t_ins; /* time at peg */
198int32_t t_note; /* note duration between p_nbeg and p_nend */
199int32_t t_sbgn; /* time at p_sbgn */
200int32_t t_sec1; /* time at p_sec1 */
201int32_t t_sec2; /* time at p_sec2 */
202int32_t t_sect; /* section time */
203int32_t t_send; /* time at p_send */
204int32_t wshfac; /* waveshape scale factor */
205
206int32_t hwave[NUMWPCAL]; /* harmonic waveshape generation buffer */
207int32_t nlpersc[N_SCORES]; /* number of longs per score */
208int32_t scsums[N_SCORES]; /* score checksums */
209int32_t spool[MAX_SE]; /* Score storage pool */
210
211int32_t vknm[NUMHARM][NUMWPCAL]; /* scaled harmonics for current ws */
212
213int32_t swrmin = SWRMIN; /* scroll wheel rate threshold */
214
215/*
216
217*/
218
219/*
220 =============================================================================
221 swinit() -- initialize scroll wheel variables
222 =============================================================================
223*/
224
225void swinit(void)
226{
227 swflag = FALSE; /* stop the scroll wheel */
228 swctrl = FALSE; /* ... */
229 swdir = D_FWD; /* ... */
230 swrate = 0; /* ... */
231 swcount = 0; /* ... */
232
233 memsetw(swfifo, 0, NSWFIFO); /* clear scroll wheel fifo */
234 swfiin = 0; /* ... */
235
236 tkinit(); /* initialize the trackball */
237}
Note: See TracBrowser for help on using the repository browser.