Changeset 72741f4 in buchla-68k
- Timestamp:
- 11/15/2017 07:28:55 PM (7 years ago)
- Branches:
- master
- Children:
- 00c31a2
- Parents:
- 7c5def4
- Location:
- ram
- Files:
-
- 17 edited
Legend:
- Unmodified
- Added
- Removed
-
ram/asgvce.c
r7c5def4 r72741f4 94 94 newflag = TRUE; 95 95 96 se_disp( ep, D_FWD, gdstbc, 1);96 se_disp((struct s_entry *)ep, D_FWD, gdstbc, 1); 97 97 98 98 } else { … … 139 139 ep_adj(p_cur, 0, t_cur))->e_fwd; 140 140 141 se_disp( ep, D_FWD, gdstbc, 1);141 se_disp((struct s_entry *)ep, D_FWD, gdstbc, 1); 142 142 143 143 if (lstendc < NLSTENTS) … … 251 251 ep_adj(p_cur, 0, t_cur))->e_fwd; 252 252 253 se_disp( ep, D_FWD, gdstbc, 1);253 se_disp((struct s_entry *)ep, D_FWD, gdstbc, 1); 254 254 255 255 if (t_cur EQ t_ctr) -
ram/dcopy.c
r7c5def4 r72741f4 22 22 { 23 23 register FILE *fp; 24 register int8_t *from;24 register uint8_t *from; 25 25 register int32_t wrtlen, loadlen, bsslen, txtlen; 26 26 … … 59 59 /* write program header to disk */ 60 60 61 from = &mphead;61 from = (uint8_t *)&mphead; 62 62 63 63 for (wrtlen = sizeof mphead; wrtlen--; ) … … 72 72 /* write MIDAS-VII to disk */ 73 73 74 from = &Lo_RAM;74 from = (uint8_t *)&Lo_RAM; 75 75 76 76 for (wrtlen = loadlen; wrtlen--; ) -
ram/delnote.c
r7c5def4 r72741f4 78 78 /* scan right from note begin until: */ 79 79 80 ep = bp->e_fwd;80 ep = (struct n_entry *)bp->e_fwd; 81 81 scantag = TRUE; 82 82 … … 102 102 103 103 if (cp EQ ep) 104 cp = cp->e_bak;104 cp = (struct n_entry *)cp->e_bak; 105 105 106 106 if (p_ctr EQ ep) … … 116 116 p_cur = p_cur->e_bak; 117 117 118 e_del(e_rmv( ep));118 e_del(e_rmv((struct s_entry *)ep)); 119 119 120 120 /* delete note begin */ 121 121 122 122 if (cp EQ bp) 123 cp = cp->e_bak;123 cp = (struct n_entry *)cp->e_bak; 124 124 125 125 if (p_ctr EQ bp) … … 135 135 p_cur = p_cur->e_bak; 136 136 137 e_del(e_rmv( bp));137 e_del(e_rmv((struct s_entry *)bp)); 138 138 139 139 disptag = TRUE; … … 149 149 150 150 if (cp EQ bp) 151 cp = cp->e_bak;151 cp = (struct n_entry *)cp->e_bak; 152 152 153 153 if (p_ctr EQ bp) … … 163 163 p_cur = p_cur->e_bak; 164 164 165 e_del(e_rmv( bp));165 e_del(e_rmv((struct s_entry *)bp)); 166 166 167 167 disptag = TRUE; … … 173 173 /* scan right */ 174 174 175 ep = ep->e_fwd;175 ep = (struct n_entry *)ep->e_fwd; 176 176 177 177 } /* end while (scantag) */ … … 181 181 /* scan left */ 182 182 183 bp = bp->e_bak;183 bp = (struct n_entry *)bp->e_bak; 184 184 185 185 } /* end while (runtag) */ … … 207 207 /* search current time for a bar marker - delete any found */ 208 208 209 ep = ep_adj(p_cur, 1, ctime);209 ep = (struct n_entry *)ep_adj(p_cur, 1, ctime); 210 210 211 211 while (ctime EQ ep->e_time) { 212 212 213 bp = ep->e_fwd;213 bp = (struct n_entry *)ep->e_fwd; 214 214 215 215 if (EV_BAR EQ ep->e_type) { … … 227 227 p_fwd = p_fwd->e_bak; 228 228 229 e_del(e_rmv( ep));229 e_del(e_rmv((struct s_entry *)ep)); 230 230 disptag = TRUE; 231 231 } -
ram/delpnts.c
r7c5def4 r72741f4 103 103 /* move points down */ 104 104 105 pp1 = &vp->idhpnt[pt1];106 pp2 = &vp->idhpnt[pt2];105 pp1 = (int8_t *)&vp->idhpnt[pt1]; 106 pp2 = (int8_t *)&vp->idhpnt[pt2]; 107 107 108 108 for (i = nmv * (int16_t)PT_SIZE; i > 0; i--) … … 153 153 /* move points down */ 154 154 155 pp1 = &vp->idhpnt[pt1];156 pp2 = &vp->idhpnt[pt2];155 pp1 = (int8_t *)&vp->idhpnt[pt1]; 156 pp2 = (int8_t *)&vp->idhpnt[pt2]; 157 157 158 158 for (i = nmv * (int16_t)PT_SIZE; i > 0; i--) … … 244 244 for (k = 0; k < npts; k++) { /* move things up */ 245 245 246 fp1 = &ip->idhpnt[i--];247 fp2 = &ip->idhpnt[j--];246 fp1 = (int8_t *)&ip->idhpnt[i--]; 247 fp2 = (int8_t *)&ip->idhpnt[j--]; 248 248 249 249 for (l = 0; l < sizeof (struct instpnt); l++) -
ram/fcnote.c
r7c5def4 r72741f4 56 56 /* done -- can't see begin, or note not there */ 57 57 58 return( E_NULL);58 return((struct n_entry *)E_NULL); 59 59 60 60 } else if ((et EQ EV_NEND) AND (en EQ tnote) AND (eg EQ grp)) { … … 62 62 /* done -- hit note end first -- notes overlap */ 63 63 64 return( E_NULL);64 return((struct n_entry *)E_NULL); 65 65 66 66 } else if ((et EQ EV_NBEG) AND (en EQ tnote) AND (eg EQ grp)) { … … 68 68 /* found note begin -- possible note starting at bp */ 69 69 70 ep = bp->e_fwd;/* scan to right of begin */70 ep = (struct n_entry *)bp->e_fwd; /* scan to right of begin */ 71 71 72 72 FOREVER { /* scan right from note begin */ … … 81 81 /* hit note begin first -- done -- notes overlap */ 82 82 83 return( E_NULL);83 return((struct n_entry *)E_NULL); 84 84 85 85 } else if ((et EQ EV_NEND) AND (en EQ tnote) AND … … 97 97 /* hit score end -- done -- can't find end */ 98 98 99 return( E_NULL);99 return((struct n_entry *)E_NULL); 100 100 } 101 101 102 ep = ep->e_fwd;/* scan right */102 ep = (struct n_entry *)ep->e_fwd; /* scan right */ 103 103 104 104 } /* end FOREVER */ … … 106 106 } /* end if */ 107 107 108 bp = bp->e_bak;/* scan left */108 bp = (struct n_entry *)bp->e_bak; /* scan left */ 109 109 110 110 } /* end FOREVER */ -
ram/im700.c
r7c5def4 r72741f4 527 527 for (i = 0; i < NGPSRS; i++) { 528 528 529 valents[i].nxt = &valents[i];530 valents[i].prv = &valents[i];529 valents[i].nxt = (struct sment *)&valents[i]; 530 valents[i].prv = (struct sment *)&valents[i]; 531 531 valents[i].val = valof(i & 0x000F); 532 532 } … … 642 642 k = (i << 4) + fnoff[j]; 643 643 644 funcndx[k][0] = &ip->idhfnc[j];645 funcndx[k][1] = ip->idhpnt;644 funcndx[k][0] = (int8_t *)&ip->idhfnc[j]; 645 funcndx[k][1] = (int8_t *)ip->idhpnt; 646 646 } 647 647 } … … 736 736 e_key = nokey; 737 737 m_key = stdmkey; 738 d_key = no key;738 d_key = nodkey; 739 739 740 740 not_fld = nonf; -
ram/initi.c
r7c5def4 r72741f4 350 350 351 351 k = (voice << 4) + fnoff[j]; 352 funcndx[k][0] = &ip->idhfnc[j];353 funcndx[k][1] = ip->idhpnt;352 funcndx[k][0] = (int8_t *)&ip->idhfnc[j]; 353 funcndx[k][1] = (int8_t *)ip->idhpnt; 354 354 } 355 355 -
ram/lcdlbls.c
r7c5def4 r72741f4 578 578 /* 579 579 ============================================================================= 580 _l_load() -- forward processing to l_load() 581 ============================================================================= 582 */ 583 584 void _l_load(void) 585 { 586 l_load(1, 0); 587 } 588 589 /* 590 ============================================================================= 580 591 l_load() -- process "Load" key 581 592 ============================================================================= … … 636 647 oldmkey = m_key; 637 648 d_key = loadkey; 638 x_key = l_load;639 e_key = l_load;640 m_key = l_load;649 x_key = _l_load; 650 e_key = _l_load; 651 m_key = _l_load; 641 652 642 653 loadsw = TRUE; -
ram/lcdlbls.x
r7c5def4 r72741f4 51 51 extern void l_init(int16_t stat, int16_t _2); 52 52 extern void l_inst(int16_t stat, int16_t _2); 53 extern void _l_load(void); 53 54 extern void l_load(int16_t stat, int16_t _2); 54 55 extern void l_none(int16_t _1, int16_t _2); -
ram/localkb.c
r7c5def4 r72741f4 242 242 while (lstendc-- > 0) { /* note ends */ 243 243 244 ep = lstends[lstendc];244 ep = (struct s_entry *)lstends[lstendc]; 245 245 lstends[lstendc] = (struct n_entry *)NULL; 246 246 … … 268 268 while (lstbgnc-- > 0) { /* note begins */ 269 269 270 ep = lstbgns[lstbgnc];270 ep = (struct s_entry *)lstbgns[lstbgnc]; 271 271 lstbgns[lstbgnc] = (struct n_entry *)NULL; 272 272 -
ram/scselbx.c
r7c5def4 r72741f4 144 144 */ 145 145 146 void svtdsp( uint16_t *obj, uint16_t fg, uint16_t bg, int16_t row, int16_t col, int8_t *buf)146 void svtdsp(volatile uint16_t *obj, int16_t fg, int16_t bg, int16_t row, int16_t col, int8_t *buf) 147 147 { 148 148 (void)fg; -
ram/scselbx.x
r7c5def4 r72741f4 48 48 extern void showsm(void); 49 49 extern void showtm(void); 50 extern void svtdsp( uint16_t *obj, uint16_t fg, uint16_t bg, int16_t row, int16_t col, int8_t *buf);50 extern void svtdsp(volatile uint16_t *obj, int16_t fg, int16_t bg, int16_t row, int16_t col, int8_t *buf); 51 51 extern void svtstop(void); -
ram/sedump.c
r7c5def4 r72741f4 391 391 } 392 392 393 cura6 = A6PTR;393 cura6 = (int32_t *)A6PTR; 394 394 395 395 while (cura6) { … … 400 400 cura6, olda6, *(cura6 + 4L)); 401 401 402 prptr = cura6 + 8L;402 prptr = (int16_t *)(cura6 + 8L); 403 403 n = 8; 404 404 -
ram/showcfg.c
r7c5def4 r72741f4 313 313 { 314 314 register int16_t i, np; 315 int 16_t idbuf[8];315 int8_t idbuf[8]; 316 316 register int8_t *cfgdat, *cfp; 317 317 -
ram/sqscan.c
r7c5def4 r72741f4 63 63 } 64 64 65 cval = spool;65 cval = (struct s_entry *)spool; 66 66 67 67 if (ptr LT cval) { … … 75 75 } 76 76 77 cval = &spool[(int32_t)MAX_SE-1];77 cval = (struct s_entry *)&spool[(int32_t)MAX_SE-1]; 78 78 79 79 if (ptr GT cval) { … … 104 104 nsp->e_vel = vel; 105 105 106 return(e_ins((struct s_entry *)nsp, ep_adj(p_cur, 0, t_cur))->e_fwd); 106 return((struct n_entry *) 107 e_ins((struct s_entry *)nsp, ep_adj(p_cur, 0, t_cur))->e_fwd); 107 108 } 108 109 … … 704 705 while (tsp2) { 705 706 706 tsp3 = &spool[0];707 tsp3 = (struct s_entry *)&spool[0]; 707 708 708 709 if (tsp2 LT tsp3) { … … 715 716 } 716 717 717 tsp3 = &spool[MAX_SE-1];718 tsp3 = (struct s_entry *)&spool[MAX_SE-1]; 718 719 719 720 if (tsp2 GT tsp3) { … … 840 841 841 842 noteon = t_cur; 842 p_cur = insnevt(nsp1, EV_NBEG, curgrp, notenum, 64);843 p_cur = (struct s_entry *)insnevt(nsp1, EV_NBEG, curgrp, notenum, 64); 843 844 844 845 if (verbose) … … 857 858 858 859 noteoff = t_cur; 859 p_cur = insnevt(nsp1, EV_NEND, curgrp, notenum, 64);860 p_cur = (struct s_entry *)insnevt(nsp1, EV_NEND, curgrp, notenum, 64); 860 861 861 862 if (verbose) … … 882 883 } 883 884 884 p_cur = insnevt(nsp1, EV_NBEG, curgrp, notenum, 64);885 p_cur = (struct s_entry *)insnevt(nsp1, EV_NBEG, curgrp, notenum, 64); 885 886 886 887 if (E_NULL EQ (nsp1 = (struct n_entry *)e_alc(E_SIZE1))) { … … 915 916 } 916 917 917 p_cur = insnevt(nsp1, EV_NBEG, curgrp, notenum, 64);918 p_cur = (struct s_entry *)insnevt(nsp1, EV_NBEG, curgrp, notenum, 64); 918 919 919 920 if (E_NULL EQ (nsp1 = (struct n_entry *)e_alc(E_SIZE1))) { -
ram/wdfield.c
r7c5def4 r72741f4 198 198 ip = &vbufs[curvce]; /* instrument definition */ 199 199 200 ov = curwslt ? &ip->idhwvbo /* offsets in definition */201 : &ip->idhwvao;200 ov = curwslt ? ip->idhwvbo /* offsets in definition */ 201 : ip->idhwvao; 202 202 203 203 cwnp = wdcurct[curwdth][0]; /* number of points effected */ … … 271 271 272 272 ip = &vbufs[curvce]; 273 ov = curwslt ? &ip->idhwvbo : &ip->idhwvao;273 ov = curwslt ? ip->idhwvbo : ip->idhwvao; 274 274 275 275 ov[curwpnt] = curwoff << 5; /* force current point value */ … … 411 411 case 2: /* harmonic selected */ 412 412 413 hv = curwslt ? &ip->idhwvbh : &ip->idhwvah;413 hv = curwslt ? ip->idhwvbh : ip->idhwvah; 414 414 415 415 curwhrv = abs(hv[curwhrm]) - cyrate; … … 514 514 515 515 ip = &vbufs[curvce]; 516 hv = curwslt ? &ip->idhwvbh : &ip->idhwvah;516 hv = curwslt ? ip->idhwvbh : ip->idhwvah; 517 517 518 518 if (hitbox EQ 0) { /* waveshape area */ -
ram/wsdsp.c
r7c5def4 r72741f4 90 90 91 91 ip = &vbufs[curvce]; 92 fv = curwslt ? &ip->idhwvbf : &ip->idhwvaf;93 ov = curwslt ? &ip->idhwvbo : &ip->idhwvao;94 hv = curwslt ? &ip->idhwvbh : &ip->idhwvah;92 fv = curwslt ? ip->idhwvbf : ip->idhwvaf; 93 ov = curwslt ? ip->idhwvbo : ip->idhwvao; 94 hv = curwslt ? ip->idhwvbh : ip->idhwvah; 95 95 96 96 point = wdpoint;
Note:
See TracChangeset
for help on using the changeset viewer.