s2.asm

(1)完成键盘

; 将 A 拆为三个 BCD 码, 并存入 Result 开始的叁个单元

Result equ   20h

       org   0
       ljmp  Start

BinToBCD:
       mov   b, #100
       div   ab
       mov   Result, a       ; 除以 100, 得百位数

       mov   a, b
       mov   b, #10
       div   ab
       mov   Result+1, a     ; 余数除以 10, 得十位数

       mov   Result+2, b     ; 余数为个位数
       ret

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

       end