M_Asm2009LS

m0:

cmp AH,0

; Перевірка виділення слова

je m31

; Перехід, якщо було виділено слово.

mov AH,0

; Встановлення ознаки слова для наступної

; послідовності.

jmp m1

; Пошук наступного послідовності знаків.

m31: cmp BP,BX

; Порівняння поточного виділеного слова з

jge m1

; найдовшим. Якщо поточне слова довше, тоді

mov BP,BX

; його довжина зберігається в регістрі BP,

mov DI,SI

; а відносна адреса слова в регістрі DI.

sub DI,BX

m1:

sub BX,BX

; Пошук початку послідовності символів.

cmp [SI],DH

jne m3

inc SI

loop m1

cmp BP,0

; Перевірка наявності слів.

jne m4

; Слова були.

jmp mns

; Слів не було. Вихід з програми.

m3:

mov AL,[SI]

; Виділення та перевірка

; послідовність символів.

cmp AL,DH

; Перевірка кінця послідовність символів.

je m0

; Перехід, якщо побіл (кінець послідовності).

cmp AL,'A'

; Перевірка, чи послідовність

jb m32

; складається з букв

cmp AL,'Z'

; від A до Z або a до z.

jb m33

cmp AL,'a’

jb m32

cmp AL,'z'

jb m33

m32:

mov AH,1

; Послідовність має символ, що не входить

; до заданого діапазону, тобто це – не є слово.

m33:

inc SI

inc BX

; В регістрі BX довжина послідовності.

loop m3

cmp AH,1

; Перевірка останньої послідовності

je m4

; Перехід, остання послідовність не є словом

cmp BP,BX

;Порівняння довжини останнього

; слова з найдовшим.

mov BP,BX

mov DI,SI

sub DI,BX

m4:

mov CX,BP

; Записати довжину слова в регістр СХ

jcxz mns

; Слів у рядку не було.

;Перехід на вихід із прогрми.

mov DL,0dh

; Переведення курсора на новий рядок.

mov AH,2

int 21h

mov DL,0ah

int 21h

lea DX, rez_p1

mov AH,9

int 21h

m5:

mov DL,[DI]

; Друк найдовшого слова.

mov AH,2

int 21h

inc DI

loop m5

ret

mns:

mov AH,2

int 21h

mov DL,0ah

int 21h

lea DX, rez_p2 ; Слів не було. Вихід з програми.

mov AH,9

int 21h

ret

Main

Endp

Code

Ends

End Main

Data

Segment para 'Data'

max

= 255

string

db ' Input string ? ','$'

52

CheckWords db 'tion'

p_fw

db ' The find words : ','$'

p_nw

db ' No words ','$'

inputs

label byte

maxs

db max

nums

db ?

strs

db max dup(' ')

Data

Ends

Code

Segment

para 'code'

Assume

cs:Code,ds:Data,es:Data

newline proc near

; Підпрограма переведення курсора

push AX

; на новий рядок у початкову позицію.

push DX

mov DL,0dh

mov AH,2

int 21h

mov DL,0ah

int 21h

pop DX

pop AX

ret

newline

endp

Main

Proc far

push DS

sub AX,AX

push AX

mov AX,Data

mov DS,AX

call newline

; Переведення курсора на новий рядок.

lea DX, string

; Завантаження відносної адреси повідомлення.

mov AH,09h

int 21h

; Виведення на екран повідомлення.

call newline

; Переведення курсора на новий рядок.

lea DX,inputs

;Завантажити відносну адресу

mov AH,0Ah

; для введення рядка.

int 21h

; Введення рядка.

lea SI,strs

; Завантаження відносної адреси введеного рядка.

call newline

mov DH,' '

; Символ ‘ ‘ (пробіл) – у регістр DH.

sub BX,BX

; Довжина поточного слова.

53

sub BP,BP

; Ознака наявності шуканих слів.

sub CH,CH

; Очистити регістр CH.

mov CL,nums

; Кількість введених символів у регістр CL.

cmp CX,0

; Перевірка введення символи.

jne m01

; Перехід, якщо були введені символи.

jmp nwd

; Введених символів немає. Вихід з програми.

m01:

mov BX,CX

mov [SI+BX],DH

inc CX

m1:

sub BX,BX

; Пошук початку послідовності.

cmp [SI],DH

; Перевірка кінця послідовність символів.

jne m3

; Перехід, якщо побіл (кінець послідовності).

inc SI

loop m1

jmp m2

m3:

xor AH,AH

; Ознака слова : AH= 0

m31:

mov AL,[SI]

;Виділення та перевірка послідовність

; символів.

cmp AL,DH

; Перевірка кінця послідовність символів.

je m0

cmp AL,'A'

; Перевірка, чи послідовність

jb m32

; складається з букв

cmp AL,'Z'

; від A до Z або a до z.

jb m33

cmp AL,'a'

jb m32

cmp AL,'z'

jb m33

m32:

mov AH,1

; Послідовність знаків не утворює слово.

m33:

inc SI

inc BX

; В регістрі BX довжина послідовності.

loop m31

m0:

cmp AH,1

; Перевірка, чи було слово.

je m02

