Листинг программы

;; - -------------------------макроподстановки---------------------------------------

FILE_ARCHIVEequ 0; атрибут файла

FILE_READequ 0; только чтение файла

FILE_WRITEequ 1; запись файла

FILE_RDWRequ 2; запись и чтение файла

FILE_BEGINequ 0; начало файла

FILE_ENDequ 2; конец файла.

; - -------------------------Основная программа-------------------------------------

.286

. model small, stdcall; stdcall - тип оформления вызова процедур

; по умолчанию (параметры передаються через стек в

; обратном порядке, и освобождаются выполняемой программой)

; Аргументы передаются через стек, справа налево.

; Очистку стека производит вызываемая подпрограмма.

. stack 100h

. data

m0 db 'Введите имя исходного файла пример: ',13,10, '<Имя диска>: \<Имя директории>: \.: \Имя_файла. рсх ',13,10,'или Имя_файла. pcx: ',0

m1 db 'Ошибка, введен адрес файла не PCX формата',13,10,13,10,0

m2 db 'Ошибка, PCX файл не 3 версии. ',13,10,13,10,0

m3 db 'Ошибка, PCX файл не закодирован длинными сериями. ',13,10,13,10,0

m4 db 'Ошибка, в файле PCX не 256-цветная палитра. ',13,10,13,10,0

m6 db 13,10,'Файл зеркально отображён!!! ',13,10, 'Для выхода из программы нажмите любую клавишу',13,10,0

m7 db 'Ошибка открытия исходного файла. ',13,10,13,10,0

m8 db 'Ошибка создания конечного файла. ',13,10,13,10,0

m9 db 'Имя выходного файла: <Имя диска>: \<Имя директории>: \.: \Имя_файла. рсх ',13,10,'или Имя_файла. pcx: ',0

counterdw?; Счетчик байт

bf1 db 80 dup (0); Имя исходного файла

bf2 db 80 dup (0); Имя конечного файла

b1 db 128 dup (0); буфер

tb db 0; буфер для 769 байта с конца файла

descr_in dw?; Дескриптор исходного файла

str_count dw?; Счетчик для количества строк

str_len dw?; Длина несжатой строки, байт

str_pos dw?; Счетчик байтов для подсчета длины строки

strin db 2000 dup (?); Исходная строка

strout db 2000 dup (?); Отраженная строка

. code

main proc

mov ax, @data; стандартная иницилизация.

mov ds, ax

mov es, ax

lpa:

call asmout, offset m0; вывод приветстия

call asmin, offset bf1, 80; ввод имени файла

test ax, ax; не введено имя файла

jz lpa; повтор ввода исх файла

call fopen, offset bf1, FILE_READ; открытия файла

jnc q0; продолжение

call asmout, offset m7; Вывод ошибки no m1

jmp lpa; повтор запроса ввода

q0:

mov dx, ax; сохраняем в dx хэндл входного файла

l0:

call asmout, offset m9; вывод сообщения m9

call asmin, offset bf2, 80; записываем в буфер bf адрес выходного файла

test ax, ax; проверка

jz l0; в случае ошибки запрос на ввод файла

call fopen, offset bf2, FILE_WRITE; открытие файла для записи

jnc ok; переход по метки ok

call fcreate, offset bf2, FILE_ARCHIVE; если файл нельзя открыть создаём файл

jnc ok; переход по метки ok

call asmout, offset m8; вывод сообщения m8

jmp l0

ok:

mov cx, ax; сохраняем в сx хэндл выходного файла

call processed, dx, cx; запуск функции processed с передачей

; хэндлов 2 файлов

pushf; сохранение регистра флагов в стек

jc vs; если CF=1 то переход по метке vs

call asmout, offset m6; вывод сообщения 'Файл зеркально отображён'

vs:

call fclose, cx; закрытие файлов по хэндлу

call fclose, dx

popf; востановление регистра флагов в стек

jnc er

cld; сканируя в прямом направлении

lea si, bf1; начиная с 1го элемента BUFFER1

lea di, bf2; и с 1го элемента BUFFER2,cmpsw; сравниваем их.

je ttt; флаг ZF = 0, если сравниваемые строки не совпадают

