Mercurial > public > hwos_code
annotate src/menu_tree.asm @ 501:69a98f3f3b84
minor
| author | heinrichsweikamp |
|---|---|
| date | Mon, 22 May 2017 23:03:21 +0200 |
| parents | 3e643ec05dac |
| children | 0910c227018f |
| rev | line source |
|---|---|
| 0 | 1 ;============================================================================= |
| 2 ; | |
| 3 ; File menu_tree.asm | |
| 4 ; | |
| 275 | 5 ; OSTC menus |
| 0 | 6 ; |
| 7 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved. | |
| 8 ;============================================================================= | |
| 9 ; HISTORY | |
| 10 ; 2011-07-11 : [jDG] Creation. | |
| 11 | |
| 275 | 12 #include "hwos.inc" ; Mandatory header |
| 0 | 13 #include "gaslist.inc" |
| 14 #include "menu_processor.inc" | |
| 15 #include "start.inc" | |
| 16 #include "comm.inc" | |
| 17 #include "logbook.inc" | |
| 18 #include "tft.inc" | |
| 19 #include "eeprom_rs232.inc" | |
| 20 #include "external_flash.inc" | |
| 21 #include "shared_definitions.h" ; Mailbox from/to p2_deco.c | |
| 22 #include "isr.inc" | |
| 23 #include "ghostwriter.inc" | |
| 24 #include "adc_lightsensor.inc" | |
| 355 | 25 #include "wait.inc" |
| 457 | 26 #include "i2c.inc" |
| 0 | 27 |
|
174
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
28 CBLOCK tmp+0x40 ; Keep space for menu processor |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
29 gaslist_gas ; Check ram position in gaslist.asm, too! |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
30 ENDC |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
31 |
| 0 | 32 gui CODE |
| 33 ;============================================================================= | |
| 34 ; Main Menu | |
|
66
00636132cca6
BUGFIX: Maintain last selected customview in surface mode
heinrichsweikamp
parents:
64
diff
changeset
|
35 global do_main_menu,do_main_menu2 |
| 0 | 36 do_main_menu: |
|
39
e4e91fe8b09d
remember last customview in dive and surface mode
mh@mh-THINK.fritz.box
parents:
23
diff
changeset
|
37 movff menupos3,customview_surfmode; save last customview |
|
66
00636132cca6
BUGFIX: Maintain last selected customview in surface mode
heinrichsweikamp
parents:
64
diff
changeset
|
38 do_main_menu2: |
| 0 | 39 bcf sleepmode ; for timeout |
| 40 call menu_processor_reset ; restart from first icon. | |
| 41 | |
| 42 do_continue_main_menu: | |
| 428 | 43 rcall menu_tree_double_pop ; drop exit line and back to last line |
| 0 | 44 |
| 45 extern do_demo_divemode, restart | |
| 46 MENU_BEGIN tMainMenu, .7 | |
| 47 MENU_CALL tLogbook, logbook | |
| 48 MENU_CALL tGasSetup, do_gas_menu | |
| 49 MENU_CALL tCCRSetup, do_ccr_menu | |
| 50 MENU_CALL tPlan, do_planner_menu_reset | |
| 51 MENU_CALL tDiveModeMenu, do_divemode_menu | |
| 52 MENU_CALL tSystSets, do_settings_menu | |
| 53 MENU_CALL tExit, restart | |
| 54 MENU_END | |
| 55 | |
| 56 do_info_menu: | |
|
453
b4f28ab23b87
NEW: Show Uptime (Time since last firmware boot) in information menu
heinrichsweikamp
parents:
451
diff
changeset
|
57 MENU_BEGIN tInfoMenu, .6 |
| 0 | 58 MENU_DYNAMIC info_menu_serial, 0 |
| 59 MENU_DYNAMIC info_menu_firmware, 0 | |
| 60 MENU_DYNAMIC info_menu_total_dives, 0 | |
| 62 | 61 MENU_DYNAMIC info_menu_battery_volts,0 |
|
453
b4f28ab23b87
NEW: Show Uptime (Time since last firmware boot) in information menu
heinrichsweikamp
parents:
451
diff
changeset
|
62 MENU_DYNAMIC info_menu_uptime,0 |
| 0 | 63 MENU_CALL tExit, do_return_settings |
| 64 MENU_END | |
| 65 | |
| 66 ;============================================================================= | |
| 67 ; CCR Setup | |
| 68 | |
| 69 return_ccr_menu: | |
| 428 | 70 rcall menu_tree_double_pop ; drop exit line and back to last line |
| 0 | 71 |
| 72 do_ccr_menu: | |
| 113 | 73 bcf menu_show_sensors ; Clear flag |
| 74 bcf menu_show_sensors2 ; Clear flag | |
| 236 | 75 btfsc analog_o2_input |
| 240 | 76 bra do_ccr_menu_cR |
| 77 btfss optical_input | |
| 78 bra do_ccr_menu_ostc2 | |
| 79 | |
|
480
ad8acade5567
NEW: PSCR mode (Passive semi-closed rebreather)
heinrichsweikamp
parents:
477
diff
changeset
|
80 MENU_BEGIN tCCRSetup, .6 ; OSTC3 menu |
|
174
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
81 MENU_OPTION tCCRMode, oCCRMode, 0 |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
82 MENU_CALL tCCRSensor, do_ccr_sensor |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
83 MENU_CALL tDiluentSetup, do_diluent_setup |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
84 MENU_CALL tFixedSetpoints, do_fixed_setpoints |
|
480
ad8acade5567
NEW: PSCR mode (Passive semi-closed rebreather)
heinrichsweikamp
parents:
477
diff
changeset
|
85 MENU_CALL tPSCRMenu, do_PSCR_menu |
|
174
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
86 MENU_CALL tExit, do_continue_main_menu |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
87 MENU_END |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
88 |
| 240 | 89 do_ccr_menu_cR: ; cR menu |
|
480
ad8acade5567
NEW: PSCR mode (Passive semi-closed rebreather)
heinrichsweikamp
parents:
477
diff
changeset
|
90 MENU_BEGIN tCCRSetup, .7 |
| 0 | 91 MENU_OPTION tCCRMode, oCCRMode, 0 |
| 92 MENU_CALL tCCRSensor, do_ccr_sensor | |
| 113 | 93 MENU_CALL tCalibrateMenu, do_calibrate_menu |
| 0 | 94 MENU_CALL tDiluentSetup, do_diluent_setup |
| 95 MENU_CALL tFixedSetpoints, do_fixed_setpoints | |
|
480
ad8acade5567
NEW: PSCR mode (Passive semi-closed rebreather)
heinrichsweikamp
parents:
477
diff
changeset
|
96 MENU_CALL tPSCRMenu, do_PSCR_menu |
| 0 | 97 MENU_CALL tExit, do_continue_main_menu |
| 98 MENU_END | |
| 99 | |
| 240 | 100 do_ccr_menu_ostc2: |
|
480
ad8acade5567
NEW: PSCR mode (Passive semi-closed rebreather)
heinrichsweikamp
parents:
477
diff
changeset
|
101 MENU_BEGIN tCCRSetup, .5 ; ostc2 menu |
| 359 | 102 MENU_OPTION tCCRMode, oCCRMode, 0 |
| 240 | 103 MENU_CALL tDiluentSetup, do_diluent_setup |
| 104 MENU_CALL tFixedSetpoints, do_fixed_setpoints | |
|
480
ad8acade5567
NEW: PSCR mode (Passive semi-closed rebreather)
heinrichsweikamp
parents:
477
diff
changeset
|
105 MENU_CALL tPSCRMenu, do_PSCR_menu |
| 240 | 106 MENU_CALL tExit, do_continue_main_menu |
| 107 MENU_END | |
| 108 | |
|
480
ad8acade5567
NEW: PSCR mode (Passive semi-closed rebreather)
heinrichsweikamp
parents:
477
diff
changeset
|
109 do_PSCR_menu: |
| 481 | 110 MENU_BEGIN tPSCRMenu, .3 ; PSCR Menu |
|
480
ad8acade5567
NEW: PSCR mode (Passive semi-closed rebreather)
heinrichsweikamp
parents:
477
diff
changeset
|
111 MENU_OPTION tPSCR_O2_drop, oPSCR_drop, 0 |
|
ad8acade5567
NEW: PSCR mode (Passive semi-closed rebreather)
heinrichsweikamp
parents:
477
diff
changeset
|
112 MENU_OPTION tPSCR_lungratio,oPSCR_lungratio, 0 |
|
ad8acade5567
NEW: PSCR mode (Passive semi-closed rebreather)
heinrichsweikamp
parents:
477
diff
changeset
|
113 MENU_CALL tExit, do_ccr_menu |
|
ad8acade5567
NEW: PSCR mode (Passive semi-closed rebreather)
heinrichsweikamp
parents:
477
diff
changeset
|
114 MENU_END |
| 240 | 115 |
| 113 | 116 do_calibrate_menu: |
|
187
669b5d00706d
CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents:
174
diff
changeset
|
117 call enable_ir_s8 ; Enable IR/S8-Port |
| 113 | 118 bsf menu_show_sensors2 ; Set flag |
| 119 do_calibrate_menu2: | |
| 120 MENU_BEGIN tCalibrateMenu, .6 | |
| 121 MENU_CALL tDiveHudMask1, 0 | |
| 122 MENU_CALL tDiveHudMask2, 0 | |
| 123 MENU_CALL tDiveHudMask3, 0 | |
| 124 MENU_OPTION tCalibrationGas,oCalGasO2, 0 | |
| 125 MENU_CALL tCalibrate, do_calibrate_mix | |
| 126 MENU_CALL tExit, return_ccr_menu | |
| 127 MENU_END | |
| 128 | |
| 129 do_calibrate_mix: | |
| 130 extern calibrate_mix | |
| 131 call calibrate_mix ; Calibrate with opt_calibration_O2_ratio, also calibrate S8 HUD if connected | |
| 355 | 132 WAITMS d'250' ; Wait for HUD v3 |
| 113 | 133 goto restart ; Restart into surface mode |
| 134 | |
| 0 | 135 do_ccr_sensor: |
|
187
669b5d00706d
CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents:
174
diff
changeset
|
136 call enable_ir_s8 ; Enable IR/S8-Port |
| 0 | 137 bsf menu_show_sensors ; Set flag |
|
145
e3ac5b2021bc
NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents:
144
diff
changeset
|
138 MENU_BEGIN tCCRSensor, .5 |
| 0 | 139 MENU_CALL tDiveHudMask1, 0 |
| 140 MENU_CALL tDiveHudMask2, 0 | |
| 141 MENU_CALL tDiveHudMask3, 0 | |
|
145
e3ac5b2021bc
NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents:
144
diff
changeset
|
142 MENU_OPTION tSensorFallback,oSensorFallback, 0 |
| 0 | 143 MENU_CALL tExit, return_ccr_menu |
| 144 MENU_END | |
| 145 | |
| 146 do_diluent_setup: | |
| 147 bsf ccr_diluent_setup ; =1: Setting up Diluents ("Gas6-10") | |
| 139 | 148 bcf short_gas_decriptions ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint |
| 0 | 149 call gaslist_cleanup_list ; Takes care that only one gas can be first and first has 0m change depth |
| 150 MENU_BEGIN tDiluentSetup, .6 | |
| 151 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu | |
| 152 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu | |
| 153 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu | |
| 154 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu | |
| 155 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu | |
| 156 MENU_CALL tExit, return_ccr_menu | |
| 157 MENU_END | |
| 158 | |
| 159 do_return_fixed_setpoints: | |
| 428 | 160 rcall menu_tree_double_pop ; drop exit line and back to last line |
| 0 | 161 |
| 162 do_fixed_setpoints: | |
| 139 | 163 bcf short_gas_decriptions ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint |
| 0 | 164 MENU_BEGIN tFixedSetpoints, .6 |
| 165 MENU_DYNAMIC gaslist_strcat_setpoint, do_edit_sp_menu | |
| 166 MENU_DYNAMIC gaslist_strcat_setpoint, do_edit_sp_menu | |
| 167 MENU_DYNAMIC gaslist_strcat_setpoint, do_edit_sp_menu | |
| 168 MENU_DYNAMIC gaslist_strcat_setpoint, do_edit_sp_menu | |
| 169 MENU_DYNAMIC gaslist_strcat_setpoint, do_edit_sp_menu | |
| 170 MENU_CALL tExit, return_ccr_menu | |
| 171 MENU_END | |
| 172 | |
| 173 do_edit_sp_menu: | |
| 174 call gaslist_setSP ; Save current item. | |
| 175 MENU_BEGIN tFixedSetpoints, .5 | |
| 176 MENU_DYNAMIC gaslist_strcat_setpoint_0,0 | |
| 177 MENU_CALL tSPPlus, gaslist_spplus | |
| 178 MENU_CALL tDepthPlus, gaslist_spdepthplus | |
| 179 MENU_CALL tDepthMinus, gaslist_spdepthminus | |
| 180 MENU_CALL tExit, do_return_fixed_setpoints | |
| 181 MENU_END | |
| 182 | |
| 183 ;============================================================================= | |
| 184 ; OC Gas Setup | |
| 185 | |
| 186 return_gas_menu: | |
| 428 | 187 rcall menu_tree_double_pop ; drop exit line and back to last line |
| 0 | 188 |
| 189 btfsc ccr_diluent_setup ; Return to CCR-Menu? | |
| 190 bra do_diluent_setup ; Yes. | |
| 191 do_gas_menu: | |
| 192 bcf ccr_diluent_setup ; =1: Setting up Diluents ("Gas6-10") | |
| 139 | 193 bcf short_gas_decriptions ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint |
| 0 | 194 call gaslist_cleanup_list ; Takes care that only one gas can be first and first has 0m change depth |
| 195 MENU_BEGIN tGaslist, .6 | |
| 196 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu | |
| 197 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu | |
| 198 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu | |
| 199 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu | |
| 200 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu | |
| 201 MENU_CALL tExit, do_continue_main_menu | |
| 202 MENU_END | |
| 203 | |
| 204 return_gas_depth: | |
| 428 | 205 rcall menu_tree_double_pop ; drop exit line and back to last line |
| 0 | 206 bra do_edit_gas_menu_1 |
| 207 | |
| 208 do_edit_gas_menu: | |
| 209 call gaslist_setgas ; Save current item. | |
| 210 do_edit_gas_menu_1: ; Keep current gas. | |
| 211 MENU_BEGIN tGasEdit, .6 | |
| 212 MENU_DYNAMIC gaslist_gastitle, 0 | |
| 213 MENU_DYNAMIC gaslist_MOD_END, 0 | |
| 214 MENU_DYNAMIC gaslist_show_type, gaslist_toggle_type | |
| 215 MENU_CALL tSetup_mix, do_setup_mix | |
| 216 MENU_CALL tGasDepth, do_gas_depth_menu | |
| 217 MENU_CALL tExit, return_gas_menu | |
| 218 MENU_END | |
| 219 | |
| 220 do_setup_mix: | |
| 221 MENU_BEGIN tGasEdit, .7 | |
| 222 MENU_DYNAMIC gaslist_gastitle, 0 | |
| 223 MENU_DYNAMIC gaslist_MOD_END, 0 | |
| 224 MENU_CALL tO2Plus, gaslist_pO2 | |
| 225 MENU_CALL tO2Minus, gaslist_mO2 | |
| 226 MENU_CALL tHePlus, gaslist_pHe | |
| 227 MENU_CALL tHeMinus, gaslist_mHe | |
| 228 MENU_CALL tExit, return_gas_depth | |
| 229 MENU_END | |
| 230 | |
| 428 | 231 menu_tree_double_pop: |
| 232 call menu_processor_pop ; drop exit line. | |
| 233 goto menu_processor_pop ; back to last gas and return | |
| 234 | |
| 235 | |
| 0 | 236 global do_gas_depth_menu |
| 237 do_gas_depth_menu: | |
|
174
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
238 movff gaslist_gas,WREG |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
239 lfsr FSR1,opt_gas_type ; Read opt_gas_type[WREG] |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
240 movff PLUSW1,lo ; Used as temp |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
241 movlw .3 ; 3=Deco |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
242 btfsc ccr_diluent_setup ; =1: Setting up Diluents ("Gas6-10") |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
243 movlw .2 ; 2=Normal |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
244 cpfseq lo |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
245 bra return_gas_depth ; Non-Deco gas or "Normal" Diluent, Return! |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
155
diff
changeset
|
246 |
|
154
afa31c815f24
NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents:
148
diff
changeset
|
247 MENU_BEGIN tGasEdit, .7 |
| 0 | 248 MENU_DYNAMIC gaslist_gastitle, 0 |
| 249 MENU_DYNAMIC gaslist_MOD_END, 0 | |
|
154
afa31c815f24
NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents:
148
diff
changeset
|
250 MENU_DYNAMIC gaslist_ppo2, 0 ; ppO2 at change depth |
| 0 | 251 MENU_CALL tDepthPlus, gaslist_pDepth |
| 252 MENU_CALL tDepthMinus, gaslist_mDepth | |
| 253 MENU_DYNAMIC gaslist_reset_mod_title,gaslist_reset_mod | |
| 254 MENU_CALL tExit, return_gas_depth | |
| 255 MENU_END | |
| 256 | |
| 257 ;============================================================================= | |
| 258 ; Simulator menus | |
| 259 | |
| 260 global do_planner_menu | |
| 261 | |
| 262 do_planner_menu_reset: | |
| 263 extern option_save_all | |
| 264 call option_save_all | |
| 265 ;---- Reset dive time/depth to default values | |
| 266 extern option_reset | |
| 267 lfsr FSR0,odiveInterval | |
| 268 call option_reset | |
| 269 lfsr FSR0,obottomTime | |
| 270 call option_reset | |
| 271 lfsr FSR0,obottomDepth | |
| 272 call option_reset | |
| 273 | |
| 274 do_planner_menu: | |
| 275 extern do_demo_planner | |
|
298
2fe34fc0e2ae
new submenu for gas consumption, show actual mix instead of GAS1-GAS5 in deco planner
heinrichsweikamp
parents:
275
diff
changeset
|
276 MENU_BEGIN tPlan, .7 |
| 0 | 277 MENU_CALL tInter, do_demo_divemode |
| 278 MENU_OPTION tIntvl, odiveInterval, 0 | |
| 279 MENU_OPTION tBtTm, obottomTime, 0 | |
| 280 MENU_OPTION tMxDep, obottomDepth, 0 | |
| 281 MENU_CALL tDeco, do_demo_planner | |
|
298
2fe34fc0e2ae
new submenu for gas consumption, show actual mix instead of GAS1-GAS5 in deco planner
heinrichsweikamp
parents:
275
diff
changeset
|
282 MENU_CALL tSystSets, do_planner_config |
| 0 | 283 MENU_CALL tExit, do_continue_main_menu |
| 284 MENU_END | |
| 285 | |
|
298
2fe34fc0e2ae
new submenu for gas consumption, show actual mix instead of GAS1-GAS5 in deco planner
heinrichsweikamp
parents:
275
diff
changeset
|
286 do_planner_config: |
|
2fe34fc0e2ae
new submenu for gas consumption, show actual mix instead of GAS1-GAS5 in deco planner
heinrichsweikamp
parents:
275
diff
changeset
|
287 MENU_BEGIN tPlan, .3 |
|
2fe34fc0e2ae
new submenu for gas consumption, show actual mix instead of GAS1-GAS5 in deco planner
heinrichsweikamp
parents:
275
diff
changeset
|
288 MENU_OPTION tSetBotUse, obottom_usage, 0 |
|
2fe34fc0e2ae
new submenu for gas consumption, show actual mix instead of GAS1-GAS5 in deco planner
heinrichsweikamp
parents:
275
diff
changeset
|
289 MENU_OPTION tSetDecoUse, odeco_usage, 0 |
|
2fe34fc0e2ae
new submenu for gas consumption, show actual mix instead of GAS1-GAS5 in deco planner
heinrichsweikamp
parents:
275
diff
changeset
|
290 MENU_CALL tExit, do_planner_menu |
|
2fe34fc0e2ae
new submenu for gas consumption, show actual mix instead of GAS1-GAS5 in deco planner
heinrichsweikamp
parents:
275
diff
changeset
|
291 MENU_END |
|
2fe34fc0e2ae
new submenu for gas consumption, show actual mix instead of GAS1-GAS5 in deco planner
heinrichsweikamp
parents:
275
diff
changeset
|
292 |
|
2fe34fc0e2ae
new submenu for gas consumption, show actual mix instead of GAS1-GAS5 in deco planner
heinrichsweikamp
parents:
275
diff
changeset
|
293 |
| 0 | 294 ;============================================================================= |
| 295 ; Divemode menu | |
| 296 | |
| 297 do_return_divemode_menu: | |
| 428 | 298 rcall menu_tree_double_pop ; drop exit line and back to last line |
| 0 | 299 |
| 300 do_divemode_menu: | |
| 301 MENU_BEGIN tDiveModeMenu, .7 | |
| 302 MENU_OPTION tDvMode, oDiveMode, 0 | |
| 303 MENU_OPTION tDkMode, oDecoMode, 0 | |
|
104
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
90
diff
changeset
|
304 MENU_CALL tppO2settings, do_ppo2_menu |
|
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
90
diff
changeset
|
305 MENU_OPTION tsafetystopmenu,oSafetyStop, 0 |
| 0 | 306 MENU_OPTION tFTTSMenu, oExtraTime,0 |
| 307 MENU_CALL tDecoparameters, do_decoparameters_menu | |
| 308 MENU_CALL tExit, do_continue_main_menu | |
| 309 MENU_END | |
| 310 | |
|
104
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
90
diff
changeset
|
311 do_ppo2_menu: |
|
337
508d7fb98b34
cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents:
335
diff
changeset
|
312 MENU_BEGIN tppO2settings, .4 |
|
104
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
90
diff
changeset
|
313 MENU_DYNAMIC divesets_ppo2_max, do_toggle_ppo2_max |
|
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
90
diff
changeset
|
314 MENU_DYNAMIC divesets_ppo2_min, do_toggle_ppo2_min |
|
337
508d7fb98b34
cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents:
335
diff
changeset
|
315 MENU_OPTION tShowppO2, oShowppO2, 0 |
|
104
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
90
diff
changeset
|
316 MENU_CALL tExit, do_return_divemode_menu |
|
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
90
diff
changeset
|
317 MENU_END |
|
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
90
diff
changeset
|
318 |
| 0 | 319 do_return_decoparameters_menu: |
| 428 | 320 rcall menu_tree_double_pop ; drop exit line and back to last line |
| 0 | 321 do_decoparameters_menu: |
| 322 MENU_BEGIN tDecoparameters, .7 | |
| 323 MENU_OPTION tGF_low, oGF_low, 0 | |
| 324 MENU_OPTION tGF_high, oGF_high, 0 | |
| 325 MENU_CALL taGFMenu, do_aGF_menu | |
| 326 MENU_OPTION tSaturationMult,osatmult, 0 | |
| 327 MENU_OPTION tDesaturationMult,odesatmult,0 | |
| 328 MENU_OPTION tLastDecostop,oLastDeco, 0 | |
| 329 MENU_CALL tExit, do_return_divemode_menu | |
| 330 MENU_END | |
| 331 | |
| 332 do_aGF_menu: | |
| 333 MENU_BEGIN taGFMenu, .4 | |
| 334 MENU_OPTION taGF_enable,oEnable_aGF, 0 | |
| 335 MENU_OPTION taGF_low, oaGF_low, 0 | |
| 336 MENU_OPTION taGF_high, oaGF_high, 0 | |
| 337 MENU_CALL tExit, do_return_decoparameters_menu | |
| 338 MENU_END | |
| 339 ;============================================================================= | |
| 340 ; Setup Menu | |
| 341 | |
| 342 do_return_settings: | |
| 343 bcf settime_setdate ; Clear flag | |
| 428 | 344 rcall menu_tree_double_pop ; drop exit line and back to last line |
| 0 | 345 |
| 346 extern compass_calibration_loop | |
| 347 do_settings_menu: | |
| 345 | 348 btfsc ble_available ; ble available |
| 349 bra do_settings_menu_ble ; Yes. | |
| 350 MENU_BEGIN tSystSets, .6 | |
| 0 | 351 MENU_CALL tInfoMenu, do_info_menu |
| 352 MENU_CALL tSetTimeDate, do_date_time_menu | |
| 353 MENU_CALL tDispSets, do_dispsets_menu | |
| 354 MENU_OPTION tLanguage, oLanguage, 0 | |
|
155
5f71e31bd5b3
CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents:
154
diff
changeset
|
355 MENU_CALL tMore, do_settings_menu_more |
|
5f71e31bd5b3
CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents:
154
diff
changeset
|
356 MENU_CALL tExit, do_continue_main_menu |
|
5f71e31bd5b3
CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents:
154
diff
changeset
|
357 MENU_END |
|
5f71e31bd5b3
CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents:
154
diff
changeset
|
358 |
| 345 | 359 do_settings_menu_ble: |
| 360 MENU_BEGIN tSystSets, .7 | |
| 361 MENU_CALL tInfoMenu, do_info_menu | |
| 362 MENU_CALL tBleTitle, comm_mode0 | |
| 363 MENU_CALL tSetTimeDate, do_date_time_menu | |
| 364 MENU_CALL tDispSets, do_dispsets_menu | |
| 365 MENU_OPTION tLanguage, oLanguage, 0 | |
| 366 MENU_CALL tMore, do_settings_menu_more | |
| 367 MENU_CALL tExit, do_continue_main_menu | |
| 368 MENU_END | |
|
326
d21b172d5a7a
VSIbar #4: VSI settings submenu, graph option, logbook offset and compass calib. menu exit fix
Janos Kovacs <kovjanos@gmail.com>
parents:
307
diff
changeset
|
369 |
|
d21b172d5a7a
VSIbar #4: VSI settings submenu, graph option, logbook offset and compass calib. menu exit fix
Janos Kovacs <kovjanos@gmail.com>
parents:
307
diff
changeset
|
370 do_return_settings_more: |
| 428 | 371 rcall menu_tree_double_pop ; drop exit line and back to last line |
|
220
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
372 |
|
155
5f71e31bd5b3
CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents:
154
diff
changeset
|
373 do_settings_menu_more: |
| 448 | 374 btfsc battery_gauge_available ; piezo buttons available |
|
269
1207cf9a9408
adjust menu for different hardware versions
heinrichsweikamp
parents:
243
diff
changeset
|
375 bra do_settings_menu_more_piezo |
| 243 | 376 btfsc ble_available ; ble available |
|
269
1207cf9a9408
adjust menu for different hardware versions
heinrichsweikamp
parents:
243
diff
changeset
|
377 bra do_settings_menu_more_ostc3p |
| 345 | 378 MENU_BEGIN tSystSets, .7 |
|
220
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
379 MENU_CALL tCompassMenu, do_compass_menu |
|
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
380 MENU_CALL tLogOffset, do_log_offset_menu |
|
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
381 MENU_OPTION tUnits, oUnits, 0 |
|
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
382 MENU_OPTION tSamplingrate,oSamplingRate,0 |
|
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
383 MENU_OPTION tDvSalinity,oDiveSalinity, 0 |
| 345 | 384 MENU_CALL tResetMenu, do_reset_menu |
|
220
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
385 MENU_CALL tExit, do_return_settings |
|
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
386 MENU_END |
|
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
387 |
|
375
a9e35c1327aa
1.88 release, BUGFIX: Start with Sensor use from sleep (cR only), CHANGE: Apply button settings when button menu is closed, NEW: Reset button settings on a magnet reset (cR and OSTC 2)
heinrichsweikamp
parents:
359
diff
changeset
|
388 do_settings_menu_more_piezo_exit: |
|
a9e35c1327aa
1.88 release, BUGFIX: Start with Sensor use from sleep (cR only), CHANGE: Apply button settings when button menu is closed, NEW: Reset button settings on a magnet reset (cR and OSTC 2)
heinrichsweikamp
parents:
359
diff
changeset
|
389 call TFT_ClearScreen |
|
a9e35c1327aa
1.88 release, BUGFIX: Start with Sensor use from sleep (cR only), CHANGE: Apply button settings when button menu is closed, NEW: Reset button settings on a magnet reset (cR and OSTC 2)
heinrichsweikamp
parents:
359
diff
changeset
|
390 extern piezo_config |
|
a9e35c1327aa
1.88 release, BUGFIX: Start with Sensor use from sleep (cR only), CHANGE: Apply button settings when button menu is closed, NEW: Reset button settings on a magnet reset (cR and OSTC 2)
heinrichsweikamp
parents:
359
diff
changeset
|
391 call piezo_config ; Configure buttons |
|
a9e35c1327aa
1.88 release, BUGFIX: Start with Sensor use from sleep (cR only), CHANGE: Apply button settings when button menu is closed, NEW: Reset button settings on a magnet reset (cR and OSTC 2)
heinrichsweikamp
parents:
359
diff
changeset
|
392 |
|
269
1207cf9a9408
adjust menu for different hardware versions
heinrichsweikamp
parents:
243
diff
changeset
|
393 do_settings_menu_more_piezo: |
| 218 | 394 MENU_BEGIN tSystSets, .7 |
|
18
4e3f133dfbf4
add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents:
0
diff
changeset
|
395 MENU_CALL tCompassMenu, do_compass_menu |
|
155
5f71e31bd5b3
CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents:
154
diff
changeset
|
396 MENU_CALL tLogOffset, do_log_offset_menu |
|
5f71e31bd5b3
CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents:
154
diff
changeset
|
397 MENU_OPTION tUnits, oUnits, 0 |
|
5f71e31bd5b3
CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents:
154
diff
changeset
|
398 MENU_OPTION tSamplingrate,oSamplingRate,0 |
|
5f71e31bd5b3
CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents:
154
diff
changeset
|
399 MENU_OPTION tDvSalinity,oDiveSalinity, 0 |
| 345 | 400 MENU_CALL tMore, do_settings_piezo_menu |
|
155
5f71e31bd5b3
CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents:
154
diff
changeset
|
401 MENU_CALL tExit, do_return_settings |
| 0 | 402 MENU_END |
| 403 | |
|
220
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
404 extern comm_mode0 |
| 243 | 405 |
| 345 | 406 do_settings_piezo_menu: |
| 407 ; Menu with features only available in piezo button hardware | |
|
220
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
408 MENU_BEGIN tSystSets, .4 |
| 345 | 409 MENU_CALL tResetMenu, do_reset_menu |
|
220
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
410 MENU_OPTION tButtonleft,ocR_button_left ,0 ; left button sensitivity |
|
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
411 MENU_OPTION tButtonright,ocR_button_right,0 ; right button sensitivity |
|
375
a9e35c1327aa
1.88 release, BUGFIX: Start with Sensor use from sleep (cR only), CHANGE: Apply button settings when button menu is closed, NEW: Reset button settings on a magnet reset (cR and OSTC 2)
heinrichsweikamp
parents:
359
diff
changeset
|
412 MENU_CALL tExit, do_settings_menu_more_piezo_exit |
|
220
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
413 MENU_END |
|
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
414 |
|
269
1207cf9a9408
adjust menu for different hardware versions
heinrichsweikamp
parents:
243
diff
changeset
|
415 do_settings_menu_more_ostc3p: ; Menu with BLE feature |
| 243 | 416 MENU_BEGIN tSystSets, .7 |
| 417 MENU_CALL tCompassMenu, do_compass_menu | |
| 418 MENU_CALL tLogOffset, do_log_offset_menu | |
| 419 MENU_OPTION tUnits, oUnits, 0 | |
| 420 MENU_OPTION tSamplingrate,oSamplingRate,0 | |
| 421 MENU_OPTION tDvSalinity,oDiveSalinity, 0 | |
| 345 | 422 MENU_CALL tResetMenu, do_reset_menu |
| 243 | 423 MENU_CALL tExit, do_return_settings |
| 424 MENU_END | |
|
220
effd7259f5a5
make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents:
218
diff
changeset
|
425 |
|
18
4e3f133dfbf4
add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents:
0
diff
changeset
|
426 do_compass_menu: |
|
90
3274e87fd027
NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents:
78
diff
changeset
|
427 MENU_BEGIN tSystSets, .2 |
|
18
4e3f133dfbf4
add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents:
0
diff
changeset
|
428 MENU_CALL tCompassMenu, compass_calibration_loop |
|
90
3274e87fd027
NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents:
78
diff
changeset
|
429 ; MENU_OPTION tCompassGain, oCompassGain, 0 |
|
326
d21b172d5a7a
VSIbar #4: VSI settings submenu, graph option, logbook offset and compass calib. menu exit fix
Janos Kovacs <kovjanos@gmail.com>
parents:
307
diff
changeset
|
430 MENU_CALL tExit, do_return_settings_more |
|
18
4e3f133dfbf4
add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents:
0
diff
changeset
|
431 MENU_END |
|
4e3f133dfbf4
add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents:
0
diff
changeset
|
432 |
| 0 | 433 ;============================================================================= |
| 434 ; Reset and confirmation menu. | |
| 435 | |
| 436 do_reset_menu: | |
| 63 | 437 MENU_BEGIN tResetMenu, .6 |
| 0 | 438 MENU_CALL tExit, do_return_settings |
| 439 MENU_CALL tReboot, do_reset_menu2 ; Confirm | |
| 440 MENU_CALL tResetDeco, do_reset_menu3 ; Confirm | |
| 441 MENU_CALL tResetSettings, do_reset_menu4 ; Confirm | |
| 63 | 442 MENU_CALL tResetLogbook, do_reset_menu5 ; Confirm |
| 0 | 443 MENU_CALL tResetBattery, new_battery_menu ; New Battery submenu |
| 444 MENU_END | |
| 445 | |
| 446 do_reset_menu2: | |
| 447 MENU_BEGIN tResetMenu2, .2 | |
| 448 MENU_CALL tAbort, do_continue_menu_3stack | |
| 449 MENU_CALL tReboot, do_reboot ; Reboot | |
| 450 MENU_END | |
| 451 | |
| 452 do_reset_menu3: | |
| 453 MENU_BEGIN tResetMenu2, .2 | |
| 454 MENU_CALL tAbort, do_continue_menu_3stack | |
| 455 MENU_CALL tResetDeco, do_reset_deco ; Reset Deco | |
| 456 MENU_END | |
| 457 | |
| 458 do_reset_menu4: | |
| 459 MENU_BEGIN tResetMenu2, .2 | |
| 460 MENU_CALL tAbort, do_continue_menu_3stack | |
| 461 MENU_CALL tResetSettings, do_reset_settings ; Reset all settings | |
| 462 MENU_END | |
| 463 | |
| 63 | 464 do_reset_menu5: |
| 465 MENU_BEGIN tResetMenu2, .2 | |
| 466 MENU_CALL tAbort, do_continue_menu_3stack | |
| 467 MENU_CALL tResetLogbook, do_reset_logbook ; Reset logbook | |
| 468 MENU_END | |
| 469 | |
| 470 do_reset_logbook: | |
| 471 clrf EEADRH ; Make sure to select eeprom bank 0 | |
| 472 clrf EEDATA | |
|
78
668b432dcae9
BUGFIX: Reset Logbook did not reset Logbook TOC properly
mh@mh-THINK.localdomain
parents:
76
diff
changeset
|
473 read_int_eeprom .2 |
|
396
61984f91174a
place total dives backup counter in eeprom 16:17
heinrichsweikamp
parents:
375
diff
changeset
|
474 write_int_eeprom .16 |
|
78
668b432dcae9
BUGFIX: Reset Logbook did not reset Logbook TOC properly
mh@mh-THINK.localdomain
parents:
76
diff
changeset
|
475 read_int_eeprom .3 |
|
396
61984f91174a
place total dives backup counter in eeprom 16:17
heinrichsweikamp
parents:
375
diff
changeset
|
476 write_int_eeprom .17 ; Copy number of dives |
| 144 | 477 clrf EEDATA |
|
78
668b432dcae9
BUGFIX: Reset Logbook did not reset Logbook TOC properly
mh@mh-THINK.localdomain
parents:
76
diff
changeset
|
478 write_int_eeprom .2 |
|
668b432dcae9
BUGFIX: Reset Logbook did not reset Logbook TOC properly
mh@mh-THINK.localdomain
parents:
76
diff
changeset
|
479 write_int_eeprom .3 ; Clear total dives |
| 63 | 480 write_int_eeprom .4 |
| 481 write_int_eeprom .5 | |
| 482 write_int_eeprom .6 ; Reset logbook pointers | |
| 483 call ext_flash_erase_logbook ; And complete logbook (!) | |
| 484 goto do_continue_main_menu ; back to menu | |
| 485 | |
| 0 | 486 |
| 487 do_reset_deco: | |
| 488 movlw d'79' ; 79% N2 | |
| 489 movff WREG,char_I_N2_ratio | |
| 490 movlw d'0' | |
| 491 movff WREG,char_I_step_is_1min ; 2 second deco mode | |
| 492 SAFE_2BYTE_COPY amb_pressure,int_I_pres_respiration ; copy for deco routine | |
| 493 movff int_I_pres_respiration+0,int_I_pres_surface+0 ; copy for desat routine | |
| 494 movff int_I_pres_respiration+1,int_I_pres_surface+1 | |
| 495 | |
| 496 extern deco_reset | |
| 497 call deco_reset | |
| 498 call deco_calc_desaturation_time ; calculate desaturation time | |
| 499 banksel common | |
| 500 call deco_calc_wo_deco_step_1_min ; calculate deco in surface mode | |
| 501 banksel common | |
| 502 clrf nofly_time+0 ; Reset NoFly | |
| 503 clrf nofly_time+1 | |
| 504 clrf desaturation_time+0 ; Reset Desat | |
| 505 clrf desaturation_time+1 | |
| 506 goto do_return_settings ; back to menu | |
| 507 | |
| 508 do_reset_settings: | |
|
470
81faca166e1b
minor: clear screen while resetting settings
heinrichsweikamp
parents:
464
diff
changeset
|
509 call TFT_ClearScreen ; Clear screen |
| 139 | 510 banksel common |
| 0 | 511 extern option_reset_all |
| 512 call option_reset_all ; Reset all options to factory default. | |
| 76 | 513 goto restart ; Restart into surfacemode |
| 0 | 514 |
| 515 do_continue_menu_3stack: ; Return three levels deep | |
| 516 call menu_processor_pop | |
| 517 goto do_return_settings | |
| 518 | |
| 519 do_reboot: | |
| 520 call ext_flash_enable_protection ; Enables write protection | |
| 521 reset | |
| 522 | |
| 523 | |
| 524 do_date_time_menu: | |
| 525 MENU_BEGIN tSetTimeDate, .4 | |
| 526 MENU_CALL tSetTime, do_time_menu | |
| 527 MENU_CALL tSetDate, do_date_menu | |
| 528 MENU_OPTION tDateFormat,oDateFormat, 0 | |
| 529 MENU_CALL tExit, do_return_settings | |
| 530 MENU_END | |
| 531 | |
| 532 do_date_menu: | |
| 533 bsf settime_setdate | |
| 534 MENU_BEGIN tSetDate, .4 | |
| 535 MENU_OPTION tSetDay, oSetDay, 0 | |
| 50 | 536 MENU_OPTION tSetMonth, oSetMonth, 0 |
| 0 | 537 MENU_OPTION tSetYear, oSetYear, 0 |
| 538 MENU_CALL tExit, do_continue_menu_3stack | |
| 539 MENU_END | |
| 540 | |
| 541 | |
| 542 do_reset_seconds: | |
| 543 clrf secs | |
| 544 extern rtc_set_rtc | |
| 545 call rtc_set_rtc ; writes mins,sec,hours,day,month and year to rtc module | |
| 546 do_time_menu: | |
| 547 bsf settime_setdate | |
| 548 MENU_BEGIN tSetTime, .4 | |
| 549 MENU_OPTION tSetHours, oSetHours, 0 | |
| 550 MENU_OPTION tSetMinutes,oSetMinutes, 0 | |
| 551 MENU_CALL tSetSeconds, do_reset_seconds | |
| 552 MENU_CALL tExit, do_continue_menu_3stack | |
| 553 MENU_END | |
| 554 | |
| 555 | |
| 556 do_toggle_ppo2_max: ; add 0.1bar, with hard-coded max. | |
| 557 movff opt_ppO2_max,lo ; banksafe | |
| 558 movlw .10 | |
| 559 addwf lo,F | |
| 560 movlw ppo2_highest_setting | |
| 561 cpfsgt lo | |
| 562 bra do_toggle_ppo2_max2 | |
| 563 movlw .120 | |
| 564 movwf lo | |
| 565 do_toggle_ppo2_max2: | |
| 566 movff lo,opt_ppO2_max | |
| 567 return | |
| 568 | |
| 569 do_toggle_ppo2_min: ; sub 0.1bar, with hard-coded min. | |
| 570 movff opt_ppO2_min,lo ; banksafe | |
| 571 incf lo,F | |
| 572 movlw .21 | |
| 573 cpfsgt lo | |
| 574 bra do_toggle_ppo2_min2 | |
| 575 movlw ppo2_lowest_setting | |
| 576 movwf lo | |
| 577 do_toggle_ppo2_min2: | |
| 578 movff lo,opt_ppO2_min | |
| 579 return | |
| 580 | |
| 581 | |
| 582 ; Logbook offset sub-menu | |
| 583 do_log_offset_menu: | |
| 584 MENU_BEGIN tLogOffset, .6 | |
| 585 MENU_DYNAMIC TFT_LogOffset_Logtitle, 0 | |
| 586 MENU_CALL tLogOffsetp1, do_logoffset_plus1 | |
| 587 MENU_CALL tLogOffsetp10, do_logoffset_plus10 | |
| 588 MENU_CALL tLogOffsetm1, do_logoffset_minus1 | |
| 589 MENU_CALL tLogOffsetm10, do_logoffset_minus10 | |
|
326
d21b172d5a7a
VSIbar #4: VSI settings submenu, graph option, logbook offset and compass calib. menu exit fix
Janos Kovacs <kovjanos@gmail.com>
parents:
307
diff
changeset
|
590 MENU_CALL tExit, do_return_settings_more |
| 0 | 591 MENU_END |
| 592 | |
| 593 | |
| 594 do_logoffset_minus1: | |
| 595 call do_logoffset_common_read ; Read into lo:hi | |
| 596 movlw d'1' | |
| 597 subwf lo | |
| 598 movlw d'0' | |
| 599 subwfb hi | |
| 600 btfss hi,7 ; <0? | |
| 601 goto do_logoffset_common_write ; Store and return | |
| 602 clrf lo | |
| 603 clrf hi | |
| 604 goto do_logoffset_common_write ; Store and return | |
| 605 | |
| 606 do_logoffset_minus10: | |
| 607 call do_logoffset_common_read ; Read into lo:hi | |
| 608 movlw d'10' | |
| 609 subwf lo | |
| 610 movlw d'0' | |
| 611 subwfb hi | |
| 612 btfss hi,7 ; <0? | |
| 613 goto do_logoffset_common_write ; Store and return | |
| 614 clrf lo | |
| 615 clrf hi | |
| 616 goto do_logoffset_common_write ; Store and return | |
| 617 | |
| 618 do_logoffset_plus1: | |
| 619 call do_logoffset_common_read ; Read into lo:hi | |
| 148 | 620 infsnz lo,F |
| 621 incf hi,F | |
| 0 | 622 goto do_logoffset_common_write ; Store and return |
| 623 | |
| 624 do_logoffset_plus10: | |
| 625 call do_logoffset_common_read ; Read into lo:hi | |
| 626 movlw d'10' | |
| 627 addwf lo | |
| 628 movlw d'0' | |
| 629 addwfc hi | |
| 630 goto do_logoffset_common_write ; Store and return | |
| 631 | |
| 632 do_dispsets_menu_3stack: | |
| 50 | 633 bcf in_color_menu |
| 428 | 634 rcall menu_tree_double_pop ; drop exit line and back to last line |
| 0 | 635 |
| 636 do_dispsets_menu: | |
|
337
508d7fb98b34
cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents:
335
diff
changeset
|
637 MENU_BEGIN tDispSets, .5 |
|
303
9b1b0b32e7d5
Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents:
298
diff
changeset
|
638 MENU_OPTION tBright, oBrightness, 0 |
|
9b1b0b32e7d5
Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents:
298
diff
changeset
|
639 MENU_CALL tColorScheme, do_color_scheme |
|
9b1b0b32e7d5
Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents:
298
diff
changeset
|
640 MENU_OPTION tFlip, oFlipScreen, 0 |
|
335
3d43da7acfe1
Always show ppO2 (warning position, standard color) option
janos_kovacs <kovjanos@gmail.com>
parents:
333
diff
changeset
|
641 MENU_CALL tMore, do_dispsets_menu_more |
|
3d43da7acfe1
Always show ppO2 (warning position, standard color) option
janos_kovacs <kovjanos@gmail.com>
parents:
333
diff
changeset
|
642 MENU_CALL tExit, do_return_settings |
|
3d43da7acfe1
Always show ppO2 (warning position, standard color) option
janos_kovacs <kovjanos@gmail.com>
parents:
333
diff
changeset
|
643 MENU_END |
|
3d43da7acfe1
Always show ppO2 (warning position, standard color) option
janos_kovacs <kovjanos@gmail.com>
parents:
333
diff
changeset
|
644 |
|
3d43da7acfe1
Always show ppO2 (warning position, standard color) option
janos_kovacs <kovjanos@gmail.com>
parents:
333
diff
changeset
|
645 do_dispsets_menu_more: |
| 448 | 646 MENU_BEGIN tDispSets, .5 |
|
337
508d7fb98b34
cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents:
335
diff
changeset
|
647 MENU_OPTION tMODwarning, oMODwarning, 0 |
|
508d7fb98b34
cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents:
335
diff
changeset
|
648 MENU_OPTION tVSItext2, oVSItextv2, 0 |
|
508d7fb98b34
cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents:
335
diff
changeset
|
649 MENU_OPTION tVSIgraph, oVSIgraph, 0 |
| 448 | 650 MENU_OPTION tTimeoutDive, oDiveTimeout, 0 |
|
335
3d43da7acfe1
Always show ppO2 (warning position, standard color) option
janos_kovacs <kovjanos@gmail.com>
parents:
333
diff
changeset
|
651 MENU_CALL tExit, do_dispsets_menu_3stack |
| 0 | 652 MENU_END |
| 653 | |
| 50 | 654 extern oColorSetDive |
| 655 do_color_scheme: | |
| 656 bsf in_color_menu | |
| 657 MENU_BEGIN tColorScheme, .2 | |
| 658 MENU_OPTION tColorSetDive,oColorSetDive, 0 | |
| 659 MENU_CALL tExit, do_dispsets_menu_3stack | |
| 660 MENU_END | |
| 661 | |
| 662 | |
| 0 | 663 ;============================================================================= |
| 664 | |
| 665 global new_battery_menu | |
|
464
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
666 extern surfloop |
| 0 | 667 new_battery_menu: |
| 668 bsf enable_screen_dumps ; To prevent exiting into COMM mode immediately | |
| 669 call TFT_boot ; Initialize TFT (includes clear screen) | |
| 670 call TFT_Display_FadeIn ; Show splash | |
| 671 movlw .100 | |
| 672 movwf batt_percent ; make sure to reset batt_percent | |
|
464
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
673 |
| 0 | 674 ; Default (In cases of timeout or USB): Use old battery |
| 675 clrf EEADRH | |
| 676 read_int_eeprom 0x07 | |
| 677 movff EEDATA,battery_gauge+0 | |
| 678 read_int_eeprom 0x08 | |
| 679 movff EEDATA,battery_gauge+1 | |
| 680 read_int_eeprom 0x09 | |
| 681 movff EEDATA,battery_gauge+2 | |
| 682 read_int_eeprom 0x0A | |
| 683 movff EEDATA,battery_gauge+3 | |
| 684 read_int_eeprom 0x0B | |
| 685 movff EEDATA,battery_gauge+4 | |
| 686 read_int_eeprom 0x0C | |
| 687 movff EEDATA,battery_gauge+5 | |
| 688 | |
|
464
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
689 call menu_processor_reset ; restart from first icon. |
| 474 | 690 |
| 691 MENU_BEGIN tNewBattTitle, .1 | |
| 692 MENU_CALL tEnter, new_battery_menu2 | |
| 693 MENU_END | |
| 694 | |
| 695 new_battery_menu2: | |
|
464
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
696 ; hardware_flag: |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
697 ; 3: 0x0A or 0x13 (2016) |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
698 ; cR: 0x05 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
699 ; 2 with BLE: 0x11 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
700 ; Sport: 0x12 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
701 ; 3 with BLE: 0x1A |
| 76 | 702 |
|
464
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
703 movlw 0x0A |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
704 cpfseq hardware_flag |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
705 bra $+4 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
706 bra menu_new_battery_AA |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
707 movlw 0x13 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
708 cpfseq hardware_flag |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
709 bra $+4 |
| 474 | 710 bra menu_new_battery_AA_16650 |
|
464
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
711 movlw 0x12 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
712 cpfseq hardware_flag |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
713 bra $+4 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
714 bra menu_new_battery_AA |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
715 movlw 0x1A |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
716 cpfseq hardware_flag |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
717 bra $+4 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
718 bra menu_new_battery_AA |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
719 movlw 0x11 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
720 cpfseq hardware_flag |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
721 bra $+4 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
722 bra menu_new_battery_18650 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
723 movlw 0x05 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
724 cpfseq hardware_flag |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
725 bra $+4 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
726 bra menu_new_battery_18650 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
727 bra use_old_batteries ; any unsupported value |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
728 |
| 474 | 729 menu_new_battery_AA_16650: |
| 730 MENU_BEGIN tNewBattTitle, .5 | |
| 731 MENU_CALL tNewBattOld, use_old_batteries | |
| 732 MENU_CALL tNewBattNew36, use_new_36V_batteries | |
| 733 MENU_CALL tNewBattNew15, use_new_15V_batteries | |
| 734 MENU_CALL tNewBattAccu, use_36V_rechargeable | |
| 735 MENU_CALL tNew16650, use_16650_battery | |
| 736 MENU_END | |
| 737 | |
|
464
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
738 menu_new_battery_AA: |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
739 MENU_BEGIN tNewBattTitle, .4 |
| 448 | 740 MENU_CALL tNewBattOld, use_old_batteries |
| 0 | 741 MENU_CALL tNewBattNew36, use_new_36V_batteries |
| 742 MENU_CALL tNewBattNew15, use_new_15V_batteries | |
| 448 | 743 MENU_CALL tNewBattAccu, use_36V_rechargeable |
|
464
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
744 MENU_END |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
745 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
746 menu_new_battery_18650: |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
747 MENU_BEGIN tNewBattTitle, .2 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
748 MENU_CALL tNewBattOld, use_old_batteries |
| 448 | 749 MENU_CALL tNew18650, use_18650_battery |
| 0 | 750 MENU_END |
| 751 | |
|
464
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
752 |
| 457 | 753 global use_old_prior_209 |
| 754 use_old_prior_209: | |
| 755 clrf EEADRH | |
|
472
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
756 read_int_eeprom 0x0F ; =0:1.5V, =1:3,6V Saft, =2:LiIon 3,7V/0.8Ah, =3:LiIon 3,7V/3.1Ah, =4: LiIon 3,7V/2.3Ah |
| 457 | 757 incfsz EEDATA,F ; Was 0xFF? |
|
477
44b8a826b314
NEW: Show battery type in surface mode next to battery voltage
heinrichsweikamp
parents:
474
diff
changeset
|
758 return ; No, done. |
|
44b8a826b314
NEW: Show battery type in surface mode next to battery voltage
heinrichsweikamp
parents:
474
diff
changeset
|
759 |
| 457 | 760 call lt2942_get_status ; Check for gauge IC |
| 761 movlw .3 ; Assume a 18650 | |
| 762 btfss battery_gauge_available ; cR/2 hardware? | |
| 763 movlw .1 ; Assume a Saft | |
| 764 movwf EEDATA | |
| 765 write_int_eeprom 0x0F ; Store the new battery type into EEPROM | |
| 766 return | |
| 767 | |
| 0 | 768 global use_old_batteries |
| 769 use_old_batteries: | |
| 770 clrf EEADRH | |
| 771 read_int_eeprom 0x07 | |
| 772 movff EEDATA,battery_gauge+0 | |
| 773 read_int_eeprom 0x08 | |
| 774 movff EEDATA,battery_gauge+1 | |
| 775 read_int_eeprom 0x09 | |
| 776 movff EEDATA,battery_gauge+2 | |
| 777 read_int_eeprom 0x0A | |
| 778 movff EEDATA,battery_gauge+3 | |
| 779 read_int_eeprom 0x0B | |
| 780 movff EEDATA,battery_gauge+4 | |
| 781 read_int_eeprom 0x0C | |
| 782 movff EEDATA,battery_gauge+5 | |
| 448 | 783 read_int_eeprom 0x0F |
|
472
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
784 movff EEDATA,battery_type; =0:1.5V, =1:3,6V Saft, =2:LiIon 3,7V/0.8Ah, =3:LiIon 3,7V/3.1Ah, =4: LiIon 3,7V/2.3Ah |
| 448 | 785 |
| 450 | 786 rcall setup_new_saft ; Any other value |
|
477
44b8a826b314
NEW: Show battery type in surface mode next to battery voltage
heinrichsweikamp
parents:
474
diff
changeset
|
787 incf EEDATA,F ; 1 ... 5 |
| 450 | 788 dcfsnz EEDATA,F |
| 448 | 789 rcall setup_new_15v ;=0 |
| 450 | 790 dcfsnz EEDATA,F |
| 448 | 791 rcall setup_new_saft ;=1 |
| 450 | 792 dcfsnz EEDATA,F |
| 448 | 793 rcall setup_new_panasonic ;=2 |
|
477
44b8a826b314
NEW: Show battery type in surface mode next to battery voltage
heinrichsweikamp
parents:
474
diff
changeset
|
794 dcfsnz EEDATA,F |
| 448 | 795 rcall setup_new_18650 ;=3 |
|
477
44b8a826b314
NEW: Show battery type in surface mode next to battery voltage
heinrichsweikamp
parents:
474
diff
changeset
|
796 dcfsnz EEDATA,F |
|
472
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
797 rcall setup_new_16650 ;=4 |
|
464
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
798 |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
799 bcf use_old_batt_flag ; clear flag |
|
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
800 goto surfloop ; Jump to Surfaceloop! |
| 0 | 801 |
|
472
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
802 setup_new_15v: |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
803 bsf charge_disable |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
804 bcf TRISE,2 |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
805 movlw .100 |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
806 movwf batt_percent ; To have 1,5V batteries right after firmware update |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
807 movlw .0 |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
808 movff WREG,battery_type |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
809 return |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
810 |
| 448 | 811 setup_new_saft: |
| 812 banksel battery_capacity | |
| 813 movlw LOW internal_saft_capacity | |
| 814 movwf internal_battery_capacity+0 | |
| 815 movlw HIGH internal_saft_capacity | |
| 816 movwf internal_battery_capacity+1 | |
| 817 movlw LOW saft_capacity | |
| 818 movwf battery_capacity+0 | |
| 819 movlw HIGH saft_capacity | |
| 820 movwf battery_capacity+1 | |
| 821 movlw LOW saft_offset | |
| 822 movwf battery_offset+0 | |
| 823 movlw HIGH saft_offset | |
| 824 movwf battery_offset+1 | |
| 825 banksel common | |
| 826 bsf charge_disable | |
| 827 bcf TRISE,2 | |
| 828 movlw .1 | |
| 829 movff WREG,battery_type | |
| 830 return | |
| 831 | |
|
472
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
832 setup_new_panasonic: |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
833 banksel battery_capacity |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
834 movlw LOW internal_panasonic_capacity |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
835 movwf internal_battery_capacity+0 |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
836 movlw HIGH internal_panasonic_capacity |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
837 movwf internal_battery_capacity+1 |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
838 movlw LOW panasonic_capacity |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
839 movwf battery_capacity+0 |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
840 movlw HIGH panasonic_capacity |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
841 movwf battery_capacity+1 |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
842 movlw LOW panasonic_offset |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
843 movwf battery_offset+0 |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
844 movlw HIGH panasonic_offset |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
845 movwf battery_offset+1 |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
846 banksel common |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
847 bcf charge_disable |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
848 bsf TRISE,2 |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
849 movlw .2 |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
850 movff WREG,battery_type |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
851 return |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
852 |
| 448 | 853 setup_new_18650: |
| 854 banksel battery_capacity | |
| 855 clrf internal_battery_capacity+0 | |
| 856 clrf internal_battery_capacity+1 | |
| 857 movlw LOW ncr18650_capacity | |
| 858 movwf battery_capacity+0 | |
| 859 movlw HIGH ncr18650_capacity | |
| 860 movwf battery_capacity+1 | |
| 861 movlw LOW ncr18650_offset | |
| 862 movwf battery_offset+0 | |
| 863 movlw HIGH ncr18650_offset | |
| 864 movwf battery_offset+1 | |
| 865 banksel common | |
| 866 bcf charge_disable | |
| 867 bsf TRISE,2 | |
| 868 movlw .3 | |
| 869 movff WREG,battery_type | |
| 870 return | |
|
472
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
871 |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
872 setup_new_16650: |
| 448 | 873 banksel battery_capacity |
|
472
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
874 clrf internal_battery_capacity+0 |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
875 clrf internal_battery_capacity+1 |
|
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
876 movlw LOW ur16650_capacity |
| 448 | 877 movwf battery_capacity+0 |
|
472
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
878 movlw HIGH ur16650_capacity |
| 448 | 879 movwf battery_capacity+1 |
|
472
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
880 movlw LOW ur16650_offset |
| 448 | 881 movwf battery_offset+0 |
|
472
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
882 movlw HIGH ur16650_offset |
| 448 | 883 movwf battery_offset+1 |
| 884 banksel common | |
| 885 bcf charge_disable | |
| 886 bsf TRISE,2 | |
|
472
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
887 movlw .4 |
| 448 | 888 movff WREG,battery_type |
| 889 return | |
|
472
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
470
diff
changeset
|
890 |
| 474 | 891 use_16650_battery: |
| 892 rcall setup_new_16650 | |
| 893 bra use_new_36V_2 | |
| 448 | 894 use_18650_battery: |
| 895 rcall setup_new_18650 | |
| 896 bra use_new_36V_2 | |
| 0 | 897 use_new_36V_batteries: |
| 448 | 898 rcall setup_new_saft |
| 899 bra use_new_36V_2 | |
| 900 use_new_15V_batteries: | |
| 901 rcall setup_new_15v | |
| 902 use_new_36V_2: | |
| 0 | 903 call reset_battery_pointer ; Resets battery pointer 0x07-0x0C and battery_gauge:5 |
|
464
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
904 goto surfloop ; Jump to Surfaceloop! |
| 448 | 905 use_36V_rechargeable: |
| 906 rcall setup_new_panasonic | |
| 907 call reset_battery_internal_only | |
|
464
0491a84fd0b8
CHANGE: Easier to understand "New Battery" menu (OSTC model dependent)
heinrichsweikamp
parents:
457
diff
changeset
|
908 goto surfloop ; Jump to Surfaceloop! |
| 0 | 909 |
| 910 END |