ХАНДЫФАР

Функция GetKeyState возвращает код нажатой пользователем клавиши.

Параметры:

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

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

  • AX: Код нажатой пользователем клавиши.

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

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

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

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

ПРИМЕР 1:

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db "Нажмите ALT+F4, чтобы "
  8. ___________db "выйти из программы...\n\0"
  9. data ends
  11. code segment public
  12. ____assume _ds:data, cs:code
  13. ____include Handyfar.inc
  14. ____include Handykey.inc
  16. ____main proc
  17. ________call____SetDataSegment
  19. ________lea_____ax, ds:[string]
  20. ________call____WriteString
  22. ____WaitUserKeyPress:
  23. ________call____GetKeyState
  24. ________cmp_____ax, KB_ALT_F4
  25. ________jne_____WaitUserKeyPress
  27. ________xor_____al, al
  28. ________call____ExitProcess
  29. ____main endp
  31. code ends
  32. end main

ПРИМЕР 2:

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fmtout db "%b\n\0"
  8. ____number dw 0001000110100101b
  9. data ends
  11. code segment public
  12. ____assume _ds:data, cs:code
  13. ____include Handyfar.inc
  14. ____include Handykey.inc
  16. ____main proc
  17. ________call____SetDataSegment
  19. ________mov_____cx, 16
  21. ____MainLoop:
  22. ________push____cx
  24. ________push____number
  25. ________lea_____ax, ds:[fmtout]
  26. ________call____PrintFormatString
  27. ________add_____sp, 2
  29. ________call____GetKeyState
  30. ________cmp_____ax, KB_SPACE
  31. ________jne_____Done
  33. ________rol_____number, 1
  34. ________pop_____cx
  35. ________loop____MainLoop
  37. ____Done:
  38. ________xor_____al, al
  39. ________call____ExitProcess
  40. ____main endp
  42. code ends
  43. end main
Функция GetKeyState возвращает код нажатой пользователем клавиши.

Параметры:

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

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

  • AX: Код нажатой пользователем клавиши.

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

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

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

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

ПРИМЕР 1:

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db "Нажмите ALT+F4, чтобы выйти из программы...\n\0"
  8. data ends
  10. code segment public ______________; Начало сегмента кода
  11. ____assume _ds:data, cs:code
  12. ____include Handyfar.inc__________; Подключаем файл с функциями
  13. ____include Handykey.inc__________; Подключаем файл со значениями клавиш клавиатуры
  15. ____main proc ____________________; Начало процедуры main
  16. ________call____SetDataSegment____; Вызываем процедуру SetDataSegment
  18. ________lea_____ax, ds:[string]___; Загружаем адрес переменной string в регистр ds:ax
  19. ________call____WriteString_______; Вызываем процедуру WriteString(ax:string)
  21. ____WaitUserKeyPress:
  22. ________call____GetKeyState_______; Вызываем процедуру GetKeyState() := AX
  23. ________cmp_____ax, KB_ALT_F4_____; Сравниваем введённое пользователем значение с KB_ALT_F4
  24. ________jne_____WaitUserKeyPress__; Если ZF=0, то прыгаем на метку WaitUserKeyPress
  26. ________xor_____al, al____________; Обнуляем регистр al
  27. ________call____ExitProcess_______; Вызываем процедуру ExitProcess
  28. ____main endp ____________________; Конец процедуры main
  30. code ends ________________________; Конец сегмента кода
  31. end main _________________________; Конец файла. Точкой входа указывается процедура main

ПРИМЕР 2:

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fmtout db "%b\n\0"
  8. ____number dw 0001000110100101b
  9. data ends
  11. code segment public _______________; Начало сегмента кода
  12. ____assume _ds:data, cs:code
  13. ____include Handyfar.inc___________; Подключаем файл с функциями
  14. ____include Handykey.inc___________; Подключаем файл со значениями клавиш клавиатуры
  16. ____main proc _____________________; Начало процедуры main
  17. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  19. ________mov_____cx, 16_____________; Устанавливаем счётчик равным 16
  21. ____MainLoop:
  22. ________push____cx_________________; Сохраняем значение счётчика в стеке
  24. ________push____number_____________; 2-й: Сохраняем значение переменной number
  25. ________lea_____ax, ds:[fmtout]____; 1-й: Загружаем строки формата fmtout в регистр ds:ax
  26. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, number)
  27. ________add_____sp, 2______________; Выравниваем стек
  29. ________call____GetKeyState________; Вызываем процедуру GetKeyState() := AX
  30. ________cmp_____ax, KB_SPACE_______; Сравниваем введённое пользователем значение с KB_SPACE
  31. ________jne_____Done_______________; Если ZF=0, то прыгаем на метку Done
  33. ________rol_____number, 1__________; Поворачиваем биты влево на 1
  34. ________pop_____cx_________________; Выталкиваем значение счётчика из стека обратно в регистр сx
  35. ________loop____MainLoop___________; Выполняем цикл пока ZF≠0 или CX≠0
  37. ____Done:
  38. ________xor_____al, al_____________; Обнуляем регистр al
  39. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  40. ____main endp _____________________; Конец процедуры main
  42. code ends _________________________; Конец сегмента кода
  43. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda