source: buchla-68k/ram/ptread.c@ 99fed2e

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

Unused variables and parameters.
  • Property mode set to 100644
File size: 7.2 KB
Line 
1/*
2 =============================================================================
3 ptread.c -- librarian - read patch functions
4 Version 5 -- 1988-11-18 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#define DEBUGRE 0
9#define DEBUGSP 0
10
11#include "ram.h"
12
13#if DEBUGSP
14short debugsp = 1;
15#endif
16
17/*
18 =============================================================================
19 stashp() -- stash an incoming patch
20 =============================================================================
21*/
22
23int16_t stashp(void)
24{
25 register int16_t c;
26 register uint16_t np, stim;
27
28 c = findpte();
29
30 if (c EQ 0) { /* old patch -- just update it */
31
32 memcpyw(&patches[ptecpos].defnum, &ptebuf.defnum, 6);
33 patches[ptecpos].paspec |= PE_TBIT; /* define it */
34
35#if DEBUGSP
36 if (debugsw AND debugsp) {
37
38 printf("stashp(): UPDATED\n");
39 SnapPTV("stashp");
40 }
41#endif
42
43 return(SUCCESS);
44 }
45
46 /* allocate a patch entry and fill it in */
47
48 if (0 EQ (ptecpos = pt_alc())) {
49
50#if DEBUGSP
51 if (debugsw AND debugsp)
52 printf("stashp(): patch table FULL\n");
53#endif
54 return(FAILURE); /* no patch entries left */
55 }
56
57 memcpyw(&patches[ptecpos].defnum, &ptebuf.defnum, 6);
58 patches[ptecpos].paspec |= PE_TBIT; /* define it */
59 stim = TRG_MASK & ptebuf.stmnum;
60
61 if (c EQ 1) { /* new patch -- no STM entry yet */
62
63 ptepred = 0;
64 stmptr[stim] = ptecpos;
65 }
66
67 /* put patch in STM chain */
68
69 if (ptepred) { /* predecessor exits */
70
71 ptesucc = patches[ptepred].nextstm;
72
73 patches[ptecpos].nextstm = ptesucc;
74 patches[ptecpos].prevstm = ptepred;
75
76 patches[ptepred].nextstm = ptecpos;
77
78 if (ptesucc)
79 patches[ptesucc].prevstm = ptecpos;
80
81 } else { /* no predecessor */
82
83 patches[ptecpos].prevstm = 0;
84
85 if (c EQ -1) {
86
87 ptesucc = stmptr[stim];
88
89 patches[ptecpos].nextstm = ptesucc;
90
91 patches[ptesucc].prevstm = ptecpos;
92
93 stmptr[stim] = ptecpos;
94
95 } else {
96
97 patches[ptecpos].nextstm = 0;
98 }
99 }
100
101 /* update DEF table */
102
103 if (0 EQ (c = finddpe())) {
104
105#if DEBUGSP
106 if (debugsw AND debugsp) {
107
108 printf("stashp(): defent already exists -- dpecpos = %d\n",
109 dpecpos);
110
111 printf("stashp(): ENTERED\n");
112 SnapPTV("stashp");
113 }
114#endif
115 return(SUCCESS); /* defent already exists */
116 }
117
118 if (0 EQ (dpecpos = dt_alc())) {
119
120#if DEBUGSP
121 if (debugsw AND debugsp)
122 printf("stashp(): defent table FULL\n");
123#endif
124 return(FAILURE); /* no defents left */
125 }
126
127 defents[dpecpos].nextdef = 0;
128 defents[dpecpos].stm = ptebuf.stmnum;
129 defents[dpecpos].adspec = ptebuf.paspec;
130 defents[dpecpos].adsuba = ptebuf.pasuba;
131 defents[dpecpos].addat1 = ptebuf.padat1;
132
133 np = TRG_MASK & ptebuf.defnum;
134
135 if (c EQ 1) {
136
137 dpepred = 0;
138 defptr[np] = dpecpos;
139 }
140
141 if (dpepred) {
142
143 dpesucc = defents[dpepred].nextdef;
144 defents[dpecpos].nextdef = dpesucc;
145 defents[dpepred].nextdef = dpecpos;
146
147 } else {
148
149 if (c EQ -1) {
150
151 dpesucc = defptr[np];
152 defents[dpecpos].nextdef = dpesucc;
153 defptr[np] = dpecpos;
154
155 } else {
156
157 defents[dpecpos].nextdef = 0;
158 }
159 }
160
161#if DEBUGSP
162 if (debugsw AND debugsp) {
163
164 printf("stashp(): new defent created -- dpecpos = %d\n",
165 dpecpos);
166
167 printf("stashp(): ENTERED\n");
168 SnapPTV("stashp");
169 }
170#endif
171 return(SUCCESS);
172}
173
174/*
175 =============================================================================
176 ptioerr() -- put up an I/O error message
177 =============================================================================
178*/
179
180void ptioerr(void)
181{
182 int8_t erms[40];
183
184 clrlsel();
185
186 sprintf(erms, " errno = %d", errno);
187
188 ldermsg("Couldn't read", " the patch table", erms,
189 LD_EMCF, LD_EMCB);
190}
191
192/*
193 =============================================================================
194 nopatch() -- give an error message after running out of space
195 =============================================================================
196*/
197
198void nopatch(void)
199{
200 clrlsel();
201
202 ldermsg("Couldn't read", " the patch table.", " Ran out of space",
203 LD_EMCF, LD_EMCB);
204}
205
206/*
207 =============================================================================
208 ptread() -- read a patch
209 =============================================================================
210*/
211
212int16_t ptread(FILE *fp)
213{
214 int8_t cb;
215
216 ldwmsg(" Busy -- please stand by", (int8_t *)NULL, " Reading patches",
217 LCFBX10, LCBBX10);
218
219 for (;;) {
220
221 voidpb(); /* clear the patch buffer */
222
223 ptecpos = ptepred = ptesucc = 0;
224
225#if DEBUGRE
226 if (debugsw AND debugre)
227 printf("ptread(): reading\n");
228#endif
229 if (rd_ec(fp, &cb, 1L)) { /* get control byte */
230
231 ptioerr();
232 return(FAILURE);
233 }
234
235 if (0 EQ cb) /* if it's 0, we're done */
236 break;
237
238 ptebuf.paspec = PE_TBIT | (PE_SPEC & cb);
239
240 if (rd_ec(fp, &ptebuf.defnum, 4L)) /* DEF and STM */
241 return(FAILURE);
242
243 switch (cb) {
244
245 case PA_KEY:
246 case PA_TRG:
247
248 if (rd_ec(fp, &ptebuf.pasuba, 2L))
249 return(FAILURE);
250
251 if (rd_ec(fp, (int8_t *)&ptebuf.padat2 + 1, 1L))
252 return(FAILURE);
253
254 break;
255
256 case PA_PLS:
257 case PA_SCTL:
258
259 if (rd_ec(fp, (int8_t *)&ptebuf.pasuba + 1, 1L))
260 return(FAILURE);
261
262 if (rd_ec(fp, (int8_t *)&ptebuf.padat2 + 1, 1L))
263 return(FAILURE);
264
265 break;
266
267
268 case PA_LED:
269
270 if (rd_ec(fp, (int8_t *)&ptebuf.pasuba + 1, 1L))
271 return(FAILURE);
272
273 if (rd_ec(fp, &ptebuf.padat1, 1L))
274 return(FAILURE);
275
276 break;
277
278 case PA_SLIN:
279
280 if (rd_ec(fp, (int8_t *)&ptebuf.pasuba + 1, 1L))
281 return(FAILURE);
282
283 if (rd_ec(fp, &ptebuf.padat1, 2L))
284 return(FAILURE);
285
286 break;
287
288 case PA_TUNE:
289
290 if (rd_ec(fp, (int8_t *)&ptebuf.padat1 + 1, 1L))
291 return(FAILURE);
292
293 break;
294
295 case PA_RSET:
296 case PA_RADD:
297
298 if (rd_ec(fp, (int8_t *)&ptebuf.pasuba + 1, 1L))
299 return(FAILURE);
300
301 if (rd_ec(fp, (int8_t *)&ptebuf.padat1 + 1, 1L))
302 return(FAILURE);
303
304 if (rd_ec(fp, (int8_t *)&ptebuf.padat2 + 1, 1L))
305 return(FAILURE);
306
307 break;
308
309 case PA_INST:
310 case PA_WAVA:
311 case PA_WAVB:
312 case PA_CNFG:
313
314 if (rd_ec(fp, &ptebuf.pasuba, 1L))
315 return(FAILURE);
316
317 if (rd_ec(fp, (int8_t *)&ptebuf.padat1 + 1, 1L))
318 return(FAILURE);
319
320 break;
321
322 case PA_OSC:
323 case PA_INDX:
324 case PA_FREQ:
325
326 if (rd_ec(fp, &ptebuf.pasuba, 2L))
327 return(FAILURE);
328
329 if (rd_ec(fp, (int8_t *)&ptebuf.padat1 + 1, 1L))
330 return(FAILURE);
331
332 if (rd_ec(fp, &ptebuf.padat2, 2L))
333 return(FAILURE);
334
335 break;
336
337 case PA_LEVL:
338 case PA_FILT:
339 case PA_FILQ:
340 case PA_LOCN:
341 case PA_DYNM:
342
343 if (rd_ec(fp, &ptebuf.pasuba, 1L))
344 return(FAILURE);
345
346 if (rd_ec(fp, (int8_t *)&ptebuf.padat1 + 1, 1L))
347 return(FAILURE);
348
349 if (rd_ec(fp, &ptebuf.padat2, 2L))
350 return(FAILURE);
351
352 break;
353
354 case PA_AUX:
355 case PA_RATE:
356 case PA_INTN:
357 case PA_DPTH:
358
359 if (rd_ec(fp, (int8_t *)&ptebuf.padat1 + 1, 1L))
360 return(FAILURE);
361
362 if (rd_ec(fp, &ptebuf.padat2, 2L))
363 return(FAILURE);
364
365 break;
366
367 case PA_VOUT:
368
369 if (rd_ec(fp, (int8_t *)&ptebuf.pasuba + 1, 1L))
370 return(FAILURE);
371
372 if (rd_ec(fp, (int8_t *)&ptebuf.padat1 + 1, 1L))
373 return(FAILURE);
374
375 if (rd_ec(fp, &ptebuf.padat2, 2L))
376 return(FAILURE);
377
378 break;
379
380 default:
381
382 return(FAILURE);
383 }
384
385#if DEBUGRE
386 if (debugsw AND debugre)
387 printf("\n\n");
388#endif
389
390 if (stashp()) { /* stash the patch */
391
392 nopatch();
393 ptecpos = 0;
394 voidpb();
395 return(FAILURE);
396 }
397 }
398
399#if DEBUGRE
400 if (debugsw AND debugre)
401 printf("ptread(): terminator read -- end of patch file\n");
402#endif
403
404 ptecpos = 0;
405 voidpb();
406 return(SUCCESS);
407}
408
Note: See TracBrowser for help on using the repository browser.