Mercurial > public > hwos_code

annotate src/divemenu_tree.asm @ 401:7be43d886bb1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Logbook marker can be set in dive mode menu (OC only)
author heinrichsweikamp
date Sat, 09 Jan 2016 11:42:01 +0100
parents f0828110d864
children 6e60012bb3fc
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 divemenu_tree.asm
heinrichsweikamp
parents:
diff changeset
4 ;
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 249
diff changeset
5 ; OSTC dive mode menu
0
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 ; 2013-02-02 : [mH] Made out of menu_tree.asm
heinrichsweikamp
parents:
diff changeset
11
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 249
diff changeset
12 #include "hwos.inc" ; Mandatory header
0
heinrichsweikamp
parents:
diff changeset
13 #include "menu_processor.inc"
heinrichsweikamp
parents:
diff changeset
14 #include "shared_definitions.h" ; Mailbox from/to p2_deco.c
heinrichsweikamp
parents:
diff changeset
15 #include "tft_outputs.inc"
heinrichsweikamp
parents:
diff changeset
16 #include "customview.inc"
heinrichsweikamp
parents:
diff changeset
17 #include "strings.inc"
195
bca0f054f023 allow auto-return from setpoint fallback
heinrichsweikamp
parents: 193
diff changeset
18 #include "calibrate.inc"
0
heinrichsweikamp
parents:
diff changeset
19
heinrichsweikamp
parents:
diff changeset
20 divegui CODE
heinrichsweikamp
parents:
diff changeset
21 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
22 ; Main Menu
heinrichsweikamp
parents:
diff changeset
23 global do_main_divemenu
heinrichsweikamp
parents:
diff changeset
24 do_main_divemenu:
heinrichsweikamp
parents:
diff changeset
25 call menu_processor_reset ; restart from first icon.
heinrichsweikamp
parents:
diff changeset
26
heinrichsweikamp
parents:
diff changeset
27 do_continue_main_divemenu:
heinrichsweikamp
parents:
diff changeset
28 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
29 call menu_processor_pop ; drop exit line.
heinrichsweikamp
parents:
diff changeset
30
heinrichsweikamp
parents:
diff changeset
31 btfsc FLAG_ccr_mode
heinrichsweikamp
parents:
diff changeset
32 bra main_divemenu_ccr ; CCR Menu
heinrichsweikamp
parents:
diff changeset
33
heinrichsweikamp
parents:
diff changeset
34 bcf ccr_diluent_setup ; For OC gases
heinrichsweikamp
parents:
diff changeset
35 bcf is_bailout_menu
heinrichsweikamp
parents:
diff changeset
36 movlw .1
heinrichsweikamp
parents:
diff changeset
37 movwf menupos ; Set to first option in divemode menu
401
7be43d886bb1 Logbook marker can be set in dive mode menu (OC only)
heinrichsweikamp
parents: 377
diff changeset
38 MENU_BEGIN tMainMenu, .5
0
heinrichsweikamp
parents:
diff changeset
39 MENU_CALL tDivemenu_Gaslist, do_divemode_gaslist
heinrichsweikamp
parents:
diff changeset
40 MENU_CALL tDivemenu_ResetAvr, do_divemode_resetavr
heinrichsweikamp
parents:
diff changeset
41 MENU_CALL tDivemenu_ToggleGF, do_divemode_togglegf
401
7be43d886bb1 Logbook marker can be set in dive mode menu (OC only)
heinrichsweikamp
parents: 377
diff changeset
42 MENU_CALL tDivemenu_Marker, do_set_marker
0
heinrichsweikamp
parents:
diff changeset
43 MENU_CALL tExit, do_exit_divemode_menu
heinrichsweikamp
parents:
diff changeset
44 MENU_END
heinrichsweikamp
parents:
diff changeset
45
401
7be43d886bb1 Logbook marker can be set in dive mode menu (OC only)
heinrichsweikamp
parents: 377
diff changeset
46 do_set_marker:
7be43d886bb1 Logbook marker can be set in dive mode menu (OC only)
heinrichsweikamp
parents: 377
diff changeset
47 movlw d'6' ; Type of Alarm (Manual Marker)
7be43d886bb1 Logbook marker can be set in dive mode menu (OC only)
heinrichsweikamp
parents: 377
diff changeset
48 movwf AlarmType ; Copy to Alarm Register
7be43d886bb1 Logbook marker can be set in dive mode menu (OC only)
heinrichsweikamp
parents: 377
diff changeset
49 bsf event_occured ; Set Event Flag
7be43d886bb1 Logbook marker can be set in dive mode menu (OC only)
heinrichsweikamp
parents: 377
diff changeset
50 bra do_exit_divemode_menu ; And exit
7be43d886bb1 Logbook marker can be set in dive mode menu (OC only)
heinrichsweikamp
parents: 377
diff changeset
51
0
heinrichsweikamp
parents:
diff changeset
52 main_divemenu_ccr:
heinrichsweikamp
parents:
diff changeset
53 bsf ccr_diluent_setup ; For diluents
heinrichsweikamp
parents:
diff changeset
54 movlw .1
heinrichsweikamp
parents:
diff changeset
55 movwf menupos ; Set to first option in divemode menu
heinrichsweikamp
parents:
diff changeset
56 MENU_BEGIN tMainMenu, .6
heinrichsweikamp
parents:
diff changeset
57 MENU_CALL tDiveBailout, do_divemode_gaslist_bail
heinrichsweikamp
parents:
diff changeset
58 MENU_CALL tDivemenu_Setpoint, do_divemode_splist
heinrichsweikamp
parents:
diff changeset
59 MENU_CALL tDivemenu_Gaslist, do_divemode_gaslist
heinrichsweikamp
parents:
diff changeset
60 MENU_CALL tDivemenu_ResetAvr, do_divemode_resetavr
heinrichsweikamp
parents:
diff changeset
61 MENU_CALL tDivemenu_ToggleGF, do_divemode_togglegf
heinrichsweikamp
parents:
diff changeset
62 MENU_CALL tExit, do_exit_divemode_menu
heinrichsweikamp
parents:
diff changeset
63 MENU_END
heinrichsweikamp
parents:
diff changeset
64
heinrichsweikamp
parents:
diff changeset
65
heinrichsweikamp
parents:
diff changeset
66 do_togglegf:
heinrichsweikamp
parents:
diff changeset
67 TSTOSS opt_enable_aGF ; =1: aGF can be selected underwater
heinrichsweikamp
parents:
diff changeset
68 bra do_exit_divemode_menu ; exit
heinrichsweikamp
parents:
diff changeset
69 bsf toggle_gf ; Set flag...
heinrichsweikamp
parents:
diff changeset
70 bra do_exit_divemode_menu ; ...and exit
heinrichsweikamp
parents:
diff changeset
71
heinrichsweikamp
parents:
diff changeset
72 do_switch_to_sensor:
heinrichsweikamp
parents:
diff changeset
73 movlw .1 ; Switch to Sensor
heinrichsweikamp
parents:
diff changeset
74 movff WREG,opt_ccr_mode ; =0: Fixed SP, =1: Sensor
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 182
diff changeset
75 bsf voting_logic_sensor1
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 182
diff changeset
76 bsf voting_logic_sensor2
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 182
diff changeset
77 bsf voting_logic_sensor3
193
901c10831e4e reset voting logic on sensor switch
heinrichsweikamp
parents: 192
diff changeset
78 extern divemode_setup_sensor_values
901c10831e4e reset voting logic on sensor switch
heinrichsweikamp
parents: 192
diff changeset
79 call divemode_setup_sensor_values ; Setup sensor values
195
bca0f054f023 allow auto-return from setpoint fallback
heinrichsweikamp
parents: 193
diff changeset
80 call check_sensors ; Check O2 sensor thresholds for fallback
0
heinrichsweikamp
parents:
diff changeset
81 bra do_switch_sp2
heinrichsweikamp
parents:
diff changeset
82
heinrichsweikamp
parents:
diff changeset
83 do_divemode_resetavr:
heinrichsweikamp
parents:
diff changeset
84 bsf reset_average_depth ; Set Flag
heinrichsweikamp
parents:
diff changeset
85 bra do_exit_divemode_menu ; And exit
heinrichsweikamp
parents:
diff changeset
86
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 0
diff changeset
87
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 0
diff changeset
88 do_switch_gas6:
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 0
diff changeset
89 movlw .6
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 0
diff changeset
90 movwf active_gas ; Gas6 selected
377
f0828110d864 set char_I_current_gas for gas6 use
heinrichsweikamp
parents: 352
diff changeset
91 movff WREG,char_I_current_gas ; for p2_deco.c
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 0
diff changeset
92 bra do_switch_gasX
0
heinrichsweikamp
parents:
diff changeset
93 extern diveloop_loop4
heinrichsweikamp
parents:
diff changeset
94 extern timeout_divemode_menu2
heinrichsweikamp
parents:
diff changeset
95 do_switch_gas:
heinrichsweikamp
parents:
diff changeset
96 bsf divemode_gaschange ; Set flag
heinrichsweikamp
parents:
diff changeset
97 do_switch_gasX:
heinrichsweikamp
parents:
diff changeset
98 btfsc is_bailout_menu ; Bailout confirmed?
heinrichsweikamp
parents:
diff changeset
99 bsf is_bailout ; =1: Bailout
heinrichsweikamp
parents:
diff changeset
100 do_exit_divemode_menu:
heinrichsweikamp
parents:
diff changeset
101 call timeout_divemode_menu2
heinrichsweikamp
parents:
diff changeset
102 clrf STKPTR
heinrichsweikamp
parents:
diff changeset
103 goto diveloop_loop4
heinrichsweikamp
parents:
diff changeset
104
heinrichsweikamp
parents:
diff changeset
105 do_switch_sp:
heinrichsweikamp
parents:
diff changeset
106 decf menupos,W ; 1-5 -> 0-4
heinrichsweikamp
parents:
diff changeset
107 lfsr FSR1,char_I_setpoint_cbar
heinrichsweikamp
parents:
diff changeset
108 movff PLUSW1,char_I_const_ppO2; Setup fixed Setpoint
352
5c6da9fa5cb0 add setpoint change to first sample in CCR mode
heinrichsweikamp
parents: 275
diff changeset
109 movff char_I_const_ppO2,WREG
5c6da9fa5cb0 add setpoint change to first sample in CCR mode
heinrichsweikamp
parents: 275
diff changeset
110 call transmit_setpoint ; Transmit current setpoint from WREG (in cbar) to external electronics
0
heinrichsweikamp
parents:
diff changeset
111 bsf setpoint_changed ; Set flag (For profile)
99
87cc1adfe4da show event "bailout" in the internal logbook
heinrichsweikamp
parents: 97
diff changeset
112 bsf event_occured ; Set global event byte
0
heinrichsweikamp
parents:
diff changeset
113
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 53
diff changeset
114 ; Reconfigure last diluent
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 53
diff changeset
115 extern setup_dil_registers
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 53
diff changeset
116 bcf is_bailout ; =1: Bailout
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 53
diff changeset
117 movff active_diluent,WREG ; As a backup when switching back from Bailout to CCR
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 53
diff changeset
118 decf WREG ; 0-4
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 53
diff changeset
119 call setup_dil_registers ; With WREG=Gas 0-4
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 53
diff changeset
120
0
heinrichsweikamp
parents:
diff changeset
121 clrf WREG ; Switch to fixed SP
heinrichsweikamp
parents:
diff changeset
122 movff WREG,opt_ccr_mode ; =0: Fixed SP, =1: Sensor
heinrichsweikamp
parents:
diff changeset
123 clrf WREG
heinrichsweikamp
parents:
diff changeset
124 movff WREG,char_O_deco_status ; Restart decoplan computation
heinrichsweikamp
parents:
diff changeset
125
heinrichsweikamp
parents:
diff changeset
126 do_switch_sp2:
heinrichsweikamp
parents:
diff changeset
127 ; Clear some flags in case we were in bailout before...
heinrichsweikamp
parents:
diff changeset
128 bcf is_bailout ; =1: Bailout
heinrichsweikamp
parents:
diff changeset
129 bcf is_bailout_menu ;
heinrichsweikamp
parents:
diff changeset
130 bcf better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
heinrichsweikamp
parents:
diff changeset
131 bcf blinking_better_gas ; Clear blinking flag
heinrichsweikamp
parents:
diff changeset
132 bra do_exit_divemode_menu ; And exit
heinrichsweikamp
parents:
diff changeset
133
heinrichsweikamp
parents:
diff changeset
134 do_divemode_gaslist_bail:
heinrichsweikamp
parents:
diff changeset
135 bcf ccr_diluent_setup ; For OC gases
heinrichsweikamp
parents:
diff changeset
136 bsf is_bailout_menu ; =1: Bailout
heinrichsweikamp
parents:
diff changeset
137 do_divemode_gaslist:
heinrichsweikamp
parents:
diff changeset
138 btfsc is_bailout ; In Bailout case?
heinrichsweikamp
parents:
diff changeset
139 bcf ccr_diluent_setup ; Yes, use OC gases
heinrichsweikamp
parents:
diff changeset
140 bsf short_gas_decriptions
heinrichsweikamp
parents:
diff changeset
141 movlw .1
heinrichsweikamp
parents:
diff changeset
142 movwf menupos ; Set to first option in divemode menu
heinrichsweikamp
parents:
diff changeset
143 MENU_BEGIN tGaslist, .6
heinrichsweikamp
parents:
diff changeset
144 MENU_DYNAMIC gaslist_strcat_gas_mod, do_switch_gas
heinrichsweikamp
parents:
diff changeset
145 MENU_DYNAMIC gaslist_strcat_gas_mod, do_switch_gas
heinrichsweikamp
parents:
diff changeset
146 MENU_DYNAMIC gaslist_strcat_gas_mod, do_switch_gas
heinrichsweikamp
parents:
diff changeset
147 MENU_DYNAMIC gaslist_strcat_gas_mod, do_switch_gas
heinrichsweikamp
parents:
diff changeset
148 MENU_DYNAMIC gaslist_strcat_gas_mod, do_switch_gas
heinrichsweikamp
parents:
diff changeset
149 MENU_CALL tMore, do_divemode_gaslist_more0
heinrichsweikamp
parents:
diff changeset
150 MENU_END
heinrichsweikamp
parents:
diff changeset
151
heinrichsweikamp
parents:
diff changeset
152 do_divemode_gaslist_more0:
heinrichsweikamp
parents:
diff changeset
153 movlw .1
heinrichsweikamp
parents:
diff changeset
154 movwf menupos ; Set to first option in divemode menu
heinrichsweikamp
parents:
diff changeset
155 do_divemode_gaslist_more:
heinrichsweikamp
parents:
diff changeset
156 MENU_BEGIN tGaslist, .6
heinrichsweikamp
parents:
diff changeset
157 MENU_DYNAMIC gaslist_strcat_gasx, do_dive_nothing
heinrichsweikamp
parents:
diff changeset
158 MENU_CALL tO2Plus, do_dive_pO2
heinrichsweikamp
parents:
diff changeset
159 MENU_CALL tO2Minus, do_dive_mO2
heinrichsweikamp
parents:
diff changeset
160 MENU_CALL tHePlus, do_dive_pHe
heinrichsweikamp
parents:
diff changeset
161 MENU_CALL tHeMinus, do_dive_mHe
182
93023d78812e minor cleanup
heinrichsweikamp
parents: 181
diff changeset
162 MENU_CALL tExit, do_switch_gas6
0
heinrichsweikamp
parents:
diff changeset
163 MENU_END
heinrichsweikamp
parents:
diff changeset
164
heinrichsweikamp
parents:
diff changeset
165 do_dive_nothing:
heinrichsweikamp
parents:
diff changeset
166 bra do_divemode_gaslist_more
heinrichsweikamp
parents:
diff changeset
167
heinrichsweikamp
parents:
diff changeset
168 do_dive_pO2:
heinrichsweikamp
parents:
diff changeset
169 banksel char_I_O2_ratio
heinrichsweikamp
parents:
diff changeset
170 incf char_I_O2_ratio,F ; O2++
heinrichsweikamp
parents:
diff changeset
171 movf char_I_He_ratio,W
heinrichsweikamp
parents:
diff changeset
172 addwf char_I_O2_ratio,W
heinrichsweikamp
parents:
diff changeset
173 movwf temp_bankx400
heinrichsweikamp
parents:
diff changeset
174 movlw .101
heinrichsweikamp
parents:
diff changeset
175 cpfslt temp_bankx400 ; O2+He<101?
heinrichsweikamp
parents:
diff changeset
176 decf char_I_O2_ratio,F ; O2-- (Unchanged)
heinrichsweikamp
parents:
diff changeset
177 ; bra do_divemode_gaslist_more_common
heinrichsweikamp
parents:
diff changeset
178 do_divemode_gaslist_more_common:
181
32c17df38423 BUGFIX: END/EAD updated when adjusting current gas during the dive
heinrichsweikamp
parents: 99
diff changeset
179 movf char_I_O2_ratio,W ; Add O2...
32c17df38423 BUGFIX: END/EAD updated when adjusting current gas during the dive
heinrichsweikamp
parents: 99
diff changeset
180 addwf char_I_He_ratio,W ; ...and He...
32c17df38423 BUGFIX: END/EAD updated when adjusting current gas during the dive
heinrichsweikamp
parents: 99
diff changeset
181 sublw .100 ; ...subtract both from 100
32c17df38423 BUGFIX: END/EAD updated when adjusting current gas during the dive
heinrichsweikamp
parents: 99
diff changeset
182 movwf char_I_N2_ratio ; -> N2!
0
heinrichsweikamp
parents:
diff changeset
183 banksel common
heinrichsweikamp
parents:
diff changeset
184 bsf gas6_changed ; Set flag
heinrichsweikamp
parents:
diff changeset
185 bra do_divemode_gaslist_more
heinrichsweikamp
parents:
diff changeset
186
heinrichsweikamp
parents:
diff changeset
187 do_dive_mO2:
heinrichsweikamp
parents:
diff changeset
188 banksel char_I_O2_ratio
heinrichsweikamp
parents:
diff changeset
189 decf char_I_O2_ratio,F ; O2--
heinrichsweikamp
parents:
diff changeset
190 movlw gaslist_min_o2
heinrichsweikamp
parents:
diff changeset
191 cpfslt char_I_O2_ratio
heinrichsweikamp
parents:
diff changeset
192 bra do_divemode_gaslist_more_common
heinrichsweikamp
parents:
diff changeset
193 movlw gaslist_min_o2
heinrichsweikamp
parents:
diff changeset
194 movwf char_I_O2_ratio
heinrichsweikamp
parents:
diff changeset
195 bra do_divemode_gaslist_more_common
heinrichsweikamp
parents:
diff changeset
196
heinrichsweikamp
parents:
diff changeset
197
heinrichsweikamp
parents:
diff changeset
198 do_dive_pHe:
heinrichsweikamp
parents:
diff changeset
199 banksel char_I_O2_ratio
heinrichsweikamp
parents:
diff changeset
200 incf char_I_He_ratio,F ; He++
heinrichsweikamp
parents:
diff changeset
201 movf char_I_He_ratio,W
heinrichsweikamp
parents:
diff changeset
202 addwf char_I_O2_ratio,W
heinrichsweikamp
parents:
diff changeset
203 movwf lo
heinrichsweikamp
parents:
diff changeset
204 movlw .101
heinrichsweikamp
parents:
diff changeset
205 cpfslt lo ; O2+He<101?
heinrichsweikamp
parents:
diff changeset
206 decf char_I_He_ratio,F ; Yes, He-- (Unchanged)
heinrichsweikamp
parents:
diff changeset
207 bra do_divemode_gaslist_more_common
heinrichsweikamp
parents:
diff changeset
208
heinrichsweikamp
parents:
diff changeset
209 do_dive_mHe:
heinrichsweikamp
parents:
diff changeset
210 banksel char_I_O2_ratio
heinrichsweikamp
parents:
diff changeset
211 decf char_I_He_ratio,F ; He--
heinrichsweikamp
parents:
diff changeset
212 bnn do_divemode_gaslist_more_common
heinrichsweikamp
parents:
diff changeset
213 clrf char_I_He_ratio
heinrichsweikamp
parents:
diff changeset
214 bra do_divemode_gaslist_more_common
heinrichsweikamp
parents:
diff changeset
215
heinrichsweikamp
parents:
diff changeset
216 do_divemode_splist:
heinrichsweikamp
parents:
diff changeset
217 bsf short_gas_decriptions
heinrichsweikamp
parents:
diff changeset
218 movlw .1
heinrichsweikamp
parents:
diff changeset
219 movwf menupos ; Set to first option in divemode menu
249
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 195
diff changeset
220 movf hardware_flag,W
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 195
diff changeset
221 sublw 0x11 ; 2 with BLE
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 195
diff changeset
222 btfsc STATUS,Z
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 195
diff changeset
223 bra do_divemode_splist2
0
heinrichsweikamp
parents:
diff changeset
224 MENU_BEGIN tGaslist, .6
heinrichsweikamp
parents:
diff changeset
225 MENU_DYNAMIC gaslist_strcat_setpoint, do_switch_sp
heinrichsweikamp
parents:
diff changeset
226 MENU_DYNAMIC gaslist_strcat_setpoint, do_switch_sp
heinrichsweikamp
parents:
diff changeset
227 MENU_DYNAMIC gaslist_strcat_setpoint, do_switch_sp
heinrichsweikamp
parents:
diff changeset
228 MENU_DYNAMIC gaslist_strcat_setpoint, do_switch_sp
heinrichsweikamp
parents:
diff changeset
229 MENU_DYNAMIC gaslist_strcat_setpoint, do_switch_sp
heinrichsweikamp
parents:
diff changeset
230 MENU_CALL tCCRSensor, do_divemode_sensor
heinrichsweikamp
parents:
diff changeset
231 MENU_END
heinrichsweikamp
parents:
diff changeset
232
249
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 195
diff changeset
233 do_divemode_splist2:
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 195
diff changeset
234 MENU_BEGIN tGaslist, .5
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 195
diff changeset
235 MENU_DYNAMIC gaslist_strcat_setpoint, do_switch_sp
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 195
diff changeset
236 MENU_DYNAMIC gaslist_strcat_setpoint, do_switch_sp
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 195
diff changeset
237 MENU_DYNAMIC gaslist_strcat_setpoint, do_switch_sp
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 195
diff changeset
238 MENU_DYNAMIC gaslist_strcat_setpoint, do_switch_sp
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 195
diff changeset
239 MENU_DYNAMIC gaslist_strcat_setpoint, do_switch_sp
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 195
diff changeset
240 MENU_END
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 195
diff changeset
241
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 195
diff changeset
242
0
heinrichsweikamp
parents:
diff changeset
243 do_divemode_sensor:
heinrichsweikamp
parents:
diff changeset
244 ; Set customview to 1 (HUD Data)
heinrichsweikamp
parents:
diff changeset
245 clrf menupos3 ; customview to come-1
heinrichsweikamp
parents:
diff changeset
246 bsf toggle_customview ; Set flag, the customview will be toggled very soon now...
heinrichsweikamp
parents:
diff changeset
247 movlw .1
heinrichsweikamp
parents:
diff changeset
248 movwf menupos ; Set to first option in divemode menu
heinrichsweikamp
parents:
diff changeset
249 MENU_BEGIN tGaslist, .2
heinrichsweikamp
parents:
diff changeset
250 MENU_CALL tDivemenu_UseSensor, do_switch_to_sensor
heinrichsweikamp
parents:
diff changeset
251 MENU_CALL tExit, do_continue_main_divemenu
heinrichsweikamp
parents:
diff changeset
252 MENU_END
heinrichsweikamp
parents:
diff changeset
253
heinrichsweikamp
parents:
diff changeset
254 do_divemode_togglegf:
heinrichsweikamp
parents:
diff changeset
255 ; Set customview to 5 (GF informations)
heinrichsweikamp
parents:
diff changeset
256 movlw .4
heinrichsweikamp
parents:
diff changeset
257 movwf menupos3 ; Customview to come-1
heinrichsweikamp
parents:
diff changeset
258 bsf toggle_customview ; Set flag, the customview will be toggled very soon now...
heinrichsweikamp
parents:
diff changeset
259 movlw .1
heinrichsweikamp
parents:
diff changeset
260 movwf menupos ; Set to first option in divemode menu
heinrichsweikamp
parents:
diff changeset
261 MENU_BEGIN tDivemenu_ToggleGF, .2
heinrichsweikamp
parents:
diff changeset
262 MENU_CALL tDivemenu_ToggleGF, do_togglegf
heinrichsweikamp
parents:
diff changeset
263 MENU_CALL tExit, do_continue_main_divemenu
heinrichsweikamp
parents:
diff changeset
264 MENU_END
heinrichsweikamp
parents:
diff changeset
265
heinrichsweikamp
parents:
diff changeset
266 END