data    segment
char    equ '$'
ptrn    db  'this is a example $'
charddr  dw  ?
count   equ  19
data    ends

coseg   segment
        assume cs: coseg,ds:data
start:    mov ax,data
mov ds,ax
mov di,offset ptrn
mov al,char
mov cx ,count
cld
repne scasb
jz    pasepr
mov di,1
pasepr:del di
mov charddr,di
mov ah,4ch
int 21h
coseg    ends
end start
这个程序那里出错了？