/*****************************************************************************
 * pce                                                                       *
 *****************************************************************************/

/*****************************************************************************
 * File name:   src/lib/monitor.c                                            *
 * Created:     2006-12-13 by Hampa Hug <hampa@hampa.ch>                     *
 * Copyright:   (C) 2006-2024 Hampa Hug <hampa@hampa.ch>                     *
 *****************************************************************************/

/*****************************************************************************
 * This program is free software. You can redistribute it and / or modify it *
 * under the terms of the GNU General Public License version 2 as  published *
 * by the Free Software Foundation.                                          *
 *                                                                           *
 * This program is distributed in the hope  that  it  will  be  useful,  but *
 * WITHOUT  ANY   WARRANTY,   without   even   the   implied   warranty   of *
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General *
 * Public License for more details.                                          *
 *****************************************************************************/


#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>

#include <lib/monitor.h>
#include <lib/cmd.h>
#include <lib/console.h>
#include <lib/ihex.h>
#include <lib/mhex.h>
#include <lib/srec.h>
#include <lib/thex.h>


#define MON_FORMAT_NONE   0
#define MON_FORMAT_BINARY 1
#define MON_FORMAT_IHEX   2
#define MON_FORMAT_MHEX   3
#define MON_FORMAT_SREC   4
#define MON_FORMAT_THEX   5


static mon_cmd_t par_cmd[] = {
	{ "di", "name [drive] [ro] [rw]", "insert a disk" },
	{ "d", "[addr [cnt]]", "dump memory" },
	{ "e", "addr [val|string...]", "enter bytes into memory" },
	{ "f", "addr cnt [val...]", "find bytes in memory" },
	{ "h", "", "print help" },
	{ "load", "name [fmt] [a [n]]", "read a file into memory" },
	{ "mem", "[ro|rw]", "set memory ro or rw" },
	{ "m", "msg [val]", "send a message to the emulator core" },
	{ "q", "", "quit" },
	{ "save", "name [fmt] [a n...]", "write memory to a file" },
	{ "v", "[expr...]", "evaluate expressions" },
	{ "y", "src dst cnt", "copy memory" }
};

static mon_cmd_t par_cmd_bp[] = {
	{ "bc", "[index]", "clear a breakpoint or all" },
	{ "bl", "", "list breakpoints" },
	{ "bs", "addr [pass [reset]]", "set an address breakpoint [pass=1 reset=0]" },
	{ "bsx", "expr [pass [reset]]", "set an expression breakpoint [pass=1 reset=0]" }
};


void mon_init (monitor_t *mon)
{
	mon->cmdext = NULL;
	mon->docmd = NULL;

	mon->msgext = NULL;
	mon->setmsg = NULL;

	mon->get_mem8_ext = NULL;
	mon->get_mem8 = NULL;

	mon->set_mem8_ext = NULL;
	mon->set_mem8 = NULL;

	mon->set_mem8rw_ext = NULL;
	mon->set_mem8rw = NULL;

	mon->memory_mode = 0;

	mon->default_seg = 0;

	mon->last_addr = 0;
	mon->last_ofs = 0;

	mon->cmd_cnt = 0;
	mon->cmd = NULL;

	mon->rw = 0;
	mon->terminate = 0;
	mon->prompt = NULL;

	mon_cmd_add (mon, par_cmd, sizeof (par_cmd) / sizeof (par_cmd[0]));
}

void mon_free (monitor_t *mon)
{
	free (mon->cmd);
}

monitor_t *mon_new (void)
{
	monitor_t *mon;

	mon = malloc (sizeof (monitor_t));
	if (mon == NULL) {
		return (NULL);
	}

	mon_init (mon);

	return (mon);
}

void mon_del (monitor_t *mon)
{
	if (mon != NULL) {
		mon_free (mon);
		free (mon);
	}
}

void mon_set_cmd_fct (monitor_t *mon, void *fct, void *ext)
{
	mon->cmdext = ext;
	mon->docmd = fct;
}

void mon_set_msg_fct (monitor_t *mon, void *fct, void *ext)
{
	mon->msgext = ext;
	mon->setmsg = fct;
}

void mon_set_get_mem_fct (monitor_t *mon, void *ext, void *fct)
{
	mon->get_mem8_ext = ext;
	mon->get_mem8 = fct;
}

void mon_set_set_mem_fct (monitor_t *mon, void *ext, void *fct)
{
	mon->set_mem8_ext = ext;
	mon->set_mem8 = fct;
}

void mon_set_set_memrw_fct (monitor_t *mon, void *ext, void *fct)
{
	mon->set_mem8rw_ext = ext;
	mon->set_mem8rw = fct;
}

void mon_set_memory_mode (monitor_t *mon, unsigned mode)
{
	mon->memory_mode = mode;
}

void mon_set_terminate (monitor_t *mon, int val)
{
	mon->terminate = (val != 0);
}

void mon_set_prompt (monitor_t *mon, const char *str)
{
	mon->prompt = str;
}

static
unsigned char mon_get_mem8 (monitor_t *mon, unsigned long addr)
{
	if (mon->get_mem8 != NULL) {
		return (mon->get_mem8 (mon->get_mem8_ext, addr));
	}

	return (0);
}

static
void mon_set_mem8 (monitor_t *mon, unsigned long addr, unsigned char val)
{
	if (mon->rw) {
		if (mon->set_mem8rw != NULL) {
			mon->set_mem8rw (mon->set_mem8_ext, addr, val);
		}
	}
	else {
		if (mon->set_mem8 != NULL) {
			mon->set_mem8 (mon->set_mem8_ext, addr, val);
		}
	}
}

#if 0
static
int mon_set_msg (monitor_t *mon, const char *msg, const char *val)
{
	if (mon->setmsg != NULL) {
		return (mon->setmsg (mon->msgext, msg, val));
	}

	return (1);
}

static
int mon_get_msg (monitor_t *mon, const char *msg, char *val, unsigned max)
{
	if (mon->getmsg != NULL) {
		return (mon->getmsg (mon->msgext, msg, val, max));
	}

	return (1);
}
#endif

static
const char *mon_get_ext (const char *src)
{
	const char *ext;

	ext = src;

	while (*src != 0) {
		if (*src == '.') {
			ext = src + 1;
		}

		src += 1;
	}

	return (ext);
}

static
unsigned mon_guess_format (const char *fname)
{
	const char *ext;

	ext = mon_get_ext (fname);

	if (strcasecmp (ext, "bin") == 0) {
		return (MON_FORMAT_BINARY);
	}
	else if (strcasecmp (ext, "ihex") == 0) {
		return (MON_FORMAT_IHEX);
	}
	else if (strcasecmp (ext, "ihx") == 0) {
		return (MON_FORMAT_IHEX);
	}
	else if (strcasecmp (ext, "hex") == 0) {
		return (MON_FORMAT_IHEX);
	}
	else if (strcasecmp (ext, "mhex") == 0) {
		return (MON_FORMAT_MHEX);
	}
	else if (strcasecmp (ext, "srec") == 0) {
		return (MON_FORMAT_SREC);
	}
	else if (strcasecmp (ext, "thex") == 0) {
		return (MON_FORMAT_THEX);
	}

	return (MON_FORMAT_BINARY);
}

static
int mon_match_format (monitor_t *mon, cmd_t *cmd, unsigned *fmt)
{
	if (cmd_match (cmd, "bin")) {
		*fmt = MON_FORMAT_BINARY;
	}
	else if (cmd_match (cmd, "ihex")) {
		*fmt = MON_FORMAT_IHEX;
	}
	else if (cmd_match (cmd, "mhex")) {
		*fmt = MON_FORMAT_MHEX;
	}
	else if (cmd_match (cmd, "srec")) {
		*fmt = MON_FORMAT_SREC;
	}
	else if (cmd_match (cmd, "thex")) {
		*fmt = MON_FORMAT_THEX;
	}
	else {
		*fmt = MON_FORMAT_NONE;
		return (0);
	}

	return (1);
}

static
int mon_match_address (monitor_t *mon, cmd_t *cmd, unsigned long *addr, unsigned short *seg, unsigned short *ofs)
{
	unsigned short tseg, tofs;

	if (mon->memory_mode == 0) {
		if (!cmd_match_uint32 (cmd, addr)) {
			return (0);
		}

		tseg = *addr >> 4;
		tofs = *addr & 0x0f;
	}
	else {
		tseg = mon->default_seg;

		if (!cmd_match_uint16_16 (cmd, &tseg, &tofs)) {
			return (0);
		}

		mon->default_seg = tseg;

		*addr = ((unsigned long) tseg << 4) + tofs;
	}

	if (seg != NULL) {
		*seg = tseg;
	}

	if (ofs != NULL) {
		*ofs = tofs;
	}

	return (1);
}

int mon_cmd_add (monitor_t *mon, const mon_cmd_t *cmd, unsigned cnt)
{
	unsigned  i;
	mon_cmd_t *c;

	c = realloc (mon->cmd, (mon->cmd_cnt + cnt) * sizeof (mon_cmd_t));

	if (c == NULL) {
		return (1);
	}

	mon->cmd = c;

	while (cnt > 0) {
		i = mon->cmd_cnt;

		while (i > 0) {
			if (strcmp (cmd->cmd, c[i - 1].cmd) >= 0) {
				break;
			}

			c[i] = c[i - 1];

			i -= 1;
		}

		c[i] = *cmd;

		mon->cmd_cnt += 1;

		cmd += 1;
		cnt -= 1;
	}

	return (0);
}

int mon_cmd_add_bp (monitor_t *mon)
{
	return (mon_cmd_add (mon, par_cmd_bp, sizeof (par_cmd_bp) / sizeof (par_cmd_bp[0])));
}

/*
 * di - disk insert
 */
static
void mon_cmd_di (monitor_t *mon, cmd_t *cmd)
{
	int      have_drive, ro;
	unsigned drive;
	char     name[256], str[128];

	if (mon->setmsg == NULL) {
		cmd_error (cmd, "monitor: no message function\n");
		return;
	}

	have_drive = 0;
	ro = 0;

	if (cmd_match_str (cmd, name, sizeof (name)) == 0) {
		cmd_error (cmd, "need a file name\n");
		return;
	}

	while (1) {
		if (cmd_match (cmd, "ro")) {
			ro = 1;
		}
		else if (cmd_match (cmd, "rw")) {
			ro = 0;
		}
		else if (cmd_match_uint (cmd, &drive, 10)) {
			have_drive = 1;
		}
		else {
			break;
		}
	}

	if (!cmd_match_end (cmd)) {
		return;
	}

	if (have_drive) {
		sprintf (str, "%u", drive);

		if (mon->setmsg (mon->msgext, "disk.id", str)) {
			return;
		}
	}

	if (mon->setmsg (mon->msgext, "disk.insert", name)) {
		return;
	}

	if (ro) {
		if (mon->setmsg (mon->msgext, "disk.ro", NULL)) {
			return;
		}
	}
}

/*
 * d - dump memory
 */
static
void mon_cmd_d (monitor_t *mon, cmd_t *cmd)
{
	unsigned       i, j;
	unsigned long  addr, addr2, cnt;
	unsigned short ofs;
	unsigned long  p1, p2, o1;
	unsigned char  val, val1, val2;
	char           str1[64], str2[32];

	addr = mon->last_addr;
	ofs = mon->last_ofs;
	cnt = 256;

	if (mon_match_address (mon, cmd, &addr, NULL, &ofs)) {
		cmd_match_uint32 (cmd, &cnt);
	}

	if (!cmd_match_end (cmd)) {
		return;
	}

	if (cnt == 0) {
		return;
	}

	addr2 = (addr + cnt - 1) & 0xffffffff;

	if (addr2 < addr) {
		addr2 = 0xffffffff;
		cnt = addr2 - addr + 1;
	}

	p1 = addr & 0xfffffff0;
	p2 = (addr2 + 16) & 0xfffffff0;
	o1 = ofs & 0xfff0;

	while (p1 != p2) {
		i = p1 & 15;
		j = 3 * i;

		if (i == 0) {
			if (mon->memory_mode == 0) {
				pce_printf ("%08lX", p1);
			}
			else {
				pce_printf ("%04lX:%04lX", (p1 - o1) >> 4, o1);
			}
		}

		str1[j] = (i == 8) ? '-' : ' ';

		if ((p1 < addr) || (p1 > addr2)) {
			str1[j + 1] = ' ';
			str1[j + 2] = ' ';
			str2[i] = ' ';
		}
		else {
			val = mon_get_mem8 (mon, p1);

			val1 = (val >> 4) & 0x0f;
			val2 = val & 0x0f;

			str1[j + 1] = (val1 < 10) ? ('0' + val1) : ('A' + val1 - 10);
			str1[j + 2] = (val2 < 10) ? ('0' + val2) : ('A' + val2 - 10);

			if ((val >= 32) && (val <= 127)) {
				str2[i] = val;
			}
			else {
				str2[i] = '.';
			}
		}

		if (((p1 + 1) & 15) == 0) {
			str1[j + 3] = 0;
			str2[i + 1] = 0;

			pce_printf (" %s  %s\n", str1, str2);
		}

		p1 = (p1 + 1) & 0xffffffff;
		o1 = (o1 + 1) & 0xffff;
	}

	mon->last_addr = (addr + cnt) & 0xffffffff;
	mon->last_ofs = (ofs + cnt) & 0xffff;
}

/*
 * e - enter bytes into memory
 */
static
void mon_cmd_e (monitor_t *mon, cmd_t *cmd)
{
	unsigned       i;
	unsigned long  addr;
	unsigned short val;
	char           str[256];

	if (!mon_match_address (mon, cmd, &addr, NULL, NULL)) {
		cmd_error (cmd, "need an address");
		return;
	}

	while (1) {
		if (cmd_match_uint16 (cmd, &val)) {
			mon_set_mem8 (mon, addr, val);
			addr += 1;
		}
		else if (cmd_match_str (cmd, str, 256)) {
			i = 0;
			while (str[i] != 0) {
				mon_set_mem8 (mon, addr, str[i]);
				addr += 1;
				i += 1;
			}
		}
		else {
			break;
		}
	}

	cmd_match_end (cmd);
}

/*
 * f - find bytes in memory
 */
static
void mon_cmd_f (monitor_t *mon, cmd_t *cmd)
{
	unsigned       i, n;
	unsigned short seg, ofs;
	unsigned long  addr, cnt;
	unsigned short val;
	unsigned char  buf[256];
	char           str[256];

	if (!mon_match_address (mon, cmd, &addr, &seg, &ofs)) {
		cmd_error (cmd, "need an address");
		return;
	}

	if (!cmd_match_uint32 (cmd, &cnt)) {
		cmd_error (cmd, "need a byte count");
		return;
	}

	n = 0;

	while (n < 256) {
		if (cmd_match_uint16 (cmd, &val)) {
			buf[n++] = val;
		}
		else if (cmd_match_str (cmd, str, 256)) {
			i = 0;
			while ((n < 256) && (str[i] != 0)) {
				buf[n++] = str[i++];
			}
		}
		else {
			break;
		}
	}

	if (!cmd_match_end (cmd)) {
		return;
	}

	cnt = (cnt < n) ? 0 : (cnt - n);

	while (cnt > 0) {
		for (i = 0; i < n; i++) {
			if (mon_get_mem8 (mon, addr + i) != buf[i]) {
				break;
			}
		}

		if (i >= n) {
			if (mon->memory_mode == 0) {
				pce_printf ("%08lX\n", addr);
			}
			else {
				pce_printf ("%04X:%04X\n", seg, ofs);
			}
		}

		ofs = (ofs + 1) & 0xffff;

		if (ofs == 0) {
			seg += 0x1000;
		}

		addr += 1;

		cnt -= 1;
	}
}

/*
 * h - print help
 */
static
void mon_cmd_h (monitor_t *mon, cmd_t *cmd)
{
	unsigned i, w1, w2, t;

	w1 = 0;
	w2 = 0;

	for (i = 0; i < mon->cmd_cnt; i++) {
		if ((t = strlen (mon->cmd[i].cmd)) > w1) {
			w1 = t;
		}

		if ((t = strlen (mon->cmd[i].par)) > w2) {
			w2 = t;
		}
	}

	for (i = 0; i < mon->cmd_cnt; i++) {
		pce_puts (mon->cmd[i].cmd);

		t = strlen (mon->cmd[i].cmd);

		while (t <= w1) {
			pce_puts (" ");
			t += 1;
		}

		pce_puts (mon->cmd[i].par);

		t = strlen (mon->cmd[i].par);

		while (t <= (w2 + 1)) {
			pce_puts (" ");
			t += 1;
		}

		pce_puts (mon->cmd[i].text);
		pce_puts ("\n");
	}
}

/*
 * load - read memory from disk
 */
static
void mon_cmd_load (monitor_t *mon, cmd_t *cmd)
{
	int           c;
	unsigned      fmt;
	unsigned long addr, cnt;
	char          fname[256];
	FILE          *fp;

	if (!cmd_match_str (cmd, fname, 256)) {
		cmd_error (cmd, "need a file name");
		return;
	}

	if (mon_match_format (mon, cmd, &fmt) == 0) {
		fmt = mon_guess_format (fname);
	}

	if (fmt == MON_FORMAT_NONE) {
		pce_printf ("can't guess file format (%s)\n", fname);
		return;
	}

	if (fmt == MON_FORMAT_BINARY) {
		if (!mon_match_address (mon, cmd, &addr, NULL, NULL)) {
			cmd_error (cmd, "need an address");
			return;
		}

		if (!cmd_match_uint32 (cmd, &cnt)) {
			cnt = 0;
		}
	}

	if (!cmd_match_end (cmd)) {
		return;
	}

	fp = fopen (fname, "rb");

	if (fp == NULL) {
		pce_printf ("can't open file (%s)\n", fname);
		return;
	}

	switch (fmt) {
	case MON_FORMAT_BINARY:
		while (1) {
			if ((c = fgetc (fp)) == EOF) {
				break;
			}

			mon_set_mem8 (mon, addr, c);

			addr += 1;

			if (cnt > 0) {
				if (--cnt == 0) {
					break;
				}
			}
		}
		break;

	case MON_FORMAT_IHEX:
		if (ihex_load_fp (fp, mon, (ihex_set_f) mon_set_mem8)) {
			pce_printf ("loading ihex failed\n");
		}
		break;

	case MON_FORMAT_MHEX:
		if (mhex_load_fp (fp, mon, (mhex_set_f) mon_set_mem8)) {
			pce_printf ("loading mhex failed\n");
		}
		break;

	case MON_FORMAT_SREC:
		if (srec_load_fp (fp, mon, (srec_set_f) mon_set_mem8)) {
			pce_printf ("loading srec failed\n");
		}
		break;

	case MON_FORMAT_THEX:
		if (thex_load_fp (fp, mon, (thex_set_f) mon_set_mem8)) {
			pce_printf ("loading thex failed\n");
		}
		break;
	}

	fclose (fp);
}

static
void mon_cmd_m (monitor_t *mon, cmd_t *cmd)
{
	char msg[256];
	char val[256];

	if (!cmd_match_str (cmd, msg, 256)) {
		strcpy (msg, "");
	}

	if (!cmd_match_str (cmd, val, 256)) {
		strcpy (val, "");
	}

	if (!cmd_match_end (cmd)) {
		return;
	}

	if (mon->setmsg != NULL) {
		if (mon->setmsg (mon->msgext, msg, val)) {
			pce_puts ("error\n");
		}
	}
	else {
		pce_puts ("monitor: no set message function\n");
	}
}

/*
 * mem - set memory to r/w or r/o
 */
static
void mon_cmd_mem (monitor_t *mon, cmd_t *cmd)
{
	if (cmd_match (cmd, "ro")) {
		mon->rw = 0;
	}
	else if (cmd_match (cmd, "rw")) {
		if (mon->set_mem8rw == NULL) {
			pce_puts ("monitor: no rw function\n");
		}
		else {
			mon->rw = 1;
		}
	}
	else {
		pce_printf ("memory is %s\n", mon->rw ? "rw" : "ro");
	}

	if (!cmd_match_end (cmd)) {
		return;
	}
}

