bit12aver.asm

来自「通过调试的有用的单片机控制程序」· 汇编 代码 · 共 47 行

;双字节加法的循环应用
;利用8次的循环来求出相应的和
;2^N次方原理，可以知道相应的移位次数
;可以得出平均值与余数
PJ12DAT         EQU     3FH             ;数据的首地址
PJ12SUNH        DATA    40H             ;和与结果的高字节
PJ12SUNL        DATA    41H             ;和与结果的低字节
PJ12YUSHU       DATA    42H             ;余数
PJ12COUNT       EQU     3               ;移位次数
BIT12AVER:      MOV     A,#0            ;初始化存储单元
                MOV     PJ12SUNL,A      
                MOV     PJ12SUNH,A
                MOV     PJ12YUSHU,A
                MOV     R0,#PJ12DAT
                MOV     R6,#8
PJ12SUNLOP:     CLR     C               ;求和子程序
                MOV     A,@R0
                ADD     A,PJ12SUNL
                MOV     PJ12SUNL,A
                DEC     R0
                CLR     A
                ADDC    A,@R0
                ADD     A,PJ12SUNH
                MOV     PJ12SUNH,A
                DEC     R0
                DJNZ    R6,PJ12SUNLOP
                ;平均值程序段，移位方式
                MOV     R6,#PJ12COUNT
PJ12RESULT:     CLR     C
                MOV     A,PJ12SUNH
                RRC     A
                MOV     PJ12SUNH,A
                MOV     A,PJ12SUNL
                RRC     A
                MOV     PJ12SUNL,A
                MOV     A,PJ12YUSHU
                RRC     A
                MOV     PJ12YUSHU,A
                DJNZ    R6,PJ12RESULT
                MOV     A,PJ12YUSHU
                SWAP    A
                RR      A
                MOV     PJ12YUSHU,A
                SJMP    $
                END