date and time created 82/01/18 19:20:15 by linton

SCCS-vsn: usr.bin/pascal/pdx/machine/printdata.c 1.1

diff --git a/usr/src/usr.bin/pascal/pdx/machine/printdata.c b/usr/src/usr.bin/pascal/pdx/machine/printdata.c
new file mode 100644 (file)
index 0000000..84ee1aa
--- /dev/null
+++ b/usr/src/usr.bin/pascal/pdx/machine/printdata.c
@@ -0,0 +1,60 @@
+/* Copyright (c) 1982 Regents of the University of California */
+
+static char sccsid[] = "@(#)printdata.c 1.1 %G%";
+
+/*
+ * print contents of data addresses in octal
+ *
+ * There are two entries:  one is given a range of addresses,
+ * the other is given a count and a starting address.
+ */
+
+#include "defs.h"
+#include "machine.h"
+#include "process.h"
+#include "object.h"
+
+#define WORDSPERLINE 4
+
+/*
+ * print words from lowaddr to highaddr
+ */
+
+printdata(lowaddr, highaddr)
+ADDRESS lowaddr;
+ADDRESS highaddr;
+{
+       register int count;
+       register ADDRESS addr;
+       int val;
+
+       if (lowaddr > highaddr) {
+               error("first address larger than second");
+       }
+       count = 0;
+       for (addr = lowaddr; addr <= highaddr; addr += sizeof(int)) {
+               if (count == 0) {
+                       printf("%8x: ", addr);
+               }
+               dread(&val, addr, sizeof(val));
+               printf("  %8x", val);
+               if (++count >= WORDSPERLINE) {
+                       putchar('\n');
+                       count = 0;
+               }
+       }
+       if (count != 0) {
+               putchar('\n');
+       }
+}
+
+/*
+ * print count words starting at address
+ */
+
+printndata(count, addr)
+int count;
+ADDRESS addr;
+{
+       printdata(addr, addr + (count - 1)*sizeof(int));
+}