Exit the loop after printing field.
This commit is contained in:
@@ -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.
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user