;
                INCLUDE zel_ram.asm
;--------------------------------------------------------------------
;		
;		PAL_ZELDA-3 (FRANCE)		1991.04.08(MON)
;		
;--------------------------------------------------------------------
;		
		ORG	0DAFE0H
;		
;--------------------------------------------------------------------
		EXT	SETOAML2,SADWS2L,SADWSTL,EVCHCKE,BGCRDT,EPXYCK2
		EXT	SETOAML22
;		
                GLB     OAMENT,OAMENT2,OAMENT3,Z2TMSTL
                GLB     OAMENT1,OAMENT4,OAMENT5,OAMENT6,RNDSET
		GLB	ENMDD0,ENMDD1,ENMDD2,ENMDD3,ENMDD4,ENMDD5,ENMDD6,ENMDD7
		GLB	ENMDST,ENCLST,ENRMCL
		GLB	ATCKDT,KTCRDT,SDLRCK,SDLRCE,SDLRCB,SDLRCP
		GLB	SHBGCK,YASANCS,SDLRE1,SDLRE2,SDLRE3
		GLB	KURORCS,MAGICCS,ICMANCS,TEKI0CS,SKEL2CS,MGTAMCS
		GLB	PATA0CS,PBBANCS,CRHCEN,LIKE0CS,ICBOSCS,HELP0CS,SINPUCS
		GLB	KUTUUCS,KUTU1CS,BAKU0CS,MONORCS,OYAGICS,SINUBCS,MEIR1CS
;
;--------------------------------------------------------------------
		GLB	MEIR0MV,MEIR1MV,ULANIMV,PENKIMV
		GLB	JIJIIMV,BABAAMV,NOKOGMV,ULANIST
;--------------------------------------------------------------------
;-----------------------------------------------------(MAIN)---------------
		EXT	JSRSUB
;-----------------------------------------------------(ENMY)---------------
		EXT	EPXYCK2,EPXCHK2,EPYCHK2,PLFLSTL,PSSAVE2,PSERC2L,PKNCRS2
                EXT     EMOVE,BGDTRD2,ENDMST2,CROJCK2,ENCRST2,BIKRST2
		EXT	ENBGCKL,CRENPLL,CRKNKNL,CRKNENL,OCHECKL,ENCLER
		EXT	ALOMCKL,ENIDSH,SADWSTL,SADWS2L,CRENPL2L
		EXT	PSERCHL,EN1CSTL,ESERCHL,SSERCH2,CACHCKL,ENBDSBL
		EXT	ENENSET,EN1CSSL,EFLSST,ENDMST3,ENDMST4,EHOLE,OAMCHKL
		EXT	CRENPL3L,ENIDSH2,OAMCHKL
;--- enmyno --
		EXT	KARAS,SKHED,ESW01,SHTAM,HBTAM,BAAR0,BABUL,TEKI0,TEKI1
		EXT	OCTA1,OCTA2,OCTA3,NYORO,OCTBL,OCTSS,CHFIR,BIGKO
		EXT	PLHIN,TARUV,SKEL2,HAYAB
		EXT	KWAUS,KWAU1,SHIGE,SEKZ4,PONPK
		EXT	SINUB,REBA1,ZOOL1,WOOD1,MANY1 
		EXT	JIJII,BABAA,HEITI,PENKI,NOKOG,KUTUU,GAKII,GAKI1
		EXT	NOPPO,PLHIK,ONNAA,HIGEE,MAJOO,PLCHK,KIANA,SAKAS
		EXT	YATAM,DEMON,BOOK0,TKBOY,LINE0,LINE1,LINE2,LINE3,BABA1,ESW03,HEIS0
		EXT	TAIHO,HEIS1,HEYA0,HEYA1,HEYA2,KTOBJ,HEIS2,NEZU0,HEBI0
		EXT	KOMO0,HEBO0,OYAGI,ZAKO0
		EXT	HEIS3,SUNA0,USAG0,HEYA3,HANA0,HANA1,TAMA0,DOZOO
		EXT	BOUSI,SYOBY,HELP0,ESW12,RANEM,ZORAS,NOMOS,KINOK
		EXT	SUKAS,MJSY1,JITON,ESW04,ZORA2,MEDUS,UTUWA,UTUBK,ARI00,ARI01
		EXT	JOHBB,ENMY3,HACHI,POLIW,RINGO,BABU2,HELP1,BKFIR,HARI0,D_0_9
		EXT	MOTAM,MEMER,MAGIC,ICBOS,DOKN0,DOKN1,DOKN2,DOKN3,ULANI
;--------------
		EXT	HEIT1
;-------------- item
                EXT     HART1,RUPYR,RUPYY,RUPYB,BOMB1,BOMB2,BOMB3 
                EXT     TUBO1,TUBO2 
                EXT     YAAA1,YAAA2,YOSEI
;--------------
		EXT	HART1,PORT1,PORT2,ICTAM
		EXT	ESET0,ESET1,ESET2
		EXT	EFAIL,ECACH,EWATR,EICE,EICFL
;-----------------------------------------------------(ENMY2)---------------
		EXT	ENMSG2L,ENMSGEL,ENMSGSL,ENMKIST,SETOAML
;-----------------------------------------------------(ENMY3)---------------
		EXT	ENPLATR
;-----------------------------------------------------(ENMY4)---------------
		EXT	TheftCS
;-----------------------------------------------------(ENMY5)---------------
		EXT	BABA1CS
;=============================================== (zel_play) ============
		EXT 	DASCLR1,DASHON,PLOTCK
		EXT 	EATSET
		EXT 	YAMOV
		EXT	YAIMIT
		EXT	ATMSIT
		EXT	OMS000
		EXT	PLOTCK1
		EXT	WPMSCK
;///////		EXT	RDCHCK
;================================================(exst)=================
                EXT     BEAM1,BEAM2,BUME1,BOMBM,YAMOV,DTMOV     ;;;;,BOMBR
                EXT     DTMV1,DTMV2,OPMOV,WTMV0,HIBA2,SCPMV,DTMV3
                EXT     RAOPIT,ATMSIT,BOGN,KNSP
;================================================(msge)=================
;---------------MSGE NO.-----------------
		EXT	MS_0000,MS_0001,MS_0002,MS_0003,MS_0004,MS_0005,MS_0006,MS_0007
		EXT	MS_0008,MS_0009,MS_000A,MS_000B,MS_000C,MS_000D,MS_000E,MS_000F
		EXT	MS_0010,MS_0011,MS_0012,MS_0013,MS_0014,MS_0015,MS_0016,MS_0017
		EXT	MS_0018,MS_0019,MS_001A,MS_001B,MS_001C,MS_001D,MS_001E,MS_001F
		EXT	MS_0020,MS_0021,MS_0022,MS_0023,MS_0024,MS_0025,MS_0026,MS_0027
		EXT	MS_0028,MS_0029,MS_002A,MS_002B,MS_002C,MS_002D,MS_002E,MS_002F
		EXT	MS_0030,MS_0031,MS_0032,MS_0033,MS_0034,MS_0035,MS_0036,MS_0037
		EXT	MS_0038,MS_0039,MS_003A,MS_003B,MS_003C,MS_003D,MS_003E,MS_003F
		EXT	MS_0040,MS_0041,MS_0042,MS_0043,MS_0044,MS_0045,MS_0046,MS_0047
		EXT	MS_0048,MS_0049,MS_004A,MS_004B,MS_004C,MS_004D,MS_004E,MS_004F
		EXT	MS_0050,MS_0051,MS_0052,MS_0053,MS_0054,MS_0055,MS_0056,MS_0057
		EXT	MS_0058,MS_0059,MS_005A,MS_005B,MS_005C,MS_005D,MS_005E,MS_005F
		EXT	MS_0060,MS_0061,MS_0062,MS_0063,MS_0064,MS_0065,MS_0066,MS_0067
		EXT	MS_0068,MS_0069,MS_006A,MS_006B,MS_006C,MS_006D,MS_006E,MS_006F
		EXT	MS_0070,MS_0071,MS_0072,MS_0073,MS_0074,MS_0075,MS_0076,MS_0077
		EXT	MS_0078,MS_0079,MS_007A,MS_007B,MS_007C,MS_007D,MS_007E,MS_007F
		EXT	MS_0080,MS_0081,MS_0082,MS_0083,MS_0084,MS_0085,MS_0086,MS_0087
		EXT	MS_0088,MS_0089,MS_008A,MS_008B,MS_008C,MS_008D,MS_008E,MS_008F
		EXT	MS_0090,MS_0091,MS_0092,MS_0093,MS_0094,MS_0095,MS_0096,MS_0097
		EXT	MS_0098,MS_0099,MS_009A,MS_009B,MS_009C,MS_009D,MS_009E,MS_009F
		EXT	MS_00A0,MS_00A1,MS_00A2,MS_00A3,MS_00A4,MS_00A5,MS_00A6,MS_00A7
		EXT	MS_00A8,MS_00A9,MS_00AA,MS_00AB,MS_00AC,MS_00AD,MS_00AE,MS_00AF
		EXT	MS_00B0,MS_00B1,MS_00B2,MS_00B3,MS_00B4,MS_00B5,MS_00B6,MS_00B7
		EXT	MS_00B8,MS_00B9,MS_00BA,MS_00BB,MS_00BC,MS_00BD,MS_00BE,MS_00BF
		EXT	MS_00C0,MS_00C1,MS_00C2,MS_00C3,MS_00C4,MS_00C5,MS_00C6,MS_00C7
		EXT	MS_00C8,MS_00C9,MS_00CA,MS_00CB,MS_00CC,MS_00CD,MS_00CE,MS_00CF
		EXT	MS_00D0,MS_00D1,MS_00D2,MS_00D3,MS_00D4,MS_00D5,MS_00D6,MS_00D7
		EXT	MS_00D8,MS_00D9,MS_00DA,MS_00DB,MS_00DC,MS_00DD,MS_00DE,MS_00DF
		EXT	MS_00E0,MS_00E1,MS_00E2,MS_00E3,MS_00E4,MS_00E5,MS_00E6,MS_00E7
		EXT	MS_00E8,MS_00E9,MS_00EA,MS_00EB,MS_00EC,MS_00ED,MS_00EE,MS_00EF
		EXT	MS_00F0,MS_00F1,MS_00F2,MS_00F3,MS_00F4,MS_00F5,MS_00F6,MS_00F7
		EXT	MS_00F8,MS_00F9,MS_00FA,MS_00FB,MS_00FC,MS_00FD,MS_00FE,MS_00FF
;
		EXT	MS_0100,MS_0101,MS_0102,MS_0103,MS_0104,MS_0105,MS_0106,MS_0107
		EXT	MS_0108,MS_0109,MS_010A,MS_010B,MS_010C,MS_010D,MS_010E,MS_010F
		EXT	MS_0110,MS_0111,MS_0112,MS_0113,MS_0114,MS_0115,MS_0116,MS_0117
		EXT	MS_0118,MS_0119,MS_011A,MS_011B,MS_011C,MS_011D,MS_011E,MS_011F
		EXT	MS_0120,MS_0121,MS_0122,MS_0123,MS_0124,MS_0125,MS_0126,MS_0127
		EXT	MS_0128,MS_0129,MS_012A,MS_012B,MS_012C,MS_012D,MS_012E,MS_012F
		EXT	MS_0130,MS_0131,MS_0132,MS_0133,MS_0134,MS_0135,MS_0136,MS_0137
		EXT	MS_0138,MS_0139,MS_013A,MS_013B,MS_013C,MS_013D,MS_013E,MS_013F
		EXT	MS_0140,MS_0141,MS_0142,MS_0143,MS_0144,MS_0145,MS_0146,MS_0147
		EXT	MS_0148,MS_0149,MS_014A,MS_014B,MS_014C,MS_014D,MS_014E,MS_014F
		EXT	MS_0150,MS_0151,MS_0152,MS_0153,MS_0154,MS_0155,MS_0156,MS_0157
		EXT	MS_0158,MS_0159,MS_015A,MS_015B,MS_015C,MS_015D,MS_015E,MS_015F
		EXT	MS_0160,MS_0161,MS_0162,MS_0163,MS_0164,MS_0165,MS_0166,MS_0167
		EXT	MS_0168,MS_0169,MS_016A,MS_016B,MS_016C,MS_016D,MS_016E,MS_016F
		EXT	MS_0170,MS_0171,MS_0172,MS_0173,MS_0174,MS_0175,MS_0176,MS_0177
		EXT	MS_0178,MS_0179,MS_017A,MS_017B,MS_017C,MS_017D,MS_017E,MS_017F
		EXT	MS_0180,MS_0181,MS_0182,MS_0183,MS_0184,MS_0185,MS_0186,MS_0187
		EXT	MS_0188,MS_0189,MS_018A,MS_018B,MS_018C,MS_018D,MS_018E,MS_018F
		EXT	MS_0190,MS_0191,MS_0192,MS_0193,MS_0194,MS_0195,MS_0196,MS_0197
		EXT	MS_0198,MS_0199,MS_019A,MS_019B,MS_019C,MS_019D,MS_019E,MS_019F
		EXT	MS_01A0,MS_01A1,MS_01A2,MS_01A3,MS_01A4,MS_01A5,MS_01A6,MS_01A7
		EXT	MS_01A8,MS_01A9,MS_01AA,MS_01AB,MS_01AC,MS_01AD,MS_01AE,MS_01AF
		EXT	MS_01B0,MS_01B1,MS_01B2,MS_01B3,MS_01B4,MS_01B5,MS_01B6,MS_01B7
		EXT	MS_01B8,MS_01B9,MS_01BA,MS_01BB,MS_01BC,MS_01BD,MS_01BE,MS_01BF
		EXT	MS_01C0,MS_01C1,MS_01C2,MS_01C3,MS_01C4,MS_01C5,MS_01C6,MS_01C7
		EXT	MS_01C8,MS_01C9,MS_01CA,MS_01CB,MS_01CC,MS_01CD,MS_01CE,MS_01CF
		EXT	MS_01D0,MS_01D1,MS_01D2,MS_01D3,MS_01D4,MS_01D5,MS_01D6,MS_01D7
		EXT	MS_01D8,MS_01D9,MS_01DA,MS_01DB,MS_01DC,MS_01DD,MS_01DE,MS_01DF
		EXT	MS_01E0,MS_01E1,MS_01E2,MS_01E3,MS_01E4,MS_01E5,MS_01E6,MS_01E7
		EXT	MS_01E8,MS_01E9,MS_01EA,MS_01EB,MS_01EC,MS_01ED,MS_01EE,MS_01EF
		EXT	MS_01F0,MS_01F1,MS_01F2,MS_01F3,MS_01F4,MS_01F5,MS_01F6,MS_01F7
		EXT	MS_01F8,MS_01F9,MS_01FA,MS_01FB,MS_01FC,MS_01FD,MS_01FE,MS_01FF
;
		EXT	MS_0200,MS_0201,MS_0202,MS_0203,MS_0204,MS_0205,MS_0206,MS_0207
		EXT	MS_0208,MS_0209,MS_020A,MS_020B,MS_020C,MS_020D,MS_020E,MS_020F
		EXT	MS_0210,MS_0211,MS_0212,MS_0213,MS_0214,MS_0215,MS_0216,MS_0217
		EXT	MS_0218,MS_0219,MS_021A,MS_021B,MS_021C,MS_021D,MS_021E,MS_021F
		EXT	MS_0220,MS_0221,MS_0222,MS_0223,MS_0224,MS_0225,MS_0226,MS_0227
		EXT	MS_0228,MS_0229,MS_022A,MS_022B,MS_022C,MS_022D,MS_022E,MS_022F
		EXT	MS_0230,MS_0231,MS_0232,MS_0233,MS_0234,MS_0235,MS_0236,MS_0237
		EXT	MS_0238,MS_0239,MS_023A,MS_023B,MS_023C,MS_023D,MS_023E,MS_023F
		EXT	MS_0240,MS_0241,MS_0242,MS_0243,MS_0244,MS_0245,MS_0246,MS_0247
		EXT	MS_0248,MS_0249,MS_024A,MS_024B,MS_024C,MS_024D,MS_024E,MS_024F
		EXT	MS_0250,MS_0251,MS_0252,MS_0253,MS_0254,MS_0255,MS_0256,MS_0257
		EXT	MS_0258,MS_0259,MS_025A,MS_025B,MS_025C,MS_025D,MS_025E,MS_025F
		EXT	MS_0260,MS_0261,MS_0262,MS_0263,MS_0264,MS_0265,MS_0266,MS_0267
		EXT	MS_0268,MS_0269,MS_026A,MS_026B,MS_026C,MS_026D,MS_026E,MS_026F
		EXT	MS_0270,MS_0271,MS_0272,MS_0273,MS_0274,MS_0275,MS_0276,MS_0277
		EXT	MS_0278,MS_0279,MS_027A,MS_027B,MS_027C,MS_027D,MS_027E,MS_027F
		EXT	MS_0280,MS_0281,MS_0282,MS_0283,MS_0284,MS_0285,MS_0286,MS_0287
		EXT	MS_0288,MS_0289,MS_028A,MS_028B,MS_028C,MS_028D,MS_028E,MS_028F
		EXT	MS_0290,MS_0291,MS_0292,MS_0293,MS_0294,MS_0295,MS_0296,MS_0297
		EXT	MS_0298,MS_0299,MS_029A,MS_029B,MS_029C,MS_029D,MS_029E,MS_029F
		EXT	MS_02A0,MS_02A1,MS_02A2,MS_02A3,MS_02A4,MS_02A5,MS_02A6,MS_02A7
		EXT	MS_02A8,MS_02A9,MS_02AA,MS_02AB,MS_02AC,MS_02AD,MS_02AE,MS_02AF
		EXT	MS_02B0,MS_02B1,MS_02B2,MS_02B3,MS_02B4,MS_02B5,MS_02B6,MS_02B7
		EXT	MS_02B8,MS_02B9,MS_02BA,MS_02BB,MS_02BC,MS_02BD,MS_02BE,MS_02BF
		EXT	MS_02C0,MS_02C1,MS_02C2,MS_02C3,MS_02C4,MS_02C5,MS_02C6,MS_02C7
		EXT	MS_02C8,MS_02C9,MS_02CA,MS_02CB,MS_02CC,MS_02CD,MS_02CE,MS_02CF
		EXT	MS_02D0,MS_02D1,MS_02D2,MS_02D3,MS_02D4,MS_02D5,MS_02D6,MS_02D7
		EXT	MS_02D8,MS_02D9,MS_02DA,MS_02DB,MS_02DC,MS_02DD,MS_02DE,MS_02DF
		EXT	MS_02E0,MS_02E1,MS_02E2,MS_02E3,MS_02E4,MS_02E5,MS_02E6,MS_02E7
		EXT	MS_02E8,MS_02E9,MS_02EA,MS_02EB,MS_02EC,MS_02ED,MS_02EE,MS_02EF
		EXT	MS_02F0,MS_02F1,MS_02F2,MS_02F3,MS_02F4,MS_02F5,MS_02F6,MS_02F7
		EXT	MS_02F8,MS_02F9,MS_02FA,MS_02FB,MS_02FC,MS_02FD,MS_02FE,MS_02FF
;
		EXT	MS_0300,MS_0301,MS_0302,MS_0303,MS_0304,MS_0305,MS_0306,MS_0307
		EXT	MS_0308,MS_0309,MS_030A,MS_030B,MS_030C,MS_030D,MS_030E,MS_030F
		EXT	MS_0310,MS_0311,MS_0312,MS_0313,MS_0314,MS_0315,MS_0316,MS_0317
		EXT	MS_0318,MS_0319,MS_031A,MS_031B,MS_031C,MS_031D,MS_031E,MS_031F
		EXT	MS_0320,MS_0321,MS_0322,MS_0323,MS_0324,MS_0325,MS_0326,MS_0327
		EXT	MS_0328,MS_0329,MS_032A,MS_032B,MS_032C,MS_032D,MS_032E,MS_032F
		EXT	MS_0330,MS_0331,MS_0332,MS_0333,MS_0334,MS_0335,MS_0336,MS_0337
		EXT	MS_0338,MS_0339,MS_033A,MS_033B,MS_033C,MS_033D,MS_033E,MS_033F
		EXT	MS_0340,MS_0341,MS_0342,MS_0343,MS_0344,MS_0345,MS_0346,MS_0347
		EXT	MS_0348,MS_0349,MS_034A,MS_034B,MS_034C,MS_034D,MS_034E,MS_034F
		EXT	MS_0350,MS_0351,MS_0352,MS_0353,MS_0354,MS_0355,MS_0356,MS_0357
		EXT	MS_0358,MS_0359,MS_035A,MS_035B,MS_035C,MS_035D,MS_035E,MS_035F
		EXT	MS_0360,MS_0361,MS_0362,MS_0363,MS_0364,MS_0365,MS_0366,MS_0367
		EXT	MS_0368,MS_0369,MS_036A,MS_036B,MS_036C,MS_036D,MS_036E,MS_036F
		EXT	MS_0370,MS_0371,MS_0372,MS_0373,MS_0374,MS_0375,MS_0376,MS_0377
		EXT	MS_0378,MS_0379,MS_037A,MS_037B,MS_037C,MS_037D,MS_037E,MS_037F
		EXT	MS_0380,MS_0381,MS_0382,MS_0383,MS_0384,MS_0385,MS_0386,MS_0387
		EXT	MS_0388,MS_0389,MS_038A,MS_038B,MS_038C,MS_038D,MS_038E,MS_038F
		EXT	MS_0390,MS_0391,MS_0392,MS_0393,MS_0394,MS_0395,MS_0396,MS_0397
		EXT	MS_0398,MS_0399,MS_039A,MS_039B,MS_039C,MS_039D,MS_039E,MS_039F
		EXT	MS_03A0,MS_03A1,MS_03A2,MS_03A3,MS_03A4,MS_03A5,MS_03A6,MS_03A7
		EXT	MS_03A8,MS_03A9,MS_03AA,MS_03AB,MS_03AC,MS_03AD,MS_03AE,MS_03AF
		EXT	MS_03B0,MS_03B1,MS_03B2,MS_03B3,MS_03B4,MS_03B5,MS_03B6,MS_03B7
		EXT	MS_03B8,MS_03B9,MS_03BA,MS_03BB,MS_03BC,MS_03BD,MS_03BE,MS_03BF
		EXT	MS_03C0,MS_03C1,MS_03C2,MS_03C3,MS_03C4,MS_03C5,MS_03C6,MS_03C7
		EXT	MS_03C8,MS_03C9,MS_03CA,MS_03CB,MS_03CC,MS_03CD,MS_03CE,MS_03CF
		EXT	MS_03D0,MS_03D1,MS_03D2,MS_03D3,MS_03D4,MS_03D5,MS_03D6,MS_03D7
		EXT	MS_03D8,MS_03D9,MS_03DA,MS_03DB,MS_03DC,MS_03DD,MS_03DE,MS_03DF
		EXT	MS_03E0,MS_03E1,MS_03E2,MS_03E3,MS_03E4,MS_03E5,MS_03E6,MS_03E7
		EXT	MS_03E8,MS_03E9,MS_03EA,MS_03EB,MS_03EC,MS_03ED,MS_03EE,MS_03EF
		EXT	MS_03F0,MS_03F1,MS_03F2,MS_03F3,MS_03F4,MS_03F5,MS_03F6,MS_03F7
		EXT	MS_03F8,MS_03F9,MS_03FA,MS_03FB,MS_03FC,MS_03FD,MS_03FE,MS_03FF
;
		EXT	MS_0400,MS_0401,MS_0402,MS_0403,MS_0404,MS_0405,MS_0406,MS_0407
		EXT	MS_0408,MS_0409,MS_040A,MS_040B,MS_040C,MS_040D,MS_040E,MS_040F
		EXT	MS_0410,MS_0411,MS_0412,MS_0413,MS_0414,MS_0415,MS_0416,MS_0417
		EXT	MS_0418,MS_0419,MS_041A,MS_041B,MS_041C,MS_041D,MS_041E,MS_041F
		EXT	MS_0420,MS_0421,MS_0422,MS_0423,MS_0424,MS_0425,MS_0426,MS_0427
		EXT	MS_0428,MS_0429,MS_042A,MS_042B,MS_042C,MS_042D,MS_042E,MS_042F
		EXT	MS_0430,MS_0431,MS_0432,MS_0433,MS_0434,MS_0435,MS_0436,MS_0437
		EXT	MS_0438,MS_0439,MS_043A,MS_043B,MS_043C,MS_043D,MS_043E,MS_043F
		EXT	MS_0440,MS_0441,MS_0442,MS_0443,MS_0444,MS_0445,MS_0446,MS_0447
		EXT	MS_0448,MS_0449,MS_044A,MS_044B,MS_044C,MS_044D,MS_044E,MS_044F
		EXT	MS_0450,MS_0451,MS_0452,MS_0453,MS_0454,MS_0455,MS_0456,MS_0457
		EXT	MS_0458,MS_0459,MS_045A,MS_045B,MS_045C,MS_045D,MS_045E,MS_045F
		EXT	MS_0460,MS_0461,MS_0462,MS_0463,MS_0464,MS_0465,MS_0466,MS_0467
		EXT	MS_0468,MS_0469,MS_046A,MS_046B,MS_046C,MS_046D,MS_046E,MS_046F
		EXT	MS_0470,MS_0471,MS_0472,MS_0473,MS_0474,MS_0475,MS_0476,MS_0477
		EXT	MS_0478,MS_0479,MS_047A,MS_047B,MS_047C,MS_047D,MS_047E,MS_047F
		EXT	MS_0480,MS_0481,MS_0482,MS_0483,MS_0484,MS_0485,MS_0486,MS_0487
		EXT	MS_0488,MS_0489,MS_048A,MS_048B,MS_048C,MS_048D,MS_048E,MS_048F
		EXT	MS_0490,MS_0491,MS_0492,MS_0493,MS_0494,MS_0495,MS_0496,MS_0497
		EXT	MS_0498,MS_0499,MS_049A,MS_049B,MS_049C,MS_049D,MS_049E,MS_049F
		EXT	MS_04A0,MS_04A1,MS_04A2,MS_04A3,MS_04A4,MS_04A5,MS_04A6,MS_04A7
		EXT	MS_04A8,MS_04A9,MS_04AA,MS_04AB,MS_04AC,MS_04AD,MS_04AE,MS_04AF
		EXT	MS_04B0,MS_04B1,MS_04B2,MS_04B3,MS_04B4,MS_04B5,MS_04B6,MS_04B7
		EXT	MS_04B8,MS_04B9,MS_04BA,MS_04BB,MS_04BC,MS_04BD,MS_04BE,MS_04BF
		EXT	MS_04C0,MS_04C1,MS_04C2,MS_04C3,MS_04C4,MS_04C5,MS_04C6,MS_04C7
		EXT	MS_04C8,MS_04C9,MS_04CA,MS_04CB,MS_04CC,MS_04CD,MS_04CE,MS_04CF
		EXT	MS_04D0,MS_04D1,MS_04D2,MS_04D3,MS_04D4,MS_04D5,MS_04D6,MS_04D7
		EXT	MS_04D8,MS_04D9,MS_04DA,MS_04DB,MS_04DC,MS_04DD,MS_04DE,MS_04DF
		EXT	MS_04E0,MS_04E1,MS_04E2,MS_04E3,MS_04E4,MS_04E5,MS_04E6,MS_04E7
		EXT	MS_04E8,MS_04E9,MS_04EA,MS_04EB,MS_04EC,MS_04ED,MS_04EE,MS_04EF
		EXT	MS_04F0,MS_04F1,MS_04F2,MS_04F3,MS_04F4,MS_04F5,MS_04F6,MS_04F7
		EXT	MS_04F8,MS_04F9,MS_04FA,MS_04FB,MS_04FC,MS_04FD,MS_04FE,MS_04FF
;
		EXT	MS_0500,MS_0501,MS_0502,MS_0503,MS_0504,MS_0505,MS_0506,MS_0507
		EXT	MS_0508,MS_0509,MS_050A,MS_050B,MS_050C,MS_050D,MS_050E,MS_050F
		EXT	MS_0510,MS_0511,MS_0512,MS_0513,MS_0514,MS_0515,MS_0516,MS_0517
		EXT	MS_0518,MS_0519,MS_051A,MS_051B,MS_051C,MS_051D,MS_051E,MS_051F
		EXT	MS_0520,MS_0521,MS_0522,MS_0523,MS_0524,MS_0525,MS_0526,MS_0527
		EXT	MS_0528,MS_0529,MS_052A,MS_052B,MS_052C,MS_052D,MS_052E,MS_052F
		EXT	MS_0530,MS_0531,MS_0532,MS_0533,MS_0534,MS_0535,MS_0536,MS_0537
		EXT	MS_0538,MS_0539,MS_053A,MS_053B,MS_053C,MS_053D,MS_053E,MS_053F
		EXT	MS_0540,MS_0541,MS_0542,MS_0543,MS_0544,MS_0545,MS_0546,MS_0547
		EXT	MS_0548,MS_0549,MS_054A,MS_054B,MS_054C,MS_054D,MS_054E,MS_054F
		EXT	MS_0550,MS_0551,MS_0552,MS_0553,MS_0554,MS_0555,MS_0556,MS_0557
		EXT	MS_0558,MS_0559,MS_055A,MS_055B,MS_055C,MS_055D,MS_055E,MS_055F
		EXT	MS_0560,MS_0561,MS_0562,MS_0563,MS_0564,MS_0565,MS_0566,MS_0567
		EXT	MS_0568,MS_0569,MS_056A,MS_056B,MS_056C,MS_056D,MS_056E,MS_056F
		EXT	MS_0570,MS_0571,MS_0572,MS_0573,MS_0574,MS_0575,MS_0576,MS_0577
		EXT	MS_0578,MS_0579,MS_057A,MS_057B,MS_057C,MS_057D,MS_057E,MS_057F
		EXT	MS_0580,MS_0581,MS_0582,MS_0583,MS_0584,MS_0585,MS_0586,MS_0587
		EXT	MS_0588,MS_0589,MS_058A,MS_058B,MS_058C,MS_058D,MS_058E,MS_058F
		EXT	MS_0590,MS_0591,MS_0592,MS_0593,MS_0594,MS_0595,MS_0596,MS_0597
		EXT	MS_0598,MS_0599,MS_059A,MS_059B,MS_059C,MS_059D,MS_059E,MS_059F
		EXT	MS_05A0,MS_05A1,MS_05A2,MS_05A3,MS_05A4,MS_05A5,MS_05A6,MS_05A7
		EXT	MS_05A8,MS_05A9,MS_05AA,MS_05AB,MS_05AC,MS_05AD,MS_05AE,MS_05AF
		EXT	MS_05B0,MS_05B1,MS_05B2,MS_05B3,MS_05B4,MS_05B5,MS_05B6,MS_05B7
		EXT	MS_05B8,MS_05B9,MS_05BA,MS_05BB,MS_05BC,MS_05BD,MS_05BE,MS_05BF
		EXT	MS_05C0,MS_05C1,MS_05C2,MS_05C3,MS_05C4,MS_05C5,MS_05C6,MS_05C7
		EXT	MS_05C8,MS_05C9,MS_05CA,MS_05CB,MS_05CC,MS_05CD,MS_05CE,MS_05CF
		EXT	MS_05D0,MS_05D1,MS_05D2,MS_05D3,MS_05D4,MS_05D5,MS_05D6,MS_05D7
		EXT	MS_05D8,MS_05D9,MS_05DA,MS_05DB,MS_05DC,MS_05DD,MS_05DE,MS_05DF
		EXT	MS_05E0,MS_05E1,MS_05E2,MS_05E3,MS_05E4,MS_05E5,MS_05E6,MS_05E7
		EXT	MS_05E8,MS_05E9,MS_05EA,MS_05EB,MS_05EC,MS_05ED,MS_05EE,MS_05EF
		EXT	MS_05F0,MS_05F1,MS_05F2,MS_05F3,MS_05F4,MS_05F5,MS_05F6,MS_05F7
		EXT	MS_05F8,MS_05F9,MS_05FA,MS_05FB,MS_05FC,MS_05FD,MS_05FE,MS_05FF
;
;--------------------------------------------------------------------
;		
		EXTEND
;		
;--------------------------------------------------------------------
;		
		MEM8
		IDX8
;		
;--------------------------------------------------------------------
;		
;====================================================================
;=============================================================
ENMDD0		EQU	$
		BYTE	00000001B	;KARAS
		BYTE	00000010B       ;HAGE0
		BYTE	00000001B       ;SKHED
		BYTE	10000001B+1     ;ESW01
		BYTE	10000001B       ;ESW02
		BYTE	10000100B       ;ESW03
		BYTE	10000100B       ;ESW12
		BYTE	10000100B       ;ESW04
