;
        	INCLUDE	zel_ram.asm
;
;--------------------------------------------------------------------
;
;		ZELDA-3		1989.09.05(TUE)
;
;--------------------------------------------------------------------
;
		ORG	09C000H
;;;		ORG	09D600H
;
;=============================================== (zel_enmy) =========
		EXT	BGDTRD2,EXBCHK2,ENRMCL,ENEMY,RNDSET,ITMGET
		EXT	ENCRST2,OAMENT1,OAMENT2,SSERCH2,ENMDST
		EXT	CROJCK2,SSERCH,ENDMST,ENDMST2,OAMENT3,OAMENT6
		EXT	OAMENT4
		EXT	EINIT,EMOVE,EICE,ECACH
		EXT	ENENSET
		EXT	ENMDD5
;--- Enmyno --
		EXT	TTN01,SKL01,SKHED,ESW01,MOTS0
		EXT	OCTA1,OCTA2,OCTA3,OCTBL,BATTA
		EXT	IWAOO,NYORO,SEKZ1,FOOD1,FOOD2,FOOD3,FOOD4
		EXT	KWAUS,KWAU1,SHIGE,SARU3,TOTUG,SARU1,SEKZ4,PONPK
		EXT	TAAM1,JAKIO,REBA1,OHYES,DRGN1,JIJII,BABAA,HEITI
		EXT	NOKOG,PENKI,KUTUU,GAKII,GAKI1,HEIT1
		EXT	NOPPO,JIJI1,ONNAA,HIGEE,MAJOO,JIJI2,SNTAK,BUBUU,BARI0
		EXT	MURON,MURYA,BABA1,ESW02,ESW03,ISHI0,HEIS0,TEKU0,TAIHO
		EXT	HEIS1,HEIS2,HEYA0,HEYA1,HEYA2,NEZU0,HEBI0,HEBI1,KOMO0
		EXT	PSW01,PSW02,PINT1,PINT2,OOISU,HEBO0,MIHA0,OYAGI,HEIS3
		EXT	ZAKO0,HEYA3,KAGI0,HESET,HANA0,HANA1,USAG0,SUNA0,NIWAT
		EXT	DOOOR,TAMA0,BOUSI,HELP0,SYOBY,DOZOO,ESW12,ZORAS,SEKMV
		EXT	NOMOS,RANEM,KINOK,SUKAS,MJSY1,BABUL,JITON,BIGBL,ZORAB
		EXT	ZORA2,NL777,KANI0,ATARS,RISU0,TORI0,YASAN,SKELT
		EXT	CHAN0,CHAN1,CHAN2,CHAN3,RIVER,ARI00,ARI01,JOHBB
		EXT	ESW04,HODIR,HODIL,HODID,HODIU,BWAKO,HACHI,SHSAI,MOTS1
		EXT	TELSA,TRAP0,HBTAM,BAAR0,BAAR1,ZOOL1,ZOOL2
		EXT	RINGO,YOSEI,TUBO1,TUBO2,TUBO3,RUPYR,PUPYY,RUPYB,HART1
		EXT	BOMB1,BOMB2,BOMB3,BOSET,POLIW,AMENB,KAGI1,BABU2
		EXT	MEDAM,SKST0,SKST1
;-------------- item
                EXT     HART1,RUPYR,RUPYY,RUPYB,BOMB1,BOMB2,BOMB3,NIKU1
                EXT     NIKU2,OPTN1,TUBO1,TUBO2,CRYS1,TRYFR,TRYFY,TRYFB
                EXT     SPESR,SPESY,SPESB,YAAA1,YAAA2,YOSEI,HYUUU
;-------------- 
		EXT	ESET0,ESET2,PORT1,PORT2,TAMS0,TAMS1
;--------------- line
		EXT	LINE0
;
;=============================================== (zel_enst) =========
		GLB	ENDTST,ENEMY2,ENBTON
		GLB	SINDT2,HYUSET
		GLB	GREDST,GRENST,ALCLER,GREDS2
		GLB 	EST0SB,ENGRCK,EFLCHK
;
;=============================================== (zel_main) =========
		EXT	JSRSUB,ENIDSH,ITMCBFST
                EXT     MD_title,MD_djint,MD_djply,MD_gdint,MD_gdply
                EXT     MD_fdout,MD_fdin,MD_etcpl
                EXT     MD_wpout,MD_wpin
;;///////		EXT	RDCHCK
;=============================================== (zel_bgwt) =========
		EXT	BDRCHCK
;====================================================================
;
		EXTEND
;
		MEM8
		IDX8
;
;==============================================================
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%		ENEMY ALL FAIL CHECK  !               	      %	
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
EFLCHK		EQU	$
		PHX
		LDX	#ENNO-1
EFC010		EQU	$
		LDA	ENMODE,X
		BEQ	WW
;
		LDA	ENMOD3,X
		AND	#01000000B
		BNE	WW
;
		LDA	ENXPSL,X
		CMP	<SCCH2
		LDA	ENXPSH,X
		SBC	<SCCH2+1
		BNE	WW
		LDA	ENYPSL,X
		CMP	<SCCV2
		LDA	ENYPSH,X
		SBC	<SCCV2+1
		BNE	WW
;
		PLX
		CLC
		RTL
;
WW		EQU	$
		DEX
		BPL	EFC010
		PLX
		SEC
		RTL
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%		on map strange obj set !               	      %	
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
HYUSET		EQU	$
		PHB
;
		PHK
		PLB
;
		LDX	#ENNO-1
HYU008		EQU	$
		LDA	ENMODE,X
		BEQ	HYU00C
		LDA	ENMYNO,X
		CMP	#HYUUU
		BNE	HYU00C		; already set ?
;					; yes !
		STZ	ENMODE,X
HYU00C		EQU	$
		DEX
		BPL	HYU008
;
		LDA	#HYUUU
		JSL	>ENIDSH
		BPL	HYU010
		LDY	#00H
HYU010		EQU	$
		LDA	>MEMXPSL+0FH
		STA	ENXPSL,Y
		LDA	>MEMXPSH+0FH
		STA	ENXPSH,Y
		LDA	>MEMYPSL+0FH
		STA	ENYPSL,Y
		LDA	>MEMYPSH+0FH
		STA	ENYPSH,Y
		LDA	<PLBGCKF
		STA	ENKAIF,Y
		PLB
		RTL
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%		enemy ground chenge check         	      %	
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENGRCK		EQU	$
		PHB
		PHK
		PLB
;
		LDX	#ENNO-1
EGC010		EQU	$
		LDA	ENMODE,X
		BEQ	EGC020
;
		LDY	ENMYNO,X
		CMP	#ECACH
		BNE	EGC018
;;		BEQ	EGC020
;
		CPY	#SUKAS
		BNE	EGC020
;		
		LDA	#02H
		STA	PYDMBT1		; cach reset !
		BRA	EGC01C
EGC018		EQU	$
		CPY	#HYUUU
		BEQ	EGC020
;
		LDA	ENGRNO,X
		CMP	GRNDNO
		BEQ	EGC020		; chenge ground ?
;					; yes ! clear !
EGC01C		EQU	$
		STZ	ENMODE,X
EGC020		EQU	$
		DEX
		BPL	EGC010
;
		LDX	#ESNO-1
ESC010		EQU	$
		LDA	ESMODE,X
		BEQ	ESC020
;
		LDA	ESGRNO,X
		CMP	GRNDNO
		BEQ	ESC020		; chenge ground ?
;					; yes ! clear !
		STZ	ESMODE,X
ESC020		EQU	$
		DEX
		BPL	ESC010
		PLB
		RTL
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%		many many obj                   	      %	
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENEMY2		EQU	$
		LDA	EN2FLG
		BEQ	E2M090
		PHB
		PHK
		PLB
		JSR	E20000
		PLB
E2M090		EQU	$
		RTL
;=====================================================
HBATDT          EQU     $
                HEX     00,40,80,C0
;- - - - - - - - - - - - -
E20000		EQU	$
		LDX	#E2NO-1
E20010		EQU	$
		STX	ENINDX
;	
		LDA	>E2MODE,X
		BEQ	E20020
;;;		PHA
;;;		TAY
;
		LDA	<GAMEMD
		ORA	ENSTFG
		BNE	E20018
;
;;		LDA	<FRCNT
;;		LSR	A
;;		LSR	A
;;		AND	#03H
;;		TAY
;;		LDA	>E2STAT,X
;;		AND	#00111111B
;;		ORA	HBATDT,Y
;;		STA	>E2STAT,X
;
		LDA	>E2TIM0,X
		BEQ	E20018
;
		DEC	A
		STA	>E2TIM0,X
		BNE	E20018
;
		STA	>E2MODE,X
E20018		EQU	$
                LDY     OAMTYP
                BEQ     ES0022          ; cross road room ?
;                                       ; yes ! kai check !
                LDA     E2WRK0,X
                BEQ     ES0021
;
		LDA	#04H*4
                JSL     >OAMENT6
                BRA     ES0023
ES0021          EQU     $
		LDA	#04H*4
                JSL     >OAMENT4
                BRA     ES0023
ES0022          EQU     $
		LDA	#04H*4
                JSL     >OAMENT1
ES0023          EQU     $
;;;;		LDA	E2OMID-1,Y
;;;		JSL	>OAMENT1
;;;		PLA
;;;		JSR	E2MAIN
		JSR	HBTZNMV
E20020		EQU	$
		DEX
		BPL	E20010
		RTS
;=====================================================
HBTZNMV		EQU	$
		LDA	>E2XPSL,X
		SEC
		SBC	<SCCH2
		STA	<WORK0
		LDA	>E2XPSH,X
		SBC	<SCCH2+1
		BNE	HBT010
;
		LDA	>E2YPSL,X
		SEC
		SBC	<SCCV2
		STA	<WORK2
		LDA	>E2YPSH,X
		SBC	<SCCV2+1
		BEQ	HBT020
HBT010		EQU	$
		LDA	#00H
		STA	>E2MODE,X
		RTS
HBT020		EQU	$
		LDY	#00H
		LDA	<WORK0
		STA	(<OAMADR),Y
		LDA	<WORK2
		INY
		SEC
		SBC	#10H
		STA	(<OAMADR),Y
		INY
		LDA	#28H
		STA	(<OAMADR),Y
;;		LDA	>E2STAT,X
		PHY
		LDA	>E2STAT,X
		TAY
		LDA	ENCLOR,Y
		ORA	ENFLCL,Y
		PLY
		INY
		STA	(<OAMADR),Y
		LDA	#02H
		STA	(<OSBADR)
		RTS
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%		Enemy flag set position in       	      %		
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
EST0SB		EQU	$
		PHB
		PHK
		PLB
		JSR	EST000
		PLB
		RTL
;---------------------------------------------------
EST000		EQU	$
		LDA	<GAMEMD
		ORA	ENSTFG
		BNE	EST050
;
		LDX	#ESNO-1
EST010		EQU	$
		LDA	ESMODE,X
		BEQ	EST030
;
		JSR	EST020
;
EST030		EQU	$
		DEX
		BPL	EST010
EST050		EQU	$
		RTS
;- - - - - - - - - - - - - - - - - - - - 
EST020		EQU	$
		PHA
;
;;		LDA	<SLMODE
;;		CMP	#MD_djply
;;		BNE	EST080
;;;
;;		JSR	ESCLCK
;;		BEQ	EST090
EST080		EQU	$
		JSR	ESSAVE
EST090		EQU	$
;
		PLA
;;		DEC	A
		SEC
		SBC	#ESET0 
;
                MEM16
                IDX16
                REP     #00110000B
                AND     #00FFH
                ASL     A
                TAY
                LDA     ESMVAD,Y
                DEC     A
                PHA
                MEM8
                IDX8
                SEP     #00110000B
                RTS
;;
;;		JSL	>JSRSUB
ESMVAD		EQU	$
		WORD	ES1000
		WORD	ES2000
		WORD	MANY2C
		WORD	HEIS0ST
		WORD	DOOORMV
		WORD	TAMS0MV		;ROOM MANY RANDAM SET TAMA
		WORD	TAMS1MV		;ONLY DOWN SMALL OR BIG SET !
		WORD	SKST0MV		;Skelton set ! (randam set)
		WORD	SKST1MV		;   " Kotei set !
;353535353535353535353535353535353535353535353535353535
;3		Skelton set			      5
;353535353535353535353535353535353535353535353535353535
SKSXAL		EQU	$
		HEX	00,00,D0,30
SKSYAL		EQU	$
		HEX	D8,38,08,08
SKSXAH		EQU	$
		HEX	00,00,FF,00
SKSYAH		EQU	$
		HEX	FF,00,00,00
;- - Randam address shitei skelton- - - - - - - - - - - - - - - - - - - - - - - - -
SKST0MV		EQU	$
		LDA	ESTIM0,X
		BEQ	SS0010
		DEC	ESTIM0,X
		RTS
SS0010		EQU	$
		LDA	#0A0H
		STA	ESTIM0,X
;
		LDA	#SKELT
		JSL	>ENIDSH
		BMI	SS0090
;
		PHX
		LDA	<PLMKCH
		LSR	A
		TAX
		LDA	<PLXPS1
		CLC
		ADC	SKSXAL,X
		STA	ENXPSL,Y
		LDA	<PLXPS0
		ADC	SKSXAH,X
		STA	ENXPSH,Y
;
		LDA	<PLYPS1
		CLC
		ADC	SKSYAL,X
		STA	ENYPSL,Y
		LDA	<PLYPS0
		ADC	SKSYAH,X
		STA	ENYPSH,Y
;
		PLX
		LDA	#0FFH
		STA	ENZPSL,Y
;
		LDA	<PLBGCKF
		STA	ENKAIF,Y
SS0090		EQU	$
		RTS
;;;
;======Kotei address set skelton===========================================
S1CKTM		EQU	$
		HEX	20,50,80,B0,20,50,80,B0
;
SKST1MV		EQU	$
		LDA	ESSTAT,X
		BNE	S10010
;
;;		LDA	<KEYA2
;;		BPL	S10008
		LDA	BXOPEN
		BEQ	S10008		; Item box open ?
		INC	ESSTAT,X
S10008		EQU	$
		RTS
;
S10010		EQU	$
		INC	ESSTAT,X
		CMP	S1CKTM,X
		BNE	S10020
;
		STZ	ESMODE,X
;
		LDA	#SKELT
		JSL	>ENIDSH
		BMI	S10090
;
		LDA	<WORK5
		STA	ENXPSL,Y
		LDA	<WORK6
		STA	ENXPSH,Y
;
		LDA	<WORK7
		STA	ENYPSL,Y
		LDA	<WORK8
		STA	ENYPSH,Y
;
		LDA	#0FFH
		STA	ENZPSL,Y
;
		LDA	ESKAIF,X
		STA	ENKAIF,Y
S10090		EQU	$
S10020		EQU	$
		RTS
;=================================================
TM0SMK		EQU	$
		HEX	02,02,02,02,01,01,01,01
		HEX	03,03,03,03,00,00,00,00
TM0SXL		EQU	$
		HEX	38,58,98,B8,F0,F0,F0,F0
		HEX	B8,98,58,38,00,00,00,00
;TM0SXH		EQU	$
TM0SYL		EQU	$
		HEX	10,10,10,10,40,60,A0,C0
		HEX	F0,F0,F0,F0,C0,A0,60,40
;TM0SYH		EQU	$
;- - - - - - - - - - - - - - - - - - - - - - - -
TAMS0MV		EQU	$
		LDA	ESXPSL,X
		CMP	<SCCH2
		LDA	ESXPSH,X
		SBC	<SCCH2+1
		BNE	TS0000
		LDA	ESYPSL,X
		CMP	<SCCV2
		LDA	ESYPSH,X
		SBC	<SCCV2+1
		BNE	TS0000
;
;
		LDA	<FRCNT
		AND	#0FH
		BNE	TS0000
;
		STZ	<WORKE		; (x) Hosei nashi
		STZ	ENHELP2		; small size !
;
		JSL	>RNDSET
		AND	#0FH
		TAY
		LDA	TM0SMK,Y
		STA	ENHELP
		LDA	TM0SXL,Y
		STA	ESXPSL,X
;;		LDA	TM0SXH,Y
		LDA	#01H
		CLC
		ADC	NOWRMX
		STA	ESXPSH,X
		LDA	TM0SYL,Y
		STA	ESYPSL,X
;;		LDA	TM0SYH,Y
		LDA	#00H
		CLC
		ADC	NOWRMY
		STA	ESYPSH,X
;
		JSR	TAMA0ST
TS0000		EQU	$
		RTS
;;		LDA	ESTIM0,X
;;		BEQ	TMS000
;;		DEC	ESTIM0,X
;;;
;;		CMP	#0A0H
;;		BCS	TMS090
;;;
;;		AND	#1FH
;;		BNE	TMS090
;;;
;;		JMP	TAMA0ST
;;TMS000		EQU	$
;;		LDA	#0B0H
;;		STA	ESTIM0,X		
;;TMS090		EQU	$
;;		RTS
;;TMS097		EQU	$
;;		LDA	#0FFH
;;		STA	ESTIM0,X		
;;		RTS
;=================================================
TAMS1MV		EQU	$
		LDA	ESXPSL,X
		CMP	<SCCH2
		LDA	ESXPSH,X
		SBC	<SCCH2+1
		BNE	TS1060
;
		LDA	<FRCNT
		AND	#01H
		BNE	TS1000
;
		LDA	ESTIM0,X
		BEQ	TS1000
		DEC	ESTIM0,X
TS1000		EQU	$
		LDA	#02H
		STA	ENHELP		; Move muki (DOWN)
;
		STZ	ENHELP2
;
		DEC	ESSTAT,X
		BPL	TS1050
;
		LDA	#38H
		STA	ESSTAT,X
;
		LDA	ESTIM0,X
		BNE	TS1010		; Big tama set ?
;					; yes !
		LDA	#0A0H	
   		STA	ESTIM0,X	; Next BIG set time set !
		STA	ENHELP2
		LDA	#08H
		STA	<WORKE		;(x) hosei !
		BRA	TS1030
TS1010		EQU	$
		JSL	>RNDSET
		AND	#02H
;;		ASL	A
		ASL	A
		ASL	A
		ASL	A
		STA	<WORKE		; L or R set !		
TS1030		EQU	$
		JSR	TAMA0ST
TS1050		EQU	$
		RTS
TS1060		EQU	$
		LDA	#0FFH
		STA	ESTIM0,X
		RTS
;
;
;
;
;;		LDA	ESTIM0,X
;;		BEQ	TMS097
;;		DEC	ESTIM0,X
;;;
;;		CMP	#0D0H
;;		BCS	TMS090
;;;
;;		AND	#3FH
;;		BNE	TMS090 
;
;===================================
TAMA0ST		EQU	$
		LDA	#TAMA0
		JSL	>ENIDSH
		BMI	TMS0A0
;
		PHX
;;		LDA	ESSTAT,X
;;		TAX
		LDA	<WORK5
		CLC
		ADC	<WORKE
		STA	ENXPSL,Y
		LDA	<WORK6
		ADC	#00H
		STA	ENXPSH,Y
		LDA	<WORK7
		SEC
		SBC	#01H
		STA	ENYPSL,Y
		LDA	<WORK8
		SBC	#00H
		STA	ENYPSH,Y
;
		LDX	ENHELP
		LDA	TMSXSD,X
		STA	ENXSPD,Y
		LDA	TMSYSD,X
		STA	ENYSPD,Y
		PLX
;
		LDA	ESKAIF,X
		STA	ENKAIF,Y
;
;;		LDA	ESMODE,X
;;		CMP	#TAMS1
;;		BNE	TMS098
		LDA	ENHELP2
		BEQ	TMS098
;
		STA	ENSTAT,Y	; big size set !
;
		LDA	ENYPSL,Y
		CLC
		ADC	#08H
		STA	ENYPSL,Y
;
		LDA	#03H
		STA	ENMOD0,Y	; 4 TSU
		LDA	#09H
		STA	ENMOD3,Y
TMS098		EQU	$
		LDA	#40H
		STA	ENTIM2,Y
TMS0A0		EQU	$
		RTS
;- - - - - - - - - - - - - - - - - - - - -
TMSXSD		EQU	$
		HEX	18,E8,00,00
TMSYSD		EQU	$
		HEX	00,00,18,E8
;=================================================
DOOORMV		EQU	$
		TXA
		STA	DOORID
		RTS
;=================================================
;=================================================
HEIS0ST		EQU	$
		LDA	CALFLG
		BEQ     H0S010		; called ?
;					
;;		LDA	<KEYA1L
;;		CMP	#11000000B
;;		BNE	H0S010
;;;
H0S008		EQU	$		; yes !
		LDA	ESXPSL,X
		CMP	<SCCH2
		LDA	ESXPSH,X
		SBC	<SCCH2+1
		BEQ	H0S010
		LDA	ESYPSL,X
		CMP	<SCCV2
		LDA	ESYPSH,X
		SBC	<SCCV2+1
		BEQ	H0S010		; out display ?
;
		LDA	#HEIS3		; yes !
		JSL	>ENIDSH
		LDA	ESXPSL,X
		STA	ENXPSL,Y
		LDA	ESXPSH,X
		STA	ENXPSH,Y
		LDA	ESYPSL,X
		STA	ENYPSL,Y
		LDA	ESYPSH,X
		STA	ENYPSH,Y
;
		LDA	ESKAIF,X
		STA	ENKAIF,Y
;
		LDA	#80H
		STA	ENMOD5,Y
;
		STZ	ESMODE,X
		DEC	CALFLG
;
H0S010		EQU	$
		RTS
;=================================================
;=================================================
;=================================================
ESSXAD		EQU	$
		BYTE	0F0H,010H,0F0H,010H
ESSXAH		EQU	$
		BYTE	0FFH,000H,0FFH,000H
ESSYAD		EQU	$
		BYTE	0F0H,0F0H,010H,010H
ESSYAH		EQU	$
		BYTE	0FFH,0FFH,000H,000H
;
ES1000		EQU	$
ES2000		EQU	$
ES3000		EQU	$
		LDA	<PLXPS1
		SEC
		SBC	#02H
		STA	<WORK0
		LDA	<PLXPS0
		SBC	#00H
		STA	<WORK8
		LDA	<PLYPS1
		SEC
		SBC	#02H
		STA	<WORK1
		LDA	<PLYPS0
		SBC	#00H
		STA	<WORK9
		LDA	#04H
		STA	<WORK2
		STA	<WORK3
;	
		LDA	ESXPSL,X
		SEC
		SBC	#02H
		STA	<WORK4
		LDA	ESXPSH,X
		SBC	#00H
		STA	<WORKA
		LDA	ESYPSL,X
		SEC
		SBC	#02H
		STA	<WORK5
		LDA	ESYPSH,X
		SBC	#00H
		STA	<WORKB
		LDA	#04H
		STA	<WORK6
		STA	<WORK7
		JSL	>CROJCK2
		BCC	ES10A0		; player area in ?
;					; yes !
		LDA	ESSTAT,X
		BNE	ES1090
;
		INC	ESSTAT,X
;	
;;		LDA	<FRCNT
;;		AND	#07FH
;;		BNE	ES1090
		LDA	ESXPSL,X
		STA	<WORK0
		LDA	ESXPSH,X
		STA	<WORK1
		LDA	ESYPSL,X
		STA	<WORK2
		LDA	ESYPSH,X
		STA	<WORK3
;
		LDA	#03H
		STA	<WORK4
ES1002		EQU	$
		LDY	#ENNO-1
ES1008		EQU	$
		LDA	ENMODE,Y
		BEQ	ES1010
		DEY
		BPL	ES1008
		RTS
ES1010		EQU	$	
		LDA	#EINIT
		STA	ENMODE,Y
		LDA	#OCTA1
		STA	ENMYNO,Y
		LDA	ESKAIF,X
		STA	ENKAIF,Y
		PHX
;
		LDX	<WORK4
		LDA	<WORK0
		CLC
		ADC	ESSXAD,X
		STA	ENXPSL,Y
		LDA	<WORK1
		ADC	ESSXAH,X
		STA	ENXPSH,Y
		LDA	<WORK2
        	CLC
		ADC	ESSYAD,X
		STA	ENYPSL,Y
		LDA	<WORK3
		ADC	ESSYAH,X
		STA	ENYPSH,Y
;
		TYX
		JSL	>ENMDST
		PLX
		DEC	<WORK4
		BPL	ES1002	     ; 4 of set
ES1090		EQU	$
		RTS
ES10A0		EQU	$
		STZ	ESSTAT,X
		RTS
;=================================================================================================
ENOXDL		EQU	$
		BYTE	030H,0C0H
ENOXDH		EQU	$
		BYTE	001H,0FFH
;
EOT0A0R		EQU	$
ESSRTS		EQU	$
		RTS
;
ESSAVE		EQU	$
		LDA	DJFLG
		BNE	ESSRTS
;
		LDA	ESMODE,X
		CMP	#HESET
		BEQ	ESSRTS
;---- X check ---
		LDA	<FRCNT
		AND	#01H
		STA	<WORK1
		STA	<WORK2
		TAY
		LDA	<SCCH2
		CLC
		ADC	ENOXDL,Y
		ROL	<WORK0
		CMP	ESXPSL,X
;
		PHP
;
		LDA	<SCCH2+1
		LSR	<WORK0
		ADC	ENOXDH,Y
;
		PLP
		SBC	ESXPSH,X
		STA	<WORK0
;
		LSR	<WORK1
		BCC	ENOT10
;
		EOR	#80H
		STA	<WORK0
ENOT10		EQU	$
		LDA	<WORK0
		BMI	ESCLER
;---- Y check ---
		LDA	<SCCV2
		CLC
		ADC	ENOXDL,Y
		ROL	<WORK0
		CMP	ESYPSL,X
;
		PHP
;
		LDA	<SCCV2+1
		LSR	<WORK0
		ADC	ENOXDH,Y
;
		PLP
		SBC	ESYPSH,X
		STA	<WORK0
;
		LSR	<WORK2
		BCC	ENOT30
;
		EOR	#80H
		STA	<WORK0
ENOT30		EQU	$
		LDA	<WORK0
		BPL	EOT0A0
;- - - - RESET ----
ESCLER		EQU	$
		STZ	ESMODE,X
;
		TXA
		ASL	A
		TAY
		MEM16
		REP	#00100000B
		LDA	ESSWAD,Y
		STA	<WORK0
		CMP	#0FFFFH
		PHP
		LSR	A
		LSR	A
		LSR	A
		CLC
		ADC	#ENITSW
		STA	<WORK1
		PLP
		MEM8
		SEP	#00100000B
;
		BCS	EOT0A0			; data set enemy ?
;						; yes ! on off bit clear !
		LDA	#BANK ENITSW
		STA	<WORK3
;
                LDA     <WORK0		; x pos !
                AND     #07H
                TAY 
                LDA     [<WORK1] 
                AND     GONOF2,Y
                STA     [<WORK1] 
EOT0A0		EQU	$
		RTS
;- - - - - - - 
GONOF2		EQU	$
		BYTE	01111111B
		BYTE	10111111B
		BYTE	11011111B
		BYTE	11101111B
		BYTE	11110111B
		BYTE	11111011B
		BYTE	11111101B
		BYTE	11111110B
;=================================================================================================
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;ESCLCK		EQU	$
;;		LDA	<GAMEMD
;		BNE	ESCL90          ; Scroll ?
;;
;		LDA	ESXPSH,X	; no!
;		AND	#11111110B
;		CMP	NOWRMX
;		BNE	ESCL80
;		LDA	ESYPSH,X
;		AND	#11111110B
;		CMP     NOWRMY
;		BEQ	ESCL90
;ESCL80		EQU	$
;		STZ	ESMODE,X
;ESCL90		EQU	$
;		RTS
;----------------------------------------
;****************************************************************
;*		MANY2 EN SET					*
;****************************************************************
MA2CDT		EQU	$
		BYTE	0FFH,001H
MA2CD1		EQU	$
		BYTE	0FFH,000H
;
MANY2C		EQU	$
;
		JSR	MAN2CE			;EN SET
;
		LDA	<PLXPS0
		CMP	ESXPSH,X
		BNE	MA2C010
		LDA	<PLXPS1
		CMP	ESXPSL,X
		BEQ	MA2C020
MA2C010		EQU	$
		LDA	#000H
		ROL	A
		TAY
;
		LDA	ESXPSL,X
		CLC
		ADC	MA2CDT,Y
		STA	ESXPSL,X
		LDA	ESXPSH,X
		ADC	MA2CD1,Y
		STA	ESXPSH,X
;
MA2C020		EQU	$
		LDA	<PLYPS0
		CMP	ESYPSH,X
		BNE	MA2C030
		LDA	<PLYPS1
		CMP	ESYPSL,X
		BEQ	MA2C040
MA2C030		EQU	$
		LDA	#000H
		ROL	A
		TAY
;
		LDA	ESYPSL,X
		CLC
		ADC	MA2CDT,Y
		STA	ESYPSL,X
		LDA	ESYPSH,X
		ADC	MA2CD1,Y
		STA	ESYPSH,X
;
MA2C040		EQU	$
		LDA	#000H
		STA	>KRYBUF+20H
		JSL	>RNDSET
		ORA	<FRCNT
		AND	#03FH
		BNE	MA2C050
		LDA	#001
		STA	>KRYBUF+20H
MA2C050		EQU	$
		RTS
;
;----------------------------------------
MAN2CE		EQU	$
		LDA	ESXPSL,X		;P(X,Y)
		STA	<WORK0
		LDA	ESXPSH,X
		STA	<WORK1
;
		LDA	ESYPSL,X
		STA	<WORK2
		LDA	ESYPSH,X
		STA	<WORK3
;
		LDA	#040H			;R
		STA	<WORK4
		STZ	<WORK5
;
		LDA	ESTIM0,X			;
		CLC
		ADC	#001H
		STA	ESTIM0,X
		BCC	MAN2C20
		INC	ESWRK0,X
;
MAN2C20		EQU	$
		JSR	MAN2C10
;
		LDA	ESSTAT,X		;NEXT POINT
		DEC	A
		AND	#00FH
		STA	ESSTAT,X
		BNE	MAN2C20			;END?
;		LDA	#008H			;Y
;		STA	ESSTAT,X
;
		RTS
MAN2C10		EQU	$
		LDA	ESSTAT,X
		STA	<WORKE
		STZ	<WORKF
		LDA	#006			;HABA
		STA	<WORKD
MAN2C30		EQU	$
		ASL	<WORKE
		ROL	<WORKF
		DEC	<WORKD
		BNE	MAN2C30
;
		LDA	<WORKE
		CLC
		ADC	ESTIM0,X
		STA	<WORK6
		LDA	ESWRK0,X
		ADC	<WORKF
		STA	<WORK7
;
		JSL	>ENENSET		;EN KEISAN
;
		PHX				;SET POINT
		LDA	ESSTAT,X
		TAX
		LDA	<WORK8
		STA	>KRXBUF,X
		LDA	<WORK9
		STA	>KRXBUF+10H,X
		LDA	<WORKA
		STA	>KRYBUF,X
		LDA	<WORKB
		STA	>KRYBUF+10H,X
		PLX
;
		RTS
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%		Enemy data set   			      %		
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENDTST		EQU	$
		PHB
		PHK
		PLB
;
		JSL	>ETCLER     ;2
;
		MEM16
		REP	#20H
;
                LDA	#0FFFFH
		STA     GRRMLY		; For ground display limit check (not use)
		STA     GRRMLX
;;		STA     GRRMLY+1
;;		STA     GRRMLX+1
;
		LDX	#00H
		LDA	ERXYCT
DCK010		EQU	$
		CMP	DJCKBF,X
		BEQ	DCK020		
		INX
		INX
		CPX	#06H+1
		BCC	DCK010		; New room in ?
;					; yes !
		LDA	DJCKBF+6	; old buffer reset !
		STA	<WORK0
;
		LDA	DJCKBF+4	; next buffer set !
		STA	DJCKBF+6
		LDA	DJCKBF+2
		STA	DJCKBF+4
		LDA	DJCKBF+0
		STA	DJCKBF+2
		LDA	ERXYCT
		STA	DJCKBF+0
;
;;		LDY	#00H
;;		LDX	#00H
;;DCK010		EQU	$
;;		LDA	DJCKBF,Y
;;		CMP	DJCKBF+2,X
;;		BEQ	DCK020		
;;		INX
;;		INX
;;		CPX	#04H+1
;;		BCC	DCK010
;;		INY
;;		INY
;;		TYX
;;		CPY	#04H+1
;;;		BCC	DCK010		; chigau room 4 kai in ?	
;- - - - OLD BUFFER CLER - - - -	; yes !
		IDX16
		REP	#10H
;
;;                LDA     DJCKBF+6
		LDA	<WORK0
		CMP	#0FFFFH
		BEQ	DCK020
                ASL     A
                TAX
                LDA     #0000000000000000B
                STA     >ENDTBF,X
DCK020		EQU	$
		MEM8
		IDX8
		SEP	#30H
;- - - - -
		JSR	ENDS00
;- - - - -
		PLB
		RTL
;==================================
ETCLER		EQU	$
		LDX	#ENNO-1
ECL010		EQU	$
		LDA	ENMODE,X
		BEQ	ECL012
;
;;		LDY	DJFLG
;;		BEQ	ECL011
;;;
;;		CMP	#ECACH
;;		BEQ	ECL012
;;ECL011		EQU	$
		LDA	ENMYNO,X
		CMP	#HYUUU
		BEQ	ECL012		; Map enemy ?
;					; no. !
		STZ	ENMODE,X
ECL012		EQU	$
		DEX
		BPL	ECL010
;
		LDX	#BMNO-1
ECL030		EQU	$
		STZ	BMMODE,X
		DEX
		BPL	ECL030
;
		STZ	MDBMCT		; Medusa beam set count !
		STZ	KAGIID		; Kagi save data index !
		STZ	YAHTCT
		STZ	YAAACT
		STZ	EN2FLG		; Enemy2 FLAG !
;- - - - - - - - - - - - - - - - - - - -
ETCLER2		EQU	$
		LDX	#ESNO-1
ECL020		EQU	$
		STZ	ESMODE,X
		DEX
		BPL	ECL020
;
;
		LDX	#E2NO-1
ALCR10		EQU	$
		LDA	#00H
		STA	>E2MODE,X
		DEX
		BPL	ALCR10
		RTL
;
;		RTS
;
;------------------------------------------------
ENDS00		EQU	$
;;;		ASL	A
;;;		TAY
		MEM16
		IDX16
		REP	#00110000B
                LDA	ERXYCT
;;;                LDA	<RMXYCT
		ASL	A
		TAY
		LDA	EDADAD,Y
		STA	<WORK0
;;		LDA	RMXYCT
                LDA	ERXYCT
		LSR	A
		LSR	A
		LSR	A
		MEM8
		IDX8
		SEP	#00110000B	
;
		AND	#11111110B
		STA	NOWRMY
                LDA	ERXYCT
;;		LDA	RMXYCT
		AND	#00001111B
		ASL	A
		STA	NOWRMX
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
		LDA	(<WORK0)
		STA	OAMTYP
;
		LDA	#01H
		STA	<WORK4
		STZ	<WORK2		; set count !
		STZ	<WORK3		; set count !
ENDS10		EQU	$
		LDY	<WORK4
		LDA	(<WORK0),Y
		CMP	#0FFH
		BEQ	ENDS90
;
		JSR	ENITST
;
                INC	<WORK2		; Enemy set count
;
;;		LDA	ENSTCT		; Enemy set index 
;;		STA	<WORK6		; save !
;;		INC	A
;;		CMP	#ENNO
;;		BCC	ENDS23
;;		LDA	#00H
;;ENDS23		EQU	$
;;		STA	ENSTCT
;
;;		LDA	<WORK2
;;		CMP	#ENNO
;;		BCS	ENDS90
;
		INC	<WORK4
		INC	<WORK4
		INC	<WORK4
		BRA	ENDS10
ENDS90		EQU	$
		RTS
;----------------------------------------------
EICBIT		EQU	$
		WORD	0000000000000001B
		WORD	0000000000000010B
		WORD	0000000000000100B
		WORD	0000000000001000B
		WORD	0000000000010000B
		WORD	0000000000100000B
		WORD	0000000001000000B
		WORD	0000000010000000B
		WORD	0000000100000000B
		WORD	0000001000000000B
		WORD	0000010000000000B
		WORD	0000100000000000B
		WORD	0001000000000000B
		WORD	0010000000000000B
		WORD	0100000000000000B
		WORD	1000000000000000B
;- - - - - - - - - - - - - - - - - -
;- - - - - - - - - - - - - - - - - - - - - - - - -
ENBTON          EQU     $
                PHB
                PHK
                PLB
;
                LDA     DJFLG
                BEQ     EBO010
;
		LDA	ENMOD5,X
		LSR	A
		BCS	EBO010		; Not set ?
;					; yes !
                LDA     ENSWAD,X
                BMI     EBO010		; Data set enemy ?
;					; yes !
                STA     <WORK2
                STZ     <WORK3
                MEM16
                IDX16
                REP     #00110000B
                PHX
                LDA     ERXYCT
                ASL     A
                TAX
                LDA     <WORK2
                ASL     A
                TAY
                LDA     >ENDTBF,X
                ORA     EICBIT,Y
                STA     >ENDTBF,X
                PLX
                MEM8
                IDX8
                SEP     #00110000B
EBO010          EQU     $
                PLB
                RTL
;===============================================
ENITST		EQU	$
		INY
		INY
		LDA	(<WORK0),Y
		TAX
;;		LDA	>ENMDD5,X
;;		AND	#01H
;;		BNE	EIS001		; on off check ?
;;;					; yes !	
;;		MEM16
;;		IDX16
;;		REP	#00110000B
;;		PHY
;;		PHX
;;		LDA	ERXYCT
;;		ASL	A
;;		TAX
;;		LDA	<WORK2
;;		ASL	A
;;		TAY
;;		LDA	>ENDTBF,X
;;		AND	EICBIT,Y
;;		PLX
;;		PLY
;;		CMP	#0000000000000000B
;;		MEM8
;;		IDX8
;;		SEP	#00110000B
;;		BEQ	EIS001		; set ok ?
;;;					; no !
;;		RTS
;;;- - - - - - - - - - - - - - - - - - - - - - -
;;EIS001		EQU	$
		CPX	#KAGI0
		BNE	EIS002
;
		DEY
		DEY
		LDA	(<WORK0),Y
		INY
		INY
		CMP	#0FEH
		BEQ	EIS011
		CMP	#0FDH
		BNE	ENIS00
;
		JSR	EIS011
;
		INC	KAGIFG,X	; Magical key !
;
;;		PHX
;;		PHY
;;		LDA	#22H
;;		JSL	>ITMCBFST	;Key character TR.
;;		PLY
;;		PLX
;
		RTS
;- - - - - - - - - - - - - - - - - -
EIS011		EQU	$
		DEC	<WORK2
;
         	LDX	<WORK2
;					; Enemy have key !!
		LDA	#01H
		STA	KAGIFG,X
		RTS
;
EIS002		EQU	$
;;		CPX	#PORT1
;;		BEQ	POS010
;;		CPX	#PORT2
;;		BNE	POS012
;;POS010		EQU	$
;;		JSR	PORTSET
;;		RTS
;;POS012		EQU	$
		CPX	#ESET0
		BCC	ENIS00
		JSR	ESMSET
		RTS
;-- Normal enemy set ----
ENIS00		EQU	$
		LDA	>ENMDD5,X
		AND	#01H
		BNE	EIS001		; on off check ?
;					; yes !	
		MEM16
		IDX16
		REP	#00110000B
		PHY
		PHX
		LDA	ERXYCT
		ASL	A
		TAX
		LDA	<WORK2
		ASL	A
		TAY
		LDA	>ENDTBF,X
		AND	EICBIT,Y
		PLX
		PLY
		CMP	#0000000000000000B
		MEM8
		IDX8
		SEP	#00110000B
		BEQ	EIS001		; set ok ?
;					; no !
		RTS
;- - - - - - - - - - - - - - - - - - - - - - -
EIS001		EQU	$
;;		LDX	ENSTCT
		LDX	<WORK2
		DEY
		DEY
;
;;		LDX	#ENNO-1
;;ENIS10		EQU	$
;;		LDA	ENMODE,X
;;		BEQ	ENIS30
;;		DEX
;;		BPL	ENIS10
;;;
;;		RTS
;;;-  -  -  -  -  -  -  -  -  -  -  -  -  -
;;ENIS30		EQU	$
		LDA	#EINIT
		STA	ENMODE,X
		LDA	(<WORK0),Y
		STA	ENHELP
		AND	#10000000B
		ASL	A
		ROL	A
		STA	ENKAIF,X
		LDA	(<WORK0),Y
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		STA	ENYPSL,X
		LDA	NOWRMY
		ADC	#00H
		STA	ENYPSH,X
		INY
		LDA	(<WORK0),Y
		STA	ENHELP2
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		STA	ENXPSL,X
		LDA	NOWRMX
		ADC	#00H
		STA	ENXPSH,X
		INY	
		LDA	(<WORK0),Y
		STA	ENMYNO,X
;
		LDA	ENHELP
		AND	#01100000B
		LSR	A
		LSR	A
		STA	ENHELP
		LDA	ENHELP2
		LSR	A 
		LSR	A 
		LSR	A 
		LSR	A 
		LSR	A 
		ORA	ENHELP
		STA	HEMODE,X	; for heishi move mode !
;;;		TXA	
		LDA	<WORK2
		STA	ENSWAD,X
		STZ	KAGIFG,X
;;		LDA	ERXYCT
;;		STA	ENGRNO,X
;;;;;;		JSL	>ENRMCL
		RTS
;======== enemy flag set posotion in =====
ESMSET		EQU	$
;
;		LDX	#ESNO-1
;ESIS10		EQU	$
;		LDA	ESMODE,X
;		BEQ	ESIS30
;		DEX
;		BPL	ESIS10
;		RTS
;-  -  -  -  -  -  -  -  -  -  -  -  -  -
;ESIS30		EQU	$
;
		LDX	<WORK2
;;		LDX	ENSTCT
		LDA	(<WORK0),Y
;;		SEC
;;		SBC	#ESET0-1
		STA	ESMODE,X
		DEY
		DEY
		LDA	(<WORK0),Y
		AND	#10000000B
		ASL	A
		ROL	A
		STA	ESKAIF,X
		LDA	(<WORK0),Y
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		STA	ESYPSL,X
		LDA	NOWRMY
		ADC	#00H
		STA	ESYPSH,X
		INY
		LDA	(<WORK0),Y
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		STA	ESXPSL,X
		LDA	NOWRMX
		ADC	#00H
		STA	ESXPSH,X
;
;;		TXA	
		LDA	<WORK2
		STA	ESSWAD,X
		JSR	ESRMCL		; ram clear
;
		LDA	ESMODE,X
		CMP	#TAMS1
		BNE	ESS0D0		; shiro tama ?
;
		LDA	#0FFH
		STA	ESTIM0,X
;
		LDA	ESXPSL,X
		SEC
		SBC	#08H
		STA	ESXPSL,X
;
;		LDA	ESMODE,X
;		CMP	#TAMS0
;		BCC	ESS0D0		; shiro tama ?
;;					; yes ! muki set !
;		LDA	ESXPSL,X
;		AND	#10H
;		LSR	A
;		LSR	A
;		LSR	A
;		LSR	A
;		STA	<WORKF
;		LDA	ESYPSL,X
;		AND	#010H
;		LSR	A
;		LSR	A
;		LSR	A
;		ORA	<WORKF
;		STA	ESSTAT,X
ESS0D0		EQU	$
		RTS
;
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
;%       poltargaist set                                    % 
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
;ISUU		EQU	001H
;NATA		EQU	002H
;SARA    	EQU	003H
;FOOK		EQU	004H
;KNIF		EQU	005H
;MADO		EQU	006H
;GAKU		EQU	007H
;BADD		EQU	008H
;TABL		EQU	009H
;GOST		EQU	00AH
;POSTNO		EQU	$
;		BYTE	TABL,FOOK,SARA,KNIF,KNIF,SARA,FOOK,FOOK,SARA,KNIF
;		BYTE	ISUU,ISUU,ISUU,BEDD,ISUU
;		BYTE	GAKU,GAKU,NATA,NATA
;;
;;		BYTE	GAKU,MADO,BEDD,ISUU,NATA,SARA,FOOK,KNIF,TABL
;POSTXL		EQU	$
;		BYTE	028H,032H,032H,032H,041H,049H,053H,041H,049H,053H
;		BYTE	018H,048H,048H,098H,0C8H
;		BYTE	09CH,040H,0D0H,020H
;
;;		BYTE	0A0H,030H,0E0H,090H,0B0H,0D0H,0F0H,010H,030H
;POSTXH		EQU	$
;		BYTE	001H,001H,001H,001H,001H,001H,001H,001H,001H,001H
;		BYTE	001H,001H,001H,000H,000H
;		BYTE	000H,001H,000H,001H
;
;;		BYTE	000H,001H,000H,000H,000H,000H,000H,001H,001H
;POSTYL		EQU	$
;		BYTE	050H,04EH,056H,060H,051H,051H,051H,060H,060H,060H
;		BYTE	056H,038H,074H,028H,030H
;		BYTE	0E8H,0E8H,0ECH,0ECH
;
;;		BYTE	090H,030H,030H,020H,040H,060H,080H,0A0H,0C0H
;POSTYH		EQU	$
;		BYTE	001H,001H,001H,001H,001H,001H,001H,001H,001H,001H
;		BYTE	001H,001H,001H,001H,001H
;		BYTE	000H,000H,000H,000H
;
;;		BYTE	001H,001H,001H,001H,001H,001H,001H,001H,001H
;POSTMD		EQU	$
;		BYTE	000H,006H,000H,006H,000H,000H,000H,004H,000H,004H
;		BYTE	000H,000H,000H,000H,000H
;		BYTE	000H,000H,000H,000H
;-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
;PORTSET		EQU	$
;		LDA	#01H
;		STA	EN2FLG
;;
;		LDX 	#POSTXL-POSTNO-1
;;;		LDX 	#00H
;PRS010		EQU	$
;		LDA	#00H
;		STA	>E2CONT,X
;		STA	E2TIM0,X
;;
;		LDA	POSTMD,X
;		STA	>E2CHPT,X
;		LDA	POSTNO,X
;		STA	>E2MODE,X
;		LDA	POSTXL,X
;		STA	>E2XPSL,X
;		LDA	POSTXH,X
;		CLC
;		ADC	NOWRMX
;		STA	>E2XPSH,X
;		LDA	POSTYL,X
;		STA	>E2YPSL,X
;		LDA	POSTYH,X
;		CLC
;		ADC	NOWRMY
;		STA	>E2YPSH,X
;		DEX
;		BPL	PRS010
;		RTS
;;
;;;		DEY
;;;		DEY
;;;;
;;;		LDX	#00H
;;;		LDA	#NATA
;;;		STA	>E2MODE,X
;;;		LDA	(<WORK0),Y
;;;		ASL	A
;;;		ASL	A
;;;		ASL	A
;;;		ASL	A
;;;		STA	>E2YPSL,X
;;;		LDA	NOWRMY
;;;		ADC	#00H
;;;		STA	>E2YPSH,X
;;;		INY
;;;		LDA	(<WORK0),Y
;;;		ASL	A
;;;		ASL	A
;;;		ASL	A
;;;		ASL	A
;;;		STA	>E2XPSL,X
;;;		LDA	NOWRMX
;;;		ADC	#00H
;;;		STA	>E2XPSH,X
;		RTS
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
;%                                                          % 
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
ALCLER		EQU	$
;BFCLER		EQU	$
		JSL	>ETCLER
;== Old enemy clear  =======
;		LDX 	#ENNO-1
;GED0F2		EQU	$
;		LDA	ENMYNO,X
;		CMP	#HYUUU
;		BEQ	GED0F8
;
;		LDA	ENDSPL,X
;		BEQ	GED0F8
;		STZ	ENMODE,X
;GED0F8		EQU	$
;		DEX
;		BPL	GED0F2
BFCLER		EQU	$
;== Initial Buffer clear =======
		STZ	CALFLG
		STZ	OTOFLG
;
                IDX16 
                REP     #00010000B
                LDX     #01000H-1
                LDA     #00H
GED000          EQU     $ 
                STA     >ENDTBF,X 
                DEX 
                BPL     GED000
; 
                LDX     #01000H/8-1
GED008          EQU     $ 
                STA     >ENITSW,X 
                DEX 
                BPL     GED008
                IDX8
                SEP     #00010000B
;
		LDY	#07H
		LDA	#0FFH
GED009		EQU	$
		STA	DJCKBF,Y	; danjyon bit on off check checker !
		DEY
		BPL	GED009
		RTL
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
;%                                                          % 
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
GREDS2          EQU     $
		JSL	>ETCLER
;;		PHB
;;		PHK
;;		PLB
;;;
;;		JSR	GED0F0		; data set !
;;;
;;		JSR	GRENIT		; all enemy initial !;
;;		PLB
;;		RTL
;- - - - - - - - - -
GREDST          EQU     $
		JSL	>BFCLER
;
		PHB
		PHK
		PLB
		JSR	GED0F0		; data set !
;
		JSR	GRENIT		; all enemy initial !
		PLB
		RTL
;------------------------------------------------------ 
;GRCKYL		EQU	$
;		BYTE	0E0H,0,0C0H
;
GED0F0		EQU	$
;;;		JSL	>ALCLER
;===============================
		LDA	GRNDNO
;;		AND	#3FH
		AND	#00000111B
		ASL	A
		STZ	GRRMXL
		STA	GRRMXH
;
		LDA	GRNDNO
		AND	#3FH
		LSR	A
		LSR	A
		AND	#00001110B
		STA	GRRMYH
		STZ	GRRMYL
;
                LDA     GRNDNO
;;		AND	#3FH
		TAY
		LDX	GRRMCK,Y
		STX	GRRMLX+1
		STZ	GRRMLX
;;		DEX
		STX	GRRMLY+1
;
;;		LDA	GRCKYL-2,X		
		STZ	GRRMLY
;
;;		TYA
		MEM16
		IDX16
		REP	#00110000B
		LDA	GRNDNO
                ASL     A 
                TAY 
;
		MEM8
		SEP	#00100000B
		LDA	>MODTBL0
		CMP	#02H
		BEQ	GED00E		; ENEMY data adress set !	
;
                LDA     GRE0ADR,Y	; zenhan !
                STA     <WORK0
                LDA     GRE0ADR+1,Y
		BRA	GED00F
GED00E		EQU	$
;
                LDA     GRE1ADR,Y
                STA     <WORK0
                LDA     GRE1ADR+1,Y
GED00F		EQU	$
                STA     <WORK1
; 
;;		IDX16
;;		REP	#00010000B
;
                LDY     #0000H
GED010          EQU     $ 
                LDA     (<WORK0),Y 
                CMP     #0FFH 
                BEQ     GED080
;
		INY
		INY
		LDA	(<WORK0),Y
		DEY
		DEY
		CMP	#HESET 
		BNE	GED012
;
		PHY
		JSR	HESETST
		PLY
		INY
		INY
		INY
		BRA	GED010
;
GED012		EQU	$
                LDA     (<WORK0),Y 
                PHA 
                LSR     A 
                LSR     A 
                LSR     A 
                LSR     A               ; Ypos (H)
;;                STA     <WORK2
;;                ASL     A 
;;                CLC 
;;                ADC     <WORK2
;;                STA     <WORK2
		ASL	A
		ASL	A
		STA	<WORK2
;
                INY 
                LDA     (<WORK0),Y 
                LSR     A 
                LSR     A 
                LSR     A 
                LSR     A               ; Xpos (H)
                CLC 
                ADC     <WORK2
                STA     <WORK6          ; Buffer (H)
                PLA 
                ASL     A 
                ASL     A 
                ASL     A 
                ASL     A 
                STA     <WORK7
                LDA     (<WORK0),Y 
                AND     #0FH
                ORA     <WORK7
                STA     <WORK5          ; Buffer (L)
; 
                INY 
                LDA     (<WORK0),Y 
;;                IDX16 
;;                REP     #00010000B
                LDX     <WORK5
		INC	A
                STA     >ENDTBF,X 
;::::::::::::::11/20 RAM KOWASU!!!                STA     >ENDTBF,X 
;;                IDX8
;;                SEP     #00010000B
; 
                INY 
                BRA     GED010
; 
GED080          EQU     $ 
		IDX8
		SEP	#00010000B
                RTS
;============================================== 
HESETST	        EQU	$
		IDX16
;
		LDX	#ESNO-1
HESS10		EQU	$
		LDA	ESMODE,X
		BEQ	HESS20
		DEX
		BPL	HESS10
		BRA	HESS90
HESS20		EQU	$
		JSR	ESRMCL
;
		LDA	#HESET
		STA	ESMODE,X
;
;;LDA	GRNDNO
;;STA	ESGRNO,X
;
		LDA	(<WORK0),Y
		PHA
		ASL	A	
		ASL	A
		ASL	A
		ASL	A
		STA	ESYPSL,X		
		PLA
		LSR	A
		LSR	A
		LSR	A
		LSR	A
		CLC
		ADC	GRRMYH
		STA	ESYPSH,X
;
		INY
		LDA	(<WORK0),Y
		PHA
		ASL	A	
		ASL	A
		ASL	A
		ASL	A
		STA	ESXPSL,X		
		PLA
		LSR	A
		LSR	A
		LSR	A
		LSR	A
		CLC
		ADC	GRRMXH
		STA	ESXPSH,X
;
HESS90		EQU	$
		IDX8
		RTS
;============================================== 
;============================================== 
;============================================== 
;============================================== 
;============================================== 
GRENIT          EQU     $ 
		LDA	<SCCH2
		PHA
		LDA	<SCCH2+1
		PHA
		LDA	SCRMVX
		PHA
		LDA	#0FFH
		STA	SCRMVX
		LDY	#15H
GEI010		EQU	$
		PHY
		JSR	GEXSET
		PLY
;
		LDA	<SCCH2
		CLC
		ADC	#10H
		STA	<SCCH2
		LDA	<SCCH2+1
		ADC	#00H
		STA	<SCCH2+1
;
		DEY
		BPL	GEI010
		PLA
		STA	SCRMVX
		PLA
		STA	<SCCH2+1
		PLA
		STA	<SCCH2
		RTS
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
;%              Scroll enemy mode set !                     % 
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
;GECKXD          EQU     $ 
;                BYTE   0,3,6
;                BYTE   0,3,6
;                BYTE   0,3,6
;GECKYD          EQU     $ 
;                BYTE   0,0,0
;                BYTE   3,3,3
;                BYTE   6,6,6
; 
GRENST          EQU     $
		PHB
		PHK
		PLB
; 
		LDA	GRESCT
		AND	#01H
		BNE	GES0W9
;
                JSR     GEXSET
GES0W9		EQU	$
		LDA	GRESCT
		AND	#01H
		BEQ	GES0WA
;
                JSR     GEYSET
GES0WA		EQU	$
		INC	GRESCT
		PLB
                RTL 
;------------------------------------------------------------ 
;                                                           | 
;------------------------------------------------------------ 
GXSETL          EQU     $ 
                BYTE   020H,0D0H
GXSETH          EQU     $ 
                BYTE   001H,0FFH
; 
GEXSET          EQU     $ 
;L		LDA	GRNDNO
;L;;		AND	#3FH
;L		AND	#00000111B
;L		ASL	A
;L		STA	GRRMXH
;L;;		STA	ENHELP
;L		LDA	GRNDNO
;L		AND	#3FH
;L		LSR	A
;L		LSR	A
;L		AND	#00001110B
;L		STA	GRRMYH
;L;;		STA	ENHELP2
;
                LDY     #00H
                LDA     SCRMVX
                BEQ     GX0090
                BPL     GX0010
                INY 
GX0010          EQU     $ 
                LDA     <SCCH2
                CLC 
                ADC     GXSETL,Y
                STA     <WORKE
                LDA     <SCCH2+1
                ADC     GXSETH,Y
                STA     <WORKF
; 
                LDA     <SCCV2
                SEC 
                SBC     #30H
                STA     <WORKC
                LDA     <SCCV2+1
                SBC     #00H
                STA     <WORKD
; 
                LDX     #015H 
GX0020          EQU     $ 
                JSR     GXYSUB
; 
                MEM16 
                REP     #00100000B
                LDA     <WORKC
                CLC 
                ADC     #0010H
                STA     <WORKC
                MEM8
                SEP     #00100000B
; 
                DEX 
                BPL     GX0020
; 
GX0090          EQU     $ 
                RTS 
;------------------------------------------------------------ 
;                                                           | 
;------------------------------------------------------------ 
GYSETL          EQU     $ 
                BYTE   020H,0D0H
GYSETH          EQU     $ 
                BYTE   001H,0FFH
; 
GEYSET          EQU     $ 
                LDY     #00H
                LDA     SCRMVY
                BEQ     GY0090
                BPL     GY0010
                INY 
GY0010          EQU     $ 
                LDA     <SCCV2
                CLC 
                ADC     GYSETL,Y
                STA     <WORKC
                LDA     <SCCV2+1
                ADC     GYSETH,Y
                STA     <WORKD
; 
                LDA     <SCCH2
                SEC 
                SBC     #20H
                STA     <WORKE
                LDA     <SCCH2+1
                SBC     #00H
                STA     <WORKF
; 
                LDX     #015H 
GY0020          EQU     $ 
                JSR     GXYSUB
; 
                MEM16 
                REP     #00100000B
                LDA     <WORKE
                CLC 
                ADC     #0010H
                STA     <WORKE
                MEM8
                SEP     #00100000B
; 
                DEX 
                BPL     GY0020
; 
GY0090          EQU     $ 
                RTS 
;------------------------------------------------------------ 
;                                                           | 
;------------------------------------------------------------ 
GRRMCK		EQU	$	; data of max rom no.
;;			0 1 2 3 4 5 6 7
;; 			8 9 A B C E D F
;
;--zenhan--
		BYTE	4,4,2,4,4,4,4,2
		BYTE	4,4,4,4,4,4,4,4
		BYTE	2,2,2,2,2,2,2,2
		BYTE	4,4,2,4,4,2,4,4
		BYTE	4,4,2,4,4,2,4,4
		BYTE	2,2,2,2,2,2,2,2
		BYTE	4,4,2,2,2,4,4,2
		BYTE	4,4,2,2,2,4,4,2
;- - - - - - - -- -
;-- chyuban-
		BYTE	4,4,2,4,4,4,4,2
		BYTE	4,4,4,4,4,4,4,4
		BYTE	2,2,2,2,2,2,2,2
		BYTE	4,4,2,4,4,2,4,4
		BYTE	4,4,2,4,4,2,4,4
		BYTE	2,2,2,2,2,2,2,2
		BYTE	4,4,2,2,2,4,4,2
		BYTE	4,4,2,2,2,4,4,2
;- - - - - - - -- -
;-- SPOT-
		BYTE	4,4,2,4,4,4,4,2
		BYTE	4,4,4,4,4,4,4,4
		BYTE	2,2,2,2,2,2,2,2
		BYTE	4,4,2,4,4,2,4,4
		BYTE	4,4,2,4,4,2,4,4
		BYTE	2,2,2,2,2,2,2,2
		BYTE	4,4,2,2,2,4,4,2
		BYTE	4,4,2,2,2,4,4,2
;- - - - - - - -- -
GXYSUB          EQU     $ 
		MEM16
		REP	#00100000B
;
                LDA     <WORKE
                SEC 
		SBC	GRRMXL
		CMP	GRRMLX
                BCS     GXYRTS
		XBA
                STA     <WORK0
; 
                LDA     <WORKC
                SEC 
		SBC	GRRMYL
		CMP	GRRMLY
                BCS     GXYRTS
; 
		MEM8
		SEP	#00100000B
		XBA     
		ASL	A
		ASL	A
		ORA	<WORK0
		STA	<WORK1
; 
                LDA     <WORKC
                AND     #0F0H 
                STA     <WORK0
                LDA     <WORKE
                LSR     A 
                LSR     A 
                LSR     A 
                LSR     A 
                ORA     <WORK0
                STA     <WORK0
; 
                PHX 
                JSR     GRES00
                PLX 
GXYRTS		EQU	$
		MEM8
		SEP	#00100000B
                RTS 
;------------------------------------------------------------ 
;                                                           | 
;------------------------------------------------------------ 
GONOFB          EQU     $ 
                BYTE   10000000B
                BYTE   01000000B
                BYTE   00100000B
                BYTE   00010000B
                BYTE   00001000B
                BYTE   00000100B
                BYTE   00000010B
                BYTE   00000001B
; 
GRES00          EQU     $ 
                MEM16 
                REP     #00100000B
                LDA     <WORK0
                CLC 
                ADC     #ENDTBF 
                STA     <WORK5
                MEM8
                SEP     #00100000B
;
		LDA	#BANK ENDTBF
		STA	<WORK7
; 
		LDA	[<WORK5]
		BEQ	GES090		; enemy on ?
;
                MEM16 
                REP     #00100000B
; 					; yes !
                LDA     <WORK0          ; Adress L,H
                LSR     A 
                LSR     A 
                LSR     A 
                CLC 
                ADC     #ENITSW 
                STA     <WORK2
                MEM8
                SEP     #00100000B
; 
		LDA	#BANK ENITSW
		STA	<WORK4
;
                LDA     <WORK0
                AND     #07H
                TAY 
                LDA     [<WORK2] 
                AND     GONOFB,Y
                BNE     GES090          ; Already set ? 
;                                       ; No. 
                JSR     ENMYST          ; Enemy set ! 
; 
GES090          EQU     $ 
                RTS 
;------------------------------------------------------------ 
;                                                           | 
;------------------------------------------------------------ 
;;ENXHDT          EQU     $ 
;;                BYTE   0,1,2,0,1,2,0,1,2
;;ENYHDT          EQU     $ 
;;                BYTE   0,0,0,1,1,1,2,2,2
; 
ENMYST          EQU     $
		LDA	[<WORK5]
        	CMP	#ESET0+1
		BCC	ENS0F0
;
		JSR	ESMSET2
		RTS
;
ENS0F0		EQU	$ 
                LDX     #ENNO-1 
ENS000          EQU     $ 
                LDA     ENMODE,X
                BEQ     ENS010
		LDA	ENMYNO,X
		CMP	#HEIS0
		BNE	ENS001
		LDA	ENWRK2,X
		BNE	ENS010		; serch beam is revise !
ENS001		EQU	$
                DEX 
                BPL     ENS000
                RTS 
; 
ENS010          EQU     $ 
                LDA     [<WORK2] 
                ORA     GONOFB,Y        ; Set bit on !
                STA     [<WORK2] 
; 
                PHX 
                TXA 
                ASL     A 
                TAX 
                MEM16 
                REP     #00100000B
                LDA     <WORK0
                STA     ENSWAD,X        ; On off data adress set !
                MEM8
                SEP     #00100000B
                PLX 
; 
                LDA     [<WORK5]
		DEC     A 
                STA     ENMYNO,X
;
                LDA     #EINIT
                STA     ENMODE,X
; 
                LDA     <WORK0
                ASL     A 
                ASL     A 
                ASL     A 
                ASL     A 
                STA     ENXPSL,X
;
                LDA     <WORK0
                AND     #0F0H 
                STA     ENYPSL,X
;
                LDA     <WORK1
		AND	#03H
		STA	ENXPSH,X
		LDA	<WORK1
		LSR	A
		LSR	A
		STA	ENYPSH,X
;;                LDA     ENXHDT,Y
;;                STA     ENXPSH,X
;;                LDA     ENYHDT,Y
;;                STA     ENYPSH,X
;
;;;                LDY     GRNDNO
                LDA     ENXPSH,X
                CLC 
;;                ADC     GECKXD,Y
		ADC	GRRMXH
;;		ADC	ENHELP
                STA     ENXPSH,X
; 
                LDA     ENYPSH,X
                CLC 
;;                ADC     GECKYD,Y
		ADC	GRRMYH
;;		ADC	ENHELP2
                STA     ENYPSH,X
;
; 
;;;;                JSL     >ENMDST 
		STZ	ENKAIF,X
		STZ	HEMODE,X
		STZ	KAGIFG,X
                RTS
;============================================
ESMSET2		EQU	$
                LDX     #ESNO-1 
ESS000          EQU     $ 
                LDA     ESMODE,X
                BEQ     ESS010
                DEX 
                BPL     ESS000
                RTS 
; 
ESS010          EQU     $ 
                LDA     [<WORK2] 
                ORA     GONOFB,Y        ; Set bit on !
                STA     [<WORK2] 
; 
                PHX 
                TXA 
                ASL     A 
                TAX 
                MEM16 
                REP     #00100000B
                LDA     <WORK0
                STA     ESSWAD,X        ; On off data adress set !
                MEM8
                SEP     #00100000B
                PLX 
; 
                LDA     [<WORK5]
		DEC     A
;;		SEC
;;		SBC	#ESET0 
                STA     ESMODE,X
;
		PHA
                LDA     <WORK0
                ASL     A 
                ASL     A 
                ASL     A 
                ASL     A 
		PLY
		CPY	#DOOOR
		BNE	DS0010
		CLC
		ADC	#08H
DS0010		EQU	$
                STA     ESXPSL,X
                LDA     <WORK0
                AND     #0F0H 
                STA     ESYPSL,X
;
                LDA     <WORK1
		AND	#03H
		STA	ESXPSH,X
		LDA	<WORK1
		LSR	A
		LSR	A
		STA	ESYPSH,X
;;                LDY     <WORK1
;;                LDA     ENXHDT,Y
;;                STA     ESXPSH,X
;;                LDA     ENYHDT,Y
;;                STA     ESYPSH,X
;
;;                LDY     GRNDNO
                LDA     ESXPSH,X
                CLC 
;;                ADC     GECKXD,Y
		ADC	GRRMXH
;;		ADC	ENHELP
                STA     ESXPSH,X
; 
                LDA     ESYPSH,X
                CLC 
;;                ADC     GECKYD,Y
		ADC	GRRMYH
;;		ADC	ENHELP2
                STA     ESYPSH,X
;
		STZ	ESKAIF,X
ESRMCL		EQU	$
		LDA	GRNDNO
		STA	ESGRNO,X
;
		STZ	ESTIM0,X
		STZ	ESSTAT,X
                RTS
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%		Enemy data  (ground)   			      %		
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
GRE0ADR		EQU	$
;--- zen han --
		WORD	GRE000,GRE001,GRE002,GRE003,GRE004,GRE005,GRE006,GRE007
		WORD	GRE008,GRE009,GRE00A,GRE00B,GRE00C,GRE00D,GRE00E,GRE00F
		WORD	GRE010,GRE011,GRE012,GRE013,GRE014,GRE015,GRE016,GRE017
		WORD	GRE018,GRE019,GRE01A,GRE01B,GRE01C,GRE01D,GRE01E,GRE01F
		WORD	GRE020,GRE021,GRE022,GRE023,GRE024,GRE025,GRE026,GRE027
		WORD	GRE028,GRE029,GRE02A,GRE02B,GRE02C,GRE02D,GRE02E,GRE02F
		WORD	GRE030,GRE031,GRE032,GRE033,GRE034,GRE035,GRE036,GRE037
		WORD	GRE038,GRE039,GRE03A,GRE03B,GRE03C,GRE03D,GRE03E,GRE03F
;-- URA --
		WORD	GRE040,GRE041,GRE042,GRE043,GRE044,GRE045,GRE046,GRE047
		WORD	GRE048,GRE049,GRE04A,GRE04B,GRE04C,GRE04D,GRE04E,GRE04F
		WORD	GRE050,GRE051,GRE052,GRE053,GRE054,GRE055,GRE056,GRE057
		WORD	GRE058,GRE059,GRE05A,GRE05B,GRE05C,GRE05D,GRE05E,GRE05F
		WORD	GRE060,GRE061,GRE062,GRE063,GRE064,GRE065,GRE066,GRE067
		WORD	GRE068,GRE069,GRE06A,GRE06B,GRE06C,GRE06D,GRE06E,GRE06F
		WORD	GRE070,GRE071,GRE072,GRE073,GRE074,GRE075,GRE076,GRE077
		WORD	GRE078,GRE079,GRE07A,GRE07B,GRE07C,GRE07D,GRE07E,GRE07F
;-- SPOT--
		WORD	GRE080,GRE081,GRE082,GRE083,GRE084,GRE085,GRE086,GRE087
		WORD	GRE088,GRE089,GRE08A,GRE08B,GRE08C,GRE08D,GRE08E,GRE08F
		WORD	GRE090,GRE091,GRE092,GRE093,GRE094,GRE095,GRE096,GRE097
		WORD	GRE098,GRE099,GRE09A,GRE09B,GRE09C,GRE09D,GRE09E,GRE09F
		WORD	GRE0A0,GRE0A1,GRE0A2,GRE0A3,GRE0A4,GRE0A5,GRE0A6,GRE0A7
		WORD	GRE0A8,GRE0A9,GRE0AA,GRE0AB,GRE0AC,GRE0AD,GRE0AE,GRE0AF
		WORD	GRE0B0,GRE0B1,GRE0B2,GRE0B3,GRE0B4,GRE0B5,GRE0B6,GRE0B7
		WORD	GRE0B8,GRE0B9,GRE0BA,GRE0BB,GRE0BC,GRE0BD,GRE0BE,GRE0BF
;----chyuu ban --
GRE1ADR		EQU	$
		WORD	GRE100,GRE101,GRE102,GRE103,GRE104,GRE105,GRE106,GRE107
		WORD	GRE108,GRE109,GRE10A,GRE10B,GRE10C,GRE10D,GRE10E,GRE10F
		WORD	GRE110,GRE111,GRE112,GRE113,GRE114,GRE115,GRE116,GRE117
		WORD	GRE118,GRE119,GRE11A,GRE11B,GRE11C,GRE11D,GRE11E,GRE11F
		WORD	GRE120,GRE121,GRE122,GRE123,GRE124,GRE125,GRE126,GRE127
		WORD	GRE128,GRE129,GRE12A,GRE12B,GRE12C,GRE12D,GRE12E,GRE12F
		WORD	GRE130,GRE131,GRE132,GRE133,GRE134,GRE135,GRE136,GRE137
		WORD	GRE138,GRE139,GRE13A,GRE13B,GRE13C,GRE13D,GRE13E,GRE13F
;
;-- URA --
		WORD	GRE040,GRE041,GRE042,GRE043,GRE044,GRE045,GRE046,GRE047
		WORD	GRE048,GRE049,GRE04A,GRE04B,GRE04C,GRE04D,GRE04E,GRE04F
		WORD	GRE050,GRE051,GRE052,GRE053,GRE054,GRE055,GRE056,GRE057
		WORD	GRE058,GRE059,GRE05A,GRE05B,GRE05C,GRE05D,GRE05E,GRE05F
		WORD	GRE060,GRE061,GRE062,GRE063,GRE064,GRE065,GRE066,GRE067
		WORD	GRE068,GRE069,GRE06A,GRE06B,GRE06C,GRE06D,GRE06E,GRE06F
		WORD	GRE070,GRE071,GRE072,GRE073,GRE074,GRE075,GRE076,GRE077
		WORD	GRE078,GRE079,GRE07A,GRE07B,GRE07C,GRE07D,GRE07E,GRE07F
;-- SPOT--
		WORD	GRE080,GRE081,GRE082,GRE083,GRE084,GRE085,GRE086,GRE087
		WORD	GRE088,GRE089,GRE08A,GRE08B,GRE08C,GRE08D,GRE08E,GRE08F
		WORD	GRE090,GRE091,GRE092,GRE093,GRE094,GRE095,GRE096,GRE097
		WORD	GRE098,GRE099,GRE09A,GRE09B,GRE09C,GRE09D,GRE09E,GRE09F
		WORD	GRE0A0,GRE0A1,GRE0A2,GRE0A3,GRE0A4,GRE0A5,GRE0A6,GRE0A7
		WORD	GRE0A8,GRE0A9,GRE0AA,GRE0AB,GRE0AC,GRE0AD,GRE0AE,GRE0AF
		WORD	GRE0B0,GRE0B1,GRE0B2,GRE0B3,GRE0B4,GRE0B5,GRE0B6,GRE0B7
		WORD	GRE0B8,GRE0B9,GRE0BA,GRE0BB,GRE0BC,GRE0BD,GRE0BE,GRE0BF
;==============================================
GRE000		EQU	$
		BYTE	0FFH
GRE001		EQU	$
		BYTE	0FFH
GRE002		EQU	$
		BYTE	0FFH
GRE003		EQU	$
		BYTE	0FFH
GRE004		EQU	$
		BYTE	0FFH
GRE005		EQU	$
		BYTE	0FFH
GRE006		EQU	$
		BYTE	0FFH
GRE007		EQU	$
		BYTE	0FFH
;
GRE008		EQU	$
		BYTE	0FFH
GRE009		EQU	$
		BYTE	0FFH
GRE00A		EQU	$
		BYTE	0FFH
GRE00B		EQU	$
		BYTE	0FFH
GRE00C		EQU	$
		BYTE	0FFH
GRE00D		EQU	$
		BYTE	0FFH
GRE00E		EQU	$
		BYTE	0FFH
GRE00F		EQU	$
		BYTE	0FFH
;
GRE010		EQU	$
		BYTE	00CH,007H,RINGO
		BYTE	00FH,017H,TUBO2
		BYTE	0FFH
GRE011		EQU	$
		BYTE	002H,018H,BARI0
		BYTE	002H,019H,BARI0
		BYTE	013H,00FH,BARI0
		BYTE	013H,010H,BARI0
		BYTE	01CH,018H,BARI0
		BYTE	0FFH
GRE012		EQU	$
		BYTE	007H,001H,BARI0
		BYTE	009H,001H,BARI0
		BYTE	018H,001H,BARI0
		BYTE	01AH,001H,BARI0
		BYTE	0FFH
GRE013		EQU	$
		BYTE	0FFH
GRE014		EQU	$
		BYTE	018H,013H,BARI0
		BYTE	01AH,013H,BARI0
                BYTE	0FFH
GRE015		EQU	$
		BYTE	0FFH
GRE016		EQU	$
		BYTE	0FFH
GRE017		EQU	$
		BYTE	0FFH
GRE018		EQU	$
		BYTE	0FFH
GRE019		EQU	$
		BYTE	018H,00AH+020H,RUPYB
		BYTE	0FFH
GRE01A		EQU	$
      		BYTE	006H,001H,BARI0
      		BYTE	006H,011H,YOSEI
      		BYTE	008H,001H,BARI0
;;;;4/10 YAMADA BYTE	016H,014H,BARI0
;;;;  		BYTE	016H,015H,BARI0
		BYTE	0FFH
GRE01B		EQU	$
		BYTE	013H,017H,RINGO
;
;(01C)
;
;(023)
;
;(024)
		BYTE	002H+020H,011H+020H,BARI0
		BYTE	008H+020H,005H+020H,ESW04
		BYTE	0FFH
GRE01C		EQU	$
		BYTE	0FFH
GRE01D		EQU	$
		BYTE	006H,00BH,RINGO
		BYTE	00CH,00DH,BARI0
		BYTE	00EH,00DH,BARI0
		BYTE	0FFH
GRE01E		EQU	$
		BYTE	0FFH
GRE01F		EQU	$
		BYTE	0FFH
;
GRE020		EQU	$
		BYTE	0FFH
GRE021		EQU	$
		BYTE	0FFH
GRE022		EQU	$
		BYTE	0FFH
GRE023		EQU	$
		BYTE	0FFH
GRE024		EQU	$
		BYTE	0FFH
GRE025		EQU	$
		BYTE	0FFH
GRE026		EQU	$
		BYTE	0FFH
GRE027		EQU	$
		BYTE	0FFH
;
GRE028		EQU	$
		BYTE	0FFH
GRE029		EQU	$
		BYTE	0FFH
GRE02A		EQU	$
		BYTE	0FFH
GRE02B		EQU	$
		BYTE	01EH,009H,BARI0
		BYTE	01EH,00BH,BARI0
		BYTE	0FFH
GRE02C		EQU	$
		BYTE	018H,01EH,BARI0
		BYTE	01AH,01EH,BARI0
		BYTE	01EH,00DH,BARI0
		BYTE	01EH,00FH,BARI0
		BYTE	0FFH
GRE02D		EQU	$
		BYTE	015H,00FH,BARI0
		BYTE	015H,011H,BARI0
		BYTE	015H,013H,BARI0
		BYTE	0FFH
GRE02E		EQU	$
		BYTE	0FFH
GRE02F		EQU	$
		BYTE	0FFH
;
GRE030		EQU	$
		BYTE	0FFH
GRE031		EQU	$
		BYTE	0FFH
GRE032		EQU	$
		BYTE	005H,001H,BARI0
		BYTE	007H,001H,BARI0
		BYTE	009H,01AH,BOMB1
		BYTE	012H,018H,BOSET
		BYTE	0FFH
GRE033		EQU	$
		BYTE	01BH,00AH,BARI0
		BYTE	01BH,00CH,BARI0
		BYTE	0FFH
GRE034		EQU	$
		BYTE	0FFH
GRE035		EQU	$
		BYTE	00CH,002H,BARI0
		BYTE	00EH,002H,BARI0
		BYTE	0FFH
GRE036		EQU	$
		BYTE	0FFH
GRE037		EQU	$
		BYTE	0FFH
;
GRE038		EQU	$
		BYTE	0FFH
GRE039		EQU	$
		BYTE	0FFH
GRE03A		EQU	$
		BYTE	0FFH
GRE03B		EQU	$
		BYTE	0FFH
GRE03C		EQU	$
		BYTE	0FFH
GRE03D		EQU	$
		BYTE	0FFH
GRE03E		EQU	$
		BYTE	0FFH
GRE03F		EQU	$
		BYTE	0FFH
;-- URA
GRE040		EQU	$
GRE041		EQU	$
GRE042		EQU	$
GRE043		EQU	$
GRE044		EQU	$
GRE045		EQU	$
GRE046		EQU	$
GRE047		EQU	$
GRE048		EQU	$
GRE049		EQU	$
GRE04A		EQU	$
GRE04B		EQU	$
GRE04C		EQU	$
GRE04D		EQU	$
GRE04E		EQU	$
GRE04F		EQU	$
GRE050		EQU	$
GRE051		EQU	$
GRE052		EQU	$
GRE053		EQU	$
GRE054		EQU	$
GRE055		EQU	$
GRE056		EQU	$
GRE057		EQU	$
GRE058		EQU	$
GRE059		EQU	$
GRE05A		EQU	$
GRE05B		EQU	$
GRE05C		EQU	$
GRE05D		EQU	$
GRE05E		EQU	$
GRE05F		EQU	$
GRE060		EQU	$
GRE061		EQU	$
GRE062		EQU	$
GRE063		EQU	$
GRE064		EQU	$
GRE065		EQU	$
GRE066		EQU	$
GRE067		EQU	$
GRE068		EQU	$
GRE069		EQU	$
GRE06A		EQU	$
GRE06B		EQU	$
GRE06C		EQU	$
GRE06D		EQU	$
GRE06E		EQU	$
GRE06F		EQU	$
GRE070		EQU	$
GRE071		EQU	$
GRE072		EQU	$
GRE073		EQU	$
GRE074		EQU	$
GRE075		EQU	$
GRE076		EQU	$
GRE077		EQU	$
GRE078		EQU	$
GRE079		EQU	$
GRE07A		EQU	$
GRE07B		EQU	$
GRE07C		EQU	$
GRE07D		EQU	$
GRE07E		EQU	$
GRE07F		EQU	$
		BYTE	0FFH
;-- SPOT-
GRE080		EQU	$
		BYTE	008H,007H,ATARS
		BYTE	00FH,005H,RISU0
		BYTE	00FH,006H,RISU0
		BYTE	00FH,009H,RISU0
		BYTE	016H,002H,TORI0
		BYTE	01DH,009H,TORI0
;
		BYTE	000H+020H,008H,RISU0
		BYTE	005H+020H,007H,TORI0
		BYTE	00BH+020H,00BH,RISU0
		BYTE	012H+020H,004H,RISU0
		BYTE	0FFH
GRE081		EQU	$
;
		BYTE	005H,00FH,ZORA2
		BYTE	007H,01EH,ZORA2
		BYTE	00DH,007H,ZORA2
		BYTE	013H,005H,ZORA2
		BYTE	017H,01EH,ZORA2
		BYTE	01DH,005H,ZORA2
;()
		BYTE	00DH,016H+020H,ZORA2
		BYTE	00FH,017H+020H,ZORA2
		BYTE	015H,016H+020H,ZORA2
		BYTE	016H,01AH+020H,ZORA2
		BYTE	018H,001H+020H,ZORA2
		BYTE	019H,019H+020H,ZORA2
		BYTE	01BH,016H+020H,ZORA2
;
;()
		BYTE	006H+020H,01CH,ZORA2
		BYTE	008H+020H,005H,ZORA2
		BYTE	008H+020H,00AH,ZORA2
		BYTE	00AH+020H,004H,ZORA2
		BYTE	00AH+020H,009H,ZORA2
		BYTE	013H+020H,005H,ZORA2
		BYTE	016H+020H,01CH,ZORA2
		BYTE	018H+020H,006H,ZORA2
		BYTE	01BH+020H,007H,ZORA2
		BYTE	01BH+020H,007H,ZORA2
;
;()
		BYTE	005H+020H,003H+020H,ZORA2
		BYTE	005H+020H,019H+020H,ZORA2
		BYTE	00BH+020H,019H+020H,ZORA2
		BYTE	014H+020H,000H+020H,ZORA2
		BYTE	014H+020H,004H+020H,ZORA2
		BYTE	014H+020H,008H+020H,ZORA2
		BYTE	018H+020H,002H+020H,ZORA2
		BYTE	018H+020H,006H+020H,ZORA2
		BYTE	0FFH
GRE082		EQU	$
GRE083		EQU	$
		BYTE	008H,008H,ZORAB
		BYTE	0FFH
GRE084		EQU	$
GRE085		EQU	$
GRE086		EQU	$
GRE087		EQU	$
GRE088		EQU	$
GRE089		EQU	$
GRE08A		EQU	$
GRE08B		EQU	$
GRE08C		EQU	$
GRE08D		EQU	$
GRE08E		EQU	$
GRE08F		EQU	$
GRE090		EQU	$
GRE091		EQU	$
GRE092		EQU	$
GRE093		EQU	$
GRE094		EQU	$
GRE095		EQU	$
GRE096		EQU	$
GRE097		EQU	$
GRE098		EQU	$
GRE099		EQU	$
GRE09A		EQU	$
GRE09B		EQU	$
GRE09C		EQU	$
GRE09D		EQU	$
GRE09E		EQU	$
GRE09F		EQU	$
GRE0A0		EQU	$
GRE0A1		EQU	$
GRE0A2		EQU	$
GRE0A3		EQU	$
GRE0A4		EQU	$
GRE0A5		EQU	$
GRE0A6		EQU	$
GRE0A7		EQU	$
GRE0A8		EQU	$
GRE0A9		EQU	$
GRE0AA		EQU	$
GRE0AB		EQU	$
GRE0AC		EQU	$
GRE0AD		EQU	$
GRE0AE		EQU	$
GRE0AF		EQU	$
GRE0B0		EQU	$
GRE0B1		EQU	$
GRE0B2		EQU	$
GRE0B3		EQU	$
GRE0B4		EQU	$
GRE0B5		EQU	$
GRE0B6		EQU	$
GRE0B7		EQU	$
GRE0B8		EQU	$
GRE0B9		EQU	$
GRE0BA		EQU	$
GRE0BB		EQU	$
GRE0BC		EQU	$
GRE0BD		EQU	$
GRE0BE		EQU	$
GRE0BF		EQU	$
		BYTE	0FFH
;--- chyuu ban ---
GRE100		EQU	$
		BYTE	00FH,012H,SUKAS
		BYTE	010H,00FH,SHIGE
		BYTE	012H,007H,SUKAS
		BYTE	016H,01FH,SHIGE
		BYTE	01BH,01CH,SUKAS
		BYTE	01EH,00CH,SUKAS
;
;(101)
		BYTE	006H,000H+020H,KINOK
		BYTE	006H,008H+020H,SUKAS
		BYTE	00DH,00BH+020H,SHIGE
		BYTE	00DH,00FH+020H,SHIGE
		BYTE	015H,019H+020H,SUKAS
;
;(108)
		BYTE	005H+020H,007H,SHIGE
		BYTE	005H+020H,01DH,SUKAS
		BYTE	019H+020H,017H,SHIGE
;
;(109)
		BYTE	005H+020H,009H+020H,HACHI
		BYTE	015H+020H,005H+020H,SUKAS
		BYTE	017H+020H,008H+020H,SHIGE
		BYTE	0FFH
GRE101		EQU	$
		BYTE	0FFH
GRE102		EQU	$
		BYTE	013H,00CH,NOKOG
		BYTE	009H,012H,SHIGE
		BYTE	013H,004H,SHIGE
		BYTE	015H,014H,SHIGE
		BYTE	016H,00CH,SHIGE
		BYTE	019H,007H,SHIGE
		BYTE	01AH,00FH,SHIGE
		BYTE	01CH,012H,SHIGE
		BYTE	0FFH
GRE103		EQU	$
		BYTE	0FFH
GRE104		EQU	$
		BYTE	0FFH
GRE105		EQU	$
		BYTE	0FFH
GRE106		EQU	$
		BYTE	0FFH
GRE107		EQU	$
		BYTE	0FFH
GRE108		EQU	$
		BYTE	0FFH
GRE109		EQU	$
		BYTE	0FFH
GRE10A		EQU	$
		BYTE	008H,007H,HEYA1
		BYTE	009H,00EH,HEYA1
		BYTE	00DH,010H,HEIS0
		BYTE	00DH,012H,HEIS0
		BYTE	00DH,014H,HEIS0
		BYTE	013H,00EH,SHIGE
		BYTE	013H,00FH,SHIGE
		BYTE	0FFH
GRE10B		EQU	$
		BYTE	0FFH
GRE10C		EQU	$
		BYTE	0FFH
GRE10D		EQU	$
		BYTE	0FFH
GRE10E		EQU	$
		BYTE	0FFH
GRE10F		EQU	$
		BYTE	00AH,016H,OCTA1
		BYTE	00BH,01AH,OCTA1
		BYTE	00EH,019H,OCTA1
		BYTE	00FH,008H,ZORAS
		BYTE	012H,018H,OCTA1
		BYTE	013H,012H,OCTA1
		BYTE	013H,016H,OCTA1
		BYTE	0FFH
GRE110		EQU	$
		BYTE	00CH,007H,RINGO
		BYTE	00CH,005H,HEIS0
		BYTE	00FH,017H,TUBO2
		BYTE	018H,008H,HEIS0
		BYTE	0FFH
GRE111		EQU	$
		BYTE	00CH,017H,HEIS0
		BYTE	00DH,01AH,HEIS0
		BYTE	00FH,018H,HEIS0
		BYTE	017H,008H,NIWAT
		BYTE	0FFH
GRE112		EQU	$
		BYTE	006H,009H,HEIS1
		BYTE	010H,00CH,HEIS3
		BYTE	015H,015H,HEIS3
		BYTE	018H,017H,HEIS3
		BYTE	0FFH
GRE113		EQU	$
		BYTE	00AH,018H,HACHI		;TEST
		BYTE	0FFH
GRE114		EQU	$
		BYTE	019H,010H,HEIS2
		BYTE	019H,00FH,POLIW
		BYTE	0FFH
GRE115		EQU	$
		BYTE	00EH,016H,HEIS3
		BYTE	011H,005H,HEIS1
		BYTE	018H,009H,HEIS1
		BYTE	01AH,005H,HEIS1
		BYTE	0FFH
GRE116		EQU	$
		BYTE	00AH,00DH,NYORO
		BYTE	00CH,00DH,NYORO
		BYTE	017H,010H,MAJOO
		BYTE	019H,006H,NYORO
;	TEST
		BYTE	017H,018H,KINOK
		BYTE	017H,019H,KINOK
		BYTE	017H,01AH,KINOK
		BYTE	017H,01BH,KINOK
		BYTE	0FFH
GRE117		EQU	$
		BYTE	007H,017H,NYORO
		BYTE	009H,017H,NYORO
		BYTE	00BH,017H,NYORO
		BYTE	007H,019H,NYORO
		BYTE	009H,019H,NYORO
		BYTE	00BH,019H,NYORO
		BYTE	00AH,00EH,NYORO
		BYTE	00CH,00EH,NYORO
		BYTE	015H,018H,NYORO
		BYTE	016H,007H,NYORO
		BYTE	0FFH
GRE118		EQU	$
		BYTE	001H,008H,HESET
;;		BYTE	005H,012H,HESET
		BYTE	005H,01FH,HESET
		BYTE	00BH,019H,PENKI
		BYTE	016H,00CH,DOOOR
		BYTE	019H,00FH,BABA1
		BYTE	019H,019H,SYOBY
;;		BYTE	01AH,01FH,HESET
		BYTE	01FH,005H,HESET
;;		BYTE	01FH,012H,HESET
;
;(119)
		BYTE	00CH,007H+020H,JIJI2
		BYTE	018H,00AH+020H,RUPYB
		BYTE	01AH,014H+020H,DOOOR
		BYTE	01CH,013H+020H,ONNAA
;
;(120)
		BYTE	00AH+020H,00EH,BOUSI
		BYTE	00AH+020H,01AH,NIWAT
		BYTE	00BH+020H,01BH,NIWAT
		BYTE	00EH+020H,017H,BABAA
;
;(121)
		BYTE	00BH+020H,003H+020H,JIJII
		BYTE	019H+020H,008H+020H,DOOOR
		BYTE	01AH+020H,009H+020H,HIGEE
		BYTE	0FFH
GRE119		EQU	$
		BYTE	0FFH
GRE11A		EQU	$
		BYTE	006H,00DH,HEIS0
      		BYTE	006H,011H,YOSEI
		BYTE	00DH,012H,HEIS0
		BYTE	010H,006H,HEIS0
		BYTE	0FFH
GRE11B		EQU	$
		BYTE	00DH,006H,HEIS2
		BYTE	00EH,00AH,HEYA3
		BYTE	010H,00AH,HEYA3
		BYTE	012H,00AH,HEYA3
		BYTE	019H,00EH,HEBO0
		BYTE	014H,014H,ZAKO0
		BYTE	013H,017H,RINGO
		BYTE	01AH,01FH,ZAKO0
;
;(11C)
		BYTE	00EH,011H+020H,HEBO0
		BYTE	019H,011H+020H,HEBO0
		BYTE	015H,00BH+020H,HEIS2
		BYTE	01AH,000H+020H,ZAKO0
;
;(123)
		BYTE	005H+020H,00EH,HEBO0
		BYTE	008H+020H,008H,ZAKO0
		BYTE	000H+020H,01FH,ZAKO0
;
;(124)
		BYTE	000H+020H,000H+020H,ZAKO0
		BYTE	008H+020H,005H+020H,ESW04
		BYTE	00DH+020H,006H+020H,HEIS1
		BYTE	012H+020H,001H+020H,TEKU0
		BYTE	0FFH
GRE11C		EQU	$
		BYTE	0FFH
GRE11D		EQU	$
		BYTE	006H,00BH,RINGO
		BYTE	009H,01BH,HEYA0
		BYTE	00CH,01BH,HEYA0
		BYTE	00FH,01BH,HEYA0
		BYTE	011H,00AH,HEIS0
		BYTE	012H,005H,HEIS0
		BYTE	0FFH
GRE11E		EQU	$
		BYTE	003H,003H,DOZOO
		BYTE	007H,013H,DOZOO
		BYTE	01AH,019H,DOZOO
		BYTE	01DH,00DH,DOZOO
;
;(11F)
		BYTE	009H,010H+020H,DOZOO
		BYTE	009H,013H+020H,DOZOO
		BYTE	009H,017H+020H,DOZOO
		BYTE	009H,01AH+020H,DOZOO
		BYTE	010H,013H+020H,DOZOO
		BYTE	010H,017H+020H,DOZOO
		BYTE	017H,00FH+020H,DOZOO
		BYTE	017H,016H+020H,DOZOO
		BYTE	017H,01BH+020H,DOZOO
;
;(126)
		BYTE	007H+020H,009H,DOZOO
		BYTE	007H+020H,00CH,DOZOO
		BYTE	007H+020H,00FH,DOZOO
		BYTE	005H+020H,019H,DOZOO
		BYTE	012H+020H,013H,DOZOO
		BYTE	012H+020H,018H,DOZOO
;
;(127)
		BYTE	009H+020H,008H+020H,DOZOO
		BYTE	008H+020H,012H+020H,DOZOO
		BYTE	009H+020H,01AH+020H,DOZOO
		BYTE	00CH+020H,01AH+020H,DOZOO
		BYTE	00FH+020H,01AH+020H,DOZOO
		BYTE	012H+020H,01AH+020H,DOZOO
		BYTE	015H+020H,01AH+020H,DOZOO
		BYTE	01BH+020H,017H+020H,DOZOO
		BYTE	0FFH
GRE11F		EQU	$
		BYTE	0FFH
GRE120		EQU	$
		BYTE	0FFH
GRE121		EQU	$
		BYTE	0FFH
GRE122		EQU	$
		BYTE	00DH,008H,HEIS3
		BYTE	010H,011H,NIWAT
		BYTE	012H,00DH,NIWAT
		BYTE	013H,00BH,NIWAT
		BYTE	013H,010H,NIWAT
		BYTE	015H,00EH,NIWAT
		BYTE	015H,009H,HEIS1
		BYTE	0FFH
GRE123		EQU	$
		BYTE	0FFH
GRE124		EQU	$
		BYTE	0FFH
GRE125		EQU	$
		BYTE	008H,009H,HEIS3
		BYTE	00AH,00CH,HEIS3
		BYTE	00FH,007H,HEIS3
		BYTE	013H,013H,ZORAS
		BYTE	0FFH
GRE126		EQU	$
		BYTE	0FFH
GRE127		EQU	$
		BYTE	0FFH
GRE128		EQU	$
; '91/ 4/25 THU::		BYTE	011H,011H,BWAKO
		BYTE	018H,00BH,HEIS0
		BYTE	019H,00CH,HEIS0
		BYTE	018H,010H,HEIS0
		BYTE	0FFH
GRE129		EQU	$
		BYTE	00BH,00BH,HEIS0
		BYTE	015H,016H,HEIS3
		BYTE	0FFH
GRE12A		EQU	$
		BYTE	0FFH
GRE12B		EQU	$
		BYTE	011H,014H,HEIS0
		BYTE	015H,014H,HEIS0
		BYTE	019H,00EH,HEIS0
		BYTE	0FFH
GRE12C		EQU	$
		BYTE	008H,016H,HEIS0
		BYTE	00EH,018H,HEIS0
		BYTE	013H,019H,HEIS0
;;;IRAN !!		BYTE	019H,008H,HEIS3
		BYTE	0FFH
GRE12D		EQU	$
		BYTE	006H,008H,HEIS3
		BYTE	009H,012H,HEIS0
		BYTE	010H,010H,HEYA0
		BYTE	016H,012H,HEIS0
		BYTE	0FFH
GRE12E		EQU	$
		BYTE	009H,00FH,OCTA1
		BYTE	00AH,015H,HEYA1
		BYTE	00DH,015H,HEYA0
		BYTE	013H,005H,ZORAS
		BYTE	016H,01AH,OCTA1
		BYTE	0FFH
GRE12F		EQU	$
		BYTE	00BH,00EH,DOZOO
		BYTE	00BH,012H,DOZOO
		BYTE	017H,006H,DOZOO
		BYTE	017H,009H,DOZOO
		BYTE	017H,00CH,DOZOO
		BYTE	01AH,008H,DOZOO
		BYTE	01AH,00AH,DOZOO
		BYTE	015H,017H,DOZOO
		BYTE	0FFH
GRE130		EQU	$
		BYTE	014H,00EH,SEKMV
		BYTE	014H,012H,SEKMV
		BYTE	014H,016H,SEKMV
		BYTE	018H,00EH,SEKMV
		BYTE	018H,016H,SEKMV
		BYTE	01CH,00EH,SEKMV
		BYTE	01CH,016H,SEKMV
;
;(131)
		BYTE	019H,007H+020H,SUNA0
		BYTE	01AH,00FH+020H,SUNA0
		BYTE	01FH,00AH+020H,SUNA0
;
;(138)
		BYTE	005H+020H,00DH,SUNA0
		BYTE	006H+020H,010H,SUNA0
		BYTE	006H+020H,01EH,SUNA0
		BYTE	00CH+020H,019H,SUNA0
		BYTE	012H+020H,009H,SUNA0
		BYTE	015H+020H,00CH,SUNA0
		BYTE	017H+020H,014H,SUNA0
;
;(139)
		BYTE	004H+020H,002H+020H,SUNA0
		BYTE	008H+020H,00CH+020H,SUNA0
		BYTE	010H+020H,010H+020H,SUNA0
		BYTE	012H+020H,003H+020H,SUNA0
		BYTE	0FFH
GRE131		EQU	$
		BYTE	0FFH
GRE132		EQU	$
		BYTE	00BH,012H,HEIS1
		BYTE	00DH,018H,HEIS1
		BYTE	009H,01AH,BOMB1
		BYTE	010H,013H,HEIS1
		BYTE	012H,018H,BOSET
		BYTE	018H,00BH,ISHI0
		BYTE	0FFH
GRE133		EQU	$
		BYTE	009H,009H,HEIS0
		BYTE	00BH,011H,OCTA1
		BYTE	00EH,009H,HEYA0
		BYTE	010H,015H,ZORAS
		BYTE	017H,016H,OCTA1
		BYTE	019H,01AH,OCTA1
		BYTE	0FFH
GRE134		EQU	$
		BYTE	00AH,00FH,USAG0
		BYTE	00DH,00FH,HEYA1
		BYTE	00EH,01AH,SHIGE
		BYTE	015H,012H,USAG0
		BYTE	016H,00CH,USAG0
		BYTE	016H,015H,USAG0
		BYTE	017H,010H,HEYA1
		BYTE	0FFH
GRE135		EQU	$
		BYTE	008H,00CH,OCTA1
		BYTE	00CH,008H,HEYA0
		BYTE	011H,010H,ZORAS
		BYTE	014H,016H,NYORO
		BYTE	015H,017H,NYORO
		BYTE	014H,018H,NYORO
		BYTE	015H,019H,NYORO
		BYTE	014H,01AH,NYORO
		BYTE	015H,01BH,NYORO
		BYTE	01DH,011H,ZORAS
;
;(136)
		BYTE	00DH,006H+020H,ZORAS
		BYTE	01EH,004H+020H,NYORO
		BYTE	01EH,005H+020H,NYORO
		BYTE	01EH,00DH+020H,NYORO
		BYTE	01EH,00EH+020H,NYORO
;
;(13D)
		BYTE	014H+020H,006H,OCTA1
		BYTE	00DH+020H,01AH,ZORAS
		BYTE	016H+020H,013H,ZORAS
		BYTE	018H+020H,00DH,OCTA1
		BYTE	01AH+020H,00FH,OCTA1
		BYTE	01AH+020H,018H,NYORO
		BYTE	01BH+020H,017H,NYORO
		BYTE	01BH+020H,019H,NYORO
;
;(13E)
		BYTE	008H+020H,004H+020H,ZORAS
		BYTE	010H+020H,018H+020H,ZORAS
		BYTE	015H+020H,00EH+020H,NYORO
		BYTE	015H+020H,00FH+020H,NYORO
		BYTE	015H+020H,010H+020H,NYORO
		BYTE	016H+020H,001H+020H,ZORAS
		BYTE	016H+020H,00AH+020H,OCTA1
		BYTE	0FFH
GRE136		EQU	$
		BYTE	0FFH
GRE137		EQU	$
		BYTE	008H,00EH,OCTA1
		BYTE	00AH,00EH,OCTA1
		BYTE	00CH,017H,OCTA1
		BYTE	010H,014H,OCTA1
		BYTE	012H,016H,OCTA1
		BYTE	013H,018H,OCTA1
		BYTE	015H,00FH,ZORAS
		BYTE	017H,00AH,OCTA1
		BYTE	018H,019H,OCTA1
		BYTE	0FFH
GRE138		EQU	$
		BYTE	0FFH
GRE139		EQU	$
		BYTE	0FFH
GRE13A		EQU	$
		BYTE	008H,003H,ISHI0
		BYTE	00AH,00BH,ISHI0
		BYTE	008H,012H,ISHI0
		BYTE	007H,016H,ISHI0
		BYTE	00BH,014H,ISHI0
		BYTE	00EH,018H,ISHI0
		BYTE	017H,010H,ISHI0
		BYTE	017H,017H,ISHI0
		BYTE	0FFH
GRE13B		EQU	$
		BYTE	008H,012H,HEYA1
		BYTE	00CH,00DH,HEYA0
		BYTE	011H,007H,HEYA1
		BYTE	010H,00FH,USAG0
		BYTE	013H,00DH,USAG0
		BYTE	011H,00EH,USAG0
		BYTE	013H,014H,HEYA0
		BYTE	0FFH
GRE13C		EQU	$
		BYTE	004H,00DH,USAG0
		BYTE	004H,00EH,USAG0
		BYTE	009H,007H,HEYA1
		BYTE	00FH,009H,ISHI0
		BYTE	010H,013H,NYORO
		BYTE	012H,013H,NYORO
		BYTE	014H,013H,NYORO
		BYTE	016H,013H,NYORO
		BYTE	016H,017H,OCTBL
		BYTE	0FFH
GRE13D		EQU	$
		BYTE	0FFH
GRE13E		EQU	$
		BYTE	0FFH
GRE13F		EQU	$
		BYTE	004H,013H,USAG0
		BYTE	006H,016H,OCTA1
		BYTE	00EH,006H,ZORAS
		BYTE	012H,00DH,OCTA1
		BYTE	014H,011H,OCTA1
		BYTE	016H,011H,OCTBL
		BYTE	018H,00EH,OCTA1
		BYTE	0FFH
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%		Enemy data      			      %		
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
EDADAD		EQU	$
		WORD	ED00,ED01,ED02,ED03,ED04,ED05,ED06,ED07
		WORD	ED08,ED09,ED0A,ED0B,ED0C,ED0D,ED0E,ED0F
		WORD	ED10,ED11,ED12,ED13,ED14,ED15,ED16,ED17
		WORD	ED18,ED19,ED1A,ED1B,ED1C,ED1D,ED1E,ED1F
		WORD	ED20,ED21,ED22,ED23,ED24,ED25,ED26,ED27
		WORD	ED28,ED29,ED2A,ED2B,ED2C,ED2D,ED2E,ED2F
		WORD	ED30,ED31,ED32,ED33,ED34,ED35,ED36,ED37
		WORD	ED38,ED39,ED3A,ED3B,ED3C,ED3D,ED3E,ED3F
		WORD	ED40,ED41,ED42,ED43,ED44,ED45,ED46,ED47
		WORD	ED48,ED49,ED4A,ED4B,ED4C,ED4D,ED4E,ED4F
		WORD	ED50,ED51,ED52,ED53,ED54,ED55,ED56,ED57
		WORD	ED58,ED59,ED5A,ED5B,ED5C,ED5D,ED5E,ED5F
		WORD	ED60,ED61,ED62,ED63,ED64,ED65,ED66,ED67
		WORD	ED68,ED69,ED6A,ED6B,ED6C,ED6D,ED6E,ED6F
		WORD	ED70,ED71,ED72,ED73,ED74,ED75,ED76,ED77
		WORD	ED78,ED79,ED7A,ED7B,ED7C,ED7D,ED7E,ED7F
		WORD	ED80,ED81,ED82,ED83,ED84,ED85,ED86,ED87
		WORD	ED88,ED89,ED8A,ED8B,ED8C,ED8D,ED8E,ED8F
		WORD	ED90,ED91,ED92,ED93,ED94,ED95,ED96,ED97
		WORD	ED98,ED99,ED9A,ED9B,ED9C,ED9D,ED9E,ED9F
		WORD	EDA0,EDA1,EDA2,EDA3,EDA4,EDA5,EDA6,EDA7
		WORD	EDA8,EDA9,EDAA,EDAB,EDAC,EDAD,EDAE,EDAF
		WORD	EDB0,EDB1,EDB2,EDB3,EDB4,EDB5,EDB6,EDB7
		WORD	EDB8,EDB9,EDBA,EDBB,EDBC,EDBD,EDBE,EDBF
		WORD	EDC0,EDC1,EDC2,EDC3,EDC4,EDC5,EDC6,EDC7
		WORD	EDC8,EDC9,EDCA,EDCB,EDCC,EDCD,EDCE,EDCF
		WORD	EDD0,EDD1,EDD2,EDD3,EDD4,EDD5,EDD6,EDD7
		WORD	EDD8,EDD9,EDDA,EDDB,EDDC,EDDD,EDDE,EDDF
		WORD	EDE0,EDE1,EDE2,EDE3,EDE4,EDE5,EDE6,EDE7
		WORD	EDE8,EDE9,EDEA,EDEB,EDEC,EDED,EDEE,EDEF
		WORD	EDF0,EDF1,EDF2,EDF3,EDF4,EDF5,EDF6,EDF7
		WORD	EDF8,EDF9,EDFA,EDFB,EDFC,EDFD,EDFE,EDFF
;
		WORD	E100,E101,E102,E103,E104,E105,E106,E107
		WORD	E108,E109,E10A,E10B,E10C,E10D,E10E,E10F
		WORD	E110,E111,E112,E113,E114,E115,E116,E117
		WORD	E118,E119,E11A,E11B,E11C,E11D,E11E,E11F
		WORD	E120,E121,E122,E123,E124,E125,E126,E127
		WORD	E128,E129,E12A,E12B,E12C,E12D,E12E,E12F
		WORD	E130,E131,E132,E133,E134,E135,E136,E137
		WORD	E138,E139,E13A,E13B,E13C,E13D,E13E,E13F
		WORD	E140,E141,E142,E143,E144,E145,E146,E147
		WORD	E148,E149,E14A,E14B,E14C,E14D,E14E,E14F
		WORD	E150,E151,E152,E153,E154,E155,E156,E157
		WORD	E158,E159,E15A,E15B,E15C,E15D,E15E,E15F
		WORD	E160,E161,E162,E163,E164,E165,E166,E167
		WORD	E168,E169,E16A,E16B,E16C,E16D,E16E,E16F
		WORD	E170,E171,E172,E173,E174,E175,E176,E177
		WORD	E178,E179,E17A,E17B,E17C,E17D,E17E,E17F
;===========================================
;-- For heishi move paturn !! --
RIGT		EQU	00100000B	;--> <-- Ittsutari kitari 
LEFT		EQU	01000000B	;<-- -->
DOWN		EQU	01100000B	; V ^
UPUP		EQU	10000000B	; ^ V
KAB0		EQU	10100000B	; Kabe R mawari !
KAB1		EQU	11000000B	; Kabe L mawari !
;
HAB1		EQU	00000000B	; Ittsutari kitari  Move range 1
HAB2		EQU	00100000B	;     "      2
HAB3		EQU	01000000B	;     "      3
HAB4		EQU	01100000B	;     "      4
;
KABR		EQU	00000000B	; Kabe mawari first muki R 
KABL		EQU	00100000B	;	  "		 L
KABD		EQU	01000000B	;	  "		 D
KABU		EQU	01100000B	;	  "		 U
;- - - - - - - - - - - - - -
ED00		EQU	$
		BYTE    000H
		BYTE	01BH,017H,NEZU0
		BYTE	0FFH
ED01		EQU	$
		BYTE	000H
		BYTE	005H+080H,00EH,NEZU0
		BYTE	0FEH,000H,KAGI0
		BYTE	007H+080H,011H,NEZU0
		BYTE	007H+080H,016H,NEZU0
		BYTE	0FFH
ED02		EQU	$
		BYTE	000H
		BYTE	0FFH
ED03		EQU	$
		BYTE	000H
		BYTE	0FFH
ED04		EQU	$
		BYTE	000H
		BYTE	015H,004H,NOMOS
		BYTE	015H,007H,NOMOS
		BYTE	015H,00AH,NOMOS
		BYTE	018H,004H,NOMOS
		BYTE	018H,007H,NOMOS
                BYTE	018H,00AH,NOMOS
;;BYTE	018H,008H,NOMOS
;;BYTE	018H,00AH,NOMOS
		BYTE	0FFH
ED05		EQU	$
		BYTE	000H
; '91/ 4/16 TUE::		BYTE	005H,007H,MANY1
; '91/ 4/16 TUE::		BYTE	005H,00BH,REBA1
; '91/ 4/16 TUE::		BYTE	008H,00BH,MANY1
; '91/ 4/16 TUE::		BYTE	009H,005H,MANY1
		BYTE	0FFH
ED06		EQU	$
		BYTE	000H
		BYTE	0FFH
ED07		EQU	$
		BYTE	000H
		BYTE	005H,009H,ZOOL2
		BYTE	005H,00BH,REBA1
		BYTE	009H,00AH,ZOOL2
		BYTE	014H,014H,ZOOL2
		BYTE	014H,019H,ZOOL2
		BYTE	016H,006H,ZOOL2
		BYTE	0FFH
ED08		EQU	$
		BYTE	000H
		BYTE	006H,006H,AMENB
		BYTE	006H,00FH,KAGI1
		BYTE	006H,016H,AMENB
		BYTE	006H,019H,AMENB
		BYTE	009H,006H,AMENB
		BYTE	009H,009H,AMENB
		BYTE	009H,016H,AMENB
		BYTE	009H,019H,AMENB
		BYTE	00BH,00FH,ZOOL2
		BYTE	012H,010H,ZOOL2
		BYTE	01AH,00FH,ZOOL2
		BYTE	0FFH
ED09		EQU	$
		BYTE	000H
		BYTE	013H,019H,REBA1
		BYTE	0FFH
ED0A		EQU	$
		BYTE	000H
;;;		BYTE	017H,00BH,ESW02
		BYTE	0FFH
ED0B		EQU	$
		BYTE	000H
		BYTE	0FFH
ED0C		EQU	$
		BYTE	000H
		BYTE	0FFH
ED0D		EQU	$
		BYTE	000H
		BYTE	0FFH
ED0E		EQU	$
		BYTE	000H
		BYTE	016H,009H,ZOOL2
		BYTE	018H,007H,ZOOL2
		BYTE	01AH,009H,ZOOL2
		BYTE	0FEH,000H,KAGI0
		BYTE	0FFH
ED0F		EQU	$
		BYTE	000H
		BYTE	0FFH
ED10		EQU	$
		BYTE	000H
		BYTE	00AH,017H,NEZU0
		BYTE	00AH,018H,NEZU0
		BYTE	011H,01CH,NEZU0
		BYTE	012H,01CH,NEZU0
		BYTE	016H,017H,KOMO0
		BYTE	016H,018H,KOMO0
		BYTE	016H,01AH,NEZU0
		BYTE	016H,01BH,NEZU0
		BYTE	0FFH
ED11		EQU	$
		BYTE	000H
		BYTE    0FFH
ED12		EQU	$
		BYTE	000H
		BYTE	0FFH
ED13		EQU	$
		BYTE	000H
		BYTE	0FFH
ED14		EQU	$
		BYTE	000H
		BYTE	005H,007H,MEDAM
		BYTE	0FEH,000H,KAGI0
		BYTE	007H,007H,MEDAM
		BYTE	00BH,008H,HANA0
		BYTE	00CH,007H,HANA0
		BYTE	00CH,008H,HANA0
		BYTE	00DH,007H,HANA0
		BYTE	00DH,008H,HANA0
		BYTE	0FFH
ED15		EQU	$
		BYTE	000H
; '91/ 4/12		BYTE	018H,008H,ESW01
		BYTE	005H,009H,ZOOL2
		BYTE	008H,015H,MOTS0
		BYTE	00BH,017H,MOTS0
		BYTE	013H,01BH,REBA1
		BYTE	0FFH
ED16		EQU	$
		BYTE	000H
		BYTE	004H,00AH,ZOOL2
		BYTE	006H,006H,AMENB
		BYTE	008H,01CH,ZOOL2
		BYTE	00BH,007H,AMENB
		BYTE	00BH+80H,019H,AMENB
		BYTE	00DH,01CH,ZOOL2
		BYTE	011H,008H,AMENB
		BYTE	012H,01CH,ZOOL2
		BYTE	014H+80H,018H,AMENB
		BYTE	016H,009H,AMENB
		BYTE	0FFH
ED17		EQU	$
		BYTE	000H
; '91/ 4/12		BYTE	007H,01CH,ESW01
		BYTE	005H,007H,ZOOL1
		BYTE	005H,00BH,REBA1
		BYTE	006H,010H,KAGI0
		BYTE	007H,019H,ZOOL2
		BYTE	008H,00BH,ZOOL1
		BYTE	009H,014H,ZOOL2
		BYTE	0FFH
ED18		EQU	$
		BYTE	000H
		BYTE	0FFH
ED19		EQU	$
		BYTE	000H
		BYTE	006H,003H,MOTS1
		BYTE	007H,013H,MOTS1
		BYTE	007H,016H,MOTS1
		BYTE	0FEH,000H,KAGI0
		BYTE	008H,01CH,MOTS1
		BYTE	013H,01CH,MOTS1
		BYTE	019H,013H,MOTS1
		BYTE	019H,019H,MOTS1
		BYTE	01AH,003H,MOTS1
		BYTE	0FFH
ED1A		EQU	$
		BYTE	000H
		BYTE	006H,00AH,MOTS1
		BYTE	006H,00EH,MOTS1
		BYTE	006H,012H,MOTS1
		BYTE	006H,016H,MOTS1
		BYTE	00AH,00AH,MOTS1
		BYTE	00AH,00EH,MOTS1
		BYTE	00AH,012H,MOTS1
		BYTE	00AH,016H,MOTS1
		BYTE	015H,00BH,SEKZ4
		BYTE	015H,01BH,SEKZ4
		BYTE	016H,018H,MOTS1
		BYTE	018H,017H,MOTS1
		BYTE	01AH,018H,MOTS1
		BYTE	0FFH
ED1B		EQU	$
		BYTE	000H
		BYTE	0FFH
ED1C		EQU	$
		BYTE	000H
		BYTE	0FFH
ED1D		EQU	$
		BYTE	000H
		BYTE	010H,01BH,ESW01
		BYTE	0FFH
ED1E		EQU	$
		BYTE	000H
		BYTE	007H,016H,ZOOL2
		BYTE	007H,019H,ZOOL2
		BYTE	009H,015H,ZOOL2
		BYTE	009H,01AH,ZOOL2
		BYTE	019H,007H,ZOOL2
		BYTE	01BH,008H,ZOOL2
		BYTE	0FFH
ED1F		EQU	$
		BYTE	000H
		BYTE	016H,006H,ZOOL2
		BYTE	016H,00AH,ZOOL2
		BYTE	01AH,006H,ZOOL2
		BYTE	01AH,00AH,ZOOL2
		BYTE	0FFH
ED20		EQU	$
	        BYTE    000H
	        BYTE    008H,017H,KOMO0
	        BYTE    008H,018H,KOMO0
	        BYTE    00CH,014H,KOMO0
	        BYTE    011H,005H,NEZU0
		BYTE	0FEH,000H,KAGI0
	        BYTE    011H,013H,KOMO0
	        BYTE    012H,015H,KOMO0
	        BYTE    014H,015H,KOMO0
	        BYTE    016H,014H,KOMO0
	        BYTE    017H,016H,KOMO0
	        BYTE    018H,013H,NEZU0
	        BYTE    018H,018H,KOMO0
	        BYTE    018H,019H,NEZU0
		BYTE	0FFH
ED21		EQU	$
	        BYTE    000H
	        BYTE    014H,009H,NEZU0
	        BYTE    014H,015H,NEZU0
	        BYTE    014H,016H,NEZU0
	        BYTE    014H,018H,KOMO0
	        BYTE    015H,00FH,KOMO0
	        BYTE    015H,010H,KOMO0
	        BYTE    017H,010H,NEZU0
	        BYTE    018H,00DH,NEZU0
	        BYTE    01CH,00AH,NEZU0
	        BYTE    01CH,013H,NEZU0
		BYTE	0FFH
ED22		EQU	$
		BYTE	000H
		BYTE	014H,004H,NEZU0
		BYTE	014H,006H,NEZU0
		BYTE	014H,008H,NEZU0
		BYTE	014H,00AH,NEZU0
		BYTE	014H,011H,NEZU0
		BYTE	014H,012H,NEZU0
		BYTE	015H,011H,NEZU0
		BYTE	015H,012H,NEZU0
		BYTE	018H,009H,NEZU0
		BYTE	01CH,00CH,NEZU0
		BYTE	01CH,012H,NEZU0
		BYTE	0FFH
ED23		EQU	$
		BYTE	000H
		BYTE	010H,018H,ESW01
		BYTE	0FFH
ED24		EQU	$
		BYTE	000H
		BYTE	015H,00AH,MEDAM
		BYTE	016H,007H,BABUL
		BYTE	017H,009H,HANA0
		BYTE	018H,00BH,MEDAM
		BYTE	019H,008H,HANA0
		BYTE	01AH,009H,HANA0
		BYTE	01BH,008H,BABUL
		BYTE	01BH,00BH,HANA0
		BYTE	0FFH
ED25		EQU	$
		BYTE	000H
; '91/ 4/12 		BYTE	010H,00AH,ESW01
		BYTE	004H,01AH,ZOOL2
		BYTE	015H,01AH,AMENB
		BYTE	016H,010H,AMENB
		BYTE	016H,012H,AMENB
		BYTE	018H,018H,AMENB
		BYTE	019H,014H,AMENB
		BYTE	01AH,01BH,AMENB
		BYTE	01BH,00FH,AMENB
		BYTE	0FFH
ED26		EQU	$
		BYTE	000H
		BYTE	005H,007H,ZOOL2
		BYTE	005H+080H,00BH,AMENB
		BYTE	005H+080H,017H,AMENB
		BYTE	009H+080H,012H,AMENB
		BYTE	00FH+080H,00BH,AMENB
		BYTE	00FH+080H,00FH,AMENB
		BYTE	010H+080H,012H,AMENB
		BYTE	01AH+080H,00AH,AMENB
		BYTE	0FFH
ED27		EQU	$
		BYTE	000H
		BYTE	006H,01AH,ZOOL2
		BYTE	0FFH
ED28		EQU	$
		BYTE	000H
		BYTE	007H,00EH,AMENB
		BYTE	00BH,00FH,AMENB
		BYTE	00EH,011H,AMENB
		BYTE	0FFH
ED29		EQU	$
		BYTE	000H
		BYTE	0FFH
ED2A		EQU	$
		BYTE	000H
		BYTE	006H+080H,005H,MOTS1
		BYTE	008H,013H,SEKZ4
		BYTE	008H,019H,SEKZ4
		BYTE	00BH,018H,MOTS1
		BYTE	00DH,016H,SEKZ4
		BYTE	00EH+080H,007H,MOTS1
		BYTE	010H,018H,MOTS1
		BYTE	012H,013H,SEKZ4
		BYTE	015H,01AH,MOTS1
		BYTE	017H+080H,009H,MOTS1
		BYTE	017H,016H,SEKZ4
		BYTE	017H,019H,SEKZ4
		BYTE	0FFH
ED2B		EQU	$
		BYTE	000H
		BYTE	008H,007H,MOTS1
		BYTE	00AH,00AH,MOTS1
		BYTE	00BH,00DH,MOTS1
		BYTE	00BH,00EH,MOTS1
		BYTE	00CH,007H,MOTS1
		BYTE	014H,010H,MOTS1
		BYTE	015H,017H,MOTS1
		BYTE	017H,00EH,MOTS1
		BYTE	017H,010H,MOTS1
		BYTE	018H,019H,MOTS1
		BYTE	01CH,015H,MOTS1
		BYTE	01CH,017H,MOTS1
		BYTE	0FFH
ED2C		EQU	$
		BYTE	000H
		BYTE	006H+080H,009H,MOTS1
		BYTE	006H,019H,MOTS1
		BYTE	007H,01AH,MOTS1
		BYTE	008H+080H,009H,MOTS1
		BYTE	008H,01BH,MOTS1
		BYTE	009H,016H,MOTS1
		BYTE	016H+080H,00DH,MOTS1
		BYTE	016H+080H,00FH,MOTS1
		BYTE	019H,01BH,MOTS1
		BYTE	01AH+080H,00DH,MOTS1
		BYTE	01AH+080H,00FH,MOTS1
		BYTE	01BH,01BH,MOTS1
		BYTE	0FFH
ED2D		EQU	$
		BYTE	000H
		BYTE	018H,01CH,ESW01
		BYTE	0FFH
ED2E		EQU	$
		BYTE	000H
		BYTE	005H,014H,ZOOL2
		BYTE	006H,01BH,ZOOL2
		BYTE	00AH,014H,MOTS0
		BYTE	00AH,017H,ZOOL2
		BYTE	00BH,01AH,ZOOL2
		BYTE	0FFH
ED2F		EQU	$
		BYTE	000H
		BYTE	005H,017H,ESW01
		BYTE	0FFH
ED30		EQU	$
		BYTE	000H
		BYTE	0FFH
ED31		EQU	$
		BYTE	000H
		BYTE	00AH,00FH,NEZU0
		BYTE	00AH,010H,NEZU0
;
		BYTE	017H,00AH,ESW12
		BYTE	017H,015H,ESW02
;
		BYTE	018H,009H,NEZU0
		BYTE	018H,00AH,NEZU0
		BYTE	018H,014H,NEZU0
		BYTE	018H,015H,NEZU0
		BYTE	018H,016H,NEZU0
		BYTE	019H,009H,NEZU0
		BYTE	01AH,00DH,NEZU0
		BYTE	01AH,012H,NEZU0
		BYTE	01CH,013H,NEZU0
		BYTE	0FFH
ED32		EQU	$
		BYTE	000H
		BYTE	00DH,00AH,KOMO0
		BYTE	00DH,00BH,KOMO0
		BYTE	00DH,00FH,HEBI0
		BYTE	00DH,013H,KOMO0
		BYTE	00EH,00DH,HEBI0
		BYTE	00EH,010H,HEBI0
		BYTE	00FH,012H,HEBI0
		BYTE	0FFH
ED33		EQU	$
		BYTE	000H
		BYTE	0FFH
ED34		EQU	$
		BYTE	000H
		BYTE	00BH+080H,012H,SKST1
		BYTE	00CH+080H,00DH,SKST1
		BYTE	00DH+080H,00FH,HANA1
		BYTE	00DH+080H,010H,HANA1
		BYTE	00FH+080H,00BH,HANA0
		BYTE	00FH+080H,014H,HANA0
		BYTE	010H+080H,00AH,HANA0
		BYTE	010H+080H,00DH,SKST1
		BYTE	010H+080H,015H,HANA0
		BYTE	011H+080H,013H,SKST1
		BYTE	0FFH
ED35		EQU	$
		BYTE	000H
		BYTE	001H,004H,TAMS1
		BYTE	004H,01CH,TAMS0
		BYTE	005H,017H,BABUL
		BYTE	007H,008H,SEKZ4
		BYTE	008H,016H,HANA0
		BYTE	008H,01AH,HANA0
		BYTE	019H,01BH,SEKZ4
		BYTE	0FFH
ED36		EQU	$
		BYTE	000H
		BYTE	0FFH
ED37		EQU	$
		BYTE	000H
		BYTE	0FFH
ED38		EQU	$
		BYTE	000H
; '91/ 4/12		BYTE	018H,00FH,PORT1
		BYTE	0FFH
ED39		EQU	$
		BYTE	000H
		BYTE	0FFH
ED3A		EQU	$
		BYTE	000H
		BYTE	009H+080H,006H,MOTS1
		BYTE	009H+080H,019H,MOTS1
		BYTE	00CH+080H,009H,MOTS1
		BYTE	00CH+080H,016H,MOTS1
		BYTE	013H,004H,MOTS1
		BYTE	013H,006H,MOTS1
		BYTE	013H,008H,MOTS1
		BYTE	013H,00AH,MOTS1
		BYTE	013H,015H,MOTS1
		BYTE	013H,017H,MOTS1
		BYTE	013H,019H,MOTS1
		BYTE	013H,01BH,MOTS1
		BYTE	0FFH
ED3B		EQU	$
		BYTE	000H
		BYTE	016H,015H,MOTS1
		BYTE	016H,01AH,MOTS1
		BYTE	018H,014H,MOTS1
		BYTE	018H,01BH,MOTS1
		BYTE	01AH,015H,MOTS1
		BYTE	01AH,01AH,MOTS1
		BYTE	0FFH
ED3C		EQU	$
		BYTE	000H
		BYTE	0FFH
ED3D		EQU	$
		BYTE	000H
		BYTE	0FFH
ED3E		EQU	$
		BYTE	000H
		BYTE	014H,003H,TRAP0
		BYTE	018H,015H,ZOOL2
		BYTE	018H,017H,MOTS0
		BYTE	018H,01AH,ZOOL2
		BYTE	01BH,00BH,TRAP0
		BYTE	0FFH
ED3F		EQU	$
		BYTE	000H
		BYTE	014H,00BH,TRAP0
		BYTE	016H,006H,ZOOL2
		BYTE	016H,009H,ZOOL2
		BYTE	019H,006H,ZOOL2
		BYTE	019H,009H,ZOOL2
		BYTE	01BH,003H,TRAP0
		BYTE	0FFH
ED40		EQU	$
		BYTE	000H
		BYTE	004H+080H,00DH,ESW02
		BYTE	007H+080H,00FH,OYAGI
		BYTE	006H+080H,010H,HELP0
		BYTE	0FFH
;ED41		EQU	$
ED42		EQU	$
		BYTE	000H
		BYTE	006H,012H,HEBI0
		BYTE	006H,013H,HEBI0
		BYTE	006H,014H,HEBI0
		BYTE	006H,015H,HEBI0
		BYTE	007H,012H,HEBI0
		BYTE	007H,013H,HEBI0
		BYTE	007H,014H,HEBI0
		BYTE	007H,015H,HEBI0
		BYTE	0FFH
ED43		EQU	$
		BYTE	000H
		BYTE	005H+080H,019H,MEDAM
		BYTE	006H+080H,016H,SEKZ4
		BYTE	007H+080H,005H,SEKZ4
		BYTE	007H+080H,019H,HANA1
		BYTE	008H+080H,016H,HANA1
		BYTE	009H+080H,007H,BABUL
		BYTE	00AH+080H,004H,HANA0
		BYTE	00CH+080H,006H,HANA0
		BYTE	014H+080H,003H,BABUL
		BYTE	017H+080H,004H,BABUL
		BYTE	018H+080H,018H,BABUL
		BYTE	018H+080H,019H,BABUL
		BYTE	019H+080H,018H,BABUL
		BYTE	0FFH
ED44		EQU	$
		BYTE	000H
		BYTE	005H+80H,011H,TAMS1
		BYTE	0FFH
ED45		EQU	$
		BYTE	000H
		BYTE	006H+080H,012H,MEDAM
		BYTE	008H+080H,010H,HANA1
		BYTE	008H+080H,016H,HANA0
		BYTE	00AH+080H,011H,HANA0
		BYTE	00EH+080H,012H,BABU2
		BYTE	010H+080H,013H,HANA0
		BYTE	011H+080H,016H,HANA1
		BYTE	0FFH
ED46		EQU	$
		BYTE	000H
		BYTE	0FFH
ED47		EQU	$
		BYTE	000H
		BYTE	014H,005H,MOTS0
		BYTE	014H,00AH,ZOOL2
		BYTE	016H,004H,ZOOL2
		BYTE	018H,003H,MOTS0
		BYTE	01CH,004H,ZOOL2
		BYTE	0FFH
ED48		EQU	$
		BYTE	001H
		BYTE	014H,008H,HBTAM
		BYTE	014H,017H,HBTAM
		BYTE	016H+080H,00FH,ZOOL2
		BYTE	016H+080H,012H,ZOOL2
		BYTE	019H+080H,010H,TELSA
		BYTE	0FFH
ED49		EQU	$
		BYTE	001H
		BYTE	00BH+080H,00BH,ZOOL2
		BYTE	00EH,007H,TELSA
		BYTE	013H,008H,TELSA
		BYTE	017H,007H,TELSA
		BYTE	01BH+080H,00BH,ZOOL2
		BYTE	0FFH
ED4A		EQU	$
		BYTE	000H
		BYTE	007H,005H,MOTS1
		BYTE	007H,01AH,MOTS1
		BYTE	009H,005H,MOTS1
		BYTE	009H,01AH,MOTS1
		BYTE	00BH,005H,MOTS1
		BYTE	00BH,01AH,MOTS1
		BYTE	015H,00DH,MOTS1
		BYTE	015H,012H,MOTS1
		BYTE	017H,00EH,MOTS1
		BYTE	017H,012H,MOTS1
		BYTE	019H,00DH,MOTS1
		BYTE	019H,013H,MOTS1
		BYTE	0FFH
ED4B		EQU	$
		BYTE	000H
		BYTE	0FFH
ED4C		EQU	$
		BYTE	000H
		BYTE	0FFH
ED4D		EQU	$
		BYTE	000H
		BYTE	0FFH
ED4E		EQU	$
		BYTE	000H
		BYTE	009H,007H,BAAR1
		BYTE	00AH,01CH,ZOOL2
		BYTE	00CH,01CH,ZOOL2
		BYTE	0FEH,000H,KAGI0
		BYTE	0FFH
ED4F		EQU	$
		BYTE	000H
		BYTE	0FFH
ED50		EQU	$
		BYTE	000H
		BYTE	008H+080H,018H,ZAKO0
		BYTE	00CH+080H,018H,HEIS0
		BYTE	010H+080H,018H,ZAKO0
		BYTE	012H+080H,017H,ZAKO0
		BYTE	014H+080H,018H,ZAKO0
		BYTE	0FFH
ED41		EQU	$
ED51		EQU	$
		BYTE	001H
		BYTE	002H,00EH,OOISU
		BYTE	017H+080H+HAB1,009H+RIGT,HEIS0
		BYTE	017H+080H+HAB1,016H+LEFT,HEIS0
		BYTE	0FFH
ED52		EQU	$
		BYTE	000H
		BYTE	009H+080H,008H,ZAKO0
		BYTE	00CH+080H,007H,HEIS0	
		BYTE	00FH+080H,008H,ZAKO0
		BYTE	012H+080H,007H,ZAKO0
		BYTE	015H+080H,008H,ZAKO0
		BYTE	0FFH
ED53		EQU	$
		BYTE	000H
		BYTE	017H,006H+010H,RANEM
		BYTE	017H,009H+010H,RANEM
		BYTE	0FFH
ED54		EQU	$
		BYTE	000H
		BYTE	004H,00AH,HANA0
		BYTE	004H,00BH,HANA1
		BYTE	004H,00CH,HANA0
		BYTE	006H,010H,HANA0
		BYTE	007H,006H,HANA0
		BYTE	007H,008H,HANA0
		BYTE	007H,00FH,HANA1
		BYTE	007H,017H,HANA0
		BYTE	008H,010H,HANA1
		BYTE	008H,018H,HANA1
		BYTE	009H,007H,HANA0
		BYTE	009H,00FH,HANA1
		BYTE	0FFH
ED55		EQU	$
		BYTE	000H
		BYTE	0FFH
ED56		EQU	$
		BYTE	000H
		BYTE	0FFH
ED57		EQU	$
		BYTE	000H
		BYTE	00BH+080H,004H,HBTAM
		BYTE	00BH,01AH,ZOOL1
		BYTE	00CH,013H,MOTS0
		BYTE	00CH,01BH,ZOOL1
		BYTE	014H,008H,ZOOL2
		BYTE	016H,006H,ZOOL2
		BYTE	018H+080H,011H,HBTAM
		BYTE	0FFH
ED58		EQU	$
		BYTE	001H
		BYTE	004H,006H,MOTS0
		BYTE	004H,009H,MOTS0
		BYTE	00CH,01BH,MOTS1
		BYTE	017H+080H,00BH,ZOOL1
		BYTE	018H+080H,014H,ZOOL1
		BYTE	01AH+080H,004H,ZOOL1
		BYTE	0FFH
ED59		EQU	$
		BYTE	000H
		BYTE	0FFH
ED5A		EQU	$
		BYTE	000H
		BYTE	008H,00FH,MOTS1
		BYTE	008H,010H,MOTS1
		BYTE	010H,00AH,MOTS1
		BYTE	0FEH,000H,KAGI0
		BYTE	010H,016H,MOTS1
		BYTE	012H,010H,MOTS1
		BYTE	015H,00FH,MOTS1
		BYTE	0FFH
ED5B		EQU	$
		BYTE	000H
		BYTE	0FFH
ED5C		EQU	$
		BYTE	000H
		BYTE	013H,014H,ESW01
		BYTE	0FFH
ED5D		EQU	$
		BYTE	000H
		BYTE	0FFH
ED5E		EQU	$
		BYTE	000H
		BYTE	00AH,018H,BAAR1
		BYTE	013H,017H,BAAR0
		BYTE	015H,004H,ZOOL2
		BYTE	018H,009H,BAAR0
		BYTE	01BH,004H,ZOOL2
		BYTE	0FFH
ED5F		EQU	$
		BYTE	000H
		BYTE	018H,005H,ZOOL2
		BYTE	018H,00AH,ZOOL2
		BYTE	01AH,005H,ZOOL2
		BYTE	01AH,00AH,MOTS0
		BYTE	0FFH
ED60		EQU	$
		BYTE	000H
		BYTE	009H+HAB3,003H+DOWN,HEIS0
		BYTE	00DH+080H,017H,ZAKO0
		BYTE	00DH+080H,018H,ZAKO0
		BYTE	00FH+080H,007H,ZAKO0
		BYTE	00FH+080H,017H,ZAKO0
		BYTE	011H+080H,008H,ZAKO0
		BYTE	0FFH
ED61		EQU	$
		BYTE	000H
		BYTE	007H+HAB2,007H+DOWN,HEIS0
		BYTE	00CH,008H,ZAKO0
		BYTE	00CH,00DH,ZAKO0
		BYTE	00CH,012H,ZAKO0
		BYTE	00CH,017H,ZAKO0
		BYTE	013H+HAB2,009H+UPUP,HEIS0
		BYTE	013H+HAB2,016H+UPUP,HEIS0
		BYTE	007H+HAB2,018H+DOWN,HEIS0
		BYTE	0FFH
ED62		EQU	$
		BYTE	000H
		BYTE	008H+HAB3,014H+DOWN,HEIS0
		BYTE	00AH+080H,007H,ZAKO0
		BYTE	00DH+080H,00DH,HEIS0
		BYTE	00EH+080H,009H,ZAKO0
		BYTE	011H+080H,008H,ZAKO0
		BYTE	0FFH
ED63		EQU	$
		BYTE	000H
		BYTE	005H,004H,NL777
		BYTE	005H,007H,HANA1
		BYTE	0FEH,000H,KAGI0
;
		BYTE	006H,00AH,HANA1
		BYTE	009H,003H,HANA1
		BYTE	009H,006H,HANA1
		BYTE	00BH,00BH,NL777
		BYTE	00BH,017H,NL777
		BYTE	015H,009H,HANA1
		BYTE	016H,003H,HANA1
		BYTE	0FEH,000H,KAGI0
;
		BYTE	016H,00BH,HANA1
		BYTE	017H,006H,NL777
		BYTE	019H,009H,HANA1
		BYTE	0FFH
ED64		EQU	$
		BYTE	000H
		BYTE	00AH,008H,ARI01
		BYTE	014H,007H,ARI00
;
		BYTE	006H,005H,RIVER
		BYTE	006H,009H,RIVER
		BYTE	009H,004H,RIVER
		BYTE	011H,014H,RIVER
		BYTE	014H,00CH,RIVER
		BYTE	015H,01CH,RIVER
		BYTE	0FFH
ED65		EQU	$
		BYTE	000H
;
		BYTE	007H,017H,ARI01
		BYTE	016H,007H,ARI00
		BYTE	019H,004H,ARI01
		BYTE	019H,00AH,ARI01
;
		BYTE	004H,017H,RIVER
		BYTE	005H,01BH,RIVER
		BYTE	006H,005H,BABUL
		BYTE	0FEH,000H,KAGI0
;
		BYTE	009H,01AH,RIVER
		BYTE	00AH,00BH,BABUL
		BYTE	00BH,015H,RIVER
;
		BYTE	0FFH
ED66		EQU	$
		BYTE	000H
		BYTE	003H,004H,HODID
		BYTE	003H,00FH,HODID
		BYTE	00DH,00AH,HODIU
		BYTE	0FFH
ED67		EQU	$
		BYTE	001H
		BYTE	006H+080H,00BH,ZOOL2
		BYTE	006H+080H,014H,ZOOL2
		BYTE	009H,00DH,HBTAM
		BYTE	009H,012H,HBTAM
		BYTE	016H+080H,012H,MOTS0
		BYTE	019H+080H,00BH,MOTS0
		BYTE	01AH+080H,00AH,MOTS0
		BYTE	01AH+080H,014H,MOTS1
		BYTE	0FFH
ED68		EQU	$
		BYTE	000H
		BYTE	006H,015H,MOTS0
		BYTE	007H+080H,00BH,MOTS1
		BYTE	008H+080H,007H,MOTS0
		BYTE	008H,01CH,MOTS0
		BYTE	00AH,018H,ZOOL1
		BYTE	00CH,003H,ZOOL1
		BYTE	018H,009H,MOTS0
		BYTE	018H,011H,ZOOL2
		BYTE	018H,017H,MOTS0
		BYTE	0FFH
ED69		EQU	$
		BYTE	000H
		BYTE	00BH,005H,MOTS0
		BYTE	00BH,00AH,MOTS0
		BYTE	00FH,005H,MOTS0
		BYTE	00FH,00AH,MOTS0
		BYTE	013H,005H,MOTS0
		BYTE	013H,00AH,MOTS0
		BYTE	017H,006H,MOTS0
		BYTE	017H,00AH,MOTS0
		BYTE	0FFH
ED6A		EQU	$
		BYTE	000H
		BYTE	006H,010H,MOTS1
		BYTE	00EH,00DH,MOTS1
		BYTE	00EH,012H,MOTS1
		BYTE	011H,00DH,MOTS1
		BYTE	011H,012H,MOTS1
		BYTE	014H,00FH,MOTS1
		BYTE	0FFH
ED6B		EQU	$
		BYTE	000H
		BYTE	0FFH
ED6C		EQU	$
		BYTE	000H
		BYTE	0FFH
ED6D		EQU	$
		BYTE	000H
		BYTE	0FFH
ED6E		EQU	$
		BYTE	000H
		BYTE	008H,014H,MOTS1
		BYTE	008H,018H,MOTS1
		BYTE	00BH,017H,MOTS1
		BYTE	0FFH
ED6F		EQU	$
		BYTE	000H
		BYTE	0FFH
ED70		EQU	$
		BYTE	000H
		BYTE	0FFH
ED71		EQU	$
		BYTE	000H
; 91/05/07		BYTE	016H+080H+KABR,017H+KAB0,HEIS0
		BYTE	018H+080H,006H,HEIS0
		BYTE	0FEH,000H,KAGI0
		BYTE	018H+080H+KABD,01AH+KAB0,HEIS0
		BYTE	0FEH,000H,KAGI0
		BYTE	0FFH
ED72		EQU	$
		BYTE	000H
		BYTE	006H+KABR,011H+KAB0,HEIS0
		BYTE	0FEH,000H,KAGI0
;
; '91/ 4/ 5		BYTE	00BH+KABL,00EH+KAB0,HEIS0
		BYTE	019H+080H+HAB1,00AH+RIGT,HEIS0
		BYTE	0FFH
ED73		EQU	$
		BYTE	000H
		BYTE	00FH,00FH,ARI00
		BYTE	00CH,01CH,ARI00
;
		BYTE	00DH,01EH,RIVER
		BYTE	00EH,004H,RIVER
		BYTE	00EH,007H,RIVER
		BYTE	010H,014H,RIVER
		BYTE	01BH,016H,RIVER
		BYTE	0FFH
ED74		EQU	$
		BYTE	000H
		BYTE	009H,015H,ARI00
		BYTE	007H,009H,ARI00
;
		BYTE	001H,01BH,RIVER
		BYTE	007H,00FH,NL777
		BYTE	012H,009H,RIVER
		BYTE	012H,016H,RIVER
		BYTE	01BH,009H,RIVER
		BYTE	01BH,016H,RIVER
		BYTE	0FFH
ED75		EQU	$
		BYTE	000H
		BYTE	00EH,007H,ARI01
		BYTE	01BH,009H,ARI00
;
		BYTE	00EH,001H,RIVER
		BYTE	01AH,007H,RIVER
		BYTE	01CH,007H,RIVER
		BYTE	0FFH
ED76		EQU	$
		BYTE	000H
		BYTE	006H,015H,HODIR
		BYTE	006H,01CH,HODIL
		BYTE	013H,015H,HODIR
		BYTE	0FFH
ED77		EQU	$
		BYTE	000H
		BYTE	0FFH
ED78		EQU	$
		BYTE	000H
		BYTE	007H,011H,ESW01
		BYTE	0FFH
ED79		EQU	$
		BYTE	000H
		BYTE	0FFH
ED7A		EQU	$
		BYTE	000H
		BYTE	0FFH
ED7B		EQU	$
		BYTE	000H
		BYTE	0FFH
ED7C		EQU	$
		BYTE	000H
		BYTE	0FFH
ED7D		EQU	$
		BYTE	000H
		BYTE	0FFH
ED7E		EQU	$
		BYTE	000H
		BYTE	004H,013H,TRAP0
		BYTE	004H,01BH,TRAP0
		BYTE	00DH,013H,TRAP0
		BYTE	00DH,01BH,TRAP0
		BYTE	014H,013H,TRAP0
		BYTE	014H,01BH,TRAP0
		BYTE	019H,005H,ZOOL2
		BYTE	019H,007H,ZOOL2
		BYTE	019H,009H,ZOOL2
		BYTE	019H,00BH,MOTS0
		BYTE	01BH,013H,TRAP0
		BYTE	01BH,01BH,TRAP0
		BYTE	0FFH
ED7F		EQU	$
		BYTE	000H
		BYTE	007H,008H,MOTS0
		BYTE	007H,00CH,MOTS0
		BYTE	008H,006H,MOTS0
		BYTE	008H,00AH,MOTS0
		BYTE	018H,005H,ZOOL2
		BYTE	018H,007H,ZOOL2
		BYTE	018H,009H,ZOOL2
		BYTE	018H,00BH,ZOOL2
		BYTE	0FFH
ED80		EQU	$
		BYTE	000H
		BYTE	003H,016H,HELP0
		BYTE	009H,007H,HEIS0
		BYTE	009H,01AH,TEKU0
		BYTE	0FDH,000H,KAGI0
;;		BYTE	0FEH,000H,KAGI0
		BYTE	0FFH
ED81		EQU	$
		BYTE	001H
		BYTE	00BH+080H+HAB4,00BH+DOWN,HEIS0
		BYTE	00BH+080H+HAB1,00EH+DOWN,HEIS0
		BYTE	0FFH
ED82		EQU	$
		BYTE	000H
; 91/05/07		BYTE	004H+080H+HAB1,00BH+DOWN,HEIS0
		BYTE	009H+080H+HAB4,009H+UPUP,HEIS0
		BYTE	00AH+080H+HAB1,010H+UPUP,HEIS0
		BYTE	011H+080H+HAB1,015H+DOWN,HEIS0
		BYTE	0FFH
ED83		EQU	$
		BYTE	000H
		BYTE	004H,011H,HODID
		BYTE	005H,004H,NL777
		BYTE	012H,00CH,NL777
		BYTE	014H,005H,HANA0
		BYTE	014H,008H,HANA0
		BYTE	017H,003H,NL777
		BYTE	01AH,007H,HANA0
		BYTE	01AH,008H,HANA0
		BYTE	0FFH
ED84		EQU	$
		BYTE	000H
		BYTE	007H,00BH,NL777
		BYTE	00FH+080H,006H,HANA1
		BYTE	00FH+080H,00AH,BABUL
		BYTE	012H+080H,009H,HANA1
		BYTE	0FEH,000H,KAGI0
;
		BYTE	013H+080H,005H,HANA1
		BYTE	0FFH
ED85		EQU	$
		BYTE	000H
		BYTE	0FFH
ED86		EQU	$
		BYTE	000H
		BYTE	0FFH
ED87		EQU	$
		BYTE	000H
		BYTE	0FFH
ED88		EQU	$
		BYTE	000H
		BYTE	0FFH
ED89		EQU	$
		BYTE	000H
		BYTE	0FFH
ED8A		EQU	$
		BYTE	000H
		BYTE	0FFH
ED8B		EQU	$
		BYTE	000H
		BYTE	0FFH
ED8C		EQU	$
		BYTE	000H
		BYTE	0FFH
ED8D		EQU	$
		BYTE	000H
		BYTE	0FFH
ED8E		EQU	$
		BYTE	000H
		BYTE	005H,01BH,ZOOL2
		BYTE	008H,014H,MOTS0
		BYTE	008H,01CH,ZOOL2
		BYTE	00AH,016H,MOTS0
		BYTE	00BH,014H,MOTS0
		BYTE	0FFH
ED8F		EQU	$
		BYTE	000H
		BYTE	0FFH
ED90		EQU	$
		BYTE	000H
		BYTE	009H,007H,SHSAI
		BYTE	0FFH
ED91		EQU	$
		BYTE	000H
		BYTE	006H,009H,ZOOL1
		BYTE	006H,014H,HBTAM
		BYTE	006H,015H,HBTAM
		BYTE	007H,00AH,HBTAM
		BYTE	014H,012H,ZOOL1
		BYTE	014H,016H,HBTAM
		BYTE	017H,003H,TRAP0
		BYTE	017H,005H,ZOOL1
		BYTE	018H,007H,ZOOL1
		BYTE	01CH,012H,ZOOL1
		BYTE	01CH,016H,HBTAM
		BYTE	0FFH
ED92		EQU	$
		BYTE	000H
		BYTE	006H,00CH,MOTS0
		BYTE	008H,00CH,MOTS0
		BYTE	00CH,012H,TELSA
		BYTE	00DH,015H,TELSA
		BYTE	00FH,00BH,MOTS0
		BYTE	011H,009H,MOTS0
		BYTE	011H,00BH,MOTS0
		BYTE	011H,014H,MOTS0
		BYTE	012H,013H,MOTS0
		BYTE	016H,005H,TELSA
		BYTE	016H,00BH,TELSA
		BYTE	018H,008H,TELSA
		BYTE	01AH,00EH,TELSA
		BYTE	0FFH
ED93		EQU	$
		BYTE	000H
		BYTE	004H,013H,TRAP0
		BYTE	004H,015H,TRAP0
		BYTE	004H,017H,TRAP0
		BYTE	006H,010H,TELSA
		BYTE	007H,00EH,TELSA
		BYTE	009H,009H,HBTAM
		BYTE	00DH,00DH,HBTAM
		BYTE	00DH,011H,TELSA
		BYTE	015H,01AH,TELSA
		BYTE	017H,01CH,TELSA
		BYTE	01AH,017H,HBTAM
		BYTE	01AH,01CH,TELSA
		BYTE	0FFH
ED94		EQU	$
		BYTE	000H
		BYTE	0FFH
ED95		EQU	$
		BYTE	000H
		BYTE	0FFH
ED96		EQU	$
		BYTE	000H
		BYTE	0FFH
ED97		EQU	$
		BYTE	000H
		BYTE	0FFH
ED98		EQU	$
		BYTE	000H
		BYTE	0FFH
ED99		EQU	$
		BYTE	000H
		BYTE	0FFH
ED9A		EQU	$
		BYTE	000H
		BYTE	0FFH
ED9B		EQU	$
		BYTE	000H
		BYTE	0FFH
ED9C		EQU	$
		BYTE	000H
		BYTE	0FFH
ED9D		EQU	$
		BYTE	000H
		BYTE	0FFH
ED9E		EQU	$
		BYTE	000H
		BYTE	006H,017H,MOTS0
		BYTE	006H,019H,MOTS0
		BYTE	008H,015H,MOTS0
		BYTE	008H,01BH,MOTS0
		BYTE	016H,014H,ZOOL2
		BYTE	016H,01BH,ZOOL2
		BYTE	01AH,014H,ZOOL2
		BYTE	01AH,01BH,ZOOL2
		BYTE	0FFH
ED9F		EQU	$
		BYTE	000H
		BYTE	016H,007H,ZOOL2
		BYTE	016H,009H,ZOOL2
		BYTE	01AH,008H,ZOOL2
		BYTE	01BH,003H,TRAP0
		BYTE	01BH,00BH,TRAP0
		BYTE	0FFH
EDA0		EQU	$
		BYTE	000H
		BYTE	010H+080H,006H,HEIS0
		BYTE	011H+080H,015H,TEKU0
		BYTE	011H+080H,01AH,TEKU0
		BYTE	014H+080H,015H,ZAKO0
		BYTE	014H+080H,016H,ZAKO0
		BYTE	014H+080H,019H,ZAKO0
		BYTE	014H+080H,01AH,ZAKO0
		BYTE	017H+080H,017H,HEIS0
		BYTE	0FFH
EDA1		EQU	$
		BYTE	000H
		BYTE	0FFH
EDA2		EQU	$
		BYTE	000H
		BYTE	003H,003H,TRAP0
		BYTE	00BH,015H,TRAP0
		BYTE	00BH,017H,ZOOL2
		BYTE	0FEH,000H,KAGI0
		BYTE	00CH,00AH,ZOOL2
		BYTE	00EH,006H,ZOOL1
		BYTE	00EH,008H,HBTAM
		BYTE	0FEH,000H,KAGI0
		BYTE	00EH,00AH,TRAP0
		BYTE	012H,016H,ZOOL2
		BYTE	013H,012H,TRAP0
		BYTE	015H,011H,ZOOL1
		BYTE	016H,013H,ZOOL2
		BYTE	016H,016H,HBTAM
		BYTE	0FFH
EDA3		EQU	$
		BYTE	000H
		BYTE	004H,00AH,TELSA
		BYTE	004H,013H,TELSA
		BYTE	005H,00DH,TELSA
		BYTE	00FH,019H,ZOOL1
		BYTE	010H,016H,ZOOL2
		BYTE	015H,013H,ZOOL2
		BYTE	016H,017H,ZOOL1
		BYTE	019H,011H,ZOOL1
		BYTE	019H,013H,ZOOL1
		BYTE	0FFH
EDA4		EQU	$
		BYTE	000H
		BYTE	0FFH
EDA5		EQU	$
		BYTE	000H
		BYTE	0FFH
EDA6		EQU	$
		BYTE	000H
		BYTE	0FFH
EDA7		EQU	$
		BYTE	000H
		BYTE	0FFH
EDA8		EQU	$
		BYTE	000H
		BYTE	0FFH
EDA9		EQU	$
		BYTE	000H
		BYTE	0FFH
EDAA		EQU	$
		BYTE	000H
		BYTE	0FFH
EDAB		EQU	$
		BYTE	000H
		BYTE	0FFH
EDAC		EQU	$
		BYTE	000H
		BYTE	014H,00CH,ESW01
		BYTE	0FFH
EDAD		EQU	$
		BYTE	000H
		BYTE	0FFH
EDAE		EQU	$
		BYTE	000H
		BYTE	007H,013H,ZOOL2
		BYTE	007H,015H,ZOOL2
		BYTE	0FFH
EDAF		EQU	$
		BYTE	000H
		BYTE	008H,00AH,BAAR0
		BYTE	0FFH
EDB0		EQU	$
		BYTE	000H
		BYTE	00AH,013H,ZAKO0
		BYTE	00DH,01AH,TEKU0
		BYTE	00EH,01CH,ZAKO0
		BYTE	00FH,014H,ZAKO0
		BYTE	00FH,016H,ZAKO0
		BYTE	010H,00CH,HEIS0
		BYTE	015H,014H,HEIS0
; '91/ 4/17 WED::		BYTE	016H,005H,ZAKO0
		BYTE	018H,018H,TEKU0
		BYTE	019H,00AH,HEIS0
		BYTE	0FFH
EDB1		EQU	$
		BYTE	000H
;		BYTE	013H+080H,00EH,OCTBL
;		BYTE	013H+080H,011H,OCTBL
;		BYTE	015H+080H,00EH,OCTBL
;		BYTE	015H+080H,011H,OCTBL
;		BYTE	017H+080H,00EH,OCTBL
;		BYTE	017H+080H,011H,OCTBL
;		BYTE	019H+080H,00EH,OCTBL
;		BYTE	019H+080H,011H,OCTBL
;		BYTE	012H+080H,00EH,OCTBL
;		BYTE	012H+080H,011H,OCTBL
;		BYTE	014H+080H,00EH,OCTBL
;		BYTE	014H+080H,011H,OCTBL
;		BYTE	012H+80H,010H,FOOD1
;		BYTE	014H+80H,011H,FOOD2
;		BYTE	016H+80H,012H,FOOD3
;		BYTE	018H+80H,013H,FOOD4
;;		BYTE	010H+80H,010H,OCTA1
;;		BYTE	014H+80H,014H,OCTA4
;;		BYTE	012H+80H,012H,OCTA2
;;		BYTE	010H+80H,016H,SEKZ1
		BYTE	0FFH
EDB2		EQU	$
		BYTE	001H
		BYTE	007H+080H,00AH,HBTAM
		BYTE	00AH+080H,017H,MOTS0
		BYTE	00CH+080H,00AH,MOTS0
		BYTE	00CH+080H,00FH,HBTAM
		BYTE	00CH+080H,017H,MOTS0
		BYTE	00FH+080H,019H,MOTS0
		BYTE	011H+080H,019H,MOTS0
		BYTE	018H+080H,00EH,MOTS0
		BYTE	018H+080H,00FH,MOTS0
		BYTE	018H+080H,010H,MOTS0
		BYTE	0FFH
EDB3		EQU	$
		BYTE	000H
		BYTE	015H,00EH,TOTUG
		BYTE	013H,014H,SARU1
		BYTE	013H,014H,SARU3
		BYTE	0FFH
EDB4		EQU	$
		BYTE	000H
;		BYTE	017H,010H,PONPK
;		BYTE	018H,010H,PONPK
;		BYTE	019H,010H,PONPK
;		BYTE	01AH,010H,PONPK
;		BYTE	017H,011H,PONPK
;		BYTE	018H,011H,PONPK
;		BYTE	019H,011H,PONPK
;		BYTE	01AH,011H,PONPK
;		BYTE	017H,00FH,PONPK
;		BYTE	018H,00FH,PONPK
;		BYTE	019H,00FH,PONPK
;		BYTE	01AH,00FH,PONPK
;		BYTE	017H,00EH,PONPK
;		BYTE	018H,00EH,PONPK
;		BYTE	019H,00EH,PONPK
		BYTE	01AH,00EH,PONPK
		BYTE	0FFH
EDB5		EQU	$
		BYTE	000H
		BYTE	0FFH
EDB6		EQU	$
		BYTE	001H
		BYTE	006H+80H,006H,PONPK
		BYTE	006H+80H,009H,PONPK
		BYTE	0FFH
EDB7		EQU	$
		BYTE	000H
		BYTE	0FFH
EDB8		EQU	$
		BYTE	000H
		BYTE	0FFH
EDB9		EQU	$
		BYTE	000H
;;		BYTE	00CH,00CH,ESW01
;;		BYTE	00FH,00FH,TTN01
;;		BYTE	010H,010H,OCTA1
;;		BYTE	012H,012H,OCTBL
;;		BYTE	014H,011H,IWAOO
;;		BYTE	015H,010H,BATTA
;;		BYTE	016H,00FH,OCTA2
;;		BYTE	017H,00EH,OCTA1
;;		BYTE	00CH,012H,NYORO
;		BYTE	012H,012H,KWAUS
;		BYTE	013H,013H,KWAU1
;		BYTE	013H,014H,SHIGE
;		BYTE	014H,014H,SEKZ4
;		BYTE	013H,012H,SEKZ4
;		BYTE	013H,014H,SARU1
;		BYTE	013H,014H,SARU3
;		BYTE	015H,00EH,TOTUG
;		BYTE	012H,010H,SEKZ4
;		BYTE	012H,008H,TAAM1
;		BYTE	012H,009H,TAAM1
;		BYTE	012H,00AH,TAAM1
;		BYTE	012H,00BH,TAAM1
;		BYTE	012H,00CH,TAAM1
;		BYTE	012H,00DH,TAAM1
;		BYTE	012H,00EH,TAAM1
;		BYTE	012H,00FH,TAAM1
		BYTE	0FFH
EDBA		EQU	$
		BYTE	000H
		BYTE	0FFH
EDBB		EQU	$
		BYTE	000H
		BYTE	0FFH
EDBC		EQU	$
		BYTE	001H
		BYTE	019H,010H,PONPK
		BYTE	019H,010H,PONPK
		BYTE	019H,010H,PONPK
		BYTE	019H,010H,PONPK
		BYTE	019H,010H,PONPK
		BYTE	019H,010H,PONPK
		BYTE	019H,010H,PONPK
		BYTE	0FFH,010H,PONPK
		BYTE	019H,010H,PONPK
		BYTE	019H,010H,PONPK
		BYTE	019H,010H,PONPK
		BYTE	019H,010H,PONPK
		BYTE	019H,010H,PONPK
		BYTE	019H,010H,PONPK
		BYTE	019H,010H,PONPK
		BYTE	019H,010H,PONPK
;;;;;;;;		BYTE	019H,010H,JAKIO
;;;		BYTE	018H,010H,TAAM1
;;;		BYTE	00EH+80H,010H,PONPK
;;;		BYTE	00EH+80H,010H,PONPK
;;;		BYTE	00EH+80H,010H,PONPK
;;;		BYTE	00EH+80H,010H,PONPK
;;;		BYTE	00EH+80H,010H,PONPK
;;;		BYTE	00EH+80H,010H,PONPK
		BYTE	0FFH
EDBD		EQU	$
		BYTE	000H
		BYTE	010H,008H,ESET2
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	0FFH,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	0FFH
EDBE		EQU	$
		BYTE	001H
		BYTE	006H,017H,ZOOL2
		BYTE	009H,018H,ZOOL2
		BYTE	00CH,017H,ZOOL2
		BYTE	015H,014H,ZOOL2
		BYTE	015H,01BH,ZOOL2
		BYTE	01AH,014H,MOTS1
		BYTE	01AH,01BH,ZOOL2
		BYTE	0FFH
EDBF		EQU	$
		BYTE	000H
		BYTE	0FFH
EDC0		EQU	$
		BYTE	000H
		BYTE	009H,012H,ZAKO0
		BYTE	009H,014H,ZAKO0
		BYTE	00AH,01BH,HEIS0
		BYTE	00CH,013H,HEIS0
		BYTE	00FH,007H,TEKU0
		BYTE	010H,01AH,ZAKO0
		BYTE	010H,01CH,ZAKO0
		BYTE	011H,007H,ZAKO0
		BYTE	011H,008H,ZAKO0
		BYTE	0FFH
EDC1		EQU	$
		BYTE	000H
		BYTE	0FFH
EDC2		EQU	$
		BYTE	001H
		BYTE	00CH,015H,MOTS0
		BYTE	00CH,016H,MOTS0
		BYTE	00CH,017H,MOTS0
		BYTE	00CH,018H,MOTS0
		BYTE	00CH,019H,MOTS0
		BYTE	00DH,015H,MOTS0
		BYTE	00DH,016H,MOTS0
		BYTE	00DH,017H,MOTS0
		BYTE	00DH,018H,MOTS0
		BYTE	00DH,019H,MOTS0
		BYTE	0FFH
EDC3		EQU	$
		BYTE	000H
		BYTE	00CH,01CH,MOTS1
		BYTE	00DH,018H,MOTS0
		BYTE	00EH,00FH,TELSA
		BYTE	00EH,010H,TELSA
		BYTE	00EH,01CH,MOTS1
		BYTE	00FH,00FH,TELSA
		BYTE	00FH,010H,TELSA
		BYTE	00FH,018H,MOTS0
		BYTE	010H,01CH,MOTS1
		BYTE	011H,00DH,MOTS0
		BYTE	016H,00BH,MOTS0
		BYTE	017H,00BH,MOTS0
		BYTE	0FFH
EDC4		EQU	$
		BYTE	000H
		BYTE	0FFH
EDC5		EQU	$
		BYTE	000H
		BYTE	0FFH
EDC6		EQU	$
		BYTE	000H
		BYTE	0FFH
EDC7		EQU	$
		BYTE	000H
		BYTE	0FFH
EDC8		EQU	$
		BYTE	000H
		BYTE	0FFH
EDC9		EQU	$
		BYTE	000H
		BYTE	0FFH
EDCA		EQU	$
		BYTE	000H
		BYTE	0FFH
EDCB		EQU	$
		BYTE	000H
		BYTE	0FFH
EDCC		EQU	$
		BYTE	000H
		BYTE	0FFH
EDCD		EQU	$
		BYTE	000H
		BYTE	0FFH
EDCE		EQU	$
		BYTE	000H
		BYTE	0FFH
EDCF		EQU	$
		BYTE	000H
		BYTE	0FFH
EDD0		EQU	$
		BYTE	000H
		BYTE	0FFH
EDD1		EQU	$
		BYTE	000H
		BYTE	0FFH
EDD2		EQU	$
		BYTE	000H
		BYTE	00DH,01BH,ZOOL1
		BYTE	00EH,01BH,ZOOL2
		BYTE	0FEH,000H,KAGI0
		BYTE	014H,017H,ZOOL2
		BYTE	014H,01AH,ZOOL2
		BYTE	015H,015H,HBTAM
		BYTE	016H,018H,ZOOL2
		BYTE	018H,017H,ZOOL2
		BYTE	0FFH
EDD3		EQU	$
		BYTE	000H
		BYTE	011H,00EH,MOTS0
		BYTE	011H,010H,MOTS0
		BYTE	012H,00FH,MOTS1
		BYTE	013H,00EH,MOTS0
		BYTE	013H,010H,MOTS0
		BYTE	01AH,00AH,MOTS1
		BYTE	0FFH
EDD4		EQU	$
		BYTE	000H
		BYTE	0FFH
EDD5		EQU	$
		BYTE	000H
		BYTE	0FFH
EDD6		EQU	$
		BYTE	000H
		BYTE	0FFH
EDD7		EQU	$
		BYTE	000H
		BYTE	0FFH
EDD8		EQU	$
		BYTE	000H
		BYTE	0FFH
EDD9		EQU	$
		BYTE	000H
		BYTE	0FFH
EDDA		EQU	$
		BYTE	000H
		BYTE	0FFH
EDDB		EQU	$
		BYTE	000H
		BYTE	0FFH
EDDC		EQU	$
		BYTE	000H
		BYTE	0FFH
EDDD		EQU	$
		BYTE	000H
		BYTE	0FFH
EDDE		EQU	$
		BYTE	000H
		BYTE	0FFH
EDDF		EQU	$
		BYTE	000H
		BYTE	0FFH
EDE0		EQU	$
		BYTE	000H
		BYTE	0FFH
EDE1		EQU	$
		BYTE	000H
		BYTE	0FFH
EDE2		EQU	$
		BYTE	000H
		BYTE	0FFH
EDE3		EQU	$
		BYTE	000H
		BYTE	0FFH
EDE4		EQU	$
		BYTE	000H
		BYTE	0FFH
EDE5		EQU	$
		BYTE	000H
		BYTE	0FFH
EDE6		EQU	$
		BYTE	000H
		BYTE	0FFH
EDE7		EQU	$
		BYTE	000H
		BYTE	0FFH
EDE8		EQU	$
		BYTE	000H
		BYTE	0FFH
EDE9		EQU	$
		BYTE	000H
		BYTE	0FFH
EDEA		EQU	$
		BYTE	000H
		BYTE	0FFH
EDEB		EQU	$
		BYTE	000H
		BYTE	0FFH
EDEC		EQU	$
		BYTE	000H
;		BYTE	014H,00CH,ESW01
		BYTE	0FFH
EDED		EQU	$
		BYTE	000H
		BYTE	0FFH
EDEE		EQU	$
		BYTE	000H
		BYTE	004H,010H,HANA1
		BYTE	005H,01AH,HANA1
		BYTE	00BH,003H,HANA1
		BYTE	00CH,01CH,HANA1
		BYTE	00EH,00BH,HANA1
		BYTE	013H,003H,HANA1
		BYTE	014H,013H,HANA1
		BYTE	01CH,009H,HANA1
		BYTE	0FFH
EDEF		EQU	$
		BYTE	000H
		BYTE	0FFH
EDF0		EQU	$
		BYTE	000H
		BYTE	008H,014H,KOMO0
		BYTE	009H,014H,KOMO0
		BYTE	00AH,014H,KOMO0
		BYTE	00BH,014H,KOMO0
		BYTE	010H,00DH,KOMO0
		BYTE	010H,00EH,KOMO0
		BYTE	010H,00FH,KOMO0
		BYTE	018H,010H,KOMO0
		BYTE	018H,011H,KOMO0
		BYTE	018H,012H,KOMO0
		BYTE	0FFH
EDF1		EQU	$
		BYTE	000H
		BYTE	00CH,012H,KOMO0
		BYTE	00CH,019H,KOMO0
		BYTE	00DH,01AH,KOMO0
		BYTE	018H,008H,KOMO0
		BYTE	018H,00AH,KOMO0
		BYTE	019H,009H,KOMO0
		BYTE	019H,00BH,KOMO0
		BYTE	019H,017H,KOMO0
		BYTE	01AH,016H,KOMO0
		BYTE	01BH,015H,KOMO0
;
;		BYTE	013H+080H,00EH,OCTBL
;		BYTE	013H+080H,011H,OCTBL
;		BYTE	015H+080H,00EH,OCTBL
;		BYTE	015H+080H,011H,OCTBL
;		BYTE	017H+080H,00EH,OCTBL
;		BYTE	017H+080H,011H,OCTBL
;		BYTE	019H+080H,00EH,OCTBL
;		BYTE	019H+080H,011H,OCTBL
;		BYTE	012H+080H,00EH,OCTBL
;		BYTE	012H+080H,011H,OCTBL
;		BYTE	014H+080H,00EH,OCTBL
;		BYTE	014H+080H,011H,OCTBL
;		BYTE	012H+80H,010H,FOOD1
;		BYTE	014H+80H,011H,FOOD2
;		BYTE	016H+80H,012H,FOOD3
;		BYTE	018H+80H,013H,FOOD4
;;		BYTE	010H+80H,010H,OCTA1
;;		BYTE	014H+80H,014H,OCTA4
;;		BYTE	012H+80H,012H,OCTA2
;;		BYTE	010H+80H,016H,SEKZ1
		BYTE	0FFH
EDF2		EQU	$
		BYTE	000H
		BYTE	0FFH
EDF3		EQU	$
		BYTE	000H
		BYTE	00CH,007H,JOHBB
;		BYTE	015H,00EH,TOTUG
;		BYTE	013H,014H,SARU1
;		BYTE	013H,014H,SARU3
		BYTE	0FFH
EDF4		EQU	$
		BYTE	000H
;		BYTE	017H,010H,PONPK
;		BYTE	018H,010H,PONPK
;		BYTE	019H,010H,PONPK
;		BYTE	01AH,010H,PONPK
;		BYTE	017H,011H,PONPK
;		BYTE	018H,011H,PONPK
;		BYTE	019H,011H,PONPK
;		BYTE	01AH,011H,PONPK
;		BYTE	017H,00FH,PONPK
;		BYTE	018H,00FH,PONPK
;		BYTE	019H,00FH,PONPK
;		BYTE	01AH,00FH,PONPK
;		BYTE	017H,00EH,PONPK
;		BYTE	018H,00EH,PONPK
;		BYTE	019H,00EH,PONPK
		BYTE	01AH,00EH,PONPK
		BYTE	0FFH
EDF5		EQU	$
		BYTE	000H
		BYTE	0FFH
EDF6		EQU	$
		BYTE	000H
		BYTE	014H,019H,HANA1
		BYTE	016H,018H,HANA1
		BYTE	018H,017H,HANA1
		BYTE	0FFH
EDF7		EQU	$
		BYTE	000H
		BYTE	005H,00FH,HANA1
		BYTE	007H,00DH,HANA1
		BYTE	009H,00BH,HANA1
		BYTE	00BH,015H,HANA1
		BYTE	013H,00BH,HANA1
		BYTE	014H,00DH,HANA1
		BYTE	015H,00AH,HANA1
		BYTE	016H,00CH,HANA1
		BYTE	0FFH
EDF8		EQU	$
		BYTE	000H
		BYTE	014H,015H,HANA1
		BYTE	014H,01AH,HANA1
		BYTE	017H,015H,HANA1
		BYTE	017H,01CH,HANA1
		BYTE	01AH,015H,HANA1
		BYTE	01BH,018H,HANA1
		BYTE	01BH,01AH,HANA1
		BYTE	0FFH
EDF9		EQU	$
		BYTE	000H
		BYTE	005H,01AH,HANA1
		BYTE	00DH,017H,HANA1
		BYTE	00FH,015H,HANA1
		BYTE	011H,013H,HANA1
		BYTE	013H,011H,HANA1
		BYTE	015H,00EH,HANA1
		BYTE	017H,00CH,HANA1
		BYTE	019H,00AH,HANA1
;
;;		BYTE	00CH,00CH,ESW01
;;		BYTE	00FH,00FH,TTN01
;;		BYTE	010H,010H,OCTA1
;;		BYTE	012H,012H,OCTBL
;;		BYTE	014H,011H,IWAOO
;;		BYTE	015H,010H,BATTA
;;		BYTE	016H,00FH,OCTA2
;;		BYTE	017H,00EH,OCTA1
;;		BYTE	00CH,012H,NYORO
;		BYTE	012H,012H,KWAUS
;		BYTE	013H,013H,KWAU1
;		BYTE	013H,014H,SHIGE
;		BYTE	014H,014H,SEKZ4
;		BYTE	013H,012H,SEKZ4
;		BYTE	013H,014H,SARU1
;		BYTE	013H,014H,SARU3
;		BYTE	015H,00EH,TOTUG
;		BYTE	012H,010H,SEKZ4
;		BYTE	012H,008H,TAAM1
;		BYTE	012H,009H,TAAM1
;		BYTE	012H,00AH,TAAM1
;		BYTE	012H,00BH,TAAM1
;		BYTE	012H,00CH,TAAM1
;		BYTE	012H,00DH,TAAM1
;		BYTE	012H,00EH,TAAM1
;		BYTE	012H,00FH,TAAM1
		BYTE	0FFH
EDFA		EQU	$
		BYTE	000H
		BYTE	0FFH
EDFB		EQU	$
		BYTE	000H
		BYTE	007H,013H,HANA1
		BYTE	009H,014H,HANA1
		BYTE	00CH,014H,HANA1
		BYTE	010H,014H,HANA1
		BYTE	011H,004H,HANA1
		BYTE	015H,00DH,HANA1
		BYTE	017H,00DH,HANA1
		BYTE	019H,00DH,HANA1
		BYTE	0FFH
EDFC		EQU	$
		BYTE	001H
;		BYTE	019H,005H,JIJII
;		BYTE	019H,008H,BABAA
;		BYTE	019H,00CH,HEITI
;		BYTE	019H,010H,PENKI
;		BYTE	019H,014H,NOKOG
;		BYTE	019H,018H,KUTUU
;		BYTE	019H,01BH,GAKII
;		BYTE	010H,008H,ESET2
;		BYTE	010H,008H,OHYES
;		BYTE	010H,008H,OHYES
;		BYTE	010H,008H,OHYES
;		BYTE	010H,008H,OHYES
;		BYTE	010H,008H,OHYES
;		BYTE	010H,008H,OHYES
;		BYTE	010H,008H,OHYES
;		BYTE	010H,008H,OHYES
;		BYTE	0FFH,008H,OHYES
;		BYTE	010H,008H,OHYES
;		BYTE	010H,008H,OHYES
;		BYTE	010H,008H,OHYES
;		BYTE	010H,008H,OHYES
;		BYTE	010H,008H,OHYES
;		BYTE	010H,008H,OHYES
;		BYTE	010H,008H,OHYES
		BYTE	0FFH
;
;		BYTE	019H,010H,PONPK
;		BYTE	019H,010H,PONPK
;       	BYTE	019H,010H,PONPK
;		BYTE	019H,010H,PONPK
;		BYTE	019H,010H,PONPK
;		BYTE	019H,010H,PONPK
;		BYTE	019H,010H,PONPK
;		BYTE	0FFH,010H,PONPK
;		BYTE	019H,010H,PONPK
;		BYTE	019H,010H,PONPK
;		BYTE	019H,010H,PONPK
;		BYTE	019H,010H,PONPK
;		BYTE	019H,010H,PONPK
;		BYTE	019H,010H,PONPK
;		BYTE	019H,010H,PONPK
;		BYTE	019H,010H,PONPK
;;;;;;;;		BYTE	019H,010H,JAKIO
;;;		BYTE	018H,010H,TAAM1
;;;		BYTE	00EH+80H,010H,PONPK
;;;		BYTE	00EH+80H,010H,PONPK
;;;		BYTE	00EH+80H,010H,PONPK
;;;		BYTE	00EH+80H,010H,PONPK
;;;		BYTE	00EH+80H,010H,PONPK
;;;		BYTE	00EH+80H,010H,PONPK
		BYTE	0FFH
EDFD		EQU	$
		BYTE	000H
		BYTE	004H,014H,HANA1
		BYTE	006H,015H,HANA1
		BYTE	008H,005H,HANA1
		BYTE	008H,016H,HANA1
		BYTE	008H,018H,HANA1
		BYTE	00EH,009H,HANA1
		BYTE	011H,00FH,HANA1
;
;;;;;;		BYTE	008H,008H,DRGN1
;;;;;;		BYTE	00AH,002H,DRGN1
;;;;;;		BYTE	00CH,004H,DRGN1
;;;;;;		BYTE	00EH,009H,DRGN1
;;;;;;		BYTE	010H,00EH,DRGN1
;;;;;;		BYTE	012H,006H,DRGN1
;;;;;;		BYTE	014H,00CH,DRGN1
;;;;;;		BYTE	016H,002H,DRGN1
;;;;;;		BYTE	018H,007H,DRGN1
;;;;;;		BYTE	01AH,00BH,DRGN1
;;;;;;		BYTE	01CH,00AH,DRGN1
;;;;;;		BYTE	01EH,003H,DRGN1
		BYTE	0FFH
;
EDFE		EQU	$
		BYTE	000H
		BYTE	012H,016H,HANA1
		BYTE	012H,018H,HANA1
		BYTE	014H,014H,HANA1
		BYTE	014H,01AH,HANA1
		BYTE	016H,014H,HANA1
		BYTE	016H,01AH,HANA1
		BYTE	018H,016H,HANA1
		BYTE	018H,018H,HANA1
;
;		BYTE	006H+80H,006H,PONPK
;		BYTE	006H+80H,009H,PONPK
		BYTE	0FFH
EDFF		EQU	$
		BYTE	000H
;		BYTE	010H,008H,DRGN1
		BYTE	0FFH
;
;- - - - - - - - - - - - - -
E100		EQU	$
		BYTE	000H
		BYTE	003H,013H,ESW02
		BYTE	013H,013H,ESW02
		BYTE	0FFH
E101		EQU	$
		BYTE	000H
		BYTE	0FFH
E102		EQU	$
		BYTE	000H
		BYTE	0FFH
E103		EQU	$
		BYTE	000H
		BYTE	0FFH
E104		EQU	$
		BYTE	000H
		BYTE	0FFH
E105		EQU	$
		BYTE	000H
		BYTE	017H,018H,BABA1
		BYTE	017H,019H,HIGEE
		BYTE	0FFH
E106		EQU	$
		BYTE	000H
		BYTE	015H,006H,ZAKO0
		BYTE	015H,009H,ZAKO0
		BYTE	017H,007H,ZAKO0
		BYTE	017H,008H,ZAKO0
		BYTE	018H,004H,HEIS0
		BYTE	018H,00BH,HEIS0
		BYTE	016H,016H,NIWAT
		BYTE	017H,018H,NIWAT
		BYTE	019H,013H,NIWAT
		BYTE	019H,01AH,NIWAT
		BYTE	019H,01CH,NIWAT
		BYTE	01BH,016H,NIWAT
		BYTE	0FFH
E107		EQU	$
		BYTE	000H
		BYTE	0FFH
E108		EQU	$
		BYTE	000H
		BYTE	016H,009H,NIWAT
		BYTE	016H,00CH,NIWAT
		BYTE	019H,009H,NIWAT
		BYTE	01AH,006H,NIWAT
		BYTE	0FFH
E109		EQU	$
		BYTE	000H
		BYTE	019H,010H,MJSY1
		BYTE	0FFH
E10A		EQU	$
		BYTE	000H
		BYTE	004H,019H,JITON
		BYTE	0FFH
E10B		EQU	$
		BYTE	000H
		BYTE	003H,012H,ESW02
		BYTE	009H,00DH,BABUL
		BYTE	0FFH
E10C		EQU	$
		BYTE	000H
		BYTE	005H,01BH,HANA1
		BYTE	0FFH
E10D		EQU	$
		BYTE	000H
		BYTE	004H,006H,HANA1
		BYTE	006H,004H,HANA1
		BYTE	006H,00BH,HANA1
		BYTE	009H,00CH,HANA1
		BYTE	00BH,00AH,HANA1
		BYTE	00CH,005H,HANA1
		BYTE	0FFH
E10E		EQU	$
		BYTE	000H
		BYTE	0FFH
E10F		EQU	$
		BYTE	000H
		BYTE	015H,006H,HANA1
		BYTE	016H,005H,HANA1
		BYTE	0FFH
E110		EQU	$
		BYTE	000H
		BYTE	018H,017H,HANA1
		BYTE	018H,018H,HANA1
		BYTE	019H,016H,HANA1
		BYTE	019H,019H,HANA1
		BYTE	0FFH
E111		EQU	$
		BYTE	000H
		BYTE	01BH,00BH,YASAN
		BYTE	0FFH
E112		EQU	$
		BYTE	000H
		BYTE	007H,00AH,MOTS0
		BYTE	009H,00FH,MOTS0
		BYTE	009H,019H,MOTS0
		BYTE	00AH,014H,MOTS0
		BYTE	010H,008H,MOTS0
		BYTE	011H,00DH,MOTS0
		BYTE	011H,011H,MOTS0
		BYTE	014H,014H,MOTS0
		BYTE	014H,019H,MOTS0
		BYTE	016H,008H,MOTS0
		BYTE	0FFH
E113		EQU	$
		BYTE	000H
		BYTE	0FFH
E114		EQU	$
		BYTE	000H
		BYTE	018H,007H,BWAKO
		BYTE	0FFH
E115		EQU	$
E116		EQU	$
E117		EQU	$
E118		EQU	$
E119		EQU	$
E11A		EQU	$
E11B		EQU	$
E11C		EQU	$
E11D		EQU	$
E11E		EQU	$
E11F		EQU	$
E120		EQU	$
E121		EQU	$
E122		EQU	$
E123		EQU	$
E124		EQU	$
E125		EQU	$
E126		EQU	$
E127		EQU	$
E128		EQU	$
E129		EQU	$
E12A		EQU	$
E12B		EQU	$
E12C		EQU	$
E12D		EQU	$
E12E		EQU	$
E12F		EQU	$
E130		EQU	$
E131		EQU	$
E132		EQU	$
E133		EQU	$
E134		EQU	$
E135		EQU	$
E136		EQU	$
E137		EQU	$
E138		EQU	$
E139		EQU	$
E13A		EQU	$
E13B		EQU	$
E13C		EQU	$
E13D		EQU	$
E13E		EQU	$
		BYTE	000H
		BYTE 	0FFH
E13F		EQU	$
		BYTE	000H
		BYTE	0FFH
E140		EQU	$
E141		EQU	$
E142		EQU	$
E143		EQU	$
E144		EQU	$
E145		EQU	$
E146		EQU	$
E147		EQU	$
E148		EQU	$
E149		EQU	$
E14A		EQU	$
E14B		EQU	$
E14C		EQU	$
E14D		EQU	$
E14E		EQU	$
E14F		EQU	$
E150		EQU	$
E151		EQU	$
E152		EQU	$
E153		EQU	$
E154		EQU	$
E155		EQU	$
E156		EQU	$
E157		EQU	$
E158		EQU	$
E159		EQU	$
E15A		EQU	$
E15B		EQU	$
E15C		EQU	$
E15D		EQU	$
E15E		EQU	$
E15F		EQU	$
E160		EQU	$
E161		EQU	$
E162		EQU	$
E163		EQU	$
E164		EQU	$
E165		EQU	$
E166		EQU	$
E167		EQU	$
E168		EQU	$
E169		EQU	$
E16A		EQU	$
E16B		EQU	$
E16C		EQU	$
E16D		EQU	$
E16E		EQU	$
E16F		EQU	$
E170		EQU	$
		BYTE	000H
		BYTE	018H,016H,PSW01
		BYTE	017H,016H,PSW02
		BYTE	016H,016H,PINT1
		BYTE	015H,016H,PINT2
		BYTE	014H,016H,PINT1
		BYTE	013H,016H,PINT2
		BYTE	012H,016H,LINE0
		BYTE	011H,016H,LINE0
		BYTE	010H,016H,LINE0
		BYTE	00FH,016H,LINE0
		BYTE	00EH,016H,LINE0
		BYTE	00DH,016H,LINE0
		BYTE	00CH,016H,LINE0
		BYTE	00BH,016H,LINE0
		BYTE	00AH,016H,LINE0
		BYTE	009H,016H,LINE0
		BYTE	0FFH
E171		EQU	$
		BYTE	000H
		BYTE	0FFH,008H,ESET2
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	0FFH,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	010H,008H,OHYES
		BYTE	0FFH
E172		EQU	$
E173		EQU	$
E174		EQU	$
E175		EQU	$
E176		EQU	$
E177		EQU	$
E178		EQU	$
E179		EQU	$
E17A		EQU	$
E17B		EQU	$
E17C		EQU	$
E17D		EQU	$
E17E		EQU	$
E17F		EQU	$
		BYTE	000H
		BYTE	007H,011H,ESW01
		BYTE	0FFH
;
;
;========================================
SINDT2		EQU	$
; 0--127
		WORD	0000H,0003H,0006H,0009H,000CH,000FH,0012H,0015H
		WORD	0019H,001CH,001FH,0022H,0025H,0028H,0028H,002EH
		WORD	0031H,0035H,0038H,003BH,003EH,0041H,0044H,0047H
		WORD	004AH,004DH,0050H,0053H,0056H,0059H,005CH,005FH
		WORD	0061H,0064H,0067H,006AH,006DH,0070H,0073H,0075H
		WORD	0078H,007BH,007EH,0080H,0083H,0086H,0088H,008BH
		WORD	008EH,0090H,0093H,0095H,0098H,009BH,009DH,009FH
		WORD	00A2H,00A4H,00A7H,00A9H,00ABH,00AEH,00B0H,00B2H
		WORD	00B5H,00B7H,00B9H,00BBH,00BDH,00BFH,00C1H,00C3H
		WORD	00C5H,00C7H,00C9H,00CBH,00CDH,00CFH,00D1H,00D3H
		WORD	00D4H,00D6H,00D8H,00D9H,00DBH,00DDH,00DEH,00E0H
		WORD	00E1H,00E3H,00E4H,00E6H,00E7H,00E8H,00EAH,00EBH
		WORD	00ECH,00EDH,00EEH,00EFH,00F1H,00F2H,00F3H,00F4H
		WORD	00F4H,00F5H,00F6H,00F7H,00F8H,00F9H,00F9H,00FAH
		WORD	00FBH,00FBH,00FCH,00FCH,00FDH,00FDH,00FEH,00FEH
		WORD	00FEH,00FFH,00FFH,00FFH,00FFH,00FFH,00FFH,00FFH
;128--255
		WORD	0100H
		WORD	00FFH,00FFH,00FFH,00FFH,00FFH,00FFH,00FFH,00FEH
		WORD	00FEH,00FEH,00FDH,00FDH,00FCH,00FCH,00FBH,00FBH
		WORD	00FAH,00F9H,00F9H,00F8H,00F7H,00F6H,00F5H,00F4H
		WORD	00F4H,00F3H,00F2H,00F1H,00EFH,00EEH,00EDH,00ECH
		WORD	00EBH,00EAH,00E8H,00E7H,00E6H,00E4H,00E3H,00E1H
		WORD	00E0H,00DEH,00DDH,00DBH,00D9H,00D8H,00D6H,00D4H
		WORD	00D3H,00D1H,00CFH,00CDH,00CBH,00C9H,00C7H,00C5H
		WORD	00C3H,00C1H,00BFH,00BDH,00BBH,00B9H,00B7H,00B5H
		WORD	00B2H,00B0H,00AEH,00ABH,00A9H,00A7H,00A4H,00A2H
		WORD	009FH,009DH,009BH,0098H,0095H,0093H,0090H,008EH
		WORD	008BH,0088H,0086H,0083H,0080H,007EH,007BH,0078H
		WORD	0075H,0073H,0070H,006DH,006AH,0067H,0064H,0061H
		WORD	005FH,005CH,0059H,0056H,0053H,0050H,004DH,004AH
		WORD	0047H,0044H,0041H,003EH,003BH,0038H,0035H,0031H
		WORD	002EH,002BH,0028H,0025H,0022H,001FH,001CH,0019H
		WORD	0015H,0012H,000FH,000CH,0009H,0006H,0003H
		END
;=====================================================
E2MAIN		EQU	$
		DEC	A
		JSL	>JSRSUB
		WORD	ISUUMV
		WORD	NATAMV
		WORD	SARAMV
		WORD	FOOKMV
		WORD	KNIFMV
		WORD	MADOMV
		WORD	GAKUMV
		WORD	BEDDMV
		WORD	TABLMV
		WORD	GOSTMV
;- - - - - - - - - - - - - - - - - - - - - - -
ISUU		EQU	001H
NATA		EQU	002H
SARA    	EQU	003H
FOOK		EQU	004H
KNIF		EQU	005H
MADO		EQU	006H
GAKU		EQU	007H
BEDD		EQU	008H
TABL		EQU	009H
GOST		EQU	00AH
;
E2OMID		EQU	$
		BYTE	6*4
		BYTE	2*4
		BYTE	6*4
		BYTE	2*4
		BYTE	2*4
		BYTE	2*4
		BYTE	6*4
		BYTE	10*4
		BYTE	10*4
		BYTE	1*4
;===================================
ISUUMV		EQU	$
;       	LDA	KEYA2
;		AND	#00001100B
;		BEQ	WQWQA
;		LDA	<FRCNT
;		AND	#03H
;		BNE	WQWQA
;;
;		LDA	>E2CHPT,X
;		INC	A
;		CMP	#0AH
;		BNE	WEWEA
;		LDA	#000H
;WEWEA		EQU	$
;		STA	>E2CHPT,X
;WQWQA      	EQU	$
		JMP	ISUUCS
;
ISCXAD		EQU	$
		BYTE	000H,000H,000H,000H,000H,000H
		BYTE	000H,000H,004H,004H,004H,004H
		BYTE	000H,000H,000H,000H,000H,000H
		BYTE	000H,000H,004H,004H,004H,004H
;
		BYTE	000H,000H,000H,000H,000H,000H
		BYTE	000H,000H,0FDH,009H,009H,009H
		BYTE	000H,000H,0FBH,0FBH,00AH,00DH
		BYTE	000H,000H,0FAH,0F9H,00EH,00FH
		BYTE	000H,000H,0F5H,013H,012H,012H
		BYTE	000H,000H,000H,000H,000H,000H
ISCYAD		EQU	$
		BYTE	001H,000H,000H,000H,000H,000H
		BYTE	004H,0FCH,00CH,00CH,00CH,00CH
		BYTE	001H,000H,000H,000H,000H,000H
		BYTE	004H,0FCH,00CH,00CH,00CH,00CH
;
		BYTE	001H,0FDH,0FDH,0FDH,0FDH,0FDH
		BYTE	001H,0FDH,007H,0FCH,0FCH,0FCH
		BYTE	001H,0FDH,0FAH,008H,0FAH,00AH
		BYTE	0FEH,0FEH,0FAH,00AH,0FAH,00CH
		BYTE	0FFH,0FFH,0FAH,0FBH,00FH,00FH
		BYTE	000H,000H,000H,000H,000H,000H
ISCCDT		EQU	$
		BYTE	024H,080H,080H,080H,080H,080H
		BYTE	026H,084H,02FH,02FH,02FH,02FH
		BYTE	024H,082H,082H,082H,082H,082H
		BYTE	026H,084H,02FH,02FH,02FH,02FH
;
		BYTE	024H,080H,080H,080H,080H,080H
		BYTE	024H,000H,098H,088H,088H,088H
		BYTE	024H,000H,088H,089H,089H,098H
		BYTE	000H,000H,089H,099H,099H,089H
		BYTE	000H,000H,099H,03FH,099H,099H
		BYTE	000H,000H,000H,000H,000H,000H
ISCADT		EQU	$
		BYTE	000H,000H,000H,000H,000H,000H
		BYTE	000H,000H,000H,000H,000H,000H
		BYTE	000H,000H,000H,000H,000H,000H
		BYTE	040H,040H,040H,040H,040H,040H
;
		BYTE	000H,000H,000H,000H,000H,000H
		BYTE	000H,000H,000H,000H,000H,000H
		BYTE	000H,000H,000H,000H,040H,000H
		BYTE	000H,000H,040H,000H,040H,040H
		BYTE	000H,000H,000H,000H,040H,040H
		BYTE	000H,000H,000H,000H,000H,000H
ISCSBD		EQU	$
		BYTE	2,2,2,2,2,2
		BYTE	2,2,0,0,0,0
		BYTE	2,2,2,2,2,2
		BYTE	2,2,0,0,0,0
;
		BYTE	2,2,0,0,0,0
		BYTE	2,2,0,0,0,0
		BYTE	2,2,0,0,0,0
		BYTE	2,2,0,0,0,0
		BYTE 	2,2,0,0,0,0
		BYTE	2,2,2,2,2,2
;
ISUUCS		EQU	$
		JSR	OAMCHK
;
		LDA	>E2CHPT,X
		STA	<WORK0
		ASL	A
		ASL	A
		ADC	<WORK0
		ADC	<WORK0
		STA	<WORK2
;
		LDA	>E2XPSL,X
		SEC
		SBC	<SCCH2
		STA     <WORK0
		LDA	>E2YPSL,X
		SEC
		SBC	<SCCV2
		STA	<WORK1
;
		PHX
		LDX	#05H
ISC010		EQU	$
		TXA
		PHA
		CLC
		ADC	<WORK2
		TAX
		LDA	<WORK0
		CLC
		ADC	ISCXAD,X
		STA	(<OAMADR),Y
		LDA	<WORK1
		CLC
		ADC	ISCYAD,X
		INY
		STA	(<OAMADR),Y
		LDA	ISCCDT,X
		INY
		STA	(<OAMADR),Y
		LDA	ISCADT,X
		ORA	#33H
		INY
		STA	(<OAMADR),Y
		PHY
		TYA
		LSR	A
		LSR	A
		TAY
		LDA	ISCSBD,X
		STA	(<OSBADR),Y
		PLY
		INY
		PLX
		DEX
		BPL	ISC010
;
		PLX
		LDY	#0FFH
		LDA	#05H
		JSR	E2ALCK
		RTS
;====================================
NATAMV		EQU	$
;;              LDA	KEYA2
;;              AND	#00001100B
;;		BEQ	WEWE2
;		LDA	<FRCNT
;		AND	#03H
;		BNE	WEWE2
;;
;		LDA	>E2CHPT,X
;		INC	A
;		CMP	#08H
;		BNE	WEWE1
;		LDA	#000H
;WEWE1		EQU	$
;		STA	>E2CHPT,X
WEWE2		EQU	$
		JSR	E21CST
;;;;;;;;		JSR	E2SWST
		RTS
;====================================
SARAMV		EQU	$
		JSR	SARACS
;
;;		LDA	KEYA2
;;		AND	#00001100B
;;		BEQ	WQWQ
;		LDA	<FRCNT
;		AND	#03H
;		BNE	WQWQ
;;
;		LDA	>E2CHPT,X
;		INC	A
;		CMP	#06H
;		BNE	WEWE
;		LDA	#000H
WEWE		EQU	$
;		STA	>E2CHPT,X
WQWQ		EQU	$
;----------------------------------
SARACS		EQU	$
		LDA	>E2CHPT,X
		BEQ	SRC0F0
;
		JSR	SARAC0
		RTS
SRC0F0		EQU	$
		JSR	E21CST
;;;		JSR	E2SWST
		RTS
;- - - - - - - - - - - - - - -
SRCXAD		EQU	$
		BYTE	000H,0FEH,0FCH,008H,007H,005H
		BYTE	0FEH,0FFH,0FAH,00AH,008H,003H
		BYTE	0FDH,0FAH,0F8H,00DH,009H,007H
		BYTE	0FDH,0FBH,0F6H,00FH,008H,008H
		BYTE	0F6H,0F6H,0F6H,00FH,00FH,00FH
SRCYAD		EQU	$
		BYTE	000H,0FBH,006H,0FCH,006H,009H
		BYTE	0FFH,0F8H,006H,0FDH,008H,00CH
		BYTE	0FCH,0FBH,003H,0FAH,006H,00DH
		BYTE	000H,0F9H,008H,0FBH,00AH,00AH
		BYTE	00CH,00CH,00CH,0FCH,0FCH,0FCH
SRCCDT		EQU	$
		BYTE	0D5H,0C2H,0D2H,0C3H,0D3H,0D5H
		BYTE	0D5H,0D4H,0D2H,0C3H,0D4H,0D5H
		BYTE	03FH,0D5H,0D4H,0D4H,0D5H,03FH
		BYTE	03FH,03FH,0D5H,0D5H,03FH,03FH
		BYTE	03FH,03FH,03FH,03FH,03FH,03FH
SRCADT		EQU	$
		BYTE	000H,000H,000H,000H,000H,000H
		BYTE	000H,000H,000H,000H,0C0H,000H
		BYTE	000H,000H,000H,040H,0C0H,000H
		BYTE	080H,000H,080H,040H,000H,000H
		BYTE	000H,000H,000H,040H,040H,040H
SARAC0		EQU	$
		JSR	OAMCHK
;
		LDA	>E2CHPT,X
		DEC	A
		STA	<WORK0
		ASL	A
		ASL	A
		ADC	<WORK0
		ADC	<WORK0
		STA	<WORK2
;
		LDA	>E2XPSL,X
		SEC
		SBC	<SCCH2
		STA     <WORK0
		LDA	>E2YPSL,X
		SEC
		SBC	<SCCV2
		STA	<WORK1
;
		PHX
		LDX	#05H
SRC010		EQU	$
		TXA
		PHA
		CLC
		ADC	<WORK2
		TAX
		LDA	<WORK0
		CLC
		ADC	SRCXAD,X
		STA	(<OAMADR),Y
		LDA	<WORK1
		CLC
		ADC	SRCYAD,X
		INY
		STA	(<OAMADR),Y
		LDA	SRCCDT,X
		INY
		STA	(<OAMADR),Y
		LDA	SRCADT,X
		ORA	#33H
		INY
		STA	(<OAMADR),Y
		INY
		PLX
		DEX
		BPL	SRC010
		PLX
		LDY	#00H
		LDA	#05H
		JSR	E2ALCK
		RTS
;===================================
FOOKMV		EQU	$
;====================================
KNIFMV		EQU	$
;		LDA	>E2CONT,X
;		INC	A
;		STA	>E2CONT,X
;;;;		LSR	A
;		LSR	A
;		LSR	A
;		AND	#07H
;		STA	>E2CHPT,X
;		AND	#01H
		LDA	>E2CHPT,X
		AND	#01H
		BNE	KF0090
		JSR	KNIFCS
		RTS
KF0090		EQU	$
		JSR	E21CST
		RTS
;- - - - - - - - - - - -
KFCXAD		EQU	$
		BYTE	004H,004H
		BYTE	000H,008H
		BYTE	004H,004H
		BYTE	000H,008H
KFCYAD		EQU	$
		BYTE	000H,008H
		BYTE	004H,004H
		BYTE	000H,008H
		BYTE	004H,004H
KFCCDT		EQU	$
		BYTE	0C7H,0D7H
		BYTE	0D8H,0D9H
		BYTE	0D7H,0C7H
		BYTE	0D9H,0D8H		
;
		BYTE	0C6H,0D6H
		BYTE	0C8H,0C9H
		BYTE	0D6H,0C6H
		BYTE	0C9H,0C8H
KFCADT		EQU	$
		BYTE	00110001B,00110001B
		BYTE	00110001B,00110001B
		BYTE	10110001B,10110001B
		BYTE	01110001B,01110001B
;
KNIFCS		EQU	$
		JSR	OAMCHK
;
		LDA	>E2MODE,X
		STA	<WORK3
;
		LDA	>E2CHPT,X
		AND	#11111110B
		STA	<WORK2
		LDA	>E2XPSL,X
		SEC
		SBC	<SCCH2
		STA     <WORK0
		LDA	>E2YPSL,X
		SEC
		SBC	<SCCV2
		STA	<WORK1
;		
		PHX
		LDX	#01H
;;;		LDY	#00H
KFC010		EQU	$
		PHX
		TXA
		CLC
		ADC	<WORK2
		TAX
		LDA	<WORK0
		CLC
		ADC	KFCXAD,X
		STA	(<OAMADR),Y
		LDA	<WORK1
		CLC
		ADC	KFCYAD,X
		INY
		STA	(<OAMADR),Y
		PHX
		LDA	<WORK3
		CMP	#FOOK
		BEQ	KFC008
		TXA
		CLC
		ADC	#08H
		TAX
KFC008		EQU	$
		LDA	KFCCDT,X
		INY
		STA	(<OAMADR),Y
		PLX
		LDA	KFCADT,X
		INY
		STA	(<OAMADR),Y
		INY
		PLX
		DEX
                BPL	KFC010
		PLX
;
		LDY	#00H
		LDA	#01H
		JSR	E2ALCK
		RTS
;====================================
MADOMV		EQU	$
;;LDA	KEYA2
;;AND	#00001100B
;;BEQ	WQWQA1
		LDA	<FRCNT
		AND	#07H
		BNE	WQWQA1
;
		LDA	>E2CHPT,X
		INC	A
		CMP	#06H
		BNE	WEWEA1
		LDA	#000H
WEWEA1		EQU	$
		STA	>E2CHPT,X
WQWQA1		EQU	$
		JSR	MADOCS
		RTS
;------------------------------------------
MDCCD0		EQU	$
MDCCD1		EQU	$
		BYTE	08AH,08CH,08EH,08AH,08CH,08EH
MDCAD0		EQU	$
		BYTE	0B5H,0B5H,0B5H,0F5H,0F5H,0F5H
MDCAD1		EQU	$
		BYTE	035H,035H,035H,075H,075H,075H
;- - - - - - - - - - - - - - -
MADOCS		EQU	$
		JSR	OAMCHK
		LDA	>E2XPSL,X
		SEC
		SBC	<SCCH2
		STA	(<OAMADR),Y
		LDY	#04H
		STA	(<OAMADR),Y
		LDA	>E2YPSL,X
		SEC
		SBC	<SCCV2
		LDY	#01H
		STA	(<OAMADR),Y
		CLC
		ADC	#10H
		LDY	#05H
		STA	(<OAMADR),Y
		LDA	>E2CHPT,X
		PHX
		TAX
		LDA	MDCCD0,X
		LDY	#02H
		STA	(<OAMADR),Y
;;;;;;		LDA	MDCCD1,X
		LDY	#06H
		STA	(<OAMADR),Y
		LDA	MDCAD0,X
		LDY	#03H
		STA	(<OAMADR),Y
		LDA	MDCAD1,X
		LDY	#07H
		STA	(<OAMADR),Y
		PLX
		LDY	#02H
		LDA	#01H
		JSR	E2ALCK
		RTS
;====================================
GAKUMV		EQU	$
;;              LDA	KEYA2
;;             AND	#00001100B
;;              BEQ	WQWQAA
;		LDA	<FRCNT
;		AND	#03H
;		BNE	WQWQAA
;
;		LDA	>E2CHPT,X
;		INC	A
;		CMP	#0EH
;		BNE	WEWEAA
;		LDA	#000H
;WEWEAA		EQU	$
;		STA	>E2CHPT,X
WQWQAA		EQU	$
		JSR	GAKUCS
		RTS
;-------- ----------- ------------- ------------- 
GAKXAD		EQU	$
		BYTE	000H,010H,010H,010H,010H,010H
		BYTE	004H,00CH,000H,010H,010H,010H
		BYTE	005H,00CH,014H,000H,010H,010H
		BYTE	005H,00CH,014H,000H,010H,010H
		BYTE	004H,00CH,000H,010H,010H,010H
		BYTE	004H,00CH,000H,010H,010H,010H
;
		BYTE	004H,00CH,000H,010H,010H,010H
		BYTE	004H,00CH,000H,010H,010H,010H
		BYTE	004H,00CH,000H,010H,010H,010H
		BYTE	004H,00CH,004H,014H,007H,00FH
		BYTE	004H,00CH,0FCH,00CH,004H,012H
		BYTE	004H,00CH,004H,014H,002H,016H
		BYTE	004H,00CH,004H,014H,000H,000H
		BYTE	004H,00CH,004H,00CH,00CH,00CH
GAKYAD		EQU	$
		BYTE	000H,000H,000H,000H,000H,0
		BYTE	00CH,00CH,000H,000H,000H,0
		BYTE	00EH,00EH,00EH,000H,000H,0
		BYTE	00EH,00EH,00EH,000H,000H,0
		BYTE	00CH,00CH,000H,000H,000H,0
		BYTE	008H,008H,000H,000H,000H,0
;
		BYTE	008H,008H,002H,002H,002H,2
		BYTE	008H,008H,005H,005H,005H,5
		BYTE	008H,008H,007H,007H,007H,7
		BYTE	008H,008H,004H,004H,0FEH,010H
		BYTE	008H,008H,003H,003H,0FCH,014H
		BYTE	008H,008H,005H,005H,0FAH,014H
		BYTE	008H,008H,006H,006H,0F7H,0F7H
		BYTE	008H,008H,007H,007H,007H,007H
GAKCDT		EQU	$
		BYTE	0ACH,0ACH,0ACH,0ACH,0ACH,0ACH
		BYTE	024H,024H,0ACH,0ACH,0ACH,0ACH
		BYTE	034H,034H,035H,0AEH,0AEH,0AEH
		BYTE	034H,034H,035H,0AEH,0AEH,0AEH
		BYTE	024H,024H,0C0H,0C0H,0C0H,0C0H
		BYTE	024H,024H,0AAH,0AAH,0AAH,0AAH
;
		BYTE	024H,024H,0AAH,0AAH,0AAH,0AAH
		BYTE	024H,024H,0AAH,0AAH,0AAH,0AAH
		BYTE	024H,024H,0AAH,0AAH,0AAH,0AAH
		BYTE	024H,024H,028H,02AH,089H,099H
		BYTE	024H,024H,02AH,028H,089H,099H
		BYTE	024H,024H,028H,02AH,099H,03FH
		BYTE	024H,024H,028H,02AH,03FH,03FH
		BYTE	024H,024H,028H,028H,028H,028H
GAKADT		EQU	$
		BYTE	000H,040H,040H,040H,040H,040H
		BYTE	000H,040H,000H,040H,040H,040H
		BYTE	000H,000H,000H,000H,040H,040H
		BYTE	000H,000H,000H,080H,0C0H,0C0H
		BYTE	000H,040H,000H,040H,040H,040H
		BYTE	000H,040H,000H,040H,040H,040H
;
		BYTE	000H,040H,000H,040H,040H,040H
		BYTE	000H,040H,000H,040H,040H,040H
		BYTE	000H,040H,000H,040H,040H,040H
		BYTE	000H,040H,000H,000H,000H,000H
		BYTE	000H,040H,040H,040H,040H,000H
		BYTE	000H,040H,000H,000H,000H,000H
		BYTE	000H,040H,000H,000H,000H,000H
		BYTE	000H,040H,040H,040H,040H,040H
GAKSBD		EQU	$
		BYTE	2,2,2,2,2,2
		BYTE	2,2,2,2,2,2
		BYTE	0,0,0,2,2,2
		BYTE	0,0,0,2,2,2
		BYTE	2,2,2,2,2,2
		BYTE	2,2,2,2,2,2
;
		BYTE	2,2,2,2,2,2
		BYTE	2,2,2,2,2,2
		BYTE	2,2,2,2,2,2
		BYTE	2,2,2,2,0,0
		BYTE	2,2,2,2,0,0
		BYTE	2,2,2,2,0,0
		BYTE	2,2,2,2,0,0
		BYTE	2,2,2,2,2,2
GAKUCS		EQU	$
		JSR	OAMCHK
;
		LDA	>E2CHPT,X
		ASL	A
		ASL	A
		ADC	>E2CHPT,X
		ADC	>E2CHPT,X
		STA	<WORK2
;
		LDA	>E2XPSL,X
		SEC
		SBC	<SCCH2
		STA	<WORK0
		LDA	>E2YPSL,X
		SEC
		SBC	<SCCV2
		STA	<WORK1
		PHX
		LDX	#06H-1
GKC010		EQU	$
		PHX
		TXA
		CLC
		ADC	<WORK2
		TAX
		LDA	<WORK0
		CLC
		ADC	GAKXAD,X
		STA	(<OAMADR),Y
		LDA	<WORK1
		CLC
		ADC	GAKYAD,X
		INY
		STA	(<OAMADR),Y
		LDA	GAKCDT,X
		INY
		STA	(<OAMADR),Y
		LDA	GAKADT,X
		INY
		ORA	#33H
		STA	(<OAMADR),Y
		PHY
		TYA
		LSR	A
		LSR	A
		TAY
		LDA	GAKSBD,X
		STA	(<OSBADR),Y
		PLY
		INY
		PLX
		DEX
		BPL	GKC010
;
		PLX
		LDY	#0FFH
		LDA	#06-1
		JSR	E2ALCK
		RTS
;====================================
BEDDMV		EQU	$
;		LDA	<FRCNT
;		AND	#03H
;		BNE	BDM010
;
;		LDA	<KEYA2
;		AND	#00001000B
;		BEQ	BDM010
;
;		LDA	>E2CHPT,X
;		INC	A
;		STA	>E2CHPT,X
;
;		LDA	>E2CHPT,X
;		CMP	#07H
;		BNE	BDM010
;
;		LDA	#00H
;		STA	>E2CHPT,X
BDM010		EQU	$
		JSR	BEDDCS
		RTS
;---------------------------------
BDCXAD		EQU	$
		BYTE	000H,010H,000H,010H,000H,010H
		BYTE	000H,000H,000H,000H
;
		BYTE	000H,010H,000H,010H,000H,010H
		BYTE	0F9H,008H,008H,01DH
;
		BYTE	000H,010H,000H,010H,000H,010H
		BYTE	0F6H,005H,005H,021H
;
		BYTE	000H,010H,000H,010H,000H,010H
		BYTE	0F4H,003H,005H,023H
;
		BYTE	000H,010H,000H,010H,000H,010H
		BYTE	0F1H,000H,001H,025H
;
		BYTE	000H,010H,000H,010H,000H,010H
		BYTE	0EDH,0FDH,000H,028H
;
		BYTE	000H,010H,000H,010H,000H,010H
		BYTE	000H,000H,000H,000H
BDCYAD		EQU	$
		BYTE	000H,000H,010H,010H,020H,020H
		BYTE	000H,000H,000H,000H
		BYTE	000H,000H,010H,010H,020H,020H
		BYTE	017H,0FFH,01BH,011H
		BYTE	002H,002H,010H,010H,01EH,01EH
		BYTE	017H,0FFH,01BH,011H
		BYTE	000H,000H,010H,010H,020H,020H
		BYTE	00FH,0F8H,013H,00DH
		BYTE	000H,000H,010H,010H,020H,020H
		BYTE	010H,0F7H,012H,00CH
		BYTE	000H,000H,010H,010H,020H,020H
		BYTE	011H,0F5H,010H,00CH
		BYTE	000H,000H,010H,010H,020H,020H
		BYTE	000H,000H,000H,000H,000H,000H
BDCCDT		EQU	$
		BYTE	0A0H,0A0H,0A2H,0A2H,0A4H,0A4H
		BYTE	0A0H,0A0H,0A0H,0A0H
		BYTE	002H,002H,004H,004H,006H,006H
		BYTE	098H,088H,088H,098H
		BYTE	002H,002H,004H,004H,006H,006H
		BYTE	098H,088H,088H,098H
		BYTE	002H,002H,004H,004H,006H,006H
		BYTE	089H,089H,089H,089H
		BYTE	002H,002H,004H,004H,006H,006H
		BYTE	099H,099H,099H,099H
		BYTE	002H,002H,004H,004H,006H,006H
		BYTE	03FH,03FH,03FH,03FH
		BYTE	002H,002H,004H,004H,006H,006H
		BYTE	002H,002H,002H,002H														
BDCADT		EQU	$									
		BYTE	000H,040H,000H,040H,000H,040H
		BYTE	000H,000H,000H,000H
		BYTE	000H,040H,000H,040H,000H,040H
		BYTE	000H,000H,080H,040H
		BYTE	000H,040H,000H,040H,000H,040H
		BYTE	080H,080H,000H,000H
		BYTE	000H,040H,000H,040H,000H,040H
		BYTE	080H,000H,080H,000H
		BYTE	000H,040H,000H,040H,000H,040H
		BYTE	040H,000H,080H,000H
		BYTE	000H,040H,000H,040H,000H,040H
		BYTE	040H,000H,040H,000H
		BYTE	000H,040H,000H,040H,000H,040H
		BYTE	000H,000H,000H,000H
BDCSBD		EQU	$
		BYTE	2,2,2,2,2,2
		BYTE	2,2,2,2
		BYTE	2,2,2,2,2,2
		BYTE	0,0,0,0
		BYTE	2,2,2,2,2,2
		BYTE	0,0,0,0
		BYTE	2,2,2,2,2,2
		BYTE	0,0,0,0
		BYTE	2,2,2,2,2,2
		BYTE	0,0,0,0
		BYTE	2,2,2,2,2,2
		BYTE	0,0,0,0
		BYTE	2,2,2,2,2,2
		BYTE	2,2,2,2
;====================================
BEDDCS		EQU	$
		JSR	OAMCHK
;
		LDA	>E2CHPT,X
		ASL	A
		ASL	A
		ASL	A
		ADC	>E2CHPT,X
		ADC	>E2CHPT,X
		STA	<WORK2
;
		LDA	>E2XPSL,X
		SEC
		SBC	<SCCH2
		STA	<WORK0
		LDA	>E2YPSL,X
		SEC
		SBC	<SCCV2
		STA	<WORK1
		PHX
		LDX	#09H
BDC010		EQU	$
		PHX
		TXA
		CLC
		ADC	<WORK2
		TAX
		LDA	<WORK0
		CLC
		ADC	BDCXAD,X
		STA	(<OAMADR),Y
		LDA	<WORK1
		CLC
		ADC	BDCYAD,X
		INY
		STA	(<OAMADR),Y
		LDA	BDCCDT,X
		INY
		STA	(<OAMADR),Y
		LDA	BDCADT,X
		INY
		ORA	#33H
		STA	(<OAMADR),Y
		PHY
		TYA
		LSR	A
		LSR	A
		TAY
		LDA	BDCSBD,X
		STA	(<OSBADR),Y
		PLY
		INY
		PLX
		DEX
		BPL	BDC010
;
		PLX
		LDY	#0FFH
		LDA	#010-1
		JSR	E2ALCK
		RTS
;====================================
TABLMV		EQU	$
;;		LDA	<FRCNT
;;		AND	#03H
;;		BNE	TBM010
;;;
;;		LDA	>E2CHPT,X
;;		INC	A
;;		STA	>E2CHPT,X
;;;
;;		LDA	>E2CHPT,X
;;		CMP	#07H
;;		BNE	TBM010
;;		LDA	#00H
;;		STA	>E2CHPT,X
TBM010		EQU	$
		JSR	TABLCS
		RTS
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						     %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
TABCXD		EQU	$
		BYTE	000H,010H,020H,030H
		BYTE	000H,010H,020H,030H
		BYTE	000H,000H
;
		BYTE	006H,01AH,028H,031H
		BYTE    008H,018H,028H
		BYTE    008H,018H,028H
;
		BYTE	002H,019H,02FH,034H
		BYTE    008H,018H,028H
		BYTE    008H,018H,028H
;
		BYTE	000H,017H,031H,035H
		BYTE    008H,018H,028H
		BYTE    008H,018H,028H
;
		BYTE	0FEH,015H,036H,037H
		BYTE    008H,018H,028H
		BYTE    008H,018H,028H
;
		BYTE	0FCH,012H,03CH,03AH
		BYTE    008H,018H,028H
		BYTE    008H,018H,028H
;
		BYTE    008H,018H,028H
		BYTE    008H,018H,028H
		BYTE	008H,008H,008H,008H
;
TABCYD		EQU	$
		BYTE	000H,000H,000H,000H
		BYTE	010H,010H,010H,010H
		BYTE	000H,000H
;
		BYTE	019H,0FBH,001H,00EH
		BYTE	000H,000H,000H
		BYTE	010H,010H,010H
;
		BYTE	01BH,0F7H,00BH,0FEH
		BYTE	000H,000H,000H
		BYTE	010H,010H,010H
;
		BYTE	01CH,0F5H,008H,0FDH
		BYTE	000H,000H,000H
		BYTE	010H,010H,010H
;
		BYTE	01FH,0F1H,006H,0FBH
		BYTE	000H,000H,000H
		BYTE	010H,010H,010H
;
		BYTE	021H,0F0H,007H,0FBH
		BYTE	000H,000H,000H
		BYTE	010H,010H,010H
;
		BYTE	000H,000H,000H
		BYTE	010H,010H,010H
		BYTE	000H,000H,000H,000H
TABCCD		EQU	$
		BYTE	02DH,0A8H,0A8H,02DH
		BYTE	02BH,0A6H,0A6H,02BH
		BYTE	02DH,02DH
;
		BYTE	098H,088H,088H,098H
		BYTE	008H,00AH,00CH
		BYTE	00EH,020H,022H
;
		BYTE	098H,089H,089H,098H
		BYTE	008H,00AH,00CH
		BYTE	00EH,020H,022H
;
		BYTE	099H,089H,089H,099H
		BYTE	008H,00AH,00CH
		BYTE	00EH,020H,022H
;
		BYTE	099H,099H,099H,099H
		BYTE	008H,00AH,00CH
		BYTE	00EH,020H,022H
;
		BYTE	03FH,03FH,03FH,03FH
		BYTE	008H,00AH,00CH
		BYTE	00EH,020H,022H
;
		BYTE	008H,00AH,00CH
		BYTE	00EH,020H,022H
		BYTE	008H,008H,008H,008H
;
TABCAD		EQU	$
		BYTE	040H,000H,000H,000H
		BYTE	000H,000H,000H,040H
		BYTE	040H,040H
;
		BYTE	000H,040H,000H,0C0H
		BYTE	000H,000H,000H		
		BYTE	000H,000H,000H		
;
		BYTE	080H,000H,080H,040H
		BYTE	000H,000H,000H		
		BYTE	000H,000H,000H		
;
		BYTE	000H,080H,000H,000H
		BYTE	000H,000H,000H		
		BYTE	000H,000H,000H		
;
		BYTE	040H,080H,040H,080H
		BYTE	000H,000H,000H		
		BYTE	000H,000H,000H		
;
		BYTE	000H,040H,000H,040H
		BYTE	000H,000H,000H		
		BYTE	000H,000H,000H		
;
		BYTE	000H,000H,000H		
		BYTE	000H,000H,000H		
		BYTE	000H,000H,000H,000H
;
TABCSD		EQU	$
		BYTE	2,2,2,2
		BYTE	2,2,2,2
		BYTE	2,2
;
		BYTE	0,0,0,0
		BYTE	2,2,2
		BYTE	2,2,2
;
		BYTE	0,0,0,0
		BYTE	2,2,2
		BYTE	2,2,2
;
		BYTE	0,0,0,0
		BYTE	2,2,2
		BYTE	2,2,2
;
		BYTE	0,0,0,0
		BYTE	2,2,2
		BYTE	2,2,2
;
		BYTE	0,0,0,0
		BYTE	2,2,2
		BYTE	2,2,2
;
		BYTE	2,2,2
		BYTE	2,2,2
		BYTE	2,2,2,2
TABLCS		EQU	$
		JSR	OAMCHK
;
		LDA	>E2CHPT,X
		ASL	A
		ASL	A
		ASL	A
		ADC	>E2CHPT,X
		ADC	>E2CHPT,X
		STA	<WORK2
;
		LDA	>E2XPSL,X
		SEC
		SBC	<SCCH2
		STA	<WORK0
		LDA	>E2YPSL,X
		SEC
		SBC	<SCCV2
		STA	<WORK1
		PHX
		LDX	#09H
TBC010		EQU	$
		PHX
		TXA
		CLC
		ADC	<WORK2
		TAX
		LDA	<WORK0
		CLC
		ADC	TABCXD,X
		STA	(<OAMADR),Y
		LDA	<WORK1
		CLC
		ADC	TABCYD,X
		INY
		STA	(<OAMADR),Y
		LDA	TABCCD,X
		INY
		STA	(<OAMADR),Y
		LDA	TABCAD,X
		INY
		ORA	#33H
		STA	(<OAMADR),Y
		PHY
		TYA
		LSR	A
		LSR	A
		TAY
		LDA	TABCSD,X
		STA	(<OSBADR),Y
		PLY
		INY
		PLX
		DEX
		BPL	TBC010
		PLX
		LDY	#0FFH
		LDA	#010-1
		JSR	E2ALCK
		RTS
;====================================
GOSTMV		EQU	$
		RTS
;SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
OAMCHK		EQU	$
		LDA	#00H
		STA	>E2DSPL,X
;
		LDA	>E2YPSL,X
		SEC
		SBC	>E2ZPSL,X
		SEC
		SBC	<SCCV2
		LDA	>E2YPSL,X
		CLC
		ADC	#10H
		PHP
		SEC
		SBC	<SCCV2
		LDA	>E2YPSH,X
		SBC	<SCCV21
		PLP
		ADC	#00H
		BEQ 	OMCK10
OMCK0F		EQU	$
		PLA
		PLA
		BRA	OMCK18
OMCK10		EQU	$
		LDA	>E2XPSH,X
		XBA
		LDA	>E2XPSL,X
		MEM16
		REP	#00100000B
		SEC
		SBC	<SCCH2
		CLC
		ADC	#0040H
		CMP	#0180H
		MEM8
		SEP	#00100000B
		BCS	OMCK0F
;
		LDA	>E2XPSL,X
		SEC
		SBC	<SCCH2
		LDA	>E2XPSH,X
		SBC	<SCCH21
		BEQ	OMCK20
OMCK18		EQU	$
		LDA	#01H
		STA	>E2DSPL,X
OMCK20		EQU	$
		LDY	#00H
		RTS
;===================
;--------------------------------------------
E2ALCK		EQU	$
		JSR	ALCKSB
		LDY	#00H
GSCL00		EQU	$
		PHY
		TYA
		LSR	A
		LSR	A
		TAY		
		LDA	<WORKB
		BPL	GSCL08
		LDA	(<OSBADR),Y
		AND	#00000010B
GSCL08		EQU	$
		STA	(<OSBADR),Y
		PLY
GSCL09		EQU	$
;-- X Check ---
		LDX	#00H
		LDA	(<OAMADR),Y
		SEC
		SBC	<WORK7
		BPL	GSCL10
		DEX
GSCL10		EQU	$
		CLC
		ADC	<WORK2
		STA	<WORK4
		TXA
		ADC	<WORK3
		STA	<WORK5
		JSR	ONOMCK
		BCC	GSCL11
		PHY
		TYA
		LSR	A
		LSR	A
		TAY
		LDA	(<OSBADR),Y
		ORA	#00000001B
		STA	(<OSBADR),Y
		PLY
GSCL11		EQU	$
;-- Y check --
		LDX	#00H
		INY
		LDA	(<OAMADR),Y
		SEC
		SBC	<WORK6
		BPL	GSCL12
		DEX
GSCL12		EQU	$
		CLC
		ADC	<WORK0
		STA	<WORK9
		TXA
		ADC	<WORK1
		STA	<WORKA
		JSR	ONOMCV
		BCC	GSCL20
GSCL18		EQU	$
		LDA	#0F0H
		STA	(<OAMADR),Y
GSCL20		EQU	$
;;;		INY
		INY
		INY
		INY
		DEC	<WORK8
		BPL	GSCL00
		LDX	ENINDX
		RTS
;--------------------------------------------
;---------------------------------------------
ALCKSB		EQU	$
		STY	<WORKB
		STA	<WORK8
		LDA	>E2YPSL,X
		STA	<WORK0
		SEC
		SBC	<SCCV2
		STA	<WORK6
		LDA	>E2YPSH,X
		STA	<WORK1
		LDA	>E2XPSL,X
		STA	<WORK2
		SEC
		SBC	<SCCH2
		STA	<WORK7
		LDA	>E2XPSH,X
		STA	<WORK3
		RTS
;------------------------------
ONOMCK		EQU	$
		MEM16
		REP	#00100000B
		LDA	<WORK4
		SEC
		SBC	<SCCH2
		CMP	#0100H
		MEM8
		SEP	#00100000B
		RTS
;-------------------------------
ONOMCV		EQU	$
		MEM16
		REP	#00100000B
		LDA	<WORK9
		PHA
		CLC
		ADC	#10H
		STA	<WORK9
		SEC
		SBC	<SCCV2
		CMP	#0100H
		PLA
		STA	<WORK9
		MEM8
		SEP	#00100000B
		RTS
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%							     %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
E2CD00		EQU	$
ISUUCD		EQU	$
		BYTE	080H,082H,084H,082H,086H
NATACD		EQU	$
		BYTE	0E4H,0EAH,0E6H,0E8H,0E4H,0EAH,0E6H,0E8H
		BYTE	0E0H,0E0H,0E2H,0E2H
SARACD		EQU	$
		BYTE	0C2H
FOOKCD		EQU	$
		BYTE	0,0EEH,0,0EEH,0,0EEH,0,0EEH
KNIFCD		EQU	$
		BYTE	0,0CEH,0,0CEH,0,0CEH,0,0CEH
;- - - - - - - - - - - - - - - - - - 
E2AD00		EQU	$
		BYTE	000H,000H,000H,040H,000H
;
		BYTE	000H,000H,000H,0C0H,0C0H,0C0H,0C0H,000H
		BYTE	000H,040H,000H,080H
;
		BYTE	000H
;
		BYTE	0,000H,0,080H,0,0C0H,0,040H
;
		BYTE	0,000H,0,080H,0,0C0H,0,040H
;- - - - - - - - - - - - - - - - - - - - - - - - -
E2CDAD		EQU	$
		BYTE	ISUUCD-E2CD00
		BYTE	NATACD-E2CD00
		BYTE	SARACD-E2CD00
		BYTE	FOOKCD-E2CD00
		BYTE	KNIFCD-E2CD00
;- - - - - - - - - - - - - - - - - - - - - -
E21CST		EQU	$
		JSR	OAMCHK
;
;;;		LDY	#00H
		LDA	>E2XPSL,X
		SEC
		SBC	<SCCH2
		STA	(<OAMADR),Y
		LDA	>E2YPSL,X
		SEC
		SBC	<SCCV2
		INY
		STA	(<OAMADR),Y
;
		LDA	>E2MODE,X
		TAY
		LDA	E2CDAD-1,Y
		CLC
		ADC	>E2CHPT,X
		TAY
		PHY
		LDA	E2CD00,Y
		LDY	#02H
		STA	(<OAMADR),Y
		PLY
		LDA	E2AD00,Y
		LDY	#03H
		ORA	#31H
		STA	(<OAMADR),Y
;
		LDA	#02H
		ORA	>E2DSPL,X
		STA	(<OSBADR)
        	RTS	
;==============================================
E2SWST		EQU	$
		JSR	OAMCHK
;
		LDY	#04H
		LDA	>E2XPSL,X
		SEC
		SBC	<SCCH2
		STA	(<OAMADR),Y
		LDA	>E2YPSL,X
		SEC
		SBC	<SCCV2
		CLC
		ADC	#0AH
		INY
		STA	(<OAMADR),Y
;
		LDA	#0CAH
		INY
		STA	(<OAMADR),Y
		LDA	#33H
		INY
		STA	(<OAMADR),Y
;
		LDY	#01H
		LDA	#02H
		ORA	>E2DSPL,X
		STA	(<OSBADR),Y
        	RTS	
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
E2XCLC		EQU	$
		TXA
		CLC
		ADC	#E2NO
		TAX
		JSR	E2YCLC
		LDX	ENINDX
       	        RTS
;============================================
E2YCLC		EQU     $
		LDA	>E2YSPD,X
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		CLC
		ADC	>E2YSDR,X
		STA	>E2YSDR,X
;
		LDA	>E2YSPD,X
		PHP
		LSR	A
		LSR	A
		LSR	A
		LSR	A
		LDY	#00H
		PLP
		BPL	E2CY60
;
		ORA	#11110000B
		DEY
E2CY60		EQU	$
		ADC	>E2YPSL,X
		STA	>E2YPSL,X
;
		TYA
		ADC	>E2YPSH,X
		STA	>E2YPSH,X
		RTS
;============================================
E2ZCLC		EQU	$
		LDA	>E2ZSPD,X
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		CLC
		ADC	>E2ZSDR,X
		STA	>E2ZSDR,X
;
		LDA	>E2ZSPD,X
		PHP
		LSR	A
		LSR	A
		LSR	A
		LSR	A
		PLP
		BPL	E2CZ60
;
		ORA	#11110000B
E2CZ60		EQU	$
		ADC	>E2ZPSL,X
		STA	>E2ZPSL,X
;
		RTS