ХАНДЫФАР

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

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 ___dx
29. ________push ___si
31. ________xor ____ax, ax
32. ________xor ____bx, bx
34. ____FindLoop:
35. ________lodsb
37. ________cmp ____al, 24h
38. ________je _____Finish
40. ________cmp ____al, 31h
41. ________jb _____FindLoop
43. ________cmp ____al, 39h
44. ________ja _____FindLoop
46. ________and ____al, 0Fh
47. ________add ____bx, ax
48. ________jmp ____FindLoop
50. ____Finish:
51. ________test ___bx, bx
52. ________jnz ____HasNumbers
54. ________mov ____ah, 02h
55. ________mov ____dl, 30h
56. ________int ____21h
57. ________jmp ____Done
59. ____HasNumbers:
60. ________xchg ___ax, bx
61. ________aam
62. ________or _____ax, 3030h
63. ________xchg ___ax, bx
65. ________mov ____ah, 02h
67. ________cmp ____bh, 30h
68. ________jz _____PrintOneNumber
70. ________mov ____dl, bh
71. ________int ____21h
73. ____PrintOneNumber:
74. ________mov ____dl, bl
75. ________int ____21h
77. ____Done:
78. ________pop ____si
79. ________pop ____dx
80. ________pop ____bx
81. ________pop ____ax
82. ________ret
83. ____FindNumber endp
85. code ends
86. 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______________; Вызываем прерывание
22. ____main endp ___________________; Конец процедуры main
24. ____FindNumber proc______________; Начало процедуры FindNumber
25. ________push ___ax_______________; Сохраняем значение регистра ax в стеке
26. ________push ___bx_______________; Сохраняем значение регистра bx в стеке
27. ________push ___dx_______________; Сохраняем значение регистра dx в стеке
28. ________push ___si_______________; Сохраняем значение регистра si в стеке
30. ________xor ____ax, ax___________; Обнуляем значение регистра ax
31. ________xor ____bx, bx___________; Обнуляем значение регистра bx
33. ____FindLoop:
34. ________lodsb____________________; Загружаем байт из регистра si в регистр al
36. ________cmp ____al, 24h__________; Сравниваем значение в регистре al с 24h - '$'
37. ________je _____Finish___________; Если ZF=1, то прыгаем на метку Finish
39. ________cmp ____al, 31h__________; Сравниваем значение в регистре al с ASCII значением 1
40. ________jb _____FindLoop_________; Если значение в al ниже чем 1, то прыгаем на метку FindLoop
42. ________cmp ____al, 39h__________; Сравниваем значение в регистре al с ASCII значением 9
43. ________ja _____FindLoop_________; Если значение в al выше чем 9, то прыгаем на метку FindLoop
45. ________and ____al, 0Fh__________; Применяем маску, где обнуляем старший полубайт регистра al
46. ________add ____bx, ax___________; Прибавляем значение в регистре ax к значению в регистре bx
47. ________jmp ____FindLoop_________; Выполняем безусловный переход на метку FindLoop
49. ____Finish:
50. ________test ___bx, bx___________; Проверяем значение регистра bx на 0
51. ________jnz ____HasNumbers_______; Если ZF=0, то прыгаем на метку HasNumbers
53. ________mov ____ah, 02h__________; Копируем значение функции вывода на консоль в регистр ah
54. ________mov ____dl, 30h__________; Копируем ASCII значение 0 регистре dl
55. ________int ____21h______________; Вызываем прерывание
56. ________jmp ____Done_____________; Выполняем безусловный переход на метку Done
58. ____HasNumbers:
59. ________xchg ___ax, bx___________; Выполняем обмен содержимого регистров ax и bx
60. ________aam______________________; Создаём пару распакованных значений BCD (основание 10)
61. ________or _____ax, 3030h________; Выполняем преобразование значения в регистре ax в ASCII число
62. ________xchg ___ax, bx___________; Выполняем обмен содержимого регистров ax и bx
64. ________mov ____ah, 02h__________; Копируем значение функции вывода на консоль в регистр ah
66. ________cmp ____bh, 30h__________; Сравниваем значение в регистре bh с ASCII значением 0
67. ________jz _____PrintOneNumber___; Если ZF=1, то прыгаем на метку PrintOneNumber
69. ________mov ____dl, bh___________; Копируем значение регистра bh в регистр dl
70. ________int ____21h______________; Вызываем прерывание
72. ____PrintOneNumber:
73. ________mov ____dl, bl___________; Копируем значение регистра bl в регистр dl
74. ________int ____21h______________; Вызываем прерывание
76. ____Done:
77. ________pop ____si_______________; Выталкиваем значение из стека в регистр si
78. ________pop ____dx_______________; Выталкиваем значение из стека в регистр dx
79. ________pop ____bx_______________; Выталкиваем значение из стека в регистр bx
80. ________pop ____ax_______________; Выталкиваем значение из стека в регистр ax
81. ________ret______________________; Возврат из процедуры
82. ____FindNumber endp______________; Конец процедуры FindNumber
84. code ends _______________________; Конец сегмента кода
85. end main ________________________; Конец файла. Точкой входа указывается процедура main