mk2: code_part1/OSTC_code_asm_part1/customview.asm annotate

annotate code_part1/OSTC_code_asm_part1/customview.asm @ 512:e7893664bd29

BUGFIX Spurious stop order when simulating deadly fast ascent.

author	JeanDo
date	Sun, 04 Dec 2011 17:45:51 +0100
parents	9fc8feff27a5
children	44e9b961f156

rev	line source
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	1 ; OSTC - diving computer code
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	2 ; Copyright (C) 2008 HeinrichsWeikamp GbR
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	3
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	4 ; This program is free software: you can redistribute it and/or modify
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	5 ; it under the terms of the GNU General Public License as published by
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	6 ; the Free Software Foundation, either version 3 of the License, or
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	7 ; (at your option) any later version.
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	8
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	9 ; This program is distributed in the hope that it will be useful,
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	10 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	11 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	12 ; GNU General Public License for more details.
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	13
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	14 ; You should have received a copy of the GNU General Public License
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	15 ; along with this program. If not, see <http://www.gnu.org/licenses/>.
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	16
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	17
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	18 ; Customviews for divemode
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	19 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	20 ; history:
478 fd8266b511cc New SAC (CF56/CF57) in 5..50 l/min range (no more decimal). JeanDo parents: 476 diff changeset	21 ; 2010-12-12: [MH] First updated
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	22 ; 2011-01-04: [jDG] Saturation graphs in customview divemode
478 fd8266b511cc New SAC (CF56/CF57) in 5..50 l/min range (no more decimal). JeanDo parents: 476 diff changeset	23 ; 2011-10-10: [jDG] Added Cave live gas counter
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	24 ; known bugs:
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	25 ; ToDo:
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	26
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	27 ;=============================================================================
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	28 ; Show the customview-dependent entry for the divemode menu
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	29 ;
479 9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	30 customview_menu_entry3:
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	31 movff menupos3,WREG ; copy
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	32 dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	33 bra customview_menu3_stopwatch ; Show the stopwatch option in divemode menu
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	34 dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	35 bra customview_menu3_marker ; Show the marker option in divemode menu
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	36 dcfsnz WREG,F
479 9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	37 bra customview_menu3_clock ; Show nothing
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	38 dcfsnz WREG,F
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	39 bra customview_menu3_lead_tiss ; Show nothing
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	40 dcfsnz WREG,F
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	41 bra customview_menu3_average ; Show nothing
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	42 dcfsnz WREG,F
479 9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	43 bra customview_menu3_graphs ; Show nothing
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	44 dcfsnz WREG,F
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	45 bra customview_menu3_ead_end ; Show nothing
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	46 dcfsnz WREG,F
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	47 bra customview_menu3_@5 ; Show nothing
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	48 dcfsnz WREG,F
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	49 bra customview_menu3_cave_bailout; Show reset option
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	50 return
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	51
479 9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	52 customview_menu3_cave_bailout:
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	53 customview_menu3_stopwatch:
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	54 DISPLAYTEXT .33 ; ResetAvr
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	55 return
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	56
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	57 customview_menu3_marker:
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	58 DISPLAYTEXT .30 ; Set Marker
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	59 return
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	60
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	61 customview_menu3_clock: ; No menu entry
479 9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	62 customview_menu3_lead_tiss:
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	63 customview_menu3_average:
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	64 customview_menu3_graphs:
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	65 customview_menu3_ead_end:
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	66 customview_menu3_@5:
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	67 return
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	68
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	69 ;=============================================================================
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	70 ; Do every-second tasks for the custom view area
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	71
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	72 customview_second:
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	73 movff menupos3,WREG ; copy
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	74 dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	75 bra customview_1sec_stopwatch ; Update the Stopwatch
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	76 dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	77 bra customview_1sec_marker ; Update the Marker
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	78 dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	79 bra customview_1sec_clock ; Update the Clock
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	80 dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	81 bra customview_1sec_lead_tiss ; Update the leading tissue
133 35567a646fe5 Minor merge fixes... JeanDo parents: 131 diff changeset	82 dcfsnz WREG,F
131 03df42de03e1 Merge 129 with 130 Heinrichsweikamp parents: 129 128 diff changeset	83 bra customview_1sec_average ; Update the Average depth
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	84 dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	85 bra customview_1sec_graphs ; Update the leading tissue
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 150 diff changeset	86 dcfsnz WREG,F
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 150 diff changeset	87 bra customview_1sec_ead_end ; Show END and EAD in divemode
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	88 dcfsnz WREG,F
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	89 bra customview_1sec_@5 ; Show TTS for extra time.
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	90 dcfsnz WREG,F
7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	91 bra customview_1sec_cave_bailout; Show Cave conso prediction.
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 150 diff changeset	92
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	93 ; Menupos3=0, do nothing
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	94 return
129 06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	95
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	96 customview_1sec_average:
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	97 goto PLED_total_average_show2 ; Update the figures only
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	99 customview_1sec_stopwatch:
386 deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	100 btfsc gauge_mode ; In Gauge mode?
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	101 bra customview_1sec_stopwatch_gauge; Yes
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	102
295 1a15d75702f7 Menu3 marker bugfix Heinrichsweikamp parents: 277 diff changeset	103 bsf menu3_active ; Set Flag
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	104 goto PLED_stopwatch_show2 ; Update figures only
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	105
386 deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	106 customview_1sec_stopwatch_gauge:
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	107 bsf menu3_active ; Set Flag
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	108 goto PLED_stopwatch_show_gauge ; Update figures + Description
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	109
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	110 customview_1sec_marker: ; Do nothing extra
295 1a15d75702f7 Menu3 marker bugfix Heinrichsweikamp parents: 277 diff changeset	111 bsf menu3_active ; Set Flag
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	112 customview_1sec_clock: ; Do nothing extra
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	113 customview_1sec_lead_tiss: ; Do nothing extra
133 35567a646fe5 Minor merge fixes... JeanDo parents: 131 diff changeset	114 return
35567a646fe5 Minor merge fixes... JeanDo parents: 131 diff changeset	115
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	116 customview_1sec_graphs: ; Do nothing extra
150 fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	117 decfsz apnoe_mins ; 10 sec passed ?
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	118 return ; No: skip.
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	119 movlw .10 ; Yes: reset counter.
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	120 movwf apnoe_mins
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	121
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	122 call deco_calc_desaturation_time ; calculate desaturation time
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	123 movlb b'00000001' ; select ram bank 1
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	124 goto PLED_tissue_saturation_graph
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	125
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 150 diff changeset	126 customview_1sec_ead_end:
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	127 goto PLED_show_end_ead_divemode
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	128
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	129 customview_1sec_@5:
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	130 goto PLED_show_@5
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 150 diff changeset	131
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	132 customview_1sec_cave_bailout:
479 9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	133 bsf menu3_active ; Set Flag
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	134 goto PLED_show_cave_bailout
7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	135
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	136 ;=============================================================================
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	137 ; Do every-minute tasks for the custom view area
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	138
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	139 customview_minute:
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	140 movff menupos3,WREG ; copy
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	141 dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	142 bra customview_minute_stopwatch ; Update the Stopwatch
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	143 dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	144 bra customview_minute_marker ; Update the Marker
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	145 dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	146 bra customview_minute_clock ; Update the Clock
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	147 dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	148 bra customview_minute_lead_tiss ; Update the leading tissue
133 35567a646fe5 Minor merge fixes... JeanDo parents: 131 diff changeset	149 dcfsnz WREG,F
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 150 diff changeset	150 bra customview_minute_average ; Update the Average depth
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	151 dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	152 bra customview_minute_graphs ; Update the graphs
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 150 diff changeset	153 dcfsnz WREG,F
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	154 bra customview_minute_ead_end ; Show END and EAD in divemode
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	155 dcfsnz WREG,F
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	156 bra customview_minute_@5 ; Show TTS for extra time.
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	157 dcfsnz WREG,F
7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	158 bra customview_minute_cave_bailout; Show Cave consomation prediction.
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 150 diff changeset	159
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	160 ; Menupos3=0, do nothing
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	161 return
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	162
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	163 customview_minute_clock:
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	164 goto PLED_diveclock2 ; Update the clock
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	165
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	166 customview_minute_lead_tiss:
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	167 goto PLED_show_leading_tissue_2 ; Update the leading tissue
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	168
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	169 customview_minute_cave_bailout: ; Do nothing extra
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	170 customview_minute_@5: ; Do nothing extra
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 150 diff changeset	171 customview_minute_ead_end: ; Do nothing extra
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	172 customview_minute_marker: ; Do nothing extra
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	173 customview_minute_stopwatch: ; Do nothing extra
137 e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	174 customview_minute_average: ; Do nothing extra
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 150 diff changeset	175 customview_minute_graphs: ; Do nothing extra
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	176 return
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	177
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	178 ;=============================================================================
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	179 ; Show next customview (and delete this flag)
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	180
277 46d1012d096a Quick-access to menupos3 in divemode - ToDo: EAD and END in CCR mode heinrichsweikamp parents: 274 diff changeset	181 customview_toggle:
479 9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	182 bcf menu3_active ;=1: menu entry three in divemode menu is active
119 f24137eb85de Background debugger now shows STKPTR heinrichsweikamp parents: 115 diff changeset	183 ostc_debug 'X' ; Sends debug-information to screen if debugmode active
137 e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	184
e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	185 btfsc FLAG_apnoe_mode ; In Apnoe mode?
e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	186 bra customview_toggle_exit ; Yes, ignore custom view in divemode completely
e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	187
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	188 incf menupos3,F ; Number of customview to show
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	189 movlw d'9' ; Max number
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	190 cpfsgt menupos3 ; Max reached?
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	191 bra customview_mask ; No, show
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	192 clrf menupos3 ; Reset to zero (Zero=no custom view)
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	193
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	194 customview_mask:
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	195 call PLED_clear_customview_divemode
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	196 bcf tts_extra_time ; By default, CLEAR computation of @5 request.
7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	197
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	198 movff menupos3,WREG ; Menupos3 holds number of customview function
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	199 dcfsnz WREG,F
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	200 bra customview_init_stopwatch ; 1: Show the Stopwatch
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	201 dcfsnz WREG,F
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	202 bra customview_init_marker ; 2: Show the Marker-Menu
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	203 dcfsnz WREG,F
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	204 bra customview_init_clock ; 3: Show the clock
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	205 dcfsnz WREG,F
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	206 bra customview_init_lead_tissue ; 4: Show the leading tissue
133 35567a646fe5 Minor merge fixes... JeanDo parents: 131 diff changeset	207 dcfsnz WREG,F
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	208 bra customview_init_average ; 5: Show Total average depth
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	209 dcfsnz WREG,F
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	210 bra customview_init_graphs ; 6: Show the graphs
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 150 diff changeset	211 dcfsnz WREG,F
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	212 bra customview_init_ead_end ; 7: Show END and EAD in divemode
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	213 dcfsnz WREG,F
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	214 bra customview_init_@5 ; 8: Show TTS for extra time.
7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	215 dcfsnz WREG,F
7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	216 bra customview_init_cave_bailout ; 9: Show Cave consomation prediction.
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	217
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	218 customview_init_nocustomview:
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	219 bra customview_toggle_exit
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	220
129 06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	221 customview_init_average:
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	222 call PLED_total_average_show ; Show Average with mask
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	223 bra customview_toggle_exit
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	224
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	225 customview_init_stopwatch:
129 06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	226 GETCUSTOM8 d'51' ; Show Stopwatch? (=1 in WREG)
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	227 decfsz WREG,F ; WREG=1?
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	228 bra customview_toggle ; No, use next Customview
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	229
386 deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	230 btfsc gauge_mode ; In Gauge mode?
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	231 bra customview_init_stopwatch_gauge ; Yes
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	232
129 06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	233 call PLED_stopwatch_show ; Init Stopwatch display
277 46d1012d096a Quick-access to menupos3 in divemode - ToDo: EAD and END in CCR mode heinrichsweikamp parents: 274 diff changeset	234 bsf menu3_active ; Set Flag
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	235 bra customview_toggle_exit
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	236
386 deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	237 customview_init_stopwatch_gauge:
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	238 call PLED_stopwatch_show_gauge ; Init Stopwatch display
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	239 bsf menu3_active ; Set Flag
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	240 bra customview_toggle_exit
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	241
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	242 customview_init_marker: ; Init Marker
386 deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	243 btfsc gauge_mode ; In Gauge mode?
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	244 call PLED_clear_divemode_menu; Yes, clear BIG stopwatch
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode heinrichsweikamp parents: 323 diff changeset	245
129 06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	246 GETCUSTOM8 d'50' ; Show Marker? (=1 in WREG)
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	247 decfsz WREG,F ; WREG=1?
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	248 bra customview_toggle ; No, use next Customview
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	249
150 fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	250 call PLED_standard_color
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	251 DISPLAYTEXT d'151' ; Set Marker?
479 9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	252 bsf menu3_active ; Set Flag
150 fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	253 bra customview_toggle_exit
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	254
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	255 customview_init_clock: ; Init Clock
150 fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	256 call PLED_diveclock
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	257 bra customview_toggle_exit
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	258
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	259 customview_init_lead_tissue: ; Show leading tissue
129 06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	260 GETCUSTOM8 d'53' ; Show Lead Tissue? (=1 in WREG)
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	261 decfsz WREG,F ; WREG=1?
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	262 bra customview_toggle ; No, use next Customview
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	263
137 e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	264 btfsc no_deco_customviews ; no-deco-mode-flag = 1
e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	265 bra customview_toggle ; Yes, use next Customview!
e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	266
150 fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	267 call PLED_show_leading_tissue
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	268 bra customview_toggle_exit
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	269
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 150 diff changeset	270 customview_init_ead_end:
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	271 btfsc no_deco_customviews ; no-deco-mode-flag = 1
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	272 bra customview_toggle ; Yes, use next Customview!
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	273
274 a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 150 diff changeset	274 call PLED_show_end_ead_divemode
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 150 diff changeset	275 bra customview_toggle_exit
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7) heinrichsweikamp parents: 150 diff changeset	276
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	277 customview_init_@5:
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	278 GETCUSTOM8 d'58' ; Extra time to simulate
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	279 iorwf WREG,F ; Null ?
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	280 bz customview_toggle ; Yes: use next Customview !
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	281
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	282 btfsc no_deco_customviews ; no-deco-mode-flag = 1
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	283 bra customview_toggle ; Yes, use next Customview!
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	284
323 b7940978edc9 Fix "Future TTS" display customview. JeanDo parents: 312 diff changeset	285 setf WREG ; WAIT marker: display "---"
312 b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	286 movff WREG,int_O_extra_ascenttime+0
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	287 movff WREG,int_O_extra_ascenttime+1
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	288
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	289 movlw 1
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	290 movwf apnoe_mins ; Start compute after next cycle.
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	291 bsf tts_extra_time
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	292 call PLED_show_@5 ; Show (wait)
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	293
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	294 bra customview_toggle_exit
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth. JeanDo parents: 295 diff changeset	295
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	296 customview_init_cave_bailout:
7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	297 GETCUSTOM15 d'59' ; Conso level warning set ?
7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	298 movf lo,W
7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	299 iorwf hi,W
7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	300 bz customview_toggle ; No: jump to next Customview !
7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	301
479 9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth. JeanDo parents: 478 diff changeset	302 bsf menu3_active ; Set Flag
476 7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	303 call PLED_show_cave_bailout
7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	304 bra customview_toggle_exit
7779bfa89171 Cave bailout prediction. JeanDo parents: 386 diff changeset	305
131 03df42de03e1 Merge 129 with 130 Heinrichsweikamp parents: 129 128 diff changeset	306 customview_init_graphs: ; Show tissue graph
03df42de03e1 Merge 129 with 130 Heinrichsweikamp parents: 129 128 diff changeset	307 GETCUSTOM8 d'52' ; Show Tissue Graph? (=1 in WREG)
03df42de03e1 Merge 129 with 130 Heinrichsweikamp parents: 129 128 diff changeset	308 decfsz WREG,F ; WREG=1?
03df42de03e1 Merge 129 with 130 Heinrichsweikamp parents: 129 128 diff changeset	309 bra customview_toggle ; No, use next Customview
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	310
137 e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	311 btfsc no_deco_customviews ; no-deco-mode-flag = 1
e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	312 bra customview_toggle ; Yes, use next Customview!
e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	313
150 fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	314 movlw .1 ; Draw next second.
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	315 movwf apnoe_mins ; 10sec counter.
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	316
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	317 call deco_calc_desaturation_time ; calculate desaturation time
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	318 movlb b'00000001' ; select ram bank 1
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	319 call PLED_tissue_saturation_graph
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	320
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	321 bra customview_toggle_exit
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	322
98 6f8e3a08011e 1.73beta rc1 (Added new customview for divemode) heinrichsweikamp parents: diff changeset	323 customview_toggle_exit:
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	324 bcf toggle_customview ; Clear flag
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	325 ostc_debug 'Y' ; Sends debug-information to screen in debugmode
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	326 return
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	327
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	328 ;=============================================================================
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	329 ; Yes, show next customview (and delete this flag)
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	330
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	331 surfcustomview_toggle:
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	332 incf menupos3,F ; Number of customview to show
111 ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	333 movlw d'4' ; Max number
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	334 cpfsgt menupos3 ; Max reached?
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	335 bra surfcustomview_mask ; No, show
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	336 clrf menupos3 ; Reset to zero (Zero=no custom view)
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	337 surfcustomview_mask:
115 50a06adabc67 First gas is active, Gauge mode display heinrichsweikamp parents: 112 diff changeset	338 call PLED_clear_customview_surfmode
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	339 movff menupos3,WREG ; Menupos3 holds number of customview function
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	340 dcfsnz WREG,F
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	341 bra surfcustomview_init_graphs ; Show the tissue graphs
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	342 dcfsnz WREG,F
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	343 bra surfcustomview_init_gaslist ; Show pre-dive gaslist/setpoint list
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	344 dcfsnz WREG,F
133 35567a646fe5 Minor merge fixes... JeanDo parents: 131 diff changeset	345 bra surfcustomview_init_interval; Show the interval counter
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	346 dcfsnz WREG,F
111 ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	347 bra surfcustomview_init_cfview ; Show the interval counter
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	348
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	349 surfcustomview_init_nocustomview:
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	350 bra surfcustomview_toggle_exit
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	351
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	352 surfcustomview_init_graphs:
137 e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	353 btfsc no_deco_customviews ; no-deco-mode-flag = 1
e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	354 bra surfcustomview_toggle ; Yes, use next Customview!
e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	355
133 35567a646fe5 Minor merge fixes... JeanDo parents: 131 diff changeset	356 call PLED_tissue_saturation_graph; Draw the graphs
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	357 bra surfcustomview_toggle_exit
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	358
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	359 surfcustomview_init_gaslist:
137 e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	360 btfsc no_deco_customviews ; no-deco-mode-flag = 1
e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	361 bra surfcustomview_toggle ; Yes, use next Customview!
e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	362
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	363 call PLED_pre_dive_screen ; Show the Gaslist/Setpoint list
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	364 bra surfcustomview_toggle_exit
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	365
111 ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	366 surfcustomview_init_interval:
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 119 diff changeset	367 call PLED_standard_color
111 ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	368 DISPLAYTEXT d'189' ; Surface
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	369 DISPLAYTEXT d'240' ; Interval:
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	370 call PLED_interval ; Display the interval
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	371 bra surfcustomview_toggle_exit
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	372
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	373 surfcustomview_init_cfview:
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	374 read_int_eeprom d'34' ; Get Decomode
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	375 incf EEDATA,W ; +1 -> WREG
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	376 movwf temp10
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	377 dcfsnz temp10,F
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	378 call PLED_show_cf11_cf12_cf29 ; =0 (ZH-L16 OC)
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	379 dcfsnz temp10,F
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	380 bra surfcustomview_toggle_exit ; =1 (Gauge)
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	381 dcfsnz temp10,F
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	382 call PLED_show_cf11_cf12_cf29 ; =2 (ZH-L16 CC)
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	383 dcfsnz temp10,F
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	384 bra surfcustomview_toggle_exit ; =3 (Apnoe)
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	385 dcfsnz temp10,F
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	386 call PLED_show_cf32_cf33_cf29 ; =4 (L16-GF OC)
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	387 dcfsnz temp10,F
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	388 call PLED_show_cf32_cf33_cf29 ; =5 (L16-GF CC)
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	389 bra surfcustomview_toggle_exit
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	390
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	391 surfcustomview_toggle_exit:
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	392 bcf toggle_customview ; Clear flag
129 06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	393 clrf timeout_counter2 ; Clear timeout
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53) Heinrichsweikamp parents: 123 diff changeset	394 return
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	395
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	396 ;=============================================================================
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	397 ; Do every-second tasks for the custom view area
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	398
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	399 surfcustomview_second:
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	400 ; movff menupos3,WREG ; copy
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	401 ; dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	402 ; bra surfcustomview_1sec_graphs ; Update the Graphs
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	403 ; dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	404 ; bra surfcustomview_1sec_gaslist ; Update the Gaslist/SetPoint List
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	405 ; dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	406 ; bra surfcustomview_1sec_interval ; Update the Interval display
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	407 ; dcfsnz WREG,F
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	408 ; bra surfcustomview_1sec_cfview ; Update the critical cf view
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	409 ; ; Menupos3=0, do nothing
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	410 ; return
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	411 ;surfcustomview_1sec_cfview: ; Do nothing extra
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	412 ;surfcustomview_1sec_graphs: ; Do nothing extra
137 e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	413 ;surfcustomview_1sec_gaslist: ; Do nothing extra
e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	414 ;surfcustomview_1sec_interval: ; Do nothing extra
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	415 return
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	416
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	417 ;=============================================================================
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	418
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	419 surfcustomview_minute: ; Do every-minute tasks for the custom view area
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	420 movff menupos3,WREG ; copy
4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	421 dcfsnz WREG,F
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	422 bra surfcustomview_minute_graphs ; Update the Graphs
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	423 dcfsnz WREG,F
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	424 bra surfcustomview_minute_gaslist ; Update the Gaslist/SetPoint List
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	425 dcfsnz WREG,F
111 ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	426 bra surfcustomview_minute_interval ; Update the Interval display
128 4c588c3d1f12 Saturation graphs in customview divemode JeanDo parents: 123 diff changeset	427 dcfsnz WREG,F
137 e6aa4a74c3c2 Fix: Customviews for Apnoe and Gauge mode mh <> parents: 134 diff changeset	428 bra surfcustomview_minute_cfview ; Update the critical cf view
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	429 ; Menupos3=0, do nothing
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	430 return
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	431
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	432 surfcustomview_minute_graphs:
150 fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	433 call deco_calc_desaturation_time ; calculate desaturation time
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	434 movlb b'00000001' ; select ram bank 1
fc699a7460e6 Fix desat graph: JeanDo parents: 137 diff changeset	435 call PLED_tissue_saturation_graph ; Draw/Update the graphs
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	436 return
a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	437
111 ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	438 surfcustomview_minute_interval:
112 9500f431248a 1.74beta rc2 heinrichsweikamp parents: 111 diff changeset	439 DISPLAYTEXT d'189' ; Surface
9500f431248a 1.74beta rc2 heinrichsweikamp parents: 111 diff changeset	440 DISPLAYTEXT d'240' ; Interval:
111 ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	441 call PLED_interval ; Display the interval
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	442 return
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	443
107 a2b9eca1f396 customview for the surfacemode heinrichsweikamp parents: 98 diff changeset	444 surfcustomview_minute_gaslist: ; Do nothing extra
111 ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	445 surfcustomview_minute_cfview: ; Do nothing extra
ed7826c740a0 1.74beta rc1 heinrichsweikamp parents: 107 diff changeset	446 return

Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/customview.asm @ 512:e7893664bd29