Mercurial > public > hwos_code

annotate src/tft_outputs.asm @ 457:b4417044a042

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