1 files changed, 10 insertions(+), 4 deletions(-)

M src/left.tal

@@ 887,9 887,8 @@ JMP2r
 	;&color STA
 
 	DUP #20 SUB #5e GTH ?draw-special
-
-	( width ) STHk get-chrw NIP
-	( addr* ) ;font/glyphs #00 STHr #0020 SUB2 #50 SFT2 ADD2
+	( width ) DUP get-chrw NIP
+	( addr* ) SWP get-chr
 
 &seg ( width addr* -- )
 


@@ 1010,6 1009,12 @@ JMP2r
 
 JMP2r
 
+@get-chr ( c -- addr* )
+
+	#00 SWP #20 SUB #50 SFT2 ;font/glyphs ADD2
+
+JMP2r
+
 @get-chrw ( c -- width* )
 
 	#0000 ROT ;font ADD2 LDA


@@ 1048,7 1053,8 @@ JMP2r
 
 @draw-chr ( char -- )
 
-	( addr ) #00 OVR #20 SUB #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2
+	DUP
+	( addr ) get-chr .Screen/addr DEO2
 	( anchor ) get-chrw STHk .Screen/x DEI2 ADD2
 	[ LIT &color 01 ] .Screen/sprite DEOk STHr #08 LTH ?&thin DEOk &thin POP2
 	.Screen/x DEO2