s3.asm

单片机程序集合

; 将 A 拆为二个 ASCII 码, 并存入 Result 开始的二个单元

Result equ   20h

       org   0
       ljmp  Start

ASCIITab:
       db    '0123456789ABCDEF'  ; 定义数字对应的ASCII表

BinToHex:
       mov   dptr, #ASCIITab
       mov   b, a            ; 暂存 A

       swap  a
       anl   a, #0fh         ; 取高四位
       movc  a, @a+dptr      ; 查ASCII表
       mov   Result, a

       mov   a, b            ; 恢复 A
       anl   a, #0fh         ; 取低四位
       movc  a, @a+dptr      ; 查ASCII表
       mov   Result+1, a

       ret

Start:
       mov   sp, #40h
       mov   a, #1ah
       call  BinToHex
       ljmp  $
                                  
       end