Added selection size label

src/nasu.tal

@@ -645,8 +645,8 @@ JMP2
 	POP2
 	( draw selection )
 	#06 .selection/x2 LDZ .selection/x1 LDZ SUB #40 SFT ADD .Screen/auto DEO
-	.tileview/x1 LDZ2 #00 .selection/x1 LDZ #30 SFT2 ADD2 .Screen/x DEO2
-	.tileview/y1 LDZ2 #00 .selection/y1 LDZ #30 SFT2 ADD2 .Screen/y DEO2
+	#00 .selection/x1 LDZ #30 SFT2 .tileview/x1 LDZ2 ADD2 .Screen/x DEO2
+	#00 .selection/y1 LDZ #30 SFT2 .tileview/y1 LDZ2 ADD2 .Screen/y DEO2
 	.selection LDZ2 ;get-tile-addr JSR2 ,&sprite STR2
 	.selection/y2 LDZ .selection/y1 LDZ SUB INC #00
 	&loop-sel
@@ -655,6 +655,16 @@ JMP2
 		INC GTHk ,&loop-sel JCN
 	POP2
 	#01 .Screen/auto DEO
+	( draw selection size )
+	.selection/x2 LDZ .selection/x1 LDZ SUB #02 LTH ,&no-label JCN
+	.selection/y2 LDZ #0f EQU ,&no-label JCN
+		#00 .selection/x1 LDZ #30 SFT2 .tileview/x1 LDZ2 ADD2 .Screen/x DEO2
+		#00 .selection/y2 LDZ INC #30 SFT2 .tileview/y1 LDZ2 ADD2 .Screen/y DEO2
+		#04 ;draw-chr/color STA
+		.selection/x2 LDZ .selection/x1 LDZ SUB INC #40 SFT
+		.selection/y2 LDZ .selection/y1 LDZ SUB INC ORA
+			;draw-byte JSR2
+		&no-label
 
 JMP2r