Mercurial > public > mk2
annotate code_part1/OSTC_code_asm_part1/menu_reset.asm @ 82:bc3092c41335
Cleaning up old wordprocessor to make it OLEDSim compatible.
| author | JeanDo |
|---|---|
| date | Tue, 07 Dec 2010 13:22:17 +0100 |
| parents | 69c462400279 |
| children | 3e351e25f5d1 |
| 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 ; Menu "Reset all" | |
| 20 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com | |
| 21 ; written: 10/30/05 | |
| 22 ; last updated: 08/08/31 | |
| 23 ; known bugs: | |
| 24 ; ToDo: | |
| 25 | |
| 26 ; routines to reset external EEPROM (currently inactvated!) | |
| 27 ; routines to reset custom function, gases and decompression values | |
| 28 ; does not reset clock | |
| 29 | |
| 79 | 30 ;============================================================================= |
| 31 ; CF default values | |
| 32 ; | |
| 33 | |
| 34 ; Macro to check values, and construct PROM CF default table. | |
| 35 ; If in types mode, set flags into hi. If not, clear it. | |
| 36 CF_DEFAULT macro type, value | |
| 37 if ( type == CF_INT15 ) | |
| 38 if (HIGH value) > .127 | |
| 39 error "15bit default too big:", value | |
| 40 endif | |
| 41 DB LOW value, 0x80 + (HIGH value) | |
| 42 else | |
| 43 ; Basic sanity check for 8bit values: | |
| 44 if ( HIGH value ) > 0 | |
| 45 error "8bit default too big:", value | |
| 46 endif | |
| 47 if (type==CF_BOOL) && (value > 1) | |
| 48 error "BOOL default too big:", value | |
| 49 endif | |
| 50 ifdef NO_CF_TYPES | |
| 51 DB LOW value, HIGH value | |
| 52 else | |
| 53 DB LOW value, type | |
| 54 endif | |
| 55 endif | |
| 56 endm | |
| 57 | |
| 58 ; resets all customfunctions to the following default values | |
| 59 cf_default_table: | |
| 60 ;---- BANK0 custom function defaults ------------------------------------- | |
| 61 CF_DEFAULT CF_CENTI, d'100' ; dive_threshold 100cm | |
| 62 CF_DEFAULT CF_CENTI, d'30' ; surf_threshold 30cm | |
| 63 CF_DEFAULT CF_SEC, d'240' ; diveloop_timeout 240s | |
| 64 CF_DEFAULT CF_SEC, d'120' ; surfloop_timeout 120s | |
| 65 CF_DEFAULT CF_SEC, d'5' ; premenu_timeout 5s | |
| 66 | |
| 67 CF_DEFAULT CF_INT8, d'7' ; minimum_velocity 7min/min | |
| 68 CF_DEFAULT CF_INT15, d'1160' ; pressure_offset_divemode 1160mBar | |
| 69 CF_DEFAULT CF_INT15, d'1100' ; max_surfpressure 1100mBar | |
| 70 CF_DEFAULT CF_PERCENT, d'20' ; min_gradient_factor 20% | |
| 71 CF_DEFAULT CF_PERCENT, d'20' ; oxygen_threshold 20% | |
| 72 | |
| 73 CF_DEFAULT CF_SEC, d'30' ; dive_menu_timeout 30s | |
| 74 CF_DEFAULT CF_PERCENT, d'110' ; saturation_multiplier x1.10 | |
| 75 CF_DEFAULT CF_PERCENT, d'90' ; desaturation_multiplier x0.90 | |
| 76 CF_DEFAULT CF_PERCENT, d'60' ; nofly_time_ratio 60% | |
| 77 CF_DEFAULT CF_PERCENT, d'100' ; gradient_factor_alarm1 100% | |
| 78 | |
| 79 CF_DEFAULT CF_PERCENT, d'10' ; cns_display_surface 10% | |
| 80 CF_DEFAULT CF_INT8, d'10' ; deco_distance_for_sim 1m | |
| 81 CF_DEFAULT CF_CENTI, d'019' ; ppo2_warning_low 0.19 Bar | |
| 82 CF_DEFAULT CF_CENTI, d'160' ; ppo2_warning_high 1.60 Bar | |
| 83 CF_DEFAULT CF_CENTI, d'150' ; ppo2_display_high 1.50 Bar | |
| 84 | |
| 85 CF_DEFAULT CF_INT8, d'10' ; sampling_rate 10s | |
| 86 CF_DEFAULT CF_INT8, d'6' ; sampling_divisor_temp /6 | |
| 87 CF_DEFAULT CF_INT8, d'6' ; sampling_divisor_deco /6 | |
| 88 CF_DEFAULT CF_INT8, d'0' ; sampling_divisor_tank never | |
| 89 CF_DEFAULT CF_INT8, d'0' ; sampling_divisor_ppo2 never | |
| 90 | |
| 91 CF_DEFAULT CF_INT8, d'0' ; sampling_divisor_deco2 never | |
| 92 CF_DEFAULT CF_INT8, d'0' ; sampling_divisor_nyu2 never | |
| 93 CF_DEFAULT CF_PERCENT, d'20' ; cns_display_high 20% | |
| 94 CF_DEFAULT CF_INT8, d'0' ; logbook_offset No Offset, but 15Bit value | |
| 95 CF_DEFAULT CF_INT8, d'3' ; last_deco_depth 3m | |
| 96 | |
| 97 CF_DEFAULT CF_SEC, d'10' ; timeout_apnoe_mode 10min | |
| 98 CF_DEFAULT CF_BOOL, d'0' ; show_voltage_value =1 Show value instead of symbol, =0 Show Symbol | |
| 99 | |
| 100 ;---- BANK1 custom function defaults ------------------------------------- | |
| 101 CF_DEFAULT CF_PERCENT, d'30' ; GF_low_default 30% | |
| 102 CF_DEFAULT CF_PERCENT, d'90' ; GF_high_default 90% | |
| 103 CF_DEFAULT CF_COLOR, d'199' ; color_battery_surface Color Battery sign: Deep blue | |
| 104 CF_DEFAULT CF_COLOR, d'255' ; color_standard1 Color Standard: White | |
| 105 CF_DEFAULT CF_COLOR, d'62' ; color_divemask Color Divemask: Light green | |
| 106 CF_DEFAULT CF_COLOR, d'224' ; color_warnings Color Warnings: Red | |
| 107 | |
| 108 CF_DEFAULT CF_BOOL, d'0' ; show_seconds_divemode =1 Show the seconds in Divemode | |
| 109 CF_DEFAULT CF_BOOL, d'0' ; show_clock_divemode =1 Show the clock in Divemode | |
| 110 CF_DEFAULT CF_BOOL, d'1' ; warn_ceiling_divemode =1 Warn ceiling violation in divemode | |
| 111 CF_DEFAULT CF_BOOL, d'0' ; start_with_stopwatch =1 start with stopwatch | |
| 112 CF_DEFAULT CF_BOOL, d'0' ; blink_gas_divemode =1 Show (resetable) average Depth instead of temperature | |
| 113 | |
| 114 CF_DEFAULT CF_INT15, d'13000' ; color_warn_depth_mBar Warn depths | |
| 115 CF_DEFAULT CF_PERCENT, d'101' ; color_warn_cns_percent Warn-% | |
| 116 CF_DEFAULT CF_PERCENT, d'101' ; color_warn_gf_percent Warn-% | |
| 117 CF_DEFAULT CF_CENTI, d'161' ; color_warn_ppo2_cbar ppO2 warn | |
| 118 CF_DEFAULT CF_INT8, d'15' ; color_warn_celocity_mmin warn at xx m/min | |
| 119 | |
| 120 CF_DEFAULT CF_SEC, d'42' ; time_correction_value_default Adds to Seconds on Midnight | |
| 121 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 122 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 123 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 124 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 125 | |
| 126 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 127 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 128 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 129 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 130 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 131 | |
| 132 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 133 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 134 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 135 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 136 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 137 | |
| 138 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 139 CF_DEFAULT CF_INT15, 0 ; UNUSED | |
| 140 ;============================================================================= | |
| 141 | |
| 0 | 142 menu_reset: |
| 143 movlw d'1' | |
| 144 movwf menupos | |
| 145 | |
| 146 call PLED_ClearScreen | |
| 147 call PLED_reset_menu_mask | |
| 148 | |
| 149 menu_reset2: | |
| 150 clrf timeout_counter2 | |
| 151 bcf sleepmode | |
| 152 bcf menubit2 | |
| 153 bcf menubit3 | |
| 154 bsf menubit | |
| 155 bsf cursor | |
| 156 call PLED_reset_menu_mask | |
| 157 call PLED_menu_cursor | |
| 158 bcf switch_left | |
| 159 bcf switch_right | |
| 160 menu_reset_loop: | |
| 161 call check_switches_menu | |
| 162 btfsc menubit2 | |
| 163 bra do_menu_reset ; call submenu | |
| 164 btfss menubit | |
| 165 bra menu ; exit setup menu and return to main menu | |
| 166 btfsc onesecupdate | |
| 167 call timeout_surfmode | |
| 168 btfsc onesecupdate | |
| 169 call set_dive_modes | |
| 170 btfsc onesecupdate | |
| 171 call test_charger ; check if charger IC is active | |
| 172 btfsc onesecupdate | |
| 173 call get_battery_voltage ; get battery voltage | |
| 174 bcf onesecupdate ; End of one second tasks | |
| 175 btfsc sleepmode | |
| 176 goto menu | |
| 177 btfsc divemode | |
| 178 goto restart ; exit menu, restart and enter divemode | |
| 179 bra menu_reset_loop | |
| 180 do_menu_reset: ; calls submenu | |
| 181 dcfsnz menupos,F | |
| 182 bra do_menu_reset_exit ; Cancel, exit | |
| 183 dcfsnz menupos,F | |
| 184 bra do_menu_reset_all ; Reset all settings | |
| 185 dcfsnz menupos,F | |
| 186 bra do_menu_reset_logbook ; Reset Logbook Memory! | |
| 187 dcfsnz menupos,F | |
| 188 bra do_menu_reset_reboot ; Reboot OSTC | |
| 189 dcfsnz menupos,F | |
| 190 bra do_menu_reset_decodata ; Reset Decodata | |
| 191 do_menu_reset_exit: | |
| 192 movlw d'3' | |
| 193 movwf menupos | |
| 194 bra menu2 ; exit... | |
| 195 | |
| 196 | |
| 197 do_menu_reset_reboot: | |
| 198 call PLED_confirmbox ; Returns WREG=0 for Cancel (Or Timeout) and WREG=1 for OK! | |
| 199 movwf menupos ; Used as temp | |
| 200 tstfsz menupos | |
| 201 bra do_menu_reset_reboot2 ; Delete now! | |
| 202 bra do_menu_reset_exit ; Cancel! | |
| 203 | |
| 204 do_menu_reset_reboot2: | |
| 205 call PLED_DisplayOff ; Power-down OLED | |
| 206 movlw b'00000000' ; Bit6: PPL Disable | |
| 207 movwf OSCTUNE | |
| 208 movlw b'01111110' ; 8MHz | |
| 209 movwf OSCCON | |
| 210 reset | |
| 211 goto 0x00000 ; restart to 0x00000 | |
| 212 | |
| 213 do_menu_reset_logbook: | |
| 214 call PLED_confirmbox ; Returns WREG=0 for Cancel (Or Timeout) and WREG=1 for OK! | |
| 215 movwf menupos ; Used as temp | |
| 216 tstfsz menupos | |
| 217 bra do_menu_reset_logbook2 ; Delete Logbook now! | |
| 218 bra do_menu_reset_exit ; Cancel! | |
| 219 | |
| 220 do_menu_reset_logbook2: | |
| 221 call PLED_ClearScreen | |
| 222 DISPLAYTEXT .25 ; "Reset..." | |
| 223 call reset_external_eeprom ; delete profile memory | |
| 224 bra do_menu_reset_exit | |
| 225 | |
| 226 do_menu_reset_decodata: | |
| 227 call PLED_confirmbox ; Returns WREG=0 for Cancel (Or Timeout) and WREG=1 for OK! | |
| 228 movwf menupos ; Used as temp | |
| 229 tstfsz menupos | |
| 230 bra do_menu_reset_decodata2 ; Reset Deco Data now! | |
| 231 bra do_menu_reset_exit ; Cancel! | |
| 232 | |
| 233 do_menu_reset_decodata2: | |
| 234 ; reset deco data | |
| 235 call PLED_ClearScreen | |
| 236 DISPLAYTEXT .25 ; "Reset..." | |
| 237 movff amb_pressure+0,int_I_pres_respiration+0 ; copy surface air pressure to deco routine | |
| 238 movff amb_pressure+1,int_I_pres_respiration+1 | |
| 239 call deco_main_clear_tissue ; | |
| 240 movlb b'00000001' ; RAM Bank1 selected | |
| 241 goto restart ; done. quit to surfmode | |
| 242 | |
| 243 do_menu_reset_all: | |
| 244 call PLED_confirmbox ; Returns WREG=0 for Cancel (Or Timeout) and WREG=1 for OK! | |
| 245 movwf menupos ; Used as temp | |
| 246 tstfsz menupos | |
| 247 bra do_menu_reset_all2 ; Reset all now! | |
| 248 bra do_menu_reset_exit ; Cancel! | |
| 249 | |
| 250 do_menu_reset_all2: | |
| 251 call PLED_ClearScreen | |
| 252 DISPLAYTEXT .25 ; "Reset..." | |
| 253 | |
| 254 reset_start: | |
| 255 ; reset deco data | |
| 256 movff amb_pressure+0,int_I_pres_respiration+0 ; copy surface air pressure to deco routine | |
| 257 movff amb_pressure+1,int_I_pres_respiration+1 | |
| 258 call deco_main_clear_tissue ; | |
| 259 movlb b'00000001' ; RAM Bank1 selected | |
| 260 | |
| 261 ; reset gases | |
| 262 clrf EEADRH ; EEPROM BANK 0 ! | |
| 263 | |
| 264 movlw d'3' ; address of first gas-1 | |
| 265 movwf EEADR | |
| 266 clrf hi ; He part (default for all gases: 0%) | |
| 267 movlw d'21' ; O2 part (21%) | |
| 268 rcall reset_customfunction ; saves default and current value for gas #1 | |
| 269 movlw d'21' ; O2 part (21%) | |
| 270 rcall reset_customfunction ; saves default and current value for gas #2 | |
| 271 movlw d'21' ; O2 part (21%) | |
| 272 rcall reset_customfunction ; saves default and current value for gas #3 | |
| 273 movlw d'21' ; O2 part (21%) | |
| 274 rcall reset_customfunction ; saves default and current value for gas #4 | |
| 275 movlw d'21' ; O2 part (21%) | |
| 276 rcall reset_customfunction ; saves default and current value for gas #5 | |
| 277 movlw d'21' ; O2 part (21%) | |
| 278 rcall reset_customfunction ; saves default and current value for gas #6 | |
| 279 | |
| 280 reset_all_cf: | |
| 281 movlw d'1' | |
| 282 movwf EEDATA | |
| 283 write_int_eeprom d'33' ; reset start gas | |
| 284 clrf EEDATA | |
| 285 write_int_eeprom d'34' ; reset deco model to ZH-L16 | |
| 286 clrf EEDATA | |
| 287 write_int_eeprom d'35' ; Do not use O2 Sensor in CC Modes | |
| 288 | |
| 289 movlw d'0' | |
| 290 clrf EEDATA | |
| 291 write_int_eeprom d'39' ; Disable Debugbode | |
| 292 clrf EEDATA | |
| 293 write_int_eeprom d'90' ; Disable Brightness offset? (Dim=1, Normal = 0) | |
| 294 clrf EEDATA | |
| 295 write_int_eeprom d'91' ; Reset Date format to MM/DD/YY | |
| 296 | |
| 297 movlw d'100' | |
| 298 write_int_eeprom d'26' ; Salinity default: 1.00 kg/l | |
| 299 | |
| 300 movlw b'00011111' | |
| 301 movwf EEDATA | |
| 302 write_int_eeprom d'27' ; reset active gas flags | |
| 303 | |
| 304 clrf EEDATA | |
| 305 write_int_eeprom d'28' ; reset change depth gas #1 | |
| 306 clrf EEDATA | |
| 307 write_int_eeprom d'29' ; reset change depth gas #2 | |
| 308 clrf EEDATA | |
| 309 write_int_eeprom d'30' ; reset change depth gas #3 | |
| 310 clrf EEDATA | |
| 311 write_int_eeprom d'31' ; reset change depth gas #4 | |
| 312 clrf EEDATA | |
| 313 write_int_eeprom d'32' ; reset change depth gas #5 | |
| 314 | |
| 315 movlw d'100' | |
| 316 movwf EEDATA | |
| 317 write_int_eeprom d'36' ; reset mix1 to ppO2=1.00Bar | |
| 318 write_int_eeprom d'37' ; reset mix2 to ppO2=1.00Bar | |
| 319 write_int_eeprom d'38' ; reset mix3 to ppO2=1.00Bar | |
| 320 | |
| 321 movlw d'1' | |
| 322 movwf nofly_time+0 ; Clear nofly time | |
| 323 clrf nofly_time+1 ; Clear nofly time | |
| 324 | |
| 79 | 325 reset_all_cf_bank0: |
| 326 clrf EEADRH | |
| 0 | 327 movlw d'127' ; address of low byte of first custom function |
| 328 movwf EEADR | |
| 329 | |
| 79 | 330 movlw LOW cf_default_table ; Load PROM pointer. |
| 331 movwf TBLPTRL,A | |
| 332 movlw HIGH cf_default_table | |
| 333 movwf TBLPTRH,A | |
| 334 movlw UPPER cf_default_table | |
| 335 movwf TBLPTRU,A | |
| 0 | 336 |
| 79 | 337 cf_bank0_loop: |
| 338 ; Did we already read 32 (decimal) bytes ? | |
| 339 movf TBLPTRL,W | |
| 340 sublw LOW (cf_default_table+.64) | |
| 341 bz reset_all_cf_bank1 | |
| 0 | 342 |
| 79 | 343 tblrd*+ |
| 344 movf TABLAT, W ; Low byte in WREG, | |
| 345 tblrd*+ | |
| 346 movff TABLAT, hi ; High byte in hi | |
| 0 | 347 rcall reset_customfunction ; saves default and current value |
| 79 | 348 bra cf_bank0_loop |
| 0 | 349 |
| 350 reset_all_cf_bank1: | |
| 351 movlw d'1' | |
| 352 movwf EEADRH ; EEPROM BANK 1 !! | |
| 353 movlw d'127' ; address of low byte of first custom function | |
| 354 movwf EEADR | |
| 355 | |
| 79 | 356 cf_bank1_loop: |
| 357 ; Did we already read another 32 (decimal) bytes ? | |
| 358 movf TBLPTRL,W | |
| 359 sublw LOW (cf_default_table+.128) | |
| 360 bz cf_bank1_end | |
|
27
29341afd2060
NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents:
25
diff
changeset
|
361 |
| 79 | 362 tblrd*+ |
| 363 movf TABLAT, W ; Low byte in WREG, | |
| 364 tblrd*+ | |
| 365 movff TABLAT, hi ; High byte in hi | |
| 0 | 366 rcall reset_customfunction ; saves default and current value |
| 79 | 367 bra cf_bank1_loop |
| 0 | 368 |
| 79 | 369 cf_bank1_end: |
| 0 | 370 clrf EEADRH ; EEPROM BANK 0 ! |
| 371 | |
| 372 ;call reset_external_eeprom ; delete profile memory | |
| 373 goto restart ; all reset, quit to surfmode | |
| 374 | |
| 79 | 375 ; Write the four bytes lo:hi:lo:(hi w/o type flags) into EEPROM |
| 376 ; Don't change hi:lo values... | |
| 0 | 377 reset_customfunction: |
| 378 movwf lo | |
| 379 incf EEADR,F | |
| 380 movff lo, EEDATA ; Lowbyte Defaul value | |
| 381 call write_eeprom | |
| 382 incf EEADR,F | |
| 383 movff hi, EEDATA ; Highbyte default value | |
| 384 call write_eeprom | |
| 385 incf EEADR,F | |
| 386 movff lo, EEDATA ; Lowbyte current value | |
| 387 call write_eeprom | |
| 388 incf EEADR,F | |
| 389 movff hi, EEDATA ; Highbyte current value | |
| 79 | 390 #ifdef NO_CF_TYPES |
| 391 bcf EEDATA,7 ; This bit will only be written for the default value | |
| 392 #else | |
| 393 btfss EEDATA,7 ; A 15bit value ? | |
| 394 clrf EEDATA ; Nope: clear type flag. | |
| 395 #endif | |
| 0 | 396 call write_eeprom |
| 397 return | |
| 398 | |
| 399 | |
| 400 reset_external_eeprom: ; deletes complete external eeprom! | |
| 401 clrf eeprom_address+0 | |
| 402 clrf eeprom_address+1 | |
| 403 | |
| 404 movlw d'2' | |
| 405 movwf temp3 | |
| 406 reset_eeprom02: | |
| 407 clrf temp4 | |
| 408 reset_eeprom01: | |
| 409 movlw d'64' | |
| 410 movwf temp2 | |
| 411 bcf eeprom_blockwrite ; Blockwrite start | |
| 412 reset_eeprom1: | |
| 413 setf ext_ee_temp1 ; byte for Blockwrite.... | |
| 414 movf ext_ee_temp1,W ; So, 1st. Byte of block is fine, too | |
| 415 call write_external_eeprom_block | |
| 416 decfsz temp2,F ; 64 Byte done | |
| 417 bra reset_eeprom1 | |
| 418 bsf SSPCON2,PEN ; Stop condition | |
| 419 call WaitMSSP | |
| 420 WAITMS d'7' | |
| 421 decfsz temp4,F | |
| 422 bra reset_eeprom01 ; do this 256 times | |
| 423 decfsz temp3,F | |
| 424 bra reset_eeprom02 ; and this all 2 times -> 512 *64Bytes = 32KB | |
| 425 | |
| 426 bcf eeprom_blockwrite ; clear blockwrite flag | |
| 427 | |
| 428 clrf eeprom_address+0 | |
| 429 clrf eeprom_address+1 | |
| 430 | |
| 431 movlw 0xFD ; With these three bytes the OSTC will find the free area in the EEPROM faster | |
| 432 call write_external_eeprom | |
| 433 movlw 0xFD | |
| 434 call write_external_eeprom | |
| 435 movlw 0xFE | |
| 436 call write_external_eeprom | |
| 437 | |
| 438 clrf eeprom_address+0 | |
| 439 clrf eeprom_address+1 | |
| 440 return | |
| 441 |