WebSVN – Kolibri OS – Blame – /kernel/branches/Kolibri-acpi/blkdev/flp_drv.inc

Rev	Author	Line No.	Line
431	serge	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
2465	Serge	3	;; Copyright (C) KolibriOS team 2004-2011. All rights reserved. ;;
431	serge	4	;; Distributed under terms of the GNU General Public License ;;
		5	;; ;;
		6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		7
593	mikedld	8	$Revision: 3908 $
		9
		10
1	ha	11	;**********************************************************
3555	Serge	12	; Непосредственная работа с контроллером гибкого диска
1	ha	13	;**********************************************************
3555	Serge	14	; Автор исходного текста Кулаков Владимир Геннадьевич.
		15	; Адаптация и доработка Mario79
1	ha	16
3555	Serge	17	;give_back_application_data: ; переслать приложению
465	serge	18	; mov edi,[TASK_BASE]
		19	; mov edi,[edi+TASKDATA.mem_start]
		20	; add edi,ecx
1	ha	21	give_back_application_data_1:
2434	Serge	22	mov esi, FDD_BUFF;FDD_DataBuffer ;0x40000
		23	xor ecx, ecx
		24	mov cx, 128
3555	Serge	25	cld
		26	rep movsd
		27	ret
1	ha	28
3555	Serge	29	;take_data_from_application: ; взять из приложени
465	serge	30	; mov esi,[TASK_BASE]
		31	; mov esi,[esi+TASKDATA.mem_start]
		32	; add esi,ecx
1	ha	33	take_data_from_application_1:
2434	Serge	34	mov edi, FDD_BUFF;FDD_DataBuffer ;0x40000
		35	xor ecx, ecx
		36	mov cx, 128
3555	Serge	37	cld
		38	rep movsd
		39	ret
1	ha	40
3555	Serge	41	; Коды завершения операции с контроллером (FDC_Status)
		42	FDC_Normal equ 0 ;нормальное завершение
		43	FDC_TimeOut equ 1 ;ошибка тайм-аута
		44	FDC_DiskNotFound equ 2 ;в дисководе нет диска
		45	FDC_TrackNotFound equ 3 ;дорожка не найдена
		46	FDC_SectorNotFound equ 4 ;сектор не найден
1	ha	47
3555	Serge	48	; Максимальные значения координат сектора (заданные
		49	; значения соответствуют параметрам стандартного
		50	; трехдюймового гибкого диска объемом 1,44 Мб)
1	ha	51	MAX_Track equ 79
		52	MAX_Head equ 1
		53	MAX_Sector equ 18
		54
75	diamond	55	uglobal
3555	Serge	56	; Счетчик тиков таймера
1	ha	57	TickCounter dd ?
3555	Serge	58	; Код завершения операции с контроллером НГМД
1	ha	59	FDC_Status DB ?
3555	Serge	60	; Флаг прерывания от НГМД
1	ha	61	FDD_IntFlag DB ?
3555	Serge	62	; Момент начала последней операции с НГМД
1	ha	63	FDD_Time DD ?
3555	Serge	64	; Номер дисковода
1	ha	65	FDD_Type db 0
3555	Serge	66	; Координаты сектора
1	ha	67	FDD_Track DB ?
		68	FDD_Head DB ?
		69	FDD_Sector DB ?
		70
3555	Serge	71	; Блок результата операции
1	ha	72	FDC_ST0 DB ?
		73	FDC_ST1 DB ?
		74	FDC_ST2 DB ?
		75	FDC_C DB ?
		76	FDC_H DB ?
		77	FDC_R DB ?
		78	FDC_N DB ?
3555	Serge	79	; Счетчик повторения операции чтени
1	ha	80	ReadRepCounter DB ?
3555	Serge	81	; Счетчик повторения операции рекалибровки
1	ha	82	RecalRepCounter DB ?
75	diamond	83	endg
3555	Serge	84	; Область памяти для хранения прочитанного сектора
1	ha	85	;FDD_DataBuffer: times 512 db 0 ;DB 512 DUP (?)
		86	fdd_motor_status db 0
		87	timer_fdd_motor dd 0
		88
		89	;*************************************
3555	Serge	90	;* ИНИЦИАЛИЗАЦИЯ РЕЖИМА ПДП ДЛЯ НГМД *
1	ha	91	;*************************************
		92	Init_FDC_DMA:
		93	pushad
2434	Serge	94	mov al, 0
		95	out 0x0c, al; reset the flip-flop to a known state.
		96	mov al, 6 ; mask channel 2 so we can reprogram it.
		97	out 0x0a, al
		98	mov al, [dmamode]; 0x46 -> Read from floppy - 0x4A Write to floppy
		99	out 0x0b, al
		100	mov al, 0
		101	out 0x0c, al; reset the flip-flop to a known state.
		102	mov eax, 0xD000
		103	out 0x04, al; set the channel 2 starting address to 0
		104	shr eax, 8
		105	out 0x04, al
		106	shr eax, 8
		107	out 0x81, al
		108	mov al, 0
		109	out 0x0c, al; reset flip-flop
		110	mov al, 0xff;set count (actual size -1)
3555	Serge	111	out 0x5, al
2434	Serge	112	mov al, 0x1;[dmasize] ;(0x1ff = 511 / 0x23ff =9215)
		113	out 0x5, al
		114	mov al, 2
		115	out 0xa, al
1	ha	116	popad
		117	ret
		118
		119	;***********************************
3555	Serge	120	;* ЗАПИСАТЬ БАЙТ В ПОРТ ДАННЫХ FDC *
		121	;* Параметры: *
		122	;* AL - выводимый байт. *
1	ha	123	;***********************************
		124	FDCDataOutput:
		125	; pusha
3555	Serge	126	push eax ecx edx
		127	mov AH, AL ;запомнить байт в AH
		128	; Сбросить переменную состояния контроллера
2434	Serge	129	mov [FDC_Status], FDC_Normal
3555	Serge	130	; Проверить готовность контроллера к приему данных
		131	mov DX, 3F4h ;(порт состояния FDC)
		132	mov ecx, 0x10000 ;установить счетчик тайм-аута
1	ha	133	@@TestRS:
3555	Serge	134	in AL, DX ;прочитать регистр RS
		135	and AL, 0C0h ;выделить разряды 6 и 7
		136	cmp AL, 80h ;проверить разряды 6 и 7
1	ha	137	je @@OutByteToFDC
		138	loop @@TestRS
3555	Serge	139	; Ошибка тайм-аута
2434	Serge	140	mov [FDC_Status], FDC_TimeOut
3555	Serge	141	jmp @@End_5
		142	; Вывести байт в порт данных
1	ha	143	@@OutByteToFDC:
		144	inc DX
2434	Serge	145	mov AL, AH
		146	out DX, AL
1	ha	147	@@End_5:
		148	; popa
3555	Serge	149	pop edx ecx eax
1	ha	150	ret
		151
		152	;******************************************
3555	Serge	153	;* ПРОЧИТАТЬ БАЙТ ИЗ ПОРТА ДАННЫХ FDC *
		154	;* Процедура не имеет входных параметров. *
		155	;* Выходные данные: *
		156	;* AL - считанный байт. *
1	ha	157	;******************************************
		158	FDCDataInput:
		159	push ECX
		160	push DX
3555	Serge	161	; Сбросить переменную состояния контроллера
2434	Serge	162	mov [FDC_Status], FDC_Normal
3555	Serge	163	; Проверить готовность контроллера к передаче данных
		164	mov DX, 3F4h ;(порт состояния FDC)
		165	xor CX, CX ;установить счетчик тайм-аута
1	ha	166	@@TestRS_1:
3555	Serge	167	in AL, DX ;прочитать регистр RS
		168	and AL, 0C0h ;выдлить разряды 6 и 7
		169	cmp AL, 0C0h ;проверить разряды 6 и 7
1	ha	170	je @@GetByteFromFDC
		171	loop @@TestRS_1
3555	Serge	172	; Ошибка тайм-аута
2434	Serge	173	mov [FDC_Status], FDC_TimeOut
3555	Serge	174	jmp @@End_6
		175	; Ввести байт из порта данных
1	ha	176	@@GetByteFromFDC:
		177	inc DX
2434	Serge	178	in AL, DX
		179	@@End_6:
		180	pop DX
1	ha	181	pop ECX
		182	ret
		183
		184	;*********************************************
