Mercurial > public > hwos_code

annotate src/gaslist.asm @ 540:9a17b1db095b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Re-insert Rev. 530 changes into gaslist.asm
author heinrichsweikamp
date Mon, 28 Aug 2017 18:45:45 +0200
parents a7ac5d3fd046
children b7eb98dbd800
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 gaslist.asm
heinrichsweikamp
parents:
diff changeset
4 ;
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 225
diff changeset
5 ; Managing OSTC gas list
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 ; 2011-08-11 : [jDG] Creation.
heinrichsweikamp
parents:
diff changeset
11
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 225
diff changeset
12 #include "hwos.inc" ; Mandatory header
0
heinrichsweikamp
parents:
diff changeset
13 #include "convert.inc"
heinrichsweikamp
parents:
diff changeset
14 #include "math.inc" ; div16x16 for MOD calculations
heinrichsweikamp
parents:
diff changeset
15 #include "strings.inc"
heinrichsweikamp
parents:
diff changeset
16 #include "tft.inc"
heinrichsweikamp
parents:
diff changeset
17 #include "tft_outputs.inc"
heinrichsweikamp
parents:
diff changeset
18
heinrichsweikamp
parents:
diff changeset
19 #include "shared_definitions.h"
heinrichsweikamp
parents:
diff changeset
20
heinrichsweikamp
parents:
diff changeset
21 CBLOCK tmp+0x40 ; Keep space for menu processor
174
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 160
diff changeset
22 gaslist_gas ; Check ram position in menu_tree.asm, too!
0
heinrichsweikamp
parents:
diff changeset
23 gaslist_O2
heinrichsweikamp
parents:
diff changeset
24 gaslist_He
heinrichsweikamp
parents:
diff changeset
25 gaslist_depth
heinrichsweikamp
parents:
diff changeset
26 gaslist_Type
heinrichsweikamp
parents:
diff changeset
27 ; Reserved to tmp+0x5F
heinrichsweikamp
parents:
diff changeset
28 ENDC
heinrichsweikamp
parents:
diff changeset
29
heinrichsweikamp
parents:
diff changeset
30 extern convert_mbar_to_feet
heinrichsweikamp
parents:
diff changeset
31
heinrichsweikamp
parents:
diff changeset
32 gui CODE
heinrichsweikamp
parents:
diff changeset
33 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
34 ; Append gas description to current string.
heinrichsweikamp
parents:
diff changeset
35 ; Input: PRODL : gas number (0..4)
heinrichsweikamp
parents:
diff changeset
36 ; FSR2 : Current string position.
heinrichsweikamp
parents:
diff changeset
37 ; Output: Text appended into buffer pointed by FSR2.
heinrichsweikamp
parents:
diff changeset
38 extern customview_show_mix
heinrichsweikamp
parents:
diff changeset
39 global gaslist_strcat_gas
heinrichsweikamp
parents:
diff changeset
40 gaslist_strcat_gas:
heinrichsweikamp
parents:
diff changeset
41 rcall gaslist_setgas ; Sets gaslist_gas (0-4 for OC/Bailout, 5-9 for Diluents)
heinrichsweikamp
parents:
diff changeset
42 ; Retrieve gas definition:
heinrichsweikamp
parents:
diff changeset
43 gaslist_strcat_gas_0:
heinrichsweikamp
parents:
diff changeset
44 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
45 lfsr FSR1,opt_gas_O2_ratio ; Read opt_gas_O2_ratio[WREG]
heinrichsweikamp
parents:
diff changeset
46 movff PLUSW1,gaslist_O2
heinrichsweikamp
parents:
diff changeset
47 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
48 lfsr FSR1,opt_gas_He_ratio ; Read opt_gas_He_ratio[WREG]
heinrichsweikamp
parents:
diff changeset
49 movff PLUSW1,gaslist_He
heinrichsweikamp
parents:
diff changeset
50
heinrichsweikamp
parents:
diff changeset
51 movff gaslist_O2,lo
heinrichsweikamp
parents:
diff changeset
52 movff gaslist_He,hi
540
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
53 goto customview_show_mix ; Put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2, and RETURN
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
54
0
heinrichsweikamp
parents:
diff changeset
55
heinrichsweikamp
parents:
diff changeset
56
heinrichsweikamp
parents:
diff changeset
57 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
58 ; Append current mix to current string (For divemode)
heinrichsweikamp
parents:
diff changeset
59 ; Input: FSR2 : Current string position.
heinrichsweikamp
parents:
diff changeset
60 ; Output: Text appended into buffer pointed by FSR2.
heinrichsweikamp
parents:
diff changeset
61 global gaslist_strcat_gasx
heinrichsweikamp
parents:
diff changeset
62 gaslist_strcat_gasx: ; Show current O2/He mix
heinrichsweikamp
parents:
diff changeset
63 STRCAT_TEXT tGas
heinrichsweikamp
parents:
diff changeset
64 STRCAT ": "
heinrichsweikamp
parents:
diff changeset
65 movff char_I_O2_ratio,lo
heinrichsweikamp
parents:
diff changeset
66 movff char_I_He_ratio,hi
540
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
67 goto customview_show_mix ; Put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2, and RETURN
0
heinrichsweikamp
parents:
diff changeset
68
heinrichsweikamp
parents:
diff changeset
69 global gaslist_show_type
heinrichsweikamp
parents:
diff changeset
70 extern tGasDisabled
heinrichsweikamp
parents:
diff changeset
71 extern tDilDisabled
heinrichsweikamp
parents:
diff changeset
72 gaslist_show_type:
heinrichsweikamp
parents:
diff changeset
73 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
74 lfsr FSR1,opt_gas_type ; Read opt_gas_type[WREG]
heinrichsweikamp
parents:
diff changeset
75 movff PLUSW1,gaslist_Type
heinrichsweikamp
parents:
diff changeset
76 STRCAT_TEXT tType
heinrichsweikamp
parents:
diff changeset
77 lfsr FSR1,tGasDisabled ; Base text number
heinrichsweikamp
parents:
diff changeset
78 btfsc ccr_diluent_setup ; In CCR setup?
heinrichsweikamp
parents:
diff changeset
79 lfsr FSR1,tDilDisabled ; Base text number
heinrichsweikamp
parents:
diff changeset
80 movff gaslist_Type,WREG ; 0-3
heinrichsweikamp
parents:
diff changeset
81 rlncf WREG ; x2
heinrichsweikamp
parents:
diff changeset
82 addwf FSR1L,F
heinrichsweikamp
parents:
diff changeset
83 movlw .0
heinrichsweikamp
parents:
diff changeset
84 addwfc FSR1H,F
heinrichsweikamp
parents:
diff changeset
85 call strcat_text
heinrichsweikamp
parents:
diff changeset
86 return
heinrichsweikamp
parents:
diff changeset
87
heinrichsweikamp
parents:
diff changeset
88 global gaslist_toggle_type
heinrichsweikamp
parents:
diff changeset
89 gaslist_toggle_type:
heinrichsweikamp
parents:
diff changeset
90 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
91 lfsr FSR1,opt_gas_type ; Read opt_gas_type[WREG]
heinrichsweikamp
parents:
diff changeset
92 movff PLUSW1,gaslist_Type
heinrichsweikamp
parents:
diff changeset
93 incf gaslist_Type,F ; 0-3/0-2
heinrichsweikamp
parents:
diff changeset
94 btfsc ccr_diluent_setup ; In CCR setup?
heinrichsweikamp
parents:
diff changeset
95 bra gaslist_toggle_type2 ; Yes
heinrichsweikamp
parents:
diff changeset
96 btfsc gaslist_Type,2 ; >3?
heinrichsweikamp
parents:
diff changeset
97 clrf gaslist_Type ; Clear to zero
heinrichsweikamp
parents:
diff changeset
98 movff gaslist_Type,PLUSW1 ; Copy back result
heinrichsweikamp
parents:
diff changeset
99 return
heinrichsweikamp
parents:
diff changeset
100
heinrichsweikamp
parents:
diff changeset
101 gaslist_toggle_type2:
heinrichsweikamp
parents:
diff changeset
102 movlw .3
heinrichsweikamp
parents:
diff changeset
103 cpfslt gaslist_Type ; >2?
heinrichsweikamp
parents:
diff changeset
104 clrf gaslist_Type ; Clear to zero
heinrichsweikamp
parents:
diff changeset
105 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
106 movff gaslist_Type,PLUSW1 ; Copy back result
heinrichsweikamp
parents:
diff changeset
107 return
heinrichsweikamp
parents:
diff changeset
108
heinrichsweikamp
parents:
diff changeset
109 global gaslist_setSP
heinrichsweikamp
parents:
diff changeset
110 gaslist_setSP:
heinrichsweikamp
parents:
diff changeset
111 movff PRODL,gaslist_gas ; 0-4
heinrichsweikamp
parents:
diff changeset
112 return
heinrichsweikamp
parents:
diff changeset
113
heinrichsweikamp
parents:
diff changeset
114 extern tbar
heinrichsweikamp
parents:
diff changeset
115 global gaslist_strcat_setpoint
heinrichsweikamp
parents:
diff changeset
116 global gaslist_strcat_setpoint_0
heinrichsweikamp
parents:
diff changeset
117 gaslist_strcat_setpoint:
heinrichsweikamp
parents:
diff changeset
118 call gaslist_setSP
heinrichsweikamp
parents:
diff changeset
119 gaslist_strcat_setpoint_0:
heinrichsweikamp
parents:
diff changeset
120 bsf leftbind
heinrichsweikamp
parents:
diff changeset
121 btfsc short_gas_decriptions ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint
heinrichsweikamp
parents:
diff changeset
122 bra gaslist_strcat_setpoint2 ; Short version
heinrichsweikamp
parents:
diff changeset
123 STRCAT_TEXT tSP
heinrichsweikamp
parents:
diff changeset
124 incf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
125 movwf lo
heinrichsweikamp
parents:
diff changeset
126 output_8
heinrichsweikamp
parents:
diff changeset
127 bcf leftbind
heinrichsweikamp
parents:
diff changeset
128 PUTC ":"
heinrichsweikamp
parents:
diff changeset
129 gaslist_strcat_setpoint2: ; Short version
heinrichsweikamp
parents:
diff changeset
130 btfsc divemode
heinrichsweikamp
parents:
diff changeset
131 bra gaslist_strcat_setpoint4 ; no "*" in divemode
95
3dfc2b7ced6d BUGFIX: Show "*" always in front of the initial Setpoint 1
heinrichsweikamp
parents: 50
diff changeset
132 movf gaslist_gas,W ; Number-1 into WREG
3dfc2b7ced6d BUGFIX: Show "*" always in front of the initial Setpoint 1
heinrichsweikamp
parents: 50
diff changeset
133 bnz gaslist_strcat_setpoint3 ; Not SP1
0
heinrichsweikamp
parents:
diff changeset
134 PUTC "*"
heinrichsweikamp
parents:
diff changeset
135 bra gaslist_strcat_setpoint4
heinrichsweikamp
parents:
diff changeset
136 gaslist_strcat_setpoint3:
heinrichsweikamp
parents:
diff changeset
137 PUTC " "
heinrichsweikamp
parents:
diff changeset
138 gaslist_strcat_setpoint4:
heinrichsweikamp
parents:
diff changeset
139 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
140 lfsr FSR1,char_I_setpoint_cbar
heinrichsweikamp
parents:
diff changeset
141 movf PLUSW1,W
heinrichsweikamp
parents:
diff changeset
142 movwf lo
heinrichsweikamp
parents:
diff changeset
143 clrf hi
heinrichsweikamp
parents:
diff changeset
144 bsf leftbind
heinrichsweikamp
parents:
diff changeset
145 output_16dp d'3'
heinrichsweikamp
parents:
diff changeset
146 btfsc divemode
heinrichsweikamp
parents:
diff changeset
147 bra gaslist_strcat_setpoint5 ; Skip text in divemode
heinrichsweikamp
parents:
diff changeset
148 STRCAT_TEXT tbar
heinrichsweikamp
parents:
diff changeset
149 gaslist_strcat_setpoint5:
heinrichsweikamp
parents:
diff changeset
150 PUTC " "
heinrichsweikamp
parents:
diff changeset
151 ; Read switch depth
heinrichsweikamp
parents:
diff changeset
152 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
153 lfsr FSR1,char_I_setpoint_change
heinrichsweikamp
parents:
diff changeset
154 movff PLUSW1,lo
534
a7ac5d3fd046 Setpoint Change Depth Fix
heinrichsweikamp
parents: 532
diff changeset
155
a7ac5d3fd046 Setpoint Change Depth Fix
heinrichsweikamp
parents: 532
diff changeset
156 bsf ccr_diluent_setup ; inhibit output of "----" for depth
a7ac5d3fd046 Setpoint Change Depth Fix
heinrichsweikamp
parents: 532
diff changeset
157 call gaslist_strcat_5
a7ac5d3fd046 Setpoint Change Depth Fix
heinrichsweikamp
parents: 532
diff changeset
158 bcf ccr_diluent_setup
a7ac5d3fd046 Setpoint Change Depth Fix
heinrichsweikamp
parents: 532
diff changeset
159 return
0
heinrichsweikamp
parents:
diff changeset
160
heinrichsweikamp
parents:
diff changeset
161 ;----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
162 ; Append gas description to current string.
heinrichsweikamp
parents:
diff changeset
163 ; Input: PRODL : gas number (0..4)
heinrichsweikamp
parents:
diff changeset
164 ; FSR2 : Current string position.
heinrichsweikamp
parents:
diff changeset
165 ; Output: Text appended into buffer pointed by FSR2.
heinrichsweikamp
parents:
diff changeset
166 ;
heinrichsweikamp
parents:
diff changeset
167 ; NOTE: used in the menu-tree for the MENU_CALLBACK entry.
heinrichsweikamp
parents:
diff changeset
168
heinrichsweikamp
parents:
diff changeset
169 gaslist_strcat_gas_better: ; Yes, check if this is a "better gas"
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 174
diff changeset
170 bcf win_invert
160
99ac325586ce BUGFIX: Fast diluent (w/o dive mode menu) change did not work correctly
heinrichsweikamp
parents: 154
diff changeset
171 decf better_gas_number,W ; better_gas_number-1 -> WREG
99ac325586ce BUGFIX: Fast diluent (w/o dive mode menu) change did not work correctly
heinrichsweikamp
parents: 154
diff changeset
172 btfsc ccr_diluent_setup ; in CCR menus?
99ac325586ce BUGFIX: Fast diluent (w/o dive mode menu) change did not work correctly
heinrichsweikamp
parents: 154
diff changeset
173 addlw .5 ; Yes, offset to gases 5-9
99ac325586ce BUGFIX: Fast diluent (w/o dive mode menu) change did not work correctly
heinrichsweikamp
parents: 154
diff changeset
174 cpfseq gaslist_gas ; 0-4 for OC/Bailout, 5-9 for Diluents
0
heinrichsweikamp
parents:
diff changeset
175 return
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 14
diff changeset
176 call TFT_attention_color ; show in yellow
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 174
diff changeset
177 bsf win_invert ; And invert
0
heinrichsweikamp
parents:
diff changeset
178 return
heinrichsweikamp
parents:
diff changeset
179
heinrichsweikamp
parents:
diff changeset
180 global gaslist_strcat_gas_mod
heinrichsweikamp
parents:
diff changeset
181 gaslist_strcat_gas_mod:
heinrichsweikamp
parents:
diff changeset
182 rcall gaslist_setgas ; Sets gaslist_gas (0-4 for OC/Bailout, 5-9 for Diluents)
heinrichsweikamp
parents:
diff changeset
183
heinrichsweikamp
parents:
diff changeset
184 global gaslist_gastitle
heinrichsweikamp
parents:
diff changeset
185 gaslist_gastitle:
heinrichsweikamp
parents:
diff changeset
186 btfsc short_gas_decriptions ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint
heinrichsweikamp
parents:
diff changeset
187 bra gaslist_gastitle2 ; Short version
heinrichsweikamp
parents:
diff changeset
188 STRCAT_TEXT tGas
heinrichsweikamp
parents:
diff changeset
189 incf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
190 movwf lo
heinrichsweikamp
parents:
diff changeset
191 bsf leftbind
heinrichsweikamp
parents:
diff changeset
192 output_8
heinrichsweikamp
parents:
diff changeset
193 bcf leftbind
heinrichsweikamp
parents:
diff changeset
194 PUTC ":"
heinrichsweikamp
parents:
diff changeset
195
heinrichsweikamp
parents:
diff changeset
196 gaslist_gastitle2: ; Short version
heinrichsweikamp
parents:
diff changeset
197 lfsr FSR1,opt_gas_type
heinrichsweikamp
parents:
diff changeset
198 btfsc divemode
heinrichsweikamp
parents:
diff changeset
199 bra gaslist_gastitle3 ; no "*" in divemode
heinrichsweikamp
parents:
diff changeset
200 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
201 decf PLUSW1,W ; Type-1 into WREG
heinrichsweikamp
parents:
diff changeset
202 bnz gaslist_gastitle1 ; Not "First"
heinrichsweikamp
parents:
diff changeset
203 PUTC "*"
heinrichsweikamp
parents:
diff changeset
204 bra gaslist_gastitle3
heinrichsweikamp
parents:
diff changeset
205 gaslist_gastitle1:
heinrichsweikamp
parents:
diff changeset
206 PUTC " "
heinrichsweikamp
parents:
diff changeset
207 gaslist_gastitle3: ; Short version
heinrichsweikamp
parents:
diff changeset
208 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
209
heinrichsweikamp
parents:
diff changeset
210 btfsc divemode ; In divemode?
heinrichsweikamp
parents:
diff changeset
211 rcall gaslist_strcat_gas_better ; Yes, check if this is a "better gas"
heinrichsweikamp
parents:
diff changeset
212
heinrichsweikamp
parents:
diff changeset
213 movf gaslist_gas,W ; (0-4 for OC/Bailout, 5-9 for Diluents)
heinrichsweikamp
parents:
diff changeset
214 movf PLUSW1,W
heinrichsweikamp
parents:
diff changeset
215 bnz gaslist_strcat_3
heinrichsweikamp
parents:
diff changeset
216 call TFT_disabled_color
540
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
217 bra gaslist_strcat_4 ; NEW ; No MOD-check and red color for disabled gases
0
heinrichsweikamp
parents:
diff changeset
218 gaslist_strcat_3:
521
06e9370c6d75 CHANGE: Apply safety margin parameters to both models (GF and non-GF)
heinrichsweikamp
parents: 518
diff changeset
219 rcall gaslist_strcat_gas_0
06e9370c6d75 CHANGE: Apply safety margin parameters to both models (GF and non-GF)
heinrichsweikamp
parents: 518
diff changeset
220 PUTC " "
0
heinrichsweikamp
parents:
diff changeset
221 ; Read switch depth
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
222 lfsr FSR1,char_I_dil_change-.5 ; Setup Diluents-5
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
223 movlw .4
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
224 cpfsgt gaslist_gas ; >4? (-> Diluents)
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
225 lfsr FSR1,opt_OC_bail_gas_change ; Setup OC Gases
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
226
0
heinrichsweikamp
parents:
diff changeset
227 movf gaslist_gas,W ; (0-4 for OC/Bailout, 5-9 for Diluents)
heinrichsweikamp
parents:
diff changeset
228 movff PLUSW1,lo
heinrichsweikamp
parents:
diff changeset
229 rcall gaslist_calc_mod ; Compute MOD into WREG
heinrichsweikamp
parents:
diff changeset
230 cpfsgt lo
521
06e9370c6d75 CHANGE: Apply safety margin parameters to both models (GF and non-GF)
heinrichsweikamp
parents: 518
diff changeset
231 bra gaslist_strcat_5
540
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
232 call TFT_warnings_color ; Turn red if bigger
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
233 bra gaslist_strcat_5 ; skip gaslist_strcat_gas_0 here
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
234 gaslist_strcat_4:
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
235 rcall gaslist_strcat_gas_0
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
236 PUTC " "
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
237
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
238 ; Dummy code, needs some cleanup somedays...
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
239 ; Read switch depth
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
240 lfsr FSR1,char_I_dil_change-.5 ; Setup Diluents-5
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
241 movlw .4
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
242 cpfsgt gaslist_gas ; >4? (-> Diluents)
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
243 lfsr FSR1,opt_OC_bail_gas_change ; Setup OC Gases
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
244
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
245 movf gaslist_gas,W ; (0-4 for OC/Bailout, 5-9 for Diluents)
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
246 movff PLUSW1,lo
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
247 ;rcall gaslist_calc_mod ; Compute MOD into WREG
521
06e9370c6d75 CHANGE: Apply safety margin parameters to both models (GF and non-GF)
heinrichsweikamp
parents: 518
diff changeset
248
06e9370c6d75 CHANGE: Apply safety margin parameters to both models (GF and non-GF)
heinrichsweikamp
parents: 518
diff changeset
249 gaslist_strcat_5:
518
72f6cb65ca4a BUGFIX: Do not check ppO2 for disabled gases
heinrichsweikamp
parents: 507
diff changeset
250 TSTOSS opt_units ; 0=Meters, 1=Feets
540
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
251 bra gaslist_strcat_3_metric
0
heinrichsweikamp
parents:
diff changeset
252 ;gaslist_strcat_3_imperial:
174
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 160
diff changeset
253 btfsc ccr_diluent_setup ; =1: Setting up Diluents ("Gas6-10")
540
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
254 bra gaslist_imperial_non_travel
174
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 160
diff changeset
255 movf gaslist_gas,W
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 160
diff changeset
256 lfsr FSR1,opt_gas_type ; Read opt_gas_type[WREG]
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 160
diff changeset
257 movff PLUSW1,gaslist_Type
540
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
258 movlw .2 ; 2=Travel
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
259 cpfseq gaslist_Type
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
260 bra gaslist_imperial_non_travel ; Non-Travel Gas
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
261 bra gaslist_strcat_depth_travel ; Show "---" instead of "0m"...
174
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 160
diff changeset
262
540
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
263 gaslist_imperial_non_travel:
0
heinrichsweikamp
parents:
diff changeset
264 movf lo,W
heinrichsweikamp
parents:
diff changeset
265 mullw .100 ; convert meters to mbar
heinrichsweikamp
parents:
diff changeset
266 movff PRODL,lo
heinrichsweikamp
parents:
diff changeset
267 movff PRODH,hi
540
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
268 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
0
heinrichsweikamp
parents:
diff changeset
269 bsf leftbind
225
31088352ee32 BUGFIX: Show dives with >999mins divetime correctly
heinrichsweikamp
parents: 189
diff changeset
270 output_16_3 ; limit to 999 and display only (0-999)
0
heinrichsweikamp
parents:
diff changeset
271 STRCAT_TEXT tFeets ; "ft"
heinrichsweikamp
parents:
diff changeset
272 return
heinrichsweikamp
parents:
diff changeset
273
heinrichsweikamp
parents:
diff changeset
274 gaslist_strcat_3_metric:
174
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 160
diff changeset
275 btfsc ccr_diluent_setup ; =1: Setting up Diluents ("Gas6-10")
540
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
276 bra gaslist_metric_non_travel
174
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 160
diff changeset
277 movf gaslist_gas,W
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 160
diff changeset
278 lfsr FSR1,opt_gas_type ; Read opt_gas_type[WREG]
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 160
diff changeset
279 movff PLUSW1,gaslist_Type
540
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
280 movlw .2 ; 2=Travel
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
281 cpfseq gaslist_Type
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
282 bra gaslist_metric_non_travel ; Non-Travel Gas
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
283 gaslist_strcat_depth_travel: ; Show "---" instead of "0m"...
174
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 160
diff changeset
284 STRCAT "---"
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 160
diff changeset
285 return
540
9a17b1db095b Re-insert Rev. 530 changes into gaslist.asm
heinrichsweikamp
parents: 534
diff changeset
286 gaslist_metric_non_travel:
0
heinrichsweikamp
parents:
diff changeset
287 output_99
heinrichsweikamp
parents:
diff changeset
288 STRCAT_TEXT tMeters ; "m"
heinrichsweikamp
parents:
diff changeset
289 return
heinrichsweikamp
parents:
diff changeset
290
heinrichsweikamp
parents:
diff changeset
291 ;----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
292 ; Store current menu item, and display gas description later.
heinrichsweikamp
parents:
diff changeset
293 ; Input: PRODL : gas number (0..4)
heinrichsweikamp
parents:
diff changeset
294 ; NOTE: used in the menu-tree for the MENU_CALLBACK entry.
heinrichsweikamp
parents:
diff changeset
295 global gaslist_setgas
heinrichsweikamp
parents:
diff changeset
296 gaslist_setgas:
heinrichsweikamp
parents:
diff changeset
297 movff PRODL,gaslist_gas
heinrichsweikamp
parents:
diff changeset
298 movlw .5
heinrichsweikamp
parents:
diff changeset
299 btfsc ccr_diluent_setup ; in CCR menus?
heinrichsweikamp
parents:
diff changeset
300 addwf gaslist_gas,F ; Yes, offset to gases 5-9
heinrichsweikamp
parents:
diff changeset
301 return
heinrichsweikamp
parents:
diff changeset
302
heinrichsweikamp
parents:
diff changeset
303
heinrichsweikamp
parents:
diff changeset
304 global gaslist_cleanup_list ; Takes care that only one gas can be first and first has 0m change depth
heinrichsweikamp
parents:
diff changeset
305 gaslist_cleanup_list:
heinrichsweikamp
parents:
diff changeset
306 bcf ignore_last_edited_gas
heinrichsweikamp
parents:
diff changeset
307 movlw .0
heinrichsweikamp
parents:
diff changeset
308 btfsc ccr_diluent_setup ; In CCR-Menu?
heinrichsweikamp
parents:
diff changeset
309 addlw .5 ; Yes, adjust offset
heinrichsweikamp
parents:
diff changeset
310 subwf gaslist_gas,F
heinrichsweikamp
parents:
diff changeset
311 gaslist_cleanup_list1:
heinrichsweikamp
parents:
diff changeset
312 clrf lo
heinrichsweikamp
parents:
diff changeset
313 lfsr FSR1,opt_gas_type ; Read opt_gas_type[WREG]
heinrichsweikamp
parents:
diff changeset
314 movlw .5 ; Check 5 gases
heinrichsweikamp
parents:
diff changeset
315 movwf hi
heinrichsweikamp
parents:
diff changeset
316 gaslist_cleanup_list2:
heinrichsweikamp
parents:
diff changeset
317 decf hi,w ; 0-4
heinrichsweikamp
parents:
diff changeset
318 btfsc ccr_diluent_setup ; In CCR-Menu?
heinrichsweikamp
parents:
diff changeset
319 addlw .5 ; Yes, adjust offset
heinrichsweikamp
parents:
diff changeset
320 movff PLUSW1,hi_temp
heinrichsweikamp
parents:
diff changeset
321 movlw .1
heinrichsweikamp
parents:
diff changeset
322 cpfseq hi_temp ; gas = first ?
heinrichsweikamp
parents:
diff changeset
323 bra gaslist_cleanup_list3 ; No
heinrichsweikamp
parents:
diff changeset
324 incf lo,F ; Yes, count "first gases"
heinrichsweikamp
parents:
diff changeset
325
heinrichsweikamp
parents:
diff changeset
326 btfss ignore_last_edited_gas ; If we are not in the second-pass mode
heinrichsweikamp
parents:
diff changeset
327 bra gaslist_cleanup_list2b
heinrichsweikamp
parents:
diff changeset
328
heinrichsweikamp
parents:
diff changeset
329 decf hi,w ; 0-4
heinrichsweikamp
parents:
diff changeset
330 cpfseq gaslist_gas ; Do not disable last edited gas
heinrichsweikamp
parents:
diff changeset
331 gaslist_cleanup_list2b:
heinrichsweikamp
parents:
diff changeset
332 movff hi,lo_temp ; Keep the last "first gas" found
heinrichsweikamp
parents:
diff changeset
333 gaslist_cleanup_list3:
heinrichsweikamp
parents:
diff changeset
334 decfsz hi,F
heinrichsweikamp
parents:
diff changeset
335 bra gaslist_cleanup_list2 ; Loop
heinrichsweikamp
parents:
diff changeset
336
heinrichsweikamp
parents:
diff changeset
337 tstfsz lo ; No gas active?
heinrichsweikamp
parents:
diff changeset
338 bra gaslist_cleanup_list4 ; No, at least one is active
heinrichsweikamp
parents:
diff changeset
339
heinrichsweikamp
parents:
diff changeset
340 btfsc ccr_diluent_setup ; In CCR-Menu?
heinrichsweikamp
parents:
diff changeset
341 bra gaslist_cleanup_list3a ; Yes.
heinrichsweikamp
parents:
diff changeset
342 ; make gas1 first and zero
heinrichsweikamp
parents:
diff changeset
343 movlw .1 ; First
heinrichsweikamp
parents:
diff changeset
344 movwf lo_temp
heinrichsweikamp
parents:
diff changeset
345 movwf INDF1
heinrichsweikamp
parents:
diff changeset
346 bra gaslist_cleanup_list5 ; Set change depth to zero
heinrichsweikamp
parents:
diff changeset
347
heinrichsweikamp
parents:
diff changeset
348 gaslist_cleanup_list3a:
heinrichsweikamp
parents:
diff changeset
349 movlw .5
heinrichsweikamp
parents:
diff changeset
350 addwf FSR1L,F
heinrichsweikamp
parents:
diff changeset
351 movlw .0
heinrichsweikamp
parents:
diff changeset
352 addwfc FSR1H,F ; Setup to Diluents
heinrichsweikamp
parents:
diff changeset
353 ; make dil1 first and zero
heinrichsweikamp
parents:
diff changeset
354 movlw .1 ; First
heinrichsweikamp
parents:
diff changeset
355 movwf lo_temp
heinrichsweikamp
parents:
diff changeset
356 movwf INDF1
heinrichsweikamp
parents:
diff changeset
357 bra gaslist_cleanup_list5 ; Set change depth to zero
heinrichsweikamp
parents:
diff changeset
358
heinrichsweikamp
parents:
diff changeset
359 gaslist_cleanup_list4:
heinrichsweikamp
parents:
diff changeset
360 movlw .1
heinrichsweikamp
parents:
diff changeset
361 cpfsgt lo ; More then one "first gas"?
heinrichsweikamp
parents:
diff changeset
362 bra gaslist_cleanup_list5 ; No, done.
heinrichsweikamp
parents:
diff changeset
363 ; More then one Gas is "first gas"
heinrichsweikamp
parents:
diff changeset
364 ; Disable last found "first gas" but keep it's change depth
heinrichsweikamp
parents:
diff changeset
365 decf lo_temp,W ; 0-4
heinrichsweikamp
parents:
diff changeset
366 cpfseq gaslist_gas ; Do not disable last edited gas
heinrichsweikamp
parents:
diff changeset
367 bra gaslist_cleanup_list4b
heinrichsweikamp
parents:
diff changeset
368 ; Do not disable last edited gas
heinrichsweikamp
parents:
diff changeset
369 ; search again but ignore last edited gas
heinrichsweikamp
parents:
diff changeset
370 bsf ignore_last_edited_gas
heinrichsweikamp
parents:
diff changeset
371 bra gaslist_cleanup_list1 ; Loop until only one "first gas" is left
heinrichsweikamp
parents:
diff changeset
372
heinrichsweikamp
parents:
diff changeset
373 gaslist_cleanup_list4b:
heinrichsweikamp
parents:
diff changeset
374 btfsc ccr_diluent_setup ; In CCR-Menu?
heinrichsweikamp
parents:
diff changeset
375 addlw .5 ; Yes, adjust offset
heinrichsweikamp
parents:
diff changeset
376 clrf PLUSW1 ; Disable gas
heinrichsweikamp
parents:
diff changeset
377 bra gaslist_cleanup_list ; Loop until only one "first gas" is left
heinrichsweikamp
parents:
diff changeset
378
heinrichsweikamp
parents:
diff changeset
379 gaslist_cleanup_list5:
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
380 ; Read switch depth
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
381 lfsr FSR1,char_I_dil_change-.5 ; Setup Diluents-5
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
382 btfss ccr_diluent_setup ; In CCR-Menu?
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
383 lfsr FSR1,opt_OC_bail_gas_change ; No, setup OC Gases
0
heinrichsweikamp
parents:
diff changeset
384 decf lo_temp,W
heinrichsweikamp
parents:
diff changeset
385 btfsc ccr_diluent_setup ; In CCR-Menu?
heinrichsweikamp
parents:
diff changeset
386 addlw .5 ; Yes, adjust offset
heinrichsweikamp
parents:
diff changeset
387 clrf PLUSW1 ; Set First gas to zero m
heinrichsweikamp
parents:
diff changeset
388 return
heinrichsweikamp
parents:
diff changeset
389
heinrichsweikamp
parents:
diff changeset
390 ;----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
391 ; Increment/Decrement O2 ratio
heinrichsweikamp
parents:
diff changeset
392 global gaslist_pO2
heinrichsweikamp
parents:
diff changeset
393 gaslist_pO2:
heinrichsweikamp
parents:
diff changeset
394 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
395 lfsr FSR1,opt_gas_He_ratio ; Read opt_gas_He_ratio[WREG]
heinrichsweikamp
parents:
diff changeset
396 movff PLUSW1,gaslist_He
heinrichsweikamp
parents:
diff changeset
397 lfsr FSR1,opt_gas_O2_ratio ; Read opt_gas_O2_ratio[WREG]
heinrichsweikamp
parents:
diff changeset
398 movff PLUSW1,gaslist_O2
heinrichsweikamp
parents:
diff changeset
399
heinrichsweikamp
parents:
diff changeset
400 incf gaslist_O2,F ; O2++
heinrichsweikamp
parents:
diff changeset
401 movf gaslist_He,W
heinrichsweikamp
parents:
diff changeset
402 addwf gaslist_O2,W
heinrichsweikamp
parents:
diff changeset
403 movwf lo
heinrichsweikamp
parents:
diff changeset
404 movlw .101
heinrichsweikamp
parents:
diff changeset
405 cpfslt lo ; O2+He<101?
heinrichsweikamp
parents:
diff changeset
406 decf gaslist_O2,F ; O2-- (Unchanged)
heinrichsweikamp
parents:
diff changeset
407
heinrichsweikamp
parents:
diff changeset
408 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
409 movff gaslist_O2,PLUSW1 ; And write back to opt_gas_O2_ratio[WREG]
heinrichsweikamp
parents:
diff changeset
410 return
heinrichsweikamp
parents:
diff changeset
411
heinrichsweikamp
parents:
diff changeset
412 global gaslist_mO2
heinrichsweikamp
parents:
diff changeset
413 gaslist_mO2:
heinrichsweikamp
parents:
diff changeset
414 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
415 lfsr FSR1,opt_gas_O2_ratio ; Read opt_gas_O2_ratio[WREG]
heinrichsweikamp
parents:
diff changeset
416 movff PLUSW1,gaslist_O2
heinrichsweikamp
parents:
diff changeset
417
heinrichsweikamp
parents:
diff changeset
418 decf gaslist_O2,F
heinrichsweikamp
parents:
diff changeset
419 movlw gaslist_min_o2
heinrichsweikamp
parents:
diff changeset
420 cpfslt gaslist_O2
heinrichsweikamp
parents:
diff changeset
421 bra gaslist_mO2_1
heinrichsweikamp
parents:
diff changeset
422 movlw gaslist_min_o2
heinrichsweikamp
parents:
diff changeset
423 movwf gaslist_O2
heinrichsweikamp
parents:
diff changeset
424 gaslist_mO2_1:
heinrichsweikamp
parents:
diff changeset
425 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
426 movff gaslist_O2,PLUSW1 ; And write back to opt_gas_O2_ratio[WREG]
heinrichsweikamp
parents:
diff changeset
427 return
heinrichsweikamp
parents:
diff changeset
428
heinrichsweikamp
parents:
diff changeset
429 ;----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
430 ; Increment/Decrement He ratio
heinrichsweikamp
parents:
diff changeset
431 global gaslist_pHe
heinrichsweikamp
parents:
diff changeset
432 gaslist_pHe:
heinrichsweikamp
parents:
diff changeset
433 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
434 lfsr FSR1,opt_gas_O2_ratio ; Read opt_gas_O2_ratio[WREG]
heinrichsweikamp
parents:
diff changeset
435 movff PLUSW1,gaslist_O2
heinrichsweikamp
parents:
diff changeset
436 lfsr FSR1,opt_gas_He_ratio ; Read opt_gas_He_ratio[WREG]
heinrichsweikamp
parents:
diff changeset
437 movff PLUSW1,gaslist_He
heinrichsweikamp
parents:
diff changeset
438
heinrichsweikamp
parents:
diff changeset
439 incf gaslist_He,F ; He++
heinrichsweikamp
parents:
diff changeset
440 movf gaslist_He,W
heinrichsweikamp
parents:
diff changeset
441 addwf gaslist_O2,W
heinrichsweikamp
parents:
diff changeset
442 movwf lo
heinrichsweikamp
parents:
diff changeset
443 movlw .101
heinrichsweikamp
parents:
diff changeset
444 cpfslt lo ; O2+He<101?
heinrichsweikamp
parents:
diff changeset
445 decf gaslist_He,F ; Yes, He-- (Unchanged)
heinrichsweikamp
parents:
diff changeset
446
heinrichsweikamp
parents:
diff changeset
447 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
448 movff gaslist_He,PLUSW1 ; And write back to opt_gas_He_ratio[WREG]
heinrichsweikamp
parents:
diff changeset
449 return
heinrichsweikamp
parents:
diff changeset
450
heinrichsweikamp
parents:
diff changeset
451 global gaslist_mHe
heinrichsweikamp
parents:
diff changeset
452 gaslist_mHe:
heinrichsweikamp
parents:
diff changeset
453 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
454 lfsr FSR1,opt_gas_He_ratio ; Read opt_gas_He_ratio[WREG]
heinrichsweikamp
parents:
diff changeset
455 movff PLUSW1,gaslist_He
heinrichsweikamp
parents:
diff changeset
456
heinrichsweikamp
parents:
diff changeset
457 decf gaslist_He,F
heinrichsweikamp
parents:
diff changeset
458 bnn gaslist_mHe_1
heinrichsweikamp
parents:
diff changeset
459 clrf gaslist_He
heinrichsweikamp
parents:
diff changeset
460 gaslist_mHe_1:
heinrichsweikamp
parents:
diff changeset
461 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
462 movff gaslist_He,PLUSW1 ; And write back to opt_gas_He_ratio[WREG]
heinrichsweikamp
parents:
diff changeset
463 return
heinrichsweikamp
parents:
diff changeset
464
heinrichsweikamp
parents:
diff changeset
465 ;----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
466 ; Increment/Decrement switch depth
heinrichsweikamp
parents:
diff changeset
467 global gaslist_pDepth
heinrichsweikamp
parents:
diff changeset
468 gaslist_pDepth:
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
469 lfsr FSR1,char_I_dil_change-.5 ; Setup Diluents-5
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
470 movlw .4
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
471 cpfsgt gaslist_gas ; >4? (-> Diluents)
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
472 lfsr FSR1,opt_OC_bail_gas_change ; Setup OC Gases
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
473
0
heinrichsweikamp
parents:
diff changeset
474 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
475 movff PLUSW1,gaslist_O2 ; Read char_I_deco_gas_change[WREG]
heinrichsweikamp
parents:
diff changeset
476
heinrichsweikamp
parents:
diff changeset
477 incf gaslist_O2,F
heinrichsweikamp
parents:
diff changeset
478 movlw gaslist_max_change_depth
heinrichsweikamp
parents:
diff changeset
479 cpfsgt gaslist_O2
heinrichsweikamp
parents:
diff changeset
480 bra gaslist_pDepth_1
heinrichsweikamp
parents:
diff changeset
481 movlw gaslist_max_change_depth
heinrichsweikamp
parents:
diff changeset
482 movwf gaslist_O2
heinrichsweikamp
parents:
diff changeset
483 gaslist_pDepth_1:
heinrichsweikamp
parents:
diff changeset
484 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
485 movff gaslist_O2,PLUSW1 ; Write back to char_I_deco_gas_change[WREG]
heinrichsweikamp
parents:
diff changeset
486 return
heinrichsweikamp
parents:
diff changeset
487
heinrichsweikamp
parents:
diff changeset
488 global gaslist_mDepth
heinrichsweikamp
parents:
diff changeset
489 gaslist_mDepth:
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
490 lfsr FSR1,char_I_dil_change-.5 ; Setup Diluents-5
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
491 movlw .4
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
492 cpfsgt gaslist_gas ; >4? (-> Diluents)
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
493 lfsr FSR1,opt_OC_bail_gas_change ; Setup OC Gases
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
494
0
heinrichsweikamp
parents:
diff changeset
495 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
496 movff PLUSW1,gaslist_O2 ; Read char_I_deco_gas_change[WREG]
heinrichsweikamp
parents:
diff changeset
497
heinrichsweikamp
parents:
diff changeset
498 decf gaslist_O2,F
heinrichsweikamp
parents:
diff changeset
499 btfsc STATUS,N
heinrichsweikamp
parents:
diff changeset
500 clrf gaslist_O2
heinrichsweikamp
parents:
diff changeset
501
heinrichsweikamp
parents:
diff changeset
502 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
503 movff gaslist_O2,PLUSW1 ; And write back to char_I_deco_gas_change[WREG]
heinrichsweikamp
parents:
diff changeset
504 return
heinrichsweikamp
parents:
diff changeset
505
heinrichsweikamp
parents:
diff changeset
506 global gaslist_spplus
heinrichsweikamp
parents:
diff changeset
507 gaslist_spplus:
heinrichsweikamp
parents:
diff changeset
508 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
509 lfsr FSR1,char_I_setpoint_cbar
heinrichsweikamp
parents:
diff changeset
510 movff PLUSW1,lo ; Read char_I_setpoint_cbar[WREG]
heinrichsweikamp
parents:
diff changeset
511 movlw gaslist_sp_stepsize
heinrichsweikamp
parents:
diff changeset
512 addwf lo,F
heinrichsweikamp
parents:
diff changeset
513 movlw gaslist_sp_max
heinrichsweikamp
parents:
diff changeset
514 cpfsgt lo
heinrichsweikamp
parents:
diff changeset
515 bra gaslist_spplus2
heinrichsweikamp
parents:
diff changeset
516 movlw gaslist_sp_min
heinrichsweikamp
parents:
diff changeset
517 movwf lo
heinrichsweikamp
parents:
diff changeset
518 gaslist_spplus2:
heinrichsweikamp
parents:
diff changeset
519 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
520 movff lo,PLUSW1 ; Write back to char_I_setpoint_cbar
heinrichsweikamp
parents:
diff changeset
521 return
heinrichsweikamp
parents:
diff changeset
522
heinrichsweikamp
parents:
diff changeset
523 global gaslist_spdepthplus
heinrichsweikamp
parents:
diff changeset
524 gaslist_spdepthplus:
heinrichsweikamp
parents:
diff changeset
525 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
526 bz gaslist_spdepthplus3 ; Setpoint 1 is always 0m
heinrichsweikamp
parents:
diff changeset
527 lfsr FSR1,char_I_setpoint_change
heinrichsweikamp
parents:
diff changeset
528 movff PLUSW1,gaslist_O2 ; Read char_I_deco_gas_change[WREG]
heinrichsweikamp
parents:
diff changeset
529 incf gaslist_O2,F
heinrichsweikamp
parents:
diff changeset
530 movlw gaslist_max_change_depth
heinrichsweikamp
parents:
diff changeset
531 cpfsgt gaslist_O2
heinrichsweikamp
parents:
diff changeset
532 bra gaslist_spdepthplus_1
heinrichsweikamp
parents:
diff changeset
533 movlw gaslist_max_change_depth
heinrichsweikamp
parents:
diff changeset
534 movwf gaslist_O2
heinrichsweikamp
parents:
diff changeset
535 gaslist_spdepthplus_1:
heinrichsweikamp
parents:
diff changeset
536 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
537 movff gaslist_O2,PLUSW1 ; Write back to char_I_deco_gas_change[WREG]
heinrichsweikamp
parents:
diff changeset
538 return
heinrichsweikamp
parents:
diff changeset
539
heinrichsweikamp
parents:
diff changeset
540 gaslist_spdepthplus3:
heinrichsweikamp
parents:
diff changeset
541 movlw .0
heinrichsweikamp
parents:
diff changeset
542 movff WREG,char_I_setpoint_change+0 ; Reset to 0m
heinrichsweikamp
parents:
diff changeset
543 return
heinrichsweikamp
parents:
diff changeset
544
heinrichsweikamp
parents:
diff changeset
545 global gaslist_spdepthminus
heinrichsweikamp
parents:
diff changeset
546 gaslist_spdepthminus:
heinrichsweikamp
parents:
diff changeset
547 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
548 bz gaslist_spdepthplus3 ; Setpoint 1 is always 0m
heinrichsweikamp
parents:
diff changeset
549 lfsr FSR1,char_I_setpoint_change
heinrichsweikamp
parents:
diff changeset
550 movff PLUSW1,gaslist_O2 ; Read opt_gas_O2_ratio[WREG]
heinrichsweikamp
parents:
diff changeset
551 decf gaslist_O2,F
heinrichsweikamp
parents:
diff changeset
552 btfsc STATUS,N
heinrichsweikamp
parents:
diff changeset
553 clrf gaslist_O2
heinrichsweikamp
parents:
diff changeset
554 movf gaslist_gas,W
heinrichsweikamp
parents:
diff changeset
555 movff gaslist_O2,PLUSW1 ; And write back to opt_gas_O2_ratio[WREG]
heinrichsweikamp
parents:
diff changeset
556 return
heinrichsweikamp
parents:
diff changeset
557
heinrichsweikamp
parents:
diff changeset
558 ;----------------------------------------------------------------------------
507
4e6f5c36f4cc NEW: Two ppO2 max settings. One for travel/bottom and one for deco gases
heinrichsweikamp
parents: 505
diff changeset
559 ; Compute MOD from opt_ppO2_max/opt_ppO2_max_deco and current O2 Ratio.
0
heinrichsweikamp
parents:
diff changeset
560 ;
heinrichsweikamp
parents:
diff changeset
561 ; Input: gaslist_gas = current gas index.
heinrichsweikamp
parents:
diff changeset
562 ; opt_gas_O2_ratio[gaslist_gas] = current O2 ratio
heinrichsweikamp
parents:
diff changeset
563 ; Output: WREG = MOD [m]
heinrichsweikamp
parents:
diff changeset
564 ;
heinrichsweikamp
parents:
diff changeset
565 gaslist_calc_mod:
507
4e6f5c36f4cc NEW: Two ppO2 max settings. One for travel/bottom and one for deco gases
heinrichsweikamp
parents: 505
diff changeset
566 movff gaslist_gas,gaslist_gas_global ; copy for color coding
0
heinrichsweikamp
parents:
diff changeset
567 movf gaslist_gas,W ; Read current gas O2 ratio
heinrichsweikamp
parents:
diff changeset
568 lfsr FSR1,opt_gas_O2_ratio ; Read opt_gas_O2_ratio[WREG]
heinrichsweikamp
parents:
diff changeset
569 movf PLUSW1,W
heinrichsweikamp
parents:
diff changeset
570
heinrichsweikamp
parents:
diff changeset
571 btfsc divemode ; In divemode?
heinrichsweikamp
parents:
diff changeset
572 bra gaslist_calc_mod_divemode ; Yes.
heinrichsweikamp
parents:
diff changeset
573
heinrichsweikamp
parents:
diff changeset
574 ; Pamb max = ppO2 Max / O2 ratio
heinrichsweikamp
parents:
diff changeset
575 movwf xB+0
heinrichsweikamp
parents:
diff changeset
576
507
4e6f5c36f4cc NEW: Two ppO2 max settings. One for travel/bottom and one for deco gases
heinrichsweikamp
parents: 505
diff changeset
577 movf gaslist_gas,W ; Read current gas O2 ratio
4e6f5c36f4cc NEW: Two ppO2 max settings. One for travel/bottom and one for deco gases
heinrichsweikamp
parents: 505
diff changeset
578 lfsr FSR1,opt_gas_type ; 0=Disabled, 1=First, 2=Travel, 3=Deco for OC gases and 0=Disabled, 1=First, 2=Normal for diluents
4e6f5c36f4cc NEW: Two ppO2 max settings. One for travel/bottom and one for deco gases
heinrichsweikamp
parents: 505
diff changeset
579 movff PLUSW1,xA+0 ; xA+0 used as temp here -> holds type
4e6f5c36f4cc NEW: Two ppO2 max settings. One for travel/bottom and one for deco gases
heinrichsweikamp
parents: 505
diff changeset
580
4e6f5c36f4cc NEW: Two ppO2 max settings. One for travel/bottom and one for deco gases
heinrichsweikamp
parents: 505
diff changeset
581 movff opt_ppO2_max_deco,xB+1 ; xB+1 used as temp here
4e6f5c36f4cc NEW: Two ppO2 max settings. One for travel/bottom and one for deco gases
heinrichsweikamp
parents: 505
diff changeset
582 movlw .3
4e6f5c36f4cc NEW: Two ppO2 max settings. One for travel/bottom and one for deco gases
heinrichsweikamp
parents: 505
diff changeset
583 cpfseq xA+0 ; Deco?
4e6f5c36f4cc NEW: Two ppO2 max settings. One for travel/bottom and one for deco gases
heinrichsweikamp
parents: 505
diff changeset
584 movff opt_ppO2_max,xB+1 ; No, overwrite with travel/bottom max
4e6f5c36f4cc NEW: Two ppO2 max settings. One for travel/bottom and one for deco gases
heinrichsweikamp
parents: 505
diff changeset
585 movf xB+1,W ; Result in WREG
4e6f5c36f4cc NEW: Two ppO2 max settings. One for travel/bottom and one for deco gases
heinrichsweikamp
parents: 505
diff changeset
586
4e6f5c36f4cc NEW: Two ppO2 max settings. One for travel/bottom and one for deco gases
heinrichsweikamp
parents: 505
diff changeset
587 clrf xB+1 ; Clear for div16x16
0
heinrichsweikamp
parents:
diff changeset
588 mullw .10
heinrichsweikamp
parents:
diff changeset
589 movff PRODL,xA+0
heinrichsweikamp
parents:
diff changeset
590 movff PRODH,xA+1
heinrichsweikamp
parents:
diff changeset
591 call div16x16
heinrichsweikamp
parents:
diff changeset
592
heinrichsweikamp
parents:
diff changeset
593 ; Prof = Pamb - 1bar.
heinrichsweikamp
parents:
diff changeset
594 movf xC+0,W
heinrichsweikamp
parents:
diff changeset
595 addlw -.10
heinrichsweikamp
parents:
diff changeset
596 return
heinrichsweikamp
parents:
diff changeset
597
heinrichsweikamp
parents:
diff changeset
598 gaslist_calc_mod_divemode:
heinrichsweikamp
parents:
diff changeset
599 extern TFT_color_code1
heinrichsweikamp
parents:
diff changeset
600 movwf hi ; Copy O2%
heinrichsweikamp
parents:
diff changeset
601 movlw warn_gas_in_gaslist
507
4e6f5c36f4cc NEW: Two ppO2 max settings. One for travel/bottom and one for deco gases
heinrichsweikamp
parents: 505
diff changeset
602 call TFT_color_code1 ; Color-code current row in Gaslist (%O2 in hi), opt_ppO2_max/opt_ppO2_max_deco as threshold
0
heinrichsweikamp
parents:
diff changeset
603 return
heinrichsweikamp
parents:
diff changeset
604 ;----------------------------------------------------------------------------
154
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
605
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
606 global gaslist_ppo2
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
607 gaslist_ppo2:
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
608 STRCAT_TEXT tppO2 ; ppO2:
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
609 movf gaslist_gas,W
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
610 lfsr FSR1,char_I_dil_change-.5 ; Setup Diluents
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
611 btfss ccr_diluent_setup ; In CCR-Menu?
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
612 lfsr FSR1,opt_OC_bail_gas_change ; No, setup OC/Bailout Gases
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
613 movf PLUSW1,W
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
614 mullw .10 ; PROD=Depth in mbar/10 (100 = 1.00 bar)
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
615 movlw .100
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
616 addwf PRODL,F
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
617 movlw .0
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
618 addwfc PRODH,F ; add 1bar
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
619 movff PRODL,xA+0
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
620 movff PRODH,xA+1
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
621 movf gaslist_gas,W ; Read current gas O2 ratio
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
622 lfsr FSR1,opt_dil_O2_ratio-.5 ; Read dil_gas_O2_ratio[WREG]
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
623 btfss ccr_diluent_setup ; In CCR-Menu?
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
624 lfsr FSR1,opt_gas_O2_ratio ; No, read opt_gas_O2_ratio[WREG]
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
625 movff PLUSW1,xB+0
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
626 clrf xB+1
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
627 call mult16x16 ; char_I_O2_ratio * (p_amb/10)
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
628 movff xC+0,xA+0
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
629 movff xC+1,xA+1
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
630 movlw d'100'
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
631 movwf xB+0
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
632 clrf xB+1
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
633 call div16x16 ; xC=(char_I_O2_ratio * p_amb/10)/100
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
634 ; Check very high ppO2 manually
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
635 tstfsz xC+2 ; char_I_O2_ratio * p_amb/10 > 65536, ppO2>6,55bar?
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
636 bra gaslist_ppo2_2 ; Yes, display fixed Value!
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
637 movff xC+0,lo
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
638 movff xC+1,hi
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
639 bcf ignore_digit4
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
640 bsf leftbind
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
641 output_16dp d'3' ; x.xx
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
642 STRCAT_TEXT tbar ; bar
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
643 return
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
644 gaslist_ppo2_2:
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
645 STRCAT ">6.6"
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
646 return
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 97
diff changeset
647
0
heinrichsweikamp
parents:
diff changeset
648 global gaslist_MOD_END
heinrichsweikamp
parents:
diff changeset
649 gaslist_MOD_END:
heinrichsweikamp
parents:
diff changeset
650 rcall gaslist_calc_mod ; Compute MOD into WREG
heinrichsweikamp
parents:
diff changeset
651 movwf lo ; Copy to lo
14
440e537e19d6 Show "MOD:" instead of "EAD:" in gas setup
heinrichsweikamp
parents: 0
diff changeset
652 STRCAT_TEXT tMOD ; MOD:
0
heinrichsweikamp
parents:
diff changeset
653 TSTOSS opt_units ; 0=Meters, 1=Feets
heinrichsweikamp
parents:
diff changeset
654 bra gaslist_MOD_metric
heinrichsweikamp
parents:
diff changeset
655 ;gaslist_MOD_imperial:
heinrichsweikamp
parents:
diff changeset
656 movf lo,W
heinrichsweikamp
parents:
diff changeset
657 mullw .100 ; convert meters to mbar
heinrichsweikamp
parents:
diff changeset
658 movff PRODL,lo
heinrichsweikamp
parents:
diff changeset
659 movff PRODH,hi
heinrichsweikamp
parents:
diff changeset
660 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
661 bsf leftbind
225
31088352ee32 BUGFIX: Show dives with >999mins divetime correctly
heinrichsweikamp
parents: 189
diff changeset
662 output_16_3 ; limit to 999 and display only (0-999)
0
heinrichsweikamp
parents:
diff changeset
663 STRCAT_TEXT tFeets ; "ft"
heinrichsweikamp
parents:
diff changeset
664 bra gaslist_MOD_common
heinrichsweikamp
parents:
diff changeset
665 gaslist_MOD_metric:
heinrichsweikamp
parents:
diff changeset
666 output_8
heinrichsweikamp
parents:
diff changeset
667 STRCAT_TEXT tMeters ; m
heinrichsweikamp
parents:
diff changeset
668 gaslist_MOD_common:
heinrichsweikamp
parents:
diff changeset
669 PUTC "/"
heinrichsweikamp
parents:
diff changeset
670 STRCAT_TEXT tEND ; END:
heinrichsweikamp
parents:
diff changeset
671 rcall gaslist_calc_mod ; Output: WREG = MOD [m]
heinrichsweikamp
parents:
diff changeset
672 addlw .10 ; MOD=MOD+10m
heinrichsweikamp
parents:
diff changeset
673 movwf xB+0
heinrichsweikamp
parents:
diff changeset
674 clrf xB+1
heinrichsweikamp
parents:
diff changeset
675 movlw d'100'
heinrichsweikamp
parents:
diff changeset
676 movwf xA+0
heinrichsweikamp
parents:
diff changeset
677 movf gaslist_He,W ; He value in % -> WREG
heinrichsweikamp
parents:
diff changeset
678 subwf xA+0,F ; xA+0 = 100 - He Value in %
heinrichsweikamp
parents:
diff changeset
679 clrf xA+1
heinrichsweikamp
parents:
diff changeset
680 call mult16x16 ; xA*xB=xC
heinrichsweikamp
parents:
diff changeset
681 movff xC+0,xA+0
heinrichsweikamp
parents:
diff changeset
682 movff xC+1,xA+1
heinrichsweikamp
parents:
diff changeset
683 movlw d'100'
heinrichsweikamp
parents:
diff changeset
684 movwf xB+0
heinrichsweikamp
parents:
diff changeset
685 clrf xB+1
heinrichsweikamp
parents:
diff changeset
686 call div16x16 ; xA/xB=xC with xA as remainder
heinrichsweikamp
parents:
diff changeset
687 ; xC:2 = ((MOD+10) * 100 - HE Value in %) / 100
heinrichsweikamp
parents:
diff changeset
688 movlw d'10'
heinrichsweikamp
parents:
diff changeset
689 subwf xC+0,F ; Subtract 10m...
heinrichsweikamp
parents:
diff changeset
690 movff xC+0,lo
heinrichsweikamp
parents:
diff changeset
691 ; END 8Bit only
heinrichsweikamp
parents:
diff changeset
692 ; movlw d'0'
heinrichsweikamp
parents:
diff changeset
693 ; subwfb xC+1,F
heinrichsweikamp
parents:
diff changeset
694 ; movff xC+1,hi
heinrichsweikamp
parents:
diff changeset
695 TSTOSS opt_units ; 0=Meters, 1=Feets
heinrichsweikamp
parents:
diff changeset
696 bra gaslist_END_metric
heinrichsweikamp
parents:
diff changeset
697 ;gaslist_END_imperial:
heinrichsweikamp
parents:
diff changeset
698 movf lo,W
heinrichsweikamp
parents:
diff changeset
699 mullw .100 ; convert meters to mbar
heinrichsweikamp
parents:
diff changeset
700 movff PRODL,lo
heinrichsweikamp
parents:
diff changeset
701 movff PRODH,hi
heinrichsweikamp
parents:
diff changeset
702 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
703 bsf leftbind
225
31088352ee32 BUGFIX: Show dives with >999mins divetime correctly
heinrichsweikamp
parents: 189
diff changeset
704 output_16_3 ; limit to 999 and display only (0-999)
0
heinrichsweikamp
parents:
diff changeset
705 STRCAT_TEXT tFeets ; "ft"
heinrichsweikamp
parents:
diff changeset
706 return
heinrichsweikamp
parents:
diff changeset
707 gaslist_END_metric:
heinrichsweikamp
parents:
diff changeset
708 output_8
heinrichsweikamp
parents:
diff changeset
709 STRCAT_TEXT tMeters ; m
heinrichsweikamp
parents:
diff changeset
710 return
heinrichsweikamp
parents:
diff changeset
711
heinrichsweikamp
parents:
diff changeset
712 ;----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
713 global gaslist_reset_mod_title
heinrichsweikamp
parents:
diff changeset
714 gaslist_reset_mod_title:
heinrichsweikamp
parents:
diff changeset
715 STRCAT_TEXT tDepthReset
heinrichsweikamp
parents:
diff changeset
716
heinrichsweikamp
parents:
diff changeset
717 gaslist_reset_mod_title2:
heinrichsweikamp
parents:
diff changeset
718 rcall gaslist_calc_mod ; Compute MOD into WREG
heinrichsweikamp
parents:
diff changeset
719 movwf lo ; Copy to lo
heinrichsweikamp
parents:
diff changeset
720
heinrichsweikamp
parents:
diff changeset
721 movf gaslist_gas,W ; Compare to switch depth
505
bef07a837a60 BUGFIX: Reset to MOD in Diluent Menu did reset Setpoint change depth
heinrichsweikamp
parents: 275
diff changeset
722 lfsr FSR1,char_I_dil_change-.5 ; Setup Diluents
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
723 btfss ccr_diluent_setup ; In CCR-Menu?
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
724 lfsr FSR1,opt_OC_bail_gas_change ; No, setup OC Gases
0
heinrichsweikamp
parents:
diff changeset
725 movf PLUSW1,W
heinrichsweikamp
parents:
diff changeset
726 cpfslt lo
521
06e9370c6d75 CHANGE: Apply safety margin parameters to both models (GF and non-GF)
heinrichsweikamp
parents: 518
diff changeset
727 bra gaslist_strcat_5 ; And return...
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 14
diff changeset
728 call TFT_warnings_color ; Turn red if bigger !
521
06e9370c6d75 CHANGE: Apply safety margin parameters to both models (GF and non-GF)
heinrichsweikamp
parents: 518
diff changeset
729 bra gaslist_strcat_5 ; And return...
0
heinrichsweikamp
parents:
diff changeset
730
heinrichsweikamp
parents:
diff changeset
731 ;----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
732 global gaslist_reset_mod
heinrichsweikamp
parents:
diff changeset
733 gaslist_reset_mod:
heinrichsweikamp
parents:
diff changeset
734 rcall gaslist_calc_mod ; Compute MOD
heinrichsweikamp
parents:
diff changeset
735 movwf gaslist_depth
heinrichsweikamp
parents:
diff changeset
736
heinrichsweikamp
parents:
diff changeset
737 movf gaslist_gas,W ; Read current gas O2 ratio
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
738
505
bef07a837a60 BUGFIX: Reset to MOD in Diluent Menu did reset Setpoint change depth
heinrichsweikamp
parents: 275
diff changeset
739 lfsr FSR1,char_I_dil_change-.5 ; Setup Diluents
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
740 btfss ccr_diluent_setup ; In CCR-Menu?
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
741 lfsr FSR1,opt_OC_bail_gas_change ; No, setup OC Gases
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 95
diff changeset
742
0
heinrichsweikamp
parents:
diff changeset
743 movff gaslist_depth,PLUSW1 ; And save new change depth
heinrichsweikamp
parents:
diff changeset
744 return
heinrichsweikamp
parents:
diff changeset
745 ;----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
746 END