(sixels) Minor optimization

gui/sixels/sixels.tal

@@ -41,7 +41,7 @@
 		LDAk [ LIT "$ ] EQU ?&op-over
 		LDAk [ LIT "- ] EQU ?&op-line
 		LDAk [ LIT "! ] EQU ?&op-rle
-		LDAk [ LIT "? ] SUB <draw-sixels>/op-col
+		LDAk <draw-sixels>/op-col
 		& INC2 LDAk ?&w
 	POP2 JMP2r
 	&op-line ( -- )
@@ -51,20 +51,18 @@
 		!&
 
 @<draw-sixels>/op-rle ( addr* -- addr* )
-	( rune ) INC2
-	( length ) sdec
-	( target ) OVR2 LDA [ LIT "? ] SUB ,&t STR
+	INC2 sdec OVR2 LDA ,&t STR
 	#0000
 	&l ( -- )
 		[ LIT &t $1 ] <draw-sixels>/op-col
 		INC2 GTH2k ?&l
 	POP2 POP2 !<draw-sixels>/
 
-@<draw-sixels>/op-col ( byte -- )
-	,&t STR
+@<draw-sixels>/op-col ( char -- )
+	[ LIT "? ] SUB ,&t STR
 	#0600
 	&l ( -- )
-		[ LIT &t $1 ] OVR SFT #01 AND INC INC .Screen/pixel DEO
+		[ LIT &t $1 ] OVR SFT #01 AND .Screen/pixel DEO
 		INC GTHk ?&l
 	POP2
 	( | advance )