Fix Jump instruction in Print field function
This commit is contained in:
@@ -110,7 +110,7 @@ PFIELD: PUSH P,A ;Save the A register.
|
|||||||
PFIELN: .IOT CHTTYO,[^M] ;Print a carriage return.
|
PFIELN: .IOT CHTTYO,[^M] ;Print a carriage return.
|
||||||
.IOT CHTTYO,[^J] ;Print a new line.
|
.IOT CHTTYO,[^J] ;Print a new line.
|
||||||
MOVE A,[440700,,HLINE] ;Print a horizontal line.
|
MOVE A,[440700,,HLINE] ;Print a horizontal line.
|
||||||
POPJ P,PUTLN
|
PUSHJ P,PUTLN
|
||||||
MOVEI Y,011 ;Load the index register with 9.
|
MOVEI Y,011 ;Load the index register with 9.
|
||||||
MOVEI B,174 ;Print a '|' symbol.
|
MOVEI B,174 ;Print a '|' symbol.
|
||||||
.IOT CHTTYO,B
|
.IOT CHTTYO,B
|
||||||
|
|||||||
Reference in New Issue
Block a user