ассемблер. tasm

[alex(21)]

задали решить задачу на ассемблере, хотя мы его вообще не изучали.помогите решить задачу. задание:
Дана последовательность символов, заканчивающихся ‘?’. Проверить, есть ли такое сочетание «p1».

кое что написал по образцу. помогите доделать:

assume ds:data, cs:code
data    segment
        str db "Vvedite text, simvol konca vvoda '?'",13,10,'$'
        str1 db "est takoe sochetanie",13,10,'$'
data    ends
code    segment
start:
	mov ax,data
	mov ds,ax
	mov ah,9
	lea dx,str
	
	int 21h
c_do:
	mov  ah,1
	int  21h
	cmp  al,'p'
	
	jne  m_cont
	mov  ah,1
	int  21h
	cmp  al,'1'
	jne  m_cont
	mov  dl,al
	mov  ah,2
	int  21h
m_cont:
	cmp  al,'?'
	jne  c_do
	mov  ah,8
	int  21h
	
	mov  ah,4ch
	int  21h
code	ends
	end  start

[alexcoder]

assume ds:data, cs:code
data    segment
        str db "Vvedite text, simvol konca vvoda '?'",13,10,'$'
        str1 db 13,10,"est takoe sochetanie",13,10,'$'
data    ends
code    segment
start:
	mov ax,data
	mov ds,ax
	xor di,di
	mov ah,9
	lea dx,str
	int 21h
c_do:
	mov  ah,1
	int  21h
	cmp  al,'p'
	
	jne  m_cont
	mov  ah,1
	int  21h
	cmp  al,'1'
	jne  m_cont
	mov  di,1
m_cont:
	cmp  al,'?'
	jne  c_do
	test di,di
	je   ex
	mov ah,9
	lea dx,str1
	int 21h
	
ex:	mov  ah,8
	int  21h
	
	mov  ah,4ch
	int  21h
code	ends
	end  start

[*PB*]

Сообщение от alex(21)

задали решить задачу на ассемблере, хотя мы его вообще не изучали

Так не бывает!
Научись врать красиво!

[xwicked]

Сообщение от *PB*

Так не бывает!
Научись врать красиво!

Не, ну понимаете - мы в колледже тоже электротехнику все проходили - не изучали

[alex(21)]

Так не бывает!
Научись врать красиво!

изучаем предмет СПО. затем началась практика по СПО. до этого изучали только Си. на практике были задания: написать программу на бейсике, на си и на ассемблере. с двумя я справился а вот с ассемблером....
а за помощь спасибо. сейчас попробую запустить.

напишите плз. если такого сочетания нет то вывести сообщение: takogo sochetaniya net.
очень нужно. заранее спасибо

[alexcoder]

assume ds:data, cs:code
data    segment
        str db "Vvedite text, simvol konca vvoda '?'",13,10,'$'
        str1 db 13,10,"est takoe sochetanie",13,10,'$'
        str2 db 13,10,"takogo sochetaniya net",13,10,'$'
data    ends
code    segment
start:
	mov ax,data
	mov ds,ax
	xor di,di
	mov ah,9
	lea dx,str
	int 21h
c_do:
	mov  ah,1
	int  21h
	cmp  al,'p'
	
	jne  m_cont
	mov  ah,1
	int  21h
	cmp  al,'1'
	jne  m_cont
	mov  di,1
m_cont:
	cmp  al,'?'
	jne  c_do
	test di,di
	je   x1
	mov ah,9
	lea dx,str1
	int 21h
	jmp ex
x1:	mov ah,9
	lea dx,str2
	int 21h

ex:	mov  ah,8
	int  21h
	
	mov  ah,4ch
	int  21h
code	ends
	end  start