删除数据项汇编程序

1 data segment
2 num db 9,’a1b2c3e45’
3 nn db ’e’
4 data ends
5 code segment
6 assume cs:code,ds:data,es:data
7 beg:
8 mov ax,data
9 mov ds,ax
10 mov es,ax
11 mov al,nn
12 mov ch,0
13 mov cl,num
14 mov di,offset num+1
15 cld
16 repne scasb
17 jnz exit
18 mov si,di
19 dec di
20 rep movsb
21 dec num
22 call disp
23 exit:
24 mov ah,4ch
25 int 21h
26 disp proc
27 mov nn-1,’$’
28 mov ah,9
29 mov dx,offset num+1
30 int 21h
31 ret
32 disp endp
33 code ends
34 end beg