ХАНДЫФАР

Программа которая подсчитывает количество слов в заданной строке.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db _"I've got many friends in "
  8. ___________db _"China$"
  9. ____strlen equ ($-string)
  10. ____output db _"Number of words: $"
  11. ____count _dw _0
  12. data ends
  14. code segment public
  15. ____assume ds:data, cs:code
  17. ____main proc
  18. ________mov ____ax, seg data
  19. ________mov ____ds, ax
  21. ________xor_____si, si
  22. ________mov ____cx, strlen
  23. ________lea ____bx, ds:[string]
  25. ____MainLoop:
  26. ________cmp ____byte ptr[bx+si-1], 20h
  27. ________jne ____Skip
  29. ________inc ____count
  31. ____Skip:
  32. ________inc ____si
  33. ________loop ___MainLoop
  35. ________inc ____count
  37. ________mov ____ah, 09h
  38. ________lea ____dx, ds:[output]
  39. ________int ____21h
  41. ________mov ____dx, count
  42. ________call ___PrintNumber
  44. ________mov ____ax, 4C00h
  45. ________int ____21h
  46. ____main endp
  48. ____PrintNumber proc
  49. ________mov ____ax, dx
  50. ________mov ____bx, 10
  51. ________cwd
  52. ________div ____bx
  54. ________mov ____cl, 8
  55. ________shl ____ax, cl
  56. ________xchg ___al, dl
  57. ________or _____ax, 3030h
  58. ________xchg ___ax, bx
  60. ________mov ____ah, 02h
  61. ________cmp ____bh, 30h
  62. ________je _____PrintOneDigit
  64. ________mov ____dl, bh
  65. ________int ____21h
  67. ____PrintOneDigit:
  68. ________mov ____dl, bl
  69. ________int ____21h
  70. ________ret
  71. ____PrintNumber endp
  73. code ends
  74. end main
Программа которая подсчитывает количество слов в заданной строке.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db _"I've got many friends in China$" ; У меня много друзей в Китае
  8. ____strlen equ ($-string) _______________________; Вычисляем длину массива string
  9. ____output db _"Number of words: $" _____________; Число слов:
  10. ____count _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. ________xor_____si, si__________________; Обнуляем регистр-счётчик si
  21. ________mov ____cx, strlen______________; Копируем значение переменной strlen в регистр cx
  22. ________lea ____bx, ds:[string]_________; Загружаем адрес переменной string в регистр ds:bx
  24. ____MainLoop:
  25. ________cmp ____byte ptr[bx+si-1], 20h__; Сравниваем значение в bx под индексом si-1 с пробелом
  26. ________jne ____Skip____________________; Если ZF=0, то прыгаем на метку Skip
  28. ________inc ____count___________________; Увеличиваем значение переменной count на 1
  30. ____Skip:
  31. ________inc ____si______________________; Увеличиваем значение индекса si на 1
  32. ________loop ___MainLoop________________; Выполняем цикл пока CX≠0
  34. ________inc ____count___________________; Увеличиваем значение count на 1. Учитываем последнее слово
  36. ________mov ____ah, 09h_________________; Копируем значение функции вывода строки в регистр ah
  37. ________lea ____dx, ds:[output]_________; Загружаем адрес переменной output в регистр ds:dx
  38. ________int ____21h_____________________; Вызываем прерывание DOS
  40. ________mov ____dx, count_______________; Копируем значение переменной result в регистр dx
  41. ________call ___PrintNumber_____________; Вызываем процедуру PrintNumber
  43. ________mov ____ax, 4C00h_______________; Копируем значение функции завершения в ah а значение в al
  44. ________int ____21h_____________________; Вызываем прерывание DOS
  45. ____main endp __________________________; Конец процедуры main
  47. ____PrintNumber proc
  48. ________mov ____ax, dx__________________; Копируем значение регистра dx в регистр ax
  49. ________mov ____bx, 10__________________; Копируем число 10 в регистр bx
  50. ________cwd_____________________________; Выполняем знаковое расширение регистра dx
  51. ________div ____bx______________________; Выполняем деление значения в регистре ax на bx (10)
  53. ________mov ____cl, 8___________________; Копируем число 8 в регистр cl
  54. ________shl ____ax, cl__________________; Выполняем логический сдвиг влево на количество в регистре cl
  55. ________xchg ___al, dl__________________; Выполняем обмен содержимого регистров al и dl
  56. ________or _____ax, 3030h_______________; Выполняем логическое ИЛИ над ax с 3030
  57. ________xchg ___ax, bx__________________; Выполняем обмен содержимого регистров ax и bx
  59. ________mov ____ah, 02h_________________; Копируем значение функции вывода на консоль в регистр ah
  60. ________cmp ____bh, 30h_________________; Сравниваем значение в регистре ch c 30h
  61. ________je _____PrintOneDigit___________; Если ZF=1, то прыгаем на метку PrintOneDigit
  63. ________mov ____dl, bh__________________; Копируем значение регистра ch в регистр dl
  64. ________int ____21h_____________________; Вызываем прерывание DOS
  66. ____PrintOneDigit:
  67. ________mov ____dl, bl__________________; Копируем значение регистра cl в регистр dl
  68. ________int ____21h_____________________; Вызываем прерывание DOS
  69. ________ret_____________________________; Возврат из процедуры
  70. ____PrintNumber endp
  72. code ends ______________________________; Конец сегмента кода
  73. end main _______________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda