Глава_02

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

;---------------------------
handle2 DW ?
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

;******************************************************************************
;фильтр ввывода на экран, преобразовывает число в шестнадцатиричную форму
*********************
;входные параметры
;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
;******************************************************************************
;*****************************************************************************
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 bx,ax ;поместим в bx номер файла
mov ah,3Fh ;Функция чтения файла
mov cx,20h ;сколько байт будет считано
lea dx,mas_w ;! Адрес, куда будут читаться данные
int 21h

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

; ------------- Создадим новый файл-----------
mov ax,offset file_name2
mov dx,ax ;адрес строки с именем файла
mov ah,3Ch ;создать файл
mov cx,00h ;атрибут файла
int 21h
mov handle2,ax ;запоминаем дескриптор (номер) файла
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,handle2 ;дескриптор в bx
mov cx,1 ;число записываемых байт
mov dx,offset firstp_val ;адрес данных для записи
int 21h

mov ah,40h ;писать в файл
mov bx,handle2 ;дескриптор в 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

;---перенос строки
push cx
xor cx,cx ;обнуление cx

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

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

pop cx

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

exit1:

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

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

Явно можно перенос строки оформить в виде функции.
Возможно, что и создание файла тоже можно оформить в виде функции.

А так, в этой программе использованы всего три функции: open_file, close_file, filter.
Цикл вывода массива в файл заключен между метками compare...pisk.

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