давно
Старший Модератор
31795
6196
08.06.2018, 15:19
общий
это ответ
Здравствуйте, illidan!
[code lang=asm h=250]model small
.code
begin: mov ax,@data
mov ds,ax
mov es,ax
mov ah,9
lea dx,dbStr
int 21h
mov ah,10
lea dx,dbStrM
int 21h
mov ah,9
lea dx,dbSub
int 21h
mov ah,10
lea dx,dbSubM
int 21h
mov cl,dbStrL
xor ch,ch
mov bl,dbSubL
xor bh,bh
lea di,dbStrD
lea si,dbSubD
cld
lodsb
lea dx,dbNo
@@01: repne scasb
or cx,cx
jz @@02
cmp cx,bx
jb @@02
push di
push cx
mov cx,bx
dec cx
repe cmpsb
pop cx
pop di
; or cx,cx
jnz @@01
lea dx,dbYes
@@02: mov ah,9
int 21h
mov ax,4C00h
int 21h
.data
szStr equ 200
dbNo db 10,13,'No$'
dbYes db 10,13,'Yes$'
dbStr db 10,13,'Enter main string:$'
dbSub db 10,13,'Enter sub string:$'
dbStrM db szStr
dbStrL db ?
dbStrD db szStr dup(?)
dbSubM db szStr
dbSubL db ?
dbSubD db szStr dup(?)
.stack
end begin[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.