ds_name		db	'MOZ\TANKEN',0

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

paint_wd:
re_paint:
	 ret

be_called:
	 RAM1 edi
	 mov esi,edi
	 call banram
	 mov [edi],esi

	 jmp toridas


mouse_in:
	 ret


toridas:
	 call banram
	 mov esi,[edi]

	 dec esi

tori1:
	 inc esi
	 mov eax,[esi]
	 cmp eax,0
	 je toriowa
	 cmp eax,'\\\\'
	 je toriowa

	 mov al,[esi]
	 cmp al,41h
	 jl tori1
	 cmp al,7Bh
	 jg tori1

	 cmp al,5Ah
	 jle oomozi

	 cmp al,60h
	 jle tori1

;	 jmp toridas2

toridas2:
	 call tango1
	 mov [edi],al
tori2:
	 inc esi
	 inc edi
	 mov al,[esi]
	 mov [edi],al

	 cmp al,7Bh
	 jg tori3

	 cmp al,60h
	 jle tori3

	 jmp tori2

tori3:
	 mov al,','
	 mov [edi],al

	 call banram
	 mov [edi],esi

;	 jmp kensak


kensak:
	 call tango1
	 mov al,1[edi]
	 cmp al,','
	 je toridas

	 RAM2 edi
	 mov esi,edi

ken1:
	   mov eax,[esi]
	   cmp eax,0
	   je kenlas
	   cmp eax,'\\\\'
	   je kenlas

	 call tango1
	 mov al,[edi]
	 mov bl,[esi]
	 cmp al,bl
	 je mituke1

kenata1:
	 inc esi

	   mov eax,[esi]
	   cmp eax,0
	   je kenlas
	   cmp eax,'\\\\'
	   je kenlas

	 mov al,[esi]
	 cmp al,','
	 jne kenata1

	 inc esi
	 jmp ken1

mituke1:
	 inc edi
	 inc esi
	 mov al,[edi]
	 mov bl,[esi]
	 cmp al,bl
	 jne kenata1

	 cmp al,','
	 je mituke2

	 cmp bl,','
	 je kenata1

	 jmp mituke1

mituke2:
	 cmp bl,','
	 je toridas

	 jmp kenata1

kenlas:
	 call tango1
kenlas1:
	 mov al,[edi]
	 mov [esi],al
	 inc edi
	 inc esi
	 cmp al,','
	 jne kenlas1

	 mov eax,'\\\\'
	 mov [esi],eax

	 jmp toridas


toriowa:
	 ret

oomozi:
	 add al,20h
	 jmp toridas2

tango1:
	 call sub_edi
	 db 30 dup(0)
banram:
	 call sub_edi
	 dd  0