/*
 * save - write memory to disk
 */
static
void mon_cmd_save (monitor_t *mon, cmd_t *cmd)
{
	unsigned       fmt;
	unsigned long  addr, cnt;
	unsigned short seg, ofs;
	char           fname[256];
	FILE           *fp;

	if (!cmd_match_str (cmd, fname, 256)) {
		cmd_error (cmd, "need a file name");
		return;
	}

	if (mon_match_format (mon, cmd, &fmt) == 0) {
		fmt = mon_guess_format (fname);
	}

	if (fmt == 0) {
		pce_printf ("can't guess file format (%s)\n", fname);
		return;
	}

	fp = fopen (fname, "wb");

	if (fp == NULL) {
		pce_printf ("can't open file (%s)\n", fname);
		return;
	}

	if (fmt == MON_FORMAT_THEX) {
		thex_save_start (fp);
	}

	while (cmd_match_eol (cmd) == 0) {
		if (!mon_match_address (mon, cmd, &addr, &seg, &ofs)) {
			cmd_error (cmd, "need an address");
			break;
		}

		if (!cmd_match_uint32 (cmd, &cnt)) {
			cmd_error (cmd, "need a byte count");
			break;
		}

		switch (fmt) {
		case MON_FORMAT_BINARY:
			while (cnt > 0) {
				fputc (mon_get_mem8 (mon, addr), fp);

				addr += 1;
				cnt -= 1;
			}
			break;

		case MON_FORMAT_IHEX:
			if (mon->memory_mode == 0) {
				if (ihex_save_linear (fp, addr, cnt, mon, (ihex_get_f) mon_get_mem8)) {
					pce_printf ("saving ihex failed\n");
				}
			}
			else {
				if (ihex_save (fp, seg, ofs, cnt, mon, (ihex_get_f) mon_get_mem8)) {
					pce_printf ("saving ihex failed\n");
				}
			}
			break;

		case MON_FORMAT_MHEX:
			if (mon->memory_mode == 0) {
				seg = 0;
				ofs = addr;
			}

			if (mhex_save_fp (fp, seg, ofs, cnt, mon, (mhex_get_f) mon_get_mem8)) {
				pce_printf ("saving mhex failed\n");
			}
			break;

		case MON_FORMAT_SREC:
			if (srec_save (fp, addr, cnt, mon, (srec_get_f) mon_get_mem8)) {
				pce_printf ("saving srec failed\n");
			}
			break;

		case MON_FORMAT_THEX:
			if (mon->memory_mode == 0) {
				if (thex_save (fp, addr, cnt, mon, (thex_get_f) mon_get_mem8)) {
					pce_printf ("saving thex failed\n");
				}
			}
			else {
				if (thex_save_seg (fp, seg, ofs, cnt, mon, (thex_get_f) mon_get_mem8)) {
					pce_printf ("saving thex failed\n");
				}
			}
			break;

		}
	}

	if (fmt == MON_FORMAT_IHEX) {
		ihex_save_done (fp);
	}
	else if (fmt == MON_FORMAT_SREC) {
		srec_save_done (fp);
	}
	else if (fmt == MON_FORMAT_THEX) {
		thex_save_done (fp);
	}

	fclose (fp);
}

static
void mon_cmd_redir_inp (monitor_t *mon, cmd_t *cmd)
{
	int  close;
	char fname[256];

	close = 0;

	if (!cmd_match_str (cmd, fname, 256)) {
		close = 1;
	}

	if (!cmd_match_end (cmd)) {
		return;
	}

	if (close) {
		pce_set_redir_inp (NULL);
	}
	else {
		if (pce_set_redir_inp (fname)) {
			pce_puts ("error setting redirection\n");
		}
		else {
			pce_printf ("redirecting from \"%s\"\n", fname);
		}
	}
}

