Changeset 19caa64 in buchla-68k


Ignore:
Timestamp:
11/12/2017 06:00:49 PM (3 years ago)
Author:
Thomas Lopatic <thomas@…>
Branches:
master
Children:
3f2d518
Parents:
018d7ba
Message:

Fix sqselbx.c.

Location:
ram
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • ram/sqdisp.c

    r018d7ba r19caa64  
    1414#endif
    1515
    16 int16_t curslin;                        /* current sequence line */
    17 
    18 int8_t  sqhead[] =
     16int16_t         curslin;                /* current sequence line */
     17
     18int8_t          sqhead[] =
    1919
    2020        "\260 Lin Time  Action 1    Action 2    Action 3    \260 No Seq Rg T \260";
    2121
    22 int8_t  *sqmcon[] = {
     22int8_t          *sqmcon[] = {
    2323
    2424        "\260 Key transient  Trigger on   Stop         Set reg   Value    \260",
     
    2929};
    3030
    31 int16_t seqpal[16][3] = {               /* sequence display palette */
     31int16_t         seqpal[16][3] = {       /* sequence display palette */
    3232
    3333        {0, 0, 0},      /*  0 - black */
     
    4949};
    5050
    51 int16_t sqatype[] = {           /* sequence action types by box number */
     51uint16_t        sqatype[] = {           /* sequence action types by box number */
    5252
    5353        SQ_NULL,        /*      "           "   0 */
     
    7171};
    7272
    73 int8_t  *sqdsptb[] = {          /* sequence action display strings by action */
     73int8_t          *sqdsptb[] = {  /* sequence action display strings by action */
    7474
    7575        "           ",          /* SQ_NULL      0x0000  null action */
  • ram/sqdisp.x

    r018d7ba r19caa64  
    1717extern  int16_t         curslin;
    1818extern  int16_t         seqpal[16][3];
    19 extern  int16_t         sqatype[];
     19extern  uint16_t        sqatype[];
    2020extern  int8_t          *sqdsptb[];
    2121extern  int8_t          sqhead[];
  • ram/sqselbx.c

    r018d7ba r19caa64  
    2222struct seqent   seqbuf;                 /* sequence line buffer */
    2323
    24 int8_t  sqhilit[][8] = {                /* submenu highlight table */
     24int8_t          sqhilit[][8] = {        /* submenu highlight table */
    2525
    2626        /* start, width, row1, row2, row3, row4, row5, pad */
     
    4040};
    4141
    42 int8_t  sqopreq[] = {           /* action needs operand type flag table */
     42int8_t          sqopreq[] = {           /* action needs operand type flag table */
    4343
    4444        0,  0, 0, 0, 0,  0, 0, 0, 0,  1, 1, 1, 1,  0, 0, 0,  1
    4545};
    4646
    47 int8_t  nextact[] = {  24, 36, 6 };     /* next column after action entry */
    48 
    49 int16_t sqidata[] = {           /* intial data by box */
     47int8_t          nextact[] = {  24, 36, 6 };     /* next column after action entry */
     48
     49uint16_t        sqidata[] = {           /* intial data by box */
    5050
    5151        0x0000, /*      "           "   0 */
     
    6969};
    7070
    71 int8_t  actcol[] = {                    /* action data entry column by action */
     71int8_t          actcol[] = {            /* action data entry column by action */
    7272
    7373        0,  3, 3, 3, 3,  9, 9, 9, 9,  5, 5, 5, 5,  10, 8, 3,  5
    7474};
    7575
    76 int8_t  sqvcol[]  = { 9, 8, 9, 9 };     /* value entry column - type order */
    77 
    78 int8_t  seqvcol[] = { 8, 8, 9, 9, 9 };  /* value entry column - box order */
    79 
    80 int16_t sqndata[] = {                   /* data types in box order */
     76int8_t          sqvcol[]  = { 9, 8, 9, 9 };     /* value entry column - type order */
     77
     78int8_t          seqvcol[] = { 8, 8, 9, 9, 9 };  /* value entry column - box order */
     79
     80uint16_t        sqndata[] = {           /* data types in box order */
    8181
    8282        SQ_VAL, SQ_REG, SQ_VLT, SQ_RND
     
    209209        register int32_t ltemp;
    210210        register uint16_t *ap, *dp;
    211         uint16_t theact, port, chan, key, val, obj, dtype;
     211        int16_t theact, port, chan, key, val, obj, dtype;
    212212
    213213        switch (action) {
     
    260260                }
    261261
    262                 key = ltemp - 1;
     262                key = (int16_t)(ltemp - 1);
    263263
    264264                i = sqdebuf[lcol + 7];
     
    287287                }
    288288
    289                 chan = ltemp - 1;
    290                 *dp = (port << 11) | (chan << 7) | key;
     289                chan = (int16_t)(ltemp - 1);
     290                *dp = ((uint16_t)port << 11) | ((uint16_t)chan << 7) |
     291                                (uint16_t)key;
    291292
    292293                break;
     
    305306                }
    306307
    307                 *dp = ltemp - 1;
     308                *dp = (uint16_t)(ltemp - 1);
    308309
    309310                break;
     
    323324                        ltemp = (ltemp * 10) + (sqdebuf[i] - '0');
    324325
    325                 *dp = ltemp;
     326                *dp = (uint16_t)ltemp;
    326327
    327328                break;
     
    344345                }
    345346
    346                 obj = ltemp - 1;
     347                obj = (int16_t)(ltemp - 1);
    347348
    348349                switch (dtype) {
     
    359360                        }
    360361
    361                         val = ltemp - 1;
     362                        val = (int16_t)(ltemp - 1);
    362363                        break;
    363364
     
    389390                        val |= 0x1000;
    390391
    391                 *ap = (*ap & SQ_MACT) | (obj << 8);
    392                 *dp = (*dp & SQ_MTYP) | val;
     392                *ap = (*ap & SQ_MACT) | ((uint16_t)obj << 8);
     393                *dp = (*dp & SQ_MTYP) | (uint16_t)val;
    393394
    394395                break;
     
    432433                                ltemp = (ltemp * 10) + (sqdebuf[i] - '0');
    433434
    434                         curslin = ltemp;
     435                        curslin = (int16_t)ltemp;
    435436                        sqdeflg = FALSE;
    436437                        dstw();
     
    448449                                ltemp = (ltemp * 10) + (sqdebuf[i] - '0');
    449450
    450                         seqtab[curslin].seqtime = ltemp;
    451                         seqbuf.seqtime = ltemp;
     451                        seqtab[curslin].seqtime = (uint16_t)ltemp;
     452                        seqbuf.seqtime = (uint16_t)ltemp;
    452453                        dsqlin(sqdebuf, curslin);
    453454                        sqdeflg = TRUE;
  • ram/sqselbx.x

    r018d7ba r19caa64  
    2626extern  int16_t         sqdeflg;
    2727extern  int8_t          sqhilit[][8];
    28 extern  int16_t         sqidata[];
     28extern  uint16_t        sqidata[];
    2929extern  int16_t         sqmenu;
    30 extern  int16_t         sqndata[];
     30extern  uint16_t        sqndata[];
    3131extern  int8_t          sqopreq[];
    3232extern  int8_t          sqvcol[];
Note: See TracChangeset for help on using the changeset viewer.