Mercurial > public > mk2
annotate code_part1/OSTC_code_asm_part1/menu.asm @ 499:2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
| author | heinrichsweikamp |
|---|---|
| date | Tue, 15 Nov 2011 20:36:41 +0100 |
| parents | 6e57b5bb98ce |
| children | 101fec6a6137 |
| rev | line source |
|---|---|
| 0 | 1 |
| 2 ; OSTC - diving computer code | |
| 3 ; Copyright (C) 2008 HeinrichsWeikamp GbR | |
| 4 | |
| 5 ; This program is free software: you can redistribute it and/or modify | |
| 6 ; it under the terms of the GNU General Public License as published by | |
| 7 ; the Free Software Foundation, either version 3 of the License, or | |
| 8 ; (at your option) any later version. | |
| 9 | |
| 10 ; This program is distributed in the hope that it will be useful, | |
| 11 ; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 13 ; GNU General Public License for more details. | |
| 14 | |
| 15 ; You should have received a copy of the GNU General Public License | |
| 16 ; along with this program. If not, see <http://www.gnu.org/licenses/>. | |
| 17 | |
| 18 | |
| 19 ; Main Menu and Setup menu | |
| 20 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com | |
| 21 ; written: 11/1/05 | |
| 22 ; last updated: 05/15/80 | |
| 23 ; known bugs: | |
| 24 ; ToDo: | |
| 25 | |
| 26 wait_switches: | |
| 27 bcf switch_left | |
| 28 bcf switch_right | |
| 41 | 29 return |
| 0 | 30 |
| 31 menu: | |
| 32 bcf deco_mode_changed ; Clear flag (Description is only showed once) | |
| 41 | 33 bcf LED_blue |
| 0 | 34 movlw d'1' |
| 35 movwf menupos | |
| 36 menu2: | |
| 37 | |
| 38 bcf leftbind | |
| 39 call PLED_ClearScreen | |
| 40 clrf timeout_counter2 | |
| 41 bcf sleepmode | |
| 42 bcf menubit2 | |
| 43 bcf menubit3 | |
| 44 bsf menubit | |
| 45 bsf cursor | |
| 46 call PLED_menu_mask | |
| 47 call PLED_menu_cursor | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
188
diff
changeset
|
48 rcall wait_switches |
| 0 | 49 |
| 50 menu_loop: | |
| 51 call check_switches_menu | |
| 52 | |
| 53 btfsc menubit2 | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
188
diff
changeset
|
54 bra do_menu ; call submenu |
| 0 | 55 |
| 56 btfss menubit | |
| 57 goto restart ; exit menu, restart | |
| 58 | |
| 59 btfsc onesecupdate | |
| 60 call timeout_surfmode | |
| 61 | |
| 62 btfsc onesecupdate | |
| 63 call set_dive_modes | |
| 64 | |
| 65 btfsc onesecupdate | |
| 66 call test_charger ; check if charger IC is active | |
| 67 | |
| 68 btfsc onesecupdate | |
| 69 call get_battery_voltage ; get battery voltage | |
| 70 | |
| 71 bcf onesecupdate ; End of one second tasks | |
| 72 | |
| 73 btfsc sleepmode | |
| 74 goto restart | |
| 75 | |
| 76 btfsc divemode | |
| 77 goto restart ; exit menu, restart and enter divemode | |
| 78 | |
| 79 bra menu_loop | |
| 80 | |
| 337 | 81 check_switches_menu: ; checks switches |
| 82 btfsc uart_dump_screen ; Asked to dump screen contains ? | |
| 83 call dump_screen ; Yes! | |
| 84 | |
| 0 | 85 btfss switch_right |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
188
diff
changeset
|
86 bra check_switches_menu2 |
| 0 | 87 bsf menubit3 |
| 88 incf menupos,F | |
| 89 movlw d'6' | |
| 90 cpfsgt menupos | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
188
diff
changeset
|
91 bra refresh_cursor |
| 0 | 92 movlw d'1' |
| 93 movwf menupos | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
188
diff
changeset
|
94 bra refresh_cursor |
| 0 | 95 check_switches_menu2: |
| 96 btfsc switch_left | |
| 97 bsf menubit2 ; Enter! | |
| 98 return | |
| 99 | |
| 100 | |
| 101 do_menu: ; calls submenu | |
| 102 dcfsnz menupos,F | |
| 103 goto menu_logbook | |
| 104 dcfsnz menupos,F | |
| 105 goto menu_gassetup | |
| 106 dcfsnz menupos,F | |
| 107 goto menu_reset | |
| 108 dcfsnz menupos,F | |
| 109 goto setup_menu | |
| 110 dcfsnz menupos,F | |
| 111 goto more_menu | |
| 112 dcfsnz menupos,F | |
| 113 goto restart ; exit... | |
| 114 | |
| 115 refresh_cursor: | |
| 116 clrf timeout_counter2 | |
| 117 btfsc cursor | |
| 118 call PLED_menu_cursor | |
| 119 bcf switch_right | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
188
diff
changeset
|
120 bcf switch_left |
| 0 | 121 return |
| 122 | |
| 123 more_menu: | |
| 124 movlw d'1' | |
| 125 movwf menupos | |
| 126 more_menu2: | |
| 127 bcf leftbind | |
| 128 call PLED_ClearScreen | |
| 129 more_menu3: | |
| 130 clrf timeout_counter2 | |
| 131 bcf sleepmode | |
| 132 bcf menubit2 | |
| 133 bcf menubit3 | |
| 134 bsf menubit | |
| 135 bsf cursor | |
| 136 call PLED_more_menu_mask | |
| 137 call PLED_menu_cursor | |
| 138 bcf switch_left | |
| 139 bcf switch_right | |
| 140 more_menu_loop: | |
| 141 call check_switches_menu | |
| 142 | |
| 125 | 143 ; movlw d'5' ; 5 items in "More Menu" |
| 144 ; cpfseq menupos | |
| 145 ; bra more_menu_loop2 | |
| 146 ; movlw d'6' | |
| 147 ; movwf menupos | |
| 148 ; call PLED_menu_cursor | |
| 149 | |
| 150 ;more_menu_loop2: | |
| 0 | 151 btfsc menubit2 |
| 152 bra do_more_menu ; call submenu | |
| 153 | |
| 154 btfss menubit | |
| 155 bra menu ; exit setup menu and return to main menu | |
| 156 | |
| 157 btfsc onesecupdate | |
| 158 call timeout_surfmode | |
| 159 | |
| 160 btfsc onesecupdate | |
| 161 call set_dive_modes | |
| 162 | |
| 163 btfsc onesecupdate | |
| 164 call test_charger ; check if charger IC is active | |
| 165 | |
| 166 btfsc onesecupdate | |
| 167 call get_battery_voltage ; get battery voltage | |
| 168 | |
| 169 bcf onesecupdate ; End of one second tasks | |
| 170 | |
| 171 btfsc sleepmode | |
| 172 bra menu | |
| 173 | |
| 174 btfsc divemode | |
| 175 goto restart ; exit menu, restart and enter divemode | |
| 176 | |
| 177 bra more_menu_loop | |
| 178 | |
| 179 do_more_menu: ; calls submenu | |
| 180 dcfsnz menupos,F | |
| 181 goto menu_settime | |
| 182 dcfsnz menupos,F | |
| 183 goto menu_const_ppO2 | |
| 184 dcfsnz menupos,F | |
| 185 goto menu_battery_state | |
| 186 dcfsnz menupos,F | |
| 187 goto menu_simulator | |
| 188 dcfsnz menupos,F | |
| 125 | 189 goto altimeter_menu |
| 0 | 190 movlw d'5' |
| 191 movwf menupos | |
| 192 bra menu2 ; exit... | |
| 193 | |
| 194 setup_menu: | |
| 195 bcf deco_mode_changed ; Clear flag | |
| 196 movlw d'1' | |
| 197 movwf menupos | |
| 198 setup_menu2: | |
| 199 bcf leftbind | |
| 200 call PLED_ClearScreen | |
| 201 call PLED_setup_menu_mask | |
| 202 setup_menu3a: | |
| 203 clrf timeout_counter2 | |
| 204 bcf sleepmode | |
| 205 bcf menubit2 | |
| 206 bcf menubit3 | |
| 207 bsf menubit | |
| 208 bsf cursor | |
| 209 call show_decotype | |
| 210 call show_salinity_value | |
| 211 call PLED_menu_cursor | |
| 212 bcf switch_left | |
| 213 bcf switch_right | |
| 214 | |
| 215 setup_menu_loop: | |
| 216 call check_switches_menu | |
| 217 | |
| 218 btfsc menubit2 | |
| 219 bra do_setup_menu ; call submenu | |
| 220 | |
| 221 btfss menubit | |
| 222 goto restart ; exit menu, restart and enter surfmode | |
| 223 btfsc onesecupdate | |
| 224 call timeout_surfmode | |
| 225 btfsc onesecupdate | |
| 226 call set_dive_modes | |
| 227 btfsc onesecupdate | |
| 228 call test_charger ; check if charger IC is active | |
| 229 btfsc onesecupdate | |
| 230 call get_battery_voltage ; get battery voltage | |
| 231 | |
| 232 bcf onesecupdate ; End of one second tasks | |
| 233 | |
| 234 btfsc sleepmode | |
| 235 goto restart ; exit menu, restart and enter surfmode | |
| 236 | |
| 237 btfsc divemode | |
| 238 goto restart ; exit menu, restart and enter divemode | |
| 239 | |
| 240 bra setup_menu_loop | |
| 241 | |
| 242 | |
| 243 do_setup_menu: ; calls submenu | |
| 244 dcfsnz menupos,F | |
| 245 goto menu_custom_functions | |
| 246 dcfsnz menupos,F | |
| 247 goto menu_custom_functions_page2 | |
| 248 dcfsnz menupos,F | |
| 249 bra toggle_salinity | |
| 250 dcfsnz menupos,F | |
| 251 bra toggle_decotype | |
| 252 dcfsnz menupos,F | |
| 253 bra more_setup_menu | |
| 254 bra exit_setup_menu ; exit... | |
| 255 | |
| 256 toggle_decotype: | |
| 257 bsf deco_mode_changed ; Set flag | |
| 258 read_int_eeprom d'34' ; Read deco data | |
| 259 incf EEDATA,F | |
| 260 | |
| 261 toggle_decotype0: | |
| 262 movlw d'6' ; number of different modes | |
| 263 cpfseq EEDATA | |
| 264 bra toggle_decotype1 | |
| 265 clrf EEDATA | |
| 266 | |
| 267 toggle_decotype1: | |
| 268 call write_eeprom ; save new mode | |
| 269 movlw d'4' | |
| 270 movwf menupos | |
| 271 bcf switch_right | |
| 272 bra setup_menu3a ; return to manu loop | |
| 273 | |
| 274 show_decotype: | |
| 275 read_int_eeprom d'34' ; Read deco data | |
| 276 tstfsz EEDATA | |
| 277 bra show_decotype2 | |
| 278 DISPLAYTEXT .101 ; ZH-L16 OC =0 | |
| 279 return | |
| 280 show_decotype2: | |
| 281 decfsz EEDATA,F | |
| 282 bra show_decotype3 | |
| 283 DISPLAYTEXT .102 ; Gauge =1 | |
| 284 return | |
| 285 show_decotype3: | |
| 286 decfsz EEDATA,F | |
| 287 bra show_decotype4 | |
| 288 DISPLAYTEXT .104 ; ZH-L16 CC =2 | |
| 289 return | |
| 290 show_decotype4: | |
| 291 decfsz EEDATA,F | |
| 292 bra show_decotype5 | |
| 293 DISPLAYTEXT .138 ; Apnoe =3 | |
| 294 return | |
| 295 show_decotype5: | |
| 296 decfsz EEDATA,F | |
| 297 bra show_decotype6 | |
| 298 DISPLAYTEXT .152 ; L16-GF OC =4 | |
| 299 return | |
| 300 show_decotype6: | |
| 301 decfsz EEDATA,F | |
| 302 return | |
| 303 DISPLAYTEXT .236 ; L16-GF CC =5 | |
| 304 return | |
| 305 | |
| 306 exit_setup_menu: | |
| 307 btfss deco_mode_changed ; Was the decomode changed in Setup menu? | |
| 308 goto restart ; No, restart to surfacemode | |
| 309 | |
| 310 call PLED_ClearScreen | |
| 311 | |
| 312 deco_info_screen1: | |
| 313 call PLED_topline_box | |
| 314 WIN_INVERT .1 ; Init new Wordprocessor | |
| 315 DISPLAYTEXT .235 ;Decomode changed! | |
| 316 WIN_INVERT .0 ; Init new Wordprocessor | |
| 317 | |
| 318 read_int_eeprom d'34' ; Read deco data | |
| 319 | |
| 320 movlw d'7' ; length of description text | |
| 321 mulwf EEDATA ; Multiply with Decomode 0-5 (5=Spare) | |
| 322 | |
| 323 movf PRODL,W | |
| 324 addlw d'193' ; Description text offset | |
| 325 movwf menupos ; Used as loop counter temp | |
| 326 | |
| 327 movlw d'7' | |
| 328 movwf temp1 ; Loop 7 times | |
| 329 | |
| 330 menu0: | |
| 331 movf menupos,W | |
| 174 | 332 call displaytext_1_low ; Display text! |
| 0 | 333 incf menupos,F |
| 334 | |
| 335 decfsz temp1,F | |
| 336 bra menu0 ; loop 7 times | |
| 337 | |
| 338 movlw d'30' | |
| 339 call startup_screen3a | |
| 340 goto restart ; Restart to surfacemode | |
| 341 | |
| 342 more_setup_menu: | |
| 343 movlw d'1' | |
| 344 movwf menupos | |
| 345 more_setup_menu2: | |
| 346 bcf leftbind | |
| 347 call PLED_ClearScreen | |
| 348 call PLED_more_setup_menu_mask | |
| 349 more_setup_menu3a: | |
| 350 clrf timeout_counter2 | |
| 351 bcf sleepmode | |
| 352 bcf menubit2 | |
| 353 bcf menubit3 | |
| 354 bsf menubit | |
| 355 bsf cursor | |
| 356 call show_debugstate | |
| 357 call show_dateformat | |
| 358 call PLED_menu_cursor | |
|
499
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
359 call toggle_brightness_show |
| 0 | 360 bcf switch_left |
| 361 bcf switch_right | |
| 362 | |
| 363 more_setup_menu_loop: | |
| 364 call check_switches_menu | |
| 365 | |
|
499
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
366 ; movlw d'5' ; x-1 menu entries |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
367 ; cpfseq menupos |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
368 ; bra more_setup_menu_loop2 |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
369 ; movlw d'6' |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
370 ; movwf menupos |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
371 ; call PLED_menu_cursor |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
372 ;more_setup_menu_loop2: |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
373 ; |
| 0 | 374 btfsc menubit2 |
| 375 bra do_more_setup_menu ; call submenu | |
| 376 | |
| 377 btfss menubit | |
| 378 goto restart ; exit menu, restart and enter surfmode | |
| 379 | |
| 380 btfsc onesecupdate | |
| 381 call timeout_surfmode | |
| 382 btfsc onesecupdate | |
| 383 call set_dive_modes | |
| 384 btfsc onesecupdate | |
| 385 call test_charger ; check if charger IC is active | |
| 386 btfsc onesecupdate | |
| 387 call get_battery_voltage ; get battery voltage | |
| 388 | |
| 389 bcf onesecupdate ; End of one second tasks | |
| 390 | |
| 391 btfsc sleepmode | |
| 392 goto setup_menu ; exit menu | |
| 393 | |
| 394 btfsc divemode | |
| 395 goto restart ; exit menu, restart and enter divemode | |
| 396 | |
| 397 bra more_setup_menu_loop | |
| 398 | |
| 399 do_more_setup_menu: ; calls submenu | |
| 400 dcfsnz menupos,F | |
| 401 bra toggle_datemode | |
| 402 dcfsnz menupos,F | |
| 403 bra toggle_debugmode | |
| 404 dcfsnz menupos,F | |
| 12 | 405 bra show_license |
| 0 | 406 dcfsnz menupos,F |
| 188 | 407 bra show_rawdata |
| 0 | 408 dcfsnz menupos,F |
|
499
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
409 bra toggle_brightness ; toggle between ECO and HIGH |
| 0 | 410 movlw d'5' ; set cursor to "More again" |
| 411 movwf menupos | |
| 412 bra setup_menu2 ; exit... | |
| 413 | |
| 188 | 414 show_rawdata: ; Displays Sensor raw data |
| 415 call PLED_ClearScreen | |
| 416 call PLED_topline_box | |
| 417 WIN_INVERT .1 ; Init new Wordprocessor | |
| 418 DISPLAYTEXTH .296 ; Raw Data: | |
| 419 WIN_INVERT .0 ; Init new Wordprocessor | |
| 420 | |
| 421 call PLED_static_raw_data | |
| 422 | |
| 432 | 423 |
| 188 | 424 clrf timeout_counter2 |
| 425 bcf sleepmode | |
| 426 bcf menubit3 | |
| 427 bsf menubit | |
| 432 | 428 |
| 429 show_rawdata_loop: | |
| 430 rcall show_rawdata_wait | |
| 431 | |
| 432 btfsc menubit2 | |
| 433 bra show_rawdata_next | |
| 434 | |
| 435 btfsc onesecupdate | |
| 436 call PLED_update_raw_data | |
| 437 | |
| 438 bcf onesecupdate ; End of one second tasks, if any. | |
| 439 | |
| 440 goto show_rawdata_loop | |
| 441 | |
| 442 show_rawdata_wait: | |
| 443 bcf menubit2 | |
| 188 | 444 bcf switch_left |
| 445 bcf switch_right | |
| 432 | 446 |
| 447 show_rawdata_wait_1: | |
| 337 | 448 btfsc uart_dump_screen ; Asked to dump screen contains ? |
| 449 call dump_screen ; Yes! | |
| 450 | |
| 188 | 451 btfsc switch_left ; Ack? |
| 452 bsf menubit2 | |
| 453 btfsc switch_right ; Ack? | |
| 454 bsf menubit2 | |
| 455 | |
| 456 btfsc menubit2 | |
| 432 | 457 return |
| 188 | 458 |
| 459 btfss menubit | |
| 460 goto restart ; exit menu, restart and enter surfmode | |
| 461 | |
| 462 btfsc onesecupdate | |
| 463 call timeout_surfmode | |
| 464 | |
| 465 btfsc onesecupdate | |
| 466 call set_dive_modes | |
| 467 | |
| 468 btfsc sleepmode | |
| 469 bra show_rawdata_exit ; Exit | |
| 470 | |
| 471 btfsc divemode | |
| 472 goto restart ; exit menu, restart and enter divemode | |
| 473 | |
| 432 | 474 btfsc onesecupdate |
| 475 return | |
| 476 | |
| 477 bra show_rawdata_wait_1 | |
| 478 | |
| 479 ; Display blank/red/green/blue screens until click, to test OLED ageing. | |
| 480 show_rawdata_next: | |
| 444 | 481 ; display test draws more power then allowed -> potential hardware risk! |
| 482 #ifndef DISPLAY_TEST | |
| 483 bra show_rawdata_exit | |
| 484 #endif | |
| 485 | |
| 432 | 486 setf WREG |
| 487 WIN_BOX_COLOR .0,.240,.0,.160 | |
| 488 rcall show_rawdata_screen_wait | |
| 489 movlw color_red | |
| 490 WIN_BOX_COLOR .0,.240,.0,.160 | |
| 491 rcall show_rawdata_screen_wait | |
| 492 movlw color_green | |
| 493 WIN_BOX_COLOR .0,.240,.0,.160 | |
| 494 rcall show_rawdata_screen_wait | |
| 495 movlw color_blue | |
| 496 WIN_BOX_COLOR .0,.240,.0,.160 | |
| 497 rcall show_rawdata_screen_wait | |
| 498 bra show_rawdata_exit | |
| 499 | |
| 500 show_rawdata_screen_wait: | |
| 501 rcall show_rawdata_wait | |
| 502 bcf onesecupdate ; No dynamic update here... | |
| 503 | |
| 504 btfsc menubit2 | |
| 505 return | |
| 506 | |
| 507 bra show_rawdata_screen_wait | |
| 188 | 508 |
| 509 show_rawdata_exit: | |
| 510 movlw d'4' | |
| 511 movwf menupos | |
| 512 bcf switch_right | |
| 513 bra more_setup_menu2 ; return to "more menu" loop | |
| 514 | |
| 12 | 515 show_license: |
| 516 call startup_screen1 ;1/2 | |
| 517 call startup_screen2 ;1/2 | |
| 518 movlw d'3' | |
| 519 movwf menupos | |
| 520 bcf switch_right | |
| 521 bra more_setup_menu2 ; return to "more menu" loop | |
| 522 | |
| 0 | 523 toggle_salinity: |
| 524 ; Toggles between 1.00 and 1.04 | |
| 525 read_int_eeprom d'26' ; Read Salinity from EEPROM | |
| 526 incf EEDATA,F ; Increase value | |
| 527 | |
| 528 movlw d'99' ; 99% ? | |
| 529 cpfsgt EEDATA ; Salinity lower limit | |
| 530 bra toggle_salinity_reset ; Out of limit, reset value to 1.00 | |
| 531 movlw d'105' ; 105% ? | |
| 532 cpfslt EEDATA ; Salinity higher limit | |
| 533 bra toggle_salinity_reset ; Out of limit, reset value to 1.00 | |
| 534 | |
| 535 toggle_salinity2: | |
| 536 write_int_eeprom d'26' ; Store salinity | |
| 537 movlw d'3' | |
| 538 movwf menupos | |
| 539 bcf switch_right | |
| 540 bra setup_menu3a ; return to manu loop | |
| 541 | |
| 542 toggle_salinity_reset: | |
| 543 movlw d'100' | |
| 544 movwf EEDATA | |
| 545 bra toggle_salinity2 ; back | |
| 546 | |
| 547 show_salinity_value: | |
| 548 read_int_eeprom d'26' ; Read Salinity from EEPROM | |
| 549 movlw d'99' ; 99% ? | |
| 550 cpfsgt EEDATA ; Salinity lower limit | |
| 551 rcall toggle_salinity_reset2 ; Reset before display! | |
| 552 movlw d'105' ; 105% ? | |
| 553 cpfslt EEDATA ; Salinity higher limit | |
| 554 rcall toggle_salinity_reset2 ; Reset before display! | |
| 555 WIN_TOP .95 | |
| 183 | 556 WIN_LEFT .90 ; +7 for spanish |
| 0 | 557 WIN_FONT FT_SMALL |
| 558 lfsr FSR2,letter | |
| 559 movff EEDATA,lo | |
| 560 clrf hi | |
| 561 bsf leftbind | |
| 562 output_16dp d'3' | |
| 563 bcf leftbind | |
| 445 | 564 STRCAT_PRINT TXT_KGL4 |
| 0 | 565 return |
| 566 | |
| 567 toggle_salinity_reset2: | |
| 568 movlw d'100' | |
| 569 movwf EEDATA | |
| 570 write_int_eeprom d'26' ; Store salinity | |
| 571 return | |
| 572 | |
| 573 toggle_datemode: | |
| 574 ; Toggles setting for | |
| 575 ; MM/DD/YY =0, Default | |
| 576 ; DD/MM/YY =1 | |
| 577 ; YY/MM/DD =2 | |
| 578 read_int_eeprom d'91' ; Read date format | |
| 579 incf EEDATA,F | |
| 580 movlw d'2' | |
| 581 cpfsgt EEDATA | |
| 582 bra toggle_datemode1 | |
| 583 clrf EEDATA | |
| 584 toggle_datemode1: | |
| 585 write_int_eeprom d'91' ; Store date format | |
| 586 movlw d'1' | |
| 587 movwf menupos | |
| 588 bcf switch_right | |
| 589 bra more_setup_menu3a ; return to manu loop | |
| 590 | |
| 591 show_dateformat: | |
| 592 read_int_eeprom d'91' ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD) | |
| 593 tstfsz EEDATA | |
| 594 bra show_dateformat2 | |
| 595 DISPLAYTEXTH .259 ; MM/DD/YY = 0 | |
| 596 return | |
| 597 show_dateformat2: | |
| 598 decfsz EEDATA,F | |
| 599 bra show_dateformat3 | |
| 600 DISPLAYTEXTH .260 ; DD/MM/YY = 1 | |
| 601 return | |
| 602 show_dateformat3: | |
| 603 DISPLAYTEXTH .261 ; YY/MM/DD = 2 | |
| 604 return | |
| 605 | |
|
499
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
606 toggle_brightness: |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
607 movlw LOW 0x104 |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
608 movwf EEADR |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
609 movlw HIGH 0x104 |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
610 movwf EEADRH ; OLED brightness (=0: Eco, =1: High) |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
611 call read_eeprom ; read byte |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
612 bcf oled_brightness_high ; Eco mode |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
613 movlw .0 |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
614 cpfseq EEDATA ; High? |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
615 bsf oled_brightness_high ; Yes! |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
616 |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
617 ; Value loaded, now toggle it... |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
618 btg oled_brightness_high |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
619 |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
620 ; ...Display it... |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
621 rcall toggle_brightness_show |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
622 call PLED_brightness_full ; Set OLED |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
623 |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
624 ; ...and write it again to EEPROM |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
625 movlw LOW 0x104 |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
626 movwf EEADR |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
627 movlw HIGH 0x104 |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
628 movwf EEADRH ; OLED brightness (=0: Eco, =1: High) |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
629 movlw .0 |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
630 btfsc oled_brightness_high |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
631 movlw .1 |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
632 movwf EEDATA |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
633 call write_eeprom ; write byte |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
634 clrf EEADRH ; Reset EEADRH |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
635 |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
636 movlw d'5' |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
637 movwf menupos |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
638 bcf switch_right |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
639 bra more_setup_menu3a ; return to menu loop |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
640 |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
641 toggle_brightness_show: |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
642 btfsc oled_brightness_high |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
643 bra toggle_brightness_show2 |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
644 DISPLAYTEXTH .312 ; Eco |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
645 return |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
646 toggle_brightness_show2: |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
647 DISPLAYTEXTH .313 ; High |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
648 return |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
649 |
|
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
650 |
| 0 | 651 toggle_debugmode: |
| 652 read_int_eeprom d'39' ; Read status | |
| 653 incf EEDATA,F | |
| 654 movlw d'1' | |
| 655 cpfsgt EEDATA | |
| 656 bra toggle_debugmode1 | |
| 657 clrf EEDATA | |
| 658 toggle_debugmode1: | |
| 659 write_int_eeprom d'39' ; Store status | |
| 660 bsf debug_mode ; set flag | |
| 661 movlw d'1' | |
| 662 cpfseq EEDATA | |
| 663 bcf debug_mode ; clear flag | |
| 664 movlw d'2' | |
| 665 movwf menupos | |
| 666 bcf switch_right | |
|
499
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
445
diff
changeset
|
667 bra more_setup_menu3a ; return to menu loop |
| 0 | 668 |
| 669 show_debugstate: | |
| 670 read_int_eeprom d'39' | |
| 671 tstfsz EEDATA | |
| 672 bra show_debugstate2 | |
| 673 DISPLAYTEXT .131 ; OFF | |
| 674 show_debugstate2: | |
| 675 decf EEDATA,F | |
| 676 tstfsz EEDATA | |
| 677 bra show_decotype3 | |
| 678 DISPLAYTEXT .130 ; ON | |
| 679 return |