Changeset 0c834c5 in buchla-68k for ram/adselbx.c
- Timestamp:
- 07/08/2017 05:56:38 PM (7 years ago)
- Branches:
- master
- Children:
- 60288f5
- Parents:
- 342a56f
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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
Note:
See TracChangeset
for help on using the changeset viewer.