static
void mon_cmd_redir_out (monitor_t *mon, cmd_t *cmd)
{
	int        close;
	const char *mode;
	char       fname[256];

	close = 0;
	mode = "w";

	if (cmd_match (cmd, ">")) {
		mode = "a";
	}

	if (!cmd_match_str (cmd, fname, 256)) {
		close = 1;
	}

	if (!cmd_match_end (cmd)) {
		return;
	}

	if (close) {
		pce_set_redir_out (NULL, NULL);
	}
	else {
		if (pce_set_redir_out (fname, mode)) {
			pce_puts ("error setting redirection\n");
		}
		else {
			pce_printf ("redirecting to \"%s\"\n", fname);
		}
	}
}

static
void mon_cmd_v (cmd_t *cmd)
{
	unsigned long val;

	if (cmd_match_eol (cmd)) {
		cmd_list_syms (cmd);
		return;
	}

	while (cmd_match_uint32 (cmd, &val)) {
		pce_printf ("%lX\n", val);
	}

	if (!cmd_match_end (cmd)) {
		return;
	}
}

/*
 * y - copy memory
 */
static
void mon_cmd_y (monitor_t *mon, cmd_t *cmd)
{
	unsigned long i;
	unsigned long src, dst, cnt;
	unsigned char val;

	if (!mon_match_address (mon, cmd, &src, NULL, NULL)) {
		cmd_error (cmd, "need a source address");
		return;
	}

	if (!mon_match_address (mon, cmd, &dst, NULL, NULL)) {
		cmd_error (cmd, "need a destination address");
		return;
	}

	if (!cmd_match_uint32 (cmd, &cnt)) {
		cmd_error (cmd, "need a byte count");
		return;
	}

	if (!cmd_match_end (cmd)) {
		return;
	}

	if (cnt == 0) {
		return;
	}

	if (src >= dst) {
		for (i = 0; i < cnt; i++) {
			val = mon_get_mem8 (mon, src + i);
			mon_set_mem8 (mon, dst + i, val);
		}
	}
	else {
		src += cnt - 1;
		dst += cnt - 1;

		for (i = 0; i < cnt; i++) {
			val = mon_get_mem8 (mon, src - i);
			mon_set_mem8 (mon, dst - i, val);
		}
	}
}


int mon_run (monitor_t *mon)
{
	int   r;
	cmd_t cmd;

	while (mon->terminate == 0) {
		if (mon->setmsg != NULL) {
			mon->setmsg (mon->msgext, "term.release", "1");
			mon->setmsg (mon->msgext, "term.fullscreen", "0");
		}

		cmd_get (&cmd, mon->prompt);

		if (cmd_match (&cmd, ";")) {
			continue;
		}

		r = 1;

		if (cmd_match (&cmd, "load")) {
			mon_cmd_load (mon, &cmd);
		}
		else if (cmd_match (&cmd, "save")) {
			mon_cmd_save (mon, &cmd);
		}
		else if (mon->docmd != NULL) {
			r = mon->docmd (mon->cmdext, &cmd);
		}

		if (r != 0) {
			if (cmd_match (&cmd, "di")) {
				mon_cmd_di (mon, &cmd);
			}
			else if (cmd_match (&cmd, "d")) {
				mon_cmd_d (mon, &cmd);
			}
			else if (cmd_match (&cmd, "e")) {
				mon_cmd_e (mon, &cmd);
			}
			else if (cmd_match (&cmd, "f")) {
				mon_cmd_f (mon, &cmd);
			}
			else if (cmd_match (&cmd, "h")) {
				mon_cmd_h (mon, &cmd);
			}
			else if (cmd_match (&cmd, "mem")) {
				mon_cmd_mem (mon, &cmd);
			}
			else if (cmd_match (&cmd, "m")) {
				mon_cmd_m (mon, &cmd);
			}
			else if (cmd_match (&cmd, "q")) {
				break;
			}
			else if (cmd_match (&cmd, "v")) {
				mon_cmd_v (&cmd);
			}
			else if (cmd_match (&cmd, "y")) {
				mon_cmd_y (mon, &cmd);
			}
			else if (cmd_match (&cmd, "<")) {
				mon_cmd_redir_inp (mon, &cmd);
			}
			else if (cmd_match (&cmd, ">")) {
				mon_cmd_redir_out (mon, &cmd);
			}
			else if (!cmd_match_eol (&cmd)) {
				cmd_error (&cmd, "unknown command");
			}
		}
	};

	return (0);
}