~rabbits/nasu

c83a751e0b817591e889f45104c6f9d0bcbc2d3a — Devine Lu Linvega a month ago 3795d9a
Drawing subcat
1 files changed, 11 insertions(+), 7 deletions(-)

M src/manifest.tal
M src/manifest.tal => src/manifest.tal +11 -7
@@ 65,21 65,24 @@ JMP2r

	#0000 DUP2 .Screen/x DEO2 .Screen/y DEO2
	#01 .Screen/auto DEO

	#07 ;draw-chr/color STA
	;manifest/name ;draw-str JSR2 #00 .Screen/sprite DEO

	#02 ;draw-chr/color STA
	;manifest/menu
	&cat
		LDAk STH INC2 ;draw-str JSR2 #00 .Screen/sprite DEO
		#02 ;draw-chr/color STA
		#0000 .Screen/y DEO2
		.Screen/x DEI2 ,&col STR2
		LDAk STH INC2 ;draw-str JSR2 #00 .Screen/sprite DEOk DEO
		.Screen/x DEI2 ,&anchor STR2
		#03 ;draw-chr/color STA
		STHr #00
		&subcat
			#00 OVR INC #30 SFT2 .Screen/y DEO2
			[ LIT2 &col $2 ] .Screen/x DEO2
			SWP2
			#0004 ADD2 ;skip-str JSR2
			#0004 ADD2 ;draw-str JSR2
			SWP2
			INC GTHk ,&subcat JCN
		POP2
		( restore-x ) [ LIT2 &anchor $2 ] .Screen/x DEO2
		LDAk ,&cat JCN
	POP2
	#00 .Screen/auto DEO


@@ 91,6 94,7 @@ JMP2r
	&while
		LDAk ,draw-chr JSR
		INC2 LDAk ,&while JCN
	INC2

JMP2r