~rabbits/nasu

9508cf442d91d936f2f5eb66d451d611f0df5d22 — Devine Lu Linvega 2 months ago a99f212
Removed old draw-menu
1 files changed, 0 insertions(+), 31 deletions(-)

M src/manifest.tal
M src/manifest.tal => src/manifest.tal +0 -31
@@ 185,37 185,6 @@ JMP2r

JMP2r

@draw-menu ( -- )

	#0000 DUP2 .Screen/x DEO2 .Screen/y DEO2
	#01 .Screen/auto DEO
	#00 ,&cat-id STR
	;manifest/menu
	&cat
		[ LIT &cat-sel $1 ] [ LIT &cat-id $1 ] EQU #02 ADD ;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
		STHr #00
		&subcat
			DUP [ LIT &sub-sel $1 ] EQU #04 MUL #07 ADD 
			,&cat-sel LDR ,&cat-id LDR EQU MUL ;draw-chr/color STA
			#00 OVR INC #30 SFT2 .Screen/y DEO2
			[ LIT2 &col $2 ] .Screen/x DEO2
			SWP2
			#0004 ADD2 ;draw-str JSR2
			SWP2
			INC GTHk ,&subcat JCN
		POP2
		( restore-x ) [ LIT2 &anchor $2 ] .Screen/x DEO2
		,&cat-id LDR INC ,&cat-id STR
		LDAk ,&cat JCN
	POP2
	#00 .Screen/auto DEO

JMP2r

@draw-str ( str* -- str* )

	&while