Rev 960 Rev 1045
Line 1... Line 1...
1 CCS PCM C Compiler, Version 4.106, 47914 20-4-13 20:07 1 CCS PCM C Compiler, Version 4.106, 47914 06-5-13 11:39
2   2  
3 Filename: C:\Users\Honza\Documents\pic\meteo_stanice\Nová složka\main.lst 3 Filename: c:\users\honza\documents\pic\meteo_stanice\nová složka\main.lst
4   4  
5 ROM used: 6167 words (75%) 5 ROM used: 5847 words (71%)
6 Largest free fragment is 1185 6 Largest free fragment is 2048
7 RAM used: 29 (8%) at main() level 7 RAM used: 25 (7%) at main() level
8 144 (39%) worst case 8 260 (71%) worst case
9 Stack: 5 worst case (3 in main + 2 for interrupts) 9 Stack: 5 worst case (3 in main + 2 for interrupts)
10   10  
11 * 11 *
12 0000: MOVLW 18 12 0000: MOVLW 15
13 0001: MOVWF 0A 13 0001: MOVWF 0A
14 0002: GOTO 000 14 0002: GOTO 53E
15 0003: NOP 15 0003: NOP
16 0004: MOVWF 7F 16 0004: MOVWF 7F
17 0005: SWAPF 03,W 17 0005: SWAPF 03,W
18 0006: CLRF 03 18 0006: CLRF 03
19 0007: MOVWF 21 19 0007: MOVWF 21
Line 79... Line 79...
79 .................... 79 ....................
80 .................... #device adc=8 80 .................... #device adc=8
81 .................... 81 ....................
82 .................... 82 ....................
83 .................... 83 ....................
84 .................... #FUSES WDT // Watch Dog Timer 84 .................... //#FUSES WDT // Watch Dog Timer
85 .................... //#FUSES NOWDT //No Watch Dog Timer 85 .................... #FUSES NOWDT //No Watch Dog Timer
86 .................... #FUSES INTRC //Internal RC Osc 86 .................... #FUSES INTRC //Internal RC Osc
87 .................... #FUSES NOPUT //No Power Up Timer 87 .................... #FUSES NOPUT //No Power Up Timer
88 .................... #FUSES MCLR //Master Clear pin enabled 88 .................... #FUSES MCLR //Master Clear pin enabled
89 .................... #FUSES NOPROTECT //Code not protected from reading 89 .................... #FUSES NOPROTECT //Code not protected from reading
90 .................... #FUSES NOCPD //No EE protection 90 .................... #FUSES NOCPD //No EE protection
91 .................... #FUSES NOBROWNOUT //No brownout reset 91 .................... #FUSES NOBROWNOUT //No brownout reset
92 .................... #FUSES IESO //Internal External Switch Over mode enabled 92 .................... #FUSES IESO //Internal External Switch Over mode enabled
93 .................... #FUSES FCMEN //Fail-safe clock monitor enabled 93 .................... #FUSES FCMEN //Fail-safe clock monitor enabled
94 .................... #FUSES NOLVP //No low voltage prgming, B3(PIC16) or B5(PIC18) used for I/O 94 .................... #FUSES NOLVP //No low voltage prgming, B3(PIC16) or B5(PIC18) used for I/O
95 .................... #FUSES NODEBUG //No Debug mode for ICD 95 .................... #FUSES NODEBUG //No Debug mode for ICD
96 .................... #FUSES NOWRT //Program memory not write protected 96 .................... #FUSES NOWRT //Program memory not write protected
97 .................... #FUSES BORV40 //Brownout reset at 4.0V 97 .................... #FUSES BORV40 //Brownout reset at 4.0V
98 .................... 98 ....................
99 .................... #use delay(clock=8000000) 99 .................... #use delay(clock=8000000)
100 * 100 *
101 02F5: MOVLW 65 101 0303: MOVLW E2
102 02F6: MOVWF 04 102 0304: MOVWF 04
103 02F7: BCF 03.7 103 0305: BCF 03.7
104 02F8: MOVF 00,W 104 0306: MOVF 00,W
105 02F9: BTFSC 03.2 105 0307: BTFSC 03.2
106 02FA: GOTO 308 106 0308: GOTO 316
107 02FB: MOVLW 02 107 0309: MOVLW 02
108 02FC: MOVWF 78 108 030A: MOVWF 78
109 02FD: CLRF 77 109 030B: CLRF 77
110 02FE: DECFSZ 77,F 110 030C: DECFSZ 77,F
111 02FF: GOTO 2FE 111 030D: GOTO 30C
112 0300: DECFSZ 78,F 112 030E: DECFSZ 78,F
113 0301: GOTO 2FD 113 030F: GOTO 30B
114 0302: MOVLW 97 114 0310: MOVLW 97
115 0303: MOVWF 77 115 0311: MOVWF 77
116 0304: DECFSZ 77,F 116 0312: DECFSZ 77,F
117 0305: GOTO 304 117 0313: GOTO 312
118 0306: DECFSZ 00,F 118 0314: DECFSZ 00,F
119 0307: GOTO 2FB 119 0315: GOTO 309
120 0308: RETURN 120 0316: RETURN
121 .................... 121 ....................
122 .................... //set I2C 122 .................... //set I2C
123 .................... #define PIN_SDA PIN_C4 123 .................... #define PIN_SDA PIN_C3
124 .................... #define PIN_SCL PIN_C3 124 .................... #define PIN_SCL PIN_C4
125 .................... #use i2c(master, sda=PIN_SDA, scl=PIN_SCL) 125 .................... #use i2c(master, sda=PIN_SDA, scl=PIN_SCL)
126 * 126 *
127 022E: MOVLW 08 127 022E: MOVLW 08
128 022F: MOVWF 78 128 022F: MOVWF 78
129 0230: NOP 129 0230: NOP
130 0231: BCF 07.3 130 0231: BCF 07.4
131 0232: BCF 28.3 131 0232: BCF 28.4
132 0233: MOVF 28,W 132 0233: MOVF 28,W
133 0234: BSF 03.5 133 0234: BSF 03.5
134 0235: MOVWF 07 134 0235: MOVWF 07
135 0236: NOP 135 0236: NOP
-   136 0237: BCF 03.5
-   137 0238: BSF 03.6
136 0237: RLF 73,F 138 0239: RLF 12,F
137 0238: BCF 03.5 139 023A: BCF 03.6
138 0239: BCF 07.4 140 023B: BCF 07.3
139 023A: BTFSS 03.0 141 023C: BTFSS 03.0
140 023B: GOTO 242 142 023D: GOTO 244
141 023C: BSF 28.4 143 023E: BSF 28.3
142 023D: MOVF 28,W 144 023F: MOVF 28,W
143 023E: BSF 03.5 145 0240: BSF 03.5
144 023F: MOVWF 07 146 0241: MOVWF 07
145 0240: GOTO 246 147 0242: GOTO 248
146 0241: BCF 03.5 148 0243: BCF 03.5
147 0242: BCF 28.4 149 0244: BCF 28.3
148 0243: MOVF 28,W 150 0245: MOVF 28,W
149 0244: BSF 03.5 151 0246: BSF 03.5
150 0245: MOVWF 07 152 0247: MOVWF 07
151 0246: NOP 153 0248: NOP
152 0247: BCF 03.5 154 0249: BCF 03.5
153 0248: BSF 28.3 155 024A: BSF 28.4
154 0249: MOVF 28,W 156 024B: MOVF 28,W
155 024A: BSF 03.5 157 024C: BSF 03.5
156 024B: MOVWF 07 158 024D: MOVWF 07
157 024C: BCF 03.5 159 024E: BCF 03.5
158 024D: BTFSS 07.3 160 024F: BTFSS 07.4
159 024E: GOTO 24D 161 0250: GOTO 24F
160 024F: DECFSZ 78,F 162 0251: DECFSZ 78,F
161 0250: GOTO 230 163 0252: GOTO 230
162 0251: NOP 164 0253: NOP
163 0252: BCF 07.3 165 0254: BCF 07.4
164 0253: BCF 28.3 166 0255: BCF 28.4
165 0254: MOVF 28,W 167 0256: MOVF 28,W
166 0255: BSF 03.5 168 0257: BSF 03.5
167 0256: MOVWF 07 169 0258: MOVWF 07
168 0257: NOP 170 0259: NOP
169 0258: BCF 03.5 171 025A: BCF 03.5
170 0259: BSF 28.4 172 025B: BSF 28.3
171 025A: MOVF 28,W 173 025C: MOVF 28,W
172 025B: BSF 03.5 174 025D: BSF 03.5
173 025C: MOVWF 07 175 025E: MOVWF 07
174 025D: NOP 176 025F: NOP
175 025E: NOP 177 0260: NOP
176 025F: BCF 03.5 178 0261: BCF 03.5
177 0260: BSF 28.3 179 0262: BSF 28.4
178 0261: MOVF 28,W 180 0263: MOVF 28,W
179 0262: BSF 03.5 181 0264: BSF 03.5
180 0263: MOVWF 07 182 0265: MOVWF 07
181 0264: BCF 03.5 183 0266: BCF 03.5
182 0265: BTFSS 07.3 184 0267: BTFSS 07.4
183 0266: GOTO 265 185 0268: GOTO 267
184 0267: CLRF 78 186 0269: CLRF 78
185 0268: NOP 187 026A: NOP
186 0269: BTFSC 07.4 188 026B: BTFSC 07.3
187 026A: BSF 78.0 189 026C: BSF 78.0
188 026B: BCF 07.3 190 026D: BCF 07.4
189 026C: BCF 28.3 191 026E: BCF 28.4
190 026D: MOVF 28,W 192 026F: MOVF 28,W
191 026E: BSF 03.5 193 0270: BSF 03.5
192 026F: MOVWF 07 194 0271: MOVWF 07
193 0270: BCF 03.5 195 0272: BCF 03.5
194 0271: BCF 07.4 196 0273: BCF 07.3
195 0272: BCF 28.4 197 0274: BCF 28.3
196 0273: MOVF 28,W 198 0275: MOVF 28,W
197 0274: BSF 03.5 199 0276: BSF 03.5
198 0275: MOVWF 07 200 0277: MOVWF 07
199 0276: BCF 03.5 201 0278: BCF 03.5
200 0277: RETURN 202 0279: RETURN
201 * 203 *
202 02B0: MOVLW 08 204 02B6: MOVLW 08
-   205 02B7: BSF 03.6
203 02B1: MOVWF 74 206 02B8: MOVWF 13
204 02B2: MOVF 77,W 207 02B9: MOVF 77,W
205 02B3: MOVWF 75 208 02BA: MOVWF 14
-   209 02BB: BCF 03.6
206 02B4: BSF 28.4 210 02BC: BSF 28.3
207 02B5: MOVF 28,W 211 02BD: MOVF 28,W
208 02B6: BSF 03.5 212 02BE: BSF 03.5
209 02B7: MOVWF 07 213 02BF: MOVWF 07
210 02B8: NOP 214 02C0: NOP
211 02B9: BCF 03.5 215 02C1: BCF 03.5
212 02BA: BSF 28.3 216 02C2: BSF 28.4
213 02BB: MOVF 28,W 217 02C3: MOVF 28,W
214 02BC: BSF 03.5 218 02C4: BSF 03.5
215 02BD: MOVWF 07 219 02C5: MOVWF 07
216 02BE: BCF 03.5 220 02C6: BCF 03.5
217 02BF: BTFSS 07.3 221 02C7: BTFSS 07.4
218 02C0: GOTO 2BF 222 02C8: GOTO 2C7
219 02C1: BTFSC 07.4 223 02C9: BTFSC 07.3
220 02C2: BSF 03.0 224 02CA: BSF 03.0
221 02C3: BTFSS 07.4 225 02CB: BTFSS 07.3
222 02C4: BCF 03.0 226 02CC: BCF 03.0
223 02C5: RLF 78,F 227 02CD: RLF 78,F
224 02C6: NOP 228 02CE: NOP
225 02C7: BCF 28.3 -  
226 02C8: MOVF 28,W -  
227 02C9: BSF 03.5 -  
228 02CA: MOVWF 07 -  
229 02CB: BCF 03.5 -  
230 02CC: BCF 07.3 -  
231 02CD: DECFSZ 74,F -  
232 02CE: GOTO 2B4 -  
233 02CF: BSF 28.4 229 02CF: BCF 28.4
234 02D0: MOVF 28,W 230 02D0: MOVF 28,W
235 02D1: BSF 03.5 231 02D1: BSF 03.5
236 02D2: MOVWF 07 232 02D2: MOVWF 07
237 02D3: NOP 233 02D3: BCF 03.5
238 02D4: BCF 03.5 234 02D4: BCF 07.4
239 02D5: BCF 07.4 235 02D5: BSF 03.6
240 02D6: MOVF 75,W 236 02D6: DECFSZ 13,F
241 02D7: BTFSC 03.2 237 02D7: GOTO 2BB
242 02D8: GOTO 2DE 238 02D8: BCF 03.6
243 02D9: BCF 28.4 239 02D9: BSF 28.3
244 02DA: MOVF 28,W 240 02DA: MOVF 28,W
245 02DB: BSF 03.5 241 02DB: BSF 03.5
246 02DC: MOVWF 07 242 02DC: MOVWF 07
-   243 02DD: NOP
247 02DD: BCF 03.5 244 02DE: BCF 03.5
-   245 02DF: BCF 07.3
-   246 02E0: BSF 03.6
-   247 02E1: MOVF 14,W
-   248 02E2: BTFSC 03.2
-   249 02E3: GOTO 2EB
-   250 02E4: BCF 03.6
-   251 02E5: BCF 28.3
-   252 02E6: MOVF 28,W
-   253 02E7: BSF 03.5
-   254 02E8: MOVWF 07
-   255 02E9: BCF 03.5
-   256 02EA: BSF 03.6
248 02DE: NOP 257 02EB: NOP
-   258 02EC: BCF 03.6
249 02DF: BSF 28.3 259 02ED: BSF 28.4
250 02E0: MOVF 28,W 260 02EE: MOVF 28,W
251 02E1: BSF 03.5 261 02EF: BSF 03.5
252 02E2: MOVWF 07 262 02F0: MOVWF 07
253 02E3: BCF 03.5 263 02F1: BCF 03.5
254 02E4: BTFSS 07.3 264 02F2: BTFSS 07.4
255 02E5: GOTO 2E4 265 02F3: GOTO 2F2
256 02E6: NOP 266 02F4: NOP
257 02E7: BCF 07.3 267 02F5: BCF 07.4
258 02E8: BCF 28.3 268 02F6: BCF 28.4
259 02E9: MOVF 28,W 269 02F7: MOVF 28,W
260 02EA: BSF 03.5 270 02F8: BSF 03.5
261 02EB: MOVWF 07 271 02F9: MOVWF 07
262 02EC: NOP 272 02FA: NOP
263 02ED: BCF 03.5 273 02FB: BCF 03.5
264 02EE: BCF 07.4 274 02FC: BCF 07.3
265 02EF: BCF 28.4 275 02FD: BCF 28.3
266 02F0: MOVF 28,W 276 02FE: MOVF 28,W
267 02F1: BSF 03.5 277 02FF: BSF 03.5
268 02F2: MOVWF 07 278 0300: MOVWF 07
269 02F3: BCF 03.5 279 0301: BCF 03.5
270 02F4: RETURN 280 0302: RETURN
271 .................... //set RS232 281 .................... //set RS232
272 .................... #use rs232(baud=9600,parity=N,xmit=PIN_C7,rcv=PIN_C6,bits=8) //rcv TXD xmit RXD 282 .................... #use rs232(baud=9600,parity=N,xmit=PIN_C7,rcv=PIN_C6,bits=8) //rcv TXD xmit RXD
273 * 283 *
-   284 0F62: BCF 03.5
274 03D1: BCF 28.7 285 0F63: BCF 28.7
275 03D2: MOVF 28,W 286 0F64: MOVF 28,W
276 03D3: BSF 03.5 287 0F65: BSF 03.5
277 03D4: MOVWF 07 288 0F66: MOVWF 07
278 03D5: BCF 03.5 289 0F67: BCF 03.5
279 03D6: BCF 07.7 290 0F68: BCF 07.7
280 03D7: MOVLW 08 291 0F69: MOVLW 08
281 03D8: MOVWF 78 292 0F6A: MOVWF 78
282 03D9: GOTO 3DA 293 0F6B: GOTO 76C
283 03DA: NOP 294 0F6C: NOP
284 03DB: BSF 78.7 295 0F6D: BSF 78.7
285 03DC: GOTO 3EB 296 0F6E: GOTO 77F
286 03DD: BCF 78.7 297 0F6F: BCF 78.7
-   298 0F70: BSF 03.5
287 03DE: RRF 64,F 299 0F71: RRF 5F,F
-   300 0F72: BCF 03.5
288 03DF: BTFSC 03.0 301 0F73: BTFSC 03.0
289 03E0: BSF 07.7 302 0F74: BSF 07.7
290 03E1: BTFSS 03.0 303 0F75: BTFSS 03.0
291 03E2: BCF 07.7 304 0F76: BCF 07.7
292 03E3: BSF 78.6 305 0F77: BSF 78.6
293 03E4: GOTO 3EB 306 0F78: GOTO 77F
294 03E5: BCF 78.6 307 0F79: BCF 78.6
295 03E6: DECFSZ 78,F 308 0F7A: DECFSZ 78,F
296 03E7: GOTO 3DE 309 0F7B: GOTO 770
297 03E8: GOTO 3E9 310 0F7C: GOTO 77D
298 03E9: NOP 311 0F7D: NOP
299 03EA: BSF 07.7 312 0F7E: BSF 07.7
300 03EB: MOVLW 3F 313 0F7F: MOVLW 3F
301 03EC: MOVWF 04 314 0F80: MOVWF 04
302 03ED: DECFSZ 04,F 315 0F81: DECFSZ 04,F
303 03EE: GOTO 3ED 316 0F82: GOTO 781
304 03EF: NOP 317 0F83: NOP
305 03F0: BTFSC 78.7 318 0F84: BTFSC 78.7
306 03F1: GOTO 3DD 319 0F85: GOTO 76F
307 03F2: BTFSC 78.6 320 0F86: BTFSC 78.6
308 03F3: GOTO 3E5 321 0F87: GOTO 779
309 03F4: RETURN 322 ....................
310 .................... 323 ....................
311 .................... #include <math.h> 324 .................... #include <math.h>
312 .................... //////////////////////////////////////////////////////////////////////////// 325 .................... ////////////////////////////////////////////////////////////////////////////
313 .................... //// (C) Copyright 1996,2008 Custom Computer Services //// 326 .................... //// (C) Copyright 1996,2008 Custom Computer Services ////
314 .................... //// This source code may only be used by licensed users of the CCS C //// 327 .................... //// This source code may only be used by licensed users of the CCS C ////
Line 1877... Line 1890...
1877 .................... float32 y, res, r; 1890 .................... float32 y, res, r;
1878 .................... int1 s, flag; 1891 .................... int1 s, flag;
1879 .................... 1892 ....................
1880 .................... s = 0; 1893 .................... s = 0;
1881 * 1894 *
1882 10B8: BCF 76.0 1895 10E7: BCF 6F.0
1883 .................... flag = 0; 1896 .................... flag = 0;
1884 10B9: BCF 76.1 1897 10E8: BCF 6F.1
1885 .................... y = x; 1898 .................... y = x;
1886 10BA: MOVF 71,W 1899 10E9: MOVF 6E,W
-   1900 10EA: BCF 03.5
-   1901 10EB: BSF 03.6
1887 10BB: MOVWF 75 1902 10EC: MOVWF 13
-   1903 10ED: BSF 03.5
-   1904 10EE: BCF 03.6
1888 10BC: MOVF 70,W 1905 10EF: MOVF 6D,W
-   1906 10F0: BCF 03.5
-   1907 10F1: BSF 03.6
1889 10BD: MOVWF 74 1908 10F2: MOVWF 12
-   1909 10F3: BSF 03.5
-   1910 10F4: BCF 03.6
1890 10BE: MOVF 6F,W 1911 10F5: MOVF 6C,W
-   1912 10F6: BCF 03.5
-   1913 10F7: BSF 03.6
1891 10BF: MOVWF 73 1914 10F8: MOVWF 11
-   1915 10F9: BSF 03.5
-   1916 10FA: BCF 03.6
1892 10C0: MOVF 6E,W 1917 10FB: MOVF 6B,W
-   1918 10FC: BCF 03.5
-   1919 10FD: BSF 03.6
1893 10C1: MOVWF 72 1920 10FE: MOVWF 10
1894 .................... 1921 ....................
1895 .................... if (x < 0) 1922 .................... if (x < 0)
-   1923 10FF: BSF 03.5
-   1924 1100: BCF 03.6
1896 10C2: MOVF 71,W 1925 1101: MOVF 6E,W
-   1926 1102: BCF 03.5
1897 10C3: BSF 03.5 1927 1103: BSF 03.6
1898 10C4: MOVWF 28 1928 1104: MOVWF 20
-   1929 1105: BSF 03.5
-   1930 1106: BCF 03.6
1899 10C5: MOVF 70,W 1931 1107: MOVF 6D,W
-   1932 1108: BCF 03.5
-   1933 1109: BSF 03.6
1900 10C6: MOVWF 27 1934 110A: MOVWF 1F
-   1935 110B: BSF 03.5
1901 10C7: BCF 03.5 1936 110C: BCF 03.6
1902 10C8: MOVF 6F,W 1937 110D: MOVF 6C,W
1903 10C9: BSF 03.5 1938 110E: BCF 03.5
-   1939 110F: BSF 03.6
1904 10CA: MOVWF 26 1940 1110: MOVWF 1E
-   1941 1111: BSF 03.5
1905 10CB: BCF 03.5 1942 1112: BCF 03.6
1906 10CC: MOVF 6E,W 1943 1113: MOVF 6B,W
-   1944 1114: BCF 03.5
1907 10CD: BSF 03.5 1945 1115: BSF 03.6
1908 10CE: MOVWF 25 1946 1116: MOVWF 1D
1909 10CF: CLRF 2C 1947 1117: CLRF 24
1910 10D0: CLRF 2B 1948 1118: CLRF 23
1911 10D1: CLRF 2A 1949 1119: CLRF 22
1912 10D2: CLRF 29 1950 111A: CLRF 21
1913 10D3: BCF 0A.4 1951 111B: BCF 0A.4
1914 10D4: BSF 0A.3 1952 111C: BSF 0A.3
1915 10D5: BCF 03.5 1953 111D: BCF 03.6
1916 10D6: CALL 5F1 1954 111E: CALL 5A9
1917 10D7: BSF 0A.4 1955 111F: BSF 0A.4
1918 10D8: BCF 0A.3 1956 1120: BCF 0A.3
1919 10D9: BTFSS 03.0 1957 1121: BTFSS 03.0
1920 10DA: GOTO 0DF 1958 1122: GOTO 12B
1921 .................... { 1959 .................... {
1922 .................... s = 1; 1960 .................... s = 1;
-   1961 1123: BSF 03.5
1923 10DB: BSF 76.0 1962 1124: BSF 6F.0
1924 .................... y = -y; 1963 .................... y = -y;
-   1964 1125: BCF 03.5
-   1965 1126: BSF 03.6
1925 10DC: MOVF 73,W 1966 1127: MOVF 11,W
1926 10DD: XORLW 80 1967 1128: XORLW 80
1927 10DE: MOVWF 73 1968 1129: MOVWF 11
-   1969 112A: BCF 03.6
1928 .................... } 1970 .................... }
1929 .................... 1971 ....................
1930 .................... if (y > 1.0) 1972 .................... if (y > 1.0)
1931 10DF: BSF 03.5 1973 112B: BSF 03.6
1932 10E0: CLRF 28 1974 112C: CLRF 20
1933 10E1: CLRF 27 1975 112D: CLRF 1F
1934 10E2: CLRF 26 1976 112E: CLRF 1E
1935 10E3: MOVLW 7F 1977 112F: MOVLW 7F
1936 10E4: MOVWF 25 1978 1130: MOVWF 1D
1937 10E5: MOVF 75,W 1979 1131: MOVF 13,W
1938 10E6: MOVWF 2C 1980 1132: MOVWF 24
1939 10E7: MOVF 74,W 1981 1133: MOVF 12,W
1940 10E8: MOVWF 2B 1982 1134: MOVWF 23
1941 10E9: MOVF 73,W 1983 1135: MOVF 11,W
1942 10EA: MOVWF 2A 1984 1136: MOVWF 22
1943 10EB: MOVF 72,W 1985 1137: MOVF 10,W
1944 10EC: MOVWF 29 1986 1138: MOVWF 21
1945 10ED: BCF 0A.4 1987 1139: BCF 0A.4
1946 10EE: BSF 0A.3 1988 113A: BSF 0A.3
1947 10EF: BCF 03.5 1989 113B: BCF 03.6
1948 10F0: CALL 5F1 1990 113C: CALL 5A9
1949 10F1: BSF 0A.4 1991 113D: BSF 0A.4
1950 10F2: BCF 0A.3 1992 113E: BCF 0A.3
1951 10F3: BTFSS 03.0 1993 113F: BTFSS 03.0
1952 10F4: GOTO 116 1994 1140: GOTO 166
1953 10F5: CLRF 27 1995 1141: CLRF 27
1954 10F6: BTFSC 0B.7 1996 1142: BTFSC 0B.7
1955 10F7: BSF 27.7 1997 1143: BSF 27.7
1956 10F8: BCF 0B.7 1998 1144: BCF 0B.7
1957 .................... { 1999 .................... {
1958 .................... y = 1.0/y; 2000 .................... y = 1.0/y;
1959 10F9: BSF 03.5 2001 1145: BSF 03.6
1960 10FA: CLRF 45 2002 1146: CLRF 59
1961 10FB: CLRF 44 2003 1147: CLRF 58
1962 10FC: CLRF 43 2004 1148: CLRF 57
1963 10FD: MOVLW 7F 2005 1149: MOVLW 7F
1964 10FE: MOVWF 42 2006 114A: MOVWF 56
1965 10FF: MOVF 75,W 2007 114B: MOVF 13,W
1966 1100: MOVWF 49 2008 114C: MOVWF 5D
1967 1101: MOVF 74,W 2009 114D: MOVF 12,W
1968 1102: MOVWF 48 2010 114E: MOVWF 5C
1969 1103: MOVF 73,W 2011 114F: MOVF 11,W
1970 1104: MOVWF 47 2012 1150: MOVWF 5B
1971 1105: MOVF 72,W 2013 1151: MOVF 10,W
1972 1106: MOVWF 46 2014 1152: MOVWF 5A
1973 1107: BCF 0A.4 2015 1153: BCF 0A.4
1974 1108: BCF 03.5 2016 1154: BCF 03.6
1975 1109: CALL 057 2017 1155: CALL 057
1976 110A: BSF 0A.4 2018 1156: BSF 0A.4
1977 110B: BTFSC 27.7 2019 1157: BTFSC 27.7
1978 110C: BSF 0B.7 2020 1158: BSF 0B.7
1979 110D: MOVF 7A,W 2021 1159: MOVF 7A,W
-   2022 115A: BSF 03.6
1980 110E: MOVWF 75 2023 115B: MOVWF 13
1981 110F: MOVF 79,W 2024 115C: MOVF 79,W
1982 1110: MOVWF 74 2025 115D: MOVWF 12
1983 1111: MOVF 78,W 2026 115E: MOVF 78,W
1984 1112: MOVWF 73 2027 115F: MOVWF 11
1985 1113: MOVF 77,W 2028 1160: MOVF 77,W
1986 1114: MOVWF 72 2029 1161: MOVWF 10
1987 .................... flag = 1; 2030 .................... flag = 1;
-   2031 1162: BSF 03.5
-   2032 1163: BCF 03.6
1988 1115: BSF 76.1 2033 1164: BSF 6F.1
-   2034 1165: BCF 03.5
1989 .................... } 2035 .................... }
1990 .................... 2036 ....................
1991 .................... res = pat[0]*y*y + pat[1]; 2037 .................... res = pat[0]*y*y + pat[1];
1992 1116: MOVLW 0A 2038 1166: MOVLW 0A
1993 1117: BSF 03.5 2039 1167: BSF 03.6
1994 1118: MOVWF 2C 2040 1168: MOVWF 24
1995 1119: MOVLW 89 2041 1169: MOVLW 89
1996 111A: MOVWF 2B 2042 116A: MOVWF 23
1997 111B: MOVLW 34 2043 116B: MOVLW 34
1998 111C: MOVWF 2A 2044 116C: MOVWF 22
1999 111D: MOVLW 7C 2045 116D: MOVLW 7C
2000 111E: MOVWF 29 -  
2001 111F: MOVF 75,W -  
2002 1120: MOVWF 30 -  
2003 1121: MOVF 74,W -  
2004 1122: MOVWF 2F -  
2005 1123: MOVF 73,W -  
2006 1124: MOVWF 2E -  
2007 1125: MOVF 72,W -  
2008 1126: MOVWF 2D -  
2009 1127: BCF 0A.4 -  
2010 1128: BCF 03.5 -  
2011 1129: CALL 76E -  
2012 112A: BSF 0A.4 -  
2013 112B: MOVF 77,W -  
2014 112C: BSF 03.5 -  
2015 112D: MOVWF 24 -  
2016 112E: MOVF 78,W -  
2017 112F: MOVWF 25 -  
2018 1130: MOVF 79,W -  
2019 1131: MOVWF 26 -  
2020 1132: MOVF 7A,W -  
2021 1133: MOVWF 27 -  
2022 1134: MOVWF 2C -  
2023 1135: MOVF 26,W -  
2024 1136: MOVWF 2B -  
2025 1137: MOVF 25,W -  
2026 1138: MOVWF 2A -  
2027 1139: MOVF 24,W -  
2028 113A: MOVWF 29 -  
2029 113B: MOVF 75,W -  
2030 113C: MOVWF 30 -  
2031 113D: MOVF 74,W -  
2032 113E: MOVWF 2F 2046 116E: MOVWF 21
2033 113F: MOVF 73,W 2047 116F: MOVF 13,W
2034 1140: MOVWF 2E 2048 1170: MOVWF 28
2035 1141: MOVF 72,W 2049 1171: MOVF 12,W
2036 1142: MOVWF 2D 2050 1172: MOVWF 27
2037 1143: BCF 0A.4 -  
2038 1144: BCF 03.5 -  
2039 1145: CALL 76E -  
2040 1146: BSF 0A.4 -  
2041 1147: MOVF 77,W -  
2042 1148: BSF 03.5 -  
2043 1149: MOVWF 24 -  
2044 114A: MOVF 78,W -  
2045 114B: MOVWF 25 -  
2046 114C: MOVF 79,W -  
2047 114D: MOVWF 26 -  
2048 114E: MOVF 7A,W -  
2049 114F: MOVWF 27 -  
2050 1150: BCF 03.1 -  
2051 1151: MOVF 27,W -  
2052 1152: MOVWF 2C -  
2053 1153: MOVF 26,W 2051 1173: MOVF 11,W
2054 1154: MOVWF 2B 2052 1174: MOVWF 26
2055 1155: MOVF 25,W 2053 1175: MOVF 10,W
2056 1156: MOVWF 2A 2054 1176: MOVWF 25
2057 1157: MOVF 24,W -  
2058 1158: MOVWF 29 -  
2059 1159: MOVLW 7C -  
2060 115A: MOVWF 30 -  
2061 115B: MOVLW 79 -  
2062 115C: MOVWF 2F -  
2063 115D: MOVLW 35 -  
2064 115E: MOVWF 2E -  
2065 115F: MOVLW 81 -  
2066 1160: MOVWF 2D -  
2067 1161: BCF 0A.4 2055 1177: BCF 0A.4
2068 1162: BSF 0A.3 2056 1178: BSF 0A.3
2069 1163: BCF 03.5 2057 1179: BCF 03.6
2070 1164: CALL 000 2058 117A: CALL 2AB
2071 1165: BSF 0A.4 2059 117B: BSF 0A.4
2072 1166: BCF 0A.3 2060 117C: BCF 0A.3
2073 1167: MOVF 7A,W -  
2074 1168: MOVWF 7E -  
2075 1169: MOVF 79,W -  
2076 116A: MOVWF 7D -  
2077 116B: MOVF 78,W -  
2078 116C: MOVWF 7C -  
2079 116D: MOVF 77,W 2061 117D: MOVF 77,W
2080 116E: MOVWF 7B -  
2081 .................... res = res*y*y + pat[2]; -  
2082 116F: MOVF 7E,W -  
2083 1170: BSF 03.5 2062 117E: BSF 03.6
2084 1171: MOVWF 2C 2063 117F: MOVWF 1C
2085 1172: MOVF 7D,W -  
2086 1173: MOVWF 2B -  
2087 1174: MOVF 7C,W -  
2088 1175: MOVWF 2A -  
2089 1176: MOVF 7B,W -  
2090 1177: MOVWF 29 -  
2091 1178: MOVF 75,W -  
2092 1179: MOVWF 30 -  
2093 117A: MOVF 74,W 2064 1180: MOVF 78,W
2094 117B: MOVWF 2F 2065 1181: MOVWF 1D
2095 117C: MOVF 73,W 2066 1182: MOVF 79,W
2096 117D: MOVWF 2E 2067 1183: MOVWF 1E
2097 117E: MOVF 72,W 2068 1184: MOVF 7A,W
2098 117F: MOVWF 2D 2069 1185: MOVWF 1F
2099 1180: BCF 0A.4 -  
2100 1181: BCF 03.5 -  
2101 1182: CALL 76E -  
2102 1183: BSF 0A.4 -  
2103 1184: MOVF 77,W -  
2104 1185: BSF 03.5 -  
2105 1186: MOVWF 24 2070 1186: MOVWF 24
2106 1187: MOVF 78,W 2071 1187: MOVF 1E,W
2107 1188: MOVWF 25 2072 1188: MOVWF 23
2108 1189: MOVF 79,W 2073 1189: MOVF 1D,W
2109 118A: MOVWF 26 2074 118A: MOVWF 22
2110 118B: MOVF 7A,W 2075 118B: MOVF 1C,W
2111 118C: MOVWF 27 2076 118C: MOVWF 21
-   2077 118D: MOVF 13,W
2112 118D: MOVWF 2C 2078 118E: MOVWF 28
2113 118E: MOVF 26,W 2079 118F: MOVF 12,W
2114 118F: MOVWF 2B 2080 1190: MOVWF 27
2115 1190: MOVF 25,W 2081 1191: MOVF 11,W
2116 1191: MOVWF 2A 2082 1192: MOVWF 26
2117 1192: MOVF 24,W 2083 1193: MOVF 10,W
2118 1193: MOVWF 29 2084 1194: MOVWF 25
-   2085 1195: BCF 0A.4
-   2086 1196: BSF 0A.3
-   2087 1197: BCF 03.6
-   2088 1198: CALL 2AB
-   2089 1199: BSF 0A.4
-   2090 119A: BCF 0A.3
2119 1194: MOVF 75,W 2091 119B: MOVF 77,W
-   2092 119C: BSF 03.6
2120 1195: MOVWF 30 2093 119D: MOVWF 1C
2121 1196: MOVF 74,W 2094 119E: MOVF 78,W
2122 1197: MOVWF 2F 2095 119F: MOVWF 1D
2123 1198: MOVF 73,W 2096 11A0: MOVF 79,W
2124 1199: MOVWF 2E 2097 11A1: MOVWF 1E
2125 119A: MOVF 72,W 2098 11A2: MOVF 7A,W
-   2099 11A3: MOVWF 1F
-   2100 11A4: BCF 03.1
-   2101 11A5: MOVF 1F,W
-   2102 11A6: MOVWF 24
-   2103 11A7: MOVF 1E,W
-   2104 11A8: MOVWF 23
-   2105 11A9: MOVF 1D,W
-   2106 11AA: MOVWF 22
-   2107 11AB: MOVF 1C,W
-   2108 11AC: MOVWF 21
-   2109 11AD: MOVLW 7C
-   2110 11AE: MOVWF 28
-   2111 11AF: MOVLW 79
-   2112 11B0: MOVWF 27
-   2113 11B1: MOVLW 35
-   2114 11B2: MOVWF 26
-   2115 11B3: MOVLW 81
2126 119B: MOVWF 2D 2116 11B4: MOVWF 25
2127 119C: BCF 0A.4 2117 11B5: BCF 0A.4
2128 119D: BCF 03.5 2118 11B6: BCF 03.6
2129 119E: CALL 76E 2119 11B7: CALL 5DC
2130 119F: BSF 0A.4 2120 11B8: BSF 0A.4
2131 11A0: MOVF 77,W 2121 11B9: MOVF 7A,W
2132 11A1: BSF 03.5 2122 11BA: BSF 03.6
-   2123 11BB: MOVWF 17
-   2124 11BC: MOVF 79,W
2133 11A2: MOVWF 24 2125 11BD: MOVWF 16
2134 11A3: MOVF 78,W 2126 11BE: MOVF 78,W
2135 11A4: MOVWF 25 2127 11BF: MOVWF 15
2136 11A5: MOVF 79,W 2128 11C0: MOVF 77,W
-   2129 11C1: MOVWF 14
-   2130 .................... res = res*y*y + pat[2];
-   2131 11C2: MOVF 17,W
-   2132 11C3: MOVWF 24
-   2133 11C4: MOVF 16,W
2137 11A6: MOVWF 26 2134 11C5: MOVWF 23
2138 11A7: MOVF 7A,W 2135 11C6: MOVF 15,W
2139 11A8: MOVWF 27 2136 11C7: MOVWF 22
-   2137 11C8: MOVF 14,W
2140 11A9: BCF 03.1 2138 11C9: MOVWF 21
2141 11AA: MOVF 27,W 2139 11CA: MOVF 13,W
2142 11AB: MOVWF 2C 2140 11CB: MOVWF 28
2143 11AC: MOVF 26,W 2141 11CC: MOVF 12,W
2144 11AD: MOVWF 2B 2142 11CD: MOVWF 27
2145 11AE: MOVF 25,W 2143 11CE: MOVF 11,W
2146 11AF: MOVWF 2A 2144 11CF: MOVWF 26
2147 11B0: MOVF 24,W 2145 11D0: MOVF 10,W
2148 11B1: MOVWF 29 2146 11D1: MOVWF 25
-   2147 11D2: BCF 0A.4
-   2148 11D3: BSF 0A.3
-   2149 11D4: BCF 03.6
-   2150 11D5: CALL 2AB
-   2151 11D6: BSF 0A.4
-   2152 11D7: BCF 0A.3
-   2153 11D8: MOVF 77,W
-   2154 11D9: BSF 03.6
-   2155 11DA: MOVWF 1C
-   2156 11DB: MOVF 78,W
-   2157 11DC: MOVWF 1D
-   2158 11DD: MOVF 79,W
-   2159 11DE: MOVWF 1E
-   2160 11DF: MOVF 7A,W
2149 11B2: MOVLW 3F 2161 11E0: MOVWF 1F
-   2162 11E1: MOVWF 24
-   2163 11E2: MOVF 1E,W
2150 11B3: MOVWF 30 2164 11E3: MOVWF 23
2151 11B4: MOVLW 02 2165 11E4: MOVF 1D,W
2152 11B5: MOVWF 2F 2166 11E5: MOVWF 22
2153 11B6: MOVLW 33 2167 11E6: MOVF 1C,W
2154 11B7: MOVWF 2E 2168 11E7: MOVWF 21
2155 11B8: MOVLW 83 2169 11E8: MOVF 13,W
2156 11B9: MOVWF 2D 2170 11E9: MOVWF 28
-   2171 11EA: MOVF 12,W
-   2172 11EB: MOVWF 27
-   2173 11EC: MOVF 11,W
-   2174 11ED: MOVWF 26
-   2175 11EE: MOVF 10,W
-   2176 11EF: MOVWF 25
2157 11BA: BCF 0A.4 2177 11F0: BCF 0A.4
2158 11BB: BSF 0A.3 2178 11F1: BSF 0A.3
2159 11BC: BCF 03.5 2179 11F2: BCF 03.6
2160 11BD: CALL 000 2180 11F3: CALL 2AB
2161 11BE: BSF 0A.4 2181 11F4: BSF 0A.4
2162 11BF: BCF 0A.3 2182 11F5: BCF 0A.3
2163 11C0: MOVF 7A,W 2183 11F6: MOVF 77,W
-   2184 11F7: BSF 03.6
2164 11C1: MOVWF 7E 2185 11F8: MOVWF 1C
2165 11C2: MOVF 79,W 2186 11F9: MOVF 78,W
2166 11C3: MOVWF 7D 2187 11FA: MOVWF 1D
-   2188 11FB: MOVF 79,W
-   2189 11FC: MOVWF 1E
2167 11C4: MOVF 78,W 2190 11FD: MOVF 7A,W
-   2191 11FE: MOVWF 1F
-   2192 11FF: BCF 03.1
-   2193 1200: MOVF 1F,W
-   2194 1201: MOVWF 24
-   2195 1202: MOVF 1E,W
-   2196 1203: MOVWF 23
-   2197 1204: MOVF 1D,W
2168 11C5: MOVWF 7C 2198 1205: MOVWF 22
-   2199 1206: MOVF 1C,W
-   2200 1207: MOVWF 21
-   2201 1208: MOVLW 3F
-   2202 1209: MOVWF 28
-   2203 120A: MOVLW 02
-   2204 120B: MOVWF 27
-   2205 120C: MOVLW 33
-   2206 120D: MOVWF 26
-   2207 120E: MOVLW 83
-   2208 120F: MOVWF 25
-   2209 1210: BCF 0A.4
-   2210 1211: BCF 03.6
-   2211 1212: CALL 5DC
-   2212 1213: BSF 0A.4
-   2213 1214: MOVF 7A,W
-   2214 1215: BSF 03.6
-   2215 1216: MOVWF 17
-   2216 1217: MOVF 79,W
-   2217 1218: MOVWF 16
-   2218 1219: MOVF 78,W
-   2219 121A: MOVWF 15
2169 11C6: MOVF 77,W 2220 121B: MOVF 77,W
2170 11C7: MOVWF 7B 2221 121C: MOVWF 14
2171 .................... res = res*y*y + pat[3]; 2222 .................... res = res*y*y + pat[3];
2172 11C8: MOVF 7E,W -  
2173 11C9: BSF 03.5 -  
2174 11CA: MOVWF 2C -  
2175 11CB: MOVF 7D,W -  
2176 11CC: MOVWF 2B -  
2177 11CD: MOVF 7C,W -  
2178 11CE: MOVWF 2A -  
2179 11CF: MOVF 7B,W -  
2180 11D0: MOVWF 29 -  
2181 11D1: MOVF 75,W -  
2182 11D2: MOVWF 30 -  
2183 11D3: MOVF 74,W -  
2184 11D4: MOVWF 2F -  
2185 11D5: MOVF 73,W -  
2186 11D6: MOVWF 2E -  
2187 11D7: MOVF 72,W -  
2188 11D8: MOVWF 2D -  
2189 11D9: BCF 0A.4 -  
2190 11DA: BCF 03.5 -  
2191 11DB: CALL 76E -  
2192 11DC: BSF 0A.4 -  
2193 11DD: MOVF 77,W 2223 121D: MOVF 17,W
2194 11DE: BSF 03.5 -  
2195 11DF: MOVWF 24 -  
2196 11E0: MOVF 78,W -  
2197 11E1: MOVWF 25 -  
2198 11E2: MOVF 79,W -  
2199 11E3: MOVWF 26 -  
2200 11E4: MOVF 7A,W -  
2201 11E5: MOVWF 27 -  
2202 11E6: MOVWF 2C -  
2203 11E7: MOVF 26,W -  
2204 11E8: MOVWF 2B -  
2205 11E9: MOVF 25,W -  
2206 11EA: MOVWF 2A -  
2207 11EB: MOVF 24,W -  
2208 11EC: MOVWF 29 2224 121E: MOVWF 24
2209 11ED: MOVF 75,W -  
2210 11EE: MOVWF 30 -  
2211 11EF: MOVF 74,W 2225 121F: MOVF 16,W
2212 11F0: MOVWF 2F 2226 1220: MOVWF 23
2213 11F1: MOVF 73,W -  
2214 11F2: MOVWF 2E -  
2215 11F3: MOVF 72,W -  
2216 11F4: MOVWF 2D -  
2217 11F5: BCF 0A.4 -  
2218 11F6: BCF 03.5 -  
2219 11F7: CALL 76E -  
2220 11F8: BSF 0A.4 -  
2221 11F9: MOVF 77,W -  
2222 11FA: BSF 03.5 -  
2223 11FB: MOVWF 24 -  
2224 11FC: MOVF 78,W -  
2225 11FD: MOVWF 25 -  
2226 11FE: MOVF 79,W -  
2227 11FF: MOVWF 26 -  
2228 1200: MOVF 7A,W 2227 1221: MOVF 15,W
2229 1201: MOVWF 27 2228 1222: MOVWF 22
2230 1202: BCF 03.1 -  
2231 1203: MOVF 27,W 2229 1223: MOVF 14,W
2232 1204: MOVWF 2C 2230 1224: MOVWF 21
2233 1205: MOVF 26,W 2231 1225: MOVF 13,W
2234 1206: MOVWF 2B 2232 1226: MOVWF 28
2235 1207: MOVF 25,W 2233 1227: MOVF 12,W
2236 1208: MOVWF 2A 2234 1228: MOVWF 27
2237 1209: MOVF 24,W 2235 1229: MOVF 11,W
2238 120A: MOVWF 29 2236 122A: MOVWF 26
2239 120B: MOVLW 33 -  
2240 120C: MOVWF 30 -  
2241 120D: MOVLW 8C -  
2242 120E: MOVWF 2F -  
2243 120F: MOVLW 1E 2237 122B: MOVF 10,W
2244 1210: MOVWF 2E -  
2245 1211: MOVLW 83 -  
2246 1212: MOVWF 2D 2238 122C: MOVWF 25
2247 1213: BCF 0A.4 2239 122D: BCF 0A.4
2248 1214: BSF 0A.3 2240 122E: BSF 0A.3
2249 1215: BCF 03.5 2241 122F: BCF 03.6
2250 1216: CALL 000 2242 1230: CALL 2AB
2251 1217: BSF 0A.4 2243 1231: BSF 0A.4
2252 1218: BCF 0A.3 -  
2253 1219: MOVF 7A,W -  
2254 121A: MOVWF 7E -  
2255 121B: MOVF 79,W -  
2256 121C: MOVWF 7D -  
2257 121D: MOVF 78,W -  
2258 121E: MOVWF 7C -  
2259 121F: MOVF 77,W -  
2260 1220: MOVWF 7B -  
2261 .................... -  
2262 .................... r = qat[0]*y*y + qat[1]; -  
2263 1221: BSF 03.5 -  
2264 1222: CLRF 2C -  
2265 1223: CLRF 2B -  
2266 1224: CLRF 2A -  
2267 1225: MOVLW 7F -  
2268 1226: MOVWF 29 -  
2269 1227: MOVF 75,W -  
2270 1228: MOVWF 30 -  
2271 1229: MOVF 74,W -  
2272 122A: MOVWF 2F -  
2273 122B: MOVF 73,W -  
2274 122C: MOVWF 2E -  
2275 122D: MOVF 72,W -  
2276 122E: MOVWF 2D -  
2277 122F: BCF 0A.4 -  
2278 1230: BCF 03.5 -  
2279 1231: CALL 76E -  
2280 1232: BSF 0A.4 2244 1232: BCF 0A.3
2281 1233: MOVF 77,W 2245 1233: MOVF 77,W
2282 1234: BSF 03.5 2246 1234: BSF 03.6
2283 1235: MOVWF 24 2247 1235: MOVWF 1C
2284 1236: MOVF 78,W 2248 1236: MOVF 78,W
2285 1237: MOVWF 25 2249 1237: MOVWF 1D
2286 1238: MOVF 79,W 2250 1238: MOVF 79,W
2287 1239: MOVWF 26 2251 1239: MOVWF 1E
2288 123A: MOVF 7A,W 2252 123A: MOVF 7A,W
2289 123B: MOVWF 27 2253 123B: MOVWF 1F
2290 123C: MOVWF 2C 2254 123C: MOVWF 24
2291 123D: MOVF 26,W 2255 123D: MOVF 1E,W
2292 123E: MOVWF 2B 2256 123E: MOVWF 23
2293 123F: MOVF 25,W 2257 123F: MOVF 1D,W
2294 1240: MOVWF 2A 2258 1240: MOVWF 22
2295 1241: MOVF 24,W 2259 1241: MOVF 1C,W
2296 1242: MOVWF 29 2260 1242: MOVWF 21
2297 1243: MOVF 75,W 2261 1243: MOVF 13,W
2298 1244: MOVWF 30 2262 1244: MOVWF 28
2299 1245: MOVF 74,W 2263 1245: MOVF 12,W
2300 1246: MOVWF 2F 2264 1246: MOVWF 27
2301 1247: MOVF 73,W 2265 1247: MOVF 11,W
2302 1248: MOVWF 2E 2266 1248: MOVWF 26
2303 1249: MOVF 72,W 2267 1249: MOVF 10,W
2304 124A: MOVWF 2D 2268 124A: MOVWF 25
2305 124B: BCF 0A.4 2269 124B: BCF 0A.4
2306 124C: BCF 03.5 2270 124C: BSF 0A.3
2307 124D: CALL 76E 2271 124D: BCF 03.6
2308 124E: BSF 0A.4 2272 124E: CALL 2AB
2309 124F: MOVF 77,W 2273 124F: BSF 0A.4
2310 1250: BSF 03.5 2274 1250: BCF 0A.3
2311 1251: MOVWF 24 2275 1251: MOVF 77,W
2312 1252: MOVF 78,W 2276 1252: BSF 03.6
2313 1253: MOVWF 25 2277 1253: MOVWF 1C
2314 1254: MOVF 79,W 2278 1254: MOVF 78,W
2315 1255: MOVWF 26 2279 1255: MOVWF 1D
2316 1256: MOVF 7A,W 2280 1256: MOVF 79,W
2317 1257: MOVWF 27 2281 1257: MOVWF 1E
2318 1258: BCF 03.1 2282 1258: MOVF 7A,W
2319 1259: MOVF 27,W 2283 1259: MOVWF 1F
2320 125A: MOVWF 2C 2284 125A: BCF 03.1
2321 125B: MOVF 26,W 2285 125B: MOVF 1F,W
2322 125C: MOVWF 2B 2286 125C: MOVWF 24
2323 125D: MOVF 25,W 2287 125D: MOVF 1E,W
2324 125E: MOVWF 2A 2288 125E: MOVWF 23
2325 125F: MOVF 24,W 2289 125F: MOVF 1D,W
2326 1260: MOVWF 29 2290 1260: MOVWF 22
2327 1261: MOVLW 1B 2291 1261: MOVF 1C,W
2328 1262: MOVWF 30 2292 1262: MOVWF 21
2329 1263: MOVLW E4 2293 1263: MOVLW 33
2330 1264: MOVWF 2F 2294 1264: MOVWF 28
2331 1265: MOVLW 35 2295 1265: MOVLW 8C
2332 1266: MOVWF 2E 2296 1266: MOVWF 27
2333 1267: MOVLW 82 2297 1267: MOVLW 1E
2334 1268: MOVWF 2D 2298 1268: MOVWF 26
2335 1269: BCF 0A.4 2299 1269: MOVLW 83
2336 126A: BSF 0A.3 2300 126A: MOVWF 25
2337 126B: BCF 03.5 2301 126B: BCF 0A.4
2338 126C: CALL 000 2302 126C: BCF 03.6
2339 126D: BSF 0A.4 2303 126D: CALL 5DC
2340 126E: BCF 0A.3 2304 126E: BSF 0A.4
2341 126F: MOVF 7A,W 2305 126F: MOVF 7A,W
2342 1270: BSF 03.5 2306 1270: BSF 03.6
2343 1271: MOVWF 23 2307 1271: MOVWF 17
2344 1272: MOVF 79,W 2308 1272: MOVF 79,W
2345 1273: MOVWF 22 2309 1273: MOVWF 16
2346 1274: MOVF 78,W 2310 1274: MOVF 78,W
2347 1275: MOVWF 21 2311 1275: MOVWF 15
2348 1276: MOVF 77,W 2312 1276: MOVF 77,W
2349 1277: MOVWF 20 2313 1277: MOVWF 14
-   2314 ....................
2350 .................... r = r*y*y + qat[2]; 2315 .................... r = qat[0]*y*y + qat[1];
2351 1278: MOVF 23,W 2316 1278: CLRF 24
2352 1279: MOVWF 2C 2317 1279: CLRF 23
2353 127A: MOVF 22,W 2318 127A: CLRF 22
2354 127B: MOVWF 2B 2319 127B: MOVLW 7F
2355 127C: MOVF 21,W -  
2356 127D: MOVWF 2A 2320 127C: MOVWF 21
2357 127E: MOVF 20,W 2321 127D: MOVF 13,W
2358 127F: MOVWF 29 2322 127E: MOVWF 28
2359 1280: MOVF 75,W 2323 127F: MOVF 12,W
2360 1281: MOVWF 30 2324 1280: MOVWF 27
2361 1282: MOVF 74,W 2325 1281: MOVF 11,W
2362 1283: MOVWF 2F 2326 1282: MOVWF 26
2363 1284: MOVF 73,W 2327 1283: MOVF 10,W
2364 1285: MOVWF 2E 2328 1284: MOVWF 25
2365 1286: MOVF 72,W 2329 1285: BCF 0A.4
2366 1287: MOVWF 2D 2330 1286: BSF 0A.3
2367 1288: BCF 0A.4 2331 1287: BCF 03.6
2368 1289: BCF 03.5 2332 1288: CALL 2AB
2369 128A: CALL 76E 2333 1289: BSF 0A.4
2370 128B: BSF 0A.4 2334 128A: BCF 0A.3
2371 128C: MOVF 77,W 2335 128B: MOVF 77,W
2372 128D: BSF 03.5 2336 128C: BSF 03.6
2373 128E: MOVWF 24 2337 128D: MOVWF 1C
2374 128F: MOVF 78,W 2338 128E: MOVF 78,W
2375 1290: MOVWF 25 2339 128F: MOVWF 1D
2376 1291: MOVF 79,W 2340 1290: MOVF 79,W
2377 1292: MOVWF 26 2341 1291: MOVWF 1E
2378 1293: MOVF 7A,W 2342 1292: MOVF 7A,W
2379 1294: MOVWF 27 2343 1293: MOVWF 1F
2380 1295: MOVWF 2C 2344 1294: MOVWF 24
2381 1296: MOVF 26,W 2345 1295: MOVF 1E,W
2382 1297: MOVWF 2B 2346 1296: MOVWF 23
2383 1298: MOVF 25,W 2347 1297: MOVF 1D,W
2384 1299: MOVWF 2A 2348 1298: MOVWF 22
2385 129A: MOVF 24,W 2349 1299: MOVF 1C,W
2386 129B: MOVWF 29 2350 129A: MOVWF 21
2387 129C: MOVF 75,W 2351 129B: MOVF 13,W
2388 129D: MOVWF 30 2352 129C: MOVWF 28
2389 129E: MOVF 74,W 2353 129D: MOVF 12,W
2390 129F: MOVWF 2F 2354 129E: MOVWF 27
2391 12A0: MOVF 73,W 2355 129F: MOVF 11,W
2392 12A1: MOVWF 2E 2356 12A0: MOVWF 26
2393 12A2: MOVF 72,W 2357 12A1: MOVF 10,W
2394 12A3: MOVWF 2D 2358 12A2: MOVWF 25
2395 12A4: BCF 0A.4 2359 12A3: BCF 0A.4
-   2360 12A4: BSF 0A.3
2396 12A5: BCF 03.5 2361 12A5: BCF 03.6
2397 12A6: CALL 76E 2362 12A6: CALL 2AB
2398 12A7: BSF 0A.4 2363 12A7: BSF 0A.4
-   2364 12A8: BCF 0A.3
2399 12A8: MOVF 77,W 2365 12A9: MOVF 77,W
2400 12A9: BSF 03.5 2366 12AA: BSF 03.6
2401 12AA: MOVWF 24 2367 12AB: MOVWF 1C
2402 12AB: MOVF 78,W 2368 12AC: MOVF 78,W
2403 12AC: MOVWF 25 2369 12AD: MOVWF 1D
2404 12AD: MOVF 79,W 2370 12AE: MOVF 79,W
2405 12AE: MOVWF 26 2371 12AF: MOVWF 1E
2406 12AF: MOVF 7A,W 2372 12B0: MOVF 7A,W
2407 12B0: MOVWF 27 2373 12B1: MOVWF 1F
2408 12B1: BCF 03.1 2374 12B2: BCF 03.1
2409 12B2: MOVF 27,W 2375 12B3: MOVF 1F,W
2410 12B3: MOVWF 2C 2376 12B4: MOVWF 24
2411 12B4: MOVF 26,W 2377 12B5: MOVF 1E,W
2412 12B5: MOVWF 2B 2378 12B6: MOVWF 23
2413 12B6: MOVF 25,W 2379 12B7: MOVF 1D,W
2414 12B7: MOVWF 2A 2380 12B8: MOVWF 22
2415 12B8: MOVF 24,W 2381 12B9: MOVF 1C,W
2416 12B9: MOVWF 29 2382 12BA: MOVWF 21
2417 12BA: MOVLW A4 2383 12BB: MOVLW 1B
2418 12BB: MOVWF 30 2384 12BC: MOVWF 28
2419 12BC: MOVLW DB 2385 12BD: MOVLW E4
2420 12BD: MOVWF 2F 2386 12BE: MOVWF 27
2421 12BE: MOVLW 67 2387 12BF: MOVLW 35
2422 12BF: MOVWF 2E 2388 12C0: MOVWF 26
2423 12C0: MOVLW 83 2389 12C1: MOVLW 82
2424 12C1: MOVWF 2D 2390 12C2: MOVWF 25
2425 12C2: BCF 0A.4 2391 12C3: BCF 0A.4
2426 12C3: BSF 0A.3 -  
2427 12C4: BCF 03.5 2392 12C4: BCF 03.6
2428 12C5: CALL 000 2393 12C5: CALL 5DC
2429 12C6: BSF 0A.4 2394 12C6: BSF 0A.4
2430 12C7: BCF 0A.3 -  
2431 12C8: MOVF 7A,W 2395 12C7: MOVF 7A,W
2432 12C9: BSF 03.5 2396 12C8: BSF 03.6
2433 12CA: MOVWF 23 2397 12C9: MOVWF 1B
2434 12CB: MOVF 79,W 2398 12CA: MOVF 79,W
2435 12CC: MOVWF 22 2399 12CB: MOVWF 1A
2436 12CD: MOVF 78,W 2400 12CC: MOVF 78,W
2437 12CE: MOVWF 21 2401 12CD: MOVWF 19
2438 12CF: MOVF 77,W 2402 12CE: MOVF 77,W
2439 12D0: MOVWF 20 2403 12CF: MOVWF 18
2440 .................... r = r*y*y + qat[3]; 2404 .................... r = r*y*y + qat[2];
2441 12D1: MOVF 23,W 2405 12D0: MOVF 1B,W
2442 12D2: MOVWF 2C 2406 12D1: MOVWF 24
2443 12D3: MOVF 22,W 2407 12D2: MOVF 1A,W
2444 12D4: MOVWF 2B 2408 12D3: MOVWF 23
2445 12D5: MOVF 21,W 2409 12D4: MOVF 19,W
2446 12D6: MOVWF 2A 2410 12D5: MOVWF 22
2447 12D7: MOVF 20,W 2411 12D6: MOVF 18,W
2448 12D8: MOVWF 29 2412 12D7: MOVWF 21
2449 12D9: MOVF 75,W 2413 12D8: MOVF 13,W
2450 12DA: MOVWF 30 2414 12D9: MOVWF 28
2451 12DB: MOVF 74,W 2415 12DA: MOVF 12,W
2452 12DC: MOVWF 2F 2416 12DB: MOVWF 27
2453 12DD: MOVF 73,W 2417 12DC: MOVF 11,W
2454 12DE: MOVWF 2E 2418 12DD: MOVWF 26
2455 12DF: MOVF 72,W 2419 12DE: MOVF 10,W
2456 12E0: MOVWF 2D 2420 12DF: MOVWF 25
2457 12E1: BCF 0A.4 2421 12E0: BCF 0A.4
-   2422 12E1: BSF 0A.3
2458 12E2: BCF 03.5 2423 12E2: BCF 03.6
2459 12E3: CALL 76E 2424 12E3: CALL 2AB
2460 12E4: BSF 0A.4 2425 12E4: BSF 0A.4
2461 12E5: MOVF 77,W 2426 12E5: BCF 0A.3
2462 12E6: BSF 03.5 2427 12E6: MOVF 77,W
2463 12E7: MOVWF 24 2428 12E7: BSF 03.6
2464 12E8: MOVF 78,W 2429 12E8: MOVWF 1C
2465 12E9: MOVWF 25 2430 12E9: MOVF 78,W
2466 12EA: MOVF 79,W 2431 12EA: MOVWF 1D
2467 12EB: MOVWF 26 2432 12EB: MOVF 79,W
2468 12EC: MOVF 7A,W 2433 12EC: MOVWF 1E
2469 12ED: MOVWF 27 2434 12ED: MOVF 7A,W
2470 12EE: MOVWF 2C 2435 12EE: MOVWF 1F
2471 12EF: MOVF 26,W 2436 12EF: MOVWF 24
2472 12F0: MOVWF 2B 2437 12F0: MOVF 1E,W
2473 12F1: MOVF 25,W 2438 12F1: MOVWF 23
2474 12F2: MOVWF 2A 2439 12F2: MOVF 1D,W
2475 12F3: MOVF 24,W 2440 12F3: MOVWF 22
2476 12F4: MOVWF 29 2441 12F4: MOVF 1C,W
2477 12F5: MOVF 75,W 2442 12F5: MOVWF 21
2478 12F6: MOVWF 30 2443 12F6: MOVF 13,W
2479 12F7: MOVF 74,W 2444 12F7: MOVWF 28
2480 12F8: MOVWF 2F 2445 12F8: MOVF 12,W
2481 12F9: MOVF 73,W 2446 12F9: MOVWF 27
2482 12FA: MOVWF 2E 2447 12FA: MOVF 11,W
2483 12FB: MOVF 72,W 2448 12FB: MOVWF 26
2484 12FC: MOVWF 2D 2449 12FC: MOVF 10,W
2485 12FD: BCF 0A.4 2450 12FD: MOVWF 25
2486 12FE: BCF 03.5 2451 12FE: BCF 0A.4
2487 12FF: CALL 76E 2452 12FF: BSF 0A.3
2488 1300: BSF 0A.4 2453 1300: BCF 03.6
2489 1301: MOVF 77,W 2454 1301: CALL 2AB
2490 1302: BSF 03.5 2455 1302: BSF 0A.4
2491 1303: MOVWF 24 2456 1303: BCF 0A.3
2492 1304: MOVF 78,W 2457 1304: MOVF 77,W
2493 1305: MOVWF 25 2458 1305: BSF 03.6
2494 1306: MOVF 79,W 2459 1306: MOVWF 1C
2495 1307: MOVWF 26 2460 1307: MOVF 78,W
2496 1308: MOVF 7A,W 2461 1308: MOVWF 1D
2497 1309: MOVWF 27 2462 1309: MOVF 79,W
2498 130A: BCF 03.1 2463 130A: MOVWF 1E
2499 130B: MOVF 27,W 2464 130B: MOVF 7A,W
2500 130C: MOVWF 2C 2465 130C: MOVWF 1F
2501 130D: MOVF 26,W 2466 130D: BCF 03.1
2502 130E: MOVWF 2B 2467 130E: MOVF 1F,W
2503 130F: MOVF 25,W 2468 130F: MOVWF 24
2504 1310: MOVWF 2A 2469 1310: MOVF 1E,W
2505 1311: MOVF 24,W 2470 1311: MOVWF 23
2506 1312: MOVWF 29 2471 1312: MOVF 1D,W
2507 1313: MOVLW 33 2472 1313: MOVWF 22
2508 1314: MOVWF 30 2473 1314: MOVF 1C,W
2509 1315: MOVLW 8C 2474 1315: MOVWF 21
2510 1316: MOVWF 2F 2475 1316: MOVLW A4
2511 1317: MOVLW 1E 2476 1317: MOVWF 28
2512 1318: MOVWF 2E 2477 1318: MOVLW DB
2513 1319: MOVLW 83 2478 1319: MOVWF 27
2514 131A: MOVWF 2D 2479 131A: MOVLW 67
2515 131B: BCF 0A.4 2480 131B: MOVWF 26
2516 131C: BSF 0A.3 2481 131C: MOVLW 83
2517 131D: BCF 03.5 2482 131D: MOVWF 25
2518 131E: CALL 000 2483 131E: BCF 0A.4
2519 131F: BSF 0A.4 2484 131F: BCF 03.6
2520 1320: BCF 0A.3 2485 1320: CALL 5DC
2521 1321: MOVF 7A,W 2486 1321: BSF 0A.4
2522 1322: BSF 03.5 2487 1322: MOVF 7A,W
2523 1323: MOVWF 23 2488 1323: BSF 03.6
2524 1324: MOVF 79,W 2489 1324: MOVWF 1B
2525 1325: MOVWF 22 2490 1325: MOVF 79,W
2526 1326: MOVF 78,W 2491 1326: MOVWF 1A
2527 1327: MOVWF 21 2492 1327: MOVF 78,W
2528 1328: MOVF 77,W 2493 1328: MOVWF 19
2529 1329: MOVWF 20 2494 1329: MOVF 77,W
-   2495 132A: MOVWF 18
-   2496 .................... r = r*y*y + qat[3];
-   2497 132B: MOVF 1B,W
-   2498 132C: MOVWF 24
-   2499 132D: MOVF 1A,W
-   2500 132E: MOVWF 23
-   2501 132F: MOVF 19,W
-   2502 1330: MOVWF 22
-   2503 1331: MOVF 18,W
-   2504 1332: MOVWF 21
-   2505 1333: MOVF 13,W
-   2506 1334: MOVWF 28
-   2507 1335: MOVF 12,W
-   2508 1336: MOVWF 27
-   2509 1337: MOVF 11,W
-   2510 1338: MOVWF 26
-   2511 1339: MOVF 10,W
-   2512 133A: MOVWF 25
-   2513 133B: BCF 0A.4
-   2514 133C: BSF 0A.3
-   2515 133D: BCF 03.6
-   2516 133E: CALL 2AB
-   2517 133F: BSF 0A.4
-   2518 1340: BCF 0A.3
-   2519 1341: MOVF 77,W
-   2520 1342: BSF 03.6
-   2521 1343: MOVWF 1C
-   2522 1344: MOVF 78,W
-   2523 1345: MOVWF 1D
-   2524 1346: MOVF 79,W
-   2525 1347: MOVWF 1E
-   2526 1348: MOVF 7A,W
-   2527 1349: MOVWF 1F
-   2528 134A: MOVWF 24
-   2529 134B: MOVF 1E,W
-   2530 134C: MOVWF 23
-   2531 134D: MOVF 1D,W
-   2532 134E: MOVWF 22
-   2533 134F: MOVF 1C,W
-   2534 1350: MOVWF 21
-   2535 1351: MOVF 13,W
-   2536 1352: MOVWF 28
-   2537 1353: MOVF 12,W
-   2538 1354: MOVWF 27
-   2539 1355: MOVF 11,W
-   2540 1356: MOVWF 26
-   2541 1357: MOVF 10,W
-   2542 1358: MOVWF 25
-   2543 1359: BCF 0A.4
-   2544 135A: BSF 0A.3
-   2545 135B: BCF 03.6
-   2546 135C: CALL 2AB
-   2547 135D: BSF 0A.4
-   2548 135E: BCF 0A.3
-   2549 135F: MOVF 77,W
-   2550 1360: BSF 03.6
-   2551 1361: MOVWF 1C
-   2552 1362: MOVF 78,W
-   2553 1363: MOVWF 1D
-   2554 1364: MOVF 79,W
-   2555 1365: MOVWF 1E
-   2556 1366: MOVF 7A,W
-   2557 1367: MOVWF 1F
-   2558 1368: BCF 03.1
-   2559 1369: MOVF 1F,W
-   2560 136A: MOVWF 24
-   2561 136B: MOVF 1E,W
-   2562 136C: MOVWF 23
-   2563 136D: MOVF 1D,W
-   2564 136E: MOVWF 22
-   2565 136F: MOVF 1C,W
-   2566 1370: MOVWF 21
-   2567 1371: MOVLW 33
-   2568 1372: MOVWF 28
-   2569 1373: MOVLW 8C
-   2570 1374: MOVWF 27
-   2571 1375: MOVLW 1E
-   2572 1376: MOVWF 26
-   2573 1377: MOVLW 83
-   2574 1378: MOVWF 25
-   2575 1379: BCF 0A.4
-   2576 137A: BCF 03.6
-   2577 137B: CALL 5DC
-   2578 137C: BSF 0A.4
-   2579 137D: MOVF 7A,W
-   2580 137E: BSF 03.6
-   2581 137F: MOVWF 1B
-   2582 1380: MOVF 79,W
-   2583 1381: MOVWF 1A
-   2584 1382: MOVF 78,W
-   2585 1383: MOVWF 19
-   2586 1384: MOVF 77,W
-   2587 1385: MOVWF 18
2530 .................... 2588 ....................
2531 .................... res = y*res/r; 2589 .................... res = y*res/r;
2532 132A: MOVF 75,W 2590 1386: MOVF 13,W
2533 132B: MOVWF 2C 2591 1387: MOVWF 24
2534 132C: MOVF 74,W 2592 1388: MOVF 12,W
2535 132D: MOVWF 2B 2593 1389: MOVWF 23
2536 132E: MOVF 73,W 2594 138A: MOVF 11,W
2537 132F: MOVWF 2A 2595 138B: MOVWF 22
2538 1330: MOVF 72,W 2596 138C: MOVF 10,W
2539 1331: MOVWF 29 2597 138D: MOVWF 21
2540 1332: MOVF 7E,W 2598 138E: MOVF 17,W
2541 1333: MOVWF 30 2599 138F: MOVWF 28
2542 1334: MOVF 7D,W 2600 1390: MOVF 16,W
2543 1335: MOVWF 2F 2601 1391: MOVWF 27
2544 1336: MOVF 7C,W 2602 1392: MOVF 15,W
2545 1337: MOVWF 2E 2603 1393: MOVWF 26
2546 1338: MOVF 7B,W 2604 1394: MOVF 14,W
2547 1339: MOVWF 2D 2605 1395: MOVWF 25
2548 133A: BCF 0A.4 2606 1396: BCF 0A.4
-   2607 1397: BSF 0A.3
2549 133B: BCF 03.5 2608 1398: BCF 03.6
2550 133C: CALL 76E 2609 1399: CALL 2AB
2551 133D: BSF 0A.4 2610 139A: BSF 0A.4
-   2611 139B: BCF 0A.3
2552 133E: MOVF 77,W 2612 139C: MOVF 77,W
2553 133F: BSF 03.5 2613 139D: BSF 03.6
2554 1340: MOVWF 24 2614 139E: MOVWF 1C
2555 1341: MOVF 78,W 2615 139F: MOVF 78,W
2556 1342: MOVWF 25 2616 13A0: MOVWF 1D
2557 1343: MOVF 79,W 2617 13A1: MOVF 79,W
2558 1344: MOVWF 26 2618 13A2: MOVWF 1E
2559 1345: MOVF 7A,W 2619 13A3: MOVF 7A,W
2560 1346: MOVWF 27 2620 13A4: MOVWF 1F
2561 1347: BCF 03.5 2621 13A5: BCF 03.6
2562 1348: CLRF 27 2622 13A6: CLRF 27
2563 1349: BTFSC 0B.7 2623 13A7: BTFSC 0B.7
2564 134A: BSF 27.7 2624 13A8: BSF 27.7
2565 134B: BCF 0B.7 2625 13A9: BCF 0B.7
2566 134C: BSF 03.5 2626 13AA: BSF 03.6
2567 134D: MOVF 27,W 2627 13AB: MOVF 1F,W
2568 134E: MOVWF 45 2628 13AC: MOVWF 59
2569 134F: MOVF 26,W 2629 13AD: MOVF 1E,W
2570 1350: MOVWF 44 2630 13AE: MOVWF 58
2571 1351: MOVF 25,W 2631 13AF: MOVF 1D,W
2572 1352: MOVWF 43 2632 13B0: MOVWF 57
2573 1353: MOVF 24,W 2633 13B1: MOVF 1C,W
2574 1354: MOVWF 42 2634 13B2: MOVWF 56
2575 1355: MOVF 23,W 2635 13B3: MOVF 1B,W
2576 1356: MOVWF 49 2636 13B4: MOVWF 5D
2577 1357: MOVF 22,W 2637 13B5: MOVF 1A,W
2578 1358: MOVWF 48 2638 13B6: MOVWF 5C
2579 1359: MOVF 21,W 2639 13B7: MOVF 19,W
2580 135A: MOVWF 47 2640 13B8: MOVWF 5B
2581 135B: MOVF 20,W 2641 13B9: MOVF 18,W
2582 135C: MOVWF 46 2642 13BA: MOVWF 5A
2583 135D: BCF 0A.4 2643 13BB: BCF 0A.4
2584 135E: BCF 03.5 2644 13BC: BCF 03.6
2585 135F: CALL 057 2645 13BD: CALL 057
2586 1360: BSF 0A.4 2646 13BE: BSF 0A.4
2587 1361: BTFSC 27.7 2647 13BF: BTFSC 27.7
2588 1362: BSF 0B.7 2648 13C0: BSF 0B.7
2589 1363: MOVF 7A,W 2649 13C1: MOVF 7A,W
-   2650 13C2: BSF 03.6
2590 1364: MOVWF 7E 2651 13C3: MOVWF 17
2591 1365: MOVF 79,W 2652 13C4: MOVF 79,W
2592 1366: MOVWF 7D 2653 13C5: MOVWF 16
2593 1367: MOVF 78,W 2654 13C6: MOVF 78,W
2594 1368: MOVWF 7C 2655 13C7: MOVWF 15
2595 1369: MOVF 77,W 2656 13C8: MOVF 77,W
2596 136A: MOVWF 7B 2657 13C9: MOVWF 14
2597 .................... 2658 ....................
2598 .................... 2659 ....................
2599 .................... if (flag) // for |x| > 1 2660 .................... if (flag) // for |x| > 1
-   2661 13CA: BSF 03.5
-   2662 13CB: BCF 03.6
2600 136B: BTFSS 76.1 2663 13CC: BTFSS 6F.1
2601 136C: GOTO 38D 2664 13CD: GOTO 3F0
2602 .................... res = PI_DIV_BY_TWO - res; 2665 .................... res = PI_DIV_BY_TWO - res;
2603 136D: BSF 03.1 2666 13CE: BSF 03.1
2604 136E: MOVLW DB 2667 13CF: MOVLW DB
2605 136F: BSF 03.5 2668 13D0: BCF 03.5
-   2669 13D1: BSF 03.6
2606 1370: MOVWF 2C 2670 13D2: MOVWF 24
2607 1371: MOVLW 0F 2671 13D3: MOVLW 0F
2608 1372: MOVWF 2B 2672 13D4: MOVWF 23
2609 1373: MOVLW 49 2673 13D5: MOVLW 49
2610 1374: MOVWF 2A 2674 13D6: MOVWF 22
2611 1375: MOVLW 7F 2675 13D7: MOVLW 7F
2612 1376: MOVWF 29 2676 13D8: MOVWF 21
2613 1377: MOVF 7E,W 2677 13D9: MOVF 17,W
2614 1378: MOVWF 30 2678 13DA: MOVWF 28
2615 1379: MOVF 7D,W 2679 13DB: MOVF 16,W
2616 137A: MOVWF 2F 2680 13DC: MOVWF 27
2617 137B: MOVF 7C,W 2681 13DD: MOVF 15,W
2618 137C: MOVWF 2E 2682 13DE: MOVWF 26
2619 137D: MOVF 7B,W 2683 13DF: MOVF 14,W
2620 137E: MOVWF 2D 2684 13E0: MOVWF 25
2621 137F: BCF 0A.4 2685 13E1: BCF 0A.4
2622 1380: BSF 0A.3 2686 13E2: BCF 03.6
-   2687 13E3: CALL 5DC
2623 1381: BCF 03.5 2688 13E4: BSF 0A.4
2624 1382: CALL 000 2689 13E5: MOVF 7A,W
2625 1383: BSF 0A.4 2690 13E6: BSF 03.6
2626 1384: BCF 0A.3 2691 13E7: MOVWF 17
2627 1385: MOVF 7A,W 2692 13E8: MOVF 79,W
2628 1386: MOVWF 7E 2693 13E9: MOVWF 16
2629 1387: MOVF 79,W 2694 13EA: MOVF 78,W
2630 1388: MOVWF 7D 2695 13EB: MOVWF 15
2631 1389: MOVF 78,W 2696 13EC: MOVF 77,W
2632 138A: MOVWF 7C 2697 13ED: MOVWF 14
2633 138B: MOVF 77,W 2698 13EE: BSF 03.5
2634 138C: MOVWF 7B 2699 13EF: BCF 03.6
2635 .................... if (s) 2700 .................... if (s)
2636 138D: BTFSS 76.0 2701 13F0: BTFSS 6F.0
2637 138E: GOTO 392 2702 13F1: GOTO 3F9
2638 .................... res = -res; 2703 .................... res = -res;
-   2704 13F2: BCF 03.5
-   2705 13F3: BSF 03.6
2639 138F: MOVF 7C,W 2706 13F4: MOVF 15,W
2640 1390: XORLW 80 2707 13F5: XORLW 80
2641 1391: MOVWF 7C 2708 13F6: MOVWF 15
-   2709 13F7: BSF 03.5
-   2710 13F8: BCF 03.6
2642 .................... 2711 ....................
2643 .................... return(res); 2712 .................... return(res);
-   2713 13F9: BCF 03.5
-   2714 13FA: BSF 03.6
2644 1392: MOVF 7B,W 2715 13FB: MOVF 14,W
2645 1393: MOVWF 77 2716 13FC: MOVWF 77
2646 1394: MOVF 7C,W 2717 13FD: MOVF 15,W
2647 1395: MOVWF 78 2718 13FE: MOVWF 78
2648 1396: MOVF 7D,W 2719 13FF: MOVF 16,W
2649 1397: MOVWF 79 2720 1400: MOVWF 79
2650 1398: MOVF 7E,W 2721 1401: MOVF 17,W
2651 1399: MOVWF 7A 2722 1402: MOVWF 7A
2652 .................... } 2723 .................... }
2653 .................... //Overloaded functions for atan() for PCD 2724 .................... //Overloaded functions for atan() for PCD
2654 .................... // Overloaded function atan() for data type - Float48 2725 .................... // Overloaded function atan() for data type - Float48
2655 .................... #if defined(__PCD__) 2726 .................... #if defined(__PCD__)
2656 .................... float48 atan(float48 x) 2727 .................... float48 atan(float48 x)
Line 3599... Line 3670...
3599 .................... char *strtok(char *s1, char *s2) 3670 .................... char *strtok(char *s1, char *s2)
3600 .................... { 3671 .................... {
3601 .................... char *beg, *end; 3672 .................... char *beg, *end;
3602 .................... static char *save; 3673 .................... static char *save;
3603 * 3674 *
3604 1825: CLRF 29 3675 1563: CLRF 29
3605 1826: CLRF 2A 3676 1564: CLRF 2A
3606 .................... 3677 ....................
3607 .................... beg = (s1)? s1: save; 3678 .................... beg = (s1)? s1: save;
3608 .................... beg += strspn(beg, s2); 3679 .................... beg += strspn(beg, s2);
3609 .................... if (*beg == '\0') 3680 .................... if (*beg == '\0')
3610 .................... { 3681 .................... {
Line 3705... Line 3776...
3705 .................... #include "SHT25.c" 3776 .................... #include "SHT25.c"
3706 .................... void SHT25_soft_reset() 3777 .................... void SHT25_soft_reset()
3707 .................... { 3778 .................... {
3708 .................... i2c_start(); // Start condition 3779 .................... i2c_start(); // Start condition
3709 * 3780 *
3710 0278: BSF 28.4 3781 027A: BSF 28.3
3711 0279: MOVF 28,W 3782 027B: MOVF 28,W
3712 027A: BSF 03.5 3783 027C: BSF 03.5
3713 027B: MOVWF 07 3784 027D: MOVWF 07
3714 027C: NOP 3785 027E: NOP
3715 027D: BCF 03.5 3786 027F: BCF 03.5
3716 027E: BSF 28.3 3787 0280: BSF 28.4
3717 027F: MOVF 28,W 3788 0281: MOVF 28,W
3718 0280: BSF 03.5 3789 0282: BSF 03.5
3719 0281: MOVWF 07 3790 0283: MOVWF 07
3720 0282: NOP 3791 0284: NOP
3721 0283: BCF 03.5 3792 0285: BCF 03.5
3722 0284: BCF 07.4 3793 0286: BCF 07.3
3723 0285: BCF 28.4 3794 0287: BCF 28.3
3724 0286: MOVF 28,W 3795 0288: MOVF 28,W
3725 0287: BSF 03.5 3796 0289: BSF 03.5
3726 0288: MOVWF 07 3797 028A: MOVWF 07
3727 0289: NOP 3798 028B: NOP
3728 028A: BCF 03.5 3799 028C: BCF 03.5
3729 028B: BCF 07.3 3800 028D: BCF 07.4
3730 028C: BCF 28.3 3801 028E: BCF 28.4
3731 028D: MOVF 28,W 3802 028F: MOVF 28,W
3732 028E: BSF 03.5 3803 0290: BSF 03.5
3733 028F: MOVWF 07 3804 0291: MOVWF 07
3734 .................... i2c_write(0x80); // Device address 3805 .................... i2c_write(0x80); // Device address
3735 0290: MOVLW 80 3806 0292: MOVLW 80
-   3807 0293: BCF 03.5
-   3808 0294: BSF 03.6
3736 0291: MOVWF 73 3809 0295: MOVWF 12
3737 0292: BCF 03.5 3810 0296: BCF 03.6
3738 0293: CALL 22E 3811 0297: CALL 22E
3739 .................... i2c_write(0xFE); // Device command 3812 .................... i2c_write(0xFE); // Device command
3740 0294: MOVLW FE 3813 0298: MOVLW FE
-   3814 0299: BSF 03.6
3741 0295: MOVWF 73 3815 029A: MOVWF 12
-   3816 029B: BCF 03.6
3742 0296: CALL 22E 3817 029C: CALL 22E
3743 .................... i2c_stop(); // Stop condition 3818 .................... i2c_stop(); // Stop condition
3744 0297: BCF 28.4 -  
3745 0298: MOVF 28,W -  
3746 0299: BSF 03.5 -  
3747 029A: MOVWF 07 -  
3748 029B: NOP -  
3749 029C: BCF 03.5 -  
3750 029D: BSF 28.3 3819 029D: BCF 28.3
3751 029E: MOVF 28,W 3820 029E: MOVF 28,W
3752 029F: BSF 03.5 3821 029F: BSF 03.5
3753 02A0: MOVWF 07 3822 02A0: MOVWF 07
-   3823 02A1: NOP
3754 02A1: BCF 03.5 3824 02A2: BCF 03.5
-   3825 02A3: BSF 28.4
-   3826 02A4: MOVF 28,W
-   3827 02A5: BSF 03.5
-   3828 02A6: MOVWF 07
-   3829 02A7: BCF 03.5
3755 02A2: BTFSS 07.3 3830 02A8: BTFSS 07.4
3756 02A3: GOTO 2A2 3831 02A9: GOTO 2A8
3757 02A4: NOP 3832 02AA: NOP
3758 02A5: GOTO 2A6 3833 02AB: GOTO 2AC
3759 02A6: NOP 3834 02AC: NOP
3760 02A7: BSF 28.4 3835 02AD: BSF 28.3
3761 02A8: MOVF 28,W 3836 02AE: MOVF 28,W
3762 02A9: BSF 03.5 3837 02AF: BSF 03.5
3763 02AA: MOVWF 07 3838 02B0: MOVWF 07
3764 02AB: NOP 3839 02B1: NOP
3765 .................... } 3840 .................... }
3766 02AC: BCF 03.5 3841 02B2: BCF 03.5
3767 02AD: BSF 0A.3 3842 02B3: BCF 0A.3
3768 02AE: BSF 0A.4 3843 02B4: BSF 0A.4
3769 02AF: GOTO 092 (RETURN) 3844 02B5: GOTO 5B0 (RETURN)
3770 .................... 3845 ....................
3771 .................... unsigned int8 SHT25_setup(unsigned int8 setup_reg ) // writes to status register and returns its value 3846 .................... unsigned int8 SHT25_setup(unsigned int8 setup_reg ) // writes to status register and returns its value
3772 .................... { 3847 .................... {
3773 .................... unsigned int8 reg; 3848 .................... unsigned int8 reg;
3774 .................... 3849 ....................
3775 .................... i2c_start(); // Start condition 3850 .................... i2c_start(); // Start condition
3776 * 3851 *
3777 0309: BSF 28.4 -  
3778 030A: MOVF 28,W -  
3779 030B: BSF 03.5 -  
3780 030C: MOVWF 07 -  
3781 030D: NOP -  
3782 030E: BCF 03.5 -  
3783 030F: BSF 28.3 3852 0317: BSF 28.3
3784 0310: MOVF 28,W -  
3785 0311: BSF 03.5 -  
3786 0312: MOVWF 07 -  
3787 0313: NOP -  
3788 0314: BCF 03.5 -  
3789 0315: BCF 07.4 -  
3790 0316: BCF 28.4 -  
3791 0317: MOVF 28,W 3853 0318: MOVF 28,W
3792 0318: BSF 03.5 3854 0319: BSF 03.5
3793 0319: MOVWF 07 3855 031A: MOVWF 07
3794 031A: NOP 3856 031B: NOP
3795 031B: BCF 03.5 3857 031C: BCF 03.5
3796 031C: BCF 07.3 -  
3797 031D: BCF 28.3 3858 031D: BSF 28.4
3798 031E: MOVF 28,W 3859 031E: MOVF 28,W
3799 031F: BSF 03.5 3860 031F: BSF 03.5
3800 0320: MOVWF 07 3861 0320: MOVWF 07
-   3862 0321: NOP
-   3863 0322: BCF 03.5
-   3864 0323: BCF 07.3
-   3865 0324: BCF 28.3
-   3866 0325: MOVF 28,W
-   3867 0326: BSF 03.5
-   3868 0327: MOVWF 07
-   3869 0328: NOP
-   3870 0329: BCF 03.5
-   3871 032A: BCF 07.4
-   3872 032B: BCF 28.4
-   3873 032C: MOVF 28,W
-   3874 032D: BSF 03.5
-   3875 032E: MOVWF 07
3801 .................... i2c_write(SHT25_ADDR); // Device address 3876 .................... i2c_write(SHT25_ADDR); // Device address
3802 0321: MOVLW 80 3877 032F: MOVLW 80
-   3878 0330: BCF 03.5
-   3879 0331: BSF 03.6
3803 0322: MOVWF 73 3880 0332: MOVWF 12
3804 0323: BCF 03.5 3881 0333: BCF 03.6
3805 0324: CALL 22E 3882 0334: CALL 22E
3806 .................... i2c_write(0xE7); // Device command 3883 .................... i2c_write(0xE7); // Device command
3807 0325: MOVLW E7 3884 0335: MOVLW E7
-   3885 0336: BSF 03.6
3808 0326: MOVWF 73 3886 0337: MOVWF 12
-   3887 0338: BCF 03.6
3809 0327: CALL 22E 3888 0339: CALL 22E
3810 .................... 3889 ....................
3811 .................... i2c_start(); // Start condition 3890 .................... i2c_start(); // Start condition
3812 0328: BSF 28.4 3891 033A: BSF 28.3
3813 0329: MOVF 28,W 3892 033B: MOVF 28,W
3814 032A: BSF 03.5 3893 033C: BSF 03.5
3815 032B: MOVWF 07 3894 033D: MOVWF 07
3816 032C: NOP 3895 033E: NOP
3817 032D: BCF 03.5 3896 033F: BCF 03.5
3818 032E: BSF 28.3 3897 0340: BSF 28.4
3819 032F: MOVF 28,W 3898 0341: MOVF 28,W
3820 0330: BSF 03.5 3899 0342: BSF 03.5
3821 0331: MOVWF 07 3900 0343: MOVWF 07
3822 0332: NOP 3901 0344: NOP
3823 0333: BCF 03.5 3902 0345: BCF 03.5
3824 0334: BTFSS 07.3 3903 0346: BTFSS 07.4
3825 0335: GOTO 334 3904 0347: GOTO 346
3826 0336: BCF 07.4 3905 0348: BCF 07.3
3827 0337: BCF 28.4 3906 0349: BCF 28.3
3828 0338: MOVF 28,W 3907 034A: MOVF 28,W
3829 0339: BSF 03.5 3908 034B: BSF 03.5
3830 033A: MOVWF 07 3909 034C: MOVWF 07
3831 033B: NOP 3910 034D: NOP
3832 033C: BCF 03.5 3911 034E: BCF 03.5
3833 033D: BCF 07.3 3912 034F: BCF 07.4
3834 033E: BCF 28.3 3913 0350: BCF 28.4
3835 033F: MOVF 28,W 3914 0351: MOVF 28,W
3836 0340: BSF 03.5 3915 0352: BSF 03.5
3837 0341: MOVWF 07 3916 0353: MOVWF 07
3838 .................... i2c_write(SHT25_ADDR+1); // Device address 3917 .................... i2c_write(SHT25_ADDR+1); // Device address
3839 0342: MOVLW 81 3918 0354: MOVLW 81
-   3919 0355: BCF 03.5
-   3920 0356: BSF 03.6
3840 0343: MOVWF 73 3921 0357: MOVWF 12
3841 0344: BCF 03.5 3922 0358: BCF 03.6
3842 0345: CALL 22E 3923 0359: CALL 22E
3843 .................... reg=i2c_read(0); // Read status actual status register 3924 .................... reg=i2c_read(0); // Read status actual status register
3844 0346: CLRF 77 3925 035A: CLRF 77
3845 0347: CALL 2B0 3926 035B: CALL 2B6
3846 0348: MOVF 78,W 3927 035C: MOVF 78,W
-   3928 035D: BSF 03.5
3847 0349: MOVWF 61 3929 035E: MOVWF 5E
3848 .................... 3930 ....................
3849 .................... reg = (reg & 0x3A) | setup_reg; 3931 .................... reg = (reg & 0x3A) | setup_reg;
3850 034A: MOVF 61,W 3932 035F: MOVF 5E,W
3851 034B: ANDLW 3A 3933 0360: ANDLW 3A
3852 034C: IORWF 60,W 3934 0361: IORWF 5D,W
3853 034D: MOVWF 61 3935 0362: MOVWF 5E
3854 .................... 3936 ....................
3855 .................... i2c_start(); // Start condition 3937 .................... i2c_start(); // Start condition
3856 034E: BSF 28.4 -  
3857 034F: MOVF 28,W -  
3858 0350: BSF 03.5 -  
3859 0351: MOVWF 07 -  
3860 0352: NOP -  
3861 0353: BCF 03.5 3938 0363: BCF 03.5
3862 0354: BSF 28.3 -  
3863 0355: MOVF 28,W -  
3864 0356: BSF 03.5 -  
3865 0357: MOVWF 07 -  
3866 0358: NOP -  
3867 0359: BCF 03.5 -  
3868 035A: BTFSS 07.3 -  
3869 035B: GOTO 35A -  
3870 035C: BCF 07.4 -  
3871 035D: BCF 28.4 -  
3872 035E: MOVF 28,W -  
3873 035F: BSF 03.5 -  
3874 0360: MOVWF 07 -  
3875 0361: NOP -  
3876 0362: BCF 03.5 -  
3877 0363: BCF 07.3 -  
3878 0364: BCF 28.3 3939 0364: BSF 28.3
3879 0365: MOVF 28,W 3940 0365: MOVF 28,W
3880 0366: BSF 03.5 3941 0366: BSF 03.5
3881 0367: MOVWF 07 3942 0367: MOVWF 07
-   3943 0368: NOP
-   3944 0369: BCF 03.5
-   3945 036A: BSF 28.4
-   3946 036B: MOVF 28,W
-   3947 036C: BSF 03.5
-   3948 036D: MOVWF 07
-   3949 036E: NOP
-   3950 036F: BCF 03.5
-   3951 0370: BTFSS 07.4
-   3952 0371: GOTO 370
-   3953 0372: BCF 07.3
-   3954 0373: BCF 28.3
-   3955 0374: MOVF 28,W
-   3956 0375: BSF 03.5
-   3957 0376: MOVWF 07
-   3958 0377: NOP
-   3959 0378: BCF 03.5
-   3960 0379: BCF 07.4
-   3961 037A: BCF 28.4
-   3962 037B: MOVF 28,W
-   3963 037C: BSF 03.5
-   3964 037D: MOVWF 07
3882 .................... i2c_write(SHT25_ADDR); // Device address 3965 .................... i2c_write(SHT25_ADDR); // Device address
3883 0368: MOVLW 80 3966 037E: MOVLW 80
-   3967 037F: BCF 03.5
-   3968 0380: BSF 03.6
3884 0369: MOVWF 73 3969 0381: MOVWF 12
3885 036A: BCF 03.5 3970 0382: BCF 03.6
3886 036B: CALL 22E 3971 0383: CALL 22E
3887 .................... i2c_write(0xE6); // Write to status register 3972 .................... i2c_write(0xE6); // Write to status register
3888 036C: MOVLW E6 3973 0384: MOVLW E6
-   3974 0385: BSF 03.6
3889 036D: MOVWF 73 3975 0386: MOVWF 12
-   3976 0387: BCF 03.6
3890 036E: CALL 22E 3977 0388: CALL 22E
3891 .................... i2c_write(reg); // Device command 3978 .................... i2c_write(reg); // Device command
-   3979 0389: BSF 03.5
3892 036F: MOVF 61,W 3980 038A: MOVF 5E,W
-   3981 038B: BCF 03.5
-   3982 038C: BSF 03.6
3893 0370: MOVWF 73 3983 038D: MOVWF 12
-   3984 038E: BCF 03.6
3894 0371: CALL 22E 3985 038F: CALL 22E
3895 .................... i2c_stop(); // Stop condition 3986 .................... i2c_stop(); // Stop condition
3896 0372: BCF 28.4 3987 0390: BCF 28.3
3897 0373: MOVF 28,W 3988 0391: MOVF 28,W
3898 0374: BSF 03.5 3989 0392: BSF 03.5
3899 0375: MOVWF 07 3990 0393: MOVWF 07
3900 0376: NOP 3991 0394: NOP
3901 0377: BCF 03.5 3992 0395: BCF 03.5
3902 0378: BSF 28.3 3993 0396: BSF 28.4
3903 0379: MOVF 28,W 3994 0397: MOVF 28,W
3904 037A: BSF 03.5 3995 0398: BSF 03.5
3905 037B: MOVWF 07 3996 0399: MOVWF 07
3906 037C: BCF 03.5 3997 039A: BCF 03.5
3907 037D: BTFSS 07.3 3998 039B: BTFSS 07.4
3908 037E: GOTO 37D 3999 039C: GOTO 39B
3909 037F: NOP 4000 039D: NOP
3910 0380: GOTO 381 4001 039E: GOTO 39F
3911 0381: NOP 4002 039F: NOP
3912 0382: BSF 28.4 4003 03A0: BSF 28.3
3913 0383: MOVF 28,W 4004 03A1: MOVF 28,W
3914 0384: BSF 03.5 4005 03A2: BSF 03.5
3915 0385: MOVWF 07 4006 03A3: MOVWF 07
3916 0386: NOP 4007 03A4: NOP
3917 .................... 4008 ....................
3918 .................... delay_ms(10); 4009 .................... delay_ms(10);
3919 0387: MOVLW 0A 4010 03A5: MOVLW 0A
3920 0388: BCF 03.5 4011 03A6: MOVWF 62
3921 0389: MOVWF 65 4012 03A7: BCF 03.5
3922 038A: CALL 2F5 4013 03A8: CALL 303
3923 .................... 4014 ....................
3924 .................... i2c_start(); // Start condition 4015 .................... i2c_start(); // Start condition
3925 038B: BSF 28.4 4016 03A9: BSF 28.3
3926 038C: MOVF 28,W 4017 03AA: MOVF 28,W
3927 038D: BSF 03.5 4018 03AB: BSF 03.5
3928 038E: MOVWF 07 4019 03AC: MOVWF 07
3929 038F: NOP 4020 03AD: NOP
3930 0390: BCF 03.5 4021 03AE: BCF 03.5
3931 0391: BSF 28.3 4022 03AF: BSF 28.4
3932 0392: MOVF 28,W 4023 03B0: MOVF 28,W
3933 0393: BSF 03.5 4024 03B1: BSF 03.5
3934 0394: MOVWF 07 4025 03B2: MOVWF 07
3935 0395: NOP 4026 03B3: NOP
3936 0396: BCF 03.5 4027 03B4: BCF 03.5
3937 0397: BCF 07.4 4028 03B5: BCF 07.3
3938 0398: BCF 28.4 4029 03B6: BCF 28.3
3939 0399: MOVF 28,W 4030 03B7: MOVF 28,W
3940 039A: BSF 03.5 4031 03B8: BSF 03.5
3941 039B: MOVWF 07 4032 03B9: MOVWF 07
3942 039C: NOP 4033 03BA: NOP
3943 039D: BCF 03.5 4034 03BB: BCF 03.5
3944 039E: BCF 07.3 4035 03BC: BCF 07.4
3945 039F: BCF 28.3 4036 03BD: BCF 28.4
3946 03A0: MOVF 28,W 4037 03BE: MOVF 28,W
3947 03A1: BSF 03.5 4038 03BF: BSF 03.5
3948 03A2: MOVWF 07 4039 03C0: MOVWF 07
3949 .................... i2c_write(SHT25_ADDR); // Device address 4040 .................... i2c_write(SHT25_ADDR); // Device address
3950 03A3: MOVLW 80 4041 03C1: MOVLW 80
-   4042 03C2: BCF 03.5
-   4043 03C3: BSF 03.6
3951 03A4: MOVWF 73 4044 03C4: MOVWF 12
3952 03A5: BCF 03.5 4045 03C5: BCF 03.6
3953 03A6: CALL 22E 4046 03C6: CALL 22E
3954 .................... i2c_write(0xE7); // Device command 4047 .................... i2c_write(0xE7); // Device command
3955 03A7: MOVLW E7 4048 03C7: MOVLW E7
-   4049 03C8: BSF 03.6
3956 03A8: MOVWF 73 4050 03C9: MOVWF 12
-   4051 03CA: BCF 03.6
3957 03A9: CALL 22E 4052 03CB: CALL 22E
3958 .................... 4053 ....................
3959 .................... i2c_start(); // Start condition 4054 .................... i2c_start(); // Start condition
3960 03AA: BSF 28.4 4055 03CC: BSF 28.3
3961 03AB: MOVF 28,W 4056 03CD: MOVF 28,W
3962 03AC: BSF 03.5 4057 03CE: BSF 03.5
3963 03AD: MOVWF 07 4058 03CF: MOVWF 07
3964 03AE: NOP 4059 03D0: NOP
3965 03AF: BCF 03.5 4060 03D1: BCF 03.5
3966 03B0: BSF 28.3 4061 03D2: BSF 28.4
3967 03B1: MOVF 28,W 4062 03D3: MOVF 28,W
3968 03B2: BSF 03.5 4063 03D4: BSF 03.5
3969 03B3: MOVWF 07 4064 03D5: MOVWF 07
3970 03B4: NOP 4065 03D6: NOP
3971 03B5: BCF 03.5 4066 03D7: BCF 03.5
3972 03B6: BTFSS 07.3 4067 03D8: BTFSS 07.4
3973 03B7: GOTO 3B6 4068 03D9: GOTO 3D8
3974 03B8: BCF 07.4 4069 03DA: BCF 07.3
3975 03B9: BCF 28.4 4070 03DB: BCF 28.3
3976 03BA: MOVF 28,W 4071 03DC: MOVF 28,W
3977 03BB: BSF 03.5 4072 03DD: BSF 03.5
3978 03BC: MOVWF 07 4073 03DE: MOVWF 07
3979 03BD: NOP 4074 03DF: NOP
3980 03BE: BCF 03.5 4075 03E0: BCF 03.5
3981 03BF: BCF 07.3 4076 03E1: BCF 07.4
3982 03C0: BCF 28.3 4077 03E2: BCF 28.4
3983 03C1: MOVF 28,W 4078 03E3: MOVF 28,W
3984 03C2: BSF 03.5 4079 03E4: BSF 03.5
3985 03C3: MOVWF 07 4080 03E5: MOVWF 07
3986 .................... i2c_write(SHT25_ADDR+1); // Device address 4081 .................... i2c_write(SHT25_ADDR+1); // Device address
3987 03C4: MOVLW 81 4082 03E6: MOVLW 81
-   4083 03E7: BCF 03.5
-   4084 03E8: BSF 03.6
3988 03C5: MOVWF 73 4085 03E9: MOVWF 12
3989 03C6: BCF 03.5 4086 03EA: BCF 03.6
3990 03C7: CALL 22E 4087 03EB: CALL 22E
3991 .................... reg=i2c_read(0); // Read status actual status register 4088 .................... reg=i2c_read(0); // Read status actual status register
3992 03C8: CLRF 77 4089 03EC: CLRF 77
3993 03C9: CALL 2B0 4090 03ED: CALL 2B6
3994 03CA: MOVF 78,W 4091 03EE: MOVF 78,W
-   4092 03EF: BSF 03.5
3995 03CB: MOVWF 61 4093 03F0: MOVWF 5E
3996 .................... 4094 ....................
3997 .................... return (reg); 4095 .................... return (reg);
3998 03CC: MOVF 61,W 4096 03F1: MOVF 5E,W
3999 03CD: MOVWF 78 4097 03F2: MOVWF 78
4000 .................... } 4098 .................... }
-   4099 03F3: BCF 03.5
4001 03CE: BSF 0A.3 4100 03F4: BCF 0A.3
4002 03CF: BSF 0A.4 4101 03F5: BSF 0A.4
4003 03D0: GOTO 09A (RETURN) 4102 03F6: GOTO 5B8 (RETURN)
4004 .................... 4103 ....................
4005 .................... 4104 ....................
4006 .................... float SHT25_get_temp() 4105 .................... float SHT25_get_temp()
4007 .................... { 4106 .................... {
4008 .................... unsigned int8 MSB, LSB, Check; 4107 .................... unsigned int8 MSB, LSB, Check;
4009 .................... unsigned int16 data; 4108 .................... unsigned int16 data;
4010 .................... 4109 ....................
4011 .................... i2c_start(); 4110 .................... i2c_start();
4012 * 4111 *
4013 0B85: BSF 28.4 4112 0B22: BSF 28.3
4014 0B86: MOVF 28,W 4113 0B23: MOVF 28,W
4015 0B87: BSF 03.5 4114 0B24: BSF 03.5
4016 0B88: MOVWF 07 4115 0B25: MOVWF 07
4017 0B89: NOP 4116 0B26: NOP
4018 0B8A: BCF 03.5 4117 0B27: BCF 03.5
4019 0B8B: BSF 28.3 4118 0B28: BSF 28.4
4020 0B8C: MOVF 28,W 4119 0B29: MOVF 28,W
4021 0B8D: BSF 03.5 4120 0B2A: BSF 03.5
4022 0B8E: MOVWF 07 4121 0B2B: MOVWF 07
4023 0B8F: NOP 4122 0B2C: NOP
4024 0B90: BCF 03.5 4123 0B2D: BCF 03.5
4025 0B91: BTFSS 07.3 4124 0B2E: BTFSS 07.4
4026 0B92: GOTO 391 4125 0B2F: GOTO 32E
4027 0B93: BCF 07.4 4126 0B30: BCF 07.3
4028 0B94: BCF 28.4 4127 0B31: BCF 28.3
4029 0B95: MOVF 28,W 4128 0B32: MOVF 28,W
4030 0B96: BSF 03.5 4129 0B33: BSF 03.5
4031 0B97: MOVWF 07 4130 0B34: MOVWF 07
4032 0B98: NOP 4131 0B35: NOP
4033 0B99: BCF 03.5 4132 0B36: BCF 03.5
4034 0B9A: BCF 07.3 4133 0B37: BCF 07.4
4035 0B9B: BCF 28.3 4134 0B38: BCF 28.4
4036 0B9C: MOVF 28,W 4135 0B39: MOVF 28,W
4037 0B9D: BSF 03.5 4136 0B3A: BSF 03.5
4038 0B9E: MOVWF 07 4137 0B3B: MOVWF 07
4039 .................... I2C_Write(SHT25_ADDR); 4138 .................... I2C_Write(SHT25_ADDR);
4040 0B9F: MOVLW 80 4139 0B3C: MOVLW 80
-   4140 0B3D: BCF 03.5
-   4141 0B3E: BSF 03.6
4041 0BA0: MOVWF 73 4142 0B3F: MOVWF 12
4042 0BA1: BCF 0A.3 4143 0B40: BCF 0A.3
4043 0BA2: BCF 03.5 4144 0B41: BCF 03.6
4044 0BA3: CALL 22E 4145 0B42: CALL 22E
4045 0BA4: BSF 0A.3 4146 0B43: BSF 0A.3
4046 .................... I2C_write(0xE3); 4147 .................... I2C_write(0xE3);
4047 0BA5: MOVLW E3 4148 0B44: MOVLW E3
-   4149 0B45: BSF 03.6
4048 0BA6: MOVWF 73 4150 0B46: MOVWF 12
4049 0BA7: BCF 0A.3 4151 0B47: BCF 0A.3
-   4152 0B48: BCF 03.6
4050 0BA8: CALL 22E 4153 0B49: CALL 22E
4051 0BA9: BSF 0A.3 4154 0B4A: BSF 0A.3
4052 .................... i2c_stop(); 4155 .................... i2c_stop();
4053 0BAA: BCF 28.4 4156 0B4B: BCF 28.3
4054 0BAB: MOVF 28,W 4157 0B4C: MOVF 28,W
4055 0BAC: BSF 03.5 4158 0B4D: BSF 03.5
4056 0BAD: MOVWF 07 4159 0B4E: MOVWF 07
4057 0BAE: NOP 4160 0B4F: NOP
4058 0BAF: BCF 03.5 4161 0B50: BCF 03.5
4059 0BB0: BSF 28.3 4162 0B51: BSF 28.4
4060 0BB1: MOVF 28,W 4163 0B52: MOVF 28,W
4061 0BB2: BSF 03.5 4164 0B53: BSF 03.5
4062 0BB3: MOVWF 07 4165 0B54: MOVWF 07
4063 0BB4: BCF 03.5 4166 0B55: BCF 03.5
4064 0BB5: BTFSS 07.3 4167 0B56: BTFSS 07.4
4065 0BB6: GOTO 3B5 4168 0B57: GOTO 356
4066 0BB7: NOP 4169 0B58: NOP
4067 0BB8: GOTO 3B9 4170 0B59: GOTO 35A
4068 0BB9: NOP 4171 0B5A: NOP
4069 0BBA: BSF 28.4 4172 0B5B: BSF 28.3
4070 0BBB: MOVF 28,W 4173 0B5C: MOVF 28,W
4071 0BBC: BSF 03.5 4174 0B5D: BSF 03.5
4072 0BBD: MOVWF 07 4175 0B5E: MOVWF 07
4073 0BBE: NOP 4176 0B5F: NOP
4074 .................... 4177 ....................
4075 .................... delay_ms(100); 4178 .................... delay_ms(100);
4076 0BBF: MOVLW 64 4179 0B60: MOVLW 64
4077 0BC0: BCF 03.5 4180 0B61: MOVWF 62
4078 0BC1: MOVWF 65 4181 0B62: BCF 0A.3
4079 0BC2: BCF 0A.3 4182 0B63: BCF 03.5
4080 0BC3: CALL 2F5 4183 0B64: CALL 303
4081 0BC4: BSF 0A.3 4184 0B65: BSF 0A.3
4082 .................... 4185 ....................
4083 .................... i2c_start(); 4186 .................... i2c_start();
4084 0BC5: BSF 28.4 4187 0B66: BSF 28.3
4085 0BC6: MOVF 28,W 4188 0B67: MOVF 28,W
4086 0BC7: BSF 03.5 4189 0B68: BSF 03.5
4087 0BC8: MOVWF 07 4190 0B69: MOVWF 07
4088 0BC9: NOP 4191 0B6A: NOP
4089 0BCA: BCF 03.5 4192 0B6B: BCF 03.5
4090 0BCB: BSF 28.3 4193 0B6C: BSF 28.4
4091 0BCC: MOVF 28,W 4194 0B6D: MOVF 28,W
4092 0BCD: BSF 03.5 4195 0B6E: BSF 03.5
4093 0BCE: MOVWF 07 4196 0B6F: MOVWF 07
4094 0BCF: NOP 4197 0B70: NOP
4095 0BD0: BCF 03.5 4198 0B71: BCF 03.5
4096 0BD1: BCF 07.4 4199 0B72: BCF 07.3
4097 0BD2: BCF 28.4 4200 0B73: BCF 28.3
4098 0BD3: MOVF 28,W 4201 0B74: MOVF 28,W
4099 0BD4: BSF 03.5 4202 0B75: BSF 03.5
4100 0BD5: MOVWF 07 4203 0B76: MOVWF 07
4101 0BD6: NOP 4204 0B77: NOP
4102 0BD7: BCF 03.5 4205 0B78: BCF 03.5
4103 0BD8: BCF 07.3 4206 0B79: BCF 07.4
4104 0BD9: BCF 28.3 4207 0B7A: BCF 28.4
4105 0BDA: MOVF 28,W 4208 0B7B: MOVF 28,W
4106 0BDB: BSF 03.5 4209 0B7C: BSF 03.5
4107 0BDC: MOVWF 07 4210 0B7D: MOVWF 07
4108 .................... I2C_Write(SHT25_ADDR+1); 4211 .................... I2C_Write(SHT25_ADDR+1);
4109 0BDD: MOVLW 81 4212 0B7E: MOVLW 81
-   4213 0B7F: BCF 03.5
-   4214 0B80: BSF 03.6
4110 0BDE: MOVWF 73 4215 0B81: MOVWF 12
4111 0BDF: BCF 0A.3 4216 0B82: BCF 0A.3
4112 0BE0: BCF 03.5 4217 0B83: BCF 03.6
4113 0BE1: CALL 22E 4218 0B84: CALL 22E
4114 0BE2: BSF 0A.3 4219 0B85: BSF 0A.3
4115 .................... MSB=i2c_read(1); 4220 .................... MSB=i2c_read(1);
4116 0BE3: MOVLW 01 4221 0B86: MOVLW 01
4117 0BE4: MOVWF 77 4222 0B87: MOVWF 77
4118 0BE5: BCF 0A.3 4223 0B88: BCF 0A.3
4119 0BE6: CALL 2B0 4224 0B89: CALL 2B6
4120 0BE7: BSF 0A.3 4225 0B8A: BSF 0A.3
4121 0BE8: MOVF 78,W 4226 0B8B: MOVF 78,W
-   4227 0B8C: BSF 03.5
4122 0BE9: MOVWF 60 4228 0B8D: MOVWF 5D
4123 .................... LSB=i2c_read(1); 4229 .................... LSB=i2c_read(1);
4124 0BEA: MOVLW 01 4230 0B8E: MOVLW 01
4125 0BEB: MOVWF 77 4231 0B8F: MOVWF 77
4126 0BEC: BCF 0A.3 4232 0B90: BCF 0A.3
-   4233 0B91: BCF 03.5
4127 0BED: CALL 2B0 4234 0B92: CALL 2B6
4128 0BEE: BSF 0A.3 4235 0B93: BSF 0A.3
4129 0BEF: MOVF 78,W 4236 0B94: MOVF 78,W
-   4237 0B95: BSF 03.5
4130 0BF0: MOVWF 61 4238 0B96: MOVWF 5E
4131 .................... Check=i2c_read(0); 4239 .................... Check=i2c_read(0);
4132 0BF1: CLRF 77 4240 0B97: CLRF 77
4133 0BF2: BCF 0A.3 4241 0B98: BCF 0A.3
-   4242 0B99: BCF 03.5
4134 0BF3: CALL 2B0 4243 0B9A: CALL 2B6
4135 0BF4: BSF 0A.3 4244 0B9B: BSF 0A.3
4136 0BF5: MOVF 78,W 4245 0B9C: MOVF 78,W
-   4246 0B9D: BSF 03.5
4137 0BF6: MOVWF 62 4247 0B9E: MOVWF 5F
4138 .................... i2c_stop(); 4248 .................... i2c_stop();
-   4249 0B9F: BCF 03.5
4139 0BF7: BCF 28.4 4250 0BA0: BCF 28.3
4140 0BF8: MOVF 28,W 4251 0BA1: MOVF 28,W
4141 0BF9: BSF 03.5 4252 0BA2: BSF 03.5
4142 0BFA: MOVWF 07 4253 0BA3: MOVWF 07
4143 0BFB: NOP 4254 0BA4: NOP
4144 0BFC: BCF 03.5 4255 0BA5: BCF 03.5
4145 0BFD: BSF 28.3 4256 0BA6: BSF 28.4
4146 0BFE: MOVF 28,W 4257 0BA7: MOVF 28,W
4147 0BFF: BSF 03.5 4258 0BA8: BSF 03.5
4148 0C00: MOVWF 07 4259 0BA9: MOVWF 07
4149 0C01: BCF 03.5 4260 0BAA: BCF 03.5
4150 0C02: BTFSS 07.3 4261 0BAB: BTFSS 07.4
4151 0C03: GOTO 402 4262 0BAC: GOTO 3AB
4152 0C04: NOP 4263 0BAD: NOP
4153 0C05: GOTO 406 4264 0BAE: GOTO 3AF
4154 0C06: NOP 4265 0BAF: NOP
4155 0C07: BSF 28.4 4266 0BB0: BSF 28.3
4156 0C08: MOVF 28,W 4267 0BB1: MOVF 28,W
4157 0C09: BSF 03.5 4268 0BB2: BSF 03.5
4158 0C0A: MOVWF 07 4269 0BB3: MOVWF 07
4159 0C0B: NOP 4270 0BB4: NOP
4160 .................... 4271 ....................
4161 .................... LSB = LSB >> 2; // trow out status bits 4272 .................... LSB = LSB >> 2; // trow out status bits
4162 0C0C: BCF 03.5 -  
4163 0C0D: RRF 61,F 4273 0BB5: RRF 5E,F
4164 0C0E: RRF 61,F 4274 0BB6: RRF 5E,F
4165 0C0F: MOVLW 3F 4275 0BB7: MOVLW 3F
4166 0C10: ANDWF 61,F 4276 0BB8: ANDWF 5E,F
4167 .................... 4277 ....................
4168 .................... data = (((unsigned int16) MSB << 8) + (LSB << 4)); 4278 .................... data = (((unsigned int16) MSB << 8) + (LSB << 4));
4169 0C11: CLRF 66 4279 0BB9: CLRF 63
4170 0C12: MOVF 60,W 4280 0BBA: MOVF 5D,W
4171 0C13: MOVWF 65 4281 0BBB: MOVWF 62
4172 0C14: MOVWF 66 4282 0BBC: MOVWF 63
4173 0C15: CLRF 65 4283 0BBD: CLRF 62
4174 0C16: SWAPF 61,W 4284 0BBE: SWAPF 5E,W
4175 0C17: MOVWF 77 4285 0BBF: MOVWF 77
4176 0C18: MOVLW F0 4286 0BC0: MOVLW F0
4177 0C19: ANDWF 77,F 4287 0BC1: ANDWF 77,F
4178 0C1A: MOVF 77,W 4288 0BC2: MOVF 77,W
4179 0C1B: ADDWF 65,W 4289 0BC3: ADDWF 62,W
4180 0C1C: MOVWF 63 4290 0BC4: MOVWF 60
4181 0C1D: MOVF 66,W 4291 0BC5: MOVF 63,W
4182 0C1E: MOVWF 64 4292 0BC6: MOVWF 61
4183 0C1F: BTFSC 03.0 4293 0BC7: BTFSC 03.0
4184 0C20: INCF 64,F 4294 0BC8: INCF 61,F
-   4295 0BC9: BCF 03.5
4185 0C21: CLRF 27 4296 0BCA: CLRF 27
4186 0C22: BTFSC 0B.7 4297 0BCB: BTFSC 0B.7
4187 0C23: BSF 27.7 4298 0BCC: BSF 27.7
4188 0C24: BCF 0B.7 4299 0BCD: BCF 0B.7
4189 .................... return(-46.85 + 175.72*((float)data/0xFFFF)); 4300 .................... return(-46.85 + 175.72*((float)data/0xFFFF));
4190 0C25: MOVF 64,W 4301 0BCE: BSF 03.5
4191 0C26: BSF 03.5 4302 0BCF: MOVF 61,W
4192 0C27: MOVWF 43 4303 0BD0: BCF 03.5
4193 0C28: BCF 03.5 4304 0BD1: BSF 03.6
4194 0C29: MOVF 63,W 4305 0BD2: MOVWF 45
4195 0C2A: BSF 03.5 4306 0BD3: BSF 03.5
4196 0C2B: MOVWF 42 4307 0BD4: BCF 03.6
4197 0C2C: BCF 0A.3 4308 0BD5: MOVF 60,W
4198 0C2D: BCF 03.5 4309 0BD6: BCF 03.5
4199 0C2E: CALL 038 4310 0BD7: BSF 03.6
4200 0C2F: BSF 0A.3 4311 0BD8: MOVWF 44
4201 0C30: BTFSC 27.7 4312 0BD9: BCF 0A.3
4202 0C31: BSF 0B.7 4313 0BDA: BCF 03.6
4203 0C32: MOVF 77,W 4314 0BDB: CALL 038
4204 0C33: MOVWF 65 4315 0BDC: BSF 0A.3
4205 0C34: MOVF 78,W 4316 0BDD: BTFSC 27.7
4206 0C35: MOVWF 66 4317 0BDE: BSF 0B.7
4207 0C36: MOVF 79,W 4318 0BDF: MOVF 77,W
4208 0C37: MOVWF 67 4319 0BE0: BSF 03.5
4209 0C38: MOVF 7A,W 4320 0BE1: MOVWF 62
4210 0C39: MOVWF 68 4321 0BE2: MOVF 78,W
4211 0C3A: CLRF 27 4322 0BE3: MOVWF 63
4212 0C3B: BTFSC 0B.7 4323 0BE4: MOVF 79,W
4213 0C3C: BSF 27.7 4324 0BE5: MOVWF 64
4214 0C3D: BCF 0B.7 4325 0BE6: MOVF 7A,W
4215 0C3E: MOVF 68,W 4326 0BE7: MOVWF 65
4216 0C3F: BSF 03.5 4327 0BE8: BCF 03.5
4217 0C40: MOVWF 45 4328 0BE9: CLRF 27
4218 0C41: BCF 03.5 4329 0BEA: BTFSC 0B.7
4219 0C42: MOVF 67,W 4330 0BEB: BSF 27.7
4220 0C43: BSF 03.5 4331 0BEC: BCF 0B.7
4221 0C44: MOVWF 44 4332 0BED: BSF 03.5
4222 0C45: BCF 03.5 4333 0BEE: MOVF 65,W
4223 0C46: MOVF 66,W 4334 0BEF: BCF 03.5
4224 0C47: BSF 03.5 4335 0BF0: BSF 03.6
4225 0C48: MOVWF 43 4336 0BF1: MOVWF 59
4226 0C49: BCF 03.5 4337 0BF2: BSF 03.5
4227 0C4A: MOVF 65,W 4338 0BF3: BCF 03.6
4228 0C4B: BSF 03.5 4339 0BF4: MOVF 64,W
4229 0C4C: MOVWF 42 4340 0BF5: BCF 03.5
4230 0C4D: CLRF 49 4341 0BF6: BSF 03.6
4231 0C4E: MOVLW FF 4342 0BF7: MOVWF 58
4232 0C4F: MOVWF 48 4343 0BF8: BSF 03.5
4233 0C50: MOVLW 7F 4344 0BF9: BCF 03.6
4234 0C51: MOVWF 47 4345 0BFA: MOVF 63,W
4235 0C52: MOVLW 8E 4346 0BFB: BCF 03.5
4236 0C53: MOVWF 46 4347 0BFC: BSF 03.6
4237 0C54: BCF 0A.3 4348 0BFD: MOVWF 57
4238 0C55: BCF 03.5 4349 0BFE: BSF 03.5
4239 0C56: CALL 057 4350 0BFF: BCF 03.6
4240 0C57: BSF 0A.3 4351 0C00: MOVF 62,W
4241 0C58: BTFSC 27.7 4352 0C01: BCF 03.5
4242 0C59: BSF 0B.7 4353 0C02: BSF 03.6
4243 0C5A: MOVLW 52 4354 0C03: MOVWF 56
4244 0C5B: BSF 03.5 4355 0C04: CLRF 5D
4245 0C5C: MOVWF 2C 4356 0C05: MOVLW FF
4246 0C5D: MOVLW B8 4357 0C06: MOVWF 5C
4247 0C5E: MOVWF 2B 4358 0C07: MOVLW 7F
4248 0C5F: MOVLW 2F 4359 0C08: MOVWF 5B
4249 0C60: MOVWF 2A 4360 0C09: MOVLW 8E
4250 0C61: MOVLW 86 4361 0C0A: MOVWF 5A
4251 0C62: MOVWF 29 4362 0C0B: BCF 0A.3
4252 0C63: MOVF 7A,W 4363 0C0C: BCF 03.6
4253 0C64: MOVWF 30 4364 0C0D: CALL 057
4254 0C65: MOVF 79,W 4365 0C0E: BSF 0A.3
4255 0C66: MOVWF 2F 4366 0C0F: BTFSC 27.7
4256 0C67: MOVF 78,W 4367 0C10: BSF 0B.7
4257 0C68: MOVWF 2E 4368 0C11: MOVLW 52
4258 0C69: MOVF 77,W 4369 0C12: BSF 03.6
4259 0C6A: MOVWF 2D 4370 0C13: MOVWF 24
4260 0C6B: BCF 0A.3 4371 0C14: MOVLW B8
4261 0C6C: BCF 03.5 4372 0C15: MOVWF 23
4262 0C6D: CALL 76E 4373 0C16: MOVLW 2F
4263 0C6E: BSF 0A.3 4374 0C17: MOVWF 22
4264 0C6F: BCF 03.1 4375 0C18: MOVLW 86
4265 0C70: MOVLW 66 4376 0C19: MOVWF 21
4266 0C71: BSF 03.5 4377 0C1A: MOVF 7A,W
4267 0C72: MOVWF 2C 4378 0C1B: MOVWF 28
4268 0C73: MOVWF 2B 4379 0C1C: MOVF 79,W
4269 0C74: MOVLW BB 4380 0C1D: MOVWF 27
4270 0C75: MOVWF 2A 4381 0C1E: MOVF 78,W
4271 0C76: MOVLW 84 4382 0C1F: MOVWF 26
4272 0C77: MOVWF 29 4383 0C20: MOVF 77,W
4273 0C78: MOVF 7A,W 4384 0C21: MOVWF 25
4274 0C79: MOVWF 30 4385 0C22: BCF 03.6
4275 0C7A: MOVF 79,W 4386 0C23: CALL 2AB
4276 0C7B: MOVWF 2F 4387 0C24: BCF 03.1
4277 0C7C: MOVF 78,W 4388 0C25: MOVLW 66
4278 0C7D: MOVWF 2E 4389 0C26: BSF 03.6
4279 0C7E: MOVF 77,W 4390 0C27: MOVWF 24
4280 0C7F: MOVWF 2D 4391 0C28: MOVWF 23
4281 0C80: BCF 03.5 4392 0C29: MOVLW BB
4282 0C81: CALL 000 4393 0C2A: MOVWF 22
4283 .................... } 4394 0C2B: MOVLW 84
4284 0C82: BSF 0A.3 4395 0C2C: MOVWF 21
4285 0C83: BSF 0A.4 4396 0C2D: MOVF 7A,W
4286 0C84: GOTO 0FB (RETURN) 4397 0C2E: MOVWF 28
-   4398 0C2F: MOVF 79,W
-   4399 0C30: MOVWF 27
-   4400 0C31: MOVF 78,W
-   4401 0C32: MOVWF 26
-   4402 0C33: MOVF 77,W
-   4403 0C34: MOVWF 25
-   4404 0C35: BCF 0A.3
-   4405 0C36: BCF 03.6
-   4406 0C37: CALL 5DC
-   4407 0C38: BSF 0A.3
-   4408 .................... }
-   4409 0C39: BCF 0A.3
-   4410 0C3A: BSF 0A.4
-   4411 0C3B: GOTO 611 (RETURN)
4287 .................... 4412 ....................
4288 .................... float SHT25_get_hum() 4413 .................... float SHT25_get_hum()
4289 .................... { 4414 .................... {
4290 .................... unsigned int8 MSB, LSB, Check; 4415 .................... unsigned int8 MSB, LSB, Check;
4291 .................... unsigned int16 data; 4416 .................... unsigned int16 data;
4292 .................... 4417 ....................
4293 .................... i2c_start(); //RH 4418 .................... i2c_start(); //RH
4294 0C85: BSF 28.4 4419 0C3C: BSF 28.3
4295 0C86: MOVF 28,W 4420 0C3D: MOVF 28,W
4296 0C87: BSF 03.5 4421 0C3E: BSF 03.5
4297 0C88: MOVWF 07 4422 0C3F: MOVWF 07
4298 0C89: NOP 4423 0C40: NOP
4299 0C8A: BCF 03.5 4424 0C41: BCF 03.5
4300 0C8B: BSF 28.3 4425 0C42: BSF 28.4
4301 0C8C: MOVF 28,W 4426 0C43: MOVF 28,W
4302 0C8D: BSF 03.5 4427 0C44: BSF 03.5
4303 0C8E: MOVWF 07 4428 0C45: MOVWF 07
4304 0C8F: NOP 4429 0C46: NOP
4305 0C90: BCF 03.5 4430 0C47: BCF 03.5
4306 0C91: BCF 07.4 4431 0C48: BCF 07.3
4307 0C92: BCF 28.4 4432 0C49: BCF 28.3
4308 0C93: MOVF 28,W 4433 0C4A: MOVF 28,W
4309 0C94: BSF 03.5 4434 0C4B: BSF 03.5
4310 0C95: MOVWF 07 4435 0C4C: MOVWF 07
4311 0C96: NOP 4436 0C4D: NOP
4312 0C97: BCF 03.5 4437 0C4E: BCF 03.5
4313 0C98: BCF 07.3 4438 0C4F: BCF 07.4
4314 0C99: BCF 28.3 4439 0C50: BCF 28.4
4315 0C9A: MOVF 28,W 4440 0C51: MOVF 28,W
4316 0C9B: BSF 03.5 4441 0C52: BSF 03.5
4317 0C9C: MOVWF 07 4442 0C53: MOVWF 07
4318 .................... I2C_Write(SHT25_ADDR); 4443 .................... I2C_Write(SHT25_ADDR);
4319 0C9D: MOVLW 80 4444 0C54: MOVLW 80
-   4445 0C55: BCF 03.5
-   4446 0C56: BSF 03.6
4320 0C9E: MOVWF 73 4447 0C57: MOVWF 12
4321 0C9F: BCF 0A.3 4448 0C58: BCF 0A.3
4322 0CA0: BCF 03.5 4449 0C59: BCF 03.6
4323 0CA1: CALL 22E 4450 0C5A: CALL 22E
4324 0CA2: BSF 0A.3 4451 0C5B: BSF 0A.3
4325 .................... I2C_write(0xE5); 4452 .................... I2C_write(0xE5);
4326 0CA3: MOVLW E5 4453 0C5C: MOVLW E5
-   4454 0C5D: BSF 03.6
4327 0CA4: MOVWF 73 4455 0C5E: MOVWF 12
4328 0CA5: BCF 0A.3 4456 0C5F: BCF 0A.3
-   4457 0C60: BCF 03.6
4329 0CA6: CALL 22E 4458 0C61: CALL 22E
4330 0CA7: BSF 0A.3 4459 0C62: BSF 0A.3
4331 .................... 4460 ....................
4332 .................... delay_ms(100); 4461 .................... delay_ms(100);
4333 0CA8: MOVLW 64 4462 0C63: MOVLW 64
-   4463 0C64: BSF 03.5
4334 0CA9: MOVWF 65 4464 0C65: MOVWF 62
4335 0CAA: BCF 0A.3 4465 0C66: BCF 0A.3
-   4466 0C67: BCF 03.5
4336 0CAB: CALL 2F5 4467 0C68: CALL 303
4337 0CAC: BSF 0A.3 4468 0C69: BSF 0A.3
4338 .................... 4469 ....................
4339 .................... i2c_start(); 4470 .................... i2c_start();
4340 0CAD: BSF 28.4 4471 0C6A: BSF 28.3
4341 0CAE: MOVF 28,W 4472 0C6B: MOVF 28,W
4342 0CAF: BSF 03.5 4473 0C6C: BSF 03.5
4343 0CB0: MOVWF 07 4474 0C6D: MOVWF 07
4344 0CB1: NOP 4475 0C6E: NOP
4345 0CB2: BCF 03.5 4476 0C6F: BCF 03.5
4346 0CB3: BSF 28.3 4477 0C70: BSF 28.4
4347 0CB4: MOVF 28,W 4478 0C71: MOVF 28,W
4348 0CB5: BSF 03.5 4479 0C72: BSF 03.5
4349 0CB6: MOVWF 07 4480 0C73: MOVWF 07
4350 0CB7: NOP 4481 0C74: NOP
4351 0CB8: BCF 03.5 4482 0C75: BCF 03.5
4352 0CB9: BTFSS 07.3 4483 0C76: BTFSS 07.4
4353 0CBA: GOTO 4B9 4484 0C77: GOTO 476
4354 0CBB: BCF 07.4 4485 0C78: BCF 07.3
4355 0CBC: BCF 28.4 4486 0C79: BCF 28.3
4356 0CBD: MOVF 28,W 4487 0C7A: MOVF 28,W
4357 0CBE: BSF 03.5 4488 0C7B: BSF 03.5
4358 0CBF: MOVWF 07 4489 0C7C: MOVWF 07
4359 0CC0: NOP 4490 0C7D: NOP
4360 0CC1: BCF 03.5 4491 0C7E: BCF 03.5
4361 0CC2: BCF 07.3 4492 0C7F: BCF 07.4
4362 0CC3: BCF 28.3 4493 0C80: BCF 28.4
4363 0CC4: MOVF 28,W 4494 0C81: MOVF 28,W
4364 0CC5: BSF 03.5 4495 0C82: BSF 03.5
4365 0CC6: MOVWF 07 4496 0C83: MOVWF 07
4366 .................... I2C_Write(SHT25_ADDR+1); 4497 .................... I2C_Write(SHT25_ADDR+1);
4367 0CC7: MOVLW 81 4498 0C84: MOVLW 81
-   4499 0C85: BCF 03.5
-   4500 0C86: BSF 03.6
4368 0CC8: MOVWF 73 4501 0C87: MOVWF 12
4369 0CC9: BCF 0A.3 4502 0C88: BCF 0A.3
4370 0CCA: BCF 03.5 4503 0C89: BCF 03.6
4371 0CCB: CALL 22E 4504 0C8A: CALL 22E
4372 0CCC: BSF 0A.3 4505 0C8B: BSF 0A.3
4373 .................... MSB=i2c_read(1); 4506 .................... MSB=i2c_read(1);
4374 0CCD: MOVLW 01 4507 0C8C: MOVLW 01
4375 0CCE: MOVWF 77 4508 0C8D: MOVWF 77
4376 0CCF: BCF 0A.3 4509 0C8E: BCF 0A.3
4377 0CD0: CALL 2B0 4510 0C8F: CALL 2B6
4378 0CD1: BSF 0A.3 4511 0C90: BSF 0A.3
4379 0CD2: MOVF 78,W 4512 0C91: MOVF 78,W
-   4513 0C92: BSF 03.5
4380 0CD3: MOVWF 60 4514 0C93: MOVWF 5D
4381 .................... LSB=i2c_read(1); 4515 .................... LSB=i2c_read(1);
4382 0CD4: MOVLW 01 4516 0C94: MOVLW 01
4383 0CD5: MOVWF 77 4517 0C95: MOVWF 77
4384 0CD6: BCF 0A.3 4518 0C96: BCF 0A.3
-   4519 0C97: BCF 03.5
4385 0CD7: CALL 2B0 4520 0C98: CALL 2B6
4386 0CD8: BSF 0A.3 4521 0C99: BSF 0A.3
4387 0CD9: MOVF 78,W 4522 0C9A: MOVF 78,W
-   4523 0C9B: BSF 03.5
4388 0CDA: MOVWF 61 4524 0C9C: MOVWF 5E
4389 .................... Check=i2c_read(0); 4525 .................... Check=i2c_read(0);
4390 0CDB: CLRF 77 4526 0C9D: CLRF 77
4391 0CDC: BCF 0A.3 4527 0C9E: BCF 0A.3
-   4528 0C9F: BCF 03.5
4392 0CDD: CALL 2B0 4529 0CA0: CALL 2B6
4393 0CDE: BSF 0A.3 4530 0CA1: BSF 0A.3
4394 0CDF: MOVF 78,W 4531 0CA2: MOVF 78,W
-   4532 0CA3: BSF 03.5
4395 0CE0: MOVWF 62 4533 0CA4: MOVWF 5F
4396 .................... i2c_stop(); 4534 .................... i2c_stop();
-   4535 0CA5: BCF 03.5
4397 0CE1: BCF 28.4 4536 0CA6: BCF 28.3
4398 0CE2: MOVF 28,W 4537 0CA7: MOVF 28,W
4399 0CE3: BSF 03.5 4538 0CA8: BSF 03.5
4400 0CE4: MOVWF 07 4539 0CA9: MOVWF 07
4401 0CE5: NOP 4540 0CAA: NOP
4402 0CE6: BCF 03.5 4541 0CAB: BCF 03.5
4403 0CE7: BSF 28.3 4542 0CAC: BSF 28.4
4404 0CE8: MOVF 28,W 4543 0CAD: MOVF 28,W
4405 0CE9: BSF 03.5 4544 0CAE: BSF 03.5
4406 0CEA: MOVWF 07 4545 0CAF: MOVWF 07
4407 0CEB: BCF 03.5 4546 0CB0: BCF 03.5
4408 0CEC: BTFSS 07.3 4547 0CB1: BTFSS 07.4
4409 0CED: GOTO 4EC 4548 0CB2: GOTO 4B1
4410 0CEE: NOP 4549 0CB3: NOP
4411 0CEF: GOTO 4F0 4550 0CB4: GOTO 4B5
4412 0CF0: NOP 4551 0CB5: NOP
4413 0CF1: BSF 28.4 4552 0CB6: BSF 28.3
4414 0CF2: MOVF 28,W 4553 0CB7: MOVF 28,W
4415 0CF3: BSF 03.5 4554 0CB8: BSF 03.5
4416 0CF4: MOVWF 07 4555 0CB9: MOVWF 07
4417 0CF5: NOP 4556 0CBA: NOP
4418 .................... 4557 ....................
4419 .................... LSB = LSB >> 2; // trow out status bits 4558 .................... LSB = LSB >> 2; // trow out status bits
4420 0CF6: BCF 03.5 -  
4421 0CF7: RRF 61,F 4559 0CBB: RRF 5E,F
4422 0CF8: RRF 61,F 4560 0CBC: RRF 5E,F
4423 0CF9: MOVLW 3F 4561 0CBD: MOVLW 3F
4424 0CFA: ANDWF 61,F 4562 0CBE: ANDWF 5E,F
4425 .................... 4563 ....................
4426 .................... data = (((unsigned int16) MSB << 8) + (LSB << 4) ); 4564 .................... data = (((unsigned int16) MSB << 8) + (LSB << 4) );
4427 0CFB: CLRF 66 4565 0CBF: CLRF 63
4428 0CFC: MOVF 60,W 4566 0CC0: MOVF 5D,W
4429 0CFD: MOVWF 65 4567 0CC1: MOVWF 62
4430 0CFE: MOVWF 66 4568 0CC2: MOVWF 63
4431 0CFF: CLRF 65 4569 0CC3: CLRF 62
4432 0D00: SWAPF 61,W 4570 0CC4: SWAPF 5E,W
4433 0D01: MOVWF 77 4571 0CC5: MOVWF 77
4434 0D02: MOVLW F0 4572 0CC6: MOVLW F0
4435 0D03: ANDWF 77,F 4573 0CC7: ANDWF 77,F
4436 0D04: MOVF 77,W 4574 0CC8: MOVF 77,W
4437 0D05: ADDWF 65,W 4575 0CC9: ADDWF 62,W
4438 0D06: MOVWF 63 4576 0CCA: MOVWF 60
4439 0D07: MOVF 66,W 4577 0CCB: MOVF 63,W
4440 0D08: MOVWF 64 4578 0CCC: MOVWF 61
4441 0D09: BTFSC 03.0 4579 0CCD: BTFSC 03.0
4442 0D0A: INCF 64,F 4580 0CCE: INCF 61,F
-   4581 0CCF: BCF 03.5
4443 0D0B: CLRF 27 4582 0CD0: CLRF 27
4444 0D0C: BTFSC 0B.7 4583 0CD1: BTFSC 0B.7
4445 0D0D: BSF 27.7 4584 0CD2: BSF 27.7
4446 0D0E: BCF 0B.7 4585 0CD3: BCF 0B.7
4447 .................... return( -6.0 + 125.0*((float)data/0xFFFF)); 4586 .................... return( -6.0 + 125.0*((float)data/0xFFFF));
-   4587 0CD4: BSF 03.5
4448 0D0F: MOVF 64,W 4588 0CD5: MOVF 61,W
-   4589 0CD6: BCF 03.5
-   4590 0CD7: BSF 03.6
-   4591 0CD8: MOVWF 45
4449 0D10: BSF 03.5 4592 0CD9: BSF 03.5
-   4593 0CDA: BCF 03.6
-   4594 0CDB: MOVF 60,W
-   4595 0CDC: BCF 03.5
-   4596 0CDD: BSF 03.6
-   4597 0CDE: MOVWF 44
-   4598 0CDF: BCF 0A.3
-   4599 0CE0: BCF 03.6
-   4600 0CE1: CALL 038
-   4601 0CE2: BSF 0A.3
-   4602 0CE3: BTFSC 27.7
-   4603 0CE4: BSF 0B.7
-   4604 0CE5: MOVF 77,W
-   4605 0CE6: BSF 03.5
-   4606 0CE7: MOVWF 62
-   4607 0CE8: MOVF 78,W
4450 0D11: MOVWF 43 4608 0CE9: MOVWF 63
-   4609 0CEA: MOVF 79,W
-   4610 0CEB: MOVWF 64
-   4611 0CEC: MOVF 7A,W
-   4612 0CED: MOVWF 65
-   4613 0CEE: BCF 03.5
-   4614 0CEF: CLRF 27
-   4615 0CF0: BTFSC 0B.7
-   4616 0CF1: BSF 27.7
-   4617 0CF2: BCF 0B.7
-   4618 0CF3: BSF 03.5
-   4619 0CF4: MOVF 65,W
-   4620 0CF5: BCF 03.5
-   4621 0CF6: BSF 03.6
-   4622 0CF7: MOVWF 59
-   4623 0CF8: BSF 03.5
-   4624 0CF9: BCF 03.6
-   4625 0CFA: MOVF 64,W
4451 0D12: BCF 03.5 4626 0CFB: BCF 03.5
-   4627 0CFC: BSF 03.6
-   4628 0CFD: MOVWF 58
-   4629 0CFE: BSF 03.5
-   4630 0CFF: BCF 03.6
4452 0D13: MOVF 63,W 4631 0D00: MOVF 63,W
-   4632 0D01: BCF 03.5
-   4633 0D02: BSF 03.6
-   4634 0D03: MOVWF 57
4453 0D14: BSF 03.5 4635 0D04: BSF 03.5
-   4636 0D05: BCF 03.6
-   4637 0D06: MOVF 62,W
-   4638 0D07: BCF 03.5
-   4639 0D08: BSF 03.6
-   4640 0D09: MOVWF 56
-   4641 0D0A: CLRF 5D
-   4642 0D0B: MOVLW FF
-   4643 0D0C: MOVWF 5C
-   4644 0D0D: MOVLW 7F
-   4645 0D0E: MOVWF 5B
-   4646 0D0F: MOVLW 8E
4454 0D15: MOVWF 42 4647 0D10: MOVWF 5A
4455 0D16: BCF 0A.3 4648 0D11: BCF 0A.3
4456 0D17: BCF 03.5 4649 0D12: BCF 03.6
4457 0D18: CALL 038 4650 0D13: CALL 057
4458 0D19: BSF 0A.3 4651 0D14: BSF 0A.3
4459 0D1A: BTFSC 27.7 4652 0D15: BTFSC 27.7
4460 0D1B: BSF 0B.7 4653 0D16: BSF 0B.7
-   4654 0D17: BSF 03.6
-   4655 0D18: CLRF 24
-   4656 0D19: CLRF 23
-   4657 0D1A: MOVLW 7A
-   4658 0D1B: MOVWF 22
4461 0D1C: MOVF 77,W 4659 0D1C: MOVLW 85
4462 0D1D: MOVWF 65 4660 0D1D: MOVWF 21
4463 0D1E: MOVF 78,W 4661 0D1E: MOVF 7A,W
4464 0D1F: MOVWF 66 4662 0D1F: MOVWF 28
4465 0D20: MOVF 79,W 4663 0D20: MOVF 79,W
4466 0D21: MOVWF 67 4664 0D21: MOVWF 27
4467 0D22: MOVF 7A,W 4665 0D22: MOVF 78,W
4468 0D23: MOVWF 68 4666 0D23: MOVWF 26
4469 0D24: CLRF 27 -  
4470 0D25: BTFSC 0B.7 -  
4471 0D26: BSF 27.7 -  
4472 0D27: BCF 0B.7 -  
4473 0D28: MOVF 7A,W 4667 0D24: MOVF 77,W
4474 0D29: BSF 03.5 -  
4475 0D2A: MOVWF 45 4668 0D25: MOVWF 25
4476 0D2B: BCF 03.5 -  
4477 0D2C: MOVF 79,W -  
4478 0D2D: BSF 03.5 -  
4479 0D2E: MOVWF 44 -  
4480 0D2F: BCF 03.5 4669 0D26: BCF 03.6
4481 0D30: MOVF 78,W -  
4482 0D31: BSF 03.5 -  
4483 0D32: MOVWF 43 -  
4484 0D33: BCF 03.5 -  
4485 0D34: MOVF 77,W -  
4486 0D35: BSF 03.5 -  
4487 0D36: MOVWF 42 -  
4488 0D37: CLRF 49 -  
4489 0D38: MOVLW FF -  
4490 0D39: MOVWF 48 -  
4491 0D3A: MOVLW 7F -  
4492 0D3B: MOVWF 47 -  
4493 0D3C: MOVLW 8E -  
4494 0D3D: MOVWF 46 -  
4495 0D3E: BCF 0A.3 -  
4496 0D3F: BCF 03.5 -  
4497 0D40: CALL 057 4670 0D27: CALL 2AB
4498 0D41: BSF 0A.3 -  
4499 0D42: BTFSC 27.7 -  
4500 0D43: BSF 0B.7 4671 0D28: BCF 03.1
4501 0D44: BSF 03.5 4672 0D29: BSF 03.6
4502 0D45: CLRF 2C 4673 0D2A: CLRF 24
4503 0D46: CLRF 2B 4674 0D2B: CLRF 23
4504 0D47: MOVLW 7A 4675 0D2C: MOVLW C0
4505 0D48: MOVWF 2A 4676 0D2D: MOVWF 22
4506 0D49: MOVLW 85 4677 0D2E: MOVLW 81
4507 0D4A: MOVWF 29 4678 0D2F: MOVWF 21
4508 0D4B: MOVF 7A,W 4679 0D30: MOVF 7A,W
4509 0D4C: MOVWF 30 4680 0D31: MOVWF 28
4510 0D4D: MOVF 79,W 4681 0D32: MOVF 79,W
4511 0D4E: MOVWF 2F 4682 0D33: MOVWF 27
4512 0D4F: MOVF 78,W 4683 0D34: MOVF 78,W
4513 0D50: MOVWF 2E 4684 0D35: MOVWF 26
4514 0D51: MOVF 77,W 4685 0D36: MOVF 77,W
4515 0D52: MOVWF 2D 4686 0D37: MOVWF 25
4516 0D53: BCF 0A.3 4687 0D38: BCF 0A.3
4517 0D54: BCF 03.5 4688 0D39: BCF 03.6
4518 0D55: CALL 76E 4689 0D3A: CALL 5DC
4519 0D56: BSF 0A.3 4690 0D3B: BSF 0A.3
4520 0D57: BCF 03.1 -  
4521 0D58: BSF 03.5 -  
4522 0D59: CLRF 2C -  
4523 0D5A: CLRF 2B -  
4524 0D5B: MOVLW C0 -  
4525 0D5C: MOVWF 2A -  
4526 0D5D: MOVLW 81 -  
4527 0D5E: MOVWF 29 -  
4528 0D5F: MOVF 7A,W -  
4529 0D60: MOVWF 30 -  
4530 0D61: MOVF 79,W -  
4531 0D62: MOVWF 2F -  
4532 0D63: MOVF 78,W -  
4533 0D64: MOVWF 2E -  
4534 0D65: MOVF 77,W -  
4535 0D66: MOVWF 2D -  
4536 0D67: BCF 03.5 -  
4537 0D68: CALL 000 -  
4538 .................... } 4691 .................... }
4539 0D69: BSF 0A.3 4692 0D3C: BCF 0A.3
4540 0D6A: BSF 0A.4 4693 0D3D: BSF 0A.4
4541 0D6B: GOTO 106 (RETURN) 4694 0D3E: GOTO 61E (RETURN)
4542 .................... 4695 ....................
4543 .................... 4696 ....................
4544 .................... 4697 ....................
4545 .................... 4698 ....................
4546 .................... #include "MPL3115.h" 4699 .................... #include "MPL3115.h"
Line 4552... Line 4705...
4552 .................... { 4705 .................... {
4553 .................... 4706 ....................
4554 .................... 4707 ....................
4555 .................... i2c_start(); //STANDBY mode 4708 .................... i2c_start(); //STANDBY mode
4556 * 4709 *
4557 0A20: BSF 28.4 4710 090A: BSF 28.3
4558 0A21: MOVF 28,W 4711 090B: MOVF 28,W
4559 0A22: BSF 03.5 4712 090C: BSF 03.5
4560 0A23: MOVWF 07 4713 090D: MOVWF 07
4561 0A24: NOP 4714 090E: NOP
4562 0A25: BCF 03.5 4715 090F: BCF 03.5
4563 0A26: BSF 28.3 4716 0910: BSF 28.4
4564 0A27: MOVF 28,W 4717 0911: MOVF 28,W
4565 0A28: BSF 03.5 4718 0912: BSF 03.5
4566 0A29: MOVWF 07 4719 0913: MOVWF 07
4567 0A2A: NOP 4720 0914: NOP
4568 0A2B: BCF 03.5 4721 0915: BCF 03.5
4569 0A2C: BCF 07.4 4722 0916: BCF 07.3
4570 0A2D: BCF 28.4 4723 0917: BCF 28.3
4571 0A2E: MOVF 28,W 4724 0918: MOVF 28,W
4572 0A2F: BSF 03.5 4725 0919: BSF 03.5
4573 0A30: MOVWF 07 4726 091A: MOVWF 07
4574 0A31: NOP 4727 091B: NOP
4575 0A32: BCF 03.5 4728 091C: BCF 03.5
4576 0A33: BCF 07.3 4729 091D: BCF 07.4
4577 0A34: BCF 28.3 4730 091E: BCF 28.4
4578 0A35: MOVF 28,W 4731 091F: MOVF 28,W
4579 0A36: BSF 03.5 4732 0920: BSF 03.5
4580 0A37: MOVWF 07 4733 0921: MOVWF 07
4581 .................... I2C_Write(MPL3115_ADDR_W); 4734 .................... I2C_Write(MPL3115_ADDR_W);
4582 0A38: MOVLW C0 4735 0922: MOVLW C0
-   4736 0923: BCF 03.5
-   4737 0924: BSF 03.6
4583 0A39: MOVWF 73 4738 0925: MOVWF 12
4584 0A3A: BCF 0A.3 4739 0926: BCF 0A.3
4585 0A3B: BCF 03.5 4740 0927: BCF 03.6
4586 0A3C: CALL 22E 4741 0928: CALL 22E
4587 0A3D: BSF 0A.3 4742 0929: BSF 0A.3
4588 .................... I2C_write(0x26); 4743 .................... I2C_write(0x26);
4589 0A3E: MOVLW 26 4744 092A: MOVLW 26
-   4745 092B: BSF 03.6
4590 0A3F: MOVWF 73 4746 092C: MOVWF 12
4591 0A40: BCF 0A.3 4747 092D: BCF 0A.3
-   4748 092E: BCF 03.6
4592 0A41: CALL 22E 4749 092F: CALL 22E
4593 0A42: BSF 0A.3 4750 0930: BSF 0A.3
4594 .................... I2C_write(0xB8); 4751 .................... I2C_write(0xB8);
4595 0A43: MOVLW B8 4752 0931: MOVLW B8
-   4753 0932: BSF 03.6
4596 0A44: MOVWF 73 4754 0933: MOVWF 12
4597 0A45: BCF 0A.3 4755 0934: BCF 0A.3
-   4756 0935: BCF 03.6
4598 0A46: CALL 22E 4757 0936: CALL 22E
4599 0A47: BSF 0A.3 4758 0937: BSF 0A.3
4600 .................... i2c_stop(); 4759 .................... i2c_stop();
4601 0A48: BCF 28.4 4760 0938: BCF 28.3
4602 0A49: MOVF 28,W 4761 0939: MOVF 28,W
4603 0A4A: BSF 03.5 4762 093A: BSF 03.5
4604 0A4B: MOVWF 07 4763 093B: MOVWF 07
4605 0A4C: NOP 4764 093C: NOP
4606 0A4D: BCF 03.5 4765 093D: BCF 03.5
4607 0A4E: BSF 28.3 4766 093E: BSF 28.4
4608 0A4F: MOVF 28,W 4767 093F: MOVF 28,W
4609 0A50: BSF 03.5 4768 0940: BSF 03.5
4610 0A51: MOVWF 07 4769 0941: MOVWF 07
4611 0A52: BCF 03.5 4770 0942: BCF 03.5
4612 0A53: BTFSS 07.3 4771 0943: BTFSS 07.4
4613 0A54: GOTO 253 4772 0944: GOTO 143
4614 0A55: NOP 4773 0945: NOP
4615 0A56: GOTO 257 4774 0946: GOTO 147
4616 0A57: NOP 4775 0947: NOP
4617 0A58: BSF 28.4 4776 0948: BSF 28.3
4618 0A59: MOVF 28,W 4777 0949: MOVF 28,W
4619 0A5A: BSF 03.5 4778 094A: BSF 03.5
4620 0A5B: MOVWF 07 4779 094B: MOVWF 07
4621 0A5C: NOP 4780 094C: NOP
4622 .................... 4781 ....................
4623 .................... i2c_start(); //PT_DATA_CFG set 4782 .................... i2c_start(); //PT_DATA_CFG set
4624 0A5D: BCF 03.5 4783 094D: BCF 03.5
4625 0A5E: BSF 28.4 4784 094E: BSF 28.3
4626 0A5F: MOVF 28,W 4785 094F: MOVF 28,W
4627 0A60: BSF 03.5 4786 0950: BSF 03.5
4628 0A61: MOVWF 07 4787 0951: MOVWF 07
4629 0A62: NOP 4788 0952: NOP
4630 0A63: BCF 03.5 4789 0953: BCF 03.5
4631 0A64: BSF 28.3 4790 0954: BSF 28.4
4632 0A65: MOVF 28,W 4791 0955: MOVF 28,W
4633 0A66: BSF 03.5 4792 0956: BSF 03.5
4634 0A67: MOVWF 07 4793 0957: MOVWF 07
4635 0A68: NOP 4794 0958: NOP
4636 0A69: BCF 03.5 4795 0959: BCF 03.5
4637 0A6A: BCF 07.4 4796 095A: BCF 07.3
4638 0A6B: BCF 28.4 4797 095B: BCF 28.3
4639 0A6C: MOVF 28,W 4798 095C: MOVF 28,W
4640 0A6D: BSF 03.5 4799 095D: BSF 03.5
4641 0A6E: MOVWF 07 4800 095E: MOVWF 07
4642 0A6F: NOP 4801 095F: NOP
4643 0A70: BCF 03.5 4802 0960: BCF 03.5
4644 0A71: BCF 07.3 4803 0961: BCF 07.4
4645 0A72: BCF 28.3 4804 0962: BCF 28.4
4646 0A73: MOVF 28,W 4805 0963: MOVF 28,W
4647 0A74: BSF 03.5 4806 0964: BSF 03.5
4648 0A75: MOVWF 07 4807 0965: MOVWF 07
4649 .................... I2C_Write(MPL3115_ADDR_W); 4808 .................... I2C_Write(MPL3115_ADDR_W);
4650 0A76: MOVLW C0 4809 0966: MOVLW C0
-   4810 0967: BCF 03.5
-   4811 0968: BSF 03.6
4651 0A77: MOVWF 73 4812 0969: MOVWF 12
4652 0A78: BCF 0A.3 4813 096A: BCF 0A.3
4653 0A79: BCF 03.5 4814 096B: BCF 03.6
4654 0A7A: CALL 22E 4815 096C: CALL 22E
4655 0A7B: BSF 0A.3 4816 096D: BSF 0A.3
4656 .................... I2C_write(0x13); 4817 .................... I2C_write(0x13);
4657 0A7C: MOVLW 13 4818 096E: MOVLW 13
-   4819 096F: BSF 03.6
4658 0A7D: MOVWF 73 4820 0970: MOVWF 12
4659 0A7E: BCF 0A.3 4821 0971: BCF 0A.3
-   4822 0972: BCF 03.6
4660 0A7F: CALL 22E 4823 0973: CALL 22E
4661 0A80: BSF 0A.3 4824 0974: BSF 0A.3
4662 .................... I2C_write(0x07); //hodnota 4825 .................... I2C_write(0x07); //hodnota
4663 0A81: MOVLW 07 4826 0975: MOVLW 07
-   4827 0976: BSF 03.6
4664 0A82: MOVWF 73 4828 0977: MOVWF 12
4665 0A83: BCF 0A.3 4829 0978: BCF 0A.3
-   4830 0979: BCF 03.6
4666 0A84: CALL 22E 4831 097A: CALL 22E
4667 0A85: BSF 0A.3 4832 097B: BSF 0A.3
4668 .................... i2c_stop(); 4833 .................... i2c_stop();
4669 0A86: BCF 28.4 4834 097C: BCF 28.3
4670 0A87: MOVF 28,W 4835 097D: MOVF 28,W
4671 0A88: BSF 03.5 4836 097E: BSF 03.5
4672 0A89: MOVWF 07 4837 097F: MOVWF 07
4673 0A8A: NOP 4838 0980: NOP
4674 0A8B: BCF 03.5 4839 0981: BCF 03.5
4675 0A8C: BSF 28.3 4840 0982: BSF 28.4
4676 0A8D: MOVF 28,W 4841 0983: MOVF 28,W
4677 0A8E: BSF 03.5 4842 0984: BSF 03.5
4678 0A8F: MOVWF 07 4843 0985: MOVWF 07
4679 0A90: BCF 03.5 4844 0986: BCF 03.5
4680 0A91: BTFSS 07.3 4845 0987: BTFSS 07.4
4681 0A92: GOTO 291 4846 0988: GOTO 187
4682 0A93: NOP 4847 0989: NOP
4683 0A94: GOTO 295 4848 098A: GOTO 18B
4684 0A95: NOP 4849 098B: NOP
4685 0A96: BSF 28.4 4850 098C: BSF 28.3
4686 0A97: MOVF 28,W 4851 098D: MOVF 28,W
4687 0A98: BSF 03.5 4852 098E: BSF 03.5
4688 0A99: MOVWF 07 4853 098F: MOVWF 07
4689 0A9A: NOP 4854 0990: NOP
4690 .................... 4855 ....................
4691 .................... i2c_start(); //ACTIVE mode 4856 .................... i2c_start(); //ACTIVE mode
4692 0A9B: BCF 03.5 4857 0991: BCF 03.5
4693 0A9C: BSF 28.4 4858 0992: BSF 28.3
4694 0A9D: MOVF 28,W 4859 0993: MOVF 28,W
4695 0A9E: BSF 03.5 4860 0994: BSF 03.5
4696 0A9F: MOVWF 07 4861 0995: MOVWF 07
4697 0AA0: NOP 4862 0996: NOP
4698 0AA1: BCF 03.5 4863 0997: BCF 03.5
4699 0AA2: BSF 28.3 4864 0998: BSF 28.4
4700 0AA3: MOVF 28,W 4865 0999: MOVF 28,W
4701 0AA4: BSF 03.5 4866 099A: BSF 03.5
4702 0AA5: MOVWF 07 4867 099B: MOVWF 07
4703 0AA6: NOP 4868 099C: NOP
4704 0AA7: BCF 03.5 4869 099D: BCF 03.5
4705 0AA8: BCF 07.4 4870 099E: BCF 07.3
4706 0AA9: BCF 28.4 4871 099F: BCF 28.3
4707 0AAA: MOVF 28,W 4872 09A0: MOVF 28,W
4708 0AAB: BSF 03.5 4873 09A1: BSF 03.5
4709 0AAC: MOVWF 07 4874 09A2: MOVWF 07
4710 0AAD: NOP 4875 09A3: NOP
4711 0AAE: BCF 03.5 4876 09A4: BCF 03.5
4712 0AAF: BCF 07.3 4877 09A5: BCF 07.4
4713 0AB0: BCF 28.3 4878 09A6: BCF 28.4
4714 0AB1: MOVF 28,W 4879 09A7: MOVF 28,W
4715 0AB2: BSF 03.5 4880 09A8: BSF 03.5
4716 0AB3: MOVWF 07 4881 09A9: MOVWF 07
4717 .................... I2C_Write(MPL3115_ADDR_W); 4882 .................... I2C_Write(MPL3115_ADDR_W);
4718 0AB4: MOVLW C0 4883 09AA: MOVLW C0
-   4884 09AB: BCF 03.5
-   4885 09AC: BSF 03.6
4719 0AB5: MOVWF 73 4886 09AD: MOVWF 12
4720 0AB6: BCF 0A.3 4887 09AE: BCF 0A.3
4721 0AB7: BCF 03.5 4888 09AF: BCF 03.6
4722 0AB8: CALL 22E 4889 09B0: CALL 22E
4723 0AB9: BSF 0A.3 4890 09B1: BSF 0A.3
4724 .................... I2C_write(0x26); 4891 .................... I2C_write(0x26);
4725 0ABA: MOVLW 26 4892 09B2: MOVLW 26
-   4893 09B3: BSF 03.6
4726 0ABB: MOVWF 73 4894 09B4: MOVWF 12
4727 0ABC: BCF 0A.3 4895 09B5: BCF 0A.3
-   4896 09B6: BCF 03.6
4728 0ABD: CALL 22E 4897 09B7: CALL 22E
4729 0ABE: BSF 0A.3 4898 09B8: BSF 0A.3
4730 .................... I2C_write(0xB9); 4899 .................... I2C_write(0xB9);
4731 0ABF: MOVLW B9 4900 09B9: MOVLW B9
-   4901 09BA: BSF 03.6
4732 0AC0: MOVWF 73 4902 09BB: MOVWF 12
4733 0AC1: BCF 0A.3 4903 09BC: BCF 0A.3
-   4904 09BD: BCF 03.6
4734 0AC2: CALL 22E 4905 09BE: CALL 22E
4735 0AC3: BSF 0A.3 4906 09BF: BSF 0A.3
4736 .................... i2c_stop(); 4907 .................... i2c_stop();
4737 0AC4: BCF 28.4 4908 09C0: BCF 28.3
4738 0AC5: MOVF 28,W 4909 09C1: MOVF 28,W
4739 0AC6: BSF 03.5 4910 09C2: BSF 03.5
4740 0AC7: MOVWF 07 4911 09C3: MOVWF 07
4741 0AC8: NOP 4912 09C4: NOP
4742 0AC9: BCF 03.5 4913 09C5: BCF 03.5
4743 0ACA: BSF 28.3 4914 09C6: BSF 28.4
4744 0ACB: MOVF 28,W 4915 09C7: MOVF 28,W
4745 0ACC: BSF 03.5 4916 09C8: BSF 03.5
4746 0ACD: MOVWF 07 4917 09C9: MOVWF 07
4747 0ACE: BCF 03.5 4918 09CA: BCF 03.5
4748 0ACF: BTFSS 07.3 4919 09CB: BTFSS 07.4
4749 0AD0: GOTO 2CF 4920 09CC: GOTO 1CB
4750 0AD1: NOP 4921 09CD: NOP
4751 0AD2: GOTO 2D3 4922 09CE: GOTO 1CF
4752 0AD3: NOP 4923 09CF: NOP
4753 0AD4: BSF 28.4 4924 09D0: BSF 28.3
4754 0AD5: MOVF 28,W 4925 09D1: MOVF 28,W
4755 0AD6: BSF 03.5 4926 09D2: BSF 03.5
4756 0AD7: MOVWF 07 4927 09D3: MOVWF 07
4757 0AD8: NOP 4928 09D4: NOP
4758 .................... } 4929 .................... }
4759 0AD9: BCF 03.5 4930 09D5: BCF 03.5
4760 0ADA: BSF 0A.3 4931 09D6: BCF 0A.3
4761 0ADB: BSF 0A.4 4932 09D7: BSF 0A.4
4762 0ADC: GOTO 0E2 (RETURN) 4933 09D8: GOTO 5F4 (RETURN)
4763 .................... 4934 ....................
4764 .................... void mpl3115_setP (void) //nastavení pro tlak 4935 .................... void mpl3115_setP (void) //nastavení pro tlak
4765 .................... { 4936 .................... {
4766 .................... 4937 ....................
4767 .................... 4938 ....................
4768 .................... i2c_start(); //STANDBY mode 4939 .................... i2c_start(); //STANDBY mode
4769 * 4940 *
4770 05E6: BSF 28.4 4941 04BB: BSF 28.3
4771 05E7: MOVF 28,W 4942 04BC: MOVF 28,W
4772 05E8: BSF 03.5 4943 04BD: BSF 03.5
4773 05E9: MOVWF 07 4944 04BE: MOVWF 07
4774 05EA: NOP 4945 04BF: NOP
4775 05EB: BCF 03.5 4946 04C0: BCF 03.5
4776 05EC: BSF 28.3 4947 04C1: BSF 28.4
4777 05ED: MOVF 28,W 4948 04C2: MOVF 28,W
4778 05EE: BSF 03.5 4949 04C3: BSF 03.5
4779 05EF: MOVWF 07 4950 04C4: MOVWF 07
4780 05F0: NOP 4951 04C5: NOP
4781 05F1: BCF 03.5 4952 04C6: BCF 03.5
4782 05F2: BCF 07.4 4953 04C7: BCF 07.3
4783 05F3: BCF 28.4 4954 04C8: BCF 28.3
4784 05F4: MOVF 28,W 4955 04C9: MOVF 28,W
4785 05F5: BSF 03.5 4956 04CA: BSF 03.5
4786 05F6: MOVWF 07 4957 04CB: MOVWF 07
4787 05F7: NOP 4958 04CC: NOP
4788 05F8: BCF 03.5 4959 04CD: BCF 03.5
4789 05F9: BCF 07.3 4960 04CE: BCF 07.4
4790 05FA: BCF 28.3 4961 04CF: BCF 28.4
4791 05FB: MOVF 28,W 4962 04D0: MOVF 28,W
4792 05FC: BSF 03.5 4963 04D1: BSF 03.5
4793 05FD: MOVWF 07 4964 04D2: MOVWF 07
4794 .................... I2C_Write(MPL3115_ADDR_W); 4965 .................... I2C_Write(MPL3115_ADDR_W);
4795 05FE: MOVLW C0 4966 04D3: MOVLW C0
-   4967 04D4: BCF 03.5
-   4968 04D5: BSF 03.6
4796 05FF: MOVWF 73 4969 04D6: MOVWF 12
4797 0600: BCF 03.5 4970 04D7: BCF 03.6
4798 0601: CALL 22E 4971 04D8: CALL 22E
4799 .................... I2C_write(0x26); 4972 .................... I2C_write(0x26);
4800 0602: MOVLW 26 4973 04D9: MOVLW 26
-   4974 04DA: BSF 03.6
4801 0603: MOVWF 73 4975 04DB: MOVWF 12
-   4976 04DC: BCF 03.6
4802 0604: CALL 22E 4977 04DD: CALL 22E
4803 .................... I2C_write(0xB8); 4978 .................... I2C_write(0xB8);
4804 0605: MOVLW B8 4979 04DE: MOVLW B8
-   4980 04DF: BSF 03.6
4805 0606: MOVWF 73 4981 04E0: MOVWF 12
-   4982 04E1: BCF 03.6
4806 0607: CALL 22E 4983 04E2: CALL 22E
4807 .................... i2c_stop(); 4984 .................... i2c_stop();
4808 0608: BCF 28.4 4985 04E3: BCF 28.3
4809 0609: MOVF 28,W 4986 04E4: MOVF 28,W
4810 060A: BSF 03.5 4987 04E5: BSF 03.5
4811 060B: MOVWF 07 4988 04E6: MOVWF 07
4812 060C: NOP 4989 04E7: NOP
4813 060D: BCF 03.5 4990 04E8: BCF 03.5
4814 060E: BSF 28.3 4991 04E9: BSF 28.4
4815 060F: MOVF 28,W 4992 04EA: MOVF 28,W
4816 0610: BSF 03.5 4993 04EB: BSF 03.5
4817 0611: MOVWF 07 4994 04EC: MOVWF 07
4818 0612: BCF 03.5 4995 04ED: BCF 03.5
4819 0613: BTFSS 07.3 4996 04EE: BTFSS 07.4
4820 0614: GOTO 613 4997 04EF: GOTO 4EE
4821 0615: NOP 4998 04F0: NOP
4822 0616: GOTO 617 4999 04F1: GOTO 4F2
4823 0617: NOP 5000 04F2: NOP
4824 0618: BSF 28.4 5001 04F3: BSF 28.3
4825 0619: MOVF 28,W 5002 04F4: MOVF 28,W
4826 061A: BSF 03.5 5003 04F5: BSF 03.5
4827 061B: MOVWF 07 5004 04F6: MOVWF 07
4828 061C: NOP 5005 04F7: NOP
4829 .................... 5006 ....................
4830 .................... i2c_start(); //PT_DATA_CFG set 5007 .................... i2c_start(); //PT_DATA_CFG set
4831 061D: BCF 03.5 5008 04F8: BCF 03.5
4832 061E: BSF 28.4 5009 04F9: BSF 28.3
4833 061F: MOVF 28,W 5010 04FA: MOVF 28,W
4834 0620: BSF 03.5 5011 04FB: BSF 03.5
4835 0621: MOVWF 07 5012 04FC: MOVWF 07
4836 0622: NOP 5013 04FD: NOP
4837 0623: BCF 03.5 5014 04FE: BCF 03.5
4838 0624: BSF 28.3 5015 04FF: BSF 28.4
4839 0625: MOVF 28,W 5016 0500: MOVF 28,W
4840 0626: BSF 03.5 5017 0501: BSF 03.5
4841 0627: MOVWF 07 5018 0502: MOVWF 07
4842 0628: NOP 5019 0503: NOP
4843 0629: BCF 03.5 5020 0504: BCF 03.5
4844 062A: BCF 07.4 5021 0505: BCF 07.3
4845 062B: BCF 28.4 5022 0506: BCF 28.3
4846 062C: MOVF 28,W 5023 0507: MOVF 28,W
4847 062D: BSF 03.5 5024 0508: BSF 03.5
4848 062E: MOVWF 07 5025 0509: MOVWF 07
4849 062F: NOP 5026 050A: NOP
4850 0630: BCF 03.5 5027 050B: BCF 03.5
4851 0631: BCF 07.3 5028 050C: BCF 07.4
4852 0632: BCF 28.3 5029 050D: BCF 28.4
4853 0633: MOVF 28,W 5030 050E: MOVF 28,W
4854 0634: BSF 03.5 5031 050F: BSF 03.5
4855 0635: MOVWF 07 5032 0510: MOVWF 07
4856 .................... I2C_Write(MPL3115_ADDR_W); 5033 .................... I2C_Write(MPL3115_ADDR_W);
4857 0636: MOVLW C0 5034 0511: MOVLW C0
-   5035 0512: BCF 03.5
-   5036 0513: BSF 03.6
4858 0637: MOVWF 73 5037 0514: MOVWF 12
4859 0638: BCF 03.5 5038 0515: BCF 03.6
4860 0639: CALL 22E 5039 0516: CALL 22E
4861 .................... I2C_write(0x13); 5040 .................... I2C_write(0x13);
4862 063A: MOVLW 13 5041 0517: MOVLW 13
-   5042 0518: BSF 03.6
4863 063B: MOVWF 73 5043 0519: MOVWF 12
-   5044 051A: BCF 03.6
4864 063C: CALL 22E 5045 051B: CALL 22E
4865 .................... I2C_write(0x07); //hodnota 5046 .................... I2C_write(0x07); //hodnota
4866 063D: MOVLW 07 5047 051C: MOVLW 07
-   5048 051D: BSF 03.6
4867 063E: MOVWF 73 5049 051E: MOVWF 12
-   5050 051F: BCF 03.6
4868 063F: CALL 22E 5051 0520: CALL 22E
4869 .................... i2c_stop(); 5052 .................... i2c_stop();
4870 0640: BCF 28.4 5053 0521: BCF 28.3
4871 0641: MOVF 28,W 5054 0522: MOVF 28,W
4872 0642: BSF 03.5 5055 0523: BSF 03.5
4873 0643: MOVWF 07 5056 0524: MOVWF 07
4874 0644: NOP 5057 0525: NOP
4875 0645: BCF 03.5 5058 0526: BCF 03.5
4876 0646: BSF 28.3 5059 0527: BSF 28.4
4877 0647: MOVF 28,W 5060 0528: MOVF 28,W
4878 0648: BSF 03.5 5061 0529: BSF 03.5
4879 0649: MOVWF 07 5062 052A: MOVWF 07
4880 064A: BCF 03.5 5063 052B: BCF 03.5
4881 064B: BTFSS 07.3 5064 052C: BTFSS 07.4
4882 064C: GOTO 64B 5065 052D: GOTO 52C
4883 064D: NOP 5066 052E: NOP
4884 064E: GOTO 64F 5067 052F: GOTO 530
4885 064F: NOP 5068 0530: NOP
4886 0650: BSF 28.4 5069 0531: BSF 28.3
4887 0651: MOVF 28,W 5070 0532: MOVF 28,W
4888 0652: BSF 03.5 5071 0533: BSF 03.5
4889 0653: MOVWF 07 5072 0534: MOVWF 07
4890 0654: NOP 5073 0535: NOP
4891 .................... 5074 ....................
4892 .................... i2c_start(); //ACTIVE mode 5075 .................... i2c_start(); //ACTIVE mode
4893 0655: BCF 03.5 5076 0536: BCF 03.5
4894 0656: BSF 28.4 5077 0537: BSF 28.3
4895 0657: MOVF 28,W 5078 0538: MOVF 28,W
4896 0658: BSF 03.5 5079 0539: BSF 03.5
4897 0659: MOVWF 07 5080 053A: MOVWF 07
4898 065A: NOP 5081 053B: NOP
4899 065B: BCF 03.5 5082 053C: BCF 03.5
4900 065C: BSF 28.3 5083 053D: BSF 28.4
4901 065D: MOVF 28,W 5084 053E: MOVF 28,W
4902 065E: BSF 03.5 5085 053F: BSF 03.5
4903 065F: MOVWF 07 5086 0540: MOVWF 07
4904 0660: NOP 5087 0541: NOP
4905 0661: BCF 03.5 5088 0542: BCF 03.5
4906 0662: BCF 07.4 5089 0543: BCF 07.3
4907 0663: BCF 28.4 5090 0544: BCF 28.3
4908 0664: MOVF 28,W 5091 0545: MOVF 28,W
4909 0665: BSF 03.5 5092 0546: BSF 03.5
4910 0666: MOVWF 07 5093 0547: MOVWF 07
4911 0667: NOP 5094 0548: NOP
4912 0668: BCF 03.5 5095 0549: BCF 03.5
4913 0669: BCF 07.3 5096 054A: BCF 07.4
4914 066A: BCF 28.3 5097 054B: BCF 28.4
4915 066B: MOVF 28,W 5098 054C: MOVF 28,W
4916 066C: BSF 03.5 5099 054D: BSF 03.5
4917 066D: MOVWF 07 5100 054E: MOVWF 07
4918 .................... I2C_Write(MPL3115_ADDR_W); 5101 .................... I2C_Write(MPL3115_ADDR_W);
4919 066E: MOVLW C0 5102 054F: MOVLW C0
-   5103 0550: BCF 03.5
-   5104 0551: BSF 03.6
4920 066F: MOVWF 73 5105 0552: MOVWF 12
4921 0670: BCF 03.5 5106 0553: BCF 03.6
4922 0671: CALL 22E 5107 0554: CALL 22E
4923 .................... I2C_write(0x26); 5108 .................... I2C_write(0x26);
4924 0672: MOVLW 26 5109 0555: MOVLW 26
-   5110 0556: BSF 03.6
4925 0673: MOVWF 73 5111 0557: MOVWF 12
-   5112 0558: BCF 03.6
4926 0674: CALL 22E 5113 0559: CALL 22E
4927 .................... I2C_write(0x39); 5114 .................... I2C_write(0x39);
4928 0675: MOVLW 39 5115 055A: MOVLW 39
-   5116 055B: BSF 03.6
4929 0676: MOVWF 73 5117 055C: MOVWF 12
-   5118 055D: BCF 03.6
4930 0677: CALL 22E 5119 055E: CALL 22E
4931 .................... i2c_stop(); 5120 .................... i2c_stop();
4932 0678: BCF 28.4 5121 055F: BCF 28.3
4933 0679: MOVF 28,W 5122 0560: MOVF 28,W
4934 067A: BSF 03.5 5123 0561: BSF 03.5
4935 067B: MOVWF 07 5124 0562: MOVWF 07
4936 067C: NOP 5125 0563: NOP
4937 067D: BCF 03.5 5126 0564: BCF 03.5
4938 067E: BSF 28.3 5127 0565: BSF 28.4
4939 067F: MOVF 28,W 5128 0566: MOVF 28,W
4940 0680: BSF 03.5 5129 0567: BSF 03.5
4941 0681: MOVWF 07 5130 0568: MOVWF 07
4942 0682: BCF 03.5 5131 0569: BCF 03.5
4943 0683: BTFSS 07.3 5132 056A: BTFSS 07.4
4944 0684: GOTO 683 5133 056B: GOTO 56A
4945 0685: NOP 5134 056C: NOP
4946 0686: GOTO 687 5135 056D: GOTO 56E
4947 0687: NOP 5136 056E: NOP
4948 0688: BSF 28.4 5137 056F: BSF 28.3
4949 0689: MOVF 28,W 5138 0570: MOVF 28,W
4950 068A: BSF 03.5 5139 0571: BSF 03.5
4951 068B: MOVWF 07 5140 0572: MOVWF 07
4952 068C: NOP 5141 0573: NOP
4953 .................... } 5142 .................... }
4954 068D: BCF 03.5 5143 0574: BCF 03.5
4955 068E: BSF 0A.3 5144 0575: BCF 0A.3
4956 068F: BSF 0A.4 5145 0576: BSF 0A.4
4957 0690: GOTO 0BB (RETURN) 5146 0577: GOTO 5CD (RETURN)
4958 .................... 5147 ....................
4959 .................... 5148 ....................
4960 .................... byte mpl3115_read (byte reg) 5149 .................... byte mpl3115_read (byte reg)
4961 .................... { 5150 .................... {
4962 .................... byte i; 5151 .................... byte i;
4963 .................... 5152 ....................
4964 .................... i2c_start(); 5153 .................... i2c_start();
4965 0691: BSF 28.4 5154 0578: BSF 28.3
4966 0692: MOVF 28,W 5155 0579: MOVF 28,W
4967 0693: BSF 03.5 5156 057A: BSF 03.5
4968 0694: MOVWF 07 5157 057B: MOVWF 07
4969 0695: NOP 5158 057C: NOP
4970 0696: BCF 03.5 5159 057D: BCF 03.5
4971 0697: BSF 28.3 5160 057E: BSF 28.4
4972 0698: MOVF 28,W 5161 057F: MOVF 28,W
4973 0699: BSF 03.5 5162 0580: BSF 03.5
4974 069A: MOVWF 07 5163 0581: MOVWF 07
4975 069B: NOP 5164 0582: NOP
4976 069C: BCF 03.5 5165 0583: BCF 03.5
4977 069D: BCF 07.4 5166 0584: BCF 07.3
4978 069E: BCF 28.4 5167 0585: BCF 28.3
4979 069F: MOVF 28,W 5168 0586: MOVF 28,W
4980 06A0: BSF 03.5 5169 0587: BSF 03.5
4981 06A1: MOVWF 07 5170 0588: MOVWF 07
4982 06A2: NOP 5171 0589: NOP
4983 06A3: BCF 03.5 5172 058A: BCF 03.5
4984 06A4: BCF 07.3 5173 058B: BCF 07.4
4985 06A5: BCF 28.3 5174 058C: BCF 28.4
4986 06A6: MOVF 28,W 5175 058D: MOVF 28,W
4987 06A7: BSF 03.5 5176 058E: BSF 03.5
4988 06A8: MOVWF 07 5177 058F: MOVWF 07
4989 .................... I2C_Write(MPL3115_ADDR_W); 5178 .................... I2C_Write(MPL3115_ADDR_W);
4990 06A9: MOVLW C0 5179 0590: MOVLW C0
-   5180 0591: BCF 03.5
-   5181 0592: BSF 03.6
4991 06AA: MOVWF 73 5182 0593: MOVWF 12
4992 06AB: BCF 03.5 5183 0594: BCF 03.6
4993 06AC: CALL 22E 5184 0595: CALL 22E
4994 .................... I2C_write(reg); 5185 .................... I2C_write(reg);
-   5186 0596: BSF 03.6
4995 06AD: MOVF 70,W 5187 0597: MOVF 10,W
4996 06AE: MOVWF 73 5188 0598: MOVWF 12
-   5189 0599: BCF 03.6
4997 06AF: CALL 22E 5190 059A: CALL 22E
4998 .................... i2c_start(); 5191 .................... i2c_start();
4999 06B0: BSF 28.4 5192 059B: BSF 28.3
5000 06B1: MOVF 28,W 5193 059C: MOVF 28,W
5001 06B2: BSF 03.5 5194 059D: BSF 03.5
5002 06B3: MOVWF 07 5195 059E: MOVWF 07
5003 06B4: NOP 5196 059F: NOP
5004 06B5: BCF 03.5 5197 05A0: BCF 03.5
5005 06B6: BSF 28.3 5198 05A1: BSF 28.4
5006 06B7: MOVF 28,W 5199 05A2: MOVF 28,W
5007 06B8: BSF 03.5 5200 05A3: BSF 03.5
5008 06B9: MOVWF 07 5201 05A4: MOVWF 07
5009 06BA: NOP 5202 05A5: NOP
5010 06BB: BCF 03.5 5203 05A6: BCF 03.5
5011 06BC: BTFSS 07.3 5204 05A7: BTFSS 07.4
5012 06BD: GOTO 6BC 5205 05A8: GOTO 5A7
5013 06BE: BCF 07.4 5206 05A9: BCF 07.3
5014 06BF: BCF 28.4 5207 05AA: BCF 28.3
5015 06C0: MOVF 28,W 5208 05AB: MOVF 28,W
5016 06C1: BSF 03.5 5209 05AC: BSF 03.5
5017 06C2: MOVWF 07 5210 05AD: MOVWF 07
5018 06C3: NOP 5211 05AE: NOP
5019 06C4: BCF 03.5 5212 05AF: BCF 03.5
5020 06C5: BCF 07.3 5213 05B0: BCF 07.4
5021 06C6: BCF 28.3 5214 05B1: BCF 28.4
5022 06C7: MOVF 28,W 5215 05B2: MOVF 28,W
5023 06C8: BSF 03.5 5216 05B3: BSF 03.5
5024 06C9: MOVWF 07 5217 05B4: MOVWF 07
5025 .................... I2C_Write(MPL3115_ADDR_R); 5218 .................... I2C_Write(MPL3115_ADDR_R);
5026 06CA: MOVLW C1 5219 05B5: MOVLW C1
-   5220 05B6: BCF 03.5
-   5221 05B7: BSF 03.6
5027 06CB: MOVWF 73 5222 05B8: MOVWF 12
5028 06CC: BCF 03.5 5223 05B9: BCF 03.6
5029 06CD: CALL 22E 5224 05BA: CALL 22E
5030 .................... i=i2c_read(0); 5225 .................... i=i2c_read(0);
5031 06CE: CLRF 77 5226 05BB: CLRF 77
5032 06CF: CALL 2B0 5227 05BC: CALL 2B6
5033 06D0: MOVF 78,W 5228 05BD: MOVF 78,W
-   5229 05BE: BSF 03.6
5034 06D1: MOVWF 71 5230 05BF: MOVWF 11
5035 .................... i2c_stop(); 5231 .................... i2c_stop();
-   5232 05C0: BCF 03.6
5036 06D2: BCF 28.4 5233 05C1: BCF 28.3
5037 06D3: MOVF 28,W 5234 05C2: MOVF 28,W
5038 06D4: BSF 03.5 5235 05C3: BSF 03.5
5039 06D5: MOVWF 07 5236 05C4: MOVWF 07
5040 06D6: NOP 5237 05C5: NOP
5041 06D7: BCF 03.5 5238 05C6: BCF 03.5
5042 06D8: BSF 28.3 5239 05C7: BSF 28.4
5043 06D9: MOVF 28,W 5240 05C8: MOVF 28,W
5044 06DA: BSF 03.5 5241 05C9: BSF 03.5
5045 06DB: MOVWF 07 5242 05CA: MOVWF 07
5046 06DC: BCF 03.5 5243 05CB: BCF 03.5
5047 06DD: BTFSS 07.3 5244 05CC: BTFSS 07.4
5048 06DE: GOTO 6DD 5245 05CD: GOTO 5CC
5049 06DF: NOP 5246 05CE: NOP
5050 06E0: GOTO 6E1 5247 05CF: GOTO 5D0
5051 06E1: NOP 5248 05D0: NOP
5052 06E2: BSF 28.4 5249 05D1: BSF 28.3
5053 06E3: MOVF 28,W 5250 05D2: MOVF 28,W
5054 06E4: BSF 03.5 5251 05D3: BSF 03.5
5055 06E5: MOVWF 07 5252 05D4: MOVWF 07
5056 06E6: NOP 5253 05D5: NOP
5057 .................... 5254 ....................
5058 .................... return i; 5255 .................... return i;
-   5256 05D6: BCF 03.5
-   5257 05D7: BSF 03.6
5059 06E7: MOVF 71,W 5258 05D8: MOVF 11,W
5060 06E8: MOVWF 78 5259 05D9: MOVWF 78
5061 .................... } 5260 .................... }
5062 06E9: BCF 03.5 5261 05DA: BCF 03.6
5063 06EA: RETURN 5262 05DB: RETURN
5064 .................... 5263 ....................
5065 .................... 5264 ....................
5066 .................... float mpl3115_T (void) //teplota ve stupnich 5265 .................... float mpl3115_T (void) //teplota ve stupnich
5067 .................... { 5266 .................... {
5068 .................... int m; 5267 .................... int m;
5069 .................... float l, t; 5268 .................... float l, t;
5070 .................... 5269 ....................
5071 .................... m= mpl3115_read (0x04); 5270 .................... m= mpl3115_read (0x04);
-   5271 *
5072 06EB: MOVLW 04 5272 0722: MOVLW 04
-   5273 0723: BSF 03.6
5073 06EC: MOVWF 70 5274 0724: MOVWF 10
-   5275 0725: BCF 03.6
5074 06ED: CALL 691 5276 0726: CALL 578
5075 06EE: MOVF 78,W 5277 0727: MOVF 78,W
-   5278 0728: BSF 03.5
5076 06EF: MOVWF 60 5279 0729: MOVWF 5D
5077 .................... l= (float)(mpl3115_read(0x05)>>4)/16.0; 5280 .................... l= (float)(mpl3115_read(0x05)>>4)/16.0;
5078 06F0: MOVLW 05 5281 072A: MOVLW 05
5079 06F1: MOVWF 70 -  
5080 06F2: CALL 691 -  
5081 06F3: SWAPF 78,W -  
5082 06F4: MOVWF 77 -  
5083 06F5: MOVLW 0F -  
5084 06F6: ANDWF 77,F -  
5085 06F7: MOVF 77,W -  
5086 06F8: CLRF 27 -  
5087 06F9: BTFSC 0B.7 -  
5088 06FA: BSF 27.7 -  
5089 06FB: BCF 0B.7 -  
5090 06FC: BSF 03.5 -  
5091 06FD: CLRF 43 -  
5092 06FE: MOVWF 42 -  
5093 06FF: BCF 03.5 -  
5094 0700: CALL 038 -  
5095 0701: BTFSC 27.7 -  
5096 0702: BSF 0B.7 -  
5097 0703: MOVF 77,W -  
5098 0704: MOVWF 69 -  
5099 0705: MOVF 78,W -  
5100 0706: MOVWF 6A -  
5101 0707: MOVF 79,W -  
5102 0708: MOVWF 6B -  
5103 0709: MOVF 7A,W -  
5104 070A: MOVWF 6C -  
5105 070B: CLRF 27 -  
5106 070C: BTFSC 0B.7 -  
5107 070D: BSF 27.7 -  
5108 070E: BCF 0B.7 -  
5109 070F: MOVF 6C,W -  
5110 0710: BSF 03.5 -  
5111 0711: MOVWF 45 -  
5112 0712: BCF 03.5 -  
5113 0713: MOVF 6B,W -  
5114 0714: BSF 03.5 -  
5115 0715: MOVWF 44 -  
5116 0716: BCF 03.5 -  
5117 0717: MOVF 6A,W -  
5118 0718: BSF 03.5 -  
5119 0719: MOVWF 43 -  
5120 071A: BCF 03.5 5282 072B: BCF 03.5
5121 071B: MOVF 69,W -  
5122 071C: BSF 03.5 5283 072C: BSF 03.6
5123 071D: MOVWF 42 5284 072D: MOVWF 10
5124 071E: CLRF 49 -  
5125 071F: CLRF 48 -  
5126 0720: CLRF 47 -  
5127 0721: MOVLW 83 -  
5128 0722: MOVWF 46 -  
5129 0723: BCF 03.5 5285 072E: BCF 03.6
5130 0724: CALL 057 5286 072F: CALL 578
5131 0725: BTFSC 27.7 -  
5132 0726: BSF 0B.7 -  
5133 0727: MOVF 7A,W 5287 0730: SWAPF 78,W
5134 0728: MOVWF 64 5288 0731: MOVWF 77
5135 0729: MOVF 79,W -  
5136 072A: MOVWF 63 5289 0732: MOVLW 0F
5137 072B: MOVF 78,W 5290 0733: ANDWF 77,F
5138 072C: MOVWF 62 -  
5139 072D: MOVF 77,W 5291 0734: MOVF 77,W
5140 072E: MOVWF 61 -  
5141 072F: CLRF 27 5292 0735: CLRF 27
5142 0730: BTFSC 0B.7 5293 0736: BTFSC 0B.7
5143 0731: BSF 27.7 5294 0737: BSF 27.7
5144 0732: BCF 0B.7 5295 0738: BCF 0B.7
5145 .................... t = (float)(M + L); -  
5146 0733: BSF 03.5 5296 0739: BSF 03.6
5147 0734: CLRF 43 5297 073A: CLRF 45
5148 0735: BCF 03.5 -  
5149 0736: MOVF 60,W -  
5150 0737: BSF 03.5 -  
5151 0738: MOVWF 42 5298 073B: MOVWF 44
5152 0739: BCF 03.5 5299 073C: BCF 03.6
5153 073A: CALL 038 5300 073D: CALL 038
5154 073B: BTFSC 27.7 5301 073E: BTFSC 27.7
5155 073C: BSF 0B.7 5302 073F: BSF 0B.7
5156 073D: BCF 03.1 -  
5157 073E: MOVF 7A,W 5303 0740: MOVF 77,W
5158 073F: BSF 03.5 5304 0741: BSF 03.5
5159 0740: MOVWF 2C -  
5160 0741: MOVF 79,W -  
5161 0742: MOVWF 2B 5305 0742: MOVWF 66
5162 0743: MOVF 78,W 5306 0743: MOVF 78,W
5163 0744: MOVWF 2A 5307 0744: MOVWF 67
5164 0745: MOVF 77,W 5308 0745: MOVF 79,W
-   5309 0746: MOVWF 68
-   5310 0747: MOVF 7A,W
5165 0746: MOVWF 29 5311 0748: MOVWF 69
5166 0747: BCF 03.5 5312 0749: BCF 03.5
-   5313 074A: CLRF 27
-   5314 074B: BTFSC 0B.7
-   5315 074C: BSF 27.7
-   5316 074D: BCF 0B.7
-   5317 074E: BSF 03.5
5167 0748: MOVF 64,W 5318 074F: MOVF 69,W
-   5319 0750: BCF 03.5
5168 0749: BSF 03.5 5320 0751: BSF 03.6
5169 074A: MOVWF 30 5321 0752: MOVWF 59
-   5322 0753: BSF 03.5
5170 074B: BCF 03.5 5323 0754: BCF 03.6
5171 074C: MOVF 63,W 5324 0755: MOVF 68,W
-   5325 0756: BCF 03.5
5172 074D: BSF 03.5 5326 0757: BSF 03.6
5173 074E: MOVWF 2F 5327 0758: MOVWF 58
-   5328 0759: BSF 03.5
5174 074F: BCF 03.5 5329 075A: BCF 03.6
5175 0750: MOVF 62,W 5330 075B: MOVF 67,W
-   5331 075C: BCF 03.5
5176 0751: BSF 03.5 5332 075D: BSF 03.6
5177 0752: MOVWF 2E 5333 075E: MOVWF 57
5178 0753: BCF 03.5 5334 075F: BSF 03.5
-   5335 0760: BCF 03.6
5179 0754: MOVF 61,W 5336 0761: MOVF 66,W
-   5337 0762: BCF 03.5
-   5338 0763: BSF 03.6
-   5339 0764: MOVWF 56
-   5340 0765: CLRF 5D
-   5341 0766: CLRF 5C
-   5342 0767: CLRF 5B
-   5343 0768: MOVLW 83
-   5344 0769: MOVWF 5A
-   5345 076A: BCF 03.6
-   5346 076B: CALL 057
-   5347 076C: BTFSC 27.7
-   5348 076D: BSF 0B.7
-   5349 076E: MOVF 7A,W
5180 0755: BSF 03.5 5350 076F: BSF 03.5
-   5351 0770: MOVWF 61
-   5352 0771: MOVF 79,W
-   5353 0772: MOVWF 60
-   5354 0773: MOVF 78,W
-   5355 0774: MOVWF 5F
-   5356 0775: MOVF 77,W
5181 0756: MOVWF 2D 5357 0776: MOVWF 5E
-   5358 0777: BCF 03.5
-   5359 0778: CLRF 27
-   5360 0779: BTFSC 0B.7
-   5361 077A: BSF 27.7
-   5362 077B: BCF 0B.7
-   5363 .................... t = (float)(M + L);
-   5364 077C: BSF 03.6
-   5365 077D: CLRF 45
5182 0757: BSF 0A.3 5366 077E: BSF 03.5
-   5367 077F: BCF 03.6
-   5368 0780: MOVF 5D,W
5183 0758: BCF 03.5 5369 0781: BCF 03.5
-   5370 0782: BSF 03.6
-   5371 0783: MOVWF 44
-   5372 0784: BCF 03.6
5184 0759: CALL 000 5373 0785: CALL 038
-   5374 0786: BTFSC 27.7
-   5375 0787: BSF 0B.7
5185 075A: BCF 0A.3 5376 0788: BCF 03.1
5186 075B: MOVF 7A,W 5377 0789: MOVF 7A,W
-   5378 078A: BSF 03.6
-   5379 078B: MOVWF 24
-   5380 078C: MOVF 79,W
-   5381 078D: MOVWF 23
-   5382 078E: MOVF 78,W
-   5383 078F: MOVWF 22
-   5384 0790: MOVF 77,W
-   5385 0791: MOVWF 21
-   5386 0792: BSF 03.5
-   5387 0793: BCF 03.6
-   5388 0794: MOVF 61,W
-   5389 0795: BCF 03.5
-   5390 0796: BSF 03.6
5187 075C: MOVWF 68 5391 0797: MOVWF 28
-   5392 0798: BSF 03.5
-   5393 0799: BCF 03.6
-   5394 079A: MOVF 60,W
-   5395 079B: BCF 03.5
-   5396 079C: BSF 03.6
-   5397 079D: MOVWF 27
-   5398 079E: BSF 03.5
-   5399 079F: BCF 03.6
-   5400 07A0: MOVF 5F,W
-   5401 07A1: BCF 03.5
-   5402 07A2: BSF 03.6
-   5403 07A3: MOVWF 26
-   5404 07A4: BSF 03.5
-   5405 07A5: BCF 03.6
-   5406 07A6: MOVF 5E,W
-   5407 07A7: BCF 03.5
-   5408 07A8: BSF 03.6
-   5409 07A9: MOVWF 25
-   5410 07AA: BCF 03.6
-   5411 07AB: CALL 5DC
5188 075D: MOVF 79,W 5412 07AC: MOVF 7A,W
-   5413 07AD: BSF 03.5
5189 075E: MOVWF 67 5414 07AE: MOVWF 65
5190 075F: MOVF 78,W 5415 07AF: MOVF 79,W
5191 0760: MOVWF 66 5416 07B0: MOVWF 64
5192 0761: MOVF 77,W 5417 07B1: MOVF 78,W
5193 0762: MOVWF 65 5418 07B2: MOVWF 63
-   5419 07B3: MOVF 77,W
-   5420 07B4: MOVWF 62
5194 .................... return t; 5421 .................... return t;
5195 0763: MOVF 65,W 5422 07B5: MOVF 62,W
5196 0764: MOVWF 77 5423 07B6: MOVWF 77
5197 0765: MOVF 66,W 5424 07B7: MOVF 63,W
5198 0766: MOVWF 78 5425 07B8: MOVWF 78
5199 0767: MOVF 67,W 5426 07B9: MOVF 64,W
5200 0768: MOVWF 79 5427 07BA: MOVWF 79
5201 0769: MOVF 68,W 5428 07BB: MOVF 65,W
5202 076A: MOVWF 7A 5429 07BC: MOVWF 7A
5203 .................... } 5430 .................... }
-   5431 07BD: BCF 03.5
5204 076B: BSF 0A.3 5432 07BE: BCF 0A.3
5205 076C: BSF 0A.4 5433 07BF: BSF 0A.4
5206 076D: GOTO 0CB (RETURN) 5434 07C0: GOTO 5DB (RETURN)
5207 .................... 5435 ....................
5208 .................... float mpl3115_A (void) //vyska v m 5436 .................... float mpl3115_A (void) //vyska v m
5209 .................... { 5437 .................... {
5210 .................... 5438 ....................
5211 .................... int16 m; 5439 .................... int16 m;
5212 .................... unsigned int8 c; 5440 .................... unsigned int8 c;
5213 .................... float l, a; 5441 .................... float l, a;
5214 .................... 5442 ....................
5215 .................... m= mpl3115_read (0x01); 5443 .................... m= mpl3115_read (0x01);
5216 * 5444 *
5217 0ADD: MOVLW 01 5445 09D9: MOVLW 01
-   5446 09DA: BSF 03.6
5218 0ADE: MOVWF 70 5447 09DB: MOVWF 10
5219 0ADF: BCF 0A.3 5448 09DC: BCF 0A.3
-   5449 09DD: BCF 03.6
5220 0AE0: CALL 691 5450 09DE: CALL 578
5221 0AE1: BSF 0A.3 5451 09DF: BSF 0A.3
-   5452 09E0: BSF 03.5
5222 0AE2: CLRF 61 5453 09E1: CLRF 5E
5223 0AE3: MOVF 78,W 5454 09E2: MOVF 78,W
5224 0AE4: MOVWF 60 5455 09E3: MOVWF 5D
5225 .................... c= mpl3115_read (0x02); 5456 .................... c= mpl3115_read (0x02);
5226 0AE5: MOVLW 02 5457 09E4: MOVLW 02
-   5458 09E5: BCF 03.5
-   5459 09E6: BSF 03.6
5227 0AE6: MOVWF 70 5460 09E7: MOVWF 10
5228 0AE7: BCF 0A.3 5461 09E8: BCF 0A.3
-   5462 09E9: BCF 03.6
5229 0AE8: CALL 691 5463 09EA: CALL 578
5230 0AE9: BSF 0A.3 5464 09EB: BSF 0A.3
5231 0AEA: MOVF 78,W 5465 09EC: MOVF 78,W
-   5466 09ED: BSF 03.5
5232 0AEB: MOVWF 62 5467 09EE: MOVWF 5F
5233 .................... l= (float)(mpl3115_read(0x03)>>4)/16.0; 5468 .................... l= (float)(mpl3115_read(0x03)>>4)/16.0;
5234 0AEC: MOVLW 03 5469 09EF: MOVLW 03
-   5470 09F0: BCF 03.5
-   5471 09F1: BSF 03.6
5235 0AED: MOVWF 70 5472 09F2: MOVWF 10
5236 0AEE: BCF 0A.3 5473 09F3: BCF 0A.3
-   5474 09F4: BCF 03.6
5237 0AEF: CALL 691 5475 09F5: CALL 578
5238 0AF0: BSF 0A.3 5476 09F6: BSF 0A.3
5239 0AF1: SWAPF 78,W 5477 09F7: SWAPF 78,W
5240 0AF2: MOVWF 77 5478 09F8: MOVWF 77
5241 0AF3: MOVLW 0F 5479 09F9: MOVLW 0F
5242 0AF4: ANDWF 77,F 5480 09FA: ANDWF 77,F
5243 0AF5: MOVF 77,W 5481 09FB: MOVF 77,W
5244 0AF6: CLRF 27 5482 09FC: CLRF 27
5245 0AF7: BTFSC 0B.7 5483 09FD: BTFSC 0B.7
5246 0AF8: BSF 27.7 5484 09FE: BSF 27.7
5247 0AF9: BCF 0B.7 5485 09FF: BCF 0B.7
5248 0AFA: BSF 03.5 5486 0A00: BSF 03.6
5249 0AFB: CLRF 43 5487 0A01: CLRF 45
5250 0AFC: MOVWF 42 5488 0A02: MOVWF 44
5251 0AFD: BCF 0A.3 5489 0A03: BCF 0A.3
5252 0AFE: BCF 03.5 5490 0A04: BCF 03.6
5253 0AFF: CALL 038 5491 0A05: CALL 038
5254 0B00: BSF 0A.3 5492 0A06: BSF 0A.3
5255 0B01: BTFSC 27.7 5493 0A07: BTFSC 27.7
5256 0B02: BSF 0B.7 5494 0A08: BSF 0B.7
5257 0B03: MOVF 77,W 5495 0A09: MOVF 77,W
-   5496 0A0A: BSF 03.5
5258 0B04: MOVWF 6B 5497 0A0B: MOVWF 68
5259 0B05: MOVF 78,W 5498 0A0C: MOVF 78,W
5260 0B06: MOVWF 6C 5499 0A0D: MOVWF 69
5261 0B07: MOVF 79,W 5500 0A0E: MOVF 79,W
5262 0B08: MOVWF 6D 5501 0A0F: MOVWF 6A
5263 0B09: MOVF 7A,W 5502 0A10: MOVF 7A,W
5264 0B0A: MOVWF 6E 5503 0A11: MOVWF 6B
-   5504 0A12: BCF 03.5
5265 0B0B: CLRF 27 5505 0A13: CLRF 27
5266 0B0C: BTFSC 0B.7 5506 0A14: BTFSC 0B.7
5267 0B0D: BSF 27.7 5507 0A15: BSF 27.7
5268 0B0E: BCF 0B.7 5508 0A16: BCF 0B.7
-   5509 0A17: BSF 03.5
5269 0B0F: MOVF 7A,W 5510 0A18: MOVF 6B,W
-   5511 0A19: BCF 03.5
5270 0B10: BSF 03.5 5512 0A1A: BSF 03.6
5271 0B11: MOVWF 45 5513 0A1B: MOVWF 59
-   5514 0A1C: BSF 03.5
5272 0B12: BCF 03.5 5515 0A1D: BCF 03.6
5273 0B13: MOVF 79,W 5516 0A1E: MOVF 6A,W
5274 0B14: BSF 03.5 5517 0A1F: BCF 03.5
-   5518 0A20: BSF 03.6
5275 0B15: MOVWF 44 5519 0A21: MOVWF 58
-   5520 0A22: BSF 03.5
5276 0B16: BCF 03.5 5521 0A23: BCF 03.6
5277 0B17: MOVF 78,W 5522 0A24: MOVF 69,W
-   5523 0A25: BCF 03.5
5278 0B18: BSF 03.5 5524 0A26: BSF 03.6
5279 0B19: MOVWF 43 5525 0A27: MOVWF 57
-   5526 0A28: BSF 03.5
5280 0B1A: BCF 03.5 5527 0A29: BCF 03.6
5281 0B1B: MOVF 77,W 5528 0A2A: MOVF 68,W
-   5529 0A2B: BCF 03.5
5282 0B1C: BSF 03.5 5530 0A2C: BSF 03.6
5283 0B1D: MOVWF 42 5531 0A2D: MOVWF 56
5284 0B1E: CLRF 49 5532 0A2E: CLRF 5D
5285 0B1F: CLRF 48 5533 0A2F: CLRF 5C
5286 0B20: CLRF 47 5534 0A30: CLRF 5B
5287 0B21: MOVLW 83 5535 0A31: MOVLW 83
5288 0B22: MOVWF 46 5536 0A32: MOVWF 5A
5289 0B23: BCF 0A.3 5537 0A33: BCF 0A.3
5290 0B24: BCF 03.5 5538 0A34: BCF 03.6
5291 0B25: CALL 057 5539 0A35: CALL 057
5292 0B26: BSF 0A.3 5540 0A36: BSF 0A.3
5293 0B27: BTFSC 27.7 5541 0A37: BTFSC 27.7
5294 0B28: BSF 0B.7 5542 0A38: BSF 0B.7
5295 0B29: MOVF 7A,W 5543 0A39: MOVF 7A,W
-   5544 0A3A: BSF 03.5
5296 0B2A: MOVWF 66 5545 0A3B: MOVWF 63
5297 0B2B: MOVF 79,W 5546 0A3C: MOVF 79,W
5298 0B2C: MOVWF 65 5547 0A3D: MOVWF 62
5299 0B2D: MOVF 78,W 5548 0A3E: MOVF 78,W
5300 0B2E: MOVWF 64 5549 0A3F: MOVWF 61
5301 0B2F: MOVF 77,W 5550 0A40: MOVF 77,W
5302 0B30: MOVWF 63 5551 0A41: MOVWF 60
5303 .................... a = (float)((m << 8)|c) + l; 5552 .................... a = (float)((m << 8)|c) + l;
5304 0B31: MOVF 60,W 5553 0A42: MOVF 5D,W
5305 0B32: MOVWF 6D 5554 0A43: MOVWF 6A
5306 0B33: CLRF 6C 5555 0A44: CLRF 69
5307 0B34: MOVF 6C,W 5556 0A45: MOVF 69,W
5308 0B35: IORWF 62,W 5557 0A46: IORWF 5F,W
5309 0B36: MOVWF 77 5558 0A47: MOVWF 77
5310 0B37: MOVF 60,W 5559 0A48: MOVF 5D,W
5311 0B38: MOVWF 7A 5560 0A49: MOVWF 7A
5312 0B39: MOVF 77,W 5561 0A4A: MOVF 77,W
-   5562 0A4B: BCF 03.5
5313 0B3A: CLRF 27 5563 0A4C: CLRF 27
5314 0B3B: BTFSC 0B.7 5564 0A4D: BTFSC 0B.7
5315 0B3C: BSF 27.7 5565 0A4E: BSF 27.7
5316 0B3D: BCF 0B.7 5566 0A4F: BCF 0B.7
5317 0B3E: BSF 03.5 5567 0A50: BSF 03.6
5318 0B3F: MOVWF 42 5568 0A51: MOVWF 44
5319 0B40: MOVF 7A,W 5569 0A52: MOVF 7A,W
5320 0B41: MOVWF 43 5570 0A53: MOVWF 45
5321 0B42: BCF 0A.3 5571 0A54: BCF 0A.3
5322 0B43: BCF 03.5 5572 0A55: BCF 03.6
5323 0B44: CALL 038 5573 0A56: CALL 038
5324 0B45: BSF 0A.3 5574 0A57: BSF 0A.3
5325 0B46: BTFSC 27.7 5575 0A58: BTFSC 27.7
5326 0B47: BSF 0B.7 5576 0A59: BSF 0B.7
5327 0B48: MOVF 77,W 5577 0A5A: MOVF 77,W
-   5578 0A5B: BSF 03.5
5328 0B49: MOVWF 6C 5579 0A5C: MOVWF 69
5329 0B4A: MOVF 78,W 5580 0A5D: MOVF 78,W
5330 0B4B: MOVWF 6D 5581 0A5E: MOVWF 6A
5331 0B4C: MOVF 79,W 5582 0A5F: MOVF 79,W
5332 0B4D: MOVWF 6E 5583 0A60: MOVWF 6B
5333 0B4E: MOVF 7A,W 5584 0A61: MOVF 7A,W
5334 0B4F: MOVWF 6F 5585 0A62: MOVWF 6C
5335 0B50: BCF 03.1 5586 0A63: BCF 03.1
5336 0B51: MOVF 7A,W 5587 0A64: MOVF 6C,W
-   5588 0A65: BCF 03.5
5337 0B52: BSF 03.5 5589 0A66: BSF 03.6
5338 0B53: MOVWF 2C 5590 0A67: MOVWF 24
-   5591 0A68: BSF 03.5
5339 0B54: BCF 03.5 5592 0A69: BCF 03.6
5340 0B55: MOVF 79,W 5593 0A6A: MOVF 6B,W
-   5594 0A6B: BCF 03.5
5341 0B56: BSF 03.5 5595 0A6C: BSF 03.6
5342 0B57: MOVWF 2B 5596 0A6D: MOVWF 23
-   5597 0A6E: BSF 03.5
5343 0B58: BCF 03.5 5598 0A6F: BCF 03.6
5344 0B59: MOVF 78,W 5599 0A70: MOVF 6A,W
-   5600 0A71: BCF 03.5
5345 0B5A: BSF 03.5 5601 0A72: BSF 03.6
5346 0B5B: MOVWF 2A 5602 0A73: MOVWF 22
-   5603 0A74: BSF 03.5
5347 0B5C: BCF 03.5 5604 0A75: BCF 03.6
5348 0B5D: MOVF 77,W 5605 0A76: MOVF 69,W
-   5606 0A77: BCF 03.5
5349 0B5E: BSF 03.5 5607 0A78: BSF 03.6
5350 0B5F: MOVWF 29 5608 0A79: MOVWF 21
-   5609 0A7A: BSF 03.5
5351 0B60: BCF 03.5 5610 0A7B: BCF 03.6
5352 0B61: MOVF 66,W 5611 0A7C: MOVF 63,W
-   5612 0A7D: BCF 03.5
5353 0B62: BSF 03.5 5613 0A7E: BSF 03.6
5354 0B63: MOVWF 30 5614 0A7F: MOVWF 28
-   5615 0A80: BSF 03.5
5355 0B64: BCF 03.5 5616 0A81: BCF 03.6
5356 0B65: MOVF 65,W 5617 0A82: MOVF 62,W
-   5618 0A83: BCF 03.5
5357 0B66: BSF 03.5 5619 0A84: BSF 03.6
5358 0B67: MOVWF 2F 5620 0A85: MOVWF 27
-   5621 0A86: BSF 03.5
5359 0B68: BCF 03.5 5622 0A87: BCF 03.6
5360 0B69: MOVF 64,W 5623 0A88: MOVF 61,W
-   5624 0A89: BCF 03.5
5361 0B6A: BSF 03.5 5625 0A8A: BSF 03.6
5362 0B6B: MOVWF 2E 5626 0A8B: MOVWF 26
5363 0B6C: BCF 03.5 5627 0A8C: BSF 03.5
-   5628 0A8D: BCF 03.6
5364 0B6D: MOVF 63,W 5629 0A8E: MOVF 60,W
-   5630 0A8F: BCF 03.5
5365 0B6E: BSF 03.5 5631 0A90: BSF 03.6
5366 0B6F: MOVWF 2D 5632 0A91: MOVWF 25
-   5633 0A92: BCF 0A.3
5367 0B70: BCF 03.5 5634 0A93: BCF 03.6
5368 0B71: CALL 000 5635 0A94: CALL 5DC
-   5636 0A95: BSF 0A.3
5369 0B72: MOVF 7A,W 5637 0A96: MOVF 7A,W
-   5638 0A97: BSF 03.5
5370 0B73: MOVWF 6A 5639 0A98: MOVWF 67
5371 0B74: MOVF 79,W 5640 0A99: MOVF 79,W
5372 0B75: MOVWF 69 5641 0A9A: MOVWF 66
5373 0B76: MOVF 78,W 5642 0A9B: MOVF 78,W
5374 0B77: MOVWF 68 5643 0A9C: MOVWF 65
5375 0B78: MOVF 77,W 5644 0A9D: MOVF 77,W
5376 0B79: MOVWF 67 5645 0A9E: MOVWF 64
5377 .................... return a; 5646 .................... return a;
5378 0B7A: MOVF 67,W 5647 0A9F: MOVF 64,W
5379 0B7B: MOVWF 77 5648 0AA0: MOVWF 77
5380 0B7C: MOVF 68,W 5649 0AA1: MOVF 65,W
5381 0B7D: MOVWF 78 5650 0AA2: MOVWF 78
5382 0B7E: MOVF 69,W 5651 0AA3: MOVF 66,W
5383 0B7F: MOVWF 79 5652 0AA4: MOVWF 79
5384 0B80: MOVF 6A,W 5653 0AA5: MOVF 67,W
5385 0B81: MOVWF 7A 5654 0AA6: MOVWF 7A
5386 .................... } 5655 .................... }
-   5656 0AA7: BCF 03.5
5387 0B82: BSF 0A.3 5657 0AA8: BCF 0A.3
5388 0B83: BSF 0A.4 5658 0AA9: BSF 0A.4
5389 0B84: GOTO 0F0 (RETURN) 5659 0AAA: GOTO 604 (RETURN)
5390 .................... 5660 ....................
5391 .................... 5661 ....................
5392 .................... float mpl3115_P (void) //tlak v Pa 5662 .................... float mpl3115_P (void) //tlak v Pa
5393 .................... { 5663 .................... {
5394 .................... unsigned int32 m; 5664 .................... unsigned int32 m;
Line 5396... Line 5666...
5396 .................... unsigned int8 l,l2; 5666 .................... unsigned int8 l,l2;
5397 .................... float p, l1; 5667 .................... float p, l1;
5398 .................... 5668 ....................
5399 .................... m= mpl3115_read (0x01); 5669 .................... m= mpl3115_read (0x01);
5400 * 5670 *
5401 0946: MOVLW 01 5671 0800: MOVLW 01
-   5672 0801: BSF 03.6
5402 0947: MOVWF 70 5673 0802: MOVWF 10
5403 0948: BCF 0A.3 5674 0803: BCF 0A.3
-   5675 0804: BCF 03.6
5404 0949: CALL 691 5676 0805: CALL 578
5405 094A: BSF 0A.3 5677 0806: BSF 0A.3
-   5678 0807: BSF 03.5
5406 094B: CLRF 63 5679 0808: CLRF 60
5407 094C: CLRF 62 5680 0809: CLRF 5F
5408 094D: CLRF 61 5681 080A: CLRF 5E
5409 094E: MOVF 78,W 5682 080B: MOVF 78,W
5410 094F: MOVWF 60 5683 080C: MOVWF 5D
5411 .................... c= mpl3115_read (0x02); 5684 .................... c= mpl3115_read (0x02);
5412 0950: MOVLW 02 5685 080D: MOVLW 02
-   5686 080E: BCF 03.5
-   5687 080F: BSF 03.6
5413 0951: MOVWF 70 5688 0810: MOVWF 10
5414 0952: BCF 0A.3 5689 0811: BCF 0A.3
-   5690 0812: BCF 03.6
5415 0953: CALL 691 5691 0813: CALL 578
5416 0954: BSF 0A.3 5692 0814: BSF 0A.3
-   5693 0815: BSF 03.5
5417 0955: CLRF 65 5694 0816: CLRF 62
5418 0956: MOVF 78,W 5695 0817: MOVF 78,W
5419 0957: MOVWF 64 5696 0818: MOVWF 61
5420 .................... l=mpl3115_read(0x03); 5697 .................... l=mpl3115_read(0x03);
5421 0958: MOVLW 03 5698 0819: MOVLW 03
-   5699 081A: BCF 03.5
-   5700 081B: BSF 03.6
5422 0959: MOVWF 70 5701 081C: MOVWF 10
5423 095A: BCF 0A.3 5702 081D: BCF 0A.3
-   5703 081E: BCF 03.6
5424 095B: CALL 691 5704 081F: CALL 578
5425 095C: BSF 0A.3 5705 0820: BSF 0A.3
5426 095D: MOVF 78,W 5706 0821: MOVF 78,W
-   5707 0822: BSF 03.5
5427 095E: MOVWF 66 5708 0823: MOVWF 63
5428 .................... l2=l<<2; 5709 .................... l2=l<<2;
5429 095F: RLF 66,W 5710 0824: RLF 63,W
5430 0960: MOVWF 67 5711 0825: MOVWF 64
5431 0961: RLF 67,F 5712 0826: RLF 64,F
5432 0962: MOVLW FC 5713 0827: MOVLW FC
5433 0963: ANDWF 67,F 5714 0828: ANDWF 64,F
5434 .................... l1= (float)(l>>6)/4.0; 5715 .................... l1= (float)(l>>6)/4.0;
5435 0964: SWAPF 66,W 5716 0829: SWAPF 63,W
5436 0965: MOVWF 77 5717 082A: MOVWF 77
5437 0966: RRF 77,F 5718 082B: RRF 77,F
5438 0967: RRF 77,F 5719 082C: RRF 77,F
5439 0968: MOVLW 03 5720 082D: MOVLW 03
5440 0969: ANDWF 77,F 5721 082E: ANDWF 77,F
5441 096A: MOVF 77,W 5722 082F: MOVF 77,W
-   5723 0830: BCF 03.5
5442 096B: CLRF 27 5724 0831: CLRF 27
5443 096C: BTFSC 0B.7 5725 0832: BTFSC 0B.7
5444 096D: BSF 27.7 5726 0833: BSF 27.7
5445 096E: BCF 0B.7 5727 0834: BCF 0B.7
5446 096F: BSF 03.5 5728 0835: BSF 03.6
5447 0970: CLRF 43 5729 0836: CLRF 45
5448 0971: MOVWF 42 5730 0837: MOVWF 44
5449 0972: BCF 0A.3 5731 0838: BCF 0A.3
5450 0973: BCF 03.5 5732 0839: BCF 03.6
5451 0974: CALL 038 5733 083A: CALL 038
5452 0975: BSF 0A.3 5734 083B: BSF 0A.3
5453 0976: BTFSC 27.7 5735 083C: BTFSC 27.7
5454 0977: BSF 0B.7 5736 083D: BSF 0B.7
5455 0978: MOVF 77,W 5737 083E: MOVF 77,W
-   5738 083F: BSF 03.6
5456 0979: MOVWF 71 5739 0840: MOVWF 11
5457 097A: MOVF 78,W 5740 0841: MOVF 78,W
5458 097B: MOVWF 72 5741 0842: MOVWF 12
5459 097C: MOVF 79,W 5742 0843: MOVF 79,W
5460 097D: MOVWF 73 5743 0844: MOVWF 13
5461 097E: MOVF 7A,W 5744 0845: MOVF 7A,W
5462 097F: MOVWF 74 5745 0846: MOVWF 14
-   5746 0847: BCF 03.6
5463 0980: CLRF 27 5747 0848: CLRF 27
5464 0981: BTFSC 0B.7 5748 0849: BTFSC 0B.7
5465 0982: BSF 27.7 5749 084A: BSF 27.7
5466 0983: BCF 0B.7 5750 084B: BCF 0B.7
5467 0984: MOVF 74,W 5751 084C: BSF 03.6
5468 0985: BSF 03.5 5752 084D: MOVF 14,W
5469 0986: MOVWF 45 5753 084E: MOVWF 59
5470 0987: MOVF 73,W 5754 084F: MOVF 13,W
5471 0988: MOVWF 44 5755 0850: MOVWF 58
5472 0989: MOVF 72,W 5756 0851: MOVF 12,W
5473 098A: MOVWF 43 5757 0852: MOVWF 57
5474 098B: MOVF 71,W 5758 0853: MOVF 11,W
5475 098C: MOVWF 42 5759 0854: MOVWF 56
5476 098D: CLRF 49 5760 0855: CLRF 5D
5477 098E: CLRF 48 5761 0856: CLRF 5C
5478 098F: CLRF 47 5762 0857: CLRF 5B
5479 0990: MOVLW 81 5763 0858: MOVLW 81
5480 0991: MOVWF 46 5764 0859: MOVWF 5A
5481 0992: BCF 0A.3 5765 085A: BCF 0A.3
5482 0993: BCF 03.5 5766 085B: BCF 03.6
5483 0994: CALL 057 5767 085C: CALL 057
5484 0995: BSF 0A.3 5768 085D: BSF 0A.3
5485 0996: BTFSC 27.7 5769 085E: BTFSC 27.7
5486 0997: BSF 0B.7 5770 085F: BSF 0B.7
5487 0998: MOVF 7A,W 5771 0860: MOVF 7A,W
-   5772 0861: BSF 03.5
5488 0999: MOVWF 6F 5773 0862: MOVWF 6C
5489 099A: MOVF 79,W 5774 0863: MOVF 79,W
5490 099B: MOVWF 6E 5775 0864: MOVWF 6B
5491 099C: MOVF 78,W 5776 0865: MOVF 78,W
5492 099D: MOVWF 6D 5777 0866: MOVWF 6A
5493 099E: MOVF 77,W 5778 0867: MOVF 77,W
5494 099F: MOVWF 6C 5779 0868: MOVWF 69
5495 .................... p = (float)((m << 10)|(c<<2)|(l>>6)) + l1; 5780 .................... p = (float)((m << 10)|(c<<2)|(l>>6)) + l1;
-   5781 0869: BCF 03.5
-   5782 086A: BSF 03.6
5496 09A0: CLRF 71 5783 086B: CLRF 11
-   5784 086C: BSF 03.5
-   5785 086D: BCF 03.6
5497 09A1: RLF 60,W 5786 086E: RLF 5D,W
-   5787 086F: BCF 03.5
-   5788 0870: BSF 03.6
5498 09A2: MOVWF 72 5789 0871: MOVWF 12
-   5790 0872: BSF 03.5
-   5791 0873: BCF 03.6
5499 09A3: RLF 61,W 5792 0874: RLF 5E,W
-   5793 0875: BCF 03.5
-   5794 0876: BSF 03.6
5500 09A4: MOVWF 73 5795 0877: MOVWF 13
-   5796 0878: BSF 03.5
-   5797 0879: BCF 03.6
5501 09A5: RLF 62,W 5798 087A: RLF 5F,W
-   5799 087B: BCF 03.5
-   5800 087C: BSF 03.6
5502 09A6: MOVWF 74 5801 087D: MOVWF 14
5503 09A7: RLF 72,F 5802 087E: RLF 12,F
5504 09A8: RLF 73,F 5803 087F: RLF 13,F
5505 09A9: RLF 74,F 5804 0880: RLF 14,F
5506 09AA: MOVLW FC 5805 0881: MOVLW FC
5507 09AB: ANDWF 72,F 5806 0882: ANDWF 12,F
-   5807 0883: BSF 03.5
-   5808 0884: BCF 03.6
5508 09AC: RLF 64,W 5809 0885: RLF 61,W
5509 09AD: MOVWF 79 5810 0886: MOVWF 79
5510 09AE: RLF 65,W 5811 0887: RLF 62,W
5511 09AF: MOVWF 7A 5812 0888: MOVWF 7A
5512 09B0: RLF 79,F 5813 0889: RLF 79,F
5513 09B1: RLF 7A,F 5814 088A: RLF 7A,F
5514 09B2: MOVLW FC 5815 088B: MOVLW FC
5515 09B3: ANDWF 79,F 5816 088C: ANDWF 79,F
5516 09B4: MOVF 79,W 5817 088D: MOVF 79,W
-   5818 088E: BCF 03.5
-   5819 088F: BSF 03.6
5517 09B5: IORWF 71,F 5820 0890: IORWF 11,F
5518 09B6: MOVF 7A,W 5821 0891: MOVF 7A,W
5519 09B7: IORWF 72,F 5822 0892: IORWF 12,F
-   5823 0893: BSF 03.5
-   5824 0894: BCF 03.6
5520 09B8: SWAPF 66,W 5825 0895: SWAPF 63,W
5521 09B9: MOVWF 77 5826 0896: MOVWF 77
5522 09BA: RRF 77,F 5827 0897: RRF 77,F
5523 09BB: RRF 77,F 5828 0898: RRF 77,F
5524 09BC: MOVLW 03 5829 0899: MOVLW 03
5525 09BD: ANDWF 77,F 5830 089A: ANDWF 77,F
5526 09BE: MOVF 77,W 5831 089B: MOVF 77,W
-   5832 089C: BCF 03.5
-   5833 089D: BSF 03.6
5527 09BF: IORWF 71,W 5834 089E: IORWF 11,W
5528 09C0: MOVWF 77 5835 089F: MOVWF 77
5529 09C1: MOVF 72,W 5836 08A0: MOVF 12,W
5530 09C2: MOVWF 78 5837 08A1: MOVWF 78
5531 09C3: MOVF 73,W 5838 08A2: MOVF 13,W
5532 09C4: MOVWF 79 5839 08A3: MOVWF 79
5533 09C5: MOVF 74,W 5840 08A4: MOVF 14,W
5534 09C6: MOVWF 7A 5841 08A5: MOVWF 7A
5535 09C7: MOVF 7A,W 5842 08A6: MOVF 7A,W
5536 09C8: MOVWF 7E 5843 08A7: MOVWF 1A
5537 09C9: MOVF 79,W 5844 08A8: MOVF 79,W
5538 09CA: MOVWF 7D 5845 08A9: MOVWF 19
5539 09CB: MOVF 78,W 5846 08AA: MOVF 78,W
5540 09CC: MOVWF 7C 5847 08AB: MOVWF 18
5541 09CD: MOVF 77,W 5848 08AC: MOVF 77,W
5542 09CE: MOVWF 7B 5849 08AD: MOVWF 17
5543 * 5850 *
5544 09E9: MOVF 77,W 5851 08C8: MOVF 77,W
5545 09EA: MOVWF 71 5852 08C9: MOVWF 11
5546 09EB: MOVF 78,W 5853 08CA: MOVF 78,W
5547 09EC: MOVWF 72 5854 08CB: MOVWF 12
5548 09ED: MOVF 79,W 5855 08CC: MOVF 79,W
5549 09EE: MOVWF 73 5856 08CD: MOVWF 13
5550 09EF: MOVF 7A,W 5857 08CE: MOVF 7A,W
5551 09F0: MOVWF 74 5858 08CF: MOVWF 14
5552 09F1: BCF 03.1 5859 08D0: BCF 03.1
5553 09F2: MOVF 74,W 5860 08D1: MOVF 14,W
-   5861 08D2: MOVWF 24
5554 09F3: BSF 03.5 5862 08D3: MOVF 13,W
5555 09F4: MOVWF 2C 5863 08D4: MOVWF 23
5556 09F5: MOVF 73,W 5864 08D5: MOVF 12,W
5557 09F6: MOVWF 2B 5865 08D6: MOVWF 22
5558 09F7: MOVF 72,W 5866 08D7: MOVF 11,W
5559 09F8: MOVWF 2A 5867 08D8: MOVWF 21
5560 09F9: MOVF 71,W 5868 08D9: BSF 03.5
5561 09FA: MOVWF 29 5869 08DA: BCF 03.6
5562 09FB: BCF 03.5 5870 08DB: MOVF 6C,W
5563 09FC: MOVF 6F,W 5871 08DC: BCF 03.5
5564 09FD: BSF 03.5 5872 08DD: BSF 03.6
5565 09FE: MOVWF 30 5873 08DE: MOVWF 28
5566 09FF: BCF 03.5 5874 08DF: BSF 03.5
-   5875 08E0: BCF 03.6
5567 0A00: MOVF 6E,W 5876 08E1: MOVF 6B,W
-   5877 08E2: BCF 03.5
5568 0A01: BSF 03.5 5878 08E3: BSF 03.6
5569 0A02: MOVWF 2F 5879 08E4: MOVWF 27
-   5880 08E5: BSF 03.5
5570 0A03: BCF 03.5 5881 08E6: BCF 03.6
5571 0A04: MOVF 6D,W 5882 08E7: MOVF 6A,W
-   5883 08E8: BCF 03.5
5572 0A05: BSF 03.5 5884 08E9: BSF 03.6
5573 0A06: MOVWF 2E 5885 08EA: MOVWF 26
-   5886 08EB: BSF 03.5
5574 0A07: BCF 03.5 5887 08EC: BCF 03.6
5575 0A08: MOVF 6C,W 5888 08ED: MOVF 69,W
-   5889 08EE: BCF 03.5
5576 0A09: BSF 03.5 5890 08EF: BSF 03.6
5577 0A0A: MOVWF 2D 5891 08F0: MOVWF 25
-   5892 08F1: BCF 0A.3
5578 0A0B: BCF 03.5 5893 08F2: BCF 03.6
5579 0A0C: CALL 000 5894 08F3: CALL 5DC
-   5895 08F4: BSF 0A.3
5580 0A0D: MOVF 7A,W 5896 08F5: MOVF 7A,W
-   5897 08F6: BSF 03.5
5581 0A0E: MOVWF 6B 5898 08F7: MOVWF 68
5582 0A0F: MOVF 79,W 5899 08F8: MOVF 79,W
5583 0A10: MOVWF 6A 5900 08F9: MOVWF 67
5584 0A11: MOVF 78,W 5901 08FA: MOVF 78,W
5585 0A12: MOVWF 69 5902 08FB: MOVWF 66
5586 0A13: MOVF 77,W 5903 08FC: MOVF 77,W
5587 0A14: MOVWF 68 5904 08FD: MOVWF 65
5588 .................... 5905 ....................
5589 .................... return p; 5906 .................... return p;
5590 0A15: MOVF 68,W 5907 08FE: MOVF 65,W
5591 0A16: MOVWF 77 5908 08FF: MOVWF 77
5592 0A17: MOVF 69,W 5909 0900: MOVF 66,W
5593 0A18: MOVWF 78 5910 0901: MOVWF 78
5594 0A19: MOVF 6A,W 5911 0902: MOVF 67,W
5595 0A1A: MOVWF 79 5912 0903: MOVWF 79
5596 0A1B: MOVF 6B,W 5913 0904: MOVF 68,W
5597 0A1C: MOVWF 7A 5914 0905: MOVWF 7A
5598 .................... } 5915 .................... }
-   5916 0906: BCF 03.5
5599 0A1D: BSF 0A.3 5917 0907: BCF 0A.3
5600 0A1E: BSF 0A.4 5918 0908: BSF 0A.4
5601 0A1F: GOTO 0D7 (RETURN) 5919 0909: GOTO 5E7 (RETURN)
5602 .................... 5920 ....................
5603 .................... 5921 ....................
5604 .................... 5922 ....................
5605 .................... #include "HMC5883L.h" 5923 .................... #include "HMC5883L.h"
5606 .................... #define MAG_ADDR_R 0x3D //addresa pro cteni 5924 .................... #define MAG_ADDR_R 0x3D //addresa pro cteni
Line 5622... Line 5940...
5622 .................... #include "HMC5883L.c" 5940 .................... #include "HMC5883L.c"
5623 .................... void set_mag (void) //uvodni nastaveni na kontinualni mereni, rozsah ± 8.1 Ga, frekvence mereni 15HZ 5941 .................... void set_mag (void) //uvodni nastaveni na kontinualni mereni, rozsah ± 8.1 Ga, frekvence mereni 15HZ
5624 .................... { 5942 .................... {
5625 .................... i2c_start(); //nastavení Configuration Register A 5943 .................... i2c_start(); //nastavení Configuration Register A
5626 * 5944 *
5627 0534: BSF 28.4 5945 03F7: BSF 28.3
5628 0535: MOVF 28,W 5946 03F8: MOVF 28,W
5629 0536: BSF 03.5 5947 03F9: BSF 03.5
5630 0537: MOVWF 07 5948 03FA: MOVWF 07
5631 0538: NOP 5949 03FB: NOP
5632 0539: BCF 03.5 5950 03FC: BCF 03.5
5633 053A: BSF 28.3 5951 03FD: BSF 28.4
5634 053B: MOVF 28,W 5952 03FE: MOVF 28,W
5635 053C: BSF 03.5 5953 03FF: BSF 03.5
5636 053D: MOVWF 07 5954 0400: MOVWF 07
5637 053E: NOP 5955 0401: NOP
5638 053F: BCF 03.5 5956 0402: BCF 03.5
5639 0540: BCF 07.4 5957 0403: BCF 07.3
5640 0541: BCF 28.4 5958 0404: BCF 28.3
5641 0542: MOVF 28,W 5959 0405: MOVF 28,W
5642 0543: BSF 03.5 5960 0406: BSF 03.5
5643 0544: MOVWF 07 5961 0407: MOVWF 07
5644 0545: NOP 5962 0408: NOP
5645 0546: BCF 03.5 5963 0409: BCF 03.5
5646 0547: BCF 07.3 5964 040A: BCF 07.4
5647 0548: BCF 28.3 5965 040B: BCF 28.4
5648 0549: MOVF 28,W 5966 040C: MOVF 28,W
5649 054A: BSF 03.5 5967 040D: BSF 03.5
5650 054B: MOVWF 07 5968 040E: MOVWF 07
5651 .................... I2C_Write(MAG_ADDR_W); 5969 .................... I2C_Write(MAG_ADDR_W);
5652 054C: MOVLW 3C 5970 040F: MOVLW 3C
-   5971 0410: BCF 03.5
-   5972 0411: BSF 03.6
5653 054D: MOVWF 73 5973 0412: MOVWF 12
5654 054E: BCF 03.5 5974 0413: BCF 03.6
5655 054F: CALL 22E 5975 0414: CALL 22E
5656 .................... I2C_Write(0x00); 5976 .................... I2C_Write(0x00);
-   5977 0415: BSF 03.6
5657 0550: CLRF 73 5978 0416: CLRF 12
-   5979 0417: BCF 03.6
5658 0551: CALL 22E 5980 0418: CALL 22E
5659 .................... I2C_Write(0x70); 5981 .................... I2C_Write(0x70);
5660 0552: MOVLW 70 5982 0419: MOVLW 70
-   5983 041A: BSF 03.6
5661 0553: MOVWF 73 5984 041B: MOVWF 12
-   5985 041C: BCF 03.6
5662 0554: CALL 22E 5986 041D: CALL 22E
5663 .................... i2c_stop(); 5987 .................... i2c_stop();
5664 0555: BCF 28.4 5988 041E: BCF 28.3
5665 0556: MOVF 28,W 5989 041F: MOVF 28,W
5666 0557: BSF 03.5 5990 0420: BSF 03.5
5667 0558: MOVWF 07 5991 0421: MOVWF 07
5668 0559: NOP 5992 0422: NOP
5669 055A: BCF 03.5 5993 0423: BCF 03.5
5670 055B: BSF 28.3 5994 0424: BSF 28.4
5671 055C: MOVF 28,W 5995 0425: MOVF 28,W
5672 055D: BSF 03.5 5996 0426: BSF 03.5
5673 055E: MOVWF 07 5997 0427: MOVWF 07
5674 055F: BCF 03.5 5998 0428: BCF 03.5
5675 0560: BTFSS 07.3 5999 0429: BTFSS 07.4
5676 0561: GOTO 560 6000 042A: GOTO 429
5677 0562: NOP 6001 042B: NOP
5678 0563: GOTO 564 6002 042C: GOTO 42D
5679 0564: NOP 6003 042D: NOP
5680 0565: BSF 28.4 6004 042E: BSF 28.3
5681 0566: MOVF 28,W 6005 042F: MOVF 28,W
5682 0567: BSF 03.5 6006 0430: BSF 03.5
5683 0568: MOVWF 07 6007 0431: MOVWF 07
5684 0569: NOP 6008 0432: NOP
5685 .................... Delay_ms(6); 6009 .................... Delay_ms(6);
5686 056A: MOVLW 06 6010 0433: MOVLW 06
5687 056B: BCF 03.5 6011 0434: MOVWF 62
5688 056C: MOVWF 65 6012 0435: BCF 03.5
5689 056D: CALL 2F5 6013 0436: CALL 303
5690 .................... 6014 ....................
5691 .................... i2c_start(); //nastavení Configuration Register B 6015 .................... i2c_start(); //nastavení Configuration Register B
5692 056E: BSF 28.4 6016 0437: BSF 28.3
5693 056F: MOVF 28,W 6017 0438: MOVF 28,W
5694 0570: BSF 03.5 6018 0439: BSF 03.5
5695 0571: MOVWF 07 6019 043A: MOVWF 07
5696 0572: NOP 6020 043B: NOP
5697 0573: BCF 03.5 6021 043C: BCF 03.5
5698 0574: BSF 28.3 6022 043D: BSF 28.4
5699 0575: MOVF 28,W 6023 043E: MOVF 28,W
5700 0576: BSF 03.5 6024 043F: BSF 03.5
5701 0577: MOVWF 07 6025 0440: MOVWF 07
5702 0578: NOP 6026 0441: NOP
5703 0579: BCF 03.5 6027 0442: BCF 03.5
5704 057A: BCF 07.4 6028 0443: BCF 07.3
5705 057B: BCF 28.4 6029 0444: BCF 28.3
5706 057C: MOVF 28,W 6030 0445: MOVF 28,W
5707 057D: BSF 03.5 6031 0446: BSF 03.5
5708 057E: MOVWF 07 6032 0447: MOVWF 07
5709 057F: NOP 6033 0448: NOP
5710 0580: BCF 03.5 6034 0449: BCF 03.5
5711 0581: BCF 07.3 6035 044A: BCF 07.4
5712 0582: BCF 28.3 6036 044B: BCF 28.4
5713 0583: MOVF 28,W 6037 044C: MOVF 28,W
5714 0584: BSF 03.5 6038 044D: BSF 03.5
5715 0585: MOVWF 07 6039 044E: MOVWF 07
5716 .................... I2C_Write(MAG_ADDR_W); 6040 .................... I2C_Write(MAG_ADDR_W);
5717 0586: MOVLW 3C 6041 044F: MOVLW 3C
-   6042 0450: BCF 03.5
-   6043 0451: BSF 03.6
5718 0587: MOVWF 73 6044 0452: MOVWF 12
5719 0588: BCF 03.5 6045 0453: BCF 03.6
5720 0589: CALL 22E 6046 0454: CALL 22E
5721 .................... I2C_Write(0x01); 6047 .................... I2C_Write(0x01);
5722 058A: MOVLW 01 6048 0455: MOVLW 01
-   6049 0456: BSF 03.6
5723 058B: MOVWF 73 6050 0457: MOVWF 12
-   6051 0458: BCF 03.6
5724 058C: CALL 22E 6052 0459: CALL 22E
5725 .................... I2C_Write(MAG_ROZ810); 6053 .................... I2C_Write(MAG_ROZ810);
5726 058D: MOVLW E0 6054 045A: MOVLW E0
-   6055 045B: BSF 03.6
5727 058E: MOVWF 73 6056 045C: MOVWF 12
-   6057 045D: BCF 03.6
5728 058F: CALL 22E 6058 045E: CALL 22E
5729 .................... i2c_stop(); 6059 .................... i2c_stop();
5730 0590: BCF 28.4 6060 045F: BCF 28.3
5731 0591: MOVF 28,W 6061 0460: MOVF 28,W
5732 0592: BSF 03.5 6062 0461: BSF 03.5
5733 0593: MOVWF 07 6063 0462: MOVWF 07
5734 0594: NOP 6064 0463: NOP
5735 0595: BCF 03.5 6065 0464: BCF 03.5
5736 0596: BSF 28.3 6066 0465: BSF 28.4
5737 0597: MOVF 28,W 6067 0466: MOVF 28,W
5738 0598: BSF 03.5 6068 0467: BSF 03.5
5739 0599: MOVWF 07 6069 0468: MOVWF 07
5740 059A: BCF 03.5 6070 0469: BCF 03.5
5741 059B: BTFSS 07.3 6071 046A: BTFSS 07.4
5742 059C: GOTO 59B 6072 046B: GOTO 46A
5743 059D: NOP 6073 046C: NOP
5744 059E: GOTO 59F 6074 046D: GOTO 46E
5745 059F: NOP 6075 046E: NOP
5746 05A0: BSF 28.4 6076 046F: BSF 28.3
5747 05A1: MOVF 28,W 6077 0470: MOVF 28,W
5748 05A2: BSF 03.5 6078 0471: BSF 03.5
5749 05A3: MOVWF 07 6079 0472: MOVWF 07
5750 05A4: NOP 6080 0473: NOP
5751 .................... 6081 ....................
5752 .................... Delay_ms(6); 6082 .................... Delay_ms(6);
5753 05A5: MOVLW 06 6083 0474: MOVLW 06
5754 05A6: BCF 03.5 6084 0475: MOVWF 62
5755 05A7: MOVWF 65 6085 0476: BCF 03.5
5756 05A8: CALL 2F5 6086 0477: CALL 303
5757 .................... 6087 ....................
5758 .................... i2c_start(); //nastveni Mode Register 6088 .................... i2c_start(); //nastveni Mode Register
5759 05A9: BSF 28.4 6089 0478: BSF 28.3
5760 05AA: MOVF 28,W 6090 0479: MOVF 28,W
5761 05AB: BSF 03.5 6091 047A: BSF 03.5
5762 05AC: MOVWF 07 6092 047B: MOVWF 07
5763 05AD: NOP 6093 047C: NOP
5764 05AE: BCF 03.5 6094 047D: BCF 03.5
5765 05AF: BSF 28.3 6095 047E: BSF 28.4
5766 05B0: MOVF 28,W 6096 047F: MOVF 28,W
5767 05B1: BSF 03.5 6097 0480: BSF 03.5
5768 05B2: MOVWF 07 6098 0481: MOVWF 07
5769 05B3: NOP 6099 0482: NOP
5770 05B4: BCF 03.5 6100 0483: BCF 03.5
5771 05B5: BCF 07.4 6101 0484: BCF 07.3
5772 05B6: BCF 28.4 6102 0485: BCF 28.3
5773 05B7: MOVF 28,W 6103 0486: MOVF 28,W
5774 05B8: BSF 03.5 6104 0487: BSF 03.5
5775 05B9: MOVWF 07 6105 0488: MOVWF 07
5776 05BA: NOP 6106 0489: NOP
5777 05BB: BCF 03.5 6107 048A: BCF 03.5
5778 05BC: BCF 07.3 6108 048B: BCF 07.4
5779 05BD: BCF 28.3 6109 048C: BCF 28.4
5780 05BE: MOVF 28,W 6110 048D: MOVF 28,W
5781 05BF: BSF 03.5 6111 048E: BSF 03.5
5782 05C0: MOVWF 07 6112 048F: MOVWF 07
5783 .................... I2C_Write(MAG_ADDR_W); 6113 .................... I2C_Write(MAG_ADDR_W);
5784 05C1: MOVLW 3C 6114 0490: MOVLW 3C
-   6115 0491: BCF 03.5
-   6116 0492: BSF 03.6
5785 05C2: MOVWF 73 6117 0493: MOVWF 12
5786 05C3: BCF 03.5 6118 0494: BCF 03.6
5787 05C4: CALL 22E 6119 0495: CALL 22E
5788 .................... I2C_Write(0x02); 6120 .................... I2C_Write(0x02);
5789 05C5: MOVLW 02 6121 0496: MOVLW 02
-   6122 0497: BSF 03.6
5790 05C6: MOVWF 73 6123 0498: MOVWF 12
-   6124 0499: BCF 03.6
5791 05C7: CALL 22E 6125 049A: CALL 22E
5792 .................... I2C_Write(0x00); 6126 .................... I2C_Write(0x00);
-   6127 049B: BSF 03.6
5793 05C8: CLRF 73 6128 049C: CLRF 12
-   6129 049D: BCF 03.6
5794 05C9: CALL 22E 6130 049E: CALL 22E
5795 .................... i2c_stop(); 6131 .................... i2c_stop();
5796 05CA: BCF 28.4 6132 049F: BCF 28.3
5797 05CB: MOVF 28,W 6133 04A0: MOVF 28,W
5798 05CC: BSF 03.5 6134 04A1: BSF 03.5
5799 05CD: MOVWF 07 6135 04A2: MOVWF 07
5800 05CE: NOP 6136 04A3: NOP
5801 05CF: BCF 03.5 6137 04A4: BCF 03.5
5802 05D0: BSF 28.3 6138 04A5: BSF 28.4
5803 05D1: MOVF 28,W 6139 04A6: MOVF 28,W
5804 05D2: BSF 03.5 6140 04A7: BSF 03.5
5805 05D3: MOVWF 07 6141 04A8: MOVWF 07
5806 05D4: BCF 03.5 6142 04A9: BCF 03.5
5807 05D5: BTFSS 07.3 6143 04AA: BTFSS 07.4
5808 05D6: GOTO 5D5 6144 04AB: GOTO 4AA
5809 05D7: NOP 6145 04AC: NOP
5810 05D8: GOTO 5D9 6146 04AD: GOTO 4AE
5811 05D9: NOP 6147 04AE: NOP
5812 05DA: BSF 28.4 6148 04AF: BSF 28.3
5813 05DB: MOVF 28,W 6149 04B0: MOVF 28,W
5814 05DC: BSF 03.5 6150 04B1: BSF 03.5
5815 05DD: MOVWF 07 6151 04B2: MOVWF 07
5816 05DE: NOP 6152 04B3: NOP
5817 .................... Delay_ms(6); 6153 .................... Delay_ms(6);
5818 05DF: MOVLW 06 6154 04B4: MOVLW 06
5819 05E0: BCF 03.5 6155 04B5: MOVWF 62
5820 05E1: MOVWF 65 6156 04B6: BCF 03.5
5821 05E2: CALL 2F5 6157 04B7: CALL 303
5822 .................... } 6158 .................... }
5823 05E3: BSF 0A.3 6159 04B8: BCF 0A.3
5824 05E4: BSF 0A.4 6160 04B9: BSF 0A.4
5825 05E5: GOTO 0AB (RETURN) 6161 04BA: GOTO 5C1 (RETURN)
5826 .................... 6162 ....................
5827 .................... void set_mag_roz (unsigned int8 h) //nastavy rozsah 6163 .................... void set_mag_roz (unsigned int8 h) //nastavy rozsah
5828 .................... { 6164 .................... {
5829 .................... 6165 ....................
5830 .................... // 6166 .................... //
Line 5845... Line 6181...
5845 .................... byte mag_read(byte reg) //pro cteni reg 6181 .................... byte mag_read(byte reg) //pro cteni reg
5846 .................... { 6182 .................... {
5847 .................... 6183 ....................
5848 .................... i2c_start(); 6184 .................... i2c_start();
5849 * 6185 *
5850 0D6C: BSF 28.4 6186 0D3F: BSF 28.3
5851 0D6D: MOVF 28,W 6187 0D40: MOVF 28,W
5852 0D6E: BSF 03.5 6188 0D41: BSF 03.5
5853 0D6F: MOVWF 07 6189 0D42: MOVWF 07
5854 0D70: NOP 6190 0D43: NOP
5855 0D71: BCF 03.5 6191 0D44: BCF 03.5
5856 0D72: BSF 28.3 6192 0D45: BSF 28.4
5857 0D73: MOVF 28,W 6193 0D46: MOVF 28,W
5858 0D74: BSF 03.5 6194 0D47: BSF 03.5
5859 0D75: MOVWF 07 6195 0D48: MOVWF 07
5860 0D76: NOP 6196 0D49: NOP
5861 0D77: BCF 03.5 6197 0D4A: BCF 03.5
5862 0D78: BCF 07.4 6198 0D4B: BCF 07.3
5863 0D79: BCF 28.4 6199 0D4C: BCF 28.3
5864 0D7A: MOVF 28,W 6200 0D4D: MOVF 28,W
5865 0D7B: BSF 03.5 6201 0D4E: BSF 03.5
5866 0D7C: MOVWF 07 6202 0D4F: MOVWF 07
5867 0D7D: NOP 6203 0D50: NOP
5868 0D7E: BCF 03.5 6204 0D51: BCF 03.5
5869 0D7F: BCF 07.3 6205 0D52: BCF 07.4
5870 0D80: BCF 28.3 6206 0D53: BCF 28.4
5871 0D81: MOVF 28,W 6207 0D54: MOVF 28,W
5872 0D82: BSF 03.5 6208 0D55: BSF 03.5
5873 0D83: MOVWF 07 6209 0D56: MOVWF 07
5874 .................... I2C_Write(MAG_ADDR_W); 6210 .................... I2C_Write(MAG_ADDR_W);
5875 0D84: MOVLW 3C 6211 0D57: MOVLW 3C
-   6212 0D58: BCF 03.5
-   6213 0D59: BSF 03.6
5876 0D85: MOVWF 73 6214 0D5A: MOVWF 12
5877 0D86: BCF 0A.3 6215 0D5B: BCF 0A.3
5878 0D87: BCF 03.5 6216 0D5C: BCF 03.6
5879 0D88: CALL 22E 6217 0D5D: CALL 22E
5880 0D89: BSF 0A.3 6218 0D5E: BSF 0A.3
5881 .................... I2C_write(reg); 6219 .................... I2C_write(reg);
-   6220 0D5F: BSF 03.5
5882 0D8A: MOVF 72,W 6221 0D60: MOVF 6F,W
-   6222 0D61: BCF 03.5
-   6223 0D62: BSF 03.6
5883 0D8B: MOVWF 73 6224 0D63: MOVWF 12
5884 0D8C: BCF 0A.3 6225 0D64: BCF 0A.3
-   6226 0D65: BCF 03.6
5885 0D8D: CALL 22E 6227 0D66: CALL 22E
5886 0D8E: BSF 0A.3 6228 0D67: BSF 0A.3
5887 .................... i2c_stop(); 6229 .................... i2c_stop();
5888 0D8F: BCF 28.4 6230 0D68: BCF 28.3
5889 0D90: MOVF 28,W 6231 0D69: MOVF 28,W
5890 0D91: BSF 03.5 6232 0D6A: BSF 03.5
5891 0D92: MOVWF 07 6233 0D6B: MOVWF 07
5892 0D93: NOP 6234 0D6C: NOP
5893 0D94: BCF 03.5 6235 0D6D: BCF 03.5
5894 0D95: BSF 28.3 6236 0D6E: BSF 28.4
5895 0D96: MOVF 28,W 6237 0D6F: MOVF 28,W
5896 0D97: BSF 03.5 6238 0D70: BSF 03.5
5897 0D98: MOVWF 07 6239 0D71: MOVWF 07
5898 0D99: BCF 03.5 6240 0D72: BCF 03.5
5899 0D9A: BTFSS 07.3 6241 0D73: BTFSS 07.4
5900 0D9B: GOTO 59A 6242 0D74: GOTO 573
5901 0D9C: NOP 6243 0D75: NOP
5902 0D9D: GOTO 59E 6244 0D76: GOTO 577
5903 0D9E: NOP 6245 0D77: NOP
5904 0D9F: BSF 28.4 6246 0D78: BSF 28.3
5905 0DA0: MOVF 28,W 6247 0D79: MOVF 28,W
5906 0DA1: BSF 03.5 6248 0D7A: BSF 03.5
5907 0DA2: MOVWF 07 6249 0D7B: MOVWF 07
5908 0DA3: NOP 6250 0D7C: NOP
5909 .................... i2c_start(); 6251 .................... i2c_start();
5910 0DA4: BCF 03.5 6252 0D7D: BCF 03.5
5911 0DA5: BSF 28.4 6253 0D7E: BSF 28.3
5912 0DA6: MOVF 28,W 6254 0D7F: MOVF 28,W
5913 0DA7: BSF 03.5 6255 0D80: BSF 03.5
5914 0DA8: MOVWF 07 6256 0D81: MOVWF 07
5915 0DA9: NOP 6257 0D82: NOP
5916 0DAA: BCF 03.5 6258 0D83: BCF 03.5
5917 0DAB: BSF 28.3 6259 0D84: BSF 28.4
5918 0DAC: MOVF 28,W 6260 0D85: MOVF 28,W
5919 0DAD: BSF 03.5 6261 0D86: BSF 03.5
5920 0DAE: MOVWF 07 6262 0D87: MOVWF 07
5921 0DAF: NOP 6263 0D88: NOP
5922 0DB0: BCF 03.5 6264 0D89: BCF 03.5
5923 0DB1: BCF 07.4 6265 0D8A: BCF 07.3
5924 0DB2: BCF 28.4 6266 0D8B: BCF 28.3
5925 0DB3: MOVF 28,W 6267 0D8C: MOVF 28,W
5926 0DB4: BSF 03.5 6268 0D8D: BSF 03.5
5927 0DB5: MOVWF 07 6269 0D8E: MOVWF 07
5928 0DB6: NOP 6270 0D8F: NOP
5929 0DB7: BCF 03.5 6271 0D90: BCF 03.5
5930 0DB8: BCF 07.3 6272 0D91: BCF 07.4
5931 0DB9: BCF 28.3 6273 0D92: BCF 28.4
5932 0DBA: MOVF 28,W 6274 0D93: MOVF 28,W
5933 0DBB: BSF 03.5 6275 0D94: BSF 03.5
5934 0DBC: MOVWF 07 6276 0D95: MOVWF 07
5935 .................... I2C_Write(MAG_ADDR_R); 6277 .................... I2C_Write(MAG_ADDR_R);
5936 0DBD: MOVLW 3D 6278 0D96: MOVLW 3D
-   6279 0D97: BCF 03.5
-   6280 0D98: BSF 03.6
5937 0DBE: MOVWF 73 6281 0D99: MOVWF 12
5938 0DBF: BCF 0A.3 6282 0D9A: BCF 0A.3
5939 0DC0: BCF 03.5 6283 0D9B: BCF 03.6
5940 0DC1: CALL 22E 6284 0D9C: CALL 22E
5941 0DC2: BSF 0A.3 6285 0D9D: BSF 0A.3
5942 .................... reg=i2c_read(0); 6286 .................... reg=i2c_read(0);
5943 0DC3: CLRF 77 6287 0D9E: CLRF 77
5944 0DC4: BCF 0A.3 6288 0D9F: BCF 0A.3
5945 0DC5: CALL 2B0 6289 0DA0: CALL 2B6
5946 0DC6: BSF 0A.3 6290 0DA1: BSF 0A.3
5947 0DC7: MOVF 78,W 6291 0DA2: MOVF 78,W
-   6292 0DA3: BSF 03.5
5948 0DC8: MOVWF 72 6293 0DA4: MOVWF 6F
5949 .................... return reg; 6294 .................... return reg;
5950 0DC9: MOVF 72,W 6295 0DA5: MOVF 6F,W
5951 0DCA: MOVWF 78 6296 0DA6: MOVWF 78
5952 .................... } 6297 .................... }
-   6298 0DA7: BCF 03.5
5953 0DCB: RETURN 6299 0DA8: RETURN
5954 .................... 6300 ....................
5955 .................... 6301 ....................
5956 .................... signed int16 mag_vypocet(unsigned int8 h, unsigned int8 l) //prepocet na 16bit cislo 6302 .................... signed int16 mag_vypocet(unsigned int8 h, unsigned int8 l) //prepocet na 16bit cislo
5957 .................... { 6303 .................... {
5958 .................... signed int16 x; 6304 .................... signed int16 x;
5959 .................... x = (((unsigned int16) h << 8) + l ); 6305 .................... x = (((unsigned int16) h << 8) + l );
5960 * 6306 *
-   6307 07C1: BSF 03.6
5961 07E5: CLRF 7C 6308 07C2: CLRF 14
-   6309 07C3: BSF 03.5
-   6310 07C4: BCF 03.6
5962 07E6: MOVF 72,W 6311 07C5: MOVF 6F,W
-   6312 07C6: BCF 03.5
-   6313 07C7: BSF 03.6
5963 07E7: MOVWF 7B 6314 07C8: MOVWF 13
5964 07E8: MOVWF 7C 6315 07C9: MOVWF 14
5965 07E9: CLRF 7B 6316 07CA: CLRF 13
5966 07EA: MOVF 73,W 6317 07CB: MOVF 10,W
5967 07EB: ADDWF 7B,W 6318 07CC: ADDWF 13,W
5968 07EC: MOVWF 74 6319 07CD: MOVWF 11
5969 07ED: MOVF 7C,W 6320 07CE: MOVF 14,W
5970 07EE: MOVWF 75 6321 07CF: MOVWF 12
5971 07EF: BTFSC 03.0 6322 07D0: BTFSC 03.0
5972 07F0: INCF 75,F 6323 07D1: INCF 12,F
5973 .................... return x; 6324 .................... return x;
5974 07F1: MOVF 74,W 6325 07D2: MOVF 11,W
5975 07F2: MOVWF 78 6326 07D3: MOVWF 78
5976 07F3: MOVF 75,W 6327 07D4: MOVF 12,W
5977 07F4: MOVWF 79 6328 07D5: MOVWF 79
5978 .................... } 6329 .................... }
-   6330 07D6: BCF 03.6
5979 07F5: RETURN 6331 07D7: RETURN
5980 .................... 6332 ....................
5981 .................... 6333 ....................
5982 .................... signed int16 mag_readX(void) //nacteni osy x 6334 .................... signed int16 mag_readX(void) //nacteni osy x
5983 .................... { 6335 .................... {
5984 .................... unsigned int8 h,l; 6336 .................... unsigned int8 h,l;
5985 .................... signed int16 x; 6337 .................... signed int16 x;
5986 .................... h=mag_read(0x03); 6338 .................... h=mag_read(0x03);
5987 * 6339 *
5988 1000: MOVLW 03 6340 1000: MOVLW 03
-   6341 1001: BSF 03.5
5989 1001: MOVWF 72 6342 1002: MOVWF 6F
5990 1002: BCF 0A.4 6343 1003: BCF 0A.4
5991 1003: BSF 0A.3 6344 1004: BSF 0A.3
-   6345 1005: BCF 03.5
5992 1004: CALL 56C 6346 1006: CALL 53F
5993 1005: BSF 0A.4 6347 1007: BSF 0A.4
5994 1006: BCF 0A.3 6348 1008: BCF 0A.3
5995 1007: MOVF 78,W 6349 1009: MOVF 78,W
-   6350 100A: BSF 03.5
5996 1008: MOVWF 6E 6351 100B: MOVWF 6B
5997 .................... l=mag_read(0x04); 6352 .................... l=mag_read(0x04);
5998 1009: MOVLW 04 6353 100C: MOVLW 04
5999 100A: MOVWF 72 6354 100D: MOVWF 6F
6000 100B: BCF 0A.4 6355 100E: BCF 0A.4
6001 100C: BSF 0A.3 6356 100F: BSF 0A.3
-   6357 1010: BCF 03.5
6002 100D: CALL 56C 6358 1011: CALL 53F
6003 100E: BSF 0A.4 6359 1012: BSF 0A.4
6004 100F: BCF 0A.3 6360 1013: BCF 0A.3
6005 1010: MOVF 78,W 6361 1014: MOVF 78,W
-   6362 1015: BSF 03.5
6006 1011: MOVWF 6F 6363 1016: MOVWF 6C
6007 .................... x=mag_vypocet(h,l); 6364 .................... x=mag_vypocet(h,l);
6008 1012: MOVF 6E,W 6365 1017: MOVF 6B,W
6009 1013: MOVWF 72 6366 1018: MOVWF 6F
6010 1014: MOVF 6F,W 6367 1019: MOVF 6C,W
-   6368 101A: BCF 03.5
-   6369 101B: BSF 03.6
6011 1015: MOVWF 73 6370 101C: MOVWF 10
6012 1016: BCF 0A.4 6371 101D: BCF 0A.4
-   6372 101E: BCF 03.6
6013 1017: CALL 7E5 6373 101F: CALL 7C1
6014 1018: BSF 0A.4 6374 1020: BSF 0A.4
6015 1019: MOVF 79,W 6375 1021: MOVF 79,W
-   6376 1022: BSF 03.5
6016 101A: MOVWF 71 6377 1023: MOVWF 6E
6017 101B: MOVF 78,W 6378 1024: MOVF 78,W
6018 101C: MOVWF 70 6379 1025: MOVWF 6D
6019 .................... return x; 6380 .................... return x;
6020 101D: MOVF 70,W 6381 1026: MOVF 6D,W
6021 101E: MOVWF 78 6382 1027: MOVWF 78
6022 101F: MOVF 71,W 6383 1028: MOVF 6E,W
6023 1020: MOVWF 79 6384 1029: MOVWF 79
6024 .................... 6385 ....................
6025 .................... } 6386 .................... }
6026 .................... 6387 ....................
6027 .................... 6388 ....................
6028 .................... signed int16 mag_readY(void) //nacteni osy x 6389 .................... signed int16 mag_readY(void) //nacteni osy x
6029 .................... { 6390 .................... {
6030 .................... unsigned int8 h,l; 6391 .................... unsigned int8 h,l;
6031 .................... signed int16 x; 6392 .................... signed int16 x;
6032 .................... h=mag_read(0x07); 6393 .................... h=mag_read(0x07);
6033 * 6394 *
6034 1025: MOVLW 07 6395 102E: MOVLW 07
6035 1026: MOVWF 72 -  
6036 1027: BCF 0A.4 -  
6037 1028: BSF 0A.3 -  
6038 1029: CALL 56C -  
6039 102A: BSF 0A.4 -  
6040 102B: BCF 0A.3 -  
6041 102C: MOVF 78,W -  
6042 102D: MOVWF 6E -  
6043 .................... l=mag_read(0x08); -  
6044 102E: MOVLW 08 -  
6045 102F: MOVWF 72 6396 102F: MOVWF 6F
6046 1030: BCF 0A.4 6397 1030: BCF 0A.4
6047 1031: BSF 0A.3 6398 1031: BSF 0A.3
6048 1032: CALL 56C 6399 1032: BCF 03.5
6049 1033: BSF 0A.4 6400 1033: CALL 53F
6050 1034: BCF 0A.3 6401 1034: BSF 0A.4
6051 1035: MOVF 78,W 6402 1035: BCF 0A.3
6052 1036: MOVWF 6F 6403 1036: MOVF 78,W
6053 .................... x=mag_vypocet(h,l); -  
6054 1037: MOVF 6E,W 6404 1037: BSF 03.5
6055 1038: MOVWF 72 6405 1038: MOVWF 6B
-   6406 .................... l=mag_read(0x08);
6056 1039: MOVF 6F,W 6407 1039: MOVLW 08
6057 103A: MOVWF 73 6408 103A: MOVWF 6F
6058 103B: BCF 0A.4 6409 103B: BCF 0A.4
-   6410 103C: BSF 0A.3
-   6411 103D: BCF 03.5
-   6412 103E: CALL 53F
-   6413 103F: BSF 0A.4
-   6414 1040: BCF 0A.3
-   6415 1041: MOVF 78,W
-   6416 1042: BSF 03.5
-   6417 1043: MOVWF 6C
-   6418 .................... x=mag_vypocet(h,l);
-   6419 1044: MOVF 6B,W
-   6420 1045: MOVWF 6F
-   6421 1046: MOVF 6C,W
-   6422 1047: BCF 03.5
-   6423 1048: BSF 03.6
-   6424 1049: MOVWF 10
-   6425 104A: BCF 0A.4
-   6426 104B: BCF 03.6
6059 103C: CALL 7E5 6427 104C: CALL 7C1
6060 103D: BSF 0A.4 6428 104D: BSF 0A.4
6061 103E: MOVF 79,W 6429 104E: MOVF 79,W
-   6430 104F: BSF 03.5
6062 103F: MOVWF 71 6431 1050: MOVWF 6E
6063 1040: MOVF 78,W 6432 1051: MOVF 78,W
6064 1041: MOVWF 70 6433 1052: MOVWF 6D
6065 .................... return x; 6434 .................... return x;
6066 1042: MOVF 70,W 6435 1053: MOVF 6D,W
6067 1043: MOVWF 78 6436 1054: MOVWF 78
6068 1044: MOVF 71,W 6437 1055: MOVF 6E,W
6069 1045: MOVWF 79 6438 1056: MOVWF 79
6070 .................... 6439 ....................
6071 .................... } 6440 .................... }
6072 .................... 6441 ....................
6073 .................... 6442 ....................
6074 .................... signed int16 mag_readZ(void) //nacteni osy x 6443 .................... signed int16 mag_readZ(void) //nacteni osy x
6075 .................... { 6444 .................... {
6076 .................... unsigned int8 h,l; 6445 .................... unsigned int8 h,l;
6077 .................... signed int16 x; 6446 .................... signed int16 x;
6078 .................... h=mag_read(0x05); 6447 .................... h=mag_read(0x05);
6079 * 6448 *
6080 104A: MOVLW 05 6449 105B: MOVLW 05
6081 104B: MOVWF 72 6450 105C: MOVWF 6F
6082 104C: BCF 0A.4 6451 105D: BCF 0A.4
6083 104D: BSF 0A.3 6452 105E: BSF 0A.3
-   6453 105F: BCF 03.5
6084 104E: CALL 56C 6454 1060: CALL 53F
6085 104F: BSF 0A.4 6455 1061: BSF 0A.4
6086 1050: BCF 0A.3 6456 1062: BCF 0A.3
6087 1051: MOVF 78,W 6457 1063: MOVF 78,W
-   6458 1064: BSF 03.5
6088 1052: MOVWF 6E 6459 1065: MOVWF 6B
6089 .................... l=mag_read(0x06); 6460 .................... l=mag_read(0x06);
6090 1053: MOVLW 06 6461 1066: MOVLW 06
6091 1054: MOVWF 72 6462 1067: MOVWF 6F
6092 1055: BCF 0A.4 6463 1068: BCF 0A.4
6093 1056: BSF 0A.3 6464 1069: BSF 0A.3
-   6465 106A: BCF 03.5
6094 1057: CALL 56C 6466 106B: CALL 53F
6095 1058: BSF 0A.4 6467 106C: BSF 0A.4
6096 1059: BCF 0A.3 6468 106D: BCF 0A.3
6097 105A: MOVF 78,W 6469 106E: MOVF 78,W
-   6470 106F: BSF 03.5
6098 105B: MOVWF 6F 6471 1070: MOVWF 6C
6099 .................... x=mag_vypocet(h,l); 6472 .................... x=mag_vypocet(h,l);
6100 105C: MOVF 6E,W 6473 1071: MOVF 6B,W
6101 105D: MOVWF 72 6474 1072: MOVWF 6F
6102 105E: MOVF 6F,W 6475 1073: MOVF 6C,W
-   6476 1074: BCF 03.5
-   6477 1075: BSF 03.6
6103 105F: MOVWF 73 6478 1076: MOVWF 10
6104 1060: BCF 0A.4 6479 1077: BCF 0A.4
-   6480 1078: BCF 03.6
6105 1061: CALL 7E5 6481 1079: CALL 7C1
6106 1062: BSF 0A.4 6482 107A: BSF 0A.4
6107 1063: MOVF 79,W 6483 107B: MOVF 79,W
-   6484 107C: BSF 03.5
6108 1064: MOVWF 71 6485 107D: MOVWF 6E
6109 1065: MOVF 78,W 6486 107E: MOVF 78,W
6110 1066: MOVWF 70 6487 107F: MOVWF 6D
6111 .................... return x; 6488 .................... return x;
6112 1067: MOVF 70,W 6489 1080: MOVF 6D,W
6113 1068: MOVWF 78 6490 1081: MOVWF 78
6114 1069: MOVF 71,W 6491 1082: MOVF 6E,W
6115 106A: MOVWF 79 6492 1083: MOVWF 79
6116 .................... 6493 ....................
6117 .................... } 6494 .................... }
6118 .................... 6495 ....................
6119 .................... 6496 ....................
6120 .................... 6497 ....................
6121 .................... 6498 ....................
6122 .................... 6499 ....................
6123 .................... 6500 ....................
6124 .................... #define SEND_DELAY 50 // Cas mezi dvema znaky na RS232 -  
6125 .................... 6501 ....................
6126 .................... char VER[4]=VERSION; 6502 ....................
6127 * -  
6128 1827: MOVLW 30 -  
6129 1828: MOVWF 2B -  
6130 1829: MOVLW 2E -  
6131 182A: MOVWF 2C -  
6132 182B: MOVLW 31 -  
6133 182C: MOVWF 2D -  
6134 182D: CLRF 2E -  
6135 .................... 6503 ....................
6136 .................... unsigned int16 timer0_overflow_count; 6504 .................... unsigned int16 timer0_overflow_count;
6137 .................... float anemo=0; 6505 .................... float anemo=0;
6138 .................... 6506 ....................
6139 .................... 6507 ....................
Line 6142... Line 6510...
6142 .................... void TIMER1_isr(void) 6510 .................... void TIMER1_isr(void)
6143 .................... { 6511 .................... {
6144 .................... // 32.768 kHz krystal pro timer1 oscilátor 6512 .................... // 32.768 kHz krystal pro timer1 oscilátor
6145 .................... anemo = ((timer0_overflow_count * 0xFF) + get_timer0())/(32768.0/0xFFFF); // pocet pulzu za 1s 6513 .................... anemo = ((timer0_overflow_count * 0xFF) + get_timer0())/(32768.0/0xFFFF); // pocet pulzu za 1s
6146 * 6514 *
6147 0123: MOVF 30,W 6515 0123: MOVF 2C,W
6148 0124: BSF 03.5 6516 0124: BSF 03.6
6149 0125: MOVWF 41 6517 0125: MOVWF 38
6150 0126: BCF 03.5 6518 0126: BCF 03.6
6151 0127: MOVF 2F,W 6519 0127: MOVF 2B,W
6152 0128: BSF 03.5 6520 0128: BSF 03.6
6153 0129: MOVWF 40 6521 0129: MOVWF 37
6154 012A: CLRF 43 6522 012A: CLRF 3A
6155 012B: MOVLW FF 6523 012B: MOVLW FF
6156 012C: MOVWF 42 6524 012C: MOVWF 39
6157 * 6525 *
6158 0141: MOVF 79,W 6526 0141: MOVF 79,W
6159 0142: MOVWF 41 6527 0142: MOVWF 38
6160 0143: MOVF 78,W 6528 0143: MOVF 78,W
6161 0144: MOVWF 40 6529 0144: MOVWF 37
6162 0145: BCF 03.5 6530 0145: BCF 03.6
6163 0146: MOVF 01,W 6531 0146: MOVF 01,W
6164 0147: BSF 03.5 6532 0147: BSF 03.6
6165 0148: ADDWF 40,F 6533 0148: ADDWF 37,F
6166 0149: BTFSC 03.0 6534 0149: BTFSC 03.0
6167 014A: INCF 41,F 6535 014A: INCF 38,F
6168 014B: MOVF 41,W 6536 014B: MOVF 38,W
6169 014C: MOVWF 43 6537 014C: MOVWF 45
6170 014D: MOVF 40,W 6538 014D: MOVF 37,W
6171 014E: MOVWF 42 6539 014E: MOVWF 44
6172 014F: BCF 03.5 6540 014F: BCF 03.6
6173 0150: CALL 038 6541 0150: CALL 038
6174 0151: MOVF 7A,W 6542 0151: MOVF 7A,W
6175 0152: BSF 03.5 6543 0152: BSF 03.6
6176 0153: MOVWF 45 6544 0153: MOVWF 59
6177 0154: MOVF 79,W 6545 0154: MOVF 79,W
6178 0155: MOVWF 44 6546 0155: MOVWF 58
6179 0156: MOVF 78,W 6547 0156: MOVF 78,W
6180 0157: MOVWF 43 6548 0157: MOVWF 57
6181 0158: MOVF 77,W 6549 0158: MOVF 77,W
6182 0159: MOVWF 42 6550 0159: MOVWF 56
6183 015A: MOVLW 80 6551 015A: MOVLW 80
6184 015B: MOVWF 49 6552 015B: MOVWF 5D
6185 015C: CLRF 48 6553 015C: CLRF 5C
6186 015D: CLRF 47 6554 015D: CLRF 5B
6187 015E: MOVLW 7E 6555 015E: MOVLW 7E
6188 015F: MOVWF 46 6556 015F: MOVWF 5A
6189 0160: BCF 03.5 6557 0160: BCF 03.6
6190 0161: CALL 057 6558 0161: CALL 057
6191 0162: MOVF 7A,W 6559 0162: MOVF 7A,W
6192 0163: MOVWF 34 6560 0163: MOVWF 30
6193 0164: MOVF 79,W 6561 0164: MOVF 79,W
6194 0165: MOVWF 33 6562 0165: MOVWF 2F
6195 0166: MOVF 78,W 6563 0166: MOVF 78,W
6196 0167: MOVWF 32 6564 0167: MOVWF 2E
6197 0168: MOVF 77,W 6565 0168: MOVF 77,W
6198 0169: MOVWF 31 6566 0169: MOVWF 2D
6199 .................... anemo = anemo / 2; //pocet otacek za sekundu 6567 .................... anemo = anemo / 2; //pocet otacek za sekundu
6200 016A: MOVF 34,W 6568 016A: MOVF 30,W
6201 016B: BSF 03.5 6569 016B: BSF 03.6
6202 016C: MOVWF 45 6570 016C: MOVWF 59
6203 016D: BCF 03.5 6571 016D: BCF 03.6
6204 016E: MOVF 33,W 6572 016E: MOVF 2F,W
6205 016F: BSF 03.5 6573 016F: BSF 03.6
6206 0170: MOVWF 44 6574 0170: MOVWF 58
6207 0171: BCF 03.5 6575 0171: BCF 03.6
6208 0172: MOVF 32,W 6576 0172: MOVF 2E,W
6209 0173: BSF 03.5 6577 0173: BSF 03.6
6210 0174: MOVWF 43 6578 0174: MOVWF 57
6211 0175: BCF 03.5 6579 0175: BCF 03.6
6212 0176: MOVF 31,W 6580 0176: MOVF 2D,W
6213 0177: BSF 03.5 6581 0177: BSF 03.6
6214 0178: MOVWF 42 6582 0178: MOVWF 56
6215 0179: CLRF 49 6583 0179: CLRF 5D
6216 017A: CLRF 48 6584 017A: CLRF 5C
6217 017B: CLRF 47 6585 017B: CLRF 5B
6218 017C: MOVLW 80 6586 017C: MOVLW 80
6219 017D: MOVWF 46 6587 017D: MOVWF 5A
6220 017E: BCF 03.5 6588 017E: BCF 03.6
6221 017F: CALL 057 6589 017F: CALL 057
6222 0180: MOVF 7A,W 6590 0180: MOVF 7A,W
6223 0181: MOVWF 34 6591 0181: MOVWF 30
6224 0182: MOVF 79,W 6592 0182: MOVF 79,W
6225 0183: MOVWF 33 6593 0183: MOVWF 2F
6226 0184: MOVF 78,W 6594 0184: MOVF 78,W
6227 0185: MOVWF 32 6595 0185: MOVWF 2E
6228 0186: MOVF 77,W 6596 0186: MOVF 77,W
6229 0187: MOVWF 31 6597 0187: MOVWF 2D
6230 .................... 6598 ....................
6231 .................... timer0_overflow_count=0; //nulovani 6599 .................... timer0_overflow_count=0; //nulovani
6232 0188: CLRF 30 6600 0188: CLRF 2C
6233 0189: CLRF 2F 6601 0189: CLRF 2B
6234 .................... set_timer0(0); 6602 .................... set_timer0(0);
6235 018A: CLRF 01 6603 018A: CLRF 01
6236 .................... set_timer1(0); 6604 .................... set_timer1(0);
6237 018B: CLRF 0F 6605 018B: CLRF 0F
6238 018C: CLRF 0E 6606 018C: CLRF 0E
Line 6245... Line 6613...
6245 0190: GOTO 021 6613 0190: GOTO 021
6246 .................... #int_TIMER0 //pro preteceni èítaèe pùlzù od anemometru (RA4) 6614 .................... #int_TIMER0 //pro preteceni èítaèe pùlzù od anemometru (RA4)
6247 .................... void TIMER0_isr(void) 6615 .................... void TIMER0_isr(void)
6248 .................... { 6616 .................... {
6249 .................... timer0_overflow_count++; 6617 .................... timer0_overflow_count++;
6250 0191: INCF 2F,F 6618 0191: INCF 2B,F
6251 0192: BTFSC 03.2 6619 0192: BTFSC 03.2
6252 0193: INCF 30,F 6620 0193: INCF 2C,F
6253 .................... } 6621 .................... }
6254 .................... 6622 ....................
6255 .................... 6623 ....................
6256 0194: BCF 0B.2 6624 0194: BCF 0B.2
6257 0195: BCF 0A.3 6625 0195: BCF 0A.3
Line 6260... Line 6628...
6260 .................... float azimut (void) //vypocet azimutu smeru vetru 6628 .................... float azimut (void) //vypocet azimutu smeru vetru
6261 .................... { 6629 .................... {
6262 .................... signed int16 X,Y,Z; 6630 .................... signed int16 X,Y,Z;
6263 .................... X= mag_readX(); 6631 .................... X= mag_readX();
6264 * 6632 *
6265 1021: MOVF 79,W 6633 102A: MOVF 79,W
6266 1022: MOVWF 61 6634 102B: MOVWF 5E
6267 1023: MOVF 78,W 6635 102C: MOVF 78,W
6268 1024: MOVWF 60 6636 102D: MOVWF 5D
6269 .................... Y= mag_readY(); 6637 .................... Y= mag_readY();
6270 * 6638 *
6271 1046: MOVF 79,W 6639 1057: MOVF 79,W
6272 1047: MOVWF 63 6640 1058: MOVWF 60
6273 1048: MOVF 78,W 6641 1059: MOVF 78,W
6274 1049: MOVWF 62 6642 105A: MOVWF 5F
6275 .................... Z= mag_readZ(); 6643 .................... Z= mag_readZ();
6276 * 6644 *
6277 106B: MOVF 79,W 6645 1084: MOVF 79,W
6278 106C: MOVWF 65 6646 1085: MOVWF 62
6279 106D: MOVF 78,W 6647 1086: MOVF 78,W
6280 106E: MOVWF 64 6648 1087: MOVWF 61
6281 .................... 6649 ....................
6282 .................... float a, b; 6650 .................... float a, b;
6283 .................... a=(float)Y/X; 6651 .................... a=(float)Y/X;
6284 106F: MOVF 63,W 6652 1088: MOVF 60,W
-   6653 1089: BCF 03.5
-   6654 108A: BSF 03.6
6285 1070: MOVWF 73 6655 108B: MOVWF 11
-   6656 108C: BSF 03.5
-   6657 108D: BCF 03.6
6286 1071: MOVF 62,W 6658 108E: MOVF 5F,W
-   6659 108F: BCF 03.5
-   6660 1090: BSF 03.6
6287 1072: MOVWF 72 6661 1091: MOVWF 10
6288 1073: BCF 0A.4 6662 1092: BCF 0A.4
6289 1074: BSF 0A.3 6663 1093: BCF 03.6
6290 1075: CALL 5CC 6664 1094: CALL 7D8
6291 1076: BSF 0A.4 6665 1095: BSF 0A.4
6292 1077: BCF 0A.3 6666 1096: MOVF 77,W
6293 1078: MOVF 77,W 6667 1097: BSF 03.5
6294 1079: MOVWF 6E 6668 1098: MOVWF 6B
6295 107A: MOVF 78,W 6669 1099: MOVF 78,W
6296 107B: MOVWF 6F 6670 109A: MOVWF 6C
6297 107C: MOVF 79,W 6671 109B: MOVF 79,W
6298 107D: MOVWF 70 6672 109C: MOVWF 6D
6299 107E: MOVF 7A,W 6673 109D: MOVF 7A,W
6300 107F: MOVWF 71 6674 109E: MOVWF 6E
6301 1080: MOVF 61,W 6675 109F: MOVF 5E,W
-   6676 10A0: BCF 03.5
-   6677 10A1: BSF 03.6
6302 1081: MOVWF 73 6678 10A2: MOVWF 11
-   6679 10A3: BSF 03.5
6303 1082: MOVF 60,W 6680 10A4: BCF 03.6
6304 1083: MOVWF 72 6681 10A5: MOVF 5D,W
6305 1084: BCF 0A.4 6682 10A6: BCF 03.5
6306 1085: BSF 0A.3 6683 10A7: BSF 03.6
6307 1086: CALL 5CC 6684 10A8: MOVWF 10
6308 1087: BSF 0A.4 6685 10A9: BCF 0A.4
-   6686 10AA: BCF 03.6
-   6687 10AB: CALL 7D8
6309 1088: BCF 0A.3 6688 10AC: BSF 0A.4
6310 1089: CLRF 27 6689 10AD: CLRF 27
6311 108A: BTFSC 0B.7 6690 10AE: BTFSC 0B.7
6312 108B: BSF 27.7 6691 10AF: BSF 27.7
6313 108C: BCF 0B.7 6692 10B0: BCF 0B.7
-   6693 10B1: BSF 03.5
6314 108D: MOVF 71,W 6694 10B2: MOVF 6E,W
-   6695 10B3: BCF 03.5
6315 108E: BSF 03.5 6696 10B4: BSF 03.6
6316 108F: MOVWF 45 6697 10B5: MOVWF 59
-   6698 10B6: BSF 03.5
-   6699 10B7: BCF 03.6
6317 1090: MOVF 70,W 6700 10B8: MOVF 6D,W
-   6701 10B9: BCF 03.5
-   6702 10BA: BSF 03.6
6318 1091: MOVWF 44 6703 10BB: MOVWF 58
-   6704 10BC: BSF 03.5
6319 1092: BCF 03.5 6705 10BD: BCF 03.6
6320 1093: MOVF 6F,W 6706 10BE: MOVF 6C,W
-   6707 10BF: BCF 03.5
6321 1094: BSF 03.5 6708 10C0: BSF 03.6
6322 1095: MOVWF 43 6709 10C1: MOVWF 57
-   6710 10C2: BSF 03.5
6323 1096: BCF 03.5 6711 10C3: BCF 03.6
6324 1097: MOVF 6E,W 6712 10C4: MOVF 6B,W
-   6713 10C5: BCF 03.5
6325 1098: BSF 03.5 6714 10C6: BSF 03.6
6326 1099: MOVWF 42 6715 10C7: MOVWF 56
6327 109A: MOVF 7A,W 6716 10C8: MOVF 7A,W
6328 109B: MOVWF 49 6717 10C9: MOVWF 5D
6329 109C: MOVF 79,W 6718 10CA: MOVF 79,W
6330 109D: MOVWF 48 6719 10CB: MOVWF 5C
6331 109E: MOVF 78,W 6720 10CC: MOVF 78,W
6332 109F: MOVWF 47 6721 10CD: MOVWF 5B
6333 10A0: MOVF 77,W 6722 10CE: MOVF 77,W
6334 10A1: MOVWF 46 6723 10CF: MOVWF 5A
6335 10A2: BCF 0A.4 6724 10D0: BCF 0A.4
6336 10A3: BCF 03.5 6725 10D1: BCF 03.6
6337 10A4: CALL 057 6726 10D2: CALL 057
6338 10A5: BSF 0A.4 6727 10D3: BSF 0A.4
6339 10A6: BTFSC 27.7 6728 10D4: BTFSC 27.7
6340 10A7: BSF 0B.7 6729 10D5: BSF 0B.7
6341 10A8: MOVF 7A,W 6730 10D6: MOVF 7A,W
-   6731 10D7: BSF 03.5
6342 10A9: MOVWF 69 6732 10D8: MOVWF 66
6343 10AA: MOVF 79,W 6733 10D9: MOVF 79,W
6344 10AB: MOVWF 68 6734 10DA: MOVWF 65
6345 10AC: MOVF 78,W 6735 10DB: MOVF 78,W
6346 10AD: MOVWF 67 6736 10DC: MOVWF 64
6347 10AE: MOVF 77,W 6737 10DD: MOVF 77,W
6348 10AF: MOVWF 66 6738 10DE: MOVWF 63
6349 .................... b=atan(a); 6739 .................... b=atan(a);
6350 10B0: MOVF 69,W 6740 10DF: MOVF 66,W
6351 10B1: MOVWF 71 6741 10E0: MOVWF 6E
6352 10B2: MOVF 68,W 6742 10E1: MOVF 65,W
6353 10B3: MOVWF 70 6743 10E2: MOVWF 6D
6354 10B4: MOVF 67,W 6744 10E3: MOVF 64,W
6355 10B5: MOVWF 6F 6745 10E4: MOVWF 6C
6356 10B6: MOVF 66,W 6746 10E5: MOVF 63,W
6357 10B7: MOVWF 6E 6747 10E6: MOVWF 6B
6358 * 6748 *
6359 139A: MOVF 7A,W 6749 1403: MOVF 7A,W
-   6750 1404: BSF 03.5
-   6751 1405: BCF 03.6
6360 139B: MOVWF 6D 6752 1406: MOVWF 6A
6361 139C: MOVF 79,W 6753 1407: MOVF 79,W
6362 139D: MOVWF 6C 6754 1408: MOVWF 69
6363 139E: MOVF 78,W 6755 1409: MOVF 78,W
6364 139F: MOVWF 6B 6756 140A: MOVWF 68
6365 13A0: MOVF 77,W 6757 140B: MOVF 77,W
6366 13A1: MOVWF 6A 6758 140C: MOVWF 67
-   6759 140D: BCF 03.5
6367 13A2: CLRF 27 6760 140E: CLRF 27
6368 13A3: BTFSC 0B.7 6761 140F: BTFSC 0B.7
6369 13A4: BSF 27.7 6762 1410: BSF 27.7
6370 13A5: BCF 0B.7 6763 1411: BCF 0B.7
6371 .................... b = (b/3.14)*180; 6764 .................... b = (b/3.14)*180;
-   6765 1412: BSF 03.5
6372 13A6: MOVF 6D,W 6766 1413: MOVF 6A,W
-   6767 1414: BCF 03.5
6373 13A7: BSF 03.5 6768 1415: BSF 03.6
6374 13A8: MOVWF 45 6769 1416: MOVWF 59
-   6770 1417: BSF 03.5
6375 13A9: BCF 03.5 6771 1418: BCF 03.6
6376 13AA: MOVF 6C,W 6772 1419: MOVF 69,W
-   6773 141A: BCF 03.5
6377 13AB: BSF 03.5 6774 141B: BSF 03.6
6378 13AC: MOVWF 44 6775 141C: MOVWF 58
6379 13AD: BCF 03.5 6776 141D: BSF 03.5
-   6777 141E: BCF 03.6
6380 13AE: MOVF 6B,W 6778 141F: MOVF 68,W
-   6779 1420: BCF 03.5
6381 13AF: BSF 03.5 6780 1421: BSF 03.6
6382 13B0: MOVWF 43 6781 1422: MOVWF 57
-   6782 1423: BSF 03.5
6383 13B1: BCF 03.5 6783 1424: BCF 03.6
6384 13B2: MOVF 6A,W 6784 1425: MOVF 67,W
-   6785 1426: BCF 03.5
6385 13B3: BSF 03.5 6786 1427: BSF 03.6
6386 13B4: MOVWF 42 6787 1428: MOVWF 56
6387 13B5: MOVLW C3 6788 1429: MOVLW C3
6388 13B6: MOVWF 49 6789 142A: MOVWF 5D
6389 13B7: MOVLW F5 6790 142B: MOVLW F5
6390 13B8: MOVWF 48 6791 142C: MOVWF 5C
6391 13B9: MOVLW 48 6792 142D: MOVLW 48
6392 13BA: MOVWF 47 6793 142E: MOVWF 5B
6393 13BB: MOVLW 80 6794 142F: MOVLW 80
6394 13BC: MOVWF 46 6795 1430: MOVWF 5A
6395 13BD: BCF 0A.4 6796 1431: BCF 0A.4
6396 13BE: BCF 03.5 6797 1432: BCF 03.6
6397 13BF: CALL 057 6798 1433: CALL 057
6398 13C0: BSF 0A.4 6799 1434: BSF 0A.4
6399 13C1: BTFSC 27.7 6800 1435: BTFSC 27.7
6400 13C2: BSF 0B.7 6801 1436: BSF 0B.7
6401 13C3: MOVF 77,W 6802 1437: MOVF 77,W
-   6803 1438: BSF 03.5
6402 13C4: MOVWF 6E 6804 1439: MOVWF 6B
6403 13C5: MOVF 78,W 6805 143A: MOVF 78,W
6404 13C6: MOVWF 6F 6806 143B: MOVWF 6C
6405 13C7: MOVF 79,W 6807 143C: MOVF 79,W
6406 13C8: MOVWF 70 6808 143D: MOVWF 6D
6407 13C9: MOVF 7A,W 6809 143E: MOVF 7A,W
6408 13CA: MOVWF 71 6810 143F: MOVWF 6E
-   6811 1440: BCF 03.5
6409 13CB: BSF 03.5 6812 1441: BSF 03.6
6410 13CC: MOVWF 2C 6813 1442: MOVWF 24
-   6814 1443: BSF 03.5
-   6815 1444: BCF 03.6
6411 13CD: MOVF 70,W 6816 1445: MOVF 6D,W
-   6817 1446: BCF 03.5
-   6818 1447: BSF 03.6
6412 13CE: MOVWF 2B 6819 1448: MOVWF 23
-   6820 1449: BSF 03.5
6413 13CF: BCF 03.5 6821 144A: BCF 03.6
6414 13D0: MOVF 6F,W 6822 144B: MOVF 6C,W
-   6823 144C: BCF 03.5
6415 13D1: BSF 03.5 6824 144D: BSF 03.6
6416 13D2: MOVWF 2A 6825 144E: MOVWF 22
-   6826 144F: BSF 03.5
6417 13D3: BCF 03.5 6827 1450: BCF 03.6
6418 13D4: MOVF 6E,W 6828 1451: MOVF 6B,W
-   6829 1452: BCF 03.5
6419 13D5: BSF 03.5 6830 1453: BSF 03.6
6420 13D6: MOVWF 29 6831 1454: MOVWF 21
6421 13D7: CLRF 30 6832 1455: CLRF 28
6422 13D8: CLRF 2F 6833 1456: CLRF 27
6423 13D9: MOVLW 34 6834 1457: MOVLW 34
6424 13DA: MOVWF 2E 6835 1458: MOVWF 26
6425 13DB: MOVLW 86 6836 1459: MOVLW 86
6426 13DC: MOVWF 2D 6837 145A: MOVWF 25
6427 13DD: BCF 0A.4 6838 145B: BCF 0A.4
-   6839 145C: BSF 0A.3
6428 13DE: BCF 03.5 6840 145D: BCF 03.6
6429 13DF: CALL 76E 6841 145E: CALL 2AB
6430 13E0: BSF 0A.4 6842 145F: BSF 0A.4
-   6843 1460: BCF 0A.3
6431 13E1: MOVF 7A,W 6844 1461: MOVF 7A,W
-   6845 1462: BSF 03.5
6432 13E2: MOVWF 6D 6846 1463: MOVWF 6A
6433 13E3: MOVF 79,W 6847 1464: MOVF 79,W
6434 13E4: MOVWF 6C 6848 1465: MOVWF 69
6435 13E5: MOVF 78,W 6849 1466: MOVF 78,W
6436 13E6: MOVWF 6B 6850 1467: MOVWF 68
6437 13E7: MOVF 77,W 6851 1468: MOVF 77,W
6438 13E8: MOVWF 6A 6852 1469: MOVWF 67
6439 .................... b=abs(b); 6853 .................... b=abs(b);
6440 13E9: MOVF 6A,W 6854 146A: MOVF 67,W
6441 13EA: MOVWF 77 6855 146B: MOVWF 77
6442 13EB: MOVF 6B,W 6856 146C: MOVF 68,W
6443 13EC: MOVWF 78 6857 146D: MOVWF 78
6444 13ED: MOVF 6C,W 6858 146E: MOVF 69,W
6445 13EE: MOVWF 79 6859 146F: MOVWF 79
6446 13EF: MOVF 6D,W 6860 1470: MOVF 6A,W
6447 13F0: MOVWF 7A 6861 1471: MOVWF 7A
6448 13F1: BCF 78.7 6862 1472: BCF 78.7
6449 13F2: MOVF 6D,W 6863 1473: MOVF 6A,W
6450 13F3: MOVWF 6D 6864 1474: MOVWF 6A
6451 13F4: MOVF 6C,W 6865 1475: MOVF 69,W
6452 13F5: MOVWF 6C 6866 1476: MOVWF 69
6453 13F6: MOVF 78,W 6867 1477: MOVF 78,W
6454 13F7: MOVWF 6B 6868 1478: MOVWF 68
6455 13F8: MOVF 6A,W 6869 1479: MOVF 67,W
6456 13F9: MOVWF 6A 6870 147A: MOVWF 67
6457 .................... 6871 ....................
6458 .................... if(X==0) //osetreni proti deleni 0 6872 .................... if(X==0) //osetreni proti deleni 0
6459 13FA: MOVF 60,F 6873 147B: MOVF 5D,F
6460 13FB: BTFSS 03.2 6874 147C: BTFSS 03.2
6461 13FC: GOTO 417 6875 147D: GOTO 498
6462 13FD: MOVF 61,F 6876 147E: MOVF 5E,F
6463 13FE: BTFSS 03.2 6877 147F: BTFSS 03.2
6464 13FF: GOTO 417 6878 1480: GOTO 498
6465 .................... { 6879 .................... {
6466 .................... if(Y>0) 6880 .................... if(Y>0)
6467 1400: BTFSC 63.7 6881 1481: BTFSC 60.7
6468 1401: GOTO 410 6882 1482: GOTO 491
6469 1402: MOVF 63,F 6883 1483: MOVF 60,F
6470 1403: BTFSS 03.2 6884 1484: BTFSS 03.2
6471 1404: GOTO 409 6885 1485: GOTO 48A
6472 1405: MOVF 62,W 6886 1486: MOVF 5F,W
6473 1406: SUBLW 00 6887 1487: SUBLW 00
6474 1407: BTFSC 03.0 6888 1488: BTFSC 03.0
6475 1408: GOTO 410 6889 1489: GOTO 491
6476 .................... { 6890 .................... {
6477 .................... b=90; 6891 .................... b=90;
6478 1409: CLRF 6D 6892 148A: CLRF 6A
6479 140A: CLRF 6C 6893 148B: CLRF 69
6480 140B: MOVLW 34 6894 148C: MOVLW 34
6481 140C: MOVWF 6B 6895 148D: MOVWF 68
6482 140D: MOVLW 85 6896 148E: MOVLW 85
6483 140E: MOVWF 6A 6897 148F: MOVWF 67
6484 .................... } 6898 .................... }
6485 .................... else 6899 .................... else
6486 140F: GOTO 416 6900 1490: GOTO 497
6487 .................... { 6901 .................... {
6488 .................... b=270; 6902 .................... b=270;
6489 1410: CLRF 6D 6903 1491: CLRF 6A
6490 1411: CLRF 6C 6904 1492: CLRF 69
6491 1412: MOVLW 07 6905 1493: MOVLW 07
6492 1413: MOVWF 6B 6906 1494: MOVWF 68
6493 1414: MOVLW 87 6907 1495: MOVLW 87
6494 1415: MOVWF 6A 6908 1496: MOVWF 67
6495 .................... } 6909 .................... }
6496 .................... } 6910 .................... }
6497 .................... else 6911 .................... else
6498 1416: GOTO 499 6912 1497: GOTO 532
6499 .................... { 6913 .................... {
6500 .................... if(X>0) 6914 .................... if(X>0)
6501 1417: BTFSC 61.7 6915 1498: BTFSC 5E.7
6502 1418: GOTO 470 6916 1499: GOTO 501
6503 1419: MOVF 61,F 6917 149A: MOVF 5E,F
6504 141A: BTFSS 03.2 6918 149B: BTFSS 03.2
6505 141B: GOTO 420 6919 149C: GOTO 4A1
6506 141C: MOVF 60,W 6920 149D: MOVF 5D,W
6507 141D: SUBLW 00 6921 149E: SUBLW 00
6508 141E: BTFSC 03.0 6922 149F: BTFSC 03.0
6509 141F: GOTO 470 6923 14A0: GOTO 501
6510 .................... { 6924 .................... {
6511 .................... if(Y>=0) 6925 .................... if(Y>=0)
6512 1420: BTFSC 63.7 6926 14A1: BTFSC 60.7
6513 1421: GOTO 449 6927 14A2: GOTO 4D2
6514 .................... { 6928 .................... {
6515 .................... b=180+b; 6929 .................... b=180+b;
6516 1422: BCF 03.1 6930 14A3: BCF 03.1
-   6931 14A4: BCF 03.5
6517 1423: BSF 03.5 6932 14A5: BSF 03.6
6518 1424: CLRF 2C 6933 14A6: CLRF 24
6519 1425: CLRF 2B 6934 14A7: CLRF 23
6520 1426: MOVLW 34 6935 14A8: MOVLW 34
6521 1427: MOVWF 2A 6936 14A9: MOVWF 22
6522 1428: MOVLW 86 6937 14AA: MOVLW 86
6523 1429: MOVWF 29 6938 14AB: MOVWF 21
-   6939 14AC: BSF 03.5
6524 142A: BCF 03.5 6940 14AD: BCF 03.6
6525 142B: MOVF 6D,W 6941 14AE: MOVF 6A,W
-   6942 14AF: BCF 03.5
6526 142C: BSF 03.5 6943 14B0: BSF 03.6
6527 142D: MOVWF 30 6944 14B1: MOVWF 28
-   6945 14B2: BSF 03.5
6528 142E: BCF 03.5 6946 14B3: BCF 03.6
6529 142F: MOVF 6C,W 6947 14B4: MOVF 69,W
-   6948 14B5: BCF 03.5
6530 1430: BSF 03.5 6949 14B6: BSF 03.6
6531 1431: MOVWF 2F 6950 14B7: MOVWF 27
-   6951 14B8: BSF 03.5
6532 1432: BCF 03.5 6952 14B9: BCF 03.6
6533 1433: MOVF 6B,W 6953 14BA: MOVF 68,W
-   6954 14BB: BCF 03.5
6534 1434: BSF 03.5 6955 14BC: BSF 03.6
6535 1435: MOVWF 2E 6956 14BD: MOVWF 26
-   6957 14BE: BSF 03.5
6536 1436: BCF 03.5 6958 14BF: BCF 03.6
6537 1437: MOVF 6A,W 6959 14C0: MOVF 67,W
6538 1438: BSF 03.5 6960 14C1: BCF 03.5
6539 1439: MOVWF 2D 6961 14C2: BSF 03.6
6540 143A: BCF 0A.4 6962 14C3: MOVWF 25
6541 143B: BSF 0A.3 6963 14C4: BCF 0A.4
6542 143C: BCF 03.5 6964 14C5: BCF 03.6
6543 143D: CALL 000 6965 14C6: CALL 5DC
6544 143E: BSF 0A.4 6966 14C7: BSF 0A.4
6545 143F: BCF 0A.3 6967 14C8: MOVF 7A,W
6546 1440: MOVF 7A,W 6968 14C9: BSF 03.5
6547 1441: MOVWF 6D 6969 14CA: MOVWF 6A
6548 1442: MOVF 79,W 6970 14CB: MOVF 79,W
6549 1443: MOVWF 6C 6971 14CC: MOVWF 69
6550 1444: MOVF 78,W 6972 14CD: MOVF 78,W
6551 1445: MOVWF 6B 6973 14CE: MOVWF 68
6552 1446: MOVF 77,W 6974 14CF: MOVF 77,W
6553 1447: MOVWF 6A 6975 14D0: MOVWF 67
6554 .................... 6976 ....................
6555 .................... } 6977 .................... }
6556 .................... else 6978 .................... else
6557 1448: GOTO 46F 6979 14D1: GOTO 500
6558 .................... { 6980 .................... {
6559 .................... b=180-b; 6981 .................... b=180-b;
6560 1449: BSF 03.1 6982 14D2: BSF 03.1
-   6983 14D3: BCF 03.5
6561 144A: BSF 03.5 6984 14D4: BSF 03.6
6562 144B: CLRF 2C 6985 14D5: CLRF 24
6563 144C: CLRF 2B 6986 14D6: CLRF 23
6564 144D: MOVLW 34 6987 14D7: MOVLW 34
6565 144E: MOVWF 2A 6988 14D8: MOVWF 22
6566 144F: MOVLW 86 6989 14D9: MOVLW 86
6567 1450: MOVWF 29 6990 14DA: MOVWF 21
-   6991 14DB: BSF 03.5
6568 1451: BCF 03.5 6992 14DC: BCF 03.6
6569 1452: MOVF 6D,W 6993 14DD: MOVF 6A,W
-   6994 14DE: BCF 03.5
6570 1453: BSF 03.5 6995 14DF: BSF 03.6
6571 1454: MOVWF 30 6996 14E0: MOVWF 28
-   6997 14E1: BSF 03.5
6572 1455: BCF 03.5 6998 14E2: BCF 03.6
6573 1456: MOVF 6C,W 6999 14E3: MOVF 69,W
-   7000 14E4: BCF 03.5
6574 1457: BSF 03.5 7001 14E5: BSF 03.6
6575 1458: MOVWF 2F 7002 14E6: MOVWF 27
-   7003 14E7: BSF 03.5
6576 1459: BCF 03.5 7004 14E8: BCF 03.6
6577 145A: MOVF 6B,W 7005 14E9: MOVF 68,W
-   7006 14EA: BCF 03.5
6578 145B: BSF 03.5 7007 14EB: BSF 03.6
6579 145C: MOVWF 2E 7008 14EC: MOVWF 26
6580 145D: BCF 03.5 7009 14ED: BSF 03.5
-   7010 14EE: BCF 03.6
6581 145E: MOVF 6A,W 7011 14EF: MOVF 67,W
6582 145F: BSF 03.5 7012 14F0: BCF 03.5
6583 1460: MOVWF 2D 7013 14F1: BSF 03.6
6584 1461: BCF 0A.4 7014 14F2: MOVWF 25
6585 1462: BSF 0A.3 7015 14F3: BCF 0A.4
6586 1463: BCF 03.5 7016 14F4: BCF 03.6
6587 1464: CALL 000 7017 14F5: CALL 5DC
6588 1465: BSF 0A.4 7018 14F6: BSF 0A.4
6589 1466: BCF 0A.3 7019 14F7: MOVF 7A,W
6590 1467: MOVF 7A,W 7020 14F8: BSF 03.5
6591 1468: MOVWF 6D 7021 14F9: MOVWF 6A
6592 1469: MOVF 79,W 7022 14FA: MOVF 79,W
6593 146A: MOVWF 6C 7023 14FB: MOVWF 69
6594 146B: MOVF 78,W 7024 14FC: MOVF 78,W
6595 146C: MOVWF 6B 7025 14FD: MOVWF 68
6596 146D: MOVF 77,W 7026 14FE: MOVF 77,W
6597 146E: MOVWF 6A 7027 14FF: MOVWF 67
6598 .................... 7028 ....................
6599 .................... } 7029 .................... }
6600 .................... } 7030 .................... }
6601 .................... else 7031 .................... else
6602 146F: GOTO 499 7032 1500: GOTO 532
6603 .................... { 7033 .................... {
6604 .................... if(Y>=0) 7034 .................... if(Y>=0)
6605 1470: BTFSC 63.7 7035 1501: BTFSC 60.7
6606 1471: GOTO 499 7036 1502: GOTO 532
6607 .................... { 7037 .................... {
6608 .................... b=360-b; 7038 .................... b=360-b;
6609 1472: BSF 03.1 7039 1503: BSF 03.1
-   7040 1504: BCF 03.5
6610 1473: BSF 03.5 7041 1505: BSF 03.6
6611 1474: CLRF 2C 7042 1506: CLRF 24
6612 1475: CLRF 2B 7043 1507: CLRF 23
6613 1476: MOVLW 34 7044 1508: MOVLW 34
6614 1477: MOVWF 2A 7045 1509: MOVWF 22
6615 1478: MOVLW 87 7046 150A: MOVLW 87
6616 1479: MOVWF 29 7047 150B: MOVWF 21
-   7048 150C: BSF 03.5
6617 147A: BCF 03.5 7049 150D: BCF 03.6
6618 147B: MOVF 6D,W 7050 150E: MOVF 6A,W
-   7051 150F: BCF 03.5
6619 147C: BSF 03.5 7052 1510: BSF 03.6
6620 147D: MOVWF 30 7053 1511: MOVWF 28
-   7054 1512: BSF 03.5
6621 147E: BCF 03.5 7055 1513: BCF 03.6
6622 147F: MOVF 6C,W 7056 1514: MOVF 69,W
-   7057 1515: BCF 03.5
6623 1480: BSF 03.5 7058 1516: BSF 03.6
6624 1481: MOVWF 2F 7059 1517: MOVWF 27
-   7060 1518: BSF 03.5
6625 1482: BCF 03.5 7061 1519: BCF 03.6
6626 1483: MOVF 6B,W 7062 151A: MOVF 68,W
-   7063 151B: BCF 03.5
6627 1484: BSF 03.5 7064 151C: BSF 03.6
6628 1485: MOVWF 2E 7065 151D: MOVWF 26
-   7066 151E: BSF 03.5
6629 1486: BCF 03.5 7067 151F: BCF 03.6
6630 1487: MOVF 6A,W 7068 1520: MOVF 67,W
6631 1488: BSF 03.5 7069 1521: BCF 03.5
6632 1489: MOVWF 2D 7070 1522: BSF 03.6
6633 148A: BCF 0A.4 7071 1523: MOVWF 25
6634 148B: BSF 0A.3 7072 1524: BCF 0A.4
6635 148C: BCF 03.5 7073 1525: BCF 03.6
6636 148D: CALL 000 7074 1526: CALL 5DC
6637 148E: BSF 0A.4 7075 1527: BSF 0A.4
6638 148F: BCF 0A.3 7076 1528: MOVF 7A,W
6639 1490: MOVF 7A,W 7077 1529: BSF 03.5
6640 1491: MOVWF 6D 7078 152A: MOVWF 6A
6641 1492: MOVF 79,W 7079 152B: MOVF 79,W
6642 1493: MOVWF 6C 7080 152C: MOVWF 69
6643 1494: MOVF 78,W 7081 152D: MOVF 78,W
6644 1495: MOVWF 6B 7082 152E: MOVWF 68
6645 1496: MOVF 77,W 7083 152F: MOVF 77,W
6646 1497: MOVWF 6A 7084 1530: MOVWF 67
6647 .................... 7085 ....................
6648 .................... } 7086 .................... }
6649 .................... else 7087 .................... else
6650 1498: GOTO 499 7088 1531: GOTO 532
6651 .................... { 7089 .................... {
6652 .................... b=b; 7090 .................... b=b;
6653 .................... 7091 ....................
6654 .................... } 7092 .................... }
6655 .................... } 7093 .................... }
6656 .................... 7094 ....................
6657 .................... } 7095 .................... }
6658 .................... 7096 ....................
6659 .................... return b; 7097 .................... return b;
6660 1499: MOVF 6A,W 7098 1532: MOVF 67,W
6661 149A: MOVWF 77 7099 1533: MOVWF 77
6662 149B: MOVF 6B,W 7100 1534: MOVF 68,W
6663 149C: MOVWF 78 7101 1535: MOVWF 78
6664 149D: MOVF 6C,W 7102 1536: MOVF 69,W
6665 149E: MOVWF 79 7103 1537: MOVWF 79
6666 149F: MOVF 6D,W 7104 1538: MOVF 6A,W
6667 14A0: MOVWF 7A 7105 1539: MOVWF 7A
6668 .................... 7106 ....................
6669 .................... } 7107 .................... }
-   7108 153A: BCF 03.5
6670 14A1: BSF 0A.3 7109 153B: BCF 0A.3
6671 14A2: BSF 0A.4 7110 153C: BSF 0A.4
6672 14A3: GOTO 111 (RETURN) 7111 153D: GOTO 629 (RETURN)
6673 .................... 7112 ....................
6674 .................... 7113 ....................
6675 .................... 7114 ....................
6676 .................... 7115 ....................
6677 .................... 7116 ....................
6678 .................... 7117 ....................
6679 .................... void uvitani(void) // uvodni zprava 7118 .................... void uvitani(void) // uvodni zprava
6680 .................... { 7119 .................... {
6681 .................... printf("\r\n\r\n# Meteorologicka stanice %s (C) 2013 www.mlab.cz \r\n",VERSION); 7120 .................... printf("\r\n\r\n# Meteorologicka stanice %s (C) 2013 www.mlab.cz \r\n",VERSION);
6682 * -  
6683 04AB: MOVLW 98 -  
6684 04AC: BSF 03.6 -  
6685 04AD: MOVWF 0D -  
6686 04AE: MOVLW 01 -  
6687 04AF: MOVWF 0F -  
6688 04B0: BCF 03.0 -  
6689 04B1: MOVLW 1D -  
6690 04B2: BCF 03.6 -  
6691 04B3: MOVWF 60 -  
6692 04B4: CALL 3F5 -  
6693 04B5: MOVLW B4 -  
6694 04B6: BSF 03.6 -  
6695 04B7: MOVWF 0D -  
6696 04B8: MOVLW 01 -  
6697 04B9: MOVWF 0F -  
6698 04BA: BCF 03.6 -  
6699 04BB: CALL 444 -  
6700 04BC: MOVLW A7 -  
6701 04BD: BSF 03.6 -  
6702 04BE: MOVWF 0D -  
6703 04BF: MOVLW 01 -  
6704 04C0: MOVWF 0F -  
6705 04C1: BSF 03.0 -  
6706 04C2: MOVLW 18 -  
6707 04C3: BCF 03.6 -  
6708 04C4: MOVWF 60 -  
6709 04C5: CALL 3F5 -  
6710 .................... printf("\r\n# Autor: %s Posledni uprava: %s \r\n",AUTOR, DATE);// Welcome message 7121 .................... printf("\r\n# Autor: %s Posledni uprava: %s \r\n",AUTOR, DATE);// Welcome message
6711 04C6: MOVLW B6 -  
6712 04C7: BSF 03.6 -  
6713 04C8: MOVWF 0D -  
6714 04C9: MOVLW 01 -  
6715 04CA: MOVWF 0F -  
6716 04CB: BCF 03.0 -  
6717 04CC: MOVLW 0B -  
6718 04CD: BCF 03.6 -  
6719 04CE: MOVWF 60 -  
6720 04CF: CALL 3F5 -  
6721 04D0: MOVLW C9 -  
6722 04D1: BSF 03.6 -  
6723 04D2: MOVWF 0D -  
6724 04D3: MOVLW 01 -  
6725 04D4: MOVWF 0F -  
6726 04D5: BCF 03.6 -  
6727 04D6: CALL 444 -  
6728 04D7: MOVLW BC -  
6729 04D8: BSF 03.6 -  
6730 04D9: MOVWF 0D -  
6731 04DA: MOVLW 01 -  
6732 04DB: MOVWF 0F -  
6733 04DC: BSF 03.0 -  
6734 04DD: MOVLW 12 -  
6735 04DE: BCF 03.6 -  
6736 04DF: MOVWF 60 -  
6737 04E0: CALL 3F5 -  
6738 04E1: MOVLW CF -  
6739 04E2: BSF 03.6 -  
6740 04E3: MOVWF 0D -  
6741 04E4: MOVLW 01 -  
6742 04E5: MOVWF 0F -  
6743 04E6: BCF 03.6 -  
6744 04E7: CALL 444 -  
6745 04E8: MOVLW 20 -  
6746 04E9: MOVWF 64 -  
6747 04EA: CALL 3D1 -  
6748 04EB: MOVLW 0D -  
6749 04EC: MOVWF 64 -  
6750 04ED: CALL 3D1 -  
6751 04EE: MOVLW 0A -  
6752 04EF: MOVWF 64 -  
6753 04F0: CALL 3D1 -  
6754 .................... printf("# ver poradi "); 7122 .................... printf("# ver poradi ");
6755 04F1: MOVLW D4 -  
6756 04F2: BSF 03.6 -  
6757 04F3: MOVWF 0D -  
6758 04F4: MOVLW 01 -  
6759 04F5: MOVWF 0F -  
6760 04F6: BCF 03.6 -  
6761 04F7: CALL 444 -  
6762 .................... printf("altimet_t[°C] altimet_a[m] altimet_p[Pa] "); 7123 .................... printf("altimet_t[°C] altimet_a[m] altimet_p[Pa] ");
6763 04F8: MOVLW DB -  
6764 04F9: BSF 03.6 -  
6765 04FA: MOVWF 0D -  
6766 04FB: MOVLW 01 -  
6767 04FC: MOVWF 0F -  
6768 .................... printf("sht_t[°C] sht_h[%%] Anemo[m/s]check\r\n\r\n"); 7124 .................... printf("sht_t[°C] sht_h[%%] Anemo[m/s]check\r\n\r\n");
6769 * -  
6770 051D: MOVLW 05 -  
6771 051E: MOVWF 0D -  
6772 051F: MOVLW 02 -  
6773 0520: MOVWF 0F -  
6774 0521: MOVLW 10 -  
6775 0522: BCF 03.6 -  
6776 0523: MOVWF 60 -  
6777 0524: CALL 48A -  
6778 0525: MOVLW 25 -  
6779 0526: MOVWF 64 -  
6780 0527: CALL 3D1 -  
6781 0528: MOVLW 17 -  
6782 0529: BSF 03.6 -  
6783 052A: MOVWF 0D -  
6784 052B: MOVLW 02 -  
6785 052C: MOVWF 0F -  
6786 052D: MOVLW 16 -  
6787 052E: BCF 03.6 -  
6788 052F: MOVWF 60 -  
6789 0530: CALL 48A -  
6790 .................... } 7125 .................... }
6791 0531: BSF 0A.3 -  
6792 0532: BSF 0A.4 -  
6793 0533: GOTO 0A6 (RETURN) -  
6794 .................... 7126 ....................
6795 .................... void main() 7127 .................... void main()
6796 .................... { 7128 .................... {
6797 * -  
6798 1800: CLRF 04 7129 153E: CLRF 04
6799 1801: BCF 03.7 7130 153F: BCF 03.7
6800 1802: MOVLW 1F 7131 1540: MOVLW 1F
6801 1803: ANDWF 03,F 7132 1541: ANDWF 03,F
6802 1804: MOVLW 71 7133 1542: MOVLW 71
6803 1805: BSF 03.5 7134 1543: BSF 03.5
6804 1806: MOVWF 0F 7135 1544: MOVWF 0F
6805 1807: MOVF 0F,W 7136 1545: MOVF 0F,W
6806 1808: BCF 03.5 7137 1546: BCF 03.5
6807 1809: BCF 28.7 7138 1547: BCF 28.7
6808 180A: MOVF 28,W 7139 1548: MOVF 28,W
6809 180B: BSF 03.5 7140 1549: BSF 03.5
6810 180C: MOVWF 07 7141 154A: MOVWF 07
6811 180D: BCF 03.5 7142 154B: BCF 03.5
6812 180E: BSF 07.7 7143 154C: BSF 07.7
6813 180F: CLRF 34 7144 154D: CLRF 30
6814 1810: CLRF 33 7145 154E: CLRF 2F
6815 1811: CLRF 32 7146 154F: CLRF 2E
6816 1812: CLRF 31 7147 1550: CLRF 2D
6817 1813: BSF 03.5 7148 1551: BSF 03.5
6818 1814: BSF 03.6 7149 1552: BSF 03.6
6819 1815: MOVF 09,W 7150 1553: MOVF 09,W
6820 1816: ANDLW C0 7151 1554: ANDLW C0
6821 1817: MOVWF 09 7152 1555: MOVWF 09
6822 1818: BCF 03.6 7153 1556: BCF 03.6
6823 1819: BCF 1F.4 7154 1557: BCF 1F.4
6824 181A: BCF 1F.5 7155 1558: BCF 1F.5
6825 181B: MOVLW 00 7156 1559: MOVLW 00
6826 181C: BSF 03.6 7157 155A: BSF 03.6
6827 181D: MOVWF 08 7158 155B: MOVWF 08
6828 181E: BCF 03.5 7159 155C: BCF 03.5
6829 181F: CLRF 07 7160 155D: CLRF 07
6830 1820: CLRF 08 7161 155E: CLRF 08
6831 1821: CLRF 09 7162 155F: CLRF 09
6832 .................... setup_wdt(WDT_2304MS); //nastavení resetu pokud nedojde v cas k jeho vynulovani -  
6833 * -  
6834 1830: MOVLW 09 -  
6835 1831: BSF 03.6 -  
6836 1832: MOVWF 05 -  
6837 1833: MOVLW 0F -  
6838 1834: MOVWF 77 -  
6839 1835: BCF 03.6 -  
6840 1836: CLRF 01 -  
6841 1837: MOVLW 81 -  
6842 1838: MOVWF 04 -  
6843 1839: BCF 03.7 -  
6844 183A: MOVF 00,W -  
6845 183B: ANDLW F0 -  
6846 183C: IORLW 07 -  
6847 183D: MOVWF 00 -  
6848 183E: CLRWDT -  
6849 183F: MOVF 00,W -  
6850 1840: ANDLW F7 -  
6851 1841: BTFSC 77.3 -  
6852 1842: ANDLW F0 -  
6853 1843: IORWF 77,W -  
6854 1844: MOVWF 00 -  
6855 .................... restart_wdt(); //---WDT -  
6856 1845: CLRWDT -  
6857 .................... setup_adc_ports(NO_ANALOGS|VSS_VDD); 7163 .................... setup_adc_ports(NO_ANALOGS|VSS_VDD);
-   7164 *
6858 1846: BSF 03.5 7165 1567: BSF 03.5
6859 1847: BSF 03.6 7166 1568: BSF 03.6
6860 1848: MOVF 09,W 7167 1569: MOVF 09,W
6861 1849: ANDLW C0 7168 156A: ANDLW C0
6862 184A: MOVWF 09 7169 156B: MOVWF 09
6863 184B: BCF 03.6 7170 156C: BCF 03.6
6864 184C: BCF 1F.4 7171 156D: BCF 1F.4
6865 184D: BCF 1F.5 7172 156E: BCF 1F.5
6866 184E: MOVLW 00 7173 156F: MOVLW 00
6867 184F: BSF 03.6 7174 1570: BSF 03.6
6868 1850: MOVWF 08 7175 1571: MOVWF 08
6869 .................... setup_adc(ADC_CLOCK_DIV_2); 7176 .................... setup_adc(ADC_CLOCK_DIV_2);
6870 1851: BCF 03.5 7177 1572: BCF 03.5
6871 1852: BCF 03.6 7178 1573: BCF 03.6
6872 1853: BCF 1F.6 7179 1574: BCF 1F.6
6873 1854: BCF 1F.7 7180 1575: BCF 1F.7
6874 1855: BSF 03.5 7181 1576: BSF 03.5
6875 1856: BCF 1F.7 7182 1577: BCF 1F.7
6876 1857: BCF 03.5 7183 1578: BCF 03.5
6877 1858: BSF 1F.0 7184 1579: BSF 1F.0
6878 .................... setup_spi(SPI_SS_DISABLED); 7185 .................... setup_spi(SPI_SS_DISABLED);
6879 1859: BCF 14.5 7186 157A: BCF 14.5
6880 185A: BCF 28.5 7187 157B: BCF 28.5
6881 185B: MOVF 28,W 7188 157C: MOVF 28,W
6882 185C: BSF 03.5 7189 157D: BSF 03.5
6883 185D: MOVWF 07 7190 157E: MOVWF 07
6884 185E: BCF 03.5 7191 157F: BCF 03.5
6885 185F: BSF 28.4 7192 1580: BSF 28.4
6886 1860: MOVF 28,W 7193 1581: MOVF 28,W
6887 1861: BSF 03.5 7194 1582: BSF 03.5
6888 1862: MOVWF 07 7195 1583: MOVWF 07
6889 1863: BCF 03.5 7196 1584: BCF 03.5
6890 1864: BCF 28.3 7197 1585: BCF 28.3
6891 1865: MOVF 28,W 7198 1586: MOVF 28,W
6892 1866: BSF 03.5 7199 1587: BSF 03.5
6893 1867: MOVWF 07 7200 1588: MOVWF 07
6894 1868: MOVLW 01 7201 1589: MOVLW 01
6895 1869: BCF 03.5 7202 158A: BCF 03.5
6896 186A: MOVWF 14 7203 158B: MOVWF 14
6897 186B: MOVLW 00 7204 158C: MOVLW 00
6898 186C: BSF 03.5 7205 158D: BSF 03.5
6899 186D: MOVWF 14 7206 158E: MOVWF 14
6900 .................... setup_timer_0(RTCC_EXT_L_TO_H|RTCC_DIV_1); 7207 .................... setup_timer_0(RTCC_EXT_L_TO_H|RTCC_DIV_1);
6901 186E: MOVF 01,W 7208 158F: MOVF 01,W
6902 186F: ANDLW C7 7209 1590: ANDLW C7
6903 1870: IORLW 28 7210 1591: IORLW 28
6904 1871: MOVWF 01 7211 1592: MOVWF 01
6905 .................... setup_timer_1(T1_EXTERNAL|T1_DIV_BY_1|T1_CLK_OUT); 7212 .................... setup_timer_1(T1_EXTERNAL|T1_DIV_BY_1|T1_CLK_OUT);
6906 1872: MOVLW 0F 7213 1593: MOVLW 0F
6907 1873: BCF 03.5 7214 1594: BCF 03.5
6908 1874: MOVWF 10 7215 1595: MOVWF 10
6909 .................... setup_timer_2(T2_DISABLED,0,1); 7216 .................... setup_timer_2(T2_DISABLED,0,1);
6910 1875: MOVLW 00 7217 1596: MOVLW 00
6911 1876: MOVWF 78 7218 1597: MOVWF 78
6912 1877: MOVWF 12 7219 1598: MOVWF 12
6913 1878: MOVLW 00 7220 1599: MOVLW 00
6914 1879: BSF 03.5 7221 159A: BSF 03.5
6915 187A: MOVWF 12 7222 159B: MOVWF 12
6916 .................... setup_ccp1(CCP_OFF); 7223 .................... setup_ccp1(CCP_OFF);
6917 187B: BCF 03.5 7224 159C: BCF 03.5
6918 187C: BSF 28.2 7225 159D: BSF 28.2
6919 187D: MOVF 28,W 7226 159E: MOVF 28,W
6920 187E: BSF 03.5 7227 159F: BSF 03.5
6921 187F: MOVWF 07 7228 15A0: MOVWF 07
6922 1880: BCF 03.5 7229 15A1: BCF 03.5
6923 1881: CLRF 17 7230 15A2: CLRF 17
6924 1882: BSF 03.5 7231 15A3: BSF 03.5
6925 1883: CLRF 1B 7232 15A4: CLRF 1B
6926 1884: CLRF 1C 7233 15A5: CLRF 1C
6927 1885: MOVLW 01 7234 15A6: MOVLW 01
6928 1886: MOVWF 1D 7235 15A7: MOVWF 1D
6929 .................... setup_comparator(NC_NC_NC_NC);// This device COMP currently not supported by the PICWizard 7236 .................... setup_comparator(NC_NC_NC_NC);// This device COMP currently not supported by the PICWizard
6930 1887: BCF 03.5 7237 15A8: BCF 03.5
6931 1888: BSF 03.6 7238 15A9: BSF 03.6
6932 1889: CLRF 07 7239 15AA: CLRF 07
6933 188A: CLRF 08 7240 15AB: CLRF 08
6934 188B: CLRF 09 7241 15AC: CLRF 09
6935 .................... 7242 ....................
6936 .................... 7243 ....................
6937 .................... float altimet_t; //teplota z MPL3115 7244 .................... float altimet_t; //teplota z MPL3115
6938 .................... float altimet_p; //tlak z MPL3115 7245 .................... float altimet_p; //tlak z MPL3115
6939 .................... float altimet_a; //vyska z MPL3115 7246 .................... float altimet_a; //vyska z MPL3115
6940 .................... float sht25_t; //teplota z SHT25 7247 .................... float sht25_t; //teplota z SHT25
6941 .................... float sht25_h; //relativni vlhkost z SHT25 7248 .................... float sht25_h; //relativni vlhkost z SHT25
6942 .................... float smer_v; //smer vetru 7249 .................... float smer_v; //smer vetru
6943 .................... 7250 ....................
6944 .................... unsigned int16 poradi=0; //cislo vzorku 7251 ....................
6945 .................... unsigned int8 sht_config; 7252 .................... unsigned int8 sht_config;
6946 188C: BCF 03.6 7253 ....................
6947 188D: CLRF 50 -  
6948 188E: CLRF 4F 7254 ....................
6949 .................... 7255 ....................
6950 .................... //nastaveni SHT25 7256 .................... //nastaveni SHT25
6951 .................... SHT25_soft_reset(); 7257 .................... SHT25_soft_reset();
6952 188F: BCF 0A.4 7258 15AD: BCF 0A.4
6953 1890: BCF 0A.3 7259 15AE: BCF 03.6
6954 1891: GOTO 278 7260 15AF: GOTO 27A
6955 1892: BSF 0A.4 7261 15B0: BSF 0A.4
6956 1893: BSF 0A.3 -  
6957 .................... sht_config = SHT25_RH12_T14 | SHT25_HEATER_OFF; //vypnuti topeni v SHT25 7262 .................... sht_config = SHT25_RH12_T14 | SHT25_HEATER_OFF; //vypnuti topeni v SHT25
6958 1894: CLRF 51 7263 15B1: CLRF 4B
6959 .................... SHT25_setup(sht_config); 7264 .................... SHT25_setup(sht_config);
6960 1895: MOVF 51,W 7265 15B2: MOVF 4B,W
-   7266 15B3: BSF 03.5
6961 1896: MOVWF 60 7267 15B4: MOVWF 5D
6962 1897: BCF 0A.4 7268 15B5: BCF 0A.4
6963 1898: BCF 0A.3 7269 15B6: BCF 03.5
6964 1899: GOTO 309 7270 15B7: GOTO 317
6965 189A: BSF 0A.4 7271 15B8: BSF 0A.4
6966 189B: BSF 0A.3 -  
6967 .................... 7272 ....................
6968 .................... //nastavení pøerušení pro anemometr 7273 .................... //nastavení pøerušení pro anemometr
6969 .................... enable_interrupts(INT_TIMER1); 7274 .................... enable_interrupts(INT_TIMER1);
6970 189C: BSF 03.5 7275 15B9: BSF 03.5
6971 189D: BSF 0C.0 7276 15BA: BSF 0C.0
6972 .................... enable_interrupts(INT_TIMER0); 7277 .................... enable_interrupts(INT_TIMER0);
6973 189E: BCF 03.5 7278 15BB: BCF 03.5
6974 189F: BSF 0B.5 7279 15BC: BSF 0B.5
6975 .................... enable_interrupts(GLOBAL); 7280 .................... enable_interrupts(GLOBAL);
6976 18A0: MOVLW C0 7281 15BD: MOVLW C0
6977 18A1: IORWF 0B,F 7282 15BE: IORWF 0B,F
6978 .................... restart_wdt(); //---WDT 7283 ....................
6979 18A2: CLRWDT -  
6980 .................... 7284 ....................
6981 .................... uvitani(); 7285 .................... //uvitani();
6982 18A3: BCF 0A.4 -  
6983 18A4: BCF 0A.3 -  
6984 18A5: GOTO 4AB -  
6985 18A6: BSF 0A.4 -  
6986 18A7: BSF 0A.3 -  
6987 .................... set_mag(); //nastaveni magnetometru pro smer vetru 7286 .................... set_mag(); //nastaveni magnetometru pro smer vetru
6988 18A8: BCF 0A.4 7287 15BF: BCF 0A.4
6989 18A9: BCF 0A.3 -  
6990 18AA: GOTO 534 7288 15C0: GOTO 3F7
6991 18AB: BSF 0A.4 7289 15C1: BSF 0A.4
6992 18AC: BSF 0A.3 -  
6993 .................... 7290 ....................
6994 .................... // vynulovani promenych pro anemometr 7291 .................... // vynulovani promenych pro anemometr
6995 .................... set_timer0(0); 7292 .................... set_timer0(0);
6996 18AD: CLRF 01 7293 15C2: CLRF 01
6997 .................... set_timer1(0); 7294 .................... set_timer1(0);
6998 18AE: CLRF 0F 7295 15C3: CLRF 0F
6999 18AF: CLRF 0E 7296 15C4: CLRF 0E
7000 .................... timer0_overflow_count=0; 7297 .................... timer0_overflow_count=0;
7001 18B0: CLRF 30 7298 15C5: CLRF 2C
7002 18B1: CLRF 2F 7299 15C6: CLRF 2B
7003 .................... anemo=0; 7300 .................... anemo=0;
7004 18B2: CLRF 34 7301 15C7: CLRF 30
7005 18B3: CLRF 33 7302 15C8: CLRF 2F
7006 18B4: CLRF 32 7303 15C9: CLRF 2E
7007 18B5: CLRF 31 7304 15CA: CLRF 2D
-   7305 ....................
7008 .................... 7306 ....................
7009 .................... restart_wdt(); //---WDT -  
7010 18B6: CLRWDT -  
7011 .................... 7307 ....................
7012 .................... while(TRUE) 7308 .................... while(TRUE)
7013 .................... { 7309 .................... {
7014 .................... char output[12]; // vystupni zasobnik -  
7015 .................... int8 j; // ukazatel na retezec -  
7016 .................... int8 check=0; // Checksum is calculated between '$' and '*' -  
7017 18B7: CLRF 5F -  
7018 .................... -  
7019 .................... 7310 ....................
-   7311 .................... char dataOUT[60];
-   7312 ....................
7020 .................... mpl3115_setP(); //nastaveni pro tlak a teplotu 7313 .................... mpl3115_setP(); //nastaveni pro tlak a teplotu
7021 18B8: BCF 0A.4 7314 15CB: BCF 0A.4
7022 18B9: BCF 0A.3 -  
7023 18BA: GOTO 5E6 7315 15CC: GOTO 4BB
7024 18BB: BSF 0A.4 7316 15CD: BSF 0A.4
7025 18BC: BSF 0A.3 -  
7026 .................... delay_ms (500); 7317 .................... delay_ms (500);
7027 18BD: MOVLW 02 7318 15CE: MOVLW 02
7028 18BE: MOVWF 60 7319 15CF: MOVWF 4D
7029 18BF: MOVLW FA 7320 15D0: MOVLW FA
7030 18C0: MOVWF 65 7321 15D1: BSF 03.5
7031 18C1: BCF 0A.4 7322 15D2: MOVWF 62
7032 18C2: BCF 0A.3 7323 15D3: BCF 0A.4
7033 18C3: CALL 2F5 7324 15D4: BCF 03.5
7034 18C4: BSF 0A.4 7325 15D5: CALL 303
7035 18C5: BSF 0A.3 7326 15D6: BSF 0A.4
7036 18C6: DECFSZ 60,F 7327 15D7: DECFSZ 4D,F
7037 18C7: GOTO 0BF 7328 15D8: GOTO 5D0
7038 .................... altimet_t=mpl3115_T(); 7329 .................... altimet_t=mpl3115_T();
7039 18C8: BCF 0A.4 -  
7040 18C9: BCF 0A.3 7330 15D9: BCF 0A.4
7041 18CA: GOTO 6EB 7331 15DA: GOTO 722
7042 18CB: BSF 0A.4 7332 15DB: BSF 0A.4
7043 18CC: BSF 0A.3 -  
7044 18CD: MOVF 7A,W 7333 15DC: MOVF 7A,W
7045 18CE: MOVWF 3A 7334 15DD: MOVWF 36
7046 18CF: MOVF 79,W 7335 15DE: MOVF 79,W
7047 18D0: MOVWF 39 7336 15DF: MOVWF 35
7048 18D1: MOVF 78,W 7337 15E0: MOVF 78,W
7049 18D2: MOVWF 38 7338 15E1: MOVWF 34
7050 18D3: MOVF 77,W 7339 15E2: MOVF 77,W
7051 18D4: MOVWF 37 7340 15E3: MOVWF 33
7052 .................... altimet_p=mpl3115_P(); 7341 .................... altimet_p=mpl3115_P();
7053 18D5: BCF 0A.4 7342 15E4: BCF 0A.4
-   7343 15E5: BSF 0A.3
7054 18D6: GOTO 146 7344 15E6: GOTO 000
7055 18D7: BSF 0A.4 7345 15E7: BSF 0A.4
-   7346 15E8: BCF 0A.3
7056 18D8: MOVF 7A,W 7347 15E9: MOVF 7A,W
7057 18D9: MOVWF 3E 7348 15EA: MOVWF 3A
7058 18DA: MOVF 79,W 7349 15EB: MOVF 79,W
7059 18DB: MOVWF 3D 7350 15EC: MOVWF 39
7060 18DC: MOVF 78,W 7351 15ED: MOVF 78,W
7061 18DD: MOVWF 3C 7352 15EE: MOVWF 38
7062 18DE: MOVF 77,W 7353 15EF: MOVF 77,W
7063 18DF: MOVWF 3B 7354 15F0: MOVWF 37
7064 .................... 7355 ....................
7065 .................... mpl3115_setA(); //nastaveni pro vysku a teplotu 7356 .................... mpl3115_setA(); //nastaveni pro vysku a teplotu
7066 18E0: BCF 0A.4 7357 15F1: BCF 0A.4
-   7358 15F2: BSF 0A.3
7067 18E1: GOTO 220 7359 15F3: GOTO 10A
7068 18E2: BSF 0A.4 7360 15F4: BSF 0A.4
-   7361 15F5: BCF 0A.3
7069 .................... delay_ms (500); 7362 .................... delay_ms (500);
7070 18E3: MOVLW 02 7363 15F6: MOVLW 02
7071 18E4: MOVWF 60 7364 15F7: MOVWF 4D
7072 18E5: MOVLW FA 7365 15F8: MOVLW FA
7073 18E6: MOVWF 65 7366 15F9: BSF 03.5
7074 18E7: BCF 0A.4 7367 15FA: MOVWF 62
7075 18E8: BCF 0A.3 7368 15FB: BCF 0A.4
7076 18E9: CALL 2F5 7369 15FC: BCF 03.5
7077 18EA: BSF 0A.4 7370 15FD: CALL 303
7078 18EB: BSF 0A.3 7371 15FE: BSF 0A.4
7079 18EC: DECFSZ 60,F 7372 15FF: DECFSZ 4D,F
7080 18ED: GOTO 0E5 7373 1600: GOTO 5F8
7081 .................... altimet_a=mpl3115_A(); 7374 .................... altimet_a=mpl3115_A();
7082 18EE: BCF 0A.4 7375 1601: BCF 0A.4
-   7376 1602: BSF 0A.3
7083 18EF: GOTO 2DD 7377 1603: GOTO 1D9
7084 18F0: BSF 0A.4 7378 1604: BSF 0A.4
-   7379 1605: BCF 0A.3
7085 18F1: MOVF 7A,W 7380 1606: MOVF 7A,W
7086 18F2: MOVWF 42 7381 1607: MOVWF 3E
7087 18F3: MOVF 79,W 7382 1608: MOVF 79,W
7088 18F4: MOVWF 41 7383 1609: MOVWF 3D
7089 18F5: MOVF 78,W 7384 160A: MOVF 78,W
7090 18F6: MOVWF 40 7385 160B: MOVWF 3C
7091 18F7: MOVF 77,W 7386 160C: MOVF 77,W
7092 18F8: MOVWF 3F 7387 160D: MOVWF 3B
7093 .................... 7388 ....................
7094 .................... sht25_t=SHT25_get_temp(); //mereni hodnot z SHT25 7389 .................... sht25_t=SHT25_get_temp(); //mereni hodnot z SHT25
7095 18F9: BCF 0A.4 7390 160E: BCF 0A.4
-   7391 160F: BSF 0A.3
7096 18FA: GOTO 385 7392 1610: GOTO 322
7097 18FB: BSF 0A.4 7393 1611: BSF 0A.4
-   7394 1612: BCF 0A.3
7098 18FC: MOVF 7A,W 7395 1613: MOVF 7A,W
7099 18FD: MOVWF 46 7396 1614: MOVWF 42
7100 18FE: MOVF 79,W 7397 1615: MOVF 79,W
7101 18FF: MOVWF 45 7398 1616: MOVWF 41
7102 1900: MOVF 78,W 7399 1617: MOVF 78,W
7103 1901: MOVWF 44 7400 1618: MOVWF 40
7104 1902: MOVF 77,W 7401 1619: MOVF 77,W
7105 1903: MOVWF 43 7402 161A: MOVWF 3F
7106 .................... sht25_h=SHT25_get_hum(); 7403 .................... sht25_h=SHT25_get_hum();
7107 1904: BCF 0A.4 7404 161B: BCF 0A.4
7108 1905: GOTO 485 -  
7109 1906: BSF 0A.4 7405 161C: BSF 0A.3
7110 1907: MOVF 7A,W -  
7111 1908: MOVWF 4A -  
7112 1909: MOVF 79,W -  
7113 190A: MOVWF 49 -  
7114 190B: MOVF 78,W -  
7115 190C: MOVWF 48 -  
7116 190D: MOVF 77,W 7406 161D: GOTO 43C
7117 190E: MOVWF 47 -  
7118 .................... -  
7119 .................... smer_v=azimut(); //vrati azimut aktualniho smeru vetru -  
7120 190F: BCF 0A.3 7407 161E: BSF 0A.4
7121 1910: GOTO 000 -  
7122 1911: BSF 0A.3 7408 161F: BCF 0A.3
7123 1912: MOVF 7A,W 7409 1620: MOVF 7A,W
7124 1913: MOVWF 4E 7410 1621: MOVWF 46
7125 1914: MOVF 79,W 7411 1622: MOVF 79,W
7126 1915: MOVWF 4D 7412 1623: MOVWF 45
7127 1916: MOVF 78,W 7413 1624: MOVF 78,W
7128 1917: MOVWF 4C 7414 1625: MOVWF 44
7129 1918: MOVF 77,W 7415 1626: MOVF 77,W
7130 1919: MOVWF 4B 7416 1627: MOVWF 43
7131 .................... -  
7132 .................... 7417 ....................
7133 .................... delay_us(SEND_DELAY); -  
7134 191A: MOVLW 21 -  
7135 191B: MOVWF 77 -  
7136 191C: DECFSZ 77,F -  
7137 191D: GOTO 11C -  
7138 .................... putc('$'); -  
7139 191E: MOVLW 24 -  
7140 191F: MOVWF 64 -  
7141 1920: BCF 0A.4 -  
7142 1921: BCF 0A.3 -  
7143 1922: CALL 3D1 -  
7144 1923: BSF 0A.4 -  
7145 1924: BSF 0A.3 -  
7146 .................... delay_us(SEND_DELAY); -  
7147 1925: MOVLW 21 -  
7148 1926: MOVWF 77 -  
7149 1927: DECFSZ 77,F -  
7150 1928: GOTO 127 -  
7151 .................... sprintf(output,"MST%s \0",VER); -  
7152 1929: CLRF 36 -  
7153 192A: MOVLW 52 -  
7154 192B: MOVWF 35 -  
7155 192C: MOVLW 4D -  
7156 192D: MOVWF 6D -  
7157 192E: BCF 0A.4 -  
7158 192F: CALL 632 -  
7159 1930: BSF 0A.4 -  
7160 1931: MOVLW 53 -  
7161 1932: MOVWF 6D -  
7162 1933: BCF 0A.4 -  
7163 1934: CALL 632 -  
7164 1935: BSF 0A.4 -  
7165 1936: MOVLW 54 -  
7166 1937: MOVWF 6D -  
7167 1938: BCF 0A.4 -  
7168 1939: CALL 632 -  
7169 193A: BSF 0A.4 -  
7170 193B: MOVLW 2B -  
7171 193C: MOVWF 04 -  
7172 193D: BCF 03.7 -  
7173 193E: BCF 0A.4 -  
7174 193F: GOTO 63F -  
7175 1940: BSF 0A.4 -  
7176 1941: MOVLW 20 -  
7177 1942: MOVWF 6D -  
7178 1943: BCF 0A.4 -  
7179 1944: CALL 632 -  
7180 1945: BSF 0A.4 -  
7181 .................... j=0; while(output[j]!=0) { delay_us(SEND_DELAY); putc(output[j]); check^=output[j++]; } -  
7182 1946: CLRF 5E -  
7183 1947: MOVLW 52 -  
7184 1948: ADDWF 5E,W -  
7185 1949: MOVWF 04 -  
7186 194A: BCF 03.7 -  
7187 194B: MOVF 00,F -  
7188 194C: BTFSC 03.2 -  
7189 194D: GOTO 167 -  
7190 194E: MOVLW 21 -  
7191 194F: MOVWF 77 -  
7192 1950: DECFSZ 77,F -  
7193 1951: GOTO 150 -  
7194 1952: MOVLW 52 -  
7195 1953: ADDWF 5E,W -  
7196 1954: MOVWF 04 -  
7197 1955: BCF 03.7 -  
7198 1956: MOVF 00,W -  
7199 1957: MOVWF 60 -  
7200 1958: MOVF 60,W -  
7201 1959: MOVWF 64 -  
7202 195A: BCF 0A.4 -  
7203 195B: BCF 0A.3 -  
7204 195C: CALL 3D1 -  
7205 195D: BSF 0A.4 -  
7206 195E: BSF 0A.3 -  
7207 195F: MOVF 5E,W -  
7208 1960: INCF 5E,F -  
7209 1961: ADDLW 52 -  
7210 1962: MOVWF 04 -  
7211 1963: BCF 03.7 -  
7212 1964: MOVF 00,W -  
7213 1965: XORWF 5F,F -  
7214 1966: GOTO 147 -  
7215 .................... sprintf(output,"%4.0Lu \0", poradi); 7418 .................... smer_v=azimut(); //vrati azimut aktualniho smeru vetru
7216 1967: CLRF 36 -  
7217 1968: MOVLW 52 -  
7218 1969: MOVWF 35 -  
7219 196A: MOVLW 01 -  
7220 196B: MOVWF 04 -  
7221 196C: MOVF 50,W -  
7222 196D: MOVWF 61 -  
7223 196E: MOVF 4F,W -  
7224 196F: MOVWF 60 -  
7225 1970: BCF 0A.4 -  
7226 1971: GOTO 657 -  
7227 1972: BSF 0A.4 -  
7228 1973: MOVLW 20 -  
7229 1974: MOVWF 6D -  
7230 1975: BCF 0A.4 -  
7231 1976: CALL 632 -  
7232 1977: BSF 0A.4 -  
7233 .................... j=0; while(output[j]!=0) { delay_us(SEND_DELAY); putc(output[j]); check^=output[j++]; } -  
7234 1978: CLRF 5E -  
7235 1979: MOVLW 52 -  
7236 197A: ADDWF 5E,W -  
7237 197B: MOVWF 04 -  
7238 197C: BCF 03.7 -  
7239 197D: MOVF 00,F -  
7240 197E: BTFSC 03.2 -  
7241 197F: GOTO 199 -  
7242 1980: MOVLW 21 -  
7243 1981: MOVWF 77 -  
7244 1982: DECFSZ 77,F -  
7245 1983: GOTO 182 -  
7246 1984: MOVLW 52 -  
7247 1985: ADDWF 5E,W -  
7248 1986: MOVWF 04 -  
7249 1987: BCF 03.7 -  
7250 1988: MOVF 00,W -  
7251 1989: MOVWF 60 -  
7252 198A: MOVF 60,W -  
7253 198B: MOVWF 64 -  
7254 198C: BCF 0A.4 -  
7255 198D: BCF 0A.3 -  
7256 198E: CALL 3D1 -  
7257 198F: BSF 0A.4 -  
7258 1990: BSF 0A.3 -  
7259 1991: MOVF 5E,W -  
7260 1992: INCF 5E,F -  
7261 1993: ADDLW 52 -  
7262 1994: MOVWF 04 -  
7263 1995: BCF 03.7 -  
7264 1996: MOVF 00,W -  
7265 1997: XORWF 5F,F -  
7266 1998: GOTO 179 7419 1628: GOTO 000
7267 .................... sprintf(output,"%6.2f \0", altimet_t ); -  
7268 1999: CLRF 36 -  
7269 199A: MOVLW 52 -  
7270 199B: MOVWF 35 -  
7271 199C: MOVLW 05 -  
7272 199D: MOVWF 04 -  
7273 199E: MOVF 3A,W 7420 1629: MOVF 7A,W
7274 199F: MOVWF 63 -  
7275 19A0: MOVF 39,W -  
7276 19A1: MOVWF 62 -  
7277 19A2: MOVF 38,W -  
7278 19A3: MOVWF 61 -  
7279 19A4: MOVF 37,W -  
7280 19A5: MOVWF 60 -  
7281 19A6: MOVLW 02 -  
7282 19A7: MOVWF 64 -  
7283 19A8: BCF 0A.4 -  
7284 19A9: CALL 702 -  
7285 19AA: BSF 0A.4 -  
7286 19AB: MOVLW 20 -  
7287 19AC: MOVWF 6D -  
7288 19AD: BCF 0A.4 -  
7289 19AE: CALL 632 -  
7290 19AF: BSF 0A.4 -  
7291 .................... j=0; while(output[j]!=0) { delay_us(SEND_DELAY); putc(output[j]); check^=output[j++]; } -  
7292 19B0: CLRF 5E -  
7293 19B1: MOVLW 52 -  
7294 19B2: ADDWF 5E,W -  
7295 19B3: MOVWF 04 -  
7296 19B4: BCF 03.7 -  
7297 19B5: MOVF 00,F -  
7298 19B6: BTFSC 03.2 -  
7299 19B7: GOTO 1D1 -  
7300 19B8: MOVLW 21 -  
7301 19B9: MOVWF 77 -  
7302 19BA: DECFSZ 77,F -  
7303 19BB: GOTO 1BA -  
7304 19BC: MOVLW 52 -  
7305 19BD: ADDWF 5E,W -  
7306 19BE: MOVWF 04 -  
7307 19BF: BCF 03.7 -  
7308 19C0: MOVF 00,W -  
7309 19C1: MOVWF 60 -  
7310 19C2: MOVF 60,W -  
7311 19C3: MOVWF 64 -  
7312 19C4: BCF 0A.4 -  
7313 19C5: BCF 0A.3 -  
7314 19C6: CALL 3D1 -  
7315 19C7: BSF 0A.4 -  
7316 19C8: BSF 0A.3 -  
7317 19C9: MOVF 5E,W -  
7318 19CA: INCF 5E,F -  
7319 19CB: ADDLW 52 -  
7320 19CC: MOVWF 04 -  
7321 19CD: BCF 03.7 -  
7322 19CE: MOVF 00,W -  
7323 19CF: XORWF 5F,F -  
7324 19D0: GOTO 1B1 -  
7325 .................... sprintf(output,"%7.2f \0", altimet_a); -  
7326 19D1: CLRF 36 -  
7327 19D2: MOVLW 52 -  
7328 19D3: MOVWF 35 -  
7329 19D4: MOVLW 06 -  
7330 19D5: MOVWF 04 -  
7331 19D6: MOVF 42,W -  
7332 19D7: MOVWF 63 -  
7333 19D8: MOVF 41,W -  
7334 19D9: MOVWF 62 -  
7335 19DA: MOVF 40,W -  
7336 19DB: MOVWF 61 -  
7337 19DC: MOVF 3F,W -  
7338 19DD: MOVWF 60 -  
7339 19DE: MOVLW 02 -  
7340 19DF: MOVWF 64 -  
7341 19E0: BCF 0A.4 -  
7342 19E1: CALL 702 -  
7343 19E2: BSF 0A.4 -  
7344 19E3: MOVLW 20 -  
7345 19E4: MOVWF 6D -  
7346 19E5: BCF 0A.4 -  
7347 19E6: CALL 632 -  
7348 19E7: BSF 0A.4 -  
7349 .................... j=0; while(output[j]!=0) { delay_us(SEND_DELAY); putc(output[j]); check^=output[j++]; } -  
7350 19E8: CLRF 5E -  
7351 19E9: MOVLW 52 -  
7352 19EA: ADDWF 5E,W -  
7353 19EB: MOVWF 04 -  
7354 19EC: BCF 03.7 -  
7355 19ED: MOVF 00,F -  
7356 19EE: BTFSC 03.2 -  
7357 19EF: GOTO 209 -  
7358 19F0: MOVLW 21 -  
7359 19F1: MOVWF 77 -  
7360 19F2: DECFSZ 77,F -  
7361 19F3: GOTO 1F2 -  
7362 19F4: MOVLW 52 -  
7363 19F5: ADDWF 5E,W -  
7364 19F6: MOVWF 04 -  
7365 19F7: BCF 03.7 -  
7366 19F8: MOVF 00,W -  
7367 19F9: MOVWF 60 -  
7368 19FA: MOVF 60,W -  
7369 19FB: MOVWF 64 -  
7370 19FC: BCF 0A.4 -  
7371 19FD: BCF 0A.3 -  
7372 19FE: CALL 3D1 -  
7373 19FF: BSF 0A.4 -  
7374 1A00: BSF 0A.3 -  
7375 1A01: MOVF 5E,W -  
7376 1A02: INCF 5E,F -  
7377 1A03: ADDLW 52 -  
7378 1A04: MOVWF 04 -  
7379 1A05: BCF 03.7 -  
7380 1A06: MOVF 00,W -  
7381 1A07: XORWF 5F,F -  
7382 1A08: GOTO 1E9 -  
7383 .................... sprintf(output,"%9.2f \0", altimet_p); -  
7384 1A09: CLRF 36 -  
7385 1A0A: MOVLW 52 -  
7386 1A0B: MOVWF 35 -  
7387 1A0C: MOVLW 08 -  
7388 1A0D: MOVWF 04 -  
7389 1A0E: MOVF 3E,W -  
7390 1A0F: MOVWF 63 -  
7391 1A10: MOVF 3D,W -  
7392 1A11: MOVWF 62 -  
7393 1A12: MOVF 3C,W -  
7394 1A13: MOVWF 61 -  
7395 1A14: MOVF 3B,W -  
7396 1A15: MOVWF 60 -  
7397 1A16: MOVLW 02 -  
7398 1A17: MOVWF 64 -  
7399 1A18: BCF 0A.4 -  
7400 1A19: CALL 702 -  
7401 1A1A: BSF 0A.4 -  
7402 1A1B: MOVLW 20 -  
7403 1A1C: MOVWF 6D -  
7404 1A1D: BCF 0A.4 -  
7405 1A1E: CALL 632 -  
7406 1A1F: BSF 0A.4 -  
7407 .................... j=0; while(output[j]!=0) { delay_us(SEND_DELAY); putc(output[j]); check^=output[j++]; } -  
7408 1A20: CLRF 5E -  
7409 1A21: MOVLW 52 -  
7410 1A22: ADDWF 5E,W -  
7411 1A23: MOVWF 04 -  
7412 1A24: BCF 03.7 -  
7413 1A25: MOVF 00,F -  
7414 1A26: BTFSC 03.2 -  
7415 1A27: GOTO 241 -  
7416 1A28: MOVLW 21 -  
7417 1A29: MOVWF 77 -  
7418 1A2A: DECFSZ 77,F -  
7419 1A2B: GOTO 22A -  
7420 1A2C: MOVLW 52 -  
7421 1A2D: ADDWF 5E,W -  
7422 1A2E: MOVWF 04 7421 162A: MOVWF 4A
7423 1A2F: BCF 03.7 -  
7424 1A30: MOVF 00,W -  
7425 1A31: MOVWF 60 -  
7426 1A32: MOVF 60,W -  
7427 1A33: MOVWF 64 -  
7428 1A34: BCF 0A.4 -  
7429 1A35: BCF 0A.3 -  
7430 1A36: CALL 3D1 -  
7431 1A37: BSF 0A.4 -  
7432 1A38: BSF 0A.3 -  
7433 1A39: MOVF 5E,W -  
7434 1A3A: INCF 5E,F -  
7435 1A3B: ADDLW 52 -  
7436 1A3C: MOVWF 04 -  
7437 1A3D: BCF 03.7 -  
7438 1A3E: MOVF 00,W -  
7439 1A3F: XORWF 5F,F -  
7440 1A40: GOTO 221 -  
7441 .................... sprintf(output,"%6.2f \0", sht25_t); -  
7442 1A41: CLRF 36 -  
7443 1A42: MOVLW 52 -  
7444 1A43: MOVWF 35 -  
7445 1A44: MOVLW 05 -  
7446 1A45: MOVWF 04 -  
7447 1A46: MOVF 46,W -  
7448 1A47: MOVWF 63 -  
7449 1A48: MOVF 45,W -  
7450 1A49: MOVWF 62 -  
7451 1A4A: MOVF 44,W -  
7452 1A4B: MOVWF 61 -  
7453 1A4C: MOVF 43,W -  
7454 1A4D: MOVWF 60 -  
7455 1A4E: MOVLW 02 -  
7456 1A4F: MOVWF 64 -  
7457 1A50: BCF 0A.4 -  
7458 1A51: CALL 702 -  
7459 1A52: BSF 0A.4 -  
7460 1A53: MOVLW 20 -  
7461 1A54: MOVWF 6D -  
7462 1A55: BCF 0A.4 -  
7463 1A56: CALL 632 -  
7464 1A57: BSF 0A.4 -  
7465 .................... j=0; while(output[j]!=0) { delay_us(SEND_DELAY); putc(output[j]); check^=output[j++]; } -  
7466 1A58: CLRF 5E -  
7467 1A59: MOVLW 52 -  
7468 1A5A: ADDWF 5E,W -  
7469 1A5B: MOVWF 04 -  
7470 1A5C: BCF 03.7 -  
7471 1A5D: MOVF 00,F -  
7472 1A5E: BTFSC 03.2 -  
7473 1A5F: GOTO 279 -  
7474 1A60: MOVLW 21 -  
7475 1A61: MOVWF 77 -  
7476 1A62: DECFSZ 77,F -  
7477 1A63: GOTO 262 -  
7478 1A64: MOVLW 52 -  
7479 1A65: ADDWF 5E,W -  
7480 1A66: MOVWF 04 -  
7481 1A67: BCF 03.7 -  
7482 1A68: MOVF 00,W -  
7483 1A69: MOVWF 60 -  
7484 1A6A: MOVF 60,W -  
7485 1A6B: MOVWF 64 -  
7486 1A6C: BCF 0A.4 -  
7487 1A6D: BCF 0A.3 -  
7488 1A6E: CALL 3D1 -  
7489 1A6F: BSF 0A.4 -  
7490 1A70: BSF 0A.3 -  
7491 1A71: MOVF 5E,W -  
7492 1A72: INCF 5E,F -  
7493 1A73: ADDLW 52 -  
7494 1A74: MOVWF 04 -  
7495 1A75: BCF 03.7 -  
7496 1A76: MOVF 00,W -  
7497 1A77: XORWF 5F,F -  
7498 1A78: GOTO 259 -  
7499 .................... sprintf(output,"%6.2f \0", sht25_h); -  
7500 1A79: CLRF 36 -  
7501 1A7A: MOVLW 52 -  
7502 1A7B: MOVWF 35 -  
7503 1A7C: MOVLW 05 -  
7504 1A7D: MOVWF 04 -  
7505 1A7E: MOVF 4A,W -  
7506 1A7F: MOVWF 63 -  
7507 1A80: MOVF 49,W 7422 162B: MOVF 79,W
7508 1A81: MOVWF 62 -  
7509 1A82: MOVF 48,W -  
7510 1A83: MOVWF 61 -  
7511 1A84: MOVF 47,W -  
7512 1A85: MOVWF 60 -  
7513 1A86: MOVLW 02 -  
7514 1A87: MOVWF 64 -  
7515 1A88: BCF 0A.4 -  
7516 1A89: CALL 702 -  
7517 1A8A: BSF 0A.4 -  
7518 1A8B: MOVLW 20 -  
7519 1A8C: MOVWF 6D -  
7520 1A8D: BCF 0A.4 -  
7521 1A8E: CALL 632 -  
7522 1A8F: BSF 0A.4 -  
7523 .................... j=0; while(output[j]!=0) { delay_us(SEND_DELAY); putc(output[j]); check^=output[j++]; } -  
7524 1A90: CLRF 5E -  
7525 1A91: MOVLW 52 -  
7526 1A92: ADDWF 5E,W -  
7527 1A93: MOVWF 04 -  
7528 1A94: BCF 03.7 -  
7529 1A95: MOVF 00,F -  
7530 1A96: BTFSC 03.2 -  
7531 1A97: GOTO 2B1 -  
7532 1A98: MOVLW 21 -  
7533 1A99: MOVWF 77 -  
7534 1A9A: DECFSZ 77,F -  
7535 1A9B: GOTO 29A -  
7536 1A9C: MOVLW 52 -  
7537 1A9D: ADDWF 5E,W -  
7538 1A9E: MOVWF 04 -  
7539 1A9F: BCF 03.7 -  
7540 1AA0: MOVF 00,W -  
7541 1AA1: MOVWF 60 -  
7542 1AA2: MOVF 60,W -  
7543 1AA3: MOVWF 64 -  
7544 1AA4: BCF 0A.4 -  
7545 1AA5: BCF 0A.3 -  
7546 1AA6: CALL 3D1 -  
7547 1AA7: BSF 0A.4 -  
7548 1AA8: BSF 0A.3 -  
7549 1AA9: MOVF 5E,W -  
7550 1AAA: INCF 5E,F -  
7551 1AAB: ADDLW 52 -  
7552 1AAC: MOVWF 04 -  
7553 1AAD: BCF 03.7 -  
7554 1AAE: MOVF 00,W -  
7555 1AAF: XORWF 5F,F -  
7556 1AB0: GOTO 291 -  
7557 .................... sprintf(output,"%6.2f \0", smer_v); -  
7558 1AB1: CLRF 36 -  
7559 1AB2: MOVLW 52 -  
7560 1AB3: MOVWF 35 -  
7561 1AB4: MOVLW 05 -  
7562 1AB5: MOVWF 04 -  
7563 1AB6: MOVF 4E,W -  
7564 1AB7: MOVWF 63 -  
7565 1AB8: MOVF 4D,W -  
7566 1AB9: MOVWF 62 -  
7567 1ABA: MOVF 4C,W -  
7568 1ABB: MOVWF 61 -  
7569 1ABC: MOVF 4B,W -  
7570 1ABD: MOVWF 60 -  
7571 1ABE: MOVLW 02 -  
7572 1ABF: MOVWF 64 -  
7573 1AC0: BCF 0A.4 -  
7574 1AC1: CALL 702 -  
7575 1AC2: BSF 0A.4 -  
7576 1AC3: MOVLW 20 -  
7577 1AC4: MOVWF 6D -  
7578 1AC5: BCF 0A.4 -  
7579 1AC6: CALL 632 -  
7580 1AC7: BSF 0A.4 -  
7581 .................... j=0; while(output[j]!=0) { delay_us(SEND_DELAY); putc(output[j]); check^=output[j++]; } -  
7582 1AC8: CLRF 5E -  
7583 1AC9: MOVLW 52 -  
7584 1ACA: ADDWF 5E,W -  
7585 1ACB: MOVWF 04 -  
7586 1ACC: BCF 03.7 -  
7587 1ACD: MOVF 00,F -  
7588 1ACE: BTFSC 03.2 -  
7589 1ACF: GOTO 2E9 -  
7590 1AD0: MOVLW 21 -  
7591 1AD1: MOVWF 77 -  
7592 1AD2: DECFSZ 77,F -  
7593 1AD3: GOTO 2D2 -  
7594 1AD4: MOVLW 52 -  
7595 1AD5: ADDWF 5E,W -  
7596 1AD6: MOVWF 04 -  
7597 1AD7: BCF 03.7 -  
7598 1AD8: MOVF 00,W -  
7599 1AD9: MOVWF 60 -  
7600 1ADA: MOVF 60,W -  
7601 1ADB: MOVWF 64 -  
7602 1ADC: BCF 0A.4 -  
7603 1ADD: BCF 0A.3 -  
7604 1ADE: CALL 3D1 -  
7605 1ADF: BSF 0A.4 -  
7606 1AE0: BSF 0A.3 -  
7607 1AE1: MOVF 5E,W -  
7608 1AE2: INCF 5E,F -  
7609 1AE3: ADDLW 52 -  
7610 1AE4: MOVWF 04 -  
7611 1AE5: BCF 03.7 -  
7612 1AE6: MOVF 00,W -  
7613 1AE7: XORWF 5F,F -  
7614 1AE8: GOTO 2C9 -  
7615 .................... sprintf(output,"%5.2f \0", anemo); -  
7616 1AE9: CLRF 36 -  
7617 1AEA: MOVLW 52 -  
7618 1AEB: MOVWF 35 -  
7619 1AEC: MOVLW 04 -  
7620 1AED: MOVWF 04 -  
7621 1AEE: MOVF 34,W -  
7622 1AEF: MOVWF 63 -  
7623 1AF0: MOVF 33,W -  
7624 1AF1: MOVWF 62 -  
7625 1AF2: MOVF 32,W -  
7626 1AF3: MOVWF 61 -  
7627 1AF4: MOVF 31,W -  
7628 1AF5: MOVWF 60 -  
7629 1AF6: MOVLW 02 -  
7630 1AF7: MOVWF 64 -  
7631 1AF8: BCF 0A.4 -  
7632 1AF9: CALL 702 -  
7633 1AFA: BSF 0A.4 -  
7634 1AFB: MOVLW 20 -  
7635 1AFC: MOVWF 6D -  
7636 1AFD: BCF 0A.4 -  
7637 1AFE: CALL 632 -  
7638 1AFF: BSF 0A.4 -  
7639 .................... j=0; while(output[j]!=0) { delay_us(SEND_DELAY); putc(output[j]); check^=output[j++]; } -  
7640 1B00: CLRF 5E -  
7641 1B01: MOVLW 52 -  
7642 1B02: ADDWF 5E,W -  
7643 1B03: MOVWF 04 -  
7644 1B04: BCF 03.7 -  
7645 1B05: MOVF 00,F -  
7646 1B06: BTFSC 03.2 -  
7647 1B07: GOTO 321 -  
7648 1B08: MOVLW 21 -  
7649 1B09: MOVWF 77 -  
7650 1B0A: DECFSZ 77,F -  
7651 1B0B: GOTO 30A -  
7652 1B0C: MOVLW 52 -  
7653 1B0D: ADDWF 5E,W -  
7654 1B0E: MOVWF 04 -  
7655 1B0F: BCF 03.7 -  
7656 1B10: MOVF 00,W -  
7657 1B11: MOVWF 60 -  
7658 1B12: MOVF 60,W -  
7659 1B13: MOVWF 64 -  
7660 1B14: BCF 0A.4 -  
7661 1B15: BCF 0A.3 -  
7662 1B16: CALL 3D1 -  
7663 1B17: BSF 0A.4 -  
7664 1B18: BSF 0A.3 -  
7665 1B19: MOVF 5E,W -  
7666 1B1A: INCF 5E,F -  
7667 1B1B: ADDLW 52 -  
7668 1B1C: MOVWF 04 -  
7669 1B1D: BCF 03.7 -  
7670 1B1E: MOVF 00,W -  
7671 1B1F: XORWF 5F,F -  
7672 1B20: GOTO 301 -  
7673 .................... sprintf(output,"*%X\r\n\0", check); -  
7674 1B21: CLRF 36 -  
7675 1B22: MOVLW 52 -  
7676 1B23: MOVWF 35 -  
7677 1B24: MOVLW 2A -  
7678 1B25: MOVWF 6D 7423 162C: MOVWF 49
7679 1B26: BCF 0A.4 -  
7680 1B27: CALL 632 -  
7681 1B28: BSF 0A.4 -  
7682 1B29: MOVF 5F,W 7424 162D: MOVF 78,W
7683 1B2A: MOVWF 60 -  
7684 1B2B: MOVLW 37 -  
7685 1B2C: MOVWF 61 7425 162E: MOVWF 48
7686 1B2D: BCF 0A.3 -  
7687 1B2E: GOTO 4A4 -  
7688 1B2F: BSF 0A.3 -  
7689 1B30: MOVLW 0D -  
7690 1B31: MOVWF 6D -  
7691 1B32: BCF 0A.4 -  
7692 1B33: CALL 632 -  
7693 1B34: BSF 0A.4 -  
7694 1B35: MOVLW 0A -  
7695 1B36: MOVWF 6D -  
7696 1B37: BCF 0A.4 -  
7697 1B38: CALL 632 -  
7698 1B39: BSF 0A.4 -  
7699 .................... j=0; while(output[j]!=0) { delay_us(SEND_DELAY); putc(output[j++]); } -  
7700 1B3A: CLRF 5E -  
7701 1B3B: MOVLW 52 -  
7702 1B3C: ADDWF 5E,W -  
7703 1B3D: MOVWF 04 -  
7704 1B3E: BCF 03.7 -  
7705 1B3F: MOVF 00,F -  
7706 1B40: BTFSC 03.2 -  
7707 1B41: GOTO 355 -  
7708 1B42: MOVLW 21 -  
7709 1B43: MOVWF 77 -  
7710 1B44: DECFSZ 77,F -  
7711 1B45: GOTO 344 -  
7712 1B46: MOVF 5E,W -  
7713 1B47: INCF 5E,F -  
7714 1B48: ADDLW 52 -  
7715 1B49: MOVWF 04 -  
7716 1B4A: BCF 03.7 -  
7717 1B4B: MOVF 00,W -  
7718 1B4C: MOVWF 60 -  
7719 1B4D: MOVF 60,W 7426 162F: MOVF 77,W
7720 1B4E: MOVWF 64 -  
7721 1B4F: BCF 0A.4 -  
7722 1B50: BCF 0A.3 -  
7723 1B51: CALL 3D1 -  
7724 1B52: BSF 0A.4 -  
7725 1B53: BSF 0A.3 -  
7726 1B54: GOTO 33B -  
7727 .................... delay_us(SEND_DELAY); -  
7728 1B55: MOVLW 21 -  
7729 1B56: MOVWF 77 7427 1630: MOVWF 47
7730 1B57: DECFSZ 77,F -  
7731 1B58: GOTO 357 -  
7732 .................... 7428 ....................
-   7429 .................... sprintf(dataOUT, " %6.2f %7.2f %9.2f %6.2f %6.2f %5.2f %6.2f", altimet_t, altimet_a, altimet_p, sht25_t, sht25_h, smer_v, anemo);
-   7430 1631: CLRF 32
-   7431 1632: MOVLW A0
-   7432 1633: MOVWF 31
-   7433 1634: MOVLW 20
-   7434 1635: BSF 03.5
-   7435 1636: MOVWF 6A
-   7436 1637: BCF 0A.4
-   7437 1638: BSF 0A.3
-   7438 1639: BCF 03.5
-   7439 163A: CALL 5EA
-   7440 163B: BSF 0A.4
-   7441 163C: BCF 0A.3
-   7442 163D: MOVLW 05
-   7443 163E: MOVWF 04
-   7444 163F: MOVF 36,W
-   7445 1640: BSF 03.5
-   7446 1641: MOVWF 60
-   7447 1642: BCF 03.5
-   7448 1643: MOVF 35,W
-   7449 1644: BSF 03.5
-   7450 1645: MOVWF 5F
-   7451 1646: BCF 03.5
-   7452 1647: MOVF 34,W
-   7453 1648: BSF 03.5
-   7454 1649: MOVWF 5E
-   7455 164A: BCF 03.5
-   7456 164B: MOVF 33,W
-   7457 164C: BSF 03.5
-   7458 164D: MOVWF 5D
-   7459 164E: MOVLW 02
-   7460 164F: MOVWF 61
-   7461 1650: BCF 0A.4
-   7462 1651: BSF 0A.3
-   7463 1652: BCF 03.5
-   7464 1653: CALL 641
-   7465 1654: BSF 0A.4
-   7466 1655: BCF 0A.3
-   7467 1656: MOVLW 20
-   7468 1657: BSF 03.5
-   7469 1658: MOVWF 6A
-   7470 1659: BCF 0A.4
-   7471 165A: BSF 0A.3
-   7472 165B: BCF 03.5
-   7473 165C: CALL 5EA
-   7474 165D: BSF 0A.4
-   7475 165E: BCF 0A.3
-   7476 165F: MOVLW 06
-   7477 1660: MOVWF 04
-   7478 1661: MOVF 3E,W
-   7479 1662: BSF 03.5
-   7480 1663: MOVWF 60
-   7481 1664: BCF 03.5
-   7482 1665: MOVF 3D,W
-   7483 1666: BSF 03.5
-   7484 1667: MOVWF 5F
-   7485 1668: BCF 03.5
-   7486 1669: MOVF 3C,W
-   7487 166A: BSF 03.5
-   7488 166B: MOVWF 5E
-   7489 166C: BCF 03.5
-   7490 166D: MOVF 3B,W
-   7491 166E: BSF 03.5
-   7492 166F: MOVWF 5D
-   7493 1670: MOVLW 02
-   7494 1671: MOVWF 61
-   7495 1672: BCF 0A.4
-   7496 1673: BSF 0A.3
-   7497 1674: BCF 03.5
-   7498 1675: CALL 641
-   7499 1676: BSF 0A.4
-   7500 1677: BCF 0A.3
-   7501 1678: MOVLW 20
-   7502 1679: BSF 03.5
-   7503 167A: MOVWF 6A
-   7504 167B: BCF 0A.4
-   7505 167C: BSF 0A.3
-   7506 167D: BCF 03.5
-   7507 167E: CALL 5EA
-   7508 167F: BSF 0A.4
-   7509 1680: BCF 0A.3
-   7510 1681: MOVLW 08
-   7511 1682: MOVWF 04
-   7512 1683: MOVF 3A,W
-   7513 1684: BSF 03.5
-   7514 1685: MOVWF 60
-   7515 1686: BCF 03.5
-   7516 1687: MOVF 39,W
-   7517 1688: BSF 03.5
-   7518 1689: MOVWF 5F
-   7519 168A: BCF 03.5
-   7520 168B: MOVF 38,W
-   7521 168C: BSF 03.5
-   7522 168D: MOVWF 5E
-   7523 168E: BCF 03.5
-   7524 168F: MOVF 37,W
-   7525 1690: BSF 03.5
-   7526 1691: MOVWF 5D
-   7527 1692: MOVLW 02
-   7528 1693: MOVWF 61
-   7529 1694: BCF 0A.4
-   7530 1695: BSF 0A.3
-   7531 1696: BCF 03.5
-   7532 1697: CALL 641
-   7533 1698: BSF 0A.4
-   7534 1699: BCF 0A.3
-   7535 169A: MOVLW 20
-   7536 169B: BSF 03.5
-   7537 169C: MOVWF 6A
-   7538 169D: BCF 0A.4
-   7539 169E: BSF 0A.3
-   7540 169F: BCF 03.5
-   7541 16A0: CALL 5EA
-   7542 16A1: BSF 0A.4
-   7543 16A2: BCF 0A.3
-   7544 16A3: MOVLW 05
-   7545 16A4: MOVWF 04
-   7546 16A5: MOVF 42,W
-   7547 16A6: BSF 03.5
-   7548 16A7: MOVWF 60
-   7549 16A8: BCF 03.5
-   7550 16A9: MOVF 41,W
-   7551 16AA: BSF 03.5
-   7552 16AB: MOVWF 5F
-   7553 16AC: BCF 03.5
-   7554 16AD: MOVF 40,W
-   7555 16AE: BSF 03.5
-   7556 16AF: MOVWF 5E
-   7557 16B0: BCF 03.5
-   7558 16B1: MOVF 3F,W
-   7559 16B2: BSF 03.5
-   7560 16B3: MOVWF 5D
-   7561 16B4: MOVLW 02
-   7562 16B5: MOVWF 61
-   7563 16B6: BCF 0A.4
-   7564 16B7: BSF 0A.3
-   7565 16B8: BCF 03.5
-   7566 16B9: CALL 641
-   7567 16BA: BSF 0A.4
-   7568 16BB: BCF 0A.3
-   7569 16BC: MOVLW 20
-   7570 16BD: BSF 03.5
-   7571 16BE: MOVWF 6A
-   7572 16BF: BCF 0A.4
-   7573 16C0: BSF 0A.3
-   7574 16C1: BCF 03.5
-   7575 16C2: CALL 5EA
-   7576 16C3: BSF 0A.4
-   7577 16C4: BCF 0A.3
-   7578 16C5: MOVLW 05
-   7579 16C6: MOVWF 04
-   7580 16C7: MOVF 46,W
-   7581 16C8: BSF 03.5
-   7582 16C9: MOVWF 60
-   7583 16CA: BCF 03.5
-   7584 16CB: MOVF 45,W
-   7585 16CC: BSF 03.5
-   7586 16CD: MOVWF 5F
-   7587 16CE: BCF 03.5
-   7588 16CF: MOVF 44,W
-   7589 16D0: BSF 03.5
-   7590 16D1: MOVWF 5E
-   7591 16D2: BCF 03.5
-   7592 16D3: MOVF 43,W
-   7593 16D4: BSF 03.5
-   7594 16D5: MOVWF 5D
-   7595 16D6: MOVLW 02
-   7596 16D7: MOVWF 61
-   7597 16D8: BCF 0A.4
-   7598 16D9: BSF 0A.3
-   7599 16DA: BCF 03.5
-   7600 16DB: CALL 641
-   7601 16DC: BSF 0A.4
-   7602 16DD: BCF 0A.3
-   7603 16DE: MOVLW 20
-   7604 16DF: BSF 03.5
-   7605 16E0: MOVWF 6A
-   7606 16E1: BCF 0A.4
-   7607 16E2: BSF 0A.3
-   7608 16E3: BCF 03.5
-   7609 16E4: CALL 5EA
-   7610 16E5: BSF 0A.4
-   7611 16E6: BCF 0A.3
-   7612 16E7: MOVLW 04
-   7613 16E8: MOVWF 04
-   7614 16E9: MOVF 4A,W
-   7615 16EA: BSF 03.5
-   7616 16EB: MOVWF 60
-   7617 16EC: BCF 03.5
-   7618 16ED: MOVF 49,W
-   7619 16EE: BSF 03.5
-   7620 16EF: MOVWF 5F
-   7621 16F0: BCF 03.5
-   7622 16F1: MOVF 48,W
-   7623 16F2: BSF 03.5
-   7624 16F3: MOVWF 5E
-   7625 16F4: BCF 03.5
-   7626 16F5: MOVF 47,W
-   7627 16F6: BSF 03.5
-   7628 16F7: MOVWF 5D
-   7629 16F8: MOVLW 02
-   7630 16F9: MOVWF 61
-   7631 16FA: BCF 0A.4
-   7632 16FB: BSF 0A.3
-   7633 16FC: BCF 03.5
-   7634 16FD: CALL 641
-   7635 16FE: BSF 0A.4
-   7636 16FF: BCF 0A.3
-   7637 1700: MOVLW 20
-   7638 1701: BSF 03.5
-   7639 1702: MOVWF 6A
-   7640 1703: BCF 0A.4
-   7641 1704: BSF 0A.3
-   7642 1705: BCF 03.5
-   7643 1706: CALL 5EA
-   7644 1707: BSF 0A.4
-   7645 1708: BCF 0A.3
-   7646 1709: MOVLW 05
-   7647 170A: MOVWF 04
-   7648 170B: MOVF 30,W
-   7649 170C: BSF 03.5
-   7650 170D: MOVWF 60
-   7651 170E: BCF 03.5
-   7652 170F: MOVF 2F,W
-   7653 1710: BSF 03.5
-   7654 1711: MOVWF 5F
-   7655 1712: BCF 03.5
-   7656 1713: MOVF 2E,W
-   7657 1714: BSF 03.5
-   7658 1715: MOVWF 5E
-   7659 1716: BCF 03.5
-   7660 1717: MOVF 2D,W
-   7661 1718: BSF 03.5
-   7662 1719: MOVWF 5D
-   7663 171A: MOVLW 02
-   7664 171B: MOVWF 61
-   7665 171C: BCF 0A.4
-   7666 171D: BSF 0A.3
-   7667 171E: BCF 03.5
-   7668 171F: CALL 641
-   7669 1720: BSF 0A.4
-   7670 1721: BCF 0A.3
-   7671 ....................
-   7672 .................... printf(dataOUT);
-   7673 1722: MOVLW A0
-   7674 1723: MOVWF 04
-   7675 1724: BCF 03.7
-   7676 1725: BCF 0A.4
-   7677 1726: BSF 0A.3
-   7678 1727: GOTO 756
-   7679 1728: BSF 0A.4
-   7680 1729: BCF 0A.3
7733 .................... poradi++; 7681 .................... int i=0;
-   7682 172A: CLRF 4C
-   7683 .................... for(i=0;i<40;i++)
-   7684 172B: CLRF 4C
7734 1B59: INCF 4F,F 7685 172C: MOVF 4C,W
-   7686 172D: SUBLW 27
7735 1B5A: BTFSC 03.2 7687 172E: BTFSS 03.0
7736 1B5B: INCF 50,F 7688 172F: GOTO 73D
-   7689 .................... {
7737 .................... restart_wdt(); 7690 .................... delay_ms(1000);
-   7691 1730: MOVLW 04
-   7692 1731: MOVWF 4D
-   7693 1732: MOVLW FA
-   7694 1733: BSF 03.5
-   7695 1734: MOVWF 62
-   7696 1735: BCF 0A.4
-   7697 1736: BCF 03.5
7738 1B5C: CLRWDT 7698 1737: CALL 303
-   7699 1738: BSF 0A.4
-   7700 1739: DECFSZ 4D,F
-   7701 173A: GOTO 732
7739 .................... } 7702 .................... }
-   7703 173B: INCF 4C,F
-   7704 173C: GOTO 72C
-   7705 .................... }
7740 1B5D: GOTO 0B7 7706 173D: GOTO 5CB
7741 .................... 7707 ....................
7742 .................... } 7708 .................... }
7743 .................... 7709 ....................
7744 .................... -  
7745 .................... -  
7746 1B5E: SLEEP 7710 173E: SLEEP
7747   7711  
7748 Configuration Fuses: 7712 Configuration Fuses:
7749 Word 1: 2CFD INTRC WDT NOPUT MCLR NOPROTECT NOCPD NOBROWNOUT IESO FCMEN NOLVP NODEBUG 7713 Word 1: 2CF5 INTRC NOWDT NOPUT MCLR NOPROTECT NOCPD NOBROWNOUT IESO FCMEN NOLVP NODEBUG
7750 Word 2: 3FFF NOWRT BORV40 7714 Word 2: 3FFF NOWRT BORV40