3555	Serge	185	;* ОБРАБОТЧИК ПРЕРЫВАНИЯ ОТ КОНТРОЛЛЕРА НГМД *
1	ha	186	;*********************************************
		187	FDCInterrupt:
3908	Serge	188	; Установить флаг прерывания
2434	Serge	189	mov [FDD_IntFlag], 1
3908	Serge	190	mov al, 1
1	ha	191	ret
		192
		193	;*******************************************
3555	Serge	194	;* ОЖИДАНИЕ ПРЕРЫВАНИЯ ОТ КОНТРОЛЛЕРА НГМД *
1	ha	195	;*******************************************
		196	WaitFDCInterrupt:
		197	pusha
3555	Serge	198	; Сбросить байт состояния операции
2434	Serge	199	mov [FDC_Status], FDC_Normal
3555	Serge	200	; Сбросить флаг прерывани
2434	Serge	201	mov [FDD_IntFlag], 0
3555	Serge	202	; Обнулить счетчик тиков
2434	Serge	203	mov eax, [timer_ticks]
		204	mov [TickCounter], eax
3555	Serge	205	; Ожидать установки флага прерывания НГМД
1	ha	206	@@TestRS_2:
3908	Serge	207	call change_task
2434	Serge	208	cmp [FDD_IntFlag], 0
3555	Serge	209	jnz @@End_7 ;прерывание произошло
2434	Serge	210	mov eax, [timer_ticks]
		211	sub eax, [TickCounter]
3555	Serge	212	cmp eax, 50 ;25 ;5 ;ожидать 5 тиков
1	ha	213	jb @@TestRS_2
		214	; jl @@TestRS_2
3555	Serge	215	; Ошибка тайм-аута
2434	Serge	216	mov [FDC_Status], FDC_TimeOut
1	ha	217	; mov [flp_status],0
2434	Serge	218	@@End_7:
		219	popa
1	ha	220	ret
		221
		222	;*********************************
3555	Serge	223	;* ВКЛЮЧИТЬ МОТОР ДИСКОВОДА "A:" *
1	ha	224	;*********************************
		225	FDDMotorON:
		226	pusha
		227	; cmp [fdd_motor_status],1
		228	; je fdd_motor_on
2434	Serge	229	mov al, [flp_number]
		230	cmp [fdd_motor_status], al
1	ha	231	je fdd_motor_on
3555	Serge	232	; Произвести сброс контроллера НГМД
		233	mov DX, 3F2h;порт управления двигателями
2434	Serge	234	mov AL, 0
		235	out DX, AL
3555	Serge	236	; Выбрать и включить мотор дисковода
2434	Serge	237	cmp [flp_number], 1
1	ha	238	jne FDDMotorON_B
		239	; call FDDMotorOFF_B
2434	Serge	240	mov AL, 1Ch ; Floppy A
1	ha	241	jmp FDDMotorON_1
		242	FDDMotorON_B:
		243	; call FDDMotorOFF_A
2434	Serge	244	mov AL, 2Dh ; Floppy B
1	ha	245	FDDMotorON_1:
2434	Serge	246	out DX, AL
3555	Serge	247	; Обнулить счетчик тиков
2434	Serge	248	mov eax, [timer_ticks]
		249	mov [TickCounter], eax
3555	Serge	250	; Ожидать 0,5 с
1	ha	251	@@dT:
19	mario79	252	call change_task
2434	Serge	253	mov eax, [timer_ticks]
		254	sub eax, [TickCounter]
		255	cmp eax, 50 ;10
1	ha	256	jb @@dT
2434	Serge	257	cmp [flp_number], 1
1	ha	258	jne fdd_motor_on_B
2434	Serge	259	mov [fdd_motor_status], 1
1	ha	260	jmp fdd_motor_on
		261	fdd_motor_on_B:
2434	Serge	262	mov [fdd_motor_status], 2
1	ha	263	fdd_motor_on:
		264	call save_timer_fdd_motor
		265	popa
		266	ret
		267
		268	;*****************************************
3555	Serge	269	;* СОХРАНЕНИЕ УКАЗАТЕЛЯ ВРЕМЕНИ *
1	ha	270	;*****************************************
		271	save_timer_fdd_motor:
2434	Serge	272	mov eax, [timer_ticks]
		273	mov [timer_fdd_motor], eax
1	ha	274	ret
		275
		276	;*****************************************
3555	Serge	277	;* ПРОВЕРКА ЗАДЕРЖКИ ВЫКЛЮЧЕНИЯ МОТОРА *
1	ha	278	;*****************************************
3555	Serge	279	proc check_fdd_motor_status_has_work?
		280	cmp [flp_status], 0
		281	jnz .yes
		282	cmp [fdd_motor_status], 0
		283	jz .no
		284	mov eax, [timer_ticks]
		285	sub eax, [timer_fdd_motor]
		286	cmp eax, 500
		287	jb .no
		288	.yes:
		289	xor eax, eax
		290	inc eax
		291	ret
		292	.no:
		293	xor eax, eax
		294	ret
		295	endp
		296
1168	Lrz	297	align 4
1	ha	298	check_fdd_motor_status:
2434	Serge	299	cmp [fdd_motor_status], 0
19	mario79	300	je end_check_fdd_motor_status_1
2434	Serge	301	mov eax, [timer_ticks]
		302	sub eax, [timer_fdd_motor]
		303	cmp eax, 500
1	ha	304	jb end_check_fdd_motor_status
		305	call FDDMotorOFF
2434	Serge	306	mov [fdd_motor_status], 0
19	mario79	307	end_check_fdd_motor_status_1:
2434	Serge	308	mov [flp_status], 0
1	ha	309	end_check_fdd_motor_status:
		310	ret
		311
		312	;**********************************
3555	Serge	313	;* ВЫКЛЮЧИТЬ МОТОР ДИСКОВОДА *
1	ha	314	;**********************************
		315	FDDMotorOFF:
		316	push AX
		317	push DX
2434	Serge	318	cmp [flp_number], 1
1	ha	319	jne FDDMotorOFF_1
		320	call FDDMotorOFF_A
		321	jmp FDDMotorOFF_2
		322	FDDMotorOFF_1:
		323	call FDDMotorOFF_B
		324	FDDMotorOFF_2:
		325	pop DX
		326	pop AX
3555	Serge	327	; сброс флагов кеширования в связи с устареванием информации
2434	Serge	328	mov [root_read], 0
		329	mov [flp_fat], 0
1	ha	330	ret
		331
		332	FDDMotorOFF_A:
3555	Serge	333	mov DX, 3F2h;порт управления двигателями
2434	Serge	334	mov AL, 0Ch ; Floppy A
		335	out DX, AL
1	ha	336	ret
		337
		338	FDDMotorOFF_B:
3555	Serge	339	mov DX, 3F2h;порт управления двигателями
2434	Serge	340	mov AL, 5h ; Floppy B
		341	out DX, AL
1	ha	342	ret
		343
		344	;*******************************
3555	Serge	345	;* РЕКАЛИБРОВКА ДИСКОВОДА "A:" *
1	ha	346	;*******************************
		347	RecalibrateFDD:
		348	pusha
		349	call save_timer_fdd_motor
3555	Serge	350	; Подать команду "Рекалибровка"
2434	Serge	351	mov AL, 07h
1	ha	352	call FDCDataOutput
2434	Serge	353	mov AL, 00h
1	ha	354	call FDCDataOutput
3555	Serge	355	; Ожидать завершения операции
1	ha	356	call WaitFDCInterrupt
		357	; cmp [FDC_Status],0
		358	; je no_fdc_status_error
		359	; mov [flp_status],0
		360	;no_fdc_status_error:
		361	call save_timer_fdd_motor
		362	popa
		363	ret
		364
		365	;*****************************************************
3555	Serge	366	;* ПОИСК ДОРОЖКИ *
		367	;* Параметры передаются через глобальные переменные: *
		368	;* FDD_Track - номер дорожки (0-79); *
		369	;* FDD_Head - номер головки (0-1). *
		370	;* Результат операции заносится в FDC_Status. *
1	ha	371	;*****************************************************
		372	SeekTrack:
		373	pusha
		374	call save_timer_fdd_motor
3555	Serge	375	; Подать команду "Поиск"
2434	Serge	376	mov AL, 0Fh
1	ha	377	call FDCDataOutput
3555	Serge	378	; Передать байт номера головки/накопител
2434	Serge	379	mov AL, [FDD_Head]
		380	shl AL, 2
