Не могу заставить программу работать

[Sinthen]

dosseg
.model small
.stack 100h
.data
name2 db 10 dup ('Horosh zhivet na svete Vinni-Puh')
lent equ $-name2
NR DB 0AH, 0DH
txt db 0ah,0dh,'Vvidite slovo: ',0ah,0dh
MAX_LEN EQU 100
Strk DB MAX_LEN DUP (?)
.code 
print_40h macro adr, LEN
mov ah,40h
mov cx, len
mov bx, 1
lea dx, adr
int 21h

endm

mov ax, data ; должна быть собака дата, говорит ссылку нельзя ;выводить, хотя это не ссылка
mov ds,ax

print_40h name2, 32
print_40h NR, 2
print_40h txt, 17

mov ah, 3fh 
mov bx,0 
mov cx, MAX_LEN 
lea dx, Strk 
int 21h

cld
push ds
pop es
mov cx,32 
lea si,Strk 
push cx
lea di, name2
repe cmpsb 
jnz done

inc bl 

dec si
dec di

print_40h NR, 2

mov ah,40h
mov dl, [si]
int 21h

print_40h NR, 2

mov ah, 40h
mov dl, [di]
int 21h

done: mov ah,4ch
int 21h

end

Найдите в тексте заданную последовательность символов. модель поиска задать с клавиатуры

[p51x]

Чем компилит? Под что компилите?