ХАНДЫФАР

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

Параметры:

  • AX: Указатель на строку с именем файла, завершающуюся нулём 0.
  • BX: Дескриптор файла, полученный после вызова функций CreateFile или OpenFile.
  • Остальные аргументы должны передаваться через стек используя любой из доступных регистров.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fName___db "test.txt", 0
  8. ____fmtstr__db "Символ: %c\nСтрока: "
  9. ____________db "%s\nDEC: %.3d\nHEX: "
  10. ____________db "%.3h\nOCT: %.3o\nBIN: "
  11. ____________db "%.3b\nFPU: %.3f\0"
  12. ____string__db "Довгополов\0"
  13. ____fpunum__dq 41.56
  14. ____fHandle_dw ?
  15. data ends
  17. code segment public
  18. ____assume _ds:data, cs:code
  19. ____include Handyfar.inc
  21. ____main proc
  22. ________call____SetDataSegment
  24. ________mov_____bl, READ_WRITE
  25. ________lea_____ax, ds:[fName]
  26. ________call____OpenFile
  27. ________mov_____fHandle, ax
  29. ________fld_____qword ptr[fpunum]
  30. ________mov_____ax, 35
  31. ________push____ax
  32. ________push____ax
  33. ________push____ax
  34. ________push____ax
  35. ________lea_____ax, ds:[string]
  36. ________push____ax
  37. ________mov_____al, 'Д'
  38. ________push____ax
  39. ________mov_____bx, fHandle
  40. ________lea_____ax, ds:[fmtstr]
  41. ________call____PrintFormatFile
  42. ________add_____sp, 12
  44. ________mov_____ax, fHandle
  45. ________call____CloseHandle
  47. ________xor_____al, al
  48. ________call____ExitProcess
  49. ____main endp
  51. code ends
  52. end main
Функция PrintFormatFile используется для записи отформатированной строки в поток. Функция PrintFormatFile записывает строку, на которую указывает формат, в поток. Формат строки может содержать спецификаторы формата, начинающиеся с %, которые заменяются значениями переменных, передаваемых функции PrintFormatFile в качестве дополнительных аргументов.

Параметры:

  • AX: Указатель на строку с именем файла, завершающуюся нулём 0.
  • BX: Дескриптор файла, полученный после вызова функций CreateFile или OpenFile.
  • Остальные аргументы должны передаваться через стек используя любой из доступных регистров.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fName___db "test.txt", 0 ; Файл должен существовать в кодировке windows-1251
  8. ____fmtstr__db "Символ: %c\nСтрока: %s\nDEC: %.3d\nHEX: %.3h\nOCT: %.3o\nBIN: %.3b\nFPU: %.3f\0"
  9. ____string__db "Довгополов\0"
  10. ____fpunum__dq 41.56
  11. ____fHandle_dw ?
  12. data ends
  14. code segment public _______________; Начало сегмента кода
  15. ____assume _ds:data, cs:code
  16. ____include Handyfar.inc___________; Подключаем файл с функциями
  18. ____main proc _____________________; Начало процедуры main
  19. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  21. ________mov_____bl, READ_WRITE_____; 2-й: Устанавливаем атрибут чтение и запись в регистр bl
  22. ________lea_____ax, ds:[fName]_____; 1-й: Загружаем адрес строки fName в регистр ds:ax
  23. ________call____OpenFile___________; Вызываем процедуру OpenFile(ax:fName, bl:READ_WRITE) := AX и CF
  24. ________mov_____fHandle, ax________; Сохраняем файловый дескриптор в переменной fHandle
  26. ________fld_____qword ptr[fpunum]__; 9-й: Загружаем на вершину стека мат. сопроцессора fpunum
  27. ________mov_____ax, 35_____________; Копируем значение 35 в регистр ax
  28. ________push____ax_________________; 8-й: Сохраняем значение регистра ax в стеке
  29. ________push____ax_________________; 7-й: Сохраняем значение регистра ax в стеке
  30. ________push____ax_________________; 6-й: Сохраняем значение регистра ax в стеке
  31. ________push____ax_________________; 5-й: Сохраняем значение регистра ax в стеке
  32. ________lea_____ax, ds:[string]____; Загружаем адрес переменной string в регистр ds:ax
  33. ________push____ax_________________; 4-й: Сохраняем значение регистра ax в стеке
  34. ________mov_____al, 'Д'____________; Копируем значение символа 'Д' в регистр al
  35. ________push____ax_________________; 3-й: Сохраняем значение регистра ax в стеке
  36. ________mov_____bx, fHandle________; 2-й: Копируем значение файлового дескриптора fHandle в регистр bx
  37. ________lea_____ax, ds:[fmtstr]____; 1-й: Загружаем адрес строки формата fmtstr в регистр ds:ax
  38. ________call____PrintFormatFile____; Вызываем процедуру PrintFormatFile(ax:fmtstr, ...)
  39. ________add_____sp, 12_____________; Выравниваем стек
  41. ________mov_____ax, fHandle________; Копируем файловый дескриптор fHandle в регистр ax
  42. ________call____CloseHandle________; Вызываем процедуру CloseHandle(ax:fHandle)
  44. ________xor_____al, al_____________; Обнуляем регистр al
  45. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  46. ____main endp _____________________; Конец процедуры main
  48. code ends _________________________; Конец сегмента кода
  49. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda