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

Change parameter handling to fix uninitialized register bugs.

This commit is contained in:
Quinn "heddwch" Evans 2018-09-10 14:47:13 -06:00
parent 8b0a10b60b
commit 5c8daf6f1c
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
WOPO.COB
View File

@ -312,12 +312,13 @@
INDEX-PARAM.
ADD 1 TO NUM-PARAMS OF WOPO.
MOVE PTR(DEST) TO PARAM OF WOPO(NUM-PARAMS OF WOPO).
MOVE SPACES TO R(DEST).
UNSTRING R(SRC) DELIMITED BY SPACE
INTO R(DEST)
WITH POINTER PTR(DEST).
IF R(DEST) IS EQUAL TO SPACES THEN
SUBTRACT 1 FROM NUM-PARAMS OF WOPO
MOVE 99 TO STATE
MOVE 99 TO STATE.
IF NUM-PARAMS OF WOPO IS NOT LESS THAN 9 THEN
MOVE 99 TO STATE.
@ -514,11 +515,11 @@
D DISPLAY "PREFIXED COMMAND DETECTED."
MOVE COMMAND-BODY(2) TO R(1)
D DISPLAY "COMMAND BODY ", R(1)
PERFORM HANDLE-COMMAND
PERFORM HANDLE-INTERACTIVE-COMMAND
ELSE IF TARGET OF IRC-STATE IS EQUAL TO NICK OF WOPO THEN
D DISPLAY "DIRECT MESSAGE DETECTED."
MOVE R(2) TO R(1)
PERFORM HANDLE-COMMAND
PERFORM HANDLE-INTERACTIVE-COMMAND
ELSE
D DISPLAY "ADDRESSED MESSAGE DETECTED."
MOVE 1 TO PTR(2)
@ -531,7 +532,7 @@
UNSTRING R(2)
INTO R(1)
WITH POINTER PTR(2)
PERFORM HANDLE-COMMAND
PERFORM HANDLE-INTERACTIVE-COMMAND
D ELSE
D DISPLAY "NOT TALKING TO ME. I AM ", NICK OF WOPO
.
@ -548,13 +549,17 @@
IF DELIM IS NOT EQUAL TO "/" THEN
MOVE 99 TO STATE.
HANDLE-INTERACTIVE-COMMAND.
MOVE SPACES TO R(8).
MOVE 8 TO INPUT-SOURCE.
PERFORM HANDLE-COMMAND.
HANDLE-COMMAND.
MOVE 1 TO SRC.
MOVE 2 TO DEST.
PERFORM INDEX-PARAMS.
MOVE 1 TO PTR(1).
PERFORM GET-PARAM.
D DISPLAY "COMMAND. ", R(2).
UNSTRING R(2) DELIMITED BY "/"
INTO R(3)
WITH POINTER PTR(3).
@ -564,8 +569,7 @@
IF NUM-PARAMS OF WOPO IS GREATER THAN 1 THEN
MOVE 2 TO PTR(1)
MOVE 8 TO DEST
PERFORM GET-REST
MOVE 8 TO INPUT-SOURCE.
PERFORM GET-REST.
UNSTRING R(2) DELIMITED BY "/" OR SPACES INTO R(1).
D DISPLAY "INPUT-SOURCE. ", INPUT-SOURCE,
D " OUTPUT-DEST. ", OUTPUT-DEST.