Напишите программу для подсчёта суммы (не количества!) мест, на которых во введенной строке стоит буква "б"

data segment
IN_STR db 10, ?, 10 dup (?) 
beg db 0dh, 0ah, 'vvedite stroku:', 0dh,0ah, '$'
feg db 0dh, 0ah, 'kol-vo simvolov:', 0dh,0ah, '$'
data ends
CODE segment
assume cs: code, ds: data
start: mov ax, data 
mov ds, ax
xor bx, bx
 
;ВВОД строки
lea dx,beg  ; адрес строки  в dx
mov ah,09h  ; номер функции  в аh
int 21h         ; вызов функции
 
 
        lea dx, IN_STR
        mov ah, 0ah
         int 21h
;обработка
        xor ah, ah      ; обнуление старшего байта AX
        lea bx, IN_STR+2 ; адрес начала введённой строки
        xor cx, cx
        mov cl, IN_STR+1 ; количество введенных символов
BB:     mov al, [bx]    ; очередной символ строки 
        cmp al,'b'  ; равно b?
        je AA       ; да
        jmp CC
        
AA:     mov dl,bl
        add dl,dl 
        jmp CC
 
 
CC:         inc bx      ; получить очередной символ строки
        loop BB
        
        lea dx,feg  ; адрес строки  в dx
        mov ah,09h  ; номер функции  в аh
        int 21h         ; вызов функции
 
        
                    
        mov ah, 02h         ; номер функции
        int 21h 
        
        mov ah, 01h
        int 21h
quit: mov ax, 4c00h                 ; код завершения 0
int 21h                     ; выход в dos
code ends
end start

.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
Bsize equ 40
Bsize2 equ 10
.data
buf db Bsize dup(?)
buf2 db Bsize dup(?)
ifmt db "%d",0
stdout dd ?
stdin dd ?
cRead dd ?
cWritten dd ?
SizeLen dd ?
Sum dd 0
msg db "Enter a String",0dh,0ah
msg2 db "Sum of Position Simbols",0dh,0ah
.code
start:
invoke GetStdHandle,STD_OUTPUT_HANDLE
mov stdout,eax
invoke GetStdHandle,STD_INPUT_HANDLE
mov stdin,eax
invoke WriteConsoleA,stdout,ADDR msg,SIZEOF msg,ADDR cWritten,NULL
invoke ReadConsole,stdin,ADDR buf,Bsize,ADDR cRead,NULL
xor eax,eax
Call Lenght
next:
cmp esi,SizeLen
jae after
cmp buf[esi],0A1h
jz zero
inc esi
jmp next
zero:
add Sum,esi
inc esi
jmp next
loop next
 
after:
invoke WriteConsoleA,stdout,ADDR msg2,SIZEOF msg2,ADDR cWritten,NULL
invoke wsprintf,ADDR buf2,ADDR ifmt,Sum
invoke WriteConsoleA,stdout,ADDR buf2,Bsize2,ADDR cWritten,NULL
invoke ExitProcess,0
 
 
 
Lenght proc
cmp buf[esi],0
jnz nzero
sub eax,2
mov SizeLen,eax
xor esi,esi
xor eax,eax
ret
nzero:
inc eax
inc esi
jmp Lenght
Lenght endp
end start