ХАНДЫФАР

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

Параметры:

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

Предположим что файл test.txt содержит строку в которой все значения разделены пробелом: Евгений Довгополов М 36.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fName____db "test.txt", 0
  8. ____fmtstr___db "%s %s %c %d"
  9. ____fmtout___db "ИМЯ: %.4s\nФАМИЛИЯ: "
  10. _____________db "%s\nПОЛ: %.4c\nВОЗРАСТ:"
  11. _____________db " %d\0"
  12. ____mName____db 20 dup(0)
  13. ____mSurname_db 20 dup(0)
  14. ____mSex_____db ?
  15. ____mAge_____dw ?
  16. ____fHandle__dw ?
  17. data ends
  19. code segment public
  20. ____assume _ds:data, cs:code
  21. ____include Handyfar.inc
  23. ____main proc
  24. ________call____SetDataSegment
  26. ________mov_____bl, READ_WRITE
  27. ________lea_____ax, ds:[fName]
  28. ________call____OpenFile
  29. ________mov_____fHandle, ax
  31. ________lea_____ax, ds:[mAge]
  32. ________push____ax
  33. ________lea_____ax, ds:[mSex]
  34. ________push____ax
  35. ________lea_____ax, ds:[mSurname]
  36. ________push____ax
  37. ________lea_____ax, ds:[mName]
  38. ________push____ax
  39. ________mov_____bx, fHandle
  40. ________lea_____ax, ds:[fmtstr]
  41. ________call____ScanFormatFile
  42. ________add_____sp, 8
  44. ________push____mAge
  45. ________mov_____al, mSex
  46. ________push____ax
  47. ________lea_____ax, ds:[mSurname]
  48. ________push____ax
  49. ________lea_____ax, ds:[mName]
  50. ________push____ax
  51. ________lea_____ax, ds:[fmtout]
  52. ________call____PrintFormatString
  53. ________add_____sp, 8
  55. ________xor_____al, al
  56. ________call____ExitProcess
  57. ____main endp
  59. code ends
  60. end main

В этом примере мы откроем файл в котором через пробел записаны два числа и считаем их в переменные aValue и bValue. Затем мы выполним сложение aValue и bValue а результат запишем в переменную rValue. После чего мы выведем результат в форматированной строке на консоль. В данном примере содержимое файла выглядит следующим образом: 5 8.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fName___db "test.txt", 0
  8. ____fmtstr__db "%d %d"
  9. ____fmtout__db "%d + %d = %d\0"
  10. ____aValue__dw ?
  11. ____bValue__dw ?
  12. ____rValue__dw ?
  13. ____fHandle_dw ?
  14. data ends
  16. code segment public
  17. ____assume _ds:data, cs:code
  18. ____include Handyfar.inc
  20. ____main proc
  21. ________call____SetDataSegment
  23. ________mov_____bl, READ_WRITE
  24. ________lea_____ax, ds:[fName]
  25. ________call____OpenFile
  26. ________mov_____fHandle, ax
  28. ________lea_____ax, ds:[bValue]
  29. ________push____ax
  30. ________lea_____ax, ds:[aValue]
  31. ________push____ax
  32. ________mov_____bx, fHandle
  33. ________lea_____ax, ds:[fmtstr]
  34. ________call____ScanFormatFile
  35. ________add_____sp, 4
  37. ________mov_____ax, aValue
  38. ________add_____ax, bValue
  39. ________mov_____rValue, ax
  41. ________push____rValue
  42. ________push____bValue
  43. ________push____aValue
  44. ________lea_____ax, ds:[fmtout]
  45. ________call____PrintFormatString
  46. ________add_____sp, 6
  48. ________mov_____ax, fHandle
  49. ________call____CloseHandle
  51. ________xor_____al, al
  52. ________call____ExitProcess
  53. ____main endp
  55. code ends
  56. end main

