annotate src/menu_tree.asm @ 19:06e19a880df6

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