Отправлено rasdolin 29 июня 2003 г. 18:02 В ответ на: picc 8.01pl1 отправлено rasdolin 29 июня 2003 г. 17:11

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:06, 4646 байт)