В этом примере мы откроем файл в котором математическое выражение и считаем все числа в переменные aValue, bValue и cValue. Затем мы выполним вычисление. В данном примере содержимое файла выглядит следующим образом: 2 + (2 * 2).

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fName___db "test.txt", 0
  8. ____fmtstr__db "%d + (%d * %d)"
  9. ____fmtout__db "%d + (%d * %d) = %d\0"
  10. ____aValue__dw ?
  11. ____bValue__dw ?
  12. ____cValue__dw ?
  13. ____rValue__dw ?
  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. ________lea_____ax, ds:[cValue]
  30. ________push____ax
  31. ________lea_____ax, ds:[bValue]
  32. ________push____ax
  33. ________lea_____ax, ds:[aValue]
  34. ________push____ax
  35. ________mov_____bx, fHandle
  36. ________lea_____ax, ds:[fmtstr]
  37. ________call____ScanFormatFile
  38. ________add_____sp, 6
  40. ________mov_____ax, bValue_
  41. ________mov_____bx, cValue
  42. ________mul_____bx
  43. ________add_____ax, aValue
  44. ________mov_____rValue, ax
  46. ________push____rValue
  47. ________push____cValue
  48. ________push____bValue
  49. ________push____aValue
  50. ________lea_____ax, ds:[fmtout]
  51. ________call____PrintFormatString
  52. ________add_____sp, 8
  54. ________mov_____ax, fHandle
  55. ________call____CloseHandle
  57. ________xor_____al, al
  58. ________call____ExitProcess
  59. ____main endp
  61. code ends
  62. end main
Функция ScanFormatFile считывает данные из файлового потока и сохраняет значения в соответствующих переменных.

Параметры:

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

Предположим что файл test.txt содержит строку в которой все значения разделены пробелом: Евгений Довгополов М 36.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fName____db "test.txt", 0 ; Файл должен существовать в кодировке windows-1251
  8. ____fmtstr___db "%s %s %c %d"
  9. ____fmtout___db "ИМЯ: %.4s\nФАМИЛИЯ: %s\nПОЛ: %.4c\nВОЗРАСТ: %d\0"
  10. ____mName____db 20 dup(0)
  11. ____mSurname_db 20 dup(0)
  12. ____mSex_____db ?
  13. ____mAge_____dw ?
  14. ____fHandle__dw ?
  15. data ends
  17. code segment public _______________; Начало сегмента кода
  18. ____assume _ds:data, cs:code
  19. ____include Handyfar.inc___________; Подключаем файл с функциями
  21. ____main proc _____________________; Начало процедуры main
  22. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  24. ________mov_____bl, READ_WRITE_____; 2-й: Устанавливаем атрибут чтение и запись в регистр bl
  25. ________lea_____ax, ds:[fName]_____; 1-й: Загружаем адрес строки fName в регистр ds:ax
  26. ________call____OpenFile___________; Вызываем процедуру OpenFile(ax:fName, bl:READ_WRITE) := AX и CF
  27. ________mov_____fHandle, ax________; Сохраняем файловый дескриптор в переменной fHandle
  29. ________lea_____ax, ds:[mAge]______; Копируем значение переменной mAge в регистр ds:ax
  30. ________push____ax_________________; 6-й: Сохраняем значение регистра ax в стеке
  31. ________lea_____ax, ds:[mSex]______; Копируем значение переменной mSex в регистр ds:ax
  32. ________push____ax_________________; 5-й: Сохраняем значение регистра ax в стеке
  33. ________lea_____ax, ds:[mSurname]__; Загружаем адрес переменной mSurname в регистр ds:ax
  34. ________push____ax_________________; 4-й: Сохраняем значение регистра ax в стеке
  35. ________lea_____ax, ds:[mName]_____; Загружаем адрес переменной mName в регистр ds:ax
  36. ________push____ax_________________; 3-й: Сохраняем значение регистра ax в стеке
  37. ________mov_____bx, fHandle________; 2-й: Копируем значение файлового дескриптора fHandle в регистр bx
  38. ________lea_____ax, ds:[fmtstr]____; 1-й: Загружаем адрес строки fmtstr в регистр ds:ax
  39. ________call____ScanFormatFile_____; Вызываем процедуру ScanFormatFile(ax:fmtstr, ...)
  40. ________add_____sp, 8______________; Выравниваем стек
  42. ________push____mAge_______________; 5-й: Сохраняем значение переменной mAge в стеке
  43. ________mov_____al, mSex___________; Копируем значение переменной mSex в регистр al
  44. ________push____ax_________________; 4-й: Сохраняем значение регистра ax в стеке
  45. ________lea_____ax, ds:[mSurname]__; Загружаем адрес переменной mSurname в регистр ds:ax
  46. ________push____ax_________________; 3-й: Сохраняем значение регистра ax в стеке
  47. ________lea_____ax, ds:[mName]_____; Загружаем адрес переменной mName в регистр ds:ax
  48. ________push____ax_________________; 2-й: Сохраняем значение регистра ax в стеке
  49. ________lea_____ax, ds:[fmtout]____; 1-й: Загружаем адрес строки fmtout в регистр ds:ax
  50. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, ...)
  51. ________add_____sp, 8______________; Выравниваем стек
  53. ________xor_____al, al_____________; Обнуляем регистр al
  54. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  55. ____main endp _____________________; Конец процедуры main
  57. code ends _________________________; Конец сегмента кода
  58. end main __________________________; Конец файла. Точкой входа указывается процедура main

