Mercurial > public > hwos_code

annotate src/tft_outputs.asm @ 359:2be48ccfa9de

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