# HG changeset patch
# User Mychaela Falconia <falcon@freecalypso.org>
# Date 1633814691 0
# Node ID 8a89a42baa70d6090688736f9ed4c4cd141c8d84
# Parent  526a8cfbbfd8356f99fd1d74b9d1ef29a7b152b3
fc-loadtool tfc139-audio-dump hack implemented

diff -r 526a8cfbbfd8 -r 8a89a42baa70 loadtools/Makefile
--- a/loadtools/Makefile	Wed Aug 18 15:48:35 2021 +0000
+++ b/loadtools/Makefile	Sat Oct 09 21:24:51 2021 +0000
@@ -15,7 +15,7 @@
 		hwparam.o romload.o secondprog.o sertool.o srecreader.o \
 		ttypassthru.o
 
-LOADTOOL_OBJS=	compalload.o crc32tab.o defpath.o flashid.o flashops.o \
+LOADTOOL_OBJS=	audump.o compalload.o crc32tab.o defpath.o flashid.o flashops.o\
 		flcmplboot.o flconf.o fldevs.o flerase.o flmain.o flmisc.o \
 		flprogbin.o flprogsrec.o flprotreg.o flutil.o hexdecode.o \
 		hwparam.o labaud.o lacrc32.o ltdispatch.o ltdump.o ltexit.o \
diff -r 526a8cfbbfd8 -r 8a89a42baa70 loadtools/audump.c
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/loadtools/audump.c	Sat Oct 09 21:24:51 2021 +0000
@@ -0,0 +1,139 @@
+/*
+ * This module implements the tfc139-audio-dump command in fc-loadtool,
+ * which is a special hack for reverse engineering of Compal audio configs.
+ * This hack command is named so because it will only produce interesting
+ * output if fc-loadtool has been entered via tfc139, i.e., breaking into
+ * a running Compal firmware.
+ */
+
+#include <sys/types.h>
+#include <stdio.h>
+#include <stdint.h>
+#include <stdlib.h>
+#include <string.h>
+#include <strings.h>
+
+extern char target_response_line[];
+
+do_abbr(page, reg, retptr)
+	unsigned page, reg;
+	uint16_t *retptr;
+{
+	char page_arg[8], reg_arg[8], *argv[4];
+	int stat;
+	char *strtoul_endp;
+
+	sprintf(page_arg, "%u", page);
+	sprintf(reg_arg, "%u", reg);
+	argv[0] = "abbr";
+	argv[1] = page_arg;
+	argv[2] = reg_arg;
+	argv[3] = 0;
+	tpinterf_make_cmd(argv);
+	if (tpinterf_send_cmd() < 0)
+		return(-1);
+	stat = tpinterf_capture_output_oneline(1);
+	if (stat != 1) {
+errout:		fprintf(stderr, "error: malformed response to abbr command\n");
+		return(-1);
+	}
+	if (strlen(target_response_line) != 3)
+		goto errout;
+	*retptr = strtoul(target_response_line, &strtoul_endp, 16);
+	if (strtoul_endp != target_response_line + 3)
+		goto errout;
+	return(0);
+}
+
+cmd_tfc139_audio_dump(argc, argv)
+	char **argv;
+{
+	uint16_t data[31];
+	int i, stat;
+	FILE *of;
+
+	if (argv[1]) {
+		of = fopen(argv[1], "w");
+		if (!of) {
+			perror(argv[1]);
+			return(-1);
+		}
+	} else
+		of = stdout;
+	/* read d_aec_ctrl */
+	stat = do_r16(0xFFD00238, data);
+	if (stat) {
+bad_read:	if (argv[1])
+			fclose(of);
+		return(stat);
+	}
+	fprintf(of, "d_aec_ctrl: 0x%04X\n", (int) data[0]);
+	/* read new AEC parameter words */
+	for (i = 0; i < 8; i++) {
+		stat = do_r16(0xFFD0084A + (i << 1), data + i);
+		if (stat)
+			goto bad_read;
+	}
+	fputs("New AEC params:", of);
+	for (i = 0; i < 8; i++)
+		fprintf(of, " 0x%04X", (int) data[i]);
+	putc('\n', of);
+	putc('\n', of);
+	/* read UL FIR coeffs */
+	for (i = 0; i < 31; i++) {
+		stat = do_r16(0xFFD00908 + (i << 1), data + i);
+		if (stat)
+			goto bad_read;
+	}
+	fputs("Uplink FIR coefficients:\n", of);
+	for (i = 0; i < 31; i++) {
+		if (i == 0 || i == 8 || i == 16 || i == 24)
+			putc('\n', of);
+		else
+			putc(' ', of);
+		fprintf(of, "0x%04X", (int) data[i]);
+	}
+	putc('\n', of);
+	putc('\n', of);
+	/* read DL FIR coeffs */
+	for (i = 0; i < 31; i++) {
+		stat = do_r16(0xFFD00946 + (i << 1), data + i);
+		if (stat)
+			goto bad_read;
+	}
+	fputs("Downlink FIR coefficients:\n", of);
+	for (i = 0; i < 31; i++) {
+		if (i == 0 || i == 8 || i == 16 || i == 24)
+			putc('\n', of);
+		else
+			putc(' ', of);
+		fprintf(of, "0x%04X", (int) data[i]);
+	}
+	putc('\n', of);
+	putc('\n', of);
+	/* read ABB VBC registers */
+	stat = do_abbr(1, 8, data);
+	if (stat)
+		goto bad_read;
+	fprintf(of, "VBCTRL1: 0x%03X\n", (int) data[0]);
+	stat = do_abbr(1, 11, data);
+	if (stat)
+		goto bad_read;
+	fprintf(of, "VBCTRL2: 0x%03X\n", (int) data[0]);
+	stat = do_abbr(1, 10, data);
+	if (stat)
+		goto bad_read;
+	fprintf(of, "VBPOP:   0x%03X\n", (int) data[0]);
+	stat = do_abbr(1, 7, data);
+	if (stat)
+		goto bad_read;
+	fprintf(of, "VBUCTRL: 0x%03X\n", (int) data[0]);
+	stat = do_abbr(0, 6, data);
+	if (stat)
+		goto bad_read;
+	fprintf(of, "VBDCTRL: 0x%03X\n", (int) data[0]);
+	/* done */
+	if (argv[1])
+		fclose(of);
+	return(0);
+}
diff -r 526a8cfbbfd8 -r 8a89a42baa70 loadtools/ltdispatch.c
--- a/loadtools/ltdispatch.c	Wed Aug 18 15:48:35 2021 +0000
+++ b/loadtools/ltdispatch.c	Sat Oct 09 21:24:51 2021 +0000
@@ -17,6 +17,7 @@
 extern int cmd_exit();
 extern int cmd_flash();
 extern int cmd_help();
+extern int cmd_tfc139_audio_dump();
 extern int cmd_timeout_cal();
 extern int loadtool_cmd_passthru();
 
@@ -43,6 +44,7 @@
 	{"r8", 1, 1, loadtool_cmd_passthru},
 	{"r16", 1, 1, loadtool_cmd_passthru},
 	{"r32", 1, 1, loadtool_cmd_passthru},
+	{"tfc139-audio-dump", 0, 1, cmd_tfc139_audio_dump},
 	{"timeout-cal", 1, 1, cmd_timeout_cal},
 	{"w8", 2, 2, loadtool_cmd_passthru},
 	{"w16", 2, 2, loadtool_cmd_passthru},