Mercurial > public > mk2
annotate code_part1/OSTC_code_asm_part1/adc_rtc.asm @ 456:f4fbda6db91c
2.0 release - 2.1 beta start
author | heinrichsweikamp |
---|---|
date | Wed, 31 Aug 2011 09:27:16 +0200 |
parents | ab962c4b19d6 |
children | 3091628b2742 |
rev | line source |
---|---|
0 | 1 ; OSTC - diving computer code |
2 ; Copyright (C) 2008 HeinrichsWeikamp GbR | |
3 | |
4 ; This program is free software: you can redistribute it and/or modify | |
5 ; it under the terms of the GNU General Public License as published by | |
6 ; the Free Software Foundation, either version 3 of the License, or | |
7 ; (at your option) any later version. | |
8 | |
9 ; This program is distributed in the hope that it will be useful, | |
10 ; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
11 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
12 ; GNU General Public License for more details. | |
13 | |
14 ; You should have received a copy of the GNU General Public License | |
15 ; along with this program. If not, see <http://www.gnu.org/licenses/>. | |
16 | |
17 | |
18 ; routines for AD converter, Realtime clock initialisation | |
19 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com | |
20 ; written: 10/30/05 | |
21 ; last updated: 05/15/08 | |
22 ; known bugs: | |
23 ; ToDo: | |
24 | |
25 get_battery_voltage: ; starts ADC and waits until fnished | |
81
31fa973a70fd
Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator.
JeanDo
parents:
53
diff
changeset
|
26 ; In MPLAB Sim mode (hardware emulation), use a DMCI slider to |
31fa973a70fd
Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator.
JeanDo
parents:
53
diff
changeset
|
27 ; directly set a 16 bit value in the range 0..1023 |
31fa973a70fd
Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator.
JeanDo
parents:
53
diff
changeset
|
28 ; In normal mode, jut wait for the value to be ready: |
31fa973a70fd
Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator.
JeanDo
parents:
53
diff
changeset
|
29 |
31fa973a70fd
Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator.
JeanDo
parents:
53
diff
changeset
|
30 ifndef TESTING |
0 | 31 bsf ADCON0,0 ; power on ADC |
32 nop | |
33 bsf ADCON0,1 ; start ADC | |
81
31fa973a70fd
Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator.
JeanDo
parents:
53
diff
changeset
|
34 |
0 | 35 get_battery_voltage2: |
36 btfsc ADCON0,1 ; Wait... | |
37 bra get_battery_voltage2 | |
81
31fa973a70fd
Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator.
JeanDo
parents:
53
diff
changeset
|
38 endif |
0 | 39 |
40 ; 3.3V/1024=3,2227mV Input/Bit=9,6680mV Battery/Bit. | |
41 ; Example: 434*9,6680mV=4195,9mV Battery. | |
42 | |
43 movff ADRESH,xA+1 | |
44 movff ADRESL,xA+0 | |
45 movlw LOW d'966' | |
46 movwf xB+0 | |
47 movlw HIGH d'966' | |
48 movwf xB+1 | |
49 call mult16x16 ; AD_Result*966 | |
50 movlw d'100' | |
51 movwf xB+0 | |
52 clrf xB+1 | |
53 call div32x16 ;xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder | |
54 movff xC+0,batt_voltage+0 ; store value | |
55 movff xC+1,batt_voltage+1 | |
56 bcf ADCON0,0 ; power off ADC | |
57 | |
58 ; Check if we should enter deep-sleep mode | |
59 | |
60 movff batt_voltage+0,sub_b+0 | |
61 movff batt_voltage+1,sub_b+1 | |
62 movlw LOW d'2600' ; must be greater then 2600mV... | |
63 movwf sub_a+0 | |
64 movlw HIGH d'2600' | |
65 movwf sub_a+1 | |
66 call sub16 ; sub_c = sub_a - sub_b | |
67 bcf enter_error_sleep ; Clear flag | |
68 btfsc neg_flag ; neg_flag=1 if eeprom40:41 < 2000 | |
69 bra get_battery_voltage3 ; Battery in OK range | |
70 | |
71 movlw d'2' | |
72 movwf fatal_error_code ; Battery very low! | |
73 bsf enter_error_sleep ; enter error routine | |
74 | |
341
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
297
diff
changeset
|
75 get_battery_voltage3: |
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
297
diff
changeset
|
76 SAFE_2BYTE_COPY amb_pressure, sub_b |
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
297
diff
changeset
|
77 |
398
ab962c4b19d6
Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents:
341
diff
changeset
|
78 movlw LOW d'15001' ; must be lower then 15001mbar |
0 | 79 movwf sub_a+0 |
80 movlw HIGH d'15001' | |
81 movwf sub_a+1 | |
82 call sub16 ; sub_c = sub_a - sub_b | |
83 bcf enter_error_sleep ; Clear flag | |
84 btfss neg_flag ; | |
85 bra get_battery_voltage4 ; Pressure in OK range | |
86 | |
87 movlw d'3' | |
88 movwf fatal_error_code ; too deep | |
89 bsf enter_error_sleep ; enter error routine | |
90 ; Continue with rest of routine | |
91 | |
92 get_battery_voltage4: | |
93 ; check if the battery control memory needs to be initialised! | |
94 bcf initialize_battery1 ; clear check-flags | |
95 bcf initialize_battery2 | |
96 | |
97 read_int_eeprom d'40' ; get lowest battery voltage seen in mV | |
98 movff EEDATA,sub_b+0 | |
99 read_int_eeprom d'41' | |
100 movff EEDATA,sub_b+1 | |
101 | |
102 movlw LOW d'2000' ; must be greater then 2000mV... | |
103 movwf sub_a+0 | |
104 movlw HIGH d'2000' | |
105 movwf sub_a+1 | |
106 call sub16 ; sub_c = sub_a - sub_b | |
107 btfss neg_flag ; neg_flag=1 if eeprom40:41 < 2000 | |
108 bsf initialize_battery1 ; battery need to be initialised | |
109 | |
110 movlw LOW d'4500' ; must be lower then 4500mV... | |
111 movwf sub_a+0 | |
112 movlw HIGH d'4500' | |
113 movwf sub_a+1 | |
114 call sub16 ; sub_c = sub_a - sub_b | |
115 btfss neg_flag ; neg_flag=1 if eeprom40:41 < 4500 | |
116 bsf initialize_battery2 ; battery need to be initialised | |
117 | |
118 btfss initialize_battery1 ; battery need to be initialised? | |
119 bra get_battery_no_init ; No, we have already valid values, just check for new extremas | |
120 | |
121 btfss initialize_battery2 ; battery need to be initialised? | |
122 bra get_battery_no_init ; No, we have already valid values, just check for new extremas | |
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
123 |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
124 get_battery_voltage_reset: |
0 | 125 ; Init EEPROM for battery control |
126 ; Reset lowest battery seen | |
127 movlw LOW d'4200' ; reset to 4.2V | |
128 movwf EEDATA | |
129 write_int_eeprom d'40' | |
130 movlw HIGH d'4200' ; reset to 4.2V | |
131 movwf EEDATA | |
132 write_int_eeprom d'41' | |
133 movff month,EEDATA | |
134 write_int_eeprom d'42' | |
135 movff day,EEDATA | |
136 write_int_eeprom d'43' | |
137 movff year,EEDATA | |
138 write_int_eeprom d'44' | |
341
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
297
diff
changeset
|
139 SAFE_2BYTE_COPY temperature,lo |
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
297
diff
changeset
|
140 movff lo,EEDATA |
0 | 141 write_int_eeprom d'45' |
341
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
297
diff
changeset
|
142 movff hi,EEDATA |
0 | 143 write_int_eeprom d'46' |
144 ; Reset charge statistics | |
53 | 145 clrf EEDATA |
146 write_int_eeprom d'47' ; last complete charge | |
147 write_int_eeprom d'48' ; last complete charge | |
148 write_int_eeprom d'49' ; last complete charge | |
149 write_int_eeprom d'50' ; total cycles | |
150 write_int_eeprom d'51' ; total cycles | |
151 write_int_eeprom d'52' ; total complete cycles | |
152 write_int_eeprom d'53' ; total complete cycles | |
0 | 153 ; Reset temperature extremas |
341
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
297
diff
changeset
|
154 SAFE_2BYTE_COPY temperature,lo |
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
297
diff
changeset
|
155 movff lo,EEDATA ; Reset mimimum extrema |
0 | 156 write_int_eeprom d'54' |
341
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
297
diff
changeset
|
157 movff hi,EEDATA |
0 | 158 write_int_eeprom d'55' |
159 movff month,EEDATA | |
160 write_int_eeprom d'56' | |
161 movff day,EEDATA | |
162 write_int_eeprom d'57' | |
163 movff year,EEDATA | |
164 write_int_eeprom d'58' | |
341
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
297
diff
changeset
|
165 movff lo,EEDATA ; Reset maximum extrema |
0 | 166 write_int_eeprom d'59' |
341
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
297
diff
changeset
|
167 movff hi,EEDATA |
0 | 168 write_int_eeprom d'60' |
169 movff month,EEDATA | |
170 write_int_eeprom d'61' | |
171 movff day,EEDATA | |
172 write_int_eeprom d'62' | |
173 movff year,EEDATA | |
174 write_int_eeprom d'63' | |
175 | |
176 get_battery_no_init: | |
177 read_int_eeprom d'40' ; get lowest battery voltage seen in mV | |
178 movff EEDATA,sub_b+0 | |
179 read_int_eeprom d'41' | |
180 movff EEDATA,sub_b+1 | |
181 movff batt_voltage+0,sub_a+0 | |
182 movff batt_voltage+1,sub_a+1 | |
183 call sub16 ; sub_c = sub_a - sub_b | |
184 btfss neg_flag ; new lowest battery voltage? | |
185 return ; no, quit routine | |
186 ; Yes, store new value together with the date and temperature values | |
187 movff batt_voltage+0,EEDATA | |
188 write_int_eeprom d'40' | |
189 movff batt_voltage+1,EEDATA | |
190 write_int_eeprom d'41' | |
191 movff month,EEDATA | |
192 write_int_eeprom d'42' | |
193 movff day,EEDATA | |
194 write_int_eeprom d'43' | |
195 movff year,EEDATA | |
196 write_int_eeprom d'44' | |
341
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
297
diff
changeset
|
197 SAFE_2BYTE_COPY temperature,lo |
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
297
diff
changeset
|
198 movff lo,EEDATA |
0 | 199 write_int_eeprom d'45' |
341
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
297
diff
changeset
|
200 movff hi,EEDATA |
0 | 201 write_int_eeprom d'46' |
202 return | |
203 | |
204 RTCinit: ; resets RTC | |
205 movlw 0x80 | |
206 movwf TMR1H | |
207 clrf TMR1L | |
208 | |
209 ; Reset RTC if any part of the time/date is out of range | |
210 movlw d'60' ; Limit | |
211 cpfslt secs ; Check part | |
212 bra RTCinit2 ; Reset time... | |
213 movlw d'60' ; Limit | |
214 cpfslt mins ; Check part | |
215 bra RTCinit2 ; Reset time... | |
216 movlw d'24' ; Limit | |
217 cpfslt hours ; Check part | |
218 bra RTCinit2 ; Reset time... | |
219 movlw d'32' ; Limit | |
220 cpfslt day ; Check part | |
221 bra RTCinit2 ; Reset time... | |
222 movlw d'12' ; Limit | |
223 cpfslt month ; Check part | |
224 bra RTCinit2 ; Reset time... | |
225 movlw d'100' ; Limit | |
226 cpfslt year ; Check part | |
227 bra RTCinit2 ; Reset time... | |
228 | |
229 bsf PIE1, TMR1IE | |
230 return | |
231 | |
232 RTCinit2: | |
233 movlw .00 | |
234 movwf secs | |
235 movlw .00 | |
236 movwf mins | |
237 movlw .12 | |
238 movwf hours | |
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
239 movlw .5 |
0 | 240 movwf day |
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
241 movlw .5 |
0 | 242 movwf month |
153 | 243 movlw .11 |
0 | 244 movwf year |
245 bsf PIE1, TMR1IE | |
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
246 return |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
247 |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
248 reset_battery_stats: |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
249 bcf uart_reset_battery_stats ; Clear flag |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
250 bcf PIE1,RCIE ; no interrupt for UART |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
251 call rs232_get_byte ; Get Byte |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
252 bcf PIR1,RCIF ; clear flag |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
253 |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
254 btfsc rs232_recieve_overflow ; Byte received? |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
255 bra reset_battery_stats_exit ; No, exit |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
256 movlw 'f' |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
257 cpfseq RCREG ; Really reset statistics? |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
258 bra reset_battery_stats_exit ; No, exit |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
259 call rs232_get_byte ; Get byte |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
260 bcf PIR1,RCIF ; clear flag |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
261 |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
262 btfsc rs232_recieve_overflow ; Byte received? |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
263 bra reset_battery_stats_exit ; No, exit |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
264 movlw 'f' |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
265 cpfseq RCREG ; Really reset statistics? |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
266 bra reset_battery_stats_exit ; No, exit |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
267 ; Yes, Reset now. |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
268 rcall get_battery_voltage_reset ; Reset Statistics |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
269 movlw 'f' |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
270 movwf TXREG |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
271 call rs232_wait_tx ; Wait for uart |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
272 |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
273 reset_battery_stats_exit: |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
274 bsf PIE1,RCIE ; re-enable interrupt for UART |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
255
diff
changeset
|
275 goto surfloop_loop ; return to surface loop |