~rabbits/nasu

ac526015e71bf0725eccc75101f99a8ca4a11c12 — Devine Lu Linvega 8 months ago eda21a1
Reduce sub redraws
1 files changed, 16 insertions(+), 2 deletions(-)

M src/manifest.tal
M src/manifest.tal => src/manifest.tal +16 -2
@@ 66,8 66,13 @@ BRK
		&no-touch-cat
	( when sub active )
	;draw-cat/sel LDA #ff EQU ,&no-sub JCN
		.Mouse/y DEI2 #03 SFT2 NIP #01 SUB ;draw-sub/sel STA
		;draw-cat/sel LDA #ff ;draw-sub JSR2
		( when sel changed )
		.Mouse/y DEI2 #03 SFT2 NIP #01 SUB
		DUP ;draw-sub/sel LDA EQU ,&no-change JCN
			DUP ;draw-sub/sel STA
			;draw-cat/sel LDA #ff ;draw-sub JSR2
			&no-change
		POP
		( when touch sub )
		.Mouse/state DEI #00 EQU ,&no-touch-sub JCN
			;draw-sub/sel LDA ;menu-select-sub JSR2


@@ 158,6 163,7 @@ JMP2r

@draw-sub ( cat mask -- )

	LIT '- #18 DEO #0a18 DEO
	,&mask STR POP
	;draw-cat/sel LDA ;get-cat JSR2
	DUP2 #0000 EQU2 ,&skip JCN


@@ 180,7 186,15 @@ JMP2r

@draw-label ( label* -- next-label* )

	LDA2k SWP2
	#0004 ADD2 ;draw-str JSR2
	SWP2 ;draw-modkey JSR2

JMP2r

@draw-modkey ( mod key -- )

	;print JSR2 #0a18 DEO

JMP2r