1	ha	381	call FDCDataOutput
3555	Serge	382	; Передать байт номера дорожки
2434	Serge	383	mov AL, [FDD_Track]
1	ha	384	call FDCDataOutput
3555	Serge	385	; Ожидать завершения операции
1	ha	386	call WaitFDCInterrupt
2434	Serge	387	cmp [FDC_Status], FDC_Normal
1	ha	388	jne @@Exit
3555	Serge	389	; Сохранить результат поиска
2434	Serge	390	mov AL, 08h
1	ha	391	call FDCDataOutput
		392	call FDCDataInput
2434	Serge	393	mov [FDC_ST0], AL
1	ha	394	call FDCDataInput
2434	Serge	395	mov [FDC_C], AL
3555	Serge	396	; Проверить результат поиска
		397	; Поиск завершен?
2434	Serge	398	test [FDC_ST0], 100000b
1	ha	399	je @@Err
3555	Serge	400	; Заданный трек найден?
2434	Serge	401	mov AL, [FDC_C]
		402	cmp AL, [FDD_Track]
1	ha	403	jne @@Err
3555	Serge	404	; Номер головки совпадает с заданным?
2434	Serge	405	mov AL, [FDC_ST0]
		406	and AL, 100b
		407	shr AL, 2
		408	cmp AL, [FDD_Head]
1	ha	409	jne @@Err
3555	Serge	410	; Операция завершена успешно
2434	Serge	411	mov [FDC_Status], FDC_Normal
3555	Serge	412	jmp @@Exit
		413	@@Err: ; Трек не найден
2434	Serge	414	mov [FDC_Status], FDC_TrackNotFound
1	ha	415	; mov [flp_status],0
		416	@@Exit:
		417	call save_timer_fdd_motor
		418	popa
		419	ret
		420
		421	;*******************************************************
3555	Serge	422	;* ЧТЕНИЕ СЕКТОРА ДАННЫХ *
		423	;* Параметры передаются через глобальные переменные: *
		424	;* FDD_Track - номер дорожки (0-79); *
		425	;* FDD_Head - номер головки (0-1); *
		426	;* FDD_Sector - номер сектора (1-18). *
		427	;* Результат операции заносится в FDC_Status. *
		428	;* В случае успешного выполнения операции чтения *
		429	;* содержимое сектора будет занесено в FDD_DataBuffer. *
1	ha	430	;*******************************************************
		431	ReadSector:
		432	pushad
		433	call save_timer_fdd_motor
3555	Serge	434	; Установить скорость передачи 500 Кбайт/с
2434	Serge	435	mov AX, 0
		436	mov DX, 03F7h
		437	out DX, AL
3555	Serge	438	; Инициализировать канал прямого доступа к памяти
2434	Serge	439	mov [dmamode], 0x46
1	ha	440	call Init_FDC_DMA
3555	Serge	441	; Подать команду "Чтение данных"
		442	mov AL, 0E6h ;чтение в мультитрековом режиме
1	ha	443	call FDCDataOutput
2434	Serge	444	mov AL, [FDD_Head]
		445	shl AL, 2
1	ha	446	call FDCDataOutput
2434	Serge	447	mov AL, [FDD_Track]
1	ha	448	call FDCDataOutput
2434	Serge	449	mov AL, [FDD_Head]
1	ha	450	call FDCDataOutput
2434	Serge	451	mov AL, [FDD_Sector]
1	ha	452	call FDCDataOutput
3555	Serge	453	mov AL, 2 ;код размера сектора (512 байт)
1	ha	454	call FDCDataOutput
3555	Serge	455	mov AL, 18 ;+1; 3Fh ;число секторов на дорожке
1	ha	456	call FDCDataOutput
3555	Serge	457	mov AL, 1Bh ;значение GPL
1	ha	458	call FDCDataOutput
3555	Serge	459	mov AL, 0FFh;значение DTL
1	ha	460	call FDCDataOutput
3555	Serge	461	; Ожидаем прерывание по завершении операции
1	ha	462	call WaitFDCInterrupt
2434	Serge	463	cmp [FDC_Status], FDC_Normal
1	ha	464	jne @@Exit_1
3555	Serge	465	; Считываем статус завершения операции
1	ha	466	call GetStatusInfo
2434	Serge	467	test [FDC_ST0], 11011000b
1	ha	468	jnz @@Err_1
2434	Serge	469	mov [FDC_Status], FDC_Normal
3555	Serge	470	jmp @@Exit_1
2434	Serge	471	@@Err_1:
		472	mov [FDC_Status], FDC_SectorNotFound
