Changeset 494d8ff in buchla-68k for ram


Ignore:
Timestamp:
11/11/2017 09:28:42 PM (7 years ago)
Author:
Thomas Lopatic <thomas@…>
Branches:
master
Children:
3ac8e1b
Parents:
6099cac
Message:

Fixed libdsp.c.

Location:
ram
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • ram/lcdlbls.c

    r6099cac r494d8ff  
    616616                if (ltagged) {  /* cancel tag mode */
    617617
    618                         dslslot(tagslot, exp_c(LCFBX01), loadrow);
     618                        dslslot(tagslot, LCFBX01, loadrow);
    619619                        ltagged = FALSE;
    620620                }

  • ram/ldfield.c

    r6099cac r494d8ff  
    158158                                /* select file to delete */
    159159
    160                                 dslslot(ldslot, exp_c(LD_DELC), ldrow);
     160                                dslslot(ldslot, LD_DELC, ldrow);
    161161                                ldelsw = TRUE;
    162162                                return; /* SUCCESS */
    … …  
    394394        ltagged = TRUE;
    395395
    396         dslslot(slot, exp_c(LD_SELC), row);
     396        dslslot(slot, LD_SELC, row);
    397397        return;
    398398}

  • ram/ldselbx.c

    r6099cac r494d8ff  
    224224                } else {
    225225
    226                         dslslot(ldslot, exp_c(ldbox[1][4]), ldrow);
     226                        dslslot(ldslot, ldbox[1][4], ldrow);
    227227                }
    228228        }
    … …  
    290290                rc = TRUE;
    291291                ldelsw = FALSE;
    292                 dslslot(ldslot, exp_c(ldbox[1][4]), ldrow);
     292                dslslot(ldslot, ldbox[1][4], ldrow);
    293293        }
    294294
    … …  
    746746                                                        return(ndx_scr(ldslot));
    747747
    748                                                 dslslot(ldslot, exp_c(LD_SELC), ldrow);
     748                                                dslslot(ldslot, LD_SELC, ldrow);
    749749                                                return(SUCCESS);
    750750                                        }

  • ram/libdsp.c

    r6099cac r494d8ff  
    174174*/
    175175
    176 void ldwmsg(int8_t *line1, int8_t *line2, int8_t *line3, uint16_t fgcolor, uint16_t bgcolor)
     176void ldwmsg(int8_t *line1, int8_t *line2, int8_t *line3, int16_t fgcolor, int16_t bgcolor)
    177177{
    178178        lderrsw = FALSE;                /* clear error switch */
    … …  
    183183                return;
    184184
    185         bgcolor = exp_c(bgcolor);       /* expand background color */
    186         fgcolor = exp_c(fgcolor);       /* expand foreground color */
    187 
    188185        if (v_regs[5] & 0x0180)
    189186                vbank(0);
    … …  
    192189
    193190        vbfill4(librob, 128, ldbox[10][0], ldbox[10][1],
    194                 ldbox[10][2], ldbox[10][3], bgcolor);
     191                ldbox[10][2], ldbox[10][3], exp_c(bgcolor));
    195192
    196193        if ((int8_t *)NULL NE line1)
    … …  
    413410        clmask = _thebpb->clsizb - 1;
    414411
    415         rclusts = (bytes / _thebpb->clsizb)
     412        rclusts = (int16_t)(bytes / _thebpb->clsizb)
    416413                  + ((bytes & clmask) ? 1 : 0);
    417414
    … …  
    436433        case FT_ASG:    /* Assignment file */
    437434
    438                 k = (sizeof (struct asgent) * (int32_t)NASGLIB) + LH_LEN;
     435                k = (sizeof (struct asgent) * (int32_t)NASGLIB) + (int32_t)LH_LEN;
    439436                break;
    440437
    … …  
    443440        case FT_ORC:
    444441
    445                 k = ((OR_LEN1 + (2 * OR_LEN2)) * (int32_t)NINORC) + LH_LEN;
     442                k = ((OR_LEN1 + (2 * OR_LEN2)) * (int32_t)NINORC) + (int32_t)LH_LEN;
    446443                break;
    447444
    448445        case FT_PAT:    /* Patch file */
    449446
    450                 k = ptsizer() + LH_LEN;
     447                k = ptsizer() + (int32_t)LH_LEN;
    451448                break;
    452449
    453450        case FT_SCR:    /* Score file */
    454451
    455                 k = scsizer() + LH_LEN;
     452                k = scsizer() + (int32_t)LH_LEN;
    456453                break;
    457454
    458455        case FT_SEQ:    /* Sequence file */
    459456
    460                 k = sqsizer() + LH_LEN;
     457                k = sqsizer() + (int32_t)LH_LEN;
    461458                break;
    462459
    463460        case FT_TUN:    /* Tuning file */
    464461
    465                 k = (NTUNSLIB * 256L) + (NTUNSLIB * 32L) + LH_LEN;
     462                k = (NTUNSLIB * 256L) + (NTUNSLIB * 32L) + (int32_t)LH_LEN;
    466463                break;
    467464
    468465        case FT_WAV:    /* Waveshape file */
    469466
    470                 k = ((int32_t)NUMWAVS * OR_LEN2) + LH_LEN;
     467                k = ((int32_t)NUMWAVS * OR_LEN2) + (int32_t)LH_LEN;
    471468                break;
    472469
    … …  
    746743*/
    747744
    748 void dslslot(int16_t slot, uint16_t fg, int16_t row)
    749 {
    750         register uint16_t color, chilon, chilorc;
     745void dslslot(int16_t slot, int16_t fg, int16_t row)
     746{
     747        int16_t color, chilon, chilorc;
    751748        int16_t c;
    752749        int8_t buf[40];
    … …  
    755752                return;
    756753
    757         color   = exp_c(fg);            /* foreground color */
    758         chilon  = exp_c(ldbox[1][4]);
    759         chilorc = exp_c(HILORC);
     754        color   = fg;           /* foreground color */
     755        chilon  = ldbox[1][4];
     756        chilorc = HILORC;
    760757
    761758        /* file type */
    … …  
    798795int16_t showcat(void)
    799796{
    800         register int16_t fcslot, fcrow, fcount;
    801         register uint16_t color;
     797        int16_t fcslot, fcrow, fcount;
     798        uint16_t bg;
     799        int16_t fg;
    802800
    803801        if (ndisp NE 0)
    … …  
    806804        ldswin(0);                      /* fix up the title */
    807805
    808         color = exp_c(ldbox[1][5]);     /* background color */
     806        bg = exp_c(ldbox[1][5]);        /* background color */
    809807
    810808        if (v_regs[5] & 0x0180)
    … …  
    812810
    813811        vbfill4(librob, 128, ldbox[1][0], ldbox[1][1],
    814                 ldbox[1][2], ldbox[1][3], color);
    815 
    816         color = ldbox[1][4];            /* foreground color */
     812                ldbox[1][2], ldbox[1][3], bg);
     813
     814        fg = ldbox[1][4];               /* foreground color */
    817815
    818816        fcrow  = 1;
    … …  
    823821                if (ocslot(fcslot))  {
    824822
    825                         dslslot(fcslot, color, fcrow);
     823                        dslslot(fcslot, fg, fcrow);
    826824                        fcrow++;
    827825                        fcount++;
    … …  
    12951293void ldswin(int16_t n)
    12961294{
    1297         register int16_t cx, cy;
     1295        uint16_t cx;
     1296        int16_t cy;
    12981297
    12991298        if (ndisp NE 0)
    … …  
    13521351
    13531352                if (lrasw)
    1354                         cy = exp_c(LD_SELC);
     1353                        cy = LD_SELC;
    13551354                else
    13561355                        cy = ldbox[n][4];
    … …  
    13701369                            (ldkind EQ FT_ORL) OR
    13711370                            (ldkind EQ FT_ORH))
    1372                                 cy = exp_c(LD_SELC);
     1371                                cy = LD_SELC;
    13731372                        else
    13741373                                cy = ldbox[n][4];
    … …  
    13861385        case 9:         /* "Store" status */
    13871386
    1388                 cy = exp_c(lstrsw ? LD_SELC : ldbox[n][4]);
     1387                cy = lstrsw ? LD_SELC : ldbox[n][4];
    13891388                tsplot4(librob, 64, cy, 22, 10, "Store", 14);
    13901389
    1391                 cy = exp_c(lscrsw ? LD_SELC : ldbox[n][4]);
     1390                cy = lscrsw ? LD_SELC : ldbox[n][4];
    13921391                tsplot4(librob, 64, cy, 22, 17, "Score", 14);
    13931392
    1394                 cy = exp_c(lorchsw ? LD_SELC : ldbox[n][4]);
     1393                cy = lorchsw ? LD_SELC : ldbox[n][4];
    13951394                tsplot4(librob, 64, cy, 22, 24, "Hi Orch", 14);
    13961395
    13971396
    1398                 cy = exp_c(lwavsw ? LD_SELC : ldbox[n][4]);
     1397                cy = lwavsw ? LD_SELC : ldbox[n][4];
    13991398                tsplot4(librob, 64, cy, 23, 10, "Waves", 14);
    14001399
    1401                 cy = exp_c(lpatsw ? LD_SELC : ldbox[n][4]);
     1400                cy = lpatsw ? LD_SELC : ldbox[n][4];
    14021401                tsplot4(librob, 64, cy, 23, 17, "Patch", 14);
    14031402
    1404                 cy = exp_c(lorclsw ? LD_SELC : ldbox[n][4]);
     1403                cy = lorclsw ? LD_SELC : ldbox[n][4];
    14051404                tsplot4(librob, 64, cy, 23, 24, "Lo Orch", 14);
    14061405
    14071406
    1408                 cy = exp_c(lasgsw ? LD_SELC : ldbox[n][4]);
     1407                cy = lasgsw ? LD_SELC : ldbox[n][4];
    14091408                tsplot4(librob, 64, cy, 24, 10, "Assgn", 14);
    14101409
    1411                 cy = exp_c(lseqsw ? LD_SELC : ldbox[n][4]);
     1410                cy = lseqsw ? LD_SELC : ldbox[n][4];
    14121411                tsplot4(librob, 64, cy, 24, 17, "Seqnc", 14);
    14131412
    1414                 cy = exp_c(ltunsw ? LD_SELC : ldbox[n][4]);
     1413                cy = ltunsw ? LD_SELC : ldbox[n][4];
    14151414                tsplot4(librob, 64, cy, 24, 24, "Tunings", 14);
    14161415
    … …  
    14521451                vbank(0);
    14531452
    1454         vputp(ldoct, x, y, exp_c(pen));
     1453        vputp(ldoct, x, y, pen);
    14551454}
    14561455

  • ram/libdsp.x

    r6099cac r494d8ff  
    3434extern  void            clrcat(void);
    3535extern  int16_t         clreq(int32_t bytes);
    36 extern  void            dslslot(int16_t slot, uint16_t fg, int16_t row);
     36extern  void            dslslot(int16_t slot, int16_t fg, int16_t row);
    3737extern  uint16_t        exp_c(int16_t c);
    3838extern  int16_t         fcindex(void);
    … …  
    4747extern  void            ldpoint(int16_t x, int16_t y, int16_t pen);
    4848extern  void            ldswin(int16_t n);
    49 extern  void            ldwmsg(int8_t *line1, int8_t *line2, int8_t *line3, uint16_t fgcolor, uint16_t bgcolor);
     49extern  void            ldwmsg(int8_t *line1, int8_t *line2, int8_t *line3, int16_t fgcolor, int16_t bgcolor);
    5050extern  void            libdsp(void);
    5151extern  int16_t         lin2slt(int16_t line);
Note: See TracChangeset for help on using the changeset viewer.