; ======================================================================
; XANDRIAN LABS  /  CS617 CHAPTER 02
; ======================================================================
; Program    : Chapter 02 Sorting
; Source     : app/menu_key_alias.inc
; Revision   : x0.31a-dev / comment-harmonization pass
; Target     : Casio PB-2000C / HD61700
; Role       : Add ASCII 1..4 aliases to active FK menu choices.
; Interface  : APP_MENU_INKEY wraps INKEY for menu contexts only.
; Maintainer : Xandrian Labs
; ----------------------------------------------------------------------
; Numeric editing and VT command input keep their raw keycodes.
; ======================================================================

; PURPOSE : Return menu key as physical FK1..FK4 or passthrough.
; INPUT   : INKEY returns $17=press, $0=keycode.
; OUTPUT  : On press, ASCII 31h..34h becomes FCh..FFh.
; EFFECTS : Preserves $12; no global keyboard remapping.
APP_MENU_INKEY:
        PHS     $12
        CAL     INKEY
        AN      $17,$17
        JR      Z,AMK_DONE
        LD      $12,$0
        SBC     $12,&H31
        JR      Z,AMK_ONE
        SBC     $12,&H32
        JR      Z,AMK_TWO
        SBC     $12,&H33
        JR      Z,AMK_THREE
        SBC     $12,&H34
        JR      Z,AMK_FOUR
        JR      AMK_DONE
AMK_ONE:
        LD      $0,FK1
        JR      AMK_DONE
AMK_TWO:
        LD      $0,FK2
        JR      AMK_DONE
AMK_THREE:
        LD      $0,FK3
        JR      AMK_DONE
AMK_FOUR:
        LD      $0,FK4
AMK_DONE:
        PPS     $12
        RTN
; end of include