|
|
|
|
@ -127,6 +127,10 @@ JMP2r
|
|
|
|
|
|
|
|
|
|
@menu-select ( cat -- ) |
|
|
|
|
|
|
|
|
|
( exists ) |
|
|
|
|
DUP ;get-cat JSR2 #0000 NEQ2 ,&exists JCN |
|
|
|
|
POP JMP2r |
|
|
|
|
&exists |
|
|
|
|
( clear ) |
|
|
|
|
;draw-menu/sel LDA |
|
|
|
|
( unchanged ) EQUk ,menu-deselect JCN |
|
|
|
|
@ -134,10 +138,11 @@ JMP2r
|
|
|
|
|
DUP #00 ;draw-sub JSR2 |
|
|
|
|
&no-clear |
|
|
|
|
POP |
|
|
|
|
( draw application ) ;redraw-all JSR2 |
|
|
|
|
( unselect sub ) #ff ;draw-sub/sel STA |
|
|
|
|
( select cat ) DUP ;draw-menu/sel STA |
|
|
|
|
( draw sub ) #ff ;draw-sub JSR2 |
|
|
|
|
( draw ) |
|
|
|
|
;redraw-all JSR2 |
|
|
|
|
#ff ;draw-sub/sel STA |
|
|
|
|
DUP ;draw-menu/sel STA |
|
|
|
|
#ff ;draw-sub JSR2 |
|
|
|
|
;draw-menu JSR2 |
|
|
|
|
|
|
|
|
|
JMP2r |
|
|
|
|
|