; Single-screen selection and key dispatch.
SHOW_MENU:
        CAL     MENU_CLEAR
        CAL     MENU_DRAW

        LD      $6,MENU_ROW
        PRE     IZ,MENU_TXT_MAIN
        CAL     MENU_PRINT

MENU_LOOP:
        CAL     MENU_INKEY

        AN      $17,$17
        JR      Z,MENU_LOOP

        LD      $12,$0

        SBC     $12,MENU_KEY_1
        JR      Z,DO_FK1

        SBC     $12,MENU_KEY_2
        JR      Z,DO_FK2

        SBC     $12,MENU_KEY_3
        JR      Z,DO_FK3

        SBC     $12,MENU_KEY_4
        JR      Z,DO_FK4


        CAL     MENU_RELEASE
        JR      MENU_LOOP

DO_FK1:
        CAL     MENU_RELEASE
        JP      MENU_SETUP

DO_FK2:
        CAL     MENU_RELEASE
        JP      SORT_MENU

DO_FK3:
        CAL     MENU_RELEASE
        JP      MENU_VTD

DO_FK4:
        CAL     MENU_RELEASE
        JP      MENU_VTP

SORT_MENU:
        CAL     MENU_CLEAR
        CAL     MENU_DRAW

        LD      $6,MENU_ROW
        PRE     IZ,MENU_TXT_SORT
        CAL     MENU_PRINT

SORT_LOOP:
        CAL     MENU_INKEY
        AN      $17,$17
        JR      Z,SORT_LOOP

        LD      $12,$0

        SBC     $12,MENU_KEY_1
        JR      Z,MENU_BUBBLE

        SBC     $12,MENU_KEY_2
        JR      Z,MENU_SHELL

        SBC     $12,MENU_KEY_3
        JR      Z,MENU_SELECT

        SBC     $12,MENU_KEY_4
        JR      Z,SORT_BACK

        CAL     MENU_RELEASE
        JR      SORT_LOOP

SORT_BACK:
        CAL     MENU_RELEASE
        JP      MENU_BACK
; end of include
; end of file