Mercurial > public > mk2
annotate code_part1/OSTC_code_asm_part1/simulator.asm @ 396:0386c7e1374a
BUGFIX display hypoxic air in divemode (bug #41)
| author | JeanDo |
|---|---|
| date | Thu, 23 Jun 2011 01:41:39 +0200 |
| parents | a847f416e67e |
| children | ab962c4b19d6 |
| rev | line source |
|---|---|
| 0 | 1 |
| 2 ; OSTC - diving computer code | |
| 3 ; Copyright (C) 2008 HeinrichsWeikamp GbR | |
| 4 | |
| 5 ; This program is free software: you can redistribute it and/or modify | |
| 6 ; it under the terms of the GNU General Public License as published by | |
| 7 ; the Free Software Foundation, either version 3 of the License, or | |
| 8 ; (at your option) any later version. | |
| 9 | |
| 10 ; This program is distributed in the hope that it will be useful, | |
| 11 ; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 13 ; GNU General Public License for more details. | |
| 14 | |
| 15 ; You should have received a copy of the GNU General Public License | |
| 16 ; along with this program. If not, see <http://www.gnu.org/licenses/>. | |
| 17 | |
| 18 | |
| 19 ; menu "Simulator" | |
| 20 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com | |
| 21 ; written: 081210 | |
| 22 ; last updated: 081210 | |
| 23 ; known bugs: | |
| 24 ; ToDo: | |
| 25 | |
| 26 menu_simulator: | |
|
352
544a96faa9f3
New "Quit sim" option in simulated dive mode, CF02 now allows more then 240seconds, Bugfix with runtime=1min in runtime simulator
Heinrichsweikamp
parents:
344
diff
changeset
|
27 movlw d'3' |
| 0 | 28 movwf logbook_temp1 ; Bottom time |
| 29 movlw d'15' | |
| 30 movwf logbook_temp2 ; Max. Depth | |
| 31 movlw d'1' | |
| 32 movwf menupos | |
| 369 | 33 clrf WREG ; Interval |
| 34 movff WREG,char_I_dive_interval | |
| 0 | 35 |
| 36 menu_simulator1: | |
| 37 clrf timeout_counter2 | |
| 38 bsf menubit | |
| 39 bsf cursor | |
| 49 | 40 call PLED_brightness_full ;max. brightness |
| 0 | 41 call PLED_ClearScreen |
| 42 call PLED_simulator_mask | |
| 43 | |
| 44 menu_simulator2: | |
| 45 bcf switch_left | |
| 46 bcf switch_right | |
| 47 bcf menubit2 | |
| 48 bcf menubit3 | |
| 49 call PLED_simulator_data | |
| 50 call PLED_menu_cursor | |
| 51 | |
| 52 menu_simulator_loop: | |
| 53 call check_switches_menu | |
| 54 menu_simulator_loop2: | |
| 55 btfss onesecupdate | |
| 56 bra menu_simulator_loop3 | |
| 57 | |
| 58 call timeout_surfmode | |
| 59 call set_dive_modes | |
| 60 call test_charger ; check if charger IC is active | |
| 61 call get_battery_voltage ; get battery voltage | |
| 62 | |
| 63 bcf onesecupdate ; End of one second tasks | |
| 64 | |
| 65 menu_simulator_loop3: | |
| 66 btfsc menubit2 | |
| 67 goto menu_simulator_do ; call submenu | |
| 68 | |
| 69 btfss menubit | |
| 35 | 70 goto menu_simulator_exit |
| 0 | 71 |
| 72 btfsc sleepmode | |
| 35 | 73 goto menu_simulator_exit |
| 0 | 74 |
| 75 btfsc divemode | |
| 76 goto restart ; exit menu, restart and enter divemode | |
| 77 | |
| 78 bra menu_simulator_loop | |
| 79 | |
| 80 menu_simulator_do: ; calls submenu | |
| 81 dcfsnz menupos,F | |
| 369 | 82 bra simulator_inc_interval |
| 83 dcfsnz menupos,F | |
| 0 | 84 bra simulator_startdive |
| 85 dcfsnz menupos,F | |
| 86 bra simulator_inc_bottomtime | |
| 87 dcfsnz menupos,F | |
| 88 bra simulator_inc_maxdepth | |
| 89 dcfsnz menupos,F | |
| 90 bra simulator_calc_deco | |
| 369 | 91 |
| 35 | 92 menu_simulator_exit: |
| 0 | 93 movlw d'4' |
| 94 movwf menupos | |
| 369 | 95 goto more_menu2 ; exit... |
| 0 | 96 |
| 369 | 97 simulator_inc_interval: |
| 98 movff char_I_dive_interval,PRODL | |
| 389 | 99 movlw .3 |
| 100 addwf PRODL,F | |
| 369 | 101 movlw .24*6 ; Max 24h delay. |
| 102 cpfslt PRODL | |
| 103 clrf PRODL | |
| 104 movff PRODL,char_I_dive_interval | |
| 105 | |
| 106 movlw d'1' | |
| 107 movwf menupos | |
| 108 bra menu_simulator2 | |
| 109 | |
| 0 | 110 simulator_inc_bottomtime: |
| 111 movlw d'2' | |
| 112 addwf logbook_temp1,F ; Here: Bottomtime in m | |
| 113 movlw d'199' | |
| 114 cpfslt logbook_temp1 | |
| 115 movwf logbook_temp1 | |
| 369 | 116 movlw d'3' |
| 0 | 117 movwf menupos |
| 118 bra menu_simulator2 | |
| 119 | |
| 120 simulator_inc_maxdepth: | |
| 121 movlw d'3' | |
| 122 addwf logbook_temp2,F ; Here: Maxdepth in m | |
| 123 movlw d'99' | |
| 124 cpfslt logbook_temp2 | |
| 125 movwf logbook_temp2 | |
| 369 | 126 movlw d'4' |
| 0 | 127 movwf menupos |
| 128 bra menu_simulator2 | |
| 129 | |
| 369 | 130 ;============================================================================= |
| 131 | |
| 0 | 132 simulator_startdive: |
| 33 | 133 ; Descent to -15m depth |
| 0 | 134 ; Set standalone_simulator flag (Displays Simulator menu during simulation by pressing ENTER button) |
| 135 ; Clear standalone_simulator after (any) dive | |
| 136 bsf simulatormode_active ; normal simulator mode | |
| 137 bsf standalone_simulator ; Standalone Simulator active | |
| 369 | 138 |
| 0 | 139 movff logbook_temp2,xA+0 |
| 140 clrf xA+1 | |
| 141 movlw d'100' | |
| 142 movwf xB+0 | |
| 143 clrf xB+1 | |
| 144 call mult16x16 ;xA*xB=xC ; Depth in m*100 | |
| 145 | |
| 62 | 146 movlw LOW d'1000' |
| 0 | 147 addwf xC+0,F |
| 62 | 148 movlw HIGH d'1000' |
| 149 addwfc xC+1,F ; add 1000mBar | |
| 150 | |
| 0 | 151 movff xC+0,sim_pressure+0 |
| 152 movff xC+1,sim_pressure+1 | |
|
341
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
292
diff
changeset
|
153 |
|
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
292
diff
changeset
|
154 ; This override is done in ISR too, but do it right now also: |
|
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
292
diff
changeset
|
155 movff sim_pressure+0,amb_pressure+0 |
| 0 | 156 movff sim_pressure+1,amb_pressure+1 |
| 385 | 157 call comp_air_pressure0 ; Make sure to have depth in rel_pressure:2 |
| 0 | 158 |
| 159 bcf menubit2 | |
| 160 bcf menubit3 | |
| 161 bcf menubit | |
| 162 bcf switch_left | |
| 163 bcf switch_right | |
| 164 | |
| 369 | 165 call simulator_save_tissue_data ; Stores 32 floats "pre_tissue" into bank3 |
| 0 | 166 |
| 369 | 167 movff char_I_dive_interval,WREG ; Any interval ? |
| 168 iorlw 0 ; Test for null | |
| 169 btfss STATUS,Z | |
| 170 call deco_calc_dive_interval ; NZ: call interval subroutine. | |
| 171 movlb 1 | |
| 172 | |
| 173 movlw d'3' ; Begin of deco cycle (reset table). | |
| 174 movff WREG,char_O_deco_status ; Reset Deco module. | |
| 200 | 175 |
| 369 | 176 bsf divemode ; Set divemode flag |
| 177 ostc_debug 'P' ; Sends debug-information to screen if debugmode active | |
| 178 goto diveloop ; Start Divemode | |
| 0 | 179 |
|
279
8514588eb6a2
Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents:
278
diff
changeset
|
180 ;============================================================================= |
|
8514588eb6a2
Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents:
278
diff
changeset
|
181 ; Show decoplanning result. |
|
8514588eb6a2
Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents:
278
diff
changeset
|
182 ; |
| 0 | 183 simulator_show_decoplan: |
| 124 | 184 call PLED_ClearScreen |
| 185 call PLED_simdata_screen | |
| 186 call divemenu_see_decoplan | |
| 187 | |
| 184 | 188 WIN_LEFT .0 |
| 189 call PLED_standard_color | |
| 190 | |
| 124 | 191 ; Display TTS, if any... |
| 168 | 192 movff int_O_ascenttime+0,lo |
| 193 movff int_O_ascenttime+1,hi | |
| 194 movf lo,W | |
| 195 iorwf hi,W | |
| 124 | 196 bz simulator_decoplan_notts |
| 184 | 197 |
| 292 | 198 WIN_TOP .162 |
| 184 | 199 lfsr FSR2, letter |
|
279
8514588eb6a2
Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents:
278
diff
changeset
|
200 OUTPUTTEXT .85 ; TTS |
| 184 | 201 STRCAT ": " |
| 202 bsf leftbind | |
| 203 output_16 | |
| 204 STRCAT_PRINT "'" | |
| 205 | |
| 206 simulator_decoplan_notts: | |
| 292 | 207 WIN_TOP .190 ; Print calculated CNS before and after dive |
| 208 STRCPY "CNS:" | |
| 209 movff char_O_CNS_fraction,lo ; Current CNS, before dive. | |
| 210 output_8 | |
| 184 | 211 |
| 292 | 212 STRCAT "%\x92" ; Right-arrow |
| 213 movff logbook_temp3,lo ; Get back CNS value. | |
| 214 output_8 ; CNS after dive. | |
| 215 STRCAT_PRINT "%" | |
| 124 | 216 |
| 217 WIN_INVERT .1 ; Init new Wordprocessor | |
| 218 DISPLAYTEXT .188 ; Sim. Results: | |
| 219 WIN_INVERT .0 ; Init new Wordprocessor | |
| 34 | 220 |
| 64 | 221 simulator_show_decoplan1: |
| 369 | 222 bcf switch_left |
| 223 bcf switch_right | |
| 0 | 224 simulator_show_decoplan2: |
| 369 | 225 btfsc uart_dump_screen ; Asked to dump screen contains ? |
| 226 call dump_screen ; Yes! | |
| 227 | |
| 228 btfss onesecupdate | |
| 229 bra simulator_show_decoplan3 | |
| 230 | |
| 231 call timeout_surfmode | |
| 232 call set_dive_modes | |
| 233 call test_charger ; check if charger IC is active | |
| 234 call get_battery_voltage ; get battery voltage | |
| 235 | |
| 236 bcf onesecupdate ; End of one second tasks | |
| 0 | 237 |
| 238 simulator_show_decoplan3: | |
| 64 | 239 btfsc switch_right |
| 369 | 240 bra menu_simulator1 ; Quit display |
| 0 | 241 |
| 64 | 242 btfsc switch_left |
| 224 | 243 bra simulator_show_decoplan5 ; Next decoplan-page. |
| 0 | 244 |
| 245 btfsc sleepmode | |
| 246 goto more_menu | |
| 247 | |
| 248 btfsc divemode | |
| 249 goto restart ; exit menu, restart and enter divemode | |
| 250 | |
| 251 bra simulator_show_decoplan2 | |
| 252 | |
| 64 | 253 simulator_show_decoplan5: |
| 124 | 254 incf decoplan_page,F |
| 64 | 255 btfsc last_ceiling_gf_shown ; last ceiling shown? |
| 256 bra simulator_show_decoplan5_0 ; All done, clear and return | |
| 257 | |
|
169
e26f49674956
Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents:
168
diff
changeset
|
258 call PLED_decoplan ; Re-Draw Current page of GF Decoplan |
| 64 | 259 bra simulator_show_decoplan1 |
| 260 | |
|
231
f9d42f8ff97b
BUGFIX Don't show (nosense) gas consumption in CCR mode (bug BB20).
JeanDo
parents:
230
diff
changeset
|
261 ;---- In OCR mode, show the gas Usage special page --------------------------- |
|
f9d42f8ff97b
BUGFIX Don't show (nosense) gas consumption in CCR mode (bug BB20).
JeanDo
parents:
230
diff
changeset
|
262 simulator_show_decoplan5_0: |
|
f9d42f8ff97b
BUGFIX Don't show (nosense) gas consumption in CCR mode (bug BB20).
JeanDo
parents:
230
diff
changeset
|
263 btfss display_see_deco ; Already displayed ? |
| 369 | 264 bra menu_simulator1 ; Exit to menu. |
|
231
f9d42f8ff97b
BUGFIX Don't show (nosense) gas consumption in CCR mode (bug BB20).
JeanDo
parents:
230
diff
changeset
|
265 |
|
169
e26f49674956
Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents:
168
diff
changeset
|
266 bcf display_see_deco ; clear flag |
| 224 | 267 |
|
231
f9d42f8ff97b
BUGFIX Don't show (nosense) gas consumption in CCR mode (bug BB20).
JeanDo
parents:
230
diff
changeset
|
268 btfsc FLAG_const_ppO2_mode ; In CCR mode ? |
| 369 | 269 bra menu_simulator1 ; YES: finished. |
|
231
f9d42f8ff97b
BUGFIX Don't show (nosense) gas consumption in CCR mode (bug BB20).
JeanDo
parents:
230
diff
changeset
|
270 |
|
290
4dbff2aa31ee
Hunting for refusing to ignore disabled gas in list...
JeanDo
parents:
279
diff
changeset
|
271 ; Make sure to pass first gas |
|
240
d995e220ddac
BUGFIX Gas Usage when first gas is not #1 (bug BB22).
JeanDo
parents:
236
diff
changeset
|
272 clrf EEADRH |
|
290
4dbff2aa31ee
Hunting for refusing to ignore disabled gas in list...
JeanDo
parents:
279
diff
changeset
|
273 read_int_eeprom .33 ; First gas. |
|
240
d995e220ddac
BUGFIX Gas Usage when first gas is not #1 (bug BB22).
JeanDo
parents:
236
diff
changeset
|
274 movff EEDATA,char_I_first_gas |
| 225 | 275 |
| 276 ; Compute gas consumption for each tank. | |
| 224 | 277 call deco_gas_volumes |
| 278 movlb 1 | |
| 279 | |
|
230
9406a5b0ba5e
BUGFIX Clear bottom stops when display gas usage (bug BB23)
JeanDo
parents:
229
diff
changeset
|
280 ; Clear the complete stop result column: |
| 292 | 281 WIN_BOX_BLACK .0, .239, .85, .160 ;top, bottom, left, right |
| 224 | 282 |
| 283 movlw d'10' | |
| 284 movwf waitms_temp ; Row for gas list is .10+.25 | |
| 285 clrf wait_temp ; Gas counter | |
| 286 lfsr FSR0,int_O_gas_volumes ; Initialize indexed addressing. | |
| 287 | |
| 288 WIN_LEFT .90 ; Set column | |
|
270
fda90f19486a
Don't show gas 1 usage black on back (bb28 followup)
JeanDo
parents:
269
diff
changeset
|
289 call PLED_standard_color |
| 224 | 290 |
| 291 simulator_show_decoplan5_loop: | |
| 292 incf wait_temp,F ; Increment gas # | |
| 293 | |
| 294 movlw .25 | |
| 295 addwf waitms_temp,F ; Increase row position | |
| 296 movff waitms_temp,win_top ; Set Row | |
| 297 | |
| 298 movff POSTINC0,lo ; Read (16bit) result, low first, | |
| 299 movff POSTINC0,hi ; then high. | |
| 300 movf lo,W ; Null ? | |
| 301 iorwf hi,W | |
| 302 bz simulator_show_decoplan5_1 ; Skip printing. | |
| 303 | |
| 304 movf lo,W ; == 65535 (saturated ?) | |
| 225 | 305 andwf hi,W |
| 224 | 306 incf WREG |
| 307 bnz simulator_show_decoplan5_2 | |
| 308 call PLED_warnings_color | |
| 265 | 309 STRCPY_PRINT "= xxxx.x" |
| 310 call PLED_standard_color | |
| 311 bra simulator_show_decoplan5_1 | |
| 224 | 312 |
| 313 simulator_show_decoplan5_2: | |
| 314 STRCPY "= " | |
| 315 | |
| 232 | 316 bsf leftbind |
| 224 | 317 output_16dp .4 ; 1 decimal. |
| 232 | 318 bcf leftbind |
| 224 | 319 call word_processor ; No unit: can be bars or litters. |
| 320 | |
| 321 ; Loop for all 5 gas | |
| 322 simulator_show_decoplan5_1: | |
| 323 movlw d'5' ; list all five gases | |
| 324 cpfseq wait_temp ; All gases shown? | |
| 325 bra simulator_show_decoplan5_loop ; No | |
| 326 | |
| 327 WIN_INVERT 1 | |
|
231
f9d42f8ff97b
BUGFIX Don't show (nosense) gas consumption in CCR mode (bug BB20).
JeanDo
parents:
230
diff
changeset
|
328 DISPLAYTEXTH .301 ; OCR Gas Usage: |
| 224 | 329 WIN_INVERT 0 |
| 330 | |
| 331 bra simulator_show_decoplan1 | |
|
169
e26f49674956
Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents:
168
diff
changeset
|
332 |
| 271 | 333 ;============================================================================= |
| 334 ; OSTC Simulator: compute a new runtime | |
| 335 ; | |
| 0 | 336 simulator_calc_deco: |
|
269
be06783f533b
hunting for bug#30 - solved by disabling timer3 (?)
heinrichsweikamp
parents:
265
diff
changeset
|
337 call simulator_save_tissue_data ; Stores 32 floats "pre_tissue" into bank3 |
| 0 | 338 |
| 369 | 339 movff char_I_dive_interval,WREG ; Any interval ? |
| 340 iorlw 0 ; Test for null | |
| 341 btfss STATUS,Z | |
| 342 call deco_calc_dive_interval ; NZ: call interval subroutine. | |
| 343 movlb 1 | |
| 344 | |
| 292 | 345 bsf simulatormode_active ; normal simulator mode |
| 346 bsf standalone_simulator ; Standalone Simulator active | |
| 347 bsf no_sensor_int ; Disable sensor interrupt | |
| 390 | 348 clrf T3CON ; Disable timer3 counter, |
| 292 | 349 clrf TMR3L ; so the simu won't stop right away. |
|
269
be06783f533b
hunting for bug#30 - solved by disabling timer3 (?)
heinrichsweikamp
parents:
265
diff
changeset
|
350 clrf TMR3H |
|
be06783f533b
hunting for bug#30 - solved by disabling timer3 (?)
heinrichsweikamp
parents:
265
diff
changeset
|
351 |
| 292 | 352 call diveloop_boot ; configure gases, etc. |
|
269
be06783f533b
hunting for bug#30 - solved by disabling timer3 (?)
heinrichsweikamp
parents:
265
diff
changeset
|
353 |
| 224 | 354 ; Save dive parameters for gas volume estimation: |
| 355 movff logbook_temp2,char_I_bottom_depth | |
| 356 movff logbook_temp1,char_I_bottom_time | |
| 357 | |
| 292 | 358 movff logbook_temp2,xA+0 ; Bottom depth. |
| 0 | 359 clrf xA+1 |
| 360 movlw d'100' | |
| 361 movwf xB+0 | |
| 362 clrf xB+1 | |
| 292 | 363 call mult16x16 ;xA*xB=xC, Depth in m*100 |
| 0 | 364 |
| 62 | 365 movlw LOW d'1000' |
| 0 | 366 addwf xC+0,F |
| 62 | 367 movlw HIGH d'1000' |
| 292 | 368 addwfc xC+1,F ; add 1000mBar |
| 62 | 369 |
| 0 | 370 movff xC+0,sim_pressure+0 |
| 371 movff xC+1,sim_pressure+1 | |
| 372 | |
| 124 | 373 call PLED_topline_box |
| 0 | 374 WIN_INVERT .1 |
| 292 | 375 DISPLAYTEXT .12 ; "Wait..." |
| 0 | 376 WIN_INVERT .0 |
| 377 | |
|
341
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
292
diff
changeset
|
378 ; This override is done in ISR too, but do it right now also: |
|
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
292
diff
changeset
|
379 movff sim_pressure+0,amb_pressure+0 |
|
269
be06783f533b
hunting for bug#30 - solved by disabling timer3 (?)
heinrichsweikamp
parents:
265
diff
changeset
|
380 movff sim_pressure+1,amb_pressure+1 |
|
be06783f533b
hunting for bug#30 - solved by disabling timer3 (?)
heinrichsweikamp
parents:
265
diff
changeset
|
381 |
| 197 | 382 call divemode_check_decogases ; Checks for decogases and sets the gases |
| 383 call divemode_prepare_flags_for_deco | |
| 292 | 384 call set_first_gas ; Set current N2/He/O2 ratios. |
| 385 call set_actual_ppo2 ; Then configure char_I_actual_ppO2 | |
|
269
be06783f533b
hunting for bug#30 - solved by disabling timer3 (?)
heinrichsweikamp
parents:
265
diff
changeset
|
386 |
| 278 | 387 ; First minute is special: init everything. |
| 200 | 388 movlw d'3' ; Begin of deco cycle (reset table). |
| 197 | 389 movff WREG,char_O_deco_status ; Reset Deco module. |
| 390 | |
| 278 | 391 movlw d'1' |
| 392 movff WREG,char_I_step_is_1min ; 1 minute mode. | |
|
269
be06783f533b
hunting for bug#30 - solved by disabling timer3 (?)
heinrichsweikamp
parents:
265
diff
changeset
|
393 |
| 278 | 394 call deco_calc_hauptroutine ; Reset table + sim one minute for descent. |
| 292 | 395 call deco_calc_CNS_fraction ; Also calculate CNS (in 1min loop) |
| 197 | 396 movlb b'00000001' ; rambank 1 selected |
| 32 | 397 |
| 278 | 398 decf logbook_temp1,F ; One minute done. |
| 0 | 399 |
| 278 | 400 ; Loop for bottom time duration |
| 32 | 401 simulator_calc_deco_loop2: |
| 292 | 402 call PLED_simulator_data ; Update display of bottom time. |
| 32 | 403 |
| 292 | 404 call deco_calc_tissue ; JUST calc tissue (faster). |
| 405 call deco_calc_CNS_fraction ; Also calculate CNS (in 1min loop) | |
| 406 movlb b'00000001' ; rambank 1 selected | |
| 407 ostc_debug 'C' ; Sends debug-information to screen if debugmode active | |
| 197 | 408 |
| 278 | 409 decfsz logbook_temp1,F ; Decrement bottom time, |
| 410 bra simulator_calc_deco_loop2 ; and loop while not finished. | |
| 32 | 411 |
| 278 | 412 ; No the bottom time is finish, restart a full ascent simulation, |
| 32 | 413 movlw d'0' |
| 278 | 414 movff WREG,char_I_step_is_1min ; Back to 2 second deco mode |
| 197 | 415 |
| 271 | 416 clrf timeout_counter2 ; timeout used as maxloop here |
| 278 | 417 movff char_I_bottom_depth,char_O_deco_last_stop |
| 418 | |
| 197 | 419 simulator_calc_deco2: |
| 420 call deco_calc_hauptroutine ; calc_tissue | |
| 421 movlb b'00000001' ; rambank 1 selected | |
| 0 | 422 |
| 278 | 423 movff char_O_deco_last_stop,logbook_temp2 |
| 424 call PLED_simulator_data ; Animate ascent simu. | |
| 425 | |
| 271 | 426 dcfsnz timeout_counter2,F ; Abort loop (max. 256 tries)? |
| 262 | 427 bra simulator_calc_deco3 ; Yes... |
| 428 | |
| 197 | 429 movff char_O_deco_status,WREG |
| 278 | 430 iorwf WREG ; deco_status=0 if decompression calculation done |
| 431 bnz simulator_calc_deco2 ; Not finished | |
| 0 | 432 |
| 292 | 433 ; Finished |
| 262 | 434 simulator_calc_deco3: |
| 292 | 435 movff char_O_CNS_fraction,logbook_temp3 ; Save calculated CNS. |
| 436 rcall simulator_restore_tissue_data ; Restore CNS & 32 floats "pre_tissue" from vault | |
| 0 | 437 |
| 197 | 438 bcf simulatormode_active ; normal simulator mode |
| 439 bcf standalone_simulator ; Standalone Simulator active | |
|
269
be06783f533b
hunting for bug#30 - solved by disabling timer3 (?)
heinrichsweikamp
parents:
265
diff
changeset
|
440 bcf no_sensor_int ; Re-enable sensor interrupt |
| 0 | 441 |
| 442 WAITMS d'250' | |
| 443 WAITMS d'250' | |
| 197 | 444 WAITMS d'250' ; Wait for Pressure Sensor to get real pressure again... |
| 0 | 445 |
| 335 | 446 movlw d'5' ; Pre-Set Cursor to "Show Decoplan" |
| 197 | 447 movwf menupos |
| 278 | 448 movff char_I_bottom_time,logbook_temp1 ; Restore bottom time, |
| 449 movff char_I_bottom_depth,logbook_temp2 ; and depth. | |
| 369 | 450 |
| 451 clrf timeout_counter2 ; Restart menu timeout. | |
| 452 bra simulator_show_decoplan ; Done. | |
| 49 | 453 |
| 454 simulator_save_tissue_data: | |
| 335 | 455 bsf restore_deco_data ; Set restore flag |
| 456 ostc_debug 'S' ; Sends debug-information to screen if debugmode active | |
| 116 | 457 call deco_push_tissues_to_vault |
| 335 | 458 movlb 0x01 ; Back to RAM Bank1 |
| 459 ostc_debug 'T' ; Sends debug-information to screen if debugmode active | |
| 49 | 460 return |
| 461 | |
| 462 simulator_restore_tissue_data: | |
|
229
85ea09d3b9d8
Nofly should not be reset after dive simulation (bug BB18).
JeanDo
parents:
225
diff
changeset
|
463 bcf restore_deco_data ; clear restore flag |
|
85ea09d3b9d8
Nofly should not be reset after dive simulation (bug BB18).
JeanDo
parents:
225
diff
changeset
|
464 ostc_debug 'S' ; Sends debug-information to screen if debugmode active |
| 292 | 465 call deco_pull_tissues_from_vault ; Restore CNS too... |
| 49 | 466 movlb 0x01 ; Back to RAM Bank1 |
|
229
85ea09d3b9d8
Nofly should not be reset after dive simulation (bug BB18).
JeanDo
parents:
225
diff
changeset
|
467 ostc_debug 'T' ; Sends debug-information to screen if debugmode active |
| 49 | 468 |
| 469 ostc_debug 'G' ; Sends debug-information to screen if debugmode active | |
| 116 | 470 call deco_calc_desaturation_time ; calculate desaturation time |
|
229
85ea09d3b9d8
Nofly should not be reset after dive simulation (bug BB18).
JeanDo
parents:
225
diff
changeset
|
471 movlb b'00000001' ; select ram bank 1 |
|
85ea09d3b9d8
Nofly should not be reset after dive simulation (bug BB18).
JeanDo
parents:
225
diff
changeset
|
472 |
|
85ea09d3b9d8
Nofly should not be reset after dive simulation (bug BB18).
JeanDo
parents:
225
diff
changeset
|
473 ; Note: should not reset nofly-time here: the true value have continued to be decremented |
|
85ea09d3b9d8
Nofly should not be reset after dive simulation (bug BB18).
JeanDo
parents:
225
diff
changeset
|
474 ; during simulation, which is the right thing to do... |
| 49 | 475 ostc_debug 'H' ; Sends debug-information to screen if debugmode active |
| 476 | |
| 477 return |