Minor optimizations

src/nasu.tal

@@ -180,7 +180,7 @@ BRK
 
 @on-button ( -> )
 
-	.Controller/button DEI2 #0000 NEQ2 [ JMP BRK ]
+	.Controller/button DEI2 [ #0000 NEQ2 JMP BRK ]
 	.Controller/button DEI #01 AND ;on-button-ctrl JCN2
 	.Controller/button DEI #f0 AND ;on-button-arrow JCN2
 
@@ -627,10 +627,10 @@ JMP2r
 
 @clamp-selection ( -- )
 
-	.selection/x1 LDZ #10 #01 SUB STHk LTH ,&ok-limitx1 JCN STHkr .selection/x1 STZ &ok-limitx1 POPr
-	.selection/y1 LDZ #10 #01 SUB STHk LTH ,&ok-limity1 JCN STHkr .selection/y1 STZ &ok-limity1 POPr
-	.selection/x2 LDZ #10 #01 SUB STHk LTH ,&ok-limitx2 JCN STHkr .selection/x2 STZ &ok-limitx2 POPr
-	.selection/y2 LDZ #10 #01 SUB STHk LTH ,&ok-limity2 JCN STHkr .selection/y2 STZ &ok-limity2 POPr
+	.selection/x1 LDZ #0f STHk LTH ,&ok-limitx1 JCN STHkr .selection/x1 STZ &ok-limitx1 POPr
+	.selection/y1 LDZ #0f STHk LTH ,&ok-limity1 JCN STHkr .selection/y1 STZ &ok-limity1 POPr
+	.selection/x2 LDZ #0f STHk LTH ,&ok-limitx2 JCN STHkr .selection/x2 STZ &ok-limitx2 POPr
+	.selection/y2 LDZ #0f STHk LTH ,&ok-limity2 JCN STHkr .selection/y2 STZ &ok-limity2 POPr
 	( invert )
 	.selection/x2 LDZ .selection/x1 LDZ STHk GTH ,&ok-flipx JCN STHkr .selection/x2 STZ &ok-flipx POPr
 	.selection/y2 LDZ .selection/y1 LDZ STHk GTH ,&ok-flipy JCN STHkr .selection/y2 STZ &ok-flipy POPr
@@ -1355,14 +1355,6 @@ JMP2r
 
 JMP2r
 
-@print ( short* -- )
-
-	SWP ,&byte JSR
-	&byte ( byte -- ) DUP #04 SFT ,&char JSR
-	&char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO
-
-JMP2r
-
 @rol ( byte -- byte ) DUP #07 SFT SWP #10 SFT ADD JMP2r
 @ror ( byte -- byte ) DUP #70 SFT SWP #01 SFT ADD JMP2r