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