用emu8086编制一个程序, 将BL中的非压缩BCD码乘以CL中的非压缩BCD码，结果以非压缩BCD码的形式存于DX.

以下是使用emu8086编写的程序，实现了将BL中的非压缩BCD码乘以CL中的非压缩BCD码，结果以非压缩BCD码的形式存于DX：

;将BL中的非压缩BCD码乘以CL中的非压缩BCD码，结果以非压缩BCD码的形式存于DX
.model small
.stack 100h

.data
msg1 db 10,13,'Enter first BCD number: $'
msg2 db 10,13,'Enter second BCD number: $'
msg3 db 10,13,'Result in BCD form: $'
bcd1 db ?
bcd2 db ?
result dw ?

.code
main proc
mov ax, @data
mov ds, ax

;读取第一个BCD数
mov ah, 09h
lea dx, msg1
int 21h

mov ah, 01h ;读取一个字符
int 21h
sub al, 30h ;将字符转换为数字
mov bcd1, al ;保存第一个BCD数

;读取第二个BCD数
mov ah, 09h
lea dx, msg2
int 21h

mov ah, 01h ;读取一个字符
int 21h
sub al, 30h ;将字符转换为数字
mov bcd2, al ;保存第二个BCD数

;将两个BCD数相乘
mov ax, bcd1 ;将第一个BCD数存入AX
mov bx, bcd2 ;将第二个BCD数存入BX
mul bl ;乘法运算，结果存放在AX中
mov result, ax ;将结果存放在result中

;将结果转换为BCD码
mov ax, result ;将结果存入AX
mov bl, 10 ;将BL设置为10，用于除法运算

mov cx, 0 ;用于计数，表示当前处理的位数
mov dx, 0 ;存放最终的BCD码

loop_start:
mov dx, ax ;将AX存入DX，用于除法运算
div bl ;将AX除以10，商存入AL，余数存入AH

;将余数转换为BCD码并存入DX
shl ah, 4 ;将AH左移4位
or dl, ah ;将AH和DL合并为一个字节
inc cx ;计数器加1

cmp cx, 4 ;检查是否处理完4位
jne loop_start ;如果没有处理完，继续循环

;输出结果
mov ah, 09h
lea dx, msg3
int 21h

mov ah, 02h ;输出DX中的结果
mov dl, dh ;将高位存入DL
shr dx, 8 ;将低位存入DH
add dl, 30h ;将DL转换为字符
add dh, 30h ;将DH转换为字符
int 21h

mov ah, 02h
mov dl, dl
add dl, 30h
int 21h

mov ah, 02h
mov dl, dh
add dl, 30h
int 21h

mov ah, 4ch
int 21h
main endp
end main