1 files changed, 7 insertions(+), 15 deletions(-)

M src/potato.tal

@@ 408,38 408,30 @@ JMP2r
 @get-meta ( path* -- )
 
 	( setup )
-	DUP2 .Disk/name DEO2
+	.Disk/name DEO2
 	( read start )
 	#0003 .Disk/length DEO2
 	;&header .Disk/read DEO2
-	( seek )
-	#0000 .Disk/name DEO2
-	DUP2 .Disk/name DEO2
+	( body )
 	,&start LDR2 #0100 SUB2 ;seek JSR2
-	( read end )
 	#0004 .Disk/length DEO2
-	;&end .Disk/read DEO2
-
-	,&end LDR2 ,&start LDR2 SUB2 .Disk/length DEO2
+	;&end
+		DUP2 .Disk/read DEO2
+		LDA2 ,&start LDR2 SUB2 .Disk/length DEO2
 	;&buffer .Disk/read DEO2
-
-	#0000 .Disk/name DEO2
-	DUP2 .Disk/name DEO2
+	( icon )
 	,&icon LDR2 #0100 SUB2 ;seek JSR2
-
 	#0200 .Disk/length DEO2
 	;&pict .Disk/read DEO2
 
-	POP2
-
 JMP2r
 	&header $1 &start $2 &end $2 &icon $2
 	&buffer $40
 	&pict $200
 
-
 @seek ( length* -- )
 
+	.Disk/name DEI2k ROT  DEO2
 	#0001 .Disk/length DEO2
 	#0000
 	&l