ХАНДЫФАР

Программа, которая проверяет, одинаково ли присутствуют два символа в строке.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string ___db "aabcdeef$"
  8. ____msg_true _db "True$"
  9. ____msg_false db "False$"
  10. data ends
  12. code segment public
  13. ____assume ds:data, cs:code
  15. ____main proc
  16. ________mov ____ax, seg data
  17. ________mov ____ds, ax
  19. ________mov ____bl, 'e'
  20. ________mov ____bh, 'a'
  21. ________lea ____si, ds:[string]
  22. ________call ___CheckString
  24. ________jne ____NotEqual
  26. ________lea ____dx, ds:[msg_true]
  27. ________jmp ____Done
  29. ____NotEqual:
  30. ________lea ____dx, ds:[msg_false]
  32. ____Done:
  33. ________mov ____ah, 09h
  34. ________int ____21h
  36. ________mov ____ax, 4C00h
  37. ________int ____21h
  38. ____main endp
  40. ____CheckString proc
  41. ________push ___ax
  42. ________push ___dx
  43. ________push ___si
  45. ________xor ____dx, dx
  47. ____MainLoop:
  48. ________lodsb
  50. ________cmp ____al, 24h
  51. ________je _____Finish
  53. ____TestBH:
  54. ________cmp ____al, bh
  55. ________jne ____TestBL
  57. ________inc ____dh
  59. ____TestBL:
  60. ________cmp ____al, bl
  61. ________jne ____MainLoop
  63. ________inc ____dl
  65. ________jmp ____MainLoop
  67. ____Finish:
  68. ________cmp ____dh, dl
  70. ________pop ____si
  71. ________pop ____dx
  72. ________pop ____ax
  73. ________ret
  74. ____CheckString endp
  76. code ends
  77. end main
Программа, которая проверяет, одинаково ли присутствуют два символа в строке.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string ___db "aabcdeef$"
  8. ____msg_true _db "True$"
  9. ____msg_false db "False$"
  10. data ends
  12. code segment public ________________; Начало сегмента кода
  13. ____assume ds:data, cs:code
  15. ____main proc ______________________; Начало процедуры main
  16. ________mov ____ax, seg data________; Получаем адрес сегмента памяти данных и сохраняем его в ax
  17. ________mov ____ds, ax______________; Передаём адрес сегмента памяти данных из регистра ax в ds
  19. ________mov ____bl, 'e'_____________; Копируем значение символа 'e' в регистр bl
  20. ________mov ____bh, 'a'_____________; Копируем значение символа 'a' в регистр bh
  21. ________lea ____si, ds:[string]_____; Загружаем адрес переменной string в регистр ds:si
  22. ________call ___CheckString_________; Вызываем процедуру CheckString
  24. ________jne ____NotEqual____________; Если ZF=0, то прыгаем на метку NotEqual
  26. ________lea ____dx, ds:[msg_true]___; Загружаем адрес переменной msg_true в регистр ds:dx
  27. ________jmp ____Done________________; Выполняем безусловный переход на метку Done
  29. ____NotEqual:
  30. ________lea ____dx, ds:[msg_false]__; Загружаем адрес переменной msg_false в регистр ds:dx
  32. ____Done:
  33. ________mov ____ah, 09h_____________; Копируем значение функции вывода строки в регистр ah
  34. ________int ____21h_________________; Вызываем прерывание DOS
  36. ________mov ____ax, 4C00h___________; Копируем значение функции завершения в ah а значение в al
  37. ________int ____21h_________________; Вызываем прерывание DOS
  38. ____main endp ______________________; Конец процедуры main
  40. ____CheckString proc________________; Начало процедуры CheckString
  41. ________push ___ax__________________; Сохраняем значение регистра ax в стеке
  42. ________push ___dx__________________; Сохраняем значение регистра dx в стеке
  43. ________push ___si__________________; Сохраняем значение регистра si в стеке
  45. ________xor ____dx, dx______________; Обнуляем значение регистра dx
  47. ____MainLoop:
  48. ________lodsb_______________________; Загружаем байт из регистра si в регистр al
  50. ________cmp ____al, 24h_____________; Сравниваем значение в регистре al с 24h - '$'
  51. ________je _____Finish______________; Если ZF=1, то прыгаем на метку Finish
  53. ____TestBH:
  54. ________cmp ____al, bh______________; Сравниваем значение в регистре al с со значением в регистре bh
  55. ________jne ____TestBL______________; Если ZF=0, то прыгаем на метку TestBL
  57. ________inc ____dh__________________; Увеличиваем dh на 1
  59. ____TestBL:
  60. ________cmp ____al, bl______________; Сравниваем значение в регистре al с со значением в регистре bl
  61. ________jne ____MainLoop____________; Если ZF=0, то прыгаем на метку MainLoop
  63. ________inc ____dl__________________; Увеличиваем dl на 1
  65. ________jmp ____MainLoop____________; Выполняем безусловный переход на метку MainLoop
  67. ____Finish:
  68. ________cmp ____dh, dl______________; Сравниваем значение в регистре dh с со значением в регистре dl
  70. ________pop ____si__________________; Выталкиваем значение из стека в регистр si
  71. ________pop ____dx__________________; Выталкиваем значение из стека в регистр dx
  72. ________pop ____ax__________________; Выталкиваем значение из стека в регистр ax
  73. ________ret_________________________; Возврат из процедуры
  74. ____CheckString endp________________; Конец процедуры CheckString
  76. code ends __________________________; Конец сегмента кода
  77. end main ___________________________; Конец файла. Точкой входа указывается процедура main


















8E D8

B3 65
B7 61
8D 36 0000__


75 07

8D 16 0009
EB 05


8D 16 000E


B4 09
CD 21

B8 4C00
CD 21



50
52
56

33 D2


AC

3C 24
74 0E


3A C7
75 02

FE C6


3A C3
75 F1

FE C2

EB ED


3A F2

5E
5A
58
C3
Made on
Tilda