100分简单问题，狂抢！！！！

[springlie]

输入一个数串，把中间的0删除，补到最右边。
eg.>5063002(输入)
5632000(输出)

越简单越好，要完整程序

100分就是你的！

[gauzxj]

帮顶

[cnwhonker]

be:
mov [di],s
cmp [di],'0'
ja jabe

num0++
jmp be2
jabe:
print
jmp be2

loopbe3: mov cl,num0
mov dl,'0'
mov ah,2
int21h

be2:
jmp be
print:
mov dl,[di]
mov ah,2
int 21h
ret

[springlie]

楼上谢了，是完整程序，完整的asm程序，呵呵，快点写，我已经准备给分了

[springlie]

我要完整程序！

[springlie]

大家快来帮忙啊

[qtext]

我来接这100分：

data segment
buf db 20 dup(0)
buf2 db 20 dup(0)
newline db 0dh,0ah,'$'
data ends
code segment
assume cs:code
start:
mov ax,data
mov ds,ax
mov es,ax
mov si,offset buf
mov di,offset buf2
loop1:
mov ah,1
int 21h
cmp al,0dh
je endinput
mov [si],al
inc si
jmp loop1
endinput:
mov ah,9
mov dx,offset newline
int 21h

mov si,offset buf
loop2:
mov al,[si]
inc si
cmp al,0
jz endprg
cmp al,30h
jnz next2
mov [di],al
inc di
jmp loop2
next2: mov dl,al
mov ah,2
int 21h
jmp loop2
endprg:
mov byte ptr [di],'$'
mov ah,9
mov dx,offset buf2
int 21h
mov ah,4ch
int 21h
code ends
end start

[qtext]

输完一个数串后，按回车
编译通过，结确正确。

[cnwhonker]

虽然是瞎写的，但基本思想是这样的，汇编的格式我忘了，你加上就得了！
data segment
s db 256 dup(?)
num0 db 0
num db 0
line1 db 'eg.>'
data ends
code segment
cs:code,ds:data
begin:
mov ax,data
mov ds,ax
lea dx,line1
mov ah,2
int 21h
lea si,s
loopin:
mov ah,1
int 21h
cmp dl,13
je loopinend
inc si
inc num
jmp loopin
loopinend:
lea si,s
mov cl,num
loopout:
mov bl,[si]
cmp bl,'0'
je je_je
ja ja_ja
je_je:
inc num0
inc si
怪麻烦的，不写了！

[springlie]

好，我就喜欢爽快的兄弟，分明天早上就在你兜里了

如果不忙的话
还有一个小问题
“输入三个二位数（十进制），输出最小数”
eg.>23(输入)
12
56
12(输出)

实不相瞒，考试中，六点交卷。
刚才是我的题，现在是我同学的
高手救他一命！

[大熊猫侯佩]

你们考试还能上网？