Mercurial > public > hwos_code

annotate src/menu_tree.asm @ 260:e1cd6848863d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
increase immunity against false Qi data
author heinrichsweikamp
date Tue, 24 Mar 2015 19:48:17 +0100
parents ee81f46714cb
children 1207cf9a9408
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
174
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
26 CBLOCK tmp+0x40 ; Keep space for menu processor
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
27 gaslist_gas ; Check ram position in gaslist.asm, too!
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
28 ENDC
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
29
0
heinrichsweikamp
parents:
diff changeset
30 gui CODE
heinrichsweikamp
parents:
diff changeset
31 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
32 ; Main Menu
66
00636132cca6 BUGFIX: Maintain last selected customview in surface mode
heinrichsweikamp
parents: 64
diff changeset
33 global do_main_menu,do_main_menu2
0
heinrichsweikamp
parents:
diff changeset
34 do_main_menu:
39
e4e91fe8b09d remember last customview in dive and surface mode
mh@mh-THINK.fritz.box
parents: 23
diff changeset
35 movff menupos3,customview_surfmode; save last customview
66
00636132cca6 BUGFIX: Maintain last selected customview in surface mode
heinrichsweikamp
parents: 64
diff changeset
36 do_main_menu2:
0
heinrichsweikamp
parents:
diff changeset
37 bcf sleepmode ; for timeout
heinrichsweikamp
parents:
diff changeset
38 call menu_processor_reset ; restart from first icon.
heinrichsweikamp
parents:
diff changeset
39
heinrichsweikamp
parents:
diff changeset
40 do_continue_main_menu:
heinrichsweikamp
parents:
diff changeset
41 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
42 call menu_processor_pop ; back to last icon.
heinrichsweikamp
parents:
diff changeset
43
heinrichsweikamp
parents:
diff changeset
44 extern do_demo_divemode, restart
heinrichsweikamp
parents:
diff changeset
45 MENU_BEGIN tMainMenu, .7
heinrichsweikamp
parents:
diff changeset
46 MENU_CALL tLogbook, logbook
heinrichsweikamp
parents:
diff changeset
47 MENU_CALL tGasSetup, do_gas_menu
heinrichsweikamp
parents:
diff changeset
48 MENU_CALL tCCRSetup, do_ccr_menu
heinrichsweikamp
parents:
diff changeset
49 MENU_CALL tPlan, do_planner_menu_reset
heinrichsweikamp
parents:
diff changeset
50 MENU_CALL tDiveModeMenu, do_divemode_menu
heinrichsweikamp
parents:
diff changeset
51 MENU_CALL tSystSets, do_settings_menu
heinrichsweikamp
parents:
diff changeset
52 MENU_CALL tExit, restart
heinrichsweikamp
parents:
diff changeset
53 MENU_END
heinrichsweikamp
parents:
diff changeset
54
heinrichsweikamp
parents:
diff changeset
55 do_info_menu:
62
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 50
diff changeset
56 MENU_BEGIN tInfoMenu, .5
0
heinrichsweikamp
parents:
diff changeset
57 MENU_DYNAMIC info_menu_serial, 0
heinrichsweikamp
parents:
diff changeset
58 MENU_DYNAMIC info_menu_firmware, 0
heinrichsweikamp
parents:
diff changeset
59 MENU_DYNAMIC info_menu_total_dives, 0
62
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 50
diff changeset
60 MENU_DYNAMIC info_menu_battery_volts,0
0
heinrichsweikamp
parents:
diff changeset
61 MENU_CALL tExit, do_return_settings
heinrichsweikamp
parents:
diff changeset
62 MENU_END
heinrichsweikamp
parents:
diff changeset
63
heinrichsweikamp
parents:
diff changeset
64 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
65 ; CCR Setup
heinrichsweikamp
parents:
diff changeset
66
heinrichsweikamp
parents:
diff changeset
67 return_ccr_menu:
heinrichsweikamp
parents:
diff changeset
68 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
69 call menu_processor_pop ; back to last gas.
heinrichsweikamp
parents:
diff changeset
70
heinrichsweikamp
parents:
diff changeset
71 do_ccr_menu:
113
heinrichsweikamp
parents: 104
diff changeset
72 bcf menu_show_sensors ; Clear flag
heinrichsweikamp
parents: 104
diff changeset
73 bcf menu_show_sensors2 ; Clear flag
236
e2ea74646127 configure hardware_flag byte
heinrichsweikamp
parents: 235
diff changeset
74 btfsc analog_o2_input
240
633c7a6de5bc auto-select correct ccr menu
heinrichsweikamp
parents: 236
diff changeset
75 bra do_ccr_menu_cR
633c7a6de5bc auto-select correct ccr menu
heinrichsweikamp
parents: 236
diff changeset
76 btfss optical_input
633c7a6de5bc auto-select correct ccr menu
heinrichsweikamp
parents: 236
diff changeset
77 bra do_ccr_menu_ostc2
633c7a6de5bc auto-select correct ccr menu
heinrichsweikamp
parents: 236
diff changeset
78
633c7a6de5bc auto-select correct ccr menu
heinrichsweikamp
parents: 236
diff changeset
79 MENU_BEGIN tCCRSetup, .5 ; OSTC3 menu
174
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
80 MENU_OPTION tCCRMode, oCCRMode, 0
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
81 MENU_CALL tCCRSensor, do_ccr_sensor
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
82 MENU_CALL tDiluentSetup, do_diluent_setup
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
83 MENU_CALL tFixedSetpoints, do_fixed_setpoints
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
84 MENU_CALL tExit, do_continue_main_menu
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
85 MENU_END
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
86
240
633c7a6de5bc auto-select correct ccr menu
heinrichsweikamp
parents: 236
diff changeset
87 do_ccr_menu_cR: ; cR menu
113
heinrichsweikamp
parents: 104
diff changeset
88 MENU_BEGIN tCCRSetup, .6
0
heinrichsweikamp
parents:
diff changeset
89 MENU_OPTION tCCRMode, oCCRMode, 0
heinrichsweikamp
parents:
diff changeset
90 MENU_CALL tCCRSensor, do_ccr_sensor
113
heinrichsweikamp
parents: 104
diff changeset
91 MENU_CALL tCalibrateMenu, do_calibrate_menu
0
heinrichsweikamp
parents:
diff changeset
92 MENU_CALL tDiluentSetup, do_diluent_setup
heinrichsweikamp
parents:
diff changeset
93 MENU_CALL tFixedSetpoints, do_fixed_setpoints
heinrichsweikamp
parents:
diff changeset
94 MENU_CALL tExit, do_continue_main_menu
heinrichsweikamp
parents:
diff changeset
95 MENU_END
heinrichsweikamp
parents:
diff changeset
96
240
633c7a6de5bc auto-select correct ccr menu
heinrichsweikamp
parents: 236
diff changeset
97 do_ccr_menu_ostc2:
633c7a6de5bc auto-select correct ccr menu
heinrichsweikamp
parents: 236
diff changeset
98 MENU_BEGIN tCCRSetup, .3 ; ostc2 menu
633c7a6de5bc auto-select correct ccr menu
heinrichsweikamp
parents: 236
diff changeset
99 MENU_CALL tDiluentSetup, do_diluent_setup
633c7a6de5bc auto-select correct ccr menu
heinrichsweikamp
parents: 236
diff changeset
100 MENU_CALL tFixedSetpoints, do_fixed_setpoints
633c7a6de5bc auto-select correct ccr menu
heinrichsweikamp
parents: 236
diff changeset
101 MENU_CALL tExit, do_continue_main_menu
633c7a6de5bc auto-select correct ccr menu
heinrichsweikamp
parents: 236
diff changeset
102 MENU_END
633c7a6de5bc auto-select correct ccr menu
heinrichsweikamp
parents: 236
diff changeset
103
633c7a6de5bc auto-select correct ccr menu
heinrichsweikamp
parents: 236
diff changeset
104
113
heinrichsweikamp
parents: 104
diff changeset
105 do_calibrate_menu:
187
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 174
diff changeset
106 call enable_ir_s8 ; Enable IR/S8-Port
113
heinrichsweikamp
parents: 104
diff changeset
107 bsf menu_show_sensors2 ; Set flag
heinrichsweikamp
parents: 104
diff changeset
108 do_calibrate_menu2:
heinrichsweikamp
parents: 104
diff changeset
109 MENU_BEGIN tCalibrateMenu, .6
heinrichsweikamp
parents: 104
diff changeset
110 MENU_CALL tDiveHudMask1, 0
heinrichsweikamp
parents: 104
diff changeset
111 MENU_CALL tDiveHudMask2, 0
heinrichsweikamp
parents: 104
diff changeset
112 MENU_CALL tDiveHudMask3, 0
heinrichsweikamp
parents: 104
diff changeset
113 MENU_OPTION tCalibrationGas,oCalGasO2, 0
heinrichsweikamp
parents: 104
diff changeset
114 MENU_CALL tCalibrate, do_calibrate_mix
heinrichsweikamp
parents: 104
diff changeset
115 MENU_CALL tExit, return_ccr_menu
heinrichsweikamp
parents: 104
diff changeset
116 MENU_END
heinrichsweikamp
parents: 104
diff changeset
117
heinrichsweikamp
parents: 104
diff changeset
118 do_calibrate_mix:
heinrichsweikamp
parents: 104
diff changeset
119 extern calibrate_mix
heinrichsweikamp
parents: 104
diff changeset
120 call calibrate_mix ; Calibrate with opt_calibration_O2_ratio, also calibrate S8 HUD if connected
heinrichsweikamp
parents: 104
diff changeset
121 goto restart ; Restart into surface mode
heinrichsweikamp
parents: 104
diff changeset
122
0
heinrichsweikamp
parents:
diff changeset
123 do_ccr_sensor:
187
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 174
diff changeset
124 call enable_ir_s8 ; Enable IR/S8-Port
0
heinrichsweikamp
parents:
diff changeset
125 bsf menu_show_sensors ; Set flag
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 144
diff changeset
126 MENU_BEGIN tCCRSensor, .5
0
heinrichsweikamp
parents:
diff changeset
127 MENU_CALL tDiveHudMask1, 0
heinrichsweikamp
parents:
diff changeset
128 MENU_CALL tDiveHudMask2, 0
heinrichsweikamp
parents:
diff changeset
129 MENU_CALL tDiveHudMask3, 0
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 144
diff changeset
130 MENU_OPTION tSensorFallback,oSensorFallback, 0
0
heinrichsweikamp
parents:
diff changeset
131 MENU_CALL tExit, return_ccr_menu
heinrichsweikamp
parents:
diff changeset
132 MENU_END
heinrichsweikamp
parents:
diff changeset
133
heinrichsweikamp
parents:
diff changeset
134 do_diluent_setup:
heinrichsweikamp
parents:
diff changeset
135 bsf ccr_diluent_setup ; =1: Setting up Diluents ("Gas6-10")
139
e0b758865e91 some cleanup
heinrichsweikamp
parents: 113
diff changeset
136 bcf short_gas_decriptions ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint
0
heinrichsweikamp
parents:
diff changeset
137 call gaslist_cleanup_list ; Takes care that only one gas can be first and first has 0m change depth
heinrichsweikamp
parents:
diff changeset
138 MENU_BEGIN tDiluentSetup, .6
heinrichsweikamp
parents:
diff changeset
139 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
140 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
141 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
142 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
143 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
144 MENU_CALL tExit, return_ccr_menu
heinrichsweikamp
parents:
diff changeset
145 MENU_END
heinrichsweikamp
parents:
diff changeset
146
heinrichsweikamp
parents:
diff changeset
147 do_return_fixed_setpoints:
heinrichsweikamp
parents:
diff changeset
148 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
149 call menu_processor_pop ; back to last gas.
heinrichsweikamp
parents:
diff changeset
150
heinrichsweikamp
parents:
diff changeset
151 do_fixed_setpoints:
139
e0b758865e91 some cleanup
heinrichsweikamp
parents: 113
diff changeset
152 bcf short_gas_decriptions ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint
0
heinrichsweikamp
parents:
diff changeset
153 MENU_BEGIN tFixedSetpoints, .6
heinrichsweikamp
parents:
diff changeset
154 MENU_DYNAMIC gaslist_strcat_setpoint, do_edit_sp_menu
heinrichsweikamp
parents:
diff changeset
155 MENU_DYNAMIC gaslist_strcat_setpoint, do_edit_sp_menu
heinrichsweikamp
parents:
diff changeset
156 MENU_DYNAMIC gaslist_strcat_setpoint, do_edit_sp_menu
heinrichsweikamp
parents:
diff changeset
157 MENU_DYNAMIC gaslist_strcat_setpoint, do_edit_sp_menu
heinrichsweikamp
parents:
diff changeset
158 MENU_DYNAMIC gaslist_strcat_setpoint, do_edit_sp_menu
heinrichsweikamp
parents:
diff changeset
159 MENU_CALL tExit, return_ccr_menu
heinrichsweikamp
parents:
diff changeset
160 MENU_END
heinrichsweikamp
parents:
diff changeset
161
heinrichsweikamp
parents:
diff changeset
162 do_edit_sp_menu:
heinrichsweikamp
parents:
diff changeset
163 call gaslist_setSP ; Save current item.
heinrichsweikamp
parents:
diff changeset
164 MENU_BEGIN tFixedSetpoints, .5
heinrichsweikamp
parents:
diff changeset
165 MENU_DYNAMIC gaslist_strcat_setpoint_0,0
heinrichsweikamp
parents:
diff changeset
166 MENU_CALL tSPPlus, gaslist_spplus
heinrichsweikamp
parents:
diff changeset
167 MENU_CALL tDepthPlus, gaslist_spdepthplus
heinrichsweikamp
parents:
diff changeset
168 MENU_CALL tDepthMinus, gaslist_spdepthminus
heinrichsweikamp
parents:
diff changeset
169 MENU_CALL tExit, do_return_fixed_setpoints
heinrichsweikamp
parents:
diff changeset
170 MENU_END
heinrichsweikamp
parents:
diff changeset
171
heinrichsweikamp
parents:
diff changeset
172 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
173 ; OC Gas Setup
heinrichsweikamp
parents:
diff changeset
174
heinrichsweikamp
parents:
diff changeset
175 return_gas_menu:
heinrichsweikamp
parents:
diff changeset
176 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
177 call menu_processor_pop ; back to last gas.
heinrichsweikamp
parents:
diff changeset
178
heinrichsweikamp
parents:
diff changeset
179 btfsc ccr_diluent_setup ; Return to CCR-Menu?
heinrichsweikamp
parents:
diff changeset
180 bra do_diluent_setup ; Yes.
heinrichsweikamp
parents:
diff changeset
181 do_gas_menu:
heinrichsweikamp
parents:
diff changeset
182 bcf ccr_diluent_setup ; =1: Setting up Diluents ("Gas6-10")
139
e0b758865e91 some cleanup
heinrichsweikamp
parents: 113
diff changeset
183 bcf short_gas_decriptions ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint
0
heinrichsweikamp
parents:
diff changeset
184 call gaslist_cleanup_list ; Takes care that only one gas can be first and first has 0m change depth
heinrichsweikamp
parents:
diff changeset
185 MENU_BEGIN tGaslist, .6
heinrichsweikamp
parents:
diff changeset
186 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
187 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
188 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
189 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
190 MENU_DYNAMIC gaslist_strcat_gas_mod, do_edit_gas_menu
heinrichsweikamp
parents:
diff changeset
191 MENU_CALL tExit, do_continue_main_menu
heinrichsweikamp
parents:
diff changeset
192 MENU_END
heinrichsweikamp
parents:
diff changeset
193
heinrichsweikamp
parents:
diff changeset
194 return_gas_depth:
heinrichsweikamp
parents:
diff changeset
195 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
196 call menu_processor_pop ; back to last gas.
heinrichsweikamp
parents:
diff changeset
197 bra do_edit_gas_menu_1
heinrichsweikamp
parents:
diff changeset
198
heinrichsweikamp
parents:
diff changeset
199 do_edit_gas_menu:
heinrichsweikamp
parents:
diff changeset
200 call gaslist_setgas ; Save current item.
heinrichsweikamp
parents:
diff changeset
201 do_edit_gas_menu_1: ; Keep current gas.
heinrichsweikamp
parents:
diff changeset
202 MENU_BEGIN tGasEdit, .6
heinrichsweikamp
parents:
diff changeset
203 MENU_DYNAMIC gaslist_gastitle, 0
heinrichsweikamp
parents:
diff changeset
204 MENU_DYNAMIC gaslist_MOD_END, 0
heinrichsweikamp
parents:
diff changeset
205 MENU_DYNAMIC gaslist_show_type, gaslist_toggle_type
heinrichsweikamp
parents:
diff changeset
206 MENU_CALL tSetup_mix, do_setup_mix
heinrichsweikamp
parents:
diff changeset
207 MENU_CALL tGasDepth, do_gas_depth_menu
heinrichsweikamp
parents:
diff changeset
208 MENU_CALL tExit, return_gas_menu
heinrichsweikamp
parents:
diff changeset
209 MENU_END
heinrichsweikamp
parents:
diff changeset
210
heinrichsweikamp
parents:
diff changeset
211 do_setup_mix:
heinrichsweikamp
parents:
diff changeset
212 MENU_BEGIN tGasEdit, .7
heinrichsweikamp
parents:
diff changeset
213 MENU_DYNAMIC gaslist_gastitle, 0
heinrichsweikamp
parents:
diff changeset
214 MENU_DYNAMIC gaslist_MOD_END, 0
heinrichsweikamp
parents:
diff changeset
215 MENU_CALL tO2Plus, gaslist_pO2
heinrichsweikamp
parents:
diff changeset
216 MENU_CALL tO2Minus, gaslist_mO2
heinrichsweikamp
parents:
diff changeset
217 MENU_CALL tHePlus, gaslist_pHe
heinrichsweikamp
parents:
diff changeset
218 MENU_CALL tHeMinus, gaslist_mHe
heinrichsweikamp
parents:
diff changeset
219 MENU_CALL tExit, return_gas_depth
heinrichsweikamp
parents:
diff changeset
220 MENU_END
heinrichsweikamp
parents:
diff changeset
221
heinrichsweikamp
parents:
diff changeset
222 global do_gas_depth_menu
heinrichsweikamp
parents:
diff changeset
223 do_gas_depth_menu:
174
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
224 movff gaslist_gas,WREG
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
225 lfsr FSR1,opt_gas_type ; Read opt_gas_type[WREG]
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
226 movff PLUSW1,lo ; Used as temp
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
227 movlw .3 ; 3=Deco
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
228 btfsc ccr_diluent_setup ; =1: Setting up Diluents ("Gas6-10")
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
229 movlw .2 ; 2=Normal
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
230 cpfseq lo
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 155
diff changeset
231 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
232
154
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 148
diff changeset
233 MENU_BEGIN tGasEdit, .7
0
heinrichsweikamp
parents:
diff changeset
234 MENU_DYNAMIC gaslist_gastitle, 0
heinrichsweikamp
parents:
diff changeset
235 MENU_DYNAMIC gaslist_MOD_END, 0
154
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 148
diff changeset
236 MENU_DYNAMIC gaslist_ppo2, 0 ; ppO2 at change depth
0
heinrichsweikamp
parents:
diff changeset
237 MENU_CALL tDepthPlus, gaslist_pDepth
heinrichsweikamp
parents:
diff changeset
238 MENU_CALL tDepthMinus, gaslist_mDepth
heinrichsweikamp
parents:
diff changeset
239 MENU_DYNAMIC gaslist_reset_mod_title,gaslist_reset_mod
heinrichsweikamp
parents:
diff changeset
240 MENU_CALL tExit, return_gas_depth
heinrichsweikamp
parents:
diff changeset
241 MENU_END
heinrichsweikamp
parents:
diff changeset
242
heinrichsweikamp
parents:
diff changeset
243 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
244 ; Simulator menus
heinrichsweikamp
parents:
diff changeset
245
heinrichsweikamp
parents:
diff changeset
246 global do_planner_menu
heinrichsweikamp
parents:
diff changeset
247
heinrichsweikamp
parents:
diff changeset
248 do_planner_menu_reset:
heinrichsweikamp
parents:
diff changeset
249 extern option_save_all
heinrichsweikamp
parents:
diff changeset
250 call option_save_all
heinrichsweikamp
parents:
diff changeset
251 ;---- Reset dive time/depth to default values
heinrichsweikamp
parents:
diff changeset
252 extern option_reset
heinrichsweikamp
parents:
diff changeset
253 lfsr FSR0,odiveInterval
heinrichsweikamp
parents:
diff changeset
254 call option_reset
heinrichsweikamp
parents:
diff changeset
255 lfsr FSR0,obottomTime
heinrichsweikamp
parents:
diff changeset
256 call option_reset
heinrichsweikamp
parents:
diff changeset
257 lfsr FSR0,obottomDepth
heinrichsweikamp
parents:
diff changeset
258 call option_reset
heinrichsweikamp
parents:
diff changeset
259
heinrichsweikamp
parents:
diff changeset
260 do_planner_menu:
heinrichsweikamp
parents:
diff changeset
261 extern do_demo_planner
heinrichsweikamp
parents:
diff changeset
262 MENU_BEGIN tPlan, .6
heinrichsweikamp
parents:
diff changeset
263 MENU_CALL tInter, do_demo_divemode
heinrichsweikamp
parents:
diff changeset
264 MENU_OPTION tIntvl, odiveInterval, 0
heinrichsweikamp
parents:
diff changeset
265 MENU_OPTION tBtTm, obottomTime, 0
heinrichsweikamp
parents:
diff changeset
266 MENU_OPTION tMxDep, obottomDepth, 0
heinrichsweikamp
parents:
diff changeset
267 MENU_CALL tDeco, do_demo_planner
heinrichsweikamp
parents:
diff changeset
268 MENU_CALL tExit, do_continue_main_menu
heinrichsweikamp
parents:
diff changeset
269 MENU_END
heinrichsweikamp
parents:
diff changeset
270
heinrichsweikamp
parents:
diff changeset
271 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
272 ; Divemode menu
heinrichsweikamp
parents:
diff changeset
273
heinrichsweikamp
parents:
diff changeset
274 do_return_divemode_menu:
heinrichsweikamp
parents:
diff changeset
275 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
276 call menu_processor_pop ; back to last gas.
heinrichsweikamp
parents:
diff changeset
277
heinrichsweikamp
parents:
diff changeset
278 do_divemode_menu:
heinrichsweikamp
parents:
diff changeset
279 MENU_BEGIN tDiveModeMenu, .7
heinrichsweikamp
parents:
diff changeset
280 MENU_OPTION tDvMode, oDiveMode, 0
heinrichsweikamp
parents:
diff changeset
281 MENU_OPTION tDkMode, oDecoMode, 0
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 90
diff changeset
282 MENU_CALL tppO2settings, do_ppo2_menu
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 90
diff changeset
283 MENU_OPTION tsafetystopmenu,oSafetyStop, 0
0
heinrichsweikamp
parents:
diff changeset
284 MENU_OPTION tFTTSMenu, oExtraTime,0
heinrichsweikamp
parents:
diff changeset
285 MENU_CALL tDecoparameters, do_decoparameters_menu
heinrichsweikamp
parents:
diff changeset
286 MENU_CALL tExit, do_continue_main_menu
heinrichsweikamp
parents:
diff changeset
287 MENU_END
heinrichsweikamp
parents:
diff changeset
288
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 90
diff changeset
289 do_ppo2_menu:
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 90
diff changeset
290 MENU_BEGIN tppO2settings, .3
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 90
diff changeset
291 MENU_DYNAMIC divesets_ppo2_max, do_toggle_ppo2_max
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 90
diff changeset
292 MENU_DYNAMIC divesets_ppo2_min, do_toggle_ppo2_min
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 90
diff changeset
293 MENU_CALL tExit, do_return_divemode_menu
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 90
diff changeset
294 MENU_END
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 90
diff changeset
295
0
heinrichsweikamp
parents:
diff changeset
296 do_return_decoparameters_menu:
heinrichsweikamp
parents:
diff changeset
297 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
298 call menu_processor_pop ; back to setting
heinrichsweikamp
parents:
diff changeset
299 do_decoparameters_menu:
heinrichsweikamp
parents:
diff changeset
300 MENU_BEGIN tDecoparameters, .7
heinrichsweikamp
parents:
diff changeset
301 MENU_OPTION tGF_low, oGF_low, 0
heinrichsweikamp
parents:
diff changeset
302 MENU_OPTION tGF_high, oGF_high, 0
heinrichsweikamp
parents:
diff changeset
303 MENU_CALL taGFMenu, do_aGF_menu
heinrichsweikamp
parents:
diff changeset
304 MENU_OPTION tSaturationMult,osatmult, 0
heinrichsweikamp
parents:
diff changeset
305 MENU_OPTION tDesaturationMult,odesatmult,0
heinrichsweikamp
parents:
diff changeset
306 MENU_OPTION tLastDecostop,oLastDeco, 0
heinrichsweikamp
parents:
diff changeset
307 MENU_CALL tExit, do_return_divemode_menu
heinrichsweikamp
parents:
diff changeset
308 MENU_END
heinrichsweikamp
parents:
diff changeset
309
heinrichsweikamp
parents:
diff changeset
310 do_aGF_menu:
heinrichsweikamp
parents:
diff changeset
311 MENU_BEGIN taGFMenu, .4
heinrichsweikamp
parents:
diff changeset
312 MENU_OPTION taGF_enable,oEnable_aGF, 0
heinrichsweikamp
parents:
diff changeset
313 MENU_OPTION taGF_low, oaGF_low, 0
heinrichsweikamp
parents:
diff changeset
314 MENU_OPTION taGF_high, oaGF_high, 0
heinrichsweikamp
parents:
diff changeset
315 MENU_CALL tExit, do_return_decoparameters_menu
heinrichsweikamp
parents:
diff changeset
316 MENU_END
heinrichsweikamp
parents:
diff changeset
317 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
318 ; Setup Menu
heinrichsweikamp
parents:
diff changeset
319
heinrichsweikamp
parents:
diff changeset
320 do_return_settings:
heinrichsweikamp
parents:
diff changeset
321 bcf settime_setdate ; Clear flag
heinrichsweikamp
parents:
diff changeset
322 call menu_processor_pop ; Drop exit entry
heinrichsweikamp
parents:
diff changeset
323 call menu_processor_pop ; Pop return line.
heinrichsweikamp
parents:
diff changeset
324
heinrichsweikamp
parents:
diff changeset
325 extern compass_calibration_loop
heinrichsweikamp
parents:
diff changeset
326 do_settings_menu:
heinrichsweikamp
parents:
diff changeset
327 MENU_BEGIN tSystSets, .7
heinrichsweikamp
parents:
diff changeset
328 MENU_CALL tInfoMenu, do_info_menu
heinrichsweikamp
parents:
diff changeset
329 MENU_CALL tSetTimeDate, do_date_time_menu
heinrichsweikamp
parents:
diff changeset
330 MENU_CALL tDispSets, do_dispsets_menu
heinrichsweikamp
parents:
diff changeset
331 MENU_OPTION tLanguage, oLanguage, 0
155
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
332 MENU_CALL tResetMenu, do_reset_menu
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
333 MENU_CALL tMore, do_settings_menu_more
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
334 MENU_CALL tExit, do_continue_main_menu
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
335 MENU_END
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
336
220
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
337
155
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
338 do_settings_menu_more:
243
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 240
diff changeset
339 btfsc rechargeable ; piezo buttons available
220
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
340 bra do_settings_menu_more_c3
243
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 240
diff changeset
341 btfsc ble_available ; ble available
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 240
diff changeset
342 bra do_settings_menu_more_ble
220
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
343 MENU_BEGIN tSystSets, .6
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
344 MENU_CALL tCompassMenu, do_compass_menu
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
345 MENU_CALL tLogOffset, do_log_offset_menu
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
346 MENU_OPTION tUnits, oUnits, 0
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
347 MENU_OPTION tSamplingrate,oSamplingRate,0
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
348 MENU_OPTION tDvSalinity,oDiveSalinity, 0
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
349 MENU_CALL tExit, do_return_settings
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
350 MENU_END
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
351
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
352 do_settings_menu_more_c3:
218
8fbd8c5ac51f 1.71beta start
heinrichsweikamp
parents: 200
diff changeset
353 MENU_BEGIN tSystSets, .7
18
4e3f133dfbf4 add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents: 0
diff changeset
354 MENU_CALL tCompassMenu, do_compass_menu
155
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
355 MENU_CALL tLogOffset, do_log_offset_menu
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
356 MENU_OPTION tUnits, oUnits, 0
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
357 MENU_OPTION tSamplingrate,oSamplingRate,0
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
358 MENU_OPTION tDvSalinity,oDiveSalinity, 0
220
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
359 MENU_CALL tMore, do_settings_cr_menu
155
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
360 MENU_CALL tExit, do_return_settings
0
heinrichsweikamp
parents:
diff changeset
361 MENU_END
heinrichsweikamp
parents:
diff changeset
362
220
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
363 extern comm_mode0
243
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 240
diff changeset
364
220
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
365 do_settings_cr_menu: ; Menu with features only available in cR hardware
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
366 MENU_BEGIN tSystSets, .4
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
367 MENU_CALL tUsbTitle, comm_mode0
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
368 MENU_OPTION tButtonleft,ocR_button_left ,0 ; left button sensitivity
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
369 MENU_OPTION tButtonright,ocR_button_right,0 ; right button sensitivity
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
370 MENU_CALL tExit, do_settings_menu_more_c3
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
371 MENU_END
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
372
243
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 240
diff changeset
373 do_settings_menu_more_ble: ; Menu with BLE feature
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 240
diff changeset
374 MENU_BEGIN tSystSets, .7
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 240
diff changeset
375 MENU_CALL tCompassMenu, do_compass_menu
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 240
diff changeset
376 MENU_CALL tLogOffset, do_log_offset_menu
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 240
diff changeset
377 MENU_OPTION tUnits, oUnits, 0
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 240
diff changeset
378 MENU_OPTION tSamplingrate,oSamplingRate,0
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 240
diff changeset
379 MENU_OPTION tDvSalinity,oDiveSalinity, 0
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 240
diff changeset
380 MENU_CALL tUsbTitle, comm_mode0
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 240
diff changeset
381 MENU_CALL tExit, do_return_settings
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 240
diff changeset
382 MENU_END
220
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
383
18
4e3f133dfbf4 add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents: 0
diff changeset
384 do_compass_menu:
90
3274e87fd027 NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents: 78
diff changeset
385 MENU_BEGIN tSystSets, .2
18
4e3f133dfbf4 add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents: 0
diff changeset
386 MENU_CALL tCompassMenu, compass_calibration_loop
90
3274e87fd027 NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents: 78
diff changeset
387 ; MENU_OPTION tCompassGain, oCompassGain, 0
18
4e3f133dfbf4 add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents: 0
diff changeset
388 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
389 MENU_END
4e3f133dfbf4 add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents: 0
diff changeset
390
0
heinrichsweikamp
parents:
diff changeset
391 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
392 ; Reset and confirmation menu.
heinrichsweikamp
parents:
diff changeset
393
heinrichsweikamp
parents:
diff changeset
394 do_reset_menu:
63
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
395 MENU_BEGIN tResetMenu, .6
0
heinrichsweikamp
parents:
diff changeset
396 MENU_CALL tExit, do_return_settings
heinrichsweikamp
parents:
diff changeset
397 MENU_CALL tReboot, do_reset_menu2 ; Confirm
heinrichsweikamp
parents:
diff changeset
398 MENU_CALL tResetDeco, do_reset_menu3 ; Confirm
heinrichsweikamp
parents:
diff changeset
399 MENU_CALL tResetSettings, do_reset_menu4 ; Confirm
63
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
400 MENU_CALL tResetLogbook, do_reset_menu5 ; Confirm
0
heinrichsweikamp
parents:
diff changeset
401 MENU_CALL tResetBattery, new_battery_menu ; New Battery submenu
heinrichsweikamp
parents:
diff changeset
402 MENU_END
heinrichsweikamp
parents:
diff changeset
403
heinrichsweikamp
parents:
diff changeset
404 do_reset_menu2:
heinrichsweikamp
parents:
diff changeset
405 MENU_BEGIN tResetMenu2, .2
heinrichsweikamp
parents:
diff changeset
406 MENU_CALL tAbort, do_continue_menu_3stack
heinrichsweikamp
parents:
diff changeset
407 MENU_CALL tReboot, do_reboot ; Reboot
heinrichsweikamp
parents:
diff changeset
408 MENU_END
heinrichsweikamp
parents:
diff changeset
409
heinrichsweikamp
parents:
diff changeset
410 do_reset_menu3:
heinrichsweikamp
parents:
diff changeset
411 MENU_BEGIN tResetMenu2, .2
heinrichsweikamp
parents:
diff changeset
412 MENU_CALL tAbort, do_continue_menu_3stack
heinrichsweikamp
parents:
diff changeset
413 MENU_CALL tResetDeco, do_reset_deco ; Reset Deco
heinrichsweikamp
parents:
diff changeset
414 MENU_END
heinrichsweikamp
parents:
diff changeset
415
heinrichsweikamp
parents:
diff changeset
416 do_reset_menu4:
heinrichsweikamp
parents:
diff changeset
417 MENU_BEGIN tResetMenu2, .2
heinrichsweikamp
parents:
diff changeset
418 MENU_CALL tAbort, do_continue_menu_3stack
heinrichsweikamp
parents:
diff changeset
419 MENU_CALL tResetSettings, do_reset_settings ; Reset all settings
heinrichsweikamp
parents:
diff changeset
420 MENU_END
heinrichsweikamp
parents:
diff changeset
421
63
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
422 do_reset_menu5:
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
423 MENU_BEGIN tResetMenu2, .2
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
424 MENU_CALL tAbort, do_continue_menu_3stack
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
425 MENU_CALL tResetLogbook, do_reset_logbook ; Reset logbook
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
426 MENU_END
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
427
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
428 do_reset_logbook:
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
429 clrf EEADRH ; Make sure to select eeprom bank 0
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
430 clrf EEDATA
78
668b432dcae9 BUGFIX: Reset Logbook did not reset Logbook TOC properly
mh@mh-THINK.localdomain
parents: 76
diff changeset
431 read_int_eeprom .2
668b432dcae9 BUGFIX: Reset Logbook did not reset Logbook TOC properly
mh@mh-THINK.localdomain
parents: 76
diff changeset
432 write_int_eeprom .15
668b432dcae9 BUGFIX: Reset Logbook did not reset Logbook TOC properly
mh@mh-THINK.localdomain
parents: 76
diff changeset
433 read_int_eeprom .3
668b432dcae9 BUGFIX: Reset Logbook did not reset Logbook TOC properly
mh@mh-THINK.localdomain
parents: 76
diff changeset
434 write_int_eeprom .16 ; Copy number of dives
144
b839972db982 1.45 beta release
heinrichsweikamp
parents: 139
diff changeset
435 clrf EEDATA
78
668b432dcae9 BUGFIX: Reset Logbook did not reset Logbook TOC properly
mh@mh-THINK.localdomain
parents: 76
diff changeset
436 write_int_eeprom .2
668b432dcae9 BUGFIX: Reset Logbook did not reset Logbook TOC properly
mh@mh-THINK.localdomain
parents: 76
diff changeset
437 write_int_eeprom .3 ; Clear total dives
63
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
438 write_int_eeprom .4
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
439 write_int_eeprom .5
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
440 write_int_eeprom .6 ; Reset logbook pointers
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
441 call ext_flash_erase_logbook ; And complete logbook (!)
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
442 goto do_continue_main_menu ; back to menu
5c4d4a42e7a0 allow logbook erase from reset menu
heinrichsweikamp
parents: 50
diff changeset
443
0
heinrichsweikamp
parents:
diff changeset
444
heinrichsweikamp
parents:
diff changeset
445 do_reset_deco:
heinrichsweikamp
parents:
diff changeset
446 movlw d'79' ; 79% N2
heinrichsweikamp
parents:
diff changeset
447 movff WREG,char_I_N2_ratio
heinrichsweikamp
parents:
diff changeset
448 movlw d'0'
heinrichsweikamp
parents:
diff changeset
449 movff WREG,char_I_step_is_1min ; 2 second deco mode
heinrichsweikamp
parents:
diff changeset
450 SAFE_2BYTE_COPY amb_pressure,int_I_pres_respiration ; copy for deco routine
heinrichsweikamp
parents:
diff changeset
451 movff int_I_pres_respiration+0,int_I_pres_surface+0 ; copy for desat routine
heinrichsweikamp
parents:
diff changeset
452 movff int_I_pres_respiration+1,int_I_pres_surface+1
heinrichsweikamp
parents:
diff changeset
453
heinrichsweikamp
parents:
diff changeset
454 extern deco_reset
heinrichsweikamp
parents:
diff changeset
455 call deco_reset
heinrichsweikamp
parents:
diff changeset
456 call deco_calc_desaturation_time ; calculate desaturation time
heinrichsweikamp
parents:
diff changeset
457 banksel common
heinrichsweikamp
parents:
diff changeset
458 call deco_calc_wo_deco_step_1_min ; calculate deco in surface mode
heinrichsweikamp
parents:
diff changeset
459 banksel common
heinrichsweikamp
parents:
diff changeset
460 clrf nofly_time+0 ; Reset NoFly
heinrichsweikamp
parents:
diff changeset
461 clrf nofly_time+1
heinrichsweikamp
parents:
diff changeset
462 clrf desaturation_time+0 ; Reset Desat
heinrichsweikamp
parents:
diff changeset
463 clrf desaturation_time+1
heinrichsweikamp
parents:
diff changeset
464 goto do_return_settings ; back to menu
heinrichsweikamp
parents:
diff changeset
465
heinrichsweikamp
parents:
diff changeset
466 do_reset_settings:
139
e0b758865e91 some cleanup
heinrichsweikamp
parents: 113
diff changeset
467 banksel common
0
heinrichsweikamp
parents:
diff changeset
468 extern option_reset_all
heinrichsweikamp
parents:
diff changeset
469 call option_reset_all ; Reset all options to factory default.
76
a5ea132770db 1.21 release
heinrichsweikamp
parents: 66
diff changeset
470 goto restart ; Restart into surfacemode
0
heinrichsweikamp
parents:
diff changeset
471
heinrichsweikamp
parents:
diff changeset
472 do_continue_menu_3stack: ; Return three levels deep
heinrichsweikamp
parents:
diff changeset
473 call menu_processor_pop
heinrichsweikamp
parents:
diff changeset
474 goto do_return_settings
heinrichsweikamp
parents:
diff changeset
475
heinrichsweikamp
parents:
diff changeset
476 do_reboot:
heinrichsweikamp
parents:
diff changeset
477 call ext_flash_enable_protection ; Enables write protection
heinrichsweikamp
parents:
diff changeset
478 reset
heinrichsweikamp
parents:
diff changeset
479
heinrichsweikamp
parents:
diff changeset
480
heinrichsweikamp
parents:
diff changeset
481 do_date_time_menu:
heinrichsweikamp
parents:
diff changeset
482 MENU_BEGIN tSetTimeDate, .4
heinrichsweikamp
parents:
diff changeset
483 MENU_CALL tSetTime, do_time_menu
heinrichsweikamp
parents:
diff changeset
484 MENU_CALL tSetDate, do_date_menu
heinrichsweikamp
parents:
diff changeset
485 MENU_OPTION tDateFormat,oDateFormat, 0
heinrichsweikamp
parents:
diff changeset
486 MENU_CALL tExit, do_return_settings
heinrichsweikamp
parents:
diff changeset
487 MENU_END
heinrichsweikamp
parents:
diff changeset
488
heinrichsweikamp
parents:
diff changeset
489 do_date_menu:
heinrichsweikamp
parents:
diff changeset
490 bsf settime_setdate
heinrichsweikamp
parents:
diff changeset
491 MENU_BEGIN tSetDate, .4
heinrichsweikamp
parents:
diff changeset
492 MENU_OPTION tSetDay, oSetDay, 0
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
493 MENU_OPTION tSetMonth, oSetMonth, 0
0
heinrichsweikamp
parents:
diff changeset
494 MENU_OPTION tSetYear, oSetYear, 0
heinrichsweikamp
parents:
diff changeset
495 MENU_CALL tExit, do_continue_menu_3stack
heinrichsweikamp
parents:
diff changeset
496 MENU_END
heinrichsweikamp
parents:
diff changeset
497
heinrichsweikamp
parents:
diff changeset
498
heinrichsweikamp
parents:
diff changeset
499 do_reset_seconds:
heinrichsweikamp
parents:
diff changeset
500 clrf secs
heinrichsweikamp
parents:
diff changeset
501 extern rtc_set_rtc
heinrichsweikamp
parents:
diff changeset
502 call rtc_set_rtc ; writes mins,sec,hours,day,month and year to rtc module
heinrichsweikamp
parents:
diff changeset
503 do_time_menu:
heinrichsweikamp
parents:
diff changeset
504 bsf settime_setdate
heinrichsweikamp
parents:
diff changeset
505 MENU_BEGIN tSetTime, .4
heinrichsweikamp
parents:
diff changeset
506 MENU_OPTION tSetHours, oSetHours, 0
heinrichsweikamp
parents:
diff changeset
507 MENU_OPTION tSetMinutes,oSetMinutes, 0
heinrichsweikamp
parents:
diff changeset
508 MENU_CALL tSetSeconds, do_reset_seconds
heinrichsweikamp
parents:
diff changeset
509 MENU_CALL tExit, do_continue_menu_3stack
heinrichsweikamp
parents:
diff changeset
510 MENU_END
heinrichsweikamp
parents:
diff changeset
511
heinrichsweikamp
parents:
diff changeset
512
heinrichsweikamp
parents:
diff changeset
513 do_toggle_ppo2_max: ; add 0.1bar, with hard-coded max.
heinrichsweikamp
parents:
diff changeset
514 movff opt_ppO2_max,lo ; banksafe
heinrichsweikamp
parents:
diff changeset
515 movlw .10
heinrichsweikamp
parents:
diff changeset
516 addwf lo,F
heinrichsweikamp
parents:
diff changeset
517 movlw ppo2_highest_setting
heinrichsweikamp
parents:
diff changeset
518 cpfsgt lo
heinrichsweikamp
parents:
diff changeset
519 bra do_toggle_ppo2_max2
heinrichsweikamp
parents:
diff changeset
520 movlw .120
heinrichsweikamp
parents:
diff changeset
521 movwf lo
heinrichsweikamp
parents:
diff changeset
522 do_toggle_ppo2_max2:
heinrichsweikamp
parents:
diff changeset
523 movff lo,opt_ppO2_max
heinrichsweikamp
parents:
diff changeset
524 return
heinrichsweikamp
parents:
diff changeset
525
heinrichsweikamp
parents:
diff changeset
526 do_toggle_ppo2_min: ; sub 0.1bar, with hard-coded min.
heinrichsweikamp
parents:
diff changeset
527 movff opt_ppO2_min,lo ; banksafe
heinrichsweikamp
parents:
diff changeset
528 incf lo,F
heinrichsweikamp
parents:
diff changeset
529 movlw .21
heinrichsweikamp
parents:
diff changeset
530 cpfsgt lo
heinrichsweikamp
parents:
diff changeset
531 bra do_toggle_ppo2_min2
heinrichsweikamp
parents:
diff changeset
532 movlw ppo2_lowest_setting
heinrichsweikamp
parents:
diff changeset
533 movwf lo
heinrichsweikamp
parents:
diff changeset
534 do_toggle_ppo2_min2:
heinrichsweikamp
parents:
diff changeset
535 movff lo,opt_ppO2_min
heinrichsweikamp
parents:
diff changeset
536 return
heinrichsweikamp
parents:
diff changeset
537
heinrichsweikamp
parents:
diff changeset
538
heinrichsweikamp
parents:
diff changeset
539 ; Logbook offset sub-menu
heinrichsweikamp
parents:
diff changeset
540 do_log_offset_menu:
heinrichsweikamp
parents:
diff changeset
541 MENU_BEGIN tLogOffset, .6
heinrichsweikamp
parents:
diff changeset
542 MENU_DYNAMIC TFT_LogOffset_Logtitle, 0
heinrichsweikamp
parents:
diff changeset
543 MENU_CALL tLogOffsetp1, do_logoffset_plus1
heinrichsweikamp
parents:
diff changeset
544 MENU_CALL tLogOffsetp10, do_logoffset_plus10
heinrichsweikamp
parents:
diff changeset
545 MENU_CALL tLogOffsetm1, do_logoffset_minus1
heinrichsweikamp
parents:
diff changeset
546 MENU_CALL tLogOffsetm10, do_logoffset_minus10
heinrichsweikamp
parents:
diff changeset
547 MENU_CALL tExit, do_dispsets_menu_3stack
heinrichsweikamp
parents:
diff changeset
548 MENU_END
heinrichsweikamp
parents:
diff changeset
549
heinrichsweikamp
parents:
diff changeset
550
heinrichsweikamp
parents:
diff changeset
551 do_logoffset_minus1:
heinrichsweikamp
parents:
diff changeset
552 call do_logoffset_common_read ; Read into lo:hi
heinrichsweikamp
parents:
diff changeset
553 movlw d'1'
heinrichsweikamp
parents:
diff changeset
554 subwf lo
heinrichsweikamp
parents:
diff changeset
555 movlw d'0'
heinrichsweikamp
parents:
diff changeset
556 subwfb hi
heinrichsweikamp
parents:
diff changeset
557 btfss hi,7 ; <0?
heinrichsweikamp
parents:
diff changeset
558 goto do_logoffset_common_write ; Store and return
heinrichsweikamp
parents:
diff changeset
559 clrf lo
heinrichsweikamp
parents:
diff changeset
560 clrf hi
heinrichsweikamp
parents:
diff changeset
561 goto do_logoffset_common_write ; Store and return
heinrichsweikamp
parents:
diff changeset
562
heinrichsweikamp
parents:
diff changeset
563 do_logoffset_minus10:
heinrichsweikamp
parents:
diff changeset
564 call do_logoffset_common_read ; Read into lo:hi
heinrichsweikamp
parents:
diff changeset
565 movlw d'10'
heinrichsweikamp
parents:
diff changeset
566 subwf lo
heinrichsweikamp
parents:
diff changeset
567 movlw d'0'
heinrichsweikamp
parents:
diff changeset
568 subwfb hi
heinrichsweikamp
parents:
diff changeset
569 btfss hi,7 ; <0?
heinrichsweikamp
parents:
diff changeset
570 goto do_logoffset_common_write ; Store and return
heinrichsweikamp
parents:
diff changeset
571 clrf lo
heinrichsweikamp
parents:
diff changeset
572 clrf hi
heinrichsweikamp
parents:
diff changeset
573 goto do_logoffset_common_write ; Store and return
heinrichsweikamp
parents:
diff changeset
574
heinrichsweikamp
parents:
diff changeset
575 do_logoffset_plus1:
heinrichsweikamp
parents:
diff changeset
576 call do_logoffset_common_read ; Read into lo:hi
148
022b886eddaf some cleanup
heinrichsweikamp
parents: 145
diff changeset
577 infsnz lo,F
022b886eddaf some cleanup
heinrichsweikamp
parents: 145
diff changeset
578 incf hi,F
0
heinrichsweikamp
parents:
diff changeset
579 goto do_logoffset_common_write ; Store and return
heinrichsweikamp
parents:
diff changeset
580
heinrichsweikamp
parents:
diff changeset
581 do_logoffset_plus10:
heinrichsweikamp
parents:
diff changeset
582 call do_logoffset_common_read ; Read into lo:hi
heinrichsweikamp
parents:
diff changeset
583 movlw d'10'
heinrichsweikamp
parents:
diff changeset
584 addwf lo
heinrichsweikamp
parents:
diff changeset
585 movlw d'0'
heinrichsweikamp
parents:
diff changeset
586 addwfc hi
heinrichsweikamp
parents:
diff changeset
587 goto do_logoffset_common_write ; Store and return
heinrichsweikamp
parents:
diff changeset
588
heinrichsweikamp
parents:
diff changeset
589 do_dispsets_menu_3stack:
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
590 bcf in_color_menu
0
heinrichsweikamp
parents:
diff changeset
591 call menu_processor_pop
heinrichsweikamp
parents:
diff changeset
592 call menu_processor_pop
heinrichsweikamp
parents:
diff changeset
593
heinrichsweikamp
parents:
diff changeset
594 do_dispsets_menu:
155
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
595 MENU_BEGIN tDispSets, .4
0
heinrichsweikamp
parents:
diff changeset
596 MENU_OPTION tBright, oBrightness, 0
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
597 MENU_CALL tColorScheme, do_color_scheme
155
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
598 MENU_OPTION tFlip, oFlipScreen, 0
0
heinrichsweikamp
parents:
diff changeset
599 MENU_CALL tExit, do_return_settings
heinrichsweikamp
parents:
diff changeset
600 MENU_END
heinrichsweikamp
parents:
diff changeset
601
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
602
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
603 extern oColorSetDive
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
604 do_color_scheme:
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
605 bsf in_color_menu
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
606 MENU_BEGIN tColorScheme, .2
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
607 MENU_OPTION tColorSetDive,oColorSetDive, 0
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
608 MENU_CALL tExit, do_dispsets_menu_3stack
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
609 MENU_END
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
610
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 39
diff changeset
611
0
heinrichsweikamp
parents:
diff changeset
612 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
613
heinrichsweikamp
parents:
diff changeset
614 global new_battery_menu
heinrichsweikamp
parents:
diff changeset
615 new_battery_menu:
heinrichsweikamp
parents:
diff changeset
616 bsf enable_screen_dumps ; To prevent exiting into COMM mode immediately
heinrichsweikamp
parents:
diff changeset
617 call TFT_boot ; Initialize TFT (includes clear screen)
heinrichsweikamp
parents:
diff changeset
618 call TFT_Display_FadeIn ; Show splash
heinrichsweikamp
parents:
diff changeset
619 movlw .100
heinrichsweikamp
parents:
diff changeset
620 movwf batt_percent ; make sure to reset batt_percent
heinrichsweikamp
parents:
diff changeset
621
heinrichsweikamp
parents:
diff changeset
622 ; Default (In cases of timeout or USB): Use old battery
heinrichsweikamp
parents:
diff changeset
623 clrf EEADRH
heinrichsweikamp
parents:
diff changeset
624 read_int_eeprom 0x07
heinrichsweikamp
parents:
diff changeset
625 movff EEDATA,battery_gauge+0
heinrichsweikamp
parents:
diff changeset
626 read_int_eeprom 0x08
heinrichsweikamp
parents:
diff changeset
627 movff EEDATA,battery_gauge+1
heinrichsweikamp
parents:
diff changeset
628 read_int_eeprom 0x09
heinrichsweikamp
parents:
diff changeset
629 movff EEDATA,battery_gauge+2
heinrichsweikamp
parents:
diff changeset
630 read_int_eeprom 0x0A
heinrichsweikamp
parents:
diff changeset
631 movff EEDATA,battery_gauge+3
heinrichsweikamp
parents:
diff changeset
632 read_int_eeprom 0x0B
heinrichsweikamp
parents:
diff changeset
633 movff EEDATA,battery_gauge+4
heinrichsweikamp
parents:
diff changeset
634 read_int_eeprom 0x0C
heinrichsweikamp
parents:
diff changeset
635 movff EEDATA,battery_gauge+5
heinrichsweikamp
parents:
diff changeset
636
76
a5ea132770db 1.21 release
heinrichsweikamp
parents: 66
diff changeset
637 call menu_processor_reset ; restart from first icon.
a5ea132770db 1.21 release
heinrichsweikamp
parents: 66
diff changeset
638
0
heinrichsweikamp
parents:
diff changeset
639 MENU_BEGIN tNewBattTitle, .3
heinrichsweikamp
parents:
diff changeset
640 MENU_CALL tNewBattOld, use_old_batteries
heinrichsweikamp
parents:
diff changeset
641 MENU_CALL tNewBattNew36, use_new_36V_batteries
heinrichsweikamp
parents:
diff changeset
642 MENU_CALL tNewBattNew15, use_new_15V_batteries
heinrichsweikamp
parents:
diff changeset
643 MENU_END
heinrichsweikamp
parents:
diff changeset
644
heinrichsweikamp
parents:
diff changeset
645 global use_old_batteries
heinrichsweikamp
parents:
diff changeset
646 use_old_batteries:
heinrichsweikamp
parents:
diff changeset
647 clrf EEADRH
heinrichsweikamp
parents:
diff changeset
648 read_int_eeprom 0x07
heinrichsweikamp
parents:
diff changeset
649 movff EEDATA,battery_gauge+0
heinrichsweikamp
parents:
diff changeset
650 read_int_eeprom 0x08
heinrichsweikamp
parents:
diff changeset
651 movff EEDATA,battery_gauge+1
heinrichsweikamp
parents:
diff changeset
652 read_int_eeprom 0x09
heinrichsweikamp
parents:
diff changeset
653 movff EEDATA,battery_gauge+2
heinrichsweikamp
parents:
diff changeset
654 read_int_eeprom 0x0A
heinrichsweikamp
parents:
diff changeset
655 movff EEDATA,battery_gauge+3
heinrichsweikamp
parents:
diff changeset
656 read_int_eeprom 0x0B
heinrichsweikamp
parents:
diff changeset
657 movff EEDATA,battery_gauge+4
heinrichsweikamp
parents:
diff changeset
658 read_int_eeprom 0x0C
heinrichsweikamp
parents:
diff changeset
659 movff EEDATA,battery_gauge+5
heinrichsweikamp
parents:
diff changeset
660 movlw .100
heinrichsweikamp
parents:
diff changeset
661 movwf batt_percent ; To have 1,5V batteries right after firmware update
heinrichsweikamp
parents:
diff changeset
662 goto power_on_return
heinrichsweikamp
parents:
diff changeset
663
heinrichsweikamp
parents:
diff changeset
664 use_new_15V_batteries:
heinrichsweikamp
parents:
diff changeset
665 use_new_36V_batteries:
heinrichsweikamp
parents:
diff changeset
666 call reset_battery_pointer ; Resets battery pointer 0x07-0x0C and battery_gauge:5
heinrichsweikamp
parents:
diff changeset
667 goto power_on_return
heinrichsweikamp
parents:
diff changeset
668
heinrichsweikamp
parents:
diff changeset
669 END