В строке символов найти количество вхождений заданного символа

[Алексей_2012]

Здравствуйте добрые люди)) у меня почему-то не получается написать программу, которая вводит строку символов, затем еще один символ, а выводит число равное тому, сколько этот символ встречается в строке, вот моя программа, возможно напутал с регистрами, если можно переделайте, пишу под DOC использую TASM и TLINK

 

Code Segment Para public 'Code'
   Assume CS:Code,DS:Code,SS:Code,ES:Code
   ORG 100h 
   Mov DX,Code
   Mov DS,DX
   Mov SS,DX
   Mov ES,DX

jmp m100
par1 label byte
max1 db 100
rd1 db ?
str1 db 101 dup(?)
np1 db 'BBedite stroky...$'
np2 db 'BBedite simbol: $'
np3 db 'OTBET: $'
np4 db 'BbIXOD-Lubaya klaBisha $'
m100:mov ah,09h
lea dx,np1
int 21h
mov ah,10
lea dx,par1
int 21h
lea si,str1
mov ah,2
mov dl,0ah
int 21h
mov ah,2
mov dl,0dh
int 21h
mov ah,09h
lea dx,np2
int 21h
mov bx,0
mov cx,0
mov ah,1
int 21h
mov bl,al
mov cl,rd1
m1:mov bh,[si]
cmp bh,bl
je m2
jmp m3
m2:inc ch
m3:inc si
loop m1
mov ah,2
mov dl,0ah
int 21h
mov ah,2
mov dl,0dh 
int 21h
mov ah,09h
lea dx,np3
int 21h
mov ah,2
mov dl,ch
int 21h
mov ah,2
mov dl,0ah
int 21h
mov ah,2
mov dl,0dh 
int 21h
mov ah,09h 
lea dx,np4
int 21h
mov ah,1
int 21h


 Mov AH,4Ch
   Int 21h
   Code Ends
   end

[Алексей_2012]

ой, забыл написать, выводит вместо цифр неизвестно что, исправьте пожалуйста

[alexcoder]

Если актуально,

Code Segment Para public 'Code'
   Assume CS:Code,DS:Code,SS:Code,ES:Code
   ORG 100h 
;   Mov DX,Code
;   Mov DS,DX
;   Mov SS,DX
;   Mov ES,DX
start:
jmp m100
par1 label byte
max1 db 100
rd1 db ?
str1 db 101 dup(?)
np1 db 'BBedite stroky...$'
np2 db 'BBedite simbol: $'
np3 db 'OTBET: $'
np4 db 'BbIXOD-Lubaya klaBisha $'
m100:mov ah,09h
lea dx,np1
int 21h
mov ah,10
lea dx,par1
int 21h
lea si,str1
mov ah,2
mov dl,0ah
int 21h
mov ah,2
mov dl,0dh
int 21h
mov ah,09h
lea dx,np2
int 21h
mov bx,0
mov cx,0
mov ah,1
int 21h
mov bl,al
mov cl,rd1
m1:mov bh,[si]
cmp bh,bl
je m2
jmp m3
m2:inc ch
m3:inc si
dec cl
jnz m1
mov ah,2
mov dl,0ah
int 21h
mov ah,2
mov dl,0dh 
int 21h
mov ah,09h
lea dx,np3
int 21h
mov ah,2
mov dl,ch
add dl,'0'
int 21h
mov ah,2
mov dl,0ah
int 21h
mov ah,2
mov dl,0dh 
int 21h
mov ah,09h 
lea dx,np4
int 21h
mov ah,1
int 21h


 Mov AH,4Ch
   Int 21h
   Code Ends
   end start

[Алексей_2012]

Спасибо, А при помощи счетного цикла ничего неполучится?

[alexcoder]

получится, но нужно менять регистры, CX - счетчик в команде LOOP используется полностью, а у вас в программе его старшая часть занята количеством найденных символов.

[Алексей_2012]

спасибо, то есть PUSH и POP в помощь))