; INCLUDE zel_ram.asm ; ;-------------------------------------------------------------------- ; ; PAL_ZELDA-3 (FRANCE) 1991.03.08(FRI) ; ;-------------------------------------------------------------------- ; ORG 1E8000H ; ;=============================================== (zel_enmy3) =========== GLB YOSEIMJ,ENMY3MV,BINCHKL,HACHISTL,YOSEISTL GLB POLIWCG,BABU2IT,PATAMCTL,DEMBMMV GLB HELP1IT,HELP1ST,ICEFLST,ITMZST,MEMEIT,CHFIRCS,CHFPTD GLB LINE0IT,LINE0MV,SARKKST,SARKKST1,SARKKST2,MOTSBIT,SITO2ST GLB ENPLATR,TKTAMST,MEDAMITJ GLB SMM10ST,ASMZST GLB SMM10,SMM20,SMM30,SMM40,SMM50,SMM60,SMM70 ;---------------------------------------- ;=============================================== (zel_enmy5) =========== EXT RYOKICS,BIGKOCS,PTMZCSL ;=============================================== (zel_enmy4) =========== EXT EYEBMST,HBBKST,BIGSWST,SHBUNST,GANSPST,COPYCS EXT TheftCS,HELP1CS,BIGSWST2 ;; EXT MOTSBIT,MTFTIT ;=============================================== (zel_enmy2) =========== EXT EVCHCKE,ENXSDN,ENYSDN,ENMSG2L,ENMSGEL,ENMSGSL,MSGSET EXT SETOAML,SETOAML2,ENMKIST,MKCK16,BSITEM,EFLCHK,MIZUSTL EXT SETOAML22,MZSUB EXT KEMRIST,KEMR1ST,MJSY1CS ;=============================================== (zel_enmy) ============ EXT EPXYCK2,EPXCHK2,EPYCHK2,PLFLSTL,PSSAVE2,PSERC2L,PKNCRS2 EXT EMOVE,RNDSET,BGDTRD2,ENDMST2,CROJCK2,ENCRST2,BIKRST2 EXT ENBGCKL,CRENPLL,CRKNKNL,CRKNENL,OCHECKL,ENCLER EXT ALOMCKL,ENIDSH,SADWSTL,SADWS2L,CRENPL2L,OAMENT3,OAMENT1 EXT PSERCHL,EN1CSTL,ESERCHL,SSERCH2,CACHCKL,ENBDSBL EXT ENENSET,EN1CSSL,OAMENT2,EFLSST,ENDMST3,ENDMST4,EHOLE,OAMCHKL EXT CRENPL3L,ENIDSH2,FILSETL,ENMOVE2,BABULCSL,EFLSST2 ;--- enmyno -- EXT SKHED,SHTAM,HBTAM,BAAR0,BABUL,TEKI0,TEKI1,SKELB EXT OCTA1,OCTA2,OCTA3,NYORO,OCTBL,OCTSS,CHFIR,BIGKO EXT TARUH,TARUV,SKEL2,PATA0,PATA1,SHSAI EXT KWAUS,KWAU1,SHIGE,SEKZ4,PONPK,MOTSB EXT REBA1,ZOOL1,DRGN1,MANY1,MEDAM EXT JIJII,BABAA,HEITI,PENKI,NOKOG,KUTUU,GAKII,GAKI1 EXT NOPPO,ONNAA,HIGEE,MAJOO,JIJI2,KIANA,BUBUU EXT YATAM,MURON,MURYA,MURMK,LINE0,LINE1,LINE2,LINE3,BABA1,ESW03,HEIS0 EXT TAIHO,HEIS1,HEYA0,HEYA1,HEYA2,KTOBJ,HEIS2,NEZU0,HEBI0 EXT KOMO0,HEBO0,OYAGI,ZAKO0,MEDA2 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,ARI00,ARI01 EXT JOHBB,ENMY3,HACHI,POLIW,RINGO,BABU2,HELP1,BKFIR,HARI0,D_0_9 EXT MOTAM,MEMER,MAGIC,ICBOS,DOKN0,DOKN1,DOKN2,DOKN3,BEE00,SITO0 EXT SEKBN,TAKAR,BAKDN,SARKK,TEKBB,UZUMK,SAMTM,RYOKI EXT MEMED ;-------------- 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,EBAKU ;=============================================== (zel_endt) ============ EXT EXSTRA,ENEMY2,ENBTON,EFLCHK2,ENCLST EXT SINDT2,ENIDPS,ICEF2ST ;=============================================== (zel_main) ============ ; EXT DTSAVE,DJEXTCK EXT TGBLKWT EXT GDCHCK,JSRSUB,MGMCGRS2,MGMCGCNG ; EXT MD_title,MD_djint,MD_djply,MD_gdint,MD_gdply EXT MD_fdout,MD_fdin,MD_etcpl EXT MD_wpout,MD_wpin,p2_warp ;=============================================== (zel_play) ============ EXT DASCLR1,DASHON,PLOTCK,SWSPCL1,PYCRCN,PYSPST EXT EATSET,MNIRIT,PLYCLR,PLYCLR1 EXT YAMOV EXT YAIMIT EXT ATMSIT EXT OMS000 EXT PLOTCK1 EXT BMCLER EXT LNMD EXT p2_kage,TRFS EXT WPMSCK EXT DKHDCK EXT MCGTHK ;/////// EXT RDCHCK ;=============================================== (zel_bg3) ============= EXT MTRSUB,ITEM0ST,ICECGCNG,SHSCGCNG,BOMBMAX,YAAAMAX ;=============================================== (grnd) ============= EXT MKDRPLY,gif1 ;=============================================== (zel_init) ============= EXT p3_msge,DJEXTCK,PLRSET,RESTTST ;=============================================== (zel_sub0) ============= EXT DJEXTCK ;================================================(end2)================= EXT GRNDCHK,KURORCS,SDLRCE,SDLRCP,MAGICCS,ICMANCS,TEKI0CS,SKEL2CS EXT MGTAMCS,PBBANCS,PATA0CS,CRHCEN,LIKE0CS,ICBOSCS EXT HELP0CS,SINPUCS,MEIR1CS,SDLRE1,SDLRE2,SDLRE3 ;================================================(endt)================= EXT GRENST,EST0SB ;================================================(char)================= EXT OPTCBFST,PWTRCGS2 ;================================================(COMN)================= EXT MGMCGCNG ;================================================(exst)================= EXT BEAM1,BEAM2,BUME1,BOMBM,YAMOV,DTMOV ;;;;,BOMBR EXT DTMV1,DTMV2,OPMOV,WTMV0,HIBA2,SCPMV,DTMV3 EXT RAOPIT,RAOPIT1,ATMSIT,BOGN,KNSP,PGKRITL EXT nashi,prnce,jjmov,jjwat,jjsmv,mesmv,prnc1,kajy1 EXT kajya,hnoji,monky,monwt,takar,bakud ;================================================(POLYGON)================= ;-----< obj_poly >------------------------------------------------------- extern INITIAL_POLYGON ;------------------------------------------------------------------------ extern polygon_flag extern shading_switch extern object_size extern object_type extern rotate_angle_x extern rotate_angle_y extern center_point_x extern center_point_y extern center_point_z extern stack_pointer extern transfer_flag ; ;================================================(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 ; ;============================== MOTSBIT EQU $ LDA #30H STA MTHANK ; LDA #080H STA MTANGL ;; LDA #00H STZ MTANGL+1 ; ;; LDA #00H STZ MTANSD STZ MTTLCT STZ MTANG2 STZ MTANG2+1 ;------------------------------------------- MTFTIT EQU $ PHB PHK PLB ; PHX ; LDA ENCONT,X STA EN1CSTL ;MSBRE8 EQU $ ; JSR ENSTCK ; RTS ;------------------------------------------------------ MSBRF0 EQU $ JSL >EN1CSTL JSR ENSTCK ; LDA RNDSET ; AND #03H ; TAY ; LDA MSBRXS,Y ; STA ENXSPD,X ; LDA MSBRYS,Y ; STA ENYSPD,X ;; ; INC ENSTAT,X ;MSBR10 EQU $ ;; ; RTS ;------------- Master ----------------- MBM010 EQU $ CMP #03H BCS MTE00 ; On mask ? ; ; yes ! LDA ENFLCL,X AND #11110001B STA ENFLCL,X ; LDA #00001010B STA ENMOD7,X ; Player YA hane ! BRA MTE08 MTE00 EQU $ LDA #1FH STA ENMOD3,X ; Kyusho hani ! ; LDA #00000010B STA ENMOD7,X MTE08 EQU $ JSR MOTSBCS ; LDA ENMODE,X CMP #EFAIL BNE MTE500 ; LDA ENTIM0,X BNE MTE480 ; LDA #EBAKU STA ENMODE,X STZ ENWRK0,X LDA #0E0H STA ENTIM0,X ; RTS ; MTE480 EQU $ PHA ORA #0F0H STA ENFLSH,X PLA CMP #80H BCS MTE490 AND #07H BNE MTE490 ; LDY MTTLCT CPY #10H BEQ MTE490 ; INC MTTLCT ; STZ HBBKST ; MTE490 EQU $ RTS ;============================================= MTMSDT EQU $ ;; 0 4 8 12 16 20 24 28 32 36 40 44 48 HEX 03,03,03,03,03,03,03,03,02,02,01,01,00 ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - MTE500 EQU $ JSR ENSTCK ; LDA ENLIFE,X LSR A LSR A TAY LDA MTMSDT,Y STA ENWRK2,X ; CMP #03H BNE MTE00C ; CMP ENWRK3,X BEQ MTE00F ; STZ ENFLSH,X ; JSR MSKBRST ; Mask break set ! BRA MTE00F ; MTE00C EQU $ CMP ENWRK3,X BEQ MTE00F ; JSR MSKBRS2 ; 1 of Mask break set ! ; MTE00F EQU $ LDA ENWRK2,X STA ENWRK3,X ; ;; LDA CRKNENL ; JSR MBSUB ; JSR CRMBEN ; Body cross ! JSR CRHMMS ; Hanmer vs mask ! ; LDA ENTIM1,X BEQ MT0100 ; Tail atack time ? ; ; yes ! CMP #60H BEQ TLATST ; RTS ; ;================================================= MT0100 EQU $ LDA ENTIM2,X BEQ MT0180 ; Fire shot time ? ; ; yes ! CMP #40H BNE MT1030 ; JSR MOTAMST ; LDA ENWRK2,X CMP #03H BCC MT1030 ; TLATST EQU $ LDA ENCTFG,X BNE MT1030 ; INC ENCTFG,X ; LDA #20H STA ENTUTM,X MT1030 EQU $ RTS ;================================================= MT0180 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD MTSTOP WORD MTWALK1 WORD MTSTOP2 WORD MTWALK2 ;------------------------------------ MTWXSD EQU $ HEX F4,F4,FC,00,04,0C,0C,00 MTWYSD EQU $ HEX 00,04,0C,0C,0C,04,00,0C ; MTSTOP EQU $ LDA ENFLSH,X BNE MTST02 ; LDA ENTIM0,X BNE MTST10 ; MTST02 EQU $ JSR MTATCK ; JSL >RNDSET AND #07H TAY LDA MTWXSD,Y STA ENXSPD,X LDA MTWYSD,Y STA ENYSPD,X ; LDA #40H STA ENTIM0,X ; LDA ENWRK2,X CMP #03H BCC MTST08 ; High speed ! ; ASL ENXSPD,X ASL ENYSPD,X ; LSR ENTIM0,X MTST08 EQU $ ; INC ENSTAT,X MTST10 EQU $ RTS ;------------------------------------ MTWALK1 EQU $ JSR MTWKCT ; ; JSR ENMVCL ; LDA ENTIM0,X BNE MTW110 ; LDA #20H STA ENTIM0,X ; INC ENSTAT,X MTW110 EQU $ RTS ;------------------------------------ MTWKCT EQU $ ;; INC ENCONT,X JSR FTSDST ; Foot sound set ! ; LDA RNDSET AND #01H BEQ MTAC10 ; LDA #7FH STA ENTIM2,X ; LDA #2AH JSL >SDLRE3 ;(S) ; RTS MTAC10 EQU $ LDA #0A0H STA ENTIM1,X MTAC18 EQU $ RTS ;============================================== MFTYDT EQU $ HEX 0,1,2,3,4,5,6,7 HEX 8,8,8,8,8,8,8,8 HEX 8,8,8,8,8,8,8,8 HEX 8,7,6,5,4,3,2,1 MFTYRV EQU $ HEX 00,08,10,18 ; MBSUB EQU $ ;- - - - Eye cont. - - - INC MTEYCT ;- - Foots cont. - - - ; JSL >MTFTIT ; Foot y pos set ; ;- - tail cont. - - - LDA #01H LDY ENCTFG,X BEQ MBSB18 ; Atack time ? LDA #00H ; yes ! high speed ! MBSB18 EQU $ AND SDLRCE ;; ORA #06H ;; STA SOUND3 ;(S) LDA #06H JSL >SDLRE3 ;(S) MBSB3A EQU $ LDA ENCTFG,X CMP #02H BEQ MTAT10 CMP #03H BEQ MTAT20 ;-----Atack check ------------------------------------ LDA MTANSD ORA ENTUTM,X BNE MTAT90 ; LDA MTANGL+1 AND #01H STA ENCMKI,X ; JSR EPXCHK TYA EOR #01H CMP ENCMKI,X BNE MTAT22 ; Muki ok ? ; ; yes ! INC ENCTFG,X ; JSL >SDLRCE ORA #26H STA SOUND3 ;(S) ; Yuusen ! ;; LDA #26H ;; JSL >SDLRE3 ;(S) MTAT22 EQU $ RTS ;----------------------------------------- MTATAA EQU $ HEX 04,FC HEX 00,FF MTATAL EQU $ HEX 7C,84 ; MTAT10 EQU $ LDY ENCMKI,X LDA MTANG2 CLC ADC MTATAA,Y STA MTANG2 PHA LDA MTANG2+1 ADC MTATAA+2,Y STA MTANG2+1 PLA CMP MTATAL,Y BNE MTAT18 INC ENCTFG,X MTAT18 EQU $ LDA MTHANK CLC ADC #03H STA MTHANK RTS ;----------------------------------------- MTAT20 EQU $ LDA ENCMKI,X EOR #01H TAY LDA MTANG2 CLC ADC MTATAA,Y STA MTANG2 PHA LDA MTANG2+1 ADC MTATAA+2,Y STA MTANG2+1 PLA CMP #00H BNE MTAT30 ; STZ ENCTFG,X MTAT30 EQU $ LDA MTHANK SEC SBC #03H STA MTHANK MTAT90 EQU $ RTS ;- - - - - - - - - - - MTASAD EQU $ HEX 01,FF ;============================================================= CRHMMS EQU $ LDA ENWRK2,X CMP #03H BCS CHM090 ; LDA AITMBT AND #00001010B BEQ CHM090 ; LDA PKNCRS2 ; LDA ENYPSL,X PHA CLC ADC #08H STA ENYPSL,X JSL >ENCRST2 PLA STA ENYPSL,X ; JSL >CROJCK2 BCC CHM090 ; DEC ENLIFE,X ; SEC ; SBC #01H ; STA ENLIFE,X ; LDA #21H STA SOUND3 ;(S) ; LDA #30H JSL >PSERC2L LDA SDLRE2 ;(S) CHM090 EQU $ RTS ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;============================================================= CRMBEN EQU $ LDA PLFLSTL ; CMB010 EQU $ MEM8 SEP #20H RTS ;============================================================= MSBSYL EQU $ HEX 18,1B,18 HEX 18,1B,18 HEX 1B,1B HEX 18 ,18 MSBSYH EQU $ HEX 00,00,00 HEX 00,00,00 HEX 00,00 HEX 00 ,00 MSBSXL EQU $ HEX F0,00,10 HEX F0,00,10 HEX F8,08 HEX F0 ,10 MSBSXH EQU $ HEX FF,00,00 HEX FF,00,00 HEX FF,00 HEX FF ,00 MSBSZL EQU $ HEX 1D,20,1D HEX 0D,10,0D HEX 00,00 HEX 0D ,0D MSBSXS EQU $ HEX F0,FC,0E HEX F4,04,12 HEX FE,02 HEX F4 ,12 MSBSYS EQU $ HEX F8,FC,FA HEX 04,02,07 HEX 06,08 HEX 04 ,07 MSBSZS EQU $ HEX 20,28,24 HEX 25,27,22 HEX 1E,21 HEX 25 ,22 MSBSCL EQU $ HEX 00,00,40 HEX 00,00,40 HEX 00,40 HEX 00 ,40 MSBSPT EQU $ HEX 0,1,0 HEX 2,3,2 HEX 4,4 HEX 5 ,5 ; MSKBRS2 EQU $ LDA ENWRK2,X ; 1,2 CLC ADC #07H STA ENHELP JSR MSBRSB BRA MSBS90 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - MSKBRST EQU $ LDY #ENNO-1 LDA #00H MSBS08 EQU $ STA ENMODE,Y DEY BNE MSBS08 ; ;; JSL >SDLRCE ;; ORA #1FH ;; STA SOUND2 ;(S) ;; LDA #1FH ;; JSL >SDLRE2 ;(S) ; LDA #07H STA ENHELP MSBS10 EQU $ JSR MSBRSB ; DEC ENHELP BPL MSBS10 ; MSBS90 EQU $ ;; JSL >SDLRCE ;; ORA #1FH ;; STA SOUND2 ;(S) LDA #1FH JSL >SDLRE2 ;(S) RTS ; ;------------------------------------------------------ MSBRSB EQU $ LDA #MOTSB JSL >ENIDSH BMI MSBRS0 ; PHX LDX ENHELP LDA ENIDSH BMI MS0010 ; JSL >ENIDPS ; LDA OAMENT1 MEM16 REP #20H LDA #OAM+170H-53*4 STA ALOMCKL MEC098 EQU $ RTS ;---MASK------------------------------------------- MTMACD EQU $ ;0 WORD 0FFF0H,00000H-5 HEX AE,0D,00,02 WORD 00000H,00000H-5 HEX C0,0D,00,02 WORD 00010H,00000H-5 HEX AE,4D,00,02 WORD 0FFF0H,00010H-5 HEX C2,0D,00,02 WORD 00000H,00010H-5 HEX C4,0D,00,02 WORD 00010H,00010H-5 HEX C2,4D,00,02 WORD 0FFF8H,00020H-5 HEX C6,0D,00,02 WORD 00008H,00020H-5 HEX C6,4D,00,02 ;1 WORD 0FFF0H,00000H-5 HEX AE,0D,00,02 WORD 00000H,00000H-5 HEX C0,0D,00,02 WORD 00010H,00000H-5 HEX AE,4D,00,02 WORD 0FFF0H,00010H-5 HEX C8,0D,00,02 WORD 00000H,00010H-5 HEX C4,0D,00,02 WORD 00010H,00010H-5 HEX C2,4D,00,02 WORD 0FFF8H,00020H-5 HEX C6,0D,00,02 WORD 00008H,00020H-5 HEX C6,4D,00,02 ;2 WORD 0FFF0H,00000H-5 HEX AE,0D,00,02 WORD 00000H,00000H-5 HEX C0,0D,00,02 WORD 00010H,00000H-5 HEX AE,4D,00,02 WORD 0FFF0H,00010H-5 HEX C8,0D,00,02 WORD 00000H,00010H-5 HEX C4,0D,00,02 WORD 00010H,00010H-5 HEX C8,4D,00,02 WORD 0FFF8H,00020H-5 HEX C6,0D,00,02 WORD 00008H,00020H-5 HEX C6,4D,00,02 ; MTMACS EQU $ LDA #00H XBA LDA ENWRK2,X ;; CMP #03H ;; BCS MAC010 MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ASL A ASL A ADC #MTMACD STA SETOAML22 JSR SETO22 ; MEM16 REP #20H LDA ENCRST2 LDA BMXPSL,Y CLC ADC #06H STA CROJCK2 BCC CBB0F0 ; LDA BMXSPD,Y EOR #0FFH INC A STA BMXSPD,Y ; LDA BMYSPD,Y EOR #0FFH INC A STA SETOAML22 RTS ;---FOOTS------------------------------------------- MFTXAD EQU $ HEX E4,E4,1C,1C MFTYAD EQU $ HEX E4,04,E4,04 MFTCDT EQU $ HEX A2,A6,A2,A6 MFTADT EQU $ HEX 0B,0B,4B,4B ;- - - - - - - - - - - - - - - - - - - - - - - - - MTFTCS EQU $ MEM16 REP #00100000B LDA ALOMCKL ; JSR OAMCHK MFTC20 EQU $ RTS ; ;---MOUSE------------------------------------------- MMSYAD EQU $ HEX 1,2,3,4,5,6,7,8 HEX 9,A,A,A,A,A,A,A HEX A,A,A,A,A,A,A,9 HEX 8,7,6,5,4,3,2,1 ; MTMSCS EQU $ LDA ENTIM2,X BEQ MMSC90 LSR A LSR A TAY LDA MMSYAD,Y STA OAMENT2 ; LDY #00H LDA SINDT2,X STA SINDT2,X STA PLFLSTL INC PLFLSTL MTTC30 EQU $ ;; LDA ALOMCKL ; JSR OAMCHK ; WORK0,1,2,3,4,5 Set again ! MTTC90 EQU $ RTS ; NOPSUB EQU $ HEX EA,EA,EA,EA,EA,EA,EA,EA RTS ;======Demon beam ====================================================== DEMBMMV EQU $ PHB PHK PLB JSR DB0010 PLB RTL ;======================= DB0010 EQU $ LDA ENCONT,X AND #00010000B BEQ DB0020 ; LDA #04H JSL >OAMENT2 DB0020 EQU $ JSL >EN1CSSL ; JSR ENSTCK ; LDA ENSTAT,X BNE DBM020 ; JSR ENMVCL ;; JSR CRENPL ;; BCC DBM010 LDA ENTIM0,X BNE DBM010 ; INC ENSTAT,X ; DBM010 EQU $ RTS ;----------------------------------------- DBPLXD EQU $ HEX 0,4,8,C,C,4,8,0 DBPLYD EQU $ HEX 0,4,8,C,C,4,8,0 ; DBM020 EQU $ INC ENSTAT,X BNE DBM030 ; STZ ENMODE,X DBM030 EQU $ ;; TXA ;; AND #03H ;; TAY ; INC ENCONT,X LDA ENCONT,X PHA AND #07H BNE DBM038 ; LDA #30H STA SOUND3 ;(S) DBM038 EQU $ PLA LSR A LSR A PHA AND #00000111B TAY ; LDA ENBGCKL RTS ;============================================ E3MVAD EQU $ WORD HACHIMV WORD SHSAIMV WORD SHTAMMV WORD TELSAMV WORD TRAP0MV WORD BAAR0MV WORD BAAR1MV WORD HBTAMMV WORD AMENBMV WORD BABU2MV WORD MEDAMMV WORD MEDA2MV WORD SKELTMV WORD CHIBIMV WORD CHFIRMV WORD BIGKOMV WORD BKFIRMV WORD HARI0MV WORD MIIRAMV WORD PATARMV WORD PATAMMV WORD KAM01MV WORD SLIMEMV WORD HANDSMV WORD SKELBMV WORD MOTSBMV WORD BYOYNMV WORD AYASIMV WORD MEMERMV WORD MEMELMV WORD MEMEDMV WORD MEMEUMV WORD PENGIMV WORD FISH0MV WORD MAGICMV WORD KURORMV WORD KURODMV WORD DACHOMV WORD USAGIMV WORD OOOMUMV WORD ICMANMV WORD ICBOSMV WORD ICEBGMV WORD ICTAMMV WORD TEKI0MV WORD TEKI1MV WORD SKEL2MV WORD PATA0MV WORD PATA1MV WORD LIKE0MV WORD POLIWMV WORD RINGOMV WORD HELP1MV WORD DOKN0MV WORD DOKN0MV WORD DOKN0MV WORD DOKN0MV WORD BEE00MV WORD SEKBNMV WORD TAKARMV WORD BAKDNMV WORD SARKKMV WORD TEKBBMV WORD D_0_9MV WORD SITO0MV WORD UZUMKMV WORD SAMTMMV WORD RYOKIMV WORD 000 WORD 000 ;=================================== ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Like likk % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% LIKE0MV EQU $ JSR LIKE0CSS ; JSR ENSTCK JSR ENHNSB JSR CREKEK ; LDA ENSTAT,X JSL >JSRSUB WORD LKSTOP WORD LKJUMP WORD LKSHOT ;- - - - - - - - - - - - - - - - - - - LKJPXS EQU $ MTASLM EQU $ ICWXSD EQU $ OMGOXS EQU $ KSMXSD EQU $ BKFZLM EQU $ PTBXSD EQU $ PGGXLM EQU $ CBWKXS EQU $ MDWXSD EQU $ TKXSDT EQU $ HEX 10,F0 ;,00,00 LKJPYS EQU $ PTBYSD EQU $ PGGYLM EQU $ CBWKYS EQU $ MDWYSD EQU $ TKYSDT EQU $ HEX 00,00,10,F0 ; ;TKXSDT EQU $ ; HEX 10,F0 ,00,00 ;TKYSDT EQU $ ; HEX 00,00,10,F0 ;MDWXSD EQU $ ; HEX 10,F0 ;,00,00 ;MDWYSD EQU $ ; HEX 00,00,10,F0 ;CBWKXS EQU $ ; HEX 10,F0 ;,00,00 ;CBWKYS EQU $ ; HEX 00,00,10,F0 ;PGGXLM EQU $ ; HEX 10,F0 ;,00,00 ;PGGYLM EQU $ ; HEX 00,00,10,F0 ;PTBXSD EQU $ ; HEX 10,F0 ;,00,00 ;PTBYSD EQU $ ; HEX 00,00,10,F0 ;- - - - - - - LKSTOP EQU $ LDA ENTIM0,X BNE LKS010 ; INC ENSTAT,X ; INC ENWRK2,X LDA ENWRK2,X CMP #04H BNE LKS008 STZ ENWRK2,X JSR EPXYCK BRA LKS00A LKS008 EQU $ JSL >RNDSET AND #03H TAY LKS00A EQU $ LDA LKJPXS,Y STA ENXSPD,X LDA LKJPYS,Y STA ENYSPD,X ; JSL >RNDSET AND #07H ADC #13H STA ENZSPD,X LKS010 EQU $ LKCHPS EQU $ INC ENCONT,X LDA ENCONT,X LSR A LSR A LSR A AND #01H STA ENCHPT,X RTS ;----------------------------------------- LKJUMP EQU $ JSR ENMVCL2 ;;; JSL >ENBGCKL JSR ENBGCK DEC ENZSPD,X DEC ENZSPD,X ; LDA ENZPSL,X BPL LKJ010 ; STZ ENZPSL,X STZ ENZSPD,X ; JSR EPXYCK LDA PSERC2L JSL >MKCK16 LSR A STA ENMUKI,X LDA #5FH STA ENTIM0,X RTS ; LKJ008 EQU $ STZ ENSTAT,X LDA #10H STA ENTIM0,X LKJ010 EQU $ BRA LKCHPS ;------------------------------------------- LKSHPT EQU $ HEX 02,02,02,02,03,03,03,03 HEX 03,03,03,03,03,03,03,03 HEX 03,03,03,03,02,02,02,02 ; LKSHMD EQU $ HEX 00,00,00,00,00,00,00,00 HEX 00,00,00,00,00,00,00,00 HEX 00,00,00,00,00,00,00,00 ; HEX 00,00,00,00,00,00,00,00 HEX 0C,10,18,20,20,18,10,0C HEX 00,00,00,00,00,00,00,00 ; HEX 00,00,00,00,00,00,00,00 HEX F4,F0,E8,E0,E0,E8,F0,F4 HEX 00,00,00,00,00,00,00,00 ; LKSHXD EQU $ HEX 18,18,00,30,30,30,00,18 ; ;; HEX 0C,10,18,20,20,18,10,0C ;; HEX 0C,10,18,20,20,18,10,0C ;; HEX 00,00,00,00,00,00,00,00 ;; HEX F4,F0,E8,E0,E0,E8,F0,F4 ;; HEX F4,F0,E8,E0,E0,E8,F0,F4 ;; HEX F4,F0,E8,E0,E0,E8,F0,F4 ;; HEX 00,00,00,00,00,00,00,00 ;; HEX 0C,10,18,20,20,18,10,0C LKSHYD EQU $ HEX 00,18,18,18,00,30,30,30 ; ;; HEX 00,00,00,00,00,00,00,00 ;; HEX 0C,10,18,20,20,18,10,0C ;; HEX 0C,10,18,20,20,18,10,0C ;; HEX 0C,10,18,20,20,18,10,0C ;; HEX 00,00,00,00,00,00,00,00 ;; HEX F4,F0,E8,E0,E0,E8,F0,F4 ;; HEX F4,F0,E8,E0,E0,E8,F0,F4 ;; HEX F4,F0,E8,E0,E0,E8,F0,F4 LKSHOT EQU $ LDA ENTIM0,X BNE LKSH10 ; STZ ENSTAT,X LDA #10H STA ENTIM0,X STZ ENWRK0,X STZ ENWRK1,X STZ ENCTCT,X ;; STZ ENKBMK,X RTS LKSH10 EQU $ LSR A LSR A PHA TAY LDA LKSHPT,Y STA ENCHPT,X ; TYA LDY ENMUKI,X PHY CLC ADC LKSHXD,Y TAY LDA LKSHMD,Y STA ENWRK0,X STA SDLRCP ORA #26H STA SOUND2 ;(S) ; JSL >RNDSET AND #03H ;; TAY ;; LDA LKITDT,Y INC A STA ENCTCT,X ; 1:Bomb 2:Ya 3:Coin 4:Tate STA ENWRK3,X CMP #01H BNE LKSH48 ; ;------------------------------------ LDA >BMBCNT BEQ LK01 DEC A STA >BMBCNT RTS LK01 EQU $ MEM8 SEP #20H STZ ENCTCT,X ;;; STZ ENKBMK,X RTS LKSH48 EQU $ CMP #02H BNE LKSH4A ; ;------------------------------------ LDA >ARWCNT BEQ LK01 DEC A STA >ARWCNT LK02 EQU $ RTS LKSH4A EQU $ CMP #03H BNE LKSH5A ;------------------------------------ MEM16 REP #20H LDA >CONCNT BEQ LK01 DEC A STA >CONCNT LK03 EQU $ LKSH50 EQU $ MEM8 SEP #20H RTS ;------------------------------------ LKSH5A EQU $ LDA >ITMTBL7 ;Tate get ! STA HEMODE,X ;Save tate no. ! BEQ LK01 CMP #03H BEQ LK01 ; Max !! ; LDA #00H STA >ITMTBL7 ;Tate get ! RTS ;;- - - - - - - - - ;;LKITDT EQU $ ;; HEX 1,2,3,4 ;---------------------- LIKE0CSS EQU $ JSR OAMCHK JSL >LIKE0CS RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Paakuti % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ; PATA0MV EQU $ PATA1MV EQU $ LDA #30H STA ENFLCL,X LDA ENWRK0,X BEQ PT0000 ;- - - - Bomb - - - LDA ENSTAT,X JSL >JSRSUB WORD PBDOWN WORD PBBAN ;------------------------------------------------ PBDOWN EQU $ JSL >EN1CSSL ; JSR ENSTCK JSR ENMVCL JSR ENZCLC ; DEC ENZSPD,X DEC ENZSPD,X ; LDA ENZPSL,X BPL PBD010 ; STZ ENZPSL,X ; INC ENSTAT,X ; LDA #13H STA ENTIM0,X ; INC ENMOD0,X ; ;; JSL >SDLRCE ;; ORA #0CH ;; STA >SOUND2 ;(S) LDA #0CH JSL >SDLRE2 ;(S) PBD010 EQU $ RTS ;------------------------------------------------ PBBAN EQU $ JSL >PBBANCS JSR ENSTCK ; LDA CRENPLL RTS ;============================= P0ZSAD EQU $ HEX 01,FF P0ZSLM EQU $ HEX 08,F8 PTSHPT EQU $ HEX 9,A,8,7 ; PT0000 EQU $ LDA ENTIM1,X BEQ PT0001 ; LDY ENMUKI,X LDA PTSHPT,Y STA ENCHPT,X PT0001 EQU $ LDA ENFLCL,X ORA #30H STA ENFLCL,X ; JSL >PATA0CS ; JSR ENSTCK JSR ENHNSB ; LDA ENTIM1,X CMP #08H BNE PT0010 ; JSR PTBMBST ; Bomb set ! PT0010 EQU $ JSR CREKEK ; LDA PSERC2L ; LDA JSRSUB WORD P0STOP WORD P0FLY WORD P0SASA ;------------------------------------------- P0SASA EQU $ LDA ENTIM0,X BNE P0SA10 ; STZ ENSTAT,X P0SA10 EQU $ INC ENCONT,X INC ENCONT,X JSR P0PTMV RTS ;------------------------------------------- P0FXSD EQU $ HEX 10,0c,00,f4,f0,f4,00,0c P0FYSD EQU $ HEX 00,0C,10,0C,00,F4,F0,F4 P0FMKD EQU $ HEX 0,4,2,6 ; P0STOP EQU $ LDA ENTIM0,X BNE P0S010 ; INC ENSTAT,X ; INC ENWRK1,X LDA ENWRK1,X CMP #03H BNE P0S008 ; STZ ENWRK1,X ; LDA #30H STA ENTIM0,X ; JSR EPXYCK LDA P0FMKD,Y BRA P0S00C P0S008 EQU $ ; JSL >RNDSET AND #1FH ORA #20H STA ENTIM0,X ; AND #07H P0S00C EQU $ TAY LDA P0FXSD,Y STA ENXSPD,X LDA P0FYSD,Y STA ENYSPD,X P0S010 EQU $ BRA P0PTMV2 ;; RTS ;----------------------------- P0FLY EQU $ LDA ENTIM0,X BNE P0F010 ; STZ ENSTAT,X ; LDA #0AH STA ENTIM0,X ; LDY ENMYNO,X CPY #PATA0 BNE P0F008 ; Bomb shot ? ; ; yes ! LDA #10H STA ENTIM1,X P0F008 EQU $ RTS ; P0F010 EQU $ P0PTMV EQU $ JSR ENMVCL P0PTMV2 EQU $ JSR EPXYCK TYA STA ENMUKI,X ; INC ENCONT,X LDA ENCONT,X LSR A LSR A LSR A AND #01H STA ENIDSH BMI PTBS90 ; ;; JSL >SDLRCE ;; ORA #20H ;; STA SOUND2 ;(S) LDA #20H JSL >SDLRE2 ;(S) ; LDA ENBGCKL JSR ENBGCK ;; LDA ENCBFG,X BEQ HNM090 ; STZ ENMODE,X ; JSL >EFLSST HNM090 EQU $ RTS ;======================================= HONECD EQU $ ;2 WORD 0FFFCH,0FFFEH HEX 2F,80,00,00 WORD 00004H,00002H HEX 2F,40,00,00 ;0 WORD 0FFFCH,00002H HEX 2F,00,00,00 WORD 00004H,0FFFEH HEX 2F,C0,00,00 ;3 WORD 00002H,0FFFCH HEX 3F,40,00,00 WORD 0FFFEH,00004H HEX 3F,80,00,00 ;1 WORD 0FFFEH,0FFFCH HEX 3F,00,00,00 WORD 00002H,00004H HEX 3F,C0,00,00 ; HONECS EQU $ LDA #00H XBA LDA ENCONT,X LSR A LSR A AND #03H MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ADC #HONECD STA SETOAML22 ;;; ;; RTS ;--------------------------------------------- ;TKXSDT EQU $ ; HEX 10,F0 ,00,00 ;TKYSDT EQU $ ; HEX 00,00,10,F0 TKWKTM EQU $ HEX 10,20,40,20 ; TKCHPT EQU $ HEX 6,4,0,2 HEX 7,5,1,3 ; S2JPCP EQU $ HEX 8,9,A,B ; SKEL2MV EQU $ LDA ENWRK0,X BEQ S2MFFF ; JMP HONEMV ; S2MFFF EQU $ ;; LDA ENCTCT,X LDA ENWRK3,X BEQ S2M100 ; Initial BG check ? ; ; yes ! LDA ENTIM0,X BNE S2M006 ; LDA #01H STA ENXSPD,X STA ENYSPD,X ;; JSL >ENBGCKL JSR ENBGCK ;; LDA ENCBFG,X BEQ S2M002 ; In BG ? ; ; YES ! Can't set ! STZ ENMODE,X RTS S2M002 EQU $ STZ ENWRK3,X ;; STZ ENCTCT,X ; ;; JSL >SDLRCE ;; ORA #15H ;; STA SOUND2 ;(S) LDA #15H JSL >SDLRE2 ;(S) ; JSL >KEMRIST ; LDA #08H ;; LDA #13H STA ENTIM2,X ; Kemuri time ! LDA #40H STA ENTIM0,X ; Walk wait ! ; STZ ENYSPD,X STZ ENXSPD,X ;; LDA #07H ;; STA ENMOD0,X S2M006 EQU $ JSL >OAMCHKL RTS ;=============================== S2JPMK EQU $ HEX 3,2,1,0 ; ;-------- S2M100 EQU $ LDA ENMODE,X CMP #EMOVE BNE S2CK10 ; ; JSR EPXYCK ; LDA PSERC2L ; LDA SDLRCE ;; ORA #20H ;; STA SOUND2 ;(S) LDA #13H JSL >SDLRE3 ;(S) ; INC ENZPSL,X ; S2CK10 EQU $ MEM8 SEP #20H ; LDA ENZPSL,X BEQ S2CK30 ; LDY ENMUKI,X LDA S2JPCP,Y STA ENCHPT,X JSL >SKEL2CS JSR ENSTCK ; LDA ENHNFG,X BEQ S2CK11 ; STZ ENZSPD,X ; S2CK11 EQU $ JSR ENHNSB ; JSR CREKEK ; ;; JSL >ENBGCKL JSR ENBGCK ; ;; LDA ENCBFG,X ; PHA AND #00000011B BEQ S2CK16 ; STZ ENXSPD,X S2CK16 EQU $ PLA AND #00001100B BEQ S2CK18 ; STZ ENYSPD,X ;; JSR ENSDCL S2CK18 EQU $ JSR ENMVCL2 LDA ENZSPD,X SEC SBC #02H STA ENZSPD,X ; LDA ENZPSL,X DEC A BPL S2CK28 ; STZ ENZPSL,X ; JSR ENSDCL ; ;; JSL >SDLRCE ;; ORA #21H ;; STA SOUND2 ;(S) LDA #21H JSL >SDLRE2 ;(S) ; LDA HEMODE,X BEQ S2CK28 ; Hone shot ? ; ; yes ! LDA #10H STA ENTUTM,X ;; STA ENTIM3,X STZ ENCONT,X S2CK28 EQU $ RTS ;=========================================== S2CK30 EQU $ ; ZKMOVE EQU $ TEKI0MV EQU $ TEKI1MV EQU $ LDA ENWRK1,X BEQ TK1M01 ;- - - Tama - - - ;;; JSL >EN1CSTL JSR TKTAMCS ; JSR ENSTCK ; LDA ENBGCKL ; JSR ENBGCK ;; LDA ENCBFG,X BEQ TTM010 ; STZ ENMODE,X ; JSL >EFLSST2 TTM010 EQU $ RTS ;- - - Master - - - TK1M01 EQU $ LDA ENTUTM,X ;; LDA ENTIM3,X BEQ TK1M02 ; PHA STZ ENSTAT,X LDA #20H STA ENTIM0,X ; JSR ENSDCL ; JSR EPXYCK TYA STA ENKBMK,X ; PLA ; TK1M02 EQU $ CMP #01H BNE S2CK38 ; JSR HONEST LDA #01H STA ENCONT,X S2CK38 EQU $ LDA ENCONT,X AND #00000001B ASL A ASL A ADC ENMUKI,X TAY LDA TKCHPT,Y STA ENCHPT,X ; LDA ENMYNO,X CMP #SKEL2 BNE ZM0010 ; JSL >SKEL2CS ; JSR ENSTCK ; BRA ZM0020 ; ;; LDA ENTIM2,X ;; BEQ ZM0020 ;; CMP #01H ;; BNE S2M110 ; Kemuri end ? ;;; ; yes ! use no revise ! ;; LDA #00000011B ;; STA ENMOD0,X ;;S2M110 EQU $ ;; RTS ;======================================== ZM0010 EQU $ JSL >TEKI0CS ; JSR ENSTCK ZM0020 EQU $ ; JSR ENHNSB JSR CREKEK ; JSR ENMVCL JSR ENBGCK ;; JSL >ENBGCKL ; LDA ENSTAT,X JSL >JSRSUB WORD TKSTOP WORD TKWALK WORD TKSHOT ;================================ TKSTOP EQU $ ;- - - stop - - - LDA ENTIM0,X BNE ZKS010 ; JSL >RNDSET AND #03H TAY LDA TKWKTM,Y STA ENTIM0,X INC ENSTAT,X ; ZKSDST EQU $ LDA ENKBMK,X STA ENMUKI,X ; TAY LDA TKXSDT,Y STA ENXSPD,X LDA TKYSDT,Y STA ENYSPD,X ZKS010 EQU $ RTS ;============================================ ZKNXMK EQU $ ASNXMK EQU $ HBNXMK EQU $ HEX 2,3,2,3,0,1,0,1 ; TKWALK EQU $ LDA #10H ; LDY ENCBFG,X BNE ZKW008 ; LDA ENTIM0,X BNE ZKW010 ; LDA ENMYNO,X CMP #TEKI1 BNE ZKW018 ; Tama shot ? ; ; yes ! JSR EPXYCK TYA CMP ENMUKI,X BNE ZKW018 ; muki->player ? ; ; yes ! LDA RNDSET LSR A LDA ENMUKI,X ROL A TAY LDA ZKNXMK,Y STA ENKBMK,X ; STZ ENSTAT,X ; INC ENWRK2,X LDA ENWRK2,X CMP #04H BNE ZKW00A ; Player serch time ? ; ; yes ! STZ ENWRK2,X ; JSR EPXYCK TYA STA ENKBMK,X ; LDA #18H STA ENTIM0,X ENSDCL EQU $ ZKW00A EQU $ STZ ENXSPD,X STZ ENYSPD,X ; ZKW00C EQU $ RTS ;- - - - - - - - - - - - - - - - - - - - - ZKW010 EQU $ ;; DEC ENWRK3,X DEC ENCTCT,X BPL ZKW020 ; LDA #0BH ;; STA ENWRK3,X STA ENCTCT,X ; INC ENCONT,X ZKW020 EQU $ RTS ;===================================== TKSHOT EQU $ LDA ENTIM0,X BNE TKS010 ; ;; DEC ENSTAT,X STZ ENSTAT,X ;; LDA #20H ;; STA ENTIM0,X ; ;; JMP ZKSDST RTS TKS010 EQU $ CMP #18H BNE TKS011 ; JSL >TKTAMST TKS011 EQU $ RTS ;========================================= TKTAMST EQU $ PHB PHK PLB ; LDA #TEKI0 JSL >ENIDSH BMI TKS020 ; ;; JSL >SDLRCE ;; ORA #05H ;; STA SOUND3 ;(S) LDA #05H JSL >SDLRE3 ;(S) ; JSL >ENIDPS ; ; LDA ITMTBL7 CMP #03H BCC TKS018 ; Tate power 2,3 ? ; ; yes ! LDA #20H STA ENMOD4,Y TKS018 EQU $ PLX TKS020 EQU $ PLB RTL ;- - - - - - - - - TKSXSD EQU $ BYTE 30H+9,0D0H-9 ;,00,00 TKSYSD EQU $ BYTE 00,00,30H+9,0D0H-9 TKTSXL EQU $ HEX 10,F8,04,04 TKTSXH EQU $ HEX 00,FF,00,00 TKTSYL EQU $ HEX FE,FE,08,EC TKTSYH EQU $ HEX FF,FF,00,FF ;==================================================================== HONEST EQU $ LDA #SKEL2 JSL >ENIDSH BMI HNS010 ; LDA #01H STA ENWRK0,Y ; JSL >ENIDPS ; PHX TYX LDA #20H JSL >PSERCHL LDA #00100001B STA ENMOD0,X STA ENNOCR,X LDA ENMOD2,X ORA #01000000B STA ENMOD2,X LDA #01001000B STA ENMOD5,X LDA #10H STA ENTIM0,X LDA #14H STA ENMOD3,X LDA #07H STA ENCLOR,X LDA #00100000B STA ENMOD6,X PLX ; ;; JSL >SDLRCE ;; ORA #02H ;; STA SOUND2 ;(S) LDA #02H JSL >SDLRE2 ;(S) HNS010 EQU $ RTS ;==================================================================== TKTAMCD EQU $ ;R WORD 00000H,00000H HEX C3,00,00,00 WORD 0FFF8H,0000H HEX C2,00,00,00 WORD 00000H,00000H HEX C3,80,00,00 WORD 0FFF8H,0000H HEX C2,80,00,00 ;L WORD 00000H,00000H HEX C3,40,00,00 WORD 00008H,00000H HEX C2,40,00,00 WORD 00000H,00000H HEX C3,C0,00,00 WORD 00008H,00000H HEX C2,C0,00,00 ;D WORD 00000H,00000H HEX D4,00,00,00 WORD 00000H,0FFF8H HEX D3,00,00,00 WORD 00000H,00000H HEX D4,40,00,00 WORD 00000H,0FFF8H HEX D3,40,00,00 ;U WORD 00000H,00000H HEX D4,80,00,00 WORD 00000H,00008H HEX D3,80,00,00 WORD 00000H,00000H HEX D4,C0,00,00 WORD 00000H,00008H HEX D3,C0,00,00 ;- - - - - - - - - - - - - - - - - - - - - - TKTAMCS EQU $ LDA #00H XBA LDA ENMUKI,X ASL A CLC ADC ENCHPT,X MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ADC #TKTAMCD STA SETOAML22 ;; RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Ice Boss BG % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ICEBGMV EQU $ JSR ENSTCK2 ; ;; JSL >CRENPL2L ;; BCC ICB000 ; JSR EPXYCK LDA PLOTCK ; Player revise ; JSL >DASHON ; ICB000 EQU $ JSL >CRKNENL ; LDA ENSTAT,X BNE ICBG10 ; LDA ENMODE,X CMP #EFAIL BNE ICBG08 ; LDA #11000000B STA ENMOD2,X INC ENSTAT,X LDA #EMOVE STA ENMODE,X RTS ;============================================ ICBGXL EQU $ HEX 01,FF ICBGXH EQU $ HEX 00,FF ; ICBG08 EQU $ LDA ENFLSH,X BEQ ICBG0C AND #02H LSR A TAY LDA ICBGXL,Y STA BGMVC0 LDA ICBGXH,Y STA BGMVC0+1 LDA #01H STA B1MFLG RTS ;- - - - - - - - - - - - ICBG0C EQU $ STZ B1MFLG RTS ;============================================================ ICBG10 EQU $ INC ENSTAT,X ; CMP #10H+1+1 BEQ ICBG20 ; PHX JSL >ICECGCNG PLX RTS ;=================================== ICBG20 EQU $ STZ ENMODE,X ; LDA #02H STA ENSTAT+2 ; Boss Move start ! LDA #80H STA ENTIM0+2 RTS ;=============================================== ICTAMST EQU $ ;; LDA ENIDSH BMI ITS010 ; LDA SDLRCE ;; ORA #20H ;; STA SOUND2 ;(S) LDA #20H JSL >SDLRE2 ;(S) PLX ; ITS010 EQU $ RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Ice Boss % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;ICZCDT EQU $ ; HEX 2,1,0,0 ;ICZCLD EQU $ ; HEX 1,0,0,0 ; ICBOSMV EQU $ ;; LDA ENWRK1,X ;; BEQ ICB000 ;;;====== Zanzoo =============== ;; LDA ENTIM0,X ;; DEC A ;; BNE ICZ010 ;;; ;; STZ ENMODE,X ;;ICZ010 EQU $ ;; LSR A ;; LSR A ;; LSR A ;; LSR A ;; NOP ;; NOP ;; TAY ;; LDA ICZCDT,Y ;; STA ENCHPT,X ;;; ;; LDA ENCLOR,X ;; AND #11111110B ;; ORA ICZCLD,Y ;; STA ENCLOR,X ;;; ;; JSL >EN1CSTL ;; RTS ;=============== BOSS MAIN ================ ;;ICB000 EQU $ JSL >ICBOSCS ; JSR ENSTCK ; LDA ENSTAT,X CMP #02H BCS ICB010 ; JSR ICZNZST ; LDA PSERC2L JSL >MKCK16 STA ENWRK0,X ICB008 EQU $ JSR ENMVCL ; LDA ENSTAT,X JSL >JSRSUB WORD IBMOVE WORD IBSTOP WORD IBSTRT WORD IBWAIT ;==================================== IBMOVE EQU $ JSR CREKEK ; LDA ENTIM0,X BNE IBM010 ; INC ENSTAT,X JSL >RNDSET AND #3FH ADC #20H STA ENTIM0,X RTS IBM010 EQU $ LDA ENXSPD,X CMP ENZSPD,X BEQ IBM020 BPL IBM018 INC ENXSPD,X BRA IBM020 IBM018 EQU $ DEC ENXSPD,X IBM020 EQU $ LDA ENYSPD,X CMP ENZSDR,X BEQ IBM030 BPL IBM028 INC ENYSPD,X BRA IBM030 IBM028 EQU $ DEC ENYSPD,X ;- - - - - - - - - - - - - IBM030 EQU $ ;; LDA ENCBFG,X ; ;; JSL >ENBGCKL JSR ENBGCK ; AND #03H BEQ IBM040 LDA ENXSPD,X EOR #0FFH INC A STA ENXSPD,X LDA ENZSPD,X EOR #0FFH INC A STA ENZSPD,X IBM040 EQU $ LDA ENCBFG,X AND #0CH BEQ IBM050 LDA ENYSPD,X EOR #0FFH INC A STA ENYSPD,X LDA ENZSDR,X EOR #0FFH INC A STA ENZSDR,X IBM050 EQU $ RTS ;==================================== IBMXSD EQU $ HEX 10,10,F0,F0 IBMYSD EQU $ HEX F0,10,10,F0 ; IBSTOP EQU $ JSR CREKEK ; LDA ENTIM0,X BNE IBS010 STZ ENSTAT,X JSL >RNDSET AND #3FH ADC #60H STA ENTIM0,X JSL >RNDSET PHA AND #03H TAY LDA IBMXSD,Y STA ENZSPD,X LDA IBMYSD,Y STA ENZSDR,X PLA AND #00011100B BNE IBS008 ; Player serch time ? ; ; yes ! LDA #18H JSL >PSERC2L LDA ENIDSH2 BMI IBW0A0 ; JSL >ENIDPS ; PHX LDX ENHELP ; LDA E2MODE,X BEQ ICZS20 DEX BPL ICZS10 PLX RTS ;- - - - - - - - - - - - - - - - - - - ICZS20 EQU $ LDA #07H STA >E2MODE,X STA EN2FLG ; LDA #1FH STA >E2TIM0,X ; JSL >RNDSET AND #07H TAY LDA ENXP2L CLC ADC ICZXAL,Y STA >E2XPSL,X LDA ENXP2H ADC ICZXAH,Y STA >E2XPSH,X ; JSL >RNDSET AND #07H TAY LDA ENYP2L CLC ADC ICZXAL,Y PHP CLC ADC #10H STA >E2YPSL,X LDA ENYP2H ADC #00H PLP ADC ICZXAH,Y STA >E2YPSH,X ; LDA #00H STA >E2WRK0,X ; PLX IZS090 EQU $ RTS ;;;---------------------------------- ;; LDA #ICBOS ;; JSL >ENIDSH ;; BMI IZS090 ;;; ;; LDA #01H ;; STA ENWRK1,Y ;; STA ENNOCR,Y ;;; ;; LDA #00H ;; STA ENMOD0,Y ;;; ;; LDA #3FH ;; STA ENTIM0,Y ;;; ;; PHX ;; JSL >RNDSET ;; AND #07H ;; TAX ;; LDA RNDSET ;; AND #07H ;; TAX ;; LDA EN1CSTL ; LDA ENSTAT,X BNE ITM002 ; LDA ENMOD2,X EOR #00010000B STA ENMOD2,X ITM002 EQU $ JSR ENSTCK ; LDA ENTIM0,X BEQ ITM005 ; CMP #01H BNE ITM003 ; STZ ENMODE,X ITM003 EQU $ LSR A LSR A LSR A INC A INC A STA ENCHPT,X RTS ;------------------------------------- ITM005 EQU $ JSR ENMVCL ; LDA ENSTAT,X BEQ ITM065 ; JSR CRENPL ; ;; JSL >ENBGCKL ; ;; LDA ENCBFG,X JSR ENBGCK BNE ITM080 ; ITM065 EQU $ LDA ENZPSL,X PHA JSR ENZCLC ; LDA ENZSPD,X CMP #0C0H BMI ITM008 SEC SBC #03H STA ENZSPD,X ITM008 EQU $ PLA EOR ENZPSL,X BPL ITM090 ; LDA ENZPSL,X BPL ITM090 ; STZ ENZPSL,X ; LDA ENSTAT,X BNE ITM080 ; STZ ENMODE,X ; JSR ITMBRK RTS ITM080 EQU $ ;; STZ ENMODE,X LDA #0FH STA ENTIM0,X ; LDA #04H STA ENCLOR,X ; LDA SOUND2 BNE ITM090 ; ;; JSL >SDLRCE ;; ORA #1EH ;; STA SOUND2 ;(S) LDA #1EH JSL >SDLRE2 ;(S) ; LDA #03H STA ENCHPT,X ITM090 EQU $ RTS ;========================================== ITMBXS EQU $ HEX 00,20,00,E0 HEX 18,18,E8,E8 ITMBYS EQU $ HEX E0,00,20,00 HEX E8,18,E8,18 ; ITMBRK EQU $ ;; JSL >SDLRCE ;; ORA #1FH ;; STA SOUND2 ;(S) LDA #1FH JSL >SDLRE2 ;(S) ; JSL >RNDSET AND #04H STA ENIDSH BMI ITMB90 ; JSL >ENIDPS LDA #01H STA ENSTAT,Y STA ENCHPT,Y STA ENWRK2,Y ; LDA #020H STA ENZSPD,Y ; PHX LDA ENHELP ORA ICMANCS ; LDA ENMODE,X CMP #EMOVE BEQ IC0000 ; LDA #03H STA ENSTAT,X LDA #1FH STA ENTIM0,X STA ENNOCR,X LDA #EMOVE STA ENMODE,X STZ ENFLSH,X ; IC0000 EQU $ ; JSR ENSTCK ; LDA ENSTAT,X CMP #03H BEQ IC0020 ; JSR ENHNSB ; IC0020 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD ICWAIT WORD ICWAIT2 WORD ICMOVE WORD ICFAIL ;======================================= ICWAIT EQU $ INC ENNOCR,X JSR EPXCHK LDA TGBLKWT ; BG set ! LDA #60H STA ENTIM1,X LDA #02H STA ENMUKI,X LDA #50H STA ENTIM0,X RTS ICW210 EQU $ AND #01H TAY LDA ICWXSD,Y STA ENXSPD,X JSR ENXCLC RTS ;======================================= ICMXSD EQU $ HEX 08,F8 ;,00,00 ICMYSD EQU $ HEX 00,00,12,EE ICPTDT EQU $ HEX 1,2,1,3 ;- - - - - ICSTXL EQU $ HEX FC,FE,00,02,04,06,08,0A ICSTXH EQU $ HEX FF,FF,00,00,00,00,00,00 ; ICMOVE EQU $ JSR CRENPL JSL >CRKNENL BCC ICM000 ; STZ ENFLSH,X ICM000 EQU $ LDA ENTIM1,X BEQ ICM008 ; TXA EOR RNDSET AND #07H TAY LDA ICSTXL,Y STA ICEFLST ; Kira kira set ! ; ICM008 EQU $ LDA ENTIM0,X BNE ICM010 ; JSR EPXYCK TYA STA ENMUKI,X ICM010 EQU $ LDY ENMUKI,X LDA ICMXSD,Y STA ENXSPD,X LDA ICMYSD,Y STA ENYSPD,X ; LDA ENCBFG,X AND #0FH BNE ICM011 ; JSR ENMVCL ICM011 EQU $ ;; JSL >ENBGCKL JSR ENBGCK TXA EOR ENBTON STZ ENMODE,X PLA ICF010 EQU $ LSR A LSR A LSR A TAY LDA ICFPTD,Y STA ENCHPT,X RTS ; ; ;; LDA JSRSUB WORD DCSTOP WORD DCGO ;---------------------------------------- DCSTOP EQU $ LDY #00H LDA SETOAML22 JSR SETO22 ; LDA #12H JSL >SADWS2L RTS ;============================================== USCPCL EQU $ OMEATD EQU $ HEX 40,00 ;; HEX 40,00 ; USAGIMV EQU $ LDY ENMUKI,X LDA ENCLOR,X AND #10111111B ORA USCPCL,Y STA ENCLOR,X JSL >EN1CSTL ; LDA ENSTAT,X JSL >JSRSUB WORD USSTOP WORD USGO ;======================================== USSTOP EQU $ LDA #03H STA ENCHPT,X ; LDA CALFLG BEQ USS020 ; INC ENSTAT,X ; LDA ENMUKI,X EOR #01H STA ENMUKI,X TAY LDA OMGOXS,Y STA ENXSPD,X ; LDA #0F8H STA ENYSPD,X USS020 EQU $ RTS ;------------------------------------------- USGPTD EQU $ HEX 0,1,2 ; USGO EQU $ JSR ENMVCL2 ; DEC ENZSPD,X DEC ENZSPD,X DEC ENZSPD,X ; LDA ENZPSL,X BPL USG010 ; LDA #018H STA ENZSPD,X STZ ENZPSL,X ; STZ ENCONT,X STZ ENWRK0,X USG010 EQU $ INC ENCONT,X LDA ENCONT,X AND #03H BNE USG020 ; LDA ENWRK0,X CMP #02H BEQ USG020 ; INC ENWRK0,X USG020 EQU $ LDY ENWRK0,X LDA USGPTD,Y STA ENCHPT,X RTS ;============================================== OOOMUMV EQU $ LDA ENCHPT,X CMP #03H BNE OMM010 ;With eye ? ; ; yes ! JSR OMEYEST ; OMM010 EQU $ LDY ENMUKI,X LDA ENCLOR,X AND #10111111B ORA USCPCL,Y STA ENCLOR,X MEM16 REP #20H LDA EN1CSTL INC ENMOD0,X ; JSR ENMVCL2 ; LDA ENSTAT,X JSL >JSRSUB WORD OMSTOP WORD OMUP WORD OMDOWN ;- - - - - - - - - - - - - - - - - - ; OMSTOP EQU $ LDY #00H LDA ALOMCKL RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Kuroi yatsu % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ; KURORMV EQU $ KURODMV EQU $ LDA ENWRK3,X BNE KROF0 ; JMP KURO0 ; Makkuro kurosuke ? ; KROF0 EQU $ ; yes ! LDA ENWRK2,X BNE KR0F8 ; INC ENWRK2,X JSR EPYCHK CPY #00H BEQ KR0F8 ; Player lower ? ; ; no uper ! STZ ENMODE,X RTS ; KR0F8 EQU $ JSL >EN1CSSL JSR ENSTCK JSR CREKEK ;; JSL >CRENPLL ; INC ENCONT,X ;; TXA ;; EOR ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK BEQ KSM010 ; STZ ENMODE,X KSM010 EQU $ LDA ENCONT,X AND #03H BNE KSM090 ; PHX TXY LDX #E2NO-1 KZS010 EQU $ LDA >E2MODE,X BEQ KZS020 DEX BPL KZS010 PLX KSM090 EQU $ RTS ;- - - - - - - - - - - -- - - - - - - - - - KZS020 EQU $ LDA #06H STA >E2MODE,X STA EN2FLG ; LDA ENXPSL,Y STA >E2XPSL,X LDA ENXPSH,Y STA >E2XPSH,X LDA ENYPSL,Y CLC ADC #0010H STA >E2YPSL,X LDA ENYPSH,Y ADC #00H STA >E2YPSH,X ; LDA #0AH STA >E2TIM0,X ; TYA STA >E2STAT,X ; LDA ENKAIF,Y STA >E2WRK0,X ; PLX RTS ;-------------------------------------------------------- KURO0 EQU $ ;; JSL >OAMCHKL ; ;; LDA ENSTAT,X ;; CMP #02H ;; BCC KRO000 ; JSL >KURORCS ;;KRO000 EQU $ ; JSR ENSTCK ; LDA ENSTAT,X JSL >JSRSUB WORD KRSET WORD KRWAIT WORD KREYE WORD KRGO ;=================================================== KRSET EQU $ INC ENSTAT,X LDA #80H STA ENTIM0,X LDA #0FFH STA ENCHPT,X RTS ;=================================================== KRWAIT EQU $ LDA ENTIM0,X BNE KRW010 ; INC ENSTAT,X ; LDA #20H+17H STA ENTIM0,X KRW010 EQU $ RTS ;=================================================== KREYPT EQU $ HEX 5,4,3,2,1,0 KREYAD EQU $ HEX 06,06,00,00 KRGXSD EQU $ HEX 20,E0 ;,00,00 KRGYSD EQU $ HEX 00,00,20,E0 ;- - - - - - - - - - - - - - - - - - KREYE EQU $ LDA ENTIM0,X BNE KRE010 ; PHA INC ENSTAT,X LDY ENMUKI,X LDA KRGXSD,Y STA ENXSPD,X LDA KRGYSD,Y STA ENYSPD,X LDA #20H STA ENTIM0,X PLA KRE010 EQU $ CMP #20H BCC KRE011 SBC #20H LSR A LSR A TAY LDA KREYPT,Y LDY ENMUKI,X CLC ADC KREYAD,Y STA ENCHPT,X RTS ; KRE011 EQU $ LDA #0FFH STA ENCHPT,X RTS ;=================================================== KRGPAD EQU $ HEX 12,E,C,10 ; KRGO EQU $ JSR CREKEK ; JSR ENMVCL LDA ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK ;; AND #0FH BEQ KRG010 ; LDA ENMUKI,X EOR #01H STA ENMUKI,X ; STZ ENSTAT,X KRG010 EQU $ RTS ;=================================================== ;=================================================== ;=================================================== ;; LDA EN1CSTL JSL >MGTAMCS ; JSR ENSTCK ; LDA ENCLOR,X EOR #00000110B STA ENCLOR,X ; INC ENCONT,X ; LDA ENSTAT,X BNE MGB010 ; JSR CRENPL MGB010 EQU $ ; JSR ENMVCL ;; JSL >ENBGCKL ; ;; LDA ENCBFG,X JSR ENBGCK BEQ MTM010 ; STZ ENMODE,X MTM010 EQU $ RTS ;============================================ MGM000 EQU $ LDA ENSTAT,X BEQ MGM00C ; AND #01H BEQ MGM010 ; LDA ENTIM0,X AND #01H BEQ MGM010 ; MGM00C EQU $ JSL >OAMCHKL BRA MGM020 ; MGM010 EQU $ JSL >MAGICCS MGM020 EQU $ ; JSR ENSTCK JSR ENHNSB LDA #01H STA ENNOCR,X ; LDA ENSTAT,X JSL >JSRSUB WORD MGSET WORD MGUP WORD MGSHOT WORD MGDOWN ;============================================ MGSMKD EQU $ HEX 4,2,0,6 ; MGSET EQU $ LDA ENTIM0,X BNE MGST20 ; LDA #01H STA ENXSPD,X STA ENYSPD,X ;; JSL >ENBGCKL ; ;; LDA ENCBFG,X JSR ENBGCK BNE MGST10 ; INC ENSTAT,X LDA #3FH STA ENTIM0,X JSR EPXYCK TYA STA ENMUKI,X LDA MGSMKD,Y STA ENCHPT,X RTS ; MGST10 EQU $ STZ ENMODE,X MGST20 EQU $ RTS ;============================================ MGUP EQU $ LDA ENTIM0,X BNE MGU010 ; INC ENSTAT,X ; ;; LDA #7FH LDA #3FH STA ENTIM0,X MGU010 EQU $ RTS ;============================================ MGSPTD EQU $ HEX 0,1,1,1,1,1,1,0 MGSPAD EQU $ HEX 04,02,00,06 ;;MGSTPD EQU $ ;; HEX 0,0,0,0,0,0,0,0 ;; HEX A,9,8,7,A,9,8,7 ;; HEX A,9,8,7,A,9,8,7 ;; HEX A,9,8,7,A,9,8,7 ;; HEX 6,5,4,3,6,5,4,3 ;; HEX 6,5,4,3,6,5,4,3 ;; HEX 2,1,2,1,2,1,2,1 ;; HEX 0,0,0,0,0,0,0,0 ;;MGSTAD EQU $ ;; HEX 0C,0A,00,00 ; MGSHOT EQU $ STZ ENNOCR,X ; JSR CREKEK ; LDA ENTIM0,X BNE MGS010 ; INC ENSTAT,X LDA #3FH STA ENTIM0,X RTS MGS010 EQU $ CMP #020H BNE MGS011 PHA JSR MGTAMST PLA MGS011 EQU $ ;;; LSR A ;;; PHA LSR A LSR A LSR A TAY LDA MGSPTD,Y LDY ENMUKI,X CLC ADC MGSPAD,Y STA ENCHPT,X ;;; PLY ;;; LDA MGSTPD,Y ;;; BEQ MGS050 ;;; CMP #03H ;;; BCS MGS050 ;;; LDY ENMUKI,X ;;; CLC ;;; ADC MGSTAD,Y ;;;MGS050 EQU $ ;;; STA ENWRK0,X RTS ;============================================ MGDOWN EQU $ LDA ENTIM0,X BNE MGD010 ; LDA ENWRK1,X BEQ MGD008 ; Flag set ? ; ; yes ! clear ! STZ ENMODE,X MGD008 EQU $ STZ ENSTAT,X ; next set ! JSL >RNDSET AND #1FH ADC #20H STA ENTIM0,X MGD010 EQU $ RTS ;============================================ MGTSXS EQU $ HEX 20,E0 ;;,00,00 MGTSYS EQU $ HEX 00,00,20,E0 ;- - - - - - - - - - - - - - - - - - - MGTAMST EQU $ LDA #MAGIC JSL >ENIDSH BMI MTS010 ; LDA #36H JSL >SDLRE3 ;(S) ; LDA #01H STA ENWRK2,Y STA ENNOCR,Y ; LDA ITMTBL7 TAX LDA #00000000B CPX #03H BNE MTS00C ;Tate maxmam powr ? ; ; yes ! hanekairi check ! LDA #00100000B MTS00C EQU $ STA ENMOD4,Y PLX ; LDA #14H STA ENMOD3,Y ; MTS010 EQU $ RTS ;============================================ ;============================================ ;============================================ ;============================================ ;============================================ ;============================================ ;; LDA OAMCHKL BRA FS0000 FS0001 EQU $ JSR FISH0CS FS0000 EQU $ ; JSR ENSTCK JSR ENHNSB ; LDA #01H STA ENNOCR,X ; LDA ENSTAT,X JSL >JSRSUB WORD FSSET WORD FSWAIT WORD FSUP WORD FSJUMP WORD FSCLER ;================================================== FSSET EQU $ LDA ENTIM0,X BNE FSS010 ; INC ENSTAT,X ; JSL >RNDSET AND #3FH ADC #60H STA ENTIM0,X ; LDA ENWRK0,X STA ENXPSL,X LDA ENWRK1,X STA ENXPSH,X LDA ENWRK2,X STA ENYPSL,X LDA ENKBMK,X STA ENYPSH,X ; LDA #05H STA ENCONT,X LDA #08H STA ENCHPT,X ; ;; LDA ENMOD2,X ;; AND #11101111B ;; STA ENMOD2,X ; FSS010 EQU $ RTS ;================================================== ;;FSJXSD EQU $ ;; HEX 10,F0 ; FSWAIT EQU $ LDA ENTIM0,X BNE FSW010 ; LDA #1FH STA ENTIM0,X ; INC ENSTAT,X ; ;; LDA ENMOD2,X ;; ORA #00010000B ;; STA ENMOD2,X ; ;; JSR EPXCHK ;; TYA ;; STA ENMUKI,X ;;; ;; TAY ;; LDA FSJXSD,Y ;; STA ENXSPD,X ;; RTS FSW010 EQU $ DEC ENCONT,X BPL FSW011 ; LDA #05H STA ENCONT,X ; INC ENCHPT,X LDA ENCHPT,X AND #03H CLC ADC #08H STA ENCHPT,X FSW011 EQU $ RTS ;================================================== FSUCHP EQU $ ;; HEX 4,3,2,8,7,6,1,0 HEX 4,7,E,D,C,6,6,5 FSJPXS EQU $ HEX 20,E0,20,E0 FSJPYS EQU $ HEX 20,20,E0,E0 ; FSUP EQU $ LDA ENTIM0,X BNE FSU008 ; INC ENSTAT,X ; ;; STZ ENNOCR,X ; JSR EPYCHK TYA ASL A STA ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK AND #00000011B BEQ BBM020 ; LDA ENXSPD,X EOR #0FFH INC A STA ENXSPD,X ; INC ENCTFG,X ; Bound count ! ; BRA BBM020 BBM020 EQU $ LDA ENCBFG,X AND #00001100B BEQ BBM030 ; LDA ENYSPD,X EOR #0FFH INC A STA ENYSPD,X ; INC ENCTFG,X BBM030 EQU $ LDA ENCTFG,X CMP #03H BCC BBM048 ; BBM038 EQU $ LDA #04H STA ENSTAT,X ; LDA #0FH STA ENTIM0,X ; ;; JSL >SDLRCE ;; ORA #28H ;; STA SOUND2 ;(S) LDA #28H JSL >SDLRE2 ;(S) BBM048 EQU $ INC ENCONT,X ; LDA ENCONT,X LSR A LSR A LSR A AND #03H TAY LDA FSMCPT,Y STA ENCHPT,X ;; DEC ENZSPD,X ;;; ;; LDA ENZPSL,X ;; BPL FSJ010 ;;; ;; LDA #10H ;; STA ENZSPD,X ;; STZ ENZPSL,X ;;FSJ010 EQU $ ;; INC ENCONT,X ;; LDA ENCONT,X ;; CMP #06H ;; BNE FSJ020 ;;; ;; STZ ENCONT,X ;;; ;; LDA ENCHPT,X ;; EOR #01H ;; STA ENCHPT,X ;;FSJ020 EQU $ TXA EOR RNDSET MEM16 REP #20H AND #000FH SEC SBC #0004H STA RNDSET MEM16 REP #20H AND #000FH SEC SBC #0004H STA ICEFLST FSJ050 EQU $ RTS ;= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = FSCLER EQU $ LDA ENTIM0,X BNE FSC010 ; STZ ENCTFG,X STZ ENSTAT,X STZ ENZPSL,X ; LDA #40H STA ENTIM0,X RTS FSC010 EQU $ LSR A LSR A TAY CLC ADC #0FH STA ENCHPT,X RTS ;%%%%%%%%%%%%%%%Kira kira set%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ICEFLST2 EQU $ ; Teki yori shita yuusen ! PHX TXY LDX #E2HF-1 BRA ICS010 ; ICEFLST EQU $ PHX TXY ; LDX #E2NO-1 ICS010 EQU $ LDA >E2MODE,X BEQ ICS020 DEX BPL ICS010 STX E2MODE,X STA EN2FLG ; LDA ENXPSL,Y CLC ADC E2XPSL,X LDA ENXPSH,Y ADC E2XPSH,X LDA ENYPSL,Y SEC SBC ENZPSL,Y PHP CLC ADC #0010H PHP CLC ADC E2YPSL,X LDA ENYPSH,Y ADC E2YPSH,X ; LDA #1FH STA >E2TIM0,X ; TYA STA >E2STAT,X ; LDA ENKAIF,Y STA >E2WRK0,X ; PLX RTL ;================================================== ;================================================== ;================================================== ;================================================== ;================================================== ;================================================== ;================================================== ;================================================== ;================================================== FISH0CD EQU $ ;C WORD 00001H,00008H HEX B4,00,00,00 WORD 00007H,00008H HEX B5,00,00,00 ; WORD 00004H,0FFFDH HEX 86,00,00,00 ; WORD 00000H,0FFF3H HEX A2,80,00,02 ;D WORD 00002H,00008H HEX B4,00,00,00 WORD 00006H,00008H HEX B5,00,00,00 ; WORD 00004H,0FFFAH HEX 96,00,00,00 ; WORD 00000H,0FFECH HEX A2,00,00,02 ;E WORD 00004H,0FFFFH HEX 96,00,00,00 ; WORD 00000H,0FFE5H HEX A2,00,00,02 WORD 00000H,0FFE5H HEX A2,00,00,02 WORD 00000H,0FFE5H HEX A2,00,00,02 ;0F - Break pt. - - WORD 0FFFAH,0FFFAH HEX DF,01,00,00 WORD 0000EH,0FFFAH HEX DF,41,00,00 WORD 0FFFAH,0000EH HEX DF,81,00,00 WORD 0000EH,0000EH HEX DF,C1,00,00 ;10 WORD 0FFFAH,0FFFAH HEX 96,00,00,00 WORD 0000EH,0FFFAH HEX 96,40,00,00 WORD 0FFFAH,0000EH HEX 96,80,00,00 WORD 0000EH,0000EH HEX 96,C0,00,00 ;11 WORD 0FFFCH,0FFFCH HEX 8D,01,00,00 WORD 0000CH,0FFFCH HEX 8D,41,00,00 WORD 0FFFCH,0000CH HEX 8D,81,00,00 WORD 0000CH,0000CH HEX 8D,C1,00,00 ;12 WORD 00000H,00000H HEX 8D,01,00,00 WORD 00008H,00000H HEX 8D,41,00,00 WORD 00000H,00008H HEX 8D,81,00,00 WORD 00008H,00008H HEX 8D,C1,00,00 ;- - - - - - FSMKAT EQU $ HEX 40,00,00,00 HEX 00,00,00,00 HEX 00,40,C0,80 ; FISH0CS EQU $ LDA ENCHPT,X CMP #0CH BCS FSCS10 ;; CMP #03H ;; BCC FSC008 ; LDY ENCHPT,X LDA ENCLOR,X PHA AND #00111111B ORA FSMKAT,Y STA ENCLOR,X ;;FSC008 EQU $ JSL >EN1CSTL PLA STA ENCLOR,X RTS ;- - - - - - - - - - - - - - - - - - - - - FSCS10 EQU $ SEC SBC #0CH TAY LDA #00H XBA TYA MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ASL A ADC #FISH0CD ;-06H*20H STA SETOAML22 ;; RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Ice pengin % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% PGCHAD EQU $ HEX 05,00,0A,0F ; PENGIMV EQU $ LDY ENMUKI,X LDA ENWRK0,X CLC ADC PGCHAD,Y STA ENCHPT,X JSR PENGICS ; LDA ENHNFG,X BNE PGM018 ; LDA ENCBFG,X AND #0FH BEQ PGM030 ; PGM018 EQU $ STZ ENSTAT,X STZ ENXSPD,X STZ ENYSPD,X PGM030 EQU $ JSR ENSTCK JSR ENHNSB ; JSR CREKEK ; JSR ENMVCL2 ; DEC ENZSPD,X DEC ENZSPD,X ; LDA ENZPSL,X BPL PGM020 ; STZ ENZSPD,X STZ ENZPSL,X PGM020 EQU $ ;; JSL >ENBGCKL JSR ENBGCK ; LDA ENSTAT,X JSL >JSRSUB WORD PGSET WORD PGGO WORD PGJUMP WORD PGSLID ;============================================================= PGSET EQU $ JSR EPXYCK TYA STA ENMUKI,X ; INC ENSTAT,X RTS ;============================================================= ;PGGXLM EQU $ ; HEX 10,F0 ;,00,00 ;PGGYLM EQU $ ; HEX 00,00,10,F0 PGGXAD EQU $ HEX 01,FF ;,00,00 PGGYAD EQU $ HEX 00,00,01,FF ;- - - - - - - - - - - - - - - PGGO EQU $ TXA EOR BIKRST2 ;;; RTS ;============================================================= PGJPTD EQU $ HEX 4,4,3,2 ; PGJUMP EQU $ LDA ENTIM0,X BNE PGJ010 ; INC ENSTAT,X ; PGJ010 EQU $ CMP #05H BNE PGJ020 ; PHA LDA #018H STA ENZSPD,X PLA ; PGJ020 EQU $ LSR A LSR A TAY LDA PGJPTD,Y STA ENWRK0,X RTS ;============================================================= EISTYD EQU $ HEX 08,0A,0C,0E HEX 0C,0C,0C,0C EISTXD EQU $ HEX 04,04,04,04 HEX 00,04,08,0C ; PGSLID EQU $ KIRAST EQU $ TXA EOR ENIDSH ;; BMI EIST10 ; LDA ENMUKI,X STA RNDSET AND #03H TAY LDA RNDSET AND #03H TAY LDA ICEFLST2 ; Kira kira set ! ; ;; LDA SETOAML22 ;- - - - Buhin set ! LDY #00H LDA #00H XBA LDA ENCHPT,X CMP #0EH BEQ PG2C10 INY CMP #13H BNE PGCFFF PG2C10 EQU $ TYA MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ADC #PENGIC2 STA SETOAML22 PGCFFF EQU $ ; JSL >SADWSTL RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Eye beam % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MMBEMMV EQU $ JSL >EN1CSSL ; JSR ENSTCK ; JSR MMZNZST JSR ENMVCL ; JSL >CRENPL2L ; LDA ENTIM0,X BNE MMB010 ; ;; JSR CRENPL ;; JSL >ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK ;; AND #0FH BEQ MMB010 ; STZ ENMODE,X ; ;; JSL >SDLRCE ;; ORA #26H ;; STA SOUND3 ;(S) LDA #26H JSL >SDLRE3 ;(S) ; RTS MMB010 EQU $ RTS ;- - - - - - - - - - - - - - MMZNZST EQU $ ;; INC ENCONT,X ;- - Zanzo set ! - - ;; TXA ;; EOR E2MODE,X BEQ MZS020 DEX BPL MZS010 ;; PLX ;;MZS018 EQU $ ;; RTS DEC E2STCT BPL MZS012 ; LDA #E2NO-1 STA E2STCT MZS012 EQU $ LDX E2STCT ;- - - - - - - - - - - -- - - - - - - - - - MZS020 EQU $ LDA #04H STA >E2MODE,X STA EN2FLG ; LDA ENXPSL,Y STA >E2XPSL,X LDA ENXPSH,Y STA >E2XPSH,X LDA ENYPSL,Y CLC ADC #0010H STA >E2YPSL,X LDA ENYPSH,Y ADC #00H STA >E2YPSH,X ; LDA #10H STA >E2TIM0,X ; LDA ENCHPT,Y STA >E2CHPT,X TYA STA >E2STAT,X ; LDA ENKAIF,Y STA >E2WRK0,X ; PLX RTS ; ; ; ;=========================================== MEMEIT EQU $ PHB PHK PLB JSR MMI010 PLB RTL ;----------------------------------------- MMDUYD EQU $ MMDUXD EQU $ HEX F8,08 ; MMI010 EQU $ LDA ENMYNO,X CMP #MEMED BCC MEMERIT ;- - - - - - - - - - - - - - - - - - - - - - MEMEDIT EQU $ MEMEUIT EQU $ LDA ENXPSL,X CLC ADC #08H STA ENXPSL,X ;; JSR XRVS ; LDA ENMYNO,X SEC SBC #MEMER STA ENMUKI,X TAY ; LDA ENXPSL,X AND #00010000B EOR #00010000B STA ENKBMK,X ; BNE MDUI10 ; LDA ENYPSL,X CLC ADC MMDUYD-2,Y STA ENYPSL,X ; MDUI10 EQU $ RTS ; ; MEMERIT EQU $ MEMELIT EQU $ LDA ENMYNO,X SEC SBC #MEMER STA ENMUKI,X TAY ; LDA ENYPSL,X AND #00010000B STA ENKBMK,X ; BNE MRLI10 ; LDA ENXPSL,X CLC ADC MMDUXD,Y STA ENXPSL,X ; MRLI10 EQU $ RTS ; ; MEMERMV EQU $ MEMELMV EQU $ MEMEDMV EQU $ MEMEUMV EQU $ LDA ENWRK0,X BEQ MM0000 ; JMP MMBEMMV MM0000 EQU $ JSR MEMERCS ; JSR ENSTCK ; LDA ENSTAT,X JSL >JSRSUB WORD MMWAIT WORD MMSHOT ;================================================================= MMMKCK EQU $ HEX 2,3,0,1 ; MMWAIT EQU $ ;; JSR EPXYCK MEM16 REP #20H LDA ENIDSH BMI MMBS010 ; PHX LDA ENMUKI,X TAX AND #02H LSR A STA ENCHPT,Y LDA ITMTBL7 CMP #03H BNE MMBS009 ; Tate max power ? ; ; yes ! Hanekairi ! LDA #00100000B STA ENMOD4,Y MMBS009 EQU $ PLX ; ;; JSL >SDLRCE ;; ORA #19H ;; STA SOUND3 ;(S) LDA #19H JSL >SDLRE3 ;(S) MMBS010 EQU $ RTS ;================================================================= ;================================================================= ;================================================================= ;================================================================= ;================================================================= MEMERCD EQU $ ;R WORD 00008H,0FFFCH HEX C8,40,00,00 WORD 00008H,00004H HEX D8,40,00,00 WORD 00008H,0000CH HEX C8,C0,00,00 ; WORD 00008H,0FFFCH HEX C9,40,00,00 WORD 00008H,00004H HEX D9,40,00,00 WORD 00008H,0000CH HEX C9,C0,00,00 ;L WORD 00000H,0FFFCH HEX C8,00,00,00 WORD 00000H,00004H HEX D8,00,00,00 WORD 00000H,0000CH HEX C8,80,00,00 ; WORD 00000H,0FFFCH HEX C9,00,00,00 WORD 00000H,00004H HEX D9,00,00,00 WORD 00000H,0000CH HEX C9,80,00,00 ;D WORD 0FFFCH,00008H HEX D6,00,00,00 WORD 00004H,00008H HEX D7,00,00,00 WORD 0000CH,00008H HEX D6,40,00,00 ; WORD 0FFFCH,00008H HEX C6,00,00,00 WORD 00004H,00008H HEX C7,00,00,00 WORD 0000CH,00008H HEX C6,40,00,00 ;U WORD 0FFFCH,00000H HEX D6,80,00,00 WORD 00004H,00000H HEX D7,80,00,00 WORD 0000CH,00000H HEX D6,C0,00,00 ; WORD 0FFFCH,00000H HEX C6,80,00,00 WORD 00004H,00000H HEX C7,80,00,00 WORD 0000CH,00000H HEX C6,C0,00,00 ;- - - - - - - - - - - - - - - - MEMERCS EQU $ LDA ENKBMK,X BEQ MMC010 ; Akeppanashi ? ; ; yes ! LDA #01H STA ENCHPT,X ; LDA ENTIM3,X BEQ MMC010 ; Just beam shot ? ; ; yes ! pachi ! STZ ENCHPT,X MMC010 EQU $ LDA #30H STA ENFLCL,X ; LDA #00H XBA LDA ENMUKI,X ASL A ADC ENCHPT,X MEM16 REP #00100000B ASL A ASL A ASL A STA SETOAML22 ;; RTS ;- - - - - - - - - - - - - - - - - - - - - - - - TAILMVJ EQU $ JMP TAILMV ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% AYASHIII YATSU % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% AYASIMV EQU $ LDA ENWRK3,X BNE TAILMVJ ; LDA ENFLCL,X ORA #00110000B STA ENFLCL,X ;Mujyoken BG yusen !! (for water ) JSR AYASICS ; JSR ENSTCK ; LDA ENSTAT,X JSL >JSRSUB WORD AYSST0 WORD AYSST1 WORD AYSDOW WORD AYSGO ;============================================== AYS0PT EQU $ HEX 02,03,00,01 ; AYSST0 EQU $ LDA ENTIM0,X BNE AYS000 ; INC ENSTAT,X LDA #1FH STA ENTIM0,X AYS000 EQU $ STA ENNOCR,X LDY ENMUKI,X LDA AYS0PT,Y STA ENWRK0,X ; RTS ;============================================== AYS1PT EQU $ ;R HEX 09,0B ;; HEX 0A,09,09,09 ;; HEX 0A,0B,0B,0B ;; HEX 0A,09,09,09 ;; HEX 0A,0B,0B,0B ;L HEX 05,07 ;; HEX 06,07,07,07 ;; HEX 06,05,05,05 ;; HEX 06,07,07,07 ;; HEX 06,05,05,05 ;D HEX 05,0B ;; HEX 04,05,05,05 ;; HEX 04,0B,0B,0B ;; HEX 04,05,05,05 ;; HEX 04,0B,0B,0B ;U HEX 07,09 ;; HEX 08,09,09,09 ;; HEX 08,07,07,07 ;; HEX 08,09,09,09 ;; HEX 08,07,07,07 ;- - - - - - - - - - - - - - - - - - - - - ;;AYS1XL EQU $ ;; HEX 40,C0,00,00 ;;AYS1YL EQU $ ;; HEX 00,00,40,C0 ;- - - - - - - - - - - - - - ASSTYS EQU $ HEX 00,00 ASSTXS EQU $ HEX 04,FC,00,00 ; AYSST1 EQU $ LDA ENTIM0,X BNE AYS110 ; INC ENSTAT,X ; LDA #20H STA ENTIM0,X ; ;; LDY ENMUKI,X ;;; ;; LDA ENXPSL,X ;; CLC ;; ADC AYS1XL,Y ;; STA ENWRK1,X ;;; ;; LDA ENYPSL,X ;; CLC ;; ADC AYS1YL,Y ;; STA ENWRK2,X ; STZ ENNOCR,X JSR ENSDCL RTS AYS110 EQU $ LDA ENMUKI,X ASL A ;; ASL A ;; ASL A ;; ASL A STA ASMZST ; AYSD20 EQU $ LDA #10H STA ENTIM1,X ; INC ENSTAT,X ;; JSR EPXYCK ;; TYA ;; STA ENMUKI,X AYSD30 EQU $ AYMVPS EQU $ LDA ENMUKI,X ASL A STA ENIDSH2 BMI AMZ010 ; JSL >ENIDPS ; ;; JSL >SDLRCE ;; ORA #28H ;; STA SOUND2 ; (S) STZ SOUND2 ;(S) LDA #28H JSL >SDLRE2 ;(S) ; LDA #EWATR ; TEST TEST ! STA ENMODE,Y LDA #00001111B STA ENTIM0,Y LDA #00H STA ENSTAT,Y ; LDA #03H STA ENMOD0,Y AMZ010 EQU $ RTL ;============================================== AYSGXS EQU $ HEX 18,E8 ;,00,00 AYSGYS EQU $ HEX 00,00,18,E8 ;;ASNXMK EQU $ ;; HEX 2,3 ;; HEX 3,2 ;; HEX 0,1 ;; HEX 1,0 ;- - - - - - - - - - AYSGO EQU $ JSR ENHNSB ; JSR CREKEK JSR AYMVPS CLC ADC #08H STA ENWRK0,X ; LDA ENTIM1,X BNE AYSG18 ; ;; JSR KIRAST JSR AYAFLST ; JSR ENMVCL JSR ENBGCK ;; JSL >ENBGCKL ; ;; LDA ENTIM0,X ;; BNE AYSG10 ;;; ;; JSR EPXYCK ;; TYA ;; STA ENMUKI,X ;; LDA #40H ;; STA ENTIM0,X ;;AYSG10 EQU $ ; ;; LDA ENCBFG,X AND #0FH BEQ AYSG20 ; JSL >RNDSET LSR A LDA ENMUKI,X ROL A TAY LDA ASNXMK,Y STA ENMUKI,X AYSG20 EQU $ LDY ENMUKI,X LDA AYSGXS,Y STA ENXSPD,X LDA AYSGYS,Y STA ENYSPD,X ; AYSG18 EQU $ RTS ;============================================== AFSXAD EQU $ AFSYAD EQU $ HEX 3,4,5,4 ; AYAFLST EQU $ TXA EOR RNDSET AND #03H TAY LDA AFSXAD,Y STA RNDSET AND #03H TAY LDA AFSYAD,Y STA E2MODE,X BEQ KMRS20 DEX BPL KMRS10 ; PLX AFS090 EQU $ RTS ;- - - - - - - - - - - - - - - - - - - - - - KMRS20 EQU $ LDA #0BH STA >E2MODE,X STA EN2FLG ; LDA ENXPSL,Y CLC ADC E2XPSL,X LDA ENXPSH,Y ADC #00H STA >E2XPSH,X ; LDA ENYPSL,Y CLC ADC #10H PHP CLC ADC E2YPSL,X LDA ENYPSH,Y ADC #00H PLP ADC #00H STA >E2YPSH,X ; LDA #0FH STA >E2TIM0,X ; PLX RTS ;============================================== ;============================================== ;============================================== ;============================================== ;============================================== ;============================================== ;============================================== ;============================================== ; ; LDA EN1CSSL RTS ;--------------------------------------- AYC100 EQU $ JSL >EN1CSTL RTS ;- - - - - - - - - - - - - - - - - - - - ;AYC200 EQU $ ; LDA ENCLOR,X ; AND #00111111B ; STA ENCLOR,X ;; ; LDA #00H ; XBA ; LDA ENWRK0,X ; SEC ; SBC #0CH ; MEM16 ; REP #00100000B ; ASL A ; ASL A ; ASL A ;; ; ASL A ; ADC #AYASICD ; STA SETOAML2 ; RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Byoyon block % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% BYRVXD EQU $ BYRVYD EQU $ HEX 00,02,FE ; BYOYNMV EQU $ JSR BYOYNCS ; JSR ENSTCK ; JSR ENBGCK ; ;; JSR CRENPL LDA CRENPL2L BCC BYM010 ; JSL >DASCLR1 ; ;; LDA PSERC2L LDA SWSPCL1 PLX ; ;; JSL >SDLRCE ;; ORA #0BH ;; STA SOUND2 ;(S) LDA #32H JSL >SDLRE3 ;(S) ; BYM010 EQU $ ; ;; RTS ;====================================== CRBYEN EQU $ LDY #ENNO-1 BCR010 EQU $ ;; CPY ENINDX ;; BEQ BCR020 ; TYA EOR ESERCHL PLY LDA SDLRCE ;; ORA #0BH ;; STA SOUND2 ;(S) LDA #32H JSL >SDLRE3 ;(S) BCR020 EQU $ MEM8 SEP #00100000B DEY BPL BCR010 ; RTS ;- - - - - - - - - - - - - - - - - ;====================================================== BYOYNCD EQU $ WORD 0FFF8H,0FFF8H HEX EC,00,00,02 WORD 00008H,0FFF8H HEX EC,40,00,02 WORD 0FFF8H,00008H HEX EC,80,00,02 WORD 00008H,00008H HEX EC,C0,00,02 ; WORD 0FFF9H,0FFF9H HEX EC,00,00,02 WORD 00007H,0FFF9H HEX EC,40,00,02 WORD 0FFF9H,00007H HEX EC,80,00,02 WORD 00007H,00007H HEX EC,C0,00,02 ;-------------------------------------------------- BYOYNCS EQU $ LDA #00H XBA LDA ENTIM0,X LSR A AND #01H MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ASL A ADC #BYOYNCD STA SETOAML22 ;; RTS ;--------------------------- ;======================================== ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Skelton Big % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% SKELBMV EQU $ LDA ENSTAT,X BNE SBM010 ; JSL >OAMCHKL BRA SBM012 SBM010 EQU $ JSR SKELBCS SBM012 EQU $ ; JSR ENSTCK ; ;; LDA ITMTBL6 ;; CMP #02H ;; BCS SBM070 ; Normal sowrd ? ;;; ; yes ! stop ! STZ ENFLSH,X ; LDA #06H STA ENSTAT,X ; LDA #0FFH STA ENTIM0,X STZ ENXSPD,X STZ ENYSPD,X ; LDA #02H STA >EDMGDT+91H*16+8 ;SKELB*16+8 ; Bomb damage on ! SBM070 EQU $ ; JSR ENHNSB ; LDA ENSTAT,X JSL >JSRSUB WORD SBCHEK ;0 WORD SBDOWN ;1 WORD SBWAIT ;2 WORD SBKYOR ;3 WORD SBGOWT ;4 WORD SBJUMP ;5 WORD SBFAIL ;6 WORD SBACTN ;7 ;=================================================== SBCHEK EQU $ LDA #09H STA ENMOD3,X STA ENNOCR,X LDA ENMOD0,X PHA ORA #80H STA ENMOD0,X JSR CRENPL PLA STA ENMOD0,X BCC SBC010 ; LDA #090H STA ENZPSL,X INC ENSTAT,X LDA #02H STA ENKBMK,X LDA #02H STA ENCHPT,X ; ;; JSL >SDLRCE ;; ORA #20H ;; STA SOUND2 ;(S) LDA #20H JSL >SDLRE2 ;(S) SBC010 EQU $ RTS ;================================================ SBDOWN EQU $ LDA ENZPSL,X PHA JSR ENZCLC ; LDA ENZSPD,X CMP #0C0H BMI SBD008 SEC SBC #03H STA ENZSPD,X SBD008 EQU $ PLA EOR ENZPSL,X BPL SBD00C ; LDA ENZPSL,X BPL SBD00C ; SETWAI EQU $ LDA #02H STA ENSTAT,X ; STZ ENNOCR,X ; STZ ENZPSL,X STZ ENZSPD,X ; LDA #3FH STA ENTIM0,X ; SBD00C EQU $ RTS ;================================================ SBWCPT EQU $ SBWKYD EQU $ HEX 00,01 ;; HEX 00,01 ; SBWAIT EQU $ LDA #00H STA >EDMGDT+91H*16+8 ;SKELB*16+8 ; Bomb damage oFF ! ; JSR CREKEK LDA ENTIM0,X BNE SBW010 ; SETKYO EQU $ LDA #03H STA ENSTAT,X ;; LDA #80H JSL >RNDSET AND #3FH STA ENWRK1,X LDA #7FH STA ENTIM0,X RTS ;- - - - - - - SBW010 EQU $ LSR A LSR A LSR A LSR A LSR A TAY LDA SBWCPT,Y STA ENCHPT,X LDA SBWKYD,Y STA ENWRK2,X ; LDA #02H STA ENKBMK,X RTS ;================================================ SBKYMK EQU $ HEX 0,0,0,2 HEX 1,1,1,2 HEX 0,0,0,2 HEX 1,1,1,2 ; SBKYOR EQU $ JSR CREKEK LDA ENTIM0,X CMP ENWRK1,X BNE SBK010 JSR EPXCHK TYA STA ENKBMK,X INC ENSTAT,X LDA #20H STA ENTIM0,X RTS SBK010 EQU $ LSR A LSR A LSR A ;; LSR A TAY LDA SBKYMK,Y STA ENKBMK,X LDA #00H STA ENWRK2,X LDA #00H STA ENCHPT,X RTS ;================================================ SBGOWT EQU $ JSR CREKEK LDA ENTIM0,X BNE SBGW10 INC ENSTAT,X LDA #0FFH STA ENTIM0,X LDA #20H STA ENTIM1,X SBGW10 EQU $ ;; RTS ;; BRA SBWCPS SBWCPS EQU $ LDA #01H STA ENWRK2,X LDA #01H STA ENCHPT,X RTS ;================================================ SBJUMP EQU $ JSR CREKEK ; LDA ENTIM1,X BEQ SBJ008 DEC A BNE SBJ007 LDA #30H STA ENZSPD,X LDA #10H JSL >PSERCHL JSR EPXCHK TYA STA ENKBMK,X ; LDA #13H JSL >SDLRE3 ;(S) SBJ007 EQU $ BRA SBWCPS ;- - - - - - - - - - - - - - - - - - - SBJ008 EQU $ JSR ENMVCL2 ;; JSL >ENBGCKL ;;; JSR ENZCLC JSR ENBGCK LDA ENZSPD,X CMP #0C0H BMI SBJ010 SEC SBC #02H STA ENZSPD,X SBJ010 EQU $ LDA ENZPSL,X DEC A BPL SBJ020 STZ ENZPSL,X STZ ENZSPD,X LDA ENTIM0,X BNE SBJ000 ; JMP SETWAI SBJ000 EQU $ ; LDA #10H STA ENTIM1,X SBJ020 EQU $ LDY #02H LDA ENZSPD,X CMP #18H BMI SBJ030 LDY #00H SBJ030 EQU $ TYA STA ENCHPT,X RTS ;================================================ SBFKYD EQU $ HEX 00,04,08,0C,0E,0E,0E,0E HEX 0E,0E,0E,0E,0E,0E,0E,0E HEX 0E,0E,0E,0E,0E,0E,0E,0E HEX 0E,0E,0F,0E,0C,08,04,00 ; SBFAIL EQU $ JSR ENMVCL2 ;; JSL >ENBGCKL ;;; JSR ENZCLC JSR ENBGCK LDA ENZSPD,X CMP #0C0H BMI SBF010 SEC SBC #02H STA ENZSPD,X SBF010 EQU $ LDA ENZPSL,X DEC A BPL SBF020 ; STZ ENZPSL,X STZ ENZSPD,X ;; STZ ENXSPD,X ;; STZ ENYSPD,X SBF020 EQU $ LDA ENTIM0,X ;; STA ENNOCR,X BNE SBF030 ; JSL >RNDSET AND #01H BNE SBF028 ; LDA #07H STA ENSTAT,X LDA #50H STA ENTIM0,X RTS SBF028 EQU $ JMP SETWAI SBF030 EQU $ CMP #0E0H BCC SBF038 PHA AND #03H BNE SBF035 LDA #14H JSL >SDLRE3 SBF035 EQU $ PLA SBF038 EQU $ LSR A LSR A LSR A TAY LDA SBFKYD,Y STA ENWRK2,X LDA #03H STA ENCHPT,X LDA #02H STA ENKBMK,X RTS ;================================================ SBAPTD EQU $ HEX 01,04 ; SBACTN EQU $ LDA ENTIM0,X BNE SBA010 JMP SETWAI SBA010 EQU $ LSR A LSR A AND #01H TAY LDA SBAPTD,Y STA ENCHPT,X RTS ;================================================ ;================================================ ;================================================ ;================================================ SKELBCD EQU $ ;0 WORD 0FFFCH,0FFF8H HEX 64,00,00,00 WORD 0FFFCH,00000H HEX 61,00,00,02 WORD 00004H,00000H HEX 62,00,00,02 WORD 0FFFDH,00010H HEX 74,00,00,00 WORD 0000BH,00010H HEX 74,40,00,00 ;1 WORD 0FFFCH,0FFF9H HEX 64,00,00,00 WORD 0FFFCH,00001H HEX 61,00,00,02 WORD 00004H,00001H HEX 62,00,00,02 WORD 0FFFDH,00010H HEX 65,00,00,00 WORD 0000BH,00010H HEX 65,40,00,00 ;2 WORD 0FFFCH,0FFF8H HEX 48,00,00,02 WORD 00004H,0FFF8H HEX 49,00,00,02 WORD 0FFFCH,00008H HEX 4B,00,00,02 WORD 00004H,00008H HEX 4C,00,00,02 WORD 00004H,00008H HEX 4C,00,00,02 ;3 WORD 0FFFCH,00008H HEX 68,00,00,02 WORD 00004H,00008H HEX 69,00,00,02 WORD 00004H,00008H HEX 69,00,00,02 WORD 00004H,00008H HEX 69,00,00,02 WORD 00004H,00008H HEX 69,00,00,02 ;4 WORD 0000CH,0FFF9H HEX 64,40,00,00 WORD 0FFFCH,00001H HEX 62,40,00,02 WORD 00004H,00001H HEX 61,40,00,02 WORD 0FFFDH,00010H HEX 65,00,00,00 WORD 0000BH,00010H HEX 65,40,00,00 ;5 WORD 0000CH,0FFF8H HEX 64,40,00,00 WORD 0FFFCH,00000H HEX 62,40,00,02 WORD 00004H,00000H HEX 61,40,00,02 WORD 0FFFDH,00010H HEX 74,00,00,00 WORD 0000BH,00010H HEX 74,40,00,00 ;6 WORD 0FFFCH,0FFF8H HEX 49,40,00,02 WORD 00004H,0FFF8H HEX 48,40,00,02 WORD 0FFFCH,00008H HEX 4C,40,00,02 WORD 00004H,00008H HEX 4B,40,00,02 WORD 00004H,00008H HEX 4B,40,00,02 ;- - - - - - - - - - - - - - - - - - - SKELBCS EQU $ JSR OAMCHK JSR SBHEDCS ; Head set ; LDA #00H XBA LDA ENCHPT,X MEM16 REP #00100000B ASL A ASL A ASL A STA SETOAML22 JSR SETO22 ; MEM16 REP #20H LDA SADWS2L RTS ;======================================================== SBHCCD EQU $ BYTE 066H,066H,046H,046H SBHCAD EQU $ BYTE 040H,000H,000H,000H ;- - - - - - - - - - - - - - - - - - - - - - - - SBHEDCS EQU $ LDA ENCHPT,X CMP #02H BEQ SBHC90 ; LDA ENWRK2,X STA PLRSET ; Player reset ! JSL >PLYCLR PLX ; RTS ; HDU050 EQU $ JSL >CRKNENL ; HDU060 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD HDDOWN WORD HDCACH WORD HDUP ;------------------------------------------ HDDOWN EQU $ LDA ENZPSL,X PHA JSR ENZCLC ; LDA ENZSPD,X CMP #0C0H BMI HDD008 SEC SBC #03H STA ENZSPD,X HDD008 EQU $ PLA EOR ENZPSL,X BPL HDD00C ; LDA ENZPSL,X BPL HDD00C ; INC ENSTAT,X ; STZ ENZPSL,X STZ ENZSPD,X ; LDA #3FH STA ENTIM0,X ; HDD00C EQU $ RTS ;---------------------------------------- HDCACH EQU $ LDA ENTIM0,X BNE HDCA10 ; INC ENSTAT,X HDCA10 EQU $ LDY #00H AND #00100000B BNE HDCA20 INY HDCA20 EQU $ TYA STA ENCHPT,X ; JSR CRENPL BCC HDCA30 ; LDA #01H STA ENWRK0,X ; LDA #01000000B STA ENMOD2,X ; ;; STZ SDLRE3 ;(S) HDCA30 EQU $ RTS ;---------------------------- HDUP EQU $ LDA ENZPSL,X PHA JSR ENZCLC ; LDA ENZSPD,X CMP #40H BPL HDU010 ; INC A INC A STA ENZSPD,X HDU010 EQU $ PLA EOR ENZPSL,X BPL HDU030 ; LDA ENZPSL,X BMI HDU030 ; STZ ENMODE,X HDU030 EQU $ RTS ;============================================ HANDSCD EQU $ WORD 0FFFCH,0FFFCH+4 HEX A6,01,00,02 WORD 0000CH,0FFFCH+4 HEX AA,01,00,00 WORD 0FFFCH,0000CH+4 HEX BA,01,00,00 WORD 00004H,00004H+4 HEX A8,01,00,02 ; WORD 0FFFCH,0FFFCH+4 HEX AB,01,00,02 WORD 0000CH,0FFFCH+4 HEX AF,01,00,00 WORD 0FFFCH,0000CH+4 HEX BF,01,00,00 WORD 00004H,00004H+4 HEX AD,01,00,02 ; HANDSCS EQU $ LDA #00H XBA LDA ENCHPT,X MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ASL A ADC #HANDSCD STA SETOAML22 JSR SETO22 ; ;; JSL >SADWSTL ; ;- - - Kage set - - - JSL >BIGSWST RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Slime % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% SLIMEMV EQU $ LDA ENMODE,X CMP #EMOVE BNE SLM002 ; LDA ENWRK3,X BEQ SLM002 ; Initial BG check ?(flag down ) ; ; yes ! STZ ENWRK3,X ; LDA #01H STA ENXSPD,X ;; STA ENYSPD,X ;; JSL >ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK STZ ENXSPD,X BEQ SLM0012 ; In BG ? ; ; YES ! Can't set ! STZ ENMODE,X RTS SLM0012 EQU $ LDA #20H JSL >SDLRE2 ;(S) ; Down sound ! SLM002 EQU $ LDA ENWRK2,X BEQ SLM0025 ; Long down ! ; LDA #30H STA ENFLCL,X SLM0025 EQU $ JSR SLIMECS ; JSR ENSTCK ; LDA ENSTAT,X CMP #02H BCC SLM003 ; JSL >CRKNENL SLM003 EQU $ JSR ENHNSB ; LDA ENSTAT,X JSL >JSRSUB WORD SLCHEK ;0 WORD SLSET0 ;1 WORD SLSET1 ;2 WORD SLWALK ;3 ;======================================== SLCHEK EQU $ LDA ENMOD3,X PHA ORA #09H STA ENMOD3,X ; OBJ hani big ! LDA ENMOD0,X ORA #10000000B STA ENMOD0,X ; JSR CRENPL PLA STA ENMOD3,X BCC SLCK10 ; INC ENSTAT,X ; LDA #07FH STA ENTIM0,X ; ;; STZ ENMOD3,X ; revise ! ; ASL ENMOD0,X LSR ENMOD0,X ; LDA PSERCHL ; LDA #30H JSL >SDLRE3 ;(S) RTS SLS000 EQU $ LSR A LSR A LSR A TAY LDA SLS0PT,Y STA ENCHPT,X RTS ;======================================== SLS1PT EQU $ HEX 00,01 ; SLSET1 EQU $ ;;; JSL >CRKNENL ; LDA ENTIM0,X BEQ SLS130 DEC A BNE SLS110 ; LDA #20H STA ENTIM0,X ; INC ENSTAT,X STZ ENCHPT,X RTS SLS110 EQU $ LSR A LSR A LSR A LSR A TAY LDA SLS1PT,Y STA ENCHPT,X ; 0 or 1 ; LDA CRKNENL ; JSR ENMVCL ;; JSL >ENBGCKL JSR ENBGCK ; ; ; ; ; ; LDA ENZPSL,X PHA JSR ENZCLC ; LDA ENZSPD,X CMP #0C0H BMI S1M008 SEC SBC #02H STA ENZSPD,X S1M008 EQU $ PLA EOR ENZPSL,X BPL SLS100 ; LDA ENZPSL,X BPL SLS100 ; ; ; ; ; ; ;; LDA ENZSPD,X ;; DEC A ; DEC A ;;; STA ENZSPD,X ; ;; LDA ENZPSL,X ;; BPL SLS100 ; STZ ENZSPD,X STZ ENZPSL,X STZ ENWRK2,X ; LDA #1FH STA ENTIM0,X LDA #08H STA ENKBMK,X ; Walk counter ! SLS100 EQU $ RTS ;======================================== SLWBLD EQU $ HEX F8,08 ; SLWALK EQU $ ;;; JSR CREKEK JSR CRENPL ; LDA ENTIM1,X BNE SLW020 ; LDA #30H JSL >PSERCHL JSL >RNDSET AND #3FH ORA #60H STA ENTIM1,X ; ASL ENCLOR,X ASL ENCLOR,X LDA ENXSPD,X ASL A ROR ENCLOR,X LSR ENCLOR,X ; SLW020 EQU $ LDA ENTIM2,X BNE SLW038 ; INC ENCONT,X LDA ENCONT,X AND #00001110B ORA ENCBFG,X BNE SLW030 ; JSR ENMVCL INC ENCTCT,X LDA ENCTCT,X CMP ENKBMK,X BNE SLW030 STZ ENCTCT,X JSL >RNDSET AND #1FH ADC #40H STA ENTIM2,X JSL >RNDSET AND #1FH ORA #10H STA ENKBMK,X SLW030 EQU $ ;; JSL >ENBGCKL JSR ENBGCK LDA ENCONT,X AND #00001000B LSR A LSR A LSR A STA ENCHPT,X RTS SLW038 EQU $ LDY #00H AND #00010000B BEQ SLW050 INY SLW050 EQU $ TYA STA ENCHPT,X RTS ;======================================== ;======================================== SLCMKD EQU $ HEX 00,00,40,40 ; SLIMECS EQU $ ;;; LDA HEMODE,X LDA ENCLOR,X LSR A BCS SLC0f1 ; Jyou chyuu slime ? ; ; yes ! LDA OJBKFG CMP #03H BCS SLC099 ; Bank ok ? ; ; yes ! SLC0f1 EQU $ LDA ENTIM3,X BEQ SLC0F0 ; LDA #02H*4 JSL >OAMENT2 SLC0F0 EQU $ LDA ENSTAT,X BEQ SLC001 ; LDA ENCHPT,X CMP #04H BCS SLC010 PHA TAY LDA ENCLOR,X PHA ;; AND #10111111B EOR SLCMKD,Y STA ENCLOR,X ; AND #01H EOR #01H ASL A ASL A ; ;;; LDA HEMODE,X ;4:Jyuotyuu SLIME ! CLC ADC ENCHPT,X STA ENCHPT,X JSL >EN1CSTL ; PLA STA ENCLOR,X PLA STA ENCHPT,X SLC000 EQU $ RTS SLC001 EQU $ JSL >OAMCHKL SLC099 EQU $ RTS ;- - - - - - - - - - - - - - - - - - SLIMECD EQU $ WORD 00000H,00008H HEX 6C,03,00,00 WORD 00008H,00008H HEX 6D,03,00,00 ; WORD 00000H,00008H HEX 60,00,00,00 WORD 00008H,00008H HEX 70,00,00,00 ; WORD 00000H,00008H HEX 70,40,00,00 WORD 00008H,00008H HEX 60,40,00,00 ; WORD 00000H,00000H HEX 40,00,00,02 WORD 00000H,00000H HEX 40,00,00,02 ; SLC010 EQU $ LDA #00H XBA LDA ENCHPT,X SEC SBC #04H MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ADC #SLIMECD STA SETOAML22 ;; RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Kame % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% KAM01MV EQU $ JSL >EN1CSTL ; ;; JSL >ENBGCKL JSR ENBGCK ; ;; LDA ENMODE,X ;; CMP #ECACH ;; BNE KM0001 ;;; ;; JMP KMST55 ; Chr. paturn set ! ;KM0001 EQU $ ; JSR ENSTCK ; JSR ENHNSB ; ;; JSR CREKEK LDA ENTIM2,X BNE KM0001 ; JSL >CRKNENL KM0001 EQU $ ; JSR CRHMEN ; Vs hanmer check ! ; ;; JSR ENZCLC JSR ENMVCL2 ; LDA ENWRK1,X JSL >JSRSUB WORD KMWALK WORD KMSTOP KM0010 EQU $ RTS ;============================================================ KMWXSD EQU $ HEX 08,F8,00,00 HEX 0C,F4,00,00 KMWYSD EQU $ HEX 00,00,08,F8 HEX 00,00,0C,F4 ; KMWALK EQU $ LDA ENTIM3,X BNE KMW010 ; JSL >RNDSET AND #1FH ADC #20H STA ENTIM3,X ; AND #03H STA ENMUKI,X ; AND #00110000B BNE KMW010 ; JSR EPXYCK TYA STA ENMUKI,X KMW010 EQU $ LDA ENMUKI,X CLC ADC ENCTCT,X TAY LDA KMWXSD,Y STA ENXSPD,X LDA KMWYSD,Y STA ENYSPD,X ; LDA ENZSPD,X DEC A DEC A STA ENZSPD,X LDA ENZPSL,X ;; DEC A BPL KMW020 ; STZ ENZPSL,X STZ ENZSPD,X KMW020 EQU $ LDA CACHCKL KMST55 EQU $ LDA ENTIM3,X CMP #40H BCS KMS060 LSR A AND #01H TAY LDA KMRTXS,Y STA ENXSPD,X INC ENCONT,X KMS060 EQU $ KMSTPS EQU $ INC ENCONT,X LDA ENCONT,X LSR A LSR A LSR A AND #01H TAY LDA #02H STA ENCHPT,X LDA ENCLOR,X AND #10111111B ORA KMSCLD,Y STA ENCLOR,X ; ; ;; LDA ENMODE,X ;; CMP #EFAIL ;; BNE KMST90 ;;; ;; LDA #0FFH ;; STA ENTIM3,X ;;; ;;KMST90 EQU $ RTS ;- - - KMSCLD EQU $ HEX 00,40 ; KMRTXS EQU $ HEX 08,F8 ;============================================================ CRHMEN EQU $ LDA ENZPSL,X ORA ENTIM2,X BNE CKE010 ; LDA PKNCRS2 JSR KMCRST JSL >CROJCK2 BCC CKE010 ; LDA ENXSPD,X EOR #0FFH INC A STA ENXSPD,X ; LDA ENYSPD,X EOR #0FFH INC A STA ENYSPD,X ; LDA #20H STA ENTIM2,X ; LDA #20H STA ENZSPD,X ; LDA #04H STA ENCTCT,X ; High speed ! ; LDA ENWRK1,X EOR #01H STA ENWRK1,X ; CMP #01H LDA #0FFH BCS CKE008 LDA #40H CKE008 EQU $ STA ENTIM3,X CKE010 EQU $ STZ ENKBMK,X CKE020 EQU $ RTS ;- - - - - - - - - - - - - - - KMCRST EQU $ LDA ENXPSL,X SEC SBC #10H STA ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK ;; AND #0FH BEQ PRM030 ; LDY ENSTAT,X CPY #05H BNE PRM028 ; AND #03H BEQ PRM025 ; LDA ENXSPD,X EOR #0FFH INC A STA ENXSPD,X BRA PRM030 PRM025 EQU $ LDA ENYSPD,X EOR #0FFH INC A STA ENYSPD,X BRA PRM030 PRM028 EQU $ JSR ENSDCL PRM030 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD PRMOVE ;0 WORD PRSTOP ;1 WORD PRATCK ;2 WORD PRUP ;3 WORD PRDOWN ;4 WORD PRATCK2 ;5 ; ;; WORD PRBABUL ; Last move ! ;================================================ ;;PRDXPS EQU $ ;; HEX 40,60,80,A0 ;;PRDYPS EQU $ ;; HEX 50,60,70,80 ;================================================ PRUP EQU $ LDA #78H STA ENZSPD,X JSR ENZCLC LDA ENZPSL,X CMP #0E0H ;; CMP #0C0H BCC PRU010 LDA #40H STA ENTIM0,X INC ENSTAT,X ; STZ ENZSPD,X ; ;;; LDA #78H ;; JSL >RNDSET ;; AND #03H ;; TAY ;; LDA PRDXPS,Y ;; STA ENXPSL,X ;; JSL >RNDSET ;; AND #03H ;; TAY ;; LDA PRDYPS,Y ;; STA ENYPSL,X ; ;; JSL >RNDSET ;; AND #03H ;; BNE PRU010 ; LDA PSERCHL ;; JSR ENMVCL ; LDA #090H STA ENZSPD,X LDA ENZPSL,X PHA JSR ENZCLC PLA EOR ENZPSL,X BPL PRD010 ; LDA ENZPSL,X BPL PRD010 ; STZ ENZPSL,X ; JSL >MIZUSTL ; INC ENSTAT,X ; LDA #20H STA ENTIM0,X ; LDA #03H JSL >SDLRE3 ;(S) ; LDA #20H STA ENXSPD,X STA ENYSPD,X PRD010 EQU $ DEC A BNE PRD020 ; LDA #20H JSL >SDLRE2 ;(S) PRD020 EQU $ RTS ;================================================ PRATCK2 EQU $ LDA ENTIM0,X BNE PRA220 ; STZ ENMOD2,X ; JSR ENMVCL JSL >CRKNENL ; LDA SDLRE2 ;(S) ; PHX TXY LDX #E2NO-1 LDA ENYSPD,Y BMI PRA208 LDX #E2HF-1 PRA208 EQU $ LDA >E2MODE,X BNE PRA20A ; LDA #15H STA >E2MODE,X STA EN2FLG LDA ENXPSL,Y STA >E2XPSL,X LDA ENXPSH,Y STA >E2XPSH,X LDA ENYPSL,Y CLC ADC #18H STA >E2YPSL,X LDA ENYPSH,Y STA >E2YPSH,X LDA #0FH STA >E2TIM0,X PLX RTS PRA20A EQU $ DEX BPL PRA208 PLX PRA220 EQU $ RTS ;;- - - - - - - - - - - - - - - ;PRBABUL EQU $ ; INC ENCONT,X ;; ; LDA #05H ; STA ENCLOR,X ;; ; LDA ENMOD2,X ; AND #10111111B ; STA ENMOD2,X ; JSR ENMVCL ; JSL >CRKNENL ;; ; LDA ENCBFG,X ;;; AND #0FH ; BEQ PRBB10 ;; ; LDA #21H ; JSL >SDLRE2 ;(S) ;PRBB10 EQU $ ; RTS ;- - - - - - - - - - - - - - - ;[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ PRMOVE EQU $ LDA ENTIM0,X BNE PRMV10 ; INC ENSTAT,X LDA #30H ;; LDA #50H STA ENTIM0,X ; ;; JSL >EFLCHK ;; BCC PRMV10 ; ;; LDA #30H ;; STA ENTIM0,X PRMV10 EQU $ JSR ENMVCL ; LDA ENXSPD,X CMP ENKBMK,X BEQ PRMV20 BPL PRMV18 INC ENXSPD,X BRA PRMV20 PRMV18 EQU $ DEC ENXSPD,X PRMV20 EQU $ LDA ENYSPD,X CMP ENMUKI,X BEQ PRMV30 BPL PRMV28 INC ENYSPD,X BRA PRMV30 PRMV28 EQU $ DEC ENYSPD,X PRMV30 EQU $ ; RTS ;- - - - - - - - - - - - - - - ;[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ PRSTOP EQU $ LDA ENTIM0,X BNE PRST10 ; STZ ENSTAT,X ; ;; LDA ENMYNO,X ;; CMP #ICBOS ;; BEQ PRST02 JSL >EFLCHK BCS PRST01 ; INC PTATTM LDA PTATTM CMP #04H BNE PRST02 ; STZ PTATTM ; LDA #02H STA ENSTAT,X LDA #0B0H STA ENTIM0,X ; RTS ;- - - - - - - - PRST01 EQU $ ; JSL >RNDSET ; AND #0FH ; ADC #10H ; STA ENTIM0,X ;; ; AND #07H ; ADC #10H ; PTUPSET EQU $ LDA #03H STA ENSTAT,X ; LDA #32H JSL >SDLRE3 ;; LDA #30H ;; STA ENXSPD,X ;; STA ENYSPD,X ; STZ ENCONT,X RTS ;; BRA PRST05 ;- - - - - - - - PRST02 EQU $ JSL >RNDSET AND #3FH ADC #30H STA ENTIM0,X ; AND #03H ADC #08H PRST05 EQU $ JSL >PSERC2L LDA EFLCHK ;; BCS PRST01 ; LDA #08H STA PTSPED ; LDA ENTIM0,X CMP #20H BCC PRAT20 CMP #60H BCS PRAT60 ; ;; STZ PTSPED ; ;; LDA PTHANK ;; CLC ;; ADC #01H INC PTHANK RTS PRAT20 EQU $ ;; LDA PTHANK ;; SEC ;; SBC #01H ;; STA PTHANK DEC PTHANK BMI PRAT80 RTS PRAT60 EQU $ BNE PRAT68 LDA #26H BRA PRAT6A PRAT68 EQU $ AND #0FH BNE PRAT70 ; LDA #06H PRAT6A EQU $ JSL >SDLRE3 ;(S) PRAT70 EQU $ RTS ; PRAT80 EQU $ STZ PTHANK ; DEC ENSTAT,X LDA #70H STA ENTIM0,X RTS ;- - - - - - - - - - - - - - - ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;------------------------------------------------ PTANDT EQU $ WORD 0000H,0040H,0080H,00C0H,0100H,0140H,0180H,01C0H WORD 0000H,0066H,00CCH,0132H,0198H PTANER EQU $ WORD 0000H,0000H,0000H,0000H,0000H,0000H,0000H,0000H WORD 01FFH,01FFH,01FFH,01FFH,01FFH PTHNDT EQU $ HEX 14,14,14,14,14,14,14,14 HEX 0C,0C,0C,0C,0C PTHND2 EQU $ ;; 0 1 2 3 4 5 6 7 8 9 A B C D E F HEX 00,FF,FE,FD,FC,FB,FA,FA,FB,FC,FD,FE,FF HEX 00,FF,FE,FD,FC,FB,FA,FA,FB,FC,FD,FE,FF HEX 00,FF,FE,FD,FC,FB,FA,FA,FB,FC,FD,FE,FF HEX 00,FF,FE,FD,FC,FB,FA,FA,FB,FC,FD,FE,FF ; - - - - - - - - - - - - - - - PATAMCT EQU $ ;- Tama Angle set - - - LDA PTANGL CLC ADC PTSPED ;#01H STA PTANGL LDA PTANGL+1 ADC #00H STA PTANGL+1 ; LDA SINDT2,X STA SINDT2,X STA BIGSWST2 PLA STA ENCLOR,X PTRC98 EQU $ RTS ; ;- - - - - - - - - - - - - - - ; LDA SADWSTL ;;;; ; LDA ALOMCKL ;PTRCA0 EQU $ ; RTS ;PTMZCD EQU $ ; WORD 0FFF8H,00008H ; HEX C0,00,00,02 ; WORD 0FFFBH,0000AH ; HEX C0,40,00,02 ; WORD 0FFFEH,0000CH ; HEX C0,00,00,02 ; WORD 00002H,0000CH ; HEX C0,40,00,02 ; WORD 00005H,0000AH ; HEX C0,00,00,02 ; WORD 00008H,00008H ; HEX C0,40,00,02 ;; ;PTMZMK EQU $ ; HEX 04,44 ; PTMZCS EQU $ JSL >PTMZCSL RTS ; ; LDA ENCLOR,X ; PHA ; LDA ENCONT,X ; LSR A ; NOP ; AND #01H ; TAY ; LDA PTMZMK,Y ; STA ENCLOR,X ; LDA #04H*6 ; JSL >OAMENT3 ; MEM16 ; REP #20H ; LDA #PTMZCD ; STA EN1CSTL ; ;; JSR PATAMCS ; JSR ENSTCK ; INC ENCONT,X LDA ENCONT,X LSR A LSR A LSR A AND #07H TAY LDA PTCHPT,Y STA ENCHPT,X ; LDA ENWRK1,X BEQ BCK010 ; Fock shot on ? TAY ; yes ! DEY ; LDA BMMODE,Y BEQ BCK020 ; Fock shut aru ? ; ; yes ! kuttsuki ! LDA BMXPSL,Y STA ENXPSL,X LDA BMXPSH,Y STA ENXPSH,X LDA BMYPSL,Y STA ENYPSL,X LDA BMYPSH,Y STA ENYPSH,X ; LDA #05H STA ENCLOR,X LDA ENMOD2,X AND #10111111B STA ENMOD2,X ; BCK008 EQU $ RTS BCK020 EQU $ LDA #01H STA ENSTAT,X STZ ENWRK1,X LDA #20H STA ENTIM0,X ;----------------------------------------------- BCK010 EQU $ LDA ENTIM0,X BNE PTM002 ; JSR CRENPL PTM002 EQU $ LDA ENSTAT,X BNE PTM020 ; LDA PTBFXL-1,X STA ENXPSL,X LDA PTBFXH-1,X STA ENXPSH,X LDA PTBFYL-1,X STA ENYPSL,X LDA PTBFYH-1,X STA ENYPSH,X ; RTS ;----------------------------------- PTM020 EQU $ JSL >CRKNENL ; TXA EOR ESERCHL LDA JSRSUB WORD MRSTOP WORD MRWALK ;---------------------------------------- MRCKMK EQU $ HEX 02,06,04,00 MRSTPT EQU $ HEX 04,08,0B,0A,00,06,03,07 ; MRSTOP EQU $ LDY ENMUKI,X LDA MRSTPT,Y STA ENCHPT,X ; LDA RNDSET AND #1FH ADC #30H STA ENTIM0,X INC ENSTAT,X RTS ;---------------------------------------- MRWKYS EQU $ HEX F0,00 ;;,00,00,10,00,00,00 MRWKXS EQU $ HEX 00,00,10,00,00,00,F0,00 MRWCPT EQU $ HEX 09,02,00,04 HEX 0B,03,01,05 ;- - - - - - - - - - - - - - - - - - - - - - MRWALK EQU $ LDY ENMUKI,X LDA MRWKXS,Y STA ENXSPD,X LDA MRWKYS,Y STA ENYSPD,X JSR ENMVCL ;; JSL >ENBGCKL JSR ENBGCK LDA ENTIM0,X BEQ MRW00C ; LDA ENCBFG,X BEQ MRW010 ; ;; LDA #40H ;; STA ENTIM0,X ; MRW00C EQU $ JSR EPXYCK TYA CMP ENWRK0,X BEQ MRW010 ; Muki chenge ? ; ; yes ! STA ENWRK0,X STZ ENSTAT,X RTS ; MRW010 EQU $ DEC ENWRK1,X BPL MRW012 ; LDA #0EH STA ENWRK1,X INC ENCONT,X MRW012 EQU $ LDA ENCONT,X ASL A ASL A AND #00000100B ORA ENWRK0,X TAY LDA MRWCPT,Y STA ENCHPT,X RTS ;====================================================== MIIRACD EQU $ ;0 WORD 00000H,0FFF7H HEX 80,00,00,02 WORD 00000H,00000H HEX 8A,00,00,02 ;1 WORD 00000H,0FFF8H HEX 80,00,00,02 WORD 00000H,00001H HEX 8A,40,00,02 ;2 WORD 00000H,0FFF7H HEX 82,00,00,02 WORD 00000H,00000H HEX 8C,00,00,02 ;3 WORD 00000H,0FFF8H HEX 82,00,00,02 WORD 00000H,00000H HEX 8E,00,00,02 ;4 WORD 00000H,0FFF7H HEX 84,00,00,02 WORD 00000H,00000H HEX A0,00,00,02 ;5 WORD 00000H,0FFF8H HEX 84,00,00,02 WORD 00000H,00001H HEX A0,40,00,02 ;6 WORD 00000H,0FFF7H HEX 86,00,00,02 WORD 00000H,00000H HEX A2,00,00,02 ;7 WORD 00000H,0FFF7H HEX 88,00,00,02 WORD 00000H,00000H HEX A4,00,00,02 ;8 WORD 00000H,0FFF7H HEX 88,40,00,02 WORD 00000H,00000H HEX A4,40,00,02 ;9 WORD 00000H,0FFF7H HEX 82,40,00,02 WORD 00000H,00000H HEX 8C,40,00,02 ;A WORD 00000H,0FFF7H HEX 86,40,00,02 WORD 0000H,00000H HEX A2,40,00,02 ;B WORD 00000H,0FFF8H HEX 82,40,00,02 WORD 00000H,00001H HEX 8E,40,00,02 ;- - - - - - - - - - - - - - - - - - - - - - - - - - MIIRACS EQU $ LDA #00H XBA LDA ENCHPT,X MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ADC #MIIRACD STA SETOAML22 JSR SETO22 ; LDA ENDSPL,X BNE MIRC90 ; JSL >SADWSTL MIRC90 EQU $ RTS ;====================== ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% BKFIRMV EQU $ JSL >EN1CSTL ; JSR ENSTCK ; JSR CRENPL ; LDA ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK BEQ BFR090 ; STZ ENMODE,X BFR090 EQU $ ;- - Zanzo set ! - - TXA EOR E2MODE,X BEQ BFS020 DEX BPL BFS010 PLX BFS018 EQU $ RTS ;- - - - - - - - - - - -- - - - - - - - - - BFS020 EQU $ LDA #02H STA >E2MODE,X STA EN2FLG ; LDA ENXPSL,Y STA >E2XPSL,X LDA ENXPSH,Y STA >E2XPSH,X LDA ENYPSL,Y STA >E2YPSL,X LDA ENYPSH,Y STA >E2YPSH,X ; LDA #10H STA >E2TIM0,X ; ;; LDA ENCLOR,Y ;; EOR ENFLCL TYA STA >E2STAT,X ; LDA ENKAIF,Y STA >E2WRK0,X ; PLX RTS ;====================== ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Tail % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TAILMV EQU $ LDA #30H STA ENFLCL,X JSR TAILCS ; JSR ENSTCK2 ; LDA ENFLSH,X BNE TLA008 ; LDA #01H STA ENNOCR,X ; LDA ENSTAT,X JSL >JSRSUB WORD TLSET WORD TLUP WORD TLATCK ;============================= TLSET EQU $ LDA ENXPSL,X STA TGBLKWT ; Tail off ! ; INC ENSTAT,X ; LDA #80H STA ENTIM0,X RTS ;============================= TLATCK EQU $ STZ ENNOCR,X ; LDA ENTIM0,X BEQ TLA002 ; AND #03H BNE TLA002 ; JSR TLSH TLA002 EQU $ JSR CREKEK BCS TLA008 JSR ENMVCL ; LDA ENYP2L SEC SBC ENZPSL,X STA ENYP2L LDA ENYP2H SBC #00H STA ENYP2H ; ;; JSL >ENBGCKL ; ;; LDA ENCBFG,X JSR ENBGCK BEQ TLA010 ; TLA008 EQU $ ; Break ! ;; JSL >SDLRCE ;; ORA #1FH ;; STA SOUND2 ; (S) LDA #1FH JSL >SDLRE2 ;(S) ; LDA #EFAIL STA ENMODE,X LDA #1FH STA ENTIM0,X LDA #KTOBJ STA ENMYNO,X STZ ENFLSH,X LDA #80H STA ENWRK2,X RTS TLA010 EQU $ BRA TLU020 ;============================= TLUP EQU $ LDA ENTIM0,X BNE TLU010 ; INC ENSTAT,X LDA #10H STA ENTIM0,X TLSH EQU $ LDA #20H+15 ;;; LDA #20H+6 JSL >PSERCHL RTS TLU010 EQU $ CMP #40H BCC TLU020 LDA #04H STA ENZSPD,X JSR ENZCLC TLU020 EQU $ INC ENCONT,X LDA ENCONT,X LSR A LSR A AND #01H STA ENCHPT,X ; TXA EOR SDLRCE ;; ORA #07H ;; STA SOUND2 ;(S) LDA #07H JSL >SDLRE2 ;(S) TLU030 EQU $ RTS ;============================= ; TAILCD EQU $ WORD 00000H,00000H HEX D3,00,00,00 WORD 00008H,00000H HEX D3,40,00,00 WORD 00000H,00008H HEX D3,80,00,00 WORD 00008H,00008H HEX D3,C0,00,00 ; WORD 00000H,00000H HEX C3,00,00,00 WORD 00008H,00000H HEX C3,40,00,00 WORD 00000H,00008H HEX C3,80,00,00 WORD 00008H,00008H HEX C3,C0,00,00 ; TAILCS EQU $ LDA #00H XBA LDA ENCHPT,X MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ASL A ADC #TAILCD STA SETOAML22 JSR SETO22 ; JSL >SADWSTL RTS ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HARI0MV EQU $ LDA ENWRK3,X BNE H10000 ; Normal trap ? ;- - - - - - - - - - ; yes ! JSL >EN1CSTL ; JSR ENSTCK JSR CREKEK ; JSR ENMVCL ;; JSL >ENBGCKL JSR ENBGCK ; LDA ENTIM0,X BNE H00000 ; JSR CRSKEN BCC H000F0 ; LDA ENCBFG,X AND #0FH BEQ H00000 ; H000F0 EQU $ LDA #04H STA ENTIM0,X ; LDA ENXSPD,X EOR #0FFH INC A STA ENXSPD,X ; LDA #05H JSL >SDLRE2 H00000 EQU $ RTS ; ; ;========= BIG Komori room trap ========== H10000 EQU $ LDA #01H*4 JSL >OAMENT2 ; JSL >EN1CSTL ; JSR ENSTCK ; JSR CREKEK ; LDA ENSTAT,X BNE HRM010 ;- - - set - - - LDY #00H JSR HRBGST ; INC ENSTAT,X ; LDA #40H STA ENTIM0,X LDA #069H STA ENTIM1,X ; RTS ;- - - - move- - - - - - - - - - HRMXRV EQU $ HEX 08,F8 ; HRM010 EQU $ LDA ENTIM0,X BEQ HRM020 ;Ready ? ; ; yes ! CMP #01H BNE HRM011 ; LDA ENWRK0,X STA ENXPSL,X LDA ENWRK1,X STA ENYPSL,X RTS HRM011 EQU $ LSR A AND #01H TAY LDA HRMXRV,Y STA ENXSPD,X JSR ENXCLC STZ ENXSPD,X RTS ;---------------------------- HRMXLM EQU $ HEX 20,E0 ;;,00,00 HRMYLM EQU $ HEX 00,00,20,E0 HRMXAD EQU $ HEX 01,FF ;;,00,00 HRMYAD EQU $ HEX 00,00,01,FF ;- - - - - HRM020 EQU $ LDA ENSTAT,X CMP #01H BNE HRM100 ; LDA PSSAVE2 ;; JSL >ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK BEQ HRM060 ; INC ENSTAT,X ; LDA #40H STA ENTIM1,X HRM060 EQU $ RTS ;- Return -BACK - - HRRXSD EQU $ HEX F0,10,00,00 HRRYSD EQU $ HEX 00,00,F0,10 ; HRM100 EQU $ LDA ENTIM1,X BNE HRM110 ; LDY ENMUKI,X LDA HRRXSD,Y STA ENXSPD,X LDA HRRYSD,Y STA ENYSPD,X ; JSR ENMVCL ; LDA ENXPSL,X CMP ENWRK0,X BNE HRM110 LDA ENYPSL,X CMP ENWRK1,X BNE HRM110 ; STZ ENMODE,X LDY #02H JSR HRBGST HRM110 EQU $ RTS ;======================================= HRBGST EQU $ LDA ENXPSL,X STA TGBLKWT RTS ;----Sekizoo hit check !---------------------------- CRSKEN EQU $ LDY #ENNO-1 CSK010 EQU $ TYA EOR BIGKOCS ; LDA ENMODE,X CMP #EICE BNE BK0000 ; STZ ENSTAT,X BK0000 EQU $ JSR ENSTCK ; STZ ENMOD2,X ; LDA ENTUTM,X BEQ BK0111 LDA #40H STA ENMOD2,X BK0111 EQU $ ; LDA ENHNFG,X BEQ BK0122 AND #7FH CMP #06H BNE BK0122 ; STZ ENHNFG,X LDA #20H STA ENTUTM,X LDA #02H STA ENSTAT,X STZ ENTIM0,X LDA #40H STA ENCTCT,X ; ;;; STA HEMODE,X ; High speed ; BK0122 EQU $ JSR ENHNSB ; LDA ENSTAT,X JSL >JSRSUB WORD BKWAIT WORD BKUP WORD BKFLY WORD BKFIRE ;------------------------------------------------ BKWAIT EQU $ LDA ENTIM0,X BNE BKW090 ; INC ENSTAT,X BKW090 EQU $ RTS ;------------------------------------------------ BKUP EQU $ ;; JSR CREKEK ; LDA #08H STA ENZSPD,X JSR ENZCLC STZ ENZSPD,X LDA ENZPSL,X CMP #18H BCC BKU090 ; LDA #080H STA ENCTCT,X ; INC ENSTAT,X STZ ENNOCR,X ; LDA #40H STA ENTIM0,X BKU090 EQU $ JSR BIGKOPT RTS ;------------------------------------------------ BKFZAD EQU $ HEX 01,FF BKFYSD EQU $ HEX F0,F4 BKFXSD EQU $ HEX 00,0C,10,0C,00,F4,F0,F4 ;; HEX 00,06,08,06,00,FA,F8,FA ;;BKFYSD EQU $ ;; HEX F8,FA,00,06,08,06,00,FA ; BKFLY EQU $ ;; LDA RNDSET AND #07H TAY LDA BKFXSD,Y STA ENXSPD,X LDA BKFYSD,Y STA ENYSPD,X ; ;; LDA HEMODE,X ;; BEQ BKF013 ;;; ;; ASL ENXSPD,X ;; ASL ENXSPD,X ;;BKF013 EQU $ JSL >RNDSET AND #1FH ADC #040H STA ENTIM0,X BRA BKF018 ;- - - - - - - - - - - - - - - - - - - - - - - - - - BKF020 EQU $ ; Player serch ! ;; JSL >RNDSET ;; AND #01111110B ;; BNE BKF018 ; LDA #20H JSL >PSERCHL ; LDA #80H STA ENTIM0,X ;;; STA ENTIM2,X BKF018 EQU $ LDA ENCBFG,X BNE BKF02C ; JSR ENMVCL BKF02C EQU $ JSR ENZCLC ;; JSL >ENBGCKL ; ;; LDA ENCBFG,X JSR ENBGCK BEQ BKF030 ; STZ ENTIM0,X BKF030 EQU $ JSR CREKEK ; INC ENCONT,X INC ENCONT,X BKF090 EQU $ RTS ;- - - - - - - - - - - - - - - - BKPTPT EQU $ HEX 0,1,2,1 ; BIGKOPT EQU $ INC ENCONT,X LDA ENCONT,X ;; LDY ENTIM2,X ;; BNE BKP010 LSR A LSR A BKP010 EQU $ AND #03H TAY BNE BKP021 ; LDA #02H JSL >SDLRE3 ;(S) BKP021 EQU $ LDA BKPTPT,Y STA ENCHPT,X RTS ;------------------------------------------------ ;;BKFRPT EQU $ ;; HEX 00,00,00,00 ;; HEX 00,00,00,00 ;; HEX 00,00,01,02 ;; HEX 02,02,01,00 ; BKFIRE EQU $ ;; LDA #02H ;; STA ENTIM2,X ; JSR CREKEK ; LDA ENTIM0,X BNE BKFR90 DEC ENSTAT,X JSL >RNDSET AND #1FH ORA #40H STA ENCTCT,X RTS BKFR90 EQU $ CMP #020H BNE BKFR10 ;; PHA JSR BKFIRST ;; PLA BKFR10 EQU $ BRA BIGKOPT ; ;; LSR A ;; LSR A ;; LSR A ;; TAY ;; LDA BKFRPT,Y ;; STA ENCHPT,X ;; RTS ;- - - - - - - - - - - - - - - - - - BKFSXL EQU $ BKFSXS EQU $ ;; HEX F0,00,10 HEX F0,00,10 ;;BKFSXH EQU $ ;; HEX FF,00,00 BKFSYS EQU $ HEX 18,20,18 ; BKFIRST EQU $ LDA #036H JSL >SDLRE3 ;(S) ; LDA #02H STA ENHELP BKFS10 EQU $ LDA #BKFIR JSL >ENIDSH BMI BKFS20 ; JSL >ENIDPS ; LDA ENIDSH BMI HCK0A0 ; PHX ; JSL >RNDSET AND #1FH CMP #1EH BCC HCK001 SBC #1EH HCK001 EQU $ TAX LDA HRSTXL,X STA ENXPSL,Y STA ENWRK0,Y LDA HRSTYL,X DEC A STA ENYPSL,Y STA ENWRK1,Y ; LDA HRSTMK,X STA ENMUKI,Y ; LDA #01H STA ENWRK3,Y CLC ADC NOWRMX STA ENXPSH,Y LDA #01H CLC ADC NOWRMY STA ENYPSH,Y TYX LDA #01H STA ENXSPD,X JSL >PSSAVE2 ;; JSL >ENBGCKL JSR ENBGCK STZ ENXSPD,X ; LDA ENWRK0,X STA ENXPSL,X LDA ENWRK1,X STA ENYPSL,X ; LDA ENCBFG,X BNE HCK070 ; Set ok ? STZ ENMODE,X ; No! PLX LDA #01H STA ENKBMK,X ; Next set ready ! RTS HCK070 EQU $ PLX HCK0A0 EQU $ RTS ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Mini dragon % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% CHIBIMV EQU $ JSL >EN1CSTL ; JSR ENSTCK ; JSR ENHNSB ; ;; JSL >CRENPLL ;; JSL >CRKNENL JSR CREKEK ; STZ ENMOD7,X ; LDA ENSTAT,X JSL >JSRSUB WORD CBSET WORD CBWALK WORD CBFIRE ;----------------------------------- ;CBWKXS EQU $ ; HEX 10,F0 ;,00,00 ;CBWKYS EQU $ ; HEX 00,00,10,F0 ;- - - - - - - - - - - - - - - - - - - - - CBCKXS EQU $ HEX 01,FF,00,00 CBCKYS EQU $ HEX 00,00,01,FF ; CBSET EQU $ INC ENSTAT,X JSL >RNDSET ;; AND #1FH ;; ADC #30H ;; STA ENTIM0,X AND #03H STA ENMUKI,X ;; CLC ;; ADC #03H ;; AND #03H ;; INC A ;; STA ENWRK3,X ; LDA #10110000B STA ENMOD7,X ; Wide BG check area ! ; CBS010 EQU $ LDY ENMUKI,X LDA CBCKXS,Y STA ENXSPD,X LDA CBCKYS,Y STA ENYSPD,X ;; JSL >ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK BEQ CBSDST LDA ENMUKI,X INC A AND #03H STA ENMUKI,X BRA CBS010 ; ; CBSDST EQU $ LDY ENMUKI,X LDA CBWKXS,Y STA ENXSPD,X LDA CBWKYS,Y STA ENYSPD,X RTS ;------------------------------------------- CBWCPT EQU $ HEX 02,02,00,05 HEX 03,03,00,05 CBWMKD EQU $ HEX 40,00,00,00 HEX 40,00,40,40 ;- - - - - - - - - - - - - CBWALK EQU $ JSR ENMVCL ; ;; JSL >ENBGCKL ; ;; LDA ENCBFG,X JSR ENBGCK BEQ CBW020 ; ;; STZ ENSTAT,X LDA ENMUKI,X EOR #01H STA ENMUKI,X JSR CBSDST CBW020 EQU $ ;; LDA ENTIM0,X ;; BNE CBW010 LDA ENXPSL,X AND #00011111B CMP #04H BNE CBW010 ; LDA ENYPSL,X AND #00011111B CMP #1BH BNE CBW010 ;Turn point ? ; ; yes ! JSL >RNDSET AND #03H BNE CBW010 ; LDA #09FH-30H STA ENTIM0,X INC ENSTAT,X STZ ENWRK0,X CBW010 EQU $ ; INC ENCONT,X LDA ENCONT,X AND #04H ORA ENMUKI,X TAY LDA CBWCPT,Y STA ENCHPT,X ; LDA ENCLOR,X AND #10111111B ORA CBWMKD,Y STA ENCLOR,X RTS ;--------------------------------------------- CBFRPT EQU $ HEX 02,02,00,05 HEX 04,04,01,06 ;- - - - - - - - - - - - - - - CBFIRE EQU $ LDA ENTIM0,X BNE CBF010 ; STZ ENSTAT,X CBF010 EQU $ LDY #00H SEC SBC #20H CMP #60H-30H BCS CBF020 LDY #04H CBF020 EQU $ CPY #04H BNE CBF030 ; LDA ENTIM0,X AND #0FH BNE CBF030 ; PHY JSR CHFIRST PLY CBF030 EQU $ TYA ORA ENMUKI,X TAY LDA CBFRPT,Y STA ENCHPT,X RTS ;-------------------------- CHFSXL EQU $ HEX 08,F8,00,00 CHFSXH EQU $ HEX 00,FF,00,00 CHFSYL EQU $ HEX 00,00,08,F8 CHFSYH EQU $ HEX 00,00,00,FF CHFSXS EQU $ HEX 18,E8,00,00 CHFSYS EQU $ HEX 00,00,18,E8 CHFSZS EQU $ HEX 40,38,30,28,20,18 ; CHFIRST EQU $ LDA #CHFIR LDY #0DH JSL >ENIDSH2 BMI CHFS10 ; PHX LDA ENMUKI,X TAX LDA CRKNENL CRENPL EQU $ JSR >CRENPLL RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Mini dragon fire % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% CHFCLD EQU $ HEX 00,40,C0,80 ; CHFIRMV EQU $ LDA ENTIM0,X BNE CHF200 ; ;; LDA ENTIM1,X ;; BEQ CHF001 ;; LDA #08H*4 ;; JSL >OAMENT3 ;;CHF001 EQU $ ; JSL >EN1CSTL JSR ENSTCK ; LDA ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK BNE CHF003 RTS ;; BEQ CHF002 ;;; ;; STZ ENXSPD,X ;; STZ ENYSPD,X CHF002 EQU $ ;; LDA ENZSPD,X ;; SEC ;; SBC #02H ;; STA ENZSPD,X ;; LDA ENZPSL,X ;; BPL CHF010 ; CHF003 EQU $ ;; STZ ENZPSL,X LDA #7FH STA ENTIM0,X ; LDA ENCLOR,X AND #00111111B STA ENCLOR,X ; ;; JSL >SDLRCE ;; ORA #2AH ;; STA SOUND2 ;(S) LDA #2AH JSL >SDLRE2 ;(S) ; CHF010 EQU $ RTS ;=================================== CHFPTD EQU $ HEX 05,04,03,01,02,00,03,00 HEX 01,02,03,00,01,02,03,00 HEX 01,02,03,00,01,02,03,00 HEX 01,02,03,00,01,02,03,00 ;- - - - - - - - - - - - - - - CHF200 EQU $ JSL >CRKNENL BCC CHF208 ; Ken hit ? ; DEC ENTIM0,X ; yes ! high speed ! BEQ CHF20A CHF208 EQU $ LDA ENTIM0,X DEC A BNE CHF210 CHF20A EQU $ STZ ENMODE,X CHF210 EQU $ LDA ENTIM0,X LSR A LSR A LSR A TAY LDA CHFPTD,Y STA ENCHPT,X JSL >CHFIRCS ; JMP CRENPL ;; RTS ;============================== CHFIRCD EQU $ WORD 00000H,0000H HEX 8E,01,00,02 WORD 00000H,0000H HEX 8E,01,00,02 ; WORD 0000H,0000H HEX A0,01,00,02 WORD 0000H,0000H HEX A0,01,00,02 ; WORD 00000H,0000H HEX 8E,41,00,02 WORD 00000H,0000H HEX 8E,41,00,02 ; WORD 0000H,0000H HEX A0,41,00,02 WORD 0000H,0000H HEX A0,41,00,02 ; WORD 0000H,0000H HEX A2,01,00,02 WORD 0000H,0000H HEX A2,01,00,02 ; WORD 0000H,0FFFAH HEX A4,01,00,0 WORD 0008H,0FFFAH HEX A5,01,00,00 ; CHFIRCS EQU $ PHB PHK PLB ; LDA #00H XBA LDA ENCHPT,X MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ADC #CHFIRCD STA SETOAML22 ; ;; LDA ENDSPL,X ;; BNE CHFC90 ;;; ;; JSL >SADWSTL ;;CHFC90 EQU $ ;L RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Skelton move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% SKATDT EQU $ HEX 30,00,00,00,30,00 ; SKELTMV EQU $ LDA ENWRK0,X BNE SKM003 ; Initial OK ? ; ; yes ! LDA #01H STA ENXSPD,X STA ENYSPD,X ;; JSL >ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK BEQ SKM002 ; In BG ? ; ; YES ! Can't set ! STZ ENMODE,X RTS SKM002 EQU $ INC ENWRK0,X LDA #0AH STA ENWRK2,X ; LDA ENMOD2,X ORA #01000000B STA ENMOD2,X ; ;; JSL >SDLRCE ;; ORA #20H ;; STA SOUND2 ;(S) LDA #20H JSL >SDLRE2 ;(S) SKM003 EQU $ LDY ENSTAT,X LDA ENFLCL,X ORA SKATDT,Y STA ENFLCL,X JSR SKELTCS ; JSR ENSTCK ; LDA >ITMTBL6 CMP #03H BCC SKM004 ; ken high power ? ; ; yes ! damage ! JSR ENHNSB BRA SKM005 SKM004 EQU $ LDA ENSTAT,X CMP #05H BEQ SKM005 ; Tubureru ! ; LDA ENFLSH,X BEQ SKM005 ; STZ ENFLSH,X ; ;; LDA ENMOD2,X ;; ORA #01000000B ;; STA ENMOD2,X ; LDA #05H STA ENSTAT,X LDA #0FFH STA ENTIM0,X SKM005 EQU $ ; LDA #01H STA ENNOCR,X ; LDA ENSTAT,X JSL >JSRSUB WORD SKDOWN WORD SKWAIT WORD SKSHOT WORD SKWAI2 WORD SKUP WORD SKFAIL ;-------------------------------------------------------- SKDOWN EQU $ LDA #02H STA ENKBMK,X ; LDA ENZPSL,X PHA JSR ENZCLC ; LDA ENZSPD,X CMP #0C0H BMI SKM008 SEC SBC #03H STA ENZSPD,X SKM008 EQU $ PLA EOR ENZPSL,X BPL SKM00C ; LDA ENZPSL,X BPL SKM00C ; INC ENSTAT,X ; STZ ENZPSL,X STZ ENZSPD,X ; LDA #40H STA ENTIM0,X ; JSR SKPTST SKM00C EQU $ RTS ;------------------------------------------------------ SKWAIT EQU $ STZ ENNOCR,X JSR CREKEK JSR EPXYCK TYA STA ENMUKI,X STA ENKBMK,X ; LDA ENTIM0,X BNE SKW010 INC ENSTAT,X LDA #07FH STA ENTIM0,X SKW010 EQU $ LDA ENMOD2,X AND #10111111B STA ENMOD2,X RTS ;------------------------------------------------------ SKSHPT EQU $ HEX 08,05,01,01 HEX 08,05,01,01 HEX 08,05,01,01 HEX 07,04,02,02 HEX 07,04,02,02 HEX 07,04,02,02 HEX 07,04,02,02 HEX 07,04,02,02 ; SKSXRV EQU $ HEX 80,80,80,80,80,80,80,80 HEX 80,80,80,80,00,00,00,00 HEX 00,00,00,00,FF,00,01,00 HEX FF,00,01,00,00,00,00,00 SKSYRV EQU $ HEX 0D,0D,0D,0D,0D,0D,0D,0D HEX 0D,0D,0D,0D,0D,0D,0D,0D HEX 0D,0C,0B,0A,0A,0A,0A,0A HEX 0A,0A,0A,0A,0A,0A,0A,0A ; SKSHOT EQU $ STZ ENNOCR,X JSR CREKEK ;; JSL >CRENPLL LDA ENTIM0,X BNE SKS010 INC ENSTAT,X LDA #40H STA ENTIM0,X RTS SKS010 EQU $ CMP #30H BNE SKS012 PHA JSR SKHEDST PLA SKS012 EQU $ LSR A LSR A ;; LSR A ;; LSR A ; ;; ASL A ;; ASL A AND #11111100B ORA ENMUKI,X TAY LDA SKSHPT,Y STA ENCHPT,X ; LDA ENTIM0,X LSR A LSR A TAY LDA SKSXRV,Y STA ENWRK1,X LDA SKSYRV,Y STA ENWRK2,X JMP SKW010 ;------------------------------------------------------ SKW2PT EQU $ HEX 06,03,01,01 ; SKWAI2 EQU $ STZ ENNOCR,X JSR CREKEK ;; JSL >CRENPLL LDA ENTIM0,X BNE SKW210 ; INC ENSTAT,X SKW210 EQU $ SKPTST EQU $ LDY ENMUKI,X LDA SKW2PT,Y STA ENCHPT,X ; JMP SKW010 ;------------------------------------------------------ SKUP EQU $ STZ ENCHPT,X LDA #02H STA ENKBMK,X ; LDA ENZPSL,X PHA JSR ENZCLC ; LDA ENZSPD,X CMP #40H BPL SKU010 ; INC A INC A STA ENZSPD,X SKU010 EQU $ PLA EOR ENZPSL,X BPL SKU030 ; LDA ENZPSL,X BMI SKU030 ; STZ ENMODE,X SKU030 EQU $ RTS ;------------------------------------------------------ SKFCDT EQU $ HEX 1,1,1,9,A,A,A,A HEX A,A,A,A,A,A,A,9 SKFYAD EQU $ HEX A,A,A,7,0,0,0,0 HEX 0,0,0,0,0,0,0,7 ; SKFAIL EQU $ STZ ENNOCR,X JSL >CRKNENL ; LDA ENTIM0,X BNE SKF010 DEC ENSTAT,X SKF010 EQU $ LSR A LSR A LSR A LSR A TAY LDA SKFCDT,Y STA ENCHPT,X LDA SKFYAD,Y STA ENWRK2,X RTS ;------------------------------------------------------ ;------------------------------------------------------ ;------------------------------------------------------ SKHEDST EQU $ LDA #SKHED JSL >ENIDSH BMI SHS080 ; JSL >ENIDPS ; LDA PSERCHL PLX LDA #0FFH STA ENTIM0,Y LDA #20H STA ENTIM1,Y SHS080 EQU $ RTS ;====================================================== ;====================================================== ;====================================================== ;====================================================== ;====================================================== ;====================================================== SKELTCD EQU $ ;0 WORD 00H,00H HEX 0A,00,00,02 WORD 00H,00H HEX 0A,00,00,02 ;1 WORD 00H,00H HEX 0C,00,00,02 WORD 00H,00H HEX 0C,00,00,02 ;2 WORD 00H,00H HEX 2C,00,00,02 WORD 00H,00H HEX 2C,00,00,02 ;3 WORD 05H,05H HEX 2E,00,00,00 WORD 00H,00H HEX 24,00,00,02 ;4 WORD 04H,01H HEX 3E,00,00,00 WORD 00H,00H HEX 24,00,00,02 ;5 WORD 00H,00H HEX 0E,00,00,02 WORD 00H,00H HEX 0E,00,00,02 ;6 WORD 03H,05H HEX 2E,40,00,00 WORD 00H,00H HEX 24,40,00,02 ;7 WORD 04H,01H HEX 3E,40,00,00 WORD 00H,00H HEX 24,40,00,02 ;8 WORD 00H,00H HEX 0E,40,00,02 WORD 00H,00H HEX 0E,40,00,02 ;9 WORD 00H,00H HEX 2A,00,00,02 WORD 00H,00H HEX 2A,00,00,02 ;A WORD 00H,00H HEX 2A,00,00,02 WORD 00H,00H HEX 2A,00,00,02 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - ;;0 ; WORD 00H,00H ; HEX 8C,00,00,02 ; WORD 00H,00H ; HEX 8C,00,00,02 ;;1 ; WORD 00H,00H ; HEX A0,00,00,02 ; WORD 00H,00H ; HEX A0,00,00,02 ;;2 ; WORD 00H,00H ; HEX AA,00,00,02 ; WORD 00H,00H ; HEX AA,00,00,02 ;;3 ; WORD 05H,05H ; HEX AC,00,00,00 ; WORD 00H,00H ; HEX A4,00,00,02 ;;4 ; WORD 04H,01H ; HEX BC,00,00,00 ; WORD 00H,00H ; HEX A4,00,00,02 ;;5 ; WORD 00H,00H ; HEX A2,00,00,02 ; WORD 00H,00H ; HEX A2,00,00,02 ;;6 ; WORD 03H,05H ; HEX AC,40,00,00 ; WORD 00H,00H ; HEX A4,40,00,02 ;;7 ; WORD 04H,01H ; HEX BC,40,00,00 ; WORD 00H,00H ; HEX A4,40,00,02 ;;8 ; WORD 00H,00H ; HEX A2,40,00,02 ; WORD 00H,00H ; HEX A2,40,00,02 ;;9 ; WORD 00H,00H ; HEX A6,00,00,02 ; WORD 00H,00H ; HEX A6,00,00,02 ;;A ; WORD 00H,00H ; HEX A8,00,00,02 ; WORD 00H,00H ; HEX A8,00,00,02 ;;- - - - - - - - - - - - - - - - - - - - - - - - - - - - SKELTCS EQU $ LDA #00H XBA LDA ENCHPT,X MEM16 REP #00100000B ASL A ASL A ASL A ; ASL A ADC #SKELTCD STA SETOAML22 JSR SETO22 ; MEM16 REP #00100000B LDA SADWSTL SKC099 EQU $ RTS ;======================== SKHDCD EQU $ BYTE 002H,002H,000H,004H ;; BYTE 082H,082H,080H,084H SKHDAD EQU $ BYTE 040H,000H,000H,000H ;- - - - - - - - - - - - - - - - - - - - - - - - SKHEDCS EQU $ LDA ENCHPT,X CMP #0AH BEQ SHC090 ; Hed nashi ? ; ; no LDA ENWRK1,X ; X hosei ! STZ ENIDSH ; BMI HYS010 ;; ; JSL >ENIDPS ; LDA SDLRCE ; ORA #05H ; STA SOUND3 ;(S) ;; ; PHX ; LDA ENMUKI,X ; TAX ; LDA YACRDT,X ; STA ENMOD3,Y ; LDA YASTXS,X ; STA ENXSPD,Y ; LDA YASTYS,X ; STA ENYSPD,Y ; PLX ;HYS010 EQU $ ; RTS ; MDTXSD EQU $ ;;;; 0 1 2 3 4 5 6 7 8 9 A HEX 0,10,F0,00,00,0D,F3,00,00,0D,F3 HEX 0,0,0,0,0 HEX 0,E8,18,00,00,F0,10,00,00,F0,10 HEX 0,0,0,0,0 MDTYSD EQU $ HEX 0,00,00,00,F0,FB,FB,00,10,0D,0D HEX 0,0,0,0,0 HEX 0,00,00,00,E8,F0,F0,00,18,10,10 HEX 0,0,0,0,0 MDTEST EQU $ HEX 0,00,01,00,03,03,03,00,02,02,02 HEX 0,0,0,0,0 HEX 0,01,00,00,03,03,03,00,02,02,02 HEX 0,0,0,0,0 ; CPMVPT EQU $ HEX 8,6,0,3 HEX 9,7,1,4 HEX 8,6,0,3 HEX 9,7,2,5 ; ; HEX 8,9,8,9 ; HEX 6,7,6,7 ; HEX 0,1,2,1 ; HEX 3,4,5,4 ; MDT050 EQU $ STZ ENWRK0,X ;;; STZ ENCHPT,X JSR CREKEK JSR ENBGCK RTS MEDAMMV EQU $ MEDA2MV EQU $ ; Red ! ;========= Action test ===== 7/19 ====== ; LDA ERXYCT ; CMP #01BH ; BEQ MTEF0 ; CMP #04BH ; BEQ MTEF0 ; CMP #06BH ; BEQ MTEF0 ; LDA ENWRK1,X BNE MTEF0 ; Normal ? ; ; yes ! JMP MT0000 ;--- Copy dammys -- MTEF0 EQU $ ;; CPX #00H ;; BNE MTE000 ;; LDA #00000111B ;; STA ENCLOR,X ;;MTE000 EQU $ ;; JSR MEDAMCS JSL >COPYCS ; JSR ENSTCK JSR ENHNSB ; LDA ENTIM1,X BEQ MTE001 CMP #08H BNE MTE001 ; ;; JSR HYAASET JSL >TKTAMST MTE001 EQU $ LDA HANIFG1 CMP #00H BNE MDT050 ; LDY ENMYNO,X ; LDA ENBGCKL JSR ENBGCK ; ;; INC ENCONT,X ;; LDA ENCONT,X ;; AND #00001100B ;; ORA ENMUKI,X ;; TAY ;; LDA MDWKPT,Y ;; STA ENCHPT,X INC ENCONT,X LDA ENCONT,X AND #00001100B ORA ENMUKI,X TAY LDA CPMVPT,Y STA ENCHPT,X ; ;; CPX #00H ;; BNE MTE900 LDA ENMYNO,X CMP #MEDA2 BNE MTE900 ; Ya shot ? ; ; yes ! JSR EPXYCK LDA JSRSUB WORD MDSTOP WORD MDWKWT WORD MDWALK WORD MDWKW2 ;----------------------------------------------------- MDMVTM EQU $ HEX 60,80,A0,80 ; MDSTOP EQU $ LDA ENTIM0,X BNE MDS090 ; JSR EPXYCK LDA RNDSET AND #03H TAY LDA MDMVTM,Y STA ENTIM0,X RTS ; MDWW10 EQU $ LSR A LSR A LSR A TAY LDA MDWWPT,Y STA ENCHPT,X RTS ;----------------------------------------- ;MDWXSD EQU $ ; HEX 10,F0 ;,00,00 ;MDWYSD EQU $ ; HEX 00,00,10,F0 MDWKPT EQU $ HEX 07,05,02,09 HEX 08,06,03,0A HEX 07,05,02,09 HEX 08,06,04,0B ;- - - - - - - - - - - - - - - - MDWALK EQU $ LDA ENMOD2,X AND #10111111B STA ENMOD2,X ; LDA ENMYNO,X CMP #MEDA2 BEQ MDW000 ; High power ? ; ; no LDA ENMOD5,X ; ken damege on ! AND #11111011B STA ENMOD5,X ; MDW000 EQU $ ;; JSL >CRENPLL ;; JSL >CRKNENL ; ;; STZ ENNOCR,X ; LDA ENTIM0,X BNE MDW010 ; LDA #3FH STA ENTIM0,X INC ENSTAT,X STZ ENCHPT,X RTS ; MDW010 EQU $ TXA EOR ENBGCKL JSR ENBGCK ; INC ENCONT,X LDA ENCONT,X AND #00001100B ORA ENMUKI,X TAY LDA MDWKPT,Y STA ENCHPT,X RTS ;------------------------------------------ MDW2PT EQU $ HEX 0,0,1,1,2,2,2,2 ; MDWKW2 EQU $ LDA ENTIM0,X BNE MDW210 ; STZ ENSTAT,X LDA #60H STA ENTIM0,X RTS ; MDW210 EQU $ LSR A LSR A LSR A TAY LDA MDW2PT,Y STA ENCHPT,X RTS ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;; LDA SETOAML22 JSR SETO22 ; LDA ENDSPL,X BNE MDC090 ; LDA #0EH JSL >SADWS2L MDC090 EQU $ RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Spin many babul move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% BBITXL EQU $ HEX 0A,14,0A BBITXH EQU $ HEX 00,00,00 BBITYL EQU $ HEX F6,00,0A BBITYH EQU $ HEX FF,00,00 BBITXS EQU $ HEX 12,00,EE BBITW0 EQU $ HEX 01,01,00 BBITYS EQU $ HEX 00,12,00 BBITW1 EQU $ HEX 00,01,01 ;========================================================= BABU2IT EQU $ LDA ENXPSL,X SEC SBC #0AH STA ENXPSL,X LDA ENXPSH,X SBC #00H STA ENXPSH,X ; LDA #0EEH STA ENYSPD,X LDA #00H STA ENXSPD,X LDA #00H STA ENWRK0,X LDA #00H STA ENWRK1,X ; LDA #02H STA ENHELP ; BBI010 EQU $ LDA #BABU2 JSL >ENIDSH BMI BBI090 ; PHX LDX ENHELP LDA BBITXL,X STA ENXPSL,Y LDA BBITXH,X STA ENXPSH,Y LDA BBITYL,X STA ENYPSL,Y LDA BBITYH,X STA ENYPSH,Y ; LDA >BBITXS,X STA ENXSPD,Y LDA >BBITYS,X STA ENYSPD,Y LDA >BBITW0,X STA ENWRK0,Y LDA >BBITW1,X STA ENWRK1,Y PLX BBI090 EQU $ DEC ENHELP BPL BBI010 ; RTL ;========================================================= BBLPTD EQU $ HEX 0,1,0,1 BBLADT EQU $ HEX 00,00,40,40 BBXSAD EQU $ BBYSAD EQU $ HEX 01,FF BBXSLM EQU $ BBYSLM EQU $ HEX 12,EE ; BABU2MV EQU $ ;; JSL >EN1CSTL JSL >BABULCSL ; JSR ENSTCK ; ;; INC ENCONT,X ;; LDA ENCONT,X ;; LSR A ;; AND #03H ;; TAY ;; LDA BBLPTD,Y ;; STA ENCHPT,X ;; LDA ENCLOR,X ;; AND #10111111B ;; ORA BBLADT,Y ;; STA ENCLOR,X ; ;; LDA ENCONT,X ;; AND #00H ;; BNE BB2020 ; LDA ENWRK0,X AND #01H TAY LDA ENXSPD,X CLC ADC BBXSAD,Y STA ENXSPD,X CMP BBXSLM,Y BNE BB2010 INC ENWRK0,X BB2010 EQU $ LDA ENWRK1,X AND #01H TAY LDA ENYSPD,X CLC ADC BBYSAD,Y STA ENYSPD,X CMP BBYSLM,Y BNE BB2020 INC ENWRK1,X BB2020 EQU $ JSR ENMVCL ; LDA ENXSPD,X BEQ BB2030 LDA ENYSPD,X BEQ BB2030 ; ;; LDA EFLCHK2 BCC BB2030 ; All enemy clear ? ; ; yes ! bunshin ! LDA #BABUL STA ENMYNO,X ; LDA #010H LDY ENXSPD,X BPL BB2023 LDA #0F0H BB2023 EQU $ STA ENXSPD,X ; LDA #010H LDY ENYSPD,X BPL BB2025 LDA #0F0H BB2025 EQU $ STA ENYSPD,X BB2030 EQU $ JSR CRENPL RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Amenbo move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% AMENBMV EQU $ LDA ENFLCL,X ORA #00110000B STA ENFLCL,X ;Mujyoken BG yusen !! (for water ) ; JSL >EN1CSTL ; JSR ENSTCK LDA ENHNFG,X BEQ AMB000 ; STZ ENSTAT,X AMB000 EQU $ JSR ENHNSB ; ;; JSL >CRKNENL ;; JSL >CRENPLL JSR CREKEK ; LDA ENCBFG,X BNE AM0010 ; JSR ENMVCL AM0010 EQU $ ;; JSL >ENBGCKL JSR ENBGCK ; ;; LDA ENZPSL,X ;; BNE AM0010 ;;; ;; STZ ENWRK0,X ;;; ;; LDA UNITNO ;; CMP #08H ;; BEQ AM0010 ; MIZU IN ? ;; CMP #09H ;; BEQ AM0010 ; MIZU IN ? ;;; ;; INC ENWRK0,X ; No ! ;;AM0010 EQU $ INC ENCONT,X ; LDA ENCONT,X LSR A LSR A LSR A AND #02H STA ENCHPT,X ; LDA ENSTAT,X JSL >JSRSUB WORD AM0100 WORD AM0200 ;- - - - - - - - - - - - - - - - - - AMMKDT EQU $ HEX 40,00,40,00 ; AM0100 EQU $ LDA ENTIM0,X BNE AM0110 ; INC ENSTAT,X JSR EPXCHK STY RNDSET AND #0FH ADC #0CH ;; LDA #18H STA ENTIM0,X ; JSR ENSDCL AM0110 EQU $ RTS ;- - - - - - - - - - - - - - - - - - AMXSAD EQU $ HEX 01,FF,01,FF AMYSAD EQU $ HEX 01,01,FF,FF AMXSA2 EQU $ HEX FF,01,FF,01 AMYSA2 EQU $ HEX FF,FF,01,01 ;------------- AM0200 EQU $ LDA ENTIM0,X BEQ AM0220 ; LDY ENMUKI,X LDA ENXSPD,X CLC ADC AMXSAD,Y STA ENXSPD,X LDA ENYSPD,X CLC ADC AMYSAD,Y STA ENYSPD,X ; LDA ENCONT,X LSR A LSR A LSR A AND #01H STA ENCHPT,X RTS ;- - - AM0220 EQU $ LDY ENMUKI,X LDA ENXSPD,X CLC ADC AMXSA2,Y STA ENXSPD,X LDA ENYSPD,X CLC ADC AMYSA2,Y STA ENYSPD,X BNE AM0230 ; STZ ENSTAT,X ; LDA #40H STA ENTIM0,X AM0230 EQU $ RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% POLIW move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% POLIWSP EQU $ ; BYTE 24,25,26,27,28,29,30,31 ; BYTE 32,31,29,28,27,26,25,24 ; ;=============== Color datas =========================================== CLRDT00 EQU $ WORD 00000H WORD 048A5H WORD 054E7H WORD 06529H WORD 06D6BH WORD 07DADH WORD 07E31H WORD 07E94H ; CLRDT01 EQU $ ;---------------------------------------- POLIWCG EQU $ LDA #033H ;OBJ KASAN TEST STA CCNGCT STA >CCNGFG PHX JSL >PWTRCGS2 JSL >MGMCGRS2 PLX ; MEM16 ;COLOR SET IDX8 REP #00100000B ; LDA >CLRDT00+000H STA >CGWORK+0E0H+000H LDA >CLRDT00+002H STA >CGWORK+0E0H+002H LDA >CLRDT00+004H STA >CGWORK+0E0H+004H LDA >CLRDT00+006H STA >CGWORK+0E0H+006H LDA >CLRDT00+008H STA >CGWORK+0E0H+008H LDA >CLRDT00+00AH STA >CGWORK+0E0H+00AH LDA >CLRDT00+00CH STA >CGWORK+0E0H+00CH LDA >CLRDT00+00EH STA >CGWORK+0E0H+00EH ; MEM8 IDX8 SEP #00110000B ; INC ENIDSH ; LDA BMCLER ;PL. CLYSTAL CLS STZ !ITMVFG TYA PLY STA ENWRK0,Y ; LDA DJNNO CMP #018H BNE PLWST10 LDA #009H STA ENCLOR,Y LDA #prnce BRA PLWST20 PLWST10 EQU $ LDA #prnc1 PLWST20 EQU $ STA >OPMODE PHX JSL >OPTCBFST PLX LDA #nashi STA >OPMODE ; STZ B1MFLG ; MEM16 IDX8 REP #00100000B ; LDA HELP0CS PLWMV30 EQU $ ; ;; JSR ENMVCL ;xclc,yclc ; LDA #001H ;POLYGON WRITE FLG(MAIN) STA POLYCFG ; LDA polygon_flag BNE POLIW10 ;? POLIW MOVE OK ; ;Y JSR POLIWMN ;POLYGON MAIN ; LDA #001H ;POLYGON WRITE ON STA polygon_flag ; POLIW10 EQU $ RTS ;---------------------------------------- POLIWMN EQU $ INC ENWRK3,X ;JSRSUB WORD POLIWM0 ;INIT WORD POLIW01 ;UP WORD POLIWM1 ;UP WORD POLIWM2 ;F IN INIT WORD POLIWM3 ;F IN WORD POLIWM4 ;MSGE WORD POLIWM5 ;MSGE YES OR NO WORD POLIWM6 ;MSGE WORD POLIWM7 ;LIFE UP END ;---------------------------------------- POLIWM0 EQU $ STZ PGKRITL PLX POLM030 EQU $ ; ; LDA ENWRK3,X ;MGMCGCNG ;F IN PLX ; LDA >CCNGCT BNE PLWM310 ;? F IN END INC ENSTAT,X Y ; LDA #001H STA PYALSP STZ ATMTFG STZ ATMTHK STZ MODTBL2 CMP #007H BCS PLWM410 LDA #007H STA >MODTBL2 ; LDA #02DH ;OTO ; JSL >SDLRE3 PLWM410 EQU $ CPY #00EH BNE PLWM420 ; LDA #02DH ;OTO ; JSL >SDLRE3 LDA >ITMTBL3 AND #07FH CMP #07FH BEQ PLWM420 LDY #010H PLWM420 EQU $ LDA PLWM4MD,Y XBA LDA PLWM4MD+1,Y TAY XBA JSL >ENMSGSL ;MSGE SET INC ENSTAT,X ; LDA >ITMTBL3 AND #07FH CMP #07FH BNE PLWM430 LDA #008H STA >MODTBL2 PLWM430 EQU $ RTS ;---------------------------------------- POLIWM5 EQU $ LDA #LOW MS_04C8 ;MSGE NO LDY #HIGH MS_04C8 ;MSGE NO JSL >ENMSGSL ;MSGE SET INC ENSTAT,X RTS ;---------------------------------------- POLIWM6 EQU $ LDA MSG_RTS BEQ PLWM610 ; LDA #005H STA ENSTAT,X RTS ; PLWM610 EQU $ LDA #LOW MS_04C7 ;MSGE NO LDY #HIGH MS_04C7 ;MSGE NO JSL >ENMSGSL ;MSGE SET INC ENSTAT,X RTS ;---------------------------------------- POLIWM7 EQU $ STZ DJEXTCK PLX STZ ENMODE,X ;KILL I RTS ;---------------------------------------- ;;;;;POLIWCN EQU 000H ;;;;;; ;;;;;POLIWCD EQU $ ;;;;; WORD 00000H,00000H ;;;;; BYTE 000H+POLIWCN,001H,000H,002H ;;;;; WORD 00010H,00000H ;;;;; BYTE 002H+POLIWCN,001H,000H,002H ;;;;; WORD 00020H,00000H ;;;;; BYTE 004H+POLIWCN,001H,000H,002H ;;;;; WORD 00030H,00000H ;;;;; BYTE 006H+POLIWCN,001H,000H,002H ;;;;;; ;;;;; WORD 00000H,00010H ;;;;; BYTE 020H+POLIWCN,001H,000H,002H ;;;;; WORD 00010H,00010H ;;;;; BYTE 022H+POLIWCN,001H,000H,002H ;;;;; WORD 00020H,00010H ;;;;; BYTE 024H+POLIWCN,001H,000H,002H ;;;;; WORD 00030H,00010H ;;;;; BYTE 026H+POLIWCN,001H,000H,002H ;;;;;; ;;;;; WORD 00000H,00020H ;;;;; BYTE 008H+POLIWCN,001H,000H,002H ;;;;; WORD 00010H,00020H ;;;;; BYTE 00AH+POLIWCN,001H,000H,002H ;;;;; WORD 00020H,00020H ;;;;; BYTE 00CH+POLIWCN,001H,000H,002H ;;;;; WORD 00030H,00020H ;;;;; BYTE 00EH+POLIWCN,001H,000H,002H ;;;;;; ;;;;; WORD 00000H,00030H ;;;;; BYTE 028H+POLIWCN,001H,000H,002H ;;;;; WORD 00010H,00030H ;;;;; BYTE 02AH+POLIWCN,001H,000H,002H ;;;;; WORD 00020H,00030H ;;;;; BYTE 02CH+POLIWCN,001H,000H,002H ;;;;; WORD 00030H,00030H ;;;;; BYTE 02EH+POLIWCN,001H,000H,002H ;;;;;; ;;;;;POLIWCS EQU $ ;;;;; LDA #LOW POLIWCD ;;;;; STA SETOAML22 ;;;;;; ;;;;; RTS ;---------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% TRAP move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TRAP0MV EQU $ JSR TRAP0CS JSR ENSTCK JSR CREKEK ;; JSL >CRKNENL ;; JSL >CRENPLL ; LDA ENSTAT,X BNE TRP100 ; JSR EPXYCK TYA STA ENMUKI,X LDA ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK BNE TRP108 ; LDA ENTIM0,X BNE TRP110 ; TRP108 EQU $ INC ENSTAT,X LDA #60H STA ENTIM0,X TRP110 EQU $ JSR ENMVCL RTS ;--------------------------------------- TRP200 EQU $ LDA ENTIM0,X BNE TRP210 ; LDY ENMUKI,X LDA TRATXS+4,Y STA ENXSPD,X LDA TRATYS+4,Y STA ENYSPD,X ; JSR ENMVCL ; LDA ENXPSL,X CMP ENWRK0,X BNE TRP210 LDA ENYPSL,X CMP ENWRK2,X BNE TRP210 ; STZ ENSTAT,X TRP210 EQU $ RTS ;========================================== TRAP0CD EQU $ WORD 0FFF8H,0FFF8H HEX C4,00,00,02 WORD 00008H,0FFF8H HEX C4,40,00,02 WORD 0FFF8H,00008H HEX C4,80,00,02 WORD 00008H,00008H HEX C4,C0,00,02 ; TRAP0CS EQU $ MEM16 REP #00100000B ; LDA #TRAP0CD ;TFR ADD STA SETOAML2 RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% BAAR move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% BRMVAL EQU $ HEX FE,02 HEX FF,01 BRMVAH EQU $ HEX FF,00 HEX FF,00 ; - - - - - - - - - - - - - - - - - - - - BAAR0MV EQU $ BAAR1MV EQU $ JSR BAARCS JSR ENSTCK ; INC ENCONT,X ; LDA ENMYNO,X SEC SBC #BAAR0 TAY LDA DJNNO CMP #12H BNE BRM010 ; Ice danjyon ? INY ; yes low speed ! INY BRM010 EQU $ LDA ENWRK0,X CLC ADC BRMVAL,Y STA ENWRK0,X LDA ENWRK1,X ADC BRMVAH,Y AND #01H STA ENWRK1,X ; RTS ;- - - - - - - - - - - - - - BAARCS EQU $ JSR OAMCHK LDA SINDT2,X STA SINDT2,X STA ALOMCKL ; TXA EOR PLFLSTL PLY BRCR10 EQU $ INY INY INY INY CPY #04H*4 BCC BRCR00 ; ; LDY #00H ;BRCR00 EQU $ ; LDA #00H ; XBA ; LDA (PLFLSTL ; PLY ;BRCR10 EQU $ ; MEM8 ; SEP #00100000B ; INY ; INY ; INY ; CPY #04H*4 ; BCC BRCR00 ;; BRCR80 EQU $ RTS ;- - - - TKBYDT EQU $ HEX 40,80,C0 ;; HEX 00,40,80,C0 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Hebi tama move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HBATDT EQU $ HEX 00,40,80,C0 ; HBTAMMV EQU $ JSL >EN1CSTL JSR ENSTCK ; JSR ENHNSB ; LDA CRENPLL ;; JSL >CRKNENL JSR HBTAMST ; Zanzoo set ! ; ;; LDA ENSTAT,X ;; BNE HBT120 ;;; ;; LDA ENTIM0,X ;; BNE HBT110 ;;;; JSL >RNDSET ;;;; AND #01H ;;;; TAY ;;;; LDA HBTTIM,Y ;; LDA #0FFH ;; STA ENTIM0,X ;; INC ENSTAT,X ;; JSL >RNDSET ;; AND #03H ;; TAY ;; LDA HBTXSD,Y ;; STA ENXSPD,X ;; LDA HBTYSD,Y ;; STA ENYSPD,X ;;HBT110 EQU $ ;; RTS ;;;- - - - - - - - - - - - - - ;;HBT120 EQU $ ;; LDA ENTIM0,X ;; BNE HBT122 ;;; ;; LDA #20H ;; STA ENTIM0,X ;;HBT121 EQU $ ;; STZ ENSTAT,X ;; RTS ;;;- - - ;;HBT122 EQU $ LDA ENCBFG,X BNE HBT123 ; JSR ENMVCL HBT123 EQU $ ;; JSL >ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK BEQ HBT124 ; ;; STZ ENSTAT,X ;; STZ ENTIM0,X JSL >RNDSET LSR A LDA ENMUKI,X ROL A TAY LDA HBNXMK,Y STA ENMUKI,X HBT124 EQU $ LDY ENMUKI,X LDA HBTXSD,Y STA ENXSPD,X LDA HBTYSD,Y STA ENYSPD,X RTS ;============================================ HBTAMST EQU $ TXA EOR E2MODE,X BEQ HBS020 DEX BPL HBS010 PLX RTS ;- - - - - - - - - - - -- - - - - - - - - - HBS020 EQU $ LDA #01H STA >E2MODE,X STA EN2FLG ; LDA ENXPSL,Y STA >E2XPSL,X LDA ENXPSH,Y STA >E2XPSH,X LDA ENYPSL,Y CLC ADC #10H STA >E2YPSL,X LDA ENYPSH,Y ADC #00H STA >E2YPSH,X ; LDA #20H STA >E2TIM0,X ; ;; LDA ENCLOR,Y ;; EOR ENFLCL TYA STA >E2STAT,X ; LDA ENKAIF,Y STA >E2WRK0,X ; PLX HTS020 EQU $ RTS ; ;; LDA #HBTAM ;; JSL >ENIDSH ;; BMI HTS020 ;;; ;; LDA EN1CSTL ;; INC ENMOD0,X ; JSR ENSTCK JSR ENHNSB ; JSR CREKEK ;; JSL >CRENPLL ;; JSL >CRKNENL ;;; ;; LDA ENMOD2,X ;; ORA #01000000B ;; STA ENMOD2,X ;;; ;; INC ENCONT,X ; STZ ENWRK0,X ; JSR EPXYCK LDA TLMKCK,Y CMP PLMKCH BEQ TLM008 ;- - - Player serch - - - TXA EOR PSERCHL ; JSR EPXCHK TYA STA ENMUKI,X TLM005 EQU $ JSR ENMVCL ; ;; LDA ENWRK0,X ;; CMP #03H ;; BCS TLM001 ;;; ;; LDA ENCONT,X ;; LSR A ;; LSR A ;; AND #03H ;; TAY ;; LDA TLCHPT,Y ;; STA ENWRK0,X ;; RTS ;;TLM001 EQU $ ;; LDA ENCONT,X ;; AND #03H ;; BNE TLM003 ;;; ;; DEC ENWRK0,X ;;TLM003 EQU $ RTS ;- - - - - - - - - - - - - - - - - - - - ;- - - Mukai awase - - - TLM008 EQU $ INC ENWRK0,X ; TXA EOR PSERCHL ; JSR EPXCHK TYA STA ENMUKI,X TLM056 EQU $ JSR ENMVCL TLM057 EQU $ ;; LDA ENWRK0,X ;; CMP #0EH ;; BEQ TLM010 ;;; ;; LDA ENCONT,X ;; AND #07H ;; BNE TLM00C ;;; ;; INC ENWRK0,X ;;TLM00C EQU $ ;; RTS ;;TLM010 EQU $ ;; LDA ENMOD2,X ;; AND #10111111B ;; STA ENMOD2,X RTS ;;======================================== ;TLEXAD EQU $ ; HEX 8,0 ;TLEYEST EQU $ ; JSR OAMCHK ;; ; PHX ; LDA ENMUKI,X ; PHA ; ASL A ; TAX ; MEM16 ; REP #20H ; LDA JSRSUB ;--- First room --- WORD SHINIT ;0 WORD SHSET ;1 WORD SHUP ;2 WORD SHATCK ;3 WORD SHDOWN ;4 WORD SHMOVE ;5 ;----Last room ------------ WORD S2SET ;6 WORD S2WAI1 ;7 WORD S2FAIL ;8 WORD S2FAI2 ;9 ; WORD SHSPIN ;A ;---------------------------------------------------- SHSPPT EQU $ HEX 0,8,A,2,2,6,4 ;; HEX 0,8,A,2,2,2,6,4 ; SHSPIN EQU $ LDA ENTIM0,X BNE SHSP10 ; PHX STZ ENMODE,X JSL >DJEXTCK PLX SHSP10 EQU $ ;; LSR A ;; LSR A ;; AND #07H ;; TAY LDA ENTIM0,X CMP #10H BCS SHSP12 ; LDA #7FH STA MGMCGCNG ; Fade on out ! PLX SHSP12 EQU $ LDA ENTIM0,X AND #00H BNE SHSP18 ; LDA ENZSPD,X CMP #0FFH BEQ SHSP18 CLC ADC #01H STA ENZSPD,X SHSP18 EQU $ ; LDA ENZSDR,X CLC ADC ENZSPD,X STA ENZSDR,X BCC SHSP20 ; INC ENCONT,X LDA ENCONT,X CMP #07H BNE SHSP20 ; STZ ENCONT,X ; LDA #04H JSL >SDLRE2 ;(S) SHSP20 EQU $ LDY ENCONT,X LDA SHSPPT,Y STA ENCHPT,X RTS ;---------------------------------------------------- S2FAIL EQU $ LDA #02H STA BSFLFG ; STZ ENCMKI,X ; Beam clear ! ; LDA ENTIM0,X CMP #40H BCC S2F010 ; LDA ENFLSH,X ORA #0E0H STA ENFLSH,X RTS ; S2F010 EQU $ CMP #01H BNE S2F020 ; JSL >GANSPST ; Ganon spook set ! ; ;; JSL >SDLRCE LDA #1DH STA SOUND0 ;(S) ; S2F020 EQU $ STZ ENFLSH,X ; LDA #011H ; Taore ! STA ENCHPT,X RTS ;---------------------------------------------------- S2FAI2 EQU $ ; Back master body ! STZ ENCMKI,X ; Beam clear ! ; LDA ENXPSL STA ESERCHL LDA SHBUNST RTS ;---------------------------------------------------- S2SET EQU $ LDA ENTIM0,X BNE S2S010 ; LDA #MS_04D4 STA MSGENOL LDA #HIGH MS_04D4 STA MSGENOH JSL >MSGSET ; INC ENSTAT,X ; LDA #50H STA ENTIM0,X S2S010 EQU $ RTS ;------------------------------------------ S2BUNXS EQU $ HEX 20,E0 ; S2WAI1 EQU $ LDA ENCTFG,X BEQ S2W100 ; LDA ENTIM0,X BNE S2W1E0 ; JMP SHATST S2W1E0 EQU $ LDA S2BUNXS-1,X STA ENXSPD,X ;; LDA #20H ;; STA ENYSPD,X LDA ENYSPD,X CLC ADC #02H STA ENYSPD,X ; JSR ENMVCL JSL >SHBUNST BMI S2W1E8 ; LDA #00000100B STA ENCLOR,Y S2W1E8 EQU $ RTS ;- - - - - - - - - - - - - - - - - - - - S2CLDT EQU $ HEX 09,0B ; S2W100 EQU $ LDA ENTIM0,X BNE S2W108 ; JMP SHATST S2W108 EQU $ CMP #40H BNE S2W1A0 ; LDA #28H STA SOUND3 ;(S) ; LDA #01H STA ENHELP S2W110 EQU $ LDA #SHSAI LDY #02H JSL >ENIDSH2 ; JSL >ENIDPS ; LDA S2CLDT-1,Y ;; LDA #01001011B STA ENMOD2,Y AND #0FH STA ENCLOR,Y STA ENCTFG,Y ; LDA ENSTAT,X STA ENSTAT,Y ; LDA #20H STA ENTIM0,Y ; DEC ENHELP BPL S2W110 S2W1A0 EQU $ RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% SHITMD EQU $ HEX 01,06 ; SHINIT EQU $ ;; PHX ;; JSL >MGMCGRS2 ; CG initial ! ;; PLX ;; LDA #01H ; LDY URAFLG LDA SHITMD,Y STA ENSTAT,X RTS ;---------------------------------------------------- SHSET EQU $ LDA ENTIM0,X BNE SHS010 ; LDA #MS_04D2 STA MSGENOL LDA #HIGH MS_04D2 STA MSGENOH JSL >MSGSET ; SHATST EQU $ LDA #03H STA ENSTAT,X LDA #20H STA ENTIM0,X RTS ;; PHX ;; JSL >MGMCGRS2 ; CG initial ! ;; PLX ; UPSET EQU $ LDA #02H STA ENSTAT,X ; LDA #27H STA ENTIM0,X SHS010 EQU $ RTS ;-------------------------------------------- SHUCDT EQU $ HEX 0C,0D,0E,0F,10 ; SHUP EQU $ STZ E2STCT ; LDA ENTIM0,X BNE SHU010 INC ENSTAT,X LDA #0FFH STA ENTIM0,X RTS ;- - - - - - - - - - - - - - - - - - - - - SHU010 EQU $ LSR A LSR A LSR A ;; LSR A TAY LDA SHUCDT,Y STA ENCHPT,X RTS ;---------------------------------------------- SHACDT EQU $ HEX 00,00,00,00,00,00,00,01,01,01,01,01,01,01,00,00 ;; HEX 00,00,01,01,01,01,01,00 SHAFPT EQU $ HEX 00,00,00,00,00,00,00,06,05,04,03,02,01,00,00,00 ;; HEX 00,06,05,04,03,02,01,00 SHAFAD EQU $ BYTE 05*6 BYTE 04*6 BYTE 02*6 BYTE 00*6 BYTE 01*6 BYTE 03*6 ; SHATCK EQU $ ;;; STZ ENNOCR,X LDA ENTIM0,X CMP #0C0H BNE SHSDST PHA ;; JSL >SDLRCE ;; ORA #27H ;; STA SOUND3 ;(S) LDA #27H JSL >SDLRE3 ;(S) PLA SHSDST EQU $ CMP #0EFH BCS SHCGST CMP #10H BCS SHATFF ; SHCGST EQU $ ;; CPX #00H ;; BNE SHCG10 ; PHX LDA URAFLG BNE SHCG00 LDX #02H SHCG00 EQU $ ;; JSL >MGMCGCNG ; Fade on out ! JSL >SHSCGCNG PLX ; SHCG10 EQU $ BRA SHATFE SHATFF EQU $ TXA BNE SHATFE ; JSR CREKEK STZ ENNOCR,X ;; JSL >CRENPLL ;; JSL >CRKNENL SHATFE EQU $ ; LDA ENTIM0,X BNE SHA010 INC ENSTAT,X LDA #27H STA ENTIM0,X RTS SHA010 EQU $ CMP #80H BCC SHA011 ; PHA LDA #02H JSL >PSERCHL LDY PSERCHL ; Beam speed set ! ; LDA HEMODE,X CMP #SBCT-1 BNE SHA00F ; Beam laser atack time ? ; ; yes ! LDA #03H STA ENMUKI,X ; Shita muki kotei ! SHA00F EQU $ PLA SHA011 EQU $ CMP #70H BNE SHA012 PHA JSR SHTAMST PLA SHA012 EQU $ LSR A LSR A LSR A LSR A TAY LDA SHACDT,Y STA ENWRK0,X ; LDA SHAFPT,Y BEQ SHA030 CLC LDY ENMUKI,X ADC SHAFAD,Y SHA030 EQU $ STA ENCMKI,X ; LDY ENMUKI,X LDA SHCHPT,Y CLC ADC ENWRK0,X STA ENCHPT,X ; RTS ;-------------------------------------------- SHDCDT EQU $ HEX 10,0F,0E,0D,0C SHMXPL EQU $ HEX 38,38,38,58,78,98 HEX B8,B8,B8,98,58,58,60,90,98,78 SHMYPL EQU $ HEX B8,78,58,48,48,48 HEX 58,78,B8,B8,B8,90,70,70,90,A0 ; SHDOWN EQU $ LDA ENTIM0,X STA ENNOCR,X BNE SHD010 INC ENSTAT,X ;; STZ ENSTAT,X ;; LDA #040H ;; STA ENTIM0,X ; LDY #04H LDA HEMODE,X CMP #SBCT-1 BEQ SHD001 ; Beam laser ? -> Kotei pos. ; JSL >RNDSET AND #0FH TAY SHD001 EQU $ LDA SHMXPL,Y STA ENWRK2,X LDA SHMYPL,Y STA ENWRK3,X ; LDA #08H STA ENCTCT,X RTS SHD010 EQU $ LSR A LSR A LSR A ;; LSR A TAY LDA SHDCDT,Y STA ENCHPT,X RTS ;------------------------------------------------ SHTSXL EQU $ HEX 00,0A,08,00,F6,F6 SHTSXH EQU $ HEX 00,00,00,00,FF,FF SHTSYL EQU $ HEX F7,FE,FE,F7,FE,FE ;;SHTSYH EQU $ ;; HEX FF,FF,FF,FF,FF,FF SHTAMST EQU $ CPX #00H ;; LDA URAFLG BNE SHTSF0 INC HEMODE,X ; LDA URAFLG BEQ SHTSF0 ; Ura ? ; ; yes ! LDA HEMODE,X AND #03H STA HEMODE,X ; Not laser ! SHTSF0 EQU $ LDA HEMODE,X CMP #SBCT BNE SHTS00 ; Beam laser ? ; ; yes ! STZ HEMODE,X ; ;; JSL >EYEBMST ;; JSL >SDLRCE ;; ORA #26H ;; STA SOUND3 ;(S) LDA #26H JSL >SDLRE3 ;(S) ; JSR SHBMST SHBMST EQU $ JSL >EYEBMST JSL >EYEBMST RTS SHTS00 EQU $ LDA #SHTAM JSL >ENIDSH BMI SHTS10 ; ;; JSL >SDLRCE ;; ORA #29H ;; STA SOUND3 ;(S) LDA #29H JSL >SDLRE3 ;(S) ; PHX LDA ENMUKI,X TAX LDA PSERCHL PLX LDA ENXSPD,X STA ENXSPD,Y LDA ENYSPD,X STA ENYSPD,Y ; LDA HEMODE,X CMP #02H BCC SHTS10 ; JSL >RNDSET ;; JSL >RNDSET ;; JSL >RNDSET ;; JSL >RNDSET AND #01H BNE SHTS10 ; LDA #01H STA ENWRK1,Y LDA #20H STA ENTIM0,Y SHTS10 EQU $ RTS ;------------------------------------------------ SHMOVE EQU $ LDA #01H STA ENNOCR,X ; LDA ENXPSL,X STA ESERCHL LDA SADWS2L SHC038 EQU $ LDA ALOMCKL SHC039 EQU $ ; ;; LDY #0FFH ;; LDA #03H ;; JSL >ALOMCKL ; JSR OAMCHK ;- - FIRE SET - - LDA #04H*2 LDY ENMUKI,X BEQ SHC0A0 ; Ue muki ? ; ; yuusen set ! JSL >OAMENT3 BRA SHC0A8 SHC0A0 EQU $ JSL >OAMENT2 SHC0A8 EQU $ LDY #00H LDA ENCMKI,X BEQ SHC0B0 DEC A STA PSERCHL STM0F0 EQU $ ; LDA #04H+1 BRA STM111 STM000 EQU $ LDA EN1CSTL STM013 EQU $ JSR ENSTCK ; INC ENCONT,X ; JSR ENMVCL ;; JSL >ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK BEQ STM005 STZ ENMODE,X LDA ENWRK1,X BNE STM555 STM005 EQU $ ; LDA ENWRK0,X BEQ STM008 ; LDA ENNOCR+00H BNE STM008 ;- - Hnaekairi ---> shisai - - LDA ENXPSL,X STA ENCRST2 PLX JSL >CROJCK2 BCC STM007 ; PHX ;; LDX #00H ;; LDA #0DH ; Mahou to onagi ! LDA #20H+80H STA ENDMST4 PLX STZ ENMODE,X LDA ENXSPD,X STA ENHNXS LDA ENYSPD,X STA ENHNYS STM007 EQU $ BRA STM010 ;- - - - - - - - - - STM008 EQU $ ;; JSR CREKEK JSR CRENPL JSL >CRKNENL BCC STM010 ; Ken hit ? ; ; yes ! LDA ENWRK1,X BEQ STM009 STZ ENMODE,X ; STM555 EQU $ LDA #36H JSL >SDLRE3 ;(S) ; JSR BAKUST ; RTS STM009 EQU $ ;; JSL >SDLRCE ;; PHA ;; ORA #05H ;; STA SOUND2 ;(S) ;; PLA ;; ORA #29H ;; STA SOUND3 ;(S) ; LDA #05H JSL >SDLRE2 ;(S) LDA #29H JSL >SDLRE3 ;(S) ; LDA #30H JSL >PSERCHL LDA ENIDSH BMI STM020 ; JSL >ENIDPS ; LDA EN1CSTL BRA SHZ028 SHZ020 EQU $ JSL >EN1CSSL SHZ028 EQU $ JSR ENSTCK ; LDA ENTIM0,X STA ENNOCR,X BNE SHZ010 STZ ENMODE,X SHZ010 EQU $ TAY CMP #06H BNE SHZ018 ; LDA #40H STA ENXSPD,X STA ENYSPD,X JSR ENMVCL SHZ018 EQU $ LDA SHZCDT,Y STA ENCHPT,X RTS ;======================================= Z2SXSD EQU $ HEX 00,18,18,00,E8,E8 ;,20,E0 Z2SYSD EQU $ HEX E0,F0,10,20,10,F0 ;,00,00 ; BAKUST EQU $ ;; JSL >SDLRCE ;; ORA #36H ;; STA SOUND3 ;(S) LDA #36H JSL >SDLRE3 ;(S) ; LDA #05H STA ENHELP BS0000 EQU $ JSR BS0010 DEC ENHELP BNE BS0000 ; BS0010 EQU $ LDA #ZORAS JSL >ENIDSH BMI Z2TS90 ; LDA SETOAML22 ;; RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% HACHI move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HACHIMV EQU $ LDA ENSTAT,X JSL >JSRSUB WORD HACHIF0 WORD HACHIF1 WORD HACHIF2 ;======================================== HACHIF0 EQU $ LDA ENWRK3,X BNE HCIF010 ; STZ ENMODE,X ;KILL I ; LDY #00BH HCIF020 EQU $ PHY JSR HACHIST PLY DEY BPL HCIF020 ; HCIF010 EQU $ RTS ;---------------------------------------- HCISTSX EQU $ HCISTSY EQU $ BEESTSX EQU $ BEESTSY EQU $ BYTE 018,006,-06,-18,024,012,-12,-24 BEEPSSX EQU $ BEEPSSY EQU $ BYTE 010,002,-02,-10,012,006,-06,-12 ; HCISTTD EQU $ ; BYTE 040H,040H,040H,040H BYTE 040H,040H,0FFH,0FFH ; HACHIST EQU $ LDA #HACHI JSL >ENIDSH BMI HCIST10 ; JSL >ENIDPS ; HCIST20 EQU $ PHX ; LDA #001H ;BATTEL HACHI STA ENSTAT,Y TYA AND #003H TAX LDA HCISTTD,X ;INIT TIME STA ENTIM0,Y ; LDA #040H ;SERCH INIT TIME STA ENWRK0,Y LDA #060H ;NOT TUCH TIME STA ENTIM3,Y ; ;INIT MUKI JSL >RNDSET AND #007H TAX LDA HCISTSX,X STA ENXSPD,Y JSL >RNDSET AND #007H TAX LDA HCISTSY,X STA ENYSPD,Y PLX HCIST10 EQU $ RTS ;---------------------------------------- HACHISTL EQU $ ;PL. BIN USE PHB PHK PLB LDA #BEE00 JSL >ENIDSH BMI HCISTL30 ; LDA ITEMR01-1,X TAX LDA >BINCT0-1,X CMP #008H BNE HCISTL20 LDA #001H STA ENCMKI,Y HCISTL20 EQU $ ; JSR HCIST20 JSL >RNDSET AND #007H TAX LDA BEEPSSX,X STA ENXSPD,Y JSL >RNDSET AND #007H TAX LDA BEEPSSX,X STA ENYSPD,Y LDA #040H STA ENTIM0,Y STA ENWRK0,Y PLX HCISTL10 EQU $ PLB LDA #000H ;SET RTL HCISTL30 EQU $ PLB LDA #0FFH ;NOT SET RTL ;---------------------------------------- HCIF1PX EQU $ HCIF1PY EQU $ BEEF1PX EQU $ BEEF1PY EQU $ BYTE 000,005,010,015 HACHIF1 EQU $ ;BATTLE HACHI JSR BEE0ATR JSL >EN1CSSL ; JSR HACHI1T ;1 TIME GET 1 ; JSR ENSTCK ;scroll : not return JSR ENHNSB LDA ENCMKI,X BEQ HCIF1F0 JSL >ICEF2ST ;KIRA KIRA HCIF1F0 EQU $ ; JSR HACHIOT ;SOUND SET JSR ENMVCL ;xclc,yclc TXA EOR CRKNENL ;PL. KEN CHK BEQ HCIF130 LDA #LOW MS_0340 ;MSGE NO LDY #HIGH MS_0340 ;MSGE NO JSL >ENMSGSL ;MSGE SET INC ENSTAT,X ;YES OR NO RTS HCIF130 EQU $ ; LDA RNDSET AND #003H TAY LDA RNDSET AND #003H TAY LDA ESERCHL ;SERCH ; LDA EN1CSSL JSR HACHI1T ;1 TIME GET 1 JSR ENSTCK ;scroll : not return ; LDA MSG_RTS BNE HCIF210 ; JSL >BINCHKL ;BIN AKI CHK (A <- INDEX) BMI HCIF220 LDA ENCMKI,X STA BINCT0,X JSL >ITEM0ST ;meter set PLX STZ ENMODE,X ;KILL I RTS HCIF220 EQU $ LDA #LOW MS_0342 ;MSGE NO LDY #HIGH MS_0342 ;MSGE NO JSL >ENMSGSL ;MSGE SET ; HCIF210 EQU $ LDA #040H STA ENTIM3,X LDA #001H STA ENSTAT,X RTS ;---------------------------------------- BINCHKL EQU $ PHX LDX #000H BNCHL10 EQU $ LDA >BINCT0,X CMP #002H BEQ BNCHL20 INX CPX #004H BCC BNCHL10 LDX #0FFH BNCHL20 EQU $ TXY PLX TYA RTL ;---------------------------------------- HACHI1T EQU $ LDA JSRSUB WORD BEE00F0 WORD BEE00F1 WORD BEE00F2 ; BEE00F0 EQU $ LDA ENWRK3,X BNE BEEF010 STZ ENMODE,X ;KILL I LDA >BINCT0 ORA >BINCT1 ORA >BINCT2 ORA >BINCT3 AND #008H BNE BEEF010 JSR BEE00ST BEEF010 EQU $ RTS ;---------------------------------------- ;BEESTSX EQU $ ;BEESTSY EQU $ ; BYTE 004,002,-02,-04,005,003,-03,-05 ; BEE00ST EQU $ LDA #HACHI JSL >ENIDSH BMI BEEST10 ; JSL >ENIDPS ; BEEST20 EQU $ LDA #001H ;BATTEL HACHI STA ENSTAT,Y LDA #040H ;INIT TIME STA ENTIM0,Y ; LDA #040H ;SERCH INIT TIME STA ENWRK0,Y LDA #060H ;NOT TUCH TIME STA ENTIM3,Y LDA #001H ;FLASH STA ENCMKI,Y ; PHX ;INIT MUKI JSL >RNDSET AND #007H TAX LDA BEESTSX,X STA ENXSPD,Y JSL >RNDSET AND #007H TAX LDA BEESTSY,X STA ENYSPD,Y PLX BEEST10 EQU $ RTS ;---------------------------------------- BEE00AT EQU $ BYTE 010,020 ; BEE00F1 EQU $ ;BATTLE HACHI LDA #001H STA ENNOCR,X JSR BEE0ATR JSL >EN1CSSL JSR HACHI1T ;1 TIME GET 1 JSR ENSTCK ;scroll : not return JSR HACHIOT ;SOUND SET JSR ENMVCL ;xclc,yclc ; TXA EOR ICEF2ST ;KIRA KIRA BEEF120 EQU $ LDA ENWRK1,X LDY ENCMKI,X CMP BEE00AT,Y BCC BEEF180 LDA #040H ;GAMEN GAI CLS STA ENMOD5,X RTS ; BEEF180 EQU $ LDA ENTIM3,X ;NOT MOVE BNE BEEF140 ; ; JSL >CRKNENL ;PL. KEN CHK BEQ BEEF190 LDA #LOW MS_0340 ;MSGE NO LDY #HIGH MS_0340 ;MSGE NO JSL >ENMSGSL ;MSGE SET INC ENSTAT,X ;YES OR NO RTS ; BEEF190 EQU $ ;-- ; ;EN. CHK TXA EOR RNDSET ;NOT ENMY AND #003H ;(PL. SERCH) TAY LDA RNDSET AND #003H TAY LDA ESERCHL ;SERCH ; LDA EN1CSSL ;+;+;+;+;; ;+;+;+;+; JSR HACHI1T ;1 TIME GET 1 ;+;+;+;+;; ;+;+;+;+; JSR ENSTCK ;scroll : not return ;+;+;+;+; LDA ENCMKI,X ;+;+;+;+; BEQ BEEF1F0 ;+;+;+;+; JSL >ICEF2ST ;KIRA KIRA ;+;+;+;+;BEEF1F0 EQU $ ;+;+;+;+; JSR HACHIOT ;SOUND SET ;+;+;+;+; JSR ENMVCL ;xclc,yclc ;+;+;+;+; TXA ;+;+;+;+; EOR CRHCEN ;EN. BODY CHK ;+;+;+;+;BEEF1D0 EQU $ ;+;+;+;+; JSL >CRKNENL ;PL. KEN CHK ;+;+;+;+; BEQ BEEF130 ;+;+;+;+; LDA #LOW MS_0340 ;MSGE NO ;+;+;+;+; LDY #HIGH MS_0340 ;MSGE NO ;+;+;+;+; JSL >ENMSGSL ;MSGE SET ;+;+;+;+; INC ENSTAT,X ;YES OR NO ;+;+;+;+; RTS ;+;+;+;+;BEEF130 EQU $ ;+;+;+;+;; ;+;+;+;+; LDA RNDSET ;NOT ENMY ;+;+;+;+; AND #003H ;(PL. SERCH) ;+;+;+;+; TAY ;+;+;+;+; LDA RNDSET ;+;+;+;+; AND #003H ;+;+;+;+; TAY ;+;+;+;+; LDA RNDSET ;+;+;+;+; AND #003H ;+;+;+;+; TAY ;+;+;+;+; LDA ENXPSL,X ;+;+;+;+; CLC ;+;+;+;+; ADC BEEF1PX,Y ;+;+;+;+; STA RNDSET ;+;+;+;+; AND #003H ;+;+;+;+; TAY ;+;+;+;+; LDA ENYPSL,X ;+;+;+;+; CLC ;+;+;+;+; ADC BEEF1PY,Y ;+;+;+;+; STA ESERCHL ;SERCH ;+;+;+;+;; ;+;+;+;+; LDA CRHCEN ; PHX JSL >RNDSET AND #003H TAX LDA ENXPSL,Y CLC ADC BEEF1PX,X STA RNDSET AND #003H TAX LDA ENYPSL,Y CLC ADC BEEF1PY,X STA SDLRCE ;; ORA #02CH ;; STA SOUND3 LDA #2CH JSL >SDLRE3 ;(S) HCIOT10 EQU $ RTS ;---------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% SEKBN move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% SKBNM0L EQU $ BYTE LOW MS_0242,LOW MS_0243 SKBNM0H EQU $ BYTE HIGH MS_0242,HIGH MS_0243 ; SKBNM1L EQU $ BYTE LOW MS_0249,LOW MS_024A SKBNM1H EQU $ BYTE HIGH MS_0249,HIGH MS_024A ; SEKBNMV EQU $ JSL >OAMCHKL JSR ENSTCK ; scroll : not return ! ; LDA PYALSP BNE SKNMV20 JSL >WPMSCK BCC SKNMV10 SKNMV20 EQU $ RTS ; SKNMV10 EQU $ LDA AITMBT1 AND #0DFH STA AITMBT1 ; LDA CRENPL2L BCC SKNM010 ; LDA GETITM0 CMP #015 BNE SKNM020 ; LDY #001H BIT ENMSGSL ;MSGE SET SKNM010 EQU $ RTS ;---------------------------------------- SEKBNM1 EQU $ LDA CRENPL2L BCC SKNM110 ; LDA GETITM0 CMP #015 BNE SKNM120 ; LDY #001H BIT MNIRIT SKNM140 EQU $ LDA SKBNM1L,Y ;MSGE NO XBA LDA SKBNM1H,Y ;MSGE NO TAY XBA JSL >ENMSGSL ;MSGE SET SKNM110 EQU $ RTS ;---------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% TAKAR move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TAKARMV EQU $ JSL >EN1CSTL JSR ENSTCK ; scroll : not return ! ; LDA ENSTAT,X BNE TAKAR20 ; LDA #LOW MS_0430 LDY #HIGH MS_0430 JSL >ENMSG2L ;MSGE SET BCC TAKAR10 ; LDA >OPMODE BNE TAKAR10 ; INC ENSTAT,X TAKAR10 EQU $ RTS ; TAKAR20 EQU $ STZ ENMODE,X ;KILL I ; LDA #takar ;PL. TAKARMONO MODE STA >OPMODE ; PHX JSL >OPTCBFST PLX JSL >RAOPIT1 ;PL. OPTION INIT ; RTS ;---------------------------------------- ;---------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% BAKDN move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% BAKDNMV EQU $ LDA ENCONT,X JSL >JSRSUB WORD BAKDNM0 ;MAN WORD BAKDNM1 ;S WORD BAKDNM2 ;B WORD BAKDNM3 ;KEMURI ;---------------------------------------- BKNM0ML EQU $ BYTE LOW MS_0440,LOW MS_0441 BKNM0MH EQU $ BYTE HIGH MS_0440,HIGH MS_0441 ; BKNM0CD EQU $ BYTE 000H,001H,000H,001H,000H,001H,000H,001H BKNM0TD EQU $ BYTE 0FFH,020H,0FFH,018H,00FH,018H,0FFH,00FH BAKDNM0 EQU $ JSR BAKDNCS JSR ENSTCK ; scroll : not return ! ; LDA ENTIM0,X BNE BKNM040 ; LDA ENWRK3,X TAY INC A AND #007H STA ENWRK3,X LDA BKNM0TD,Y STA ENTIM0,X LDA BKNM0CD,Y STA ENCHPT,X BNE BKNM050 ;; JSL >SDLRCE ;; ORA #011H ;; STA SOUND3 LDA #011H JSL >SDLRE3 ;(S) JSR BKNM0ST ;KEMRI SET BRA BKNM040 ; BKNM050 EQU $ ;; JSL >SDLRCE ;; ORA #012H ;; STA SOUND3 LDA #012H JSL >SDLRE3 ;(S) ; BKNM040 EQU $ ; LDY #000H LDA >ITMTBL3 AND #005H CMP #005H BNE BKNM010 ;? BIG BOMB SET LDA >MODTBL4 AND #020H BEQ BKNM010 LDY #001H ;Y BKNM010 EQU $ LDA BKNM0ML,Y XBA LDA BKNM0MH,Y TAY XBA JSL >ENMSGEL ; MEGE ? JSL >ENPLATR ;PL. EN. ATARI SET RTS ;---------------------------------------- BKNM1YN EQU 00100 ; BAKDNM1 EQU $ JSR BAKDNCS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR ;PL. EN. ATARI SET ; JSR SAMTMKY BCC BKNM120 ; LDA >ITEMR49 PHX TAX LDA >BOMBMAX,X PLX CMP >BMBCNT BEQ BKNM110 ; LDA #LOW BKNM1YN LDY #HIGH BKNM1YN JSR OKANEDC ;OKANE DEC BCC BKNM130 ; LDA #027 ;BOMB UP STA >UPBMCT ; STZ ENMODE,X ; LDA #LOW MS_0442 ; MSGE NO. SET LDY #HIGH MS_0442 ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? ; LDY #028H JSR SAMTMIM ; STZ !ITMVFG ; PHX ;BOMB 1 SET ; JSL >ATMSIT ; PLX ; BKNM120 EQU $ RTS ; BKNM110 EQU $ LDA #LOW MS_055F ; MSGE NO. SET LDY #HIGH MS_055F ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? JSR SMMMBUT ;NOT USE ITEM RTS ; BKNM130 EQU $ JMP KANENAS ;KANE NASI ; ;---------------------------------------- BKNM2YN EQU 00100 ; BAKDNM2 EQU $ JSR BAKDNCS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR ;PL. EN. ATARI SET ; JSR SAMTMKY BCC BKNM210 ; LDA #LOW BKNM2YN LDY #HIGH BKNM2YN JSR OKANEDC ;OKANE DEC BCC BKNM220 ; LDA #bakud ;PL. BOMB MODE STA >OPMODE ; PHX JSL >OPTCBFST PLX JSL >RAOPIT1 ;PL. OPTION INIT ; STZ ENMODE,X ; LDA #LOW MS_0443 ; MSGE NO. SET LDY #HIGH MS_0443 ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? ; BKNM210 EQU $ RTS ; BKNM220 EQU $ JMP KANENAS ;KANE NASI ;---------------------------------------- BKNM3DT EQU $ BYTE 004H,044H,0C4H,084H ; BAKDNM3 EQU $ ;KEMURI LDA #1*4 JSL >OAMENT3 JSL >EN1CSSL JSR ENSTCK ; scroll : not return ! ; LDA ENCLOR,X AND #030H STA ENCLOR,X LDA ENIDSH ; LDA #003H ;KEMURI MODE STA ENCONT,Y STA ENNOCR,Y ; LDA SETOAML ; JSL >SADWSTL RTS ;---------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% SARKK move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% SARKKSX EQU $ BYTE 000,000 SARKKSY EQU $ BYTE -018,018,000,000 ; SARKKMV EQU $ LDA ENCONT,X JSL >JSRSUB WORD SARKK00 ;TUKU YATU WORD SARKK01 ;KEY OPEN WORD SARKK02 ;YANKEY SARKK WORD SARKK03 ;RUN ;---------------------------------------- SARKK03 EQU $ JSR SARKKCS JSR ENSTCK ; scroll : not return ! ; LDA ENZPSL,X BNE SRK0330 ; MEM16 IDX8 REP #00100000B LDA ENXP2L SEC SBC #0C98H CMP #00D0H BCS SRK0330 ; LDA ENYP2L SEC SBC #06A5H CMP #00D0H BCS SRK0330 ; LDA #0FFFFH STA RNDSET AND #00FH ORA #018H STA ENZSPD,X ; SRK0310 EQU $ LDA #0F5H STA ESERCHL LDA JSRSUB WORD SRK02M0 WORD SRK02M1 WORD SRK02M2 WORD SRK02M3 WORD SRK02M4 ;---------------------------------------- SRK02M0 EQU $ LDA #LOW MS_0454 LDY #HIGH MS_0454 JSL >ENMSGSL ;MSGE SET INC ENSTAT,X RTS ;---------------------------------------- SK2M1YN EQU 00010 ; SRK02M1 EQU $ LDA MSG_RTS BNE SK2M110 ; LDA #LOW SK2M1YN LDY #HIGH SMM10YN JSR OKANEDC ;OKANE DEC BCC SK2M110 ; LDA #LOW MS_0455 LDY #HIGH MS_0455 JSL >ENMSGSL ;MSGE SET ; LDA OPMSFG ;PL. DATA SET ORA #003H STA OPMSFG ; STZ ENMODE,X RTS ; SK2M110 EQU $ LDA #LOW MS_0456 LDY #HIGH MS_0456 JSL >ENMSGSL ;MSGE SET ; LDA OPMSFG ;PL. DATA CLS AND #0FCH STA OPMSFG ; LDA #nashi ;KILL SARU STA >OPMODE ; INC ENSTAT,X INC PYALSP ;PL. STOP ; RTS ;---------------------------------------- SRK02M2 EQU $ INC ENSTAT,X ; LDA #0F5H STA ESERCHL LDA OAMCHKL JSR ENSTCK ; scroll : not return ! ; LDA RABFLG ;? USAGI BNE SARKK10 ; LDA MRTKFG ORA PYFLASH BNE SARKK10 ; ;N LDA >OPMODE CMP #monky BEQ SARKK10 ; PHX LDX GNDTBL,X PLX AND #020H BNE SARKK10 ; JSL >CRENPL2L BCC SARKK10 ; SARKK20 EQU $ ; STZ ENMODE,X ;KILL I ; LDA #monky ;PL. SARKK MODE STA >OPMODE ; PHX STZ OPNOSI JSL >OPTCBFST JSL >RAOPIT ;PL. OPTION INIT PLX ; SARKK10 EQU $ RTS ;---------------------------------------- SARKK01 EQU $ JSR SARKKCS JSR ENSTCK ; scroll : not return ! JSR ENMVCL2 ; JSR ENMVCL ;xclc,yclc ; JSR ENZCLC ;zclc DEC ENZSPD,X DEC ENZSPD,X LDA ENZPSL,X BPL SRK0110 ; STZ ENZSPD,X STZ ENZPSL,X ; SRK0110 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD SARKKM0 WORD SARKKM1 WORD SARKKM2 WORD SARKKM3 WORD SARKKM4 WORD SARKKM5 WORD SARKKM6 WORD SARKKM7 WORD SARKKM8 WORD SARKKM9 WORD SARKKMA ;---------------------------------------- SARKKM0 EQU $ LDA #LOW MS_0450 LDY #HIGH MS_0450 JSL >ENMSGSL ;MSGE SET INC ENSTAT,X RTS ;---------------------------------------- SRKM1YN EQU 00100 ; SARKKM1 EQU $ LDA MSG_RTS BEQ SRKM110 ; SRKM120 EQU $ LDA #LOW MS_0451 LDY #HIGH MS_0451 JSL >ENMSGSL ;MSGE SET LDA #003H STA ENCONT,X RTS ; STZ ENMODE,X ;KILL I ; BRA SARKK20 ; SRKM110 EQU $ LDA #LOW SRKM1YN LDY #HIGH SRKM1YN JSR OKANEDC ;OKANE DEC BCC SRKM120 ; LDA #LOW MS_0453 LDY #HIGH MS_0453 JSL >ENMSGSL ;MSGE SET ; INC PYALSP ;PL. STOP INC ENSTAT,X STZ ENMUKI,X RTS ;---------------------------------------- SRKM3DT EQU $ ;Z SPEED BYTE 020H,01CH SARKKM3 EQU $ ;Z CHK SARKKM5 EQU $ LDA ENTIM1,X BNE SRKM320 ; LDA ENSTAT,X INC ENSTAT,X LSR A AND #001H TAY LDA SRKM3DT,Y STA ENZSPD,X ; ;; JSL >SDLRCE ;OTO ;; ORA #020H ;; STA SOUND2 LDA #20H JSL >SDLRE2 ;(S) ; LDA ENSTAT,X LSR A AND #001H ORA #004H STA ENMUKI,X ; RTS SRKM320 EQU $ ;E SET LDA ENSTAT,X LSR A AND #001H ORA #006H STA ENMUKI,X ; LDA SDLRCE ;OTO ;; ORA #021H ;; STA SOUND2 LDA #21H JSL >SDLRE2 ;(S) ; RTS ; SRKM410 EQU $ LDA SRKM4PX,Y STA ESERCHL LDA USHNDDWT ; PLX LDA #gif1 ;KEY OPEN STA GDINFF STZ RNDSET AND #00FH ADC #018H STA ENZSPD,X INC ENSTAT,X ; SRKM850 EQU $ RTS ; SRKM830 EQU $ ; INC ENSTAT,X ; ; JSL >RNDSET ; AND #00FH ; ADC #040H ; STA ENTIM0,X ; RTS ;---------------------------------------- SARKKM9 EQU $ LDA ENZSPD,X ;SPEED CHK BPL SRKM910 LDA ENZPSL,X BNE SRKM910 INC ENSTAT,X LDA #025H ;OTO JSL >SDLRE3 SRKM910 EQU $ ;---------------------------------------- SARKKMA EQU $ RTS ; ;---------------------------------------- SARKKST EQU $ JSR SARKKSTS LDA #001H ;MODE SET STA ENCONT,Y ; LDA #nashi ;KILL SARU STA >OPMODE ; RTL ;---------------------------------------- SARKKSTS EQU $ PHA ;INDEX SAVE ; LDA #SARKK JSL >ENIDSH BMI SRKSTS10 ; PLA ; PHX ; TAX ;LDX OPINDX ;INDEX GET ; LDA OPMUKI,X ;MUKI GET AND #003H ; STA ENCMKI,Y ;MUKI SET STA ENMUKI,Y ; LDA OPYPSL,X ;Y POS SET CLC ADC #002H STA ENYPSL,Y LDA OPYPSH,X ADC #000H STA ENYPSH,Y ; LDA OPXPSL,X ;X POS SET CLC ADC #002H STA ENXPSL,Y LDA OPXPSH,X ADC #000H STA ENXPSH,Y ; LDA OPMODE ; RTL ;---------------------------------------- SARKKCY EQU -6 SARKKCN 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 ; SARKKCD EQU $ WORD 00000,00000+SARKKCY ;0 BYTE 020H,000H,000H,002H WORD 00000,00006+SARKKCY BYTE 022H,000H,000H,002H WORD 00000,00000+SARKKCY BYTE 020H,000H,000H,002H WORD 00000,00006+SARKKCY BYTE 022H,040H,000H,002H ; WORD 00000,00000+SARKKCY ;1 BYTE 020H,000H,000H,002H WORD 00000,00006+SARKKCY BYTE 022H,000H,000H,002H WORD 00000,00000+SARKKCY BYTE 020H,000H,000H,002H WORD 00000,00006+SARKKCY BYTE 022H,040H,000H,002H ; WORD -0001,00000+SARKKCY ;2 BYTE 020H,000H,000H,002H WORD 00000,00006+SARKKCY BYTE 022H,000H,000H,002H WORD -0001,00000+SARKKCY BYTE 020H,000H,000H,002H WORD 00000,00006+SARKKCY BYTE 022H,000H,000H,002H ; WORD 00001,00000+SARKKCY ;3 BYTE 020H,040H,000H,002H WORD 00000,00006+SARKKCY BYTE 022H,040H,000H,002H WORD 00001,00000+SARKKCY BYTE 020H,040H,000H,002H WORD 00000,00006+SARKKCY BYTE 022H,040H,000H,002H ; WORD 00000,00000+SARKKCY ;4 BYTE 0CEH,001H,000H,002H WORD 00000,00006+SARKKCY BYTE 0EEH,001H,000H,002H WORD 00000,00000+SARKKCY BYTE 0CEH,001H,000H,002H WORD 00000,00006+SARKKCY BYTE 0EEH,001H,000H,002H ; WORD 00000,00000+SARKKCY ;5 BYTE 0CEH,041H,000H,002H WORD 00000,00006+SARKKCY BYTE 0EEH,041H,000H,002H WORD 00000,00000+SARKKCY BYTE 0CEH,041H,000H,002H WORD 00000,00006+SARKKCY BYTE 0EEH,041H,000H,002H ; WORD -0001,00000+SARKKCY ;6 BYTE 0CEH,001H,000H,002H WORD 00000,00006+SARKKCY BYTE 0ECH,001H,000H,002H WORD -0001,00000+SARKKCY BYTE 0CEH,041H,000H,002H WORD 00000,00006+SARKKCY BYTE 0ECH,001H,000H,002H ; WORD 00001,00000+SARKKCY ;7 BYTE 0CEH,041H,000H,002H WORD 00000,00006+SARKKCY BYTE 0ECH,041H,000H,002H WORD 00001,00000+SARKKCY BYTE 0CEH,001H,000H,002H WORD 00000,00006+SARKKCY BYTE 0ECH,041H,000H,002H ; SARKKC1 EQU $ WORD 00000,00000+SARKKCY BYTE 0CAH,001H,000H,000H WORD 00008,00000+SARKKCY BYTE 0CAH,041H,000H,000H WORD 00000,00008+SARKKCY BYTE 0DAH,001H,000H,000H WORD 00008,00008+SARKKCY BYTE 0DAH,041H,000H,000H WORD 00000,00016+SARKKCY BYTE 0CBH,001H,000H,000H WORD 00008,00016+SARKKCY BYTE 0CBH,041H,000H,000H ; WORD 00000,00000+SARKKCY BYTE 0DBH,001H,000H,000H WORD 00008,00000+SARKKCY BYTE 0DBH,041H,000H,000H WORD 00000,00008+SARKKCY BYTE 0CCH,001H,000H,000H WORD 00008,00008+SARKKCY BYTE 0CCH,041H,000H,000H WORD 00000,00016+SARKKCY BYTE 0DCH,001H,000H,000H WORD 00008,00016+SARKKCY BYTE 0DDH,041H,000H,000H ; SARKKCS EQU $ LDA ENMUKI,X CMP #008H BCS SRKCS20 ; LDA ENMUKI,X ASL A ADC ENCHPT,X ASL A TAY ; LDA SARKKCN,Y ;OBJ CNG NO SET STA OPTHPT LDA SARKKCN+1,Y STA OPTBPT ; TYA ASL A ASL A ASL A ADC #LOW SARKKCD STA SETOAML22 JSR SETO22 ; LDA ENDSPL,X BNE SRKCS10 JSL >SADWSTL SRKCS10 EQU $ RTS ;---------------------------------------- SRKCS20 EQU $ LDA ENCHPT,X ASL A ADC ENCHPT,X ASL A ASL A ASL A ASL A ADC #LOW SARKKC1 STA SETOAML22 JSR SETO22 ; LDA ENDSPL,X BNE SRKCS30 JSL >SADWSTL SRKCS30 EQU $ RTS ;---------------------------------------- ;---------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% TEKBB move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TEKBBMV EQU $ JSL >HELP0CS JSR ENSTCK ; scroll : not return ! JSL >ENMKIST ;MUKI SET JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X ; LDA ENSTAT,X BNE TEKBB20 ; LDA #LOW MS_0460 LDY #HIGH MS_0460 JSL >ENMSG2L ;MSGE SET BCC TEKBB10 INC ENSTAT,X TEKBB10 EQU $ RTS ; TEKBB20 EQU $ STZ ENMODE,X ;KILL I ; LDA #prnc1 ;PL. TAKARMONO MODE STA >OPMODE ; PHX JSL >OPTCBFST PLX JSL >RAOPIT1 ;PL. OPTION INIT ; RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% HELP1 move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HELP1IT EQU $ PHB PHK PLB JSR HELP100_I PLB RTL ;---------------------------------------- HELP100_I EQU $ INC ENNOCR,X ; beem thru ; LDA OPMODE CMP #nashi BNE HELP110_I ; LDA >ITEMR20 ;(DOUKUTU) CMP #002H BNE HELP130_I STZ ENMODE,X ;KILL I HELP130_I EQU $ LDA #jjsmv STA >OPMODE PHX JSL >OPTCBFST PLX LDA #nashi STA >OPMODE RTS ; HELP110_I EQU $ STZ ENMODE,X ;KILL I PHX JSL >OPTCBFST PLX RTS ;---------------------------------------- HELP1ST EQU $ PHA ;INDEX SAVE ; LDA #HELP1 JSL >ENIDSH ; PLA ; PHX ; TAX ;LDX OPINDX ;INDEX GET ; LDA OPMUKI,X ;MUKI GET AND #003H ; STA ENCMKI,Y ;MUKI SET STA ENMUKI,Y ; LDA OPYPSL,X ;Y POS SET CLC ADC #002H STA ENYPSL,Y LDA OPYPSH,X ADC #000H STA ENYPSH,Y ; LDA OPXPSL,X ;X POS SET CLC ADC #002H STA ENXPSL,Y LDA OPXPSH,X ADC #000H STA ENXPSH,Y ; LDA OPMODE ; STZ HELP1CS JSR ENSTCK ; scroll : not return ! ; LDA ENCONT,X JSL >JSRSUB WORD HELP1F0 WORD HELP1F1 WORD HELP1F2 ;---------------------------------------- HELP1F0 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD HL1F0M0 WORD HL1F0M1 ;------------------------------ HL1F0M0 EQU $ JSL >ENMKIST ;MUKI SET JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X ; LDA #LOW MS_0153 LDY #HIGH MS_0153 JSL >ENMSG2L ;MSGE SET BCC HF0M010 ; STA ENMUKI,X ;MUKI SET STA ENCMKI,X ; INC ENSTAT,X ; HF0M010 EQU $ RTS ;------------------------------ HL1F0M1 EQU $ LDA #jjsmv ;PL. HELP1 MODE STA >OPMODE ; JSL >RAOPIT1 ;PL. OPTION INIT ; LDA #005 STA >MODTBL3 ;SAVE RAM ; STZ ENMODE,X ;KILL I ; JSL >RESTTST ; RTS ;---------------------------------------- HELP1F1 EQU $ JSR ENMVCL ; xclc,yclc ! LDA ENSTAT,X JSL >JSRSUB WORD HL1F1M0 WORD HL1F1M1 WORD HL1F1M2 WORD HL1F1M3 ;------------------------------ HL1F1M0 EQU $ INC ENSTAT,X ; LDY #01AH STZ !ITMVFG JSL >ATMSIT ; LDA #001 ;SAVE RAM STA >MODTBL3 JSR HELP1SP ;PL. STOP & MUTEK ; LDA #030H ;TIME SET STA ENTIM0,X ; LDA #008H ;SPEED SET STA ENXSPD,X LSR A STA ENYSPD,X ; LDA #003H STA ENCMKI,X STA ENMUKI,X ; RTS ;------------------------------ HL1F1M1 EQU $ ;YOKO MOVE JSR HELP1SP ;PL. STOP & MUTEK ; LDA ENTIM0,X BNE HF1M110 INC ENSTAT,X HF1M110 EQU $ TXA ; EOR ESERCHL ;SERCH ; LDA ENPLATR ;PL. EN. ATARI SET ; LDA ENSTAT,X BEQ HF2M030 LDA #0A0H STA >UPLFCT STZ ENSTAT,X ; HF2M030 EQU $ LDY #002H LDA >MODTBL0 CMP #003H BCS HF2M020 ;? MASTER KATANA GET ; LDA >ITMTBL4 TAY HF2M020 EQU $ LDA HLP12DL,Y XBA LDA HLP12DH,Y TAY XBA JSL >ENMSGEL ;MSGE SET BCC HF2M010 INC ENSTAT,X HF2M010 EQU $ RTS ;---------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% D_0_9 move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% D_0_9MV EQU $ JSL >SINPUCS JSR ENSTCK ; scroll : not return ! ; LDA ENWRK0,X AND #003H STA ENMUKI,X ; LDA ENSTAT,X JSL >JSRSUB WORD D_0_9M0 ;INT WORD D_0_9M1 ;MSGE WRITE WORD D_0_9M2 ;COUNT NEXT ;---------------------------------------- D_0_9M0 EQU $ STZ ENWRK0,X STZ ENWRK1,X INC ENSTAT,X ;---------------------------------------- D_0_9M1 EQU $ LDA ENWRK0,X LDY ENWRK1,X JSL >ENMSG2L ;MSGE SET BCC D09M110 INC ENSTAT,X D09M110 EQU $ RTS ;---------------------------------------- D_0_9M2 EQU $ LDA ENWRK0,X CLC ADC #001H STA ENWRK0,X LDA ENWRK1,X ADC #000H STA ENWRK1,X LDA #001H STA ENSTAT,X RTS ;---------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% SITO0 move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% SITO0MV EQU $ LDA ENCONT,X JSL >JSRSUB WORD SITO000 ;IGIMERARERU WORD SITO100 ;NAMIDA WORD SITO200 ;IGIMERU ;---------------------------------------- SITO000 EQU $ JSL >OCHECKL JSL >EN1CSTL JSR ENSTCK ;scroll : not return ; ; JSR SITO0MS ; ; LDA ENCLOR,X AND #07FH ORA ENCMKI,X STA ENCLOR,X ; ; JSR ENMVCL2 ;xclc,yclc,zclc ;; JSL >ENBGCKL ; BG check sub ! ;; LDA ENCBFG,X JSR ENBGCK ;; AND #00FH BEQ SITO050 AND #003H BNE SITO060 LDA ENYSPD,X EOR #0FFH INC A STA ENYSPD,X LDA ENWRK3,X BEQ SITO060 JSR SITO0OT ;OTO SET BRA SITO050 SITO060 EQU $ LDA ENXSPD,X EOR #0FFH INC A STA ENXSPD,X LDA ENWRK3,X BEQ SITO050 JSR SITO0OT ;OTO SET SITO050 EQU $ ; DEC ENZSPD,X ;G ; LDA ENZPSL,X BPL SITO010 ;? GIMEN ; ;Y STZ ENZPSL,X ;Z POS CLS ; LDA ENZSPD,X ;HANERU EOR #0FFH INC A LSR A LSR A STA ENZSPD,X AND #0FCH BEQ SITO0E0 JSR SITO0OT ;OTO SET SITO0E0 EQU $ ; JSR SITO0BK ;SPEED DEC ; SITO010 EQU $ LDA ENWRK3,X ;? KERARETA BNE SITO080 ; LDA ENCMKI,X ;? SAKASAMA BEQ SITO0F0 JMP SITO0C0 ; ;---------------------------------------- SITO0F0 EQU $ JSR SITO100 ; TXA ;ARUKU EOR RNDSET ;LDA RNDSET ;LDA ESERCHL ;SERCH LDA BIKRST2 RTS ; ;;; LDA ENCLOR,X ;;; AND #0FEH ;;; STA ENCLOR,X ;;; LDA #1*4 ;;; JSL >OAMENT3 ;;; JSL >EN1CSSL ;;; JSR ENSTCK ;;; JSR ENMVCL2 ;xclc,yclc,zclc ;;;; ;;; LDA ENTIM0,X ;;; BNE SITO110 ;;; STZ ENMODE,X ;;;SITO110 EQU $ ;;; RTS ;---------------------------------------- SITO200 EQU $ JSR SITO2CS JSR ENSTCK ;scroll : not return ; ; JSR SITO2MS ; ; JSR ENMVCL2 ;xclc,yclc,zclc ;; JSL >ENBGCKL ; BG check sub ! ;; LDA ENCBFG,X JSR ENBGCK ;; AND #00FH BEQ SITO210 AND #003H BNE SITO220 LDA ENYSPD,X EOR #0FFH INC A STA ENYSPD,X BRA SITO210 SITO220 EQU $ LDA ENXSPD,X EOR #0FFH INC A STA ENXSPD,X SITO210 EQU $ ; ; LDA ENSTAT,X JSL >JSRSUB WORD SITO2M0 WORD SITO2M1 WORD SITO2M2 ;---------------------------------------- SITO2M0 EQU $ TXA ;ARUKU EOR ESERCHL ;SERCH LDA RNDSET ;Z SPEED SET AND #01FH STA ENZSPD,Y ; LDA #060H ;STOP TIME STA ENTIM0,X ; LDA #001H STA ENCHPT,X ;E SET STA ENWRK3,Y ; RTS ;---------------------------------------- SITO2M2 EQU $ LDA ENTIM0,X BNE ST2M210 STZ ENSTAT,X ST2M210 EQU $ RTS ;---------------------------------------- SITO2CD EQU $ WORD 00000,-0007 BYTE 0E0H,046H,000H,002H WORD 00000,00000 BYTE 0E2H,046H,000H,002H WORD 00000,-0007 BYTE 0E0H,046H,000H,002H WORD 00000,00000 BYTE 0C4H,046H,000H,002H ; WORD 00000,-0007 BYTE 0E0H,006H,000H,002H WORD 00000,00000 BYTE 0E2H,006H,000H,002H WORD 00000,-0007 BYTE 0E0H,006H,000H,002H WORD 00000,00000 BYTE 0C4H,006H,000H,002H ; SITO2CS EQU $ LDA #002H STA SETOAML JSL >SADWSTL ; RTS ;---------------------------------------- SITO0OT EQU $ LDA #032H ;OTO JSL >SDLRE3 RTS ;---------------------------------------- SITO2ST EQU $ LDA #SITO0 JSL >ENIDSH BMI ST2ST10 ; JSL >ENIDPS ; LDA #002H ;SITO2 MODE STA ENCONT,Y ; TXA STA ENCMKI,Y ;SITO0 INDEX SAVE ; LDA #001H STA ENNOCR,Y ; beem thru ; ST2ST10 EQU $ RTL ;---------------------------------------- ;;;ST1STSX EQU $ ;;; BYTE 0FCH,004H ;;;ST1STPX EQU $ ;;; WORD 0FFF8H,00010H ;;;ST1STMX EQU $ ;;; BYTE 040H,000H ;;;SITO1ST EQU $ ;;; LDA #SITO0 ;;; JSL >ENIDSH ;;; BMI ST1ST10 ;;;; ;;; PHX ;;; JSL >RNDSET ;;; AND #001H ;;; TAX ;;;; ;;; LDA ENCLOR,Y ;;; AND #03FH ;;; ORA ST1STMX,X ;;; STA ENCLOR,Y ;;;; ;;; LDA ST1STSX,X ;;; STA ENXSPD,X ;;;; ;;; TXA ;;; ASL A ;;; TAX ;;;; ;;; LDA ITMTBL4 AND #001H TAY LDA SITO0ML,Y XBA LDA SITO0MH,Y TAY XBA JSL >ENMSG2L ;MSGE SET BCC ST0MS10 ; LDA ENXSPD,X EOR #0FFH STA ENXSPD,X LDA ENYSPD,X EOR #0FFH STA ENYSPD,X ; LDA ENWRK3,X BEQ ST0MS20 JSR SITO0OT ;OTO SET ST0MS20 EQU $ ; LDA #040H STA ENTIM3,X ; ST0MS10 EQU $ RTS ;---------------------------------------- SITO2ML EQU $ BYTE LOW MS_0542 BYTE LOW MS_0543 SITO2MH EQU $ BYTE HIGH MS_0542 BYTE HIGH MS_0543 ; SITO2MS EQU $ LDA ENTIM3,X BNE ST2MS10 ; LDA >ITMTBL4 AND #001H TAY LDA SITO2ML,Y XBA LDA SITO2MH,Y TAY XBA JSL >ENMSG2L ;MSGE SET BCC ST2MS10 ; LDA ENXSPD,X EOR #0FFH STA ENXSPD,X LDA ENYSPD,X EOR #0FFH STA ENYSPD,X ; LDA #040H STA ENTIM3,X ; ST2MS10 EQU $ RTS ;---------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% UZUMK move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% UUKMVDT EQU $ BYTE 000H,040H,0C0H,080H UZUMKMV EQU $ LDA OAMCHKL JSR ENSTCK ;scroll : not return ; MEM16 IDX8 REP #00100000B ; LDA ENXP2L SEC SBC OAMENT2 MEM16 IDX8 REP #00100000B LDA ENXP2L SEC SBC #00005H STA ENXP2L MEM8 IDX8 SEP #00110000B JSL >EN1CSTL JSR ENSTCK ;scroll : not return ; JSL >CRENPL2L ;PL. BODY CHK BCC UUKMV10 ; LDA ENWRK0,X BNE UUKMV20 ; LDA #p2_warp STA JSRSUB WORD SAMTM00 ;MAN WORD SAMTM01 ;MAN TAKARA YA(2) WORD SAMTM02 ;MAN 300 WORD SAMTM03 ;MAN 20 TAKARA YA(1) WORD SAMTM04 ;MAN 100 TAKARA YA(1) WORD SAMTM05 ;MAN MSGE ONRY WORD SAMTM06 ;MAN MSGE ONRY ;-- WORD SAMTM10 ;RED POTION 150 WORD SAMTM20 ;TATE 50 WORD SAMTM30 ;TATE 100 WORD SAMTM40 ;HART 10 WORD SAMTM50 ;YA*10 30 WORD SAMTM60 ;BOMB*10 50 WORD SAMTM70 ;HACHI 100 ;======================================== SAMTM00 EQU $ LDA URAFLG BEQ SMM0010 ; JSL >OCHECKL JSL >EN1CSTL JSR ENSTCK ; scroll : not return ! ; LDA ENCLOR,X AND #03FH STA ENPLATR ;PL. EN. ATARI SET ; LDY URAFLG ;? URA LDA SM0M0ML,Y XBA LDA SM0M0MH,Y TAY XBA JSL >ENMSGEL ;MSGE SET ; LDA ENSTAT,X BEQ SMM00M0 BRA SMM00M1 ; ; SMM0010 EQU $ LDA #007H STA ENCLOR,X JSL >MJSY1CS JSR ENSTCK ; scroll : not return ! ; LDA ENMSGSL ;MSGE SET INC ENSTAT,X SMM00M1 EQU $ RTS ;======================================== SAMTM01 EQU $ ; JSL >OCHECKL JSL >EN1CSTL JSR ENSTCK ; scroll : not return ! ; JSL >ENPLATR ;PL. EN. ATARI SET ; LDA ENCLOR,X AND #03FH STA JSRSUB WORD SMM01M0 WORD SMM01M1 WORD SMM01M2 ;---------------------------------------- SMM01M0 EQU $ LDA ATBXCT DEC A CMP #002H BCC SM1M010 ; LDA #LOW MS_0551 LDY #HIGH MS_0551 JSL >ENMSGEL ;MSGE SET BCC SM1M010 INC ENSTAT,X SM1M010 EQU $ RTS ;---------------------------------------- SMM01M1 EQU $ ; LDA MSG_RTS BNE SM1M110 ; LDA #030 ;#00030 LDY #000 JSR OKANEDC ;OKANE DEC BCC SM1M110 ; LDA #002H STA ATBXCT ;TAKARA OPEN OK ; LDA #LOW MS_0555 LDY #HIGH MS_0555 JSL >ENMSGSL ;MSGE SET INC ENSTAT,X RTS ; SM1M110 EQU $ LDA #LOW MS_0552 LDY #HIGH MS_0552 JSL >ENMSGSL ;MSGE SET STZ ENSTAT,X RTS ;---------------------------------------- SMM01M2 EQU $ LDA ATBXCT BNE SM1M210 LDA #LOW MS_0554 LDY #HIGH MS_0554 JSL >ENMSGEL ;MSGE SET RTS SM1M210 EQU $ LDA #LOW MS_05C1 LDY #HIGH MS_05C1 JSL >ENMSGEL ;MSGE SET RTS ;======================================== THEFTCS EQU $ LDA OCHECKL JSL >TheftCS RTS ;======================================== SAMTM02 EQU $ JSR THEFTCS JSR ENSTCK ; scroll : not return ! ; JSL >ENPLATR ;PL. EN. ATARI SET ; LDA ENSTAT,X JSL >JSRSUB WORD SMM02M0 WORD SMM02M1 WORD SMM02M2 ;---------------------------------------- SMM02M0 EQU $ LDA #LOW MS_05B0 LDY #HIGH MS_05B0 JSL >ENMSGEL ;MSGE SET BCC SM2M010 INC ENSTAT,X SM2M010 EQU $ RTS ;---------------------------------------- SMM02M1 EQU $ LDA EMYSTT+1 AND #040H BNE SMM02M2 ; LDA EMYSTT+1 ;SAVE ORA #040H STA EMYSTT+1 ; INC ENSTAT,X LDY #046H JMP SAMTMIM ;---------------------------------------- SMM02M2 EQU $ STZ ENSTAT,X RTS ;======================================== SAMTM03 EQU $ JSR EPXYCK TYA EOR #003H STA ENMUKI,X STZ ENCHPT,X ; JSL >MEIR1CS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR ;PL. EN. ATARI SET ; LDA ENSTAT,X JSL >JSRSUB WORD SMM03M0 WORD SMM03M1 WORD SMM03M2 ;---------------------------------------- SMM03M0 EQU $ LDA ATBXCT DEC A CMP #002H BCC SM3M010 ; LDA #LOW MS_05C0 LDY #HIGH MS_05C0 JSL >ENMSGEL ;MSGE SET BCC SM3M010 INC ENSTAT,X SM3M010 EQU $ RTS ;---------------------------------------- SMM03M1 EQU $ ; LDA MSG_RTS BNE SM3M110 ; LDA #020 ;#00030 LDY #000 JSR OKANEDC ;OKANE DEC BCC SM3M110 ; LDA #001H STA ATBXCT ;TAKARA OPEN OK ; LDA #LOW MS_05C1 LDY #HIGH MS_05C1 JSL >ENMSGSL ;MSGE SET INC ENSTAT,X RTS ; SM3M110 EQU $ LDA #LOW MS_05C2 LDY #HIGH MS_05C2 JSL >ENMSGSL ;MSGE SET STZ ENSTAT,X RTS ;---------------------------------------- SM3M2ML EQU $ BYTE LOW MS_0554 BYTE LOW MS_05C1 SM3M2MH EQU $ BYTE HIGH MS_0554 BYTE HIGH MS_05C1 ; SMM03M2 EQU $ SMM04M2 EQU $ LDA ATBXCT TAY LDA SM3M2ML,Y XBA LDA SM3M2MH,Y TAY XBA JSL >ENMSGEL ;MSGE SET RTS ;======================================== SAMTM04 EQU $ JSR THEFTCS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR ;PL. EN. ATARI SET ; LDA ENSTAT,X JSL >JSRSUB WORD SMM04M0 WORD SMM04M1 WORD SMM04M2 ;---------------------------------------- SMM04M0 EQU $ LDA ATBXCT DEC A CMP #002H BCC SM3M010 ; LDA #LOW MS_05C3 LDY #HIGH MS_05C3 JSL >ENMSGEL ;MSGE SET BCC SM4M010 INC ENSTAT,X SM4M010 EQU $ RTS ;---------------------------------------- SMM04M1 EQU $ ; LDA MSG_RTS BNE SM4M110 ; LDA #100 ;#00030 LDY #000 JSR OKANEDC ;OKANE DEC BCC SM4M110 ; LDA #001H STA ATBXCT ;TAKARA OPEN OK ; LDA #LOW MS_05C1 LDY #HIGH MS_05C1 JSL >ENMSGSL ;MSGE SET INC ENSTAT,X RTS ; SM4M110 EQU $ LDA #LOW MS_05C2 LDY #HIGH MS_05C2 JSL >ENMSGSL ;MSGE SET STZ ENSTAT,X RTS ;======================================== SMM05ML EQU $ BYTE LOW MS_05B1 BYTE LOW MS_05B2 SMM05MH EQU $ BYTE HIGH MS_05B1 BYTE HIGH MS_05B2 ; ; SAMTM05 EQU $ SAMTM06 EQU $ JSR THEFTCS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR ; LDA ENCONT,X SEC SBC #SMM05 TAY LDA SMM05ML,Y XBA LDA SMM05MH,Y TAY XBA JSL >ENMSGEL ;MSGE SET RTS ;======================================== SMM10YN EQU 00150 ; SAMTM10 EQU $ JSR SAMTMCS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR ; JSR SAMTMKY BCC SMM1010 ; JSL >BINCHKL ;BIN AKI CHK (A <- INDEX) BMI SMM1020 ; LDA #LOW SMM10YN LDY #HIGH SMM10YN JSR OKANEDC ;OKANE DEC BCC SMM1030 ; STZ ENMODE,X ; LDY #02EH ;RED POTION SET JSR SAMTMIM ; SMM1010 EQU $ RTS ; SMM1020 EQU $ LDA #LOW MS_055E ;MSGE NO LDY #HIGH MS_055E ;MSGE NO JSL >ENMSGSL ;MSGE SET JSR SMMMBUT ;NOT USE ITEM RTS ; SMM1030 EQU $ KANENAS EQU $ LDA #LOW MS_05B6 ;MSGE NO OKANE NASI LDY #HIGH MS_05B6 ;MSGE NO JSL >ENMSGSL ;MSGE SET JSR SMMMBUT ;NOT USE ITEM RTS ;---------------------------------------- SM0STPX EQU $ WORD 0FFD8H-SAMTMCX,0000CH-SAMTMCX,00040H-SAMTMCX ; SMM10ST EQU $ PHA ;POS SAVE PHY LDA #SAMTM LDY #00CH JSL >ENIDSH2 ; PLA ;MODE STA ENCONT,Y STA ENNOCR,Y ; PLA PHX ASL A TAX ; LDA SM0STPX,X STA ENXPSL,Y LDA SM0STPX+1,X STA ENXPSH,Y ; LDA ENPLATR ; JSR SMM30SB ;YA ATARI & KEN ATARI ; JSR SAMTMKY BCC SMM2010 ; LDA >ITMTBL7 ; CMP #001H ; BCS SMM2020 BNE SMM2020 ; LDA #LOW SMM20YN LDY #HIGH SMM20YN JSR OKANEDC ;OKANE DEC BCC SMM2030 ; STZ ENMODE,X ; LDY #004H ;TATE 1 SET JSR SAMTMIM ; SMM2010 EQU $ LDA #01CH STA ENMOD3,X RTS ; SMM2020 EQU $ LDA #LOW MS_0557 LDY #HIGH MS_0557 JSL >ENMSGSL ;MSGE SET JSR SMMMBUT ;NOT USE ITEM RTS ; SMM2030 EQU $ JMP KANENAS ;KANE NASI ;======================================== SMM30YN EQU 00500 ; SAMTM30 EQU $ JSR SAMTMCS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR ; JSR SMM30SB ;YA ATARI & KEN ATARI ; JSR SAMTMKY BCC SMM3010 ; LDA >ITMTBL7 CMP #002H BCS SMM2020 ; LDA #LOW SMM30YN LDY #HIGH SMM30YN JSR OKANEDC ;OKANE DEC BCC SMM2030 ; STZ ENMODE,X ; LDY #005H ;TATE 2 SET JSR SAMTMIM ; SMM3010 EQU $ LDA #01CH STA ENMOD3,X RTS ; SMM30SB EQU $ STZ ENNOCR,X LDA #008H STA ENMOD7,X LDA #004H STA ENMOD5,X ; LDA #01CH STA ENMOD3,X JSL >CRKNENL LDA #00AH STA ENMOD3,X RTS ;======================================== SMM40YN EQU 00010 ; SAMTM40 EQU $ JSR SAMTMCS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR ; JSR SAMTMKY BCC SMM4010 ; LDA >LFITCT ;? LIFE MAX CMP >LFNWCT BEQ SMM4020 ; LDA #LOW SMM40YN LDY #HIGH SMM40YN JSR OKANEDC ;OKANE DEC BCC SMM4030 ; STZ ENMODE,X ; LDY #042H ;HART SET JSR SAMTMIM SMM4010 EQU $ RTS ; SMM4020 EQU $ JSR SMMMBUT ;NOT USE ITEM RTS ; SMM4030 EQU $ JMP KANENAS ;KANE NASI ;======================================== SMM50YN EQU 00030 ; SAMTM50 EQU $ JSR SAMTMCS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR ; JSR SAMTMKY BCC SMM5010 ; LDA >ITEMR50 PHX TAX LDA >YAAAMAX,X PLX CMP >ARWCNT BEQ SMM5020 ; LDA #LOW SMM50YN LDY #HIGH SMM50YN JSR OKANEDC ;OKANE DEC BCC SMM5030 ;DEC KANE ; STZ ENMODE,X ; LDY #044H ;YAAAA*10 SET JSR SAMTMIM ; SMM5010 EQU $ RTS SMM5020 EQU $ LDA #LOW MS_055F LDY #HIGH MS_055F JSL >ENMSGEL ;MSGE SET JSR SMMMBUT ;NOT USE ITEM RTS ; SMM5030 EQU $ JMP KANENAS ;KANE NASI ;======================================== SMM60YN EQU 00050 ; SAMTM60 EQU $ JSR SAMTMCS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR ; JSR SAMTMKY BCC SMM6010 ; LDA >ITEMR49 PHX TAX LDA >BOMBMAX,X PLX CMP >BMBCNT BEQ SMM5020 ; LDA #LOW SMM60YN LDY #HIGH SMM60YN JSR OKANEDC ;OKANE DEC BCC SMM5030 ; STZ ENMODE,X ; LDY #031H ;BOMB*10 SET JSR SAMTMIM ; SMM6010 EQU $ RTS ;======================================== SMM70YN EQU 00010 ; SAMTM70 EQU $ JSR SAMTMCS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR ; JSR SAMTMKY BCC SMM7010 ; JSL >BINCHKL ;BIN AKI CHK (A <- INDEX) BMI SMM7020 ; LDA #LOW SMM70YN LDY #HIGH SMM70YN JSR OKANEDC ;OKANE DEC BCC SMM7030 ; STZ ENMODE,X ; LDY #00EH ;HACHI SET JSR SAMTMIM ; SMM7010 EQU $ RTS ; SMM7020 EQU $ LDA #LOW MS_055E ;MSGE NO LDY #HIGH MS_055E ;MSGE NO JSL >ENMSGSL ;MSGE SET JSR SMMMBUT ;NOT USE ITEM RTS ; SMM7030 EQU $ JMP KANENAS ;KANE NASI ; ;======================================== SMMIMML EQU $ BYTE LOW MS_0559 ;RED POTION BYTE LOW MS_0558 ;TATE 1 BYTE LOW MS_0558 ;TATE 1 BYTE LOW MS_055D ;HART BYTE LOW MS_055A ;YAAAA*10 BYTE LOW MS_055B ;BOMB*10 BYTE LOW MS_055C ;HACHI ; SMMIMMH EQU $ BYTE HIGH MS_0559 ;RED POTION BYTE HIGH MS_0558 ;TATE 1 BYTE HIGH MS_0558 ;TATE 1 BYTE HIGH MS_055D ;HART BYTE HIGH MS_055A ;YAAAA*10 BYTE HIGH MS_055B ;BOMB*10 BYTE HIGH MS_055C ;HACHI ; SAMTMIM EQU $ STZ !ITMVFG PHX ; JSL >ATMSIT PLX ; LDA ENCONT,X SEC SBC #SMM10 BMI SMMIM10 ; TAY LDA SMMIMML,Y XBA LDA SMMIMMH,Y TAY XBA JSL >ENMSGSL ;MSGE SET JSL >MCGTHK ; SMMIM10 EQU $ RTS ;======================================== SMMMBUT EQU $ ;ITEM KAENAI LDA #03CH ;OTO JSL >SDLRE2 RTS ;======================================== ; ; C <-- YES ; c <-- NO ; SAMTMKY EQU $ LDA CRENPL2L BCC SMMKY10 RTS SMMKY10 EQU $ CLC RTS ;======================================== ; A <-- KINGAKU LOW ; Y <-- KINGAKU HIGH ; ; C <-- ON ; c <-- OFF ; ; OKANEDC EQU $ STA CONCNT CMP CONCNT SEC OAEDC10 EQU $ MEM8 IDX8 SEP #00110000B ; RTS ;======================================== SAMTMCX EQU 00004H SAMTMCD EQU $ WORD -0008+SAMTMCX,00016 ;1 BYTE 031H,002H,000H,000H WORD 00000+SAMTMCX,00016 ;5 BYTE 013H,002H,000H,000H WORD 00008+SAMTMCX,00016 ;0 BYTE 030H,002H,000H,000H WORD -0004+SAMTMCX,00000 ;RED POTION BYTE 0C0H,002H,000H,002H WORD -0004+SAMTMCX,00011 ;KAGE BYTE 06CH,003H,000H,002H ; WORD -0004+SAMTMCX,00016 ; BYTE 013H,002H,000H,000H WORD -0004+SAMTMCX,00016 ;5 BYTE 013H,002H,000H,000H WORD 00004+SAMTMCX,00016 ;0 BYTE 030H,002H,000H,000H WORD -0004+SAMTMCX,00000 ;TATE BYTE 0CEH,004H,000H,002H WORD 00000+SAMTMCX,00012 ;KAGE BYTE 038H,003H,000H,000H ; WORD -0008+SAMTMCX,00016 ;5 BYTE 013H,002H,000H,000H WORD 00000+SAMTMCX,00016 ;0 BYTE 030H,002H,000H,000H WORD 00008+SAMTMCX,00016 ;0 BYTE 030H,002H,000H,000H WORD -0004+SAMTMCX,00000 ;TATE BYTE 0CCH,008H,000H,002H WORD 00000+SAMTMCX,00012 ;KAGE BYTE 038H,003H,000H,000H ; WORD -0004+SAMTMCX,00016 ; BYTE 031H,002H,000H,000H WORD -0004+SAMTMCX,00016 ;1 BYTE 031H,002H,000H,000H WORD 00004+SAMTMCX,00016 ;0 BYTE 030H,002H,000H,000H WORD 00000+SAMTMCX,00008 ;HART BYTE 029H,003H,000H,000H WORD 00000+SAMTMCX,00011 ;KAGE BYTE 038H,003H,000H,000H ; WORD -0008+SAMTMCX,00016 ; BYTE 003H,002H,000H,000H WORD -0008+SAMTMCX,00016 ;3 BYTE 003H,002H,000H,000H WORD 00000+SAMTMCX,00016 ;0 BYTE 030H,002H,000H,000H WORD -0004+SAMTMCX,00000 ;YAAAA*10 BYTE 0C4H,004H,000H,002H WORD -0004+SAMTMCX,00011 ;KAGE BYTE 038H,003H,000H,000H ; WORD -0004+SAMTMCX,00016 ; BYTE 013H,002H,000H,000H WORD -0004+SAMTMCX,00016 ;5 BYTE 013H,002H,000H,000H WORD 00004+SAMTMCX,00016 ;0 BYTE 030H,002H,000H,000H WORD -0004+SAMTMCX,00000 ;BOMB*10 BYTE 0E8H,004H,000H,002H WORD -0004+SAMTMCX,00011 ;KAGE BYTE 06CH,003H,000H,002H ; WORD -0004+SAMTMCX,00016 ; BYTE 031H,002H,000H,000H WORD -0004+SAMTMCX,00016 ;1 BYTE 031H,002H,000H,000H WORD 00004+SAMTMCX,00016 ;0 BYTE 030H,002H,000H,000H WORD 00000+SAMTMCX,00008 ;HACHI BYTE 0F4H,00FH,000H,000H WORD 00000+SAMTMCX,00011 ;KAGE BYTE 038H,003H,000H,000H ; SAMTMCS EQU $ LDA ENCONT,X SEC SBC #SMM10 MEM16 IDX8 REP #00100000B AND #000FFH STA SETOAML RTS ;======================================== ENPLATR EQU $ ;PL. EN. ATARI SET LDA ENMOD3,X PHA STZ ENMOD3,X JSL >CRENPL2L BCC EPATR10 JSR EPATRBK EPATR10 EQU $ PLA STA ENMOD3,X RTL ; EPATRBK EQU $ PHX JSL >PLOTCK ;PL. POS. recover STZ DASCLR1 PLX RTS ;======================================== ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% RINGO move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% RINGOMV EQU $ ; JSL >EN1CSTL LDA ENSTAT,X BNE RINGOF1 ; LDA ENWRK3,X BNE RNGF010 ; STZ ENMODE,X ;KILL I ; JSL >RNDSET ;KAZU SET AND #003H CLC ADC #002H TAY RNGF020 EQU $ PHY JSR RINGOST PLY DEY BPL RNGF020 ; RNGF010 EQU $ RTS ;---------------------------------------- RINGOST EQU $ LDA #RINGO JSL >ENIDSH BMI RNGST10 ; JSL >ENIDPS ; LDA #001H ;EAT RINGO STA ENSTAT,Y ; LDA #0FFH ;TIME SET STA ENWRK0,Y ; LDA #008H STA ENZPSL,Y LDA #016H ;Z SPEED SET STA ENZSPD,Y ; JSL >RNDSET ;LDA RNDSET ;LDA ESERCHL ;SERCH ; LDA EN1CSTL RNGF190 EQU $ JSR ENSTCK ;scroll : not return LDA ENWRK0,X ;? TIME BEQ RNGF160 JSR ENMVCL2 ; JSR ENMVCL ;xclc,yclc ; JSR ENZCLC ;zclc JSR CRENPL ;PL. BODY CHK BCC RNGF150 ; ;; JSL >SDLRCE ;OTO ;; ORA #00BH ;; STA SOUND3 LDA #0BH JSL >SDLRE3 ;(S) ; LDA >UPLFCT CLC ADC #008H STA >UPLFCT RNGF160 EQU $ STZ ENMODE,X ;KILL I RTS ;---------------------------------------- RNGF150 EQU $ LDA RYOKICS JSR ENSTCK ;scroll : not return JSL >ENPLATR ; JSL >RNDSET BNE RYOKI10 LDA #020H STA ENTIM0,X RYOKI10 EQU $ STZ ENCHPT,X LDA ENTIM0,X BEQ RYOKI20 INC ENCHPT,X RYOKI20 EQU $ LDA #LOW MS_05A0 LDY #HIGH MS_05A0 JSL >ENMSGEL ;MSGE SET BCC RYOKI30 STZ ENCHPT,X RYOKI30 EQU $ RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% LINE0 INITIAL % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% LINE0IT EQU $ LDA #0FFH STA ENSTATS LDA ENMYNO,X SEC SBC #DOKN0 STA ENMUKI,X ; ; LE0ITSB EQU $ JSR LLBGRD STA ENWRK3,X ;INIT unit set SEC SBC #0B0H BCS L0TSB10 L0TSB20 EQU $ LDA ENXPSL,X CLC ADC #008H STA ENXPSL,X LDA ENXPSH,X ADC #000H STA ENXPSH,X ; LDA ENYPSL,X CLC ADC #008H STA ENYPSL,X LDA ENYPSH,X ADC #000H STA ENYPSH,X BRA LE0ITSB L0TSB10 EQU $ CMP #00FH BCS L0TSB20 ; LDA ENXPSL,X AND #0F8H CLC ADC #004H STA ENXPSL,X LDA ENYPSL,X AND #0F8H CLC ADC #004H STA ENYPSL,X LDA ENMUKI,X ;MUKI SAVE STA ENCMKI,X JSR LINE0SM ; INC ENNOCR,X ;beem thru ; STZ PSSTOP ; LDA #00EH STA ENTIM3,X ; INC ENCHPT,X ;NEXT MOVE RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% LINE0 move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% LINE0MV EQU $ PHB PHK PLB JSR L00000 PLB RTL ;========================================= ;---------------------------------------- LINE0SX EQU $ BYTE 000,000,-16,016,-16,016,016;,-16 LINE0SY EQU $ BYTE -16,016,000,000,-16,016,-16,016 ; LEPLXDH EQU $ BYTE 000,000,-01,000,-01;,000,000,-01 LEPLXDL EQU $ BYTE 000,000,-01,001,-01,001,001;,-01 ; LEPLYDL EQU $ BYTE -01,001,000,000,-01,001,-01,001 LEPLYDH EQU $ BYTE -01,000,000,000,-01,000,-01,000 ; ; L00000 EQU $ LDA ENCHPT,X JSL >JSRSUB WORD LINE0I0 WORD L000010 ;---------------------------------------- LINE0I0 EQU $ JSR LE0ITSB JSL >KEMR1ST LDA ENXPSL,Y SEC SBC #08H STA ENXPSL,Y LDA ENXPSH,Y SBC #00H STA ENXPSH,Y LDA ENYPSL,Y SEC SBC #08H STA ENYPSL,Y LDA ENYPSH,Y SBC #00H STA ENYPSH,Y ; RTS ;---------------------------------------- L000010 EQU $ JSR LINE0CS JSR ENSTCK ; scroll : not return ! ; LDA PLXMVD ORA PLXMVD+1 ORA PLYMVD ORA PLYMVD+1 BEQ LINE060 LINE010DM EQU $ JMP LINE010 ; LINE060 EQU $ LDA CRENPL3L BCC LINE010 ;? PL. TUCH ; ;Y LDA #001H STA ENWRK2,X ; JSL >DASCLR1 ; LDA BGDTRD2 ; LDA UNITNO ; RTS ; ;---------------------------------------- LINE0CX EQU -16 LINE0CY EQU -16 ; LINE0CD EQU $ WORD 00000+LINE0CX,00000+LINE0CY BYTE 0ACH,000H,000H,002H WORD 00016+LINE0CX,00000+LINE0CY BYTE 0ACH,040H,000H,002H WORD 00000+LINE0CX,00016+LINE0CY BYTE 0ACH,080H,000H,002H WORD 00016+LINE0CX,00016+LINE0CY BYTE 0ACH,0C0H,000H,002H ; WORD 00003+LINE0CX,00003+LINE0CY BYTE 0ACH,000H,000H,002H WORD 00013+LINE0CX,00003+LINE0CY BYTE 0ACH,040H,000H,002H WORD 00003+LINE0CX,00013+LINE0CY BYTE 0ACH,080H,000H,002H WORD 00013+LINE0CX,00013+LINE0CY BYTE 0ACH,0C0H,000H,002H ; WORD 00006+LINE0CX,00006+LINE0CY BYTE 0ACH,000H,000H,002H WORD 00010+LINE0CX,00006+LINE0CY BYTE 0ACH,040H,000H,002H WORD 00006+LINE0CX,00010+LINE0CY BYTE 0ACH,080H,000H,002H WORD 00010+LINE0CX,00010+LINE0CY BYTE 0ACH,0C0H,000H,002H ; WORD 00008+LINE0CX,00008+LINE0CY BYTE 0ACH,000H,000H,002H WORD 00008+LINE0CX,00008+LINE0CY BYTE 0ACH,040H,000H,002H WORD 00008+LINE0CX,00008+LINE0CY BYTE 0ACH,080H,000H,002H WORD 00008+LINE0CX,00008+LINE0CY BYTE 0ACH,0C0H,000H,002H ; LINE0CS EQU $ LDA #4*4 JSL >OAMENT2 ; LDA ENTIM3,X AND #00CH ASL A ASL A ASL A ADC #LOW LINE0CD STA SETOAML22 ;;; ;; RTS ;---------------------------------------- ; LINE0MK EQU $ LDA ENWRK3,X SEC SBC #0B0H BCS LINE0MK1 RTS LINE0MK1 EQU $ CMP #00FH BCC LINE0MK2 RTS LINE0MK2 EQU $ JSL >JSRSUB WORD LN0MKB0 WORD LN0MKB1 WORD LN0MKB2 WORD LN0MKB3 WORD LN0MKB4 WORD LN0MKB5 WORD LN0MKB6 WORD LN0MKB7 WORD LN0MKB8 WORD LN0MKB9 WORD LN0MKBA WORD LN0MKBB WORD LN0MKBC WORD LN0MKBD WORD LN0MKBE ; ;--------------------------------------- LN0MKXX EQU $ ;X HOSEI LDA ENMUKI,X EOR ENCMKI,X AND #002H BEQ L0MXX10 LDA ENXPSL,X AND #0F8H CLC ADC #004H STA ENIDSH ;; BMI LN0ST10 ;;; ;; LDA BMWORK+0 ;Y ;; AND #0F8H ;; ORA #004H ;; STA ENYPSL,Y ;; LDA BMWORK+1 ;; STA ENYPSH,Y ;;; ;; LDA BMWORK+2 ;X ;; AND #0F8H ;; ORA #004H ;; STA ENXPSL,Y ;; LDA BMWORK+3 ;; STA ENXPSH,Y ;;; ;; LDA PLMKCH ;MUKI ;; LSR A ;; STA ENMUKI,Y ;;; ;; LDA JSRSUB WORD LINE0IT ;INT WORD DOKN0M0 ;STOP SERCH WORD DOKN0M1 ;? PL. ATARI WORD DOKN0M2 ;PL WALK WORD DOKN0M3 ;MOVE WORD DOKN0M4 ;PL WALK ;---------------------------------------- DOKN0M0 EQU $ JSR LLBGRD ;bg chk. CMP #0BEH ;? STOP BNE DK0M010 STA ENWRK3,X ;unit save INC ENCHPT,X LDA ENMUKI,X EOR #001H STA ENMUKI,X DK0M010 EQU $ CMP ENWRK3,X BEQ DK0M020 STA ENWRK3,X ;unit save DK0M020 EQU $ LDA ENMUKI,X ;MUKI SAVE STA ENCMKI,X JSR DOKN0SM ;muki kae & speed ; JSR LN0MKXY ;X Y HOSEI JSR ENMVCL ; xclc,yclc ! RTS ;---------------------------------------- DOKN0M1 EQU $ LDA ENSTATS CMP #0FFH BNE DK0M110 ; JSL >CRENPL3L BCC DK0M110 PHX JSL >DKHDCK PLX BCS DK0M120 INC ENCHPT,X LDA #004H ;WALK TIME STA ENTIM1,X JSL >PLYCLR1 LDA #001H STA PYALSP STA MRTKFG ;MUTEKI TXA STA ENSTATS ;INDEX SAVE ; DK0M110 EQU $ RTS ; DK0M120 EQU $ JSR EPATRBK RTS ;---------------------------------------- DK0M2DT EQU $ BYTE 008H,004H,002H,001H ; DOKN0M2 EQU $ ;WALK LDA ENTIM1,X BNE DK0M210 INC ENCHPT,X LDA #OMS000 ;PL. OBJ CLS STA SDLRE2 ;(S) DK0M320 EQU $ PLA CMP ENWRK3,X BEQ DK0M330 ;? unit != ; ;Y STA ENWRK3,X ;unit save CMP #0BEH BNE DK0M340 INC ENCHPT,X LDA #018H ;WALK TIME STA ENTIM1,X DK0M340 EQU $ ; LDA ENMUKI,X ;MUKI SAVE STA ENCMKI,X ; JSR DOKN0SM ;muki kae & speed JSR LN0MKXY ;X Y HOSEI ; DK0M330 EQU $ JSR ENMVCL ; xclc,yclc ! ; LDA ENXPSL,X SEC SBC #008H STA PYCRCN JSL >PLOTCK1 JSL >DASCLR1 PLX ; RTS ;---------------------------------------- DOKN0M4 EQU $ LDA ENTIM1,X BNE DK0M410 ; STZ PYALSP STZ PSSTOP STZ MRTKFG ;MUTEKI STZ PYSPST JSL >PYCRCN JSL >PLOTCK1 PLX RTS ;---------------------------------------- ; ; ; ; ; ; ; ; ; ; ; ; ; ;DK0M1MK EQU $ ;; ;DOKN0M1 EQU $ ; LDA ENTIM1,X ; BNE DK0M110 ; LDA #001H ; STA ENCHPT,X ; STZ PYALSP ; STZ PSSTOP ; STZ MRTKFG ;MUTEKI ; RTS ;DK0M110 EQU $ ; JSL >PLYCLR1 ; LDA #001H ; STA PYALSP ; STA MRTKFG ;MUTEKI ; LDY ENMUKI,X ; LDA DK0M1MK,Y ; JSL >PLWALK ; RTS ;;---------------------------------------- ;DOKN000 EQU $ ;; ; LDA #0FFH ; CMP ENSTATS ; BEQ DOKN060 ; CPX ENSTATS ; BEQ DOKN060 ; JMP DOKN010 ;DOKN060 EQU $ ;; ;;;; MEM16 ;;;; IDX8 ;;;; REP #00100000B ;;;;; ;;;; LDA ENXP2L ;;;; SEC ;;;; SBC CRENPL3L ; BCS DOKN080 ;? PL. TUCH ; JMP DOKN010 ;DOKN080 EQU $ ; PHX ; JSL >DKHDCK ; PLX ; BCC DOKN088 ; JSR EPATRBK ; RTS ;DOKN088 EQU $ ; JSL >DASCLR1 ;; ; LDA #007H ; STA ENTIM2,X ; LDA ENTIM0,X ; BNE DOKN090 ; LDA #008H ; STA ENTIM1,X ; INC ENCHPT,X ; RTS ;DOKN090 EQU $ ; LDA #003H ;SPEED ; STA ENCONT,X ;; ; LDA #001H ; STA ENWRK2,X ;; ; LDA SDLRCE ;OTO ;;; ORA #00BH ;;; STA SOUND2 ; LDA #0BH ; JSL >SDLRE2 ;(S) ;DOKN072 EQU $ ; PLA ; CMP ENWRK3,X ; BEQ DOKN030 ;? unit != ;; ;Y ; STA ENWRK3,X ;unit save ;; ; LDA ENMUKI,X ;MUKI SAVE ; STA ENCMKI,X ;; ; JSR DOKN0SM ;muki kae & speed ; JSR LN0MKXY ;X Y HOSEI ;; ;DOKN030 EQU $ ; JSR ENMVCL ; xclc,yclc ! ;; ; LDA ENXPSL,X ; SEC ; SBC #008H ; STA PYCRCN ; JSL >PLOTCK1 ; ; JSL >DASCLR1 ; PLX ;; ; RTS ;;---------------------------------------- ;DOKN010 EQU $ ; LDA ENWRK2,X ; BEQ DOKN040 ; STZ PYALSP ; STZ ENBGCKL ; BG check sub ! ;; LDA ENCBFG,X JSR ENBGCK AND #003H BEQ YOSEI40 ; LDA ENXSPD,X EOR #0FFH INC A STA ENXSPD,X LDA ENMUKI,X EOR #0FFH INC A STA ENMUKI,X LDA #020H STA ENTIM1,X ; YOSEI40 EQU $ LDA ENCBFG,X AND #00CH BEQ YOSEI50 ; LDA ENYSPD,X EOR #0FFH INC A STA ENYSPD,X LDA ENWRK0,X EOR #0FFH INC A STA ENWRK0,X LDA #020H STA ENTIM1,X ; YOSEI50 EQU $ LDA ENXSPD,X BEQ YOSEI10 ; BPL YOSEI20 LDA ENCLOR,X AND #0BFH BRA YOSEI30 YOSEI20 EQU $ LDA ENCLOR,X ORA #040H YOSEI30 EQU $ STA ENCLOR,X ; YOSEI10 EQU $ ; LDA ENSTAT,X ; JSL >JSRSUB ; WORD YOSEIM2 ; WORD YOSEIM1 ; WORD YOSEIM0 ;---------------------------------------- YOSEIM0 EQU $ JSR ENMVCL ;xclc,yclc ; LDA RNDSET ;LDA RNDSET ;LDA ESERCHL ;SERCH ; LDA RNDSET ;Z SPEED SET AND #001H TAY LDA YOSEISZ,Y CLC ADC ENZSPD,X STA ENZSPD,X ; ; LDY #000H ;Z POS LDA ENZPSL,X ;Z CHK ; BMI YSIM070 LDY #008H ;Z POS CMP #008H BCC YSIM070 LDY #018H ;Z POS CMP #018H BCC YSIM090 ; TYA STA ENZPSL,X LDA #0FBH STA ENZSPD,X YSIM090 EQU $ RTS ; YSIM070 EQU $ TYA STA ENZPSL,X LDA #005H STA ENZSPD,X RTS ;---------------------------------------- YOSEISTL EQU $ ;PL. BIN USE LDA #YOSEI JSL >ENIDSH BMI YSSTL10 ; LDA EPXYCK2 RTS ;================================================================ EPXCHK EQU $ JSL >EPXCHK2 RTS ;- - - - - - - - ;================================================================= EPYCHK EQU $ JSL >EPYCHK2 RTS ;=========================================== 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 ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK AND #00001111B BEQ ENHB10 ; CMP #00000100B BCS ENHB01 ; STZ ENHNXS,X STZ ENXSPD,X BRA ENHB02 ENHB01 EQU $ STZ ENHNYS,X STZ ENYSPD,X ENHB02 EQU $ ; LDA ENXSPD,X ; BPL ENHB01 ; EOR #0FFH ; INC A ;ENHB01 EQU $ ; STA ENBGCKL ; LDA ENCBFG,X ; AND #00001111B ; BEQ ENHB10 ;; ; CMP #00000100B ; BCS ENHB01 ;; ; STZ ENHNXS,X ; STZ ENXSPD,X ; BRA ENHB02 ;ENHB01 EQU $ ; STZ ENHNYS,X ; STZ ENYSPD,X ;ENHB02 EQU $ ;; LDA ENXSPD,X ;; BPL ENHB01 ;; EOR #0FFH ;; INC A ;;ENHB01 EQU $ ;; STA OAMCHKL BCC O2010 PLA PLA O2010 EQU $ RTS ;- - - - - - - - - - - - - - - - - - ;=============================================== ITMZST EQU $ ; Item mizu in hamon set ! LDA >ENFRNO,X CMP #08H BEQ ITMZ10 CMP #09H BNE ITMZ90 ; mizu in ? ITMZ10 EQU $ ; yes ! LDA ENMOD2,X AND #00100000B BEQ ITMZ20 ; small size ? LDA ENXP2L ; yes ! xpos rivise ! SEC SBC #04H STA ENXP2L LDA ENXP2H SBC #00H STA ENXP2H ; LDA ENMYNO,X CMP #TUBO1 BNE ITMZ20 ; LDA ENYP2L SEC SBC #07H STA ENYP2L LDA ENYP2H SBC #00H STA ENYP2H ITMZ20 EQU $ JSL >MZSUB JSL >PSSAVE2 ;; LDA #04H*4 LDA ENMOD0,X AND #1FH INC A ASL A ASL A JSL >OAMENT1 ITMZ90 EQU $ ;; LDA #00H ;; STA >ENFRNO,X RTL ;=============================================== ;=============================================== ;=============================================== ;=============================================== ;=============================================== ;=============================================== ;=============================================== ;=============================================== ;=============================================== ;=============================================== ;=============================================== ;=============================================== ;=============================================== ;=============================================== ;=============================================== END ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MSGCHK EQU $ STA MSGENOL STZ MSGENOH ; LDA ENMOD0,X PHA LDA #80H STA ENMOD0,X LDA ENMOD3,X PHA LDA #07H STA ENMOD3,X JSL >CRENPL2L PLA STA ENMOD3,X PLA STA ENMOD0,X BCC MSC010 ; MEM16 REP #00100000B ; LDA PLSVX1 STA CRKNENL ; PLA STA ENMOD2,X INC ENMOD3,X STZ ENMOD5,X ; LDA FLMODE BNE MB0000 ;- - ken Body check - - JSL >CRKNENL ;- - Player body check - - MB0000 EQU $ ;; LDA #18H INC ENMOD3,X JSR CRENPL ; LDA ENSTAT,X JSL >JSRSUB WORD MBWAIT WORD MBSTOP WORD MBWALK WORD MBATCK ;-----Eye set & Tail fulifuri----------------------------------------------- MESPTD EQU $ HEX 1,2,3,3,3,3,3,2 MBTLAD EQU $ HEX 01,FF MBTLLM EQU $ HEX 06,00 ; MBEYEST EQU $ LDA RNDSET AND #7FH ORA #40H STA ENTIM0,X AND #07H TAY LDA MBWKXS,Y STA ENXSPD,X LDA MBWKYS,Y STA ENYSPD,X RTS MBS010 EQU $ ;XYSDCL EQU $ ; STZ ENXSPD,X ; STZ ENYSPD,X RTS ;=========================================================== MBWXLM EQU $ HEX B8,38 MBWYLM EQU $ HEX 70,44 MBWKPT EQU $ HEX 0,1 ; MBWALK EQU $ LDA ENTIM0,X BNE MBWK10 ; INC ENCTFG,X LDA ENCTFG,X CMP #02H BNE MBWK08 ; Atack time ? ; ; yes ! STZ ENCTFG,X INC ENSTAT,X LDA #0FFH STA ENTIM0,X BRA MBWK10 MBWK08 EQU $ DEC ENSTAT,X LDA #30H STA ENTIM0,X MBWK10 EQU $ ; - - Move limit check - - - LDY #00H LDA ENXSPD,X BPL MBWK18 INY MBWK18 EQU $ LDA ENXPSL,X CMP MBWXLM,Y BNE MBWK20 ; LDA ENXSPD,X EOR #0FFH INC A STA ENXSPD,X JSR ENXCLC JSR ENXCLC LDA #20H STA ENTIM0,X MBWK20 EQU $ LDY #00H LDA ENYSPD,X BPL MBWK28 INY MBWK28 EQU $ LDA ENYPSL,X CMP MBWYLM,Y BNE MBWK30 ; LDA ENYSPD,X EOR #0FFH INC A STA ENYSPD,X JSR ENYCLC JSR ENYCLC LDA #20H STA ENTIM0,X MBWK30 EQU $ INC ENCONT,X LDA ENCONT,X LSR A LSR A AND #01H TAY LDA MBWKPT,Y STA ENCHPT,X JSR ENMVCL ; RTS ;=========================================================== MBATPT EQU $ HEX 0,0,0,0,0,0,1,2 HEX 3,4,4,4,4,4,4,4 HEX 4,4,4,4,4,3,2,1 HEX 0,0,0,0,0,0,0,0 ;- - - - - - MBATCK EQU $ LDA #02H STA ENCHPT,X LDA ENTIM0,X BNE MBA010 ; LDA #01H STA ENSTAT,X LDA #20H STA ENTIM0,X RTS ;- - - - - - - - - MBA010 EQU $ CMP #80H BNE MBA020 PHA JSR MOTAMST PLA MBA020 EQU $ LSR A LSR A LSR A TAY LDA MBATPT,Y STA ENWRK1,X RTS ;=========================================================== MOTAMST EQU $ LDA #MOTAM JSL >ENIDSH BMI MS0010 ; JSL >ENIDPS ; LDA