/*
   =============================================================================
	etmcfn.c -- instrument editor - ws/cf menu field handlers
	Version 7 -- 1988-08-26 -- D.N. Lynx Crowe
   =============================================================================
*/

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

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

#include "memory.h"
#include "stdio.h"

extern void advicur(void);
extern void dosync(int16_t vce);

extern	uint16_t	*instob;

extern	int16_t	curvce;
extern	int16_t	stccol;
extern	int16_t	stcrow;
extern	int16_t	wmcsel;
extern	int16_t	wmctag;

extern	int8_t	dspbuf[];

extern	int16_t	idbox[][8];

extern	struct	instdef	vbufs[];

extern	struct	wstbl	wslib[];

/* 
*/

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

int16_t et_mcfn(int16_t n)
{
	sprintf(ebuf, "%02d", vbufs[curvce].idhcfg);
	ebflag = TRUE;

	return(SUCCESS);
}

/* 
*/

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

int16_t ef_mcfn(int16_t n)
{
	register int16_t tmpval;

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

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

	if (tmpval GE NUMCFG)		/* check against limit */
		return(FAILURE);

	vbufs[curvce].idhcfg = tmpval;
	dosync(curvce);
	wmctag = TRUE;
	return(SUCCESS);
}

/* 
*/

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

int16_t rd_mcfn(int16_t n)
{
	sprintf(dspbuf, "%02d", vbufs[curvce].idhcfg);

	if (v_regs[5] & 0x0180)
		vbank(0);

	vcputsv(instob, 64, CFBX18, CBBX18, 24, 16, dspbuf, 14);

	return(SUCCESS);
}

/* 
*/

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

int16_t nd_mcfn(int16_t n, int16_t k)
{
	register int16_t ec, c;

	ec = stccol - cfetp->flcol;	/* setup edit buffer column */
	ebuf[ec] = k + '0';		/* enter new data in buffer */
	ebuf[2] = '\0';			/* make sure string is terminated */

	dspbuf[0] = k + '0';		/* setup for display */
	dspbuf[1] = '\0';

	if (v_regs[5] & 0x0180)
		vbank(0);

	/* display the new data */

	vcputsv(instob, 64, ID_ENTRY, CBBX18, stcrow, stccol, dspbuf, 14);

	advicur();			/* advance cursor */

	return(SUCCESS);
}

/* 
*/

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

int16_t et_mwsn(int16_t nn)
{
	wmcsel = (nn & 0xFF00) ? 1 : 0;

	sprintf(ebuf, "%02d", 1 + (wmcsel ? vbufs[curvce].idhwsb
		: vbufs[curvce].idhwsa));

	ebflag = TRUE;

	return(SUCCESS);
}

/* 
*/

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

int16_t ef_mwsn(int16_t nn)
{
	register int16_t tmpval;
	register int16_t *fpuws;

	wmcsel = (nn & 0xFF00) ? 1 : 0;

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

	/* convert from ASCII to binary */

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

	if ((tmpval < 1) OR (tmpval > NUMWAVS))
		return(FAILURE);
/* 
*/
	if (wmcsel) {

		/* slot B */
		vbufs[curvce].idhwsb = tmpval - 1;

		memcpyw(vbufs[curvce].idhwvbf, &wslib[tmpval - 1],
			NUMHARM + (2 * NUMWPNT));

		fpuws = io_fpu + FPU_OWST + (curvce << 9) + 1;

		memcpyw(fpuws, vbufs[curvce].idhwvbf, NUMWPNT);

		*(fpuws - 1) = vbufs[curvce].idhwvbf[0];
		*(fpuws + NUMWPNT) = vbufs[curvce].idhwvbf[NUMWPNT - 1];

	} else {

		/* slot A */

		vbufs[curvce].idhwsa = tmpval - 1;

		memcpyw(vbufs[curvce].idhwvaf, &wslib[tmpval - 1],
			NUMHARM + (2 * NUMWPNT));

		fpuws = io_fpu + FPU_OWST + (curvce << 9) + 0x100 + 1;

		memcpyw(fpuws, vbufs[curvce].idhwvaf, NUMWPNT);

		*(fpuws - 1) = vbufs[curvce].idhwvaf[0];
		*(fpuws + NUMWPNT) = vbufs[curvce].idhwvaf[NUMWPNT - 1];
	}

	wmctag = TRUE;
	return(SUCCESS);
}

/* 
*/

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

int16_t rd_mwsn(int16_t nn)
{
	wmcsel = (nn & 0xFF00) ? 1 : 0;

	sprintf(dspbuf, "%02d", 1 + (wmcsel ? vbufs[curvce].idhwsb
			: vbufs[curvce].idhwsa));

	if (v_regs[5] & 0x0180)
		vbank(0);

	vcputsv(instob, 64, CFBX23, CBBX23, 24, wmcsel ? 16 : 12, dspbuf, 14);

	return(SUCCESS);
}

/* 
*/

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

int16_t nd_mwsn(int16_t nn, int16_t k)
{
	register int16_t ec, c;

	ec = stccol - cfetp->flcol;	/* setup edit buffer column */
	ebuf[ec] = k + '0';		/* enter new data in buffer */
	ebuf[2]  = '\0';		/* make sure string is terminated */

	dspbuf[0] = k + '0';		/* setup for display */
	dspbuf[1] = '\0';

	if (v_regs[5] & 0x0180)
		vbank(0);			/* display the new data */

	vcputsv(instob, 64, ID_ENTRY, CBBX23, stcrow, stccol, dspbuf, 14);

	advicur();			/* advance cursor */

	return(SUCCESS);
}