ХАНДЫФАР

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db "I was born in 1988, "
  8. ___________db "March 17$"
  9. data ends
  11. code segment public
  12. ____assume ds:data, cs:code
  14. ____main proc
  15. ________mov ____ax, seg data
  16. ________mov ____ds, ax
  18. ________lea ____si, ds:[string]
  19. ________call ___FindNumber
  21. ________mov ____ax, 4C00h
  22. ________int ____21h
  23. ____main endp
  25. ____FindNumber proc
  26. ________push ___ax
  27. ________push ___bx
  28. ________push ___cx
  29. ________push ___dx
  30. ________push ___si
  32. ________xor ____ax, ax
  33. ________xor ____cx, cx
  35. ____FindLoop:
  36. ________lodsb
  38. ________cmp ____al, 24h
  39. ________je _____Finish
  41. ________cmp ____al, 30h
  42. ________jb _____FindLoop
  44. ________cmp ____al, 39h
  45. ________ja _____FindLoop
  47. ________and ____al, 0Fh
  48. ________add ____cx, ax
  49. ________jmp ____FindLoop
  51. ____Finish:
  52. ________test ___cx, cx
  53. ________jnz ____HasNumbers
  55. ________mov ____ah, 02h
  56. ________mov ____dl, 30h
  57. ________int ____21h
  58. ________jmp ____Done
  60. ____HasNumbers:
  61. ________xchg ___ax, cx
  62. ________aam
  63. ________or _____ax, 3030h
  64. ________xchg ___ax, bx
  66. ________mov ____ah, 02h
  68. ________cmp ____bh, 30h
  69. ________jz _____PrintOneNumber
  71. ________mov ____dl, bh
  72. ________int ____21h
  74. ____PrintOneNumber:
  75. ________mov ____dl, bl
  76. ________int ____21h
  78. ____Done:
  79. ________pop ____si
  80. ________pop ____dx
  81. ________pop ____cx
  82. ________pop ____bx
  83. ________pop ____ax
  84. ________ret
  85. ____FindNumber endp
  87. code ends
  88. end main
Программа, которая находит числа в строке и вычисляет их сумму.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db "I was born in 1988, March 17$"
  8. data ends
  10. code segment public _____________; Начало сегмента кода
  11. ____assume ds:data, cs:code
  13. ____main proc ___________________; Начало процедуры main
  14. ________mov ____ax, seg data_____; Получаем адрес сегмента памяти данных и сохраняем его в ax
  15. ________mov ____ds, ax___________; Передаём адрес сегмента памяти данных из регистра ax в ds
  17. ________lea ____si, ds:[string]__; Загружаем адрес переменной string в регистр ds:si
  18. ________call ___FindNumber_______; Вызываем процедуру FindNumber
  20. ________mov ____ax, 4C00h________; Копируем значение функции завершения в ah а значение в al
  21. ________int ____21h______________; Вызываем прерывание DOS
  22. ____main endp ___________________; Конец процедуры main
  24. ____FindNumber proc______________; Начало процедуры FindNumber
  25. ________push ___ax_______________; Сохраняем значение регистра ax в стеке
  26. ________push ___bx_______________; Сохраняем значение регистра bx в стеке
  27. ________push ___cx_______________; Сохраняем значение регистра cx в стеке
  28. ________push ___dx_______________; Сохраняем значение регистра dx в стеке
  29. ________push ___si_______________; Сохраняем значение регистра si в стеке
  31. ________xor ____ax, ax___________; Обнуляем значение регистра ax
  32. ________xor ____cx, cx___________; Обнуляем значение регистра cx
  34. ____FindLoop:
  35. ________lodsb____________________; Загружаем байт из регистра si в регистр al
  37. ________cmp ____al, 24h__________; Сравниваем значение в регистре al с 24h - '$'
  38. ________je _____Finish___________; Если ZF=1, то прыгаем на метку Finish
  40. ________cmp ____al, 30h__________; Сравниваем значение в регистре al с ASCII значением 0
  41. ________jb _____FindLoop_________; Если значение в al ниже чем 0, то прыгаем на метку FindLoop
  43. ________cmp ____al, 39h__________; Сравниваем значение в регистре al с ASCII значением 9
  44. ________ja _____FindLoop_________; Если значение в al выше чем 9, то прыгаем на метку FindLoop
  46. ________and ____al, 0Fh__________; Применяем маску, где обнуляем старший полубайт регистра al
  47. ________add ____cx, ax___________; Прибавляем значение в регистре ax к значению в регистре cx
  48. ________jmp ____FindLoop_________; Выполняем безусловный переход на метку FindLoop
  50. ____Finish:
  51. ________test ___cx, cx
  52. ________jnz ____HasNumbers
  54. ________mov ____ah, 02h__________; Копируем значение функции вывода на консоль в регистр ah
  55. ________mov ____dl, 30h__________; Копируем ASCII значение 0 регистре dl
  56. ________int ____21h______________; Вызываем прерывание DOS
  57. ________jmp ____Done_____________; Выполняем безусловный переход на метку Done
  59. ____HasNumbers:
  60. ________xchg ___ax, cx___________; Выполняем обмен содержимого регистров ax и cx
  61. ________aam______________________; Создаём пару распакованных значений BCD (основание 10)
  62. ________or _____ax, 3030h________; Выполняем преобразование значения в регистре ax в ASCII число
  63. ________xchg ___ax, bx___________; Выполняем обмен содержимого регистров ax и bx
  65. ________mov ____ah, 02h__________; Копируем значение функции вывода на консоль в регистр ah
  67. ________cmp ____bh, 30h__________; Сравниваем значение в регистре bh с ASCII значением 0
  68. ________jz _____PrintOneNumber
  70. ________mov ____dl, bh___________; Копируем значение регистра bh в регистр dl
  71. ________int ____21h______________; Вызываем прерывание DOS
  73. ____PrintOneNumber:
  74. ________mov ____dl, bl___________; Копируем значение регистра bl в регистр dl
  75. ________int ____21h______________; Вызываем прерывание DOS
  77. ____Done:
  78. ________pop ____si_______________; Выталкиваем значение из стека в регистр si
  79. ________pop ____dx_______________; Выталкиваем значение из стека в регистр dx
  80. ________pop ____cx_______________; Выталкиваем значение из стека в регистр cx
  81. ________pop ____bx_______________; Выталкиваем значение из стека в регистр bx
  82. ________pop ____ax_______________; Выталкиваем значение из стека в регистр ax
  83. ________ret______________________; Возврат из процедуры
  84. ____FindNumber endp______________; Конец процедуры FindNumber
  86. code ends _______________________; Конец сегмента кода
  87. end main ________________________; Конец файла. Точкой входа указывается процедура main
















8E D8

8D 36 0000__


B8 4C00
CD 21



50
53
51
52
56

33 C0
33 C9


AC

3C 24
74 0E

3C 30
72 F7

3C 39
77 F3

24 0F
03 C8
EB ED


85 C9
75 09

B4 02
B2 30
CD 21
EB 17 90


91
D4 0A
0D 3030
93

B4 02

80 FF 30
74 04

8A D7
CD 21


8A D3
CD 21


5E
5A
59
5B
58
C3
Made on
Tilda