From 2d3f04717d9e214021c11599cc24c2aed550515a Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Thu, 26 May 2022 19:35:21 -0700
Subject: [PATCH] Minor optimisation

---
 src/nasu.tal | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/nasu.tal b/src/nasu.tal
index 35264e7..4ebab47 100644
--- a/src/nasu.tal
+++ b/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