请写出可把某个十进制数ASCII码串转换为对应非压缩BCD码和压缩BCD码的示范程序。

答：
；-----------------------------------------------------

assume  cs:code,ds:data
data    segment
var     db      18      ；十进制数18
diver   db      10      ；除数
a       db      0,0     ；预留非压缩码BCD空间
b       db      0       ；预留压缩码BCD空间
data    ends
code    segment
start:
        mov ax,data
        mov ds,ax
；
        mov al,var
        mov ah,0
        div diver
        add ax,3030h
        mov a,al
        mov a+1,ah
；
        mov cl,4
        rol ah,cl
        rol ax,cl
        mov b,al
；
        mov ah,4ch
        int 21h
code    ends
end     start
；-----------------------------------------------------