;- - - - - - 
		BYTE	00000001B+1     ;OCTA1
		BYTE	00001111B  	;HAYAB
		BYTE	00000001B+1	;OCTA3
		BYTE	00000000B+1	;NIWAT
		BYTE	00100000B	;OCTAM
		BYTE	00000010B+1	;NYORO
		BYTE	00000011B+1	;PAKKN
		BYTE	10000011B+1	;OCTBL
		BYTE	00000000B+1	;OCTSS
		BYTE	00000100B+1	;HINO0
		BYTE	00000011B+1	;BUTA0
		BYTE	00000000B+1	;MOTS1
		BYTE	10000000B	;PLHIN
		BYTE	00000100B	;BABUL ;KWAUS
		BYTE	10100001B+1	;JITON ;KWAU1
		BYTE	10000010B+1	;SHIGE
		BYTE	00000100B  	;HAYAM
		BYTE	00000001B+1	;GOST0
		BYTE	10000010B	;KAJIY
		BYTE	01100001B+1	;YATAM
		BYTE	10000010B	;SEKZ4
		BYTE	10000000B	;BEECK
		BYTE	10000000B	;TAAMA
		BYTE	10000101B	;SINUB
		BYTE	00000000B+1	;NAME0
		BYTE	10100100B+1	;REBA1
		BYTE	00000010B+1  	;LOPAA
		BYTE	00000011B+1	;ZOOL1
		BYTE	00000011B+1	;ZOOL2
		BYTE	10000011B	;WOOD1
        	BYTE	00000001B+1	;MOTS0
		BYTE	00000000B+1	;IWABO
		BYTE	10000001B+1	;JOHOY
		BYTE	10100001B+1	;JIJII
		BYTE	10100001B+1	;BABAA
		BYTE	10100011B	;SLEEP
		BYTE	10101010B	;NOKOG
		BYTE	10100010B+1	;PENKI
		BYTE	10100011B+1	;KUTUU
		BYTE	10000001B+1	;MEIR0
		BYTE	10000001B+1	;MEIR1
		BYTE	10000010B+1	;ULANI
		BYTE	10000001B+1	;NOPPO
		BYTE	10000000B	;PLHIK
		BYTE	10000001B+1	;ONNAA
		BYTE	10000001B+1	;HIGEE
		BYTE	10100101B	;MAJOO
		BYTE	10000000B	;PLCHK
		BYTE	10100100B	;KIANA
		BYTE	10000001B+1	;SAKAS
		BYTE	10000001B	;DEMON
		BYTE	10000010B	;BOOK0
		BYTE	10000010B	;TKBOY
		BYTE	10000001B+1	;BABA1
		BYTE	10000001B	;ISHI0
		BYTE	00000110B	;BARI0
		BYTE	00001000B	;BARI1 
		BYTE	00000111B+1	;HEIS0
		BYTE	00000111B+1	;HEI00
		BYTE	00000111B+1	;HEIS1
		BYTE	00000101B+1	;HEIS2
		BYTE	00000111B+1	;HEIS3
		BYTE	00000111B+1	;HEYA0
		BYTE	00000111B+1	;HEYA1
		BYTE	00000101B+1	;HEYA2
		BYTE	00000110B+1	;HEYA3
		BYTE	00000110B+1	;HEBO0
		BYTE	00000001B+1	;ZAKO0
		BYTE	00000010B	;SUNA0
		BYTE	00100010B	;USAG0
		BYTE	00000001B	;HANA0
		BYTE	00000001B	;HANA1
		BYTE	00100000B	;TAMA0
		BYTE	10000010B	;DOZOO
		BYTE	00000111B	;ZORAB
		BYTE	10000101B	;NOMOS
		BYTE	00001111B	;RANEM
		BYTE	00100001B	;ZORAS
		BYTE	00000101B	;ZORA2
		BYTE	10000011B	;SEKMV
		BYTE	00000010B	;KANI0
		BYTE	00000001B	;TORI0
		BYTE	00000001B	;RISU0
		BYTE	00000001B	;SPARK
		BYTE	00000001B	;SPARL
		BYTE	00000111B	;CHAN0
		BYTE	00000111B	;CHAN1
		BYTE	00000111B	;CHAN2
		BYTE	00000111B	;CHAN3
		BYTE	00000000B	;MEDUS
		BYTE	10000101B	;ATARS
		BYTE	10000011B	;ARI00
		BYTE	00000011B	;ARI01
		BYTE	10100011B+1	;YASAN
		BYTE	00000000B	;HODIR
		BYTE	00000000B	;HODIL
		BYTE	00000000B	;HODID
		BYTE	00000000B	;HODIU
		BYTE	00001000B+1	;TEKU0
		BYTE	00000100B	;TAIHO
		BYTE	10100000B	;HYUUU
		BYTE	00000000B	;NEZU0
		BYTE	00000001B	;HEBI0
		BYTE	00000000B	;KOMO0
		BYTE	00000000B	;MOTAM
;
		BYTE	00000011B	;RIVER
		BYTE	10001011B	;BWAKO
		BYTE	10000110B	;OYAGI
		BYTE	11000001B+1	;BOUSI
		BYTE	10000001B+1	;SYOBY
		BYTE	10000001B	;HELP0
		BYTE	00000100B	;BIGBL
		BYTE	10000001B+1	;JOHBB
		BYTE	00100001B	;HACHI
		BYTE	00000100B+2	;SHSAI
		BYTE	00000011B  	;SHTAM
		BYTE	00000001B	;TELSA
		BYTE	00000011B  	;TRAP0
		BYTE	00000011B  	;BAAR0
		BYTE	00000011B  	;BAAR1
		BYTE	00000000B	;HBTAM
		BYTE	00000000B	;AMENB 
		BYTE	00000100B	;BABU2 
		BYTE	00000100B+1	;MEDAM 
		BYTE	00000100B+1	;MEDA2 
		BYTE	00000010B+1	;SKELT 
		BYTE	00000000B+1	;CHIBI 
		BYTE	00000010B  	;CHFIR 
		BYTE	00000000B  	;BIGKO 
;;		BYTE	00010010B  	;BIGKO 
		BYTE	00000000B  	;BKFIR 
		BYTE	00000000B  	;HARI0 
		BYTE	00000010B  	;MIIRA 
		BYTE	00000111B  	;PATAR
		BYTE	00000000B  	;PATAM
		BYTE	00000001B  	;KAM01
		BYTE	00000001B  	;SLIME
		BYTE	10000111B  	;HANDS
		BYTE	00000110B	;SKELB
		BYTE	00000000B	;MOTSB
		BYTE	10000011B	;BYOYN
		BYTE	00000010B	;AYASI
		BYTE	00100010B	;MEMER
		BYTE	00100010B	;MEMEL
		BYTE	00100010B	;MEMED
		BYTE	00100010B	;MEMEU
        	BYTE	00000100B	;PENGI
        	BYTE	00000011B	;FISH0
        	BYTE	00000101B	;MAGIC
        	BYTE	00000001B	;KUROR
        	BYTE	00000001B	;KUROD
        	BYTE	00000100B	;DACHO
        	BYTE	00000001B	;USAGI
        	BYTE	00000010B	;OOOMU
        	BYTE	00001000B	;ICMAN
        	BYTE	00001000B	;ICBOS
        	BYTE	10000000B	;ICEBG
        	BYTE	00100001B	;ICTAM
        	BYTE	00000011B	;TEKI0
        	BYTE	00000011B	;TEKI1
        	BYTE	00000011B	;SKEL2
        	BYTE	00000010B	;PATA0
        	BYTE	00000010B	;PATA1
        	BYTE	00001000B	;LIKE0
        	BYTE	10001111B	;POLIW
		BYTE	10100001B	;RINGO
		BYTE	10000001B	;HELP1
		BYTE	10000000B	;DOKN0
		BYTE	10000000B	;DOKN1
		BYTE	10000000B	;DOKN2
		BYTE	10000000B	;DOKN3
		BYTE	10100001B	;BEE00
		BYTE	10000000B	;SEKBN
		BYTE	10000000B+1	;TAKAR
		BYTE	10000000B+1	;BAKDN
		BYTE	10000110B	;SARKK
		BYTE	10000001B	;TEKBB
		BYTE	10000010B	;D_0_9
		BYTE	10000010B	;SITO0
		BYTE	10000000B	;UZUMK
		BYTE	10000000B	;SAMTM
		BYTE	10000011B	;RYOKI
		BYTE	00000110B	;EYEBS
		BYTE	00000000B	;EYETM
		BYTE	00000000B	;EYEBM
		BYTE	00000101B	;NAMAZ
		BYTE	00000011B+1	;SDEMO
		BYTE	00000110B	;IWAGO
		BYTE	00000101B	;AMEBA
		BYTE	00000010B	;Theft
		BYTE	00		;BGBM0
		BYTE	00		;BGBM1
		BYTE	00000101B	;DARUM
		BYTE	00000100B	;IZUMI
		BYTE	00000100B	;TEKTA
		BYTE	00000111B	;WANWAN
		BYTE	00001011B	;KAMBS 
		BYTE	00001100B	;KAMBR 
		BYTE	00001100B	;KAMBB 
		BYTE	00000110B	;CTBOS 
		BYTE	00000110B	;MDARM 
		BYTE	00000011B	;RINEL 
		BYTE	10100100B	;DOOMO 
		BYTE	00000100B	;JFISH 
		BYTE	10000010B	;ABATA 
		BYTE	10000001B	;ZIRAI 
		BYTE	10000011B	;ANAHO 
		BYTE	00001011B+5	;GANON
		BYTE	00001011B+5	;GANO2
; - - - - - - - item
		BYTE	10000000B+1	;HART1
		BYTE	10000001B+1	;RUPYR
		BYTE	10000001B+1	;RUPYY
		BYTE	10000001B+1	;RUPYB
		BYTE	10000010B+1	;BOMB1
		BYTE	10000010B+1	;BOMB2
		BYTE	10000010B+1	;BOMB3
;;;;		BYTE	10000000B+1	;NIKU1
;;;;		BYTE	10000001B+1	;NIKU2
;;;;		BYTE	10000000B+1	;OPTN1
		BYTE	10000000B+1	;TUBO1
		BYTE	10000001B+1	;TUBO2
;;;;		BYTE	10000000B+1	;CRYS1
;;;;		BYTE	10000000B+1	;TRYFR
;;;;		BYTE	10000000B+1	;TRYFY
;;;;		BYTE	10000000B+1	;TRYFB
;;;;		BYTE	10000000B+1	;SPESR
;;;;		BYTE	10000000B+1	;SPESY
;;;;		BYTE	10000000B+1	;SPESB
		BYTE	10000010B+1	;YAAA1
		BYTE	10000010B+1	;YAAA2
		BYTE	10000000B+1	;YOSEI
		BYTE	10000001B+1	;KAGI0
		BYTE	10000000B+1	;KAGI1
		BYTE	10000001B+1	;PTATE
		BYTE	10100000B	;KINOK
		BYTE	10100001B	;SUKAS
		BYTE	10100011B	;MJSY1
		BYTE	10100001B	;UTUWA
		BYTE	10100001B	;UTUBK
;----------------------------------------
		BYTE	10100000B+1	;KTOBJ
		BYTE	10000011B	;LINE0
		BYTE	10000101B	;OOISU
		BYTE	10000011B	;LINE1
		BYTE	10000011B	;LINE2
		BYTE	10000011B	;LINE3
		BYTE	10000011B	;MONOR
;-------------------------------.
ENMDD1		EQU	$	; life
		BYTE	000CH	        ;KARAS
		BYTE	0006H           ;HAGE0
		BYTE	00FFH           ;SKHED
		BYTE	0003H           ;ESW01
		BYTE	0003H           ;ESW02
		BYTE	0003H           ;ESW03
		BYTE	0003H           ;ESW12
		BYTE	0003H           ;ESW04
;- - - - - - 
		BYTE	0002H   	;OCTA1
		BYTE	0012	        ;HAYAB
		BYTE	0004H   	;OCTA3
		BYTE	00FFH   	;NIWAT
		BYTE	0000H           ;OCTAM
		BYTE	0003H   	;NYORO
		BYTE	0012    	;PAKKN
		BYTE	0002H   	;OCTBL
		BYTE	0000H   	;OCTSS
		BYTE	00020     	;HINO0
		BYTE	0004H    	;BUTA0
		BYTE	0004H    	;MOTS1
		BYTE	0000H    	;PLHIN
		BYTE	00FFH		;BABUL ;KWAUS
		BYTE	0000H		;JITON ;KWAU1
		BYTE	0002H		;SHIGE
		BYTE	0003H		;HAYAM
		BYTE	0008 		;GOST0
		BYTE	0000H		;KAJIY
		BYTE	0000H		;YATAM
		BYTE	0000H		;SEKZ4
		BYTE	0000H		;BEECK
		BYTE	0000H		;TAAMA
		BYTE	0000H		;SINUB
		BYTE	0008H		;NAME0
		BYTE	0003H		;REBA1
		BYTE	0008H		;LOPAA
		BYTE	0002H		;ZOOL1
		BYTE	0002H		;ZOOL2
		BYTE	0000H		;WOOD1
		BYTE	0003H		;MOTS0
		BYTE	00FFH		;IWABO
		BYTE	0000H		;JOHOY
		BYTE	0003H		;JIJII
		BYTE	0003H		;BABAA
		BYTE	0003H		;SLEEP
		BYTE	0003H		;NOKOG
		BYTE	0003H		;PENKI
		BYTE	0003H		;KUTUU
		BYTE	0003H		;MEIR0
		BYTE	0003H		;MEIR1
		BYTE	0000H		;ULANI
		BYTE	0003H		;NOPPO
		BYTE	0000H		;PLHIK
		BYTE	0003H		;ONNAA
		BYTE	0003H		;HIGEE
		BYTE	0003H		;MAJOO
		BYTE	0000H		;PLCHK
		BYTE	0003H		;KIANA
		BYTE	0000H		;SAKAS
		BYTE	0000H		;DEMON
		BYTE	0000H		;BOOK0
		BYTE	0000H		;TKBOY
		BYTE	0003H		;BABA1
		BYTE	0002H		;ISHI0
		BYTE	00FFH    	;BARI0
		BYTE	0002H    	;BARI1
		BYTE	0006H    	;HEIS0
		BYTE	0004H    	;HEI00
		BYTE	0008    	;HEIS1
		BYTE	0006H    	;HEIS2
		BYTE	0008    	;HEIS3
		BYTE	0006    	;HEYA0
		BYTE	0004    	;HEYA1
		BYTE	0008    	;HEYA2
		BYTE	0008    	;HEYA3
		BYTE	0008    	;HEBO0
		BYTE	0004     	;ZAKO0
		BYTE	0004H    	;SUNA0
		BYTE	0002H    	;USAG0
		BYTE	0002H    	;HANA0
		BYTE	0002H    	;HANA1
		BYTE	00FFH    	;TAMA0
		BYTE	0008H    	;DOZOO
		BYTE	00FFH    	;ZORAB
		BYTE	0048     	;NOMOS
		BYTE	0010H    	;RANEM
		BYTE	0008H    	;ZORAS
		BYTE	0008H    	;ZORA2
		BYTE	00FFH    	;SEKMV
		BYTE	0002H	        ;KANI0
		BYTE	0000H	        ;TORI0
		BYTE	0000H	        ;RISU0
		BYTE	00FFH	        ;SPARK
		BYTE	00FFH	        ;SPARL
		BYTE	00FFH	        ;CHAN0
		BYTE	00FFH	        ;CHAN1
		BYTE	00FFH	        ;CHAN2
		BYTE	00FFH	        ;CHAN3
		BYTE	00FFH	        ;MEDUS
		BYTE	00FFH	        ;ATARS
		BYTE	00FFH	        ;ARI00
		BYTE	0004H	        ;ARI01
		BYTE	0004H	        ;YASAN
		BYTE	00FFH	        ;HODIR
		BYTE	00FFH	        ;HODIL
		BYTE	00FFH	        ;HODID
		BYTE	00FFH	        ;HODIU
		BYTE	0016    	;TEKU0
		BYTE	0003H    	;TAIHO
		BYTE	0000H    	;HYUUU
		BYTE	0002H    	;NEZU0
		BYTE	0004H    	;HEBI0
		BYTE	0001H    	;KOMO0
		BYTE	00FFH    	;MOTAM 
;
		BYTE	0004H	        ;RIVER
		BYTE	00FFH	        ;BWAKO
		BYTE	0000H    	;OYAGI
		BYTE	0000H    	;BOUSI
		BYTE	0000H    	;SYOBY
		BYTE	0000H    	;HELP0
		BYTE	00FFH    	;BIGBL
		BYTE	0000H    	;JOHBB
		BYTE	0000H    	;HACHI
		BYTE	0060H    	;SHSAI
		BYTE	00FFH    	;SHTAM
		BYTE	0024     	;TELSA
		BYTE	00FFH    	;TRAP0
		BYTE	00FFH    	;BAAR0
		BYTE	00FFH    	;BAAR1
		BYTE	0003H    	;HBTAM
		BYTE	0004H    	;AMENB 
		BYTE	00FFH    	;BABU2 
		BYTE	0016     	;MEDAM 
		BYTE	0008     	;MEDA2 
		BYTE	0008H    	;SKELT 
		BYTE	0000H    	;CHIBI 
		BYTE	00FFH    	;CHFIR 
		BYTE	0032     	;BIGKO 
		BYTE	0020H    	;BKFIR 
		BYTE	0020H    	;HARI0 
		BYTE	0020H    	;MIIRA 
		BYTE	0020H    	;PATAR 
		BYTE	0008H    	;PATAM 
		BYTE	0008H    	;KAM01 
		BYTE	0004H    	;SLIME 
		BYTE	0008H    	;HANDS 
		BYTE	0040H    	;SKELB 
		BYTE	0048     	;MOTSB 
		BYTE	00FFH    	;BYOYN 
		BYTE	0002H    	;AYASI 
		BYTE	00FFH    	;MEMER 
		BYTE	00FFH    	;MEMEL 
		BYTE	00FFH    	;MEMED 
		BYTE	00FFH    	;MEMEU 
		BYTE	0016     	;PENGI 
		BYTE	0004H    	;FISH0 
		BYTE	0002H    	;MAGIC 
		BYTE	0004H    	;KUROR 
		BYTE	0004H    	;KUROD 
		BYTE	0008H    	;DACHO 
		BYTE	0008H    	;USAGI 
		BYTE	0008H    	;OOOMU 
		BYTE	0010H    	;ICMAN 
		BYTE	0064     	;ICBOS 
		BYTE	0064     	;ICEBG 
		BYTE	0008     	;ICTAM 
		BYTE	0004     	;TEKI0 
		BYTE	0008     	;TEKI1 
		BYTE	0004     	;SKEL2 
		BYTE	0004     	;PATA0 
		BYTE	0008     	;PATA1 
		BYTE	0012     	;LIKE0 
		BYTE	0010H    	;POLIW
		BYTE	0000H    	;RINGO
		BYTE	0000H    	;HELP1
		BYTE	0000H    	;DOKN0
		BYTE	0000H    	;DOKN1
		BYTE	0000H    	;DOKN2
		BYTE	0000H    	;DOKN3
		BYTE	0000H    	;BEE00
		BYTE	0000H    	;SEKBN
		BYTE	0000H    	;TAKAR
		BYTE	0000H    	;BAKDN
		BYTE	0000H    	;SARKK
		BYTE	0000H    	;TEKBB
		BYTE	0000H    	;D_0_9
		BYTE	0000H    	;SITO0
		BYTE	0000H    	;UZUMK
		BYTE	0000H    	;SAMTM
		BYTE	0000H    	;RYOKI
		BYTE	128		;EYEBS
		BYTE	48		;EYETM
		BYTE	0FFH		;EYEBM
		BYTE	0FFH		;NAMAZ
		BYTE	0FFH		;SDEMO
		BYTE	0FFH		;IWAGO
		BYTE	008H		;AMEBA
		BYTE	000H		;Theft
		BYTE	00		;BGBM0
		BYTE	00		;BGBM1
		BYTE	032 		;DARUM
		BYTE	00		;IZUMI
		BYTE	08		;TEKTA
		BYTE	05		;WANWAN
		BYTE	040 		;KAMBS
		BYTE	040 		;KAMBR
		BYTE	040 		;KAMBB
		BYTE	090 		;CTBOS
		BYTE	016 		;MDARM
		BYTE	024 		;RINEL
		BYTE	064 		;DOOMO
		BYTE	000 		;JFISH
		BYTE	004 		;ABATA
		BYTE	000 		;ZIRAI
		BYTE	000H 		;ANAHO
		BYTE	0FFH  		;GANON
		BYTE	0FFH  		;GANO2
;-- - - - - - item
		BYTE	000H		;HART1
		BYTE	000H		;RUPYR
		BYTE	000H		;RUPYY
		BYTE	000H		;RUPYB
		BYTE	000H		;BOMB1
		BYTE	000H		;BOMB2
		BYTE	000H		;BOMB3
;;;		BYTE	000H		;NIKU1
;;;		BYTE	000H		;NIKU2
;;;		BYTE	000H		;OPTN1
		BYTE	000H		;TUBO1
		BYTE	000H		;TUBO2
;;;		BYTE	000H		;CRYS1
;;;		BYTE	000H		;TRYFR
;;;		BYTE	000H		;TRYFY
;;;		BYTE	000H		;TRYFB
;;;		BYTE	000H		;SPESR
;;;		BYTE	000H		;SPESY
;;;		BYTE	000H		;SPESB
		BYTE	000H		;YAAA1
		BYTE	000H		;YAAA2
		BYTE	000H		;YOSEI
		BYTE	000H		;KAGI0
		BYTE	000H		;KAGI1
		BYTE	000H		;PTATE
		BYTE	000H		;KINOK
		BYTE	000H		;SUKAS
		BYTE	000H		;MJSY1
		BYTE	000H		;UTUWA
		BYTE	000H		;UTUBK
;----------------------------------------
		BYTE	000H		;KTOBJ
		BYTE	000H     	;LINE0
		BYTE	000H     	;OOISU
		BYTE	000H		;LINE1
		BYTE	000H		;LINE2
		BYTE	000H		;LINE3
		BYTE	000H		;MONOR
;-------------------------------
ENMDD6		EQU	$	; power table 
		BYTE	0083H		;KARAS
		BYTE	0083H		;HAGE0
		BYTE	0081H		;SKHED
		BYTE	0002H		;ESW01
		BYTE	0002H		;ESW02
		BYTE	0002H		;ESW03
		BYTE	0002H		;ESW12
		BYTE	0002H		;ESW04
;- - - - - - 
		BYTE	0001H		;OCTA1
		BYTE	0003H+10H	;HAYAB
		BYTE	0001H		;OCTA3
		BYTE	0001H		;NIWAT
		BYTE	0001H		;OCTAM
		BYTE	0001H+00H	;NYORO
		BYTE	0008 		;PAKKN
		BYTE	0001H		;OCTBL
		BYTE	0001H+00H	;OCTSS
		BYTE	0008H+00H	;HINO0
		BYTE	0005H		;BUTA0
		BYTE	0003H		;MOTS1
		BYTE	0000H+40H	;PLHIN
		BYTE	0004H+00H		;BABUL ;KWAUS
		BYTE	0000H		;JITON ;KWAU1
		BYTE	0002H		;SHIGE
		BYTE	0003H		;HAYAM
		BYTE	0085H		;GOST0
		BYTE	0000H		;KAJIY
		BYTE	0001H		;YATAM
		BYTE	0000H		;SEKZ4
		BYTE	0000H+40H	;BEECK
		BYTE	0000H		;TAAMA
		BYTE	0000H		;SINUB
		BYTE	0006H		;NAME0
		BYTE	0000H		;REBA1
		BYTE	0005H		;LOPAA
		BYTE	0003H		;ZOOL1
		BYTE	0001H		;ZOOL2
		BYTE	0000H		;WOOD1
		BYTE	0000H		;MOTS0
		BYTE	0003H		;IWABO
		BYTE	0000H		;JOHOY
		BYTE	0000H		;JIJII
		BYTE	0000H+00H	;BABAA
		BYTE	0000H		;SLEEP
		BYTE	0000H		;NOKOG
		BYTE	0000H		;PENKI
		BYTE	0000H		;KUTUU
		BYTE	0000H		;MEIR0
		BYTE	0000H		;MEIR1
		BYTE	0000H		;ULANI
		BYTE	0000H		;NOPPO
		BYTE	0000H		;PLHIK
		BYTE	0000H		;ONNAA
		BYTE	0000H		;HIGEE
		BYTE	0000H		;MAJOO
		BYTE	0000H+40H	;PLCHK
		BYTE	0000H		;KIANA
		BYTE	0000H		;SAKAS
		BYTE	0000H		;DEMON
		BYTE	0000H		;BOOK0
		BYTE	0000H		;TKBOY
		BYTE	0000H		;BABA1
		BYTE	0002H		;ISHI0
		BYTE	0002H		;BARI0
		BYTE	0000H		;BARI1
		BYTE	0001H		;HEIS0
		BYTE	0001H		;HEI00
		BYTE	0003H		;HEIS1
		BYTE	0001H		;HEIS2
		BYTE	0003H		;HEIS3
		BYTE	0001H		;HEYA0
		BYTE	0001H		;HEYA1
		BYTE	0003H		;HEYA2
		BYTE	0003H		;HEYA3
		BYTE	0003H		;HEBO0
		BYTE	0001H		;ZAKO0
		BYTE	0003H		;SUNA0
		BYTE	0001H		;USAG0
		BYTE	0001H		;HANA0
		BYTE	0001H		;HANA1
		BYTE	0001H		;TAMA0
		BYTE	0001H		;DOZOO
		BYTE	0001H		;ZORAB
		BYTE	0001H+10H	;NOMOS
		BYTE	0004H+10H	;RANEM
		BYTE	0001H		;ZORAS
		BYTE	0001H		;ZORA2
		BYTE	0002H		;SEKMV
		BYTE	0005H		;KANI0
		BYTE	0000H		;TORI0
		BYTE	0000H		;RISU0
		BYTE	0004H		;SPARK
		BYTE	0004H		;SPARL
		BYTE	0008h		;CHAN0
		BYTE	0008h		;CHAN1
		BYTE	0008h		;CHAN2
		BYTE	0008h		;CHAN3
		BYTE	0004H		;MEDUS
		BYTE	0000H		;ATARS
		BYTE	0004H		;ARI00
		BYTE	0003H		;ARI01
		BYTE	0002H		;YASAN
		BYTE	0002H		;HODIR
		BYTE	0002H		;HODIL
		BYTE	0002H		;HODID
		BYTE	0002H		;HODIU
		BYTE	0003H		;TEKU0
		BYTE	0001H		;TAIHO
		BYTE	0000H		;HYUUU
		BYTE	0000H		;NEZU0
		BYTE	0001H		;HEBI0
		BYTE	0000H+80H	;KOMO0
		BYTE	0005H		;MOTAM
;
		BYTE	0001H		;RIVER
		BYTE	0000H		;BWAKO
		BYTE	0000H		;OYAGI
		BYTE	0000H		;BOUSI
		BYTE	0000H+40H	;SYOBY
		BYTE	0000H		;HELP0
		BYTE	0004H		;BIGBL
		BYTE	0000H		;JOHBB
		BYTE	0000H+00H	;HACHI
		BYTE	0004H+10H	;SHSAI
		BYTE	0004H		;SHTAM
		BYTE	0006H		;TELSA
		BYTE	0004H		;TRAP0
		BYTE	0004H		;BAAR0
		BYTE	0004H		;BAAR1
		BYTE	0004H		;HBTAM
		BYTE	0003H		;AMENB
		BYTE	0004H		;BABU2
		BYTE	0004H		;MEDAM
		BYTE	0004H		;MEDA2
		BYTE	0001H		;SKELT
		BYTE	0004H		;CHIBI
		BYTE	0004H		;CHFIR
		BYTE	0005H+10H	;BIGKO
		BYTE	0005H		;BKFIR
		BYTE	0004H		;HARI0
		BYTE	0005H		;MIIRA
		BYTE	0005H+10H	;PATAR
		BYTE	0005H+10H	;PATAM
		BYTE	0003H		;KAM01
		BYTE	0005H		;SLIME
		BYTE	0000H		;HANDS
		BYTE	0005H		;SKELB
		BYTE	0005H+10H	;MOTSB
		BYTE	0005H		;BYOYN
		BYTE	0005H		;AYASI
		BYTE	0006H		;MEMER
		BYTE	0006H		;MEMEL
		BYTE	0006H		;MEMED
		BYTE	0006H		;MEMEU
		BYTE	0005H		;PENGI
		BYTE	0003H		;FISH0
		BYTE	0006H		;MAGIC
		BYTE	0005H		;KUROR
		BYTE	0005H		;KUROD
		BYTE	0003H		;DACHO
		BYTE	0003H		;USAGI
		BYTE	0003H		;OOOMU
		BYTE	0006H		;ICMAN
		BYTE	0007H+10H	;ICBOS
		BYTE	0005H+10H	;ICEBG
		BYTE	0005H+10H	;ICTAM
		BYTE	0005H		;TEKI0
		BYTE	0005H		;TEKI1
		BYTE	0001H		;SKEL2
		BYTE	0005H+80H  	;PATA0
		BYTE	0003H+80H  	;PATA1
		BYTE	0005H		;LIKE0
		BYTE	0004H		;POLIW
		BYTE	0000H		;RINGO
		BYTE	0000H		;HELP1
		BYTE	0000H		;DOKN0
		BYTE	0000H		;DOKN1
		BYTE	0000H		;DOKN2
		BYTE	0000H		;DOKN3
		BYTE	0000H+00H	;BEE00
		BYTE	0000H		;SEKBN
		BYTE	0000H		;TAKAR
		BYTE	0000H		;BAKDN
		BYTE	0000H		;SARKK
		BYTE	0000H		;TEKBB
		BYTE	0000H		;D_0_9
		BYTE	0000H		;SITO0
		BYTE	0000H    	;UZUMK
		BYTE	0000H		;SAMTM
		BYTE	0000H		;RYOKI
		BYTE	0007H+10H	;EYEBS
		BYTE	0007H+10H	;EYETM
		BYTE	0005H		;EYEBM
		BYTE	0005H		;NAMAZ
		BYTE	0005H		;SDEMO
		BYTE	0004H		;IWAGO
		BYTE	0003H		;AMEBA
		BYTE	0002H		;Theft
		BYTE	0000H+10H	;BGBM0
		BYTE	0000H		;BGBM1
		BYTE	0006H		;DARUM
		BYTE	0000H		;IZUMI
		BYTE	0005H		;TEKTA
		BYTE	0007H		;WANWAN
		BYTE	0007H+10H	;KAMBS
		BYTE	0007H+10H	;KAMBR
		BYTE	0007H+10H	;KAMBB
		BYTE	0005H+10H	;CTBOS
		BYTE	0007H		;MDARM
		BYTE	0006H		;RINEL
		BYTE	0000H+00H+10H	;DOOMO
		BYTE	0000H+00H	;JFISH
		BYTE	0003H+00H	;ABATA
		BYTE	0003H+00H	;ZIRAI
		BYTE	0000H		;ANAHO
		BYTE	0009H+10H	;GANON
		BYTE	0009H+10H	;GANO2
; - - - - - - - item
		BYTE	0000H		;HART1
		BYTE	0000H		;RUPYR
		BYTE	0000H		;RUPYY
		BYTE	0000H		;RUPYB
		BYTE	0000H		;BOMB1
		BYTE	0000H		;BOMB2
		BYTE	0000H		;BOMB3
;;;		BYTE	0000H		;NIKU1
;;;		BYTE	0000H		;NIKU2
;;;		BYTE	0000H		;OPTN1
		BYTE	0000H		;TUBO1
		BYTE	0000H		;TUBO2
;;;		BYTE	0000H		;CRYS1
;;;		BYTE	0000H		;TRYFR
;;;		BYTE	0000H		;TRYFY
;;;		BYTE	0000H		;TRYFB
;;;		BYTE	0000H		;SPESR
;;;		BYTE	0000H		;SPESY
;;;		BYTE	0000H		;SPESB
		BYTE	0000H		;YAAA1
		BYTE	0000H		;YAAA2
		BYTE	0000H+10H	;YOSEI
		BYTE	0000H		;KAGI0
		BYTE	0000H		;KAGI1
		BYTE	0000H		;PTATE
		BYTE	0000H		;KINOK
		BYTE	0000H		;SUKAS
		BYTE	0000H		;MJSY1
		BYTE	0000H		;UTUWA
		BYTE	0000H		;UTUBK
;----------------------------------------
		BYTE	0000H		;KTOBJ
		BYTE	0000H		;LINE0
		BYTE	0000H		;OOISU
		BYTE	0000H		;LINE1
		BYTE	0000H		;LINE2
		BYTE	0000H		;LINE3
		BYTE	0000H		;MONOR