В этом примере мы откроем файл в котором через пробел записаны два числа и считаем их в переменные aValue и bValue. Затем мы выполним сложение aValue и bValue а результат запишем в переменную rValue. После чего мы выведем результат в форматированной строке на консоль. В данном примере содержимое файла выглядит следующим образом: 5 8.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fName___db "test.txt", 0
  8. ____fmtstr__db "%d %d"
  9. ____fmtout__db "%d + %d = %d\0"
  10. ____aValue__dw ?
  11. ____bValue__dw ?
  12. ____rValue__dw ?
  13. ____fHandle_dw ?
  14. data ends
  16. code segment public _______________; Начало сегмента кода
  17. ____assume _ds:data, cs:code
  18. ____include Handyfar.inc___________; Подключаем файл с функциями
  20. ____main proc _____________________; Начало процедуры main
  21. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  23. ________mov_____bl, READ_WRITE_____; 2-й: Устанавливаем атрибут чтение и запись в регистр bl
  24. ________lea_____ax, ds:[fName]_____; 1-й: Загружаем адрес строки fName в регистр ds:ax
  25. ________call____OpenFile___________; Вызываем процедуру OpenFile(ax:fName, bl:READ_WRITE) := AX и CF
  26. ________mov_____fHandle, ax________; Сохраняем файловый дескриптор в переменной fHandle
  28. ________lea_____ax, ds:[bValue]____; Загружаем адрес переменной bValue в регистр ds:ax
  29. ________push____ax_________________; 4-й: Сохраняем значение регистра ax в стеке
  30. ________lea_____ax, ds:[aValue]____; Загружаем адрес переменной aValue в регистр ds:ax
  31. ________push____ax_________________; 3-й: Сохраняем значение регистра ax в стеке
  32. ________mov_____bx, fHandle________; 2-й: Копируем значение файлового дескриптора fHandle в регистр bx
  33. ________lea_____ax, ds:[fmtstr]____; 1-й: Загружаем адрес строки fmtstr в регистр ds:ax
  34. ________call____ScanFormatFile_____; Вызываем процедуру ScanFormatFile(ax:fmtstr, aValue, bValue)
  35. ________add_____sp, 4______________; Выравниваем стек
  37. ________mov_____ax, aValue_________; Копируем значение переменной aValue в регистр ax
  38. ________add_____ax, bValue_________; Прибавляем к регистру ax значение в переменной bValue
  39. ________mov_____rValue, ax_________; Сохраняем значение регистра ax в переменной rValue
  41. ________push____rValue_____________; 4-й: Сохраняем значение переменной rValue в стеке
  42. ________push____bValue_____________; 3-й: Сохраняем значение переменной bValue в стеке
  43. ________push____aValue_____________; 2-й: Сохраняем значение переменной aValue в стеке
  44. ________lea_____ax, ds:[fmtout]____; 1-й: Загружаем адрес строки fmtout в регистр ds:ax
  45. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, ...)
  46. ________add_____sp, 6______________; Выравниваем стек
  48. ________mov_____ax, fHandle________; Копируем файловый дескриптор fHandle в регистр ax
  49. ________call____CloseHandle________; Вызываем процедуру CloseHandle(ax:fHandle)
  51. ________xor_____al, al_____________; Обнуляем регистр al
  52. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  53. ____main endp _____________________; Конец процедуры main
  55. code ends _________________________; Конец сегмента кода
  56. end main __________________________; Конец файла. Точкой входа указывается процедура main