1	ha	473	; mov [flp_status],0
		474	@@Exit_1:
		475	call save_timer_fdd_motor
		476	popad
		477	ret
		478
		479	;*******************************************************
3555	Serge	480	;* ЧТЕНИЕ СЕКТОРА (С ПОВТОРЕНИЕМ ОПЕРАЦИИ ПРИ СБОЕ) *
		481	;* Параметры передаются через глобальные переменные: *
		482	;* FDD_Track - номер дорожки (0-79); *
		483	;* FDD_Head - номер головки (0-1); *
		484	;* FDD_Sector - номер сектора (1-18). *
		485	;* Результат операции заносится в FDC_Status. *
		486	;* В случае успешного выполнения операции чтения *
		487	;* содержимое сектора будет занесено в FDD_DataBuffer. *
1	ha	488	;*******************************************************
		489	ReadSectWithRetr:
		490	pusha
3555	Serge	491	; Обнулить счетчик повторения операции рекалибровки
2434	Serge	492	mov [RecalRepCounter], 0
1	ha	493	@@TryAgain:
3555	Serge	494	; Обнулить счетчик повторения операции чтени
2434	Serge	495	mov [ReadRepCounter], 0
1	ha	496	@@ReadSector_1:
		497	call ReadSector
2434	Serge	498	cmp [FDC_Status], 0
1	ha	499	je @@Exit_2
2434	Serge	500	cmp [FDC_Status], 1
379	serge	501	je @@Err_3
3555	Serge	502	; Троекратное повторение чтени
1	ha	503	inc [ReadRepCounter]
2434	Serge	504	cmp [ReadRepCounter], 3
1	ha	505	jb @@ReadSector_1
3555	Serge	506	; Троекратное повторение рекалибровки
1	ha	507	call RecalibrateFDD
		508	call SeekTrack
		509	inc [RecalRepCounter]
2434	Serge	510	cmp [RecalRepCounter], 3
1	ha	511	jb @@TryAgain
		512	; mov [flp_status],0
		513	@@Exit_2:
		514	popa
		515	ret
		516	@@Err_3:
2434	Serge	517	mov [flp_status], 0
1	ha	518	popa
		519	ret
		520
		521	;*******************************************************
3555	Serge	522	;* ЗАПИСЬ СЕКТОРА ДАННЫХ *
		523	;* Параметры передаются через глобальные переменные: *
		524	;* FDD_Track - номер дорожки (0-79); *
		525	;* FDD_Head - номер головки (0-1); *
		526	;* FDD_Sector - номер сектора (1-18). *
		527	;* Результат операции заносится в FDC_Status. *
		528	;* В случае успешного выполнения операции записи *
		529	;* содержимое FDD_DataBuffer будет занесено в сектор. *
1	ha	530	;*******************************************************
		531	WriteSector:
		532	pushad
		533	call save_timer_fdd_motor
3555	Serge	534	; Установить скорость передачи 500 Кбайт/с
2434	Serge	535	mov AX, 0
		536	mov DX, 03F7h
		537	out DX, AL
3555	Serge	538	; Инициализировать канал прямого доступа к памяти
2434	Serge	539	mov [dmamode], 0x4A
1	ha	540	call Init_FDC_DMA
3555	Serge	541	; Подать команду "Запись данных"
		542	mov AL, 0xC5 ;0x45 ;запись в мультитрековом режиме
1	ha	543	call FDCDataOutput
2434	Serge	544	mov AL, [FDD_Head]
		545	shl AL, 2