;-------------------------------
ENMDD2		EQU	$	; COLOR ETC.
		BYTE	00011001B	;KARAS
		BYTE	00001011B       ;HAGE0
		BYTE	00011011B       ;SKHED
		BYTE	01001011B       ;ESW01
		BYTE	01000001B       ;ESW02
		BYTE	01000001B       ;ESW03
		BYTE	01000001B       ;ESW12
		BYTE	01001101B       ;ESW04
;- - - - - - 
		BYTE	00011101B	;OCTA1
		BYTE	00000001B	;HAYAB
		BYTE	00011101B	;OCTA3
		BYTE	00011001B	;NIWAT
		BYTE	10001101B	;OCTAM
		BYTE	00011011B	;NYORO
		BYTE	00001001B	;PAKKN
		BYTE	10011101B	;OCTBL
		BYTE	00111101B	;OCTSS
		BYTE	00000001B	;HINO0
		BYTE	00001001B	;BUTA0
		BYTE	00010001B	;MOTS1
		BYTE	01000000B	;PLHIN
		BYTE	00000001B	;BABUL ;KWAUS
		BYTE	01001101B	;JITON ;KWAU1
		BYTE	00011001B	;SHIGE
		BYTE	00000111B	;HAYAM
		BYTE	00011101B	;GOST0
		BYTE	01011001B	;KAJIY
		BYTE	10000000B	;YATAM
		BYTE	01001101B	;SEKZ4
		BYTE	01000000B	;BEECK
		BYTE	00000001B	;TAAMA
		BYTE	01001001B	;SINUB
		BYTE	00011011B	;NAME0
		BYTE	01000001B	;REBA1
		BYTE	00000011B	;LOPAA
		BYTE	00010011B	;ZOOL1
		BYTE	00010101B	;ZOOL2
		BYTE	01000001B	;WOOD1
		BYTE	00011000B	;MOTS0
		BYTE	00011011B	;IWABO
		BYTE	01000001B	;JOHOY
		BYTE	01000111B	;JIJII
		BYTE	00001111B	;BABAA
		BYTE	01001001B	;SLEEP
		BYTE	01001011B	;NOKOG
		BYTE	01001101B	;PENKI
		BYTE	01000001B	;KUTUU
		BYTE	01000111B	;MEIR0
		BYTE	01001001B	;MEIR1
		BYTE	01001101B	;ULANI
		BYTE	01001001B	;NOPPO
		BYTE	01000000B	;PLHIK
		BYTE	01001101B	;ONNAA
		BYTE	01000111B	;HIGEE
		BYTE	01001001B	;MAJOO
		BYTE	01000001B	;PLCHK
		BYTE	01110100B	;KIANA
		BYTE	01000111B	;SAKAS
		BYTE	01011011B	;DEMON
		BYTE	01011000B	;BOOK0
		BYTE	01010001B	;TKBOY
		BYTE	01001001B	;BABA1
		BYTE	00011101B	;ISHI0
		BYTE	01011101B	;BARI0
		BYTE	00000011B	;BARI1
		BYTE	00011001B	;HEIS0
		BYTE	00011011B	;HEI00
		BYTE	00010111B	;HEIS1
		BYTE	00011001B	;HEIS2
		BYTE	00010111B	;HEIS3
		BYTE	00011001B	;HEYA0
		BYTE	00011011B	;HEYA1
		BYTE	00010111B	;HEYA2
		BYTE	00010111B	;HEYA3
		BYTE	00010111B	;HEBO0
		BYTE	00011011B	;ZAKO0
		BYTE	00001101B	;SUNA0
		BYTE	00001001B	;USAG0
		BYTE	00011001B	;HANA0
		BYTE	00011001B	;HANA1
		BYTE	01001001B	;TAMA0
		BYTE	01011101B	;DOZOO
		BYTE	01011011B	;ZORAB
		BYTE	01001001B	;NOMOS
		BYTE	00001101B	;RANEM
		BYTE	00000011B	;ZORAS
		BYTE	00010011B	;ZORA2
		BYTE	01000001B	;SEKMV
		BYTE	00011011B	;KANI0
		BYTE	01011011B	;TORI0
		BYTE	01011101B	;RISU0
		BYTE	01000011B	;SPARK
		BYTE	01000011B	;SPARL
		BYTE	01001101B	;CHAN0
		BYTE	01001101B	;CHAN1
		BYTE	01001101B	;CHAN2
		BYTE	01001101B	;CHAN3
		BYTE	01001101B	;MEDUS
		BYTE	01001001B	;ATARS
		BYTE	00000001B	;ARI00
		BYTE	00000000B	;ARI01
		BYTE	01000001B	;YASAN
		BYTE	01001101B	;HODIR
		BYTE	01001101B	;HODIL
		BYTE	01001101B	;HODID
		BYTE	01001101B	;HODIU
		BYTE	00011101B	;TEKU0
		BYTE	00001001B	;TAIHO
		BYTE	11000100B	;HYUUU
		BYTE	00001101B	;NEZU0
		BYTE	00001101B	;HEBI0
		BYTE	00001001B	;KOMO0
		BYTE	00000011B	;MOTAM
;
		BYTE	00000011B	;RIVER
		BYTE	01001011B	;BWAKO
		BYTE	01000111B	;OYAGI
		BYTE	01000111B	;BOUSI
		BYTE	01001001B	;SYOBY
		BYTE	01001001B	;HELP0
		BYTE	01000001B	;BIGBL
		BYTE	01000111B	;JOHBB
		BYTE	00110110B	;HACHI
		BYTE	10001011B	;SHSAI
		BYTE	01001001B	;SHTAM
		BYTE	00011101B	;TELSA
		BYTE	01001001B	;TRAP0
		BYTE	01000011B	;BAAR0
		BYTE	01000011B	;BAAR1
		BYTE	01000011B	;HBTAM
		BYTE	00001011B	;AMENB
		BYTE	01000001B	;BABU2
		BYTE	00001101B	;MEDAM
		BYTE	00000111B	;MEDA2
		BYTE	00001011B	;SKELT
		BYTE	00011101B	;CHIBI
		BYTE	01000011B	;CHFIR
		BYTE	00001101B	;BIGKO
		BYTE	01000011B	;BKFIR
		BYTE	00001101B	;HARI0
		BYTE	00011101B	;MIIRA
		BYTE	01001101B	;PATAR
		BYTE	01001101B	;PATAM
		BYTE	00011011B	;KAM01
		BYTE	00011011B	;SLIME
		BYTE	00001010B	;HANDS
		BYTE	00001011B	;SKELB
		BYTE	00000000B	;MOTSB
		BYTE	00000101B	;BYOYN
		BYTE	00001101B	;AYASI
		BYTE	00000001B	;MEMER
		BYTE	00000001B	;MEMEL
		BYTE	00000001B	;MEMED
		BYTE	00000001B	;MEMEU
		BYTE	00001011B	;PENGI
		BYTE	00000101B	;FISH0
		BYTE	00000001B	;MAGIC
		BYTE	00000001B	;KUROR
		BYTE	00000001B	;KUROD
		BYTE	00000111B	;DACHO
		BYTE	00010111B	;USAGI
		BYTE	00011001B	;OOOMU
		BYTE	00001101B	;ICMAN
		BYTE	00001101B	;ICBOS
		BYTE	10000000B	;ICEBG
		BYTE	01001101B	;ICTAM
		BYTE	00011001B	;TEKI0
		BYTE	00010111B	;TEKI1
		BYTE	00011001B	;SKEL2
		BYTE	00001011B	;PATA0
		BYTE	00001001B	;PATA1
		BYTE	00001101B	;LIKE0
		BYTE	01001010B	;POLIW
		BYTE	00010010B	;RINGO
		BYTE	01001001B	;HELP1
		BYTE	11000011B	;DOKN0
		BYTE	11000011B	;DOKN1
		BYTE	11000011B	;DOKN2
		BYTE	11000011B	;DOKN3
		BYTE	01110110B	;BEE00
		BYTE	01000000B	;SEKBN
		BYTE	01011001B	;TAKAR
		BYTE	01000001B	;BAKDN
		BYTE	01011000B	;SARKK
		BYTE	01001111B	;TEKBB
		BYTE	01110011B	;D_0_9
		BYTE	01011011B	;SITO0
		BYTE	01000100B	;UZUMK
		BYTE	01000001B	;SAMTM
		BYTE	01010001B	;RYOKI
		BYTE	00001010B	;EYEBS
		BYTE	00001011B	;EYETM
		BYTE	00001011B	;EYEBM
		BYTE	01001011B	;NAMAZ
		BYTE	00000000B	;SDEMO
		BYTE	01000000B	;IWAGO
		BYTE	01011011B	;AMEBA
		BYTE	00001101B	;Theft
		BYTE	00000000B	;BGBM0
		BYTE	00000000B	;BGBM1
		BYTE	00001101B	;DARUM
		BYTE	01001011B	;IZUMI
		BYTE	00001011B	;TEKTA
		BYTE	01011001B	;WANWAN
		BYTE	01000001B	;KAMBS
		BYTE	00001011B	;KAMBR
		BYTE	00001101B	;KAMBB
		BYTE	00000001B	;CTBOS
		BYTE	00001101B	;MDARM
		BYTE	00001101B	;RINEL
		BYTE	00000000B	;DOOMO
		BYTE	01010000B	;JFISH
		BYTE	01001100B	;ABATA
		BYTE	01000100B	;ZIRAI
		BYTE	01010001B	;ANAHO
		BYTE	00000001B	;GANON
		BYTE	00000001B	;GANO2
; - - - - - - -
		BYTE	11110010B	;HART1
;
		BYTE	11111000B	;RUPYR
		BYTE	11110100B	;RUPYY
		BYTE	11110010B	;RUPYB
;
;;		BYTE	11110010B	;RUPYR
;;		BYTE	11111000B	;RUPYY
;;		BYTE	11110100B	;RUPYB
;
		BYTE	11010100B	;BOMB1
		BYTE	11010100B	;BOMB2
		BYTE	11010100B	;BOMB3
;;;		BYTE	11110010B	;NIKU1
;;;		BYTE	11110010B	;NIKU2
;;;		BYTE	11010000B	;OPTN1
		BYTE	11111000B	;TUBO1
		BYTE	11111000B	;TUBO2
;;;		BYTE	11010000B	;CRYS1
;;;		BYTE	11010010B	;TRYFR
;;;		BYTE	11010100B	;TRYFY
;;;		BYTE	11010110B	;TRYFB
;;;		BYTE	11010010B	;SPESR
;;;		BYTE	11010100B	;SPESY
;;;		BYTE	11010110B	;SPESB
		BYTE	11110100B	;YAAA1
		BYTE	11110100B	;YAAA2
		BYTE	11011000B	;YOSEI
		BYTE	11111000B	;KAGI0
		BYTE	11011000B	;KAGI1
		BYTE	11011111B	;PTATE
		BYTE	11001000B	;KINOK
		BYTE	01101001B	;SUKAS
		BYTE	11000001B	;MJSY1
		BYTE	11010010B	;UTUWA
		BYTE	11010010B	;UTUBK
;----------------------------------------
		BYTE	11011100B	;KTOBJ
		BYTE	11000111B	;LINE0
		BYTE	11000001B	;OOISU
		BYTE	11000111B	;LINE1
		BYTE	11000111B	;LINE2
		BYTE	11000111B	;LINE3
		BYTE	11000001B	;MONOR
;-------------------------------
;----OBJ hit range---------------------------
ENMDD3		EQU	$
		BYTE	00000000B	;KARAS
		BYTE	00000000B       ;HAGE0
		BYTE	00000000B       ;SKHED
		BYTE	01000011B       ;ESW01
		BYTE	01000011B       ;ESW02
		BYTE	01000011B       ;ESW03
		BYTE	01000011B       ;ESW12
		BYTE	01000011B       ;ESW04
;- - - - - - 
		BYTE	00000000B	;OCTA1
		BYTE	00000000B	;HAYAB
		BYTE	00000000B	;OCTA3
		BYTE	00000000B	;NIWAT
		BYTE	00011100B	;OCTAM	; onry 1 point BG check 
		BYTE	00000000B	;NYORO
		BYTE	00000000B	;PAKKN
		BYTE	00000010B	;OCTBL
		BYTE	00000001B	;OCTSS
		BYTE	00000011B	;HINO0
		BYTE	00000000B	;BUTA0
		BYTE	00000000B	;MOTS1
		BYTE	00000011B	;PLHIN
		BYTE	11000000B	;BABUL ;KWAUS
		BYTE	00000111B	;JITON ;KWAU1
		BYTE	00000000B	;SHIGE
		BYTE	00000000B	;HAYAM
		BYTE	00000000B	;GOST0
		BYTE	00000111B	;KAJIY
		BYTE	01000101B	;YATAM
		BYTE	01000011B	;SEKZ4
		BYTE	00000000B	;BEECK
		BYTE	01000000B	;TAAMA
		BYTE	00001101B	;SINUB
		BYTE	00000000B	;NAME0
		BYTE	00000000B	;REBA1
		BYTE	00000000B	;LOPAA
		BYTE	00000000B	;ZOOL1
		BYTE	00000000B	;ZOOL2
		BYTE	00000000B	;WOOD1
		BYTE	00000000B	;MOTS0
		BYTE	00000000B	;IWABO
		BYTE	00000111B	;JOHOY
;
		BYTE	00000111B	;JIJII
		BYTE	00000111B	;BABAA
		BYTE	00000111B	;SLEEP
		BYTE	00000111B	;NOKOG
		BYTE	00000111B	;PENKI
		BYTE	00001101B	;KUTUU
		BYTE	00000111B	;MEIR0
		BYTE	00000111B	;MEIR1
		BYTE	00000111B	;ULANI
		BYTE	00000111B	;NOPPO
		BYTE	00000011B	;PLHIK
		BYTE	00000111B	;ONNAA 00001101B
		BYTE	00000111B	;HIGEE
		BYTE	00000111B	;MAJOO
		BYTE	01000000B	;PLCHK
		BYTE	00000011B	;KIANA
		BYTE	00000111B	;SAKAS
		BYTE	00001101B	;DEMON
		BYTE	00000000B	;BOOK0
		BYTE	00000111B	;TKBOY
		BYTE	00000111B	;BABA1 00001101B
		BYTE	00000000B	;ISHI0
		BYTE	00000000B	;BARI0
		BYTE	00001001B	;BARI1
		BYTE	00010010B	;HEIS0
		BYTE	00010010B	;HEI00
		BYTE	00010010B	;HEIS1
		BYTE	00010010B	;HEIS2
		BYTE	00010010B	;HEIS3
		BYTE	00010010B	;HEYA0
		BYTE	00010010B	;HEYA1
		BYTE	00010010B	;HEYA2
		BYTE	00010010B	;HEYA3
		BYTE	00010010B	;HEBO0
		BYTE	00010010B	;ZAKO0
		BYTE	00000000B	;SUNA0
		BYTE	00000000B	;USAG0
		BYTE	00000000B	;HANA0
		BYTE	00000000B	;HANA1
		BYTE	10000000B	;TAMA0
		BYTE	00010010B	;DOZOO
		BYTE	00001001B	;ZORAB
		BYTE	00001001B	;NOMOS
		BYTE	00000000B	;RANEM
		BYTE	01000000B	;ZORAS
		BYTE	00000000B	;ZORA2
		BYTE	00001100B	;SEKMV
		BYTE	00000000B	;KANI0
		BYTE	00000000B	;TORI0
		BYTE	00000000B	;RISU0
		BYTE	01000000B	;SPARK
		BYTE	01000000B	;SPARL
		BYTE	00010000B	;CHAN0
		BYTE	00010000B	;CHAN1
		BYTE	00101110B	;CHAN2
		BYTE	00101110B	;CHAN3
		BYTE	01000000B	;MEDUS
		BYTE	00011110B	;ATARS
		BYTE	01010011B	;ARI00
		BYTE	00000000B	;ARI01
		BYTE	00001010B	;YASAN
		BYTE	00000000B	;HODIR
		BYTE	00000000B	;HODIL
		BYTE	00000000B	;HODID
		BYTE	00000000B	;HODIU
		BYTE	00010010B	;TEKU0
		BYTE	00010010B	;TAIHO
		BYTE	01000000B	;HYUUU
		BYTE	00000000B	;NEZU0
		BYTE	00000000B	;HEBI0
		BYTE	01000000B	;KOMO0
		BYTE	00011001B	;MOTAM
;
		BYTE	00000000B	;RIVER
		BYTE	00000000B	;BWAKO
		BYTE	00001010B	;OYAGI
		BYTE	00001101B	;BOUSI
		BYTE	00001010B	;SYOBY
		BYTE	00001010B	;HELP0
		BYTE	10000000B	;BIGBL
		BYTE	00001010B	;JOHBB
		BYTE	01000001B	;HACHI
		BYTE	00000000B	;SHSAI
		BYTE	01000000B	;SHTAM
		BYTE	00000000B	;TELSA
		BYTE	01001001B	;TRAP0
		BYTE	00000000B	;BAAR0
		BYTE	00000000B	;BAAR1
		BYTE	11000000B	;HBTAM
		BYTE	00000000B	;AMENB
		BYTE	01000000B	;BABU2
		BYTE	00000000B	;MEDAM
		BYTE	00000000B	;MEDA2
		BYTE	01000000B	;SKELT
		BYTE	00000000B	;CHIBI
		BYTE	00000000B	;CHFIR
		BYTE	00001001B	;BIGKO
		BYTE	10000000B	;BKFIR
		BYTE	11000000B	;HARI0
		BYTE	00000000B	;MIIRA
		BYTE	01000000B	;PATAR
		BYTE	00000000B	;PATAM
		BYTE	00000000B	;KAM01
		BYTE	10000000B	;SLIME
		BYTE	00000000B	;HANDS
		BYTE	00000000B	;SKELB
		BYTE	00011000B	;MOTSB
		BYTE	01011010B	;BYOYN
		BYTE	00000000B	;AYASI
		BYTE	11010100B	;MEMER
		BYTE	11010100B	;MEMEL
		BYTE	11010100B	;MEMED
		BYTE	11010100B	;MEMEU
		BYTE	00000000B	;PENGI
		BYTE	01000000B	;FISH0
		BYTE	00000000B	;MAGIC
		BYTE	10000000B	;KUROR
		BYTE	10000000B	;KUROD
		BYTE	01000000B	;DACHO
		BYTE	01000000B	;USAGI
		BYTE	01000000B	;OOOMU 
		BYTE	00000000B	;ICMAN 
		BYTE	00001001B	;ICBOS 
		BYTE	00011101B	;ICEBG 
		BYTE	00000000B	;ICTAM
		BYTE	00000000B	;TEKI0
		BYTE	00000000B	;TEKI1
		BYTE	00000000B	;SKEL2
		BYTE	00000000B	;PATA0
		BYTE	00000000B	;PATA1
		BYTE	00000000B	;LIKE0
		BYTE	00000000B	;POLIW
		BYTE	00000000B	;RINGO
		BYTE	00001010B	;HELP1
		BYTE	00011011B	;DOKN0
		BYTE	00011011B	;DOKN1
		BYTE	00011011B	;DOKN2
		BYTE	00011011B	;DOKN3
		BYTE	01000001B	;BEE00
		BYTE	00000000B	;SEKBN
		BYTE	00000011B	;TAKAR
		BYTE	00000111B	;BAKDN
		BYTE	00000111B	;SARKK
		BYTE	00000011B	;TEKBB
		BYTE	00001010B	;D_0_9
		BYTE	00000000B	;SITO0
		BYTE	00000001B	;UZUMK
		BYTE	00001010B	;SAMTM
		BYTE	00001010B	;RYOKI
		BYTE	00001001B	;EYEBS
		BYTE	00000000B	;EYETM
		BYTE	00000000B	;EYEBM
		BYTE	00000000B	;NAMAZ
		BYTE	00000000B	;SDEMO
		BYTE	00001001B	;IWAGO
		BYTE	00000000B	;AMEBA
		BYTE	00000000B	;Theft
		BYTE	01000000B	;BGBM0
		BYTE	01000000B	;BGBM1
		BYTE	00		;DARUM
		BYTE	00		;IZUMI
		BYTE	00		;TEKTA
		BYTE	00000000B	;WANWAN
		BYTE	10001001B	;KAMBS 
		BYTE	10000000B	;KAMBR 
		BYTE	10000000B	;KAMBB 
		BYTE	00000000B	;CTBOS
		BYTE	00011100B	;MDARM
		BYTE	00000000B	;RINEL
		BYTE	01000000B	;DOOMO
		BYTE	00000000B	;JFISH
		BYTE	00000000B	;ABATA
		BYTE	00011100B	;ZIRAI
		BYTE	00000111B	;ANAHO
		BYTE	00000011B	;GANON
		BYTE	00000011B	;GANO2
; - - - - - - -
		BYTE	01000100B	;HART1
		BYTE	01000100B	;RUPYR
		BYTE	01000100B	;RUPYY
		BYTE	01000100B	;RUPYB
		BYTE	01000100B	;BOMB1
		BYTE	01000100B	;BOMB2
		BYTE	01000100B	;BOMB3
;;;		BYTE	11000100B	;NIKU1
;;;		BYTE	11000100B	;NIKU2
;;;		BYTE	11000100B	;OPTN1
		BYTE	01000100B	;TUBO1
		BYTE	01000100B	;TUBO2
;;;		BYTE	11000100B	;CRYS1
;;;		BYTE	11000100B	;TRYFR
;;;		BYTE	11000100B	;TRYFY
;;;		BYTE	11000100B	;TRYFB
;;;		BYTE	11000100B	;SPESR
;;;		BYTE	11000100B	;SPESY
;;;		BYTE	11000100B	;SPESB
		BYTE	01000100B	;YAAA1
		BYTE	01000100B	;YAAA2
		BYTE	01000011B	;YOSEI
		BYTE	01000100B	;KAGI0
		BYTE	01000011B	;KAGI1
		BYTE	01000000B	;PTATE
		BYTE	11000000B	;KINOK
		BYTE	11000000B	;SUKAS
		BYTE	11000111B	;MJSY1
		BYTE	11000011B	;UTUWA
		BYTE	11000011B	;UTUBK
;----------------------------------------
		BYTE	11000000B	;KTOBJ
		BYTE	00011011B	;LINE0
		BYTE	00001000B	;OOISU
		BYTE	00011011B	;LINE1
		BYTE	00011011B	;LINE2
		BYTE	00011011B	;LINE3
		BYTE	00000011B	;MONOR
;----BG hit range---------------------------
ENMDD7		EQU	$
		BYTE	00000000B	;KARAS
		BYTE	00000000B       ;HAGE0
		BYTE	00000000B       ;SKHED
		BYTE	00000000B       ;ESW01
		BYTE	00000000B       ;ESW02
		BYTE	00000000B       ;ESW03
		BYTE	00000000B       ;ESW12
		BYTE	00000000B       ;ESW04
;- - - - - - 
		BYTE	00000000B	;OCTA1
		BYTE	00001010B	;HAYAB
		BYTE	00000000B	;OCTA3
		BYTE	00000001B	;NIWAT
		BYTE	00110000B	;OCTAM	; onry 1 point BG check 
		BYTE	00000000B	;NYORO
		BYTE	00000000B	;PAKKN
		BYTE	00100000B	;OCTBL
		BYTE	00010000B	;OCTSS
		BYTE	00000000B	;HINO0
		BYTE	00000000B	;BUTA0
		BYTE	00000001B	;MOTS1
		BYTE	00000000B	;PLHIN
		BYTE	00000000B	;BABUL ;KWAUS
		BYTE	00000000B	;JITON ;KWAU1
		BYTE	00000000B	;SHIGE
		BYTE	00000000B	;HAYAM
		BYTE	00000000B	;GOST0
		BYTE	00000000B	;KAJIY
		BYTE	00001000B	;YATAM
		BYTE	00100000B	;SEKZ4
		BYTE	00000000B	;BEECK
		BYTE	00000100B	;TAAMA
		BYTE	00000000B	;SINUB
		BYTE	00000000B	;NAME0
		BYTE	00000000B	;REBA1
		BYTE	00000000B	;LOPAA
		BYTE	00000000B	;ZOOL1
		BYTE	00000000B	;ZOOL2
		BYTE	00000000B	;WOOD1
		BYTE	00000001B	;MOTS0
		BYTE	00000100B	;IWABO
		BYTE	00000000B	;JOHOY
;
		BYTE	00000000B	;JIJII
		BYTE	00000000B	;BABAA
		BYTE	00000000B	;SLEEP
		BYTE	00000000B	;NOKOG
		BYTE	00000000B	;PENKI
		BYTE	00000000B	;KUTUU
		BYTE	00000000B	;MEIR0
		BYTE	00000000B	;MEIR1
		BYTE	00000000B	;ULANI
		BYTE	00000000B	;NOPPO
		BYTE	00000000B	;PLHIK
		BYTE	00000000B	;ONNAA
		BYTE	00000000B	;HIGEE
		BYTE	00000000B	;MAJOO
		BYTE	00000000B	;PLCHK
		BYTE	00000000B	;KIANA
		BYTE	00000000B	;SAKAS
		BYTE	00000000B	;DEMON
		BYTE	00000000B	;BOOK0
		BYTE	00000000B	;TKBOY
		BYTE	00000000B	;BABA1
		BYTE	00000000B	;ISHI0
		BYTE	01101000B	;BARI0
		BYTE	01100000B	;BARI1
		BYTE	01100001B	;HEIS0
		BYTE	01100001B	;HEI00
		BYTE	01100001B	;HEIS1
		BYTE	01100001B	;HEIS2
		BYTE	01100001B	;HEIS3
		BYTE	01100001B	;HEYA0
		BYTE	01100001B	;HEYA1
		BYTE	01100001B	;HEYA2
		BYTE	01100001B	;HEYA3
		BYTE	01100001B	;HEBO0
		BYTE	01100001B	;ZAKO0
		BYTE	00000000B	;SUNA0
		BYTE	00000000B	;USAG0
		BYTE	00000000B	;HANA0
		BYTE	00000000B	;HANA1
		BYTE	00000000B	;TAMA0
		BYTE	00000000B	;DOZOO
		BYTE	00000010B	;ZORAB
		BYTE	00000010B	;NOMOS
		BYTE	00000010B	;RANEM
		BYTE	00000000B	;ZORAS
		BYTE	00000000B	;ZORA2
		BYTE	01110000B	;SEKMV
		BYTE	00000000B	;KANI0
		BYTE	00000000B	;TORI0
		BYTE	00000000B	;RISU0
		BYTE	10010000B	;SPARK
		BYTE	10010000B	;SPARL
		BYTE	00000000B	;CHAN0
		BYTE	00000000B	;CHAN1
		BYTE	00000000B	;CHAN2
		BYTE	00000000B	;CHAN3
		BYTE	00000000B	;MEDUS
		BYTE	00000000B	;ATARS
		BYTE	00000000B	;ARI00
		BYTE	00000000B	;ARI01
		BYTE	00000000B	;YASAN
		BYTE	00000000B	;HODIR
		BYTE	00000000B	;HODIL
		BYTE	00000000B	;HODID
		BYTE	00000000B	;HODIU
		BYTE	01100000B	;TEKU0
		BYTE	01100000B	;TAIHO
		BYTE	00000000B	;HYUUU
		BYTE	00000000B	;NEZU0
		BYTE	00000000B	;HEBI0
		BYTE	00000000B	;KOMO0
		BYTE	00000000B	;MOTAM
;
		BYTE	00000000B	;RIVER
		BYTE	00000000B	;BWAKO
		BYTE	00000000B	;OYAGI
		BYTE	00000000B	;BOUSI
		BYTE	00000000B	;SYOBY
		BYTE	00000000B	;HELP0
		BYTE	10000000B	;BIGBL
		BYTE	00000000B	;JOHBB
		BYTE	00000000B	;HACHI
		BYTE	00000010B	;SHSAI
		BYTE	00000000B	;SHTAM
		BYTE	00000000B	;TELSA
		BYTE	01110000B	;TRAP0
		BYTE	00000000B	;BAAR0
		BYTE	00000000B	;BAAR1
		BYTE	00000000B	;HBTAM
		BYTE	00000000B	;AMENB
		BYTE	00000000B	;BABU2
		BYTE	00000000B	;MEDAM
		BYTE	00000000B	;MEDA2
		BYTE	00000000B	;SKELT
		BYTE	10110000B	;CHIBI
		BYTE	00000000B	;CHFIR
		BYTE	11000010B	;BIGKO
		BYTE	00000000B	;BKFIR
		BYTE	00100000B	;HARI0
		BYTE	00000000B	;MIIRA
		BYTE	00000010B	;PATAR
		BYTE	00000000B	;PATAM
		BYTE	00000000B	;KAM01
		BYTE	00000000B	;SLIME
		BYTE	00000000B	;HANDS
		BYTE	00000000B	;SKELB
		BYTE	00000010B	;MOTSB
		BYTE	00000000B	;BYOYN
		BYTE	10110000B	;AYASI
		BYTE	00000000B	;MEMER
		BYTE	00000000B	;MEMEL
		BYTE	00000000B	;MEMED
		BYTE	00000000B	;MEMEU
		BYTE	00000000B	;PENGI
		BYTE	00000000B	;FISH0
		BYTE	00000000B	;MAGIC
		BYTE	10100000B	;KUROR
		BYTE	10100000B	;KUROD
		BYTE	00000000B	;DACHO
		BYTE	00000000B	;USAGI
		BYTE	00000000B	;OOOMU
		BYTE	00000100B	;ICMAN
		BYTE	00000010B	;ICBOS
		BYTE	00000000B	;ICEBG
		BYTE	00000000B	;ICTAM
		BYTE	00000000B	;TEKI0
		BYTE	00000000B	;TEKI1
		BYTE	00000000B	;SKEL2
		BYTE	00000000B	;PATA0
		BYTE	00000000B	;PATA1
		BYTE	00000000B	;LIKE0
		BYTE	00000000B	;POLIW
		BYTE	00000000B	;RINGO
		BYTE	00000000B	;HELP1
		BYTE	00000000B	;DOKN0
		BYTE	00000000B	;DOKN1
		BYTE	00000000B	;DOKN2
		BYTE	00000000B	;DOKN3
		BYTE	00000000B	;BEE00
		BYTE	00000000B	;SEKBN
		BYTE	00000000B	;TAKAR
		BYTE	00000000B	;BAKDN
		BYTE	00000000B	;SARKK
		BYTE	00000000B	;TEKBB
		BYTE	00000000B	;D_0_9
		BYTE	00000000B	;SITO0
		BYTE	00000000B	;UZUMK
		BYTE	00000000B	;SAMTM
		BYTE	00000000B	;RYOKI
		BYTE	11000010B	;EYEBS
		BYTE	00000000B	;EYETM
		BYTE	00000000B	;EYEBM
		BYTE	00000000B	;NAMAZ
		BYTE	00000000B	;SDEMO
		BYTE	00000000B	;IWAGO
		BYTE	00000000B	;AMEBA
		BYTE	00000100B	;Theft
		BYTE	00		;BGBM0
		BYTE	00		;BGBM1
		BYTE	00		;DARUM
		BYTE	00		;IZUMI
		BYTE	00		;TEKTA
		BYTE	00000000B	;WANWAN
		BYTE	00000010B	;KAMBS 
		BYTE	00000010B	;KAMBR 
		BYTE	00000010B	;KAMBB 
		BYTE	00000010B	;CTBOS
		BYTE	00000000B	;MDARM
		BYTE	00000000B	;RINEL
		BYTE	00000000B	;DOOMO
		BYTE	00000000B	;JFISH
		BYTE	00000000B	;ABATA
		BYTE	00000000B	;ZIRAI
		BYTE	00000000B	;ANAHO
		BYTE	00001010B	;GANON
		BYTE	00001010B	;GANO2
; - - - - - - -
		BYTE	00010000B	;HART1
		BYTE	00010000B	;RUPYR
		BYTE	00010000B	;RUPYY
		BYTE	00010000B	;RUPYB
		BYTE	00000000B	;BOMB1
		BYTE	00000000B	;BOMB2
		BYTE	00000000B	;BOMB3
;;;		BYTE	00000000B	;NIKU1
;;;		BYTE	00000000B	;NIKU2
;;;		BYTE	00000000B	;OPTN1
		BYTE	00010000B	;TUBO1
		BYTE	00010000B	;TUBO2
