////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
;	FAT 12-16
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

;[BEGIN]
;//MODULE: FAT_X
;//CREATE: 19-05-1998	AUTHOR:	Denis Parinov
;//UPDATE: 24-10-1999	DNS	Restore	module
;---------------------------------------------------------------
;Rev	Date	   Name	Description
;---------------------------------------------------------------
;RX01	10-02-1999 DNS	UPGRADE	FAT CASH
;---------------------------------------------------------------

; Установить начальный кластер для чтения
R_CLUST	LD	HL,#0001
	LD	(G_CLUST.num),HL
	RET 

; найти первый свободный кластер
G_CLUST:
.num+1:	LD	HL,#0001
.loop:	INC	HL			; номер кластера
	CALL	R_F_FAT			; прочитать из кеша FAT-а номер след. кластера
	CP	DSS_Error.sys.DISK_FULL
	SCF 
	RET	Z			; ошибка ?
	LD	A,D
	OR	E
	JR	NZ,.loop
	LD	(G_CLUST.num),HL
	XOR	A
	RET 

; HL - CLUSTER
INC_FAT	PUSH	HL
	CALL	G_CLUST
	POP	DE
	RET	C
	;
	PUSH	HL
	PUSH	HL
	EX	DE,HL			; hl=номер кластера
.loop:	CALL	R_F_FAT			; прочитать из кеша FAT-а номер след. кластера
	EX	DE,HL
	JR	NC,.loop		; не конец цепочки
	EX	DE,HL
	POP	DE			; номер кластера
	CALL	W_T_FAT			; записать в кеш FAT-а номер кластера
	;!FIXIT <нет контроля ошибки>
	;
	;
	POP	HL
	LD	DE,(FatBuffer.ENDCLUS)	; номер кластера
	CALL	W_T_FAT			; записать в кеш FAT-а номер кластера
	;!TEST ;!TODO 2/12/23 [ ] баг с избыточной записью WR_FAT?
	 ;CALL	WR_FAT			; подкл. банку кеша FAT и записать его на диск
	;
	AND	A
	RET 
;RX01

;-----------------------------------------------------------
; Прочитать из кеша FAT-а номер след. кластера
; вход:	 hl = номер кластера
; выход: hl = номер кластера
;        de = номер след. кластера
;        CF - конец цепочки
;!FIXIT далее заточка на то, что в DE всегда 0 - раздел не больше 2Gb
;-----------------------------------------------------------
R_F_FAT:
	EX	DE,HL
	LD	HL,(FAT_Max_Cluster)
	AND	A
	SBC	HL,DE
	EX	DE,HL
	LD	A,DSS_Error.sys.DISK_FULL
	RET	C

	 SET_PAGE_X FATPAGE

	PUSH	HL
	PUSH	AF
	LD	A,(FatBuffer.FAT_TYP)
	CP	"2"			; fat12
	JR	Z,R_F_F12
	; fat16, просто читать след. номер
R_F_F16:
	; LD	A,H
	; LD	B,H
	; ;AND	#0F
	; AND	FAT_CACHE.Size_Mask_16
	; LD	H,A
	; LD	A,B
	; ; A=A/16	; A - BLOCK FAT (1 BLOCK = 8192 BYTES)
	; DUP FAT_CACHE.Degree_16
	;  RRCA 
	; EDUP
	; ;AND	#0F	
	; AND	FAT_CACHE.Part_Mask_16
	; ;
	; ADD	HL,HL			; HL - FAT OFFSET (FROM	CASH)
	; LD	BC,(FatCache)		; C - BLOCK FAT IN CASH
	; CP	C
	; CALL	NZ,READ_FAT		; A != C - READ NEW BLOCK FAT
	; LD	DE,FATPAGE.cache	; начало кеша FAT-а
	; ADD	HL,DE			; на ячейку FAT
	CALL	GET_FAT16_CELL
	LD	E,(HL)			; прочитать номер кластера
	INC	HL
	LD	D,(HL)
	POP	AF
	OUT	(SLOT3),A
	;!TODO #FFF7 - кластер с косякчными секторами
	LD	HL,#FFEF		;!HARDCODE
	XOR	A               	; DssErr.sys.NO_ERROR
	SBC	HL,DE			; проверка на служ. кластеры
	POP	HL
	RET 
	;
