Changeset 9519422 in buchla-68k
- Timestamp:
- 07/09/2017 05:08:52 PM (8 years ago)
- Branches:
- master
- Children:
- d10dbee
- Parents:
- 7848656
- Location:
- ram
- Files:
-
- 49 edited
Legend:
- Unmodified
- Added
- Removed
-
ram/asgdsp.c
r7848656 r9519422 249 249 {2, 2, 2}, /* 8 */ 250 250 {0, 0, 0}, /* 9 */ 251 {2, 2, 2}, /* 10 (was 1, 1, 0) */ 251 {2, 2, 2}, /* 10 (was 1, 1, 0) */ 252 252 {2, 3, 3}, /* 11 */ 253 253 {3, 3, 0}, /* 12 */ … … 752 752 tsplot4(asgob, 64, (tunmod ? AK_MODC : adbox[n][4]), 753 753 adbox[n][6], adbox[n][7] + 4, bfs, 14); 754 754 755 755 return; 756 756 … … 760 760 tsplot4(asgob, 64, adbox[n][4], adbox[n][6] + 1, adbox[n][7], 761 761 bfs, 14); 762 762 763 763 sprintf(bfs, "ModRate %02.2d", ps_rate); 764 764 tsplot4(asgob, 64, adbox[n][4], adbox[n][6] + 2, adbox[n][7], 765 765 bfs, 14); 766 766 767 767 sprintf(bfs, "ModDpth %02.2d", ps_dpth); 768 768 tsplot4(asgob, 64, adbox[n][4], adbox[n][6] + 3, adbox[n][7], 769 769 bfs, 14); 770 770 771 771 return; 772 772 } … … 985 985 986 986 */ 987 987 988 988 /* 989 989 ============================================================================= -
ram/barbadj.c
r7848656 r9519422 181 181 LCD_WC = G_CRSMRT; /* set cursor motion = "right" */ 182 182 GLCcurs(G_OFF); /* turn off the cursor */ 183 183 184 184 BarBcur[bar] = newbar; /* update current bar position */ 185 185 } … … 272 272 LCD_WC = G_CRSMRT; /* set cursor motion = "right" */ 273 273 GLCcurs(G_OFF); /* turn off the cursor */ 274 274 275 275 BarCcur[bar] = newbar; /* update current bar position */ 276 276 } … … 351 351 LCD_WC = G_CRSMRT; /* set cursor motion = "right" */ 352 352 GLCcurs(G_OFF); /* turn off the cursor */ 353 353 354 354 BarCcur[bar] = newbar; /* update current bar position */ 355 355 } -
ram/chksec.c
r7848656 r9519422 558 558 } 559 559 560 DB_EXIT("madjsec"); 560 DB_EXIT("madjsec"); 561 561 return(cp); /* return start address of copy */ 562 562 } -
ram/cminit.c
r7848656 r9519422 221 221 222 222 n = c - '0'; 223 223 224 224 while (c = *p) { 225 225 -
ram/dbentr.c
r7848656 r9519422 200 200 201 201 xtrap15(); /* trap to ROMP */ 202 202 203 203 DB_Clr(); /* clear the buffer */ 204 204 return; … … 210 210 211 211 xtrap15(); /* trap to ROMP */ 212 212 213 213 DB_Clr(); /* clear the buffer */ 214 214 return; -
ram/dec2fr.c
r7848656 r9519422 78 78 if (s[3] EQ '-') { 79 79 80 if (i) 80 if (i) 81 81 return(~i); /* negative number */ 82 82 else -
ram/delnote.c
r7848656 r9519422 124 124 125 125 */ 126 126 127 127 } else if ((ep->e_type EQ EV_NEND) AND 128 128 (ep->e_note EQ tnote) AND -
ram/delpnts.c
r7848656 r9519422 122 122 (fp->idftmd = (fp->idftmd & ~3) | 1); 123 123 } 124 124 125 125 fp = &vp->idhfnc[curfunc]; /* point at the function */ 126 126 … … 203 203 edfunc(curfunc); /* make point 0 current */ 204 204 subj = 0; 205 } 205 } 206 206 207 207 /* -
ram/dopatch.c
r7848656 r9519422 116 116 { 117 117 uint16_t *fpuws; 118 118 119 119 if (slot) { /* waveshape slot B */ 120 120 … … 358 358 ledstat[curled] = FALSE; 359 359 io_leds = curled | 0x0080; 360 360 361 361 } else { /* off -> on */ 362 362 -
ram/enterit.c
r7848656 r9519422 78 78 /* 79 79 ============================================================================= 80 enterit() -- standard data entry (ENTER) function 80 enterit() -- standard data entry (ENTER) function 81 81 ============================================================================= 82 82 */ … … 587 587 else if (cxval < 0) 588 588 cxval = 0; 589 589 590 590 return; 591 591 } -
ram/etidin.c
r7848656 r9519422 98 98 /* 99 99 100 */ 100 */ 101 101 } else if (vtcrow EQ 23) { /* copy to library */ 102 102 … … 128 128 */ 129 129 } else { /* 'E' with menu not up */ 130 130 131 131 ebuf[2] = '\0'; /* terminate the string in ebuf */ 132 132 ebflag = FALSE; -
ram/etimlt.c
r7848656 r9519422 173 173 if (vtccol LT 24) 174 174 srctmp = SM_VTMW; 175 else if ((vtccol GT 24) AND (vtccol LT 32)) 175 else if ((vtccol GT 24) AND (vtccol LT 32)) 176 176 srctmp = SM_KVEL; 177 177 else if ((vtccol GT 32) AND (vtccol LT 40)) -
ram/etival.c
r7848656 r9519422 126 126 if (vtccol LT 24) 127 127 srctmp = SM_VTMW; 128 else if ((vtccol GT 24) AND (vtccol LT 32)) 128 else if ((vtccol GT 24) AND (vtccol LT 32)) 129 129 srctmp = SM_KVEL; 130 130 else if ((vtccol GT 32) AND (vtccol LT 40)) -
ram/etscor.c
r7848656 r9519422 93 93 94 94 */ 95 95 96 96 /* 97 97 ============================================================================= -
ram/etstrn.c
r7848656 r9519422 92 92 93 93 */ 94 94 95 95 /* 96 96 ============================================================================= -
ram/fcnote.c
r7848656 r9519422 95 95 /* 96 96 97 */ 97 */ 98 98 } else if ((et EQ EV_NEND) AND (en EQ tnote) AND 99 99 (eg EQ grp)) { -
ram/frfind.c
r7848656 r9519422 84 84 #if DEBUGIT 85 85 if (verbose) 86 printf("epadj($%08lX, %d, %ld): sep->e_time=%ld\n", 86 printf("epadj($%08lX, %d, %ld): sep->e_time=%ld\n", 87 87 sep, sdir, tval, sep->e_time); 88 88 #endif … … 94 94 if (tval < 0) /* return start of score for negative times */ 95 95 return(scores[curscor]); 96 96 97 97 if (sdir) { /* find left (earliest) end of chain */ 98 98 … … 190 190 191 191 if (tep->e_time GT tval) { 192 192 193 193 #if DEBUGIT 194 194 if (verbose) … … 267 267 268 268 if (p_fwd->e_time EQ tval) { /* at p_fwd ? */ 269 269 270 270 #if DEBUGIT 271 271 if (verbose) -
ram/instdsp.c
r7848656 r9519422 331 331 else 332 332 idpoint(ptx, pty, ptc); 333 333 334 334 return; 335 335 } -
ram/lcdlbls.c
r7848656 r9519422 168 168 169 169 /* arpar[] -- articulation parameter map */ 170 /* sigtab[ 25 26 27 28 29 30 31 32 33 34 35 36 37 38] */ 170 /* sigtab[ 25 26 27 28 29 30 31 32 33 34 35 36 37 38] */ 171 171 172 172 int16_t arpar[] = { 4, 2, 9, 11, 12, 1, 3, 5, 7, 13, 14, 15, 10, 6}; … … 703 703 /* cancel assignment mode */ 704 704 705 asmode = 0; 705 asmode = 0; 706 706 pkctrl = oldpk; 707 707 swpt = oldsw; … … 950 950 951 951 case LS_OTHER: 952 952 953 953 for (i = 0; i < 14; i++) 954 954 BarBset(i, (BGother[i] / 252)); … … 1138 1138 if (asmode) { /* cancel assignment mode */ 1139 1139 1140 asmode = 0; 1140 asmode = 0; 1141 1141 pkctrl = oldpk; 1142 1142 swpt = oldsw; … … 1295 1295 if (asmode) { /* cancel assignment mode */ 1296 1296 1297 asmode = 0; 1297 asmode = 0; 1298 1298 pkctrl = oldpk; 1299 1299 swpt = oldsw; -
ram/ldselbx.c
r7848656 r9519422 723 723 pkctrl = PK_LIBR; 724 724 sliders = LS_LIBR; 725 725 726 726 lcdlbls(); 727 727 setleds(); -
ram/libdsp.c
r7848656 r9519422 511 511 ============================================================================= 512 512 srchcat() -- search the file catalog 513 513 514 514 returns -1 on 'not found', slot 0..FCMAX-1 if found 515 515 ============================================================================= … … 1171 1171 else 1172 1172 break; 1173 1173 1174 1174 case FT_ORL: /* lo orch write */ 1175 1175 … … 1178 1178 else 1179 1179 break; 1180 1180 1181 1181 case FT_ORH: /* hi orch write */ 1182 1182 … … 1216 1216 else 1217 1217 break; 1218 1218 1219 1219 case FT_WAV: 1220 1220 … … 1223 1223 else 1224 1224 break; 1225 1225 1226 1226 default: 1227 1227 -
ram/m7menu.c
r7848656 r9519422 435 435 mrowcol[M_COPY][0], mrowcol[M_COPY][1], 436 436 mtexts[M_COPY], 14); 437 437 438 438 } else if (n EQ 9) { /* select "Format disk" */ 439 439 … … 441 441 mrowcol[M_FORM][0], mrowcol[M_FORM][1], 442 442 mtexts[M_FORM], 14); 443 443 444 444 } else { 445 445 -
ram/msl.c
r7848656 r9519422 151 151 */ 152 152 153 /* 153 /* 154 154 ============================================================================= 155 155 clk_ped() -- process clock on/off toggle pedal … … 163 163 } 164 164 165 /* 165 /* 166 166 ============================================================================= 167 167 pch_ped() -- process punch in/out toggle pedal … … 453 453 454 454 case 55: /* cursor x */ 455 455 456 456 (*cx_key)(); break; 457 457 -
ram/msm.c
r7848656 r9519422 640 640 } 641 641 } 642 642 643 643 break; 644 644 } … … 887 887 mrstat[miport] = 0; 888 888 break; 889 } 889 } 890 890 891 891 default: /* error -- bad status */ -
ram/nedacc.c
r7848656 r9519422 574 574 /* 575 575 576 */ 576 */ 577 577 } else { 578 578 -
ram/ptdisp.c
r7848656 r9519422 48 48 */ 49 49 50 int8_t pthead[] = 50 int8_t pthead[] = 51 51 52 52 "\260 Definer p ch Stmulus p ch Destnation \275\276 Datum \260 No Seq Rg T \260"; -
ram/ptdkey.c
r7848656 r9519422 1131 1131 UpdVid(7, stccol, buf, PTDATR); 1132 1132 1133 if (stccol EQ 46) 1133 if (stccol EQ 46) 1134 1134 ctcon(); 1135 1135 else -
ram/ptfield.c
r7848656 r9519422 180 180 } 181 181 182 } else 182 } else 183 183 stdmkey(); 184 184 -
ram/ptselbx.c
r7848656 r9519422 748 748 749 749 case 3: /* led */ 750 750 751 751 ptesuba = ptdebuf[32] - 'A'; 752 752 break; … … 973 973 setsubm(19, 2); 974 974 975 } else if (ptemenu EQ HT_3) { 975 } else if (ptemenu EQ HT_3) { 976 976 977 977 setsubm(20, 22); -
ram/scfield.c
r7848656 r9519422 384 384 if (EV_FINI EQ (0x007F & ep->e_type)) /* null if at end of score */ 385 385 return; 386 386 387 387 tp = scores[curscor]->e_bak; /* locate end of score */ 388 388 pp = ep->e_bak; /* locate end of head */ -
ram/scgoto.c
r7848656 r9519422 72 72 swctrl = FALSE; /* stop scroll wheel */ 73 73 swflag = FALSE; /* ... */ 74 74 75 75 recsw = FALSE; /* force play mode on goto */ 76 76 dsrpmod(); /* update video and LCD displays */ -
ram/scordsp.c
r7848656 r9519422 172 172 /* 5 */ "\210\211\212\213 / / / / / / / / / / / / ", 173 173 /* Dynamics / Location */ 174 174 175 175 /* 6 */ "\214\215\216\217", /* Velocity */ 176 176 … … 190 190 ============================================================================= 191 191 makeln(lnc, lec) -- create the constant slice at 'consl'. 192 make the line object color 'lnc', and ledger line color 'lec', 192 make the line object color 'lnc', and ledger line color 'lec', 193 193 ============================================================================= 194 194 */ … … 209 209 /* 210 210 211 */ 211 */ 212 212 for (i = 0; i < 224; i++) { 213 213 … … 432 432 433 433 val = valents[((abs(angroup) - 1) << 4) | var2src[var]].val >> 5; 434 tmp = abs(val); 434 tmp = abs(val); 435 435 v1 = tmp / 100; 436 436 v2 = (tmp - (v1 * 100)) / 10; … … 1094 1094 objon(7, 322, 12); /* ... row 23 */ 1095 1095 objon(7, 336, 12); /* ... row 24 */ 1096 1096 1097 1097 SetPri(13, 2); /* Keyboard object */ 1098 1098 SetPri(14, 1); /* Score object */ -
ram/scread.c
r7848656 r9519422 192 192 193 193 ep->e_type = EV_SCORE; 194 194 195 195 if (rd_ec(fp, &ep->e_data1, 1L)) { 196 196 … … 230 230 scioerr(sn, ep); 231 231 return(FAILURE); 232 } 232 } 233 233 234 234 libsp = e_ins(ep, libsp); -
ram/scselbx.c
r7848656 r9519422 831 831 pkctrl = PK_NGRP; 832 832 sliders = LS_NGRP; 833 833 834 834 lcdlbls(); 835 835 setleds(); -
ram/scwrite.c
r7848656 r9519422 183 183 ep = ep->e_fwd; 184 184 185 } while (go); 185 } while (go); 186 186 187 187 schksum = sc; … … 269 269 printf("scwrite(%d, $%08lX): ep = $%08lX\n", sn, fp, ep); 270 270 #endif 271 271 272 272 if (E_NULL EQ ep) { /* empty scores only get a flag */ 273 273 … … 310 310 311 311 if (wr_ec(fp, &ep->e_time, 4L)) 312 return(FAILURE); 312 return(FAILURE); 313 313 314 314 break; … … 438 438 ep = ep->e_fwd; 439 439 440 } while (go); 440 } while (go); 441 441 442 442 #if DEBUGIT -
ram/seccpy.c
r7848656 r9519422 109 109 lp = ep_adj(p_cur, 0, t_cur); /* events left of the copy */ 110 110 rp = lp->e_fwd; /* events right of the copy */ 111 111 112 112 /* adjust the times in the score past the copy */ 113 113 -
ram/sedump.c
r7848656 r9519422 125 125 */ 126 126 127 /* 127 /* 128 128 ============================================================================= 129 129 SEctrl() -- print current score pointers and times … … 710 710 711 711 for (i = 0; i < NFINST; i++) { 712 712 713 713 fp = &ip->idhfnc[i]; 714 714 pif = 0x00FF & fp->idfpif; -
ram/showcfg.c
r7848656 r9519422 659 659 reshowi(); 660 660 settc(17, 12); 661 661 662 662 } else { /* data entry */ 663 663 -
ram/smscrl.c
r7848656 r9519422 524 524 525 525 } 526 526 527 527 return; 528 528 } -
ram/sqdisp.c
r7848656 r9519422 49 49 */ 50 50 51 int8_t sqhead[] = 51 int8_t sqhead[] = 52 52 53 53 "\260 Lin Time Action 1 Action 2 Action 3 \260 No Seq Rg T \260"; -
ram/sqdkey.c
r7848656 r9519422 259 259 return; 260 260 } 261 261 262 262 buf[0] = key + '0'; 263 263 buf[1] = '\0'; -
ram/sqexec.c
r7848656 r9519422 169 169 /* 170 170 171 */ 171 */ 172 172 case SQ_SREG: /* Set register */ 173 173 -
ram/sqscan.c
r7848656 r9519422 81 81 return(FAILURE); 82 82 } 83 83 84 84 cval = spool; 85 85 … … 93 93 return(FAILURE); 94 94 } 95 95 96 96 cval = &spool[(int32_t)MAX_SE-1]; 97 97 … … 105 105 return(FAILURE); 106 106 } 107 107 108 108 return(SUCCESS); 109 109 } … … 408 408 tsp1->e_data1 = curgrp; 409 409 tsp1->e_data2 = aux1; 410 410 411 411 p_cur = e_ins(tsp1, ep_adj(p_cur, 0, t_cur))->e_fwd; 412 412 eh_ins(tsp1, EH_LOCN); … … 808 808 /* 809 809 810 */ 810 */ 811 811 if (CM_USTR("verbose")) { /* !verbose */ 812 812 … … 832 832 CM_OK; 833 833 } 834 834 835 835 if (CM_USTR("end")) { /* !end */ 836 836 … … 1010 1010 p_cur = ep_adj(p_cur, 0, (t_cur = noteon)); 1011 1011 1012 if (verbose) 1012 if (verbose) 1013 1013 printf("%8ld: Note %3d ON at %8ld, OFF at %8ld\n", 1014 1014 t_cur, notenum, noteon, noteoff); -
ram/stmproc.c
r7848656 r9519422 804 804 if (ptdsbuf[i] EQ '\0') 805 805 ptdsbuf[i] = ' '; 806 806 807 807 ptdsbuf[48] = '\0'; 808 808 } … … 890 890 /* 891 891 892 */ 892 */ 893 893 } else { 894 894 -
ram/tundsp.c
r7848656 r9519422 132 132 133 133 for (i = 0; i < 128; i++) 134 tunlib[n][i] = ((i < 21) ? 160 : (i > 108) ? 10960 : 134 tunlib[n][i] = ((i < 21) ? 160 : (i > 108) ? 10960 : 135 135 (160 + ((i - 12) * 100))) << 1; 136 136 -
ram/uslice.c
r7848656 r9519422 64 64 65 65 205, 205, 201, 197, 197, 193, 193, 189, 185, 185, 181, 181, 66 177, 177, 173, 169, 169, 165, 165, 161, 157, 157, 153, 153, 66 177, 177, 173, 169, 169, 165, 165, 161, 157, 157, 153, 153, 67 67 149, 149, 145, 141, 141, 137, 137, 133, 129, 129, 125, 125, 68 68 121, 121, 117, 113, 113, 109, 109, 105, 101, 101, 97, 97, … … 75 75 int16_t lintab2[] = { /* note top line table - N_FLAT */ 76 76 77 205, 201, 201, 197, 193, 193, 189, 189, 185, 181, 181, 177, 78 177, 173, 173, 169, 165, 165, 161, 161, 157, 153, 153, 149, 79 149, 145, 145, 141, 137, 137, 133, 133, 129, 125, 125, 121, 80 121, 117, 117, 113, 109, 109, 105, 105, 101, 97, 97, 93, 81 93, 89, 89, 85, 81, 81, 77, 77, 73, 69, 69, 65, 82 65, 61, 61, 57, 53, 53, 49, 49, 45, 41, 41, 37, 83 37, 33, 33, 29, 25, 25, 21, 21, 17, 13, 13, 9, 77 205, 201, 201, 197, 193, 193, 189, 189, 185, 181, 181, 177, 78 177, 173, 173, 169, 165, 165, 161, 161, 157, 153, 153, 149, 79 149, 145, 145, 141, 137, 137, 133, 133, 129, 125, 125, 121, 80 121, 117, 117, 113, 109, 109, 105, 105, 101, 97, 97, 93, 81 93, 89, 89, 85, 81, 81, 77, 77, 73, 69, 69, 65, 82 65, 61, 61, 57, 53, 53, 49, 49, 45, 41, 41, 37, 83 37, 33, 33, 29, 25, 25, 21, 21, 17, 13, 13, 9, 84 84 9, 5, 5, 1 85 85 }; -
ram/wdfield.c
r7848656 r9519422 234 234 235 235 /* calculate instrument source and FPU destination pointers */ 236 236 237 237 wsp1 = io_fpu + FPU_OWST + (curvce << 9) + (curwslt ? 0 : 0x0100) + 1; 238 238 wsp2 = curwslt ? vbufs[curvce].idhwvbf : vbufs[curvce].idhwvaf; … … 772 772 } 773 773 774 } else 774 } else 775 775 return(FAILURE); 776 776 /* -
ram/wheel.c
r7848656 r9519422 75 75 int16_t msflag; /* mouse control flag -- mouse movement */ 76 76 int16_t msrtag; /* mouse control flag -- mouse reset */ 77 int16_t msxres; /* mouse x residue */ 77 int16_t msxres; /* mouse x residue */ 78 78 int16_t msyres; /* mouse y residue */ 79 79 int16_t msxmov; /* mouse x movement */ … … 636 636 637 637 if (++i GE NTKFIFO) 638 i = 0; 638 i = 0; 639 639 640 640 } while (i NE fin); -
ram/wsdsp.c
r7848656 r9519422 488 488 } 489 489 } 490 490 491 491 /* 492 492
Note:
See TracChangeset
for help on using the changeset viewer.