Add $DUMP-REGS.
This commit is contained in:
parent
2937b58db2
commit
93303a4b6e
1 changed files with 16 additions and 1 deletions
17
WOPO.COB
17
WOPO.COB
|
@ -570,7 +570,9 @@
|
||||||
ELSE IF R(1) IS EQUAL TO "ECHO" THEN
|
ELSE IF R(1) IS EQUAL TO "ECHO" THEN
|
||||||
PERFORM HANDLE-ECHO
|
PERFORM HANDLE-ECHO
|
||||||
ELSE IF R(1) IS EQUAL TO "CAT" THEN
|
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 PERFORM DEBUG-REGISTERS
|
||||||
D VARYING WOPO-COUNTER
|
D VARYING WOPO-COUNTER
|
||||||
D FROM 1, BY 1
|
D FROM 1, BY 1
|
||||||
|
@ -1098,6 +1100,19 @@
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
PERFORM DO-OUTPUT.
|
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.
|
HANDLE-CTCP.
|
||||||
D DISPLAY "HANDLING CTCP.".
|
D DISPLAY "HANDLING CTCP.".
|
||||||
IF NOTICE AND
|
IF NOTICE AND
|
||||||
|
|
Loading…
Reference in a new issue