--- a/libcoding/alpha_addr.c	Tue May 21 01:59:17 2024 +0000
+++ b/libcoding/alpha_addr.c	Thu Jun 13 01:55:19 2024 +0000
@@ -1,24 +1,21 @@
 /*
- * This library module implements encoding of alphanumeric From addresses
- * that are allowed in SMS-DELIVER TPDUs.
+ * This library module contains some bits that help working with
+ * alphabetic addresses.
  */
 
 #include <sys/types.h>
 
 u_char alpha_septets_to_digits[12] = {0, 2, 4, 6, 7, 9, 11, 13, 14, 16, 18, 20};
 
-encode_alpha_addr(arg, bin)
-	char *arg;
-	u_char *bin;
+alpha_addr_valid(ndigits, sepp)
+	unsigned ndigits, *sepp;
 {
-	u_char gsm7[11];
-	int rc;
+	unsigned n;
 
-	rc = qstring_arg_to_gsm7(arg, gsm7, 11);
-	if (rc < 0)
-		return(rc);
-	bin[0] = alpha_septets_to_digits[rc];
-	bin[1] = 0x50;
-	gsm7_pack(gsm7, bin + 2, (bin[0] + 1) >> 1);
+	for (n = 1; n <= 11; n++)
+		if (alpha_septets_to_digits[n] == ndigits) {
+			*sepp = n;
+			return(1);
+		}
 	return(0);
 }