Mercurial > public > hwos_code

annotate src/simulator.asm @ 223:940155e9aefb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
PC config, 1.72 release
author heinrichsweikamp
date Wed, 14 Jan 2015 11:37:19 +0100
parents 53771bd3d567
children 31088352ee32
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 simulator.asm
heinrichsweikamp
parents:
diff changeset
4 ;
heinrichsweikamp
parents:
diff changeset
5 ; Decoplan interface to C model code.
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-09 : [jDG] Creation...
heinrichsweikamp
parents:
diff changeset
11
heinrichsweikamp
parents:
diff changeset
12 #include "ostc3.inc" ; Mandatory include.
heinrichsweikamp
parents:
diff changeset
13 #include "convert.inc" ; output_*
heinrichsweikamp
parents:
diff changeset
14 #include "shared_definitions.h" ; Mailbox from/to p2_deco.c
heinrichsweikamp
parents:
diff changeset
15 #include "strings.inc" ; STRCPY,...
heinrichsweikamp
parents:
diff changeset
16 #include "tft.inc" ; WIN_LEFT,...
heinrichsweikamp
parents:
diff changeset
17 #include "wait.inc" ; speed_*
heinrichsweikamp
parents:
diff changeset
18 #include "start.inc"
heinrichsweikamp
parents:
diff changeset
19 #include "divemode.inc"
heinrichsweikamp
parents:
diff changeset
20 #include "math.inc"
heinrichsweikamp
parents:
diff changeset
21 #include "eeprom_rs232.inc"
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 46
diff changeset
22 #include "tft_outputs.inc"
0
heinrichsweikamp
parents:
diff changeset
23
heinrichsweikamp
parents:
diff changeset
24 gui CODE
heinrichsweikamp
parents:
diff changeset
25
heinrichsweikamp
parents:
diff changeset
26 extern deco_clear_tissue
heinrichsweikamp
parents:
diff changeset
27 extern deco_push_tissues_to_vault
heinrichsweikamp
parents:
diff changeset
28 extern deco_calc_dive_interval
heinrichsweikamp
parents:
diff changeset
29 extern deco_calc_hauptroutine
heinrichsweikamp
parents:
diff changeset
30 extern deco_calc_tissue
heinrichsweikamp
parents:
diff changeset
31 extern deco_calc_CNS_fraction
heinrichsweikamp
parents:
diff changeset
32 extern deco_calc_CNS_planning
heinrichsweikamp
parents:
diff changeset
33 extern deco_pull_tissues_from_vault
208
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
34 extern TFT_display_decotype_surface1
0
heinrichsweikamp
parents:
diff changeset
35
heinrichsweikamp
parents:
diff changeset
36 extern log_screendump_and_onesecond, logbook_preloop_tasks
208
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
37 extern do_planner_menu
0
heinrichsweikamp
parents:
diff changeset
38
heinrichsweikamp
parents:
diff changeset
39 ;---- Private temp variables -------------------------------------------------
heinrichsweikamp
parents:
diff changeset
40 CBLOCK tmp+0x10 ; Reserved space for wordprocessor and convert
heinrichsweikamp
parents:
diff changeset
41 decoplan_index ; within each page
heinrichsweikamp
parents:
diff changeset
42 decoplan_gindex ; global index
heinrichsweikamp
parents:
diff changeset
43 decoplan_last ; Depth of last stop (CF#29)
heinrichsweikamp
parents:
diff changeset
44 decoplan_flags ; Various private flags.
heinrichsweikamp
parents:
diff changeset
45 decoplan_CNS:2 ; Backup CNS before vault restore
heinrichsweikamp
parents:
diff changeset
46 ; Reserved to tmp+0x1F...
heinrichsweikamp
parents:
diff changeset
47 ENDC
heinrichsweikamp
parents:
diff changeset
48 #define decoplan_last_ceiling_shown decoplan_flags,0
heinrichsweikamp
parents:
diff changeset
49
heinrichsweikamp
parents:
diff changeset
50 ;---- Demo decoplanner -------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
51 global do_demo_planner
heinrichsweikamp
parents:
diff changeset
52
heinrichsweikamp
parents:
diff changeset
53 do_demo_planner:
208
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
54 btfsc FLAG_gauge_mode ; =1: In Gauge mode
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
55 goto do_planner_menu
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
56 btfsc FLAG_apnoe_mode ; =1: In Apnea mode
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
57 goto do_planner_menu
0
heinrichsweikamp
parents:
diff changeset
58 ; call deco_reset ; TODO: remove reset all Decodata
208
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
59 rcall deco_planer
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
60 rcall deco_show_plan
0
heinrichsweikamp
parents:
diff changeset
61 goto do_planner_menu
heinrichsweikamp
parents:
diff changeset
62
heinrichsweikamp
parents:
diff changeset
63 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
64 ; Pass all parameters to the C code
heinrichsweikamp
parents:
diff changeset
65 ;
heinrichsweikamp
parents:
diff changeset
66
heinrichsweikamp
parents:
diff changeset
67 global get_first_dil_to_WREG
heinrichsweikamp
parents:
diff changeset
68 get_first_dil_to_WREG: ; Gets first dil (0-4) into WREG
heinrichsweikamp
parents:
diff changeset
69 lfsr FSR1,opt_dil_type ; Point to dil types
heinrichsweikamp
parents:
diff changeset
70 clrf lo ; start with Gas0
81
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
71 get_first_dil_to_WREG2:
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
72 movf lo,W ;
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
73 movf PLUSW1,W ; Get Type of Dil #lo
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
74 sublw .1 ; it is = 1 (First Dil)
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
75 bz get_first_dil_to_WREG3 ; Found the first dil!
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
76 incf lo,F ; ++
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
77 movlw NUM_GAS+1
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
78 cpfseq lo ; All done?
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
79 bra get_first_dil_to_WREG2 ; Not yet
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
80 ; No first dil found, use #1
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
81 movlw .1
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
82 movff WREG,opt_dil_type+0 ; Set Dil1 to First
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
83 return
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
84 get_first_dil_to_WREG3:
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
85 movf lo,W ; Put into Wreg
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
86 return ; Done
0
heinrichsweikamp
parents:
diff changeset
87
heinrichsweikamp
parents:
diff changeset
88 global get_first_gas_to_WREG
heinrichsweikamp
parents:
diff changeset
89 get_first_gas_to_WREG: ; Gets first gas (0-4) into WREG
heinrichsweikamp
parents:
diff changeset
90 lfsr FSR1,opt_gas_type ; Point to gas types
heinrichsweikamp
parents:
diff changeset
91 clrf lo ; start with Gas0
heinrichsweikamp
parents:
diff changeset
92 get_first_gas_to_WREG2:
heinrichsweikamp
parents:
diff changeset
93 movf lo,W ;
heinrichsweikamp
parents:
diff changeset
94 movf PLUSW1,W ; Get Type of Gas #lo
heinrichsweikamp
parents:
diff changeset
95 sublw .1 ; it is = 1 (First Gas)
heinrichsweikamp
parents:
diff changeset
96 bz get_first_gas_to_WREG3 ; Found the first gas!
heinrichsweikamp
parents:
diff changeset
97 incf lo,F ; ++
heinrichsweikamp
parents:
diff changeset
98 movlw NUM_GAS+1
heinrichsweikamp
parents:
diff changeset
99 cpfseq lo ; All done?
heinrichsweikamp
parents:
diff changeset
100 bra get_first_gas_to_WREG2 ; Not yet
81
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
101 ; No first gas found, use #1
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
102 movlw .1
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
103 movff WREG,opt_gas_type+0 ; Set Gas1 to First
8e13866b5496 add some extra safety checks when settings were altered from the PC software
mh@mh-THINK.localdomain
parents: 50
diff changeset
104 return
0
heinrichsweikamp
parents:
diff changeset
105 get_first_gas_to_WREG3:
heinrichsweikamp
parents:
diff changeset
106 movf lo,W ; Put into Wreg
heinrichsweikamp
parents:
diff changeset
107 return ; Done
heinrichsweikamp
parents:
diff changeset
108
heinrichsweikamp
parents:
diff changeset
109 deco_setup:
heinrichsweikamp
parents:
diff changeset
110 banksel char_I_step_is_1min ; Select the right bank...
heinrichsweikamp
parents:
diff changeset
111 clrf char_I_step_is_1min ; Default to 2sec steps.
46
05227510cae0 Bugfix: deco gas init in OC planner
heinrichsweikamp
parents: 40
diff changeset
112 clrf char_I_const_ppO2 ; Clear for OC, will be set for CC later
0
heinrichsweikamp
parents:
diff changeset
113
heinrichsweikamp
parents:
diff changeset
114 ; Fixed ambient surface pressure to 1bar.
heinrichsweikamp
parents:
diff changeset
115 movlw LOW(.1000)
heinrichsweikamp
parents:
diff changeset
116 movwf int_I_pres_surface+0
heinrichsweikamp
parents:
diff changeset
117 movwf int_I_pres_respiration+0
heinrichsweikamp
parents:
diff changeset
118 movlw HIGH(.1000)
heinrichsweikamp
parents:
diff changeset
119 movwf int_I_pres_surface+1
heinrichsweikamp
parents:
diff changeset
120 movwf int_I_pres_respiration+1
heinrichsweikamp
parents:
diff changeset
121
46
05227510cae0 Bugfix: deco gas init in OC planner
heinrichsweikamp
parents: 40
diff changeset
122 clrf int_I_divemins+0 ; Dive start
0
heinrichsweikamp
parents:
diff changeset
123 clrf int_I_divemins+1
46
05227510cae0 Bugfix: deco gas init in OC planner
heinrichsweikamp
parents: 40
diff changeset
124 banksel common ; Bank1
05227510cae0 Bugfix: deco gas init in OC planner
heinrichsweikamp
parents: 40
diff changeset
125 bcf use_agf ; =1: Use aGF
05227510cae0 Bugfix: deco gas init in OC planner
heinrichsweikamp
parents: 40
diff changeset
126
40
1e2d2b0bca5b Bugfix: Simulator in CC mode
mh@mh-THINK.fritz.box
parents: 9
diff changeset
127 rcall deco_setup_dive
0
heinrichsweikamp
parents:
diff changeset
128
46
05227510cae0 Bugfix: deco gas init in OC planner
heinrichsweikamp
parents: 40
diff changeset
129 ; Setup char_I_const_ppO2 for CC modes
05227510cae0 Bugfix: deco gas init in OC planner
heinrichsweikamp
parents: 40
diff changeset
130 btfsc FLAG_ccr_mode ; =1: CCR mode (Fixed ppO2 or Sensor) active
40
1e2d2b0bca5b Bugfix: Simulator in CC mode
mh@mh-THINK.fritz.box
parents: 9
diff changeset
131 movff char_I_setpoint_cbar+0,char_I_const_ppO2 ; Setup fixed Setpoint (Always start with SP1)
1e2d2b0bca5b Bugfix: Simulator in CC mode
mh@mh-THINK.fritz.box
parents: 9
diff changeset
132
1e2d2b0bca5b Bugfix: Simulator in CC mode
mh@mh-THINK.fritz.box
parents: 9
diff changeset
133 rcall get_first_gas_to_WREG ; Gets first gas (0-4) into WREG
0
heinrichsweikamp
parents:
diff changeset
134 movff WREG,char_I_first_gas ; Copy for compatibility
197
3bbfac29ba3e cleanup
heinrichsweikamp
parents: 189
diff changeset
135 banksel char_I_first_gas
3bbfac29ba3e cleanup
heinrichsweikamp
parents: 189
diff changeset
136 incf char_I_first_gas,F ; 0-4 -> 1-5
3bbfac29ba3e cleanup
heinrichsweikamp
parents: 189
diff changeset
137 banksel common
0
heinrichsweikamp
parents:
diff changeset
138 extern setup_gas_registers
heinrichsweikamp
parents:
diff changeset
139 call setup_gas_registers ; With WREG=Gas 0-4, set current N2/He/O2 ratios.
heinrichsweikamp
parents:
diff changeset
140 extern set_actual_ppo2
heinrichsweikamp
parents:
diff changeset
141 call set_actual_ppo2 ; Then configure char_I_actual_ppO2 (For CNS)
40
1e2d2b0bca5b Bugfix: Simulator in CC mode
mh@mh-THINK.fritz.box
parents: 9
diff changeset
142 return
0
heinrichsweikamp
parents:
diff changeset
143
heinrichsweikamp
parents:
diff changeset
144 global deco_setup_dive
heinrichsweikamp
parents:
diff changeset
145 deco_setup_dive: ; Called from divemode
heinrichsweikamp
parents:
diff changeset
146 banksel common ; Bank1
heinrichsweikamp
parents:
diff changeset
147
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
148 btfsc FLAG_ccr_mode ; =1: CCR mode (Fixed ppO2 or Sensor) active
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
149 rcall deco_setup_cc_diluents ; Setup CC Diluents
0
heinrichsweikamp
parents:
diff changeset
150 btfss FLAG_ccr_mode ; =1: CCR mode (Fixed ppO2 or Sensor) active
heinrichsweikamp
parents:
diff changeset
151 rcall deco_setup_oc_gases ; Setup OC Gases
heinrichsweikamp
parents:
diff changeset
152 btfsc is_bailout ; =1: Bailout
heinrichsweikamp
parents:
diff changeset
153 rcall deco_setup_oc_gases ; Setup OC/Bailout Gases
heinrichsweikamp
parents:
diff changeset
154
178
39f6c07ce2f6 BUGFIX: Average depth computation
heinrichsweikamp
parents: 174
diff changeset
155 movff divemins+0,int_I_divemins+0 ; Current dive time.
39f6c07ce2f6 BUGFIX: Average depth computation
heinrichsweikamp
parents: 174
diff changeset
156 movff divemins+1,int_I_divemins+1
39f6c07ce2f6 BUGFIX: Average depth computation
heinrichsweikamp
parents: 174
diff changeset
157
0
heinrichsweikamp
parents:
diff changeset
158 movlw deco_distance
heinrichsweikamp
parents:
diff changeset
159 movff WREG,char_I_deco_distance
heinrichsweikamp
parents:
diff changeset
160 movff opt_last_stop,char_I_depth_last_deco
heinrichsweikamp
parents:
diff changeset
161 movff opt_GF_low,char_I_GF_Low_percentage
heinrichsweikamp
parents:
diff changeset
162 movff opt_GF_high,char_I_GF_High_percentage
heinrichsweikamp
parents:
diff changeset
163 ;Overwrite GF if aGF is wanted
heinrichsweikamp
parents:
diff changeset
164 btfsc use_agf ; =1: Use aGF
heinrichsweikamp
parents:
diff changeset
165 movff opt_aGF_low,char_I_GF_Low_percentage
heinrichsweikamp
parents:
diff changeset
166 btfsc use_agf ; =1: Use aGF
heinrichsweikamp
parents:
diff changeset
167 movff opt_aGF_high,char_I_GF_High_percentage
heinrichsweikamp
parents:
diff changeset
168 return
heinrichsweikamp
parents:
diff changeset
169
heinrichsweikamp
parents:
diff changeset
170 deco_setup_cc_diluents:
heinrichsweikamp
parents:
diff changeset
171 movff opt_dil_He_ratio+0,char_I_deco_He_ratio+0
heinrichsweikamp
parents:
diff changeset
172 movff char_I_deco_He_ratio+0,lo
heinrichsweikamp
parents:
diff changeset
173 movff opt_dil_O2_ratio+0,WREG
heinrichsweikamp
parents:
diff changeset
174 addwf lo,W ; O2 + He -> WREG
heinrichsweikamp
parents:
diff changeset
175 sublw .100 ; 100 - (O2 + He) -> WREG
heinrichsweikamp
parents:
diff changeset
176 movff WREG,char_I_deco_N2_ratio+0
heinrichsweikamp
parents:
diff changeset
177 movff opt_dil_type+0,WREG ; 0=Disabled, 1=First, 2=Normal
heinrichsweikamp
parents:
diff changeset
178 tstfsz WREG ; Disabled?
heinrichsweikamp
parents:
diff changeset
179 bra $+4 ; No
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
180 movff WREG,char_I_dil_change+0 ; Yes, clear char_I_deco_gas_change
0
heinrichsweikamp
parents:
diff changeset
181
heinrichsweikamp
parents:
diff changeset
182 movff opt_dil_He_ratio+1,char_I_deco_He_ratio+1
heinrichsweikamp
parents:
diff changeset
183 movff char_I_deco_He_ratio+1,lo
heinrichsweikamp
parents:
diff changeset
184 movff opt_dil_O2_ratio+1,WREG
heinrichsweikamp
parents:
diff changeset
185 addwf lo,W ; O2 + He -> WREG
heinrichsweikamp
parents:
diff changeset
186 sublw .100 ; 100 - (O2 + He) -> WREG
heinrichsweikamp
parents:
diff changeset
187 movff WREG,char_I_deco_N2_ratio+1
heinrichsweikamp
parents:
diff changeset
188 movff opt_dil_type+1,WREG ; 0=Disabled, 1=First, 2=Normal
heinrichsweikamp
parents:
diff changeset
189 tstfsz WREG ; Disabled?
heinrichsweikamp
parents:
diff changeset
190 bra $+4 ; No
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
191 movff WREG,char_I_dil_change+1 ; Yes, clear char_I_dil_change
0
heinrichsweikamp
parents:
diff changeset
192
heinrichsweikamp
parents:
diff changeset
193 movff opt_dil_He_ratio+2,char_I_deco_He_ratio+2
heinrichsweikamp
parents:
diff changeset
194 movff char_I_deco_He_ratio+2,lo
heinrichsweikamp
parents:
diff changeset
195 movff opt_dil_O2_ratio+2,WREG
heinrichsweikamp
parents:
diff changeset
196 addwf lo,W ; O2 + He -> WREG
heinrichsweikamp
parents:
diff changeset
197 sublw .100 ; 100 - (O2 + He) -> WREG
heinrichsweikamp
parents:
diff changeset
198 movff WREG,char_I_deco_N2_ratio+2
heinrichsweikamp
parents:
diff changeset
199 movff opt_dil_type+2,WREG ; 0=Disabled, 1=First, 2=Normal
heinrichsweikamp
parents:
diff changeset
200 tstfsz WREG ; Disabled?
heinrichsweikamp
parents:
diff changeset
201 bra $+4 ; No
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
202 movff WREG,char_I_dil_change+2 ; Yes, clear char_I_dil_change
0
heinrichsweikamp
parents:
diff changeset
203
heinrichsweikamp
parents:
diff changeset
204 movff opt_dil_He_ratio+3,char_I_deco_He_ratio+3
heinrichsweikamp
parents:
diff changeset
205 movff char_I_deco_He_ratio+3,lo
heinrichsweikamp
parents:
diff changeset
206 movff opt_dil_O2_ratio+3,WREG
heinrichsweikamp
parents:
diff changeset
207 addwf lo,W ; O2 + He -> WREG
heinrichsweikamp
parents:
diff changeset
208 sublw .100 ; 100 - (O2 + He) -> WREG
heinrichsweikamp
parents:
diff changeset
209 movff WREG,char_I_deco_N2_ratio+3
heinrichsweikamp
parents:
diff changeset
210 movff opt_dil_type+3,WREG ; 0=Disabled, 1=First, 2=Normal
heinrichsweikamp
parents:
diff changeset
211 tstfsz WREG ; Disabled?
heinrichsweikamp
parents:
diff changeset
212 bra $+4 ; No
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
213 movff WREG,char_I_dil_change+3 ; Yes, clear char_I_dil_change
0
heinrichsweikamp
parents:
diff changeset
214
heinrichsweikamp
parents:
diff changeset
215 movff opt_dil_He_ratio+4,char_I_deco_He_ratio+4
heinrichsweikamp
parents:
diff changeset
216 movff char_I_deco_He_ratio+4,lo
heinrichsweikamp
parents:
diff changeset
217 movff opt_dil_O2_ratio+4,WREG
heinrichsweikamp
parents:
diff changeset
218 addwf lo,W ; O2 + He -> WREG
heinrichsweikamp
parents:
diff changeset
219 sublw .100 ; 100 - (O2 + He) -> WREG
heinrichsweikamp
parents:
diff changeset
220 movff WREG,char_I_deco_N2_ratio+4
heinrichsweikamp
parents:
diff changeset
221 movff opt_dil_type+4,WREG ; 0=Disabled, 1=First, 2=Normal
heinrichsweikamp
parents:
diff changeset
222 tstfsz WREG ; Disabled?
heinrichsweikamp
parents:
diff changeset
223 bra $+4 ; No
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
224 movff WREG,char_I_dil_change+4 ; Yes, clear char_I_dil_change
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
225
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
226 ; Setup char_I_deco_gas_change array
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
227 movff char_I_dil_change+0, char_I_deco_gas_change+0
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
228 movff char_I_dil_change+1, char_I_deco_gas_change+1
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
229 movff char_I_dil_change+2, char_I_deco_gas_change+2
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
230 movff char_I_dil_change+3, char_I_deco_gas_change+3
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
231 movff char_I_dil_change+4, char_I_deco_gas_change+4
0
heinrichsweikamp
parents:
diff changeset
232 return
heinrichsweikamp
parents:
diff changeset
233
heinrichsweikamp
parents:
diff changeset
234 deco_setup_oc_gases:
heinrichsweikamp
parents:
diff changeset
235 movff opt_gas_He_ratio+0,char_I_deco_He_ratio+0
heinrichsweikamp
parents:
diff changeset
236 movff char_I_deco_He_ratio+0,lo
heinrichsweikamp
parents:
diff changeset
237 movff opt_gas_O2_ratio+0,WREG
heinrichsweikamp
parents:
diff changeset
238 addwf lo,W ; O2 + He -> WREG
heinrichsweikamp
parents:
diff changeset
239 sublw .100 ; 100 - (O2 + He) -> WREG
heinrichsweikamp
parents:
diff changeset
240 movff WREG,char_I_deco_N2_ratio+0
174
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
241 banksel opt_gas_type+0
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
242 movlw .3 ; 3=Deco
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
243 cpfseq opt_gas_type+0 ; Gas is deco type?
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
244 clrf opt_OC_bail_gas_change+0 ; No, clear depth for 0=Disabled, 1=First and 2=Travel
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
245 banksel common
0
heinrichsweikamp
parents:
diff changeset
246
heinrichsweikamp
parents:
diff changeset
247 movff opt_gas_He_ratio+1,char_I_deco_He_ratio+1
heinrichsweikamp
parents:
diff changeset
248 movff char_I_deco_He_ratio+1,lo
heinrichsweikamp
parents:
diff changeset
249 movff opt_gas_O2_ratio+1,WREG
heinrichsweikamp
parents:
diff changeset
250 addwf lo,W ; O2 + He -> WREG
heinrichsweikamp
parents:
diff changeset
251 sublw .100 ; 100 - (O2 + He) -> WREG
heinrichsweikamp
parents:
diff changeset
252 movff WREG,char_I_deco_N2_ratio+1
174
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
253 banksel opt_gas_type+1
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
254 movlw .3 ; 3=Deco
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
255 cpfseq opt_gas_type+1 ; Gas is deco type?
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
256 clrf opt_OC_bail_gas_change+1 ; No, clear depth for 0=Disabled, 1=First and 2=Travel
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
257 banksel common
0
heinrichsweikamp
parents:
diff changeset
258
heinrichsweikamp
parents:
diff changeset
259 movff opt_gas_He_ratio+2,char_I_deco_He_ratio+2
heinrichsweikamp
parents:
diff changeset
260 movff char_I_deco_He_ratio+2,lo
heinrichsweikamp
parents:
diff changeset
261 movff opt_gas_O2_ratio+2,WREG
heinrichsweikamp
parents:
diff changeset
262 addwf lo,W ; O2 + He -> WREG
heinrichsweikamp
parents:
diff changeset
263 sublw .100 ; 100 - (O2 + He) -> WREG
heinrichsweikamp
parents:
diff changeset
264 movff WREG,char_I_deco_N2_ratio+2
174
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
265 banksel opt_gas_type+2
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
266 movlw .3 ; 3=Deco
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
267 cpfseq opt_gas_type+2 ; Gas is deco type?
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
268 clrf opt_OC_bail_gas_change+2 ; No, clear depth for 0=Disabled, 1=First and 2=Travel
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
269 banksel common
0
heinrichsweikamp
parents:
diff changeset
270
heinrichsweikamp
parents:
diff changeset
271 movff opt_gas_He_ratio+3,char_I_deco_He_ratio+3
heinrichsweikamp
parents:
diff changeset
272 movff char_I_deco_He_ratio+3,lo
heinrichsweikamp
parents:
diff changeset
273 movff opt_gas_O2_ratio+3,WREG
heinrichsweikamp
parents:
diff changeset
274 addwf lo,W ; O2 + He -> WREG
heinrichsweikamp
parents:
diff changeset
275 sublw .100 ; 100 - (O2 + He) -> WREG
heinrichsweikamp
parents:
diff changeset
276 movff WREG,char_I_deco_N2_ratio+3
174
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
277 banksel opt_gas_type+3
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
278 movlw .3 ; 3=Deco
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
279 cpfseq opt_gas_type+3 ; Gas is deco type?
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
280 clrf opt_OC_bail_gas_change+3 ; No, clear depth for 0=Disabled, 1=First and 2=Travel
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
281 banksel common
0
heinrichsweikamp
parents:
diff changeset
282
heinrichsweikamp
parents:
diff changeset
283 movff opt_gas_He_ratio+4,char_I_deco_He_ratio+4
heinrichsweikamp
parents:
diff changeset
284 movff char_I_deco_He_ratio+4,lo
heinrichsweikamp
parents:
diff changeset
285 movff opt_gas_O2_ratio+4,WREG
heinrichsweikamp
parents:
diff changeset
286 addwf lo,W ; O2 + He -> WREG
heinrichsweikamp
parents:
diff changeset
287 sublw .100 ; 100 - (O2 + He) -> WREG
heinrichsweikamp
parents:
diff changeset
288 movff WREG,char_I_deco_N2_ratio+4
174
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
289 banksel opt_gas_type+4
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
290 movlw .3 ; 3=Deco
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
291 cpfseq opt_gas_type+4 ; Gas is deco type?
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
292 clrf opt_OC_bail_gas_change+4 ; No, clear depth for 0=Disabled, 1=First and 2=Travel
932e91074bdb CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents: 148
diff changeset
293 banksel common
94
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 81
diff changeset
294
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 81
diff changeset
295 movlw .0
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 81
diff changeset
296 movff WREG,char_I_const_ppO2 ; Clear constant ppO2 for OC/bailout
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
297
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
298 ; Setup char_I_deco_gas_change array
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
299 movff opt_OC_bail_gas_change+0, char_I_deco_gas_change+0
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
300 movff opt_OC_bail_gas_change+1, char_I_deco_gas_change+1
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
301 movff opt_OC_bail_gas_change+2, char_I_deco_gas_change+2
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
302 movff opt_OC_bail_gas_change+3, char_I_deco_gas_change+3
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 94
diff changeset
303 movff opt_OC_bail_gas_change+4, char_I_deco_gas_change+4
0
heinrichsweikamp
parents:
diff changeset
304 return
heinrichsweikamp
parents:
diff changeset
305
heinrichsweikamp
parents:
diff changeset
306 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
307 ; Reset decompression tissues
heinrichsweikamp
parents:
diff changeset
308 ;
heinrichsweikamp
parents:
diff changeset
309 global deco_reset
heinrichsweikamp
parents:
diff changeset
310 deco_reset:
heinrichsweikamp
parents:
diff changeset
311 rcall deco_setup ; Setup all model parameters.
heinrichsweikamp
parents:
diff changeset
312 call deco_clear_tissue ; Set all tissues to Pamb * N2_ratio
heinrichsweikamp
parents:
diff changeset
313 call deco_clear_CNS_fraction ; Reset CNS value.
heinrichsweikamp
parents:
diff changeset
314 banksel common ; Bank1
heinrichsweikamp
parents:
diff changeset
315 return
heinrichsweikamp
parents:
diff changeset
316
heinrichsweikamp
parents:
diff changeset
317 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
318 ; Launch decoplanning
heinrichsweikamp
parents:
diff changeset
319 ;
heinrichsweikamp
parents:
diff changeset
320 global deco_planer
heinrichsweikamp
parents:
diff changeset
321 deco_planer:
heinrichsweikamp
parents:
diff changeset
322 call speed_fastest ; Quick !
heinrichsweikamp
parents:
diff changeset
323 rcall deco_setup ; Setup all model parameters.
heinrichsweikamp
parents:
diff changeset
324 call deco_push_tissues_to_vault
heinrichsweikamp
parents:
diff changeset
325 banksel common ; Bank1
heinrichsweikamp
parents:
diff changeset
326
heinrichsweikamp
parents:
diff changeset
327 ;---- Specific settings ------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
328
heinrichsweikamp
parents:
diff changeset
329 banksel char_O_deco_status ; Bank 2
heinrichsweikamp
parents:
diff changeset
330 movlw .3 ; Start in surface state.
heinrichsweikamp
parents:
diff changeset
331 movwf char_O_deco_status
heinrichsweikamp
parents:
diff changeset
332
heinrichsweikamp
parents:
diff changeset
333 banksel char_I_step_is_1min ; Bank 3
heinrichsweikamp
parents:
diff changeset
334 movlw 1
heinrichsweikamp
parents:
diff changeset
335 movwf char_I_step_is_1min ; Set 1min steps
heinrichsweikamp
parents:
diff changeset
336
heinrichsweikamp
parents:
diff changeset
337 ;---- Add delay at surface, if needed ----------------------------------------
heinrichsweikamp
parents:
diff changeset
338 tstfsz char_I_dive_interval
heinrichsweikamp
parents:
diff changeset
339 call deco_calc_dive_interval
heinrichsweikamp
parents:
diff changeset
340
heinrichsweikamp
parents:
diff changeset
341 ;---- Dive loop --------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
342
heinrichsweikamp
parents:
diff changeset
343 ; Compute dive ambiant conditions
heinrichsweikamp
parents:
diff changeset
344 banksel char_I_bottom_depth
heinrichsweikamp
parents:
diff changeset
345 movf char_I_bottom_depth,W
heinrichsweikamp
parents:
diff changeset
346 mullw .100
heinrichsweikamp
parents:
diff changeset
347 movlw LOW(.1000)
heinrichsweikamp
parents:
diff changeset
348 addwf PRODL,W
heinrichsweikamp
parents:
diff changeset
349 movwf int_I_pres_respiration+0
heinrichsweikamp
parents:
diff changeset
350 movlw HIGH(.1000)
heinrichsweikamp
parents:
diff changeset
351 addwfc PRODH,W
heinrichsweikamp
parents:
diff changeset
352 movwf int_I_pres_respiration+1
heinrichsweikamp
parents:
diff changeset
353
heinrichsweikamp
parents:
diff changeset
354 banksel int_I_divemins ; Bank 4
heinrichsweikamp
parents:
diff changeset
355 clrf int_I_divemins+0 ; Clear dive time
heinrichsweikamp
parents:
diff changeset
356 clrf int_I_divemins+1
heinrichsweikamp
parents:
diff changeset
357
heinrichsweikamp
parents:
diff changeset
358 clrf TMR5L
heinrichsweikamp
parents:
diff changeset
359 clrf TMR5H ; 30,51757813µs/bit in TMR5L:TMR5H
heinrichsweikamp
parents:
diff changeset
360 call deco_calc_hauptroutine ; Reset + simulate first min.
heinrichsweikamp
parents:
diff changeset
361
heinrichsweikamp
parents:
diff changeset
362 deco_planer_loop:
heinrichsweikamp
parents:
diff changeset
363 banksel int_I_divemins ; Bank 3
heinrichsweikamp
parents:
diff changeset
364 incf int_I_divemins,F ; Done 1 min.
heinrichsweikamp
parents:
diff changeset
365 btg LEDg
heinrichsweikamp
parents:
diff changeset
366
heinrichsweikamp
parents:
diff changeset
367 movf char_I_bottom_time,W ; Finished ?
heinrichsweikamp
parents:
diff changeset
368 xorwf int_I_divemins,W
heinrichsweikamp
parents:
diff changeset
369 bz deco_planer_endloop ; YES
111
c61b7a4e317c Bugfix: CNS in planner
heinrichsweikamp
parents: 97
diff changeset
370
0
heinrichsweikamp
parents:
diff changeset
371 call deco_calc_tissue ; JUST calc tissue (faster).
heinrichsweikamp
parents:
diff changeset
372 call deco_calc_CNS_fraction ; Also calculate CNS (in 1min loop)
heinrichsweikamp
parents:
diff changeset
373 bra deco_planer_loop
heinrichsweikamp
parents:
diff changeset
374
heinrichsweikamp
parents:
diff changeset
375 deco_planer_endloop:
heinrichsweikamp
parents:
diff changeset
376 banksel char_I_step_is_1min
heinrichsweikamp
parents:
diff changeset
377 clrf char_I_step_is_1min ; Back to 2sec loops
heinrichsweikamp
parents:
diff changeset
378
heinrichsweikamp
parents:
diff changeset
379 ;---- Wait until status reach zero -------------------------------------------
heinrichsweikamp
parents:
diff changeset
380 deco_planer_finishing:
heinrichsweikamp
parents:
diff changeset
381 btg LEDg
heinrichsweikamp
parents:
diff changeset
382 clrf TMR5L
heinrichsweikamp
parents:
diff changeset
383 clrf TMR5H ; 30,51757813µs/bit in TMR5L:TMR5H
heinrichsweikamp
parents:
diff changeset
384 call deco_calc_hauptroutine ; Simulate 2sec more
heinrichsweikamp
parents:
diff changeset
385
heinrichsweikamp
parents:
diff changeset
386 banksel char_O_deco_status ; Bank 2
heinrichsweikamp
parents:
diff changeset
387 movf char_O_deco_status,W
heinrichsweikamp
parents:
diff changeset
388 bz deco_planer_finished
heinrichsweikamp
parents:
diff changeset
389
heinrichsweikamp
parents:
diff changeset
390 bra deco_planer_finishing
heinrichsweikamp
parents:
diff changeset
391
heinrichsweikamp
parents:
diff changeset
392 deco_planer_finished:
heinrichsweikamp
parents:
diff changeset
393 call deco_calc_CNS_planning
heinrichsweikamp
parents:
diff changeset
394 movff int_O_CNS_fraction+0,decoplan_CNS+0
heinrichsweikamp
parents:
diff changeset
395 movff int_O_CNS_fraction+1,decoplan_CNS+1
heinrichsweikamp
parents:
diff changeset
396 call deco_pull_tissues_from_vault
heinrichsweikamp
parents:
diff changeset
397 bcf LEDg
heinrichsweikamp
parents:
diff changeset
398 banksel common ; Bank1
heinrichsweikamp
parents:
diff changeset
399 movlw b'00111000' ; 1:8 Prescaler -> 65,536ms@16MHz
heinrichsweikamp
parents:
diff changeset
400 movwf T3CON
heinrichsweikamp
parents:
diff changeset
401 call speed_normal
heinrichsweikamp
parents:
diff changeset
402 return
heinrichsweikamp
parents:
diff changeset
403
heinrichsweikamp
parents:
diff changeset
404 ;-----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
405 ; Draw a stop of the deco plan (simulator or dive).
heinrichsweikamp
parents:
diff changeset
406 ; Inputs: lo = depth. Range 3m...93m
heinrichsweikamp
parents:
diff changeset
407 ; + 80 if this is a switch-gas stop.
heinrichsweikamp
parents:
diff changeset
408 ; up = minutes. range 1'..240'.
heinrichsweikamp
parents:
diff changeset
409 ; win_top = line to draw on screen.
heinrichsweikamp
parents:
diff changeset
410 ; Trashed: up, lo, win_height, win_leftx2, win_width, win_color*,
heinrichsweikamp
parents:
diff changeset
411 ; WREG, PROD, TBLPTR TABLAT.
heinrichsweikamp
parents:
diff changeset
412 ;
heinrichsweikamp
parents:
diff changeset
413 deco_plan_show_stop:
heinrichsweikamp
parents:
diff changeset
414 ;---- Print depth ----------------------------------------------------
heinrichsweikamp
parents:
diff changeset
415 btfss lo,7 ; Bit set ?
heinrichsweikamp
parents:
diff changeset
416 bra deco_plan_show_std_stop ; No : Just an usual stop.
heinrichsweikamp
parents:
diff changeset
417
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 46
diff changeset
418 call TFT_attention_color
0
heinrichsweikamp
parents:
diff changeset
419 bcf lo,7 ; and cleanup depth.
heinrichsweikamp
parents:
diff changeset
420 bra deco_plan_show_nstd_stop
heinrichsweikamp
parents:
diff changeset
421
heinrichsweikamp
parents:
diff changeset
422 deco_plan_show_std_stop:
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 46
diff changeset
423 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
424
heinrichsweikamp
parents:
diff changeset
425 deco_plan_show_nstd_stop:
heinrichsweikamp
parents:
diff changeset
426 lfsr FSR2,buffer
heinrichsweikamp
parents:
diff changeset
427
heinrichsweikamp
parents:
diff changeset
428 TSTOSS opt_units ; 0=Meters, 1=Feets
heinrichsweikamp
parents:
diff changeset
429 bra deco_plan_show_nstd_stop_metric
heinrichsweikamp
parents:
diff changeset
430
heinrichsweikamp
parents:
diff changeset
431 WIN_LEFT .85
heinrichsweikamp
parents:
diff changeset
432 movf lo,W ; lo = m
heinrichsweikamp
parents:
diff changeset
433 mullw .100 ; PRODL:PRODH = mbar
heinrichsweikamp
parents:
diff changeset
434 movff PRODL,lo
heinrichsweikamp
parents:
diff changeset
435 movff PRODH,hi
heinrichsweikamp
parents:
diff changeset
436 ; Convert with 334feet/100m to have 10ft, 20ft, 30ft stops...
heinrichsweikamp
parents:
diff changeset
437 movff lo,xA+0
heinrichsweikamp
parents:
diff changeset
438 movff hi,xA+1
heinrichsweikamp
parents:
diff changeset
439 movlw LOW d'334' ; 334feet/100m
heinrichsweikamp
parents:
diff changeset
440 movwf xB+0
heinrichsweikamp
parents:
diff changeset
441 movlw HIGH d'334'
heinrichsweikamp
parents:
diff changeset
442 movwf xB+1
heinrichsweikamp
parents:
diff changeset
443 call mult16x16 ; xA*xB=xC (lo:hi * 328)
heinrichsweikamp
parents:
diff changeset
444 movlw d'50' ; round up
heinrichsweikamp
parents:
diff changeset
445 addwf xC+0,F
heinrichsweikamp
parents:
diff changeset
446 movlw 0
heinrichsweikamp
parents:
diff changeset
447 addwfc xC+1,F
heinrichsweikamp
parents:
diff changeset
448 addwfc xC+2,F
heinrichsweikamp
parents:
diff changeset
449 addwfc xC+3,F
heinrichsweikamp
parents:
diff changeset
450 movlw d'100'
heinrichsweikamp
parents:
diff changeset
451 movwf xB+0
heinrichsweikamp
parents:
diff changeset
452 clrf xB+1
heinrichsweikamp
parents:
diff changeset
453 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
heinrichsweikamp
parents:
diff changeset
454 movff xC+0,lo
heinrichsweikamp
parents:
diff changeset
455 movff xC+1,hi ; restore lo and hi with updated value
heinrichsweikamp
parents:
diff changeset
456 bsf leftbind
heinrichsweikamp
parents:
diff changeset
457 bsf ignore_digit4 ; Only full feet
heinrichsweikamp
parents:
diff changeset
458 output_16
heinrichsweikamp
parents:
diff changeset
459 STRCAT_PRINT "ft "
heinrichsweikamp
parents:
diff changeset
460 bra deco_plan_show_nstd_stop_common
heinrichsweikamp
parents:
diff changeset
461
heinrichsweikamp
parents:
diff changeset
462 deco_plan_show_nstd_stop_metric:
heinrichsweikamp
parents:
diff changeset
463 WIN_LEFT .90
heinrichsweikamp
parents:
diff changeset
464 bsf leftbind
heinrichsweikamp
parents:
diff changeset
465 output_8 ; outputs into Postinc2!
heinrichsweikamp
parents:
diff changeset
466 STRCAT_PRINT "m "
heinrichsweikamp
parents:
diff changeset
467 deco_plan_show_nstd_stop_common:
heinrichsweikamp
parents:
diff changeset
468 ;---- Print duration -------------------------------------------------
heinrichsweikamp
parents:
diff changeset
469 WIN_LEFT .135
heinrichsweikamp
parents:
diff changeset
470 lfsr FSR2,buffer
heinrichsweikamp
parents:
diff changeset
471
heinrichsweikamp
parents:
diff changeset
472 movf lo,W ; Swap up & lo
heinrichsweikamp
parents:
diff changeset
473 movff up,lo
heinrichsweikamp
parents:
diff changeset
474 movwf up
heinrichsweikamp
parents:
diff changeset
475
heinrichsweikamp
parents:
diff changeset
476 output_8 ; Allow up to 240'
heinrichsweikamp
parents:
diff changeset
477 STRCAT_PRINT "' " ; 1 to 3 chars for depth.
heinrichsweikamp
parents:
diff changeset
478
heinrichsweikamp
parents:
diff changeset
479 movf lo,W ; Swap back up & lo
heinrichsweikamp
parents:
diff changeset
480 movff up,lo
heinrichsweikamp
parents:
diff changeset
481 movwf up
heinrichsweikamp
parents:
diff changeset
482
heinrichsweikamp
parents:
diff changeset
483 ;---------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
484 ; Draw the bar graph used for deco stops (decoplan in simulator or dive).
heinrichsweikamp
parents:
diff changeset
485 incf win_top,F
heinrichsweikamp
parents:
diff changeset
486 movlw .19
heinrichsweikamp
parents:
diff changeset
487 movwf win_height
heinrichsweikamp
parents:
diff changeset
488 movlw .118
heinrichsweikamp
parents:
diff changeset
489 movwf win_leftx2 ; column left (0-159)
heinrichsweikamp
parents:
diff changeset
490 movlw .16
heinrichsweikamp
parents:
diff changeset
491 movwf win_width ; column max width.
heinrichsweikamp
parents:
diff changeset
492
heinrichsweikamp
parents:
diff changeset
493 ; Draw used area (up = minutes):
heinrichsweikamp
parents:
diff changeset
494 movlw .16 ; Limit length (16min)
heinrichsweikamp
parents:
diff changeset
495 cpfslt up
heinrichsweikamp
parents:
diff changeset
496 movwf up
heinrichsweikamp
parents:
diff changeset
497 movff up,win_bargraph ; Active width, the rest is cleared.
heinrichsweikamp
parents:
diff changeset
498 call TFT_box
heinrichsweikamp
parents:
diff changeset
499
heinrichsweikamp
parents:
diff changeset
500 ; Restore win_top
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 46
diff changeset
501 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
502 decf win_top,F ; Restore win_top
heinrichsweikamp
parents:
diff changeset
503 return
heinrichsweikamp
parents:
diff changeset
504
heinrichsweikamp
parents:
diff changeset
505 ;-----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
506 ; Clear unused area belw last stop
heinrichsweikamp
parents:
diff changeset
507 ; Inputs: win_top : last used area...
heinrichsweikamp
parents:
diff changeset
508 deco_plan_show_clear_bottom:
heinrichsweikamp
parents:
diff changeset
509 movf win_top,W ; Get back from bank0
heinrichsweikamp
parents:
diff changeset
510 btfsc divemode ; In dive mode ?
heinrichsweikamp
parents:
diff changeset
511 sublw .168 ; Yes: bottom row in divemode
heinrichsweikamp
parents:
diff changeset
512 btfss divemode ; In dive mode ?
heinrichsweikamp
parents:
diff changeset
513 sublw .240 ; No: bottom row in planning
heinrichsweikamp
parents:
diff changeset
514 movwf win_height
heinrichsweikamp
parents:
diff changeset
515
heinrichsweikamp
parents:
diff changeset
516 WIN_LEFT .85 ; Full divemenu width
heinrichsweikamp
parents:
diff changeset
517 movlw .160-.85+1
heinrichsweikamp
parents:
diff changeset
518 movwf win_width
heinrichsweikamp
parents:
diff changeset
519
heinrichsweikamp
parents:
diff changeset
520 clrf win_color1 ; Fill with black
heinrichsweikamp
parents:
diff changeset
521 clrf win_color2
heinrichsweikamp
parents:
diff changeset
522
heinrichsweikamp
parents:
diff changeset
523 goto TFT_box
heinrichsweikamp
parents:
diff changeset
524
heinrichsweikamp
parents:
diff changeset
525 ;-----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
526 ; Display the decoplan (simulator or divemode).
heinrichsweikamp
parents:
diff changeset
527 ; Inputs: char_O_deco_table (array of stop times, in minutes)
heinrichsweikamp
parents:
diff changeset
528 ; decoplan_page = page number.
heinrichsweikamp
parents:
diff changeset
529 ;
heinrichsweikamp
parents:
diff changeset
530 deco_show_plan_page:
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 178
diff changeset
531 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
532
heinrichsweikamp
parents:
diff changeset
533 ;---- Is there deco stops ? ------------------------------------------
heinrichsweikamp
parents:
diff changeset
534 movff char_O_first_deco_depth,WREG
heinrichsweikamp
parents:
diff changeset
535 iorwf WREG
heinrichsweikamp
parents:
diff changeset
536 bnz deco_plan_show_1
heinrichsweikamp
parents:
diff changeset
537
heinrichsweikamp
parents:
diff changeset
538 ;---- No Deco --------------------------------------------------------
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 46
diff changeset
539 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
540 TEXT_SMALL .80, .0, tNoDeco
heinrichsweikamp
parents:
diff changeset
541 bsf decoplan_last_ceiling_shown
heinrichsweikamp
parents:
diff changeset
542 return
heinrichsweikamp
parents:
diff changeset
543
heinrichsweikamp
parents:
diff changeset
544 deco_plan_show_1:
heinrichsweikamp
parents:
diff changeset
545 lfsr FSR0,char_O_deco_depth ; Initialize indexed addressing.
heinrichsweikamp
parents:
diff changeset
546 lfsr FSR1,char_O_deco_time
heinrichsweikamp
parents:
diff changeset
547
heinrichsweikamp
parents:
diff changeset
548 clrf decoplan_index ; Start with index = 0
heinrichsweikamp
parents:
diff changeset
549 clrf win_top ; and row = 0
heinrichsweikamp
parents:
diff changeset
550
heinrichsweikamp
parents:
diff changeset
551 ; Read stop parameters, indexed by decoplan_index and decoplan_page
heinrichsweikamp
parents:
diff changeset
552 movf decoplan_page,W ; decoplan_gindex = 6*decoplan_page + decoplan_index
148
022b886eddaf some cleanup
heinrichsweikamp
parents: 136
diff changeset
553 mullw .8 ; 8 lines/page in decoplan
0
heinrichsweikamp
parents:
diff changeset
554 movf decoplan_index,W
heinrichsweikamp
parents:
diff changeset
555 addwf PRODL,W
heinrichsweikamp
parents:
diff changeset
556 movwf decoplan_gindex ; --> decoplan_gindex
heinrichsweikamp
parents:
diff changeset
557
heinrichsweikamp
parents:
diff changeset
558 bcf decoplan_last_ceiling_shown ; Not finished yet...
heinrichsweikamp
parents:
diff changeset
559
heinrichsweikamp
parents:
diff changeset
560 deco_plan_show_2:
heinrichsweikamp
parents:
diff changeset
561 btfsc decoplan_gindex,5 ; Reached table length (32) ?
heinrichsweikamp
parents:
diff changeset
562 bra deco_plan_show_99 ; YES: finished...
heinrichsweikamp
parents:
diff changeset
563
heinrichsweikamp
parents:
diff changeset
564 ; Read stop parameters, indexed by decoplan_index
heinrichsweikamp
parents:
diff changeset
565 movf decoplan_gindex,W ; index
heinrichsweikamp
parents:
diff changeset
566 movff PLUSW1,up ; char_O_deco_time [gindex] --> up
heinrichsweikamp
parents:
diff changeset
567 movff PLUSW0,lo ; char_O_deco_depth[gindex]
heinrichsweikamp
parents:
diff changeset
568 movf lo,W
heinrichsweikamp
parents:
diff changeset
569 bz deco_plan_show_99 ; depth == 0 : finished.
heinrichsweikamp
parents:
diff changeset
570
heinrichsweikamp
parents:
diff changeset
571 ; Display the stop line
heinrichsweikamp
parents:
diff changeset
572 rcall deco_plan_show_stop
heinrichsweikamp
parents:
diff changeset
573
heinrichsweikamp
parents:
diff changeset
574 ; Next
heinrichsweikamp
parents:
diff changeset
575 movlw .24
heinrichsweikamp
parents:
diff changeset
576 addwf win_top,F ; row: += 24
heinrichsweikamp
parents:
diff changeset
577 incf decoplan_index,F ; local index += 1
heinrichsweikamp
parents:
diff changeset
578 incf decoplan_gindex,F ; global index += 1
heinrichsweikamp
parents:
diff changeset
579
heinrichsweikamp
parents:
diff changeset
580 ; Max number of lines/page reached ?
148
022b886eddaf some cleanup
heinrichsweikamp
parents: 136
diff changeset
581 movlw .8 ; 8 lines/page in decoplan
0
heinrichsweikamp
parents:
diff changeset
582 cpfseq decoplan_index
heinrichsweikamp
parents:
diff changeset
583 bra deco_plan_show_2 ; NO: loop
heinrichsweikamp
parents:
diff changeset
584
heinrichsweikamp
parents:
diff changeset
585 ; Check if next stop if end-of-list ?
heinrichsweikamp
parents:
diff changeset
586 movf decoplan_gindex,W
heinrichsweikamp
parents:
diff changeset
587 movf PLUSW0,W ; char_O_deco_depth[gindex]
heinrichsweikamp
parents:
diff changeset
588 bz deco_plan_show_99 ; End of list...
heinrichsweikamp
parents:
diff changeset
589
heinrichsweikamp
parents:
diff changeset
590 ; Display the message "more..."
heinrichsweikamp
parents:
diff changeset
591 rcall deco_plan_show_clear_bottom ; Clear from next line
heinrichsweikamp
parents:
diff changeset
592
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 46
diff changeset
593 call TFT_standard_color
208
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
594 TEXT_SMALL .88, .220, tMore
0
heinrichsweikamp
parents:
diff changeset
595 return
heinrichsweikamp
parents:
diff changeset
596
heinrichsweikamp
parents:
diff changeset
597 deco_plan_show_99:
heinrichsweikamp
parents:
diff changeset
598 bsf decoplan_last_ceiling_shown ; Nothing more in table to display.
heinrichsweikamp
parents:
diff changeset
599 rcall deco_plan_show_clear_bottom ; Clear from next line
heinrichsweikamp
parents:
diff changeset
600 return
heinrichsweikamp
parents:
diff changeset
601
heinrichsweikamp
parents:
diff changeset
602 ;-----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
603 ; Loop to show all pages of the decoplan (surfacemode)
heinrichsweikamp
parents:
diff changeset
604
heinrichsweikamp
parents:
diff changeset
605 global deco_show_plan
heinrichsweikamp
parents:
diff changeset
606 deco_show_plan:
heinrichsweikamp
parents:
diff changeset
607 clrf decoplan_page
heinrichsweikamp
parents:
diff changeset
608 call TFT_ClearScreen
heinrichsweikamp
parents:
diff changeset
609 WIN_COLOR color_greenish
heinrichsweikamp
parents:
diff changeset
610 TEXT_SMALL .1,.1, tDivePlan
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 46
diff changeset
611 call TFT_standard_color
208
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
612
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
613 ; Show plan parameters
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
614 WIN_SMALL .0,.25
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
615 STRCPY "Int:"
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
616 movff char_I_dive_interval,lo
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
617 bsf leftbind
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
618 output_8
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
619 STRCAT_PRINT "'"
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
620 WIN_SMALL .0,.50
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
621 STRCPY_TEXT tBtTm_short
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
622 movff char_I_bottom_time,lo
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
623 bsf leftbind
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
624 output_8
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
625 STRCAT_PRINT "'"
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
626 WIN_SMALL .0,.75
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
627 STRCPY_TEXT tDepth
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
628 PUTC ":"
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
629 movff char_I_bottom_depth,lo
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
630 bsf leftbind
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
631 output_8
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
632 STRCAT_PRINT "m"
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
633
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
634 ; Show deco mode
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
635 WIN_TOP .155
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
636 lfsr FSR2,buffer
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
637 movff opt_dive_mode,lo ; 0=OC, 1=CC, 2=Gauge, 3=Apnea
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
638 call TFT_display_decotype_surface1
0
heinrichsweikamp
parents:
diff changeset
639
heinrichsweikamp
parents:
diff changeset
640 ;---- Display model
heinrichsweikamp
parents:
diff changeset
641 movff char_I_deco_model,WREG
heinrichsweikamp
parents:
diff changeset
642 iorwf WREG
heinrichsweikamp
parents:
diff changeset
643 bnz deco_show_plan_m1
heinrichsweikamp
parents:
diff changeset
644
heinrichsweikamp
parents:
diff changeset
645 ; Display ZH-L16 sat/desat model.
208
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
646 TEXT_SMALL .0,.130, tZHL16
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
647 WIN_SMALL .14,.155
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
648 PUTC ","
0
heinrichsweikamp
parents:
diff changeset
649 movff char_I_desaturation_multiplier,lo
heinrichsweikamp
parents:
diff changeset
650 output_8
heinrichsweikamp
parents:
diff changeset
651 STRCAT "%/"
heinrichsweikamp
parents:
diff changeset
652 movff char_I_saturation_multiplier,lo
heinrichsweikamp
parents:
diff changeset
653 output_8
heinrichsweikamp
parents:
diff changeset
654 bra deco_show_plan_m2
heinrichsweikamp
parents:
diff changeset
655
heinrichsweikamp
parents:
diff changeset
656 ; Display ZH-L16-GF low/high model.
heinrichsweikamp
parents:
diff changeset
657 deco_show_plan_m1:
208
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
658 TEXT_SMALL .0,.130, tZHL16GF
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
659 WIN_SMALL .14,.155
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
660 PUTC ","
0
heinrichsweikamp
parents:
diff changeset
661 movff char_I_GF_Low_percentage,lo
heinrichsweikamp
parents:
diff changeset
662 output_99x
heinrichsweikamp
parents:
diff changeset
663 STRCAT "%/"
heinrichsweikamp
parents:
diff changeset
664 movff char_I_GF_High_percentage,lo
heinrichsweikamp
parents:
diff changeset
665 output_99x
208
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
666 deco_show_plan_m2:
0
heinrichsweikamp
parents:
diff changeset
667 STRCAT_PRINT "%"
heinrichsweikamp
parents:
diff changeset
668
heinrichsweikamp
parents:
diff changeset
669 ;---- Display TTS result
208
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
670 WIN_SMALL .0,.180
0
heinrichsweikamp
parents:
diff changeset
671 STRCPY_TEXT tTTS
heinrichsweikamp
parents:
diff changeset
672 STRCAT ": "
heinrichsweikamp
parents:
diff changeset
673
heinrichsweikamp
parents:
diff changeset
674 movff int_O_ascenttime+0,lo
heinrichsweikamp
parents:
diff changeset
675 movff int_O_ascenttime+1,hi
heinrichsweikamp
parents:
diff changeset
676 bsf leftbind
heinrichsweikamp
parents:
diff changeset
677 output_16
heinrichsweikamp
parents:
diff changeset
678 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
679
heinrichsweikamp
parents:
diff changeset
680 ;---- Display CNS result
208
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
681 WIN_TOP .205
0
heinrichsweikamp
parents:
diff changeset
682 STRCPY_TEXT tCNS
heinrichsweikamp
parents:
diff changeset
683 STRCAT ": "
heinrichsweikamp
parents:
diff changeset
684 movff int_O_CNS_fraction+0,lo
heinrichsweikamp
parents:
diff changeset
685 movff int_O_CNS_fraction+1,hi
heinrichsweikamp
parents:
diff changeset
686 output_16_3
heinrichsweikamp
parents:
diff changeset
687 STRCAT "%\x92" ; "->"
heinrichsweikamp
parents:
diff changeset
688 movff decoplan_CNS+0,lo
heinrichsweikamp
parents:
diff changeset
689 movff decoplan_CNS+1,hi
heinrichsweikamp
parents:
diff changeset
690 output_16_3
heinrichsweikamp
parents:
diff changeset
691 STRCAT_PRINT "%"
heinrichsweikamp
parents:
diff changeset
692
heinrichsweikamp
parents:
diff changeset
693 ;---- Loop through pages
heinrichsweikamp
parents:
diff changeset
694 deco_show_plan_1:
heinrichsweikamp
parents:
diff changeset
695 rcall deco_show_plan_page
heinrichsweikamp
parents:
diff changeset
696 incf decoplan_page,F
heinrichsweikamp
parents:
diff changeset
697
heinrichsweikamp
parents:
diff changeset
698 call logbook_preloop_tasks
heinrichsweikamp
parents:
diff changeset
699 deco_show_plan_2:
heinrichsweikamp
parents:
diff changeset
700 btfsc switch_right
heinrichsweikamp
parents:
diff changeset
701 bra deco_show_plan_3
heinrichsweikamp
parents:
diff changeset
702 btfsc switch_left
208
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
703 return ; Return to simulator menu
0
heinrichsweikamp
parents:
diff changeset
704 call log_screendump_and_onesecond ; Check if we need to make a screenshot and check for new second
heinrichsweikamp
parents:
diff changeset
705 btfsc sleepmode ; Timeout?
9
150d07db6048 Timeout in decoplanner result page
heinrichsweikamp
parents: 0
diff changeset
706 goto restart
0
heinrichsweikamp
parents:
diff changeset
707 bra deco_show_plan_2
heinrichsweikamp
parents:
diff changeset
708
heinrichsweikamp
parents:
diff changeset
709 deco_show_plan_3:
heinrichsweikamp
parents:
diff changeset
710 btfss decoplan_last_ceiling_shown
heinrichsweikamp
parents:
diff changeset
711 bra deco_show_plan_1
208
53771bd3d567 NEW: Show plan parameters in decoplan result page
heinrichsweikamp
parents: 197
diff changeset
712 return ; Return to simulator menu
0
heinrichsweikamp
parents:
diff changeset
713
heinrichsweikamp
parents:
diff changeset
714 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
715 ;
heinrichsweikamp
parents:
diff changeset
716 global do_demo_divemode
heinrichsweikamp
parents:
diff changeset
717 do_demo_divemode:
heinrichsweikamp
parents:
diff changeset
718 extern option_save_all
heinrichsweikamp
parents:
diff changeset
719 call option_save_all ; Save all settings into EEPROM before starting simulation
heinrichsweikamp
parents:
diff changeset
720 call deco_push_tissues_to_vault
heinrichsweikamp
parents:
diff changeset
721 banksel common ; Bank1
heinrichsweikamp
parents:
diff changeset
722
heinrichsweikamp
parents:
diff changeset
723 bsf restore_deco_data ; Restore tissue and CNS after sim
heinrichsweikamp
parents:
diff changeset
724
heinrichsweikamp
parents:
diff changeset
725 bcf pressure_refresh
heinrichsweikamp
parents:
diff changeset
726 btfss pressure_refresh ; Wait for sensor
heinrichsweikamp
parents:
diff changeset
727 bra $-2
heinrichsweikamp
parents:
diff changeset
728
heinrichsweikamp
parents:
diff changeset
729 bsf simulatormode_active ; Set Flag
132
ec0b1e829399 Bugfix: Start dive mode simulator in correct depth
heinrichsweikamp
parents: 111
diff changeset
730 ; Compute dive ambient conditions
ec0b1e829399 Bugfix: Start dive mode simulator in correct depth
heinrichsweikamp
parents: 111
diff changeset
731 banksel char_I_bottom_depth
ec0b1e829399 Bugfix: Start dive mode simulator in correct depth
heinrichsweikamp
parents: 111
diff changeset
732 movf char_I_bottom_depth,W
ec0b1e829399 Bugfix: Start dive mode simulator in correct depth
heinrichsweikamp
parents: 111
diff changeset
733 mullw .100
ec0b1e829399 Bugfix: Start dive mode simulator in correct depth
heinrichsweikamp
parents: 111
diff changeset
734 movff PRODL,rel_pressure+0
ec0b1e829399 Bugfix: Start dive mode simulator in correct depth
heinrichsweikamp
parents: 111
diff changeset
735 movff PRODH,rel_pressure+1
ec0b1e829399 Bugfix: Start dive mode simulator in correct depth
heinrichsweikamp
parents: 111
diff changeset
736 movlw LOW(.1000)
ec0b1e829399 Bugfix: Start dive mode simulator in correct depth
heinrichsweikamp
parents: 111
diff changeset
737 addwf PRODL,W
ec0b1e829399 Bugfix: Start dive mode simulator in correct depth
heinrichsweikamp
parents: 111
diff changeset
738 movff WREG,sim_pressure+0
ec0b1e829399 Bugfix: Start dive mode simulator in correct depth
heinrichsweikamp
parents: 111
diff changeset
739 movlw HIGH(.1000)
ec0b1e829399 Bugfix: Start dive mode simulator in correct depth
heinrichsweikamp
parents: 111
diff changeset
740 addwfc PRODH,W
ec0b1e829399 Bugfix: Start dive mode simulator in correct depth
heinrichsweikamp
parents: 111
diff changeset
741 movff WREG,sim_pressure+1
0
heinrichsweikamp
parents:
diff changeset
742
136
9a637c9bb19a rename Deco Planner to Simulator
heinrichsweikamp
parents: 132
diff changeset
743 banksel common ; Bank1
0
heinrichsweikamp
parents:
diff changeset
744 bsf divemode
heinrichsweikamp
parents:
diff changeset
745 goto diveloop ; Switch into Divemode!
heinrichsweikamp
parents:
diff changeset
746
heinrichsweikamp
parents:
diff changeset
747
heinrichsweikamp
parents:
diff changeset
748 END