|
|
|
|
@ -102,7 +102,7 @@ BRK
|
|
|
|
|
|
|
|
|
|
@menu-picking ( x* -- cat ) |
|
|
|
|
|
|
|
|
|
#0006 #30 SFT2 DIV2 NIP |
|
|
|
|
#0030 DIV2 NIP |
|
|
|
|
|
|
|
|
|
JMP2r |
|
|
|
|
|
|
|
|
|
@ -120,7 +120,7 @@ JMP2r
|
|
|
|
|
|
|
|
|
|
( clear ) |
|
|
|
|
;draw-menu/sel LDA |
|
|
|
|
( unchanged ) DUP2 EQU ,menu-deselect JCN |
|
|
|
|
( unchanged ) EQUk ,menu-deselect JCN |
|
|
|
|
( unselected ) DUP #ff EQU ,&no-clear JCN |
|
|
|
|
DUP #00 ;draw-sub JSR2 |
|
|
|
|
&no-clear |
|
|
|
|
@ -260,7 +260,7 @@ JMP2r
|
|
|
|
|
#00 ,&id STR |
|
|
|
|
;manifest/menu |
|
|
|
|
&cat |
|
|
|
|
#0701 [ LIT &sel $1 ] [ LIT &id $1 ] EQU JMP SWP POP ;draw-chr/color STA |
|
|
|
|
#0701 [ LIT &sel $1 ] [ LIT &id $1 ] EQU [ JMP SWP POP ] ;draw-chr/color STA |
|
|
|
|
INC2k ;draw-str JSR2 POP2 #00 .Screen/sprite DEO |
|
|
|
|
;skip-sub JSR2 |
|
|
|
|
,&id LDR INC ,&id STR |
|
|
|
|
@ -282,7 +282,7 @@ JMP2r
|
|
|
|
|
&subcat |
|
|
|
|
STHk |
|
|
|
|
#0d07 |
|
|
|
|
STHr [ LIT &sel $1 ] EQU JMP SWP POP [ LIT &mask $1 ] AND ;draw-chr/color STA |
|
|
|
|
STHr [ LIT &sel $1 ] EQU [ JMP SWP POP ] [ LIT &mask $1 ] AND ;draw-chr/color STA |
|
|
|
|
[ LIT2 &anchor $2 ] .Screen/x DEO2 |
|
|
|
|
#00 OVR INC #30 SFT2 .Screen/y DEO2 |
|
|
|
|
SWP2 ;draw-label JSR2 SWP2 |
|
|
|
|
|
Devine Lu Linvega
4 years ago