~rabbits/nasu

5d605bdc516879549f4de306336c1490d789e8c0 — Devine Lu Linvega 8 months ago 7843979
Housekeeping
1 files changed, 25 insertions(+), 23 deletions(-)

M src/manifest.tal
M src/manifest.tal => src/manifest.tal +25 -23
@@ 135,30 135,9 @@ JMP2r

@on-control-menu ( -> )

BRK

@print-manifest ( -- )

	;manifest/name ;print-str JSR2
	LIT '( #18 DEO ;print-str JSR2 POP2 LIT ') #18 DEO
	#0a18 DEOk DEO
	( menu )
	;manifest/menu
	&cat
		LDAk STH INC2 ;print-str JSR2 #0a18 DEO
		STHr #00
		&subcat
			SWP2
			( modkey ) #0918 DEO ;print-mod JSR2 ;print-key JSR2
			( spacer ) #2018 DEOk LIT ': #18 DEO DEO
			( name ) INC2 INC2 ;print-str JSR2 #0a18 DEO
			SWP2
			INC GTHk ,&subcat JCN
		POP2
		LDAk ,&cat JCN
	POP2
	( TODO )

JMP2r
BRK

@draw-cat ( -- )



@@ 288,6 267,29 @@ JMP2r

JMP2r

@print-manifest ( -- )

	;manifest/name ;print-str JSR2
	LIT '( #18 DEO ;print-str JSR2 POP2 LIT ') #18 DEO
	#0a18 DEOk DEO
	( menu )
	;manifest/menu
	&cat
		LDAk STH INC2 ;print-str JSR2 #0a18 DEO
		STHr #00
		&subcat
			SWP2
			( modkey ) #0918 DEO ;print-mod JSR2 ;print-key JSR2
			( spacer ) #2018 DEOk LIT ': #18 DEO DEO
			( name ) INC2 INC2 ;print-str JSR2 #0a18 DEO
			SWP2
			INC GTHk ,&subcat JCN
		POP2
		LDAk ,&cat JCN
	POP2

JMP2r

@print-mod ( addr* -- addr* )

	LDAk STH