Mercurial > public > hwos_code

annotate src/tft_outputs.asm @ 386:3c55627d5f8f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
some cleanups, jump to 1.90 stable
author heinrichsweikamp
date Wed, 07 Oct 2015 14:46:39 +0200
parents ca32cf2435c6
children 642e927520eb
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 tft_outputs.asm
heinrichsweikamp
parents:
diff changeset
4 ;
heinrichsweikamp
parents:
diff changeset
5 ; Startup subroutines
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-07 : [mH] moving from OSTC code
heinrichsweikamp
parents:
diff changeset
11
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 262
diff changeset
12 #include "hwos.inc" ; Mandatory header
0
heinrichsweikamp
parents:
diff changeset
13 #include "shared_definitions.h" ; Mailbox from/to p2_deco.c
heinrichsweikamp
parents:
diff changeset
14 #include "tft.inc"
heinrichsweikamp
parents:
diff changeset
15 #include "wait.inc"
heinrichsweikamp
parents:
diff changeset
16 #include "strings.inc"
heinrichsweikamp
parents:
diff changeset
17 #include "convert.inc"
heinrichsweikamp
parents:
diff changeset
18 #include "varargs.inc"
heinrichsweikamp
parents:
diff changeset
19 #include "math.inc"
heinrichsweikamp
parents:
diff changeset
20 #include "isr.inc"
heinrichsweikamp
parents:
diff changeset
21 #include "eeprom_rs232.inc"
heinrichsweikamp
parents:
diff changeset
22 #include "adc_lightsensor.inc"
heinrichsweikamp
parents:
diff changeset
23 #include "surfmode.inc"
heinrichsweikamp
parents:
diff changeset
24 #include "divemode.inc"
heinrichsweikamp
parents:
diff changeset
25 #include "external_flash.inc"
heinrichsweikamp
parents:
diff changeset
26 #include "ghostwriter.inc"
heinrichsweikamp
parents:
diff changeset
27 #include "customview.inc"
heinrichsweikamp
parents:
diff changeset
28 #include "i2c.inc"
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
29 #include "colorschemes.inc"
229
e1e5876bd777 minor cleanup
mh@mh-THINK
parents: 227
diff changeset
30 #include "calibrate.inc"
0
heinrichsweikamp
parents:
diff changeset
31
heinrichsweikamp
parents:
diff changeset
32 extern aa_wordprocessor
heinrichsweikamp
parents:
diff changeset
33
heinrichsweikamp
parents:
diff changeset
34 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
35
heinrichsweikamp
parents:
diff changeset
36 gui CODE
heinrichsweikamp
parents:
diff changeset
37 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
38
heinrichsweikamp
parents:
diff changeset
39 global TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
40 TFT_divemask_color:
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
41 movlw color_green
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
42 btfsc divemode ; in Divemode?
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
43 rcall TFT_divemask_color_dive
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
44 bra TFT_standard_color0
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
45
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
46 TFT_divemask_color_dive:
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
47 movff opt_dive_color_scheme,WREG ; 0-3
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
48 incf WREG
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
49 dcfsnz WREG
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
50 bra TFT_divemask_colordive0 ;0
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
51 dcfsnz WREG
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
52 bra TFT_divemask_colordive1 ;1
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
53 dcfsnz WREG
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
54 bra TFT_divemask_colordive2 ;2
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
55 dcfsnz WREG
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
56 bra TFT_divemask_colordive3 ;3
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
57 TFT_divemask_colordive0:
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
58 movlw color_scheme_divemode_mask1
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
59 return
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
60 TFT_divemask_colordive1:
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
61 movlw color_scheme_divemode_mask2
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
62 return
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
63 TFT_divemask_colordive2:
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
64 movlw color_scheme_divemode_mask3
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
65 return
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
66 TFT_divemask_colordive3:
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
67 movlw color_scheme_divemode_mask4
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
68 return
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
69
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
70
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
71 global TFT_attention_color
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
72 TFT_attention_color:
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
73 movlw color_yellow
0
heinrichsweikamp
parents:
diff changeset
74 bra TFT_standard_color0
heinrichsweikamp
parents:
diff changeset
75
heinrichsweikamp
parents:
diff changeset
76 global TFT_warnings_color
heinrichsweikamp
parents:
diff changeset
77 TFT_warnings_color:
heinrichsweikamp
parents:
diff changeset
78 movlw color_red ; TODO
heinrichsweikamp
parents:
diff changeset
79 bra TFT_standard_color0
heinrichsweikamp
parents:
diff changeset
80
heinrichsweikamp
parents:
diff changeset
81 global TFT_disabled_color
heinrichsweikamp
parents:
diff changeset
82 TFT_disabled_color:
heinrichsweikamp
parents:
diff changeset
83 movlw color_grey ; Default to OSTC grey (dark blue)
87
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
84 btfsc divemode ; in Divemode?
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
85 rcall TFT_disabled_color_dive
0
heinrichsweikamp
parents:
diff changeset
86 bra TFT_standard_color0
87
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
87 TFT_disabled_color_dive:
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
88 movff opt_dive_color_scheme,WREG ; 0-3
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
89 incf WREG
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
90 dcfsnz WREG
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
91 bra TFT_disabled_colordive0 ;0
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
92 dcfsnz WREG
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
93 bra TFT_disabled_colordive1 ;1
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
94 dcfsnz WREG
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
95 bra TFT_disabled_colordive2 ;2
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
96 dcfsnz WREG
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
97 bra TFT_disabled_colordive3 ;3
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
98 TFT_disabled_colordive0:
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
99 movlw color_scheme_divemode_dis1
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
100 return
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
101 TFT_disabled_colordive1:
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
102 movlw color_scheme_divemode_dis2
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
103 return
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
104 TFT_disabled_colordive2:
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
105 movlw color_scheme_divemode_dis3
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
106 return
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
107 TFT_disabled_colordive3:
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
108 movlw color_scheme_divemode_dis4
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
109 return
0
heinrichsweikamp
parents:
diff changeset
110
heinrichsweikamp
parents:
diff changeset
111 global TFT_standard_color
heinrichsweikamp
parents:
diff changeset
112 TFT_standard_color:
87
82750b8dfcee CHANGE: Color schemes improved
heinrichsweikamp
parents: 85
diff changeset
113 setf WREG ; Default white
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
114 btfsc divemode ; in Divemode?
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
115 rcall TFT_standard_color_dive
0
heinrichsweikamp
parents:
diff changeset
116 TFT_standard_color0:
heinrichsweikamp
parents:
diff changeset
117 call TFT_set_color
heinrichsweikamp
parents:
diff changeset
118 return
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
119 TFT_standard_color_dive:
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
120 movff opt_dive_color_scheme,WREG ; 0-3
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
121 incf WREG
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
122 dcfsnz WREG
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
123 bra TFT_standard_colordive0 ;0
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
124 dcfsnz WREG
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
125 bra TFT_standard_colordive1 ;1
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
126 dcfsnz WREG
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
127 bra TFT_standard_colordive2 ;2
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
128 dcfsnz WREG
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
129 bra TFT_standard_colordive3 ;3
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
130 TFT_standard_colordive0:
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
131 movlw color_scheme_divemode_std1
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
132 return
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
133 TFT_standard_colordive1:
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
134 movlw color_scheme_divemode_std2
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
135 return
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
136 TFT_standard_colordive2:
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
137 movlw color_scheme_divemode_std3
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
138 return
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
139 TFT_standard_colordive3:
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
140 movlw color_scheme_divemode_std4
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
141 return
0
heinrichsweikamp
parents:
diff changeset
142
heinrichsweikamp
parents:
diff changeset
143 TFT_color_code macro color_code_temp
heinrichsweikamp
parents:
diff changeset
144 movlw color_code_temp
heinrichsweikamp
parents:
diff changeset
145 call TFT_color_code1
heinrichsweikamp
parents:
diff changeset
146 endm
heinrichsweikamp
parents:
diff changeset
147
heinrichsweikamp
parents:
diff changeset
148 global TFT_color_code1
heinrichsweikamp
parents:
diff changeset
149 TFT_color_code1: ; Color-codes the output, if required
heinrichsweikamp
parents:
diff changeset
150 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
151 bra TFT_color_code_depth ; depth_warn_mbar [mbar], 16Bit
heinrichsweikamp
parents:
diff changeset
152 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
153 bra TFT_color_code_cns ; color_code_cns_high [%]
heinrichsweikamp
parents:
diff changeset
154 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
155 bra TFT_color_code_gf ; color_code_gf_warn_high [%]
heinrichsweikamp
parents:
diff changeset
156 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
157 bra TFT_color_code_ppo2 ; Color-code the OC ppO2 results [cbar], opt_ppO2_max as threshold
heinrichsweikamp
parents:
diff changeset
158 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
159 bra TFT_color_code_ceiling ; Show warning if current depth>shown ceiling
heinrichsweikamp
parents:
diff changeset
160 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
161 bra TFT_color_code_gaslist ; Color-code current row in Gaslist (%O2 in hi), opt_ppO2_max as threshold
heinrichsweikamp
parents:
diff changeset
162 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
163 bra TFT_color_code_ppo2_hud ; Color-code the hud ppO2 readings [cbar], opt_ppO2_max as threshold
heinrichsweikamp
parents:
diff changeset
164 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
165 bra TFT_color_code_battery ; Color-code the battery display
heinrichsweikamp
parents:
diff changeset
166
heinrichsweikamp
parents:
diff changeset
167 TFT_color_code_gaslist: ; %O2 in hi
heinrichsweikamp
parents:
diff changeset
168 ; Check very high ppO2 manually
heinrichsweikamp
parents:
diff changeset
169 SAFE_2BYTE_COPY amb_pressure,xA
heinrichsweikamp
parents:
diff changeset
170 movlw d'10'
heinrichsweikamp
parents:
diff changeset
171 movwf xB+0
heinrichsweikamp
parents:
diff changeset
172 clrf xB+1
heinrichsweikamp
parents:
diff changeset
173 call div16x16 ; xC=p_amb/10
heinrichsweikamp
parents:
diff changeset
174 movff xC+0,xA+0
heinrichsweikamp
parents:
diff changeset
175 movff xC+1,xA+1
heinrichsweikamp
parents:
diff changeset
176 movff hi,xB+0
heinrichsweikamp
parents:
diff changeset
177 clrf xB+1
heinrichsweikamp
parents:
diff changeset
178 call mult16x16 ; lo * p_amb/10
heinrichsweikamp
parents:
diff changeset
179 ; Check if ppO2>6,55bar
heinrichsweikamp
parents:
diff changeset
180 tstfsz xC+2 ; char_I_O2_ratio * p_amb/10 > 65536, ppO2>6,55bar?
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
181 bra TFT_warnings_color ; Yes, warn in warning color
0
heinrichsweikamp
parents:
diff changeset
182 ; Check if ppO2>3,30bar
heinrichsweikamp
parents:
diff changeset
183 btfsc xC+1,7
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
184 bra TFT_warnings_color ; Yes, warn in warning color
0
heinrichsweikamp
parents:
diff changeset
185
heinrichsweikamp
parents:
diff changeset
186 ; Check for low ppo2
heinrichsweikamp
parents:
diff changeset
187 movff xC+0,sub_a+0
heinrichsweikamp
parents:
diff changeset
188 movff xC+1,sub_a+1
heinrichsweikamp
parents:
diff changeset
189 movff opt_ppO2_min,WREG
heinrichsweikamp
parents:
diff changeset
190 mullw d'100' ; opt_ppO2_min*100
heinrichsweikamp
parents:
diff changeset
191 movff PRODL,sub_b+0
heinrichsweikamp
parents:
diff changeset
192 movff PRODH,sub_b+1
heinrichsweikamp
parents:
diff changeset
193 call subU16
heinrichsweikamp
parents:
diff changeset
194 btfsc neg_flag
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
195 bra TFT_warnings_color ; too low -> Warning Color!
0
heinrichsweikamp
parents:
diff changeset
196
heinrichsweikamp
parents:
diff changeset
197 ; Check for high ppo2
heinrichsweikamp
parents:
diff changeset
198 movff opt_ppO2_max,WREG ; PPO2 Max for MOD calculation and color coding in divemode
heinrichsweikamp
parents:
diff changeset
199 mullw d'100' ; opt_ppO2_max*100
heinrichsweikamp
parents:
diff changeset
200 movff PRODL,sub_b+0
heinrichsweikamp
parents:
diff changeset
201 movff PRODH,sub_b+1
heinrichsweikamp
parents:
diff changeset
202 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
203 btfss neg_flag
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
204 bra TFT_warnings_color ; too high -> Warning Color!
0
heinrichsweikamp
parents:
diff changeset
205 return
heinrichsweikamp
parents:
diff changeset
206
heinrichsweikamp
parents:
diff changeset
207 TFT_color_code_ceiling:
heinrichsweikamp
parents:
diff changeset
208 SAFE_2BYTE_COPY rel_pressure, lo
heinrichsweikamp
parents:
diff changeset
209 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
210 movff hi,xA+1
heinrichsweikamp
parents:
diff changeset
211 movff lo,xA+0
heinrichsweikamp
parents:
diff changeset
212 movff char_O_first_deco_depth,lo ; Ceiling in m
heinrichsweikamp
parents:
diff changeset
213 decf lo,F ; -1
heinrichsweikamp
parents:
diff changeset
214 movlw LOW d'100'
heinrichsweikamp
parents:
diff changeset
215 movwf xB+0
heinrichsweikamp
parents:
diff changeset
216 clrf xB+1 ; Devide/100 -> xC+0 = Depth in m
heinrichsweikamp
parents:
diff changeset
217 call div16x16 ; xA/xB=xC with xA as remainder
heinrichsweikamp
parents:
diff changeset
218 movf xC+0,W ; Depth in m
heinrichsweikamp
parents:
diff changeset
219 subwf lo,W
heinrichsweikamp
parents:
diff changeset
220 btfsc STATUS,C
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
221 bra TFT_warnings_color ; Set to warning color
0
heinrichsweikamp
parents:
diff changeset
222 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
223 return
heinrichsweikamp
parents:
diff changeset
224
heinrichsweikamp
parents:
diff changeset
225 TFT_color_code_depth:
heinrichsweikamp
parents:
diff changeset
226 movff hi,hi_temp
heinrichsweikamp
parents:
diff changeset
227 movff lo,lo_temp
heinrichsweikamp
parents:
diff changeset
228 SAFE_2BYTE_COPY rel_pressure, lo
heinrichsweikamp
parents:
diff changeset
229 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
230 movff lo,sub_a+0
heinrichsweikamp
parents:
diff changeset
231 movff hi,sub_a+1
heinrichsweikamp
parents:
diff changeset
232 movlw LOW depth_warn_mbar
heinrichsweikamp
parents:
diff changeset
233 movwf lo
heinrichsweikamp
parents:
diff changeset
234 movlw HIGH depth_warn_mbar
heinrichsweikamp
parents:
diff changeset
235 movwf hi
heinrichsweikamp
parents:
diff changeset
236 movff lo,sub_b+0
heinrichsweikamp
parents:
diff changeset
237 movff hi,sub_b+1
heinrichsweikamp
parents:
diff changeset
238 movff hi_temp,hi
heinrichsweikamp
parents:
diff changeset
239 movff lo_temp,lo ; Restore hi, lo
303
9b1b0b32e7d5 Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
240
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
241 TSTOSS opt_modwarning ; 0=standard, 1=blink
303
9b1b0b32e7d5 Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
242 bra TFT_color_code_depth_std
9b1b0b32e7d5 Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
243 ;TFT_color_code_depth_blink:
0
heinrichsweikamp
parents:
diff changeset
244 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
245 btfss neg_flag
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
246 bra TFT_color_code_depth_warn ; Set to warning color
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
247 call TFT_color_code_ppo2_depth ; check depth against MOD
303
9b1b0b32e7d5 Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
248 return
9b1b0b32e7d5 Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
249
9b1b0b32e7d5 Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
250 TFT_color_code_depth_std:
9b1b0b32e7d5 Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
251 call subU16 ; sub_c = sub_a - sub_b
9b1b0b32e7d5 Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
252 btfss neg_flag
9b1b0b32e7d5 Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
253 bra TFT_warnings_color ; Set to warning color
9b1b0b32e7d5 Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
254 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
255 return
heinrichsweikamp
parents:
diff changeset
256
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
257 TFT_color_code_ppo2_depth:
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
258 SAFE_2BYTE_COPY amb_pressure, xA
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
259 movlw d'10'
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
260 movwf xB+0
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
261 clrf xB+1
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
262 call div16x16 ; xC=p_amb/10
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
263
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
264 movff xC+0,xA+0
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
265 movff xC+1,xA+1
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
266 movff char_I_O2_ratio,xB+0 ; =O2 ratio
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
267 clrf xB+1
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
268 call mult16x16 ; char_I_O2_ratio * p_amb/10
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
269
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
270 ; Check if ppO2>6,55bar
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
271 tstfsz xC+2 ; char_I_O2_ratio * p_amb/10 > 65536, ppO2>6,55bar?
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
272 ;bra TFT_color_code_warn ; Yes, warn in warning color
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
273 bra TFT_color_code_depth_warn
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
274 ; Check if ppO2>3,30bar
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
275 btfsc xC+1,7
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
276 bra TFT_color_code_depth_warn
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
277
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
278 movff xC+0,sub_a+0
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
279 movff xC+1,sub_a+1
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
280 movff opt_ppO2_max,WREG ; PPO2 Max for MOD calculation and color coding in divemode
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
281 mullw d'100'
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
282 movff PRODL,sub_b+0
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
283 movff PRODH,sub_b+1
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
284 call subU16 ; sub_c = sub_a - sub_b
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
285 btfss neg_flag
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
286 bra TFT_color_code_depth_warn
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
287
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
288 movff xC+0,sub_a+0
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
289 movff xC+1,sub_a+1
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
290 movff opt_ppO2_min,WREG ; PPO2 min for Sensors and color coding in divemode
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
291 mullw d'100'
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
292 movff PRODL,sub_b+0
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
293 movff PRODH,sub_b+1
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
294 call subU16 ; sub_c = sub_a - sub_b
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
295 btfsc neg_flag
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
296 bra TFT_color_code_depth_warn
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
297 if dm_offset != 0
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
298 call TFT_standard_color
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
299 else
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
300 movlw color_green
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
301 call TFT_set_color
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
302 endif
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
303 bcf blinking_depth_warning ; reset warning
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
304 return
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
305
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
306 TFT_color_code_depth_warn:
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
307 bsf blinking_depth_warning ; Set warning
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
308 bra TFT_warnings_color ; Set to warning color
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
309
0
heinrichsweikamp
parents:
diff changeset
310 TFT_color_code_cns:
heinrichsweikamp
parents:
diff changeset
311 movff int_O_CNS_fraction+1,lo ; copy into bank1
heinrichsweikamp
parents:
diff changeset
312 tstfsz lo ; >255% ?
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
313 bra TFT_warnings_color ; Yes
0
heinrichsweikamp
parents:
diff changeset
314 movff int_O_CNS_fraction+0,lo
heinrichsweikamp
parents:
diff changeset
315 movlw color_code_cns_high ; CNS Warn [%]
heinrichsweikamp
parents:
diff changeset
316 subwf lo,W
heinrichsweikamp
parents:
diff changeset
317 btfsc STATUS,C
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
318 bra TFT_warnings_color ; Set to warning color
0
heinrichsweikamp
parents:
diff changeset
319 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
320 return
heinrichsweikamp
parents:
diff changeset
321
heinrichsweikamp
parents:
diff changeset
322 TFT_color_code_gf:
heinrichsweikamp
parents:
diff changeset
323 movff char_O_gradient_factor,lo ; gradient factor
heinrichsweikamp
parents:
diff changeset
324 movlw color_code_gf_warn_high ; GF Warn [%]
heinrichsweikamp
parents:
diff changeset
325 subwf lo,W
heinrichsweikamp
parents:
diff changeset
326 btfsc STATUS,C
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
327 bra TFT_warnings_color ; Set to warning color
0
heinrichsweikamp
parents:
diff changeset
328 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
329 return
heinrichsweikamp
parents:
diff changeset
330
heinrichsweikamp
parents:
diff changeset
331 TFT_color_code_ppo2:
heinrichsweikamp
parents:
diff changeset
332 ; Check if ppO2>6,55bar
heinrichsweikamp
parents:
diff changeset
333 tstfsz xC+2 ; char_I_O2_ratio * p_amb/10 > 65536, ppO2>6,55bar?
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
334 bra TFT_warnings_color ; Yes, warn in warning color
0
heinrichsweikamp
parents:
diff changeset
335 ; Check if ppO2>3,30bar
heinrichsweikamp
parents:
diff changeset
336 btfsc xC+1,7
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
337 bra TFT_warnings_color ; Yes, warn in warning color
0
heinrichsweikamp
parents:
diff changeset
338
heinrichsweikamp
parents:
diff changeset
339 movff xC+0,sub_a+0
heinrichsweikamp
parents:
diff changeset
340 movff xC+1,sub_a+1
heinrichsweikamp
parents:
diff changeset
341 movff opt_ppO2_max,WREG ; PPO2 Max for MOD calculation and color coding in divemode
heinrichsweikamp
parents:
diff changeset
342 mullw d'100'
heinrichsweikamp
parents:
diff changeset
343 movff PRODL,sub_b+0
heinrichsweikamp
parents:
diff changeset
344 movff PRODH,sub_b+1
heinrichsweikamp
parents:
diff changeset
345 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
346 btfss neg_flag
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
347 bra TFT_warnings_color ; Set to warning color
0
heinrichsweikamp
parents:
diff changeset
348
heinrichsweikamp
parents:
diff changeset
349 movff xC+0,sub_a+0
heinrichsweikamp
parents:
diff changeset
350 movff xC+1,sub_a+1
heinrichsweikamp
parents:
diff changeset
351 movff opt_ppO2_min,WREG ; PPO2 min for Sensors and color coding in divemode
heinrichsweikamp
parents:
diff changeset
352 mullw d'100'
heinrichsweikamp
parents:
diff changeset
353 movff PRODL,sub_b+0
heinrichsweikamp
parents:
diff changeset
354 movff PRODH,sub_b+1
heinrichsweikamp
parents:
diff changeset
355 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
356 btfsc neg_flag
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
357 bra TFT_warnings_color ; Set to warning color
0
heinrichsweikamp
parents:
diff changeset
358 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
359 return
heinrichsweikamp
parents:
diff changeset
360
heinrichsweikamp
parents:
diff changeset
361 TFT_color_code_ppo2_hud: ; With ppO2 [cbar] in lo
heinrichsweikamp
parents:
diff changeset
362 movff opt_ppO2_max,WREG ; PPO2 Max for MOD calculation and color coding in divemode
heinrichsweikamp
parents:
diff changeset
363 cpfsgt lo ; lo > opt_ppO2_max?
heinrichsweikamp
parents:
diff changeset
364 bra TFT_color_code_ppo2_hud1; No
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
365 bra TFT_warnings_color ; Yes
0
heinrichsweikamp
parents:
diff changeset
366 TFT_color_code_ppo2_hud1:
heinrichsweikamp
parents:
diff changeset
367 movff opt_ppO2_min,WREG ; PPO2 min for Sensors and color coding in divemode
heinrichsweikamp
parents:
diff changeset
368 cpfslt lo ; lo < opt_ppO2_min?
heinrichsweikamp
parents:
diff changeset
369 bra TFT_color_code_ppo2_hud2; No
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
370 bra TFT_warnings_color ; Yes
0
heinrichsweikamp
parents:
diff changeset
371 TFT_color_code_ppo2_hud2:
heinrichsweikamp
parents:
diff changeset
372 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
373 return
heinrichsweikamp
parents:
diff changeset
374
heinrichsweikamp
parents:
diff changeset
375 TFT_color_code_battery: ; With battery percent in lo
heinrichsweikamp
parents:
diff changeset
376 movlw color_code_battery_low
heinrichsweikamp
parents:
diff changeset
377 cpfsgt lo ; lo < color_code_battery_low ?
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
378 bra TFT_warnings_color ; No
0
heinrichsweikamp
parents:
diff changeset
379 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
380 return
heinrichsweikamp
parents:
diff changeset
381
heinrichsweikamp
parents:
diff changeset
382 ; ****************************************************************************
heinrichsweikamp
parents:
diff changeset
383
234
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
384 global TFT_show_OC_startgas_surface
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
385 TFT_show_OC_startgas_surface: ; Show first gas and "OSTC2-like" active gases
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
386 ; Show first gas
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
387 WIN_SMALL surf_decotype_column+.1,surf_decotype_row+.30
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
388 extern get_first_gas_to_WREG,gaslist_strcat_gas
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
389 call get_first_gas_to_WREG ; Gets first gas (0-4) into WREG
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
390 movwf PRODL
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
391 call gaslist_strcat_gas ; Input: PRODL : gas number (0..4), Output: Text appended into buffer pointed by FSR2.
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
392 STRCAT_PRINT ""
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
393 ; Show boxes
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
394 WIN_TOP surf_decotype_row+.30+.25
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
395 WIN_LEFT surf_decotype_boxes_left1+.1
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
396 rcall TFT_disabled_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
397 movff opt_gas_type+0,hi ; 0=Disabled, 1=First, 2=Travel, 3=Deco
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
398 tstfsz hi
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
399 rcall TFT_standard_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
400 STRCPY_PRINT "1"
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
401 decfsz hi,F ; Type = 1 (First)?
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
402 bra DISP_active_gas_surfmode3 ; No, skip box
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
403 WIN_FRAME_STD surf_decotype_boxes_top, surf_decotype_boxes_bottom, surf_decotype_boxes_left1, surf_decotype_boxes_left1+.8 ;top, bottom, left, right
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
404 DISP_active_gas_surfmode3:
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
405 rcall TFT_disabled_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
406 movff opt_gas_type+1,hi ; 0=Disabled, 1=First, 2=Travel, 3=Deco
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
407 tstfsz hi
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
408 rcall TFT_standard_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
409 WIN_LEFT surf_decotype_boxes_left2+.1
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
410 STRCPY_PRINT "2"
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
411 decfsz hi,F ; Type = 1 (First)?
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
412 bra DISP_active_gas_surfmode4 ; No, skip box
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
413 WIN_FRAME_STD surf_decotype_boxes_top, surf_decotype_boxes_bottom, surf_decotype_boxes_left2, surf_decotype_boxes_left2+.8 ;top, bottom, left, right
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
414 DISP_active_gas_surfmode4:
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
415 rcall TFT_disabled_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
416 movff opt_gas_type+2,hi ; 0=Disabled, 1=First, 2=Travel, 3=Deco
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
417 tstfsz hi
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
418 rcall TFT_standard_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
419 WIN_LEFT surf_decotype_boxes_left3+.1
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
420 STRCPY_PRINT "3"
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
421 decfsz hi,F ; Type = 1 (First)?
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
422 bra DISP_active_gas_surfmode5 ; No, skip box
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
423 WIN_FRAME_STD surf_decotype_boxes_top, surf_decotype_boxes_bottom, surf_decotype_boxes_left3, surf_decotype_boxes_left3+.8 ;top, bottom, left, right
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
424 DISP_active_gas_surfmode5:
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
425 rcall TFT_disabled_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
426 movff opt_gas_type+3,hi ; 0=Disabled, 1=First, 2=Travel, 3=Deco
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
427 tstfsz hi
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
428 rcall TFT_standard_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
429 WIN_LEFT surf_decotype_boxes_left4+.1
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
430 STRCPY_PRINT "4"
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
431 decfsz hi,F ; Type = 1 (First)?
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
432 bra DISP_active_gas_surfmode6 ; No, skip box
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
433 WIN_FRAME_STD surf_decotype_boxes_top, surf_decotype_boxes_bottom, surf_decotype_boxes_left4, surf_decotype_boxes_left4+.8 ;top, bottom, left, right
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
434 DISP_active_gas_surfmode6:
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
435 call TFT_disabled_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
436 movff opt_gas_type+4,hi ; 0=Disabled, 1=First, 2=Travel, 3=Deco
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
437 tstfsz hi
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
438 rcall TFT_standard_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
439 WIN_LEFT surf_decotype_boxes_left5+.1
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
440 STRCPY_PRINT "5"
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
441 rcall TFT_standard_color ; Reset color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
442 decfsz hi,F ; Type = 1 (First)?
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
443 return ; no, Done.
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
444 WIN_FRAME_STD surf_decotype_boxes_top, surf_decotype_boxes_bottom, surf_decotype_boxes_left5, surf_decotype_boxes_left5+.8 ;top, bottom, left, right
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
445 return ; Done.
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
446
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
447 global TFT_show_color_schemes
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
448 TFT_show_color_schemes: ; update the color schemes
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
449 bsf divemode ; put in divemode
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
450 call TFT_divemask_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
451 WIN_TINY .12,.40
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
452 STRCAT_TEXT_PRINT tDepth
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
453 WIN_TINY .62,.40
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
454 STRCAT_TEXT_PRINT tMaxDepth
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
455 WIN_TINY .122,.40
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
456 STRCAT_TEXT_PRINT tDivetime
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
457
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
458 ; Show some demo screen
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
459
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
460 ; Depth demo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
461 call TFT_standard_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
462 WIN_MEDIUM .3,.54
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
463 movlw LOW .5172
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
464 movwf lo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
465 movlw HIGH .5172
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
466 movwf hi
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
467 bsf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
468 bsf ignore_digit4
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
469 output_16 ; Full meters in Big font
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
470 bcf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
471 STRCAT_PRINT "" ; Display full meters
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
472 WIN_SMALL .25,.66
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
473 movlw LOW .5172
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
474 movwf lo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
475 movlw HIGH .5172
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
476 movwf hi
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
477 PUTC "."
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
478 movlw d'4'
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
479 movwf ignore_digits
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
480 bsf ignore_digit5
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
481 output_16dp d'0' ; .1m in SMALL font
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
482 STRCAT_PRINT "" ; Display decimeters
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
483 WIN_FONT FT_SMALL
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
484
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
485 ; Max. Depth demo
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
486 WIN_MEDIUM .64,.54
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
487 bsf ignore_digit4 ; no 0.1m
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
488 bsf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
489 movlw LOW .6349
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
490 movwf lo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
491 movlw HIGH .6349
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
492 movwf hi
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
493 output_16
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
494 STRCAT_PRINT "" ; Display full meters
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
495 bcf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
496 ; .1m in SMALL font
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
497 WIN_SMALL .87,.66
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
498 PUTC "."
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
499 movlw d'4'
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
500 movwf ignore_digits
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
501 bsf ignore_digit5
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
502 bsf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
503 movlw LOW .6349
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
504 movwf lo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
505 movlw HIGH .6349
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
506 movwf hi
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
507 output_16dp d'0'
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
508 STRCAT_PRINT "" ; Display decimeters
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
509 bcf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
510
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
511 ; Divetime demo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
512 movff mins,lo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
513 clrf hi
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
514 WIN_MEDIUM .103, .54
225
31088352ee32 BUGFIX: Show dives with >999mins divetime correctly
heinrichsweikamp
parents: 220
diff changeset
515 output_16_3 ; limit to 999 and display only (0-999)
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
516 STRCAT_PRINT "" ; Show minutes in large font
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
517 WIN_SMALL .139, .66 ; left position for two sec figures
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
518 PUTC ':'
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
519 bsf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
520 movff secs,lo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
521 output_99x
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
522 bcf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
523 STRCAT_PRINT "" ; Show seconds in small font
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
524
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
525 bcf divemode ; don't stay in divemode
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
526 return
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
527
0
heinrichsweikamp
parents:
diff changeset
528 global TFT_divemode_mask
heinrichsweikamp
parents:
diff changeset
529 TFT_divemode_mask: ; Displays mask in Dive-Mode
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
530 if dm_offset != 0
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
531 call TFT_divemask_color
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
532 WIN_TINY dm_mask_depth_column,dm_mask_depth_row
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
533 STRCAT_TEXT_PRINT tDepth
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
534 WIN_TINY dm_mask_maxdepth_column,dm_mask_maxdepth_row
332
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
535 TSTOSS opt_vsigraph ; 0=skip, 1=draw
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
536 WIN_TINY dm_mask_maxdepth_column_nvsi,dm_mask_maxdepth_row
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
537 STRCAT_TEXT_PRINT tMaxDepth
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
538 WIN_TINY dm_mask_divetime_column,dm_mask_divetime_row
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
539 STRCAT_TEXT_PRINT tDivetime
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
540 endif
309
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
541
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
542 if dm_offset == 0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
543 movlw color_dark_red
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
544 call TFT_set_color
332
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
545 TSTOSS opt_vsigraph ; 0=skip, 1=draw
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
546 bra $+4
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
547 WIN_FRAME_COLOR16 dm_velobar_top, dm_velobar_bot, dm_velobar_lft, dm_velobar_rgt ;top, bottom, left, right
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
548 WIN_FRAME_COLOR16 dm_sep_1_2_row, dm_sep_1_2_row, .0, .159 ;top, bottom, left, right
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
549 WIN_FRAME_COLOR16 dm_sep_2_3_row, dm_sep_2_3_row, .0, .159 ;top, bottom, left, right
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
550 WIN_FRAME_COLOR16 dm_warning_row-.1, dm_warning_row-.1, dm_warning_column, .159 ;top, bottom, left, right
332
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
551 TSTOSS opt_vsigraph ; 0=skip, 1=draw
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
552 bra $+4
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
553 WIN_FRAME_COLOR16 dm_warning_row-.1, dm_warning_row-.1, dm_max_depth_column_nvsi, .159 ;top, bottom, left, right
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
554 call TFT_draw_gassep_line
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
555 endif
309
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
556
0
heinrichsweikamp
parents:
diff changeset
557 call TFT_standard_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
558 return
0
heinrichsweikamp
parents:
diff changeset
559
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
560 global TFT_draw_gassep_line
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
561 TFT_draw_gassep_line:
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
562 btfsc FLAG_apnoe_mode ; Ignore in Apnoe mode
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
563 return
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
564 btfsc divemode_menu ; Is the dive mode menu shown?
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
565 return ; Yes, return
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
566 if dm_offset == 0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
567 movlw color_dark_red
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
568 call TFT_set_color
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
569 WIN_FRAME_COLOR16 dm_gassep_row, dm_gassep_bot, dm_gassep_column, dm_gassep_column
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
570 endif
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
571 call TFT_standard_color
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
572 return
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
573
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
574 ;=========================================================================
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
575
0
heinrichsweikamp
parents:
diff changeset
576 global TFT_display_velocity
heinrichsweikamp
parents:
diff changeset
577 TFT_display_velocity: ; With divA+0 = m/min
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
578 ; Input is:
318
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
579 ; neg_flag_velocity: ascend=1, descend=0
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
580 ; divA+0: rate in m/min
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
581 ; init flags used to store warning/attention
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
582 bcf velocity_warn
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
583 bcf velocity_attn
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
584 ; check if old/new ascend logic is used
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
585 TSTOSS opt_vsitextv2 ; 0=standard, 1=dynamic
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
586 bra TFT_velocity_std ; static ascend rate limit
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
587 ; initialize the multiplier/offset values, also required for the
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
588 ; below-the-treshold bar
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
589 movlw .7
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
590 movwf xC+0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
591 movlw .6
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
592 movwf xC+1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
593 movlw .1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
594 movwf xC+2
386
3c55627d5f8f some cleanups, jump to 1.90 stable
heinrichsweikamp
parents: 369
diff changeset
595 clrf xC+3
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
596 ; check if velocity is below the treshold level
318
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
597 bcf STATUS,C
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
598 movlw velocity_display_threshold_2
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
599 subwf divA+0,W
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
600 btfss STATUS,C
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
601 bra TFT_velocity_ntr ; ascend/descend rare is below limit
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
602 bsf display_velocity
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
603
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
604 ; use a depth-dependent ascent rate warning
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
605 ; depth(ft): <20 >20 >40 >60 >75 >88 >101 >115 >128 >144 >164
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
606 ; speed(ft/min): 23 26 29 33 36 43 49 56 59 62 66
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
607 ; depth(m): <=6 >6 >12 >18 >23 >27 >31 >35 >39 >44 >50
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
608 ; speed(m/min): 7 8 9 10 11 13 15 17 18 19 20 (warning)
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
609 ; speed(m/min): 5 6 7 8 8 10 12 13 14 15 15 (attention)
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
610 ;
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
611 ; use different multipliers and offsets for the different ascend limits for
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
612 ; a smoother bar
309
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
613 ; w-multip 7 6 5 5 4 3 3 2 2 2 2
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
614 ; a-multip 6 5 4 3 3 3 2 2 2 2 2
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
615 ; w-offset 1 2 5 0 6 11 5 16 14 12 10
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
616 ; a-offset 0 0 2 6 6 0 6 4 2 0 0
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
617
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
618 ; check if descending: no warning color if descending
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
619 call TFT_standard_color
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
620 btfss neg_flag_velocity ; Ignore for descent!
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
621 bra TFT_velocity_disp
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
622 ; get the actual depth
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
623 SAFE_2BYTE_COPY rel_pressure, lo ; get the actual depth
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
624 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
625 call convert_mbar_to_feet ; get depth in feet
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
626 ; store current depth (in feet) into sub_a
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
627 movff lo,sub_a+0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
628 movff hi,sub_a+1
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
629 ; xA will be used to store the warning/attention limits passed to the verification
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
630 clrf xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
631 clrf xA+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
632
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
633 ;TFT_display_velocity_asc_164:
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
634 ; store segment limit into sub_b
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
635 clrf sub_b+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
636 movlw LOW d'164'
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
637 movwf sub_b+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
638 movlw .20 ; store the warn limit to xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
639 movwf xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
640 movlw .15 ; store the attn limit to xA+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
641 movwf xA+1
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
642 ; graphical position helpers
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
643 movlw .2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
644 movwf xC+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
645 movlw .2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
646 movwf xC+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
647 movlw .10
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
648 movwf xC+2
386
3c55627d5f8f some cleanups, jump to 1.90 stable
heinrichsweikamp
parents: 369
diff changeset
649 clrf xC+3
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
650 ; check if current depth > segment limit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
651 call subU16 ; sub_c = sub_a - sub_b; depth - sLimit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
652 btfss neg_flag ; depth lower than segment limit? sLimit>depth?
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
653 bra TFT_velocity_check ; no, depth>=sLimit, do the check for this segment
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
654
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
655 ;TFT_display_velocity_asc_144:
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
656 ; store segment limit into sub_b
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
657 clrf sub_b+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
658 movlw LOW d'144'
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
659 movwf sub_b+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
660 movlw .19 ; store the warn limit to xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
661 movwf xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
662 movlw .15 ; store the attn limit to xA+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
663 movwf xA+1
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
664 ; graphical position helpers
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
665 movlw .2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
666 movwf xC+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
667 movlw .2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
668 movwf xC+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
669 movlw .12
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
670 movwf xC+2
386
3c55627d5f8f some cleanups, jump to 1.90 stable
heinrichsweikamp
parents: 369
diff changeset
671 clrf xC+3
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
672 ; check if current depth > segment limit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
673 call subU16 ; sub_c = sub_a - sub_b; depth - sLimit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
674 btfss neg_flag ; depth lower than segment limit? sLimit>depth?
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
675 bra TFT_velocity_check ; no, depth>=sLimit, do the check for this segment
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
676
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
677 ;TFT_display_velocity_asc_128:
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
678 ; store segment limit into sub_b
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
679 clrf sub_b+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
680 movlw LOW d'128'
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
681 movwf sub_b+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
682 movlw .18 ; store the warn limit to xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
683 movwf xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
684 movlw .14 ; store the attn limit to xA+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
685 movwf xA+1
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
686 ; graphical position helpers
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
687 movlw .2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
688 movwf xC+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
689 movlw .2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
690 movwf xC+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
691 movlw .14
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
692 movwf xC+2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
693 movlw .2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
694 movwf xC+3
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
695 ; check if current depth > segment limit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
696 call subU16 ; sub_c = sub_a - sub_b; depth - sLimit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
697 btfss neg_flag ; depth lower than segment limit? sLimit>depth?
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
698 bra TFT_velocity_check ; no, depth>=sLimit, do the check for this segment
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
699
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
700 ;TFT_display_velocity_asc_115:
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
701 ; store segment limit into sub_b
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
702 clrf sub_b+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
703 movlw LOW d'115'
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
704 movwf sub_b+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
705 movlw .17 ; store the warn limit to xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
706 movwf xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
707 movlw .13 ; store the attn limit to xA+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
708 movwf xA+1
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
709 ; graphical position helpers
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
710 movlw .2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
711 movwf xC+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
712 movlw .2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
713 movwf xC+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
714 movlw .16
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
715 movwf xC+2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
716 movlw .4
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
717 movwf xC+3
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
718 ; check if current depth > segment limit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
719 call subU16 ; sub_c = sub_a - sub_b; depth - sLimit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
720 btfss neg_flag ; depth lower than segment limit? sLimit>depth?
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
721 bra TFT_velocity_check ; no, depth>=sLimit, do the check for this segment
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
722
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
723 ;TFT_display_velocity_asc_101:
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
724 ; store segment limit into sub_b
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
725 clrf sub_b+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
726 movlw LOW d'101'
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
727 movwf sub_b+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
728 movlw .15 ; store the warn limit to xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
729 movwf xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
730 movlw .12 ; store the attn limit to xA+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
731 movwf xA+1
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
732 ; graphical position helpers
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
733 movlw .3
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
734 movwf xC+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
735 movlw .2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
736 movwf xC+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
737 movlw .5
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
738 movwf xC+2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
739 movlw .6
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
740 movwf xC+3
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
741 ; check if current depth > segment limit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
742 call subU16 ; sub_c = sub_a - sub_b; depth - sLimit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
743 btfss neg_flag ; depth lower than segment limit? sLimit>depth?
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
744 bra TFT_velocity_check ; no, depth>=sLimit, do the check for this segment
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
745
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
746 ;TFT_display_velocity_asc_88:
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
747 ; store segment limit into sub_b
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
748 clrf sub_b+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
749 movlw LOW d'88'
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
750 movwf sub_b+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
751 movlw .13 ; store the warn limit to xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
752 movwf xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
753 movlw .10 ; store the attn limit to xA+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
754 movwf xA+1
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
755 ; graphical position helpers
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
756 movlw .3
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
757 movwf xC+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
758 movlw .3
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
759 movwf xC+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
760 movlw .11
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
761 movwf xC+2
386
3c55627d5f8f some cleanups, jump to 1.90 stable
heinrichsweikamp
parents: 369
diff changeset
762 clrf xC+3
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
763 ; check if current depth > segment limit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
764 call subU16 ; sub_c = sub_a - sub_b; depth - sLimit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
765 btfss neg_flag ; depth lower than segment limit? sLimit>depth?
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
766 bra TFT_velocity_check ; no, depth>=sLimit, do the check for this segment
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
767
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
768 ;TFT_display_velocity_asc_75:
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
769 ; store segment limit into sub_b
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
770 clrf sub_b+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
771 movlw LOW d'75'
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
772 movwf sub_b+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
773 movlw .11 ; store the warn limit to xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
774 movwf xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
775 movlw .8 ; store the attn limit to xA+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
776 movwf xA+1
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
777 ; graphical position helpers
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
778 movlw .4
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
779 movwf xC+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
780 movlw .3
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
781 movwf xC+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
782 movlw .6
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
783 movwf xC+2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
784 movlw .6
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
785 movwf xC+3
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
786 ; check if current depth > segment limit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
787 call subU16 ; sub_c = sub_a - sub_b; depth - sLimit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
788 btfss neg_flag ; depth lower than segment limit? sLimit>depth?
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
789 bra TFT_velocity_check ; no, depth>=sLimit, do the check for this segment
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
790
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
791 ;TFT_display_velocity_asc_60:
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
792 ; store segment limit into sub_b
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
793 clrf sub_b+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
794 movlw LOW d'60'
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
795 movwf sub_b+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
796 movlw .10 ; store the warn limit to xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
797 movwf xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
798 movlw .8 ; store the attn limit to xA+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
799 movwf xA+1
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
800 ; graphical position helpers
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
801 movlw .5
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
802 movwf xC+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
803 movlw .3
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
804 movwf xC+1
386
3c55627d5f8f some cleanups, jump to 1.90 stable
heinrichsweikamp
parents: 369
diff changeset
805 clrf xC+2
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
806 movlw .6
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
807 movwf xC+3
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
808 ; check if current depth > segment limit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
809 call subU16 ; sub_c = sub_a - sub_b; depth - sLimit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
810 btfss neg_flag ; depth lower than segment limit? sLimit>depth?
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
811 bra TFT_velocity_check ; no, depth>=sLimit, do the check for this segment
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
812
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
813 ;TFT_display_velocity_asc_40:
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
814 ; store segment limit into sub_b
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
815 clrf sub_b+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
816 movlw LOW d'40'
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
817 movwf sub_b+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
818 movlw .9 ; store the warn limit to xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
819 movwf xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
820 movlw .7 ; store the attn limit to xA+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
821 movwf xA+1
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
822 ; graphical position helpers
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
823 movlw .5
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
824 movwf xC+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
825 movlw .4
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
826 movwf xC+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
827 movlw .5
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
828 movwf xC+2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
829 movlw .2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
830 movwf xC+3
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
831 ; check if current depth > segment limit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
832 call subU16 ; sub_c = sub_a - sub_b; depth - sLimit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
833 btfss neg_flag ; depth lower than segment limit? sLimit>depth?
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
834 bra TFT_velocity_check ; no, depth>=sLimit, do the check for this segment
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
835
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
836 ;TFT_display_velocity_asc_20:
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
837 ; store segment limit into sub_b
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
838 clrf sub_b+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
839 movlw LOW d'20'
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
840 movwf sub_b+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
841 movlw .8 ; store the warn limit to xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
842 movwf xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
843 movlw .6 ; store the attn limit to xA+1
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
844 movwf xA+1
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
845 ; graphical position helpers
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
846 movlw .6
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
847 movwf xC+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
848 movlw .5
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
849 movwf xC+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
850 movlw .2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
851 movwf xC+2
386
3c55627d5f8f some cleanups, jump to 1.90 stable
heinrichsweikamp
parents: 369
diff changeset
852 clrf xC+3
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
853 ; check if current depth > segment limit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
854 call subU16 ; sub_c = sub_a - sub_b; depth - sLimit
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
855 btfss neg_flag ; depth lower than segment limit? sLimit>depth?
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
856 bra TFT_velocity_check ; no, depth>=sLimit, do the check for this segment
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
857
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
858 ;TFT_display_velocity_asc_n6:
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
859 ; no more steps, check the smallest rate
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
860 ; store the warn limit to xA : <20ft=23; <6m=7
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
861 movlw .7
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
862 movwf xA+0
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
863 movlw .5
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
864 movwf xA+1
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
865 ; graphical position helpers
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
866 movlw .7
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
867 movwf xC+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
868 movlw .6
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
869 movwf xC+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
870 movlw .1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
871 movwf xC+2
386
3c55627d5f8f some cleanups, jump to 1.90 stable
heinrichsweikamp
parents: 369
diff changeset
872 clrf xC+3
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
873 ;bra TFT_velocity_check ; depth < 20ft / 6m
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
874
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
875 TFT_velocity_check:
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
876 ; move current ascent rate to lo
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
877 clrf hi
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
878 movff divA+0,lo
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
879 ; Velocity warn [m/min] - we receive it from xA+0
318
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
880 bcf STATUS,C
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
881 movff xA+0,WREG
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
882 ; compare the values
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
883 subwf lo,W ; subtract W from lo,
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
884 btfsc STATUS,C ; Check if C (carry flag) is set. Cleared if the larger number is subtracted from smaller one
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
885 bra TFT_velocity_warn ; Skip if no carry flag otherwise set to warning color
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
886 ; not eq or gt warning trashold, lets check if it reach the attention level
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
887 ; Velocity attn [m/min] - we receive it from xA+1
318
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
888 bcf STATUS,C
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
889 movff xA+1,WREG
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
890 ; compare the values
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
891 subwf lo,W ; subtract W from lo,
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
892 btfsc STATUS,C ; Check if C (carry flag) is set. Cleared if the larger number is subtracted from smaller one
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
893 bra TFT_velocity_attn ; Skip if no carry flag otherwise set to warning color
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
894 ;bra TFT_velocity_def
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
895
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
896 TFT_velocity_def:
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
897 call TFT_standard_color
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
898 bra TFT_velocity_disp
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
899
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
900 TFT_velocity_warn:
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
901 call TFT_warnings_color ; Set to warning color
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
902 bsf win_invert
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
903 bsf velocity_warn
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
904 bra TFT_velocity_disp
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
905
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
906 TFT_velocity_attn:
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
907 call TFT_attention_color ; Set to attention color
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
908 bsf velocity_attn
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
909 bra TFT_velocity_disp
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
910
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
911 TFT_velocity_std:
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
912 ; initialize the multiplier/offset values for the graphical bar
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
913 movlw .5
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
914 movwf xC+0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
915 movlw .3
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
916 movwf xC+1
386
3c55627d5f8f some cleanups, jump to 1.90 stable
heinrichsweikamp
parents: 369
diff changeset
917 clrf xC+2
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
918 movlw .6
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
919 movwf xC+3
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
920
318
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
921 bcf STATUS,C
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
922 movlw velocity_display_threshold_1 ; lowest threshold for display vertical velocity
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
923 subwf divA+0,W
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
924 btfss STATUS,C
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
925 bra TFT_velocity_ntr ; under treshold, clear text and display VSIbar
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
926 bsf display_velocity
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
927
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
928 call TFT_standard_color
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
929 btfss neg_flag_velocity ; Ignore for descent!
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
930 bra TFT_velocity_disp ; Skip check!
318
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
931 bcf STATUS,C
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
932 movff divA+0,lo
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
933 movlw color_code_velocity_warn_high ; Velocity warn [m/min]
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
934 subwf lo,W
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
935 btfsc STATUS,C
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
936 bra TFT_velocity_std_warn
328
bd7f4c1bdb33 Fix: missing attention coloring for standard (static) ascend rate limit
janos_kovacs <kovjanos@gmail.com>
parents: 326
diff changeset
937 bcf STATUS,C
bd7f4c1bdb33 Fix: missing attention coloring for standard (static) ascend rate limit
janos_kovacs <kovjanos@gmail.com>
parents: 326
diff changeset
938 movff divA+0,lo
bd7f4c1bdb33 Fix: missing attention coloring for standard (static) ascend rate limit
janos_kovacs <kovjanos@gmail.com>
parents: 326
diff changeset
939 movlw color_code_velocity_attn_high ; Velocity attn [m/min]
bd7f4c1bdb33 Fix: missing attention coloring for standard (static) ascend rate limit
janos_kovacs <kovjanos@gmail.com>
parents: 326
diff changeset
940 subwf lo,W
bd7f4c1bdb33 Fix: missing attention coloring for standard (static) ascend rate limit
janos_kovacs <kovjanos@gmail.com>
parents: 326
diff changeset
941 btfsc STATUS,C
bd7f4c1bdb33 Fix: missing attention coloring for standard (static) ascend rate limit
janos_kovacs <kovjanos@gmail.com>
parents: 326
diff changeset
942 bra TFT_velocity_std_attn
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
943 bra TFT_velocity_disp
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
944
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
945 TFT_velocity_std_warn:
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
946 call TFT_warnings_color ; Set to warning color
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
947 bsf velocity_warn
328
bd7f4c1bdb33 Fix: missing attention coloring for standard (static) ascend rate limit
janos_kovacs <kovjanos@gmail.com>
parents: 326
diff changeset
948 bra TFT_velocity_disp
bd7f4c1bdb33 Fix: missing attention coloring for standard (static) ascend rate limit
janos_kovacs <kovjanos@gmail.com>
parents: 326
diff changeset
949
bd7f4c1bdb33 Fix: missing attention coloring for standard (static) ascend rate limit
janos_kovacs <kovjanos@gmail.com>
parents: 326
diff changeset
950 TFT_velocity_std_attn:
bd7f4c1bdb33 Fix: missing attention coloring for standard (static) ascend rate limit
janos_kovacs <kovjanos@gmail.com>
parents: 326
diff changeset
951 call TFT_attention_color ; Set to attention color
bd7f4c1bdb33 Fix: missing attention coloring for standard (static) ascend rate limit
janos_kovacs <kovjanos@gmail.com>
parents: 326
diff changeset
952 bsf velocity_attn
bd7f4c1bdb33 Fix: missing attention coloring for standard (static) ascend rate limit
janos_kovacs <kovjanos@gmail.com>
parents: 326
diff changeset
953 ;bra TFT_velocity_disp
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
954
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
955 TFT_velocity_disp:
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
956 WIN_SMALL dm_velocity_text_column, dm_velocity_text_row
0
heinrichsweikamp
parents:
diff changeset
957 TSTOSS opt_units ; 0=Meters, 1=Feets
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
958 bra TFT_velocity_metric
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
959 ;TFT_velocity_imperial:
0
heinrichsweikamp
parents:
diff changeset
960 movff divA+0,WREG ; divA+0 = m/min
heinrichsweikamp
parents:
diff changeset
961 mullw .100 ; PRODL:PRODH = mbar/min
heinrichsweikamp
parents:
diff changeset
962 movff PRODL,lo
heinrichsweikamp
parents:
diff changeset
963 movff PRODH,hi
heinrichsweikamp
parents:
diff changeset
964 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
965 movlw '-'
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
966 btfsc neg_flag_velocity
0
heinrichsweikamp
parents:
diff changeset
967 movlw '+'
heinrichsweikamp
parents:
diff changeset
968 movwf POSTINC2
heinrichsweikamp
parents:
diff changeset
969 bsf leftbind
heinrichsweikamp
parents:
diff changeset
970 output_16
heinrichsweikamp
parents:
diff changeset
971 bcf leftbind
heinrichsweikamp
parents:
diff changeset
972 STRCAT_TEXT_PRINT tVelImperial ; Unit switch
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
973 bcf win_invert
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
974 bcf neg_flag
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
975 call TFT_velocity_VSIbar
0
heinrichsweikamp
parents:
diff changeset
976 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
977 return
heinrichsweikamp
parents:
diff changeset
978
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
979 TFT_velocity_metric:
0
heinrichsweikamp
parents:
diff changeset
980 movff divA+0,lo ; divA+0 = m/min
heinrichsweikamp
parents:
diff changeset
981 movlw '-'
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
982 btfsc neg_flag_velocity
0
heinrichsweikamp
parents:
diff changeset
983 movlw '+'
heinrichsweikamp
parents:
diff changeset
984 movwf POSTINC2
heinrichsweikamp
parents:
diff changeset
985 output_99
heinrichsweikamp
parents:
diff changeset
986 STRCAT_TEXT_PRINT tVelMetric ; Unit switch
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
987 bcf win_invert
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
988 bcf neg_flag
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
989 call TFT_velocity_VSIbar
0
heinrichsweikamp
parents:
diff changeset
990 call TFT_standard_color
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
991 return
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
992
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
993 TFT_velocity_VSIbar:
332
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
994 TSTOSS opt_vsigraph ; 0=skip, 1=draw
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
995 return
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
996
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
997 ; use another logic when descending
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
998 btfss neg_flag_velocity
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
999 bra TFT_velocity_VSIbar_desc
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1000 call TFT_velocity_VSIbar_desc_clr
326
d21b172d5a7a VSIbar #4: VSI settings submenu, graph option, logbook offset and compass calib. menu exit fix
Janos Kovacs <kovjanos@gmail.com>
parents: 321
diff changeset
1001
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1002 btfsc velocity_warn
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1003 bra TFT_velocity_VSIbar_warn
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1004 ; if all ok or attention, use attn's values
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1005 movff xC+1,sub_b+0 ; multiplier
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1006 movff xC+3,sub_b+1 ; offset
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1007 bra TFT_velocity_VSIbar_com
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1008
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1009 TFT_velocity_VSIbar_warn:
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1010 ; save multiplier and offset out from the xC
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1011 movff xC+0,sub_b+0 ; multiplier
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1012 movff xC+2,sub_b+1 ; offset
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1013 ;bra TFT_velocity_VSIbar_com
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1014
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1015 TFT_velocity_VSIbar_com:
317
7b64c0ba6a7e VSIbar #3c: extra steps to keep calculation clear
janos_kovacs <kovjanos@gmail.com>
parents: 316
diff changeset
1016 clrf divB
320
c23d9d524eb9 VSIbar #3e: additional filter on zero ascend rate
janos_kovacs <kovjanos@gmail.com>
parents: 318
diff changeset
1017
c23d9d524eb9 VSIbar #3e: additional filter on zero ascend rate
janos_kovacs <kovjanos@gmail.com>
parents: 318
diff changeset
1018 movlw .0
c23d9d524eb9 VSIbar #3e: additional filter on zero ascend rate
janos_kovacs <kovjanos@gmail.com>
parents: 318
diff changeset
1019 cpfsgt divA+0
c23d9d524eb9 VSIbar #3e: additional filter on zero ascend rate
janos_kovacs <kovjanos@gmail.com>
parents: 318
diff changeset
1020 bra TFT_velocity_VSIbar_clr
c23d9d524eb9 VSIbar #3e: additional filter on zero ascend rate
janos_kovacs <kovjanos@gmail.com>
parents: 318
diff changeset
1021
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1022 ; multiply
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1023 movff divA+0,xA+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1024 clrf xA+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1025 movff sub_b+0,xB+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1026 clrf xB+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1027 call mult16x16 ; xA*xB=xC
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1028 movlw .1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1029 cpfslt xC+3
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1030 bra TFT_velocity_VSIbar_max
317
7b64c0ba6a7e VSIbar #3c: extra steps to keep calculation clear
janos_kovacs <kovjanos@gmail.com>
parents: 316
diff changeset
1031 movlw .1
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1032 cpfslt xC+2
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1033 bra TFT_velocity_VSIbar_max
317
7b64c0ba6a7e VSIbar #3c: extra steps to keep calculation clear
janos_kovacs <kovjanos@gmail.com>
parents: 316
diff changeset
1034 movlw .1
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1035 cpfslt xC+1
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1036 bra TFT_velocity_VSIbar_max
318
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
1037 movlw .60
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
1038 cpfslt xC+0
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
1039 bra TFT_velocity_VSIbar_max
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1040 ; add offset
318
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
1041 bcf STATUS,C
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1042 movff sub_b+1,WREG
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1043 addwf xC+0,1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1044 btfsc STATUS,C
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1045 bra TFT_velocity_VSIbar_max
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1046 ; check if out-of-range
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1047 movff xC+0,divB
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1048 movlw .60
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1049 cpfsgt divB
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1050 bra TFT_velocity_VSIbar_draw
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1051
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1052 TFT_velocity_VSIbar_max:
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1053 movlw .60
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1054 movff WREG,divB
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1055
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1056 TFT_velocity_VSIbar_draw:
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1057 ; calculate top&height for the bar and mask
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1058 ; 1. Bar: top=(bar_top+60-divB); height=divB
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1059 movlw dm_velobar_top+.1
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1060 movff WREG,sub_a+0 ; !!!!!! bar position must fit into lo !!
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1061 movlw .60
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1062 addwf sub_a+0,1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1063 clrf sub_a+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1064 movff divB,sub_b+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1065 clrf sub_b+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1066 call subU16
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1067
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1068 movlw color_white
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1069 WIN_BOX_COLOR dm_velobar_top+.60, dm_velobar_top+.63, dm_velobar_lft+.1, dm_velobar_rgt-.1 ;top, bottom, left, right
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1070
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1071 movff sub_c+0,win_top
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1072 movff divB,win_height
316
c6c934f05b42 VSIbar #3b: small fix on the bar's width
janos_kovacs <kovjanos@gmail.com>
parents: 315
diff changeset
1073 movlw dm_velobar_width-.2
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1074 movff WREG,win_width
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1075 movff WREG,win_bargraph
316
c6c934f05b42 VSIbar #3b: small fix on the bar's width
janos_kovacs <kovjanos@gmail.com>
parents: 315
diff changeset
1076 movlw dm_velobar_lft+.2
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1077 movff WREG,win_leftx2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1078 movlw color_green
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1079 call TFT_set_color
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1080 btfsc velocity_attn
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1081 call TFT_attention_color
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1082 btfsc velocity_warn
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1083 call TFT_warnings_color
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1084 call TFT_box
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1085
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1086 ;clear the rest
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1087 movlw .60
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1088 cpfslt divB
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1089 return ; divB !< 60 - the graph uses the full bar, no need to clear
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1090
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1091 ; 2. Mask: top=bar_top; height=60-divB
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1092 movlw .60
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1093 movff WREG,sub_a+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1094 clrf sub_a+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1095 movff divB,sub_b+0
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1096 clrf sub_b+1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1097 call subU16 ; sub_c = sub_a - sub_b
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1098
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1099 movlw dm_velobar_top+.1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1100 movff WREG,win_top
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1101 movff sub_c+0,win_height
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1102 movlw dm_velobar_width
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1103 movff WREG,win_width
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1104 movff WREG,win_bargraph
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1105 movlw dm_velobar_lft+.1
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1106 movff WREG,win_leftx2
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1107 movlw color_black
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1108 call TFT_set_color
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1109 call TFT_box
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1110 return
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1111
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1112 TFT_velocity_VSIbar_desc:
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1113 ; clear the ascend part of the bar
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1114 call TFT_velocity_VSIbar_clr
326
d21b172d5a7a VSIbar #4: VSI settings submenu, graph option, logbook offset and compass calib. menu exit fix
Janos Kovacs <kovjanos@gmail.com>
parents: 321
diff changeset
1115
d21b172d5a7a VSIbar #4: VSI settings submenu, graph option, logbook offset and compass calib. menu exit fix
Janos Kovacs <kovjanos@gmail.com>
parents: 321
diff changeset
1116 TSTOSS opt_vsigraph ; 0=skip, 1=draw
d21b172d5a7a VSIbar #4: VSI settings submenu, graph option, logbook offset and compass calib. menu exit fix
Janos Kovacs <kovjanos@gmail.com>
parents: 321
diff changeset
1117 return
d21b172d5a7a VSIbar #4: VSI settings submenu, graph option, logbook offset and compass calib. menu exit fix
Janos Kovacs <kovjanos@gmail.com>
parents: 321
diff changeset
1118
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1119 ; divA+0=0 is descend, clear everything if it's actually zero
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1120 movlw .0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1121 cpfsgt divA+0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1122 bra TFT_velocity_VSIbar_desc_clr
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1123
317
7b64c0ba6a7e VSIbar #3c: extra steps to keep calculation clear
janos_kovacs <kovjanos@gmail.com>
parents: 316
diff changeset
1124 clrf divB
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1125 ; Desc uses a single multiplier/offset value: *1 / +3
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1126 movlw .1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1127 movff WREG,sub_b+0 ; multiplier
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1128 movlw .3
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1129 movff WREG,sub_b+1 ; offset
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1130 ; multiply
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1131 movff divA+0,xA+0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1132 clrf xA+1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1133 movff sub_b+0,xB+0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1134 clrf xB+1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1135 call mult16x16 ; xA*xB=xC
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1136 movlw .1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1137 cpfslt xC+3
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1138 bra TFT_velocity_VSIbar_desc_max
317
7b64c0ba6a7e VSIbar #3c: extra steps to keep calculation clear
janos_kovacs <kovjanos@gmail.com>
parents: 316
diff changeset
1139 movlw .1
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1140 cpfslt xC+2
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1141 bra TFT_velocity_VSIbar_desc_max
317
7b64c0ba6a7e VSIbar #3c: extra steps to keep calculation clear
janos_kovacs <kovjanos@gmail.com>
parents: 316
diff changeset
1142 movlw .1
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1143 cpfslt xC+1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1144 bra TFT_velocity_VSIbar_desc_max
318
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
1145 movlw .22
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
1146 cpfslt xC+1
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
1147 bra TFT_velocity_VSIbar_desc_max
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1148 ; add offset
318
6d8c82fe5a01 VSIbar #3d: more filter, neg_flag_velocity close to calculation, debug color for descend bar
janos_kovacs <kovjanos@gmail.com>
parents: 317
diff changeset
1149 bcf STATUS,C
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1150 movff sub_b+1,WREG
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1151 addwf xC+0,1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1152 btfsc STATUS,C
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1153 bra TFT_velocity_VSIbar_desc_max
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1154 ; check if out-of-range
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1155 movff xC+0,divB
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1156 movlw .22
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1157 cpfsgt divB
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1158 bra TFT_velocity_VSIbar_desc_draw
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1159
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1160 TFT_velocity_VSIbar_desc_max:
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1161 movlw .22
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1162 movff WREG,divB
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1163
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1164 TFT_velocity_VSIbar_desc_draw:
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1165 ; calculate top&height for the bar and mask
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1166 ; 1. Bar: top=(bar_top+63); height=divB
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1167 movlw dm_velobar_top+.1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1168 movff WREG,sub_a+0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1169 movlw .62
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1170 addwf sub_a+0,1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1171
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1172 movlw color_white
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1173 WIN_BOX_COLOR dm_velobar_top+.60, dm_velobar_top+.63, dm_velobar_lft+.1, dm_velobar_rgt-.1 ;top, bottom, left, right
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1174
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1175 movff sub_a+0,win_top
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1176 movff divB,win_height
316
c6c934f05b42 VSIbar #3b: small fix on the bar's width
janos_kovacs <kovjanos@gmail.com>
parents: 315
diff changeset
1177 movlw dm_velobar_width-.2
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1178 movff WREG,win_width
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1179 movff WREG,win_bargraph
316
c6c934f05b42 VSIbar #3b: small fix on the bar's width
janos_kovacs <kovjanos@gmail.com>
parents: 315
diff changeset
1180 movlw dm_velobar_lft+.2
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1181 movff WREG,win_leftx2
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1182 movlw color_green
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1183 call TFT_set_color
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1184 call TFT_box
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1185
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1186 ;clear the rest
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1187 movlw .22
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1188 cpfslt divB
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1189 return ; divB !< 22 - the graph uses the full bar, no need to clear
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1190
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1191 ; 2. Mask: top=(bar_top+63+divB); height=(23-divB)
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1192 movlw .24
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1193 movff WREG,sub_a+0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1194 clrf sub_a+1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1195 movff divB,sub_b+0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1196 clrf sub_b+1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1197 call subU16 ; sub_c = sub_a - sub_b
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1198
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1199 movlw dm_velobar_top
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1200 movff WREG,sub_a+0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1201 movlw .61
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1202 addwf sub_a+0,1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1203 movff divB,WREG
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1204 addwf sub_a+0,1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1205
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1206 movff sub_a+0,win_top
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1207 movff sub_c+0,win_height
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1208 movlw dm_velobar_width
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1209 movff WREG,win_width
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1210 movff WREG,win_bargraph
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1211 movlw dm_velobar_lft+.1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1212 movff WREG,win_leftx2
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1213 movlw color_black
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1214 call TFT_set_color
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1215 call TFT_box
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1216 return
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1217
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1218 TFT_velocity_VSIbar_clr: ; clears the ascend part of the bar
332
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
1219 TSTOSS opt_vsigraph ; 0=skip, 1=draw
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
1220 return
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1221 WIN_BOX_BLACK dm_velobar_top+.1,dm_velobar_top+.63,dm_velobar_lft+.1,dm_velobar_rgt-.1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1222 if dm_offset == 0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1223 movlw color_dark_red
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1224 WIN_BOX_COLOR dm_velobar_top+.60, dm_velobar_top+.63, dm_velobar_lft+.1, dm_velobar_rgt-.1 ;top, bottom, left, right
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1225 endif
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1226 return
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1227
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1228 TFT_velocity_VSIbar_desc_clr: ; clears the descend part of the bar
332
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
1229 TSTOSS opt_vsigraph ; 0=skip, 1=draw
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
1230 return
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1231 WIN_BOX_BLACK dm_velobar_top+.61,dm_velobar_bot-.1,dm_velobar_lft+.1,dm_velobar_rgt-.1
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1232 if dm_offset == 0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1233 movlw color_dark_red
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1234 WIN_BOX_COLOR dm_velobar_top+.60, dm_velobar_top+.63, dm_velobar_lft+.1, dm_velobar_rgt-.1 ;top, bottom, left, right
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1235 endif
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1236 return
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1237
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1238 TFT_velocity_ntr: ; velocity under treshold
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1239 call TFT_velocity_clear
310
453a3d13570f VSIbar #2: ascend bar + max-depth title alignment. Debug: bar-frame, zero-line, sim+- 0.1m
janos_kovacs <kovjanos@gmail.com>
parents: 309
diff changeset
1240 ; use another logic when descending
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1241 btfss neg_flag_velocity
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1242 bra TFT_velocity_VSIbar_desc
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1243 bra TFT_velocity_VSIbar
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1244
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1245 global TFT_velocity_clear
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1246 TFT_velocity_clear:
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
1247 btfss display_velocity ; Velocity was not displayed, do not delete
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
1248 return
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
1249 bcf display_velocity ; Velocity was displayed, delete velocity now
0
heinrichsweikamp
parents:
diff changeset
1250 ; Clear Text
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1251 WIN_BOX_BLACK dm_velocity_text_row, dm_velocity_text_bot, dm_velocity_text_column, dm_velocity_text_rgt ; top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
1252 return
heinrichsweikamp
parents:
diff changeset
1253
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
1254 ;=========================================================================
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
1255
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1256 global TFT_clear_decoarea
0
heinrichsweikamp
parents:
diff changeset
1257 TFT_clear_decoarea:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1258 WIN_BOX_BLACK dm_decostop_1st_stop_row, .239, dm_decostop_1st_stop_column, .159 ; top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
1259 return
heinrichsweikamp
parents:
diff changeset
1260
heinrichsweikamp
parents:
diff changeset
1261 global TFT_clear_divemode_menu
heinrichsweikamp
parents:
diff changeset
1262 TFT_clear_divemode_menu:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1263 if dm_offset != 0
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1264 WIN_BOX_BLACK dm_menu_row, dm_menu_lower, dm_menu_left, dm_menu_right ; top, bottom, left, right
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1265 else
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1266 WIN_BOX_BLACK dm_3rdrow_top, dm_3rdrow_bot, dm_3rdrow_lft, dm_3rdrow_rgt ; top, bottom, left, right
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1267 endif
0
heinrichsweikamp
parents:
diff changeset
1268 return
heinrichsweikamp
parents:
diff changeset
1269
heinrichsweikamp
parents:
diff changeset
1270 global TFT_display_ndl_mask
heinrichsweikamp
parents:
diff changeset
1271 TFT_display_ndl_mask:
heinrichsweikamp
parents:
diff changeset
1272 btfsc divemode_menu ; Is the dive mode menu shown?
heinrichsweikamp
parents:
diff changeset
1273 return ; Yes, return
heinrichsweikamp
parents:
diff changeset
1274 rcall TFT_clear_decoarea ; Clear Dekostop and Dekosum
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1275 if dm_offset != 0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1276 call TFT_divemask_color
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1277 else
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1278 call TFT_attention_color
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1279 endif
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1280 WIN_STD dm_ndl_text_column, dm_ndl_text_row
0
heinrichsweikamp
parents:
diff changeset
1281 STRCPY_TEXT_PRINT tNDL ; NDL
heinrichsweikamp
parents:
diff changeset
1282 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1283 return
heinrichsweikamp
parents:
diff changeset
1284
heinrichsweikamp
parents:
diff changeset
1285 global TFT_show_TTS_divemode
heinrichsweikamp
parents:
diff changeset
1286 TFT_show_TTS_divemode:
heinrichsweikamp
parents:
diff changeset
1287 btfsc divemode_menu ; Is the dive mode menu shown?
heinrichsweikamp
parents:
diff changeset
1288 return ; Yes, return
heinrichsweikamp
parents:
diff changeset
1289 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1290 movff int_O_ascenttime+0,lo ; TTS
heinrichsweikamp
parents:
diff changeset
1291 movff int_O_ascenttime+1,hi ; on 16bits
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1292 WIN_MEDIUM dm_tts_value_column, dm_tts_value_row
0
heinrichsweikamp
parents:
diff changeset
1293 output_16_3 ;Displays only 0...999
heinrichsweikamp
parents:
diff changeset
1294 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
1295 return
heinrichsweikamp
parents:
diff changeset
1296
heinrichsweikamp
parents:
diff changeset
1297 global TFT_display_ndl
heinrichsweikamp
parents:
diff changeset
1298 TFT_display_ndl:
heinrichsweikamp
parents:
diff changeset
1299 btfsc divemode_menu ; Is the dive mode menu shown?
heinrichsweikamp
parents:
diff changeset
1300 return ; Yes, return
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1301 WIN_MEDIUM dm_ndl_value_column, dm_ndl_value_row
0
heinrichsweikamp
parents:
diff changeset
1302 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1303 movff char_O_nullzeit,lo ; Get NDL from C-code
heinrichsweikamp
parents:
diff changeset
1304 output_8
heinrichsweikamp
parents:
diff changeset
1305 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
1306 return
heinrichsweikamp
parents:
diff changeset
1307
heinrichsweikamp
parents:
diff changeset
1308 global TFT_divemode_warning
heinrichsweikamp
parents:
diff changeset
1309 TFT_divemode_warning:
heinrichsweikamp
parents:
diff changeset
1310 bsf dive_warning_displayed ; =1: The warning sign is shown
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1311 WIN_TOP dm_warning_icon_row
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1312 WIN_LEFT dm_warning_icon_column
252
d912fb71d606 change warning sign
heinrichsweikamp
parents: 251
diff changeset
1313 TFT_WRITE_PROM_IMAGE dive_warning2_block ; Show Warning icon
d912fb71d606 change warning sign
heinrichsweikamp
parents: 251
diff changeset
1314 return
0
heinrichsweikamp
parents:
diff changeset
1315
heinrichsweikamp
parents:
diff changeset
1316 global TFT_divemode_warning_clear
heinrichsweikamp
parents:
diff changeset
1317 TFT_divemode_warning_clear:
heinrichsweikamp
parents:
diff changeset
1318 btfss dive_warning_displayed ; =1: The warning sign is shown
heinrichsweikamp
parents:
diff changeset
1319 return
heinrichsweikamp
parents:
diff changeset
1320 bcf dive_warning_displayed ; clear only once
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1321 WIN_BOX_BLACK dm_warning_icon_row, dm_warning_icon_bot, dm_warning_icon_column, dm_warning_icon_rgt ; top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
1322 return
heinrichsweikamp
parents:
diff changeset
1323
heinrichsweikamp
parents:
diff changeset
1324 global TFT_display_deko_mask
heinrichsweikamp
parents:
diff changeset
1325 TFT_display_deko_mask:
heinrichsweikamp
parents:
diff changeset
1326 rcall TFT_clear_decoarea
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1327 WIN_STD dm_tts_text_column, dm_tts_text_row
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1328 if dm_offset != 0
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1329 call TFT_divemask_color
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1330 else
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1331 call TFT_attention_color
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
1332 endif
0
heinrichsweikamp
parents:
diff changeset
1333 STRCPY_TEXT_PRINT tTTS ; TTS
heinrichsweikamp
parents:
diff changeset
1334 call TFT_standard_color
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1335 bcf show_safety_stop ; Clear safety stop flag
0
heinrichsweikamp
parents:
diff changeset
1336 return
heinrichsweikamp
parents:
diff changeset
1337
heinrichsweikamp
parents:
diff changeset
1338 TFT_display_deko_output_depth: ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
1339 TSTOSS opt_units ; 0=m, 1=ft
heinrichsweikamp
parents:
diff changeset
1340 bra TFT_display_deko_output_metric
heinrichsweikamp
parents:
diff changeset
1341 ;TFT_display_deko_output_imperial:
heinrichsweikamp
parents:
diff changeset
1342 movf lo,W ; lo = m
heinrichsweikamp
parents:
diff changeset
1343 mullw .100 ; PRODL:PRODH = mbar
heinrichsweikamp
parents:
diff changeset
1344 movff PRODL,lo
heinrichsweikamp
parents:
diff changeset
1345 movff PRODH,hi
heinrichsweikamp
parents:
diff changeset
1346 ; Convert with 334feet/100m to have 10ft, 20ft, 30ft stops...
heinrichsweikamp
parents:
diff changeset
1347 movff lo,xA+0
heinrichsweikamp
parents:
diff changeset
1348 movff hi,xA+1
heinrichsweikamp
parents:
diff changeset
1349 movlw LOW d'334' ; 334feet/100m
heinrichsweikamp
parents:
diff changeset
1350 movwf xB+0
heinrichsweikamp
parents:
diff changeset
1351 movlw HIGH d'334'
heinrichsweikamp
parents:
diff changeset
1352 movwf xB+1
heinrichsweikamp
parents:
diff changeset
1353 call mult16x16 ; xA*xB=xC (lo:hi * 328)
heinrichsweikamp
parents:
diff changeset
1354 movlw d'50' ; round up
heinrichsweikamp
parents:
diff changeset
1355 addwf xC+0,F
heinrichsweikamp
parents:
diff changeset
1356 movlw 0
heinrichsweikamp
parents:
diff changeset
1357 addwfc xC+1,F
heinrichsweikamp
parents:
diff changeset
1358 addwfc xC+2,F
heinrichsweikamp
parents:
diff changeset
1359 addwfc xC+3,F
heinrichsweikamp
parents:
diff changeset
1360 movlw d'100'
heinrichsweikamp
parents:
diff changeset
1361 movwf xB+0
heinrichsweikamp
parents:
diff changeset
1362 clrf xB+1
heinrichsweikamp
parents:
diff changeset
1363 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
heinrichsweikamp
parents:
diff changeset
1364 movff xC+0,lo
heinrichsweikamp
parents:
diff changeset
1365 movff xC+1,hi ; restore lo and hi with updated value
heinrichsweikamp
parents:
diff changeset
1366 bcf leftbind
heinrichsweikamp
parents:
diff changeset
1367 bsf ignore_digit4 ; Only full feet
heinrichsweikamp
parents:
diff changeset
1368 output_16
heinrichsweikamp
parents:
diff changeset
1369 STRCAT_TEXT tFeets1
heinrichsweikamp
parents:
diff changeset
1370 return
heinrichsweikamp
parents:
diff changeset
1371
heinrichsweikamp
parents:
diff changeset
1372 TFT_display_deko_output_metric:
heinrichsweikamp
parents:
diff changeset
1373 output_99
heinrichsweikamp
parents:
diff changeset
1374 STRCAT_TEXT tMeters
heinrichsweikamp
parents:
diff changeset
1375 PUTC ' '
heinrichsweikamp
parents:
diff changeset
1376 return
heinrichsweikamp
parents:
diff changeset
1377
heinrichsweikamp
parents:
diff changeset
1378 global TFT_display_deko
heinrichsweikamp
parents:
diff changeset
1379 TFT_display_deko:
heinrichsweikamp
parents:
diff changeset
1380 btfsc divemode_menu ; Is the dive mode menu shown?
heinrichsweikamp
parents:
diff changeset
1381 return ; Yes, return
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1382 WIN_MEDIUM dm_decostop_1st_stop_column, dm_decostop_1st_stop_row
0
heinrichsweikamp
parents:
diff changeset
1383 TFT_color_code warn_ceiling ; Color-code Output
heinrichsweikamp
parents:
diff changeset
1384 movff char_O_first_deco_depth,lo ; Ceiling in m
heinrichsweikamp
parents:
diff changeset
1385 rcall TFT_display_deko_output_depth ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
1386 movff char_O_first_deco_time,lo ; length of first stop in min
heinrichsweikamp
parents:
diff changeset
1387 output_99
heinrichsweikamp
parents:
diff changeset
1388 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
1389 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1390 return
heinrichsweikamp
parents:
diff changeset
1391
heinrichsweikamp
parents:
diff changeset
1392 global TFT_decoplan
heinrichsweikamp
parents:
diff changeset
1393 TFT_decoplan:
heinrichsweikamp
parents:
diff changeset
1394 call TFT_divemask_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1395 WIN_TINY dm_custom_decoplan_title_column, dm_custom_decoplan_title_row
0
heinrichsweikamp
parents:
diff changeset
1396 STRCPY_TEXT_PRINT tDiveDecoplan
heinrichsweikamp
parents:
diff changeset
1397 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1398
heinrichsweikamp
parents:
diff changeset
1399 movff char_O_deco_depth+1,lo
heinrichsweikamp
parents:
diff changeset
1400 tstfsz lo ; Show another stop?
heinrichsweikamp
parents:
diff changeset
1401 bra TFT_display_deko2 ; Yes
heinrichsweikamp
parents:
diff changeset
1402 ; No, clear output and return
heinrichsweikamp
parents:
diff changeset
1403 call TFT_standard_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1404 WIN_SMALL dm_cust_dstop_4th_stop_column,dm_cust_dstop_4th_stop_row
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 96
diff changeset
1405 STRCPY_PRINT " --- "
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1406 WIN_BOX_BLACK dm_cust_dstop_2nd_stop_row, dm_customview_bot, dm_cust_dstop_2nd_stop_column, dm_cust_dstop_4th_stop_column ; top, bottom, left, right
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1407 WIN_BOX_BLACK dm_cust_dstop_5th_stop_row, dm_customview_bot, dm_cust_dstop_5th_stop_column, dm_cust_dstop_6th_stop_column ; top, bottom, left, right
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1408 WIN_BOX_BLACK dm_cust_dstop_6th_stop_row, dm_customview_bot, dm_cust_dstop_6th_stop_column, .159 ; top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
1409 return
heinrichsweikamp
parents:
diff changeset
1410 TFT_display_deko2:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1411 WIN_SMALL dm_cust_dstop_2nd_stop_column, dm_cust_dstop_2nd_stop_row
0
heinrichsweikamp
parents:
diff changeset
1412 movff char_O_deco_depth+1,lo ; stop in m
heinrichsweikamp
parents:
diff changeset
1413 bcf lo,7 ; Clear GAS_SWITCH bit
heinrichsweikamp
parents:
diff changeset
1414 rcall TFT_display_deko_output_depth ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
1415 movff char_O_deco_time+1,lo ; length of stop in min
heinrichsweikamp
parents:
diff changeset
1416 output_99
heinrichsweikamp
parents:
diff changeset
1417 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
1418 movff char_O_deco_depth+2,lo
heinrichsweikamp
parents:
diff changeset
1419 tstfsz lo ; Show another stop?
heinrichsweikamp
parents:
diff changeset
1420 bra TFT_display_deko3 ; Yes
heinrichsweikamp
parents:
diff changeset
1421 ; No, clear output and return
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1422 WIN_BOX_BLACK dm_cust_dstop_3rd_stop_row, dm_customview_bot, dm_cust_dstop_2nd_stop_column, dm_cust_dstop_4th_stop_column ; top, bottom, left, right
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1423 WIN_BOX_BLACK dm_cust_dstop_4th_stop_row, dm_customview_bot, dm_cust_dstop_4th_stop_column, .159 ; top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
1424 return
heinrichsweikamp
parents:
diff changeset
1425
heinrichsweikamp
parents:
diff changeset
1426 TFT_display_deko3:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1427 WIN_SMALL dm_cust_dstop_3rd_stop_column, dm_cust_dstop_3rd_stop_row
0
heinrichsweikamp
parents:
diff changeset
1428 movff char_O_deco_depth+2,lo ; stop in m
heinrichsweikamp
parents:
diff changeset
1429 bcf lo,7 ; Clear GAS_SWITCH bit
heinrichsweikamp
parents:
diff changeset
1430 rcall TFT_display_deko_output_depth ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
1431 movff char_O_deco_time+2,lo ; length of stop in min
heinrichsweikamp
parents:
diff changeset
1432 output_99
heinrichsweikamp
parents:
diff changeset
1433 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
1434
heinrichsweikamp
parents:
diff changeset
1435 movff char_O_deco_depth+3,lo
heinrichsweikamp
parents:
diff changeset
1436 tstfsz lo ; Show another stop?
heinrichsweikamp
parents:
diff changeset
1437 bra TFT_display_deko4 ; Yes
heinrichsweikamp
parents:
diff changeset
1438 ; No, clear output and return
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1439 WIN_BOX_BLACK dm_cust_dstop_4th_stop_row, dm_customview_bot, dm_cust_dstop_4th_stop_column, .159 ; top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
1440 return ; Done.
heinrichsweikamp
parents:
diff changeset
1441
heinrichsweikamp
parents:
diff changeset
1442 TFT_display_deko4:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1443 WIN_SMALL dm_cust_dstop_4th_stop_column, dm_cust_dstop_4th_stop_row
0
heinrichsweikamp
parents:
diff changeset
1444 movff char_O_deco_depth+3,lo ; stop in m
heinrichsweikamp
parents:
diff changeset
1445 bcf lo,7 ; Clear GAS_SWITCH bit
heinrichsweikamp
parents:
diff changeset
1446 rcall TFT_display_deko_output_depth ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
1447 movff char_O_deco_time+3,lo ; length of stop in min
heinrichsweikamp
parents:
diff changeset
1448 output_99
heinrichsweikamp
parents:
diff changeset
1449 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
1450
heinrichsweikamp
parents:
diff changeset
1451 movff char_O_deco_depth+4,lo
heinrichsweikamp
parents:
diff changeset
1452 tstfsz lo ; Show another stop?
heinrichsweikamp
parents:
diff changeset
1453 bra TFT_display_deko5 ; Yes
heinrichsweikamp
parents:
diff changeset
1454 ; No, clear output and return
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1455 WIN_BOX_BLACK dm_cust_dstop_5th_stop_row, dm_customview_bot, dm_cust_dstop_5th_stop_column, dm_cust_dstop_6th_stop_column ; top, bottom, left, right
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1456 WIN_BOX_BLACK dm_cust_dstop_6th_stop_row, dm_customview_bot, dm_cust_dstop_6th_stop_column, .159 ; top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
1457 return ; Done.
heinrichsweikamp
parents:
diff changeset
1458
heinrichsweikamp
parents:
diff changeset
1459 TFT_display_deko5:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1460 WIN_SMALL dm_cust_dstop_5th_stop_column, dm_cust_dstop_5th_stop_row
0
heinrichsweikamp
parents:
diff changeset
1461 movff char_O_deco_depth+4,lo ; stop in m
heinrichsweikamp
parents:
diff changeset
1462 bcf lo,7 ; Clear GAS_SWITCH bit
heinrichsweikamp
parents:
diff changeset
1463 rcall TFT_display_deko_output_depth ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
1464 movff char_O_deco_time+4,lo ; length of stop in min
heinrichsweikamp
parents:
diff changeset
1465 output_99
heinrichsweikamp
parents:
diff changeset
1466 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
1467 movff char_O_deco_depth+5,lo
heinrichsweikamp
parents:
diff changeset
1468 tstfsz lo ; Show another stop?
heinrichsweikamp
parents:
diff changeset
1469 bra TFT_display_deko6 ; Yes
heinrichsweikamp
parents:
diff changeset
1470 ; No, clear output and return
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1471 WIN_BOX_BLACK dm_cust_dstop_6th_stop_row, dm_customview_bot, dm_cust_dstop_6th_stop_column, .159 ; top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
1472 return ; Done.
heinrichsweikamp
parents:
diff changeset
1473 TFT_display_deko6:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1474 WIN_SMALL dm_cust_dstop_6th_stop_column, dm_cust_dstop_6th_stop_row
0
heinrichsweikamp
parents:
diff changeset
1475 movff char_O_deco_depth+5,lo ; stop in m
heinrichsweikamp
parents:
diff changeset
1476 bcf lo,7 ; Clear GAS_SWITCH bit
heinrichsweikamp
parents:
diff changeset
1477 rcall TFT_display_deko_output_depth ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
1478 movff char_O_deco_time+5,lo ; length of stop in min
heinrichsweikamp
parents:
diff changeset
1479 output_99
heinrichsweikamp
parents:
diff changeset
1480 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
1481 movff char_O_deco_depth+6,lo
heinrichsweikamp
parents:
diff changeset
1482 tstfsz lo ; Show another stop?
heinrichsweikamp
parents:
diff changeset
1483 bra TFT_display_deko7 ; Yes
heinrichsweikamp
parents:
diff changeset
1484 ; No, clear output and return
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1485 WIN_BOX_BLACK dm_cust_dstop_7th_stop_row, dm_customview_bot, dm_cust_dstop_7th_stop_column, .159 ; top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
1486 return ; Done.
heinrichsweikamp
parents:
diff changeset
1487 TFT_display_deko7:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1488 WIN_SMALL dm_cust_dstop_7th_stop_column, dm_cust_dstop_7th_stop_row
0
heinrichsweikamp
parents:
diff changeset
1489 movff char_O_deco_depth+6,lo ; stop in m
heinrichsweikamp
parents:
diff changeset
1490 bcf lo,7 ; Clear GAS_SWITCH bit
heinrichsweikamp
parents:
diff changeset
1491 rcall TFT_display_deko_output_depth ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
1492 movff char_O_deco_time+6,lo ; length of stop in min
heinrichsweikamp
parents:
diff changeset
1493 output_99
heinrichsweikamp
parents:
diff changeset
1494 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
1495 return ; Done.
heinrichsweikamp
parents:
diff changeset
1496
heinrichsweikamp
parents:
diff changeset
1497 ;TFT_display_deko1:
heinrichsweikamp
parents:
diff changeset
1498 ; movff char_O_gradient_factor,lo ; gradient factor
heinrichsweikamp
parents:
diff changeset
1499 ; movlw gf_display_threshold ; threshold for display
heinrichsweikamp
parents:
diff changeset
1500 ; cpfslt lo ; show value?
heinrichsweikamp
parents:
diff changeset
1501 ; bra TFT_display_deko2 ; Yes
heinrichsweikamp
parents:
diff changeset
1502 ; ; No
heinrichsweikamp
parents:
diff changeset
1503 ; bra TFT_display_ndl_mask2 ; Clear gradient factor
heinrichsweikamp
parents:
diff changeset
1504 ;
heinrichsweikamp
parents:
diff changeset
1505
131
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1506 global TFT_clear_safety_stop
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1507 TFT_clear_safety_stop:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1508 WIN_BOX_BLACK dm_safetystop_row, dm_safetystop_bot, dm_safetystop_text_column, .159 ; top, bottom, left, right
131
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1509 return
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1510
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1511 global TFT_show_safety_stop
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1512 TFT_show_safety_stop:
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1513 tstfsz safety_stop_countdown ; Countdown at zero?
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1514 bra TFT_show_safety_stop2 ; No, show stop
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1515
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1516 bcf show_safety_stop ; Clear flag
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1517
131
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1518 btfss safety_stop_active ; Displayed?
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1519 return ; No
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1520 bcf safety_stop_active ; Clear flag
131
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1521 btfsc divemode_menu ; Is the dive mode menu shown?
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1522 return ; Yes, return
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1523 rcall TFT_clear_safety_stop ; Yes, Clear stop
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1524 return
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1525
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1526 TFT_show_safety_stop2:
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1527 bsf safety_stop_active ; Set flag
131
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1528 decf safety_stop_countdown,F ; Reduce countdown
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1529
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1530 btfsc divemode_menu ; Is the dive mode menu shown?
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1531 return ; Yes, return
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1532 ;btfsc menuview
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1533 ;bra TFT_show_safety_stop3 ; No room when menuview=1...
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1534 if dm_offset != 0
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1535 call TFT_divemask_color
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1536 else
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1537 call TFT_standard_color
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1538 endif
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1539 WIN_STD dm_safetystop_text_column, dm_safetystop_text_row
131
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1540 STRCPY_TEXT_PRINT tDiveSafetyStop
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1541 TFT_show_safety_stop3:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1542 call TFT_attention_color ; show in yellow
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1543 WIN_MEDIUM dm_safetystop_column, dm_safetystop_row
131
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1544 lfsr FSR2,buffer
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1545 movff safety_stop_countdown,lo
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1546 clrf hi
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1547 call convert_time ; converts hi:lo in seconds to mins (hi) and seconds (lo)
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1548 movf hi,W
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1549 movff lo,hi
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1550 movwf lo ; exchange lo and hi
131
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1551 bsf leftbind
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1552 output_8
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
1553 bcf leftbind
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1554 PUTC ':'
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1555 movff hi,lo
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1556 output_99x
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1557 STRCAT_PRINT ""
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1558 WIN_FONT FT_SMALL
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1559 call TFT_standard_color
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1560 return
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
1561
0
heinrichsweikamp
parents:
diff changeset
1562 global TFT_mask_avr_stopwatch ; Show mask for average depth and stopwatch
heinrichsweikamp
parents:
diff changeset
1563 TFT_mask_avr_stopwatch:
heinrichsweikamp
parents:
diff changeset
1564 ; The mask
heinrichsweikamp
parents:
diff changeset
1565 call TFT_divemask_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1566 WIN_TINY dm_custom_avr_stop_title_column1,dm_custom_avr_stop_title_row
0
heinrichsweikamp
parents:
diff changeset
1567 STRCPY_TEXT_PRINT tDiveTotalAvr
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1568 WIN_TINY dm_custom_avr_stop_title_column2,dm_custom_avr_stop_title_row
0
heinrichsweikamp
parents:
diff changeset
1569 STRCPY_TEXT_PRINT tDiveStopwatch
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1570 WIN_TINY dm_custom_avr_stop_title_column3,dm_custom_avr_stop_title_row
0
heinrichsweikamp
parents:
diff changeset
1571 STRCPY_TEXT_PRINT tDiveStopAvr
heinrichsweikamp
parents:
diff changeset
1572 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1573 return
heinrichsweikamp
parents:
diff changeset
1574
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1575 global TFT_dyn_gaslist
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1576 TFT_dyn_gaslist: ; Show the dynamic gaslist
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1577 ; The mask
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1578 call TFT_divemask_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1579 WIN_TINY dm_custom_dyn_gas_mask_column,dm_custom_dyn_gas_mask_row
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1580 STRCPY_TEXT_PRINT tGaslist
262
e2fd372a917a bugfix dynamic gas list
heinrichsweikamp
parents: 260
diff changeset
1581 ; call TFT_standard_color
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1582
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1583 WIN_SMALL dm_custom_dyn_gas_column1,dm_custom_dyn_gas_row1
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1584 movlw .1
262
e2fd372a917a bugfix dynamic gas list
heinrichsweikamp
parents: 260
diff changeset
1585 movwf uart1_temp
139
e0b758865e91 some cleanup
heinrichsweikamp
parents: 134
diff changeset
1586 bsf short_gas_decriptions ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint
54
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
1587 rcall TFT_dyn_gaslist_common
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1588 WIN_SMALL dm_custom_dyn_gas_column1,dm_custom_dyn_gas_row2
262
e2fd372a917a bugfix dynamic gas list
heinrichsweikamp
parents: 260
diff changeset
1589 incf uart1_temp,F ; +1
e2fd372a917a bugfix dynamic gas list
heinrichsweikamp
parents: 260
diff changeset
1590 movf uart1_temp,W ; into W
54
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
1591 rcall TFT_dyn_gaslist_common
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1592 WIN_SMALL dm_custom_dyn_gas_column2,dm_custom_dyn_gas_row1
262
e2fd372a917a bugfix dynamic gas list
heinrichsweikamp
parents: 260
diff changeset
1593 incf uart1_temp,F ; +1
e2fd372a917a bugfix dynamic gas list
heinrichsweikamp
parents: 260
diff changeset
1594 movf uart1_temp,W ; into W
54
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
1595 rcall TFT_dyn_gaslist_common
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1596 WIN_SMALL dm_custom_dyn_gas_column2,dm_custom_dyn_gas_row2
262
e2fd372a917a bugfix dynamic gas list
heinrichsweikamp
parents: 260
diff changeset
1597 incf uart1_temp,F ; +1
e2fd372a917a bugfix dynamic gas list
heinrichsweikamp
parents: 260
diff changeset
1598 movf uart1_temp,W ; into W
54
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
1599 rcall TFT_dyn_gaslist_common
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
1600 call TFT_standard_color
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
1601 return
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
1602
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
1603 TFT_dyn_gaslist_common:
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1604 cpfseq active_gas ;1-5
262
e2fd372a917a bugfix dynamic gas list
heinrichsweikamp
parents: 260
diff changeset
1605 bra TFT_dyn_gaslist_common2
e2fd372a917a bugfix dynamic gas list
heinrichsweikamp
parents: 260
diff changeset
1606 incf uart1_temp,F ; +1
e2fd372a917a bugfix dynamic gas list
heinrichsweikamp
parents: 260
diff changeset
1607 TFT_dyn_gaslist_common2:
e2fd372a917a bugfix dynamic gas list
heinrichsweikamp
parents: 260
diff changeset
1608 movff uart1_temp,lo ; gas number 1-5
e2fd372a917a bugfix dynamic gas list
heinrichsweikamp
parents: 260
diff changeset
1609 movff uart1_temp,PRODL
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1610 decf PRODL,F ;-1 to have 0-4
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1611 bsf leftbind
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1612 output_8 ; Gas number
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1613 bcf leftbind
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1614 PUTC ":"
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1615 call gaslist_strcat_gas_mod ;Append gas description of gas #PRODL (0-4) to current string
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1616 PUTC " " ; Clearing space
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1617 movlw 0x00
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1618 movff WREG,buffer+.11 ; limit to 11 chars
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1619 STRCAT_PRINT ""
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1620 return
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
1621
54
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
1622
0
heinrichsweikamp
parents:
diff changeset
1623 global TFT_update_avr_stopwatch ; Update average depth and stopwatch
heinrichsweikamp
parents:
diff changeset
1624 TFT_update_avr_stopwatch:
heinrichsweikamp
parents:
diff changeset
1625 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1626 SAFE_2BYTE_COPY average_divesecs,lo
heinrichsweikamp
parents:
diff changeset
1627 call convert_time ; lo=secs, hi=mins
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1628 WIN_MEDIUM dm_custom_avr_stop_column2,dm_custom_avr_stop_row
0
heinrichsweikamp
parents:
diff changeset
1629 bsf leftbind
heinrichsweikamp
parents:
diff changeset
1630 movf hi,W
heinrichsweikamp
parents:
diff changeset
1631 movff lo,hi
heinrichsweikamp
parents:
diff changeset
1632 movwf lo ; exchange lo and hi
heinrichsweikamp
parents:
diff changeset
1633 output_8
heinrichsweikamp
parents:
diff changeset
1634 PUTC ':'
heinrichsweikamp
parents:
diff changeset
1635 movff hi,lo
heinrichsweikamp
parents:
diff changeset
1636 output_99x
heinrichsweikamp
parents:
diff changeset
1637 movlw .5
heinrichsweikamp
parents:
diff changeset
1638 call TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
1639 clrf WREG
heinrichsweikamp
parents:
diff changeset
1640 movff WREG,buffer+.5 ; limit to 5 chars
heinrichsweikamp
parents:
diff changeset
1641 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
1642
heinrichsweikamp
parents:
diff changeset
1643 TSTOSS opt_units ; 0=m, 1=ft
heinrichsweikamp
parents:
diff changeset
1644 bra TFT_update_avr_stopwatch_metric
heinrichsweikamp
parents:
diff changeset
1645 ;TFT_update_avr_stopwatch_imperial
heinrichsweikamp
parents:
diff changeset
1646 movff avr_rel_pressure_total+0,lo
heinrichsweikamp
parents:
diff changeset
1647 movff avr_rel_pressure_total+1,hi
heinrichsweikamp
parents:
diff changeset
1648 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
1649 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1650 WIN_MEDIUM dm_custom_avr_stop_column1,dm_custom_avr_stop_row
0
heinrichsweikamp
parents:
diff changeset
1651 bsf leftbind
heinrichsweikamp
parents:
diff changeset
1652 output_16 ; yxz
heinrichsweikamp
parents:
diff changeset
1653 STRCAT_PRINT " "
heinrichsweikamp
parents:
diff changeset
1654 ; Stopped average depth
heinrichsweikamp
parents:
diff changeset
1655 movff avr_rel_pressure+0,lo
heinrichsweikamp
parents:
diff changeset
1656 movff avr_rel_pressure+1,hi
heinrichsweikamp
parents:
diff changeset
1657 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
1658 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1659 WIN_MEDIUM dm_custom_avr_stop_column3,dm_custom_avr_stop_row
0
heinrichsweikamp
parents:
diff changeset
1660 output_16 ; yxz
heinrichsweikamp
parents:
diff changeset
1661 bcf leftbind
heinrichsweikamp
parents:
diff changeset
1662 STRCAT_PRINT " "
heinrichsweikamp
parents:
diff changeset
1663 return
heinrichsweikamp
parents:
diff changeset
1664
heinrichsweikamp
parents:
diff changeset
1665 TFT_update_avr_stopwatch_metric:
heinrichsweikamp
parents:
diff changeset
1666 ; Non-resettable average depth
heinrichsweikamp
parents:
diff changeset
1667 movff avr_rel_pressure_total+0,lo
heinrichsweikamp
parents:
diff changeset
1668 movff avr_rel_pressure_total+1,hi
heinrichsweikamp
parents:
diff changeset
1669 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1670 WIN_MEDIUM dm_custom_avr_stop_column1,dm_custom_avr_stop_row
0
heinrichsweikamp
parents:
diff changeset
1671 bsf ignore_digit5 ; no cm
heinrichsweikamp
parents:
diff changeset
1672 output_16dp .3 ; yxz.a
231
834e1c35160c BUGFIX: Show average depth with one decimal digit only
mh@mh-THINK
parents: 229
diff changeset
1673 STRCAT_PRINT " "
0
heinrichsweikamp
parents:
diff changeset
1674 ; Stopped average depth
heinrichsweikamp
parents:
diff changeset
1675 movff avr_rel_pressure+0,lo
heinrichsweikamp
parents:
diff changeset
1676 movff avr_rel_pressure+1,hi
heinrichsweikamp
parents:
diff changeset
1677 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1678 WIN_MEDIUM dm_custom_avr_stop_column3,dm_custom_avr_stop_row
0
heinrichsweikamp
parents:
diff changeset
1679 bsf ignore_digit5 ; no cm
heinrichsweikamp
parents:
diff changeset
1680 output_16dp .3 ; yxz.a
heinrichsweikamp
parents:
diff changeset
1681 bcf leftbind
heinrichsweikamp
parents:
diff changeset
1682 bcf ignore_digit5
369
ca32cf2435c6 fixing some layout issues
heinrichsweikamp
parents: 353
diff changeset
1683 clrf WREG
ca32cf2435c6 fixing some layout issues
heinrichsweikamp
parents: 353
diff changeset
1684 movff WREG,buffer+.4 ; limit string length to 4
ca32cf2435c6 fixing some layout issues
heinrichsweikamp
parents: 353
diff changeset
1685 STRCAT_PRINT ""
0
heinrichsweikamp
parents:
diff changeset
1686 return
heinrichsweikamp
parents:
diff changeset
1687
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1688 global TFT_ceiling_mask ; The ceiling mask
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1689 TFT_ceiling_mask:
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1690 call TFT_divemask_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1691 WIN_TINY dm_custom_ceiling_text_column,dm_custom_ceiling_text_row
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1692 STRCPY_TEXT_PRINT tCeiling
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1693 call TFT_standard_color
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1694 return
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1695
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1696 global TFT_ceiling ; Ceiling
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1697 TFT_ceiling:
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1698 call TFT_standard_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1699 WIN_MEDIUM dm_custom_ceiling_value_column,dm_custom_ceiling_value_row
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1700 movff int_O_ceiling+0,lo
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1701 movff int_O_ceiling+1,hi
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1702 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1703 bsf leftbind
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1704 TSTOSS opt_units ; 0=m, 1=ft
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1705 bra TFT_ceiling_metric
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1706 ;TFT_ceiling_imperial
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1707 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1708 output_16 ; yxz
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1709 bcf leftbind
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1710 STRCAT_PRINT " "
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1711 return
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1712
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1713 TFT_ceiling_metric:
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1714 bsf ignore_digit5 ; no cm
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1715 output_16dp .3 ; yxz.a
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1716 bcf leftbind
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1717 bcf ignore_digit5
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1718 STRCAT_PRINT " "
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1719 return
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1720
0
heinrichsweikamp
parents:
diff changeset
1721 global TFT_hud_mask ; The HUD mask
heinrichsweikamp
parents:
diff changeset
1722 TFT_hud_mask:
heinrichsweikamp
parents:
diff changeset
1723 call TFT_divemask_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1724 WIN_TINY dm_custom_hud_column1,dm_custom_hud_row
0
heinrichsweikamp
parents:
diff changeset
1725 STRCPY_TEXT_PRINT tDiveHudMask1
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1726 WIN_TINY dm_custom_hud_column2,dm_custom_hud_row
0
heinrichsweikamp
parents:
diff changeset
1727 STRCPY_TEXT_PRINT tDiveHudMask2
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1728 WIN_TINY dm_custom_hud_column3,dm_custom_hud_row
0
heinrichsweikamp
parents:
diff changeset
1729 STRCPY_TEXT_PRINT tDiveHudMask3
heinrichsweikamp
parents:
diff changeset
1730 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1731 return
heinrichsweikamp
parents:
diff changeset
1732
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1733 global TFT_hud_voltages
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1734 TFT_hud_voltages: ; Show HUD details
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1735 WIN_SMALL dm_custom_hud_sensor1_column,dm_custom_hud_data_row
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1736 call TFT_standard_color
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1737 btfss use_O2_sensor1
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1738 call TFT_warnings_color
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1739 movff o2_mv_sensor1+0,lo
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1740 movff o2_mv_sensor1+1,hi
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1741 bsf leftbind
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1742 output_16dp .4 ; x.xx
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1743 bcf leftbind
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1744 STRCAT_PRINT "mV "
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1745 WIN_SMALL dm_custom_hud_sensor2_column,dm_custom_hud_data_row
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1746 call TFT_standard_color
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1747 btfss use_O2_sensor2
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1748 call TFT_warnings_color
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1749 movff o2_mv_sensor2+0,lo
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1750 movff o2_mv_sensor2+1,hi
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1751 bsf leftbind
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1752 output_16dp .4 ; x.xx
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1753 bcf leftbind
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1754 STRCAT_PRINT "mV "
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1755 WIN_SMALL dm_custom_hud_sensor3_column,dm_custom_hud_data_row
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1756 call TFT_standard_color
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1757 btfss use_O2_sensor3
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1758 call TFT_warnings_color
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1759 movff o2_mv_sensor3+0,lo
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1760 movff o2_mv_sensor3+1,hi
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1761 bsf leftbind
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1762 output_16dp .4 ; x.xx
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1763 bcf leftbind
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1764 STRCAT_PRINT "mV "
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1765 call TFT_standard_color
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1766 return
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1767
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1768 global TFT_update_ppo2_sensors ; Update Sensor data
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1769 TFT_update_ppo2_sensors:
0
heinrichsweikamp
parents:
diff changeset
1770 ; show three sensors
heinrichsweikamp
parents:
diff changeset
1771 bsf leftbind
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1772 btfsc use_O2_sensor1 ; Use Sensor 1?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1773 bra TFT_update_hud1 ; Yes
0
heinrichsweikamp
parents:
diff changeset
1774 btfss dive_hud1_displayed ; Was the sensor shown?
heinrichsweikamp
parents:
diff changeset
1775 bra TFT_update_hud2 ; Yes, skip clear
heinrichsweikamp
parents:
diff changeset
1776 bcf dive_hud1_displayed ; No, clear display flag
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1777 WIN_BOX_BLACK dm_custom_hud_data_row, dm_customview_bot, dm_custom_hud_sensor1_column, dm_custom_hud_sensor2_column ; top, bottom, left, right
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1778 WIN_STD dm_custom_hud_sensor1_column+.7, dm_custom_hud_data_row+.5
0
heinrichsweikamp
parents:
diff changeset
1779 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1780 STRCPY_PRINT "---"
heinrichsweikamp
parents:
diff changeset
1781 bra TFT_update_hud2 ; Skip Sensor 1
heinrichsweikamp
parents:
diff changeset
1782 TFT_update_hud1:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1783 WIN_MEDIUM dm_custom_hud_sensor1_column,dm_custom_hud_data_row
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1784 movff o2_ppo2_sensor1,lo
0
heinrichsweikamp
parents:
diff changeset
1785 TFT_color_code warn_ppo2_hud ; With ppO2 [cbar] in lo
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1786 btfss voting_logic_sensor1 ; Sensor within voting logic?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1787 bsf win_invert ; No, invert output...
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1788 btfss voting_logic_sensor1
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1789 call TFT_warnings_color ; ... and draw in red
0
heinrichsweikamp
parents:
diff changeset
1790 clrf hi
heinrichsweikamp
parents:
diff changeset
1791 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1792 STRCAT_PRINT ""
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1793 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
1794 bsf dive_hud1_displayed ; Set display flag
heinrichsweikamp
parents:
diff changeset
1795 TFT_update_hud2:
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1796 btfsc use_O2_sensor2 ; Use Sensor 2?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1797 bra TFT_update_hud3 ; Yes
0
heinrichsweikamp
parents:
diff changeset
1798 btfss dive_hud2_displayed ; Was the sensor shown?
heinrichsweikamp
parents:
diff changeset
1799 bra TFT_update_hud4 ; Yes, skip clear
heinrichsweikamp
parents:
diff changeset
1800 bcf dive_hud2_displayed ; No, clear display flag
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1801 WIN_BOX_BLACK dm_custom_hud_data_row, dm_customview_bot, dm_custom_hud_sensor2_column, dm_custom_hud_sensor3_column ; top, bottom, left, right
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1802 WIN_STD dm_custom_hud_sensor2_column+.7, dm_custom_hud_data_row+.5
0
heinrichsweikamp
parents:
diff changeset
1803 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1804 STRCPY_PRINT "---"
heinrichsweikamp
parents:
diff changeset
1805 bra TFT_update_hud4 ; Skip Sensor 2
heinrichsweikamp
parents:
diff changeset
1806 TFT_update_hud3:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1807 WIN_MEDIUM dm_custom_hud_sensor2_column,dm_custom_hud_data_row
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1808 movff o2_ppo2_sensor2,lo
0
heinrichsweikamp
parents:
diff changeset
1809 TFT_color_code warn_ppo2_hud ; With ppO2 [cbar] in lo
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1810 btfss voting_logic_sensor2 ; Sensor within voting logic?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1811 bsf win_invert ; No, invert output...
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1812 btfss voting_logic_sensor2
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1813 call TFT_warnings_color ; ... and draw in red
0
heinrichsweikamp
parents:
diff changeset
1814 clrf hi
heinrichsweikamp
parents:
diff changeset
1815 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1816 STRCAT_PRINT ""
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1817 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
1818 bsf dive_hud2_displayed ; Set display flag
heinrichsweikamp
parents:
diff changeset
1819 TFT_update_hud4:
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1820 btfsc use_O2_sensor3 ; Use Sensor 3?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1821 bra TFT_update_hud5 ; Yes
0
heinrichsweikamp
parents:
diff changeset
1822 btfss dive_hud3_displayed ; Was the sensor shown?
heinrichsweikamp
parents:
diff changeset
1823 bra TFT_update_hud6 ; Yes, skip clear
heinrichsweikamp
parents:
diff changeset
1824 bcf dive_hud3_displayed ; No, clear display flag
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1825 WIN_BOX_BLACK dm_custom_hud_data_row, dm_customview_bot, dm_custom_hud_sensor3_column, .159 ; top, bottom, left, right
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1826 WIN_STD dm_custom_hud_sensor3_column+.7, dm_custom_hud_data_row+.5
0
heinrichsweikamp
parents:
diff changeset
1827 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1828 STRCPY_PRINT "---"
heinrichsweikamp
parents:
diff changeset
1829 bra TFT_update_hud6 ; Skip Sensor 3
heinrichsweikamp
parents:
diff changeset
1830 TFT_update_hud5:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
1831 WIN_MEDIUM dm_custom_hud_sensor3_column,dm_custom_hud_data_row
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1832 movff o2_ppo2_sensor3,lo
0
heinrichsweikamp
parents:
diff changeset
1833 TFT_color_code warn_ppo2_hud ; With ppO2 [cbar] in lo
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1834 btfss voting_logic_sensor3 ; Sensor within voting logic?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1835 bsf win_invert ; No, invert output...
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1836 btfss voting_logic_sensor3
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1837 call TFT_warnings_color ; ... and draw in red
0
heinrichsweikamp
parents:
diff changeset
1838 clrf hi
heinrichsweikamp
parents:
diff changeset
1839 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1840 STRCAT_PRINT ""
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1841 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
1842 bsf dive_hud3_displayed ; Set display flag
heinrichsweikamp
parents:
diff changeset
1843 TFT_update_hud6:
heinrichsweikamp
parents:
diff changeset
1844 bcf leftbind
heinrichsweikamp
parents:
diff changeset
1845 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1846 return
heinrichsweikamp
parents:
diff changeset
1847
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1848 global TFT_surface_sensor ; Update Sensor data in surface mode
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1849 TFT_surface_sensor:
249
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 248
diff changeset
1850 movf hardware_flag,W
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 248
diff changeset
1851 sublw 0x11 ; 2 with BLE
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 248
diff changeset
1852 btfsc STATUS,Z
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 248
diff changeset
1853 return ; Ignore for 0x11
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 248
diff changeset
1854
0
heinrichsweikamp
parents:
diff changeset
1855 ; show three sensors
heinrichsweikamp
parents:
diff changeset
1856 bsf leftbind
heinrichsweikamp
parents:
diff changeset
1857 WIN_SMALL surf_hud_sensor1_column,surf_hud_sensor1_row
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1858 btfsc use_O2_sensor1 ; Use Sensor 1?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1859 bra TFT_surface_sensor1 ; Yes
0
heinrichsweikamp
parents:
diff changeset
1860 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1861 STRCPY_PRINT "--- "
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1862 bra TFT_surface_sensor2 ; Skip Sensor 1
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1863 TFT_surface_sensor1:
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1864 movff o2_ppo2_sensor1,lo
0
heinrichsweikamp
parents:
diff changeset
1865 TFT_color_code warn_ppo2_hud ; With ppO2 [cbar] in lo
heinrichsweikamp
parents:
diff changeset
1866 clrf hi
heinrichsweikamp
parents:
diff changeset
1867 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1868 STRCAT_PRINT ""
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1869 TFT_surface_sensor2:
0
heinrichsweikamp
parents:
diff changeset
1870 WIN_SMALL surf_hud_sensor2_column,surf_hud_sensor2_row
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1871 btfsc use_O2_sensor2 ; Use Sensor 2?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1872 bra TFT_surface_sensor3 ; Yes
0
heinrichsweikamp
parents:
diff changeset
1873 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1874 STRCPY_PRINT "--- "
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1875 bra TFT_surface_sensor4 ; Skip Sensor 2
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1876 TFT_surface_sensor3:
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1877 movff o2_ppo2_sensor2,lo
0
heinrichsweikamp
parents:
diff changeset
1878 TFT_color_code warn_ppo2_hud ; With ppO2 [cbar] in lo
heinrichsweikamp
parents:
diff changeset
1879 clrf hi
heinrichsweikamp
parents:
diff changeset
1880 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1881 STRCAT_PRINT ""
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1882 TFT_surface_sensor4:
0
heinrichsweikamp
parents:
diff changeset
1883 WIN_SMALL surf_hud_sensor3_column,surf_hud_sensor3_row
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1884 btfsc use_O2_sensor3 ; Use Sensor 3?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1885 bra TFT_surface_sensor5 ; Yes
0
heinrichsweikamp
parents:
diff changeset
1886 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1887 STRCPY_PRINT "--- "
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1888 bra TFT_surface_sensor6 ; Skip Sensor 3
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1889 TFT_surface_sensor5:
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1890 movff o2_ppo2_sensor3,lo
0
heinrichsweikamp
parents:
diff changeset
1891 TFT_color_code warn_ppo2_hud ; With ppO2 [cbar] in lo
heinrichsweikamp
parents:
diff changeset
1892 clrf hi
heinrichsweikamp
parents:
diff changeset
1893 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1894 STRCAT_PRINT ""
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1895 TFT_surface_sensor6:
0
heinrichsweikamp
parents:
diff changeset
1896 bcf leftbind
heinrichsweikamp
parents:
diff changeset
1897 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1898 return
heinrichsweikamp
parents:
diff changeset
1899
heinrichsweikamp
parents:
diff changeset
1900 global TFT_menu_hud
heinrichsweikamp
parents:
diff changeset
1901 TFT_menu_hud: ; Yes, update HUD data
247
5968af2839a4 BUGFIX: Always update CCR sensor data in Sensor-Menu
heinrichsweikamp
parents: 239
diff changeset
1902 call compute_ppo2 ; compute mv_sensorX and ppo2_sensorX arrays
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
1903 call TFT_attention_color ; show in yellow
0
heinrichsweikamp
parents:
diff changeset
1904 bsf leftbind
heinrichsweikamp
parents:
diff changeset
1905 WIN_SMALL surf_menu_sensor1_column,surf_menu_sensor1_row
heinrichsweikamp
parents:
diff changeset
1906 movff o2_ppo2_sensor1,lo
heinrichsweikamp
parents:
diff changeset
1907 clrf hi
heinrichsweikamp
parents:
diff changeset
1908 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1909 PUTC ","
heinrichsweikamp
parents:
diff changeset
1910 movff o2_mv_sensor1+0,lo ; in 0.1mV steps
heinrichsweikamp
parents:
diff changeset
1911 movff o2_mv_sensor1+1,hi ; in 0.1mV steps
heinrichsweikamp
parents:
diff changeset
1912 output_16dp .4 ; xxx.y mV
heinrichsweikamp
parents:
diff changeset
1913 STRCAT_PRINT "mV "
heinrichsweikamp
parents:
diff changeset
1914 WIN_SMALL surf_menu_sensor2_column,surf_menu_sensor2_row
heinrichsweikamp
parents:
diff changeset
1915 movff o2_ppo2_sensor2,lo
heinrichsweikamp
parents:
diff changeset
1916 clrf hi
heinrichsweikamp
parents:
diff changeset
1917 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1918 PUTC ","
heinrichsweikamp
parents:
diff changeset
1919 movff o2_mv_sensor2+0,lo ; in 0.1mV steps
heinrichsweikamp
parents:
diff changeset
1920 movff o2_mv_sensor2+1,hi ; in 0.1mV steps
heinrichsweikamp
parents:
diff changeset
1921 output_16dp .4 ; xxx.y mV
heinrichsweikamp
parents:
diff changeset
1922 STRCAT_PRINT "mV "
heinrichsweikamp
parents:
diff changeset
1923 WIN_SMALL surf_menu_sensor3_column,surf_menu_sensor3_row
heinrichsweikamp
parents:
diff changeset
1924 movff o2_ppo2_sensor3,lo
heinrichsweikamp
parents:
diff changeset
1925 clrf hi
heinrichsweikamp
parents:
diff changeset
1926 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1927 PUTC ","
heinrichsweikamp
parents:
diff changeset
1928 movff o2_mv_sensor3+0,lo ; in 0.1mV steps
heinrichsweikamp
parents:
diff changeset
1929 movff o2_mv_sensor3+1,hi ; in 0.1mV steps
heinrichsweikamp
parents:
diff changeset
1930 output_16dp .4 ; xxx.y mV
heinrichsweikamp
parents:
diff changeset
1931 STRCAT_PRINT "mV "
heinrichsweikamp
parents:
diff changeset
1932 WIN_SMALL surf_menu_sensor4_column,surf_menu_sensor4_row
113
heinrichsweikamp
parents: 106
diff changeset
1933
236
e2ea74646127 configure hardware_flag byte
heinrichsweikamp
parents: 235
diff changeset
1934 btfss analog_o2_input
113
heinrichsweikamp
parents: 106
diff changeset
1935 bra TFT_menu_hud_2 ; always for normal OSTC3
heinrichsweikamp
parents: 106
diff changeset
1936 btfss s8_digital
heinrichsweikamp
parents: 106
diff changeset
1937 return ; Not for analog
heinrichsweikamp
parents: 106
diff changeset
1938 TFT_menu_hud_2:
0
heinrichsweikamp
parents:
diff changeset
1939 STRCPY "Batt:"
heinrichsweikamp
parents:
diff changeset
1940 movff hud_battery_mv+0,lo ; in mV
heinrichsweikamp
parents:
diff changeset
1941 movff hud_battery_mv+1,hi ; in mV
heinrichsweikamp
parents:
diff changeset
1942 output_16dp .2 ; x.yyy V
heinrichsweikamp
parents:
diff changeset
1943 STRCAT_PRINT "V"
heinrichsweikamp
parents:
diff changeset
1944 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1945 bcf leftbind
heinrichsweikamp
parents:
diff changeset
1946 return
heinrichsweikamp
parents:
diff changeset
1947
187
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1948 global TFT_menu_calibrate
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1949 TFT_menu_calibrate: ; update mV data in calibration menu
229
e1e5876bd777 minor cleanup
mh@mh-THINK
parents: 227
diff changeset
1950 call compute_ppo2 ; compute mv_sensorX and ppo2_sensorX arrays
113
heinrichsweikamp
parents: 106
diff changeset
1951 call TFT_attention_color ; show in yellow
heinrichsweikamp
parents: 106
diff changeset
1952 bsf leftbind
heinrichsweikamp
parents: 106
diff changeset
1953 WIN_SMALL surf_menu_sensor1_column,surf_menu2_sensor1_row
heinrichsweikamp
parents: 106
diff changeset
1954 movff o2_mv_sensor1+0,lo ; in 0.1mV steps
heinrichsweikamp
parents: 106
diff changeset
1955 movff o2_mv_sensor1+1,hi ; in 0.1mV steps
heinrichsweikamp
parents: 106
diff changeset
1956 output_16dp .4 ; xxx.y mV
heinrichsweikamp
parents: 106
diff changeset
1957 STRCAT_PRINT "mV "
heinrichsweikamp
parents: 106
diff changeset
1958 WIN_SMALL surf_menu_sensor2_column,surf_menu2_sensor2_row
heinrichsweikamp
parents: 106
diff changeset
1959 movff o2_mv_sensor2+0,lo ; in 0.1mV steps
heinrichsweikamp
parents: 106
diff changeset
1960 movff o2_mv_sensor2+1,hi ; in 0.1mV steps
heinrichsweikamp
parents: 106
diff changeset
1961 output_16dp .4 ; xxx.y mV
heinrichsweikamp
parents: 106
diff changeset
1962 STRCAT_PRINT "mV "
heinrichsweikamp
parents: 106
diff changeset
1963 WIN_SMALL surf_menu_sensor3_column,surf_menu2_sensor3_row
heinrichsweikamp
parents: 106
diff changeset
1964 movff o2_mv_sensor3+0,lo ; in 0.1mV steps
heinrichsweikamp
parents: 106
diff changeset
1965 movff o2_mv_sensor3+1,hi ; in 0.1mV steps
heinrichsweikamp
parents: 106
diff changeset
1966 output_16dp .4 ; xxx.y mV
heinrichsweikamp
parents: 106
diff changeset
1967 STRCAT_PRINT "mV "
187
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1968 ; WIN_SMALL surf_menu2_ambient_column,surf_menu2_ambient_row
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1969 ; PUTC "@"
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1970 ; SAFE_2BYTE_COPY amb_pressure, lo
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1971 ; output_16
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1972 ; STRCAT_TEXT tMBAR ; mbar
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1973 ; STRCAT_PRINT " "
113
heinrichsweikamp
parents: 106
diff changeset
1974 call TFT_standard_color
heinrichsweikamp
parents: 106
diff changeset
1975 bcf leftbind
heinrichsweikamp
parents: 106
diff changeset
1976 return
heinrichsweikamp
parents: 106
diff changeset
1977
0
heinrichsweikamp
parents:
diff changeset
1978 global TFT_clock
heinrichsweikamp
parents:
diff changeset
1979 TFT_clock:
48
7c7d7644ca37 Time and Date in normal (Not tiny) font
heinrichsweikamp
parents: 42
diff changeset
1980 WIN_SMALL surf_clock_column,surf_clock_row
0
heinrichsweikamp
parents:
diff changeset
1981 TFT_clock2: ; called from divemode clock
heinrichsweikamp
parents:
diff changeset
1982 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1983 movff hours,lo
heinrichsweikamp
parents:
diff changeset
1984 output_99
heinrichsweikamp
parents:
diff changeset
1985 movlw ':'
heinrichsweikamp
parents:
diff changeset
1986 btfss secs,0 ; blinking every second
heinrichsweikamp
parents:
diff changeset
1987 movlw ' '
heinrichsweikamp
parents:
diff changeset
1988 movwf POSTINC2
heinrichsweikamp
parents:
diff changeset
1989 movff mins,lo
heinrichsweikamp
parents:
diff changeset
1990 output_99x
heinrichsweikamp
parents:
diff changeset
1991 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
1992 return
heinrichsweikamp
parents:
diff changeset
1993
heinrichsweikamp
parents:
diff changeset
1994 global TFT_show_time_date_menu
heinrichsweikamp
parents:
diff changeset
1995 TFT_show_time_date_menu:
heinrichsweikamp
parents:
diff changeset
1996 call speed_fastest
heinrichsweikamp
parents:
diff changeset
1997 WIN_SMALL .15,.30
heinrichsweikamp
parents:
diff changeset
1998 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1999 movff hours,lo
heinrichsweikamp
parents:
diff changeset
2000 output_99
heinrichsweikamp
parents:
diff changeset
2001 PUTC ':'
heinrichsweikamp
parents:
diff changeset
2002 movff mins,lo
heinrichsweikamp
parents:
diff changeset
2003 output_99x
heinrichsweikamp
parents:
diff changeset
2004 PUTC ':'
heinrichsweikamp
parents:
diff changeset
2005 movff secs,lo
heinrichsweikamp
parents:
diff changeset
2006 output_99x
heinrichsweikamp
parents:
diff changeset
2007 STRCAT " - "
heinrichsweikamp
parents:
diff changeset
2008 movff month,convert_value_temp+0
heinrichsweikamp
parents:
diff changeset
2009 movff day,convert_value_temp+1
heinrichsweikamp
parents:
diff changeset
2010 movff year,convert_value_temp+2
heinrichsweikamp
parents:
diff changeset
2011 call TFT_convert_date ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2
heinrichsweikamp
parents:
diff changeset
2012 STRCAT_PRINT " "
heinrichsweikamp
parents:
diff changeset
2013 return
heinrichsweikamp
parents:
diff changeset
2014 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2015
heinrichsweikamp
parents:
diff changeset
2016 global TFT_interval
heinrichsweikamp
parents:
diff changeset
2017 TFT_interval:
heinrichsweikamp
parents:
diff changeset
2018 call TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
2019 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
2020 return ; No
309
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
2021 call TFT_warning_set_window_com
0
heinrichsweikamp
parents:
diff changeset
2022 STRCPY "Int:"
heinrichsweikamp
parents:
diff changeset
2023 movff surface_interval+0,lo
heinrichsweikamp
parents:
diff changeset
2024 movff surface_interval+1,hi
heinrichsweikamp
parents:
diff changeset
2025 call convert_time ; lo=mins, hi=hours
heinrichsweikamp
parents:
diff changeset
2026 movf hi,W
heinrichsweikamp
parents:
diff changeset
2027 movff lo,hi
heinrichsweikamp
parents:
diff changeset
2028 movwf lo ; exchange lo and hi
heinrichsweikamp
parents:
diff changeset
2029 output_99x
heinrichsweikamp
parents:
diff changeset
2030 PUTC ':'
heinrichsweikamp
parents:
diff changeset
2031 movff hi,lo
heinrichsweikamp
parents:
diff changeset
2032 output_99x
heinrichsweikamp
parents:
diff changeset
2033 movlw surf_warning_length ; No, use surface string length
heinrichsweikamp
parents:
diff changeset
2034 call TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
2035 STRCAT_PRINT ""
341
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
2036 bcf win_invert
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
2037 return
0
heinrichsweikamp
parents:
diff changeset
2038
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2039 global TFT_surface_decosettings ; Show all deco settings
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2040 TFT_surface_decosettings:
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2041 ; Deco Mode
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2042 call TFT_standard_color
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2043 movff char_I_deco_model,WREG
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2044 iorwf WREG
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2045 bnz TFT_surface_decosettings1
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2046
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2047 ; Display ZH-L16 sat/desat model.
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2048 TEXT_SMALL surf_gaslist_column,surf_gaslist_row, tZHL16
122
3e84e2a64188 Show %'s for non-GF deco model in surface mode
heinrichsweikamp
parents: 118
diff changeset
2049 WIN_TOP surf_gaslist_row+(surf_gaslist_spacing*.1)
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2050 lfsr FSR2,buffer
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2051 movff char_I_desaturation_multiplier,lo
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2052 bsf leftbind
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2053 output_8
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2054 STRCAT "%/"
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2055 movff char_I_saturation_multiplier,lo
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2056 output_8
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2057 STRCAT_PRINT "%"
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2058 bra TFT_surface_decosettings2
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2059
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2060 ; Display ZH-L16-GF low/high model.
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2061 TFT_surface_decosettings1:
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2062 TEXT_SMALL surf_gaslist_column,surf_gaslist_row, tZHL16GF
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2063 WIN_TOP surf_gaslist_row+(surf_gaslist_spacing*.1)
42
mh@mh-THINK.fritz.box
parents: 41
diff changeset
2064 STRCPY_TEXT tGF ; GF:
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2065 movff char_I_GF_Low_percentage,lo
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2066 output_99x
42
mh@mh-THINK.fritz.box
parents: 41
diff changeset
2067 STRCAT "/"
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2068 movff char_I_GF_High_percentage,lo
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2069 output_99x
42
mh@mh-THINK.fritz.box
parents: 41
diff changeset
2070 STRCAT_PRINT ""
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2071 ;bra TFT_surface_decosettings2
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2072 TFT_surface_decosettings2:
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2073 ; FTTS
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2074 WIN_TOP surf_gaslist_row+(surf_gaslist_spacing*.2)
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2075 STRCPY_TEXT tFTTSMenu
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2076 movff char_I_extra_time,lo
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2077 bsf leftbind
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2078 output_8
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2079 STRCAT_TEXT_PRINT tMinutes
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2080
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2081 ; Last Stop
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2082 WIN_TOP surf_gaslist_row+(surf_gaslist_spacing*.3)
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2083 STRCPY_TEXT tLastDecostop
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2084 movff char_I_depth_last_deco,lo
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2085 output_8
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2086 STRCAT_TEXT_PRINT tMeters
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2087
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2088 ; Salinity
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2089 WIN_TOP surf_gaslist_row+(surf_gaslist_spacing*.4)
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2090 STRCPY_TEXT tDvSalinity
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2091 movff opt_salinity,lo
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2092 output_8
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2093 bcf leftbind
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2094 STRCAT_TEXT_PRINT tPercent
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
2095 return ; Done.
0
heinrichsweikamp
parents:
diff changeset
2096
heinrichsweikamp
parents:
diff changeset
2097 global TFT_debug_output
heinrichsweikamp
parents:
diff changeset
2098 TFT_debug_output:
117
heinrichsweikamp
parents: 116
diff changeset
2099 return
113
heinrichsweikamp
parents: 106
diff changeset
2100 WIN_TINY .80,.0
heinrichsweikamp
parents: 106
diff changeset
2101 call TFT_standard_color
heinrichsweikamp
parents: 106
diff changeset
2102 lfsr FSR2,buffer
262
e2fd372a917a bugfix dynamic gas list
heinrichsweikamp
parents: 260
diff changeset
2103 movff active_gas,lo
203
dd9b167e82dc 1.64 (Fix ambient light for cR)
heinrichsweikamp
parents: 200
diff changeset
2104 output_8
0
heinrichsweikamp
parents:
diff changeset
2105 STRCAT_PRINT ""
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
2106 return
0
heinrichsweikamp
parents:
diff changeset
2107
55
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2108 global TFT_divetimeout ; Show timeout counter
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2109 TFT_divetimeout:
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2110 call TFT_warning_set_window ; Sets the row and column for the current warning
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2111 tstfsz WREG ; Is there room for the warning?
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2112 return ; No
309
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
2113 call TFT_warning_set_window_com
55
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2114 call TFT_standard_color
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2115 STRCPY 0x94 ; "End of dive" icon
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2116 movlw LOW divemode_timeout
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2117 movwf sub_a+0
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2118 movlw HIGH divemode_timeout
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2119 movwf sub_a+1
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2120 movff timeout_counter,sub_b+0
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2121 movff timeout_counter2,sub_b+1
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2122 call subU16 ; sub_c = sub_a - sub_b (with UNSIGNED values)
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2123 movff sub_c+0, lo
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2124 movff sub_c+1, hi
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2125 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2126 movf hi,W
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2127 movff lo,hi
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2128 movwf lo ; exchange lo and hi
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2129 output_99x
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2130 PUTC ':'
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2131 movff hi,lo
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2132 output_99x
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2133 movlw dm_warning_length ; Divemode string length
55
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2134 call TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2135 STRCAT_PRINT ""
341
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
2136 bcf win_invert
55
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2137 return
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
2138
0
heinrichsweikamp
parents:
diff changeset
2139 global TFT_ftts
heinrichsweikamp
parents:
diff changeset
2140 TFT_ftts:
heinrichsweikamp
parents:
diff changeset
2141 movff char_I_extra_time,lo
heinrichsweikamp
parents:
diff changeset
2142 tstfsz lo
heinrichsweikamp
parents:
diff changeset
2143 bra $+4
heinrichsweikamp
parents:
diff changeset
2144 return ; char_I_extra_time=0, return.
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2145
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2146 if dm_offset !=0
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2147 incf warning_counter,F ; increase counter
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2148 call TFT_warning_set_window ; Sets the row and column for the current warning
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2149 tstfsz WREG ; Is there room for the warning?
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2150 return ; No
309
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
2151 call TFT_warning_set_window_com
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2152 else
315
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
2153 btfsc divemode_menu ; Is the dive mode menu shown?
4f83470dcece VSIbar #3: remaining changes for the split style bar
Janos Kovacs <kovjanos@gmail.com>
parents: 310
diff changeset
2154 return ; Yes, return
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2155 call TFT_standard_color
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2156 WIN_SMALL dm_ftts_value_column, dm_ftts_value_row
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2157 endif
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2158
0
heinrichsweikamp
parents:
diff changeset
2159 movff char_I_extra_time,lo
heinrichsweikamp
parents:
diff changeset
2160 STRCPY "@+"
heinrichsweikamp
parents:
diff changeset
2161 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2162 output_8
heinrichsweikamp
parents:
diff changeset
2163 PUTC ":"
heinrichsweikamp
parents:
diff changeset
2164 movff int_O_extra_ascenttime+0,lo
heinrichsweikamp
parents:
diff changeset
2165 movff int_O_extra_ascenttime+1,hi
heinrichsweikamp
parents:
diff changeset
2166 movf lo,W
heinrichsweikamp
parents:
diff changeset
2167 iorwf hi,W ; extra_ascenttime == 0 ?
heinrichsweikamp
parents:
diff changeset
2168 bz TFT_ftts2 ; No deco
heinrichsweikamp
parents:
diff changeset
2169 movf lo,W ; extra_ascenttime == 0xFFFF ?
heinrichsweikamp
parents:
diff changeset
2170 andwf hi,W
heinrichsweikamp
parents:
diff changeset
2171 incf WREG,w
heinrichsweikamp
parents:
diff changeset
2172 bz TFT_ftts2 ; Wait...
heinrichsweikamp
parents:
diff changeset
2173 output_16
heinrichsweikamp
parents:
diff changeset
2174 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2175 PUTC "'"
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2176 movlw dm_warning_length ; Divemode string length
0
heinrichsweikamp
parents:
diff changeset
2177 call TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
2178 STRCAT_PRINT ""
341
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
2179 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
2180 return
heinrichsweikamp
parents:
diff changeset
2181
heinrichsweikamp
parents:
diff changeset
2182 TFT_ftts2:
heinrichsweikamp
parents:
diff changeset
2183 STRCAT "---"
heinrichsweikamp
parents:
diff changeset
2184 bcf leftbind
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2185 movlw dm_warning_length ; Divemode string length
0
heinrichsweikamp
parents:
diff changeset
2186 call TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
2187 STRCAT_PRINT ""
341
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
2188 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
2189 return
heinrichsweikamp
parents:
diff changeset
2190
heinrichsweikamp
parents:
diff changeset
2191
heinrichsweikamp
parents:
diff changeset
2192 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2193
heinrichsweikamp
parents:
diff changeset
2194 global TFT_temp_surfmode
heinrichsweikamp
parents:
diff changeset
2195 TFT_temp_surfmode:
heinrichsweikamp
parents:
diff changeset
2196 WIN_SMALL surf_temp_column,surf_temp_row
heinrichsweikamp
parents:
diff changeset
2197 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2198
heinrichsweikamp
parents:
diff changeset
2199 SAFE_2BYTE_COPY temperature, lo
heinrichsweikamp
parents:
diff changeset
2200
heinrichsweikamp
parents:
diff changeset
2201 TSTOSS opt_units ; 0=°C, 1=°F
heinrichsweikamp
parents:
diff changeset
2202 bra TFT_temp_surfmode_metric
heinrichsweikamp
parents:
diff changeset
2203
heinrichsweikamp
parents:
diff changeset
2204 ;TFT_temp_surfmode_imperial:
214
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
2205 rcall TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
0
heinrichsweikamp
parents:
diff changeset
2206 call convert_celsius_to_fahrenheit ; convert value in lo:hi from celsius to fahrenheit
heinrichsweikamp
parents:
diff changeset
2207 lfsr FSR2,buffer ; Overwrite "-"
heinrichsweikamp
parents:
diff changeset
2208 bsf ignore_digit5 ; Full degrees only
heinrichsweikamp
parents:
diff changeset
2209 output_16
heinrichsweikamp
parents:
diff changeset
2210 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2211 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
2212 WIN_SMALL surf_temp_column+4*8,surf_temp_row
heinrichsweikamp
parents:
diff changeset
2213 STRCPY_PRINT "°F"
heinrichsweikamp
parents:
diff changeset
2214 return
heinrichsweikamp
parents:
diff changeset
2215
heinrichsweikamp
parents:
diff changeset
2216 TFT_temp_surfmode_metric:
214
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
2217 rcall TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
0
heinrichsweikamp
parents:
diff changeset
2218 movlw d'3'
heinrichsweikamp
parents:
diff changeset
2219 movwf ignore_digits
heinrichsweikamp
parents:
diff changeset
2220 bsf ignore_digit5 ; Full degrees only
heinrichsweikamp
parents:
diff changeset
2221 output_16
heinrichsweikamp
parents:
diff changeset
2222
13
2af021c66b0d fix negative temperature display in surfacemode
heinrichsweikamp
parents: 11
diff changeset
2223 ; read-back the buffer+4
2af021c66b0d fix negative temperature display in surfacemode
heinrichsweikamp
parents: 11
diff changeset
2224 movff buffer+4,lo
0
heinrichsweikamp
parents:
diff changeset
2225 movlw " " ; Space
heinrichsweikamp
parents:
diff changeset
2226 cpfseq lo ; Was it a space (between +1°C and -1°C)?
heinrichsweikamp
parents:
diff changeset
2227 bra TFT_temp_surfmode1 ; No.
heinrichsweikamp
parents:
diff changeset
2228 movlw "0" ; Yes, print manual zero
heinrichsweikamp
parents:
diff changeset
2229 movff WREG,buffer+3
heinrichsweikamp
parents:
diff changeset
2230 bra TFT_temp_surfmode2
heinrichsweikamp
parents:
diff changeset
2231 TFT_temp_surfmode1:
heinrichsweikamp
parents:
diff changeset
2232 ; Test if output was negative (Flag set in TFT_convert_signed_16bit)
heinrichsweikamp
parents:
diff changeset
2233 btfss neg_flag ; Negative temperature?
heinrichsweikamp
parents:
diff changeset
2234 bra TFT_temp_surfmode3 ; No, continue
heinrichsweikamp
parents:
diff changeset
2235 ; Yes, negative temperature!
heinrichsweikamp
parents:
diff changeset
2236 movff buffer+3,buffer+2 ; remove two spaces manually
heinrichsweikamp
parents:
diff changeset
2237 movff buffer+4,buffer+3
heinrichsweikamp
parents:
diff changeset
2238 TFT_temp_surfmode2:
heinrichsweikamp
parents:
diff changeset
2239 movlw 0x00
heinrichsweikamp
parents:
diff changeset
2240 movff WREG,buffer+4
heinrichsweikamp
parents:
diff changeset
2241 TFT_temp_surfmode3:
heinrichsweikamp
parents:
diff changeset
2242 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2243 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
2244 WIN_SMALL surf_temp_column+4*8,surf_temp_row
heinrichsweikamp
parents:
diff changeset
2245 STRCPY_PRINT "°C"
heinrichsweikamp
parents:
diff changeset
2246 return
heinrichsweikamp
parents:
diff changeset
2247
heinrichsweikamp
parents:
diff changeset
2248 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2249 global TFT_divemode_menu_cursor
heinrichsweikamp
parents:
diff changeset
2250 TFT_divemode_menu_cursor:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2251 WIN_BOX_BLACK dm_menu_row+.1, dm_menu_lower-.1, dm_menu_item1_column-.8, dm_menu_item1_column-.1
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2252 WIN_BOX_BLACK dm_menu_row+.1, dm_menu_lower-.1, dm_menu_item4_column-.8, dm_menu_item4_column-.1
0
heinrichsweikamp
parents:
diff changeset
2253 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2254
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2255 movlw dm_menu_item1_column-.8
0
heinrichsweikamp
parents:
diff changeset
2256 btfsc menupos,2 ; >3?
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2257 movlw dm_menu_item4_column-.8 ; Yes
0
heinrichsweikamp
parents:
diff changeset
2258 movff WREG,win_leftx2
heinrichsweikamp
parents:
diff changeset
2259
heinrichsweikamp
parents:
diff changeset
2260 movff menupos,lo ; Copy menu pos
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2261 movlw dm_menu_item6_row
0
heinrichsweikamp
parents:
diff changeset
2262 dcfsnz lo,F
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2263 movlw dm_menu_item1_row
0
heinrichsweikamp
parents:
diff changeset
2264 dcfsnz lo,F
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2265 movlw dm_menu_item2_row
0
heinrichsweikamp
parents:
diff changeset
2266 dcfsnz lo,F
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2267 movlw dm_menu_item3_row
0
heinrichsweikamp
parents:
diff changeset
2268 dcfsnz lo,F
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2269 movlw dm_menu_item4_row
0
heinrichsweikamp
parents:
diff changeset
2270 dcfsnz lo,F
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2271 movlw dm_menu_item5_row
0
heinrichsweikamp
parents:
diff changeset
2272 movff WREG,win_top
heinrichsweikamp
parents:
diff changeset
2273 movlw FT_SMALL
heinrichsweikamp
parents:
diff changeset
2274 movff WREG,win_font
heinrichsweikamp
parents:
diff changeset
2275 STRCPY_PRINT "\xb7" ; print cursor
heinrichsweikamp
parents:
diff changeset
2276 return
heinrichsweikamp
parents:
diff changeset
2277
heinrichsweikamp
parents:
diff changeset
2278 global TFT_temp_divemode
heinrichsweikamp
parents:
diff changeset
2279 TFT_temp_divemode:
heinrichsweikamp
parents:
diff changeset
2280 btfsc divemode_menu ; Is the dive mode menu shown?
heinrichsweikamp
parents:
diff changeset
2281 return ; Yes, return
heinrichsweikamp
parents:
diff changeset
2282 btfsc blinking_better_gas ; blinking better Gas?
heinrichsweikamp
parents:
diff changeset
2283 return ; Yes, no update of temperature now
heinrichsweikamp
parents:
diff changeset
2284 ; temperature
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2285 WIN_SMALL dm_temp_column,dm_temp_row
0
heinrichsweikamp
parents:
diff changeset
2286 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2287 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2288
heinrichsweikamp
parents:
diff changeset
2289 SAFE_2BYTE_COPY temperature, lo
heinrichsweikamp
parents:
diff changeset
2290 TSTOSS opt_units ; 0=°C, 1=°F
heinrichsweikamp
parents:
diff changeset
2291 bra TFT_temp_divemode_metric
heinrichsweikamp
parents:
diff changeset
2292
heinrichsweikamp
parents:
diff changeset
2293 ;TFT_temp_divemode_imperial:
214
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
2294 rcall TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
0
heinrichsweikamp
parents:
diff changeset
2295 call convert_celsius_to_fahrenheit ; convert value in lo:hi from celsius to fahrenheit
heinrichsweikamp
parents:
diff changeset
2296 lfsr FSR2,buffer ; Overwrite "-" (There won't be less then -18°C underwater...)
heinrichsweikamp
parents:
diff changeset
2297 bsf ignore_digit5 ; Full degrees only
heinrichsweikamp
parents:
diff changeset
2298 output_16
heinrichsweikamp
parents:
diff changeset
2299 STRCAT_TEXT tLogTunitF
heinrichsweikamp
parents:
diff changeset
2300 TFT_temp_divemode_common:
heinrichsweikamp
parents:
diff changeset
2301 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2302 movlw .4 ; limit to three chars
heinrichsweikamp
parents:
diff changeset
2303 call TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
2304 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2305 return ; Done.
heinrichsweikamp
parents:
diff changeset
2306
heinrichsweikamp
parents:
diff changeset
2307 TFT_temp_divemode_metric:
214
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
2308 rcall TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
0
heinrichsweikamp
parents:
diff changeset
2309 movlw d'3'
heinrichsweikamp
parents:
diff changeset
2310 movwf ignore_digits
heinrichsweikamp
parents:
diff changeset
2311 bsf ignore_digit5 ; Full degrees only
heinrichsweikamp
parents:
diff changeset
2312 output_16
heinrichsweikamp
parents:
diff changeset
2313 STRCAT_TEXT tLogTunitC
heinrichsweikamp
parents:
diff changeset
2314 bra TFT_temp_divemode_common ; Done.
heinrichsweikamp
parents:
diff changeset
2315
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2316 TFT_active_setpoint2:
0
heinrichsweikamp
parents:
diff changeset
2317 movff char_I_const_ppO2,lo
heinrichsweikamp
parents:
diff changeset
2318 TFT_color_code warn_ppo2_hud ; With ppO2 [cbar] in lo
heinrichsweikamp
parents:
diff changeset
2319 clrf hi
heinrichsweikamp
parents:
diff changeset
2320 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2321 output_16dp d'3'
heinrichsweikamp
parents:
diff changeset
2322 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2323 STRCAT_TEXT tbar
337
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
2324 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
2325 sublw .1 ; opt_ccr_mode = 1 (Sensor)?
339
692903c50788 minor: fix calc_deko_divemode_sensor
heinrichsweikamp
parents: 337
diff changeset
2326 bnz TFT_active_setpoint2_a ; No, skip
0
heinrichsweikamp
parents:
diff changeset
2327 PUTC "*"
339
692903c50788 minor: fix calc_deko_divemode_sensor
heinrichsweikamp
parents: 337
diff changeset
2328 TFT_active_setpoint2_a:
0
heinrichsweikamp
parents:
diff changeset
2329 STRCAT_PRINT ""
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2330 return
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2331
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2332 TFT_active_setpoint: ; Show setpoint
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2333 WIN_STD dm_active_gas_column, dm_active_gas_row
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2334 call TFT_standard_color
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2335 btfsc is_bailout ; =1: Bailout
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2336 bra TFT_active_setpoint_bail ; Show "Bailout" instead of Setpoint
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2337
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2338 rcall TFT_active_setpoint2 ; show setpoint (Non-Inverted in all cases)
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2339
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2340 btfss setpoint_fallback ; =1: Fallback to SP1 due to external O2 sensor failure
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2341 bra TFT_active_setpoint_diluent ; Done.
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2342 btg blinking_setpoint ; Toggle blink bit...
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2343 btfss blinking_setpoint ; blink now?
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2344 bra TFT_active_setpoint_diluent ; Done.
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2345
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2346 movlw color_yellow ; Blink in yellow
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2347 call TFT_set_color
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
2348 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
2349 WIN_STD dm_active_gas_column, dm_active_gas_row
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2350 movff char_I_const_ppO2,lo
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2351 clrf hi
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2352 bsf leftbind
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2353 output_16dp d'3'
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2354 bcf leftbind
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2355 STRCAT_TEXT tbar
337
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
2356 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
2357 sublw .1 ; opt_ccr_mode = 1 (Sensor)?
339
692903c50788 minor: fix calc_deko_divemode_sensor
heinrichsweikamp
parents: 337
diff changeset
2358 bnz TFT_active_setpoint_a ; No, skip
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2359 PUTC "*"
339
692903c50788 minor: fix calc_deko_divemode_sensor
heinrichsweikamp
parents: 337
diff changeset
2360 TFT_active_setpoint_a:
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
2361 STRCAT_PRINT ""
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
2362 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
2363
heinrichsweikamp
parents:
diff changeset
2364 TFT_active_setpoint_diluent:
heinrichsweikamp
parents:
diff changeset
2365 call TFT_standard_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2366 if dm_offset != 0
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2367 WIN_SMALL dm_active_dil_column, dm_active_dil_row
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2368 else
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2369 WIN_STD dm_active_dil_column, dm_active_dil_row
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2370 endif
0
heinrichsweikamp
parents:
diff changeset
2371 movff char_I_O2_ratio,lo ; lo now stores O2 in %
heinrichsweikamp
parents:
diff changeset
2372 movff char_I_He_ratio,hi ; hi now stores He in %
heinrichsweikamp
parents:
diff changeset
2373 rcall TFT_show_dil_divemode2 ; Show diluent (Non-Inverted in all cases)
heinrichsweikamp
parents:
diff changeset
2374
heinrichsweikamp
parents:
diff changeset
2375 btfss better_gas_available ; =1: A better gas is available and a gas change is advised in divemode
heinrichsweikamp
parents:
diff changeset
2376 return ; Done.
heinrichsweikamp
parents:
diff changeset
2377 btg blinking_better_gas ; Toggle blink bit...
heinrichsweikamp
parents:
diff changeset
2378 btfss blinking_better_gas ; blink now?
heinrichsweikamp
parents:
diff changeset
2379 return ; No, Done.
heinrichsweikamp
parents:
diff changeset
2380
heinrichsweikamp
parents:
diff changeset
2381 movlw color_yellow ; Blink in yellow
heinrichsweikamp
parents:
diff changeset
2382 call TFT_set_color
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
2383 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
2384 if dm_offset != 0
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2385 WIN_SMALL dm_active_dil_column, dm_active_dil_row
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2386 else
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2387 WIN_STD dm_active_dil_column, dm_active_dil_row
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2388 endif
0
heinrichsweikamp
parents:
diff changeset
2389 movff char_I_O2_ratio,lo ; lo now stores O2 in %
heinrichsweikamp
parents:
diff changeset
2390 movff char_I_He_ratio,hi ; hi now stores He in %
heinrichsweikamp
parents:
diff changeset
2391 rcall TFT_show_dil_divemode2 ; Show gas
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
2392 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
2393 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2394 return ; Done.
heinrichsweikamp
parents:
diff changeset
2395
heinrichsweikamp
parents:
diff changeset
2396 TFT_show_dil_divemode2:
heinrichsweikamp
parents:
diff changeset
2397 call customview_show_mix ; Put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2
heinrichsweikamp
parents:
diff changeset
2398 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2399 return
heinrichsweikamp
parents:
diff changeset
2400
heinrichsweikamp
parents:
diff changeset
2401 TFT_active_setpoint_bail:
heinrichsweikamp
parents:
diff changeset
2402 STRCPY_TEXT_PRINT tDiveBailout ; Bailout
heinrichsweikamp
parents:
diff changeset
2403 bra TFT_active_setpoint_diluent
heinrichsweikamp
parents:
diff changeset
2404
heinrichsweikamp
parents:
diff changeset
2405 global TFT_active_gas_divemode
heinrichsweikamp
parents:
diff changeset
2406 TFT_active_gas_divemode: ; Display gas/Setpoint
heinrichsweikamp
parents:
diff changeset
2407 btfsc divemode_menu ; Is the dive mode menu shown?
heinrichsweikamp
parents:
diff changeset
2408 return ; Yes, return
heinrichsweikamp
parents:
diff changeset
2409 btfsc FLAG_apnoe_mode ; Ignore in Apnoe mode
heinrichsweikamp
parents:
diff changeset
2410 return
heinrichsweikamp
parents:
diff changeset
2411 btfsc FLAG_ccr_mode ; in CCR mode
heinrichsweikamp
parents:
diff changeset
2412 bra TFT_active_setpoint ; Yes, show setpoint
heinrichsweikamp
parents:
diff changeset
2413
heinrichsweikamp
parents:
diff changeset
2414 call TFT_standard_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2415 WIN_STD dm_active_gas_column, dm_active_gas_row
0
heinrichsweikamp
parents:
diff changeset
2416 movff char_I_O2_ratio,lo ; lo now stores O2 in %
heinrichsweikamp
parents:
diff changeset
2417 movff char_I_He_ratio,hi ; hi now stores He in %
heinrichsweikamp
parents:
diff changeset
2418 rcall TFT_active_gas_divemode2 ; Show gas (Non-Inverted in all cases)
heinrichsweikamp
parents:
diff changeset
2419 btfss better_gas_available ; =1: A better gas is available and a gas change is advised in divemode
heinrichsweikamp
parents:
diff changeset
2420 return ; Done.
heinrichsweikamp
parents:
diff changeset
2421
heinrichsweikamp
parents:
diff changeset
2422 btg blinking_better_gas ; Toggle blink bit...
heinrichsweikamp
parents:
diff changeset
2423 btfss blinking_better_gas ; blink now?
heinrichsweikamp
parents:
diff changeset
2424 return ; No, Done.
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
2425 call TFT_attention_color ; blink in yellow
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
2426 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
2427 WIN_STD dm_active_gas_column, dm_active_gas_row
0
heinrichsweikamp
parents:
diff changeset
2428 movff char_I_O2_ratio,lo ; lo now stores O2 in %
heinrichsweikamp
parents:
diff changeset
2429 movff char_I_He_ratio,hi ; hi now stores He in %
heinrichsweikamp
parents:
diff changeset
2430 rcall TFT_active_gas_divemode2 ; Show gas (Non-Inverted in all cases)
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
2431 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
2432 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2433 return ; Done.
heinrichsweikamp
parents:
diff changeset
2434
heinrichsweikamp
parents:
diff changeset
2435 TFT_active_gas_divemode2:
heinrichsweikamp
parents:
diff changeset
2436 call customview_show_mix ; Put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2
heinrichsweikamp
parents:
diff changeset
2437 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2438 return
heinrichsweikamp
parents:
diff changeset
2439
heinrichsweikamp
parents:
diff changeset
2440 global TFT_display_decotype_surface
heinrichsweikamp
parents:
diff changeset
2441 TFT_display_decotype_surface:
heinrichsweikamp
parents:
diff changeset
2442 WIN_STD surf_decotype_column,surf_decotype_row
heinrichsweikamp
parents:
diff changeset
2443 WIN_COLOR color_lightblue
heinrichsweikamp
parents:
diff changeset
2444 movff opt_dive_mode,lo ; 0=OC, 1=CC, 2=Gauge, 3=Apnea
heinrichsweikamp
parents:
diff changeset
2445 tstfsz lo
heinrichsweikamp
parents:
diff changeset
2446 bra TFT_display_decotype_surface2
116
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2447 TFT_display_decotype_surface0:
0
heinrichsweikamp
parents:
diff changeset
2448 STRCAT_TEXT_PRINT tDvOC ; OC
heinrichsweikamp
parents:
diff changeset
2449 bra TFT_display_decotype_exit
heinrichsweikamp
parents:
diff changeset
2450 TFT_display_decotype_surface2:
heinrichsweikamp
parents:
diff changeset
2451 decfsz lo,F
heinrichsweikamp
parents:
diff changeset
2452 bra TFT_display_decotype_surface3
113
heinrichsweikamp
parents: 106
diff changeset
2453 STRCAT_TEXT_PRINT tDvCC ; CC
heinrichsweikamp
parents: 106
diff changeset
2454 call TFT_standard_color
heinrichsweikamp
parents: 106
diff changeset
2455 WIN_TINY surf_decotype_column+.18,surf_decotype_row+.12
heinrichsweikamp
parents: 106
diff changeset
2456
337
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
2457 TSTOSS opt_ccr_mode ; =0: Fixed SP, =1: Sensor, =2: Auto SP
113
heinrichsweikamp
parents: 106
diff changeset
2458 bra TFT_display_decotype_cc_fixed
337
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
2459 ; Sensor mode or Auto
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
2460 movff opt_ccr_mode,WREG
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
2461 sublw .2
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
2462 bz TFT_display_decotype_cc_auto
113
heinrichsweikamp
parents: 106
diff changeset
2463 STRCPY_TEXT tCCRModeSensor ; Sensor
heinrichsweikamp
parents: 106
diff changeset
2464 bra TFT_display_decotype_cc_common
337
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
2465 TFT_display_decotype_cc_auto:
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
2466 STRCPY_TEXT tCCRModeAutoSP ; Auto SP
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
2467 bra TFT_display_decotype_cc_common
113
heinrichsweikamp
parents: 106
diff changeset
2468 TFT_display_decotype_cc_fixed:
337
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
2469 STRCPY_TEXT tCCRModeFixedSP ; Fixed SP
113
heinrichsweikamp
parents: 106
diff changeset
2470 TFT_display_decotype_cc_common:
heinrichsweikamp
parents: 106
diff changeset
2471 STRCAT_PRINT ""
0
heinrichsweikamp
parents:
diff changeset
2472 bra TFT_display_decotype_exit
337
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
2473
0
heinrichsweikamp
parents:
diff changeset
2474 TFT_display_decotype_surface3:
heinrichsweikamp
parents:
diff changeset
2475 decfsz lo,F
heinrichsweikamp
parents:
diff changeset
2476 bra TFT_display_decotype_surface4
116
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2477 TFT_display_decotype_surface3_1:
0
heinrichsweikamp
parents:
diff changeset
2478 STRCAT_TEXT_PRINT tDvGauge ; Gauge
heinrichsweikamp
parents:
diff changeset
2479 bra TFT_display_decotype_exit
heinrichsweikamp
parents:
diff changeset
2480 TFT_display_decotype_surface4:
heinrichsweikamp
parents:
diff changeset
2481 STRCAT_TEXT_PRINT tDvApnea ; Apnea
heinrichsweikamp
parents:
diff changeset
2482 TFT_display_decotype_exit:
heinrichsweikamp
parents:
diff changeset
2483 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2484 return
40
1e2d2b0bca5b Bugfix: Simulator in CC mode
mh@mh-THINK.fritz.box
parents: 38
diff changeset
2485
116
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2486 global TFT_display_decotype_surface1 ; Used from logbook!
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2487 TFT_display_decotype_surface1: ; Used from logbook!
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2488 tstfsz lo
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2489 bra TFT_display_decotype_surface1_2
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2490 bra TFT_display_decotype_surface0 ;OC
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2491 TFT_display_decotype_surface1_2:
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2492 decfsz lo,F
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2493 bra TFT_display_decotype_surface1_3
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2494 STRCAT_TEXT_PRINT tDvCC ; CC (w/o Sensor/Fixed Display)
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2495 TFT_display_decotype_surface1_3:
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2496 decfsz lo,F
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2497 bra TFT_display_decotype_surface4 ; Apnea
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2498 bra TFT_display_decotype_surface3_1 ; Gauge
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2499
0
heinrichsweikamp
parents:
diff changeset
2500 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2501
heinrichsweikamp
parents:
diff changeset
2502 global TFT_splist_surfmode ; Show Setpoint list
heinrichsweikamp
parents:
diff changeset
2503 extern gaslist_strcat_setpoint
heinrichsweikamp
parents:
diff changeset
2504 TFT_splist_surfmode:
heinrichsweikamp
parents:
diff changeset
2505 bsf short_gas_decriptions ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint
heinrichsweikamp
parents:
diff changeset
2506 ;SP 1
heinrichsweikamp
parents:
diff changeset
2507 WIN_SMALL surf_gaslist_column,surf_gaslist_row
heinrichsweikamp
parents:
diff changeset
2508 clrf PRODL
heinrichsweikamp
parents:
diff changeset
2509 call gaslist_strcat_setpoint ; Show SP#+1 of PRODL#
heinrichsweikamp
parents:
diff changeset
2510 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2511 ;SP 2
heinrichsweikamp
parents:
diff changeset
2512 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.1)
heinrichsweikamp
parents:
diff changeset
2513 movlw .1
heinrichsweikamp
parents:
diff changeset
2514 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2515 call gaslist_strcat_setpoint ; Show SP#+1 of PRODL#
heinrichsweikamp
parents:
diff changeset
2516 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2517 ;SP 3
heinrichsweikamp
parents:
diff changeset
2518 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.2)
heinrichsweikamp
parents:
diff changeset
2519 movlw .2
heinrichsweikamp
parents:
diff changeset
2520 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2521 call gaslist_strcat_setpoint ; Show SP#+1 of PRODL#
heinrichsweikamp
parents:
diff changeset
2522 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2523 ;SP 4
heinrichsweikamp
parents:
diff changeset
2524 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.3)
heinrichsweikamp
parents:
diff changeset
2525 movlw .3
heinrichsweikamp
parents:
diff changeset
2526 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2527 call gaslist_strcat_setpoint ; Show SP#+1 of PRODL#
heinrichsweikamp
parents:
diff changeset
2528 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2529 ;SP 5
heinrichsweikamp
parents:
diff changeset
2530 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.4)
heinrichsweikamp
parents:
diff changeset
2531 movlw .4
heinrichsweikamp
parents:
diff changeset
2532 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2533 call gaslist_strcat_setpoint ; Show SP#+1 of PRODL#
heinrichsweikamp
parents:
diff changeset
2534 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2535 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2536 return
heinrichsweikamp
parents:
diff changeset
2537
heinrichsweikamp
parents:
diff changeset
2538 global TFT_gaslist_surfmode
heinrichsweikamp
parents:
diff changeset
2539 TFT_gaslist_surfmode: ; Displays Gas List
heinrichsweikamp
parents:
diff changeset
2540 bsf short_gas_decriptions ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint
heinrichsweikamp
parents:
diff changeset
2541 extern gaslist_strcat_gas_mod
heinrichsweikamp
parents:
diff changeset
2542 ;Gas 1
heinrichsweikamp
parents:
diff changeset
2543 WIN_SMALL surf_gaslist_column,surf_gaslist_row
386
3c55627d5f8f some cleanups, jump to 1.90 stable
heinrichsweikamp
parents: 369
diff changeset
2544 clrf PRODL
0
heinrichsweikamp
parents:
diff changeset
2545 call gaslist_strcat_gas_mod ;Append gas description of gas #PRODL (0-4) to current string
heinrichsweikamp
parents:
diff changeset
2546 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2547 ;Gas 2
heinrichsweikamp
parents:
diff changeset
2548 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.1)
heinrichsweikamp
parents:
diff changeset
2549 movlw .1
heinrichsweikamp
parents:
diff changeset
2550 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2551 call gaslist_strcat_gas_mod ;Append gas description of gas #PRODL (0-4) to current string
heinrichsweikamp
parents:
diff changeset
2552 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2553 ;Gas 3
heinrichsweikamp
parents:
diff changeset
2554 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.2)
heinrichsweikamp
parents:
diff changeset
2555 movlw .2
heinrichsweikamp
parents:
diff changeset
2556 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2557 call gaslist_strcat_gas_mod ;Append gas description of gas #PRODL (0-4) to current string
heinrichsweikamp
parents:
diff changeset
2558 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2559 ;Gas 4
heinrichsweikamp
parents:
diff changeset
2560 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.3)
heinrichsweikamp
parents:
diff changeset
2561 movlw .3
heinrichsweikamp
parents:
diff changeset
2562 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2563 call gaslist_strcat_gas_mod ;Append gas description of gas #PRODL (0-4) to current string
heinrichsweikamp
parents:
diff changeset
2564 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2565 ;Gas 5
heinrichsweikamp
parents:
diff changeset
2566 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.4)
heinrichsweikamp
parents:
diff changeset
2567 movlw .4
heinrichsweikamp
parents:
diff changeset
2568 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2569 call gaslist_strcat_gas_mod ;Append gas description of gas #PRODL (0-4) to current string
heinrichsweikamp
parents:
diff changeset
2570 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2571 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2572 return
heinrichsweikamp
parents:
diff changeset
2573
heinrichsweikamp
parents:
diff changeset
2574 global TFT_dillist_surfmode
heinrichsweikamp
parents:
diff changeset
2575 TFT_dillist_surfmode: ; Displays Diluent List
heinrichsweikamp
parents:
diff changeset
2576 bsf short_gas_decriptions ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint
175
d097e10b383b CHANGE: Draw a frame around the dive mode menu
heinrichsweikamp
parents: 170
diff changeset
2577 bsf ccr_diluent_setup ; Use CCR Diluents...
d097e10b383b CHANGE: Draw a frame around the dive mode menu
heinrichsweikamp
parents: 170
diff changeset
2578 rcall TFT_gaslist_surfmode ; Use OC/BAIL routine
d097e10b383b CHANGE: Draw a frame around the dive mode menu
heinrichsweikamp
parents: 170
diff changeset
2579 bcf ccr_diluent_setup ; Clear flag
0
heinrichsweikamp
parents:
diff changeset
2580 return
heinrichsweikamp
parents:
diff changeset
2581
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2582 ;==================================================================
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2583
0
heinrichsweikamp
parents:
diff changeset
2584 global TFT_depth
heinrichsweikamp
parents:
diff changeset
2585 TFT_depth:
heinrichsweikamp
parents:
diff changeset
2586 SAFE_2BYTE_COPY rel_pressure, lo
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2587 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2588
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2589 TFT_color_code warn_depth ; Color-code the output
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2590 call TFT_depth_blink
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2591 WIN_LARGE dm_depth_column, dm_depth_row
0
heinrichsweikamp
parents:
diff changeset
2592
heinrichsweikamp
parents:
diff changeset
2593 TSTOSS opt_units ; 0=m, 1=ft
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2594 bra TFT_depth_metric
0
heinrichsweikamp
parents:
diff changeset
2595 ;TFT_depth_imperial
heinrichsweikamp
parents:
diff changeset
2596 clrf sub_a+1 ; Display 0ft if lower then 30cm
heinrichsweikamp
parents:
diff changeset
2597 movlw d'30'
heinrichsweikamp
parents:
diff changeset
2598 movwf sub_a+0
heinrichsweikamp
parents:
diff changeset
2599 movff hi,sub_b+1
heinrichsweikamp
parents:
diff changeset
2600 movff lo,sub_b+0
heinrichsweikamp
parents:
diff changeset
2601 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
2602 btfss neg_flag ; Depth lower then 0.4m?
heinrichsweikamp
parents:
diff changeset
2603 bra depth_less_0.3mtr_feet ; Yes, Show 0ft manually
heinrichsweikamp
parents:
diff changeset
2604
heinrichsweikamp
parents:
diff changeset
2605 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
2606 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2607 output_16 ; feet in Big font
heinrichsweikamp
parents:
diff changeset
2608 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2609 movlw .3 ; limit to three chars
heinrichsweikamp
parents:
diff changeset
2610 call TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
2611 STRCAT_PRINT "" ; Display feet
303
9b1b0b32e7d5 Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
2612 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
2613 return
126
9e856337b225 fix depth<0m display, ceiling
heinrichsweikamp
parents: 124
diff changeset
2614
0
heinrichsweikamp
parents:
diff changeset
2615 depth_less_0.3mtr_feet:
heinrichsweikamp
parents:
diff changeset
2616 STRCAT_PRINT "0 " ; manual zero
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2617 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
2618 return
heinrichsweikamp
parents:
diff changeset
2619
heinrichsweikamp
parents:
diff changeset
2620 TFT_depth_metric:
heinrichsweikamp
parents:
diff changeset
2621 movlw .039
heinrichsweikamp
parents:
diff changeset
2622 cpfslt hi
heinrichsweikamp
parents:
diff changeset
2623 bra depth_greater_99_84mtr
heinrichsweikamp
parents:
diff changeset
2624
heinrichsweikamp
parents:
diff changeset
2625 btfsc depth_greater_100m ; Was depth>100m during last call
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2626 rcall TFT_clear_depth ; Yes, clear depth area
0
heinrichsweikamp
parents:
diff changeset
2627 bcf depth_greater_100m ; Do this once only...
heinrichsweikamp
parents:
diff changeset
2628
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2629 movlw .039
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2630 cpfslt hi
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2631 bra depth_greater_99_84mtr
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2632
0
heinrichsweikamp
parents:
diff changeset
2633 movlw HIGH d'1000'
heinrichsweikamp
parents:
diff changeset
2634 movwf sub_a+1
heinrichsweikamp
parents:
diff changeset
2635 movlw LOW d'1000'
heinrichsweikamp
parents:
diff changeset
2636 movwf sub_a+0
heinrichsweikamp
parents:
diff changeset
2637 movff hi,sub_b+1
heinrichsweikamp
parents:
diff changeset
2638 movff lo,sub_b+0
heinrichsweikamp
parents:
diff changeset
2639 incf sub_b+0,F
heinrichsweikamp
parents:
diff changeset
2640 movlw d'0'
heinrichsweikamp
parents:
diff changeset
2641 addwfc sub_b+1,F ; Add 1mbar offset
heinrichsweikamp
parents:
diff changeset
2642 call sub16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
2643 movlw ' '
heinrichsweikamp
parents:
diff changeset
2644 btfss neg_flag ; Depth lower then 10m?
heinrichsweikamp
parents:
diff changeset
2645 movwf POSTINC2 ; Yes, add extra space
heinrichsweikamp
parents:
diff changeset
2646
heinrichsweikamp
parents:
diff changeset
2647 clrf sub_a+1
heinrichsweikamp
parents:
diff changeset
2648 movlw d'99'
heinrichsweikamp
parents:
diff changeset
2649 movwf sub_a+0
heinrichsweikamp
parents:
diff changeset
2650 movff hi,sub_b+1
heinrichsweikamp
parents:
diff changeset
2651 movff lo,sub_b+0
heinrichsweikamp
parents:
diff changeset
2652 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
2653 btfss neg_flag ; Depth lower then 1m?
heinrichsweikamp
parents:
diff changeset
2654 bra tft_depth2 ; Yes, display manual Zero
heinrichsweikamp
parents:
diff changeset
2655
heinrichsweikamp
parents:
diff changeset
2656 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2657 bsf ignore_digit4
heinrichsweikamp
parents:
diff changeset
2658 output_16 ; Full meters in Big font
heinrichsweikamp
parents:
diff changeset
2659 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2660 bra tft_depth3
heinrichsweikamp
parents:
diff changeset
2661
heinrichsweikamp
parents:
diff changeset
2662 tft_depth2:
153
heinrichsweikamp
parents: 151
diff changeset
2663 STRCAT "0" ; manual zero
0
heinrichsweikamp
parents:
diff changeset
2664
heinrichsweikamp
parents:
diff changeset
2665 tft_depth3:
heinrichsweikamp
parents:
diff changeset
2666 STRCAT_PRINT "" ; Display full meters
heinrichsweikamp
parents:
diff changeset
2667
heinrichsweikamp
parents:
diff changeset
2668 ; .1m in MEDIUM font
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2669 WIN_MEDIUM dm_depth_dm_column, dm_depth_dm_row
0
heinrichsweikamp
parents:
diff changeset
2670 TFT_color_code warn_depth ; Color-code the output
heinrichsweikamp
parents:
diff changeset
2671
heinrichsweikamp
parents:
diff changeset
2672 SAFE_2BYTE_COPY rel_pressure, lo
heinrichsweikamp
parents:
diff changeset
2673 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
126
9e856337b225 fix depth<0m display, ceiling
heinrichsweikamp
parents: 124
diff changeset
2674
0
heinrichsweikamp
parents:
diff changeset
2675 PUTC "."
heinrichsweikamp
parents:
diff changeset
2676 movlw HIGH d'30' ; Display 0.0m if lower then 30cm
heinrichsweikamp
parents:
diff changeset
2677 movwf sub_a+1
heinrichsweikamp
parents:
diff changeset
2678 movlw LOW d'30'
heinrichsweikamp
parents:
diff changeset
2679 movwf sub_a+0
heinrichsweikamp
parents:
diff changeset
2680 movff hi,sub_b+1
heinrichsweikamp
parents:
diff changeset
2681 movff lo,sub_b+0
heinrichsweikamp
parents:
diff changeset
2682 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
2683 btfss neg_flag ; Depth lower then 0.3m?
heinrichsweikamp
parents:
diff changeset
2684 bra depth_less_0.3mtr ; Yes, Show ".0" manually
heinrichsweikamp
parents:
diff changeset
2685
heinrichsweikamp
parents:
diff changeset
2686 movlw d'4'
heinrichsweikamp
parents:
diff changeset
2687 movwf ignore_digits
heinrichsweikamp
parents:
diff changeset
2688 bsf ignore_digit5
heinrichsweikamp
parents:
diff changeset
2689 output_16dp d'0'
heinrichsweikamp
parents:
diff changeset
2690 STRCAT_PRINT "" ; Display decimeters
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2691 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
2692 WIN_FONT FT_SMALL
heinrichsweikamp
parents:
diff changeset
2693 return
heinrichsweikamp
parents:
diff changeset
2694
heinrichsweikamp
parents:
diff changeset
2695 depth_less_0.3mtr:
heinrichsweikamp
parents:
diff changeset
2696 STRCAT_PRINT "0" ; Display 0.0m manually
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2697 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
2698 WIN_FONT FT_SMALL
heinrichsweikamp
parents:
diff changeset
2699 return
heinrichsweikamp
parents:
diff changeset
2700
heinrichsweikamp
parents:
diff changeset
2701 depth_greater_99_84mtr: ; Display only in full meters
heinrichsweikamp
parents:
diff changeset
2702 btfss depth_greater_100m ; Is depth>100m already?
heinrichsweikamp
parents:
diff changeset
2703 rcall TFT_clear_depth ; No, clear depth area and set flag
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2704 TFT_color_code warn_depth
0
heinrichsweikamp
parents:
diff changeset
2705 ; Depth is already in hi:lo
heinrichsweikamp
parents:
diff changeset
2706 ; Show depth in Full meters
heinrichsweikamp
parents:
diff changeset
2707 ; That means ignore figure 4 and 5
heinrichsweikamp
parents:
diff changeset
2708 lfsr FSR2,buffer
heinrichsweikamp
parents:
diff changeset
2709 bsf ignore_digit4
heinrichsweikamp
parents:
diff changeset
2710 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2711 output_16
heinrichsweikamp
parents:
diff changeset
2712 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2713 STRCAT_PRINT "" ; Display full meters only
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2714 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
2715 WIN_FONT FT_SMALL
heinrichsweikamp
parents:
diff changeset
2716 return
heinrichsweikamp
parents:
diff changeset
2717
heinrichsweikamp
parents:
diff changeset
2718 TFT_clear_depth: ; No, clear depth area and set flag
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2719 WIN_BOX_BLACK dm_depth_row, dm_depth_bot, dm_depth_column, dm_depth_rgt ;top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
2720 bsf depth_greater_100m ; Set Flag
heinrichsweikamp
parents:
diff changeset
2721 return
heinrichsweikamp
parents:
diff changeset
2722
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2723 TFT_depth_blink:
307
14719662fb95 Merged Screen layout work #4 into VSItextv2
Janos Kovacs <kovjanos@gmail.com>
parents: 303
diff changeset
2724 TSTOSS opt_modwarning ; 0=standard, 1=blink
303
9b1b0b32e7d5 Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
2725 return
9b1b0b32e7d5 Add configuration option to control depth warning blinking
janos_kovacs <kovjanos@gmail.com>
parents: 300
diff changeset
2726
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2727 ; check if previous cycle had the blinking warning or not
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2728 btfsc blinking_depth_prev ; did we have warning prev?
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2729 bra TFT_depth_blink_prevwarn ; Yes
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2730
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2731 ; No; check if it's set now
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2732 btfsc blinking_depth_warning ; do we have warning set now?
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2733 bra TFT_depth_blink_warn ; Yes - so we have warning now but not prev
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2734
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2735 ; no warning in previous cycle, no warning now, reset all flags
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2736 bcf blinking_depth_prev ; reset prev flag
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2737 bcf blinking_depth_toggle ; reset toggle
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2738 bcf win_invert
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2739 ; all done
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2740 return
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2741
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2742 TFT_depth_blink_prevwarn:
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2743 ; ...we had warning in previous cycle, check if we still have the warning set
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2744 btfss blinking_depth_warning ; do we still have the warning?
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2745 bra TFT_depth_blink_prevwarn_nowarn ; No, clear the depth area
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2746
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2747 ; we still have the warning, set previous flag for next cycle...
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2748 bsf blinking_depth_prev ; set prev flag
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2749 ; and set toggle and invert if required
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2750 btfss blinking_depth_toggle ; do we have the toggle set?
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2751 bra TFT_depth_blink_set ; No: set inverse, do color_box, set flag
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2752 bra TFT_depth_blink_reset ; Yes: clear inverse, do black box, reset flag
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2753
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2754 TFT_depth_blink_prevwarn_nowarn:
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2755 ; we had warning, but not now... (e.g. ascended or switched to better gas)
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2756 ; reset the previous cycle flag for the next cycle...
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2757 bcf blinking_depth_prev ; reset prev flag
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2758 ; clear it - just in case if we had a blinked before
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2759 bra TFT_depth_blink_reset ; Yes: clear inverse, do black box, reset flag
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2760
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2761 TFT_depth_blink_warn:
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2762 ; new blinking warning activated (had no warning in previous cycle)
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2763 bsf blinking_depth_prev ; set prev flag
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2764 ; set toggle and invert
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2765 bra TFT_depth_blink_set
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2766
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2767 TFT_depth_blink_set:
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2768 ; clear the area with color
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2769 movlw color_red ; that should not be hardcoded...
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2770 WIN_BOX_COLOR dm_depth_row, dm_depth_bot, dm_depth_column, dm_depth_rgt ;top, bottom, left, right
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2771 ;set the invert color
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2772 bsf win_invert
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2773 ; set the toggle
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2774 bsf blinking_depth_toggle
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2775 ; all done
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2776 return
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2777
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2778 TFT_depth_blink_reset:
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2779 ; clear the area with black
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2780 WIN_BOX_BLACK dm_depth_row, dm_depth_bot, dm_depth_column, dm_depth_rgt ;top, bottom, left, right
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2781 ;reset the invert color
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2782 bcf win_invert
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2783 ; reset the toggle
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2784 bcf blinking_depth_toggle
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2785 ; if it's still warning...
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2786 btfsc blinking_depth_warning
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2787 call TFT_warnings_color
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2788 ; all done
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2789 return
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
2790
0
heinrichsweikamp
parents:
diff changeset
2791 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2792
heinrichsweikamp
parents:
diff changeset
2793 global TFT_custom_text
heinrichsweikamp
parents:
diff changeset
2794 TFT_custom_text: ; Show the custom text
heinrichsweikamp
parents:
diff changeset
2795 lfsr FSR0, opt_name ; Source
heinrichsweikamp
parents:
diff changeset
2796 WIN_SMALL surf_customtext_column,surf_customtext_row1 ; First row
heinrichsweikamp
parents:
diff changeset
2797 rcall TFT_custom_text_2 ; Show up to 12 chars and print
heinrichsweikamp
parents:
diff changeset
2798 incfsz lo,F ; Was lo=255?
heinrichsweikamp
parents:
diff changeset
2799 return ; No, all done.
heinrichsweikamp
parents:
diff changeset
2800 lfsr FSR0, opt_name+.12 ; Source
heinrichsweikamp
parents:
diff changeset
2801 WIN_SMALL surf_customtext_column,surf_customtext_row2 ; Second row
heinrichsweikamp
parents:
diff changeset
2802 rcall TFT_custom_text_2 ; Show up to 12 chars and print
heinrichsweikamp
parents:
diff changeset
2803 incfsz lo,F ; Was lo=255?
heinrichsweikamp
parents:
diff changeset
2804 return ; No, all done.
heinrichsweikamp
parents:
diff changeset
2805 lfsr FSR0, opt_name+.24 ; Source
heinrichsweikamp
parents:
diff changeset
2806 WIN_SMALL surf_customtext_column,surf_customtext_row3 ; Third row
heinrichsweikamp
parents:
diff changeset
2807 rcall TFT_custom_text_2 ; Show up to 12 chars and print
heinrichsweikamp
parents:
diff changeset
2808 incfsz lo,F ; Was lo=255?
heinrichsweikamp
parents:
diff changeset
2809 return ; No, all done.
heinrichsweikamp
parents:
diff changeset
2810 lfsr FSR0, opt_name+.36 ; Source
heinrichsweikamp
parents:
diff changeset
2811 WIN_SMALL surf_customtext_column,surf_customtext_row4 ; Forth row
heinrichsweikamp
parents:
diff changeset
2812 rcall TFT_custom_text_2 ; Show up to 12 chars and print
heinrichsweikamp
parents:
diff changeset
2813 incfsz lo,F ; Was lo=255?
heinrichsweikamp
parents:
diff changeset
2814 return ; No, all done.
heinrichsweikamp
parents:
diff changeset
2815 lfsr FSR0, opt_name+.48 ; Source
heinrichsweikamp
parents:
diff changeset
2816 WIN_SMALL surf_customtext_column,surf_customtext_row5 ; Fifth row
heinrichsweikamp
parents:
diff changeset
2817 rcall TFT_custom_text_2 ; Show up to 12 chars and print
heinrichsweikamp
parents:
diff changeset
2818 return ; Done.
heinrichsweikamp
parents:
diff changeset
2819
heinrichsweikamp
parents:
diff changeset
2820 TFT_custom_text_2:
heinrichsweikamp
parents:
diff changeset
2821 lfsr FSR2, buffer ; destination
heinrichsweikamp
parents:
diff changeset
2822 movlw .12
heinrichsweikamp
parents:
diff changeset
2823 movwf lo ; length/line
heinrichsweikamp
parents:
diff changeset
2824 TFT_custom_text_3:
heinrichsweikamp
parents:
diff changeset
2825 movf POSTINC0,W ; Get byte
heinrichsweikamp
parents:
diff changeset
2826 bz TFT_custom_text_4 ; End if NULL
heinrichsweikamp
parents:
diff changeset
2827 movwf POSTINC2 ; NO: copy
heinrichsweikamp
parents:
diff changeset
2828 decfsz lo,F ; Max len reached ?
heinrichsweikamp
parents:
diff changeset
2829 bra TFT_custom_text_3 ; NO: loop
heinrichsweikamp
parents:
diff changeset
2830 setf lo ; lo=255 -> more to come
heinrichsweikamp
parents:
diff changeset
2831 TFT_custom_text_4:
heinrichsweikamp
parents:
diff changeset
2832 clrf POSTINC2 ; Mark end of string
heinrichsweikamp
parents:
diff changeset
2833 goto aa_wordprocessor ; print and return
heinrichsweikamp
parents:
diff changeset
2834
heinrichsweikamp
parents:
diff changeset
2835
heinrichsweikamp
parents:
diff changeset
2836 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2837 global TFT_update_surf_press
heinrichsweikamp
parents:
diff changeset
2838 TFT_update_surf_press:
heinrichsweikamp
parents:
diff changeset
2839 WIN_SMALL surf_press_column,surf_press_row
heinrichsweikamp
parents:
diff changeset
2840 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2841 SAFE_2BYTE_COPY amb_pressure, lo
heinrichsweikamp
parents:
diff changeset
2842 movff lo,sub_a+0
heinrichsweikamp
parents:
diff changeset
2843 movff hi,sub_a+1
heinrichsweikamp
parents:
diff changeset
2844 movff last_surfpressure_30min+0,sub_b+0
heinrichsweikamp
parents:
diff changeset
2845 movff last_surfpressure_30min+1,sub_b+1
heinrichsweikamp
parents:
diff changeset
2846 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
2847 btfsc neg_flag ; Pressure lower?
heinrichsweikamp
parents:
diff changeset
2848 rcall update_surf_press2 ; Yes, test threshold
heinrichsweikamp
parents:
diff changeset
2849
heinrichsweikamp
parents:
diff changeset
2850 tstfsz sub_c+1 ; >255mbar difference?
heinrichsweikamp
parents:
diff changeset
2851 bra update_surf_press_common; Yes, display!
heinrichsweikamp
parents:
diff changeset
2852 movlw d'10' ; 10mbar noise suppression
heinrichsweikamp
parents:
diff changeset
2853 subwf sub_c+0,W
heinrichsweikamp
parents:
diff changeset
2854 btfsc STATUS,C
heinrichsweikamp
parents:
diff changeset
2855 bra update_surf_press_common; Yes, display!
heinrichsweikamp
parents:
diff changeset
2856 SAFE_2BYTE_COPY last_surfpressure_30min, lo ; Overwrite with stable value...
heinrichsweikamp
parents:
diff changeset
2857
heinrichsweikamp
parents:
diff changeset
2858 update_surf_press_common:
heinrichsweikamp
parents:
diff changeset
2859 output_16
heinrichsweikamp
parents:
diff changeset
2860 ; Show only 4 figures
heinrichsweikamp
parents:
diff changeset
2861 movff buffer+1,buffer+0
heinrichsweikamp
parents:
diff changeset
2862 movff buffer+2,buffer+1
heinrichsweikamp
parents:
diff changeset
2863 movff buffer+3,buffer+2
heinrichsweikamp
parents:
diff changeset
2864 movff buffer+4,buffer+3
heinrichsweikamp
parents:
diff changeset
2865 movlw 0x00
heinrichsweikamp
parents:
diff changeset
2866 movff WREG,buffer+4
heinrichsweikamp
parents:
diff changeset
2867 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2868 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
2869 WIN_SMALL surf_press_column+4*8,surf_press_row
207
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2870 STRCPY_TEXT_PRINT tMBAR ; mbar
0
heinrichsweikamp
parents:
diff changeset
2871 return
heinrichsweikamp
parents:
diff changeset
2872
heinrichsweikamp
parents:
diff changeset
2873 update_surf_press2:
heinrichsweikamp
parents:
diff changeset
2874 movff lo,sub_b+0
heinrichsweikamp
parents:
diff changeset
2875 movff hi,sub_b+1
heinrichsweikamp
parents:
diff changeset
2876 movff last_surfpressure_30min+0,sub_a+0
heinrichsweikamp
parents:
diff changeset
2877 movff last_surfpressure_30min+1,sub_a+1
heinrichsweikamp
parents:
diff changeset
2878 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
2879 return
heinrichsweikamp
parents:
diff changeset
2880
heinrichsweikamp
parents:
diff changeset
2881 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2882
heinrichsweikamp
parents:
diff changeset
2883 global TFT_update_batt_voltage
heinrichsweikamp
parents:
diff changeset
2884 TFT_update_batt_voltage:
heinrichsweikamp
parents:
diff changeset
2885 movff batt_percent,lo ; Get battery percent
heinrichsweikamp
parents:
diff changeset
2886 TFT_color_code warn_battery; Color-code battery percent
207
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2887
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2888 ; Setup charge indicator
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2889 btfsc cc_active
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2890 bsf win_invert
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2891 btfsc cc_active
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2892 movlw color_yellow
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2893 btfsc cv_active
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2894 movlw color_green
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2895 btfsc cc_active
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2896 call TFT_set_color
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2897
0
heinrichsweikamp
parents:
diff changeset
2898 WIN_TINY batt_percent_column,batt_percent_row
heinrichsweikamp
parents:
diff changeset
2899 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2900 output_8
heinrichsweikamp
parents:
diff changeset
2901 bcf leftbind
88
2a992aba61ef fix minor display bug (battery percent)
heinrichsweikamp
parents: 87
diff changeset
2902 STRCAT "% "
2a992aba61ef fix minor display bug (battery percent)
heinrichsweikamp
parents: 87
diff changeset
2903 movlw 0x00
2a992aba61ef fix minor display bug (battery percent)
heinrichsweikamp
parents: 87
diff changeset
2904 movff WREG,buffer+4 ; Only "xxx%"
2a992aba61ef fix minor display bug (battery percent)
heinrichsweikamp
parents: 87
diff changeset
2905 STRCAT_PRINT ""
207
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2906 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
2907 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2908 WIN_TINY batt_voltage_column,batt_voltage_row
heinrichsweikamp
parents:
diff changeset
2909 movff batt_voltage+0,lo
heinrichsweikamp
parents:
diff changeset
2910 movff batt_voltage+1,hi
heinrichsweikamp
parents:
diff changeset
2911 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2912 output_16dp .2
heinrichsweikamp
parents:
diff changeset
2913 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2914 PUTC 'V'
heinrichsweikamp
parents:
diff changeset
2915 movff buffer+5,buffer+3
heinrichsweikamp
parents:
diff changeset
2916 movlw 0x00
heinrichsweikamp
parents:
diff changeset
2917 movff WREG,buffer+4 ; Only "x.yV"
24
f51caad821b4 save logbook recording interval
heinrichsweikamp
parents: 16
diff changeset
2918 STRCAT_PRINT ""
0
heinrichsweikamp
parents:
diff changeset
2919 return
heinrichsweikamp
parents:
diff changeset
2920
heinrichsweikamp
parents:
diff changeset
2921 ;update_battery_debug:
heinrichsweikamp
parents:
diff changeset
2922 ; call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2923 ; WIN_TINY .70,.0
heinrichsweikamp
parents:
diff changeset
2924 ; movff battery_gauge+5,xC+3
heinrichsweikamp
parents:
diff changeset
2925 ; movff battery_gauge+4,xC+2
heinrichsweikamp
parents:
diff changeset
2926 ; movff battery_gauge+3,xC+1
heinrichsweikamp
parents:
diff changeset
2927 ; movff battery_gauge+2,xC+0
heinrichsweikamp
parents:
diff changeset
2928 ; ; battery_gauge:6 is nAs
heinrichsweikamp
parents:
diff changeset
2929 ; ; devide through 65536
heinrichsweikamp
parents:
diff changeset
2930 ; ; devide through 152
heinrichsweikamp
parents:
diff changeset
2931 ; ; Result is 0.01Ah in xC+1:xC+0
heinrichsweikamp
parents:
diff changeset
2932 ; movlw LOW .152
heinrichsweikamp
parents:
diff changeset
2933 ; movwf xB+0
heinrichsweikamp
parents:
diff changeset
2934 ; movlw HIGH .152
heinrichsweikamp
parents:
diff changeset
2935 ; movwf xB+1
heinrichsweikamp
parents:
diff changeset
2936 ; call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
heinrichsweikamp
parents:
diff changeset
2937 ; bsf leftbind
heinrichsweikamp
parents:
diff changeset
2938 ; movff xC+0,lo
heinrichsweikamp
parents:
diff changeset
2939 ; movff xC+1,hi
heinrichsweikamp
parents:
diff changeset
2940 ; output_16
heinrichsweikamp
parents:
diff changeset
2941 ; STRCAT_PRINT "x.01Ah"
heinrichsweikamp
parents:
diff changeset
2942 ; WIN_FONT FT_SMALL
heinrichsweikamp
parents:
diff changeset
2943 ; bcf leftbind
heinrichsweikamp
parents:
diff changeset
2944 ; return
heinrichsweikamp
parents:
diff changeset
2945
heinrichsweikamp
parents:
diff changeset
2946 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2947
heinrichsweikamp
parents:
diff changeset
2948 global TFT_convert_signed_16bit
heinrichsweikamp
parents:
diff changeset
2949 TFT_convert_signed_16bit:
heinrichsweikamp
parents:
diff changeset
2950 bcf neg_flag ; Positive temperature
heinrichsweikamp
parents:
diff changeset
2951 btfss hi,7 ; Negative temperature ?
heinrichsweikamp
parents:
diff changeset
2952 return ; No, return
heinrichsweikamp
parents:
diff changeset
2953 ; Yes, negative temperature!
heinrichsweikamp
parents:
diff changeset
2954 bsf neg_flag ; Negative temperature
heinrichsweikamp
parents:
diff changeset
2955 PUTC '-' ; Display "-"
heinrichsweikamp
parents:
diff changeset
2956 comf hi ; Then, 16bit sign changes.
heinrichsweikamp
parents:
diff changeset
2957 negf lo
heinrichsweikamp
parents:
diff changeset
2958 btfsc STATUS,C
heinrichsweikamp
parents:
diff changeset
2959 incf hi
heinrichsweikamp
parents:
diff changeset
2960 return ; and return
heinrichsweikamp
parents:
diff changeset
2961
heinrichsweikamp
parents:
diff changeset
2962 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2963
heinrichsweikamp
parents:
diff changeset
2964 global TFT_convert_date
heinrichsweikamp
parents:
diff changeset
2965 TFT_convert_date: ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2
heinrichsweikamp
parents:
diff changeset
2966 movff opt_dateformat,WREG ; =0:MMDDYY, =1:DDMMYY, =2:YYMMDD
heinrichsweikamp
parents:
diff changeset
2967 movwf EEDATA ; used as temp here
heinrichsweikamp
parents:
diff changeset
2968 tstfsz EEDATA
heinrichsweikamp
parents:
diff changeset
2969 bra TFT_convert_date1
heinrichsweikamp
parents:
diff changeset
2970 ; EEDATA was 0
heinrichsweikamp
parents:
diff changeset
2971 ; Use MMDDYY
heinrichsweikamp
parents:
diff changeset
2972 movff convert_value_temp+0,lo ;month
heinrichsweikamp
parents:
diff changeset
2973 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2974 output_99x
heinrichsweikamp
parents:
diff changeset
2975 PUTC '.'
heinrichsweikamp
parents:
diff changeset
2976 movff convert_value_temp+1,lo ;day
heinrichsweikamp
parents:
diff changeset
2977 bra TFT_convert_date1_common ;year
heinrichsweikamp
parents:
diff changeset
2978
heinrichsweikamp
parents:
diff changeset
2979 TFT_convert_date1: ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD)
heinrichsweikamp
parents:
diff changeset
2980 decfsz EEDATA,F
heinrichsweikamp
parents:
diff changeset
2981 bra TFT_convert_date2 ; EEDATA was 2
heinrichsweikamp
parents:
diff changeset
2982 ; EEDATA was 1
heinrichsweikamp
parents:
diff changeset
2983 ; Use DDMMYY
heinrichsweikamp
parents:
diff changeset
2984 movff convert_value_temp+1,lo ;day
heinrichsweikamp
parents:
diff changeset
2985 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2986 output_99x
heinrichsweikamp
parents:
diff changeset
2987 PUTC '.'
heinrichsweikamp
parents:
diff changeset
2988 movff convert_value_temp+0,lo ;month
heinrichsweikamp
parents:
diff changeset
2989
heinrichsweikamp
parents:
diff changeset
2990 TFT_convert_date1_common:
heinrichsweikamp
parents:
diff changeset
2991 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2992 output_99x
heinrichsweikamp
parents:
diff changeset
2993 PUTC '.'
heinrichsweikamp
parents:
diff changeset
2994 movff convert_value_temp+2,lo ;year
heinrichsweikamp
parents:
diff changeset
2995 output_99x
heinrichsweikamp
parents:
diff changeset
2996 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2997 return
heinrichsweikamp
parents:
diff changeset
2998
heinrichsweikamp
parents:
diff changeset
2999 TFT_convert_date2:
heinrichsweikamp
parents:
diff changeset
3000 ; Use YYMMDD
heinrichsweikamp
parents:
diff changeset
3001 movff convert_value_temp+2,lo ;year
heinrichsweikamp
parents:
diff changeset
3002 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3003 output_99x
heinrichsweikamp
parents:
diff changeset
3004 PUTC '.'
heinrichsweikamp
parents:
diff changeset
3005 movff convert_value_temp+0,lo ;month
heinrichsweikamp
parents:
diff changeset
3006 output_99x
heinrichsweikamp
parents:
diff changeset
3007 PUTC '.'
heinrichsweikamp
parents:
diff changeset
3008 movff convert_value_temp+1,lo ;day
heinrichsweikamp
parents:
diff changeset
3009 output_99x
heinrichsweikamp
parents:
diff changeset
3010 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3011 return
heinrichsweikamp
parents:
diff changeset
3012
heinrichsweikamp
parents:
diff changeset
3013 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
3014
heinrichsweikamp
parents:
diff changeset
3015 global TFT_convert_date_short
heinrichsweikamp
parents:
diff changeset
3016 TFT_convert_date_short: ; converts into "DD/MM" or "MM/DD" or "MM/DD" in postinc2
heinrichsweikamp
parents:
diff changeset
3017 movff opt_dateformat,WREG ; =0:MMDDYY, =1:DDMMYY, =2:YYMMDD
heinrichsweikamp
parents:
diff changeset
3018 movwf EEDATA ; used as temp here
heinrichsweikamp
parents:
diff changeset
3019 tstfsz EEDATA
heinrichsweikamp
parents:
diff changeset
3020 bra TFT_convert_date_short1
heinrichsweikamp
parents:
diff changeset
3021 ; EEDATA was 0
heinrichsweikamp
parents:
diff changeset
3022 ; Use MMDDYY
heinrichsweikamp
parents:
diff changeset
3023 TFT_convert_date_short_common:
heinrichsweikamp
parents:
diff changeset
3024 movff convert_value_temp+0,lo ;month
heinrichsweikamp
parents:
diff changeset
3025 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3026 output_99x
heinrichsweikamp
parents:
diff changeset
3027 PUTC '.'
heinrichsweikamp
parents:
diff changeset
3028 movff convert_value_temp+1,lo ;day
heinrichsweikamp
parents:
diff changeset
3029 output_99x
heinrichsweikamp
parents:
diff changeset
3030 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3031 return
heinrichsweikamp
parents:
diff changeset
3032
heinrichsweikamp
parents:
diff changeset
3033 TFT_convert_date_short1:
heinrichsweikamp
parents:
diff changeset
3034 decfsz EEDATA,F
heinrichsweikamp
parents:
diff changeset
3035 bra TFT_convert_date_short_common ; EEDATA was 2 -> Use YYMMDD
heinrichsweikamp
parents:
diff changeset
3036 ; EEDATA was 1
heinrichsweikamp
parents:
diff changeset
3037 ; Use DDMMYY
heinrichsweikamp
parents:
diff changeset
3038 movff convert_value_temp+1,lo ;day
heinrichsweikamp
parents:
diff changeset
3039 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3040 output_99x
heinrichsweikamp
parents:
diff changeset
3041 PUTC '.'
heinrichsweikamp
parents:
diff changeset
3042 movff convert_value_temp+0,lo ;month
heinrichsweikamp
parents:
diff changeset
3043 output_99x
heinrichsweikamp
parents:
diff changeset
3044 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3045 return
heinrichsweikamp
parents:
diff changeset
3046
heinrichsweikamp
parents:
diff changeset
3047 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
3048
heinrichsweikamp
parents:
diff changeset
3049 global TFT_date
heinrichsweikamp
parents:
diff changeset
3050 TFT_date:
48
7c7d7644ca37 Time and Date in normal (Not tiny) font
heinrichsweikamp
parents: 42
diff changeset
3051 WIN_SMALL surf_date_column,surf_date_row ; Init new Wordprocessor
0
heinrichsweikamp
parents:
diff changeset
3052 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3053 movff month,convert_value_temp+0
heinrichsweikamp
parents:
diff changeset
3054 movff day,convert_value_temp+1
heinrichsweikamp
parents:
diff changeset
3055 movff year,convert_value_temp+2
heinrichsweikamp
parents:
diff changeset
3056 call TFT_convert_date ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2
heinrichsweikamp
parents:
diff changeset
3057 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3058 return
heinrichsweikamp
parents:
diff changeset
3059
heinrichsweikamp
parents:
diff changeset
3060 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
3061
heinrichsweikamp
parents:
diff changeset
3062 global TFT_max_pressure
heinrichsweikamp
parents:
diff changeset
3063 TFT_max_pressure:
heinrichsweikamp
parents:
diff changeset
3064 btfsc FLAG_apnoe_mode ; different display in apnoe mode
heinrichsweikamp
parents:
diff changeset
3065 bra TFT_max_pressure_apnoe
heinrichsweikamp
parents:
diff changeset
3066 TFT_max_pressure2:
heinrichsweikamp
parents:
diff changeset
3067 SAFE_2BYTE_COPY max_pressure, lo
heinrichsweikamp
parents:
diff changeset
3068 TFT_max_pressure3:
heinrichsweikamp
parents:
diff changeset
3069 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
3070 TSTOSS opt_units ; 0=m, 1=ft
heinrichsweikamp
parents:
diff changeset
3071 bra TFT_max_pressure2_metric
heinrichsweikamp
parents:
diff changeset
3072 ;TFT_max_pressure2_imperial
heinrichsweikamp
parents:
diff changeset
3073 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3074 WIN_MEDIUM dm_max_depth_column, dm_max_depth_row
332
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
3075 TSTOSS opt_vsigraph ; 0=skip, 1=draw
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
3076 WIN_MEDIUM dm_max_depth_column_nvsi, dm_max_depth_row
0
heinrichsweikamp
parents:
diff changeset
3077 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3078 output_16_3
heinrichsweikamp
parents:
diff changeset
3079 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3080 return
heinrichsweikamp
parents:
diff changeset
3081
heinrichsweikamp
parents:
diff changeset
3082 TFT_max_pressure2_metric:
332
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
3083 WIN_MEDIUM dm_max_depth_column, dm_max_depth_row
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
3084 TSTOSS opt_vsigraph ; 0=skip, 1=draw
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
3085 WIN_MEDIUM dm_max_depth_column_nvsi, dm_max_depth_row
309
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
3086 call TFT_standard_color
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3087
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3088 movlw .039
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3089 cpfslt hi
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3090 bra max_depth_greater_99_84mtr
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3091
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3092 btfsc max_depth_greater_100m ; Was depth>100m during last call
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3093 rcall TFT_clear_max_depth ; Yes, clear depth area
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3094 bcf max_depth_greater_100m ; Do this once only...
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3095
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3096 movlw .039
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3097 cpfslt hi
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3098 bra max_depth_greater_99_84mtr
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3099
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3100 movlw HIGH d'1000'
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3101 movwf sub_a+1
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3102 movlw LOW d'1000'
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3103 movwf sub_a+0
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3104 movff hi,sub_b+1
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3105 movff lo,sub_b+0
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3106 incf sub_b+0,F
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3107 movlw d'0'
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3108 addwfc sub_b+1,F ; Add 1mbar offset
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3109 call sub16 ; sub_c = sub_a - sub_b
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3110 movlw ' '
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3111 btfss neg_flag ; Depth lower then 10m?
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3112 movwf POSTINC2 ; Yes, add extra space
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3113
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3114 clrf sub_a+1
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3115 movlw d'99'
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3116 movwf sub_a+0
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3117 movff hi,sub_b+1
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3118 movff lo,sub_b+0
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3119 call subU16 ; sub_c = sub_a - sub_b
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3120 btfss neg_flag ; Depth lower then 1m?
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3121 bra tft_max_depth2 ; Yes, display manual Zero
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3122
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3123 bsf ignore_digit4 ; no 0.1m
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3124 bsf leftbind
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3125 output_16
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3126 bra tft_max_depth3
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3127
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3128 tft_max_depth2:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3129 WIN_MEDIUM dm_max_depth_column, dm_max_depth_row
332
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
3130 TSTOSS opt_vsigraph ; 0=skip, 1=draw
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
3131 WIN_MEDIUM dm_max_depth_column_nvsi, dm_max_depth_row
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3132 STRCAT "0"
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3133
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3134 tft_max_depth3:
0
heinrichsweikamp
parents:
diff changeset
3135 call TFT_standard_color
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3136 STRCAT_PRINT "" ; Display full meters
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3137 bcf leftbind
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3138
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3139 ; .1m in SMALL font
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3140 WIN_SMALL dm_max_depth_dm_column, dm_max_depth_dm_row
332
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
3141 TSTOSS opt_vsigraph ; 0=skip, 1=draw
0ff81ff290ce Fix positions if no VSI Bar displayed
Janos Kovacs <kovjanos@gmail.com>
parents: 328
diff changeset
3142 WIN_SMALL dm_max_depth_dm_column_nvsi, dm_max_depth_dm_row
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3143
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3144 SAFE_2BYTE_COPY max_pressure, lo
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3145 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3146
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3147 PUTC "."
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3148
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3149 movlw d'4'
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3150 movwf ignore_digits
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3151 bsf ignore_digit5
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3152 bsf leftbind
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3153 output_16dp d'0'
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3154 STRCAT_PRINT "" ; Display decimeters
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3155 bcf leftbind
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3156 return
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3157
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3158 max_depth_greater_99_84mtr: ; Display only in full meters
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3159 btfss max_depth_greater_100m ; Is max depth>100m already?
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3160 rcall TFT_clear_max_depth ; No, clear max depth area and set flag
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3161 ; Max. Depth is already in hi:lo
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3162 ; Show max. depth in Full meters
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3163 ; That means ignore figure 4 and 5
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3164 lfsr FSR2,buffer
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3165 bsf ignore_digit4
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3166 bsf leftbind
0
heinrichsweikamp
parents:
diff changeset
3167 output_16
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3168 bcf leftbind
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3169 STRCAT_PRINT "" ; Display full meters only
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3170 WIN_FONT FT_SMALL
0
heinrichsweikamp
parents:
diff changeset
3171 return
heinrichsweikamp
parents:
diff changeset
3172
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3173 TFT_clear_max_depth: ; No, clear max. depth area and set flag
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3174 WIN_BOX_BLACK dm_max_depth_row, dm_max_depth_bot, dm_max_depth_column, dm_max_depth_rgt ;top, bottom, left, right
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3175 bsf max_depth_greater_100m ; Set Flag
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3176 return
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3177
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
3178
0
heinrichsweikamp
parents:
diff changeset
3179 TFT_max_pressure_apnoe:
heinrichsweikamp
parents:
diff changeset
3180 btfss FLAG_active_descent ; Are we descending?
heinrichsweikamp
parents:
diff changeset
3181 bra TFT_max_pressure2 ; Yes, show normal max.
heinrichsweikamp
parents:
diff changeset
3182 SAFE_2BYTE_COPY apnoe_max_pressure, lo
heinrichsweikamp
parents:
diff changeset
3183 bra TFT_max_pressure3 ; Show apnoe_max_pressure as max. depth
heinrichsweikamp
parents:
diff changeset
3184
heinrichsweikamp
parents:
diff changeset
3185 global TFT_display_apnoe_last_max
heinrichsweikamp
parents:
diff changeset
3186 TFT_display_apnoe_last_max:
heinrichsweikamp
parents:
diff changeset
3187 call TFT_divemask_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3188 WIN_TINY dm_apnoe_last_max_depth_text_col, dm_apnoe_last_max_depth_text_row
0
heinrichsweikamp
parents:
diff changeset
3189 STRCPY_TEXT_PRINT tApnoeMax
heinrichsweikamp
parents:
diff changeset
3190
heinrichsweikamp
parents:
diff changeset
3191 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3192 SAFE_2BYTE_COPY max_pressure, lo
heinrichsweikamp
parents:
diff changeset
3193 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
3194 TSTOSS opt_units ; 0=m, 1=ft
heinrichsweikamp
parents:
diff changeset
3195 bra TFT_display_apnoe_last_m_metric
heinrichsweikamp
parents:
diff changeset
3196 ;TFT_display_apnoe_last_max_imperial
heinrichsweikamp
parents:
diff changeset
3197 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3198 WIN_MEDIUM dm_apnoe_last_max_depth_column, dm_apnoe_last_max_depth_row
0
heinrichsweikamp
parents:
diff changeset
3199 output_16
heinrichsweikamp
parents:
diff changeset
3200 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3201 return
heinrichsweikamp
parents:
diff changeset
3202
heinrichsweikamp
parents:
diff changeset
3203 TFT_display_apnoe_last_m_metric:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3204 WIN_MEDIUM dm_apnoe_last_max_depth_column, dm_apnoe_last_max_depth_row
0
heinrichsweikamp
parents:
diff changeset
3205 bsf ignore_digit5 ; do not display 1cm depth
heinrichsweikamp
parents:
diff changeset
3206 output_16dp d'3'
heinrichsweikamp
parents:
diff changeset
3207 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3208 return
heinrichsweikamp
parents:
diff changeset
3209
heinrichsweikamp
parents:
diff changeset
3210 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
3211 global TFT_divemins
heinrichsweikamp
parents:
diff changeset
3212 TFT_divemins:
heinrichsweikamp
parents:
diff changeset
3213 movff divemins+0,lo
heinrichsweikamp
parents:
diff changeset
3214 movff divemins+1,hi
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3215
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3216 ; Already showing divemins > 99min
0
heinrichsweikamp
parents:
diff changeset
3217 btfsc no_more_divesecs ; Ignore seconds?
heinrichsweikamp
parents:
diff changeset
3218 bra TFT_divemins2 ; Show minutes only
heinrichsweikamp
parents:
diff changeset
3219
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3220 ; check if divemins has hi, definitely > 99min
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3221 movlw .1
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3222 cpfslt hi ; HI less than 1?
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3223 bra TFT_divemins_clr ; No, show mins only
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3224
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3225 ; check if divemins (when HI is zero) > 99min
0
heinrichsweikamp
parents:
diff changeset
3226 movlw .99
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3227 cpfsgt lo ; bigger than 99?
0
heinrichsweikamp
parents:
diff changeset
3228 bra TFT_divemins1 ; No show mins:secs
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3229
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3230 TFT_divemins_clr:
0
heinrichsweikamp
parents:
diff changeset
3231 ; Yes, remove second display for the rest of the dive and clear seconds
heinrichsweikamp
parents:
diff changeset
3232 bsf no_more_divesecs ; Set flag
heinrichsweikamp
parents:
diff changeset
3233 ; Clear rest of seconds
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3234 WIN_BOX_BLACK dm_divetime_row, dm_divetime_bot, dm_divetime_column, dm_divetime_rgt ;top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
3235 bra TFT_divemins2 ; Show minutes only
heinrichsweikamp
parents:
diff changeset
3236
heinrichsweikamp
parents:
diff changeset
3237 TFT_divemins1:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3238 ; Print out the minutes, up to 99min, only 2chars !
0
heinrichsweikamp
parents:
diff changeset
3239 call TFT_standard_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3240 WIN_MEDIUM dm_divetime_column, dm_divetime_row
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3241
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3242 movlw .9
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3243 cpfsgt lo ; bigger then 9?
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3244 bra TFT_divemins1_pad ; No, need padding
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3245 ; Yes, just print out the value
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3246 bsf leftbind
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3247 movff divemins+0,lo
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3248 output_99x ; displays only last two figures from a 8Bit value (00-99)
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3249 bcf leftbind
0
heinrichsweikamp
parents:
diff changeset
3250 STRCAT_PRINT "" ; Show minutes in large font
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3251 bra TFT_divemins1_sec
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3252
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3253 TFT_divemins1_pad:
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3254 bcf leftbind
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3255 PUTC " " ; Add a padding space
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3256 bsf leftbind
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3257 movff divemins+0,lo
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3258 output_99 ; displays only last two figures from a 8Bit value (0-99)
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3259 bcf leftbind
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3260 STRCAT_PRINT "" ; Show minutes in large font
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3261
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3262 TFT_divemins1_sec:
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3263 ; Print out the seconds
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3264 WIN_SMALL dm_divetime_secs_column, dm_divetime_secs_row ; left position for two sec figures
0
heinrichsweikamp
parents:
diff changeset
3265 PUTC ':'
heinrichsweikamp
parents:
diff changeset
3266 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3267 movff divesecs,lo
heinrichsweikamp
parents:
diff changeset
3268 output_99x
heinrichsweikamp
parents:
diff changeset
3269 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3270 STRCAT_PRINT "" ; Show seconds in small font
heinrichsweikamp
parents:
diff changeset
3271 return
heinrichsweikamp
parents:
diff changeset
3272
heinrichsweikamp
parents:
diff changeset
3273 TFT_divemins2:
heinrichsweikamp
parents:
diff changeset
3274 call TFT_standard_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3275 WIN_MEDIUM dm_divetime_minsonly_column, dm_divetime_row
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3276 bcf leftbind
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3277
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3278 ; if we are at or over the limit, do a WARNIGN color
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3279 ; 9999 = 27 0F = [39][15]
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3280 movlw .38
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3281 cpfsgt hi ; hi > 38 ?
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3282 bra TFT_divemins2_out ; No, hi <= 38, no need to warn
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3283
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3284 movlw .40
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3285 cpfslt hi ; hi < 40 ?
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3286 bra TFT_divemins2_warn ; No, hi >= 40, need to warn
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3287
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3288 ; hi = 39, check lo. check 14 as 9999 should be already WARN!
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3289 movlw .14
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3290 cpfsgt lo
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3291 bra TFT_divemins2_out ; No, lo <= 14, no need to warn
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3292 ; Yes, lo > 14, need to warn
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3293
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3294 TFT_divemins2_warn:
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3295 call TFT_warnings_color
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3296 bsf win_invert
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3297
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3298 TFT_divemins2_out:
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3299 output_16_4
0
heinrichsweikamp
parents:
diff changeset
3300 STRCAT_PRINT "" ; Show minutes in large font
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3301 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
3302 return
heinrichsweikamp
parents:
diff changeset
3303
heinrichsweikamp
parents:
diff changeset
3304 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
3305 global TFT_display_apnoe_surface
heinrichsweikamp
parents:
diff changeset
3306 TFT_display_apnoe_surface:
heinrichsweikamp
parents:
diff changeset
3307 call TFT_divemask_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3308 WIN_TINY dm_apnoe_surface_time_text_col, dm_apnoe_surface_time_text_row
0
heinrichsweikamp
parents:
diff changeset
3309 STRCPY_TEXT_PRINT tApnoeSurface
heinrichsweikamp
parents:
diff changeset
3310
heinrichsweikamp
parents:
diff changeset
3311 call TFT_standard_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3312 WIN_MEDIUM dm_apnoe_surface_time_column, dm_apnoe_surface_time_row
0
heinrichsweikamp
parents:
diff changeset
3313 movff apnoe_surface_mins,lo
heinrichsweikamp
parents:
diff changeset
3314 output_8
heinrichsweikamp
parents:
diff changeset
3315 PUTC ':'
heinrichsweikamp
parents:
diff changeset
3316 movff apnoe_surface_secs,lo
heinrichsweikamp
parents:
diff changeset
3317 output_99x
heinrichsweikamp
parents:
diff changeset
3318 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3319 return
heinrichsweikamp
parents:
diff changeset
3320
heinrichsweikamp
parents:
diff changeset
3321 global TFT_apnoe_clear_surface
heinrichsweikamp
parents:
diff changeset
3322 TFT_apnoe_clear_surface:
heinrichsweikamp
parents:
diff changeset
3323 ; Clear Surface timer....
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3324 WIN_BOX_BLACK dm_apnoe_surface_time_text_row, .239, dm_apnoe_surface_time_text_col, .159 ;top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
3325 return
heinrichsweikamp
parents:
diff changeset
3326
heinrichsweikamp
parents:
diff changeset
3327 global TFT_display_apnoe_descent
heinrichsweikamp
parents:
diff changeset
3328 TFT_display_apnoe_descent: ; Descent divetime
heinrichsweikamp
parents:
diff changeset
3329 movff apnoe_mins,lo
heinrichsweikamp
parents:
diff changeset
3330 clrf hi
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3331 WIN_MEDIUM dm_divetime_apnoe_column, dm_divetime_apnoe_row
0
heinrichsweikamp
parents:
diff changeset
3332 output_16_3 ; displays only last three figures from a 16Bit value (0-999)
heinrichsweikamp
parents:
diff changeset
3333 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3334 STRCAT_PRINT "" ; Show minutes in large font
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3335 WIN_SMALL dm_divetime_apnoe_secs_column, dm_divetime_apnoe_secs_row ; left position for two sec figures
0
heinrichsweikamp
parents:
diff changeset
3336 PUTC ':'
heinrichsweikamp
parents:
diff changeset
3337 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3338 movff apnoe_secs,lo
heinrichsweikamp
parents:
diff changeset
3339 output_99x
heinrichsweikamp
parents:
diff changeset
3340 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3341 STRCAT_PRINT "" ; Show seconds in small font
38
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
3342
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
3343 call TFT_divemask_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3344 WIN_TINY dm_total_apnoe_text_column,dm_total_apnoe_text_row
38
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
3345 STRCPY_TEXT_PRINT tApnoeTotal
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
3346 call TFT_standard_color
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
3347 movff divemins,lo
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
3348 clrf hi
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3349 WIN_MEDIUM dm_apnoe_total_divetime_column, dm_apnoe_total_divetime_row
38
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
3350 output_16_3 ; displays only last three figures from a 16Bit value (0-999)
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
3351 call TFT_standard_color
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
3352 STRCAT_PRINT "" ; Show minutes in large font
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3353 WIN_SMALL dm_apnoe_total_divetime_secs_col, dm_apnoe_total_divetime_secs_row ; left position for two sec figures
38
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
3354 PUTC ':'
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
3355 bsf leftbind
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
3356 movff divesecs,lo
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
3357 output_99x
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
3358 bcf leftbind
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
3359 STRCAT_PRINT "" ; Show seconds in small font
0
heinrichsweikamp
parents:
diff changeset
3360 return
heinrichsweikamp
parents:
diff changeset
3361
heinrichsweikamp
parents:
diff changeset
3362 ;=============================================================================
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 262
diff changeset
3363 ; Writes ostc #Serial and Firmware version in splash screen
0
heinrichsweikamp
parents:
diff changeset
3364 ;
heinrichsweikamp
parents:
diff changeset
3365 global TFT_serial
heinrichsweikamp
parents:
diff changeset
3366 TFT_serial:
213
3b5df65d53fc layout changes
heinrichsweikamp
parents: 207
diff changeset
3367 WIN_TINY .5,.225
200
dcd513840c6c cleanup
heinrichsweikamp
parents: 192
diff changeset
3368 STRCPY "OSTC" ; Won't translate that...
260
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3369
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3370 movlw 0x0A
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3371 cpfseq hardware_flag
200
dcd513840c6c cleanup
heinrichsweikamp
parents: 192
diff changeset
3372 bra TFT_serial2
dcd513840c6c cleanup
heinrichsweikamp
parents: 192
diff changeset
3373 STRCAT "3 #"
260
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3374 bra TFT_serial_common
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3375 TFT_serial2:
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3376 movlw 0x05
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3377 cpfseq hardware_flag
200
dcd513840c6c cleanup
heinrichsweikamp
parents: 192
diff changeset
3378 bra TFT_serial3
dcd513840c6c cleanup
heinrichsweikamp
parents: 192
diff changeset
3379 STRCAT " cR #"
260
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3380 bra TFT_serial_common
200
dcd513840c6c cleanup
heinrichsweikamp
parents: 192
diff changeset
3381 TFT_serial3:
260
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3382 movlw 0x11
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3383 cpfseq hardware_flag
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3384 bra TFT_serial4
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3385 STRCAT "2 #"
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3386 bra TFT_serial_common
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3387 TFT_serial4:
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3388 movlw 0x1A
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3389 cpfseq hardware_flag
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3390 bra TFT_serial5
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3391 STRCAT "3 #"
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3392 ; bra TFT_serial_common
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3393 TFT_serial5:
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 256
diff changeset
3394 TFT_serial_common:
0
heinrichsweikamp
parents:
diff changeset
3395 rcall TFT_cat_serial
heinrichsweikamp
parents:
diff changeset
3396 STRCAT " v"
180
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3397 WIN_COLOR color_greenish
0
heinrichsweikamp
parents:
diff changeset
3398 rcall TFT_cat_firmware
heinrichsweikamp
parents:
diff changeset
3399
heinrichsweikamp
parents:
diff changeset
3400 ifdef __DEBUG
heinrichsweikamp
parents:
diff changeset
3401 movlw color_grey ; Write header in blue when
heinrichsweikamp
parents:
diff changeset
3402 call TFT_set_color ; compiled in DEBUG mode...
heinrichsweikamp
parents:
diff changeset
3403 STRCAT_PRINT "DEBUG"
heinrichsweikamp
parents:
diff changeset
3404 else
76
a5ea132770db 1.21 release
heinrichsweikamp
parents: 67
diff changeset
3405 STRCAT_PRINT ""
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
3406 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
3407 call TFT_standard_color
76
a5ea132770db 1.21 release
heinrichsweikamp
parents: 67
diff changeset
3408
0
heinrichsweikamp
parents:
diff changeset
3409 movlw softwareversion_beta ; =1: Beta, =0: Release
heinrichsweikamp
parents:
diff changeset
3410 decfsz WREG,F
heinrichsweikamp
parents:
diff changeset
3411 return ; Release version -> Return
heinrichsweikamp
parents:
diff changeset
3412
heinrichsweikamp
parents:
diff changeset
3413 call TFT_warnings_color
heinrichsweikamp
parents:
diff changeset
3414 WIN_LEFT .160-4*9/2 ; Right pad.
heinrichsweikamp
parents:
diff changeset
3415 STRCPY_TEXT_PRINT tBeta
heinrichsweikamp
parents:
diff changeset
3416 endif
76
a5ea132770db 1.21 release
heinrichsweikamp
parents: 67
diff changeset
3417 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
3418 return
heinrichsweikamp
parents:
diff changeset
3419
heinrichsweikamp
parents:
diff changeset
3420
heinrichsweikamp
parents:
diff changeset
3421
heinrichsweikamp
parents:
diff changeset
3422 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
3423 ; For the Information menu: append firmware x.yy version.
heinrichsweikamp
parents:
diff changeset
3424 global info_menu_firmware
heinrichsweikamp
parents:
diff changeset
3425 extern tFirmware
heinrichsweikamp
parents:
diff changeset
3426 info_menu_firmware:
heinrichsweikamp
parents:
diff changeset
3427 lfsr FSR1,tFirmware
heinrichsweikamp
parents:
diff changeset
3428 call strcat_text
180
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3429 rcall TFT_cat_firmware
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
3430 bcf win_invert ; Reset invert flag
180
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3431 return
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3432
76
a5ea132770db 1.21 release
heinrichsweikamp
parents: 67
diff changeset
3433 global TFT_cat_firmware
0
heinrichsweikamp
parents:
diff changeset
3434 TFT_cat_firmware:
heinrichsweikamp
parents:
diff changeset
3435 movlw softwareversion_x
heinrichsweikamp
parents:
diff changeset
3436 movwf lo
heinrichsweikamp
parents:
diff changeset
3437 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3438 output_8
heinrichsweikamp
parents:
diff changeset
3439 PUTC '.'
heinrichsweikamp
parents:
diff changeset
3440 movlw softwareversion_y
heinrichsweikamp
parents:
diff changeset
3441 movwf lo
heinrichsweikamp
parents:
diff changeset
3442 output_99x
heinrichsweikamp
parents:
diff changeset
3443 bcf leftbind
180
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3444 ; Check firmware date
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3445 movlw firmware_expire_year-.1
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3446 cpfsgt year ; > threshold?
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3447 return
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3448 movlw firmware_expire_month-.1
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3449 cpfsgt month ; > threshold?
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3450 return
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3451 movlw firmware_expire_day-.1
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3452 cpfsgt day ; > threshold?
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3453 return
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3454
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3455 ; Show in "change firmware" style
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3456 movlw color_yellow
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
3457 call TFT_set_color
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
3458 bsf win_invert ; Set invert flag
0
heinrichsweikamp
parents:
diff changeset
3459 return
heinrichsweikamp
parents:
diff changeset
3460
heinrichsweikamp
parents:
diff changeset
3461 ;-----------------------------------------------------------------------------
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 262
diff changeset
3462 ; For the Information menu: append serial number
0
heinrichsweikamp
parents:
diff changeset
3463 global info_menu_serial
heinrichsweikamp
parents:
diff changeset
3464 extern tSerial
heinrichsweikamp
parents:
diff changeset
3465 info_menu_serial:
heinrichsweikamp
parents:
diff changeset
3466 lfsr FSR1,tSerial
heinrichsweikamp
parents:
diff changeset
3467 call strcat_text
76
a5ea132770db 1.21 release
heinrichsweikamp
parents: 67
diff changeset
3468 global TFT_cat_serial
0
heinrichsweikamp
parents:
diff changeset
3469 TFT_cat_serial:
heinrichsweikamp
parents:
diff changeset
3470 clrf EEADRH
heinrichsweikamp
parents:
diff changeset
3471 clrf EEADR ; Get Serial number LOW
heinrichsweikamp
parents:
diff changeset
3472 call read_eeprom ; read byte
heinrichsweikamp
parents:
diff changeset
3473 movff EEDATA,lo
heinrichsweikamp
parents:
diff changeset
3474 incf EEADR,F ; Get Serial number HIGH
heinrichsweikamp
parents:
diff changeset
3475 call read_eeprom ; read byte
heinrichsweikamp
parents:
diff changeset
3476 movff EEDATA,hi
heinrichsweikamp
parents:
diff changeset
3477
heinrichsweikamp
parents:
diff changeset
3478 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3479 output_16
heinrichsweikamp
parents:
diff changeset
3480 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3481 return
heinrichsweikamp
parents:
diff changeset
3482
heinrichsweikamp
parents:
diff changeset
3483 ;-----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
3484 ; For the Information menu: Append total dives
heinrichsweikamp
parents:
diff changeset
3485 global info_menu_total_dives
heinrichsweikamp
parents:
diff changeset
3486 extern tTotalDives
heinrichsweikamp
parents:
diff changeset
3487 info_menu_total_dives:
heinrichsweikamp
parents:
diff changeset
3488 lfsr FSR1,tTotalDives
heinrichsweikamp
parents:
diff changeset
3489 call strcat_text
heinrichsweikamp
parents:
diff changeset
3490 TFT_cat_total_dives:
heinrichsweikamp
parents:
diff changeset
3491 read_int_eeprom .2
heinrichsweikamp
parents:
diff changeset
3492 movff EEDATA,lo
heinrichsweikamp
parents:
diff changeset
3493 read_int_eeprom .3
heinrichsweikamp
parents:
diff changeset
3494 movff EEDATA,hi
heinrichsweikamp
parents:
diff changeset
3495 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3496 output_16
heinrichsweikamp
parents:
diff changeset
3497 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3498 return
heinrichsweikamp
parents:
diff changeset
3499
62
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
3500 ; For the Information menu: Append battery voltage
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
3501 global info_menu_battery_volts
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
3502 extern tBatteryV
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
3503 info_menu_battery_volts:
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
3504 lfsr FSR1,tBatteryV
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
3505 call strcat_text
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
3506 movff batt_voltage+1,hi
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
3507 movff batt_voltage+0,lo
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
3508 bsf leftbind
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
3509 output_16dp .2 ; x.xxx
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
3510 bcf leftbind
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
3511 PUTC "V"
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
3512 return
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
3513
0
heinrichsweikamp
parents:
diff changeset
3514 ;-----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
3515 ; ppO2 menu
heinrichsweikamp
parents:
diff changeset
3516 global divesets_ppo2_max
heinrichsweikamp
parents:
diff changeset
3517 extern tPPO2Max
heinrichsweikamp
parents:
diff changeset
3518 extern tbar
heinrichsweikamp
parents:
diff changeset
3519 divesets_ppo2_max:
heinrichsweikamp
parents:
diff changeset
3520 lfsr FSR1,tPPO2Max
heinrichsweikamp
parents:
diff changeset
3521 call strcat_text
heinrichsweikamp
parents:
diff changeset
3522 movff opt_ppO2_max,lo
heinrichsweikamp
parents:
diff changeset
3523 movlw ppo2_warning_high
heinrichsweikamp
parents:
diff changeset
3524 divesets_ppo2_common:
heinrichsweikamp
parents:
diff changeset
3525 movwf up ; Save default value
heinrichsweikamp
parents:
diff changeset
3526 clrf hi
heinrichsweikamp
parents:
diff changeset
3527 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3528 output_16dp d'3'
heinrichsweikamp
parents:
diff changeset
3529 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3530 lfsr FSR1,tbar
heinrichsweikamp
parents:
diff changeset
3531 call strcat_text
heinrichsweikamp
parents:
diff changeset
3532
heinrichsweikamp
parents:
diff changeset
3533 movf up,W ; Default value
heinrichsweikamp
parents:
diff changeset
3534 cpfseq lo ; Current value
heinrichsweikamp
parents:
diff changeset
3535 bra divesets_ppo2_common2 ; Not default, add *
heinrichsweikamp
parents:
diff changeset
3536 return ; Default, Done.
heinrichsweikamp
parents:
diff changeset
3537 divesets_ppo2_common2:
heinrichsweikamp
parents:
diff changeset
3538 PUTC "*"
heinrichsweikamp
parents:
diff changeset
3539 return ; Done.
heinrichsweikamp
parents:
diff changeset
3540
heinrichsweikamp
parents:
diff changeset
3541 global divesets_ppo2_min
heinrichsweikamp
parents:
diff changeset
3542 extern tPPO2Min
heinrichsweikamp
parents:
diff changeset
3543 divesets_ppo2_min:
heinrichsweikamp
parents:
diff changeset
3544 lfsr FSR1,tPPO2Min
heinrichsweikamp
parents:
diff changeset
3545 call strcat_text
heinrichsweikamp
parents:
diff changeset
3546 movff opt_ppO2_min,lo
heinrichsweikamp
parents:
diff changeset
3547 movlw ppo2_warning_low
heinrichsweikamp
parents:
diff changeset
3548 bra divesets_ppo2_common
heinrichsweikamp
parents:
diff changeset
3549
heinrichsweikamp
parents:
diff changeset
3550 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
3551
heinrichsweikamp
parents:
diff changeset
3552 global TFT_clear_warning_text
heinrichsweikamp
parents:
diff changeset
3553 TFT_clear_warning_text:
heinrichsweikamp
parents:
diff changeset
3554 btfss divemode ; in divemode?
heinrichsweikamp
parents:
diff changeset
3555 bra TFT_clear_warning_text2 ; No, setup for surface mode
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3556 WIN_BOX_BLACK dm_warning_row, dm_warning_bot, dm_warning_column, dm_warning_rgt ;top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
3557 return
heinrichsweikamp
parents:
diff changeset
3558 TFT_clear_warning_text2:
heinrichsweikamp
parents:
diff changeset
3559 WIN_BOX_BLACK surf_warning1_row, surf_warning2_row+.24, surf_warning1_column, surf_warning1_column+.76 ;top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
3560 return
heinrichsweikamp
parents:
diff changeset
3561
heinrichsweikamp
parents:
diff changeset
3562 global TFT_clear_warning_text_2nd_row
heinrichsweikamp
parents:
diff changeset
3563 TFT_clear_warning_text_2nd_row:
heinrichsweikamp
parents:
diff changeset
3564 btfss divemode ; in divemode?
heinrichsweikamp
parents:
diff changeset
3565 bra TFT_clear_warning_text_2nd_2 ; No, setup for surface mode
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3566 WIN_BOX_BLACK dm_warning2_row, dm_warning2_bot, dm_warning2_column, dm_warning2_rgt ;top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
3567 return
heinrichsweikamp
parents:
diff changeset
3568 TFT_clear_warning_text_2nd_2:
heinrichsweikamp
parents:
diff changeset
3569 WIN_BOX_BLACK surf_warning2_row, surf_warning2_row+.24, surf_warning2_column, surf_warning2_column+.76 ;top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
3570 return
heinrichsweikamp
parents:
diff changeset
3571
heinrichsweikamp
parents:
diff changeset
3572 global TFT_fillup_with_spaces
heinrichsweikamp
parents:
diff changeset
3573 TFT_fillup_with_spaces: ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
3574 movwf lo ; save max. string length into lo
heinrichsweikamp
parents:
diff changeset
3575 movf FSR2L,W ; Get current string length
heinrichsweikamp
parents:
diff changeset
3576 subwf lo,F ; lo-WREG
heinrichsweikamp
parents:
diff changeset
3577 btfsc STATUS,N ; longer then #lo already?
heinrichsweikamp
parents:
diff changeset
3578 return ; Yes, done.
heinrichsweikamp
parents:
diff changeset
3579 tstfsz lo ; Zero?
heinrichsweikamp
parents:
diff changeset
3580 bra TFT_fillup_with_spaces2 ; No.
heinrichsweikamp
parents:
diff changeset
3581 return ; Yes, done.
heinrichsweikamp
parents:
diff changeset
3582 TFT_fillup_with_spaces2:
heinrichsweikamp
parents:
diff changeset
3583 PUTC " " ; Add one space
heinrichsweikamp
parents:
diff changeset
3584 decfsz lo,F ; All done?
heinrichsweikamp
parents:
diff changeset
3585 bra TFT_fillup_with_spaces2 ; No, loop
heinrichsweikamp
parents:
diff changeset
3586 return ; Done.
heinrichsweikamp
parents:
diff changeset
3587
heinrichsweikamp
parents:
diff changeset
3588 global TFT_desaturation_time
heinrichsweikamp
parents:
diff changeset
3589 TFT_desaturation_time:
heinrichsweikamp
parents:
diff changeset
3590 rcall TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
3591 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
3592 return ; No
309
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
3593 call TFT_warning_set_window_com
0
heinrichsweikamp
parents:
diff changeset
3594 STRCPY "Desat:"
heinrichsweikamp
parents:
diff changeset
3595 movff desaturation_time+0,lo ; divide by 60...
heinrichsweikamp
parents:
diff changeset
3596 movff desaturation_time+1,hi
heinrichsweikamp
parents:
diff changeset
3597 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
heinrichsweikamp
parents:
diff changeset
3598 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3599 movf lo,W
heinrichsweikamp
parents:
diff changeset
3600 movff hi,lo
heinrichsweikamp
parents:
diff changeset
3601 movwf hi ; exchange lo and hi...
heinrichsweikamp
parents:
diff changeset
3602 output_8 ; Hours
heinrichsweikamp
parents:
diff changeset
3603 PUTC ':'
heinrichsweikamp
parents:
diff changeset
3604 movff hi,lo ; Minutes
heinrichsweikamp
parents:
diff changeset
3605 output_99x
heinrichsweikamp
parents:
diff changeset
3606 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3607 movlw surf_warning_length ; Only use surface string length
heinrichsweikamp
parents:
diff changeset
3608 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
60
1464cd73d184 BUGFIX: Display Desat.-Time >100 hours
heinrichsweikamp
parents: 55
diff changeset
3609 movlw .0
1464cd73d184 BUGFIX: Display Desat.-Time >100 hours
heinrichsweikamp
parents: 55
diff changeset
3610 movff WREG,buffer+11
0
heinrichsweikamp
parents:
diff changeset
3611 STRCAT_PRINT ""
341
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
3612 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
3613 return
heinrichsweikamp
parents:
diff changeset
3614
heinrichsweikamp
parents:
diff changeset
3615 global TFT_nofly_time
heinrichsweikamp
parents:
diff changeset
3616 TFT_nofly_time:
heinrichsweikamp
parents:
diff changeset
3617 rcall TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
3618 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
3619 return ; No
309
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
3620 call TFT_warning_set_window_com
0
heinrichsweikamp
parents:
diff changeset
3621 STRCPY "NoFly:"
heinrichsweikamp
parents:
diff changeset
3622 movff nofly_time+0,lo ; divide by 60...
heinrichsweikamp
parents:
diff changeset
3623 movff nofly_time+1,hi
heinrichsweikamp
parents:
diff changeset
3624 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
heinrichsweikamp
parents:
diff changeset
3625 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3626 movf lo,W
heinrichsweikamp
parents:
diff changeset
3627 movff hi,lo
heinrichsweikamp
parents:
diff changeset
3628 movwf hi ; exchange lo and hi...
heinrichsweikamp
parents:
diff changeset
3629 output_8 ; Hours
heinrichsweikamp
parents:
diff changeset
3630 PUTC ':'
heinrichsweikamp
parents:
diff changeset
3631 movff hi,lo ; Minutes
heinrichsweikamp
parents:
diff changeset
3632 output_99x
heinrichsweikamp
parents:
diff changeset
3633 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3634 movlw surf_warning_length ; Only use surface string length
heinrichsweikamp
parents:
diff changeset
3635 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
60
1464cd73d184 BUGFIX: Display Desat.-Time >100 hours
heinrichsweikamp
parents: 55
diff changeset
3636 movlw .0
1464cd73d184 BUGFIX: Display Desat.-Time >100 hours
heinrichsweikamp
parents: 55
diff changeset
3637 movff WREG,buffer+11
0
heinrichsweikamp
parents:
diff changeset
3638 STRCAT_PRINT ""
341
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
3639 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
3640 return
heinrichsweikamp
parents:
diff changeset
3641
heinrichsweikamp
parents:
diff changeset
3642 global TFT_warning_agf
heinrichsweikamp
parents:
diff changeset
3643 TFT_warning_agf:
heinrichsweikamp
parents:
diff changeset
3644 rcall TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
3645 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
3646 return ; No
309
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
3647 call TFT_warning_set_window_com
0
heinrichsweikamp
parents:
diff changeset
3648 call TFT_warnings_color
heinrichsweikamp
parents:
diff changeset
3649 STRCPY_TEXT tDiveaGF_active ; "aGF!"
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3650 movlw dm_warning_length ; Divemode string length
0
heinrichsweikamp
parents:
diff changeset
3651 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
3652 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3653 call TFT_standard_color
341
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
3654 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
3655 return
heinrichsweikamp
parents:
diff changeset
3656
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3657 global TFT_warning_fallback
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3658 TFT_warning_fallback: ; Show fallback warning
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3659 rcall TFT_warning_set_window ; Sets the row and column for the current warning
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3660 tstfsz WREG ; Is there room for the warning?
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3661 return ; No
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3662 call TFT_warnings_color
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3663 STRCPY_TEXT tDiveFallback ; "Fallback!"
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3664 movlw dm_warning_length ; Divemode string length
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3665 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3666 STRCAT_PRINT ""
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3667 call TFT_standard_color
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3668 return
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3669
0
heinrichsweikamp
parents:
diff changeset
3670 global TFT_warning_gf
heinrichsweikamp
parents:
diff changeset
3671 TFT_warning_gf: ;GF
heinrichsweikamp
parents:
diff changeset
3672 rcall TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
3673 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
3674 return ; No
309
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
3675 call TFT_warning_set_window_com
0
heinrichsweikamp
parents:
diff changeset
3676 TFT_color_code warn_gf ; Color-code Output
heinrichsweikamp
parents:
diff changeset
3677 STRCPY "GF:"
heinrichsweikamp
parents:
diff changeset
3678 movff char_O_gradient_factor,lo ; gradient factor
heinrichsweikamp
parents:
diff changeset
3679 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3680 output_8
heinrichsweikamp
parents:
diff changeset
3681 PUTC "%"
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3682 movlw dm_warning_length ; Divemode string length
0
heinrichsweikamp
parents:
diff changeset
3683 btfss divemode ; In Divemode?
heinrichsweikamp
parents:
diff changeset
3684 movlw surf_warning_length ; No, use surface string length
heinrichsweikamp
parents:
diff changeset
3685 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
3686 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3687 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3688 call TFT_standard_color
341
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
3689 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
3690 return
heinrichsweikamp
parents:
diff changeset
3691
heinrichsweikamp
parents:
diff changeset
3692 TFT_warning_set_window: ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
3693 ; ignore warning (now)?
heinrichsweikamp
parents:
diff changeset
3694 decf warning_counter,W ; -1
heinrichsweikamp
parents:
diff changeset
3695 bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
3696 rrcf WREG,W ; (warning_counter-1)/2
heinrichsweikamp
parents:
diff changeset
3697 cpfseq warning_page
heinrichsweikamp
parents:
diff changeset
3698 retlw .255 ; WREG <> 0 -> Warning window not defined
heinrichsweikamp
parents:
diff changeset
3699
heinrichsweikamp
parents:
diff changeset
3700 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3701
heinrichsweikamp
parents:
diff changeset
3702 btfss divemode ; in divemode?
heinrichsweikamp
parents:
diff changeset
3703 bra TFT_warning_set_window3 ; No, setup for surface mode
heinrichsweikamp
parents:
diff changeset
3704
heinrichsweikamp
parents:
diff changeset
3705 btfss warning_counter,0 ; Toggle with each warning
heinrichsweikamp
parents:
diff changeset
3706 bra TFT_warning_set_window2
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3707 WIN_SMALL dm_warning1_column, dm_warning1_row
0
heinrichsweikamp
parents:
diff changeset
3708 bcf second_row_warning ; =1: The second row contains a warning
heinrichsweikamp
parents:
diff changeset
3709 retlw .0 ; WREG=0 -> Warning window defined
heinrichsweikamp
parents:
diff changeset
3710 TFT_warning_set_window2:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3711 WIN_SMALL dm_warning2_column, dm_warning2_row
0
heinrichsweikamp
parents:
diff changeset
3712 bsf second_row_warning ; =1: The second row contains a warning
heinrichsweikamp
parents:
diff changeset
3713 retlw .0 ; WREG=0 -> Warning window defined
heinrichsweikamp
parents:
diff changeset
3714
heinrichsweikamp
parents:
diff changeset
3715 TFT_warning_set_window3:
heinrichsweikamp
parents:
diff changeset
3716 btfss warning_counter,0 ; Toggle with each warning
heinrichsweikamp
parents:
diff changeset
3717 bra TFT_warning_set_window4
heinrichsweikamp
parents:
diff changeset
3718 WIN_SMALL surf_warning1_column,surf_warning1_row
heinrichsweikamp
parents:
diff changeset
3719 bcf second_row_warning ; =1: The second row contains a warning
heinrichsweikamp
parents:
diff changeset
3720 retlw .0 ; WREG=0 -> Warning window defined
heinrichsweikamp
parents:
diff changeset
3721 TFT_warning_set_window4:
heinrichsweikamp
parents:
diff changeset
3722 WIN_SMALL surf_warning2_column,surf_warning2_row
heinrichsweikamp
parents:
diff changeset
3723 bsf second_row_warning ; =1: The second row contains a warning
heinrichsweikamp
parents:
diff changeset
3724 retlw .0 ; WREG=0 -> Warning window defined
heinrichsweikamp
parents:
diff changeset
3725
309
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
3726 TFT_warning_set_window_com:
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
3727 if dm_offset == 0
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
3728 bsf win_invert
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
3729 endif
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
3730 return
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
3731
0
heinrichsweikamp
parents:
diff changeset
3732 global TFT_update_batt_percent_divemode
heinrichsweikamp
parents:
diff changeset
3733 TFT_update_batt_percent_divemode:
heinrichsweikamp
parents:
diff changeset
3734 rcall TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
3735 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
3736 return ; No
309
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
3737 call TFT_warning_set_window_com
0
heinrichsweikamp
parents:
diff changeset
3738 movff batt_percent,lo ; Get battery percent
heinrichsweikamp
parents:
diff changeset
3739 TFT_color_code warn_battery; Color-code battery percent
heinrichsweikamp
parents:
diff changeset
3740 STRCPY "Batt:"
heinrichsweikamp
parents:
diff changeset
3741 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3742 output_8
heinrichsweikamp
parents:
diff changeset
3743 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3744 PUTC "%"
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3745 movlw dm_warning_length ; Divemode string length
0
heinrichsweikamp
parents:
diff changeset
3746 btfss divemode ; In Divemode?
heinrichsweikamp
parents:
diff changeset
3747 movlw surf_warning_length ; No, use surface string length
heinrichsweikamp
parents:
diff changeset
3748 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
3749 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3750 call TFT_standard_color
341
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
3751 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
3752 return
heinrichsweikamp
parents:
diff changeset
3753
heinrichsweikamp
parents:
diff changeset
3754 global TFT_gf_mask ; Setup Mask
heinrichsweikamp
parents:
diff changeset
3755 TFT_gf_mask:
heinrichsweikamp
parents:
diff changeset
3756 ; The mask
heinrichsweikamp
parents:
diff changeset
3757 call TFT_divemask_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3758 WIN_TINY dm_custom_gf_title_col1, dm_custom_gf_title_row
0
heinrichsweikamp
parents:
diff changeset
3759 STRCPY_TEXT_PRINT tGFactors
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3760 WIN_TINY dm_custom_gf_title_col2, dm_custom_gf_title_row
0
heinrichsweikamp
parents:
diff changeset
3761 STRCPY_TEXT_PRINT taGFactors
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3762 WIN_TINY dm_custom_gf_title_col3, dm_custom_gf_title_row
0
heinrichsweikamp
parents:
diff changeset
3763 STRCPY_TEXT_PRINT tGFInfo
heinrichsweikamp
parents:
diff changeset
3764
heinrichsweikamp
parents:
diff changeset
3765 ; Show GF (Static)
heinrichsweikamp
parents:
diff changeset
3766 call TFT_disabled_color
heinrichsweikamp
parents:
diff changeset
3767 btfss use_agf
heinrichsweikamp
parents:
diff changeset
3768 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3769
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3770 WIN_STD dm_custom_gf_column, dm_custom_gf_row
0
heinrichsweikamp
parents:
diff changeset
3771 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3772 movff opt_GF_low,lo
heinrichsweikamp
parents:
diff changeset
3773 output_8
heinrichsweikamp
parents:
diff changeset
3774 PUTC "/"
heinrichsweikamp
parents:
diff changeset
3775 movff opt_GF_high,lo
heinrichsweikamp
parents:
diff changeset
3776 output_8
heinrichsweikamp
parents:
diff changeset
3777 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3778 ; Show aGF (Static)
heinrichsweikamp
parents:
diff changeset
3779 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3780 TSTOSS opt_enable_aGF ; =1: aGF can be selected underwater
heinrichsweikamp
parents:
diff changeset
3781 bra TFT_gf_mask2 ; Show "---" instead
heinrichsweikamp
parents:
diff changeset
3782
heinrichsweikamp
parents:
diff changeset
3783 btfss use_agf
heinrichsweikamp
parents:
diff changeset
3784 call TFT_disabled_color
heinrichsweikamp
parents:
diff changeset
3785
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3786 WIN_STD dm_custom_agf_column, dm_custom_agf_row
0
heinrichsweikamp
parents:
diff changeset
3787 movff opt_aGF_low,lo
heinrichsweikamp
parents:
diff changeset
3788 output_8
heinrichsweikamp
parents:
diff changeset
3789 PUTC "/"
heinrichsweikamp
parents:
diff changeset
3790 movff opt_aGF_high,lo
heinrichsweikamp
parents:
diff changeset
3791 output_8
heinrichsweikamp
parents:
diff changeset
3792 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3793 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3794 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3795 return
heinrichsweikamp
parents:
diff changeset
3796
heinrichsweikamp
parents:
diff changeset
3797 TFT_gf_mask2:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3798 WIN_STD dm_custom_agf_column+.10, dm_custom_agf_row
0
heinrichsweikamp
parents:
diff changeset
3799 STRCPY_PRINT "---"
heinrichsweikamp
parents:
diff changeset
3800 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3801 return
heinrichsweikamp
parents:
diff changeset
3802
333
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
3803 global TFT_gf_mask_cGF ; Setup Mask
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
3804 TFT_gf_mask_cGF:
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
3805 ; The mask
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
3806 call TFT_divemask_color
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
3807 WIN_TINY dm_custom_gf_title_col3, dm_custom_gf_title_row
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
3808 STRCPY_TEXT_PRINT tGFInfo
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
3809 call TFT_standard_color
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
3810 return
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
3811
0
heinrichsweikamp
parents:
diff changeset
3812 global TFT_gf_info ; Show GF informations
heinrichsweikamp
parents:
diff changeset
3813 TFT_gf_info:
333
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
3814 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
3815 ; Show current GF
heinrichsweikamp
parents:
diff changeset
3816 movff char_O_gradient_factor,lo ; gradient factor absolute (Non-GF model)
heinrichsweikamp
parents:
diff changeset
3817 movff char_I_deco_model,hi
heinrichsweikamp
parents:
diff changeset
3818 decfsz hi,F ; jump over next line if char_I_deco_model == 1
heinrichsweikamp
parents:
diff changeset
3819 movff char_O_relative_gradient_GF,lo ; gradient factor relative (GF model)
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3820 WIN_STD dm_custom_currentgf_column, dm_custom_currentgf_row
0
heinrichsweikamp
parents:
diff changeset
3821 output_8
heinrichsweikamp
parents:
diff changeset
3822 STRCAT_PRINT "%"
heinrichsweikamp
parents:
diff changeset
3823 return
heinrichsweikamp
parents:
diff changeset
3824
heinrichsweikamp
parents:
diff changeset
3825 global TFT_ead_end_tissues_clock_mask ; Setup Mask
heinrichsweikamp
parents:
diff changeset
3826 TFT_ead_end_tissues_clock_mask:
heinrichsweikamp
parents:
diff changeset
3827 ; The mask
heinrichsweikamp
parents:
diff changeset
3828 call TFT_divemask_color
134
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3829 btfsc FLAG_apnoe_mode ; In Apnoe mode?
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3830 bra TFT_ead_end_tissues_clock_mask2 ; Yes
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3831 btfsc FLAG_gauge_mode ; In Gauge mode?
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3832 bra TFT_ead_end_tissues_clock_mask2 ; Yes
0
heinrichsweikamp
parents:
diff changeset
3833 ; Put three columns at HUD positions
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3834 WIN_TINY dm_custom_ead_column, dm_custom_eadend_title_row
0
heinrichsweikamp
parents:
diff changeset
3835 STRCPY_TEXT_PRINT tDiveEAD_END
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3836 WIN_TINY dm_custom_tissue_title_column, dm_custom_tissue_title_row
0
heinrichsweikamp
parents:
diff changeset
3837 STRCPY_TEXT_PRINT tDiveTissues
134
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3838 TFT_ead_end_tissues_clock_mask2: ; Show only clock
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3839 WIN_TINY dm_custom_clock_column, dm_custom_clock_title_row
134
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3840 STRCPY_TEXT_PRINT tDiveClock
0
heinrichsweikamp
parents:
diff changeset
3841 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3842 return
heinrichsweikamp
parents:
diff changeset
3843
heinrichsweikamp
parents:
diff changeset
3844 global TFT_ead_end_tissues_clock ; Show EAD/END, Tissues and clock
heinrichsweikamp
parents:
diff changeset
3845 TFT_ead_end_tissues_clock:
heinrichsweikamp
parents:
diff changeset
3846 ; Update clock and date
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3847 WIN_SMALL dm_custom_clock_column, dm_custom_clock_row
0
heinrichsweikamp
parents:
diff changeset
3848 call TFT_clock2 ; print clock
134
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3849
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3850 btfsc FLAG_apnoe_mode ; In Apnoe mode?
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3851 return ; Yes, done.
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3852 btfsc FLAG_gauge_mode ; In Gauge mode?
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3853 return ; Yes, done.
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3854
105
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3855 ; WIN_SMALL dive_endtime_column,dive_endtime_row
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3856 ;
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3857 ; btfss decostop_active ; Already in nodeco mode ?
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3858 ; bra TFT_ead_end_tissues_clock2 ; No, overwrite with some spaces
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3859 ;
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3860 ; STRCPY 0x94 ; "End of dive" icon
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3861 ; movff hours,WREG
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3862 ; mullw .60
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3863 ; movf mins,W
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3864 ; addwf PRODL
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3865 ; movlw .0
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3866 ; addwfc PRODH
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3867 ; movff PRODL, lo
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3868 ; movff PRODH, hi
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3869 ;
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3870 ; ; Add TTS
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3871 ; movff int_O_ascenttime+0,WREG ; TTS
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3872 ; addwf lo,F
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3873 ; movff int_O_ascenttime+1,WREG ; TTS is 16bits
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3874 ; addwfc hi,F
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3875 ;
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3876 ; call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3877 ; movf hi,W
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3878 ; movff lo,hi
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3879 ; movwf lo ; exchange lo and hi
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3880 ; output_99x
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3881 ; PUTC ':'
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3882 ; movff hi,lo
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3883 ; output_99x
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3884 ; STRCAT_PRINT ""
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3885 ; bra TFT_ead_end_tissues_clock3
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3886 ;
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3887 ;TFT_ead_end_tissues_clock2:
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3888 ; STRCPY_PRINT " "
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3889 ;TFT_ead_end_tissues_clock3:
0
heinrichsweikamp
parents:
diff changeset
3890
heinrichsweikamp
parents:
diff changeset
3891 ; Show END/EAD
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3892 WIN_SMALL dm_custom_ead_column, dm_custom_ead_row
0
heinrichsweikamp
parents:
diff changeset
3893 STRCPY_TEXT tEAD ; EAD:
heinrichsweikamp
parents:
diff changeset
3894 movff char_O_EAD,lo
heinrichsweikamp
parents:
diff changeset
3895 rcall TFT_end_ead_common ; print "lo m" (or ft) and limit to 8 chars
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3896 WIN_SMALL dm_custom_end_column, dm_custom_end_row
0
heinrichsweikamp
parents:
diff changeset
3897 STRCPY_TEXT tEND ; END:
heinrichsweikamp
parents:
diff changeset
3898 movff char_O_END,lo
heinrichsweikamp
parents:
diff changeset
3899 rcall TFT_end_ead_common ; print "lo m" (or ft) and limit to 8 chars
heinrichsweikamp
parents:
diff changeset
3900
heinrichsweikamp
parents:
diff changeset
3901 ; Show tissue diagram
heinrichsweikamp
parents:
diff changeset
3902 call TFT_divemask_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3903 WIN_TINY dm_custom_tissue_N2_column, dm_custom_tissue_N2_row
0
heinrichsweikamp
parents:
diff changeset
3904 STRCPY_TEXT_PRINT tN2
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3905 WIN_TINY dm_custom_tissue_He_column, dm_custom_tissue_He_row
0
heinrichsweikamp
parents:
diff changeset
3906 STRCPY_TEXT_PRINT tHe
heinrichsweikamp
parents:
diff changeset
3907 call deco_calc_desaturation_time ; calculate desaturation time (and char_O_tissue_N2_saturation and char_O_tissue_He_saturation)
heinrichsweikamp
parents:
diff changeset
3908 movlb b'00000001' ; select ram bank 1
heinrichsweikamp
parents:
diff changeset
3909 rcall DISP_tissue_saturation_graph ; Show char_O_tissue_N2_saturation and char_O_tissue_He_saturation
heinrichsweikamp
parents:
diff changeset
3910 return
heinrichsweikamp
parents:
diff changeset
3911
heinrichsweikamp
parents:
diff changeset
3912 TFT_end_ead_common: ; print "lo m" (or ft) and limit to 8 chars
heinrichsweikamp
parents:
diff changeset
3913 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3914 TSTOSS opt_units ; 0=Meters, 1=Feets
heinrichsweikamp
parents:
diff changeset
3915 bra TFT_end_ead_common_metric
heinrichsweikamp
parents:
diff changeset
3916 ;TFT_end_ead_common_imperial:
heinrichsweikamp
parents:
diff changeset
3917 ; With lo in m
heinrichsweikamp
parents:
diff changeset
3918 movf lo,W
heinrichsweikamp
parents:
diff changeset
3919 mullw .100 ; PRODL:PRODH = mbar/min
heinrichsweikamp
parents:
diff changeset
3920 movff PRODL,lo
heinrichsweikamp
parents:
diff changeset
3921 movff PRODH,hi
heinrichsweikamp
parents:
diff changeset
3922 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
3923 output_16_3
heinrichsweikamp
parents:
diff changeset
3924 STRCAT_TEXT tFeets
heinrichsweikamp
parents:
diff changeset
3925 clrf WREG
heinrichsweikamp
parents:
diff changeset
3926 movff WREG,buffer+.8 ; limit string length to 8
heinrichsweikamp
parents:
diff changeset
3927 bra TFT_end_ead_common_exit
heinrichsweikamp
parents:
diff changeset
3928 TFT_end_ead_common_metric:
heinrichsweikamp
parents:
diff changeset
3929 output_8
heinrichsweikamp
parents:
diff changeset
3930 STRCAT_TEXT tMeters
heinrichsweikamp
parents:
diff changeset
3931 TFT_end_ead_common_exit:
heinrichsweikamp
parents:
diff changeset
3932 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3933 movlw .8
heinrichsweikamp
parents:
diff changeset
3934 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
3935 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3936 return
heinrichsweikamp
parents:
diff changeset
3937
heinrichsweikamp
parents:
diff changeset
3938 global TFT_surface_tissues
heinrichsweikamp
parents:
diff changeset
3939 TFT_surface_tissues: ; Show Tissue diagram in surface mode
heinrichsweikamp
parents:
diff changeset
3940 WIN_SMALL surf_tissue_N2_column,surf_tissue_N2_row
heinrichsweikamp
parents:
diff changeset
3941 STRCPY_TEXT_PRINT tN2
heinrichsweikamp
parents:
diff changeset
3942 WIN_SMALL surf_tissue_He_column,surf_tissue_He_row
heinrichsweikamp
parents:
diff changeset
3943 STRCPY_TEXT_PRINT tHe
heinrichsweikamp
parents:
diff changeset
3944
heinrichsweikamp
parents:
diff changeset
3945 call deco_calc_desaturation_time ; calculate desaturation time (and char_O_tissue_N2_saturation and char_O_tissue_He_saturation)
heinrichsweikamp
parents:
diff changeset
3946 movlb b'00000001' ; select ram bank 1
heinrichsweikamp
parents:
diff changeset
3947
heinrichsweikamp
parents:
diff changeset
3948 movlw color_deepblue
heinrichsweikamp
parents:
diff changeset
3949 call TFT_set_color ; Make this configurable?
heinrichsweikamp
parents:
diff changeset
3950 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.29,.29
heinrichsweikamp
parents:
diff changeset
3951 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.37,.37
heinrichsweikamp
parents:
diff changeset
3952 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.45,.45
heinrichsweikamp
parents:
diff changeset
3953 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.53,.53
heinrichsweikamp
parents:
diff changeset
3954 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.61,.61
heinrichsweikamp
parents:
diff changeset
3955 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.69,.69
heinrichsweikamp
parents:
diff changeset
3956 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.77,.77
heinrichsweikamp
parents:
diff changeset
3957 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.85,.85
heinrichsweikamp
parents:
diff changeset
3958 WIN_FRAME_STD surf_tissue_diagram_top, surf_tissue_diagram_bottom, surf_tissue_diagram_left, surf_tissue_diagram_right ; outer frame
heinrichsweikamp
parents:
diff changeset
3959
heinrichsweikamp
parents:
diff changeset
3960 movlw .1
heinrichsweikamp
parents:
diff changeset
3961 movff WREG,win_height ; row bottom (0-239)
heinrichsweikamp
parents:
diff changeset
3962 movlw surf_tissue_diagram_left+.4 ; Surface mode
heinrichsweikamp
parents:
diff changeset
3963 movff WREG,win_leftx2 ; column left (0-159)
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
3964 movlw surf_tissue_diagram_right - surf_tissue_diagram_left - .4 ; Width
0
heinrichsweikamp
parents:
diff changeset
3965 movff WREG,win_width
heinrichsweikamp
parents:
diff changeset
3966
heinrichsweikamp
parents:
diff changeset
3967 ;---- Draw N2 Tissues
heinrichsweikamp
parents:
diff changeset
3968 lfsr FSR2, char_O_tissue_N2_saturation
heinrichsweikamp
parents:
diff changeset
3969 movlw d'16'
heinrichsweikamp
parents:
diff changeset
3970 movwf wait_temp ; 16 tissues
heinrichsweikamp
parents:
diff changeset
3971 clrf waitms_temp ; Row offset
heinrichsweikamp
parents:
diff changeset
3972 surf_tissue_saturation_graph_N2:
heinrichsweikamp
parents:
diff changeset
3973 movlw surf_tissue_diagram_top+.23 ; surface mode
heinrichsweikamp
parents:
diff changeset
3974 addwf waitms_temp,W
heinrichsweikamp
parents:
diff changeset
3975 movff WREG,win_top ; row top (0-239)
heinrichsweikamp
parents:
diff changeset
3976 rcall surf_tissue_saturation_loop ; Show one tissue
heinrichsweikamp
parents:
diff changeset
3977 decfsz wait_temp,F
heinrichsweikamp
parents:
diff changeset
3978 bra surf_tissue_saturation_graph_N2
heinrichsweikamp
parents:
diff changeset
3979
heinrichsweikamp
parents:
diff changeset
3980 ;---- Draw He Tissues ----------------------------------------------------
heinrichsweikamp
parents:
diff changeset
3981 lfsr FSR2, char_O_tissue_He_saturation
heinrichsweikamp
parents:
diff changeset
3982 movlw d'16'
heinrichsweikamp
parents:
diff changeset
3983 movwf wait_temp ; 16 tissues
heinrichsweikamp
parents:
diff changeset
3984 clrf waitms_temp ; Row offset
heinrichsweikamp
parents:
diff changeset
3985 surf_tissue_saturation_graph_He:
heinrichsweikamp
parents:
diff changeset
3986 movlw surf_tissue_diagram_top+.23+.56 ; surface mode
heinrichsweikamp
parents:
diff changeset
3987 addwf waitms_temp,W
heinrichsweikamp
parents:
diff changeset
3988 movff WREG,win_top ; row top (0-239)
heinrichsweikamp
parents:
diff changeset
3989 rcall surf_tissue_saturation_loop ; Show one tissue
heinrichsweikamp
parents:
diff changeset
3990 decfsz wait_temp,F
heinrichsweikamp
parents:
diff changeset
3991 bra surf_tissue_saturation_graph_He
heinrichsweikamp
parents:
diff changeset
3992 return
heinrichsweikamp
parents:
diff changeset
3993
heinrichsweikamp
parents:
diff changeset
3994 surf_tissue_saturation_loop:
heinrichsweikamp
parents:
diff changeset
3995 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3996 movlw .2 ; row spacing
heinrichsweikamp
parents:
diff changeset
3997 addwf waitms_temp,F
heinrichsweikamp
parents:
diff changeset
3998 movf POSTINC2,W ; Get tissue load
heinrichsweikamp
parents:
diff changeset
3999 bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
4000 rrcf WREG ; And divide by 2
heinrichsweikamp
parents:
diff changeset
4001 movwf temp1
heinrichsweikamp
parents:
diff changeset
4002 movlw .20
heinrichsweikamp
parents:
diff changeset
4003 subwf temp1,F ; Subtract some offset
heinrichsweikamp
parents:
diff changeset
4004 movff win_width,WREG ; Max width.
heinrichsweikamp
parents:
diff changeset
4005 cpfslt temp1 ; skip if WREG < win_width
heinrichsweikamp
parents:
diff changeset
4006 movwf temp1
heinrichsweikamp
parents:
diff changeset
4007 movff temp1,win_bargraph
heinrichsweikamp
parents:
diff changeset
4008 call TFT_box
heinrichsweikamp
parents:
diff changeset
4009 return
heinrichsweikamp
parents:
diff changeset
4010
heinrichsweikamp
parents:
diff changeset
4011 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
4012 ; Draw saturation graph, is surface mode or in dive mode.
heinrichsweikamp
parents:
diff changeset
4013 DISP_tissue_saturation_graph:
heinrichsweikamp
parents:
diff changeset
4014 ;---- Draw Frame
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
4015 call TFT_standard_color
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
4016 WIN_FRAME_COLOR16 dm_custom_tissue_diagram_top, dm_custom_tissue_diagram_bottom, dm_custom_tissue_diagram_left, .159 ; outer frame
0
heinrichsweikamp
parents:
diff changeset
4017
heinrichsweikamp
parents:
diff changeset
4018 movlw .1
heinrichsweikamp
parents:
diff changeset
4019 movff WREG,win_height ; row bottom (0-239)
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
4020 movlw dm_custom_tissue_diagram_left+.3 ; divemode
0
heinrichsweikamp
parents:
diff changeset
4021 movff WREG,win_leftx2 ; column left (0-159)
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
4022 movlw .159-dm_custom_tissue_diagram_left-.4 ; Width
0
heinrichsweikamp
parents:
diff changeset
4023 movff WREG,win_width
heinrichsweikamp
parents:
diff changeset
4024
heinrichsweikamp
parents:
diff changeset
4025 ;---- Draw N2 Tissues
heinrichsweikamp
parents:
diff changeset
4026 lfsr FSR2, char_O_tissue_N2_saturation
heinrichsweikamp
parents:
diff changeset
4027 movlw d'16'
heinrichsweikamp
parents:
diff changeset
4028 movwf wait_temp ; 16 tissues
heinrichsweikamp
parents:
diff changeset
4029 clrf waitms_temp ; Row offset
heinrichsweikamp
parents:
diff changeset
4030 tissue_saturation_graph_N2:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
4031 movlw dm_custom_tissue_diagram_top+.3 ; divemode
0
heinrichsweikamp
parents:
diff changeset
4032 addwf waitms_temp,W
heinrichsweikamp
parents:
diff changeset
4033 movff WREG,win_top ; row top (0-239)
heinrichsweikamp
parents:
diff changeset
4034 rcall tissue_saturation_graph_loop ; Show one tissue
heinrichsweikamp
parents:
diff changeset
4035 decfsz wait_temp,F
heinrichsweikamp
parents:
diff changeset
4036 bra tissue_saturation_graph_N2
heinrichsweikamp
parents:
diff changeset
4037
heinrichsweikamp
parents:
diff changeset
4038 ;---- Draw He Tissues ----------------------------------------------------
heinrichsweikamp
parents:
diff changeset
4039 lfsr FSR2, char_O_tissue_He_saturation
heinrichsweikamp
parents:
diff changeset
4040 movlw d'16'
heinrichsweikamp
parents:
diff changeset
4041 movwf wait_temp ; 16 tissues
heinrichsweikamp
parents:
diff changeset
4042 clrf waitms_temp ; Row offset
heinrichsweikamp
parents:
diff changeset
4043 tissue_saturation_graph_He:
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
4044 movlw dm_custom_tissue_diagram_top+.3+.22 ; divemode
0
heinrichsweikamp
parents:
diff changeset
4045 addwf waitms_temp,W
heinrichsweikamp
parents:
diff changeset
4046 movff WREG,win_top ; row top (0-239)
heinrichsweikamp
parents:
diff changeset
4047
heinrichsweikamp
parents:
diff changeset
4048 rcall tissue_saturation_graph_loop ; Show one tissue
heinrichsweikamp
parents:
diff changeset
4049
heinrichsweikamp
parents:
diff changeset
4050 decfsz wait_temp,F
heinrichsweikamp
parents:
diff changeset
4051 bra tissue_saturation_graph_He
heinrichsweikamp
parents:
diff changeset
4052 return
heinrichsweikamp
parents:
diff changeset
4053
heinrichsweikamp
parents:
diff changeset
4054 tissue_saturation_graph_loop:
heinrichsweikamp
parents:
diff changeset
4055 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
4056 incf waitms_temp,F
heinrichsweikamp
parents:
diff changeset
4057 movf POSTINC2,W
heinrichsweikamp
parents:
diff changeset
4058 bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
4059 rrcf WREG
heinrichsweikamp
parents:
diff changeset
4060 bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
4061 rrcf WREG ; And divide by 4
heinrichsweikamp
parents:
diff changeset
4062 movwf temp1
heinrichsweikamp
parents:
diff changeset
4063 movlw .12
heinrichsweikamp
parents:
diff changeset
4064 subwf temp1,F ; Subtract some offset
heinrichsweikamp
parents:
diff changeset
4065 movff win_width,WREG ; Max width.
heinrichsweikamp
parents:
diff changeset
4066 cpfslt temp1 ; skip if WREG < win_width
heinrichsweikamp
parents:
diff changeset
4067 movwf temp1
heinrichsweikamp
parents:
diff changeset
4068 movff temp1,win_bargraph
heinrichsweikamp
parents:
diff changeset
4069 call TFT_box
heinrichsweikamp
parents:
diff changeset
4070 return
heinrichsweikamp
parents:
diff changeset
4071
55
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
4072
0
heinrichsweikamp
parents:
diff changeset
4073 global TFT_display_cns
heinrichsweikamp
parents:
diff changeset
4074 TFT_display_cns:
heinrichsweikamp
parents:
diff changeset
4075 rcall TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
4076 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
4077 return ; No
309
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
4078 call TFT_warning_set_window_com
0
heinrichsweikamp
parents:
diff changeset
4079 TFT_color_code warn_cns ; Color-code CNS output
heinrichsweikamp
parents:
diff changeset
4080 STRCPY_TEXT tCNS2 ; CNS:
heinrichsweikamp
parents:
diff changeset
4081 movff int_O_CNS_fraction+0,lo
heinrichsweikamp
parents:
diff changeset
4082 movff int_O_CNS_fraction+1,hi
heinrichsweikamp
parents:
diff changeset
4083 bsf leftbind
heinrichsweikamp
parents:
diff changeset
4084 output_16_3 ;Displays only 0...999
heinrichsweikamp
parents:
diff changeset
4085 bcf leftbind
heinrichsweikamp
parents:
diff changeset
4086 PUTC "%"
300
5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3
Janos Kovacs <kovjanos@gmail.com>
parents: 275
diff changeset
4087 movlw dm_warning_length ; Divemode string length
0
heinrichsweikamp
parents:
diff changeset
4088 btfss divemode ; In Divemode?
heinrichsweikamp
parents:
diff changeset
4089 movlw surf_warning_length ; No, use surface string length
heinrichsweikamp
parents:
diff changeset
4090 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
4091 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
4092 call TFT_standard_color
341
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4093 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
4094 return
heinrichsweikamp
parents:
diff changeset
4095
333
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4096 global TFT_mask_ppo2
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4097 TFT_mask_ppo2:
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4098 call TFT_divemask_color
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4099 WIN_TINY dm_custom_ceiling_ppo2_column, dm_custom_ceiling_text_row
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4100 STRCPY_TEXT_PRINT tppO2
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4101 call TFT_standard_color
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4102 return
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4103
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4104 global TFT_display_ppo2_val
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4105 TFT_display_ppo2_val:
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4106 SAFE_2BYTE_COPY amb_pressure, xA
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4107 movlw d'10'
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4108 movwf xB+0
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4109 clrf xB+1
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4110 call div16x16 ; xC=p_amb/10
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4111 movff xC+0,xA+0
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4112 movff xC+1,xA+1
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4113 movff char_I_O2_ratio,xB+0 ; =O2 ratio
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4114 clrf xB+1
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4115 call mult16x16 ; char_I_O2_ratio * p_amb/10
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4116
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4117 call TFT_standard_color
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4118 TFT_color_code warn_ppo2 ; Color-code output (ppO2 stored in xC)
337
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu
heinrichsweikamp
parents: 333
diff changeset
4119 WIN_MEDIUM dm_custom_ceiling_ppo2_val_col, dm_custom_ceiling_value_row
333
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4120 ; hijacking neg_flag_velocity to know where the value is displayed
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4121 bsf neg_flag_velocity
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4122 bra TFT_display_ppo2_com
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4123
0
heinrichsweikamp
parents:
diff changeset
4124 global TFT_display_ppo2
heinrichsweikamp
parents:
diff changeset
4125 TFT_display_ppo2: ; Show ppO2 (ppO2 stored in xC, in mbar!)
heinrichsweikamp
parents:
diff changeset
4126 rcall TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
4127 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
4128 return ; No
309
efb53af0d62a VSIbar #1: layout position changes
janos_kovacs <kovjanos@gmail.com>
parents: 307
diff changeset
4129 call TFT_warning_set_window_com
0
heinrichsweikamp
parents:
diff changeset
4130 TFT_color_code warn_ppo2 ; Color-code output (ppO2 stored in xC)
154
afa31c815f24 NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents: 153
diff changeset
4131 STRCPY_TEXT tppO2 ; ppO2:
333
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4132 ; hijacking neg_flag_velocity to know where the value is displayed
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4133 bcf neg_flag_velocity
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4134 TFT_display_ppo2_com:
0
heinrichsweikamp
parents:
diff changeset
4135 ; Check very high ppO2 manually
heinrichsweikamp
parents:
diff changeset
4136 tstfsz xC+2 ; char_I_O2_ratio * p_amb/10 > 65536, ppO2>6,55bar?
heinrichsweikamp
parents:
diff changeset
4137 bra TFT_show_ppO2_3 ; Yes, display fixed Value!
heinrichsweikamp
parents:
diff changeset
4138 movff xC+0,lo
heinrichsweikamp
parents:
diff changeset
4139 movff xC+1,hi
341
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4140 bsf ignore_digit4 ; no mbar resolution
0
heinrichsweikamp
parents:
diff changeset
4141 output_16dp d'1'
341
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4142
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4143 ; Set ".xx" to "0.xx" (bar)
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4144 banksel buffer
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4145 movlw " "
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4146 cpfseq buffer+5 ; For ppO2 in warning area
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4147 bra TFT_show_ppO2_1
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4148 movlw "0" ; Replace Space with "0"
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4149 movwf buffer+5
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4150 TFT_show_ppO2_1:
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4151 movlw " "
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4152 cpfseq buffer+0 ; For ppO2 in custom view
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4153 bra TFT_show_ppO2_2
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4154 movlw "0" ; Replace Space with "0"
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4155 movwf buffer+0
0
heinrichsweikamp
parents:
diff changeset
4156 TFT_show_ppO2_2:
341
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4157 banksel common
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4158 movlw dm_warning_length ; Divemode string length
333
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4159 ; neg_flag_velocity is hijacked, used to toggle the fillup lenght.
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4160 btfsc neg_flag_velocity
14b466f66a7f Extend the Ceiling custom-view with ppO2 and current GF
Janos Kovacs <kovjanos@gmail.com>
parents: 332
diff changeset
4161 movlw .4
0
heinrichsweikamp
parents:
diff changeset
4162 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
4163 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
4164 call TFT_standard_color
341
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4165 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
4166 return
heinrichsweikamp
parents:
diff changeset
4167
heinrichsweikamp
parents:
diff changeset
4168 TFT_show_ppO2_3:
341
0740bd920c51 Show ppo2 <1bar with leading zero
heinrichsweikamp
parents: 339
diff changeset
4169 STRCAT "'6.6" ; Workaround until a ">" is available in STD font
0
heinrichsweikamp
parents:
diff changeset
4170 bra TFT_show_ppO2_2
heinrichsweikamp
parents:
diff changeset
4171
heinrichsweikamp
parents:
diff changeset
4172
heinrichsweikamp
parents:
diff changeset
4173 global TFT_LogOffset_Logtitle
heinrichsweikamp
parents:
diff changeset
4174 TFT_LogOffset_Logtitle:
heinrichsweikamp
parents:
diff changeset
4175 STRCPY_TEXT tLogOffset
heinrichsweikamp
parents:
diff changeset
4176 PUTC ":"
heinrichsweikamp
parents:
diff changeset
4177 call do_logoffset_common_read ; Offset into lo:hi
heinrichsweikamp
parents:
diff changeset
4178 bsf leftbind
heinrichsweikamp
parents:
diff changeset
4179 output_16
heinrichsweikamp
parents:
diff changeset
4180 bcf leftbind
heinrichsweikamp
parents:
diff changeset
4181 PUTC " "
heinrichsweikamp
parents:
diff changeset
4182 return ; No "_PRINT" here...
heinrichsweikamp
parents:
diff changeset
4183
heinrichsweikamp
parents:
diff changeset
4184 global adjust_depth_with_salinity
heinrichsweikamp
parents:
diff changeset
4185 adjust_depth_with_salinity: ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
4186 btfsc simulatormode_active ; Do apply salinity in Simulatormode
heinrichsweikamp
parents:
diff changeset
4187 return
heinrichsweikamp
parents:
diff changeset
4188
99
87cc1adfe4da show event "bailout" in the internal logbook
heinrichsweikamp
parents: 98
diff changeset
4189 global adjust_depth_with_salinity_log
0
heinrichsweikamp
parents:
diff changeset
4190 movff opt_salinity,WREG ; 0-5%
99
87cc1adfe4da show event "bailout" in the internal logbook
heinrichsweikamp
parents: 98
diff changeset
4191 adjust_depth_with_salinity_log: ; computes salinity setting (FROM WREG!) into lo:hi [mbar]
0
heinrichsweikamp
parents:
diff changeset
4192 addlw d'100' ; 1.00kg/l
heinrichsweikamp
parents:
diff changeset
4193 movwf wait_temp
heinrichsweikamp
parents:
diff changeset
4194
heinrichsweikamp
parents:
diff changeset
4195 movlw d'105' ; 105% ?
heinrichsweikamp
parents:
diff changeset
4196 cpfslt wait_temp ; Salinity higher limit
heinrichsweikamp
parents:
diff changeset
4197 return ; Out of limit, do not adjust lo:hi
heinrichsweikamp
parents:
diff changeset
4198 movlw d'99' ; 99% ?
heinrichsweikamp
parents:
diff changeset
4199 cpfsgt wait_temp ; Salinity lower limit
heinrichsweikamp
parents:
diff changeset
4200 return ; Out of limit, do not adjust lo:hi
heinrichsweikamp
parents:
diff changeset
4201
heinrichsweikamp
parents:
diff changeset
4202 movff lo,xA+0
heinrichsweikamp
parents:
diff changeset
4203 movff hi,xA+1
heinrichsweikamp
parents:
diff changeset
4204
heinrichsweikamp
parents:
diff changeset
4205 movlw d'102' ; 0,98bar/10m
heinrichsweikamp
parents:
diff changeset
4206 movwf xB+0
heinrichsweikamp
parents:
diff changeset
4207 clrf xB+1
heinrichsweikamp
parents:
diff changeset
4208 call mult16x16 ;xA*xB=xC (lo:hi * 100)
heinrichsweikamp
parents:
diff changeset
4209 movff wait_temp,xB+0 ; Salinity
heinrichsweikamp
parents:
diff changeset
4210 clrf xB+1
heinrichsweikamp
parents:
diff changeset
4211 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
heinrichsweikamp
parents:
diff changeset
4212 movff xC+0,lo
heinrichsweikamp
parents:
diff changeset
4213 movff xC+1,hi ; restore lo and hi with updated value
heinrichsweikamp
parents:
diff changeset
4214 return
heinrichsweikamp
parents:
diff changeset
4215
heinrichsweikamp
parents:
diff changeset
4216 global convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
4217 convert_mbar_to_feet: ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
4218 movff lo,xA+0
heinrichsweikamp
parents:
diff changeset
4219 movff hi,xA+1
heinrichsweikamp
parents:
diff changeset
4220
heinrichsweikamp
parents:
diff changeset
4221 movlw LOW d'328' ; 328feet/100m
heinrichsweikamp
parents:
diff changeset
4222 movwf xB+0
heinrichsweikamp
parents:
diff changeset
4223 movlw HIGH d'328'
heinrichsweikamp
parents:
diff changeset
4224 movwf xB+1
heinrichsweikamp
parents:
diff changeset
4225
heinrichsweikamp
parents:
diff changeset
4226 call mult16x16 ; xA*xB=xC (lo:hi * 328)
heinrichsweikamp
parents:
diff changeset
4227
heinrichsweikamp
parents:
diff changeset
4228 movlw d'50' ; round up
heinrichsweikamp
parents:
diff changeset
4229 addwf xC+0,F
heinrichsweikamp
parents:
diff changeset
4230 movlw 0
heinrichsweikamp
parents:
diff changeset
4231 addwfc xC+1,F
heinrichsweikamp
parents:
diff changeset
4232 addwfc xC+2,F
heinrichsweikamp
parents:
diff changeset
4233 addwfc xC+3,F
heinrichsweikamp
parents:
diff changeset
4234
heinrichsweikamp
parents:
diff changeset
4235 movlw LOW .10000
heinrichsweikamp
parents:
diff changeset
4236 movwf xB+0
heinrichsweikamp
parents:
diff changeset
4237 movlw HIGH .10000
heinrichsweikamp
parents:
diff changeset
4238 movwf xB+1
heinrichsweikamp
parents:
diff changeset
4239
heinrichsweikamp
parents:
diff changeset
4240 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
heinrichsweikamp
parents:
diff changeset
4241
heinrichsweikamp
parents:
diff changeset
4242 movff xC+0,lo
heinrichsweikamp
parents:
diff changeset
4243 movff xC+1,hi ; restore lo and hi with updated value
heinrichsweikamp
parents:
diff changeset
4244 return
heinrichsweikamp
parents:
diff changeset
4245
heinrichsweikamp
parents:
diff changeset
4246 global convert_celsius_to_fahrenheit ; convert value in lo:hi from celsius to fahrenheit
heinrichsweikamp
parents:
diff changeset
4247 convert_celsius_to_fahrenheit: ; convert value in lo:hi from celsius to fahrenheit
heinrichsweikamp
parents:
diff changeset
4248 ; Does it work with signed temperature? mH
heinrichsweikamp
parents:
diff changeset
4249 movff lo,xA+0
heinrichsweikamp
parents:
diff changeset
4250 movff hi,xA+1
heinrichsweikamp
parents:
diff changeset
4251
heinrichsweikamp
parents:
diff changeset
4252 movlw d'18' ; 1C = 1.8F
heinrichsweikamp
parents:
diff changeset
4253 movwf xB+0
heinrichsweikamp
parents:
diff changeset
4254 clrf xB+1
heinrichsweikamp
parents:
diff changeset
4255
heinrichsweikamp
parents:
diff changeset
4256 call mult16x16 ;xA*xB=xC (lo:hi * 18)
heinrichsweikamp
parents:
diff changeset
4257
heinrichsweikamp
parents:
diff changeset
4258 movlw d'10'
heinrichsweikamp
parents:
diff changeset
4259 movwf xB+0
heinrichsweikamp
parents:
diff changeset
4260 clrf xB+1
heinrichsweikamp
parents:
diff changeset
4261
heinrichsweikamp
parents:
diff changeset
4262 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
heinrichsweikamp
parents:
diff changeset
4263
heinrichsweikamp
parents:
diff changeset
4264 movlw LOW d'320' ; 0C = 32F
heinrichsweikamp
parents:
diff changeset
4265 addwf xC+0,F
heinrichsweikamp
parents:
diff changeset
4266 movlw HIGH d'320'
heinrichsweikamp
parents:
diff changeset
4267 addwfc xC+1,F
heinrichsweikamp
parents:
diff changeset
4268
heinrichsweikamp
parents:
diff changeset
4269 movff xC+0,lo
heinrichsweikamp
parents:
diff changeset
4270 movff xC+1,hi ; restore lo and hi with updated value
heinrichsweikamp
parents:
diff changeset
4271 return
heinrichsweikamp
parents:
diff changeset
4272
heinrichsweikamp
parents:
diff changeset
4273 END