Цепочки

[_Val_]

Помогите в написании программы выводящей на экран номер позиций символа "!" в строке, предварительно введённой с клавиатуры.
Исходник

MASM
MODEL small
.STACK 256
.DATA
fnd DB 0Ah,0Dh,'Символ найден!',0Ah,0Dh,'$'
quant DB 'Номер позиции найденного символа в строке: ','$'
nochar DB 0Ah,0Dh,'Символ не найден.','$'
string DB "Поиск символа '!' в этой строке.",'$'
len=$-string
.CODE
ASSUME ds:@data, es:@data
Main:
mov ax,@data
mov ds,ax
mov es,ax
mov ah,09h
lea dx,string
int 21h
mov al,'!'
cld
lea di,string
mov cx,len
repne scas string
je Found
Failed:
mov ah,09h
lea dx,nochar
int 21h
jmp Exit
Found:
mov ah,09h
lea dx,fnd
int 21h
lea dx,quant
int 21h
mov ax,len
sub ax,cx
call Vivod_AX
mov ah,08h
int 21h
Exit:
mov ax,4C00h
int 21h
include bibl-prc.inc
END Main

[airyashov]

по-моему эта прога рабочая, за исключением include bibl-prc.inc