--- a/.hgignore	Fri Dec 05 02:43:19 2025 +0000
+++ b/.hgignore	Fri Dec 05 09:01:14 2025 +0000
@@ -89,6 +89,7 @@
 ^hrutil/gsmhr-dec-parse$
 ^hrutil/gsmhr-dec2hex$
 ^hrutil/gsmhr-decode$
+^hrutil/gsmhr-decode-r$
 ^hrutil/gsmhr-etsi-dec$
 ^hrutil/gsmhr-hex2dec$
 ^hrutil/gsmhr-hex2rpf$

--- a/hrutil/Makefile	Fri Dec 05 02:43:19 2025 +0000
+++ b/hrutil/Makefile	Fri Dec 05 09:01:14 2025 +0000
@@ -1,6 +1,7 @@
 PROGS=	gsmhr-cod-craft gsmhr-cod-parse gsmhr-cod2hex gsmhr-dec-craft \
-	gsmhr-dec-parse gsmhr-dec2hex gsmhr-decode gsmhr-etsi-dec gsmhr-hex2dec\
-	gsmhr-hex2rpf gsmhr-rpf2hex gsmhr-tfo-xfrm tw5b-dump
+	gsmhr-dec-parse gsmhr-dec2hex gsmhr-decode gsmhr-decode-r \
+	gsmhr-etsi-dec gsmhr-hex2dec gsmhr-hex2rpf gsmhr-rpf2hex \
+	gsmhr-tfo-xfrm tw5b-dump
 LIBHR1=	../libgsmhr1/libgsmhr1.a
 LIBTEST=../libtest/libtest.a
 LIBS=	${LIBHR1} ${LIBTEST}
@@ -30,6 +31,9 @@
 gsmhr-decode:	decode.o ${LIBS}
 	${CC} ${CFLAGS} -o $@ $^
 
+gsmhr-decode-r:	decode-r.o ${LIBS}
+	${CC} ${CFLAGS} -o $@ $^
+
 gsmhr-etsi-dec:	etsi-dec.o etsi-pcm-out.o read-dec.o ${LIBS}
 	${CC} ${CFLAGS} -o $@ $^
 

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/hrutil/decode-r.c	Fri Dec 05 09:01:14 2025 +0000
@@ -0,0 +1,68 @@
+/*
+ * This file is the main module for gsmhr-decode-r utility.  This utility
+ * is intended to serve as a precision tinkering-oriented decoder for
+ * GSM-HR encoded speech, reading TW-TS-005 Annex B as input and emitting
+ * 16-bit linear PCM output in robe format.
+ */
+
+#include <stdio.h>
+#include <stdint.h>
+#include <stdlib.h>
+#include "../libgsmhr1/tw_gsmhr.h"
+#include "../libtest/tw5reader.h"
+#include "../libtest/robewrite.h"
+
+main(argc, argv)
+	char **argv;
+{
+	FILE *hexf, *outf;
+	unsigned lineno;
+	struct gsmhr_decoder_state *state;
+	uint8_t frame[TWTS005_MAX_FRAME];
+	unsigned frame_len;
+	int16_t params[GSMHR_NUM_PARAMS_DEC];
+	int16_t pcm[160];
+	int rc;
+
+	if (argc != 3) {
+		fprintf(stderr, "usage: %s input.hex output.robe\n", argv[0]);
+		exit(1);
+	}
+	hexf = fopen(argv[1], "r");
+	if (!hexf) {
+		perror(argv[1]);
+		exit(1);
+	}
+	lineno = 0;
+	outf = fopen(argv[2], "w");
+	if (!outf) {
+		perror(argv[2]);
+		exit(1);
+	}
+	state = gsmhr_decoder_create();
+	if (!state) {
+		fprintf(stderr, "gsmhr_decoder_create() failed!\n");
+		exit(1);
+	}
+	for (;;) {
+		rc = twts005_read_frame(hexf, &lineno, frame, &frame_len);
+		if (rc < 0) {
+			fprintf(stderr, "%s line %u: not valid TW-TS-005\n",
+				argv[1], lineno);
+			exit(1);
+		}
+		if (!rc)
+			break;
+		rc = gsmhr_rtp_in_direct(frame, frame_len, params);
+		if (rc < 0) {
+			fprintf(stderr,
+				"%s line %u: not a valid GSM-HR frame\n",
+				argv[1], lineno);
+			exit(1);
+		}
+		gsmhr_decode_frame(state, params, pcm);
+		write_pcm_to_robe(outf, pcm);
+	}
+	fclose(outf);
+	exit(0);
+}