File-Manager/FVIEW/FVIEW.INC

; <20>à®æ¥¤ãàë, à á¯®«®¦¥­­ë¥ ¢ ®á­. áâà ­¨æ¥ ”Œ.
; ‚ë§ë¢ îâáï ¨§ áâà ­¨æë £«ï¤¥«ª¨.
;





; ä« £ ¢ë室  ¨§ £«ï¤¥«ª¨ ¯®á«¥ ¢ë¢®¤  ᮤ¥à¦¨¬®£® ä ©« 
half_mode_fview:
	db	false			; 0/1 ­¥ ¢ë室¨âì/¢ë©â¨




;-------------------------------------------------
; ‚맮¢ ¢ìî¥à  ­  ¨á¯®«­¥­¨¥
; ¢ë室: CF - ¯à¨ ®è¨¡ª¥, A=ª®¤ ®è¨¡ª¨
;-------------------------------------------------
; <20> ­¥«ì­ë© ०¨¬
;alt_file_viewer:
;	ld	a,true			; ¢ë¢¥á⨠¤ ­­ë¥ ¨ ¢ë©â¨ ¨§ fview
;	ld	(half_mode_fview),a	; ãáâ. ä« £
;	ld	c,true			; ¯ ­¥«ì­ë© ०¨¬ à ¡®âë ¢ìî¥à 
;	jr	$+4
; Ž¡ëç­ë© ०¨¬
file_viewer:
	ld	c,false			; ­®à¬. ०¨¬ à ¡®âë ¢ìî¥à 
	call	test_show_panels	; â¥áâ ­  ०¨¬ ¢ª«. ¯ ­¥«¥©
	ret	z
	ld	a,(format_mode)		; ä®à¬ â  ªâ. ¯ ­¥«¨
	and	form_info
	ret	nz
	ld	hl,(all_files)
	ld	a,l
	or	h
	ret	z			; ¯ãáâ ï ¯ ­¥«ì
	ld	a,c
	ld	(viewer_mode),a		; 0/1 ०¨¬ à ¡®âë ¢ìî¥à 
	call	get_record		; hl=­ ç «® § ¯¨á¨, a= âਡãâ ä ©« 
	and	10h
	ret	nz			; ¯ ¯ª 
	push	hl
	call	set_path_from_activ_panel ; ãáâ. á¨áâ. ¤¨áª ¨ ¯ãâì ®â  ªâ. ¯ ­¥«¨
	pop	hl
	ret	c
	ld	de,temp_fname		; ªã¤ 
	ld	bc,0044h		; 11 -> 8.3
	rst	10h
	ret	c
	;ld	(evcomb_stack+1),sp	; á®åà. á⥪
	ld	a,(page_viewer)		; áâà. ¢ìî¥à 
	out	(SLOT1),a
	call	viewer			; ¢ìî¥à
	ex	af,af'			; ª®¤ ¢®§¢à â 
	ld	a,(page_module1)
	out	(SLOT1),a		; ¢®ááâ. áâà.
	ex	af,af'
	ret







;-----------------------------------------------------------
; ‚맮¢ ¨§ fview. Ž¡à ¡®âª  ª« ¢¨è ¡¥§ ª®¬¡¨­ æ¨©
; ¢å®¤: e=ascii-ª®¤
;       d=᪥­-ª®¤
;       b=¡¨âë á«ã¦. ª« ¢¨è
;-----------------------------------------------------------
;fm_event:
;	ld	a,(viewer_mode)		; ०¨¬ à ¡®âë ¢ìî¥à 
;	or	a
;	ret	z			; ­®à¬. ०¨¬
;	; fview ¢ ¯ ­¥«ì­®¬ ०¨¬¥
;	push	iy
;	push	ix
;	ld	a,(page_module1)
;	out	(SLOT1),a		; ¢®ááâ. áâà.
;	call	main_event		; ®¡à ¡®â稪 ”Œ
;	ld	a,(page_viewer)		; áâà. ¢ìî¥à 
;	out	(SLOT1),a
;	pop	ix
;	pop	iy
;	ret


;-------------------------------------------------
; Tab. ‚맮¢ ¨§ fview
;-------------------------------------------------
;fm_event_tab:
;	ld	a,(page_module1)
;	out	(SLOT1),a		; ¢®ááâ. áâà.
;	pop	de			; ã¡à âì "call viewer"
;	jp	tab			; ᬥ­¨âì  ªâ. ¯ ­¥«ì





; â®çª  ¢ë室  ¢ fview
;event_comb_return:
;	ld	a,(page_viewer)		; áâà. ¢ìî¥à 
;	out	(SLOT1),a
;	; ­ áâநâì ¯®«®¦. ¤ ¬¯ 
;	ld	hl,panel_left		; ¯®«®¦.  ªâ. ¯ ­¥«¨
;	ld	d,(hl)			; Y ¯®«®¦. ¯ ­¥«¨
;	inc	hl
;	ld	e,(hl)			; X ¯®«®¦. ¯ ­¥«¨
;	inc	d
;	inc	e
;	ld	(coord),de		; ¯®«®¦. ªãàá®à 
;	ld	(winpos),de		; ¯®«®¦. ®ª­ 
;	ret

;-----------------------------------------------------------
; ‚맮¢ ¨§ fview. Ž¡à ¡®âª  ª®¬¡¨­ æ¨© ª« ¢¨è
; ¢å®¤: e=ascii-ª®¤
;       d=᪥­-ª®¤
;       b=¡¨âë á«ã¦. ª« ¢¨è
;-----------------------------------------------------------
;fm_event_comb:
;	ld	hl,event_comb_return	; â®çª  ¢ë室 
;	push	hl
;	ld	a,(page_module1)
;	out	(SLOT1),a		; ¢®ááâ. áâà. ä¬
;	ld	a,d
;	; á ¢®§¢à â®¬ ¢ fview qview-¯ ­¥«¨
;	cp	18h			; Ctrl+O ã¡à âì/¯®ª § âì ¯ ­¥«¨
;	jp	z,hidd;en_panels
;	cp	16h			; Ctrl+U ®¡¬¥­ ¯ ­¥«¥©
;	jp	z,swap;_panels
;	cp	12h			; Ctrl+E ¯à¥¤. áâப  ¨áâ®à¨¨
;	jp	z,prev_history
;	cp	2Bh			; Ctrl+X á«¥¤. áâப  ¨áâ®à¨¨
;	jp	z,next_history
;	cp	4Fh			; Ctrl+Del, ®ç¨áâ¨âì ¨áâ®à¨î ª®¬ ­¤
;	jp	z,clear_history
;	; ¡¥§ ¢®§¢à â  ¢ fview qview-¯ ­¥«¨
;	cp	2			; "1" ªà âª¨©  ªâ. ¯ ­¥«¨
;	jr	z,event_comb_done
;	cp	3			; "2" á।­¨©  ªâ. ¯ ­¥«¨
;	jr	z,event_comb_done
;	cp	4			; "3" ¯®«­ë©  ªâ. ¯ ­¥«¨
;	jr	z,event_comb_done
;	cp	10h			; Ctrl+Q áªàëâì/¯®ª § âì ¯ ­¥«¨
;	jr	z,event_comb_done
;	cp	25h			; Ctrl+L ¯ ­¥«ì ¨­ä®à¬ æ¨¨
;	jr	z,event_comb_done
;	ret
;event_comb_done:
;evcomb_stack:
;	ld	sp,0			; ¢®ááâ. á⥪ ¤® ¢å®¤  ¢ fview
;	jp	keybar_options		; ®âà ¡®â âì Ctrl,Alt,Shift ª®¬¡¨­ æ¨¨


;hidd:	push	iy
;	push	ix
;	ld	a,true
;	ld	(set_qview_fl),a	; ãáâ. ä« £ "­¥ § å®¤¨âì á­®¢  ¢ fview"
;	call	hidden_panels
;	pop	ix
;	pop	iy
;	call	test_show_panels	; â¥áâ ­  ०¨¬ ¢ª«. ¯ ­¥«¥©
;	ret	z			; ¢ëª«.
;	pop	hl			; ¢®ááâ. ¡ « ­á á⥪ 
;	call	event_comb_return	; ¢ª«. áâà. £«ï¤¥«ª¨
;	; ¢ë¢¥á⨠ᮤ¥à¦. ä ©«  ¢ ¯ ­¥«¨
;	ld	hl,AB317		; ascii-®ª­®
;	ld	a,(cur_mode_dump)	; 0/1 ä« £ ⥪. ®ª­  (ascii/hex)
;	or	a
;	jr	z,$+5
;	ld	hl,ABB1C		; hex-®ª­®
;	jp	(hl)


;swap:	push	iy
;	push	ix
;	call	swap_panels
;	pop	ix
;	pop	iy
;	ret




;-------------------------------------------------
; Ctrl+Q. ‚맮¢ ¨§ fview
;-------------------------------------------------
;qv_panel:
;	ld	a,(page_module1)
;	out	(SLOT1),a		; ¢®ááâ. áâà.
;	jp	alt_qview_panel