用汇编编写一个程序

data segment
string1 db 'Please input character:','$'
string2 db 'input key word:','$'
string3 db 'The result is:','$'
inputda db 100,0,100 dup(?)
key db 0
number db 0
data ends
code segment
assume cs:code,ds:data
start: mov ax,data
mov ds,ax
;输出提示输入语句
lea dx,string1
mov ah,09H
int 21H
;输入字符串
lea dx,inputda
mov ah,0aH
int 21H
call pass_next
;提示输入key word
lea dx,string2
mov ah,09H
int 21H
mov ah,01H
int 21H
mov key,al
call pass_next
;查找
lea bx,inputda
inc bx
mov cl,[bx]
xor ch,ch
inc bx
again: mov al,[bx]
inc bx
cmp al,key
jz addnum
loop again
jmp next
addnum: inc number
dec cx
cmp cx,0
jz next
jmp agai