ХАНДЫФАР

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

Пример использования функции ScanFormatString для ввода форматированной строки в которой присутствует спецификатор %с.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____askUser___db "Введите символ: \0"
8. ____fmtoutput db "\nВы ввели: %с\0"
9. ____fmtinput _db "%с"
10. ____char______db ?
11. data ends
13. code segment public
14. ____assume _ds:data, cs:code
15. ____include Handyfar.inc
17. ____main proc
18. ________call____SetDataSegment
20. ________lea_____ax, ds:[askUser]
21. ________call____WriteString
23. ________lea_____ax, ds:[char]
24. ________push____ax
25. ________lea_____ax, ds:[fmtinput]
26. ________call____ScanFormatString
27. ________add_____sp, 2
29. ________mov_____al, char
30. ________push____ax
31. ________lea_____ax, ds:[fmtoutput]
32. ________call____PrintFormatString
33. ________add_____sp, 2
35. ________xor_____al, al
36. ________call____ExitProcess
37. ____main endp
39. code ends
40. end main

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

Пример использования функции ScanFormatString для ввода форматированной строки в которой присутствует спецификатор %с.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____askUser___db "Введите символ: \0"
8. ____fmtoutput db "\nВы ввели: %с\0"
9. ____fmtinput _db "%с"
10. ____char______db ?
11. data ends
13. code segment public ________________; Начало сегмента кода
14. ____assume _ds:data, cs:code
15. ____include Handyfar.inc____________; Подключаем файл с функциями
17. ____main proc ______________________; Начало процедуры main
18. ________call____SetDataSegment______; Вызываем процедуру SetDataSegment
20. ________lea_____ax, ds:[askUser]____; Загружаем адрес переменной askUser в регистр ds:ax
21. ________call____WriteString_________; Вызываем процедуру WriteString(ax:askUser)
23. ________lea_____ax, ds:[char]_______; Загружаем адрес переменной char в регистр ds:ax
24. ________push____ax__________________; 2-й: Сохраняем значение регистра ax в стеке
25. ________lea_____ax, ds:[fmtinput]___; 1-й: Загружаем адрес строки формата fmtinput в регистр ds:ax
26. ________call____ScanFormatString____; Вызываем процедуру ScanFormatString(ax:fmtinput, char)
27. ________add_____sp, 2_______________; Выравниваем стек
29. ________mov_____al, char____________; Копируем значение переменной char в регистр al
30. ________push____ax________________—_; 2-й: Сохраняем значение регистра ax в стеке
31. ________lea_____ax, ds:[fmtoutput]__; 1-й: Загружаем адрес строки формата fmtoutput в регистр ds:ax
32. ________call____PrintFormatString_—_; Вызываем процедуру PrintFormatString(ax:fmtoutput, char)
33. ________add_____sp, 2_______________; Выравниваем стек
35. ________xor_____al, al______________; Обнуляем регистр al
36. ________call____ExitProcess_________; Вызываем процедуру ExitProcess
37. ____main endp ______________________; Конец процедуры main
39. code ends __________________________; Конец сегмента кода
40. end main ___________________________; Конец файла. Точкой входа указывается процедура main

