--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/simtool/sstlist.c	Sun Mar 14 07:11:25 2021 +0000
@@ -0,0 +1,70 @@
+/*
+ * This module implements the sst command, listing the SIM Service Table
+ * in a human-readable, yet very compact form: just a list of activated
+ * (or allocated but not activated, specially marked) service numbers.
+ */
+
+#include <sys/types.h>
+#include <stdio.h>
+#include "simresp.h"
+#include "curfile.h"
+#include "file_id.h"
+
+cmd_sst(argc, argv, outf)
+	char **argv;
+	FILE *outf;
+{
+	int rc;
+	unsigned byte, pos, code, nserv, linelen;
+
+	rc = select_op(DF_GSM);
+	if (rc < 0)
+		return(rc);
+	rc = select_op(EF_SST);
+	if (rc < 0)
+		return(rc);
+	rc = parse_ef_select_response();
+	if (rc < 0)
+		return(rc);
+	if (curfile_structure != 0x00) {
+		fprintf(stderr, "error: EF_SST is not transparent\n");
+		return(-1);
+	}
+	if (curfile_total_size < 2) {
+		fprintf(stderr,
+		"error: EF_SST is shorter than spec minimum of 2 bytes\n");
+		return(-1);
+	}
+	if (curfile_total_size > 256) {
+		fprintf(stderr,
+			"error: EF_SST is longer than our 256 byte limit\n");
+		return(-1);
+	}
+	rc = readbin_op(0, curfile_total_size);
+	if (rc < 0)
+		return(rc);
+	linelen = 0;
+	for (byte = 0, nserv = 1; byte < curfile_total_size; byte++) {
+		for (pos = 0; pos < 8; pos += 2, nserv++) {
+			code = (sim_resp_data[byte] >> pos) & 3;
+			if (!(code & 1))
+				continue;
+			if (linelen > 73) {
+				putc('\n', outf);
+				linelen = 0;
+			}
+			if (linelen) {
+				putc(' ', outf);
+				linelen++;
+			}
+			linelen += fprintf(outf, "%u", nserv);
+			if (!(code & 2)) {
+				putc('^', outf);
+				linelen++;
+			}
+		}
+	}
+	if (linelen)
+		putc('\n', outf);
+	return(0);
+}