- Timestamp:
- 07/09/2017 12:23:40 AM (7 years ago)
- Branches:
- master
- Children:
- 6dd74a9
- Parents:
- 0c834c5
- Location:
- ram
- Files:
-
- 30 edited
Legend:
- Unmodified
- Added
- Removed
-
ram/adfield.c
r0c834c5 r60288f5 19 19 extern void select(void); 20 20 extern short whatbox(void); 21 extern short nokey(void); 21 extern void nokey(void); 22 extern short nonf(short k); 22 23 extern short stdctp4(void); 23 24 extern void cxkstd(void); 24 25 extern void cykstd(void); 25 26 extern void stdmkey(void); 26 extern void stddkey( void);27 28 extern short et_null( void);29 extern short ef_null( void);30 extern short rd_null( void);31 extern short nd_null( void);27 extern void stddkey(short k); 28 29 extern short et_null(short n); 30 extern short ef_null(short n); 31 extern short rd_null(short n); 32 extern short nd_null(short n, short k); 32 33 extern short et_atab(short n); 33 34 extern short ef_atab(short n); … … 134 135 void adcxupd(void); 135 136 void adcyupd(void); 136 short ad_xkey(short nn);137 void ad_xkey(void); 137 138 138 139 /* … … 282 283 stdmkey, /* m_key */ 283 284 stddkey, /* d_key */ 284 no key, /* not_fld */285 nonf, /* not_fld */ 285 286 ad_fet1, /* curfet */ 286 287 adboxes, /* csbp */ … … 362 363 */ 363 364 364 short ad_xkey(short nn)365 void ad_xkey(void) 365 366 { 366 367 register short row, col, grp, i; … … 382 383 asgmod = TRUE; 383 384 adswin(0); 384 return (SUCCESS);385 return; /* SUCCESS */ 385 386 386 387 } else 387 return (FAILURE);388 return; /* FAILURE */ 388 389 case 2: /* MIDI output port */ 389 390 … … 393 394 adswin(hitbox); 394 395 modasg(); 395 return (SUCCESS);396 return; /* SUCCESS */ 396 397 } 397 398 … … 411 412 adswin(hitbox); 412 413 modasg(); 413 return (SUCCESS);414 return; /* SUCCESS */ 414 415 415 416 } else if ((col GE 19) AND (col LE 22)) { … … 419 420 adswin(hitbox); 420 421 modasg(); 421 return (SUCCESS);422 return; /* SUCCESS */ 422 423 } 423 424 … … 434 435 adswin(hitbox); 435 436 modasg(); 436 return (SUCCESS);437 return; /* SUCCESS */ 437 438 } 438 439 … … 459 460 drawk2g(grp); 460 461 modasg(); 461 return (SUCCESS);462 return; /* SUCCESS */ 462 463 463 464 } else if ((col EQ 48) OR (col EQ 49)) { … … 469 470 adswin(hitbox); 470 471 modasg(); 471 return (SUCCESS);472 return; /* SUCCESS */ 472 473 /* 473 474 … … 486 487 drawk2g(grp); 487 488 modasg(); 488 return (SUCCESS);489 return; /* SUCCESS */ 489 490 490 491 } else if ((col EQ 61) OR (col EQ 62)) { … … 496 497 adswin(hitbox); 497 498 modasg(); 498 return (SUCCESS);499 return; /* SUCCESS */ 499 500 } 500 501 … … 504 505 } 505 506 506 return (FAILURE);507 return; /* FAILURE */ 507 508 } 508 509 -
ram/adselbx.c
r0c834c5 r60288f5 25 25 #define ATDECOL 1 /* data entry base column */ 26 26 27 extern void enterit(void);27 extern short entbh(short n); 28 28 extern void adswin(short n); 29 29 extern void advacur(void); 30 30 extern void bspacur(void); 31 extern shortnokey(void);31 extern void nokey(void); 32 32 extern void vtdisp(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf); 33 33 extern void adpoint(short x, short y, short pen); … … 70 70 71 71 short bx_null(void); 72 voidadfnbox(short n);72 short adfnbox(short n); 73 73 74 74 /* … … 80 80 { 1, 0, 94, 27, 0, adfnbox}, /* 0: curasg, caname */ 81 81 { 1, 28, 94, 40, 1, adfnbox}, /* 1: asgtab[curasg] */ 82 { 1, 56, 94, 68, 2, ent erit}, /* 2: curmop */83 { 1, 42, 94, 54, 3, ent erit}, /* 3: prgchan */84 { 96, 1, 190, 138, 4, ent erit}, /* 4: vce2grp[voice] */82 { 1, 56, 94, 68, 2, entbh}, /* 2: curmop */ 83 { 1, 42, 94, 54, 3, entbh}, /* 3: prgchan */ 84 { 96, 1, 190, 138, 4, entbh}, /* 4: vce2grp[voice] */ 85 85 {192, 1, 302, 138, 5, adfnbox}, /* 5: mctlnum[srcvar] */ 86 86 {304, 1, 510, 138, 6, adfnbox}, /* 6: grp2prt[group][pt|ch] */ … … 88 88 { 1, 70, 38, 82, 8, adfnbox}, /* 8: auxctl */ 89 89 { 40, 70, 94, 82, 9, adfnbox}, /* 9: curtun */ 90 { 1, 84, 94, 138, 10, ent erit}, /* 10: ps_intn, ps_rate, ps_dpth */90 { 1, 84, 94, 138, 10, entbh}, /* 10: ps_intn, ps_rate, ps_dpth */ 91 91 92 92 { 0, 0, 0, 0, 0, FN_NULL} /* end of table */ … … 207 207 */ 208 208 209 voidadfnbox(short n)209 short adfnbox(short n) 210 210 { 211 211 register short i, grp, key, line; … … 242 242 } 243 243 244 return ;244 return(SUCCESS); 245 245 246 246 } else { /* table */ 247 247 248 enterit(); /* data entry */ 249 return; 248 return(entbh(-1)); /* data entry */ 250 249 } 251 250 } … … 303 302 } 304 303 305 return ;304 return(SUCCESS); 306 305 /* 307 306 … … 316 315 putasg(curasg); 317 316 adswin(0); 318 return ;317 return(SUCCESS); 319 318 320 319 } else if ((col GE 6) AND (col LE 10)) { /* retrieve */ … … 322 321 getasg(curasg); 323 322 awins(); 324 return ;323 return(SUCCESS); 325 324 } 326 325 … … 330 329 331 330 if ((row LT 5) OR (row GT 8)) 332 return ;331 return(FAILURE); 333 332 334 333 mctlnum[row - 5] ^= GTAG1; … … 345 344 row, adbox[n][7], bfs, 14); 346 345 347 return ;346 return(SUCCESS); 348 347 349 348 } else { 350 349 351 enterit(); 352 return; 350 return(entbh(-1)); 353 351 } 354 352 /* … … 367 365 admenu(-1); /* take down menu */ 368 366 369 return ;367 return(SUCCESS); 370 368 371 369 } else if (col EQ 39) { /* groups 1..6 */ 372 370 373 371 if ((row LT 4) OR (row GT 9)) 374 return ;372 return(FAILURE); 375 373 376 374 /* toggle "legato" mode */ … … 390 388 row, col, bfs, 14); 391 389 392 return ;390 return(SUCCESS); 393 391 /* 394 392 … … 415 413 row, col, bfs, 14); 416 414 417 return ;415 return(SUCCESS); 418 416 419 417 } else { 420 418 421 enterit(); /* data entry */ 422 return; 419 return(entbh(-1)); /* data entry */ 423 420 } 424 421 /* … … 428 425 429 426 if (admctl NE -1) 430 return ;427 return(FAILURE); 431 428 432 429 if (asghit) { … … 446 443 447 444 if (key-- EQ 0) 448 return ;445 return(FAILURE); 449 446 450 447 if (key LT asgfks) { … … 487 484 488 485 asghit = 0; 489 return ;486 return(FAILURE); 490 487 } 491 488 … … 501 498 502 499 asghit = 0; 503 return ;500 return(FAILURE); 504 501 } 505 502 … … 512 509 } 513 510 514 return ;511 return(SUCCESS); 515 512 516 513 case 8: /* aux ctl */ … … 518 515 setaux(NOT auxctl); 519 516 adswin(8); 520 return ;517 return(SUCCESS); 521 518 522 519 case 9: /* tuning menu */ … … 529 526 admenu(-1); /* take down menu */ 530 527 531 return ;528 return(SUCCESS); 532 529 533 530 } else { 534 531 535 enterit(); /* data entry */ 536 return; 532 return(entbh(-1)); /* data entry */ 537 533 } 538 534 } 535 536 return(FAILURE); 539 537 } 540 -
ram/curset.c
r0c834c5 r60288f5 44 44 extern void (*cy_key)(void); 45 45 extern void (*cy_upd)(void); 46 extern void (*d_key)( void);46 extern void (*d_key)(short k); 47 47 extern void (*e_key)(void); 48 48 extern void (*m_key)(void); 49 extern void(*not_fld)(short k);49 extern short (*not_fld)(short k); 50 50 extern void (*premove)(void); 51 51 extern void (*pstmove)(void); -
ram/enterit.c
r0c834c5 r60288f5 42 42 extern void (*xy_up)(void); 43 43 extern void (*xy_dn)(void); 44 extern void(*not_fld)(short k);44 extern short (*not_fld)(short k); 45 45 extern void (*x_key)(void); 46 46 extern void (*e_key)(void); 47 47 extern void (*m_key)(void); 48 extern void (*d_key)( void);48 extern void (*d_key)(short k); 49 49 extern void (*premove)(void); 50 50 extern void (*pstmove)(void); … … 120 120 */ 121 121 122 short nokey(void) 123 { 124 return(FALSE); 122 void nokey(void) 123 { 124 } 125 126 /* 127 128 */ 129 130 /* 131 ============================================================================= 132 nodkey() -- null d_key function 133 ============================================================================= 134 */ 135 136 void nodkey(short k) 137 { 138 } 139 140 /* 141 142 */ 143 144 /* 145 ============================================================================= 146 nonf() -- null non_fld function 147 ============================================================================= 148 */ 149 150 short nonf(short k) 151 { 152 return(SUCCESS); 153 } 154 155 /* 156 157 */ 158 159 /* 160 ============================================================================= 161 entbh() -- data entry box-hit function 162 ============================================================================= 163 */ 164 165 short entbh(short n) 166 { 167 enterit(); 168 return(SUCCESS); 125 169 } 126 170 … … 504 548 */ 505 549 506 void stddkey( void)550 void stddkey(short k) 507 551 { 508 552 if (infield(stcrow, stccol, curfet)) { -
ram/etiact.c
r0c834c5 r60288f5 205 205 */ 206 206 207 voidrd_iact(short nn)207 short rd_iact(short nn) 208 208 { 209 209 register short pnt, par, n; … … 282 282 vcputsv(instob, 64, idbox[n][4], idbox[n][5], 283 283 idbox[n][6] + 1, idbox[n][7], s1, 14); 284 285 return(SUCCESS); 284 286 } 285 287 -
ram/etscor.c
r0c834c5 r60288f5 31 31 */ 32 32 33 short et_scor( void)33 short et_scor(short n) 34 34 { 35 35 sprintf(ebuf, "%02.2d", curscor + 1); … … 49 49 */ 50 50 51 short ef_scor( void)51 short ef_scor(short n) 52 52 { 53 53 register short ival; … … 78 78 */ 79 79 80 short rd_scor( void)80 short rd_scor(short n) 81 81 { 82 82 sprintf(dspbuf, "%02.2d", curscor + 1); -
ram/etstrn.c
r0c834c5 r60288f5 35 35 */ 36 36 37 short et_strn( void)37 short et_strn(short n) 38 38 { 39 39 sprintf(ebuf, "%c%02d", grptran < 0 ? '-' : '+', abs(grptran)); … … 54 54 */ 55 55 56 short ef_strn( void)56 short ef_strn(short n) 57 57 { 58 58 register short ival; … … 77 77 */ 78 78 79 short rd_strn( void)79 short rd_strn(short n) 80 80 { 81 81 sprintf(dspbuf, "%c%02d", grptran < 0 ? '-' : '+', abs(grptran)); -
ram/idfield.c
r0c834c5 r60288f5 20 20 extern void select(void); 21 21 extern void stdmkey(void); 22 extern void stddkey( void);23 extern shortnokey(void);22 extern void stddkey(short k); 23 extern void nokey(void); 24 24 extern void cxkstd(void); 25 25 extern void cykstd(void); … … 36 36 extern void showpt(short q); 37 37 38 extern short et_null( void);39 extern short ef_null( void);40 extern short rd_null( void);41 extern short nd_null( void);38 extern short et_null(short n); 39 extern short ef_null(short n); 40 extern short rd_null(short n); 41 extern short nd_null(short n, short k); 42 42 extern short et_ipnt(short n); 43 43 extern short ef_ipnt(short n); … … 70 70 extern short et_iact(short nn); 71 71 extern short ef_iact(short nn); 72 extern voidrd_iact(short nn);72 extern short rd_iact(short nn); 73 73 extern short nd_iact(short nn, short k); 74 74 extern short et_iwsn(short nn); -
ram/idselbx.c
r0c834c5 r60288f5 21 21 extern void tsplot4(int *obase, int nw, int fg, int row, int col, char *str, int pitch); 22 22 extern void vbfill4(unsigned *obj, short obwidth, short xmin, short ymin, short xmax, short ymax, unsigned color); 23 extern void enterit(void);23 extern short entbh(short n); 24 24 extern void vtdisp(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf); 25 25 extern void advicur(void); … … 65 65 66 66 short bx_null(void); 67 voididfnbox(short n);67 short idfnbox(short n); 68 68 69 69 /* … … 89 89 { 1, 56, 509, 208, 12, idfnbox}, /* 12: Level */ 90 90 91 { 1, 210, 110, 236, 0x0000, ent erit}, /* 13: Source- Mlt */92 {112, 210, 142, 236, 0x0000, ent erit}, /* 14: Pt */93 {144, 210, 206, 236, 0x0000, ent erit}, /* 15: Time */94 {208, 210, 366, 236, 0x0000, ent erit}, /* 16: Value */95 {368, 210, 509, 236, 0x0000, ent erit}, /* 17: Action */91 { 1, 210, 110, 236, 0x0000, entbh}, /* 13: Source- Mlt */ 92 {112, 210, 142, 236, 0x0000, entbh}, /* 14: Pt */ 93 {144, 210, 206, 236, 0x0000, entbh}, /* 15: Time */ 94 {208, 210, 366, 236, 0x0000, entbh}, /* 16: Value */ 95 {368, 210, 509, 236, 0x0000, entbh}, /* 17: Action */ 96 96 97 97 { 1, 238, 131, 348, 0x0000, idfnbox}, /* 18: Algorithm */ 98 98 {133, 238, 267, 251, 0x0000, idfnbox}, /* 19: Voice & Inst */ 99 {269, 238, 379, 306, 0x0000, ent erit}, /* 20: Oscillators */99 {269, 238, 379, 306, 0x0000, entbh}, /* 20: Oscillators */ 100 100 {381, 238, 509, 348, 0x0000, idfnbox}, /* 21: Waveshape */ 101 101 102 {133, 308, 379, 348, 0x0000, ent erit}, /* 22: Variables */102 {133, 308, 379, 348, 0x0000, entbh}, /* 22: Variables */ 103 103 104 104 {133, 252, 267, 306, 19, idfnbox}, /* 23: Name & Comments */ … … 435 435 */ 436 436 437 voididfnbox(short n)437 short idfnbox(short n) 438 438 { 439 439 register short col, i, row; … … 453 453 /* handle data entry special case for resonance in filter fn. */ 454 454 455 if ((curfunc EQ 4) AND (row EQ 5) AND (col EQ 62)) { 456 enterit(); 457 return; 458 } 455 if ((curfunc EQ 4) AND (row EQ 5) AND (col EQ 62)) 456 return(entbh(-1)); 459 457 460 458 switch (pntsv) { /* dispatch off of point select state */ … … 486 484 } 487 485 488 return ;486 return(TRUE); 489 487 490 488 } else if (hitbox EQ 18) { /* configuration */ … … 493 491 494 492 wcmenu(0); 495 return ;493 return(TRUE); 496 494 497 495 } else { 498 496 499 enterit(); 500 return; 497 return(entbh(-1)); 501 498 } 502 499 /* … … 537 534 } 538 535 539 return ;536 return(SUCCESS); 540 537 541 538 } else { 542 539 543 enterit(); /* do data entry */ 544 return; 540 return(entbh(-1)); /* do data entry */ 545 541 } 546 542 /* … … 552 548 553 549 wcmenu(1); 554 return ;550 return(TRUE); 555 551 556 552 } else { 557 553 558 enterit(); 559 return; 554 return(entbh(-1)); 560 555 } 561 556 … … 592 587 } 593 588 594 return ;589 return(TRUE); 595 590 /* 596 591 … … 622 617 623 618 setgc(ICURX, ICURY); /* put cursor in center */ 624 return ;619 return(TRUE); 625 620 } 626 } 621 622 return(FALSE); 623 } -
ram/im700.c
r0c834c5 r60288f5 46 46 extern unsigned tofpu(unsigned time); 47 47 48 extern short nokey(void); 48 extern void nokey(void); 49 extern short nonf(short k); 49 50 extern void stdmkey(void); 50 51 extern void cxkstd(void); … … 57 58 extern short blakpal[16][3]; 58 59 59 extern PFSt_prmtr[];60 extern LPF t_prmtr[]; 60 61 61 62 extern char *funcndx[256][2]; … … 92 93 */ 93 94 94 extern PFS(*oldsw)[]; /* saved swpt value */95 extern PFS(*swpt)[]; /* switch dispatch table pointer */95 extern LPF (*oldsw)[]; /* saved swpt value */ 96 extern LPF (*swpt)[]; /* switch dispatch table pointer */ 96 97 97 98 extern void (*curmove)(void); /* cursor move function */ … … 101 102 extern void (*cy_key)(void); /* y rate calculation */ 102 103 extern void (*cy_upd)(void); /* y update */ 103 extern void (*d_key)( void);/* in-field data key processor */104 extern void (*d_key)(short k); /* in-field data key processor */ 104 105 extern void (*e_key)(void); /* E key processor */ 105 106 extern void (*m_key)(void); /* M key processor */ 106 extern void(*not_fld)(short k); /* not-in-field data key processor */107 extern short (*not_fld)(short k); /* not-in-field data key processor */ 107 108 extern void (*premove)(void); /* cursor pre-move function */ 108 109 extern void (*pstmove)(void); /* cursor post-move function */ … … 876 877 d_key = nokey; 877 878 878 not_fld = no key;879 not_fld = nonf; 879 880 880 881 cx_key = cxkstd; /* setup default cursor processors */ -
ram/lcdlbls.c
r0c834c5 r60288f5 40 40 #define ROMPFN trapper /* ROMP switch table entry */ 41 41 #else 42 #define ROMPFN nokey/* ROMP switch table entry */42 #define ROMPFN l_none /* ROMP switch table entry */ 43 43 #endif 44 44 … … 50 50 extern char gain2eq(short gain); 51 51 52 extern short nokey(void);53 52 extern unsigned setsr(unsigned sr); 54 53 55 extern void (*d_key)( void);54 extern void (*d_key)(short k); 56 55 extern void (*e_key)(void); 57 56 extern void (*m_key)(void); 58 57 extern void (*x_key)(void); 59 extern void (*olddkey)( void);58 extern void (*olddkey)(short k); 60 59 extern void (*oldekey)(void); 61 60 extern void (*oldmkey)(void); … … 63 62 extern void (*point)(short x, short y, short pen); 64 63 65 extern PFS(*oldsw)[];66 extern PFS(*swpt)[];67 68 extern PFSaswtbl[14];64 extern LPF (*oldsw)[]; 65 extern LPF (*swpt)[]; 66 67 extern LPF aswtbl[14]; 69 68 70 69 extern short asig; … … 125 124 /* forward references */ 126 125 126 void l_none(short _1, short _2); 127 127 void l_prmtr(short stat, short sig); 128 128 void l_other(short stat, short sig); 129 129 void l_voice(short stat, short vce); 130 130 void l_init(short stat, short sig); 131 void l_clock(short stat );131 void l_clock(short stat, short _2); 132 132 void l_eq(short stat, short sig); 133 void trapper(short stat );134 void setlamp(s tat);135 void rpctl(short stat );136 void quiet( void);133 void trapper(short stat, short _2); 134 void setlamp(short stat, short _2); 135 void rpctl(short stat, short _2); 136 void quiet(short _1, short _2); 137 137 void l_group(short stat, short grp); 138 void l_dflt(short stat );139 void l_inst(short stat );140 void l_goto(short stat );141 void l_asgn(short stat );142 void l_adfl(short stat );143 void l_load(short stat );138 void l_dflt(short stat, short _2); 139 void l_inst(short stat, short _2); 140 void l_goto(short stat, short _2); 141 void l_asgn(short stat, short _2); 142 void l_adfl(short stat, short _2); 143 void l_load(short stat, short _2); 144 144 145 145 /* initialized stuff */ … … 248 248 */ 249 249 250 PFSt_prmtr[] = { /* switch assignments for LS_PRMTR */250 LPF t_prmtr[] = { /* switch assignments for LS_PRMTR */ 251 251 252 252 quiet, /* 0: Quiet */ … … 262 262 l_load, /* 8: Load */ 263 263 264 nokey, /* 9: -unused- */265 nokey, /* 10: -unused- */264 l_none, /* 9: -unused- */ 265 l_none, /* 10: -unused- */ 266 266 l_other, /* 11: Other */ 267 267 … … 270 270 }; 271 271 272 PFSt_voice[] = { /* switch assignments for LS_VOICE */272 LPF t_voice[] = { /* switch assignments for LS_VOICE */ 273 273 274 274 l_voice, /* 0: toggle voice status */ … … 296 296 */ 297 297 298 PFSt_other[] = { /* switch assignments for LS_OTHER */298 LPF t_other[] = { /* switch assignments for LS_OTHER */ 299 299 300 300 quiet, /* 0: Quiet */ … … 310 310 l_load, /* 8: Load */ 311 311 312 nokey, /* 9: -unused- */313 nokey, /* 10: -unused- */312 l_none, /* 9: -unused- */ 313 l_none, /* 10: -unused- */ 314 314 l_eq, /* 11: EQ */ 315 315 … … 318 318 }; 319 319 320 PFSt_eq[] = { /* switch assignments for LS_EQ */320 LPF t_eq[] = { /* switch assignments for LS_EQ */ 321 321 322 322 quiet, /* 0: Quiet */ … … 332 332 l_load, /* 8: Load */ 333 333 334 nokey, /* 9: -unused- */335 nokey, /* 10: -unused- */334 l_none, /* 9: -unused- */ 335 l_none, /* 10: -unused- */ 336 336 l_eq, /* 11: Prmtr */ 337 337 … … 344 344 */ 345 345 346 PFSt_inst[] = { /* switch assignments for LS_INST */346 LPF t_inst[] = { /* switch assignments for LS_INST */ 347 347 348 348 l_group, /* 0: toggle group status */ … … 366 366 }; 367 367 368 PFSt_libr[] = { /* switch assignments for LS_LIBR */368 LPF t_libr[] = { /* switch assignments for LS_LIBR */ 369 369 370 370 quiet, /* 0: Quiet */ … … 375 375 rpctl, /* 4: R/P */ 376 376 377 nokey, /* 5: -unused- */378 nokey, /* 6: -unused- */379 nokey, /* 7: -unused- */380 nokey, /* 8: -unused- */381 382 nokey, /* 9: -unused- */383 nokey, /* 10: -unused- */384 nokey, /* 11: -unused- */385 386 nokey, /* 12: -unused- */387 nokey/* 13: -unused- */377 l_none, /* 5: -unused- */ 378 l_none, /* 6: -unused- */ 379 l_none, /* 7: -unused- */ 380 l_none, /* 8: -unused- */ 381 382 l_none, /* 9: -unused- */ 383 l_none, /* 10: -unused- */ 384 l_none, /* 11: -unused- */ 385 386 l_none, /* 12: -unused- */ 387 l_none /* 13: -unused- */ 388 388 }; 389 389 … … 392 392 */ 393 393 394 PFSt_ngrp[] = { /* switch assignments for LS_NGRP */394 LPF t_ngrp[] = { /* switch assignments for LS_NGRP */ 395 395 396 396 quiet, /* 0: Quiet */ … … 401 401 rpctl, /* 4: R/P */ 402 402 403 nokey, /* 5: -unused- */404 nokey, /* 6: -unused- */405 nokey, /* 7: -unused- */406 nokey, /* 8: -unused- */407 408 nokey, /* 9: -unused- */409 nokey, /* 10: -unused- */410 nokey, /* 11: -unused- */411 412 nokey, /* 12: -unused- */413 nokey/* 13: -unused- */403 l_none, /* 5: -unused- */ 404 l_none, /* 6: -unused- */ 405 l_none, /* 7: -unused- */ 406 l_none, /* 8: -unused- */ 407 408 l_none, /* 9: -unused- */ 409 l_none, /* 10: -unused- */ 410 l_none, /* 11: -unused- */ 411 412 l_none, /* 12: -unused- */ 413 l_none /* 13: -unused- */ 414 414 }; 415 415 416 PFSt_load[] = { /* switch assignments for LS_LOAD */416 LPF t_load[] = { /* switch assignments for LS_LOAD */ 417 417 418 418 quiet, /* 0: Quiet */ … … 420 420 421 421 setlamp, /* 2: Lamp */ 422 nokey, /* 3: -unused- */423 nokey, /* 4: -unused- */424 425 nokey, /* 5: -unused- */426 nokey, /* 6: -unused- */427 nokey, /* 7: -unused- */422 l_none, /* 3: -unused- */ 423 l_none, /* 4: -unused- */ 424 425 l_none, /* 5: -unused- */ 426 l_none, /* 6: -unused- */ 427 l_none, /* 7: -unused- */ 428 428 l_load, /* 8: Load */ 429 429 430 nokey, /* 9: -unused- */431 nokey, /* 10: -unused- */432 nokey, /* 11: -unused- */433 434 nokey, /* 12: -unused- */435 nokey/* 13: -unused- */430 l_none, /* 9: -unused- */ 431 l_none, /* 10: -unused- */ 432 l_none, /* 11: -unused- */ 433 434 l_none, /* 12: -unused- */ 435 l_none /* 13: -unused- */ 436 436 }; 437 437 … … 442 442 /* 443 443 ============================================================================= 444 l_none() -- null function 445 ============================================================================= 446 */ 447 448 void l_none(short _1, short _2) 449 { 450 } 451 452 /* 453 454 */ 455 456 /* 457 ============================================================================= 444 458 quiet() -- quiet the instrument 445 459 ============================================================================= 446 460 */ 447 461 448 void quiet( void)462 void quiet(short _1, short _2) 449 463 { 450 464 register short vce; … … 469 483 */ 470 484 471 void rpctl(short stat )485 void rpctl(short stat, short _2) 472 486 { 473 487 if (NOT stat) … … 488 502 */ 489 503 490 void trapper(short stat )504 void trapper(short stat, short _2) 491 505 { 492 506 if (stat) … … 500 514 */ 501 515 502 void l_clock(short stat )516 void l_clock(short stat, short _2) 503 517 { 504 518 if (NOT stat) … … 588 602 */ 589 603 590 void setlamp(s tat)604 void setlamp(short stat, short _2) 591 605 { 592 606 register short oldi; … … 729 743 */ 730 744 731 void l_load(short stat )745 void l_load(short stat, short _2) 732 746 { 733 747 if (NOT stat) … … 1023 1037 */ 1024 1038 1025 void l_adfl(short stat )1039 void l_adfl(short stat, short _2) 1026 1040 { 1027 1041 if (NOT stat) … … 1041 1055 */ 1042 1056 1043 void l_asgn(short stat )1057 void l_asgn(short stat, short _2) 1044 1058 { 1045 1059 if (NOT stat) /* only do this on key closure */ … … 1114 1128 */ 1115 1129 1116 void l_inst(short stat )1130 void l_inst(short stat, short _2) 1117 1131 { 1118 1132 if (NOT stat) … … 1253 1267 */ 1254 1268 1255 void l_dflt(short stat )1269 void l_dflt(short stat, short _2) 1256 1270 { 1257 1271 if (NOT stat) … … 1271 1285 */ 1272 1286 1273 void l_goto(short stat )1287 void l_goto(short stat, short _2) 1274 1288 { 1275 1289 if (NOT stat) /* only do this on key closure */ -
ram/ldfield.c
r0c834c5 r60288f5 25 25 extern void select(void); 26 26 extern short whatbox(void); 27 extern short nokey(void); 27 extern void nokey(void); 28 extern short nonf(short k); 28 29 extern void cxkstd(void); 29 30 extern void cykstd(void); 30 31 extern void stdmkey(void); 31 extern short et_null( void);32 extern short ef_null( void);33 extern short rd_null( void);34 extern short nd_null( void);32 extern short et_null(short n); 33 extern short ef_null(short n); 34 extern short rd_null(short n); 35 extern short nd_null(short n, short k); 35 36 extern void lmwclr(void); 36 37 extern void vcputsv(int *obase, int nw, int fg, int bg, int row, int col, char *str, int pitch); … … 101 102 extern short ldmap[]; 102 103 103 extern PFS(*swpt)[];104 extern PFS(*oldsw)[];104 extern LPF (*swpt)[]; 105 extern LPF (*oldsw)[]; 105 106 106 107 extern struct selbox *csbp; … … 110 111 111 112 void ld_prmv(void); 112 shortldxkey(void);113 void ldxkey(void); 113 114 void ldmkey(void); 114 shortldkey(short k);115 void ldkey(short k); 115 116 void ldcxupd(void); 116 117 void ldcyupd(void); … … 177 178 ldmkey, /* m_key */ 178 179 ldkey, /* d_key */ 179 no key, /* not_fld */180 nonf, /* not_fld */ 180 181 ld_fet1, /* curfet */ 181 182 ldboxes, /* csbp */ … … 197 198 */ 198 199 199 shortldxkey(void)200 void ldxkey(void) 200 201 { 201 202 register char *fn; … … 204 205 205 206 if (NOT astat) /* only on key closure */ 206 return (FAILURE);207 return; /* FAILURE */ 207 208 208 209 clrerms(); … … 217 218 ldmap[slot] = -1; 218 219 dpy_scr(ldbox[1][4], slot); 219 return (SUCCESS);220 return; /* SUCCESS */ 220 221 221 222 } else 222 return (FAILURE);223 return; /* FAILURE */ 223 224 } 224 225 225 226 if (lcancel(2)) 226 return (SUCCESS);227 return; /* SUCCESS */ 227 228 228 229 if (NOT ldelsw) { /* deletion not yet selected ? */ … … 233 234 234 235 if (-1 EQ (slot = lin2slt(stcrow))) 235 return (FAILURE);236 return; /* FAILURE */ 236 237 237 238 if (ltagged) { … … 242 243 ltagged = FALSE; 243 244 showcat(); 244 return (FAILURE);245 return; /* FAILURE */ 245 246 } 246 247 … … 266 267 } 267 268 268 return (SUCCESS);269 return; /* SUCCESS */ 269 270 } 270 271 271 272 if ((stccol < 13) OR (stccol > 20)) /* name ? */ 272 return (FAILURE);273 return; /* FAILURE */ 273 274 274 275 if (-1 NE (ldslot = lin2slt(ldrow))) { … … 278 279 dslslot(ldslot, exp_c(LD_DELC), ldrow); 279 280 ldelsw = TRUE; 280 return (SUCCESS);281 return; /* SUCCESS */ 281 282 } 282 283 /* … … 293 294 memset(ldfile, ' ', 8); 294 295 ldswin(3); 295 return (SUCCESS);296 return; /* SUCCESS */ 296 297 297 298 } else if (stccol GE 27) { … … 301 302 memset(ldcmnt, ' ', 37); 302 303 ldswin(5); 303 return (SUCCESS);304 return; /* SUCCESS */ 304 305 } 305 306 } 306 307 307 return (FAILURE);308 return; /* FAILURE */ 308 309 } 309 310 … … 330 331 showsiz(); 331 332 332 return (SUCCESS);333 return; /* SUCCESS */ 333 334 } 334 335 335 336 ldelsw = FALSE; 336 337 showcat(); 337 return (SUCCESS);338 return; /* SUCCESS */ 338 339 } 339 340 } … … 501 502 */ 502 503 503 shortldkey(short k)504 void ldkey(short k) 504 505 { 505 506 register short c, col, row, slot; … … 507 508 508 509 if (NOT astat) /* only on key closure */ 509 return (FAILURE);510 return; 510 511 511 512 if (NOT catin) /* catalog must be valid */ -
ram/ldselbx.c
r0c834c5 r60288f5 39 39 extern short get_tun(void); 40 40 extern short get_wav(void); 41 extern shortnokey(void);41 extern void nokey(void); 42 42 extern short ldline(short cy); 43 43 extern short lin2slt(short line); … … 121 121 extern struct selbox *curboxp; 122 122 123 extern PFS(*swpt)[];124 extern PFS(*oldsw)[];125 extern PFSt_libr[];123 extern LPF (*swpt)[]; 124 extern LPF (*oldsw)[]; 125 extern LPF t_libr[]; 126 126 127 127 extern char bfs[]; -
ram/libdsp.c
r0c834c5 r60288f5 997 997 998 998 if (ndisp NE 0) 999 return ;999 return(FAILURE); 1000 1000 1001 1001 ldswin(0); /* fix up the title */ -
ram/m7menu.c
r0c834c5 r60288f5 42 42 extern void (*point)(short x, short y, short pen); 43 43 44 extern short nokey(void); 44 extern void nokey(void); 45 extern void nodkey(short k); 46 extern short nonf(short k); 45 47 extern void select(void); 46 48 extern void cxkstd(void); … … 253 255 select, /* e_key */ 254 256 nokey, /* m_key */ 255 no key, /* d_key */256 no key, /* not_fld */257 nodkey, /* d_key */ 258 nonf, /* not_fld */ 257 259 (struct fet *)NULL, /* curfet */ 258 260 mdboxes, /* csbp */ -
ram/msl.c
r0c834c5 r60288f5 58 58 extern void (*cx_key)(void); 59 59 extern void (*cy_key)(void); 60 extern void (*d_key)( void);60 extern void (*d_key)(short k); 61 61 extern void (*e_key)(void); 62 62 extern void (*m_key)(void); 63 63 extern void (*x_key)(void); 64 64 65 extern PFS(*swpt)[];65 extern LPF (*swpt)[]; 66 66 67 67 extern short aflag; … … 373 373 } else if ((asig GE 60) AND (asig LE 69)) { 374 374 375 (*d_key)( );375 (*d_key)(asig - 60); 376 376 377 377 /* -
ram/ptdkey.c
r0c834c5 r60288f5 559 559 */ 560 560 561 void ptdkey( void)561 void ptdkey(short k) 562 562 { 563 563 register short key, val, vg; -
ram/ptfield.c
r0c834c5 r60288f5 44 44 45 45 extern void select(void); 46 extern short nokey(void); 46 extern void nokey(void); 47 extern short nonf(short k); 47 48 extern short stdctp5(void); 48 49 extern void cxkstd(void); 49 50 extern void cykstd(void); 50 51 extern void stdmkey(void); 51 extern void stddkey( void);52 extern void stddkey(short k); 52 53 extern void stopcm(void); 53 54 extern void smxupd(void); 54 55 extern void smyupd(void); 55 56 extern void aftercm(void); 56 extern void ptdkey( void);57 extern void ptdkey(short k); 57 58 58 59 extern short astat; … … 135 136 ptmkey, /* m_key */ 136 137 ptdkey, /* d_key */ 137 no key, /* not_fld */138 nonf, /* not_fld */ 138 139 (struct fet *)NULL, /* curfet */ 139 140 ptboxes, /* csbp */ -
ram/ptselbx.c
r0c834c5 r60288f5 43 43 */ 44 44 45 extern void enterit(void);46 extern short nokey(void);47 45 extern short cnvp2c(void); 48 46 extern short dec2fr(char *s); -
ram/scfield.c
r0c834c5 r60288f5 31 31 extern short oktode(struct s_entry *ep); 32 32 extern short stdctp3(void); 33 extern void enterit(void); 34 extern void stddkey(void); 35 extern short nokey(void); 33 extern void stddkey(short k); 34 extern void nokey(void); 36 35 extern void stdmkey(void); 37 36 38 extern short et_strn( void);39 extern short ef_strn( void);40 extern short rd_strn( void);37 extern short et_strn(short n); 38 extern short ef_strn(short n); 39 extern short rd_strn(short n); 41 40 extern short nd_strn(short n, short k); 42 41 extern short et_snbt(short n); … … 96 95 extern short nd_agrp(short n, short k); 97 96 98 extern short et_scor( void);99 extern short ef_scor( void);100 extern short rd_scor( void);97 extern short et_scor(short n); 98 extern short ef_scor(short n); 99 extern short rd_scor(short n); 101 100 extern short nd_scor(short n, short k); 102 101 103 102 /* forward references */ 104 103 105 short et_null( void);106 short ef_null( void);107 short rd_null( void);108 short nd_null( void);104 short et_null(short n); 105 short ef_null(short n); 106 short rd_null(short n); 107 short nd_null(short n, short k); 109 108 void sdcxu(void); 110 109 void sdcyu(void); … … 164 163 extern short varmode[8][16]; 165 164 166 extern PFS(*swpt)[];167 extern PFS(*oldsw)[];165 extern LPF (*swpt)[]; 166 extern LPF (*oldsw)[]; 168 167 169 168 extern struct fet *cfetp; … … 341 340 */ 342 341 343 short et_null( void)342 short et_null(short n) 344 343 { 345 344 return(SUCCESS); 346 345 } 347 346 348 short ef_null( void)347 short ef_null(short n) 349 348 { 350 349 return(SUCCESS); 351 350 } 352 351 353 short rd_null( void)352 short rd_null(short n) 354 353 { 355 354 return(SUCCESS); 356 355 } 357 356 358 short nd_null( void)357 short nd_null(short n, short k) 359 358 { 360 359 return(SUCCESS); -
ram/scope.c
r0c834c5 r60288f5 28 28 char scopebf[65]; /* scope display buffer */ 29 29 30 extern short nokey(void); 30 extern short stdctp2(void); 31 extern void nokey(void); 32 extern void nodkey(short k); 33 extern short nonf(short k); 31 34 extern void stdmkey(void); 32 35 … … 48 51 struct curpak dt_flds = { 49 52 50 nokey,/* curtype */53 stdctp2, /* curtype */ 51 54 nokey, /* premove */ 52 55 nokey, /* pstmove */ … … 60 63 scptogl, /* e_key */ 61 64 stdmkey, /* m_key */ 62 no key, /* d_key */63 no key, /* not_fld */65 nodkey, /* d_key */ 66 nonf, /* not_fld */ 64 67 (struct fet *)NULL, /* curfet */ 65 68 (struct selbox *)NULL, /* csbp */ -
ram/scselbx.c
r0c834c5 r60288f5 30 30 /* functions defined elsewhere */ 31 31 32 extern void enterit(void);32 extern short entbh(short n); 33 33 extern void advscur(void); 34 34 extern short oktode(struct s_entry *ep); 35 extern shortnokey(void);35 extern void nokey(void); 36 36 37 37 /* … … 105 105 extern unsigned *obj8, *obj11; 106 106 107 extern PFS(*swpt)[];108 extern PFS(*oldsw)[];109 extern PFSt_ngrp[];107 extern LPF (*swpt)[]; 108 extern LPF (*oldsw)[]; 109 extern LPF t_ngrp[]; 110 110 111 111 extern char bfs[]; … … 116 116 /* forward references */ 117 117 118 voidsdboxfn(short n);118 short sdboxfn(short n); 119 119 void bspscur(void); 120 120 void svtdsp(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf); … … 225 225 { 0, 238, 111, 251, 4, sdboxfn}, /* 4 - Assignment */ 226 226 {112, 238, 167, 251, 5, sdboxfn}, /* 5 - Tune */ 227 {168, 238, 247, 251, 6, ent erit}, /* 6 - Tempo */228 {248, 238, 319, 251, 7, ent erit}, /* 7 - Interpolate */227 {168, 238, 247, 251, 6, entbh}, /* 6 - Tempo */ 228 {248, 238, 319, 251, 7, entbh}, /* 7 - Interpolate */ 229 229 {320, 238, 398, 251, 8, sdboxfn}, /* 8 - Stop/Next */ 230 230 {400, 238, 455, 251, 9, sdboxfn}, /* 9 - In/Out */ … … 1232 1232 */ 1233 1233 1234 voidsdboxfn(short n)1234 short sdboxfn(short n) 1235 1235 { 1236 1236 register short row, col, grp, what, i; … … 1248 1248 1249 1249 if (clkrun) /* clock can't be running */ 1250 return ;1250 return(FAILURE); 1251 1251 1252 1252 if (ac_code EQ N_SHARP) … … 1256 1256 1257 1257 sc_refr(fc_val); 1258 return ;1258 return(SUCCESS); 1259 1259 1260 1260 } else if ((col GE 2) AND (col LE 4)) { /* section menu */ 1261 1261 1262 1262 if (clkrun) /* clock can't be running */ 1263 return ;1263 return(FAILURE); 1264 1264 1265 1265 if (sdmctl EQ -1) { /* menu not up yet */ 1266 1266 1267 1267 sdmenu(4); /* put up the menu */ 1268 return ;1268 return(SUCCESS); 1269 1269 /* 1270 1270 … … 1278 1278 1279 1279 hilitop(SOP_GO); 1280 return ;1280 return(SUCCESS); 1281 1281 1282 1282 } else if ((vtccol GE 8) AND … … 1284 1284 1285 1285 hilitop(SOP_MOV); 1286 return ;1286 return(SUCCESS); 1287 1287 1288 1288 } else if ((vtccol GE 15) AND … … 1290 1290 1291 1291 hilitop(SOP_STC); 1292 return ;1292 return(SUCCESS); 1293 1293 1294 1294 } else if ((vtccol GE 24) AND … … 1301 1301 } 1302 1302 1303 return ;1303 return(SUCCESS); 1304 1304 } 1305 1305 /* … … 1312 1312 1313 1313 hilitop(SOP_BGN); 1314 return ;1314 return(SUCCESS); 1315 1315 1316 1316 } else if ((vtccol GE 8) AND … … 1318 1318 1319 1319 hilitop(SOP_CPY); 1320 return ;1320 return(SUCCESS); 1321 1321 1322 1322 } else if ((vtccol GE 15) AND … … 1324 1324 1325 1325 hilitop(SOP_DGR); 1326 return ;1326 return(SUCCESS); 1327 1327 1328 1328 } else if ((vtccol GE 24) AND … … 1335 1335 } 1336 1336 1337 return ;1337 return(SUCCESS); 1338 1338 } 1339 1339 /* … … 1346 1346 1347 1347 hilitop(SOP_END); 1348 return ;1348 return(SUCCESS); 1349 1349 1350 1350 } else if ((vtccol GE 8) AND … … 1352 1352 1353 1353 hilitop(SOP_MRG); 1354 return ;1354 return(SUCCESS); 1355 1355 1356 1356 } else if ((vtccol GE 15) AND … … 1358 1358 1359 1359 hilitop(SOP_DEV); 1360 return ;1360 return(SUCCESS); 1361 1361 } 1362 1362 … … 1370 1370 1371 1371 hilitop(SOP_GRP); 1372 return ;1372 return(SUCCESS); 1373 1373 1374 1374 } else if ((vtccol GE 15) AND … … 1376 1376 1377 1377 hilitop(SOP_RMV); 1378 return ;1378 return(SUCCESS); 1379 1379 1380 1380 } else if ((vtccol GE 28) AND … … 1387 1387 dsgtmn(gtmsel, TRUE); 1388 1388 1389 return ;1389 return(SUCCESS); 1390 1390 } 1391 1391 … … 1397 1397 secop = SOP_NUL; 1398 1398 sdmenu(-1); 1399 return ;1399 return(SUCCESS); 1400 1400 1401 1401 } else if ((vtccol GE 22) AND 1402 1402 (vtccol LE 24)) { /* Transpose */ 1403 1403 1404 enterit(); 1405 return; 1404 return(entbh(-1)); 1406 1405 } 1407 1406 } 1408 1407 } 1409 1408 1410 return; 1411 1412 } else { 1413 enterit(); 1414 return; 1415 } 1409 return(FAILURE); 1410 1411 } else 1412 return(entbh(-1)); 1416 1413 1417 1414 /* … … 1431 1428 1432 1429 dsimode(); /* update insert mode display */ 1433 return ;1430 return(SUCCESS); 1434 1431 1435 1432 case 2: /* clock control, source */ … … 1439 1436 clkset(NOT clkrun); 1440 1437 dsclk(); 1441 return ;1438 return(SUCCESS); 1442 1439 1443 1440 /* … … 1449 1446 1450 1447 sdmenu(3); 1451 return ;1448 return(SUCCESS); 1452 1449 1453 1450 } else { /* menu up */ … … 1461 1458 sdmenu(-1); 1462 1459 sdwin(2); 1463 return ;1460 return(SUCCESS); 1464 1461 } 1465 1462 … … 1472 1469 sdmenu(-1); 1473 1470 sdwin(2); 1474 return ;1471 return(SUCCESS); 1475 1472 } 1476 1473 … … 1483 1480 sdmenu(-1); 1484 1481 sdwin(2); 1485 return ;1482 return(SUCCESS); 1486 1483 } 1487 1484 } 1488 1485 } 1489 1486 1490 return ;1487 return(FAILURE); 1491 1488 /* 1492 1489 … … 1498 1495 sdmenu(2); 1499 1496 setleds(); 1500 return ;1497 return(SUCCESS); 1501 1498 1502 1499 } else { /* menu up */ … … 1512 1509 sdmenu(-1); 1513 1510 sdwin(2); 1514 return ;1511 return(SUCCESS); 1515 1512 1516 1513 } else if ((vtccol GE 9) AND … … 1522 1519 sdmenu(-1); 1523 1520 sdwin(2); 1524 return ;1521 return(SUCCESS); 1525 1522 1526 1523 } else if ((vtccol GE 17) AND … … 1533 1530 sdmenu(-1); 1534 1531 sdwin(2); 1535 return ;1532 return(SUCCESS); 1536 1533 } 1537 1534 … … 1549 1546 sdmenu(-1); 1550 1547 sdwin(2); 1551 return ;1548 return(SUCCESS); 1552 1549 1553 1550 } else if ((vtccol GE 9) AND … … 1559 1556 sdmenu(-1); 1560 1557 sdwin(2); 1561 return ;1558 return(SUCCESS); 1562 1559 } 1563 1560 /* … … 1574 1571 sdmenu(-1); 1575 1572 sdwin(2); 1576 return ;1573 return(SUCCESS); 1577 1574 1578 1575 } else if ((vtccol GE 9) AND … … 1584 1581 sdmenu(-1); 1585 1582 sdwin(2); 1586 return ;1583 return(SUCCESS); 1587 1584 } 1588 1585 } … … 1590 1587 } 1591 1588 1592 return ;1589 return(FAILURE); 1593 1590 1594 1591 /* … … 1598 1595 1599 1596 if (clkrun) /* clock can't be running */ 1600 return ;1597 return(FAILURE); 1601 1598 1602 1599 if (scmctl NE -1) … … 1607 1604 sdmenu(1); 1608 1605 noteop = NOP_NUL; 1609 return ;1606 return(SUCCESS); 1610 1607 1611 1608 } else { /* menu up - select operation */ … … 1617 1614 1618 1615 hilitnt(NOP_ACC); 1619 return ;1616 return(SUCCESS); 1620 1617 1621 1618 } else if ((vtccol GE 13) AND … … 1623 1620 1624 1621 hilitnt(NOP_MVN); 1625 return ;1622 return(SUCCESS); 1626 1623 1627 1624 } else if ((vtccol GE 25) AND … … 1629 1626 1630 1627 hilitnt(NOP_NUL); 1631 return ;1628 return(SUCCESS); 1632 1629 1633 1630 } 1634 1631 1635 return ;1632 return(FAILURE); 1636 1633 /* 1637 1634 … … 1643 1640 1644 1641 hilitnt(NOP_NAT); 1645 return ;1642 return(SUCCESS); 1646 1643 1647 1644 } else if ((vtccol GE 13) AND … … 1649 1646 1650 1647 hilitnt(NOP_MVB); 1651 return ;1648 return(SUCCESS); 1652 1649 } 1653 1650 1654 return ;1651 return(FAILURE); 1655 1652 1656 1653 } else if (vtcrow EQ 21) { … … 1660 1657 1661 1658 hilitnt(NOP_END); 1662 return ;1659 return(SUCCESS); 1663 1660 1664 1661 } else if ((vtccol GE 13) AND … … 1666 1663 1667 1664 hilitnt(NOP_MVE); 1668 return ;1665 return(SUCCESS); 1669 1666 } 1670 1667 1671 return ;1668 return(FAILURE); 1672 1669 1673 1670 } else 1674 return ;1671 return(FAILURE); 1675 1672 } 1676 1673 1677 return ;1674 return(FAILURE); 1678 1675 1679 1676 /* … … 1703 1700 } 1704 1701 1705 return ;1702 return(SUCCESS); 1706 1703 1707 1704 } else { 1708 1705 1709 enterit(); /* data entry */ 1710 return; 1706 return(entbh(-1)); /* data entry */ 1711 1707 } 1712 1708 … … 1720 1716 scmenu(-1); /* take down menu */ 1721 1717 1722 return ;1718 return(SUCCESS); 1723 1719 1724 1720 } else { 1725 1721 1726 enterit(); /* data entry */ 1727 return; 1722 return(entbh(-1)); /* data entry */ 1728 1723 } 1729 1724 /* … … 1780 1775 } 1781 1776 1782 return ;1777 return(SUCCESS); 1783 1778 1784 1779 /* … … 1837 1832 } 1838 1833 1839 return ;1834 return(SUCCESS); 1840 1835 /* 1841 1836 … … 1843 1838 case 10: /* Output */ 1844 1839 1845 return ;1840 return(SUCCESS); 1846 1841 1847 1842 case 11: /* group/ins, trans, dyn/loc, velocity */ … … 1854 1849 scmenu(-1); /* take down the menu */ 1855 1850 1856 return ;1851 return(SUCCESS); 1857 1852 1858 1853 } else if ((row EQ 21) AND (col LE 3)) { /* velocity flag */ … … 1860 1855 velflag = NOT velflag; 1861 1856 ds_vmod(); 1862 return; 1863 1864 } else { 1865 enterit(); /* inst. number */ 1866 return; 1867 } 1857 return(SUCCESS); 1858 1859 } else 1860 return(entbh(-1)); /* inst. number */ 1868 1861 1869 1862 /* … … 1887 1880 vputa(obj8, 7, i, atr); 1888 1881 1889 return ;1882 return(SUCCESS); 1890 1883 1891 1884 } else if ((row EQ 22) AND (col LE 4)) { /* r/p source */ … … 1904 1897 vputa(obj8, 6, i, atr); 1905 1898 1906 return ;1899 return(SUCCESS); 1907 1900 1908 1901 } else { 1909 1902 1910 enterit(); 1911 return; 1903 return(entbh(-1)); 1912 1904 } 1913 1905 /* … … 1923 1915 scmenu(-1); /* take down menu */ 1924 1916 1925 return ;1917 return(SUCCESS); 1926 1918 1927 1919 } else if ((col GE 10) AND (col LE 25)) { /* score name */ … … 1940 1932 } 1941 1933 1942 return; 1943 1944 } else { 1945 enterit(); 1946 return; 1947 } 1934 return(SUCCESS); 1935 1936 } else 1937 return(entbh(-1)); 1948 1938 /* 1949 1939 … … 1955 1945 recsw = FALSE; 1956 1946 dsrpmod(); 1957 return ;1947 return(SUCCESS); 1958 1948 1959 1949 } else if ((col GE 36) AND (col LE 40)) { /* Recrd */ … … 1961 1951 recsw = TRUE; 1962 1952 dsrpmod(); 1963 return ;1953 return(SUCCESS); 1964 1954 1965 1955 } else if ((col GE 42) AND (col LE 47)) { /* OvrDub */ … … 1967 1957 dubsw = NOT dubsw; 1968 1958 dsrpmod(); 1969 return ;1959 return(SUCCESS); 1970 1960 1971 1961 } else if ((col GE 49) AND (col LE 55)) { /* PunchIn */ … … 1973 1963 pchsw = NOT pchsw; 1974 1964 dsrpmod(); 1975 return ;1965 return(SUCCESS); 1976 1966 1977 1967 } 1978 1968 1979 return ;1969 return(FAILURE); 1980 1970 1981 1971 case 16: /* note display */ … … 1984 1974 donote(); 1985 1975 1986 return ;1976 return(SUCCESS); 1987 1977 } 1978 1979 return(FAILURE); 1988 1980 } 1989 -
ram/showcfg.c
r0c834c5 r60288f5 35 35 extern void enterit(void); 36 36 extern void idpoint(short x, short y, short pen); 37 extern shortnokey(void);37 extern void nokey(void); 38 38 39 39 extern short et_mcfn(short n); … … 48 48 /* forward references */ 49 49 50 voidimfnbox(short n);50 short imfnbox(short n); 51 51 52 52 /* … … 612 612 */ 613 613 614 voidimfnbox(short n)614 short imfnbox(short n) 615 615 { 616 616 register short row, col; … … 638 638 639 639 wcmenu(1); 640 return ;640 return(SUCCESS); 641 641 642 642 } else { /* data entry */ … … 648 648 modinst(); 649 649 650 return ;650 return(SUCCESS); 651 651 } 652 652 /* … … 668 668 modinst(); 669 669 670 return ;670 return(SUCCESS); 671 671 } 672 672 } 673 673 } 674 675 return(FAILURE); 674 676 } -
ram/sqdisp.c
r0c834c5 r60288f5 23 23 #endif 24 24 25 extern shortnokey(void);25 extern void nokey(void); 26 26 27 27 extern char *(*BakLine)(void); -
ram/sqdkey.c
r0c834c5 r60288f5 388 388 */ 389 389 390 void sqdkey( void)390 void sqdkey(short k) 391 391 { 392 392 register short key; -
ram/sqfield.c
r0c834c5 r60288f5 33 33 34 34 extern void select(void); 35 extern short nokey(void); 35 extern void nokey(void); 36 extern short nonf(short k); 36 37 extern short stdctp5(void); 37 38 extern void cxkstd(void); 38 39 extern void cykstd(void); 39 40 extern void stdmkey(void); 40 extern void stddkey( void);41 extern void stddkey(short k); 41 42 extern void stopsm(void); 42 43 extern void smxupd(void); … … 73 74 void sqekey(void); 74 75 void sqmkey(void); 75 void sqdkey( void);76 void sqdkey(short k); 76 77 77 78 /* … … 94 95 sqmkey, /* m_key */ 95 96 sqdkey, /* d_key */ 96 no key, /* not_fld */97 nonf, /* not_fld */ 97 98 (struct fet *)NULL, /* curfet */ 98 99 sqboxes, /* csbp */ -
ram/swinit.c
r0c834c5 r60288f5 35 35 BOOL se_chg; /* Score free list changed flag */ 36 36 37 PFS(*oldsw)[]; /* saved swpt value */38 PFS(*swpt)[]; /* switch dispatch table pointer */39 40 PFSaswtbl[14]; /* assignment switch table */37 LPF (*oldsw)[]; /* saved swpt value */ 38 LPF (*swpt)[]; /* switch dispatch table pointer */ 39 40 LPF aswtbl[14]; /* assignment switch table */ 41 41 42 42 void (*curmove)(void); /* cursor move function */ … … 46 46 void (*cy_key)(void); /* y rate calculation */ 47 47 void (*cy_upd)(void); /* y update */ 48 void (*d_key)( void);/* in-field data key processor */48 void (*d_key)(short k); /* in-field data key processor */ 49 49 void (*e_key)(void); /* E key processor */ 50 50 void (*m_key)(void); /* M key processor */ 51 51 void (*itxput)(short row, short col, char *txt, short tag); 52 52 /* instrument menu text put function */ 53 void(*not_fld)(short k); /* not-in-field data key processor */54 void (*olddkey)( void); /* saved d_key value */53 short (*not_fld)(short k); /* not-in-field data key processor */ 54 void (*olddkey)(short k); /* saved d_key value */ 55 55 void (*oldekey)(void); /* saved e_key value */ 56 56 void (*oldmkey)(void); /* saved m_key value */ -
ram/tdfield.c
r0c834c5 r60288f5 19 19 extern void select(void); 20 20 extern short whatbox(void); 21 extern short nokey(void); 21 extern void nokey(void); 22 extern short nonf(short k); 22 23 extern short stdctp0(void); 23 24 extern void cxkstd(void); 24 25 extern void cykstd(void); 25 26 extern void stdmkey(void); 26 extern void stddkey( void);27 28 extern short et_null( void);29 extern short ef_null( void);30 extern short rd_null( void);31 extern short nd_null( void);27 extern void stddkey(short k); 28 29 extern short et_null(short n); 30 extern short ef_null(short n); 31 extern short rd_null(short n); 32 extern short nd_null(short n, short k); 32 33 extern short et_ttab(short n); 33 34 extern short ef_ttab(short n); … … 260 261 stdmkey, /* m_key */ 261 262 stddkey, /* d_key */ 262 no key, /* not_fld */263 nonf, /* not_fld */ 263 264 td_fet1, /* curfet */ 264 265 tdboxes, /* csbp */ -
ram/tdselbx.c
r0c834c5 r60288f5 19 19 extern void bsptcur(void); 20 20 extern void vtdisp(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf); 21 extern shortnokey(void);21 extern void nokey(void); 22 22 23 23 extern unsigned exp_c(unsigned c); -
ram/wdselbx.c
r0c834c5 r60288f5 19 19 #include "wsdsp.h" 20 20 21 extern void enterit(void);21 extern short entbh(short n); 22 22 extern void wdswin(short n); 23 23 … … 57 57 { 1, 1, 510, 307, 0, wdfnbox}, /* 0 */ 58 58 { 1, 308, 510, 320, 1, wdfnbox}, /* 1 */ 59 { 1, 322, 174, 348, 2, ent erit}, /* 2 */59 { 1, 322, 174, 348, 2, entbh}, /* 2 */ 60 60 {176, 322, 230, 348, 3, wdfnbox}, /* 3 */ 61 {232, 322, 398, 348, 4, ent erit}, /* 4 */62 {400, 322, 510, 348, 5, ent erit}, /* 5 */61 {232, 322, 398, 348, 4, entbh}, /* 4 */ 62 {400, 322, 510, 348, 5, entbh}, /* 5 */ 63 63 64 64 { 0, 0, 0, 0, 0, FN_NULL} /* end of table */
Note:
See TracChangeset
for help on using the changeset viewer.