Make PRINT-CONFIG more informative about program structure.
This commit is contained in:
parent
4b55932740
commit
3576df48f7
|
@ -109,7 +109,8 @@
|
||||||
READ PROGRAM-CODE RECORD
|
READ PROGRAM-CODE RECORD
|
||||||
AT END MOVE 10 TO STATE.
|
AT END MOVE 10 TO STATE.
|
||||||
IF NOT DONE THEN
|
IF NOT DONE THEN
|
||||||
DISPLAY PROGRAM-IP, ".", INSTRUCTION-RECORD
|
DISPLAY PROGRAM-IP, ".", INSTRUCTION-RECORD, ".",
|
||||||
|
PREV-IP, ".", NEXT-IP
|
||||||
IF NEXT-IP OF PROGRAM-RECORD IS EQUAL TO 0 THEN
|
IF NEXT-IP OF PROGRAM-RECORD IS EQUAL TO 0 THEN
|
||||||
MOVE 10 TO STATE
|
MOVE 10 TO STATE
|
||||||
ELSE
|
ELSE
|
||||||
|
|
Loading…
Reference in New Issue