;-------------------------------------------------
; Подсветка файлов
;
; вход: de=адрес атрибута файла (+11)
;        b=формат акт. панели
; выход: c=индекс цвета
;-------------------------------------------------
hilight_types:
	ld	c,index_markfile;	; 3 индекс цвета марк. файла
	ex	de,hl
	inc	hl
	ld	a,(hl)			;+12 ячейка маркировки файла
	rlca				; отмечен ?
	ret	c			; да
	dec	c;			; c=2
	db	3Eh			; ld a,..
hilight_enable:
	db	true			; флаг раскраски файлов
	or	a
	ret	z
	bit	6,b			; spec-формат ?
	ret	nz			; да
	dec	hl
	bit	4,(hl)			;+11 папка ?
	ld	c,60;			; индекс цвета папки
	ret	nz			; да
	ld	c,62;			; c=62 индекс цвета архивов
	dec	hl			;+10 hl=конец расш.
	ld	a,(hl)		; J
	dec	hl
	ld	d,(hl)		; R
	dec	hl
	ld	e,(hl)		; A
	res	5,d
	res	5,e
	cp	" "
	jp	nz,hilight
	; 2-х букв. расширение архивов
	ld	hl,"AH"			; ha
	and	a
	sbc	hl,de
	ret	z
	ld	hl,"ZG"			; gz
	and	a
	sbc	hl,de
	ret	z
	jp	hilight_normal
	;
hilight:and	11011111b		; сбр. 5-bit
	dec	c;			; c=61 индекс цвета исполняемых файлов
	; исполняемые файлы
	ld	hl,"XE"			; exe
	and	a
	sbc	hl,de
	jp	nz,hilight1
	cp	"E"
	ret	z
	jp	hilight_normal
hilight1:
	ld	hl,"AB"			; bat
	and	a
	sbc	hl,de
	jp	nz,hilight_spec
	cp	"T"
	ret	z
	jp	hilight_normal
	; расш. scl,trd спек-файлов
hilight_spec:
	ld	c,65;			; индекс цвета спек-файлов
	ld	hl,"CS"			; scl
	and	a
	sbc	hl,de
	jp	nz,hilight2
	cp	"L"
	ret	z
	jp	hilight_normal
hilight2:
	ld	hl,"RT"			; trd
	and	a
	sbc	hl,de
	jp	nz,hilight_arc
	cp	"D"
	ret	z
	jp	hilight_normal
	; архивы
hilight_arc:
	ld	c,62;			; индекс цвета архивов
	ld	hl,"IZ"			; zip
	and	a
	sbc	hl,de
	jp	nz,hilight3
	cp	"P"
	ret	z
	jp	hilight_normal
hilight3:
	ld	hl,"RH"			; hrp (hrip)
	and	a
	sbc	hl,de
	jp	nz,hilight4
	cp	"P"
	ret	z
	jp	hilight_normal
hilight4:
	ld	hl,"AR"			; rar
	and	a
	sbc	hl,de
	jp	nz,hilight5
	cp	"R"
	ret	z
	jp	hilight_normal
hilight5:
	ld	hl,"AC"			; cab
	and	a
	sbc	hl,de
	jp	nz,hilight6
	cp	"B"
	ret	z
	jp	hilight_normal
hilight6:
	ld	hl,"RA"			; arj
	and	a
	sbc	hl,de
	jp	nz,hilight7
	cp	"J"
	ret	z
	cp	"C"			; ar(c)
	ret	z
	jp	hilight_normal
hilight7:
	ld	hl,"CA"			; ace
	and	a
	sbc	hl,de
	jp	nz,hilight8
	cp	"E"
	ret	z
	jp	hilight_normal
hilight8:
	ld	hl,"ZL"			; lzh
	and	a
	sbc	hl,de
	jp	nz,hilight9
	cp	"H"
	ret	z
	jp	hilight_normal
hilight9:
	ld	hl,"CI"			; ice
	and	a
	sbc	hl,de
	jp	nz,hilight10
	cp	"E"
	ret	z
	jp	hilight_normal
hilight10:
	ld	hl,"GT"			; tgz
	and	a
	sbc	hl,de
	jp	nz,hilight11
	cp	"Z"
	ret	z
	jp	hilight_normal
hilight11:
	ld	hl,"OZ"			; zoo
	and	a
	sbc	hl,de
	jp	nz,hilight_normal
	cp	"O"
	ret	z
hilight_normal:
	ld	c,2;			; индекс цвета панели
	ret