Exit the loop after printing field.

This commit is contained in:
2026-01-11 14:02:48 +01:00
parent b7fb9a0551
commit 2c11b2ff26

View File

@@ -116,14 +116,13 @@ PFIELN: .IOT CHTTYO,[^M] ;Print a carriage return.
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
PFIENO: MOVEI B,040 ;Print a space. PFIENO: .IOT CHTTYO,[040] ;Print a space.
.IOT CHTTYO,B
ILDB B,X ;Load the next field. ILDB B,X ;Load the next field.
SOJE C,PFIEEX ;Exit, if no more elements are read.
ADDI B,060 ;Convert number into char. ADDI B,060 ;Convert number into char.
.IOT CHTTYO,B ;Print the number. .IOT CHTTYO,B ;Print the number.
.IOT CHTTYO,[040] ;Print a space .IOT CHTTYO,[040] ;Print a space
.IOT CHTTYO,[174] ;Print a '|' symbol .IOT CHTTYO,[174] ;Print a '|' symbol
SOJE C,PFIEEX ;Exit, if no more elements are read.
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.