;用非压缩型BCD码完成57394乘8的运算,并在显示器上输出显示结果459152。
data segment 
a1 db '49375'
a2 db '8'
a3 db 6 dup(?)
data ends
code segment
assume cs:code,ds:data,es:data
start: mov ax,data
       mov ds,ax
       mov es,ax
       cld
       lea si,a1
       lea di,a3
       and a2,0fh
       mov byte ptr [di],0
       mov cx,5
l1:    lodsb
       and al,0fh
       mul a2
       aam
       add al,[di]
       aaa                     ;不能用daa,否则结果为458152
       stosb
       mov [di],ah
       loop l1
       mov cx,6
l2:    mov dl,[di] 
       or dl,30h
       mov ah,2
       int 21h
       dec di
       loop l2
       mov ah,4ch
       int 21h
code   ends
       end start