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编辑过]