[f40a309] | 1 | /*
|
---|
| 2 | =============================================================================
|
---|
| 3 | librw.c -- MIDAS librarian read / write functions
|
---|
| 4 | Version 22 -- 1988-11-18 -- D.N. Lynx Crowe
|
---|
| 5 | =============================================================================
|
---|
| 6 | */
|
---|
| 7 |
|
---|
| 8 | #define DEBUGIT 0
|
---|
| 9 |
|
---|
[6262b5c] | 10 | #include "all.h"
|
---|
[f40a309] | 11 |
|
---|
| 12 | /* |
---|
| 13 |
|
---|
| 14 | */
|
---|
| 15 |
|
---|
| 16 | #if DEBUGIT
|
---|
| 17 | extern short debugsw;
|
---|
| 18 | #endif
|
---|
[7258c6a] | 19 |
|
---|
[f40a309] | 20 | extern int8_t *slotnam(uint16_t slot, uint16_t kind);
|
---|
[7258c6a] | 21 |
|
---|
[f40a309] | 22 | extern int32_t chksum(int8_t *area, int32_t len);
|
---|
[e225e77] | 23 |
|
---|
| 24 | extern int16_t ptread(FILE *fp);
|
---|
| 25 | extern int16_t ptwrite(FILE *fp);
|
---|
| 26 | extern int16_t rd_ec(FILE *fp, int8_t *to, int32_t len);
|
---|
| 27 | extern int16_t scread(int16_t ns, FILE *fp);
|
---|
| 28 | extern int16_t scwrite(int16_t sn, FILE *fp);
|
---|
| 29 | extern int16_t sqread(FILE *fp);
|
---|
| 30 | extern int16_t sqwrite(FILE *fp);
|
---|
| 31 | extern int16_t wr_ec(FILE *fp, int8_t *from, int32_t len);
|
---|
| 32 | extern void clrlsel(void);
|
---|
| 33 | extern void initpt(void);
|
---|
| 34 | extern void initsq(void);
|
---|
| 35 | extern void ldbusy(int8_t *msg);
|
---|
| 36 | extern void ldermsg(int8_t *p1, int8_t *p2, int8_t *p3, uint16_t p4, uint16_t p5);
|
---|
| 37 | extern void ldswin(int16_t n);
|
---|
| 38 | extern void makelh(int16_t kind);
|
---|
| 39 | extern void postio(void);
|
---|
| 40 | extern void preio(void);
|
---|
| 41 | extern void streset(void);
|
---|
[7258c6a] | 42 |
|
---|
| 43 | extern int16_t ldslot, lderrsw, lrasw;
|
---|
[f40a309] | 44 | extern int16_t tunlib[][128];
|
---|
[7258c6a] | 45 |
|
---|
[f40a309] | 46 | extern int32_t lcsum, schksum, sntlreq;
|
---|
[7258c6a] | 47 |
|
---|
| 48 | extern int8_t tunname[][32];
|
---|
| 49 | extern int8_t ldfile[9];
|
---|
[f40a309] | 50 | extern int8_t ldcmnt[38];
|
---|
| 51 |
|
---|
| 52 | extern struct mlibhdr ldhead;
|
---|
| 53 | extern struct asgent asgtab[];
|
---|
| 54 | extern struct wstbl wslib[];
|
---|
| 55 | extern struct instdef idefs[];
|
---|
| 56 | extern struct s_time stimes[N_SCORES][N_SECTS];
|
---|
| 57 |
|
---|
| 58 | /* |
---|
| 59 |
|
---|
| 60 | */
|
---|
| 61 |
|
---|
| 62 | /*
|
---|
| 63 | =============================================================================
|
---|
| 64 | wrt_asg() -- write an assignment on the disk
|
---|
| 65 | =============================================================================
|
---|
[7258c6a] | 66 | */
|
---|
[f40a309] | 67 |
|
---|
| 68 | int16_t wrt_asg(int16_t slot)
|
---|
[7258c6a] | 69 | {
|
---|
| 70 | register FILE *fp;
|
---|
[f40a309] | 71 | register int16_t i;
|
---|
| 72 | int8_t cstemp[8];
|
---|
| 73 |
|
---|
| 74 | preio(); /* kill LCD backlight */
|
---|
| 75 |
|
---|
| 76 | fp = fopenb(slotnam(slot, FT_ASG), "w");
|
---|
| 77 |
|
---|
| 78 | if ((FILE *)NULL EQ fp) {
|
---|
[7258c6a] | 79 |
|
---|
[f40a309] | 80 | ldermsg("Couldn't create a file",
|
---|
| 81 | " for the assignments", (int8_t *)NULL,
|
---|
| 82 | LD_EMCF, LD_EMCB);
|
---|
| 83 |
|
---|
| 84 | postio(); /* restore LCD backlight */
|
---|
| 85 | streset();
|
---|
| 86 | return(FAILURE);
|
---|
| 87 | }
|
---|
| 88 |
|
---|
| 89 | makelh(FT_ASG); /* make header */
|
---|
[7258c6a] | 90 |
|
---|
[f40a309] | 91 | for (i = 0; i < NASGLIB; i++)
|
---|
| 92 | lcsum += chksum(&asgtab[i + 1], (int32_t)(sizeof (struct asgent)));
|
---|
| 93 |
|
---|
| 94 | sprintf(cstemp, "%08.8lX", lcsum);
|
---|
| 95 | memcpy(ldhead.l_csum, cstemp, 8);
|
---|
| 96 |
|
---|
| 97 | #if DEBUGIT
|
---|
| 98 | if (debugsw)
|
---|
| 99 | printf("wrt_asg(): hdr=[%-.56s]\n", &ldhead);
|
---|
| 100 | #endif
|
---|
| 101 |
|
---|
[7258c6a] | 102 | /* |
---|
[f40a309] | 103 |
|
---|
| 104 | */
|
---|
| 105 | if (wr_ec(fp, &ldhead, (int32_t)LH_LEN)) { /* header */
|
---|
| 106 |
|
---|
| 107 | streset();
|
---|
| 108 | return(FAILURE);
|
---|
| 109 | }
|
---|
[7258c6a] | 110 |
|
---|
[f40a309] | 111 | for (i = 0; i < NASGLIB; i++) {
|
---|
| 112 |
|
---|
| 113 | if (wr_ec(fp, &asgtab[i + 1], (int32_t)(sizeof (struct asgent)))) {
|
---|
| 114 |
|
---|
| 115 | streset();
|
---|
| 116 | return(FAILURE);
|
---|
| 117 | }
|
---|
| 118 | }
|
---|
| 119 |
|
---|
| 120 | fclose(fp);
|
---|
| 121 | postio(); /* restore LCD backlight */
|
---|
| 122 | return(SUCCESS);
|
---|
| 123 | }
|
---|
| 124 |
|
---|
| 125 | /* |
---|
| 126 |
|
---|
| 127 | */
|
---|
| 128 |
|
---|
| 129 | /*
|
---|
| 130 | =============================================================================
|
---|
[7258c6a] | 131 | get_asg() -- read an assignment library from the disk
|
---|
[f40a309] | 132 | =============================================================================
|
---|
| 133 | */
|
---|
[7258c6a] | 134 |
|
---|
[f40a309] | 135 | int16_t get_asg(void)
|
---|
| 136 | {
|
---|
| 137 | register FILE *fp;
|
---|
| 138 | register int16_t i;
|
---|
| 139 |
|
---|
| 140 | preio(); /* kill LCD backlight */
|
---|
| 141 |
|
---|
| 142 | fp = fopenb(slotnam(ldslot, FT_ASG), "r");
|
---|
[7258c6a] | 143 |
|
---|
[f40a309] | 144 | if ((FILE *)NULL EQ fp) {
|
---|
| 145 |
|
---|
| 146 | ldermsg("Couldn't open the file",
|
---|
| 147 | " for the assignments", (int8_t *)NULL,
|
---|
| 148 | LD_EMCF, LD_EMCB);
|
---|
| 149 |
|
---|
| 150 | postio(); /* restore LCD backlight */
|
---|
| 151 | clrlsel();
|
---|
| 152 | return(FAILURE);
|
---|
| 153 | }
|
---|
| 154 |
|
---|
| 155 | memcpy(ldfile, " ", 8);
|
---|
| 156 | memcpy(ldcmnt, " ", 37);
|
---|
| 157 | ldswin(3);
|
---|
[7258c6a] | 158 | ldswin(5);
|
---|
[f40a309] | 159 |
|
---|
| 160 | /* |
---|
| 161 |
|
---|
| 162 | */
|
---|
| 163 | if (rd_ec(fp, &ldhead, (int32_t)LH_LEN)) { /* header */
|
---|
| 164 |
|
---|
| 165 | clrlsel();
|
---|
| 166 | return(FAILURE);
|
---|
| 167 | }
|
---|
| 168 |
|
---|
| 169 | #if DEBUGIT
|
---|
| 170 | if (debugsw)
|
---|
| 171 | printf("get_asg(): hdr=[%-.56s]\n", &ldhead);
|
---|
[7258c6a] | 172 | #endif
|
---|
[f40a309] | 173 |
|
---|
| 174 |
|
---|
| 175 | for (i = 0; i < NASGLIB; i++) {
|
---|
| 176 |
|
---|
| 177 | if (rd_ec(fp, &asgtab[i + 1], (int32_t)(sizeof (struct asgent)))) {
|
---|
| 178 |
|
---|
| 179 | clrlsel();
|
---|
| 180 | return(FAILURE);
|
---|
| 181 | }
|
---|
| 182 | }
|
---|
| 183 |
|
---|
| 184 | clrlsel();
|
---|
| 185 | fclose(fp);
|
---|
| 186 | postio(); /* restore LCD backlight */
|
---|
| 187 | return(SUCCESS);
|
---|
| 188 | }
|
---|
| 189 |
|
---|
| 190 | /* |
---|
| 191 |
|
---|
| 192 | */
|
---|
| 193 |
|
---|
[7258c6a] | 194 | /*
|
---|
[f40a309] | 195 | =============================================================================
|
---|
| 196 | wrt_orc() -- write an orchestra on the disk
|
---|
[7258c6a] | 197 | =============================================================================
|
---|
[f40a309] | 198 | */
|
---|
[7258c6a] | 199 |
|
---|
[f40a309] | 200 | int16_t wrt_orc(int16_t slot, int16_t lorh)
|
---|
| 201 | {
|
---|
| 202 | register FILE *fp;
|
---|
| 203 | register int16_t i;
|
---|
| 204 | register struct instdef *ip;
|
---|
| 205 | int8_t cstemp[8];
|
---|
| 206 |
|
---|
| 207 | if (lorh)
|
---|
| 208 | ldbusy(" Writing Hi Orch");
|
---|
| 209 | else
|
---|
| 210 | ldbusy(" Writing Lo Orch");
|
---|
| 211 |
|
---|
| 212 | preio(); /* kill LCD backlight */
|
---|
[7258c6a] | 213 |
|
---|
[f40a309] | 214 | fp = fopenb(slotnam(slot, FT_ORC), "w");
|
---|
| 215 |
|
---|
| 216 | if ((FILE *)NULL EQ fp) {
|
---|
| 217 |
|
---|
| 218 | ldermsg("Couldn't create a file",
|
---|
| 219 | " for the orchestra", (int8_t *)NULL,
|
---|
| 220 | LD_EMCF, LD_EMCB);
|
---|
| 221 |
|
---|
| 222 | postio(); /* restore LCD backlight */
|
---|
| 223 | streset();
|
---|
| 224 | return(FAILURE);
|
---|
| 225 | }
|
---|
| 226 |
|
---|
[7258c6a] | 227 | makelh(FT_ORC); /* make header */
|
---|
| 228 |
|
---|
| 229 | for (i = 0; i < NINORC; i++) {
|
---|
[f40a309] | 230 |
|
---|
| 231 | ip = &idefs[i + 1 + (lorh ? NINORC : 0)];
|
---|
| 232 |
|
---|
| 233 | lcsum += chksum(ip, (int32_t)OR_LEN1);
|
---|
| 234 | lcsum += chksum(ip->idhwvao, (int32_t)OR_LEN2);
|
---|
| 235 | lcsum += chksum(ip->idhwvbo, (int32_t)OR_LEN2);
|
---|
| 236 | }
|
---|
| 237 |
|
---|
| 238 | sprintf(cstemp, "%08.8lX", lcsum);
|
---|
| 239 | memcpy(ldhead.l_csum, cstemp, 8);
|
---|
| 240 |
|
---|
| 241 | #if DEBUGIT
|
---|
[7258c6a] | 242 | if (debugsw)
|
---|
[f40a309] | 243 | printf("wrt_orc(): hdr=[%-.56s]\n", &ldhead);
|
---|
| 244 | #endif
|
---|
| 245 |
|
---|
| 246 | /* |
---|
| 247 |
|
---|
| 248 | */
|
---|
| 249 | if (wr_ec(fp, &ldhead, (int32_t)LH_LEN)) { /* header */
|
---|
| 250 |
|
---|
| 251 | streset();
|
---|
[7258c6a] | 252 | return(FAILURE);
|
---|
[f40a309] | 253 | }
|
---|
| 254 |
|
---|
| 255 | for (i = 0; i < NINORC; i++) {
|
---|
| 256 |
|
---|
| 257 | ip = &idefs[i + 1 + (lorh ? NINORC : 0)];
|
---|
[7258c6a] | 258 |
|
---|
[f40a309] | 259 | if (wr_ec(fp, ip, (int32_t)OR_LEN1)) { /* functions */
|
---|
| 260 |
|
---|
| 261 | streset();
|
---|
| 262 | return(FAILURE);
|
---|
| 263 | }
|
---|
[7258c6a] | 264 |
|
---|
[f40a309] | 265 | if (wr_ec(fp, ip->idhwvao, (int32_t)OR_LEN2)) { /* WS A */
|
---|
| 266 |
|
---|
| 267 | streset();
|
---|
| 268 | return(FAILURE);
|
---|
| 269 | }
|
---|
| 270 |
|
---|
| 271 | if (wr_ec(fp, ip->idhwvbo, (int32_t)OR_LEN2)) { /* WS B */
|
---|
| 272 |
|
---|
| 273 | streset();
|
---|
| 274 | return(FAILURE);
|
---|
| 275 | }
|
---|
| 276 | }
|
---|
| 277 |
|
---|
| 278 | fclose(fp);
|
---|
| 279 | postio(); /* restore LCD backlight */
|
---|
| 280 | return(SUCCESS);
|
---|
| 281 | }
|
---|
| 282 |
|
---|
| 283 | /* |
---|
| 284 |
|
---|
[7258c6a] | 285 | */
|
---|
[f40a309] | 286 |
|
---|
| 287 | /*
|
---|
[7258c6a] | 288 | =============================================================================
|
---|
[f40a309] | 289 | get_orc() -- read an orchestra from the disk
|
---|
| 290 | =============================================================================
|
---|
| 291 | */
|
---|
| 292 |
|
---|
| 293 | int16_t get_orc(int16_t lorh, int16_t kind)
|
---|
| 294 | {
|
---|
| 295 | register FILE *fp;
|
---|
| 296 | register int16_t i;
|
---|
| 297 | register struct instdef *ip;
|
---|
| 298 |
|
---|
| 299 | if (lorh)
|
---|
| 300 | ldbusy(" Reading Hi Orch");
|
---|
| 301 | else
|
---|
| 302 | ldbusy(" Reading Lo Orch");
|
---|
[7258c6a] | 303 |
|
---|
[f40a309] | 304 | preio(); /* kill LCD backlight */
|
---|
| 305 |
|
---|
| 306 | fp = fopenb(slotnam(ldslot, kind), "r");
|
---|
| 307 |
|
---|
| 308 | if ((FILE *)NULL EQ fp) {
|
---|
| 309 |
|
---|
| 310 | ldermsg("Couldn't open the file",
|
---|
| 311 | " for the orchestra", (int8_t *)NULL,
|
---|
| 312 | LD_EMCF, LD_EMCB);
|
---|
| 313 |
|
---|
| 314 | postio(); /* restore LCD backlight */
|
---|
| 315 | clrlsel();
|
---|
| 316 | return(FAILURE);
|
---|
| 317 | }
|
---|
[7258c6a] | 318 |
|
---|
[f40a309] | 319 | memcpy(ldfile, " ", 8);
|
---|
| 320 | memcpy(ldcmnt, " ", 37);
|
---|
| 321 | ldswin(3);
|
---|
| 322 | ldswin(5);
|
---|
| 323 |
|
---|
| 324 | /* |
---|
| 325 |
|
---|
| 326 | */
|
---|
| 327 | if (rd_ec(fp, &ldhead, (int32_t)LH_LEN)) { /* header */
|
---|
| 328 |
|
---|
| 329 | clrlsel();
|
---|
| 330 | return(FAILURE);
|
---|
| 331 | }
|
---|
| 332 |
|
---|
| 333 | #if DEBUGIT
|
---|
[7258c6a] | 334 | if (debugsw)
|
---|
[f40a309] | 335 | printf("get_orc(): hdr=[%-.56s]\n", &ldhead);
|
---|
| 336 | #endif
|
---|
| 337 |
|
---|
| 338 |
|
---|
| 339 | for (i = 0; i < NINORC; i++) {
|
---|
[7258c6a] | 340 |
|
---|
[f40a309] | 341 | ip = &idefs[i + 1 + (lorh ? NINORC : 0)];
|
---|
| 342 |
|
---|
| 343 | if (rd_ec(fp, ip, (int32_t)OR_LEN1)) { /* functions */
|
---|
| 344 |
|
---|
| 345 | clrlsel();
|
---|
[7258c6a] | 346 | return(FAILURE);
|
---|
[f40a309] | 347 | }
|
---|
| 348 |
|
---|
| 349 | if (rd_ec(fp, ip->idhwvao, (int32_t)OR_LEN2)) { /* WS A */
|
---|
| 350 |
|
---|
| 351 | clrlsel();
|
---|
| 352 | return(FAILURE);
|
---|
| 353 | }
|
---|
| 354 |
|
---|
| 355 | if (rd_ec(fp, ip->idhwvbo, (int32_t)OR_LEN2)) { /* WS B */
|
---|
| 356 |
|
---|
| 357 | clrlsel();
|
---|
| 358 | return(FAILURE);
|
---|
| 359 | }
|
---|
| 360 |
|
---|
| 361 | /* unpack offsets (and eventually harmonics) into finals */
|
---|
| 362 |
|
---|
| 363 | memcpyw(ip->idhwvaf, ip->idhwvao, NUMWPNT);
|
---|
| 364 | memcpyw(ip->idhwvbf, ip->idhwvbo, NUMWPNT);
|
---|
| 365 | }
|
---|
| 366 |
|
---|
| 367 | clrlsel();
|
---|
| 368 | fclose(fp);
|
---|
| 369 | postio(); /* restore LCD backlight */
|
---|
| 370 | return(SUCCESS);
|
---|
| 371 | }
|
---|
| 372 |
|
---|
[7258c6a] | 373 | /* |
---|
[f40a309] | 374 |
|
---|
| 375 | */
|
---|
[7258c6a] | 376 |
|
---|
| 377 | /*
|
---|
[f40a309] | 378 | =============================================================================
|
---|
| 379 | wrt_tun() -- write a tuning library on the disk
|
---|
| 380 | =============================================================================
|
---|
| 381 | */
|
---|
| 382 |
|
---|
| 383 | int16_t wrt_tun(int16_t slot)
|
---|
| 384 | {
|
---|
| 385 | register FILE *fp;
|
---|
[7258c6a] | 386 | register int16_t i;
|
---|
[f40a309] | 387 | int8_t cstemp[8];
|
---|
| 388 |
|
---|
| 389 | preio(); /* kill LCD backlight */
|
---|
| 390 |
|
---|
| 391 | fp = fopenb(slotnam(slot, FT_TUN), "w");
|
---|
| 392 |
|
---|
| 393 | if ((FILE *)NULL EQ fp) {
|
---|
| 394 |
|
---|
| 395 | ldermsg("Couldn't create a file",
|
---|
| 396 | " for the tunings", (int8_t *)NULL,
|
---|
| 397 | LD_EMCF, LD_EMCB);
|
---|
| 398 |
|
---|
| 399 | postio(); /* restore LCD backlight */
|
---|
| 400 | streset();
|
---|
| 401 | return(FAILURE);
|
---|
| 402 | }
|
---|
| 403 |
|
---|
| 404 | makelh(FT_TUN); /* make header */
|
---|
| 405 |
|
---|
| 406 | for (i = 0; i < NTUNSLIB; i++) {
|
---|
| 407 |
|
---|
| 408 | lcsum += chksum(&tunlib[i + 1], 256L);
|
---|
| 409 | lcsum += chksum(&tunname[i + 1], 32L);
|
---|
| 410 | }
|
---|
| 411 |
|
---|
[7258c6a] | 412 | sprintf(cstemp, "%08.8lX", lcsum);
|
---|
[f40a309] | 413 | memcpy(ldhead.l_csum, cstemp, 8);
|
---|
| 414 |
|
---|
| 415 | #if DEBUGIT
|
---|
| 416 | if (debugsw)
|
---|
| 417 | printf("wrt_tun(): hdr=[%-.56s]\n", &ldhead);
|
---|
| 418 | #endif
|
---|
| 419 |
|
---|
| 420 | /* |
---|
| 421 |
|
---|
| 422 | */
|
---|
| 423 | if (wr_ec(fp, &ldhead, (int32_t)LH_LEN)) { /* header */
|
---|
| 424 |
|
---|
| 425 | streset();
|
---|
| 426 | return(FAILURE);
|
---|
| 427 | }
|
---|
| 428 |
|
---|
| 429 | for (i = 0; i < NTUNSLIB; i++) {
|
---|
| 430 |
|
---|
| 431 | if (wr_ec(fp, &tunlib[i + 1], 256L)) {
|
---|
| 432 |
|
---|
| 433 | streset();
|
---|
| 434 | return(FAILURE);
|
---|
| 435 | }
|
---|
| 436 |
|
---|
| 437 | if (wr_ec(fp, &tunname[i + 1], 32L)) {
|
---|
| 438 |
|
---|
| 439 | streset();
|
---|
| 440 | return(FAILURE);
|
---|
| 441 | }
|
---|
| 442 | }
|
---|
| 443 |
|
---|
| 444 | fclose(fp);
|
---|
| 445 | postio(); /* restore LCD backlight */
|
---|
| 446 | return(SUCCESS);
|
---|
[7258c6a] | 447 | }
|
---|
[f40a309] | 448 |
|
---|
| 449 | /* |
---|
[7258c6a] | 450 |
|
---|
[f40a309] | 451 | */
|
---|
| 452 |
|
---|
| 453 | /*
|
---|
| 454 | =============================================================================
|
---|
| 455 | get_tun() -- read a tuning library from the disk
|
---|
| 456 | =============================================================================
|
---|
| 457 | */
|
---|
| 458 |
|
---|
[7258c6a] | 459 | int16_t get_tun(void)
|
---|
[f40a309] | 460 | {
|
---|
| 461 | register FILE *fp;
|
---|
| 462 | register int16_t i;
|
---|
| 463 |
|
---|
| 464 | preio(); /* kill LCD backlight */
|
---|
| 465 |
|
---|
| 466 | fp = fopenb(slotnam(ldslot, FT_TUN), "r");
|
---|
| 467 |
|
---|
| 468 | if ((FILE *)NULL EQ fp) {
|
---|
| 469 |
|
---|
| 470 | ldermsg("Couldn't open the file",
|
---|
| 471 | " for the tunings", (int8_t *)NULL,
|
---|
| 472 | LD_EMCF, LD_EMCB);
|
---|
| 473 |
|
---|
[7258c6a] | 474 | postio(); /* restore LCD backlight */
|
---|
[f40a309] | 475 | clrlsel();
|
---|
| 476 | return(FAILURE);
|
---|
| 477 | }
|
---|
| 478 |
|
---|
| 479 | memcpy(ldfile, " ", 8);
|
---|
| 480 | memcpy(ldcmnt, " ", 37);
|
---|
| 481 | ldswin(3);
|
---|
| 482 | ldswin(5);
|
---|
| 483 |
|
---|
| 484 | /* |
---|
| 485 |
|
---|
| 486 | */
|
---|
| 487 | if (rd_ec(fp, &ldhead, (int32_t)LH_LEN)) { /* header */
|
---|
| 488 |
|
---|
| 489 | clrlsel();
|
---|
| 490 | return(FAILURE);
|
---|
| 491 | }
|
---|
| 492 |
|
---|
| 493 | #if DEBUGIT
|
---|
| 494 | if (debugsw)
|
---|
| 495 | printf("get_tun(): hdr=[%-.56s]\n", &ldhead);
|
---|
| 496 | #endif
|
---|
| 497 |
|
---|
| 498 |
|
---|
| 499 | for (i = 0; i < NTUNSLIB; i++) {
|
---|
| 500 |
|
---|
| 501 | if (rd_ec(fp, &tunlib[i + 1], 256L)) {
|
---|
| 502 |
|
---|
| 503 | clrlsel();
|
---|
| 504 | return(FAILURE);
|
---|
| 505 | }
|
---|
| 506 |
|
---|
| 507 | if (rd_ec(fp, &tunname[i + 1], 32L)) {
|
---|
| 508 |
|
---|
| 509 | clrlsel();
|
---|
| 510 | return(FAILURE);
|
---|
| 511 | }
|
---|
| 512 | }
|
---|
| 513 |
|
---|
| 514 | clrlsel();
|
---|
| 515 | fclose(fp);
|
---|
[7258c6a] | 516 | postio(); /* restore LCD backlight */
|
---|
[f40a309] | 517 | return(SUCCESS);
|
---|
| 518 | }
|
---|
[7258c6a] | 519 |
|
---|
[f40a309] | 520 | /* |
---|
| 521 |
|
---|
| 522 | */
|
---|
| 523 |
|
---|
| 524 | /*
|
---|
| 525 | =============================================================================
|
---|
| 526 | wrt_pat() -- write a patch file on the disk
|
---|
| 527 | =============================================================================
|
---|
[7258c6a] | 528 | */
|
---|
[f40a309] | 529 |
|
---|
| 530 | int16_t wrt_pat(int16_t slot)
|
---|
| 531 | {
|
---|
| 532 | register FILE *fp;
|
---|
| 533 | int8_t cstemp[8];
|
---|
| 534 |
|
---|
| 535 | preio(); /* kill LCD backlight */
|
---|
| 536 |
|
---|
| 537 | fp = fopenb(slotnam(slot, FT_PAT), "w");
|
---|
| 538 |
|
---|
| 539 | if ((FILE *)NULL EQ fp) {
|
---|
| 540 |
|
---|
| 541 | ldermsg("Couldn't create a file",
|
---|
| 542 | " for the patches", (int8_t *)NULL,
|
---|
| 543 | LD_EMCF, LD_EMCB);
|
---|
| 544 |
|
---|
| 545 | postio(); /* restore LCD backlight */
|
---|
| 546 | streset();
|
---|
| 547 | return(FAILURE);
|
---|
[7258c6a] | 548 | }
|
---|
[f40a309] | 549 |
|
---|
| 550 | makelh(FT_PAT); /* make header */
|
---|
| 551 |
|
---|
| 552 | sprintf(cstemp, "%08.8lX", lcsum);
|
---|
| 553 | memcpy(ldhead.l_csum, cstemp, 8);
|
---|
| 554 |
|
---|
| 555 | #if DEBUGIT
|
---|
| 556 | if (debugsw)
|
---|
| 557 | printf("wrt_pat(): hdr=[%-.56s]\n", &ldhead);
|
---|
| 558 | #endif
|
---|
| 559 |
|
---|
| 560 | /* |
---|
| 561 |
|
---|
| 562 | */
|
---|
| 563 | if (wr_ec(fp, &ldhead, (int32_t)LH_LEN)) { /* header */
|
---|
| 564 |
|
---|
| 565 | streset();
|
---|
| 566 | return(FAILURE);
|
---|
| 567 | }
|
---|
| 568 |
|
---|
| 569 | if (ptwrite(fp)) { /* patches */
|
---|
| 570 |
|
---|
| 571 | streset();
|
---|
| 572 | return(FAILURE);
|
---|
| 573 | }
|
---|
[7258c6a] | 574 |
|
---|
[f40a309] | 575 | fclose(fp);
|
---|
| 576 | postio(); /* restore LCD backlight */
|
---|
| 577 | return(SUCCESS);
|
---|
| 578 | }
|
---|
| 579 |
|
---|
| 580 | /* |
---|
| 581 |
|
---|
| 582 | */
|
---|
| 583 |
|
---|
| 584 | /*
|
---|
[7258c6a] | 585 | =============================================================================
|
---|
[f40a309] | 586 | get_pat() -- read a patch file from the disk
|
---|
| 587 | =============================================================================
|
---|
| 588 | */
|
---|
| 589 |
|
---|
| 590 | int16_t get_pat(void)
|
---|
| 591 | {
|
---|
| 592 | register FILE *fp;
|
---|
| 593 |
|
---|
| 594 | preio(); /* kill LCD backlight */
|
---|
| 595 |
|
---|
| 596 | fp = fopenb(slotnam(ldslot, FT_PAT), "r");
|
---|
| 597 |
|
---|
| 598 | if ((FILE *)NULL EQ fp) {
|
---|
| 599 |
|
---|
[7258c6a] | 600 | ldermsg("Couldn't open the file",
|
---|
[f40a309] | 601 | " for the patches", (int8_t *)NULL,
|
---|
| 602 | LD_EMCF, LD_EMCB);
|
---|
| 603 |
|
---|
| 604 | postio(); /* restore LCD backlight */
|
---|
| 605 | clrlsel();
|
---|
| 606 | return(FAILURE);
|
---|
| 607 | }
|
---|
| 608 |
|
---|
| 609 | memcpy(ldfile, " ", 8);
|
---|
| 610 | memcpy(ldcmnt, " ", 37);
|
---|
| 611 | ldswin(3);
|
---|
| 612 | ldswin(5);
|
---|
| 613 |
|
---|
| 614 | /* |
---|
| 615 |
|
---|
| 616 | */
|
---|
| 617 | if (rd_ec(fp, &ldhead, (int32_t)LH_LEN)) { /* header */
|
---|
| 618 |
|
---|
| 619 | clrlsel();
|
---|
| 620 | return(FAILURE);
|
---|
| 621 | }
|
---|
| 622 |
|
---|
| 623 | #if DEBUGIT
|
---|
| 624 | if (debugsw)
|
---|
| 625 | printf("get_pat(): hdr=[%-.56s]\n", &ldhead);
|
---|
| 626 | #endif
|
---|
| 627 |
|
---|
| 628 | if (lrasw EQ 0) /* clear all patches if in replace mode */
|
---|
| 629 | initpt();
|
---|
| 630 |
|
---|
| 631 | if (ptread(fp)) {
|
---|
| 632 |
|
---|
| 633 | clrlsel();
|
---|
| 634 | return(FAILURE);
|
---|
[7258c6a] | 635 | }
|
---|
[f40a309] | 636 |
|
---|
| 637 | fclose(fp);
|
---|
[7258c6a] | 638 | postio(); /* restore LCD backlight */
|
---|
| 639 | clrlsel();
|
---|
| 640 | return(SUCCESS);
|
---|
[f40a309] | 641 | }
|
---|
| 642 |
|
---|
| 643 | /* |
---|
| 644 |
|
---|
| 645 | */
|
---|
| 646 |
|
---|
| 647 | /*
|
---|
| 648 | =============================================================================
|
---|
[7258c6a] | 649 | wrt_scr() -- write a score file on the disk
|
---|
[f40a309] | 650 | =============================================================================
|
---|
| 651 | */
|
---|
| 652 |
|
---|
| 653 | int16_t wrt_scr(int16_t slot)
|
---|
| 654 | {
|
---|
| 655 | register FILE *fp;
|
---|
| 656 | register int16_t i;
|
---|
| 657 | int32_t tnb;
|
---|
| 658 | int8_t cstemp[8];
|
---|
| 659 |
|
---|
| 660 | preio(); /* kill LCD backlight */
|
---|
| 661 |
|
---|
| 662 | fp = fopenb(slotnam(slot, FT_SCR), "w");
|
---|
| 663 |
|
---|
| 664 | if ((FILE *)NULL EQ fp) {
|
---|
| 665 |
|
---|
| 666 | ldermsg("Couldn't create a file",
|
---|
| 667 | " for the scores", (int8_t *)NULL,
|
---|
| 668 | LD_EMCF, LD_EMCB);
|
---|
| 669 |
|
---|
| 670 | postio(); /* restore LCD backlight */
|
---|
[7258c6a] | 671 | streset();
|
---|
[f40a309] | 672 | return(FAILURE);
|
---|
| 673 | }
|
---|
| 674 |
|
---|
| 675 | makelh(FT_SCR); /* make header */
|
---|
| 676 |
|
---|
| 677 | lcsum += sntlreq;
|
---|
| 678 |
|
---|
| 679 | sprintf(cstemp, "%08.8lX", lcsum);
|
---|
| 680 | memcpy(ldhead.l_csum, cstemp, 8);
|
---|
| 681 |
|
---|
| 682 | #if DEBUGIT
|
---|
| 683 | if (debugsw)
|
---|
| 684 | printf("wrt_scr(): hdr=[%-.56s]\n", &ldhead);
|
---|
| 685 | #endif
|
---|
| 686 |
|
---|
| 687 | /* |
---|
| 688 |
|
---|
| 689 | */
|
---|
| 690 | if (wr_ec(fp, &ldhead, (int32_t)LH_LEN)) { /* header */
|
---|
| 691 |
|
---|
| 692 | streset();
|
---|
| 693 | return(FAILURE);
|
---|
| 694 | }
|
---|
| 695 |
|
---|
| 696 | if (wr_ec(fp, &sntlreq, 4L)) { /* total longs required */
|
---|
| 697 |
|
---|
| 698 | streset();
|
---|
| 699 | return(FAILURE);
|
---|
| 700 | }
|
---|
| 701 |
|
---|
| 702 | for (i = 0; i < N_SCORES; i++) { /* scores */
|
---|
| 703 |
|
---|
| 704 | if (scwrite(i, fp)) {
|
---|
| 705 |
|
---|
[7258c6a] | 706 | streset();
|
---|
[f40a309] | 707 | return(FAILURE);
|
---|
| 708 | }
|
---|
[7258c6a] | 709 | }
|
---|
| 710 |
|
---|
[f40a309] | 711 | fclose(fp);
|
---|
| 712 | postio(); /* restore LCD backlight */
|
---|
| 713 | return(SUCCESS);
|
---|
| 714 | }
|
---|
| 715 |
|
---|
| 716 | /* |
---|
| 717 |
|
---|
| 718 | */
|
---|
[7258c6a] | 719 |
|
---|
[f40a309] | 720 | /*
|
---|
| 721 | =============================================================================
|
---|
| 722 | get_scr() -- read a score file from the disk
|
---|
| 723 | =============================================================================
|
---|
| 724 | */
|
---|
| 725 |
|
---|
| 726 | int16_t get_scr(void)
|
---|
| 727 | {
|
---|
| 728 | register FILE *fp;
|
---|
| 729 | register int16_t i;
|
---|
| 730 | int32_t tnl;
|
---|
| 731 |
|
---|
| 732 | preio(); /* kill LCD backlight */
|
---|
| 733 |
|
---|
[7258c6a] | 734 | fp = fopenb(slotnam(ldslot, FT_SCR), "r");
|
---|
[f40a309] | 735 |
|
---|
| 736 | if ((FILE *)NULL EQ fp) {
|
---|
| 737 |
|
---|
| 738 | ldermsg("Couldn't open the file",
|
---|
| 739 | " for the scores", (int8_t *)NULL,
|
---|
| 740 | LD_EMCF, LD_EMCB);
|
---|
| 741 |
|
---|
| 742 | postio(); /* restore LCD backlight */
|
---|
| 743 | clrlsel();
|
---|
| 744 | return(FAILURE);
|
---|
| 745 | }
|
---|
| 746 |
|
---|
| 747 | memcpy(ldfile, " ", 8);
|
---|
| 748 | memcpy(ldcmnt, " ", 37);
|
---|
| 749 | ldswin(3);
|
---|
| 750 | ldswin(5);
|
---|
| 751 |
|
---|
| 752 | /* |
---|
| 753 |
|
---|
| 754 | */
|
---|
| 755 | if (rd_ec(fp, &ldhead, (int32_t)LH_LEN)) { /* header */
|
---|
| 756 |
|
---|
| 757 | clrlsel();
|
---|
| 758 | return(FAILURE);
|
---|
| 759 | }
|
---|
| 760 |
|
---|
| 761 | #if DEBUGIT
|
---|
| 762 | if (debugsw)
|
---|
| 763 | printf("get_scr(): hdr=[%-.56s]\n", &ldhead);
|
---|
| 764 | #endif
|
---|
| 765 |
|
---|
| 766 |
|
---|
| 767 | if (rd_ec(fp, &tnl, 4L)) { /* longs required */
|
---|
| 768 |
|
---|
| 769 | clrlsel();
|
---|
| 770 | return(FAILURE);
|
---|
| 771 | }
|
---|
| 772 |
|
---|
| 773 | if (lrasw EQ 0) /* clear all scores if in replace mode */
|
---|
| 774 | scinit();
|
---|
| 775 |
|
---|
| 776 | for (i = 0; i < N_SCORES; i++) { /* read scores */
|
---|
| 777 |
|
---|
| 778 | if (scread(i, fp)) {
|
---|
| 779 |
|
---|
| 780 | clrlsel();
|
---|
| 781 | return(FAILURE);
|
---|
| 782 | }
|
---|
| 783 | }
|
---|
| 784 |
|
---|
| 785 | fclose(fp);
|
---|
| 786 | postio(); /* restore LCD backlight */
|
---|
[7258c6a] | 787 |
|
---|
[f40a309] | 788 | p_bak = p_cur = p_ctr = p_fwd = scp = E_NULL;
|
---|
| 789 | t_cur = t_ctr = 0L;
|
---|
[7258c6a] | 790 | t_bak = t_cur - TO_BAK;
|
---|
[f40a309] | 791 | t_fwd = t_cur + TO_FWD;
|
---|
| 792 |
|
---|
| 793 | selscor(0);
|
---|
| 794 |
|
---|
| 795 | clrlsel();
|
---|
| 796 | return(SUCCESS);
|
---|
| 797 | }
|
---|
| 798 |
|
---|
[7258c6a] | 799 | /* |
---|
[f40a309] | 800 |
|
---|
| 801 | */
|
---|
| 802 |
|
---|
| 803 | /*
|
---|
| 804 | =============================================================================
|
---|
| 805 | wrt_seq() -- write a sequence file on the disk
|
---|
| 806 | =============================================================================
|
---|
| 807 | */
|
---|
| 808 |
|
---|
| 809 | int16_t wrt_seq(int16_t slot)
|
---|
| 810 | {
|
---|
| 811 | register FILE *fp;
|
---|
| 812 | int8_t cstemp[8];
|
---|
| 813 |
|
---|
| 814 | preio(); /* kill LCD backlight */
|
---|
| 815 |
|
---|
| 816 | fp = fopenb(slotnam(slot, FT_SEQ), "w");
|
---|
| 817 |
|
---|
| 818 | if ((FILE *)NULL EQ fp) {
|
---|
[7258c6a] | 819 |
|
---|
[f40a309] | 820 | ldermsg("Couldn't create a file",
|
---|
| 821 | " for the sequences", (int8_t *)NULL,
|
---|
| 822 | LD_EMCF, LD_EMCB);
|
---|
| 823 |
|
---|
| 824 | postio(); /* restore LCD backlight */
|
---|
| 825 | streset();
|
---|
| 826 | return(FAILURE);
|
---|
| 827 | }
|
---|
| 828 |
|
---|
| 829 | makelh(FT_SEQ); /* make header */
|
---|
| 830 |
|
---|
| 831 | sprintf(cstemp, "%08.8lX", lcsum);
|
---|
| 832 | memcpy(ldhead.l_csum, cstemp, 8);
|
---|
| 833 |
|
---|
| 834 | #if DEBUGIT
|
---|
| 835 | if (debugsw)
|
---|
| 836 | printf("wrt_seq(): hdr=[%-.56s]\n", &ldhead);
|
---|
| 837 | #endif
|
---|
| 838 |
|
---|
| 839 | /* |
---|
| 840 |
|
---|
| 841 | */
|
---|
| 842 | if (wr_ec(fp, &ldhead, (int32_t)LH_LEN)) { /* header */
|
---|
| 843 |
|
---|
| 844 | streset();
|
---|
[7258c6a] | 845 | return(FAILURE);
|
---|
[f40a309] | 846 | }
|
---|
| 847 |
|
---|
| 848 | if (sqwrite(fp)) { /* sequences */
|
---|
| 849 |
|
---|
| 850 | streset();
|
---|
| 851 | return(FAILURE);
|
---|
| 852 | }
|
---|
| 853 |
|
---|
| 854 | fclose(fp);
|
---|
| 855 | postio(); /* restore LCD backlight */
|
---|
[7258c6a] | 856 | return(SUCCESS);
|
---|
[f40a309] | 857 | }
|
---|
| 858 |
|
---|
| 859 | /* |
---|
| 860 |
|
---|
| 861 | */
|
---|
| 862 |
|
---|
| 863 | /*
|
---|
| 864 | =============================================================================
|
---|
| 865 | get_seq() -- read a sequence file from the disk
|
---|
| 866 | =============================================================================
|
---|
| 867 | */
|
---|
| 868 |
|
---|
| 869 | int16_t get_seq(void)
|
---|
| 870 | {
|
---|
[7258c6a] | 871 | register FILE *fp;
|
---|
[f40a309] | 872 |
|
---|
| 873 | preio(); /* kill LCD backlight */
|
---|
| 874 |
|
---|
| 875 | fp = fopenb(slotnam(ldslot, FT_SEQ), "r");
|
---|
| 876 |
|
---|
| 877 | if ((FILE *)NULL EQ fp) {
|
---|
| 878 |
|
---|
| 879 | ldermsg("Couldn't open the file",
|
---|
| 880 | " for the sequences", (int8_t *)NULL,
|
---|
| 881 | LD_EMCF, LD_EMCB);
|
---|
| 882 |
|
---|
| 883 | postio(); /* restore LCD backlight */
|
---|
| 884 | clrlsel();
|
---|
| 885 | return(FAILURE);
|
---|
| 886 | }
|
---|
| 887 |
|
---|
| 888 | memcpy(ldfile, " ", 8);
|
---|
| 889 | memcpy(ldcmnt, " ", 37);
|
---|
| 890 | ldswin(3);
|
---|
| 891 | ldswin(5);
|
---|
| 892 |
|
---|
| 893 | /* |
---|
| 894 |
|
---|
| 895 | */
|
---|
| 896 | if (rd_ec(fp, &ldhead, (int32_t)LH_LEN)) { /* header */
|
---|
| 897 |
|
---|
| 898 | clrlsel();
|
---|
| 899 | return(FAILURE);
|
---|
| 900 | }
|
---|
| 901 |
|
---|
| 902 | #if DEBUGIT
|
---|
| 903 | if (debugsw)
|
---|
| 904 | printf("get_seq(): hdr=[%-.56s]\n", &ldhead);
|
---|
[7258c6a] | 905 | #endif
|
---|
[f40a309] | 906 |
|
---|
| 907 | initsq();
|
---|
[7258c6a] | 908 |
|
---|
| 909 | if (sqread(fp)) {
|
---|
[f40a309] | 910 |
|
---|
| 911 | clrlsel();
|
---|
| 912 | return(FAILURE);
|
---|
| 913 | }
|
---|
| 914 |
|
---|
| 915 | fclose(fp);
|
---|
| 916 | postio(); /* restore LCD backlight */
|
---|
| 917 | clrlsel();
|
---|
| 918 | return(SUCCESS);
|
---|
[7258c6a] | 919 | }
|
---|
[f40a309] | 920 |
|
---|
| 921 | /* |
---|
| 922 |
|
---|
| 923 | */
|
---|
| 924 |
|
---|
| 925 | /*
|
---|
| 926 | =============================================================================
|
---|
| 927 | wrt_wav() -- write a waveshape library on the disk
|
---|
| 928 | =============================================================================
|
---|
| 929 | */
|
---|
| 930 |
|
---|
| 931 | int16_t wrt_wav(int16_t slot)
|
---|
| 932 | {
|
---|
[7258c6a] | 933 | register FILE *fp;
|
---|
| 934 | register int16_t i;
|
---|
[f40a309] | 935 | int8_t cstemp[8];
|
---|
| 936 | register struct wstbl *wp;
|
---|
| 937 |
|
---|
| 938 | preio(); /* kill LCD backlight */
|
---|
| 939 |
|
---|
| 940 | fp = fopenb(slotnam(slot, FT_WAV), "w");
|
---|
| 941 |
|
---|
| 942 | if ((FILE *)NULL EQ fp) {
|
---|
| 943 |
|
---|
| 944 | ldermsg("Couldn't create a file",
|
---|
| 945 | " for the waveshapes", (int8_t *)NULL,
|
---|
| 946 | LD_EMCF, LD_EMCB);
|
---|
[7258c6a] | 947 |
|
---|
[f40a309] | 948 | postio(); /* restore LCD backlight */
|
---|
| 949 | streset();
|
---|
| 950 | return(FAILURE);
|
---|
| 951 | }
|
---|
| 952 |
|
---|
| 953 | makelh(FT_WAV); /* make header */
|
---|
| 954 |
|
---|
| 955 | for (i = 0; i < NUMWAVS; i++) {
|
---|
| 956 |
|
---|
[7258c6a] | 957 | wp = &wslib[i];
|
---|
[f40a309] | 958 |
|
---|
| 959 | lcsum += chksum(wp->offset, (int32_t)(NUMWPNT * 2));
|
---|
| 960 | lcsum += chksum(wp->harmon, (int32_t)(NUMHARM * 2));
|
---|
| 961 | }
|
---|
| 962 |
|
---|
[7258c6a] | 963 | sprintf(cstemp, "%08.8lX", lcsum);
|
---|
[f40a309] | 964 | memcpy(ldhead.l_csum, cstemp, 8);
|
---|
| 965 |
|
---|
| 966 | #if DEBUGIT
|
---|
| 967 | if (debugsw)
|
---|
| 968 | printf("wrt_wav(): hdr=[%-.56s]\n", &ldhead);
|
---|
| 969 | #endif
|
---|
| 970 |
|
---|
| 971 | /* |
---|
| 972 |
|
---|
| 973 | */
|
---|
| 974 | if (wr_ec(fp, &ldhead, (int32_t)LH_LEN)) { /* header */
|
---|
| 975 |
|
---|
| 976 | streset();
|
---|
| 977 | return(FAILURE);
|
---|
| 978 | }
|
---|
| 979 |
|
---|
| 980 | for (i = 0; i < NUMWAVS; i++) {
|
---|
| 981 |
|
---|
| 982 | wp = &wslib[i];
|
---|
| 983 |
|
---|
[7258c6a] | 984 | if (wr_ec(fp, wp->offset, (int32_t)(NUMWPNT * 2))) {
|
---|
[f40a309] | 985 |
|
---|
| 986 | streset();
|
---|
[7258c6a] | 987 | return(FAILURE);
|
---|
[f40a309] | 988 | }
|
---|
| 989 |
|
---|
| 990 | if (wr_ec(fp, wp->harmon, (int32_t)(NUMHARM * 2))) {
|
---|
| 991 |
|
---|
| 992 | streset();
|
---|
| 993 | return(FAILURE);
|
---|
| 994 | }
|
---|
| 995 | }
|
---|
| 996 |
|
---|
[7258c6a] | 997 | fclose(fp);
|
---|
[f40a309] | 998 | postio(); /* restore LCD backlight */
|
---|
| 999 | return(SUCCESS);
|
---|
| 1000 | }
|
---|
| 1001 |
|
---|
| 1002 | /* |
---|
| 1003 |
|
---|
| 1004 | */
|
---|
| 1005 |
|
---|
| 1006 | /*
|
---|
| 1007 | =============================================================================
|
---|
| 1008 | get_wav() -- read a waveshape library from the disk
|
---|
| 1009 | =============================================================================
|
---|
| 1010 | */
|
---|
| 1011 |
|
---|
[7258c6a] | 1012 | int16_t get_wav(void)
|
---|
[f40a309] | 1013 | {
|
---|
| 1014 | register FILE *fp;
|
---|
| 1015 | register int16_t i;
|
---|
| 1016 | register struct wstbl *wp;
|
---|
| 1017 |
|
---|
| 1018 | preio(); /* kill LCD backlight */
|
---|
| 1019 |
|
---|
| 1020 | fp = fopenb(slotnam(ldslot, FT_WAV), "r");
|
---|
| 1021 |
|
---|
| 1022 | if ((FILE *)NULL EQ fp) {
|
---|
| 1023 |
|
---|
| 1024 | ldermsg("Couldn't open the file",
|
---|
| 1025 | " for the waveshapes", (int8_t *)NULL,
|
---|
| 1026 | LD_EMCF, LD_EMCB);
|
---|
| 1027 |
|
---|
[7258c6a] | 1028 | postio(); /* restore LCD backlight */
|
---|
[f40a309] | 1029 | clrlsel();
|
---|
| 1030 | return(FAILURE);
|
---|
| 1031 | }
|
---|
| 1032 |
|
---|
| 1033 | memcpy(ldfile, " ", 8);
|
---|
[7258c6a] | 1034 | memcpy(ldcmnt, " ", 37);
|
---|
[f40a309] | 1035 | ldswin(3);
|
---|
| 1036 | ldswin(5);
|
---|
| 1037 |
|
---|
| 1038 | /* |
---|
| 1039 |
|
---|
| 1040 | */
|
---|
| 1041 | if (rd_ec(fp, &ldhead, (int32_t)LH_LEN)) { /* header */
|
---|
| 1042 |
|
---|
| 1043 | clrlsel();
|
---|
| 1044 | return(FAILURE);
|
---|
| 1045 | }
|
---|
| 1046 |
|
---|
| 1047 | #if DEBUGIT
|
---|
| 1048 | if (debugsw)
|
---|
| 1049 | printf("get_wav(): hdr=[%-.56s]\n", &ldhead);
|
---|
| 1050 | #endif
|
---|
[6262b5c] | 1051 |
|
---|
| 1052 |
|
---|
| 1053 | for (i = 0; i < NUMWAVS; i++) {
|
---|
| 1054 |
|
---|
| 1055 | wp = &wslib[i];
|
---|
| 1056 |
|
---|
| 1057 | if (rd_ec(fp, wp->offset, (int32_t)(NUMWPNT * 2))) {
|
---|
| 1058 |
|
---|
| 1059 | clrlsel();
|
---|
| 1060 | return(FAILURE);
|
---|
| 1061 | }
|
---|
| 1062 |
|
---|
| 1063 | if (rd_ec(fp, wp->harmon, (int32_t)(NUMHARM * 2))) {
|
---|
| 1064 |
|
---|
| 1065 | clrlsel();
|
---|
| 1066 | return(FAILURE);
|
---|
| 1067 | }
|
---|
| 1068 |
|
---|
| 1069 | /* unpack offsets (and eventually harmonics) into finals */
|
---|
| 1070 |
|
---|
| 1071 | memcpyw(wp->final, wp->offset, NUMWPNT);
|
---|
| 1072 | }
|
---|
| 1073 |
|
---|
| 1074 | clrlsel();
|
---|
| 1075 | fclose(fp);
|
---|
| 1076 | postio(); /* restore LCD backlight */
|
---|
| 1077 | return(SUCCESS);
|
---|
| 1078 | }
|
---|
| 1079 |
|
---|
| 1080 |
|
---|