Added new metadata format

src/assets.tal

@@ -45,22 +45,11 @@
 	( v ) 0000 0000 0000 0000 2020 2020 2020 2020 
 
 @appicon
-0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0001 
-0000 0000 031c 6080 0000 0000 fc03 0000 0000 0000 0000 8040 0000 0000 0000 0000 
-0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0608 1020 4448 8090 
-0000 0000 0000 0000 0000 0000 0101 0204 4040 8080 0000 0000 0000 0000 0000 0000 
-0000 0000 0000 0000 0000 0000 0000 0000 0000 0101 0101 0101 9080 0000 0000 0000 
-0000 0000 030c 30c0 0810 3ec1 0000 0000 0000 00c0 3008 0808 0000 0000 0000 0000 
-0000 0000 0000 0000 0000 0001 0204 0812 003f c000 0080 0000 8480 0000 2018 0708 
-0000 0000 0000 ff00 0001 0528 410e f000 0810 2040 8000 0000 0000 0000 0000 0000 
-0000 0000 0000 0000 1020 2021 4347 4644 0000 00c0 e0f0 f070 0808 0808 0808 0808 
-0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
-0000 0000 0000 0000 4544 4647 4341 2024 7070 f0f0 e0c0 0000 0807 0400 0404 0404 
-00e0 1804 0202 0101 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
-0000 0000 0000 0000 1012 1008 0402 0100 0000 0000 0003 7c80 0808 1020 4080 0000 
-0101 0101 0102 0204 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
-0000 0000 0000 0000 0000 0000 0000 0000 4130 0e01 0000 0000 0014 00ff 0000 0000 
-0810 6080 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
+0000 0000 0f0f 0f0f 0000 000f 1c1c 1313 0000 0000 ffff ffff 0000 00ff cccc 3333 
+0000 0000 f0f0 f0f0 0000 00f0 c8c8 3838 0f0f 0f0f 0f0f 0f0f 1c1c 1313 1c1c 1313 
+ffff ffff ffff ffff cccc 3333 cccc 3333 f0f0 f0f0 f0f0 f0f0 c8c8 3838 c8c8 3838 
+0f0f 0f0f 0000 0000 1c1c 1313 0f00 0000 ffff ffff 0000 0000 cccc 3333 ff00 0000 
+f0f0 f0f0 0000 0000 c8c8 3838 f000 0000
 
 @font ( atari8 )
 0000 0000 0000 0000 6060 6060 6000 6000

src/nasu.tal

@@ -27,11 +27,11 @@
 |0100 ( -> )
 
 	( meta )
-	;meta #f0 DEO2
+	;meta #06 DEO2
 	( theme )
-	#097f .System/r DEO2
-	#07df .System/g DEO2
-	#0dcf .System/b DEO2
+	#970f .System/r DEO2
+	#7d0f .System/g DEO2
+	#dc0f .System/b DEO2
 	( size )
 	#012e .Screen/width DEO2
 	#00f0 .Screen/height DEO2
@@ -737,7 +737,7 @@ JMP2r
 			INC GTHk ,&hor JCN
 		POP2
 		POPr
-		.Screen/y DEI2k #0008 ADD2 ROT DEO2
+		.nametableview/x LDZ2 ;draw-lb JSR2
 		INC GTHk ,&ver JCN
 	POP2
 
@@ -976,7 +976,7 @@ JMP2r
 			#02 ;draw-chr/color STA
 			( ch2 ) #0008 ADD2 LDA2 ;draw-short JSR2
 		( skip line )
-		.Screen/y DEI2k #0008 ADD2 ROT DEO2
+		.dataview/x1 LDZ2 ;draw-lb JSR2
 		INC GTHk ,&loop JCN
 	POP2
 
@@ -1051,12 +1051,6 @@ JMP2r
 
 JMP2r
 
-@draw-lb ( -- )
-
-	.Screen/y DEI2k #0008 ADD2 ROT DEO2
-
-JMP2r
-
 @draw-once ( -- )
 
 	.tileview/x1 LDZ2 .Screen/x DEO2
