ХАНДЫФАР

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string ______db _"Microsoft Macro "
  8. _________________db _"Assembler$"
  9. ____strlen ______equ ($-string)
  11. ____charFound ___db _"The character is: $"
  13. ____charNotFound db _"There are no "
  14. _________________db _"consecutive "
  15. _________________db _"characters in the "
  16. _________________db _"string!$"
  18. ____char ________db _?
  19. data ends
  21. code segment public
  22. ____assume ds:data, cs:code
  24. ____main proc
  25. ________mov ____ax, seg data
  26. ________mov ____ds, ax
  28. ________xor_____si, si
  29. ________mov ____cx, strlen
  30. ________lea ____bx, ds:[string]
  32. ____MainLoop:
  33. ________mov ____al, byte ptr[bx+si]
  34. ________cmp ____al, byte ptr[bx+si+1]
  35. ________jne ____Continue
  37. ________mov ____char, al
  38. ________jmp ____Found
  40. ____Continue:
  41. ________inc ____si
  42. ________loop ___MainLoop
  44. ________mov ____ah, 09h
  45. ________lea ____dx, ds:[charNotFound]
  46. ________int ____21h
  47. ________jmp ____Done
  49. ____Found:
  50. ________mov ____ah, 09h
  51. ________lea ____dx, ds:[charFound]
  52. ________int ____21h
  54. ________mov ____ah, 02h
  55. ________mov ____dl, char
  56. ________int ____21h
  58. ____Done:
  59. ________mov ____ax, 4C00h
  60. ________int ____21h
  61. ____main endp
  63. code ends
  64. end main
Программа для проверки того, присутствуют ли два символа в строке следующие друг за другом.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string ______db _"Microsoft Macro Assembler$"
  8. ____strlen ______equ ($-string) ; Вычисляем длину массива string
  9. ____charFound ___db _"The character is: $"
  10. ____charNotFound db _"There are no consecutive characters in the string!$"
  11. ____char ________db _?
  12. data ends
  14. code segment public ___________________; Начало сегмента кода
  15. ____assume ds:data, cs:code
  17. ____main proc _________________________; Начало процедуры main
  18. ________mov ____ax, seg data___________; Получаем адрес сегмента памяти данных и сохраняем его в ax
  19. ________mov ____ds, ax_________________; Передаём адрес сегмента памяти данных из регистра ax в ds
  21. ________xor_____si, si_________________; Обнуляем регистр-счётчик si
  22. ________mov ____cx, strlen_____________; Копируем значение переменной strlen в регистр cx
  23. ________lea ____bx, ds:[string]________; Загружаем адрес переменной string в регистр ds:bx
  25. ____MainLoop:
  26. ________mov ____al, byte ptr[bx+si]____; Копируем значение в регистре bx под индексом si в регистр al
  27. ________cmp ____al, byte ptr[bx+si+1]__; Сравниваем значение в al со значением в bx под индексом si+1
  28. ________jne ____Continue_______________; Если ZF=0, то прыгаем на метку Continue
  30. ________mov ____char, al_______________; Копируем значение регистра al в переменную char
  31. ________jmp ____Found__________________; Выполняем безусловный переход на метку Found
  33. ____Continue:
  34. ________inc ____si_____________________; Увеличиваем значение индекса si на 1
  35. ________loop ___MainLoop_______________; Выполняем цикл пока CX≠0
  37. ________mov ____ah, 09h________________; Копируем значение функции вывода строки в регистр ah
  38. ________lea ____dx, ds:[charNotFound]__; Загружаем адрес переменной charNotFound в регистр ds:dx
  39. ________int ____21h____________________; Вызываем прерывание DOS
  40. ________jmp ____Done___________________; Выполняем безусловный переход на метку Done
  42. ____Found:
  43. ________mov ____ah, 09h________________; Копируем значение функции вывода строки в регистр ah
  44. ________lea ____dx, ds:[charFound]_____; Загружаем адрес переменной charFound в регистр ds:dx
  45. ________int ____21h____________________; Вызываем прерывание DOS
  47. ________mov ____ah, 02h________________; Копируем значение функции вывода на консоль в регистр ah
  48. ________mov ____dl, char_______________; Копируем значение переменной char в регистр dl
  49. ________int ____21h____________________; Вызываем прерывание DOS
  51. ____Done:
  52. ________mov ____ax, 4C00h______________; Копируем значение функции завершения в ah а значение в al
  53. ________int ____21h____________________; Вызываем прерывание DOS
  54. ____main endp _________________________; Конец процедуры main
  56. code ends _____________________________; Конец сегмента кода
  57. end main ______________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda