Rev Author Line No. Line
2908 kaklik 1 CCS PCM C Compiler, Version 4.106, 47914 13-IV-13 23:28
2906 jacho 2  
2908 kaklik 3 Filename: Z:\home\kaklik\MLAB\Modules\Sensors\SHT25V01A\SW\PIC16F887\main.lst
2906 jacho 4  
2908 kaklik 5 ROM used: 1145 words (14%)
2906 jacho 6 Largest free fragment is 2048
7 RAM used: 8 (2%) at main() level
8 29 (8%) worst case
9 Stack: 2 locations
10  
11 *
12 0000: MOVLW 02
13 0001: MOVWF 0A
2908 kaklik 14 0002: GOTO 28B
2906 jacho 15 0003: NOP
2908 kaklik 16 .................... #include "main.h"
2906 jacho 17 .................... #include <16F887.h>
18 .................... //////// Standard Header file for the PIC16F887 device ////////////////
19 .................... #device PIC16F887
20 .................... #list
21 ....................
22 .................... #device adc=8
23 ....................
2908 kaklik 24 .................... #FUSES NOWDT //No Watch Dog Timer
25 .................... #FUSES INTRC //Internal RC Osc
26 .................... #FUSES NOPUT //No Power Up Timer
27 .................... #FUSES MCLR //Master Clear pin enabled
28 .................... #FUSES NOPROTECT //Code not protected from reading
29 .................... #FUSES NOCPD //No EE protection
30 .................... #FUSES NOBROWNOUT //No brownout reset
31 .................... #FUSES IESO //Internal External Switch Over mode enabled
32 .................... #FUSES FCMEN //Fail-safe clock monitor enabled
33 .................... #FUSES NOLVP //No low voltage prgming, B3(PIC16) or B5(PIC18) used for I/O
34 .................... #FUSES NODEBUG //No Debug mode for ICD
35 .................... #FUSES NOWRT //Program memory not write protected
36 .................... #FUSES BORV40 //Brownout reset at 4.0V
2906 jacho 37 ....................
38 .................... #use delay(clock=8000000)
39 *
2908 kaklik 40 0275: MOVLW 2F
41 0276: MOVWF 04
42 0277: BCF 03.7
43 0278: MOVF 00,W
44 0279: BTFSC 03.2
45 027A: GOTO 288
46 027B: MOVLW 02
47 027C: MOVWF 78
48 027D: CLRF 77
49 027E: DECFSZ 77,F
50 027F: GOTO 27E
51 0280: DECFSZ 78,F
52 0281: GOTO 27D
53 0282: MOVLW 97
54 0283: MOVWF 77
55 0284: DECFSZ 77,F
56 0285: GOTO 284
57 0286: DECFSZ 00,F
58 0287: GOTO 27B
59 0288: BCF 0A.3
60 0289: BCF 0A.4
61 028A: GOTO 475 (RETURN)
2906 jacho 62 ....................
2908 kaklik 63 .................... #use i2c(master, sda=PIN_C4, scl=PIN_C3)
2906 jacho 64 *
65 009B: MOVLW 08
66 009C: MOVWF 78
67 009D: NOP
2908 kaklik 68 009E: BCF 07.3
69 009F: BCF 20.3
70 00A0: MOVF 20,W
71 00A1: BSF 03.5
72 00A2: MOVWF 07
73 00A3: NOP
74 00A4: BCF 03.5
75 00A5: RLF 2E,F
76 00A6: BCF 07.4
77 00A7: BTFSS 03.0
78 00A8: GOTO 0AF
79 00A9: BSF 20.4
80 00AA: MOVF 20,W
81 00AB: BSF 03.5
82 00AC: MOVWF 07
83 00AD: GOTO 0B3
2906 jacho 84 00AE: BCF 03.5
2908 kaklik 85 00AF: BCF 20.4
86 00B0: MOVF 20,W
87 00B1: BSF 03.5
88 00B2: MOVWF 07
89 00B3: NOP
90 00B4: BCF 03.5
91 00B5: BSF 20.3
92 00B6: MOVF 20,W
93 00B7: BSF 03.5
94 00B8: MOVWF 07
95 00B9: BCF 03.5
96 00BA: BTFSS 07.3
97 00BB: GOTO 0BA
98 00BC: DECFSZ 78,F
99 00BD: GOTO 09D
100 00BE: NOP
101 00BF: BCF 07.3
102 00C0: BCF 20.3
103 00C1: MOVF 20,W
104 00C2: BSF 03.5
105 00C3: MOVWF 07
106 00C4: NOP
107 00C5: BCF 03.5
108 00C6: BSF 20.4
109 00C7: MOVF 20,W
110 00C8: BSF 03.5
111 00C9: MOVWF 07
112 00CA: NOP
113 00CB: NOP
114 00CC: BCF 03.5
115 00CD: BSF 20.3
116 00CE: MOVF 20,W
117 00CF: BSF 03.5
118 00D0: MOVWF 07
119 00D1: BCF 03.5
120 00D2: BTFSS 07.3
121 00D3: GOTO 0D2
122 00D4: CLRF 78
2906 jacho 123 00D5: NOP
2908 kaklik 124 00D6: BTFSC 07.4
125 00D7: BSF 78.0
126 00D8: BCF 07.3
127 00D9: BCF 20.3
128 00DA: MOVF 20,W
129 00DB: BSF 03.5
130 00DC: MOVWF 07
131 00DD: BCF 03.5
132 00DE: BCF 07.4
133 00DF: BCF 20.4
134 00E0: MOVF 20,W
135 00E1: BSF 03.5
136 00E2: MOVWF 07
137 00E3: BCF 03.5
138 00E4: RETURN
139 00E5: MOVLW 08
140 00E6: MOVWF 2F
141 00E7: MOVF 77,W
142 00E8: MOVWF 30
143 00E9: BSF 20.4
144 00EA: MOVF 20,W
145 00EB: BSF 03.5
146 00EC: MOVWF 07
147 00ED: NOP
148 00EE: BCF 03.5
149 00EF: BSF 20.3
150 00F0: MOVF 20,W
151 00F1: BSF 03.5
152 00F2: MOVWF 07
153 00F3: BCF 03.5
154 00F4: BTFSS 07.3
155 00F5: GOTO 0F4
156 00F6: BTFSC 07.4
157 00F7: BSF 03.0
158 00F8: BTFSS 07.4
159 00F9: BCF 03.0
160 00FA: RLF 78,F
2906 jacho 161 00FB: NOP
2908 kaklik 162 00FC: BCF 20.3
163 00FD: MOVF 20,W
2906 jacho 164 00FE: BSF 03.5
2908 kaklik 165 00FF: MOVWF 07
2906 jacho 166 0100: BCF 03.5
2908 kaklik 167 0101: BCF 07.3
168 0102: DECFSZ 2F,F
169 0103: GOTO 0E9
170 0104: BSF 20.4
171 0105: MOVF 20,W
172 0106: BSF 03.5
173 0107: MOVWF 07
174 0108: NOP
175 0109: BCF 03.5
176 010A: BCF 07.4
177 010B: MOVF 30,W
178 010C: BTFSC 03.2
179 010D: GOTO 113
180 010E: BCF 20.4
181 010F: MOVF 20,W
182 0110: BSF 03.5
183 0111: MOVWF 07
184 0112: BCF 03.5
185 0113: NOP
186 0114: BSF 20.3
187 0115: MOVF 20,W
188 0116: BSF 03.5
189 0117: MOVWF 07
190 0118: BCF 03.5
191 0119: BTFSS 07.3
192 011A: GOTO 119
193 011B: NOP
194 011C: BCF 07.3
195 011D: BCF 20.3
196 011E: MOVF 20,W
197 011F: BSF 03.5
198 0120: MOVWF 07
199 0121: NOP
200 0122: BCF 03.5
201 0123: BCF 07.4
202 0124: BCF 20.4
203 0125: MOVF 20,W
204 0126: BSF 03.5
205 0127: MOVWF 07
206 0128: BCF 03.5
207 0129: RETURN
2906 jacho 208 .................... #use rs232(baud=9600,parity=N,xmit=PIN_B3,rcv=PIN_B2,bits=8) //rcv TXD xmit RXD
209 *
210 0031: BSF 03.5
211 0032: BCF 06.3
212 0033: BCF 03.5
213 0034: BCF 06.3
214 0035: MOVLW 08
215 0036: MOVWF 78
216 0037: GOTO 038
217 0038: NOP
218 0039: BSF 78.7
219 003A: GOTO 049
220 003B: BCF 78.7
221 003C: RRF 37,F
222 003D: BTFSC 03.0
223 003E: BSF 06.3
224 003F: BTFSS 03.0
225 0040: BCF 06.3
226 0041: BSF 78.6
227 0042: GOTO 049
228 0043: BCF 78.6
229 0044: DECFSZ 78,F
230 0045: GOTO 03C
231 0046: GOTO 047
232 0047: NOP
233 0048: BSF 06.3
234 0049: MOVLW 3F
235 004A: MOVWF 04
236 004B: DECFSZ 04,F
237 004C: GOTO 04B
238 004D: NOP
239 004E: BTFSC 78.7
240 004F: GOTO 03B
241 0050: BTFSC 78.6
242 0051: GOTO 043
243 0052: RETURN
244 ....................
245 ....................
2908 kaklik 246 ....................
2906 jacho 247 .................... void main()
248 .................... {
249 *
2908 kaklik 250 028B: CLRF 04
251 028C: BCF 03.7
252 028D: MOVLW 1F
253 028E: ANDWF 03,F
254 028F: MOVLW 71
255 0290: BSF 03.5
256 0291: MOVWF 0F
257 0292: MOVF 0F,W
258 0293: BCF 06.3
259 0294: BCF 03.5
260 0295: BSF 06.3
261 0296: BSF 03.5
262 0297: BSF 03.6
263 0298: MOVF 09,W
264 0299: ANDLW C0
265 029A: MOVWF 09
266 029B: BCF 03.6
267 029C: BCF 1F.4
268 029D: BCF 1F.5
269 029E: MOVLW 00
270 029F: BSF 03.6
271 02A0: MOVWF 08
272 02A1: BCF 03.5
273 02A2: CLRF 07
274 02A3: CLRF 08
275 02A4: CLRF 09
2906 jacho 276 ....................
277 .................... setup_adc_ports(NO_ANALOGS|VSS_VDD);
278 *
2908 kaklik 279 02A8: BSF 03.5
280 02A9: BSF 03.6
281 02AA: MOVF 09,W
282 02AB: ANDLW C0
283 02AC: MOVWF 09
284 02AD: BCF 03.6
285 02AE: BCF 1F.4
286 02AF: BCF 1F.5
287 02B0: MOVLW 00
288 02B1: BSF 03.6
289 02B2: MOVWF 08
2906 jacho 290 .................... setup_adc(ADC_CLOCK_DIV_2);
2908 kaklik 291 02B3: BCF 03.5
292 02B4: BCF 03.6
293 02B5: BCF 1F.6
294 02B6: BCF 1F.7
295 02B7: BSF 03.5
296 02B8: BCF 1F.7
297 02B9: BCF 03.5
298 02BA: BSF 1F.0
2906 jacho 299 .................... setup_spi(SPI_SS_DISABLED);
2908 kaklik 300 02BB: BCF 14.5
301 02BC: BCF 20.5
302 02BD: MOVF 20,W
303 02BE: BSF 03.5
304 02BF: MOVWF 07
305 02C0: BCF 03.5
306 02C1: BSF 20.4
307 02C2: MOVF 20,W
308 02C3: BSF 03.5
309 02C4: MOVWF 07
310 02C5: BCF 03.5
311 02C6: BCF 20.3
312 02C7: MOVF 20,W
313 02C8: BSF 03.5
314 02C9: MOVWF 07
315 02CA: MOVLW 01
316 02CB: BCF 03.5
317 02CC: MOVWF 14
318 02CD: MOVLW 00
319 02CE: BSF 03.5
320 02CF: MOVWF 14
2906 jacho 321 .................... setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);
2908 kaklik 322 02D0: MOVF 01,W
323 02D1: ANDLW C7
324 02D2: IORLW 08
325 02D3: MOVWF 01
2906 jacho 326 .................... setup_timer_1(T1_DISABLED);
2908 kaklik 327 02D4: BCF 03.5
328 02D5: CLRF 10
2906 jacho 329 .................... setup_timer_2(T2_DISABLED,0,1);
2908 kaklik 330 02D6: MOVLW 00
331 02D7: MOVWF 78
332 02D8: MOVWF 12
333 02D9: MOVLW 00
334 02DA: BSF 03.5
335 02DB: MOVWF 12
2906 jacho 336 .................... setup_ccp1(CCP_OFF);
2908 kaklik 337 02DC: BCF 03.5
338 02DD: BSF 20.2
339 02DE: MOVF 20,W
340 02DF: BSF 03.5
341 02E0: MOVWF 07
342 02E1: BCF 03.5
343 02E2: CLRF 17
344 02E3: BSF 03.5
345 02E4: CLRF 1B
346 02E5: CLRF 1C
347 02E6: MOVLW 01
348 02E7: MOVWF 1D
2906 jacho 349 .................... setup_comparator(NC_NC_NC_NC);// This device COMP currently not supported by the PICWizard
2908 kaklik 350 02E8: BCF 03.5
351 02E9: BSF 03.6
352 02EA: CLRF 07
353 02EB: CLRF 08
354 02EC: CLRF 09
2906 jacho 355 ....................
356 .................... printf("Simple Thermomether \r\n",);
2908 kaklik 357 02ED: MOVLW 04
358 02EE: MOVWF 0D
359 02EF: MOVLW 00
360 02F0: MOVWF 0F
361 02F1: BCF 03.6
362 02F2: GOTO 053
2906 jacho 363 ....................
364 .................... int16 data1, data2, data3;
365 ....................
366 .................... int XL,XH,YL,YH,ZL,ZH;
367 ....................
368 .................... while(TRUE)
369 .................... {
370 ....................
371 .................... data1=0;
2908 kaklik 372 02F3: CLRF 22
373 02F4: CLRF 21
2906 jacho 374 .................... data2=0 ;
2908 kaklik 375 02F5: CLRF 24
376 02F6: CLRF 23
2906 jacho 377 ....................
378 ....................
379 .................... //akcelerometr
380 .................... int1 ack;
381 .................... i2c_start(); // If the write command is acknowledged,
2908 kaklik 382 02F7: BSF 20.4
383 02F8: MOVF 20,W
384 02F9: BSF 03.5
385 02FA: MOVWF 07
386 02FB: NOP
387 02FC: BCF 03.5
388 02FD: BSF 20.3
389 02FE: MOVF 20,W
390 02FF: BSF 03.5
391 0300: MOVWF 07
392 0301: NOP
393 0302: BCF 03.5
394 0303: BCF 07.4
395 0304: BCF 20.4
396 0305: MOVF 20,W
397 0306: BSF 03.5
398 0307: MOVWF 07
399 0308: NOP
400 0309: BCF 03.5
401 030A: BCF 07.3
402 030B: BCF 20.3
403 030C: MOVF 20,W
404 030D: BSF 03.5
405 030E: MOVWF 07
2906 jacho 406 .................... ack = i2c_write(0x81);//hen the device is ready.
2908 kaklik 407 030F: MOVLW 81
408 0310: BCF 03.5
409 0311: MOVWF 2E
410 0312: CALL 09B
411 0313: MOVF 78,W
412 0314: BCF 2D.0
413 0315: BTFSC 78.0
414 0316: BSF 2D.0
2906 jacho 415 .................... i2c_stop();
2908 kaklik 416 0317: BCF 20.4
417 0318: MOVF 20,W
418 0319: BSF 03.5
419 031A: MOVWF 07
420 031B: NOP
421 031C: BCF 03.5
422 031D: BSF 20.3
423 031E: MOVF 20,W
424 031F: BSF 03.5
425 0320: MOVWF 07
426 0321: BCF 03.5
427 0322: BTFSS 07.3
428 0323: GOTO 322
429 0324: NOP
430 0325: GOTO 326
431 0326: NOP
432 0327: BSF 20.4
433 0328: MOVF 20,W
434 0329: BSF 03.5
435 032A: MOVWF 07
436 032B: NOP
2906 jacho 437 .................... ack=!ack;
2908 kaklik 438 032C: MOVLW 01
439 032D: BCF 03.5
440 032E: XORWF 2D,F
2906 jacho 441 ....................
442 ....................
443 ....................
444 .................... i2c_stop(); //T
2908 kaklik 445 032F: BCF 20.4
446 0330: MOVF 20,W
447 0331: BSF 03.5
448 0332: MOVWF 07
449 0333: NOP
450 0334: BCF 03.5
451 0335: BSF 20.3
452 0336: MOVF 20,W
453 0337: BSF 03.5
454 0338: MOVWF 07
455 0339: BCF 03.5
456 033A: BTFSS 07.3
457 033B: GOTO 33A
458 033C: NOP
459 033D: GOTO 33E
460 033E: NOP
461 033F: BSF 20.4
462 0340: MOVF 20,W
463 0341: BSF 03.5
464 0342: MOVWF 07
465 0343: NOP
2906 jacho 466 ....................
467 .................... i2c_start();
2908 kaklik 468 0344: BCF 03.5
469 0345: BSF 20.4
470 0346: MOVF 20,W
471 0347: BSF 03.5
472 0348: MOVWF 07
473 0349: NOP
474 034A: BCF 03.5
475 034B: BSF 20.3
476 034C: MOVF 20,W
477 034D: BSF 03.5
478 034E: MOVWF 07
479 034F: NOP
480 0350: BCF 03.5
481 0351: BCF 07.4
482 0352: BCF 20.4
483 0353: MOVF 20,W
484 0354: BSF 03.5
485 0355: MOVWF 07
486 0356: NOP
487 0357: BCF 03.5
488 0358: BCF 07.3
489 0359: BCF 20.3
490 035A: MOVF 20,W
491 035B: BSF 03.5
492 035C: MOVWF 07
2906 jacho 493 .................... I2C_Write(0x80);
2908 kaklik 494 035D: MOVLW 80
495 035E: BCF 03.5
496 035F: MOVWF 2E
497 0360: CALL 09B
2906 jacho 498 .................... I2C_write(0xF3);
2908 kaklik 499 0361: MOVLW F3
500 0362: MOVWF 2E
501 0363: CALL 09B
2906 jacho 502 .................... // i2c_stop();
503 .................... i2c_start();
2908 kaklik 504 0364: BSF 20.4
505 0365: MOVF 20,W
506 0366: BSF 03.5
507 0367: MOVWF 07
508 0368: NOP
509 0369: BCF 03.5
510 036A: BSF 20.3
511 036B: MOVF 20,W
512 036C: BSF 03.5
513 036D: MOVWF 07
514 036E: NOP
515 036F: BCF 03.5
516 0370: BTFSS 07.3
517 0371: GOTO 370
518 0372: BCF 07.4
519 0373: BCF 20.4
520 0374: MOVF 20,W
521 0375: BSF 03.5
522 0376: MOVWF 07
523 0377: NOP
524 0378: BCF 03.5
525 0379: BCF 07.3
526 037A: BCF 20.3
527 037B: MOVF 20,W
528 037C: BSF 03.5
529 037D: MOVWF 07
2906 jacho 530 .................... I2C_Write(0x81);
2908 kaklik 531 037E: MOVLW 81
532 037F: BCF 03.5
533 0380: MOVWF 2E
534 0381: CALL 09B
2906 jacho 535 .................... XH=i2c_read(0);
2908 kaklik 536 0382: CLRF 77
537 0383: CALL 0E5
538 0384: MOVF 78,W
539 0385: MOVWF 28
2906 jacho 540 .................... XL=i2c_read(0);
2908 kaklik 541 0386: CLRF 77
542 0387: CALL 0E5
543 0388: MOVF 78,W
544 0389: MOVWF 27
2906 jacho 545 .................... i2c_stop();
2908 kaklik 546 038A: BCF 20.4
547 038B: MOVF 20,W
548 038C: BSF 03.5
549 038D: MOVWF 07
550 038E: NOP
551 038F: BCF 03.5
552 0390: BSF 20.3
553 0391: MOVF 20,W
554 0392: BSF 03.5
555 0393: MOVWF 07
556 0394: BCF 03.5
557 0395: BTFSS 07.3
558 0396: GOTO 395
559 0397: NOP
560 0398: GOTO 399
561 0399: NOP
562 039A: BSF 20.4
563 039B: MOVF 20,W
564 039C: BSF 03.5
565 039D: MOVWF 07
566 039E: NOP
2906 jacho 567 ....................
568 ....................
569 .................... i2c_start(); //RH
2908 kaklik 570 039F: BCF 03.5
571 03A0: BSF 20.4
572 03A1: MOVF 20,W
573 03A2: BSF 03.5
574 03A3: MOVWF 07
575 03A4: NOP
576 03A5: BCF 03.5
577 03A6: BSF 20.3
578 03A7: MOVF 20,W
579 03A8: BSF 03.5
580 03A9: MOVWF 07
581 03AA: NOP
582 03AB: BCF 03.5
583 03AC: BCF 07.4
584 03AD: BCF 20.4
585 03AE: MOVF 20,W
586 03AF: BSF 03.5
587 03B0: MOVWF 07
588 03B1: NOP
589 03B2: BCF 03.5
590 03B3: BCF 07.3
591 03B4: BCF 20.3
592 03B5: MOVF 20,W
593 03B6: BSF 03.5
594 03B7: MOVWF 07
2906 jacho 595 .................... I2C_Write(0x80);
2908 kaklik 596 03B8: MOVLW 80
597 03B9: BCF 03.5
598 03BA: MOVWF 2E
599 03BB: CALL 09B
2906 jacho 600 .................... I2C_write(0xF5);
2908 kaklik 601 03BC: MOVLW F5
602 03BD: MOVWF 2E
603 03BE: CALL 09B
2906 jacho 604 .................... // i2c_stop();
605 .................... i2c_start();
2908 kaklik 606 03BF: BSF 20.4
607 03C0: MOVF 20,W
608 03C1: BSF 03.5
609 03C2: MOVWF 07
610 03C3: NOP
611 03C4: BCF 03.5
612 03C5: BSF 20.3
613 03C6: MOVF 20,W
614 03C7: BSF 03.5
615 03C8: MOVWF 07
616 03C9: NOP
617 03CA: BCF 03.5
618 03CB: BTFSS 07.3
619 03CC: GOTO 3CB
620 03CD: BCF 07.4
621 03CE: BCF 20.4
622 03CF: MOVF 20,W
623 03D0: BSF 03.5
624 03D1: MOVWF 07
625 03D2: NOP
626 03D3: BCF 03.5
627 03D4: BCF 07.3
628 03D5: BCF 20.3
629 03D6: MOVF 20,W
630 03D7: BSF 03.5
631 03D8: MOVWF 07
2906 jacho 632 .................... I2C_Write(0x81);
2908 kaklik 633 03D9: MOVLW 81
634 03DA: BCF 03.5
635 03DB: MOVWF 2E
636 03DC: CALL 09B
2906 jacho 637 .................... YH=i2c_read(0);
2908 kaklik 638 03DD: CLRF 77
639 03DE: CALL 0E5
640 03DF: MOVF 78,W
641 03E0: MOVWF 2A
2906 jacho 642 .................... YL=i2c_read(0);
2908 kaklik 643 03E1: CLRF 77
644 03E2: CALL 0E5
645 03E3: MOVF 78,W
646 03E4: MOVWF 29
2906 jacho 647 .................... i2c_stop();
2908 kaklik 648 03E5: BCF 20.4
649 03E6: MOVF 20,W
650 03E7: BSF 03.5
651 03E8: MOVWF 07
652 03E9: NOP
653 03EA: BCF 03.5
654 03EB: BSF 20.3
655 03EC: MOVF 20,W
656 03ED: BSF 03.5
657 03EE: MOVWF 07
658 03EF: BCF 03.5
659 03F0: BTFSS 07.3
660 03F1: GOTO 3F0
661 03F2: NOP
662 03F3: GOTO 3F4
663 03F4: NOP
664 03F5: BSF 20.4
665 03F6: MOVF 20,W
666 03F7: BSF 03.5
667 03F8: MOVWF 07
668 03F9: NOP
2906 jacho 669 ....................
670 ....................
671 ....................
672 .................... data1 = (((unsigned int16) XH << 8) + XL>>2 );
2908 kaklik 673 03FA: BCF 03.5
674 03FB: CLRF 2F
675 03FC: MOVF 28,W
676 03FD: MOVWF 2E
677 03FE: MOVWF 2F
678 03FF: CLRF 2E
679 0400: MOVF 27,W
680 0401: ADDWF 2E,F
681 0402: BTFSC 03.0
682 0403: INCF 2F,F
683 0404: RRF 2F,W
684 0405: MOVWF 22
685 0406: RRF 2E,W
686 0407: MOVWF 21
687 0408: RRF 22,F
688 0409: RRF 21,F
689 040A: MOVLW 3F
690 040B: ANDWF 22,F
2906 jacho 691 .................... data2 = (((unsigned int16) YH << 8) + YL>>2);
2908 kaklik 692 040C: CLRF 2F
693 040D: MOVF 2A,W
694 040E: MOVWF 2E
695 040F: MOVWF 2F
696 0410: CLRF 2E
697 0411: MOVF 29,W
698 0412: ADDWF 2E,F
699 0413: BTFSC 03.0
700 0414: INCF 2F,F
701 0415: RRF 2F,W
702 0416: MOVWF 24
703 0417: RRF 2E,W
704 0418: MOVWF 23
705 0419: RRF 24,F
706 041A: RRF 23,F
707 041B: MOVLW 3F
708 041C: ANDWF 24,F
2906 jacho 709 ....................
710 ....................
711 .................... printf("Stav: %d (procenta)\r\n", ack);
2908 kaklik 712 041D: MOVLW 00
713 041E: BTFSC 2D.0
714 041F: MOVLW 01
715 0420: MOVWF 2E
716 0421: MOVLW 10
717 0422: BSF 03.6
718 0423: MOVWF 0D
719 0424: MOVLW 00
720 0425: MOVWF 0F
721 0426: BCF 03.0
722 0427: MOVLW 06
723 0428: BCF 03.6
724 0429: MOVWF 2F
725 042A: CALL 12A
726 042B: MOVF 2E,W
727 042C: MOVWF 2F
728 042D: MOVLW 1F
729 042E: MOVWF 30
730 042F: GOTO 18E
731 0430: MOVLW 14
732 0431: BSF 03.6
733 0432: MOVWF 0D
734 0433: MOVLW 00
735 0434: MOVWF 0F
736 0435: BCF 03.0
737 0436: MOVLW 0D
738 0437: BCF 03.6
739 0438: MOVWF 2F
740 0439: CALL 12A
2906 jacho 741 ....................
742 .................... printf("Stav: %Ld(procenta)\r\n", data1);
2908 kaklik 743 043A: MOVLW 1B
744 043B: BSF 03.6
745 043C: MOVWF 0D
746 043D: MOVLW 00
747 043E: MOVWF 0F
748 043F: BCF 03.0
749 0440: MOVLW 06
750 0441: BCF 03.6
751 0442: MOVWF 2F
752 0443: CALL 12A
753 0444: MOVLW 10
754 0445: MOVWF 04
755 0446: MOVF 22,W
756 0447: MOVWF 2F
757 0448: MOVF 21,W
758 0449: MOVWF 2E
759 044A: CALL 1F5
760 044B: MOVLW 1F
761 044C: BSF 03.6
762 044D: MOVWF 0D
763 044E: MOVLW 00
764 044F: MOVWF 0F
765 0450: BSF 03.0
766 0451: MOVLW 0C
767 0452: BCF 03.6
768 0453: MOVWF 2F
769 0454: CALL 12A
2906 jacho 770 .................... printf("Stav: %Ld(procenta)\r\n", data2);
2908 kaklik 771 0455: MOVLW 26
772 0456: BSF 03.6
773 0457: MOVWF 0D
774 0458: MOVLW 00
775 0459: MOVWF 0F
776 045A: BCF 03.0
777 045B: MOVLW 06
778 045C: BCF 03.6
779 045D: MOVWF 2F
780 045E: CALL 12A
781 045F: MOVLW 10
782 0460: MOVWF 04
783 0461: MOVF 24,W
784 0462: MOVWF 2F
785 0463: MOVF 23,W
786 0464: MOVWF 2E
787 0465: CALL 1F5
788 0466: MOVLW 2A
789 0467: BSF 03.6
790 0468: MOVWF 0D
791 0469: MOVLW 00
792 046A: MOVWF 0F
793 046B: BSF 03.0
794 046C: MOVLW 0C
795 046D: BCF 03.6
796 046E: MOVWF 2F
797 046F: CALL 12A
2906 jacho 798 ....................
799 .................... delay_ms (2000);
2908 kaklik 800 0470: MOVLW 08
801 0471: MOVWF 2E
802 0472: MOVLW FA
803 0473: MOVWF 2F
804 0474: GOTO 275
805 0475: DECFSZ 2E,F
806 0476: GOTO 472
2906 jacho 807 ....................
808 .................... }
2908 kaklik 809 0477: GOTO 2F3
2906 jacho 810 .................... }
811 ....................
2908 kaklik 812 0478: SLEEP
2906 jacho 813  
814 Configuration Fuses:
815 Word 1: 2CF5 INTRC NOWDT NOPUT MCLR NOPROTECT NOCPD NOBROWNOUT IESO FCMEN NOLVP NODEBUG
816 Word 2: 3FFF NOWRT BORV40