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

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

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