R_F_F12:
	CALL	GET_FAT12_CELL
	; LD	D,H
	; LD	E,L
	; RR	H
	; RR	L			; сдвиг вправо через CF
	; PUSH	AF			; сохр. флаг			
	; ADD	HL,DE			; CLUSTER * 1.5
	; ;
	; ;!FIXIT оптимизировать
	; ;IF COMPILE_UNUSED_CODE
	;  LD	A,H
	;  LD	B,H
	;  AND	#1F
	;  LD	H,A
	;  LD	A,B
	;  RLCA 
	;  RLCA 
	;  RLCA 
	;  AND	#07
	;  LD	BC,(FatCache)		; C - BLOCK FAT IN CASH
	;  CP	C
	;  CALL	NZ,READ_FAT		; прочитать в кеш 16 секторов FAT-а
	; ;ENDIF
	; ;
	; LD	DE,FATPAGE.cache	; начало кеша FAT-а
	; ADD	HL,DE			; на ячейку FAT
	; POP	AF			; восст. флаг

	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	JR	C,R_F_F01
	LD	A,D
	AND	#0F
	LD	D,A
	JP	R_F_F02
	;
R_F_F01:
	LD	A,E
	AND	#F0
	RR	D			; вправо на 4 битa
	RRA
	RR	D
	RRA
	RR	D
	RRA
	RR	D
	RRA
	LD	E,A
R_F_F02:
	POP	AF
	OUT	(SLOT3),A
	LD	HL,#0FEF
	XOR	A			; обнуляем CF и устанавливаем код ошибки = нулю
	SBC	HL,DE			; проверка на служ. кластеры
	POP	HL
	RET 

;-----------------------------------------------------------
; Записать в кеш FAT-а номер кластера
; вход:	 de = номер кластера
;	 hl = ? номер первого кластера
; выход: hl = ? номер след. кластера
;        de = номер кластера
; in:	HL - CLUSTER
; out:	DE - (CLUSTER)
;-----------------------------------------------------------
W_T_FAT:
	PUSH	DE
	EX	DE,HL
	LD	HL,(FAT_Max_Cluster)
	AND	A
	SBC	HL,DE
	EX	DE,HL
	POP	DE
	LD	A,DSS_Error.sys.DISK_FULL
	RET	C
	EXX 
	 SET_PAGE_X FATPAGE
	EXX 
	PUSH	HL
	PUSH	AF
	; [x] 2/12/23 FAT не всегда мог записаться на HDD
	 ;LD	A,1
	 ;LD	(FatCache.Update),A
	;
	LD	A,(FatBuffer.FAT_TYP)
	CP	"2"			; fat12
	JR	Z,W_T_F12
W_T_F16:
	PUSH	DE
	; LD	A,H
	; LD	B,H
	; ;AND	#0F
	; AND	FAT_CACHE.Size_Mask_16
	; LD	H,A
	; LD	A,B
	; ; A=A/16	; A - BLOCK FAT (1 BLOCK = 8192 BYTES)
	; DUP FAT_CACHE.Degree_16
	;  RRCA 
	; EDUP
	; ;AND	#0F	
	; AND	FAT_CACHE.Part_Mask_16
	; ;
	; ADD	HL,HL		; HL - FAT OFFSET (FROM	CASH) ;!HARDCODE fat16 - размер записи FAT
	; LD	BC,(FatCache)	; C - BLOCK FAT IN CASH	
	; CP	C
	; CALL	NZ,READ_FAT	; A != C - READ NEW BLOCK FAT
	; LD	DE,FATPAGE.cache
	; ADD	HL,DE		; на ячейку FAT
	CALL	GET_FAT16_CELL
	POP	DE		
	LD	(HL),E		; сохр. в кеше FAT-а
	INC	HL		; номер кластера
	LD	(HL),D
	POP	AF		; восст. порт
	POP	HL
	OUT	(SLOT3),A
	; [x] 2/12/23 FAT не всегда мог записаться на HDD
	 LD	A,1
	 LD	(FatCache.Update),A
	;
	XOR	A
	RET 
	;
	; fat12
W_T_F12:	;!FIXIT переделать на переменные FAT_CACHE
	PUSH	DE
	; LD	D,H
	; LD	E,L
	; ; ADD	HL,HL
	; ; ADD	HL,DE
	; ; RR	H
	; ; RR	L	;CLUSTER * 1.5
	; ; PUSH	AF
	; RR	H
	; RR	L			; сдвиг вправо через CF
	; PUSH	AF			; сохр. флаг			
	; ADD	HL,DE			; CLUSTER * 1.5
	; ;
	; ;!FIXIT оптимизировать
	; ;IF COMPILE_UNUSED_CODE
	;  LD	A,H
	;  LD	B,H
	;  AND	#1F
	;  LD	H,A
	;  LD	A,B
	;  RLCA 
	;  RLCA 
	;  RLCA 
	;  AND	#07
	;  LD	BC,(FatCache)		; C - BLOCK FAT IN CASH
	;  CP	C
	;  CALL	NZ,READ_FAT		; прочитать в кеш 16 секторов FAT-а
	; ;ENDIF
	; ;
	; LD	DE,FATPAGE.cache
	; ADD	HL,DE
	; POP	AF
	
	CALL	GET_FAT12_CELL
	POP	DE
	JP	C,W_T_F01		; номер нечётный
	LD	(HL),E
	INC	HL
	LD	A,(HL)
	AND	#F0
	OR	D
	LD	(HL),A
	POP	AF
	POP	HL
	OUT	(SLOT3),A
	; [x] 2/12/23 FAT не всегда мог записаться на HDD
	 LD	A,1
	 LD	(FatCache.Update),A
	;
	AND	A
	RET 
	;
W_T_F01:; влево на 4 битa
	SLA	E
	 LD	A,E
	 RL	D
	 RLA
	 RL	D
	 RLA
	 RL	D
	 RLA
	 RL	D
	 LD	E,A
	;
	LD	A,(HL)
	AND	#0F
	OR	E
	LD	(HL),A			; сохр. в кеше FAT-а
	INC	HL			; номер кластера
	LD	(HL),D
	POP	AF
	POP	HL
	OUT	(SLOT3),A
	; [x] 2/12/23 FAT не всегда мог записаться на HDD
	 LD	A,1
	 LD	(FatCache.Update),A
	;
	AND	A
	RET 

;RX01
;RE_FAT:
; Прочитать в кеш 16 секторов FAT-а
; A - NEW FAT BLOCK
READ_FAT:
	PUSH	HL
	PUSH	AF
	LD	A,(FatCache.Update)
	OR	A
	CALL	NZ,WR_FAT.Start
	POP	AF
	LD	L,A
	LD	H,0
	LD	(FatCache),HL
	;FAT BLOCK ^ FAT_CACHE.Degree	= SECTOR OF FAT
	DUP	FAT_CACHE.Degree_16
	 ADD	HL,HL	;x2
	EDUP
	LD	DE,(FatBuffer.FAT_FRM)
	ADD	HL,DE
	EX	DE,HL
	;
	 LD	XH,D
	 LD	XL,E		
	 ;LD	IX,0
	 ;ADD	IX,DE		; номер лог. сектора
	;
	LD	HL,0		; ст. разряд	; HL:IX - SECTOR FAT FOR READING
	LD	DE,FATPAGE.cache	; куда	;   DE - FAT ADDRESS
	LD	A,(FatBuffer.DRIVE)		; номер диска
        LD      BC,FAT_CACHE.Sectors*256 + Dss.DRV.Read	;рег B * FAT_CACHE.Sector_Size = CASH SIZE
	RST	ToDSS.DRV
	POP	HL
	RET 

; Подключить банку кеша FAT и записать его на диск
WR_FAT:	SET_PAGE_X FATPAGE
	PUSH	AF
	CALL	.Start			;!TODO нет контроля ошибок
	POP	AF
	OUT	(SLOT3),A
	RET 
	; Запись кеша (всего?) FAT-а на диск
.Start:	LD	HL,(FatCache)
	LD	H,0
	;FAT BLOCK * 16	= SECTOR OF FAT
	DUP	FAT_CACHE.Degree_16
	 ADD	HL,HL	;x2
	EDUP
	; HL - номер лог. сектора
	PUSH	HL
	LD	B,H
	LD	C,L					;BC - BLOCK OF FAT
	LD	DE,FAT_CACHE.Sectors
	ADD	HL,DE					;+ SIZE	CASH (16 SECTORS)
	LD	A,E	;!HARDCODE			; MAX число секторов для чтения в кэш
	LD	DE,(CORE_BUFFERS.BootSector.S_P_F)	; секторов на FAT
	AND	A
	SBC	HL,DE
	JR	C,.WALLFAT
	EX	DE,HL
	LD	HL,FAT_CACHE.Sectors
	; CF = 0
	SBC	HL,DE
	JP	C,.ERR
	LD	A,L
.WALLFAT:; !TODO чёб сразу в IX не грузить FAT_FRM?
	LD	H,B
	LD	L,C
	LD	DE,(FatBuffer.FAT_FRM)
	ADD	HL,DE
	EX	DE,HL
	;
	 LD	XH,D
	 LD	XL,E	
	 ;LD	IX,0
	 ;ADD	IX,DE		; номер лог. сектора
	;
	LD	HL,0			; ст. разряд
	;HL:IX - SECTOR	OF FAT FOR SAVE
	LD	DE,FATPAGE.cache	; откуда
	LD	B,A			; число секторов
	LD	C,Dss.DRV.Write		; запись секторов
	LD	A,(FatBuffer.DRIVE)	; номер диска
	PUSH	BC
	RST	ToDSS.DRV
	POP	BC			; b=число секторов
	POP	HL
	LD	DE,(FatBuffer.FAT2_XX)
	ADD	HL,DE
	EX	DE,HL
	;
	 LD	XH,D
	 LD	XL,E	
	 ;LD	IX,0
	 ;ADD	IX,DE		; номер лог. сектора
	;
	LD	DE,FATPAGE.cache
	LD	HL,0
	LD	A,(FatBuffer.DRIVE)
	LD	C,Dss.DRV.Write
	RST	ToDSS.DRV
	AND	A			;!TODO нет контроля ошибок
	; 
.ERR:	LD	A,0
	LD	(FatCache.Update),A
	RET	NC
	POP	HL
	; CF = 1
	RET 


;вход:	HL - номер кластера
;выход:	HL - адрес нужной ячейки в странице FATPAGE
GET_FAT16_CELL:
	LD	A,H
	LD	B,H
	;AND	#0F
	AND	FAT_CACHE.Size_Mask_16
	LD	H,A
	LD	A,B
	; A=A/16	; A - BLOCK FAT (1 BLOCK = 8192 BYTES)
	DUP FAT_CACHE.Degree_16
	 RRCA 
	EDUP
	;AND	#0F	
	AND	FAT_CACHE.Part_Mask_16
	;
	ADD	HL,HL			; HL - FAT OFFSET (FROM	CASH)
	LD	BC,(FatCache)		; C - BLOCK FAT IN CASH
	CP	C
	CALL	NZ,READ_FAT		; A != C - READ NEW BLOCK FAT
	LD	DE,FATPAGE.cache	; начало кеша FAT-а
	ADD	HL,DE			; на ячейку FAT
	RET

;вход:	HL - номер кластера
;выход:	HL - адрес нужной ячейки в странице FATPAGE
;	CF - чётный/нечётный адрес кластера
GET_FAT12_CELL:
	LD	D,H
	LD	E,L
	RR	H
	RR	L			; сдвиг вправо через CF
	PUSH	AF			; сохр. флаг			
	ADD	HL,DE			; CLUSTER * 1.5
	;
	;!FIXIT оптимизировать
	;IF COMPILE_UNUSED_CODE
	 LD	A,H
	 LD	B,H
	 
	 ;
	 AND	#1F
	 ;AND	FAT_CACHE.Size_Mask_16
	 ;

	 LD	H,A
	 LD	A,B

	 ;
	 RLCA  
	 RLCA 
	 RLCA 
	 ;DUP FAT_CACHE.Degree_16
	 ; RRCA 
	 ;EDUP
	 AND	#07
	 ;AND	FAT_CACHE.Part_Mask_16
	 ;
	 
	 LD	BC,(FatCache)		; C - BLOCK FAT IN CASH
	 CP	C
	 CALL	NZ,READ_FAT		; прочитать в кеш 16 секторов FAT-а
	;ENDIF
	;
	LD	DE,FATPAGE.cache
	ADD	HL,DE
	POP	AF
	RET


