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

Change end of program marker from 0 to 999

This commit is contained in:
Quinn "heddwch" Evans 2018-09-10 14:44:40 -06:00
parent c2c5d0b1d3
commit 28bb2e773f
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
WOPO-CNF.COB
View File

@ -124,7 +124,7 @@
IF INSTRUCTION OF CURRENT-INSTRUCTION IS EQUAL TO SPACES THEN
D DISPLAY "DONE WRITING PROGRAM ",
D NAME OF INDEX-ENTRY, "."
MOVE 0 TO NEXT-IP OF PROGRAM-RECORD
MOVE 999 TO NEXT-IP OF PROGRAM-RECORD
MOVE 99 TO STATE
ELSE
D DISPLAY "ACCEPTED INSTRUCTION. ",

7
WOPO.COB
View File

@ -1201,7 +1201,8 @@
WITH POINTER PTR(1).
PERFORM BEGIN-STANDARD-REPLY.
PERFORM DO-OUTPUT.
IF NEXT-IP OF PROGRAM-RECORD IS NOT EQUAL TO 0 THEN
D DISPLAY "NEXT-IP. ", NEXT-IP
IF NEXT-IP OF PROGRAM-RECORD IS LESS THAN 999 THEN
MOVE NEXT-IP OF PROGRAM-RECORD TO PROGRAM-IP
ELSE
MOVE 99 TO STATE.
@ -1252,7 +1253,7 @@
IF IN-REG IS NOT EQUAL TO 9 THEN
MOVE IN-REG TO INPUT-SOURCE
ELSE
IF NEXT-IP OF PROGRAM-RECORD IS EQUAL TO 0 THEN
IF NEXT-IP OF PROGRAM-RECORD IS NOT LESS THAN 999 THEN
STRING "MISSING INPUT RECORD FOR INSTRUCTION ",
PROGRAM-IP,
" IN PROGRAM " DELIMITED BY SIZE,
@ -1290,7 +1291,7 @@
PERFORM BEGIN-STANDARD-REPLY
PERFORM DO-OUTPUT
MOVE 99 TO STATE.
IF NEXT-IP OF PROGRAM-RECORD IS EQUAL TO 0 THEN
IF NEXT-IP OF PROGRAM-RECORD IS NOT LESS THAN 999 THEN
MOVE 99 TO STATE
ELSE
MOVE NEXT-IP OF PROGRAM-RECORD TO PROGRAM-IP.