mk2: code_part1/OSTC_code_asm_part1/divemode.asm annotate

annotate code_part1/OSTC_code_asm_part1/divemode.asm @ 609:bbf5e1506c39

2.27beta

author	heinrichsweikamp
date	Sat, 07 Jul 2012 09:09:55 +0200
parents	530a5c994ca2
children	ec2cfd4b748b

rev	line source
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	2 ; OSTC - diving computer code
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	3 ; Copyright (C) 2008 HeinrichsWeikamp GbR
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	4
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	5 ; This program is free software: you can redistribute it and/or modify
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	6 ; it under the terms of the GNU General Public License as published by
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	7 ; the Free Software Foundation, either version 3 of the License, or
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	8 ; (at your option) any later version.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	9
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	10 ; This program is distributed in the hope that it will be useful,
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	11 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	12 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	13 ; GNU General Public License for more details.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	14
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	15 ; You should have received a copy of the GNU General Public License
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	16 ; along with this program. If not, see <http://www.gnu.org/licenses/>.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	17
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	18
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	19 ; Mainroutines for divemode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	20 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	21 ; written: 10/01/05
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	22 ; last updated: 15/05/08
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	23 ; known bugs:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	24 ; ToDo:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	25
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	26 diveloop:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	27 call diveloop_boot ; Boot tasks for all modes
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	28
256 d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	29 ; start timer3 for deco routine CPU usesage monitor
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	30 movlw b'00000011'
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	31 movwf T3CON ; Timer3 with 32768Hz clock running
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	32
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	33 ; Startup Tasks for all modes
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	34 ostc_debug 'R' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	35 call PLED_ClearScreen ; clean up OLED
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	36 call PLED_divemode_mask ; Display mask
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	37 call PLED_active_gas_divemode ; Display gas, if required
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	38 call PLED_temp_divemode ; Displays temperature
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	39
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	40 btfsc FLAG_apnoe_mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	41 bsf realdive ; Set Realdive flag in Apnoe mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	42
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	43 btfsc gauge_mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	44 bra diveloop_loop ; Skip in gauge mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	45 btfsc FLAG_apnoe_mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	46 bra diveloop_loop ; Skip in apnoe mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	47
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	48 ; Startup Tasks for deco modes
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	49 call PLED_display_ndl_mask ; display "no stop" if not in gauge or apnoe mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	50
413 46c1818ab589 testing heinrichsweikamp parents: 408 diff changeset	51 btfss FLAG_const_ppO2_mode ; only in const_ppO2_mode
46c1818ab589 testing heinrichsweikamp parents: 408 diff changeset	52 bra diveloop_loop ; OC modes, skip
404 cd48cdb6e1ae Add a setpoint change to the first depth sample in CC mode heinrichsweikamp parents: 398 diff changeset	53 bsf setpoint_changed ; Add a setpoint change to the first depth sample in CC mode
407 47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	54 bsf event_occured ; set global event flag
404 cd48cdb6e1ae Add a setpoint change to the first depth sample in CC mode heinrichsweikamp parents: 398 diff changeset	55
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	56 diveloop_loop: ; The diveloop starts here
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	57 btfss onesecupdate ; tasks any new second
263 27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	58 bra diveloop_loop3
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	59
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	60 btfsc gauge_mode ; Only in gauge mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	61 bra diveloop_loop1a ; One Second Tasks in Gauge mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	62 btfsc FLAG_apnoe_mode ; Only in apnoe mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	63 bra diveloop_loop1b ; One Second Tasks in Apnoe mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	64 btfsc FLAG_const_ppO2_mode ; only in const_ppO2_mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	65 bra diveloop_loop1c ; One Second Tasks in const_ppO2 mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	66
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	67 ; Tasks only for OC modes
599 76b85952b9cd minor display update heinrichsweikamp parents: 598 diff changeset	68 btfsc show_safety_stop ; Show the safety stop?
76b85952b9cd minor display update heinrichsweikamp parents: 598 diff changeset	69 call PLED_show_safety_stop ; Yes, show/delete if done.
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	70 call check_ppO2 ; check ppO2 and displays warning if required
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	71 call calc_deko_divemode ; calculate decompression and display result (any two seconds)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	72 bra diveloop_loop1x ; Common Tasks
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	73
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	74 ; Tasks only for Gauge mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	75 diveloop_loop1a:
106 966ebf905514 bugfix in output16_3_call heinrichsweikamp parents: 98 diff changeset	76 btfss premenu ; Is the divemode menu active?
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	77 call PLED_divemins ; display (new) divetime!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	78 call timeout_divemode ; dive finished? This routine sets the required flags
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	79
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	80 btfsc twosecupdate ; two seconds after the last call
263 27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	81 bra diveloop_loop1a2 ; Common Tasks
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	82
263 27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	83 bsf twosecupdate ; Routines used in the "other second"
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	84 call calc_average_depth ; calculate average depth
494 e9b1f162799d testing graphical velocity heinrichsweikamp parents: 492 diff changeset	85 call calc_velocity ; calculate vertical velocity and display if > threshold (every two seconds)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	86
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	87 bra diveloop_loop1x ; Common Tasks
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	88
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	89 diveloop_loop1a2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	90 bcf twosecupdate
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	91 bra diveloop_loop1x ; Common Tasks
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	92
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	93 ; Tasks only for Apnoe mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	94 diveloop_loop1b:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	95 call divemode_apnoe_tasks ; 1 sec. Apnoe tasks
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	96 bra diveloop_loop1x ; Common Tasks
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	97
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	98 ; Tasks only for ppO2 mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	99 diveloop_loop1c:
599 76b85952b9cd minor display update heinrichsweikamp parents: 598 diff changeset	100 btfsc show_safety_stop ; Show the safety stop?
76b85952b9cd minor display update heinrichsweikamp parents: 598 diff changeset	101 call PLED_show_safety_stop ; Yes, show/delete if done.
398 ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments heinrichsweikamp parents: 386 diff changeset	102 call PLED_const_ppO2_value ; display const ppO2 setting in [bar]
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	103 call calc_deko_divemode ; calculate decompression and display result (any two seconds)
3 3cf8af30b36e v1.51 beta heinrichsweikamp parents: 2 diff changeset	104 btfsc is_bailout ; Are we in Bailout mode?
3cf8af30b36e v1.51 beta heinrichsweikamp parents: 2 diff changeset	105 call check_ppO2_bail ; Yes, display ppO2 (If required)
3cf8af30b36e v1.51 beta heinrichsweikamp parents: 2 diff changeset	106
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	107 bra diveloop_loop1x ; Common Tasks
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	108
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	109 ; Common Tasks for all modes
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	110 diveloop_loop1x:
263 27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	111 call customview_second ; Do every-second tasks for the custom view area
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	112
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	113 GETCUSTOM8 d'38' ; Show seconds (=1?)
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	114 movwf lo
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	115 movlw d'1'
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	116 cpfseq lo ; =1?
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	117 bra diveloop_loop1y ; No, minutes only
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	118 bsf update_divetime ; Set Update flag
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	119 diveloop_loop1y:
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	120 btfss update_divetime ; display new divetime?
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	121 bra diveloop_loop1z ; No
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	122 btfsc premenu ; Is the divemode menu active?
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	123 bra diveloop_loop1z ; Yes
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	124 call PLED_divemins ; Display (new) divetime!
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	125
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	126 diveloop_loop1z
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	127 bcf update_divetime ; clear flag
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	128
406 2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible) heinrichsweikamp parents: 404 diff changeset	129 ; btfsc FLAG_const_ppO2_mode ; only in const_ppO2_mode
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible) heinrichsweikamp parents: 404 diff changeset	130 ; call PLED_const_ppO2_value ; display const ppO2 setting in [bar]
263 27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	131 btfsc ppO2_show_value ; show ppO2?
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	132 call check_ppO2 ; check ppO2 and displays warning if required
27c9bb14b008 making the seconds display in divemode smoother... heinrichsweikamp parents: 257 diff changeset	133
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	134 call timeout_divemode ; dive finished? This routine sets the required flags
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	135 btfsc low_battery_state ; If battery is low, then...
141 622da16b768f LowBatt! Warning in divemode heinrichsweikamp parents: 131 diff changeset	136 call update_batt_voltage_divemode ; Display Battery Warning Text
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	137 btfsc premenu ; is Menu? displayed?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	138 call timeout_premenu_divemode ; No, so check for timeout premenu
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	139 btfsc menubit ; is the Dive mode menu displayed?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	140 call timeout_divemenu ; Yes, so check for timeout divemenu
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	141 call set_leds_divemode ; Sets warnings, if required. Also Sets buzzer
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	142 btfsc enter_error_sleep ; Enter Fatal Error Routine?
16 01510acaeb11 1.54 rc2 heinrichsweikamp parents: 8 diff changeset	143 call fatal_error_sleep ; Yes (In Sleepmode_vxx.asm!)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	144
492 19b9e19ea4da +CHANGE: Velocity display updated every second heinrichsweikamp parents: 486 diff changeset	145
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	146 bcf onesecupdate ; one seconds update done
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	147
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	148 diveloop_loop3:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	149 btfss menubit ; Divemode menu active?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	150 call test_switches_divemode ; No, Check switches normal
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	151
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	152 btfsc menubit ; Divemode menu active?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	153 call test_switches_divemode_menu ; Yes, check switches divemode menu
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	154
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	155 btfss divemode ; Dive finished?
498 4c7f7807b250 minor fixes in german layout heinrichsweikamp parents: 494 diff changeset	156 goto end_dive ; Dive finished!
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	157
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	158 btfsc pressure_refresh ; new pressure available?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	159 call update_divemode1 ; Yes, display new depth
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	160 bcf pressure_refresh ; until new pressure is available
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	161
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	162 btfsc oneminupdate ; one minute tasks
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	163 call update_divemode60 ; Update clock, etc.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	164
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	165 btfsc store_sample ; store new sample?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	166 call store_dive_data ; Store profile data
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	167
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: 83 diff changeset	168 btfsc toggle_customview ; Next view?
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: 83 diff changeset	169 call customview_toggle ; Yes, show next customview (and delete this flag)
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: 83 diff changeset	170
335 d36fe3651d56 Updated to 1.91beta JeanDo parents: 323 diff changeset	171 btfsc simulatormode_active ; Is Simualtor mode active ?
d36fe3651d56 Updated to 1.91beta JeanDo parents: 323 diff changeset	172 bra diveloop_loop4 ; YES: don't sleep
2 d11ef8dc4b2c Bugfix: PC simulator heinrichsweikamp parents: 0 diff changeset	173
335 d36fe3651d56 Updated to 1.91beta JeanDo parents: 323 diff changeset	174 btfsc menubit ; Sleep only with inactive menu...
d36fe3651d56 Updated to 1.91beta JeanDo parents: 323 diff changeset	175 bra diveloop_loop5
2 d11ef8dc4b2c Bugfix: PC simulator heinrichsweikamp parents: 0 diff changeset	176
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	177 sleep
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	178 nop
335 d36fe3651d56 Updated to 1.91beta JeanDo parents: 323 diff changeset	179 bra diveloop_loop ; Loop the divemode
d36fe3651d56 Updated to 1.91beta JeanDo parents: 323 diff changeset	180
d36fe3651d56 Updated to 1.91beta JeanDo parents: 323 diff changeset	181 diveloop_loop4: ; And test screen dumps too!
d36fe3651d56 Updated to 1.91beta JeanDo parents: 323 diff changeset	182 btfsc uart_dump_screen ; Asked to dump screen contains ?
d36fe3651d56 Updated to 1.91beta JeanDo parents: 323 diff changeset	183 call dump_screen ; Yes!
d36fe3651d56 Updated to 1.91beta JeanDo parents: 323 diff changeset	184
d36fe3651d56 Updated to 1.91beta JeanDo parents: 323 diff changeset	185 diveloop_loop5:
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	186 bra diveloop_loop ; Loop the divemode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	187
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	188 timeout_premenu_divemode:
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 124 diff changeset	189 incf timeout_counter3,F ; Yes...
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	190
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 124 diff changeset	191 GETCUSTOM8 d'4' ; loads premenu_timeout into WREG
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 124 diff changeset	192 cpfsgt timeout_counter3 ; ... longer then premenu_timeout
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 124 diff changeset	193 return ; No!
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	194
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 124 diff changeset	195 bcf premenu ; Yes, so clear "Menu?" and clear pre_menu bit
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 124 diff changeset	196 call PLED_menu_clear ; Remove "Menu?"
498 4c7f7807b250 minor fixes in german layout heinrichsweikamp parents: 494 diff changeset	197 call PLED_divemode_mask ; And redraw mask (Redraw missing "T" from "Tauchzeit" in german text version)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	198 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	199
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 124 diff changeset	200 divemode_apnoe_tasks: ; 1 sec. Apnoe tasks
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	201 call PLED_display_apnoe_descent ; Show descent timer
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	202
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	203 btfsc divemode2 ; Time running?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	204 bra divemode_apnoe_tasks2 ; New descent, reset data if flag is set
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	205
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	206 call PLED_display_apnoe_surface
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	207 incf apnoe_surface_secs,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	208 movlw d'60'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	209 cpfseq apnoe_surface_secs
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	210 bra divemode_apnoe_tasks1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	211 clrf apnoe_surface_secs
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	212 incf apnoe_surface_mins,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	213
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	214 divemode_apnoe_tasks1:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	215 bcf FLAG_active_descent ; Clear flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	216 btfsc divemode2 ; Time running?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	217 return ; Yes, return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	218
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	219 bsf FLAG_active_descent ; Set Flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	220 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	221
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	222 divemode_apnoe_tasks2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	223 btfss FLAG_active_descent ; Are descending?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	224 return ; No, We are at the surface
598 f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	225 call apnoe_calc_maxdepth ; Yes!
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	226
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	227 divemode_apnoe_tasks3:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	228 call PLED_apnoe_clear_surface ; Clear Surface timer
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	229
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	230 clrf apnoe_timeout_counter ; Delete timeout
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	231 clrf apnoe_surface_secs
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	232 clrf apnoe_surface_mins
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	233 clrf apnoe_secs
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	234 clrf apnoe_mins ; Reset Descent time
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	235 clrf max_pressure+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	236 clrf max_pressure+1 ; Reset Max. Depth
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	237 bcf FLAG_active_descent ; Clear flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	238 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	239
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	240 apnoe_calc_maxdepth:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	241 movff apnoe_max_pressure+0,sub_a+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	242 movff apnoe_max_pressure+1,sub_a+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	243 movff max_pressure+0,sub_b+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	244 movff max_pressure+1,sub_b+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	245 call sub16 ; sub_c = sub_a - sub_b
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	246 ; apnoe_max_pressure<max_pressure -> neg_flag=1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	247 ; max_pressure<=apnoe_max_pressure -> neg_flag=0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	248 btfss neg_flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	249 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	250 ;apnoe_max_pressure<max_pressure
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	251 movff max_pressure+0,apnoe_max_pressure+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	252 movff max_pressure+1,apnoe_max_pressure+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	253 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	254
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	255 set_leds_divemode:
550 9e20de11fb78 GF warning in logbook memory heinrichsweikamp parents: 537 diff changeset	256 movff char_O_gradient_factor,lo ; gradient factor absolute (Non-GF model)
9e20de11fb78 GF warning in logbook memory heinrichsweikamp parents: 537 diff changeset	257 movff char_I_deco_model,hi
9e20de11fb78 GF warning in logbook memory heinrichsweikamp parents: 537 diff changeset	258 decfsz hi,F ; jump over next line if char_I_deco_model == 1
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	259 movff char_O_relative_gradient_GF,lo ; gradient factor relative (GF model)
550 9e20de11fb78 GF warning in logbook memory heinrichsweikamp parents: 537 diff changeset	260
9e20de11fb78 GF warning in logbook memory heinrichsweikamp parents: 537 diff changeset	261 GETCUSTOM8 d'14' ; threshold for LED warning into WREG
9e20de11fb78 GF warning in logbook memory heinrichsweikamp parents: 537 diff changeset	262 cpfslt lo ; Lower then actual warning?
9e20de11fb78 GF warning in logbook memory heinrichsweikamp parents: 537 diff changeset	263 rcall warn_gf1 ; No, show warning and set flags
9e20de11fb78 GF warning in logbook memory heinrichsweikamp parents: 537 diff changeset	264 return ; Yes, return
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	265
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	266 warn_gf1:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	267 movlw d'2' ; Type of Alarm
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	268 movwf AlarmType ; Copy to Alarm Register
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	269 bsf event_occured ; Set Event Flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	270 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	271
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	272 calc_deko_divemode:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	273 btfsc twosecupdate ; two seconds after the last call
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	274 bra calc_deko_divemode2 ; Yes, calculate and display deco data ("first second")
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	275
49 cd5b650920f6 1.70... heinrichsweikamp parents: 47 diff changeset	276 bsf twosecupdate ; No, but next second!
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	277 ; Routines used in the "other second"
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	278 call calc_average_depth ; calculate average depth
494 e9b1f162799d testing graphical velocity heinrichsweikamp parents: 492 diff changeset	279 call calc_velocity ; calculate vertical velocity and display if > threshold (every two seconds)
598 f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	280 call set_reset_safety_stop ; Set flags for safety stop and/or reset safety stop
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	281
292 21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	282 ; Calculate CNS
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	283 clrf WREG
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	284 movff WREG,char_I_step_is_1min ; Make sure to be in 2sec mode.
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	285
592 cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	286 read_int_eeprom d'34' ; Read deco data
595 16f4eafc197e CNS for pSCR-GF fixed. heinrichsweikamp parents: 593 diff changeset	287 movlw .6
16f4eafc197e CNS for pSCR-GF fixed. heinrichsweikamp parents: 593 diff changeset	288 cpfseq EEDATA ; in pscr-mode?
16f4eafc197e CNS for pSCR-GF fixed. heinrichsweikamp parents: 593 diff changeset	289 rcall set_actual_ppo2 ; No, set char_I_actual_ppO2
592 cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	290
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	291 calc_deko_divemode1a:
116 14a074e1a375 Split C code, and use direct linking. JeanDo parents: 115 diff changeset	292 call deco_calc_CNS_fraction ; calculate CNS
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	293 movlb b'00000001' ; rambank 1 selected
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	294
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	295 ; Check if CNS should be displayed
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	296 movff char_O_CNS_fraction,lo ; copy into bank1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	297 GETCUSTOM8 d'27' ; cns_display_high
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	298 subwf lo,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	299 btfsc STATUS,C
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	300 call PLED_display_cns ; Show CNS
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	301 call check_gas_change ; Checks if a better gas should be selected (by user)
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	302
513 c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	303 ;NOTE: always set full gas list, because the user can switch gas,
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	304 ; even in NDL mode...
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	305
286 5351d47ee28a Active gas flags simplified heinrichsweikamp parents: 281 diff changeset	306 ; Copy all gases to char_I_deco_N2_ratio and char_I_deco_He_ratio
507 ed51a7a89d9a minor cleanups for TESTING mode JeanDo parents: 505 diff changeset	307 divemode_check_decogases: ; CALLed from Simulator, too
522 e33a8ac4b660 New ASSERT_BANK1 macro for software proofing. JeanDo parents: 517 diff changeset	308 ASSERT_BANK1 .10001 ; Just make sure everything is correct.
e33a8ac4b660 New ASSERT_BANK1 macro for software proofing. JeanDo parents: 517 diff changeset	309
e33a8ac4b660 New ASSERT_BANK1 macro for software proofing. JeanDo parents: 517 diff changeset	310 clrf EEADRH ; Make sure to select eeprom bank 0
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	311
513 c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	312 read_int_eeprom d'7' ; Read He ratio
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	313 movff EEDATA,char_I_deco_He_ratio+0 ; And copy into hold register
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	314 read_int_eeprom d'6' ; Read O2 ratio
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	315 movff char_I_deco_He_ratio+0,WREG ; Get back He -> WREG
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	316 addwf EEDATA,W ; O2 + He -> WREG
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	317 sublw d'100' ; 100 - (O2 + He) -> WREG
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	318 movff WREG, char_I_deco_N2_ratio+0; Push N2 to C code;
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	319
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	320 read_int_eeprom d'11' ; Read He ratio
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	321 movff EEDATA,char_I_deco_He_ratio+1 ; And copy into hold register
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	322 read_int_eeprom d'10' ; Read O2 ratio
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	323 movff char_I_deco_He_ratio+1,WREG ; Get back He -> WREG
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	324 addwf EEDATA,W ; O2 + He -> WREG
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	325 sublw d'100' ; 100 - (O2 + He) -> WREG
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	326 movff WREG, char_I_deco_N2_ratio+1; Push N2 to C code;
49 cd5b650920f6 1.70... heinrichsweikamp parents: 47 diff changeset	327
291 916df3161d52 Fix gaslist: use current value instead of default. JeanDo parents: 290 diff changeset	328 read_int_eeprom d'15' ; Read He ratio
224 49c90c5d9603 Gas usage JeanDo parents: 222 diff changeset	329 movff EEDATA,char_I_deco_He_ratio+2 ; And copy into hold register
291 916df3161d52 Fix gaslist: use current value instead of default. JeanDo parents: 290 diff changeset	330 read_int_eeprom d'14' ; Read O2 ratio
513 c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	331 movff char_I_deco_He_ratio+2,WREG ; Get back He -> WREG
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	332 addwf EEDATA,W ; O2 + He -> WREG
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	333 sublw d'100' ; 100 - (O2 + He) -> WREG
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	334 movff WREG, char_I_deco_N2_ratio+2; Push N2 to C code;
49 cd5b650920f6 1.70... heinrichsweikamp parents: 47 diff changeset	335
291 916df3161d52 Fix gaslist: use current value instead of default. JeanDo parents: 290 diff changeset	336 read_int_eeprom d'19' ; Read He ratio
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	337 movff EEDATA,char_I_deco_He_ratio+3 ; And copy into hold register
311 91371c7553f5 BUGFIX typo when passing Gas#4 to deko model (bug#43) JeanDo parents: 301 diff changeset	338 read_int_eeprom d'18' ; Read O2 ratio
513 c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	339 movff char_I_deco_He_ratio+3,WREG ; Get back He -> WREG
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	340 addwf EEDATA,W ; O2 + He -> WREG
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	341 sublw d'100' ; 100 - (O2 + He) -> WREG
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	342 movff WREG, char_I_deco_N2_ratio+3; Push N2 to C code;
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	343
291 916df3161d52 Fix gaslist: use current value instead of default. JeanDo parents: 290 diff changeset	344 read_int_eeprom d'23' ; Read He ratio
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	345 movff EEDATA,char_I_deco_He_ratio+4; And copy into hold register
291 916df3161d52 Fix gaslist: use current value instead of default. JeanDo parents: 290 diff changeset	346 read_int_eeprom d'22' ; Read O2 ratio
513 c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	347 movff char_I_deco_He_ratio+4,WREG ; Get back He -> WREG
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	348 addwf EEDATA,W ; O2 + He -> WREG
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	349 sublw d'100' ; 100 - (O2 + He) -> WREG
c9f19a546e64 BUGFIX MISSING movlb for gaslist (simulator). JeanDo parents: 507 diff changeset	350 movff WREG, char_I_deco_N2_ratio+4; Push N2 to C code;
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	351
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	352 ; Copy depth of enabled gas into char_I_deco_gas_change
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	353 ; Note gaslist_active is inited in diveloop_boot, and edited by
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	354 ; the de-activation menu. So don't reread it from eeprom here.
39 1705b3f7e5b3 1.62 beta rc2 heinrichsweikamp parents: 38 diff changeset	355
281 f8f865c70a0d no more sorted gaslist... heinrichsweikamp parents: 274 diff changeset	356 read_int_eeprom d'28' ; read gas_change_depth Gas1
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	357 btfss gaslist_active,0 ; Apply depth?
221 448478ceccea new sorted_gaslist_active flag register heinrichsweikamp parents: 220 diff changeset	358 clrf EEDATA ; No, clear!
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	359 movff EEDATA,char_I_deco_gas_change+0 ; Yes!
221 448478ceccea new sorted_gaslist_active flag register heinrichsweikamp parents: 220 diff changeset	360
281 f8f865c70a0d no more sorted gaslist... heinrichsweikamp parents: 274 diff changeset	361 read_int_eeprom d'29' ; read gas_change_depth Gas2
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	362 btfss gaslist_active,1 ; Apply depth?
221 448478ceccea new sorted_gaslist_active flag register heinrichsweikamp parents: 220 diff changeset	363 clrf EEDATA ; No, clear!
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	364 movff EEDATA,char_I_deco_gas_change+1 ; Yes!
45 985607cfb813 1.65beta heinrichsweikamp parents: 44 diff changeset	365
281 f8f865c70a0d no more sorted gaslist... heinrichsweikamp parents: 274 diff changeset	366 read_int_eeprom d'30' ; read gas_change_depth Gas3
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	367 btfss gaslist_active,2 ; Apply depth?
221 448478ceccea new sorted_gaslist_active flag register heinrichsweikamp parents: 220 diff changeset	368 clrf EEDATA ; No, clear!
222 638f8e17bd51 Prototyping deco_gas_volumes() to compute gas consumption per tank with decoplanning. JeanDo parents: 221 diff changeset	369 movff EEDATA,char_I_deco_gas_change+2 ; Yes!
221 448478ceccea new sorted_gaslist_active flag register heinrichsweikamp parents: 220 diff changeset	370
281 f8f865c70a0d no more sorted gaslist... heinrichsweikamp parents: 274 diff changeset	371 read_int_eeprom d'31' ; read gas_change_depth Gas4
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	372 btfss gaslist_active,3 ; Apply depth?
221 448478ceccea new sorted_gaslist_active flag register heinrichsweikamp parents: 220 diff changeset	373 clrf EEDATA ; No, clear!
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	374 movff EEDATA,char_I_deco_gas_change+3 ; Yes!
221 448478ceccea new sorted_gaslist_active flag register heinrichsweikamp parents: 220 diff changeset	375
281 f8f865c70a0d no more sorted gaslist... heinrichsweikamp parents: 274 diff changeset	376 read_int_eeprom d'32' ; read gas_change_depth Gas5
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	377 btfss gaslist_active,4 ; Apply depth?
221 448478ceccea new sorted_gaslist_active flag register heinrichsweikamp parents: 220 diff changeset	378 clrf EEDATA ; No, clear!
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	379 movff EEDATA,char_I_deco_gas_change+4 ; Yes!
33 6e5db85382a2 Speedy simulator! New Deco code test 1 heinrichsweikamp parents: 25 diff changeset	380 return
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	381
598 f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	382 set_reset_safety_stop: ; Set flags for safety stop and/or reset safety stop
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	383 GETCUSTOM8 d'65' ; Use safety stop
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	384 decfsz WREG,F ; WREG=1?
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	385 bra delete_safety_stop ; No, don't show safety stop
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	386
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	387 btfsc dekostop_active ; Is a deco stop displayed?
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	388 bra delete_safety_stop ; Yes, don't show safety stop
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	389 ; Below "safety_stop_reset"? Set flag and reset count-down timer
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	390 SAFE_2BYTE_COPY rel_pressure, lo
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	391 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	392 movff lo,sub_a+0
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	393 movff hi,sub_a+1
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	394 movlw LOW safety_stop_reset
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	395 movwf sub_b+0
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	396 movlw HIGH safety_stop_reset
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	397 movwf sub_b+1
603 530a5c994ca2 remove safety stop when <3m heinrichsweikamp parents: 599 diff changeset	398 call subU16 ; sub_c = sub_a - sub_b
598 f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	399 btfss neg_flag
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	400 bra reset_safety_stop ; Below 10m, reset safety stop
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	401
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	402 ; Above "safety_stop_end"? Clear flag.
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	403 SAFE_2BYTE_COPY rel_pressure, lo
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	404 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	405 movff lo,sub_a+0
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	406 movff hi,sub_a+1
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	407 movlw LOW safety_stop_end
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	408 movwf sub_b+0
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	409 movlw HIGH safety_stop_end
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	410 movwf sub_b+1
603 530a5c994ca2 remove safety stop when <3m heinrichsweikamp parents: 599 diff changeset	411 call subU16 ; sub_c = sub_a - sub_b
598 f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	412 btfsc neg_flag
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	413 bra delete_safety_stop ; Above 3m, remove safety stop
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	414
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	415 ; Above "safety_stop_start"? Activate safety stop
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	416 SAFE_2BYTE_COPY rel_pressure, lo
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	417 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	418 movff lo,sub_a+0
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	419 movff hi,sub_a+1
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	420 movlw LOW safety_stop_start
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	421 movwf sub_b+0
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	422 movlw HIGH safety_stop_start
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	423 movwf sub_b+1
603 530a5c994ca2 remove safety stop when <3m heinrichsweikamp parents: 599 diff changeset	424 call subU16 ; sub_c = sub_a - sub_b
598 f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	425 btfsc neg_flag
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	426 bra acivate_safety_stop ; Above 5m, activate safety stop
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	427
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	428 bra reset_safety_stop2 ; Pause safety stop
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	429
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	430 acivate_safety_stop:
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	431 tstfsz safety_stop_countdown ; Countdown at zero?
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	432 bsf show_safety_stop ; No, Set flag!
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	433 return
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	434
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	435 delete_safety_stop:
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	436 clrf safety_stop_countdown ; reset timer
603 530a5c994ca2 remove safety stop when <3m heinrichsweikamp parents: 599 diff changeset	437 bra reset_safety_stop2 ; Remove saftestop from display
598 f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	438
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	439 reset_safety_stop:
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	440 movlw safety_stop_length ;[s]
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	441 movwf safety_stop_countdown ; reset timer
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	442 reset_safety_stop2:
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	443 btfss safety_stop_active ; Safety stop shown
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	444 return ; No, don't delete it
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	445 bcf show_safety_stop ; Clear flag
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	446 bcf safety_stop_active ; Clear flag
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	447 call PLED_clear_decoarea ; Yes, Clear stop
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	448 goto PLED_display_ndl_mask ; Show NDL again (And return)
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	449
292 21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	450 ;-----------------------------------------------------------------------------
398 ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments heinrichsweikamp parents: 386 diff changeset	451 ; calculate ppO2 in 0.01bar (e.g. 150 = 1.50 bar ppO2)
292 21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	452 set_actual_ppo2:
592 cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	453 SAFE_2BYTE_COPY amb_pressure, xA ; P_amb in millibar (1000 = 1.00 bar).
292 21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	454 movlw d'10'
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	455 movwf xB+0
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	456 clrf xB+1
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	457 call div16x16 ; xC=p_amb/10 (100 = 1.00 bar).
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	458 movff xC+0,xA+0
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	459 movff xC+1,xA+1
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	460 movff char_I_O2_ratio,xB+0
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	461 clrf xB+1
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	462 call mult16x16 ; char_I_O2_ratio * (p_amb/10)
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	463 movff xC+0,xA+0
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	464 movff xC+1,xA+1
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	465 movlw d'100'
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	466 movwf xB+0
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	467 clrf xB+1
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	468 call div16x16 ; xC=(char_I_O2_ratio * p_amb/10)/100
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	469
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	470 ; Copy ppO2 for CNS calculation
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	471 tstfsz xC+1 ; Is ppO2 > 2.55bar ?
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	472 setf xC+0 ; yes: bound to 2.55... better than wrap around.
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	473
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	474 movff xC+0, char_I_actual_ppO2 ; copy last ppO2 to buffer register
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	475 btfsc FLAG_const_ppO2_mode ; do in const_ppO2_mode
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	476 movff char_I_const_ppO2, char_I_actual_ppO2 ; copy last ppO2 to buffer register
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	477 return
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	478
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	479 reset_decompression_gases: ; reset the deco gas while in NDL
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	480 ostc_debug 'F' ; Sends debug-information to screen if debugmode active
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	481 lfsr FSR2,char_I_deco_gas_change
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	482 clrf POSTINC2 ; Clear Gas1
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	483 clrf POSTINC2
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	484 clrf POSTINC2
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	485 clrf POSTINC2
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	486 clrf POSTINC2 ; Clear Gas5
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	487 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	488
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	489 calc_deko_divemode2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	490 bcf twosecupdate
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	491
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	492 btfsc gauge_mode ; ignore decompression calculation in gauge mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	493 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	494 btfsc FLAG_apnoe_mode ; ignore decompression calculation in apnoe mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	495 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	496
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	497 ostc_debug 'B' ; Sends debug-information to screen if debugmode active
313 11be2470b9eb Fix @5 preventing main computation JeanDo parents: 312 diff changeset	498 ; Send nes state to screen, if debugmode active
11be2470b9eb Fix @5 preventing main computation JeanDo parents: 312 diff changeset	499 movff char_O_deco_status,WREG ; Status before call
11be2470b9eb Fix @5 preventing main computation JeanDo parents: 312 diff changeset	500 addlw '0' ; Convert to ascii char
11be2470b9eb Fix @5 preventing main computation JeanDo parents: 312 diff changeset	501 call ostc_debug1 ; and send.
11be2470b9eb Fix @5 preventing main computation JeanDo parents: 312 diff changeset	502
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	503 call divemode_prepare_flags_for_deco
292 21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	504 clrf WREG
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	505 movff WREG,char_I_step_is_1min ; Force 2 second deco mode
40 92001c045088 1.62 beta release heinrichsweikamp parents: 39 diff changeset	506
592 cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	507 movff char_I_O2_ratio,lo_temp ; Backup original value for everything
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	508 movff char_I_N2_ratio,hi_temp ; Backup original value for everything
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	509
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	510 read_int_eeprom d'34' ; Read deco data
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	511 movlw .6
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	512 cpfseq EEDATA
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	513 bra calc_deko_divemode2a
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	514 ; in PSCR mode, compute fO2 into char_I_O2_ratio
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	515 call compute_pscr_ppo2 ; pSCR ppO2 into sub_c:2
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	516 movff sub_c+0,xA+0
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	517 movff sub_c+1,xA+1
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	518 movlw LOW .10
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	519 movwf xB+0
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	520 movlw HIGH .10
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	521 movwf xB+1
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	522 call mult16x16 ;xAxB=xC -> xC:4 = ppO210
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	523 SAFE_2BYTE_COPY amb_pressure, xB
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	524 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	525 ; xC+0 has O2 in percent
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	526 movff xC+0,char_I_O2_ratio
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	527
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	528 movff char_I_He_ratio, wait_temp ; copy into bank1 register
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	529 bsf STATUS,C ; Borrow bit
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	530 movlw d'100' ; 100%
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	531 subfwb wait_temp,W ; minus He
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	532 bsf STATUS,C ; Borrow bit
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	533 subfwb xC+0,W ; minus O2
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	534 movff WREG, char_I_N2_ratio ; = N2!
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	535
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	536 calc_deko_divemode2a:
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	537
256 d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	538 clrf TMR3L
537 3091628b2742 BUGFIX: Spurious logbook read issue heinrichsweikamp parents: 532 diff changeset	539 nop ; See errata DS80284E-page 2
256 d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	540 clrf TMR3H ; Reset Timer3
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	541
116 14a074e1a375 Split C code, and use direct linking. JeanDo parents: 115 diff changeset	542 call deco_calc_hauptroutine ; calc_tissue
592 cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	543 movlb b'00000001' ; rambank 1 selected
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	544 ostc_debug 'C' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	545
592 cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	546 movff lo_temp,char_I_O2_ratio ; Restore original value for everything
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	547 movff hi_temp,char_I_N2_ratio ; Restore original value for everything
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	548
256 d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	549 btfss debug_mode ; Are we in debugmode?
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	550 bra calc_deko_divemode4 ; No...
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	551
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	552 ; Show timer3 reading converted into ms (Error: +2,3%) in custom area
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	553 movff TMR3L,lo
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	554 movff TMR3H,hi
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	555 bcf STATUS,C
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	556 rrcf hi
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	557 rrcf lo ;/2
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	558 bcf STATUS,C
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	559 rrcf hi
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	560 rrcf lo ;/4
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	561 bcf STATUS,C
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	562 rrcf hi
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	563 rrcf lo ;/8
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	564 bcf STATUS,C
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	565 rrcf hi
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	566 rrcf lo ;/16
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	567 bcf STATUS,C
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	568 rrcf hi
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	569 rrcf lo ;/32
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	570
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	571 WIN_TOP .216
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	572 WIN_LEFT .100
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	573 WIN_FONT FT_SMALL
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	574 STRCPY "ms:"
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	575 output_16
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	576 call word_processor
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	577
d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	578 calc_deko_divemode4:
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	579 movff char_O_deco_status,WREG ; Is a compute cycle finished ?
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	580 iorwf WREG,F
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	581 btfss STATUS,Z
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	582 return ; Return is status <> 0
256 d8dfbc7041b0 added CPU time debugger heinrichsweikamp parents: 254 diff changeset	583
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	584 ; Check if deco stops are necessary ?
169 e26f49674956 Merge decoplan display for both GF and Buhlmann models. JeanDo parents: 167 diff changeset	585 movff char_O_first_deco_depth,wait_temp ; copy ceiling to temp register
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	586 tstfsz wait_temp ; Ceiling<0m?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	587 bra calc_deko_divemode3 ; Yes!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	588
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	589 btfsc dekostop_active ; Already in nodeco mode ?
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	590 call PLED_display_ndl_mask ; Clear deco data, display nostop time
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	591 bcf dekostop_active ; clear flag
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	592
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	593 clrf decodata+0 ; for profile memory
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	594 movff char_O_nullzeit,decodata+1 ; nostop time
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	595
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	596 call PLED_display_ndl ; display no deco limit
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	597
323 b7940978edc9 Fix "Future TTS" display customview. JeanDo parents: 319 diff changeset	598 calc_deko_divemode5:
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	599 ; Check if extra cycles are needed to compute @5 variant:
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	600 btfss tts_extra_time ; Is @5 displayed ?
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	601 return ; No: don't compute it.
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	602
313 11be2470b9eb Fix @5 preventing main computation JeanDo parents: 312 diff changeset	603 decfsz apnoe_mins ; Reached count-down ?
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	604 return ; No: don't compute yet.
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	605
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	606 movlw .6
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	607 movff WREG,char_O_deco_status ; Stole next cycles for @5 variant.
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	608
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	609 movlw .2 ; Restart countdown.
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	610 movwf apnoe_mins
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	611 return
323 b7940978edc9 Fix "Future TTS" display customview. JeanDo parents: 319 diff changeset	612
b7940978edc9 Fix "Future TTS" display customview. JeanDo parents: 319 diff changeset	613 calc_deko_divemode3:
b7940978edc9 Fix "Future TTS" display customview. JeanDo parents: 319 diff changeset	614 btfss dekostop_active ; Already in deco mode ?
b7940978edc9 Fix "Future TTS" display customview. JeanDo parents: 319 diff changeset	615 call PLED_display_deko_mask ; clear nostop time, display decodata
b7940978edc9 Fix "Future TTS" display customview. JeanDo parents: 319 diff changeset	616 bsf dekostop_active ; Set flag
b7940978edc9 Fix "Future TTS" display customview. JeanDo parents: 319 diff changeset	617
b7940978edc9 Fix "Future TTS" display customview. JeanDo parents: 319 diff changeset	618 movff char_O_first_deco_depth,decodata+0 ; ceiling
b7940978edc9 Fix "Future TTS" display customview. JeanDo parents: 319 diff changeset	619 movff char_O_first_deco_time,decodata+1 ; length of first stop in minues
b7940978edc9 Fix "Future TTS" display customview. JeanDo parents: 319 diff changeset	620
b7940978edc9 Fix "Future TTS" display customview. JeanDo parents: 319 diff changeset	621 call PLED_display_deko ; display decodata
b7940978edc9 Fix "Future TTS" display customview. JeanDo parents: 319 diff changeset	622 bra calc_deko_divemode5
313 11be2470b9eb Fix @5 preventing main computation JeanDo parents: 312 diff changeset	623
124 4f9f477bb452 Rewrite display of decoplan: JeanDo parents: 116 diff changeset	624 ;-----------------------------------------------------------------------------
69 df2d3b28947f 1.71beta for Mk.2 heinrichsweikamp parents: 68 diff changeset	625
237 55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	626 divemode_prepare_flags_for_deco:
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	627 SAFE_2BYTE_COPY amb_pressure,int_I_pres_respiration ; copy result to deco routine
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	628
197 f15e804ff67f Gas switch delay JeanDo parents: 180 diff changeset	629 GETCUSTOM8 d'11' ; Saturation multiplier %
f15e804ff67f Gas switch delay JeanDo parents: 180 diff changeset	630 movff WREG,char_I_saturation_multiplier
f15e804ff67f Gas switch delay JeanDo parents: 180 diff changeset	631 GETCUSTOM8 d'12' ; Desaturation multiplier %
f15e804ff67f Gas switch delay JeanDo parents: 180 diff changeset	632 movff WREG,char_I_desaturation_multiplier
f15e804ff67f Gas switch delay JeanDo parents: 180 diff changeset	633 GETCUSTOM8 d'16' ; Deco distance to decostop in 1/10 meter for simulation
f15e804ff67f Gas switch delay JeanDo parents: 180 diff changeset	634 movff WREG,char_I_deco_distance
f15e804ff67f Gas switch delay JeanDo parents: 180 diff changeset	635 GETCUSTOM8 d'29' ; Depth Last Deco in meter for simulation
f15e804ff67f Gas switch delay JeanDo parents: 180 diff changeset	636 movff WREG,char_I_depth_last_deco
203 2d9af08ed0ac BUGFIX Gas switch JeanDo parents: 197 diff changeset	637 movff divemins+0,int_I_divemins+0 ; Current dive time.
2d9af08ed0ac BUGFIX Gas switch JeanDo parents: 197 diff changeset	638 movff divemins+1,int_I_divemins+1
197 f15e804ff67f Gas switch delay JeanDo parents: 180 diff changeset	639 goto restart_set_modes_and_flags ; Sets decomode (char_I_deco_model) and flags (again)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	640
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	641 ;-----------------------------------------------------------------------------
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	642
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	643 store_dive_data: ; CF20 seconds gone
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	644 bcf store_sample ; update only any CF20 seconds
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	645 bsf update_divetime ; update divemins every CF20 seconds
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	646
233 2cbaa01dac26 Hunting for NoFly (bug BB13)... not found yet... JeanDo parents: 229 diff changeset	647 ifndef __DEBUG
2cbaa01dac26 Hunting for NoFly (bug BB13)... not found yet... JeanDo parents: 229 diff changeset	648 btfsc simulatormode_active ; Are we in simulator mode?
2cbaa01dac26 Hunting for NoFly (bug BB13)... not found yet... JeanDo parents: 229 diff changeset	649 return ; Yes, discard everything
2cbaa01dac26 Hunting for NoFly (bug BB13)... not found yet... JeanDo parents: 229 diff changeset	650 endif
33 6e5db85382a2 Speedy simulator! New Deco code test 1 heinrichsweikamp parents: 25 diff changeset	651
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	652 btfsc header_stored ; Header already stored?
71 6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch heinrichsweikamp parents: 69 diff changeset	653 bra store_dive_data2 ; Yes, store only profile data
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	654 bsf header_stored ; Store header
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	655
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	656 movff eeprom_address+0, eeprom_header_address+0 ; store startposition
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	657 movff eeprom_address+1, eeprom_header_address+1 ; store startposition
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	658
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	659 ; shift address for header
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	660 ; the header will be stored after the dive
457 993e681e89cf no decodata in logbook for apnea dives heinrichsweikamp parents: 453 diff changeset	661 incf_eeprom_address d'57' ; Macro, that adds 8Bit to eeprom_address:2
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	662
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	663 store_dive_data2:
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	664 SAFE_2BYTE_COPY rel_pressure, lo
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	665 movf lo,W ; store depth with every sample
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	666 call write_external_eeprom
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	667 movf hi,W
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	668 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	669
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	670 ;First, find out how many bytes will append to this sample....
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	671 clrf ProfileFlagByte ; clear number of bytes to append
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	672
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	673 ; Check Extented informations
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	674 decfsz divisor_temperature,W ; Check divisor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	675 bra check_extended1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	676 movlw d'2' ; Information length
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	677 addwf ProfileFlagByte,F ; add to ProfileFlagByte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	678 check_extended1:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	679 decfsz divisor_deco,W ; Check divisor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	680 bra check_extended2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	681 movlw d'2' ; Information length
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	682 addwf ProfileFlagByte,F ; add to ProfileFlagByte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	683 check_extended2:
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	684 decfsz divisor_gf,W ; Check divisor
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	685 bra check_extended3
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	686 movlw d'1' ; Information length
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	687 addwf ProfileFlagByte,F ; add to ProfileFlagByte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	688 check_extended3:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	689 decfsz divisor_ppo2,W ; Check divisor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	690 bra check_extended4
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	691 movlw d'3' ; Information length
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	692 addwf ProfileFlagByte,F ; add to ProfileFlagByte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	693 check_extended4:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	694 decfsz divisor_deco_debug,W; Check divisor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	695 bra check_extended5
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	696 movlw d'9' ; Information length
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	697 addwf ProfileFlagByte,F ; add to ProfileFlagByte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	698 check_extended5:
367 584741726190 CNS Profile added Heinrichsweikamp parents: 361 diff changeset	699 decfsz divisor_cns,W ; Check divisor
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	700 bra check_extended6
367 584741726190 CNS Profile added Heinrichsweikamp parents: 361 diff changeset	701 movlw d'1' ; Information length
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	702 addwf ProfileFlagByte,F ; add to ProfileFlagByte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	703 check_extended6:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	704
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	705 ; Second, check global event flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	706 btfss event_occured ; Check global event flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	707 bra store_dive_data3 ; No Event
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	708 movlw d'1'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	709 addwf ProfileFlagByte,F ; add one byte (The EventByte)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	710
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	711 clrf EventByte ; reset EventByte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	712
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	713 movf AlarmType,W ; Type of Alarm Bit 0-3
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	714 addwf EventByte,F ; Copy to EventByte Bit 0-3
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	715 clrf AlarmType ; Reset AlarmType
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	716
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	717 ; Third, check events and add aditional bytes
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	718 btfss manual_gas_changed ; Check flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	719 bra check_event1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	720 movlw d'2' ; Information length
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	721 addwf ProfileFlagByte,F ; add to ProfileFlagByte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	722 bsf EventByte,4 ; Also set Flag in EventByte!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	723 check_event1:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	724 btfss stored_gas_changed ; Check flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	725 bra check_event2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	726 movlw d'1' ; Information length
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	727 addwf ProfileFlagByte,F ; add to ProfileFlagByte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	728 bsf EventByte,5 ; Also set Flag in EventByte!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	729 check_event2:
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	730 btfss setpoint_changed ; Check flag
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	731 bra check_event3
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	732 movlw d'1' ; Information length
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	733 addwf ProfileFlagByte,F ; add to ProfileFlagByte
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	734 bsf EventByte,6 ; Also set Flag in EventByte!
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	735 check_event3:
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	736 bsf ProfileFlagByte,7 ; Set EventByte Flag in ProfileFlagByte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	737
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	738 store_dive_data3:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	739 movf ProfileFlagByte,W ; finally, write ProfileFlagByte!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	740 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	741
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	742 btfss event_occured ; Check global event flag (again)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	743 bra store_dive_data4 ; No Event
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	744
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	745 ; Store the EventByte + additional bytes now
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	746 movf EventByte,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	747 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	748
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	749 btfss manual_gas_changed ; Check flag
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	750 bra store_dive_data3a
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	751 read_int_eeprom d'24' ; % O2 Gas6
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	752 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	753 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	754 read_int_eeprom d'25' ; % He Gas6
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	755 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	756 call write_external_eeprom
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	757 bcf manual_gas_changed ; Clear this event
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	758
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	759 store_dive_data3a:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	760 btfss stored_gas_changed ; Check flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	761 bra store_dive_data3b
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	762 movf active_gas,W ; Store active gas
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	763 call write_external_eeprom
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	764 bcf stored_gas_changed ; Clear this event
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	765 store_dive_data3b:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	766
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	767 store_dive_data4:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	768
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	769 ; Store extended informations
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	770 decfsz divisor_temperature,F ; Check divisor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	771 bra store_extended1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	772 rcall store_dive_temperature
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	773 store_extended1:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	774 decfsz divisor_deco,F ; Check divisor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	775 bra store_extended2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	776 rcall store_dive_decodata
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	777 store_extended2:
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	778 decfsz divisor_gf,F ; Check divisor
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	779 bra store_extended3
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	780 rcall store_dive_gf
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	781 store_extended3:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	782 decfsz divisor_ppo2,F ; Check divisor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	783 bra store_extended4
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	784 rcall store_dive_ppo2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	785 store_extended4:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	786 decfsz divisor_deco_debug,F; Check divisor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	787 bra store_extended5
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	788 rcall store_dive_decodebug
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	789 store_extended5:
367 584741726190 CNS Profile added Heinrichsweikamp parents: 361 diff changeset	790 decfsz divisor_cns,F ; Check divisor
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	791 bra store_extended6
367 584741726190 CNS Profile added Heinrichsweikamp parents: 361 diff changeset	792 rcall store_dive_cns
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	793 store_extended6:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	794
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	795 ; The next block is required to take care of "store never"
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	796 btfsc divisor_temperature,7 ; Test highest Bit (Register must have been zero before the "decfsz" command!)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	797 clrf divisor_temperature ; And clear register again, so it will never reach zero...
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	798 btfsc divisor_deco,7 ; Test highest Bit (Register must have been zero before the "decfsz" command!)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	799 clrf divisor_deco ; And clear register again, so it will never reach zero...
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	800 btfsc divisor_gf,7 ; Test highest Bit (Register must have been zero before the "decfsz" command!)
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	801 clrf divisor_gf ; And clear register again, so it will never reach zero...
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	802 btfsc divisor_ppo2,7 ; Test highest Bit (Register must have been zero before the "decfsz" command!)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	803 clrf divisor_ppo2 ; And clear register again, so it will never reach zero...
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	804 btfsc divisor_deco_debug,7 ; Test highest Bit (Register must have been zero before the "decfsz" command!)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	805 clrf divisor_deco_debug ; And clear register again, so it will never reach zero...
367 584741726190 CNS Profile added Heinrichsweikamp parents: 361 diff changeset	806 btfsc divisor_cns,7 ; Test highest Bit (Register must have been zero before the "decfsz" command!)
584741726190 CNS Profile added Heinrichsweikamp parents: 361 diff changeset	807 clrf divisor_cns ; And clear register again, so it will never reach zero...
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	808
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	809 ostc_debug 'D' ; Sends debug-information to screen if debugmode active
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	810
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	811 ; SetPoint change appended to information due to compatibility reasons
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	812 btfss setpoint_changed ; Check flag
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	813 bra store_dive_data5
447 b63a90a87fe2 apply stored setpoint to log heinrichsweikamp parents: 416 diff changeset	814 movff ppO2_setpoint_store,WREG ; SetPoint in cbar
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	815 call write_external_eeprom
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	816 bcf setpoint_changed ; Clear this event
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	817
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	818 store_dive_data5:
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	819 bcf event_occured ; Clear the global event flag
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	820 return ; Done. (Sample with all informations written to EEPROM)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	821
367 584741726190 CNS Profile added Heinrichsweikamp parents: 361 diff changeset	822 store_dive_cns:
584741726190 CNS Profile added Heinrichsweikamp parents: 361 diff changeset	823 movff char_O_CNS_fraction,WREG
584741726190 CNS Profile added Heinrichsweikamp parents: 361 diff changeset	824 call write_external_eeprom ; Store in EEPROM
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	825 GETCUSTOM8 d'26'
367 584741726190 CNS Profile added Heinrichsweikamp parents: 361 diff changeset	826 movwf divisor_cns ; Reload divisor from CF
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	827 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	828
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	829 store_dive_decodebug:
532 f5a06b9e2fef cleanup debug stuff heinrichsweikamp parents: 522 diff changeset	830 ; do something here
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	831 GETCUSTOM8 d'25'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	832 movwf divisor_deco_debug ; Reload divisor from CF
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	833 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	834
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	835 store_dive_ppo2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	836 movlw 0x00 ; Dummy
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	837 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	838 movlw 0x00 ; Dummy
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	839 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	840 movlw 0x00 ; Dummy
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	841 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	842 GETCUSTOM8 d'24'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	843 movwf divisor_ppo2 ; Reload divisor from CF
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	844 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	845
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	846 store_dive_gf:
375 84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	847 movff char_O_gradient_factor,WREG ; gradient factor absolute
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	848 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	849 GETCUSTOM8 d'23'
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	850 movwf divisor_gf ; Reload divisor from CF
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	851 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	852
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	853 store_dive_decodata:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	854 movf decodata+0,W ; =0:no stop dive, if in deco mode: ceiling in m
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	855 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	856 movf decodata+1,W ; no stop time of length of first stop
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	857 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	858 GETCUSTOM8 d'22'
457 993e681e89cf no decodata in logbook for apnea dives heinrichsweikamp parents: 453 diff changeset	859
993e681e89cf no decodata in logbook for apnea dives heinrichsweikamp parents: 453 diff changeset	860 btfsc FLAG_apnoe_mode ; in Apnoe mode?
993e681e89cf no decodata in logbook for apnea dives heinrichsweikamp parents: 453 diff changeset	861 movlw d'0' ; Yes, set to zero
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	862 movwf divisor_deco ; Reload divisor from CF
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	863 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	864
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	865 store_dive_temperature:
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	866 SAFE_2BYTE_COPY temperature,lo
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	867 movf lo,W ; append temperature to current sample!
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	868 call write_external_eeprom
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	869 movf hi,W
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	870 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	871 GETCUSTOM8 d'21'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	872 movwf divisor_temperature ; Reload divisor from CF
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	873 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	874
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	875 calc_velocity: ; called every two seconds
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	876 btfss divemode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	877 bra do_not_display_velocity ; display velocity only in divemode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	878
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	879 calc_velocity2:
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	880 SAFE_2BYTE_COPY amb_pressure, sub_a
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	881 movff last_pressure+0,sub_b+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	882 movff last_pressure+1,sub_b+1
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	883 movff sub_a+0,last_pressure+0 ; store old value for velocity
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	884 movff sub_a+1,last_pressure+1
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	885
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	886 call sub16 ; sub_c = amb_pressure - last_pressure
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	887
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	888 movff sub_c+0,xA+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	889 movff sub_c+1,xA+1
494 e9b1f162799d testing graphical velocity heinrichsweikamp parents: 492 diff changeset	890 movlw d'39' ;77 when called every second....
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	891 movwf xB+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	892 clrf xB+1
398 ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments heinrichsweikamp parents: 386 diff changeset	893 call mult16x16 ; differential pressure in mbar*77...
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	894 movff xC+0,divA+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	895 movff xC+1,divA+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	896 movlw d'7'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	897 movwf divB
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	898 call div16 ; devided by 2^7 equals velocity in m/min
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	899
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	900 movlw d'99'
492 19b9e19ea4da +CHANGE: Velocity display updated every second heinrichsweikamp parents: 486 diff changeset	901 cpfsgt divA ; Limit to 99m/min max.
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	902 bra calc_velocity3
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	903 movwf divA ; divA=99
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	904
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	905 calc_velocity3:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	906 GETCUSTOM8 d'5' ; threshold for display vertical velocity
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	907 subwf divA+0,W ;
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	908
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	909 btfss STATUS,C
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	910 bra do_not_display_velocity
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	911
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	912 update_velocity:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	913 bsf display_velocity
492 19b9e19ea4da +CHANGE: Velocity display updated every second heinrichsweikamp parents: 486 diff changeset	914
19b9e19ea4da +CHANGE: Velocity display updated every second heinrichsweikamp parents: 486 diff changeset	915 GETCUSTOM8 d'60' ; use graphic velocity (=1)?
19b9e19ea4da +CHANGE: Velocity display updated every second heinrichsweikamp parents: 486 diff changeset	916 movwf lo
19b9e19ea4da +CHANGE: Velocity display updated every second heinrichsweikamp parents: 486 diff changeset	917 movlw d'1'
19b9e19ea4da +CHANGE: Velocity display updated every second heinrichsweikamp parents: 486 diff changeset	918 cpfseq lo ; =1?
19b9e19ea4da +CHANGE: Velocity display updated every second heinrichsweikamp parents: 486 diff changeset	919 bra update_velocity1 ; No
19b9e19ea4da +CHANGE: Velocity display updated every second heinrichsweikamp parents: 486 diff changeset	920
19b9e19ea4da +CHANGE: Velocity display updated every second heinrichsweikamp parents: 486 diff changeset	921 call PLED_display_velocity_graphical
19b9e19ea4da +CHANGE: Velocity display updated every second heinrichsweikamp parents: 486 diff changeset	922 return
19b9e19ea4da +CHANGE: Velocity display updated every second heinrichsweikamp parents: 486 diff changeset	923
19b9e19ea4da +CHANGE: Velocity display updated every second heinrichsweikamp parents: 486 diff changeset	924 update_velocity1:
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	925 call PLED_display_velocity
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	926 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	927
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	928 do_not_display_velocity:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	929 btfss display_velocity ; Velocity was not displayed, do not delete
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	930 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	931
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	932 bcf display_velocity ; Velocity was displayed, delete velocity now
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	933 call PLED_display_velocity_clear
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	934 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	935
237 55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	936 check_ppO2: ; check current ppO2 and display warning if required
55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	937 btfsc FLAG_const_ppO2_mode ; ignore in ppO2 mode....
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	938 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	939
3 3cf8af30b36e v1.51 beta heinrichsweikamp parents: 2 diff changeset	940 check_ppO2_bail: ; In CC mode but bailout active!
592 cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	941 read_int_eeprom d'34' ; Read deco data
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	942 movlw .6
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	943 cpfseq EEDATA
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	944 bra check_ppO2_non_pscr
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	945 ; in PSCR mode
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	946 call compute_pscr_ppo2 ; pSCR ppO2 into sub_c:2
595 16f4eafc197e CNS for pSCR-GF fixed. heinrichsweikamp parents: 593 diff changeset	947 movff sub_c+0,xA+0
16f4eafc197e CNS for pSCR-GF fixed. heinrichsweikamp parents: 593 diff changeset	948 movff sub_c+1,xA+1
16f4eafc197e CNS for pSCR-GF fixed. heinrichsweikamp parents: 593 diff changeset	949 movlw d'100'
16f4eafc197e CNS for pSCR-GF fixed. heinrichsweikamp parents: 593 diff changeset	950 movwf xB+0
16f4eafc197e CNS for pSCR-GF fixed. heinrichsweikamp parents: 593 diff changeset	951 clrf xB+1
16f4eafc197e CNS for pSCR-GF fixed. heinrichsweikamp parents: 593 diff changeset	952 call div16x16 ; /100
16f4eafc197e CNS for pSCR-GF fixed. heinrichsweikamp parents: 593 diff changeset	953 tstfsz xC+1 ; Is ppO2 > 2.55bar ?
16f4eafc197e CNS for pSCR-GF fixed. heinrichsweikamp parents: 593 diff changeset	954 setf xC+0 ; yes: bound to 2.55... better than wrap around.
16f4eafc197e CNS for pSCR-GF fixed. heinrichsweikamp parents: 593 diff changeset	955 movff xC+0,char_I_actual_ppO2 ; copy last ppO2 to buffer register (for pSCR CNS)
16f4eafc197e CNS for pSCR-GF fixed. heinrichsweikamp parents: 593 diff changeset	956 clrf xC+2
16f4eafc197e CNS for pSCR-GF fixed. heinrichsweikamp parents: 593 diff changeset	957 clrf xC+3
592 cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	958 movff sub_c+0,xC+0
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	959 movff sub_c+1,xC+1 ; copy for comptibility
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	960 bra check_ppO2_check
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	961
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	962 check_ppO2_non_pscr:
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	963 SAFE_2BYTE_COPY amb_pressure, xA
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	964 movlw d'10'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	965 movwf xB+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	966 clrf xB+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	967 call div16x16 ; xC=p_amb/10
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	968 movff xC+0,xA+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	969 movff xC+1,xA+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	970 movff char_I_O2_ratio,xB+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	971 clrf xB+1
592 cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	972 call mult16x16 ; char_I_O2_ratio * p_amb/10 -> xC:4
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	973 ; bra check_ppO2_check
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63) heinrichsweikamp parents: 577 diff changeset	974 check_ppO2_check:
74 a1ccb92b59cd 1.72beta release heinrichsweikamp parents: 71 diff changeset	975 ; Check very high ppO2 manually
398 ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments heinrichsweikamp parents: 386 diff changeset	976 tstfsz xC+2 ; char_I_O2_ratio * p_amb/10 > 65536, ppO2>6,55bar?
74 a1ccb92b59cd 1.72beta release heinrichsweikamp parents: 71 diff changeset	977 bra check_ppO2_bail2 ; Yes, display Value!
a1ccb92b59cd 1.72beta release heinrichsweikamp parents: 71 diff changeset	978
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	979 ; Check if ppO2 should be displayed
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	980 movff xC+0,sub_b+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	981 movff xC+1,sub_b+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	982 GETCUSTOM8 d'19' ; ppo2_display_high
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	983 mullw d'100' ; ppo2_display_high*100
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	984 movff PRODL,sub_a+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	985 movff PRODH,sub_a+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	986 call sub16
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	987 bcf ppO2_show_value ; clear flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	988 btfsc neg_flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	989 bsf ppO2_show_value ; set flag if required
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	990
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	991 ;check if we are within our warning thresholds!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	992 movff xC+0,sub_b+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	993 movff xC+1,sub_b+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	994 GETCUSTOM8 d'18' ; ppo2_warning_high
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	995 mullw d'100' ; ppo2_warning_high*100
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	996 movff PRODL,sub_a+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	997 movff PRODH,sub_a+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	998 call sub16
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	999 btfss neg_flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1000 bra check_ppO2_0 ; Not too high
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1001
74 a1ccb92b59cd 1.72beta release heinrichsweikamp parents: 71 diff changeset	1002 check_ppO2_bail2:
a1ccb92b59cd 1.72beta release heinrichsweikamp parents: 71 diff changeset	1003 bsf ppO2_show_value ; set flag if required
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1004 movlw d'5' ; Type of Alarm
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1005 movwf AlarmType ; Copy to Alarm Register
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1006 bsf event_occured ; Set Event Flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1007
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1008 check_ppO2_0:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1009 movff xC+0,sub_b+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1010 movff xC+1,sub_b+1
210 f60acc323701 mini-cleanup heinrichsweikamp parents: 203 diff changeset	1011 GETCUSTOM8 d'17' ; ppo2_warning_low
f60acc323701 mini-cleanup heinrichsweikamp parents: 203 diff changeset	1012 mullw d'100' ; ppo2_warning_low*100
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1013 movff PRODL,sub_a+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1014 movff PRODH,sub_a+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1015 call sub16
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1016 btfsc neg_flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1017 bra check_ppO2_1 ; Not too low
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1018
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1019 bsf ppO2_show_value ; show ppO2 if below threshold!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1020 movlw d'4' ; Type of Alarm
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1021 movwf AlarmType ; Copy to Alarm Register
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1022 bsf event_occured ; Set Event Flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1023
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1024 check_ppO2_1:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1025 btfsc ppO2_show_value ; show value?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1026 bra check_ppO2_2 ; yes!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1027
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1028 btfss ppO2_display_active ; is the value displayed?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1029 bra check_ppO2_3 ; No, so clear not required
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1030
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1031 call PLED_show_ppO2_clear; Clear ppO2 value
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1032 bcf ppO2_display_active ; clear flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1033 bra check_ppO2_3 ; done
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1034
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1035 check_ppO2_2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1036 call PLED_show_ppO2 ; Display ppO2 (stored in xC)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1037 bsf ppO2_display_active ; Set flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1038
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1039 check_ppO2_3:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1040 return ; done
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1041
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1042 ;=============================================================================
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1043 ; Compare all enabled gas in list, to see if a better one is available.
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1044 ;
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1045 ; Output: better_gas_available
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1046 ;
210 f60acc323701 mini-cleanup heinrichsweikamp parents: 203 diff changeset	1047 check_gas_change: ; Checks if a better gas should be selected (by user)
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1048 bcf better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1049
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1050 SAFE_2BYTE_COPY rel_pressure,xA
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1051 movlw d'100'
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1052 movwf xB+0
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1053 clrf xB+1
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1054 call div16x16 ; compute depth in full m -> result in xC+0
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1055
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1056 check_gas_change1: ; check gas1
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1057 btfss gaslist_active,0 ; check active flag
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1058 bra check_gas_change2 ; skip inactive gases!
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1059 movlw d'1'
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1060 cpfseq active_gas ; is this gas currently selected?
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1061 bra check_gas_change1x ; No...
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1062 bra check_gas_change2 ; Yes, skip depth check
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1063 check_gas_change1x:
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1064 read_int_eeprom d'28' ; read gas_change_depth
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1065 movlw minimum_change_depth
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1066 cpfsgt EEDATA ; Change depth>minimum_change_depth?
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1067 bra check_gas_change2 ; No, Change depth not deep enough, skip!
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1068 movf xC+0,W ; load depth in m into WREG
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1069 cpfsgt EEDATA ; gas_change_depth < current depth?
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1070 bra check_gas_change2 ; No, check next gas
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1071 movlw better_gas_window
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1072 subwf EEDATA,W ; Change depth-better_gas_window
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1073 cpfslt xC+0 ; current depth<Change depth-better_gas_window?
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1074 bsf better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1075
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1076 check_gas_change2: ; check gas2
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1077 btfss gaslist_active,1 ; check active flag
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1078 bra check_gas_change3 ; skip inactive gases!
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1079 movlw d'2'
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1080 cpfseq active_gas ; is this gas currently selected?
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1081 bra check_gas_change2x ; No...
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1082 bra check_gas_change3 ; Yes, skip depth check
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1083 check_gas_change2x:
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1084 read_int_eeprom d'29' ; read gas_change_depth
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1085 movlw minimum_change_depth
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1086 cpfsgt EEDATA ; Change depth>minimum_change_depth?
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1087 bra check_gas_change3 ; No, Change depth not deep enough, skip!
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1088 movf xC+0,W ; load depth in m into WREG
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1089 cpfsgt EEDATA ; gas_change_depth < current depth?
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1090 bra check_gas_change3 ; No, check next gas
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1091 movlw better_gas_window
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1092 subwf EEDATA,W ; Change depth-better_gas_window
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1093 cpfslt xC+0 ; current depth<Change depth-better_gas_window?
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1094 bsf better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1095
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1096 check_gas_change3: ; check gas3
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1097 btfss gaslist_active,2 ; check active flag
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1098 bra check_gas_change4 ; skip inactive gases!
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1099 movlw d'3'
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1100 cpfseq active_gas ; is this gas currently selected?
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1101 bra check_gas_change3x ; No...
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1102 bra check_gas_change4 ; Yes, skip depth check
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1103 check_gas_change3x:
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1104 read_int_eeprom d'30' ; read gas_change_depth
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1105 movlw minimum_change_depth
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1106 cpfsgt EEDATA ; Change depth>minimum_change_depth?
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1107 bra check_gas_change4 ; No, Change depth not deep enough, skip!
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1108 movf xC+0,W ; load depth in m into WREG
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1109 cpfsgt EEDATA ; gas_change_depth < current depth?
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1110 bra check_gas_change4 ; No, check next gas
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1111 movlw better_gas_window
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1112 subwf EEDATA,W ; Change depth-better_gas_window
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1113 cpfslt xC+0 ; current depth<Change depth-better_gas_window?
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1114 bsf better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1115
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1116 check_gas_change4: ; check gas4
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1117 btfss gaslist_active,3 ; check active flag
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1118 bra check_gas_change5 ; skip inactive gases!
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1119 movlw d'4'
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1120 cpfseq active_gas ; is this gas currently selected?
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1121 bra check_gas_change4x ; No...
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1122 bra check_gas_change5 ; Yes, skip depth check
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1123 check_gas_change4x:
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1124 read_int_eeprom d'31' ; read gas_change_depth
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1125 movlw minimum_change_depth
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1126 cpfsgt EEDATA ; Change depth>minimum_change_depth?
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1127 bra check_gas_change5 ; No, Change depth not deep enough, skip!
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1128 movf xC+0,W ; load depth in m into WREG
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1129 cpfsgt EEDATA ; gas_change_depth < current depth?
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1130 bra check_gas_change5 ; No, check next gas
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1131 movlw better_gas_window
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1132 subwf EEDATA,W ; Change depth-better_gas_window
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1133 cpfslt xC+0 ; current depth<Change depth-better_gas_window?
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1134 bsf better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1135
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1136 check_gas_change5: ; check gas5
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1137 btfss gaslist_active,4 ; check active flag
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1138 bra check_gas_change6 ; skip inactive gases!
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1139 movlw d'5'
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1140 cpfseq active_gas ; is this gas currently selected?
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1141 bra check_gas_change5x ; No...
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1142 bra check_gas_change6 ; Yes, skip depth check
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1143 check_gas_change5x:
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1144 read_int_eeprom d'32' ; read gas_change_depth
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1145 movlw minimum_change_depth
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1146 cpfsgt EEDATA ; Change depth>minimum_change_depth?
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1147 bra check_gas_change6 ; No, Change depth not deep enough, skip!
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1148 movf xC+0,W ; load depth in m into WREG
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1149 cpfsgt EEDATA ; gas_change_depth < current depth?
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1150 bra check_gas_change6 ; No, check next gas
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1151 movlw better_gas_window
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1152 subwf EEDATA,W ; Change depth-better_gas_window
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1153 cpfslt xC+0 ; current depth<Change depth-better_gas_window?
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1154 bsf better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1155
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1156 check_gas_change6: ;Done
505 24e018713ea2 fix bb bug #66: CCR air mode: should not blink for my bailout heinrichsweikamp parents: 498 diff changeset	1157 btfsc FLAG_const_ppO2_mode ; in ppO2 mode?
24e018713ea2 fix bb bug #66: CCR air mode: should not blink for my bailout heinrichsweikamp parents: 498 diff changeset	1158 bcf better_gas_available ; Yes, do not blink better gas
24e018713ea2 fix bb bug #66: CCR air mode: should not blink for my bailout heinrichsweikamp parents: 498 diff changeset	1159
24e018713ea2 fix bb bug #66: CCR air mode: should not blink for my bailout heinrichsweikamp parents: 498 diff changeset	1160 call PLED_active_gas_divemode; Display gas, if required (and with "*" if required...)
8 d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1161 return
d8b426d71282 1.52 rc2 heinrichsweikamp parents: 4 diff changeset	1162
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1163 ;=============================================================================
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1164
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1165 calculate_noflytime:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1166 ; calculate nofly time
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1167 movff int_O_desaturation_time+0,xA+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1168 movff int_O_desaturation_time+1,xA+1
251 f0cba9cff25c Still hunting for bb13... JeanDo parents: 250 diff changeset	1169
f0cba9cff25c Still hunting for bb13... JeanDo parents: 250 diff changeset	1170 btfsc xA+1,7 ; Is desat time negatif ?
f0cba9cff25c Still hunting for bb13... JeanDo parents: 250 diff changeset	1171 bra calculate_noflytime_3 ; Then surely not valid !
f0cba9cff25c Still hunting for bb13... JeanDo parents: 250 diff changeset	1172
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1173 tstfsz xA+0 ; Desat=0?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1174 bra calculate_noflytime2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1175 tstfsz xA+1 ; Desat=0?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1176 bra calculate_noflytime2
229 85ea09d3b9d8 Nofly should not be reset after dive simulation (bug BB18). JeanDo parents: 228 diff changeset	1177
85ea09d3b9d8 Nofly should not be reset after dive simulation (bug BB18). JeanDo parents: 228 diff changeset	1178 calculate_noflytime_3:
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1179 ; Desaturation time = zero
229 85ea09d3b9d8 Nofly should not be reset after dive simulation (bug BB18). JeanDo parents: 228 diff changeset	1180 clrf nofly_time+0 ; Clear nofly time
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1181 clrf nofly_time+1 ; Clear nofly time
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1182 bcf nofly_active ; Clear flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1183 return
218 f4b79292e31f BUGFIX NoFly time JeanDo parents: 210 diff changeset	1184
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1185 calculate_noflytime2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1186 movff xA+0,int_I_temp+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1187 movff xA+1,int_I_temp+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1188 GETCUSTOM8 .13 ; nofly_time_ratio
218 f4b79292e31f BUGFIX NoFly time JeanDo parents: 210 diff changeset	1189 movff WREG,char_I_temp
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1190 ostc_debug 'K' ; Sends debug-information to screen if debugmode active
116 14a074e1a375 Split C code, and use direct linking. JeanDo parents: 115 diff changeset	1191 call deco_calc_percentage
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1192 movlb b'00000001' ; select ram bank 1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1193 ostc_debug 'L' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1194 movff int_I_temp+0,xA+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1195 movff int_I_temp+1,xA+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1196 tstfsz xA+0 ; Desat=0?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1197 bra calculate_noflytime_2_final
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1198 tstfsz xA+1 ; Desat=0?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1199 bra calculate_noflytime_2_final
229 85ea09d3b9d8 Nofly should not be reset after dive simulation (bug BB18). JeanDo parents: 228 diff changeset	1200 bra calculate_noflytime_3
85ea09d3b9d8 Nofly should not be reset after dive simulation (bug BB18). JeanDo parents: 228 diff changeset	1201
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1202 calculate_noflytime_2_final:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1203 movff xA+0,nofly_time+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1204 movff xA+1,nofly_time+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1205 bsf nofly_active ; Set flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1206 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1207
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1208 end_dive:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1209 btfss realdive ; dive longer then one minute
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1210 goto end_dive_common ; No, discard everything
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1211
233 2cbaa01dac26 Hunting for NoFly (bug BB13)... not found yet... JeanDo parents: 229 diff changeset	1212 ; In DEBUG compile, keep all simulated dives in logbook, Desat time, nofly, etc...
2cbaa01dac26 Hunting for NoFly (bug BB13)... not found yet... JeanDo parents: 229 diff changeset	1213 ifndef __DEBUG
2cbaa01dac26 Hunting for NoFly (bug BB13)... not found yet... JeanDo parents: 229 diff changeset	1214 btfsc simulatormode_active ; Are we in simulator mode?
2cbaa01dac26 Hunting for NoFly (bug BB13)... not found yet... JeanDo parents: 229 diff changeset	1215 goto end_dive_common ; Yes, discard everything
2cbaa01dac26 Hunting for NoFly (bug BB13)... not found yet... JeanDo parents: 229 diff changeset	1216 endif
33 6e5db85382a2 Speedy simulator! New Deco code test 1 heinrichsweikamp parents: 25 diff changeset	1217
83 3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: 75 diff changeset	1218 ; Dive finished (and longer then one minute or Apnoe timeout occured)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1219
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1220 btfsc FLAG_apnoe_mode ; Calc max. depth (again) for very short apnoe dives
598 f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	1221 call apnoe_calc_maxdepth
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1222
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1223 ; calculate desaturation time
251 f0cba9cff25c Still hunting for bb13... JeanDo parents: 250 diff changeset	1224 movff last_surfpressure_30min+0,int_I_pres_surface+0 ; Pass surface to desat routine !
f0cba9cff25c Still hunting for bb13... JeanDo parents: 250 diff changeset	1225 movff last_surfpressure_30min+1,int_I_pres_surface+1
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1226
251 f0cba9cff25c Still hunting for bb13... JeanDo parents: 250 diff changeset	1227 GETCUSTOM8 d'12' ; Desaturation multiplier %
229 85ea09d3b9d8 Nofly should not be reset after dive simulation (bug BB18). JeanDo parents: 228 diff changeset	1228 movff WREG,char_I_desaturation_multiplier
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1229
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1230 ostc_debug 'G' ; Sends debug-information to screen if debugmode active
251 f0cba9cff25c Still hunting for bb13... JeanDo parents: 250 diff changeset	1231 call deco_calc_desaturation_time ; calculate desaturation time
229 85ea09d3b9d8 Nofly should not be reset after dive simulation (bug BB18). JeanDo parents: 228 diff changeset	1232 movlb b'00000001' ; select ram bank 1
453 38b38b105782 compute desat based on 30min old surface pressure heinrichsweikamp parents: 447 diff changeset	1233 call calc_deko_surfmode2 ; work-around for nofly bug
229 85ea09d3b9d8 Nofly should not be reset after dive simulation (bug BB18). JeanDo parents: 228 diff changeset	1234 rcall calculate_noflytime ; Calc NoFly time
486 c7b663939737 making waitms speed-independent, desat-time fix heinrichsweikamp parents: 458 diff changeset	1235 movff int_O_desaturation_time+0,desaturation_time_buffer+0
c7b663939737 making waitms speed-independent, desat-time fix heinrichsweikamp parents: 458 diff changeset	1236 movff int_O_desaturation_time+1,desaturation_time_buffer+1
229 85ea09d3b9d8 Nofly should not be reset after dive simulation (bug BB18). JeanDo parents: 228 diff changeset	1237 ostc_debug 'H' ; Sends debug-information to screen if debugmode active
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1238 ; store header and ...
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1239 movlw 0xFD ; .... End-of-Profile Bytes
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1240 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1241 movlw 0xFD
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1242 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1243 movlw 0xFE ; This positon will be overwritten for the next profile
229 85ea09d3b9d8 Nofly should not be reset after dive simulation (bug BB18). JeanDo parents: 228 diff changeset	1244 call write_external_eeprom ; and is required to find the newest dive after a firmware reset
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1245
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1246 movff eeprom_header_address+0, eeprom_address+0 ; set header adress
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1247 movff eeprom_header_address+1, eeprom_address+1 ; write header
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1248
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1249 movlw 0xFA ; Header start
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1250 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1251 movlw 0xFA
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1252 call write_external_eeprom
349 ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 344 diff changeset	1253 movlw logbook_profile_version ; Defined in definitions.asm
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1254 call write_external_eeprom
229 85ea09d3b9d8 Nofly should not be reset after dive simulation (bug BB18). JeanDo parents: 228 diff changeset	1255 movf month,W ; Date
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1256 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1257 movf day,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1258 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1259 movf year,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1260 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1261 movf hours,W ; End of dive time
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1262 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1263 movf mins,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1264 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1265
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1266 btfss FLAG_apnoe_mode ; Store apnoe max or normal max (Which is only max from the last descent)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1267 bra end_dive1 ; Store normal depth
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1268
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1269 movff apnoe_max_pressure+0,lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1270 movff apnoe_max_pressure+1,hi
398 ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments heinrichsweikamp parents: 386 diff changeset	1271 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1272 movff lo,apnoe_max_pressure+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1273 movff hi,apnoe_max_pressure+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1274
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1275 movf apnoe_max_pressure+0,W ; Max. depth
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1276 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1277 movf apnoe_max_pressure+1,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1278 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1279 bra end_dive2 ; skip
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1280
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1281 end_dive1:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1282 movff max_pressure+0,lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1283 movff max_pressure+1,hi
398 ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments heinrichsweikamp parents: 386 diff changeset	1284 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1285 movff lo,max_pressure+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1286 movff hi,max_pressure+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1287
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1288 movf max_pressure+0,W ; Max. depth
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1289 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1290 movf max_pressure+1,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1291 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1292
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1293 end_dive2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1294 movf divemins+0,W ; divetime minutes
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1295 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1296 movf divemins+1,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1297 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1298 movf divesecs,W ; divetime seconds
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1299 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1300 movf mintemp+0,W ; minimum temperature
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1301 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1302 movf mintemp+1,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1303 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1304 movf last_surfpressure_30min+0,W ; airpressure before dive
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1305 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1306 movf last_surfpressure_30min+1,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1307 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1308 movff int_O_desaturation_time+0,lo ;
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1309 movff int_O_desaturation_time+1,hi
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1310 movf lo,W ; desaturation time in minutes
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1311 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1312 movf hi,W ;
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1313 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1314
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1315 ; Gases....
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1316 read_int_eeprom d'6' ; Read byte (stored in EEDATA)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1317 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1318 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1319 read_int_eeprom d'7' ; Read byte (stored in EEDATA)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1320 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1321 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1322
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1323 read_int_eeprom d'10' ; Read byte (stored in EEDATA)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1324 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1325 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1326 read_int_eeprom d'11' ; Read byte (stored in EEDATA)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1327 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1328 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1329
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1330 read_int_eeprom d'14' ; Read byte (stored in EEDATA)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1331 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1332 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1333 read_int_eeprom d'15' ; Read byte (stored in EEDATA)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1334 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1335 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1336
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1337 read_int_eeprom d'18' ; Read byte (stored in EEDATA)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1338 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1339 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1340 read_int_eeprom d'19' ; Read byte (stored in EEDATA)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1341 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1342 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1343
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1344 read_int_eeprom d'22' ; Read byte (stored in EEDATA)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1345 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1346 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1347 read_int_eeprom d'23' ; Read byte (stored in EEDATA)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1348 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1349 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1350
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1351 read_int_eeprom d'24' ; % O2 Gas6
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1352 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1353 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1354 read_int_eeprom d'25' ; % He Gas6
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1355 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1356 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1357 read_int_eeprom d'33' ; start gas
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1358 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1359 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1360
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1361 movlw softwareversion_x ; Firmware version
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1362 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1363 movlw softwareversion_y
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1364 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1365 movf batt_voltage+0,W ; Battery voltage
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1366 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1367 movf batt_voltage+1,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1368 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1369
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1370 GETCUSTOM8 d'20' ; sampling rate in WREG
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1371 btfsc FLAG_apnoe_mode ; Apnoe mode?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1372 movlw d'1' ; Apnoe sampling rate
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1373 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1374
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1375 movlw d'2' ; information size temperature
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1376 movwf temp1 ; copy to bits 0-3
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1377 swapf temp1,F ; swap nibbels 0-3 with 4-7
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1378 GETCUSTOM8 d'21' ; Divisor temperature
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1379 addwf temp1,W ; copy to bits 0-3, result in WREG
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1380 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1381
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1382 movlw d'2' ; information size deco
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1383 movwf temp1 ; copy to bits 0-3
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1384 swapf temp1,F ; swap nibbels 0-3 with 4-7
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1385 GETCUSTOM8 d'22' ; Divisor deco
458 d300e6ad6f66 Store divisor_deco=0 for apnoe dives heinrichsweikamp parents: 457 diff changeset	1386 btfsc FLAG_apnoe_mode ; in Apnoe mode?
d300e6ad6f66 Store divisor_deco=0 for apnoe dives heinrichsweikamp parents: 457 diff changeset	1387 movlw d'0' ; Yes, set to zero
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1388 addwf temp1,W ; copy to bits 0-3, result in WREG
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1389 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1390
376 ed26990716fe first gas does not reset change depth, display fix with multigas dives in logbook heinrichsweikamp parents: 375 diff changeset	1391 movlw d'1' ; information size GF
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1392 movwf temp1 ; copy to bits 0-3
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1393 swapf temp1,F ; swap nibbels 0-3 with 4-7
376 ed26990716fe first gas does not reset change depth, display fix with multigas dives in logbook heinrichsweikamp parents: 375 diff changeset	1394 GETCUSTOM8 d'23' ; Divisor GF
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1395 addwf temp1,W ; copy to bits 0-3, result in WREG
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1396 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1397
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1398 movlw d'3' ; information size pp02
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1399 movwf temp1 ; copy to bits 0-3
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1400 swapf temp1,F ; swap nibbels 0-3 with 4-7
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1401 GETCUSTOM8 d'24' ; Divisor pp02
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1402 addwf temp1,W ; copy to bits 0-3, result in WREG
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1403 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1404
532 f5a06b9e2fef cleanup debug stuff heinrichsweikamp parents: 522 diff changeset	1405 movlw d'0' ; information size Decodebug
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1406 movwf temp1 ; copy to bits 0-3
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1407 swapf temp1,F ; swap nibbels 0-3 with 4-7
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1408 GETCUSTOM8 d'25' ; Divisor Decodebug
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1409 addwf temp1,W ; copy to bits 0-3, result in WREG
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1410 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1411
367 584741726190 CNS Profile added Heinrichsweikamp parents: 361 diff changeset	1412 movlw d'1' ; information size cns
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1413 movwf temp1 ; copy to bits 0-3
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1414 swapf temp1,F ; swap nibbels 0-3 with 4-7
367 584741726190 CNS Profile added Heinrichsweikamp parents: 361 diff changeset	1415 GETCUSTOM8 d'26' ; Divisor cns
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1416 addwf temp1,W ; copy to bits 0-3, result in WREG
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1417 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1418
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1419 read_int_eeprom d'26' ; Read Salinity from EEPROM
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1420 movf EEDATA,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1421 call write_external_eeprom ; Store Salinity to Dive
253 3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 251 diff changeset	1422
3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 251 diff changeset	1423 movff char_O_CNS_fraction,WREG ; copy into bank1
3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 251 diff changeset	1424 call write_external_eeprom ; Stores CNS%
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1425
351 5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 349 diff changeset	1426 movff avr_rel_pressure_total+0,WREG ; Average Depth
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 349 diff changeset	1427 call write_external_eeprom
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 349 diff changeset	1428 movff avr_rel_pressure_total+1,WREG ; Average Depth
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 349 diff changeset	1429 call write_external_eeprom
357 562f1bc79f3c Bugfix: Wake-up into divemode with 1.91alpha Heinrichsweikamp parents: 352 diff changeset	1430
562f1bc79f3c Bugfix: Wake-up into divemode with 1.91alpha Heinrichsweikamp parents: 352 diff changeset	1431 movff total_divetime_seconds+0,WREG ; Total dive time (Regardless of CF01)
562f1bc79f3c Bugfix: Wake-up into divemode with 1.91alpha Heinrichsweikamp parents: 352 diff changeset	1432 call write_external_eeprom
562f1bc79f3c Bugfix: Wake-up into divemode with 1.91alpha Heinrichsweikamp parents: 352 diff changeset	1433 movff total_divetime_seconds+1,WREG ; Total dive time (Regardless of CF01)
562f1bc79f3c Bugfix: Wake-up into divemode with 1.91alpha Heinrichsweikamp parents: 352 diff changeset	1434 call write_external_eeprom
562f1bc79f3c Bugfix: Wake-up into divemode with 1.91alpha Heinrichsweikamp parents: 352 diff changeset	1435
375 84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1436 movlw d'32' ; GF_lo
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1437 movff char_I_deco_model,lo
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1438 decfsz lo,F ; jump over next line if char_I_deco_model == 1
375 84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1439 movlw d'11' ; Saturation Multiplier
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1440 call getcustom8_1 ; Get Custom function #WREG
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1441 call write_external_eeprom ; write WREG into external memory
375 84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1442
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1443 movlw d'33' ; GF_hi
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1444 movff char_I_deco_model,lo
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1445 decfsz lo,F ; jump over next line if char_I_deco_model == 1
375 84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1446 movlw d'12' ; Desaturation Multiplier
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1447 call getcustom8_1 ; Get Custom function #WREG
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1448 call write_external_eeprom ; write WREG into external memory
375 84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1449
373 8781d1cf96d8 added GF_hi, GF_lo and deco model to dive header Heinrichsweikamp parents: 367 diff changeset	1450 read_int_eeprom d'34' ; Read deco modell
8781d1cf96d8 added GF_hi, GF_lo and deco model to dive header Heinrichsweikamp parents: 367 diff changeset	1451 movf EEDATA,W
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1452 call write_external_eeprom ; write WREG into external memory
373 8781d1cf96d8 added GF_hi, GF_lo and deco model to dive header Heinrichsweikamp parents: 367 diff changeset	1453
351 5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 349 diff changeset	1454 clrf WREG
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 349 diff changeset	1455 call write_external_eeprom ; Spare3
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 349 diff changeset	1456 clrf WREG
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 349 diff changeset	1457 call write_external_eeprom ; Spare2
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 349 diff changeset	1458 clrf WREG
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 349 diff changeset	1459 call write_external_eeprom ; Spare1
349 ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 344 diff changeset	1460
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1461 movlw 0xFB ; Header stop
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1462 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1463 movlw 0xFB
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1464 call write_external_eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1465
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1466 ; Increase total dive counter
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1467 read_int_eeprom d'2' ; Read byte (stored in EEDATA)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1468 movff EEDATA,temp1 ; Low byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1469 read_int_eeprom d'3' ; Read byte (stored in EEDATA)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1470 movff EEDATA,temp2 ; high byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1471 bcf STATUS,C
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1472 movlw d'1'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1473 addwf temp1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1474 movlw d'0'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1475 addwfc temp2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1476 movff temp1,EEDATA
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1477 write_int_eeprom d'2' ; write byte stored in EEDATA
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1478 movff temp2,EEDATA
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1479 write_int_eeprom d'3' ; write byte stored in EEDATA
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1480
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1481 GETCUSTOM15 .28 ; Logbook Offset -> lo, hi
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1482 tstfsz lo ; lo=0?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1483 bra change_logbook_offset1 ; No, adjust offset
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1484 tstfsz hi ; hi=0?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1485 bra change_logbook_offset1 ; No, adjust offset
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1486 bra change_logbook_offset2 ; lo=0 and hi=0 -> skip Offset routine
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1487 change_logbook_offset1:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1488 movlw d'1'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1489 addwf lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1490 movlw d'0'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1491 addwfc hi
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1492 movlw d'112' ; CF28 *4 Bytes...
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1493 addlw 0x82
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1494 movwf EEADR
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1495 movff lo,EEDATA
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1496 call write_eeprom ; Lowbyte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1497 movlw d'112' ; CF28 *4 Bytes...
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1498 addlw 0x83
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1499 movwf EEADR
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1500 movff hi,EEDATA
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1501 call write_eeprom ; Highbyte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1502
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1503 change_logbook_offset2:
25 99512945c7a1 1.61 beta rc2 heinrichsweikamp parents: 21 diff changeset	1504 bcf LED_blue
129 06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1505 clrf surface_interval+0
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1506 clrf surface_interval+1 ; Clear surface interval timer
33 6e5db85382a2 Speedy simulator! New Deco code test 1 heinrichsweikamp parents: 25 diff changeset	1507
6e5db85382a2 Speedy simulator! New Deco code test 1 heinrichsweikamp parents: 25 diff changeset	1508 end_dive_common:
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1509 bcf simulatormode_active ; if we were in simulator mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1510
407 47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1511 ; In DEBUG compile, keep all simulated dives in logbook, Desat time, nofly, etc...
47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1512 ifndef __DEBUG
47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1513 btfsc restore_deco_data ; Restore decodata?
47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1514 call simulator_restore_tissue_data ; Yes!
47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1515 endif
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1516
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1517 goto surfloop ; and return to surfaceloop
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1518
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1519 timeout_divemode:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1520 btfss realdive ; Dive longer then one minute
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1521 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1522
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1523 btfsc FLAG_apnoe_mode ; In Apnoe mode?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1524 bra timeout_divemode2 ; Yes, use CF30 [min] for timeout
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1525
233 2cbaa01dac26 Hunting for NoFly (bug BB13)... not found yet... JeanDo parents: 229 diff changeset	1526 ifndef __DEBUG
2cbaa01dac26 Hunting for NoFly (bug BB13)... not found yet... JeanDo parents: 229 diff changeset	1527 btfsc simulatormode_active ; In Simulator mode?
2cbaa01dac26 Hunting for NoFly (bug BB13)... not found yet... JeanDo parents: 229 diff changeset	1528 bra timeout_divemode3 ; Yes, use fixed 5 seconds timeout
2cbaa01dac26 Hunting for NoFly (bug BB13)... not found yet... JeanDo parents: 229 diff changeset	1529 endif
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1530
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1531 bcf divemode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1532 incf timeout_counter,F
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: 351 diff changeset	1533 movlw d'0'
544a96faa9f3 New "Quit sim" option in simulated dive mode, CF02 now allows more then 240seconds, Bugfix with runtime=1min in runtime simulator Heinrichsweikamp parents: 351 diff changeset	1534 addwfc timeout_counter2,F ; timeout is 15bits
572 80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1535
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1536 GETCUSTOM15 d'2' ; diveloop_timeout -> lo:hi
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1537
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1538 btfss dekostop_active ; Is a deco stop displayed?
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1539 bra timeout_divemode1 ; No, use normal CF02 timeout
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1540
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1541 ; Yes, use 10minutes counter
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1542 movlw LOW .600
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1543 movwf lo
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1544 movlw HIGH .600
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1545 movwf hi
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1546
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1547 timeout_divemode1:
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: 351 diff changeset	1548 movff lo,sub_a+0
544a96faa9f3 New "Quit sim" option in simulated dive mode, CF02 now allows more then 240seconds, Bugfix with runtime=1min in runtime simulator Heinrichsweikamp parents: 351 diff changeset	1549 movff hi,sub_a+1
544a96faa9f3 New "Quit sim" option in simulated dive mode, CF02 now allows more then 240seconds, Bugfix with runtime=1min in runtime simulator Heinrichsweikamp parents: 351 diff changeset	1550 movff timeout_counter, sub_b+0
544a96faa9f3 New "Quit sim" option in simulated dive mode, CF02 now allows more then 240seconds, Bugfix with runtime=1min in runtime simulator Heinrichsweikamp parents: 351 diff changeset	1551 movff timeout_counter2, sub_b+1
544a96faa9f3 New "Quit sim" option in simulated dive mode, CF02 now allows more then 240seconds, Bugfix with runtime=1min in runtime simulator Heinrichsweikamp parents: 351 diff changeset	1552 call sub16 ; sub_c = sub_a - sub_b
544a96faa9f3 New "Quit sim" option in simulated dive mode, CF02 now allows more then 240seconds, Bugfix with runtime=1min in runtime simulator Heinrichsweikamp parents: 351 diff changeset	1553 btfss neg_flag ; Result negative?
544a96faa9f3 New "Quit sim" option in simulated dive mode, CF02 now allows more then 240seconds, Bugfix with runtime=1min in runtime simulator Heinrichsweikamp parents: 351 diff changeset	1554 bsf divemode ; No, set flag
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1555 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1556
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1557 timeout_divemode2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1558 incf timeout_counter,F ; seconds...
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1559 movlw d'60'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1560 cpfseq timeout_counter ; timeout_counter=60?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1561 return ; No.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1562
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1563 clrf timeout_counter
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1564 bcf divemode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1565 incf apnoe_timeout_counter,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1566 GETCUSTOM8 d'30' ; apnoe timeout [min]
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1567 cpfseq apnoe_timeout_counter
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1568 bsf divemode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1569 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1570
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1571 timeout_divemode3:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1572 bcf divemode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1573 incf timeout_counter,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1574 movlw d'5' ; Fixed timeout of 5 seconds
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1575 cpfsgt timeout_counter
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1576 bsf divemode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1577 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1578
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1579 update_divemode1: ; update any second
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1580 call set_dive_modes ; tests if depth>threshold
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1581
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1582 btfsc divemode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1583 call set_max_depth ; update max. depth if required
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1584
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1585 btfsc divemode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1586 call set_min_temp ; store min. temp if required
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1587
342 06299199dfb9 Fix bad max depth value (fix sub16 to avoid trashing sub_b). JeanDo parents: 341 diff changeset	1588 bcf temp_changed ; Display temperature?
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1589 SAFE_2BYTE_COPY temperature,lo
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1590 movf lo,W
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1591 cpfseq last_temperature+0
342 06299199dfb9 Fix bad max depth value (fix sub16 to avoid trashing sub_b). JeanDo parents: 341 diff changeset	1592 bsf temp_changed ; Yes
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1593 movf hi,W
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1594 cpfseq last_temperature+1
342 06299199dfb9 Fix bad max depth value (fix sub16 to avoid trashing sub_b). JeanDo parents: 341 diff changeset	1595 bsf temp_changed ; Yes
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1596 btfsc temp_changed
342 06299199dfb9 Fix bad max depth value (fix sub16 to avoid trashing sub_b). JeanDo parents: 341 diff changeset	1597 call PLED_temp_divemode ; Displays temperature
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1598
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1599 bcf pres_changed ; Display new depth?
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1600 SAFE_2BYTE_COPY amb_pressure, lo
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1601 movf lo,W
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1602 cpfseq last_pressure+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1603 bsf pres_changed ; Yes
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1604 movf hi,W
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1605 cpfseq last_pressure+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1606 bsf pres_changed ; Yes
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1607
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1608 btfsc simulatormode_active ; always update depth when in simulator mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1609 bsf pres_changed
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1610
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1611 btfsc pres_changed
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1612 call PLED_depth ; Displays new depth
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1613 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1614
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1615 update_divemode60: ; update any minute
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1616 call get_battery_voltage ; gets battery voltage
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1617 call set_powersafe ; red LED blinking if battery is low
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1618 call PLED_max_pressure ; No, use normal max. depth
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1619 call check_temp_extrema ; check for new temperature extremas
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: 83 diff changeset	1620 call customview_minute ; Do every-minute tasks for the custom view area
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1621 bcf oneminupdate
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1622 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1623
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1624 set_max_depth:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1625 movff max_pressure+0,sub_a+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1626 movff max_pressure+1,sub_a+1
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1627 SAFE_2BYTE_COPY rel_pressure, sub_b
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1628 call sub16 ; sub_c = sub_a - sub_b
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1629 ; max_pressure<rel_pressure -> neg_flag=1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1630 ; rel_pressure<=max_pressure -> neg_flag=0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1631 btfss neg_flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1632 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1633 ;max_pressure<rel_pressure
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1634 movff sub_b+0,max_pressure+0
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1635 movff sub_b+1,max_pressure+1
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1636 call PLED_max_pressure ; No, use normal max. depth
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1637 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1638
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1639 set_min_temp:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1640 movff mintemp+0,sub_a+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1641 movff mintemp+1,sub_a+1
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1642 SAFE_2BYTE_COPY temperature,sub_b
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1643 call sub16 ; sub_c = sub_a - sub_b
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1644 ; mintemp<T -> neg_flag=1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1645 ; T<=mintemp -> neg_flag=0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1646 btfsc neg_flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1647 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1648 ;mintemp>=T
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1649 movff sub_b+0,mintemp+0
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1650 movff sub_b+1,mintemp+1
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1651 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1652
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1653 set_dive_modes:
239 3ed240d60341 High altitude (Plane/Fly) mode added heinrichsweikamp parents: 237 diff changeset	1654 btfsc high_altitude_mode ; In high altitude (Fly) mode?
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1655 bra set_dive_modes3 ; Yes!
239 3ed240d60341 High altitude (Plane/Fly) mode added heinrichsweikamp parents: 237 diff changeset	1656
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1657 set_dive_modes0:
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1658 GETCUSTOM8 .0 ; loads dive_threshold in WREG
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1659 movwf sub_a+0 ; dive_treshold is in cm
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1660 clrf sub_a+1
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1661
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1662 set_dive_modes1:
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1663 SAFE_2BYTE_COPY rel_pressure, sub_b
239 3ed240d60341 High altitude (Plane/Fly) mode added heinrichsweikamp parents: 237 diff changeset	1664 call sub16 ; sub_c = sub_a - sub_b
342 06299199dfb9 Fix bad max depth value (fix sub16 to avoid trashing sub_b). JeanDo parents: 341 diff changeset	1665
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1666 btfss neg_flag
239 3ed240d60341 High altitude (Plane/Fly) mode added heinrichsweikamp parents: 237 diff changeset	1667 bra set_dive_modes2 ; too shallow (rel_pressure<dive_threshold)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1668
239 3ed240d60341 High altitude (Plane/Fly) mode added heinrichsweikamp parents: 237 diff changeset	1669 btfsc realdive ; Dive longer than one minute?
572 80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1670 clrf timeout_counter ; Yes, reset timout counter (Low Byte)
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1671 btfsc realdive ; Dive longer than one minute?
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1672 clrf timeout_counter2 ; Yes, reset timout counter (High Byte)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1673
408 3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing heinrichsweikamp parents: 407 diff changeset	1674 set_dive_modes_common:
239 3ed240d60341 High altitude (Plane/Fly) mode added heinrichsweikamp parents: 237 diff changeset	1675 bsf divemode ; (Re-)Set divemode flag
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1676 bsf divemode2 ; displayed divetime is running
408 3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing heinrichsweikamp parents: 407 diff changeset	1677 btfsc timeout_display ; Was the timeout displayed?
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing heinrichsweikamp parents: 407 diff changeset	1678 call PLED_divemode_timeout_clear ; Yes, Clear (once)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1679 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1680
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1681 set_dive_modes2:
407 47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1682 bcf divemode2 ; Stop time
47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1683 btfss realdive ; dive longer then one minute?
47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1684 bcf divemode ; no -> this was no real dive
408 3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing heinrichsweikamp parents: 407 diff changeset	1685
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing heinrichsweikamp parents: 407 diff changeset	1686 btfss divemode ; Are we still diving?
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing heinrichsweikamp parents: 407 diff changeset	1687 return ; No, return
572 80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1688 ; Yes, show divemode timeout
408 3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing heinrichsweikamp parents: 407 diff changeset	1689
572 80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1690 btfsc menubit ; Divemode menu active?
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1691 return ; Yes, return
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1692 btfsc FLAG_apnoe_mode ; In Apnoe mode?
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1693 return ; Yes, return
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1694 btfsc gauge_mode ; In Gauge mode?
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1695 return ; Yes, return
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1696
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1697
408 3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing heinrichsweikamp parents: 407 diff changeset	1698 btfss dekostop_active ; Is a deco stop displayed?
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing heinrichsweikamp parents: 407 diff changeset	1699 call PLED_divemode_timeout ; No, show the divemode timeout here...
572 80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1700 btfsc dekostop_active ; Is a deco stop displayed?
80a1d2d5a9ee timeout display when deco stops are violated heinrichsweikamp parents: 550 diff changeset	1701 call PLED_divemode_timeout2 ; Yes, show red warning divemode counter
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1702 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1703
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1704 set_dive_modes3: ; High-altitude mode
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1705 btfsc realdive ; dive longer then one minute?
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1706 bra set_dive_modes0 ; Yes -> this is a real dive -> Use CF00 threshold for ascend
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1707
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1708 movlw HIGH d'300' ; hard-wired 300cm threshold
239 3ed240d60341 High altitude (Plane/Fly) mode added heinrichsweikamp parents: 237 diff changeset	1709 movwf sub_a+1
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1710 movlw LOW d'300' ; hard-wired 300cm threshold
239 3ed240d60341 High altitude (Plane/Fly) mode added heinrichsweikamp parents: 237 diff changeset	1711 movwf sub_a+0
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1712 bra set_dive_modes1
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 413 diff changeset	1713
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1714 set_powersafe:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1715 btfsc low_battery_state ; battery warning alread active?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1716 bra set_powersafe2 ; Yes, but is it still required?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1717 ; battery voltage in mV (value*256+Lowbyte=actual treshold)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1718 movlw d'12' ; 3,328V
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1719 cpfsgt batt_voltage+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1720 bra set_powersafe1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1721 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1722
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1723 set_powersafe1:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1724 movlw d'7' ; Type of Alarm (Battery Low)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1725 movwf AlarmType ; Copy to Alarm Register
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1726 bsf event_occured ; Set Event Flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1727 bsf low_battery_state ; set flag for battery warning
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1728 return ; return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1729
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1730 set_powersafe2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1731 movlw d'13' ; 3,584V
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1732 cpfsgt batt_voltage+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1733 bra set_powersafe1 ; Still to low
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1734 bcf low_battery_state ; clear flag for battery warning mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1735 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1736
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1737 calc_average_depth:
111 ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 106 diff changeset	1738 btfsc reset_average_depth ; Reset the Avewrage depth?
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 106 diff changeset	1739 rcall reset_average1 ; Reset the resettable average depth
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 106 diff changeset	1740
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1741 ; 1. Add new 2xdepth to the Sum of depths registers
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1742 SAFE_2BYTE_COPY rel_pressure, b0_lo ; Buffer...
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1743
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1744 movf b0_lo,w
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1745 addwf average_depth_hold+0,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1746 movf b0_hi,w
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1747 addwfc average_depth_hold+1,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1748 movlw d'0'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1749 addwfc average_depth_hold+2,F
398 ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments heinrichsweikamp parents: 386 diff changeset	1750 addwfc average_depth_hold+3,F ; Will work up to 9999mbar6060*24=863913600mbar
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1751
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1752 movf b0_lo,w
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1753 addwf average_depth_hold+0,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1754 movf b0_hi,w
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1755 addwfc average_depth_hold+1,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1756 movlw d'0'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1757 addwfc average_depth_hold+2,F
398 ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments heinrichsweikamp parents: 386 diff changeset	1758 addwfc average_depth_hold+3,F ; Will work up to 9999mbar6060*24=863913600mbar
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1759
129 06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1760 ; Do the same for the _total registers (Non-Resettable)
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1761 movf b0_lo,w
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1762 addwf average_depth_hold_total+0,F
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1763 movf b0_hi,w
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1764 addwfc average_depth_hold_total+1,F
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1765 movlw d'0'
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1766 addwfc average_depth_hold_total+2,F
398 ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments heinrichsweikamp parents: 386 diff changeset	1767 addwfc average_depth_hold_total+3,F ; Will work up to 9999mbar6060*24=863913600mbar
129 06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1768
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1769 movf b0_lo,w
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1770 addwf average_depth_hold_total+0,F
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1771 movf b0_hi,w
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1772 addwfc average_depth_hold_total+1,F
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1773 movlw d'0'
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1774 addwfc average_depth_hold_total+2,F
398 ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments heinrichsweikamp parents: 386 diff changeset	1775 addwfc average_depth_hold_total+3,F ; Will work up to 9999mbar6060*24=863913600mbar
129 06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1776
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1777 ; 2. Compute Average Depth on base of average_divesecs:2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1778 movff average_divesecs+0,xB+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1779 movff average_divesecs+1,xB+1 ; Copy
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1780 movff average_depth_hold+0,xC+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1781 movff average_depth_hold+1,xC+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1782 movff average_depth_hold+2,xC+2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1783 movff average_depth_hold+3,xC+3
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1784
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1785 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1786 movff xC+0,avr_rel_pressure+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1787 movff xC+1,avr_rel_pressure+1
129 06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1788
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1789 ; Compute Total Average Depth on base of divemins:2 and divesecs
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1790 movff divemins+0,xA+0
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1791 movff divemins+1,xA+1
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1792 movlw d'60'
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1793 movwf xB+0
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1794 clrf xB+1
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1795 call mult16x16 ; xC:4=xA:2*xB:2
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1796 movf divesecs,W
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1797 addwf xC+0,F
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1798 movlw d'0'
228 6d4e29d80ff3 1.83beta release, 1.84beta start heinrichsweikamp parents: 224 diff changeset	1799 addwfc xC+1,F ; xC:2 holds total dive seconds
129 06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1800 movlw d'3' ; 2+1
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1801 btfss divesecs,0 ; divesecs even?
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1802 movlw d'2' ; Yes, do not add +1
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1803 addwf xC+0,F
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1804 movlw d'0'
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1805 addwfc xC+1,F
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1806 ; Ignore xC+2 and xC+3. Total Average will only work up to divetime=1092:16
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1807 movff xC+0,xB+0
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1808 movff xC+1,xB+1 ; Copy
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1809 movff average_depth_hold_total+0,xC+0
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1810 movff average_depth_hold_total+1,xC+1
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1811 movff average_depth_hold_total+2,xC+2
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1812 movff average_depth_hold_total+3,xC+3
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1813
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1814 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1815 movff xC+0,avr_rel_pressure_total+0
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1816 movff xC+1,avr_rel_pressure_total+1
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1817
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1818 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1819
111 ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 106 diff changeset	1820 reset_average1:
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 106 diff changeset	1821 clrf average_depth_hold+0
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 106 diff changeset	1822 clrf average_depth_hold+1
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 106 diff changeset	1823 clrf average_depth_hold+2
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 106 diff changeset	1824 clrf average_depth_hold+3 ; Clear average depth register
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 106 diff changeset	1825 movlw d'2'
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 106 diff changeset	1826 movwf average_divesecs+0
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 106 diff changeset	1827 clrf average_divesecs+1
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 106 diff changeset	1828 bcf reset_average_depth ; Clear flag
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 106 diff changeset	1829 return
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1830
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1831 ;=============================================================================
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1832 ; Setup everything to enter divemode.
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1833 ;
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1834 diveloop_boot:
49 cd5b650920f6 1.70... heinrichsweikamp parents: 47 diff changeset	1835 ostc_debug 'Q' ; Sends debug-information to screen if debugmode active
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1836 clrf max_pressure+0 ; clear some variables
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1837 clrf max_pressure+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1838 clrf avr_rel_pressure+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1839 clrf avr_rel_pressure+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1840
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1841 movlw d'1'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1842 movwf apnoe_max_pressure+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1843 clrf apnoe_max_pressure+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1844 clrf apnoe_surface_mins
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1845 clrf apnoe_surface_secs
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1846 clrf apnoe_mins
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1847 clrf apnoe_secs
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1848 clrf divemins+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1849 clrf divemins+1
357 562f1bc79f3c Bugfix: Wake-up into divemode with 1.91alpha Heinrichsweikamp parents: 352 diff changeset	1850 clrf total_divetime_seconds+0
562f1bc79f3c Bugfix: Wake-up into divemode with 1.91alpha Heinrichsweikamp parents: 352 diff changeset	1851 clrf total_divetime_seconds+1
407 47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1852 bsf divemode2 ; displayed divetime is running (Divetime starts HERE)
47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1853
47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1854 clrf EEADRH ; Make sure to select eeprom bank 0
47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1855 call PLED_brightness_low
47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1856 read_int_eeprom d'90' ; Brightness offset? (Dim>0, Normal = 0)
47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1857 movlw d'0'
47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1858 cpfsgt EEDATA
47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1859 call PLED_brightness_full
47b1135cbff3 BUGFIX: SetPoint recording for logbook heinrichsweikamp parents: 406 diff changeset	1860
408 3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing heinrichsweikamp parents: 407 diff changeset	1861 bcf timeout_display
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: 83 diff changeset	1862 clrf menupos3
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: 83 diff changeset	1863 bcf menu3_active
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1864 clrf divesecs
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1865 clrf samplesecs
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1866 clrf apnoe_timeout_counter ; timeout in minutes
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: 351 diff changeset	1867 clrf timeout_counter ; takes care of the timeout (Low byte)
544a96faa9f3 New "Quit sim" option in simulated dive mode, CF02 now allows more then 240seconds, Bugfix with runtime=1min in runtime simulator Heinrichsweikamp parents: 351 diff changeset	1868 clrf timeout_counter2 ; takes care of the timeout (High byte)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1869 clrf AlarmType ; Clear all alarms
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1870 bcf event_occured ; clear flag
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 263 diff changeset	1871 bcf setpoint_changed ; clear flag
111 ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 106 diff changeset	1872 rcall reset_average1 ; Reset the resettable average depth
129 06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1873 clrf average_depth_hold_total+0
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1874 clrf average_depth_hold_total+1
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1875 clrf average_depth_hold_total+2
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 124 diff changeset	1876 clrf average_depth_hold_total+3 ; Clear Non-Resettable Average
517 a73a452ca155 Backed out changeset: b498245da3f1 heinrichsweikamp parents: 516 diff changeset	1877 bcf depth_greater_100m ; clear flag
577 e3ffc6d62a63 minor clean heinrichsweikamp parents: 572 diff changeset	1878 ; setf last_diluent ; to be displayed after first calculation (range: 0 to 100 [%])
3 3cf8af30b36e v1.51 beta heinrichsweikamp parents: 2 diff changeset	1879 bcf dekostop_active
3cf8af30b36e v1.51 beta heinrichsweikamp parents: 2 diff changeset	1880 bcf is_bailout ;=1: CC mode, but bailout active!
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	1881 bcf better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	1882 bcf tts_extra_time ;=1: Compute TTS if extra time spent at current depth
598 f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	1883 bcf show_safety_stop ;=1: Show the safety stop
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives heinrichsweikamp parents: 595 diff changeset	1884 clrf safety_stop_countdown ; Clear count-down
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 311 diff changeset	1885
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1886 call get_free_EEPROM_location ; get last position in external EEPROM, may be up to 2 secs!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1887
319 4159c31abe31 BUGFIX surface pressure for deco in altitude. JeanDo parents: 313 diff changeset	1888 btfsc simulatormode_active
237 55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1889 bra diveloop_boot_1
55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1890 ; Normal mode = Surface pressure is the pressure 30mn before dive.
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1891 movff last_surfpressure_30min+0,int_I_pres_surface+0 ; LOW copy surfacepressure to deco routine
237 55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1892 movff last_surfpressure_30min+1,int_I_pres_surface+1 ; HIGH copy surfacepressure to deco routine
55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1893 bra diveloop_boot_2
55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1894
55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1895 diveloop_boot_1:
55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1896 ; Simulator mode: Surface pressure is 1bar.
55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1897 movlw LOW .1000
55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1898 movff WREG,int_I_pres_surface+0 ; LOW copy surfacepressure to deco routine
55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1899 movlw HIGH .1000
55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1900 movff WREG,int_I_pres_surface+1 ; HIGH copy surfacepressure to deco routine
55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1901
55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1902 diveloop_boot_2:
341 2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it. JeanDo parents: 323 diff changeset	1903 SAFE_2BYTE_COPY temperature,mintemp ; Reset Min-Temp registers
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1904
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1905 ; Init profile recording parameters
237 55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1906 GETCUSTOM8 d'20' ; sample rate
55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1907 movwf samplesecs_value ; to avoid EEPROM access in the ISR
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1908 GETCUSTOM8 d'21'
237 55178aa1f972 Hunting for NoFly bug... JeanDo parents: 233 diff changeset	1909 movwf divisor_temperature ; load divisors for profile storage
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1910 GETCUSTOM8 d'22'
457 993e681e89cf no decodata in logbook for apnea dives heinrichsweikamp parents: 453 diff changeset	1911 btfsc FLAG_apnoe_mode ; in Apnoe mode?
993e681e89cf no decodata in logbook for apnea dives heinrichsweikamp parents: 453 diff changeset	1912 movlw d'0' ; Yes, set to zero
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1913 movwf divisor_deco
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1914 GETCUSTOM8 d'23'
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1915 movwf divisor_gf
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1916 GETCUSTOM8 d'24'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1917 movwf divisor_ppo2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1918 GETCUSTOM8 d'25'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1919 movwf divisor_deco_debug
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1920 GETCUSTOM8 d'26'
367 584741726190 CNS Profile added Heinrichsweikamp parents: 361 diff changeset	1921 movwf divisor_cns
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1922
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1923 btfss FLAG_apnoe_mode ; In Apnoe mode?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1924 bra divemode1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1925 ; Overwrite some parameters in Apnoe mode....
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1926 movlw d'1'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1927 movwf samplesecs_value ; to avoid EEPROM access in the ISR
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1928
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1929 divemode1:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1930 read_int_eeprom d'36' ; Read mix 1 ppO2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1931 btfsc FLAG_const_ppO2_mode
292 21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	1932 movff EEDATA,char_I_const_ppO2 ; Set ppO2 setpoint if in ppO2 mode
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	1933 movff EEDATA,ppO2_setpoint_store ; Store also in this byte...
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1934
21 73014f788032 1.60 stable rc1 heinrichsweikamp parents: 16 diff changeset	1935 bcf LED_blue
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1936 bcf low_battery_state ; clear flag for battery warning mode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1937 bcf header_stored
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1938 bcf premenu
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1939 bcf realdive
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1940 bsf update_divetime ; set flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1941 btfss simulatormode_active ; do not disable in simulator mode!
49 cd5b650920f6 1.70... heinrichsweikamp parents: 47 diff changeset	1942 call disable_rs232 ; Disable RS232
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1943
292 21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	1944 ; Read Start Gas and configure char_I_He_ratio, char_I_O2_ratio and char_I_N2_ratio
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	1945 set_first_gas:
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1946 read_int_eeprom d'33' ; Read byte (stored in EEDATA)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1947 movff EEDATA,active_gas ; Read start gas (1-5)
353 b5b030c1ae7e Avoid spurious switch-depth stops with 3 or more gas. JeanDo parents: 349 diff changeset	1948 movff EEDATA,char_I_current_gas
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1949
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1950 decf active_gas,W ; Gas 0-4
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1951 mullw d'4'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1952 movf PRODL,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1953 addlw d'7' ; = address for He ratio
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1954 movwf EEADR
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1955 call read_eeprom ; Read He ratio
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1956 movff EEDATA,char_I_He_ratio ; And copy into hold register
292 21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	1957
21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	1958 decf EEADR,F
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1959 call read_eeprom ; Read O2 ratio
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1960 movff EEDATA, char_I_O2_ratio ; O2 ratio
292 21a0f7393468 New CNS calculation in decoplan. JeanDo parents: 291 diff changeset	1961
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1962 movff char_I_He_ratio, wait_temp ; copy into bank1 register
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1963 bsf STATUS,C ; Borrow bit
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1964 movlw d'100' ; 100%
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1965 subfwb wait_temp,W ; minus He
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1966 bsf STATUS,C ; Borrow bit
311 91371c7553f5 BUGFIX typo when passing Gas#4 to deko model (bug#43) JeanDo parents: 301 diff changeset	1967 subfwb EEDATA,W ; minus O2
91371c7553f5 BUGFIX typo when passing Gas#4 to deko model (bug#43) JeanDo parents: 301 diff changeset	1968 movff WREG, char_I_N2_ratio ; = N2!
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1969
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1970 ; Configure gaslist_active flag register
281 f8f865c70a0d no more sorted gaslist... heinrichsweikamp parents: 274 diff changeset	1971 read_int_eeprom d'27'
290 4dbff2aa31ee Hunting for refusing to ignore disabled gas in list... JeanDo parents: 287 diff changeset	1972 movff EEDATA, gaslist_active
281 f8f865c70a0d no more sorted gaslist... heinrichsweikamp parents: 274 diff changeset	1973 return

Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/divemode.asm @ 609:bbf5e1506c39