BCD_TRANS:              MOV                B,#10
                        DIV                AB
;                        MOV                R4,B                  ;BCD码转成十进制
;                        MOV                B,#10
;                        MUL                AB
;                        ADD                A,R4

;                        MOV                B,#10                  ;十进制转成ASCII码
;                        DIV                AB
                        ADD                A,#30H
                        MOV                R4,A
                        MOV                A,B
                        ADD                A,#30H
                        MOV                B,A
                        MOV                A,R4                        
                        RET
数据转换部分按上面的改一下。时间关系，其余部分没有看。如有问题再问。