В этом примере мы откроем файл в котором математическое выражение и считаем все числа в переменные aValue, bValue и cValue. Затем мы выполним вычисление. В данном примере содержимое файла выглядит следующим образом: 2 + (2 * 2).

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fName___db "test.txt", 0
  8. ____fmtstr__db "%d + (%d * %d)"
  9. ____fmtout__db "%d + (%d * %d) = %d\0"
  10. ____aValue__dw ?
  11. ____bValue__dw ?
  12. ____cValue__dw ?
  13. ____rValue__dw ?
  14. ____fHandle_dw ?
  15. data ends
  17. code segment public _______________; Начало сегмента кода
  18. ____assume _ds:data, cs:code
  19. ____include Handyfar.inc___________; Подключаем файл с функциями
  21. ____main proc _____________________; Начало процедуры main
  22. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  24. ________mov_____bl, READ_WRITE_____; 2-й: Устанавливаем атрибут чтение и запись в регистр bl
  25. ________lea_____ax, ds:[fName]_____; 1-й: Загружаем адрес строки fName в регистр ds:ax
  26. ________call____OpenFile___________; Вызываем процедуру OpenFile(ax:fName, bl:READ_WRITE) := AX и CF
  27. ________mov_____fHandle, ax________; Сохраняем файловый дескриптор в переменной fHandle
  29. ________lea_____ax, ds:[cValue]____; Загружаем адрес переменной cValue в регистр ds:ax
  30. ________push____ax_________________; 5-й: Сохраняем значение регистра ax в стеке
  31. ________lea_____ax, ds:[bValue]____; Загружаем адрес переменной bValue в регистр ds:ax
  32. ________push____ax_________________; 4-й: Сохраняем значение регистра ax в стеке
  33. ________lea_____ax, ds:[aValue]____; Загружаем адрес переменной aValue в регистр ds:ax
  34. ________push____ax_________________; 3-й: Сохраняем значение регистра ax в стеке
  35. ________mov_____bx, fHandle________; 2-й: Копируем значение файлового дескриптора fHandle в регистр bx
  36. ________lea_____ax, ds:[fmtstr]____; 1-й: Загружаем адрес строки fmtstr в регистр ds:ax
  37. ________call____ScanFormatFile_____; Вызываем процедуру ScanFormatFile(ax:fmtstr, ...)
  38. ________add_____sp, 6______________; Выравниваем стек
  40. ________mov_____ax, bValue_________; Копируем значение переменной bValue в регистр ax
  41. ________mov_____bx, cValue_________; Копируем значение переменной cValue в регистр bx
  42. ________mul_____bx_________________; Выполняем умножение значения в регистре ax на значение в bx
  43. ________add_____ax, aValue_________; Прибавляем к регистру ax значение в переменной aValue
  44. ________mov_____rValue, ax_________; Сохраняем значение регистра ax в переменной rValue
  46. ________push____rValue_____________; 5-й: Сохраняем значение переменной rValue в стеке
  47. ________push____cValue_____________; 4-й: Сохраняем значение переменной cValue в стеке
  48. ________push____bValue_____________; 3-й: Сохраняем значение переменной bValue в стеке
  49. ________push____aValue_____________; 2-й: Сохраняем значение переменной aValue в стеке
  50. ________lea_____ax, ds:[fmtout]____; 1-й: Загружаем адрес строки fmtout в регистр ds:ax
  51. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, ...)
  52. ________add_____sp, 8______________; Выравниваем стек
  54. ________mov_____ax, fHandle________; Копируем файловый дескриптор fHandle в регистр ax
  55. ________call____CloseHandle________; Вызываем процедуру CloseHandle(ax:fHandle)
  57. ________xor_____al, al_____________; Обнуляем регистр al
  58. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  59. ____main endp _____________________; Конец процедуры main
  61. code ends _________________________; Конец сегмента кода
  62. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda