;用非压缩型BCD码完成672597除以9的运算，并将结果显示。
data segment
b1 db '672597'
b2 db '9'
b3 db 6 dup(?)
data ends
code segment
assume cs:code,ds:data,es:data
start: mov ax,data
       mov ds,ax
       mov es,ax
       lea si,b1
       lea di,b3
       and b2,0fh
       mov ah,0
       mov cx,6
l1:    cld
       lodsb
       and al,0fh
       aad
       div b2
       stosb
       loop l1
       mov cx,6
       lea di,b3
l2:    mov dl,[di]
       or dl,30h
       mov ah,2
       int 21h
       inc di
       loop l2
       mov ah,4ch
       int 21h
code   ends
       end start