uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add $DUMP-REGS.

This commit is contained in:
Quinn Evans 2017-03-22 23:05:13 -06:00
parent 2937b58db2
commit 93303a4b6e
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
WOPO.COB
View File

@ -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