і
АВТОМАТИКА
t
btfsc
STATUS, C
DARGOK32
movlw
.24
movf
BX, W
incfsz Bl, w
movwf
Tl
subwf
AX, W
addwf
A4, F
movwf
BX
DLOOP32
rlf
A5, F
btfsc
STATUS, Z
movf
BO, w
rlf
A4, F
goto
ALIGNED32
btfsc
STATUS, C
rlf
A3, F
incfsz BO, w
rlf
A2, F
movlw
e
addwf
A3, F
rlf
Al, F
subwf
BX, W
rlf
AO, F
btfss
STATUS, C
MNOADD32
rrf
A3, F
rlf
T0, F
goto
ALIGNB32
rrf
A4, F
movwf
BX
rrf
A5, F
movf
B2, W
rlf
A5, F
rrf
AO, F
subwf
A2, F
movf
A4, W
rrf
Al, F
movf
Bl, W
movwf
A5
rrf
A2, F
btfss
STATUS, C
movf
A3, W
bcf
STATUS, C
incfsz
B l,
W
movwf
A4
decfsz ТО, F
DS132
subwf
Al, F
clrf
A3
goto
MLOOP32
movf
ВО, w
movlw
e
btfsc
A3, MSB
!
btfss
STATUS, C
subwf
BX, w
goto
MUL320K
incfsz ВО,
W
btfss
STATUS, C
rlf
AO, F
DS232
subwf
AO, F
goto
AL1GNB32
rlf
A5, F
movwf
BX
rlf
A4, F
rlf
ВО, w
rlf
A5, F
rlf
A3, F
iorwf
ТО, F
movf
A4, W
decf
AX, F
movwf
A5
btfss
TO, LSB
clrf
A4
MUL320K
btfss
Sign, MSB
goto
DREST32
bcf
A3, MSB
ALIGNB32
movf
BX, W
bsf
A5, LSB
btfsc
STATUS, Z
movf
A3, W
goto
DOK32
goto
ALIGNED32
movwf
AO
movf
A4, W
DREST32
movf
B2, W
ALOOPB32
bcf
STATUS, C
movwf
Al
addwf
A2, F
rrf
A3, F
movf
A5, W
movf
Bl, W
rrf
A4, F
movwf
A2
btfsc
STATUS, C
rrf
A5, F
retlw
0
incfsz Bl, H
decfBZ BX, F
DAREST32
addwf
Al, F
goto
ALOOPB32
;
Результат:
A <— A / B
Div
movf
AO, W
movf
в о , w
ALIGNED32
btfss
T0, MSB
xorwf
ВО, w
btfBC
STATUS, C
goto
AOK32
movwf
Sign
incf
в о , w
bsf
AO, MSB
addwf
AO, F
comf
A3, F
bsf
B0, MSB
comf
A4, F
bcf
A5, LSB
comf
A5, F
TALIGN32
clrf
то
incf
A5, F
movf
AO, W
DOK32
decfsz Tl, F
btfsc
STATUS, Z
movwf
A3
goto
DLOCP32
incf
A4, F
movf
Al, W
btfsc
STATUS, Z
movwf
A4
DDIV320K
btfss
SIGH, MSB
incf
A3, F
movf
A2, W
bcf
A3, MSB
movwf
A5
AOK32
movf
A5, H
movf
A3, W
addwf
A2, F
movf
B2, W
movwf
A0
movf
A4, И
subwf
A5, F
movf
A4, W
btfsc
STATUS, C
movf
Bl, W
movwf
Al
incfsz A4, W
btfss
STATUS, C
movf
A5, W
addwf
Al, F
incfsz Bl, w
movwf
A2
movf
A3, W
TS1ALIGN32
subwf
A4, F
retlw
0
btfsc
STATUS, C
moVf
ВО, W
incfsz A3, W
btfss
STATUS, C
;
Результат:
A <— A - B
addwf
A0, F
incfsz ВО, W
sub
movf
BX, w
btfss
STATUS, 2
btfsc
T0, MSB
TS2ALIGN32
subwf
A3, F
goto
SUBI
goto
AC0KP32
movf
B0, W
btfss
STATUS, C
clrf
A3
btfsc
STATUS, Z
goto
FIXSIGN32
cl rf
A4
retlw
0
cl rf
A5
SUBI
movlw
0XS0
rrf
A0, F
xorwf
ВО, F
rrf
Al, F
btfss
STATUS, C
rrf
A2, F
goto
DALIGN320K
;
Result A <—
A - B
incf
AX, F
Add
movf
A0, W
goto
FIXEIGN32
bcf
STATUS, C
xorwf
B0, W
rrf
AO, F
movwf
T0
ACCMP32
btfsc
STATUS, C
rrf
Al, F
goto
NRM32
rrf
A2, F
movf
AX, W
rrf
A3, F
subwf
BX, w
comf
A0, F
movlw
0x01
btfss
STATUS, C
comf
Al, F
movwf
T0
goto
USEA32
comf
A2, F
incf
A2, F
DALIGN320K
movf
BX, W
call
ASwapB
btfsc
STATUS, Z
subwf
AX, F
incf
Al, F
btfss
STATUS, C
USEA32
movf
AO, W
btfsc
8TATUS, Z
goto
ALTB32
movwf
Sign
incf
A0, F
bsf
АО, MSB
AGEB32
movlw
EXPBIAS
bsf
B0, MSB
movlw
0x60
addwf
ТО, W
xorwf
Sign, F
addwf
AX, F
movf
B0, W
goto
NRM32
goto
DARGOK32
movwf
A3
END
movf
Bl, W
ALTB32
movlw
EXPBIAS
movwf
A4
addwf
T0, W
movf
B2, W
addwf
AX, F
movwf
A5
Радиолюбитель - 0 3 /2 0 0 5 |
предыдущая страница 24 Радиолюбитель 2005-03 читать онлайн следующая страница 26 Радиолюбитель 2005-03 читать онлайн Домой Выключить/включить текст