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.
|
||||
.IOT CHTTYO,[^J] ;Print a new 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 B,174 ;Print a '|' symbol.
|
||||
.IOT CHTTYO,B
|
||||
|
||||
Reference in New Issue
Block a user