Replace '0' with ' '
This commit is contained in:
@@ -119,6 +119,8 @@ PFIELN: .IOT CHTTYO,[^M] ;Print a carriage return.
|
|||||||
PFIENO: .IOT CHTTYO,[040] ;Print a space.
|
PFIENO: .IOT CHTTYO,[040] ;Print a space.
|
||||||
ILDB B,X ;Load the next field.
|
ILDB B,X ;Load the next field.
|
||||||
ADDI B,060 ;Convert number into char.
|
ADDI B,060 ;Convert number into char.
|
||||||
|
CAIN B,060 ;If B is not '0', skip
|
||||||
|
MOVEI B,040 ;Replace '0' with a space character.
|
||||||
.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
|
||||||
|
|||||||
Reference in New Issue
Block a user