ХАНДЫФАР

Программа, которая вычисляем длину строки. Организуем цикл в котором будем проверять каждый символ на символ завершения строки 24h ($).

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db "When I was a little boy, "
  8. ___________db "I had a dream where I was "
  9. ___________db "looking for my father "
  10. ___________db "among huge pink flowers.$"
  12. ____output db "Length of the string: $"
  13. data ends
  15. code segment public
  16. ____assume ds:data, cs:code
  18. ____main proc
  19. ________mov ____ax, seg data
  20. ________mov ____ds, ax
  21. ________mov ____es, ax
  23. ________mov ____cx, 0FFFFh
  24. ________mov ____al, 24h
  25. ________lea ____di, es:[string]
  27. __repnz scasb
  29. ________not ____cx
  30. ________dec ____cx
  32. ________mov ____ah, 09h
  33. ________lea ____dx, ds:[output]
  34. ________int ____21h
  36. ________mov ____dx, cx
  37. ________call ___PrintNumber
  39. ________mov ____ax, 4C00h
  40. ________int ____21h
  41. ____main endp
  43. ____PrintNumber proc
  44. ________mov ____ax, dx
  45. ________mov ____bx, 10
  46. ________cwd
  47. ________div ____bx
  49. ________mov ____cl, 8
  50. ________shl ____ax, cl
  51. ________xchg ___al, dl
  52. ________or _____ax, 3030h
  53. ________xchg ___ax, bx
  55. ________mov ____ah, 02h
  56. ________cmp ____bh, 30h
  57. ________je _____PrintOneDigit
  59. ________mov ____dl, bh
  60. ________int ____21h
  62. ____PrintOneDigit:
  63. ________mov ____dl, bl
  64. ________int ____21h
  65. ________ret
  66. ____PrintNumber endp
  68. code ends
  69. end main



















8E D8
8E C0

B9 FFFF
B0 24
8D 3E 0000

F2 AE

F7 D1
49

B4 09
8D 16 0062__
CD 21

8B D1


B8 4C00
CD 21



8B C2
BB 000A
99
F7 F3

B1 08
D3 E0
86 C2
0D 3030
93

B4 02
80 FF 30
74 04

8A D7
CD 21


8A D3
CD 21
C3
Программа, которая вычисляем длину строки. Организуем цикл в котором будем проверять каждый символ на символ завершения строки 24h ($).

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db "When I was a little boy, I had a dream where I was looking for my father among huge "
  8. ___________db "pink flowers.$"
  9. ____output db "Length of the string: $" ; Длина строки:
  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
  18. ________mov ____es, ax___________; Передаём адрес сегмента памяти данных из регистра ax в es
  20. ________mov ____cx, 0FFFFh_______; Копируем число -1 в регистр cx
  21. ________mov ____al, 24h__________; Копируем значение для поиска ('$') в регистр al
  22. ________lea ____di, es:[string]__; Загружаем адрес переменной string в регистр es:di
  24. __repnz scasb____________________; Выполняем поиск символа '$' в es:di пока флаг ZF≠1
  26. ________not ____cx_______________; Переворачиваем все биты в регистре cx
  27. ________dec ____cx_______________; Уменьшаем значение на 1
  29. ________mov ____ah, 09h__________; Копируем значение функции вывода строки в регистр ah
  30. ________lea ____dx, ds:[output]__; Загружаем адрес переменной output в регистр ds:dx
  31. ________int ____21h______________; Вызываем прерывание
  33. ________mov ____dx, cx___________; Копируем значение регистра cx в регистр dx
  34. ________call ___PrintNumber______; Вызываем процедуру PrintNumber
  36. ________mov ____ax, 4C00h________; Копируем значение функции завершения в ah а значение в al
  37. ________int ____21h______________; Вызываем прерывание
  38. ____main endp ___________________; Конец процедуры main
  40. ____PrintNumber proc
  41. ________mov ____ax, dx___________; Копируем значение регистра dx в регистр ax
  42. ________mov ____bx, 10___________; Копируем число 10 в регистр bx
  43. ________cwd______________________; Выполняем знаковое расширение регистра dx
  44. ________div ____bx_______________; Выполняем деление значения в регистре ax на bx (10)
  46. ________mov ____cl, 8____________; Копируем число 8 в регистр cl
  47. ________shl ____ax, cl___________; Выполняем логический сдвиг влево на количество в регистре cl
  48. ________xchg ___al, dl___________; Выполняем обмен содержимого регистров al и dl
  49. ________or _____ax, 3030h________; Выполняем логическое ИЛИ над ax с 3030
  50. ________xchg ___ax, bx___________; Выполняем обмен содержимого регистров ax и bx
  52. ________mov ____ah, 02h__________; Копируем значение функции вывода на консоль в регистр ah
  53. ________cmp ____bh, 30h__________; Сравниваем значение в регистре bh c 30h
  54. ________je _____PrintOneDigit____; Если ZF=1, то прыгаем на метку PrintOneDigit
  56. ________mov ____dl, bh___________; Копируем значение регистра bh в регистр dl
  57. ________int ____21h______________; Вызываем прерывание
  59. ____PrintOneDigit:
  60. ________mov ____dl, bl___________; Копируем значение регистра bl в регистр dl
  61. ________int ____21h______________; Вызываем прерывание
  62. ________ret______________________; Возврат из процедуры
  63. ____PrintNumber endp
  65. code ends _______________________; Конец сегмента кода
  66. end main ________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda