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