; 將 A 拆為三個(gè) BCD 碼, 并存入 Result 開始的叁個(gè)單元

Result equ   20h

       org   0
       ljmp  Start

BinToBCD:
       mov   b, #100
       div   ab
       mov   Result, a       ; 除以 100, 得百位數(shù)

       mov   a, b
       mov   b, #10
       div   ab
       mov   Result+1, a     ; 余數(shù)除以 10, 得十位數(shù)

       mov   Result+2, b     ; 余數(shù)為個(gè)位數(shù)
       ret

Start:
       mov   sp, #40h
       mov   a, #123
       call  BinToBCD
       ljmp  $

       end