cmp BX,3

; Слово з кількістю символів <=3 не може

jg m11

; мати закінчення – "tion".

m02:

jcxz m2

; Перехід, якщо рядок кінець рядка.

jmp m1

; Перехід на пошук наступної послідовності.

m11:

push CX

; Перевіряємо слово.

push SI

54

mov CX,4

; Кількість символів у закінченні –"tion".

lea DI,CheckWords+3 ; Завантаження регістр DI адреси

; останньої букви шуканої послідовності.

dec SI

; Повернення на останню букву слова.

mchk:

mov AL,[DI]

; Порівняння по буквах закінчення виділеного

cmp AL,[SI]

; слова із заданим шаблоном ("tion").

jne mzs

; Перехід, якщо пара букв відрізняються.

dec DI

; Перехід до наступної пари букв.

dec SI

loop mchk

; Вихід із циклу букви попарно збігаються.

cmp BP,0

jne mm3

; BP<>0.

push DX

; Знайдене потрібне слово (BP=0),

lea DX,p_fw

; тоді друкується рядок «The find words : ».

mov AH,09h

int 21h

pop DX

call newline

;

mm3:

inc BP

pop DI

push DI

sub DI,BX

mov CX,BX

;

m5:

mov DL,[DI]

; Друк слова.

mov AH,2

int 21h

inc DI

loop m5

call newline

mzs:

pop SI

pop CX

jcxz m2

; Перехід, якщо досягнуто кінеця рядка.

jmp m1

m2:

call newline

cmp BP,0

; Перевіряємо, чи були слова.

jne m4

; Слова були.

nwd:

lea DX,p_nw

; Друк рядка «No words».

mov AH,09h

m4: retf

Main

Endp

Code

Ends

End Main

Задача 3. Задано рядок, який складається з послідовності

програму, яка для

заданого рядка замінює послідовність символів –

"tion" на послідовність – "sh".

Розв’язування.

Data

Segment

para 'Data'

max

equ

255

str_prm

db ' Input string ? ','$'

num_fs equ 4

findw

db 'tion'

num_rp

equ 2

replw

db 'sh'

rez_prm

db ' Rezult : ', '$'

nums

db ?

strs

db max dup(' ')

newlinecode

db 10,13,'$'

Data

Ends

Code

Segment

para 'code'

Assume

cs:Code,ds:Data,es:Data

newline proc near

; Підпрограма переведення курсора

push AX

; на новий рядок у початкову позицію.

push DX

lea DX, newlinecode

mov AH,9

int 21h

pop DX

pop AX

ret

newline

endp

Main

Proc far

push DS

sub AX,AX

push AX

mov AX,Data

mov DS,AX

call newline

; Переведення курсора на новий рядок.

56

mov AH,01h

mich:

int 21h

; Посимвольне введення

mov [SI],AL

; рядка до символу – крапка ('.').

inc SI

; Рядок записується у масив strs.

inc BX

cmp AL, '.'

je mpt

loop mich

mpt:

call newline

lea DX, rez_prm ; Друк повідомлення – ' Rezult : '

mov AH,09h

int 21h

call newline

cmp BX,num_fs ; Порівняння кількості введених символів із

; довжиною ; шуканої послідовності.

jg mc

; Перехід, якщо кількості введених

; символів – більша.

mov strs[BX], '$'; Якщо кількість введених

; символів – менша. Дописуємо '$' в кінець рядка.

jmp me1

; Перехід на друк.

mc:

mov CX,BX

; Копіювання кількості символів введеного

; рядка.

sub CX, num_fs ; Підготовка до порівняння символів введеного

; рядка (рядок strs) із шуканою

lea SI, strs

; підпослідовністю (рядок findw).

nnb:

lea DI, findw

;

xor BX,BX

push CX

mov CX,num_fs;

mph:

mov AL,[ SI +BX] ;Цикл по символьного порівняння

; підрядка з позиції

57

mov CX,num_rp

; Заміна знайденої підпослідовністі

; новою з рядка replw.

xor BX,BX

; За умовою кількість символів послідовністі,

lea DI, replw

; що замінуємо більша за кількість символів

; на які замінюємо (num_fs >num_rp), тому

mrp:

mov AL,[DI+BX]

; замінується послідовності символів,

mov [SI+BX],AL

inc BX

loop mrp

pop CX

; а на позиці, що залишилися (num_fsnum_rp )

push CX

; зсувається залишок рядка.

mov DI,SI

add DI, num_fsnum_rp

mshf:

mov AL,[DI+num_rp]

mov [DI],AL

inc DI

loop mshf

pop CX

sub CX, num_fsnum_rp; Зменення кількості

; елементів послідовності.

cmp CX,0

; Перевірка кінця послідовності.

je me

; Перехід кінець послідовності.

jg me2

; Перехід на наступну ітерацію.

dec SI

; Корегування вказівника SI, при

jmp me

; виході за межі рядка.

me2:

push CX

mnts:

pop CX

inc SI

loop nnb

me:

mov [SI+num_fs],'$';Вставляємо ознаку кінця виведення рядка.

me1:

lea DX,strs

; Друк.

mov AH,9

int 21h

58