1	ha	546	call FDCDataOutput
2434	Serge	547	mov AL, [FDD_Track]
1	ha	548	call FDCDataOutput
2434	Serge	549	mov AL, [FDD_Head]
1	ha	550	call FDCDataOutput
2434	Serge	551	mov AL, [FDD_Sector]
1	ha	552	call FDCDataOutput
3555	Serge	553	mov AL, 2 ;код размера сектора (512 байт)
1	ha	554	call FDCDataOutput
3555	Serge	555	mov AL, 18; 3Fh ;число секторов на дорожке
1	ha	556	call FDCDataOutput
3555	Serge	557	mov AL, 1Bh ;значение GPL
1	ha	558	call FDCDataOutput
3555	Serge	559	mov AL, 0FFh;значение DTL
1	ha	560	call FDCDataOutput
3555	Serge	561	; Ожидаем прерывание по завершении операции
1	ha	562	call WaitFDCInterrupt
2434	Serge	563	cmp [FDC_Status], FDC_Normal
1	ha	564	jne @@Exit_3
3555	Serge	565	; Считываем статус завершения операции
1	ha	566	call GetStatusInfo
2434	Serge	567	test [FDC_ST0], 11000000b ;11011000b
1	ha	568	jnz @@Err_2
2434	Serge	569	mov [FDC_Status], FDC_Normal
3555	Serge	570	jmp @@Exit_3
2434	Serge	571	@@Err_2:
		572	mov [FDC_Status], FDC_SectorNotFound
1	ha	573	@@Exit_3:
		574	call save_timer_fdd_motor
		575	popad
		576	ret
		577
		578	;*******************************************************
3555	Serge	579	;* ЗАПИСЬ СЕКТОРА (С ПОВТОРЕНИЕМ ОПЕРАЦИИ ПРИ СБОЕ) *
		580	;* Параметры передаются через глобальные переменные: *
		581	;* FDD_Track - номер дорожки (0-79); *
		582	;* FDD_Head - номер головки (0-1); *
		583	;* FDD_Sector - номер сектора (1-18). *
		584	;* Результат операции заносится в FDC_Status. *
		585	;* В случае успешного выполнения операции записи *
		586	;* содержимое FDD_DataBuffer будет занесено в сектор. *
1	ha	587	;*******************************************************
		588	WriteSectWithRetr:
		589	pusha
3555	Serge	590	; Обнулить счетчик повторения операции рекалибровки
2434	Serge	591	mov [RecalRepCounter], 0
1	ha	592	@@TryAgain_1:
3555	Serge	593	; Обнулить счетчик повторения операции чтени
2434	Serge	594	mov [ReadRepCounter], 0
1	ha	595	@@WriteSector_1:
		596	call WriteSector
2434	Serge	597	cmp [FDC_Status], 0
1	ha	598	je @@Exit_4
2434	Serge	599	cmp [FDC_Status], 1
1	ha	600	je @@Err_4
3555	Serge	601	; Троекратное повторение чтени
1	ha	602	inc [ReadRepCounter]
2434	Serge	603	cmp [ReadRepCounter], 3
1	ha	604	jb @@WriteSector_1
3555	Serge	605	; Троекратное повторение рекалибровки
1	ha	606	call RecalibrateFDD
		607	call SeekTrack
		608	inc [RecalRepCounter]
2434	Serge	609	cmp [RecalRepCounter], 3
1	ha	610	jb @@TryAgain_1
		611	@@Exit_4:
		612	popa
		613	ret
		614	@@Err_4:
2434	Serge	615	mov [flp_status], 0
1	ha	616	popa
		617	ret
		618
		619	;*********************************************
3555	Serge	620	;* ПОЛУЧИТЬ ИНФОРМАЦИЮ О РЕЗУЛЬТАТЕ ОПЕРАЦИИ *
1	ha	621	;*********************************************
		622	GetStatusInfo:
		623	push AX
		624	call FDCDataInput
2434	Serge	625	mov [FDC_ST0], AL
1	ha	626	call FDCDataInput
2434	Serge	627	mov [FDC_ST1], AL
1	ha	628	call FDCDataInput
2434	Serge	629	mov [FDC_ST2], AL
1	ha	630	call FDCDataInput
2434	Serge	631	mov [FDC_C], AL
1	ha	632	call FDCDataInput
2434	Serge	633	mov [FDC_H], AL
1	ha	634	call FDCDataInput
2434	Serge	635	mov [FDC_R], AL
1	ha	636	call FDCDataInput
2434	Serge	637	mov [FDC_N], AL
1	ha	638	pop AX
		639	ret
		640

Subversion Repositories Kolibri OS

(root)/kernel/branches/Kolibri-acpi/blkdev/flp_drv.inc – Rev 3908