ХАНДЫФАР

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db "Intel 8086. Microsoft "
  8. ___________db "Macro Assembler"
  9. ____vowels db "aeiouAEIOU"
  10. ____output db "Number of vowels: $"
  11. ____result dw 0
  12. data ends
  14. code segment public
  15. ____assume ds:data, cs:code
  17. ____main proc
  18. ________mov ____ax, seg data
  19. ________mov ____ds, ax
  20. ________mov ____es, ax
  22. ________lea ____di, es:[vowels]
  23. ________lea ____si, ds:[string]
  24. ________mov ____cx, 37
  26. ____OuterLoop:
  27. ________push ___cx
  28. ________mov ____cx, 10
  30. ________lodsb
  32. ________push ___di
  34. __repnz scasb
  35. ________jne ____Skip
  37. ________inc ____result
  39. ____Skip:
  40. ________pop ____cx
  41. ________pop ____cx
  42. ________loop ___OuterLoop
  44. ________mov ____ah, 09h
  45. ________lea ____dx, ds:[output]
  46. ________int ____21h
  48. ________mov ____dx, result
  49. ________call ___PrintNumber
  51. ________mov ____ax, 4C00h
  52. ________int ____21h
  53. ____main endp
  55. ____PrintNumber proc
  56. ________mov ____ax, dx
  57. ________mov ____bx, 10
  58. ________cwd
  59. ________div ____bx
  61. ________mov ____cl, 8
  62. ________shl ____ax, cl
  63. ________xchg ___al, dl
  64. ________or _____ax, 3030h
  65. ________xchg ___ax, bx
  67. ________mov ____ah, 02h
  68. ________cmp ____bh, 30h
  69. ________je _____PrintOneDigit
  71. ________mov ____dl, bh
  72. ________int ____21h
  74. ____PrintOneDigit:
  75. ________mov ____dl, bl
  76. ________int ____21h
  77. ________ret
  78. ____PrintNumber endp
  80. code ends
  81. 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. ________lea ____di, es:[vowels]__; Загружаем адрес массива vowels в регистр es:di
  22. ________lea ____si, ds:[string]__; Загружаем адрес массива string в регистр ds:si
  23. ________mov ____cx, 37___________; Копируем значение 37 в регистр cx (длина строки string)
  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______________; Вызываем прерывание DOS
  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__________; Сравниваем значение в регистре ch c 30h
  68. ________je _____PrintOneDigit____; Если ZF=1, то прыгаем на метку PrintOneDigit
  70. ________mov ____dl, bh___________; Копируем значение регистра ch в регистр dl
  71. ________int ____21h______________; Вызываем прерывание DOS
  73. ____PrintOneDigit:
  74. ________mov ____dl, bl___________; Копируем значение регистра cl в регистр dl
  75. ________int ____21h______________; Вызываем прерывание DOS
  76. ________ret______________________; Возврат из процедуры
  77. ____PrintNumber endp
  79. code ends _______________________; Конец сегмента кода
  80. end main ________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda