Fix Jump instruction in Print field function

This commit is contained in:
2026-01-01 20:20:44 +01:00
parent 7b4902cc1d
commit 8f6c3490d9

View File

@@ -109,8 +109,8 @@ PFIELD: PUSH P,A ;Save the A register.
MOVE X,[440400,,FIELD] ;Store a bytepointer in X.
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
MOVE A,[440700,,HLINE] ;Print a horizontal line.
PUSHJ P,PUTLN
MOVEI Y,011 ;Load the index register with 9.
MOVEI B,174 ;Print a '|' symbol.
.IOT CHTTYO,B