ХАНДЫФАР

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

  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.$"
  11. ____output db "Length of the string: $"
  12. ____number dw 0
  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
  22. ________lea ____bx, ds:[string]
  24. ____MainLoop:
  25. ________cmp ____byte ptr[bx+si], 24h
  26. ________je _____Done
  28. ________inc ____number
  30. ________inc ____si
  31. ________jmp ____MainLoop
  33. ____Done:
  34. ________mov ____ah, 09h
  35. ________lea ____dx, ds:[output]
  36. ________int ____21h
  38. ________mov ____dx, number
  39. ________call ___PrintNumber
  41. ________mov ____ax, 4C00h
  42. ________int ____21h
  43. ____main endp
  45. ____PrintNumber proc
  46. ________mov ____ax, dx
  47. ________mov ____bx, 10
  48. ________cwd
  49. ________div ____bx
  51. ________mov ____cl, 8
  52. ________shl ____ax, cl
  53. ________xchg ___al, dl
  54. ________or _____ax, 3030h
  55. ________xchg ___ax, bx
  57. ________mov ____ah, 02h
  58. ________cmp ____bh, 30h
  59. ________je _____PrintOneDigit
  61. ________mov ____dl, bh
  62. ________int ____21h
  64. ____PrintOneDigit:
  65. ________mov ____dl, bl
  66. ________int ____21h
  67. ________ret
  68. ____PrintNumber endp
  70. code ends
  71. end main
Программа, которая вычисляем длину строки. Организуем цикл в котором будем проверять каждый символ на символ завершения строки 24h ($), каждый раз увеличивая значение переменной number на 1. Выходим из цикла как только встретим символ завершения строки.

  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. ____number dw 0
  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. ________lea ____bx, ds:[string]_______; Загружаем адрес переменной string в регистр ds:bx
  22. ____MainLoop:
  23. ________cmp ____byte ptr[bx+si], 24h__; Сравниваем значение в регистре bx под индексом si c $
  24. ________je _____Done__________________; Если ZF=1, то прыгаем на метку Done
  26. ________inc ____number________________; Увеличиваем значение переменной number на 1
  27. ____________________
  28. ________inc ____si____________________; Увеличиваем значение индекса si на 1
  29. ________jmp ____MainLoop______________; Выполняем цикл пока BX+SI≠24h
  31. ____Done:
  32. ________mov ____ah, 09h_______________; Копируем значение функции вывода строки в регистр ah
  33. ________lea ____dx, ds:[output]_______; Загружаем адрес переменной output в регистр ds:dx
  34. ________int ____21h___________________; Вызываем прерывание DOS
  36. ________mov ____dx, number____________; Копируем значение переменной number в регистр dx
  37. ________call ___PrintNumber___________; Вызываем процедуру PrintNumber
  39. ________mov ____ax, 4C00h_____________; Копируем значение функции завершения в ah а значение в al
  40. ________int ____21h___________________; Вызываем прерывание DOS
  41. ____main endp ________________________; Конец процедуры main
  43. ____PrintNumber proc
  44. ________mov ____ax, dx________________; Копируем значение регистра dx в регистр ax
  45. ________mov ____bx, 10________________; Копируем число 10 в регистр bx
  46. ________cwd___________________________; Выполняем знаковое расширение регистра dx
  47. ________div ____bx____________________; Выполняем деление значения в регистре ax на bx (10)
  49. ________mov ____cl, 8_________________; Копируем число 8 в регистр cl
  50. ________shl ____ax, cl________________; Выполняем логический сдвиг влево на количество в регистре cl
  51. ________xchg ___al, dl________________; Выполняем обмен содержимого регистров al и dl
  52. ________or _____ax, 3030h_____________; Выполняем логическое ИЛИ над ax с 3030
  53. ________xchg ___ax, bx________________; Выполняем обмен содержимого регистров ax и bx
  55. ________mov ____ah, 02h_______________; Копируем значение функции вывода на консоль в регистр ah
  56. ________cmp ____bh, 30h_______________; Сравниваем значение в регистре ch c 30h
  57. ________je _____PrintOneDigit_________; Если ZF=1, то прыгаем на метку PrintOneDigit
  59. ________mov ____dl, bh________________; Копируем значение регистра ch в регистр dl
  60. ________int ____21h___________________; Вызываем прерывание DOS
  62. ____PrintOneDigit:
  63. ________mov ____dl, bl________________; Копируем значение регистра cl в регистр dl
  64. ________int ____21h___________________; Вызываем прерывание DOS
  65. ________ret___________________________; Возврат из процедуры
  66. ____PrintNumber endp
  68. code ends ____________________________; Конец сегмента кода
  69. end main _____________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda