|
|
|
|
@ -44,6 +44,7 @@
|
|
|
|
|
|
|
|
|
|
;on-mouse-menu .Mouse/vector DEO2 |
|
|
|
|
;on-control-menu .Controller/vector DEO2 |
|
|
|
|
#ff ;draw-cat/sel STA |
|
|
|
|
;draw-cat JSR2 |
|
|
|
|
|
|
|
|
|
BRK |
|
|
|
|
@ -62,9 +63,18 @@ BRK
|
|
|
|
|
;hand-icn .Screen/addr DEO2 |
|
|
|
|
#4f .Mouse/state DEI #00 NEQ ADD .Screen/sprite DEO |
|
|
|
|
|
|
|
|
|
;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 |
|
|
|
|
BRK |
|
|
|
|
&no-sub |
|
|
|
|
|
|
|
|
|
.Mouse/state DEI ;on-menu-touch JCN2 |
|
|
|
|
|
|
|
|
|
.Mouse/y DEI2 #0007 GTH2 ;on-menu-leave JCN2 |
|
|
|
|
( don't leave if menu is active ) |
|
|
|
|
;draw-cat/sel LDA #ff EQU |
|
|
|
|
.Mouse/y DEI2 #0007 GTH2 |
|
|
|
|
#0101 EQU2 ;on-menu-leave JCN2 |
|
|
|
|
|
|
|
|
|
BRK |
|
|
|
|
|
|
|
|
|
@ -161,7 +171,7 @@ JMP2r
|
|
|
|
|
LDAk STH INC2 ;skip-str JSR2 |
|
|
|
|
STHr #00 |
|
|
|
|
&subcat |
|
|
|
|
#01 [ LIT &mask $1 ] AND ;draw-chr/color STA |
|
|
|
|
DUP [ LIT &sel $1 ] EQU INC [ LIT &mask $1 ] AND ;draw-chr/color STA |
|
|
|
|
[ LIT2 &anchor $2 ] .Screen/x DEO2 |
|
|
|
|
#00 OVR INC #30 SFT2 .Screen/y DEO2 |
|
|
|
|
SWP2 #0004 ADD2 ;draw-str JSR2 SWP2 |
|
|
|
|
|