1 files changed, 7 insertions(+), 13 deletions(-)

M src/left.tal

@@ 1093,20 1093,14 @@ JMP2r
 	#03e8 ,&parse JSR
 	#0064 ,&parse JSR
 	#000a ,&parse JSR
-	#0001 ,&parse JSR
-	POP2
-
-JMP2r
-
-&parse ( val* -- val* )
+	NIP #30 ADD ;draw-chr ( .. )
 
-	DIV2k DUPk [ LIT &z $1 ] EQU ,&skip JCN
-		DUP #30 ADD ;draw-chr JSR2
-		#ff ,&z STR
-		&skip
-	POP MUL2 SUB2
-
-JMP2r
+JMP2
+	&parse
+		DIV2k DUPk [ LIT &z $1 ] EQU ,&skip JCN
+		DUP #30 ADD ;draw-chr JSR2 #ff ,&z STR
+		&skip POP MUL2 SUB2
+	JMP2r
 
 (
 @|document )