;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
YOSEICD
	DB	$20,$00
	DB	$22,$00
;----------------------------
YOSEIMV
	LD	DE,YOSEICD
	CALL	EN1CST
	CALL	ENSTCK
;
	CALL	CRITPL
	CALL	BUMECK
;
	CALL	ENMVCL
	CALL	ENBGCK
;---------------------------
	CALL	EPXCHK
	LD	A,D
	BIT	7,A
	JR	Z,YI010
	CPL
	INC	A
YI010
	CP	$20
	JR	NC,YMAIN
;
	CALL	EPYCHK
	LD	A,D
	BIT 	7,A
	JR	Z,YI020
	CPL
	INC	A
YI020
	CP	$20
	JR	C,YEXIT
;---------------------------------------
YMAIN
	LD	HL,ENTIM0
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	NZ,YFIN
;
	LD	A,$30
	LD	(HL),A
;
	CALL	RNDSUB
	AND	$1F
	SUB	$10
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),A
	CALL	RNDSUB
	AND	$1F
	SUB	$10
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),A
	JR	YFIN
;----Nigeru----------------------
YEXIT
	LD	A,$18
	CALL	PSERCH2
	LD	A,(WORK0)
	CPL
	INC	A
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),A
	LD	A,(WORK1)
	CPL
	INC	A
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),A
YFIN
;	LD	HL,ENTIM0
;	ADD	HL,BC
;	LD	A,(HL)
;	AND	$02
;	JR	Z,YGUSU
;	XOR	A
;	JR	YFIN2
;YGUSU
;	LD	A,$1
;YFIN2	
;	LD	HL,ENCHPT
;	ADD	HL,BC
;	LD	(HL),A
;============================================
	RET