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 B,174 ;Print a '|' symbol.
|
||||
.IOT CHTTYO,B
|
||||
PFIENO: MOVEI B,040 ;Print a space.
|
||||
.IOT CHTTYO,B
|
||||
PFIENO: .IOT CHTTYO,[040] ;Print a space.
|
||||
ILDB B,X ;Load the next field.
|
||||
SOJE C,PFIEEX ;Exit, if no more elements are read.
|
||||
ADDI B,060 ;Convert number into char.
|
||||
.IOT CHTTYO,B ;Print the number.
|
||||
.IOT CHTTYO,[040] ;Print a space
|
||||
.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.
|
||||
JUMPA PFIENO ;Jump back to print the next number.
|
||||
|
||||
|
||||
Reference in New Issue
Block a user