Mercurial > public > hwos_code

annotate src/tft_outputs.asm @ 551:33941d158069

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