From 93303a4b6e416a5abfbf3e0b2fc3e8e66b2b4e8a Mon Sep 17 00:00:00 2001
From: Quinn Evans <Quinn Evans>
Date: Wed, 22 Mar 2017 23:05:13 -0600
Subject: [PATCH] Add $DUMP-REGS.

---
 WOPO.COB | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/WOPO.COB b/WOPO.COB
index 3e367af..24f191e 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -570,7 +570,9 @@
            ELSE IF R(1) IS EQUAL TO "ECHO" THEN
                PERFORM HANDLE-ECHO
            ELSE IF R(1) IS EQUAL TO "CAT" THEN
-               PERFORM HANDLE-CAT.
+               PERFORM HANDLE-CAT
+           ELSE IF R(1) IS EQUAL TO "DUMP-REGS" THEN
+               PERFORM HANDLE-DUMP-REGS.
       D    PERFORM DEBUG-REGISTERS
       D            VARYING WOPO-COUNTER
       D            FROM 1, BY 1
@@ -1098,6 +1100,19 @@
            PERFORM BEGIN-STANDARD-REPLY.
            PERFORM DO-OUTPUT.
 
+       DUMP-REG.
+           STRING "R(", WOPO-COUNTER, "). ",
+                   R(WOPO-COUNTER)
+                   INTO R(1).
+           PERFORM BEGIN-STANDARD-REPLY.
+           PERFORM DO-OUTPUT.
+
+       HANDLE-DUMP-REGS.
+           MOVE 1 TO SRC, WOPO-COUNTER.
+           PERFORM DUMP-REG VARYING WOPO-COUNTER
+                   FROM 1, BY 1,
+                   UNTIL WOPO-COUNTER IS GREATER THAN 8.
+
        HANDLE-CTCP.
       D    DISPLAY "HANDLING CTCP.".
            IF NOTICE AND