Changeset 8cc57e6 in buchla-68k

Timestamp:

11/11/2017 10:03:09 PM (7 years ago)

Author:

Thomas Lopatic <thomas@…>

Branches:

master

Children:

572daa7

Parents:

3ac8e1b

Message:

Fixed etiosc.c.

Location:

ram

Files:

• etiosc.c (modified) (20 diffs)
• etiosc.x (modified) (1 diff)

ram/etiosc.c

@@ -11 +11 @@
 
 /*                  C  C# D  D# E  F  F# G  G# A  A# B  */
-int16_t notes[]  = {2, 2, 3, 3, 4, 5, 5, 6, 6, 0, 0, 1};
+int8_t  notes[]  = {2, 2, 3, 3, 4, 5, 5, 6, 6, 0, 0, 1};
 
 /*                      A     B     C     D     E     F     G   */
@@ -19 +19 @@
 
 /*                  C  C# D  D# E  F  F# G  G# A  A# B  */
-int16_t sharps[] = {7, 9, 7, 9, 7, 7, 9, 7, 9, 7, 9, 7};
+int8_t  sharps[] = {7, 9, 7, 9, 7, 7, 9, 7, 9, 7, 9, 7};
 
 int16_t shrpflt[] = {  0, -100,    100};
@@ -55 +55 @@
                         if (rat EQ ratio[inum + den]) {
 
-                                ebuf[0] = num + '0';
-                                ebuf[2] = den + '0';
+                                ebuf[0] = (int8_t)(num + '0');
+                                ebuf[2] = (int8_t)(den + '0');
                                 return;
                         }
@@ -74 +74 @@
 
         cv -= 160;
-        buf[0] = cv / 1200;
-        rem = cv - (buf[0] * 1200);
+        buf[0] = (int8_t)(cv / 1200);
+        rem = (int8_t)(cv - (buf[0] * 1200));
         tmp = rem / 100;
         rem -= (tmp * 100);
         buf[1] = notes[tmp];
         buf[2] = sharps[tmp];
-        buf[3] = rem / 10;
-        buf[4] = rem - (buf[3] * 10);
+        buf[3] = (int8_t)(rem / 10);
+        buf[4] = (int8_t)(rem - (buf[3] * 10));
 }
 
@@ -208 +208 @@
 
                 ip->idhos1v = val << 1;
-                ip->idhos1c = (ip->idhos1c & ~OC_MOD) | bform;
+                ip->idhos1c = (int8_t)((ip->idhos1c & ~OC_MOD) | bform);
                 break;
 
@@ -214 +214 @@
 
                 ip->idhos2v = val << 1;
-                ip->idhos2c = (ip->idhos2c & ~OC_MOD) | bform;
+                ip->idhos2c = (int8_t)((ip->idhos2c & ~OC_MOD) | bform);
                 break;
 
@@ -220 +220 @@
 
                 ip->idhos3v = val << 1;
-                ip->idhos3c = (ip->idhos3c & ~OC_MOD) | bform;
+                ip->idhos3c = (int8_t)((ip->idhos3c & ~OC_MOD) | bform);
                 break;
 
@@ -226 +226 @@
 
                 ip->idhos4v = val << 1;
-                ip->idhos4c = (ip->idhos4c & ~OC_MOD) | bform;
-                break;
-        }
-
-        ip->idhfnc[v].idftmd = (ip->idhfnc[v].idftmd & ~I_NRATIO)
-                | ((bform & 2) ? I_NRATIO : 0);
+                ip->idhos4c = (int8_t)((ip->idhos4c & ~OC_MOD) | bform);
+                break;
+        }
+
+        ip->idhfnc[v].idftmd = (int8_t)((ip->idhfnc[v].idftmd & ~I_NRATIO)
+                | ((bform & 2) ? I_NRATIO : 0));
 }
 
@@ -377 +377 @@
                 strcpy(dspbuf, "Pch ");
                 cnvc2p(&dspbuf[4], (val >> 1));
-                dspbuf[4] += '0';
-                dspbuf[5] += 'A';
+                dspbuf[4] = (int8_t)(dspbuf[4] + '0');
+                dspbuf[5] = (int8_t)(dspbuf[5] + 'A');
                 dspbuf[6] = sfdsp[dspbuf[6] - 7];
