--- a/.hgignore	Sat Feb 08 03:00:31 2025 +0000
+++ b/.hgignore	Sat Feb 08 03:38:54 2025 +0000
@@ -19,6 +19,7 @@
 ^trau-decode/tfo-parse-fr16$
 ^trau-decode/trau-extr$
 ^trau-decode/trau-hr-dump$
+^trau-decode/trau-hr-dump-hex$
 ^trau-decode/trau-parse$
 ^trau-decode/trau-sync8$
 

--- a/trau-decode/Makefile	Sat Feb 08 03:00:31 2025 +0000
+++ b/trau-decode/Makefile	Sat Feb 08 03:38:54 2025 +0000
@@ -1,6 +1,7 @@
 CC=	gcc
 CFLAGS=	-O2
-PROGS=	dump-1bit tfo-parse-fr16 trau-extr trau-hr-dump trau-parse trau-sync8
+PROGS=	dump-1bit tfo-parse-fr16 trau-extr trau-hr-dump trau-hr-dump-hex \
+	trau-parse trau-sync8
 
 all:	${PROGS}
 
@@ -16,6 +17,9 @@
 trau-hr-dump:	crc8gen.o gsmhr_unpack.o hr-guts.o trau-hr-dump.o
 	${CC} ${CFLAGS} -o $@ $^
 
+trau-hr-dump-hex:	crc8gen.o gsmhr_unpack.o hr-guts.o trau-hr-dump-hex.o
+	${CC} ${CFLAGS} -o $@ $^
+
 trau-parse:	crc8gen.o parse-fr.o parse-efr.o parse-main.o
 	${CC} ${CFLAGS} -o $@ $^ -lgsmfr2 -lgsmefr
 

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/trau-decode/trau-hr-dump-hex.c	Sat Feb 08 03:38:54 2025 +0000
@@ -0,0 +1,106 @@
+/*
+ * This program reads a line-based text file in an ad hoc hex format
+ * where each line represents a TRAU-8k frame.  These TRAU-8k frames
+ * are then decoded.
+ */
+
+#include <ctype.h>
+#include <stdio.h>
+#include <stdint.h>
+#include <stdlib.h>
+#include <string.h>
+#include <strings.h>
+
+static int
+decode_hex_digit(c)
+{
+	if (isdigit(c))
+		return c - '0';
+	else if (isupper(c))
+		return c - 'A' + 10;
+	else
+		return c - 'a' + 10;
+}
+
+static void
+hex2bits(hex, bits)
+	char *hex;
+	uint8_t *bits;
+{
+	unsigned n, m, x;
+
+	for (n = 0; n < 40; n++) {
+		x = decode_hex_digit(hex[n]);
+		for (m = 8; m; m >>= 1) {
+			if (x & m)
+				*bits++ = 1;
+			else
+				*bits++ = 0;
+		}
+	}
+}
+
+static void
+process_record(hex_frame, lineno)
+	char *hex_frame;
+{
+	uint8_t frame_bits[160];
+
+	printf("line %d: %s\n", lineno, hex_frame);
+	hex2bits(hex_frame, frame_bits);
+	print_gsmhr_frame(frame_bits);
+}
+
+static void
+process_line(linebuf, filename, lineno)
+	char *linebuf, *filename;
+{
+	char *cp, *np;
+	unsigned n;
+
+	for (cp = linebuf; isspace(*cp); cp++)
+		;
+	if (*cp == '\0' || *cp == '#')
+		return;
+	np = cp;
+	for (n = 0; n < 40; n++) {
+		if (!isxdigit(*cp))
+			goto inv;
+		cp++;
+	}
+	if (*cp) {
+		if (!isspace(*cp))
+			goto inv;
+		*cp++ = '\0';
+	}
+	while (isspace(*cp))
+		cp++;
+	if (*cp != '\0' && *cp != '#')
+		goto inv;
+	process_record(np, lineno);
+	return;
+
+inv:	fprintf(stderr, "%s line %d: invalid syntax\n", filename, lineno);
+	exit(1);
+}
+
+main(argc, argv)
+	char **argv;
+{
+	FILE *inf;
+	char linebuf[128];
+	int lineno;
+
+	if (argc != 2) {
+		fprintf(stderr, "usage: %s hex-file\n", argv[0]);
+		exit(1);
+	}
+	inf = fopen(argv[1], "r");
+	if (!inf) {
+		perror(argv[1]);
+		exit(1);
+	}
+	for (lineno = 1; fgets(linebuf, sizeof linebuf, inf); lineno++)
+		process_line(linebuf, argv[1], lineno);
+	exit(0);
+}