annotate src/tft_outputs.asm @ 246:f345a55c92e0

minor docu update
author heinrichsweikamp
date Thu, 05 Mar 2015 10:36:56 +0100
parents 6c4ad243cb44
children 5968af2839a4
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
heinrichsweikamp
parents:
diff changeset
12 #include "ostc3.inc" ; Mandatory header
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_velocity ; color_code_velocity_warn_high [m/min]
heinrichsweikamp
parents:
diff changeset
160 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
161 bra TFT_color_code_ceiling ; Show warning if current depth>shown ceiling
heinrichsweikamp
parents:
diff changeset
162 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
163 bra TFT_color_code_gaslist ; Color-code current row in Gaslist (%O2 in hi), opt_ppO2_max as threshold
heinrichsweikamp
parents:
diff changeset
164 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
165 bra TFT_color_code_ppo2_hud ; Color-code the hud ppO2 readings [cbar], opt_ppO2_max as threshold
heinrichsweikamp
parents:
diff changeset
166 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
167 bra TFT_color_code_battery ; Color-code the battery display
heinrichsweikamp
parents:
diff changeset
168
heinrichsweikamp
parents:
diff changeset
169 TFT_color_code_gaslist: ; %O2 in hi
heinrichsweikamp
parents:
diff changeset
170 ; Check very high ppO2 manually
heinrichsweikamp
parents:
diff changeset
171 SAFE_2BYTE_COPY amb_pressure,xA
heinrichsweikamp
parents:
diff changeset
172 movlw d'10'
heinrichsweikamp
parents:
diff changeset
173 movwf xB+0
heinrichsweikamp
parents:
diff changeset
174 clrf xB+1
heinrichsweikamp
parents:
diff changeset
175 call div16x16 ; xC=p_amb/10
heinrichsweikamp
parents:
diff changeset
176 movff xC+0,xA+0
heinrichsweikamp
parents:
diff changeset
177 movff xC+1,xA+1
heinrichsweikamp
parents:
diff changeset
178 movff hi,xB+0
heinrichsweikamp
parents:
diff changeset
179 clrf xB+1
heinrichsweikamp
parents:
diff changeset
180 call mult16x16 ; lo * p_amb/10
heinrichsweikamp
parents:
diff changeset
181 ; Check if ppO2>6,55bar
heinrichsweikamp
parents:
diff changeset
182 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
183 bra TFT_warnings_color ; Yes, warn in warning color
0
heinrichsweikamp
parents:
diff changeset
184 ; Check if ppO2>3,30bar
heinrichsweikamp
parents:
diff changeset
185 btfsc xC+1,7
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
186 bra TFT_warnings_color ; Yes, warn in warning color
0
heinrichsweikamp
parents:
diff changeset
187
heinrichsweikamp
parents:
diff changeset
188 ; Check for low ppo2
heinrichsweikamp
parents:
diff changeset
189 movff xC+0,sub_a+0
heinrichsweikamp
parents:
diff changeset
190 movff xC+1,sub_a+1
heinrichsweikamp
parents:
diff changeset
191 movff opt_ppO2_min,WREG
heinrichsweikamp
parents:
diff changeset
192 mullw d'100' ; opt_ppO2_min*100
heinrichsweikamp
parents:
diff changeset
193 movff PRODL,sub_b+0
heinrichsweikamp
parents:
diff changeset
194 movff PRODH,sub_b+1
heinrichsweikamp
parents:
diff changeset
195 call subU16
heinrichsweikamp
parents:
diff changeset
196 btfsc neg_flag
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
197 bra TFT_warnings_color ; too low -> Warning Color!
0
heinrichsweikamp
parents:
diff changeset
198
heinrichsweikamp
parents:
diff changeset
199 ; Check for high ppo2
heinrichsweikamp
parents:
diff changeset
200 movff opt_ppO2_max,WREG ; PPO2 Max for MOD calculation and color coding in divemode
heinrichsweikamp
parents:
diff changeset
201 mullw d'100' ; opt_ppO2_max*100
heinrichsweikamp
parents:
diff changeset
202 movff PRODL,sub_b+0
heinrichsweikamp
parents:
diff changeset
203 movff PRODH,sub_b+1
heinrichsweikamp
parents:
diff changeset
204 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
205 btfss neg_flag
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
206 bra TFT_warnings_color ; too high -> Warning Color!
0
heinrichsweikamp
parents:
diff changeset
207 return
heinrichsweikamp
parents:
diff changeset
208
heinrichsweikamp
parents:
diff changeset
209 TFT_color_code_ceiling:
heinrichsweikamp
parents:
diff changeset
210 SAFE_2BYTE_COPY rel_pressure, lo
heinrichsweikamp
parents:
diff changeset
211 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
212 movff hi,xA+1
heinrichsweikamp
parents:
diff changeset
213 movff lo,xA+0
heinrichsweikamp
parents:
diff changeset
214 movff char_O_first_deco_depth,lo ; Ceiling in m
heinrichsweikamp
parents:
diff changeset
215 decf lo,F ; -1
heinrichsweikamp
parents:
diff changeset
216 movlw LOW d'100'
heinrichsweikamp
parents:
diff changeset
217 movwf xB+0
heinrichsweikamp
parents:
diff changeset
218 clrf xB+1 ; Devide/100 -> xC+0 = Depth in m
heinrichsweikamp
parents:
diff changeset
219 call div16x16 ; xA/xB=xC with xA as remainder
heinrichsweikamp
parents:
diff changeset
220 movf xC+0,W ; Depth in m
heinrichsweikamp
parents:
diff changeset
221 subwf lo,W
heinrichsweikamp
parents:
diff changeset
222 btfsc STATUS,C
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
223 bra TFT_warnings_color ; Set to warning color
0
heinrichsweikamp
parents:
diff changeset
224 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
225 return
heinrichsweikamp
parents:
diff changeset
226
heinrichsweikamp
parents:
diff changeset
227 TFT_color_code_depth:
heinrichsweikamp
parents:
diff changeset
228 movff hi,hi_temp
heinrichsweikamp
parents:
diff changeset
229 movff lo,lo_temp
heinrichsweikamp
parents:
diff changeset
230 SAFE_2BYTE_COPY rel_pressure, lo
heinrichsweikamp
parents:
diff changeset
231 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
232 movff lo,sub_a+0
heinrichsweikamp
parents:
diff changeset
233 movff hi,sub_a+1
heinrichsweikamp
parents:
diff changeset
234 movlw LOW depth_warn_mbar
heinrichsweikamp
parents:
diff changeset
235 movwf lo
heinrichsweikamp
parents:
diff changeset
236 movlw HIGH depth_warn_mbar
heinrichsweikamp
parents:
diff changeset
237 movwf hi
heinrichsweikamp
parents:
diff changeset
238 movff lo,sub_b+0
heinrichsweikamp
parents:
diff changeset
239 movff hi,sub_b+1
heinrichsweikamp
parents:
diff changeset
240 movff hi_temp,hi
heinrichsweikamp
parents:
diff changeset
241 movff lo_temp,lo ; Restore hi, lo
heinrichsweikamp
parents:
diff changeset
242 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
243 btfss neg_flag
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
244 bra TFT_warnings_color ; Set to warning color
0
heinrichsweikamp
parents:
diff changeset
245 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
246 return
heinrichsweikamp
parents:
diff changeset
247
heinrichsweikamp
parents:
diff changeset
248 TFT_color_code_cns:
heinrichsweikamp
parents:
diff changeset
249 movff int_O_CNS_fraction+1,lo ; copy into bank1
heinrichsweikamp
parents:
diff changeset
250 tstfsz lo ; >255% ?
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
251 bra TFT_warnings_color ; Yes
0
heinrichsweikamp
parents:
diff changeset
252 movff int_O_CNS_fraction+0,lo
heinrichsweikamp
parents:
diff changeset
253 movlw color_code_cns_high ; CNS Warn [%]
heinrichsweikamp
parents:
diff changeset
254 subwf lo,W
heinrichsweikamp
parents:
diff changeset
255 btfsc STATUS,C
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
256 bra TFT_warnings_color ; Set to warning color
0
heinrichsweikamp
parents:
diff changeset
257 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
258 return
heinrichsweikamp
parents:
diff changeset
259
heinrichsweikamp
parents:
diff changeset
260 TFT_color_code_gf:
heinrichsweikamp
parents:
diff changeset
261 movff char_O_gradient_factor,lo ; gradient factor
heinrichsweikamp
parents:
diff changeset
262 movlw color_code_gf_warn_high ; GF Warn [%]
heinrichsweikamp
parents:
diff changeset
263 subwf lo,W
heinrichsweikamp
parents:
diff changeset
264 btfsc STATUS,C
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
265 bra TFT_warnings_color ; Set to warning color
0
heinrichsweikamp
parents:
diff changeset
266 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
267 return
heinrichsweikamp
parents:
diff changeset
268
heinrichsweikamp
parents:
diff changeset
269 TFT_color_code_ppo2:
heinrichsweikamp
parents:
diff changeset
270 ; Check if ppO2>6,55bar
heinrichsweikamp
parents:
diff changeset
271 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
272 bra TFT_warnings_color ; Yes, warn in warning color
0
heinrichsweikamp
parents:
diff changeset
273 ; Check if ppO2>3,30bar
heinrichsweikamp
parents:
diff changeset
274 btfsc xC+1,7
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
275 bra TFT_warnings_color ; Yes, warn in warning color
0
heinrichsweikamp
parents:
diff changeset
276
heinrichsweikamp
parents:
diff changeset
277 movff xC+0,sub_a+0
heinrichsweikamp
parents:
diff changeset
278 movff xC+1,sub_a+1
heinrichsweikamp
parents:
diff changeset
279 movff opt_ppO2_max,WREG ; PPO2 Max for MOD calculation and color coding in divemode
heinrichsweikamp
parents:
diff changeset
280 mullw d'100'
heinrichsweikamp
parents:
diff changeset
281 movff PRODL,sub_b+0
heinrichsweikamp
parents:
diff changeset
282 movff PRODH,sub_b+1
heinrichsweikamp
parents:
diff changeset
283 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
284 btfss neg_flag
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
285 bra TFT_warnings_color ; Set to warning color
0
heinrichsweikamp
parents:
diff changeset
286
heinrichsweikamp
parents:
diff changeset
287 movff xC+0,sub_a+0
heinrichsweikamp
parents:
diff changeset
288 movff xC+1,sub_a+1
heinrichsweikamp
parents:
diff changeset
289 movff opt_ppO2_min,WREG ; PPO2 min for Sensors and color coding in divemode
heinrichsweikamp
parents:
diff changeset
290 mullw d'100'
heinrichsweikamp
parents:
diff changeset
291 movff PRODL,sub_b+0
heinrichsweikamp
parents:
diff changeset
292 movff PRODH,sub_b+1
heinrichsweikamp
parents:
diff changeset
293 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
294 btfsc neg_flag
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
295 bra TFT_warnings_color ; Set to warning color
0
heinrichsweikamp
parents:
diff changeset
296 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
297 return
heinrichsweikamp
parents:
diff changeset
298
heinrichsweikamp
parents:
diff changeset
299 TFT_color_code_velocity:
52
0fae975af741 english correction
heinrichsweikamp
parents: 50
diff changeset
300 btfss neg_flag ; Ignore for descent!
0
heinrichsweikamp
parents:
diff changeset
301 bra TFT_color_code_velocity1 ; Skip check!
heinrichsweikamp
parents:
diff changeset
302 movff divA+0,lo
heinrichsweikamp
parents:
diff changeset
303 movlw color_code_velocity_warn_high ; Velocity warn [m/min]
heinrichsweikamp
parents:
diff changeset
304 subwf lo,W
heinrichsweikamp
parents:
diff changeset
305 btfsc STATUS,C
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
306 bra TFT_warnings_color ; Set to warning color
0
heinrichsweikamp
parents:
diff changeset
307 TFT_color_code_velocity1:
heinrichsweikamp
parents:
diff changeset
308 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
309 return
heinrichsweikamp
parents:
diff changeset
310
heinrichsweikamp
parents:
diff changeset
311 TFT_color_code_ppo2_hud: ; With ppO2 [cbar] in lo
heinrichsweikamp
parents:
diff changeset
312 movff opt_ppO2_max,WREG ; PPO2 Max for MOD calculation and color coding in divemode
heinrichsweikamp
parents:
diff changeset
313 cpfsgt lo ; lo > opt_ppO2_max?
heinrichsweikamp
parents:
diff changeset
314 bra TFT_color_code_ppo2_hud1; No
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
315 bra TFT_warnings_color ; Yes
0
heinrichsweikamp
parents:
diff changeset
316 TFT_color_code_ppo2_hud1:
heinrichsweikamp
parents:
diff changeset
317 movff opt_ppO2_min,WREG ; PPO2 min for Sensors and color coding in divemode
heinrichsweikamp
parents:
diff changeset
318 cpfslt lo ; lo < opt_ppO2_min?
heinrichsweikamp
parents:
diff changeset
319 bra TFT_color_code_ppo2_hud2; No
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
320 bra TFT_warnings_color ; Yes
0
heinrichsweikamp
parents:
diff changeset
321 TFT_color_code_ppo2_hud2:
heinrichsweikamp
parents:
diff changeset
322 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
323 return
heinrichsweikamp
parents:
diff changeset
324
heinrichsweikamp
parents:
diff changeset
325 TFT_color_code_battery: ; With battery percent in lo
heinrichsweikamp
parents:
diff changeset
326 movlw color_code_battery_low
heinrichsweikamp
parents:
diff changeset
327 cpfsgt lo ; lo < color_code_battery_low ?
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
328 bra TFT_warnings_color ; No
0
heinrichsweikamp
parents:
diff changeset
329 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
330 return
heinrichsweikamp
parents:
diff changeset
331
heinrichsweikamp
parents:
diff changeset
332 ; ****************************************************************************
heinrichsweikamp
parents:
diff changeset
333
234
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
334 global TFT_show_OC_startgas_surface
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
335 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
336 ; Show first gas
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
337 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
338 extern get_first_gas_to_WREG,gaslist_strcat_gas
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
339 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
340 movwf PRODL
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
341 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
342 STRCAT_PRINT ""
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
343 ; Show boxes
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
344 WIN_TOP surf_decotype_row+.30+.25
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
345 WIN_LEFT surf_decotype_boxes_left1+.1
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
346 rcall TFT_disabled_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
347 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
348 tstfsz hi
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
349 rcall TFT_standard_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
350 STRCPY_PRINT "1"
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
351 decfsz hi,F ; Type = 1 (First)?
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
352 bra DISP_active_gas_surfmode3 ; No, skip box
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
353 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
354 DISP_active_gas_surfmode3:
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
355 rcall TFT_disabled_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
356 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
357 tstfsz hi
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
358 rcall TFT_standard_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
359 WIN_LEFT surf_decotype_boxes_left2+.1
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
360 STRCPY_PRINT "2"
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
361 decfsz hi,F ; Type = 1 (First)?
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
362 bra DISP_active_gas_surfmode4 ; No, skip box
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
363 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
364 DISP_active_gas_surfmode4:
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
365 rcall TFT_disabled_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
366 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
367 tstfsz hi
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
368 rcall TFT_standard_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
369 WIN_LEFT surf_decotype_boxes_left3+.1
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
370 STRCPY_PRINT "3"
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
371 decfsz hi,F ; Type = 1 (First)?
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
372 bra DISP_active_gas_surfmode5 ; No, skip box
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
373 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
374 DISP_active_gas_surfmode5:
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
375 rcall TFT_disabled_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
376 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
377 tstfsz hi
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
378 rcall TFT_standard_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
379 WIN_LEFT surf_decotype_boxes_left4+.1
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
380 STRCPY_PRINT "4"
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
381 decfsz hi,F ; Type = 1 (First)?
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
382 bra DISP_active_gas_surfmode6 ; No, skip box
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
383 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
384 DISP_active_gas_surfmode6:
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
385 call TFT_disabled_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
386 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
387 tstfsz hi
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
388 rcall TFT_standard_color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
389 WIN_LEFT surf_decotype_boxes_left5+.1
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
390 STRCPY_PRINT "5"
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
391 rcall TFT_standard_color ; Reset color
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
392 decfsz hi,F ; Type = 1 (First)?
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
393 return ; no, Done.
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 231
diff changeset
394 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
395 return ; Done.
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
396
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
397 global TFT_show_color_schemes
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
398 TFT_show_color_schemes: ; update the color schemes
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
399 bsf divemode ; put in divemode
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
400 call TFT_divemask_color
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
401 WIN_TINY divemode_mask_depth_column,divemode_mask_depth_row+.40
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
402 STRCAT_TEXT_PRINT tDepth
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
403 WIN_TINY divemode_mask_maxdepth_column,divemode_mask_maxdepth_row+.40
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
404 STRCAT_TEXT_PRINT tMaxDepth
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
405 WIN_TINY divemode_mask_divetime_column,divemode_mask_divetime_row+.40
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
406 STRCAT_TEXT_PRINT tDivetime
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
407
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
408 ; Show some demo screen
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
409
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
410 ; Depth demo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
411 call TFT_standard_color
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
412 WIN_MEDIUM depth_column+.3,depth_row+.40
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
413 movlw LOW .5172
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
414 movwf lo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
415 movlw HIGH .5172
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
416 movwf hi
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
417 bsf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
418 bsf ignore_digit4
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
419 output_16 ; Full meters in Big font
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
420 bcf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
421 STRCAT_PRINT "" ; Display full meters
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
422 WIN_SMALL depth_dm_column-.15,max_depth_dm_row+.40
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
423 movlw LOW .5172
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
424 movwf lo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
425 movlw HIGH .5172
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
426 movwf hi
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
427 PUTC "."
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
428 movlw d'4'
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
429 movwf ignore_digits
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
430 bsf ignore_digit5
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
431 output_16dp d'0' ; .1m in SMALL font
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
432 STRCAT_PRINT "" ; Display decimeters
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
433 WIN_FONT FT_SMALL
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
434
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
435 ; Max. Depth demo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
436 WIN_MEDIUM max_depth_column,max_depth_row+.40
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
437 bsf ignore_digit4 ; no 0.1m
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
438 bsf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
439 movlw LOW .6349
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
440 movwf lo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
441 movlw HIGH .6349
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
442 movwf hi
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
443 output_16
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
444 STRCAT_PRINT "" ; Display full meters
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
445 bcf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
446 ; .1m in SMALL font
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
447 WIN_SMALL max_depth_dm_column,max_depth_dm_row+.40
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
448 PUTC "."
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
449 movlw d'4'
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
450 movwf ignore_digits
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
451 bsf ignore_digit5
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
452 bsf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
453 movlw LOW .6349
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
454 movwf lo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
455 movlw HIGH .6349
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
456 movwf hi
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
457 output_16dp d'0'
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
458 STRCAT_PRINT "" ; Display decimeters
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
459 bcf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
460
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
461 ; Divetime demo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
462 movff mins,lo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
463 clrf hi
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
464 WIN_MEDIUM divetime_column, divetime_row+.40
225
31088352ee32 BUGFIX: Show dives with >999mins divetime correctly
heinrichsweikamp
parents: 220
diff changeset
465 output_16_3 ; limit to 999 and display only (0-999)
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
466 STRCAT_PRINT "" ; Show minutes in large font
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
467 WIN_SMALL divetime_secs_column, divetime_secs_row+.40 ; left position for two sec figures
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
468 PUTC ':'
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
469 bsf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
470 movff secs,lo
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
471 output_99x
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
472 bcf leftbind
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
473 STRCAT_PRINT "" ; Show seconds in small font
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
474
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
475 bcf divemode ; don't stay in divemode
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
476 return
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
477
0
heinrichsweikamp
parents:
diff changeset
478 global TFT_divemode_mask
heinrichsweikamp
parents:
diff changeset
479 TFT_divemode_mask: ; Displays mask in Dive-Mode
heinrichsweikamp
parents:
diff changeset
480 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
481 WIN_TINY divemode_mask_depth_column,divemode_mask_depth_row
heinrichsweikamp
parents:
diff changeset
482 STRCAT_TEXT_PRINT tDepth
heinrichsweikamp
parents:
diff changeset
483 WIN_TINY divemode_mask_maxdepth_column,divemode_mask_maxdepth_row
heinrichsweikamp
parents:
diff changeset
484 STRCAT_TEXT_PRINT tMaxDepth
heinrichsweikamp
parents:
diff changeset
485 WIN_TINY divemode_mask_divetime_column,divemode_mask_divetime_row
heinrichsweikamp
parents:
diff changeset
486 STRCAT_TEXT_PRINT tDivetime
heinrichsweikamp
parents:
diff changeset
487
heinrichsweikamp
parents:
diff changeset
488 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
489 return
heinrichsweikamp
parents:
diff changeset
490
heinrichsweikamp
parents:
diff changeset
491 global TFT_clear_customview_divemode
heinrichsweikamp
parents:
diff changeset
492 TFT_clear_customview_divemode:
heinrichsweikamp
parents:
diff changeset
493 WIN_BOX_BLACK divemode_customview_row, .163, .0, .159 ; top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
494 return
heinrichsweikamp
parents:
diff changeset
495
heinrichsweikamp
parents:
diff changeset
496 global TFT_display_velocity
heinrichsweikamp
parents:
diff changeset
497 TFT_display_velocity: ; With divA+0 = m/min
heinrichsweikamp
parents:
diff changeset
498 TFT_color_code warn_velocity ; Color-code Output (With divA+0 = m/min)
heinrichsweikamp
parents:
diff changeset
499 WIN_SMALL velocity_text_column,velocity_text_row
heinrichsweikamp
parents:
diff changeset
500
heinrichsweikamp
parents:
diff changeset
501 TSTOSS opt_units ; 0=Meters, 1=Feets
heinrichsweikamp
parents:
diff changeset
502 bra TFT_display_velocity_metric
heinrichsweikamp
parents:
diff changeset
503 ;TFT_display_velocity_imperial:
heinrichsweikamp
parents:
diff changeset
504 movff divA+0,WREG ; divA+0 = m/min
heinrichsweikamp
parents:
diff changeset
505 mullw .100 ; PRODL:PRODH = mbar/min
heinrichsweikamp
parents:
diff changeset
506 movff PRODL,lo
heinrichsweikamp
parents:
diff changeset
507 movff PRODH,hi
heinrichsweikamp
parents:
diff changeset
508 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
509 movlw '-'
heinrichsweikamp
parents:
diff changeset
510 btfsc neg_flag
heinrichsweikamp
parents:
diff changeset
511 movlw '+'
heinrichsweikamp
parents:
diff changeset
512 movwf POSTINC2
heinrichsweikamp
parents:
diff changeset
513 bsf leftbind
heinrichsweikamp
parents:
diff changeset
514 output_16
heinrichsweikamp
parents:
diff changeset
515 bcf leftbind
heinrichsweikamp
parents:
diff changeset
516 STRCAT_TEXT_PRINT tVelImperial ; Unit switch
heinrichsweikamp
parents:
diff changeset
517 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
518 return
heinrichsweikamp
parents:
diff changeset
519
heinrichsweikamp
parents:
diff changeset
520 TFT_display_velocity_metric:
heinrichsweikamp
parents:
diff changeset
521 movff divA+0,lo ; divA+0 = m/min
heinrichsweikamp
parents:
diff changeset
522 movlw '-'
heinrichsweikamp
parents:
diff changeset
523 btfsc neg_flag
heinrichsweikamp
parents:
diff changeset
524 movlw '+'
heinrichsweikamp
parents:
diff changeset
525 movwf POSTINC2
heinrichsweikamp
parents:
diff changeset
526 output_99
heinrichsweikamp
parents:
diff changeset
527 STRCAT_TEXT_PRINT tVelMetric ; Unit switch
heinrichsweikamp
parents:
diff changeset
528 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
529 return
heinrichsweikamp
parents:
diff changeset
530
heinrichsweikamp
parents:
diff changeset
531 global TFT_display_velocity_clear
heinrichsweikamp
parents:
diff changeset
532 TFT_display_velocity_clear:
heinrichsweikamp
parents:
diff changeset
533 ; Clear Text
heinrichsweikamp
parents:
diff changeset
534 WIN_BOX_BLACK velocity_text_row, velocity_text_row+.22, velocity_text_column, (velocity_text_column+.7*.8)-1 ; top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
535 return
heinrichsweikamp
parents:
diff changeset
536
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
537 global TFT_clear_decoarea
0
heinrichsweikamp
parents:
diff changeset
538 TFT_clear_decoarea:
heinrichsweikamp
parents:
diff changeset
539 WIN_BOX_BLACK decostop_1st_stop_row, .239, decostop_1st_stop_column ,.159 ; top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
540 return
heinrichsweikamp
parents:
diff changeset
541
heinrichsweikamp
parents:
diff changeset
542 global TFT_clear_divemode_menu
heinrichsweikamp
parents:
diff changeset
543 TFT_clear_divemode_menu:
heinrichsweikamp
parents:
diff changeset
544 WIN_BOX_BLACK divemode_menu_row, divemode_menu_lower, divemode_menu_left ,divemode_menu_right ; top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
545 return
heinrichsweikamp
parents:
diff changeset
546
heinrichsweikamp
parents:
diff changeset
547 global TFT_display_ndl_mask
heinrichsweikamp
parents:
diff changeset
548 TFT_display_ndl_mask:
heinrichsweikamp
parents:
diff changeset
549 btfsc divemode_menu ; Is the dive mode menu shown?
heinrichsweikamp
parents:
diff changeset
550 return ; Yes, return
heinrichsweikamp
parents:
diff changeset
551 rcall TFT_clear_decoarea ; Clear Dekostop and Dekosum
heinrichsweikamp
parents:
diff changeset
552 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
553 WIN_STD ndl_text_column,ndl_text_row
heinrichsweikamp
parents:
diff changeset
554 STRCPY_TEXT_PRINT tNDL ; NDL
heinrichsweikamp
parents:
diff changeset
555 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
556 return
heinrichsweikamp
parents:
diff changeset
557
heinrichsweikamp
parents:
diff changeset
558 global TFT_show_TTS_divemode
heinrichsweikamp
parents:
diff changeset
559 TFT_show_TTS_divemode:
heinrichsweikamp
parents:
diff changeset
560 btfsc divemode_menu ; Is the dive mode menu shown?
heinrichsweikamp
parents:
diff changeset
561 return ; Yes, return
heinrichsweikamp
parents:
diff changeset
562 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
563 movff int_O_ascenttime+0,lo ; TTS
heinrichsweikamp
parents:
diff changeset
564 movff int_O_ascenttime+1,hi ; on 16bits
heinrichsweikamp
parents:
diff changeset
565 WIN_MEDIUM tts_value_column,tts_value_row
heinrichsweikamp
parents:
diff changeset
566 output_16_3 ;Displays only 0...999
heinrichsweikamp
parents:
diff changeset
567 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
568 return
heinrichsweikamp
parents:
diff changeset
569
heinrichsweikamp
parents:
diff changeset
570 global TFT_display_ndl
heinrichsweikamp
parents:
diff changeset
571 TFT_display_ndl:
heinrichsweikamp
parents:
diff changeset
572 btfsc divemode_menu ; Is the dive mode menu shown?
heinrichsweikamp
parents:
diff changeset
573 return ; Yes, return
heinrichsweikamp
parents:
diff changeset
574 WIN_MEDIUM ndl_value_column,ndl_value_row
heinrichsweikamp
parents:
diff changeset
575 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
576 movff char_O_nullzeit,lo ; Get NDL from C-code
heinrichsweikamp
parents:
diff changeset
577 output_8
heinrichsweikamp
parents:
diff changeset
578 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
579 return
heinrichsweikamp
parents:
diff changeset
580
heinrichsweikamp
parents:
diff changeset
581 global TFT_divemode_warning
heinrichsweikamp
parents:
diff changeset
582 TFT_divemode_warning:
heinrichsweikamp
parents:
diff changeset
583 bsf dive_warning_displayed ; =1: The warning sign is shown
heinrichsweikamp
parents:
diff changeset
584 WIN_TOP warning_icon_row
heinrichsweikamp
parents:
diff changeset
585 WIN_LEFT warning_icon_column
heinrichsweikamp
parents:
diff changeset
586 TFT_WRITE_PROM_IMAGE dive_warning_block ; Show Warning icon
heinrichsweikamp
parents:
diff changeset
587 ; movlw .3
heinrichsweikamp
parents:
diff changeset
588 ; cpfslt warning_counter ; More then two warnings?
heinrichsweikamp
parents:
diff changeset
589 ; rcall TFT_divemode_warning_counter ; Yes, show the number
heinrichsweikamp
parents:
diff changeset
590 return
heinrichsweikamp
parents:
diff changeset
591
heinrichsweikamp
parents:
diff changeset
592 ;TFT_divemode_warning_counter:
heinrichsweikamp
parents:
diff changeset
593 ; WIN_SMALL warning_icon_column+.8,warning_icon_row+.13
heinrichsweikamp
parents:
diff changeset
594 ; call TFT_warnings_color
heinrichsweikamp
parents:
diff changeset
595 ; movff warning_counter,lo
heinrichsweikamp
parents:
diff changeset
596 ; bsf leftbind
heinrichsweikamp
parents:
diff changeset
597 ; output_8
heinrichsweikamp
parents:
diff changeset
598 ; bcf leftbind
heinrichsweikamp
parents:
diff changeset
599 ; STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
600 ; call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
601 ; return
heinrichsweikamp
parents:
diff changeset
602
heinrichsweikamp
parents:
diff changeset
603 global TFT_divemode_warning_clear
heinrichsweikamp
parents:
diff changeset
604 TFT_divemode_warning_clear:
heinrichsweikamp
parents:
diff changeset
605 btfss dive_warning_displayed ; =1: The warning sign is shown
heinrichsweikamp
parents:
diff changeset
606 return
heinrichsweikamp
parents:
diff changeset
607 bcf dive_warning_displayed ; clear only once
heinrichsweikamp
parents:
diff changeset
608 WIN_BOX_BLACK warning_icon_row, warning_icon_row+.38, warning_icon_column, warning_icon_column+.21; top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
609 return
heinrichsweikamp
parents:
diff changeset
610
heinrichsweikamp
parents:
diff changeset
611 global TFT_display_deko_mask
heinrichsweikamp
parents:
diff changeset
612 TFT_display_deko_mask:
heinrichsweikamp
parents:
diff changeset
613 rcall TFT_clear_decoarea
heinrichsweikamp
parents:
diff changeset
614 WIN_STD tts_text_column,tts_text_row
heinrichsweikamp
parents:
diff changeset
615 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
616 STRCPY_TEXT_PRINT tTTS ; TTS
heinrichsweikamp
parents:
diff changeset
617 call TFT_standard_color
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
618 bcf show_safety_stop ; Clear safety stop flag
0
heinrichsweikamp
parents:
diff changeset
619 return
heinrichsweikamp
parents:
diff changeset
620
heinrichsweikamp
parents:
diff changeset
621 TFT_display_deko_output_depth: ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
622 TSTOSS opt_units ; 0=m, 1=ft
heinrichsweikamp
parents:
diff changeset
623 bra TFT_display_deko_output_metric
heinrichsweikamp
parents:
diff changeset
624 ;TFT_display_deko_output_imperial:
heinrichsweikamp
parents:
diff changeset
625 movf lo,W ; lo = m
heinrichsweikamp
parents:
diff changeset
626 mullw .100 ; PRODL:PRODH = mbar
heinrichsweikamp
parents:
diff changeset
627 movff PRODL,lo
heinrichsweikamp
parents:
diff changeset
628 movff PRODH,hi
heinrichsweikamp
parents:
diff changeset
629 ; Convert with 334feet/100m to have 10ft, 20ft, 30ft stops...
heinrichsweikamp
parents:
diff changeset
630 movff lo,xA+0
heinrichsweikamp
parents:
diff changeset
631 movff hi,xA+1
heinrichsweikamp
parents:
diff changeset
632 movlw LOW d'334' ; 334feet/100m
heinrichsweikamp
parents:
diff changeset
633 movwf xB+0
heinrichsweikamp
parents:
diff changeset
634 movlw HIGH d'334'
heinrichsweikamp
parents:
diff changeset
635 movwf xB+1
heinrichsweikamp
parents:
diff changeset
636 call mult16x16 ; xA*xB=xC (lo:hi * 328)
heinrichsweikamp
parents:
diff changeset
637 movlw d'50' ; round up
heinrichsweikamp
parents:
diff changeset
638 addwf xC+0,F
heinrichsweikamp
parents:
diff changeset
639 movlw 0
heinrichsweikamp
parents:
diff changeset
640 addwfc xC+1,F
heinrichsweikamp
parents:
diff changeset
641 addwfc xC+2,F
heinrichsweikamp
parents:
diff changeset
642 addwfc xC+3,F
heinrichsweikamp
parents:
diff changeset
643 movlw d'100'
heinrichsweikamp
parents:
diff changeset
644 movwf xB+0
heinrichsweikamp
parents:
diff changeset
645 clrf xB+1
heinrichsweikamp
parents:
diff changeset
646 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
heinrichsweikamp
parents:
diff changeset
647 movff xC+0,lo
heinrichsweikamp
parents:
diff changeset
648 movff xC+1,hi ; restore lo and hi with updated value
heinrichsweikamp
parents:
diff changeset
649 bcf leftbind
heinrichsweikamp
parents:
diff changeset
650 bsf ignore_digit4 ; Only full feet
heinrichsweikamp
parents:
diff changeset
651 output_16
heinrichsweikamp
parents:
diff changeset
652 STRCAT_TEXT tFeets1
heinrichsweikamp
parents:
diff changeset
653 return
heinrichsweikamp
parents:
diff changeset
654
heinrichsweikamp
parents:
diff changeset
655 TFT_display_deko_output_metric:
heinrichsweikamp
parents:
diff changeset
656 output_99
heinrichsweikamp
parents:
diff changeset
657 STRCAT_TEXT tMeters
heinrichsweikamp
parents:
diff changeset
658 PUTC ' '
heinrichsweikamp
parents:
diff changeset
659 return
heinrichsweikamp
parents:
diff changeset
660
heinrichsweikamp
parents:
diff changeset
661 global TFT_display_deko
heinrichsweikamp
parents:
diff changeset
662 TFT_display_deko:
heinrichsweikamp
parents:
diff changeset
663 btfsc divemode_menu ; Is the dive mode menu shown?
heinrichsweikamp
parents:
diff changeset
664 return ; Yes, return
heinrichsweikamp
parents:
diff changeset
665 WIN_MEDIUM decostop_1st_stop_column,decostop_1st_stop_row
heinrichsweikamp
parents:
diff changeset
666 TFT_color_code warn_ceiling ; Color-code Output
heinrichsweikamp
parents:
diff changeset
667 movff char_O_first_deco_depth,lo ; Ceiling in m
heinrichsweikamp
parents:
diff changeset
668 rcall TFT_display_deko_output_depth ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
669 movff char_O_first_deco_time,lo ; length of first stop in min
heinrichsweikamp
parents:
diff changeset
670 output_99
heinrichsweikamp
parents:
diff changeset
671 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
672 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
673 return
heinrichsweikamp
parents:
diff changeset
674
heinrichsweikamp
parents:
diff changeset
675 global TFT_decoplan
heinrichsweikamp
parents:
diff changeset
676 TFT_decoplan:
heinrichsweikamp
parents:
diff changeset
677 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
678 WIN_TINY decoplan_title_column,decoplan_title_row
heinrichsweikamp
parents:
diff changeset
679 STRCPY_TEXT_PRINT tDiveDecoplan
heinrichsweikamp
parents:
diff changeset
680 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
681
heinrichsweikamp
parents:
diff changeset
682 movff char_O_deco_depth+1,lo
heinrichsweikamp
parents:
diff changeset
683 tstfsz lo ; Show another stop?
heinrichsweikamp
parents:
diff changeset
684 bra TFT_display_deko2 ; Yes
heinrichsweikamp
parents:
diff changeset
685 ; No, clear output and return
heinrichsweikamp
parents:
diff changeset
686 call TFT_standard_color
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 96
diff changeset
687 WIN_SMALL decostop_4th_stop_column,decostop_4th_stop_row
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 96
diff changeset
688 STRCPY_PRINT " --- "
0
heinrichsweikamp
parents:
diff changeset
689 WIN_BOX_BLACK decostop_2nd_stop_row, divemode_simtext_row-1, decostop_2nd_stop_column, decostop_4th_stop_column ; top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
690 WIN_BOX_BLACK decostop_5th_stop_row, divemode_simtext_row-1, decostop_5th_stop_column, decostop_6th_stop_column ; top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
691 WIN_BOX_BLACK decostop_6th_stop_row, divemode_simtext_row-1, decostop_6th_stop_column, .159 ; top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
692 return
heinrichsweikamp
parents:
diff changeset
693 TFT_display_deko2:
heinrichsweikamp
parents:
diff changeset
694 WIN_SMALL decostop_2nd_stop_column,decostop_2nd_stop_row
heinrichsweikamp
parents:
diff changeset
695 movff char_O_deco_depth+1,lo ; stop in m
heinrichsweikamp
parents:
diff changeset
696 bcf lo,7 ; Clear GAS_SWITCH bit
heinrichsweikamp
parents:
diff changeset
697 rcall TFT_display_deko_output_depth ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
698 movff char_O_deco_time+1,lo ; length of stop in min
heinrichsweikamp
parents:
diff changeset
699 output_99
heinrichsweikamp
parents:
diff changeset
700 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
701 movff char_O_deco_depth+2,lo
heinrichsweikamp
parents:
diff changeset
702 tstfsz lo ; Show another stop?
heinrichsweikamp
parents:
diff changeset
703 bra TFT_display_deko3 ; Yes
heinrichsweikamp
parents:
diff changeset
704 ; No, clear output and return
heinrichsweikamp
parents:
diff changeset
705 WIN_BOX_BLACK decostop_3rd_stop_row, divemode_simtext_row-1, decostop_2nd_stop_column, decostop_4th_stop_column ; top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
706 WIN_BOX_BLACK decostop_4th_stop_row, divemode_simtext_row-1, decostop_4th_stop_column, .159 ; top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
707 return
heinrichsweikamp
parents:
diff changeset
708
heinrichsweikamp
parents:
diff changeset
709 TFT_display_deko3:
heinrichsweikamp
parents:
diff changeset
710 WIN_SMALL decostop_3rd_stop_column,decostop_3rd_stop_row
heinrichsweikamp
parents:
diff changeset
711 movff char_O_deco_depth+2,lo ; stop in m
heinrichsweikamp
parents:
diff changeset
712 bcf lo,7 ; Clear GAS_SWITCH bit
heinrichsweikamp
parents:
diff changeset
713 rcall TFT_display_deko_output_depth ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
714 movff char_O_deco_time+2,lo ; length of stop in min
heinrichsweikamp
parents:
diff changeset
715 output_99
heinrichsweikamp
parents:
diff changeset
716 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
717
heinrichsweikamp
parents:
diff changeset
718 movff char_O_deco_depth+3,lo
heinrichsweikamp
parents:
diff changeset
719 tstfsz lo ; Show another stop?
heinrichsweikamp
parents:
diff changeset
720 bra TFT_display_deko4 ; Yes
heinrichsweikamp
parents:
diff changeset
721 ; No, clear output and return
heinrichsweikamp
parents:
diff changeset
722 WIN_BOX_BLACK decostop_4th_stop_row, divemode_simtext_row-1, decostop_4th_stop_column, .159 ; top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
723 return ; Done.
heinrichsweikamp
parents:
diff changeset
724
heinrichsweikamp
parents:
diff changeset
725 TFT_display_deko4:
heinrichsweikamp
parents:
diff changeset
726 WIN_SMALL decostop_4th_stop_column,decostop_4th_stop_row
heinrichsweikamp
parents:
diff changeset
727 movff char_O_deco_depth+3,lo ; stop in m
heinrichsweikamp
parents:
diff changeset
728 bcf lo,7 ; Clear GAS_SWITCH bit
heinrichsweikamp
parents:
diff changeset
729 rcall TFT_display_deko_output_depth ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
730 movff char_O_deco_time+3,lo ; length of stop in min
heinrichsweikamp
parents:
diff changeset
731 output_99
heinrichsweikamp
parents:
diff changeset
732 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
733
heinrichsweikamp
parents:
diff changeset
734 movff char_O_deco_depth+4,lo
heinrichsweikamp
parents:
diff changeset
735 tstfsz lo ; Show another stop?
heinrichsweikamp
parents:
diff changeset
736 bra TFT_display_deko5 ; Yes
heinrichsweikamp
parents:
diff changeset
737 ; No, clear output and return
heinrichsweikamp
parents:
diff changeset
738 WIN_BOX_BLACK decostop_5th_stop_row, divemode_simtext_row-1, decostop_5th_stop_column, decostop_6th_stop_column ; top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
739 WIN_BOX_BLACK decostop_6th_stop_row, divemode_simtext_row-1, decostop_6th_stop_column, .159 ; top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
740 return ; Done.
heinrichsweikamp
parents:
diff changeset
741
heinrichsweikamp
parents:
diff changeset
742 TFT_display_deko5:
heinrichsweikamp
parents:
diff changeset
743 WIN_SMALL decostop_5th_stop_column,decostop_5th_stop_row
heinrichsweikamp
parents:
diff changeset
744 movff char_O_deco_depth+4,lo ; stop in m
heinrichsweikamp
parents:
diff changeset
745 bcf lo,7 ; Clear GAS_SWITCH bit
heinrichsweikamp
parents:
diff changeset
746 rcall TFT_display_deko_output_depth ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
747 movff char_O_deco_time+4,lo ; length of stop in min
heinrichsweikamp
parents:
diff changeset
748 output_99
heinrichsweikamp
parents:
diff changeset
749 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
750 movff char_O_deco_depth+5,lo
heinrichsweikamp
parents:
diff changeset
751 tstfsz lo ; Show another stop?
heinrichsweikamp
parents:
diff changeset
752 bra TFT_display_deko6 ; Yes
heinrichsweikamp
parents:
diff changeset
753 ; No, clear output and return
heinrichsweikamp
parents:
diff changeset
754 WIN_BOX_BLACK decostop_6th_stop_row, divemode_simtext_row-1, decostop_6th_stop_column, .159 ; top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
755 return ; Done.
heinrichsweikamp
parents:
diff changeset
756 TFT_display_deko6:
heinrichsweikamp
parents:
diff changeset
757 WIN_SMALL decostop_6th_stop_column,decostop_6th_stop_row
heinrichsweikamp
parents:
diff changeset
758 movff char_O_deco_depth+5,lo ; stop in m
heinrichsweikamp
parents:
diff changeset
759 bcf lo,7 ; Clear GAS_SWITCH bit
heinrichsweikamp
parents:
diff changeset
760 rcall TFT_display_deko_output_depth ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
761 movff char_O_deco_time+5,lo ; length of stop in min
heinrichsweikamp
parents:
diff changeset
762 output_99
heinrichsweikamp
parents:
diff changeset
763 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
764 movff char_O_deco_depth+6,lo
heinrichsweikamp
parents:
diff changeset
765 tstfsz lo ; Show another stop?
heinrichsweikamp
parents:
diff changeset
766 bra TFT_display_deko7 ; Yes
heinrichsweikamp
parents:
diff changeset
767 ; No, clear output and return
heinrichsweikamp
parents:
diff changeset
768 WIN_BOX_BLACK decostop_7th_stop_row, divemode_simtext_row-1, decostop_7th_stop_column, .159 ; top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
769 return ; Done.
heinrichsweikamp
parents:
diff changeset
770 TFT_display_deko7:
heinrichsweikamp
parents:
diff changeset
771 WIN_SMALL decostop_7th_stop_column,decostop_7th_stop_row
heinrichsweikamp
parents:
diff changeset
772 movff char_O_deco_depth+6,lo ; stop in m
heinrichsweikamp
parents:
diff changeset
773 bcf lo,7 ; Clear GAS_SWITCH bit
heinrichsweikamp
parents:
diff changeset
774 rcall TFT_display_deko_output_depth ; Outputs depth (stored in lo) to POSTINC2 with "m" or w/o (For ft)
heinrichsweikamp
parents:
diff changeset
775 movff char_O_deco_time+6,lo ; length of stop in min
heinrichsweikamp
parents:
diff changeset
776 output_99
heinrichsweikamp
parents:
diff changeset
777 STRCAT_PRINT "'"
heinrichsweikamp
parents:
diff changeset
778 return ; Done.
heinrichsweikamp
parents:
diff changeset
779
heinrichsweikamp
parents:
diff changeset
780 ;TFT_display_deko1:
heinrichsweikamp
parents:
diff changeset
781 ; movff char_O_gradient_factor,lo ; gradient factor
heinrichsweikamp
parents:
diff changeset
782 ; movlw gf_display_threshold ; threshold for display
heinrichsweikamp
parents:
diff changeset
783 ; cpfslt lo ; show value?
heinrichsweikamp
parents:
diff changeset
784 ; bra TFT_display_deko2 ; Yes
heinrichsweikamp
parents:
diff changeset
785 ; ; No
heinrichsweikamp
parents:
diff changeset
786 ; bra TFT_display_ndl_mask2 ; Clear gradient factor
heinrichsweikamp
parents:
diff changeset
787 ;
heinrichsweikamp
parents:
diff changeset
788
131
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
789 global TFT_clear_safety_stop
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
790 TFT_clear_safety_stop:
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
791 WIN_BOX_BLACK safetystop_text_row, ndl_text_row-.4, safetystop_text_column, .159 ; top, bottom, left, right
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
792 return
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
793
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
794 global TFT_show_safety_stop
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
795 TFT_show_safety_stop:
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
796 tstfsz safety_stop_countdown ; Countdown at zero?
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
797 bra TFT_show_safety_stop2 ; No, show stop
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
798
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
799 bcf show_safety_stop ; Clear flag
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
800
131
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
801 btfss safety_stop_active ; Displayed?
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
802 return ; No
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
803 bcf safety_stop_active ; Clear flag
131
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
804 btfsc divemode_menu ; Is the dive mode menu shown?
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
805 return ; Yes, return
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
806 rcall TFT_clear_safety_stop ; Yes, Clear stop
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
807 return
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
808
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
809 TFT_show_safety_stop2:
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
810 bsf safety_stop_active ; Set flag
131
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
811 decf safety_stop_countdown,F ; Reduce countdown
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
812
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
813 btfsc divemode_menu ; Is the dive mode menu shown?
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
814 return ; Yes, return
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
815 btfsc menuview
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
816 bra TFT_show_safety_stop3 ; No room when menuview=1...
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
817
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
818 rcall TFT_divemask_color
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
819 WIN_STD safetystop_text_column,safetystop_text_row
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
820 STRCPY_TEXT_PRINT tDiveSafetyStop
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
821 TFT_show_safety_stop3:
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
822 rcall TFT_attention_color ; show in yellow
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
823 WIN_MEDIUM safetystop_column,safetystop_row
131
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
824 lfsr FSR2,buffer
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
825 movff safety_stop_countdown,lo
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
826 clrf hi
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
827 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
828 movf hi,W
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
829 movff lo,hi
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
830 movwf lo ; exchange lo and hi
131
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
831 bsf leftbind
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
832 output_8
35b9da423de6 NEW: Update warnings every second
heinrichsweikamp
parents: 130
diff changeset
833 bcf leftbind
104
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
834 PUTC ':'
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
835 movff hi,lo
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
836 output_99x
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
837 STRCAT_PRINT ""
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
838 WIN_FONT FT_SMALL
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
839 rcall TFT_standard_color
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
840 return
223579e905c3 Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents: 102
diff changeset
841
0
heinrichsweikamp
parents:
diff changeset
842 global TFT_mask_avr_stopwatch ; Show mask for average depth and stopwatch
heinrichsweikamp
parents:
diff changeset
843 TFT_mask_avr_stopwatch:
heinrichsweikamp
parents:
diff changeset
844 ; The mask
heinrichsweikamp
parents:
diff changeset
845 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
846 WIN_TINY dive_custom_avr_stop_column1,dive_custom_avr_stop_row
heinrichsweikamp
parents:
diff changeset
847 STRCPY_TEXT_PRINT tDiveTotalAvr
heinrichsweikamp
parents:
diff changeset
848 WIN_TINY dive_custom_avr_stop_column2,dive_custom_avr_stop_row
heinrichsweikamp
parents:
diff changeset
849 STRCPY_TEXT_PRINT tDiveStopwatch
heinrichsweikamp
parents:
diff changeset
850 WIN_TINY dive_custom_avr_stop_column3,dive_custom_avr_stop_row
heinrichsweikamp
parents:
diff changeset
851 STRCPY_TEXT_PRINT tDiveStopAvr
heinrichsweikamp
parents:
diff changeset
852 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
853 return
heinrichsweikamp
parents:
diff changeset
854
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
855 global TFT_dyn_gaslist
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
856 TFT_dyn_gaslist: ; Show the dynamic gaslist
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
857 ; The mask
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
858 call TFT_divemask_color
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
859 WIN_TINY dive_custom_dyn_mask_column,dive_custom_dyn_mask_row
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
860 STRCPY_TEXT_PRINT tGaslist
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
861 call TFT_standard_color
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
862
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
863 WIN_SMALL dive_custom_dyn_mask_column1,dive_custom_dyn_mask_row1
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
864 movlw .1
235
23311219dacc under construction: new hardware_flag to configure different hardware versions
heinrichsweikamp
parents: 234
diff changeset
865 movwf temp1
139
e0b758865e91 some cleanup
heinrichsweikamp
parents: 134
diff changeset
866 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
867 rcall TFT_dyn_gaslist_common
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
868 WIN_SMALL dive_custom_dyn_mask_column1,dive_custom_dyn_mask_row2
235
23311219dacc under construction: new hardware_flag to configure different hardware versions
heinrichsweikamp
parents: 234
diff changeset
869 incf temp1,F ; +1
23311219dacc under construction: new hardware_flag to configure different hardware versions
heinrichsweikamp
parents: 234
diff changeset
870 movf temp1,W ; into W
54
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
871 rcall TFT_dyn_gaslist_common
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
872 WIN_SMALL dive_custom_dyn_mask_column2,dive_custom_dyn_mask_row1
235
23311219dacc under construction: new hardware_flag to configure different hardware versions
heinrichsweikamp
parents: 234
diff changeset
873 incf temp1,F ; +1
23311219dacc under construction: new hardware_flag to configure different hardware versions
heinrichsweikamp
parents: 234
diff changeset
874 movf temp1,W ; into W
54
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
875 rcall TFT_dyn_gaslist_common
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
876 WIN_SMALL dive_custom_dyn_mask_column2,dive_custom_dyn_mask_row2
235
23311219dacc under construction: new hardware_flag to configure different hardware versions
heinrichsweikamp
parents: 234
diff changeset
877 incf temp1,F ; +1
23311219dacc under construction: new hardware_flag to configure different hardware versions
heinrichsweikamp
parents: 234
diff changeset
878 movf temp1,W ; into W
54
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
879 rcall TFT_dyn_gaslist_common
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
880 call TFT_standard_color
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
881 return
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
882
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
883 TFT_dyn_gaslist_common:
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
884 cpfseq active_gas ;1-5
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
885 bra $+4
235
23311219dacc under construction: new hardware_flag to configure different hardware versions
heinrichsweikamp
parents: 234
diff changeset
886 incf temp1,F ; +1
23311219dacc under construction: new hardware_flag to configure different hardware versions
heinrichsweikamp
parents: 234
diff changeset
887 movff temp1,lo
23311219dacc under construction: new hardware_flag to configure different hardware versions
heinrichsweikamp
parents: 234
diff changeset
888 movff temp1,PRODL
53
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
889 decf PRODL,F ;-1 to have 0-4
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
890 bsf leftbind
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
891 output_8 ; Gas number
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
892 bcf leftbind
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
893 PUTC ":"
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
894 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
895 PUTC " " ; Clearing space
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
896 movlw 0x00
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
897 movff WREG,buffer+.11 ; limit to 11 chars
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
898 STRCAT_PRINT ""
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
899 return
2825f1d2262f NEW: Dynamic Gaslist in OC mode (Divemode, Customview 7)
heinrichsweikamp
parents: 52
diff changeset
900
54
7d626c15b577 some cleanup/changelog
heinrichsweikamp
parents: 53
diff changeset
901
0
heinrichsweikamp
parents:
diff changeset
902 global TFT_update_avr_stopwatch ; Update average depth and stopwatch
heinrichsweikamp
parents:
diff changeset
903 TFT_update_avr_stopwatch:
heinrichsweikamp
parents:
diff changeset
904 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
905 SAFE_2BYTE_COPY average_divesecs,lo
heinrichsweikamp
parents:
diff changeset
906 call convert_time ; lo=secs, hi=mins
heinrichsweikamp
parents:
diff changeset
907 WIN_MEDIUM dive_avr_stop_column2,dive_avr_stop_row
heinrichsweikamp
parents:
diff changeset
908 bsf leftbind
heinrichsweikamp
parents:
diff changeset
909 movf hi,W
heinrichsweikamp
parents:
diff changeset
910 movff lo,hi
heinrichsweikamp
parents:
diff changeset
911 movwf lo ; exchange lo and hi
heinrichsweikamp
parents:
diff changeset
912 output_8
heinrichsweikamp
parents:
diff changeset
913 PUTC ':'
heinrichsweikamp
parents:
diff changeset
914 movff hi,lo
heinrichsweikamp
parents:
diff changeset
915 output_99x
heinrichsweikamp
parents:
diff changeset
916 movlw .5
heinrichsweikamp
parents:
diff changeset
917 call TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
918 clrf WREG
heinrichsweikamp
parents:
diff changeset
919 movff WREG,buffer+.5 ; limit to 5 chars
heinrichsweikamp
parents:
diff changeset
920 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
921
heinrichsweikamp
parents:
diff changeset
922 TSTOSS opt_units ; 0=m, 1=ft
heinrichsweikamp
parents:
diff changeset
923 bra TFT_update_avr_stopwatch_metric
heinrichsweikamp
parents:
diff changeset
924 ;TFT_update_avr_stopwatch_imperial
heinrichsweikamp
parents:
diff changeset
925 movff avr_rel_pressure_total+0,lo
heinrichsweikamp
parents:
diff changeset
926 movff avr_rel_pressure_total+1,hi
heinrichsweikamp
parents:
diff changeset
927 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
928 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
929 WIN_MEDIUM dive_avr_stop_column1,dive_avr_stop_row
heinrichsweikamp
parents:
diff changeset
930 bsf leftbind
heinrichsweikamp
parents:
diff changeset
931 output_16 ; yxz
heinrichsweikamp
parents:
diff changeset
932 STRCAT_PRINT " "
heinrichsweikamp
parents:
diff changeset
933 ; Stopped average depth
heinrichsweikamp
parents:
diff changeset
934 movff avr_rel_pressure+0,lo
heinrichsweikamp
parents:
diff changeset
935 movff avr_rel_pressure+1,hi
heinrichsweikamp
parents:
diff changeset
936 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
937 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
938 WIN_MEDIUM dive_avr_stop_column3,dive_avr_stop_row
heinrichsweikamp
parents:
diff changeset
939 output_16 ; yxz
heinrichsweikamp
parents:
diff changeset
940 bcf leftbind
heinrichsweikamp
parents:
diff changeset
941 STRCAT_PRINT " "
heinrichsweikamp
parents:
diff changeset
942 return
heinrichsweikamp
parents:
diff changeset
943
heinrichsweikamp
parents:
diff changeset
944 TFT_update_avr_stopwatch_metric:
heinrichsweikamp
parents:
diff changeset
945 ; Non-resettable average depth
heinrichsweikamp
parents:
diff changeset
946 movff avr_rel_pressure_total+0,lo
heinrichsweikamp
parents:
diff changeset
947 movff avr_rel_pressure_total+1,hi
heinrichsweikamp
parents:
diff changeset
948 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
949 WIN_MEDIUM dive_avr_stop_column1,dive_avr_stop_row
heinrichsweikamp
parents:
diff changeset
950 bsf ignore_digit5 ; no cm
heinrichsweikamp
parents:
diff changeset
951 output_16dp .3 ; yxz.a
231
834e1c35160c BUGFIX: Show average depth with one decimal digit only
mh@mh-THINK
parents: 229
diff changeset
952 STRCAT_PRINT " "
0
heinrichsweikamp
parents:
diff changeset
953 ; Stopped average depth
heinrichsweikamp
parents:
diff changeset
954 movff avr_rel_pressure+0,lo
heinrichsweikamp
parents:
diff changeset
955 movff avr_rel_pressure+1,hi
heinrichsweikamp
parents:
diff changeset
956 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
957 WIN_MEDIUM dive_avr_stop_column3,dive_avr_stop_row
heinrichsweikamp
parents:
diff changeset
958 bsf ignore_digit5 ; no cm
heinrichsweikamp
parents:
diff changeset
959 output_16dp .3 ; yxz.a
heinrichsweikamp
parents:
diff changeset
960 bcf leftbind
heinrichsweikamp
parents:
diff changeset
961 bcf ignore_digit5
231
834e1c35160c BUGFIX: Show average depth with one decimal digit only
mh@mh-THINK
parents: 229
diff changeset
962 STRCAT_PRINT " "
0
heinrichsweikamp
parents:
diff changeset
963 return
heinrichsweikamp
parents:
diff changeset
964
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
965 global TFT_ceiling_mask ; The ceiling mask
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
966 TFT_ceiling_mask:
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
967 call TFT_divemask_color
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
968 WIN_TINY dive_ceiling_text_column,dive_ceiling_text_row
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
969 STRCPY_TEXT_PRINT tCeiling
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
970 call TFT_standard_color
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
971 return
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
972
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
973 global TFT_ceiling ; Ceiling
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
974 TFT_ceiling:
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
975 call TFT_standard_color
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
976 WIN_MEDIUM dive_ceiling_value_column,dive_ceiling_value_row
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
977 movff int_O_ceiling+0,lo
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
978 movff int_O_ceiling+1,hi
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
979 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
980 bsf leftbind
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
981 TSTOSS opt_units ; 0=m, 1=ft
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
982 bra TFT_ceiling_metric
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
983 ;TFT_ceiling_imperial
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
984 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
985 output_16 ; yxz
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
986 bcf leftbind
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
987 STRCAT_PRINT " "
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
988 return
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
989
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
990 TFT_ceiling_metric:
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
991 bsf ignore_digit5 ; no cm
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
992 output_16dp .3 ; yxz.a
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
993 bcf leftbind
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
994 bcf ignore_digit5
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
995 STRCAT_PRINT " "
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
996 return
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
997
0
heinrichsweikamp
parents:
diff changeset
998 global TFT_hud_mask ; The HUD mask
heinrichsweikamp
parents:
diff changeset
999 TFT_hud_mask:
heinrichsweikamp
parents:
diff changeset
1000 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
1001 WIN_TINY dive_custom_hud_column1,dive_custom_hud_row
heinrichsweikamp
parents:
diff changeset
1002 STRCPY_TEXT_PRINT tDiveHudMask1
heinrichsweikamp
parents:
diff changeset
1003 WIN_TINY dive_custom_hud_column2,dive_custom_hud_row
heinrichsweikamp
parents:
diff changeset
1004 STRCPY_TEXT_PRINT tDiveHudMask2
heinrichsweikamp
parents:
diff changeset
1005 WIN_TINY dive_custom_hud_column3,dive_custom_hud_row
heinrichsweikamp
parents:
diff changeset
1006 STRCPY_TEXT_PRINT tDiveHudMask3
heinrichsweikamp
parents:
diff changeset
1007 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1008 return
heinrichsweikamp
parents:
diff changeset
1009
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1010 global TFT_hud_voltages
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1011 TFT_hud_voltages: ; Show HUD details
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1012 WIN_SMALL .5,dive_hud_data_row
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1013 call TFT_standard_color
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1014 btfss use_O2_sensor1
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1015 call TFT_warnings_color
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1016 movff o2_mv_sensor1+0,lo
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1017 movff o2_mv_sensor1+1,hi
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1018 bsf leftbind
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1019 output_16dp .4 ; x.xx
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1020 bcf leftbind
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1021 STRCAT_PRINT "mV "
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1022 WIN_SMALL .55,dive_hud_data_row
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1023 call TFT_standard_color
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1024 btfss use_O2_sensor2
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1025 call TFT_warnings_color
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1026 movff o2_mv_sensor2+0,lo
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1027 movff o2_mv_sensor2+1,hi
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1028 bsf leftbind
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1029 output_16dp .4 ; x.xx
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1030 bcf leftbind
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1031 STRCAT_PRINT "mV "
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1032 WIN_SMALL .105,dive_hud_data_row
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1033 call TFT_standard_color
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1034 btfss use_O2_sensor3
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1035 call TFT_warnings_color
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1036 movff o2_mv_sensor3+0,lo
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1037 movff o2_mv_sensor3+1,hi
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1038 bsf leftbind
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1039 output_16dp .4 ; x.xx
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1040 bcf leftbind
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1041 STRCAT_PRINT "mV "
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1042 call TFT_standard_color
102
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1043 return
37275e0fa7f5 NEW: Show End-of-Dive time together with clock during deco
heinrichsweikamp
parents: 99
diff changeset
1044
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1045 global TFT_update_ppo2_sensors ; Update Sensor data
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1046 TFT_update_ppo2_sensors:
0
heinrichsweikamp
parents:
diff changeset
1047 ; show three sensors
heinrichsweikamp
parents:
diff changeset
1048 bsf leftbind
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1049 btfsc use_O2_sensor1 ; Use Sensor 1?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1050 bra TFT_update_hud1 ; Yes
0
heinrichsweikamp
parents:
diff changeset
1051 btfss dive_hud1_displayed ; Was the sensor shown?
heinrichsweikamp
parents:
diff changeset
1052 bra TFT_update_hud2 ; Yes, skip clear
heinrichsweikamp
parents:
diff changeset
1053 bcf dive_hud1_displayed ; No, clear display flag
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1054 WIN_BOX_BLACK dive_hud_data_row, dive_hud_data_row+.31, dive_hud_sensor1_column, dive_hud_sensor2_column ; top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
1055 WIN_STD dive_hud_sensor1_column+.7,dive_hud_data_row+.5
heinrichsweikamp
parents:
diff changeset
1056 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1057 STRCPY_PRINT "---"
heinrichsweikamp
parents:
diff changeset
1058 bra TFT_update_hud2 ; Skip Sensor 1
heinrichsweikamp
parents:
diff changeset
1059 TFT_update_hud1:
heinrichsweikamp
parents:
diff changeset
1060 WIN_MEDIUM dive_hud_sensor1_column,dive_hud_data_row
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1061 movff o2_ppo2_sensor1,lo
0
heinrichsweikamp
parents:
diff changeset
1062 TFT_color_code warn_ppo2_hud ; With ppO2 [cbar] in lo
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1063 btfss voting_logic_sensor1 ; Sensor within voting logic?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1064 bsf win_invert ; No, invert output...
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1065 btfss voting_logic_sensor1
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1066 call TFT_warnings_color ; ... and draw in red
0
heinrichsweikamp
parents:
diff changeset
1067 clrf hi
heinrichsweikamp
parents:
diff changeset
1068 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1069 STRCAT_PRINT ""
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1070 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
1071 bsf dive_hud1_displayed ; Set display flag
heinrichsweikamp
parents:
diff changeset
1072 TFT_update_hud2:
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1073 btfsc use_O2_sensor2 ; Use Sensor 2?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1074 bra TFT_update_hud3 ; Yes
0
heinrichsweikamp
parents:
diff changeset
1075 btfss dive_hud2_displayed ; Was the sensor shown?
heinrichsweikamp
parents:
diff changeset
1076 bra TFT_update_hud4 ; Yes, skip clear
heinrichsweikamp
parents:
diff changeset
1077 bcf dive_hud2_displayed ; No, clear display flag
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1078 WIN_BOX_BLACK dive_hud_data_row, dive_hud_data_row+.31, dive_hud_sensor2_column, dive_hud_sensor3_column ; top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
1079 WIN_STD dive_hud_sensor2_column+.7,dive_hud_data_row+.5
heinrichsweikamp
parents:
diff changeset
1080 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1081 STRCPY_PRINT "---"
heinrichsweikamp
parents:
diff changeset
1082 bra TFT_update_hud4 ; Skip Sensor 2
heinrichsweikamp
parents:
diff changeset
1083 TFT_update_hud3:
heinrichsweikamp
parents:
diff changeset
1084 WIN_MEDIUM dive_hud_sensor2_column,dive_hud_data_row
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1085 movff o2_ppo2_sensor2,lo
0
heinrichsweikamp
parents:
diff changeset
1086 TFT_color_code warn_ppo2_hud ; With ppO2 [cbar] in lo
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1087 btfss voting_logic_sensor2 ; Sensor within voting logic?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1088 bsf win_invert ; No, invert output...
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1089 btfss voting_logic_sensor2
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1090 call TFT_warnings_color ; ... and draw in red
0
heinrichsweikamp
parents:
diff changeset
1091 clrf hi
heinrichsweikamp
parents:
diff changeset
1092 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1093 STRCAT_PRINT ""
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1094 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
1095 bsf dive_hud2_displayed ; Set display flag
heinrichsweikamp
parents:
diff changeset
1096 TFT_update_hud4:
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1097 btfsc use_O2_sensor3 ; Use Sensor 3?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1098 bra TFT_update_hud5 ; Yes
0
heinrichsweikamp
parents:
diff changeset
1099 btfss dive_hud3_displayed ; Was the sensor shown?
heinrichsweikamp
parents:
diff changeset
1100 bra TFT_update_hud6 ; Yes, skip clear
heinrichsweikamp
parents:
diff changeset
1101 bcf dive_hud3_displayed ; No, clear display flag
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1102 WIN_BOX_BLACK dive_hud_data_row, dive_hud_data_row+.31, dive_hud_sensor3_column, .159 ; top, bottom, left, right
0
heinrichsweikamp
parents:
diff changeset
1103 WIN_STD dive_hud_sensor3_column+.7,dive_hud_data_row+.5
heinrichsweikamp
parents:
diff changeset
1104 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1105 STRCPY_PRINT "---"
heinrichsweikamp
parents:
diff changeset
1106 bra TFT_update_hud6 ; Skip Sensor 3
heinrichsweikamp
parents:
diff changeset
1107 TFT_update_hud5:
heinrichsweikamp
parents:
diff changeset
1108 WIN_MEDIUM dive_hud_sensor3_column,dive_hud_data_row
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1109 movff o2_ppo2_sensor3,lo
0
heinrichsweikamp
parents:
diff changeset
1110 TFT_color_code warn_ppo2_hud ; With ppO2 [cbar] in lo
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1111 btfss voting_logic_sensor3 ; Sensor within voting logic?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1112 bsf win_invert ; No, invert output...
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1113 btfss voting_logic_sensor3
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1114 call TFT_warnings_color ; ... and draw in red
0
heinrichsweikamp
parents:
diff changeset
1115 clrf hi
heinrichsweikamp
parents:
diff changeset
1116 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1117 STRCAT_PRINT ""
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1118 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
1119 bsf dive_hud3_displayed ; Set display flag
heinrichsweikamp
parents:
diff changeset
1120 TFT_update_hud6:
heinrichsweikamp
parents:
diff changeset
1121 bcf leftbind
heinrichsweikamp
parents:
diff changeset
1122 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1123 return
heinrichsweikamp
parents:
diff changeset
1124
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1125 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
1126 TFT_surface_sensor:
0
heinrichsweikamp
parents:
diff changeset
1127 ; show three sensors
heinrichsweikamp
parents:
diff changeset
1128 bsf leftbind
heinrichsweikamp
parents:
diff changeset
1129 WIN_SMALL surf_hud_sensor1_column,surf_hud_sensor1_row
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1130 btfsc use_O2_sensor1 ; Use Sensor 1?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1131 bra TFT_surface_sensor1 ; Yes
0
heinrichsweikamp
parents:
diff changeset
1132 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1133 STRCPY_PRINT "--- "
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1134 bra TFT_surface_sensor2 ; Skip Sensor 1
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1135 TFT_surface_sensor1:
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1136 movff o2_ppo2_sensor1,lo
0
heinrichsweikamp
parents:
diff changeset
1137 TFT_color_code warn_ppo2_hud ; With ppO2 [cbar] in lo
heinrichsweikamp
parents:
diff changeset
1138 clrf hi
heinrichsweikamp
parents:
diff changeset
1139 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1140 STRCAT_PRINT ""
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1141 TFT_surface_sensor2:
0
heinrichsweikamp
parents:
diff changeset
1142 WIN_SMALL surf_hud_sensor2_column,surf_hud_sensor2_row
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1143 btfsc use_O2_sensor2 ; Use Sensor 2?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1144 bra TFT_surface_sensor3 ; Yes
0
heinrichsweikamp
parents:
diff changeset
1145 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1146 STRCPY_PRINT "--- "
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1147 bra TFT_surface_sensor4 ; Skip Sensor 2
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1148 TFT_surface_sensor3:
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1149 movff o2_ppo2_sensor2,lo
0
heinrichsweikamp
parents:
diff changeset
1150 TFT_color_code warn_ppo2_hud ; With ppO2 [cbar] in lo
heinrichsweikamp
parents:
diff changeset
1151 clrf hi
heinrichsweikamp
parents:
diff changeset
1152 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1153 STRCAT_PRINT ""
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1154 TFT_surface_sensor4:
0
heinrichsweikamp
parents:
diff changeset
1155 WIN_SMALL surf_hud_sensor3_column,surf_hud_sensor3_row
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1156 btfsc use_O2_sensor3 ; Use Sensor 3?
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1157 bra TFT_surface_sensor5 ; Yes
0
heinrichsweikamp
parents:
diff changeset
1158 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1159 STRCPY_PRINT "--- "
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1160 bra TFT_surface_sensor6 ; Skip Sensor 3
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1161 TFT_surface_sensor5:
192
efe70488a04b voting logic for external monitoring
heinrichsweikamp
parents: 191
diff changeset
1162 movff o2_ppo2_sensor3,lo
0
heinrichsweikamp
parents:
diff changeset
1163 TFT_color_code warn_ppo2_hud ; With ppO2 [cbar] in lo
heinrichsweikamp
parents:
diff changeset
1164 clrf hi
heinrichsweikamp
parents:
diff changeset
1165 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1166 STRCAT_PRINT ""
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
1167 TFT_surface_sensor6:
0
heinrichsweikamp
parents:
diff changeset
1168 bcf leftbind
heinrichsweikamp
parents:
diff changeset
1169 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1170 return
heinrichsweikamp
parents:
diff changeset
1171
heinrichsweikamp
parents:
diff changeset
1172 global TFT_menu_hud
heinrichsweikamp
parents:
diff changeset
1173 TFT_menu_hud: ; Yes, update HUD data
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
1174 call TFT_attention_color ; show in yellow
0
heinrichsweikamp
parents:
diff changeset
1175 bsf leftbind
heinrichsweikamp
parents:
diff changeset
1176 WIN_SMALL surf_menu_sensor1_column,surf_menu_sensor1_row
heinrichsweikamp
parents:
diff changeset
1177 movff o2_ppo2_sensor1,lo
heinrichsweikamp
parents:
diff changeset
1178 clrf hi
heinrichsweikamp
parents:
diff changeset
1179 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1180 PUTC ","
heinrichsweikamp
parents:
diff changeset
1181 movff o2_mv_sensor1+0,lo ; in 0.1mV steps
heinrichsweikamp
parents:
diff changeset
1182 movff o2_mv_sensor1+1,hi ; in 0.1mV steps
heinrichsweikamp
parents:
diff changeset
1183 output_16dp .4 ; xxx.y mV
heinrichsweikamp
parents:
diff changeset
1184 STRCAT_PRINT "mV "
heinrichsweikamp
parents:
diff changeset
1185 WIN_SMALL surf_menu_sensor2_column,surf_menu_sensor2_row
heinrichsweikamp
parents:
diff changeset
1186 movff o2_ppo2_sensor2,lo
heinrichsweikamp
parents:
diff changeset
1187 clrf hi
heinrichsweikamp
parents:
diff changeset
1188 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1189 PUTC ","
heinrichsweikamp
parents:
diff changeset
1190 movff o2_mv_sensor2+0,lo ; in 0.1mV steps
heinrichsweikamp
parents:
diff changeset
1191 movff o2_mv_sensor2+1,hi ; in 0.1mV steps
heinrichsweikamp
parents:
diff changeset
1192 output_16dp .4 ; xxx.y mV
heinrichsweikamp
parents:
diff changeset
1193 STRCAT_PRINT "mV "
heinrichsweikamp
parents:
diff changeset
1194 WIN_SMALL surf_menu_sensor3_column,surf_menu_sensor3_row
heinrichsweikamp
parents:
diff changeset
1195 movff o2_ppo2_sensor3,lo
heinrichsweikamp
parents:
diff changeset
1196 clrf hi
heinrichsweikamp
parents:
diff changeset
1197 output_16dp .3 ; x.xx bar
heinrichsweikamp
parents:
diff changeset
1198 PUTC ","
heinrichsweikamp
parents:
diff changeset
1199 movff o2_mv_sensor3+0,lo ; in 0.1mV steps
heinrichsweikamp
parents:
diff changeset
1200 movff o2_mv_sensor3+1,hi ; in 0.1mV steps
heinrichsweikamp
parents:
diff changeset
1201 output_16dp .4 ; xxx.y mV
heinrichsweikamp
parents:
diff changeset
1202 STRCAT_PRINT "mV "
heinrichsweikamp
parents:
diff changeset
1203 WIN_SMALL surf_menu_sensor4_column,surf_menu_sensor4_row
113
heinrichsweikamp
parents: 106
diff changeset
1204
236
e2ea74646127 configure hardware_flag byte
heinrichsweikamp
parents: 235
diff changeset
1205 btfss analog_o2_input
113
heinrichsweikamp
parents: 106
diff changeset
1206 bra TFT_menu_hud_2 ; always for normal OSTC3
heinrichsweikamp
parents: 106
diff changeset
1207 btfss s8_digital
heinrichsweikamp
parents: 106
diff changeset
1208 return ; Not for analog
heinrichsweikamp
parents: 106
diff changeset
1209 TFT_menu_hud_2:
0
heinrichsweikamp
parents:
diff changeset
1210 STRCPY "Batt:"
heinrichsweikamp
parents:
diff changeset
1211 movff hud_battery_mv+0,lo ; in mV
heinrichsweikamp
parents:
diff changeset
1212 movff hud_battery_mv+1,hi ; in mV
heinrichsweikamp
parents:
diff changeset
1213 output_16dp .2 ; x.yyy V
heinrichsweikamp
parents:
diff changeset
1214 STRCAT_PRINT "V"
heinrichsweikamp
parents:
diff changeset
1215 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1216 bcf leftbind
heinrichsweikamp
parents:
diff changeset
1217 return
heinrichsweikamp
parents:
diff changeset
1218
187
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1219 global TFT_menu_calibrate
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1220 TFT_menu_calibrate: ; update mV data in calibration menu
229
e1e5876bd777 minor cleanup
mh@mh-THINK
parents: 227
diff changeset
1221 call compute_ppo2 ; compute mv_sensorX and ppo2_sensorX arrays
113
heinrichsweikamp
parents: 106
diff changeset
1222 call TFT_attention_color ; show in yellow
heinrichsweikamp
parents: 106
diff changeset
1223 bsf leftbind
heinrichsweikamp
parents: 106
diff changeset
1224 WIN_SMALL surf_menu_sensor1_column,surf_menu2_sensor1_row
heinrichsweikamp
parents: 106
diff changeset
1225 movff o2_mv_sensor1+0,lo ; in 0.1mV steps
heinrichsweikamp
parents: 106
diff changeset
1226 movff o2_mv_sensor1+1,hi ; in 0.1mV steps
heinrichsweikamp
parents: 106
diff changeset
1227 output_16dp .4 ; xxx.y mV
heinrichsweikamp
parents: 106
diff changeset
1228 STRCAT_PRINT "mV "
heinrichsweikamp
parents: 106
diff changeset
1229 WIN_SMALL surf_menu_sensor2_column,surf_menu2_sensor2_row
heinrichsweikamp
parents: 106
diff changeset
1230 movff o2_mv_sensor2+0,lo ; in 0.1mV steps
heinrichsweikamp
parents: 106
diff changeset
1231 movff o2_mv_sensor2+1,hi ; in 0.1mV steps
heinrichsweikamp
parents: 106
diff changeset
1232 output_16dp .4 ; xxx.y mV
heinrichsweikamp
parents: 106
diff changeset
1233 STRCAT_PRINT "mV "
heinrichsweikamp
parents: 106
diff changeset
1234 WIN_SMALL surf_menu_sensor3_column,surf_menu2_sensor3_row
heinrichsweikamp
parents: 106
diff changeset
1235 movff o2_mv_sensor3+0,lo ; in 0.1mV steps
heinrichsweikamp
parents: 106
diff changeset
1236 movff o2_mv_sensor3+1,hi ; in 0.1mV steps
heinrichsweikamp
parents: 106
diff changeset
1237 output_16dp .4 ; xxx.y mV
heinrichsweikamp
parents: 106
diff changeset
1238 STRCAT_PRINT "mV "
187
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1239 ; WIN_SMALL surf_menu2_ambient_column,surf_menu2_ambient_row
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1240 ; PUTC "@"
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1241 ; SAFE_2BYTE_COPY amb_pressure, lo
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1242 ; output_16
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1243 ; STRCAT_TEXT tMBAR ; mbar
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 180
diff changeset
1244 ; STRCAT_PRINT " "
113
heinrichsweikamp
parents: 106
diff changeset
1245 call TFT_standard_color
heinrichsweikamp
parents: 106
diff changeset
1246 bcf leftbind
heinrichsweikamp
parents: 106
diff changeset
1247 return
heinrichsweikamp
parents: 106
diff changeset
1248
0
heinrichsweikamp
parents:
diff changeset
1249 global TFT_clock
heinrichsweikamp
parents:
diff changeset
1250 TFT_clock:
48
7c7d7644ca37 Time and Date in normal (Not tiny) font
heinrichsweikamp
parents: 42
diff changeset
1251 WIN_SMALL surf_clock_column,surf_clock_row
0
heinrichsweikamp
parents:
diff changeset
1252 TFT_clock2: ; called from divemode clock
heinrichsweikamp
parents:
diff changeset
1253 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1254 movff hours,lo
heinrichsweikamp
parents:
diff changeset
1255 output_99
heinrichsweikamp
parents:
diff changeset
1256 movlw ':'
heinrichsweikamp
parents:
diff changeset
1257 btfss secs,0 ; blinking every second
heinrichsweikamp
parents:
diff changeset
1258 movlw ' '
heinrichsweikamp
parents:
diff changeset
1259 movwf POSTINC2
heinrichsweikamp
parents:
diff changeset
1260 movff mins,lo
heinrichsweikamp
parents:
diff changeset
1261 output_99x
heinrichsweikamp
parents:
diff changeset
1262 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
1263 return
heinrichsweikamp
parents:
diff changeset
1264
heinrichsweikamp
parents:
diff changeset
1265 global TFT_show_time_date_menu
heinrichsweikamp
parents:
diff changeset
1266 TFT_show_time_date_menu:
heinrichsweikamp
parents:
diff changeset
1267 call speed_fastest
heinrichsweikamp
parents:
diff changeset
1268 WIN_SMALL .15,.30
heinrichsweikamp
parents:
diff changeset
1269 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1270 movff hours,lo
heinrichsweikamp
parents:
diff changeset
1271 output_99
heinrichsweikamp
parents:
diff changeset
1272 PUTC ':'
heinrichsweikamp
parents:
diff changeset
1273 movff mins,lo
heinrichsweikamp
parents:
diff changeset
1274 output_99x
heinrichsweikamp
parents:
diff changeset
1275 PUTC ':'
heinrichsweikamp
parents:
diff changeset
1276 movff secs,lo
heinrichsweikamp
parents:
diff changeset
1277 output_99x
heinrichsweikamp
parents:
diff changeset
1278 STRCAT " - "
heinrichsweikamp
parents:
diff changeset
1279 movff month,convert_value_temp+0
heinrichsweikamp
parents:
diff changeset
1280 movff day,convert_value_temp+1
heinrichsweikamp
parents:
diff changeset
1281 movff year,convert_value_temp+2
heinrichsweikamp
parents:
diff changeset
1282 call TFT_convert_date ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2
heinrichsweikamp
parents:
diff changeset
1283 STRCAT_PRINT " "
heinrichsweikamp
parents:
diff changeset
1284 return
heinrichsweikamp
parents:
diff changeset
1285 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
1286
heinrichsweikamp
parents:
diff changeset
1287 global TFT_interval
heinrichsweikamp
parents:
diff changeset
1288 TFT_interval:
heinrichsweikamp
parents:
diff changeset
1289 call TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
1290 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
1291 return ; No
heinrichsweikamp
parents:
diff changeset
1292 STRCPY "Int:"
heinrichsweikamp
parents:
diff changeset
1293 movff surface_interval+0,lo
heinrichsweikamp
parents:
diff changeset
1294 movff surface_interval+1,hi
heinrichsweikamp
parents:
diff changeset
1295 call convert_time ; lo=mins, hi=hours
heinrichsweikamp
parents:
diff changeset
1296 movf hi,W
heinrichsweikamp
parents:
diff changeset
1297 movff lo,hi
heinrichsweikamp
parents:
diff changeset
1298 movwf lo ; exchange lo and hi
heinrichsweikamp
parents:
diff changeset
1299 output_99x
heinrichsweikamp
parents:
diff changeset
1300 PUTC ':'
heinrichsweikamp
parents:
diff changeset
1301 movff hi,lo
heinrichsweikamp
parents:
diff changeset
1302 output_99x
heinrichsweikamp
parents:
diff changeset
1303 movlw surf_warning_length ; No, use surface string length
heinrichsweikamp
parents:
diff changeset
1304 call TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
1305 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
1306 return
heinrichsweikamp
parents:
diff changeset
1307
heinrichsweikamp
parents:
diff changeset
1308 global TFT_compass_fast
heinrichsweikamp
parents:
diff changeset
1309 TFT_compass_fast:
heinrichsweikamp
parents:
diff changeset
1310 WIN_TINY .20,.50
heinrichsweikamp
parents:
diff changeset
1311 STRCPY "X:"
heinrichsweikamp
parents:
diff changeset
1312 movff compass_DX+0,lo
heinrichsweikamp
parents:
diff changeset
1313 movff compass_DX+1,hi
heinrichsweikamp
parents:
diff changeset
1314 call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
heinrichsweikamp
parents:
diff changeset
1315 output_16
heinrichsweikamp
parents:
diff changeset
1316 STRCAT " Y:"
heinrichsweikamp
parents:
diff changeset
1317 movff compass_DY+0,lo
heinrichsweikamp
parents:
diff changeset
1318 movff compass_DY+1,hi
heinrichsweikamp
parents:
diff changeset
1319 call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
heinrichsweikamp
parents:
diff changeset
1320 output_16
heinrichsweikamp
parents:
diff changeset
1321 STRCAT " Z:"
heinrichsweikamp
parents:
diff changeset
1322 movff compass_DZ+0,lo
heinrichsweikamp
parents:
diff changeset
1323 movff compass_DZ+1,hi
heinrichsweikamp
parents:
diff changeset
1324 call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
heinrichsweikamp
parents:
diff changeset
1325 output_16
heinrichsweikamp
parents:
diff changeset
1326 STRCAT_PRINT " "
heinrichsweikamp
parents:
diff changeset
1327 return
heinrichsweikamp
parents:
diff changeset
1328
94
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1329 global TFT_show_timeout_testmode
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1330 TFT_show_timeout_testmode: ; With timeout in WREG...
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1331 movwf hi
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1332 WIN_TINY .20,.68
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1333 STRCPY "T:"
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1334 movf timeout_counter2,W ; current timeout
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1335 subwf hi,W ; subtract from timeout value
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1336 addlw .1 ; +1
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1337 movwf lo
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1338 bsf leftbind
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1339 output_8 ; Display timeout
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1340 bcf leftbind
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1341 STRCAT_PRINT "s "
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1342 return
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1343
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1344
90
3274e87fd027 NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents: 88
diff changeset
1345 global TFT_compass_show_gain
3274e87fd027 NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents: 88
diff changeset
1346 TFT_compass_show_gain: ; Show the current compass gain
3274e87fd027 NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents: 88
diff changeset
1347 movff opt_compass_gain,lo ; 0-7 (230LSB/Gauss to 1370LSB/Gaus)
3274e87fd027 NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents: 88
diff changeset
1348 tstfsz lo
3274e87fd027 NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents: 88
diff changeset
1349 return ; Do not show unless gain=0
94
f2201aa374db BUGFIX: compass calibration does now timeout automatically after 60s
heinrichsweikamp
parents: 90
diff changeset
1350 WIN_TINY .20,.86
90
3274e87fd027 NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents: 88
diff changeset
1351 STRCPY_TEXT tCompassGain
3274e87fd027 NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents: 88
diff changeset
1352 movff opt_compass_gain,lo ; 0-7 (230LSB/Gauss to 1370LSB/Gaus)
3274e87fd027 NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents: 88
diff changeset
1353 bsf leftbind
3274e87fd027 NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents: 88
diff changeset
1354 output_8
3274e87fd027 NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents: 88
diff changeset
1355 bcf leftbind
3274e87fd027 NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents: 88
diff changeset
1356 STRCAT_PRINT "!"
3274e87fd027 NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents: 88
diff changeset
1357 return
3274e87fd027 NEW: automatic compass gain makes calibration quicker
heinrichsweikamp
parents: 88
diff changeset
1358
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1359 global TFT_surface_decosettings ; Show all deco settings
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1360 TFT_surface_decosettings:
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1361 ; Deco Mode
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1362 call TFT_standard_color
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1363 movff char_I_deco_model,WREG
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1364 iorwf WREG
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1365 bnz TFT_surface_decosettings1
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1366
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1367 ; Display ZH-L16 sat/desat model.
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1368 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
1369 WIN_TOP surf_gaslist_row+(surf_gaslist_spacing*.1)
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1370 lfsr FSR2,buffer
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1371 movff char_I_desaturation_multiplier,lo
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1372 bsf leftbind
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1373 output_8
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1374 STRCAT "%/"
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1375 movff char_I_saturation_multiplier,lo
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1376 output_8
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1377 STRCAT_PRINT "%"
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1378 bra TFT_surface_decosettings2
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1379
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1380 ; Display ZH-L16-GF low/high model.
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1381 TFT_surface_decosettings1:
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1382 TEXT_SMALL surf_gaslist_column,surf_gaslist_row, tZHL16GF
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1383 WIN_TOP surf_gaslist_row+(surf_gaslist_spacing*.1)
42
mh@mh-THINK.fritz.box
parents: 41
diff changeset
1384 STRCPY_TEXT tGF ; GF:
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1385 movff char_I_GF_Low_percentage,lo
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1386 output_99x
42
mh@mh-THINK.fritz.box
parents: 41
diff changeset
1387 STRCAT "/"
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1388 movff char_I_GF_High_percentage,lo
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1389 output_99x
42
mh@mh-THINK.fritz.box
parents: 41
diff changeset
1390 STRCAT_PRINT ""
41
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1391 ;bra TFT_surface_decosettings2
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1392 TFT_surface_decosettings2:
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1393 ; FTTS
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1394 WIN_TOP surf_gaslist_row+(surf_gaslist_spacing*.2)
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1395 STRCPY_TEXT tFTTSMenu
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1396 movff char_I_extra_time,lo
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1397 bsf leftbind
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1398 output_8
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1399 STRCAT_TEXT_PRINT tMinutes
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1400
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1401 ; Last Stop
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1402 WIN_TOP surf_gaslist_row+(surf_gaslist_spacing*.3)
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1403 STRCPY_TEXT tLastDecostop
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1404 movff char_I_depth_last_deco,lo
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1405 output_8
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1406 STRCAT_TEXT_PRINT tMeters
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1407
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1408 ; Salinity
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1409 WIN_TOP surf_gaslist_row+(surf_gaslist_spacing*.4)
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1410 STRCPY_TEXT tDvSalinity
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1411 movff opt_salinity,lo
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1412 output_8
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1413 bcf leftbind
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1414 STRCAT_TEXT_PRINT tPercent
5041477eee79 Surface customview with important deco settings
mh@mh-THINK
parents: 40
diff changeset
1415 return ; Done.
0
heinrichsweikamp
parents:
diff changeset
1416
heinrichsweikamp
parents:
diff changeset
1417 global TFT_surface_compass_mask
heinrichsweikamp
parents:
diff changeset
1418 TFT_surface_compass_mask:
heinrichsweikamp
parents:
diff changeset
1419 WIN_SMALL surf_compass_mask_column,surf_compass_mask_row
heinrichsweikamp
parents:
diff changeset
1420 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1421 STRCPY_TEXT_PRINT tHeading ; Heading:
heinrichsweikamp
parents:
diff changeset
1422 return
heinrichsweikamp
parents:
diff changeset
1423
heinrichsweikamp
parents:
diff changeset
1424 global TFT_dive_compass_mask
heinrichsweikamp
parents:
diff changeset
1425 TFT_dive_compass_mask:
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1426 WIN_BOX_STD dive_compass_graph_row-.3,dive_compass_graph_row,(dive_compass_graph_left+dive_compass_graph_right)/.2-.2,(dive_compass_graph_left+dive_compass_graph_right)/.2+.2
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1427 WIN_FRAME_STD dive_compass_graph_row, dive_compass_graph_row+dive_compass_graph_height,dive_compass_graph_left-.1,dive_compass_graph_right-.1
0
heinrichsweikamp
parents:
diff changeset
1428 return
heinrichsweikamp
parents:
diff changeset
1429
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1430 ; WIN_TINY dive_compass_mask_column,dive_compass_mask_row
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1431 ; call TFT_divemask_color
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1432 ; STRCPY_TEXT_PRINT tHeading ; Heading:
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1433 ; return
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1434
0
heinrichsweikamp
parents:
diff changeset
1435
heinrichsweikamp
parents:
diff changeset
1436 global TFT_surface_compass_heading
heinrichsweikamp
parents:
diff changeset
1437 TFT_surface_compass_heading:
heinrichsweikamp
parents:
diff changeset
1438 rcall compass_heading_common
heinrichsweikamp
parents:
diff changeset
1439 WIN_STD surf_compass_head_column,surf_compass_head_row
heinrichsweikamp
parents:
diff changeset
1440 call TFT_standard_color
122
3e84e2a64188 Show %'s for non-GF deco model in surface mode
heinrichsweikamp
parents: 118
diff changeset
1441 TFT_surface_compass_heading_com: ; Show "000° N"
0
heinrichsweikamp
parents:
diff changeset
1442 movff compass_heading+0,lo
heinrichsweikamp
parents:
diff changeset
1443 movff compass_heading+1,hi
heinrichsweikamp
parents:
diff changeset
1444 call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
170
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1445
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1446 ; Shown and actual identical?
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1447 movff compass_heading_shown+0,WREG
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1448 cpfseq lo
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1449 bra TFT_surface_compass_heading_com1 ; Not equal
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1450 movff compass_heading_shown+1,WREG
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1451 cpfseq hi
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1452 bra TFT_surface_compass_heading_com1 ; Not equal
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1453 bra TFT_surface_compass_heading_com3 ; equal, skip smoothing
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1454
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1455 TFT_surface_compass_heading_com1:
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1456 movff lo,sub_a+0
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1457 movff hi,sub_a+1
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1458 movff compass_heading_shown+0,sub_b+0
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1459 movff compass_heading_shown+1,sub_b+1
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1460 call subU16
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1461 btfsc neg_flag
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1462 bra TFT_surface_compass_heading_com2 ; shown > actual
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1463 ; shown < actual
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1464 banksel compass_heading_shown
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1465 infsnz compass_heading_shown+0,F
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1466 incf compass_heading_shown+1,F ; +1
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1467 bra TFT_surface_compass_heading_com3
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1468
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1469 TFT_surface_compass_heading_com2:
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1470 banksel compass_heading_shown
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1471 movlw d'1'
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1472 subwf compass_heading_shown+0,F
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1473 movlw d'0'
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1474 subwfb compass_heading_shown+1,F ; -1
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1475
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1476 TFT_surface_compass_heading_com3:
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1477 banksel common
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1478 movff compass_heading_shown+0,lo
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1479 movff compass_heading_shown+1,hi
0
heinrichsweikamp
parents:
diff changeset
1480 bsf leftbind
118
abd30446e1cd show heading with leading zeros
heinrichsweikamp
parents: 117
diff changeset
1481 output_16dp .2 ; Result is "0.000"
0
heinrichsweikamp
parents:
diff changeset
1482 bcf leftbind
118
abd30446e1cd show heading with leading zeros
heinrichsweikamp
parents: 117
diff changeset
1483 ; rearrange figures to "000"
abd30446e1cd show heading with leading zeros
heinrichsweikamp
parents: 117
diff changeset
1484 movff buffer+2,buffer+0
abd30446e1cd show heading with leading zeros
heinrichsweikamp
parents: 117
diff changeset
1485 movff buffer+3,buffer+1
abd30446e1cd show heading with leading zeros
heinrichsweikamp
parents: 117
diff changeset
1486 movff buffer+4,buffer+2
abd30446e1cd show heading with leading zeros
heinrichsweikamp
parents: 117
diff changeset
1487 lfsr FSR2,buffer+3
29
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1488 STRCAT "° "
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1489 rcall tft_compass_cardinal ; Add cardinal and ordinal to POSTINC2
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1490 clrf WREG
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1491 movff WREG,buffer+.7 ; limit to 7 chars
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1492 STRCAT_PRINT ""
0
heinrichsweikamp
parents:
diff changeset
1493 return
heinrichsweikamp
parents:
diff changeset
1494
heinrichsweikamp
parents:
diff changeset
1495 global TFT_dive_compass_heading
heinrichsweikamp
parents:
diff changeset
1496 TFT_dive_compass_heading:
heinrichsweikamp
parents:
diff changeset
1497 rcall compass_heading_common
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1498
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1499 ; Graphic output
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1500 movff compass_heading_shown+0,lo
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1501 movff compass_heading_shown+1,hi
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1502 bcf STATUS,C
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1503 rrcf hi,F
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1504 rrcf lo,F ; /2 -> heading 0-179 in lo
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1505
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1506 ; Debug
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1507 WIN_TINY .0,.71
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1508 output_8
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1509 STRCAT_PRINT " "
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1510 ; Debug
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1511
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1512 ; With 60° shown, left border is heading-30° or lo - 15
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1513 movlw .15
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1514 subwf lo,W
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1515 btfss STATUS,C ; <0?
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1516 addlw .180 ; Yes, adjust value
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1517 movwf lo ; lo has now left border of graphic in 0-179
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1518
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1519 ; Debug
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1520 WIN_TINY .0,.85
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1521 output_8
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1522 STRCAT_PRINT " "
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1523 ; Debug
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1524
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1525 ; Draw marks (left border of graphic is in lo)
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1526 ; WIN_BOX_BLACK dive_compass_graph_row+.1,dive_compass_graph_row+dive_compass_graph_height-.1,dive_compass_graph_left,dive_compass_graph_right-.2
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1527 ; WIN_FRAME_STD dive_compass_graph_row, dive_compass_graph_row+dive_compass_graph_height,dive_compass_graph_left-.1,dive_compass_graph_right-.1
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1528 movlw dive_compass_graph_row+.1
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1529 movff WREG,win_top
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1530 movlw dive_compass_graph_height-.1
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1531 movff WREG,win_height
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1532
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1533 ; lo is 0-179, draw first mark at full 10°
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1534 incf lo,F ; +1
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1535 setf hi ; =255
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1536 TFT_compass_graph1:
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1537 lfsr FSR2,buffer
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1538 incf hi,F
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1539 decf lo,F
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1540 output_8
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1541 movlw "0"
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1542 movwf up ; Digit "0"
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1543 movff buffer+2,WREG
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1544 cpfseq up ; Last digit = 0?
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1545 bra TFT_compass_graph1b ; No
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1546 bra TFT_compass_graph1a ; Yes
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1547 TFT_compass_graph1b:
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1548 movlw "5"
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1549 movwf up ; Digit "5"
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1550 movff buffer+2,WREG
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1551 cpfseq up ; Last digit = 5?
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1552 bra TFT_compass_graph1 ; No
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1553
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1554 TFT_compass_graph1a:
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1555 ; Yes setup PROD for the first mark
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1556 movlw .5
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1557 mulwf hi
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1558 movlw dive_compass_graph_leftx2
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1559 addwf PRODL,F
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1560 movlw .0
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1561 addwfc PRODH,F ; add left offset
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1562
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1563 movlw .11 ; amount of marks (-1)
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1564 movwf up
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1565 TFT_compass_graph2:
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1566 movff PRODL,lo
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1567 movff PRODH,hi ; Backup
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1568 rcall TFT_compass_graph3 ; Write one mark
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1569 movff lo,PRODL
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1570 movff hi,PRODH ; Restore
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1571 movlw .25 ; Spacing in pixels
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1572 addwf PRODL,F
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1573 movlw .0
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1574 addwfc PRODH,F
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1575 decfsz up,F
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1576 bra TFT_compass_graph2
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1577
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1578 rcall TFT_compass_graph4 ; Write one mark without black space
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1579
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1580 ; Text output
0
heinrichsweikamp
parents:
diff changeset
1581 WIN_STD dive_compass_head_column,dive_compass_head_row
heinrichsweikamp
parents:
diff changeset
1582 call TFT_standard_color
122
3e84e2a64188 Show %'s for non-GF deco model in surface mode
heinrichsweikamp
parents: 118
diff changeset
1583 rcall TFT_surface_compass_heading_com ; Show "000° N"
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1584
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1585 return ; Done.
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1586
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1587
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1588 TFT_compass_graph3:
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1589 rcall TFT_compass_graph4 ; Mark
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1590 movff lo,PRODL
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1591 movff hi,PRODH ; Restore
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1592
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1593 ; black space
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1594 clrf WREG
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1595 movff WREG,win_color1
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1596 movff WREG,win_color2 ; Set to black
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1597 movlw dive_compass_graph_width+.1
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1598 addwf PRODL,F
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1599 movlw .0
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1600 addwfc PRODH,F
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1601 movlw .20 ; Spacing in pixels
83
eb72c8865f47 Test with graphic compass
heinrichsweikamp
parents: 76
diff changeset
1602 movff WREG,win_width+0
eb72c8865f47 Test with graphic compass
heinrichsweikamp
parents: 76
diff changeset
1603 call TFT_box_write_16bit_win_left ; With column in PRODL:PRODH
eb72c8865f47 Test with graphic compass
heinrichsweikamp
parents: 76
diff changeset
1604 movf win_width,W
eb72c8865f47 Test with graphic compass
heinrichsweikamp
parents: 76
diff changeset
1605 bcf STATUS,C
eb72c8865f47 Test with graphic compass
heinrichsweikamp
parents: 76
diff changeset
1606 rlcf WREG
eb72c8865f47 Test with graphic compass
heinrichsweikamp
parents: 76
diff changeset
1607 movwf win_width+0
eb72c8865f47 Test with graphic compass
heinrichsweikamp
parents: 76
diff changeset
1608 movlw 0
eb72c8865f47 Test with graphic compass
heinrichsweikamp
parents: 76
diff changeset
1609 rlcf WREG
eb72c8865f47 Test with graphic compass
heinrichsweikamp
parents: 76
diff changeset
1610 movwf win_width+1
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1611 call TFT_box_16bit_win_left ; Fill window
0
heinrichsweikamp
parents:
diff changeset
1612 return
heinrichsweikamp
parents:
diff changeset
1613
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1614 TFT_compass_graph4:
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1615 call TFT_divemask_color
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1616 ;---- Define Window ------------------------------------------------------
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1617 movlw dive_compass_graph_width
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1618 movff WREG,win_width+0
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1619 clrf win_width+1
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1620 call TFT_box_write_16bit_win_left ; With column in PRODL:PRODH
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1621 movf win_width,W
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1622 bcf STATUS,C
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1623 rlcf WREG
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1624 movwf win_width+0
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1625 movlw 0
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1626 rlcf WREG
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1627 movwf win_width+1
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1628 call TFT_box_16bit_win_left ; Fill window
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1629 return
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1630
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1631
29
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1632 tft_compass_cardinal:
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1633 btfsc hi,0 ; Heading >255°?
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1634 bra tft_compass_cardinal2 ; Yes must be W, NW or N
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1635 ; No, Must be W, SW, S, SE, E, NE or N
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1636 movlw .23
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1637 subwf lo,W
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1638 btfss STATUS,C
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1639 bra tft_compass_cardinal_N
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1640 movlw .68
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1641 subwf lo,W
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1642 btfss STATUS,C
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1643 bra tft_compass_cardinal_NE
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1644 movlw .113
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1645 subwf lo,W
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1646 btfss STATUS,C
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1647 bra tft_compass_cardinal_E
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1648 movlw .158
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1649 subwf lo,W
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1650 btfss STATUS,C
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1651 bra tft_compass_cardinal_SE
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1652 movlw .203
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1653 subwf lo,W
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1654 btfss STATUS,C
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1655 bra tft_compass_cardinal_S
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1656 movlw .248
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1657 subwf lo,W
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1658 btfss STATUS,C
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1659 bra tft_compass_cardinal_SW
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1660 bra tft_compass_cardinal_W
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1661
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1662 tft_compass_cardinal2:
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1663 movlw .37
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1664 subwf lo,W
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1665 btfss STATUS,C
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1666 bra tft_compass_cardinal_W
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1667 movlw .82
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1668 subwf lo,W
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1669 btfss STATUS,C
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1670 bra tft_compass_cardinal_NW
239
6c4ad243cb44 CNANGE: aGF pair has same range then normal GF pair
heinrichsweikamp
parents: 236
diff changeset
1671 ; bra tft_compass_cardinal_N
29
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1672 tft_compass_cardinal_N:
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1673 STRCAT_TEXT tN
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1674 return
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1675 tft_compass_cardinal_NE:
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1676 STRCAT_TEXT tNE
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1677 return
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1678 tft_compass_cardinal_E:
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1679 STRCAT_TEXT tE
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1680 return
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1681 tft_compass_cardinal_SE:
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1682 STRCAT_TEXT tSE
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1683 return
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1684 tft_compass_cardinal_S:
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1685 STRCAT_TEXT tS
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1686 return
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1687 tft_compass_cardinal_SW:
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1688 STRCAT_TEXT tSW
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1689 return
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1690 tft_compass_cardinal_W:
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1691 STRCAT_TEXT tW
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1692 return
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1693 tft_compass_cardinal_NW:
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1694 STRCAT_TEXT tNW
50c3e2c7ba7a adding cardinal (and ordinal) directions for the compass
heinrichsweikamp
parents: 24
diff changeset
1695 return
0
heinrichsweikamp
parents:
diff changeset
1696
heinrichsweikamp
parents:
diff changeset
1697 compass_heading_common:
191
heinrichsweikamp
parents: 189
diff changeset
1698 call speed_normal
214
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1699 movlw compass_averaging ; numbers of extra averaging
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1700 movwf up
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1701 compass_heading_common2:
0
heinrichsweikamp
parents:
diff changeset
1702 rcall TFT_get_compass
214
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1703 decfsz up,F
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1704 bra compass_heading_common2
191
heinrichsweikamp
parents: 189
diff changeset
1705 extern compass
0
heinrichsweikamp
parents:
diff changeset
1706 call compass ; Do compass corrections.
heinrichsweikamp
parents:
diff changeset
1707 banksel common
16
7b06f20881be calm compass reading for minor heading changes
heinrichsweikamp
parents: 13
diff changeset
1708
7b06f20881be calm compass reading for minor heading changes
heinrichsweikamp
parents: 13
diff changeset
1709 ; More then compass_fast_treshold?
7b06f20881be calm compass reading for minor heading changes
heinrichsweikamp
parents: 13
diff changeset
1710 movff compass_heading_old+0,sub_a+0
7b06f20881be calm compass reading for minor heading changes
heinrichsweikamp
parents: 13
diff changeset
1711 movff compass_heading_old+1,sub_a+1
7b06f20881be calm compass reading for minor heading changes
heinrichsweikamp
parents: 13
diff changeset
1712 movff compass_heading+0,sub_b+0
7b06f20881be calm compass reading for minor heading changes
heinrichsweikamp
parents: 13
diff changeset
1713 movff compass_heading+1,sub_b+1
7b06f20881be calm compass reading for minor heading changes
heinrichsweikamp
parents: 13
diff changeset
1714 call sub16
214
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1715 btfss neg_flag ; <0?
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1716 bra compass_heading_common3 ; No, test for threshold
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1717 ; Yes, subtract the other way round
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1718 movff compass_heading+0,sub_a+0
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1719 movff compass_heading+1,sub_a+1
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1720 movff compass_heading_old+0,sub_b+0
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1721 movff compass_heading_old+1,sub_b+1
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1722 call sub16
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1723 compass_heading_common3:
16
7b06f20881be calm compass reading for minor heading changes
heinrichsweikamp
parents: 13
diff changeset
1724 movff compass_heading+0,compass_heading_old+0 ; copy new "old"
7b06f20881be calm compass reading for minor heading changes
heinrichsweikamp
parents: 13
diff changeset
1725 movff compass_heading+1,compass_heading_old+1
7b06f20881be calm compass reading for minor heading changes
heinrichsweikamp
parents: 13
diff changeset
1726
7b06f20881be calm compass reading for minor heading changes
heinrichsweikamp
parents: 13
diff changeset
1727 bcf compass_fast_mode
7b06f20881be calm compass reading for minor heading changes
heinrichsweikamp
parents: 13
diff changeset
1728 movlw compass_fast_treshold
7b06f20881be calm compass reading for minor heading changes
heinrichsweikamp
parents: 13
diff changeset
1729 cpfslt sub_c+0 ; > compass_fast_treshold?
7b06f20881be calm compass reading for minor heading changes
heinrichsweikamp
parents: 13
diff changeset
1730 bsf compass_fast_mode ; Yes!
170
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1731
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1732 btfss compass_fast_mode ; In fast mode?
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1733 return ; No.
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1734 ; Yes.
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1735 movff compass_heading+0,lo
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1736 movff compass_heading+1,hi
214
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1737 rcall TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
170
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1738 movff lo,compass_heading_shown+0
8bcb064b4fb8 CHANGE: Compass readout smoothed
heinrichsweikamp
parents: 154
diff changeset
1739 movff hi,compass_heading_shown+1
0
heinrichsweikamp
parents:
diff changeset
1740 return
heinrichsweikamp
parents:
diff changeset
1741
heinrichsweikamp
parents:
diff changeset
1742 TFT_get_compass:
heinrichsweikamp
parents:
diff changeset
1743 call I2C_RX_compass ; Test Compass
heinrichsweikamp
parents:
diff changeset
1744 call I2C_RX_accelerometer ; Test Accelerometer
191
heinrichsweikamp
parents: 189
diff changeset
1745 extern compass_filter
0
heinrichsweikamp
parents:
diff changeset
1746 call compass_filter ; Filter Raw compass + accel readings.
heinrichsweikamp
parents:
diff changeset
1747 banksel common
heinrichsweikamp
parents:
diff changeset
1748 return
heinrichsweikamp
parents:
diff changeset
1749
heinrichsweikamp
parents:
diff changeset
1750 global TFT_debug_output
heinrichsweikamp
parents:
diff changeset
1751 TFT_debug_output:
117
heinrichsweikamp
parents: 116
diff changeset
1752 return
113
heinrichsweikamp
parents: 106
diff changeset
1753 WIN_TINY .80,.0
heinrichsweikamp
parents: 106
diff changeset
1754 call TFT_standard_color
heinrichsweikamp
parents: 106
diff changeset
1755 lfsr FSR2,buffer
227
03946aa48fa5 NEW: Support for hwHUD without the LED module
heinrichsweikamp
parents: 225
diff changeset
1756 movff hud_status_byte,lo
203
dd9b167e82dc 1.64 (Fix ambient light for cR)
heinrichsweikamp
parents: 200
diff changeset
1757 output_8
0
heinrichsweikamp
parents:
diff changeset
1758 STRCAT_PRINT ""
123
d076e9c02438 add ceiling display
heinrichsweikamp
parents: 122
diff changeset
1759 return
0
heinrichsweikamp
parents:
diff changeset
1760
55
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1761 global TFT_divetimeout ; Show timeout counter
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1762 TFT_divetimeout:
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1763 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
1764 tstfsz WREG ; Is there room for the warning?
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1765 return ; No
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1766
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1767 call TFT_standard_color
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1768 STRCPY 0x94 ; "End of dive" icon
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1769 movlw LOW divemode_timeout
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1770 movwf sub_a+0
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1771 movlw HIGH divemode_timeout
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1772 movwf sub_a+1
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1773 movff timeout_counter,sub_b+0
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1774 movff timeout_counter2,sub_b+1
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1775 call subU16 ; sub_c = sub_a - sub_b (with UNSIGNED values)
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1776 movff sub_c+0, lo
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1777 movff sub_c+1, hi
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1778 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
1779 movf hi,W
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1780 movff lo,hi
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1781 movwf lo ; exchange lo and hi
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1782 output_99x
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1783 PUTC ':'
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1784 movff hi,lo
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1785 output_99x
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1786 movlw warning_length ; Divemode string length
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1787 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
1788 STRCAT_PRINT ""
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1789 return
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
1790
0
heinrichsweikamp
parents:
diff changeset
1791 global TFT_ftts
heinrichsweikamp
parents:
diff changeset
1792 TFT_ftts:
heinrichsweikamp
parents:
diff changeset
1793 movff char_I_extra_time,lo
heinrichsweikamp
parents:
diff changeset
1794 tstfsz lo
heinrichsweikamp
parents:
diff changeset
1795 bra $+4
heinrichsweikamp
parents:
diff changeset
1796 return ; char_I_extra_time=0, return.
heinrichsweikamp
parents:
diff changeset
1797 incf warning_counter,F ; increase counter
heinrichsweikamp
parents:
diff changeset
1798 call TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
1799 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
1800 return ; No
heinrichsweikamp
parents:
diff changeset
1801 movff char_I_extra_time,lo
heinrichsweikamp
parents:
diff changeset
1802 STRCPY "@+"
heinrichsweikamp
parents:
diff changeset
1803 bsf leftbind
heinrichsweikamp
parents:
diff changeset
1804 output_8
heinrichsweikamp
parents:
diff changeset
1805 PUTC ":"
heinrichsweikamp
parents:
diff changeset
1806 movff int_O_extra_ascenttime+0,lo
heinrichsweikamp
parents:
diff changeset
1807 movff int_O_extra_ascenttime+1,hi
heinrichsweikamp
parents:
diff changeset
1808 movf lo,W
heinrichsweikamp
parents:
diff changeset
1809 iorwf hi,W ; extra_ascenttime == 0 ?
heinrichsweikamp
parents:
diff changeset
1810 bz TFT_ftts2 ; No deco
heinrichsweikamp
parents:
diff changeset
1811 movf lo,W ; extra_ascenttime == 0xFFFF ?
heinrichsweikamp
parents:
diff changeset
1812 andwf hi,W
heinrichsweikamp
parents:
diff changeset
1813 incf WREG,w
heinrichsweikamp
parents:
diff changeset
1814 bz TFT_ftts2 ; Wait...
heinrichsweikamp
parents:
diff changeset
1815 output_16
heinrichsweikamp
parents:
diff changeset
1816 bcf leftbind
heinrichsweikamp
parents:
diff changeset
1817 PUTC "'"
heinrichsweikamp
parents:
diff changeset
1818 movlw warning_length ; Divemode string length
heinrichsweikamp
parents:
diff changeset
1819 call TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
1820 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
1821 return
heinrichsweikamp
parents:
diff changeset
1822
heinrichsweikamp
parents:
diff changeset
1823 TFT_ftts2:
heinrichsweikamp
parents:
diff changeset
1824 STRCAT "---"
heinrichsweikamp
parents:
diff changeset
1825 bcf leftbind
heinrichsweikamp
parents:
diff changeset
1826 movlw warning_length ; Divemode string length
heinrichsweikamp
parents:
diff changeset
1827 call TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
1828 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
1829 return
heinrichsweikamp
parents:
diff changeset
1830
heinrichsweikamp
parents:
diff changeset
1831
heinrichsweikamp
parents:
diff changeset
1832 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
1833
heinrichsweikamp
parents:
diff changeset
1834 global TFT_temp_surfmode
heinrichsweikamp
parents:
diff changeset
1835 TFT_temp_surfmode:
heinrichsweikamp
parents:
diff changeset
1836 WIN_SMALL surf_temp_column,surf_temp_row
heinrichsweikamp
parents:
diff changeset
1837 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1838
heinrichsweikamp
parents:
diff changeset
1839 SAFE_2BYTE_COPY temperature, lo
heinrichsweikamp
parents:
diff changeset
1840
heinrichsweikamp
parents:
diff changeset
1841 TSTOSS opt_units ; 0=°C, 1=°F
heinrichsweikamp
parents:
diff changeset
1842 bra TFT_temp_surfmode_metric
heinrichsweikamp
parents:
diff changeset
1843
heinrichsweikamp
parents:
diff changeset
1844 ;TFT_temp_surfmode_imperial:
214
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1845 rcall TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
0
heinrichsweikamp
parents:
diff changeset
1846 call convert_celsius_to_fahrenheit ; convert value in lo:hi from celsius to fahrenheit
heinrichsweikamp
parents:
diff changeset
1847 lfsr FSR2,buffer ; Overwrite "-"
heinrichsweikamp
parents:
diff changeset
1848 bsf ignore_digit5 ; Full degrees only
heinrichsweikamp
parents:
diff changeset
1849 output_16
heinrichsweikamp
parents:
diff changeset
1850 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
1851 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
1852 WIN_SMALL surf_temp_column+4*8,surf_temp_row
heinrichsweikamp
parents:
diff changeset
1853 STRCPY_PRINT "°F"
heinrichsweikamp
parents:
diff changeset
1854 return
heinrichsweikamp
parents:
diff changeset
1855
heinrichsweikamp
parents:
diff changeset
1856 TFT_temp_surfmode_metric:
214
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1857 rcall TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
0
heinrichsweikamp
parents:
diff changeset
1858 movlw d'3'
heinrichsweikamp
parents:
diff changeset
1859 movwf ignore_digits
heinrichsweikamp
parents:
diff changeset
1860 bsf ignore_digit5 ; Full degrees only
heinrichsweikamp
parents:
diff changeset
1861 output_16
heinrichsweikamp
parents:
diff changeset
1862
13
2af021c66b0d fix negative temperature display in surfacemode
heinrichsweikamp
parents: 11
diff changeset
1863 ; read-back the buffer+4
2af021c66b0d fix negative temperature display in surfacemode
heinrichsweikamp
parents: 11
diff changeset
1864 movff buffer+4,lo
0
heinrichsweikamp
parents:
diff changeset
1865 movlw " " ; Space
heinrichsweikamp
parents:
diff changeset
1866 cpfseq lo ; Was it a space (between +1°C and -1°C)?
heinrichsweikamp
parents:
diff changeset
1867 bra TFT_temp_surfmode1 ; No.
heinrichsweikamp
parents:
diff changeset
1868 movlw "0" ; Yes, print manual zero
heinrichsweikamp
parents:
diff changeset
1869 movff WREG,buffer+3
heinrichsweikamp
parents:
diff changeset
1870 bra TFT_temp_surfmode2
heinrichsweikamp
parents:
diff changeset
1871 TFT_temp_surfmode1:
heinrichsweikamp
parents:
diff changeset
1872 ; Test if output was negative (Flag set in TFT_convert_signed_16bit)
heinrichsweikamp
parents:
diff changeset
1873 btfss neg_flag ; Negative temperature?
heinrichsweikamp
parents:
diff changeset
1874 bra TFT_temp_surfmode3 ; No, continue
heinrichsweikamp
parents:
diff changeset
1875 ; Yes, negative temperature!
heinrichsweikamp
parents:
diff changeset
1876 movff buffer+3,buffer+2 ; remove two spaces manually
heinrichsweikamp
parents:
diff changeset
1877 movff buffer+4,buffer+3
heinrichsweikamp
parents:
diff changeset
1878 TFT_temp_surfmode2:
heinrichsweikamp
parents:
diff changeset
1879 movlw 0x00
heinrichsweikamp
parents:
diff changeset
1880 movff WREG,buffer+4
heinrichsweikamp
parents:
diff changeset
1881 TFT_temp_surfmode3:
heinrichsweikamp
parents:
diff changeset
1882 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
1883 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
1884 WIN_SMALL surf_temp_column+4*8,surf_temp_row
heinrichsweikamp
parents:
diff changeset
1885 STRCPY_PRINT "°C"
heinrichsweikamp
parents:
diff changeset
1886 return
heinrichsweikamp
parents:
diff changeset
1887
heinrichsweikamp
parents:
diff changeset
1888 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
1889 global TFT_divemode_menu_cursor
heinrichsweikamp
parents:
diff changeset
1890 TFT_divemode_menu_cursor:
heinrichsweikamp
parents:
diff changeset
1891 WIN_BOX_BLACK divemode_menu_item1_row,divemode_menu_item3_row+.24,divemode_menu_item1_column-.8,divemode_menu_item1_column-.1
heinrichsweikamp
parents:
diff changeset
1892 WIN_BOX_BLACK divemode_menu_item4_row,divemode_menu_item6_row+.24,divemode_menu_item4_column-.8,divemode_menu_item4_column-.1
heinrichsweikamp
parents:
diff changeset
1893 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1894
heinrichsweikamp
parents:
diff changeset
1895 movlw divemode_menu_item1_column-.8
heinrichsweikamp
parents:
diff changeset
1896 btfsc menupos,2 ; >3?
heinrichsweikamp
parents:
diff changeset
1897 movlw divemode_menu_item4_column-.8 ; Yes
heinrichsweikamp
parents:
diff changeset
1898 movff WREG,win_leftx2
heinrichsweikamp
parents:
diff changeset
1899
heinrichsweikamp
parents:
diff changeset
1900 movff menupos,lo ; Copy menu pos
heinrichsweikamp
parents:
diff changeset
1901 movlw divemode_menu_item6_row
heinrichsweikamp
parents:
diff changeset
1902 dcfsnz lo,F
heinrichsweikamp
parents:
diff changeset
1903 movlw divemode_menu_item1_row
heinrichsweikamp
parents:
diff changeset
1904 dcfsnz lo,F
heinrichsweikamp
parents:
diff changeset
1905 movlw divemode_menu_item2_row
heinrichsweikamp
parents:
diff changeset
1906 dcfsnz lo,F
heinrichsweikamp
parents:
diff changeset
1907 movlw divemode_menu_item3_row
heinrichsweikamp
parents:
diff changeset
1908 dcfsnz lo,F
heinrichsweikamp
parents:
diff changeset
1909 movlw divemode_menu_item4_row
heinrichsweikamp
parents:
diff changeset
1910 dcfsnz lo,F
heinrichsweikamp
parents:
diff changeset
1911 movlw divemode_menu_item5_row
heinrichsweikamp
parents:
diff changeset
1912 movff WREG,win_top
heinrichsweikamp
parents:
diff changeset
1913 movlw FT_SMALL
heinrichsweikamp
parents:
diff changeset
1914 movff WREG,win_font
heinrichsweikamp
parents:
diff changeset
1915 STRCPY_PRINT "\xb7" ; print cursor
heinrichsweikamp
parents:
diff changeset
1916 return
heinrichsweikamp
parents:
diff changeset
1917
heinrichsweikamp
parents:
diff changeset
1918 global TFT_temp_divemode
heinrichsweikamp
parents:
diff changeset
1919 TFT_temp_divemode:
heinrichsweikamp
parents:
diff changeset
1920 btfsc divemode_menu ; Is the dive mode menu shown?
heinrichsweikamp
parents:
diff changeset
1921 return ; Yes, return
heinrichsweikamp
parents:
diff changeset
1922 btfsc blinking_better_gas ; blinking better Gas?
heinrichsweikamp
parents:
diff changeset
1923 return ; Yes, no update of temperature now
heinrichsweikamp
parents:
diff changeset
1924 ; temperature
heinrichsweikamp
parents:
diff changeset
1925 WIN_SMALL dive_temp_column,dive_temp_row
heinrichsweikamp
parents:
diff changeset
1926 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
1927 bsf leftbind
heinrichsweikamp
parents:
diff changeset
1928
heinrichsweikamp
parents:
diff changeset
1929 SAFE_2BYTE_COPY temperature, lo
heinrichsweikamp
parents:
diff changeset
1930 TSTOSS opt_units ; 0=°C, 1=°F
heinrichsweikamp
parents:
diff changeset
1931 bra TFT_temp_divemode_metric
heinrichsweikamp
parents:
diff changeset
1932
heinrichsweikamp
parents:
diff changeset
1933 ;TFT_temp_divemode_imperial:
214
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1934 rcall TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
0
heinrichsweikamp
parents:
diff changeset
1935 call convert_celsius_to_fahrenheit ; convert value in lo:hi from celsius to fahrenheit
heinrichsweikamp
parents:
diff changeset
1936 lfsr FSR2,buffer ; Overwrite "-" (There won't be less then -18°C underwater...)
heinrichsweikamp
parents:
diff changeset
1937 bsf ignore_digit5 ; Full degrees only
heinrichsweikamp
parents:
diff changeset
1938 output_16
heinrichsweikamp
parents:
diff changeset
1939 STRCAT_TEXT tLogTunitF
heinrichsweikamp
parents:
diff changeset
1940 TFT_temp_divemode_common:
heinrichsweikamp
parents:
diff changeset
1941 bcf leftbind
heinrichsweikamp
parents:
diff changeset
1942 movlw .4 ; limit to three chars
heinrichsweikamp
parents:
diff changeset
1943 call TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
1944 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
1945 return ; Done.
heinrichsweikamp
parents:
diff changeset
1946
heinrichsweikamp
parents:
diff changeset
1947 TFT_temp_divemode_metric:
214
a17359244d93 compass changes
heinrichsweikamp
parents: 213
diff changeset
1948 rcall TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
0
heinrichsweikamp
parents:
diff changeset
1949 movlw d'3'
heinrichsweikamp
parents:
diff changeset
1950 movwf ignore_digits
heinrichsweikamp
parents:
diff changeset
1951 bsf ignore_digit5 ; Full degrees only
heinrichsweikamp
parents:
diff changeset
1952 output_16
heinrichsweikamp
parents:
diff changeset
1953 STRCAT_TEXT tLogTunitC
heinrichsweikamp
parents:
diff changeset
1954 bra TFT_temp_divemode_common ; Done.
heinrichsweikamp
parents:
diff changeset
1955
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1956 TFT_active_setpoint2:
0
heinrichsweikamp
parents:
diff changeset
1957 movff char_I_const_ppO2,lo
heinrichsweikamp
parents:
diff changeset
1958 TFT_color_code warn_ppo2_hud ; With ppO2 [cbar] in lo
heinrichsweikamp
parents:
diff changeset
1959 clrf hi
heinrichsweikamp
parents:
diff changeset
1960 bsf leftbind
heinrichsweikamp
parents:
diff changeset
1961 output_16dp d'3'
heinrichsweikamp
parents:
diff changeset
1962 bcf leftbind
heinrichsweikamp
parents:
diff changeset
1963 STRCAT_TEXT tbar
heinrichsweikamp
parents:
diff changeset
1964 TSTOSS opt_ccr_mode ; =0: Fixed SP, =1: Sensor
heinrichsweikamp
parents:
diff changeset
1965 bra $+4
heinrichsweikamp
parents:
diff changeset
1966 PUTC "*"
heinrichsweikamp
parents:
diff changeset
1967 STRCAT_PRINT ""
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1968 return
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1969
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1970 TFT_active_setpoint: ; Show setpoint
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1971 WIN_STD active_gas_column,active_gas_row
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1972 call TFT_standard_color
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1973 btfsc is_bailout ; =1: Bailout
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1974 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
1975
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1976 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
1977
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1978 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
1979 bra TFT_active_setpoint_diluent ; Done.
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1980 btg blinking_setpoint ; Toggle blink bit...
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1981 btfss blinking_setpoint ; blink now?
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1982 bra TFT_active_setpoint_diluent ; Done.
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1983
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1984 movlw color_yellow ; Blink in yellow
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1985 call TFT_set_color
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
1986 bsf win_invert ; Set invert flag
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
1987 WIN_STD active_gas_column,active_gas_row
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1988 movff char_I_const_ppO2,lo
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1989 clrf hi
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1990 bsf leftbind
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1991 output_16dp d'3'
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1992 bcf leftbind
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1993 STRCAT_TEXT tbar
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1994 TSTOSS opt_ccr_mode ; =0: Fixed SP, =1: Sensor
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1995 bra $+4
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1996 PUTC "*"
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
1997 STRCAT_PRINT ""
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
1998 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
1999
heinrichsweikamp
parents:
diff changeset
2000 TFT_active_setpoint_diluent:
heinrichsweikamp
parents:
diff changeset
2001 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2002 WIN_SMALL active_dil_column,active_dil_row
heinrichsweikamp
parents:
diff changeset
2003 movff char_I_O2_ratio,lo ; lo now stores O2 in %
heinrichsweikamp
parents:
diff changeset
2004 movff char_I_He_ratio,hi ; hi now stores He in %
heinrichsweikamp
parents:
diff changeset
2005 rcall TFT_show_dil_divemode2 ; Show diluent (Non-Inverted in all cases)
heinrichsweikamp
parents:
diff changeset
2006
heinrichsweikamp
parents:
diff changeset
2007 btfss better_gas_available ; =1: A better gas is available and a gas change is advised in divemode
heinrichsweikamp
parents:
diff changeset
2008 return ; Done.
heinrichsweikamp
parents:
diff changeset
2009 btg blinking_better_gas ; Toggle blink bit...
heinrichsweikamp
parents:
diff changeset
2010 btfss blinking_better_gas ; blink now?
heinrichsweikamp
parents:
diff changeset
2011 return ; No, Done.
heinrichsweikamp
parents:
diff changeset
2012
heinrichsweikamp
parents:
diff changeset
2013 movlw color_yellow ; Blink in yellow
heinrichsweikamp
parents:
diff changeset
2014 call TFT_set_color
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
2015 bsf win_invert ; Set invert flag
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
2016 WIN_SMALL active_dil_column,active_dil_row
0
heinrichsweikamp
parents:
diff changeset
2017 movff char_I_O2_ratio,lo ; lo now stores O2 in %
heinrichsweikamp
parents:
diff changeset
2018 movff char_I_He_ratio,hi ; hi now stores He in %
heinrichsweikamp
parents:
diff changeset
2019 rcall TFT_show_dil_divemode2 ; Show gas
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
2020 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
2021 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2022 return ; Done.
heinrichsweikamp
parents:
diff changeset
2023
heinrichsweikamp
parents:
diff changeset
2024 TFT_show_dil_divemode2:
heinrichsweikamp
parents:
diff changeset
2025 call customview_show_mix ; Put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2
heinrichsweikamp
parents:
diff changeset
2026 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2027 return
heinrichsweikamp
parents:
diff changeset
2028
heinrichsweikamp
parents:
diff changeset
2029 TFT_active_setpoint_bail:
heinrichsweikamp
parents:
diff changeset
2030 STRCPY_TEXT_PRINT tDiveBailout ; Bailout
heinrichsweikamp
parents:
diff changeset
2031 bra TFT_active_setpoint_diluent
heinrichsweikamp
parents:
diff changeset
2032
heinrichsweikamp
parents:
diff changeset
2033 global TFT_active_gas_divemode
heinrichsweikamp
parents:
diff changeset
2034 TFT_active_gas_divemode: ; Display gas/Setpoint
heinrichsweikamp
parents:
diff changeset
2035 btfsc divemode_menu ; Is the dive mode menu shown?
heinrichsweikamp
parents:
diff changeset
2036 return ; Yes, return
heinrichsweikamp
parents:
diff changeset
2037 btfsc FLAG_apnoe_mode ; Ignore in Apnoe mode
heinrichsweikamp
parents:
diff changeset
2038 return
heinrichsweikamp
parents:
diff changeset
2039 btfsc FLAG_ccr_mode ; in CCR mode
heinrichsweikamp
parents:
diff changeset
2040 bra TFT_active_setpoint ; Yes, show setpoint
heinrichsweikamp
parents:
diff changeset
2041
heinrichsweikamp
parents:
diff changeset
2042 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2043 WIN_STD active_gas_column,active_gas_row
heinrichsweikamp
parents:
diff changeset
2044 movff char_I_O2_ratio,lo ; lo now stores O2 in %
heinrichsweikamp
parents:
diff changeset
2045 movff char_I_He_ratio,hi ; hi now stores He in %
heinrichsweikamp
parents:
diff changeset
2046 rcall TFT_active_gas_divemode2 ; Show gas (Non-Inverted in all cases)
heinrichsweikamp
parents:
diff changeset
2047 btfss better_gas_available ; =1: A better gas is available and a gas change is advised in divemode
heinrichsweikamp
parents:
diff changeset
2048 return ; Done.
heinrichsweikamp
parents:
diff changeset
2049
heinrichsweikamp
parents:
diff changeset
2050 btg blinking_better_gas ; Toggle blink bit...
heinrichsweikamp
parents:
diff changeset
2051 btfss blinking_better_gas ; blink now?
heinrichsweikamp
parents:
diff changeset
2052 return ; No, Done.
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
2053 call TFT_attention_color ; blink in yellow
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
2054 bsf win_invert ; Set invert flag
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
2055 WIN_STD active_gas_column,active_gas_row
0
heinrichsweikamp
parents:
diff changeset
2056 movff char_I_O2_ratio,lo ; lo now stores O2 in %
heinrichsweikamp
parents:
diff changeset
2057 movff char_I_He_ratio,hi ; hi now stores He in %
heinrichsweikamp
parents:
diff changeset
2058 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
2059 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
2060 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2061 return ; Done.
heinrichsweikamp
parents:
diff changeset
2062
heinrichsweikamp
parents:
diff changeset
2063 TFT_active_gas_divemode2:
heinrichsweikamp
parents:
diff changeset
2064 call customview_show_mix ; Put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2
heinrichsweikamp
parents:
diff changeset
2065 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2066 return
heinrichsweikamp
parents:
diff changeset
2067
heinrichsweikamp
parents:
diff changeset
2068 global TFT_display_decotype_surface
heinrichsweikamp
parents:
diff changeset
2069 TFT_display_decotype_surface:
heinrichsweikamp
parents:
diff changeset
2070 WIN_STD surf_decotype_column,surf_decotype_row
heinrichsweikamp
parents:
diff changeset
2071 WIN_COLOR color_lightblue
heinrichsweikamp
parents:
diff changeset
2072 movff opt_dive_mode,lo ; 0=OC, 1=CC, 2=Gauge, 3=Apnea
heinrichsweikamp
parents:
diff changeset
2073 tstfsz lo
heinrichsweikamp
parents:
diff changeset
2074 bra TFT_display_decotype_surface2
116
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2075 TFT_display_decotype_surface0:
0
heinrichsweikamp
parents:
diff changeset
2076 STRCAT_TEXT_PRINT tDvOC ; OC
heinrichsweikamp
parents:
diff changeset
2077 bra TFT_display_decotype_exit
heinrichsweikamp
parents:
diff changeset
2078 TFT_display_decotype_surface2:
heinrichsweikamp
parents:
diff changeset
2079 decfsz lo,F
heinrichsweikamp
parents:
diff changeset
2080 bra TFT_display_decotype_surface3
113
heinrichsweikamp
parents: 106
diff changeset
2081 STRCAT_TEXT_PRINT tDvCC ; CC
heinrichsweikamp
parents: 106
diff changeset
2082 call TFT_standard_color
heinrichsweikamp
parents: 106
diff changeset
2083 WIN_TINY surf_decotype_column+.18,surf_decotype_row+.12
heinrichsweikamp
parents: 106
diff changeset
2084
heinrichsweikamp
parents: 106
diff changeset
2085 TSTOSS opt_ccr_mode ; =0: Fixed SP, =1: Sensor
heinrichsweikamp
parents: 106
diff changeset
2086 bra TFT_display_decotype_cc_fixed
heinrichsweikamp
parents: 106
diff changeset
2087 ; Sensor mode
heinrichsweikamp
parents: 106
diff changeset
2088 STRCPY_TEXT tCCRModeSensor ; Sensor
heinrichsweikamp
parents: 106
diff changeset
2089 bra TFT_display_decotype_cc_common
heinrichsweikamp
parents: 106
diff changeset
2090 TFT_display_decotype_cc_fixed:
heinrichsweikamp
parents: 106
diff changeset
2091 STRCPY_TEXT tCCRModeFixedSP ; Fixed
heinrichsweikamp
parents: 106
diff changeset
2092 TFT_display_decotype_cc_common:
heinrichsweikamp
parents: 106
diff changeset
2093 STRCAT_PRINT ""
0
heinrichsweikamp
parents:
diff changeset
2094 bra TFT_display_decotype_exit
heinrichsweikamp
parents:
diff changeset
2095 TFT_display_decotype_surface3:
heinrichsweikamp
parents:
diff changeset
2096 decfsz lo,F
heinrichsweikamp
parents:
diff changeset
2097 bra TFT_display_decotype_surface4
116
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2098 TFT_display_decotype_surface3_1:
0
heinrichsweikamp
parents:
diff changeset
2099 STRCAT_TEXT_PRINT tDvGauge ; Gauge
heinrichsweikamp
parents:
diff changeset
2100 bra TFT_display_decotype_exit
heinrichsweikamp
parents:
diff changeset
2101 TFT_display_decotype_surface4:
heinrichsweikamp
parents:
diff changeset
2102 STRCAT_TEXT_PRINT tDvApnea ; Apnea
heinrichsweikamp
parents:
diff changeset
2103 TFT_display_decotype_exit:
heinrichsweikamp
parents:
diff changeset
2104 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2105 return
40
1e2d2b0bca5b Bugfix: Simulator in CC mode
mh@mh-THINK.fritz.box
parents: 38
diff changeset
2106
116
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2107 global TFT_display_decotype_surface1 ; Used from logbook!
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2108 TFT_display_decotype_surface1: ; Used from logbook!
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2109 tstfsz lo
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2110 bra TFT_display_decotype_surface1_2
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2111 bra TFT_display_decotype_surface0 ;OC
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2112 TFT_display_decotype_surface1_2:
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2113 decfsz lo,F
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2114 bra TFT_display_decotype_surface1_3
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2115 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
2116 TFT_display_decotype_surface1_3:
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2117 decfsz lo,F
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2118 bra TFT_display_decotype_surface4 ; Apnea
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2119 bra TFT_display_decotype_surface3_1 ; Gauge
737d6f488729 show decomode in logbook and simulator w/o sensor type
heinrichsweikamp
parents: 113
diff changeset
2120
0
heinrichsweikamp
parents:
diff changeset
2121 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2122
heinrichsweikamp
parents:
diff changeset
2123 global TFT_splist_surfmode ; Show Setpoint list
heinrichsweikamp
parents:
diff changeset
2124 extern gaslist_strcat_setpoint
heinrichsweikamp
parents:
diff changeset
2125 TFT_splist_surfmode:
heinrichsweikamp
parents:
diff changeset
2126 bsf short_gas_decriptions ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint
heinrichsweikamp
parents:
diff changeset
2127 ;SP 1
heinrichsweikamp
parents:
diff changeset
2128 WIN_SMALL surf_gaslist_column,surf_gaslist_row
heinrichsweikamp
parents:
diff changeset
2129 clrf PRODL
heinrichsweikamp
parents:
diff changeset
2130 call gaslist_strcat_setpoint ; Show SP#+1 of PRODL#
heinrichsweikamp
parents:
diff changeset
2131 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2132 ;SP 2
heinrichsweikamp
parents:
diff changeset
2133 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.1)
heinrichsweikamp
parents:
diff changeset
2134 movlw .1
heinrichsweikamp
parents:
diff changeset
2135 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2136 call gaslist_strcat_setpoint ; Show SP#+1 of PRODL#
heinrichsweikamp
parents:
diff changeset
2137 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2138 ;SP 3
heinrichsweikamp
parents:
diff changeset
2139 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.2)
heinrichsweikamp
parents:
diff changeset
2140 movlw .2
heinrichsweikamp
parents:
diff changeset
2141 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2142 call gaslist_strcat_setpoint ; Show SP#+1 of PRODL#
heinrichsweikamp
parents:
diff changeset
2143 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2144 ;SP 4
heinrichsweikamp
parents:
diff changeset
2145 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.3)
heinrichsweikamp
parents:
diff changeset
2146 movlw .3
heinrichsweikamp
parents:
diff changeset
2147 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2148 call gaslist_strcat_setpoint ; Show SP#+1 of PRODL#
heinrichsweikamp
parents:
diff changeset
2149 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2150 ;SP 5
heinrichsweikamp
parents:
diff changeset
2151 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.4)
heinrichsweikamp
parents:
diff changeset
2152 movlw .4
heinrichsweikamp
parents:
diff changeset
2153 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2154 call gaslist_strcat_setpoint ; Show SP#+1 of PRODL#
heinrichsweikamp
parents:
diff changeset
2155 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2156 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2157 return
heinrichsweikamp
parents:
diff changeset
2158
heinrichsweikamp
parents:
diff changeset
2159 global TFT_gaslist_surfmode
heinrichsweikamp
parents:
diff changeset
2160 TFT_gaslist_surfmode: ; Displays Gas List
heinrichsweikamp
parents:
diff changeset
2161 bsf short_gas_decriptions ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint
heinrichsweikamp
parents:
diff changeset
2162 extern gaslist_strcat_gas_mod
heinrichsweikamp
parents:
diff changeset
2163 ;Gas 1
heinrichsweikamp
parents:
diff changeset
2164 WIN_SMALL surf_gaslist_column,surf_gaslist_row
heinrichsweikamp
parents:
diff changeset
2165 movlw .0
heinrichsweikamp
parents:
diff changeset
2166 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2167 call gaslist_strcat_gas_mod ;Append gas description of gas #PRODL (0-4) to current string
heinrichsweikamp
parents:
diff changeset
2168 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2169 ;Gas 2
heinrichsweikamp
parents:
diff changeset
2170 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.1)
heinrichsweikamp
parents:
diff changeset
2171 movlw .1
heinrichsweikamp
parents:
diff changeset
2172 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2173 call gaslist_strcat_gas_mod ;Append gas description of gas #PRODL (0-4) to current string
heinrichsweikamp
parents:
diff changeset
2174 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2175 ;Gas 3
heinrichsweikamp
parents:
diff changeset
2176 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.2)
heinrichsweikamp
parents:
diff changeset
2177 movlw .2
heinrichsweikamp
parents:
diff changeset
2178 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2179 call gaslist_strcat_gas_mod ;Append gas description of gas #PRODL (0-4) to current string
heinrichsweikamp
parents:
diff changeset
2180 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2181 ;Gas 4
heinrichsweikamp
parents:
diff changeset
2182 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.3)
heinrichsweikamp
parents:
diff changeset
2183 movlw .3
heinrichsweikamp
parents:
diff changeset
2184 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2185 call gaslist_strcat_gas_mod ;Append gas description of gas #PRODL (0-4) to current string
heinrichsweikamp
parents:
diff changeset
2186 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2187 ;Gas 5
heinrichsweikamp
parents:
diff changeset
2188 WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.4)
heinrichsweikamp
parents:
diff changeset
2189 movlw .4
heinrichsweikamp
parents:
diff changeset
2190 movwf PRODL
heinrichsweikamp
parents:
diff changeset
2191 call gaslist_strcat_gas_mod ;Append gas description of gas #PRODL (0-4) to current string
heinrichsweikamp
parents:
diff changeset
2192 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2193 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2194 return
heinrichsweikamp
parents:
diff changeset
2195
heinrichsweikamp
parents:
diff changeset
2196 global TFT_dillist_surfmode
heinrichsweikamp
parents:
diff changeset
2197 TFT_dillist_surfmode: ; Displays Diluent List
heinrichsweikamp
parents:
diff changeset
2198 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
2199 bsf ccr_diluent_setup ; Use CCR Diluents...
d097e10b383b CHANGE: Draw a frame around the dive mode menu
heinrichsweikamp
parents: 170
diff changeset
2200 rcall TFT_gaslist_surfmode ; Use OC/BAIL routine
d097e10b383b CHANGE: Draw a frame around the dive mode menu
heinrichsweikamp
parents: 170
diff changeset
2201 bcf ccr_diluent_setup ; Clear flag
0
heinrichsweikamp
parents:
diff changeset
2202 return
heinrichsweikamp
parents:
diff changeset
2203
heinrichsweikamp
parents:
diff changeset
2204 global TFT_depth
heinrichsweikamp
parents:
diff changeset
2205 TFT_depth:
heinrichsweikamp
parents:
diff changeset
2206 SAFE_2BYTE_COPY rel_pressure, lo
heinrichsweikamp
parents:
diff changeset
2207 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
2208
heinrichsweikamp
parents:
diff changeset
2209 TSTOSS opt_units ; 0=m, 1=ft
heinrichsweikamp
parents:
diff changeset
2210 bra TFT_depth_metric
heinrichsweikamp
parents:
diff changeset
2211 ;TFT_depth_imperial
heinrichsweikamp
parents:
diff changeset
2212 WIN_LARGE depth_feet_column,depth_feet_row
heinrichsweikamp
parents:
diff changeset
2213 TFT_color_code warn_depth ; Color-code the output
heinrichsweikamp
parents:
diff changeset
2214
heinrichsweikamp
parents:
diff changeset
2215 clrf sub_a+1 ; Display 0ft if lower then 30cm
heinrichsweikamp
parents:
diff changeset
2216 movlw d'30'
heinrichsweikamp
parents:
diff changeset
2217 movwf sub_a+0
heinrichsweikamp
parents:
diff changeset
2218 movff hi,sub_b+1
heinrichsweikamp
parents:
diff changeset
2219 movff lo,sub_b+0
heinrichsweikamp
parents:
diff changeset
2220 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
2221 btfss neg_flag ; Depth lower then 0.4m?
heinrichsweikamp
parents:
diff changeset
2222 bra depth_less_0.3mtr_feet ; Yes, Show 0ft manually
heinrichsweikamp
parents:
diff changeset
2223
heinrichsweikamp
parents:
diff changeset
2224 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
2225 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2226 output_16 ; feet in Big font
heinrichsweikamp
parents:
diff changeset
2227 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2228 movlw .3 ; limit to three chars
heinrichsweikamp
parents:
diff changeset
2229 call TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
2230 STRCAT_PRINT "" ; Display feet
heinrichsweikamp
parents:
diff changeset
2231 return
126
9e856337b225 fix depth<0m display, ceiling
heinrichsweikamp
parents: 124
diff changeset
2232
0
heinrichsweikamp
parents:
diff changeset
2233 depth_less_0.3mtr_feet:
heinrichsweikamp
parents:
diff changeset
2234 STRCAT_PRINT "0 " ; manual zero
heinrichsweikamp
parents:
diff changeset
2235 return
heinrichsweikamp
parents:
diff changeset
2236
heinrichsweikamp
parents:
diff changeset
2237 TFT_depth_metric:
heinrichsweikamp
parents:
diff changeset
2238 WIN_LARGE depth_column,depth_row
heinrichsweikamp
parents:
diff changeset
2239 TFT_color_code warn_depth ; Color-code the output
heinrichsweikamp
parents:
diff changeset
2240
heinrichsweikamp
parents:
diff changeset
2241 movlw .039
heinrichsweikamp
parents:
diff changeset
2242 cpfslt hi
heinrichsweikamp
parents:
diff changeset
2243 bra depth_greater_99_84mtr
heinrichsweikamp
parents:
diff changeset
2244
heinrichsweikamp
parents:
diff changeset
2245 btfsc depth_greater_100m ; Was depth>100m during last call
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2246 rcall TFT_clear_depth ; Yes, clear depth area
0
heinrichsweikamp
parents:
diff changeset
2247 bcf depth_greater_100m ; Do this once only...
heinrichsweikamp
parents:
diff changeset
2248
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2249 movlw .039
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2250 cpfslt hi
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2251 bra depth_greater_99_84mtr
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2252
0
heinrichsweikamp
parents:
diff changeset
2253 movlw HIGH d'1000'
heinrichsweikamp
parents:
diff changeset
2254 movwf sub_a+1
heinrichsweikamp
parents:
diff changeset
2255 movlw LOW d'1000'
heinrichsweikamp
parents:
diff changeset
2256 movwf sub_a+0
heinrichsweikamp
parents:
diff changeset
2257 movff hi,sub_b+1
heinrichsweikamp
parents:
diff changeset
2258 movff lo,sub_b+0
heinrichsweikamp
parents:
diff changeset
2259 incf sub_b+0,F
heinrichsweikamp
parents:
diff changeset
2260 movlw d'0'
heinrichsweikamp
parents:
diff changeset
2261 addwfc sub_b+1,F ; Add 1mbar offset
heinrichsweikamp
parents:
diff changeset
2262 call sub16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
2263 movlw ' '
heinrichsweikamp
parents:
diff changeset
2264 btfss neg_flag ; Depth lower then 10m?
heinrichsweikamp
parents:
diff changeset
2265 movwf POSTINC2 ; Yes, add extra space
heinrichsweikamp
parents:
diff changeset
2266
heinrichsweikamp
parents:
diff changeset
2267 clrf sub_a+1
heinrichsweikamp
parents:
diff changeset
2268 movlw d'99'
heinrichsweikamp
parents:
diff changeset
2269 movwf sub_a+0
heinrichsweikamp
parents:
diff changeset
2270 movff hi,sub_b+1
heinrichsweikamp
parents:
diff changeset
2271 movff lo,sub_b+0
heinrichsweikamp
parents:
diff changeset
2272 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
2273 btfss neg_flag ; Depth lower then 1m?
heinrichsweikamp
parents:
diff changeset
2274 bra tft_depth2 ; Yes, display manual Zero
heinrichsweikamp
parents:
diff changeset
2275
heinrichsweikamp
parents:
diff changeset
2276 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2277 bsf ignore_digit4
heinrichsweikamp
parents:
diff changeset
2278 output_16 ; Full meters in Big font
heinrichsweikamp
parents:
diff changeset
2279 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2280 bra tft_depth3
heinrichsweikamp
parents:
diff changeset
2281
heinrichsweikamp
parents:
diff changeset
2282 tft_depth2:
153
heinrichsweikamp
parents: 151
diff changeset
2283 STRCAT "0" ; manual zero
0
heinrichsweikamp
parents:
diff changeset
2284
heinrichsweikamp
parents:
diff changeset
2285 tft_depth3:
heinrichsweikamp
parents:
diff changeset
2286 STRCAT_PRINT "" ; Display full meters
heinrichsweikamp
parents:
diff changeset
2287
heinrichsweikamp
parents:
diff changeset
2288 ; .1m in MEDIUM font
heinrichsweikamp
parents:
diff changeset
2289 WIN_MEDIUM depth_dm_column,depth_dm_row
heinrichsweikamp
parents:
diff changeset
2290 TFT_color_code warn_depth ; Color-code the output
heinrichsweikamp
parents:
diff changeset
2291
heinrichsweikamp
parents:
diff changeset
2292 SAFE_2BYTE_COPY rel_pressure, lo
heinrichsweikamp
parents:
diff changeset
2293 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
126
9e856337b225 fix depth<0m display, ceiling
heinrichsweikamp
parents: 124
diff changeset
2294
0
heinrichsweikamp
parents:
diff changeset
2295 PUTC "."
heinrichsweikamp
parents:
diff changeset
2296 movlw HIGH d'30' ; Display 0.0m if lower then 30cm
heinrichsweikamp
parents:
diff changeset
2297 movwf sub_a+1
heinrichsweikamp
parents:
diff changeset
2298 movlw LOW d'30'
heinrichsweikamp
parents:
diff changeset
2299 movwf sub_a+0
heinrichsweikamp
parents:
diff changeset
2300 movff hi,sub_b+1
heinrichsweikamp
parents:
diff changeset
2301 movff lo,sub_b+0
heinrichsweikamp
parents:
diff changeset
2302 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
2303 btfss neg_flag ; Depth lower then 0.3m?
heinrichsweikamp
parents:
diff changeset
2304 bra depth_less_0.3mtr ; Yes, Show ".0" manually
heinrichsweikamp
parents:
diff changeset
2305
heinrichsweikamp
parents:
diff changeset
2306 movlw d'4'
heinrichsweikamp
parents:
diff changeset
2307 movwf ignore_digits
heinrichsweikamp
parents:
diff changeset
2308 bsf ignore_digit5
heinrichsweikamp
parents:
diff changeset
2309 output_16dp d'0'
heinrichsweikamp
parents:
diff changeset
2310 STRCAT_PRINT "" ; Display decimeters
heinrichsweikamp
parents:
diff changeset
2311 WIN_FONT FT_SMALL
heinrichsweikamp
parents:
diff changeset
2312 return
heinrichsweikamp
parents:
diff changeset
2313
heinrichsweikamp
parents:
diff changeset
2314 depth_less_0.3mtr:
heinrichsweikamp
parents:
diff changeset
2315 STRCAT_PRINT "0" ; Display 0.0m manually
heinrichsweikamp
parents:
diff changeset
2316 WIN_FONT FT_SMALL
heinrichsweikamp
parents:
diff changeset
2317 return
heinrichsweikamp
parents:
diff changeset
2318
heinrichsweikamp
parents:
diff changeset
2319 depth_greater_99_84mtr: ; Display only in full meters
heinrichsweikamp
parents:
diff changeset
2320 btfss depth_greater_100m ; Is depth>100m already?
heinrichsweikamp
parents:
diff changeset
2321 rcall TFT_clear_depth ; No, clear depth area and set flag
heinrichsweikamp
parents:
diff changeset
2322 ; Depth is already in hi:lo
heinrichsweikamp
parents:
diff changeset
2323 ; Show depth in Full meters
heinrichsweikamp
parents:
diff changeset
2324 ; That means ignore figure 4 and 5
heinrichsweikamp
parents:
diff changeset
2325 lfsr FSR2,buffer
heinrichsweikamp
parents:
diff changeset
2326 bsf ignore_digit4
heinrichsweikamp
parents:
diff changeset
2327 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2328 output_16
heinrichsweikamp
parents:
diff changeset
2329 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2330 STRCAT_PRINT "" ; Display full meters only
heinrichsweikamp
parents:
diff changeset
2331 WIN_FONT FT_SMALL
heinrichsweikamp
parents:
diff changeset
2332 return
heinrichsweikamp
parents:
diff changeset
2333
heinrichsweikamp
parents:
diff changeset
2334 TFT_clear_depth: ; No, clear depth area and set flag
heinrichsweikamp
parents:
diff changeset
2335 WIN_BOX_BLACK depth_row, .77,.0, max_depth_column-.1 ;top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
2336 bsf depth_greater_100m ; Set Flag
heinrichsweikamp
parents:
diff changeset
2337 return
heinrichsweikamp
parents:
diff changeset
2338
heinrichsweikamp
parents:
diff changeset
2339 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2340
heinrichsweikamp
parents:
diff changeset
2341 global TFT_custom_text
heinrichsweikamp
parents:
diff changeset
2342 TFT_custom_text: ; Show the custom text
heinrichsweikamp
parents:
diff changeset
2343 lfsr FSR0, opt_name ; Source
heinrichsweikamp
parents:
diff changeset
2344 WIN_SMALL surf_customtext_column,surf_customtext_row1 ; First row
heinrichsweikamp
parents:
diff changeset
2345 rcall TFT_custom_text_2 ; Show up to 12 chars and print
heinrichsweikamp
parents:
diff changeset
2346 incfsz lo,F ; Was lo=255?
heinrichsweikamp
parents:
diff changeset
2347 return ; No, all done.
heinrichsweikamp
parents:
diff changeset
2348 lfsr FSR0, opt_name+.12 ; Source
heinrichsweikamp
parents:
diff changeset
2349 WIN_SMALL surf_customtext_column,surf_customtext_row2 ; Second row
heinrichsweikamp
parents:
diff changeset
2350 rcall TFT_custom_text_2 ; Show up to 12 chars and print
heinrichsweikamp
parents:
diff changeset
2351 incfsz lo,F ; Was lo=255?
heinrichsweikamp
parents:
diff changeset
2352 return ; No, all done.
heinrichsweikamp
parents:
diff changeset
2353 lfsr FSR0, opt_name+.24 ; Source
heinrichsweikamp
parents:
diff changeset
2354 WIN_SMALL surf_customtext_column,surf_customtext_row3 ; Third row
heinrichsweikamp
parents:
diff changeset
2355 rcall TFT_custom_text_2 ; Show up to 12 chars and print
heinrichsweikamp
parents:
diff changeset
2356 incfsz lo,F ; Was lo=255?
heinrichsweikamp
parents:
diff changeset
2357 return ; No, all done.
heinrichsweikamp
parents:
diff changeset
2358 lfsr FSR0, opt_name+.36 ; Source
heinrichsweikamp
parents:
diff changeset
2359 WIN_SMALL surf_customtext_column,surf_customtext_row4 ; Forth row
heinrichsweikamp
parents:
diff changeset
2360 rcall TFT_custom_text_2 ; Show up to 12 chars and print
heinrichsweikamp
parents:
diff changeset
2361 incfsz lo,F ; Was lo=255?
heinrichsweikamp
parents:
diff changeset
2362 return ; No, all done.
heinrichsweikamp
parents:
diff changeset
2363 lfsr FSR0, opt_name+.48 ; Source
heinrichsweikamp
parents:
diff changeset
2364 WIN_SMALL surf_customtext_column,surf_customtext_row5 ; Fifth row
heinrichsweikamp
parents:
diff changeset
2365 rcall TFT_custom_text_2 ; Show up to 12 chars and print
heinrichsweikamp
parents:
diff changeset
2366 return ; Done.
heinrichsweikamp
parents:
diff changeset
2367
heinrichsweikamp
parents:
diff changeset
2368 TFT_custom_text_2:
heinrichsweikamp
parents:
diff changeset
2369 lfsr FSR2, buffer ; destination
heinrichsweikamp
parents:
diff changeset
2370 movlw .12
heinrichsweikamp
parents:
diff changeset
2371 movwf lo ; length/line
heinrichsweikamp
parents:
diff changeset
2372 TFT_custom_text_3:
heinrichsweikamp
parents:
diff changeset
2373 movf POSTINC0,W ; Get byte
heinrichsweikamp
parents:
diff changeset
2374 bz TFT_custom_text_4 ; End if NULL
heinrichsweikamp
parents:
diff changeset
2375 movwf POSTINC2 ; NO: copy
heinrichsweikamp
parents:
diff changeset
2376 decfsz lo,F ; Max len reached ?
heinrichsweikamp
parents:
diff changeset
2377 bra TFT_custom_text_3 ; NO: loop
heinrichsweikamp
parents:
diff changeset
2378 setf lo ; lo=255 -> more to come
heinrichsweikamp
parents:
diff changeset
2379 TFT_custom_text_4:
heinrichsweikamp
parents:
diff changeset
2380 clrf POSTINC2 ; Mark end of string
heinrichsweikamp
parents:
diff changeset
2381 goto aa_wordprocessor ; print and return
heinrichsweikamp
parents:
diff changeset
2382
heinrichsweikamp
parents:
diff changeset
2383
heinrichsweikamp
parents:
diff changeset
2384 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2385 global TFT_update_surf_press
heinrichsweikamp
parents:
diff changeset
2386 TFT_update_surf_press:
heinrichsweikamp
parents:
diff changeset
2387 WIN_SMALL surf_press_column,surf_press_row
heinrichsweikamp
parents:
diff changeset
2388 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2389 SAFE_2BYTE_COPY amb_pressure, lo
heinrichsweikamp
parents:
diff changeset
2390 movff lo,sub_a+0
heinrichsweikamp
parents:
diff changeset
2391 movff hi,sub_a+1
heinrichsweikamp
parents:
diff changeset
2392 movff last_surfpressure_30min+0,sub_b+0
heinrichsweikamp
parents:
diff changeset
2393 movff last_surfpressure_30min+1,sub_b+1
heinrichsweikamp
parents:
diff changeset
2394 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
2395 btfsc neg_flag ; Pressure lower?
heinrichsweikamp
parents:
diff changeset
2396 rcall update_surf_press2 ; Yes, test threshold
heinrichsweikamp
parents:
diff changeset
2397
heinrichsweikamp
parents:
diff changeset
2398 tstfsz sub_c+1 ; >255mbar difference?
heinrichsweikamp
parents:
diff changeset
2399 bra update_surf_press_common; Yes, display!
heinrichsweikamp
parents:
diff changeset
2400 movlw d'10' ; 10mbar noise suppression
heinrichsweikamp
parents:
diff changeset
2401 subwf sub_c+0,W
heinrichsweikamp
parents:
diff changeset
2402 btfsc STATUS,C
heinrichsweikamp
parents:
diff changeset
2403 bra update_surf_press_common; Yes, display!
heinrichsweikamp
parents:
diff changeset
2404 SAFE_2BYTE_COPY last_surfpressure_30min, lo ; Overwrite with stable value...
heinrichsweikamp
parents:
diff changeset
2405
heinrichsweikamp
parents:
diff changeset
2406 update_surf_press_common:
heinrichsweikamp
parents:
diff changeset
2407 output_16
heinrichsweikamp
parents:
diff changeset
2408 ; Show only 4 figures
heinrichsweikamp
parents:
diff changeset
2409 movff buffer+1,buffer+0
heinrichsweikamp
parents:
diff changeset
2410 movff buffer+2,buffer+1
heinrichsweikamp
parents:
diff changeset
2411 movff buffer+3,buffer+2
heinrichsweikamp
parents:
diff changeset
2412 movff buffer+4,buffer+3
heinrichsweikamp
parents:
diff changeset
2413 movlw 0x00
heinrichsweikamp
parents:
diff changeset
2414 movff WREG,buffer+4
heinrichsweikamp
parents:
diff changeset
2415 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2416 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
2417 WIN_SMALL surf_press_column+4*8,surf_press_row
207
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2418 STRCPY_TEXT_PRINT tMBAR ; mbar
0
heinrichsweikamp
parents:
diff changeset
2419 return
heinrichsweikamp
parents:
diff changeset
2420
heinrichsweikamp
parents:
diff changeset
2421 update_surf_press2:
heinrichsweikamp
parents:
diff changeset
2422 movff lo,sub_b+0
heinrichsweikamp
parents:
diff changeset
2423 movff hi,sub_b+1
heinrichsweikamp
parents:
diff changeset
2424 movff last_surfpressure_30min+0,sub_a+0
heinrichsweikamp
parents:
diff changeset
2425 movff last_surfpressure_30min+1,sub_a+1
heinrichsweikamp
parents:
diff changeset
2426 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
2427 return
heinrichsweikamp
parents:
diff changeset
2428
heinrichsweikamp
parents:
diff changeset
2429 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2430
heinrichsweikamp
parents:
diff changeset
2431 global TFT_update_batt_voltage
heinrichsweikamp
parents:
diff changeset
2432 TFT_update_batt_voltage:
heinrichsweikamp
parents:
diff changeset
2433 movff batt_percent,lo ; Get battery percent
heinrichsweikamp
parents:
diff changeset
2434 TFT_color_code warn_battery; Color-code battery percent
207
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2435
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2436 ; Setup charge indicator
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2437 btfsc cc_active
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2438 bsf win_invert
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2439 btfsc cc_active
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2440 movlw color_yellow
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2441 btfsc cv_active
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2442 movlw color_green
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2443 btfsc cc_active
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2444 call TFT_set_color
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2445
0
heinrichsweikamp
parents:
diff changeset
2446 WIN_TINY batt_percent_column,batt_percent_row
heinrichsweikamp
parents:
diff changeset
2447 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2448 output_8
heinrichsweikamp
parents:
diff changeset
2449 bcf leftbind
88
2a992aba61ef fix minor display bug (battery percent)
heinrichsweikamp
parents: 87
diff changeset
2450 STRCAT "% "
2a992aba61ef fix minor display bug (battery percent)
heinrichsweikamp
parents: 87
diff changeset
2451 movlw 0x00
2a992aba61ef fix minor display bug (battery percent)
heinrichsweikamp
parents: 87
diff changeset
2452 movff WREG,buffer+4 ; Only "xxx%"
2a992aba61ef fix minor display bug (battery percent)
heinrichsweikamp
parents: 87
diff changeset
2453 STRCAT_PRINT ""
207
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 205
diff changeset
2454 bcf win_invert
0
heinrichsweikamp
parents:
diff changeset
2455 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2456 WIN_TINY batt_voltage_column,batt_voltage_row
heinrichsweikamp
parents:
diff changeset
2457 movff batt_voltage+0,lo
heinrichsweikamp
parents:
diff changeset
2458 movff batt_voltage+1,hi
heinrichsweikamp
parents:
diff changeset
2459 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2460 output_16dp .2
heinrichsweikamp
parents:
diff changeset
2461 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2462 PUTC 'V'
heinrichsweikamp
parents:
diff changeset
2463 movff buffer+5,buffer+3
heinrichsweikamp
parents:
diff changeset
2464 movlw 0x00
heinrichsweikamp
parents:
diff changeset
2465 movff WREG,buffer+4 ; Only "x.yV"
24
f51caad821b4 save logbook recording interval
heinrichsweikamp
parents: 16
diff changeset
2466 STRCAT_PRINT ""
0
heinrichsweikamp
parents:
diff changeset
2467 return
heinrichsweikamp
parents:
diff changeset
2468
heinrichsweikamp
parents:
diff changeset
2469 ;update_battery_debug:
heinrichsweikamp
parents:
diff changeset
2470 ; call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2471 ; WIN_TINY .70,.0
heinrichsweikamp
parents:
diff changeset
2472 ; movff battery_gauge+5,xC+3
heinrichsweikamp
parents:
diff changeset
2473 ; movff battery_gauge+4,xC+2
heinrichsweikamp
parents:
diff changeset
2474 ; movff battery_gauge+3,xC+1
heinrichsweikamp
parents:
diff changeset
2475 ; movff battery_gauge+2,xC+0
heinrichsweikamp
parents:
diff changeset
2476 ; ; battery_gauge:6 is nAs
heinrichsweikamp
parents:
diff changeset
2477 ; ; devide through 65536
heinrichsweikamp
parents:
diff changeset
2478 ; ; devide through 152
heinrichsweikamp
parents:
diff changeset
2479 ; ; Result is 0.01Ah in xC+1:xC+0
heinrichsweikamp
parents:
diff changeset
2480 ; movlw LOW .152
heinrichsweikamp
parents:
diff changeset
2481 ; movwf xB+0
heinrichsweikamp
parents:
diff changeset
2482 ; movlw HIGH .152
heinrichsweikamp
parents:
diff changeset
2483 ; movwf xB+1
heinrichsweikamp
parents:
diff changeset
2484 ; call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
heinrichsweikamp
parents:
diff changeset
2485 ; bsf leftbind
heinrichsweikamp
parents:
diff changeset
2486 ; movff xC+0,lo
heinrichsweikamp
parents:
diff changeset
2487 ; movff xC+1,hi
heinrichsweikamp
parents:
diff changeset
2488 ; output_16
heinrichsweikamp
parents:
diff changeset
2489 ; STRCAT_PRINT "x.01Ah"
heinrichsweikamp
parents:
diff changeset
2490 ; WIN_FONT FT_SMALL
heinrichsweikamp
parents:
diff changeset
2491 ; bcf leftbind
heinrichsweikamp
parents:
diff changeset
2492 ; return
heinrichsweikamp
parents:
diff changeset
2493
heinrichsweikamp
parents:
diff changeset
2494 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2495
heinrichsweikamp
parents:
diff changeset
2496 global TFT_convert_signed_16bit
heinrichsweikamp
parents:
diff changeset
2497 TFT_convert_signed_16bit:
heinrichsweikamp
parents:
diff changeset
2498 bcf neg_flag ; Positive temperature
heinrichsweikamp
parents:
diff changeset
2499 btfss hi,7 ; Negative temperature ?
heinrichsweikamp
parents:
diff changeset
2500 return ; No, return
heinrichsweikamp
parents:
diff changeset
2501 ; Yes, negative temperature!
heinrichsweikamp
parents:
diff changeset
2502 bsf neg_flag ; Negative temperature
heinrichsweikamp
parents:
diff changeset
2503 PUTC '-' ; Display "-"
heinrichsweikamp
parents:
diff changeset
2504 comf hi ; Then, 16bit sign changes.
heinrichsweikamp
parents:
diff changeset
2505 negf lo
heinrichsweikamp
parents:
diff changeset
2506 btfsc STATUS,C
heinrichsweikamp
parents:
diff changeset
2507 incf hi
heinrichsweikamp
parents:
diff changeset
2508 return ; and return
heinrichsweikamp
parents:
diff changeset
2509
heinrichsweikamp
parents:
diff changeset
2510 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2511
heinrichsweikamp
parents:
diff changeset
2512 global TFT_convert_date
heinrichsweikamp
parents:
diff changeset
2513 TFT_convert_date: ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2
heinrichsweikamp
parents:
diff changeset
2514 movff opt_dateformat,WREG ; =0:MMDDYY, =1:DDMMYY, =2:YYMMDD
heinrichsweikamp
parents:
diff changeset
2515 movwf EEDATA ; used as temp here
heinrichsweikamp
parents:
diff changeset
2516 tstfsz EEDATA
heinrichsweikamp
parents:
diff changeset
2517 bra TFT_convert_date1
heinrichsweikamp
parents:
diff changeset
2518 ; EEDATA was 0
heinrichsweikamp
parents:
diff changeset
2519 ; Use MMDDYY
heinrichsweikamp
parents:
diff changeset
2520 movff convert_value_temp+0,lo ;month
heinrichsweikamp
parents:
diff changeset
2521 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2522 output_99x
heinrichsweikamp
parents:
diff changeset
2523 PUTC '.'
heinrichsweikamp
parents:
diff changeset
2524 movff convert_value_temp+1,lo ;day
heinrichsweikamp
parents:
diff changeset
2525 bra TFT_convert_date1_common ;year
heinrichsweikamp
parents:
diff changeset
2526
heinrichsweikamp
parents:
diff changeset
2527 TFT_convert_date1: ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD)
heinrichsweikamp
parents:
diff changeset
2528 decfsz EEDATA,F
heinrichsweikamp
parents:
diff changeset
2529 bra TFT_convert_date2 ; EEDATA was 2
heinrichsweikamp
parents:
diff changeset
2530 ; EEDATA was 1
heinrichsweikamp
parents:
diff changeset
2531 ; Use DDMMYY
heinrichsweikamp
parents:
diff changeset
2532 movff convert_value_temp+1,lo ;day
heinrichsweikamp
parents:
diff changeset
2533 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2534 output_99x
heinrichsweikamp
parents:
diff changeset
2535 PUTC '.'
heinrichsweikamp
parents:
diff changeset
2536 movff convert_value_temp+0,lo ;month
heinrichsweikamp
parents:
diff changeset
2537
heinrichsweikamp
parents:
diff changeset
2538 TFT_convert_date1_common:
heinrichsweikamp
parents:
diff changeset
2539 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2540 output_99x
heinrichsweikamp
parents:
diff changeset
2541 PUTC '.'
heinrichsweikamp
parents:
diff changeset
2542 movff convert_value_temp+2,lo ;year
heinrichsweikamp
parents:
diff changeset
2543 output_99x
heinrichsweikamp
parents:
diff changeset
2544 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2545 return
heinrichsweikamp
parents:
diff changeset
2546
heinrichsweikamp
parents:
diff changeset
2547 TFT_convert_date2:
heinrichsweikamp
parents:
diff changeset
2548 ; Use YYMMDD
heinrichsweikamp
parents:
diff changeset
2549 movff convert_value_temp+2,lo ;year
heinrichsweikamp
parents:
diff changeset
2550 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2551 output_99x
heinrichsweikamp
parents:
diff changeset
2552 PUTC '.'
heinrichsweikamp
parents:
diff changeset
2553 movff convert_value_temp+0,lo ;month
heinrichsweikamp
parents:
diff changeset
2554 output_99x
heinrichsweikamp
parents:
diff changeset
2555 PUTC '.'
heinrichsweikamp
parents:
diff changeset
2556 movff convert_value_temp+1,lo ;day
heinrichsweikamp
parents:
diff changeset
2557 output_99x
heinrichsweikamp
parents:
diff changeset
2558 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2559 return
heinrichsweikamp
parents:
diff changeset
2560
heinrichsweikamp
parents:
diff changeset
2561 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2562
heinrichsweikamp
parents:
diff changeset
2563 global TFT_convert_date_short
heinrichsweikamp
parents:
diff changeset
2564 TFT_convert_date_short: ; converts into "DD/MM" or "MM/DD" or "MM/DD" in postinc2
heinrichsweikamp
parents:
diff changeset
2565 movff opt_dateformat,WREG ; =0:MMDDYY, =1:DDMMYY, =2:YYMMDD
heinrichsweikamp
parents:
diff changeset
2566 movwf EEDATA ; used as temp here
heinrichsweikamp
parents:
diff changeset
2567 tstfsz EEDATA
heinrichsweikamp
parents:
diff changeset
2568 bra TFT_convert_date_short1
heinrichsweikamp
parents:
diff changeset
2569 ; EEDATA was 0
heinrichsweikamp
parents:
diff changeset
2570 ; Use MMDDYY
heinrichsweikamp
parents:
diff changeset
2571 TFT_convert_date_short_common:
heinrichsweikamp
parents:
diff changeset
2572 movff convert_value_temp+0,lo ;month
heinrichsweikamp
parents:
diff changeset
2573 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2574 output_99x
heinrichsweikamp
parents:
diff changeset
2575 PUTC '.'
heinrichsweikamp
parents:
diff changeset
2576 movff convert_value_temp+1,lo ;day
heinrichsweikamp
parents:
diff changeset
2577 output_99x
heinrichsweikamp
parents:
diff changeset
2578 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2579 return
heinrichsweikamp
parents:
diff changeset
2580
heinrichsweikamp
parents:
diff changeset
2581 TFT_convert_date_short1:
heinrichsweikamp
parents:
diff changeset
2582 decfsz EEDATA,F
heinrichsweikamp
parents:
diff changeset
2583 bra TFT_convert_date_short_common ; EEDATA was 2 -> Use YYMMDD
heinrichsweikamp
parents:
diff changeset
2584 ; EEDATA was 1
heinrichsweikamp
parents:
diff changeset
2585 ; Use DDMMYY
heinrichsweikamp
parents:
diff changeset
2586 movff convert_value_temp+1,lo ;day
heinrichsweikamp
parents:
diff changeset
2587 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2588 output_99x
heinrichsweikamp
parents:
diff changeset
2589 PUTC '.'
heinrichsweikamp
parents:
diff changeset
2590 movff convert_value_temp+0,lo ;month
heinrichsweikamp
parents:
diff changeset
2591 output_99x
heinrichsweikamp
parents:
diff changeset
2592 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2593 return
heinrichsweikamp
parents:
diff changeset
2594
heinrichsweikamp
parents:
diff changeset
2595 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2596
heinrichsweikamp
parents:
diff changeset
2597 global TFT_date
heinrichsweikamp
parents:
diff changeset
2598 TFT_date:
48
7c7d7644ca37 Time and Date in normal (Not tiny) font
heinrichsweikamp
parents: 42
diff changeset
2599 WIN_SMALL surf_date_column,surf_date_row ; Init new Wordprocessor
0
heinrichsweikamp
parents:
diff changeset
2600 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2601 movff month,convert_value_temp+0
heinrichsweikamp
parents:
diff changeset
2602 movff day,convert_value_temp+1
heinrichsweikamp
parents:
diff changeset
2603 movff year,convert_value_temp+2
heinrichsweikamp
parents:
diff changeset
2604 call TFT_convert_date ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2
heinrichsweikamp
parents:
diff changeset
2605 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2606 return
heinrichsweikamp
parents:
diff changeset
2607
heinrichsweikamp
parents:
diff changeset
2608 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2609
heinrichsweikamp
parents:
diff changeset
2610 global TFT_max_pressure
heinrichsweikamp
parents:
diff changeset
2611 TFT_max_pressure:
heinrichsweikamp
parents:
diff changeset
2612 btfsc FLAG_apnoe_mode ; different display in apnoe mode
heinrichsweikamp
parents:
diff changeset
2613 bra TFT_max_pressure_apnoe
heinrichsweikamp
parents:
diff changeset
2614 TFT_max_pressure2:
heinrichsweikamp
parents:
diff changeset
2615 SAFE_2BYTE_COPY max_pressure, lo
heinrichsweikamp
parents:
diff changeset
2616 TFT_max_pressure3:
heinrichsweikamp
parents:
diff changeset
2617 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
2618 TSTOSS opt_units ; 0=m, 1=ft
heinrichsweikamp
parents:
diff changeset
2619 bra TFT_max_pressure2_metric
heinrichsweikamp
parents:
diff changeset
2620 ;TFT_max_pressure2_imperial
heinrichsweikamp
parents:
diff changeset
2621 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
2622 WIN_MEDIUM max_depth_feet_column,max_depth_feet_row
heinrichsweikamp
parents:
diff changeset
2623 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2624 output_16_3
heinrichsweikamp
parents:
diff changeset
2625 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2626 return
heinrichsweikamp
parents:
diff changeset
2627
heinrichsweikamp
parents:
diff changeset
2628 TFT_max_pressure2_metric:
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2629 WIN_MEDIUM max_depth_column,max_depth_row
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2630
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2631 movlw .039
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2632 cpfslt hi
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2633 bra max_depth_greater_99_84mtr
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2634
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2635 btfsc max_depth_greater_100m ; Was depth>100m during last call
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2636 rcall TFT_clear_max_depth ; Yes, clear depth area
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2637 bcf max_depth_greater_100m ; Do this once only...
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2638
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2639 movlw .039
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2640 cpfslt hi
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2641 bra max_depth_greater_99_84mtr
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2642
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2643 movlw HIGH d'1000'
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2644 movwf sub_a+1
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2645 movlw LOW d'1000'
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2646 movwf sub_a+0
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2647 movff hi,sub_b+1
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2648 movff lo,sub_b+0
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2649 incf sub_b+0,F
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2650 movlw d'0'
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2651 addwfc sub_b+1,F ; Add 1mbar offset
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2652 call sub16 ; sub_c = sub_a - sub_b
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2653 movlw ' '
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2654 btfss neg_flag ; Depth lower then 10m?
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2655 movwf POSTINC2 ; Yes, add extra space
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2656
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2657 clrf sub_a+1
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2658 movlw d'99'
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2659 movwf sub_a+0
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2660 movff hi,sub_b+1
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2661 movff lo,sub_b+0
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2662 call subU16 ; sub_c = sub_a - sub_b
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2663 btfss neg_flag ; Depth lower then 1m?
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2664 bra tft_max_depth2 ; Yes, display manual Zero
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 bsf ignore_digit4 ; no 0.1m
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2667 bsf leftbind
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2668 output_16
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2669 bra tft_max_depth3
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2670
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2671 tft_max_depth2:
0
heinrichsweikamp
parents:
diff changeset
2672 WIN_MEDIUM max_depth_column,max_depth_row
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2673 STRCAT "0"
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 tft_max_depth3:
0
heinrichsweikamp
parents:
diff changeset
2676 call TFT_standard_color
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2677 STRCAT_PRINT "" ; Display full meters
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2678 bcf leftbind
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 ; .1m in SMALL font
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2681 WIN_SMALL max_depth_dm_column,max_depth_dm_row
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2682
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2683 SAFE_2BYTE_COPY max_pressure, lo
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2684 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
2685
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2686 PUTC "."
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2687
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2688 movlw d'4'
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2689 movwf ignore_digits
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2690 bsf ignore_digit5
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2691 bsf leftbind
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2692 output_16dp d'0'
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2693 STRCAT_PRINT "" ; Display decimeters
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2694 bcf leftbind
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2695 return
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 max_depth_greater_99_84mtr: ; Display only in full meters
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2698 btfss max_depth_greater_100m ; Is max depth>100m already?
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2699 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
2700 ; Max. Depth is already in hi:lo
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2701 ; Show max. depth in Full meters
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2702 ; That means ignore figure 4 and 5
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2703 lfsr FSR2,buffer
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2704 bsf ignore_digit4
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2705 bsf leftbind
0
heinrichsweikamp
parents:
diff changeset
2706 output_16
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2707 bcf leftbind
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2708 STRCAT_PRINT "" ; Display full meters only
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2709 WIN_FONT FT_SMALL
0
heinrichsweikamp
parents:
diff changeset
2710 return
heinrichsweikamp
parents:
diff changeset
2711
11
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2712 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
2713 WIN_BOX_BLACK max_depth_row,.49,max_depth_column, max_depth_dm_column+.13 ;top, bottom, left, right
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2714 bsf max_depth_greater_100m ; Set Flag
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2715 return
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2716
04794990b619 Show Max. Depth with 0.1m precision
heinrichsweikamp
parents: 0
diff changeset
2717
0
heinrichsweikamp
parents:
diff changeset
2718 TFT_max_pressure_apnoe:
heinrichsweikamp
parents:
diff changeset
2719 btfss FLAG_active_descent ; Are we descending?
heinrichsweikamp
parents:
diff changeset
2720 bra TFT_max_pressure2 ; Yes, show normal max.
heinrichsweikamp
parents:
diff changeset
2721 SAFE_2BYTE_COPY apnoe_max_pressure, lo
heinrichsweikamp
parents:
diff changeset
2722 bra TFT_max_pressure3 ; Show apnoe_max_pressure as max. depth
heinrichsweikamp
parents:
diff changeset
2723
heinrichsweikamp
parents:
diff changeset
2724 global TFT_display_apnoe_last_max
heinrichsweikamp
parents:
diff changeset
2725 TFT_display_apnoe_last_max:
heinrichsweikamp
parents:
diff changeset
2726 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
2727 WIN_TINY last_max_apnoe_text_column,last_max_apnoe_text_row
heinrichsweikamp
parents:
diff changeset
2728 STRCPY_TEXT_PRINT tApnoeMax
heinrichsweikamp
parents:
diff changeset
2729
heinrichsweikamp
parents:
diff changeset
2730 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2731 SAFE_2BYTE_COPY max_pressure, lo
heinrichsweikamp
parents:
diff changeset
2732 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
2733 TSTOSS opt_units ; 0=m, 1=ft
heinrichsweikamp
parents:
diff changeset
2734 bra TFT_display_apnoe_last_m_metric
heinrichsweikamp
parents:
diff changeset
2735 ;TFT_display_apnoe_last_max_imperial
heinrichsweikamp
parents:
diff changeset
2736 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
2737 WIN_MEDIUM apnoe_last_max_depth_column,apnoe_last_max_depth_row
heinrichsweikamp
parents:
diff changeset
2738 output_16
heinrichsweikamp
parents:
diff changeset
2739 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2740 return
heinrichsweikamp
parents:
diff changeset
2741
heinrichsweikamp
parents:
diff changeset
2742 TFT_display_apnoe_last_m_metric:
heinrichsweikamp
parents:
diff changeset
2743 WIN_MEDIUM apnoe_last_max_depth_column,apnoe_last_max_depth_row
heinrichsweikamp
parents:
diff changeset
2744 bsf ignore_digit5 ; do not display 1cm depth
heinrichsweikamp
parents:
diff changeset
2745 output_16dp d'3'
heinrichsweikamp
parents:
diff changeset
2746 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2747 return
heinrichsweikamp
parents:
diff changeset
2748
heinrichsweikamp
parents:
diff changeset
2749 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2750 global TFT_divemins
heinrichsweikamp
parents:
diff changeset
2751 TFT_divemins:
heinrichsweikamp
parents:
diff changeset
2752 movff divemins+0,lo
heinrichsweikamp
parents:
diff changeset
2753 movff divemins+1,hi
98
24b3fd59e61f add event "bailout" in profile
heinrichsweikamp
parents: 97
diff changeset
2754 bcf leftbind
0
heinrichsweikamp
parents:
diff changeset
2755
heinrichsweikamp
parents:
diff changeset
2756 btfsc no_more_divesecs ; Ignore seconds?
heinrichsweikamp
parents:
diff changeset
2757 bra TFT_divemins2 ; Show minutes only
heinrichsweikamp
parents:
diff changeset
2758
heinrichsweikamp
parents:
diff changeset
2759 movlw .99
heinrichsweikamp
parents:
diff changeset
2760 cpfsgt lo ; bigger then 99?
heinrichsweikamp
parents:
diff changeset
2761 bra TFT_divemins1 ; No show mins:secs
heinrichsweikamp
parents:
diff changeset
2762 ; Yes, remove second display for the rest of the dive and clear seconds
heinrichsweikamp
parents:
diff changeset
2763 bsf no_more_divesecs ; Set flag
heinrichsweikamp
parents:
diff changeset
2764 ; Clear rest of seconds
heinrichsweikamp
parents:
diff changeset
2765 WIN_BOX_BLACK divetime_row, warning1_row,divetime_column,.159 ;top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
2766 bra TFT_divemins2 ; Show minutes only
heinrichsweikamp
parents:
diff changeset
2767
heinrichsweikamp
parents:
diff changeset
2768 TFT_divemins1:
heinrichsweikamp
parents:
diff changeset
2769 WIN_MEDIUM divetime_column, divetime_row
heinrichsweikamp
parents:
diff changeset
2770 output_16_3 ; displays only last three figures from a 16Bit value (0-999)
heinrichsweikamp
parents:
diff changeset
2771 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2772 STRCAT_PRINT "" ; Show minutes in large font
heinrichsweikamp
parents:
diff changeset
2773
heinrichsweikamp
parents:
diff changeset
2774 WIN_SMALL divetime_secs_column, divetime_secs_row ; left position for two sec figures
heinrichsweikamp
parents:
diff changeset
2775 PUTC ':'
heinrichsweikamp
parents:
diff changeset
2776 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2777 movff divesecs,lo
heinrichsweikamp
parents:
diff changeset
2778 output_99x
heinrichsweikamp
parents:
diff changeset
2779 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2780 STRCAT_PRINT "" ; Show seconds in small font
heinrichsweikamp
parents:
diff changeset
2781 return
heinrichsweikamp
parents:
diff changeset
2782
heinrichsweikamp
parents:
diff changeset
2783 TFT_divemins2:
heinrichsweikamp
parents:
diff changeset
2784 WIN_MEDIUM divetime_minsonly_column, divetime_row
heinrichsweikamp
parents:
diff changeset
2785 output_16
heinrichsweikamp
parents:
diff changeset
2786 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2787 STRCAT_PRINT "" ; Show minutes in large font
heinrichsweikamp
parents:
diff changeset
2788 return
heinrichsweikamp
parents:
diff changeset
2789
heinrichsweikamp
parents:
diff changeset
2790 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2791 global TFT_display_apnoe_surface
heinrichsweikamp
parents:
diff changeset
2792 TFT_display_apnoe_surface:
heinrichsweikamp
parents:
diff changeset
2793 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
2794 WIN_TINY surface_apnoe_text_column,surface_apnoe_text_row
heinrichsweikamp
parents:
diff changeset
2795 STRCPY_TEXT_PRINT tApnoeSurface
heinrichsweikamp
parents:
diff changeset
2796
heinrichsweikamp
parents:
diff changeset
2797 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2798 WIN_MEDIUM surface_time_apnoe_column, surface_time_apnoe_row
heinrichsweikamp
parents:
diff changeset
2799 movff apnoe_surface_mins,lo
heinrichsweikamp
parents:
diff changeset
2800 output_8
heinrichsweikamp
parents:
diff changeset
2801 PUTC ':'
heinrichsweikamp
parents:
diff changeset
2802 movff apnoe_surface_secs,lo
heinrichsweikamp
parents:
diff changeset
2803 output_99x
heinrichsweikamp
parents:
diff changeset
2804 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
2805 return
heinrichsweikamp
parents:
diff changeset
2806
heinrichsweikamp
parents:
diff changeset
2807 global TFT_apnoe_clear_surface
heinrichsweikamp
parents:
diff changeset
2808 TFT_apnoe_clear_surface:
heinrichsweikamp
parents:
diff changeset
2809 ; Clear Surface timer....
heinrichsweikamp
parents:
diff changeset
2810 WIN_BOX_BLACK surface_apnoe_text_row, .239, surface_apnoe_text_column, .159 ;top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
2811 return
heinrichsweikamp
parents:
diff changeset
2812
heinrichsweikamp
parents:
diff changeset
2813 global TFT_display_apnoe_descent
heinrichsweikamp
parents:
diff changeset
2814 TFT_display_apnoe_descent: ; Descent divetime
heinrichsweikamp
parents:
diff changeset
2815 movff apnoe_mins,lo
heinrichsweikamp
parents:
diff changeset
2816 clrf hi
heinrichsweikamp
parents:
diff changeset
2817 WIN_MEDIUM divetime_column, divetime_row
heinrichsweikamp
parents:
diff changeset
2818 output_16_3 ; displays only last three figures from a 16Bit value (0-999)
heinrichsweikamp
parents:
diff changeset
2819 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
2820 STRCAT_PRINT "" ; Show minutes in large font
heinrichsweikamp
parents:
diff changeset
2821 WIN_SMALL divetime_secs_column, divetime_secs_row ; left position for two sec figures
heinrichsweikamp
parents:
diff changeset
2822 PUTC ':'
heinrichsweikamp
parents:
diff changeset
2823 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2824 movff apnoe_secs,lo
heinrichsweikamp
parents:
diff changeset
2825 output_99x
heinrichsweikamp
parents:
diff changeset
2826 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2827 STRCAT_PRINT "" ; Show seconds in small font
38
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2828
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2829 call TFT_divemask_color
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2830 WIN_TINY total_apnoe_text_column,total_apnoe_text_row
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2831 STRCPY_TEXT_PRINT tApnoeTotal
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2832 call TFT_standard_color
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2833 movff divemins,lo
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2834 clrf hi
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2835 WIN_MEDIUM apnoe_total_divetime_column, apnoe_total_divetime_row
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2836 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
2837 call TFT_standard_color
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2838 STRCAT_PRINT "" ; Show minutes in large font
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2839 WIN_SMALL apnoe_total_divetime_secs_column, apnoe_total_divetime_secs_row ; left position for two sec figures
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2840 PUTC ':'
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2841 bsf leftbind
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2842 movff divesecs,lo
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2843 output_99x
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2844 bcf leftbind
64976f1e0a1c Show total divetime in apnea mode
mh@mh-THINK.fritz.box
parents: 31
diff changeset
2845 STRCAT_PRINT "" ; Show seconds in small font
0
heinrichsweikamp
parents:
diff changeset
2846 return
heinrichsweikamp
parents:
diff changeset
2847
heinrichsweikamp
parents:
diff changeset
2848 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2849 ; Writes ostc3 #Serial and Firmware version in splash screen
heinrichsweikamp
parents:
diff changeset
2850 ;
heinrichsweikamp
parents:
diff changeset
2851 global TFT_serial
heinrichsweikamp
parents:
diff changeset
2852 TFT_serial:
213
3b5df65d53fc layout changes
heinrichsweikamp
parents: 207
diff changeset
2853 WIN_TINY .5,.225
200
dcd513840c6c cleanup
heinrichsweikamp
parents: 192
diff changeset
2854 STRCPY "OSTC" ; Won't translate that...
235
23311219dacc under construction: new hardware_flag to configure different hardware versions
heinrichsweikamp
parents: 234
diff changeset
2855 btfsc rechargeable
200
dcd513840c6c cleanup
heinrichsweikamp
parents: 192
diff changeset
2856 bra TFT_serial2
dcd513840c6c cleanup
heinrichsweikamp
parents: 192
diff changeset
2857 STRCAT "3 #"
dcd513840c6c cleanup
heinrichsweikamp
parents: 192
diff changeset
2858 bra TFT_serial3
dcd513840c6c cleanup
heinrichsweikamp
parents: 192
diff changeset
2859 TFT_serial2:
dcd513840c6c cleanup
heinrichsweikamp
parents: 192
diff changeset
2860 STRCAT " cR #"
dcd513840c6c cleanup
heinrichsweikamp
parents: 192
diff changeset
2861 TFT_serial3:
0
heinrichsweikamp
parents:
diff changeset
2862 rcall TFT_cat_serial
heinrichsweikamp
parents:
diff changeset
2863
heinrichsweikamp
parents:
diff changeset
2864 STRCAT " v"
180
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2865 WIN_COLOR color_greenish
0
heinrichsweikamp
parents:
diff changeset
2866 rcall TFT_cat_firmware
heinrichsweikamp
parents:
diff changeset
2867
heinrichsweikamp
parents:
diff changeset
2868 ifdef __DEBUG
heinrichsweikamp
parents:
diff changeset
2869 movlw color_grey ; Write header in blue when
heinrichsweikamp
parents:
diff changeset
2870 call TFT_set_color ; compiled in DEBUG mode...
heinrichsweikamp
parents:
diff changeset
2871 STRCAT_PRINT "DEBUG"
heinrichsweikamp
parents:
diff changeset
2872 else
76
a5ea132770db 1.21 release
heinrichsweikamp
parents: 67
diff changeset
2873 STRCAT_PRINT ""
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
2874 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
2875 call TFT_standard_color
76
a5ea132770db 1.21 release
heinrichsweikamp
parents: 67
diff changeset
2876
0
heinrichsweikamp
parents:
diff changeset
2877 movlw softwareversion_beta ; =1: Beta, =0: Release
heinrichsweikamp
parents:
diff changeset
2878 decfsz WREG,F
heinrichsweikamp
parents:
diff changeset
2879 return ; Release version -> Return
heinrichsweikamp
parents:
diff changeset
2880
heinrichsweikamp
parents:
diff changeset
2881 call TFT_warnings_color
heinrichsweikamp
parents:
diff changeset
2882 WIN_LEFT .160-4*9/2 ; Right pad.
heinrichsweikamp
parents:
diff changeset
2883 STRCPY_TEXT_PRINT tBeta
heinrichsweikamp
parents:
diff changeset
2884 endif
76
a5ea132770db 1.21 release
heinrichsweikamp
parents: 67
diff changeset
2885 call TFT_standard_color
0
heinrichsweikamp
parents:
diff changeset
2886 return
heinrichsweikamp
parents:
diff changeset
2887
heinrichsweikamp
parents:
diff changeset
2888
heinrichsweikamp
parents:
diff changeset
2889
heinrichsweikamp
parents:
diff changeset
2890 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2891 ; For the Information menu: append firmware x.yy version.
heinrichsweikamp
parents:
diff changeset
2892 global info_menu_firmware
heinrichsweikamp
parents:
diff changeset
2893 extern tFirmware
heinrichsweikamp
parents:
diff changeset
2894 info_menu_firmware:
heinrichsweikamp
parents:
diff changeset
2895 lfsr FSR1,tFirmware
heinrichsweikamp
parents:
diff changeset
2896 call strcat_text
180
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2897 rcall TFT_cat_firmware
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
2898 bcf win_invert ; Reset invert flag
180
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2899 return
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2900
76
a5ea132770db 1.21 release
heinrichsweikamp
parents: 67
diff changeset
2901 global TFT_cat_firmware
0
heinrichsweikamp
parents:
diff changeset
2902 TFT_cat_firmware:
heinrichsweikamp
parents:
diff changeset
2903 movlw softwareversion_x
heinrichsweikamp
parents:
diff changeset
2904 movwf lo
heinrichsweikamp
parents:
diff changeset
2905 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2906 output_8
heinrichsweikamp
parents:
diff changeset
2907 PUTC '.'
heinrichsweikamp
parents:
diff changeset
2908 movlw softwareversion_y
heinrichsweikamp
parents:
diff changeset
2909 movwf lo
heinrichsweikamp
parents:
diff changeset
2910 output_99x
heinrichsweikamp
parents:
diff changeset
2911 bcf leftbind
180
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2912 ; Check firmware date
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2913 movlw firmware_expire_year-.1
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2914 cpfsgt year ; > threshold?
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2915 return
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2916 movlw firmware_expire_month-.1
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2917 cpfsgt month ; > threshold?
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2918 return
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2919 movlw firmware_expire_day-.1
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2920 cpfsgt day ; > threshold?
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2921 return
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2922
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2923 ; Show in "change firmware" style
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2924 movlw color_yellow
abc429e8b46a 1.60 work...
heinrichsweikamp
parents: 175
diff changeset
2925 call TFT_set_color
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
2926 bsf win_invert ; Set invert flag
0
heinrichsweikamp
parents:
diff changeset
2927 return
heinrichsweikamp
parents:
diff changeset
2928
heinrichsweikamp
parents:
diff changeset
2929 ;-----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
2930 ; For the Information menu: append serial number ostc3#42.
heinrichsweikamp
parents:
diff changeset
2931 global info_menu_serial
heinrichsweikamp
parents:
diff changeset
2932 extern tSerial
heinrichsweikamp
parents:
diff changeset
2933 info_menu_serial:
heinrichsweikamp
parents:
diff changeset
2934 lfsr FSR1,tSerial
heinrichsweikamp
parents:
diff changeset
2935 call strcat_text
76
a5ea132770db 1.21 release
heinrichsweikamp
parents: 67
diff changeset
2936 global TFT_cat_serial
0
heinrichsweikamp
parents:
diff changeset
2937 TFT_cat_serial:
heinrichsweikamp
parents:
diff changeset
2938 clrf EEADRH
heinrichsweikamp
parents:
diff changeset
2939 clrf EEADR ; Get Serial number LOW
heinrichsweikamp
parents:
diff changeset
2940 call read_eeprom ; read byte
heinrichsweikamp
parents:
diff changeset
2941 movff EEDATA,lo
heinrichsweikamp
parents:
diff changeset
2942 incf EEADR,F ; Get Serial number HIGH
heinrichsweikamp
parents:
diff changeset
2943 call read_eeprom ; read byte
heinrichsweikamp
parents:
diff changeset
2944 movff EEDATA,hi
heinrichsweikamp
parents:
diff changeset
2945
heinrichsweikamp
parents:
diff changeset
2946 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2947 output_16
heinrichsweikamp
parents:
diff changeset
2948 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2949 return
heinrichsweikamp
parents:
diff changeset
2950
heinrichsweikamp
parents:
diff changeset
2951 ;-----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
2952 ; For the Information menu: Append total dives
heinrichsweikamp
parents:
diff changeset
2953 global info_menu_total_dives
heinrichsweikamp
parents:
diff changeset
2954 extern tTotalDives
heinrichsweikamp
parents:
diff changeset
2955 info_menu_total_dives:
heinrichsweikamp
parents:
diff changeset
2956 lfsr FSR1,tTotalDives
heinrichsweikamp
parents:
diff changeset
2957 call strcat_text
heinrichsweikamp
parents:
diff changeset
2958 TFT_cat_total_dives:
heinrichsweikamp
parents:
diff changeset
2959 read_int_eeprom .2
heinrichsweikamp
parents:
diff changeset
2960 movff EEDATA,lo
heinrichsweikamp
parents:
diff changeset
2961 read_int_eeprom .3
heinrichsweikamp
parents:
diff changeset
2962 movff EEDATA,hi
heinrichsweikamp
parents:
diff changeset
2963 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2964 output_16
heinrichsweikamp
parents:
diff changeset
2965 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2966 return
heinrichsweikamp
parents:
diff changeset
2967
62
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
2968 ; For the Information menu: Append battery voltage
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
2969 global info_menu_battery_volts
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
2970 extern tBatteryV
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
2971 info_menu_battery_volts:
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
2972 lfsr FSR1,tBatteryV
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
2973 call strcat_text
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
2974 movff batt_voltage+1,hi
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
2975 movff batt_voltage+0,lo
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
2976 bsf leftbind
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
2977 output_16dp .2 ; x.xxx
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
2978 bcf leftbind
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
2979 PUTC "V"
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
2980 return
e7c7c7eeea58 show battery voltage in info menu
heinrichsweikamp
parents: 60
diff changeset
2981
0
heinrichsweikamp
parents:
diff changeset
2982 ;-----------------------------------------------------------------------------
heinrichsweikamp
parents:
diff changeset
2983 ; ppO2 menu
heinrichsweikamp
parents:
diff changeset
2984 global divesets_ppo2_max
heinrichsweikamp
parents:
diff changeset
2985 extern tPPO2Max
heinrichsweikamp
parents:
diff changeset
2986 extern tbar
heinrichsweikamp
parents:
diff changeset
2987 divesets_ppo2_max:
heinrichsweikamp
parents:
diff changeset
2988 lfsr FSR1,tPPO2Max
heinrichsweikamp
parents:
diff changeset
2989 call strcat_text
heinrichsweikamp
parents:
diff changeset
2990 movff opt_ppO2_max,lo
heinrichsweikamp
parents:
diff changeset
2991 movlw ppo2_warning_high
heinrichsweikamp
parents:
diff changeset
2992 divesets_ppo2_common:
heinrichsweikamp
parents:
diff changeset
2993 movwf up ; Save default value
heinrichsweikamp
parents:
diff changeset
2994 clrf hi
heinrichsweikamp
parents:
diff changeset
2995 bsf leftbind
heinrichsweikamp
parents:
diff changeset
2996 output_16dp d'3'
heinrichsweikamp
parents:
diff changeset
2997 bcf leftbind
heinrichsweikamp
parents:
diff changeset
2998 lfsr FSR1,tbar
heinrichsweikamp
parents:
diff changeset
2999 call strcat_text
heinrichsweikamp
parents:
diff changeset
3000
heinrichsweikamp
parents:
diff changeset
3001 movf up,W ; Default value
heinrichsweikamp
parents:
diff changeset
3002 cpfseq lo ; Current value
heinrichsweikamp
parents:
diff changeset
3003 bra divesets_ppo2_common2 ; Not default, add *
heinrichsweikamp
parents:
diff changeset
3004 return ; Default, Done.
heinrichsweikamp
parents:
diff changeset
3005 divesets_ppo2_common2:
heinrichsweikamp
parents:
diff changeset
3006 PUTC "*"
heinrichsweikamp
parents:
diff changeset
3007 return ; Done.
heinrichsweikamp
parents:
diff changeset
3008
heinrichsweikamp
parents:
diff changeset
3009 global divesets_ppo2_min
heinrichsweikamp
parents:
diff changeset
3010 extern tPPO2Min
heinrichsweikamp
parents:
diff changeset
3011 divesets_ppo2_min:
heinrichsweikamp
parents:
diff changeset
3012 lfsr FSR1,tPPO2Min
heinrichsweikamp
parents:
diff changeset
3013 call strcat_text
heinrichsweikamp
parents:
diff changeset
3014 movff opt_ppO2_min,lo
heinrichsweikamp
parents:
diff changeset
3015 movlw ppo2_warning_low
heinrichsweikamp
parents:
diff changeset
3016 bra divesets_ppo2_common
heinrichsweikamp
parents:
diff changeset
3017
heinrichsweikamp
parents:
diff changeset
3018 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
3019
heinrichsweikamp
parents:
diff changeset
3020 global TFT_clear_warning_text
heinrichsweikamp
parents:
diff changeset
3021 TFT_clear_warning_text:
heinrichsweikamp
parents:
diff changeset
3022 btfss divemode ; in divemode?
heinrichsweikamp
parents:
diff changeset
3023 bra TFT_clear_warning_text2 ; No, setup for surface mode
heinrichsweikamp
parents:
diff changeset
3024 WIN_BOX_BLACK warning1_row, divemode_customview_row-3, warning1_column, warning_icon_column-3 ;top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
3025 return
heinrichsweikamp
parents:
diff changeset
3026 TFT_clear_warning_text2:
heinrichsweikamp
parents:
diff changeset
3027 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
3028 return
heinrichsweikamp
parents:
diff changeset
3029
heinrichsweikamp
parents:
diff changeset
3030 global TFT_clear_warning_text_2nd_row
heinrichsweikamp
parents:
diff changeset
3031 TFT_clear_warning_text_2nd_row:
heinrichsweikamp
parents:
diff changeset
3032 btfss divemode ; in divemode?
heinrichsweikamp
parents:
diff changeset
3033 bra TFT_clear_warning_text_2nd_2 ; No, setup for surface mode
heinrichsweikamp
parents:
diff changeset
3034 WIN_BOX_BLACK warning2_row, divemode_customview_row-3, warning2_column, warning_icon_column-3 ;top, bottom, left, right
heinrichsweikamp
parents:
diff changeset
3035 return
heinrichsweikamp
parents:
diff changeset
3036 TFT_clear_warning_text_2nd_2:
heinrichsweikamp
parents:
diff changeset
3037 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
3038 return
heinrichsweikamp
parents:
diff changeset
3039
heinrichsweikamp
parents:
diff changeset
3040 global TFT_fillup_with_spaces
heinrichsweikamp
parents:
diff changeset
3041 TFT_fillup_with_spaces: ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
3042 movwf lo ; save max. string length into lo
heinrichsweikamp
parents:
diff changeset
3043 movf FSR2L,W ; Get current string length
heinrichsweikamp
parents:
diff changeset
3044 subwf lo,F ; lo-WREG
heinrichsweikamp
parents:
diff changeset
3045 btfsc STATUS,N ; longer then #lo already?
heinrichsweikamp
parents:
diff changeset
3046 return ; Yes, done.
heinrichsweikamp
parents:
diff changeset
3047 tstfsz lo ; Zero?
heinrichsweikamp
parents:
diff changeset
3048 bra TFT_fillup_with_spaces2 ; No.
heinrichsweikamp
parents:
diff changeset
3049 return ; Yes, done.
heinrichsweikamp
parents:
diff changeset
3050 TFT_fillup_with_spaces2:
heinrichsweikamp
parents:
diff changeset
3051 PUTC " " ; Add one space
heinrichsweikamp
parents:
diff changeset
3052 decfsz lo,F ; All done?
heinrichsweikamp
parents:
diff changeset
3053 bra TFT_fillup_with_spaces2 ; No, loop
heinrichsweikamp
parents:
diff changeset
3054 return ; Done.
heinrichsweikamp
parents:
diff changeset
3055
heinrichsweikamp
parents:
diff changeset
3056 global TFT_desaturation_time
heinrichsweikamp
parents:
diff changeset
3057 TFT_desaturation_time:
heinrichsweikamp
parents:
diff changeset
3058 rcall TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
3059 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
3060 return ; No
heinrichsweikamp
parents:
diff changeset
3061 STRCPY "Desat:"
heinrichsweikamp
parents:
diff changeset
3062 movff desaturation_time+0,lo ; divide by 60...
heinrichsweikamp
parents:
diff changeset
3063 movff desaturation_time+1,hi
heinrichsweikamp
parents:
diff changeset
3064 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
heinrichsweikamp
parents:
diff changeset
3065 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3066 movf lo,W
heinrichsweikamp
parents:
diff changeset
3067 movff hi,lo
heinrichsweikamp
parents:
diff changeset
3068 movwf hi ; exchange lo and hi...
heinrichsweikamp
parents:
diff changeset
3069 output_8 ; Hours
heinrichsweikamp
parents:
diff changeset
3070 PUTC ':'
heinrichsweikamp
parents:
diff changeset
3071 movff hi,lo ; Minutes
heinrichsweikamp
parents:
diff changeset
3072 output_99x
heinrichsweikamp
parents:
diff changeset
3073 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3074 movlw surf_warning_length ; Only use surface string length
heinrichsweikamp
parents:
diff changeset
3075 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
3076 movlw .0
1464cd73d184 BUGFIX: Display Desat.-Time >100 hours
heinrichsweikamp
parents: 55
diff changeset
3077 movff WREG,buffer+11
0
heinrichsweikamp
parents:
diff changeset
3078 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3079 return
heinrichsweikamp
parents:
diff changeset
3080
heinrichsweikamp
parents:
diff changeset
3081 global TFT_nofly_time
heinrichsweikamp
parents:
diff changeset
3082 TFT_nofly_time:
heinrichsweikamp
parents:
diff changeset
3083 rcall TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
3084 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
3085 return ; No
heinrichsweikamp
parents:
diff changeset
3086 STRCPY "NoFly:"
heinrichsweikamp
parents:
diff changeset
3087 movff nofly_time+0,lo ; divide by 60...
heinrichsweikamp
parents:
diff changeset
3088 movff nofly_time+1,hi
heinrichsweikamp
parents:
diff changeset
3089 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
heinrichsweikamp
parents:
diff changeset
3090 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3091 movf lo,W
heinrichsweikamp
parents:
diff changeset
3092 movff hi,lo
heinrichsweikamp
parents:
diff changeset
3093 movwf hi ; exchange lo and hi...
heinrichsweikamp
parents:
diff changeset
3094 output_8 ; Hours
heinrichsweikamp
parents:
diff changeset
3095 PUTC ':'
heinrichsweikamp
parents:
diff changeset
3096 movff hi,lo ; Minutes
heinrichsweikamp
parents:
diff changeset
3097 output_99x
heinrichsweikamp
parents:
diff changeset
3098 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3099 movlw surf_warning_length ; Only use surface string length
heinrichsweikamp
parents:
diff changeset
3100 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
3101 movlw .0
1464cd73d184 BUGFIX: Display Desat.-Time >100 hours
heinrichsweikamp
parents: 55
diff changeset
3102 movff WREG,buffer+11
0
heinrichsweikamp
parents:
diff changeset
3103 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3104 return
heinrichsweikamp
parents:
diff changeset
3105
heinrichsweikamp
parents:
diff changeset
3106 global TFT_warning_agf
heinrichsweikamp
parents:
diff changeset
3107 TFT_warning_agf:
heinrichsweikamp
parents:
diff changeset
3108 rcall TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
3109 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
3110 return ; No
heinrichsweikamp
parents:
diff changeset
3111 call TFT_warnings_color
heinrichsweikamp
parents:
diff changeset
3112 STRCPY_TEXT tDiveaGF_active ; "aGF!"
heinrichsweikamp
parents:
diff changeset
3113 movlw warning_length ; Divemode string length
heinrichsweikamp
parents:
diff changeset
3114 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
3115 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3116 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3117 return
heinrichsweikamp
parents:
diff changeset
3118
145
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3119 global TFT_warning_fallback
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3120 TFT_warning_fallback: ; Show fallback warning
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3121 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
3122 tstfsz WREG ; Is there room for the warning?
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3123 return ; No
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3124 call TFT_warnings_color
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3125 STRCPY_TEXT tDiveFallback ; "Fallback!"
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3126 movlw warning_length ; Divemode string length
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3127 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
3128 STRCAT_PRINT ""
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3129 call TFT_standard_color
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3130 return
e3ac5b2021bc NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents: 139
diff changeset
3131
0
heinrichsweikamp
parents:
diff changeset
3132 global TFT_warning_gf
heinrichsweikamp
parents:
diff changeset
3133 TFT_warning_gf: ;GF
heinrichsweikamp
parents:
diff changeset
3134 rcall TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
3135 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
3136 return ; No
heinrichsweikamp
parents:
diff changeset
3137 TFT_color_code warn_gf ; Color-code Output
heinrichsweikamp
parents:
diff changeset
3138 STRCPY "GF:"
heinrichsweikamp
parents:
diff changeset
3139 movff char_O_gradient_factor,lo ; gradient factor
heinrichsweikamp
parents:
diff changeset
3140 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3141 output_8
heinrichsweikamp
parents:
diff changeset
3142 PUTC "%"
heinrichsweikamp
parents:
diff changeset
3143 movlw warning_length ; Divemode string length
heinrichsweikamp
parents:
diff changeset
3144 btfss divemode ; In Divemode?
heinrichsweikamp
parents:
diff changeset
3145 movlw surf_warning_length ; No, use surface string length
heinrichsweikamp
parents:
diff changeset
3146 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
3147 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3148 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3149 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3150 return
heinrichsweikamp
parents:
diff changeset
3151
heinrichsweikamp
parents:
diff changeset
3152 TFT_warning_set_window: ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
3153 ; ignore warning (now)?
heinrichsweikamp
parents:
diff changeset
3154 decf warning_counter,W ; -1
heinrichsweikamp
parents:
diff changeset
3155 bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
3156 rrcf WREG,W ; (warning_counter-1)/2
heinrichsweikamp
parents:
diff changeset
3157 cpfseq warning_page
heinrichsweikamp
parents:
diff changeset
3158 retlw .255 ; WREG <> 0 -> Warning window not defined
heinrichsweikamp
parents:
diff changeset
3159
heinrichsweikamp
parents:
diff changeset
3160 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3161
heinrichsweikamp
parents:
diff changeset
3162 btfss divemode ; in divemode?
heinrichsweikamp
parents:
diff changeset
3163 bra TFT_warning_set_window3 ; No, setup for surface mode
heinrichsweikamp
parents:
diff changeset
3164
heinrichsweikamp
parents:
diff changeset
3165 btfss warning_counter,0 ; Toggle with each warning
heinrichsweikamp
parents:
diff changeset
3166 bra TFT_warning_set_window2
heinrichsweikamp
parents:
diff changeset
3167 WIN_SMALL warning1_column,warning1_row
heinrichsweikamp
parents:
diff changeset
3168 bcf second_row_warning ; =1: The second row contains a warning
heinrichsweikamp
parents:
diff changeset
3169 retlw .0 ; WREG=0 -> Warning window defined
heinrichsweikamp
parents:
diff changeset
3170 TFT_warning_set_window2:
heinrichsweikamp
parents:
diff changeset
3171 WIN_SMALL warning2_column,warning2_row
heinrichsweikamp
parents:
diff changeset
3172 bsf second_row_warning ; =1: The second row contains a warning
heinrichsweikamp
parents:
diff changeset
3173 retlw .0 ; WREG=0 -> Warning window defined
heinrichsweikamp
parents:
diff changeset
3174
heinrichsweikamp
parents:
diff changeset
3175 TFT_warning_set_window3:
heinrichsweikamp
parents:
diff changeset
3176 btfss warning_counter,0 ; Toggle with each warning
heinrichsweikamp
parents:
diff changeset
3177 bra TFT_warning_set_window4
heinrichsweikamp
parents:
diff changeset
3178 WIN_SMALL surf_warning1_column,surf_warning1_row
heinrichsweikamp
parents:
diff changeset
3179 bcf second_row_warning ; =1: The second row contains a warning
heinrichsweikamp
parents:
diff changeset
3180 retlw .0 ; WREG=0 -> Warning window defined
heinrichsweikamp
parents:
diff changeset
3181 TFT_warning_set_window4:
heinrichsweikamp
parents:
diff changeset
3182 WIN_SMALL surf_warning2_column,surf_warning2_row
heinrichsweikamp
parents:
diff changeset
3183 bsf second_row_warning ; =1: The second row contains a warning
heinrichsweikamp
parents:
diff changeset
3184 retlw .0 ; WREG=0 -> Warning window defined
heinrichsweikamp
parents:
diff changeset
3185
heinrichsweikamp
parents:
diff changeset
3186
heinrichsweikamp
parents:
diff changeset
3187 global TFT_update_batt_percent_divemode
heinrichsweikamp
parents:
diff changeset
3188 TFT_update_batt_percent_divemode:
heinrichsweikamp
parents:
diff changeset
3189 rcall TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
3190 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
3191 return ; No
heinrichsweikamp
parents:
diff changeset
3192 movff batt_percent,lo ; Get battery percent
heinrichsweikamp
parents:
diff changeset
3193 TFT_color_code warn_battery; Color-code battery percent
heinrichsweikamp
parents:
diff changeset
3194 STRCPY "Batt:"
heinrichsweikamp
parents:
diff changeset
3195 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3196 output_8
heinrichsweikamp
parents:
diff changeset
3197 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3198 PUTC "%"
heinrichsweikamp
parents:
diff changeset
3199 movlw warning_length ; Divemode string length
heinrichsweikamp
parents:
diff changeset
3200 btfss divemode ; In Divemode?
heinrichsweikamp
parents:
diff changeset
3201 movlw surf_warning_length ; No, use surface string length
heinrichsweikamp
parents:
diff changeset
3202 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
3203 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3204 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3205 return
heinrichsweikamp
parents:
diff changeset
3206
heinrichsweikamp
parents:
diff changeset
3207
heinrichsweikamp
parents:
diff changeset
3208 global TFT_gf_mask ; Setup Mask
heinrichsweikamp
parents:
diff changeset
3209 TFT_gf_mask:
heinrichsweikamp
parents:
diff changeset
3210 ; The mask
heinrichsweikamp
parents:
diff changeset
3211 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
3212 WIN_TINY dive_gf_column1,dive_gf_text_row
heinrichsweikamp
parents:
diff changeset
3213 STRCPY_TEXT_PRINT tGFactors
heinrichsweikamp
parents:
diff changeset
3214 WIN_TINY dive_gf_column2,dive_gf_text_row
heinrichsweikamp
parents:
diff changeset
3215 STRCPY_TEXT_PRINT taGFactors
heinrichsweikamp
parents:
diff changeset
3216 WIN_TINY dive_gf_column3,dive_gf_text_row
heinrichsweikamp
parents:
diff changeset
3217 STRCPY_TEXT_PRINT tGFInfo
heinrichsweikamp
parents:
diff changeset
3218
heinrichsweikamp
parents:
diff changeset
3219 ; Show GF (Static)
heinrichsweikamp
parents:
diff changeset
3220 call TFT_disabled_color
heinrichsweikamp
parents:
diff changeset
3221 btfss use_agf
heinrichsweikamp
parents:
diff changeset
3222 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3223
heinrichsweikamp
parents:
diff changeset
3224 WIN_STD dive_gf_column,dive_gf_row
heinrichsweikamp
parents:
diff changeset
3225 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3226 movff opt_GF_low,lo
heinrichsweikamp
parents:
diff changeset
3227 output_8
heinrichsweikamp
parents:
diff changeset
3228 PUTC "/"
heinrichsweikamp
parents:
diff changeset
3229 movff opt_GF_high,lo
heinrichsweikamp
parents:
diff changeset
3230 output_8
heinrichsweikamp
parents:
diff changeset
3231 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3232 ; Show aGF (Static)
heinrichsweikamp
parents:
diff changeset
3233 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3234 TSTOSS opt_enable_aGF ; =1: aGF can be selected underwater
heinrichsweikamp
parents:
diff changeset
3235 bra TFT_gf_mask2 ; Show "---" instead
heinrichsweikamp
parents:
diff changeset
3236
heinrichsweikamp
parents:
diff changeset
3237 btfss use_agf
heinrichsweikamp
parents:
diff changeset
3238 call TFT_disabled_color
heinrichsweikamp
parents:
diff changeset
3239
heinrichsweikamp
parents:
diff changeset
3240 WIN_STD dive_agf_column,dive_agf_row
heinrichsweikamp
parents:
diff changeset
3241 movff opt_aGF_low,lo
heinrichsweikamp
parents:
diff changeset
3242 output_8
heinrichsweikamp
parents:
diff changeset
3243 PUTC "/"
heinrichsweikamp
parents:
diff changeset
3244 movff opt_aGF_high,lo
heinrichsweikamp
parents:
diff changeset
3245 output_8
heinrichsweikamp
parents:
diff changeset
3246 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3247 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3248 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3249 return
heinrichsweikamp
parents:
diff changeset
3250
heinrichsweikamp
parents:
diff changeset
3251 TFT_gf_mask2:
heinrichsweikamp
parents:
diff changeset
3252 WIN_STD dive_agf_column+.10,dive_agf_row
heinrichsweikamp
parents:
diff changeset
3253 STRCPY_PRINT "---"
heinrichsweikamp
parents:
diff changeset
3254 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3255 return
heinrichsweikamp
parents:
diff changeset
3256
heinrichsweikamp
parents:
diff changeset
3257 global TFT_gf_info ; Show GF informations
heinrichsweikamp
parents:
diff changeset
3258 TFT_gf_info:
heinrichsweikamp
parents:
diff changeset
3259 ; Show current GF
heinrichsweikamp
parents:
diff changeset
3260 movff char_O_gradient_factor,lo ; gradient factor absolute (Non-GF model)
heinrichsweikamp
parents:
diff changeset
3261 movff char_I_deco_model,hi
heinrichsweikamp
parents:
diff changeset
3262 decfsz hi,F ; jump over next line if char_I_deco_model == 1
heinrichsweikamp
parents:
diff changeset
3263 movff char_O_relative_gradient_GF,lo ; gradient factor relative (GF model)
heinrichsweikamp
parents:
diff changeset
3264 WIN_STD dive_currentgf_column,dive_currentgf_row
heinrichsweikamp
parents:
diff changeset
3265 output_8
heinrichsweikamp
parents:
diff changeset
3266 STRCAT_PRINT "%"
heinrichsweikamp
parents:
diff changeset
3267 return
heinrichsweikamp
parents:
diff changeset
3268
heinrichsweikamp
parents:
diff changeset
3269 global TFT_ead_end_tissues_clock_mask ; Setup Mask
heinrichsweikamp
parents:
diff changeset
3270 TFT_ead_end_tissues_clock_mask:
heinrichsweikamp
parents:
diff changeset
3271 ; The mask
heinrichsweikamp
parents:
diff changeset
3272 call TFT_divemask_color
134
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3273 btfsc FLAG_apnoe_mode ; In Apnoe mode?
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3274 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
3275 btfsc FLAG_gauge_mode ; In Gauge mode?
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3276 bra TFT_ead_end_tissues_clock_mask2 ; Yes
0
heinrichsweikamp
parents:
diff changeset
3277 ; Put three columns at HUD positions
heinrichsweikamp
parents:
diff changeset
3278 WIN_TINY dive_custom_hud_column2,dive_custom_hud_row
heinrichsweikamp
parents:
diff changeset
3279 STRCPY_TEXT_PRINT tDiveEAD_END
heinrichsweikamp
parents:
diff changeset
3280 WIN_TINY dive_custom_hud_column3,dive_custom_hud_row
heinrichsweikamp
parents:
diff changeset
3281 STRCPY_TEXT_PRINT tDiveTissues
134
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3282 TFT_ead_end_tissues_clock_mask2: ; Show only clock
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3283 WIN_TINY dive_custom_hud_column1,dive_custom_hud_row
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3284 STRCPY_TEXT_PRINT tDiveClock
0
heinrichsweikamp
parents:
diff changeset
3285 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3286 return
heinrichsweikamp
parents:
diff changeset
3287
heinrichsweikamp
parents:
diff changeset
3288 global TFT_ead_end_tissues_clock ; Show EAD/END, Tissues and clock
heinrichsweikamp
parents:
diff changeset
3289 TFT_ead_end_tissues_clock:
heinrichsweikamp
parents:
diff changeset
3290 ; Update clock and date
heinrichsweikamp
parents:
diff changeset
3291 WIN_SMALL dive_clock_column,dive_clock_row
heinrichsweikamp
parents:
diff changeset
3292 call TFT_clock2 ; print clock
134
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3293
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3294 btfsc FLAG_apnoe_mode ; In Apnoe mode?
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3295 return ; Yes, done.
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3296 btfsc FLAG_gauge_mode ; In Gauge mode?
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3297 return ; Yes, done.
4574aed5cd4c Show clock in Apnea mode, minor layout changes in Apnea mode
heinrichsweikamp
parents: 131
diff changeset
3298
105
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3299 ; WIN_SMALL dive_endtime_column,dive_endtime_row
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3300 ;
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3301 ; btfss decostop_active ; Already in nodeco mode ?
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3302 ; bra TFT_ead_end_tissues_clock2 ; No, overwrite with some spaces
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3303 ;
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3304 ; STRCPY 0x94 ; "End of dive" icon
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3305 ; movff hours,WREG
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3306 ; mullw .60
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3307 ; movf mins,W
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3308 ; addwf PRODL
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3309 ; movlw .0
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3310 ; addwfc PRODH
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3311 ; movff PRODL, lo
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3312 ; movff PRODH, hi
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3313 ;
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3314 ; ; Add TTS
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3315 ; movff int_O_ascenttime+0,WREG ; TTS
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3316 ; addwf lo,F
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3317 ; movff int_O_ascenttime+1,WREG ; TTS is 16bits
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3318 ; addwfc hi,F
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3319 ;
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3320 ; 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
3321 ; movf hi,W
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3322 ; movff lo,hi
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3323 ; movwf lo ; exchange lo and hi
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3324 ; output_99x
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3325 ; PUTC ':'
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3326 ; movff hi,lo
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3327 ; output_99x
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3328 ; STRCAT_PRINT ""
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3329 ; bra TFT_ead_end_tissues_clock3
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3330 ;
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3331 ;TFT_ead_end_tissues_clock2:
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3332 ; STRCPY_PRINT " "
0aaa4877ba25 Show HUD voltages only in CCR mode...
heinrichsweikamp
parents: 104
diff changeset
3333 ;TFT_ead_end_tissues_clock3:
0
heinrichsweikamp
parents:
diff changeset
3334
heinrichsweikamp
parents:
diff changeset
3335 ; Show END/EAD
heinrichsweikamp
parents:
diff changeset
3336 WIN_SMALL dive_ead_column,dive_ead_row
heinrichsweikamp
parents:
diff changeset
3337 STRCPY_TEXT tEAD ; EAD:
heinrichsweikamp
parents:
diff changeset
3338 movff char_O_EAD,lo
heinrichsweikamp
parents:
diff changeset
3339 rcall TFT_end_ead_common ; print "lo m" (or ft) and limit to 8 chars
heinrichsweikamp
parents:
diff changeset
3340 WIN_SMALL dive_end_column,dive_end_row
heinrichsweikamp
parents:
diff changeset
3341 STRCPY_TEXT tEND ; END:
heinrichsweikamp
parents:
diff changeset
3342 movff char_O_END,lo
heinrichsweikamp
parents:
diff changeset
3343 rcall TFT_end_ead_common ; print "lo m" (or ft) and limit to 8 chars
heinrichsweikamp
parents:
diff changeset
3344
heinrichsweikamp
parents:
diff changeset
3345 ; Show tissue diagram
heinrichsweikamp
parents:
diff changeset
3346 call TFT_divemask_color
heinrichsweikamp
parents:
diff changeset
3347 WIN_TINY dive_tissue_N2_column,dive_tissue_N2_row
heinrichsweikamp
parents:
diff changeset
3348 STRCPY_TEXT_PRINT tN2
heinrichsweikamp
parents:
diff changeset
3349 WIN_TINY dive_tissue_He_column,dive_tissue_He_row
heinrichsweikamp
parents:
diff changeset
3350 STRCPY_TEXT_PRINT tHe
heinrichsweikamp
parents:
diff changeset
3351 call deco_calc_desaturation_time ; calculate desaturation time (and char_O_tissue_N2_saturation and char_O_tissue_He_saturation)
heinrichsweikamp
parents:
diff changeset
3352 movlb b'00000001' ; select ram bank 1
heinrichsweikamp
parents:
diff changeset
3353 rcall DISP_tissue_saturation_graph ; Show char_O_tissue_N2_saturation and char_O_tissue_He_saturation
heinrichsweikamp
parents:
diff changeset
3354 return
heinrichsweikamp
parents:
diff changeset
3355
heinrichsweikamp
parents:
diff changeset
3356 TFT_end_ead_common: ; print "lo m" (or ft) and limit to 8 chars
heinrichsweikamp
parents:
diff changeset
3357 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3358 TSTOSS opt_units ; 0=Meters, 1=Feets
heinrichsweikamp
parents:
diff changeset
3359 bra TFT_end_ead_common_metric
heinrichsweikamp
parents:
diff changeset
3360 ;TFT_end_ead_common_imperial:
heinrichsweikamp
parents:
diff changeset
3361 ; With lo in m
heinrichsweikamp
parents:
diff changeset
3362 movf lo,W
heinrichsweikamp
parents:
diff changeset
3363 mullw .100 ; PRODL:PRODH = mbar/min
heinrichsweikamp
parents:
diff changeset
3364 movff PRODL,lo
heinrichsweikamp
parents:
diff changeset
3365 movff PRODH,hi
heinrichsweikamp
parents:
diff changeset
3366 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
3367 output_16_3
heinrichsweikamp
parents:
diff changeset
3368 STRCAT_TEXT tFeets
heinrichsweikamp
parents:
diff changeset
3369 clrf WREG
heinrichsweikamp
parents:
diff changeset
3370 movff WREG,buffer+.8 ; limit string length to 8
heinrichsweikamp
parents:
diff changeset
3371 bra TFT_end_ead_common_exit
heinrichsweikamp
parents:
diff changeset
3372 TFT_end_ead_common_metric:
heinrichsweikamp
parents:
diff changeset
3373 output_8
heinrichsweikamp
parents:
diff changeset
3374 STRCAT_TEXT tMeters
heinrichsweikamp
parents:
diff changeset
3375 TFT_end_ead_common_exit:
heinrichsweikamp
parents:
diff changeset
3376 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3377 movlw .8
heinrichsweikamp
parents:
diff changeset
3378 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
3379 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3380 return
heinrichsweikamp
parents:
diff changeset
3381
heinrichsweikamp
parents:
diff changeset
3382 global TFT_surface_tissues
heinrichsweikamp
parents:
diff changeset
3383 TFT_surface_tissues: ; Show Tissue diagram in surface mode
heinrichsweikamp
parents:
diff changeset
3384 WIN_SMALL surf_tissue_N2_column,surf_tissue_N2_row
heinrichsweikamp
parents:
diff changeset
3385 STRCPY_TEXT_PRINT tN2
heinrichsweikamp
parents:
diff changeset
3386 WIN_SMALL surf_tissue_He_column,surf_tissue_He_row
heinrichsweikamp
parents:
diff changeset
3387 STRCPY_TEXT_PRINT tHe
heinrichsweikamp
parents:
diff changeset
3388
heinrichsweikamp
parents:
diff changeset
3389 call deco_calc_desaturation_time ; calculate desaturation time (and char_O_tissue_N2_saturation and char_O_tissue_He_saturation)
heinrichsweikamp
parents:
diff changeset
3390 movlb b'00000001' ; select ram bank 1
heinrichsweikamp
parents:
diff changeset
3391
heinrichsweikamp
parents:
diff changeset
3392 movlw color_deepblue
heinrichsweikamp
parents:
diff changeset
3393 call TFT_set_color ; Make this configurable?
heinrichsweikamp
parents:
diff changeset
3394 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.29,.29
heinrichsweikamp
parents:
diff changeset
3395 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.37,.37
heinrichsweikamp
parents:
diff changeset
3396 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.45,.45
heinrichsweikamp
parents:
diff changeset
3397 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.53,.53
heinrichsweikamp
parents:
diff changeset
3398 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.61,.61
heinrichsweikamp
parents:
diff changeset
3399 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.69,.69
heinrichsweikamp
parents:
diff changeset
3400 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.77,.77
heinrichsweikamp
parents:
diff changeset
3401 WIN_FRAME_COLOR16 surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,.85,.85
heinrichsweikamp
parents:
diff changeset
3402 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
3403
heinrichsweikamp
parents:
diff changeset
3404 movlw .1
heinrichsweikamp
parents:
diff changeset
3405 movff WREG,win_height ; row bottom (0-239)
heinrichsweikamp
parents:
diff changeset
3406 movlw surf_tissue_diagram_left+.4 ; Surface mode
heinrichsweikamp
parents:
diff changeset
3407 movff WREG,win_leftx2 ; column left (0-159)
heinrichsweikamp
parents:
diff changeset
3408 movlw surf_tissue_diagram_right-surf_tissue_diagram_left-4 ; Width
heinrichsweikamp
parents:
diff changeset
3409 movff WREG,win_width
heinrichsweikamp
parents:
diff changeset
3410
heinrichsweikamp
parents:
diff changeset
3411 ;---- Draw N2 Tissues
heinrichsweikamp
parents:
diff changeset
3412 lfsr FSR2, char_O_tissue_N2_saturation
heinrichsweikamp
parents:
diff changeset
3413 movlw d'16'
heinrichsweikamp
parents:
diff changeset
3414 movwf wait_temp ; 16 tissues
heinrichsweikamp
parents:
diff changeset
3415 clrf waitms_temp ; Row offset
heinrichsweikamp
parents:
diff changeset
3416 surf_tissue_saturation_graph_N2:
heinrichsweikamp
parents:
diff changeset
3417 movlw surf_tissue_diagram_top+.23 ; surface mode
heinrichsweikamp
parents:
diff changeset
3418 addwf waitms_temp,W
heinrichsweikamp
parents:
diff changeset
3419 movff WREG,win_top ; row top (0-239)
heinrichsweikamp
parents:
diff changeset
3420 rcall surf_tissue_saturation_loop ; Show one tissue
heinrichsweikamp
parents:
diff changeset
3421 decfsz wait_temp,F
heinrichsweikamp
parents:
diff changeset
3422 bra surf_tissue_saturation_graph_N2
heinrichsweikamp
parents:
diff changeset
3423
heinrichsweikamp
parents:
diff changeset
3424 ;---- Draw He Tissues ----------------------------------------------------
heinrichsweikamp
parents:
diff changeset
3425 lfsr FSR2, char_O_tissue_He_saturation
heinrichsweikamp
parents:
diff changeset
3426 movlw d'16'
heinrichsweikamp
parents:
diff changeset
3427 movwf wait_temp ; 16 tissues
heinrichsweikamp
parents:
diff changeset
3428 clrf waitms_temp ; Row offset
heinrichsweikamp
parents:
diff changeset
3429 surf_tissue_saturation_graph_He:
heinrichsweikamp
parents:
diff changeset
3430 movlw surf_tissue_diagram_top+.23+.56 ; surface mode
heinrichsweikamp
parents:
diff changeset
3431 addwf waitms_temp,W
heinrichsweikamp
parents:
diff changeset
3432 movff WREG,win_top ; row top (0-239)
heinrichsweikamp
parents:
diff changeset
3433 rcall surf_tissue_saturation_loop ; Show one tissue
heinrichsweikamp
parents:
diff changeset
3434 decfsz wait_temp,F
heinrichsweikamp
parents:
diff changeset
3435 bra surf_tissue_saturation_graph_He
heinrichsweikamp
parents:
diff changeset
3436 return
heinrichsweikamp
parents:
diff changeset
3437
heinrichsweikamp
parents:
diff changeset
3438 surf_tissue_saturation_loop:
heinrichsweikamp
parents:
diff changeset
3439 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3440 movlw .2 ; row spacing
heinrichsweikamp
parents:
diff changeset
3441 addwf waitms_temp,F
heinrichsweikamp
parents:
diff changeset
3442 movf POSTINC2,W ; Get tissue load
heinrichsweikamp
parents:
diff changeset
3443 bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
3444 rrcf WREG ; And divide by 2
heinrichsweikamp
parents:
diff changeset
3445 movwf temp1
heinrichsweikamp
parents:
diff changeset
3446 movlw .20
heinrichsweikamp
parents:
diff changeset
3447 subwf temp1,F ; Subtract some offset
heinrichsweikamp
parents:
diff changeset
3448 movff win_width,WREG ; Max width.
heinrichsweikamp
parents:
diff changeset
3449 cpfslt temp1 ; skip if WREG < win_width
heinrichsweikamp
parents:
diff changeset
3450 movwf temp1
heinrichsweikamp
parents:
diff changeset
3451 movff temp1,win_bargraph
heinrichsweikamp
parents:
diff changeset
3452 call TFT_box
heinrichsweikamp
parents:
diff changeset
3453 return
heinrichsweikamp
parents:
diff changeset
3454
heinrichsweikamp
parents:
diff changeset
3455 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
3456 ; Draw saturation graph, is surface mode or in dive mode.
heinrichsweikamp
parents:
diff changeset
3457 DISP_tissue_saturation_graph:
heinrichsweikamp
parents:
diff changeset
3458 ;---- Draw Frame
50
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
3459 call TFT_standard_color
ec4d8503ec45 NEW: user-selectable color schemes
heinrichsweikamp
parents: 48
diff changeset
3460 WIN_FRAME_COLOR16 tissue_diagram_top, tissue_diagram_bottom, tissue_diagram_left, .159 ; outer frame
0
heinrichsweikamp
parents:
diff changeset
3461
heinrichsweikamp
parents:
diff changeset
3462 movlw .1
heinrichsweikamp
parents:
diff changeset
3463 movff WREG,win_height ; row bottom (0-239)
heinrichsweikamp
parents:
diff changeset
3464 movlw tissue_diagram_left+.3 ; divemode
heinrichsweikamp
parents:
diff changeset
3465 movff WREG,win_leftx2 ; column left (0-159)
heinrichsweikamp
parents:
diff changeset
3466 movlw .159-tissue_diagram_left-4 ; Width
heinrichsweikamp
parents:
diff changeset
3467 movff WREG,win_width
heinrichsweikamp
parents:
diff changeset
3468
heinrichsweikamp
parents:
diff changeset
3469 ;---- Draw N2 Tissues
heinrichsweikamp
parents:
diff changeset
3470 lfsr FSR2, char_O_tissue_N2_saturation
heinrichsweikamp
parents:
diff changeset
3471 movlw d'16'
heinrichsweikamp
parents:
diff changeset
3472 movwf wait_temp ; 16 tissues
heinrichsweikamp
parents:
diff changeset
3473 clrf waitms_temp ; Row offset
heinrichsweikamp
parents:
diff changeset
3474 tissue_saturation_graph_N2:
heinrichsweikamp
parents:
diff changeset
3475 movlw tissue_diagram_top+3 ; divemode
heinrichsweikamp
parents:
diff changeset
3476 addwf waitms_temp,W
heinrichsweikamp
parents:
diff changeset
3477 movff WREG,win_top ; row top (0-239)
heinrichsweikamp
parents:
diff changeset
3478 rcall tissue_saturation_graph_loop ; Show one tissue
heinrichsweikamp
parents:
diff changeset
3479 decfsz wait_temp,F
heinrichsweikamp
parents:
diff changeset
3480 bra tissue_saturation_graph_N2
heinrichsweikamp
parents:
diff changeset
3481
heinrichsweikamp
parents:
diff changeset
3482 ;---- Draw He Tissues ----------------------------------------------------
heinrichsweikamp
parents:
diff changeset
3483 lfsr FSR2, char_O_tissue_He_saturation
heinrichsweikamp
parents:
diff changeset
3484 movlw d'16'
heinrichsweikamp
parents:
diff changeset
3485 movwf wait_temp ; 16 tissues
heinrichsweikamp
parents:
diff changeset
3486 clrf waitms_temp ; Row offset
heinrichsweikamp
parents:
diff changeset
3487 tissue_saturation_graph_He:
heinrichsweikamp
parents:
diff changeset
3488 movlw tissue_diagram_top+3+.22 ; divemode
heinrichsweikamp
parents:
diff changeset
3489 addwf waitms_temp,W
heinrichsweikamp
parents:
diff changeset
3490 movff WREG,win_top ; row top (0-239)
heinrichsweikamp
parents:
diff changeset
3491
heinrichsweikamp
parents:
diff changeset
3492 rcall tissue_saturation_graph_loop ; Show one tissue
heinrichsweikamp
parents:
diff changeset
3493
heinrichsweikamp
parents:
diff changeset
3494 decfsz wait_temp,F
heinrichsweikamp
parents:
diff changeset
3495 bra tissue_saturation_graph_He
heinrichsweikamp
parents:
diff changeset
3496 return
heinrichsweikamp
parents:
diff changeset
3497
heinrichsweikamp
parents:
diff changeset
3498 tissue_saturation_graph_loop:
heinrichsweikamp
parents:
diff changeset
3499 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3500 incf waitms_temp,F
heinrichsweikamp
parents:
diff changeset
3501 movf POSTINC2,W
heinrichsweikamp
parents:
diff changeset
3502 bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
3503 rrcf WREG
heinrichsweikamp
parents:
diff changeset
3504 bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
3505 rrcf WREG ; And divide by 4
heinrichsweikamp
parents:
diff changeset
3506 movwf temp1
heinrichsweikamp
parents:
diff changeset
3507 movlw .12
heinrichsweikamp
parents:
diff changeset
3508 subwf temp1,F ; Subtract some offset
heinrichsweikamp
parents:
diff changeset
3509 movff win_width,WREG ; Max width.
heinrichsweikamp
parents:
diff changeset
3510 cpfslt temp1 ; skip if WREG < win_width
heinrichsweikamp
parents:
diff changeset
3511 movwf temp1
heinrichsweikamp
parents:
diff changeset
3512 movff temp1,win_bargraph
heinrichsweikamp
parents:
diff changeset
3513 call TFT_box
heinrichsweikamp
parents:
diff changeset
3514 return
heinrichsweikamp
parents:
diff changeset
3515
55
448ba265fdae Change "O2" warning to "ppO2"
heinrichsweikamp
parents: 54
diff changeset
3516
0
heinrichsweikamp
parents:
diff changeset
3517 global TFT_display_cns
heinrichsweikamp
parents:
diff changeset
3518 TFT_display_cns:
heinrichsweikamp
parents:
diff changeset
3519 rcall TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
3520 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
3521 return ; No
heinrichsweikamp
parents:
diff changeset
3522 TFT_color_code warn_cns ; Color-code CNS output
heinrichsweikamp
parents:
diff changeset
3523 STRCPY_TEXT tCNS2 ; CNS:
heinrichsweikamp
parents:
diff changeset
3524 movff int_O_CNS_fraction+0,lo
heinrichsweikamp
parents:
diff changeset
3525 movff int_O_CNS_fraction+1,hi
heinrichsweikamp
parents:
diff changeset
3526 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3527 output_16_3 ;Displays only 0...999
heinrichsweikamp
parents:
diff changeset
3528 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3529 PUTC "%"
heinrichsweikamp
parents:
diff changeset
3530 movlw warning_length ; Divemode string length
heinrichsweikamp
parents:
diff changeset
3531 btfss divemode ; In Divemode?
heinrichsweikamp
parents:
diff changeset
3532 movlw surf_warning_length ; No, use surface string length
heinrichsweikamp
parents:
diff changeset
3533 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
3534 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3535 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3536 return
heinrichsweikamp
parents:
diff changeset
3537
heinrichsweikamp
parents:
diff changeset
3538 global TFT_display_ppo2
heinrichsweikamp
parents:
diff changeset
3539 TFT_display_ppo2: ; Show ppO2 (ppO2 stored in xC, in mbar!)
heinrichsweikamp
parents:
diff changeset
3540 rcall TFT_warning_set_window ; Sets the row and column for the current warning
heinrichsweikamp
parents:
diff changeset
3541 tstfsz WREG ; Is there room for the warning?
heinrichsweikamp
parents:
diff changeset
3542 return ; No
heinrichsweikamp
parents:
diff changeset
3543 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
3544 STRCPY_TEXT tppO2 ; ppO2:
0
heinrichsweikamp
parents:
diff changeset
3545 ; Check very high ppO2 manually
heinrichsweikamp
parents:
diff changeset
3546 tstfsz xC+2 ; char_I_O2_ratio * p_amb/10 > 65536, ppO2>6,55bar?
heinrichsweikamp
parents:
diff changeset
3547 bra TFT_show_ppO2_3 ; Yes, display fixed Value!
heinrichsweikamp
parents:
diff changeset
3548 movff xC+0,lo
heinrichsweikamp
parents:
diff changeset
3549 movff xC+1,hi
heinrichsweikamp
parents:
diff changeset
3550 bsf ignore_digit4
heinrichsweikamp
parents:
diff changeset
3551 output_16dp d'1'
heinrichsweikamp
parents:
diff changeset
3552 TFT_show_ppO2_2:
heinrichsweikamp
parents:
diff changeset
3553 movlw warning_length ; Divemode string length
heinrichsweikamp
parents:
diff changeset
3554 rcall TFT_fillup_with_spaces ; Fillup FSR2 with spaces (Total string length in #WREG)
heinrichsweikamp
parents:
diff changeset
3555 STRCAT_PRINT ""
heinrichsweikamp
parents:
diff changeset
3556 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
3557 return
heinrichsweikamp
parents:
diff changeset
3558
heinrichsweikamp
parents:
diff changeset
3559 TFT_show_ppO2_3:
heinrichsweikamp
parents:
diff changeset
3560 STRCAT ">6.6"
heinrichsweikamp
parents:
diff changeset
3561 bra TFT_show_ppO2_2
heinrichsweikamp
parents:
diff changeset
3562
heinrichsweikamp
parents:
diff changeset
3563
heinrichsweikamp
parents:
diff changeset
3564 global TFT_LogOffset_Logtitle
heinrichsweikamp
parents:
diff changeset
3565 TFT_LogOffset_Logtitle:
heinrichsweikamp
parents:
diff changeset
3566 STRCPY_TEXT tLogOffset
heinrichsweikamp
parents:
diff changeset
3567 PUTC ":"
heinrichsweikamp
parents:
diff changeset
3568 call do_logoffset_common_read ; Offset into lo:hi
heinrichsweikamp
parents:
diff changeset
3569 bsf leftbind
heinrichsweikamp
parents:
diff changeset
3570 output_16
heinrichsweikamp
parents:
diff changeset
3571 bcf leftbind
heinrichsweikamp
parents:
diff changeset
3572 PUTC " "
heinrichsweikamp
parents:
diff changeset
3573 return ; No "_PRINT" here...
heinrichsweikamp
parents:
diff changeset
3574
heinrichsweikamp
parents:
diff changeset
3575
heinrichsweikamp
parents:
diff changeset
3576 global adjust_depth_with_salinity
heinrichsweikamp
parents:
diff changeset
3577 adjust_depth_with_salinity: ; computes salinity setting into lo:hi [mbar]
heinrichsweikamp
parents:
diff changeset
3578 btfsc simulatormode_active ; Do apply salinity in Simulatormode
heinrichsweikamp
parents:
diff changeset
3579 return
heinrichsweikamp
parents:
diff changeset
3580
99
87cc1adfe4da show event "bailout" in the internal logbook
heinrichsweikamp
parents: 98
diff changeset
3581 global adjust_depth_with_salinity_log
0
heinrichsweikamp
parents:
diff changeset
3582 movff opt_salinity,WREG ; 0-5%
99
87cc1adfe4da show event "bailout" in the internal logbook
heinrichsweikamp
parents: 98
diff changeset
3583 adjust_depth_with_salinity_log: ; computes salinity setting (FROM WREG!) into lo:hi [mbar]
0
heinrichsweikamp
parents:
diff changeset
3584 addlw d'100' ; 1.00kg/l
heinrichsweikamp
parents:
diff changeset
3585 movwf wait_temp
heinrichsweikamp
parents:
diff changeset
3586
heinrichsweikamp
parents:
diff changeset
3587 movlw d'105' ; 105% ?
heinrichsweikamp
parents:
diff changeset
3588 cpfslt wait_temp ; Salinity higher limit
heinrichsweikamp
parents:
diff changeset
3589 return ; Out of limit, do not adjust lo:hi
heinrichsweikamp
parents:
diff changeset
3590 movlw d'99' ; 99% ?
heinrichsweikamp
parents:
diff changeset
3591 cpfsgt wait_temp ; Salinity lower limit
heinrichsweikamp
parents:
diff changeset
3592 return ; Out of limit, do not adjust lo:hi
heinrichsweikamp
parents:
diff changeset
3593
heinrichsweikamp
parents:
diff changeset
3594 movff lo,xA+0
heinrichsweikamp
parents:
diff changeset
3595 movff hi,xA+1
heinrichsweikamp
parents:
diff changeset
3596
heinrichsweikamp
parents:
diff changeset
3597 movlw d'102' ; 0,98bar/10m
heinrichsweikamp
parents:
diff changeset
3598 movwf xB+0
heinrichsweikamp
parents:
diff changeset
3599 clrf xB+1
heinrichsweikamp
parents:
diff changeset
3600 call mult16x16 ;xA*xB=xC (lo:hi * 100)
heinrichsweikamp
parents:
diff changeset
3601 movff wait_temp,xB+0 ; Salinity
heinrichsweikamp
parents:
diff changeset
3602 clrf xB+1
heinrichsweikamp
parents:
diff changeset
3603 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
heinrichsweikamp
parents:
diff changeset
3604 movff xC+0,lo
heinrichsweikamp
parents:
diff changeset
3605 movff xC+1,hi ; restore lo and hi with updated value
heinrichsweikamp
parents:
diff changeset
3606 return
heinrichsweikamp
parents:
diff changeset
3607
heinrichsweikamp
parents:
diff changeset
3608 global convert_mbar_to_feet ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
3609 convert_mbar_to_feet: ; convert value in lo:hi from mbar to feet
heinrichsweikamp
parents:
diff changeset
3610 movff lo,xA+0
heinrichsweikamp
parents:
diff changeset
3611 movff hi,xA+1
heinrichsweikamp
parents:
diff changeset
3612
heinrichsweikamp
parents:
diff changeset
3613 movlw LOW d'328' ; 328feet/100m
heinrichsweikamp
parents:
diff changeset
3614 movwf xB+0
heinrichsweikamp
parents:
diff changeset
3615 movlw HIGH d'328'
heinrichsweikamp
parents:
diff changeset
3616 movwf xB+1
heinrichsweikamp
parents:
diff changeset
3617
heinrichsweikamp
parents:
diff changeset
3618 call mult16x16 ; xA*xB=xC (lo:hi * 328)
heinrichsweikamp
parents:
diff changeset
3619
heinrichsweikamp
parents:
diff changeset
3620 movlw d'50' ; round up
heinrichsweikamp
parents:
diff changeset
3621 addwf xC+0,F
heinrichsweikamp
parents:
diff changeset
3622 movlw 0
heinrichsweikamp
parents:
diff changeset
3623 addwfc xC+1,F
heinrichsweikamp
parents:
diff changeset
3624 addwfc xC+2,F
heinrichsweikamp
parents:
diff changeset
3625 addwfc xC+3,F
heinrichsweikamp
parents:
diff changeset
3626
heinrichsweikamp
parents:
diff changeset
3627 movlw LOW .10000
heinrichsweikamp
parents:
diff changeset
3628 movwf xB+0
heinrichsweikamp
parents:
diff changeset
3629 movlw HIGH .10000
heinrichsweikamp
parents:
diff changeset
3630 movwf xB+1
heinrichsweikamp
parents:
diff changeset
3631
heinrichsweikamp
parents:
diff changeset
3632 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
heinrichsweikamp
parents:
diff changeset
3633
heinrichsweikamp
parents:
diff changeset
3634 movff xC+0,lo
heinrichsweikamp
parents:
diff changeset
3635 movff xC+1,hi ; restore lo and hi with updated value
heinrichsweikamp
parents:
diff changeset
3636 return
heinrichsweikamp
parents:
diff changeset
3637
heinrichsweikamp
parents:
diff changeset
3638 global convert_celsius_to_fahrenheit ; convert value in lo:hi from celsius to fahrenheit
heinrichsweikamp
parents:
diff changeset
3639 convert_celsius_to_fahrenheit: ; convert value in lo:hi from celsius to fahrenheit
heinrichsweikamp
parents:
diff changeset
3640 ; Does it work with signed temperature? mH
heinrichsweikamp
parents:
diff changeset
3641 movff lo,xA+0
heinrichsweikamp
parents:
diff changeset
3642 movff hi,xA+1
heinrichsweikamp
parents:
diff changeset
3643
heinrichsweikamp
parents:
diff changeset
3644 movlw d'18' ; 1C = 1.8F
heinrichsweikamp
parents:
diff changeset
3645 movwf xB+0
heinrichsweikamp
parents:
diff changeset
3646 clrf xB+1
heinrichsweikamp
parents:
diff changeset
3647
heinrichsweikamp
parents:
diff changeset
3648 call mult16x16 ;xA*xB=xC (lo:hi * 18)
heinrichsweikamp
parents:
diff changeset
3649
heinrichsweikamp
parents:
diff changeset
3650 movlw d'10'
heinrichsweikamp
parents:
diff changeset
3651 movwf xB+0
heinrichsweikamp
parents:
diff changeset
3652 clrf xB+1
heinrichsweikamp
parents:
diff changeset
3653
heinrichsweikamp
parents:
diff changeset
3654 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
heinrichsweikamp
parents:
diff changeset
3655
heinrichsweikamp
parents:
diff changeset
3656 movlw LOW d'320' ; 0C = 32F
heinrichsweikamp
parents:
diff changeset
3657 addwf xC+0,F
heinrichsweikamp
parents:
diff changeset
3658 movlw HIGH d'320'
heinrichsweikamp
parents:
diff changeset
3659 addwfc xC+1,F
heinrichsweikamp
parents:
diff changeset
3660
heinrichsweikamp
parents:
diff changeset
3661 movff xC+0,lo
heinrichsweikamp
parents:
diff changeset
3662 movff xC+1,hi ; restore lo and hi with updated value
heinrichsweikamp
parents:
diff changeset
3663 return
heinrichsweikamp
parents:
diff changeset
3664
heinrichsweikamp
parents:
diff changeset
3665 END