-                dspbuf[7] += '0';
-                dspbuf[8] += '0';
+                dspbuf[7] = (int8_t)(dspbuf[7] + '0');
+                dspbuf[8] = (int8_t)(dspbuf[8] + '0');
                 dspbuf[9] = ' ';
                 dspbuf[10] = ocs;
@@ -529 +529 @@
         case 0:
 
-                ip->idhos1c = (ip->idhos1c & ~OC_SYN) | (t ? OC_SYN : 0);
+                ip->idhos1c = (int8_t)((ip->idhos1c & ~OC_SYN) | (t ? OC_SYN : 0));
                 break;
 
         case 1:
 
-                ip->idhos2c = (ip->idhos2c & ~OC_SYN) | (t ? OC_SYN : 0);
+                ip->idhos2c = (int8_t)((ip->idhos2c & ~OC_SYN) | (t ? OC_SYN : 0));
                 break;
 
         case 2:
 
-                ip->idhos3c = (ip->idhos3c & ~OC_SYN) | (t ? OC_SYN : 0);
+                ip->idhos3c = (int8_t)((ip->idhos3c & ~OC_SYN) | (t ? OC_SYN : 0));
                 break;
 
@@ -632 +632 @@
                         } else {
 
-                                ebuf[stccol - 41] = k + '0';
+                                ebuf[stccol - 41] = (int8_t)(k + '0');
                         }
 
-                        dspbuf[0] = (k > 9) ? k : (k + '0');
+                        dspbuf[0] = (int8_t)((k > 9) ? k : (k + '0'));
                         dspbuf[1] = '\0';
 
@@ -656 +656 @@
                                 if (k) {
 
-                                        ebuf[0] = dspbuf[0] = k + '0';
+                                        ebuf[0] = dspbuf[0] = (int8_t)(k + '0');
                                         dspbuf[1] = '\0';
 
@@ -677 +677 @@
                                 if (k) {
 
-                                        ebuf[2] = dspbuf[0] = k + '0';
+                                        ebuf[2] = dspbuf[0] = (int8_t)(k + '0');
                                         dspbuf[1] = '\0';
 
@@ -700 +700 @@
                                 return(FAILURE);
 
-                        ebuf[stccol - 40] = k + '0';
-                        dspbuf[0] = k + '0';
+                        ebuf[stccol - 40] = (int8_t)(k + '0');
+                        dspbuf[0] = (int8_t)(k + '0');
                         dspbuf[1] = '\0';
 
@@ -726 +726 @@
                         case 40:
 
-                                ebuf[0] = k;
-                                dspbuf[0] = k + '0';
+                                ebuf[0] = (int8_t)k;
+                                dspbuf[0] = (int8_t)(k + '0');
                                 break;
 
@@ -735 +735 @@
                                         return(FAILURE);
 
-                                ebuf[1] = k;
-                                dspbuf[0] = k + 'A';
+                                ebuf[1] = (int8_t)k;
+                                dspbuf[0] = (int8_t)(k + 'A');
                                 break;
 
@@ -743 +743 @@
                                 if (k EQ 7) {           /* blank */
 
-                                        ebuf[2] = k;
+                                        ebuf[2] = (int8_t)k;
                                         dspbuf[0] = sfdsp[0];
                                         break;
@@ -749 +749 @@
                                 } else if (k EQ 8) {    /* flat */
 
-                                        ebuf[2] = k;
+                                        ebuf[2] = (int8_t)k;
                                         dspbuf[0] = sfdsp[1];
                                         break;
@@ -755 +755 @@
                                 } else if (k EQ 9) {    /* sharp */
 
-                                        ebuf[2] = k;
+                                        ebuf[2] = (int8_t)k;
                                         dspbuf[0] = sfdsp[2];
                                         break;
@@ -764 +764 @@
                         case 44:
 
-                                ebuf[stccol - 40] = k;
-                                dspbuf[0] = k + '0';
+                                ebuf[stccol - 40] = (int8_t)k;
+                                dspbuf[0] = (int8_t)(k + '0');
                                 break;
                         }

ram/etiosc.x

@@ -17 +17 @@
 
 extern  int16_t         ndvals[10];
-extern  int16_t         notes[];
+extern  int8_t          notes[];
 extern  int16_t         pitches[];
 extern  int16_t         ratio[100];
 extern  int8_t          sfdsp[];
-extern  int16_t         sharps[];
+extern  int8_t          sharps[];
 extern  int16_t         shrpflt[];