Пример драйвера блочного устройства
6.10. Пример драйвера блочного устройства
Приведем пример драйвера "электронного" диска, расположенного в основной (не расширенной или дополнительной) памяти компьютера. Этот драйвер предназначен, разумеется, не для замены поставляющегося стандартно RAMDRIVE.SYS, однако на его примере можно увидеть, как устроены драйверы блочных устройств.
И если когда-нибудь Вам потребуется использовать диски ЭВМ серии ЕС в качестве винчестера персонального компьютера, то разобравшись в том, как работает приведенный ниже драйвер, Вы сможете самостоятельно приспособить его для такой задачи.
; ; Драйвер электронного диска, ; использует основную память компьютера ; .MODEL tiny .CODE ; Драйвер состоит из одного ; сегмента кода
org 0 ; Эта строка может отсутствовать
include sysp.inc
ram PROC far
;=======================================================
; Заголовок драйвера
dd 0ffffffffh ;адрес следующего драйвера dw 2000h ;байт атрибутов dw dev_strategy ;адрес процедуры стратегии dw dev_interrupt ;адрес процедуры прерывания db 1 db 7 dup(?)
; Блок BPB для электронного диска
bpb equ $
dw 512 ; количество байтов в секторе db 1 ; количество секторов в кластере dw 1 ; количество зарезервированных секторов db 2 ; количество копий FAT dw 64 ; макс. количество файлов в корневом каталоге dw 360 ; общее количество секторов db 0fch ; описатель среды носителя данных dw 2 ; количество секторов на одну копию FAT bpb_ptr dw bpb ; указатель на блок BPB ; Область локальных переменных драйвера total dw ? ; количество секторов verify db 0 ; флаг проверки при записи start_sec dw 0 ; номер начального сектора vdisk_ptr dw 0 ; сегмент начала участка памяти, ; в котором расположен диск user_dta dw ? ; адрес области передачи данных dw ? ; Образец записи BOOT для инициализации ; первого сектора диска boot_rec equ $ db 3 dup(0) db 'MSDOS4.0' dw 512 db 1 dw 1 db 2 dw 64 dw 360 db 0fch dw 2 ;======================================================== ; Программа стратегии dev_strategy: mov cs:req_seg,es mov cs:req_off,bx ret ; Здесь запоминается адрес заголовка запроса req_seg dw ? req_off dw ? ;======================================================= ;Обработчик прерывания dev_interrupt: push es ;сохраняем регистры push ds push ax push bx push cx push dx push si push di push bp ; Устанавливаем ES:BX на заголовок запроса mov ax,cs:req_seg mov es,ax mov bx,cs:req_off ; Получаем код команды из заголовка запроса и умножаем ; его на два, чтобы использовать в качестве индекса ; таблицы адресов обработчиков команд mov al,es:[bx]+2 shl al,1 sub ah,ah ; Обнуляем AH lea di,functions ; DI указывает на смещение ; таблицы add di,ax ; Добавляем смещение в таблице jmp word ptr [di] ; Переходим на адрес из таблицы functions LABEL WORD ; Таблица функций dw initialize dw check_media dw make_bpb dw ioctl_in dw input_data dw nondestruct_in dw input_status dw clear_input dw output_data dw output_verify dw output_status dw clear_output dw ioctl_out dw Device_open dw Device_close dw Removable_media ; Выход из драйвера, если функция не поддерживается ioctl_in: nondestruct_in: input_status: clear_input: output_status: clear_output: ioctl_out: Removable_media: Device_open: Device_close: or es:word ptr [bx]+3,8103h jmp quit ;======================================================= ; Построение блока BPB make_bpb: push es push bx mov cs:WORD PTR start_sec,0 mov cs:WORD PTR total,1 call calc_adr push cs pop es lea di,bpb add si,11 mov cx,13 rep movsb pop bx pop es lea dx,bpb mov es:18[bx],dx mov es:20[bx],cs jmp quit check_media: ; Проверка смены носителя данных. ; Носитель не менялся. mov es:BYTE PTR 14[bx],1 jmp quit ; Обработчик команды вывода данных output_verify: ; Для вывода с проверкой устанавливаем флаг проверки mov cs:BYTE PTR verify,1 output_data: call in_save mov ax,es:WORD PTR 20[bx] mov cs:start_sec,ax mov ax,es:WORD PTR 18[bx] mov cs:total,ax call sector_write mov es,cs:req_seg mov bx,cs:req_off cmp cs:BYTE PTR verify,0 jz no_verify mov cs:BYTE PTR verify,0 jmp input_data no_verify: jmp quit ;======================================================= ; Обработчик команды ввода данных input_data: call in_save mov ax,es:WORD PTR 20[bx] mov cs:start_sec,ax mov ax,es:WORD PTR 18[bx] mov cs:total,ax call sector_read mov es,cs:req_seg mov bx,cs:req_off jmp quit ;======================================================== quit: or es:word ptr [bx]+3,100h pop bp pop di pop si pop dx pop cx pop bx pop ax pop ds pop es ret ;======================================================== ; Процедура выводит на экран строку ; символов в формате ASCIIZ dpc proc near push si dpc_loop: cmp ds:byte ptr [si],0 jz end_dpc mov al,ds:byte ptr [si] @@out_ch al inc si jmp dpc_loop end_dpc: pop si ret dpc endp ;======================================================== hello db 13,10,'++' db 13,10,'¦ *RAM/DISK* (C)Frolov A., 1990 ¦' db 13,10,'++' db 13,10,0 ;======================================================== ; Сохранение адреса буфера и значения счетчика ; из области запроса в области локальных данных in_save proc near mov ax,es:WORD PTR 14[bx] mov cs:user_dta,ax mov ax,es:WORD PTR 16[bx] mov cs:user_dta+2,ax mov ax,es:WORD PTR 18[bx] xor ah,ah mov cs:total,ax ret in_save endp ; Процедура пересчитывает адрес сектора ; в адрес соответствующего этому сектору ; блока памяти. В регистре DS возвращается ; сегментный адрес этого блока, ; в CX - общее количество байт во всех секторах. ; Количество секторов задается в total, ; номер начального сектора - в start_sec calc_adr proc near mov ax,cs:start_sec mov cx,20h mul cx mov dx,cs:vdisk_ptr add dx,ax mov ds,dx xor si,si mov ax,cs:total mov cx,512 mul cx or ax,ax jnz move_it mov ax,0ffffh move_it: xchg cx,ax ret calc_adr endp ; Чтение сектора из памяти виртуального диска sector_read proc near call calc_adr mov es,cs:user_dta+2 mov di,cs:user_dta mov ax,di add ax,cx jnc read_copy mov ax,0ffffh sub ax,di mov cx,ax read_copy: rep movsb ret sector_read endp ; Запись сектора в память виртуального диска sector_write proc near call calc_adr push ds pop es mov di,si mov ds,cs:user_dta+2 mov si,cs:user_dta mov ax,si add ax,cx jnc write_copy mov ax,0ffffh sub ax,si mov cx,ax write_copy: rep movsb ret sector_write endp ;======================================================== E_O_P: ;Метка конца программы ;======================================================== initialize: push cs pop dx lea ax,cs:vdisk ; начало памяти, в которой ; расположен диск mov cl,4 ror ax,cl add dx,ax mov cs:vdisk_ptr,dx mov ax,2d00h ; размер памяти, отведенной ; для диска add dx,ax ; Записываем в область запроса адрес за ; концом области памяти, отведенной диску mov es:word ptr [bx]+14,0 mov es:word ptr [bx]+16,dx ; Количество поддерживаемых логических дисков - 1 mov es:word ptr [bx]+13,1 ; Возвращаем адрес построенного BPB lea dx,bpb_ptr mov es:word ptr [bx]+18,dx mov es:word ptr [bx]+20,cs ; Инициализируем BOOT-сектор mov es,cs:vdisk_ptr xor di,di lea si,boot_rec mov cx,24 rep movsb ; Обнуляем два сектора для FAT mov cs:WORD PTR start_sec,1 mov cs:WORD PTR total,2 call calc_adr push ds pop es mov di,si xor al,al rep stosb ; Подготавливаем первую копию FAT mov ds:BYTE PTR [si],0fch mov ds:BYTE PTR 1[si],0ffh mov ds:BYTE PTR 2[si],0ffh ; Подготавливаем вторую копию FAT push ds push si mov cs:WORD PTR start_sec,3 mov cs:WORD PTR total,2 call calc_adr push ds pop es mov di,si pop si pop ds rep movsb ; Записываем нули в сектора корневого каталога mov cs:WORD PTR start_sec,5 mov cs:WORD PTR total,4 call calc_adr xor al,al push ds pop es xor di,di rep stosb ; Выводим сообщение mov ax,cs mov ds,ax mov si,offset hello call dpc jmp quit ; Здесь начинается область данных, в которой ; расположен электронный диск. Эта область ; выровнена на границу параграфа. ALIGN 16 vdisk equ $ ram ENDP END ram
