Mercurial > public > hwos_code

annotate src/customview.asm @ 352:5c6da9fa5cb0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add setpoint change to first sample in CCR mode
author heinrichsweikamp
date Tue, 28 Jul 2015 13:23:09 +0200
parents 508d7fb98b34
children 573f2251cf49
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:
heinrichsweikamp
parents:
diff changeset
32 movff menupos3,WREG ; copy
heinrichsweikamp
parents:
diff changeset
33 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
34 bra customview_1sec_view1
heinrichsweikamp
parents:
diff changeset
35 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
36 bra customview_1sec_view2
heinrichsweikamp
parents:
diff changeset
37 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
38 bra customview_1sec_view3
heinrichsweikamp
parents:
diff changeset
39 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
40 bra customview_1sec_view4
heinrichsweikamp
parents:
diff changeset
41 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
42 bra customview_1sec_view5
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
43 dcfsnz WREG,F
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
44 bra customview_1sec_view6
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
45 dcfsnz WREG,F
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
46 bra customview_1sec_view7
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
47 dcfsnz WREG,F
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
48 bra customview_1sec_view8
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
49 dcfsnz WREG,F
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
50 bra customview_1sec_view9
0
heinrichsweikamp
parents:
diff changeset
51 ; Menupos3=0, do nothing
heinrichsweikamp
parents:
diff changeset
52 return
heinrichsweikamp
parents:
diff changeset
53
heinrichsweikamp
parents:
diff changeset
54 customview_1sec_view3:
heinrichsweikamp
parents:
diff changeset
55 call TFT_decoplan ; Show decoplan
heinrichsweikamp
parents:
diff changeset
56 return
heinrichsweikamp
parents:
diff changeset
57 customview_1sec_view2:
heinrichsweikamp
parents:
diff changeset
58 call TFT_update_avr_stopwatch ; Update average depth and stopwatch
heinrichsweikamp
parents:
diff changeset
59 return
heinrichsweikamp
parents:
diff changeset
60 customview_1sec_view1:
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 189
diff changeset
61 call TFT_update_ppo2_sensors ; Update Sensor data
0
heinrichsweikamp
parents:
diff changeset
62 return
heinrichsweikamp
parents:
diff changeset
63 customview_1sec_view4:
heinrichsweikamp
parents:
diff changeset
64 call TFT_ead_end_tissues_clock ; Update EAD/END, Tissues and clock
heinrichsweikamp
parents:
diff changeset
65 return
heinrichsweikamp
parents:
diff changeset
66 customview_1sec_view5:
heinrichsweikamp
parents:
diff changeset
67 call TFT_gf_info ; Update GF informations
heinrichsweikamp
parents:
diff changeset
68 return
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
69 customview_1sec_view6:
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
70 ; Compass updated seperately (Faster) in divemode
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
71 return
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
72 customview_1sec_view7: ; Dynamic gaslist
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
73 call TFT_dyn_gaslist ; Update the gaslist
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
74 return
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
75 customview_1sec_view8: ; Sensor voltages
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
76 call TFT_hud_voltages ; Show HUD details
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
77 return
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
78 customview_1sec_view9: ; Ceiling
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
79 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
80
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
81 ; ppO2 value
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
82 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
83
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
84 ; current GF value
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
85 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
86 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
87 return ; No GF info for non-GF modes
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
88 call TFT_gf_info ; Update GF informations
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
89
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
90 return
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
91
0
heinrichsweikamp
parents:
diff changeset
92
heinrichsweikamp
parents:
diff changeset
93 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
94 ; Do every-minute tasks for the custom view area
heinrichsweikamp
parents:
diff changeset
95
heinrichsweikamp
parents:
diff changeset
96 global customview_minute
heinrichsweikamp
parents:
diff changeset
97 customview_minute:
heinrichsweikamp
parents:
diff changeset
98 return
heinrichsweikamp
parents:
diff changeset
99 ; movff menupos3,WREG ; copy
heinrichsweikamp
parents:
diff changeset
100 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
101 ; bra customview_1min_view1
heinrichsweikamp
parents:
diff changeset
102 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
103 ; bra customview_1min_view2
heinrichsweikamp
parents:
diff changeset
104 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
105 ; bra customview_1min_view3
heinrichsweikamp
parents:
diff changeset
106 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
107 ; bra customview_1min_view4
heinrichsweikamp
parents:
diff changeset
108 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
109 ; bra customview_1min_view5
heinrichsweikamp
parents:
diff changeset
110 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
111 ; bra customview_1min_view6
heinrichsweikamp
parents:
diff changeset
112 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
113 ; bra customview_1min_view7
heinrichsweikamp
parents:
diff changeset
114 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
115 ; bra customview_1min_view8
heinrichsweikamp
parents:
diff changeset
116 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
117 ; bra customview_1min_view9
heinrichsweikamp
parents:
diff changeset
118 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
119 ; bra customview_1min_view10
heinrichsweikamp
parents:
diff changeset
120 ; dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
121 ; bra customview_1min_view11
heinrichsweikamp
parents:
diff changeset
122 ; ; Menupos3=0, do nothing
heinrichsweikamp
parents:
diff changeset
123 ; return
heinrichsweikamp
parents:
diff changeset
124 ;
heinrichsweikamp
parents:
diff changeset
125 ;customview_1min_view1:
heinrichsweikamp
parents:
diff changeset
126 ;customview_1min_view2:
heinrichsweikamp
parents:
diff changeset
127 ;customview_1min_view3:
heinrichsweikamp
parents:
diff changeset
128 ;customview_1min_view4:
heinrichsweikamp
parents:
diff changeset
129 ;customview_1min_view5:
heinrichsweikamp
parents:
diff changeset
130 ;customview_1min_view6:
heinrichsweikamp
parents:
diff changeset
131 ;customview_1min_view7:
heinrichsweikamp
parents:
diff changeset
132 ;customview_1min_view8:
heinrichsweikamp
parents:
diff changeset
133 ;customview_1min_view9:
heinrichsweikamp
parents:
diff changeset
134 ;customview_1min_view10:
heinrichsweikamp
parents:
diff changeset
135 ;customview_1min_view11:
heinrichsweikamp
parents:
diff changeset
136 ; return
heinrichsweikamp
parents:
diff changeset
137
heinrichsweikamp
parents:
diff changeset
138 global surf_customview_toggle
heinrichsweikamp
parents:
diff changeset
139 surf_customview_toggle:
heinrichsweikamp
parents:
diff changeset
140 bcf switch_right
heinrichsweikamp
parents:
diff changeset
141 incf menupos3,F ; Number of customview to show
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
142 movlw d'7' ; Max number of customsviews in surface mode
0
heinrichsweikamp
parents:
diff changeset
143 cpfsgt menupos3 ; Max reached?
heinrichsweikamp
parents:
diff changeset
144 bra surf_customview_mask ; No, show
heinrichsweikamp
parents:
diff changeset
145 movlw .1
heinrichsweikamp
parents:
diff changeset
146 movwf menupos3 ; Reset to one (Always one custom view visible)
heinrichsweikamp
parents:
diff changeset
147
heinrichsweikamp
parents:
diff changeset
148 global surf_customview_mask
heinrichsweikamp
parents:
diff changeset
149 surf_customview_mask:
48
7c7d7644ca37 Time and Date in normal (Not tiny) font
heinrichsweikamp
parents: 41
diff changeset
150 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
151 ; Prepare title
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
152 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
153 WIN_COLOR color_greenish
0
heinrichsweikamp
parents:
diff changeset
154 movff menupos3,WREG ; Menupos3 holds number of customview function
heinrichsweikamp
parents:
diff changeset
155 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
156 bra surf_customview_init_view1 ; OC Gas list
heinrichsweikamp
parents:
diff changeset
157 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
158 bra surf_customview_init_view2 ; CC Dil list
heinrichsweikamp
parents:
diff changeset
159 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
160 bra surf_customview_init_view3 ; CC SP list
heinrichsweikamp
parents:
diff changeset
161 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
162 bra surf_customview_init_view4 ; Custom Text
heinrichsweikamp
parents:
diff changeset
163 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
164 bra surf_customview_init_view5 ; Tissue Diagram
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
165 dcfsnz WREG,F
0
heinrichsweikamp
parents:
diff changeset
166 bra surf_customview_init_view6 ; Compass
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
167 dcfsnz WREG,F
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
168 bra surf_customview_init_view7 ; Deco settings
0
heinrichsweikamp
parents:
diff changeset
169
heinrichsweikamp
parents:
diff changeset
170 call I2C_sleep_accelerometer ; Stop accelerometer
heinrichsweikamp
parents:
diff changeset
171 call I2C_sleep_compass ; Stop compass
heinrichsweikamp
parents:
diff changeset
172
heinrichsweikamp
parents:
diff changeset
173 movlw .1
heinrichsweikamp
parents:
diff changeset
174 movwf menupos3 ; Reset to one (Always one custom view visible)
heinrichsweikamp
parents:
diff changeset
175
heinrichsweikamp
parents:
diff changeset
176 surf_customview_init_view1: ; View1: OC Gas list
heinrichsweikamp
parents:
diff changeset
177 btfsc FLAG_gauge_mode
heinrichsweikamp
parents:
diff changeset
178 bra surf_customview_toggle
heinrichsweikamp
parents:
diff changeset
179 btfsc FLAG_apnoe_mode
heinrichsweikamp
parents:
diff changeset
180 bra surf_customview_toggle
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
181 btfsc FLAG_ccr_mode
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
182 bra surf_customview_init_view1_bail ; Bailoutversion
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
183 STRCPY_TEXT_PRINT tGaslist ; Title of customview
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
184 call TFT_standard_color
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
185 call TFT_gaslist_surfmode ; Show gas list
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
186 bra customview_toggle_exit ; Done.
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
187
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
188 surf_customview_init_view1_bail:
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
189 STRCPY_TEXT_PRINT tDiveBailout ; Title of customview
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
190 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
191 call TFT_gaslist_surfmode ; Show gas list
heinrichsweikamp
parents:
diff changeset
192 bra customview_toggle_exit ; Done.
heinrichsweikamp
parents:
diff changeset
193
heinrichsweikamp
parents:
diff changeset
194 surf_customview_init_view2: ; View2: CC Dil list
heinrichsweikamp
parents:
diff changeset
195 btfss FLAG_ccr_mode
heinrichsweikamp
parents:
diff changeset
196 bra surf_customview_toggle
heinrichsweikamp
parents:
diff changeset
197 btfsc FLAG_gauge_mode
heinrichsweikamp
parents:
diff changeset
198 bra surf_customview_toggle
heinrichsweikamp
parents:
diff changeset
199 btfsc FLAG_apnoe_mode
heinrichsweikamp
parents:
diff changeset
200 bra surf_customview_toggle
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
201 STRCPY_TEXT_PRINT tGaslistCC ; Title of customview
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
202 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
203 call TFT_dillist_surfmode ; Show diluent list
heinrichsweikamp
parents:
diff changeset
204 bra customview_toggle_exit ; Done.
heinrichsweikamp
parents:
diff changeset
205
heinrichsweikamp
parents:
diff changeset
206 surf_customview_init_view3: ; View3: CC SP list
heinrichsweikamp
parents:
diff changeset
207 btfss FLAG_ccr_mode
heinrichsweikamp
parents:
diff changeset
208 bra surf_customview_toggle
heinrichsweikamp
parents:
diff changeset
209 btfsc FLAG_gauge_mode
heinrichsweikamp
parents:
diff changeset
210 bra surf_customview_toggle
heinrichsweikamp
parents:
diff changeset
211 btfsc FLAG_apnoe_mode
heinrichsweikamp
parents:
diff changeset
212 bra surf_customview_toggle
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
213 STRCPY_TEXT_PRINT tFixedSetpoints ; Title of customview
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
214 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
215 call TFT_splist_surfmode ; Show Setpoint list
heinrichsweikamp
parents:
diff changeset
216 bra customview_toggle_exit ; Done.
heinrichsweikamp
parents:
diff changeset
217
heinrichsweikamp
parents:
diff changeset
218 surf_customview_init_view4: ; View4: Custom text
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
219 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
220 call TFT_custom_text ; Show the custom text
heinrichsweikamp
parents:
diff changeset
221 bra customview_toggle_exit ; Done.
heinrichsweikamp
parents:
diff changeset
222
heinrichsweikamp
parents:
diff changeset
223 surf_customview_init_view5: ; View5: Tissue Diagram
heinrichsweikamp
parents:
diff changeset
224 btfsc FLAG_gauge_mode
heinrichsweikamp
parents:
diff changeset
225 bra surf_customview_toggle
heinrichsweikamp
parents:
diff changeset
226 btfsc FLAG_apnoe_mode
heinrichsweikamp
parents:
diff changeset
227 bra surf_customview_toggle
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 184
diff changeset
228 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
229 call TFT_surface_tissues ; Show Tissue diagram
heinrichsweikamp
parents:
diff changeset
230 bra customview_toggle_exit ; Done.
heinrichsweikamp
parents:
diff changeset
231
heinrichsweikamp
parents:
diff changeset
232 surf_customview_init_view6: ; View6: Compass
heinrichsweikamp
parents:
diff changeset
233 call I2C_init_accelerometer ; Start accelerometer
heinrichsweikamp
parents:
diff changeset
234 call I2C_init_compass ; Start compass
256
5b4ef0b9090d place compass display code into compass_ops.asm
heinrichsweikamp
parents: 254
diff changeset
235 extern TFT_surface_compass_mask
0
heinrichsweikamp
parents:
diff changeset
236 call TFT_surface_compass_mask ; Show compass
heinrichsweikamp
parents:
diff changeset
237 bra customview_toggle_exit ; Done.
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
238 surf_customview_init_view7:
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
239 btfsc FLAG_gauge_mode
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
240 bra surf_customview_toggle
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
241 btfsc FLAG_apnoe_mode
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
242 bra surf_customview_toggle
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
243 extern deco_setup_dive
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
244 call deco_setup_dive
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
245 call TFT_surface_decosettings ; Show all deco settings
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 39
diff changeset
246 bra customview_toggle_exit ; Done.
0
heinrichsweikamp
parents:
diff changeset
247
heinrichsweikamp
parents:
diff changeset
248 global menuview_toggle
heinrichsweikamp
parents:
diff changeset
249 menuview_toggle: ; Show Menu or the simulator tasks
heinrichsweikamp
parents:
diff changeset
250 movlw divemode_menuview_timeout
heinrichsweikamp
parents:
diff changeset
251 movwf timeout_counter3
heinrichsweikamp
parents:
diff changeset
252 bsf menuview
heinrichsweikamp
parents:
diff changeset
253 bcf switch_left
heinrichsweikamp
parents:
diff changeset
254 incf menupos2,F ; Number of options to show
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
255 movlw d'9' ; Max number of options in divemode
0
heinrichsweikamp
parents:
diff changeset
256 cpfsgt menupos2 ; Max reached?
heinrichsweikamp
parents:
diff changeset
257 bra menuview_mask ; No, show
heinrichsweikamp
parents:
diff changeset
258 global menuview_toggle_reset
heinrichsweikamp
parents:
diff changeset
259 menuview_toggle_reset: ; Timeout occured
heinrichsweikamp
parents:
diff changeset
260 clrf menupos2
heinrichsweikamp
parents:
diff changeset
261 bcf menuview
heinrichsweikamp
parents:
diff changeset
262 menuview_mask:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
263 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
264 btfss FLAG_gauge_mode
heinrichsweikamp
parents:
diff changeset
265 bra menuview_mask2
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
266 ; 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
267 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
268 menuview_mask2:
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
269 call TFT_draw_gassep_line
0
heinrichsweikamp
parents:
diff changeset
270 movlw color_yellow
heinrichsweikamp
parents:
diff changeset
271 call TFT_set_color
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
272 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
273 WIN_SMALL dm_simtext_column,dm_simtext_row
0
heinrichsweikamp
parents:
diff changeset
274 movff menupos2,WREG ; Menupos2 holds number of menu option to show
heinrichsweikamp
parents:
diff changeset
275 dcfsnz WREG,F
137
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
276 bra menuview_view_gaschange ; If a better gas is indicated
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
277 dcfsnz WREG,F
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
278 bra menuview_view1 ; "Menu?" (Not in Gauge and Anpnoe)
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
279 dcfsnz WREG,F
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
280 bra menuview_view2 ; "Quit Simulation?" (Sim only)
0
heinrichsweikamp
parents:
diff changeset
281 dcfsnz WREG,F
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
282 bra menuview_view3 ; "Descent 1m" (Sim only)
0
heinrichsweikamp
parents:
diff changeset
283 dcfsnz WREG,F
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
284 bra menuview_view4 ; "Ascend 1m" (Sim only)
0
heinrichsweikamp
parents:
diff changeset
285 dcfsnz WREG,F
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
286 bra menuview_view5 ; "Quit Apnea mode?" (Apnea only)
0
heinrichsweikamp
parents:
diff changeset
287 dcfsnz WREG,F
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
288 bra menuview_view6 ; "Reset Avr." (Gauge only)
0
heinrichsweikamp
parents:
diff changeset
289 dcfsnz WREG,F
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
290 bra menuview_view7 ; "Sim:+5mins" (Sim only)
216
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
291 dcfsnz WREG,F
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
292 bra menuview_view8 ; "Heading" (When compass is shown)
0
heinrichsweikamp
parents:
diff changeset
293 menuview_exit:
heinrichsweikamp
parents:
diff changeset
294 call TFT_standard_color
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
295 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
296 return ; Menupos2 = 0, Show nothing
137
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
297
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
298
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
299 menuview_view_gaschange:
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
300 extern gaslist_strcat_gas_mod
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
301 btfss better_gas_available ; =1: A better gas is available
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
302 bra menuview_toggle ; No, call next option
138
2852b0bd6391 minor: some extra protection against wrong gas selection
heinrichsweikamp
parents: 137
diff changeset
303 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
304 bra menuview_toggle
137
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
305 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
306 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
307 decf PRODL,F
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
308 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
309 movlw .5
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
310 movwf FSR2L ; Point to char 6 (5 chars gas description only)
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
311 STRCAT_PRINT "?"
28b057aa9f75 Simplify gas change
heinrichsweikamp
parents: 136
diff changeset
312 bra menuview_exit ; Done.
0
heinrichsweikamp
parents:
diff changeset
313 menuview_view1:
heinrichsweikamp
parents:
diff changeset
314 btfsc FLAG_apnoe_mode ; In Apnoe mode?
heinrichsweikamp
parents:
diff changeset
315 bra menuview_toggle ; Call next option
heinrichsweikamp
parents:
diff changeset
316 btfsc FLAG_gauge_mode ; In Gauge mode?
heinrichsweikamp
parents:
diff changeset
317 bra menuview_toggle ; Call next option
heinrichsweikamp
parents:
diff changeset
318 STRCPY_TEXT_PRINT tDivePreMenu ; "Menu?"
heinrichsweikamp
parents:
diff changeset
319 bra menuview_exit ; Done.
heinrichsweikamp
parents:
diff changeset
320 menuview_view2:
heinrichsweikamp
parents:
diff changeset
321 btfss simulatormode_active ; View only for simulator mode
heinrichsweikamp
parents:
diff changeset
322 bra menuview_toggle ; Call next option
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
323 STRCPY_TEXT_PRINT tQuitSim ; "Quit Simulation?"
0
heinrichsweikamp
parents:
diff changeset
324 bra menuview_exit ; Done.
heinrichsweikamp
parents:
diff changeset
325 menuview_view3:
heinrichsweikamp
parents:
diff changeset
326 btfss simulatormode_active ; View only for simulator mode
heinrichsweikamp
parents:
diff changeset
327 bra menuview_toggle ; Call next option
heinrichsweikamp
parents:
diff changeset
328 STRCPY_TEXT_PRINT tDescent1m ; "Descent 1m"
heinrichsweikamp
parents:
diff changeset
329 bra menuview_exit ; Done.
heinrichsweikamp
parents:
diff changeset
330 menuview_view4:
heinrichsweikamp
parents:
diff changeset
331 btfss simulatormode_active ; View only for simulator mode
heinrichsweikamp
parents:
diff changeset
332 bra menuview_toggle ; Call next option
heinrichsweikamp
parents:
diff changeset
333 STRCPY_TEXT_PRINT tAscent1m ; "Ascend 1m"
heinrichsweikamp
parents:
diff changeset
334 bra menuview_exit ; Done.
heinrichsweikamp
parents:
diff changeset
335 menuview_view5:
heinrichsweikamp
parents:
diff changeset
336 btfss FLAG_apnoe_mode ; In Apnoe mode?
heinrichsweikamp
parents:
diff changeset
337 bra menuview_toggle ; No, call next option
184
faa06c58e977 BUGFIX: Quit Apnea mode on the surface manually
heinrichsweikamp
parents: 148
diff changeset
338 btfss FLAG_active_descent ; Are we descending?
0
heinrichsweikamp
parents:
diff changeset
339 bra menuview_toggle ; Yes
heinrichsweikamp
parents:
diff changeset
340 ; We are at the surface:
148
022b886eddaf some cleanup
heinrichsweikamp
parents: 138
diff changeset
341 STRCPY_TEXT_PRINT tQuitSim ; "Quit Apnea mode?"
0
heinrichsweikamp
parents:
diff changeset
342 bra menuview_exit ; Done.
heinrichsweikamp
parents:
diff changeset
343 menuview_view6:
heinrichsweikamp
parents:
diff changeset
344 btfss FLAG_gauge_mode ; In Gauge mode?
heinrichsweikamp
parents:
diff changeset
345 bra menuview_toggle ; No, call next option
heinrichsweikamp
parents:
diff changeset
346 STRCPY_TEXT_PRINT tDivemenu_ResetAvr ; "Reset Avr."
heinrichsweikamp
parents:
diff changeset
347 bra menuview_exit ; Done.
216
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
348 menuview_view7:
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
349 btfss simulatormode_active ; View only for simulator mode
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
350 bra menuview_toggle ; Call next option
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
351 btfsc FLAG_gauge_mode ; In Gauge mode?
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
352 bra menuview_toggle ; Yes, call next option
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
353 btfsc FLAG_apnoe_mode ; In Apnoe mode?
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
354 bra menuview_toggle ; Yes, call next option
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
355 STRCPY_TEXT_PRINT tplus5min ; "Sim:+5mins"
973a0969e0ac NEW: On-board simulator can increase divetime in 5min steps
heinrichsweikamp
parents: 192
diff changeset
356 bra menuview_exit ; Done.
254
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
357 menuview_view8:
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
358 movlw .6
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
359 cpfseq menupos3 ; in compass view?
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
360 bra menuview_toggle ; No, call next option
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
361 STRCPY_TEXT_PRINT tSetHeading ; "Heading"
5fe7aff622f3 preparations to set a course for the compass display
heinrichsweikamp
parents: 249
diff changeset
362 bra menuview_exit ; Done.
0
heinrichsweikamp
parents:
diff changeset
363
heinrichsweikamp
parents:
diff changeset
364
heinrichsweikamp
parents:
diff changeset
365 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
366 ; Show next customview (and delete this flag)
heinrichsweikamp
parents:
diff changeset
367 global customview_toggle
heinrichsweikamp
parents:
diff changeset
368 customview_toggle:
heinrichsweikamp
parents:
diff changeset
369 bcf switch_right
heinrichsweikamp
parents:
diff changeset
370 incf menupos3,F ; Number of customview to show
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
371 movlw d'9' ; Max number of customsviews in divemode
0
heinrichsweikamp
parents:
diff changeset
372 cpfsgt menupos3 ; Max reached?
heinrichsweikamp
parents:
diff changeset
373 bra customview_mask ; No, show
heinrichsweikamp
parents:
diff changeset
374 customview_toggle_reset: ; Timeout occured
heinrichsweikamp
parents:
diff changeset
375 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
376 global customview_mask
0
heinrichsweikamp
parents:
diff changeset
377 customview_mask:
heinrichsweikamp
parents:
diff changeset
378 call TFT_clear_customview_divemode
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
379 WIN_SMALL dm_customview_column,dm_customview_row
0
heinrichsweikamp
parents:
diff changeset
380 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
381 movff menupos3,WREG ; Menupos3 holds number of customview function
heinrichsweikamp
parents:
diff changeset
382 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
383 bra customview_init_view1
heinrichsweikamp
parents:
diff changeset
384 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
385 bra customview_init_view2
heinrichsweikamp
parents:
diff changeset
386 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
387 bra customview_init_view3
heinrichsweikamp
parents:
diff changeset
388 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
389 bra customview_init_view4
heinrichsweikamp
parents:
diff changeset
390 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
391 bra customview_init_view5 ; GF informations
heinrichsweikamp
parents:
diff changeset
392 dcfsnz WREG,F
heinrichsweikamp
parents:
diff changeset
393 bra customview_init_view6 ; Compass
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
394 dcfsnz WREG,F
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
395 bra customview_init_view7 ; Dynamic gaslist
105
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 102
diff changeset
396 dcfsnz WREG,F
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 102
diff changeset
397 bra customview_init_view8 ; HUD voltages
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
398 dcfsnz WREG,F
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
399 bra customview_init_view9 ; Ceiling
0
heinrichsweikamp
parents:
diff changeset
400 customview_init_nocustomview:
heinrichsweikamp
parents:
diff changeset
401 call I2C_sleep_accelerometer ; Stop accelerometer
heinrichsweikamp
parents:
diff changeset
402 call I2C_sleep_compass ; Stop compass
heinrichsweikamp
parents:
diff changeset
403 bra customview_toggle_exit
heinrichsweikamp
parents:
diff changeset
404
heinrichsweikamp
parents:
diff changeset
405 customview_init_view1:
heinrichsweikamp
parents:
diff changeset
406 btfsc FLAG_apnoe_mode ; In Apnoe mode?
heinrichsweikamp
parents:
diff changeset
407 bra customview_toggle ; yes, Call next view...
heinrichsweikamp
parents:
diff changeset
408 btfss FLAG_ccr_mode ; In CC mode?
heinrichsweikamp
parents:
diff changeset
409 bra customview_toggle ; no, Call next view...
249
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 216
diff changeset
410 movf hardware_flag,W
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 216
diff changeset
411 sublw 0x11 ; 2 with BLE
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 216
diff changeset
412 btfsc STATUS,Z
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 216
diff changeset
413 bra customview_toggle ; no, Call next view...
0
heinrichsweikamp
parents:
diff changeset
414
heinrichsweikamp
parents:
diff changeset
415 bsf dive_hud1_displayed ; Set display flag
heinrichsweikamp
parents:
diff changeset
416 bsf dive_hud2_displayed ; Set display flag
heinrichsweikamp
parents:
diff changeset
417 bsf dive_hud3_displayed ; Set display flag
heinrichsweikamp
parents:
diff changeset
418 call TFT_hud_mask ; Setup HUD mask
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 189
diff changeset
419 call TFT_update_ppo2_sensors ; Update Sensor data
0
heinrichsweikamp
parents:
diff changeset
420 bra customview_toggle_exit
heinrichsweikamp
parents:
diff changeset
421
heinrichsweikamp
parents:
diff changeset
422 customview_init_view2:
heinrichsweikamp
parents:
diff changeset
423 btfsc FLAG_apnoe_mode ; In Apnoe mode?
heinrichsweikamp
parents:
diff changeset
424 bra customview_toggle ; Yes, Call next view...
heinrichsweikamp
parents:
diff changeset
425 call TFT_mask_avr_stopwatch ; Show mask for average depth and stopwatch
heinrichsweikamp
parents:
diff changeset
426 call TFT_update_avr_stopwatch ; Update average depth and stopwatch
heinrichsweikamp
parents:
diff changeset
427 bra customview_toggle_exit
heinrichsweikamp
parents:
diff changeset
428
heinrichsweikamp
parents:
diff changeset
429 customview_init_view3:
heinrichsweikamp
parents:
diff changeset
430 btfsc FLAG_apnoe_mode ; In Apnoe mode?
heinrichsweikamp
parents:
diff changeset
431 bra customview_toggle ; Yes, Call next view...
heinrichsweikamp
parents:
diff changeset
432 btfsc FLAG_gauge_mode ; In Gauge mode?
heinrichsweikamp
parents:
diff changeset
433 bra customview_toggle ; Yes, Call next view...
heinrichsweikamp
parents:
diff changeset
434 call TFT_decoplan ; Show decoplan
heinrichsweikamp
parents:
diff changeset
435 bra customview_toggle_exit
heinrichsweikamp
parents:
diff changeset
436
heinrichsweikamp
parents:
diff changeset
437 customview_init_view4:
heinrichsweikamp
parents:
diff changeset
438 call TFT_ead_end_tissues_clock_mask ; Setup Mask
heinrichsweikamp
parents:
diff changeset
439 call TFT_ead_end_tissues_clock ; Show EAD/END, Tissues and clock
heinrichsweikamp
parents:
diff changeset
440 bra customview_toggle_exit
heinrichsweikamp
parents:
diff changeset
441
heinrichsweikamp
parents:
diff changeset
442 customview_init_view5:
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 btfsc FLAG_gauge_mode ; In Gauge mode?
heinrichsweikamp
parents:
diff changeset
446 bra customview_toggle ; Yes, Call next view...
119
2acf3d068fae Do not show "GF info" for non-GF modes
heinrichsweikamp
parents: 105
diff changeset
447
2acf3d068fae Do not show "GF info" for non-GF modes
heinrichsweikamp
parents: 105
diff changeset
448 extern char_I_deco_model
2acf3d068fae Do not show "GF info" for non-GF modes
heinrichsweikamp
parents: 105
diff changeset
449 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
450 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
451
0
heinrichsweikamp
parents:
diff changeset
452 call TFT_gf_mask ; Setup Mask
heinrichsweikamp
parents:
diff changeset
453 call TFT_gf_info ; Show GF informations
heinrichsweikamp
parents:
diff changeset
454 bra customview_toggle_exit
heinrichsweikamp
parents:
diff changeset
455
heinrichsweikamp
parents:
diff changeset
456 customview_init_view6: ; Compass (View 6)
heinrichsweikamp
parents:
diff changeset
457 call I2C_init_accelerometer ; Start accelerometer
heinrichsweikamp
parents:
diff changeset
458 call I2C_init_compass ; Start compass
256
5b4ef0b9090d place compass display code into compass_ops.asm
heinrichsweikamp
parents: 254
diff changeset
459 extern TFT_dive_compass_mask
0
heinrichsweikamp
parents:
diff changeset
460 call TFT_dive_compass_mask ; Show compass
heinrichsweikamp
parents:
diff changeset
461 bra customview_toggle_exit
heinrichsweikamp
parents:
diff changeset
462
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
463 customview_init_view7: ; Dynamic gaslist (View 7)
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
464 btfsc FLAG_apnoe_mode ; In Apnoe mode?
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
465 bra customview_toggle ; Yes, Call next view...
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
466 btfsc FLAG_ccr_mode ; In CC mode?
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
467 bra customview_toggle ; Yes, Call next view...
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
468 call TFT_dyn_gaslist ; Show the dyn gaslist
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
469 bra customview_toggle_exit
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 48
diff changeset
470
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
471 customview_init_view8: ; Sensor millivolts
136
9a637c9bb19a rename Deco Planner to Simulator
heinrichsweikamp
parents: 134
diff changeset
472 btfsc FLAG_gauge_mode ; In Gauge mode?
9a637c9bb19a rename Deco Planner to Simulator
heinrichsweikamp
parents: 134
diff changeset
473 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
474 btfsc FLAG_apnoe_mode ; In Apnoe mode?
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
475 bra customview_toggle ; yes, Call next view...
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
476 btfss FLAG_ccr_mode ; In CC mode?
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
477 bra customview_toggle ; no, Call next view...
337
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
478 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
479 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
480 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
481 call TFT_hud_mask ; Setup HUD mask
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
482 call TFT_hud_voltages ; Show HUD details
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
483 bra customview_toggle_exit
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 53
diff changeset
484
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
485 customview_init_view9: ; Ceiling
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
486 btfsc FLAG_apnoe_mode ; In Apnoe mode?
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
487 bra customview_toggle ; yes, Call next view...
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
488 btfsc FLAG_gauge_mode ; In Gauge mode?
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
489 bra customview_toggle ; Yes, Call next view...
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
490 call TFT_ceiling_mask ; Setup mask
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
491 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
492
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
493 ; ppO2 value
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
494 call TFT_mask_ppo2
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
495 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
496
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
497 ; current GF value
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
498 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
499 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
500 bra customview_toggle_exit ; No GF info for non-GF modes
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
501 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
502 call TFT_gf_info ; Show GF informations
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 327
diff changeset
503
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
504 bra customview_toggle_exit
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
505
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 119
diff changeset
506
0
heinrichsweikamp
parents:
diff changeset
507 customview_toggle_exit:
heinrichsweikamp
parents:
diff changeset
508 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
509 bcf toggle_customview ; Clear flag
heinrichsweikamp
parents:
diff changeset
510 return
heinrichsweikamp
parents:
diff changeset
511
heinrichsweikamp
parents:
diff changeset
512 global customview_show_change_depth
heinrichsweikamp
parents:
diff changeset
513 customview_show_change_depth: ; Put " lom" or " loft" into Postinc2
heinrichsweikamp
parents:
diff changeset
514 PUTC " "
heinrichsweikamp
parents:
diff changeset
515 TSTOSS opt_units ; 0=m, 1=ft
heinrichsweikamp
parents:
diff changeset
516 bra customview_show_mix_metric
heinrichsweikamp
parents:
diff changeset
517 movf lo,W
heinrichsweikamp
parents:
diff changeset
518 mullw .100 ; convert meters to mbar
heinrichsweikamp
parents:
diff changeset
519 movff PRODL,lo
heinrichsweikamp
parents:
diff changeset
520 movff PRODH,hi
heinrichsweikamp
parents:
diff changeset
521 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
522 bsf leftbind
heinrichsweikamp
parents:
diff changeset
523 output_16 ; Change depth in lo:hi
heinrichsweikamp
parents:
diff changeset
524 bcf leftbind
heinrichsweikamp
parents:
diff changeset
525 STRCAT_TEXT tFeets
heinrichsweikamp
parents:
diff changeset
526 return
heinrichsweikamp
parents:
diff changeset
527 customview_show_mix_metric:
heinrichsweikamp
parents:
diff changeset
528 output_99 ; Change depth in lo
heinrichsweikamp
parents:
diff changeset
529 STRCAT_TEXT tMeters
heinrichsweikamp
parents:
diff changeset
530 return
heinrichsweikamp
parents:
diff changeset
531
heinrichsweikamp
parents:
diff changeset
532
heinrichsweikamp
parents:
diff changeset
533 global customview_show_mix
heinrichsweikamp
parents:
diff changeset
534 customview_show_mix: ; Put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2
heinrichsweikamp
parents:
diff changeset
535 tstfsz hi ; He=0?
heinrichsweikamp
parents:
diff changeset
536 bra customview_show_mix5 ; No, Show a TX
heinrichsweikamp
parents:
diff changeset
537 movlw .21
heinrichsweikamp
parents:
diff changeset
538 cpfseq lo ; Air?
heinrichsweikamp
parents:
diff changeset
539 bra customview_show_mix2 ; No
heinrichsweikamp
parents:
diff changeset
540 STRCAT_TEXT tSelectAir ; Yes, show "Air"
heinrichsweikamp
parents:
diff changeset
541 bra customview_show_mix4b
heinrichsweikamp
parents:
diff changeset
542 customview_show_mix2:
heinrichsweikamp
parents:
diff changeset
543 movlw .100
heinrichsweikamp
parents:
diff changeset
544 cpfseq lo ; O2?
heinrichsweikamp
parents:
diff changeset
545 bra customview_show_mix3 ; No
heinrichsweikamp
parents:
diff changeset
546 STRCAT_TEXT tSelectO2 ; Yes, show "O2"
heinrichsweikamp
parents:
diff changeset
547 bra customview_show_mix4b
heinrichsweikamp
parents:
diff changeset
548
heinrichsweikamp
parents:
diff changeset
549 customview_show_mix3:
heinrichsweikamp
parents:
diff changeset
550 movlw .21
heinrichsweikamp
parents:
diff changeset
551 cpfslt lo ; < Nx21?
heinrichsweikamp
parents:
diff changeset
552 bra customview_show_mix4 ; No
heinrichsweikamp
parents:
diff changeset
553 STRCAT_TEXT tGasErr ; Yes, show "Err"
heinrichsweikamp
parents:
diff changeset
554 output_99 ; O2 ratio is still in "lo"
heinrichsweikamp
parents:
diff changeset
555 bra customview_show_mix4c
heinrichsweikamp
parents:
diff changeset
556
heinrichsweikamp
parents:
diff changeset
557 customview_show_mix4:
heinrichsweikamp
parents:
diff changeset
558 STRCAT_TEXT tSelectNx ; Show "Nx"
heinrichsweikamp
parents:
diff changeset
559 output_99 ; O2 ratio is still in "lo"
heinrichsweikamp
parents:
diff changeset
560 customview_show_mix4b:
heinrichsweikamp
parents:
diff changeset
561 STRCAT " "
heinrichsweikamp
parents:
diff changeset
562 customview_show_mix4c:
heinrichsweikamp
parents:
diff changeset
563 btfsc divemode ; In divemode
heinrichsweikamp
parents:
diff changeset
564 return ; Yes
heinrichsweikamp
parents:
diff changeset
565 STRCAT " "
heinrichsweikamp
parents:
diff changeset
566 return
heinrichsweikamp
parents:
diff changeset
567
heinrichsweikamp
parents:
diff changeset
568 customview_show_mix5:
heinrichsweikamp
parents:
diff changeset
569 btfsc divemode
heinrichsweikamp
parents:
diff changeset
570 bra customview_show_mix6
heinrichsweikamp
parents:
diff changeset
571 STRCAT_TEXT tSelectTx ; Show "Tx"
heinrichsweikamp
parents:
diff changeset
572 customview_show_mix6:
heinrichsweikamp
parents:
diff changeset
573 output_99 ; O2 ratio is still in "lo"
heinrichsweikamp
parents:
diff changeset
574 PUTC "/"
heinrichsweikamp
parents:
diff changeset
575 movff hi,lo
heinrichsweikamp
parents:
diff changeset
576 output_99 ; He ratio
heinrichsweikamp
parents:
diff changeset
577 return
heinrichsweikamp
parents:
diff changeset
578
heinrichsweikamp
parents:
diff changeset
579 END