1 files changed, 26 insertions, 0 deletions
diff --git a/ipl/packs/loadfunc/ddump.c b/ipl/packs/loadfunc/ddump.c
new file mode 100644
index 0000000..5a28f28
--- /dev/null
+++ b/ipl/packs/loadfunc/ddump.c
@@ -0,0 +1,26 @@
+/*
+ *  ddump(a1, ...) -- descriptor dump
+ *
+ *  The arguments are dumped in hexadecimal on standard output.
+ *
+ *  This function requires neither an ANSI C compiler nor "icall.h".
+ */
+
+#include <stdio.h>
+
+typedef struct {
+   long dword;
+   long vword;
+} descriptor;
+
+int ddump(argc, argv)
+int argc;
+descriptor *argv;
+{
+   int i, n;
+
+   n = 2 * sizeof(long);
+   for (i = 1; i <= argc; i++)
+      printf("%d.  %0*lX  %0*lX\n", i, n, argv[i].dword, n, argv[i].vword);
+   return 0;
+}