ХАНДЫФАР

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

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!$"
17. data ends
19. code segment public
20. ____assume ds:data, cs:code
22. ____main proc
23. ________mov ____ax, seg data
24. ________mov ____ds, ax
26. ________mov ____cx, strlen
27. ________lea ____si, ds:[string]
29. ____MainLoop:
30. ________lodsb
31. ________cmp ____al, byte ptr[si]
32. ________je _____Found
33. ________loopnz__MainLoop
35. ________mov ____ah, 09h
36. ________lea ____dx, ds:[charNotFound]
37. ________int ____21h
38. ________jmp ____Done
40. ____Found:
41. ________mov ____ah, 09h
42. ________lea ____dx, ds:[charFound]
43. ________int ____21h
45. ________mov ____ah, 02h
46. ________mov ____dl, al
47. ________int ____21h
49. ____Done:
50. ________mov ____ax, 4C00h
51. ________int ____21h
52. ____main endp
54. code ends
55. 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. 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
20. ________mov ____cx, strlen_____________; Копируем значение переменной strlen в регистр cx
21. ________lea ____si, ds:[string]________; Загружаем адрес переменной string в регистр ds:si
23. ____MainLoop:
24. ________lodsb__________________________; Загружаем байт по адресу ds:si в регистр al. SI++
25. ________cmp ____al, byte ptr[si]_______; Сравниваем значение в al со следующим символом в ds:si
26. ________je _____Found__________________; Если ZF=1, то прыгаем на метку Found
27. ________loopnz__MainLoop_______________; Выполняем цикл пока CX≠0 или ZF≠1
29. ________mov ____ah, 09h________________; Копируем значение функции вывода строки в регистр ah
30. ________lea ____dx, ds:[charNotFound]__; Загружаем адрес переменной charNotFound в регистр ds:dx
31. ________int ____21h____________________; Вызываем прерывание
32. ________jmp ____Done___________________; Выполняем безусловный переход на метку Done
34. ____Found:
35. ________mov ____ah, 09h________________; Копируем значение функции вывода строки в регистр ah
36. ________lea ____dx, ds:[charFound]_____; Загружаем адрес переменной charFound в регистр ds:dx
37. ________int ____21h____________________; Вызываем прерывание
39. ________mov ____ah, 02h________________; Копируем значение функции вывода на консоль в регистр ah
40. ________mov ____dl, al_________________; Копируем значение найденного символа в регистр dl
41. ________int ____21h____________________; Вызываем прерывание
43. ____Done:
44. ________mov ____ax, 4C00h______________; Копируем значение функции завершения в ah а значение в al
45. ________int ____21h____________________; Вызываем прерывание
46. ____main endp _________________________; Конец процедуры main
48. code ends _____________________________; Конец сегмента кода
49. end main ______________________________; Конец файла. Точкой входа указывается процедура main