;;;		BYTE	00000000B	;CRYS1
;;;		BYTE	00000000B	;TRYFR
;;;		BYTE	00000000B	;TRYFY
;;;		BYTE	00000000B	;TRYFB
;;;		BYTE	00000000B	;SPESR
;;;		BYTE	00000000B	;SPESY
;;;		BYTE	00000000B	;SPESB
		BYTE	00010000B	;YAAA1
		BYTE	00010000B	;YAAA2
		BYTE	00000000B	;YOSEI
		BYTE	00010000B	;KAGI0
		BYTE	00000000B	;KAGI1
		BYTE	00000000B	;PTATE
		BYTE	00000000B	;KINOK
		BYTE	00000000B	;SUKAS
		BYTE	00000000B	;MJSY1
		BYTE	00000000B	;UTUWA
		BYTE	00000000B	;UTUBK
;----------------------------------------
		BYTE	00000000B	;KTOBJ
		BYTE	00000000B	;LINE0
		BYTE	00000000B	;OOISU
		BYTE	00000000B	;LINE1
		BYTE	00000000B	;LINE2
		BYTE	00000000B	;LINE3
		BYTE	00000000B	;MONOR
;-------------------------------
ENMDD4 		EQU	$
		BYTE	10000011B	;KARAS
		BYTE	10010110B       ;HAGE0
		BYTE	10000100B       ;SKHED
		BYTE	10000000B       ;ESW01
		BYTE	10000000B       ;ESW02
		BYTE	10000000B       ;ESW03
		BYTE	10000000B       ;ESW12
		BYTE	10000000B       ;ESW04
;- - - - - - 
		BYTE	00000010B	;OCTA1
		BYTE	00000000B	;HAYAB
		BYTE	00000010B	;OCTA3
		BYTE	10000000B	;NIWAT
		BYTE	10100000B	;OCTAM	; onry 1 point BG check 
		BYTE	10000011B	;NYORO
		BYTE	10010111B	;PAKKN
		BYTE	10000000B	;OCTBL
		BYTE	10000000B	;OCTSS
		BYTE	10010100B	;HINO0
		BYTE	10010001B	;BUTA0
		BYTE	00000111B	;MOTS1
		BYTE	00000000B	;PLHIN
		BYTE	10000000B	;BABUL ;KWAUS
		BYTE	00000000B	;JITON ;KWAU1
		BYTE	10000000B	;SHIGE
		BYTE	10010010B	;HAYAM
		BYTE	10010110B	;GOST0
		BYTE	10000000B	;KAJIY
		BYTE	10100000B	;YATAM
		BYTE	00000000B	;SEKZ4
		BYTE	00000000B	;BEECK
		BYTE	00000000B	;TAAMA
		BYTE	10000000B	;SINUB
		BYTE	00000100B	;NAME0
		BYTE	10000000B	;REBA1
		BYTE	10000010B	;LOPAA
		BYTE	00000110B	;ZOOL1
		BYTE	00000110B	;ZOOL2
		BYTE	00000000B	;WOOD1
		BYTE	00000000B	;MOTS0
		BYTE	10000000B	;IWABO
		BYTE	10000000B	;JOHOY
		BYTE	10000000B	;JIJII
		BYTE	10000000B	;BABAA
		BYTE	10000000B	;SLEEP
		BYTE	10000000B	;NOKOG
		BYTE	10000000B	;PENKI
		BYTE	10000000B	;KUTUU
		BYTE	10000000B	;MEIR0
		BYTE	10000000B	;MEIR1
		BYTE	10000000B	;ULANI
		BYTE	10000000B	;NOPPO
		BYTE	10000000B	;PLHIK
		BYTE	10000000B	;ONNAA
		BYTE	10000000B	;HIGEE
		BYTE	10000000B	;MAJOO
		BYTE	10000000B	;PLCHK
		BYTE	10000000B	;KIANA
		BYTE	10000000B	;SAKAS
		BYTE	10000000B	;DEMON
		BYTE	00000000B	;BOOK0
		BYTE	00000000B	;TKBOY
		BYTE	10000000B	;BABA1
		BYTE	10000000B	;ISHI0
		BYTE	10010000B	;BARI0
		BYTE	10000000B	;BARI1
		BYTE	10010001B	;HEIS0
		BYTE	10010001B	;HEI00
		BYTE	10010001B	;HEIS1
		BYTE	10010111B	;HEIS2
		BYTE	10010001B	;HEIS3
		BYTE	10010101B	;HEYA0
		BYTE	10010101B	;HEYA1
		BYTE	10010011B	;HEYA2
		BYTE	10010111B	;HEYA3
		BYTE	00010100B	;HEBO0
		BYTE	10010001B	;ZAKO0
		BYTE	10010010B	;SUNA0
		BYTE	10000001B	;USAG0
		BYTE	10000010B	;HANA0
		BYTE	10000010B	;HANA1
		BYTE	10000000B	;TAMA0
		BYTE	10000101B	;DOZOO
		BYTE	10000000B	;ZORAB
		BYTE	10000000B	;NOMOS
		BYTE	10000000B	;RANEM
		BYTE	00000100B	;ZORAS
		BYTE	00000100B	;ZORA2
		BYTE	10000000B	;SEKMV
		BYTE	10010001B	;KANI0
		BYTE	10000000B	;TORI0
		BYTE	10000000B	;RISU0
		BYTE	10000000B	;SPARK
		BYTE	10000000B	;SPARL
		BYTE	10000000B	;CHAN0
		BYTE	10000000B	;CHAN1
		BYTE	10000000B	;CHAN2
		BYTE	10000000B	;CHAN3
		BYTE	00000000B	;MEDUS
		BYTE	10000000B	;ATARS
		BYTE	10000000B	;ARI00
		BYTE	10000010B	;ARI01
		BYTE	10001010B	;YASAN
		BYTE	10000000B	;HODIR
		BYTE	10000000B	;HODIL
		BYTE	10000000B	;HODID
		BYTE	10000000B	;HODIU
		BYTE	10010010B	;TEKU0
		BYTE	10010001B	;TAIHO
		BYTE	10000000B	;HYUUU
		BYTE	10000010B	;NEZU0
		BYTE	10000001B	;HEBI0
		BYTE	10000001B	;KOMO0
		BYTE	10000000B	;MOTAM
;
		BYTE	10000001B	;RIVER
		BYTE	10000000B	;BWAKO
		BYTE	10000000B	;OYAGI
		BYTE	10000000B	;BOUSI
		BYTE	10000000B	;SYOBY
		BYTE	10000000B	;HELP0
		BYTE	10000000B	;BIGBL
		BYTE	10000000B	;JOHBB
		BYTE	10000000B	;HACHI
		BYTE	10000000B	;SHSAI
		BYTE	10000000B	;SHTAM
		BYTE	10010111B	;TELSA
		BYTE	10000000B	;TRAP0
		BYTE	10000000B	;BAAR0
		BYTE	10000000B	;BAAR1
		BYTE	10000000B	;HBTAM
		BYTE	11000010B	;AMENB
		BYTE	10000000B	;BABU2
		BYTE	00010101B	;MEDAM
		BYTE	00010101B	;MEDA2
		BYTE	00010111B	;SKELT
		BYTE	00000110B	;CHIBI
		BYTE	00000000B	;CHFIR
		BYTE	10000000B	;BIGKO
		BYTE	00000000B	;BKFIR
		BYTE	11000000B	;HARI0
		BYTE	00010011B	;MIIRA
		BYTE	01000000B	;PATAR
		BYTE	00000000B	;PATAM
		BYTE	00000010B	;KAM01
		BYTE	00000110B	;SLIME
		BYTE	00010000B	;HANDS
		BYTE	00010100B	;SKELB
		BYTE	00000000B	;MOTSB
		BYTE	00000000B	;BYOYN
		BYTE	01000000B	;AYASI
		BYTE	00000000B	;MEMER
		BYTE	00000000B	;MEMEL
		BYTE	00000000B	;MEMED
		BYTE	00000000B	;MEMEU
		BYTE	00010011B	;PENGI
		BYTE	01000110B	;FISH0
		BYTE	00010001B	;MAGIC
		BYTE	10000000B	;KUROR
		BYTE	10000000B	;KUROD
		BYTE	00000000B	;DACHO
		BYTE	00000000B	;USAGI
		BYTE	00000000B	;OOOMU
		BYTE	00010000B	;ICMAN
		BYTE	00000000B	;ICBOS
		BYTE	00000000B	;ICEBG
		BYTE	00000000B	;ICTAM
		BYTE	00010110B	;TEKI0
		BYTE	00010110B	;TEKI1
		BYTE	00010110B	;SKEL2
		BYTE	10000001B	;PATA0
		BYTE	10000111B	;PATA1
		BYTE	10000010B	;LIKE0
		BYTE	00000000B	;POLIW
		BYTE	10000000B	;RINGO
		BYTE	10000000B	;HELP1
		BYTE	00000000B	;DOKN0
		BYTE	00000000B	;DOKN1
		BYTE	00000000B	;DOKN2
		BYTE	00000000B	;DOKN3
		BYTE	10000000B	;BEE00
		BYTE	10000000B	;SEKBN
		BYTE	00000000B	;TAKAR
		BYTE	00000000B	;BAKDN
		BYTE	00000000B	;SARKK
		BYTE	00000000B	;TEKBB
		BYTE	00000000B	;D_0_9
		BYTE	00000000B	;SITO0
		BYTE	00000000B	;UZUMK
		BYTE	00000000B	;SAMTM
		BYTE	00000000B	;RYOKI
		BYTE	00000000B	;EYEBS
		BYTE	00000000B	;EYETM
		BYTE	00000000B	;EYEBM
		BYTE	00000000B	;NAMAZ
		BYTE	00000000B	;SDEMO
		BYTE	00000000B	;IWAGO
		BYTE	10000000B	;AMEBA
		BYTE	00000000B	;Theft
		BYTE	00		;BGBM0
		BYTE	00		;BGBM1
		BYTE	00010111B	;DARUM
		BYTE	00		;IZUMI
		BYTE	00010010B	;TEKTA
		BYTE	00000000B	;WANWAN
		BYTE	00000000B	;KAMBS 
		BYTE	00000000B	;KAMBR 
		BYTE	00000000B	;KAMBB 
		BYTE	00000000B	;CTBOS
		BYTE	00010000B	;MDARM
		BYTE	00010111B	;RINEL
		BYTE	00000000B	;DOOMO
		BYTE	01000000B	;JFISH
		BYTE	00000001B	;ABATA
		BYTE	00000000B	;ZIRAI
		BYTE	00000000B	;ANAHO
		BYTE	00000000B	;GANON
		BYTE	00000000B	;GANO2
; - - - - - - -
		BYTE	00000000B	;HART1
		BYTE	00000000B	;RUPYR
		BYTE	00000000B	;RUPYY
		BYTE	00000000B	;RUPYB
		BYTE	00000000B	;BOMB1
		BYTE	00000000B	;BOMB2
		BYTE	00000000B	;BOMB3
;;;		BYTE	00000000B	;NIKU1
;;;		BYTE	00000000B	;NIKU2
;;;		BYTE	00000000B	;OPTN1
		BYTE	00000000B	;TUBO1
		BYTE	00000000B	;TUBO2
;;;		BYTE	00000000B	;CRYS1
;;;		BYTE	00000000B	;TRYFR
;;;		BYTE	00000000B	;TRYFY
;;;		BYTE	00000000B	;TRYFB
;;;		BYTE	00000000B	;SPESR
;;;		BYTE	00000000B	;SPESY
;;;		BYTE	00000000B	;SPESB
		BYTE	00000000B	;YAAA1
		BYTE	00000000B	;YAAA2
		BYTE	01000000B	;YOSEI
		BYTE	00000000B	;KAGI0
		BYTE	00000000B	;KAGI1
		BYTE	00000000B	;PTATE
		BYTE	00000000B	;KINOK
		BYTE	00000000B	;SUKAS
		BYTE	00000000B	;MJSY1
		BYTE	00000000B	;UTUWA
		BYTE	00000000B	;UTUBK
;----------------------------------------
		BYTE	10000000B	;KTOBJ
		BYTE	00000000B	;LINE0
		BYTE	00000000B	;OOISU
		BYTE	00000000B	;LINE1
		BYTE	00000000B	;LINE2
		BYTE	00000000B	;LINE3
		BYTE	00000000B	;MONOR
;-------------------------------
ENMDD5		EQU	$
		BYTE	00000000B	;KARAS
		BYTE	00000000B       ;HAGE0
		BYTE	01000100B       ;SKHED
		BYTE	00100000B       ;ESW01
		BYTE	00100000B       ;ESW02
		BYTE	00100000B       ;ESW03
		BYTE	00100000B       ;ESW12
		BYTE	00100000B       ;ESW04
;- - - - - - 
		BYTE	00000000B	;OCTA1
		BYTE	10000001B	;HAYAB
		BYTE	00000000B	;OCTA3
		BYTE	00000000B	;NIWAT
		BYTE	01001000B	;OCTAM	; onry 1 point BG check 
		BYTE	00000000B	;NYORO
		BYTE	00000000B	;PAKKN
		BYTE	00000000B	;OCTBL
		BYTE	00000000B	;OCTSS
		BYTE	00000000B	;HINO0
		BYTE	00000000B	;BUTA0
		BYTE	00000000B	;MOTS1
		BYTE	00000000B	;PLHIN
		BYTE	00000000B	;BABUL ;KWAUS
		BYTE	00000100B	;JITON ;KWAU1
		BYTE	00000000B	;SHIGE
		BYTE	00000000B	;HAYAM
		BYTE	00000000B	;GOST0
		BYTE	00000000B	;KAJIY
		BYTE	01001000B	;YATAM
		BYTE	00100100B	;SEKZ4
		BYTE	10000000B	;BEECK
		BYTE	00000000B	;TAAMA
		BYTE	00000000B	;SINUB
		BYTE	00000000B	;NAME0
		BYTE	00100000B	;REBA1
		BYTE	00000000B	;LOPAA
		BYTE	00000000B	;ZOOL1
		BYTE	00000000B	;ZOOL2
		BYTE	10000000B	;WOOD1
		BYTE	00000000B	;MOTS0
		BYTE	00000000B	;IWAB0
		BYTE	00000000B	;JOHOY
		BYTE	00000000B	;JIJII
		BYTE	00000000B	;BABAA
		BYTE	00000000B	;SLEEP
		BYTE	00000000B	;NOKOG
		BYTE	00000000B	;PENKI
		BYTE	00000000B	;KUTUU
		BYTE	10000000B	;MEIR0
		BYTE	10000000B	;MEIR1
		BYTE	00000000B	;ULANI
		BYTE	00000000B	;NOPPO
		BYTE	00000000B	;PLHIK
		BYTE	00000000B	;ONNAA
		BYTE	00000000B	;HIGEE
		BYTE	00000000B	;MAJOO
		BYTE	10000000B	;PLCHK
		BYTE	00000000B	;KIANA
		BYTE	10000000B	;SAKAS
		BYTE	00000000B	;DEMON
		BYTE	00000010B	;BOOK0
		BYTE	00000000B	;TKBOY
		BYTE	00000000B	;BABA1
		BYTE	00000000B	;ISHI0
		BYTE	00000100B	;BARI0
		BYTE	10000000B	;BARI1
		BYTE	00000000B	;HEIS0
		BYTE	00000000B	;HEI00
		BYTE	00000000B	;HEIS1
		BYTE	00000000B	;HEIS2
		BYTE	00000000B	;HEIS3
		BYTE	00000000B	;HEYA0
		BYTE	00000000B	;HEYA1
		BYTE	00000000B	;HEYA2
		BYTE	00000000B	;HEYA3
		BYTE	00000000B	;HEBO0
		BYTE	00000000B	;ZAKO0
		BYTE	00000000B	;SUNA0
		BYTE	00000000B	;USAG0
		BYTE	00000000B	;HANA0
		BYTE	00000000B	;HANA1
		BYTE	10000100B	;TAMA0
		BYTE	00000000B	;DOZOO
		BYTE	10000001B	;ZORAB
		BYTE	00000101B	;NOMOS
		BYTE	00000001B	;RANEM
		BYTE	01000000B	;ZORAS
		BYTE	00001000B	;ZORA2
		BYTE	10100000B	;SEKMV
		BYTE	00000000B	;KANI0
		BYTE	00000000B	;TORI0
		BYTE	00000000B	;RISU0
		BYTE	00000000B	;SPARK
		BYTE	00000000B	;SPARL
		BYTE	10000100B	;CHAN0
		BYTE	10000100B	;CHAN1
		BYTE	10000100B	;CHAN2
		BYTE	10000100B	;CHAN3
		BYTE	00001000B	;MEDUS
		BYTE	10000000B	;ATARS
		BYTE	10000000B	;ARI00
		BYTE	10000000B	;ARI01
		BYTE	00000000B	;YASAN
		BYTE	10000000B	;HODIR
		BYTE	10000000B	;HODIL
		BYTE	10000000B	;HODID
		BYTE	10000000B	;HODIU
         	BYTE	00000000B	;TEKU0
		BYTE	00001000B	;TAIHO
		BYTE	10000000B	;HYUUU
		BYTE	00000000B	;NEZU0
		BYTE	00000000B	;HEBI0
		BYTE	00000000B	;KOMO0
		BYTE	01000000B	;MOTAM
;
		BYTE	00000000B	;RIVER
		BYTE	00000000B	;BWAKO
		BYTE	00000000B	;OYAGI
		BYTE	00000000B	;BOUSI
		BYTE	00000000B	;SYOBY
		BYTE	00000000B	;HELP0
		BYTE	00000000B	;BIGBL
		BYTE	00000000B	;JOHBB
		BYTE	00000010B	;HACHI
		BYTE	00000001B	;SHSAI
		BYTE	00000000B	;SHTAM
		BYTE	00000000B	;TELSA
		BYTE	00000100B	;TRAP0
		BYTE	00000000B	;BAAR0
		BYTE	00000000B	;BAAR1
		BYTE	00000000B	;HBTAM
		BYTE	00000000B	;AMENB
		BYTE	10000000B	;BABU2
		BYTE	00000100B	;MEDAM
		BYTE	00000100B	;MEDA2
		BYTE	00000000B	;SKELT
		BYTE	00000000B	;CHIBI
		BYTE	01001000B	;CHFIR
		BYTE	00000000B	;BIGKO
		BYTE	00000000B	;BKFIR
		BYTE	00000100B	;HARI0
		BYTE	00000000B	;MIIRA
		BYTE	00000001B	;PATAR
		BYTE	00000001B	;PATAM
		BYTE	00000000B	;KAM01
		BYTE	00000000B	;SLIME
		BYTE	10000000B	;HANDS
		BYTE	00000000B	;SKELB
		BYTE	00000000B	;MOTSB
		BYTE	00000000B	;BYOYN
		BYTE	01000000B	;AYASI
		BYTE	00001000B	;MEMER
		BYTE	00001000B	;MEMEL
		BYTE	00001000B	;MEMED
		BYTE	00001000B	;MEMEU
		BYTE	00000000B	;PENGI
		BYTE	00000000B	;FISH0
		BYTE	00000000B	;MAGIC
		BYTE	10000000B	;KUROR
		BYTE	10000000B	;KUROD
		BYTE	00000000B	;DACHO
		BYTE	00000000B	;USAGI
		BYTE	00000000B	;OOOMU
		BYTE	00000100B	;ICMAN
		BYTE	00000001B	;ICBOS
		BYTE	00000101B	;ICEBG
		BYTE	00000000B	;ICTAM
		BYTE	00000000B	;TEKI0
		BYTE	00000000B	;TEKI1
		BYTE	00000000B	;SKEL2
		BYTE	00000000B	;PATA0
		BYTE	00000000B	;PATA1
		BYTE	00000000B	;LIKE0
		BYTE	00000100B	;POLIW
		BYTE	00000010B	;RINGO
		BYTE	00000000B	;HELP1
		BYTE	10000000B	;DOKN0
		BYTE	10000000B	;DOKN1
		BYTE	10000000B	;DOKN2
		BYTE	10000000B	;DOKN3
		BYTE	10000010B	;BEE00
		BYTE	10000000B	;SEKBN
		BYTE	00000000B	;TAKAR
		BYTE	00000000B	;BAKDN
		BYTE	10000000B	;SARKK
		BYTE	00000000B	;TEKBB
		BYTE	00000000B	;D_0_9
		BYTE	10000000B	;SITO0
		BYTE	10000000B	;UZUMK
		BYTE	00000000B	;SAMTM
		BYTE	00000000B	;RYOKI
		BYTE	00000001B	;EYEBS
		BYTE	00000001B	;EYETM
		BYTE	01000000B	;EYEBM
		BYTE	00000000B	;NAMAZ
		BYTE	00000000B	;SDEMO
		BYTE	00000100B	;IWAGO
		BYTE	00000000B	;AMEBA
		BYTE	00000000B	;Theft
		BYTE	00		;BGBM0
		BYTE	00		;BGBM1
		BYTE	00		;DARUM
		BYTE	00		;IZUMI
		BYTE	00		;TEKTA
		BYTE	00000100B	;WANWAN
		BYTE	00000101B	;KAMBS 
		BYTE	00000101B	;KAMBR 
		BYTE	00000101B	;KAMBB 
		BYTE	10000000B	;CTBOS
		BYTE	10000000B	;MDARM
		BYTE	00000000B	;RINEL
		BYTE	00000000B	;DOOMO
		BYTE	00000000B	;JFISH
		BYTE	00000000B	;ABATA
		BYTE	00000000B	;ZIRAI
		BYTE	00000000B	;ANAHO
		BYTE	00000000B	;GANON
		BYTE	00000000B	;GANO2
;- - - - - -
		BYTE	00000010B	;HART1
		BYTE	00000010B	;RUPYR
		BYTE	00000010B	;RUPYY
		BYTE	00000010B	;RUPYB
		BYTE	00000010B	;BOMB1
		BYTE	00000010B	;BOMB2
		BYTE	00000010B	;BOMB3
;;;		BYTE	00000010B	;NIKU1
;;;		BYTE	00000010B	;NIKU2
;;;		BYTE	00000010B	;OPTN1
		BYTE	00000010B	;TUBO1
		BYTE	00000010B	;TUBO2
;;;		BYTE	00000010B	;CRYS1
;;;		BYTE	00000010B	;TRYFR
;;;		BYTE	00000010B	;TRYFY
;;;		BYTE	00000010B	;TRYFB
;;;		BYTE	00000010B	;SPESR
;;;		BYTE	00000010B	;SPESY
;;;		BYTE	00000010B	;SPESB
		BYTE	00000010B	;YAAA1
		BYTE	00000010B	;YAAA2
		BYTE	00000010B	;YOSEI
		BYTE	00000010B	;KAGI0
		BYTE	00000010B	;KAGI1
		BYTE	00000010B	;PTATE
		BYTE	00000010B	;KINOK
		BYTE	00000010B	;SUKAS
		BYTE	00000000B	;MJSY1
		BYTE	10000010B	;UTUWA
		BYTE	10000010B	;UTUBK
;----------------------------------------
		BYTE	00001000B	;KTOBJ
		BYTE	10000000B	;LINE0
		BYTE	00100000B	;OOISU
		BYTE	10000000B	;LINE1
		BYTE	10000000B	;LINE2
		BYTE	10000000B	;LINE3
		BYTE	00100000B	;MONOR
;------------------------------
;=================================================================
ENMDST		EQU	$
		JSL	>ENRMCL
		PHY
		PHB
		PHK
		PLB
		LDY	ENMYNO,X
		LDA	ENMDD0,Y
		STA	ENMOD0,X
		LDA	ENMDD1,Y
		STA	ENMOD1,X	;(ENLIFE)
		LDA	ENMDD3,Y
		STA	ENMOD3,X
		LDA	ENMDD4,Y
		STA	ENMOD4,X
		LDA	ENMDD5,Y
		STA	ENMOD5,X
		LDA	ENMDD6,Y
		STA	ENMOD6,X
		LDA	ENMDD7,Y
		STA	ENMOD7,X
;
		LDA	GRNDNO
;
		LDY	<DJFLG
		BEQ	ENMS00
;
		LDA	ERXYCT
ENMS00		EQU	$
		STA	ENGRNO,X	; now ground no set !
		PLB
		PLY
;;;		RTL
ENCLST		EQU	$
		PHY
		PHB
		PHK
		PLB
;
		LDY	ENMYNO,X
		LDA	ENMDD2,Y
		STA	ENMOD2,X
		AND	#0FH
		STA	ENCLOR,X
		PLB
		PLY
		RTL
;----------------------------------------
ENRMCL		EQU	$
		STZ	ENDSPL,X
		STZ	ENATCT,X
;
		STZ	ENXSPD,X
		STZ	ENYSPD,X
		STZ	ENZSPD,X
;
		STZ	ENXSDR,X
		STZ	ENYSDR,X
		STZ	ENZSDR,X
;
		STZ	ENSTAT,X
		STZ	ENCHPT,X
		STZ	ENMUKI,X
		STZ	ENTIM0,X	;
		STZ	ENTIM1,X	;
		STZ	ENTIM2,X	;
		STZ	ENTIM3,X	;
		STZ	ENCMKI,X
		STZ	ENCTFG,X
		STZ	ENCTCT,X
		STZ	ENFLSH,X	;
		STZ	ENCBFG,X
		STZ	ENZPSL,X	;
		STZ	ENLIFE,X	;
		STZ	ENHNFG,X
		STZ	ENHNXS,X
		STZ	ENHNYS,X
		STZ	ENWRK0,X
		STZ	ENWRK1,X
		STZ	ENWRK2,X
		STZ	ENCRTM,X	;
		STZ	ENCONT,X
		STZ	ENNOCR,X	;
		STZ	ENFLCL,X
		STZ	ENCLOR,X	;
		STZ	ENSTTM,X
		STZ	ENDMPW,X
		LDA	#00H
		STA	>ENCACT,X	; Cach cout !
		STA	>ENCAMD,X	; Cach befor mode !
		STA	>ENICMD,X	; Ice mode !
		STA	>ENDSFG,X	; Dash atacked flag !(not item set)
		STA	>ENFRNO,X	; Floor BG no !
		RTL
;
;===============Player atack->Enemy!=====================================================
ATCKDT		EQU	$
;	FF:Stop Long  FE:Ice FD:Fire (Miira)
;	FC:Stop Mid.
;	FB:Stop Srt.	                 
;	FA:Slime. 	                 
;	F9:Fairy.	                 
;	            	 0  1  2  3  4  5  6  7
;			 a  b  c  d  e  f  g  h
		HEX	00,01,20,FF,FC,FB,00,00		;00;buumeran
		HEX	00,02,40,04,00,00,00,00		;01;ken 1
		HEX	00,04,40,02,03,00,00,00		;02; .  2
		HEX	00,08,40,04,00,00,00,00		;03; .  3
		HEX	00,10,40,08,00,00,00,00		;04; .  4
		HEX	00,10,40,08,00,00,00,00		;05; .  4 dush
		HEX	00,04,40,10,00,00,00,00		;06; .  ya
		HEX	00,FF,40,FF,FC,FB,00,00		;07; .  fuck
		HEX	00,04,40,FF,FC,FB,20,00		;08; .  bomb
		HEX	00,64,18,64,00,00,00,00		;09; .  gin no ya
		HEX	00,F9,FA,FF,64,00,00,00		;0A; .  magic powder (shot
;;;;;;;;;		HEX	00,08,40,FF,FB,00,00,00		;0A; .  magic powder (shot
		HEX	00,08,40,FD,04,10,00,00		;0B; .  fire
		HEX	00,08,40,FE,04,00,00,00		;0C; .  ice
		HEX	00,10,40,FD,00,00,00,00		;0D; .  magic fire
		HEX	00,FE,40,10,00,00,00,00		;0E; .        sunder
		HEX	00,20,40,FF,00,00,00,FA		;0F; .        zishin
;		
;		
;		
;--------------------------------------------------------------------
;		
;		
;--------------------------------------------------------------------
;		
;==katsugi OBJ BG hit table ===============================================
KTCRDT		EQU	$
; 			0 1 2 3 4 5 6 7 8 9 A B C D E F
		HEX	0,1,0,0,0,0,0,0,0,0,3,0,0,0,0,0	; 0
;;		HEX	0,1,4,0,0,0,0,0,0,0,3,0,0,0,0,0	; 0
		HEX	1,1,1,1,0,0,0,0,1,1,1,1,0,3,3,3	; 1
		HEX	0,0,0,0,0,0,1,1,4,4,4,4,4,4,4,4	; 2
		HEX	1,1,1,1,1,1,1,1,1,1,0,0,1,1,1,1	; 3
		HEX	0,0,0,0,0,0,0,0,0,0,0,0,4,4,4,4	; 4
		HEX	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	; 5
		HEX	0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1	; 6
		HEX	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	; 7
		HEX	1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1	; 8
		HEX	1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1	; 9
		HEX	1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1	; A
		HEX	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	; B
		HEX	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	; C
		HEX	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	; D
		HEX	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	; E
		HEX	1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1	; F
;
;		
;====================================================================
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%          Randam calc  									 %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
RNDSET		EQU	$
		LDA	02137H
		LDA	0213CH		; H count check !
;
;;		ADC	<KEYA1
;;		ADC	ENXPSL
;;		ADC	PLXPS1
;;		ADC	PLYPS1
		ADC	<FRCNT
		ADC	NRND
		STA	NRND
		RTL
;;;;			LDY		#01H
;;;;			JSR		RS00
;;;;			DEY
;;;;RS00		EQU		$
;;;;		LDY	#00H
;;		LDA	NRND
;;		ASL	    A
;;		ASL	A
;;		SEC
;;		ADC	NRND
;;		STA	NRND
;;		ASL	NRND+1
;;		LDA	#20H
;;		BIT	NRND+1
;;		BCC	RND100
;;		BEQ	RND300
;;		BNE	RND200
;;RND100		EQU	$
;;		BNE	RND300
;;RND200		EQU	$
;;		INC	NRND+1
;;RND300		EQU	$
;;		LDA	NRND+1
;;		EOR	NRND
;;		STA	ENRND       ;,Y
;;		RTL
;====================================================================
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%   		oam index entry sub. for enemy		%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
OAMENT		EQU	$
OAMENT1		EQU	$
		LDY	#00H
		BRA	OEE010
OAMENT2  	EQU	$
		LDY	#02H
		BRA	OEE010
OAMENT3	        EQU	$
		LDY	#04H
		BRA	OEE010
OAMENT4  	EQU	$
		LDY	#06H
		BRA	OEE010
OAMENT5 	EQU	$
		LDY	#08H
		BRA	OEE010
OAMENT6  	EQU	$
		LDY	#0AH
OEE010		EQU	$
		PHB
		PHK
		PLB
		JSR	OE1000
		PLB
		RTL
;------------------------------------------------------------
OAMEDT		EQU	$
		WORD	0171H,0201H,0031H,00C1H,0141H,01D1H
;
;;;		WORD	0181H,0051H,0201H,0101H,01C1H
;;;		HEX	01,80+1 ,00,50+1 ,02,00+1 ,01,00+1 ,01,0C0+1
OAMED2		EQU	$
		WORD	0030H,0050H,0080H,00B0H,00E0H,0110H,0140H,0170H
;;;;;;;;;		WORD	0020H,0050H,0080H,00B0H,00E0H,0110H,0140H,0170H
		WORD	01D0H,01D4H,01DCH,01E0H,01E4H,01ECH,01F0H,01F8H
		WORD	0000H,0004H,0008H,000CH,0010H,0014H,0018H,001CH
		WORD	0030H,0038H,0050H,0068H,0080H,0098H,00B0H,00C8H
;;;;;;;;		WORD	0020H,0038H,0050H,0068H,0080H,0098H,00B0H,00C8H
		WORD	0120H,0124H,0128H,012CH,0130H,0134H,0138H,013CH
		WORD	0140H,0150H,0160H,0170H,0180H,0190H,01A0H,01B8H
;
;;		WORD	0060H,0080H,00A0H,00C0H,00E0H,0100H,0120H,0140H
;;		WORD	0000H,0010H,0020H,0030H,0040H,0010H,0000H,0020H
;;		WORD	01C0H,01C8H,01D0H,01D8H,01E0H,01E8H,01F0H,01F8H
;;		WORD	0000H,0020H,0040H,0060H,0080H,00A0H,00C0H,00E0H
;;		WORD	01B0H,01B4H,01B8H,01BCH,01B0H,01B4H,01B8H,01BCH
;
OE1000		EQU	$
		STA	<WORKE
		STZ	WORKF
		MEM16
		REP	#00100000B
		LDA	NXINDX,Y
		STA	<OAMADR
		CLC
		ADC	<WORKE
		CMP	OAMEDT,Y
		BCC	OE1010		; use oam full ?
;					; yes !
		STY	<WORKC
		STZ	<WORKD
		LDA	OMECNT,Y
		PHA
		INC	A
		STA	OMECNT,Y
		PLA
		AND	#0007H
		ASL	A
		STA	<WORKE
		LDA	<WORKC
		ASL	A
		ASL	A
		ASL	A
		ADC	<WORKE
		TAY	
		LDA	OAMED2,Y
		STA	<OAMADR
		SEC
		BRA	OE0080		
;		
OE1010		EQU	$
;;;		PHA
;;;		LDA	NXINDX,Y
;;;		STA	<OAMADR
;;;		PLA
		STA	NXINDX,Y
;;		CLC
OE0080		EQU	$
		LDA	<OAMADR
		PHA
		LSR	A
		LSR	A
		CLC
		ADC	#OAMSB
		STA	<OSBADR
		PLA
		CLC
		ADC	#OAM
		STA	<OAMADR
		MEM8
		SEP	#00100000B
		LDY	<OAMADR
		RTS		
;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;;%   		oam index entry sub. for enemy		%
;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;OESBDT		EQU	$
;         	BYTE	60H,70H,80H,90H,0A0H,0B0H,0C0H,0D0H
;;
;OAMENT		EQU	$
;		PHB
;		PHK
;		PLB
;		JSR	OE1000
;		PLB
;		RTL
;;---
;OE1000		EQU	$
;		STA	<WORKF
;		LDY	NXINDX
;;;;;		BEQ	OE0050
;		TYA
;		CLC
;		ADC	<WORKF
;		BCS	OE0050
;		STA	NXINDX
;		RTS
;OE0050		EQU	$
;		INC	OMECNT
;		LDA	OMECNT
;		AND	#07H
;		TAY
;		LDA	OESBDT,Y
;		TAY
;		SEC
;		RTS
;;;;		LDY	#060H
;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;;%   		oam index entry sub. for ITEM		%
;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;OESBDT2  	EQU	$
;		BYTE	00H,08H,10H,18H,20H,28H,30H,40H
;;
;OAMENT2		EQU	$
;		PHB
;		PHK
;		PLB
;		JSR	OE2000
;		PLB
;		RTL
;;---
;OE2000		EQU	$
;		STA	<WORKF
;		LDY	NXINDX2
;;;;;;		BEQ	OE00502
;		TYA
;		CLC
;		ADC	<WORKF
;		CMP	#50H
;		BCS	OE00502
;		STA	NXINDX2
;		RTS
;OE00502		EQU	$
;		INC	OMECNT2
;		LDA	OMECNT2
;		AND	#07H
;		TAY
;		LDA	OESBDT2,Y
;		TAY
;		SEC
;		RTS
;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;;%   		oam index entry sub. for ENEMY < PLAYER %
;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;OESBDT3  	EQU	$
;		BYTE	80H,88H,90H,98H,0A0H,0A8H,0ACH,0B0H
;;
;OAMENT3		EQU	$
;		PHB
;		PHK
;		PLB
;		JSR	OE3000
;		PLB
;		RTL
;;---
;OE3000		EQU	$
;		STA	<WORKF
;		LDY	NXINDX3
;		TYA
;		CLC
;		ADC	<WORKF
;;;;;		CMP	#0C0H
;		BCS	OE00503
;		STA	NXINDX3
;		RTS
;OE00503		EQU	$
;		INC	OMECNT3
;		LDA	OMECNT3
;		AND	#07H
;		TAY
;		LDA	OESBDT3,Y
;		TAY
;		SEC
;		RTS
;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;;%   		oam index entry sub. for ENEMY < PLAYER %
;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;OESBDT4  	EQU	$
;		BYTE	00H,20H,40H,60H,080H,0A0H,0C0H,0E0H
;;
;OAMENT4		EQU	$
;		PHB
;		PHK
;		PLB
;		JSR	OE4000
;		PLB
;		RTL
;;;---
;OE4000		EQU	$
;		STA	<WORKF
;		LDY	NXINDX4
;		TYA
;		CLC
;		ADC	<WORKF
;;;;;;		CMP	#0C0H
;		BCS	OE00504
;		STA	NXINDX4
;		RTS
;OE00504		EQU	$
;		INC	OMECNT4
;		LDA	OMECNT4
;		AND	#07H
;		TAY
;		LDA	OESBDT4,Y
;		TAY
;		SEC
;		RTS
;
;======================================
SDLCDT		EQU	$
		HEX	00,80,40
;================================================
SDLRCB		EQU	$
		LDA	BMXPSH,X
		XBA
		LDA	BMXPSL,X
		BRA	SDC010
;================================================
SDLRCP		EQU	$
		LDA	<PLXPS0
		XBA
		LDA	<PLXPS1
		BRA	SDC010
;================================================
SDLRE1		EQU	$
		PHY
		LDY	SOUND1
		BNE	SDLRE10		; Already seted ?
;					; no!
		JSR	SDLR00
		STA	SOUND1
SDLRE10		EQU	$
		PLY
		RTL
;================================================
SDLRE2		EQU	$
		PHY
		LDY	SOUND2
		BNE	SDLRE20
;
		JSR	SDLR00
		STA	SOUND2
SDLRE20		EQU	$
		PLY
		RTL
;================================================
SDLRE3		EQU	$
		PHY
		LDY	SOUND3
		BNE	SDLRE30
;
		JSR	SDLR00
		STA	SOUND3
SDLRE30		EQU	$
		PLY
		RTL
;================================================
SDLR00		EQU	$
		STA	<WORKD
		JSL	>SDLRCE
		ORA	<WORKD
		RTS
;================================================
SDLRCE		EQU	$
		LDA	ENXPSH,X
		XBA
		LDA	ENXPSL,X
;- - - - - - - - - - - -
SDC010		EQU	$
		MEM16
		REP	#20H
		PHX
		LDX	#00H
		SEC
		SBC	<SCCH2
		SEC
		SBC	#00050H
		CMP	#000A0H-50H		
		BCC	SDC020
;
		INX
		CMP	#0000H
		BMI	SDC020
;
		INX
SDC020		EQU	$
		MEM8
		SEP	#20H
		LDA	>SDLCDT,X
		PLX
		RTL
;-------------------------------------
;- - - - - - - - - - 
SDLCD2		EQU	$
		HEX	80,80,80,00,00,40,40,40
SDLRCK		EQU	$
		SEC
		SBC	<SCCH2
;
		LSR	A
		LSR	A
		LSR	A
		LSR	A
		LSR	A
		PHX
		TAX
		LDA	>SDLCD2,X
		PLX
		RTL
;- - - enmey sub - - - -
;======================================================
KURORCD		EQU	$
;- - Eyes - -
; U D
		WORD	00000H,00004H
		HEX	80,43,00,00
		WORD	00000H,00004H
		HEX	80,43,00,00
;
		WORD	00000H,00004H
		HEX	B6,43,00,00
		WORD	00000H,00004H
		HEX	B6,43,00,00
;
		WORD	00000H,00004H
		HEX	B7,43,00,00
		WORD	00008H,00004H
		HEX	80,03,00,00
;
		WORD	00000H,00004H
		HEX	80,43,00,00
		WORD	00008H,00004H
		HEX	B6,03,00,00
;
		WORD	00008H,00004H
		HEX	B7,03,00,00
		WORD	00008H,00004H
		HEX	B7,03,00,00
;
		WORD	00008H,00004H
		HEX	80,03,00,00
		WORD	00008H,00004H
		HEX	80,03,00,00
;L R
		WORD	00004H,00000H
		HEX	80,83,00,00
		WORD	00004H,00000H
		HEX	80,83,00,00
;
		WORD	00004H,00000H
		HEX	B6,83,00,00
		WORD	00004H,00000H
		HEX	B6,83,00,00
;
		WORD	00004H,00000H
		HEX	B7,83,00,00
		WORD	00004H,00008H
		HEX	80,03,00,00
;
		WORD	00004H,00000H
		HEX	80,83,00,00
		WORD	00004H,00008H
		HEX	B6,03,00,00
;
		WORD	00004H,00008H
		HEX	B7,03,00,00
		WORD	00004H,00008H
		HEX	B7,03,00,00
;
		WORD	00004H,00008H
		HEX	80,03,00,00
		WORD	00004H,00008H
		HEX	80,03,00,00
;- - Body - 
;D
		WORD	00000H,0FFF8H
		HEX	4E,0A,00,02
		WORD	00000H,00000H
		HEX	5E,0A,00,02
;
		WORD	00000H,0FFF8H
		HEX	4E,4A,00,02
		WORD	00000H,00000H
		HEX	5E,4A,00,02
;L
		WORD	00008H,00000H
		HEX	6C,0A,00,02
		WORD	00000H,00000H
		HEX	6B,0A,00,02
;
		WORD	00008H,00000H
		HEX	6C,8A,00,02
		WORD	00000H,00000H
		HEX	6B,8A,00,02
;U
		WORD	00000H,00008H
		HEX	4E,8A,00,02
		WORD	00000H,00000H
		HEX	5E,8A,00,02
;
		WORD	00000H,00008H
		HEX	4E,CA,00,02
		WORD	00000H,00000H
		HEX	5E,CA,00,02
;R
		WORD	0FFF8H,00000H
		HEX	6C,4A,00,02
		WORD	00000H,00000H
		HEX	6B,4A,00,02
;
		WORD	0FFF8H,00000H
		HEX	6C,CA,00,02
		WORD	00000H,00000H
		HEX	6B,CA,00,02
;- - - - - - - - - - - - - - - - - - - - - - -
KURORCS		EQU	$
		PHB
		PHK
		PLB
;
		LDA	#00H
		XBA
		LDA	ENCHPT,X
		BMI	KRC090
		MEM16
		REP	#00100000B
		ASL	A
		ASL	A
		ASL	A
;
		ASL	A
		ADC	#KURORCD  
		STA	<WORK8
;
		MEM8
		SEP	#00100000B
;
		LDA	#02H
;;		STA	<WORK6
;;		STZ	<WORK7
;
		JSL	>SETOAML22
;
		PLB
		RTL
;- - - - - - - - - - - - - - - - - -
KRC090		EQU	$
		JSL	>OAMCHKL
		PLB
		RTL
;=================================================================
MAGICCD		EQU	$
		WORD	00000H,0FFF8H
		HEX	B2,00,00,00
		WORD	00008H,0FFF8H
		HEX	B3,00,00,00
		WORD	00000H,00000H
		HEX	88,00,00,02
;
		WORD	00000H,0FFF8H
		HEX	B2,00,00,00
		WORD	00008H,0FFF8H
		HEX	B3,00,00,00
		WORD	00000H,00000H
		HEX	86,00,00,02
;
		WORD	00000H,0FFF8H
		HEX	B2,00,00,00
		WORD	00008H,0FFF8H
		HEX	B3,00,00,00
		WORD	00000H,00000H
		HEX	8C,00,00,02
;
		WORD	00000H,0FFF8H
		HEX	B2,00,00,00
		WORD	00008H,0FFF8H
		HEX	B3,00,00,00
		WORD	00000H,00000H
		HEX	8A,00,00,02
;
		WORD	00000H,0FFF8H
		HEX	B2,00,00,00
		WORD	00008H,0FFF8H
		HEX	B3,00,00,00
		WORD	00000H,00000H
		HEX	8C,40,00,02
;
		WORD	00000H,0FFF8H
		HEX	B2,00,00,00
		WORD	00008H,0FFF8H
		HEX	B3,00,00,00
		WORD	00000H,00000H
		HEX	8A,40,00,02
;
		WORD	00000H,0FFF8H
		HEX	B2,00,00,00
		WORD	00008H,0FFF8H
		HEX	B3,00,00,00
		WORD	00000H,00000H
		HEX	A4,00,00,02
;
		WORD	00000H,0FFF8H
		HEX	B2,00,00,00
		WORD	00008H,0FFF8H
		HEX	B3,00,00,00
		WORD	00000H,00000H
		HEX	8E,00,00,02
;- - Tama data - - 
;MAGTMCD		EQU	$
;;1
;		WORD	0FFFDH,0FFFAH
;		HEX	AA,02,00,00
;		WORD	0000BH,0FFFAH
;		HEX	AA,42,00,00
;;2
;		WORD	0FFFDH,0FFFAH
;		HEX	AA,44,00,00
;		WORD	0000BH,0FFFAH
;		HEX	AA,04,00,00
;;3
;		WORD	00000H,0FFF1H
;		HEX	A8,02,00,02
;		WORD	00000H,0FFF1H
;		HEX	A8,02,00,02
;;4
;		WORD	00000H,0FFF1H
;		HEX	A8,42,00,02
;		WORD	00000H,0FFF1H
;		HEX	A8,42,00,02
;;5
;		WORD	00000H,0FFF1H
;		HEX	A8,C2,00,02
;		WORD	00000H,0FFF1H
;		HEX	A8,C2,00,02
;;6
;		WORD	00000H,0FFF1H
;		HEX	A8,82,00,02
;		WORD	00000H,0FFF1H
;		HEX	A8,82,00,02
;;7
;		WORD	00000H,0FFF1H
;		HEX	A6,02,00,02
;		WORD	00000H,0FFF1H
;		HEX	A6,02,00,02
;;9
;		WORD	00000H,0FFF1H
;		HEX	A6,42,00,02
;		WORD	00000H,0FFF1H
;		HEX	A6,42,00,02
;;9
;		WORD	00000H,0FFF1H
;		HEX	A6,C2,00,02
;		WORD	00000H,0FFF1H
;		HEX	A6,C2,00,02
;;A
;		WORD	00000H,0FFF1H
;		HEX	A6,82,00,02
;		WORD	00000H,0FFF1H
;		HEX	A6,82,00,02
;;B
;		WORD	00006H,0FFFDH
;		HEX	AA,42,00,00		
;		WORD	00006H,0FFFDH
;		HEX	AA,42,00,00		
;;C
;		WORD	00006H,0FFFDH
;		HEX	AA,04,00,00		
;		WORD	00006H,0FFFDH
;		HEX	AA,04,00,00		
;;D
;		WORD	00002H,0FFFDH
;		HEX	AA,02,00,00
;		WORD	00002H,0FFFDH
;		HEX	AA,02,00,00
;;E
;		WORD	00002H,0FFFDH
;		HEX	AA,44,00,00		
;		WORD	00002H,0FFFDH
;		HEX	AA,44,00,00		
;- - - - - - - - - -
MAGICCS		EQU	$
		PHB
		PHK
		PLB
;;;;- -Tama set - -
;;;		LDA	#00H
;;;		XBA
;;;		LDA	ENWRK0,X
;;;		BEQ	MGC0F0
;;;		DEC	A
;;;		MEM16
;;;		REP	#00100000B
;;;		ASL	A
;;;		ASL	A
;;;		ASL	A
;;;;
;;;		ASL	A
;;;		ADC	#MAGTMCD  
;;;		STA	<WORK8
;;;;
;;;		MEM8
;;;		SEP	#00100000B
;;;;
;;;		LDA	#02H
;;;		STA	<WORK6
;;;		STZ	<WORK7
;;;;
;;;		JSL	>SETOAML2
;;;MGC0F0		EQU	$
;- - Body set - - -
		LDA	#00H
		XBA
		LDA	ENCHPT,X
		MEM16
		REP	#00100000B
		ASL	A
		ASL	A
		ASL	A
		STA	<WORK0
;
		ASL	A
		ADC	<WORK0
		ADC	#MAGICCD  
		STA	<WORK8
;
;;		LDA	<OAMADR
;;		CLC
;;		ADC	#0008H
;;		STA	<OAMADR
;;;
;;		INC	<OSBADR
;;		INC	<OSBADR
;
		MEM8
		SEP	#00100000B
;
		LDA	#03H
;;		STA	<WORK6
;;		STZ	<WORK7
;
		JSL	>SETOAML22
;
		PLB
		RTL
;=========================================================
MGTAMCD		EQU	$
		WORD	00000H,0FFFCH
		HEX	C5,00,00,00
		WORD	00000H,00004H
		HEX	C5,80,00,00
;
		WORD	00000H,0FFFCH
		HEX	C5,40,00,00
		WORD	00000H,00004H
		HEX	C5,C0,00,00
;
		WORD	0FFFCH,00000H
		HEX	D2,40,00,00
		WORD	00004H,00000H
		HEX	D2,00,00,00
;
		WORD	0FFFCH,00000H
		HEX	D2,C0,00,00
		WORD	00004H,00000H
		HEX	D2,80,00,00
;
MGTAMCS		EQU	$
		PHB
		PHK
		PLB
;
		LDA	#00H
		XBA
		LDA	ENMUKI,X
		MEM16
		REP	#00100000B
		ASL	A
		ASL	A
		ASL	A
;
		ASL	A
		ADC	#MGTAMCD  
		STA	<WORK8
;
		MEM8
		SEP	#00100000B
;
		LDA	#02H
;;		STA	<WORK6
;;		STZ	<WORK7
;
		JSL	>SETOAML22
;
		PLB
		RTL
;=========================================================
ICMANCD		EQU	$
;0
		WORD	0FFF8H,00000H
		HEX	A6,00,00,02
		WORD	00008H,00000H
		HEX	A6,40,00,02
		WORD	0FFF8H,00000H
		HEX	A6,00,00,02
		WORD	00008H,00000H
		HEX	A6,40,00,02
;1
		WORD	0FFF8H,00000H
		HEX	A6,00,00,02
		WORD	00008H,00000H
		HEX	A6,40,00,02
		WORD	00000H,0000BH
		HEX	AB,00,00,00
		WORD	00008H,0000BH
		HEX	AB,40,00,00
;2
		WORD	0FFF8H,00000H
		HEX	AC,00,00,02
		WORD	00008H,00000H
		HEX	A8,40,00,02
		WORD	00000H,0000BH
		HEX	BA,00,00,00
		WORD	00008H,0000BH
		HEX	BB,00,00,00
;3
		WORD	0FFF8H,00000H
		HEX	A8,00,00,02
		WORD	00008H,00000H
		HEX	AC,40,00,02
		WORD	00000H,0000BH
		HEX	BB,40,00,00
		WORD	00008H,0000BH
		HEX	BA,40,00,00
;4
		WORD	00000H,00002H
		HEX	AE,00,00,00
		WORD	00008H,00002H
		HEX	AE,40,00,00
		WORD	00000H,0000AH
		HEX	BE,00,00,00
		WORD	00008H,0000AH
		HEX	BE,40,00,00
;5
		WORD	00000H,00004H
		HEX	AF,00,00,00
		WORD	00008H,00004H
		HEX	AF,40,00,00
		WORD	00000H,0000CH
		HEX	BF,00,00,00
		WORD	00008H,0000CH
		HEX	BF,40,00,00
;6
		WORD	00000H,00008H
		HEX	AA,00,00,00
		WORD	00008H,00008H
		HEX	AA,40,00,00
		WORD	00000H,00008H
		HEX	AA,00,00,00
		WORD	00008H,00008H
		HEX	AA,40,00,00
;- - - -
ICMANCD2	EQU	$
		WORD	00000H,00000H
		HEX	AE,00,00,00
		WORD	00008H,00000H
		HEX	AE,40,00,00
		WORD	00000H,00008H
		HEX	BE,00,00,00
		WORD	00008H,00008H
		HEX	BE,40,00,00
;
		WORD	0FFFEH,00000H
		HEX	AE,00,00,00
		WORD	0000AH,00000H
		HEX	AE,40,00,00
		WORD	0FFFEH,00008H
		HEX	BE,00,00,00
		WORD	0000AH,00008H
		HEX	BE,40,00,00
;========================================
ICMANCS		EQU	$
		PHB
		PHK
		PLB
;
		LDA	#00H
		XBA
		LDA	ENCHPT,X
		CMP	#07H
		BEQ	ICMANC2
		MEM16
		REP	#00100000B
		ASL	A
		ASL	A
		ASL	A
;
		ASL	A
		ASL	A
		ADC	#ICMANCD  
		STA	<WORK8
;
		MEM8
		SEP	#00100000B
;
		LDA	#04H
ICC010		EQU	$
;;		STA	<WORK6
;;		STZ	<WORK7
;
		JSL	>SETOAML22
;
;;		LDA	ENCHPT,X
;;		CMP	#06H
;;		BEQ	ICC020
;;;
;;		LDA	#10H
;;		JSL	>SADWS2L
;;ICC020		EQU	$
		PLB
		RTL
;=========================================================
ICMANC2		EQU	$
		MEM16
		REP	#00100000B
		LDA	#ICMANCD2  
		STA	<WORK8
;
		MEM8
		SEP	#00100000B
;
		LDA	#08H
		BRA	ICC010
;=========================================================
TEKI0CD		EQU	$
;0
		WORD	00000H,0FFF8H
		HEX	08,00,00,02
		WORD	0FFFCH,00000H
		HEX	A0,00,00,02
		WORD	00004H,00000H
		HEX	A1,00,00,02
;1
		WORD	00000H,0FFF9H
		HEX	08,00,00,02
		WORD	0FFFCH,00001H
		HEX	A1,40,00,02
		WORD	00004H,00001H
		HEX	A0,40,00,02
;2
		WORD	00000H,0FFF8H
		HEX	0E,00,00,02
		WORD	0FFFCH,00000H
		HEX	A3,00,00,02
		WORD	00004H,00000H
		HEX	A4,00,00,02
;3
		WORD	00000H,0FFF9H
		HEX	0E,00,00,02
		WORD	0FFFCH,00001H
		HEX	A4,40,00,02
		WORD	00004H,00001H
		HEX	A3,40,00,02
;4
		WORD	00000H,0FFF7H
		HEX	0C,00,00,02
		WORD	00000H,00000H
		HEX	A6,00,00,02	
		WORD	00000H,00000H
		HEX	A6,00,00,02	
;5
		WORD	00000H,0FFF8H
		HEX	0C,00,00,02
		WORD	00000H,00000H
		HEX	A8,00,00,02	
		WORD	00000H,00000H
		HEX	A8,00,00,02	
;6
		WORD	00000H,0FFF7H
		HEX	0C,40,00,02
		WORD	00000H,00000H
		HEX	A6,40,00,02	
		WORD	00000H,00000H
		HEX	A6,40,00,02	
;7
		WORD	00000H,0FFF8H
		HEX	0C,40,00,02
		WORD	00000H,00000H
		HEX	A8,40,00,02	
		WORD	00000H,00000H
		HEX	A8,40,00,02	
TKKBCD		EQU	$
		HEX	82,82,80,84
		HEX	88,88,86,84
;;		HEX	0C,0C,08,0E
TKKBAD		EQU	$
		HEX	40,00,00,00
		HEX	40,00,00,00
;- - - - - - - - - - - - - - - - - - - - - - -
TEKI0CS		EQU	$
		PHB
		PHK
		PLB
;
		LDA	#00H
		XBA
		LDA	ENCHPT,X
		MEM16
		REP	#00100000B
		ASL	A
		ASL	A
		ASL	A
		STA	<WORK0
;
		ASL	A
		ADC	<WORK0
		ADC	#TEKI0CD  
		STA	<WORK8
;
		MEM8
		SEP	#00100000B
;
		LDA	#03H
;;		STA	<WORK6
;;		STZ	<WORK7
;
		JSL	>SETOAML22
;
		LDA	ENDSPL,X
		BNE	T1C090
;
		LDA	ENTIM1,X
		CMP	#01H
;
		PHX
		LDA	ENKBMK,X
		TAX
		BCC	T1C000
		INX
		INX
		INX
		INX
T1C000		EQU	$
		LDA	TKKBCD,X
		LDY	#02H
		STA	(<OAMADR),Y
		INY
		LDA	(<OAMADR),Y
		AND	#10111111B
		ORA	TKKBAD,X
		STA	(<OAMADR),Y
		PLX
;
		JSL	>SADWSTL
;
T1C090		EQU	$
		PLB
		RTL
;=====================================================
SKEL2CD		EQU	$
;0
		WORD	00000H,0FFF6H
		HEX	00,00,00,02
		WORD	00000H,00000H
		HEX	06,00,00,02
		WORD	00000H,00000H
		HEX	06,00,00,02
;1
		WORD	00000H,0FFF7H
		HEX	00,00,00,02
		WORD	00000H,00001H
		HEX	06,40,00,02
		WORD	00000H,00001H
		HEX	06,40,00,02
;2
		WORD	00000H,0FFF6H
		HEX	04,00,00,02
		WORD	00000H,00000H
		HEX	06,00,00,02
		WORD	00000H,00000H
		HEX	06,00,00,02
;3
		WORD	00000H,0FFF7H
		HEX	04,00,00,02
		WORD	00000H,00001H
		HEX	06,40,00,02 
		WORD	00000H,00001H
		HEX	06,40,00,02 
;4
		WORD	00000H,0FFF6H
		HEX	02,00,00,02
		WORD	00005H,00005H
		HEX	2E,00,00,00
		WORD	00000H,00000H
		HEX	24,00,00,02
;5
		WORD	00000H,0FFF6H
		HEX	02,00,00,02
		WORD	00000H,00000H
		HEX	0E,00,00,02
		WORD	00000H,00000H
		HEX	0E,00,00,02
;60
		WORD	00000H,0FFF6H
		HEX	02,40,00,02
		WORD	00003H,00005H
		HEX	2E,40,00,00
		WORD	00000H,00000H
		HEX	24,40,00,02
;7
		WORD	00000H,0FFF6H
		HEX	02,40,00,02
		WORD	00000H,00000H
		HEX	0E,40,00,02
		WORD	00000H,00000H
		HEX	0E,00,00,02
;-- JUMP --
;8
		WORD	00002H,0FFF8H
		HEX	02,40,00,02
		WORD	00000H,00000H
		HEX	08,40,00,02
		WORD	00000H,00000H
		HEX	08,40,00,02
;9
		WORD	0FFFEH,0FFF8H
		HEX	02,00,00,02
		WORD	00000H,00000H
		HEX	08,00,00,02
		WORD	00000H,00000H
		HEX	08,00,00,02
;A
		WORD	00000H,0FFFAH
		HEX	00,00,00,02
		WORD	00000H,00000H
		HEX	0A,00,00,02
		WORD	00000H,00000H
		HEX	0A,00,00,02
;B
		WORD	00000H,00000H
		HEX	0A,00,00,02
		WORD	00000H,0FFFAH
		HEX	04,00,00,02
		WORD	00000H,0FFFAH
		HEX	04,00,00,02
;-- OLD --
;;0
;		WORD	00000H,0FFF6H
;		HEX	80,00,00,02
;		WORD	00000H,00000H
;		HEX	86,00,00,02
;		WORD	00000H,00000H
;		HEX	86,00,00,02
;;1
;		WORD	00000H,0FFF7H
;		HEX	80,00,00,02
;		WORD	00000H,00001H
;		HEX	86,40,00,02
;		WORD	00000H,00001H
;		HEX	86,40,00,02
;;2
;		WORD	00000H,0FFF6H
;		HEX	84,00,00,02
;		WORD	00000H,00000H
;		HEX	86,00,00,02
;		WORD	00000H,00000H
;		HEX	86,00,00,02
;;3
;		WORD	00000H,0FFF7H
;		HEX	84,00,00,02
;		WORD	00000H,00001H
;		HEX	86,40,00,02 
;		WORD	00000H,00001H
;		HEX	86,40,00,02 
;;4
;		WORD	00000H,0FFF6H
;		HEX	82,00,00,02
;		WORD	00005H,00005H
;		HEX	AC,00,00,00
;		WORD	00000H,00000H
;		HEX	A4,00,00,02
;;5
;		WORD	00000H,0FFF6H
;		HEX	82,00,00,02
;		WORD	00000H,00000H
;		HEX	A2,00,00,02
;		WORD	00000H,00000H
;		HEX	A2,00,00,02
;;6
;		WORD	00000H,0FFF6H
;		HEX	82,40,00,02
;		WORD	00003H,00005H
;		HEX	AC,40,00,00
;		WORD	00000H,00000H
;		HEX	A4,40,00,02
;;7
;		WORD	00000H,0FFF6H
;		HEX	82,40,00,02
;		WORD	00000H,00000H
;		HEX	A2,40,00,02
;		WORD	00000H,00000H
;		HEX	A2,40,00,02
;;-- JUMP --
;8;
;		WORD	00002H,0FFF8H
;		HEX	82,40,00,02
;		WORD	00000H,00000H
;		HEX	88,40,00,02
;		WORD	00000H,00000H
;		HEX	88,40,00,02
;;9
;		WORD	0FFFEH,0FFF8H
;		HEX	82,00,00,02
;		WORD	00000H,00000H
;		HEX	88,00,00,02
;		WORD	00000H,00000H
;		HEX	88,00,00,02
;;A
;		WORD	00000H,0FFFAH
;		HEX	80,00,00,02
;		WORD	00000H,00000H
;		HEX	8C,00,00,02
;		WORD	00000H,00000H
;		HEX	8C,00,00,02
;;B
;		WORD	00000H,00000H
;		HEX	8C,00,00,02
;		WORD	00000H,0FFFAH
;		HEX	84,00,00,02
;		WORD	00000H,0FFFAH
;		HEX	84,00,00,02
S2KBCD		EQU	$		
		HEX	02,02,00,04
;;		HEX	82,82,80,84
;- - - - - - - -
;SKESMCD		EQU	$
;		WORD	00000H,00000H
;		HEX	86,01,00,00
;		WORD	00008H,00000H
;		HEX	87,01,00,00
;		WORD	00000H,00008H
;		HEX	96,01,00,00
;		WORD	00008H,00008H
;		HEX	97,01,00,00
;;
;		WORD	0FFFEH,0FFFEH
;		HEX	A9,41,00,00
;		WORD	0000AH,0FFFEH
;		HEX	A9,01,00,00
;		WORD	0FFFEH,0000AH
;		HEX	A9,C1,00,00
;		WORD	0000AH,0000AH
;		HEX	A9,81,00,00
;;
;		WORD	0FFF8H,0FFF8H
;		HEX	CF,01,00,00
;		WORD	00010H,0FFF8H
;		HEX	CF,41,00,00
;		WORD	0FFF8H,00010H
;		HEX	CF,81,00,00
;		WORD	00010H,00010H
;		HEX	CF,C1,00,00
;;
;		WORD	0FFF8H,0FFF8H
;		HEX	DF,01,00,00
;		WORD	00010H,0FFF8H
;		HEX	DF,41,00,00
;		WORD	0FFF8H,00010H
;		HEX	DF,81,00,00
;		WORD	00010H,00010H
;		HEX	DF,C1,00,00
;;- - - - - - - - - - - - - - - - - - - - - - -
;SKSMCD		EQU	$
;		HEX	3,2,1,0,0
;
S2C001		EQU	$
		JSL	>OAMCHKL
		RTL
;
SKEL2CS		EQU	$
		LDA	ENTIM2,X
		BNE	S2C001
;
		PHB
		PHK
		PLB
;
;		LDA	ENTIM2,X
;		BEQ	S2C010
;;- - - -  Kemuri set - - -
;;
;		LSR	A
;		LSR	A
;		TAY
;		LDA	#00H
;		XBA
;		LDA	SKSMCD,Y
;		MEM16
;		REP	#00100000B
;		ASL	A
;		ASL	A
;		ASL	A
;;
;		ASL	A
;		ASL	A
;		ADC	#SKESMCD  
;		STA	<WORK8
;;
;		MEM8
;		SEP	#00100000B
;;
;		LDA	#04H
;;;		STA	<WORK6
;;;		STZ	<WORK7
;;
;		JSL	>SETOAML22
;- - Body set - - 
S2C010		EQU	$
		LDA	#00H
		XBA
		LDA	ENCHPT,X
		MEM16
		REP	#00100000B
		ASL	A
		ASL	A
		ASL	A
		STA	<WORK0
;
		ASL	A
		ADC	<WORK0
		ADC	#SKEL2CD  
		STA	<WORK8
;
		MEM8
		SEP	#00100000B
;
;		LDA	ENTIM2,X
;		BEQ	S2C012
;;
;		MEM16
;		REP	#00100000B
;;
;		LDA	<OAMADR
;		CLC
;		ADC	#0004H*4
;		STA	<OAMADR
;;
;		LDA	<OSBADR
;		CLC
;		ADC	#0001H*4
;		STA	<OSBADR
;;
;		MEM8
;		SEP	#00100000B
;
S2C012		EQU	$
		LDA	#03H
;;		STA	<WORK6
;;		STZ	<WORK7
;
		JSL	>SETOAML22
;
		LDA	ENCHPT,X
		CMP	#08H
		BCS	S2C013
;
		LDA	ENDSPL,X
		BNE	S2C013
;
		PHX
		LDA	ENKBMK,X
		TAX
		LDA	S2KBCD,X
		LDY	#02H
		STA	(<OAMADR),Y
		INY
		LDA	(<OAMADR),Y
		AND	#10001111B
		ORA	S2KBAD,X
		STA	(<OAMADR),Y
		PLX
;
S2C013		EQU	$
;		LDA	ENMOD0,X
;		PHA
;		LDY	ENTIM2,X
;		BEQ	S2C015
;		SEC
;		SBC	#04H
;		STA	ENMOD0,X
;S2C015		EQU	$
		JSL	>SADWSTL
;		PLA
;		STA	ENMOD0,X
;
		PLB
		RTL
;
S2KBAD		EQU	$
		HEX	70,30,30,30
;=======Heishi serch beam BG check ==================================================
SHBGCK		EQU	$
		LDA	ENKAIF,X
		CMP	#01H
		MEM16
		IDX16
		REP	#00110000B
		STZ	<WORK5
		BCC	BGR002		; Another BG ?
;					; Yes !
		LDA	#1000H
		STA	<WORK5
BGR002		EQU	$
		MEM8
		SEP	#00100000B
		LDA	<DJFLG
		MEM16
		REP	#00100000B
		BEQ	BGDCIK
;
		LDA	ENXP2L   ;<WORK2
   		AND	#01FFH
		LSR	A
		LSR	A
		LSR	A
		STA	<WORK4
		LDA	ENYP2L   ;<WORK0
		AND	#01F8H
		ASL	A
		ASL	A
		ASL	A
         	CLC
		ADC	<WORK4
		CLC
		ADC	<WORK5
		PHX
		TAX
		LDA	>READBF,X
;;		STA	UNITNO
		PLX
;;		MEM8
;;		IDX8
;;		SEP	#00110000B
		BRA	SBC090
;---------------------------------------
BGDCIK		EQU	$		; chijoo BG no set ----> A
		MEM16
		IDX16
		PHX
		PHY
		LDA	ENXP2L      ;<WORK2		; x-pos / 8
		LSR	A
		LSR	A
		LSR	A
		STA	<WORK2
;
		LDA	ENYP2L
		STA	<WORK0
		MEM8
		IDX8
		SEP	#00110000B
		JSL	>EVCHCKE		; chijoo 
		MEM8
		IDX16
		REP	#00010000B
;;		STA	UNITNO
;;;		STZ	UNITNO+1
		PLY
		PLX
SBC090		EQU	$
		MEM8
		IDX8
		SEP	#00110000B
		PHX
		STA	UNITNO
		TAX
		LDA	>KTCRDT,X
		PLX
		CMP	#01H
		RTL	
			
;=========================================================
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%	JIJII move	                    		  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
JIJIIMV		EQU	$
		PHB
		PHK
		PLB
		JSR	JIJIIMV_I
		PLB
		RTL
;----------------------------------------
JIJIIMV_I	EQU	$
		LDA	ENCONT,X
		JSL	>JSRSUB
		WORD	JIJII00
		WORD	JIJII01
		WORD	JIJII02
;
;----------------------------------------
JIJII02		EQU	$
		JSR	SIKARCS
		JSR	ENSTCK		; scroll : not return !
		JSL	>ENPLATR	;PL. EN. ATARI SET
		JSL	>ENMKIST	;MUKI SET
		STZ	ENCMKI,X
;
		LDA	#LOW  MS_0571
		LDY	#HIGH MS_0571
		JSL	>ENMSGEL
		BCC	JJI0210
		STA	ENMUKI,X
		STA	ENCMKI,X
JJI0210		EQU	$
;
		RTS
;----------------------------------------
JIJII01		EQU	$
		LDA	<FRCNT
		AND	#003H
		BNE	JJI0120
		LDA	#002H
		STA	ENCHPT,X
		JSL	>EPXYCK2
		CPY	#003H
		BNE	JJI0110
		LDY	#002H
JJI0110		EQU	$
		TYA
		STA	ENKBMK,X
;
JJI0120		EQU	$
		LDA	#00FH
		STA	ENCLOR,X
		JSL	>OCHECKL
		JSL	>TheftCS
;
;		JSR	JIJIICS
		JSR	ENSTCK		; scroll : not return !
		JSL	>ENPLATR	;PL. EN. ATARI SET
;
		LDA	#LOW  MS_0570
		LDY	#HIGH MS_0570
		JSL	>ENMSGEL
;
		LDA	#002H
		STA	ENCHPT,X
		RTS
;----------------------------------------
JIJII00		EQU	$
		JSR	JIJIICS
		JSR	ENSTCK		; scroll : not return !
;
		JSL	>ENPLATR	;PL. EN. ATARI SET
;
		LDA	<FRCNT
		CMP	#030H
		BCS	JIJII20
		LDA	#002H
		BRA	JIJII10
JIJII20		EQU	$
		ASL	A
		ROL	A
		AND	#001H
JIJII10		EQU	$
		STA	ENCHPT,X
;
		LDA	ENSTAT,X
		BNE	JIJII70
;
		LDA	>ITEMR13
		CMP	#002H
		BCS	JIJII40
;
		LDA	#LOW  MS_0170		;OKARINA NASI
		LDY	#HIGH MS_0170
		JSL	>ENMSGEL
		BCC	JIJII30
;		LDA	#002H
;		STA	ENCHPT,X
JIJII30		EQU	$
		RTS
;
;
JIJII40		EQU	$
		LDA	#LOW  MS_0173		;OKARINA ARI
		LDY	#HIGH MS_0173
		JSL	>ENMSGEL
		BCC	JIJII50
;		LDA	#002H
;		STA	ENCHPT,X
		RTS
;
JIJII50		EQU	$
		LDA	GETITM0			;? OKANINA
		CMP	#013
		BNE	JIJII60
		BIT	<KEYA1			;? USE
		BVC	JIJII60
		JSL	>CRENPL2L
		BCC	JIJII60			;? ATARI
		LDA	#LOW  MS_0171		;OKARINA USE
		LDY	#HIGH MS_0171
		JSL	>ENMSGSL
		INC	ENSTAT,X
		LDA	#002H
		STA	ENCHPT,X
JIJII60		EQU	$
		RTS
;
;
JIJII70		EQU	$
		LDA	#LOW  MS_0172		;? OKARINA USE AFTER
		LDY	#HIGH MS_0172
		JSL	>ENMSGEL
		LDA	#002H
		STA	ENCHPT,X
		RTS
;----------------------------------------
JIJIICD		EQU	$
		WORD	00000,-0007
		BYTE	086H,000H,000H,002H
		WORD	00000,00000
		BYTE	088H,000H,000H,002H
;
		WORD	00000,-0006
		BYTE	086H,000H,000H,002H
		WORD	00000,00000
		BYTE	088H,000H,000H,002H
;
		WORD	00000,-0008
		BYTE	084H,000H,000H,002H
		WORD	00000,00000
		BYTE	088H,000H,000H,002H
;
JIJIICS		EQU	$
		LDA	#002H		;KAZU SET
		STA	<WORK6
		STZ	<WORK7
;
		LDA	ENCHPT,X	;ADD SET
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ADC	#LOW JIJIICD
		STA	<WORK8
		LDA	#HIGH JIJIICD
		ADC	#000H
		STA	<WORK9
;
		JSL	>SETOAML	;OAM SET
;
		JSL	>SADWSTL
		RTS
;
;----------------------------------------
SIKARCY		EQU	00008
SIKARCD		EQU	$
		WORD	00000,00000-SIKARCY		;0
		BYTE	00CH,000H,000H,002H
		WORD	00000,00008-SIKARCY
		BYTE	0CAH,000H,000H,002H
		WORD	00000,00000-SIKARCY
		BYTE	00CH,000H,000H,002H
		WORD	00000,00008-SIKARCY
		BYTE	0CAH,040H,000H,002H
;
		WORD	00000,00000-SIKARCY		;1
		BYTE	00CH,000H,000H,002H
		WORD	00000,00008-SIKARCY
		BYTE	0CAH,000H,000H,002H
		WORD	00000,00000-SIKARCY
		BYTE	00CH,000H,000H,002H
		WORD	00000,00008-SIKARCY
		BYTE	0CAH,040H,000H,002H
;
		WORD	00000,00000-SIKARCY		;2
		BYTE	00EH,000H,000H,002H
		WORD	00000,00008-SIKARCY
		BYTE	0CAH,000H,000H,002H
		WORD	00000,00000-SIKARCY
		BYTE	00EH,000H,000H,002H
		WORD	00000,00008-SIKARCY
		BYTE	0CAH,040H,000H,002H
;
		WORD	00000,00000-SIKARCY		;3
		BYTE	00EH,040H,000H,002H
		WORD	00000,00008-SIKARCY
		BYTE	0CAH,000H,000H,002H
		WORD	00000,00000-SIKARCY
		BYTE	00EH,040H,000H,002H
		WORD	00000,00008-SIKARCY
		BYTE	0CAH,040H,000H,002H
;
SIKARCS		EQU	$
		LDA	#002H
		STA	<WORK6
		STZ	<WORK7
;
		LDA	ENMUKI,X
		ASL	A
		ADC	ENCHPT,X
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ADC	#LOW  SIKARCD
		STA	<WORK8
		LDA	#HIGH SIKARCD
		ADC	#000H
		STA	<WORK9
;
		JSL	>SETOAML
;
		JSL	>SADWSTL
		RTS
;----------------------------------------
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%	BABAA move	                    		  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
BABAAMV		EQU	$
		PHB
		PHK
		PLB
		JSR	BABAAMV_I
		PLB
		RTL
;----------------------------------------
BABAAMV_I	EQU	$
		JSR	BABAACS
		JSR	ENSTCK		; scroll : not return !
;
		LDA	#LOW  MS_0180
		LDY	#HIGH MS_0180
		JSL	>ENMSGEL
;
		JSL	>ENPLATR	;PL. EN. ATARI SET
;		LDA	ENMOD3,X
;		PHA
;		LDA	#003H
;		STA	ENMOD3,X
;		JSL	>CRENPL2L
;		BCC	BABAA10
;		PHX
;		JSL	>PLOTCK		;PL. POS. recover
;;
;		STZ	<PYSPFG		;DASH STOP
;		JSL	>DASCLR1
;		PLX
;
BABAA10         EQU     $
;		PLA
;		STA	ENMOD3,X
;
		LDA	<FRCNT
		LSR	A
		LSR	A
		LSR	A
		LSR	A
		AND	#001H
		STA	ENCHPT,X
;
		RTS
;----------------------------------------
BABAACD		EQU	$
		WORD	00000,-0007
		BYTE	08EH,000H,000H,002H
		WORD	00000,00005
		BYTE	08AH,000H,000H,002H
;
		WORD	00000,-0008
		BYTE	08EH,000H,000H,002H
		WORD	00000,00004
		BYTE	08CH,000H,000H,002H
;
BABAACS		EQU	$
		LDA	#002H		;KAZU SET
		STA	<WORK6
		STZ	<WORK7
;
		LDA	ENCHPT,X	;ADD SET
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ADC	#LOW BABAACD
		STA	<WORK8
		LDA	#HIGH BABAACD
		ADC	#000H
		STA	<WORK9
;
		JSL	>SETOAML	;OAM SET
;
		JSL	>SADWSTL
		RTS
;----------------------------------------
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%	NOKOG move	                    		  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
NOKOGMV		EQU	$
		PHB
		PHK
		PLB
		JSR	NOKOGMV_I
		PLB
		RTL
;----------------------------------------
NOKOGML		EQU	$
		BYTE	LOW  MS_04A0,LOW  MS_04A1
		BYTE	LOW  MS_04A2,LOW  MS_04A1	;KIRI
NOKOGMH		EQU	$
		BYTE	HIGH MS_04A0,HIGH MS_04A1
		BYTE	HIGH MS_04A2,HIGH MS_04A1	;KIRI
;
;----------------------------------------
NOKOGMV_I	EQU	$
		JSR	NOKOGCS
		JSR	ENSTCK		; scroll : not return !
;
		LDY	#000H
		JSR	NOKOGOC
		BCS	NOKOG30
		PHX
		JSL	>PLOTCK		;PL. POS. recover
		STZ	<PYSPFG		;DASH STOP
		JSL	>DASCLR1
		PLX
;
NOKOG30		EQU	$
		JSL	>WPMSCK
		BCS	NOKOG10
;
		LDY	#002H
		JSR	NOKOGOC
		BCS	NOKOG10
		LDA	<KEYA2L
		AND	#080H
		BEQ	NOKOG10
		LDA	<PLXPS1
		CMP	ENXPSL,X
		ROL	A
		AND	#001H
		STA	<WORK0
		STZ	<WORK1
		LDA	>ITMTBL6
		CMP	#002H
		BCC	NOKOG20
		LDA	#002H
		STA	<WORK1
NOKOG20		EQU	$
		LDA	<WORK1
		CLC
		ADC	<WORK0
		TAY
		LDA	NOKOGML,Y
		XBA
		LDA	NOKOGMH,Y
		TAY
		XBA
		JSL	>ENMSGSL
NOKOG10		EQU	$
;
		LDA	<FRCNT
		LSR	A
		LSR	A
		LSR	A
		LSR	A
		LSR	A
		AND	#001H
		STA	ENCHPT,X
;
		RTS
;----------------------------------------
NKGOCX0		EQU	$
		WORD	00030H,00034H
NKGOCY0		EQU	$
		WORD	00013H,00014H
NKGOCX1		EQU	$
		WORD	00062H,0006AH
NKGOCY1		EQU	$
		WORD	00025H,00028H
;
NOKOGOC		EQU	$
		MEM16
		IDX8
		REP	#00100000B
		LDA	ENXP2L
		SEC
		SBC	<PLXPS1
		CLC
		ADC	NKGOCX0,Y
		CMP	NKGOCX1,Y
		BCS	NKGOC10
		LDA	ENYP2L
		SEC
		SBC	<PLYPS1
		CLC
		ADC	NKGOCY0,Y
		CMP	NKGOCY1,Y
		BCS	NKGOC10
;
NKGOC10		EQU	$
		MEM8
		IDX8
		SEP	#00110000B
;
		RTS
;----------------------------------------
NOKOGCD		EQU	$
NOKOGCX		EQU	-0032
NOKOGCY		EQU	-0008
		WORD	00009+NOKOGCX,00013+NOKOGCY
		BYTE	0BEH,002H,000H,000H
		WORD	00017+NOKOGCX,00013+NOKOGCY
		BYTE	0BFH,002H,000H,000H
		WORD	00025+NOKOGCX,00013+NOKOGCY
		BYTE	0BFH,002H,000H,000H
		WORD	00033+NOKOGCX,00013+NOKOGCY
		BYTE	0BFH,002H,000H,000H
		WORD	00041+NOKOGCX,00013+NOKOGCY
		BYTE	0BFH,002H,000H,000H
		WORD	00049+NOKOGCX,00013+NOKOGCY
		BYTE	0BFH,002H,000H,000H
		WORD	00057+NOKOGCX,00013+NOKOGCY
		BYTE	0BEH,042H,000H,000H
		WORD	00000+NOKOGCX,00000+NOKOGCY
		BYTE	0A8H,040H,000H,002H
		WORD	00000+NOKOGCX,00012+NOKOGCY
		BYTE	0A6H,040H,000H,002H
		WORD	00062+NOKOGCX,00000+NOKOGCY
		BYTE	0A8H,000H,000H,002H
		WORD	00063+NOKOGCX,00012+NOKOGCY
		BYTE	0A4H,000H,000H,002H
;
		WORD	00013+NOKOGCX,00013+NOKOGCY
		BYTE	0BEH,002H,000H,000H
		WORD	00021+NOKOGCX,00013+NOKOGCY
		BYTE	0BFH,002H,000H,000H
		WORD	00029+NOKOGCX,00013+NOKOGCY
		BYTE	0BFH,002H,000H,000H
		WORD	00037+NOKOGCX,00013+NOKOGCY
		BYTE	0BFH,002H,000H,000H
		WORD	00045+NOKOGCX,00013+NOKOGCY
		BYTE	0BFH,002H,000H,000H
		WORD	00053+NOKOGCX,00013+NOKOGCY
		BYTE	0BFH,002H,000H,000H
		WORD	00061+NOKOGCX,00013+NOKOGCY
		BYTE	0BEH,042H,000H,000H
		WORD	00001+NOKOGCX,00000+NOKOGCY
		BYTE	0A8H,040H,000H,002H
		WORD	00000+NOKOGCX,00012+NOKOGCY
		BYTE	0A4H,040H,000H,002H
		WORD	00063+NOKOGCX,00000+NOKOGCY
		BYTE	0A8H,000H,000H,002H
		WORD	00063+NOKOGCX,00012+NOKOGCY
		BYTE	0A6H,000H,000H,002H
;
		WORD	00013+NOKOGCX,00013+NOKOGCY
		BYTE	0BEH,002H,000H,000H
		WORD	00021+NOKOGCX,00013+NOKOGCY
		BYTE	0BFH,002H,000H,000H
		WORD	00029+NOKOGCX,00013+NOKOGCY
		BYTE	0BFH,002H,000H,000H
		WORD	00037+NOKOGCX,00013+NOKOGCY
		BYTE	0BFH,002H,000H,000H
		WORD	00045+NOKOGCX,00013+NOKOGCY
		BYTE	0BFH,002H,000H,000H
		WORD	00053+NOKOGCX,00013+NOKOGCY
		BYTE	0BFH,002H,000H,000H
		WORD	00061+NOKOGCX,00013+NOKOGCY
		BYTE	0BEH,042H,000H,000H
		WORD	00000+NOKOGCX,00000+NOKOGCY
		BYTE	00EH,040H,000H,002H
		WORD	00000+NOKOGCX,00012+NOKOGCY
		BYTE	0A4H,040H,000H,002H
		WORD	00064+NOKOGCX,00000+NOKOGCY
		BYTE	00EH,000H,000H,002H
		WORD	00063+NOKOGCX,00012+NOKOGCY
		BYTE	0A6H,000H,000H,002H
;
NOKOGCS		EQU	$
		LDA	#00BH		;KAZU SET
		STA	<WORK6
		STZ	<WORK7
;
		LDA	ENCHPT,X	;ADD SET
		ASL	A
		ASL	A
		ADC	ENCHPT,X
		ASL	A
		ADC	ENCHPT,X
		ASL	A
		ASL	A
		ASL	A
		ADC	#LOW NOKOGCD
		STA	<WORK8
		LDA	#HIGH NOKOGCD
		ADC	#000H
		STA	<WORK9
;
		JSL	>SETOAML2	;OAM SET
;
		RTS
;----------------------------------------
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%	PENKI move	                    		  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
PENKIMV		EQU	$
		PHB
		PHK
		PLB
		JSR	PENKIMV_I
		PLB
		RTL
;----------------------------------------
PENKIMV_I	EQU	$
		JSR	PENKICS
		JSR	ENSTCK		; scroll : not return !
;
		LDA	#LOW  MS_0190
		LDY	#HIGH MS_0190
		JSL	>ENMSGEL
;
		JSL	>ENPLATR	;PL. EN. ATARI SET
;		LDA	ENMOD3,X
;		PHA
;		LDA	#003H
;		STA	ENMOD3,X
;		JSL	>CRENPL2L
;		BCC	PENKI10
;		PHX
;		JSL	>PLOTCK		;PL. POS. recover
;
;		STZ	<PYSPFG		;DASH STOP
;		JSL	>DASCLR1
;		PLX
;
PENKI10         EQU     $
;		PLA
;		STA	ENMOD3,X
;
		LDA	<FRCNT
		LSR	A
		ORA	<FRCNT
		LSR	A
		LSR	A
		LSR	A
		LSR	A
		AND	#001H
		STA	ENCHPT,X
;
		RTS
;----------------------------------------
PENKICY		EQU	16
PENKICD		EQU	$
		WORD	00004,00002-PENKICY
		BYTE	0AEH,000H,000H,000H
		WORD	00000,00000-PENKICY
		BYTE	082H,000H,000H,002H
		WORD	00000,00016-PENKICY
		BYTE	0AAH,000H,000H,002H
;
		WORD	00004,00000-PENKICY
		BYTE	0AEH,000H,000H,000H
		WORD	00000,00000-PENKICY
		BYTE	080H,000H,000H,002H
		WORD	00000,00016-PENKICY
		BYTE	0A0H,000H,000H,002H
;
PENKICS		EQU	$
		LDA	#003H		;KAZU SET
		STA	<WORK6
		STZ	<WORK7
;
		LDA	ENCHPT,X	;ADD SET
		ASL	A
		ADC	ENCHPT,X
		ASL	A
		ASL	A
		ASL	A
		ADC	#LOW PENKICD
		STA	<WORK8
		LDA	#HIGH PENKICD
		ADC	#000H
		STA	<WORK9
;
		JSL	>SETOAML	;OAM SET
;
		JSL	>SADWSTL
		RTS
;----------------------------------------
ULANIMV		EQU	$
		PHB
		PHK
		PLB
		JSR	ULANI_M
		PLB
		RTL
;----------------------------------------
ULANI_M		EQU	$
		LDA	ENCONT,X
		JSL	>JSRSUB
		WORD	ULANI00
		WORD	ULANI01
;----------------------------------------
ULANI01		EQU	$
		JSR	ENSTCK		; scroll : not return !
;
		JSL	>CRENPL2L
;
		BCC	UAI0110
;
		PHX
		JSL	>PLOTCK		;PL. POS. recover
		STZ	<PYSPFG		;DASH STOP
		JSL	>DASCLR1
		PLX
;
UAI0110		EQU	$
		RTS
;----------------------------------------
ULANI00		EQU	$
		JSR	ULANICS
		JSR	ENSTCK		; scroll : not return !
;
		LDA	>GDTRPF
		ASL	A
		ROL	A
		ROL	A
		AND	#001
		JSL	>JSRSUB
		WORD	ULANIF0		;OMOTE
		WORD	ULANIF1		;URA
;----------------------------------------
ULANIF0		EQU	$		;OMOTE
		LDA	ENSTAT,X
		JSL	>JSRSUB
		WORD	ULNF0M0
		WORD	ULNF0M1
		WORD	ULNF0M2
		WORD	ULNF0M3
		WORD	ULNF0M4
		WORD	ULNF0M5
		WORD	ULNF0M6
		WORD	ULNF0M7
;----------------------------------------
ULN00CN		EQU	$
ULN10CN		EQU	$
		WORD	00010,00015,00020,00030
;
ULNF0M0		EQU	$
		STZ	ENCHPT,X	;E SET
;
		JSL	>RNDSET
		AND	#003H
		ASL	A
		STA	ENWRK0,X	;HOGO
		TAY
		MEM16
		IDX8
		REP	#00100000B
		LDA	>CONCNT
		CMP	ULN00CN,Y
		MEM8
		IDX8
		SEP	#00110000B
		BCS	ULN0010
		INC	ENSTAT,X	;ULANAI BUT
		RTS
ULN0010		EQU	$		;ULANAI OK
		LDA	#002H
		STA	ENSTAT,X
		RTS
;----------------------------------------
ULNF0M1		EQU	$		;ULANAI BUT
		LDA	#LOW  MS_03B0	;MSGE NO
		LDY	#HIGH MS_03B0	;MSGE NO
		JSL	>ENMSGEL	;MSGE SET
		RTS
;----------------------------------------
ULNF0M2		EQU	$		;ULANAI OK
		LDA	#LOW  MS_03B1	;MSGE NO
		LDY	#HIGH MS_03B1	;MSGE NO
		JSL	>ENMSGEL	;MSGE SET
		BCC	ULN0210
		INC	ENSTAT,X
		LDA	#0FFH
		STA	ENTIM0,X
		LDA	#001H		;PL. STOP
		STA	PYALSP
ULN0210		EQU	$
		RTS
;----------------------------------------
ULNF0M3		EQU	$
		LDA	MSG_RTS
		BNE	ULN0310
;					;YARU
		LDA	ENTIM0,X
		BNE	ULN0320
		INC	ENSTAT,X
ULN0320		EQU	$
		LDA	<FRCNT
		LSR	A
		LSR	A
		LSR	A
		LSR	A
		AND	#001H
		STA	ENCHPT,X	;E SET
		RTS
;
ULN0310		EQU	$		;YAMETOKU
		LDA	#LOW  MS_03B3	;MSGE NO
		LDY	#HIGH MS_03B3	;MSGE NO
		JSL	>ENMSGSL	;MSGE SET
		LDA	#002H
		STA	ENSTAT,X
		STZ	PYALSP			PL. MOVE
		RTS
;----------------------------------------
UN0M4ML		EQU	$
		BYTE	LOW  MS_03A0
		BYTE	LOW  MS_03A1
		BYTE	LOW  MS_03A2
		BYTE	LOW  MS_03A3
		BYTE	LOW  MS_03A4
		BYTE	LOW  MS_03A5
		BYTE	LOW  MS_03A6
		BYTE	LOW  MS_03A7
;--
		BYTE	LOW  MS_03B5
		BYTE	LOW  MS_03B6
		BYTE	LOW  MS_03B7
		BYTE	LOW  MS_03B8
		BYTE	LOW  MS_03B9
		BYTE	LOW  MS_03BA
		BYTE	LOW  MS_03BB
		BYTE	LOW  MS_03BC
;
;
UN0M4MH		EQU	$
		BYTE	HIGH MS_03A0
		BYTE	HIGH MS_03A1
		BYTE	HIGH MS_03A2
		BYTE	HIGH MS_03A3
		BYTE	HIGH MS_03A4
		BYTE	HIGH MS_03A5
		BYTE	HIGH MS_03A6
		BYTE	HIGH MS_03A7
;--
		BYTE	HIGH MS_03B5
		BYTE	HIGH MS_03B6
		BYTE	HIGH MS_03B7
		BYTE	HIGH MS_03B8
		BYTE	HIGH MS_03B9
		BYTE	HIGH MS_03BA
		BYTE	HIGH MS_03BB
		BYTE	HIGH MS_03BC
;
;
ULNF0M4		EQU	$
		STZ	ENCHPT,X
		INC	ENSTAT,X	;NEXT MODE
;
		STZ	<WORK3
;
		LDA	>MODTBL2	;? JITON TALK
		CMP	#003H
		BCS	UN0M410
		STZ	<WORK0
		STZ	<WORK1
		JMP	UN0M4F0
UN0M410		EQU	$
		LDA	>ITEMR15	;? JISYO GET
		BNE	UN0M430
		LDA	#002H
		JSR	UN0M4DS
		BCC	UN0M430
		JMP	UN0M4F0
UN0M430		EQU	$
		LDA	>ITEMR53	;? BLUE PENDANT
		AND	#002H
		BNE	UN0M420
		LDA	#001H
		JSR	UN0M4DS
		BCC	UN0M420
		JMP	UN0M4F0
UN0M420		EQU	$
		LDA	>ITEMR05	;? KONA GET
		CMP	#002H
		BCS	UN0M440
		LDA	#003H
		JSR	UN0M4DS
		BCC	UN0M440
		JMP	UN0M4F0
UN0M440		EQU	$
		LDA	>ITEMR23	;? HILE GET
		BNE	UN0M450
		LDA	#004H
		JSR	UN0M4DS
		BCC	UN0M450
		JMP	UN0M4F0
UN0M450		EQU	$
		LDA	>ITMTBL4	;? TAMA GET
		BNE	UN0M460
		LDA	#005H
		JSR	UN0M4DS
		BCS	UN0M4F0
UN0M460		EQU	$
		LDA	>MODTBL0	;? SISAI KILL
		CMP	#003H
		BCS	UN0M470
		LDA	#006H
		JSR	UN0M4DS
		BCS	UN0M4F0
UN0M470		EQU	$
		LDA	>MPLVFG		;? DEMON TALK
		BNE	UN0M480
		LDA	#007H
		JSR	UN0M4DS
		BCS	UN0M4F0
UN0M480		EQU	$
		LDA	>ITEMR08	;? S.BOMB GET
		BNE	UN0M490
		LDA	#008H
		JSR	UN0M4DS
		BCS	UN0M4F0
UN0M490		EQU	$
		LDA	>MODTBL4	;? TAKARA BOX OPEN
		AND	#010H
		BNE	UN0M4A0
		LDA	#009H
		JSR	UN0M4DS
		BCS	UN0M4F0
UN0M4A0		EQU	$
		LDA	>MODTBL4	;? KAJIY TALK
		AND	#020H
		BNE	UN0M4B0
		LDA	#00AH
		JSR	UN0M4DS
		BCS	UN0M4F0
UN0M4B0		EQU	$
		LDA	>ITEMR19	;? S.YULE GET
		BNE	UN0M4C0
		LDA	#00BH
		JSR	UN0M4DS
		BCS	UN0M4F0
UN0M4C0		EQU	$
		LDA	>GNDTBL+5BH	;? PRAMID ANA
		AND	#002H
		BNE	UN0M4D0
		LDA	#00CH
		JSR	UN0M4DS
		BCS	UN0M4F0
UN0M4D0		EQU	$
		LDA	>ITMTBL6	;? KATANA 4 GET
		CMP	#004H
		BCS	UN0M4E0
		LDA	#00DH
		JSR	UN0M4DS
		BCS	UN0M4F0
UN0M4E0		EQU	$
		LDA	#00EH
		JSR	UN0M4DS
		BCS	UN0M4F0
		LDA	#00FH
		JSR	UN0M4DS
UN0M4F0		EQU	$
		LDA	>MODTBL1
		EOR	#040H
		STA	>MODTBL1
		AND	#040H
		ROL	A
		ROL	A
		ROL	A
		AND	#001H
		TAY
		LDA	WORK0,Y
		TAY
		LDA	UN0M4ML,Y
		XBA
		LDA	UN0M4MH,Y
		TAY
		XBA
		JSL	>ENMSGSL	;MSGE SET
		RTS
;
UN0M4DS		EQU	$
		LDY	<WORK3
		STA	WORK0,Y
		INY
		CPY	#002H
		BCS	U04DS10
		STY	<WORK3
U04DS10		EQU	$
		RTS
;----------------------------------------
ULNF0M5		EQU	$
		STZ	ENCHPT,X	;E SET
		MEM16
		IDX8
		REP	#00100000B
;
		STZ	<WORK0
		STZ	<WORK2
		STZ	<WORK4
		STZ	<WORK6
;
		LDY	ENWRK0,X	;HOGO
		LDA	ULN00CN,Y
		JMP	ULN1520
;;;;;;;;;ULN0520		EQU	$
;;;;;;;;;		CMP	#10000
;;;;;;;;;		BCC	ULN0530
;;;;;;;;;		SBC	#10000		;10000
;;;;;;;;;		BRA	ULN0520
;;;;;;;;;ULN0530		EQU	$
;;;;;;;;;		CMP	#001000		;1000
;;;;;;;;;		BCC	ULN0540
;;;;;;;;;		SBC	#00100
;;;;;;;;;		INC	<WORK6
;;;;;;;;;		BRA	ULN0530
;;;;;;;;;ULN0540		EQU	$
;;;;;;;;;		CMP	#00100		;100
;;;;;;;;;		BCC	ULN0550
;;;;;;;;;		SBC	#00100
;;;;;;;;;		INC	<WORK4
;;;;;;;;;		BRA	ULN0540
;;;;;;;;;ULN0550		EQU	$
;;;;;;;;;		CMP	#00010		;10
;;;;;;;;;		BCC	ULN0560
;;;;;;;;;		SBC	#00010
;;;;;;;;;		INC	<WORK2
;;;;;;;;;		BRA	ULN0550
;;;;;;;;;ULN0560		EQU	$
;;;;;;;;;		STA	<WORK0		;1
;;;;;;;;;;
;;;;;;;;;		MEM8
;;;;;;;;;		IDX8
;;;;;;;;;		SEP	#00110000B
;;;;;;;;;;
;;;;;;;;;		LDA	<WORK2
;;;;;;;;;		ASL	A
;;;;;;;;;		ASL	A
;;;;;;;;;		ASL	A
;;;;;;;;;		ASL	A
;;;;;;;;;		ORA	<WORK0
;;;;;;;;;		STA	MSG_SU0
;;;;;;;;;		LDA	<WORK6
;;;;;;;;;		ASL	A
;;;;;;;;;		ASL	A
;;;;;;;;;		ASL	A
;;;;;;;;;		ASL	A
;;;;;;;;;		ORA	<WORK4
;;;;;;;;;		STA	MSG_SU1
;;;;;;;;;		LDA	#LOW  MS_03B2	;MSGE NO
;;;;;;;;;		LDY	#HIGH MS_03B2	;MSGE NO
;;;;;;;;;		JSL	>ENMSGSL	;MSGE SET
;;;;;;;;;		INC	ENSTAT,X
;;;;;;;;;		RTS
;----------------------------------------
ULNF0M6		EQU	$
		LDY	ENWRK0,X	;HOGO
		MEM16
		IDX8
		REP	#00100000B
		LDA	>CONCNT
		SEC
		SBC	ULN00CN,Y
		STA	>CONCNT
		MEM8
		IDX8
		SEP	#00110000B
		INC	ENSTAT,X
		LDA	#0A0H
		STA	>UPLFCT
		STZ	PYALSP			PL. MOVE
;----------------------------------------
ULNF0M7		EQU	$
		RTS
;----------------------------------------
ULANIF1		EQU	$		;OMOTE
;
		LDA	ENSTAT,X
		JSL	>JSRSUB
		WORD	ULNF1M0
		WORD	ULNF1M1
		WORD	ULNF1M2
		WORD	ULNF1M3
		WORD	ULNF0M4		;ULNF1M4
		WORD	ULNF1M5
		WORD	ULNF1M6
		WORD	ULNF1M7
;----------------------------------------
ULNF1M0		EQU	$
		STZ	ENCHPT,X	;E SET
;
		JSL	>RNDSET
		AND	#003H
		ASL	A
		STA	ENWRK0,X
		TAY
		MEM16
		IDX8
		REP	#00100000B
		LDA	>CONCNT
		CMP	ULN10CN,Y
		MEM8
		IDX8
		SEP	#00110000B
		BCS	ULN1010
		INC	ENSTAT,X	;ULANAI BUT
		RTS
ULN1010		EQU	$		;ULANAI OK
		LDA	#002H
		STA	ENSTAT,X
		RTS
;----------------------------------------
ULNF1M1		EQU	$		;ULANAI BUT
		LDA	#LOW  MS_03B0	;MSGE NO
		LDY	#HIGH MS_03B0	;MSGE NO
		JSL	>ENMSGEL	;MSGE SET
		RTS
;----------------------------------------
ULNF1M2		EQU	$		;ULANAI OK
		LDA	#LOW  MS_03B1	;MSGE NO
		LDY	#HIGH MS_03B1	;MSGE NO
		JSL	>ENMSGEL	;MSGE SET
		BCC	ULN1210
		INC	ENSTAT,X
		LDA	#0FFH
		STA	ENTIM0,X
		LDA	#001H		;PL. STOP
		STA	PYALSP
;
ULN1210		EQU	$
		RTS
;----------------------------------------
ULNF1M3		EQU	$
		LDA	MSG_RTS
		BNE	ULN1310
;					;YARU
		LDA	<FRCNT
		LSR	A
		LSR	A
		LSR	A
		LSR	A
		AND	#001H
		STA	ENCHPT,X	;E SET
;
		LDA	ENTIM0,X
		BNE	ULN1320
		INC	ENSTAT,X
ULN1320		EQU	$
		RTS
;
ULN1310		EQU	$		;YAMETOKU
		LDA	#LOW  MS_03B3	;MSGE NO
		LDY	#HIGH MS_03B3	;MSGE NO
		JSL	>ENMSGSL	;MSGE SET
		LDA	#002H
		STA	ENSTAT,X
		STZ	PYALSP			PL. MOVE
		RTS
;----------------------------------------
;;;ULN14ML		EQU	$
;;;		BYTE	LOW  MS_03A8	;1
;;;		BYTE	LOW  MS_03A8	;2
;;;		BYTE	LOW  MS_03A8	;3
;;;		BYTE	LOW  MS_03A8	;4
;;;		BYTE	LOW  MS_03A9	;5
;;;		BYTE	LOW  MS_03A9	;6
;;;		BYTE	LOW  MS_03AA	;7
;;;		BYTE	LOW  MS_03AA	;8
;;;		BYTE	LOW  MS_03AB	;9
;;;		BYTE	LOW  MS_03AB	;10
;;;		BYTE	LOW  MS_03AC	;11
;;;		BYTE	LOW  MS_03AC	;12
;;;		BYTE	LOW  MS_03AD	;13
;;;		BYTE	LOW  MS_03AD	;14
;;;		BYTE	LOW  MS_03AE	;15
;;;		BYTE	LOW  MS_03AF	;16
;;;;
;;;ULN14MH		EQU	$
;;;		BYTE	HIGH MS_03A8	;1
;;;		BYTE	HIGH MS_03A8	;2
;;;		BYTE	HIGH MS_03A8	;3
;;;		BYTE	HIGH MS_03A8	;4
;;;		BYTE	HIGH MS_03A9	;5
;;;		BYTE	HIGH MS_03A9	;6
;;;		BYTE	HIGH MS_03AA	;7
;;;		BYTE	HIGH MS_03AA	;8
;;;		BYTE	HIGH MS_03AB	;9
;;;		BYTE	HIGH MS_03AB	;10
;;;		BYTE	HIGH MS_03AC	;11
;;;		BYTE	HIGH MS_03AC	;12
;;;		BYTE	HIGH MS_03AD	;13
;;;		BYTE	HIGH MS_03AD	;14
;;;		BYTE	HIGH MS_03AE	;15
;;;		BYTE	HIGH MS_03AF	;16
;;;;
;;;ULNF1M4		EQU	$
;;;		STZ	ENCHPT,X
;;;;
;;;		LDA	>LFNWCT
;;;		CLC
;;;		ADC	#007H
;;;		LSR	A
;;;		LSR	A
;;;		LSR	A
;;;		DEC	A
;;;		TAY
;;;		LDA	ULN14ML,Y	;MSGE NO
;;;		XBA
;;;		LDA	ULN14MH,Y	;MSGE NO
;;;		TAY
;;;		XBA
;;;		JSL	>ENMSGSL	;MSGE SET
;;;		INC	ENSTAT,X
;;;		RTS
;----------------------------------------
ULNF1M5		EQU	$
		MEM16
		IDX8
		REP	#00100000B
;
		STZ	<WORK0
		STZ	<WORK2
		STZ	<WORK4
		STZ	<WORK6
;
		LDY	ENWRK0,X	;HOGO
		LDA	ULN10CN,Y
ULN1520		EQU	$
		CMP	#10000
		BCC	ULN1530
		SBC	#10000		;10000
		BRA	ULN1520
ULN1530		EQU	$
		CMP	#001000		;1000
		BCC	ULN1540
		SBC	#00100
		INC	<WORK6
		BRA	ULN1530
ULN1540		EQU	$
		CMP	#00100		;100
		BCC	ULN1550
		SBC	#00100
		INC	<WORK4
		BRA	ULN1540
ULN1550		EQU	$
		CMP	#00010		;10
		BCC	ULN1560
		SBC	#00010
		INC	<WORK2
		BRA	ULN1550
ULN1560		EQU	$
		STA	<WORK0		;1
;
		MEM8
		IDX8
		SEP	#00110000B
;
		LDA	<WORK0
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ORA	<WORK2
		STA	MSG_SU0
		LDA	<WORK6
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ORA	<WORK4
		STA	MSG_SU1
		LDA	#LOW  MS_03B2	;MSGE NO
		LDY	#HIGH MS_03B2	;MSGE NO
		JSL	>ENMSGSL	;MSGE SET
		INC	ENSTAT,X
		RTS
;----------------------------------------
ULNF1M6		EQU	$
		LDY	ENWRK0,X	;HOGO
		MEM16
		IDX8
		REP	#00100000B
		LDA	>CONCNT
		SEC
		SBC	ULN10CN,Y
		STA	>CONCNT
		MEM8
		IDX8
		SEP	#00110000B
		INC	ENSTAT,X
		LDA	#0A0H
		STA	>UPLFCT
		STZ	PYALSP			PL. MOVE
;----------------------------------------
ULNF1M7		EQU	$
		RTS
;----------------------------------------
ULANICY		EQU	48
ULANICD		EQU	$
		WORD	00000,00000-ULANICY		;OMOTE 0
		BYTE	00CH,000H,000H,002H
		WORD	00000,00016-ULANICY
		BYTE	02CH,000H,000H,000H
		WORD	00008,00016-ULANICY
		BYTE	02CH,040H,000H,000H
;
		WORD	00000,00000-ULANICY		;OMOTE 1
		BYTE	00AH,000H,000H,002H
		WORD	00000,00016-ULANICY
		BYTE	02AH,000H,000H,000H
		WORD	00008,00016-ULANICY
		BYTE	02AH,040H,000H,000H
;
		WORD	-0004,00008-ULANICY		;URA   0
		BYTE	066H,000H,000H,002H
		WORD	00004,00008-ULANICY
		BYTE	066H,040H,000H,002H
		WORD	-0004,00008-ULANICY
		BYTE	066H,000H,000H,002H
;
		WORD	-0004,00008-ULANICY		;URA   1
		BYTE	068H,000H,000H,002H
		WORD	00004,00008-ULANICY
		BYTE	068H,040H,000H,002H
		WORD	-0004,00008-ULANICY
		BYTE	068H,000H,000H,002H
;
ULANICS		EQU	$
		LDA	>GDTRPF
		ASL	A
		ROL	A
		ROL	A
		AND	#001H
		STA	<WORK0
		ASL	A
		ADC	<WORK0
		ADC	ENCHPT,X
		ASL	A
		ADC	ENCHPT,X
		ASL	A
		ASL	A
		ASL	A
		ADC	#LOW  ULANICD
		STA	<WORK8
		LDA	#HIGH ULANICD
		ADC	#000H
		STA	<WORK9
;
		LDA	#003H		;KAZU
;;		STA	<WORK6
;;		STZ	<WORK7
;
		JSL	>SETOAML22
;
;		JSL	>SADWSTL
		RTS
;----------------------------------------
ULANIST		EQU	$
		LDA	#ULANI
		JSL	>ENIDSH
;
		LDA	<WORK0
		STA	ENXPSL,Y
		LDA	<WORK1
		STA	ENXPSH,Y
		LDA	<WORK2
;		SEC
;		SBC	#ULANICY-8
		STA	ENYPSL,Y
		LDA	<WORK3
;		SBC	#000H
		STA	ENYPSH,Y
;
		LDA	#001H		;ATARI MODE
		STA	ENCONT,Y
;
		LDA	#000H		;ATARI HANI MODE
		STA	ENMOD3,Y
;
		LDA	#001H		;beem thru
		STA	ENNOCR,Y
;
		RTL
;----------------------------------------
MEIR0MV		EQU	$
		PHB
		PHK
		PLB
		JSR	MEIR0MV_I
		PLB
		RTL
;----------------------------------------
MEIR0MV_I	EQU	$
		JSL	>BABA1CS
		JSR	ENSTCK		; scroll : not return !
;
		JSL	>ENMKIST	;MUKI SET
		JSL	>EPXYCK2		;pl muki set
		TYA
		EOR	#003H
		STA	ENCMKI,X
;
		LDA	ENSTAT,X
		JSL	>JSRSUB
		WORD	MEIR0M0
		WORD	MEIR0M2
		WORD	MEIR0M1
;----------------------------------------
MEIR0M0		EQU	$
		LDA	ENXPSL,X
		CMP	<PLXPS1
		BCS	MR0M020
;
		LDA	#LOW  MS_0351	;MSGE NO
		LDY	#HIGH MS_0351	;MSGE NO
		JSL	>ENMSG2L	;MSGE SET
		BCC	MR0M010
		STA	ENCMKI,X
		STA	ENMUKI,X
		INC	ENSTAT,X
		LDA	#000H
		STA	>KRXBUF
		STA	>KRXBUF+1
		STA	>KRXBUF+2
		STA	>KRXBUF+3
		STZ	ENWRK0,X
		STZ	SCLSFG
MR0M010		EQU	$
		RTS
;
;
MR0M020		EQU	$
		LDA	#LOW  MS_0355	;MSGE NO
		LDY	#HIGH MS_0355	;MSGE NO
		JSL	>ENMSG2L	;MSGE SET
		RTS
;----------------------------------------
MEIR0M1		EQU	$
;
		INC	ENWRK0,X	;SEC COUNT
		LDA	ENWRK0,X
		CMP	#51		;#063
		BNE	MEIR020
		STZ	ENWRK0,X
		MEM16
		IDX8
		REP	#00100000B
;
		LDA	>KRXBUF		;COUNT TIME
		INC	A
		STA	>KRXBUF
		BNE	MEIR010
		LDA	>KRXBUF+2
		INC	A
		STA	>KRXBUF+2
MEIR010		EQU	$
		MEM8
		IDX8
		SEP	#00110000B
;
MEIR020		EQU	$
		RTS
;----------------------------------------
MEIR0M2		EQU	$
		LDA	#007H		;OTO
		JSL	>SDLRE3
		INC	ENSTAT,X
		RTS
;----------------------------------------
;;;MEIR0CY		EQU	8
;;;MEIR0CD		EQU	$
;;;		WORD	00000,00000-MEIR0CY		;0
;;;		BYTE	0E0H,000H,000H,002H
;;;		WORD	00000,00008-MEIR0CY
;;;		BYTE	0E8H,000H,000H,002H
;;;		WORD	00000,00001-MEIR0CY
;;;		BYTE	0E0H,000H,000H,002H
;;;		WORD	00000,00009-MEIR0CY
;;;		BYTE	0E8H,040H,000H,002H
;;;;
;;;		WORD	00000,00000-MEIR0CY		;1
;;;		BYTE	0C0H,000H,000H,002H
;;;		WORD	00000,00008-MEIR0CY
;;;		BYTE	0C2H,000H,000H,002H
;;;		WORD	00000,00001-MEIR0CY
;;;		BYTE	0C0H,000H,000H,002H
;;;		WORD	00000,00009-MEIR0CY
;;;		BYTE	0C2H,040H,000H,002H
;;;;
;;;		WORD	00000,00000-MEIR0CY		;2
;;;		BYTE	0E2H,000H,000H,002H
;;;		WORD	00000,00008-MEIR0CY
;;;		BYTE	0E4H,000H,000H,002H
;;;		WORD	00000,00001-MEIR0CY
;;;		BYTE	0E2H,000H,000H,002H
;;;		WORD	00000,00009-MEIR0CY
;;;		BYTE	0E6H,000H,000H,002H
;;;;
;;;		WORD	00000,00000-MEIR0CY		;3
;;;		BYTE	0E2H,040H,000H,002H
;;;		WORD	00000,00008-MEIR0CY
;;;		BYTE	0E4H,040H,000H,002H
;;;		WORD	00000,00001-MEIR0CY
;;;		BYTE	0E2H,040H,000H,002H
;;;		WORD	00000,00009-MEIR0CY
;;;		BYTE	0E6H,040H,000H,002H
;;;;
;;;MEIR0CS		EQU	$
;;;		LDA	#002H
;;;		STA	<WORK6
;;;		STZ	<WORK7
;;;;
;;;		LDA	ENMUKI,X
;;;		ASL	A
;;;		ADC	ENCHPT,X
;;;		ASL	A
;;;		ASL	A
;;;		ASL	A
;;;		ASL	A
;;;		ADC	#LOW  MEIR0CD
;;;		STA	<WORK8
;;;		LDA	#HIGH MEIR0CD
;;;		ADC	#000H
;;;		STA	<WORK9
;;;;
;;;		JSL	>SETOAML
;;;;
;;;		JSL	>SADWSTL
;;;		RTS
;----------------------------------------
MEIR1MV		EQU	$
		PHB
		PHK
		PLB
		JSR	MEIR1MV_I
		PLB
		RTL
;----------------------------------------
MEIR1MV_I	EQU	$
		JSL	>MEIR1CS
		JSR	ENSTCK		; scroll : not return !
;
		JSL	>ENMKIST	;MUKI SET
		STZ	ENCMKI,X
;
		JSL	>ENPLATR	;PL. EN. ATARI SET
;
		LDA	<FRCNT
		LSR	A
		LSR	A
		LSR	A
		AND	#001H
		STA	ENCHPT,X
;
		LDA	SCLSFG
		BNE	MEIR1MV_I10
;
		LDA	ENSTAT,X
		JSL	>JSRSUB
		WORD	MEIR1M0
		WORD	MEIR1M1
		WORD	MEIR1M2
		WORD	MEIR1M3
		WORD	MEIR1M4
;
MEIR1MV_I10	EQU	$
		LDA	#LOW  MS_0355	;MSGE NO
		LDY	#HIGH MS_0355	;MSGE NO
		JSL	>ENMSG2L	;MSGE SET
		RTS
;----------------------------------------
MEIR1M0		EQU	$
		MEM16
		IDX8
		REP	#00100000B
;
		LDA	>KRXBUF		;TIME SAVE
		STA	>KRXBUF+4
		LDA	>KRXBUF+2
		STA	>KRXBUF+6
;
		STZ	<WORK0
		STZ	<WORK2
		STZ	<WORK4
		STZ	<WORK6
;
		LDA	>KRXBUF+4
MR1M020		EQU	$
		CMP	#06000
		BCC	MR1M030
		SBC	#06000		;99 MIN
		BRA	MR1M020
MR1M030		EQU	$
		CMP	#00600		;10 MIN
		BCC	MR1M040
		SBC	#00600
		INC	<WORK6
		BRA	MR1M030
MR1M040		EQU	$
		CMP	#00060		;1 MIN
		BCC	MR1M050
		SBC	#00060
		INC	<WORK4
		BRA	MR1M040
MR1M050		EQU	$
		CMP	#00010		;10 SEC
		BCC	MR1M060
		SBC	#00010
		INC	<WORK2
		BRA	MR1M050
MR1M060		EQU	$
		STA	<WORK0		;1 SEC
;
		MEM8
		IDX8
		SEP	#00110000B
;
		LDA	<WORK2
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ORA	<WORK0
		STA	MSG_SU0
		LDA	<WORK6
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ORA	<WORK4
		STA	MSG_SU1
;
MR1M070		EQU	$
		LDA	#LOW  MS_0350	;MSGE NO
		LDY	#HIGH MS_0350	;MSGE NO
MR1M080		EQU	$
		JSL	>ENMSG2L	;MSGE SET
		BCC	MR1M010
		STA	ENMUKI,X
		STA	ENCMKI,X
		INC	ENSTAT,X
MR1M010		EQU	$
		RTS
;----------------------------------------
MEIR1M1		EQU	$
		INC	ENSTAT,X
;
		TXY
		LDX	<MPDTNO
		LDA	>GNDTBL,X
		TYX
		AND	#040H
		BEQ	MR1M120
		INC	ENSTAT,X
		INC	ENSTAT,X
		LDA	#LOW  MS_0354	;MSGE NO
		LDY	#HIGH MS_0354	;MSGE NO
		JSL	>ENMSGSL	;MSGE SET
		RTS
;
MR1M120		EQU	$
		LDA	>KRXBUF+5
		BNE	MR1M110
		LDA	>KRXBUF+4
		CMP	#016
		BCS	MR1M110
;
		INC	ENSTAT,X
;
		LDA	#LOW  MS_0352	;MSGE NO
		LDY	#HIGH MS_0352	;MSGE NO
		JSL	>ENMSGSL	;MSGE SET
		STA	ENCMKI,X
		STA	ENMUKI,X
		RTS
;
MR1M110		EQU	$
		LDA	#LOW  MS_0353	;MSGE NO
		LDY	#HIGH MS_0353	;MSGE NO
		JSL	>ENMSGSL	;MSGE SET
		STA	ENCMKI,X
		STA	ENMUKI,X
		RTS
;
;----------------------------------------
MEIR1M2		EQU	$
		LDA	#LOW  MS_0353	;MSGE NO
		LDY	#HIGH MS_0353	;MSGE NO
		JSL	>ENMSG2L	;MSGE SET
		BCC	MR1M210
		STA	ENCMKI,X
		STA	ENMUKI,X
MR1M210		EQU	$
		RTS
;----------------------------------------
MEIR1M3		EQU	$
		LDA	#LOW  MS_0352	;MSGE NO
		LDY	#HIGH MS_0352	;MSGE NO
		JSL	>ENMSGEL	;MSGE SET
		BCC	MR1M310
		STA	ENCMKI,X
		STA	ENMUKI,X
MR1M310		EQU	$
		RTS
;----------------------------------------
MEIR1M4		EQU	$
		LDA	#LOW  MS_0354	;MSGE NO
		LDY	#HIGH MS_0354	;MSGE NO
		JSL	>ENMSGEL	;MSGE SET
		BCC	MR1M410
		STA	ENCMKI,X
		STA	ENMUKI,X
MR1M410		EQU	$
		RTS
;----------------------------------------
MEIR1CY		EQU	8
MEIR1CD		EQU	$
		WORD	00000,-0002-MEIR1CY		;0
		BYTE	000H,000H,000H,002H
		WORD	00000,00008-MEIR1CY
		BYTE	020H,000H,000H,002H
		WORD	00000,-0002-MEIR1CY
		BYTE	000H,000H,000H,002H
		WORD	00000,00008-MEIR1CY
		BYTE	020H,000H,000H,002H
;
		WORD	00000,-0002-MEIR1CY		;1
		BYTE	000H,000H,000H,002H
		WORD	00000,00008-MEIR1CY
		BYTE	020H,000H,000H,002H
		WORD	00000,-0002-MEIR1CY
		BYTE	000H,000H,000H,002H
		WORD	00000,00008-MEIR1CY
		BYTE	020H,000H,000H,002H
;
		WORD	00000,-0002-MEIR1CY		;2
		BYTE	002H,040H,000H,002H
		WORD	00000,00008-MEIR1CY
		BYTE	020H,000H,000H,002H
		WORD	00000,-0002-MEIR1CY
		BYTE	002H,040H,000H,002H
		WORD	00000,00008-MEIR1CY
		BYTE	020H,000H,000H,002H
;
		WORD	00000,-0002-MEIR1CY		;3
		BYTE	002H,000H,000H,002H
		WORD	00000,00008-MEIR1CY
		BYTE	020H,000H,000H,002H
		WORD	00000,-0002-MEIR1CY
		BYTE	002H,000H,000H,002H
		WORD	00000,00008-MEIR1CY
		BYTE	020H,000H,000H,002H
;
MEIR1CS		EQU	$
		PHB
		PHK
		PLB
		LDA	#002H
		STA	<WORK6
		STZ	<WORK7
;
		LDA	ENMUKI,X
		ASL	A
		ADC	ENCHPT,X
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ADC	#LOW  MEIR1CD
		STA	<WORK8
		LDA	#HIGH MEIR1CD
		ADC	#000H
		STA	<WORK9
;
		JSL	>SETOAML
;
		JSL	>SADWSTL
		PLB
		RTL
;----------------------------------------
HELP0CD		EQU	$
		WORD	00001,-0007		;0
		BYTE	020H,001H,000H,002H
		WORD	00001,00003
		BYTE	022H,001H,000H,002H
		WORD	00001,-0007
		BYTE	020H,001H,000H,002H
		WORD	00001,00003
		BYTE	022H,041H,000H,002H
;
		WORD	00001,-0007		;1
		BYTE	020H,001H,000H,002H
		WORD	00001,00003
		BYTE	022H,001H,000H,002H
		WORD	00001,-0007
		BYTE	020H,001H,000H,002H
		WORD	00001,00003
		BYTE	022H,041H,000H,002H
;
		WORD	00001,-0007		;2
		BYTE	020H,001H,000H,002H
		WORD	00001,00003
		BYTE	022H,001H,000H,002H
		WORD	00001,-0007
		BYTE	020H,001H,000H,002H
		WORD	00001,00003
		BYTE	022H,001H,000H,002H
;
		WORD	00001,-0007		;3
		BYTE	020H,041H,000H,002H
		WORD	00001,00003
		BYTE	022H,041H,000H,002H
		WORD	00001,-0007
		BYTE	020H,041H,000H,002H
		WORD	00001,00003
		BYTE	022H,041H,000H,002H
;
HELP0CN		EQU	$
		BYTE	020H,0C0H		;0
		BYTE	020H,0C0H
;
		BYTE	000H,0A0H		;1
		BYTE	000H,0A0H
;
		BYTE	040H,080H		;2
		BYTE	040H,060H
;
		BYTE	040H,080H		;3
		BYTE	040H,060H
;
HELP0CS		EQU	$
		PHB
		PHK
		PLB
;
		LDA	#002H
		STA	<WORK6
		STZ	<WORK7
;
		LDA	ENMUKI,X
		ASL	A
		ADC	ENCHPT,X
		ASL	A
		TAY
;
		LDA	HELP0CN,Y		;OBJ CNG NO SET
		STA	OPTHPT
		LDA	HELP0CN+1,Y
		STA	OPTBPT
;
		TYA
		ASL	A
		ASL	A
		ASL	A
		ADC	#LOW HELP0CD
		STA	<WORK8
		LDA	#HIGH HELP0CD
		ADC	#000H
		STA	<WORK9
;
		JSL	>SETOAML
;
		PLB
		RTL
;
;
;----------------------------------------
SINPUCD		EQU	$
		WORD	00000,-0008		;0(MUKI)
		BYTE	020H,00EH,000H,002H
		WORD	00000,00000
		BYTE	026H,00EH,000H,002H
;
		WORD	00000,-0008
		BYTE	020H,00EH,000H,002H
		WORD	00000,00000
		BYTE	026H,04EH,000H,002H
;
		WORD	00000,-0008		;1(MUKI)
		BYTE	00EH,00EH,000H,002H
		WORD	00000,00000
		BYTE	024H,00EH,000H,002H
;
		WORD	00000,-0008
		BYTE	00EH,00EH,000H,002H
		WORD	00000,00000
		BYTE	024H,00EH,000H,002H
;
		WORD	00000,-0008		;2(MUKI)
		BYTE	022H,00EH,000H,002H
		WORD	00000,00000
		BYTE	028H,00EH,000H,002H
;
		WORD	00000,-0008
		BYTE	022H,00EH,000H,002H
		WORD	00000,00000
		BYTE	02AH,00EH,000H,002H
;
		WORD	00000,-0008		;3(MUKI)
		BYTE	022H,04EH,000H,002H
		WORD	00000,00000
		BYTE	028H,04EH,000H,002H
;
		WORD	00000,-0008
		BYTE	022H,04EH,000H,002H
		WORD	00000,00000
		BYTE	02AH,04EH,000H,002H
;
		WORD	-0007,00001		;4(DOWN)
		BYTE	00AH,00EH,000H,002H
		WORD	00003,00003
		BYTE	00CH,00EH,000H,002H
;
		WORD	-0007,00001
		BYTE	00AH,00EH,000H,002H
		WORD	00003,00003
		BYTE	00CH,00EH,000H,002H
;
SINPUCS		EQU	$
		PHB
		PHK
		PLB
		LDA	ENMUKI,X		;ADR SET
		ASL	A
		ADC	ENCHPT,X
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ADC	#LOW SINPUCD
		STA	<WORK8
		LDA	#000H
		ADC	#HIGH SINPUCD
		STA	<WORK9
;
		LDA	#002H			;KAZU SET
		STA	<WORK6
		STZ	<WORK7
;
		JSL	>SETOAML		;OAM SET
;
		JSL	>SADWSTL
		PLB
		RTL
;----------------------------------------
KUTUCY		EQU	000
KUTUCD		EQU	$
		WORD	-0001,-0001+KUTUCY		;0
		BYTE	0BEH,00AH,000H,000H
		WORD	00000,00000+KUTUCY
		BYTE	0AAH,00AH,000H,002H
		WORD	00000,-0010+KUTUCY
		BYTE	0A8H,00AH,000H,002H
		WORD	00000,00000+KUTUCY
		BYTE	0AAH,00AH,000H,002H
;
		WORD	-0001,-0001+KUTUCY
		BYTE	0BEH,00AH,000H,000H
		WORD	00000,00008+KUTUCY
		BYTE	0BFH,00AH,000H,000H
		WORD	00000,-0010+KUTUCY
		BYTE	0A8H,00AH,000H,002H
		WORD	00000,00000+KUTUCY
		BYTE	0AAH,00AH,000H,002H
;
		WORD	-0001,-0001+KUTUCY		;1
		BYTE	0BEH,00AH,000H,000H
		WORD	00000,00000+KUTUCY
		BYTE	0AAH,00AH,000H,002H
		WORD	00000,-0010+KUTUCY
		BYTE	0A8H,00AH,000H,002H
		WORD	00000,00000+KUTUCY
		BYTE	0AAH,00AH,000H,002H
;
		WORD	-0001,-0001+KUTUCY
		BYTE	0BEH,00AH,000H,000H
		WORD	00000,00008+KUTUCY
		BYTE	0BFH,00AH,000H,000H
		WORD	00000,-0010+KUTUCY
		BYTE	0A8H,00AH,000H,002H
		WORD	00000,00000+KUTUCY
		BYTE	0AAH,00AH,000H,002H
;
KUTUUCS		EQU	$
		PHB
		PHK
		PLB
;
		LDA	#4*4
		JSL	>OAMENT2
;
		LDA	ENMUKI,X
		ASL	A
		ADC	ENCHPT,X
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ADC	#LOW  KUTUCD
		STA	<WORK8
		LDA	#HIGH KUTUCD
		ADC	#000H
		STA	<WORK9
;
		LDA	#004H		;TFR KAZU
;;		STA	<WORK6
;;		STZ	<WORK7
;
		JSL	>SETOAML22
;		JSL	>SADWSTL
		PLB
		RTL
;
;----------------------------------------
KUTU1CY		EQU	-16
KUTU1CD		EQU	$
		WORD	00000,00000+KUTU1CY		;0
		BYTE	0E6H,006H,000H,002H
		WORD	00000,00008+KUTU1CY
		BYTE	0C8H,006H,000H,002H
;
		WORD	00000,00000+KUTU1CY		;1
		BYTE	0E6H,006H,000H,002H
		WORD	00000,00008+KUTU1CY
		BYTE	0CAH,006H,000H,002H
;
		WORD	00000,00000+KUTU1CY		;2
		BYTE	0E8H,006H,000H,002H
		WORD	00000,00008+KUTU1CY
		BYTE	0CAH,006H,000H,002H
;
		WORD	00000,00000+KUTU1CY		;3
		BYTE	0CCH,000H,000H,002H
		WORD	00000,00008+KUTU1CY
		BYTE	0DCH,000H,000H,002H
;
KUTU1CS		EQU	$
		PHB
		PHK
		PLB
;
		LDA	#002H		;TFR KAZU
		STA	<WORK6
		STZ	<WORK7
;
		LDA	ENCHPT,X
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ADC	#LOW  KUTU1CD
		STA	<WORK8
		LDA	#HIGH KUTU1CD
		ADC	#000H
		STA	<WORK9
		JSL	>SETOAML
;		JSL	>SADWSTL
		PLB
		RTL
;
;----------------------------------------
BAKU0CD		EQU	$
		WORD	00000,-0003
		BYTE	08BH,000H,000H,000H
		WORD	00003,00000
		BYTE	09BH,000H,000H,000H
		WORD	-0003,00000
		BYTE	08BH,0C0H,000H,000H
		WORD	00000,00003
		BYTE	09BH,0C0H,000H,000H
;
		WORD	00000,-0005
		BYTE	08AH,000H,000H,002H
		WORD	00005,00000
		BYTE	08AH,000H,000H,002H
		WORD	-0005,00000
		BYTE	08AH,000H,000H,002H
		WORD	00000,00005
		BYTE	08AH,000H,000H,002H
;
		WORD	00000,-0007
		BYTE	086H,000H,000H,002H
		WORD	00007,00000
		BYTE	086H,000H,000H,002H
		WORD	-0007,00000
		BYTE	086H,000H,000H,002H
		WORD	00000,00007
		BYTE	086H,000H,000H,002H
;
		WORD	00000,-0009
		BYTE	086H,080H,000H,002H
		WORD	00009,00000
		BYTE	086H,080H,000H,002H
		WORD	-0009,00000
		BYTE	086H,080H,000H,002H
		WORD	00000,00009
		BYTE	086H,080H,000H,002H
;
		WORD	00000,-0009
		BYTE	086H,0C0H,000H,002H
		WORD	00009,00000
		BYTE	086H,0C0H,000H,002H
		WORD	-0009,00000
		BYTE	086H,0C0H,000H,002H
		WORD	00000,00009
		BYTE	086H,0C0H,000H,002H
;
		WORD	00000,-0007
		BYTE	086H,040H,000H,002H
		WORD	00007,00000
		BYTE	086H,040H,000H,002H
		WORD	-0007,00000
		BYTE	086H,040H,000H,002H
		WORD	00000,00007
		BYTE	086H,040H,000H,002H
;
BAKU0CS		EQU	$
		PHB
		PHK
		PLB
;
		LDA	#014H
		STA	ENCLOR,X
;
		LDA	ENCHPT,X
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ADC	#LOW  BAKU0CD
		STA	<WORK8
		LDA	#HIGH BAKU0CD
		ADC	#000H
		STA	<WORK9
;
		LDA	#004H
;		STA	<WORK6
;		STZ	<WORK7
;
		JSL	>SETOAML22
;
		PLB
		RTL
;----------------------------------------
MONORCD		EQU	$
		WORD	-0008,-0016
		BYTE	08CH,000H,000H,002H
		WORD	00008,-0016
		BYTE	08CH,040H,000H,002H
		WORD	-0008,00000
		BYTE	0ACH,000H,000H,002H
		WORD	00008,00000
		BYTE	0ACH,040H,000H,002H
;
		WORD	-0008,-0013
		BYTE	08AH,000H,000H,002H
		WORD	00008,-0013
		BYTE	08AH,040H,000H,002H
		WORD	-0008,00000
		BYTE	0ACH,000H,000H,002H
		WORD	00008,00000
		BYTE	0ACH,040H,000H,002H
;
		WORD	-0008,-0008
		BYTE	08AH,000H,000H,002H
		WORD	00008,-0008
		BYTE	08AH,040H,000H,002H
		WORD	-0008,00000
		BYTE	0ACH,000H,000H,002H
		WORD	00008,00000
		BYTE	0ACH,040H,000H,002H
;
		WORD	-0008,-0004
		BYTE	08AH,000H,000H,002H
		WORD	00008,-0004
		BYTE	08AH,040H,000H,002H
		WORD	-0008,00000
		BYTE	0AAH,000H,000H,002H
		WORD	00008,00000
		BYTE	0AAH,040H,000H,002H
;
		WORD	-0008,-0000
		BYTE	0AAH,000H,000H,002H
		WORD	00008,-0000
		BYTE	0AAH,040H,000H,002H
		WORD	-0008,00000
		BYTE	0AAH,000H,000H,002H
		WORD	00008,00000
		BYTE	0AAH,040H,000H,002H
;
MONORCS		EQU	$
		PHB
		PHK
		PLB
;
		LDA	ENCHPT,X
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ADC	#LOW MONORCD
		STA	<WORK8
		LDA	#HIGH MONORCD
		ADC	#000H
		STA	<WORK9
;
		LDA	#004H
		STA	<WORK6
		STZ	<WORK7
;
		JSL	>SETOAML
;
		PLB
		RTL
;--------------------------------------
OYAGICD		EQU	$			;CHAR DATA
;-------					;0
		WORD	00000,-0010
		BYTE	000H,00EH,000H,002H
		WORD	00000,00000
		BYTE	006H,00CH,000H,002H
;
		WORD	00000,-0010
		BYTE	000H,00EH,000H,002H
		WORD	00000,00000
		BYTE	006H,00CH,000H,002H
;
		WORD	00000,-0010
		BYTE	000H,00EH,000H,002H
		WORD	00000,00000
		BYTE	006H,00CH,000H,002H
;-
		WORD	00000,-0010
		BYTE	002H,00EH,000H,002H
		WORD	00000,00000
		BYTE	006H,00CH,000H,002H
;
		WORD	00000,-0010
		BYTE	002H,00EH,000H,002H
		WORD	00000,00000
		BYTE	006H,00CH,000H,002H
;
		WORD	00000,-0010
		BYTE	002H,00EH,000H,002H
		WORD	00000,00000
		BYTE	006H,00CH,000H,002H
;-------					;1
		WORD	-0007,00002
		BYTE	007H,00DH,000H,002H
		WORD	-0007,00002
		BYTE	007H,00DH,000H,002H
;
		WORD	00010,00012
		BYTE	005H,08DH,000H,000H
		WORD	00010,00004
		BYTE	015H,08DH,000H,000H
;
		WORD	00000,-0010
		BYTE	000H,00EH,000H,002H
		WORD	00000,00000
		BYTE	004H,00CH,000H,002H
;-
		WORD	-0007,00001
		BYTE	007H,00DH,000H,002H
		WORD	-0007,00001
		BYTE	007H,00DH,000H,002H
;
		WORD	00010,00013
		BYTE	005H,08DH,000H,000H
		WORD	00010,00005
		BYTE	015H,08DH,000H,000H
;
		WORD	00000,-0009
		BYTE	000H,00EH,000H,002H
		WORD	00000,00001
		BYTE	004H,04CH,000H,002H
;-------					;2
		WORD	-0007,00008
		BYTE	005H,08DH,000H,000H
		WORD	00001,00008
		BYTE	006H,08DH,000H,000H
;
		WORD	00000,-0010
		BYTE	002H,00EH,000H,002H
		WORD	-0006,-0001
		BYTE	007H,04DH,000H,002H
;
		WORD	00000,00000
		BYTE	023H,00CH,000H,002H
		WORD	00000,00000
		BYTE	023H,00CH,000H,002H
;-
		WORD	-0009,00007
		BYTE	005H,08DH,000H,000H
		WORD	-0001,00007
		BYTE	006H,08DH,000H,000H
;
		WORD	00000,-0009
		BYTE	002H,00EH,000H,002H
		WORD	-0006,00000
		BYTE	007H,04DH,000H,002H
;
		WORD	00000,00001
		BYTE	025H,00CH,000H,002H
		WORD	00000,00001
		BYTE	025H,00CH,000H,002H
;-------					;3
		WORD	-0010,00011-28
		BYTE	007H,00DH,000H,002H
;
		WORD	00015,00016-28
		BYTE	015H,08DH,000H,000H
		WORD	00015,00024-28
		BYTE	005H,08DH,000H,000H
;
		WORD	00000,00000-28
		BYTE	008H,00EH,000H,002H
;
		WORD	-0008,00009-28
		BYTE	020H,00CH,000H,002H
		WORD	00008,00009-28
		BYTE	020H,04CH,000H,002H
;-
		WORD	00000,00000-28
		BYTE	008H,00EH,000H,002H
;
		WORD	00000,00000-28
		BYTE	008H,00EH,000H,002H
;
		WORD	-0008,00009-28
		BYTE	020H,00CH,000H,002H
		WORD	00008,00009-28
		BYTE	020H,04CH,000H,002H
;
		WORD	-0008,00009-28
		BYTE	020H,00CH,000H,002H
		WORD	00008,00009-28
		BYTE	020H,04CH,000H,002H
;-------
KENCPD		EQU	$
		BYTE	008H,008H,000H,000H,006H,006H,000H
TATCPD		EQU	$
		BYTE	000H,000H,000H,000H,004H,004H,000H
;-----
OYAGICS		EQU	$
		PHB
		PHK
		PLB
		LDA	#6*4
		JSL	>OAMENT2
;
		MEM16
		REP	#00100000B
;
		LDA	ENCHPT,X
		AND	#000FFH
		STA	<WORK0
		
		LDA	ENMUKI,X		;ADR SET
		AND	#000FFH
		STA	<WORK2
		ASL	A
		ADC	<WORK2
		ADC	<WORK0
		ASL	A
		ADC	<WORK0
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ADC	#OYAGICD
		STA	<WORK8
;
		LDA	#00006H			;KAZU SET
		STA	<WORK6
;
		MEM8
		SEP	#00110000B
;
		LDA	ENMUKI,X
		ASL	A
		ADC	ENCHPT,X
		TAY
		LDA	KENCPD,Y	;KEN CHAR NO SET
		STA	KENCPT
		LDA	TATCPD,Y	;TATE CHAR NO SET
		STA	TATCPT
;
		JSL	>SETOAML2	;OAM SET
;
		LDA	ENMUKI,X
		BEQ	OYAGI10
		CMP	#003H
		BEQ	OYAGI10
		JSL	>SADWSTL
OYAGI10		EQU	$
		PLB
		RTL
;--------------------------------------
SINUBCX		EQU	00
SINUBCY		EQU	-5
SINUBCD		EQU	$
		WORD	00004+SINUBCX,00005+SINUBCY
		BYTE	027H,000H,000H,000H
		WORD	00000+SINUBCX,00000+SINUBCY
		BYTE	00EH,000H,000H,002H
		WORD	-0008+SINUBCX,00011+SINUBCY
		BYTE	00AH,004H,000H,002H
		WORD	00008+SINUBCX,00011+SINUBCY
		BYTE	00AH,044H,000H,002H
		WORD	-0008+SINUBCX,00019+SINUBCY
		BYTE	00AH,084H,000H,002H
		WORD	00008+SINUBCX,00019+SINUBCY
		BYTE	00AH,0C4H,000H,002H
;
		WORD	00000+SINUBCX,00000+SINUBCY
		BYTE	00EH,000H,000H,002H
		WORD	00000+SINUBCX,00000+SINUBCY
		BYTE	00EH,000H,000H,002H
		WORD	-0008+SINUBCX,00011+SINUBCY
		BYTE	00AH,004H,000H,002H
		WORD	00008+SINUBCX,00011+SINUBCY
		BYTE	00AH,044H,000H,002H
		WORD	-0008+SINUBCX,00019+SINUBCY
		BYTE	00AH,084H,000H,002H
		WORD	00008+SINUBCX,00019+SINUBCY
		BYTE	00AH,0C4H,000H,002H
;
		WORD	00000+SINUBCX,00000+SINUBCY
		BYTE	02EH,000H,000H,002H
		WORD	00000+SINUBCX,00000+SINUBCY
		BYTE	02EH,000H,000H,002H
		WORD	-0008+SINUBCX,00012+SINUBCY
		BYTE	00AH,004H,000H,002H
		WORD	00008+SINUBCX,00012+SINUBCY
		BYTE	00AH,044H,000H,002H
		WORD	-0008+SINUBCX,00019+SINUBCY
		BYTE	00AH,084H,000H,002H
		WORD	00008+SINUBCX,00019+SINUBCY
		BYTE	00AH,0C4H,000H,002H
;
SINUBCS		EQU	$
		PHB
		PHK
		PLB
		LDA	#006H		;TFR KAZU
		STA	<WORK6
		STZ	<WORK7

		LDA	ENCHPT,X	;ADD SET
		ASL	A
		ADC	ENCHPT,X
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ADC	#LOW  SINUBCD
		STA	<WORK8
		LDA	#HIGH SINUBCD
		ADC	#000H
		STA	<WORK9
		JSL	>SETOAML
		PLB
		RTL
;--------------------------------------
ENSTCK		EQU	$
		LDA	ENMODE,X
		CMP	#EMOVE
		BNE	ESTC08
ENSTCK2		EQU	$
;;		JSR	PLHNCK		; player hani flag set 
;
		LDA	ENSTFG
		BNE	ESTC08		; enemy all stop !
;
		LDA	<GAMEMD
		BNE	ESTC08
;
		LDA	ENMOD5,X
		BMI	ESTC10
;
		LDA	ENDSPL,X
		BEQ	ESTC10		; game stop ?
;
ESTC08		EQU	$
		PLA			; yes ! don't sub return 
		PLA
ESTC10		EQU	$
		RTS
;=====================================================
;===============================
PATA0CD		EQU	$
;0
		WORD	00000H,00000H
		HEX	C6,40,00,02
		WORD	00000H,00000H
		HEX	C6,40,00,02
;1
		WORD	00000H,00000H
		HEX	C4,40,00,02
		WORD	00000H,00000H
		HEX	C4,40,00,02
;2
		WORD	00000H,00000H
		HEX	C6,00,00,02
		WORD	00000H,00000H
		HEX	C6,00,00,02
;3
		WORD	00000H,00000H
		HEX	C4,00,00,02
		WORD	00000H,00000H
		HEX	C4,00,00,02
;4
		WORD	0FFF8H,00000H
		HEX	C0,00,00,02
		WORD	00008H,00000H
		HEX	C0,40,00,02
;5
		WORD	0FFF8H,00000H
		HEX	C2,00,00,02
		WORD	00008H,00000H
		HEX	C2,40,00,02
;6
		WORD	0FFF8H,00000H
		HEX	E0,00,00,02
		WORD	00008H,00000H
		HEX	E0,40,00,02
;7
		WORD	0FFF8H,00000H
		HEX	E2,00,00,02
		WORD	00008H,00000H
		HEX	E2,40,00,02
;8
		WORD	0FFF8H,00000H
		HEX	E4,00,00,02
		WORD	00008H,00000H
		HEX	E4,40,00,02
;9
		WORD	00000H,00000H
		HEX	E6,40,00,02
		WORD	00000H,00000H
		HEX	E6,40,00,02
;A
		WORD	00000H,00000H
		HEX	E6,00,00,02
		WORD	00000H,00000H
		HEX	E6,00,00,02
;- - - - - - - - - - - - - - - - - - - - - - -
PATA0CS		EQU	$
		PHB
		PHK
		PLB
;
		LDA	#00H
		XBA
		LDA	ENCHPT,X
		MEM16
		REP	#00100000B
		ASL	A
		ASL	A
		ASL	A
;
		ASL	A
		ADC	#PATA0CD  
		STA	<WORK8
;
		MEM8
		SEP	#00100000B
;
		LDA	#02H
;;		STA	<WORK6
;;		STZ	<WORK7
;
		JSL	>SETOAML22
;
		JSL	>SADWSTL
		PLB
		RTL
;=====================================
PBBANCD		EQU	$
;		WORD	0FFFCH,00004H
;		HEX	DF,01,00,00
;		WORD	00004H,0FFFCH
;		HEX	DF,C1,00,00
;		WORD	0000BH,00006H
;		HEX	DF,41,00,00
;
		WORD	0FFF9H-4,00004H-04H
		HEX	9B,01,00,00
		WORD	00004H-4,0FFFCH-04H
		HEX	9B,C1,00,00
		WORD	0000AH-4,0000AH-04H
		HEX	9B,41,00,00
;
		WORD	0FFF9H-8,00004H-0AH
		HEX	8A,01,00,02
		WORD	00004H-8,0FFFCH-0AH
		HEX	8A,01,00,02
		WORD	0000AH-8,0000AH-0AH
		HEX	8A,01,00,02
;
		WORD	0FFF9H-8,00004H-0AH
		HEX	86,01,00,02
		WORD	00004H-8,0FFFCH-0AH
		HEX	86,01,00,02
		WORD	0000AH-8,0000AH-0AH
		HEX	86,01,00,02
;
		WORD	0FFFCH,0FFFCH
		HEX	86,01,00,02
		WORD	0FFFCH,0FFFCH
		HEX	86,01,00,02
		WORD	0FFFCH,0FFFCH
		HEX	86,01,00,02
;
		WORD	0FFFCH,0FFFCH
		HEX	AA,01,00,02
		WORD	0FFFCH,0FFFCH
		HEX	AA,01,00,02
		WORD	0FFFCH,0FFFCH
		HEX	AA,01,00,02
PBBANCS		EQU	$
		PHB
		PHK
		PLB
;
		LDA	ENTIM0,X
		BNE	PBC010
;
		STZ	ENMODE,X
PBC010		EQU	$
		LSR	A
		LSR	A
		PHA
		LDA	#00H
		XBA
		PLA
		MEM16
		REP	#00100000B
		ASL	A
		ASL	A
		ASL	A
		STA	<WORK0
;
		ASL	A
		ADC	<WORK0
		ADC	#PBBANCD  
		STA	<WORK8
;
		MEM8
		SEP	#00100000B
;
		LDA	#03H
;;		STA	<WORK6
;;		STZ	<WORK7
;
		JSL	>SETOAML22
;
		PLB
		RTL
;--------------------------
;==================================================================
;CRHCEN		EQU	$
;		LDY	#ENNO-1
;CHC010		EQU	$
;		CPY	ENINDX
;		BEQ	CHC090
;		TYA
;		EOR	<FRCNT
;		AND	#03H
;		ORA	ENNOCR,Y
;		ORA	ENFLSH,Y
;		BNE	CHC090
;;
;		LDA	ENMODE,Y
;		CMP	#EMOVE
;		BCC	CHC090
;;
CRHCEN		EQU	$
;;		LDA	ENXPSL,Y
;;		STA	<WORK0
;;		LDA	ENXPSH,Y
;;		STA	<WORK8
;;		LDA	ENYPSL,Y
;;		SEC
;;		SBC	ENZPSL,Y
;;		STA	<WORK1
;;		LDA	ENYPSH,Y
;;		SBC	#00H
;;		STA	<WORK9
;;		LDA	#08H
;;		STA	<WORK2
;;		STA	<WORK3
;;;
;;		JSL	>ENCRST2
;;		JSL	>CROJCK2
;;		BCC	CHC090
		LDA	ENMYNO,Y
		CMP	#BIGKO
		BEQ	CHC030
;
		LDA	ENMOD7,Y
		AND	#00000010B
		BNE	CHC090		; Boss ?
;					; no !
CHC030		EQU	$
		LDA	ENXPSL,Y
		STA	<WORK0
		LDA	ENXPSH,Y
		STA	<WORK1
		LDA	ENYPSL,Y
		STA	<WORK2
		LDA	ENYPSH,Y
		STA	<WORK3
;
		MEM16
		REP	#20H
		LDA	ENXP2L
		SEC
		SBC	<WORK0
		CLC
		ADC	#0010H
		CMP	#0018H
		BCS	CHC090
;
		LDA	ENYP2L
		SEC
		SBC	<WORK2
		CLC
		ADC	#0010H-18H ;(ZPOS)
		CMP	#0018H
		BCS	CHC090
;
		MEM8
		SEP	#20H
;
		LDA	ENMYNO,Y
		CMP	#SYOBY
		BNE	CHC038		; Bin uri ?
;
		TXA
		INC	A
		STA	ENWRK3,Y	; Hachi index set !
		RTL
;
CHC038		EQU	$
		LDA	#01H		; Ken power !
		PHY
		PHX
		TYX
		JSL	>ENDMST3
		PLX
		PLY
;
		LDA	#0FH
		STA	ENHNFG,Y
;
		LDA	ENXSPD,X
		ASL	A
		STA	ENHNXS,Y
		LDA	ENYSPD,X
		ASL	A
		STA	ENHNYS,Y
;
		INC	ENWRK1,X	; Hit count !
CHC090		EQU	$
		MEM8
		SEP	#20H
;
;		DEY
;		BPL	CHC010
		RTL
;=============================================================
LIKE0CD		EQU	$
;0
		WORD	0,0
		HEX	C8,00,00,02
		WORD	0,0
		HEX	C8,00,00,02
;1
		WORD	0,0
		HEX	CA,00,00,02
		WORD	0,0
		HEX	CA,00,00,02
;2
		WORD	0FFF8H,00000H
		HEX	CC,00,00,02
		WORD	00008H,00000H
		HEX	CC,40,00,02
;3
		WORD	0FFF8H,00000H
		HEX	CE,00,00,02
		WORD	00008H,00000H
		HEX	CE,40,00,02
;		
LIKE0CS		EQU	$
		PHB
		PHK
		PLB
;
		JSR	LKHNDCS		; Hand set !
		LDY	#00H
		LDA	(<OAMADR),Y
		STA	ENHELP
		INY	
		LDA	(<OAMADR),Y
		STA	ENHELP2
;
		LDA	#00H
		XBA
		LDA	ENCHPT,X
		MEM16
		REP	#00100000B
		ASL	A
		ASL	A
		ASL	A
;
		ASL	A
		ADC	#LIKE0CD  
		STA	<WORK8
;
		LDA	<OAMADR
		CLC	
		ADC	#06H*4
		STA	<OAMADR
		LDA	<OSBADR
		CLC
		ADC	#06H
		STA	<OSBADR
;
		MEM8
		SEP	#00100000B
;
		LDA	#02H
;;		STA	<WORK6
;;		STZ	<WORK7
;
		JSL	>SETOAML22
;
		LDA	ENMOD0,X
		PHA
		SEC
		SBC	#06H
		STA	ENMOD0,X
		JSL	>SADWSTL
		PLA
		STA	ENMOD0,X
;
		JSR	LKITMCS		; Cached player item set !
;
		PLB
		RTL
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
LKHC90		EQU	$
		RTS
;=========================
LKCCDT		EQU	$
		HEX	EE,FD,ED,FD,EE,FD,ED,FD
LKCADT		EQU	$
		HEX	00,00,00,40,40,C0,80,80
;
LKHNDCS		EQU	$
		LDA	ENSTAT,X
		CMP	#02H
		BNE	LKHC90
;
;;		JSR	OAMCHK
		LDA	ENDSPL,X
		BNE	LKHC90
;
		LDA	<WORK0
		CLC
		ADC	#04H
		STA	<WORK0
		LDY	#05H*4+0
		STA	(<OAMADR),Y
		CLC
		ADC	ENWRK0,X
		LDY	#00H*4+0
		STA	(<OAMADR),Y
		LDA	<WORK2
		CLC
		ADC	#03H
		STA	<WORK2
		LDY	#05H*4+1
		STA	(<OAMADR),Y
		CLC
		ADC	ENWRK1,X
		LDY	#00H*4+1
		STA	(<OAMADR),Y
		LDA	#0FEH
		LDY	#05H*4+2
		STA	(<OAMADR),Y
		LDY	#00H*4+2
		STA	(<OAMADR),Y
		LDA	<WORK5
		LDY	#05H*4+3
		STA	(<OAMADR),Y
		LDY	#00H*4+3
		STA	(<OAMADR),Y
;
;- - - - -- - - -
		LDA	ENMUKI,X
		STA	<WORKB
;
		LDA	ENWRK0,X
		STA	<WORKE
		BPL	LKC080
		EOR	#0FFH
		INC	A
LKC080		EQU	$
		STA	<WORKC
;
		LDA	ENWRK1,X
		STA	<WORKF
		BPL	LKC090
		EOR	#0FFH
		INC	A
LKC090		EQU	$
		STA	<WORKD
;--- Chaine set ------
		LDY	#04H
		PHX
		LDX	#03H
TWC000		EQU	$
		LDA	<WORKC
		STA	4202H
		LDA	TKBYDT,X
		STA	4203H
;;		BYTE	0EAH,0EAH,0EAH,0EAH,0EAH,0EAH,0EAH,0EAH
		JSR	NOPSUB
;
		LDA	<WORKE
		ASL	A
		LDA	4217H
		BCC	LKC0A0
		EOR	#0FFH
		INC	A
LKC0A0		EQU	$
		CLC
		ADC	<WORK0
		STA	(<OAMADR),Y
;
		LDA	<WORKD
		STA	4202H
		LDA	TKBYDT,X
		STA	4203H
;;		BYTE	0EAH,0EAH,0EAH,0EAH,0EAH,0EAH,0EAH,0EAH
		JSR	NOPSUB
		LDA	<WORKF
		ASL	A
		LDA	4217H
		BCC	LKC0B0
		EOR	#0FFH
		INC	A
LKC0B0		EQU	$
		CLC
		ADC	<WORK2
		INY
		STA	(<OAMADR),Y
		PHX
		LDX	<WORKB
		LDA	LKCCDT,X
		INY
		STA	(<OAMADR),Y
		INY
		LDA	LKCADT,X
		ORA	<WORK5
		STA	(<OAMADR),Y
		PLX
;		PHY
;		TYA
;		LSR	A
;		LSR	A
;		TAY
;		LDA	#00H
;		STA	(<OSBADR),Y
;		PLY
		INY
		DEX
		BPL	TWC000
		PLX
;
		LDY	#00H
		LDA	#05H
		JSL	>ALOMCKL
		RTS
;- - - -
TKBYDT		EQU	$
		HEX	33,66,99,CC   
NOPSUB		EQU	$
		HEX	EA,EA,EA
		RTS
;========================================================================
LKITMXD		EQU	$
		HEX	FC,04,FC,04
		HEX	00,08,00,08
		HEX	00,08,00,08
		HEX	00,08,00,08
		HEX	FC,04,FC,04
LKITMYD		EQU	$
		HEX	FC,FC,04,04
		HEX	FC,FC,04,04
		HEX	FC,FC,04,04
		HEX	FC,FC,04,04
		HEX	FC,FC,04,04
LKITMCD		EQU	$
		HEX	6E,6F,7E,7F	;Bomb
		HEX	63,7C,73,7C	;Ya
		HEX	0B,7C,1B,7C	;Rupy
		HEX	EC,F9,FC,F9	;Tate1 
		HEX	EA,EB,FA,FB	;Tate2
;
LKITMAD		EQU	$
		HEX	24,24,28,29,2F
;- - - - - - - - - - - - - - - - - -
LKITMCS		EQU	$
		LDA	ENCTCT,X
		BEQ	LKI090
;
		DEC	A
		CMP	#03H
		BNE	LKIC00
;
		LDA	HEMODE,X
		CLC
		ADC	#02H		
LKIC00		EQU	$
		STA	<WORK2
;
;;		LDY	#00H
;;		LDA	(<OAMADR),Y
;;		STA	<WORK0
;;		INY	
;;		LDA	(<OAMADR),Y
;;		STA	<WORK1
;
		LDA	#04H*4
		JSL	>OAMENT3
;
		LDY	#00H
		PHX
		LDX	#03H
LKIC10		EQU	$
		STX	<WORK3
;
		LDA	<WORK2
		ASL	A
		ASL	A
		ORA	<WORK3
		TAX
		LDA	ENHELP
		CLC
		ADC	LKITMXD,X
		STA	(<OAMADR),Y		
		LDA	ENHELP2
		CLC
		ADC	LKITMYD,X
		INY
		STA	(<OAMADR),Y		
		LDA	LKITMCD,X
		INY
		STA	(<OAMADR),Y		
		LDX	<WORK2
		LDA	LKITMAD,X
		INY
		STA	(<OAMADR),Y
		INY
		LDX	<WORK3
		DEX
		BPL	LKIC10
;
		PLX
		LDY	#00H
		LDA	#03H
		JSL	>ALOMCKL
LKI090		EQU	$
		RTS
;==================================================
ICBOSCD		EQU	$
		WORD	0FFF8H,0FFF8H
		HEX	80,00,00,02
		WORD	00008H,0FFF8H
		HEX	82,00,00,02
		WORD	0FFF8H,00008H
		HEX	A0,00,00,02
		WORD	00008H,00008H
		HEX	A2,00,00,02
;
		WORD	0FFF9H,0FFF9H
		HEX	80,00,00,02
		WORD	00007H,0FFF9H
		HEX	82,00,00,02
		WORD	0FFF9H,00007H
		HEX	A0,00,00,02
		WORD	00007H,00007H
		HEX	A2,00,00,02
;
		WORD	0FFF9H,0FFF9H
		HEX	84,00,00,02
		WORD	00007H,0FFF9H
		HEX	86,00,00,02
		WORD	0FFF9H,00007H
		HEX	A4,00,00,02
		WORD	00007H,00007H
		HEX	A6,00,00,02
;
		WORD	0FFF8H,0FFF8H
		HEX	84,00,00,02
		WORD	00008H,0FFF8H
		HEX	86,00,00,02
		WORD	0FFF8H,00008H
		HEX	A4,00,00,02
		WORD	00008H,00008H
		HEX	A6,00,00,02
;- - EYE DATA - -
ICEXAD		EQU	$
		WORD	08,07,04,02
		WORD	00,-2,-4,-7
		WORD	-8,-7,-4,-2
		WORD	00,02,04,07
;
ICEYAD		EQU	$
		WORD	00,02,04,07
		WORD	08,07,04,02
		WORD	00,-2,-4,-7
		WORD	-8,-7,-4,-2
;
ICECDT		EQU	$
		HEX	AC,AC,AA,8C
		HEX	8C,8C,AA,AC
		HEX	AC,AA,AA,8C
		HEX	8C,8C,AA,AC
ICEADT		EQU	$
		HEX	40,40,40,00
		HEX	00,00,00,00
		HEX	80,80,80,80
		HEX	80,80,C0,C0
;- - - - - - - - - -
ICBOSCS		EQU	$
		PHB
		PHK
		PLB
;
;=== Eye set =======
		JSL	>OAMCHKL
		BCS	ICBC99
;;		LDA	#04H*5
;;		JSL	>OAMENT3
;
		PHX
		LDA	ENWRK0,X
		PHA
		ASL	A
		TAX
		MEM16
		REP	#20H
		LDA	<WORK0
		CLC
		ADC	ICEXAD,X
		STA	(<OAMADR),Y
		AND	#0100H
		STA	<WORKE
		LDA	<WORK2
		CLC
		ADC	ICEYAD,X
		INY
		STA	(<OAMADR),Y
		CLC
		ADC	#0010H
		CMP	#0100H
		MEM8
		SEP	#20H
		BCC	ICE010
		LDA	#0F0H
		STA	(<OAMADR),Y
ICE010		EQU	$
		PLX
		LDA	ICECDT,X
		INY
		STA	(<OAMADR),Y
		LDA	ICEADT,X
		ORA	<WORK5
		INY
		STA	(<OAMADR),Y
;
		TYA
		LSR	A
		LSR	A
		TAY
		LDA	#02H
		ORA	<WORKF
		STA	(<OSBADR),Y
;
		PLX
;=== Body set =======
		LDA	#00H
		XBA
		LDA	ENCHPT,X
		MEM16
		REP	#00100000B
		ASL	A
		ASL	A
		ASL	A
;
		ASL	A
		ASL	A
		ADC	#ICBOSCD  
		STA	<WORK8
;
		LDA	<OAMADR
		CLC
		ADC	#0004H
		STA	<OAMADR
		INC	<OSBADR
;
		MEM8
		SEP	#00100000B
;
		LDA	#04H
;;		STA	<WORK6
;;		STZ	<WORK7
;
		JSL	>SETOAML22
ICBC99		EQU	$
		PLB
		RTL
;- - - - - - - - - - - - - - - - - - - - - -
Z2TMSTL		EQU	$
		PHB
		PHK
		PLB
;;		JSR	Z2TMST
;;		PLB
;;		RTL
;- - - - - - - - - - - - - - - - - - - - - -
Z2TMST		EQU	$
		LDA	#19H
		JSL	>SDLRE3	;(S)
;
		LDY	#0DH
		LDA	#ZORAS
		JSL	>ENIDSH2
		BMI	Z2TS90
		LDA	<WORK0
		CLC
		ADC	#04H
		STA	ENXPSL,Y
		LDA	<WORK1
		ADC	#00H
		STA	ENXPSH,Y
		LDA	<WORK2
		CLC
		ADC	#04H
		PHP
		SEC
		SBC	<WORK4	;ZPOS
		STA	ENYPSL,Y
		LDA	<WORK3
		SBC	#00H 
		PLP
		ADC	#00H
		STA	ENYPSH,Y
		LDA	ENMOD2,Y
		AND	#11111110B
		ORA	#01000000B
		STA	ENMOD2,Y
;;		LDA	ENCLOR,Y
;;		AND	#0F0H
;;		ORA	#06H
		LDA	#06H 
		STA	ENCLOR,Y
		LDA	#14H+40H
		STA	ENMOD3,Y
		STA	ENWRK3,Y
		LDA	#00100000B
		STA	ENMOD0,Y
		PHX
		TYX
		LDA	#20H+7
		JSL	>PSERCHL
		LDA	#14H
		STA	ENTIM0,X	; Obj most yuusen
		LDA	#010H
		STA	ENTIM1,X	; Not BG check !
		STZ	ENMOD4,X
		LDA	#01001000B
		STA	ENMOD5,X
		TXY
		PLX
;
;
Z2TS90		EQU	$
		PLB
		TYA
		RTL
;;		RTS
;=====================================
YSCXAD		EQU	$
		HEX	00,00,00
		HEX	00,00,FB
;
		HEX	00,FF,FF
		HEX	00,00,00
		HEX	00,01,01
YSCYAD		EQU	$
		HEX	00,F6,F6
		HEX	00,F6,FD
;
		HEX	00,F6,F6
		HEX	00,F6,F6
		HEX	00,F6,F6
YSCCDT		EQU	$
		HEX	26,06,06
		HEX	08,06,3A
;
		HEX	26,06,06
		HEX	26,06,06
		HEX	26,06,06
YSCADT		EQU	$
		HEX	08,06,06
		HEX	08,06,08
		HEX	08,06,06
		HEX	08,06,06
		HEX	08,06,06
YSCSBD		EQU	$
		HEX	02,02,02
		HEX	02,02,00
		HEX	02,02,02
		HEX	02,02,02
		HEX	02,02,02
;- - - - - - - - - - - - - - - - - - - - -
YASANCS		EQU	$
		PHB
		PHK
		PLB
;
		JSL	>OCHECKL
;
		JSL	>OAMCHKL
;
		LDA	ENCHPT,X
		ASL	A
		ADC	ENCHPT,X
		STA	<WORK6
		PHX
		LDX	#02H
YASC10		EQU	$
		PHX
		TXA
		CLC
		ADC	<WORK6
		TAX
		LDA	<WORK0
		CLC
		ADC	YSCXAD,X
		STA	(<OAMADR),Y
		LDA	<WORK2
		CLC
		ADC	YSCYAD,X
		INY
		STA	(<OAMADR),Y
		LDA	YSCCDT,X
		INY
		STA	(<OAMADR),Y
		LDA	<WORK5
		ORA	YSCADT,X
		INY
		STA	(<OAMADR),Y
		PHY
		TYA
		LSR	A
		LSR	A
		TAY
		LDA	YSCSBD,X
		STA	(<OSBADR),Y
		PLY
		INY
		PLX
		DEX
		BPL	YASC10
		PLX
;;		LDY	#0FFH
;;		LDA	#02H
;;		JSL	>ALOMCKL
;
		JSL	>SADWSTL
		PLB
		RTL

;- - - - - - - - - - - - - - - - -
		END
