Treat horizontal tab as space on input

dimitrit · Aug 27, 2023 · 48bab78 · 48bab78
1 parent 2631410
commit 48bab78
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/conprtio.asm b/conprtio.asm
@@ -51,8 +51,11 @@ CINLP:	CALL	SYSENT		;(A)<--CHR (or 0 if nothing typed)
 	OR	A
 	JR	Z,CINLP		;wait for CHR to be typed
 	CP	RUBOUT
-	JR	NZ,CIN1
+	JR	NZ,CIN0
 	LD	A,BSOUT		;convert RUB to ^H
+CIN0:	CP	HT
+	JR	NZ,CIN1
+	LD	A,ABL		;convert HT to space
 CIN1:	RES	7,A		;(MSB)<--0
 	POP	BC
 	RET

diff --git a/figforth.asm b/figforth.asm
@@ -74,6 +74,7 @@ ADOT	.EQU	2EH		;.
 BELL	.EQU	07H		;^G
 BSIN	.EQU	08H		;backspace chr = ^H
 BSOUT	.EQU	08H
+HT	.EQU	09H		;^T 
 DLE	.EQU	10H		;^P
 LF	.EQU	0AH		;^J
 FF	.EQU	0CH		;^L