Отправлено rasdolin 29 июня 2003 г. 17:11 В ответ на: Ответ: Да мне не тоько для PIC. Ну может еще кто сбросит. отправлено Bill 28 июня 2003 г. 23:10

21 0000 _Bits1$_word set ?_Bits1
22
23 psect text0
24 0726 _Bits1
25 ; _count assigned to ?a_Bits1+0
26 0000 _Bits1$count set ?a_Bits1
27 ;TEST.C: 21: char count = 0;
28 0726 1283 bcf 3,5
29 0727 1303 bcf 3,6
30 0728 01AA clrf ?a_Bits1
31 ;TEST.C: 22: if (_word)
32 0729 0829 movf ?_Bits1+1,w
33 072A 0428 iorwf ?_Bits1,w
34 072B 1903 btfsc 3,2
35 072C 2F3E goto l2
36 072D l5
37 ;TEST.C: 23: do{
38 ;TEST.C: 24: ++count;
39 072D 0AAA incf ?a_Bits1
40 ;TEST.C: 25: }
41 072E 0829 movf ?_Bits1+1,w
42 072F 00F1 movwf btemp+1
43 0730 0828 movf ?_Bits1,w
44 0731 00F0 movwf btemp
45 0732 30FF movlw -1
46 0733 07F0 addwf btemp
47 0734 1C03 btfss 3,0
48 0735 07F1 addwf btemp+1
49 0736 0870 movf btemp,w
50 0737 05A8 andwf ?_Bits1
51 0738 0871 movf btemp+1,w
52 0739 05A9 andwf ?_Bits1+1
53 073A 0829 movf ?_Bits1+1,w
54 073B 0428 iorwf ?_Bits1,w
55 073C 1D03 btfss 3,2
56 073D 2F2D goto l5
57 073E l2
58 ;TEST.C: 27: return count;
59 073E 082A movf ?a_Bits1,w
60 ;TEST.C: 28: }
61 073F 0008 return

• разъехалось все как-то ... попробую еще раз (+) — rasdolin   (29.06.2003 18:02, 5254 байт)
  • еще тест ... извиняйте (+) — rasdolin   (29.06.2003 18:06, 4646 байт)