File-Manager/CORE/HILIGHT.ASM

;-------------------------------------------------
; <20>®¤á¢¥âª  ä ©«®¢
;
; ¢å®¤: 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