Mercurial > public > hwos_code
annotate src/menu_processor.asm @ 584:d63dec562d50
CNS fix
| author | heinrichsweikamp |
|---|---|
| date | Wed, 28 Feb 2018 10:24:54 +0100 |
| parents | b455b31ce022 |
| children | ca4556fb60b9 |
| rev | line source |
|---|---|
| 0 | 1 ;============================================================================= |
| 2 ; | |
| 582 | 3 ; File menu_processor.asm REFACTORED VERSION V2.98 |
| 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 |
| 13 #include "convert.inc" | |
| 275 | 14 #include "hwos.inc" |
| 0 | 15 #include "strings.inc" |
| 16 #include "tft.inc" | |
| 17 #include "varargs.inc" | |
| 18 #include "wait.inc" | |
| 19 #include "start.inc" | |
| 20 #include "surfmode.inc" | |
| 21 #include "divemode.inc" | |
| 22 #include "tft_outputs.inc" | |
| 23 #include "eeprom_rs232.inc" | |
| 62 | 24 #include "adc_lightsensor.inc" |
| 229 | 25 |
| 0 | 26 |
| 582 | 27 ;NOTE: should be identical in .inc and .asm ! |
| 28 #define MENU_LINES_MAX .7 ; Number of lines per screen? | |
| 29 #define MENU_TITLE_FONT WIN_STD ; Font should contains lower/UPPER alpha | |
| 30 #define MENU_LINE_FONT WIN_SMALL ; Font should contains lower/UPPER alpha | |
| 31 #define MENU_LEFT .20 ; Position of first menu item | |
| 32 #define MENU_HEIGHT .27 ; Spacing between menu lines. | |
| 33 #define MENU_VCENTER .125 ; Position on screen. | |
| 34 #define MENU_LINE_MAX_LENGTH .20 ; Length in characters | |
| 35 #define option_item proc_item | |
| 0 | 36 |
| 37 ; Other needed references | |
| 582 | 38 extern aa_wordprocessor |
| 39 extern option_inc | |
| 40 extern option_draw | |
| 41 extern comm_mode | |
| 42 extern TFT_clear_divemode_menu | |
| 43 extern TFT_divemask_color | |
| 44 extern rtc_set_rtc | |
| 45 extern divemode_option0_return | |
| 46 extern TFT_fillup_with_spaces | |
| 0 | 47 |
| 48 | |
| 582 | 49 basic CODE |
| 0 | 50 |
| 51 ;============================================================================= | |
| 52 ; menu handler. | |
| 53 ; | |
| 54 ; Input: TBLPTR = addr of menu block. | |
| 582 | 55 global menu_processor |
| 0 | 56 menu_processor: |
| 582 | 57 banksel common ; Bank1 |
| 58 btfss divemode ; Not in divemode | |
| 59 call speed_fastest ; Make it quick ! | |
| 60 ;---- Read menu block ------------------------------------------------ | |
| 61 VARARGS_BEGIN ; Read inline PROM data | |
| 62 clrf STKPTR ; Never return, anyway... | |
| 63 VARARGS_GET8 item_max ; Get number of items | |
| 64 VARARGS_GET8 menu_flags ; Get flags | |
| 65 VARARGS_GET24 menu_title ; Get pointer to menu title | |
| 66 VARARGS_GET8 menu_center ; Vertical position | |
| 67 movff TBLPTRL, menu_block+0 ; Save base address for menu_read_item | |
| 68 movff TBLPTRH, menu_block+1 | |
| 69 movff TBLPTRU, menu_block+2 | |
| 70 btfss divemode ; In divemode? | |
| 71 bra menu_processor0 ; No | |
| 72 ; Required for menus with less entries then the calling menu but not so nice when setting up gas 6.... mH | |
| 73 movlw .1 | |
| 74 cpfsgt menupos1 ; only if menupos1 = 1... | |
| 75 call TFT_clear_divemode_menu ; ... Clear the menu! | |
| 76 ; Draw one frame around the divemode menu | |
| 77 call TFT_divemask_color | |
| 78 WIN_FRAME_COLOR16 dm_menu_row, dm_menu_lower, dm_menu_left ,dm_menu_right ; top, bottom, left, right | |
| 79 call TFT_standard_color | |
| 0 | 80 |
| 582 | 81 bra menu_processor1 ; Yes, skip some lines here |
| 0 | 82 |
| 83 menu_processor0: | |
| 582 | 84 ;---- draw menu title ------------------------------------------------ |
| 85 clrf CCP1CON ; stop PWM | |
| 86 bcf PORTC,2 ; Pull PWM out to GND | |
| 87 call TFT_ClearScreen | |
| 88 rcall menu_processor_title | |
| 89 rcall menu_processor_bottom_line | |
| 0 | 90 |
|
169
dcf3e08f31ac
CHANGE: Improve internal logbook usability
heinrichsweikamp
parents:
125
diff
changeset
|
91 menu_processor1: |
| 582 | 92 movlw FT_SMALL |
| 93 movff WREG, win_font | |
|
169
dcf3e08f31ac
CHANGE: Improve internal logbook usability
heinrichsweikamp
parents:
125
diff
changeset
|
94 |
| 582 | 95 ;---- Select menu type ----------------------------------------------- |
| 96 bra menu_vertical | |
| 0 | 97 |
| 582 | 98 global menu_processor_bottom_line |
| 99 menu_processor_bottom_line: | |
| 100 ;---- Draw bottom line ----------------------------------------------- | |
| 101 TEXT_TINY .5, .240-.16, tNext | |
| 102 TEXT_TINY .160-.6*.6, .240-.16, tEnter | |
| 103 WIN_COLOR color_greenish | |
| 104 ; Serial and Firmware Version | |
| 105 WIN_TINY .57,.240-.16 | |
| 106 STRCPY "#" | |
| 107 call TFT_cat_serial | |
| 108 STRCAT " v" | |
| 109 call TFT_cat_firmware | |
| 110 STRCAT_PRINT "" | |
| 111 call TFT_standard_color | |
| 112 bcf win_invert | |
| 113 return | |
| 0 | 114 |
| 115 ;============================================================================= | |
| 116 ; (re-)draw menu title. | |
| 117 ; | |
| 582 | 118 menu_processor_title: |
| 119 WIN_BOX_BLACK .2,.23,.0,.159 ; Clear Menu title | |
| 120 MENU_TITLE_FONT .0, .2 ; Menu title positioning | |
| 121 btfss menu_flags,0 ; Static or dynamic title ? | |
| 122 bra menu_processor_static_title | |
| 123 rcall menu_processor_call_title ; add gas, detail and color. | |
| 124 bra menu_processor_title_1 | |
| 0 | 125 |
| 582 | 126 menu_processor_static_title: |
| 127 movff menu_title+0,FSR1L ; Just copy string. | |
| 128 movff menu_title+1,FSR1H | |
| 129 call strcpy_text | |
| 0 | 130 |
| 131 menu_processor_title_1: | |
| 582 | 132 WIN_COLOR color_greenish |
| 133 movf FSR2L,W ; Get title length | |
| 134 mullw .9 ; Convert to half pixels | |
| 135 bcf STATUS,C ; Clear carry | |
| 136 rrcf PRODL ; /2 | |
| 137 movf PRODL,W ; Back to WREG | |
| 138 sublw .80 ; 80 - width | |
| 139 movwf win_leftx2 ; Aligned to center. | |
| 140 movlw .0 | |
| 141 movff WREG,buffer+.17 ; limit to 17chars (Std font max.) | |
| 142 call aa_wordprocessor | |
| 143 call TFT_standard_color | |
| 144 return | |
| 0 | 145 |
| 146 ;============================================================================= | |
| 147 ; Call dynamic proc for menu title: | |
| 148 | |
| 149 menu_processor_call_title: | |
| 582 | 150 movff menu_title+2,PCLATU ; Just execute computed goto. |
| 151 movff menu_title+1,PCLATH | |
| 152 movf menu_title+0,W | |
| 153 movwf PCL | |
| 154 | |
| 0 | 155 ;============================================================================= |
| 156 ; Restart with first icon/line selected. | |
| 582 | 157 global menu_processor_reset |
| 0 | 158 menu_processor_reset: |
| 582 | 159 banksel menustack |
| 160 lfsr FSR2,menustack | |
| 161 clrf POSTINC2 | |
| 162 clrf POSTINC2 | |
| 163 clrf POSTINC2 | |
| 164 clrf POSTINC2 | |
| 165 clrf POSTINC2 | |
| 166 banksel common | |
| 167 clrf selected_item | |
| 168 return | |
| 0 | 169 |
| 582 | 170 global menu_processor_pop |
| 0 | 171 menu_processor_pop: |
| 582 | 172 movff menustack+0,selected_item |
| 173 movff menustack+1,menustack+0 | |
| 174 movff menustack+2,menustack+1 | |
| 175 movff menustack+3,menustack+2 | |
| 176 movff menustack+4,menustack+3 | |
| 177 return | |
| 178 | |
| 179 global menu_processor_double_pop | |
| 180 menu_processor_double_pop: | |
| 181 movff menustack+1,selected_item | |
| 182 movff menustack+2,menustack+0 | |
| 183 movff menustack+3,menustack+1 | |
| 184 movff menustack+4,menustack+2 | |
| 185 return | |
| 0 | 186 |
| 187 menu_processor_push: | |
| 582 | 188 movff menustack+3,menustack+4 |
| 189 movff menustack+2,menustack+3 | |
| 190 movff menustack+1,menustack+2 | |
| 191 movff menustack+0,menustack+1 | |
| 192 movff selected_item,menustack+0 | |
| 193 clrf selected_item | |
| 194 return | |
| 0 | 195 |
| 196 ;---- Execute menu selection ------------------------------------------------- | |
| 197 do_menu_item: | |
| 582 | 198 bcf switch_right ; Avoid loops. |
| 199 call speed_normal ; Back to normal speed. | |
| 200 movf selected_item,W ; Reread proc address from table. | |
| 201 rcall menu_read_item ; (destroy PROD) | |
| 202 movff selected_item,PRODL ; Pass along selected line | |
| 203 rcall menu_processor_push ; Remember where we get from. (clears selected_item) | |
| 204 movff proc_item+2,PCLATU ; Then execute computed goto. | |
| 205 movff proc_item+1,PCLATH | |
| 206 movf proc_item+0,W | |
| 207 movwf PCL | |
| 0 | 208 |
| 209 ;============================================================================= | |
| 210 ; Get current item from table. | |
| 211 ; | |
| 212 ; Input : Item number in WREG, menu_block. | |
| 213 ; | |
| 214 ; Output: icon_large, text_item, proc_item 16bits pointers. | |
| 215 ; | |
| 216 ; Trashed: PROD, WREG | |
| 217 menu_read_item: | |
| 582 | 218 mullw .10 ; 10 bytes per item. |
| 219 movf PRODL,W ; Then do a 24bits add | |
| 220 addwf menu_block+0,W ; with menu_block, and | |
| 221 movwf TBLPTRL ; setup TBLPTR | |
| 222 movf PRODH,W | |
| 223 addwfc menu_block+1,W | |
| 224 movwf TBLPTRH | |
| 225 movlw 0 | |
| 226 addwfc menu_block+2,W | |
| 227 movwf TBLPTRU | |
| 228 VARARGS_GET8 value_type ; Read 10 bytes of item data | |
| 229 VARARGS_GET24 dynamic_item | |
| 230 VARARGS_GET24 proc_item | |
| 231 VARARGS_GET8 WREG ; Skip dummy byte | |
| 232 VARARGS_GET16 text_item | |
| 0 | 233 |
| 582 | 234 return |
| 0 | 235 |
| 236 ;============================================================================= | |
| 237 ; Vertical menu : set of line/value to choose from. | |
| 238 ; Entry point to update lines already shown. | |
| 239 ; | |
| 582 | 240 global menu_vertical |
| 0 | 241 menu_vertical: |
| 582 | 242 btfss divemode ; Not in divemode |
| 243 clrf timeout_counter2 ; Reset timeout | |
| 0 | 244 |
| 245 menu_vertical_2: | |
| 582 | 246 rcall menu_draw_lines ; Always re-draw whole menu |
| 247 movlw CCP1CON_VALUE ; See hwos.inc | |
| 248 btfss divemode ; Not in divemode | |
| 249 movwf CCP1CON ; Power-on backlight | |
| 0 | 250 |
| 251 menu_vertical_1: | |
| 582 | 252 movf selected_item,W ; Get current item data |
| 253 rcall menu_read_item | |
| 254 movf proc_item+0,W ; Check if pro address is NULL ? | |
| 255 iorwf proc_item+1,W | |
| 256 bz next_line_menu ; YES: not selectable ! | |
| 257 btfss divemode ; Not in divemode | |
| 258 rcall menu_draw_selected_line | |
| 259 btfsc in_color_menu ; =1: In the color scheme menu | |
| 260 call TFT_show_color_schemes ; Yes, update the color schemes | |
| 261 btfss settime_setdate ; In the Set Time or Set Date menu? | |
| 262 bra menu_line_loop_pre2 ; no, skip all following | |
| 263 movff month,lo ; new month | |
| 264 dcfsnz lo,F | |
| 265 movlw .31 | |
| 266 dcfsnz lo,F | |
| 267 movlw .28 | |
| 268 dcfsnz lo,F | |
| 269 movlw .31 | |
| 270 dcfsnz lo,F | |
| 271 movlw .30 | |
| 272 dcfsnz lo,F | |
| 273 movlw .31 | |
| 274 dcfsnz lo,F | |
| 275 movlw .30 | |
| 276 dcfsnz lo,F | |
| 277 movlw .31 | |
| 278 dcfsnz lo,F | |
| 279 movlw .31 | |
| 280 dcfsnz lo,F | |
| 281 movlw .30 | |
| 282 dcfsnz lo,F | |
| 283 movlw .31 | |
| 284 dcfsnz lo,F | |
| 285 movlw .30 | |
| 286 dcfsnz lo,F | |
| 287 movlw .31 | |
| 288 cpfsgt day ; day ok? | |
| 289 bra menu_line_loop_pre1 ; OK! | |
| 290 movlw .1 ; not OK, set to 1st | |
| 291 movwf day | |
| 0 | 292 |
| 293 menu_line_loop_pre1: | |
| 582 | 294 btfsc switch_right ; Enter pressed? |
| 295 call rtc_set_rtc ; Yes, update mins,sec,hours,day,month and year to RTC module | |
| 296 call TFT_show_time_date_menu ; Update clock | |
| 0 | 297 |
| 298 menu_line_loop_pre2: | |
| 582 | 299 bcf switch_right |
| 300 bcf switch_left | |
| 301 btfss divemode ; Not in divemode | |
| 302 call speed_normal | |
| 0 | 303 |
| 304 menu_line_loop_pre3: | |
| 582 | 305 btfsc divemode ; In divemode? |
| 306 goto divemode_option0_return ; Yes, return to it | |
| 0 | 307 |
| 308 menu_line_loop: | |
| 582 | 309 btfsc switch_right |
| 310 bra do_line_menu ; Type dependent | |
| 311 btfsc switch_left | |
| 312 bra next_line_menu | |
| 313 btfss quarter_second_update ; 1/4 second? | |
| 314 bra menu_line_loop1 ; Not yet... | |
| 315 btfsc menu_show_sensors2 ; In the "Calibrate" menu? | |
| 316 call TFT_menu_calibrate ; Yes, update mV data | |
| 317 bcf quarter_second_update ; Clear flag | |
| 113 | 318 |
| 319 menu_line_loop1: | |
| 582 | 320 btfss onesecupdate ; New second |
| 321 bra menu_line_loop2 ; not yet... | |
| 322 call timeout_surfmode ; timeout on timeout_counter2 | |
| 323 call set_dive_modes ; check, if divemode must be entered | |
| 324 call get_battery_voltage ; gets battery voltage | |
| 325 btfsc settime_setdate ; In the Set Time or Set Date menu? | |
| 326 call TFT_show_time_date_menu ; Yes, update clock | |
| 327 bcf onesecupdate ; one second updates done | |
| 0 | 328 |
| 329 menu_line_loop2: | |
| 582 | 330 btfsc sleepmode ; Timeout? |
| 331 goto restart ; Yes, back to surfacemode | |
| 332 btfsc divemode | |
| 333 goto restart ; Enter divemode if required | |
| 334 btfsc enable_screen_dumps ; =1: Ignore vin_usb, wait for "l" command (Screen dump) | |
| 335 bra menu_line_loop3 | |
| 336 btfsc vusb_in ; USB plugged in? | |
| 337 call comm_mode ; Start COMM mode | |
| 338 bra menu_line_loop4 | |
| 0 | 339 menu_line_loop3: |
| 582 | 340 btfss vusb_in ; USB (still) plugged in? |
| 341 bcf enable_screen_dumps ; No, clear flag | |
| 342 call rs232_get_byte | |
| 343 btfsc rs232_receive_overflow | |
| 344 bra menu_line_loop4 | |
| 345 movlw "l" | |
| 346 cpfseq RCREG1 | |
| 347 bra menu_line_loop4 | |
| 348 call TFT_dump_screen ; Dump the screen contents | |
| 0 | 349 menu_line_loop4: |
| 582 | 350 bra menu_line_loop |
| 0 | 351 |
| 352 ;---- Move to menu's next line | |
| 353 next_line_menu: | |
| 582 | 354 btfss divemode ; not in divemode |
| 355 call speed_fastest | |
| 356 bcf switch_left ; Avoid looping. | |
| 357 incf selected_item,F ; Select next item. | |
| 358 movf selected_item,W ; Index == max ? | |
| 359 cpfseq item_max | |
| 360 bra menu_vertical_1 ; NO: redraw cursor. | |
| 361 clrf selected_item ; YES: restart for item 0. | |
| 362 bra menu_vertical_1 ; Then redraw cursor. | |
| 0 | 363 |
| 582 | 364 global do_line_menu |
| 0 | 365 do_line_menu: |
| 582 | 366 btfss divemode ; not in divemode |
| 367 call speed_fastest | |
| 368 ; bcf switch_right ; Avoid looping. | |
| 369 decf menupos1,W ; menu_processor needs 0-5... | |
| 370 btfsc divemode ; only in divemode | |
| 371 movwf selected_item | |
| 372 movf selected_item,W ; Read selected descriptor | |
| 373 rcall menu_read_item | |
| 374 movf value_type,W ; Switch on data type | |
| 375 bz menu_do_line_call ; CALL | |
| 376 dcfsnz WREG | |
| 377 bra menu_do_line_call ; STRING: do as call | |
| 378 dcfsnz WREG | |
| 379 bra menu_do_line_option ; OPTION | |
| 380 dcfsnz WREG | |
| 381 bra menu_do_line_call ; DYNAMIC: do as call | |
| 382 bra menu_line_loop_pre3 ; else do nothing... | |
| 0 | 383 |
| 384 ;---- CALL | |
| 385 menu_do_line_call: | |
| 582 | 386 rcall do_menu_item ; Same as icon menu: calculated goto. |
| 387 rcall menu_processor_pop ; Back to same line, | |
| 388 bra menu_vertical ; Then continue into menu... | |
| 0 | 389 |
| 390 ;---- Call option specific increment subroutine | |
| 391 menu_do_line_option: | |
| 582 | 392 movff option_item+0,FSR0L ; Get option handle |
| 393 movff option_item+1,FSR0H | |
| 394 call option_inc ; increment | |
| 395 movff selected_item,PRODL ; Pass selection to callback. | |
| 396 rcall menu_text_call | |
| 397 bra menu_vertical_2 ; redraw all lines... | |
| 0 | 398 |
| 399 ;----------------------------------------------------------------------------- | |
| 400 | |
| 401 menu_draw_lines_divemode: | |
| 582 | 402 movlw dm_menu_item1_row |
| 403 movff WREG,win_top | |
| 404 movlw dm_menu_item1_column | |
| 405 movff WREG,win_leftx2 | |
| 406 clrf start_item | |
| 407 movff item_max,menupos4 ; Copy item_max for divemode cursor routine | |
| 408 bra menu_draw_lines_2 | |
| 0 | 409 |
| 410 menu_draw_lines: | |
| 582 | 411 btfsc divemode ; in divemode? |
| 412 bra menu_draw_lines_divemode ; Yes | |
| 413 btfsc menu_flags,0 ; Dynamic title ? | |
| 414 rcall menu_processor_title ; YES: redraw it then. | |
| 415 MENU_LINE_FONT MENU_LEFT, 0 ; Init start position/font | |
| 416 movff menu_center,win_top ; computed in menu block. | |
| 0 | 417 |
| 582 | 418 ; Does the menu have more than 6 lines ? |
| 419 movf item_max,W | |
| 420 addlw -(MENU_LINES_MAX+1) ; (max - 7) | |
| 421 bnn menu_draw_long_menu ; bra if (max >= 7) | |
| 422 clrf start_item | |
| 423 bra menu_draw_lines_2 | |
| 0 | 424 |
| 425 menu_draw_long_menu: | |
| 582 | 426 movf selected_item,W ; Start at selected-6 |
| 427 addlw -(MENU_LINES_MAX-1) | |
| 428 btfsc STATUS,N ; This is <0 ? | |
| 429 clrf WREG ; YES: start from top instead. | |
| 430 movwf start_item | |
| 0 | 431 |
| 432 menu_draw_lines_2: | |
| 582 | 433 movff start_item, menu_item |
| 0 | 434 |
| 435 menu_draw_lines_1: | |
| 582 | 436 call TFT_standard_color ; Restore color after disabled lines. |
| 437 movf menu_item,W | |
| 438 rcall menu_read_item | |
| 439 movf value_type,W ; Switch on data type | |
| 440 bz menu_draw_line_call | |
| 441 dcfsnz WREG | |
| 442 bra menu_draw_line_string | |
| 443 dcfsnz WREG | |
| 444 bra menu_draw_line_option | |
| 445 dcfsnz WREG | |
| 446 bra menu_draw_line_dynamic | |
| 447 bra menu_draw_line_none | |
| 0 | 448 |
| 449 menu_draw_line_string: | |
| 582 | 450 movff text_item+0,TBLPTRL ; Read not-translated string from PROM. |
| 451 movff text_item+1,TBLPTRH | |
| 452 call strcpy_prom ; Copy in buffer | |
| 453 bra menu_draw_line_none | |
| 0 | 454 |
| 582 | 455 menu_draw_line_call: |
| 456 movff text_item+0,FSR1L ; Read string from PROM. | |
| 457 movff text_item+1,FSR1H | |
| 458 call strcpy_text ; Copy in buffer | |
| 459 bra menu_draw_line_none | |
| 460 | |
| 0 | 461 menu_draw_line_option: |
| 582 | 462 movff text_item+0,FSR1L ; Read string from PROM. |
| 463 movff text_item+1,FSR1H | |
| 464 call strcpy_text ; Copy in buffer | |
| 465 movff option_item+0,FSR0L ; Retrieve option handle. | |
| 466 movff option_item+1,FSR0H | |
| 467 btfss settime_setdate ; Not in Time/Date menu... | |
| 468 call option_draw | |
| 469 bra menu_draw_line_none | |
| 0 | 470 |
| 471 menu_draw_line_dynamic: | |
| 582 | 472 lfsr FSR2,buffer |
| 473 movff menu_item,PRODL ; Pass item to callback. | |
| 474 rcall menu_text_call ; Push return address. | |
| 475 bra menu_draw_line_none | |
| 0 | 476 |
| 477 ; Computed goto to pointer inside dynamic_item: | |
| 478 menu_text_call: | |
| 582 | 479 movf dynamic_item+0,W ; Check if callback is NULL |
| 480 iorwf dynamic_item+1,W | |
| 481 iorwf dynamic_item+2,W | |
| 482 btfsc STATUS,Z | |
| 483 return ; YES: don't call it. | |
| 484 movff dynamic_item+2,PCLATU ; Prepare... | |
| 485 movff dynamic_item+1,PCLATH | |
| 486 movf dynamic_item+0,W | |
| 487 movwf PCL ; And jump ! | |
| 0 | 488 |
| 489 menu_draw_line_none: | |
| 582 | 490 btfsc divemode ; In divemode? |
| 491 bra menu_draw_line_none_divemode ; Yes | |
| 492 movlw MENU_LINE_MAX_LENGTH | |
| 493 call TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG) | |
| 494 clrf WREG | |
| 495 movff WREG,buffer+MENU_LINE_MAX_LENGTH ; No - make sure won't be longer than MENU_LINE_MAX_LENGTH ch | |
| 496 call aa_wordprocessor | |
| 497 movlw MENU_HEIGHT ; No, Move to next line | |
| 498 addwf win_top,F | |
| 499 incf menu_item,F ; inc loop counter | |
| 500 movf start_item,W ; First line (scrolled) | |
| 501 subwf menu_item,W ; current - first | |
| 502 xorlw MENU_LINES_MAX ; Already done 6 lines ? | |
| 503 btfsc STATUS,Z | |
| 504 return ; YES | |
| 0 | 505 menu_draw_line_none2: |
| 582 | 506 movf menu_item,W ; Done item_max lines ? |
| 507 xorwf item_max,W | |
| 508 btfss STATUS,Z | |
| 509 bra menu_draw_lines_1 ; No: loop... | |
| 510 return | |
| 0 | 511 |
| 512 menu_draw_line_none_divemode: | |
| 582 | 513 movlw .10 |
| 514 call TFT_fillup_with_spaces ; Fill up FSR2 with spaces (Total string length in #WREG) | |
| 515 clrf WREG | |
| 516 movff WREG,buffer+.10 | |
| 517 call aa_wordprocessor ; Draw the line! | |
| 518 banksel common | |
| 519 bcf win_invert ; Reset invert flag | |
| 520 banksel win_top | |
| 521 movlw .24 ; divemode menu spacing | |
| 522 addwf win_top,F | |
| 523 incf menu_item,F ; inc loop counter | |
| 524 movlw .3 | |
| 525 cpfseq menu_item ; At pos 4? | |
| 526 bra menu_draw_line_none2 ; No | |
| 527 movlw dm_menu_item4_row | |
| 528 movff WREG,win_top ; Reset row | |
| 529 movlw dm_menu_item4_column | |
| 530 movff WREG,win_leftx2 ; New column | |
| 531 bra menu_draw_line_none2 ; Done. | |
| 0 | 532 |
| 533 ;----------------------------------------------------------------------------- | |
| 534 ; Put a mark in front of the current line | |
| 535 menu_draw_selected_line: | |
| 582 | 536 clrf timeout_counter2 ; Reset timeout |
| 537 WIN_BOX_BLACK .34,.221,MENU_LEFT-8,MENU_LEFT-2 ; Clear left column | |
| 538 call TFT_standard_color | |
| 539 WIN_SMALL MENU_LEFT-8, 0 ; Arrow symbol only in small font | |
| 540 movf start_item,W ; First line (scrolled) | |
| 541 subwf selected_item,W ; selected - first | |
| 542 mullw MENU_HEIGHT ; 30 pixel by line | |
| 543 movf PRODL,W ; result | |
| 544 addwf menu_center,W ; added to first line | |
| 545 movwf win_top ; and stored to pos. | |
| 546 STRCPY_PRINT "\xb7" ; print cursor | |
| 547 return | |
| 0 | 548 |
| 582 | 549 END |