Replace '0' with ' '

This commit is contained in:
2026-01-11 14:26:25 +01:00
parent 2c11b2ff26
commit 9d1f276175

View File

@@ -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