; ; INCLUDE zel_ram.asm ; ;-------------------------------------------------------------------- ; ; ZELDA-3 1991.05.23(THU) ; ;-------------------------------------------------------------------- ; ORG 058000H ; ;=============================================== (zel_enmy2) =========== GLB EVCHCKE,ENXSDN,ENYSDN,ENMSG2L,ENMSGEL,ENMSGSL GLB SETOAML,ENMKIST,MSGSET,HEIS0CS2,ASIMZST ;---------------------------------------- GLB NOPPOMV,JIJI1MV,ONNAAMV,HIGEEMV,MAJOOMV,HIGEEIT GLB JIJI2MV,KIANAMV,DEMONMV,MURYAMV,Z2TMSTL GLB MURMKMV,ESW02MV,SETOAML2 GLB BABA1MV,BABA1IT,JITONIT,JITONMV,BSITEM GLB BARI0MV,HEIS0MV GLB BRSDRS,MKCK16 ; GLB PSW01IT,PSW02IT,PINT1IT,MONORIT ; GLB PSW01MV,PSW02MV,PINT1MV,MONORMV GLB MONORIT,MONORMV GLB OYAGIMV,OYAGIIT,ONNAAIT GLB BOUSIIT,BOUSIMV,SYOBYIT,SYOBYMV,HELP0IT,HELP0MV GLB RANEMIT GLB KINOKIT,KINOKMV,SUKASIT,SUKASMV,MJSY1IT,MJSY1MV GLB UTUWAIT,UTUWAMV,JOHBBIT,JOHBBMV ;-- DATA -- GLB KOMXSD,KOMYSD ;=============================================== (zel_enmy) ============ EXT EPXYCK2,EPXCHK2,EPYCHK2,ENIDSH2,PSERC2L EXT EMOVE,RNDSET,BGDTRD2,ENDMST2,CROJCK2,ENCRST2,BIKRST2 EXT ENBGCKL,CRENPLL,CRKNKNL,CRKNENL,OCHECKL,ENCLER EXT ALOMCKL,ENIDSH,SADWSTL,SADWS2L,CRENPL2L,CRENPL3L,OAMENT3,OAMENT1 EXT PSERCHL,EN1CSTL,ESERCHL,SSERCH2,CACHCKL,ENBDSBL,PSSAVE2 EXT ENENSET,EN1CSSL,OAMENT2,EFLSST,ENDMST3,EHOLE,OAMCHKL EXT EFLSST2 ;--- enmyno -- EXT SKHED,ESW01,SPARL,ATARS,BARI1,ZORAB EXT OCTA1,OCTA2,OCTA3,NYORO,OCTBL,OCTSS EXT TARUH,TARUV EXT KWAUS,KWAU1,SHIGE,SARU1,SEKZ4,PONPK EXT REBA1,ZOOL1,DRGN1,MANY1 EXT JIJII,BABAA,HEITI,PENKI,NOKOG,KUTUU,GAKII,GAKI1 EXT NOPPO,JIJI1,ONNAA,HIGEE,MAJOO,JIJI2,KIANA,BUBUU EXT YATAM,DEMON,MURYA,MURMK,LINE0,LINE1,LINE2,LINE3,BABA1,ESW03,HEIS0,HEI00 EXT TAIHO,HEIS1,HEYA0,HEYA1,HEYA2,KTOBJ,HEIS2,NEZU0,HEBI0,HEBI1 EXT KOMO0,MONOR,HEBO0,MIHA0,OYAGI,ZAKO0 EXT HEIS3,SUNA0,USAG0,HEYA3,HANA0,HANA1,TAMA0,DOZOO EXT BOUSI,SYOBY,HELP0,ESW12,RANEM,ZORAS,NOMOS,KINOK EXT SUKAS,MJSY1,JITON,ESW04,ZORA2,MEDUS,UTUWA,ARI00,ARI01 EXT JOHBB,MOTAM ;-------------- EXT HEIT1 ;-------------- item EXT HART1,RUPYR,RUPYY,RUPYB,BOMB1,BOMB2,BOMB3,NIKU1 EXT NIKU2,OPTN1,TUBO1,TUBO2,CRYS1,TRYFR,TRYFY,TRYFB EXT SPESR,SPESY,SPESB,YAAA1,YAAA2,YOSEI ;-------------- EXT HART1,PORT1,PORT2 EXT ESET0,ESET1,ESET2 EXT EFAIL,ECACH,EWATR ;=============================================== (zel_endt) ============ EXT EXSTRA,ENEMY2,ENBTON,EFLCHK,ENCLST EXT SINDT2,ZSZNZST,HEICAL,ENIDPS ;=============================================== (zel_main) ============ ; EXT DTSAVE EXT GDCHCK,JSRSUB ; EXT MD_title,MD_djint,MD_djply,MD_gdint,MD_gdply EXT MD_fdout,MD_fdin,MD_etcpl EXT MD_wpout,MD_wpin ;=============================================== (zel_play) ============ EXT DASCLR1,DASHON EXT EATSET,TKDINT EXT YAMOV,TKDOW EXT YAIMIT EXT ATMSIT,PLOTCK EXT p2_kage,TRFS ;/////// EXT RDCHCK ;=============================================== (zel_bg3) ============= EXT MTRSUB,ITEM0ST ;=============================================== (grnd) ============= EXT MKDRPLY ;=============================================== (zel_init) ============= EXT p3_msge EXT MPBTSET1,ROBJCST ;================================================(enmy3)================= EXT DEMBMMV ;================================================(end2)================= EXT GRNDCHK,SDLRCE,SHBGCK EXT HELP0CS ;================================================(char)================= EXT OPTCBFST,THCGCN0,THCGCN1,THCGCN2 ;================================================(endt)================= EXT GRENST,EST0SB EXT DEMBMST,KEMR1ST,KEMR2ST ;================================================(exst)================= EXT BEAM1,BEAM2,BUME1,BOMBM,YAMOV,DTMOV ;;;;,BOMBR EXT DTMV1,DTMV2,OPMOV,WTMV0,HIBA2,SCPMV,DTMV3 EXT RAOPIT,ATMSIT,OTIM,SODMV,SNDINT,BOGN,KNSP EXT SPBMV,SPBMINT,KONMV EXT nashi,prnce,jjmov,jjwat,jjsmv,mesmv,babaa,bbwat EXT kajya,hnoji ;================================================(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 ;============================================================= ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Big motos tama % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MOTAMM EQU $ LDA ENCHPT,X BNE MTM010 ; LDA ENXP2L CLC ADC #04H STA ENXP2L LDA ENXP2H ADC #00H STA ENXP2H LDA ENYP2L CLC ADC #04H STA ENYP2L LDA ENYP2H ADC #00H STA ENYP2H ; JSL >EN1CSSL ; JSL >PSSAVE2 BRA MTM020 ;- - - - - - - - - - - - - - - - - MTM010 EQU $ JSL >EN1CSTL MTM020 EQU $ JSR ENSTCK JSL >CRENPLL ; LDA ENSTAT,X JSL >JSRSUB WORD MTSTOP WORD MTGO WORD MTCHG WORD MTSML0 WORD MTSML1 ;================================================= MTSTOP EQU $ LDA ENTIM0,X BNE MTS080 ; LDA #18H STA ENTIM0,X INC ENSTAT,X LDA #30H STA ENYSPD,X MTS080 EQU $ RTS ;================================================= MTGO EQU $ LDA ENTIM0,X BNE MTG010 ; INC ENSTAT,X LDA #1FH STA ENTIM0,X MTG010 EQU $ DEC ENYSPD,X DEC ENYSPD,X JSR ENYCLC RTS ;================================================= MTCGPT EQU $ HEX 2,2,1,0 ; MTCHG EQU $ LDA ENTIM0,X BNE MTCG10 ; JMP MTS0ST MTCG10 EQU $ LSR A LSR A LSR A ;; LSR A TAY LDA MTCGPT,Y STA ENCHPT,X RTS ;================================================= MTSML0 EQU $ LDA ENTIM0,X BNE MTS000 ; JMP MTS1ST MTS000 EQU $ LDA ENKBMK,X CMP #20H BCS MTS020 ; INC ENKBMK,X JSR ENMVCL MTS020 EQU $ RTS ;================================================= MTSML1 EQU $ JSR ENMVCL RTS ;================================================= MS0XSD EQU $ HEX 00,1C,E4 MS0YSD EQU $ HEX E0,18,18 ; MTS0ST EQU $ STZ ENMODE,X ; LDA #02H STA ENHELP MS0010 EQU $ LDA #MOTAM JSL >ENIDSH BMI MS0090 ; JSL >ENIDPS ; LDA RNDSET ;; AND #0FH ;; ADC #10H ;; STA ENTIM0,Y JSL >RNDSET STA ENIDSH BMI MS1090 ; JSL >ENIDPS ; ; LDA EN1CSTL JSR ENSTCK ; LDA ENTIM0,X BNE HOD010 ; LDA #80H STA ENTIM0,X ; LDA ENWRK0,X EOR #01H STA ENWRK0,X HOD010 EQU $ LDY ENWRK0,X LDA HODXSD,Y STA ENXSPD,X LDA HODYSD,Y STA ENYSPD,X JSR ENMVCL ; TXA ASL A ASL A ;; ASL A ;; ASL A CLC ADC ENIDSH2 BMI HTS030 ; JSL >SDLRCE ORA #07H STA SOUND3 ;(S) ; LDA #01H STA ENWRK2,Y STA ENCHPT,Y ; LDA ENMUKI,X PHX TAX LDA ENIDSH ; BMI HTS040 ; ; LDA #20H ; STA ENTIM0,Y ; ; LDA #02H ; STA ENWRK2,Y ; ; LDA ENMUKI,X ; PHX ; TAX ; LDA JSRSUB WORD YASANMV WORD TAKOSMV WORD HANDSMV ;====== Ossan move ========= YSPTDT EQU $ HEX 3,4,3,2 ;- - - - - - - - - - - - - - YASANMV EQU $ LDA YAAACT BNE YS00F0 ; INC YAAOFF ; ya not shot !! YS00F0 EQU $ ;; LDA #01H ;; STA ENNOCR,X ; zel_enmy ; JSR YASANCS JSR ENSTCK ; LDA ENTIM0,X BEQ YS0010 AND #00000100B ; Dod don !!!!! LSR A LSR A BRA YS0009 ;; STA ENCHPT,X ;; RTS ;- - - - - - - - - - - - - - - - - - - - - - YS0010 EQU $ LDA ENSTAT,X BEQ YS0008 ; LDA CRENPL2L BCC YS0020 ; LDA CONCNT CMP #0020H MEM8 SEP #00100000B BCC YS0070 ; Have money ? ; ; yes ! INC ENSTAT,X ; LDA #MS_0131 BRA YSMSST ; YS0050 EQU $ STZ ENSTAT,X ; No ! ; LDA #MS_0132 YSMSST EQU $ STA MSGENOL STZ MSGENOH JSL >MSGSET RTS ;------------------------------------------- YS0070 EQU $ STZ ENSTAT,X ; No ! ; LDA #MS_0133 ; shibakuzoo !!!!!!! BRA YSMSST ;------------------------------------------- ;-- YA count display -- YS0090 EQU $ LDA ENKBMK,X BNE YD0000 ; LDA #05H STA YAAACT ; count set ! ; LDA #05H STA >UPAWCT ;Main ya count inc ! ; MEM16 REP #20H LDA >CONCNT SEC SBC #0020H STA >CONCNT MEM8 SEP #20H ; ;; LDA #20 ;; STA >DWCNCT ; coin -20 ; INC ENKBMK,X YD0000 EQU $ LDA #0DH*4 JSL >OAMENT1 JSR OAMCHK ; PHX LDA YAAACT ASL A CLC ADC #07H TAX YDC010 EQU $ LDA OCHECKL ; JSR OAMCHK LDA ENCHPT,X ASL A ADC ENCHPT,X STA ALOMCKL RTS ;======================================================== TKATCT EQU $ BYTE 02,04,08,12,20 ;; BYTE 10,20,30,40,50,60,70,80,90 ; ;=====atari tako================================================ TAKOSMV EQU $ LDA ENMOD0,X AND #11100000B STA ENMOD0,X ; oam use !! ; LDA ENTIM2,X BNE TAKM09 LDA ENCONT,X LSR A LSR A LSR A TAKM09 EQU $ AND #00000100B ASL A ASL A ASL A ASL A STA EN1CSTL ; LDA ENTIM2,X BEQ TAKM10 ; PHA LDA ENMOD0,X ORA #05H STA ENMOD0,X ; oam use !! PLA ; CMP #60H BNE TAKM08 ; COIN COUNTET UP ? ; LDA #70H STA ENTIM0+00 ; Ossan move ! ; ;; LDY YAHTCT LDY ENWRK1,X LDA #00H XBA LDA TKATCT-1,Y MEM16 REP #20H CLC ADC >CONCNT STA >CONCNT MEM8 SEP #20H ;; LDA #000H ;; ADC >UPCNCT+1 TAKM08 EQU $ JSR COINDP ; Coin display ! TAKM10 EQU $ BRA HDM000 ;=====hazure hand================================================ HANDSMV EQU $ LDA ENMOD0,X AND #11100000B STA ENMOD0,X ; oam use !! JSL >EN1CSTL HDM000 EQU $ JSR ENSTCK INC ENCONT,X JSR ENXCLC ; LDA ENTIM1,X BNE HDM010 LDA ENTIM0,X STA ENNOCR,X BNE HDM020 ; JSL >ENBGCKL LDA ENCBFG,X BEQ HDM010 LDA #10H STA ENTIM0,X STZ ENTIM2,X HDM010 EQU $ RTS ;---------------------------------------- HDMXST EQU $ HEX E8,08 ; HDM020 EQU $ CMP #01H BNE HDM030 ; LDY ENCHPT,X LDA HDMXST,Y STA ENXPSL,X LDA BIKRST2 ; Bikkuri set ! RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ARMRVL EQU $ HEX FF,01 ARMRVH EQU $ HEX FF,00 ;- - - - - - - - - - - - - - - - - - - - ; LDA ENWRK0,X ; BEQ ARI00M ; mushi ? ;; ; yes ! ; JMP ARMSIMV ;; ARI00M EQU $ JSR EPXYCK LDA OAMENT2 ARM008 EQU $ JSR ARI00CS ; ;; JSR ENSTCK ;;; ;; JSR EPXYCK ;; LDA CRENPL2L BCC ARM00C ; JSL >DASCLR1 ;DASH KINSI!! ; LDA PSERCHL ; LDY #00H LDA JSRSUB WORD A0WAIT WORD A0UP WORD A0SHOT WORD A0DOWN ;------------------------------------- A0WAIT EQU $ LDA #06H STA ENCHPT,X ; LDA ENTIM0,X BNE A0W010 ; INC ENSTAT,X ;; LDA #1FH LDA #3FH STA ENTIM0,X A0W010 EQU $ RTS ;---------------------------------------- A0UPTD EQU $ HEX 5,4,3,3 ; A0UP EQU $ LDA ENTIM0,X BNE A0U010 INC ENSTAT,X ;; LDA #80H LDA #0FFH STA ENTIM0,X RTS A0U010 EQU $ LSR A LSR A LSR A LSR A TAY LDA A0UPTD,Y STA ENCHPT,X RTS ;---------------------------------------- ; A0SHOT EQU $ LDA ENIDSH ;; BMI ARS010 ;;; ;; LDA JSRSUB WORD AMWAIT WORD AMUP WORD AMSHOT WORD AMDOWN ;------------------------------------- AMWAIT EQU $ LDA ENTIM0,X STA ENNOCR,X BNE AMW010 ; INC ENSTAT,X LDA #1FH STA ENTIM0,X AMW010 EQU $ RTS ;---------------------------------------- AMUPTD EQU $ HEX 01,00 ; AMUP EQU $ JSR CREKEK ; LDA ENTIM0,X BNE AMU010 INC ENSTAT,X LDA #80H STA ENTIM0,X RTS AMU010 EQU $ LSR A LSR A LSR A LSR A TAY LDA AMUPTD,Y STA ENCHPT,X RTS ;---------------------------------------- AMSHOT EQU $ JSR CREKEK ; LDA ENTIM0,X BNE AMS010 ; LDA #1FH STA ENTIM0,X INC ENSTAT,X RTS AMS010 EQU $ ;; CMP #40H ;; BNE AMS020 AND #1FH BNE AMS020 ; JSR Z2TMST AMS020 EQU $ INC ENCONT,X LDA ENCONT,X LSR A LSR A LSR A AND #01H CLC ADC #02H STA ENCHPT,X RTS ;---------------------------------------- AMDPTD EQU $ HEX 00,01 ; AMDOWN EQU $ JSR CREKEK ; LDA ENTIM0,X BNE AMD010 STZ ENSTAT,X LDA #0DFH STA ENTIM0,X RTS AMD010 EQU $ LSR A LSR A LSR A LSR A TAY LDA AMDPTD,Y STA ENCHPT,X RTS ;============================================== AMCXAD EQU $ WORD 00,08,00,08 WORD 00,00,00,08 WORD 0,0,0,0 WORD 0,0,0,0 AMCYAD EQU $ WORD 02,02,06,06 WORD 0FFFEH,0FFFEH,06,06 WORD 0FFFCH,0FFFCH,0FFFCH,0FFFCH WORD 0FFFCH,0FFFCH,0FFFCH,0FFFCH AMCCDT EQU $ HEX 00,00,D8,D8 HEX 00,00,D9,D9 HEX 00,00,00,00 HEX 20,20,20,20 AMCADT EQU $ HEX 09,49,00,40 HEX 09,09,00,40 HEX 09,09,09,09 HEX 09,09,09,09 AMCSBD EQU $ HEX 00,00,00,00 HEX 02,02,00,00 HEX 02,02,02,02 HEX 02,02,02,02 ;- - - - - - - - - - - - - - - - - - - - - ARMSICS EQU $ LDA #04H*4 JSL >OAMENT3 ; JSR OAMCHK ; LDA ENCHPT,X ASL A ASL A STA JSRSUB WORD ATARS00 ;KEN WORD ATARS01 ;HIKARI 1 WORD ATARS02 ;HIKARI 2 ;---------------------------------------- ATARS00 EQU $ PHX LDX GNDTBL,X PLX AND #01000000B BEQ ATARS10 JMP ATRM08 ; already have ? ATARS10 EQU $ ; ; no JSR ATARSCS ;---------------------------------------;tottemo ii ?------------ LDA ENSTAT,X JSL >JSRSUB WORD ATARSM0 WORD ATARSM1 WORD ATARSM2 WORD ATARSM3 ;---------------------------------------- ATARSM0 EQU $ JSL >CRENPL2L BCC ATRM010 ; LDA ITEMR23 ; ashi hire BEQ ATRM010 LDA >ITEMR21 ; grouve blue BEQ ATRM010 LDA >ITEMR22 ; vible BEQ ATRM010 JSR HIKA1ST INC ENSTAT,X LDA #0D8H STA ENTIM0,X ; ATRM010 EQU $ RTS ;---------------------------------------- ATARSM1 EQU $ LDA ENTIM0,X BNE ATSM110 ; LDA #000H LDY #0FFH ;TIME JSR HIKA2ST INC ENSTAT,X LDA #008H STA ENTIM0,X ATSM110 EQU $ LDA #00AH BRA ATSM220 ;---------------------------------------- ATARSM2 EQU $ LDA ENTIM0,X BNE ATSM210 LDA #001H LDY #0FFH ;TIME JSR HIKA2ST INC ENSTAT,X LDA #010H STA ENTIM0,X ATSM210 EQU $ LDA #00BH ATSM220 EQU $ STA HIKUFG LDA #001H STA PYALSP RTS ;---------------------------------------- ATARSM3 EQU $ ;GET LDA ENTIM0,X BNE ATRM10 PHX ; yes ! LDX GNDTBL,X ORA #01000000B STA >GNDTBL,X ; LDY #01H JSL >ATMSIT ; jyaaan ! PLX LDA #004H ;MAP MODE STA >MODTBL2 ATRM08 EQU $ STZ HIKUFG STZ PYALSP STZ ENMODE,X ATRM10 EQU $ RTS ;====================================================== ATR01DT EQU $ BYTE 0,1,1,2,2,2,1,1,0 ATR01D1 EQU $ BYTE 0,0,1,1,2,2,0,0,0 ATARS01 EQU $ JSR HIKA1CS ; INC ENWRK0,X LDA ENWRK0,X BNE ATA0110 STZ ENMODE,X ATA0110 EQU $ LSR A LSR A AND #003H STA ENMUKI,X LDA ENWRK0,X LSR A LSR A LSR A LSR A LSR A AND #007H TAY LDA ATR01DT,Y STA ENCHPT,X LDA ATR01D1,Y BEQ ATA0120 TAY LDA ENWRK0,X LSR A LSR A AND #001H JSR HIKA2ST ATA0120 EQU $ RTS ;---------------------------------------- HIKA1CD EQU $ WORD -0006,00004 BYTE 082H,000H,000H,002H WORD -0006,00004 BYTE 082H,040H,000H,002H WORD -0006,00004 BYTE 082H,0C0H,000H,002H WORD -0006,00004 BYTE 082H,080H,000H,002H ; WORD -0006,00004 BYTE 0A0H,000H,000H,002H WORD -0006,00004 BYTE 0A0H,040H,000H,002H WORD -0006,00004 BYTE 0A0H,0C0H,000H,002H WORD -0006,00004 BYTE 0A0H,080H,000H,002H ; WORD -0006,00004 BYTE 080H,000H,000H,002H WORD -0006,00004 BYTE 080H,040H,000H,002H WORD -0006,00004 BYTE 080H,0C0H,000H,002H WORD -0006,00004 BYTE 080H,080H,000H,002H ; ; HIKA1CS EQU $ LDA #001H ;KAZU SET STA SETOAML2 ; RTS ;---------------------------------------- HIKA1ST EQU $ LDA #ATARS JSL >ENIDSH ; JSL >ENIDPS ; LDA EN1CSTL ; LDA ENWRK0,X BEQ ATA0210 JSR ENMVCL ;xclc,yclc LDA ENIDSH BMI HI3ST10 ; LDA ENIDSH BPL HI2ST20 JMP HI2ST10 ; HI2ST20 EQU $ LDA ENIDSH BPL HI2ST30 JMP HI2ST10 ; HI2ST30 EQU $ LDA ENIDSH BPL HI2ST40 JMP HI2ST10 ; HI2ST40 EQU $ LDA ENIDSH BMI HI2ST10 ; LDA ALOMCKL RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% CNMXSD EQU $ HEX F0,10,00,00 CNMYSD EQU $ HEX 00,00,F0,10 ; ;;CNMTIM EQU $ ;; HEX 40,80 ; CHAN0M EQU $ CHAN1M EQU $ CHAN2M EQU $ CHAN3M EQU $ LDA ENMUKI,X AND #02H STA EN1CSTL ;; JSL >CRENPL2L ;; BCC MD00000 ;;; ;; MEM16 ;; REP #20H ;; LDA PLSVX1 ;; STA ENCLST RTS MDW010 EQU $ CMP #0FH BNE MDW020 PHA JSR MBMSET PLA MDW020 EQU $ LSR A AND #00001110B EOR ENCLOR,X STA ENCLOR,X RTS ; ;- - - - - - - - - - - - - - - - - - - - - MDSHOT EQU $ LDA ENTIM0,X BNE MDS010 STZ ENSTAT,X MDS010 EQU $ RTS ;- - - - - - - - - - - - - - - - - - - - - MDSPIN EQU $ TXA EOR ENIDSH BMI MBST90R ; JSL >SDLRCE ORA #19H STA SOUND3 ;(S) ; PHX LDX #00H LDA ENDSXL BPL MBST10 DEX MBST10 EQU $ CLC ADC PSERCHL ;; PLX ;; PHX ;; LDA ENMUKI,X ;; TAX ;; LDA H0SHXD,X ;; STA ENXSPD,Y ;; LDA H0SHYD,X ;; STA ENYSPD,Y ;; PLX LDA #00111111B STA ENMOD0,Y LDA #14H STA ENMOD3,Y LDA #01H STA ENWRK2,Y LDA #80H STA ENMOD5,Y ; NOT display out stop ; LDA #02H+1 STA ENCLOR,Y ; LDA #0CH STA ENTIM1,Y ; LDA MDBMCT STA ENCHPT,Y INC MDBMCT ; Set counter ! ; LDA #1FH STA MBXLBF,X LDA ENXPSH,Y STA >MBXHBF,X LDA ENYPSL,Y STA >MBYLBF,X LDA ENYPSH,Y STA >MBYHBF,X DEX DEC OAMENT2 LDY #04H BRA MDC010 MDC00C EQU $ LDA #03H*4 JSL >OAMENT3 LDY #00H MDC010 EQU $ PHX LDX #01H MDC020 EQU $ PHX TXA ASL A TAX MEM16 REP #20H LDA ALOMCKL RTS ; ; ; ;======================================= MDIDDT EQU $ HEX 00,20,40,60 ; MEDBMMV EQU $ LDA ENTIM1,X BNE MDB0F0 ; JSR MEDBMCS ; LDA ENMODE,X BNE MDB0D0 ; display out cleard ? ; ; yes ! DEC MDBMCT RTS MDB0D0 EQU $ JSR ENSTCK ; LDY #03H MDB0E0 EQU $ PHY PHX LDA ENXPSL,X PHA LDA ENXPSH,X PHA LDA ENYPSL,X PHA LDA ENYPSH,X PHA LDA ENCONT,X AND #1FH LDY ENCHPT,X CLC ADC MDIDDT,Y TAX PLA STA >MBYHBF,X PLA STA >MBYLBF,X PLA STA >MBXHBF,X PLA STA >MBXLBF,X PLX ; INC ENCONT,X JSR ENMVCL PLY DEY BPL MDB0E0 ; LDA ENTIM0,X BEQ MDB000 DEC A BNE MDB0F0 STZ ENMODE,X ; DEC MDBMCT ; set count dec ! MDB0F0 EQU $ RTS ; MDB000 EQU $ ; ;; JSR CREKEK JSL >CRENPL2L BCS MDB008 ; JSL >ENBGCKL ; LDA ENCBFG,X BEQ MDB010 ; MDB008 EQU $ LDA #10H STA ENTIM0,X ; JSR H0SDCL ;- - - - flash set - - - LDA #MEDUS JSL >ENIDSH BMI MDB00C ; JSL >ENIDPS ; LDA MBXLBF,X STA MBXHBF,X STA MBYLBF,X STA MBYHBF,X STA EN1CSTL ; JSR ENSTCK ; LDA ENSTAT,X BNE SPI010 ;- - - Init - - INC ENSTAT,X ; LDA #01H STA ENYSPD,X STA ENXSPD,X ; JSL >ENBGCKL LDA ENCBFG,X PHA ; LDA #0FFH STA ENYSPD,X STA ENXSPD,X ; JSL >ENBGCKL ; PLA ORA ENCBFG,X CMP #00000100B BCS SI0020 ; LDY #00H AND #00000001B BNE SI0010 INY SI0010 EQU $ BRA SI0030 ;- - - - - - - - - - - - - - - - - SI0020 EQU $ LDY #02H AND #00000100B BNE SI0030 INY SI0030 EQU $ LDA ENMYNO,X CMP #SPARL BEQ SI0050 INY INY INY INY SI0050 EQU $ LDA SPIMKD,Y STA ENMUKI,X ;- - - Move - - SPI010 EQU $ ;; INC ENCONT,X ;; ; LDA ENCONT,X ;; LSR A ;;;; LSR A ;; AND #03H ;; TAY ;; LDA BBLPTD,Y ;; STA ENCHPT,X ;; LDA ENCLOR,X ;; AND #10111111B ;; ORA BBLADT,Y ;; STA ENCLOR,X ; LDA CRENPLL ; LDY ENMUKI,X LDA KBCBXS,Y STA ENXSPD,X LDA KBCBYS,Y STA ENYSPD,X ; JSL >ENBGCKL ; LDA ENTIM2,X BEQ SPM010 CMP #0CH BNE SPM020 ; LDY ENMUKI,X LDA KBNXM2,Y STA ENMUKI,X BRA SPM020 ; SPM010 EQU $ LDY ENMUKI,X LDA ENCBFG,X AND KBCBC2,Y BNE SPM020 ; LDA #14H STA ENTIM2,X ;; BRA SPM030 SPM020 EQU $ LDY ENMUKI,X LDA ENCBFG,X AND KBCBCK,Y BEQ SPM030 ; LDA KBNXMK,Y STA ENMUKI,X SPM030 EQU $ LDY ENMUKI,X LDA KBMVXS,Y STA ENXSPD,X LDA KBMVYS,Y STA ENYSPD,X RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% TORI0M EQU $ LDA ENTIM1,X BNE TRD020 ; move wait ! ; LDA ENCLOR,X AND #10111111B ; LDY ENXSPD,X BMI TR0000 ORA #40H TR0000 EQU $ STA ENCLOR,X ; MUKI SET ; JSL >EN1CSTL JSR ENSTCK JSR ENMVCL JSR ENZCLC ; LDA ENSTAT,X JSL >JSRSUB WORD TRDOWN WORD TRUP ;-------------------------------------------- TRDOWN EQU $ STZ ENCHPT,X ; LDA ENZSPD,X SEC SBC #01H STA ENZSPD,X CMP #0F1H BPL TRD020 ; INC ENSTAT,X TRD020 EQU $ RTS ;------------------------------------- TRUP EQU $ LDA ENZSPD,X CLC ADC #02H STA ENZSPD,X CMP #10H BMI TRU010 ; STZ ENSTAT,X TRU010 EQU $ INC ENCONT,X LDA ENCONT,X ;; LSR A LSR A AND #01H STA ENCHPT,X RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% RISU0M EQU $ LDA ENTIM1,X BNE RIM090 ; LDA ENCLOR,X AND #10111111B ; LDY ENXSPD,X BMI RS0000 ORA #40H RS0000 EQU $ STA ENCLOR,X ; MUKI SET JSL >EN1CSTL ; JSR ENSTCK JSR ENMVCL JSR ENZCLC LDA ENZSPD,X DEC A DEC A STA ENZSPD,X LDA ENZPSL,X BPL RIM010 STZ ENZPSL,X LDA #010H STA ENZSPD,X LDA #0CH STA ENTIM0,X RIM010 EQU $ LDA #00H LDY ENTIM0,X BEQ RIM018 INC A RIM018 EQU $ STA ENCHPT,X RIM090 EQU $ RTS ; ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% KNXSPD EQU $ HEX 1C,E4,00,00 KNYSPD EQU $ HEX 00,00,0C,F4 ;- - - - - - - - - - - - - - - - - KANI0M EQU $ JSR KANI0CS JSR ENSTCK JSR ENHNSB ; JSR CREKEK JSR ENMVCL JSL >ENBGCKL ; LDA ENCBFG,X BNE KNM008 ; LDA ENTIM0,X BNE KNM010 KNM008 EQU $ JSL >RNDSET AND #3FH ADC #20H STA ENTIM0,X AND #03H STA ENMUKI,X KNM010 EQU $ LDY ENMUKI,X LDA KNXSPD,Y STA ENXSPD,X LDA KNYSPD,Y STA ENYSPD,X INC ENCONT,X LDA ENCONT,X LSR A ;; LSR A ;; LSR A CPY #02H BCC KNM020 LSR A LSR A KNM020 EQU $ AND #01H STA ENCHPT,X RTS ;=================================== KNCXAD EQU $ WORD 0FFF8H,08H WORD 0FFF8H,08H KNCCDT EQU $ HEX 8E,8E HEX AE,AE KNCADT EQU $ HEX 00,40 HEX 00,40 ;- - - - - - - - - - - - - - - - - - - - KANI0CS EQU $ JSR OAMCHK LDA ENCHPT,X ASL A STA SADWSTL RTS ;============================================================== ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% SEKMVM EQU $ JSR SEKMVCS ; JSR ENSTCK JSL >CRENPL2L ; PHP BCC SKM007 MEM16 REP #20H LDA PLSVX1 STA DASHON ; Player dash hanekairi ! SKM007 EQU $ ;; LDA ENSTAT,X PLP LDA INTEKI ; player Inori !! BNE SKM010 ; ;; LDA PSERCHL LDA ENBGCKL LDA ENCBFG,X BEQ SKM020 LDY ENMUKI,X LDA SKMMKD,Y STA ENMUKI,X SKM020 EQU $ RTS ;- - - -- - --- - - SKMXSD EQU $ HEX 20,E0,00,00 SKMYSD EQU $ HEX 00,00,20,E0 SKMMKD EQU $ HEX 3,2,0,1 ;- - - - - - - - - - - - - - - - - - - SKCXAD EQU $ WORD 0FFF8H,08H,0FFF8H,0008H SKCYAD EQU $ WORD 0FFF8H,0FFF8H,08H,08H SKCCDT EQU $ HEX 8E,8E,AE,AE SKCADT EQU $ HEX 00,40,00,40 ;- - - - - - - - - - - - - - - - - - - - - - - SEKMVCS EQU $ JSR OAMCHK LDA ENSTAT,X BNE SKC002 ; JSL >OCHECKL LDY #00H SKC002 EQU $ ; PHX LDX #03H SKC010 EQU $ PHX TXA ASL A TAX MEM16 REP #00100000B LDA OAMENT3 ZTM010 EQU $ JSL >EN1CSSL JSR ENSTCK ; JSL >ZSZNZST ; zanzoo set ! ; LDA ENSTAT,X BEQ ZT0000 ; INC ENSTAT,X CMP #09H BNE ZT00F0 STZ ENMODE,X ZT00F0 EQU $ LSR A STA ENCHPT,X RTS ; ZT0000 EQU $ ; JSL >CRENPLL BCC ZTM011 ; ;; STZ ENMODE,X ZTM0111 EQU $ INC ENSTAT,X RTS ZTM011 EQU $ JSR ENMVCL ;- - - - Hit tate check ---- LDA ENBGCKL LDA ENCBFG,X BNE ZTM0111 ;; BEQ ZTM111 ;; STZ ENMODE,X ZTM111 EQU $ ;; BRA ZTH010 ;- - - - ZTM112 EQU $ ;; LDA WCACHOK LDA ITMTBL7 BEQ ZTH010 ; tate hi power ? ; ; yes ! LDA ENMOD4,Y AND #11011111B STA ENMOD4,Y JSL >ENCRST2 LDA CROJCK2 BCC ZTH010 JSL >EFLSST2 ;; STZ ENMODE,X INC ENSTAT,X ; JSL >SDLRCE ORA #06H STA SOUND2 ;(S) ZTH010 EQU $ ;; JSL >CRENPLL RTS ;-------------------------------------------- ;-------------------------------------------- Z2MFFF EQU $ LDA ENSTAT,X BEQ Z2M000 ; JSR ZORA2CS Z2M000 EQU $ JSR ENSTCK ; LDA ENSTAT,X BEQ Z2WAIT PHA JSR CREKEK PLA ; DEC A BEQ Z2UP DEC A BEQ Z2SHOTB JMP Z2DOWN Z2SHOTB EQU $ JMP Z2SHOT ;; JSL >JSRSUB ;; WORD Z2WAIT ;; WORD Z2UP ;; WORD Z2SHOT ;; WORD Z2DOWN ;; RTS ;- - - - - - - - - - - - - - - - - - - - - ZSSXAL EQU $ ZSSYAL EQU $ HEX E0,E8,F0,F8,08,10,18,20 ZSSXAH EQU $ ZSSYAH EQU $ HEX FF,FF,FF,FF,00,00,00,00 ;- - - - - - - - - - - - - - - - - - - - - Z2WAIT EQU $ LDA ENTIM0,X STA ENNOCR,X BNE Z2W010 ; JSL >RNDSET AND #07H TAY LDA ENWRK0,X CLC ADC ZSSXAL,Y STA ENXPSL,X LDA ENWRK1,X ADC ZSSXAH,Y STA ENXPSH,X JSL >RNDSET AND #07H TAY LDA ENWRK2,X CLC ADC ZSSYAL,Y STA ENYPSL,X LDA ENKBMK,X ADC ZSSYAH,Y STA ENYPSH,X ; JSL >PSSAVE2 ; JSL >ENBGCKL LDA UNITNO CMP #08H BNE Z2W010 ; mizu in ? ; ; yes ! LDA #7FH STA ENTIM0,X INC ENSTAT,X Z2W010 EQU $ RTS ;- - - - - - - - - - - - - - - - - - - - - - Z2UPTD EQU $ HEX 4,3,2,1,2,1,2,1 HEX 2,1,2,1,2,1,0,0 ; Z2UP EQU $ LDA ENTIM0,X BNE Z2U010 INC ENSTAT,X LDA #7FH STA ENTIM0,X RTS Z2U010 EQU $ LSR A LSR A LSR A TAY LDA Z2UPTD,Y STA ENCHPT,X RTS ;- - - - - - - - - - - - - - - - - - - - - - Z2SHPT EQU $ HEX 5,5,6,0A,06,5,5,5 ; Z2SHOT EQU $ LDA ENTIM0,X BNE Z2S010 INC ENSTAT,X LDA #17H STA ENTIM0,X RTS Z2S010 EQU $ CMP #30H BNE Z2S020 ; tama set ? PHA ; yes ! JSR Z2TMST PLA Z2S020 EQU $ LSR A LSR A LSR A LSR A TAY LDA Z2SHPT,Y STA ENCHPT,X RTS ;- - - - - - - - - - - - - - - - - - - - - - Z2TMSTL EQU $ PHB PHK PLB JSR Z2TMST PLB RTL ;- - - - - - - - - - - - - - - - - - - - - - Z2TMST EQU $ LDY #0DH LDA #ZORAS JSL >ENIDSH2 BMI Z2TS90 LDA PSERCHL LDA #14H STA ENTIM0,X PLX Z2TS90 EQU $ RTS ;- - - - - - - - - - - - - - - - - - - - - - Z2DPTD EQU $ HEX C,B,9,8,7 HEX 0,0,0,0,0,0,0 ; Z2DOWN EQU $ LDA ENTIM0,X BNE Z2D010 LDA #80H STA ENTIM0,X STZ ENCHPT,X STZ ENSTAT,X RTS Z2D010 EQU $ LSR A LSR A NOP NOP NOP TAY LDA Z2DPTD,Y STA ENCHPT,X RTS ;================================================ Z2CXAD EQU $ WORD 04H,04H WORD 00H,00H WORD 00H,00H WORD 00H,00H WORD 00H,00H WORD 00H,00H WORD 00H,00H WORD 00H,00H WORD 00H,00H WORD 0FFFCH,0BH WORD 00H,04H WORD 0FFF8H,012H WORD 0FFF8H,012H Z2CYAD EQU $ WORD 04H,04H WORD 00H,00H WORD 00H,00H WORD 00H,0FFFDH WORD 00H,0FFFDH WORD 0FFFDH,0FFFDH WORD 0FFFDH,0FFFDH WORD 0FFFDH,0FFFDH WORD 0FFFAH,0FFFAH WORD 0FFF8H,0FFF7H WORD 0FFFDH,0FFFDH+8 WORD 0FFF6H,0FFF5H WORD 0FFF6H,0FFF5H Z2CCDT EQU $ HEX A8,A8 HEX 88,88 HEX 88,88 HEX 88,A4 HEX 88,A4 HEX A4,A4 HEX A6,A6 HEX A4,C0 HEX 8A,8A HEX AE,AF HEX A6,8D HEX CF,CF HEX DF,DF Z2CADT EQU $ HEX 25,25 HEX 25,25 HEX E5,E5 HEX 25,20 HEX E5,20 HEX 20,20 HEX 20,20 HEX 20,24 HEX 25,25 HEX 24,64 HEX 20,26 HEX 24,64 HEX 24,64 Z2CSBD EQU $ HEX 00,00 HEX 02,02 HEX 02,02 HEX 02,02 HEX 02,02 HEX 02,02 HEX 02,02 HEX 02,02 HEX 02,02 HEX 00,00 HEX 02,00 HEX 00,00 HEX 00,00 ;------------------------------------ ZORA2CS EQU $ JSR OAMCHK LDA ENCHPT,X ASL A STA SETOAML2 ; JSL >CRENPLL JSR ENMVCL ; JSR EPXCHK LDA BSITEM ;;; ;; JSR BOSAVE ;;; ;; LDY #ENNO-1 ;;ZRBM08 EQU $ ;; LDA ENMODE,Y ;; BEQ ZRBM09 ;;; ;; LDA #EFAIL ; STA ENMODE,Y ;; LDA #0FH ;; STA ENTIM0,Y ;;; ;; LDA #00H ;; STA ENMOD2,Y ;; LDA #03H ;; STA ENMOD0,Y ;;; ;;ZRBM09 EQU $ ;; DEY ;; BPL ZRBM08 ;;; ;; STZ ENMODE,X ;; RTS ;----------------------------------------- ;;ZRBM10 EQU $ ;; LDA ENWRK2,X ;; BEQ ZB0000 ;;; ;; JMP ZORA2MV ;- - - - BIG ZORA - - - - - - - ; ZB0000 EQU $ ;; LDA ENFLSH,X ;; BEQ ZB0F20 ;;; ;; LSR A ;; LSR A ;; AND #01H ;; INC A ;; STA ENCHPT,X ;;ZB0F20 EQU $ JSR ZORABCS ; ;; LDA JSRSUB WORD ZBWAIT WORD ZBUP WORD ZBSHOT WORD ZBDOWN RTS ;- - - - - - - - - - - - - - - - - - - - - ZBSTXS EQU $ HEX 28,78,C8,78 ZBSTYS EQU $ HEX 60,50,70,50 ; ;; HEX 30+30,20+30,40+30,20+30 ; ZBWAIT EQU $ LDA #04H STA ENCHPT,X ; LDA ENTIM0,X STA ENNOCR,X BNE ZBW010 LDA #7FH STA ENTIM0,X INC ENSTAT,X JSL >RNDSET AND #03H TAY STA ENKBMK,X LDA ZBSTXS,Y STA ENXPSL,X LDA ZBSTYS,Y STA ENYPSL,X ZBW010 EQU $ RTS ;- - - - - - - - - - - - - - - - - - - - - - ZBUPTD EQU $ HEX 0,0,0,3,9,8,7,6 HEX 9,8,7,6,5,4,5,4 ; ZBUP EQU $ LDA ENTIM0,X BNE ZBU010 INC ENSTAT,X LDA #7FH STA ENTIM0,X RTS ZBU010 EQU $ CMP #01CH BNE ZBU012 PHA LDA #0FH STA ENTIM2,X JSR MIZUST PLA ZBU012 EQU $ LSR A LSR A LSR A TAY LDA ZBUPTD,Y STA ENCHPT,X RTS ;- - - - - - - - - - - - - - - - - - - - - - ZBSHPT EQU $ HEX 0,0,1,02,01,2,0,0 ; ZBSHOT EQU $ LDA ENTIM0,X BNE ZBS010 INC ENSTAT,X ;; LDA #08H LDA #24H STA ENTIM0,X RTS ZBS010 EQU $ CMP #40H BNE ZBS020 PHA JSR ZBTAMST PLA ZBS020 EQU $ LSR A LSR A LSR A LSR A TAY LDA ZBSHPT,Y STA ENCHPT,X RTS ;- - - - - - - - - - - - - - - - - - - - - - ZBTSNO EQU $ HEX 02,01,02,01 ZBTSXL EQU $ HEX 60,90,C0,0 HEX 40,B0,0,0 HEX 20,70,A0,0 HEX 40,B0,0,0 ; ZBTAMST EQU $ LDY ENKBMK,X LDA ZBTSNO,Y STA ENHELP ; ZBTS10 EQU $ LDA #ZORAB JSL >ENIDSH BMI ZBTS20 ; PHX ; LDA ENKBMK,X ASL A ASL A ORA ENHELP TAX LDA ZBTSXL,X STA ENXPSL,Y LDA SDLRCE ORA #24H STA SOUND2 ;(S) ; nop ; LDA #07H STA ENIDSH BMI KF00F0 ; LDA #EWATR STA ENMODE,Y ; PHX LDX RNDSET PLY AND #0FH ADC #018H STA ENZSPD,Y LDA #01H STA ENSTAT,Y LDA #00H STA ENZPSL,Y ; LDA ENMOD2,Y ORA #01000000B STA ENMOD2,Y STA ENNOCR,Y ; PLX KF00F0 EQU $ DEC ENIDSH2 BMI ZR2S90 ; JSL >RNDSET AND #07H PHX TAX LDA RNDSET AND #07H TAX LDA OAMENT3 LDY #00H ; PHX LDX #03H ZBC028 EQU $ PHX TXA CLC ADC JSRSUB WORD ZSWAIT WORD ZSJUMP WORD ZSWALK WORD ZSSTOP ;---------------------------------------- ZSWAIT EQU $ LDA ENTIM0,X BNE ZSW010 LDA #7FH STA ENTIM0,X INC ENWRK1,X ZSW010 EQU $ RTS ;---------------------------------------- ZSJUMP EQU $ JSR ZORA2CS ; mizu uzu set ! ; JSR ENSTCK ; LDA ENTIM0,X STA ENNOCR,X BNE ZSJ010 ; JSL >SDLRCE ORA #28H STA SOUND2 ;(S) ; INC ENWRK1,X LDA #030H STA ENZSPD,X ;; LDA #10H ;; JSL >PSERCHL JSR EPXYCK TYA STA ENMUKI,X STA ENKBMK,X RTS ZSJ010 EQU $ LSR A LSR A LSR A TAY LDA Z2UPTD,Y STA ENCHPT,X RTS ;---------------------------------------- ;;ZSWXSD EQU $ ;; HEX 08,F8,00,00 ;;ZSWYSD EQU $ ;; HEX 00,00,08,F8 ;- - - - - - - ZSWALK EQU $ LDA ENCONT,X AND #00001000B LSR A ADC ENMUKI,X TAY LDA ZKCHPT,Y STA ENCHPT,X JSR ZORASCS ; JSR ENSTCK ; LDA #03H STA ENCLOR,X ; ;L LDA ENHNFG,X ;L BEQ ZSM010 ; damage ? ;L; ; yes ! ;L;; CMP #0DH ;L;; BNE ZSM00E ;L;; LDA #05H ;L;; STA ENHNFG,X ;L;;ZSM00E EQU $ ;L STZ ENHNFG,X ;L; ;L LDA #03H ;L STA ENWRK1,X ;L LDA #0C0H ;L STA ENCTCT,X ;L LDA ENHNXS,X ;L STA ENXSPD,X ;L LDA ENHNYS,X ;L STA ENYSPD,X ;LZSM010 EQU $ ;;; JSR ENHNSB ; JSR CREKEK ; JSR ENZCLC LDA ENZSPD,X SEC SBC #02H STA ENZSPD,X ; LDA ENZPSL,X DEC A BPL ZSW050 ; jump !! ;- - - On foot ------------------ LDA ENZSPD,X CMP #0F0H BPL ZSM013 ; JSR H0SDCL ; ZSM013 EQU $ STZ ENZPSL,X STZ ENZSPD,X ; TXA EOR PSERCHL ; ;; LDY ENMUKI,X ;; LDA ZSWXSD,Y ;; STA ENXSPD,X ;; LDA ZSWYSD,Y ;; STA ENYSPD,X ZSW050 EQU $ JSR ENMVCL JSL >ENBGCKL ; LDA ENZPSL,X DEC A BPL ZSW060 ; JSR Z2MZCK ; LDA UNITNO CMP #08H BNE ZSW060 ; MIZU IN ? ; ; YES ! JSL >ENCLER ; Data Bit rivers ; JSL >SDLRCE ORA #28H STA SOUND2 ;(S) ; LDA #EWATR ; STA ENMODE,X LDA #00001111B STA ENTIM0,X STZ ENSTAT,X ; LDA #03H STA ENMOD0,X ; ZSW060 EQU $ JSR ZKPTST RTS ;- - - - - - - - - - - - - - - - ;---------------------------- ZSSTOP EQU $ JSL >CRKNENL ; LDA #0DH STA ENCLOR,X ;; LDY ENTIM2,X LDA EN1CSTL INC ENMOD0,X INC ENMOD0,X ; STZ ENCTFG,X JSR ENSTCK JSR ENHNSB ; JSR ENMVCL ;;;;; JSL >ENBGCKL JSL >ENBDSBL ; Z2MZCK EQU $ STZ ENCTFG,X ; LDA ENZPSL,X BNE Z2MC10 ; LDA UNITNO CMP #09H BNE ZSS022 ; INC ENCTFG,X ; Asase in ! Z2MC10 EQU $ ZSS022 EQU $ RTS ;- - - - - - - - - - ZS2XAL EQU $ HEX 01,FF ZS2XAH EQU $ HEX 00,FF ;======================================= ZSHDCD EQU $ BYTE 0CEH,0CEH,0A4H,0EEH ZSHDAD EQU $ BYTE 040H,000H,000H,000H ; ZSCCDT EQU $ HEX CC,EC,CC,EC,E8,E8,CA,CA ZSCADT EQU $ HEX 40,40,00,00,00,40,00,40 ;- - - - - - - - - - - - - - - - - - - - - - - - ZORASCS EQU $ ;- - Muzu set - - JSR Z2MIZST ;- Body set JSR O2TEST ; LDY #00H LDA ENCHPT,X STA SADWSTL ZSBC28 EQU $ RTS ;========= Ashi mizu set ============ Z2MIZCD EQU $ WORD 00000H,0000AH HEX D8,01,00,00 WORD 00008H,0000AH HEX D8,41,00,00 ; WORD 00000H,0000AH HEX D9,01,00,00 WORD 00008H,0000AH HEX D9,41,00,00 ; WORD 00000H,0000AH HEX DA,01,00,00 WORD 00008H,0000AH HEX DA,41,00,00 ; Z2MPTD EQU $ HEX 00,10,20,10 ;- - - - - - - - - - - - - - - - - - - - - - - - Z2MIZST EQU $ ;; LDA ENZPSL,X LDA ENCTFG,X BEQ Z2CC10 ; Asase in ? ; ; yes ! Z2MIZST2 EQU $ LDA SETOAML2 ; LDY #03H LDA (EFLCHK BCC NMF008 ; All nomos failed ? ; ; yes ! open door ! LDA #01H STA SWCHFG ; LDA #01H JSL >BSITEM ; BOSAVE EQU $ ;; LDA EMYSTT ; Save data on ! ;; ORA #10000000B ;; STA EMYSTT NMF008 EQU $ RTS ;- - - - - - - - -- - - - - - - - - - -- NMF010 EQU $ LSR A LSR A LSR A AND #03H TAY LDA NMFLPT,Y STA ENCHPT,X RTS ;- - - - - - - - - - - - - - - - - - - - - - NMM000 EQU $ JSR ENZCLC LDA ENZSPD,X SEC SBC #02H STA ENZSPD,X LDA ENZPSL,X BPL NOM1F0 STZ ENZSPD,X STZ ENZPSL,X JSR H0SDCL NOM1F0 EQU $ LDA ENHNFG,X BEQ NOM1F8 ; JSR H0SDCL NOM1F8 EQU $ JSR ENHNSB ; LDA ENSTAT,X BNE NOM100 ; LDA ENTIM0,X BNE NOM000 ; INC ENSTAT,X ; ASL ENMOD0,X LSR ENMOD0,X ; LDA ENMOD2,X AND #10111111B STA ENMOD2,X ; ;; LDA ENCLOR,X ;; AND #11110001B ;; ORA #08H LDA #08H+1 STA ENCLOR,X RTS ;- - - - - - - - - - - - - - - - - - -- - NOMXSD EQU $ HEX 10,F0 ; NOM000 EQU $ CMP #40H BCS NOM010 ; LSR A EOR ENINDX AND #01H TAY LDA NOMXSD,Y STA ENXSPD,X JSR ENXCLC NOM010 EQU $ JSL >CRENPL2L BCC NOM020 MEM16 REP #00100000B ; LDA PLSVX1 STA ENBGCKL ; LDA ENTIM0,X BNE NOM110 ; JSL >RNDSET AND #1FH ADC #30H STA ENTIM0,X LDA #20H STA ENZSPD,X ; LDA #10H JSL >PSERCHL ;- - - - NOMOS VS NOMOS HIT CHECK ! - - - - - - - - NOM110 EQU $ TXY DEY NOM120 EQU $ LDA ENMODE,Y BEQ NOM123 LDA ENMYNO,Y CMP #NOMOS BEQ NOM125 ; NOM123 EQU $ JMP NOM190 ; NOM125 EQU $ LDA ENXPSL,X STA ESERCHL PLY LDA OCHECKL LDY #00H NMC008 EQU $ LDA ENCHPT,X ASL A ASL A STA RMIDDT-00H,X TAX LDA #0FFH RMIT10 EQU $ STA >RMZBUF,X INX DEY BPL RMIT10 PLX LDA #07H STA >RMCONT,X RTL ;---------------------------------- MNYSLM EQU $ MNXSLM EQU $ BYTE 018H,0E8H MNYSAD EQU $ MNXSAD EQU $ BYTE 001H,0FFH ; RTXD EQU $ HEX 01,FF RTXL EQU $ HEX 10,F0 ; RANEMM EQU $ JSR RANEMCS ; JSR ENSTCK2 ; LDA ENSTAT,X JSL >JSRSUB WORD RMINIT ;0 WORD RMSET ;1 WORD RMGOO ;2 WORD RMDOWN ;3 WORD RMEND ;4 WORD RMFAIL ;5 ;-------------------------------------- RMINIT EQU $ LDA ENTIM0,X BNE RMI010 ; LDA #7FH STA ENTIM0,X INC ENSTAT,X RMI010 EQU $ RTS ;-------------------------------------- RMSXAL EQU $ HEX 58,50,60,70,80,90,A0,98 RMSYAL EQU $ HEX 68,60,70,80,90,A0,A8,80 ;- - - - - - RMSET EQU $ LDA ENTIM0,X BNE RMS090 ; JSL >RNDSET AND #07H TAY LDA RMSXAL,Y STA ENWRK1,X LDA RNDSET AND #07H TAY LDA RMSYAL,Y STA ENWRK2,X LDA RNDSET ;; AND #7FH ;; ADC #40H ;; CLC ;; ADC RNDSET ;; AND #3FH ;; ADC #60H ;; CLC ;; ADC ESERCHL LDA RNDSET ;; AND #7FH ;; ADC #40H ;; CLC ;; ADC RNDSET ;; AND #7FH ;; ADC #20H ;; CLC ;; ADC RNDSET AND #07H TAY LDA RMSXAL,Y STA ENXPSL,X LDA RNDSET AND #07H TAY LDA RMSYAL,Y STA ENYPSL,X LDA TKDINT PLX RTL ;----------------------------------------- RMFAIL EQU $ LDY ENTIM0,X BNE RMF000 ; ;; JSL >ENBTON ;; LDA EMYSTT ; Save data on ! ;; ORA #10000000B ;; STA EMYSTT STZ ENMODE,X STZ ENMYNO,X ; for fail check ! ; ;; LDA ENMYNO+01H ;; CMP #RANEM ;; BEQ RMF000 ;; LDA ENMYNO+00H ;; CMP #RANEM ;; BEQ RMF000 ; all end ? ; ; yes ! JSL >EFLCHK BCC RMF000 ; All ENEMY failed ? ; LDA #01H ; Open door ! STA SWCHFG ; JSR BOSAVE ; LDA #03H JSL >BSITEM ; RMF000 EQU $ LDA ENTIM0,X ;; TYA CMP #80H BCS RMF090 ; AND #0FH BNE RMF090 ;== kemri set == LDA >RMCONT,X TAY LDA ENCONT,X SEC SBC RMFCDT,Y AND #3FH CLC ADC RMIDDT-00H,X PHX TAX LDA >RMXBUF,X SEC SBC RMYBUF,X SEC SBC >RMZBUF,X SEC SBC ENIDSH LDA #EFAIL STA ENMODE,Y LDA #09H STA ENTIM0,Y ; LDA SDLRCE ORA #0CH STA SOUND2 ;(S) ;=== LDA >RMCONT,X ; 1 ko zotsu kesu ! BEQ RMF090 DEC A STA >RMCONT,X RMF090 EQU $ RTS ;----------------------------------------- ;----------------------------------------- ;========================================================================= RMIDDT EQU $ HEX 00,40 MNINST EQU $ HEX 00,1C MNINAD EQU $ HEX 01,F9 RMCKDT EQU $ HEX 00,00,01,01,01,02,02,02 ; HEX 00,00,0F,0F,0F,0E,0E,0E ; HEX 08,08,07,07,07,06,06,06 ; HEX 08,08,09,09,09,0A,0A,0A ; RMCKD2 EQU $ HEX 04,04,03,03,03,02,02,02 ; HEX 0C,0C,0D,0D,0D,0E,0E,0E ; HEX 04,04,05,05,05,06,06,06 ; HEX 0C,0C,0B,0B,0B,0A,0A,0A ; RMCCDT EQU $ HEX C4,E2,C2,E0 HEX C0,E0,C2,E2 HEX C4,E2,C2,E0 HEX C0,E0,C2,E2 ; RMCCD2 EQU $ HEX CC,E4,CA,E6 HEX C8,E6,CA,E4 HEX CC,E4,CA,E6 HEX C8,E6,CA,E4 RMCADT EQU $ HEX C0,C0,C0,C0 HEX 80,80,80,80 HEX 00,00,00,00 HEX 40,40,40,40 ;--- tsuchi --- TMCXAD EQU $ HEX F8,08 HEX F6,0A HEX F0,10 HEX E8,20 TMCYAD EQU $ HEX 00,00 HEX FF,FF HEX FF,FF HEX 03,03 TMCCDT EQU $ HEX E8,E8 HEX E8,E8 HEX EA,EA HEX EA,EA TMCADT EQU $ HEX 00,40 HEX 00,40 HEX 00,40 HEX 00,40 TMCSBD EQU $ HEX 02,02 HEX 02,02 HEX 02,02 HEX 00,00 ;- - - - - - - - - - - - - - - - - - - - - - RANEMCS EQU $ ;---- body oam -- LDA ENYSPD,X SEC SBC ENZSPD,X STA MKCK16 STA ENCHPT,X ; 16 Ways muki set ! ; LDA RMIDDT-00H,X STA RMCBUF,X PLA STA >RMZBUF,X PLA STA >RMYBUF,X PLA STA >RMXBUF,X PLX LDA ENMODE,X CMP #EMOVE BNE MNM048 ; move ? LDA RMCONT,X PHA STA RMXBUF,X SEC SBC RMZBUF,X BMI MNC019 ; LDA >RMYBUF,X SEC SBC >RMZBUF,X SEC SBC RMCBUF,X TAX LDY RMXBUF,X SEC SBC RMZBUF,X BMI MNC039 ; LDA >RMYBUF,X CLC ADC #0AH SEC SBC OAMENT2 BRA RTO020 ; RTO010 EQU $ LDA #02H*4 JSL >OAMENT3 ; RTO020 EQU $ LDY #00H PLA LSR A LSR A NOP NOP AND #03H EOR #03H ASL A STA OAMENT2 ; LDA ENXPSL,X SEC SBC EN1CSTL ; JSR ENSTCK ; JSR ENHNSB ;; JSL >CRKNENL ;; JSL >CRENPLL JSR CREKEK JSR ENMVCL JSL >ENBGCKL ; LDA ENSTAT,X BNE NZWALK ;; JSL >JSRSUB ;; WORD NZSTOP ;; WORD NZWALK ;; RTS ;- - - - - - - -- - - - - - - - -- - - - ; NZSTOP EQU $ JSR H0SDCL ; LDA ENTIM0,X BNE NZST10 ; JSL >RNDSET PHA AND #03H STA ENMUKI,X ; INC ENSTAT,X ; PLA AND #7FH ADC #040H ;; LDA #80H STA ENTIM0,X NZST10 EQU $ LDA SDLRCE ORA #17H STA SOUND3 ;(S) ; STZ ENSTAT,X LDA #50H STA ENTIM0,X NZWK10 EQU $ LDY ENMUKI,X ; LDA ENCBFG,X BEQ NZWK18 LDA NZNXMK,Y STA ENMUKI,X TAY NZWK18 EQU $ LDA NZWKXS,Y STA ENXSPD,X LDA NZWKYS,Y STA ENYSPD,X ; LDA EN1CSTL ; JSR ENSTCK ; LDA ENWRK3,X BEQ HB005A ;- - Tenjyou set (hazure swich) -- LDY #03H LDA (CRKNENL ;; JSL >CRENPLL JSR CREKEK JSR ENMVCL JSL >ENBGCKL ; LDA ENSTAT,X BNE HBWALK ; ;; WORD HBSTOP ;; WORD HBWALK ;---------------------------------------- ; HBSTOP EQU $ JSR H0SDCL ; LDA ENTIM0,X BNE HBST10 ; JSL >RNDSET PHA AND #03H STA ENMUKI,X ; INC ENSTAT,X ; PLA AND #7FH ADC #040H ;; LDA #80H STA ENTIM0,X HBST10 EQU $ LDA CRENPLL ;; JSL >CRKNENL JSR CREKEK ; TXA ASL A EOR ALOMCKL RTS ;=============================================== KOITMK EQU $ HEX 02,0A,06,0E ; KOMO0M EQU $ JSL >EN1CSTL ; JSR ENSTCK ;; JSL >CRKNENL ;; JSL >CRENPLL JSR CREKEK ; JSR ENMVCL ; LDA ENSTAT,X BNE KOMOVE KOSTOP EQU $ TXA EOR SDLRCE ORA #1EH STA SOUND3 ;(S) ; INC ENSTAT,X ; LDA #40H STA ENTIM0,X STA ENWRK1,X ; JSR EPXYCK LDA KOITMK,Y STA ENWRK0,X ; ;; JSL >RNDSET ;; AND #7FH ;; ADC #70H ;; STA ENTIM0,X ;;; ;; STA ENWRK0,X ;; STA ENWRK1,X KOS010 EQU $ RTS ;------------------------------------------------------- KOMAAD EQU $ BYTE 001H,0FFH KOMXSD EQU $ BYTE 000H,008H,00BH,00EH,010H,00EH,00BH,008H BYTE 000H,-08H,-0BH,-0EH,-10H,-0EH,-0BH,-08H KOMYSD EQU $ BYTE -10H,-0EH,-0BH,-08H,000H,008H,00BH,00EH BYTE 010H,00EH,00BH,008H,000H,-09H,-0BH,-0EH ; KOMOVE EQU $ LDA ENTIM0,X BNE KOM010 ; STZ ENSTAT,X LDA #40H STA ENTIM0,X ;;; LDA #02H STZ ENCHPT,X JSR H0SDCL ; SPEED CLEAR ! RTS ;- - - - - - - - - - - - - - - - - - - - KOM010 EQU $ AND #07H BNE KOM020 ; LDA ENWRK1,X AND #01H TAY LDA ENWRK0,X CLC ADC KOMAAD,Y STA ENWRK0,X ; JSL >RNDSET AND #00000011B BNE KOM020 ; INC ENWRK1,X KOM020 EQU $ LDA ENWRK0,X AND #0FH TAY LDA KOMXSD,Y STA ENXSPD,X LDA KOMYSD,Y STA ENYSPD,X ; LDA EN1CSTL ; JSR ENSTCK JSR ENMVCL ; CREKEK EQU $ JSL >CRKNENL JSL >CRENPLL ; RTS ; ;===================================================== KMCXAD EQU $ BYTE 0FAH,00EH,0FAH,00EH BYTE 0FAH,00EH,0FAH,00EH BYTE 0FAH,00EH,0FAH,00EH BYTE 0FAH,00EH,0FAH,00EH BYTE 0FBH,00DH,0FBH,00DH BYTE 0FCH,00CH,0FCH,00CH BYTE 0FEH,00AH,0FEH,00AH BYTE 000H,008H,000H,008H KMCYAD EQU $ BYTE 0FAH,0FAH,00EH,00EH BYTE 0FAH,0FAH,00EH,00EH BYTE 0FAH,0FAH,00EH,00EH BYTE 0FAH,0FAH,00EH,00EH BYTE 0FBH,0FBH,00DH,00DH BYTE 0FCH,0FCH,00CH,00CH BYTE 0FEH,0FEH,00AH,00AH BYTE 000H,000H,008H,008H KMCCDT EQU $ BYTE 0A5H,0A5H,0A5H,0A5H BYTE 0A5H,0A5H,0A5H,0A5H BYTE 09BH,09BH,09BH,09BH BYTE 09BH,09BH,09BH,09BH BYTE 0A9H,0A9H,0A9H,0A9H BYTE 0A9H,0A9H,0A9H,0A9H BYTE 0A9H,0A9H,0A9H,0A9H BYTE 0A8H,0A8H,0B8H,0B8H KMCADT EQU $ BYTE 000H,040H,080H,0C0H BYTE 000H,040H,080H,0C0H BYTE 000H,040H,080H,0C0H BYTE 000H,040H,080H,0C0H BYTE 000H,000H,000H,000H BYTE 000H,000H,000H,000H BYTE 000H,000H,000H,000H BYTE 000H,000H,040H,040H KEMRIMV EQU $ ;; JSR OAMCHK JSR O2TEST ; LDA ENTIM0,X BNE KEM008 ; STZ ENMODE,X KEM008 EQU $ LSR A LSR A AND #07H ASL A ASL A STA ALOMCKL RTS ;===================================================== TAIHOM EQU $ TAIH00 EQU $ LDA ENWRK2,X BEQ TAIH010 ; tama ? ; ; yes ! CMP #02H BEQ TAIH008 JMP TTAMAMV TAIH008 EQU $ JMP KEMRIMV TAIH010 EQU $ ;; LDA CRKNKNL ;; JSL >CRKNENL ;; JSL >CRENPLL JSR CREKEK ;= = = = = = = = == = = = = = = = = = = = = = = = LDA ENSTAT,X MEM16 IDX16 REP #00110000B AND #00FFH ASL A TAY LDA THMVAD,Y DEC A PHA MEM8 IDX8 SEP #00110000B RTS ;============================================ THMVAD EQU $ ;; LDA ENSTAT,X ;; JSL >JSRSUB WORD THWAIT WORD THSHOT WORD THSAGA WORD THWAI2 WORD THRVSE ;; RTS ;========================================== THWAIT EQU $ STZ ENWRK0,X LDA ENTIM0,X ORA MIHAFG BNE THW010 ; INC ENSTAT,X LDA #060H STA ENTIM0,X ; PMSET EQU $ LDA ENMUKI,X PHA JSR EPXYCK TYA STA ENMUKI,X PLA CMP ENMUKI,X BEQ THW010 EOR ENMUKI,X AND #00000010B BNE THW010 ; LDA #0CH STA ENTIM1,X ; turn half pause set ! THW010 EQU $ RTS ;========================================== THSHOT EQU $ LDA #00H LDY ENTIM0,X BEQ THS020 CPY #30H BCS THS010 LDA #02H THS010 EQU $ STA ENWRK0,X RTS ;- - - - - - - - - - - - - - - - THSXAL EQU $ BYTE 010H,0F0H,000H,000H THSXAH EQU $ BYTE 000H,0FFH,000H,000H THSYAL EQU $ BYTE 000H,000H,008H,0F0H THSYAH EQU $ BYTE 000H,000H,000H,0FFH THSXSD EQU $ BYTE 018H,0E8H,000H,000H THSYSD EQU $ BYTE 000H,000H,018H,0E8H ;- - -- - - - - THS020 EQU $ INC ENSTAT,X LDA #04H STA ENTIM0,X ;- - - TAMA SET - - - - LDA #TAIHO JSL >ENIDSH BMI THS030 ; JSL >SDLRCE ORA #07H STA SOUND3 ;(S) ; LDA #01H STA ENWRK2,Y ; LDA ENMUKI,X PHX TAX LDA ENIDSH BMI THS040 ; LDA #20H STA ENTIM0,Y ; LDA #02H STA ENWRK2,Y ; LDA ENMUKI,X PHX TAX LDA ALOMCKL RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% ON MAP FAILY % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;HYUUUMV EQU $ ; PHB ; PHK ; PLB ; JSR HYU000 ; PLB ; RTL ;------------------------ HYUUUAD EQU $ BYTE 000H,040H,0C0H,080H HYUUUM EQU $ HYU000 EQU $ LDA MPDTNO CMP #040H BCS HYUUU50 ; LDA ENCLOR,X AND #0DFH STA ENCLOR,X LDA ENWRK0,X EOR #001H ASL A ASL A ASL A ASL A ASL A ORA ENCLOR,X STA ENCLOR,X JSL >EN1CSTL ; JSR ENSTCK ; scroll : not return ! ; LDA CRENPL2L ;PL BODY ATARI? BCC HYUUU10 LDA ENWRK0,X BEQ HYUUU40 ; ;GET !! LDA #p2_kage ;WARP STA ENBGCKL JSR ENMVCL ; JSL >CRKNKNL JSL >CRENPLL ;; JSR CREKEK ; TXA EOR JSRSUB ;= = = = = = = = == = = = = = = = = = = = = = = = LDA ENSTAT,X MEM16 IDX16 REP #00110000B AND #00FFH ASL A TAY LDA TKMVAD,Y DEC A PHA MEM8 IDX8 SEP #00110000B RTS ;============================================ TKMVAD EQU $ WORD TKWALK WORD TKWAIT WORD TKATWT WORD TKATCK ;===================================================== TKWALK EQU $ TXA EOR PSERCHL TKWK10 EQU $ TKWKST EQU $ LDA ENMUKI,X ASL A ASL A ASL A STA SDLRCE ORA #06H STA SOUND3 ;(S) ; TKA018 EQU $ RTS ;; BRA TKAC10 ;===================================================== TKATCK EQU $ JSR H0SDCL ; LDA ENTIM2,X BNE TKAC10 ; STZ ENSTAT,X TKAC10 EQU $ CMP #10H BCS TKA010 ; INC ENCONT,X JSR TKWKST ;; TXA ;; EOR SDLRCE ;; ORA #06H ;; STA SOUND3 ;(S) ;; ;;TKAC18 EQU $ RTS ;=============================================== ;=============================================== ;=============================================== TEKU0CS EQU $ JSR O2TEST ;; JSR OAMCHK ; ;; LDA ENCLOR,X ;; STA ALOMCKL RTS ;============================== TKHDCD EQU $ BYTE 002H,002H,000H,004H TKHDAD EQU $ BYTE 040H,000H,000H,000H ;- - - - - - - - - - - - - - - - - - - - - - - - TKHDCS EQU $ LDY #18H TKHDC2 EQU $ ;; LDY #04H PHX LDA ENKBMK,X ; kubi muki ! TAX ; MEM16 REP #00100000B ; LDA SINDT2,X STA SINDT2,X STA ALOMCKL RTS ;- - - - TKBYDT EQU $ BYTE 33H,66H,99H,0CCH ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Heishi 0 % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HEIS0MV EQU $ PHB PHK PLB JSR HEI000 PLB RTL ;========================================= ;HTESTD EQU $ ; BYTE 2,2,2,2,1,1,1,3,3,3,3,0,0,0 H0TURN EQU $ BYTE 3,2,0,1 H0TUR2 EQU $ BYTE 08H,00H,0CH,05H ; HEI000 EQU $ LDA ENMYNO,X SEC SBC #HEIS0 MEM16 IDX16 REP #00110000B AND #00FFH ASL A TAY LDA HEMVAD,Y DEC A PHA MEM8 IDX8 SEP #00110000B RTS ;============================================ HEMVAD EQU $ WORD HEIS0M WORD HEI00M WORD HEIS1M WORD HEIS2M WORD HEIS3M WORD HEYA0M WORD HEYA1M WORD HEYA2M WORD HEYA3M WORD HEBO0M WORD MIHA0M WORD ZAKO0M WORD SUNA0M WORD USAG0M WORD HANA0M WORD HANA1M WORD TAMA0M WORD DOZOOM WORD ZORABM WORD NOMOSM WORD RANEMM WORD ZORASM WORD ZORA2M WORD SEKMVM WORD KANI0M WORD TORI0M WORD RISU0M WORD SPARKM WORD SPARLM WORD CHAN0M WORD CHAN1M WORD CHAN2M WORD CHAN3M WORD MEDUSM WORD ATARSM WORD ARI00M WORD ARI01M WORD YASANM WORD HODIRM WORD HODILM WORD HODIDM WORD HODIUM WORD TEKU0M WORD TAIHOM WORD HYUUUM WORD NEZU0M WORD HEBI0M WORD HEBI1M WORD KOMO0M WORD MOTAMM ;;;; WORD RIVERM ;============================== TAMA0M EQU $ LDA ENSTAT,X BNE TAMA1MV JSL >EN1CSTL BRA TAMA000 TAMA1MV EQU $ JSR TAMA1CS TAMA000 EQU $ JSR ENSTCK ; INC ENCONT,X LDA ENCONT,X NOP ;; LSR A LSR A LSR A AND #01H STA ENCHPT,X ; JSR ENMVCL ; LDA ENTIM0,X BEQ TMM008 ; door in ? ; ; yes ! DEC A BNE TMM006 ; end ? ; ; yes ! STZ ENMODE,X TMM006 EQU $ RTS ;- - - - - - - - - - - - - - - - - - - - - TMM008 EQU $ JSR CREKEK ; LDA ENTIM2,X BNE TMM010 ; ;; JSR >CRENPLL JSL >ENBGCKL LDA ENCBFG,X BEQ TMM010 LDA #10H STA ENTIM0,X ; ;; STZ ENMODE,X TMM010 EQU $ RTS ;----------------------------------------------- T1CXAD EQU $ WORD 0FFF8H,0008H,0FFF8H,0008H T1CYAD EQU $ WORD 0FFF8H,0FFF8H,0008H,0008H T1CCDT EQU $ HEX 04,08,08,08 HEX 06,08,08,08 T1CADT EQU $ HEX 00,00,C0,80 ;- - - - - - - - - - - - - - - - - - - TAMA1CS EQU $ JSR OAMCHK ; LDA ENCHPT,X ASL A ASL A STA CRENPL2L BCC DOM010 MEM16 REP #00100000B ; LDA PLSVX1 STA DASHON ;; LDA ENTIM0,X ;; BNE DOM010 ;;; ;; LDA #80H ; STA ENTIM0,X DOM010 EQU $ LDA ENTIM0,X BEQ DOM030 ; LSR A AND #00001110B EOR ENCLOR,X STA ENCLOR,X DOM030 EQU $ RTS ;- - - - - - - - - - - - - - - - - - -- - DOM100 EQU $ JSR CREKEK JSR ENMVCL ; JSL >ENBGCKL ; LDA ENTIM0,X ORA ENZPSL,X BNE DOM110 ; LDA #08H STA ENTIM0,X LDA #10H STA ENZSPD,X ; LDA #08H JSL >PSERCHL DOM110 EQU $ RTS ;----------------------- DOCSYD EQU $ WORD 0FFF0H,00H DOCSCD EQU $ HEX C0,E0 ;- - - - -- - - - - - DOZOOCS EQU $ JSR OAMCHK ; LDA ENSTAT,X BNE DOCSF0 ; JSL >OCHECKL LDY #00H DOCSF0 EQU $ PHX LDX #01H DOCS00 EQU $ PHX TXA ASL A TAX MEM16 REP #00100000B LDA SADWSTL RTS ;==== Hnakatsuo slime ============ HANA0M EQU $ HANA1M EQU $ JSR HANA0CS JSR ENSTCK JSR ENHNSB ; INC ENCONT,X LDA ENCONT,X LSR A LSR A LSR A LSR A AND #03H STA ENWRK0,X ; JSR CREKEK ; LDA ENSTAT,X CMP #02H BEQ HNWALK CMP #01H BEQ HNWAIT HNSTOP EQU $ LDA ENTIM0,X BNE HNS010 ;; LDA ENMYNO,X ;; CMP #HANA0 ;; BEQ HNS010 ; INC ENSTAT,X LDA #069H STA ENTIM0,X HNS010 EQU $ RTS ;--------------------------------------------------- HNWAIT EQU $ INC ENCONT,X LDA ENTIM0,X BNE HNW010 ; JSL >RNDSET AND #3FH ADC #80H STA ENTIM0,X ; INC ENSTAT,X ; JSL >RNDSET AND #0FH TAY LDA KOMXSD,Y ASL A ASL A STA ENXSPD,X LDA KOMYSD,Y ASL A ASL A STA ENYSPD,X HNW010 EQU $ RTS ;-------------------------------------------- HNWALK EQU $ INC ENCONT,X LDA ENTIM0,X BNE HNWK10 HNWK00 EQU $ STZ ENSTAT,X LDA #50H STA ENTIM0,X RTS HNWK10 EQU $ TXA EOR ENBGCKL RTS ;============================================== HNPTDT EQU $ HEX 0,1,0,1 HNMKDT EQU $ HEX 00,00,40,40 ; HANA0CS EQU $ LDY ENWRK0,X LDA HNPTDT,Y STA ENCHPT,X LDA ENCLOR,X AND #10111111B ORA HNMKDT,Y STA ENCLOR,X JSL >EN1CSTL RTS ;==== SUNA OTOKO ============ SUNA0M EQU $ LDA ENSTAT,X BEQ SNM010 ; JSR SUNA0CS SNM010 EQU $ ; ;; LDA CRKNENL ; LDA #01H STA ENNOCR,X ; LDA ENSTAT,X MEM16 IDX16 REP #00110000B AND #00FFH ASL A TAY LDA SNMVAD,Y DEC A PHA MEM8 IDX8 SEP #00110000B RTS ;============================================ SNMVAD EQU $ WORD SNWAIT ;0 WORD SNKYRO ;1 WORD SNGOO1 ;2 WORD SNGOO2 ;3 WORD SNEND ;4 ;------------------------ SNWAIT EQU $ LDA ENTIM0,X BNE SNW010 ; LDA ENWRK0,X STA ENXPSL,X LDA ENWRK1,X STA ENXPSH,X LDA ENWRK2,X STA ENYPSL,X LDA ENKBMK,X STA ENYPSH,X INC ENSTAT,X SNW010 EQU $ RTS ;-------------------------- SNKYRO EQU $ TXA EOR PSERCHL RTS SNG100 EQU $ ;; LSR A LSR A LSR A TAY LDA SNG1PT,Y STA ENCHPT,X RTS ;- - - - - - - - - - SNG1PT EQU $ HEX 3,2 SNG2PT EQU $ HEX 4,5 SNEDPT EQU $ HEX 0,1,2,3,3 ;; HEX 0,0,1,1,0,0,2,3 ;-------------------------- SNGOO2 EQU $ STZ ENNOCR,X LDA ENTIM0,X BNE SNG200 ; INC ENSTAT,X LDA #08H STA ENTIM0,X RTS SNG200 EQU $ ;; LSR A LSR A LSR A AND #01H TAY LDA SNG2PT,Y STA ENCHPT,X JSL >CRENPLL ; JSR ENMVCL RTS ;-------------------------- SNEND EQU $ LDA ENTIM0,X BNE SNE010 STZ ENSTAT,X LDA #40H STA ENTIM0,X RTS SNE010 EQU $ ;; LSR A ;; LSR A LSR A TAY LDA SNEDPT,Y STA ENCHPT,X RTS ;-------------------------- ;-------------------------- ;=========================================== SNCXAD EQU $ WORD 04,04,04 WORD 04,04,04 WORD 0FFF8H,08,08 WORD 0FFF8H,08,08 WORD 0FFF0H,00,10H WORD 0FFF0H,00,10H SNCYAD EQU $ WORD 08,08,08 WORD 08,08,08 WORD 04,04,04 WORD 00,00,00 WORD 00,00,00 WORD 00,00,00 SNCCDT EQU $ HEX B8,B8,B8 HEX B8,B8,B8 HEX A6,A6,A6 HEX A6,A6,A6 HEX A4,A2,A0 HEX A0,A2,A4 SNCADT EQU $ HEX 00,00,00 HEX 40,40,40 HEX 00,40,40 HEX 00,40,40 HEX 40,40,40 HEX 00,00,00 SNCSBD EQU $ HEX 00,00,00 HEX 00,00,00 HEX 02,02,02 HEX 02,02,02 HEX 02,02,02 HEX 02,02,02 ;- - - - - - - - - - - - - - - - - - - - SUNA0CS EQU $ JSR OAMCHK ; LDA ENCHPT,X ASL A ADC ENCHPT,X STA RNDSET AND #03H TAY LDA ENWRK0,X CLC ADC USSXAL,Y STA ENXPSL,X LDA ENWRK1,X ADC USSXAH,Y STA ENXPSH,X LDA ENWRK2,X CLC ADC USSYAL,Y STA ENYPSL,X LDA ENKBMK,X ADC USSYAH,Y STA ENYPSH,X USS010 EQU $ RTS ;------------------------ USWAIT EQU $ LDA ENTIM0,X BNE USW010 INC ENSTAT,X LDA #10H STA ENTIM0,X RTS USW010 EQU $ LSR A LSR A AND #01H STA ENCHPT,X JSR USBGCK RTS ;-------------------------------------- USKYRO EQU $ LDA ENTIM0,X BNE USK010 ; INC ENSTAT,X LDA #040H STA ENZSPD,X ; USK010 EQU $ LDA #02H STA ENCHPT,X JSR USBGCK RTS ;-------------------------------------- USJUMP EQU $ ;; JSL >CRENPLL ;; JSL >CRKNENL JSR CREKEK ; JSR ENZCLC LDA ENZSPD,X SEC SBC #02H STA ENZSPD,X LDA ENZPSL,X BPL USJ010 STZ ENZPSL,X ; INC ENSTAT,X LDA #10H STA ENTIM0,X ; JSR USBGCK ; USJ010 EQU $ RTS ;-------------------------------------- USEND EQU $ LDA ENTIM0,X BNE USE010 STZ ENSTAT,X LDA #20H STA ENTIM0,X BRA USE020 USE010 EQU $ LSR A LSR A AND #01H STA ENCHPT,X USE020 EQU $ JSR USBGCK RTS ;--------------------------------------------- USFAIL EQU $ JSL >CRKNENL ; INC ENCONT,X LDA ENCONT,X AND #04H LSR A LSR A ADC #03H STA ENCHPT,X RTS ;--------------------------------------------- USBGCK EQU $ LDA ENYPSL,X STA BGDTRD2 ; kusa check ! ; CMP #40H BEQ USBG00 LDA #UFIL STA ENSTAT,X USBG00 EQU $ RTS ;================================================ USCXAD EQU $ WORD 00,08,08 WORD 00,08,08 WORD 00,00,08 WORD 00,00,00 WORD 00,00,00 USCYAD EQU $ WORD 08,08,08 WORD 08,08,08 WORD 00,08,08 WORD 00,00,00 WORD 00,00,00 USCCDT EQU $ HEX C8,C8,C8 HEX CA,CA,CA HEX C0,C8,C8 HEX C2,C2,C2 HEX C2,C2,C2 USCADT EQU $ HEX 00,40,40 HEX 00,40,40 HEX 00,00,40 HEX 00,00,00 HEX 40,40,40 USCSBD EQU $ HEX 0,0,0 HEX 0,0,0 HEX 2,0,0 HEX 2,2,2 HEX 2,2,2 ;- - - - - - - - - - - - - - - - - - - - - - - USAG0CS EQU $ JSR OAMCHK LDA ENYPSL,X SEC SBC CRENPLL ;; JSL >CRKNENL JSR CREKEK ; JSR ENMVCL JSL >ENBGCKL ; LDA ENSTAT,X BNE ZKWALK ; LDA ENTIM0,X BNE ZKS010 ; JSL >RNDSET AND #3FH ADC #30H STA ENTIM0,X INC ENSTAT,X ; ZKSDST EQU $ LDA ENKBMK,X STA ENMUKI,X ; JSR EPXYCK TYA LDY ENMUKI,X CMP ENMUKI,X BNE ZKSS0A ; LDA Player ? ZKSS08 EQU $ ; yes ! INY INY INY INY LDA #80H STA ENTIM0,X ; High speed & long time ! ZKSS0A EQU $ ;; LDY ENMUKI,X ;; LDA ENTIM1,X ;; BEQ ZSSS10 ;; INY ;; INY ;; INY ;; INY ;;ZSSS10 EQU $ LDA ZKXSDT,Y STA ENXSPD,X LDA ZKYSDT,Y STA ENYSPD,X ZKS010 EQU $ RTS ;============================================ ZKNXMK EQU $ HEX 2,3,2,3,0,1,0,1 ; ZKWALK EQU $ LDA #10H ; LDY ENCBFG,X BNE ZKW008 ; LDA ENTIM0,X BNE ZKW010 ; LDA #30H ZKW008 EQU $ STA ENTIM0,X ; JSR H0SDCL ; ;; LDA #30H ;; STA ENTIM0,X ; JSL >RNDSET AND #01H STA ALOMCKL JSL >SADWSTL RTS ; ; ; ; ; ;-----Mihari heishi--------------------------------- MHMKDT EQU $ HEX 0,2,1,3 ; MIHA0M EQU $ JSR MIHA0CS ; JSR ENSTCK ; ;; JSL >CRENPLL ;; JSL >CRKNENL JSR CREKEK ; LDA ENSTAT,X CMP #03H BNE MHM000 ; found player ? ; ; yes ! LDA ALOMCKL RTS ;-----Bakudan heishi--------------------------------- HEBO0M EQU $ LDA ENWRK2,X BNE BOMBMV ; JMP BOM0F0 ; bomb ? ; ; yes ! BOMBMV EQU $ CMP #02H BCS CIE00F ;- - - Bomb - - JMP BB0010 ;- - - Bakuhatsu - - - CIE00F EQU $ BNE CIE023 ; From enemy ? ; ; yes ! (3;shsai fail) LDY #ENNO-1 CIE010 EQU $ CPY ENINDX BEQ CIE020 ; myself ? ; LDA ENMODE,Y ; no ! CMP #EMOVE BCC CIE020 TYA EOR CRENPLL ; CIE023 EQU $ JSR BBBRCS ; LDA ENTIM1,X BNE BBR010 ; STZ ENMODE,X BBR010 EQU $ RTS ;------------------------------------ CIESUB EQU $ LDA ENXPSL,X SEC SBC #10H STA ENCRST2 PLX JSL >CROJCK2 BCC CIE090 ; PHX TYX PHY LDA #08H ;Bomb ! JSL >ENDMST3 PLY PLX LDA ENXPSL,X STA ESERCHL PLY LDA EN1CSTL ; LDA ENFLSH,X BNE BB0011 ; LDA ENTIM1,X CMP #40H BCS BOMBF0 ; CMP #01H BNE BOMBE0 ; Bakuhatsu time ? ; ; yes ! BB0011 EQU $ JSL >SDLRCE ORA #0CH STA SOUND2 ;(S) ; INC ENWRK2,X ; LDA #09H STA ENMOD3,X ; LDA #02H STA ENCLOR,X ; LDA #20H STA ENTIM1,X ; ;; LDA ENMODE,X ;; CMP #ECACH ;; BNE BOMBD8 ;;; CACH CLEAR ! LDA #EFAIL STA ENMODE,X LDA #03H STA ENMOD0,X BOMBD8 EQU $ RTS ;- - - - - - - - - - - - - - - - - - - - - BOMBE0 EQU $ LSR A AND #00001110B STA CRKNENL ; ;;;;;; JSL >CACHCKL ; JSR ENMVCL JSL >ENBDSBL ;; JSR ENBDCL ; ;; LDA ENXSPD,X ;; ORA ENYSPD,X ;; BNE BOMB00 ; stop ? ;;; ;; LDA #40H ; yes ! bakuhatsu time set ! ;; STA ENTIM0,X BOMB00 EQU $ RTS ; ;=========================================================== ;ENBDCL EQU $ ; JSR ENMVCL ;; ; JSR ENZCLC ;; ; LDA ENZSPD,X ; SEC ; SBC #02H ; STA ENZSPD,X ; LDA ENZPSL,X ; BPL EIC008 ; STZ ENZPSL,X ; ; LDA ENZSPD,X ; EOR #0FFH ; INC A ; LSR A ; NOP ; CMP #09H ; BCS EIC003 ; LDA #00H ;EIC003 EQU $ ; STA ENZSPD,X ; LDA ENXSPD,X ; ASL A ; ROR ENXSPD,X ; LDA ENXSPD,X ; CMP #0FFH ; BNE EIC005 ; STZ ENXSPD,X ;EIC005 EQU $ ; LDA ENYSPD,X ; ASL A ; ROR ENYSPD,X ; LDA ENYSPD,X ; CMP #0FFH ; BNE EIC008 ; STZ ENYSPD,X ;EIC008 EQU $ ;ENIC10 EQU $ ; RTS ; ;======================================================================== BOM0F0 EQU $ JSR HEBO0CS ; JSR ENSTCK ; JSL >CRKNENL ; LDA MIHAFG BNE BOM000 ; JSR EPXYCK TYA STA ENMUKI,X STA ENKBMK,X ; LDA ENSTAT,X BNE BOM010 ; LDA ENTIM0,X BNE BOM000 ; INC ENSTAT,X BOMFFF EQU $ LDA #70H STA ENTIM0,X BOM000 EQU $ RTS ;==================================================================== BOM010 EQU $ LDA ENTIM0,X BNE BO0010 ; STZ ENSTAT,X LDA #20H STA ENTIM0,X RTS BO0010 EQU $ STZ ENCONT,X CMP #050H BCC BO0018 INC ENCONT,X BO0018 EQU $ CMP #20H BNE BO0020 PHA ; JSR BOMBSET PLA BO0020 EQU $ LSR A LSR A LSR A LSR A STA ENIDSH BMI BBS010 PHX LDA ENMUKI,X TAX LDA PSERCHL ;; LDA BBSXSD,X ;; STA ENXSPD,Y ;; LDA BBSYSD,X ;; STA ENYSPD,Y LDA #01H STA ENWRK2,X ; JSR EPXYCK LDA SDLRCE ORA #13H STA SOUND3 ;(S) ; PLX BBS010 EQU $ RTS ;--------------------- HBSZSD EQU $ HEX 20,28,30,38,40,40,40,40 HEX 40,40,40,40,40,40,40,40 ;========================================= HEBO0CS EQU $ JSR O2TEST ;; JSR OAMCHK ; ;; LDA ENCLOR,X ;; STA ALOMCKL RTS ;- - - - - - - - - - - - BWCXAD EQU $ WORD 00FFFFH,01 WORD 02,00 WORD 09,09 WORD 0FFF8H,0FFF8H BWCYAD EQU $ WORD 0FFF4H,0FFF4H WORD 0FFF4H,0FFF4H WORD 0FFF0H,0FFF2H WORD 0FFF4H,0FFF2H ; B0WPCS EQU $ PHX LDA ENMUKI,X ASL A ORA ENCONT,X ASL A TAX ; MEM16 REP #00100000B LDA ALOMCKL RTS ; ;---------------------------------------------------- HEIS0M EQU $ HEI00M EQU $ HEIS1M EQU $ LDA ENWRK2,X BNE HA0F00 JMP HEI001 ; serch beam ? HA0F00 EQU $ ; ; yes ! LDY #00H LDA ENXSPD,X BPL HA0100 DEY HA0100 EQU $ CLC ADC ENXPSL,X STA ENXPSL,X TYA ADC ENXPSH,X STA ENXPSH,X ; LDY #00H LDA ENYSPD,X BPL HA0200 DEY HA0200 EQU $ CLC ADC ENYPSL,X STA ENYPSL,X TYA ADC ENYPSH,X STA ENYPSH,X ; LDY ENWRK2,X LDA ENMYNO-1,Y CMP #MIHA0 BEQ HA0208 ; ;; JSL >ENBGCKL ;; LDA ENCBFG,X ;; BEQ HA0207 JSL >SHBGCK ; Serch beam BG check ! BCC HA0207 ; LDA UNITNO CMP #09H BNE HEI002 ; Asase -> not check ! ; HA0207 EQU $ LDA KAKUMD ; MUTEKI BNE HEI002 ;--- player hit check !( finding )---- HA0208 EQU $ ;; LDA CRENPL2L ;; BCC HA0280 ; find player ? ;; ; yes ! ;;HA2789 EQU $ LDA ENWRK2,X DEC A PHX TAX ; LDA ENSTAT,X CMP #03H BEQ HA0278 ; LDA #03H STA ENSTAT,X ; go atack ! LDA #10H STA ENTIM0,X STZ ENCONT,X HA0278 EQU $ PLX BRA HEI002 HA0280 EQU $ JSR OAMCHK LDA CRKNKNL JSL >CRENPLL BCS AWSET ; hannou ! ; LDA OTOFLG BEQ H0M112 ; Oto ? ; ; yes ! atack wait ! AWSET EQU $ LDA ENSTAT,X CMP #03H BCS H0M112 ; LDA #03H STA ENSTAT,X LDA #20H BRA HFFFF H0M112 EQU $ LDA ENHNFG,X BEQ H00000 ;hanekairi ? ; ; yes ! go atack ! LDA #04H STA ENSTAT,X LDA #080H HFFFF EQU $ JSR HERVSE ; time set,HEMODE cls,MOD3 rvse ;; STA ENTIM0,X ;;; ;; STZ HEMODE,X ;; LDA #060H ; BG hani revise ! ;; STA ENMOD3,X H00000 EQU $ JSR ENHNSB ; ;; JSR ENMVCL ;; JSR HEMVCL ; LDA HEMODE,X AND #00000111B CMP #00000101B BCS H00001 ; LDA ENCBFG,X BNE H00005 JSR ENMVCL H00005 EQU $ JSL >ENBGCKL BRA H00006 H00001 EQU $ JSR ENMVCL H00006 EQU $ ; ; WORD H0WKWT ;0 ; WORD H0WALK ;1 ; WORD H0KYRO ;2 ; WORD H0ATWT ;3 ; WORD H0ATCK ;4 ; LDA ENHNFG,X ; BNE H00RTS ; ;; LDA ENSTAT,X ;; JSL >JSRSUB ;= = = = = = = = == = = = = = = = = = = = = = = = LDA ENSTAT,X CMP #04H BEQ H0009 ; Dash sound set flag reset ! ; STZ ENCTCT,X H0009 EQU $ MEM16 IDX16 REP #00110000B AND #00FFH ASL A TAY LDA H0MVAD,Y DEC A PHA MEM8 IDX8 SEP #00110000B RTS ;============================================ H0MVAD EQU $ WORD H0WKWT ;0 WORD H0WALK ;1 WORD H0KYRO ;2 WORD H0ATWT ;3 WORD H0ATCK ;4 ;;---------------------- ;H00RTS EQU $ ; LDA #04H ; STA ENSTAT,X ; LDA #0FFH ; STA ENTIM0,X ; RTS ;- - - - - - - - - - - - - - - - - - H0WKTM EQU $ HEX 60,C0,FF,40 ; ;; HEX 20,30,40,50 ; H0WKWT EQU $ JSR H0SDCL LDA ENTIM0,X BNE HWW010 ; INC ENSTAT,X ; LDA HEMODE,X BEQ H0WW10 ;- - - kotei move - - - - - - - AND #00000111B CMP #00000101B BCS H0WW10 ; L R or U D move ? ; ; yes ! LDA HEMODE,X LSR A LSR A LSR A AND #00000011B TAY LDA H0WKTM,Y STA ENTIM0,X ; move range set ! LDA ENMUKI,X EOR #01H STA ENMUKI,X ; STZ ENCONT,X BRA H0TUST ;- - - normal move - - - - H0WW10 EQU $ JSL >RNDSET AND #03FH ; ADC #028H STA ENTIM0,X ; LDA ENMUKI,X PHA JSL >RNDSET AND #03H STA ENMUKI,X PLA CMP ENMUKI,X BEQ HWW010 EOR ENMUKI,X AND #00000010B BNE HWW010 ; H0TUST EQU $ LDA #0CH STA ENTIM1,X ; turn half pause set ! HWW010 EQU $ RTS ;--------------------------------- H0WXSD EQU $ BYTE 008H,0F8H,000H,000H H0WYSD EQU $ BYTE 000H,000H,008H,0F8H H0WKPT EQU $ Y0WKPT EQU $ YWP1 EQU $ BYTE 0BH,0CH,0DH,0CH BYTE 04H,05H,06H,05H BYTE 00H,01H,02H,03H BYTE 07H,08H,09H,0AH YWP0 EQU $ BYTE 11H,12H,11H,12H BYTE 07H,08H,07H,08H BYTE 03H,04H,03H,04H BYTE 0DH,0EH,0DH,0EH ;==================================================================== KBCBXS EQU $ HEX 01,01,FF,FF,FF,FF,01,01 KBCBYS EQU $ HEX FF,01,01,FF,FF,01,01,FF KBMVXS EQU $ HEX 08,00,F8,00,F8,00,08,00 KBMVYS EQU $ HEX 00,08,00,F8,00,08,00,F8 KBMVMK EQU $ HEX 0,2,1,3,1,2,0,3 KBCBCK EQU $ HEX 1,4,2,8,2,4,1,8 KBCBC2 EQU $ BYTE 8,1,4,2,8,2,4,1 KBNXMK EQU $ BYTE 1,2,3,0,5,6,7,4 KBNXM2 EQU $ BYTE 3,0,1,2,7,4,5,6 ;- - - - - - - - - - - - - - - - - - - - - - - - KABEMV EQU $ LDY ENWRK1,X LDA KBCBXS,Y STA ENXSPD,X LDA KBCBYS,Y STA ENYSPD,X ; JSL >ENBGCKL ; LDA ENTIM2,X BEQ KBM010 ; CMP #2CH BNE KBM020 ; LDY ENWRK1,X LDA KBNXM2,Y STA ENWRK1,X BRA KBM020 ; KBM010 EQU $ ;; LDY ENWRK1,X ;; LDA KBCBXS,Y ;; STA ENXSPD,X ;; LDA KBCBYS,Y ;; STA ENYSPD,X ;;; ;;; JSL >ENBGCKL ; LDY ENWRK1,X LDA ENCBFG,X AND KBCBC2,Y BNE KBM020 ; LDA #58H STA ENTIM2,X ;; BRA KBM030 KBM020 EQU $ LDY ENWRK1,X LDA ENCBFG,X AND KBCBCK,Y BEQ KBM030 ; LDA KBNXMK,Y STA ENWRK1,X KBM030 EQU $ LDY ENWRK1,X LDA KBMVXS,Y STA ENXSPD,X LDA KBMVYS,Y STA ENYSPD,X LDA KBMVMK,Y STA ENMUKI,X STA ENKBMK,X ; JMP H0WKPS ; ; ; ; ; ; ; ; ;==================================================================== H0WALK EQU $ JSR H0SER2 ; LDA HEMODE,X AND #00000111B CMP #00000101B BCC H0W000 ; JMP KABEMV ; kabe soi move ! ; H0W000 EQU $ LDA ENTIM0,X BNE H0W010 ; ;; STZ ENXSPD,X ;; STZ ENYSPD,X ;; JSR H0SDCL ; GOKYRO EQU $ JSR H0SDCL ; LDA #02H STA ENSTAT,X ; ;; JSL >RNDSET ;; AND #3FH ; LDA #0A0H STA ENTIM0,X RTS H0W010 EQU $ LDA ENCONT,X AND #01H BNE HOW011 ; INC ENTIM0,X ; long timer ! HOW011 EQU $ LDA ENCBFG,X AND #0FH BEQ H0W018 ; LDA ENMUKI,X EOR #01H STA ENMUKI,X ; ;; LDA #0AH ;; STA ENTIM1,X ; turn half pause set ! JSR H0TUST H0W018 EQU $ LDY ENMUKI,X LDA H0WXSD,Y STA ENXSPD,X LDA H0WYSD,Y STA ENYSPD,X TYA STA ENKBMK,X ; H0WKPS EQU $ INC ENCONT,X LDA ENCONT,X LSR A LSR A LSR A AND #03H STA SDLRCE ORA #04H STA SOUND3 ;(S) ; INC ENCTCT,X H0AT11 EQU $ TXA AND #03H TAY ;; LDA #12H ; LDA ENMYNO,X CMP #HEI00 BEQ H0AT0F ; ;; LDA DJFLG ;; BEQ H0AT0F ;; INY ;; INY ;; INY ;; INY H0AT0F EQU $ LDA H0SHSD,Y JSL >PSERCHL JSR EPXYCK TYA STA ENMUKI,X STA ENKBMK,X H0AT10 EQU $ LDA ENCBFG,X BEQ H0AT20 ; AND #0000011B BEQ H0AT13 JSR EPYCHK INY INY BRA H0AT18 H0AT13 EQU $ JSR EPXCHK ; H0AT18 EQU $ LDA HOATTX,Y STA ENXSPD,X LDA HOATTY,Y STA ENYSPD,X H0AT20 EQU $ ; ATWKPS EQU $ INC ENCONT,X JSR H0WKPS H0AT50 EQU $ RTS ;- - - - HOATTX EQU $ HEX 0E,F2,00,00 HOATTY EQU $ HEX 00,00,0E,F2 ;- - - - -- - -- - -- H0SHSD EQU $ BYTE 10H,10H,10H,10H H2SHSD EQU $ BYTE 12H,12H,12H,12H ;; BYTE 14H,13H,14H,13H ;; BYTE 0CH,0EH,0EH,10H ;=========================================== ;################################################# H0SHXD EQU $ BYTE 0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H BYTE 0F0H,0F2H,0F4H,0F6H,0F8H,0FAH,0FCH,0FEH ; BYTE 000H,002H,004H,006H,008H,00AH,00CH,00EH BYTE 010H,010H,010H,010H,010H,010H,010H,010H ; BYTE 010H,010H,010H,010H,010H,010H,010H,010H BYTE 00EH,00CH,00AH,008H,006H,004H,002H,000H ; BYTE 0FEH,0FCH,0FAH,0F8H,0F6H,0F4H,0F2H,0F0H BYTE 0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H H0SHYD EQU $ BYTE 000H,002H,004H,006H,008H,00AH,00CH,00EH BYTE 010H,010H,010H,010H,010H,010H,010H,010H ; BYTE 010H,010H,010H,010H,010H,010H,010H,010H BYTE 00EH,00CH,00AH,008H,006H,004H,002H,000H ; BYTE 0FEH,0FCH,0FAH,0F8H,0F6H,0F4H,0F2H,0F0H BYTE 0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H ; BYTE 0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H BYTE 0F2H,0F4H,0F6H,0F8H,0FAH,0FCH,0FEH,000H ;=========================================== ;################################################# H0SEDT EQU $ BYTE 10H,30H,00H,20H ;=============================== H0SER2 EQU $ ; walking find ;; TXA ;; CLC ;; ADC ENIDSH2 BMI H0S010 ; LDA SADWS2L ;; LDY #0FFH ;; LDA #06H ;; JSL >ALOMCKL RTS ;- - - - - - - - HESWYA EQU $ HEX 0C,0C,0A,0A ;========================== H0HDCD EQU $ BYTE 042H,042H,040H,044H H0HDAD EQU $ BYTE 040H,000H,000H,000H HEHDYD EQU $ WORD 7,8,7,8 WORD 8,7,8 WORD 7,8,7,8 WORD 8,7,8 ; WORD 8,8,8 WORD 8,8,8 WORD 8,8,8 WORD 8,8,8 ;- - - - - - - - - - - - - - - - - - - - - - - - H0HDCS EQU $ LDY #00H HEHDCS EQU $ PHX ;; LDA ENCONT,X ;; LSR A ;; LSR A ;; LSR A ;; NOP ;; NOP ;; EOR #01H ;; LSR A ; LDA ENCHPT,X ASL A STA ENBGCKL ; JSL >CRKNKNL JSL >CRENPLL ;; JSR CREKEK ; TXA EOR PSERCHL ; LDA ENCBFG,X BEQ H3AT20 ; AND #0000011B BEQ H3AT13 JSR EPYCHK INY INY BRA H3AT18 H3AT13 EQU $ JSR EPXCHK ; H3AT18 EQU $ LDA HOATTX,Y STA ENXSPD,X LDA HOATTY,Y STA ENYSPD,X H3AT20 EQU $ H3WK10 EQU $ INC ENCONT,X JSR H0WKPS RTS ; ;===================================================== ;======================================= HEIS2M EQU $ JSR HEIS2CS ; JSR ENSTCK ; JSR ENHNSB ; JSR HEMVCL ;; JSR ENMVCL JSL >ENBGCKL ; JSL >CRKNKNL JSL >CRENPLL ;; JSR CREKEK ; TXA EOR PSERCHL ; LDA ENCBFG,X BEQ H2AT20 ; AND #0000011B BEQ H2AT13 JSR EPYCHK INY INY BRA H2AT18 H2AT13 EQU $ JSR EPXCHK ; H2AT18 EQU $ LDA HOATTX,Y STA ENXSPD,X LDA HOATTY,Y STA ENYSPD,X H2AT20 EQU $ H2WK10 EQU $ ;H2WKST EQU $ LDA ENMUKI,X ASL A ASL A ASL A STA SADWSTL ;; LDY #0FFH ;; LDA #05H ;; JSL >ALOMCKL RTS ;======================================= H2WXAD EQU $ WORD 010H,008H WORD 014H,00CH ; WORD 0FFF8H,000H WORD 0FFF4H,0FFFCH ; WORD 00DH,00DH WORD 00DH,00DH ; WORD 0FFFCH,0FFFCH WORD 0FFFCH,0FFFCH H2WYAD EQU $ WORD 0FFFEH,0FFFEH WORD 0FFFEH,0FFFEH ; WORD 0FFFEH,0FFFEH WORD 0FFFEH,0FFFEH ; WORD 008H,000H WORD 00CH,004H ; WORD 0FFF2H,0FFFAH WORD 0FFEEH,0FFF6H H2WCDT EQU $ BYTE 06FH,07FH BYTE 06FH,07FH ; BYTE 06FH,07FH BYTE 06FH,07FH ; BYTE 06EH,07EH BYTE 06EH,07EH ; BYTE 06EH,07EH BYTE 06EH,07EH H2WADT EQU $ BYTE 040H,040H BYTE 040H,040H ; BYTE 000H,000H BYTE 000H,000H ; BYTE 080H,080H BYTE 080H,080H ; BYTE 000H,000H BYTE 000H,000H ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - Y2WPCS EQU $ LDY #00H Y2WPC2 EQU $ LDA ENCONT,X LSR A LSR A BRA H2W012 ;- - - - - - - - - - - - - H2WPCS EQU $ LDA ENCONT,X LDY #00H H2W012 EQU $ LSR A AND #02H STA ENBGCKL ; ;; JSL >CRKNENL ;; JSL >CRENPLL JSR CREKEK BCS YAWSET ; hannou ! ; LDA OTOFLG BEQ YH0M112 ; Oto ? ; ; yes ! atack wait ! YAWSET EQU $ LDA ENSTAT,X CMP #03H BCS YH0M112 ; LDA #03H STA ENSTAT,X LDA #20H STA ENTIM0,X YH0M112 EQU $ ; LDA ENHNFG,X ; BNE HY0RTS ; yarare -> fury ! ; ;; LDA ENSTAT,X ;; JSL >JSRSUB ;= = = = = = = = == = = = = = = = = = = = = = = = LDA ENSTAT,X MEM16 IDX16 REP #00110000B AND #00FFH ASL A TAY LDA HYMVAD,Y DEC A PHA MEM8 IDX8 SEP #00110000B RTS ;============================================ HYMVAD EQU $ WORD HY0WWT ;0 WORD HY0WLK ;1 WORD HY0KYR ;2 WORD HY0ATW ;3 WORD HY0ATC ;4 WORD HY0YAA ;5 ;- - - - - - - - - - - - - - - - - - - - - - - ;HY0RTS EQU $ ; fury !! ; JMP HYGOAT ;- - - - - - - - - - - - - - - - - - HY0WWT EQU $ JSR H0SDCL ; LDA ENTIM0,X BNE Y0WT10 ; INC ENSTAT,X ; JSL >RNDSET AND #07FH ; ADC #050H STA ENTIM0,X ; LDA ENMUKI,X PHA JSL >RNDSET AND #03H STA ENMUKI,X PLA CMP ENMUKI,X BEQ Y0WT10 EOR ENMUKI,X AND #00000010B BNE Y0WT10 ; LDA #0CH STA ENTIM1,X ; turn half pause set ! Y0WT10 EQU $ RTS ;--------------------------------- ; HY0WLK EQU $ LDA ENTIM0,X BNE Y0W010 ; LDA #02H STA ENSTAT,X ; LDA #0A0H STA ENTIM0,X RTS Y0W010 EQU $ JSR H0SER2 ; LDA ENCBFG,X AND #0FH BEQ Y0W018 ; LDA ENMUKI,X EOR #01H STA ENMUKI,X ; ;; LDA #0AH ;; STA ENTIM1,X ; turn half pause set ! JSR H0TUST Y0W018 EQU $ LDY ENMUKI,X LDA H0WXSD,Y STA ENXSPD,X LDA H0WYSD,Y STA ENYSPD,X TYA STA ENKBMK,X ;- - - - - - - - - - - - - - - - - - - - - Y0WKPS EQU $ INC ENCONT,X LDA ENCONT,X AND #07H BNE Y0W020 INC ENWRK0,X LDA ENWRK0,X CMP #03H BNE Y0W020 STZ ENWRK0,X Y0W020 EQU $ LDA ENMUKI,X ASL A ASL A ADC ENWRK0,X LDY ENMYNO,X CPY #HEYA2 BNE Y0W030 CLC ADC #YWP0-YWP1 Y0W030 EQU $ TAY LDA Y0WKPT,Y STA ENCHPT,X RTS ;--------------------------------------------------------------- HY0KYR EQU $ JSR H0SDCL JSR H0SERC ; LDA ENTIM0,X BNE Y0K010 ; LDA #20H STA ENTIM0,X LDA #00H STA ENSTAT,X RTS Y0K010 EQU $ CMP #80H BCS Y0K028 ;; LSR A NOP LSR A LSR A LSR A AND #00000111B STA ESERCHL ; LDA ENIDSH BMI HYS010 ; JSL >SDLRCE ORA #05H STA SOUND3 ;(S) ; PHX LDA ENMYNO,X CMP #HEYA2 LDA ENMUKI,X BCC HYS030 CLC ADC #04H HYS030 EQU $ TAX LDA ITMTBL7 BNE HYS010 ; tate yowai ? -> yari makeru ! ; LDA ENMOD4,Y AND #11011111B STA ENMOD4,Y HYS010 EQU $ RTS ;=============================================== HEYA3CS EQU $ LDA ENCHPT,X PHA STZ ENCHPT,X LDA ENCLOR,X PHA AND #11110001B ORA #00000010B STA ENCLOR,X MEM16 REP #00100000B LDA ENYP2L PHA CLC ADC #0008H STA ENYP2L MEM8 SEP #00100000B JSL >EN1CSTL MEM16 REP #00100000B PLA STA ENYP2L MEM8 SEP #00100000B PLA STA ENCLOR,X PLA STA ENCHPT,X ; JSR O2TEST ; LDY #04H+08H+4 JSR TKHDC2 ; head set LDY #00H+08H+4 JSR TKBDC2 ; body set LDA ENCHPT,X CMP #14H BCS Y3C098 ; yari with ? ; ; yes ! LDY #04H JSR Y2WPC2 ; wepon set Y3C098 EQU $ JSR HESWST ;; JSL >SADWSTL RTS ;=============================================== HEYA2CS EQU $ JSR O2TEST ;; JSR OAMCHK ; ;; LDA ENCLOR,X ;; STA SADWSTL RTS ;========================================================= HEYA3M EQU $ LDA ENSTAT,X BEQ HY3020 ; ;; LDA ENCHPT,X ;; CMP #07H CMP #02H BNE HY3010 JSR HEYA3CS BRA HY3020 HY3010 EQU $ JSR HEYA1C2 ; gasa gasa set ! HY3020 EQU $ BRA HY1020 ;- - - - - - - - - - - - - - - - - - - - - - HEYA1M EQU $ LDA ENSTAT,X BEQ HY1020 ; LDA ENCHPT,X CMP #0EH BCC HY1010 JSR HEYA1CS BRA HY1020 HY1010 EQU $ JSR HEYA1C2 ; gasa gasa set ! HY1020 EQU $ JSR ENSTCK ; ;; JSL >CRKNENL ;; JSL >CRENPLL ;; JSR CREKEK ;= = = = = = = = == = = = = = = = = = = = = = = = LDA ENSTAT,X MEM16 IDX16 REP #00110000B AND #00FFH ASL A TAY LDA H1MVAD,Y DEC A PHA MEM8 IDX8 SEP #00110000B RTS ;============================================ H1MVAD EQU $ WORD Y1WAIT ;0 WORD Y1SET ;1 WORD Y1YAAA ;2 WORD Y1END ;3 ;=========================================== Y1WAIT EQU $ LDA ENTIM0,X STA ENNOCR,X BNE Y1W010 ; INC ENSTAT,X LDA #40H STA ENTIM0,X Y1W010 EQU $ RTS ;=========================================== Y1STPT EQU $ BYTE 4,4,4,4,4,4,4,4 BYTE 0,1,0,1,0,1,0,1 BYTE 0,1,0,1,0,1,0,1 BYTE 0,1,0,1,0,1,0,1 ; ; BYTE 5,5,5,4,6,6,6,4 ; BYTE 4,3,2,1,0,1,0,1 ; BYTE 0,1,0,1,0,1,0,1 ; BYTE 0,1,0,1,0,1,0,1 ; Y1SET EQU $ JSR CREKEK ; LDA ENTIM0,X BNE Y1ST10 ; INC ENSTAT,X ; LDA #30H STA ENTIM0,X ; JSR EPXYCK TYA STA ENMUKI,X STA ENKBMK,X RTS Y1ST10 EQU $ CMP #020H BNE Y1ST20 PHA JSR Y1KUSA ; Parapara set ! PLA Y1ST20 EQU $ ;; LSR A LSR A LSR A NOP NOP TAY LDA Y1STPT,Y STA ENCHPT,X RTS ;- - -- - - - - Y1KUSA EQU $ LDA #KTOBJ JSL >ENIDSH BMI Y1KS10 ; JSL >ENIDPS ; LDA ALOMCKL RTS ; ; ; ; ;=========================================== HYHDID EQU $ BYTE 10H,10H,10H,00H HYBDID EQU $ BYTE 14H,14H,14H,04H HYWPID EQU $ BYTE 00H,00H,00H,10H ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - HEYA1CS EQU $ HEYA0CS EQU $ JSR O2TEST ;; JSR OAMCHK ; ;; LDA ENCLOR,X ;; STA SADWSTL RTS ;========================= ;HEYA1CS EQU $ ; JSR O2TEST ;; ; LDY ENMUKI,X ; LDA HYHDID,Y ; TAY ; JSR TKHDC2 ; head set ; BRA YC0000 ; ;------------- HYWXAD EQU $ WORD 0FFFFH,007H,003H,003H WORD 0FFFFH,007H,003H,003H WORD 0FFFFH,007H,007H,007H ; WORD 0FFFBH,0FFFBH,0FFF6H,0FFFEH WORD 0FFFCH,0FFFCH,0FFFAH,002H WORD 0FFFBH,0FFFBH,0FFFBH,0FFFBH ; WORD 006H,00EH,00BH,00BH WORD 006H,00EH,00BH,00BH WORD 006H,00EH,00EH,00EH ; WORD 00BH,00BH,012H,00AH WORD 00CH,00CH,00EH,006H WORD 00BH,00BH,00BH,00BH HYWYAD EQU $ WORD 007H,007H,003H,00BH WORD 006H,006H,001H,009H WORD 007H,007H,007H,007H ; WORD 0FFFEH,006H,002H,002H WORD 0FFFEH,006H,002H,002H WORD 0FFFEH,006H,006H,006H ; WORD 0FFFAH,0FFFAH,0FFF4H,0FFFCH WORD 0FFFAH,0FFFAH,0FFF7H,0FFFFH WORD 0FFFAH,0FFFAH,0FFFAH,0FFFAH ; WORD 0FFFEH,006H,002H,002H WORD 0FFFEH,006H,002H,002H WORD 0FFFEH,006H,006H,006H HYWCDT EQU $ BYTE 00AH,00AH,02AH,02BH BYTE 01AH,01AH,02AH,02BH BYTE 00AH,00AH,00AH,00AH ; BYTE 00BH,00BH,03DH,03AH BYTE 01BH,01BH,03DH,03AH BYTE 00BH,00BH,00BH,00BH ; BYTE 00AH,00AH,02BH,02AH BYTE 00AH,00AH,02BH,02AH BYTE 00AH,00AH,00AH,00AH ; BYTE 00BH,00BH,03DH,03AH BYTE 01BH,01BH,03DH,03AH BYTE 00BH,00BH,00BH,00BH HYWADT EQU $ BYTE 007H,047H,008H,008H BYTE 007H,047H,008H,008H BYTE 007H,047H,047H,047H ; BYTE 007H,087H,048H,048H BYTE 007H,087H,048H,048H BYTE 007H,087H,087H,087H ; BYTE 087H,0C7H,088H,088H BYTE 087H,0C7H,088H,088H BYTE 087H,0C7H,0C7H,0C7H ; BYTE 047H,0C7H,008H,008H BYTE 047H,0C7H,008H,008H BYTE 047H,0C7H,0C7H,0C7H ;----------------------------------------------------------- HYWMKD EQU $ BYTE 17H-0EH,11H-0EH,0EH-0EH,14H-0EH ; HYWPCS EQU $ LDA ENCHPT,X SEC SBC #0EH BCS HWC010 ; PHY LDY ENMUKI,X LDA HYWMKD,Y PLY HWC010 EQU $ ASL A ASL A STA SETOAML2 ; JSL >SADWSTL RTS ;---------------------------------------- BARIFF EQU $ JSR BARIFCS ;INU SET JSR ENSTCK ;; JSR ENHNSB ; LDA >ITMTBL6 CMP #02H BCC BF0010 ; Ken high power ? ; ; yes ! damage check ! JSL >CRKNENL BF0010 EQU $ JSL >CRENPL2L BCC BF0018 ; LDA #20H JSL >PSERC2L LDA DASCLR1 ;DASH KINSI!! BF0018 EQU $ ;; JSL >CRENPL2L ;; BCC BARIF0 ;; JSL >PLOTCK ;; STZ DASHON ;;BARIF0 EQU $ LDA MSGCHK BRA BRM00E ;- - - - - - - - - - - - - - - - - - - - - - BRM002 EQU $ LDA BRMSCT ; MESEGE COUNTER ! PHA CLC ADC #MS_0020 JSL >MSGCHK PLA BCC BRM00C ; MSG set ? INC A ; yes ! CMP #05H+1 BNE BRM00C LDA #00H BRM00C EQU $ STA BRMSCT BRM00E EQU $ ; ;; JSL >CRKNENL ;; JSL >CRKNKNL ;; JSL >CRENPLL JSR CREKEK ; TXA EOR player BRM010 EQU $ RTS ;================================ BRCXAD EQU $ WORD 004H,000H,0FFFAH,0FFFAH,0FFFAH+8 WORD 000H,000H,0FFF9H,0FFF9H,0FFF9H WORD 000H,000H,00FH,00FH,00FH WORD 006H,006H+8,0FFFCH,004H,000H BRCYAD EQU $ WORD 000H,0FFF6H,0FFFCH,00CH,00CH WORD 000H,0FFF7H,0FFF5H,0FFF5H+8,0FFF5H+10H WORD 000H,0FFF7H,0FFF5H,0FFF5H+8,0FFF5H+10H WORD 0FFF5H,0FFF5H+10H,000H,000H,0FFF7H BRCCDT EQU $ BYTE 046H,040H,000H,028H,029H BYTE 04EH,042H,039H,02AH,03AH BYTE 04EH,042H,039H,02AH,03AH BYTE 026H,038H,064H,064H,044H BRCADT EQU $ BYTE 040H,000H,000H,000H,000H BYTE 000H,000H,000H,000H,000H BYTE 040H,040H,040H,040H,040H BYTE 000H,040H,000H,040H,000H BRCSBD EQU $ BYTE 002H,002H,002H,000H,000H BYTE 002H,002H,000H,000H,000H BYTE 002H,002H,000H,000H,000H BYTE 002H,000H,002H,002H,002H BARI0CS EQU $ ;; JSR OAMCHK JSR O2TEST ; ;; LDA ENCLOR,X ;; STA ALOMCKL RTS ;============================================================= BRSDXL EQU $ BYTE 00CH,0F8H,0F8H,008H BRSDXH EQU $ BYTE 000H,0FFH,0FFH,000H BRSDXA EQU $ BYTE 00CH,00CH,010H,010H BRSDYL EQU $ BYTE 0F8H,0F8H,0FEH,0F8H BRSDYH EQU $ BYTE 0FFH,0FFH,0FFH,0FFH BRSDYA EQU $ BYTE 018H,018H,018H,018H ;-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- BRSDRS EQU $ PHB PHK PLB ; LDY ENMUKI,X ; LDA ENXPSL,X CLC ADC BRSDXL,Y STA CRENPL2L BCC CRS310 ; STZ DASCLR1 ; STZ OCHECKL ; LDY ENCHPT,X LDA E3CHPT,Y TAY LDA E3CYRV,Y STA ALOMCKL RTS ;======================== E4CCDT EQU $ BYTE 0A2H,0A4H E4CYRV EQU $ BYTE 0,1,2,3,4,5,5 E4CHPT EQU $ BYTE 0,0,1,1,2,2,3,3,4,5,5,5 ;; BYTE 0,0,1,1,2,2,3,3,4,5,5 ; ESW04CS EQU $ JSR O2TEST ; JSL >OCHECKL ; LDY ENCHPT,X LDA E4CHPT,Y TAY LDA E4CYRV,Y STA OCHECKL ; LDY ENCHPT,X LDA ES2YDT,Y STA ALOMCKL RTS ;--------------------------------------------------- CRS2PL EQU $ JSL >CRENPL2L BCC CRSL10 ; STZ DASCLR1 ; STZ OPMODE CMP #prnce BNE OYAGI10_I ;? ONNANOKO(HELP0) O TURETERU LDA >MODTBL1 ORA #006H ; DOOR MOVE & ONNANOKO HELP FLG(SAVE) STA >MODTBL1 LDA #0AAH STA ENTIM0,X ;INIT STOP TIME LDA #002H BRA OYAGI20_I ; OYAGI10_I EQU $ LDA >MODTBL1 ;INIT MODE AND #00000110B LSR A OYAGI20_I EQU $ STA ENCONT,X ;SINPU MOVE MODE ASL A TAY LDA SINPUPX,Y ;INIT POS SET X CLC ADC ENXPSL,X STA ENXPSL,X LDA SINPUPX+1,Y ADC ENXPSH,X STA ENXPSH,X ; LDA SINPUPY,Y ;INIT POS SET Y CLC ADC ENYPSL,X STA ENYPSL,X LDA SINPUPY+1,Y ADC ENYPSH,X STA ENYPSH,X ; JSR KYDAIST ;KYODAI SET ; INC ENNOCR,X ;beem thru ; LDA #000H STA >KRXBUF+1 ;ONNANOKO(HELP0) TALK FLG ; RTS ; ;---------------------------------------- OYAGI30_I EQU $ CMP #004H BNE OYAGI40_I ; LDA >MODTBL1 ;PL. SLEEP AND #010H BNE OYAGI50_I ; LDA #000H STA ENCONT,X ; LDA ENXPSL,X CLC ADC #008H STA ENXPSL,X LDA ENXPSH,X ADC #000H STA ENXPSH,X LDA #000H STA ENMUKI,X RTS ; OYAGI40_I EQU $ LDA >MODTBL1 ;PL. not SLEEP AND #001H BNE OYAGI50_I ; LDA #001H STA ENCONT,X LDA #003H STA ENMUKI,X RTS OYAGI50_I EQU $ STZ ENMODE,X ;KILL I RTS ;---------------------------------------- KDASTXD EQU $ WORD 004F0H;,00110H,00110H,00110H KDASTYD EQU $ WORD 00237H;,00837H,00837H,00837H KYDAIST EQU $ INC ENMODE+ENNO-1 ;ONNANOKO YOU ; LDA #OYAGI JSL >ENIDSH ;;; BMI OYGST10 ; STZ ENMODE+ENNO-1 ;ONNANOKO YOU ; ; PHX LDA ENMOD0,Y ;OAM NO KAZU AND #0F0H ORA #003H STA ENMOD0,Y ; ; LDA >MODTBL1 ;INIT MODE ; LSR A ; AND #003H ;KDAST20 EQU $ ; STA ENCONT,Y ;KYODAI MOVE MODE ; ASL A ; TAX LDA KDASTXD+0;,X STA ENXPSL,Y LDA KDASTXD+1;,X STA ENXPSH,Y LDA KDASTYD+0;,X STA ENYPSL,Y LDA KDASTYD+1;,X STA ENYPSH,Y ; PLX ; ;;KDAST10 EQU $ LDA #002H ;KYDAI NO STA ENZSPD,Y LDA #0BH STA ENMOD3,Y ;OBJ hit hani ! LDA ENMOD5,Y ;HUKKU ATARI ORA #020H STA ENMOD5,Y LDA #001H STA ENCONT,Y ; LDA ENYPSL,Y STA JSRSUB WORD OYAGI00 WORD SINPU00 WORD KYDAI00 ;---------------------------------------- ;---------------------------------------- ; KYDAI MOVE ;---------------------------------------- KYDAI00 EQU $ JSR KYDAICS JSR ENSTCK ; scroll : not return ! ; LDA ENWRK2,X BNE KYDAI30 ; JSL >CRENPL2L BCC KYDAI10 ; ;----------------------------------------SAWARI JSL >PLOTCK ;PL. POS. recover ; STZ DASHON ; LDA #007H STA ENTIM1,X ; KYDAI20 EQU $ STZ ENCONT,X ;CLS ; LDA #081H ;PL. PUSH E STA JSRSUB WORD KYDF0M0 WORD KYDF0M1 WORD KYDF0M2 ;----------------------------------------SAWARANAI KYDAI10 EQU $ LDA ENTIM1,X BNE KYDAI20 ; LDA ENCONT,X JSL >JSRSUB WORD KYDF1M0 WORD KYDF1M1 ;----------------------------------------UE SENYOU KYDAI30 EQU $ LDA #040H STA ENWRK0,X LDA ENSTAT,X JSL >JSRSUB WORD KYDF0M0 WORD KYDF0M1 WORD KYDF0M2 ;---------------------------------------- KYDF1M0 EQU $ STZ ENWRK0,X ;KAUNT CLS STZ MODTBL1 ;DOOR OPEN FLG(SAVE) ; ORA #002H ; STA >MODTBL1 LDA #001H ;STOP PL. STA PYALSP KYD0010 EQU $ RTS ;---------------------------------------- KYDF0M1 EQU $ JSL >SDLRCE ORA #018H ;OTO STA SOUND3 ; INC ENSTAT,X LDA #0A8H ;X KYORI STA ENTIM0,X LDA #003H ;X SPEED STA ENXSPD,X LDA #002H STA ENTIM1,X RTS ;---------------------------------------- KYDF0M2 EQU $ JSR ENMVCL ; xclc,yclc ! LDA ENTIM0,X BNE KYD0210 ; STZ PYALSP ;PL. MOVE STZ ENXSPD,X ;SPEED OFF STZ ENWRK2,X RTS KYD0210 EQU $ LDA #002H STA ENTIM1,X RTS ;---------------------------------------- KYDAICD EQU $ WORD 00000,00000 BYTE 02CH,016H,000H,002H WORD 00016,00000 BYTE 02CH,056H,000H,002H WORD 00000,00016 BYTE 02EH,006H,000H,002H WORD 00016,00016 BYTE 02EH,046H,000H,002H ; KYDAICS EQU $ ;; LDA SETOAML ;OAM SET ; RTS KDICS10 EQU $ JSL >SETOAML2 ;OAM SET ; RTS ;---------------------------------------- ENMKIST EQU $ ; ENMUKI : NOW MUKI ; ENCMKI : NEW MUKI ; ; ; ; LDA ENMUKI,X CMP ENCMKI,X BEQ ENMKST1 ; LDA ENMKIST ;MUKI SET JSR ENMVCL ; xclc,yclc ! ; LDA ENCONT,X JSL >JSRSUB WORD SINPUF0 ; DEMO 1,2( move , openinmg door) WORD SINPUF1 ; DEMO 3(open door) WORD SINPUF2 ; DEMO 4(onna move) WORD SINPUF3 ; DEMO 4(onna NARABI) ;---------------------------------------- SINPUF0 EQU $ ;;;;;;;; LDA ENSTAT,X ;;;;;;;; JSL >JSRSUB ;;;;;;;; WORD SNPF0M0 ; WAIT & MSGE ;;;;;;;; WORD SNPF0M4 ;;;;;;;; WORD SNPF0M1 ;;;;;;;; WORD SNPF0M2 ;;;;;;;; WORD SNPF0M3 ;REBA NOT MOVE ;;;;;;;; WORD SNPF0M5 ;REBA MOVE AFTER ;;;;;;;;;---------------------------------------- ;;;;;;;;SNPF0M0 EQU $ JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X STA ENMUKI,X ; ;;;;;;;; LDA ITEMR20 ;Y ;;;;;;;; CMP #001H ;;;;;;;; BNE SPF0M01 ;? TEGAMI GET ;;;;;;;;; ;Y ;;;;;;;; LDA #LOW MS_0030 ;;;;;;;; LDY #HIGH MS_0030 ;;;;;;;; JSL >ENMSG2L ;;;;;;;; BCC SPF0M01 ;;;;;;;;; ;;;;;;;; JSL >DASCLR1 ;;;;;;;;; ;;;;;;;; INC ENSTAT,X ;;;;;;;;; ;;;;;;;; LDA >MODTBL1 ;DOOR OPEN FLG(SAVE) ;;;;;;;; ORA #002H ;;;;;;;; STA >MODTBL1 ;;;;;;;;; ;;;;;;;; LDA #000H ;TEGAMI OFF ;;;;;;;; STA >ITEMR20 ;;;;;;;; PHX ;;;;;;;; JSL >ITEM0ST ;ITEM PRINT SET ;;;;;;;; PLX RTS ; ;;;;;;;;SPF0M01 EQU $ ;;;;;;;; MEM16 ;;;;;;;; REP #00100000B ;;;;;;;;; ;;;;;;;; LDA ENYP2L ;;;;;;;; CLC ;;;;;;;; ADC #00010H ;;;;;;;; CMP ENMSGSL ;;;;;;;;; ;;;;;;;; JSL >DASCLR1 ;;;;;;;;; ;;;;;;;;SPF0M00 EQU $ ;;;;;;;; MEM8 ;;;;;;;; SEP #00110000B ;;;;;;;;; ;;;;;;;; RTS ;;;;;;;;; ;;;;;;;;;---------------------------------------- ;;;;;;;;SPF0M1T EQU $ ;;;;;;;; BYTE 02AH,058H,001H ;;;;;;;;SPF0M1M EQU $ ;;;;;;;; BYTE 002H,000H,003H ;;;;;;;;SNPF0M1 EQU $ ;;;;;;;; LDA ENMSGSL ;MSGE SET ;;;;;;;;; ;;;;;;;; STZ PYALSP ;MOVE PL. ;;;;;;;; INC ENSTAT,X ;;;;;;;;; ;;;;;;;;SPF0M20 EQU $ ;;;;;;;; RTS ;;;;;;;;;---------------------------------------- ;;;;;;;;SNPF0M3 EQU $ ;;;;;;;;; ;;;;;;;; JSR EPXYCK ;pl muki set ;;;;;;;; TYA ;;;;;;;; EOR #003H ;;;;;;;; STA ENCMKI,X ;;;;;;;;; ;;;;;;;; LDA #LOW MS_0031 ;MSGE NO ;;;;;;;; LDY #HIGH MS_0031 ;MSGE NO ;;;;;;;; JSL >ENMSGEL ;MSGE SET ;;;;;;;;; ;;;;;;;; BCC SPF0M30 ;;;;;;;;; ;;;;;;;; STA ENMUKI,X ;MUKI SET ;;;;;;;; STA ENCMKI,X ;;;;;;;;; ;;;;;;;;SPF0M30 EQU $ ;;;;;;;;; ;;;;;;;; LDA SWCHFG ;;;;;;;; BEQ SPF0M31 ;;;;;;;; INC ENSTAT,X ;;;;;;;;SPF0M31 EQU $ ;;;;;;;; RTS ;;;;;;;;;---------------------------------------- ;;;;;;;;SNPF0M4 EQU $ ;;;;;;;; LDY #000H ;PL. KEN & TATE ;;;;;;;; JSL >ATMSIT ;;;;;;;;; ;;;;;;;; LDA #060H ;PL. DEMO END TIME SET ;;;;;;;; STA ENTIM0,X ;;;;;;;;; ;;;;;;;; LDA #001H ;;;;;;;;; STA >MODTBL0 ;;;;;;;; STA >MODTBL3 ;;;;;;;;; ;;;;;;;;; PHX ;;;;;;;;; JSL >DTSAVE ;DATA SAVE ;;;;;;;;; PLX ;;;;;;;;; ;;;;;;;; INC ENSTAT,X ;;;;;;;; RTS ;---------------------------------------- SINPUF1 EQU $ JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X ; LDA #LOW MS_0032 ;MSGE NO LDY #HIGH MS_0032 ;MSGE NO JSL >ENMSGEL ;MSGE SET BCC SPF1M00 ; STA ENMUKI,X ;MUKI SET STA ENCMKI,X ; SPF1M00 EQU $ RTS ;---------------------------------------- SINPUF2 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD SNPF2M0 ; WAIT & MSGE WORD SNPF2M1 WORD SNPF2M2 WORD SNPF2M3 ;---------------------------------------- SNPF2M0 EQU $ LDA #000H ;KAIDAN MIRU STA ENCMKI,X STA ENMUKI,X ; LDA ENTIM0,X BNE SF2M010 ; LDA #LOW MS_0033 ;MSGE NO SET LDY #HIGH MS_0033 ;MSGE NO SET JSL >ENMSGSL ;MSGE SET ; INC ENSTAT,X ;NEXT GO ; LDA #001H ;ONNANOKO(HELP0) TALK OK!! STA >KRXBUF+1 ; JSR HELP0ST ;ONNANOKO(HELP0) SET & PL.HELP0 CLS ; LDA #001H ;STOP PL. STA PYALSP ; LDA #001H STA >MODTBL2 ;TEST GMAP POINT 3 SET(SAVE) ; SF2M010 EQU $ RTS ;---------------------------------------- SNPF2M1 EQU $ LDA >KRXBUF+1 CMP #002H BNE SF2M110 ;? ONNANOKO(HELP0) MSGE END ; ;Y LDA #LOW MS_0034 ;MSGE NO SET LDY #HIGH MS_0034 ;MSGE NO SET JSL >ENMSGSL ;MSGE SET ; INC ENSTAT,X ;NEXT GO SF2M110 EQU $ RTS ;---------------------------------------- SNPF2M2 EQU $ LDA MSG_RTS BNE SF2M210 INC ENSTAT,X ;NEXT GO RTS SF2M210 EQU $ LDA #001H ; STA ENSTAT,X RTS ;---------------------------------------- SNPF2M3 EQU $ STZ PYALSP ;MOVE PL. SNPF0M5 EQU $ SINPUF3 EQU $ ; JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X ; LDA #LOW MS_0032 ;MSGE NO LDY #HIGH MS_0032 ;MSGE NO JSL >ENMSGEL ;MSGE SET ; BCC SPF3M00 ; STA ENMUKI,X ;MUKI SET STA ENCMKI,X ; SPF3M00 EQU $ ; RTS ;---------------------------------------- SINPUCD EQU $ WORD 00000,00000 ;0(MUKI) BYTE 020H,00EH,000H,002H WORD 00000,00008 BYTE 026H,00EH,000H,002H ; WORD 00000,00000 BYTE 020H,00EH,000H,002H WORD 00000,00008 BYTE 026H,04EH,000H,002H ; WORD 00000,00000 ;1(MUKI) BYTE 00EH,00EH,000H,002H WORD 00000,00008 BYTE 024H,00EH,000H,002H ; WORD 00000,00000 BYTE 00EH,00EH,000H,002H WORD 00000,00008 BYTE 024H,00EH,000H,002H ; WORD 00000,00000 ;2(MUKI) BYTE 022H,00EH,000H,002H WORD 00000,00008 BYTE 028H,00EH,000H,002H ; WORD 00000,00000 BYTE 022H,00EH,000H,002H WORD 00000,00008 BYTE 02AH,00EH,000H,002H ; WORD 00000,00000 ;3(MUKI) BYTE 022H,04EH,000H,002H WORD 00000,00008 BYTE 028H,04EH,000H,002H ; WORD 00000,00000 BYTE 022H,04EH,000H,002H WORD 00000,00008 BYTE 02AH,04EH,000H,002H ; SINPUCS EQU $ ;; LDA SETOAML ;OAM SET ; RTS ;---------------------------------------- ; OYAGI MOVE ;---------------------------------------- OYAGISX EQU $ BYTE 000,000,-12,012 OYAGISY EQU $ BYTE -12,012,000,000 OYAGI00 EQU $ JSR OYAGICS JSR ENSTCK ; scroll : not return ! ; LDA ENCONT,X JSL >JSRSUB WORD OYAGIF0 WORD OYAGIF1 ;---------------------------------------- OYAGIF0 EQU $ ; JSR ENMVCL ; xclc,yclc ! ; LDA ENSTAT,X JSL >JSRSUB WORD OYGF0M0 WORD OYGF0M1 WORD OYGF0M2 WORD OYGF0M3 WORD OYGF0M4 ;---------------------------------------- PLPOSDX EQU 0940H PLPOSDY EQU 215AH ; OYGF0M0 EQU $ LDA #LOW PLPOSDX ;PL. POS SET STA PLSVX1 LDA #HIGH PLPOSDX STA PLSVX1+1 LDA #LOW PLPOSDY STA PLSVY1 LDA #HIGH PLPOSDY STA PLSVY1+1 ; LDA #LOW MS_0043 ;MSGE NO SET LDY #HIGH MS_0043 ;MSGE NO SET JSL >ENMSGSL ;MSGE SET ; INC ENSTAT,X ; RTS ;---------------------------------------- OYGF0M1 EQU $ LDA ENMSGSL ;MSGE SET ; INC ENSTAT,X ; LDA #001H STA ENCHPT,X RTS ;---------------------------------------- OYG03DT EQU $ BYTE 040H,0E0H OYG03DM EQU $ BYTE 002H,001H OYGF0M3 EQU $ LDA ENTIM0,X BNE OYG0310 LDY ENWRK0,X LDA OYG03DT,Y STA ENTIM0,X LDA OYG03DM,Y STA ENMUKI,X TAY LDA OYAGISX,Y STA ENXSPD,X LDA OYAGISY,Y STA ENYSPD,X INC ENWRK0,X LDA ENWRK0,X CMP #003H BNE OYG0310 INC ENSTAT,X OYG0310 EQU $ LDA OPMODE LDA #LOW OTIM STA OPMTIM LDA #HIGH OTIM STA OPMTIM+1 ; LDA >MODTBL1 ;OYAGI KILL ORA #010H STA >MODTBL1 ; STZ ENMODE,X ;KILL I STZ PYALSP ;PL. MOVE RTS ;---------------------------------------- OYAGIF1 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD OYGF1M0 WORD OYGF1M1 WORD OYGF1M2 ;---------------------------------------- OYGF1M0 EQU $ JSL >CRENPL2L BCC OG1M020 JSL >DASCLR1 ;DASH KINSI!! ; OG1M020 EQU $ LDA #LOW MS_0011 ;MSGE NO SET LDY #HIGH MS_0011 ;MSGE NO SET JSL >ENMSG2L ;MSGE SET BCC OG1M010 LDA #nashi STA >OPMODE ;PL. OPTION OFF INC ENSTAT,X OG1M010 EQU $ ;---------------------------------------- OYGF1M2 EQU $ RTS ;---------------------------------------- OYGF1M1 EQU $ LDY #000H ;PL. KEN & TATE GET JSL >ATMSIT INC ENSTAT,X LDA #001H STA ENCHPT,X ; LDA #003H ;SAVE STA >MODTBL3 LDA >MODTBL1 ;OYAGI KILL ORA #001H STA >MODTBL1 LDA #001H STA >MODTBL0 ;KEN & TATE OK ; RTS ;---------------------------------------- OYAGICD EQU $ ;CHAR DATA ;------- ;0 WORD 00000,-0010 BYTE 000H,00EH,000H,002H WORD 00000,00000 BYTE 006H,00CH,000H,002H ; WORD 00000,-0010 BYTE 000H,00EH,000H,002H WORD 00000,00000 BYTE 006H,00CH,000H,002H ; WORD 00000,-0010 BYTE 000H,00EH,000H,002H WORD 00000,00000 BYTE 006H,00CH,000H,002H ;- WORD 00000,-0010 BYTE 002H,00EH,000H,002H WORD 00000,00000 BYTE 006H,00CH,000H,002H ; WORD 00000,-0010 BYTE 002H,00EH,000H,002H WORD 00000,00000 BYTE 006H,00CH,000H,002H ; WORD 00000,-0010 BYTE 002H,00EH,000H,002H WORD 00000,00000 BYTE 006H,00CH,000H,002H ;------- ;1 WORD -0006,00003 BYTE 007H,00DH,000H,002H WORD -0006,00003 BYTE 007H,00DH,000H,002H ; WORD 00009,00014 BYTE 005H,08DH,000H,000H WORD 00009,00006 BYTE 015H,08DH,000H,000H ; WORD 00000,-0010 BYTE 000H,00EH,000H,002H WORD 00000,00000 BYTE 004H,00CH,000H,002H ;- WORD -0006,00004 BYTE 007H,00DH,000H,002H WORD -0006,00004 BYTE 007H,00DH,000H,002H ; WORD 00009,00015 BYTE 005H,08DH,000H,000H WORD 00009,00007 BYTE 015H,08DH,000H,000H ; WORD 00000,-0009 BYTE 000H,00EH,000H,002H WORD 00000,00001 BYTE 004H,04CH,000H,002H ;------- ;2 WORD -0007,00008 BYTE 005H,08DH,000H,000H WORD 00001,00008 BYTE 006H,08DH,000H,000H ; WORD 00000,-0010 BYTE 002H,00EH,000H,002H WORD -0006,-0001 BYTE 007H,04DH,000H,002H ; WORD 00000,00000 BYTE 023H,00CH,000H,002H WORD 00000,00000 BYTE 023H,00CH,000H,002H ;- WORD -0009,00007 BYTE 005H,08DH,000H,000H WORD -0001,00007 BYTE 006H,08DH,000H,000H ; WORD 00000,-0009 BYTE 002H,00EH,000H,002H WORD -0006,00000 BYTE 007H,04DH,000H,002H ; WORD 00000,00001 BYTE 025H,00CH,000H,002H WORD 00000,00001 BYTE 025H,00CH,000H,002H ;------- ;3 WORD -0005,00006-4 BYTE 007H,00DH,000H,002H WORD 00009,00000-4 BYTE 021H,00CH,000H,002H ; WORD 00000,00000-4 BYTE 020H,00CH,000H,002H WORD -0005,-0002-4 BYTE 008H,00EH,000H,002H ; WORD 00001,-0006-4 BYTE 005H,00DH,000H,000H WORD 00009,-0006-4 BYTE 006H,00DH,000H,000H ;- WORD 00009,00000-4 BYTE 021H,00CH,000H,002H WORD 00009,00000-4 BYTE 021H,00CH,000H,002H ; WORD 00000,00000-4 BYTE 020H,00CH,000H,002H WORD -0005,-0002-4 BYTE 008H,00EH,000H,002H ; WORD 00000,00000-4 BYTE 020H,00CH,000H,002H WORD -0005,-0002-4 BYTE 008H,00EH,000H,002H ;------- KENCPD EQU $ BYTE 008H,008H,000H,000H,006H,006H,004H TATCPD EQU $ BYTE 000H,000H,000H,000H,004H,004H,000H ;----- OYAGICS EQU $ LDA #6*4 JSL >OAMENT2 ; MEM16 REP #00100000B ; LDA ENCHPT,X AND #000FFH STA SETOAML2 ;OAM SET ; RTS ;-------------------------------------- ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% SETOAML % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ; OCHECKL STOAMCK2 EQU $ ;JSR OAMCHK JSR OAMCHK ;BCC --> OK RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% NOPPO move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% NOPPOMV EQU $ PHB PHK PLB JSR NP0000 PLB RTL NP0000 EQU $ JSR NOPPOCS JSR ENSTCK ; scroll : not return ! ; LDA ENMKIST ;MUKI SET JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X ; LDA ENMSGEL ; MEGE ? BRA NOPPO40 ; NOPPO30 EQU $ LDA RMSTTT+1 BNE NOPPO50 LDA #LOW MS_04B0 ; MSGE NO. SET LDY #HIGH MS_04B0 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BRA NOPPO40 NOPPO50 EQU $ LDA #LOW MS_04B1 ; MSGE NO. SET LDY #HIGH MS_04B1 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? NOPPO40 EQU $ LDA ENMOD3,X PHA LDA #003H STA ENMOD3,X JSL >CRENPL2L BCC NOPPO20 PHX JSL >PLOTCK ;PL. POS. recover STZ DASHON PLX ; NOPPO20 EQU $ PLA STA ENMOD3,X RTS ; ; ; NOPPO10 EQU $ LDA #LOW MS_0000 LDY #HIGH MS_0000 JSL >ENMSGEL BCC MURAAMV ; STA ENWRK0,X ; PL. miru! STA ENMUKI,X ; PL. miru! STZ ENSTAT,X ; PL. miru! ; MURAAMV EQU $ JSR ENMVCL ; xclc,yclc,BG check ! JSL >ENBGCKL ; BG check sub ! ; LDA ENSTAT,X JSL >JSRSUB WORD NOPPOM0 WORD NOPPOM1 ;---------------------------------------- NOPPOSX EQU $ BYTE 000H,000H,0F4H,00BH NOPPOSY EQU $ BYTE 0F4H,00BH,000H,000H NOPPOM0 EQU $ LDA ENTIM0,X BNE NOPM010 ; JSL >RNDSET AND #01FH CLC ADC #040H STA ENTIM0,X ; LDA RNDSET AND #01FH CLC ADC #060H STA ENTIM0,X ; STZ ENSTAT,X LDA SETOAML ; RTS ;---------------------------------------- ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% ENMSGE % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ; ENMSGEL EQU $ ;PUSH DO BOTON ; STA !MSGENOL ;msge no set(test) STY !MSGENOH JSL >CRENPL2L BCC ENMSG10 ; LDA ENMSGSL ;MSGE SET ; JSR EPXYCK ;pl muki set TYA EOR #003H SEC RTL ENMSG10 EQU $ LDA ENMUKI,X CLC RTL ;---------------------------------------- ENMSG2L EQU $ ;NO BOTON ; STA !MSGENOL ;msge no set(test) STY !MSGENOH JSL >CRENPL2L BCC ENMS210 ; LDA !MSGENOL ;MSGE NO GET LDY !MSGENOH ;MSGE NO GET JSL >ENMSGSL ;MSGE SET ; JSR EPXYCK ;pl muki set TYA EOR #003H SEC RTL ENMS210 EQU $ LDA ENMUKI,X CLC RTL ;---------------------------------------- ENMSGSL EQU $ ;MSGE SET STA !MSGENOL ;msge no set(test) STY !MSGENOH ; STZ !MSGEFG STZ !INITAL LDA #p3_msge STA PLOTCK ;PL. POS. recover ; STZ DASHON PLX ; RTL ;---------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% JIJI1 move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% JIJI1MV EQU $ PHB PHK PLB JSR JIJI100 PLB RTL JIJI100 EQU $ JSR JIJI1CS JSR ENSTCK ; scroll : not return ! ; LDA ENMKIST ;MUKI SET JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X ; RTS JIJI120 EQU $ LDA #LOW MS_0000 ; MSGE NO. SET LDY #HIGH MS_0000 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BCC JIJI110 ; STZ ENSTAT,X ; PL. miru! STA ENWRK0,X ; PL. miru! STA ENMUKI,X ; PL. miru! ; JIJI110 EQU $ JSR ENMVCL ; xclc,yclc,BG check ! JSL >ENBGCKL ; BG check sub ! ; LDA ENSTAT,X JSL >JSRSUB WORD JIJI1M0 WORD JIJI1M1 ;---------------------------------------- JIJI1SX EQU $ BYTE 000H,000H,0FCH,003H JIJI1SY EQU $ BYTE 0FCH,003H,000H,000H JIJI1M0 EQU $ LDA ENTIM0,X BEQ JI1M010 ; LDA ENCBFG,X AND #00FH BEQ JI1M020 JI1M010 EQU $ INC ENSTAT,X LDA #0FFH STA ENTIM0,X JI1M020 EQU $ TXA EOR RNDSET AND #01FH CLC ADC #0E0H STA ENTIM0,X ; STZ ENSTAT,X LDA ENMSGEL ; MEGE ? ; STA ENWRK0,X ; PL. miru! ; STA ENMUKI,X ; PL. miru! ; BCC ONNAA10 ; STZ ENSTAT,X ; PL. miru! ;; ;ONNAA10 EQU $ ; JSR MURAAMV ;; ; RTS ;-------------------------------------- ONNAACD EQU $ WORD 00000,00000 ;0 BYTE 026H,000H,000H,002H WORD 00000,00008 BYTE 0E8H,000H,000H,002H WORD 00000,00001 BYTE 026H,000H,000H,002H WORD 00000,00009 BYTE 0E8H,040H,000H,002H ; WORD 00000,00000 ;1 BYTE 024H,000H,000H,002H WORD 00000,00008 BYTE 0C2H,000H,000H,002H WORD 00000,00001 BYTE 024H,000H,000H,002H WORD 00000,00009 BYTE 0C2H,040H,000H,002H ; WORD 00000,00000 ;2 BYTE 028H,000H,000H,002H WORD 00000,00008 BYTE 0E4H,000H,000H,002H WORD 00000,00001 BYTE 028H,000H,000H,002H WORD 00000,00009 BYTE 0E6H,000H,000H,002H ; WORD 00000,00000 ;3 BYTE 028H,040H,000H,002H WORD 00000,00008 BYTE 0E4H,040H,000H,002H WORD 00000,00001 BYTE 028H,040H,000H,002H WORD 00000,00009 BYTE 0E6H,040H,000H,002H ; ONNAACS EQU $ LDA #002H STA SETOAML ; RTS ;-------------------------------------- ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% HIGEE move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;HIGEEIT EQU $ ; goto BABA1IT ;-------------------------------------- HIGEEMV EQU $ PHB PHK PLB JSR HIGEE00 PLB RTL HIGEE00 EQU $ LDA ENSTAT,X CMP #002 BCS HIGEE10 JSR HIGEECS HIGEE10 EQU $ JMP YOKO_MV ; goto BABA1MV ; ; ; JSR ENSTCK ; scroll : not return ! ;; ; LDA #000H ; MSGE NO. SET ; JSL >ENMSGEL ; MEGE ? ; STA ENWRK0,X ; PL. miru! ; STA ENMUKI,X ; PL. miru! ; BCC HIGEE10 ; STZ ENSTAT,X ; PL. miru! ; LDA #009H ; ; STA CALFLG ;; ;HIGEE10 EQU $ ; JSR MURAAMV ;; ; RTS ;-------------------------------------- HIGEECD EQU $ WORD 00000,00000 ;0 BYTE 0C6H,000H,000H,002H WORD 00000,00008 BYTE 0EEH,000H,000H,002H WORD 00000,00001 BYTE 0C6H,000H,000H,002H WORD 00000,00009 BYTE 0EEH,040H,000H,002H ; WORD 00000,00000 ;1 BYTE 0C4H,000H,000H,002H WORD 00000,00008 BYTE 0CAH,000H,000H,002H WORD 00000,00001 BYTE 0C4H,000H,000H,002H WORD 00000,00009 BYTE 0CAH,040H,000H,002H ; WORD 00000,00000 ;2 BYTE 0C8H,000H,000H,002H WORD 00000,00008 BYTE 0CCH,000H,000H,002H WORD 00000,00001 BYTE 0C8H,000H,000H,002H WORD 00000,00009 BYTE 0CEH,000H,000H,002H ; WORD 00000,00000 ;3 BYTE 0C8H,040H,000H,002H WORD 00000,00008 BYTE 0CCH,040H,000H,002H WORD 00000,00001 BYTE 0C8H,040H,000H,002H WORD 00000,00009 BYTE 0CEH,040H,000H,002H ; HIGEECS EQU $ LDA #002H STA SETOAML ; RTS ;-------------------------------------- ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% MAJOO move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MAJOOMV EQU $ PHB PHK PLB JSR MAJOO00 PLB RTL MAJOO00 EQU $ JSR MAJOOCS JSR ENSTCK ; scroll : not return ! ; LDA RNDSET AND #001H CLC ADC #002H STA ENWRK0,X MAJOO20 EQU $ LDA ENWRK0,X STA JSRSUB WORD MAJOOF0 WORD MAJOOF1 ;---------------------------------------- MAJOOF1 EQU $ STZ ENSTAT,X ; LDY #018H ;BIN 1 2 3 JSL >ATMSIT ;PL. DEMO SET RTS ;---------------------------------------- MAJOOF0 EQU $ STZ ITEMR05 ;KONA KINOKO CMP #001H BNE MAJOO30 INC BINCT0 ;BIN 1 KINOKO ;; CMP #001H ;; BNE MAJOO40 ;; INC BINCT1 ;BIN 2 KINOKO ;; CMP #001H ;; BNE MAJOO50 ;; INC BINCT2 ;BIN 3 KINOKO ;; CMP #001H ;; BNE MAJOO60 ;; INC JSRSUB WORD MAJOOM0 WORD MAJOOM1 WORD MAJOOM2 WORD MAJOOM3 WORD MAJOOM4 ;---------------------------------------- MAJOOM0 EQU $ LDA #LOW MS_0090 ;MSGE NO LDY #HIGH MS_0090 ;MSGE NO JSL >ENMSGEL ;MSGE SET RTS ;---------------------------------------- MAJOOM1 EQU $ MAJOOM2 EQU $ MAJOOM3 EQU $ MAJOOM4 EQU $ LDA CRENPL2L ;? ATRI BCC MJOM110 ; LDA GETITM0 CMP #005 BNE MJOM110 ;? KONA ;; CMP #016 ;; BEQ MJOM140 ;? BIN ;; BRA MJOM110 MJOM120 EQU $ LDA >ITEMR05 CMP #001H BNE MJOM110 ;? KINOKO GET ; ;Y JSR MJKNKCK ;KINOKO CHK. MJOM110 EQU $ RTS ; ;;MJOM140 EQU $ ;; PHX ;; TAX ;; LDA >ITEMR01-1,X ;; TAX ;; LDA >BINCT0-1,X ;; CMP #001H ;; BNE MJOM130 ;? KINOKO GET ;;; ;Y ;; PLX ;; JSR MJKNKC1 ;KINOKO CHK. ;; RTS ;;MJOM130 EQU $ ;; PLX ;; RTS ;---------------------------------------- MJKNKCK EQU $ LDA >ITEMR05 ;KONA KINOKO CMP #001H BNE MJKCK10 LDA #000H STA >ITEMR05 ; PHX ;POTION FLG SET MEM8 IDX16 REP #00010000B ; LDX #ROOM_POTION*2 ;ROOM NO * 2 LDA >DJNTBL,X ORA #080H ;POTION 1 STA >DJNTBL,X ; MEM8 IDX8 SEP #00110000B JSL >ITEM0ST ;ITEM PRINT SET PLX ; LDA #LOW MS_0093 ;MSGE NO LDY #HIGH MS_0093 ;MSGE NO JSL >ENMSGSL ;MSGE SET ; MJKCK10 EQU $ STZ SCLSFG ;SCROL FLG CLS RTS ; ;;MJKNKC1DT EQU $ ;; BYTE 040H,020H,010H ;;MJKNKC1 EQU $ ;; PHX ;; LDA >ITEMR16 ;; TAX ;;; ;;; LDA >BINCT0-1,X ;BIN 1 KINOKO ;;; CMP #001H ;;; BNE MJKC140 ;; LDA #002H ;; STA >BINCT0-1,X ;;; ;; PHX ;POTION FLG SET ;; TXY ;; MEM8 ;; IDX16 ;; REP #00010000B ;;; ;; LDX #ROOM_POTION*2 ;ROOM NO * 2 ;; LDA >DJNTBL,X ;; ORA MJKNKC1DT-1,Y ;POTION 2 ;; STA >DJNTBL,X ;;; ;; MEM8 ;; IDX8 ;; SEP #00110000B ;;; LDY #018H ;BIN 2 ;;; JSL >ATMSIT ;PL. DEMO SET ;; PLX ;; PLX ;; LDA #001 ;; STA ENSTAT,X ;;; ;; LDA #LOW MS_0091 ;MSGE NO ;; LDY #HIGH MS_0091 ;MSGE NO ;; JSL >ENMSGSL ;MSGE SET ;;; ;;MJKC140 EQU $ ;; STZ SCLSFG ;SCROL FLG CLS ;; RTS ROOM_POTION EQU 00109H ;--------------------------------------- MAJOCUD EQU $ BYTE -003,0008,0AEH,000H ;0 BYTE -003,0016,0BEH,000H BYTE -002,0008,0AEH,000H ;1 BYTE -002,0016,0BEH,000H BYTE -001,0008,0AFH,000H ;2 BYTE -001,0016,0BFH,000H BYTE 0000,0009,0AFH,000H ;3 BYTE 0000,0017,0BFH,000H BYTE 0001,0010,0AFH,000H ;4 BYTE 0001,0018,0BFH,000H BYTE 0000,0011,0AFH,000H ;5 BYTE 0000,0019,0BFH,000H BYTE -001,0010,0AEH,000H ;6 BYTE -001,0018,0BEH,000H BYTE -003,0009,0AEH,000H ;7 BYTE -003,0017,0BEH,000H MAJOCAD EQU $ BYTE 000H,-004,080H,000H ;ATAMA BYTE -011,00FH,086H,004H ;TUBO BYTE -003,00FH,086H,044H ;TUBO MAJOCBD EQU $ BYTE 0000,0004,084H,000H BYTE 0000,0004,082H,000H ; MAJOOCS EQU $ JSR OAMCHK JSL >OCHECKL ; LDA ENCHPT,X STA ALOMCKL RTS ;---------------------------------------- ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% JIJI2 move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% JIJI2MV EQU $ PHB PHK PLB JSR JIJI200 PLB RTL JIJI200 EQU $ JSR JIJI2CS JSR ENSTCK ; scroll : not return ! ; ; LDA DJFLG ; BEQ JIJI210 ; JSL >ENMKIST ;MUKI SET ; JSR EPXYCK ;pl muki set ; TYA ; EOR #003H ; STA ENCMKI,X ; ; RTS JIJI210 EQU $ ; LDA >MODTBL2 CMP #003H BCS JIJI230 ; LDA #LOW MS_0110 ; MSGE NO. SET LDY #HIGH MS_0110 ; MSGE NO. SET BRA JIJI220 JIJI230 EQU $ LDA #LOW MS_0111 ; MSGE NO. SET LDY #HIGH MS_0111 ; MSGE NO. SET JIJI220 EQU $ JSL >ENMSGEL ; MEGE ? ; LDA ENMOD3,X PHA LDA #003H STA ENMOD3,X JSL >CRENPL2L BCC JIJI240 PHX JSL >PLOTCK ;PL. POS. recover ; STZ DASHON PLX ; JIJI240 EQU $ PLA STA ENMOD3,X LDA SETOAML ; RTS ;-------------------------------------- ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% KIANA move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% KIANAMV EQU $ PHB PHK PLB JSR KIANA00 PLB RTL ;---------------------------------------- KAGI1DT EQU $ WORD 1000000000000000B WORD 0100000000000000B WORD 0010000000000000B WORD 0001000000000000B WORD 0000100000000000B WORD 0000010000000000B WORD 0000001000000000B WORD 0000000100000000B WORD 0000000010000000B WORD 0000000001000000B WORD 0000000000100000B WORD 0000000000010000B WORD 0000000000001000B WORD 0000000000000100B WORD 0000000000000010B WORD 0000000000000001B ;---------------------------------------- KIANA00 EQU $ JSR KIANACS JSR ENSTCK ; scroll : not return ! ; JSL >CRENPL2L BCC KIANA10 ; MEM16 ; S KEY CLS REP #00100000B LDY DJNNO LDA KAGI1DT,Y AND >KEYCNT BEQ KIANA20 ; EOR >KEYCNT STA >KEYCNT ; MEM8 SEP #00110000B ; LDA #014H STA SOUND3 ; INC SWCHFG ;SWICH ON ; STZ ENMODE,X ; KIANA20 EQU $ MEM8 SEP #00110000B ; ; JSL >PLOTCK ;PL. POS. recoveR ; STZ DASHON ; KIANA10 EQU $ RTS ;---------------------------------------- KIANACD EQU $ WORD 00000,00000 BYTE 0E8H,000H,000H,002H ; KIANACS EQU $ LDA #001H ;KAZU STA SETOAML RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% BUBUU move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;BUBUUMV EQU $ ; PHB ; PHK ; PLB ; JSR BUBUU00 ; PLB RTL ;BUBUU00 EQU $ ; JSR BUBUUCS ; JSR ENSTCK ; scroll : not return ! ;; ;; ;; LDA CRKNKNL ; Vs PL ken check ; JSL >CRENPLL ; Vs PL body check ;; ; TXA ; EOR ENBGCKL ; BG check sub ! ; LDA ENCBFG,X ; AND #00FH ; BEQ BUBUU10 ; LDA ENMUKI,X ; EOR #001H ; STA ENMUKI,X ;BUBUU10 EQU $ ; LDA ENSTAT,X ; JSL >JSRSUB ; WORD BUBUUM0 ;stop ; WORD BUBUUM1 ;move ; WORD BUBUUM2 ;yari ; WORD BUBUUM3 ;yari nasi ;; ;;---------------------------------------- ;BUBUUM0 EQU $ ; STZ ENXSPD,X ; STZ ENYSPD,X ; STZ ENCHPT,X ;; ; LDA ENTIM0,X ; BNE BUUM010 ;; ; INC ENSTAT,X ;; ; JSL >RNDSET ; AND #003H ; STA ENMUKI,X ;; ; JSL >RNDSET ; AND #01FH ; CLC ; ADC #080H ; STA ENTIM0,X ;; ;BUUM010 EQU $ ; RTS ;;---------------------------------------- ;BUUM1SX EQU $ ; BYTE 000H,000H,0F3H,00CH ;BUUM1SY EQU $ ; BYTE 0F3H,00CH,000H,000H ;BUBUUM1 EQU $ ; LDY ENMUKI,X ; LDA BUUM1SX,Y ; STA ENXSPD,X ; LDA BUUM1SY,Y ; STA ENYSPD,X ; JSR ENMVCL ; xclc,yclc ;; ; TXA ; EOR RNDSET ; AND #00FH ; CLC ; ADC #010H ; STA ENTIM0,X ;; ;BUUM110 EQU $ ; RTS ;;---------------------------------------- ;BUBUUM2 EQU $ ; STZ ENXSPD,X ; STZ ENYSPD,X ; LDA #002H ; STA ENCHPT,X ;; ; LDA ENTIM0,X ; BNE BUUM210 ;; ; INC ENSTAT,X ;; ; JSL >RNDSET ; AND #01FH ; ADC #020H ; STA ENTIM0,X ;; ; JSR BUYTMST ;YATAM ENTRY ;; ;BUUM210 EQU $ ; RTS ;;---------------------------------------- ;BUBUUM3 EQU $ ; LDA #003H ; STA ENCHPT,X ;; ; LDA ENTIM0,X ; BNE BUUM310 ;; ; STZ ENSTAT,X ; JSL >RNDSET ; AND #00FH ; CLC ; ADC #010H ; STA ENTIM0,X ;; ;BUUM310 EQU $ ; RTS ;;==================== ;YATAM ;BUYTMSX EQU $ ; BYTE 000H,000H,0E0H,020H ;BUYTMSY EQU $ ; BYTE 0E0H,020H,000H,000H ;BUYTMST EQU $ ; LDA #YATAM ; JSL >ENIDSH ; BMI BUYTS80 ; PHX ; LDA ENMUKI,X ; STA ENMUKI,Y ; TAX ;; ;;; LDA ENMOD3,Y ;;; AND #0F0H ; LDA YACRDT,X ; STA ENMOD3,Y ;; ; LDA SADWSTL ;KAGE SET ;; ; LDA ALOMCKL ; RTS ;; ;---------------------------------------- ENXSDN EQU $ LDA ENXSPD,X BEQ ENXDN10 ; BPL ENXDN20 INC A BRA ENXDN10 ENXDN20 EQU $ DEC A ENXDN10 EQU $ STA ENXSPD,X RTL ;--------------------------------------- ENYSDN EQU $ LDA ENYSPD,X BEQ ENYDN10 ; BPL ENYDN20 INC A BRA ENYDN10 ENYDN20 EQU $ DEC A ENYDN10 EQU $ STA ENYSPD,X RTL ;--------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% BABA1 move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% BABA1IT EQU $ HIGEEIT EQU $ ONNAAIT EQU $ PHB PHK PLB JSR BABA100_I PLB RTL BABA100_I EQU $ LDA #003H STA ENMUKI,X STA ENCMKI,X ; INC ENNOCR,X ; beem thru RTS ;---------------------------------------- BABA1MV EQU $ PHB PHK PLB JSR BABA100 PLB RTL BABA1SX EQU $ BYTE 000,000,-09,009 BABA1SY EQU $ BYTE -09,009,000,000 BABA100 EQU $ LDA ENSTAT,X CMP #003 BCS BABA150 JSR BABA1CS BABA150 EQU $ YOKO_MV EQU $ JSR ENSTCK ; scroll : not return ! LDA ENSTAT,X CMP #003 BCS BABA110 LDA ENMKIST ;MUKI SET JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X ; LDA #LOW MS_0120 ; MSGE NO. SET LDY #HIGH MS_0120 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? RTS BABA140 EQU $ JSL >ENMKIST ;MUKI SET BCS BABA130 LDA #030H ;TIME SET STA ENTIM0,X ; BRA BABA120 BABA130 EQU $ JSR ENMVCL ; xclc,yclc BABA120 EQU $ BABA110 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD BABA1M1 WORD BABA1M0 WORD BABA1M2 WORD BABA1M3 ;---------------------------------------- BABA1M1 EQU $ LDA ENTIM0,X BNE BB1M110 ; LDA ENMUKI,X ;MUKI SET EOR #001H STA ENCMKI,X ; TAY LDA BABA1SX,Y ;SPEED SET STA ENXSPD,X LDA BABA1SY,Y STA ENYSPD,X ; BB1M110 EQU $ TXA EOR ENMSGEL ; MEGE ? BCC BB1M120 ; STA ENMUKI,X ; PL. miru! STA ENCMKI,X ; PL. miru! ; ;; LDA #009H ;; STA CALFLG ; JSL >HEICAL ; Hishi call ! ; INC ENSTAT,X ;NEXT MOVE ; BB1M120 EQU $ RTS ;---------------------------------------- BABA1M0 EQU $ STZ ENCMKI,X ; LDY !DOORID ; ; ;SERCH POINT = ENMY POINT LDA ESYPSL,Y STA MKDRPLY MEM8 IDX8 PLX LDA #010H STA ENTIM0,X RTS ; BB1M010 EQU $ LDA ESXPSL,Y ;SERCH POINT SET STA ESERCHL ;SERCH ; LDA MKDRPLY MEM8 IDX8 PLX INC ENSTAT,X BB1M210 EQU $ JSR ENMVCL ; xclc,yclc RTS ;---------------------------------------- BABA1M3 EQU $ ; JSR OAMCHK ; ; LDA ENMOD5,X ;HUKKU ATARI ; ORA #020H ; STA ENMOD5,X ; ; JSL >CRENPL2L ; BCC BB1M310 ; ; MEM16 ; REP #00100000B ; ; LDA PLSVX1 ;PL. POS. recover ; STA SETOAML ; RTS ;-------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% BOUSI move & init % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% BOUSIIT EQU $ PHB PHK PLB JSR BOUSI00_I PLB RTL BOUSI00_I EQU $ LDA #002H STA ENCMKI,X STA ENMUKI,X RTS ;---------------------------------------- BOUSIMV EQU $ PHB PHK PLB JSR BOUSI00 PLB RTL BOUSISX EQU $ BYTE 000,000,-09,009 BOUSISY EQU $ BYTE -09,009,000,000 ; BOUSI00 EQU $ ; JSR BOUSICS JSR ENSTCK ; scroll : not return ! LDA ENMKIST ;MUKI SET JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X ; RTS BOUSI20 EQU $ LDA #LOW MS_01A0 LDY #HIGH MS_01A0 JSL >ENMSGEL BCC BOUSI10 ; STA ENWRK0,X ; PL. miru! STA ENMUKI,X ; PL. miru! STZ ENSTAT,X ; PL. miru! ; BOUSI10 EQU $ JSL >ENMKIST ;MUKI SET BCC BOUSI40 TXA EOR SETOAML ; RTS ;-------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% SYOBY move & init % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% SYOBYIT EQU $ ;; PHB ;; PHK ;; PLB ;; JSR SYOBY00_I ;; PLB ;; RTL ;;SYOBY00_I EQU $ ;; INC ENNOCR,X ;beem thru ;; RTS ;---------------------------------------- SYOBYMV EQU $ PHB PHK PLB JSR SYOBY00 PLB RTL SYOBY00 EQU $ ; JSR SYOBYCS JSR ENSTCK ; scroll : not return ! ; JSL >RNDSET BNE SYOBY30 LDA #001H STA ENCHPT,X LDA #014H STA ENTIM0,X SYOBY30 EQU $ LDA ENTIM0,X BNE SYOBY40 STZ ENCHPT,X SYOBY40 EQU $ LDA >MODTBL4 AND #002H BNE SYOBY20 ; LDA ENSTAT,X JSL >JSRSUB WORD SYOBYM0 WORD SYOBYM1 WORD SYOBYM2 ; SYOBY20 EQU $ LDA #LOW MS_0363 ; MSGE NO. SET LDY #HIGH MS_0363 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? ; LDA ENMOD3,X PHA STZ ENMOD3,X JSL >CRENPL2L BCC SYOBY10 PHX JSL >PLOTCK ;PL. POS. recover ; STZ DASHON PLX ; SYOBY10 EQU $ PLA STA ENMOD3,X RTS ;---------------------------------------- SYOBYM0 EQU $ LDA #LOW MS_0360 ; MSGE NO. SET LDY #HIGH MS_0360 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BCC SOBM020 INC ENSTAT,X RTS ; SOBM020 EQU $ LDA ENMOD3,X PHA STZ ENMOD3,X JSL >CRENPL2L BCC SOBM010 PHX JSL >PLOTCK ;PL. POS. recover ; STZ DASHON PLX ; SOBM010 EQU $ PLA STA ENMOD3,X RTS ;---------------------------------------- SYOBYM1 EQU $ LDA MSG_RTS BNE SOBM110 ; MEM16 IDX8 REP #00100000B LDA >CONCNT ;? OKANE HIKERU CMP #00100 MEM8 IDX8 SEP #00110000B BCC SOBM110 LDA #LOW MS_0361 ; MSGE NO. SET LDY #HIGH MS_0361 ; MSGE NO. SET JSL >ENMSGSL INC ENSTAT,X RTS ; SOBM110 EQU $ LDA #LOW MS_0362 ; MSGE NO. SET LDY #HIGH MS_0362 ; MSGE NO. SET JSL >ENMSGSL STZ ENSTAT,X RTS ;---------------------------------------- SYOBYM2 EQU $ LDY #016H PHX JSL >ATMSIT ;PL. DEMO BIN SET PLX LDA >MODTBL4 ;SAVE RAM SET ORA #002H STA >MODTBL4 MEM16 IDX8 REP #00100000B LDA >CONCNT ;OKANE HIKU SEC SBC #00100 STA >CONCNT MEM8 IDX8 SEP #00110000B RTS ;---------------------------------------- SYOBYCD EQU $ WORD 00000,00000 BYTE 0ACH,000H,000H,002H WORD 00000,00007 BYTE 088H,000H,000H,002H ; WORD 00000,00001 BYTE 0ACH,000H,000H,002H WORD 00000,00007 BYTE 0A2H,000H,000H,002H ; SYOBYCS EQU $ LDA #002H STA SETOAML ; RTS ;-------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% HELP0 move & init % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HELP0IT EQU $ PHB PHK PLB JSR HELP000_I PLB RTL HELP000_I EQU $ INC ENNOCR,X ; beem thru JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X STA ENMUKI,X ; LDA >OPMODE ;CHAR SET PHA LDA #prnce STA >OPMODE PHX JSL >OPTCBFST PLX PLA STA >OPMODE ; LDA MODTBL1 AND #004H BNE HELP010_I STZ ENMODE,X HELP010_I EQU $ LDA ENYPSL,X ;Y POS HOSEI CLC ADC #005H STA ENYPSL,X LDA ENYPSH,X ADC #000H STA ENYPSH,X RTS ;---------------------------------------- HELP020_I EQU $ ;ROUYA LDA #000H ;MODE SET STA ENCONT,X ; LDA >OPMODE CMP #prnce BEQ HELP023_I LDA >MODTBL1 AND #004H BEQ HELP025_I HELP023_I EQU $ STZ ENMODE,X HELP025_I EQU $ RTS ;---------------------------------------- HELP0ST EQU $ ;KYOKAI PL. SET LDA #HELP0 JSL >ENIDSH ; PHX ; LDX OPINDX ;INDEX GET ; LDA OPMUKI,X ;MUKI GET ; STA ENCMKI,Y ;MUKI SET STA ENMUKI,Y ; LDA OPYPSL,X ;Y POS SET STA ENYPSL,Y LDA OPYPSH,X STA ENYPSH,Y ; LDA OPXPSL,X ;X POS SET STA ENXPSL,Y LDA OPXPSH,X STA ENXPSH,Y ; LDA #001H ;MODE SET STA ENCONT,Y ; PLX ; LDA #nashi STA >OPMODE ;PL. HELP0 CLS INC ENNOCR,X ; beem thru RTS ; ;---------------------------------------- HELP0SX EQU $ BYTE 000,000,-09,009 HELP0SY EQU $ BYTE -09,009,000,000 ; HELP0MV EQU $ PHB PHK PLB JSR HELP000 PLB RTL HELP000 EQU $ ; JSL >HELP0CS JSR ENSTCK ; scroll : not return ! JSL >ENMKIST ;MUKI SET BCC HELP010 JSR ENMVCL ; xclc,yclc HELP010 EQU $ LDA ENCONT,X JSL >JSRSUB WORD HELP0F0 ;ROUYA MODE WORD HELP0F1 ;HELP MODE WORD HELP0F2 ;SINPU & MODE ;---------------------------------------- HELP0F0 EQU $ JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X ; LDA ENSTAT,X JSL >JSRSUB WORD HP0F0M0 ;MOVE WORD HP0F0M1 ; WORD HP0F0M2 ; WORD HP0F0M3 ; ;---------------------------------------- HP0F0M0 EQU $ JSL >CRENPL2L BCC HF0M010 ; INC ENSTAT,X ;NEXT MODE ; INC PYALSP ;PL. STOP ; LDY ENCMKI,X LDA HELP0SX,Y ;SPEED SET STA ENXSPD,X LDA HELP0SY,Y STA ENYSPD,X ; LDA #010H ;TIME SET STA ENTIM0,X ; HF0M010 EQU $ RTS ;---------------------------------------- HP0F0M1 EQU $ LDA ENTIM0,X BNE HF0M110 ; INC ENSTAT,X ;NEXT MODE ; LDA #LOW MS_0040 LDY #HIGH MS_0040 JSL >ENMSGSL ;MSGE SET ; HF0M110 EQU $ LDA ENMSGSL ;MSGE SET ; RTS ;---------------------------------------- HP0F0M3 EQU $ LDA MSG_RTS ;MSGE YES OR NO BNE H00M210 ; LDA #LOW MS_0048 LDY #HIGH MS_0048 JSL >ENMSGSL ;MSGE SET ; STZ PYALSP ;PL. MOVE OK ; LDA #002H STA >MODTBL3 LDA #prnce ;PL. HELP0 MODE STA >OPMODE ; PHX JSL >MPBTSET1 ; JSL >RAOPIT ;PL. OPTION INIT ; JSL >DTSAVE ;DATA SAVE PLX STZ ENMODE,X ;KILL I RTS ; H00M210 EQU $ LDA #002H STA ENSTAT,X RTS ;---------------------------------------- HELP0F1 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD HP0F1M0 ;MOVE WORD HP0F1M1 ; WORD HP0F1M2 ; ;---------------------------------------- H0F1M0T EQU $ BYTE 026H,018H,02CH,00AH H0F1M0M EQU $ BYTE 001H,003H,001H,002H ; HP0F1M0 EQU $ LDA ENTIM0,X BNE HF1M010 ; LDY ENWRK0,X ;MODE SET CPY #004H BCC HF1M020 ; INC ENSTAT,X ;NEXT MODE ; STZ ENMUKI,X ;MUKI SET STZ ENCMKI,X ; STZ ENXSPD,X ;SPEED OFF STZ ENYSPD,X ; RTS HF1M020 EQU $ ; LDA H0F1M0T,Y ;NEXT TIME SET STA ENTIM0,X ; LDA H0F1M0M,Y ;NEXT MUKI SET STA ENCMKI,X STA ENMUKI,X ; INC ENWRK0,X ;NEXT SET ; TAY LDA HELP0SX,Y ;SPEED SET STA ENXSPD,X LDA HELP0SY,Y STA ENYSPD,X ; HF1M010 EQU $ LDA ENMSGSL ;MSGE SET ; INC ENSTAT,X ; LDA #002H ;SINPU MSGE GO STA >KRXBUF+1 ; LDA #001H STA >MODTBL3 LDA #002H ;RAIN UP SET STA >MODTBL0 ; PHX JSL >ROBJCST ; JSL >DTSAVE ;DATA SAVE PLX ; RTS ;---------------------------------------- HP0F1M2 EQU $ HELP0F2 EQU $ JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X ; LDA #LOW MS_0042 ;MSGE NO LDY #HIGH MS_0042 ;MSGE NO JSL >ENMSGEL ;MSGE SET BCC HP0F210 ; STA ENMUKI,X ;MUKI SET STA ENCMKI,X ; HP0F210 EQU $ ; RTS ;---------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% KINOK move & init % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% KINOKIT EQU $ PHB PHK PLB JSR KINOK00_I PLB RTL KINKCOL EQU $ BYTE 008H;,004H,006H,008H KINOK00_I EQU $ ; LDA ENXPSL,X ; LSR A ; LSR A ; LSR A ; LSR A ; AND #003H LDA #000H STA ENCHPT,X ;KINOKO SYURUI(0 - 3) TAY LDA KINKCOL,Y ;COLOR SET ORA ENCLOR,X STA ENCLOR,X ; INC ENNOCR,X ;beem thru RTS ;---------------------------------------- KINOKMV EQU $ PHB PHK PLB JSR KINOK00 PLB RTL KINOK00 EQU $ JSL >EN1CSTL ;OBJ SET ; JSL >CRENPL2L ;? ATRI BCC KINOK10 INC ENSTAT,X KINOK10 EQU $ ; LDA ENCHPT,X ; JSL >JSRSUB ; WORD KINOKF1 ;KINOKO 1 ; WORD KINOKF2 ;KINOKO 2 ; WORD KINOKF3 ;KINOKO 3 ; WORD KINOKF4 ;KINOKO 4 ;--------------------------------------- KINOKF1 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD KNKF1M0 WORD KNKF1M1 ;--------------------------------------- KNKF1M0 EQU $ KNKF2M0 EQU $ KNKF3M0 EQU $ KNKF4M0 EQU $ TXA EOR ITEMR05 ;KONA BNE KF1M110 ;? MOTTENAI LDA #001H ;Y STA >ITEMR05 ;KINOKO SET KF1M110 EQU $ STZ ENMODE,X ;KILL I PHX LDY #029H ;KINOKO 1 JSL >ATMSIT ;PL. DEMO SET PLX RTS ;--------------------------------------- ;KINOKF2 EQU $ ; LDA ENSTAT,X ; JSL >JSRSUB ; WORD KNKF2M0 ; WORD KNKF2M1 ;--------------------------------------- ;KNKF2M1 EQU $ ; LDA >BINCT0 ;BIN 1 ; BNE KF2M110 ;? MOTTENAI ; LDA #001H ;Y ; STA >BINCT0 ;KINOKO SET ;KF2M110 EQU $ ; STZ ENMODE,X ;KILL I ; PHX ; LDY #02AH ;KINOKO 2 ; JSL >ATMSIT ;PL. DEMO SET ; PLX ; RTS ;--------------------------------------- ;KINOKF3 EQU $ ; LDA ENSTAT,X ; JSL >JSRSUB ; WORD KNKF3M0 ; WORD KNKF3M1 ;--------------------------------------- ;KNKF3M1 EQU $ ; LDA >BINCT1 ;BIN 2 ; BNE KF3M110 ;? MOTTENAI ; LDA #001H ;Y ; STA >BINCT1 ;KINOKO SET ;KF3M110 EQU $ ; STZ ENMODE,X ;KILL I ; PHX ; LDY #02BH ;KINOKO 3 ; JSL >ATMSIT ;PL. DEMO SET ; PLX ; RTS ;--------------------------------------- ;KINOKF4 EQU $ ; LDA ENSTAT,X ; JSL >JSRSUB ; WORD KNKF4M0 ; WORD KNKF4M1 ;--------------------------------------- ;KNKF4M1 EQU $ ; LDA >BINCT2 ;BIN 3 ; BNE KF4M110 ;? MOTTENAI ; LDA #001H ;Y ; STA >BINCT2 ;KINOKO SET ;KF4M110 EQU $ ; STZ ENMODE,X ;KILL I ; PHX ; LDY #02CH ;KINOKO 4 ; JSL >ATMSIT ;PL. DEMO SET ; PLX ; RTS ;--------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% SUKAS move & init % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% SUKASIT EQU $ ;; PHB ;; PHK ;; PLB ;; JSR SUKAS00_I ;; PLB RTL ;;SUKAS00_I EQU $ ;; RTS ;======================================== SUKASMV EQU $ PHB PHK PLB JSR SUKAS00 PLB RTL SUKAS00 EQU $ JSR SUKASCS JSR ENSTCK2 ; scroll : not return ! ; LDA ENSTAT,X CMP #03H BNE SKS010 ; Catsugi end ? ; ; yes ! LDA ENWRK2,X BNE SKS008 INC ENWRK2,X LDA #LOW MS_00D0 ; MSGE NO. SET LDY #HIGH MS_00D0 ; MSGE NO. SET JSL >ENMSGSL ; SKS008 EQU $ RTS ;- - - - - - - - - - - - - - - - - - - - - SKS010 EQU $ JSR ENMVCL JSL >ENBDSBL ;bound move & chach check ! RTS ; ; ; ; ; ; ; ; ; ; ; ; LDA #MS_001F ; MSGE NO. SET ;; JSL >ENMSGEL ; MEGE ? ;; BCC SUKAS10 ;;; ;; STZ ENMODE,X ;KILL I ;;SUKAS10 EQU $ ;; RTS ;--------------------------------------- SUKASCD EQU $ WORD 00004,00000 BYTE 0F4H,000H,000H,000H WORD 00004,00008 BYTE 0F5H,000H,000H,000H ; SUKASCS EQU $ LDA #002H ;KAZU SET STA SETOAML RTS ;--------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% UTUWA move & init % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% UTUWAIT EQU $ PHB PHK PLB JSR UTUWA00_I PLB RTL UTUWA00_I EQU $ LDA GNDTBL,X AND #040H BEQ UTUWA30_I PLX STZ ENMODE,X ;KILL I RTS UTUWA30_I EQU $ PLX RTS ;---------------------------------------- UTUWA10_I EQU $ ;DANJON LDA ENXPSH,X AND #001H TAY LDA EMYSTT+1 ;SAVE RAM SET AND UTWF1DT,Y BEQ UTUWA40_I STZ ENMODE,X ;KILL I RTS UTUWA40_I EQU $ RTS ;======================================== UTUWAMV EQU $ PHB PHK PLB JSR UTUWA00 PLB RTL UTUWA00 EQU $ JSR UTUWACS JSR ENSTCK ; scroll : not return ! ; JSL >CRENPL2L ;? ATRI BCS UTUWA10 RTS UTUWA10 EQU $ ; ;Y LDY #026H JSL >ATMSIT ;PL. DEMO SET ; STZ ENMODE,X ;KILL I ; ;;;; LDA >LFITCT ;LIFE MAX UP ;;;; CLC ;;;; ADC #008H ;;;; CMP #081H ;;;; BCC UTUWA20 ;;;; LDA #080H ;;;;UTUWA20 EQU $ ;;;; STA >LFITCT ;;;;; ;;;; LDA >UPLFCT ;LIFE UP ;;;; CLC ;;;; ADC #008H ;;;; STA >UPLFCT ;;;;; LDA GNDTBL,X ORA #040H STA >GNDTBL,X PLX RTS ;---------------------------------------- UTWF1DT EQU $ BYTE 040H,020H UTUWAF1 EQU $ ;DANJON LDA ENXPSH,X AND #001H TAY LDA EMYSTT+1 ;SAVE RAM SET ORA UTWF1DT,Y STA EMYSTT+1 RTS ;--------------------------------------- UTUWACD EQU $ WORD 00000,00000 ;TUBO BYTE 0E0H,002H,000H,002H ; UTUWACS EQU $ LDA #001H ;KAZU SET STA SETOAML ; RTS ;--------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% JITON move & init % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% JITONIT EQU $ ; PHB ; PHK ; PLB ; JSR JITON00_I ; PLB ; RTL ;JITON00_I EQU $ ; INC ENNOCR,X ;beem thru ; RTS ;======================================== JITONMV EQU $ PHB PHK PLB JSR JITON00 PLB RTL ;--------------------------------------- JITON00 EQU $ JSR JITONCS JSR ENSTCK ; scroll : not return ! ; LDA ENSTAT,X JSL >JSRSUB WORD JITONM0 WORD JITONM1 WORD JITONM2 ;---------------------------------------- ; JITONM0 EQU $ LDA >MODTBL0 CMP #003 BCC JITON30 LDA #LOW MS_0072 ; MSGE NO. SET LDY #HIGH MS_0072 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BRA JITON10 JITON30 EQU $ LDA >MODTBL2 CMP #003 BCC JITON40 LDA #LOW MS_0071 ; MSGE NO. SET LDY #HIGH MS_0071 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BRA JITON10 ; JITON40 EQU $ LDA #LOW MS_0073 ; MSGE NO. SET LDY #HIGH MS_0073 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BCC JITON10 INC ENSTAT,X LDA #002H ;MAP MODE STA >MODTBL2 ; JITON10 EQU $ LDA ENMOD3,X PHA STZ ENMOD3,X JSL >CRENPL2L BCC JITON20 PHX JSL >PLOTCK ;PL. POS. recover ; STZ DASHON PLX ; JITON20 EQU $ PLA STA ENMOD3,X LDA ENMSGSL ; MEGE ? INC ENSTAT,X RTS ;--------------------------------------- JITONM2 EQU $ LDA #LOW MS_0075 ; MSGE NO. SET LDY #HIGH MS_0075 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BCC JTNM210 ; JTNM210 EQU $ LDA ENMOD3,X PHA STZ ENMOD3,X JSL >CRENPL2L BCC JTNM220 PHX JSL >PLOTCK ;PL. POS. recover ; STZ DASHON PLX ; JTNM220 EQU $ PLA STA ENMOD3,X LDA SETOAML ; RTS ;-------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% MONOR move & init % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MONORIT EQU $ PHB PHK PLB JSR MONOR00_I PLB RTL MONOR00_I EQU $ INC ENNOCR,X ;beem thru ; LDA ITEMR08 BEQ MONOR10_I LDA #004H STA ENCHPT,X LDA #003H STA ENSTAT,X RTS ; MONORF0_I EQU $ LDA >ITEMR09 BEQ MONOR10_I LDA #004H STA ENCHPT,X LDA #003H STA ENSTAT,X MONOR10_I EQU $ RTS ;======================================== MONORMV EQU $ PHB PHK PLB JSR MONORFF PLB RTL ;--------------------------------------- MONORFF EQU $ LDA ENCONT,X JSL >JSRSUB WORD MONOR00 WORD BAKU000 ;---------------------------------------- BAKU0DT EQU $ BYTE 000H,001H,002H,003H,004H,005H,001H,000H,0FFH BAKU000 EQU $ JSR BAKU0CS JSR ENSTCK ; LDA ENTIM0,X BNE BAKU010 ;?E KAERU ; ;Y LDA #005H ;NEXT TIME STA ENTIM0,X ; LDY ENWRK0,X ;E SET LDA BAKU0DT,Y BPL BAKU020 STZ ENMODE,X ;KILL I RTS ; BAKU020 EQU $ STA ENCHPT,X INC ENWRK0,X BAKU010 EQU $ RTS ;---------------------------------------- BAKU0ST EQU $ ;SET BAKU0 LDA #MONOR JSL >ENIDSH BMI BK0ST10 ; JSL >RNDSET STA RNDSET MEM16 IDX8 REP #00100000B ; AND #0001FH SEC SBC #00008H CLC ADC ENIDPS ; LDA SETOAML2 ; RTS ;---------------------------------------- MONOR00 EQU $ JSR MONORCS JSR ENSTCK ; scroll : not return ! ; STZ ENWRK0,X JSL >CRENPL2L BCC MONOR10 JSL >PLOTCK ;PL. POS. recover STZ DASHON INC ENWRK0,X ; MONOR10 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD MONORM0 WORD MONORM1 WORD MONORM2 WORD MONORM3 ;---------------------------------------- MONORML EQU $ BYTE LOW MS_0400,LOW MS_0401 MONORMH EQU $ BYTE HIGH MS_0400,HIGH MS_0401 ; MONOR1L EQU $ BYTE LOW MS_0400,LOW MS_0402 MONOR1H EQU $ BYTE HIGH MS_0400,HIGH MS_0402 ; MONORM0 EQU $ LDA ITEMR22 BEQ MORM090 LDA >PLYPS1 CMP #0E0H BCS MORM090 LDA ITEMR22 ;MSGE NO SET TAY LDA MONOR1L,Y XBA LDA MONOR1H,Y TAY XBA ; JSL >ENMSGSL ; MEGE ? ; MORM080 EQU $ RTS ;----------------------------------------THANDER MORM0F0 EQU $ LDA ITEMR22 BEQ MORM020 LDA >PLYPS1 CMP #090H BCS MORM020 LDA ITEMR22 ;MSGE NO SET TAY LDA MONORML,Y XBA LDA MONORMH,Y TAY XBA ; JSL >ENMSGSL ; MEGE ? ; MORM010 EQU $ RTS ;--------------------------------------- MONORM1 EQU $ INC ENSTAT,X ; LDA SNDINT BRA MORM110 ; MORM120 EQU $ LDY #000H LDA #SPBMV ;BOMB SET JSL >SPBMINT MORM110 EQU $ PLX PLA STA TKDINT PLX ; LDA #0F0H STA ENTIM0,X RTS MORM210 EQU $ CMP #060H BEQ MORM220 CMP #040H BEQ MORM220 CMP #020H BNE MORM230 MORM220 EQU $ INC ENCHPT,X ;E SET MORM230 EQU $ LDA SETOAML ; RTS ;-------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% JOHBB move & init % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% JOHBBIT EQU $ ; PHB ; PHK ; PLB ; JSR JOHBB00_I ; PLB ; RTL ;JOHBB00_I EQU $ ; INC ENNOCR,X ;beem thru ; RTS ;======================================== JOHBBMV EQU $ PHB PHK PLB JSR JOHBB00 PLB RTL ;--------------------------------------- JOHBB00 EQU $ JSR JOHBBCS JSR ENSTCK ; scroll : not return ! ; LDA ENSTAT,X JSL >JSRSUB WORD JOHBBM0 WORD JOHBBM1 ;---------------------------------------- JOHBBM0 EQU $ LDA #LOW MS_0050 ; MSGE NO. SET LDY #HIGH MS_0050 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BCC JOHBB10 LDA #003H STA >MODTBL2 ;TEST GMAP POINT 3 SET(SAVE) INC ENSTAT,X ; JOHBB10 EQU $ LDA ENMOD3,X PHA STZ ENMOD3,X JSL >CRENPL2L BCC JOHBB40 PHX JSL >PLOTCK ;PL. POS. recover ; STZ DASHON PLX ; JOHBB40 EQU $ PLA STA ENMOD3,X ; LDA ENTIM0,X BNE JOHBB20 ; JSL >RNDSET AND #01FH CLC ADC ENTIM0,X STA ENTIM0,X ; LDA ENWRK0,X EOR #001H STA ENWRK0,X ; JOHBB20 EQU $ LDA ENWRK0,X BEQ JOHBB30 ; LDA ENMSGSL ; MEGE ? RTS ; JHBM110 EQU $ LDA #LOW MS_0051 ; MSGE NO. SET LDY #HIGH MS_0051 ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? RTS ;--------------------------------------- JOHBBCD EQU $ WORD 00000,-0001 BYTE 08EH,000H,000H,002H WORD 00000,00008 BYTE 028H,000H,000H,002H ; WORD 00000,00000 BYTE 08EH,000H,000H,002H WORD 00000,00008 BYTE 028H,040H,000H,002H ; JOHBBCS EQU $ LDA #002H STA SETOAML ; RTS ;-------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% MJSY1 move & init % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MJSY1IT EQU $ PHB PHK PLB JSR MJSY100_I PLB RTL MJSY100_I EQU $ ; STZ ENCONT,X ;MJSY1 SET ; LDA SCLSFG ; BEQ MJSY110_I ; JSR POTN1ST JSR POTN2ST JSR POTN3ST JSR POTN4ST MJSY110_I EQU $ INC ENNOCR,X ;beem thru RTS ;---------------------------------------- POTN1ST EQU $ LDA >ITEMR05 CMP #002H BEQ PN1ST10 ;? KONA MOTTERU ; ;N PHX ;POTION FLG GET STZ DJNTBL,X AND #080H ;POTION 1(KONA) STA ENIDSH ; LDA #001H STA ENCONT,Y ;POTN1 SET ; LDA ENYPSL,X ;Y POS SET SEC SBC #030H STA ENYPSL,Y LDA ENYPSH,X SBC #000H STA ENYPSH,Y ; LDA ENXPSL,X ;X POS SET CLC ADC #010H STA ENXPSL,Y LDA ENXPSH,X ADC #000H STA ENXPSH,Y ; ; LDA #001H ; STA ENNOCR,Y ;beem thru LDA #003H STA ENMOD3,Y ;OBJ hit hani ! LDA ENMOD5,Y ;HUKKU ATARI ORA #020H STA ENMOD5,Y PN1ST10 EQU $ RTS ; ;--------------------------------------- POTN2ST EQU $ ; PHX ;POTION FLG GET ; STZ DJNTBL,X ; AND #040H ;POTION 2 ; STA ENIDSH ; LDA #002H STA ENCONT,Y ;POTN2 SET ; LDA ENYPSL,X ;Y POS SET SEC SBC #030H STA ENYPSL,Y LDA ENYPSH,X SBC #000H STA ENYPSH,Y ; LDA ENXPSL,X ;X POS SET SEC SBC #026H STA ENXPSL,Y LDA ENXPSH,X SBC #000H STA ENXPSH,Y ; ; LDA #001H ; STA ENNOCR,Y ;beem thru LDA #003H STA ENMOD3,Y ;OBJ hit hani ! LDA ENMOD5,Y ;HUKKU ATARI ORA #020H STA ENMOD5,Y PN2ST10 EQU $ RTS ; ;--------------------------------------- POTN3ST EQU $ ; PHX ;POTION FLG GET ; STZ DJNTBL,X ; AND #020H ;POTION 3 ; STA ENIDSH ; LDA #003H STA ENCONT,Y ;POTN3 SET ; LDA ENYPSL,X ;Y POS SET SEC SBC #030H STA ENYPSL,Y LDA ENYPSH,X SBC #000H STA ENYPSH,Y ; LDA ENXPSL,X ;X POS SET SEC SBC #00AH STA ENXPSL,Y LDA ENXPSH,X SBC #000H STA ENXPSH,Y ; ; LDA #001H ; STA ENNOCR,Y ;beem thru LDA #003H STA ENMOD3,Y ;OBJ hit hani ! LDA ENMOD5,Y ;HUKKU ATARI ORA #020H STA ENMOD5,Y PN3ST10 EQU $ RTS ; ;--------------------------------------- POTN4ST EQU $ ; PHX ;POTION FLG GET ; STZ DJNTBL,X ; AND #010H ;POTION 4 ; STA ENIDSH ; LDA #004H STA ENCONT,Y ;POTN4 SET ; LDA ENYPSL,X ;Y POS SET SEC SBC #030H STA ENYPSL,Y LDA ENYPSH,X SBC #000H STA ENYPSH,Y ; LDA ENXPSL,X ;X POS SET SEC SBC #040H STA ENXPSL,Y LDA ENXPSH,X SBC #000H STA ENXPSH,Y ; ; LDA #001H ; STA ENNOCR,Y ;beem thru LDA #003H STA ENMOD3,Y ;OBJ hit hani ! LDA ENMOD5,Y ;HUKKU ATARI ORA #020H STA ENMOD5,Y PN4ST10 EQU $ RTS ; ;======================================== MJSY1MV EQU $ PHB PHK PLB JSR MJSY100 PLB RTL MJSY100 EQU $ LDA ENCONT,X JSL >JSRSUB WORD MJSY1F0 WORD POTN1F0 WORD POTN2F0 WORD POTN3F0 WORD POTN4F0 ;======================================== POTN1_YEN EQU 0001 ;NEDAN POTN1F0 EQU $ ;POTION 1 JSR POTN1CS JSR ENSTCK ; scroll : not return ! ; LDA >ITEMR05 CMP #002 ;? KONA BEQ PN1F010 ; MEM16 REP #00100000B LDA >CONCNT CMP #POTN1_YEN ;NEDAN MEM8 SEP #00110000B BCC PN1F010 ;? OKANE ARU ; JSL >CRENPL2L ;? ATRI BCC PN1F010 ; MEM16 REP #00100000B LDA >CONCNT ;OKANE HIKU SEC SBC #POTN1_YEN STA >CONCNT MEM8 SEP #00110000B ; LDA #002H ;KONA SET STA >ITEMR05 ; PHX LDY #00DH ;KONA JSL >ATMSIT ;PL. DEMO SET PLX STZ ENMODE,X ;KILL I PN1F010 EQU $ RTS ;--------------------------------------- POTN1CD EQU $ WORD 00000,00000 ;TUBO BYTE 026H,009H,000H,002H WORD 00013,00018 ;1 BYTE 031H,00AH,000H,000H ; POTN1CS EQU $ LDA #002H STA SETOAML ; RTS ;======================================== POTN2_YEN EQU 0060 ;NEDAN POTN2F0 EQU $ ;POTION 2 JSR POTN2CS JSR ENSTCK ; scroll : not return ! ; LDA >BINCT0 CMP #002H BCS PN2F070 LDA >BINCT1 CMP #002H BCS PN2F070 LDA >BINCT2 CMP #002H BCS PN2F070 LDA >BINCT3 CMP #002H BCS PN2F070 LDA #LOW MS_00A2 ; MSGE NO. SET LDY #HIGH MS_00A2 ; MSGE NO. SET JSL >ENMSG2L ; MEGE ? RTS ; PN2F070 EQU $ ; LDA CRENPL2L ;? ATRI BCC PN2F010 ; MEM16 REP #00100000B LDA PLSVX1 ;PL. POS. recover STA CONCNT CMP #POTN2_YEN ;NEDAN MEM8 SEP #00110000B BCC PN2F010 ;? OKANE ARU ; ;Y LDA >BINCT0 CMP #002H BNE PN2F040 LDA #000 BRA PN2F020 PN2F040 EQU $ LDA >BINCT1 CMP #002H BNE PN2F050 LDA #001 BRA PN2F020 PN2F050 EQU $ LDA >BINCT2 CMP #002H BNE PN2F060 LDA #002 BRA PN2F020 PN2F060 EQU $ LDA >BINCT3 CMP #002H BNE PN2F010 LDA #003 PN2F020 EQU $ TXY TAX LDA >BINCT0,X CMP #002H BNE PN2F010 LDA #004H ;GREEN POTION STA >BINCT0,X ;POTION SET JSL >SDLRCE ORA #01DH ;OTO STA SOUND3 PN2F030 EQU $ TYX ; MEM16 REP #00100000B LDA >CONCNT ;OKANE HIKU SEC SBC #POTN2_YEN STA >CONCNT MEM8 SEP #00110000B ; PHX LDY #02CH ;GREEN POTION JSL >ATMSIT ;PL. DEMO SET PLX ; PN2F010 EQU $ RTS ;--------------------------------------- POTN2CD EQU $ WORD 00000,00000 ;TUBO BYTE 0C0H,008H,000H,002H WORD 00013,00018 ;0 BYTE 030H,00AH,000H,000H WORD 00005,00018 ;6 BYTE 022H,00AH,000H,000H ; POTN2CS EQU $ LDA #003H STA SETOAML ; RTS ;======================================== POTN3_YEN EQU 0180 ;NEDAN POTN3F0 EQU $ ;POTION 3 JSR POTN3CS JSR ENSTCK ; scroll : not return ! ; LDA >BINCT0 CMP #002H BCS PN3F070 LDA >BINCT1 CMP #002H BCS PN3F070 LDA >BINCT2 CMP #002H BCS PN3F070 LDA >BINCT3 CMP #002H BCS PN3F070 LDA #LOW MS_00A2 ; MSGE NO. SET LDY #HIGH MS_00A2 ; MSGE NO. SET JSL >ENMSG2L ; MEGE ? RTS ; PN3F070 EQU $ ; LDA CRENPL2L ;? ATRI BCC PN3F010 ; MEM16 REP #00100000B LDA PLSVX1 ;PL. POS. recover STA CONCNT CMP #POTN3_YEN ;NEDAN MEM8 SEP #00110000B BCC PN3F010 ;? OKANE ARU ; ;Y LDA >BINCT0 CMP #002H BNE PN3F040 LDA #000 BRA PN3F020 PN3F040 EQU $ LDA >BINCT1 CMP #002H BNE PN3F050 LDA #001 BRA PN3F020 PN3F050 EQU $ LDA >BINCT2 CMP #002H BNE PN3F060 LDA #002 BRA PN3F020 PN3F060 EQU $ LDA >BINCT3 CMP #002H BNE PN3F010 LDA #003 PN3F020 EQU $ TXY TAX LDA >BINCT0,X CMP #002H BNE PN3F010 LDA #005H ;BLUE POTION STA >BINCT0,X ;POTION SET JSL >SDLRCE ORA #01DH ;OTO STA SOUND3 PN3F030 EQU $ TYX ; MEM16 REP #00100000B LDA >CONCNT ;OKANE HIKU SEC SBC #POTN3_YEN STA >CONCNT MEM8 SEP #00110000B ; PHX LDY #02DH ;BLUE POTION JSL >ATMSIT ;PL. DEMO SET PLX ; PN3F010 EQU $ RTS ;--------------------------------------- POTN3CD EQU $ WORD 00000,00000 ;TUBO BYTE 0C0H,004H,000H,002H WORD 00013,00018 ;0 BYTE 030H,00AH,000H,000H WORD 00005,00018 ;8 BYTE 032H,00AH,000H,000H WORD -0003,00018 ;1 BYTE 031H,00AH,000H,000H ; POTN3CS EQU $ LDA #004H STA SETOAML ; RTS ;======================================== POTN4_YEN EQU 0120 ;NEDAN POTN4F0 EQU $ ;POTION 4 JSR POTN4CS JSR ENSTCK ; scroll : not return ! ; LDA >BINCT0 CMP #002H BCS PN4F070 LDA >BINCT1 CMP #002H BCS PN4F070 LDA >BINCT2 CMP #002H BCS PN4F070 LDA >BINCT3 CMP #002H BCS PN4F070 LDA #LOW MS_00A2 ; MSGE NO. SET LDY #HIGH MS_00A2 ; MSGE NO. SET JSL >ENMSG2L ; MEGE ? RTS ; PN4F070 EQU $ ; LDA CRENPL2L ;? ATRI BCC PN4F010 ; MEM16 REP #00100000B LDA PLSVX1 ;PL. POS. recover STA CONCNT CMP #POTN4_YEN ;NEDAN MEM8 SEP #00110000B BCC PN4F010 ;? OKANE ARU ; ;Y LDA >BINCT0 CMP #002H BNE PN4F040 LDA #000 BRA PN4F020 PN4F040 EQU $ LDA >BINCT1 CMP #002H BNE PN4F050 LDA #001 BRA PN4F020 PN4F050 EQU $ LDA >BINCT2 CMP #002H BNE PN4F060 LDA #002 BRA PN4F020 PN4F060 EQU $ LDA >BINCT3 CMP #002H BNE PN4F010 LDA #003 PN4F020 EQU $ TXY TAX LDA >BINCT0,X CMP #002H BNE PN4F010 LDA #003H ;RED POTION STA >BINCT0,X ;POTION SET JSL >SDLRCE ORA #01DH ;OTO STA SOUND3 PN4F030 EQU $ TYX ; MEM16 REP #00100000B LDA >CONCNT ;OKANE HIKU SEC SBC #POTN4_YEN STA >CONCNT MEM8 SEP #00110000B ; PHX LDY #02BH ;RED POTION JSL >ATMSIT ;PL. DEMO SET PLX ; PN4F010 EQU $ RTS ;--------------------------------------- POTN4CD EQU $ WORD 00000,00000 ;TUBO BYTE 0C0H,002H,000H,002H WORD 00013,00018 ;0 BYTE 030H,00AH,000H,000H WORD 00005,00018 ;2 BYTE 002H,00AH,000H,000H WORD -0003,00018 ;1 BYTE 031H,00AH,000H,000H ; POTN4CS EQU $ LDA #004H STA SETOAML ; RTS ;======================================== MJSY1F0 EQU $ ;MJSY1 JSR MJSY1CS JSR ENSTCK ; scroll : not return ! ; LDA DJNTBL,X ; MEM8 ; IDX8 ; SEP #00110000B ; TYX ; AND #0F0H ; BEQ MJ1F010 ;? KUSURI NASI ; ;N LDA ENMOD3,X PHA STZ ENMOD3,X JSL >CRENPL2L BCC MJ1F020 PHX JSL >PLOTCK ;PL. POS. recover ; STZ DASHON PLX ; MJ1F020 EQU $ PLA STA ENMOD3,X LDA >BINCT0 CMP #002H BCS MJ1F010 LDA >BINCT1 CMP #002H BCS MJ1F010 LDA >BINCT2 CMP #002H BCS MJ1F010 LDA >BINCT3 CMP #002H BCS MJ1F010 ; LDA #LOW MS_00A0 ; MSGE NO. SET LDY #HIGH MS_00A0 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? RTS MJ1F010 EQU $ LDA #LOW MS_00A1 ; MSGE NO. SET LDY #HIGH MS_00A1 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? RTS ;--------------------------------------- MJSY1CD EQU $ WORD 00000,00000 BYTE 000H,00CH,000H,002H WORD 00000,00008 BYTE 010H,00CH,000H,002H ; WORD 00000,00000 BYTE 000H,00CH,000H,002H WORD 00000,00008 BYTE 010H,04CH,000H,002H ; MJSY1CS EQU $ LDA #002H STA SETOAML ; RTS ;-------------------------------------- ;--------------------------------------- ;--------------------------------------- ;--------------------------------------- ;--------------------------------------- EPXYCK EQU $ JSL >EPXYCK2 RTS ;- - - - - - - - - - ;; JSR EPXCHK ;; STY EPXCHK2 RTS ;- - - - - - - - ;; LDY #00H ;; LDA EPYCHK2 RTS ;;;- - - - - - - - ;; LDY #00H ;; LDA 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 ;- - - - - - - - - - - - - - - - - - ; STZ ENDSPL,X ;; ;;; LDA ENXPSH,X ;;; XBA ;;; LDA ENXPSL,X ; MEM16 ; REP #00100000B ; LDA ENXP2L ; SEC ; SBC ENCLER ;O2T020 EQU $ ; PLA ; PLA ; SEC ;O2T090 EQU $ ; INC ENDSPL,X ; BRA O2T038 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 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 GDBUF0,X TAX LDA >GRNDCHK,X MEM8 IDX8 SEP #00110000B RTL ;---------------------------------------- ; ; DEMON MOVE ; ;---------------------------------------- DEMONMV EQU $ PHB PHK PLB JSR DEMON00 PLB RTL ;---------------------------------------- DEMON00 EQU $ LDA ENKBMK,X BEQ DMM000 ; Beam ? ; ; yes ! JSL >DEMBMMV RTS ;------------------------------------------ DMM000 EQU $ LDA ENSTAT,X BEQ DEMON10 JSL >EN1CSTL DEMON10 EQU $ JSR ENSTCK ; scroll : not return ! JSR ENMVCL ;xclc,yclc JSR ENZCLC ;zclc ; LDA ENSTAT,X JSL >JSRSUB WORD DEMONM0 WORD DEMONM1 WORD DEMONM2 WORD DEMONM3 WORD DEMONM4 ;---------------------------------------- DEMONM0 EQU $ LDA >MPLVFG ;DENAI DEC A BEQ DMNM030 ; JSL >CRENPL2L BCC DMNM030 ;? TUCH ; ;Y LDY #004H DMNM010 EQU $ LDA BMMODE,Y CMP #KONMV ;? PL. KONA BEQ DMNM020 DEY BPL DMNM010 RTS ; DMNM020 EQU $ ;Y JSL >KEMR1ST ;KEMURI SET ; INC ENSTAT,X ; LDA #014H ;TIME SET STA ENWRK0,X ; LDA #001H ;PL. STOP STA PYALSP ; LDA ENCLOR,X ORA #020H STA ENCLOR,X DMNM030 EQU $ RTS ;---------------------------------------- DEMONM1 EQU $ LDA ENTIM0,X BNE DMNM110 ; DEC ENWRK0,X ;DEC TIME LDA ENWRK0,X ;NEXT TIME SET STA ENTIM0,X CMP #001H BEQ DMNM120 LSR A LSR A STA ENZSPD,X LSR A STA ENXSPD,X ; LDA ENCHPT,X EOR #001H STA ENCHPT,X DMNM110 EQU $ RTS ; DMNM120 EQU $ LDA #LOW MS_0410 ; MSGE NO. SET LDY #HIGH MS_0410 ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? INC ENSTAT,X STZ ENCHPT,X STZ ENZSPD,X STZ ENXSPD,X LDA #0FFH STA ENTIM0,X ;LIGHT TIME SET RTS ;---------------------------------------- DMNM2CL EQU $ BYTE 00AH,004H,002H,004H,002H,00AH,004H,002H DEMONM2 EQU $ LDA ENTIM0,X BNE DMNM210 INC ENSTAT,X LDA #040H STA ENTIM1,X LDA ENTIM0,X DMNM210 EQU $ LSR A AND #007H TAY LDA ENCLOR,X AND #0F1H ORA DMNM2CL,Y STA ENCLOR,X ; LDA ENTIM0,X CMP #0F0H BNE DMNM220 JSL >DEMBMST ;BEEM SET JSL >DEMBMST JSL >DEMBMST JSL >DEMBMST DMNM220 EQU $ RTS ;---------------------------------------- DEMONM3 EQU $ LDA ENTIM1,X BNE DMNM310 LDA #LOW MS_0411 ; MSGE NO. SET LDY #HIGH MS_0411 ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? PHX JSL >THCGCN2 INC KEMR2ST ;KEMURI SET STZ ENMODE,X ;KILL I STZ PYALSP ;PL. MOVE LDA #001H ;MP HANBUN STA >MPLVFG RTS ;---------------------------------------- MURYAMV EQU $ MURMKMV EQU $ END ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% INITIAL % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% PSW01IT EQU $ ; PHB ; PHK ; PLB ; JSR ; PLB ; RTL ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% INITIAL % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% PSW02IT EQU $ ; PHB ; PHK ; PLB ; JSR ; PLB RTL ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% INITIAL % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% PINT1IT EQU $ PHB PHK PLB JSR PINT100_I PLB RTL ;======================================== PINT100_I EQU $ JSR PINT1UC ;ENWRK0 - 3 <--- UNIT NO ; JSR PINT1CK ;UNIT CHK. PNT1I10 EQU $ RTS ;---------------------------------------- PT1UD10 EQU $ ;master unit (UL = 000H) ; UL UR DL DR BYTE 000H,002H,000H,001H BYTE 000H,002H,001H,001H BYTE 000H,000H,001H,002H BYTE 000H,001H,000H,002H BYTE 000H,001H,002H,001H BYTE 000H,000H,002H,001H PT1UD11 EQU $ ;master unit (UL = 001H) BYTE 001H,002H,001H,000H BYTE 001H,002H,000H,000H BYTE 001H,001H,000H,002H BYTE 001H,000H,001H,002H BYTE 001H,000H,002H,000H BYTE 001H,001H,002H,000H PT1UD12 EQU $ ;master unit (UL = 002H) BYTE 002H,001H,000H,001H BYTE 002H,000H,001H,000H BYTE 002H,000H,001H,001H BYTE 002H,001H,000H,000H PT1UD13 EQU $ ;master unit (keisan you) ;- - - - - - - - - - - - - - PT1UD20 EQU $ ;chenge unit (UL = 000H) ; U.No not not not BYTE 001H,000H,000H,000H BYTE 004H,000H,000H,000H BYTE 007H,000H,000H,000H BYTE 009H,000H,000H,000H BYTE 00AH,000H,000H,000H BYTE 00FH,000H,000H,000H PT1UD21 EQU $ ;chenge unit (UL = 001H) BYTE 000H,000H,000H,000H BYTE 005H,000H,000H,000H BYTE 006H,000H,000H,000H BYTE 008H,000H,000H,000H BYTE 00BH,000H,000H,000H BYTE 00EH,000H,000H,000H PT1UD22 EQU $ ;chenge unit (UL = 002H) BYTE 002H,000H,000H,000H BYTE 003H,000H,000H,000H BYTE 00CH,000H,000H,000H BYTE 00DH,000H,000H,000H PT1UD23 EQU $ ;chenge unit (keisan you) ;- - - - - - - - - - - - - - PINT1CK EQU $ LDA ENWRK0,X CMP #000H BNE PT1CK10 LDY #PT1UD11-PT1UD10-4 PT1CK40 EQU $ LDA ENWRK1,X ;unit 1 - 3 chk. CMP PT1UD10+1,Y BNE PT1CK50 LDA ENWRK2,X CMP PT1UD10+2,Y BNE PT1CK50 LDA ENWRK3,X CMP PT1UD10+3,Y BNE PT1CK50 ; ;all ok ! LDA PT1UD20,Y STA ENSTAT,X RTS PT1CK50 EQU $ DEY DEY DEY DEY BPL PT1CK40 ;? not unit ; ;y BRA PT1CK30 ; PT1CK10 EQU $ CMP #001H BNE PT1CK20 LDY #PT1UD12-PT1UD11-4 PT1CK60 EQU $ LDA ENWRK1,X ;unit 1 - 3 chk. CMP PT1UD11+1,Y BNE PT1CK70 LDA ENWRK2,X CMP PT1UD11+2,Y BNE PT1CK70 LDA ENWRK3,X CMP PT1UD11+3,Y BNE PT1CK70 ; ;all ok ! LDA PT1UD21,Y STA ENSTAT,X RTS PT1CK70 EQU $ DEY DEY DEY DEY BPL PT1CK60 ;? not unit ; ;y BRA PT1CK30 ; PT1CK20 EQU $ CMP #002H BNE PT1CK30 LDY #PT1UD13-PT1UD12-4 PT1CK80 EQU $ LDA ENWRK1,X ;unit 1 - 3 chk. CMP PT1UD12+1,Y BNE PT1CK90 LDA ENWRK2,X CMP PT1UD12+2,Y BNE PT1CK90 LDA ENWRK3,X CMP PT1UD12+3,Y BNE PT1CK90 ; ;all ok ! LDA PT1UD22,Y STA ENSTAT,X RTS PT1CK90 EQU $ DEY DEY DEY DEY BPL PT1CK80 ;? not unit ; ;y ; BRA PT1CK30 ; PT1CK30 EQU $ STZ ENMODE,X ;not unit RTS ;---------------------------------------- PT1YPDT EQU $ ;UNIT POINT Y BYTE 000,000,008,008 PT1XPDT EQU $ ;UNIT POINT X BYTE 000,008,000,008 PINT1UC EQU $ LDY #003H PT1UC10 EQU $ LDA ENYPSL,X CLC ADC PT1YPDT,Y STA BGDTRD2 ; LDA UNITNO STA WORKC,Y ; DEY BPL PT1UC10 ;? 4 UNIT END ; ;Y LDA ENWRK0 - 3 STA ENWRK0,X LDA CRKNENL BCC PSW0110 ;? any atari LDA AITMBT ;y AND #00AH BEQ PSW0110 ;? HANMER atari ; ;y ; ;HANMER atari LDA >KRXBUF ;ATARI !! EOR #001H STA >KRXBUF+1 LDA #001H STA >KRXBUF RTS PSW0110 EQU $ LDA #000H STA >KRXBUF STA >KRXBUF+1 RTS ;---------------------------------------- PSW01CS EQU $ JSR OAMCHK ; LDA #000H STA ALOMCKL RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% PSW02MV EQU $ PHB PHK PLB JSR PSW0200_M PLB RTL ;======================================== PSW0200_M EQU $ JSR PSW02CS JSR ENSTCK ; scroll : not return ! ; JSL >CRKNENL BCC PSW2110 ;? any atari LDA AITMBT ;y AND #00AH BEQ PSW2110 ;? HANMER atari ; ;y ; ;HANMER atari LDA >KRXBUF+2 ;ATARI !! EOR #001H STA >KRXBUF+3 LDA #001H STA >KRXBUF+2 RTS PSW2110 EQU $ LDA #000H STA >KRXBUF+2 STA >KRXBUF+3 RTS ;---------------------------------------- PSW02CS EQU $ JSR OAMCHK ; LDA #001H STA ALOMCKL RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% PINT1MV EQU $ PHB PHK PLB JSR PINT100_M PLB RTL ;======================================== PINT100_M EQU $ JSR PINT1CS JSR ENSTCK ; scroll : not return ! ; RTS ;---------------------------------------- PINT1CS EQU $ JSR OAMCHK ; LDA #002H STA ALOMCKL RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% PINT2MV EQU $ PHB PHK PLB JSR PINT200_M PLB RTL ;======================================== PINT200_M EQU $ JSR PINT2CS JSR ENSTCK ; scroll : not return ! ; RTS ;---------------------------------------- PINT2CS EQU $ JSR OAMCHK ; LDA #003H STA ALOMCKL RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% MURON move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MURONTM EQU $ BYTE 060H,03CH,010H,008H,00CH,010H,00CH,020H MURONDT EQU $ BYTE 000H,001H,002H,001H,003H,001H,002H,001H MURONMV EQU $ PHB PHK PLB JSR MURON00 PLB RTL MURON00 EQU $ JSR MURONCS JSR ENSTCK ; scroll : not return ! ; ; LDA #LOW MS_0000 ; MSGE NO. SET LDY #HIGH MS_0000 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? ; LDA ENATCT,X BNE MURON60 ;MAKI SET OK? ; LDA MURONTM ;Y STA ENTIM0,X STZ ENCHPT,X ; MURON60 EQU $ LDA ENTIM0,X BNE MURON10 ; LDA ENWRK0,X INC A AND #007H STA ENWRK0,X STA ENATCT,X TAY LDA MURONTM,Y STA ENTIM0,X LDA MURONDT,Y STA ENCHPT,X BNE MURON10 JSL >MURMKST ; MURON10 EQU $ LDA ENCHPT,X BNE MURON20 ; STZ ENWRK1,X STZ ENWRK2,X STZ ENSTAT,X ; LDA #0FAH STA ENMUKI,X STZ ENCMKI,X RTS ; MURONKI EQU $ ;MAKI JAMP BYTE 006,003 ; 0 1 MURON20 EQU $ ;MAKI TOBI LDA OCHECKL ; PHX LDA ENCLOR,X STA ALOMCKL RTS ;-------------------------------------- MURMKST EQU $ ;MAKI HAKOBI SET LDA #MURMK JSL >ENIDSH BMI MRMKS80 ; TYA STA ENCTFG,X TXA STA ENCTFG,Y ; LDA ENMSGEL ; MEGE ? ; LDA YAIMIT PLX RTS ;---------------------------------------- MURYACD EQU $ BYTE -002,0008,0E3H,000H BYTE -002,0016,0E3H,080H BYTE 0000,0000,0ECH,000H BYTE 0000,0012,0EAH,000H BYTE -010,0009,0E1H,000H;D BYTE 0004,0009,0E6H,000H;D ; BYTE -007,0011,03BH,045H BYTE 0001,0012,038H,045H BYTE -004,0008,0E3H,000H BYTE -004,0016,0E3H,080H BYTE 0000,0000,0ECH,000H BYTE -001,0011,0A6H,000H ; BYTE -003,0011,03BH,045H BYTE 0005,0012,038H,045H BYTE -004,0008,0CEH,000H BYTE 0000,0000,0ECH,000H BYTE 0000,0012,0EAH,000H BYTE 0004,0009,0EEH,0C0H;D ; ; BYTE 0010,0008,0E3H,040H BYTE 0010,0016,0E3H,0C0H BYTE 0000,0000,0ECH,040H BYTE 0000,0012,0EAH,040H BYTE -010,0009,0E1H,040H;D BYTE 0004,0009,0E6H,040H;D ; BYTE 0015,0012,03BH,005H BYTE 0007,0012,038H,005H BYTE 0012,0008,0E3H,040H BYTE 0012,0016,0E3H,0C0H BYTE 0000,0000,0ECH,040H BYTE 0001,0012,0A6H,040H ; BYTE 0012,0012,03BH,005H BYTE 0004,0012,038H,005H BYTE 0004,0008,0CEH,040H BYTE 0000,0000,0ECH,040H BYTE 0000,0012,0EAH,040H BYTE 0004,0009,0EEH,080H;D ; ; MRYACKD EQU $ BYTE 003H,005H,004H ; ; MURYASD EQU $ BYTE 000H,000H,002H,002H,002H,002H BYTE 000H,000H,000H,000H,002H,002H BYTE 000H,000H,002H,002H,002H,002H MURYACS EQU $ JSR OAMCHK JSL >OCHECKL ; LDY ENCHPT,X LDA MRYACKD,Y STA ALOMCKL RTS ;-------------------------------------- ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% MURMK move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MURMKDT EQU $-1 BYTE 000H,004H,000H,005H MURMKTT EQU $-1 BYTE 0C8H,028H,0FFH,000H ; MURMKMV EQU $ PHB PHK PLB JSR MURMK00 PLB RTL MURMK00 EQU $ JSR MURMKCS JSR ENSTCK ; scroll : not return ! ; ; LDA #LOW MS_0000 ; MSGE NO. SET LDY #HIGH MS_0000 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? ; LDA ENTIM0,X ;TIME ? BNE MURMK10 ; INC ENWRK0,X ;NEXT MODE LDY ENWRK0,X LDA MURMKDT,Y STA ENSTAT,X LDA MURMKTT,Y STA ENTIM0,X ; MURMK10 EQU $ LDA ENSTAT,X JSL >JSRSUB ; WORD MURMKM0 ;UP MOVE WORD MURMKM1 ;DOWN WORD MURMKM2 ;LEFT WORD MURMKM3 ;RIGHT WORD MURMKM4 ;MAKI SET WORD MURMKM5 ;KILL I ;---------------------------------------- MRMKSXD EQU $ BYTE 000,000,-10,010 MRMKSYD EQU $ BYTE -10,010,000,000 MURMKM0 EQU $ MURMKM1 EQU $ MURMKM2 EQU $ MURMKM3 EQU $ LDA ENSTAT,X STA ENMUKI,X TAY LDA MRMKSXD,Y STA ENXSPD,X LDA MRMKSYD,Y STA ENYSPD,X JSR ENMVCL ; xclc,yclc ; LDA OCHECKL ; PHX ; LDA ENMUKI,X ASL A ADC ENCHPT,X ASL A ASL A ASL A ; MEM16 IDX16 REP #00110000B ; AND #000FFH TAX ; LDY ALOMCKL RTS ;--------------------------------------- ;