ХАНДЫФАР

Функция GetCursorPosition извлекает текущую позицию каретки (курсора) на экране текстового режима.

Параметры:

  • Функция не принимает параметров.

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

  • AH: Номер ряда (строка), начиная с 0.
  • AL: Номер колонки (столбец), начиная с 0.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db "Привет, Мир Ассемблера!\0"
  8. data ends
  10. code segment public
  11. ____assume _ds:data, cs:code
  12. ____include Handyfar.inc
  14. ____main proc
  15. ________call____SetDataSegment
  17. ________mov_____ax, 0606h
  18. ________call____SetCursorPosition
  20. ________lea_____ax, ds:[string]
  21. ________call____WriteString
  23. ________call____GetCursorPosition
  25. ________add_____ah, 6
  26. ________add_____al, 6
  27. ________call____SetCursorPosition
  29. ________lea_____ax, ds:[string]
  30. ________call____WriteString
  32. ________xor_____al, al
  33. ________call____ExitProcess
  34. ____main endp
  36. code ends
  37. end main
Функция GetCursorPosition извлекает текущую позицию каретки (курсора) на экране текстового режима.

Параметры:

  • Функция не принимает параметров.

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

  • AH: Номер ряда (строка), начиная с 0.
  • AL: Номер колонки (столбец), начиная с 0.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db "Привет, Мир Ассемблера!\0"
  8. data ends
  10. code segment public _______________; Начало сегмента кода
  11. ____assume _ds:data, cs:code
  12. ____include Handyfar.inc___________; Подключаем файл с функциями
  14. ____main proc _____________________; Начало процедуры main
  15. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  17. ________mov_____ax, 0606h__________; Копируем новую позицию курсора в регистр ax
  18. ________call____SetCursorPosition__; Вызываем процедуру SetCursorPosition(ah:06, al:06)
  20. ________lea_____ax, ds:[string]____; Загружаем адрес переменной string в регистр ds:ax
  21. ________call____WriteString________; Вызываем процедуру WriteString(ax:string)
  23. ________call____GetCursorPosition__; Вызываем процедуру GetCursorPosition() := AX
  25. ________add_____ah, 6______________; Прибавляем к ряду 6
  26. ________add_____al, 6______________; Прибавляем к колонке 6
  27. ________call____SetCursorPosition__; Вызываем процедуру SetCursorPosition(ah:12, al:12)
  29. ________lea_____ax, ds:[string]____; Загружаем адрес переменной string в регистр ds:ax
  30. ________call____WriteString________; Вызываем процедуру WriteString(ax:string)
  32. ________xor_____al, al_____________; Обнуляем регистр al
  33. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  34. ____main endp _____________________; Конец процедуры main
  36. code ends _________________________; Конец сегмента кода
  37. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda