source: buchla-68k/ram/etavgr.c@ 3ac8e1b

/*
   =============================================================================
        etavgr.c -- assignment editor - voice to group field handlers
        Version 9 -- 1988-03-18 -- D.N. Lynx Crowe
   =============================================================================
*/

#define DEBUGIT         0

#include "ram.h"

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

int16_t et_avgr(int16_t nn)
{
        register int16_t grp;
        int8_t buf[4];

        grp = 0x00FF & (nn >> 8);

        sprintf(ebuf, "%s", numblk(buf, vce2grp[grp]));
        ebflag = TRUE;

#if     DEBUGIT
        if (debugsw)
                printf("et_avgr($%04.4X):  ebuf=[%s]\n", nn, ebuf);
#endif

        return(SUCCESS);
}

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

int16_t ef_avgr(int16_t nn)
{
        register int16_t tmpval, vce, i;

        vce = 0x00FF & (nn >> 8);

        ebuf[2] = '\0';                 /* terminate the string in ebuf */
        ebflag = FALSE;
        tmpval = 0;

#if     DEBUGIT
        if (debugsw)
                printf("ef_avgr($%04.4X):  ebuf=[%s]\n", nn, ebuf);
#endif

        if ((ebuf[0] EQ ' ') AND (ebuf[1] EQ ' ')) {

                tmpval = -1;

        } else {

                for (i = 0; i < 2; i++) {

                        if (ebuf[i] EQ ' ')
                                ebuf[i] = '0';

                        tmpval = (tmpval * 10) + (ebuf[i] - '0');
                }

                if ((tmpval EQ 0) OR (tmpval GT 12))
                        return(FAILURE);
        }

        vce2grp[vce] = tmpval;

        if (tmpval > 0)
                execins(vce, (ins2grp[tmpval - 1] & 0x00FF), 1);

        modasg();
        return(SUCCESS);
}

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

int16_t rd_avgr(int16_t nn)
{
        register int16_t n, grp;
        int8_t buf[4];

        n = 0x00FF & nn;
        grp = 0x00FF & (nn >> 8);

        vbank(0);
        vcputsv(asgob, 64, adbox[n][4], adbox[n][5],
                cfetp->frow, cfetp->flcol, numblk(buf, vce2grp[grp]), 14);

        return(SUCCESS);
}

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

int16_t nd_avgr(int16_t nn, int16_t k)
{
        register int16_t n, col;

        n = nn & 0xFF;
        col = stccol - cfetp->flcol;

        ebuf[col] = k + '0';
        ebuf[2] = '\0';

#if     DEBUGIT
        if (debugsw)
                printf("nd_avgr($%04.4X, %d):  cfetp=$%08.8lX, col=%d, ebuf=[%s]\n",
                        nn, k, cfetp, col, ebuf);
#endif

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

        vbank(0);
        vcputsv(asgob, 64, AK_ENTRY, adbox[n][5], stcrow, stccol, dspbuf, 14);

        advacur();
        return(SUCCESS);
}