~rabbits/nasu

298269d4e32f5900e269af9d4473f93771a430b2 — Devine Lu Linvega 7 months ago 433aa11
Minor opt
1 files changed, 4 insertions(+), 7 deletions(-)

M src/nasu.tal
M src/nasu.tal => src/nasu.tal +4 -7
@@ 441,9 441,6 @@ JMP2r

@set-selection-from ( x y -- )

	OVR #30 SFT
	OVR #30 SFT
		,set-selection-zoom JSR
	#0f AND
		DUP .selection/y1 STZ
		.selection/y2 STZ


@@ 816,13 813,13 @@ JMP2r
	;bigpixel-icn .Screen/addr DEO2
	#0800
	&ver
		#00 OVR 
			DUP2 #00 .selection/y1 LDZ #30 SFT ADD2 ,&y STR2
		#00 OVRk
			#00 .selection/y1 LDZ #30 SFT ADD2 ,&y STR2
			#20 SFT .zoomview/y1 LDZ2 ADD2 .Screen/y DEO2
		#0800
		&hor
			#00 OVR 
				DUP2 #00 .selection/x1 LDZ #30 SFT ADD2 ,&x STR2
			#00 OVRk
				#00 .selection/x1 LDZ #30 SFT ADD2 ,&x STR2
				#20 SFT .zoomview/x1 LDZ2 ADD2 .Screen/x DEO2
			[ LIT2 &x $2 ] [ LIT2 &y $2 ] ;get-pixel JSR2 .Screen/sprite DEO
			INC GTHk ,&hor JCN