Вывод на экран сведений о звуковом файле в формате Wav; как минимум: размер, дата создания, количество каналов, максимальная громкость

Данная программа служит для вывода информации о файле формата WAV на экран. Файлы формата WAV, как и большинство файлов состоит из заголовка и области данных. Поэтому данная задача довольно универсальна и методы, примененные здесь, могут быть так же использованы для получение информации о файлах других форматах, так же входе выполнения задании, нам необходимо будет научиться работать с файлами, использовать процедуры и макросы и т.д. Для этого нам понадобятся довольно обширные знания в ассемблере. Данная задача интересна так же тем, что в ходе выполнения, мы изучим структуру WAV файлов, что позволит нам в дальнейшем использовать полученные знания для реализации других более сложных задач, например воспроизведение, «склейка» и т.п.

1. Анализ задания

Ввести путь к файлу, который c которым будем дальше работать.

Программа работоспособна и соответствует предъявленным требованием.

Так как в программе использованы стандартные устройства ввода-вывода, впервые введенные в MS-DOS 2.0, то для работоспособности программы необходимо наличие на машине операционной системы не ниже чем MS-DOS 2.0.

Также возможен запуск из Windows (через меню Пуск/Выполнить…).

Список литературы

файл программа интерфейс экран

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

INITSRD MACRO

mov AX,@data ;инициализация сегментных

mov DS,AX ;регистров нa @data

mov ES,AX

ASSUME DS:@data

ENDM

SmbOut MACRO symb

mov AH,02h ;вывод символа

mov dl,symb

int 21h

ENDM

StrOut MACRO str

mov AH,09h ;вывод строки

lea dx,str

int 21h

ENDM

FileRead MACRO smesh,len ;

mov ah,42h ;перемещение указателя

mov al,0h ;от начала файла

mov cx, 0h ;

mov dx,smesh ;на величину smesh

int 21h

lea DX,BUFFER ;задаем адрес буфера

lea SI,BUFFER ;в который будет производиться чтение

mov AH,3FH ;чтение

mov CX,len ;считываем len байт

int 21H

ENDM

.MODEL SMALL

.STACK 256

.DATA

MSG1 DB 13,10, 'File size (in bytes): $'

MSG2 DB 13,10, 'Enter file path $'

MSG3 DB 13,10, 'File creation date (dd.mm.yy) : $'

MSG4 DB 13,10, 'Another file (y/n) ? $'

MSG5 DB 13,10, 'Number of channels : $'

MSG6 DB 13,10, 'Max Volume (in bits): $'

MSG7 DB 'Variant #1 Anokin K. A-8-07$'

ErrorFnd DB 13,10, 'File not found $'

ErrDate DB 13,10, 'Cant get date $'

ErrRead DB 13,10, 'Error reading file $'

ErrClose DB 13,10, 'Error closing file $'

Mono DB 'Mono(1)$'

Stereo DB 'Stereo(2)$'

Tpwave DB 'WAVE'

WrongT DB 13,10, 'Wrong type (must be WAV)$'

FileName DB ?

FileHand DW ?

VolS DW 4 DUP(' ')

BUFFER DB 4 DUP(' ')

.CODE

Start:

INITSRD ;инициализация

StrOut MSG7 ;вывод титульного сообщения

Call FilePath ;вызов процедуры получения пути к файлу

Open:

Call OpenFileRead ;вызов процедуры открытия файла

Call Channels ;вывод числа каналов

Call Volume ;вывод макс. амплитуды

CalL Sizepr ;размер файла

CaLL DateWR ;дата создания

Call CloseFile ;закрытие файла

WaitExit: ;организация задержки перед выходом

mov ah,07h ;ждем ввода символа

int 21h

Exit: ;затем выходим

mov ah,04Ch ;выход из программы

mov al,0h

int 21h

Channels PROC ;процедуры вывода числа каналов

StrOut MSG5

FileRead 16h,2h

Jnc NoErr1 ;проверяем на наличие ошибок

StrOUT ErrRead ;вывод сообщения об ошибке

Jmp WaitExit ;выходим из программы

NoErr1: ;ошибок нет

mov al,[si] ;в al загружаем считанное из буфера

cmp al,01h ;канал один ?

je m1 ;да

StrOut Stereo ;нет, канал стерео, выводим сообщение

jmp m2

m1:

StrOut Mono ;выводим сообщение

m2:

ret

Channels ENDP

Volume Proc ;процедура вывода макс. амплитуды

StrOut MSG6 ;выводим сообщение

FileRead VolS,2h ;считываем макс громкость

Jnc NoErr2 ;проверяем на наличие ошибок

StrOUT ErrRead ;сообщение об ошибке

Jmp WaitExit ;выходим из программы

NoErr2: ;ошибок нет

mov al,[si] ;в al загружаем считанное из буфера

xor dx,dx

Call Outwrite ;Вывод результата в десятичной форме

ret

Volume ENDP

FilePath PROC ;процедуры получения пути к файлу

StrOUT MSG2 ;выводим приглсительное сообщение

lea di, FileName ;сохраним адрес в di

mov cx, 0 ;счетчик введенных символов

keypress:

mov ah, 07h ;функция ввода с клавиатуры без эхо

int 21h ;вводим

cmp al, 08h ;проверяем был ли это backspace

jne keydisp ;если нет - пропускаем часть кода до метки

cmp cx, 0 ;нельзя удалить больше чем ввели

je keypress ;поэтому возвращаемся на начало

;иначе удаляем последний символ

push ax ;сохраним регистр ax

mov ah, 02h ;функция вывода символа

mov dl, 08h

int 21h ;курсор на 1 позицию назад

mov dl, 20h

int 21h ;выводим пробел (сотрем последний символ)

mov dl, 08h

int 21h ;курсор на 1 позицию назад

pop ax

dec di ;уменьшаем адрес на 1

dec cx ;и количество введенных символов

jmp keypress ;и возвращаемся на начало

keydisp:

mov ah, 02h ;функция вывода символа на экран

mov dl, al ;символ для вывода в dl

int 21h ;выводим символ

mov [di], al ;сохраняем символ по адресу di

inc di ;увеличиваем адрес на 1

inc cx ;увеличиваем счетчик символов на 1

cmp al, 0dh ;проверим введен ли Enter

jne keypress ;если нет - на начало

dec di ;установим курсор после введенной строки

mov al, 00h ;в al - 00

mov [di], al ;установим 0-символ в конец строки

; что бы привести её к формату ASCI

ret

Filepath ENDP

Sizepr PROC ;процедура вывода размера файла

StrOUT MSG1 ;вывод ссобщения

mov AH,42h ;запрос перемещения указателя

mov AL,02h ;в конец файла

mov BX,[filehand] ;загрузить дескриптор файла

mov CX,0 ;старшее слово смещения

mov DX,CX ;младшее слово смещения

int 21H ;вызов обработчика прерывания

CALL Outwrite ;вызов процедуры вывода в 10чной форме

ret

Sizepr ENDP

Outwrite PROC ;процедура вывода dx:ax в десятичной форме

xchg si,dx ;Сохранить старший dword

mov bx,10 ;Основание системы счисления

xor cx,cx ;Счетчик десятичных цифр

bignum_1:

xchg ax,si ;Рассчитать десятичную цифру

xor dx,dx

div bx

xchg si,ax

div bx

or dl,'0' ;Преобразовать результат в символ цифры

push dx ;Сохранить цифру в стеке

inc cx ;Увеличить счетчик цифр

or ax,ax ;Все преобразовали?

jnz bignum_1

bignum_2:

pop ax ;извлекаем из стека символ

mov dx,ax ;помещаем его в dx

mov ah,02h ;и выводим его

int 21h

loop bignum_2

xor ax,ax

ret

Outwrite ENDP

DateWR PROC ;процедура вывода даты создания файла

mov bx,[filehand] ;загружаем дескриптор файла в BX

StrOUT MSG3 ;выводим сообщение

mov AH,57H ;получение даты создания файла

mov AL,06H

int 21h

jc ErDate ;отработка ошибки

push dx ;полученный результат сохраняем в стеке

and dx,0000000000011111B ;день с 0 по 4 разряд

mov ax,dx ;результат перемещаем в ax

xor dx,dx

Call Outwrite ;вывод в десятичной форме

SmbOUT '.' ;выводим символ `.'

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

push dx

and dx,0000000111100000B ;месяц с 5 по 8 разряд

shr dx,5 ;смещаем на 5 вправо

mov ax,dx ;результат помещаем в ах

xor dx,dx

Call Outwrite ;выводим в десятичной форме

SmbOUT '.' ;выводим символ `.'

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

and dx,1111111000000000B ;год с 9 по 15 разряд

shr dx,9 ;сдвигаем на 9 вправо

add dx,1980 ;прибавляем 1980

mov ax,dx ;результат перемещаем в ах

xor dx,dx

Call Outwrite ;выводим в десятичной форме

jmp m3 ;ошибок нет, переходим на метку

ErDate: ;есть ошибки

StrOUT ErrDate ;выводим сообщение

Jmp WaitExit ;и выходим из программы

m3:

ret

DateWR ENDP

OpenFileRead PROC ;процедуры открытия файла

mov ah,3dh ;открываем файла

mov al,0 ;для чтения

lea dx,FileName ;в dx адрес файла

int 21h

jnc NoErr3 ;проверяем на наличие ошибок

StrOUT ErrorFnd ;выводим сообщение об ошибке

jmp WaitExit ;и выходим из программы

NoErr3: ;если ошибок нет

mov [filehand],AX ;в filehand загружаем дескриптор файла

mov bx,ax

FileRead 8h,4h ;Считываем идентификатор блока

;звуковых данных, должен быть WAVE

lea di,TPwave ;в di будет строка с которой будем сравнивать

mov cx,4

repe cmpsb ;сравниваем строки

je RightType ;если строки совпали переход

StrOUT WrongT ;нет- сообщение неверный формат

jmp WaitExit ;выходим из программы

RightType: ;если строки совпали, то

FileRead 10h,4h ;считываем длину подблока заголовка

mov ax,[si] ;должна быть 000ch/0010h -

cmp ax,0010h

je o1 ;если 000ch, то задаем смещение от начала файла

mov Vols,1eh ;для определения макс. громкости равное 1eh

jmp o3

o1: ; если 0010h, то задаем смещение от начала файла

mov VolS,22h ; для определения макс. громкости равное 22h

o3:

ret

OpenFileRead ENDP

CloseFile PROC ;процедуры закрытия файла

mov ah,3eh

int 21h

jnc NoErr4 ;отработка ошибки

StrOut ErrClose ;есть ошибка, выводим сообщение

Jmp WaitExit ;выходим из программы

NoErr4: ;ошибок нет

ret

CloseFile ENDP

End Start

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