c64os_prg_7_bh.asm

menuenq  ;X -> Menu Command Code
         .block
         txa
         #switch 2
         .text "wf"
         .rta a_wrapchk,a_footchk

         ;Current Tab
         cmp #"4"
         bcs done ;>"3"
         cmp #"1"
         bcc done ;<"1"

         ;C <- Set
         sbc #"1" ;"1" -> 0... "3" -> 2
         cmp seltab
         bne done

         lda #mnu_sel ;Enabled, Selected
         rts

done     lda #0   ;enabled, not selected
         rts

a_wrapchk
         #storeget tstviews,8
         bne chkptr

a_footchk
         #storeget tstviews,9
chkptr   #stxy ptr

         ldy #cflags
         lda (ptr),y
         and #cf_state
         beq done

         lda #mnu_sel ;Enabled, Selected
         rts
         .bend