prognam segment
main proc far
assume cs:prognam
start:
push ds
sub ax,ax
push ax
mov cl,0
mov ax,0
mov bx,0
flag1:
inc cl
mov ax,0
mov al,cl
mul al
add bx,ax
cmp bx,2000
js flag1
dec cl
mov ax,cx

dis2:
mov bx,10
push bx

dis3:
cmp ax,0
jz dis4
sub dx,dx
div bx
add dl,30h
push dx
jmp dis3

dis4:
pop dx
cmp dl,10
je dis5
mov ah,2
int 21h
jmp dis4

dis5:

ret
main endp
prognam ends
end

[此贴子已经被作者于2007-6-29 9:25:49编辑过]