Scas адреса_приймача

Лістинг 3. Пошук символу в рядку командою scas

<1> ;prg_13_3.asm

<2> MASM

<3> MODEL small

<4> STACK 256

<5> .data

<6> ;тексти повідомлень

<7> fnd db 0ah,0dh, 'Символ знайдений! ','$'

<8> nochar db 0ah,0dh,'Символ не знайдений.','$'

<9> ;рядок пошуку

<10> string db 'Пошук символу в цьому рядку.',0ah,0dh,'$'

<11> .code

<12> ASSUME ds:@data,es:@data

<13> main:

<14> mov ax,@data

<15> mov ds,ax

<16> mov es,ax ;налаштування ES на DS

<17> mov ah,09h

<18> lea dx,string

<19> int 21h ; виведення повідомлення string

<20> mov al,'а' ; символ для пошуку - 'а'(кирилиця)

<21> cld ; скидання прапора df

<22> lea di,string ; завантаження в es:di зміщення рядка

<23> mov cx,29 ; для префікса repne - довжина рядка

<24> ; пошук в рядку (поки шуканий символ і символ в рядку не співпадуть)

<25> ; вихід при першому збігу

<26> repne scas string

<27> je found ; якщо рівні - перехід на обробку,

<28> failed: ; інакше виконуємо деякі дії

<29> ; виведення повідомлення про те, що символ не знайдено

<30> mov ah,09h

<31> lea dx,nochar

<32> int 21h ; виведення повідомлення nochar

<33> jmp exit ; на вихід

<34> found: ; збіглися

<35> mov ah,09h

<36> lea dx,fnd

<37> int 21h ; виведення повідомлення fnd

<38> ; тепер, щоб дізнатися про місце, де збігся елемент у рядку, необхідно

<39> ; зменшити значення в регістрі di і вставити потрібний обробник

<40> dec di

<41> ;... вставте обробник

<42> exit: ; вихід

<43> mov ax,4c00h

<44> int 21h

<45> end main

Лістинг 4. Використання lods для завантаження байту в регістр al

<1> ;prg_13_4.asm

<2> MASM

<3> MODEL small

<4> STACK 256

<5> .data

<6> ; рядки для порівняння

<7> string1 db 'Пошук символу в цьому рядку.', 0ah, 0dh, '$'

<8> string2 db 'Пошук символу не в цьому рядку.', 0ah, 0dh, '$'

<9> mes_eq db 'Рядки збігаються.', 0ah, 0dh, '$'

<10> fnd db 'Елемент, що не збігся, в регістрі al', 0ah, 0dh, '$'

<11> .code

<12> ; прив'язка ds і es до сегмента даних

<13> assume ds:@data,es:@data

<14> main:

<15> mov ax,@data ; завантаження сегментних регістрів

<16> mov ds,ax

<17> mov es,ax ; налаштування es на ds

<18> mov ah,09h

<19> lea dx,string1

<20> int 21h ; виведення string1

<21> lea dx,string2

<22> int 21h ; виведення string2

<23> cld ; скидання прапора df

<24> lea di,string1 ; завантаження в es:di зміщення рядка string1

<25> lea si,string2 ; завантаження в ds:si зміщення рядка string2

<26> mov cx,29 ; для префікса repe - довжина рядка

<27> ; пошук в рядку (поки потрібний символ і символ в рядку не рівні)

<28> ; вихід - при першому, що не збігся

<29> repe cmps string1,string2

<30> jcxz eql ; якщо рівні - перехід на eql

<31> jmp no_eq ; якщо не рівні - перехід на no_eq

<32> eql: ; виводимо повідомлення про збіг рядків

<33> mov ah,09h

<34> lea dx,mes_eq

<35> int 21h ; виведення повідомлення mes_eq

<36> jmp exit ; на вихід

<37> no_eq: ; обробка неспівпадання елементів

<38> mov ah,09h

<39> lea dx,fnd

<40> int 21h ; виведення повідомлення fnd

<41> ; тепер, щоб витягти елемент, що не збігся, з рядка в регістр-акумулятор,

<42> ;зменшуємо значення регістра si і тим самим переміщаємося до дійсної позиції елемента в рядку

<43> dec si ; команда lods використовує ds:si-адресацію

<44> ; тепер ds:si вказує на позицію в string2

<45> lods string2 ; завантажимо елемент з рядка в AL

<46 > ;Неважко здогадатися, що в нашому прикладі це символ "н"

<47> exit: ;вихід

<48> mov ax,4c00h

<49> int 21h

<50> end main