Здравствуйте, Draconit!

В приложении программа, которая выводит в 16-ые коды и дальше в строке их символьное представление в формате(16 строк по 16 байт):
<font color=blue>68 <b>0D 0A</b> 64 77 20 6F 66 66 73 65 74 20 4E 4F 50 h<b>··</b>dw offset NOP</font>
Во время вывода 16-ых кодов производится проверка служебных кодов и их замена на символ(в примере выше, это выделенно).
Производится проверка ошибок во время выполнения:
-не удалось открыть файл;
-не удалось прочитать файл;
-не правильное имя файла;

Удачи!

Приложение:
;tasm progr;tlink progr;masm;директива компилятораequReadSize equ 16.model small.186.stack 200.datadbFileNameOpen db ‘reestra.txt‘,0dbErrorOpen db 13,10,‘Error: unable to open file$‘dbErrorRead db 13,10,‘Error: unable to read file$‘;;если эту строчку разместить после строки dbReadBuffer , то ;длину полного пути к файлу и его имени можно увеличить до 60 символовdbErrorName db 13,10,‘Error: wrong file name$‘dbStopDump db 13,10,‘End of file$‘dwHndlOpen dw ?dbCount db ?;;эта строка используется при;;- выводе сообщения для ввода имени файла;- ввода имени файла;- первые 16-байт для чтения из файла dbReadBuffer db ‘Enter file name for dump[max:35byte]$‘.code;настраиваемся на сегмент данныхstart: mov ax,@data mov ds,ax;ставим 3-ий текстовый режим и чистим экран mov ax,03 int 10h;выводим приглашение для ввода имени файла mov ah,09 mov dx,offset dbReadBuffer;запоминаем для функции 0А адрес буфера строки push dx push dx int 21h;ставим максимальное значение пути к файлу(23 байта) и имени файла(8+1+3 байт);(8-имя файла) + (1-точка) + (3-разширение) mov byte ptr[dbReadBuffer],35 mov ah,0ah pop dx int 21h;записываем маркер конца имени файла pop si xor ah,ah mov al,[si+1];проверяем длину имени файла or al,al mov dx,offset dbErrorName jz isOutMessage;вычисляем адрес маркера конца имени файла add si,ax mov [si+2],ah;открываем файл для чтения mov ax,3d20h mov dx,offset dbReadBuffer+2 int 21h;контролируем ошибку работы функции mov dx,offset dbErrorOpen jc isOutMessage mov dwHndlOpen,ax;цикл чтения файла и вывода 16 линий по 16 байтOutputPage: ;перходим в 3-ий видео режим и чистим экран mov ax,03 int 10h;будем выводить 16-ть линий mov byte ptr[dbCount],equReadSize;вывод одной линии в формате;00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................outputNext: call OutputLine;если при выходе из подпрограммы счетчик-флаг равен 0-ю, то достигли конца файла mov al,dbCount or al,al jz isEndOfFile;уменьшаем счетчик и проверяем закончился ли вывод одного кадра dec byte ptr[dbCount] jnz OutputNext;вводим символ без эхо mov ah,07 int 21h;переход на следующий кадр jmp OutputPage;закрываем открытый файлisEndOfFile: call isCloseFile;сообщение о конце файла mov dx,offset dbStopDump;вывод сообщений: достигнут конец файла и 3-и ошибки:;не удалось открыть или прочитать файл и неправильное имя файлаisOutMessage: mov ah,09 int 21h;выход из программы mov ah,4ch int 21h;закрываем открытый флагisErrorRead: call isCloseFile;корректируем стек т.к. выход по ошибке происходит из подпрограммы pop ax;для 09-ой функции будем выводить сообщение об ошибке mov dx,offset dbErrorRead jmp isOutMessage ;читаем файлOutputLine: mov ah,3fh mov bx,dwHndlOpen;из открытого файла mov cx,equReadSize;16-ть байт mov dx,offset dbReadBuffer;в буфер int 21h;проверяем ошибку работы функции jc isErrorRead push ax;запоминаем число введенных символов;устанавливаем индексный регистр на буфер прочитанных символов mov si,offset dbReadBuffer push si;запоминаем адрес буфера для 09-ой функции mov di,ax or di,di jz isStopOut;читаем очередной символisNextStep: mov al,[si];проверяем код забоя=back space cmp al,7fh jz isNoSimbol;проверяем служебные коды т.е. 31 и меньше cmp al,20h jae isSimbol;служебный код вместо него записываем точкуisNoSimbol: mov byte ptr[si],0fah;перходим к следующему символуisSimbol: inc si;запоминаем код символа push ax;сдвигаем для вывода старшего полубайта shr al,4 call OutputHex;востанавливаем код символа для вывода младшего полубайта pop ax call OutputHex;выводим пробел разделитель mov al,20h int 29h;уменьшаем счетчик dec di;проверяем окончание строки jnz isNextStep;ставим маркер конца строки вывода mov byte ptr[si],‘$‘;выводим 2-а разделительных пробела для отделения 16-ой части от символьной mov al,20h int 29h mov al,20h int 29h;из стека получаем в СХ количество прочитанных символов pop dx pop cx push cx push dx;проверяем число прочитанных символов для сдвига символьной части sub cx,equReadSize;если равно 0, то сдвигать не нужно jz isOkSize;т.к. число не прочитанных символов меньше 16-ти;переводим в отрицательное значение в абсолютное not cx inc cx;т.к. при выводе на один 16-ый код приходится 3-знакоместа;будем умножать на 3-ти mov ax,cx shl cx,1 add cx,ax;выравниваем вывод символьной частиisCorrect: mov al,20h int 29h loop isCorrect;востанавливаем начало адрес буфера вывода и выводимisOkSize: pop dx mov ah,09 int 21h;переводим строку mov al,13 int 29h mov al,10 int 29h;проверяем количество прочитанных символов;и если оно меньше 16-тиisStopOut: pop ax cmp ax,equReadSize je isNoStop;то ставим флаг конец файла xor al,al mov dbCount,al;возврат из подпрограммыisNoStop: ret;берем младший полу байтOutputHex: and al,0fh;преводим в символ or al,30h cmp al,‘9‘;контролируем 16-ые цифры jbe isNo16 add al,7;выводим в режиме телетайпаisNo16: int 29h ret;закрываем файлisCloseFile: mov ah,3eh mov bx,dwHndlOpen int 21h ret end start