ХАНДЫФАР

Программа, которая считет количество всех гласных букв в строке.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string db "Intel 8086. Microsoft "
8. ___________db "Macro Assembler"
10. ____vowels db "aeiouAEIOU"
12. ____output db "Number of vowels: $"
13. ____result dw 0
14. data ends
16. code segment public
17. ____assume ds:data, cs:code
19. ____main proc
20. ________mov ____ax, seg data
21. ________mov ____ds, ax
22. ________mov ____es, ax
24. ________mov ____cx, 37
25. ________lea ____di, es:[vowels]
26. ________lea ____si, ds:[string]
28. ____OuterLoop:
29. ________push ___cx
30. ________mov ____cx, 10
32. ________lodsb
34. ________push ___di
36. __repnz scasb
37. ________jne ____Skip
39. ________inc ____result
41. ____Skip:
42. ________pop ____cx
43. ________pop ____cx
44. ________loop ___OuterLoop
46. ________mov ____ah, 09h
47. ________lea ____dx, ds:[output]
48. ________int ____21h
50. ________mov ____dx, result
51. ________call ___PrintNumber
53. ________mov ____ax, 4C00h
54. ________int ____21h
55. ____main endp
57. ____PrintNumber proc
58. ________mov ____ax, dx
59. ________mov ____bx, 10
60. ________cwd
61. ________div ____bx
63. ________mov ____cl, 8
64. ________shl ____ax, cl
65. ________xchg ___al, dl
66. ________or _____ax, 3030h
67. ________xchg ___ax, bx
69. ________mov ____ah, 02h
70. ________cmp ____bh, 30h
71. ________je _____PrintOneDigit
73. ________mov ____dl, bh
74. ________int ____21h
76. ____PrintOneDigit:
77. ________mov ____dl, bl
78. ________int ____21h
79. ________ret
80. ____PrintNumber endp
82. code ends
83. end main

Программа, которая считет количество всех гласных букв в строке.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string db "Intel 8086. Microsoft Macro Assembler"
8. ____vowels db "aeiouAEIOU"
9. ____output db "Number of vowels: $"
10. ____result dw 0
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, 37___________; Копируем значение 37 в регистр cx (длина строки string)
22. ________lea ____di, es:[vowels]__; Загружаем адрес массива vowels в регистр es:di
23. ________lea ____si, ds:[string]__; Загружаем адрес массива string в регистр ds:si
25. ____OuterLoop:
26. ________push ___cx_______________; Сохраняем значение регистра cx в стеке
27. ________mov ____cx, 10___________; Копируем значение 10 в регистр cx (количество гласных)
29. ________lodsb____________________; Загружаем байт из регистра-источника si в регистр al
31. ________push ___di_______________; Сохраняем значение регистра di в стеке
33. __repnz scasb____________________; Сканируем байт в регистре al с байтами в регистре di пока CX≠0
34. ________jne ____Skip_____________; Если ZF=0, то прыгаем на метку Skip
36. ________inc ____result___________; Увеличиваем значение переменной result
38. ____Skip:
39. ________pop ____cx_______________; Выталкиваем значение из стека в регистр di
40. ________pop ____cx_______________; Выталкиваем значение из стека в регистр cx
41. ________loop ___OuterLoop________; Выполняем цикл пока CX≠0
43. ________mov ____ah, 09h__________; Копируем значение функции вывода строки в регистр ah
44. ________lea ____dx, ds:[output]__; Загружаем адрес переменной output в регистр ds:dx
45. ________int ____21h______________; Вызываем прерывание
47. ________mov ____dx, result_______; Копируем значение переменной result в регистр dx
48. ________call ___PrintNumber______; Вызываем процедуру PrintNumber
50. ________mov ____ax, 4C00h________; Копируем значение функции завершения в ah а значение в al
51. ________int ____21h______________; Вызываем прерывание DOS
52. ____main endp ___________________; Конец процедуры main
54. ____PrintNumber proc
55. ________mov ____ax, dx___________; Копируем значение регистра dx в регистр ax
56. ________mov ____bx, 10___________; Копируем число 10 в регистр bx
57. ________cwd______________________; Выполняем знаковое расширение регистра dx
58. ________div ____bx_______________; Выполняем деление значения в регистре ax на bx (10)
60. ________mov ____cl, 8____________; Копируем число 8 в регистр cl
61. ________shl ____ax, cl___________; Выполняем логический сдвиг влево на количество в регистре cl
62. ________xchg ___al, dl___________; Выполняем обмен содержимого регистров al и dl
63. ________or _____ax, 3030h________; Выполняем логическое ИЛИ над ax с 3030
64. ________xchg ___ax, bx___________; Выполняем обмен содержимого регистров ax и bx
66. ________mov ____ah, 02h__________; Копируем значение функции вывода на консоль в регистр ah
67. ________cmp ____bh, 30h__________; Сравниваем значение в регистре bh c 30h
68. ________je _____PrintOneDigit____; Если ZF=1, то прыгаем на метку PrintOneDigit
70. ________mov ____dl, bh___________; Копируем значение регистра bh в регистр dl
71. ________int ____21h______________; Вызываем прерывание
73. ____PrintOneDigit:
74. ________mov ____dl, bl___________; Копируем значение регистра bl в регистр dl
75. ________int ____21h______________; Вызываем прерывание
76. ________ret______________________; Возврат из процедуры
77. ____PrintNumber endp
79. code ends _______________________; Конец сегмента кода
80. end main ________________________; Конец файла. Точкой входа указывается процедура main