source: buchla-68k/ram/etitim.c@ 1d174fb

/*
   =============================================================================
        etitim.c -- instrument editor - time field handlers
        Version 14 -- 1987-12-09 -- D.N. Lynx Crowe
   =============================================================================
*/

#define DEBUGIT         0

#include "ram.h"

/*
   =============================================================================
        et_itim() -- load the edit buffer
   =============================================================================
*/

int16_t et_itim(int16_t n)
{
        register int16_t th, tl;
        register int32_t tt, sc;

        (void)n;

        pntsel();               /* make sure edit limits are current */

        sc = 1000L;
        tt = timeto(curfunc, subj);
        th = tt / sc;
        tl = tt - (th * sc);

        sprintf(ebuf, "%02d.%03d", th, tl);
        ebflag = TRUE;
#if DEBUGIT
        printf("et_itim(): voice=%d, func=%d, pnt=%d, ebuf=[%s]\r\n",
                curvce, curfunc, curpnt, ebuf);
        printf("et_itim(): npts=%d, subj=%d, case=%d, min=%d, max=%d\r\n",
                npts, subj, pecase, temin, temax);
#endif
        return(SUCCESS);
}

/*
   =============================================================================
        ef_itim() -- parse (unload) the edit buffer
   =============================================================================
*/

int16_t ef_itim(int16_t n)
{
        register int16_t i;
        register uint16_t tmpval;

        (void)n;

        ebuf[2] = '.';                  /* add implied decimal point */
        ebuf[6] = '\0';                 /* terminate the string in ebuf */
        ebflag = FALSE;
#if DEBUGIT
        printf("ef_itim():  voice=%d, func=%d, ebuf=[%s]\r\n",
                curvce, curfunc, ebuf);
#endif
        tmpval = 0;

        for (i = 0; i < 2; i++)         /* convert from ASCII to binary */
                tmpval = (tmpval * 10) + (ebuf[i] - '0');

        for (i = 3; i < 6; i++)
                tmpval = (tmpval * 10) + (ebuf[i] - '0');
#if DEBUGIT
        printf("ef_itim(): subj=%d, case=%d, min=%d, val=%d, max=%d\r\n",
                subj, pecase, temin, tmpval, temax);
#endif
        if (tmpval > (uint16_t)temax)
                return(FAILURE);

        if (tmpval < (uint16_t)temin)
                return(FAILURE);

        setseg(subj, tmpval);

        if (pecase EQ 2)
                setseg(subj + 1, temax);
#if DEBUGIT
        printf("ef_itim():  SUCCESS   time %d set at point %d <%d> = %d\r\n",
                tmpval, subj, curpnt, timeto(curfunc, subj));
#endif
        modinst();
        return(SUCCESS);
}

/*
   =============================================================================
        rd_itim() -- (re)display the field
   =============================================================================
*/

int16_t rd_itim(int16_t n)
{
        register int16_t th, tl;
        register int32_t tt, sc;

        sc = 1000L;
        tt = timeto(curfunc, subj);
        th = tt / sc;
        tl = tt - (th * sc);

        sprintf(dspbuf, "%02d.%03d", th, tl);   /* convert to ASCII */

        vbank(0);                       /* display the value */

        vcputsv(instob, 64, idbox[n][4], idbox[n][5],
                idbox[n][6] + 1, idbox[n][7], dspbuf, 14);

        edfunc(curfunc);
        return(SUCCESS);
}

/*
   =============================================================================
        nd_itim() -- handle new data entry
   =============================================================================
*/

int16_t nd_itim(int16_t n, int16_t k)
{
        register int16_t ec;

        ec = stccol - cfetp->flcol;     /* setup edit buffer column */

        if (ec EQ 2)
                return(FAILURE);

        ebuf[ec] = k + '0';
        ebuf[2] = '.';
        ebuf[6] = '\0';

        dspbuf[0] = k + '0';
        dspbuf[1] = '\0';

        vbank(0);

        vcputsv(instob, 64, ID_ENTRY, idbox[n][5],
                idbox[n][6] + 1, stccol, dspbuf, 14);

        advicur();

        if (stccol EQ (idbox[n][7] + 2))
                advicur();

        return(SUCCESS);
}