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

@@ -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