Mercurial > public > hwos_code

annotate src/customview.asm @ 544:64a45f203144

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
NEW: Show Compass calibration results in Compass menu
author heinrichsweikamp
date Wed, 06 Sep 2017 15:34:49 +0200
parents d36f9fca10ae
children b7eb98dbd800
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
heinrichsweikamp
parents:
diff changeset
1 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2 ;
heinrichsweikamp
parents:
diff changeset
3 ; File customview.asm
heinrichsweikamp
parents:
diff changeset
4 ;
heinrichsweikamp
parents:
diff changeset
5 ; Customview in Surfacemode and Divemode
heinrichsweikamp
parents:
diff changeset
6 ;
heinrichsweikamp
parents:
diff changeset
7 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved.
heinrichsweikamp
parents:
diff changeset
8 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
9 ; HISTORY
heinrichsweikamp
parents:
diff changeset
10 ; 2011-08-10 : [mH] moving from OSTC code
heinrichsweikamp
parents:
diff changeset
11
heinrichsweikamp
parents:
diff changeset
12 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
13
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 256
diff changeset
14 #include "hwos.inc" ; Mandatory header
0
heinrichsweikamp
parents:
diff changeset
15 #include "tft_outputs.inc"
heinrichsweikamp
parents:
diff changeset
16 #include "strings.inc"
heinrichsweikamp
parents:
diff changeset
17 #include "tft.inc"
heinrichsweikamp
parents:
diff changeset
18 #include "isr.inc"
heinrichsweikamp
parents:
diff changeset
19 #include "wait.inc"
heinrichsweikamp
parents:
diff changeset
20 #include "surfmode.inc"
heinrichsweikamp
parents:
diff changeset
21 #include "convert.inc"
heinrichsweikamp
parents:
diff changeset
22 #include "divemode.inc"
heinrichsweikamp
parents:
diff changeset
23 #include "i2c.inc"
heinrichsweikamp
parents:
diff changeset
24
heinrichsweikamp
parents:
diff changeset
25 gui CODE
heinrichsweikamp
parents:
diff changeset
26
heinrichsweikamp
parents:
diff changeset
27 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
28 ; Do every-second tasks for the custom view area (Dive mode)
heinrichsweikamp
parents:
diff changeset
29
heinrichsweikamp
parents:
diff changeset
30 global customview_second
heinrichsweikamp
parents:
diff changeset
31 customview_second:
472
4fdf6886004b CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents: 471
diff changeset
32 movff menupos3,WREG ; copy current view (1-...)
0
heinrichsweikamp
parents:
diff changeset
33 dcfsnz WREG,F
472
4fdf6886004b CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents: 471
diff changeset
34 goto TFT_update_ppo2_sensors ; Update Sensor data ; and return
0
heinrichsweikamp
parents:
diff changeset
35 dcfsnz WREG,F
472
4fdf6886004b CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents: 471
diff changeset
36 goto TFT_update_avr_stopwatch ; Update average depth and stopwatch; and return
0
heinrichsweikamp
parents:
diff changeset
37 dcfsnz WREG,F
472
4fdf6886004b CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents: 471
diff changeset
38 goto TFT_decoplan ; Show decoplan ; and return
0
heinrichsweikamp
parents:
diff changeset
39 dcfsnz WREG,F
472
4fdf6886004b CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents: 471
diff changeset
40 goto TFT_battinfo_tissues_clock ; Update Battery, Tissues and clock ; and return
0
heinrichsweikamp
parents:
diff changeset
41 dcfsnz WREG,F
472
4fdf6886004b CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents: 471
diff changeset
42 goto TFT_gf_info ; Update GF informations ; and return
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
43 dcfsnz WREG,F
472
4fdf6886004b CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents: 471
diff changeset
44 return ; Compass updated seperately (Faster) in divemode;
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
45 dcfsnz WREG,F
472
4fdf6886004b CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents: 471
diff changeset
46 goto TFT_dyn_gaslist ; Update the gaslist ; and return
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
47 dcfsnz WREG,F
472
4fdf6886004b CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents: 471
diff changeset
48 goto TFT_hud_voltages ; Show HUD details ; and return
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
49 dcfsnz WREG,F
471
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
50 bra customview_1sec_view9 ; Make sure to change value in "check_ppo2_display:" when moving around custom views
413
12e85930d95c NEW: New Customview shows ppO2(O2) and ppO2(Diluent) during CCR mode
heinrichsweikamp
parents: 376
diff changeset
51 dcfsnz WREG,F
472
4fdf6886004b CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents: 471
diff changeset
52 goto TFT_sensor_check ; Show ppO2 of O2 and Diluent ; and return
471
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
53 dcfsnz WREG,F
472
4fdf6886004b CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents: 471
diff changeset
54 goto TFT_ppo2_ead_end_cns ; Show ppO2, END/EAD and CNS; and return
482
c0ee33f1f399 New customview #12 for PSCR mode shows ppO2, O2 drop and lung ratio
heinrichsweikamp
parents: 476
diff changeset
55 dcfsnz WREG,F
c0ee33f1f399 New customview #12 for PSCR mode shows ppO2, O2 drop and lung ratio
heinrichsweikamp
parents: 476
diff changeset
56 goto TFT_pscr_info ; Show ppO2, drop and lung ratio; and return
c0ee33f1f399 New customview #12 for PSCR mode shows ppO2, O2 drop and lung ratio
heinrichsweikamp
parents: 476
diff changeset
57
0
heinrichsweikamp
parents:
diff changeset
58 ; Menupos3=0, do nothing
heinrichsweikamp
parents:
diff changeset
59 return
heinrichsweikamp
parents:
diff changeset
60
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
61 customview_1sec_view9: ; Ceiling
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
62 call TFT_ceiling ; Show Ceiling
333
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
63 ; ppO2 value
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
64 call TFT_display_ppo2_val
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
65 ; current GF value
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
66 extern char_I_deco_model
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
67 TSTOSS char_I_deco_model ; 0 = ZH-L16, 1 = ZH-L16-GF
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
68 return ; No GF info for non-GF modes
428
eccae727702f some cleanup
heinrichsweikamp
parents: 419
diff changeset
69 goto TFT_gf_info ; Update GF informations ; and return
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
70
413
12e85930d95c NEW: New Customview shows ppO2(O2) and ppO2(Diluent) during CCR mode
heinrichsweikamp
parents: 376
diff changeset
71
0
heinrichsweikamp
parents:
diff changeset
72
heinrichsweikamp
parents:
diff changeset
73 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
74 ; Do every-minute tasks for the custom view area
heinrichsweikamp
parents:
diff changeset
75
heinrichsweikamp
parents:
diff changeset
76 global customview_minute
heinrichsweikamp
parents:
diff changeset
77 customview_minute:
heinrichsweikamp
parents:
diff changeset
78 return
heinrichsweikamp
parents:
diff changeset
79 ; movff menupos3,WREG ; copy
heinrichsweikamp
parents:
diff changeset
80 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
81 ; bra customview_1min_view1
heinrichsweikamp
parents:
diff changeset
82 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
83 ; bra customview_1min_view2
heinrichsweikamp
parents:
diff changeset
84 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
85 ; bra customview_1min_view3
heinrichsweikamp
parents:
diff changeset
86 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
87 ; bra customview_1min_view4
heinrichsweikamp
parents:
diff changeset
88 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
89 ; bra customview_1min_view5
heinrichsweikamp
parents:
diff changeset
90 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
91 ; bra customview_1min_view6
heinrichsweikamp
parents:
diff changeset
92 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
93 ; bra customview_1min_view7
heinrichsweikamp
parents:
diff changeset
94 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
95 ; bra customview_1min_view8
heinrichsweikamp
parents:
diff changeset
96 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
97 ; bra customview_1min_view9
heinrichsweikamp
parents:
diff changeset
98 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
99 ; bra customview_1min_view10
heinrichsweikamp
parents:
diff changeset
100 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
101 ; bra customview_1min_view11
heinrichsweikamp
parents:
diff changeset
102 ; ; Menupos3=0, do nothing
heinrichsweikamp
parents:
diff changeset
103 ; return
heinrichsweikamp
parents:
diff changeset
104 ;
heinrichsweikamp
parents:
diff changeset
105 ;customview_1min_view1:
heinrichsweikamp
parents:
diff changeset
106 ;customview_1min_view2:
heinrichsweikamp
parents:
diff changeset
107 ;customview_1min_view3:
heinrichsweikamp
parents:
diff changeset
108 ;customview_1min_view4:
heinrichsweikamp
parents:
diff changeset
109 ;customview_1min_view5:
heinrichsweikamp
parents:
diff changeset
110 ;customview_1min_view6:
heinrichsweikamp
parents:
diff changeset
111 ;customview_1min_view7:
heinrichsweikamp
parents:
diff changeset
112 ;customview_1min_view8:
heinrichsweikamp
parents:
diff changeset
113 ;customview_1min_view9:
heinrichsweikamp
parents:
diff changeset
114 ;customview_1min_view10:
heinrichsweikamp
parents:
diff changeset
115 ;customview_1min_view11:
heinrichsweikamp
parents:
diff changeset
116 ; return
heinrichsweikamp
parents:
diff changeset
117
heinrichsweikamp
parents:
diff changeset
118 global surf_customview_toggle
heinrichsweikamp
parents:
diff changeset
119 surf_customview_toggle:
heinrichsweikamp
parents:
diff changeset
120 bcf switch_right
heinrichsweikamp
parents:
diff changeset
121 incf menupos3,F ; Number of customview to show
530
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
122 movlw d'9' ; Max number of customsviews in surface mode
0
heinrichsweikamp
parents:
diff changeset
123 cpfsgt menupos3 ; Max reached?
heinrichsweikamp
parents:
diff changeset
124 bra surf_customview_mask ; No, show
heinrichsweikamp
parents:
diff changeset
125 movlw .1
heinrichsweikamp
parents:
diff changeset
126 movwf menupos3 ; Reset to one (Always one custom view visible)
heinrichsweikamp
parents:
diff changeset
127
heinrichsweikamp
parents:
diff changeset
128 global surf_customview_mask
heinrichsweikamp
parents:
diff changeset
129 surf_customview_mask:
48
7c7d7644ca37 Time and Date in normal (Not tiny) font
heinrichsweikamp
parents: 41
diff changeset
130 WIN_BOX_BLACK .50,surf_warning1_row-1, .0, surf_decotype_column-.1 ; top, bottom, left, right
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
131 ; Prepare title
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
132 WIN_TINY surf_customview_title_column,surf_customview_title_row
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
133 WIN_COLOR color_greenish
0
heinrichsweikamp
parents:
diff changeset
134 movff menupos3,WREG ; Menupos3 holds number of customview function
heinrichsweikamp
parents:
diff changeset
135 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
136 bra surf_customview_init_view1 ; OC Gas list
heinrichsweikamp
parents:
diff changeset
137 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
138 bra surf_customview_init_view2 ; CC Dil list
heinrichsweikamp
parents:
diff changeset
139 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
140 bra surf_customview_init_view3 ; CC SP list
heinrichsweikamp
parents:
diff changeset
141 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
142 bra surf_customview_init_view4 ; Custom Text
heinrichsweikamp
parents:
diff changeset
143 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
144 bra surf_customview_init_view5 ; Tissue Diagram
503
4542d03f748a NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents: 502
diff changeset
145 dcfsnz WREG,F
0
heinrichsweikamp
parents:
diff changeset
146 bra surf_customview_init_view6 ; Compass
503
4542d03f748a NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents: 502
diff changeset
147 dcfsnz WREG,F
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
148 bra surf_customview_init_view7 ; Deco settings
503
4542d03f748a NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents: 502
diff changeset
149 dcfsnz WREG,F
4542d03f748a NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents: 502
diff changeset
150 bra surf_customview_init_view8 ; Last Dive info
530
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
151 dcfsnz WREG,F
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
152 bra surf_customview_init_view9 ; Sensor mV readings
0
heinrichsweikamp
parents:
diff changeset
153
heinrichsweikamp
parents:
diff changeset
154 call I2C_sleep_accelerometer ; Stop accelerometer
heinrichsweikamp
parents:
diff changeset
155 call I2C_sleep_compass ; Stop compass
heinrichsweikamp
parents:
diff changeset
156
heinrichsweikamp
parents:
diff changeset
157 movlw .1
heinrichsweikamp
parents:
diff changeset
158 movwf menupos3 ; Reset to one (Always one custom view visible)
heinrichsweikamp
parents:
diff changeset
159
heinrichsweikamp
parents:
diff changeset
160 surf_customview_init_view1: ; View1: OC Gas list
heinrichsweikamp
parents:
diff changeset
161 btfsc FLAG_gauge_mode
heinrichsweikamp
parents:
diff changeset
162 bra surf_customview_toggle
heinrichsweikamp
parents:
diff changeset
163 btfsc FLAG_apnoe_mode
heinrichsweikamp
parents:
diff changeset
164 bra surf_customview_toggle
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
165 btfsc FLAG_ccr_mode
502
0910c227018f BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents: 485
diff changeset
166 bra surf_customview_init_view1_bail ; Bailout version of "OC Gas List"
0910c227018f BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents: 485
diff changeset
167 btfsc FLAG_pscr_mode
0910c227018f BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents: 485
diff changeset
168 bra surf_customview_init_view1_bail ; Bailout version of "OC Gas List"
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
169 STRCPY_TEXT_PRINT tGaslist ; Title of customview
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
170 call TFT_standard_color
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
171 call TFT_gaslist_surfmode ; Show gas list
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
172 bra customview_toggle_exit ; Done.
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
173
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
174 surf_customview_init_view1_bail:
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
175 STRCPY_TEXT_PRINT tDiveBailout ; Title of customview
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
176 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
177 call TFT_gaslist_surfmode ; Show gas list
heinrichsweikamp
parents:
diff changeset
178 bra customview_toggle_exit ; Done.
heinrichsweikamp
parents:
diff changeset
179
heinrichsweikamp
parents:
diff changeset
180 surf_customview_init_view2: ; View2: CC Dil list
502
0910c227018f BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents: 485
diff changeset
181 btfsc FLAG_pscr_mode
0910c227018f BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents: 485
diff changeset
182 bra surf_customview_init_view2_2
0
heinrichsweikamp
parents:
diff changeset
183 btfss FLAG_ccr_mode
heinrichsweikamp
parents:
diff changeset
184 bra surf_customview_toggle
heinrichsweikamp
parents:
diff changeset
185 btfsc FLAG_gauge_mode
heinrichsweikamp
parents:
diff changeset
186 bra surf_customview_toggle
heinrichsweikamp
parents:
diff changeset
187 btfsc FLAG_apnoe_mode
heinrichsweikamp
parents:
diff changeset
188 bra surf_customview_toggle
502
0910c227018f BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents: 485
diff changeset
189 surf_customview_init_view2_2:
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
190 STRCPY_TEXT_PRINT tGaslistCC ; Title of customview
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
191 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
192 call TFT_dillist_surfmode ; Show diluent list
heinrichsweikamp
parents:
diff changeset
193 bra customview_toggle_exit ; Done.
heinrichsweikamp
parents:
diff changeset
194
heinrichsweikamp
parents:
diff changeset
195 surf_customview_init_view3: ; View3: CC SP list
heinrichsweikamp
parents:
diff changeset
196 btfss FLAG_ccr_mode
heinrichsweikamp
parents:
diff changeset
197 bra surf_customview_toggle
heinrichsweikamp
parents:
diff changeset
198 btfsc FLAG_gauge_mode
heinrichsweikamp
parents:
diff changeset
199 bra surf_customview_toggle
heinrichsweikamp
parents:
diff changeset
200 btfsc FLAG_apnoe_mode
heinrichsweikamp
parents:
diff changeset
201 bra surf_customview_toggle
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
202 STRCPY_TEXT_PRINT tFixedSetpoints ; Title of customview
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
203 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
204 call TFT_splist_surfmode ; Show Setpoint list
heinrichsweikamp
parents:
diff changeset
205 bra customview_toggle_exit ; Done.
530
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
206
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
207 surf_customview_init_view9: ; View 9: Sensor mV on the surface
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
208 btfsc FLAG_ccr_mode
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
209 bra surf_customview_init_view9a ; we are in CCR mode
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
210 btfsc FLAG_pscr_mode
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
211 bra surf_customview_init_view9a ; we are in PSCR mode
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
212 bra surf_customview_toggle ; we are not in any rebreather mode, so skip
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
213 surf_customview_init_view9a:
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
214 movff opt_ccr_mode,WREG ; =0: Fixed SP, =1: Sensor, =2: Auto SP
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
215 sublw .1 ; opt_ccr_mode = 1 (Sensor)?
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
216 bnz surf_customview_toggle ; sorry, no sensors, skip again
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
217 STRCPY_TEXT_PRINT tSensorMilliVolt ; Title of customview
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
218 call TFT_standard_color
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
219 extern TFT_sensor_mV
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
220 call TFT_sensor_mV ; write sensor mV readings to screen
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
221 bra customview_toggle_exit ; Done.
0
heinrichsweikamp
parents:
diff changeset
222
heinrichsweikamp
parents:
diff changeset
223 surf_customview_init_view4: ; View4: Custom text
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
224 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
225 call TFT_custom_text ; Show the custom text
heinrichsweikamp
parents:
diff changeset
226 bra customview_toggle_exit ; Done.
heinrichsweikamp
parents:
diff changeset
227
heinrichsweikamp
parents:
diff changeset
228 surf_customview_init_view5: ; View5: Tissue Diagram
heinrichsweikamp
parents:
diff changeset
229 btfsc FLAG_gauge_mode
heinrichsweikamp
parents:
diff changeset
230 bra surf_customview_toggle
heinrichsweikamp
parents:
diff changeset
231 btfsc FLAG_apnoe_mode
heinrichsweikamp
parents:
diff changeset
232 bra surf_customview_toggle
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
233 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
234 call TFT_surface_tissues ; Show Tissue diagram
heinrichsweikamp
parents:
diff changeset
235 bra customview_toggle_exit ; Done.
heinrichsweikamp
parents:
diff changeset
236
heinrichsweikamp
parents:
diff changeset
237 surf_customview_init_view6: ; View6: Compass
heinrichsweikamp
parents:
diff changeset
238 call I2C_init_accelerometer ; Start accelerometer
heinrichsweikamp
parents:
diff changeset
239 call I2C_init_compass ; Start compass
256
5b4ef0b9090d place compass display code into compass_ops.asm
heinrichsweikamp
parents: 254
diff changeset
240 extern TFT_surface_compass_mask
0
heinrichsweikamp
parents:
diff changeset
241 call TFT_surface_compass_mask ; Show compass
heinrichsweikamp
parents:
diff changeset
242 bra customview_toggle_exit ; Done.
503
4542d03f748a NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents: 502
diff changeset
243
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
244 surf_customview_init_view7:
503
4542d03f748a NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents: 502
diff changeset
245 btfsc FLAG_gauge_mode ; View7: Deco settings
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
246 bra surf_customview_toggle
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
247 btfsc FLAG_apnoe_mode
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
248 bra surf_customview_toggle
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
249 extern deco_setup_dive
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
250 call deco_setup_dive
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
251 call TFT_surface_decosettings ; Show all deco settings
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
252 bra customview_toggle_exit ; Done.
0
heinrichsweikamp
parents:
diff changeset
253
503
4542d03f748a NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents: 502
diff changeset
254 surf_customview_init_view8: ; View8: Last dive info
4542d03f748a NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents: 502
diff changeset
255 call TFT_surface_lastdive ; Show last dive interval
4542d03f748a NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents: 502
diff changeset
256 bra customview_toggle_exit ; Done.
4542d03f748a NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents: 502
diff changeset
257
4542d03f748a NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents: 502
diff changeset
258
0
heinrichsweikamp
parents:
diff changeset
259 global menuview_toggle
heinrichsweikamp
parents:
diff changeset
260 menuview_toggle: ; Show Menu or the simulator tasks
heinrichsweikamp
parents:
diff changeset
261 movlw divemode_menuview_timeout
heinrichsweikamp
parents:
diff changeset
262 movwf timeout_counter3
heinrichsweikamp
parents:
diff changeset
263 bsf menuview
heinrichsweikamp
parents:
diff changeset
264 bcf switch_left
heinrichsweikamp
parents:
diff changeset
265 incf menupos2,F ; Number of options to show
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
266 movlw d'9' ; Max number of options in divemode
0
heinrichsweikamp
parents:
diff changeset
267 cpfsgt menupos2 ; Max reached?
heinrichsweikamp
parents:
diff changeset
268 bra menuview_mask ; No, show
heinrichsweikamp
parents:
diff changeset
269 global menuview_toggle_reset
heinrichsweikamp
parents:
diff changeset
270 menuview_toggle_reset: ; Timeout occured
heinrichsweikamp
parents:
diff changeset
271 clrf menupos2
heinrichsweikamp
parents:
diff changeset
272 bcf menuview
heinrichsweikamp
parents:
diff changeset
273 menuview_mask:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
274 WIN_BOX_BLACK dm_simtext_row, dm_simtext_row+.23, dm_simtext_column, dm_simtext_column+.49 ; top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
275 btfss FLAG_gauge_mode
heinrichsweikamp
parents:
diff changeset
276 bra menuview_mask2
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
277 ; Clear some more in gauge mode -- "Reset Avg." text is longer than normal simtext
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
278 WIN_BOX_BLACK dm_simtext_row, dm_simtext_row+.23, dm_simtext_column+.50, dm_simtext_column+.70 ; top, bottom, left, right
327
ca5df826437a Small fix for the custom grid layout
janos_kovacs <kovjanos@gmail.com>
parents: 315
diff changeset
279 menuview_mask2:
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
280 call TFT_draw_gassep_line
0
heinrichsweikamp
parents:
diff changeset
281 movlw color_yellow
heinrichsweikamp
parents:
diff changeset
282 call TFT_set_color
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
283 bsf win_invert ; Set invert flag
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
284 WIN_SMALL dm_simtext_column,dm_simtext_row
0
heinrichsweikamp
parents:
diff changeset
285 movff menupos2,WREG ; Menupos2 holds number of menu option to show
heinrichsweikamp
parents:
diff changeset
286 dcfsnz WREG,F
137
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
287 bra menuview_view_gaschange ; If a better gas is indicated
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
288 dcfsnz WREG,F
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
289 bra menuview_view1 ; "Menu?" (Not in Gauge and Anpnoe)
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
290 dcfsnz WREG,F
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
291 bra menuview_view2 ; "Quit Simulation?" (Sim only)
0
heinrichsweikamp
parents:
diff changeset
292 dcfsnz WREG,F
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
293 bra menuview_view3 ; "Descent 1m" (Sim only)
0
heinrichsweikamp
parents:
diff changeset
294 dcfsnz WREG,F
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
295 bra menuview_view4 ; "Ascend 1m" (Sim only)
0
heinrichsweikamp
parents:
diff changeset
296 dcfsnz WREG,F
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
297 bra menuview_view5 ; "Quit Apnea mode?" (Apnea only)
0
heinrichsweikamp
parents:
diff changeset
298 dcfsnz WREG,F
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
299 bra menuview_view6 ; "Reset Avr." (Gauge only)
0
heinrichsweikamp
parents:
diff changeset
300 dcfsnz WREG,F
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
301 bra menuview_view7 ; "Sim:+5mins" (Sim only)
216
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
302 dcfsnz WREG,F
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
303 bra menuview_view8 ; "Heading" (When compass is shown)
0
heinrichsweikamp
parents:
diff changeset
304 menuview_exit:
heinrichsweikamp
parents:
diff changeset
305 call TFT_standard_color
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
306 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
307 return ; Menupos2 = 0, Show nothing
137
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
308
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
309
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
310 menuview_view_gaschange:
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
311 extern gaslist_strcat_gas_mod
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
312 btfss better_gas_available ; =1: A better gas is available
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
313 bra menuview_toggle ; No, call next option
138
2852b0bd6391 minor: some extra protection against wrong gas selection
heinrichsweikamp
parents: 137
diff changeset
314 btfsc divemode_gaschange ; Skip if the last gas change is not done yet.
2852b0bd6391 minor: some extra protection against wrong gas selection
heinrichsweikamp
parents: 137
diff changeset
315 bra menuview_toggle
137
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
316 bsf short_gas_decriptions ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
317 movff better_gas_number,PRODL ; number (1-5) of the "better gas" in divemode, =0: no better gas available
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
318 decf PRODL,F
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
319 call gaslist_strcat_gas_mod ; Append gas description of gas #PRODL (0-4) to current string
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
320 movlw .5
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
321 movwf FSR2L ; Point to char 6 (5 chars gas description only)
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
322 STRCAT_PRINT "?"
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
323 bra menuview_exit ; Done.
0
heinrichsweikamp
parents:
diff changeset
324 menuview_view1:
heinrichsweikamp
parents:
diff changeset
325 btfsc FLAG_apnoe_mode ; In Apnoe mode?
heinrichsweikamp
parents:
diff changeset
326 bra menuview_toggle ; Call next option
heinrichsweikamp
parents:
diff changeset
327 btfsc FLAG_gauge_mode ; In Gauge mode?
heinrichsweikamp
parents:
diff changeset
328 bra menuview_toggle ; Call next option
heinrichsweikamp
parents:
diff changeset
329 STRCPY_TEXT_PRINT tDivePreMenu ; "Menu?"
heinrichsweikamp
parents:
diff changeset
330 bra menuview_exit ; Done.
heinrichsweikamp
parents:
diff changeset
331 menuview_view2:
heinrichsweikamp
parents:
diff changeset
332 btfss simulatormode_active ; View only for simulator mode
heinrichsweikamp
parents:
diff changeset
333 bra menuview_toggle ; Call next option
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
334 STRCPY_TEXT_PRINT tQuitSim ; "Quit Simulation?"
0
heinrichsweikamp
parents:
diff changeset
335 bra menuview_exit ; Done.
heinrichsweikamp
parents:
diff changeset
336 menuview_view3:
heinrichsweikamp
parents:
diff changeset
337 btfss simulatormode_active ; View only for simulator mode
heinrichsweikamp
parents:
diff changeset
338 bra menuview_toggle ; Call next option
428
eccae727702f some cleanup
heinrichsweikamp
parents: 419
diff changeset
339 STRCPY_PRINT "Sim:-1m"
0
heinrichsweikamp
parents:
diff changeset
340 bra menuview_exit ; Done.
heinrichsweikamp
parents:
diff changeset
341 menuview_view4:
heinrichsweikamp
parents:
diff changeset
342 btfss simulatormode_active ; View only for simulator mode
heinrichsweikamp
parents:
diff changeset
343 bra menuview_toggle ; Call next option
428
eccae727702f some cleanup
heinrichsweikamp
parents: 419
diff changeset
344 STRCPY_PRINT "Sim:+1m"
0
heinrichsweikamp
parents:
diff changeset
345 bra menuview_exit ; Done.
heinrichsweikamp
parents:
diff changeset
346 menuview_view5:
heinrichsweikamp
parents:
diff changeset
347 btfss FLAG_apnoe_mode ; In Apnoe mode?
heinrichsweikamp
parents:
diff changeset
348 bra menuview_toggle ; No, call next option
184
faa06c58e977 BUGFIX: Quit Apnea mode on the surface manually
heinrichsweikamp
parents: 148
diff changeset
349 btfss FLAG_active_descent ; Are we descending?
0
heinrichsweikamp
parents:
diff changeset
350 bra menuview_toggle ; Yes
heinrichsweikamp
parents:
diff changeset
351 ; We are at the surface:
148
022b886eddaf some cleanup
heinrichsweikamp
parents: 138
diff changeset
352 STRCPY_TEXT_PRINT tQuitSim ; "Quit Apnea mode?"
0
heinrichsweikamp
parents:
diff changeset
353 bra menuview_exit ; Done.
heinrichsweikamp
parents:
diff changeset
354 menuview_view6:
heinrichsweikamp
parents:
diff changeset
355 btfss FLAG_gauge_mode ; In Gauge mode?
heinrichsweikamp
parents:
diff changeset
356 bra menuview_toggle ; No, call next option
437
23b58c4bc6aa CHANGE: Language fixes, 2.08 release
heinrichsweikamp
parents: 428
diff changeset
357 STRCPY_TEXT_PRINT tDivemenu_ResetAvg ; "Reset Avg."
0
heinrichsweikamp
parents:
diff changeset
358 bra menuview_exit ; Done.
216
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
359 menuview_view7:
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
360 btfss simulatormode_active ; View only for simulator mode
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
361 bra menuview_toggle ; Call next option
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
362 btfsc FLAG_gauge_mode ; In Gauge mode?
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
363 bra menuview_toggle ; Yes, call next option
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
364 btfsc FLAG_apnoe_mode ; In Apnoe mode?
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
365 bra menuview_toggle ; Yes, call next option
428
eccae727702f some cleanup
heinrichsweikamp
parents: 419
diff changeset
366 STRCPY_PRINT "Sim:+5'"
216
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
367 bra menuview_exit ; Done.
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
368 menuview_view8:
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
369 movlw .6
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
370 cpfseq menupos3 ; in compass view?
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
371 bra menuview_toggle ; No, call next option
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
372 STRCPY_TEXT_PRINT tSetHeading ; "Heading"
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
373 bra menuview_exit ; Done.
0
heinrichsweikamp
parents:
diff changeset
374
heinrichsweikamp
parents:
diff changeset
375
heinrichsweikamp
parents:
diff changeset
376 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
377 ; Show next customview (and delete this flag)
heinrichsweikamp
parents:
diff changeset
378 customview_toggle_reset: ; Timeout occured
heinrichsweikamp
parents:
diff changeset
379 clrf menupos3 ; Reset to zero (Zero=no custom view)
39
e4e91fe8b09d remember last customview in dive and surface mode
mh@mh-THINK.fritz.box
parents: 0
diff changeset
380 global customview_mask
0
heinrichsweikamp
parents:
diff changeset
381 customview_mask:
353
573f2251cf49 NEW: Quit Simulator automatically when starting a real dive
heinrichsweikamp
parents: 337
diff changeset
382 ; Clear custom view area in divemode
573f2251cf49 NEW: Quit Simulator automatically when starting a real dive
heinrichsweikamp
parents: 337
diff changeset
383 WIN_BOX_BLACK dm_customview_row, dm_customview_bot, dm_customview_column, dm_customview_rgt ; top, bottom, left, right
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
384 WIN_SMALL dm_customview_column,dm_customview_row
0
heinrichsweikamp
parents:
diff changeset
385 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
386 movff menupos3,WREG ; Menupos3 holds number of customview function
heinrichsweikamp
parents:
diff changeset
387 dcfsnz WREG,F
471
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
388 bra customview_init_view1 ; Update Sensor data
0
heinrichsweikamp
parents:
diff changeset
389 dcfsnz WREG,F
471
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
390 bra customview_init_view2 ; average depth and stopwatch
0
heinrichsweikamp
parents:
diff changeset
391 dcfsnz WREG,F
471
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
392 bra customview_init_view3 ; Decoplan
0
heinrichsweikamp
parents:
diff changeset
393 dcfsnz WREG,F
471
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
394 bra customview_init_view4 ; Battery info, Tissues and clock
0
heinrichsweikamp
parents:
diff changeset
395 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
396 bra customview_init_view5 ; GF informations
heinrichsweikamp
parents:
diff changeset
397 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
398 bra customview_init_view6 ; Compass
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
399 dcfsnz WREG,F
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
400 bra customview_init_view7 ; Dynamic gaslist
105
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 102
diff changeset
401 dcfsnz WREG,F
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 102
diff changeset
402 bra customview_init_view8 ; HUD voltages
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
403 dcfsnz WREG,F
471
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
404 bra customview_init_view9 ; ppO2, Ceiling and current GF
413
12e85930d95c NEW: New Customview shows ppO2(O2) and ppO2(Diluent) during CCR mode
heinrichsweikamp
parents: 376
diff changeset
405 dcfsnz WREG,F
12e85930d95c NEW: New Customview shows ppO2(O2) and ppO2(Diluent) during CCR mode
heinrichsweikamp
parents: 376
diff changeset
406 bra customview_init_view10 ; Sensor check
471
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
407 dcfsnz WREG,F
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
408 bra customview_init_view11 ; ppO2, END/EAD and CNS
482
c0ee33f1f399 New customview #12 for PSCR mode shows ppO2, O2 drop and lung ratio
heinrichsweikamp
parents: 476
diff changeset
409 dcfsnz WREG,F
c0ee33f1f399 New customview #12 for PSCR mode shows ppO2, O2 drop and lung ratio
heinrichsweikamp
parents: 476
diff changeset
410 bra customview_init_view12 ; PSCR Info
471
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
411
0
heinrichsweikamp
parents:
diff changeset
412 customview_init_nocustomview:
heinrichsweikamp
parents:
diff changeset
413 call I2C_sleep_accelerometer ; Stop accelerometer
heinrichsweikamp
parents:
diff changeset
414 call I2C_sleep_compass ; Stop compass
heinrichsweikamp
parents:
diff changeset
415 bra customview_toggle_exit
heinrichsweikamp
parents:
diff changeset
416
heinrichsweikamp
parents:
diff changeset
417 customview_init_view1:
485
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
418 btfsc FLAG_apnoe_mode ; In Apnoe mode?
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
419 bra customview_toggle ; yes, Call next view...
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
420 btfsc FLAG_pscr_mode ; In PSCR mode?
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
421 bra customview_init_view1a ; Yes
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
422 btfss FLAG_ccr_mode ; In CC mode?
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
423 bra customview_toggle ; no, Call next view...
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
424
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
425 customview_init_view1a:
249
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 216
diff changeset
426 movf hardware_flag,W
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 216
diff changeset
427 sublw 0x11 ; 2 with BLE
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 216
diff changeset
428 btfsc STATUS,Z
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 216
diff changeset
429 bra customview_toggle ; no, Call next view...
476
7c10557c248e no sensors in surface mode if the computer has no sensor inputs
heinrichsweikamp
parents: 472
diff changeset
430 movf hardware_flag,W
7c10557c248e no sensors in surface mode if the computer has no sensor inputs
heinrichsweikamp
parents: 472
diff changeset
431 sublw 0x13 ; +
7c10557c248e no sensors in surface mode if the computer has no sensor inputs
heinrichsweikamp
parents: 472
diff changeset
432 btfsc STATUS,Z
7c10557c248e no sensors in surface mode if the computer has no sensor inputs
heinrichsweikamp
parents: 472
diff changeset
433 bra customview_toggle ; no, Call next view...
0
heinrichsweikamp
parents:
diff changeset
434
heinrichsweikamp
parents:
diff changeset
435 bsf dive_hud1_displayed ; Set display flag
heinrichsweikamp
parents:
diff changeset
436 bsf dive_hud2_displayed ; Set display flag
heinrichsweikamp
parents:
diff changeset
437 bsf dive_hud3_displayed ; Set display flag
heinrichsweikamp
parents:
diff changeset
438 call TFT_hud_mask ; Setup HUD mask
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 189
diff changeset
439 call TFT_update_ppo2_sensors ; Update Sensor data
485
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
440 bra customview_toggle_exit
0
heinrichsweikamp
parents:
diff changeset
441
heinrichsweikamp
parents:
diff changeset
442 customview_init_view2:
heinrichsweikamp
parents:
diff changeset
443 btfsc FLAG_apnoe_mode ; In Apnoe mode?
heinrichsweikamp
parents:
diff changeset
444 bra customview_toggle ; Yes, Call next view...
heinrichsweikamp
parents:
diff changeset
445 call TFT_mask_avr_stopwatch ; Show mask for average depth and stopwatch
heinrichsweikamp
parents:
diff changeset
446 call TFT_update_avr_stopwatch ; Update average depth and stopwatch
heinrichsweikamp
parents:
diff changeset
447 bra customview_toggle_exit
heinrichsweikamp
parents:
diff changeset
448
heinrichsweikamp
parents:
diff changeset
449 customview_init_view3:
heinrichsweikamp
parents:
diff changeset
450 btfsc FLAG_apnoe_mode ; In Apnoe mode?
heinrichsweikamp
parents:
diff changeset
451 bra customview_toggle ; Yes, Call next view...
heinrichsweikamp
parents:
diff changeset
452 btfsc FLAG_gauge_mode ; In Gauge mode?
heinrichsweikamp
parents:
diff changeset
453 bra customview_toggle ; Yes, Call next view...
heinrichsweikamp
parents:
diff changeset
454 call TFT_decoplan ; Show decoplan
heinrichsweikamp
parents:
diff changeset
455 bra customview_toggle_exit
heinrichsweikamp
parents:
diff changeset
456
heinrichsweikamp
parents:
diff changeset
457 customview_init_view4:
471
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
458 call TFT_battinfo_tissues_clock_mask ; Setup Mask
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
459 call TFT_battinfo_tissues_clock ; Show Battery info, Tissues and clock
0
heinrichsweikamp
parents:
diff changeset
460 bra customview_toggle_exit
heinrichsweikamp
parents:
diff changeset
461
heinrichsweikamp
parents:
diff changeset
462 customview_init_view5:
heinrichsweikamp
parents:
diff changeset
463 btfsc FLAG_apnoe_mode ; In Apnoe mode?
heinrichsweikamp
parents:
diff changeset
464 bra customview_toggle ; Yes, Call next view...
heinrichsweikamp
parents:
diff changeset
465 btfsc FLAG_gauge_mode ; In Gauge mode?
heinrichsweikamp
parents:
diff changeset
466 bra customview_toggle ; Yes, Call next view...
119
2acf3d068fae Do not show "GF info" for non-GF modes
heinrichsweikamp
parents: 105
diff changeset
467
2acf3d068fae Do not show "GF info" for non-GF modes
heinrichsweikamp
parents: 105
diff changeset
468 extern char_I_deco_model
2acf3d068fae Do not show "GF info" for non-GF modes
heinrichsweikamp
parents: 105
diff changeset
469 TSTOSS char_I_deco_model ; 0 = ZH-L16, 1 = ZH-L16-GF
2acf3d068fae Do not show "GF info" for non-GF modes
heinrichsweikamp
parents: 105
diff changeset
470 bra customview_toggle ; No GF info for non-GF modes
2acf3d068fae Do not show "GF info" for non-GF modes
heinrichsweikamp
parents: 105
diff changeset
471
0
heinrichsweikamp
parents:
diff changeset
472 call TFT_gf_mask ; Setup Mask
heinrichsweikamp
parents:
diff changeset
473 call TFT_gf_info ; Show GF informations
heinrichsweikamp
parents:
diff changeset
474 bra customview_toggle_exit
heinrichsweikamp
parents:
diff changeset
475
heinrichsweikamp
parents:
diff changeset
476 customview_init_view6: ; Compass (View 6)
heinrichsweikamp
parents:
diff changeset
477 call I2C_init_accelerometer ; Start accelerometer
heinrichsweikamp
parents:
diff changeset
478 call I2C_init_compass ; Start compass
256
5b4ef0b9090d place compass display code into compass_ops.asm
heinrichsweikamp
parents: 254
diff changeset
479 extern TFT_dive_compass_mask
0
heinrichsweikamp
parents:
diff changeset
480 call TFT_dive_compass_mask ; Show compass
heinrichsweikamp
parents:
diff changeset
481 bra customview_toggle_exit
heinrichsweikamp
parents:
diff changeset
482
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
483 customview_init_view7: ; Dynamic gaslist (View 7)
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
484 btfsc FLAG_apnoe_mode ; In Apnoe mode?
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
485 bra customview_toggle ; Yes, Call next view...
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
486 btfsc FLAG_ccr_mode ; In CC mode?
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
487 bra customview_toggle ; Yes, Call next view...
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
488 call TFT_dyn_gaslist ; Show the dyn gaslist
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
489 bra customview_toggle_exit
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
490
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
491 customview_init_view8: ; Sensor millivolts
136
9a637c9bb19a rename Deco Planner to Simulator
heinrichsweikamp
parents: 134
diff changeset
492 btfsc FLAG_gauge_mode ; In Gauge mode?
9a637c9bb19a rename Deco Planner to Simulator
heinrichsweikamp
parents: 134
diff changeset
493 bra customview_toggle ; Yes, Call next view...
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
494 btfsc FLAG_apnoe_mode ; In Apnoe mode?
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
495 bra customview_toggle ; yes, Call next view...
485
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
496 btfsc FLAG_pscr_mode ; In PSCR mode?
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
497 bra customview_init_view8a ; Yes
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
498 btfss FLAG_ccr_mode ; In CC mode?
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
499 bra customview_toggle ; no, Call next view...
485
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
500 customview_init_view8a:
476
7c10557c248e no sensors in surface mode if the computer has no sensor inputs
heinrichsweikamp
parents: 472
diff changeset
501 movf hardware_flag,W
7c10557c248e no sensors in surface mode if the computer has no sensor inputs
heinrichsweikamp
parents: 472
diff changeset
502 sublw 0x13 ; +
7c10557c248e no sensors in surface mode if the computer has no sensor inputs
heinrichsweikamp
parents: 472
diff changeset
503 btfsc STATUS,Z
7c10557c248e no sensors in surface mode if the computer has no sensor inputs
heinrichsweikamp
parents: 472
diff changeset
504 bra customview_toggle ; no, Call next view...
7c10557c248e no sensors in surface mode if the computer has no sensor inputs
heinrichsweikamp
parents: 472
diff changeset
505
337
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
506 movff opt_ccr_mode,WREG ; =0: Fixed SP, =1: Sensor, =2: Auto SP
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
507 sublw .1 ; opt_ccr_mode = 1 (Sensor)?
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
508 bnz customview_toggle ; no, Call next view...
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
509 call TFT_hud_mask ; Setup HUD mask
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
510 call TFT_hud_voltages ; Show HUD details
485
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
511 goto customview_toggle_exit
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
512
471
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
513 customview_init_view9: ; ppO2, Ceiling and current GF
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
514 btfsc FLAG_apnoe_mode ; In Apnoe mode?
485
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
515 bra customview_toggle ; yes, Call next view...
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
516 btfsc FLAG_gauge_mode ; In Gauge mode?
485
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
517 bra customview_toggle ; Yes, Call next view...
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
518 call TFT_ceiling_mask ; Setup mask
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
519 call TFT_ceiling ; Show Ceiling
333
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
520
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
521 ; ppO2 value
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
522 call TFT_mask_ppo2
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
523 call TFT_display_ppo2_val
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
524
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
525 ; current GF value
525
00df86a5ac01 BUGFIX: Do not show GF in divemode for non-GF deco mode
heinrichsweikamp
parents: 517
diff changeset
526 extern char_I_deco_model
00df86a5ac01 BUGFIX: Do not show GF in divemode for non-GF deco mode
heinrichsweikamp
parents: 517
diff changeset
527 TSTOSS char_I_deco_model ; 0 = ZH-L16, 1 = ZH-L16-GF
00df86a5ac01 BUGFIX: Do not show GF in divemode for non-GF deco mode
heinrichsweikamp
parents: 517
diff changeset
528 bra customview_toggle_exit ; No GF info for non-GF modes
00df86a5ac01 BUGFIX: Do not show GF in divemode for non-GF deco mode
heinrichsweikamp
parents: 517
diff changeset
529 ; current GF value
333
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
530 call TFT_gf_mask_cGF ; Setup Mask - current GF only
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
531 call TFT_gf_info ; Show GF informations
525
00df86a5ac01 BUGFIX: Do not show GF in divemode for non-GF deco mode
heinrichsweikamp
parents: 517
diff changeset
532 bra customview_toggle_exit
00df86a5ac01 BUGFIX: Do not show GF in divemode for non-GF deco mode
heinrichsweikamp
parents: 517
diff changeset
533
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
534
485
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
535 ;=============================================================================
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
536 ; Show next customview (and delete this flag)
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
537 global customview_toggle
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
538 customview_toggle:
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
539 bcf switch_right
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
540 incf menupos3,F ; Number of customview to show
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
541 movlw d'12' ; Max number of customsviews in divemode
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
542 cpfsgt menupos3 ; Max reached?
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
543 goto customview_mask ; No, show
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
544 goto customview_toggle_reset
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
545
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
546
413
12e85930d95c NEW: New Customview shows ppO2(O2) and ppO2(Diluent) during CCR mode
heinrichsweikamp
parents: 376
diff changeset
547 customview_init_view10: ; Sensor check
471
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
548 btfsc FLAG_apnoe_mode ; In Apnoe mode?
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
549 bra customview_toggle ; yes, Call next view...
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
550 btfsc FLAG_gauge_mode ; In Gauge mode?
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
551 bra customview_toggle ; Yes, Call next view...
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
552 btfss FLAG_ccr_mode ; In CC mode?
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
553 bra customview_toggle ; no, Call next view...
413
12e85930d95c NEW: New Customview shows ppO2(O2) and ppO2(Diluent) during CCR mode
heinrichsweikamp
parents: 376
diff changeset
554
12e85930d95c NEW: New Customview shows ppO2(O2) and ppO2(Diluent) during CCR mode
heinrichsweikamp
parents: 376
diff changeset
555 call TFT_sensor_check_mask ; Show ppO2 of O2 and Diluent mask
12e85930d95c NEW: New Customview shows ppO2(O2) and ppO2(Diluent) during CCR mode
heinrichsweikamp
parents: 376
diff changeset
556 call TFT_sensor_check ; Show ppO2 of O2 and Diluent
12e85930d95c NEW: New Customview shows ppO2(O2) and ppO2(Diluent) during CCR mode
heinrichsweikamp
parents: 376
diff changeset
557 bra customview_toggle_exit
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
558
471
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
559 customview_init_view11: ; ppO2, END/EAD and CNS
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
560 btfsc FLAG_apnoe_mode ; In Apnoe mode?
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
561 bra customview_toggle ; yes, Call next view...
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
562 btfsc FLAG_gauge_mode ; In Gauge mode?
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
563 bra customview_toggle ; Yes, Call next view...
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
564
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
565 call TFT_ppo2_ead_end_cns_mask ; Show ppO2, END/EAD and CNS mask
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
566 call TFT_ppo2_ead_end_cns ; Show ppO2, END/EAD and CNS
485
18e047102e49 3.14 BETA release
heinrichsweikamp
parents: 482
diff changeset
567 goto customview_toggle_exit
482
c0ee33f1f399 New customview #12 for PSCR mode shows ppO2, O2 drop and lung ratio
heinrichsweikamp
parents: 476
diff changeset
568
c0ee33f1f399 New customview #12 for PSCR mode shows ppO2, O2 drop and lung ratio
heinrichsweikamp
parents: 476
diff changeset
569 customview_init_view12: ; PSCR Info
c0ee33f1f399 New customview #12 for PSCR mode shows ppO2, O2 drop and lung ratio
heinrichsweikamp
parents: 476
diff changeset
570 btfss FLAG_pscr_mode ; In PSCR mode?
c0ee33f1f399 New customview #12 for PSCR mode shows ppO2, O2 drop and lung ratio
heinrichsweikamp
parents: 476
diff changeset
571 bra customview_toggle ; No, Call next view...
c0ee33f1f399 New customview #12 for PSCR mode shows ppO2, O2 drop and lung ratio
heinrichsweikamp
parents: 476
diff changeset
572
c0ee33f1f399 New customview #12 for PSCR mode shows ppO2, O2 drop and lung ratio
heinrichsweikamp
parents: 476
diff changeset
573 call TFT_pscr_info_mask ; Show ppO2, drop and lung ratio
c0ee33f1f399 New customview #12 for PSCR mode shows ppO2, O2 drop and lung ratio
heinrichsweikamp
parents: 476
diff changeset
574 call TFT_pscr_info ; Show ppO2, drop and lung ratio
c0ee33f1f399 New customview #12 for PSCR mode shows ppO2, O2 drop and lung ratio
heinrichsweikamp
parents: 476
diff changeset
575 bra customview_toggle_exit
471
9edb1359ce43 NEW: New Customview 11 in dive mode shows ppO2, EAD/END and CNS
heinrichsweikamp
parents: 437
diff changeset
576
0
heinrichsweikamp
parents:
diff changeset
577 customview_toggle_exit:
530
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
578 btfsc divemode ; In Dive Mode?
d36f9fca10ae 2.20beta release
heinrichsweikamp
parents: 525
diff changeset
579 call TFT_temp_divemode ; Yes, redraw temperature
0
heinrichsweikamp
parents:
diff changeset
580 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
581 bcf toggle_customview ; Clear flag
heinrichsweikamp
parents:
diff changeset
582 return
heinrichsweikamp
parents:
diff changeset
583
heinrichsweikamp
parents:
diff changeset
584 global customview_show_change_depth
heinrichsweikamp
parents:
diff changeset
585 customview_show_change_depth: ; Put " lom" or " loft" into Postinc2
heinrichsweikamp
parents:
diff changeset
586 PUTC " "
heinrichsweikamp
parents:
diff changeset
587 TSTOSS opt_units ; 0=m, 1=ft
heinrichsweikamp
parents:
diff changeset
588 bra customview_show_mix_metric
heinrichsweikamp
parents:
diff changeset
589 movf lo,W
heinrichsweikamp
parents:
diff changeset
590 mullw .100 ; convert meters to mbar
heinrichsweikamp
parents:
diff changeset
591 movff PRODL,lo
heinrichsweikamp
parents:
diff changeset
592 movff PRODH,hi
heinrichsweikamp
parents:
diff changeset
593 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
594 bsf leftbind
heinrichsweikamp
parents:
diff changeset
595 output_16 ; Change depth in lo:hi
heinrichsweikamp
parents:
diff changeset
596 bcf leftbind
heinrichsweikamp
parents:
diff changeset
597 STRCAT_TEXT tFeets
heinrichsweikamp
parents:
diff changeset
598 return
heinrichsweikamp
parents:
diff changeset
599 customview_show_mix_metric:
heinrichsweikamp
parents:
diff changeset
600 output_99 ; Change depth in lo
heinrichsweikamp
parents:
diff changeset
601 STRCAT_TEXT tMeters
heinrichsweikamp
parents:
diff changeset
602 return
heinrichsweikamp
parents:
diff changeset
603
heinrichsweikamp
parents:
diff changeset
604
heinrichsweikamp
parents:
diff changeset
605 global customview_show_mix
heinrichsweikamp
parents:
diff changeset
606 customview_show_mix: ; Put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2
heinrichsweikamp
parents:
diff changeset
607 tstfsz hi ; He=0?
heinrichsweikamp
parents:
diff changeset
608 bra customview_show_mix5 ; No, Show a TX
heinrichsweikamp
parents:
diff changeset
609 movlw .21
heinrichsweikamp
parents:
diff changeset
610 cpfseq lo ; Air?
heinrichsweikamp
parents:
diff changeset
611 bra customview_show_mix2 ; No
heinrichsweikamp
parents:
diff changeset
612 STRCAT_TEXT tSelectAir ; Yes, show "Air"
heinrichsweikamp
parents:
diff changeset
613 bra customview_show_mix4b
heinrichsweikamp
parents:
diff changeset
614 customview_show_mix2:
heinrichsweikamp
parents:
diff changeset
615 movlw .100
heinrichsweikamp
parents:
diff changeset
616 cpfseq lo ; O2?
heinrichsweikamp
parents:
diff changeset
617 bra customview_show_mix3 ; No
heinrichsweikamp
parents:
diff changeset
618 STRCAT_TEXT tSelectO2 ; Yes, show "O2"
heinrichsweikamp
parents:
diff changeset
619 bra customview_show_mix4b
heinrichsweikamp
parents:
diff changeset
620
heinrichsweikamp
parents:
diff changeset
621 customview_show_mix3:
heinrichsweikamp
parents:
diff changeset
622 movlw .21
heinrichsweikamp
parents:
diff changeset
623 cpfslt lo ; < Nx21?
heinrichsweikamp
parents:
diff changeset
624 bra customview_show_mix4 ; No
heinrichsweikamp
parents:
diff changeset
625 STRCAT_TEXT tGasErr ; Yes, show "Err"
heinrichsweikamp
parents:
diff changeset
626 output_99 ; O2 ratio is still in "lo"
heinrichsweikamp
parents:
diff changeset
627 bra customview_show_mix4c
heinrichsweikamp
parents:
diff changeset
628
heinrichsweikamp
parents:
diff changeset
629 customview_show_mix4:
heinrichsweikamp
parents:
diff changeset
630 STRCAT_TEXT tSelectNx ; Show "Nx"
heinrichsweikamp
parents:
diff changeset
631 output_99 ; O2 ratio is still in "lo"
heinrichsweikamp
parents:
diff changeset
632 customview_show_mix4b:
heinrichsweikamp
parents:
diff changeset
633 STRCAT " "
heinrichsweikamp
parents:
diff changeset
634 customview_show_mix4c:
heinrichsweikamp
parents:
diff changeset
635 btfsc divemode ; In divemode
heinrichsweikamp
parents:
diff changeset
636 return ; Yes
heinrichsweikamp
parents:
diff changeset
637 STRCAT " "
heinrichsweikamp
parents:
diff changeset
638 return
heinrichsweikamp
parents:
diff changeset
639
heinrichsweikamp
parents:
diff changeset
640 customview_show_mix5:
heinrichsweikamp
parents:
diff changeset
641 btfsc divemode
heinrichsweikamp
parents:
diff changeset
642 bra customview_show_mix6
heinrichsweikamp
parents:
diff changeset
643 STRCAT_TEXT tSelectTx ; Show "Tx"
heinrichsweikamp
parents:
diff changeset
644 customview_show_mix6:
heinrichsweikamp
parents:
diff changeset
645 output_99 ; O2 ratio is still in "lo"
heinrichsweikamp
parents:
diff changeset
646 PUTC "/"
heinrichsweikamp
parents:
diff changeset
647 movff hi,lo
heinrichsweikamp
parents:
diff changeset
648 output_99 ; He ratio
heinrichsweikamp
parents:
diff changeset
649 return
heinrichsweikamp
parents:
diff changeset
650
heinrichsweikamp
parents:
diff changeset
651 END