FILE END ;Способ перемещения — относительно конца файлаРассмотрим еще один пример использования функции SetFilePointer. В файле Sudba записана фраза «Хранить нельзя помиловать». Необходимо поставить в нужном месте запятую:
.586 Model flat, stdcall BSIZE equ 128 Data fname db “Sudba”, 0 fhandle dd? cwritten dd? cread dd? cwrite dd? cоmmo db ”, ” buffer db BSIZE dup(?) Code start: invoke GetStdHandle, ADDR fname, GENERIC_READ+GENERIC_WRITE, 0, \ NULL, OPEN_EXISTING, FIlE_ATTRIBUTE_NORM, 0 Mov fhandle, eax Invoke SetFilePointer, fhandle, 7, NULL, FILE_BEGIN Invoke ReadFile, fhandle, ADDR buffer, BSIZE, ADDR cread, NULL Invoke SetFilePointer, fhandle, 7, NULL, FILE_BEGIN Invoke WriteFile, fhandle, ADDR commo, 1, ADDR cwrite, NULL Invoke WriteFile, fhandle, ADDR buffer, cread, ADDR cwrite, NULL Invoke CloseHandle, fhandle ExitProcess, 0 End start Пример. Написать программу с записью данных в файл. Проанализировать 2 массива, которые состоят из 15 элементов каждый. Подсчитать количество элементов первого массива, которые имеют равные значения во втором массиве. Вывести соответствующие сообщения в файл лабораторная по файлам.txt. Текст программы: Директива определения типа микропроцессора .model flat, stdcall; задание линейной модели памяти option casemap: none; отличие малых и больших букв Include windows.inc Include kernel32.inc Includelib user32.lib Includelib kernel32.lib BSIZE equ 42; количество байтов, записываемых в файл Data; директива определения данные fName BYTE " N: \5050-43 Программирование на языке ассемблера\MASM_32\лабораторная по файлам.txt", 0 fHandle DWORD?; резервирование у памяти 32-разрядной cWritten DWORD?; резервирование участка памяти размером в слово с именем cWritten для адреса символов выведения st1 db 'Количество одинаковых чисел в массиве = ', 0; нуль-завершенная строка st1_kol = $ - st1 St2 db 50 dup(0) Stemp2 db 2 dup(0), 0 ifmt db " %d ", 0; нуль завершенная строка формата вывода целых чисел MasivA db 1, 6, 4, 6, 9, 15, 21, 2, 51, 8, 12, 3, 13 MasivB db 1, 5, 4, 43, 13, 4, 65, 9, 7, 21, 32, 23, 15, 51, 66 Temp db 15 Prom db 0 .code; директива начала сегмента данных start:; метка начала программы с именем start Mov eax, 0 Mov ebx, 0 Lea esi, masivA M1: Mov eax, 0 mov al, byte ptr[esi] Lea edi, masivB Dec temp Jz _end Inc esi Mov ecx, 15 Temp1: mov bl, byte ptr[edi] Inc edi Cmp eax, ebx Jz M3 M2: Loop Temp1 Jmp M1 M3: Inc prom Jmp M1 _end: Lea edi, st2 Lea esi, st1 Mov ecx, st1_kol _m1: mov al, [esi] mov [edi], al Inc esi Inc edi Loop _m1 Mov eax, 0 Mov al, prom invoke wsprintf, \; АПИ-ФУНКЦИЯ преобразования числа ADDR stemp2, \; адрес буфф., куда будет записан помет. символов ADDR ifmt, \; адрес строки преобразования формата eax; регистр, содержание которого преобразовывается Lea esi, stemp2 Mov ecx, 2
|
