Mercurial > public > hwos_code

annotate src/tft_outputs.asm @ 330:0532cac03ccd new_screen_layout

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