/*
 * 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);
}