程序代码：

date segment
       mulshu dw 0
       bmul   dw 0
       muls   dw 81 dup(?)
     jieguo   db 2 dup(?)
date   ends
code segment
     assume cs:code,ds:date
start: mov ax,date
       mov ds,ax
       mov si,offset muls
     

mulsm: mov ax,bmul
       mul mulshu
       mov [si],ax
       mov bx,mulshu
       mov cx,bmul
       add cx,30h
       add bx,30h
       mov ah,02
       mov dl,cl
       int 21h
       mov ah,02
       mov dl,42
       int 21h
       mov ah,02
       mov dl,bl
       int 21h
       mov ah,02
       mov dl,61
       int 21h

       mov ax,[si]
       mov cx,0
       mov si,offset jieguo
    s: mov bx,10
       mov dx,0
       div bx
       add dl,30h
       mov [si],dl
       inc cx
       inc si
       cmp ax,0
       jnz s

   s1: mov dl,[si-1]
        mov ah,02
        int 21h
        dec si
        loop s1

       mov ah,02
       mov dl,32
       int 21h
       inc bmul
       add si,2
       mov cx,bmul
       cmp cx,mulshu
       jle mulsm
       mov ah,02
       mov dl,0dh
       int 21h
       mov ah,02
       mov dl,0ah
       int 21h
       inc mulshu
       mov bmul,0
       cmp mulshu,9
       jle mulsm
  
       mov    ah, 1
       int 21h
       mov ah,4ch
       int 21h

code ends
     end start