Mercurial > public > hwos_code

annotate src/adc_lightsensor.asm @ 457:b4417044a042

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
recover old battery status prior 2.09
author heinrichsweikamp
date Wed, 28 Sep 2016 11:16:31 +0200
parents 66049b6f2c0b
children 025a0ce21f8b
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 adc.asm
heinrichsweikamp
parents:
diff changeset
4 ;
heinrichsweikamp
parents:
diff changeset
5 ;
heinrichsweikamp
parents:
diff changeset
6 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved.
heinrichsweikamp
parents:
diff changeset
7 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
8 ; HISTORY
heinrichsweikamp
parents:
diff changeset
9 ; 2011-08-08 : [mH] moving from OSTC code
heinrichsweikamp
parents:
diff changeset
10
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 270
diff changeset
11 #include "hwos.inc"
0
heinrichsweikamp
parents:
diff changeset
12 #include "math.inc"
heinrichsweikamp
parents:
diff changeset
13 #include "wait.inc"
heinrichsweikamp
parents:
diff changeset
14 #include "eeprom_rs232.inc"
113
heinrichsweikamp
parents: 44
diff changeset
15 #include "i2c.inc"
0
heinrichsweikamp
parents:
diff changeset
16
heinrichsweikamp
parents:
diff changeset
17 sensors CODE
heinrichsweikamp
parents:
diff changeset
18
heinrichsweikamp
parents:
diff changeset
19 wait_adc:
heinrichsweikamp
parents:
diff changeset
20 movwf ADCON0
heinrichsweikamp
parents:
diff changeset
21 nop
heinrichsweikamp
parents:
diff changeset
22 bsf ADCON0,1 ; start ADC
heinrichsweikamp
parents:
diff changeset
23 wait_adc2:
heinrichsweikamp
parents:
diff changeset
24 btfsc ADCON0,1 ; Wait...
heinrichsweikamp
parents:
diff changeset
25 bra wait_adc2
heinrichsweikamp
parents:
diff changeset
26 return
heinrichsweikamp
parents:
diff changeset
27
heinrichsweikamp
parents:
diff changeset
28 global get_battery_voltage
heinrichsweikamp
parents:
diff changeset
29 get_battery_voltage: ; starts ADC and waits until fnished
448
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
30 btfss battery_gauge_available
113
heinrichsweikamp
parents: 44
diff changeset
31 bra get_battery_voltage1 ; Normal ostc3 hardware
heinrichsweikamp
parents: 44
diff changeset
32
heinrichsweikamp
parents: 44
diff changeset
33 call lt2942_get_accumulated_charge
heinrichsweikamp
parents: 44
diff changeset
34 call lt2942_get_voltage
218
8fbd8c5ac51f 1.71beta start
heinrichsweikamp
parents: 207
diff changeset
35
8fbd8c5ac51f 1.71beta start
heinrichsweikamp
parents: 207
diff changeset
36 btfsc divemode
8fbd8c5ac51f 1.71beta start
heinrichsweikamp
parents: 207
diff changeset
37 return ; Not in divemode
8fbd8c5ac51f 1.71beta start
heinrichsweikamp
parents: 207
diff changeset
38
207
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 204
diff changeset
39 bcf cv_active
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 204
diff changeset
40 bcf cc_active
120
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
41 bcf LEDr
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
42 bcf TRISJ,2 ; Chrg-Out output
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
43 bsf CHRG_OUT
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
44
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
45 btfss CHRG_IN
207
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 204
diff changeset
46 bra charge_cc_active
120
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
47
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
48 bcf CHRG_OUT
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
49 bsf TRISJ,2 ; Chrg-Out high impedance
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
50
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
51 WAITMS d'1'
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
52
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
53 btfsc CHRG_IN
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
54 return
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
55 ;cv_active:
218
8fbd8c5ac51f 1.71beta start
heinrichsweikamp
parents: 207
diff changeset
56 decfsz safety_stop_countdown,F
8fbd8c5ac51f 1.71beta start
heinrichsweikamp
parents: 207
diff changeset
57 return
266
6a1ac89e2098 Charge done indicator (cR and 2 Hardware)
heinrichsweikamp
parents: 260
diff changeset
58 movlw .15
6a1ac89e2098 Charge done indicator (cR and 2 Hardware)
heinrichsweikamp
parents: 260
diff changeset
59 cpfsgt batt_voltage+1 ; Batt Voltage >= 16*256mV (4,096V)?
260
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 236
diff changeset
60 bra charge_cc_active ; No
207
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 204
diff changeset
61 bsf cc_active
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 204
diff changeset
62 bsf cv_active
120
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
63 bsf LEDr ; Indicate charging
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
64 call lt2942_charge_done ; Reset accumulating registers to 0xFFFF
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
65 WAITMS d'10'
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
66 bcf LEDr ; Indicate charging
218
8fbd8c5ac51f 1.71beta start
heinrichsweikamp
parents: 207
diff changeset
67 bsf safety_stop_countdown,0 ; =1
120
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
68 return
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
69
207
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 204
diff changeset
70 charge_cc_active:
f5d909e03f52 charge indicator on surface screen
heinrichsweikamp
parents: 204
diff changeset
71 bsf cc_active
120
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
72 bsf LEDr ; Indicate charging
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
73 bcf CHRG_OUT
e2f04bb2539c battery check in sleep
heinrichsweikamp
parents: 118
diff changeset
74 bsf TRISJ,2 ; Chrg-Out high impedance
260
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 236
diff changeset
75 movlw .10
218
8fbd8c5ac51f 1.71beta start
heinrichsweikamp
parents: 207
diff changeset
76 movwf safety_stop_countdown
113
heinrichsweikamp
parents: 44
diff changeset
77 return
heinrichsweikamp
parents: 44
diff changeset
78
heinrichsweikamp
parents: 44
diff changeset
79 get_battery_voltage1:
0
heinrichsweikamp
parents:
diff changeset
80 bsf adc_running ; =1: The ADC is in use
heinrichsweikamp
parents:
diff changeset
81 movlw b'00100000' ; 2.048V Vref+ -> 1LSB = 500µV
heinrichsweikamp
parents:
diff changeset
82 movwf ADCON1
heinrichsweikamp
parents:
diff changeset
83 movlw b'00011001' ; power on ADC, select AN6
heinrichsweikamp
parents:
diff changeset
84 rcall wait_adc
heinrichsweikamp
parents:
diff changeset
85
heinrichsweikamp
parents:
diff changeset
86 movff ADRESH,batt_voltage+1 ; store value
heinrichsweikamp
parents:
diff changeset
87 movff ADRESL,batt_voltage+0 ; store value
heinrichsweikamp
parents:
diff changeset
88 bcf ADCON0,0 ; power off ADC
heinrichsweikamp
parents:
diff changeset
89
heinrichsweikamp
parents:
diff changeset
90 ; Multiply with 2,006 to be excact here...
heinrichsweikamp
parents:
diff changeset
91 ; bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
92 ; rlcf xA+0,F
heinrichsweikamp
parents:
diff changeset
93 ;
heinrichsweikamp
parents:
diff changeset
94 ; rlcf xA+1,F ; x2
heinrichsweikamp
parents:
diff changeset
95
heinrichsweikamp
parents:
diff changeset
96 ; movff xA+0,batt_voltage+0 ; store value
heinrichsweikamp
parents:
diff changeset
97 ; movff xA+1,batt_voltage+1
heinrichsweikamp
parents:
diff changeset
98
heinrichsweikamp
parents:
diff changeset
99 movlw LOW lithium_36v_low
heinrichsweikamp
parents:
diff changeset
100 movwf sub_a+0
heinrichsweikamp
parents:
diff changeset
101 movlw HIGH lithium_36v_low
heinrichsweikamp
parents:
diff changeset
102 movwf sub_a+1
heinrichsweikamp
parents:
diff changeset
103 movff batt_voltage+0,sub_b+0
heinrichsweikamp
parents:
diff changeset
104 movff batt_voltage+1,sub_b+1
heinrichsweikamp
parents:
diff changeset
105 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
106 ; Battery is 3,6V (>lithium_36v_low?)
heinrichsweikamp
parents:
diff changeset
107 btfss neg_flag
heinrichsweikamp
parents:
diff changeset
108 bra get_battery_voltage4 ; No, use 1,5V
heinrichsweikamp
parents:
diff changeset
109
heinrichsweikamp
parents:
diff changeset
110 bsf battery_is_36v ; Yes, set flag (Cleared in power-on reset only!)
heinrichsweikamp
parents:
diff changeset
111
heinrichsweikamp
parents:
diff changeset
112 ; Check if the battery is near-dead already
heinrichsweikamp
parents:
diff changeset
113 movlw LOW lithium_36v_empty
heinrichsweikamp
parents:
diff changeset
114 movwf sub_a+0
heinrichsweikamp
parents:
diff changeset
115 movlw HIGH lithium_36v_empty
heinrichsweikamp
parents:
diff changeset
116 movwf sub_a+1
heinrichsweikamp
parents:
diff changeset
117 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
118 ; Battery is not dead yet (>lithium_36v_empty?)
heinrichsweikamp
parents:
diff changeset
119 btfsc neg_flag
heinrichsweikamp
parents:
diff changeset
120 bra get_battery_voltage2 ; Yes, battery is still ok
heinrichsweikamp
parents:
diff changeset
121
heinrichsweikamp
parents:
diff changeset
122 ; Battery is probably dead very soon
heinrichsweikamp
parents:
diff changeset
123 ; Set ">=24Ah used" into battery gauge registers
heinrichsweikamp
parents:
diff changeset
124 movlw .128
heinrichsweikamp
parents:
diff changeset
125 movff WREG,battery_gauge+5
heinrichsweikamp
parents:
diff changeset
126
heinrichsweikamp
parents:
diff changeset
127 get_battery_voltage2:
heinrichsweikamp
parents:
diff changeset
128 ; Use 3,6V battery gauging mode
heinrichsweikamp
parents:
diff changeset
129 movff battery_gauge+5,xC+3
heinrichsweikamp
parents:
diff changeset
130 movff battery_gauge+4,xC+2
heinrichsweikamp
parents:
diff changeset
131 movff battery_gauge+3,xC+1
heinrichsweikamp
parents:
diff changeset
132 movff battery_gauge+2,xC+0
heinrichsweikamp
parents:
diff changeset
133 ; battery_gauge:6 is nAs
heinrichsweikamp
parents:
diff changeset
134 ; devide through 65536
448
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
135 ; devide through battery_capacity:2
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
136 ; Result is in percent
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
137 movff internal_battery_capacity+0,xB+0
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
138 movff internal_battery_capacity+1,xB+1
0
heinrichsweikamp
parents:
diff changeset
139 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
heinrichsweikamp
parents:
diff changeset
140 movff xC+0,lo
heinrichsweikamp
parents:
diff changeset
141 ; Limit to 100
heinrichsweikamp
parents:
diff changeset
142 movlw .100
heinrichsweikamp
parents:
diff changeset
143 cpfslt lo
heinrichsweikamp
parents:
diff changeset
144 movwf lo
heinrichsweikamp
parents:
diff changeset
145 ; lo will be between 0 (Full) and 100 (empty)
heinrichsweikamp
parents:
diff changeset
146 movf lo,W
heinrichsweikamp
parents:
diff changeset
147 sublw .100
heinrichsweikamp
parents:
diff changeset
148 movwf lo
heinrichsweikamp
parents:
diff changeset
149 get_battery_voltage3:
heinrichsweikamp
parents:
diff changeset
150 movlw .100
heinrichsweikamp
parents:
diff changeset
151 cpfslt lo
heinrichsweikamp
parents:
diff changeset
152 movwf lo
heinrichsweikamp
parents:
diff changeset
153 ; lo will be between 100 (Full) and 0 (empty)
37
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
154
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
155 ; use 3,6V battery sensing based on 50mA load
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
156 ; 75%
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
157 movff batt_voltage+0,sub_b+0
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
158 movff batt_voltage+1,sub_b+1
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
159 movlw LOW lithium_36v_75
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
160 movwf sub_a+0
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
161 movlw HIGH lithium_36v_75
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
162 movwf sub_a+1
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
163 call subU16 ; sub_c = sub_a - sub_b
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
164 btfsc neg_flag
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
165 bra get_battery_voltage3a
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
166 movlw .75
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
167 movwf lo
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
168 get_battery_voltage3a:
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
169 ; 50%
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
170 movlw LOW lithium_36v_50
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
171 movwf sub_a+0
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
172 movlw HIGH lithium_36v_50
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
173 movwf sub_a+1
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
174 call subU16 ; sub_c = sub_a - sub_b
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
175 btfsc neg_flag
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
176 bra get_battery_voltage3b
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
177 movlw .50
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
178 movwf lo
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
179 get_battery_voltage3b:
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
180 ; 25%
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
181 movlw LOW lithium_36v_25
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
182 movwf sub_a+0
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
183 movlw HIGH lithium_36v_25
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
184 movwf sub_a+1
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
185 call subU16 ; sub_c = sub_a - sub_b
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
186 btfsc neg_flag
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
187 bra get_battery_voltage3c
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
188 movlw .25
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
189 movwf lo
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
190 get_battery_voltage3c:
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
191 ; 10%
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
192 movlw LOW lithium_36v_10
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
193 movwf sub_a+0
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
194 movlw HIGH lithium_36v_10
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
195 movwf sub_a+1
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
196 call subU16 ; sub_c = sub_a - sub_b
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
197 btfsc neg_flag
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
198 bra get_battery_voltage3d
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
199 movlw .10
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
200 movwf lo
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
201 get_battery_voltage3d:
44
18fe4e668baa BUGFIX: Percent display with 1,5V batteries
heinrichsweikamp
parents: 37
diff changeset
202 movlw .100
18fe4e668baa BUGFIX: Percent display with 1,5V batteries
heinrichsweikamp
parents: 37
diff changeset
203 cpfslt lo
18fe4e668baa BUGFIX: Percent display with 1,5V batteries
heinrichsweikamp
parents: 37
diff changeset
204 movwf lo
18fe4e668baa BUGFIX: Percent display with 1,5V batteries
heinrichsweikamp
parents: 37
diff changeset
205 ; lo will be between 100 (Full) and 0 (empty)
0
heinrichsweikamp
parents:
diff changeset
206 movf batt_percent,W
heinrichsweikamp
parents:
diff changeset
207 cpfsgt lo ; keep batt_percent on the lowest value found
heinrichsweikamp
parents:
diff changeset
208 movff lo,batt_percent ; store value
37
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
209 ; btfsc battery_is_36v ; but always use computed value for 3,6V battery
0e1723f2761e use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents: 0
diff changeset
210 ; movff lo,batt_percent ; store value
0
heinrichsweikamp
parents:
diff changeset
211 bcf adc_running ; =1: The ADC is in use
heinrichsweikamp
parents:
diff changeset
212 return
heinrichsweikamp
parents:
diff changeset
213
heinrichsweikamp
parents:
diff changeset
214 get_battery_voltage4:
heinrichsweikamp
parents:
diff changeset
215 ; Use 1,5V battery voltage mode
heinrichsweikamp
parents:
diff changeset
216 ; Use approximation (batt_voltage:2-aa_15v_low)/4 = lo
heinrichsweikamp
parents:
diff changeset
217 movff batt_voltage+0,sub_a+0
heinrichsweikamp
parents:
diff changeset
218 movff batt_voltage+1,sub_a+1
heinrichsweikamp
parents:
diff changeset
219 movlw LOW aa_15v_low
heinrichsweikamp
parents:
diff changeset
220 movwf sub_b+0
heinrichsweikamp
parents:
diff changeset
221 movlw HIGH aa_15v_low
heinrichsweikamp
parents:
diff changeset
222 movwf sub_b+1
heinrichsweikamp
parents:
diff changeset
223 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
224 bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
225 rrcf sub_c+1
heinrichsweikamp
parents:
diff changeset
226 rrcf sub_c+0 ; /2
heinrichsweikamp
parents:
diff changeset
227 bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
228 rrcf sub_c+1
heinrichsweikamp
parents:
diff changeset
229 rrcf sub_c+0 ; /4
heinrichsweikamp
parents:
diff changeset
230 movff sub_c+0,lo
44
18fe4e668baa BUGFIX: Percent display with 1,5V batteries
heinrichsweikamp
parents: 37
diff changeset
231 bra get_battery_voltage3d ; Check limits and return
0
heinrichsweikamp
parents:
diff changeset
232
heinrichsweikamp
parents:
diff changeset
233 global get_ambient_level
heinrichsweikamp
parents:
diff changeset
234 get_ambient_level: ; starts ADC and waits until finished
heinrichsweikamp
parents:
diff changeset
235 btfsc adc_running ; ADC in use?
heinrichsweikamp
parents:
diff changeset
236 return ; Yes, return
heinrichsweikamp
parents:
diff changeset
237
236
e2ea74646127 configure hardware_flag byte
heinrichsweikamp
parents: 235
diff changeset
238 btfsc ambient_sensor
113
heinrichsweikamp
parents: 44
diff changeset
239 bra get_ambient_level1 ; Normal ostc3 hardware
203
dd9b167e82dc 1.64 (Fix ambient light for cR)
heinrichsweikamp
parents: 201
diff changeset
240
dd9b167e82dc 1.64 (Fix ambient light for cR)
heinrichsweikamp
parents: 201
diff changeset
241 banksel isr_backup ; Back to Bank0 ISR data
dd9b167e82dc 1.64 (Fix ambient light for cR)
heinrichsweikamp
parents: 201
diff changeset
242 movff opt_brightness,isr1_temp
dd9b167e82dc 1.64 (Fix ambient light for cR)
heinrichsweikamp
parents: 201
diff changeset
243 incf isr1_temp,F ; adjust 0-2 to 1-3
354
043890f06bce some cleanups
heinrichsweikamp
parents: 343
diff changeset
244 movlw ambient_light_max_high_cr; cR and 2 hardware brightest setting
203
dd9b167e82dc 1.64 (Fix ambient light for cR)
heinrichsweikamp
parents: 201
diff changeset
245 dcfsnz isr1_temp,F
dd9b167e82dc 1.64 (Fix ambient light for cR)
heinrichsweikamp
parents: 201
diff changeset
246 movlw ambient_light_max_eco ; brightest setting
dd9b167e82dc 1.64 (Fix ambient light for cR)
heinrichsweikamp
parents: 201
diff changeset
247 dcfsnz isr1_temp,F
dd9b167e82dc 1.64 (Fix ambient light for cR)
heinrichsweikamp
parents: 201
diff changeset
248 movlw ambient_light_max_medium; brightest setting
dd9b167e82dc 1.64 (Fix ambient light for cR)
heinrichsweikamp
parents: 201
diff changeset
249
dd9b167e82dc 1.64 (Fix ambient light for cR)
heinrichsweikamp
parents: 201
diff changeset
250 movff WREG,ambient_light+0 ; Set to max.
dd9b167e82dc 1.64 (Fix ambient light for cR)
heinrichsweikamp
parents: 201
diff changeset
251 movff ambient_light+0,max_CCPR1L ; Store value for dimming in TMR7 interrupt
dd9b167e82dc 1.64 (Fix ambient light for cR)
heinrichsweikamp
parents: 201
diff changeset
252 return
113
heinrichsweikamp
parents: 44
diff changeset
253
heinrichsweikamp
parents: 44
diff changeset
254 get_ambient_level1:
0
heinrichsweikamp
parents:
diff changeset
255 movlw b'00000000' ; Vref+ = Vdd
heinrichsweikamp
parents:
diff changeset
256 movwf ADCON1
heinrichsweikamp
parents:
diff changeset
257 movlw b'00011101' ; power on ADC, select AN7
heinrichsweikamp
parents:
diff changeset
258 rcall wait_adc
heinrichsweikamp
parents:
diff changeset
259
heinrichsweikamp
parents:
diff changeset
260 movff ADRESH,ambient_light+1
heinrichsweikamp
parents:
diff changeset
261 movff ADRESL,ambient_light+0
heinrichsweikamp
parents:
diff changeset
262 bcf ADCON0,0 ; power off ADC
heinrichsweikamp
parents:
diff changeset
263
heinrichsweikamp
parents:
diff changeset
264 ; ambient_light:2 is between 4096 (direct sunlight) and about 200 (darkness)
heinrichsweikamp
parents:
diff changeset
265 ; First: Devide through 16
heinrichsweikamp
parents:
diff changeset
266 bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
267 rrcf ambient_light+1
heinrichsweikamp
parents:
diff changeset
268 rrcf ambient_light+0
heinrichsweikamp
parents:
diff changeset
269 bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
270 rrcf ambient_light+1
heinrichsweikamp
parents:
diff changeset
271 rrcf ambient_light+0
heinrichsweikamp
parents:
diff changeset
272 bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
273 rrcf ambient_light+1
heinrichsweikamp
parents:
diff changeset
274 rrcf ambient_light+0
heinrichsweikamp
parents:
diff changeset
275 bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
276 rrcf ambient_light+1
heinrichsweikamp
parents:
diff changeset
277 rrcf ambient_light+0
heinrichsweikamp
parents:
diff changeset
278 ; Result: ambient_light:2/16
heinrichsweikamp
parents:
diff changeset
279 ; Now, make sure to have value between ambient_light_low and ambient_light_max
heinrichsweikamp
parents:
diff changeset
280
heinrichsweikamp
parents:
diff changeset
281 movlw .254
heinrichsweikamp
parents:
diff changeset
282 tstfsz ambient_light+1 ; >255?
heinrichsweikamp
parents:
diff changeset
283 movwf ambient_light+0 ; avoid ADC clipping
heinrichsweikamp
parents:
diff changeset
284
heinrichsweikamp
parents:
diff changeset
285 incfsz ambient_light+0,W ; =255?
heinrichsweikamp
parents:
diff changeset
286 bra get_ambient_level2 ; No, continue
heinrichsweikamp
parents:
diff changeset
287
heinrichsweikamp
parents:
diff changeset
288 movlw .254
heinrichsweikamp
parents:
diff changeset
289 movwf ambient_light+0 ; avoid ADC clipping
heinrichsweikamp
parents:
diff changeset
290
heinrichsweikamp
parents:
diff changeset
291 get_ambient_level2:
357
36bd27f42362 BUGFIX: Auto-Brightness clipped to lowest settings in bright sunlight on some devices
heinrichsweikamp
parents: 354
diff changeset
292 ; movlw .10
36bd27f42362 BUGFIX: Auto-Brightness clipped to lowest settings in bright sunlight on some devices
heinrichsweikamp
parents: 354
diff changeset
293 ; subwf ambient_light+0,F ; Subtract 10 (ADC Offset)
36bd27f42362 BUGFIX: Auto-Brightness clipped to lowest settings in bright sunlight on some devices
heinrichsweikamp
parents: 354
diff changeset
294 ; btfsc STATUS,N
36bd27f42362 BUGFIX: Auto-Brightness clipped to lowest settings in bright sunlight on some devices
heinrichsweikamp
parents: 354
diff changeset
295 ; movwf ambient_light+0 ; avoid clipping
201
82faedf8fd58 lower minimum backlight in eco mode
heinrichsweikamp
parents: 200
diff changeset
296
0
heinrichsweikamp
parents:
diff changeset
297 banksel isr_backup ; Back to Bank0 ISR data
heinrichsweikamp
parents:
diff changeset
298 movff opt_brightness,isr1_temp
heinrichsweikamp
parents:
diff changeset
299
heinrichsweikamp
parents:
diff changeset
300 btfsc RCSTA1,7 ; UART module on?
heinrichsweikamp
parents:
diff changeset
301 clrf isr1_temp ; Yes, set temporally to eco mode
heinrichsweikamp
parents:
diff changeset
302
heinrichsweikamp
parents:
diff changeset
303 incf isr1_temp,F ; adjust 0-2 to 1-3
heinrichsweikamp
parents:
diff changeset
304
heinrichsweikamp
parents:
diff changeset
305 banksel common ; flag is in bank1
354
043890f06bce some cleanups
heinrichsweikamp
parents: 343
diff changeset
306 movlw ambient_light_max_high_cr; cR and 2 hardware brightest setting
448
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
307 btfss battery_gauge_available
136
9a637c9bb19a rename Deco Planner to Simulator
heinrichsweikamp
parents: 120
diff changeset
308 movlw ambient_light_max_high_15V; 1,5V battery brightest setting
9a637c9bb19a rename Deco Planner to Simulator
heinrichsweikamp
parents: 120
diff changeset
309 btfsc battery_is_36v ; 3,6V battery in use?
9a637c9bb19a rename Deco Planner to Simulator
heinrichsweikamp
parents: 120
diff changeset
310 movlw ambient_light_max_high_36V ; 3,6V battery brightest setting
0
heinrichsweikamp
parents:
diff changeset
311 banksel isr_backup ; Back to Bank0 ISR data
heinrichsweikamp
parents:
diff changeset
312
heinrichsweikamp
parents:
diff changeset
313 dcfsnz isr1_temp,F
heinrichsweikamp
parents:
diff changeset
314 movlw ambient_light_max_eco ; brightest setting
heinrichsweikamp
parents:
diff changeset
315 dcfsnz isr1_temp,F
heinrichsweikamp
parents:
diff changeset
316 movlw ambient_light_max_medium; brightest setting
heinrichsweikamp
parents:
diff changeset
317
heinrichsweikamp
parents:
diff changeset
318 banksel common ; ambient_light is in Bank1
heinrichsweikamp
parents:
diff changeset
319 incf ambient_light+0,F ; +1
heinrichsweikamp
parents:
diff changeset
320 cpfslt ambient_light+0 ; smaller then WREG?
heinrichsweikamp
parents:
diff changeset
321 movwf ambient_light+0 ; No, set to max.
heinrichsweikamp
parents:
diff changeset
322
heinrichsweikamp
parents:
diff changeset
323 banksel isr_backup ; Back to Bank0 ISR data
heinrichsweikamp
parents:
diff changeset
324 movff opt_brightness,isr1_temp
heinrichsweikamp
parents:
diff changeset
325 incf isr1_temp,F ; adjust 0-2 to 1-3
heinrichsweikamp
parents:
diff changeset
326 movlw ambient_light_min_high ; darkest setting
heinrichsweikamp
parents:
diff changeset
327
heinrichsweikamp
parents:
diff changeset
328 dcfsnz isr1_temp,F
heinrichsweikamp
parents:
diff changeset
329 movlw ambient_light_min_eco ; darkest setting
heinrichsweikamp
parents:
diff changeset
330 dcfsnz isr1_temp,F
heinrichsweikamp
parents:
diff changeset
331 movlw ambient_light_min_medium; darkest setting
heinrichsweikamp
parents:
diff changeset
332 dcfsnz isr1_temp,F
heinrichsweikamp
parents:
diff changeset
333 movlw ambient_light_min_high ; darkest setting
heinrichsweikamp
parents:
diff changeset
334
heinrichsweikamp
parents:
diff changeset
335 banksel common ; ambient_light is in Bank1
heinrichsweikamp
parents:
diff changeset
336 cpfsgt ambient_light+0 ; bigger then WREG?
heinrichsweikamp
parents:
diff changeset
337 movwf ambient_light+0 ; No, set to min
heinrichsweikamp
parents:
diff changeset
338
heinrichsweikamp
parents:
diff changeset
339 movff ambient_light+0,max_CCPR1L ; Store value for dimming in TMR7 interrupt
heinrichsweikamp
parents:
diff changeset
340 return
heinrichsweikamp
parents:
diff changeset
341
113
heinrichsweikamp
parents: 44
diff changeset
342 global get_analog_inputs
heinrichsweikamp
parents: 44
diff changeset
343 get_analog_inputs: ; starts ADC and waits until finished
0
heinrichsweikamp
parents:
diff changeset
344 bsf adc_running ; =1: The ADC is in use
113
heinrichsweikamp
parents: 44
diff changeset
345 btfsc TFT_PWM
heinrichsweikamp
parents: 44
diff changeset
346 bra get_analog_inputs ; Wait for PWM low
heinrichsweikamp
parents: 44
diff changeset
347 movlw b'00100000' ; 2.048V Vref+ -> 1LSB = 500µV
heinrichsweikamp
parents: 44
diff changeset
348 movwf ADCON1
heinrichsweikamp
parents: 44
diff changeset
349 movlw b'00100001' ; power on ADC, select AN8
heinrichsweikamp
parents: 44
diff changeset
350 rcall wait_adc
heinrichsweikamp
parents: 44
diff changeset
351 bcf STATUS,C
heinrichsweikamp
parents: 44
diff changeset
352 rrcf ADRESH,F ; /2
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
353 rrcf ADRESL,W
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
354 ; add to o2_mv_sensor1:2
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
355 addwf o2_mv_sensor1+0,F
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
356 movf ADRESH,W
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
357 addwfc o2_mv_sensor1+1,F
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
358 ; Devide by 2
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
359 bcf STATUS,C
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
360 rrcf o2_mv_sensor1+1,F ; /2
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
361 rrcf o2_mv_sensor1+0,F
196
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
362
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
363 movlw HIGH ignore_mv
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
364 cpfsgt o2_mv_sensor1+1 ; >ignore_mv?
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
365 bra get_analog_inputs2a ; No
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
366 ; Yes, ignore this reading
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
367 clrf o2_mv_sensor1+1
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
368 clrf o2_mv_sensor1+0
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
369 get_analog_inputs2a:
354
043890f06bce some cleanups
heinrichsweikamp
parents: 343
diff changeset
370 ; Ignore 1,9mV noise for not-connected inputs
187
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 158
diff changeset
371 tstfsz o2_mv_sensor1+1 ; >25,5mV?
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 158
diff changeset
372 bra get_analog_inputs2 ; Yes, skip here
270
bddb63835035 increase min input voltage from 1,2mV to 1,9mV (cR only)
heinrichsweikamp
parents: 266
diff changeset
373 movlw .19
bddb63835035 increase min input voltage from 1,2mV to 1,9mV (cR only)
heinrichsweikamp
parents: 266
diff changeset
374 cpfsgt o2_mv_sensor1+0 ; >1,9mV?
187
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 158
diff changeset
375 clrf o2_mv_sensor1+0 ; no, clear result
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 158
diff changeset
376 get_analog_inputs2:
113
heinrichsweikamp
parents: 44
diff changeset
377 movlw b'00100101' ; power on ADC, select AN9
0
heinrichsweikamp
parents:
diff changeset
378 rcall wait_adc
113
heinrichsweikamp
parents: 44
diff changeset
379 bcf STATUS,C
heinrichsweikamp
parents: 44
diff changeset
380 rrcf ADRESH,F ; /2
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
381 rrcf ADRESL,W
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
382 ; add to o2_mv_sensor2:2
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
383 addwf o2_mv_sensor2+0,F
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
384 movf ADRESH,W
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
385 addwfc o2_mv_sensor2+1,F
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
386 ; Devide by 2
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
387 bcf STATUS,C
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
388 rrcf o2_mv_sensor2+1,F ; /2
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
389 rrcf o2_mv_sensor2+0,F
196
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
390
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
391 movlw HIGH ignore_mv
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
392 cpfsgt o2_mv_sensor2+1 ; >ignore_mv?
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
393 bra get_analog_inputs3a ; No
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
394 ; Yes, ignore this reading
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
395 clrf o2_mv_sensor2+1
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
396 clrf o2_mv_sensor2+0
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
397 get_analog_inputs3a:
354
043890f06bce some cleanups
heinrichsweikamp
parents: 343
diff changeset
398 ; Ignore 1,9mV noise for not-connected inputs
187
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 158
diff changeset
399 tstfsz o2_mv_sensor2+1 ; >25,5mV?
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 158
diff changeset
400 bra get_analog_inputs3 ; Yes, skip here
270
bddb63835035 increase min input voltage from 1,2mV to 1,9mV (cR only)
heinrichsweikamp
parents: 266
diff changeset
401 movlw .19
bddb63835035 increase min input voltage from 1,2mV to 1,9mV (cR only)
heinrichsweikamp
parents: 266
diff changeset
402 cpfsgt o2_mv_sensor2+0 ; >1,9mV?
187
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 158
diff changeset
403 clrf o2_mv_sensor2+0 ; no, clear result
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 158
diff changeset
404 get_analog_inputs3:
113
heinrichsweikamp
parents: 44
diff changeset
405 movlw b'00101001' ; power on ADC, select AN10
heinrichsweikamp
parents: 44
diff changeset
406 rcall wait_adc
heinrichsweikamp
parents: 44
diff changeset
407 bcf STATUS,C
heinrichsweikamp
parents: 44
diff changeset
408 rrcf ADRESH,F ; /2
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
409 rrcf ADRESL,W
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
410 ; add to o2_mv_sensor3:2
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
411 addwf o2_mv_sensor3+0,F
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
412 movf ADRESH,W
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
413 addwfc o2_mv_sensor3+1,F
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
414 ; Devide by 2
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
415 bcf STATUS,C
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
416 rrcf o2_mv_sensor3+1,F ; /2
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 187
diff changeset
417 rrcf o2_mv_sensor3+0,F
196
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
418
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
419 movlw HIGH ignore_mv
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
420 cpfsgt o2_mv_sensor3+1 ; >ignore_mv?
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
421 bra get_analog_inputs4a ; No
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
422 ; Yes, ignore this reading
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
423 clrf o2_mv_sensor3+1
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
424 clrf o2_mv_sensor3+0
a0e0ddfc1b49 suppress ghost readings for long, open cables
heinrichsweikamp
parents: 189
diff changeset
425 get_analog_inputs4a:
354
043890f06bce some cleanups
heinrichsweikamp
parents: 343
diff changeset
426 ; Ignore 1,9mV noise for not-connected inputs
187
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 158
diff changeset
427 tstfsz o2_mv_sensor3+1 ; >25,5mV?
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 158
diff changeset
428 bra get_analog_inputs4 ; Yes, skip here
270
bddb63835035 increase min input voltage from 1,2mV to 1,9mV (cR only)
heinrichsweikamp
parents: 266
diff changeset
429 movlw .19
bddb63835035 increase min input voltage from 1,2mV to 1,9mV (cR only)
heinrichsweikamp
parents: 266
diff changeset
430 cpfsgt o2_mv_sensor3+0 ; >1,9mV?
187
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 158
diff changeset
431 clrf o2_mv_sensor3+0 ; no, clear result
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 158
diff changeset
432 get_analog_inputs4:
0
heinrichsweikamp
parents:
diff changeset
433 bcf ADCON0,0 ; power off ADC
heinrichsweikamp
parents:
diff changeset
434 bcf adc_running ; =1: The ADC is in use
heinrichsweikamp
parents:
diff changeset
435 return
heinrichsweikamp
parents:
diff changeset
436
113
heinrichsweikamp
parents: 44
diff changeset
437 global piezo_config ; Sets up piezo sensitivity of heinrichs weikamp Piezo buttons (~30ms)
117
heinrichsweikamp
parents: 113
diff changeset
438 piezo_config: ; Settings between 20 and 200
416
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 357
diff changeset
439 clrf TMR5H
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 357
diff changeset
440 clrf TMR5L ; ~2sec
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 357
diff changeset
441 bcf PIR5,TMR5IF ; Clear flag
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 357
diff changeset
442 bcf switch_right
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 357
diff changeset
443 bcf switch_left
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 357
diff changeset
444 piezo_config0:
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 357
diff changeset
445 btfsc switch_right
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 357
diff changeset
446 bra piezo_config
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 357
diff changeset
447 btfsc switch_left
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 357
diff changeset
448 bra piezo_config ; Restart on button press
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 357
diff changeset
449
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 357
diff changeset
450 btfss PIR5,TMR5IF
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 357
diff changeset
451 bra piezo_config0 ; Wait loop
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 357
diff changeset
452
220
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
453 movff opt_cR_button_right,WREG; right button
343
34e2f5bdc5a2 BUGFIX: Rotate button sensitivity with screen (OSTC 2 and cR)
heinrichsweikamp
parents: 275
diff changeset
454 btfsc flip_screen ; 180° rotation ?
34e2f5bdc5a2 BUGFIX: Rotate button sensitivity with screen (OSTC 2 and cR)
heinrichsweikamp
parents: 275
diff changeset
455 movff opt_cR_button_left,WREG ; Yes, left button
117
heinrichsweikamp
parents: 113
diff changeset
456 rcall piezo_config_tx
343
34e2f5bdc5a2 BUGFIX: Rotate button sensitivity with screen (OSTC 2 and cR)
heinrichsweikamp
parents: 275
diff changeset
457
220
effd7259f5a5 make button sensitivity configurable (cR hardware)
heinrichsweikamp
parents: 218
diff changeset
458 movff opt_cR_button_left,WREG ; left button
343
34e2f5bdc5a2 BUGFIX: Rotate button sensitivity with screen (OSTC 2 and cR)
heinrichsweikamp
parents: 275
diff changeset
459 btfsc flip_screen ; 180° rotation ?
34e2f5bdc5a2 BUGFIX: Rotate button sensitivity with screen (OSTC 2 and cR)
heinrichsweikamp
parents: 275
diff changeset
460 movff opt_cR_button_right,WREG; Yes, right button
204
heinrichsweikamp
parents: 203
diff changeset
461 rcall piezo_config_tx
343
34e2f5bdc5a2 BUGFIX: Rotate button sensitivity with screen (OSTC 2 and cR)
heinrichsweikamp
parents: 275
diff changeset
462
204
heinrichsweikamp
parents: 203
diff changeset
463 movlw .200 ; reserved
heinrichsweikamp
parents: 203
diff changeset
464 rcall piezo_config_tx
heinrichsweikamp
parents: 203
diff changeset
465 movlw .200 ; reserved
heinrichsweikamp
parents: 203
diff changeset
466 rcall piezo_config_tx
heinrichsweikamp
parents: 203
diff changeset
467 return
heinrichsweikamp
parents: 203
diff changeset
468
117
heinrichsweikamp
parents: 113
diff changeset
469 piezo_config_tx: ; Send one byte
113
heinrichsweikamp
parents: 44
diff changeset
470 movwf uart1_temp ; Store byte
heinrichsweikamp
parents: 44
diff changeset
471 movlw .8
heinrichsweikamp
parents: 44
diff changeset
472 movwf uart2_temp ; Bit counter
heinrichsweikamp
parents: 44
diff changeset
473 bcf TX3_PIEZO_CFG ; Startbit
heinrichsweikamp
parents: 44
diff changeset
474 rcall piezo_config_wait_bit
heinrichsweikamp
parents: 44
diff changeset
475 piezo_config_tx_loop:
heinrichsweikamp
parents: 44
diff changeset
476 btfss uart1_temp,0 ; LSB first
heinrichsweikamp
parents: 44
diff changeset
477 bcf TX3_PIEZO_CFG
heinrichsweikamp
parents: 44
diff changeset
478 btfsc uart1_temp,0 ; LSB first
heinrichsweikamp
parents: 44
diff changeset
479 bsf TX3_PIEZO_CFG
heinrichsweikamp
parents: 44
diff changeset
480 rcall piezo_config_wait_bit
heinrichsweikamp
parents: 44
diff changeset
481 rrncf uart1_temp,F
heinrichsweikamp
parents: 44
diff changeset
482 decfsz uart2_temp,F
heinrichsweikamp
parents: 44
diff changeset
483 bra piezo_config_tx_loop
heinrichsweikamp
parents: 44
diff changeset
484 bsf TX3_PIEZO_CFG ; Stopbit
heinrichsweikamp
parents: 44
diff changeset
485 rcall piezo_config_wait_bit
heinrichsweikamp
parents: 44
diff changeset
486 return
heinrichsweikamp
parents: 44
diff changeset
487
heinrichsweikamp
parents: 44
diff changeset
488 piezo_config_wait_bit:
heinrichsweikamp
parents: 44
diff changeset
489 setf TMR5H
heinrichsweikamp
parents: 44
diff changeset
490 movlw .255-.26 ;26 x 31,5µs = 819us
heinrichsweikamp
parents: 44
diff changeset
491 movwf TMR5L
heinrichsweikamp
parents: 44
diff changeset
492 bcf PIR5,TMR5IF ; Clear flag
heinrichsweikamp
parents: 44
diff changeset
493 piezo_config_wait_bit3:
heinrichsweikamp
parents: 44
diff changeset
494 btfss PIR5,TMR5IF
heinrichsweikamp
parents: 44
diff changeset
495 bra piezo_config_wait_bit3 ; Wait loop
heinrichsweikamp
parents: 44
diff changeset
496 return
heinrichsweikamp
parents: 44
diff changeset
497
448
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
498 global reset_battery_pointer, reset_battery_internal_only
0
heinrichsweikamp
parents:
diff changeset
499 reset_battery_pointer: ; Resets battery pointer 0x07-0x0C and battery_gauge:5
113
heinrichsweikamp
parents: 44
diff changeset
500 extern lt2942_charge_done
448
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
501 btfsc battery_gauge_available ; Something to reset?
260
e1cd6848863d increase immunity against false Qi data
heinrichsweikamp
parents: 236
diff changeset
502 call lt2942_charge_done ; Yes, reset accumulating registers to 0xFFFF
448
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
503 reset_battery_internal_only:
113
heinrichsweikamp
parents: 44
diff changeset
504 clrf EEADRH
448
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
505 clrf EEDATA ; Delete to zero
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
506 write_int_eeprom 0x07
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
507 write_int_eeprom 0x08
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
508 write_int_eeprom 0x09
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
509 write_int_eeprom 0x0A
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
510 write_int_eeprom 0x0B
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
511 write_int_eeprom 0x0C
0
heinrichsweikamp
parents:
diff changeset
512 banksel battery_gauge+0
heinrichsweikamp
parents:
diff changeset
513 clrf battery_gauge+0
heinrichsweikamp
parents:
diff changeset
514 clrf battery_gauge+1
heinrichsweikamp
parents:
diff changeset
515 clrf battery_gauge+2
heinrichsweikamp
parents:
diff changeset
516 clrf battery_gauge+3
heinrichsweikamp
parents:
diff changeset
517 clrf battery_gauge+4
heinrichsweikamp
parents:
diff changeset
518 clrf battery_gauge+5
heinrichsweikamp
parents:
diff changeset
519 banksel common
heinrichsweikamp
parents:
diff changeset
520 movlw .100
heinrichsweikamp
parents:
diff changeset
521 movwf batt_percent
heinrichsweikamp
parents:
diff changeset
522 return
heinrichsweikamp
parents:
diff changeset
523
448
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
524 global get_analog_switches
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
525 get_analog_switches: ; starts ADC and waits until finished
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
526 btfsc analog_switches
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
527 bra get_analog_switches2
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
528 ; no analog switches
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
529 bcf analog_sw2_pressed
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
530 bcf analog_sw1_pressed
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
531 return ; Done.
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
532 get_analog_switches2:
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
533 btfsc adc_running ; ADC in use?
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
534 return ; Yes, return
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
535
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
536 movlw b'00001001' ; left justified
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
537 movwf ADCON2
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
538 movlw b'00000000' ; Vref+ = Vdd
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
539 movwf ADCON1
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
540 movlw b'00100101' ; power on ADC, select AN9
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
541 rcall wait_adc
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
542 movff ADRESH,analog_sw2
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
543 bcf analog_sw2_pressed
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
544 movlw .64 ; lower limit
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
545 cpfsgt ADRESH
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
546 bra sw2_pressed
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
547 movlw .192 ; upper limit
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
548 cpfsgt ADRESH
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
549 bra get_analog_sw1
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
550 sw2_pressed:
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
551 bsf analog_sw2_pressed
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
552 get_analog_sw1:
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
553 movlw b'00101001' ; power on ADC, select AN10
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
554 rcall wait_adc
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
555 movff ADRESH,analog_sw1
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
556 bcf analog_sw1_pressed
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
557 movlw .64 ; lower limit
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
558 cpfsgt ADRESH
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
559 bra sw1_pressed
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
560 movlw .192 ; upper limit
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
561 cpfsgt ADRESH
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
562 bra get_analog_sw_done
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
563 sw1_pressed:
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
564 bsf analog_sw1_pressed
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
565 get_analog_sw_done:
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
566 movlw b'10001101' ; Restore to right justified
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
567 movwf ADCON2
451
66049b6f2c0b speedup analog presses
heinrichsweikamp
parents: 448
diff changeset
568 btfsc analog_sw1_pressed
66049b6f2c0b speedup analog presses
heinrichsweikamp
parents: 448
diff changeset
569 return
66049b6f2c0b speedup analog presses
heinrichsweikamp
parents: 448
diff changeset
570 btfsc analog_sw2_pressed
66049b6f2c0b speedup analog presses
heinrichsweikamp
parents: 448
diff changeset
571 return
66049b6f2c0b speedup analog presses
heinrichsweikamp
parents: 448
diff changeset
572 setf TMR1H ; No button pressed, enhance timer1 to overflow quickly
448
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
573 return
aadfe9f2edaf work on new battery options
heinrichsweikamp
parents: 416
diff changeset
574
0
heinrichsweikamp
parents:
diff changeset
575 END