Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- org 100h
- EntryPoint:
- mov cl, [StrA]
- mov al, [StrB+1]
- mov di,StrA + 1
- .NotEnd:
- repne SCASB
- push cx
- dec di
- mov cl,[StrB]
- LEA si,[StrB + 1]
- repe CMPSB
- pop cx
- jne @F
- .SubStrIsFound:
- mov dx,StrYest
- call ShowMsg
- call AnyKeyPress
- ret
- @@:
- test cx,cx
- jnz .NotEnd
- mov dx,StrNet
- call ShowMsg;nosubstr
- call AnyKeyPress
- ret
- ;_________________________________________________
- StrA db 9,'HMM,gMifr'
- StrB db 2,'fr'
- StrYest db 'Yest$'
- StrNet db 'Net$'
- ;_______________________________________________
- ;dx - adress of print msg uses ax,dx
- ShowMsg:
- mov ah,09h
- int 21h
- ret
- AnyKeyPress:
- mov ax,0c08h
- int 21h
- jnz @F
- mov ah,08h
- int 21h
- @@:
- ret
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement