Mercurial > public > hwos_code

annotate src/tft_outputs.asm @ 329:7ac341bd5d38

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