Optimized draw-cat

4 years ago · 3468bb49bd
1 changed files with 2 additions and 6 deletions
--- a/src/manifest.tal
+++ b/src/manifest.tal
@ -147,12 +147,8 @@ BRK
 	;manifest/menu
 	&cat
 		#0701 [ LIT &sel $1 ] [ LIT &cat-id $1 ] EQU JMP SWP POP ;draw-chr/color STA
-		LDAk STH INC2 ;draw-str JSR2 #00 .Screen/sprite DEOk DEO
-		STHr #00
-		&subcat
-			SWP2 #0004 ADD2 ;skip-str JSR2 SWP2
-			INC GTHk ,&subcat JCN
-		POP2
+		INC2k ;draw-str JSR2 POP2 #00 .Screen/sprite DEOk DEO
+		;skip-sub JSR2
 		,&cat-id LDR INC ,&cat-id STR
 		LDAk ,&cat JCN
 	POP2