source: buchla-68k/ram/etadyn.c@ fa38804

/*
   =============================================================================
        etadyn.c -- MIDAS assignment editor -- dynamics to group field handlers
        Version 7 -- 1988-07-13 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "ram.h"

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

int16_t et_adyn(int16_t n)
{
        register int16_t grp;

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

        ebuf[0] = grpdyn[grp] + '0';
        ebuf[1] = '\0';

        ebflag = TRUE;

        return(SUCCESS);
}

/*
   =============================================================================
        setdyn() -- set dynamics for a group
   =============================================================================
*/

void setdyn(int16_t grp, int16_t dyn)
{
        register int16_t g, i, val;
        register int32_t ltmp;
        register uint16_t *fpu;
        register struct idfnhdr *fp;
        uint16_t fpmant, fpexp;
        int16_t oldsr;
        int16_t nop;

        grpdyn[grp] = dyn;
        val = dyntab[dyn];
        g = grp + 1;

        fpmant = (((int32_t)curintp & 0x0000FFF0L) *
                  ((int32_t)timemlt & 0x0000FFFFL)) >> 15;

        fpexp = expbit[curintp & 0x000F];


        for (i = 0; i < 12; i++)
                if (g EQ vce2grp[i]) {

                        fp = &vbufs[i].idhfnc[8];
                        fpu = io_fpu + FPU_OFNC + (i << 8) + 0x0080;

                        oldsr = setsr(0x2200);

/* ++++++++++++++++++++++++++++ FPU interrupts disabled +++++++++++++++++++++ */

                        fp->idftmd ^= I_NVBITS;
                        *(fpu + (int32_t)FPU_TMNT) = fpmant;
                        ++nop;  ++nop;  ++nop;
                        *(fpu + (int32_t)FPU_TEXP) = fpexp;
                        ++nop;  ++nop;  ++nop;

                        if (fp->idftmd & I_VNSUBN)
                                *(fpu + (int32_t)FPU_TNV1) = val;
                        else
                                *(fpu + (int32_t)FPU_TNV0) = val;

                        ++nop;  ++nop;  ++nop;

                        *(fpu + (int32_t)FPU_TCTL) =
                                (fp->idftmd & (I_NRATIO | I_NVBITS)) | 0x0001;

                        setsr(oldsr);

/* ++++++++++++++++++++++++++++ Interrupts restored +++++++++++++++++++++++++ */

                }
}

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

int16_t ef_adyn(int16_t n)
{
        register int16_t dyn, grp;

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

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

        dyn = ebuf[0] - '0';

        setdyn(grp, dyn);
        modasg();
        return(SUCCESS);
}

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

int16_t rd_adyn(int16_t nn)
{
        register int16_t n, grp;

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

        dspbuf[0] = grpdyn[grp] + '0';
        dspbuf[1] = '\0';

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

        return(SUCCESS);
}

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

int16_t nd_adyn(int16_t nn, int16_t k)
{
        register int16_t n;

        n = nn & 0xFF;

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

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

        return(SUCCESS);
}