Пример использования функции ScanFormatString для ввода форматированной строки в которой присутствует спецификатор %s.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____askUser ____db "Введите свое полное ___________________имя: \0"
8. ____fmtoutput __db "\nВаше полное имя %s ___________________%s %s\0"
9. ____fmtinput ___db "%s %s %s"
10. ____first_name _db 20 dup(0)
11. ____middle_name db 20 dup(0)
12. ____last_name __db 20 dup(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_____ax, ds:[askUser]
23. ________call____WriteString
25. ________lea_____ax, ds:[middle_name]
26. ________push____ax
27. ________lea_____ax, ds:[first_name]
28. ________push____ax
29. ________lea_____ax, ds:[last_name]
30. ________push____ax
31. ________lea_____ax, ds:[fmtinput]
32. ________call____ScanFormatString
33. ________add_____sp, 6
35. ________lea_____ax, ds:[middle_name]
36. ________push____ax
37. ________lea_____ax, ds:[first_name]
38. ________push____ax
39. ________lea_____ax, ds:[last_name]
40. ________push____ax
41. ________lea_____ax, ds:[fmtoutput]
42. ________call____PrintFormatString
43. ________add_____sp, 6
45. ________xor_____al, al
46. ________call____ExitProcess
47. ____main endp
49. code ends
50. end main

Пример использования функции ScanFormatString для ввода форматированной строки в которой присутствует спецификатор %s.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____askUser ____db "Введите свое полное имя: \0"
8. ____fmtoutput __db "\nВаше полное имя %s %s %s\0"
9. ____fmtinput ___db "%s %s %s"
10. ____first_name _db 20 dup(0)
11. ____middle_name db 20 dup(0)
12. ____last_name __db 20 dup(0)
13. data ends
15. code segment public __________________; Начало сегмента кода
16. ____assume _ds:data, cs:code
17. ____include Handyfar.inc______________; Подключаем файл с функциями
19. ____main proc ________________________; Начало процедуры main
20. ________call____SetDataSegment________; Вызываем процедуру SetDataSegment
22. ________lea_____ax, ds:[askUser]______; Загружаем адрес переменной askUser в регистр ds:ax
23. ________call____WriteString___________; Вызываем процедуру WriteString(ax:askUser)
25. ________lea_____ax, ds:[middle_name]__; Загружаем адрес переменной middle_name в регистр ds:ax
26. ________push____ax____________________; 4-й: Сохраняем значение регистра ax в стеке
27. ________lea_____ax, ds:[first_name]___; Загружаем адрес переменной first_name в регистр ds:ax
28. ________push____ax____________________; 3-й: Сохраняем значение регистра ax в стеке
29. ________lea_____ax, ds:[last_name]____; Загружаем адрес переменной last_name в регистр ds:ax
30. ________push____ax____________________; 2-й: Сохраняем значение регистра ax в стеке
31. ________lea_____ax, ds:[fmtinput]_____; 1-й: Загружаем адрес строки формата fmtinput в регистр ds:ax
32. ________call____ScanFormatString______; Вызываем процедуру ScanFormatString(ax:fmtinput, ...)
33. ________add_____sp, 6_________________; Выравниваем стек
35. ________lea_____ax, ds:[middle_name]__; Загружаем адрес переменной middle_name в регистр ds:ax
36. ________push____ax____________________; 4-й: Сохраняем значение регистра ax в стеке
37. ________lea_____ax, ds:[first_name]___; Загружаем адрес переменной first_name в регистр ds:ax
38. ________push____ax____________________; 3-й: Сохраняем значение регистра ax в стеке
39. ________lea_____ax, ds:[last_name]____; Загружаем адрес переменной last_name в регистр ds:ax
40. ________push____ax____________________; 2-й: Сохраняем значение регистра ax в стеке
41. ________lea_____ax, ds:[fmtoutput]____; 1-й: Загружаем адрес строки формата fmtoutput в регистр ds:ax
42. ________call____PrintFormatString_—___; Вызываем процедуру PrintFormatString(ax:fmtoutput, ...)
43. ________add_____sp, 6_________________; Выравниваем стек
45. ________xor_____al, al________________; Обнуляем регистр al
46. ________call____ExitProcess___________; Вызываем процедуру ExitProcess
47. ____main endp ________________________; Конец процедуры main
49. code ends ____________________________; Конец сегмента кода
50. end main _____________________________; Конец файла. Точкой входа указывается процедура main

Для того чтобы считать несколько слов в один буффер необходимо спользовать символ (&), который переводится с английского как (и).

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____askUser __db "Введите свое полное _________________имя: \0"
8. ____fmtoutput db "\nВаше полное имя %s\0"
9. ____fmtinput _db "%s"
10. ____full_name db 50 dup(0)
11. data ends
13. code segment public
14. ____assume _ds:data, cs:code
15. ____include Handyfar.inc
17. ____main proc
18. ________call____SetDataSegment
20. ________lea_____ax, ds:[askUser]
21. ________call____WriteString
23. ________lea_____ax, ds:[full_name]
24. ________push____ax
25. ________lea_____ax, ds:[fmtinput]
26. ________call____ScanFormatString
27. ________add_____sp, 2
29. ________lea_____ax, ds:[full_name]
30. ________push____ax
31. ________lea_____ax, ds:[fmtoutput]
32. ________call____PrintFormatString
33. ________add_____sp, 2
35. ________xor_____al, al
36. ________call____ExitProcess
37. ____main endp
39. code ends
40. end main

Для того чтобы считать несколько слов в один буффер необходимо спользовать символ (&), который переводится с английского как (и).

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____askUser __db "Введите свое полное имя: \0"
8. ____fmtoutput db "\nВаше полное имя %s\0"
9. ____fmtinput _db "%s"
10. ____full_name db 50 dup(0)
11. data ends
13. code segment public ________________; Начало сегмента кода
14. ____assume _ds:data, cs:code
15. ____include Handyfar.inc____________; Подключаем файл с функциями
17. ____main proc ______________________; Начало процедуры main
18. ________call____SetDataSegment______; Вызываем процедуру SetDataSegment
20. ________lea_____ax, ds:[askUser]____; Загружаем адрес переменной askUser в регистр ds:ax
21. ________call____WriteString_________; Вызываем процедуру WriteString(ax:askUser)
23. ________lea_____ax, ds:[full_name]__; Загружаем адрес переменной full_name в регистр ds:ax
24. ________push____ax__________________; 2-й: Сохраняем значение регистра ax в стеке
25. ________lea_____ax, ds:[fmtinput]___; 1-й: Загружаем адрес строки формата fmtinput в регистр ds:ax
26. ________call____ScanFormatString____; Вызываем процедуру ScanFormatString(ax:fmtinput, full_name)
27. ________add_____sp, 2_______________; Выравниваем стек
29. ________lea_____ax, ds:[full_name]__; Загружаем адрес переменной full_name в регистр ds:ax
30. ________push____ax__________________; 2-й: Сохраняем значение регистра ax в стеке
31. ________lea_____ax, ds:[fmtoutput]__; 1-й: Загружаем адрес строки формата fmtoutput в регистр ds:ax
32. ________call____PrintFormatString_—_; Вызываем процедуру PrintFormatString(ax:fmtoutput, full_name)
33. ________add_____sp, 2_______________; Выравниваем стек
35. ________xor_____al, al______________; Обнуляем регистр al
36. ________call____ExitProcess_________; Вызываем процедуру ExitProcess
37. ____main endp ______________________; Конец процедуры main
39. code ends __________________________; Конец сегмента кода
40. end main ___________________________; Конец файла. Точкой входа указывается процедура main

Пример использования функции ScanFormatString для ввода форматированной строки в которой присутствует спецификатор %s, %c, %. и %d.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____askUser __db "Введите свое имя, пол и _________________возраст: \0"
8. ____fmtoutput db "ИМЯ: %.4s\nПОЛ: _________________%.4c\nВОЗРАСТ: %d\0"
9. ____fmtinput _db "%s %c %d"
10. ____user_name db 20 dup(0)
11. ____user_sex _db ?
12. ____user_age _dw ?
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_____ax, ds:[askUser]
23. ________call____WriteString
25. ________lea_____ax, ds:[user_age]
26. ________push____ax
27. ________lea_____ax, ds:[user_sex]
28. ________push____ax
29. ________lea_____ax, ds:[user_name]
30. ________push____ax
31. ________lea_____ax, ds:[fmtinput]
32. ________call____ScanFormatString
33. ________add_____sp, 6
35. ________call____ClearScreen_
37. ________push____user_age
38. ________mov_____al, user_sex
39. ________call____ToUpperChar
40. ________push____ax
41. ________lea_____ax, ds:[user_name]
42. ________call____ToUpperString
43. ________push____ax
44. ________lea_____ax, ds:[fmtoutput]
45. ________call____PrintFormatString
46. ________add_____sp, 6
48. ________xor_____al, al
49. ________call____ExitProcess
50. ____main endp
52. code ends
53. end main

Пример использования функции ScanFormatString для ввода форматированной строки в которой присутствует спецификатор %s, %c, %. и %d.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____askUser __db "Введите свое имя, пол и возраст: \0"
8. ____fmtoutput db "ИМЯ: %.4s\nПОЛ: %.4c\nВОЗРАСТ: %d\0"
9. ____fmtinput _db "%s %c %d"
10. ____user_name db 20 dup(0)
11. ____user_sex _db ?
12. ____user_age _dw ?
13. data ends
15. code segment public ________________; Начало сегмента кода
16. ____assume _ds:data, cs:code
17. ____include Handyfar.inc____________; Подключаем файл с функциями
19. ____main proc ______________________; Начало процедуры main
20. ________call____SetDataSegment______; Вызываем процедуру SetDataSegment
22. ________lea_____ax, ds:[askUser]____; Загружаем адрес переменной askUser в регистр ds:ax
23. ________call____WriteString_________; Вызываем процедуру WriteString(ax:askUser)
25. ________lea_____ax, ds:[user_age]___; Загружаем адрес переменной user_age в регистр ds:ax
26. ________push____ax__________________; 4-й: Сохраняем значение регистра ax в стеке
27. ________lea_____ax, ds:[user_sex]___; Загружаем адрес переменной user_sex в регистр ds:ax
28. ________push____ax__________________; 3-й: Сохраняем значение регистра ax в стеке
29. ________lea_____ax, ds:[user_name]__; Загружаем адрес переменной user_name в регистр ds:ax
30. ________push____ax__________________; 2-й: Сохраняем значение регистра ax в стеке
31. ________lea_____ax, ds:[fmtinput]___; 1-й: Загружаем адрес строки формата fmtinput в регистр ds:ax
32. ________call____ScanFormatString____; Вызываем процедуру ScanFormatString(ax:fmtinput, ...)
33. ________add_____sp, 6_______________; Выравниваем стек
35. ________call____ClearScreen_________; Вызываем процедуру ClearScreen для отчистки экрана
37. ________push____user_age____________; 4-й: Сохраняем значение переменной user_age в стеке
38. ________mov_____al, user_sex________; Копируем значение переменной user_sex в регистр al
39. ________call____ToUpperChar_________; Вызываем процедуру ToUpperChar(al:user_sex)
40. ________push____ax__________________; 3-й: Сохраняем значение регистра ax в стеке
41. ________lea_____ax, ds:[user_name]__; Загружаем адрес переменной user_name в регистр ds:ax
42. ________call____ToUpperString_______; Вызываем процедуру ToUpperString(ax:user_name)
43. ________push____ax__________________; 2-й: Сохраняем значение регистра ax в стеке
44. ________lea_____ax, ds:[fmtoutput]__; 1-й: Загружаем адрес строки формата fmtoutput в регистр ds:ax
45. ________call____PrintFormatString_—_; Вызываем процедуру PrintFormatString(ax:fmtoutput, ...)
46. ________add_____sp, 6_______________; Выравниваем стек
48. ________xor_____al, al______________; Обнуляем регистр al
49. ________call____ExitProcess_________; Вызываем процедуру ExitProcess
50. ____main endp ______________________; Конец процедуры main
52. code ends __________________________; Конец сегмента кода
53. end main ___________________________; Конец файла. Точкой входа указывается процедура main

Функция ScanFormatString распознает не только спецификаторы но и текст в качестве формата. В следующем примере пользователю нужно ввести не только имя но и то, что указанно перед спецификатором %s. Если условия не будут выполнены, то результат будет неправильным.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____askUser __db "Введите свое имя: \0"
8. ____fmtoutput db "\nВаше имя %s\0"
9. ____fmtinput _db "Меня зовут %s"
10. ____user_name db 20 dup(0)
11. data ends
13. code segment public
14. ____assume _ds:data, cs:code
15. ____include Handyfar.inc
17. ____main proc
18. ________call____SetDataSegment
20. ________lea_____ax, ds:[askUser]
21. ________call____WriteString
23. ________lea_____ax, ds:[user_name]
24. ________push____ax
25. ________lea_____ax, ds:[fmtinput]
26. ________call____ScanFormatString
27. ________add_____sp, 2
29. ________lea_____ax, ds:[user_name]
30. ________push____ax
31. ________lea_____ax, ds:[fmtoutput]
32. ________call____PrintFormatString
33. ________add_____sp, 2
35. ________xor_____al, al
36. ________call____ExitProcess
37. ____main endp
39. code ends
40. end main

Функция ScanFormatString распознает не только спецификаторы но и текст в качестве формата. В следующем примере пользователю нужно ввести не только имя но и то, что указанно перед спецификатором %s. Если условия не будут выполнены, то результат будет неправильным.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____askUser __db "Введите свое имя: \0"
8. ____fmtoutput db "\nВаше имя %s\0"
9. ____fmtinput _db "Меня зовут %s"
10. ____user_name db 20 dup(0)
11. data ends
13. code segment public ________________; Начало сегмента кода
14. ____assume _ds:data, cs:code
15. ____include Handyfar.inc____________; Подключаем файл с функциями
17. ____main proc ______________________; Начало процедуры main
18. ________call____SetDataSegment______; Вызываем процедуру SetDataSegment
20. ________lea_____ax, ds:[askUser]____; Загружаем адрес переменной askUser в регистр ds:ax
21. ________call____WriteString_________; Вызываем процедуру WriteString(ax:askUser)
23. ________lea_____ax, ds:[user_name]__; Загружаем адрес переменной user_name в регистр ds:ax
24. ________push____ax__________________; 2-й: Сохраняем значение регистра ax в стеке
25. ________lea_____ax, ds:[fmtinput]___; 1-й: Загружаем адрес строки формата fmtinput в регистр ds:ax
26. ________call____ScanFormatString____; Вызываем процедуру ScanFormatString(ax:fmtinput, user_name)
27. ________add_____sp, 2_______________; Выравниваем стек
29. ________lea_____ax, ds:[user_name]__; Загружаем адрес переменной user_name в регистр ds:ax
30. ________push____ax__________________; 2-й: Сохраняем значение регистра ax в стеке
31. ________lea_____ax, ds:[fmtoutput]__; 1-й: Загружаем адрес строки формата fmtoutput в регистр ds:ax
32. ________call____PrintFormatString_—_; Вызываем процедуру PrintFormatString(ax:fmtoutput, user_name)
33. ________add_____sp, 2_______________; Выравниваем стек
35. ________xor_____al, al______________; Обнуляем регистр al
36. ________call____ExitProcess_________; Вызываем процедуру ExitProcess
37. ____main endp ______________________; Конец процедуры main
39. code ends __________________________; Конец сегмента кода
40. end main ___________________________; Конец файла. Точкой входа указывается процедура main

Вот более сложный но практичный пример работы со структурой PERSON. В данном примере мы создадим функции сеттеры и геттеры для записи данных в структуру и для взятия данных из структуры.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. PERSON struc
7. ____m_name ___db 20 dup(0)
8. ____m_surname db 20 dup(0)
9. ____m_age ____dw ?
10. PERSON ends
12. data segment public
13. ____EVGENII PERSON <>
14. ____SERGEII PERSON <>
15. data ends
17. data segment public
18. ____u_name ___db "Введите своё имя: \0"
19. ____u_surname db "\nВведите свою фамилию: _________________\0"
20. ____u_age ____db "\nВведите свой возраст: _________________\0"
21. ____fmtstr ___db "\n\nИмя: %.4s\nФамилия: _________________%s\nВозраст: %d\n\0"
22. data ends
24. code segment public
25. ____assume _ds:data, cs:code
26. ____include Handyfar.inc
28. ____main proc
29. ________call____SetDataSegment
31. ________lea_____si, ds:[EVGENII]
33. ________lea_____ax, ds:[u_name]
34. ________call____WriteString
35. ________call____SetPersonName
37. ________lea_____ax, ds:[u_surname]
38. ________call____WriteString
39. ________call____SetPersonSurname
41. ________lea_____ax, ds:[u_age]
42. ________call____WriteString
43. ________call____SetPersonAge
45. ________call____GetPersonAge
46. ________push____ax
47. ________call____GetPersonSurname
48. ________push____ax
49. ________call____GetPersonName
50. ________push____ax
51. ________lea_____ax, ds:[fmtstr]
52. ________call____PrintFormatString
53. ________add_____sp, 6
55. ________call____PrintNewLine
57. ________lea_____si, ds:[SERGEII]
59. ________lea_____ax, ds:[u_name]
60. ________call____WriteString
61. ________call____SetPersonName
63. ________lea_____ax, ds:[u_surname]
64. ________call____WriteString
65. ________call____SetPersonSurname
67. ________lea_____ax, ds:[u_age]
68. ________call____WriteString
69. ________call____SetPersonAge
71. ________call____GetPersonAge
72. ________push____ax
73. ________call____GetPersonSurname
74. ________push____ax
75. ________call____GetPersonName
76. ________push____ax
77. ________lea_____ax, ds:[fmtstr]
78. ________call____PrintFormatString
79. ________add_____sp, 6
81. ________xor_____al, al
82. ________call____ExitProcess
83. ____main endp
85. ____SetPersonName proc
86. ________push____ax
87. ________push____si
89. ____data segment
90. ________set_name db "%s", 0
91. ____data ends
93. ________lea_____ax, [si].m_name
94. ________push____ax
95. ________lea_____ax, ds:[set_name]
96. ________call____ScanFormatString
97. ________add_____sp, 2
99. ________pop_____si
100. ________pop_____ax
101. ________ret
102. ____SetPersonName endp
104. ____SetPersonSurname proc
105. ________push____ax
106. ________push____si
108. ____data segment
109. ________set_surname db "%s", 0
110. ____data ends
112. ________lea_____ax, [si].m_surname
113. ________push____ax
114. ________lea_____ax, ds:[set_surname]
115. ________call____ScanFormatString
116. ________add_____sp, 2
118. ________pop_____si
119. ________pop_____ax
120. ________ret
121. ____SetPersonSurname endp
123. ____SetPersonAge proc
124. ________push____ax
125. ________push____si
127. ____data segment
128. ________set_age db "%d", 0
129. ____data ends
131. ________lea_____ax, [si].m_age
132. ________push____ax
133. ________lea_____ax, ds:[set_age]
134. ________call____ScanFormatString
135. ________add_____sp, 2
137. ________pop_____si
138. ________pop_____ax
139. ________ret
140. ____SetPersonAge endp
142. ____GetPersonName proc
143. ________lea_____ax, [si].m_name
144. ________ret
145. ____GetPersonName endp
147. ____GetPersonSurname proc
148. ________lea_____ax, [si].m_surname
149. ________ret
150. ____GetPersonSurname endp
152. ____GetPersonAge proc
153. ________lea_____ax, [si].m_age
154. ________ret
155. ____GetPersonAge endp
157. code ends
158. end main

Вот более сложный но практичный пример работы со структурой PERSON. В данном примере мы создадим функции сеттеры и геттеры для записи данных в структуру и для взятия данных из структуры.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. PERSON struc
7. ____m_name ___db 20 dup(0)
8. ____m_surname db 20 dup(0)
9. ____m_age ____dw ?
10. PERSON ends
12. data segment public
13. ____EVGENII PERSON <>
14. ____SERGEII PERSON <>
15. data ends
17. data segment public
18. ____u_name ___db "Введите своё имя: \0"
19. ____u_surname db "\nВведите свою фамилию: \0"
20. ____u_age ____db "\nВведите свой возраст: \0"
21. ____fmtstr ___db "\n\nИмя: %.4s\nФамилия: %s\nВозраст: %d\n\0"
22. data ends
24. code segment public __________________; Начало сегмента кода
25. ____assume _ds:data, cs:code
26. ____include Handyfar.inc______________; Подключаем файл с функциями
28. ____main proc ________________________; Начало процедуры main
29. ________call____SetDataSegment________; Вызываем процедуру SetDataSegment
31. ________lea_____si, ds:[EVGENII]______; Загружаем адрес EVGENII в ds:si
33. ________lea_____ax, ds:[u_name]_______; Загружаем адрес переменной u_name в регистр ds:ax
34. ________call____WriteString___________; Вызываем процедуру WriteString(ax:u_name)
35. ________call____SetPersonName_________; Вызываем SetPersonName(si)
37. ________lea_____ax, ds:[u_surname]____; Загружаем адрес переменной u_surname в регистр ds:ax
38. ________call____WriteString___________; Вызываем процедуру WriteString(ax:u_surname)
39. ________call____SetPersonSurname______; Вызываем SetPersonSurname(si)
41. ________lea_____ax, ds:[u_age]________; Загружаем адрес переменной u_age в регистр ds:ax
42. ________call____WriteString___________; Вызываем процедуру WriteString(ax:u_age)
43. ________call____SetPersonAge__________; Вызываем SetPersonAge(si)
45. ________call____GetPersonAge__________; Вызываем GetPersonAge() := AX
46. ________push____ax____________________; 4-й: Сохраняем значение регистра ax в стеке
47. ________call____GetPersonSurname______; Вызываем GetPersonSurname() := AX
48. ________push____ax____________________; 3-й: Сохраняем значение регистра ax в стеке
49. ________call____GetPersonName_________; Вызываем GetPersonName() := AX
50. ________push____ax____________________; 2-й: Сохраняем значение регистра ax в стеке
51. ________lea_____ax, ds:[fmtstr]_______; 1-й: Загружаем адрес строки формата fmtstr в регистр
52. ________call____PrintFormatString_—___; Вызываем процедуру PrintFormatString(ax:fmtstr, ...)
53. ________add_____sp, 6_________________; Выравниваем стек
55. ________call____PrintNewLine
57. ________lea_____si, ds:[SERGEII]______; Загружаем адрес SERGEII в ds:si
59. ________lea_____ax, ds:[u_name]_______; Загружаем адрес переменной u_name в регистр ds:ax
60. ________call____WriteString___________; Вызываем процедуру WriteString(ax:u_name)
61. ________call____SetPersonName_________; Вызываем SetPersonName(si)
63. ________lea_____ax, ds:[u_surname]____; Загружаем адрес переменной u_surname в регистр ds:ax
64. ________call____WriteString___________; Вызываем процедуру WriteString(ax:u_surname)
65. ________call____SetPersonSurname______; Вызываем SetPersonSurname(si)
67. ________lea_____ax, ds:[u_age]________; Загружаем адрес переменной u_age в регистр ds:ax
68. ________call____WriteString___________; Вызываем процедуру WriteString(ax:u_age)
69. ________call____SetPersonAge__________; Вызываем SetPersonAge(si)
71. ________call____GetPersonAge__________; Вызываем GetPersonAge() := AX
72. ________push____ax____________________; 4-й: Сохраняем значение регистра ax в стеке
73. ________call____GetPersonSurname______; Вызываем GetPersonSurname() := AX
74. ________push____ax____________________; 3-й: Сохраняем значение регистра ax в стеке
75. ________call____GetPersonName_________; Вызываем GetPersonName() := AX
76. ________push____ax____________________; 2-й: Сохраняем значение регистра ax в стеке
77. ________lea_____ax, ds:[fmtstr]_______; 1-й: Загружаем адрес строки формата fmtstr в регистр ds:ax
78. ________call____PrintFormatString_—___; Вызываем процедуру PrintFormatString(ax:fmtstr, ...)
79. ________add_____sp, 6_________________; Выравниваем стек
81. ________xor_____al, al________________; Обнуляем регистр al
82. ________call____ExitProcess___________; Вызываем процедуру ExitProcess
83. ____main endp ________________________; Конец процедуры main
85. ____SetPersonName proc________________; Начало процедуры SetPersonName
86. ________push____ax
87. ________push____si
89. ____data segment
90. ________set_name db "%s", 0
91. ____data ends
93. ________lea_____ax, [si].m_name_______; Загружаем адрес переменной m_name в регистр ds:ax
94. ________push____ax____________________; 2-й: Сохраняем значение регистра ax в стеке
95. ________lea_____ax, ds:[set_name]_____; 1-й: Загружаем адрес строки формата set_name в регистр ds:ax
96. ________call____ScanFormatString______; Вызываем процедуру ScanFormatString(ax:set_name, ...)
97. ________add_____sp, 2_________________; Выравниваем стек
99. ________pop_____si
100. ________pop_____ax
101. ________ret___________________________; Возврат из процедуры
102. ____SetPersonName endp________________; Конец процедуры SetPersonName
104. ____SetPersonSurname proc_____________; Начало процедуры SetPersonSurname
105. ________push____ax
106. ________push____si
108. ____data segment
109. ________set_surname db "%s", 0
110. ____data ends
112. ________lea_____ax, [si].m_surname____; Загружаем адрес переменной m_surname в регистр ds:ax
113. ________push____ax____________________; 2-й: Сохраняем значение регистра ax в стеке
114. ________lea_____ax, ds:[set_surname]__; 1-й: Загружаем адрес строки формата set_surname в ds:ax
115. ________call____ScanFormatString______; Вызываем процедуру ScanFormatString(ax:set_surname, ...)
116. ________add_____sp, 2_________________; Выравниваем стек
118. ________pop_____si
119. ________pop_____ax
120. ________ret___________________________; Возврат из процедуры
121. ____SetPersonSurname endp_____________; Конец процедуры SetPersonSurname
123. ____SetPersonAge proc_________________; Начало процедуры SetPersonAge
124. ________push____ax
125. ________push____si
127. ____data segment
128. ________set_age db "%d", 0
129. ____data ends
131. ________lea_____ax, [si].m_age________; Загружаем адрес переменной m_age в регистр ds:ax
132. ________push____ax____________________; 2-й: Сохраняем значение регистра ax в стеке
133. ________lea_____ax, ds:[set_age]______; 1-й: Загружаем адрес строки формата set_age в регистр ds:ax
134. ________call____ScanFormatString______; Вызываем процедуру ScanFormatString(ax:set_age, ...)
135. ________add_____sp, 2_________________; Выравниваем стек
137. ________pop_____si
138. ________pop_____ax
139. ________ret___________________________; Возврат из процедуры
140. ____SetPersonAge endp_________________; Конец процедуры SetPersonAge
142. ____GetPersonName proc________________; Начало процедуры GetPersonName
143. ________lea_____ax, [si].m_name_______; Загружаем адрес [si].m_name в регистр ax
144. ________ret___________________________; Возврат из процедуры
145. ____GetPersonName endp________________; Конец процедуры GetPersonName
147. ____GetPersonSurname proc_____________; Начало процедуры GetPersonSurname
148. ________lea_____ax, [si].m_surname____; Загружаем адрес [si].m_surname в регистр ax
149. ________ret___________________________; Возврат из процедуры
150. ____GetPersonSurname endp_____________; Конец процедуры GetPersonSurname
152. ____GetPersonAge proc_________________; Начало процедуры GetPersonAge
153. ________lea_____ax, [si].m_age________; Загружаем адрес [si].m_age в регистр ax
154. ________ret___________________________; Возврат из процедуры
155. ____GetPersonAge endp_________________; Конец процедуры GetPersonAge
157. code ends ____________________________; Конец сегмента кода
158. end main _____________________________; Конец файла. Точкой входа указывается процедура main