harc.asm

这是我最近写的一些单片机的简单的模块

;程序功能，单字节十六进制数转换成双字节ascii码
ORG 000H
JMP 40H
ORG 40H
;入口条件：待转换的十六进制数放在累加器a中
;出口信息:高四位的ascii码放在a中，低四位的ascii码放在b中
start:
   mov r2,a  ;将十六进制数暂存在r2中
   acall harc ;调用转换程序，对低四位转换
   mov b,a    ;结果保存在b中
   mov a,r2   ;再取十六进制数
   rr a       ;将高四位移到低四位
   rr a
   rr a
   rr a
   acall harc  ;对高四位进行转换
jmp $   
harc: anl a,#0fh
      mov r3,a
      add a,#0f6h ;加若有进位则大于十，若无则小于十
                  ;若大于则加37H，否则直接加30h 
      mov a,r3
      jnc ad30
      add a,#07h
ad30: add a,#30h
      ret