Minor optimisation

src/nasu.tal

@@ -1220,7 +1220,7 @@ JMP2r
 	STH2r
 	DUP2 ROT2 SWP2 #0006 ADD2 STA2
 	DUP2 ROT2 SWP2 #0004 ADD2 STA2
-	DUP2 ROT2 SWP2 #0002 ADD2 STA2
+	DUP2 ROT2 SWP2 INC2 INC2 STA2
 	DUP2 ROT2 SWP2 STA2
 	POP2
 
@@ -1229,7 +1229,7 @@ JMP2r
 @within-rect ( x* y* rect -- flag )
 
 	STH
-	( y LTH rect.y1 ) DUP2 STHkr #02 ADD LDZ2 LTH2 ,&skip JCN
+	( y LTH rect.y1 ) DUP2 STHkr INC2 INC2 LDZ2 LTH2 ,&skip JCN
 	( y GTH rect.y2 ) DUP2 STHkr #06 ADD LDZ2 GTH2 ,&skip JCN
 	SWP2
 	( x LTH rect.x1 ) DUP2 STHkr LDZ2 LTH2 ,&skip JCN
@@ -1357,7 +1357,7 @@ JMP2r
 
 @print ( short* -- )
 
-	&short ( short* -- ) SWP ,&byte JSR
+	SWP ,&byte JSR
 	&byte ( byte -- ) DUP #04 SFT ,&char JSR
 	&char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO