Глава_02

То же, что предыдущая, но в этой программе чтение файла оформлено в виде отдельной функции read_file.

MASM
MODEL small

.data ;сегмент данных *****************************

File_name db 'bukva04e.bmp',0
tek_el DB 00h
stroka DB 00h ;номер строки ввывода сообщения
kolonka DB 00h ;номер колонки ввывода сообщения
firstp_val DB 00h ;1-я шестнадцатиричная цифра в коде ASCII
secondp_val DB 00h ;2-я шестнадцатиричная цифра в коде ASCII
Handle DW 0FFFFh
temp DB 00h
;---------------------------
file_name2 DB "prg_1_2.txt",0
temp2 DB '/n',0
firstp_val1 DB 0Dh ;возврат каретки
secondp_val1 DB 0Ah ;перевод строки

mas_w label byte
rept 20

db 00h

endm

.stack 256 ;сегмент стека ************************************************

.code ;начало сегмента кода
; === Процедуры (подпрограммы) ===

;******************************************************************************
;Открытие файла ****************************************************************

open_file proc

cmp Handle,0FFFFh
jne Quit_open
mov ax,3D00h
int 21h
mov Handle,ax
ret

Quit_open:

stc
ret

;Handle dw 0FFFFh
open_file endp

;******************************************************************************
;Закрытие файла ****************************************************************

close_file proc

push ax
push bx

;закрытие файла
mov ah,3Eh
mov bx,Handle
int 21h

pop bx
pop ax
ret

close_file endp

;******************************************************************************
;Создание файла****************************************************************
;входные параметры
;dx - ссылка на имя файла

create_file proc

push ax
push cx

mov ah,3Ch ;создать файл
mov cx,00h ;атрибут файла
int 21h
mov Handle,ax ;запоминаем дескриптор (номер) файла

pop cx
pop ax
ret

create_file endp

;******************************************************************************
;Чтение из файла****************************************************************
;входные параметры
;cx - сколько байт будет считано
;dx - адрес, куда будут читаться данные

read_file proc

push ax
push bx

mov bx,Handle ;поместим в bx номер файла
mov ah,3Fh ;Функция чтения файла
int 21h

pop bx
pop ax
ret

read_file endp

;******************************************************************************
;фильтр ввывода на экран, преобразовывает число в шестнадцатиричную форму
*********************
;входные параметры
;tek_el - выводимое число

filter proc

push ax
push dx

;обработка второй тетраэдры ******************************************
mov ah,tek_el ;в ah фильтруемое значение
and ah,00001111b ;выделяем вторую тетраэдру

cmp ah,0Ah ;сравниваем ее с 0Ah
jae symb1 ;переход если AL>=0Ah

add ah,30h ;в al ASCII код цифры соответствующий цифре в al
mov secondp_val,ah ;передача к.с.ц. во внешнюю переменную
jmp tetr2

symb1: ;если цифре соответствует шестнадцатеричная цифра - ABCDEF

add ah,37h ;в al ASCII код цифры соответствующей цифре в al
mov secondp_val,ah ;передача к.с.ц. во внешнюю переменную
jmp tetr2

tetr2: ;обработка второй тетраэдры ***********************************

mov ah,tek_el ;в al фильтруемое значение
shr ah,4 ;сдвиг в вправо на четыре бита для получения первой тетраэдры

cmp ah,0Ah ;сравниваем al с 0Ah
jae symb2 ;переход если AL>=0Ah

add ah,30h ;в al ASCII код цифры соответствующей цифре в al
mov firstp_val,ah ;передача к.с.ц. во внешнюю переменную
jmp exit

symb2:

add ah,37h ;в al ASCII код цифры соответствующей цифре в al
mov firstp_val,ah ;передача к.с.ц. во внешнюю переменную

exit: pop dx

pop ax
ret

filter endp

;******************************************************************************
;процедура перехода на следующую строку **************************************
;входные параметры
;Handle - дескриптор файла

perenos_str proc

push ax
push dx
push cx
xor cx,cx ;обнуление cx

mov ah,40h ;писать в файл
mov bx,Handle ;дескриптор в bx
mov cx,1 ;число записываемых байт
mov dx,offset firstp_val1 ;возврат каретки
int 21h

mov ah,40h ;писать в файл
mov bx,Handle ;дескриптор в bx
mov cx,1 ;число записываемых байт
mov dx,offset secondp_val1 ;перевод строки
int 21h

pop cx
pop dx
pop ax

ret

perenos_str endp

;*****************************************************************************
main proc ;начало процедуры main

;инициализация сегмента данных
mov ax,@data
mov ds,ax
mov es,ax
xor ax,ax
; ------------- Откроем файл ----------------
mov dx,offset File_name
call open_file ;Открываем файл
jc error_file ;Ошибка?

; ------------- Прочитаем файл ----------------
mov cx,20h ;сколько байт будет считано
lea dx,mas_w ;! Адрес, куда будут читаться данные
call read_file

; ------------- Закроем файл ----------------
call close_file

; ------------- Создадим новый файл-----------
mov dx,offset file_name2
call create_file ;Создаем новый файл
jc error_file ;Ошибка?
jmp metka2

;--- Не смогли найти / открыть файл

error_file:

mov ah,2
mov dl,7
int 21h
ret

; -------Запишем данные в новый файл ----------------
metka2:

xor ax,ax ;обнуление ax
xor bx,bx ;обнуление bx

prepare:

mov cx,20h ;значение счетчика цикла в cx
mov si,0 ;индекс в si

compare:

push cx
mov bl,mas_w[si]
mov tek_el,bl ;в tek_el элемент из массива

call filter

mov ah,40h ;писать в файл
mov bx,Handle ;дескриптор в bx
mov cx,1 ;число записываемых байт
mov dx,offset firstp_val ;адрес данных для записи
int 21h

mov ah,40h ;писать в файл
mov bx,Handle ;дескриптор в bx
mov cx,1 ;число записываемых байт
mov dx,offset secondp_val ;адрес данных для записи
int 21h

;----------------------------------
inc si ;на следующий элемент
pop cx
dec cx ;условие для выхода из цикла
jcxz exit1 ;cx=0? Если да — на выход

;---зададим число символов в выводимой строке
inc temp
cmp temp,10h
jne pisk ; нет переноса строки - прыжок
mov temp,00h

;---перенос строки
call perenos_str

pisk: jmp compare ; повторить цикл

exit1:

call close_file
mov ax,4c00h ;стандартный выход
int 21h

main endp ;конец процедуры main
end main ;конец программы с точкой входа main

Считываем из файла в массив, из массива в файл в 16-ричном виде (4)