Changeset 0c834c5 in buchla-68k
- Timestamp:
- 07/08/2017 05:56:38 PM (8 years ago)
- Branches:
- master
- Children:
- 60288f5
- Parents:
- 342a56f
- Files:
-
- 48 edited
Legend:
- Unmodified
- Added
- Removed
-
include/curpak.h
r342a56f r0c834c5 20 20 struct curpak { 21 21 22 short (*curtype)( );23 short (*premove)();24 short (*pstmove)();25 short (*cx_key)();26 short (*cy_key)();27 short (*cx_upd)();28 short (*cy_upd)();29 short (*xy_up)();30 short (*xy_dn)();31 short (*x_key)();32 short (*e_key)();33 short (*m_key)();34 short (*d_key)();35 short (*not_fld)();22 short (*curtype)(void); 23 void (*premove)(void); 24 void (*pstmove)(void); 25 void (*cx_key)(void); 26 void (*cy_key)(void); 27 void (*cx_upd)(void); 28 void (*cy_upd)(void); 29 void (*xy_up)(void); 30 void (*xy_dn)(void); 31 void (*x_key)(void); 32 void (*e_key)(void); 33 void (*m_key)(void); 34 void (*d_key)(void); 35 void (*not_fld)(short k); 36 36 struct fet *curfet; 37 37 struct selbox *csbp; -
include/fields.h
r342a56f r0c834c5 14 14 short frcol; /* rightmost column of field */ 15 15 short ftags; /* field tags / parameters (used variously) */ 16 short (*ebto)(); /* edit buffer 'to' (setup) function */ 17 short (*ebfrom)(); /* edit buffer 'from' (parse) function */ 18 short (*redisp)(); /* field (re)display function */ 19 short (*datain)(); /* data entry function */ 16 void (*ebto)(short ftags); 17 /* edit buffer 'to' (setup) function */ 18 void (*ebfrom)(short ftags); 19 /* edit buffer 'from' (parse) function */ 20 void (*redisp)(short ftags); 21 /* field (re)display function */ 22 void (*datain)(short ftags, short asig); 23 /* data entry function */ 20 24 }; 21 25 … … 27 31 short sbymax; /* maximum y - bottom edge of box */ 28 32 short sbarg; /* select box argument */ 29 short (*boxhit)(); /* box-hit function */ 33 void (*boxhit)(short sbarg); 34 /* box-hit function */ 30 35 }; 31 36 -
libcio/blkrd.c
r342a56f r0c834c5 44 44 extern long _berrno; /* last file system bios error number */ 45 45 46 extern short_thefat[]; /* current file allocation table */46 extern unsigned _thefat[]; /* current file allocation table */ 47 47 48 48 extern struct bpb *_thebpb; /* current bios parameter block */ -
libcio/blkwr.c
r342a56f r0c834c5 32 32 extern struct bpb *_thebpb; /* current bios parameter block */ 33 33 34 extern short_thefat[]; /* current file allocation table */35 36 extern short _fatmod; /* FAT modified flag */34 extern unsigned _thefat[]; /* current file allocation table */ 35 36 extern int _fatmod; /* FAT modified flag */ 37 37 38 38 #if DEBUGIT -
libcio/clusmap.c
r342a56f r0c834c5 17 17 18 18 extern struct bpb *_thebpb; 19 extern short_thefat[];19 extern unsigned _thefat[]; 20 20 21 21 extern int _filecl(struct fcb *fp); -
libcio/write.c
r342a56f r0c834c5 28 28 extern char *memset(char *sp, char c, int n); 29 29 30 extern short _fatmod;30 extern int _fatmod; 31 31 32 32 extern unsigned _thefat[]; -
ram/adselbx.c
r342a56f r0c834c5 33 33 extern void adpoint(short x, short y, short pen); 34 34 35 extern short (*itxput)();36 extern short (*point)();35 extern void (*itxput)(short row, short col, char *txt, short tag); 36 extern void (*point)(short x, short y, short pen); 37 37 38 38 extern short admctl; … … 70 70 71 71 short bx_null(void); 72 shortadfnbox(short n);72 void adfnbox(short n); 73 73 74 74 /* … … 207 207 */ 208 208 209 shortadfnbox(short n)209 void adfnbox(short n) 210 210 { 211 211 register short i, grp, key, line; … … 242 242 } 243 243 244 return (SUCCESS);244 return; 245 245 246 246 } else { /* table */ 247 247 248 return(enterit()); /* data entry */ 248 enterit(); /* data entry */ 249 return; 249 250 } 250 251 } … … 302 303 } 303 304 304 return (SUCCESS);305 return; 305 306 /* 306 307 … … 315 316 putasg(curasg); 316 317 adswin(0); 317 return (SUCCESS);318 return; 318 319 319 320 } else if ((col GE 6) AND (col LE 10)) { /* retrieve */ … … 321 322 getasg(curasg); 322 323 awins(); 323 return (SUCCESS);324 return; 324 325 } 325 326 … … 329 330 330 331 if ((row LT 5) OR (row GT 8)) 331 return (FAILURE);332 return; 332 333 333 334 mctlnum[row - 5] ^= GTAG1; … … 344 345 row, adbox[n][7], bfs, 14); 345 346 346 return (SUCCESS);347 return; 347 348 348 349 } else { 349 350 350 return(enterit()); 351 enterit(); 352 return; 351 353 } 352 354 /* … … 365 367 admenu(-1); /* take down menu */ 366 368 367 return (SUCCESS);369 return; 368 370 369 371 } else if (col EQ 39) { /* groups 1..6 */ 370 372 371 373 if ((row LT 4) OR (row GT 9)) 372 return (FAILURE);374 return; 373 375 374 376 /* toggle "legato" mode */ … … 388 390 row, col, bfs, 14); 389 391 390 return (SUCCESS);392 return; 391 393 /* 392 394 … … 413 415 row, col, bfs, 14); 414 416 415 return (SUCCESS);417 return; 416 418 417 419 } else { 418 420 419 return(enterit()); /* data entry */ 421 enterit(); /* data entry */ 422 return; 420 423 } 421 424 /* … … 425 428 426 429 if (admctl NE -1) 427 return (FAILURE);430 return; 428 431 429 432 if (asghit) { … … 443 446 444 447 if (key-- EQ 0) 445 return (FAILURE);448 return; 446 449 447 450 if (key LT asgfks) { … … 484 487 485 488 asghit = 0; 486 return (FAILURE);489 return; 487 490 } 488 491 … … 498 501 499 502 asghit = 0; 500 return (FAILURE);503 return; 501 504 } 502 505 … … 509 512 } 510 513 511 return (SUCCESS);514 return; 512 515 513 516 case 8: /* aux ctl */ … … 515 518 setaux(NOT auxctl); 516 519 adswin(8); 517 return (SUCCESS);520 return; 518 521 519 522 case 9: /* tuning menu */ … … 526 529 admenu(-1); /* take down menu */ 527 530 528 return (SUCCESS);531 return; 529 532 530 533 } else { 531 534 532 return(enterit()); /* data entry */ 535 enterit(); /* data entry */ 536 return; 533 537 } 534 538 } 535 536 return(FAILURE);537 539 } 540 -
ram/asgdsp.c
r342a56f r0c834c5 60 60 /* things defined elsewhere */ 61 61 62 extern int (*point)();62 extern void (*point)(short x, short y, short pen); 63 63 extern unsigned exp_c(unsigned c); 64 64 -
ram/curset.c
r342a56f r0c834c5 38 38 extern void cmvgen(void); 39 39 40 extern short (*curmove)();41 extern short (*curtype)( );42 extern short (*cx_key)();43 extern short (*cx_upd)();44 extern short (*cy_key)();45 extern short (*cy_upd)();46 extern short (*d_key)();47 extern short (*e_key)();48 extern short (*m_key)();49 extern short (*not_fld)();50 extern short (*premove)();51 extern short (*pstmove)();52 extern short (*x_key)();53 extern short (*xy_dn)();54 extern short (*xy_up)();40 extern void (*curmove)(void); 41 extern short (*curtype)(void); 42 extern void (*cx_key)(void); 43 extern void (*cx_upd)(void); 44 extern void (*cy_key)(void); 45 extern void (*cy_upd)(void); 46 extern void (*d_key)(void); 47 extern void (*e_key)(void); 48 extern void (*m_key)(void); 49 extern void (*not_fld)(short k); 50 extern void (*premove)(void); 51 extern void (*pstmove)(void); 52 extern void (*x_key)(void); 53 extern void (*xy_dn)(void); 54 extern void (*xy_up)(void); 55 55 56 56 extern short *cratex; -
ram/enterit.c
r342a56f r0c834c5 36 36 #endif 37 37 38 extern short (*cx_key)(), (*cy_key)(), (*cx_upd)(), (*cy_upd)(); 39 extern short (*xy_up)(), (*xy_dn)(), (*not_fld)(); 40 extern short (*x_key)(), (*e_key)(), (*m_key)(), (*d_key)(); 41 extern short (*premove)(), (*pstmove)(), (*curtype)(); 38 extern void (*cx_key)(void); 39 extern void (*cy_key)(void); 40 extern void (*cx_upd)(void); 41 extern void (*cy_upd)(void); 42 extern void (*xy_up)(void); 43 extern void (*xy_dn)(void); 44 extern void (*not_fld)(short k); 45 extern void (*x_key)(void); 46 extern void (*e_key)(void); 47 extern void (*m_key)(void); 48 extern void (*d_key)(void); 49 extern void (*premove)(void); 50 extern void (*pstmove)(void); 51 extern short (*curtype)(void); 42 52 43 53 extern short *cratex; -
ram/etadyn.c
r342a56f r0c834c5 34 34 extern short dyntab[]; 35 35 36 extern unsignedexpbit[];36 extern short expbit[]; 37 37 38 38 extern short adbox[][8]; -
ram/etatab.c
r342a56f r0c834c5 18 18 extern void adpoint(short x, short y, short pen); 19 19 20 extern short (*point)();20 extern void (*point)(short x, short y, short pen); 21 21 22 22 extern unsigned *asgob; -
ram/etloc.c
r342a56f r0c834c5 37 37 extern short vce2grp[]; 38 38 39 extern unsignedexpbit[];39 extern short expbit[]; 40 40 41 41 extern struct gdsel *gdstbc[]; -
ram/idfield.c
r342a56f r0c834c5 99 99 extern short vtxval, vtyval; 100 100 101 extern unsignedtemax, temin;101 extern short temax, temin; 102 102 103 103 extern short *cratex, *cratey, crate0[], crate1[]; -
ram/idselbx.c
r342a56f r0c834c5 15 15 #include "instdsp.h" 16 16 17 extern short (*itxput)();17 extern void (*itxput)(short row, short col, char *txt, short tag); 18 18 19 19 extern void lseg(short x1, short y1, short x2, short y2, short t); … … 43 43 extern short pntsv, pecase, stccol, subj, submenu; 44 44 45 extern unsignedtemin, temax;45 extern short temin, temax; 46 46 47 47 extern struct selbox *csbp, *curboxp; … … 65 65 66 66 short bx_null(void); 67 shortidfnbox(short n);67 void idfnbox(short n); 68 68 69 69 /* … … 435 435 */ 436 436 437 shortidfnbox(short n)437 void 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 return(enterit()); 455 if ((curfunc EQ 4) AND (row EQ 5) AND (col EQ 62)) { 456 enterit(); 457 return; 458 } 457 459 458 460 switch (pntsv) { /* dispatch off of point select state */ … … 484 486 } 485 487 486 return (TRUE);488 return; 487 489 488 490 } else if (hitbox EQ 18) { /* configuration */ … … 491 493 492 494 wcmenu(0); 493 return (TRUE);495 return; 494 496 495 497 } else { 496 498 497 return(enterit()); 499 enterit(); 500 return; 498 501 } 499 502 /* … … 534 537 } 535 538 536 return (SUCCESS);539 return; 537 540 538 541 } else { 539 542 540 return(enterit()); /* do data entry */ 543 enterit(); /* do data entry */ 544 return; 541 545 } 542 546 /* … … 548 552 549 553 wcmenu(1); 550 return (TRUE);554 return; 551 555 552 556 } else { 553 557 554 return(enterit()); 558 enterit(); 559 return; 555 560 } 556 561 … … 587 592 } 588 593 589 return (TRUE);594 return; 590 595 /* 591 596 … … 617 622 618 623 setgc(ICURX, ICURY); /* put cursor in center */ 619 return (TRUE);624 return; 620 625 } 621 622 return(FALSE); 623 } 626 } -
ram/im700.c
r342a56f r0c834c5 95 95 extern PFS (*swpt)[]; /* switch dispatch table pointer */ 96 96 97 extern short (*curmove)();/* cursor move function */98 extern short (*curtype)( );/* cursor type function */99 extern short (*cx_key)();/* x rate calculation */100 extern short (*cx_upd)();/* x update */101 extern short (*cy_key)();/* y rate calculation */102 extern short (*cy_upd)();/* y update */103 extern short (*d_key)(); /* in-field data key processor */104 extern short (*e_key)(); /* E key processor */105 extern short (*m_key)(); /* M key processor */106 extern short (*not_fld)();/* not-in-field data key processor */107 extern short (*premove)();/* cursor pre-move function */108 extern short (*pstmove)();/* cursor post-move function */109 extern short (*x_key)(); /* X key processor */110 extern short (*xy_dn)(); /* cursor - finger on (down) */111 extern short (*xy_up)(); /* cursor - finger off (up) */97 extern void (*curmove)(void); /* cursor move function */ 98 extern short (*curtype)(void); /* cursor type function */ 99 extern void (*cx_key)(void); /* x rate calculation */ 100 extern void (*cx_upd)(void); /* x update */ 101 extern void (*cy_key)(void); /* y rate calculation */ 102 extern void (*cy_upd)(void); /* y update */ 103 extern void (*d_key)(void); /* in-field data key processor */ 104 extern void (*e_key)(void); /* E key processor */ 105 extern void (*m_key)(void); /* M key processor */ 106 extern void (*not_fld)(short k); /* not-in-field data key processor */ 107 extern void (*premove)(void); /* cursor pre-move function */ 108 extern void (*pstmove)(void); /* cursor post-move function */ 109 extern void (*x_key)(void); /* X key processor */ 110 extern void (*xy_dn)(void); /* cursor - finger on (down) */ 111 extern void (*xy_up)(void); /* cursor - finger off (up) */ 112 112 113 113 extern short *cratex; /* cursor x rate table pointer */ … … 341 341 short vtccol; /* virtual typewriter cursor column */ 342 342 short vtcrow; /* virtual typewriter cursor row */ 343 shortvtdechr; /* virtual typewriter data entry character */343 char vtdechr; /* virtual typewriter data entry character */ 344 344 short vtdecol; /* virtual typewriter data entry column */ 345 345 short vtpcol; /* virtual typewriter column */ -
ram/instdsp.c
r342a56f r0c834c5 29 29 30 30 /* things defined elsewhere */ 31 32 extern void (*point)(short x, short y, short pen); 31 33 32 34 extern void fpuint(void); -
ram/lcdlbls.c
r342a56f r0c834c5 53 53 extern unsigned setsr(unsigned sr); 54 54 55 extern short (*d_key)();56 extern short (*e_key)();57 extern short (*m_key)();58 extern short (*x_key)();59 extern short (*olddkey)();60 extern short (*oldekey)();61 extern short (*oldmkey)();62 extern short (*oldxkey)();63 extern short (*point)();55 extern void (*d_key)(void); 56 extern void (*e_key)(void); 57 extern void (*m_key)(void); 58 extern void (*x_key)(void); 59 extern void (*olddkey)(void); 60 extern void (*oldekey)(void); 61 extern void (*oldmkey)(void); 62 extern void (*oldxkey)(void); 63 extern void (*point)(short x, short y, short pen); 64 64 65 65 extern PFS (*oldsw)[]; -
ram/ldselbx.c
r342a56f r0c834c5 66 66 #endif 67 67 68 extern short (*point)();68 extern void (*point)(short x, short y, short pen); 69 69 70 70 extern short asmode; … … 74 74 extern short cyrate; 75 75 extern short cyval; 76 extern short errno;76 extern int errno; 77 77 extern short gomode; 78 78 extern short hitcx; -
ram/libdsp.c
r342a56f r0c834c5 56 56 57 57 /* things defined elsewhere */ 58 59 extern void (*point)(short x, short y, short pen); 58 60 59 61 extern void vbfill4(unsigned *obj, short obwidth, short xmin, short ymin, short xmax, short ymax, unsigned color); … … 297 299 unsigned exp_c(unsigned c) 298 300 { 299 c x&= 0x000F; /* use low 4 bits as the basis */300 c x |= cx<< 4; /* turn them into 8 bits */301 c x |= cx<< 8; /* make it a full 16 bits */302 303 return(c x);301 c &= 0x000F; /* use low 4 bits as the basis */ 302 c |= c << 4; /* turn them into 8 bits */ 303 c |= c << 8; /* make it a full 16 bits */ 304 305 return(c); 304 306 } 305 307 -
ram/localkb.c
r342a56f r0c834c5 31 31 */ 32 32 33 extern short (*point)();33 extern void (*point)(short x, short y, short pen); 34 34 35 35 extern short ancmsw; -
ram/m7menu.c
r342a56f r0c834c5 40 40 extern struct selbox *csbp, *curboxp; 41 41 42 extern short (*point)();42 extern void (*point)(short x, short y, short pen); 43 43 44 44 extern short nokey(void); -
ram/midas.c
r342a56f r0c834c5 30 30 extern void pch_ped(short stat); 31 31 32 extern short (*foot1)(), (*foot2)(), (*pulse1)(), (*pulse2)(); 33 34 extern char *end, *etext, *edata; 32 extern void (*foot1)(short stat); 33 extern void (*foot2)(short stat); 34 extern void (*pulse1)(void); 35 extern void (*pulse2)(void); 36 37 extern char end, etext, edata; 35 38 36 39 extern short clkrun, clksrc, initcfg, ndisp, verbose; -
ram/msl.c
r342a56f r0c834c5 56 56 /* variables defined elsewhere */ 57 57 58 extern short (*cx_key)();59 extern short (*cy_key)();60 extern short (*d_key)();61 extern short (*e_key)();62 extern short (*m_key)();63 extern short (*x_key)();58 extern void (*cx_key)(void); 59 extern void (*cy_key)(void); 60 extern void (*d_key)(void); 61 extern void (*e_key)(void); 62 extern void (*m_key)(void); 63 extern void (*x_key)(void); 64 64 65 65 extern PFS (*swpt)[]; … … 117 117 */ 118 118 119 extern unsigned short*obj8;119 extern unsigned *obj8; 120 120 121 121 extern long afi; … … 373 373 } else if ((asig GE 60) AND (asig LE 69)) { 374 374 375 (*d_key)( asig - 60);375 (*d_key)(); 376 376 377 377 /* -
ram/nedacc.c
r342a56f r0c834c5 744 744 } 745 745 746 if (pix2mid( cxval, cyval)) { /* must point at a note position */746 if (pix2mid()) { /* must point at a note position */ 747 747 748 748 #if DEBUGIT -
ram/ptdisp.c
r342a56f r0c834c5 18 18 extern char *LineFwd(void); 19 19 20 extern short (*BakLine)(), (*FwdLine)(); 20 extern char *(*BakLine)(void); 21 extern char *(*FwdLine)(void); 21 22 22 23 extern unsigned short pt_alc(void); 23 24 24 extern unsigned short*obj8, *obj9, *obj10, *obj11;25 extern unsigned *obj8, *obj9, *obj10, *obj11; 25 26 extern unsigned short *LineBuf, *ScObAdr, *OldLine; 26 27 extern unsigned short LineAtr; … … 32 33 extern short cxval; 33 34 34 extern unsigned short cg3[];35 extern int cg3[][256]; 35 36 36 37 unsigned short seqflag[16]; /* sequence flags */ -
ram/ptdkey.c
r342a56f r0c834c5 45 45 extern short asig, astat; 46 46 47 extern short dpepred, dpecpos, dpesucc;47 extern unsigned short dpepred, dpecpos, dpesucc; 48 48 49 49 extern short ptegood, ptedfok, ptestok, ptedsok, ptedtok; -
ram/ptfield.c
r342a56f r0c834c5 31 31 short usevect = TRUE; 32 32 33 extern short (*cx_key)(), (*cy_key)(); 33 extern void (*cx_key)(void); 34 extern void (*cy_key)(void); 34 35 #endif 35 36 36 extern short (*xy_up)(), (*xy_dn)(); 37 extern short (*premove)(), (*pstmove)(); 38 extern short (*curtype)(); 37 extern void (*xy_up)(void); 38 extern void (*xy_dn)(void); 39 extern void (*premove)(void); 40 extern void (*pstmove)(void); 41 extern short (*curtype)(void); 39 42 40 43 extern unsigned fromfpu(unsigned fputime); -
ram/ptread.c
r342a56f r0c834c5 30 30 #endif 31 31 32 extern short dpecpos;33 extern short dpepred;34 extern short dpesucc;35 extern short errno;32 extern unsigned short dpecpos; 33 extern unsigned short dpepred; 34 extern unsigned short dpesucc; 35 extern int errno; 36 36 extern short ptecpos; 37 37 extern short ptepred; … … 446 446 if (stashp()) { /* stash the patch */ 447 447 448 nopatch( fp);448 nopatch(); 449 449 ptecpos = 0; 450 450 voidpb(); -
ram/ptselbx.c
r342a56f r0c834c5 66 66 extern short ndvals[]; 67 67 68 extern unsigned short*obj11;68 extern unsigned *obj11; 69 69 70 70 extern struct selbox *csbp; -
ram/rscript.c
r342a56f r0c834c5 8 8 extern int sqscan(char *ip); 9 9 10 extern int endflg;10 extern short endflg; 11 11 12 12 char *script0[] = { /* initialization score selection string */ -
ram/scordsp.c
r342a56f r0c834c5 38 38 /* variables defined elsewhere */ 39 39 40 extern short (*point)();40 extern void (*point)(short x, short y, short pen); 41 41 42 42 extern unsigned *obj0, *obj2, *obj3, *obj8, *obj11, *obj13, *obj14, *obj15; … … 77 77 extern char *nedlbl[]; /* note edit labels */ 78 78 79 extern short kbobj[]; /* keyboard icon */79 extern int kbobj[]; /* keyboard icon */ 80 80 81 81 extern short grpmode[]; /* group mode - 0 = play, 1 = stdby, 2 = rec */ -
ram/scread.c
r342a56f r0c834c5 20 20 extern long schksum; /* score checksum */ 21 21 22 extern short errno; /* system error number */22 extern int errno; /* system error number */ 23 23 extern short lderrsw; /* librarian error message switch */ 24 24 extern short lrasw; /* "Content" switch */ -
ram/scselbx.c
r342a56f r0c834c5 41 41 /* variables defined elsewhere */ 42 42 43 extern short (*itxput)();44 extern short (*point)();43 extern void (*itxput)(short row, short col, char *txt, short tag); 44 extern void (*point)(short x, short y, short pen); 45 45 46 46 extern short ancmsw; … … 116 116 /* forward references */ 117 117 118 shortsdboxfn(short n);118 void sdboxfn(short n); 119 119 void bspscur(void); 120 120 void svtdsp(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf); … … 1232 1232 */ 1233 1233 1234 shortsdboxfn(short n)1234 void 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 (FAILURE);1250 return; 1251 1251 1252 1252 if (ac_code EQ N_SHARP) … … 1256 1256 1257 1257 sc_refr(fc_val); 1258 return (SUCCESS);1258 return; 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 (FAILURE);1263 return; 1264 1264 1265 1265 if (sdmctl EQ -1) { /* menu not up yet */ 1266 1266 1267 1267 sdmenu(4); /* put up the menu */ 1268 return (SUCCESS);1268 return; 1269 1269 /* 1270 1270 … … 1278 1278 1279 1279 hilitop(SOP_GO); 1280 return (SUCCESS);1280 return; 1281 1281 1282 1282 } else if ((vtccol GE 8) AND … … 1284 1284 1285 1285 hilitop(SOP_MOV); 1286 return (SUCCESS);1286 return; 1287 1287 1288 1288 } else if ((vtccol GE 15) AND … … 1290 1290 1291 1291 hilitop(SOP_STC); 1292 return (SUCCESS);1292 return; 1293 1293 1294 1294 } else if ((vtccol GE 24) AND … … 1301 1301 } 1302 1302 1303 return (SUCCESS);1303 return; 1304 1304 } 1305 1305 /* … … 1312 1312 1313 1313 hilitop(SOP_BGN); 1314 return (SUCCESS);1314 return; 1315 1315 1316 1316 } else if ((vtccol GE 8) AND … … 1318 1318 1319 1319 hilitop(SOP_CPY); 1320 return (SUCCESS);1320 return; 1321 1321 1322 1322 } else if ((vtccol GE 15) AND … … 1324 1324 1325 1325 hilitop(SOP_DGR); 1326 return (SUCCESS);1326 return; 1327 1327 1328 1328 } else if ((vtccol GE 24) AND … … 1335 1335 } 1336 1336 1337 return (SUCCESS);1337 return; 1338 1338 } 1339 1339 /* … … 1346 1346 1347 1347 hilitop(SOP_END); 1348 return (SUCCESS);1348 return; 1349 1349 1350 1350 } else if ((vtccol GE 8) AND … … 1352 1352 1353 1353 hilitop(SOP_MRG); 1354 return (SUCCESS);1354 return; 1355 1355 1356 1356 } else if ((vtccol GE 15) AND … … 1358 1358 1359 1359 hilitop(SOP_DEV); 1360 return (SUCCESS);1360 return; 1361 1361 } 1362 1362 … … 1370 1370 1371 1371 hilitop(SOP_GRP); 1372 return (SUCCESS);1372 return; 1373 1373 1374 1374 } else if ((vtccol GE 15) AND … … 1376 1376 1377 1377 hilitop(SOP_RMV); 1378 return (SUCCESS);1378 return; 1379 1379 1380 1380 } else if ((vtccol GE 28) AND … … 1387 1387 dsgtmn(gtmsel, TRUE); 1388 1388 1389 return (SUCCESS);1389 return; 1390 1390 } 1391 1391 … … 1397 1397 secop = SOP_NUL; 1398 1398 sdmenu(-1); 1399 return (SUCCESS);1399 return; 1400 1400 1401 1401 } else if ((vtccol GE 22) AND 1402 1402 (vtccol LE 24)) { /* Transpose */ 1403 1403 1404 return(enterit()); 1404 enterit(); 1405 return; 1405 1406 } 1406 1407 } 1407 1408 } 1408 1409 1409 return(FAILURE); 1410 1411 } else 1412 return(enterit()); 1410 return; 1411 1412 } else { 1413 enterit(); 1414 return; 1415 } 1413 1416 1414 1417 /* … … 1428 1431 1429 1432 dsimode(); /* update insert mode display */ 1430 return (SUCCESS);1433 return; 1431 1434 1432 1435 case 2: /* clock control, source */ … … 1436 1439 clkset(NOT clkrun); 1437 1440 dsclk(); 1438 return (SUCCESS);1441 return; 1439 1442 1440 1443 /* … … 1446 1449 1447 1450 sdmenu(3); 1448 return (SUCCESS);1451 return; 1449 1452 1450 1453 } else { /* menu up */ … … 1458 1461 sdmenu(-1); 1459 1462 sdwin(2); 1460 return (SUCCESS);1463 return; 1461 1464 } 1462 1465 … … 1469 1472 sdmenu(-1); 1470 1473 sdwin(2); 1471 return (SUCCESS);1474 return; 1472 1475 } 1473 1476 … … 1480 1483 sdmenu(-1); 1481 1484 sdwin(2); 1482 return (SUCCESS);1485 return; 1483 1486 } 1484 1487 } 1485 1488 } 1486 1489 1487 return (FAILURE);1490 return; 1488 1491 /* 1489 1492 … … 1495 1498 sdmenu(2); 1496 1499 setleds(); 1497 return (SUCCESS);1500 return; 1498 1501 1499 1502 } else { /* menu up */ … … 1509 1512 sdmenu(-1); 1510 1513 sdwin(2); 1511 return (SUCCESS);1514 return; 1512 1515 1513 1516 } else if ((vtccol GE 9) AND … … 1519 1522 sdmenu(-1); 1520 1523 sdwin(2); 1521 return (SUCCESS);1524 return; 1522 1525 1523 1526 } else if ((vtccol GE 17) AND … … 1530 1533 sdmenu(-1); 1531 1534 sdwin(2); 1532 return (SUCCESS);1535 return; 1533 1536 } 1534 1537 … … 1546 1549 sdmenu(-1); 1547 1550 sdwin(2); 1548 return (SUCCESS);1551 return; 1549 1552 1550 1553 } else if ((vtccol GE 9) AND … … 1556 1559 sdmenu(-1); 1557 1560 sdwin(2); 1558 return (SUCCESS);1561 return; 1559 1562 } 1560 1563 /* … … 1571 1574 sdmenu(-1); 1572 1575 sdwin(2); 1573 return (SUCCESS);1576 return; 1574 1577 1575 1578 } else if ((vtccol GE 9) AND … … 1581 1584 sdmenu(-1); 1582 1585 sdwin(2); 1583 return (SUCCESS);1586 return; 1584 1587 } 1585 1588 } … … 1587 1590 } 1588 1591 1589 return (FAILURE);1592 return; 1590 1593 1591 1594 /* … … 1595 1598 1596 1599 if (clkrun) /* clock can't be running */ 1597 return (FAILURE);1600 return; 1598 1601 1599 1602 if (scmctl NE -1) … … 1604 1607 sdmenu(1); 1605 1608 noteop = NOP_NUL; 1606 return (SUCCESS);1609 return; 1607 1610 1608 1611 } else { /* menu up - select operation */ … … 1614 1617 1615 1618 hilitnt(NOP_ACC); 1616 return (SUCCESS);1619 return; 1617 1620 1618 1621 } else if ((vtccol GE 13) AND … … 1620 1623 1621 1624 hilitnt(NOP_MVN); 1622 return (SUCCESS);1625 return; 1623 1626 1624 1627 } else if ((vtccol GE 25) AND … … 1626 1629 1627 1630 hilitnt(NOP_NUL); 1628 return (SUCCESS);1631 return; 1629 1632 1630 1633 } 1631 1634 1632 return (FAILURE);1635 return; 1633 1636 /* 1634 1637 … … 1640 1643 1641 1644 hilitnt(NOP_NAT); 1642 return (SUCCESS);1645 return; 1643 1646 1644 1647 } else if ((vtccol GE 13) AND … … 1646 1649 1647 1650 hilitnt(NOP_MVB); 1648 return (SUCCESS);1651 return; 1649 1652 } 1650 1653 1651 return (FAILURE);1654 return; 1652 1655 1653 1656 } else if (vtcrow EQ 21) { … … 1657 1660 1658 1661 hilitnt(NOP_END); 1659 return (SUCCESS);1662 return; 1660 1663 1661 1664 } else if ((vtccol GE 13) AND … … 1663 1666 1664 1667 hilitnt(NOP_MVE); 1665 return (SUCCESS);1668 return; 1666 1669 } 1667 1670 1668 return (FAILURE);1671 return; 1669 1672 1670 1673 } else 1671 return (FAILURE);1672 } 1673 1674 return (FAILURE);1674 return; 1675 } 1676 1677 return; 1675 1678 1676 1679 /* … … 1700 1703 } 1701 1704 1702 return (SUCCESS);1705 return; 1703 1706 1704 1707 } else { 1705 1708 1706 return(enterit()); /* data entry */ 1709 enterit(); /* data entry */ 1710 return; 1707 1711 } 1708 1712 … … 1716 1720 scmenu(-1); /* take down menu */ 1717 1721 1718 return (SUCCESS);1722 return; 1719 1723 1720 1724 } else { 1721 1725 1722 return(enterit()); /* data entry */ 1726 enterit(); /* data entry */ 1727 return; 1723 1728 } 1724 1729 /* … … 1775 1780 } 1776 1781 1777 return (SUCCESS);1782 return; 1778 1783 1779 1784 /* … … 1832 1837 } 1833 1838 1834 return (SUCCESS);1839 return; 1835 1840 /* 1836 1841 … … 1838 1843 case 10: /* Output */ 1839 1844 1840 return (SUCCESS);1845 return; 1841 1846 1842 1847 case 11: /* group/ins, trans, dyn/loc, velocity */ … … 1849 1854 scmenu(-1); /* take down the menu */ 1850 1855 1851 return (SUCCESS);1856 return; 1852 1857 1853 1858 } else if ((row EQ 21) AND (col LE 3)) { /* velocity flag */ … … 1855 1860 velflag = NOT velflag; 1856 1861 ds_vmod(); 1857 return(SUCCESS); 1858 1859 } else 1860 return(enterit()); /* inst. number */ 1862 return; 1863 1864 } else { 1865 enterit(); /* inst. number */ 1866 return; 1867 } 1861 1868 1862 1869 /* … … 1880 1887 vputa(obj8, 7, i, atr); 1881 1888 1882 return (SUCCESS);1889 return; 1883 1890 1884 1891 } else if ((row EQ 22) AND (col LE 4)) { /* r/p source */ … … 1897 1904 vputa(obj8, 6, i, atr); 1898 1905 1899 return (SUCCESS);1906 return; 1900 1907 1901 1908 } else { 1902 1909 1903 return(enterit()); 1910 enterit(); 1911 return; 1904 1912 } 1905 1913 /* … … 1915 1923 scmenu(-1); /* take down menu */ 1916 1924 1917 return (SUCCESS);1925 return; 1918 1926 1919 1927 } else if ((col GE 10) AND (col LE 25)) { /* score name */ … … 1932 1940 } 1933 1941 1934 return(SUCCESS); 1935 1936 } else 1937 return(enterit()); 1942 return; 1943 1944 } else { 1945 enterit(); 1946 return; 1947 } 1938 1948 /* 1939 1949 … … 1945 1955 recsw = FALSE; 1946 1956 dsrpmod(); 1947 return (SUCCESS);1957 return; 1948 1958 1949 1959 } else if ((col GE 36) AND (col LE 40)) { /* Recrd */ … … 1951 1961 recsw = TRUE; 1952 1962 dsrpmod(); 1953 return (SUCCESS);1963 return; 1954 1964 1955 1965 } else if ((col GE 42) AND (col LE 47)) { /* OvrDub */ … … 1957 1967 dubsw = NOT dubsw; 1958 1968 dsrpmod(); 1959 return (SUCCESS);1969 return; 1960 1970 1961 1971 } else if ((col GE 49) AND (col LE 55)) { /* PunchIn */ … … 1963 1973 pchsw = NOT pchsw; 1964 1974 dsrpmod(); 1965 return (SUCCESS);1966 1967 } 1968 1969 return (FAILURE);1975 return; 1976 1977 } 1978 1979 return; 1970 1980 1971 1981 case 16: /* note display */ … … 1974 1984 donote(); 1975 1985 1976 return (SUCCESS);1986 return; 1977 1987 } 1978 1979 return(FAILURE);1980 1988 } 1989 -
ram/showcfg.c
r342a56f r0c834c5 56 56 /* variables defined elsewhere */ 57 57 58 extern short (*point)(); /* point plotting function pointer */ 59 extern short (*x_key)(); /* "X" key handler pointer */ 58 extern void (*point)(short x, short y, short pen); 59 /* point plotting function pointer */ 60 extern void (*x_key)(void); /* "X" key handler pointer */ 60 61 61 62 extern short LftEdge; /* left edge of current box */ -
ram/smscrl.c
r342a56f r0c834c5 42 42 extern short vtyval; /* subment cursor y value */ 43 43 44 extern unsigned short*obj10; /* sequence status object pointer */45 46 extern unsigned short cg3[]; /* character generator table */44 extern unsigned *obj10; /* sequence status object pointer */ 45 46 extern int cg3[][256]; /* character generator table */ 47 47 48 48 extern char ptdebuf[]; /* patch data entry buffer */ … … 61 61 */ 62 62 63 char *(*BakLine)( );/* next line backward function pointer */64 char *(*FwdLine)( );/* next line forward function pointer */63 char *(*BakLine)(void); /* next line backward function pointer */ 64 char *(*FwdLine)(void); /* next line forward function pointer */ 65 65 66 66 short PdScDnF; /* scroll down flag */ -
ram/sqdisp.c
r342a56f r0c834c5 25 25 extern short nokey(void); 26 26 27 extern char *(*BakLine)(), *(*FwdLine)(); 28 29 extern unsigned short *obj8, *obj9, *obj10, *obj11; 27 extern char *(*BakLine)(void); 28 extern char *(*FwdLine)(void); 29 30 extern unsigned *obj8, *obj9, *obj10, *obj11; 30 31 extern unsigned short *LineBuf, *ScObAdr, *OldLine; 31 32 extern unsigned short LineAtr; … … 38 39 extern short cxval; 39 40 40 extern unsigned short cg3[];41 extern int cg3[][256]; 41 42 42 43 extern char TheBuf[]; /* display build buffer */ -
ram/sqexec.c
r342a56f r0c834c5 45 45 extern unsigned short seqdupd; 46 46 47 extern unsigned short*obj10;48 49 extern unsigned short cg3[];47 extern unsigned *obj10; 48 49 extern int cg3[][256]; 50 50 51 51 extern struct wordq ptefifo; -
ram/sqfield.c
r342a56f r0c834c5 26 26 #endif 27 27 28 extern short (*xy_up)(), (*xy_dn)(); 29 extern short (*premove)(), (*pstmove)(); 30 extern short (*curtype)(); 28 extern void (*xy_up)(void); 29 extern void (*xy_dn)(void); 30 extern void (*premove)(void); 31 extern void (*pstmove)(void); 32 extern short (*curtype)(void); 31 33 32 34 extern void select(void); -
ram/sqread.c
r342a56f r0c834c5 15 15 #include "libdsp.h" 16 16 17 extern short errno; /* system error number */17 extern int errno; /* system error number */ 18 18 19 19 -
ram/sqselbx.c
r342a56f r0c834c5 39 39 extern short sqatype[]; 40 40 41 extern unsigned short*obj11;41 extern unsigned *obj11; 42 42 43 43 extern struct seqent seqtab[]; -
ram/swinit.c
r342a56f r0c834c5 40 40 PFS aswtbl[14]; /* assignment switch table */ 41 41 42 short (*curmove)(); /* cursor move function */ 43 short (*curtype)(); /* cursor type function */ 44 short (*cx_key)(); /* x rate calculation */ 45 short (*cx_upd)(); /* x update */ 46 short (*cy_key)(); /* y rate calculation */ 47 short (*cy_upd)(); /* y update */ 48 short (*d_key)(); /* in-field data key processor */ 49 short (*e_key)(); /* E key processor */ 50 short (*m_key)(); /* M key processor */ 51 short (*itxput)(); /* instrument menu text put function */ 52 short (*not_fld)(); /* not-in-field data key processor */ 53 short (*olddkey)(); /* saved d_key value */ 54 short (*oldekey)(); /* saved e_key value */ 55 short (*oldmkey)(); /* saved m_key value */ 56 short (*oldxkey)(); /* saved x_key value */ 57 short (*premove)(); /* cursor pre-move function */ 58 short (*pstmove)(); /* cursor post-move function */ 59 short (*vt_adv)(); /* vtyper data cursor advance function */ 60 short (*vt_bsp)(); /* vtyper data cursor backspace function */ 61 short (*vt_cdn)(); /* vtyper data cursor down function */ 62 short (*vt_cup)(); /* vtyper data cursor up function */ 63 short (*vt_dsp)(); /* vtyper display function */ 64 short (*vt_stop)(); /* vtyper exit function */ 65 short (*x_key)(); /* X key processor */ 66 short (*xy_dn)(); /* cursor - finger on (down) */ 67 short (*xy_up)(); /* cursor - finger off (up) */ 42 void (*curmove)(void); /* cursor move function */ 43 short (*curtype)(void); /* cursor type function */ 44 void (*cx_key)(void); /* x rate calculation */ 45 void (*cx_upd)(void); /* x update */ 46 void (*cy_key)(void); /* y rate calculation */ 47 void (*cy_upd)(void); /* y update */ 48 void (*d_key)(void); /* in-field data key processor */ 49 void (*e_key)(void); /* E key processor */ 50 void (*m_key)(void); /* M key processor */ 51 void (*itxput)(short row, short col, char *txt, short tag); 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 */ 55 void (*oldekey)(void); /* saved e_key value */ 56 void (*oldmkey)(void); /* saved m_key value */ 57 void (*oldxkey)(void); /* saved x_key value */ 58 void (*premove)(void); /* cursor pre-move function */ 59 void (*pstmove)(void); /* cursor post-move function */ 60 void (*vt_adv)(void); /* vtyper data cursor advance function */ 61 void (*vt_bsp)(void); /* vtyper data cursor backspace function */ 62 void (*vt_cdn)(void); /* vtyper data cursor down function */ 63 void (*vt_cup)(void); /* vtyper data cursor up function */ 64 void (*vt_dsp)(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf); 65 /* vtyper display function */ 66 void (*vt_stop)(void); /* vtyper exit function */ 67 void (*x_key)(void); /* X key processor */ 68 void (*xy_dn)(void); /* cursor - finger on (down) */ 69 void (*xy_up)(void); /* cursor - finger off (up) */ 68 70 69 71 short *cratex; /* cursor x rate table pointer */ -
ram/vtyper.c
r342a56f r0c834c5 35 35 extern short vtwcol; /* vtyper window left column */ 36 36 37 extern short (*vt_adv)(); /* vtyper data cursor advance function */ 38 extern short (*vt_bsp)(); /* vtyper data cursor backspace function */ 39 extern short (*vt_cdn)(); /* vtyper data cursor down function */ 40 extern short (*vt_cup)(); /* vtyper data cursor up function */ 41 extern short (*vt_stop)(); /* vtyper exit function */ 42 extern short (*vt_dsp)(); /* vtyper display function */ 37 extern void (*vt_adv)(void); 38 /* vtyper data cursor advance function */ 39 extern void (*vt_bsp)(void); 40 /* vtyper data cursor backspace function */ 41 extern void (*vt_cdn)(void); 42 /* vtyper data cursor down function */ 43 extern void (*vt_cup)(void); 44 /* vtyper data cursor up function */ 45 extern void (*vt_stop)(void); 46 /* vtyper exit function */ 47 extern void (*vt_dsp)(unsigned *obj, unsigned fg, unsigned bg, short row, short col, char *buf); 48 /* vtyper display function */ 43 49 44 50 extern unsigned *vtobj; /* vtyper display object pointer */ -
ram/wheel.c
r342a56f r0c834c5 135 135 */ 136 136 137 extern short (*curmove)();138 extern short (*cx_upd)();139 extern short (*cy_upd)();140 extern short (*xy_dn)();141 extern short (*xy_up)();142 extern short (*e_key)();143 extern short (*m_key)();144 extern short (*x_key)();137 extern void (*curmove)(void); 138 extern void (*cx_upd)(void); 139 extern void (*cy_upd)(void); 140 extern void (*xy_dn)(void); 141 extern void (*xy_up)(void); 142 extern void (*e_key)(void); 143 extern void (*m_key)(void); 144 extern void (*x_key)(void); 145 145 146 146 extern short asig; -
ram/wsdsp.c
r342a56f r0c834c5 26 26 extern unsigned exp_c(unsigned c); 27 27 28 extern int (*point)();28 extern void (*point)(short x, short y, short pen); 29 29 30 30 extern unsigned *obj0; -
rom/romp.c
r342a56f r0c834c5 142 142 143 143 #if ON_B700 144 extern int B_log_s;145 extern int B_dbg_s;144 extern short B_log_s; 145 extern short B_dbg_s; 146 146 extern char *B_buf_a; 147 147 extern int _bpbin; -
vlib/lseg.c
r342a56f r0c834c5 7 7 */ 8 8 9 short (*point)();9 void (*point)(short x, short y, short pen); 10 10 11 11 #define ABS(x) ((x) < 0 ? (-(x)) : (x)) -
vlib/vhinit.c
r342a56f r0c834c5 22 22 #define VREG(h,v) ((h<<10)|v) 23 23 24 extern int cgtable[] ;24 extern int cgtable[][256]; 25 25 extern int cg_rows; 26 26
Note:
See TracChangeset
for help on using the changeset viewer.