--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dev/gsmfr-dhf.c	Sun Apr 14 04:00:02 2024 +0000
@@ -0,0 +1,50 @@
+/*
+ * This program is meant to be run only once by the developer - it
+ * generates RTP-packed form of the decoder homing frame for GSM-FR,
+ * as specified in more recent versions of GSM 06.10 spec.
+ */
+
+#include <stdio.h>
+#include <stdint.h>
+#include <stdlib.h>
+#include <string.h>
+#include <strings.h>
+
+extern void gsmfr_pack_to_rtp(const int16_t *params, uint8_t *frame);
+
+static const int16_t larc[8] = {9, 23, 15, 8, 7, 3, 3, 2};
+
+main(argc, argv)
+	char **argv;
+{
+	int16_t params[76], *pp;
+	uint8_t frame[33];
+	unsigned m, n;
+
+	/* gather params */
+	bcopy(larc, params, sizeof(int16_t) * 8);
+	pp = params + 8;
+	for (m = 0; m < 4; m++) {
+		*pp++ = 40;
+		*pp++ = 0;
+		*pp++ = 0;
+		*pp++ = 0;
+		for (n = 0; n < 13; n++) {
+			if (m == 3 && n == 4)
+				*pp++ = 3;
+			else
+				*pp++ = 4;
+		}
+	}
+	/* generate frame */
+	gsmfr_pack_to_rtp(params, frame);
+	/* print the frame */
+	for (n = 0; n < 33; n++) {
+		printf("0x%02X,", frame[n]);
+		if (n == 4 || n == 11 || n == 18 || n == 25 || n == 32)
+			putchar('\n');
+		else
+			putchar(' ');
+	}
+	exit(0);
+}