Mercurial > public > mk2
annotate code_part1/OSTC_code_asm_part1/math.asm @ 501:986ec4d76510
FRENCH brightness text updated.
author | JeanDo |
---|---|
date | Wed, 16 Nov 2011 13:30:11 +0100 |
parents | 7779bfa89171 |
children | 56da3e962e98 |
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 ; Math routines | |
161
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
19 ; history: |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
20 ; 2005-10-30: Written by Matthias Heinrichs, info@heinrichsweikamp.com |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
21 ; 2007-06-21: MH last updated |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
22 ; 2011-01-19: Clean up of isr variante. |
0 | 23 ; known bugs: |
24 ; ToDo: clean up! | |
25 | |
88 | 26 |
0 | 27 convert_time: ; converts hi:lo in minutes to hours (hi) and minutes (lo) |
28 movff lo,xA+0 ; divide by 60... | |
29 movff hi,xA+1 ; | |
30 movlw d'60' ; | |
31 movwf xB+0 ; | |
32 clrf xB+1 ; | |
33 rcall div16x16 ; xA/xB=xC with xA as remainder | |
34 movff xC+0,hi ; Hours | |
35 movff xA+0,lo ; =remaining minutes (0.....59) | |
36 return | |
37 | |
38 div16: | |
39 ; divA=divA/2^divB (divB: 8Bit only!) | |
40 bcf STATUS,C | |
41 rrcf divA+1 | |
42 rrcf divA | |
43 decfsz divB | |
44 bra div16 | |
45 return | |
46 | |
47 sub16: | |
426 | 48 ; sub_c = sub_a - sub_b (with signed values) |
0 | 49 bcf neg_flag |
74 | 50 movf sub_b+0, W ; Get Value to be subtracted |
51 subwf sub_a+0, W ; Do the High Byte | |
52 movwf sub_c+0 | |
53 movf sub_b+1, W ; Get the Value to be Subbed | |
54 subwfb sub_a+1, W | |
55 movwf sub_c+1 | |
342
06299199dfb9
Fix bad max depth value (fix sub16 to avoid trashing sub_b).
JeanDo
parents:
161
diff
changeset
|
56 |
354 | 57 btfss STATUS,N ; Negativ result ? |
58 return ; NO: result positive done. | |
342
06299199dfb9
Fix bad max depth value (fix sub16 to avoid trashing sub_b).
JeanDo
parents:
161
diff
changeset
|
59 |
354 | 60 bsf neg_flag ; MARK result negative |
342
06299199dfb9
Fix bad max depth value (fix sub16 to avoid trashing sub_b).
JeanDo
parents:
161
diff
changeset
|
61 |
06299199dfb9
Fix bad max depth value (fix sub16 to avoid trashing sub_b).
JeanDo
parents:
161
diff
changeset
|
62 comf sub_c+1 ; 16bit sign change. |
06299199dfb9
Fix bad max depth value (fix sub16 to avoid trashing sub_b).
JeanDo
parents:
161
diff
changeset
|
63 negf sub_c+0 |
06299199dfb9
Fix bad max depth value (fix sub16 to avoid trashing sub_b).
JeanDo
parents:
161
diff
changeset
|
64 btfsc STATUS,C ; Carry to propagate ? |
06299199dfb9
Fix bad max depth value (fix sub16 to avoid trashing sub_b).
JeanDo
parents:
161
diff
changeset
|
65 incf sub_c+1,F ; YES: do it. |
06299199dfb9
Fix bad max depth value (fix sub16 to avoid trashing sub_b).
JeanDo
parents:
161
diff
changeset
|
66 |
0 | 67 return |
68 | |
426 | 69 subU16: |
70 ; sub_c = sub_a - sub_b (with UNSIGNED values) | |
71 bcf neg_flag | |
72 movf sub_b+0, W ; Get Value to be subtracted | |
73 subwf sub_a+0, W ; Do the High Byte | |
74 movwf sub_c+0 | |
75 movf sub_b+1, W ; Get the Value to be Subbed | |
76 subwfb sub_a+1, W | |
77 movwf sub_c+1 | |
78 | |
79 btfsc STATUS,C ; Borrow to propagate ? (B == /CARRY) | |
80 return ; NO: result positive done. | |
81 | |
82 bsf neg_flag ; MARK result negative | |
83 | |
84 comf sub_c+1 ; 16bit sign change. | |
85 negf sub_c+0 | |
86 btfsc STATUS,C ; Carry to propagate ? | |
87 incf sub_c+1,F ; YES: do it. | |
88 | |
89 return | |
90 | |
476 | 91 ;============================================================================= |
92 | |
105 | 93 mult16x16: ;xA*xB=xC |
0 | 94 clrf xC+2 ; Clear the High-Order Bits |
95 clrf xC+3 | |
96 movf xA, w ; Do the "L" Multiplication first | |
97 mulwf xB | |
98 movf PRODL, w ; Save result | |
99 movwf xC | |
100 movf PRODH, w | |
101 movwf xC+1 | |
102 movf xA, w ; Do the "I" Multiplication | |
103 mulwf xB+1 | |
104 movf PRODL, w ; Save the Most Significant Byte First | |
105 addwf xC+1, f | |
106 movf PRODH, w | |
107 addwfc xC+2, f ; Add to the Last Result | |
108 movf xA+1, w ; Do the "O" Multiplication | |
109 mulwf xB | |
110 movf PRODL, w ; Add the Lower Byte Next | |
111 addwf xC+1, f | |
112 movf PRODH, w ; Add the High Byte First | |
113 addwfc xC+2, f | |
114 btfsc STATUS, C ; Add the Carry | |
115 incf xC+3, f | |
116 movf xA+1, w ; Do the "F" Multiplication | |
117 mulwf xB+1 | |
118 movf PRODL, w | |
119 addwf xC+2, f | |
120 movf PRODH, w | |
121 addwfc xC+3, f | |
122 return | |
123 | |
476 | 124 ;============================================================================= |
0 | 125 |
126 div16x16: ;xA/xB=xC with xA as remainder | |
127 ;uses divB as temp variable | |
128 clrf xC+0 | |
129 clrf xC+1 | |
130 MOVF xB+0,W ; Check for zero | |
131 IORWF xB+1,W ; | |
132 BTFSC STATUS,Z ; Check for zero | |
133 RETLW H'FF' ; return 0xFF if illegal | |
134 MOVLW 1 ; Start count at 1 | |
135 MOVWF divB ; Clear Count | |
136 div16x16_1 | |
137 BTFSC xB+1,7 ; High bit set ? | |
138 bra div16x16_2 ; Yes then continue | |
139 INCF divB,F ; Increment count | |
140 | |
141 bcf STATUS,C | |
142 rlcf xB+0,F | |
143 rlcf xB+1,F | |
144 bra div16x16_1 | |
145 div16x16_2: | |
146 ; Shift result left | |
147 bcf STATUS,C | |
148 rlcf xC+0,F | |
149 rlcf xC+1,F | |
150 | |
151 ; Reduce Divisor | |
152 | |
153 MOVF xB,W ; Get low byte of subtrahend | |
154 SUBWF xA,F ; Subtract DST(low) - SRC(low) | |
155 MOVF xB+1,W ; Now get high byte of subtrahend | |
156 BTFSS STATUS,C ; If there was a borrow, rather than | |
157 INCF xB+1,W ; decrement high byte of dst we inc src | |
158 SUBWF xA+1,F ; Subtract the high byte and we're done | |
159 | |
160 | |
161 BTFSC STATUS, C ; Did it reduce? | |
162 bra div16x16_3 ; No, so it was less than | |
163 | |
164 movf xB+0,W ; Reverse subtraction | |
165 addwf xA+0,F | |
166 movf xB+1,W | |
167 addwfc xA+1,F | |
168 | |
169 bra div16x16_4 ; Continue the process | |
170 div16x16_3: | |
171 BSF xC+0,0 ; Yes it did, this gets a 1 bit | |
172 div16x16_4: | |
173 DECF divB,F ; Decrement N_COUNT | |
174 BTFSC STATUS,Z ; If its not zero then continue | |
175 return | |
176 | |
177 bcf STATUS,C | |
178 rrcf xB+1,F | |
179 rrcf xB+0,F | |
180 | |
181 bra div16x16_2 ; Next bit. | |
182 | |
476 | 183 ;============================================================================= |
184 | |
0 | 185 div32x16: ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder |
186 ; Setup | |
187 movlw .32 ; setup shift counter | |
188 movwf divB | |
189 movf xC+3,W ; move ACCb to ACCf | |
190 movwf xA+1 | |
191 movf xC+2,W | |
192 movwf xA+0 | |
193 movf xC+1,W ; move ACCc to ACCe | |
194 movwf sub_a+1 | |
195 movf xC+0,W | |
196 movwf sub_a+0 | |
197 clrf xC+3 | |
198 clrf xC+2 | |
199 clrf xC+1 | |
200 clrf xC+0 | |
201 clrf sub_b+1 | |
202 clrf sub_b+0 | |
203 div32x16_2 | |
204 bcf STATUS,C | |
205 rlcf sub_a+0,F | |
206 rlcf sub_a+1,F | |
207 rlcf xA+0,F | |
208 rlcf xA+1,F | |
209 rlcf sub_b+0,F | |
210 rlcf sub_b+1,F | |
211 movf xB+1,W | |
212 subwf sub_b+1,W ; check if a>d | |
213 btfss STATUS,Z | |
476 | 214 bra div32x16_3 |
0 | 215 movf xB+0,W |
216 subwf sub_b+0,W ; if msb equal then check lsb | |
217 div32x16_3 | |
218 btfss STATUS,C ; carry set if d>a | |
476 | 219 bra div32x16_4 |
0 | 220 movf xB+0,W ; d-a into d |
221 subwf sub_b+0,F | |
222 btfss STATUS,C | |
223 decf sub_b+1,F | |
224 movf xB+1,W | |
225 subwf sub_b+1,F | |
226 bsf STATUS,C ; shift a 1 into b (result) | |
227 div32x16_4 | |
228 rlcf xC+0,F | |
229 rlcf xC+1,F | |
230 rlcf xC+2,F | |
231 rlcf xC+3,F | |
232 decfsz divB,F ; loop until all bits checked | |
476 | 233 bra div32x16_2 |
0 | 234 return |
235 | |
161
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
236 ;============================================================================= |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
237 ; u16 * u16 --> 32bit multiply (xA * xB --> xC) |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
238 ; Used in interupt service routines, to compute temperature and pressure. |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
239 ; |
0 | 240 isr_mult16x16: |
241 clrf isr_xC+2 ; Clear the High-Order Bits | |
242 clrf isr_xC+3 | |
243 movf isr_xA, w ; Do the "L" Multiplication first | |
244 mulwf isr_xB | |
245 movf PRODL, w ; Save result | |
161
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
246 movwf isr_xC+0 |
0 | 247 movf PRODH, w |
248 movwf isr_xC+1 | |
161
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
249 movf isr_xA+0, w ; Do the "I" Multiplication |
0 | 250 mulwf isr_xB+1 |
251 movf PRODL, w ; Save the Most Significant Byte First | |
252 addwf isr_xC+1, f | |
253 movf PRODH, w | |
254 addwfc isr_xC+2, f ; Add to the Last Result | |
255 movf isr_xA+1, w ; Do the "O" Multiplication | |
256 mulwf isr_xB | |
257 movf PRODL, w ; Add the Lower Byte Next | |
258 addwf isr_xC+1, f | |
259 movf PRODH, w ; Add the High Byte First | |
260 addwfc isr_xC+2, f | |
261 btfsc STATUS, C ; Add the Carry | |
262 incf isr_xC+3, f | |
263 movf isr_xA+1, w ; Do the "F" Multiplication | |
264 mulwf isr_xB+1 | |
265 movf PRODL, w | |
266 addwf isr_xC+2, f | |
267 movf PRODH, w | |
268 addwfc isr_xC+3, f | |
269 return | |
161
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
270 |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
271 ;============================================================================= |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
272 ; 24bit shift, repeted WREG times. |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
273 ; Because we shift less than 8bits, and keep only C[2:1], we don't care what |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
274 ; bit is inserted... |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
275 ; |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
276 isr_shift_C31: |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
277 rrcf isr_xC+3,F ; Shift the three bytes... |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
278 rrcf isr_xC+2,F |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
279 rrcf isr_xC+1,F |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
280 decfsz WREG |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
281 bra isr_shift_C31 |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
282 return |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
283 |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
284 ;============================================================================= |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
285 ; s16 * s16 --> 32bit multiply (xA * xB --> xC) |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
286 ; Signed multiplication. |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
287 ; Code from... the Pic18F documentation ;-) |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
288 isr_unsigned_mult16x16: |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
289 MOVF isr_xA+0, W ; Lowest is simply a[0] * b[0] |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
290 MULWF isr_xB+0 |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
291 MOVFF PRODL, isr_xC+0 |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
292 MOVFF PRODH, isr_xC+1 |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
293 ; |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
294 MOVF isr_xA+1, W ; And highest a[1] * b[1] |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
295 MULWF isr_xB+1 |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
296 MOVFF PRODL, isr_xC+2 |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
297 MOVFF PRODH, isr_xC+3 |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
298 ; |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
299 MOVF isr_xA+0, W ; Intermediates do propagate: |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
300 MULWF isr_xB+1 |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
301 MOVF PRODL, W |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
302 ADDWF isr_xC+1, F ; Add cross products |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
303 MOVF PRODH, W |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
304 ADDWFC isr_xC+2, F ; with propagated carry |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
305 CLRF WREG |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
306 ADDWFC isr_xC+3, F ; on the three bytes. |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
307 ; |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
308 MOVF isr_xA+1, W ; And the second one, similarly. |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
309 MULWF isr_xB+0 |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
310 MOVF PRODL, W |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
311 ADDWF isr_xC+1, F ; Add cross products |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
312 MOVF PRODH, W |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
313 ADDWFC isr_xC+2, F |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
314 CLRF WREG |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
315 ADDWFC isr_xC+3, F |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
316 return |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
317 |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
318 isr_signed_mult16x16: |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
319 rcall isr_unsigned_mult16x16 |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
320 |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
321 ; Manage sign extension of operand B |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
322 BTFSS isr_xB+1,7 ; Is B negatif ? |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
323 BRA isr_signed_mult_checkA ; No: check ARG1 |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
324 MOVF isr_xA+0, W ; Yes: add -65536 * A |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
325 SUBWF isr_xC+2, F |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
326 MOVF isr_xA+1, W |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
327 SUBWFB isr_xC+3, F |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
328 ; And of operand A |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
329 isr_signed_mult_checkA |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
330 BTFSS isr_xA+1, 7 ; Is A negatif ? |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
331 RETURN ; No: done |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
332 MOVF isr_xB+0, W |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
333 SUBWF isr_xC+2, F |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
334 MOVF isr_xB+1, W |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
335 SUBWFB isr_xC+3, F |
8d6aca08f66b
Use signed arithmetic for pressure/temperature compensation.
JeanDo
parents:
105
diff
changeset
|
336 RETURN |