Add cr/lf before closing hline

This commit is contained in:
2026-01-11 14:33:57 +01:00
parent 12d68e2231
commit f7f0720b2e

View File

@@ -128,7 +128,9 @@ PFIENO: .IOT CHTTYO,[040] ;Print a space.
SOJE Y,PFIELN ;End the line and start a new one. SOJE Y,PFIELN ;End the line and start a new one.
JUMPA PFIENO ;Jump back to print the next number. JUMPA PFIENO ;Jump back to print the next number.
PFIEEX: MOVE A,[440700,,HLINE] ;Print a horizontal line PFIEEX: .IOT CHTTYO,[^M] ;Print carriage return
.IOT CHTTYO,[^J] ;Print line feed.
MOVE A,[440700,,HLINE] ;Print a horizontal line
PUSHJ P,PUTLN PUSHJ P,PUTLN
POP P,Y ;Restore the Y register. POP P,Y ;Restore the Y register.
POP P,X ;Restore the index register. POP P,X ;Restore the index register.