call fdelete, offset bf2; удаление в случая ошибки в processed

ttt: jmp lpa

er:

mov ah, 08h; ожиданеи нажатия клавишы

int 21h

xor al, al

call exit; Вызов процедуры exit

endp

; in [par0 = хэндл исходного файла; par1 = хэндл выходного файла]

; out [cf = сигнал ошибки]

; api []

; txt []

;; - -------------------------процедуры - ----------------------------------------------

processed proc

pusha; ax, cx, dx, bx, sp, bp, si, di

mov bp, sp

call fread, word ptr [bp+18], offset b1, 128; [bp+18] = хэндл файла; чтение заголовка исх файла

call fseek, word ptr [bp+18], - 769, - 1, FILE_END; переход к 769 байта с конца файла

call fread, word ptr [bp+18], offset tb, 1; чтение 769 байта в tb

call fseek, word ptr [bp+18], 128, 0, FILE_BEGIN; переход в конец заголовка (128байт)

cmp b1 [0], 10; проверка на постоянный флаг

jnz e0; если ошибка - переход по метке e0

cmp b1 [1], 5; Проверка версии (3.0 - 256-цветная палитра)

jnz e1; ошибка - переход по метке e1

cmp b1 [2], 1; проверка метода кодирования

jnz e2; ошибка - переход по метке e2

cmp b1 [3], 8; проверка числа бит на пиксель (если 8, то 256-цветная палитра)

jnz e3; ошибка - переход по метке e3

cmp tb, 12; проверка числа 12 (если 12, то 256-цветная палитра)

jnz e3; ошибка - переход по метке e3

call fwrite, word ptr [bp+20], offset b1, 128; [bp+20] = хэндл файла; запись заголовка в

; выходной файл

mov dx, word ptr b1 [8]; dx = длина строки

mov cx, word ptr b1 [10]; сx = кол-во строк

inc cx

inc dx

mov str_len, dx

mov ax,word ptr [bp+18]

mov descr_in, ax

movstr_count,cx

fd: call Read_String; Вызов процедуры чтения строки и подсчета ее длины

call Mirror

call fwrite, word ptr [bp+20], offset strout, counter; запись в файл прочитаннгого числа байт (cx)

decstr_count; уменьшаем число оставшихся строк

cmpstr_count,0; если строки не кончились - обрабатываем следующую

jnefd

jmp lp

e0:

call asmout, offset m1

stc; уставока кери флага (CF)

jmp ex

e1:

call asmout, offset m2

stc; уставока кери флага (CF)

jmp ex

e2:

call asmout, offset m3

stc; уставока кери флага (CF)

jmp ex

e3:

call asmout, offset m4

stc; уставока кери флага (CF)

jmp ex

lp:

call fread, word ptr [bp+18], offset b1, 128; читаем 128 байт

mov cx, ax; cx=ax

test cx, cx; если cx =0 то ex

jz ex

call fwrite, word ptr [bp+20], offset b1, cx; запись в файл прочитаннгого числа байт (cx)

cmp cx, 128; если прочитано 128 то повторить

jz lp;

clc; очистка cf флага

ex:

popa; di, si, bp, sp, bx, dx, cx, ax

retn 4; т.к. передавали 2 параметра в процедуру

endp

Read_String proc; Процедура чтения строки и подсчета ее длины

push bp

movcounter,0; обнуляем счетчик байтов закодированной строки

leadx,strin; В dx - адрес начала строки - буфера

movcx,str_len; В cх - длина строки

movstr_pos,cx

movbx,descr_in; установка дескриптора входного файла

read1: mov ah,3Fh; функция чтения записи из файла (в bx - дескриптор,

movcx,1; количество считываемых байт = 1

int21h; в dx - адрес области ввода

movsi,dx

moval, [si]; считываем байт закодированной строки

xoral,11000000b; если 2 старших разряда - 11, то они обнулятся

testal,11000000b

jzread2; если 0 (старшие биты были равны 11), то обрабатываем повторитель

; если не 0, то это - байт-эталон

xoral,11000000b; восстанавливаем старшие биты

decstr_pos; уменьшаем счетчик байтов

inc dx; в dx - адрес следующего байта

inccounter; увеличиваем счетчик байтов закодированной строки

cmpstr_pos,0

jneread1; если строка не кончилась, то читаем следующий байт

jmpexitp3; если кончилась - выходим из процедуры

read2: xoral,11000000b; восстанавливаем старшие биты

andal,00111111b; находим число повторений

movah,0

substr_pos,ax; уменьшаем счетчик байтов на число повторений

inc dx; в dx - адрес следующего байта (эталона)

inccounter; увеличиваем счетчик байтов закодированной строки

mov ah,3Fh; функция чтения записи из файла

int21h; читаем байт-эталон, следующий за повторителем

inc dx; в dx - адрес следующего байта

inccounter; увеличиваем счетчик байтов закодированной строки

cmpstr_pos,0

jneread1; если строка не кончилась - обрабатываем следующий байт

exitp3:

pop bp

ret; возврат из процедуры

Read_String endp

Mirror proc; Процедура зеркального отображения строки (инвертирования)

leasi,strin; в si адрес начала исходной строки

leadi,strout; в di адрес начала инвертированной строки

movcx,counter; в cx - длина строки в байтах

adddi,cx; переходим в конец новой строки

decdi

mir1: moval, [si]; считываем байт из исходной строки

xoral,11000000b; если 2 старших разряда равны 11, то они обнулятся

testal,11000000b

jzmir2; если 0 (старшие биты были равны 11), то обрабатываем повторитель

; если не 0, то это - байт-эталон

xoral,11000000b; восстанавливаем старшие биты

mov [di],al; записываем байт в инвертированную строку

decdi; переходим к следующему байту

incsi

loopmir1; обработка следующего байта, если строка не кончилась

jmp exitp4; если кончилась - выход

mir2: xoral,11000000b; восстанавливаем старшие биты

movah, [si+1]; считываем байт-эталон в регистр ah

mov [di-1],al; записываем 2 байта в инвертированную строку

mov [di],ah

subdi,2; сдвигаемся на 2 байта от конца инвертированной строки

addsi,2; сдвигаемся на 2 байта от начала исходной строки

loopmir1; если строка не кончилась, обрабатываем следующий байт

exitp4: ret; возврат из процедуры

Mirror endp

; in [par0 = адрес сообщения]

; out [cf = сигнал ошибки]

; api [DOS 40h]

; txt [вывод сообщения на экран используя файловый хэндлинг]

asmout proc

push ax

push cx

push dx

push bx

push bp

mov bp, sp

mov ax, 4000h; bx>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>bx

mov dx, [bp+12]; адрес сообщения dx

mov bx, dx; V--------------------------------0

l:

cmp al, [bx]; al=0, пока [bx]! =0 цикл

inc bx

jc l

sub bx, dx; bx - адрес послед. символа, -

lea cx, [bx-1]; т.к. считали 0.

mov bx, 0001h; в bx =1

int 21h

pop bp

pop bx

pop dx

pop cx

pop ax

retn 2

endp

; in [par0 = адрес буфера; par1 = длина буфера]

; out [cf = сигнал ошибки; ax = код ошибки при cf = 1 или количество символов в буфере при cf = 0]

; api [DOS 3Fh]

; txt [ввод в буфер с клавиатуры используя файловый хэндлинг]

asmin proc

push cx; извлекаем из стека

push dx; извлекаем из стека

push bp; извлекаем из стека

mov bp, sp

mov ah, 3Fh; чтение записи из файла

mov dx, [bp+8]; адрес буфера

mov cx, [bp+10]; длина буфера

mov bx,0; дескриптор клавиатуры

int 21h

dec ax

dec ax

mov bx, [bp+8]; адрес буфера

pushf

add bx, ax

xor dx, dx

mov [bx], dx

popf

pop bp

pop dx

pop cx

retn 4

endp

; in [par0 = адрес имени файла; par1 = атрибуты]

; out [cf = сигнал ошибки; ax = код ошибки при cf = 1]

; api [DOS 3Ch]

; txt [создание файла используя файловый хэндлинг]

fcreate proc

push cx

push dx

push bp

mov bp, sp; сохраним указатель вершины стека в bp

mov dx, [bp+8]; указатель на имя файла

mov cx, [bp+10]; режим создания файла

mov ah, 3Ch

int 21h

pop bp

pop dx

pop cx

retn 4

endp

; in [par0 = адрес имени файла; par1 = режим доступа]

; out [cf = сигнал ошибки; ax = код ошибки при cf = 1 или хэндл открытого файла при cf = 0]

; api [DOS 3Dh]

; txt [открытие файла используя файловый хэндлинг]

fopen proc

push dx

push bp

mov bp, sp; сохраним указатель вершины стека в bp

mov dx, [bp+6]; указатель на имя файла

mov ax, [bp+8]; режим открытия файла

mov ah, 3Dh; открытие файла

int 21h

pop bp

pop dx

retn 4

endp

; in [par0 = хэндл файла]

; out [cf = сигнал ошибки; ax = код ошибки при cf = 1]

; api [DOS 3Eh]

; txt [закрытие файла используя файловый хэндлинг]

fclose proc

push bx

push bp

mov bp, sp; сохраним указатель вершины стека в bp

mov bx, [bp+6]; хендл файла

mov ah, 3Eh; закрытие файла

int 21h

pop bp

pop bx

retn 2

endp

; in [par0 = хэндл файла, par1 = буфер в который читаем, par2 = кол-во байт,]

; out [cf = сигнал ошибки; ax = код ошибки при cf = 1 или количество символов в буфере при cf = 0]

; api [DOS 3Fh]

; txt [Считываем из файла по хэндл файла в буфер нужное нам кол-во байт]

fread proc

push cx

push dx

push bx

push bp

mov bp, sp

mov ah, 3Fh; чтение файла

mov bx, [bp+10]; хэндл файла

mov cx, [bp+14]; количество байт для чтения

mov dx, [bp+12]; адрес буфера в который читаем

int 21h

pop bp

pop bx

pop dx

pop cx

retn 6

endp

; in [par0 = хэндл файла, par1 = буфер из которого записываем, par2 = кол-во байт,]

; out [cf = сигнал ошибки; при cf = 1 ошибка, при cf = 0 количество записанных байт]

; api [DOS 40h]

; txt [Записываем в файл по хэндл файла из буфера нужное нам кол-во байт]

fwrite proc

push cx

push dx

push bx

push bp

mov bp, sp

mov ah, 40h; запись в файл

mov bx, [bp+10]; хэндл файла

mov cx, [bp+14]; количество байт для записи

mov dx, [bp+12]; адрес сообщения

int 21h

pop bp

pop bx

pop dx

pop cx

retn 6

endp

; in [par0 = хэндл файла, par1 = младшая часть смещения, par2 = старшая часть смещения, par3 = смещение (0,1,2)]

; out [cf = сигнал ошибки; при CF = 1 и AX = 01 ошибка кода отсчета или

; при AX = 06 ошибка файлового номера.]

; api [DOS 42h]

; txt [Записываем в файл по хэндл файла из буфера нужное нам кол-во байт]

fseek proc

push cx

push bx

push bp

mov bp, sp

mov ax, [bp+14]; режим установки указателя

mov bx, [bp+8]; хэндл файла

mov cx, [bp+12]; старшая часть.

mov dx, [bp+10]; младшая часть.

;. смещения

mov ah, 42h; Управление файловым указателем:

int 21h

pop bp

pop bx

pop cx

retn 8

endp

; in [par0 = буфер]

; out [cf = сигнал ошибки; при CF = 1 и AX = 02 файл не найден

; AX = 03 путь не найден. AХ = 05 доступ запрещен

; CF=0 файл удалён]

; api [DOS 41h]

; txt [Удаляем файл]

fdelete proc

push dx

push bp

mov bp, sp

mov ah, 41h; Функция 41h (Удалить файл)

mov dx, [bp+6]; [bp+6] адрес ASCIZ-строки с полным именем файла

int 21h

pop bp

pop dx

retn 2

endp

; in [al = код выхода]

; out [no return]

; api [DOS 4Ch]

; txt [завершение программы]

exit proc

mov ah, 4Ch

int 21h

endp

end main

Размещено на Allbest.ru