ds_name		db	'MOZ\K_TXT',0

look_me:
	 call sub_esi
	 dd  0,0
	 dw  1,0
	 dw  640,445,0,35
	 dw  3,3
	 dw  0,0

paint_wd:
	 SET_P ndmozi

	KAKU	word ptr 300,9
	KAKU	word ptr 302,15
	KAKU	word ptr 304,5
	CALL_P	ndmozi

	 WD_LEFT
	 ret

re_paint:
mouse_in:
	 ret

be_called:

;	 YOMU ax,400
;	 mov bx,0
;	 KAKU 400,bx
;
;	 cmp ax,1
;	 je s_up
;	 cmp ax,2
;	 je s_down


zip1:
	 WD_ERZ 1

	 RAM2 edi

	 mov ax,44[edi]		; HYOZI_PAGE
		 mov bx,22[edi]
		 cmp ax,bx
	     jle zipok

		 mov ax,bx
		 mov 44[edi],ax

zipok:
	 dec ax
	 mov ebx,20	;18[edi]		; gyo/page
	; movzx ebx,bx

	 movzx eax,ax
	 mov edx,0
	 mul ebx

		 call d_gyosu
		 mov [edi],eax

	 RAM1 edx
	 mov ecx,eax

	 cmp ecx,0
	 je crchk1

crchk:
	 mov al,[edx]
	 inc edx

	 cmp al,0ch
	 je crminus
	 cmp al,0
	 jne crchk

	 loop crchk


crchk1:

		RAM2 edi
		add edi,34
		mov [edi],edx

hyozi1:

	KAKU	word ptr 300,8
	call	look_me
	mov	ecx,esi
	KAKU	302,ecx
	call	mozida1
	KAKU	306,edi


	CALL_P	ndmozi


	 ret


;---------------------------

crminus:
	 push edx
	 	 call d_gyosu
	 	 mov eax,[edi]
	 	 sub eax,ecx

	;	 RAM2 edi
		 mov bx,20	;18[edi]		; gyo/page
		 mov edx,0
		 div bx

		 cmp dx,0
		 je cminus1

		 inc ax

cminus1:
		 mov edx,0
		 movzx eax,ax
		 movzx ebx,bx

		 mul bx

		 call d_gyosu
		 mov ecx,[edi]
		 sub ecx,eax

	 pop edx

	inc edx

	 cmp cx,0
	 jg crchk
	 jmp crchk1



;s_up:
;s_down:
;
;	 WD_ERZ 1
;
;		RAM2 edi
;		mov ax,46[edi]
;		 dec ax
;
;		 movzx eax,ax
;		 mov bx,20
;		 mul bx
;		 movzx ecx,ax
;
;
;		RAM2 edi
;		add edi,34
;		mov edx,[edi]
;
;
;		cmp cx,0
;		je s_up2
;
;s_up1:
;	 mov al,[edx]
;	 inc edx
;	 cmp al,0
;	 jne s_up1
;
;	 loop s_up1
;
;s_up2:
;
;	 jmp hyozi1
;





d_gyosu:
	 call sub_edi
	  dd   0

kaeru:
	 ret


mozida1:
	call sub_edi
		   dw	 0
	   	   dw	 1
		   dw	 1  	  ;screen_no
		   dw	0	  ; 書き出し位置  x
		   dw	0	  ; 		 y
		   dw	0	  ; next offset x
		   dw	20	  ; next offset y
	           dw   20	  ; gyo suu



p_call:
	 M_P_CALL
p_set:
	 M_P_SET


ndmozi:
	 call sub_edi
	 dw	 ?
	 db 'PUT_ZI',0