ХАНДЫФАР

Программа которая ищет в строке гласные буквы и заменяет их на символ подчёркивания.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string db _"Microsoft Macro "
8. ___________db _"Assembler$"
9. ____strlen equ ($-string)
11. ____vowels db _"aeiou"
12. ____vowlen equ ($-vowels)
13. data ends
15. code segment public
16. ____assume ds:data, cs:code
18. ____main proc
19. ________mov ____ax, seg data
20. ________mov ____ds, ax
21. ________mov ____es, ax
23. ________mov ____cx, strlen
24. ________lea ____di, es:[vowels]
25. ________lea ____si, ds:[string]
27. ____MainLoop:
28. ________push ___cx
29. ________push ___di
30. ________mov ____cx, vowlen
32. ________lodsb
33. __repnz scasb
35. ________jne ____Skip
37. ________mov ____byte ptr[si-1], 5Fh
39. ____Skip:
40. ________pop ____di
41. ________pop ____cx
42. ________loop ___MainLoop
44. ________mov ____ah, 09h
45. ________lea ____dx, ds:[string]
46. ________int ____21h
48. ________mov ____ax, 4C00h
49. ________int ____21h
50. ____main endp
52. code ends
53. end main

Программа которая ищет в строке гласные буквы и заменяет их на символ подчёркивания.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string db _"Microsoft Macro Assembler$"
8. ____strlen equ ($-string) ; Вычисляем длину массива string
9. ____vowels db _"aeiou"
10. ____vowlen equ ($-vowels) ; Вычисляем длину массива vowels
11. data ends
13. code segment public _________________; Начало сегмента кода
14. ____assume ds:data, cs:code
16. ____main proc _______________________; Начало процедуры main
17. ________mov ____ax, seg data_________; Получаем адрес сегмента памяти данных и сохраняем его в ax
18. ________mov ____ds, ax_______________; Передаём адрес сегмента памяти данных из регистра ax в ds
19. ________mov ____es, ax_______________; Передаём адрес сегмента памяти данных из регистра ax в es
21. ________mov ____cx, strlen___________; Копируем значение переменной strlen в регистр cx
22. ________lea ____di, es:[vowels]______; Загружаем адрес массива vowels в регистр es:di
23. ________lea ____si, ds:[string]______; Загружаем адрес массива string в регистр ds:si
25. ____MainLoop:
26. ________push ___cx___________________; Сохраняем значение регистра cx в стеке
27. ________push ___di___________________; Сохраняем значение регистра di в стеке
28. ________mov ____cx, vowlen___________; Копируем значение переменной vowlen в регистр cx
30. ________lodsb________________________; Загружаем байт из регистра-источника si в регистр al. SI++
31. __repnz scasb________________________; Сканируем байт в регистре al с байтом в регистре es:di
33. ________jne ____Skip_________________; Если ZF=0, то прыгаем на метку Skip
35. ________mov ____byte ptr[si-1], 5Fh__; Копируем значение символа _ в регистр si-1
37. ____Skip:
38. ________pop ____di___________________; Выталкиваем сохранённое значение из стека в регистр di
39. ________pop ____cx___________________; Выталкиваем сохранённое значение из стека в регистр cx
40. ________loop ___MainLoop_____________; Выполняем цикл пока CX≠0
42. ________mov ____ah, 09h______________; Копируем значение функции вывода строки в регистр ah
43. ________lea ____dx, ds:[string]______; Загружаем адрес переменной string в регистр ds:dx
44. ________int ____21h__________________; Вызываем прерывание
46. ________mov ____ax, 4C00h____________; Копируем значение функции завершения в ah а значение в al
47. ________int ____21h__________________; Вызываем прерывание
48. ____main endp _______________________; Конец процедуры main
50. code ends ___________________________; Конец сегмента кода
51. end main ____________________________; Конец файла. Точкой входа указывается процедура main