AVR 系列单片机汇编 数值运算子程序

showmaker

;***************************************************************************
6 Z- q! h0 V/ P/ B8 H$ y$ F;*
;* "mpy16u" - 16x16 Bit Unsigned Multiplication
0 d% q0 Q4 r0 g  Y;*
' F! O% S" \0 Y5 O5 v: `' E;* This subroutine multiplies the two 16-bit register variables
) R  D+ v/ Y) C9 E1 ~  K7 M;* mp16uH:mp16uL and mc16uH:mc16uL.
;* The result is placed in m16u3:m16u2:m16u1:m16u0.
;*
;* Number of words        :14 + return
! I" [, r4 u( V8 s0 w;* Number of cycles        :153 + return
;* Low registers used        :None
;* High registers used  :7 (mp16uL,mp16uH,mc16uL/m16u0,mc16uH/m16u1,m16u2,
8 ?& Z( d; }) t;*                          m16u3,mcnt16u)
4 u  \2 f3 Q' u5 ]2 V. s;*
# m9 Y$ r9 d* q0 f1 ~1 v4 x0 c;***************************************************************************

;***** Subroutine Register Variables

.def        mc16uL        =r16                ;multiplicand low byte
.def        mc16uH        =r17                ;multiplicand high byte
6 w+ Y4 @) z! N$ S* ^7 N.def        mp16uL        =r18                ;multiplier low byte
.def        mp16uH        =r19                ;multiplier high byte
- g$ }8 K1 o: Y9 T0 j3 n: l.def        m16u0        =r18                ;result byte 0 (LSB)
8 x4 M, r. f( ?.def        m16u1        =r19                ;result byte 1
% V- E0 L$ p, H: @0 b! Y. H.def        m16u2        =r20                ;result byte 2
.def        m16u3        =r21                ;result byte 3 (MSB)
& D$ N7 O( p9 h8 s. ~.def        mcnt16u        =r22                ;loop counter
% y8 X# @/ m% X8 x
;***** Code

  l8 i( i3 B. s+ Ampy16u:        clr        m16u3                ;clear 2 highest bytes of result
        clr        m16u2
        ldi        mcnt16u,16        ;init loop counter
) u( \1 W9 }' q% I% p7 \        lsr        mp16uH
, _( k' O* f3 |% p. C& b        ror        mp16uL

m16u_1:        brcc        noad8                ;if bit 0 of multiplier set
        add        m16u2,mc16uL        ;add multiplicand Low to byte 2 of res
        adc        m16u3,mc16uH        ;add multiplicand high to byte 3 of res
" R" L0 |' J" ^noad8:        ror        m16u3                ;shift right result byte 3
        ror        m16u2                ;rotate right result byte 2
        ror        m16u1                ;rotate result byte 1 and multiplier High
        ror        m16u0                ;rotate result byte 0 and multiplier Low
        dec        mcnt16u                ;decrement loop counter
) e; f. V5 {* g7 Q6 M        brne        m16u_1                ;if not done, loop more
7 T4 r% r7 v; N( Q' N7 s9 z        ret
& D7 Q& X0 z9 B7 |, F5 ^



;......................

( a% |# `) ?/ a( M;被除数：R19（HIGH）R18 R17 R16（LOW）
) f: d$ y: Z, B$ M
;除数：R21（HIGH）R20
& P% Q+ ~0 @6 V+ t( Q5 K+ w
;结果：R17（HIGH）R16
;余数：R19（HIGH）R18
. r0 Z) `5 }/ s3 e* U; ^& |9 S0 M;计数器，R22

# r: Z' h3 I7 w6 `- \$ Z) M( n9 S;...................................................
d32v16u:                   ; 32位/16位无符号除法
" V2 K+ p) w1 y  n        cp r18,r20         ;被除数高16位 > 除数
5 P3 I! k: S+ S# }2 e        cpc r19,r21        ;结果溢出
        brcc        cc            
; D* b* r3 h, m$ S3 n) I7 X        ldi r22,$10        ;初始化循环计数器
        rol r16            ;左移被除数
        rol r17
3 t. T& z7 q) [" `6 uaa:
/ w3 W' P) F3 }% _1 x# V+ x9 i        rol r18            ;左移余数（被除数移到除数）
# s7 R, R6 f/ Y" Z' j+ i! H) a1 D4 ?! P        bst r19,7
, t6 Z9 J& F5 n: M( @* H1 P! K        rol r19
        sub r18,r20        ;余数－除数
        sbc r19,r21
        brts         loop       ;够减，跳至 loop
        brcc         loop
        add r18,r20        ;不够减，再加除数
9 _; h; o4 V1 @* w8 \5 h        adc r19,r21
$ {" l! |! |! w! g4 W& _: T        clc                ;清进位位
        rjmp         loop1
+ v4 _2 \: s2 E) r, v3 }loop:
        sec                ;置进位位
9 n4 S) k9 l1 m" q' Iloop1:
6 M( O# z' R5 ^, P& i0 N        rol r16            ;左移结果
        rol r17
# t, d/ w9 Z9 _+ }* W  u# l9 G+ n        dec r22            ;计数器减 1
* k2 X4 r+ w0 m. p        brne        aa         ;不为 0，再循环
        clt                ;清 t 标志
        ret
, Z' X9 J0 F+ f: ^" T8 Mcc:
        set                ;置 t 标志
        ret
9 w, f/ ?& Q$ {2 `; \0 T
;...................................

! `4 J- L: z" z
5 h$ z& Y5 _1 K
9 \: q5 u1 B& ~4 q

$ N) s+ u* C; Q1 M; z- K# T
5 x/ J4 }# i+ d
! D# V9 @) z; g* k( ^" Y4 C9 G

0 C: \" U) t# T0 D+ {0 i: L* x
( q6 y2 b/ v$ m/ s5 D
2 k$ K/ ?" c; r0 q; _: e5 |* Z; X+ a;......................
% v$ n$ n: w2 K9 H; m0 {# R
;被除数：R17（HIGH） R16（LOW）

% K8 D1 w  X6 l;除数：R21（HIGH）R20

;结果：R17（HIGH）R16
;余数：R19（HIGH）R18
2 ~" Y9 a8 P" W/ o) T" \;计数器，R22

( k7 _, s  R; I4 d: Y;...................................................
d16v16u:                   ; 32位/16位无符号除法
;        cp r18,r20         ;被除数高16位 > 除数
$ u7 i( r* j3 ]) C) b& O% L4 P. E;        cpc r19,r21        ;结果溢出
0 F# p$ S, c  U' x. ~) I;        brcc        cc            
" k. W  y8 ?8 J. L! A  Q      
* ]' Z7 M' t4 w: L) m# m8 w        clr r19
        clr r18
( ?6 T0 j/ ~8 N      
        ldi r22,$10        ;初始化循环计数器
' \4 c5 ^( u9 h* p( t$ S1 E$ E1 F% o        rol r16            ;左移被除数
        rol r17
5 E! [) k1 _: z5 svaa:
        rol r18            ;左移余数（被除数移到除数）
9 S5 c7 V; A) e$ |        bst r19,7
0 S- v% ?3 q0 ]! ]) w        rol r19
3 |( @' Y& y* Q        sub r18,r20        ;余数－除数
0 V7 n4 \7 M% ]. e( t9 a        sbc r19,r21
" J  J9 L: {, ?7 A6 O! l        brts         vloop       ;够减，跳至 loop
        brcc         vloop
        add r18,r20        ;不够减，再加除数
8 c4 u0 ]- K$ X* d7 y) t& L) S) B        adc r19,r21
3 Z% d; ^7 Q5 ^  g5 T7 C        clc                ;清进位位
        rjmp         vloop1
9 E. ]+ X) o2 k5 B! Z9 C9 Ovloop:
5 E) \5 p/ M8 j  a; p        sec                ;置进位位
vloop1:
0 _1 W: C! O# T- |6 \- M        rol r16            ;左移结果
( h% ~0 f" H( D9 ~9 n        rol r17
7 |# s) z9 c# t. }        dec r22            ;计数器减 1
6 ^  e7 `, Q4 ~9 r# s4 i! \        brne        vaa         ;不为 0，再循环
        clt                ;清 t 标志
& u, D8 u4 I; x* ^) V        ret
' h2 f9 N% I8 F;cc:
. k& z# F% {/ m2 d; I+ w+ [;       set                ;置 t 标志
  `4 [5 x5 d% U9 U;        ret
6 }( l( ]. k3 W& b5 |6 n6 m( o

;..............................
; F7 z8 L7 c4 I. N

3 i) ~) a) K) s% H, I# [
& Q: u$ p; w7 y9 }" P3 W- R
6 m4 T7 {& v6 H2 g0 K+ S0 I



. g; j! n' r( `* v( P' D

" }% M0 U- c, G; k( a' _;...r17:r16(hex)--->r20(万位）:r19（千位）:r18（百位）:r17（十位）:r16(bcd)
                   ; 结果值在每字节里只存一位，即在每字节的低半字节里      
4 |: ^2 z# o; G1 ?  U- S;.....................;调用16位二进制转5位十进制子程
b16td5:
        ser r20              ;r20先送－1
b16td5_1:  
        inc r20              ;r20增1
    subi r16,low(10000)  ;（r17：r16）－10000
3 a) F% m% D# o% [" t3 t4 T# p        sbci r17,high(10000)
7 e& {, R7 D$ t        brcc         b16td5_1     ;够减则返回b16td5_1
- E! }% ~! I5 r5 s        subi r16,low(-10000) ;不够减+10000，恢复余数
7 w+ _- d9 K  s# F- y: E# S        sbci r17,high(-10000)
        ser r19              ;r19先送－1
. H. P& y' }6 ]# zb16td5_2:
1 F5 O2 T. h" [# W3 G        inc r19              ;r19增1   
        subi r16,low(1000)   ;（r17：r16）－1000
0 E5 b! D! Q) V5 A! a        sbci r17,high(1000)            
        brcc         b16td5_2     ;够减则返回b16td5_2
        subi r16,low(-1000)  ;不够减+1000，恢复余数
( U' |4 {- U0 C4 R4 ^, q% q        sbci r17,high(-1000)
        ser r18              ;r18先送－1
b16td5_3:
3 u# z$ ~$ q9 j( a5 b        inc r18              ;r18增1   
subi r16,low(100)            ;（r17：r16）－100
" ]) b3 j5 a/ E" I5 i/ I        sbci r17,high(100)            
9 o3 ]- {3 F8 s! T: x% t        brcc         b16td5_3     ;够减则返回b16td5_3
        subi r16,low(-100)   ;不够减+100，恢复余数
        sbci r17,high(-100)
        ser r17              ;r17先送－1
b16td5_4:
( G  B* I  b, e2 _        inc r17              ;r17增1
        subi r16,10          ;（r17：r16）－10         
        brcc         b16td5_4     ;够减则返回b16td5_4               
        subi r16,-10         ;不够减+10，恢复余数
    ret
; r7 c2 ]) T5 P6 T! l% n;...........................................

) t) b: {) V( J  ~+ L7 o& ~8 x1 A7 |



; q& j) f# `7 |$ L1 V0 _* k0 x9 X

;...............;r16(high)r19(low)/r17 =r16(结果)+r19(余数)

d16v8u:                 ;16/8无符号除法
        cp r16,r17      ;被除数高字节 > 除数   
) P+ i; r0 ^4 g8 M/ D        brcc   ddd      ;结果溢出
        ldi r18,8       ;初始化循环计数器
        rol r19         ;左移余数（被除数低字节）
aaa:
        bst r16,7
        rol r16         ;左移被除数高字节
        sub r16,r17     ;r16减r17
        brts        bbb
5 a4 `1 i" b4 l* y, J+ z+ G        brcc        bbb
        add r16,r17     ;结果为负，则r16加r17
3 j4 q* L8 L6 f* g! g1 @8 E% w! D        clc             ;清进位位
2 J( R8 A! L: V( i        rjmp        ccc
bbb:
, X' o; K) x; ?' h% y        sec             ;够减，置进位位
ccc:
7 ]1 c' E. B* b" z        rol r19         ;左移余数
' u4 x8 X: y- `( u+ }7 F+ Y        dec r18         ;减计数器
        brne        aaa     ;没完成再循环
# K3 I' U% j4 p: G( H        clc
        mov r17,r16        
        mov r16,r19     ;r16存放结果
. t% j% ^6 r# p+ ^        mov r19,r17     ;r19存放余数
' E" w- @& `$ }4 i) F. Z        ret
ddd:
        set
% Y1 a, U4 c+ E* c+ h. {$ H        ret
, C. g; p+ V  k2 C; a
;..................................

xiaoming11

学习了  感谢分享

grand

代码感觉很有条理