FatCache:		WORD #0000
.Block			EQU  FatCache
.Update			EQU  FatCache+1
FAT_Max_Cluster:	WORD #0FF0	; макс. число кластеров (без служ.)

;//MODULE: FAT_X
;[END]


;RX01
	;; HL - CLUSTER
	;; DE - (CLUSTER)
	;
	;R_F_FAT EX	    DE,HL
	;	    LD	    HL,(FAT_Max_Cluster)
	;	    AND	    A
	;	    SBC	    HL,DE
	;	    EX	    DE,HL
	;	    LD	    A,10
	;	    RET	    C
	;	    PUSH    HL
	;	    LD	    A,(FAT_TYP)
	;	    CP	    "2"
	;	    JP	    Z,R_F_F12
	;R_F_F16 LD	    DE,768  ; DE - CLUSTERS IN CASH
	;	    XOR	    A
	;R_F_00H INC	    A	    ; HL - CLUSTER
	;	    SBC	    HL,DE
	;	    JP	    NC,R_F_00H
	;	    ADD	    HL,DE
	;	    ADD	    HL,HL   ; HL - FAT OFFSET (FROM CASH)
	;	    DEC	    A
	;	    LD	    BC,(FatCache)    ; A	- ELEMENT OF CASH
	;	    CP	    C
	;	    CALL    NZ,READ_FAT
	;	    LD	    DE,FAT
	;	    ADD	    HL,DE
	;	    LD	    E,(HL)
	;	    INC	    HL
	;	    LD	    D,(HL)
	;	    LD	    HL,#FFEF
	;	    AND	    A
	;	    SBC	    HL,DE
	;	    POP	    HL
	;	    LD	    A,0
	;	    RET
	;
	;R_F_F12 LD	    D,H
	;	    LD	    E,L
	;	    ADD	    HL,HL
	;	    ADD	    HL,DE
	;	    RR	    H
	;	    RR	    L
	;	    PUSH    AF
	;	    EX	    DE,HL
	;	    LD	    HL,(B_P_S)
	;	    LD	    B,H
	;	    LD	    C,L
	;	    ADD	    HL,HL
	;	    ADD	    HL,BC
	;	    EX	    DE,HL
	;	    XOR	    A	    ; DE - SIZE	SECTOR * 3
	;R_F_00  INC	    A	    ; HL - FAT OFFSET
	;	    SBC	    HL,DE
	;	    JP	    NC,R_F_00
	;	    ADD	    HL,DE
	;	    DEC	    A
	;
	;

	;WR_FAT  LD	    HL,(FatCache)
	;	    LD	    H,0
	;	    LD	    (FatCache),HL
	;	    LD	    E,L
	;	    LD	    D,H
	;	    ADD	    HL,HL
	;	    ADD	    HL,DE
	;	    PUSH    HL
	;	    LD	    B,H
	;	    LD	    C,L
	;	    INC	    HL
	;	    INC	    HL
	;	    INC	    HL
	;	    LD	    DE,(S_P_F)
	;	    LD	    A,3
	;	    AND	    A
	;	    SBC	    HL,DE
	;	    JP	    C,WR_FAT1
	;	    EX	    DE,HL
	;	    LD	    HL,3
	;	    AND	    A
	;	    SBC	    HL,DE
	;	    JP	    C,FATERR
	;	    LD	    A,L
	;WR_FAT1 LD	    H,B
	;	    LD	    L,C
	;	    LD	    DE,(FAT_FRM)
	;	    ADD	    HL,DE
	;	    EX	    DE,HL
	;	    LD	    IX,0
	;	    ADD	    IX,DE
	;	    LD	    DE,FAT
	;	    LD	    HL,0
	;	    LD	    B,A
	;	    LD	    C,6
	;	    LD	    A,(DRIVE)
	;	    PUSH    BC
	;	    RST	    #18
	;	    POP	    BC
	;	    POP	    HL
	;	    LD	    DE,(FAT2_XX)
	;	    ADD	    HL,DE
	;	    EX	    DE,HL
	;	    LD	    IX,0
	;	    ADD	    IX,DE
	;	    LD	    DE,FAT
	;	    LD	    HL,0
	;	    LD	    A,(DRIVE)
	;	    LD	    C,6
	;	    RST	    #18
	;	    RET
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////