File-Manager/MAIN.ASM

; <20>®á«¥¤­¥¥ । ªâ¨à®¢ ­¨¥: 4.01.2006
;

; ‚ áâà ­¨æ¥ (page_sys_screen) á®åà ­¥­¨ï á¨áâ. íªà ­  ¨ ¢à¥¬¥­­®£®
; á®åà ­¥­¨ï íªà ­  ¬¥­¥¤¦¥à , ¯®  ¤à¥áã #E800 ­ å®¤ïâáï ¡ãä¥àë
; ¤ ­­ëå User-¬¥­î. Žáâ â®ª áâà ­¨æë ¯®á«¥ ¢á¥£® ¬ áᨢ  #0944 ¡ ©â.
;
; <20>ਠ᪠­¨à®¢ ­¨¨ ¯ ¯ª¨ (¯à®æ¥¤ãà  ScanTree), ¤«ï ¢à¥¬. ¡ãä¥à  ¢ë¤¥«ï¥âáï
; 1 áâà ­¨æ  ¯ ¬ïâ¨. <20>®á«¥ ®âà ¡®âª¨ ¯à®æ¥¤ãàë, áâà ­¨æ  ®á¢®¡®¦¤ ¥âáï.
;
;
;		include 'shared_includes/constants/Sp2000.inc'

EDEPTH			equ	36	; ᫨誮¬ ¡®«ìè ï ¢«®¦. ¯ ¯®ª ¨«¨ >= 1024 ¯ ¯®ª
EUABORT			equ	37	; User abort (®¯¥à æ¨ï ¯à¥à¢ ­  ¯®«ì§®¢ â¥«¥¬)

max_len_comline		equ	126;254	; ¬ ªá. ¤«¨­  ª®¬-áâப¨ (¡®«ìè¥ ­¥ ¤¥« âì)
history_size		equ	128;256	; à §¬¥à history-¡ãä¥à 


; €¤à¥á  ᥪ権 ¢à¥¬. ¬ áᨢ  梥⮢ ¢ ¡ãä¥à¥
;tmp_color_list	equ	work_buffer + 511 - len_color_array ; ­ ç «® ¢à¥¬. ¬ áᨢ 
;color_list2	equ	tmp_color_list + col_lst1
;color_list3	equ	color_list2 + col_lst2
;color_list4	equ	color_list3 + col_lst3
;color_list5	equ	color_list4 + col_lst4
;color_list6	equ	color_list5 + col_lst5
;color_list7	equ	color_list6 + col_lst6
;color_list8	equ	color_list7 + col_lst7
;color_list9	equ	color_list8 + col_lst8
;color_list10	equ	color_list9 + col_lst9
;color_list11	equ	color_list10 + col_lst10


;---- –¢¥â  ¬¥­¥¤¦¥à  ----
; <20> ­¥«ì
color_pointer		equ	3Fh	; 㪠§ â¥«ì
color_markpoint		equ	3Eh	; ¢ë¤¥«. 㪠§ â¥«ì
color_panel		equ	1Bh	; ¯ ­¥«ì/ᯨ᮪ ä ©«®¢
color_markfile		equ	1Eh	; ¯®¬¥ç. ä ©«ë ᯨ᪠
color_seltitle		equ	3Fh	; ¢ë¤¥«. â¨â« ¯ ­¥«¨
color_title		equ	1Eh	; â¨â« ª®«®­®ª ¯ ­¥«¨
color_markline		equ	3Eh	; ¨­ä®à¬. áâப  ®â¬¥ç. ä ©«®¢
color_highlighted_info	equ	1Eh	; ¤ ­­ë¥ ¢ info/qview ¯ ­¥«ïå
color_info_names	equ	1Fh	; ä ©«ë/¯ãâì ¢ info/qview ¯ ­¥«ïå
; ƒ®à¨§. ¬¥­î
color_hmenu		equ	30h	; ¬¥­î
color_hmenu_pointer	equ	0Fh	; 㪠§ â¥«ì
color_hmenu_hotkey	equ	0Eh	; hot-¡ãª¢ë
; Pull-¬¥­î
color_vmenu		equ	3Fh	; popup-¬¥­î
color_vmenu_pointer	equ	0Fh	; 㪠§ â¥«¨ ¬¥­î
color_vmenu_hotkey	equ	0Eh	; hot-¡ãª¢ë ¬¥­î (¬«.­¨¡¡«)
; Key-¡ à
kb_f			equ	30h	; ¯ã­ªâë
kb_b			equ	0Eh	; hot-ç¨á« 
; Š®¬ ­¤­ ï áâப 
color_comline		equ	07h
; „¨ «. ®ª­ 
color_dial_win		equ	70h	; ¤¨ «. ®ª­ 
color_dial_hotkey	equ	0Eh	; hot-¡ãª¢ ¤¨ «. ®ª®­
color_sel_dial_title	equ	30h	; Selected title ®¡ê¥ªâ  ¤¨ «. ®ª­ 
color_info_win		equ	70h	; info-®ª­ 
color_warn_win		equ	4Fh	; warning/errors ®ª­ 
color_listbox		equ	17h	; ListBox
color_list_point	equ	2Fh	; 㪠§ â¥«ï ListBox- 
color_list_hpoint	equ	1Eh	; ¯®á«¥ 㪠§ â¥«ï
color_vscrl_bar		equ	13h	; áªà®««-¡ à  ListBox- 
color_inputline		equ	30h	; áâப  ¢¢®¤ 
color_selbuttons	equ	30h	; ¢ë¤¥«. ¡ãâ®­
color_selbuttons_err	equ	70h	; ¢ë¤¥«. ¡ãâ®­ Warning/Errors ®ª®­
color_shadow		equ	03h	; â¥­ì ®ª®­ (­¥ ­ áâà ¨¢ ¥âáï)
; ‚ìî¥à
color_viewer		equ	1Bh	; Normal text
color_viewer_seltext	equ	30h	; Selected text
color_viewer_status	equ	30h	; Status line
color_viewer_scrl_arrow	equ	1Eh	; Scrolling arrows
; <20>¥¤ ªâ®à
color_editor		equ	1Bh	; Normal text
color_edit_seltext	equ	30h	; Selected text
color_edit_status	equ	30h	; Status line
; Žª­® ¯®¬®é¨
color_help		equ	30h	; Normal text
color_help_seltext	equ	3Eh	; Highlighted text
color_help_title	equ	3Fh	; Title
color_help_scrl_bar	equ	30h	; Scrollbar
; Žáâ «ì­®¥
color_process_line	equ	30h	; «¨­¥©ª  ¯à®æ¥áá 
color_clock		equ	30h	; ç áë
; <20> áªà áª  ä ©«®¢
color_folder		equ	1Fh	; ¯ ¯ª¨
color_exe		equ	1Ah	; ¨á¯®«­ï¥¬ë¥ ä ©«ë (exe,bat)
color_archive		equ	1Dh	;  à娢ë
color_ro		equ	17h	; ä ©«ë r/o, system
color_hidden		equ	13h	; áªàëâë¥ ä ©«ë
color_spec		equ	1Ch	; ᯥª-ä ©«ë (trd, scl)





;		include 'version.inc'		; ¢¥àá¨ï ¬¥­¥¤¦¥à 

		; export	id_block
		; export	len_modul1
		; export	len_modul2
		; export	len_modul3
		; export	len_modul4
		; export	len_modul5
		; export	stack
		; export	Xcoord
		; export	Ycoord


		org	8000h

mod0:					; ¬¥âª  ¤«ï ¢ëç¨á«. à §¬¥à 
;////////////////////////////////////////////////////////////////////////
;
;		’®çª  ¢å®¤  ¢ ¬¥­¥¤¦¥à
;
;////////////////////////////////////////////////////////////////////////

		jp	begin


; •í­¤«ë áâà ­¨æ ¬¥­¥¤¦¥à 
id_block:	db	-1			; ¤¥áªà¨¯â®à ¢ë¤¥«. ¡«®ª  ¯ ¬ïâ¨
		;
page_sys_screen:db	-1			; +0 á¨áâ. íªà ­, +2800h ¤ ­­ë¥ user-menu
page_dial_screen:
		db	-1			; ¡ãä¥à á®åà. ¤¨ «. ®ª®­ ¨ ¢¥àâ. ¬¥­î
page_left_dir:	db	-1			; ᯨ᮪ «¥¢®© ¯ ­¥«¨
page_right_dir:	db	-1			; ᯨ᮪ ¯à ¢®© ¯ ­¥«¨
page_manager:	db	-1			; ®á­. ª®¤ ¬¥­¥¤¦¥à 
page_module0:	db	-1			; ¤à ©¢¥àë ª« ¢ë, ¬ë誨, ¤¨ «. ª®¤ á ®¡à ¡.
page_module1:	db	-1			; ®¯¨á â¥«¨ ¯ ­¥«¥©
page_spec:	db	-1			; áâà ­¨æ  à §¡®à  ᯥª-ä㭪権
page_viewer:	db	-1			; áâà ­¨æ  ¢ìî¥à 
		db	-1
		db	0			; á⮯-¡ ©â
		;
port_82:	db	-1			; á®åà. ¯®àâ 82h
port_E2:	db	-1			; á®åà. ¯®àâ 0E2h
port_89:	db	-1			; á®åà. ¯®àâ 89h


lastdrive:	db	'B'-'A'			; ¯®á«¥¤­¨© ¤¨áª ¢ á¨á⥬¥ (0..25)



;-------------------------------------------------
; ‚맮¢ „Ž‘-à¥áâ àâ 
;-------------------------------------------------
int10:	ex	af,af'
	di
	ld	a,(port_82)		; ¤®á-áâà ­¨æ 
	out	(SLOT0),a
	ei
	ex	af,af'
	rst	10h
int__:	ex	af,af'
	di
	ld	a,(page_module0)
	out	(SLOT0),a		; ¢®ááâ. áâà. ¤à ©¢¥à®¢ ª« ¢ë, ¬ë誨
	ei
	ex	af,af'
	ret

;-------------------------------------------------
; ‚맮¢ RST 18h
;-------------------------------------------------
int18:	ex	af,af'
	di
	ld	a,(port_82)		; ¤®á-áâà ­¨æ 
	out	(SLOT0),a
	ei
	ex	af,af'
	rst	18h
	jr	int__


;-------------------------------------------------
; ‚맮¢ RST 10h ¨§ ᯥª-áâà ­¨æë
;-------------------------------------------------
alt10:	ex	af,af'
	di
	ld	a,(port_82)		; ¤®á-áâà ­¨æ 
	out	(SLOT0),a
	ei
	ex	af,af'
	rst	10h
alt__:	ex	af,af'
	di
	ld	a,(page_spec)
	out	(SLOT0),a		; ¢®ááâ. áâà.
	ei
	ex	af,af'
	ret

;-------------------------------------------------
; ‚맮¢ RST 18h ¨§ ᯥª-áâà ­¨æë
;-------------------------------------------------
alt18:	ex	af,af'
	di
	ld	a,(port_82)		; ¤®á-áâà ­¨æ 
	out	(SLOT0),a
	ei
	ex	af,af'
	rst	18h
	jr	alt__



		include	'fview/fview.inc'	; ¯à®æ¥¤ãàë ¢ë室  ¨§ £«ï¤¥«ª¨





; à ¡®ç¨© ¡ãä¥à ”Œ
work_buffer:	ds	512


		ds	80
stack:					; á⥪ ”Œ



begin:
		; 㧭 âì boot-¤¨áª á¨á⥬ë
		ld	bc,0009h
		rst	10h
		add	a,"A"
		ld	(ccp_name),a		; launch.asm
		; ¨­¨æ. ­®¬¥à  áâà ­¨æ ¢ áâàãªâãà å ¯ ­¥«¥©
		ld	a,(page_left_dir)
		ld	(cash_left_dir),a
		ld	a,(page_right_dir)
		ld	(cash_right_dir),a
		; ¢ª«. ¢ #4000 áâà. ”Œ
		ld	a,(page_module1)
		out	(SLOT1),a
		; á®åà. ⥪. ¤¨áª
		ld	c,2
		rst	10h
		ld	(save_disk),a
		; á®åà. ⥪ã騩 ¯ãâì
		ld	hl,save_path
		ld	c,1Eh
		rst	10h


		include 'shell.asm'		; ä ©«¥à
		include 'mod2/fillstr.asm'	; § ¯®«­¥­¨¥ áâப¨ ä ©«¥à 
		include 'mod2/event.asm'	; ç⥭¨¥ ᮡë⨩
		include 'mod2/mouse.asm'	; ¬ë誠
		include 'mod2/keybar.asm'	; key-¡ à
		include 'mod2/clock.asm'	; ç áë ¯ ­¥«¥©
		include 'mod2/setup.asm'	; ç⥭¨¥/§ ¯¨áì ini-ä ©« , mnu-ä ©«
		include	'mod2/space.asm'	; ᢮¡. ®¡ê¥¬ ¤¨áª 
		include	'mod2/hilight.asm'	; ¯®¤á¢¥âª  ä ©«®¢
		include	'mod2/readdsk.asm'	; ç⥭¨¥ ­®¢®© ¯ ¯ª¨
		include	'mod2/enter.asm'	; ®¡à ¡®âª  ­ ¦ â¨ï <Enter>
		include	'mod2/launch.asm'	; § ¯ã᪠䠩«®¢
		include	'mod2/pos.asm'		; ¯®§¨æ. 㪠§ â¥«ï ¯®á«¥ ᬥ­ë ᯨ᪠
		include	'mod2/utils.asm'	; ¢á¯®¬. ¯à®æ¥¤ãàë
		include	'mod2/copy.asm'		; ª®¯¨à®¢ ­¨¥ ä ©«®¢
		include	'mod2/info.asm'		; info-०¨¬ ¯ ­¥«¨
		include	'mod2/qview.asm'	; qview-०¨¬ ¯ ­¥«¨
		include	'mod2/mkdir.asm'	; ᮧ¤ ­¨¥ ¯ ¯ª¨ (F7)
		include	'mod2/delete.asm'	; 㤠«¥­¨¥ ä ©« /¯ ¯ª¨ (F8)
		include	'mod2/rename.asm'	; ¯¥à¥¨¬¥­®¢ ­¨¥ ä ©«  (F6)

		include	'mod2/debug.asm'



; <20>¥¦¨¬ à ¡®âë ¢ìî¥à 
viewer_mode:	db	0			; 0=®¡ëç­ë©, 1=¯ ­¥«ì­ë©

attr_record:	db	0			;  âਡãâ ⥪. § ¯¨á¨ ᯨ᪠ ª â «®£ 

del_confirm:	db	true			; ä« £ ¯®¤â¢. 㤠«¥­¨ï ä ©«®¢/¯ ¯®ª

flag_del_non_empty:
		db	true			; ä« £ ¯®¤â¢. 㤠«¥­¨ï ­¥ ¯ãáâëå ¯ ¯®ª

move_home_end:	db	false			; ä« £ ®âà ¡®âª¨ Home/End ¯à¨ ®âªà. ¯ ­¥«ïå

enable_mnu_file:db	false			; ä« £ ­ «¨ç¨ï mnu-ä ©« 






;-------------------------------------------------
; ‘â ­¤ àâ­ë© ¢ë室 ¢ „Ž‘
;-------------------------------------------------
exit:		ld	a,b
		ld	(return_code+1),a	; á®åà. ª®¤ ¢®§¢à â 
		; ¢®ááâ. „Ž‘-áâà ­¨æã
		di
		ld	a,(port_82)
		out	(SLOT0),a
		ei
		; ¯®«®¦. á¨áâ. ¬ë誨 ¯® ¬¥áâ­®¬ã ¤à ©¢¥àã
Xcoord+1:	ld	hl,0			; ª®®à¤¨­ â  X (0..639)
Ycoord+1:	ld	de,0			; ª®®à¤¨­ â  Y (0..255)
		ld	c,4			; ãáâ. ¯®«®¦. ¬ë誨
		rst	30h
		; ãáâ. á¨áâ. ¤¨áª ¨ ¯ãâì  ªâ. ¯ ­¥«¨
		call	set_path_from_activ_panel
		; ¢®ááâ. §­ ç¥­¨¥ ¯®àâ 
		ld	a,(port_89)
		out	(89h),a
		; ¢®ááâ. á¨áâ. íªà ­
		ld	c,0B3h
		ld	a,(page_sys_screen)	; áâà ­¨æ  ¡ãä¥à 
		call	screen__
		; ¢®ááâ. §­ ç¥­¨¥ ¯®àâ 
		ld	a,(port_E2)
		out	(SLOT3),a
		; ¢®ááâ. ¯®«®¦. ªãàá®à  á¨áâ. íªà ­ 
sys_cursor_coords:
		ld	de,0
		ld	c,84h
		rst	08h
		; ®á¢®¡. ¢ë¤¥«¥­­ë© ¡«®ª ¯ ¬ïâ¨
		ld	a,(id_block)
		ld	c,3Eh
		rst	10h
		; ®ç¨áâ¨âì ¡ãä¥à á¨áâ. ª« ¢ë
		ld	bc,3135h
		rst	10h
return_code:	ld	b,0			; ª®¤ ¢®§¢à â 
		ld	c,41h
		rst	10h
		ret




;-----------------------------------------------------------
; ‘®åà ­¨âì/¢®ááâ. ¯®«­ë© á¨á⥬­ë© íªà ­
;-----------------------------------------------------------
; ¢å®¤: C = #B2/#B3 á®åà./¢®ááâ. íªà ­
;       A = ­®¬¥à áâà ­¨æë ¡ãä¥à  ®ª­ 
screen__:	ld	hl,2050h		; ¢ëá®â /è¨à¨­  íªà ­ 
scrn1__:	ld	ix,0C000h		;  ¤à¥á ¡ãä¥à  ¤«ï ¤ ­­ëå
scrn2__:	ld	b,a
		xor	a			; ¨¤¥­â¨ä. £«®¡. ®ª­ 
		ld	e,a			; X ¯®«®¦.
		ld	d,a			; Y ¯®«®¦.
		di
		rst	08h
		ei
		ret

;-----------------------------------------------------------
; ‘®åà ­¨âì/¢®ááâ. á¨á⥬­ë© íªà ­ ¤® ª®¬. áâப¨
;-----------------------------------------------------------
; ¢å®¤: C = #B2/#B3 á®åà./¢®ááâ. íªà ­
;       A = ­®¬¥à áâà ­¨æë ¡ãä¥à  ®ª­  (page_sys_screen)
screen1__:	ld	hl,1E50h		; ¢ëá®â /è¨à¨­  íªà ­ 
		jr	scrn1__

;-----------------------------------------------------------
; ‘®åà ­¨âì/¢®ááâ. ¯®«­ë© íªà ­ ¬¥­¥¤¦¥à 
;-----------------------------------------------------------
; in: c=#B2/#B3 á®åà./¢®ááâ. íªà ­
;     a=­®¬¥à áâà ­¨æë ¡ãä¥à  ®ª­  (page_sys_screen)
screen2__:	ld	hl,2050h		; ¢ëá®â /è¨à¨­  íªà ­ 
		ld	ix,0C000h+1400h		; ­ ç «® íªà ­  ¬¥­¥¤¦¥à 
		jr	scrn2__

;-----------------------------------------------------------
; <20>¥áâ àâ ¤«ï Œ¥­î ¨ ¤¨ «. ®ª®­
;-----------------------------------------------------------
scrn4__:	ld	b,a
scrn5__:	xor	a			; ¨¤¥­â¨ä. £«®¡. ®ª­ 
		di
		rst	08h
		ei
		ret







mod1:					; ¬¥âª  ¤«ï ¢ëç¨á«. à §¬¥à 

;===========================================================
;	<09>®¤£à㦠¥¬ë© Œ®¤ã«ì 1
; „à ©¢¥àë ª« ¢ë, ¬ë誨, ®¡à ¡®â稪 ¤¨ «. ®ª®­, tv-®¡ê¥ªâë
;===========================================================
; ¢á¥£¤  ¯®¤ª«î祭 (ªà®¬¥ ¢ë§®¢®¢ rst 10h, rst 18h)

		phase	0000h

		include	'mod0/vectors.asm'	; ¢¥ªâ®àë ¯à¥à뢠­¨©
		include	'mod0/keybdrv.asm'	; ¤à ©¢¥à ª« ¢ë
		include	'mod0/cursor.asm'	; ¯à®£à ¬¬­ë© ªãàá®à
		include	'mod0/mousedrv.asm'	; ¤à ©¢¥à ¬ë誨

		include	'objs/dialog.asm'	; ®¡à ¡®â稪 ¤¨ «. ®ª®­
		include	'objs/button.asm'	; ®¡ê¥ªâ ~Button~
		include	'objs/inline.asm'	; ®¡ê¥ªâë ~Input Line~, ~Inp Line~
		include	'objs/listbox.asm'	; ®¡ê¥ªâ ~List Box~
		include	'objs/radio.asm'	; ®¡ê¥ªâë ~Radio Button~, ~Check Box~
		include	'objs/process.asm'	; ®¡ê¥ªâ ~Process Line~
		include	'objs/pallete.asm'	; ®¡ê¥ªâ ~Pallete~
		include	'objs/dialog1.asm'	; ®¡ê¥ªâë ~Text Line~, ~Horiz. Line~
		include	'objs/hmenu.asm'	; Œ¥­î: "Horizontal", "Pull", "Select disk"
		include	'objs/umenu.asm'	; ¢ë§®¢ User-Menu

		include	'mod0/chdisk.asm'	; ¢ë§®¢ ¬¥­î Select Disk
		include 'mod0/listdrv.asm'	; ¨­¨æ. ᯨ᮪ ⨯®¢ ¤¨áª®¢
		include 'mod0/usermenu.asm'	; ¯®¤£®â®¢ª  Œ¥­î <20>®«ì§®¢ â¥«ï

		dephase

mod2:

;===========================================================
;	<09>®¤£à㦠¥¬ë© Œ®¤ã«ì 2
;===========================================================
; ¯®áâ®ï­­® ¢ª«î祭

		phase	4000h

		include 'mod1/buffers.asm'	; à ¡. ¡ãä¥àë ®¡ê¥ªâ®¢
		include 'mod1/comline.asm'	; ª®¬-áâப 
		include 'mod1/width.asm'	; ®£à ­. ¤«¨­ë ¯ã⨠¯ ­¥«¨
		include 'mod1/sort.asm'		; á®àâ¨à®¢ª  ᯨ᪠
		include 'mod1/tree.asm'		; ᪠­¨à®¢ ­¨¥ ¯ ¯ª¨
		include	'mod1/pullcmnd.asm'	; ¯¥à¥å®¤ë ­  ¢ë¯®«­. pull-¯ã­ªâ®¢
		include	'mod1/seldrv.asm'	; ¢ë¡®à «¥¢®£®/¯à ¢®£® ¤¨áª®¢ ¯ ­¥«¥©
		include 'mod1/intrface.asm'	; ­ áâனª  "Interface settings"
		include 'mod1/confirm.asm'	; ­ áâனª  "Confirmations"
		include 'mod1/color.asm'	; ­ áâனª  "Colors"
		include 'mod1/setcolor.asm'	; ­ áâனª  梥⮢ ”Œ
		include 'mod1/panels.z80'	; ®¯¨á â¥«¨ ä®à¬ â®¢ ¯ ­¥«¥©
		include 'mod1/info.z80'		; ®¯¨á â¥«ì info-¯ ­¥«¨
		include 'mod1/info2.z80'	; ®¯¨á â¥«ì info-¯ ­¥«¨ ᯥª-ä®à¬ â 
		include 'mod1/qview.z80'	; ®¯¨á â¥«ì qview-¯ ­¥«¨
		include 'mod1/hmenu.z80'	; ®¯¨á â¥«¨ £®à¨§/pull ¬¥­î
		include 'mod1/chdisk.z80'	; ®¯¨á â¥«ì ®ª­  Select Disk
		include 'mod1/umenu.z80'	; ®¯¨á â¥«ì ®ª­  User Menu
		include 'mod1/intrface.z80'	; ®¯¨á â¥«ì ®ª­  "Interface settings"
		include 'mod1/confirm.z80'	; ®¯¨á â¥«ì ®ª­  "Confirmations"
		include 'mod1/color.z80'	; ®¯¨á â¥«ì ®ª­  "Colors"
		include 'mod1/quit.z80'		; ®¯¨á â¥«ì ®ª­  ¢ë室  ¨§ ”Œ
		include 'mod1/space.z80'	; ®¯¨á â¥«ì ®ª­  "Calc. free space disk"
		include 'mod1/abort.z80'	; ®¯¨á â¥«ì ®ª­  "Operation has been interrupted"
		include 'mod1/dialerr.z80'	; ®¯¨á â¥«¨ ®ª®­ ®è¨¡®ª
		include 'mod1/copy.z80'		; ®¯¨á â¥«¨ ®ª®­ ª®¯¨à®¢ ­¨ï
		include 'mod1/mkdir.z80'	; ®¯¨á â¥«ì ®ª­  ᮧ¤ ­¨ï ¯ ¯ª¨
		include 'mod1/delete.z80'	; ®¯¨á â¥«ì ®ª­  㤠«¥­¨¥ ä ©« /¯ ¯ª¨
		include 'mod1/rename.z80'	; ®¯¨á â¥«ì ®ª­  ¯¥à¥¨¬¥­. ä ©« 
		dephase