@@ -1143,7 +1137,7 @@ JMP
 		.Screen/auto DEO
 		.Screen/addr DEO2
 	&paint ( mask -- )
-		[ LIT &color 8a ] SWP ORA .Screen/sprite DEO
+		[ LIT &color 85 ] SWP ORA .Screen/sprite DEO
 	JMP2r
 
 @line-hor-dashed ( x* y* color -- )
@@ -1385,12 +1379,15 @@ JMP2r
 (
 @|about )
 
-@meta =&end =appicon &body
-	( name ) "Nasu $1
-	( version ) "Ver. 20 "15 $1
-	( details ) "A 20 "Sprite 20 "Editor $1
-	( author ) "Hundred 20 "Rabbits 20 7f 20 "2022 $1
-	&end $1
+@meta =&end &body
+	( name ) "Nasu 0a
+	( version ) "Ver. 20 "16 0a
+	( details ) "A 20 "Sprite 20 "Editor 0a
+	( author ) "Hundred 20 "Rabbits 20 7f 20 "2022 00
+	( specs ) 40 0001
+	( mask ) 41 1705
+	( icon ) 83 =appicon
+	&end
 
 @about
 &on-mouse ( -> )
@@ -1415,31 +1412,43 @@ JMP2
 @draw-about ( -- )
 
 	( frame )
-	.Screen/width DEI2 #01 SFT2 #0080 SUB2 STH2k .Screen/x DEO2
-	.Screen/height DEI2 #01 SFT2 #0020 SUB2 STH2k .Screen/y DEO2
-	#2008 ;frame1-chr ;draw-frame JSR2
+	.Screen/width DEI2 #01 SFT2 #0070 SUB2 STH2k .Screen/x DEO2
+	.Screen/height DEI2 #01 SFT2 #0010 SUB2 STH2k .Screen/y DEO2
+	#1c06 ;frame1-chr ;draw-frame JSR2
 	( fill )
-	STH2kr .Screen/y DEO2
-	OVR2r STH2r .Screen/x DEO2
-	#20 #0171 ;fill-icn ;draw-fill-fast JSR2
+	STH2r .Screen/y DEO2
+	STH2r .Screen/x DEO2
+	#1c #0351 ;fill-icn ;draw-fill-fast JSR2
+	.Screen/x DEI2k #00e0 SUB2 ROT DEO2
 	( icon )
-	STH2kr .Screen/y DEO2
-	OVR2r STH2r .Screen/x DEO2
-	#08 #0476 ;appicon ;draw-fill-fast JSR2
-	( text )
-	STH2r #0010 ADD2 .Screen/y DEO2
-	LIT2r 0048 ADD2r
+	.Screen/x DEI2k #0008 ADD2 ROT DEO2
+	.Screen/y DEI2k #000c ADD2 ROT DEO2
+	#03 #8526 ;appicon ;draw-fill-fast JSR2
+	.Screen/x DEI2k #0020 ADD2 ROT DEO2
+	.Screen/y DEI2k #001c SUB2 ROT DEO2
+	#0a ;draw-chr/color STA
+	;meta/body ;draw-txt JSR2
+
+JMP2r
+
+@draw-txt ( txt* -- )
+
 	#01 .Screen/auto DEO
-	#04 ;draw-chr/color STA
-	STH2kr .Screen/x DEO2
-	;meta/body
+	.Screen/x DEI2 ,&anchor STR2
 	&w
-		;draw-str JSR2
-		;draw-lb JSR2
-		STH2kr .Screen/x DEO2
-		LDAk ,&w JCN
+		LDAk ;draw-chr JSR2
+		LDAk #0a NEQ ,&no-lb JCN
+			[ LIT2 &anchor $2 ] ,draw-lb JSR
+			&no-lb
+		INC2 LDAk ,&w JCN
 	POP2
-	POP2r
+
+JMP2r
+
+@draw-lb ( anchor* -- )
+
+	.Screen/x DEO2
+	.Screen/y DEI2k #0008 ADD2 ROT DEO2
 
 JMP2r