|
0
|
1 ;=============================================================================
|
|
|
2 ;
|
|
634
|
3 ; File menu_processor.asm * combined next generation V3.09.5
|
|
0
|
4 ;
|
|
275
|
5 ; Routines to handle all hwOS graphic/text menus.
|
|
0
|
6 ;
|
|
|
7 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved.
|
|
|
8 ;=============================================================================
|
|
|
9 ; HISTORY
|
|
275
|
10 ; 2012-11-02 : [jDG] Cleanup for hwOS: removed icons. Added scrolling.
|
|
582
|
11 ; But need a font with lower/upper alpha chars...
|
|
0
|
12
|
|
604
|
13 #include "hwos.inc"
|
|
0
|
14 #include "convert.inc"
|
|
|
15 #include "strings.inc"
|
|
|
16 #include "tft.inc"
|
|
|
17 #include "varargs.inc"
|
|
|
18 #include "start.inc"
|
|
|
19 #include "surfmode.inc"
|
|
|
20 #include "divemode.inc"
|
|
|
21 #include "tft_outputs.inc"
|
|
|
22 #include "eeprom_rs232.inc"
|
|
62
|
23 #include "adc_lightsensor.inc"
|
|
604
|
24 #include "i2c.inc"
|
|
623
|
25 #include "rtc.inc"
|
|
|
26 #include "wait.inc"
|
|
634
|
27 #include "colorschemes.inc"
|
|
229
|
28
|
|
0
|
29
|
|
604
|
30 ; NOTE: needs to be identical in .inc and .asm !
|
|
634
|
31 ;
|
|
623
|
32 #define MENU_LINES_MAX .7 ; maximum number of lines per screen
|
|
604
|
33 #define MENU_LEFT .20 ; position of first menu item
|
|
634
|
34 #define MENU_HEIGHT_SURF .27 ; spacing between menu item in surface mode (pixel)
|
|
|
35 #define MENU_HEIGHT_DIVE .24 ; spacing between menu item in surface mode (pixel)
|
|
604
|
36 #define MENU_VCENTER .125 ; position on screen
|
|
634
|
37 #define MAX_LINE_LENGTH_TITLE .17 ; max menu title length (characters)
|
|
|
38 #define MAX_LINE_LENGTH_SURF .20 ; max menu item length in surface menu (characters)
|
|
|
39 #define MAX_LINE_LENGTH_DIVE .10 ; max menu item length in dive mode menu (characters)
|
|
|
40 #define MENU_ITEM_DATA_SIZE .4 ; size of a menu item data block
|
|
0
|
41
|
|
634
|
42 ; Alias for easier code reading
|
|
|
43 #define option_addr item_funct_addr
|
|
0
|
44
|
|
|
45
|
|
634
|
46 extern option_adjust_group_member
|
|
|
47 extern option_inc
|
|
|
48 extern option_dec
|
|
|
49 extern option_draw
|
|
623
|
50
|
|
634
|
51 extern rtc_set_rtc
|
|
|
52 extern divemode_option_divemenu_return
|
|
0
|
53
|
|
604
|
54
|
|
|
55 ;=============================================================================
|
|
634
|
56 menu_proc CODE
|
|
|
57 ;=============================================================================
|
|
0
|
58
|
|
634
|
59
|
|
|
60 ;-----------------------------------------------------------------------------
|
|
|
61 ; Entry Point for Menu Processor, called by MENU_BEGIN Macros
|
|
0
|
62 ;
|
|
634
|
63 global menu_processor
|
|
|
64 menu_processor:
|
|
|
65 ; read menu header
|
|
|
66 VARARGS_BEGIN ; load TBLPTR with start address of the menu header data
|
|
|
67 clrf STKPTR ; never return from here
|
|
|
68
|
|
|
69 VARARGS_GET8 menu_item_count ; get number of items
|
|
|
70 VARARGS_GET8 menu_vertical_start ; get vertical start position of 1st menu item
|
|
|
71
|
|
|
72 movf menu_vertical_start,W ; excite flags
|
|
|
73 bz menu_processor_no_title ; no menu title text -> skip reading menu title text address
|
|
|
74
|
|
|
75 VARARGS_GET16 menu_title_addr ; get address of menu title text
|
|
|
76
|
|
|
77 menu_processor_no_title:
|
|
0
|
78
|
|
634
|
79 movff TBLPTRL, menu_item_data_start+0 ; store base address for menu_read_menu_item_data
|
|
|
80 movff TBLPTRH, menu_item_data_start+1 ; ...
|
|
|
81 movff TBLPTRU, menu_item_data_start+2 ; ...
|
|
|
82
|
|
|
83 btfss divemode ; in dive mode?
|
|
|
84 bra menu_processor_menu_title ; NO - no frame in surface mode menu
|
|
|
85
|
|
|
86 ; required for menus with less entries than the calling menu but not so nice when setting up gas 6.... mH
|
|
|
87 movlw .1 ; menu_pos_cur = 1 ?
|
|
|
88 cpfsgt menu_pos_cur ; ...
|
|
|
89 call TFT_clear_divemode_menu ; YES - clear the menu
|
|
|
90
|
|
|
91 ; draw a frame around the dive mode menu
|
|
|
92 movf pallet_color_mask,W ; get mask color into WREG
|
|
|
93 WIN_FRAME_COLOR dm_menu_row, dm_menu_lower, dm_menu_left ,dm_menu_right ; top, bottom, left, right
|
|
|
94 bra menu_processor_menu_body ; the dive mode menu has no menu title and footer
|
|
0
|
95
|
|
634
|
96 menu_processor_menu_title:
|
|
|
97 ; prepare screen
|
|
|
98 clrf CCP1CON ; stop PWM
|
|
|
99 bcf PORTC,2 ; fade out backlight
|
|
|
100 call TFT_ClearScreen ; clear screen
|
|
|
101
|
|
|
102 ; draw menu title
|
|
|
103 WIN_BOX_BLACK .2,.23,.0,.159 ; clear menu title area
|
|
|
104 WIN_STD .0, .2 ; set menu title font and position
|
|
|
105 FONT_COLOR color_greenish ; set menu title font color
|
|
|
106 movff menu_title_addr+0,FSR1L ; point to multi-lingual menu title text
|
|
|
107 movff menu_title_addr+1,FSR1H ; ...
|
|
|
108 call strcpy_text_FSR ; copy translated text into the buffer
|
|
|
109 movf FSR2L,W ; get title text length
|
|
|
110 mullw .9 ; compute title length in pixels_x2
|
|
|
111 bcf STATUS,C ; divide by 2
|
|
|
112 rrcf PRODL ; ...
|
|
|
113 movf PRODL,W ; get result into WREG
|
|
|
114 sublw .80 ; compute 80 (screen center position) - half title width in pixel_x2
|
|
|
115 movwf win_leftx2 ; set result as horizontal start position
|
|
|
116 movlw MAX_LINE_LENGTH_TITLE ; load max allowed length of a menu title
|
|
|
117 movwf FSR2L ; set buffer pointer to end of max length
|
|
|
118 clrf INDF2 ; terminate string at max length
|
|
|
119 PRINT ; output menu title
|
|
0
|
120
|
|
634
|
121 ; draw footer line
|
|
|
122 FONT_COLOR_MEMO ; select default color
|
|
|
123 WIN_TINY .5, .224 ; tiny font, left position
|
|
|
124 STRCPY_TEXT_PRINT tNext ; print "Next"
|
|
|
125 WIN_TINY .124, .224 ; tiny font, righ position
|
|
|
126 STRCPY_TEXT_PRINT tEnter ; print "Enter"
|
|
0
|
127
|
|
634
|
128 menu_processor_menu_body:
|
|
|
129 FONT_SIZE FT_SMALL ; select font size
|
|
|
130 bra menu_vertical ; draw the menu items
|
|
|
131
|
|
|
132
|
|
|
133 ;-----------------------------------------------------------------------------
|
|
|
134 ; Helper Function - call Callback-Function to draw the Menu Item Title
|
|
|
135 ;
|
|
0
|
136 menu_processor_call_title:
|
|
634
|
137 movff menu_title_addr+2,PCLATU ; execute computed goto
|
|
|
138 movff menu_title_addr+1,PCLATH ; ...
|
|
|
139 movf menu_title_addr+0,W ; ...
|
|
|
140 movwf PCL ; ...
|
|
582
|
141
|
|
634
|
142
|
|
|
143 ;-----------------------------------------------------------------------------
|
|
|
144 ; Clear all memorized Menu Item Selections and restart with Cursor on first Item
|
|
604
|
145 ;
|
|
582
|
146 global menu_processor_reset
|
|
0
|
147 menu_processor_reset:
|
|
634
|
148 clrf menustack ; clear first stack position
|
|
|
149 clrf menustack_pointer ; set stack pointer to first stack position
|
|
|
150 clrf selected_item ; set cursor position to first menu item
|
|
|
151 return ; done
|
|
0
|
152
|
|
582
|
153
|
|
634
|
154 ;-----------------------------------------------------------------------------
|
|
|
155 ; Pull / Double-Pull Cursor Position from Stack
|
|
|
156 ;
|
|
582
|
157 global menu_processor_double_pop
|
|
623
|
158 global menu_processor_pop
|
|
582
|
159 menu_processor_double_pop:
|
|
623
|
160 decf menustack_pointer,F ; decrement stack pointer
|
|
|
161 menu_processor_pop:
|
|
|
162 decf menustack_pointer,F ; decrement stack pointer
|
|
|
163 btfsc menustack_pointer,7 ; did the stack pointer under-run?
|
|
|
164 clrf menustack_pointer ; YES - reset stack pointer to first stack position
|
|
|
165 movf menustack_pointer,W ; load stack pointer into WREG
|
|
|
166 lfsr FSR2,menustack ; load base address of menu stack
|
|
634
|
167 movff PLUSW2,selected_item ; retrieve cursor position from stack
|
|
623
|
168 return ; done
|
|
|
169
|
|
0
|
170
|
|
634
|
171 ;-----------------------------------------------------------------------------
|
|
|
172 ; Push Cursor Position onto Stack
|
|
|
173 ;
|
|
0
|
174 menu_processor_push:
|
|
623
|
175 lfsr FSR2,menustack ; load base address of menu stack
|
|
|
176 movf menustack_pointer,W ; load stack pointer into WREG
|
|
634
|
177 movff selected_item,PLUSW2 ; save cursor position to stack
|
|
623
|
178 incf menustack_pointer,W ; increment stack pointer, park result in WREG
|
|
|
179 btfss WREG,3 ; result < 8 ?
|
|
|
180 movwf menustack_pointer ; YES - update stack pointer
|
|
634
|
181 clrf selected_item ; set cursor to first item in new menu
|
|
623
|
182 return ; done
|
|
|
183
|
|
0
|
184
|
|
634
|
185 ;-----------------------------------------------------------------------------
|
|
|
186 ; Helper Function - call Menu Item Function
|
|
|
187 ;
|
|
|
188 menu_call_item_function:
|
|
|
189 bcf switch_right ; clear button event
|
|
|
190 movf selected_item,W ; copy current cursor position to WREG
|
|
|
191 rcall menu_read_menu_item_data ; read item function address
|
|
|
192 movff selected_item,PRODL ; pass cursor position (menu item number) to call function
|
|
|
193 rcall menu_processor_push ; push current cursor position onto stack
|
|
|
194 clrf PCLATU ; execute computed goto
|
|
|
195 movff item_funct_addr+1,PCLATH ; ...
|
|
|
196 movf item_funct_addr+0,W ; ...
|
|
|
197 movwf PCL ; ...
|
|
0
|
198
|
|
634
|
199
|
|
|
200 ;-----------------------------------------------------------------------------
|
|
|
201 ; Read Menu Item Data
|
|
0
|
202 ;
|
|
634
|
203 menu_read_menu_item_data:
|
|
|
204 cpfsgt menu_item_count ; selected menu item valid? || * Safety Check * to prevent any computed
|
|
|
205 clrf WREG ; NO - change selection to first item || goto to an illegal random target address
|
|
|
206
|
|
|
207 mullw MENU_ITEM_DATA_SIZE ; compute menu item data offset
|
|
|
208 movf PRODL,W ; add offset to base address of menu data block and set up TBLPTR
|
|
|
209 addwf menu_item_data_start+0,W ; ...
|
|
|
210 movwf TBLPTRL ; ...
|
|
|
211 movf PRODH,W ; ...
|
|
|
212 addwfc menu_item_data_start+1,W ; ...
|
|
|
213 movwf TBLPTRH ; ...
|
|
|
214 movlw 0 ; ...
|
|
|
215 addwfc menu_item_data_start+2,W ; ...
|
|
|
216 movwf TBLPTRU ; ...
|
|
|
217
|
|
|
218 VARARGS_GET16 item_title_addr ; read address of item title function or title text | with embedded
|
|
|
219 VARARGS_GET16 item_funct_addr ; read address of item call function or option definition data | menu item type
|
|
0
|
220
|
|
634
|
221 movlw .2 ; probe for menu item type = OPTION
|
|
|
222 btfsc item_funct_addr,0 ; is type OPTION?
|
|
|
223 bra menu_read_menu_item_data_1 ; YES
|
|
|
224
|
|
|
225 movlw .1 ; probe for menu item type = MENU_CALL
|
|
|
226 btfsc item_title_addr,0 ; is type MENU_CALL?
|
|
|
227 bra menu_read_menu_item_data_1 ; YES
|
|
|
228
|
|
|
229 movlw .0 ; must be MENU_DYNAMIC
|
|
0
|
230
|
|
634
|
231 menu_read_menu_item_data_1:
|
|
|
232 movwf item_type ; store menu item type
|
|
|
233 bcf item_title_addr+0,0 ; strip menu item type encoding from addresses (reset to even addresses)
|
|
|
234 bcf item_funct_addr+0,0 ; ...
|
|
|
235
|
|
|
236 return ; done
|
|
|
237
|
|
|
238
|
|
|
239 ;-----------------------------------------------------------------------------
|
|
|
240 ; Menu HMI Operation
|
|
0
|
241 ;
|
|
582
|
242 global menu_vertical
|
|
0
|
243 menu_vertical:
|
|
634
|
244 rcall menu_draw_menu_items ; draw all menu items
|
|
|
245 movlw CCP1CON_VALUE ; load PWM setting
|
|
623
|
246 btfss divemode ; in dive mode?
|
|
604
|
247 movwf CCP1CON ; NO - power-on backlight
|
|
0
|
248
|
|
634
|
249 menu_vertical_loop:
|
|
|
250 movf selected_item,W ; get cursor position into WREG
|
|
|
251 rcall menu_read_menu_item_data ; read menu item data
|
|
|
252 movf item_funct_addr+0,W ; check if execute function call address is NULL
|
|
|
253 iorwf item_funct_addr+1,W ; ...
|
|
|
254 bz next_line_menu ; YES - not selectable, step cursor to next menu item
|
|
|
255 btfss divemode ; NO - in dive mode?
|
|
|
256 rcall menu_draw_cursor_surf ; NO - draw the cursor (main menu style)
|
|
|
257 btfss imprint_time_date ; - currently imprinting the current time & date?
|
|
|
258 bra menu_line_loop_pre1 ; NO - skip
|
|
|
259 btfss switch_right ; YES - right button pressed, i.e. time or date changed?
|
|
|
260 bra menu_line_loop_pre1 ; NO - skip
|
|
|
261 call TFT_imprint_time_date_fast ; YES - show a fast response on the screen (may momentarily show an illegal day/month combination)
|
|
|
262 call rtc_set_rtc ; - update time and date on RTC module (corrects illegal day/month combinations)
|
|
0
|
263
|
|
|
264 menu_line_loop_pre1:
|
|
623
|
265 bcf switch_right ; clear left-over right button event
|
|
|
266 bcf switch_left ; clear left-over left button event
|
|
0
|
267
|
|
634
|
268 menu_line_loop_pre2:
|
|
623
|
269 btfsc divemode ; in dive mode?
|
|
631
|
270 goto divemode_option_divemenu_return ; YES - return to it
|
|
634
|
271 call reset_timeout_surfmode ; NO - reset timeout
|
|
604
|
272
|
|
623
|
273 menu_line_loop:
|
|
634
|
274 call housekeeping ; - handle data imprinting, screen dump request, timeout and entering dive mode
|
|
|
275 btfsc switch_right ; - right button pressed?
|
|
|
276 bra do_line_menu ; YES - execute menu item function
|
|
|
277 btfss switch_left ; NO - left button pressed?
|
|
|
278 bra menu_line_loop ; NO - loop
|
|
|
279 next_line_menu: ; YES - step cursor to next menu item
|
|
|
280 bcf switch_left ; - clear button event
|
|
|
281 incf selected_item,F ; - increment cursor position to next item
|
|
|
282 movf selected_item,W ; - copy new item number to WREG
|
|
|
283 cpfseq menu_item_count ; - new item number beyond number of menu items?
|
|
|
284 bra menu_vertical_loop ; NO - redraw cursor
|
|
|
285 clrf selected_item ; YES - reset cursor position to first item
|
|
|
286 bra menu_vertical_loop ; - redraw cursor
|
|
604
|
287
|
|
0
|
288
|
|
634
|
289 ;-----------------------------------------------------------------------------
|
|
|
290 ; Execute Menu Item Function
|
|
|
291 ;
|
|
582
|
292 global do_line_menu
|
|
0
|
293 do_line_menu:
|
|
634
|
294 decf menu_pos_cur,W ; get selected menu item (0-5) into WREG
|
|
623
|
295 btfsc divemode ; in dive mode?
|
|
634
|
296 movwf selected_item ; YES - take selected menu item from dive mode
|
|
|
297 movf selected_item,W ; copy selected menu item to WREG
|
|
|
298 rcall menu_read_menu_item_data ; read menu item data
|
|
|
299 movf item_type,W ; switch on menu item type
|
|
|
300 bz menu_do_line_call ; -> 0: call (with dynamic title)
|
|
|
301 dcfsnz WREG ;
|
|
|
302 bra menu_do_line_call ; -> 1: call (with fixed title)
|
|
|
303 dcfsnz WREG ;
|
|
|
304 bra menu_do_line_option ; -> 2: option
|
|
|
305 bra menu_line_loop_pre2 ; else do nothing
|
|
|
306
|
|
|
307 menu_do_line_call:
|
|
|
308 rcall menu_call_item_function ; push current cursor position onto stack and call menu item function
|
|
|
309 rcall menu_processor_pop ; get back cursor position
|
|
|
310 bra menu_vertical ; re-draw the menu
|
|
|
311
|
|
|
312 menu_do_line_option:
|
|
|
313 movff option_addr+0,FSR0L ; get address of option definition data
|
|
|
314 movff option_addr+1,FSR0H ; ...
|
|
|
315 btfsc option_addr+1,4 ; shall stop at max value?
|
|
|
316 bsf option_stop_at_max ; YES - set flag
|
|
|
317 btfsc option_addr+1,6 ; is the selected option an option group member?
|
|
|
318 call option_adjust_group_member ; YES - adjust address to selected group member
|
|
|
319 btfss option_addr+1,5 ; shall increment?
|
|
|
320 call option_inc ; YES - increment option value
|
|
|
321 btfsc option_addr+1,5 ; shall decrement?
|
|
|
322 call option_dec ; YES - decrement option value
|
|
|
323 bcf option_stop_at_max ; revert to default (= wrap-around after max value)
|
|
|
324 bra menu_vertical ; re-draw the menu
|
|
|
325
|
|
|
326
|
|
|
327 ;-----------------------------------------------------------------------------
|
|
|
328 ; Draw all Menu Items
|
|
|
329 ;
|
|
|
330 menu_draw_menu_items:
|
|
|
331 btfss divemode ; in dive mode?
|
|
|
332 bra menu_draw_lines_surfmode ; NO
|
|
|
333 ;bra menu_draw_lines_divemode ; YES
|
|
|
334
|
|
|
335 global menu_draw_lines_divemode
|
|
|
336 menu_draw_lines_divemode:
|
|
|
337 movlw dm_menu_item1_row ; get row position for 1st item
|
|
|
338 movwf win_top ; set vertical output position
|
|
|
339 movlw dm_menu_item1_column ; get column position for 1st item
|
|
|
340 movwf win_leftx2 ; set horizontal output position
|
|
|
341 clrf menu_item_start ; set first item in menu block as first item to draw
|
|
|
342 movff menu_item_count,menu_pos_max ; copy number of item in menu block to menu_pos_max
|
|
|
343 bra menu_draw_menu_items_common ; continue with common part
|
|
|
344
|
|
|
345 menu_draw_lines_surfmode:
|
|
|
346 WIN_SMALL MENU_LEFT, 0 ; initialize start position and font
|
|
|
347 movff menu_vertical_start,win_top ; set vertical output position
|
|
|
348 clrf menu_item_start ; set first item in menu block as first item to draw
|
|
|
349
|
|
|
350 IFDEF scrolling_menu_enabled
|
|
|
351 ; does the menu have more than 7 item ?
|
|
|
352 movf menu_item_count,W ; get number of menu items
|
|
|
353 addlw -(MENU_LINES_MAX+1) ; more than 7 item?
|
|
|
354 bn menu_draw_menu_items_common ; NO - continue with common part
|
|
|
355 movf selected_item,W ; YES - compute first item to be drawn as current cursor position - 6
|
|
|
356 addlw -(MENU_LINES_MAX-1) ; - ...
|
|
|
357 btfsc STATUS,N ; - is this < 0 ?
|
|
|
358 clrf WREG ; YES - revert to starting from first item
|
|
|
359 movwf menu_item_start ; - set first item to be drawn
|
|
|
360 ENDIF ; scrolling_menu_enabled
|
|
|
361
|
|
|
362 menu_draw_menu_items_common:
|
|
|
363 movff menu_item_start,menu_item_curr ; initialize menu item counter
|
|
|
364 FONT_SIZE FT_SMALL ; set font size
|
|
|
365
|
|
|
366 menu_draw_menu_items_loop:
|
|
|
367 FONT_COLOR_MEMO ; set default font color (may be changed by dynamic titles)
|
|
|
368 movf menu_item_curr,W ; get menu item to draw
|
|
|
369 rcall menu_read_menu_item_data ; read menu item data
|
|
|
370 movf item_type,W ; switch on menu item type:
|
|
|
371 bz menu_draw_menu_item_dynamic ; -> 0: call with dynamic title
|
|
|
372 dcfsnz WREG ;
|
|
|
373 bra menu_draw_menu_item_call ; -> 1: call with fixed title
|
|
|
374 dcfsnz WREG ;
|
|
|
375 bra menu_draw_menu_item_option ; -> 2: option increment
|
|
|
376 bra menu_draw_menu_item_print ; no output in case of illegal type
|
|
|
377
|
|
|
378 menu_draw_menu_item_dynamic:
|
|
|
379
|
|
|
380 movf item_title_addr+0,W ; check if call address is NULL
|
|
|
381 iorwf item_title_addr+1,W ; ...
|
|
|
382 btfsc STATUS,Z ; is null?
|
|
|
383 bra menu_draw_menu_item_no_print ; YES - no printing on this menu line
|
|
|
384 INIT_BUFFER ; NO - initialize buffer
|
|
|
385 movff menu_item_curr,PRODL ; - pass menu item position to call function
|
|
|
386 rcall menu_text_call ; - call dynamic title function
|
|
|
387 bra menu_draw_menu_item_print ; - print menu item
|
|
|
388
|
|
|
389 menu_draw_menu_item_call:
|
|
|
390 movff item_title_addr+0,FSR1L ; point to multi-lingual text
|
|
|
391 movff item_title_addr+1,FSR1H ; ...
|
|
|
392 call strcpy_text_FSR ; copy translated text to buffer
|
|
|
393 bra menu_draw_menu_item_print ; print menu item
|
|
|
394
|
|
|
395 menu_draw_menu_item_option:
|
|
|
396 movff item_title_addr+0,FSR1L ; point to multi-lingual text
|
|
|
397 movff item_title_addr+1,FSR1H ; ...
|
|
|
398 call strcpy_text_FSR ; copy translated text to buffer
|
|
|
399 movff option_addr+0,FSR0L ; hand over address of option definition data
|
|
|
400 movff option_addr+1,FSR0H ; ...
|
|
|
401 btfsc option_addr+1,6 ; is the selected option an option group member?
|
|
|
402 call option_adjust_group_member ; YES - adjust address to selected group member
|
|
|
403 btfss block_option_value ; displaying of option value suspended?
|
|
|
404 call option_draw ; NO - draw option value
|
|
|
405 ;bra menu_draw_menu_item_print ; print menu item
|
|
0
|
406
|
|
634
|
407 menu_draw_menu_item_print:
|
|
|
408 movlw MAX_LINE_LENGTH_SURF ; load maximum length for a surface menu item
|
|
|
409 btfsc divemode ; in dive mode?
|
|
|
410 movlw MAX_LINE_LENGTH_DIVE ; YES - replace with maximum length for a dive mode menu item
|
|
|
411 call TFT_buffer_trim_length ; fill up or cut buffer to max length
|
|
|
412 PRINT ; print menu item to screen
|
|
|
413 ;bra menu_draw_menu_item_no_print ; continue with after-print actions
|
|
|
414
|
|
|
415 menu_draw_menu_item_no_print:
|
|
|
416 movlw MENU_HEIGHT_SURF ; get menu items vertical spacing for surface mode
|
|
|
417 btfsc divemode ; in dive mode?
|
|
|
418 movlw MENU_HEIGHT_DIVE ; YES - replace with vertical spacing for dive mode
|
|
|
419
|
|
|
420 addwf win_top,F ; adjust vertical output position
|
|
|
421 incf menu_item_curr,F ; go to next menu item
|
|
|
422
|
|
|
423 btfss divemode ; in dive mode?
|
|
|
424 bra menu_draw_menu_item_surfmode ; NO
|
|
|
425 ;bra menu_draw_menu_item_divemode ; YES
|
|
|
426
|
|
|
427 menu_draw_menu_item_divemode:
|
|
|
428 movlw .3 ; load a 3
|
|
|
429 cpfseq menu_item_curr ; just done menu item 3 ?
|
|
|
430 bra menu_draw_menu_item_common ; NO - continue with common part
|
|
|
431 movlw dm_menu_item4_row ; YES - set vertical position for 2nd column
|
|
|
432 movff WREG,win_top ; - ...
|
|
|
433 movlw dm_menu_item4_column ; - set horizontal position for 2nd column
|
|
|
434 movff WREG,win_leftx2 ; - ...
|
|
|
435 bra menu_draw_menu_item_common ; - continue with common part
|
|
|
436
|
|
|
437 menu_draw_menu_item_surfmode:
|
|
|
438 IFDEF scrolling_menu_enabled
|
|
|
439 movf menu_item_start,W ; get the number of the menu item that menu drawing started with
|
|
|
440 subwf menu_item_curr,W ; compute how many item have been drawn already
|
|
|
441 xorlw MENU_LINES_MAX ; compare with how max item fit the screen
|
|
|
442 btfsc STATUS,Z ; screen full?
|
|
|
443 return ; YES - done
|
|
|
444 ;bra menu_draw_menu_item_common ; NO - continue with common part
|
|
|
445 ENDIF ; scrolling_menu_enabled
|
|
|
446
|
|
|
447 menu_draw_menu_item_common:
|
|
|
448 movf menu_item_curr,W ; get current menu item
|
|
|
449 xorwf menu_item_count,W ; compare with total number of menu items, more item to do?
|
|
|
450 bnz menu_draw_menu_items_loop ; YES - loop
|
|
|
451 return ; NO - done
|
|
|
452
|
|
|
453
|
|
|
454 ;-----------------------------------------------------------------------------
|
|
|
455 ; Helper Function - call Function for dynamic Title
|
|
|
456 ;
|
|
|
457 menu_text_call:
|
|
|
458 clrf PCLATU ; execute a computed goto
|
|
|
459 movff item_title_addr+1,PCLATH ; ...
|
|
|
460 movf item_title_addr+0,W ; ...
|
|
|
461 movwf PCL ; ...
|
|
|
462
|
|
0
|
463
|
|
634
|
464 ;-----------------------------------------------------------------------------
|
|
|
465 ; Draw the Cursor (Main Menu Style)
|
|
|
466 ;
|
|
|
467 menu_draw_cursor_surf:
|
|
|
468 WIN_LEFT MENU_LEFT-8 ; set horizontal start of cursor column
|
|
|
469 WIN_WIDTH .6 ; set width of cursor column
|
|
|
470 WIN_HEIGHT .223 ; set preliminary hight of cursor column
|
|
|
471
|
|
|
472 movf menu_vertical_start,W ; get vertical start of menu items
|
|
|
473 movwf win_top ; set vertical start of cursor column
|
|
|
474 subwf win_height,F ; final hight = prelim.height - vertical start
|
|
|
475
|
|
|
476 clrf WREG ; set color to black
|
|
|
477 BOX_COLOR ; clear cursor area
|
|
|
478
|
|
|
479 movf menu_item_start,W ; get number of menu item that is on the first line
|
|
|
480 subwf selected_item,W ; compute line number of current menu item
|
|
|
481
|
|
|
482 mullw MENU_HEIGHT_SURF ; multiply line number with vertical menu items spacing
|
|
|
483 movf PRODL,W ; get computed vertical offset
|
|
|
484 addwf menu_vertical_start,W ; add offset to vertical start position
|
|
|
485 movwf win_top ; set final vertical position
|
|
|
486 bra menu_draw_cursor_common ; print cursor and return
|
|
|
487
|
|
|
488
|
|
|
489 ;-----------------------------------------------------------------------------
|
|
|
490 ; Draw the Cursor (Dive Mode Style)
|
|
|
491 ;
|
|
|
492 global menu_draw_cursor_dive
|
|
|
493 menu_draw_cursor_dive:
|
|
|
494 ; clear cursor areas
|
|
|
495 WIN_BOX_BLACK dm_menu_row+.1, dm_menu_lower-.1, dm_menu_item1_column-.8, dm_menu_item1_column-.1
|
|
|
496 WIN_BOX_BLACK dm_menu_row+.1, dm_menu_lower-.1, dm_menu_item4_column-.8, dm_menu_item4_column-.1
|
|
|
497
|
|
|
498 movlw dm_menu_item1_column-.8 ; load position of left column
|
|
|
499 btfsc menu_pos_cur,2 ; cursor at menu item 4..6 ?
|
|
|
500 movlw dm_menu_item4_column-.8 ; YES - replace with position of right column
|
|
|
501 movwf win_leftx2 ; set horizontal position
|
|
|
502
|
|
|
503 decf menu_pos_cur,W ; get cursor position as 0..5 into WREG
|
|
|
504 btfsc menu_pos_cur,2 ; cursor at menu item 4..6 ?
|
|
|
505 addlw -.3 ; YES - subtract 3 to get line number in right column
|
|
|
506
|
|
|
507 mullw MENU_HEIGHT_DIVE ; multiply line number with vertical menu items spacing
|
|
|
508 movf PRODL,W ; get computed vertical offset
|
|
|
509 addlw dm_menu_item1_row ; add offset to vertical start position
|
|
|
510 movwf win_top ; set final vertical position
|
|
|
511 ;bra menu_draw_cursor_common ; print cursor and return
|
|
|
512
|
|
|
513
|
|
|
514 ;-----------------------------------------------------------------------------
|
|
|
515 ; Helper Function - common Part of drawing the Cursor
|
|
|
516 ;
|
|
|
517 menu_draw_cursor_common:
|
|
|
518 FONT_COLOR_MEMO ; set font color
|
|
|
519 FONT_SIZE FT_SMALL ; set font size
|
|
|
520 STRCPY_PRINT "\xb7" ; print cursor
|
|
|
521 return ; done
|
|
0
|
522
|
|
|
523 ;-----------------------------------------------------------------------------
|
|
|
524
|
|
634
|
525 END
|
