ХАНДЫФАР

Функция ReadString считывает пользовательский ввод с клавиатуры и сохраняет его в подготовленном буфере, завершающемся нулём 0. Ввод завершается при нажатии клавиши Enter, после чего в буфер добавляется символ завершения строки 0.

Параметры:

• AX: Указатель на буфер, в который будет сохранён пользовательский ввод.

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

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

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

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

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

• Функция не изменяет значения регистров, кроме тех, которые используются для считывания ввода.

• Ввод завершается при нажатии клавиши Enter, после чего в буфер добавляется символ завершения строки 0.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____askUser_db "Введите свое полное имя: \0"
8. ____output__db "\nВаше полное имя \0"
9. ____buffer__db 255 dup(0)
10. data ends
12. code segment public
13. ____assume _ds:data, cs:code
14. ____include Handyfar.inc
16. ____main proc
17. ________call____SetDataSegment
19. ________lea_____ax, ds:[askUser]
20. ________call____WriteString
22. ________lea_____ax, ds:[buffer]
23. ________call____ReadString
25. ________lea_____ax, ds:[output]
26. ________call____WriteString
28. ________lea_____ax, ds:[buffer]
29. ________call____WriteString
31. ________xor_____al, al
32. ________call____ExitProcess
33. ____main endp
35. code ends
36. end main

Функция ReadString считывает пользовательский ввод с клавиатуры и сохраняет его в подготовленном буфере, завершающемся нулём 0. Ввод завершается при нажатии клавиши Enter, после чего в буфер добавляется символ завершения строки 0.

Параметры:

• AX: Указатель на буфер, в который будет сохранён пользовательский ввод.

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

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

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

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

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

• Функция не изменяет значения регистров, кроме тех, которые используются для считывания ввода.

• Ввод завершается при нажатии клавиши Enter, после чего в буфер добавляется символ завершения строки 0.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____askUser_db "Введите свое полное имя: \0"
8. ____output__db "\nВаше полное имя \0"
9. ____buffer__db 255 dup(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_____ax, ds:[askUser]__; Загружаем адрес переменной askUser в регистр ds:ax
20. ________call____WriteString_______; Вызываем процедуру WriteString(ax:askUser)
22. ________lea_____ax, ds:[buffer]___; Загружаем адрес переменной buffer в регистр ds:ax
23. ________call____ReadString________; Вызываем процедуру ReadString(ax:buffer)
25. ________lea_____ax, ds:[output]___; Загружаем адрес переменной output в регистр ds:ax
26. ________call____WriteString_______; Вызываем процедуру WriteString(ax:output)
28. ________lea_____ax, ds:[buffer]___; Загружаем адрес переменной buffer в регистр ds:ax
29. ________call____WriteString_______; Вызываем процедуру WriteString(ax:buffer)
31. ________xor_____al, al____________; Обнуляем регистр al
32. ________call____ExitProcess_______; Вызываем процедуру ExitProcess
33. ____main endp ____________________; Конец процедуры main
35. code ends ________________________; Конец сегмента кода
36. end main _________________________; Конец файла. Точкой входа указывается процедура main