ds_name		db	'MOJ\URA',0

;**********************************************
db 'URA4R.HD6  漢字を使わない様に ',0
db 'URA4.HD6 1993 12 18 ',0
;***********************************************

look_me:
	 call sub_esi         ; esi 固定です｡
	 dd 0,0
	 dw	 1    ; ここが 1 の物は open start です｡
         dw      0
         dw  640,480,0,0,15,0,0,0

;***********************************************

f_size:		M_BYTESU
load:		M_LOAD
save:		M_SAVE
p_call:		M_P_CALL
p_set:		M_P_SET
ck_mouse:	M_KENMS


;**************************************

;------------------------
; 16色アイコン表示用のデータ

icon1:
	call sub_edi
	dw	1,0,480-32,32,0
	dw	24
	dw	16 dup(48)
	dw	47
	dw	0


; [ 画面番号] [ X1 ] [ Y1 ] [+x] [+y ] [ICON番号] [*個数] ,0


ic_mari:	call sub_edi
		dw	0,32*17,480-32,32,0
		dw	32,0


ic_neko:	call sub_edi
		dw	0,32*17,480-32,32,0
		dw	57,0
;*****************************

ds_kk2:		call	sub_esi
		dw	0
		dw	0
		dw	1
		dw	0


ds_kk3:		call	sub_esi
		dw	0
		dw	0
		dw	1
		dw	0

dd_til:		call sub_edx
		db'RYUBI\WDT.TIL',0

ds_size:	call sub_esi
		dd	?

til_dt:		call sub_ecx
		dd	0
		dd	0

;*****************************

paint_wd:

	call til_set 		; til pg0 set
	call til_put

	mov	ah,7		;マウスの移動範囲を設定
	mov	dx,0
	mov	bx,630
	call	MOUSE

	mov	ah,8
	mov	dx,0
	mov	bx,470
	call	MOUSE

	WD_LEFT

re_paint:
mouse_in:	ret
;***************************
be_called:

	 YOMU	ax,312
	 cmp	ax,1
	 je	mari
	 cmp	ax,2
	 je	neko
	 cmp	ax,3
	 je	til_put
	ret
;**********************************

;----------------------------------
; 16色アイコンの表示

til_put:
	call icon1
	call i16p
	ret
;-----------------------------------
i16p:
	mov ah,100	; 16色アイコンの表示
	mov al,31
	call komei1
	ret

;----------------------------------
; タイルデータの 読み込みセット

til_set:

	 call dd_til
	 call f_size
	 call ds_size
	 mov [esi],ecx

	RAM0 edi
	call dd_til
	call load


	call ds_size
	mov ecx,[esi]

	push es
	mov ax,114h
	mov es,ax

	mov edi,1024*3

	RAM0 ebx
	mov esi,ebx
	cld
	rep movsb
	pop es

	mov dx,114h
	mov edi,1024*3

	mov ah,100	; icon data の有る場所を教える
	mov al,35
	call komei
	ret

;--------------------------------------------------------------------
;  絵を動かしています｡ 動きは互換モードで作ったときのままです｡
;  絵は飾りなので何も仕事をしていない時だけ動いています｡

mari:
	call	ds_kk3
	inc	word ptr [esi]
	cmp	word ptr [esi+4],1
	je	u_mari
	cmp	word ptr [esi],10
	ja	mari1
	ret

mari1:
	mov	word ptr [esi],0
	call	ic_mari
	call	i16p
	call	ds_kk3
	call	ic_mari
	cmp	word ptr [edi+10],36
	ja	mari1_1
	inc	word ptr [edi+2]

mari1_1:
	cmp	word ptr [esi+6],1	;gaz_down
	je	mari5
	inc	word ptr [edi+10]
	cmp	word ptr [edi+10],39
	jb	mari3
	mov	word ptr [edi+10],38
	mov	word ptr [esi+6],1
	jmp	mari3
mari5:
	dec	word ptr [edi+10]
	cmp	word ptr [edi+10],32
	ja	mari3
	mov	word ptr [edi+10],33
	mov	word ptr [esi+6],0
	
;	jmp	mari3
	
mari3:
	cmp	word ptr [edi+2],32*17
	jb	mari4
	call	ds_kk3
	mov	word ptr [esi+4],1
	mov	word ptr [edi+10],33
mari4:
	ret

u_mari:
	cmp	word ptr [esi],10
	ja	u_mari1
	ret
u_mari1:
	mov	word ptr [esi],0
	call	ic_mari
	call	i16p
	call	ic_mari
	call	ds_kk3
	cmp	word ptr [edi+10],40
	ja	u_mari1_1
	dec	word ptr [edi+2]

u_mari1_1:

	cmp	word ptr [esi+6],1	;gaz_down
	je	u_mari5
	inc	word ptr [edi+10]
	cmp	word ptr [edi+10],40
	jb	u_mari3
	mov	word ptr [edi+10],39
	mov	word ptr [esi+6],1
	jmp	u_mari3

u_mari5:
	dec	word ptr [edi+10]
	cmp	word ptr [edi+10],38
	ja	u_mari3
	mov	word ptr [edi+10],39
	mov	word ptr [esi+6],0

u_mari3:
	cmp	word ptr [edi+2],1
	ja	u_mari4
	call	ds_kk3
	mov	word ptr [esi+4],0
	mov	word ptr [edi+10],32
u_mari4:
	ret

neko:
	call	ds_kk2
	inc	word ptr [esi]
	cmp	word ptr [esi+4],1
	je	u_neko
	cmp	word ptr [esi],10
	ja	neko1
	ret
neko1:
	mov	word ptr [esi],0
	call	ic_neko
	call	i16p
	call	ds_kk2
	call	ic_neko
	cmp	word ptr [edi+10],6
	ja	neko1_1
	inc	word ptr [edi+2]
neko1_1:	
	cmp	word ptr [esi+6],1	;gaz_down
	je	neko5
	inc	word ptr [edi+10]
	cmp	word ptr [edi+10],9
	jb	neko3
	mov	word ptr [edi+10],8
	mov	word ptr [esi+6],1
	jmp	neko3
neko5:
	dec	word ptr [edi+10]
	cmp	word ptr [edi+10],0
	ja	neko3
	mov	word ptr [edi+10],1
	mov	word ptr [esi+6],0
	
;	jmp	neko3
	
neko3:
	cmp	word ptr [edi+2],32*17
	jb	neko4
	call	ds_kk2
	mov	word ptr [esi+4],1
	mov	word ptr [edi+10],57
neko4:
	ret
u_neko:
	cmp	word ptr [esi],10
	ja	u_neko1
	ret
u_neko1:
	mov	word ptr [esi],0
	call	ic_neko
	call	i16p
	call	ic_neko
	call	ds_kk2
	cmp	word ptr [edi+10],62
	ja	u_neko1_1
	dec	word ptr [edi+2]

u_neko1_1:

	cmp	word ptr [esi+6],1	;gaz_down
	je	u_neko5
	inc	word ptr [edi+10]
	cmp	word ptr [edi+10],65
	jb	u_neko3
	mov	word ptr [edi+10],64
	mov	word ptr [esi+6],1
	jmp	u_neko3

u_neko5:
	dec	word ptr [edi+10]
	cmp	word ptr [edi+10],56
	ja	u_neko3
	mov	word ptr [edi+10],57
	mov	word ptr [esi+6],0
u_neko3:
	cmp	word ptr [edi+2],1
	ja	u_neko4
	call	ds_kk2
	mov	word ptr [esi+4],0
	mov	word ptr [edi+10],1
u_neko4:
	ret