source: buchla-68k/orig/RAM/ETITIM.C@ 0170798

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

#define DEBUGIT         0

#include "stddefs.h"
#include "fields.h"
#include "vsdd.h"
#include "vsddsw.h"
#include "graphdef.h"

#include "midas.h"
#include "instdsp.h"

extern  short   advicur(), edfunc(), pntsel();

extern  unsigned        *instob;

extern  short   stccol, subj, curvce, curfunc, curpnt;
extern  short   pecase, npts, temin, temax, pntsv;

extern  short   idbox[][8];

extern  char    dspbuf[];

extern  struct  instdef vbufs[];

extern  struct  instpnt *pntptr;

/* 

*/

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

short
et_itim(n)
short n;
{
        register short th, tl;
        register long tt, sc;

        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
   =============================================================================
*/

short
ef_itim(n)
short n;
{
        register short i, endpnt, basept;
        register unsigned tmpval;
        register struct idfnhdr *fp;
        register struct instdef *ip;

        ip = &vbufs[curvce];            /* set instrument pointer */
        fp = &ip->idhfnc[curfunc];      /* set function pointer */

        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 > (unsigned)temax)
                return(FAILURE);

        if (tmpval < (unsigned)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
   =============================================================================
*/

short
rd_itim(n)
short n;
{
        register short th, tl;
        register long 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
   =============================================================================
*/

short
nd_itim(n, k)
short n;
register short  k;
{
        register short 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);
}