ХАНДЫФАР

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