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