Browse Source

Fixed issue with menu

main
Devine Lu Linvega 4 years ago
parent
commit
ab7bd1de9b
  1. 13
      src/manifest.tal

13
src/manifest.tal

@ -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

Loading…
Cancel
Save