mod3:

;===========================================================
;	<09>®¤£à㦠¥¬ë© Œ®¤ã«ì 3. ‘¯¥ª-ª®¤
;===========================================================
; ¯®¤ª«. ­  ¢à¥¬ï ¢ë§®¢  ᯥª-ä㭪権

		phase	0000h

		include 'spec/vect.asm'		; ¢¥ªâ®àë
		include 'spec/funcs.asm'	; ᯥª-ä㭪樨

		dephase

mod4:

;===========================================================
;	<09>®¤£à㦠¥¬ë© Œ®¤ã«ì 4. ‚ìî¥à
;===========================================================
; ¯®¤ª«. ­  ¢à¥¬ï ¢ë§®¢  ¢ìî¥à 

		phase	4000h

		include 'fview/fview.asm'	; ¢ìî¥à
		include 'fview/msfview.asm'	; ᮡëâ¨ï ¬ë誨
		include 'fview/setview.asm'	; ­ áâனª  ¢ìî¥à 
		include 'fview/chfont.asm'	; win-1251, koi8-r ª®¤®¢ë¥ â ¡«¨æë
		include 'fview/fview.z80'	; ®¯¨á â¥«ì ®ª­  "Reading file..."

		dephase




; €¤à¥á  ᥪ権 ¢à¥¬. ¬ áᨢ  梥⮢ ¢ ¡ãä¥à¥
tmp_color_list	equ	work_buffer + 511 - len_color_array ; ­ ç «® ¢à¥¬. ¬ áᨢ 
color_list2	equ	tmp_color_list + col_lst1
color_list3	equ	color_list2 + col_lst2
color_list4	equ	color_list3 + col_lst3
color_list5	equ	color_list4 + col_lst4
color_list6	equ	color_list5 + col_lst5
color_list7	equ	color_list6 + col_lst6
color_list8	equ	color_list7 + col_lst7
color_list9	equ	color_list8 + col_lst8
color_list10	equ	color_list9 + col_lst9
color_list11	equ	color_list10 + col_lst10




addr_id_block	equ	id_block	;  ¤à¥á ï祩ª¨ id_block
len_modul1	equ	mod1 - mod0	; à §¬¥à ®á­. ª®¤  (#8000)
len_modul2	equ	mod2 - mod1	; à §¬¥à ¬®¤ã«ï (#0000)
len_modul3	equ	mod3 - mod2	; à §¬¥à ¬®¤ã«ï (#4000)
len_modul4	equ	mod4 - mod3	; à §¬¥à ᯥª-¬®¤ã«ï (#0000)
len_modul5	equ	$ - mod4	; à §¬¥à ¢ìî¥à  (#4000)