ХАНДЫФАР

Функция StringSplit разбивает строку на токены, используя разделители, и сохраняет их в подготовленном пользователем буфере. Если указатель на строку равен 0, функция завершает работу без изменений.

Параметры:

  • DS:AX: Указатель на строку, завершающуюся (\0) или 0.
  • ES:BX: Указатель на строку разделителей, завершающуюся (\0) или 0.
  • DS:CX: Указатель на подготовленный пользователем буфер для сохранения токенов.

Возвращаемое значение:

  • CX: Количество токенов, сохранённых в буфере. Если строка или буфер недействительны, возвращается 0.

Состояние флагов:

  • Функция не изменяет состояние флагов.

Особенности:

  • Токены сохраняются в подготовленном буфере, каждый токен завершается нулём 0.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db "Весенний ветер, лаская "
  8. ___________db "листву, шепчет тайны, "
  9. ___________db "даря аромат цветущих "
  10. ___________db "садов.\0"
  11. ____buffer db 80 dup(0)
  12. ____delims db " ,.\0"
  13. data ends
  15. code segment public
  16. ____assume _ds:data, cs:code
  17. ____include Handyfar.inc
  19. ____main proc
  20. ________call____SetDataSegment
  22. ________lea_____cx, ds:[buffer]
  23. ________lea_____bx, es:[delims]
  24. ________lea_____ax, ds:[string]
  25. ________call____StringSplit
  27. ________lea_____si, ds:[buffer]
  29. ____MainLoop:
  30. ________lodsb
  32. ________test____al, al
  33. ________jz______Skip
  35. ________call____PutChar
  36. ________jmp_____MainLoop
  38. ____Skip:
  39. ________call____PrintNewLine
  40. ________loop____MainLoop
  42. ________xor_____al, al
  43. ________call____ExitProcess
  44. ____main endp
  46. code ends
  47. end main
Функция StringSplit разбивает строку на токены, используя разделители, и сохраняет их в подготовленном пользователем буфере. Если указатель на строку равен 0, функция завершает работу без изменений.

Параметры:

  • DS:AX: Указатель на строку, завершающуюся (\0) или 0.
  • ES:BX: Указатель на строку разделителей, завершающуюся (\0) или 0.
  • DS:CX: Указатель на подготовленный пользователем буфер для сохранения токенов.

Возвращаемое значение:

  • CX: Количество токенов, сохранённых в буфере. Если строка или буфер недействительны, ____возвращается 0.

Состояние флагов:

  • Функция не изменяет состояние флагов.

Особенности:

  • Токены сохраняются в подготовленном буфере, каждый токен завершается нулём 0.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db "Весенний ветер, лаская листву, шепчет тайны, даря аромат цветущих садов.\0"
  8. ____buffer db 80 dup(0)
  9. ____delims db " ,.\0"
  10. data ends
  12. code segment public _____________; Начало сегмента кода
  13. ____assume _ds:data, cs:code
  14. ____include Handyfar.inc_________; Подключаем файл с функциями
  16. ____main proc ___________________; Начало процедуры main
  17. ________call____SetDataSegment___; Вызываем процедуру SetDataSegment
  19. ________lea_____cx, ds:[buffer]__; Загружаем адрес переменной buffer в регистр ds:cx
  20. ________lea_____bx, es:[delims]__; Загружаем адрес переменной delims в регистр es:bx
  21. ________lea_____ax, ds:[string]__; Загружаем адрес переменной string в регистр ds:ax
  22. ________call____StringSplit______; Вызываем процедуру StringSplit(ds:ax, es:bx, ds:cx) := CX
  24. ________lea_____si, ds:[buffer]__; Загружаем адрес переменной buffer в регистр ds:si
  26. ____MainLoop:
  27. ________lodsb____________________; Загружаем байт из регистра-источника si в регистр al
  29. ________test____al, al___________; Выполняем логическое сравнение значения в регистре al с 0
  30. ________jz______Skip_____________; Если ZF=1, то прыгаем на метку Skip
  32. ________call____PutChar__________; Вызываем процедуру PutChar(al)
  33. ________jmp_____MainLoop_________; Выполняем безусловный переход на метку MainLoop
  35. ____Skip:
  36. ________call____PrintNewLine_____; Вызываем процедуру PrintNewLine
  37. ________loop____MainLoop_________; Выполняем цикл пока CX≠0
  39. ________xor_____al, al___________; Обнуляем регистр al
  40. ________call____ExitProcess______; Вызываем процедуру ExitProcess
  41. ____main endp ___________________; Конец процедуры main
  43. code ends _______________________; Конец сегмента кода
  44. end main ________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda