Mercurial > public > hwos_code

annotate src/menu_tree.asm @ 63:5c4d4a42e7a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
allow logbook erase from reset menu
author heinrichsweikamp
date Thu, 19 Dec 2013 22:12:29 +0100
parents ec4d8503ec45
children 40a5cc0664ed
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
heinrichsweikamp
parents:
diff changeset
1 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2 ;
heinrichsweikamp
parents:
diff changeset
3 ; File menu_tree.asm
heinrichsweikamp
parents:
diff changeset
4 ;
heinrichsweikamp
parents:
diff changeset
5 ; OSTC3 menus
heinrichsweikamp
parents:
diff changeset
6 ;
heinrichsweikamp
parents:
diff changeset
7 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved.
heinrichsweikamp
parents:
diff changeset
8 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
9 ; HISTORY
heinrichsweikamp
parents:
diff changeset
10 ; 2011-07-11 : [jDG] Creation.
heinrichsweikamp
parents:
diff changeset
11
heinrichsweikamp
parents:
diff changeset
12 #include "ostc3.inc" ; Mandatory header
heinrichsweikamp
parents:
diff changeset
13 #include "gaslist.inc"
heinrichsweikamp
parents:
diff changeset
14 #include "menu_processor.inc"
heinrichsweikamp
parents:
diff changeset
15 #include "start.inc"
heinrichsweikamp
parents:
diff changeset
16 #include "comm.inc"
heinrichsweikamp
parents:
diff changeset
17 #include "logbook.inc"
heinrichsweikamp
parents:
diff changeset
18 #include "tft.inc"
heinrichsweikamp
parents:
diff changeset
19 #include "eeprom_rs232.inc"
heinrichsweikamp
parents:
diff changeset
20 #include "external_flash.inc"
heinrichsweikamp
parents:
diff changeset
21 #include "shared_definitions.h" ; Mailbox from/to p2_deco.c
heinrichsweikamp
parents:
diff changeset
22 #include "isr.inc"
heinrichsweikamp
parents:
diff changeset
23 #include "ghostwriter.inc"
heinrichsweikamp
parents:
diff changeset
24 #include "adc_lightsensor.inc"
heinrichsweikamp
parents:
diff changeset
25
heinrichsweikamp
parents:
diff changeset
26 gui CODE
heinrichsweikamp
parents:
diff changeset
27 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
28 ; Main Menu
heinrichsweikamp
parents:
diff changeset
29 global do_main_menu
heinrichsweikamp
parents:
diff changeset
30 do_main_menu:
39
e4e91fe8b09d remember last customview in dive and surface mode
mh@mh-THINK.fritz.box
parents: 23
diff changeset
31 movff menupos3,customview_surfmode; save last customview
0
heinrichsweikamp
parents:
diff changeset
32 bcf sleepmode ; for timeout
heinrichsweikamp
parents:
diff changeset
33 call menu_processor_reset ; restart from first icon.
heinrichsweikamp
parents:
diff changeset
34
heinrichsweikamp
parents:
diff changeset
35 do_continue_main_menu:
heinrichsweikamp
parents:
diff changeset
36 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
37 call menu_processor_pop ; back to last icon.
heinrichsweikamp
parents:
diff changeset
38
heinrichsweikamp
parents:
diff changeset
39 extern do_demo_divemode, restart
heinrichsweikamp
parents:
diff changeset
40 MENU_BEGIN tMainMenu, .7
heinrichsweikamp
parents:
diff changeset
41 MENU_CALL tLogbook, logbook
heinrichsweikamp
parents:
diff changeset
42 MENU_CALL tGasSetup, do_gas_menu
heinrichsweikamp
parents:
diff changeset
43 MENU_CALL tCCRSetup, do_ccr_menu
heinrichsweikamp
parents:
diff changeset
44 MENU_CALL tPlan, do_planner_menu_reset
heinrichsweikamp
parents:
diff changeset
45 MENU_CALL tDiveModeMenu, do_divemode_menu
heinrichsweikamp
parents:
diff changeset
46 MENU_CALL tSystSets, do_settings_menu
heinrichsweikamp
parents:
diff changeset
47 MENU_CALL tExit, restart
heinrichsweikamp
parents:
diff changeset
48 MENU_END
heinrichsweikamp
parents:
diff changeset
49
heinrichsweikamp
parents:
diff changeset
50 do_info_menu:
heinrichsweikamp
parents:
diff changeset
51 MENU_BEGIN tInfoMenu, .4
heinrichsweikamp
parents:
diff changeset
52 MENU_DYNAMIC info_menu_serial, 0
heinrichsweikamp
parents:
diff changeset
53 MENU_DYNAMIC info_menu_firmware, 0
heinrichsweikamp
parents:
diff changeset
54 MENU_DYNAMIC info_menu_total_dives, 0
heinrichsweikamp
parents:
diff changeset
55 MENU_CALL tExit, do_return_settings
heinrichsweikamp
parents:
diff changeset
56 MENU_END
heinrichsweikamp
parents:
diff changeset
57
heinrichsweikamp
parents:
diff changeset
58 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
59 ; CCR Setup
heinrichsweikamp
parents:
diff changeset
60
heinrichsweikamp
parents:
diff changeset
61 return_ccr_menu:
heinrichsweikamp
parents:
diff changeset
62 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
63 call menu_processor_pop ; back to last gas.
heinrichsweikamp
parents:
diff changeset
64
heinrichsweikamp
parents:
diff changeset
65 do_ccr_menu:
heinrichsweikamp
parents:
diff changeset
66 bcf menu_show_sensors ; Set flag
heinrichsweikamp
parents:
diff changeset
67 MENU_BEGIN tCCRSetup, .5
heinrichsweikamp
parents:
diff changeset
68 MENU_OPTION tCCRMode, oCCRMode, 0
heinrichsweikamp
parents:
diff changeset
69 MENU_CALL tCCRSensor, do_ccr_sensor
heinrichsweikamp
parents:
diff changeset
70 MENU_CALL tDiluentSetup, do_diluent_setup
heinrichsweikamp
parents:
diff changeset
71 MENU_CALL tFixedSetpoints, do_fixed_setpoints
heinrichsweikamp
parents:
diff changeset
72 MENU_CALL tExit, do_continue_main_menu
heinrichsweikamp
parents:
diff changeset
73 MENU_END
heinrichsweikamp
parents:
diff changeset
74
heinrichsweikamp
parents:
diff changeset
75 do_ccr_sensor:
heinrichsweikamp
parents:
diff changeset
76 call enable_ir ; Enable IR-Port
heinrichsweikamp
parents:
diff changeset
77 bsf menu_show_sensors ; Set flag
heinrichsweikamp
parents:
diff changeset
78 MENU_BEGIN tCCRSensor, .4
heinrichsweikamp
parents:
diff changeset
79 MENU_CALL tDiveHudMask1, 0
heinrichsweikamp
parents:
diff changeset
80 MENU_CALL tDiveHudMask2, 0
heinrichsweikamp
parents:
diff changeset
81 MENU_CALL tDiveHudMask3, 0
heinrichsweikamp
parents:
diff changeset
82 MENU_CALL tExit, return_ccr_menu
heinrichsweikamp
parents:
diff changeset
83 MENU_END
heinrichsweikamp
parents:
diff changeset
84
heinrichsweikamp
parents:
diff changeset
85 do_diluent_setup:
heinrichsweikamp
parents:
diff changeset
86 bsf ccr_diluent_setup ; =1: Setting up Diluents ("Gas6-10")
heinrichsweikamp
parents:
diff changeset
87 call gaslist_cleanup_list ; Takes care that only one gas can be first and first has 0m change depth
heinrichsweikamp
parents:
diff changeset
88 MENU_BEGIN tDiluentSetup, .6
heinrichsweikamp
parents:
diff changeset
89 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
90 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
91 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
92 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
93 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
94 MENU_CALL tExit, return_ccr_menu
heinrichsweikamp
parents:
diff changeset
95 MENU_END
heinrichsweikamp
parents:
diff changeset
96
heinrichsweikamp
parents:
diff changeset
97 do_return_fixed_setpoints:
heinrichsweikamp
parents:
diff changeset
98 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
99 call menu_processor_pop ; back to last gas.
heinrichsweikamp
parents:
diff changeset
100
heinrichsweikamp
parents:
diff changeset
101 do_fixed_setpoints:
heinrichsweikamp
parents:
diff changeset
102 MENU_BEGIN tFixedSetpoints, .6
heinrichsweikamp
parents:
diff changeset
103 MENU_DYNAMIC gaslist_strcat_setpoint, do_edit_sp_menu
heinrichsweikamp
parents:
diff changeset
104 MENU_DYNAMIC gaslist_strcat_setpoint, do_edit_sp_menu
heinrichsweikamp
parents:
diff changeset
105 MENU_DYNAMIC gaslist_strcat_setpoint, do_edit_sp_menu
heinrichsweikamp
parents:
diff changeset
106 MENU_DYNAMIC gaslist_strcat_setpoint, do_edit_sp_menu
heinrichsweikamp
parents:
diff changeset
107 MENU_DYNAMIC gaslist_strcat_setpoint, do_edit_sp_menu
heinrichsweikamp
parents:
diff changeset
108 MENU_CALL tExit, return_ccr_menu
heinrichsweikamp
parents:
diff changeset
109 MENU_END
heinrichsweikamp
parents:
diff changeset
110
heinrichsweikamp
parents:
diff changeset
111 do_edit_sp_menu:
heinrichsweikamp
parents:
diff changeset
112 call gaslist_setSP ; Save current item.
heinrichsweikamp
parents:
diff changeset
113 MENU_BEGIN tFixedSetpoints, .5
heinrichsweikamp
parents:
diff changeset
114 MENU_DYNAMIC gaslist_strcat_setpoint_0,0
heinrichsweikamp
parents:
diff changeset
115 MENU_CALL tSPPlus, gaslist_spplus
heinrichsweikamp
parents:
diff changeset
116 MENU_CALL tDepthPlus, gaslist_spdepthplus
heinrichsweikamp
parents:
diff changeset
117 MENU_CALL tDepthMinus, gaslist_spdepthminus
heinrichsweikamp
parents:
diff changeset
118 MENU_CALL tExit, do_return_fixed_setpoints
heinrichsweikamp
parents:
diff changeset
119 MENU_END
heinrichsweikamp
parents:
diff changeset
120
heinrichsweikamp
parents:
diff changeset
121 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
122 ; OC Gas Setup
heinrichsweikamp
parents:
diff changeset
123
heinrichsweikamp
parents:
diff changeset
124 return_gas_menu:
heinrichsweikamp
parents:
diff changeset
125 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
126 call menu_processor_pop ; back to last gas.
heinrichsweikamp
parents:
diff changeset
127
heinrichsweikamp
parents:
diff changeset
128 btfsc ccr_diluent_setup ; Return to CCR-Menu?
heinrichsweikamp
parents:
diff changeset
129 bra do_diluent_setup ; Yes.
heinrichsweikamp
parents:
diff changeset
130 do_gas_menu:
heinrichsweikamp
parents:
diff changeset
131 bcf ccr_diluent_setup ; =1: Setting up Diluents ("Gas6-10")
heinrichsweikamp
parents:
diff changeset
132 call gaslist_cleanup_list ; Takes care that only one gas can be first and first has 0m change depth
heinrichsweikamp
parents:
diff changeset
133 MENU_BEGIN tGaslist, .6
heinrichsweikamp
parents:
diff changeset
134 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
135 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
136 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
137 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
138 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
139 MENU_CALL tExit, do_continue_main_menu
heinrichsweikamp
parents:
diff changeset
140 MENU_END
heinrichsweikamp
parents:
diff changeset
141
heinrichsweikamp
parents:
diff changeset
142 return_gas_depth:
heinrichsweikamp
parents:
diff changeset
143 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
144 call menu_processor_pop ; back to last gas.
heinrichsweikamp
parents:
diff changeset
145 bra do_edit_gas_menu_1
heinrichsweikamp
parents:
diff changeset
146
heinrichsweikamp
parents:
diff changeset
147 do_edit_gas_menu:
heinrichsweikamp
parents:
diff changeset
148 call gaslist_setgas ; Save current item.
heinrichsweikamp
parents:
diff changeset
149 do_edit_gas_menu_1: ; Keep current gas.
heinrichsweikamp
parents:
diff changeset
150 MENU_BEGIN tGasEdit, .6
heinrichsweikamp
parents:
diff changeset
151 MENU_DYNAMIC gaslist_gastitle, 0
heinrichsweikamp
parents:
diff changeset
152 MENU_DYNAMIC gaslist_MOD_END, 0
heinrichsweikamp
parents:
diff changeset
153 MENU_DYNAMIC gaslist_show_type, gaslist_toggle_type
heinrichsweikamp
parents:
diff changeset
154 MENU_CALL tSetup_mix, do_setup_mix
heinrichsweikamp
parents:
diff changeset
155 MENU_CALL tGasDepth, do_gas_depth_menu
heinrichsweikamp
parents:
diff changeset
156 MENU_CALL tExit, return_gas_menu
heinrichsweikamp
parents:
diff changeset
157 MENU_END
heinrichsweikamp
parents:
diff changeset
158
heinrichsweikamp
parents:
diff changeset
159 do_setup_mix:
heinrichsweikamp
parents:
diff changeset
160 MENU_BEGIN tGasEdit, .7
heinrichsweikamp
parents:
diff changeset
161 MENU_DYNAMIC gaslist_gastitle, 0
heinrichsweikamp
parents:
diff changeset
162 MENU_DYNAMIC gaslist_MOD_END, 0
heinrichsweikamp
parents:
diff changeset
163 MENU_CALL tO2Plus, gaslist_pO2
heinrichsweikamp
parents:
diff changeset
164 MENU_CALL tO2Minus, gaslist_mO2
heinrichsweikamp
parents:
diff changeset
165 MENU_CALL tHePlus, gaslist_pHe
heinrichsweikamp
parents:
diff changeset
166 MENU_CALL tHeMinus, gaslist_mHe
heinrichsweikamp
parents:
diff changeset
167 MENU_CALL tExit, return_gas_depth
heinrichsweikamp
parents:
diff changeset
168 MENU_END
heinrichsweikamp
parents:
diff changeset
169
heinrichsweikamp
parents:
diff changeset
170 global do_gas_depth_menu
heinrichsweikamp
parents:
diff changeset
171 do_gas_depth_menu:
heinrichsweikamp
parents:
diff changeset
172 MENU_BEGIN tGasEdit, .6
heinrichsweikamp
parents:
diff changeset
173 MENU_DYNAMIC gaslist_gastitle, 0
heinrichsweikamp
parents:
diff changeset
174 MENU_DYNAMIC gaslist_MOD_END, 0
heinrichsweikamp
parents:
diff changeset
175 MENU_CALL tDepthPlus, gaslist_pDepth
heinrichsweikamp
parents:
diff changeset
176 MENU_CALL tDepthMinus, gaslist_mDepth
heinrichsweikamp
parents:
diff changeset
177 MENU_DYNAMIC gaslist_reset_mod_title,gaslist_reset_mod
heinrichsweikamp
parents:
diff changeset
178 MENU_CALL tExit, return_gas_depth
heinrichsweikamp
parents:
diff changeset
179 MENU_END
heinrichsweikamp
parents:
diff changeset
180
heinrichsweikamp
parents:
diff changeset
181 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
182 ; Simulator menus
heinrichsweikamp
parents:
diff changeset
183
heinrichsweikamp
parents:
diff changeset
184 global do_planner_menu
heinrichsweikamp
parents:
diff changeset
185
heinrichsweikamp
parents:
diff changeset
186 do_planner_menu_reset:
heinrichsweikamp
parents:
diff changeset
187 extern option_save_all
heinrichsweikamp
parents:
diff changeset
188 call option_save_all
heinrichsweikamp
parents:
diff changeset
189 ;---- Reset dive time/depth to default values
heinrichsweikamp
parents:
diff changeset
190 extern option_reset
heinrichsweikamp
parents:
diff changeset
191 lfsr FSR0,odiveInterval
heinrichsweikamp
parents:
diff changeset
192 call option_reset
heinrichsweikamp
parents:
diff changeset
193 lfsr FSR0,obottomTime
heinrichsweikamp
parents:
diff changeset
194 call option_reset
heinrichsweikamp
parents:
diff changeset
195 lfsr FSR0,obottomDepth
heinrichsweikamp
parents:
diff changeset
196 call option_reset
heinrichsweikamp
parents:
diff changeset
197
heinrichsweikamp
parents:
diff changeset
198 do_planner_menu:
heinrichsweikamp
parents:
diff changeset
199 extern do_demo_planner
heinrichsweikamp
parents:
diff changeset
200 MENU_BEGIN tPlan, .6
heinrichsweikamp
parents:
diff changeset
201 MENU_CALL tInter, do_demo_divemode
heinrichsweikamp
parents:
diff changeset
202 MENU_OPTION tIntvl, odiveInterval, 0
heinrichsweikamp
parents:
diff changeset
203 MENU_OPTION tBtTm, obottomTime, 0
heinrichsweikamp
parents:
diff changeset
204 MENU_OPTION tMxDep, obottomDepth, 0
heinrichsweikamp
parents:
diff changeset
205 MENU_CALL tDeco, do_demo_planner
heinrichsweikamp
parents:
diff changeset
206 MENU_CALL tExit, do_continue_main_menu
heinrichsweikamp
parents:
diff changeset
207 MENU_END
heinrichsweikamp
parents:
diff changeset
208
heinrichsweikamp
parents:
diff changeset
209 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
210 ; Divemode menu
heinrichsweikamp
parents:
diff changeset
211
heinrichsweikamp
parents:
diff changeset
212 do_return_divemode_menu:
heinrichsweikamp
parents:
diff changeset
213 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
214 call menu_processor_pop ; back to last gas.
heinrichsweikamp
parents:
diff changeset
215
heinrichsweikamp
parents:
diff changeset
216 do_divemode_menu:
heinrichsweikamp
parents:
diff changeset
217 MENU_BEGIN tDiveModeMenu, .7
heinrichsweikamp
parents:
diff changeset
218 MENU_OPTION tDvMode, oDiveMode, 0
heinrichsweikamp
parents:
diff changeset
219 MENU_OPTION tDkMode, oDecoMode, 0
heinrichsweikamp
parents:
diff changeset
220 MENU_DYNAMIC divesets_ppo2_max, do_toggle_ppo2_max
heinrichsweikamp
parents:
diff changeset
221 MENU_DYNAMIC divesets_ppo2_min, do_toggle_ppo2_min
heinrichsweikamp
parents:
diff changeset
222 MENU_OPTION tFTTSMenu, oExtraTime,0
heinrichsweikamp
parents:
diff changeset
223 MENU_CALL tDecoparameters, do_decoparameters_menu
heinrichsweikamp
parents:
diff changeset
224 MENU_CALL tExit, do_continue_main_menu
heinrichsweikamp
parents:
diff changeset
225 MENU_END
heinrichsweikamp
parents:
diff changeset
226
heinrichsweikamp
parents:
diff changeset
227 do_return_decoparameters_menu:
heinrichsweikamp
parents:
diff changeset
228 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
229 call menu_processor_pop ; back to setting
heinrichsweikamp
parents:
diff changeset
230 do_decoparameters_menu:
heinrichsweikamp
parents:
diff changeset
231 MENU_BEGIN tDecoparameters, .7
heinrichsweikamp
parents:
diff changeset
232 MENU_OPTION tGF_low, oGF_low, 0
heinrichsweikamp
parents:
diff changeset
233 MENU_OPTION tGF_high, oGF_high, 0
heinrichsweikamp
parents:
diff changeset
234 MENU_CALL taGFMenu, do_aGF_menu
heinrichsweikamp
parents:
diff changeset
235 MENU_OPTION tSaturationMult,osatmult, 0
heinrichsweikamp
parents:
diff changeset
236 MENU_OPTION tDesaturationMult,odesatmult,0
heinrichsweikamp
parents:
diff changeset
237 MENU_OPTION tLastDecostop,oLastDeco, 0
heinrichsweikamp
parents:
diff changeset
238 MENU_CALL tExit, do_return_divemode_menu
heinrichsweikamp
parents:
diff changeset
239 MENU_END
heinrichsweikamp
parents:
diff changeset
240
heinrichsweikamp
parents:
diff changeset
241 do_aGF_menu:
heinrichsweikamp
parents:
diff changeset
242 MENU_BEGIN taGFMenu, .4
heinrichsweikamp
parents:
diff changeset
243 MENU_OPTION taGF_enable,oEnable_aGF, 0
heinrichsweikamp
parents:
diff changeset
244 MENU_OPTION taGF_low, oaGF_low, 0
heinrichsweikamp
parents:
diff changeset
245 MENU_OPTION taGF_high, oaGF_high, 0
heinrichsweikamp
parents:
diff changeset
246 MENU_CALL tExit, do_return_decoparameters_menu
heinrichsweikamp
parents:
diff changeset
247 MENU_END
heinrichsweikamp
parents:
diff changeset
248 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
249 ; Setup Menu
heinrichsweikamp
parents:
diff changeset
250
heinrichsweikamp
parents:
diff changeset
251 do_return_settings:
heinrichsweikamp
parents:
diff changeset
252 bcf settime_setdate ; Clear flag
heinrichsweikamp
parents:
diff changeset
253 call menu_processor_pop ; Drop exit entry
heinrichsweikamp
parents:
diff changeset
254 call menu_processor_pop ; Pop return line.
heinrichsweikamp
parents:
diff changeset
255
heinrichsweikamp
parents:
diff changeset
256 extern compass_calibration_loop
heinrichsweikamp
parents:
diff changeset
257 do_settings_menu:
heinrichsweikamp
parents:
diff changeset
258 MENU_BEGIN tSystSets, .7
heinrichsweikamp
parents:
diff changeset
259 MENU_CALL tInfoMenu, do_info_menu
heinrichsweikamp
parents:
diff changeset
260 MENU_CALL tSetTimeDate, do_date_time_menu
heinrichsweikamp
parents:
diff changeset
261 MENU_CALL tDispSets, do_dispsets_menu
heinrichsweikamp
parents:
diff changeset
262 MENU_OPTION tLanguage, oLanguage, 0
18
4e3f133dfbf4 add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents: 0
diff changeset
263 MENU_CALL tCompassMenu, do_compass_menu
0
heinrichsweikamp
parents:
diff changeset
264 MENU_CALL tResetMenu, do_reset_menu
heinrichsweikamp
parents:
diff changeset
265 MENU_CALL tExit, do_continue_main_menu
heinrichsweikamp
parents:
diff changeset
266 MENU_END
heinrichsweikamp
parents:
diff changeset
267
18
4e3f133dfbf4 add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents: 0
diff changeset
268 do_compass_menu:
4e3f133dfbf4 add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents: 0
diff changeset
269 MENU_BEGIN tSystSets, .3
4e3f133dfbf4 add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents: 0
diff changeset
270 MENU_CALL tCompassMenu, compass_calibration_loop
4e3f133dfbf4 add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents: 0
diff changeset
271 MENU_OPTION tCompassGain, oCompassGain, 0
4e3f133dfbf4 add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents: 0
diff changeset
272 MENU_CALL tExit, do_return_settings
4e3f133dfbf4 add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents: 0
diff changeset
273 MENU_END
4e3f133dfbf4 add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents: 0
diff changeset
274
0
heinrichsweikamp
parents:
diff changeset
275 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
276 ; Reset and confirmation menu.
heinrichsweikamp
parents:
diff changeset
277
heinrichsweikamp
parents:
diff changeset
278 do_reset_menu:
63
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
279 MENU_BEGIN tResetMenu, .6
0
heinrichsweikamp
parents:
diff changeset
280 MENU_CALL tExit, do_return_settings
heinrichsweikamp
parents:
diff changeset
281 MENU_CALL tReboot, do_reset_menu2 ; Confirm
heinrichsweikamp
parents:
diff changeset
282 MENU_CALL tResetDeco, do_reset_menu3 ; Confirm
heinrichsweikamp
parents:
diff changeset
283 MENU_CALL tResetSettings, do_reset_menu4 ; Confirm
63
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
284 MENU_CALL tResetLogbook, do_reset_menu5 ; Confirm
0
heinrichsweikamp
parents:
diff changeset
285 MENU_CALL tResetBattery, new_battery_menu ; New Battery submenu
heinrichsweikamp
parents:
diff changeset
286 MENU_END
heinrichsweikamp
parents:
diff changeset
287
heinrichsweikamp
parents:
diff changeset
288 do_reset_menu2:
heinrichsweikamp
parents:
diff changeset
289 MENU_BEGIN tResetMenu2, .2
heinrichsweikamp
parents:
diff changeset
290 MENU_CALL tAbort, do_continue_menu_3stack
heinrichsweikamp
parents:
diff changeset
291 MENU_CALL tReboot, do_reboot ; Reboot
heinrichsweikamp
parents:
diff changeset
292 MENU_END
heinrichsweikamp
parents:
diff changeset
293
heinrichsweikamp
parents:
diff changeset
294 do_reset_menu3:
heinrichsweikamp
parents:
diff changeset
295 MENU_BEGIN tResetMenu2, .2
heinrichsweikamp
parents:
diff changeset
296 MENU_CALL tAbort, do_continue_menu_3stack
heinrichsweikamp
parents:
diff changeset
297 MENU_CALL tResetDeco, do_reset_deco ; Reset Deco
heinrichsweikamp
parents:
diff changeset
298 MENU_END
heinrichsweikamp
parents:
diff changeset
299
heinrichsweikamp
parents:
diff changeset
300 do_reset_menu4:
heinrichsweikamp
parents:
diff changeset
301 MENU_BEGIN tResetMenu2, .2
heinrichsweikamp
parents:
diff changeset
302 MENU_CALL tAbort, do_continue_menu_3stack
heinrichsweikamp
parents:
diff changeset
303 MENU_CALL tResetSettings, do_reset_settings ; Reset all settings
heinrichsweikamp
parents:
diff changeset
304 MENU_END
heinrichsweikamp
parents:
diff changeset
305
63
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
306 do_reset_menu5:
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
307 MENU_BEGIN tResetMenu2, .2
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
308 MENU_CALL tAbort, do_continue_menu_3stack
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
309 MENU_CALL tResetLogbook, do_reset_logbook ; Reset logbook
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
310 MENU_END
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
311
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
312 do_reset_logbook:
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
313 clrf EEADRH ; Make sure to select eeprom bank 0
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
314 clrf EEDATA
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
315 write_int_eeprom .4
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
316 write_int_eeprom .5
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
317 write_int_eeprom .6 ; Reset logbook pointers
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
318 call ext_flash_erase_logbook ; And complete logbook (!)
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
319 goto do_continue_main_menu ; back to menu
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
320
0
heinrichsweikamp
parents:
diff changeset
321
heinrichsweikamp
parents:
diff changeset
322 do_reset_deco:
heinrichsweikamp
parents:
diff changeset
323 movlw d'79' ; 79% N2
heinrichsweikamp
parents:
diff changeset
324 movff WREG,char_I_N2_ratio
heinrichsweikamp
parents:
diff changeset
325 movlw d'0'
heinrichsweikamp
parents:
diff changeset
326 movff WREG,char_I_step_is_1min ; 2 second deco mode
heinrichsweikamp
parents:
diff changeset
327 SAFE_2BYTE_COPY amb_pressure,int_I_pres_respiration ; copy for deco routine
heinrichsweikamp
parents:
diff changeset
328 movff int_I_pres_respiration+0,int_I_pres_surface+0 ; copy for desat routine
heinrichsweikamp
parents:
diff changeset
329 movff int_I_pres_respiration+1,int_I_pres_surface+1
heinrichsweikamp
parents:
diff changeset
330
heinrichsweikamp
parents:
diff changeset
331 extern deco_reset
heinrichsweikamp
parents:
diff changeset
332 call deco_reset
heinrichsweikamp
parents:
diff changeset
333 call deco_calc_desaturation_time ; calculate desaturation time
heinrichsweikamp
parents:
diff changeset
334 banksel common
heinrichsweikamp
parents:
diff changeset
335 call deco_calc_wo_deco_step_1_min ; calculate deco in surface mode
heinrichsweikamp
parents:
diff changeset
336 banksel common
heinrichsweikamp
parents:
diff changeset
337 clrf nofly_time+0 ; Reset NoFly
heinrichsweikamp
parents:
diff changeset
338 clrf nofly_time+1
heinrichsweikamp
parents:
diff changeset
339 clrf desaturation_time+0 ; Reset Desat
heinrichsweikamp
parents:
diff changeset
340 clrf desaturation_time+1
heinrichsweikamp
parents:
diff changeset
341 goto do_return_settings ; back to menu
heinrichsweikamp
parents:
diff changeset
342
heinrichsweikamp
parents:
diff changeset
343 do_reset_settings:
heinrichsweikamp
parents:
diff changeset
344 extern option_reset_all
heinrichsweikamp
parents:
diff changeset
345 call option_reset_all ; Reset all options to factory default.
heinrichsweikamp
parents:
diff changeset
346 goto do_continue_main_menu ; back to menu
heinrichsweikamp
parents:
diff changeset
347
heinrichsweikamp
parents:
diff changeset
348 do_continue_menu_3stack: ; Return three levels deep
heinrichsweikamp
parents:
diff changeset
349 call menu_processor_pop
heinrichsweikamp
parents:
diff changeset
350 goto do_return_settings
heinrichsweikamp
parents:
diff changeset
351
heinrichsweikamp
parents:
diff changeset
352 do_reboot:
heinrichsweikamp
parents:
diff changeset
353 call ext_flash_enable_protection ; Enables write protection
heinrichsweikamp
parents:
diff changeset
354 reset
heinrichsweikamp
parents:
diff changeset
355
heinrichsweikamp
parents:
diff changeset
356
heinrichsweikamp
parents:
diff changeset
357 do_date_time_menu:
heinrichsweikamp
parents:
diff changeset
358 MENU_BEGIN tSetTimeDate, .4
heinrichsweikamp
parents:
diff changeset
359 MENU_CALL tSetTime, do_time_menu
heinrichsweikamp
parents:
diff changeset
360 MENU_CALL tSetDate, do_date_menu
heinrichsweikamp
parents:
diff changeset
361 MENU_OPTION tDateFormat,oDateFormat, 0
heinrichsweikamp
parents:
diff changeset
362 MENU_CALL tExit, do_return_settings
heinrichsweikamp
parents:
diff changeset
363 MENU_END
heinrichsweikamp
parents:
diff changeset
364
heinrichsweikamp
parents:
diff changeset
365 do_date_menu:
heinrichsweikamp
parents:
diff changeset
366 bsf settime_setdate
heinrichsweikamp
parents:
diff changeset
367 MENU_BEGIN tSetDate, .4
heinrichsweikamp
parents:
diff changeset
368 MENU_OPTION tSetDay, oSetDay, 0
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
369 MENU_OPTION tSetMonth, oSetMonth, 0
0
heinrichsweikamp
parents:
diff changeset
370 MENU_OPTION tSetYear, oSetYear, 0
heinrichsweikamp
parents:
diff changeset
371 MENU_CALL tExit, do_continue_menu_3stack
heinrichsweikamp
parents:
diff changeset
372 MENU_END
heinrichsweikamp
parents:
diff changeset
373
heinrichsweikamp
parents:
diff changeset
374
heinrichsweikamp
parents:
diff changeset
375 do_reset_seconds:
heinrichsweikamp
parents:
diff changeset
376 clrf secs
heinrichsweikamp
parents:
diff changeset
377 extern rtc_set_rtc
heinrichsweikamp
parents:
diff changeset
378 call rtc_set_rtc ; writes mins,sec,hours,day,month and year to rtc module
heinrichsweikamp
parents:
diff changeset
379 do_time_menu:
heinrichsweikamp
parents:
diff changeset
380 bsf settime_setdate
heinrichsweikamp
parents:
diff changeset
381 MENU_BEGIN tSetTime, .4
heinrichsweikamp
parents:
diff changeset
382 MENU_OPTION tSetHours, oSetHours, 0
heinrichsweikamp
parents:
diff changeset
383 MENU_OPTION tSetMinutes,oSetMinutes, 0
heinrichsweikamp
parents:
diff changeset
384 MENU_CALL tSetSeconds, do_reset_seconds
heinrichsweikamp
parents:
diff changeset
385 MENU_CALL tExit, do_continue_menu_3stack
heinrichsweikamp
parents:
diff changeset
386 MENU_END
heinrichsweikamp
parents:
diff changeset
387
heinrichsweikamp
parents:
diff changeset
388
heinrichsweikamp
parents:
diff changeset
389 do_toggle_ppo2_max: ; add 0.1bar, with hard-coded max.
heinrichsweikamp
parents:
diff changeset
390 movff opt_ppO2_max,lo ; banksafe
heinrichsweikamp
parents:
diff changeset
391 movlw .10
heinrichsweikamp
parents:
diff changeset
392 addwf lo,F
heinrichsweikamp
parents:
diff changeset
393 movlw ppo2_highest_setting
heinrichsweikamp
parents:
diff changeset
394 cpfsgt lo
heinrichsweikamp
parents:
diff changeset
395 bra do_toggle_ppo2_max2
heinrichsweikamp
parents:
diff changeset
396 movlw .120
heinrichsweikamp
parents:
diff changeset
397 movwf lo
heinrichsweikamp
parents:
diff changeset
398 do_toggle_ppo2_max2:
heinrichsweikamp
parents:
diff changeset
399 movff lo,opt_ppO2_max
heinrichsweikamp
parents:
diff changeset
400 return
heinrichsweikamp
parents:
diff changeset
401
heinrichsweikamp
parents:
diff changeset
402 do_toggle_ppo2_min: ; sub 0.1bar, with hard-coded min.
heinrichsweikamp
parents:
diff changeset
403 movff opt_ppO2_min,lo ; banksafe
heinrichsweikamp
parents:
diff changeset
404 incf lo,F
heinrichsweikamp
parents:
diff changeset
405 movlw .21
heinrichsweikamp
parents:
diff changeset
406 cpfsgt lo
heinrichsweikamp
parents:
diff changeset
407 bra do_toggle_ppo2_min2
heinrichsweikamp
parents:
diff changeset
408 movlw ppo2_lowest_setting
heinrichsweikamp
parents:
diff changeset
409 movwf lo
heinrichsweikamp
parents:
diff changeset
410 do_toggle_ppo2_min2:
heinrichsweikamp
parents:
diff changeset
411 movff lo,opt_ppO2_min
heinrichsweikamp
parents:
diff changeset
412 return
heinrichsweikamp
parents:
diff changeset
413
heinrichsweikamp
parents:
diff changeset
414
heinrichsweikamp
parents:
diff changeset
415 ; Logbook offset sub-menu
heinrichsweikamp
parents:
diff changeset
416 do_log_offset_menu:
heinrichsweikamp
parents:
diff changeset
417 MENU_BEGIN tLogOffset, .6
heinrichsweikamp
parents:
diff changeset
418 MENU_DYNAMIC TFT_LogOffset_Logtitle, 0
heinrichsweikamp
parents:
diff changeset
419 MENU_CALL tLogOffsetp1, do_logoffset_plus1
heinrichsweikamp
parents:
diff changeset
420 MENU_CALL tLogOffsetp10, do_logoffset_plus10
heinrichsweikamp
parents:
diff changeset
421 MENU_CALL tLogOffsetm1, do_logoffset_minus1
heinrichsweikamp
parents:
diff changeset
422 MENU_CALL tLogOffsetm10, do_logoffset_minus10
heinrichsweikamp
parents:
diff changeset
423 MENU_CALL tExit, do_dispsets_menu_3stack
heinrichsweikamp
parents:
diff changeset
424 MENU_END
heinrichsweikamp
parents:
diff changeset
425
heinrichsweikamp
parents:
diff changeset
426
heinrichsweikamp
parents:
diff changeset
427 do_logoffset_minus1:
heinrichsweikamp
parents:
diff changeset
428 call do_logoffset_common_read ; Read into lo:hi
heinrichsweikamp
parents:
diff changeset
429 movlw d'1'
heinrichsweikamp
parents:
diff changeset
430 subwf lo
heinrichsweikamp
parents:
diff changeset
431 movlw d'0'
heinrichsweikamp
parents:
diff changeset
432 subwfb hi
heinrichsweikamp
parents:
diff changeset
433 btfss hi,7 ; <0?
heinrichsweikamp
parents:
diff changeset
434 goto do_logoffset_common_write ; Store and return
heinrichsweikamp
parents:
diff changeset
435 clrf lo
heinrichsweikamp
parents:
diff changeset
436 clrf hi
heinrichsweikamp
parents:
diff changeset
437 goto do_logoffset_common_write ; Store and return
heinrichsweikamp
parents:
diff changeset
438
heinrichsweikamp
parents:
diff changeset
439 do_logoffset_minus10:
heinrichsweikamp
parents:
diff changeset
440 call do_logoffset_common_read ; Read into lo:hi
heinrichsweikamp
parents:
diff changeset
441 movlw d'10'
heinrichsweikamp
parents:
diff changeset
442 subwf lo
heinrichsweikamp
parents:
diff changeset
443 movlw d'0'
heinrichsweikamp
parents:
diff changeset
444 subwfb hi
heinrichsweikamp
parents:
diff changeset
445 btfss hi,7 ; <0?
heinrichsweikamp
parents:
diff changeset
446 goto do_logoffset_common_write ; Store and return
heinrichsweikamp
parents:
diff changeset
447 clrf lo
heinrichsweikamp
parents:
diff changeset
448 clrf hi
heinrichsweikamp
parents:
diff changeset
449 goto do_logoffset_common_write ; Store and return
heinrichsweikamp
parents:
diff changeset
450
heinrichsweikamp
parents:
diff changeset
451 do_logoffset_plus1:
heinrichsweikamp
parents:
diff changeset
452 call do_logoffset_common_read ; Read into lo:hi
heinrichsweikamp
parents:
diff changeset
453 movlw d'1'
heinrichsweikamp
parents:
diff changeset
454 addwf lo
heinrichsweikamp
parents:
diff changeset
455 movlw d'0'
heinrichsweikamp
parents:
diff changeset
456 addwfc hi
heinrichsweikamp
parents:
diff changeset
457 goto do_logoffset_common_write ; Store and return
heinrichsweikamp
parents:
diff changeset
458
heinrichsweikamp
parents:
diff changeset
459 do_logoffset_plus10:
heinrichsweikamp
parents:
diff changeset
460 call do_logoffset_common_read ; Read into lo:hi
heinrichsweikamp
parents:
diff changeset
461 movlw d'10'
heinrichsweikamp
parents:
diff changeset
462 addwf lo
heinrichsweikamp
parents:
diff changeset
463 movlw d'0'
heinrichsweikamp
parents:
diff changeset
464 addwfc hi
heinrichsweikamp
parents:
diff changeset
465 goto do_logoffset_common_write ; Store and return
heinrichsweikamp
parents:
diff changeset
466
heinrichsweikamp
parents:
diff changeset
467 do_dispsets_menu_3stack:
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
468 bcf in_color_menu
0
heinrichsweikamp
parents:
diff changeset
469 call menu_processor_pop
heinrichsweikamp
parents:
diff changeset
470 call menu_processor_pop
heinrichsweikamp
parents:
diff changeset
471
heinrichsweikamp
parents:
diff changeset
472 do_dispsets_menu:
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
473 MENU_BEGIN tDispSets, .7
0
heinrichsweikamp
parents:
diff changeset
474 MENU_OPTION tBright, oBrightness, 0
heinrichsweikamp
parents:
diff changeset
475 MENU_OPTION tUnits, oUnits, 0
heinrichsweikamp
parents:
diff changeset
476 MENU_CALL tLogOffset, do_log_offset_menu
23
e402813343b6 new option to switch samplingrate between 10s and 2s
heinrichsweikamp
parents: 18
diff changeset
477 MENU_OPTION tSamplingrate,oSamplingRate,0
0
heinrichsweikamp
parents:
diff changeset
478 MENU_OPTION tDvSalinity,oDiveSalinity, 0
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
479 MENU_CALL tColorScheme, do_color_scheme
0
heinrichsweikamp
parents:
diff changeset
480 MENU_CALL tExit, do_return_settings
heinrichsweikamp
parents:
diff changeset
481 MENU_END
heinrichsweikamp
parents:
diff changeset
482
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
483
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
484 extern oColorSetDive
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
485 do_color_scheme:
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
486 bsf in_color_menu
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
487 MENU_BEGIN tColorScheme, .2
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
488 MENU_OPTION tColorSetDive,oColorSetDive, 0
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
489 MENU_CALL tExit, do_dispsets_menu_3stack
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
490 MENU_END
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
491
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
492
0
heinrichsweikamp
parents:
diff changeset
493 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
494
heinrichsweikamp
parents:
diff changeset
495 global new_battery_menu
heinrichsweikamp
parents:
diff changeset
496 new_battery_menu:
heinrichsweikamp
parents:
diff changeset
497 bsf enable_screen_dumps ; To prevent exiting into COMM mode immediately
heinrichsweikamp
parents:
diff changeset
498 call TFT_boot ; Initialize TFT (includes clear screen)
heinrichsweikamp
parents:
diff changeset
499 call TFT_Display_FadeIn ; Show splash
heinrichsweikamp
parents:
diff changeset
500 movlw .100
heinrichsweikamp
parents:
diff changeset
501 movwf batt_percent ; make sure to reset batt_percent
heinrichsweikamp
parents:
diff changeset
502
heinrichsweikamp
parents:
diff changeset
503 ; Default (In cases of timeout or USB): Use old battery
heinrichsweikamp
parents:
diff changeset
504 clrf EEADRH
heinrichsweikamp
parents:
diff changeset
505 read_int_eeprom 0x07
heinrichsweikamp
parents:
diff changeset
506 movff EEDATA,battery_gauge+0
heinrichsweikamp
parents:
diff changeset
507 read_int_eeprom 0x08
heinrichsweikamp
parents:
diff changeset
508 movff EEDATA,battery_gauge+1
heinrichsweikamp
parents:
diff changeset
509 read_int_eeprom 0x09
heinrichsweikamp
parents:
diff changeset
510 movff EEDATA,battery_gauge+2
heinrichsweikamp
parents:
diff changeset
511 read_int_eeprom 0x0A
heinrichsweikamp
parents:
diff changeset
512 movff EEDATA,battery_gauge+3
heinrichsweikamp
parents:
diff changeset
513 read_int_eeprom 0x0B
heinrichsweikamp
parents:
diff changeset
514 movff EEDATA,battery_gauge+4
heinrichsweikamp
parents:
diff changeset
515 read_int_eeprom 0x0C
heinrichsweikamp
parents:
diff changeset
516 movff EEDATA,battery_gauge+5
heinrichsweikamp
parents:
diff changeset
517
heinrichsweikamp
parents:
diff changeset
518 MENU_BEGIN tNewBattTitle, .3
heinrichsweikamp
parents:
diff changeset
519 MENU_CALL tNewBattOld, use_old_batteries
heinrichsweikamp
parents:
diff changeset
520 MENU_CALL tNewBattNew36, use_new_36V_batteries
heinrichsweikamp
parents:
diff changeset
521 MENU_CALL tNewBattNew15, use_new_15V_batteries
heinrichsweikamp
parents:
diff changeset
522 MENU_END
heinrichsweikamp
parents:
diff changeset
523
heinrichsweikamp
parents:
diff changeset
524 global use_old_batteries
heinrichsweikamp
parents:
diff changeset
525 use_old_batteries:
heinrichsweikamp
parents:
diff changeset
526 clrf EEADRH
heinrichsweikamp
parents:
diff changeset
527 read_int_eeprom 0x07
heinrichsweikamp
parents:
diff changeset
528 movff EEDATA,battery_gauge+0
heinrichsweikamp
parents:
diff changeset
529 read_int_eeprom 0x08
heinrichsweikamp
parents:
diff changeset
530 movff EEDATA,battery_gauge+1
heinrichsweikamp
parents:
diff changeset
531 read_int_eeprom 0x09
heinrichsweikamp
parents:
diff changeset
532 movff EEDATA,battery_gauge+2
heinrichsweikamp
parents:
diff changeset
533 read_int_eeprom 0x0A
heinrichsweikamp
parents:
diff changeset
534 movff EEDATA,battery_gauge+3
heinrichsweikamp
parents:
diff changeset
535 read_int_eeprom 0x0B
heinrichsweikamp
parents:
diff changeset
536 movff EEDATA,battery_gauge+4
heinrichsweikamp
parents:
diff changeset
537 read_int_eeprom 0x0C
heinrichsweikamp
parents:
diff changeset
538 movff EEDATA,battery_gauge+5
heinrichsweikamp
parents:
diff changeset
539 movlw .100
heinrichsweikamp
parents:
diff changeset
540 movwf batt_percent ; To have 1,5V batteries right after firmware update
heinrichsweikamp
parents:
diff changeset
541 goto power_on_return
heinrichsweikamp
parents:
diff changeset
542
heinrichsweikamp
parents:
diff changeset
543 use_new_15V_batteries:
heinrichsweikamp
parents:
diff changeset
544 use_new_36V_batteries:
heinrichsweikamp
parents:
diff changeset
545 call reset_battery_pointer ; Resets battery pointer 0x07-0x0C and battery_gauge:5
heinrichsweikamp
parents:
diff changeset
546 goto power_on_return
heinrichsweikamp
parents:
diff changeset
547
heinrichsweikamp
parents:
diff changeset
548 END