Прокомментировать приведенный код и объяснить его назначение

.386
 
.model flat, stdcall
option casemap :none
 
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\masm32.inc
include \masm32\include\kernel32.inc
include \masm32\macros\macros.asm
includelib \masm32\lib\user32.lib
includelib \masm32\lib\masm32.lib
includelib \masm32\lib\kernel32.lib
include \masm32\include\msvcrt.inc 
includelib \masm32\lib\msvcrt.lib
 
 
 
.data
message db "Vvedite stroky: ",0dh,0ah,0
message1 db "Kakoi simvol budem iskat'? ", 0dh,0ah,0
message2 db "Kolishestvo naidennyh simvolov v stroke: ", 0
message_err db "Takogo simvola v stroke net...", 0dh,0ah,0
format db '%d',0
index dd ?
 
 
.code
 
start proc
 
local string[260]:byte
 
invoke crt_printf,offset message ;вывел меседж
lea esi,string ; адрес, по которому хранится строка
mov edi,esi ; перемещаем адрес строки в edi
invoke crt_gets,esi 
 
invoke crt_printf,offset message1
invoke crt_getchar
mov ebx,eax
 
mov index,0
 
invoke crt_strlen,esi
mov ecx,eax
 
beg:
lodsb
stosb
cmp al,bl
jz @1
jmp @2
 
@1:
inc index
 
@2:
loop beg
 
cmp index,0
jz @3
invoke crt_printf,offset message2
invoke crt_printf,addr format , index
jmp @4
 
@3:
 
 ; Выдаем ошибку
invoke crt_printf, offset message_err
 
@4:
 
 ; Ждем символ
invoke crt__getch
invoke crt__exit
 
; Конец
start endp
end start

.data
message db "Vvedite stroky: ",0dh,0ah,0
message1 db "Kakoi simvol budem iskat'? ", 0dh,0ah,0
message2 db "Kolishestvo naidennyh simvolov v stroke: ", 0
message_err db "Takogo simvola v stroke net...", 0dh,0ah,0
format db '%d',0
index dd ?
 
 
.code
 
start proc
 
local string[260]:byte
 
invoke crt_printf,offset message ;вывел месседж
lea esi,string ; адрес, по которому хранится строка
invoke crt_gets,esi 
 
invoke crt_printf,offset message1 ; выводим месседж
invoke crt_getchar ; считываем строку
mov ebx,eax
 
mov index,0 ; присваиваем index == 0
 
invoke crt_strlen,esi
mov ecx,eax
 
beg:
lodsb ; Считать байт по адресу ESI в AL
cmp al,bl ; если значения регистров ал и бл равны переходим к метке @1
jz @1 ;переход к метке @1
jmp @2 ; переход к метке @2
 
@1:
inc index ;увеличение index
 
@2:
loop beg ; возвращаемся к beg
 
cmp index,0 ; если index == 0
 
jz @3 ; выдаем ошибку
;если символ есть, то:
invoke crt_printf,offset message2 ; сообщение
invoke crt_printf,addr format , index ; печатаю index
 
jmp @4
 
@3:
 
invoke crt_printf, offset message_err ; Выдаем ошибку
 
@4:
 
 ; Ждем символ
invoke crt__getch ;ВОТ ТУТ НЕ ПОНЯТНО
invoke crt__exit
 
; Конец
start endp
end start

@4:
 
 ; Ждем символ
invoke crt__getch 
invoke crt__exit

invoke crt_gets,esi

invoke crt_strlen,esi