ds_name		db	'MOZ\SHOKI',0

look_me:
	 call sub_esi
	 dd  0,0
	 dw  1,0
	 dw  640,480,0,0
	 dw  0,0
	 dw  0,0

paint_wd:
	 SET_P nd1
	 SET_P ndken
	 SET_P ndret0
	 SET_P ndret
	 SET_P ndhelp

	 call shoki
;	 WD_LEFT
re_paint:
	 WD_CLS 1
	 BOX boxdt,6
	 MOZI mozidt
	 ret

be_called:
	 ret

shoki:
	 mov ax,ds
	 mov es,ax

	 RAM1 edi
	 mov ecx,1024*256/4
	 mov eax,0
	 cld
	 rep stosd

	 RAM2 edi
	 mov ecx,1024*256/4
	 mov eax,0
	 cld
	 rep stosd

	 RAM0 edi
	 mov ecx,1024*80/4
	 mov eax,0
	 cld
	 rep stosd

	 ret

totowns:
	 mov ah,25
	 mov al,2
	 mov bx,1
	 call komei

	 mov ah,25
	 mov al,2
	 mov bx,0
	 call komei

	 mov ah,1
	 call MOUSE
	 mov ah,4Ch
	 int 21h


h_get:
	call kesu_m

	 CALL_P nd1
	 cmp edx,0
	 je nashi1

	 push edx
	 call g_fsize
	 cmp ecx,250000
	 jg cutf

	 pop edx

h_get0:
	 mov esi,edx
	 call f_name1
h_get1:
	 mov al,[esi]
	 mov [edx],al
	 inc esi
	 inc edx
	 cmp al,0
	 jne h_get1

	 call fn_chk

	 jmp matu

t_get:
	call kesu_m
	 CALL_P nd1
	 cmp edx,0
	 je nashi2

t_get0:
	 mov esi,edx
	 call f_name2
t_get1:
	 mov al,[esi]
	 mov [edx],al
	 inc esi
	 inc edx
	 cmp al,0
	 jne t_get1

	 call fn_chk1

	 jmp matu

fn_chk:
	 BOX box_f1,1	 ; file nameを表示

	 call f_name1
	 call mozi_fn1
	 add edi,14
fn0:
	 mov al,[edx]
	 mov [edi],al
	 inc edx
	 inc edi
	 cmp al,0
	 jne fn0

	 MOZI mozi_fn1
	 ret

fn_chk1:
	 BOX box_f2,1

	 call f_name2
	 call mozi_fn2
	 add edi,14
fn12:
	 mov al,[edx]
	 mov [edi],al
	 inc edx
	 inc edi
	 cmp al,0
	 jne fn12

	 MOZI mozi_fn2
	 ret

nashi1:
	 call f_name1
	 mov eax,0
	 mov [edx],eax
	 call fn_chk
	 jmp matu

nashi2:
	 call f_name2
	 mov eax,0
	 mov [edx],eax
	 call fn_chk1
	 jmp matu

kaishi:
	call kesu_m
	 call f_name2
	 mov al,[edx]
	 cmp al,0
	 je tannashi

	 call f_name1
	 mov al,[edx]
	 cmp al,0
	 je matu

	 RAM1 edi
	 call yobu1

	 call f_name2

	 RAM0 edi
	 call yobu1

	 CALL_P ndret0
	 CALL_P ndken
	 CALL_P ndret

	 call ireru
	 jmp matu

tannashi:
	 MOZI mozidt1
	 jmp matu

f_name1:
	 call sub_edx
	 db  64 dup(0)

f_name2:
	 call sub_edx
	 db  64 dup(0)

g_fsize:
	 M_BYTESU
cutf:
	 MOZI mozicut
	 jmp matu
help2:
	call kesu_m

	pushad
	  CALL_P ndhelp
	popad
	jmp matu


ck_mouse:
	 M_KENMS
kesu_m:
	 M_KESUMS

matu:
        call ck_mouse
mouse_in:
        cmp ch,1
        jne short matu

mck_m0:
	  MOU boxdt,6		    ;comand su
	  cmp bx,1                  ;bx=1 find
	  jne matu
mck_m1:
	 cmp ax,1
	 je totowns
	 cmp ax,2
	 je h_get

	 cmp ax,3
	 je t_get

	 cmp ax,4
	 je help2

	 cmp ax,6
	 je kaishi

	 jmp matu



p_call:
	 M_P_CALL
p_set:
	 M_P_SET

nd1:
	 call sub_edi
	 dw	 ?
	 db 'KANU',0
ndken:
	 call sub_edi
	 dw	 ?
	 db 'TANKEN',0

ndret0:
	 call sub_edi
	 dw	 ?
	 db 'RETCUT',0
ndret:
	 call sub_edi
	 dw	 ?
	 db 'RETIN',0

ndhelp:
	 call sub_edi
	 dw	 ?
	 db 'HELP2',0

ireru:
	 RAM0 edi
	 mov ecx,0
ire1:
	 mov eax,[edi]
	 inc edi
	 inc ecx
	 cmp eax,'\\\\'
	 jne ire1

	 add ecx,3
	 RAM0 edi
	 call f_name2

	 M_SAVE

yobu1:
	 M_LOAD

boxdt:
	call sub_edi
		 dw	 1,100,20,0,0,0,0,15,7,1
		 dw	 3,100,20,105,0,105,0,15,6,1
		 dw	 1,100,20,420,0,0,0,15,4,1
		 dw	 1,100,20,525,0,0,0,15,5,1
boxdt1:
	call sub_edi
		 dw	 1,400,30,145,45,0,0,0,0,1

boxdtc:
	call sub_edi
		 dw	 1,200,60,290,45,0,0,0,0,1

box_f1:
	call sub_edi
		 dw	 1,400,30,200,95,0,0,15,5,1
box_f2:
	call sub_edi
		 dw	 1,400,30,200,145,0,0,15,5,1

mozidt:
	call sub_edi
		   dw	1  	  ;screen_no
		   dw	15	  ; mozi_color
		   dw	5	  ; 書き出し位置  x
		   dw	0	  ; 		 y
		   dw	105	  ; next offset x
		   dw	0	  ; next offset y
	           dw   6	  ; gyo suu
                   db    '中     止',0
                   db    '処理ファイル',0
                   db    ' 単  語  帳',0
                   db    '使い方の説明',0
                   db    ' ',0
                   db    ' 実   行',0
                   dw    0,0

mozidt1:
	call sub_edi
	   dw	1,5,150,50,20,20,1
	   db	 '単語帳を選んでください',0
	            dw 0,0

mozicut:
	call sub_edi
	   dw	1,15,300,50,50,70,2
	   db	 'ファイルが大きすぎます',0
	   db	 '分割してください',0
	            dw 0,0


mozi_fn1:
	call sub_edi
	   dw	1,15,250,100,0,0,1
           db  64 dup(0)
	            dw 0,0

mozi_fn2:
	call sub_edi
	   dw	1,15,250,150,0,0,1
           db  64 dup(0)
	            dw 0,0