; INCLUDE zel_ram.asm ; ;-------------------------------------------------------------------- ; ; PAL_ZELDA-3 (FRANCE) 1991.05.23(THU) ; ;-------------------------------------------------------------------- ; ORG 058000H ; ;=============================================== (zel_enmy2) =========== GLB EVCHCKE,ENXSDN,ENYSDN,ENMSG2L,ENMSGEL,ENMSGSL GLB SETOAML,ENMKIST,MSGSET,HEIS0CS2,ASIMZST,ICEF2ST ;---------------------------------------- GLB NOPPOMV,PLHIKMV,PLHINMV,ONNAAMV,HIGEEMV,MAJOOMV,HIGEEIT GLB KIANAMV,DEMONMV,BOOK0MV,KEMRIST,YASANIT GLB TKBOYMV,ESW02MV,SETOAML2,ENSDMV,MIZUSTL GLB BABA1MV,BABA1IT,JITONIT,JITONMV,BSITEM,SETOAML22 GLB BARI0MV,HEIS0MV,H0SER00L GLB MZSUB ;;,BRSDRS ; 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 GLB UTUBKIT,UTUBKMV,MJSY1CS ;-- DATA -- GLB KOMXSD,KOMYSD ;=============================================== (zel_enmy5) ============ EXT ASZNZST,BABA1CS,R100,BABACK,YABAACK,YABAAST ;=============================================== (zel_enmy4) ============ EXT MKCK16,HIMITU ;=============================================== (zel_enmy3) ============ EXT BINCHKL,RNTAMST ;=============================================== (zel_enmy) ============ EXT EPXYCK2,EPXCHK2,EPYCHK2,ENIDSH2,PSERC2L EXT EICE,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,EN12CSL,USFAILL ;--- enmyno -- EXT SKHED,SPARL,ATARS,BARI1,ZORAB,CTBOS,HINO0 EXT OCTA1,OCTA2,OCTA3,NYORO,OCTBL,OCTSS EXT TARUH,TARUV,BYOYN EXT KWAUS,KWAU1,SHIGE,SARU1,SEKZ4,PONPK EXT REBA1,ZOOL1 EXT JIJII,BABAA,HEITI,PENKI,NOKOG,KUTUU,GAKII,GAKI1 EXT NOPPO,PLHIK,PLHIN,ONNAA,HIGEE,MAJOO,PLCHK,KIANA,BUBUU EXT YATAM,DEMON,BOOK0,TKBOY,LINE0,LINE1,LINE2,LINE3,BABA1,ESW03,HEIS0,HEI00 EXT TAIHO,HEIS1,HEYA0,HEYA1,HEYA2,KTOBJ,HEIS2,NEZU0,HEBI0 EXT KOMO0,MONOR,HEBO0,OYAGI,ZAKO0 EXT HEIS3,SUNA0,USAG0,HEYA3,HANA0,HANA1,TAMA0,DOZOO EXT BOUSI,SYOBY,HELP0,ESW12,RANEM,ZORAS,NOMOS,KINOK EXT SUKAS,MJSY1,JITON,ESW04,ZORA2,MEDUS,UTUWA,UTUBK,ARI00,ARI01 EXT JOHBB,MOTAM,YASAN,IWAGO ;-------------- EXT HEIT1 ;-------------- item EXT HART1,RUPYR,RUPYY,RUPYB,BOMB1,BOMB2,BOMB3 EXT TUBO1,TUBO2 EXT YAAA1,YAAA2,YOSEI ;-------------- EXT HART1,PORT1,PORT2 EXT ESET0,ESET1,ESET2 EXT EFAIL,ECACH,EWATR,EBAKU ;=============================================== (zel_endt) ============ EXT EXSTRA,ENEMY2,ENBTON,EFLCHK,ENCLST EXT SINDT2,ZSZNZST,HEICAL,ENIDPS,ENMDST,OOTSUC2 ;=============================================== (zel_main) ============ ; EXT DTSAVE EXT GDCHCK,JSRSUB,spoj5 ; 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,DOKAST EXT EATSET,TKDINT EXT YAMOV,TKDOW EXT YAIMIT,ITMCBFST EXT ATMSIT,PLOTCK EXT p2_kage,TRFS EXT mesm1,OTIM,LNMD,OPNG,JMDM EXT WAPMV EXT MNSRIT,MNBBIT EXT WPMSCK ;/////// EXT RDCHCK ;=============================================== (zel_bg3) ============= EXT MTRSUB,ITEM0ST ;=============================================== (grnd) ============= EXT MKDRPLY ;=============================================== (zel_init) ============= EXT p3_msge,MD_endg1 EXT MPBTSET1,ROBJCST ;================================================(enmy4)================= EXT MOTAMMVJ,NMSHJP,HIREST,HBBKST,BARI1MV,NZMZSTL ;================================================(enmy3)================= EXT ENPLATR ;================================================(end2)================= EXT GRNDCHK,SDLRCE,SHBGCK,Z2TMSTL,YASANCS,SDLRE1,SDLRE2,SDLRE3 EXT HELP0CS,BAKU0CS,MONORCS,SINPUCS,OYAGICS ;================================================(char)================= EXT OPTCBFST,THCGCN0,THCGCN1,THCGCN2 ;================================================(endt)================= EXT DEMBMMV EXT GRENST,EST0SB EXT DEMBMST,KEMR1ST,KEMR2ST ;================================================(sub0)================= EXT DIECSET ;================================================(exst)================= EXT BEAM1,BEAM2,BUME1,BOMBM,YAMOV,DTMOV ;;;;,BOMBR EXT DTMV1,DTMV2,OPMOV,WTMV0,HIBA2,SCPMV,DTMV3 EXT RAOPIT,RAOPIT1,ATMSIT,OTIM,SODMV,SNDINT,BOGN,KNSP EXT SPBMV,SPBMINT,KONMV,TPHDIT EXT nashi,prnce,jjmov,jjwat,jjsmv,mesmv,babaa,kajy1 EXT kajya,hnoji ;================================================(?)================= EXT UGGILWT ;================================================(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 ;============================================================= IF2SXL EQU $ IF2SYL EQU $ HEX FC,00,04,08 IF2SXH EQU $ IF2SYH EQU $ HEX FF,00,00,00 ;===================================================== ICEF2ST EQU $ LDA RNDSET AND #03H TAX LDA >IF2SXL,X STA IF2SXH,X STA RNDSET AND #03H TAX LDA >IF2SXL,X STA IF2SYH,X STA E2MODE,X BEQ IF2S20 DEX BPL IF2S10 ; INX ;- - - - - - - - - - - - - - - - - - - - - - IF2S20 EQU $ LDA #12H STA >E2MODE,X STA EN2FLG ; LDA ENXPSL,Y CLC ADC E2XPSL,X LDA ENXPSH,Y ADC E2XPSH,X LDA ENYPSL,Y ; ZPSL:10H CLC ADC E2YPSL,X LDA ENYPSH,Y ADC E2YPSH,X ; TYA STA >E2STAT,X LDA #0FH STA >E2TIM0,X ; TXY PLX IF2S30 EQU $ RTL ;============================================================= ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% Big motos tama % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MOTAMM EQU $ JSL >MOTAMMVJ RTS ;================================================= ;================================================= ;================================================= ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HODXSD EQU $ HEX 00,00 ;;,F0,10 HODYSD EQU $ HEX ED,13 ;,00,00 HODPTD EQU $ HEX 00,00,02,02 HODMKD EQU $ HEX 40,00,00,80 ; HODIRM EQU $ HODILM EQU $ HODIDM EQU $ HODIUM EQU $ LDY ENMUKI,X LDA ENTIM2,X CMP #01H LDA HODPTD,Y ADC #00H STA ENCHPT,X ; LDA ENCLOR,X AND #10111111B ORA HODMKD,Y STA ENCLOR,X ; JSL >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 #07H JSL >SDLRE3 ;(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 ENMDST ; LDA RNDSET STA ENCONT,X DEX BNE YAS010 PLX INC ENNOCR,X ; LDA >ARWCNT STA HEMODE,X ; Ya cont save !! ; PLB RTL ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% YASANM EQU $ LDA HEMODE,X STA >ARWCNT ; Ya not dec ! ; LDA ENWRK0,X JSL >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 ; JSL >YASANCS JSR ENSTCK ; LDA #00000000B STA ENMOD3,X JSL >CRENPL2L BCC YS0210 ; JSL >PLOTCK ;PL. POS. recover STZ DASCLR1 ; YS0210 EQU $ LDA ENTIM0,X BEQ YS0010 AND #07H BNE YS00F2 ; ;; JSL >SDLRCE ;; ORA #21H ;; STA SOUND2 ;(S) ; LDA #11H JSL >SDLRE2 ;(S) YS00F2 EQU $ LDA ENTIM0,X 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 #0020 MEM8 SEP #00100000B BCC YS0070 ; Have money ? ; ; yes ! STZ ENKBMK,X STZ YAHTCT ; 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 STZ ENTIM0,X RTS ;------------------------------------------- YS0070 EQU $ STZ ENSTAT,X ; No ! ; LDA #MS_0132 ; shibakuzoo !!!!!!! ;; LDA #MS_0133 ; shibakuzoo !!!!!!! BRA YSMSST ;------------------------------------------- ;-- YA count display -- YS0090 EQU $ LDA ENKBMK,X BNE YD0000 ; LDA #05H STA YAAACT ; count set ! ; LDA #02H JSL >DOKAST ;; STA DOKATA ; Muriyari YA select ! ; LDA #27H STA ENTIM1,X ; ;; LDA #05H ;; STA >UPAWCT ;Main ya count inc ! ; MEM16 REP #20H LDA >CONCNT SEC SBC #0020 STA >CONCNT MEM8 SEP #20H ; ;; LDA #20 ;; STA >DWCNCT ; coin -20 ; INC ENKBMK,X YD0000 EQU $ LDA #0DH*4 JSL >OAMENT1 JSR OAMCHK ; LDY YAAACT STY CRENPL2L BCC YDC020 ; LDA OCHECKL ;; ; JSR OAMCHK ; LDA ENCHPT,X ; ASL A ; ADC ENCHPT,X ; STA ALOMCKL ;; ; JSL >SADWSTL ; RTS ;======================================================== TKATCT EQU $ BYTE 04,08,16,32,64,99,99,99,99,99 ;; BYTE 02,04,08,12,20,30,40,50,60,70 ;; BYTE 10,20,30,40,50,60,70,80,90 ; ;=====atari tako================================================ TAKOSMV EQU $ LDA ENCTCT,X CMP #05H BCC TAKM01 ; 5 kai renzoku ? ; ; yes ! '99' LDA #06H STA ENWRK1,X TAKM01 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 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 !! ; LDA ENYP2L CLC ADC #03H STA ENYP2L ; JSL >EN1CSTL HDM000 EQU $ ; JSR ENSTCK ; LDA ENTUTM,X DEC A BNE HDM001 ; LDA #3CH STA SOUND2 ;(S) HDM001 EQU $ INC ENCONT,X JSR ENXCLC ; LDA ENTIM1,X BNE HDM010 LDA ENTIM0,X STA ENNOCR,X BNE HDM020 ; ;; JSL >ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK 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 ; LDY ENKBMK,X LDA ENMODE,Y CMP #EFAIL BNE ARM018 ; STA ENMODE,X LDA ENTIM0,Y STA ENTIM0,X ; LDA ENMOD0,X CLC ADC #04H STA ENMOD0,X RTS ; ARM018 EQU $ ; ;;; ;; 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 ORA ENCTCT,X ORA Z2TMSTL 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 01,41,00,40 HEX 01,01,00,40 HEX 01,01,01,01 HEX 01,01,01,01 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 ENSTAT,X BEQ ARMC90 ; ;; 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 WORD ATARS03 ;MONSYO WORD ATARS04 ;HIKARI 1' ;---------------------------------------- ATARS00 EQU $ LDA GNDTBL,X PLX AND #01000000B BEQ ATARS10 JMP ATRM08 ; already have ? ATARS10 EQU $ ; ; no LDA ENSTAT,X CMP #005H BEQ ATARS20 JSR ATARSCS ;---------------------------------------;tottemo ii ?------------ ATARS20 EQU $ ; JSR ENSTCK ; scroll : not return ! LDA ENSTAT,X JSL >JSRSUB WORD ATARSM0 WORD ATARSM00 WORD ATARSM1 WORD ATARSM2 WORD ATARSM3 WORD ATARSM4 ;---------------------------------------- ATARSM0 EQU $ JSL >WPMSCK BCS ATRM010 ; JSL >CRENPL2L BCC ATRM010 ; LDA ITEMR53 ; PENDANT AND #007H CMP #007H BNE ATRM010 ; LDA #00AH ;OTO STA SOUND0 ;// 03.09.16 // STA SVSND0 ; LDA #001H STA MRTKFG ; LDA #009H JSR MONSYST ;MONSYO SET LDA #00BH JSR MONSYST ;MONSYO SET LDA #00FH JSR MONSYST ;MONSYO SET ; JSR HIKA1ST2 INC ENSTAT,X LDA #0F0H STA ENTIM0,X ; ATRM010 EQU $ RTS ;---------------------------------------- ATARSM00 EQU $ LDA ENTIM0,X BNE ATSM0010 JSR HIKA1ST INC ENSTAT,X LDA #0C0H STA ENTIM0,X ATSM0010 EQU $ LDA #00AH STA HIKUFG LDA #001H STA PYALSP 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 STZ !ITMVFG JSL >ATMSIT ; jyaaan ! PLX LDA #005H ;MAP MODE STA >MODTBL2 STZ HIKUFG ; STZ PYALSP INC ENSTAT,X ATRM10 EQU $ RTS ;---------------------------------------- ATARSM4 EQU $ ;GET ; LDA #OTIM ;PL. TIME SET ; STA OPMTIM ; LDA #mesm1 ; STA >OPMODE+0 ; ATRM08 EQU $ STZ ENMODE,X ; 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 ; JSR ENSTCK ; scroll : not return ! ; INC ENWRK0,X LDA ENWRK0,X BNE ATA0110 INC ENWRK2,X 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 ;---------------------------------------- ATARS04 EQU $ JSR HIKA1CS ; INC ENWRK0,X LDA ENWRK0,X BNE ATA0410 INC ENWRK2,X STZ ENMODE,X ATA0410 EQU $ LSR A LSR A AND #003H STA ENMUKI,X LDA #000H STA ENCHPT,X 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 #1*4 JSL >OAMENT3 ; LDA ENCHPT,X ASL A ASL A ADC ENMUKI,X ASL A ASL A ASL A ADC #LOW HIKA1CD STA SETOAML22 ; RTS ;---------------------------------------- HIKA1ST2 EQU $ LDA #ATARS JSL >ENIDSH ; JSL >ENIDPS ; LDA #004H STA ENCONT,Y LDA #005H STA ENCLOR,Y ; LDA #000H STA ENMOD0,Y ;OAM KAZU ; RTS ;---------------------------------------- HIKA1ST EQU $ LDA #ATARS JSL >ENIDSH ; JSL >ENIDPS ; LDA EN1CSTL ; JSR ENSTCK ; scroll : not return ! ; 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 ENIDSH PLA STA ENCLOR,Y ;COLOR SET ; LDA OAMENT2 JSL >EN1CSTL ; JSR ENSTCK ; scroll : not return ! ; LDA ENSTAT,X JSL >JSRSUB WORD AAS03M0 WORD AAS03M1 WORD AAS03M2 ;---------------------------------------- AAS03M0 EQU $ ; JSR ENMVCL ;xclc,yclc ; LDA ENTIM0,X BNE AAS0310 INC ENSTAT,X LDA #0D0H STA ENTIM0,X LDA ENCLOR,X STA ENWRK0,X AAS0310 EQU $ RTS ;---------------------------------------------- AAS03M1 EQU $ LDA ENCLOR,X AND #0F1H STA ENCLOR,X TXA ASL A EOR 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 CRENPLL ; LDA ENSTAT,X BEQ MDSPIN CMP #03H BNE MDSHOT ;- - - - - - - - - - - - - - - - - - - - - MDWAIT EQU $ LDA ENTIM0,X BNE MDW010 INC ENSTAT,X LDA #50H STA ENTIM0,X ;; JSR MBMSET JSL >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) LDA #19H JSL >SDLRE3 ;(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+40H STA ENMOD3,Y LDA #01H STA ENWRK2,Y LDA #01001000B STA ENMOD5,Y ; NOT display out stop ; LDA #02H+1 STA ENCLOR,Y ; LDA #04H STA ENMOD6,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 JSR ENBGCK BEQ MDB010 ; MDB008 EQU $ ;; JSL >SDLRCE ;; ORA #26H ;; STA SOUND3 ;(S) LDA #26H JSL >SDLRE3 ;(S) ; 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 ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK PHA ; LDA #0FFH STA ENYSPD,X STA ENXSPD,X ; ;; JSL >ENBGCKL JSR ENBGCK ; 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 JSR ENBGCK ; LDA ENTIM2,X BEQ SPM010 CMP #0CH/2 ;; 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/2 ;; 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 ASL A STA ENXSPD,X LDA KBMVYS,Y ASL A 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 DEC A STA ENZSPD,X CMP #0F1H BPL TRD020 ; INC ENSTAT,X TRD020 EQU $ RTS ;------------------------------------- TRUP EQU $ LDA ENZSPD,X ;; CLC ;; ADC #02H INC A INC A 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 DEC ENZSPD,X DEC 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 JSR ENBGCK 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 PLOTCK ; JSL >DASHON ; Player dash hanekairi ! SKM007 EQU $ ;; LDA ENSTAT,X PLP ; LDA ENTIM0,X BNE SKM008 ; LDA ENSTAT,X BMI SKM008 BNE SKM010 ; LDA INTEKI ; player Inori !! BNE SKM00C ; ;; LDA PSERCHL LDA ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK BEQ SKM020 LDY ENMUKI,X LDA SKMMKD,Y STA ENMUKI,X SKM020 EQU $ LDA #01H STA PYALSP ; INC ENCONT,X LDA ENCONT,X AND #01H BNE SKM030 ; INC ENCTCT,X LDA ENCTCT,X CMP #82H BNE SKM030 ; Move limit ? ; ; yes ! LDA #80H STA ENSTAT,X ; STZ PYALSP SKM030 EQU $ RTS ;- - - -- - --- - - SKMXSD EQU $ NOMXSD EQU $ RTXL EQU $ RMZSLM EQU $ HEX 10,F0 ;,00,00 SKMYSD EQU $ HEX 00,00,10,F0 SKMMKD EQU $ HEX 3,2,0,1 ;- - - - - - - - - - - - - - - - - - - SEKMVCD EQU $ WORD 0FFF8H,0FFF8H HEX 8E,00,00,02 WORD 00008H,0FFF8H HEX 8E,40,00,02 WORD 0FFF8H,00008H HEX AE,00,00,02 WORD 00008H,00008H HEX AE,40,00,02 ; ;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 ;SKCOMD EQU $ ; WORD OAM+0140H ; WORD OAM+0150H ; WORD OAM+0160H ;; ; WORD OAM+01D0H ; WORD OAM+01E0H ; WORD OAM+01F0H ;SKCSBD EQU $ ; WORD OAMSB+0140H/4 ; WORD OAMSB+0150H/4 ; WORD OAMSB+0160H/4 ;; ; WORD OAMSB+01D0H/4 ; WORD OAMSB+01E0H/4 ; WORD OAMSB+01F0H/4 ; ;- - - - - - - - - - - - - - - - - - - - - - - SEKMVCS EQU $ LDA ENTIM0,X CMP #01H BNE SKC000 ; LDY #1BH STY SOUND3 ; (S) ; LDY #05H STY SOUND1 ; (S) SKC000 EQU $ LSR A AND #01H CLC ADC ENXP2L STA ENXP2L ; ;; LDA ENSTAT,X ;; BNE SKC002 ;;; ;; JSL >OCHECKL ;;; LDY #00H ;;SKC002 EQU $ ;; JSR EPXYCK LDA OAMENT2 SKC003 EQU $ ; PHP ; ; LDA #00H ; XBA ; LDA ENCHPT,X MEM16 REP #20H ; ASL A ; ASL A ; ASL A ;; ; ASL A ; ASL A LDA #SEKMVCD STA SETOAML22 ; ; RTS ;======================================= ;; 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 STZ ENMODE,X RTS ZTM011 EQU $ JSR ENMVCL ;- - - - Hit tate check ---- LDA ENBGCKL ;; LDA ENCBFG,X TXA EOR ITMTBL7 CMP #02H BCC ZTH010 ; tate hi power ? ; ; yes ! LDA ENCRST2 LDA CROJCK2 BCC ZTH010 JSL >EFLSST2 ; STZ ENMODE,X ; ;; INC ENSTAT,X ; ;; JSL >SDLRCE ;; ORA #06H ;; STA SOUND2 ;(S) LDA #06H JSL >SDLRE2 ;(S) ZTH010 EQU $ ;; JSL >CRENPLL RTS ;-------------------------------------------- ;-------------------------------------------- Z2MFFF EQU $ LDA ENSTAT,X BNE Z2M0F8 ; Z2M0F0 EQU $ JSL >OAMCHKL BRA Z2M000 Z2M0F8 EQU $ JSR ZORA2CS Z2M000 EQU $ JSR ENSTCK ; LDA ENSTAT,X BEQ Z2WAIT ;; PHA ;; JSR CREKEK ;; PLA ; DEC A BEQ Z2UPJ DEC A BEQ Z2SHOTB JMP Z2DOWN Z2SHOTB EQU $ JMP Z2SHOT ;; JSL >JSRSUB ;; WORD Z2WAIT ;; WORD Z2UP ;; WORD Z2SHOT ;; WORD Z2DOWN ;; RTS Z2UPJ EQU $ JMP Z2UP ;- - - - - - - - - - - - - - - - - - - - - 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 JSR ENBGCK LDA UNITNO CMP #08H BNE Z2W010 ; mizu in ? ; ; yes ! LDA #7FH STA ENTIM0,X INC ENSTAT,X ; LDA ENMOD2,X ORA #01000000B STA ENMOD2,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 STA ENNOCR,X BNE Z2U010 ; INC ENSTAT,X ; LDA #7FH STA ENTIM0,X ; LDA ENMOD2,X AND #10111111B STA ENMOD2,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 $ JSR CREKEK ; LDA ENTIM0,X BNE Z2S010 INC ENSTAT,X LDA #17H STA ENTIM0,X RTS Z2S010 EQU $ CMP #30H BNE Z2S020 ; tama set ? PHA ; yes ! JSL >Z2TMSTL PLA Z2S020 EQU $ LSR A LSR A LSR A LSR A TAY LDA Z2SHPT,Y STA ENCHPT,X 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 ZBTILT 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 ENTIM0,X ;; STA ENNOCR,X ;; BNE ZBW010 MEM16 REP #20H LDA DASCLR1 ; ; LDA #7FH STA ENTIM0,X ; LDA #35H STA SOUND2 ;(S) ; INC ENSTAT,X ; ;; JSL >RNDSET ;; AND #03H ;; TAY ;; STA ENKBMK,X ;; LDA ZBSTXS,Y ;; STA ENXPSL,X ;; LDA ZBSTYS,Y ;; STA ENYPSL,X ; LDY #ENNO-1 ZBCL10 EQU $ CPY ENINDX BEQ ZBCL20 ; ;; LDA #00H ;; STA ENMODE,Y LDA ENMOD5,Y BMI ZBCL20 ; UTUWA not clear ! ; PHX TYX PHY ; LDA ENMODE,X CMP #ECACH BNE ZBCL18 ; STZ PYDMBT STZ PYDMBT+1 ZBCL18 EQU $ JSL >ENCLER PLY PLX ZBCL20 EQU $ DEY BPL ZBCL10 ; ZBW010 EQU $ MEM8 SEP #20H RTS ;================================================= NZTLDT EQU $ ZS2XAL EQU $ RTXD EQU $ HEX 01,FF ;;; HEX 01,FF ; HEX 00,FF ZBTILT EQU $ LDA ENTIM0,X BNE ZBT010 ; INC ENSTAT,X ; LDA #7FH STA ENTIM0,X ; STZ YUREXD STZ YUREXD+1 ; LDA #04H STA ENCHPT,X ; ;;LDA #05H ;;STA SOUND1 ;(S) RTS ZBT010 EQU $ AND #01H TAY LDA NZTLDT,Y STA YUREXD LDA NZTLDT+2,Y STA YUREXD+1 ; LDA #01H STA PYALSP 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 ;;; MESEGE SET ! ;; PLA ZBS020 EQU $ LSR A LSR A LSR A LSR A TAY LDA ZBSHPT,Y STA ENCHPT,X ; LDA ENTIM0,X CMP #050H BEQ ZBMS00 CMP #04FH BEQ ZBMS01 CMP #04EH BEQ ZBMS08 CMP #04DH BEQ ZBMS10 RTS ;============================================= ZBMS00 EQU $ LDA #MS_04E0 ZBMSST EQU $ STA MSGENOL LDA #01H STA MSGENOH JSL >MSGSET RTS ;============================================= ZBMS01 EQU $ LDA MSG_RTS BNE ZBMS02 ; Yes , no ; ; yes ! LDA #MS_04E1 JSR ZBMSST RTS ; ;============================================= ZBMS08 EQU $ LDA MSG_RTS BNE ZBMS03 ; Yes , no ; MEM16 ; Yes ! REP #00100000B LDA >CONCNT SEC SBC #0500 BCC ZBMS03 ; Have money ? ; STA >CONCNT MEM8 SEP #20H ; LDA #MS_04E2 JSR ZBMSST ; INC ENWRK3,X RTS ; ZBMS02 EQU $ LDA #MS_04E4 ; no JSR ZBMSST LDA #30H STA ENTIM0,X RTS ;- - - - - - - - - - - - - ZBMS03 EQU $ ; Not money MEM8 SEP #00100000B LDA #MS_04E3 JSR ZBMSST LDA #30H STA ENTIM0,X RTS ;============================================= ZBMS10 EQU $ LDA ENWRK3,X BEQ ZBMS20 ; JSL >HIREST ; Item hire set ! ; ZBMS20 EQU $ 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 ENCLER STZ PYALSP ;;;;;;;;; STZ ENSTFG RTS ZBD010 EQU $ CMP #1DH BNE ZBD012 PHA LDA #0FH STA ENTIM2,X JSR MIZUST PLA ZBD012 EQU $ LSR A ; LSR A ; NOP TAY LDA ZBDPTD,Y STA ENCHPT,X RTS ;==================================================== KDFXAD EQU $ HEX F8,FB,04,0D HEX 10,0D,04,FB KDFXAH EQU $ HEX FF,FF,00,00 HEX 00,00,00,FF KDFYAD EQU $ HEX 04,FB,F8,FB HEX 04,0D,10,0D KDFYAH EQU $ HEX 00,FF,FF,FF HEX 00,00,00,00 KDFXSD EQU $ HEX F8,FA,00,06 HEX 08,06,00,FA KDFYSD EQU $ HEX 00,FA,F8,FA HEX 00,06,08,06 ;==================================================== MIZUSTL EQU $ PHB PHK PLB JSR MIZUST PLB RTL ;------------------------------------ MIZUST EQU $ ;; JSL >SDLRCE ;; ORA #24H ;; STA SOUND2 ;(S) LDA #24H JSL >SDLRE2 ;(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 ALOMCKL ; JSR OAMCHK ZB0F00 EQU $ LDA ENTIM2,X BEQ ZBC030 ; mizu shibuki ? ; ; yes ! LSR A AND #00000100B STA OAMENT3 LDY #00H ; PHX LDX #03H ZBC028 EQU $ PHX TXA CLC ADC JSRSUB WORD ZSWAIT WORD ZSJUMP WORD ZSWALK WORD ZSSTOP ;---------------------------------------- ZSWAIT EQU $ JSL >OAMCHKL JSR ENSTCK ; LDA ENTIM0,X BNE ZSW010 ; LDA #7FH STA ENTIM0,X INC ENWRK1,X ; LDA ENMOD2,X ORA #01000000B STA ENMOD2,X ZSW010 EQU $ RTS ;---------------------------------------- ZSJUMP EQU $ JSR ZORA2CS ; mizu uzu set ! ; JSR ENSTCK ; LDA ENTIM0,X STA ENNOCR,X BNE ZSJ010 ; LDA ENMOD2,X AND #10111111B STA ENMOD2,X ; ;; JSL >SDLRCE ;; ORA #28H ;; STA SOUND2 ;(S) LDA #28H JSL >SDLRE2 ;(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 DEC ENZSPD,X DEC 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 JSR ENBGCK ; 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 #28H JSL >SDLRE2 ;(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 $ JSL >MZSUB ; MEM16 REP #00100000B LDA SETOAML22 ; LDY #03H LDA (EFLCHK BCC NMF008 ; All nomos failed ? ; ; yes ! open door ! ;; LDA #01H ;; STA SWCHFG ;; LDA #UTUWA ; Heart utsuwa set ! JSR >ENIDSH JSL >ENIDPS LDA #020H STA ENZSPD,Y ; LDA #01H STA ENWRK0,Y ;; JSL >BSITEM ; ;; LDY #13H ;; STY SOUND0 ;(S) 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 ENMVCL JSR ENZCLC LDA ENZSPD,X SEC SBC #04H STA ENZSPD,X ; LDA ENZPSL,X BPL NOM1F0 ; STZ ENZSPD,X STZ ENZPSL,X ; LDA NMFLCT CMP #01H BEQ NOM110 ; LDA ENWRK0,X BEQ NOM110 ; LDA #30H STA ENZSPD,X ; ;; JSL >SDLRCE ;; ORA #21H ;; STA SOUND2 ;(S) LDA #16H JSL >SDLRE3 ;(S) ; NOM110 EQU $ ;; JSR H0SDCL NOM1F0 EQU $ LDA ENHNFG,X BEQ NOM1F8 ; JSR H0SDCL ; STZ ENSTAT,X STZ ENCTCT,X NOM1F8 EQU $ JSR ENHNSB ; LDA ENWRK0,X BNE NOM100 ; LDA ENTIM0,X BNE NOM000 ; INC ENWRK0,X ; LDA ENMOD0,X AND #01111111B DEC A DEC A ; OAM-08H STA ENMOD0,X ; LDA ENMOD5,X AND #11111011B STA ENMOD5,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 BNE NOM001 ; LDY #35H STY SOUND2 ;(S) NOM001 EQU $ BCS NOM010 ; LSR A EOR ENINDX AND #01H TAY LDA NOMXSD,Y STA ENXSPD,X JSR ENXCLC STZ ENXSPD,X NOM010 EQU $ JSL >CRKNENL JSL >CRENPL2L BCC NOM020 ;; MEM16 ;; REP #00100000B ;;; ;; LDA PLSVX1 ;; STA PLOTCK ; JSL >DASHON ; Player dash hanekairi ! NOM020 EQU $ RTS ;- - - - - - - - - - - - - - - - - - -- - NOM100 EQU $ LDA NMFLCT CMP #01H BEQ NOM300 ; JSR CREKEK ; LDA ENSTAT,X BNE NOM200 ; ;======Serch the way================================================ JSR NMSERC JSL >PSSAVE2 MEM16 REP #20H LDA NMSHJP RTS ; ;====================================================== NMSERC EQU $ LDA PTBFXL,X STA ESERCHL LDA 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 RMSTIM,X STA ENTIM0,X LDA #0FFH STA ENZPSL,X ; PHX LDY #3FH LDA >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 $ ;; STZ ENDSPL,X JSL >OAMCHKL ; 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 ORA ENDSPL,X BNE RMI010 ; LDA #7FH STA ENTIM0,X INC ENSTAT,X ; LDA #35H JSL >SDLRE2 ;(S) 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 RMS0A0 ; JSL >RNTAMST ; LDA #13H STA SOUND1 ;(S) ;; LDA #02H ;; JSL >SDLRE3 :(S) ; 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 RNTAMST ;;RMS0B0 EQU $ RTS ; ;===================================================== RMZSAD EQU $ HEX 02,FE ;;RMZSLM EQU $ ;; HEX 10,F0 ;--------------------------------- ;- - - - - - - - - - - - - - - - - - - - - - - - - RMGOO EQU $ JSR CREKEK JSR ENZCLC ;-- jump ! -- LDA ENCTFG,X BNE RMG000 ; LDA ENZSPD,X SEC SBC #01H STA ENZSPD,X BNE RMG002 INC ENCTFG,X RMG002 EQU $ BRA RMG008 ;- - up down swing ! - - - RMG000 EQU $ LDA 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 ;; CPY #020H BNE RMF000 ; ;; STZ BSFLFG ; ;; 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 RMFF00 ; All ENEMY failed ? ; LDA #UTUWA ; Heart utsuwa set ! JSR >ENIDSH JSL >ENIDPS LDA #020H STA ENZSPD,Y ;; LDA #01H ; Open door ! ;; STA SWCHFG ;;; ;; JSR BOSAVE ; LDA #03H STA ENWRK0,Y RMFF00 EQU $ ;; JSL >BSITEM ;;; ;; LDY #13H ;; STY SOUND0 ;(S) RMF000 EQU $ LDA ENTIM0,X ;; TYA CMP #20H ;* BCC RMF0902 ;* ;; BNE RMF0111 ;; STZ ENMODE,X ;; RTS RMF0111 EQU $ CMP #80H+20H BCS RMF0902 ; AND #0FH BNE RMF0902 ;== 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 BMI RMF090 ; LDA #spoj5 STA SPOJFG ; OBJ bank set ! ;; LDA #EBAKU ;; LDA #EFAIL STA ENMODE,Y ; ;; LDA #09H ;; STA ENTIM0,Y ; LDA #1FH STA ENTIM0,Y STA ENWRK0,Y ; LDA SDLRCE ;; ORA #0CH ;; STA SOUND2 ;(S) LDA #0CH JSL >SDLRE2 ;(S) ;=== LDA >RMCONT,X ; 1 ko zotsu kesu ! BMI RMF090 DEC A STA >RMCONT,X RMF090 EQU $ RTS ;----------------------------------------- ;----------------------------------------- ;========================================================================= RMIDDT EQU $ HEX 00,40,80,C0 MNINST EQU $ HEX 00,1C MNINAD EQU $ HEX 01,F9 ; 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 ;- - - - - - - - - - - - - - - - - - - - - - RNOMID EQU $ WORD OAM+0130H WORD OAM+00F0H WORD OAM+00B0H WORD OAM+0070H RNSBID EQU $ WORD OAMSB+0130H/4 WORD OAMSB+00F0H/4 WORD OAMSB+00B0H/4 WORD OAMSB+0070H/4 RANEMCS EQU $ TXA ASL A TAY MEM16 REP #20H LDA RNOMID,Y ; Kotei OAM set ! 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 BPL MNM04A RTS ; MNM04A EQU $ PHX 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 JSR ENBGCK ; 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) LDA #17H JSL >SDLRE3 ;(S) ; NZWK08 EQU $ 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 JSR ENBGCK ; LDA ENSTAT,X BNE HBWALK ; ;; WORD HBSTOP ;; WORD HBWALK ;---------------------------------------- ; HBSTOP EQU $ JSR H0SDCL ; LDA ENTIM0,X BNE HBST10 ; STZ ENCTCT,X JSL >RNDSET PHA AND #03H STA ENMUKI,X ; INC ENSTAT,X ; PLA AND #7FH ADC #040H ;; LDA #80H STA ENTIM0,X ; JSR EPXYCK LDA CRENPLL ;;; JSL >CRKNENL ; JSR CREKEK ;; ; TXA ; ASL A ; EOR ALOMCKL ; RTS ;=============================================== KOITMK EQU $ HEX 02,0A,06,0E ; KOMO0M EQU $ LDA ENFLCL,X ORA #30H STA ENFLCL,X ; JSL >EN1CSTL ; JSR ENSTCK ; JSR ENHNSB ; ;; JSL >CRKNENL ;; JSL >CRENPLL JSR CREKEK ; JSR ENMVCL ; LDA ENSTAT,X BNE KOMOVE KOSTOP EQU $ TXA EOR SDLRCE ;; ORA #1EH ;; STA SOUND3 ;(S) LDA #1EH JSL >SDLRE3 ;(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 ; LDA ENTIM0,X CMP #1EH BNE TTM008 ; PHA JSL >KEMRIST PLA ; TTM008 EQU $ CMP #00H BNE TTM010 ; ;; JSL >ENBGCKL ; ;; LDA ENCBFG,X JSR ENBGCK BEQ TTM010 ; STZ ENMODE,X ; LDA ENXPSL,X CLC ADC #04H STA ENXPSL,X LDA ENYPSL,X CLC ADC #04H STA ENYPSL,X JSL >EFLSST2 ; ;; JSL >SDLRCE ;; ORA #05H ;; STA SOUND2 ;(S) LDA #05H JSL >SDLRE2 ;(S) TTM010 EQU $ ; CREKEK EQU $ JSL >CRKNENL JSL >CRENPLL ; RTS ; ;===================================================== KEMRIST EQU $ PHX TXY ; LDX #E2NO-1 KMRS10 EQU $ LDA >E2MODE,X BEQ KMRS20 DEX BPL KMRS10 ; ;; PLX INX ;; RTL ;- - - - - - - - - - - - - - - - - - - - - - KMRS20 EQU $ LDA #0AH STA >E2MODE,X STA EN2FLG ; LDA ENXPSL,Y STA >E2XPSL,X LDA ENXPSH,Y STA >E2XPSH,X LDA ENYPSL,Y CLC ADC #10H STA >E2YPSL,X LDA ENYPSH,Y ADC #00H STA >E2YPSH,X ; ;; LDA ENFLCL,Y ;; AND #00110000B LDA ENKAIF,Y STA >E2STAT,X ; LDA #0FH STA >E2TIM0,X ; TXY PLX RTL ;;===================================================== ;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 #07H JSL >SDLRE3 ;(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 >GDTRPF BNE HYUUU50 ; LDA EN1CSTL HYUUU70 EQU $ ; JSR ENSTCK ; scroll : not return ! ; LDA WPMSCK BCS HYUUU80 ; ; LDA CRENPL2L ;PL BODY ATARI? BCC HYUUU10 LDA ENWRK0,X BEQ HYUUU40 ; ;GET !! LDA MRTKFG ORA PYFLASH ORA PYALSP BNE HYUUU40 ; LDA CRKNKNL ; ;; LDA CRKNKNL ; LDY ENSTAT,X LDA TKSPIN-2,Y CLC ADC ENWRK0,X STA ENWRK0,X LDA ENWRK1,X ADC #00H AND #01H STA ENWRK1,X ; JSR ENHNSB ; ;; JSL >ENBGCKL JSR ENBGCK JSR ENMVCL ; 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) LDA #06H JSL >SDLRE3 ;(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 ;=================== EAEAEA EQU $ HEX EA,EA,EA,EA RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% 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 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 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 JSR ENBGCK 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 84,88,88,88 HEX 86,88,88,88 T1CADT EQU $ HEX 00,00,C0,80 ;- - - - - - - - - - - - - - - - - - - TAMA1CS EQU $ JSR OAMCHK ; LDA ENCHPT,X ASL A ASL A STA SDLRE2 ;(S) DOM002 EQU $ MEM8 SEP #20H ; JSL >CRENPL2L BCC DOM010 ;; MEM16 ;; REP #00100000B ;;; ;; LDA PLSVX1 ;; STA PLOTCK ; JSL >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 ENHNSB ; JSR ENMVCL ; ;; JSL >ENBGCKL JSR ENBGCK ; LDA ENTIM0,X ORA ENZPSL,X BNE DOM110 ; LDA #08H STA ENTIM0,X LDA #10H STA ENZSPD,X ; LDA #08H+4 JSL >PSERCHL DOM110 EQU $ RTS ;----------------------- ;DOCSYD EQU $ ; WORD 0FFF0H,00H ;DOCSCD EQU $ ; HEX C0,E0 ;- - - - -- - - - - - DOZOOCD EQU $ WORD 0,0FFF0H HEX C0,00,00,02 WORD 0,000H HEX E0,00,00,02 ; DOZOOCS EQU $ ;; LDA #0F0H ;; JSL >OOTSUC2 ; LDA ENSTAT,X BNE DOCS10 ; JSR OAMCHK DOCS10 EQU $ MEM16 REP #20H LDA #DOZOOCD STA SETOAML22 JSL >SADWSTL RTS ; ; 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 CMP #02H BCS SNM002 ; JSL >OAMCHKL BRA SNM010 ; SNM002 EQU $ 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,0,0,0,0,0,0 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 CREKEK ; JSR ENMVCL RTS ;-------------------------- SNEND EQU $ LDA ENTIM0,X BNE SNE010 STZ ENSTAT,X LDA #10H 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 >USFAILL RTS ; ; 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 JSR ENBGCK ; 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 ; ; ; ; ; ;-----Tekkyu 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 ; LDA ENMYNO,Y CMP #HINO0 BEQ CIE090 ; PHX TYX PHY LDA #08H ;Bomb ! JSL >ENDMST3 PLY PLX LDA ENXPSL,X STA ESERCHL PLY LDA EN1CSTL ; BB0009 EQU $ LDA ENFLSH,X BNE BB0011 ; LDA ENTIM1,X CMP #40H BCS BOMBF0 ; CMP #01H BNE BOMBE0 ; Bakuhatsu time ? ; ; yes ! BB0011 EQU $ STZ ENFLSH,X ; LDA ENMODE,X CMP #ECACH BNE BB1112 ; Cached ? ; ; yes ! STZ PYDMBT1 ; cach reset ! STZ PYDMBT ; cach reset ! ; BB1112 EQU $ ;; JSL >SDLRCE ;; ORA #0CH ;; STA SOUND2 ;(S) LDA #0CH JSL >SDLRE2 ;(S) ; INC ENWRK2,X ; LDA #09H STA ENMOD3,X ; LDA #02H STA ENCLOR,X ; LDA #20H-1 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 ; BOMB0FF EQU $ ;;;;;; JSL >CACHCKL ; JSR ENMVCL ; LDA 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 JSR CREKEK ; ;; 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) LDA #13H JSL >SDLRE3 ;(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 LDA #0AH JSL >SADWS2L RTS ;; JMP HESWST ;;; 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 $ ;; BRA QWQW ;;; ;; LDA ENFLCL,X ; AND #0F0H ; STA ENFLCL,X ; JSL >EN1CSSL ; LDY #02H ; LDA #029H ; STA (CRKNENL ; BCC WEE ;; ; LDA #0CH ; STA ENCLOR,X ;WEE EQU $ ; RTS ; ;QWQW 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 #CTBOS BNE HA0201 ; Machi boss serch ? ; ; yes ! MEM16 REP #00100000B LDA ENXP2L SEC SBC 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 $ HA2777 EQU $ LDA ENWRK2,X DEC A PHX TAX ; LDA ENSTAT,X CMP #03H BEQ HA0278 ; LDA #03H STA ENSTAT,X ; go atack ! ; LDA ENMYNO,X CMP #CTBOS BEQ HA0278 ; 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 ! CMP #04H BCC H00000 ; For Obj SEKZ4 hane ! ;; BCC HFFFF ; For Obj SEKZ4 hane ! ; 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 $ ; LDA ENHNFG,X ; BPL HBKS00 ;; ; STA ENBGCKL JSR ENBGCK ; 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 JSR ENBGCK ; 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) LDA #04H JSL >SDLRE3 ;(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 $ JSL >ENSDMV ; ATWKPS EQU $ INC ENCONT,X JSR H0WKPS H0AT50 EQU $ RTS ;- - - - HOATTX EQU $ HEX 0E,F2 ;;,00,00 HOATTY EQU $ HEX 00,00,0E,F2 ;- - - - -- - -- - -- ENSDMV EQU $ PHB PHK PLB ; 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 $ PLB RTL ; 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 HESW10 EQU $ 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 CRKNKNL JSR ENHNSB ; JSR HEMVCL ;; JSR ENMVCL ;; JSL >ENBGCKL JSR ENBGCK ; 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 ; ;===================================================== HESDST EQU $ LDA ENCTCT,X CMP #10H BEQ H3M000 ; INC ENCTCT,X CMP #0FH BNE H3M000 ; ;; JSL >SDLRCE ;; ORA #04H ;; STA SOUND3 ;(S) LDA #04H JSL >SDLRE3 ;(S) ; ;; LDA ENCLOR,X ;; CMP #00001011B ; LDA >MODTBL0 CMP #02H BNE H3M000 ; LDA GRNDNO CMP #18H BNE H3M000 ; HELP0 called City ? ; ; yes ! LDA #0CH STA SOUND0 ;(S) ; BGM set ;// 03.09.16 // STA SVSND0 ; Save ! H3M000 EQU $ RTS ;======================================= HEIS2M EQU $ JSR HEIS2CS ; ; LDA ENMODE,X ; CMP #EHOLE ; BNE H3M012 ; Ochiru sunzen ? ; ; yes ! ;;; JSR ATWKPS ;; JMP ATWKPS ; x2 ; JSR H2WK10 ; JMP H2WK10 ; H3M012 EQU $ JSR ENSTCK ; JSR HESDST ; JSL >CRKNKNL JSR ENHNSB ; JSR HEMVCL ;; JSR ENMVCL ;; JSL >ENBGCKL JSR ENBGCK ; 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 00FH,007H WORD 011H,009H ; WORD 0FFF8H,000H WORD 0FFF6H,0FFFEH ; 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 00AH,002H ; WORD 0FFF2H,0FFFAH WORD 0FFF0H,0FFF8H 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 LDA ENWRK0,X BRA H2W012 ;- - - - - - - - - - - - - H2WPCS EQU $ ;; LDA ENCONT,X LDA ENWRK0,X LDY #00H H2W012 EQU $ EOR #01H ASL A AND #02H STA ENBGCKL ;L JSR ENBGCK ; ;; 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 BEQ HY0000 CMP #04H BCC HY0000 ; SEKZ4 hane ? ; ; no ! JSR HYGOAT HY0000 EQU $ JSR ENHNSB ;- - - JSR HEMVCL ;; JSL >ENBGCKL JSR ENBGCK ; ; 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 AND #0FH BNE Y0W020 INC ENWRK0,X LDA ENWRK0,X CMP #02H ;; 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) LDA #05H JSL >SDLRE3 ;(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 HEHDCS ; head set ;; 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 $ JMP 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 #01H STA ENNOCR,X ; 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 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 JSL >CRKNENL ; 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 ; ; ; ; ;=========================================== HYWPID EQU $ BYTE 00H,00H,00H ;,10H HYHDID EQU $ BYTE 10H,10H,10H,00H HYBDID EQU $ BYTE 14H,14H,14H,04H ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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 00DH,04DH,008H,008H BYTE 00DH,04DH,008H,008H BYTE 00DH,04DH,04DH,04DH ; BYTE 00DH,08DH,048H,048H BYTE 00DH,08DH,048H,048H BYTE 00DH,08DH,08DH,08DH ; BYTE 08DH,0CDH,088H,088H BYTE 08DH,0CDH,088H,088H BYTE 08DH,0CDH,0CDH,0CDH ; BYTE 04DH,0CDH,008H,008H BYTE 04DH,0CDH,008H,008H BYTE 04DH,0CDH,0CDH,0CDH ;----------------------------------------------------------- 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 SETOAML22 ;; ; JSL >SADWSTL ; RTS ;;---------------------------------------- BARIFF EQU $ JSL >BARI1MV RTS ; 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 CRKNENL ; LDA GRNDNO CMP #1BH BNE BRM002 ; LDA #MS_0230 LDY ENYPSL,X CPY #50H BEQ BRM0011 ; LDA #MS_0231 CPY #90H BNE BRM002 ; BRM0011 EQU $ LDY #HIGH MS_0231 JSL >MSGCHK BRA BRM00E ;- - - - - - - - - - - - - - - - - - - - - - BRM002 EQU $ LDA BRMSCT ; MESEGE COUNTER ! PHA CLC ADC #MS_0020 LDY #HIGH MS_0020 JSL >MSGCHK PLA BCC BRM00C ; MSG set ? INC A ; yes ! CMP #05H+1+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 LDA #0CH JSL >SADWS2L 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 JSL >DASHON ; STZ SDLRCE ;; ORA #22H ;; STA SOUND2 ;(S) LDA #22H JSL >SDLRE2 ;(S) CRS3RT EQU $ LDA ENYPSL,X SEC SBC #15H STA OCHECKL ; LDY ENCHPT,X LDA E3CHPT,Y TAY LDA E3CYRV,Y STA ALOMCKL RTS ;======================== E4CCDT EQU $ BYTE 0A2H,0A4H ; 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 JSL >DASHON ; STZ SDLRCE ;; ORA #22H ;; STA SOUND2 ;(S) LDA #22H JSL >SDLRE2 ;(S) CRSWRT EQU $ S2PLDW EQU $ LDA ENYPSL,X CLC ADC #09H STA MODTBL0 CMP #003H BCC OYAGI90_I LDA >MODTBL1 ORA #002H STA >MODTBL1 OYAGI90_I EQU $ ; LDA >MODTBL1 AND #002H BEQ OYAGI60_I ;? SINDA ; ;Y STZ ENMODE,X ;KILL I RTS ; OYAGI60_I EQU $ LDA #001H ;SINPU NO STA ENWRK3,X ; LDA ENMOD0,X ;OAM NO KAZU AND #0F0H ORA #002H STA ENMOD0,X ; LDA #003H ;OBJ HANI STA ENMOD3,X ; LDA >ITMTBL6 CMP #002 BCC OYAGI70_I ; LDA #004H ;TAORETER SINPU STA ENMUKI,X STZ ENCHPT,X ; ; LDA #003H ;OBJ HANI ; STA ENMOD3,X ; LDA #000H BRA OYAGI20_I ; OYAGI70_I EQU $ JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X STA ENMUKI,X ; LDA >OPMODE CMP #prnce BNE OYAGI10_I ;? ONNANOKO(HELP0) O TURETERU LDA >MODTBL1 ORA #004H ; DOOR MOVE & ONNANOKO HELP FLG(SAVE) STA >MODTBL1 LDA >GNDTBL+01BH ORA #020H STA >GNDTBL+01BH LDA #0AAH STA ENTIM0,X ;INIT STOP TIME LDA #001H BRA OYAGI20_I ; OYAGI10_I EQU $ LDA #002H ;INIT MODE 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 ; 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 ;; STZ ENCONT,X ; LDA ENXPSL,X CLC ADC #008H STA ENXPSL,X ;; LDA ENXPSH,X ;; ADC #000H ;; STA ENXPSH,X ; ;; LDA #000H ;; STZ ENMUKI,X RTS ; OYAGI40_I EQU $ LDA >MODTBL1 ;PL. not SLEEP AND #001H BNE OYAGI50_I ; LDA #003H STA ENMUKI,X LSR A ;; LDA #001H STA ENCONT,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 ENWRK3,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 LDA #18H JSL >SDLRE3 ;(S) ; 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 LDA #04H*4 JSL >OAMENT2 KDICS10 EQU $ LDA #04H JMP SETO22 ;; JSL >SETOAML22 ;OAM SET ;;; ;; RTS ;---------------------------------------- ENMKIST EQU $ ; ENMUKI : NOW MUKI ; ENCMKI : NEW MUKI ; ; ; ; LDA ENMUKI,X CMP ENCMKI,X BEQ ENMKST1 ; LDA SINPUCS SINPU20 EQU $ JSR ENSTCK ; scroll : not return ! ; JSL >ENPLATR ; LDA ENMOD3,X ; PHA ; LDA #000H ; STA ENMOD3,X ; JSL >CRENPL2L ; BCC SINPU10 ; PHX ; JSL >PLOTCK ;PL. POS. recover ; STZ DASCLR1 ; PLX SINPU10 EQU $ ; PLA ; STA ENMOD3,X ; JSL >ENMKIST ;MUKI SET JSR ENMVCL ; xclc,yclc ! ; LDA ENCONT,X JSL >JSRSUB WORD SINPUF1 ; DEMO 1(sinpu down) WORD SINPUF2 ; DEMO 2(onna move) WORD SINPUF3 ; DEMO 3(onna NARABI) ;---------------------------------------- SINPUF1 EQU $ LDA #004H STA ENCMKI,X STA ENMUKI,X ; LDA ENSTAT,X JSL >JSRSUB WORD SNPF1M0 ; WAIT & MSGE WORD SNPF1M1 WORD SNPF1M2 ;---------------------------------------- SNPF1M0 EQU $ LDA #LOW MS_0037 ;MSGE NO SET LDY #HIGH MS_0037 ;MSGE NO SET JSL >ENMSGEL ;MSGE SET BCC SP1M010 INC ENSTAT,X INC ENCHPT,X LDA >MODTBL1 ORA #002H STA >MODTBL1 LDA #06AH ;#080H STA ENTIM2,X SP1M010 EQU $ RTS ;---------------------------------------- SNPF1M1 EQU $ STZ ENCHPT,X ; LDA ENTIM2,X BNE SP1M110 INC ENSTAT,X SP1M110 EQU $ LDA SDLRCE ;; ORA #033H ;; STA SOUND2 LDA #33H JSL >SDLRE2 ;(S) ; SP1M120 EQU $ RTS ;---------------------------------------- SNPF1M2 EQU $ STZ ENMODE,X 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) ; LDA #02DH ;OTO ; JSL >SDLRE3 ; 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 STZ PYALSP ;MOVE PL. RTS SF2M210 EQU $ LDA #001H ; STA ENSTAT,X RTS ;---------------------------------------- SNPF2M3 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 SP2M310 ; STA ENMUKI,X ;MUKI SET STA ENCMKI,X ; SP2M310 EQU $ RTS ;---------------------------------------- SP3M0ML EQU $ BYTE LOW MS_0032 BYTE LOW MS_0035 BYTE LOW MS_0036 SP3M0MH EQU $ BYTE HIGH MS_0032 BYTE HIGH MS_0035 BYTE HIGH MS_0036 ; SINPUF3 EQU $ JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X ; SNPF3M0 EQU $ LDY #000H ; SF3M010 EQU $ LDA >ITEMR53 AND #007H CMP #007H BNE SF3M020 LDY #002H BRA SF3M030 ; SF3M020 EQU $ LDA >MODTBL2 CMP #003H BCC SF3M030 LDY #001H ; SF3M030 EQU $ LDA SP3M0ML,Y XBA LDA SP3M0MH,Y TAY XBA JSL >ENMSGEL ;MSGE SET BCC SF3M040 ; STA ENMUKI,X ;MUKI SET STA ENCMKI,X ; LDA #0A0H STA >UPLFCT ; SF3M040 EQU $ RTS ;---------------------------------------- ; OYAGI MOVE ;---------------------------------------- OYAGISX EQU $ BYTE 000,000,-12,012 OYAGISY EQU $ BYTE -12,012,000,000 OYAGI00 EQU $ JSL >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 #003H ;OTO STA SOUND0 ;// 03.09.16 // STA SVSND0 ; 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 BNE OYG0320 LDA ENYPSL,X SEC SBC #002H STA ENYPSL,X OYG0320 EQU $ 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 STZ !ITMVFG 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 ;---------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% SETOAML % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ; OCHECKL STOAMCK2 EQU $ ;JSR OAMCHK JSR OAMCHK ;BCC --> OK ; PHP ; STZ EICECKF STZ EICECKF+1 ; LDA ENMODE,X CMP #ECACH BNE STOCKF ; LDA >ENCAMD,X STOCKF EQU $ CMP #EICE BNE STOCK0 ; LDA >ENICMD,X ;; LDA ENWRK2,X STA EICECKF ; 0:Stop 1:Ice ; STOCK0 EQU $ PLP 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 $ JSL >ENPLATR ;PL. EN. ATARI SET NOPPO20 EQU $ 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 ! JSR ENBGCK ; 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 ; JSL >SADWSTL RTS ;---------------------------------------- ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% ENMSGE % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ; EMGELPM EQU $ BYTE 4,6,0,2 ENMSGEL EQU $ ;PUSH DO BOTON ; STA !MSGENOL ;msge no set(test) STY !MSGENOH JSL >CRENPL2L BCC ENMSG10 ; JSL >WPMSCK BCS ENMSG10 ; LDA EMGELPM,X PLX CMP ENMSGSL ;MSGE SET ; LDA #040H ;TIME SET STA ENTIM3,X ; PLA ;pl muki set 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 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 DASCLR1 STZ EN1CSTL JSL >OAMCHKL JSR ENSTCK ; scroll : not return ! JSL >WPMSCK BCS PLHIK20 ; JSL >CRENPL2L BCC PLHIK10 LDA #001H STA ATHKOK ; LDA #001H STA ENWRK0,X ;ATARI RTS PLHIK10 EQU $ LDA ENWRK0,X ;ATARI BEQ PLHIK20 STZ ATHKOK ;CLS LDA PYDMBT AND #001H BEQ PLHIK20 STZ ENMODE,X ; STZ ENWRK0,X JSL >HIMITU JSL >KEMRIST PLHIK20 EQU $ RTS ;======================================== ; PLHIN MOVE ;======================================== PLHINMV EQU $ PHB PHK PLB JSR PLHIN00 PLB RTL ;---------------------------------------- PLHIN00 EQU $ ; LDA #030H ; STA ENFLCL,X ; JSL >EN1CSTL JSL >OAMCHKL JSR ENSTCK ; scroll : not return ! JSL >WPMSCK BCS PLHIN20 ; JSL >CRENPL2L BCC PLHIN10 LDA #001H STA ATHKOK ; LDA #001H STA ENWRK0,X ;ATARI RTS PLHIN10 EQU $ LDA ENWRK0,X ;ATARI BEQ PLHIN20 STZ ATHKOK ;CLS LDA PYDMBT AND #001H BEQ PLHIN20 LDA #01FH ;OTO JSL >SDLRE2 PHX JSL >UGGILWT PLX JSR BAKU0ST LDA ENXPSL,X STA ENXPSL,Y LDA ENXPSH,X STA ENXPSH,Y LDA ENYPSL,X STA ENYPSL,Y LDA ENYPSH,X STA ENYPSH,Y STZ ENMODE,X PLHIN20 EQU $ RTS ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% ONNAA move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;ONNAAIT EQU $ ; goto BABA1IT ;---------------------------------------- ONNAAMV EQU $ PHB PHK PLB JSR ONNAA00 PLB RTL ONNAA00 EQU $ LDA ENSTAT,X CMP #002 BCS ONNAA10 JSR ONNAACS ONNAA10 EQU $ JMP YOKO_MV ; goto BABA1MV ; ; ; JSR ENSTCK ; scroll : not return ! ;; ; LDA #LOW MS_0000 ; MSGE NO. SET ; LYA #HIGH MS_0000 ; MSGE NO. SET ; JSL >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,-0008 ;0 BYTE 026H,000H,000H,002H WORD 00000,00000 BYTE 0E8H,000H,000H,002H WORD 00000,-0007 BYTE 026H,000H,000H,002H WORD 00000,00001 BYTE 0E8H,040H,000H,002H ; WORD 00000,-0008 ;1 BYTE 024H,000H,000H,002H WORD 00000,00000 BYTE 0C2H,000H,000H,002H WORD 00000,-0007 BYTE 024H,000H,000H,002H WORD 00000,00001 BYTE 0C2H,040H,000H,002H ; WORD 00000,-0008 ;2 BYTE 028H,000H,000H,002H WORD 00000,00000 BYTE 0E4H,000H,000H,002H WORD 00000,-0007 BYTE 028H,000H,000H,002H WORD 00000,00001 BYTE 0E6H,000H,000H,002H ; WORD 00000,-0008 ;3 BYTE 028H,040H,000H,002H WORD 00000,00000 BYTE 0E4H,040H,000H,002H WORD 00000,-0007 BYTE 028H,040H,000H,002H WORD 00000,00001 BYTE 0E6H,040H,000H,002H ; ONNAACS EQU $ LDA #002H STA SETOAML ; JSL >SADWSTL RTS ;-------------------------------------- ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% HIGEE move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;HIGEEIT EQU $ ; goto BABA1IT ;-------------------------------------- HIGEEML EQU $ BYTE LOW MS_05D0 BYTE LOW MS_05D1 HIGEEMH EQU $ BYTE HIGH MS_05D0 BYTE HIGH MS_05D1 ; HIGEEMV EQU $ PHB PHK PLB JSR HIGEE00 PLB RTL HIGEE00 EQU $ JSR HIGEECS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR ;PL. EN. ATARI SET ; LDA >ITEMR23 TAY LDA HIGEEML,Y XBA LDA HIGEEMH,Y TAY XBA JSL >ENMSGEL ; MEGE ? RTS ;-------------------------------------- HIGEECD EQU $ WORD 00000,-0008 ;1 BYTE 0C4H,000H,000H,002H WORD 00000,00000 BYTE 0CAH,000H,000H,002H ; HIGEECS EQU $ LDA #002H STA SETOAML ; JSL >SADWSTL RTS ;---------------------------------------- ;;;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,-0008 ;0 ;;; BYTE 0C6H,000H,000H,002H ;;; WORD 00000,00000 ;;; BYTE 0EEH,000H,000H,002H ;;; WORD 00000,-0007 ;;; BYTE 0C6H,000H,000H,002H ;;; WORD 00000,00001 ;;; BYTE 0EEH,040H,000H,002H ;;;; ;;; WORD 00000,-0008 ;1 ;;; BYTE 0C4H,000H,000H,002H ;;; WORD 00000,00000 ;;; BYTE 0CAH,000H,000H,002H ;;; WORD 00000,-0007 ;;; BYTE 0C4H,000H,000H,002H ;;; WORD 00000,00001 ;;; BYTE 0CAH,040H,000H,002H ;;;; ;;; WORD 00000,-0008 ;2 ;;; BYTE 0C8H,000H,000H,002H ;;; WORD 00000,00000 ;;; BYTE 0CCH,000H,000H,002H ;;; WORD 00000,-0007 ;;; BYTE 0C8H,000H,000H,002H ;;; WORD 00000,00001 ;;; BYTE 0CEH,000H,000H,002H ;;;; ;;; WORD 00000,-0008 ;3 ;;; BYTE 0C8H,040H,000H,002H ;;; WORD 00000,00000 ;;; BYTE 0CCH,040H,000H,002H ;;; WORD 00000,-0007 ;;; BYTE 0C8H,040H,000H,002H ;;; WORD 00000,00001 ;;; BYTE 0CEH,040H,000H,002H ;;;; ;;;HIGEECS EQU $ ;;; LDA #002H ;;; STA SETOAML ;;;; ;;; JSL >SADWSTL ;;; RTS ;-------------------------------------- ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% MAJOO move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MAJOOMV EQU $ PHB PHK PLB JSR MAJOO00 PLB RTL MAJOO00 EQU $ JSR MAJOOCS JSR ENSTCK ; scroll : not return ! ; LDA ENMOD3,X PHA LDA #002H STA ENMOD3,X JSL >CRENPL2L BCC MAJOO40 PHX JSL >PLOTCK STZ DASCLR1 PLX MAJOO40 EQU $ PLA STA ENMOD3,X ; LDA RNDSET AND #001H CLC ADC #002H STA ENWRK0,X MAJOO20 EQU $ LDA ENWRK0,X STA WPMSCK BCC MAJOO50 RTS MAJOO50 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD MAJOOF0 WORD MAJOOF1 ;---------------------------------------- MAJOOF1 EQU $ STZ ENSTAT,X ; LDY #018H ;BIN 1 2 3 STZ !ITMVFG 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 >ITEMR05 CMP #002H BNE MJOM010 MJOM020 EQU $ LDA #LOW MS_0090 ;MSGE NO LDY #HIGH MS_0090 ;MSGE NO JSL >ENMSGEL ;MSGE SET RTS MJOM010 EQU $ PHX MEM8 IDX16 REP #00010000B LDX #ROOM_POTION*2 ;ROOM NO * 2 LDA >DJNTBL,X MEM8 IDX8 SEP #00110000B PLX CMP #000H BPL MJOM020 LDA #LOW MS_0091 ;MSGE NO LDY #HIGH MS_0091 ;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 ; MJOM130 EQU $ LDA #LOW MS_0093 ;MSGE NO LDY #HIGH MS_0093 ;MSGE NO JSL >ENMSGEL ;MSGE SET 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 STZ SOUND2 JSL >ITEM0ST ;ITEM PRINT SET PLX ; LDA #LOW MS_0091 ;MSGE NO LDY #HIGH MS_0091 ;MSGE NO JSL >ENMSGSL ;MSGE SET ; ;; JSL >SDLRCE ;OTO ;; ORA #00DH ;; STA SOUND1 LDA #0DH JSL >SDLRE1 ;(S) ; 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,0018,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 ;---------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% KIANA move % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% KIANAMV EQU $ PHB PHK PLB JSR KIANA00 PLB RTL ;---------------------------------------- KIANA00 EQU $ LDA ENWRK1,X BNE KIANA10 ; JSL >OAMCHKL JSR ENSTCK ; scroll : not return ! ; JSR EPXYCK ;pl muki set CPY #002H BNE KIANA10 ; LDA ENCRTM,X CMP #YAMOV ;? YAAA ATARI BNE KIANA10 INC SWCHFG ;Y LDA #001H STA ENWRK1,X ; STZ ENMODE,X ; KIANA10 EQU $ 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 #002H STA ENMUKI,X STA ENCMKI,X ; INC ENNOCR,X ; beem thru ; LDA ENXPSL,X STA ENWRK0,X LDA ENXPSH,X STA ENWRK1,X ; LDA #-009 STA ENXSPD,X 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 HEMODE,X BEQ BA0000 ; JSL >BABACK ; ;;;;; JSL >ENPLATR RTS ; BA0000 EQU $ LDA ENSTAT,X CMP #003 BCS BABA150 JSL >BABA1CS BABA150 EQU $ YOKO_MV EQU $ JSR ENSTCK ; scroll : not return ! LDA ENSTAT,X CMP #003 BCS BABA110 LDA ENMKIST ;MUKI SET ;ROOM IN 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 $ ;ROOM OUT LDA ENSTAT,X BNE BABA160 ; JSL >CRENPL2L BCS BABA120 ; BABA160 EQU $ JSL >ENMKIST ;MUKI SET BCC BABA130 ; JSR ENMVCL ; xclc,yclc ; BABA110 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD BABA1M1 WORD BABA1M0 WORD BABA1M2 WORD BABA1M3 ; ; BABA120 EQU $ JSR EPXYCK ;pl muki set TYA EOR #003H STA ENMUKI,X ; BABA130 EQU $ LDA #001H ; STA ENTIM0,X BRA BABA110 ;---------------------------------------- BB1M1DT EQU $ BYTE 0E0H,020H BB1M1DH EQU $ BYTE 0FFH,000H ; BABA1M1 EQU $ LDA ENTIM0,X BNE BB1M110 ; LDY ENWRK2,X LDA ENWRK0,X CLC ADC BB1M1DT,Y CMP ENXPSL,X BNE BB1M110 LDA ENWRK0,X CLC ADC BB1M1DT,Y LDA ENWRK1,X ADC BB1M1DH,Y CMP ENXPSH,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 ; LDA ENWRK2,X EOR #001H STA ENWRK2,X ; BB1M110 EQU $ TXA EOR ENMSG2L ; MEGE ? TAY PLA STA ENMOD3,X BCC BB1M120 TYA ; STA ENMUKI,X ; PL. miru! ; STA ENCMKI,X ; PL. miru! ; 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 #001H STA PYALSP ;PL. STOP 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 ENMKIST ;MUKI SET JSL >ENPLATR ;PL. EN. ATARI SET ; LDA #0FFH STA HEMODE,X JSR ENBGCK ; LDA ENMOD3,X PHA LDA #007H STA ENMOD3,X JSL >CRENPL2L BCC BOUSI10 LDA ENSTAT,X STA ENWRK2,X ;ENSTAT SAVE LDA #003H ;MSGE MODE STA ENSTAT,X BOUSI10 EQU $ PLA STA ENMOD3,X ; LDA ENSTAT,X JSL >JSRSUB WORD BOUSIM0 WORD BOUSIM1 WORD BOUSIM2 WORD BOUSIM3 ;======================================== BUSISX0 EQU $-2 BYTE -24,024 ; BOUSIM0 EQU $ JSL >ENMKIST ;MUKI SET JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X ; JSL >CRENPL2L BCC BUIM010 ; JSL >DASCLR1 ; JSR EPXYCK ;pl muki set TYA EOR #003H STA ENMUKI,X EOR #001H ORA #002H STA ENCMKI,X TAY AND #001H INC A STA ENSTAT,X ; LDA BUSISX0,Y STA ENXSPD,X ; LDA #020H ;TIME SET STA ENTIM0,X ; RTS ; BUIM010 EQU $ STZ ENXSPD,X STZ ENYSPD,X RTS ;======================================== ;BUIM1TD EQU $ ; BYTE 080H,080H,080H ; ; ; ;BUIM1MD EQU $ ; BYTE 002H,002H,002H ; BYTE 0FFH ; ; ; ; BUIM120 EQU $ BUIM220 EQU $ LDA ENMSGSL ; MEGE ? BCC BUIM310 STA ENMUKI,X BUIM310 EQU $ LDA ENWRK2,X STA ENSTAT,X RTS ;======================================== BOUSIMS EQU $ ;E SET JSL >ASZNZST ;KEMURI SET LDA SETOAML ; JSL >SADWSTL 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 LDA YABAACK JSL >ENPLATR ;PL. EN. ATARI SET ; JSL >WPMSCK BCC SYOBY50 RTS SYOBY50 EQU $ ; 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 ENSTAT,X JSL >JSRSUB WORD SYOBYM0 WORD SYOBYM1 WORD SYOBYM2 WORD SYOBYM3 WORD SYOBYM4 ; SYOBY20 EQU $ LDA #LOW MS_0363 ; MSGE NO. SET LDY #HIGH MS_0363 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? RTS ;---------------------------------------- SYOBYM0 EQU $ LDA ENWRK0,X BNE SOYM010 ; LDA ENWRK3,X BEQ SOYM010 LDA #003H STA ENSTAT,X RTS ; SOYM010 EQU $ LDA >MODTBL4 AND #002H BNE SYOBY20 ; LDA #LOW MS_0360 ; MSGE NO. SET LDY #HIGH MS_0360 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BCC SOBM020 INC ENSTAT,X SOBM020 EQU $ 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 STZ !ITMVFG 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 STZ ENSTAT,X RTS ;---------------------------------------- SYOBYM3 EQU $ LDA ENWRK3,X BMI SOYM310 ; LDA #LOW MS_0364 ; MSGE NO. SET LDY #HIGH MS_0364 ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? INC ENSTAT,X RTS ; ; SOYM310 EQU $ LDA #LOW MS_0365 ; MSGE NO. SET LDY #HIGH MS_0365 ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? INC ENSTAT,X RTS ;---------------------------------------- SYOBYM4 EQU $ LDY ENWRK3,X BMI SOYM410 DEY LDA #000H STA ENMODE,Y JSL >R100 STZ ENWRK3,X STZ ENSTAT,X RTS ; ; SOYM410 EQU $ TYA AND #00FH TAY LDA #000H STA ENMODE,Y JSL >YABAAST STZ ENWRK3,X STZ ENSTAT,X RTS ; ;---------------------------------------- SYOBYCD EQU $ WORD 00000,-0007 BYTE 0ACH,000H,000H,002H WORD 00000,00000 BYTE 088H,000H,000H,002H ; WORD 00000,-0006 BYTE 0ACH,000H,000H,002H WORD 00000,00000 BYTE 0A2H,000H,000H,002H ; SYOBYCS EQU $ LDA #002H STA SETOAML ; JSL >SADWSTL RTS ;-------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% HELP0 move & init % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% HELP0IT EQU $ PHB PHK PLB JSR HELP000_I PLB RTL HELP000_I EQU $ LDA >ITMTBL6 ;? MASTER KATANA CMP #002H BCS HELP015_I ; 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 HELP015_I EQU $ STZ ENMODE,X RTS HELP010_I EQU $ LDA ENYPSL,X ;Y POS HOSEI CLC ADC #00FH STA ENYPSL,X LDA ENYPSH,X ADC #000H STA ENYPSH,X LDA ENXPSL,X CLC ADC #006H STA ENXPSL,X LDA #003H STA ENMOD3,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 AND #003H ; STA ENCMKI,Y ;MUKI SET STA ENMUKI,Y ; LDA OPMODE ;PL. HELP0 CLS LDA ENNOCR,Y ; beem thru INC A STA ENNOCR,Y LDA #003H STA ENMOD3,Y PLX 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 >ENPLATR ;PL. EN. ATARI SET ; 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 ; WORD HP0F0M4 ; ;---------------------------------------- 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 STZ ENXSPD,X STZ ENYSPD,X ; LDA #019H ;OTO STA SOUND0 ;// 03.09.16 // STA SVSND0 ; 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 ; INC ENSTAT,X ; RTS ; H00M210 EQU $ LDA #002H STA ENSTAT,X RTS ;---------------------------------------- HP0F0M4 EQU $ STZ PYALSP ;PL. MOVE OK ; LDA #002H STA >MODTBL3 JSL >DIECSET LDA #prnce ;PL. HELP0 MODE STA >OPMODE ; PHX JSL >MPBTSET1 ; JSL >RAOPIT1 ;PL. OPTION INIT ; JSL >DTSAVE ;DATA SAVE PLX STZ ENMODE,X ;KILL I ; LDA #010H ;OTO STA SOUND0 ;// 03.09.16 // STA SVSND0 ; RTS ;---------------------------------------- HELP0F1 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD HP0F1M0 ;MOVE WORD HP0F1M1 ; WORD HP0F1M2 ; ;---------------------------------------- H0F1M0T EQU $ BYTE 026H,01AH,02CH,001H 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 JSL >DIECSET LDA #002H ;RAIN UP SET STA >MODTBL0 ; PHX JSL >ROBJCST ; JSL >DTSAVE ;DATA SAVE PLX ; RTS ;---------------------------------------- HP0F1M2 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 H01M210 ; STA ENMUKI,X ;MUKI SET STA ENCMKI,X ; H01M210 EQU $ ; RTS ;---------------------------------------- HL0F2ML EQU $ BYTE LOW MS_0042 BYTE LOW MS_004A BYTE LOW MS_004B HL0F2MH EQU $ BYTE HIGH MS_0042 BYTE HIGH MS_004A BYTE HIGH MS_004B ; HELP0F2 EQU $ JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X ; LDY #000H ; HL0F210 EQU $ LDA >ITEMR53 AND #007H CMP #007H BNE HL0F220 LDY #002H BRA HL0F230 ; HL0F220 EQU $ LDA >MODTBL2 CMP #003H BCC HL0F230 LDY #001H ; HL0F230 EQU $ LDA HL0F2ML,Y XBA LDA HL0F2MH,Y TAY XBA JSL >ENMSGEL ;MSGE SET BCC HL0F240 ; STA ENMUKI,X ;MUKI SET STA ENCMKI,X ; LDA #0A0H STA >UPLFCT ; HL0F240 EQU $ RTS ;---------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% KINOK move & init % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% KINOKIT EQU $ PHB PHK PLB JSR KINOK00_I PLB RTL KINOK00_I EQU $ LDA >ITEMR05 CMP #002H BCC KINOK10_I STZ ENMODE,X RTS KINOK10_I EQU $ LDA #000H STA ENCHPT,X ;KINOKO SYURUI(0 - 3) LDA #008H ;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 >WPMSCK BCS KINOK20 ; JSL >CRENPL2L ;? ATRI BCC KINOK10 STZ ENMODE,X ;KILL I PHX LDY #029H ;KINOKO 1 STZ !ITMVFG JSL >ATMSIT ;PL. DEMO SET PLX RTS KINOK10 EQU $ LDA ENCACT,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 % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% UTUBKML EQU $ BYTE LOW MS_0523 BYTE LOW MS_0520 BYTE LOW MS_0521 BYTE LOW MS_0522 ; UTUBKMH EQU $ BYTE HIGH MS_0523 BYTE HIGH MS_0520 BYTE HIGH MS_0521 BYTE HIGH MS_0522 ;-------------------------------------- UTUWAIT EQU $ UTUBKIT EQU $ PHB PHK PLB JSR UTUWA00_I PLB RTL UTUWA00_I EQU $ LDA GNDTBL+03BH AND #00100000B BEQ UTUWA50_I UTUWA60_I EQU $ PHX LDX GNDTBL,X AND #040H BEQ UTUWA30_I PLX UTUWA50_I EQU $ 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 UTUWA40_I EQU $ RTS ;======================================== ;---------------------------------------- UTUWAMV EQU $ PHB PHK PLB JSR UTUWA00 PLB RTL UTUWA00 EQU $ LDA DJNNO CMP #1AH BNE UT00000 ; Last danjyon Not utuwa set ! ; STZ ENMODE,X RTS ;--------------------------------------- UT00000 EQU $ LDA ENCTCT,X STA ENNOCR,X BNE UT0000 ; LDA #03H PHX JSL >ITMCBFST PLX ; ;; LDA ENYPSL,X ;; CLC ;; ADC #10H ;; STA ENYPSL,X ;; LDA ENYPSH,X ;; ADC #00H ;; STA ENYPSH,X ;; LDA #0CH ;; JSL >PSERCHL ; JSL >PSSAVE2 INC ENCTCT,X UT0000 EQU $ LDA ERXYCT CMP #06H BNE UT00001 ; LDA ENZPSL,X BNE UT00001 ; JSL >ASIMZST ; UT00001 EQU $ JSL >EN1CSTL JSR ENSTCK ; scroll : not return ! ; DEC ENZSPD,X DEC ENZSPD,X JSR ENZCLC ;xclc,yclc,zclc ;; JSR ENMVCL ; LDA ENZPSL,X BPL UTUWA30 STZ ENZPSL,X LDA ENZSPD,X EOR #0FFH INC A LSR A LSR A STA ENZSPD,X ; LDA ERXYCT CMP #06H BNE UTUWA30 ; LDA HEMODE,X BNE UTUWA30 ; LDA ENMOD0,X CLC ADC #02H STA ENMOD0,X ; INC HEMODE,X JSL >NZMZSTL ;; STZ ENXSPD,X ;; STZ ENYSPD,X UTUWA30 EQU $ ; JSL >WPMSCK BCC UTUWA20 RTS UTUWA20 EQU $ JSL >CRENPL2L ;? ATRI BCS UTUWA10 RTS ;--------------------------------------- UTUWA40 EQU $ PHX ;PL. DEMO LDA #002H STA ITMVFG LDY #03EH JSL >ATMSIT PLX ; LDA EMYSTT+1 ORA #080H STA EMYSTT+1 RTS ;---------------------------------------- UTUWA10 EQU $ STZ ENMODE,X ;KILL I ; LDA ENWRK0,X BNE UTUWA40 ;BOSS ONRY ; PHX JSL >DASCLR1 LDY #026H STZ !ITMVFG JSL >ATMSIT ;PL. DEMO SET PLX ; 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 ;--------------------------------------- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% UTUBK move & init % ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% UTUBKMV EQU $ PHB PHK PLB JSR UTUBK00 PLB RTL ;---------------------------------------- ; UTUBK00 EQU $ LDA ENSTAT,X BNE UTUBK50 INC ENSTAT,X JSR UTUWA00_I LDA ENMODE,X BEQ UTUBK20 UTUBK50 EQU $ JSL >EN1CSTL JSR ENSTCK ; scroll : not return ! ; JSL >WPMSCK BCS UTUBK20 ; JSR ENBGCK LDA ENCBFG,X AND #003H BEQ UTUBK80 LDA ENXSPD,X EOR #0FFH INC A STA ENXSPD,X UTUBK80 EQU $ ; DEC ENZSPD,X JSR ENZCLC ;xclc,yclc,zclc JSR ENMVCL ; LDA ENZPSL,X BPL UTUBK60 STZ ENZPSL,X LDA ENZSPD,X EOR #0FFH AND #0F8H LSR A STA ENZSPD,X LDA ENXSPD,X BEQ UTUBK60 CMP #07FH ROR A STA ENXSPD,X CMP #0FFH BNE UTUBK60 INC ENXSPD,X UTUBK60 EQU $ LDA ENTIM3,X BNE UTUBK20 JSL >CRENPL2L ;? ATRI BCS UTUBK10 UTUBK20 EQU $ RTS UTUBK10 EQU $ LDA >ITEMR44 INC A AND #003H STA >ITEMR44 BNE UTUBK30 ; ;Y PHX JSL >DASCLR1 LDY #026H STZ !ITMVFG JSL >ATMSIT ;PL. DEMO SET PLX BRA UTUBK40 ; UTUBK30 EQU $ ;; JSL >SDLRCE ;; ORA #02DH ;OTO ;; STA SOUND3 LDA #02DH JSL >SDLRE3 ;(S) ; LDA >ITEMR44 TAY LDA UTUBKML,Y XBA LDA UTUBKMH,Y TAY XBA JSL >ENMSGSL ; MEGE ? ; UTUBK40 EQU $ STZ ENMODE,X ;KILL I ; LDA ENPLATR ;PL. EN. ATARI SET ; LDA ENCONT,X JSL >JSRSUB WORD JITON00 ;SAHASRARA WORD JITON01 ;AJIMNA ; ;---------------------------------------- JITON01 EQU $ LDA >MODTBL1 AND #020H BEQ JITO150 ; LDA >ITMTBL6 CMP #002H BCC JITO130 LDA #LOW MS_0483 ; MSGE NO. SET LDY #HIGH MS_0483 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BRA JITO120 JITO130 EQU $ LDA >ITEMR53 AND #007H CMP #007H BNE JITO140 LDA #LOW MS_0481 ; MSGE NO. SET LDY #HIGH MS_0481 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BRA JITO120 JITO140 EQU $ AND #002H CMP #002H BNE JITO160 LDA #LOW MS_0484 ; MSGE NO. SET LDY #HIGH MS_0484 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BRA JITO120 JITO160 EQU $ LDA >ITEMR15 BEQ JITO150 LDA #LOW MS_0482 ; MSGE NO. SET LDY #HIGH MS_0482 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BRA JITO120 JITO150 EQU $ LDA #LOW MS_0480 ; MSGE NO. SET LDY #HIGH MS_0480 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? LDA >MODTBL1 ORA #020H STA >MODTBL1 JITO120 EQU $ JMP JITON10 ;; BRA JITON10 ; ;---------------------------------------- JITON00 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD JITONM0 WORD JITONM1 WORD JITONM2 WORD JITONM3 ;---------------------------------------- JTN20ML EQU $ BYTE LOW MS_007A,LOW MS_0079 JTN20MH EQU $ BYTE HIGH MS_007A,HIGH MS_0079 ; JITONM0 EQU $ LDA >ITEMR53 AND #004H BNE JITON20 LDA #LOW MS_0073 ; MSGE NO. SET LDY #HIGH MS_0073 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BCC JITON28 INC ENSTAT,X JITON28 EQU $ BRA JITON10 JITON20 EQU $ LDA >ITEMR22 BNE JITON30 LDA >MODTBL2 CMP #003H ROL A AND #001H TAY LDA JTN20ML,Y ; MSGE NO. SET XBA LDA JTN20MH,Y TAY XBA JSL >ENMSGEL ; MEGE ? BCC JITON38 INC ENSTAT,X INC ENSTAT,X JITON38 EQU $ BRA JITON10 JITON30 EQU $ LDA >ITEMR07 BNE JITON40 LDA #LOW MS_0078 ; MSGE NO. SET LDY #HIGH MS_0078 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BRA JITON10 JITON40 EQU $ LDA >ITEMR53 AND #007H CMP #007H BEQ JITON50 LDA #LOW MS_0075 ; MSGE NO. SET LDY #HIGH MS_0075 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BRA JITON10 JITON50 EQU $ LDA >ITMTBL6 CMP #002 BCS JITON60 LDA #LOW MS_0071 ; MSGE NO. SET LDY #HIGH MS_0071 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BRA JITON10 JITON60 EQU $ LDA #LOW MS_0072 ; MSGE NO. SET LDY #HIGH MS_0072 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? ; JITON10 EQU $ LDA ENMSGSL ; MEGE ? STZ ENSTAT,X LDA #003H ;MAP MODE STA >MODTBL2 RTS ;--------------------------------------- JITONM2 EQU $ LDY #04BH ;KUTU SET STZ ITMVFG JSL >ATMSIT INC ENSTAT,X LDA #003H ;MAP MODE STA >MODTBL2 RTS ;--------------------------------------- JITONM3 EQU $ LDA #LOW MS_0078 ; MSGE NO. SET LDY #HIGH MS_0078 ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? STZ ENSTAT,X RTS ;--------------------------------------- JITONCD EQU $ WORD 00000,-0009 BYTE 0A0H,000H,000H,002H WORD 00000,00000 BYTE 0A2H,000H,000H,002H ; WORD 00000,-0008 BYTE 0A0H,000H,000H,002H WORD 00000,00000 BYTE 0A4H,040H,000H,002H ; JITONCS EQU $ LDA #002H STA SETOAML ; JSL >SADWSTL 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 $ JSL >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 #0000FH SEC SBC #00008H CLC ADC ENIDPS ; LDA #001H STA ENCONT,Y ; BK0ST10 EQU $ RTS ;---------------------------------------- MONOR00 EQU $ JSL >MONORCS JSR ENSTCK ; scroll : not return ! ; LDA AITMBT1 ;GISYO READ CLS AND #0DFH STA AITMBT1 ; STZ ENWRK0,X JSL >CRENPL2L BCC MONOR10 JSL >PLOTCK ;PL. POS. recover STZ DASHON INC ENWRK0,X ; MONOR10 EQU $ JSL >WPMSCK BCC MONOR20 RTS ; MONOR20 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 ITMTBL6 CMP #002H BNE MORM090 RTS MORM090 EQU $ LDA GETITM0 CMP #015 BNE MORM0A0 ; LDY #001H LDA ITMTBL6 BMI MORM0C0 CMP #002H BCC MORM0C0 INC ENSTAT,X ;MASTER KATANA USE JSL >MNBBIT LDA #040H STA ENTIM0,X MORM0C0 EQU $ LDA MONOR1L,Y XBA LDA MONOR1H,Y TAY XBA ; JSL >ENMSGSL ; MEGE ? ; MORM080 EQU $ RTS ;----------------------------------------THANDER MORM0F0 EQU $ LDA ITMTBL6 CMP #002H BNE MORM020 RTS MORM020 EQU $ LDA GETITM0 CMP #015 BNE MORM030 ; LDY #001H LDA ITMTBL6 BMI MORM050 CMP #002H BCC MORM050 INC ENSTAT,X ;MASTER KATANA USE JSL >MNSRIT LDA #040H STA ENTIM0,X MORM050 EQU $ LDA MONORML,Y XBA LDA MONORMH,Y TAY XBA ; JSL >ENMSGSL ; MEGE ? ; MORM010 EQU $ RTS ;--------------------------------------- MONORM1 EQU $ LDA ENTIM0,X BNE MNRM110 ; 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 ENPLATR ;PL. EN. ATARI SET ; LDA ENSTAT,X JSL >JSRSUB WORD JOHBBM0 WORD JOHBBM1 WORD JOHBBM2 WORD JOHBBM3 ;---------------------------------------- JOHBBM0 EQU $ LDA >ITMTBL6 CMP #002H BCS JOHBB40 ;? MASTER KATANA GET ; ;N LDA #LOW MS_0050 ; MSGE NO. SET LDY #HIGH MS_0050 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BCC JOHBB10 INC ENSTAT,X ; JOHBB10 EQU $ ; LDA ENMSGEL ; MEGE ? BRA JOHBB10 ;--------------------------------------- JOHBBM1 EQU $ LDA #LOW MS_0051 ; MSGE NO. SET LDY #HIGH MS_0051 ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? INC ENSTAT,X RTS ;--------------------------------------- JOHBBM2 EQU $ LDA MSG_RTS BNE JHBM210 INC ENSTAT,X LDA #LOW MS_0052 ; MSGE NO. SET LDY #HIGH MS_0052 ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? RTS ; JHBM210 EQU $ LDA #LOW MS_0051 ; MSGE NO. SET LDY #HIGH MS_0051 ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? RTS ;--------------------------------------- JOHBBM3 EQU $ LDA #LOW MS_0052 ; MSGE NO. SET LDY #HIGH MS_0052 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? ; BRA JOHBB10 ;--------------------------------------- JOHBBCD EQU $ WORD 00000,-0005 BYTE 08EH,000H,000H,002H WORD 00000,00005 BYTE 028H,000H,000H,002H ; WORD 00000,-0004 BYTE 08EH,000H,000H,002H WORD 00000,00005 BYTE 028H,040H,000H,002H ; JOHBBCS EQU $ LDA #002H STA SETOAML ; ; JSL >SADWSTL 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 SCLSFG BEQ PN1ST10 ; 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 #000H STA ENYPSL,Y LDA ENYPSH,X SBC #000H STA ENYPSH,Y ; LDA ENXPSL,X ;X POS SET SEC SBC #010H 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 JMP PN1ST20 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 #048H STA ENYPSL,Y LDA ENYPSH,X SBC #000H STA ENYPSH,Y ; LDA ENXPSL,X ;X POS SET SEC SBC #028H 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 JMP PN2ST20 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 #048H STA ENYPSL,Y LDA ENYPSH,X SBC #000H STA ENYPSH,Y ; LDA ENXPSL,X ;X POS SET CLC ADC #008H 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 JMP PN3ST20 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 #048H STA ENYPSL,Y LDA ENYPSH,X SBC #000H STA ENYPSH,Y ; LDA ENXPSL,X ;X POS SET SEC SBC #058H STA ENXPSL,Y LDA ENXPSH,X SBC #000H STA ENXPSH,Y ; ; LDA #001H ; STA ENNOCR,Y ;beem thru PN1ST20 EQU $ PN2ST20 EQU $ PN3ST20 EQU $ 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 0000 ;NEDAN POTN1F0 EQU $ ;POTION 1 JSR POTN1CS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR ; JSL >CRENPL2L ;? ATRI BCC PN1F010 ; LDA DASCLR1 LDY #00DH ;KONA STZ !ITMVFG JSL >ATMSIT ;PL. DEMO SET PLX STZ ENMODE,X ;KILL I PN1F010 EQU $ RTS ;--------------------------------------- POTN1CD EQU $ WORD 00000,00000 ;TUBO BYTE 0E6H,004H,000H,002H WORD 00000,00000 ;TUBO BYTE 0E6H,004H,000H,002H ; POTN1CS EQU $ LDA #002H STA SETOAML ; RTS ;======================================== POTN2_YEN EQU 0060 ;NEDAN POTN2F0 EQU $ ;POTION 2 JSR POTN2CS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR ; LDA ENTIM0,X BNE PN2F010 ; JSR POTONBN BCS PN2F020 LDA #LOW MS_00A2 ; MSGE NO. SET LDY #HIGH MS_00A2 ; MSGE NO. SET JSL >ENMSG2L ; MEGE ? BCC PN2F010 JSR PTITBUT ;ITEM NOT USE PN2F010 EQU $ RTS ; PN2F020 EQU $ JSL >CRENPL2L ;? ATRI BCC PN2F030 ; LDA CONCNT CMP #POTN2_YEN ;NEDAN MEM8 SEP #00110000B BCC PN2F050 ;? OKANE ARU ; ;Y JSL >BINCHKL BMI PN2F040 LDA #1DH JSL >SDLRE3 ;(S) LDA #040H STA ENTIM0,X ;NEXT STOP TIME MEM16 REP #00100000B LDA >CONCNT ;OKANE HIKU SEC SBC #POTN2_YEN STA >CONCNT MEM8 SEP #00110000B LDY #02FH ;GREEN POTION STZ !ITMVFG JSL >ATMSIT ;PL. DEMO SET ; PN2F030 EQU $ RTS PN2F040 EQU $ LDA #LOW MS_00A3 ; MSGE NO. SET LDY #HIGH MS_00A3 ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? JMP PTITBUT ;ITEM NOT USE PN2F050 EQU $ JMP KANENAS ;KANE NASI ;--------------------------------------- POTN2CD EQU $ WORD 00000,00000 ;TUBO BYTE 0C0H,008H,000H,002H WORD 00008,00018 ;0 BYTE 030H,00AH,000H,000H WORD -0001,00018 ;6 BYTE 022H,00AH,000H,000H ; POTN2CS EQU $ LDA #003H STA SETOAML ; RTS ;======================================== POTN3_YEN EQU 0160 ;NEDAN POTN3F0 EQU $ ;POTION 3 JSR POTN3CS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR ; LDA ENTIM0,X BNE PN3F010 ; JSR POTONBN BCS PN3F020 LDA #LOW MS_00A2 ; MSGE NO. SET LDY #HIGH MS_00A2 ; MSGE NO. SET JSL >ENMSG2L ; MEGE ? BCC PN3F010 JSR PTITBUT ;ITEM NOT USE PN3F010 EQU $ RTS ; PN3F020 EQU $ JSL >CRENPL2L ;? ATRI BCC PN3F030 ; LDA CONCNT CMP #POTN3_YEN ;NEDAN MEM8 SEP #00110000B BCC PN3F050 ;? OKANE ARU ; ;Y JSL >BINCHKL BMI PN3F040 LDA #1DH JSL >SDLRE3 ;(S) LDA #040H STA ENTIM0,X ;NEXT STOP TIME MEM16 REP #00100000B LDA >CONCNT ;OKANE HIKU SEC SBC #POTN3_YEN STA >CONCNT MEM8 SEP #00110000B LDY #030H ;BLUE POTION STZ !ITMVFG JSL >ATMSIT ;PL. DEMO SET ; PN3F030 EQU $ RTS PN3F040 EQU $ LDA #LOW MS_00A3 ; MSGE NO. SET LDY #HIGH MS_00A3 ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? JMP PTITBUT ;ITEM NOT USE PN3F050 EQU $ JMP KANENAS ;KANE NASI ;--------------------------------------- POTN3CD EQU $ WORD 00000,00000 ;TUBO BYTE 0C0H,004H,000H,002H WORD 00013,00018 ;0 BYTE 030H,00AH,000H,000H WORD 00005,00018 ;6 BYTE 022H,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 ! JSL >ENPLATR ; LDA ENTIM0,X BNE PN4F010 ; JSR POTONBN BCS PN4F020 LDA #LOW MS_00A2 ; MSGE NO. SET LDY #HIGH MS_00A2 ; MSGE NO. SET JSL >ENMSG2L ; MEGE ? BCC PN4F010 JSR PTITBUT ;ITEM NOT USE PN4F010 EQU $ RTS ; PN4F020 EQU $ JSL >CRENPL2L ;? ATRI BCC PN4F030 ; LDA CONCNT CMP #POTN4_YEN ;NEDAN MEM8 SEP #00110000B BCC PN4F050 ;? OKANE ARU ; ;Y JSL >BINCHKL BMI PN4F040 LDA #1DH JSL >SDLRE3 ;(S) LDA #040H STA ENTIM0,X ;NEXT STOP TIME MEM16 REP #00100000B LDA >CONCNT ;OKANE HIKU SEC SBC #POTN4_YEN STA >CONCNT MEM8 SEP #00110000B LDY #02EH ;RED POTION STZ !ITMVFG JSL >ATMSIT ;PL. DEMO SET ; PN4F030 EQU $ RTS PN4F040 EQU $ LDA #LOW MS_00A3 ; MSGE NO. SET LDY #HIGH MS_00A3 ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? BRA PTITBUT ;ITEM NOT USE PN4F050 EQU $ KANENAS EQU $ LDA #LOW MS_05B6 ;MSGE NO OKANE NASI LDY #HIGH MS_05B6 ;MSGE NO JSL >ENMSGSL ;MSGE SET ;--------------------------------------- PTITBUT EQU $ ;ITEM NOT USE LDA #03CH JSL >SDLRE2 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 ;======================================== POTONBN EQU $ LDA >BINCT0 ORA >BINCT1 ORA >BINCT2 ORA >BINCT3 CMP #002H RTS ;======================================== MJSY1F0 EQU $ ;MJSY1 JSL >MJSY1CS JSR ENSTCK ; scroll : not return ! JSL >ENPLATR JSL >WPMSCK BCS MJ1F020 ; LDA ENSTAT,X BEQ MJ1F040 LDA #0A0H STA >UPLFCT STZ ENSTAT,X MJ1F040 EQU $ 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 SCLSFG ;SCROL FLG BEQ MJ1F010 ; LDA #LOW MS_00A0 ; MSGE NO. SET LDY #HIGH MS_00A0 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? MJ1F030 EQU $ BCC MJ1F020 INC ENSTAT,X MJ1F020 EQU $ RTS ; MJ1F010 EQU $ LDA #LOW MS_00A1 ; MSGE NO. SET LDY #HIGH MS_00A1 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BRA MJ1F030 ;--------------------------------------- MJSY1CD EQU $ WORD 00000,-0008 BYTE 000H,00CH,000H,002H WORD 00000,00000 BYTE 010H,00CH,000H,002H ; WORD 00000,-0008 BYTE 000H,00CH,000H,002H WORD 00000,00000 BYTE 010H,04CH,000H,002H ; MJSY1CS EQU $ PHB PHK PLB LDA #002H STA SETOAML ; JSL >SADWSTL PLB RTL ;-------------------------------------- ;--------------------------------------- ;--------------------------------------- ;--------------------------------------- ;--------------------------------------- EPXYCK EQU $ JSL >EPXYCK2 RTS ;- - - - - - - - - - ;; JSR EPXCHK ;; STY EPXCHK2 RTS ;- - - - - - - - ;; LDY #00H ;; LDA EPYCHK2 RTS ;;;- - - - - - - - ;; LDY #00H ;; LDA ENBGCKL ;; LDA ENCBFG,X JSR ENBGCK AND #00001111B BEQ ENHB10 ; CMP #00000100B BCS ENHB01 ; STZ ENHNXS,X STZ ENXSPD,X BRA ENHB02 ENHB01 EQU $ STZ ENHNYS,X STZ ENYSPD,X ENHB02 EQU $ ; LDA ENXSPD,X ; BPL ENHB01 ; EOR #0FFH ; INC A ;ENHB01 EQU $ ; STA 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 STY 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 PLOTCK PLP ; STZ DASHFG STZ 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 CMP #001H BCS 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 ;; JSL >SDLRCE ;OTO ;; ORA #00DH ;; STA SOUND1 LDA #0DH JSL >SDLRE1 ;(S) ; 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 ;---------------------------------------- DMNM1DT EQU $ BYTE 0F8H,007H 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 LDA ENWRK0,X AND #001H TAY LDA DMNM1DT,Y CLC ADC ENXSPD,X 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 MPLVFG JSL >ITEM0ST RTS DMNM310 EQU $ CMP #010H BNE DMNM320 STA CGFLTM DMNM320 EQU $ RTS ;---------------------------------------- DEMONM4 EQU $ JSL >KEMR2ST ;KEMURI SET STZ ENMODE,X ;KILL I STZ PYALSP ;PL. MOVE RTS ;---------------------------------------- BOOK0MV EQU $ PHB PHK PLB JSR BOOK000 PLB RTL ;---------------------------------------- BOOK000 EQU $ LDA ENCHPT,X JSL >JSRSUB WORD BOOK0BK WORD KAGI0KI WORD KIIIIMV ;---------------------------------------- KAGI0KI EQU $ ; LDA ENSTAT,X ; BNE KAGI030 ; JSL >EN1CSSL ; BRA KAGI040 KAGI030 EQU $ JSL >EN12CSL KAGI040 EQU $ JSR ENSTCK ; scroll : not return ! ; JSL >CRENPL2L ;? ATRI BCC KAGI020 LDA #003H STA ENSTAT,X KAGI020 EQU $ JSR ENMVCL ;xclc,yclc ; DEC ENZSPD,X DEC ENZSPD,X JSR ENZCLC ;zclc LDA ENZPSL,X BPL KAGI010 STZ ENYSPD,X STZ ENZPSL,X LDA ENZSPD,X EOR #0FFH INC A LSR A LSR A STA ENZSPD,X AND #0FEH BEQ KAGI010 ;; JSL >SDLRCE ;OTO ;; ORA #014H ;; STA SOUND3 LDA #14H JSL >SDLRE3 ;(S) ; KAGI010 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD KAGI0M0 ;TANA WORD BOOK0M1 ;DOWN INIT WORD BOOK0M2 ;DOWN WORD KAGI0M3 ;TORU ;---------------------------------------- KAGI0M0 EQU $ MEM16 IDX8 REP #00100000B ; LDA ENXP2L SEC SBC ITMTBL9 ;KAGI GET INC A STA >ITMTBL9 STZ ENMODE,X ;KILL I ; LDA KAGIFG,X TAY LDA EMYSTT+1 ;SAVE RAM SET ORA KG0M3DT,Y STA EMYSTT+1 ; ;; JSL >SDLRCE ;; ORA #02FH ;OTO ;; STA SOUND3 LDA #2FH JSL >SDLRE3 ;(S) RTS ;---------------------------------------- BOOK0BK EQU $ JSL >EN1CSTL JSR ENSTCK ; scroll : not return ! ; JSL >CRENPL2L ;? ATRI BCC BOOK020 LDA #003H STA ENSTAT,X BOOK020 EQU $ JSR ENMVCL ;xclc,yclc ; DEC ENZSPD,X DEC ENZSPD,X JSR ENZCLC ;zclc LDA ENZPSL,X BPL BOOK010 STZ ENYSPD,X STZ ENZPSL,X LDA ENZSPD,X EOR #0FFH INC A LSR A LSR A STA ENZSPD,X AND #0FEH BEQ BOOK010 ; ;; JSL >SDLRCE ;OTO ;; ORA #021H ;; STA SOUND2 LDA #21H JSL >SDLRE2 ;(S) ; BOOK010 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD BOOK0M0 ;TANA WORD BOOK0M1 ;DOWN INIT WORD BOOK0M2 ;DOWN WORD BOOK0M3 ;TORU ;---------------------------------------- BOOK0M0 EQU $ LDA PLMKCH BNE BO0M010 ; MEM16 IDX8 REP #00100000B ; LDA ENXP2L SEC SBC DASCLR1 LDY #01DH STZ !ITMVFG JSL >ATMSIT PLX STZ ENMODE,X ;KILL I ; RTS ;---------------------------------------- KIIIIMV EQU $ LDA #08FH STA ENMOD0,X LDA #047H STA ENMOD3,X JSR KIIIICS JSR ENSTCK ; scroll : not return ! ; JSL >CRENPL2L BCC KIIII20 PHX JSL >PLOTCK ;PL. POS. recover STZ DASHON PLX KIIII20 EQU $ ; JSR ENMVCL ;xclc,yclc DEC ENZSPD,X JSR ENZCLC ;zclc LDA ENZPSL,X BPL KIIII10 STZ ENZPSL,X LDA ENZSPD,X EOR #0FFH INC A LSR A LSR A STA ENZSPD,X KIIII10 EQU $ LDA ENSTAT,X JSL >JSRSUB WORD KIIIIM0 WORD KIIIIM1 WORD KIIIIM2 ;---------------------------------------- KIIIIM0 EQU $ STZ ENCONT,X MEM16 IDX8 REP #00100000B LDA ENXP2L SEC SBC SDLRCE ;OTO ;; ORA #01BH ;; STA SOUND3 ; KIIM010 EQU $ MEM8 IDX8 SEP #00110000B RTS ;---------------------------------------- KIIIIM1 EQU $ LDA ENZPSL,X ;BOUND BNE KIIM110 INC ENSTAT,X LDA #1BH STA SOUND3 ;OTO LDA #0FCH STA ENXSPD,X STA ENYSPD,X ; JSR KIIIIST LDA #005H STA ENXSPD,Y STA ENYSPD,Y ; JSR KIIIIST LDA #005H STA ENXSPD,Y LDA #0FCH STA ENYSPD,Y ; JSR KIIIIST LDA #0FCH STA ENXSPD,Y LDA #004H STA ENYSPD,Y ; KIIM110 EQU $ RTS ;---------------------------------------- KIIIIM2 EQU $ ;KUZURERU LDA ENTIM0,X BNE KIIM210 LDA #008H STA ENTIM0,X LDA ENCONT,X CMP #006H BNE KIIM220 STZ ENMODE,X KIIM220 EQU $ INC ENCONT,X KIIM210 EQU $ RTS ;---------------------------------------- KIS10DT EQU $ BYTE 000H,031H , 002H,031H , 002H,071H , 000H,071H BYTE 020H,031H , 022H,031H , 022H,071H , 020H,071H BYTE 004H,031H , 006H,031H , 006H,071H , 004H,071H BYTE 024H,031H , 026H,031H , 026H,071H , 024H,071H ; KIS80PX EQU $ BYTE 010 BYTE 022 BYTE 030 BYTE 001 BYTE 034 BYTE 005 BYTE 013 BYTE 029 BYTE 000 BYTE 017 BYTE 027 BYTE 044 BYTE 015 BYTE 033 BYTE 018 BYTE 026 KIS80PY EQU $ BYTE 000 BYTE 004 BYTE 002 BYTE 007 BYTE 010 BYTE 016 BYTE 024 BYTE 023 BYTE 034 BYTE 035 BYTE 030 BYTE 031 BYTE 046 BYTE 042 BYTE 010 BYTE 011 KIS80CD EQU $ BYTE 008H BYTE 008H BYTE 028H BYTE 028H BYTE 02AH BYTE 02AH KIS80AD EQU $ BYTE 031H BYTE 071H BYTE 031H BYTE 071H BYTE 031H BYTE 071H ; KIIIICS EQU $ JSR OAMCHK ; JSL >OCHECKL LDA ENDSXL SEC SBC #020H STA ENDSXL LDA ENDSYL SEC SBC #020H STA ENDSYL PHX LDA ENCONT,X BNE KIICS80 ; MEM8 ;KIIII SET IDX16 REP #00010000B ; LDX ALOMCKL RTS ;---------------------------------------- KIICS80 EQU $ ;KUZURERU E LDA ENCONT,X DEC A STA ALOMCKL RTS ;---------------------------------------- KIIIIST EQU $ LDA #BOOK0 JSL >ENIDSH ; LDA #002H STA ENCHPT,Y ; LDA ENZSPD,X STA ENZSPD,Y ; LDA #001H STA ENCONT,Y ; LDA #002H STA ENSTAT,Y ; LDA #008H STA ENTIM0,Y JSL >ENIDPS RTS ; ;---------------------------------------- TKBOYMV EQU $ PHB PHK PLB JSR TKBOY00 PLB RTL ;---------------------------------------- TKBOY00 EQU $ JSR TKBOYCS JSR ENSTCK ; scroll : not return ! ; JSL >ENPLATR ;PL. EN. ATARI SET ; JSL >ENMKIST ;MUKI SET JSR EPXYCK ;pl muki set TYA EOR #003H STA ENCMKI,X ; LDA >MODTBL2 CMP #003H BCS TBYMV20 ; LDA #LOW MS_04F0 ; MSGE NO. SET LDY #HIGH MS_04F0 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? BCC TBYMV10 LDA #002H STA >MODTBL2 ; LDA #02DH ;OTO ; JSL >SDLRE3 TBYMV10 EQU $ RTS ; TBYMV20 EQU $ LDA #LOW MS_04F1 ; MSGE NO. SET LDY #HIGH MS_04F1 ; MSGE NO. SET JSL >ENMSGEL ; MEGE ? RTS ;---------------------------------------- TKBOYCD EQU $ WORD 00000,-0008 BYTE 082H,008H,000H,002H WORD 00000,00000 BYTE 0AAH,00AH,000H,002H ; WORD 00000,-0008 BYTE 082H,008H,000H,002H WORD 00000,00000 BYTE 0AAH,00AH,000H,002H ; WORD 00000,-0008 BYTE 080H,048H,000H,002H WORD 00000,00000 BYTE 0AAH,00AH,000H,002H ; WORD 00000,-0008 BYTE 080H,008H,000H,002H WORD 00000,00000 BYTE 0AAH,00AH,000H,002H ; TKBOYCS EQU $ LDA #002H STA SETOAML JSL >SADWSTL RTS ;============================================================= ;============================================================= ;============================================================= ;============================================================= ;============================================================= ;============================================================= ;============================================================= ;============================================================= 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 ; ;-----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 ; 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 ! ; LDA ENSTAT,X BNE KIANA10 ; JSL >CRENPL2L BCC KIANA10 ; MEM16 ; S KEY CLS REP #00100000B LDY DJNNO LDA KAGI1DT,Y AND >KEYCNT BEQ KIANA20 ; ;; EOR >KEYCNT ;KEY CLS ;; STA >KEYCNT ; MEM8 SEP #00110000B ; LDA #014H STA SOUND3 ; INC SWCHFG ;SWICH ON ; STZ ENMODE,X ; INC ENSTAT,X ; RTS ;---------------------------------------- KIANA20 EQU $ MEM8 SEP #00110000B ; LDA ENTIM0,X BNE KIANA10 ; LDA #LOW MS_00DD ; MSGE NO. SET LDY #HIGH MS_00DD ; MSGE NO. SET JSL >ENMSGSL ; MEGE ? LDA #020H STA ENTIM0,X KIANA10 EQU $ RTS ;---------------------------------------- KIANACD EQU $ WORD 00000,00000 BYTE 0E8H,000H,000H,002H ; KIANACS EQU $ LDA #001H ;KAZU STA SETOAML RTS ; ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;% 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 ! JSR ENBGCK ; 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