Changeset 8cc57e6 in buchla-68k


Ignore:
Timestamp:
11/11/2017 10:03:09 PM (3 years ago)
Author:
Thomas Lopatic <thomas@…>
Branches:
master
Children:
572daa7
Parents:
3ac8e1b
Message:

Fixed etiosc.c.

Location:
ram
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • ram/etiosc.c

    r3ac8e1b r8cc57e6  
    1111
    1212/*                  C  C# D  D# E  F  F# G  G# A  A# B  */
    13 int16_t notes[]  = {2, 2, 3, 3, 4, 5, 5, 6, 6, 0, 0, 1};
     13int8_t  notes[]  = {2, 2, 3, 3, 4, 5, 5, 6, 6, 0, 0, 1};
    1414
    1515/*                      A     B     C     D     E     F     G   */
     
    1919
    2020/*                  C  C# D  D# E  F  F# G  G# A  A# B  */
    21 int16_t sharps[] = {7, 9, 7, 9, 7, 7, 9, 7, 9, 7, 9, 7};
     21int8_t  sharps[] = {7, 9, 7, 9, 7, 7, 9, 7, 9, 7, 9, 7};
    2222
    2323int16_t shrpflt[] = {  0, -100,    100};
     
    5555                        if (rat EQ ratio[inum + den]) {
    5656
    57                                 ebuf[0] = num + '0';
    58                                 ebuf[2] = den + '0';
     57                                ebuf[0] = (int8_t)(num + '0');
     58                                ebuf[2] = (int8_t)(den + '0');
    5959                                return;
    6060                        }
     
    7474
    7575        cv -= 160;
    76         buf[0] = cv / 1200;
    77         rem = cv - (buf[0] * 1200);
     76        buf[0] = (int8_t)(cv / 1200);
     77        rem = (int8_t)(cv - (buf[0] * 1200));
    7878        tmp = rem / 100;
    7979        rem -= (tmp * 100);
    8080        buf[1] = notes[tmp];
    8181        buf[2] = sharps[tmp];
    82         buf[3] = rem / 10;
    83         buf[4] = rem - (buf[3] * 10);
     82        buf[3] = (int8_t)(rem / 10);
     83        buf[4] = (int8_t)(rem - (buf[3] * 10));
    8484}
    8585
     
    208208
    209209                ip->idhos1v = val << 1;
    210                 ip->idhos1c = (ip->idhos1c & ~OC_MOD) | bform;
     210                ip->idhos1c = (int8_t)((ip->idhos1c & ~OC_MOD) | bform);
    211211                break;
    212212
     
    214214
    215215                ip->idhos2v = val << 1;
    216                 ip->idhos2c = (ip->idhos2c & ~OC_MOD) | bform;
     216                ip->idhos2c = (int8_t)((ip->idhos2c & ~OC_MOD) | bform);
    217217                break;
    218218
     
    220220
    221221                ip->idhos3v = val << 1;
    222                 ip->idhos3c = (ip->idhos3c & ~OC_MOD) | bform;
     222                ip->idhos3c = (int8_t)((ip->idhos3c & ~OC_MOD) | bform);
    223223                break;
    224224
     
    226226
    227227                ip->idhos4v = val << 1;
    228                 ip->idhos4c = (ip->idhos4c & ~OC_MOD) | bform;
    229                 break;
    230         }
    231 
    232         ip->idhfnc[v].idftmd = (ip->idhfnc[v].idftmd & ~I_NRATIO)
    233                 | ((bform & 2) ? I_NRATIO : 0);
     228                ip->idhos4c = (int8_t)((ip->idhos4c & ~OC_MOD) | bform);
     229                break;
     230        }
     231
     232        ip->idhfnc[v].idftmd = (int8_t)((ip->idhfnc[v].idftmd & ~I_NRATIO)
     233                | ((bform & 2) ? I_NRATIO : 0));
    234234}
    235235
     
    377377                strcpy(dspbuf, "Pch ");
    378378                cnvc2p(&dspbuf[4], (val >> 1));
    379                 dspbuf[4] += '0';
    380                 dspbuf[5] += 'A';
     379                dspbuf[4] = (int8_t)(dspbuf[4] + '0');
     380                dspbuf[5] = (int8_t)(dspbuf[5] + 'A');
    381381                dspbuf[6] = sfdsp[dspbuf[6] - 7];
    382                 dspbuf[7] += '0';
    383                 dspbuf[8] += '0';
     382                dspbuf[7] = (int8_t)(dspbuf[7] + '0');
     383                dspbuf[8] = (int8_t)(dspbuf[8] + '0');
    384384                dspbuf[9] = ' ';
    385385                dspbuf[10] = ocs;
     
    529529        case 0:
    530530
    531                 ip->idhos1c = (ip->idhos1c & ~OC_SYN) | (t ? OC_SYN : 0);
     531                ip->idhos1c = (int8_t)((ip->idhos1c & ~OC_SYN) | (t ? OC_SYN : 0));
    532532                break;
    533533
    534534        case 1:
    535535
    536                 ip->idhos2c = (ip->idhos2c & ~OC_SYN) | (t ? OC_SYN : 0);
     536                ip->idhos2c = (int8_t)((ip->idhos2c & ~OC_SYN) | (t ? OC_SYN : 0));
    537537                break;
    538538
    539539        case 2:
    540540
    541                 ip->idhos3c = (ip->idhos3c & ~OC_SYN) | (t ? OC_SYN : 0);
     541                ip->idhos3c = (int8_t)((ip->idhos3c & ~OC_SYN) | (t ? OC_SYN : 0));
    542542                break;
    543543
     
    632632                        } else {
    633633
    634                                 ebuf[stccol - 41] = k + '0';
     634                                ebuf[stccol - 41] = (int8_t)(k + '0');
    635635                        }
    636636
    637                         dspbuf[0] = (k > 9) ? k : (k + '0');
     637                        dspbuf[0] = (int8_t)((k > 9) ? k : (k + '0'));
    638638                        dspbuf[1] = '\0';
    639639
     
    656656                                if (k) {
    657657
    658                                         ebuf[0] = dspbuf[0] = k + '0';
     658                                        ebuf[0] = dspbuf[0] = (int8_t)(k + '0');
    659659                                        dspbuf[1] = '\0';
    660660
     
    677677                                if (k) {
    678678
    679                                         ebuf[2] = dspbuf[0] = k + '0';
     679                                        ebuf[2] = dspbuf[0] = (int8_t)(k + '0');
    680680                                        dspbuf[1] = '\0';
    681681
     
    700700                                return(FAILURE);
    701701
    702                         ebuf[stccol - 40] = k + '0';
    703                         dspbuf[0] = k + '0';
     702                        ebuf[stccol - 40] = (int8_t)(k + '0');
     703                        dspbuf[0] = (int8_t)(k + '0');
    704704                        dspbuf[1] = '\0';
    705705
     
    726726                        case 40:
    727727
    728                                 ebuf[0] = k;
    729                                 dspbuf[0] = k + '0';
     728                                ebuf[0] = (int8_t)k;
     729                                dspbuf[0] = (int8_t)(k + '0');
    730730                                break;
    731731
     
    735735                                        return(FAILURE);
    736736
    737                                 ebuf[1] = k;
    738                                 dspbuf[0] = k + 'A';
     737                                ebuf[1] = (int8_t)k;
     738                                dspbuf[0] = (int8_t)(k + 'A');
    739739                                break;
    740740
     
    743743                                if (k EQ 7) {           /* blank */
    744744
    745                                         ebuf[2] = k;
     745                                        ebuf[2] = (int8_t)k;
    746746                                        dspbuf[0] = sfdsp[0];
    747747                                        break;
     
    749749                                } else if (k EQ 8) {    /* flat */
    750750
    751                                         ebuf[2] = k;
     751                                        ebuf[2] = (int8_t)k;
    752752                                        dspbuf[0] = sfdsp[1];
    753753                                        break;
     
    755755                                } else if (k EQ 9) {    /* sharp */
    756756
    757                                         ebuf[2] = k;
     757                                        ebuf[2] = (int8_t)k;
    758758                                        dspbuf[0] = sfdsp[2];
    759759                                        break;
     
    764764                        case 44:
    765765
    766                                 ebuf[stccol - 40] = k;
    767                                 dspbuf[0] = k + '0';
     766                                ebuf[stccol - 40] = (int8_t)k;
     767                                dspbuf[0] = (int8_t)(k + '0');
    768768                                break;
    769769                        }
  • ram/etiosc.x

    r3ac8e1b r8cc57e6  
    1717
    1818extern  int16_t         ndvals[10];
    19 extern  int16_t         notes[];
     19extern  int8_t          notes[];
    2020extern  int16_t         pitches[];
    2121extern  int16_t         ratio[100];
    2222extern  int8_t          sfdsp[];
    23 extern  int16_t         sharps[];
     23extern  int8_t          sharps[];
    2424extern  int16_t         shrpflt[];
    2525
Note: See TracChangeset for help on using the changeset viewer.