--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/loadtools/bpdispatch.c	Thu Oct 27 05:28:30 2016 +0000
@@ -0,0 +1,80 @@
+/*
+ * This module implements the command dispatch for fc-buzplay
+ */
+
+#include <ctype.h>
+#include <stdio.h>
+#include <string.h>
+#include <strings.h>
+#include <stdlib.h>
+
+extern int cmd_baud();
+extern int cmd_exit();
+extern int loadtool_cmd_passthru();
+
+static struct cmdtab {
+	char *cmd;
+	int minargs;
+	int maxargs;
+	int (*func)();
+} cmdtab[] = {
+	{"abbr", 2, 2, loadtool_cmd_passthru},
+	{"abbw", 3, 3, loadtool_cmd_passthru},
+	{"baud", 0, 1, cmd_baud},
+	{"buzlev", 0, 1, loadtool_cmd_passthru},
+	{"exit", 0, 1, cmd_exit},
+	{"quit", 0, 1, cmd_exit},
+	{"r8", 1, 1, loadtool_cmd_passthru},
+	{"r16", 1, 1, loadtool_cmd_passthru},
+	{"r32", 1, 1, loadtool_cmd_passthru},
+	{"w8", 2, 2, loadtool_cmd_passthru},
+	{"w16", 2, 2, loadtool_cmd_passthru},
+	{"w32", 2, 2, loadtool_cmd_passthru},
+	{0, 0, 0, 0}
+};
+
+buzplay_dispatch_cmd(cmd)
+	char *cmd;
+{
+	char *argv[10];
+	char *cp, **ap;
+	struct cmdtab *tp;
+
+	for (cp = cmd; isspace(*cp); cp++)
+		;
+	if (!*cp || *cp == '#')
+		return(0);
+	argv[0] = cp;
+	while (*cp && !isspace(*cp))
+		cp++;
+	if (*cp)
+		*cp++ = '\0';
+	for (tp = cmdtab; tp->cmd; tp++)
+		if (!strcmp(tp->cmd, argv[0]))
+			break;
+	if (!tp->func) {
+		fprintf(stderr, "error: no such command\n");
+		return(-1);
+	}
+	for (ap = argv + 1; ; ) {
+		while (isspace(*cp))
+			cp++;
+		if (!*cp || *cp == '#')
+			break;
+		if (ap - argv - 1 >= tp->maxargs) {
+			fprintf(stderr, "error: too many arguments\n");
+			return(-1);
+		}
+		*ap++ = cp;
+		while (*cp && !isspace(*cp))
+			cp++;
+		if (*cp)
+			*cp++ = '\0';
+	}
+	if (ap - argv - 1 < tp->minargs) {
+		fprintf(stderr, "error: too few arguments\n");
+		return(-1);
+	}
+	*ap = 0;
+	return tp->func(ap - argv, argv);
+}