Mercurial > public > hwos_code

comparison src/menu_processor.inc @ 646:5b7fe7777425

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
3.16 release
author heinrichs weikamp
date Thu, 14 Oct 2021 12:03:24 +0200
parents 4050675965ea
children 75e90cd0c2c3
comparison
equal deleted inserted replaced
642:a9a0188091e4 646:5b7fe7777425
51 ;----------------------------------------------------------------------------- 51 ;-----------------------------------------------------------------------------
52 ; Open a Dive Mode Menu Block 52 ; Open a Dive Mode Menu Block
53 ; 53 ;
54 ; nb_items number of menu items that will follow 54 ; nb_items number of menu items that will follow
55 ; 55 ;
56 MENU_BEGIN_DIVE MACRO nb_items 56 MENU_BEGIN_DIVE MACRO title_text_addr, nb_items
57 57
58 items_target set nb_items 58 items_target set nb_items
59 items_count set 0 59 items_count set 0
60 60
61 ; check number of menu items 61 ; check number of menu items
65 IF nb_items > MENU_LINES_MAX_DIVE 65 IF nb_items > MENU_LINES_MAX_DIVE
66 Error "too many items in menu", x 66 Error "too many items in menu", x
67 ENDIF 67 ENDIF
68 68
69 ; store code for menu execution 69 ; store code for menu execution
70 extern title_text_addr ; 2 byte address of multi-lingual title text
70 extern menu_processor 71 extern menu_processor
71 call menu_processor 72 call menu_processor
72 73
73 ; store menu header data 74 ; store menu header data
74 db nb_items, 0x00 ; number of items, encoding for no menu titel 75 db nb_items, 0x00 ; number of items, encoding for no menu titel
75 76 db low(title_text_addr), high(title_text_addr) ; address of multi-lingual title text
76 ENDM 77 ENDM
77 78
78 79
79 ;----------------------------------------------------------------------------- 80 ;-----------------------------------------------------------------------------
80 ; Open a Surface Mode Menu Block with leading empty Item Lines 81 ; Open a Surface Mode Menu Block with leading empty Item Lines