; 將 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