1 files changed, 2 insertions(+), 17 deletions(-)

M src/main.tal

@@ 111,7 111,7 @@
 
 	.frame/x1 LDZ2 #0001 -- .frame/y1 LDZ2 #0030 ++ #10 TOS 8** #0080 SIZE-TO-RECT ;tileview SET-RECT
 	.frame/x1 LDZ2 #0082 ++ .frame/y1 LDZ2 #0030 ++ #007f #007f SIZE-TO-RECT ;nametable SET-RECT
-	.frame/x1 LDZ2 #0001 -- .frame/y1 LDZ2 #0020 #0028 SIZE-TO-RECT ;zoomview SET-RECT
+	.frame/x1 LDZ2 #0001 -- .frame/y1 LDZ2 #001f #0028 SIZE-TO-RECT ;zoomview SET-RECT
 	.frame/x1 LDZ2 #002f ++ .frame/y1 LDZ2 #0020 #0020 SIZE-TO-RECT ;preview SET-RECT
 	.frame/x1 LDZ2 #005f ++ .frame/y1 LDZ2 #0020 #0020 SIZE-TO-RECT ;colorview SET-RECT
 	.frame/x1 LDZ2 #008f ++ .frame/y1 LDZ2 #0020 #0028 SIZE-TO-RECT ;blendview SET-RECT


@@ 125,7 125,7 @@
 
 	.zoomview/x1 LDZ2 #0001 -- .zoomview-frame/x1 STZ2
 	.zoomview/y1 LDZ2 #0001 -- .zoomview-frame/y1 STZ2
-	.zoomview/x2 LDZ2 INC2 .zoomview-frame/x2 STZ2
+	.zoomview/x2 LDZ2 #0002 ++ .zoomview-frame/x2 STZ2
 	.zoomview/y2 LDZ2 #0007 -- .zoomview-frame/y2 STZ2
 
 	;new-file JSR2


@@ 895,21 895,6 @@ RTN
 
 RTN
 
-@copy-tile ( src* dst* -- )
-
-	STH2 STH2
-	#10 #00
-	&loop
-		( get )
-		DUP TOS DUP2 STH2kr ++ LDA
-		( put )
-		ROT ROT SWP2r STH2kr SWP2r ++ STA
-		INC GTHk ,&loop JCN
-	POP2
-	POP2r POP2r
-
-RTN
-
 @has-nametable ( -- bool )
 
 	BANK-NAMETABLE STH2k #0200 ++ STH2r