em78系列常用子程序.txt

EM78系列常用子程序有需要的朋友可以下载看看有很好的参考价值

一        二进制数转换为ASCⅡ码
        将一个字节的二进制数转换为两位16进制数的ASCⅡ码
        main:        mov                a,@0x9f                ;二进制数为0x9f
                     mov                0x30,a                ;二进制数存入0x30
mov                a,@0x02
mov                0x10,a                ;0x10中存放转换次数
mov                a,@0x31
mov                0x04,a                ;0x04中为转换后数据存放地址
mov                a,0x30
B1:                and                a,@0x0f                ;取a低4位
mov                0x00,a
sub                a,@0x09                ;低4位大于9跳往B2
jbs                0x03,0
jmp                B2
mov                a,0x00                ;低4位不大于9则加0x30
add                a,@0x30
mov                0x00,a                ;将ASCⅡ码存入0X04所指单元
jmp                B3
B2:                mov                a,0x00                ;大于9则加0X37
add                a,@0x37
mov                0x00,a
B3:                swapa        0x30                        ;将0X30高4位换入A低4位
inc                0x04                        ;存储地址加1
djz                0x10                        ;循环次数减1,为0则返回
jmp                B1                        ;不为0继续转换

self:                jmp                self
eop
        

二        多字节二进制加法
        0X20,0X21中的二进制无符号数与0X22,0X23中的二进制无符号数相加,结果放在0X24,0X25,0X26中,低地址中放低字节数据。
        Main：        mov                 a，@0x78                ;赋值
mov                0x20,a
mov                a,@0xc6
mov                0x21,a
mov                a,@0x86
mov                0x22,a
mov                a,@0x9e
mov                0x23,a
mov                a,@0x0                        ;0x26单元清0
mov                0x26,a
mov                a,0x21
add                a,0x23
mov                0x25,a                        ;高字节相加,结果送0x25
jbc                0x03,0
inc                0x26                                ; 有进位则0x26加1
mov                a,0x20
add                a,0x22
mov                0x24,a                        ;低字节相加,结果送0x24
jbs                0x03,0
jmp                 self                                ;无进位跳self
inc                0x25                                ;有进位0x25加1
jbc                0x03,0
inc                0x26                                ; 有进位0x26加1
self:                        jmp                self
eop

三        多字节二进制减法
        0x20,0x21中的二进制无符号数减0x22,0x23中的二进制无符号数, 低地址中放低字节数据。假设被减数大于减数。
注意：（1）sub指令减出结果为正时，c标志置1。
（2）sub指令减出结果为0时，c标志也置1。
即，sub指令执行后，c标志清0表示结果为负。
main：        mov                a，@0x67        ;赋值
mov                0x20,a
mov                a,@0xff
mov                0x21,a
mov                a,@0xe8
mov                0x22,a
mov                a,@0x44
mov                0x23,a                ; 高字节相减
sub                a,0x21
mov                0x25,a                ;结果存0x25
mov                a,0x22                ;低字节相减
sub                a,0x20
mov                0x24,a
jbs                0x03,0
dec                0x25                        ;有借位则0x25减1
self:                jmp                self
eop

四        二进制乘法运算
        EM78单片机没有乘法指令,所以乘法运算需要转化为加法运算。0X20单元数据乘以0X21单元数据，结果放在0X22，0X23中。
main:        mov                a,@0x0                ;0x22,0x23单元清0
mov                0x22,a
mov                0x23,a
mov                a,@0x3f                ;赋值
mov                0x20,a
mov                a,@0x22
mov                0x21,a
mul1:        mov                a,0x20                ；0x20与0x22内容相加
add                0x22,a
jbc                0x03,0
inc                0x23                        ;有进位0x23加1
djz                0x21                        ;0x21中次数减到0则结束
jmp                mul1                ;没减到0则继续
self:                jmp                self
eop

五        二进制除法运算
多字节二进制除法
被除数为3个字节，在0x20、0x21、0x22单元中，0x22.7为最高位，0x20.0为最低位。
除数为2个字节，在0x30、0x31中。
算法：EM78单片机没有除法指令，而且本例中除法为多字节除法，可采用如下算法。
将被除数扩充一个字节0X23，0X23清0。被除数左移1位，0X23、0X22中数据减去0X31、0X30中数据，够减则减且0X20.0置1，减出结果存入0X23、0X22；不够减则0X23、0X22保持不变，0X20.0清0。然后被除数再左移1位，重复上述过程。共循环16次，最后0X23、0X22中得相减余数，0X21、0X20中得商。注意，若被除数左移后C标志为1，则不比较0X23、0X22与0X31、0X30数据大小关系而直接相减。
main：                mov                a,@0x55                ;被除数赋值
mov                0x20,a
mov                0x21,a
mov                0x22,a
mov                a,@0x0                ;被除数扩充1字节并清0
mov                0x23,a
mov                a,@0x12                ;除数赋值
mov                0x30,a
mov                0x31,a

mov                a,@0x10                ;循环次数为16
mov                0x32,a
again:                call                rt_sub                ;调移位除法子程
djz                0x32                        ;16次循环完成则结束
jmp                again                ;未完成则继续

self:                        jmp                self

rt_sub:
bc                0x03,0                ;c标志清0
rlc                0x20                        ;被除数左移1位
rlc                0x21
rlc                0x22
rlc                0x23
jbc                0x03,0
jmp                rt3                        ;c标志为1则直接相减
mov                a,0x23                ;c标志为0则先比较大小
mov                0x25,a
mov                a,0x22
mov                0x24,a
mov                a,0x31                ;先比较高位
sub                0x25,a
jbc                0x03,2
jmp                rt1                        ;高位相等跳rt1比较低位
jmp                rt2                        ;高位不等跳rt2
rt1:                        mov                a,0x30                ;比较低位
sub                0x24,a
jbc                0x03,2
jmp                rt3                        ;低位也相等则跳rt3,相减,上1
rt2:                        jbs                0x03,0
ret                                        ;减数大则返回,减数小则相减,上1
rt3:                        bs                0x20,0                ;上1
call                sub_2b                ;调2字节减法子程
ret

sub_2b:
mov                a,0x31                ;高字节相减
sub                0x23,a
mov                a,0x30                ;低字节相减
sub                 0x22,a
jbc                0x03,2
ret                                        ;低字节相等,无借位,返回
jbc                0x03,0
ret                                        ;无借位,返回
dec                0x23                        ;低字节相减有借位,高字节结果减1
ret
eop

六        BCD数转换为二进制数
        两字节压缩BCD码转换为两字节二进制数。算法如下：
BCD码abcd=1000a+100b+10c+d=10{10[10a+b]+c}+d，将各位BCD码分离出之后，即可根据此式转换为二进制数。涉及到乘法运算和多字节加法运算。
        0X20，0X21中为BCD码，0X21高4位为最高位。转换结果放在0X30，0X31中。
main：                mov                a，@0x79
mov                0x20,a
mov                a,@0x54
mov                0x21,a                ;赋值
mov                a,0x20
and                a,@0x0f
mov                0x22,a
swapa        0x20
and                a,@0x0f
mov                0x23,a
mov                a,0x21
and                a,@0x0f
mov                0x24,a
swapa        0x21
and                a,@0x0f
mov                0x25,a                ;BCD码展开后存于0X22,0X23,0X24,0X25
mov                a,0x25,                ;0X25为最高位
mov                0x30,a
mov                a,@0x0                ;多字节加法高位为0
mov                0x31,a
mov                a,0x24
mov                0x32,a
call                a_b                ;调子程
mov                a,0x23
mov                0x32,a
call                a_b
mov                a,0x22
mov                0x32,a
call                a_b
self:                        jmp                self

a_b:
mov                a,@0x0                ;0X34,0X35存储中间结果
mov                0x34,a
mov                0x35,a
mov                a,@0x0a                ;实现乘10
mov                0x33,a
a1:                        mov                a,0x35                ;两字节二进制加法,在本例中高字节肯定无进位
add                a,0x31
mov                0x35,a
mov                a,0x34
add                a,0x30
mov                0x34,a
jbc                0x03,0
inc                0x35
djz                0x33
jmp                a1
mov                a,0x32
add                0x34,a
jbc                0x03,0
inc                0x35
mov                a,0x34
mov                0x30,a
mov                a,0x35
mov                0x31,a
ret
eop

七        二进制数转换为BCD码
        本例为单字节二进制数(0X20)转换为非压缩BCD码,存在0X25,0X24,0X23中,0X25为百位,0X23为个位。
main:        mov                a,@0xa4                ;赋值
mov                0x20,a
mov                0x21,a
mov                0x22,a
mov                a,@0x0                ;0x23,0x24,0x25单元清0
mov                0x23,a
mov                0x24,a
mov                0x25,a
mov                a,@0x64                ;对100的个数计数
mov                0x26,a
mov                a,@0x25                ;百位存在0x25中
mov                0x04,a
call                a0                        ;调计数子程
mov                a,@0x0a                ;对10的个数计数
mov                0x26,a
dec                0x04                        ;个位存在0x24中
call                a0
mov                a,0x22                ;除去百位,十位,余下的即个位,存入0x23
mov                0x23,a
self:                jmp                self

a0:                                                        ;计数子程
mov                a,0x26
sub                0x22,a
jbs                0x03,2
jmp                a1
inc                0x00                        ;无余数则对应位加1
mov                a,@0x0                ;0x21与0x22在返回时应保持相同
mov                0x21,a
ret
a1:                jbs                0x03,0                ;小于则跳a2
jmp                a2
inc                0x00                        ;大于则计数值加1
mov                a,0x22
mov                0x21,a                ;将0x22保存到0x21中
jmp                a0                        ;跳回a0继续计数
a2:                mov                a,0x21                ;0x21中保存的减之前的数据,此时恢复到0x22
mov                0x22,a
ret
eop