File : ys_mplay.asm SUPER-FX ASSEMBLER $Ver 1.01 Wed Jul 5 09:48:13 1995 Page 0001 1 ;************************************************************************ 2 ;* * 3 ;* title name : "yossy" * 4 ;* proccess : mario chip player program * 5 ;* file name : ys_mplay * 6 ;* * 7 ;************************************************************************ 8 ; 9 ; 10 SALL 11 ; 12 include ys_chip.inc 13 include ys_chip2.inc 14 ; 15 XALL 16 ; 17 ; 18 ;------------------------------------------------------------------------ 19 ;- global symbol - 20 ;------------------------------------------------------------------------ 21 GLB PL_CALC,XY_CALC,PL_BGCK,PL_BGCK_2,WATR_CHECK 22 GLB PL_KEY_XMOV,PL_XSP_DOWN,PL_BGCK_0300 23 GLB M_ENINSR,M_EXINSR 24 GLB BABL0_SET,WTUP0_SET,WTUP1_SET 25 GLB BABL0_SET_2,WTUP0_SET_2,WTUP1_SET_2 26 GLB BG_SIDECK_IN,BG_SIDECK,BG_HDFTCK,FOOT_RESULT,FOOT_RESULT_C 27 GLB BRBG0_SET,BGUNIT_READ_S,BGUNIT_READ 28 GLB BG_SIDECK_0000,BG_HDFTCK_0000 29 GLB DASH_SMOK_CK,DOSN_JUST_CK 30 GLB BRBG0_SET,SIDE_SP_CK,HED_SP_CK,FOOT_SP_CK 31 GLB XY_CALC,PL_CALC_JUMP,PL_CALC_NOJUMP 32 GLB DOKAN_INOUT_IN,DOKAN_INOUT_IN_2 33 GLB COIN_CROSS,FAIL_CROSS,SUGI_CROSS,CLR_COIN_CROSS 34 GLB BG_SP_CHECK 35 ; 36 GLB R_32_ZOOM_16,R_32_ZOOM_16_XY 37 GLB R_32_RTZ_32,R_32_RTZ_32_XY,R_32_RTZ_C32_XY 38 GLB R_32_RTZ_32_XY_C 39 GLB R_32_ZOOM,R_32_ZOOM_XY,R_32_ZOOM_XY_C 40 ; 41 GLB PSHT 42 ; 43 ;------------------------------------------------------------------------ 44 ;- extern symbol - 45 ;------------------------------------------------------------------------ 46 ; 47 ;-------------< ys_chip0 >----------------------------------------------- 48 EXT COS,SIN,LCOS,LSIN,LCOS_S,LSIN_S 49 ; 50 ;-------------< ys_msub0 >----------------------------------------------- 51 EXT ENCRDT,ENMODE0,ENMODE1,ENMODE2,ENDATA0,ENDATA1 52 EXT ENCHR_BNK,ETCADR 53 EXT EXMODE0,EXMODE1,EXMODE2,EXDATA0,EXDATA1 54 EXT EXCHR_BNK 55 EXT EN_BGTYPE,SAKA_DATA 56 ; 57 ;-------------< 敵Ｎｏ． >--------------------------------------- 58 EXT DWNBG,FIREX,SOPB0,SUIKT,COLDX,HBLK2 ;,HBLK1 59 EXT ON_DW,TIKU0,TIKU1,CNTLF,DRKEY,MRBLK,SUIKA ;,POLDR 60 EXT GROCK,GRCKS 61 ; 62 ;-------------< 効果Ｎｏ． >------------------------------------- 63 EXT DUST0,DOSN0,DSMK1,DSMK0,BRBG0,WTUP0,WTUP1,BABL0 64 EXT NAG_P,PICHA,YKCHI,DORO0,DORO1,SNOW0 65 ; 66 ;-------------< ys_mplay0 >----------------------------------------------- 67 EXT CAR_MV 68 ; 69 ;-------------< ys_mplay3 >----------------------------------------------- 70 EXT HERI_MV 71 EXT SBMARIN_MV 72 EXT MOGURA_MV 73 EXT MARIO_MV 74 EXT TRAIN_MV 75 EXT SKI_MV 76 EXT EGG_MV 77 ; 78 EXT MARIO_PS_HOSE 79 ; 80 EXT BERO_P_BIRI,BERO_P_RETN,BERO_P_END 81 ; 82 ;-------------< ys_mpldt >----------------------------------------------- 83 EXT PLAYER_DATA 84 ; 85 EXT MOVE_SOUND 86 ; 87 EXT ON_SOAP,ON_WATR,ON_ICEB,ON_YUKI,ON_DORO 88 ; 89 EXT DOSN_PATN,DOSN_DOWN,DOSN_END,DOSN_TMDT,DUST0_SET_POS 90 EXT DOSN_DOWN_P,DOSN_END_P 91 ; 92 EXT SWIM_INDT,SWIM_PATN,SWIM_DW_PATN 93 EXT WTUP1_STDT 94 ; 95 ;;;; EXT DSMK0_SET_TM,DSMK0_SET_PS 96 ; 97 EXT PLBGCK_POINT,PLBGCK_POINT_00,PLBGCK_POINT_01,PLBGCK_POINT_SW 98 EXT KAIDAN_PATN 99 EXT DOKAN_TYPE 100 EXT DSMK1_STCK 101 EXT WALK_SP,DASH_SP 102 EXT MAX_SPEED,MAX_DASH,ADD_SPEED,MIN_SPEED,SUB_SPEED 103 ; 104 EXT EAT_OFST_POS,BERO_SHOT_DT,BERO_PATN,EAT_END_PT 105 EXT EAT_END_PT_END,EATEND,EATEGGEND,SPSHOT_ENNO 106 EXT BERO_BIRI_PATN 107 ; 108 EXT FIRE_SET_XY 109 EXT FIRE_ST_P,FIRE_ST_M 110 ; 111 EXT SOAP_SET_TMG,SOAP_SET_TMG_NO 112 EXT SOAP_SET_XY 113 EXT SOAP_ST_P,SOAP_ST_M 114 ; 115 EXT SUIKA_SET_XY 116 EXT SUIKA_ST_P,SUIKA_ST_M 117 ; 118 EXT FAIL_KYORO_PATN,SUIKA_SHOT_PATN 119 EXT ROTATION_PATN,ROT_DOWN_PATN,ROT_DOWN_TIM,ROT_DOWN_P 120 EXT NAGE_PATN,NAGE_P,NAGE_PATN_TMDT,SIT_PATN,SDBOYO_PATN,HDBOYO_PATN 121 EXT SPJMP_PATN,SPJMP_NAGE_PATN,JMPEND_PATN,JMPEND_PATN_E,JPET,SLIP_PATN 122 EXT NAGE_SLIP_PATN,PUSH_PATN,PLSTOP_PATN,MABATAKI,PORIPORI,KYORKYOR 123 EXT TANTAN,PLSTOP_PATN_E,PLSTOP_TMDT,PLSTOP_PTIN,WALK_TMDT 124 EXT BGWK00,BGWK01,BGWK02,BGWK03,BGWK04,WALK_TMDT_E 125 EXT BGWK05,BGWK06,BGWK07,BGWK08,BGWK09,BGWK0A 126 EXT WLKMX,WLKMX_C,WLKMX_Cx2,WLKMX_Cw2,WALK_SOUND,WALK_TMIN,WALK_PATN 127 EXT FR_CK,FR_MV,FURA_TMDT,FURA_PATN,FURA_EGG_PATN 128 EXT BURAN_PATN,BURAN_P 129 ; 130 ;------------------------------------------------------------------------ 131 ;- define symbol - 132 ;------------------------------------------------------------------------ 133 ; 134 ;-------------- ＢＧユニットＮｏ．バッファアドレス ---------------------- 135 7F8000 CBGUNIT EQU 7F8000H 136 ; 137 ; 138 ; 139 000280 BWXMX EQU 280H 140 000010 PUSHTM EQU 010H 141 ; 142 000006 PDKN EQU 06H ;プレイヤーモード（ドカン出入り） 143 00000A PSHT EQU 0AH ; ” （エントツショット） 144 00000E PFAL EQU 0EH ; ” （ダウン） 145 000028 PYGN EQU 28H ; ” （溶岩落ち） 146 ; 147 000006 SKSNOW EQU 06H ;[ ※ ../sfc/ys_exst.asm に存在！！ ] 148 ; 149 ; 150 ;************************************************************************ 151 ;* * 152 ;* program start * 153 ;* * 154 ;************************************************************************ 155 ; 156 ; 157 Group_B GROUP S_play 158 S_play SECT REL 159 ; 160 ; 161 ;************************************************************************ 162 ;* 敵サーチ（距離指定） * 163 ;* out : * 164 ;* (R1) <-- サーチ敵インデックス * 165 ;* ( ＜０：無し ) * 166 ;************************************************************************ 167 ; 168 P_EN_SRCH_S 169 S000000 3E AB 30 SMS R11,RTS0 ;[ return address save ] 170 ; 171 S000003 A1 FF IBT R1,#0FFH ;[ IWT R1,#0FFFFH ] 172 S000005 A9 48 IBT R9,#048H ;(R9) <-- 射程距離 173 ; 174 S000007 3D AA 8E LMS R10,CPCENTX ;(R10) <-- プレイヤー中心Ｘ 175 S00000A 3D A3 8F LMS R3,CPCENTY ;(R3) <-- プレイヤー中心Ｙ 176 ; 177 S00000D F4 1CD6 IWT R4,#CECENTX ;(R4) <-- enemy center pos index 178 S000010 F5 0F00 IWT R5,#CENMODE ;(R5) <-- enemy mode index 179 S000013 A6 10 IBT R6,#CEMOVE ;(R6) <-- enemy move no. 180 S000015 FB 1041 IWT R11,#CENMOD2+1 ;(R11) <-- 照準合うかフラグポインター 181 ; 182 S000018 AE FF IBT R14,#0FFH ;[ IWT R14,#0FFFFH ] (R14) <-- サーチ距離 183 ; 184 S00001A 02 CACHE 185 ; 186 S00001B AC 18 IBT R12,#CENNO 187 S00001D 2F 1D MOVE R13,R15 188 P_EN_SRCH_S_010 189 S00001F 3D 45 LDB (R5) 190 S000021 66 SUB R6 191 S000022 08 30' BNE P_EN_SRCH_S_040 ;enemy cross check ok ? ( no:P_EN_SRCH_S_040 ) 192 S000024 01 NOP 193 ; 194 S000025 3D 4B LDB (R11) 195 S000027 3E 71 AND #00000001B 196 S000029 09 29' BEQ P_EN_SRCH_S_040 ;照準合う？ ( no:P_EN_SRCH_S_040 ) 197 S00002B 01 NOP 198 ; 199 S00002C 44 LDW (R4) 200 S00002D 6A SUB R10 201 S00002E 3D A8 62 LMS R8,CPLCMKI 202 S000031 E8 DEC R8 203 S000032 0B 03' BMI P_EN_SRCH_S_020 204 S000034 01 NOP 205 ; 206 S000035 4F NOT 207 S000036 D0 INC R0 208 P_EN_SRCH_S_020 209 S000037 69 SUB R9 210 S000038 0D 1A' BCS P_EN_SRCH_S_040 ;サーチ敵ＯＫＸ距離？ ( no:P_EN_SRCH_S_040 ) 211 S00003A 59 ADD R9 212 ; 213 S00003B 20 18 MOVE R8,R0 214 ; 215 S00003D B4 FROM R4 216 S00003E 3E 52 ADD #2 217 S000040 40 LDW (R0) 218 S000041 63 SUB R3 219 S000042 0A 03' BPL P_EN_SRCH_S_030 220 S000044 01 NOP 221 ; 222 S000045 4F NOT 223 S000046 D0 INC R0 224 P_EN_SRCH_S_030 225 S000047 69 SUB R9 226 S000048 0D 0A' BCS P_EN_SRCH_S_040 ;サーチ敵ＯＫＹ距離？ ( no:P_EN_SRCH_S_040 ) 227 S00004A 59 ADD R9 228 ; 229 S00004B 58 ADD R8 230 S00004C 6E SUB R14 231 S00004D 0D 05' BCS P_EN_SRCH_S_040 ;サーチ敵ＯＫ？ ( no:P_EN_SRCH_S_040 ) 232 S00004F 5E ADD R14 233 ; 234 S000050 20 1E MOVE R14,R0 ;(R14) <-- Ｎｅｗサーチ距離 235 S000052 2C 11 MOVE R1,R12 ;(R1) <-- Ｎｅｗサーチ敵インデックス 236 ; 237 P_EN_SRCH_S_040 238 S000054 A0 04 IBT R0,#4 239 S000056 14 TO R4 240 S000057 54 ADD R4 241 S000058 15 TO R5 242 S000059 55 ADD R5 243 S00005A 1B TO R11 244 S00005B 5B ADD R11 245 S00005C 3C LOOP 246 S00005D 01 NOP 247 ; 248 S00005E 21 B1 MOVES R1,R1 249 S000060 0B 07' BMI P_EN_SRCH_S_050 ;サーチ敵無し？ ( yes:P_EN_SRCH_S_050 ) 250 S000062 01 NOP 251 ; 252 S000063 A0 18 IBT R0,#CENNO 253 S000065 61 SUB R1 254 S000066 50 ADD R0 255 S000067 11 TO R1 ;(R1) <-- サーチ敵インデックス 256 S000068 50 ADD R0 257 ; 258 P_EN_SRCH_S_050 259 S000069 3D AB 30 LMS R11,RTS0 ;[ return address load ] 260 mRTS 260+ S00006C 9B JMP R11 260+ S00006D 01 NOP 261 ; 262 ;************************************************************************ 263 ;* ソニックモードキャンセルによる座標補正 * 264 ;************************************************************************ 265 00006E MARIO_PS_HOSEI EQU $ 266 S00006E 3D A0 C0 LMS R0,CPMR_BGCF 267 S000071 E0 DEC R0 268 S000072 0B 06' BMI MARIO_PS_HS_010 ;ソニックモードだった？ ( no:MARIO_PS_HS_010 ) 269 S000074 01 NOP 270 ; 271 mJSR MARIO_PS_HOSE 271+ S000075 94 LINK #4 271+ S000076 FF 0000" IWT R15, #MARIO_PS_HOSE 271+ S000079 01 NOP 272 ; 273 MARIO_PS_HS_010 274 S00007A 00 STOP 275 S00007B 01 NOP 276 ; 277 ;************************************************************************ 278 ;* 止まってるポーズセット * 279 ;************************************************************************ 280 00007C PL_STOP_PATN EQU $ 281 S00007C 3D A0 EC LMS R0,CPSTPTM 282 S00007F E0 DEC R0 283 S000080 0A 02' BPL PL_STOP_PATN_10 284 S000082 01 NOP 285 ; 286 S000083 60 SUB R0 287 PL_STOP_PATN_10 288 S000084 90 SBK ;[ SMS R0,CPSTPTM ] 289 ; 290 S000085 A0 00" IBT R0,#BANK PLAYER_DATA 291 S000087 3F DF ROMB 292 ; 293 mJSR PL_STOP_PT_SET 293+ S000089 94 LINK #4 293+ S00008A FF 27AC' IWT R15, #PL_STOP_PT_SET 293+ S00008D 01 NOP 294 ; 295 S00008E 60 SUB R0 ;<<< end >>> 296 S00008F 00 STOP 297 S000090 01 NOP 298 ; 299 ;************************************************************************ 300 ;* プレイヤーデモ用処理 * 301 ;************************************************************************ 302 000091 PL_DEMO_0 EQU $ 303 mJSR XY_CALC ;Ｘ，Ｙ座標セット 303+ S000091 94 LINK #4 303+ S000092 FF 0811' IWT R15, #XY_CALC 303+ S000095 01 NOP 304 ; 305 mJSR PL_PATN ;パターンＮｏ．セット 305+ S000096 94 LINK #4 305+ S000097 FF 257F' IWT R15, #PL_PATN 305+ S00009A 01 NOP 306 ; 307 S00009B 60 SUB R0 ;<<< end >>> 308 S00009C 00 STOP 309 S00009D 01 NOP 310 ; 311 ;************************************************************************ 312 ;* プレイヤーデモ用処理（ゴール） * 313 ;************************************************************************ 314 00009E PL_DEMO_1 EQU $ 315 S00009E A0 00" IBT R0,#BANK PLAYER_DATA 316 S0000A0 3F DF ROMB 317 ; 318 mDJMP YOSSY_MV_0110 318+ S0000A2 FF 034C' IWT R15, #YOSSY_MV_0110 318+ S0000A5 01 NOP 319 ; 320 ;************************************************************************ 321 ;* プレイヤーデモ用処理（タイトル） * 322 ;************************************************************************ 323 0000A6 PL_DEMO_2 EQU $ 324 S0000A6 A0 00" IBT R0,#BANK PLAYER_DATA 325 S0000A8 3F DF ROMB 326 ; 327 mDJMP YOSSY_MV_0120 327+ S0000AA FF 0356' IWT R15, #YOSSY_MV_0120 327+ S0000AD 01 NOP 328 ; 329 ;************************************************************************ 330 ;* ＢＧチェック * 331 ;************************************************************************ 332 0000AE M_PLBGCK EQU $ 333 S0000AE A0 00" IBT R0,#BANK PLAYER_DATA 334 S0000B0 3F DF ROMB 335 ; 336 mJSR PL_BGCK 336+ S0000B2 94 LINK #4 336+ S0000B3 FF 091B' IWT R15, #PL_BGCK 336+ S0000B6 01 NOP 337 ; 338 S0000B7 60 SUB R0 ;<<< end >>> 339 S0000B8 00 STOP 340 S0000B9 01 NOP 341 ; 342 ;************************************************************************ 343 ;* プレイヤー座標計算 * 344 ;************************************************************************ 345 0000BA M_PLCALC EQU $ 346 mJSR PL_CALC 346+ S0000BA 94 LINK #4 346+ S0000BB FF 0676' IWT R15, #PL_CALC 346+ S0000BE 01 NOP 347 ; 348 S0000BF 00 STOP 349 S0000C0 01 NOP 350 ; 351 ;************************************************************************ 352 ;* Ｘ，Ｙ座標計算 * 353 ;************************************************************************ 354 0000C1 M_PLXYCLC EQU $ 355 mJSR XY_CALC 355+ S0000C1 94 LINK #4 355+ S0000C2 FF 0811' IWT R15, #XY_CALC 355+ S0000C5 01 NOP 356 ; 357 S0000C6 00 STOP 358 S0000C7 01 NOP 359 ; 360 ;************************************************************************ 361 ;* Ｙ座標計算 * 362 ;************************************************************************ 363 0000C8 M_PLYCLC EQU $ 364 S0000C8 3D A2 55 LMS R2,CPLYSPD ;(R2) <-- Ｙスピード 365 mJSR XY_CALC_0550 365+ S0000CB 94 LINK #4 365+ S0000CC FF 0872' IWT R15, #XY_CALC_0550 365+ S0000CF 01 NOP 366 ; 367 S0000D0 00 STOP 368 S0000D1 01 NOP 369 ; 370 ;************************************************************************ 371 ;* * 372 ;* プレイヤー処理 * 373 ;* * 374 ;************************************************************************ 375 ; 376 0000D2 PL_MOVE EQU $ 377 S0000D2 A0 00" IBT R0,#BANK PLAYER_DATA 378 S0000D4 3F DF ROMB 379 ; 380 ;;;; mJSR TIMER_CALC 381 ; 382 ;------------------------------------------------------------------------ 383 ;- 無敵”キラキラ”セット - 384 ;------------------------------------------------------------------------ 385 S0000D6 3D F0 1E04 LM R0,CSUPER_FLAG 386 S0000DA E0 DEC R0 387 S0000DB 0B 4F' BMI PL_MOVE_0050 ;無敵？ ( no:PL_MOVE_0050 ) 388 S0000DD 01 NOP 389 ; 390 S0000DE 90 SBK ;[ SM R0,CSUPER_FLAG ] 391 ; 392 S0000DF 3D F0 1974 LM R0,CFRCNT2 393 S0000E3 3E 77 AND #07H 394 S0000E5 08 45' BNE PL_MOVE_0050 ;”キラキラ”セット？ ( no:PL_MOVE_0050 ) 395 S0000E7 01 NOP 396 ; 397 S0000E8 A0 10 IBT R0,#010H ;(R0) <-- ヨコサイズ 398 S0000EA 3D F2 1970 LM R2,CRANDM0 399 S0000EE 3D 82 UMULT R2 400 S0000F0 C0 HIB 401 S0000F1 3E 68 SUB #08H 402 S0000F3 3D A2 46 LMS R2,CPLXPSL 403 S0000F6 12 TO R2 ;(R2) <-- ”キラキラ”セットＸ座標 404 S0000F7 52 ADD R2 405 ; 406 S0000F8 A0 20 IBT R0,#020H ;(R0) <-- タテサイズ 407 S0000FA 3D F3 1971 LM R3,CRANDM0+1 408 S0000FE 3D 83 UMULT R3 409 S000100 C0 HIB 410 S000101 3E 64 SUB #04H 411 S000103 3D A3 48 LMS R3,CPLYPSL 412 S000106 13 TO R3 ;(R3) <-- ”キラキラ”セットＹ座標 413 S000107 53 ADD R3 414 ; 415 S000108 F5 0000" IWT R5,#DUST0 ;(R5) <-- 効果Ｎｏ． 416 mJSR M_EXINSR ;効果エリア確保 416+ S00010B 94 LINK #4 416+ S00010C FF 2A7B' IWT R15, #M_EXINSR 416+ S00010F 01 NOP 417 ; 418 mSTW R2,CEXXPSL,R1 ;Ｘ座標セット 418+ S000110 F0 10A2 IWT R0,#CEXXPSL 418+ S000113 51 ADD R1 418+ S000114 B2 FROM R2 418+ S000115 30 STW (R0) 419 mSTW R3,CEXYPSL,R1 ;Ｙ座標セット 419+ S000116 F0 1142 IWT R0,#CEXYPSL 419+ S000119 51 ADD R1 419+ S00011A B3 FROM R3 419+ S00011B 30 STW (R0) 420 S00011C A5 04 IBT R5,#04H 421 mSTW R5,CEXWRK0,R1 ;初期カウンターセット 421+ S00011E F0 1E4C IWT R0,#CEXWRK0 421+ S000121 51 ADD R1 421+ S000122 B5 FROM R5 421+ S000123 30 STW (R0) 422 S000124 A5 06 IBT R5,#06H 423 mSTW R5,CEXTIM0,R1 ;初期タイマーセット 423+ S000126 F0 1782 IWT R0,#CEXTIM0 423+ S000129 51 ADD R1 423+ S00012A B5 FROM R5 423+ S00012B 30 STW (R0) 424 ; 425 ;-------------- フラグ初期セット ---------------------------------------- 426 PL_MOVE_0050 427 S00012C 60 SUB R0 428 S00012D 3E A0 67 SMS R0,CPLUPFG ;上向きフラグリセット 429 ; 430 S000130 3D A1 57 LMS R1,CPLTYPE ;(R1) <-- プレイヤータイプ 431 S000133 3D A0 5A LMS R0,CPLMVSP 432 S000136 3E 60 SUB #0 433 S000138 09 0C' BEQ PL_MOVE_0100 ;移動中？ ( no:PL_MOVE_0100 ) 434 S00013A B1 FROM R1 435 ; 436 S00013B 03 LSR ;1/2 437 S00013C FE 0000" IWT R14,#MOVE_SOUND 438 S00013F 1E TO R14 439 S000140 5E ADD R14 440 S000141 EF GETB 441 S000142 3E A0 3B SMS R0,CMSOUND1 442 ; 443 S000145 B1 FROM R1 ;[JSRSUB] 444 PL_MOVE_0100 445 S000146 51 ADD R1 ; " 446 S000147 D0 INC R0 ; " 447 S000148 1F TO R15 ; " 448 S000149 5F ADD R15 ; " 449 S00014A FF HEX FF ; " 450 mTWORD YOSSY_MV ;普通のヨッシー 450+ S00014B 0173' WORD YOSSY_MV 450+ S00014D 01 NOP 450+ S00014E 01 NOP 451 mTWORD CAR_MV ;クルマ 451+ S00014F 0000" WORD CAR_MV 451+ S000151 01 NOP 451+ S000152 01 NOP 452 mTWORD MOGURA_MV ;モグラ 452+ S000153 0000" WORD MOGURA_MV 452+ S000155 01 NOP 452+ S000156 01 NOP 453 mTWORD HERI_MV ;ヘリコプター 453+ S000157 0000" WORD HERI_MV 453+ S000159 01 NOP 453+ S00015A 01 NOP 454 mTWORD TRAIN_MV ;汽車 454+ S00015B 0000" WORD TRAIN_MV 454+ S00015D 01 NOP 454+ S00015E 01 NOP 455 mTWORD KINOKO_MV ;キノコ 455+ S00015F 28C4' WORD KINOKO_MV 455+ S000161 01 NOP 455+ S000162 01 NOP 456 mTWORD SBMARIN_MV ;潜水艦 456+ S000163 0000" WORD SBMARIN_MV 456+ S000165 01 NOP 456+ S000166 01 NOP 457 mTWORD SKI_MV ;スキー 457+ S000167 0000" WORD SKI_MV 457+ S000169 01 NOP 457+ S00016A 01 NOP 458 mTWORD MARIO_MV ;マリオ 458+ S00016B 0000" WORD MARIO_MV 458+ S00016D 01 NOP 458+ S00016E 01 NOP 459 mTWORD EGG_MV ;タマゴ 459+ S00016F 0000" WORD EGG_MV 459+ S000171 01 NOP 459+ S000172 01 NOP 460 ; 461 ; 462 ; 463 ; 464 ; 465 ;************************************************************************ 466 ;* * 467 ;* 普通のヨッシー * 468 ;* * 469 ;************************************************************************ 470 000100 KAIDAN_SP EQU 0100H ;階段歩きスピード 471 ; 472 YOSSY_MV 473 S000173 3D A0 A5 LMS R0,CPROTSP 474 S000176 3E 60 SUB #0 475 S000178 09 22' BEQ YOSSY_MV_FFFE ;回転中？ ( no:YOSSY_MV_FFFE ) 476 S00017A 01 NOP 477 ; 478 S00017B 3D A1 A6 LMS R1,CPROTDW 479 S00017E E1 DEC R1 480 S00017F 0A 11' BPL YOSSY_MV_FFFD4 ;回転ダウンセット？ ( no:YOSSY_MV_FFFD4 ) 481 S000181 01 NOP 482 ; 483 S000182 F1 0200 IWT R1,#0200H 484 S000185 51 ADD R1 485 S000186 F1 0401 IWT R1,#0200H*2+1 486 S000189 61 SUB R1 487 S00018A 0C 03' BCC YOSSY_MV_FFFD2 ;回転ダウン？ ( no:YOSSY_MV_FFFD2 ) 488 S00018C 60 SUB R0 ;[ IBT R0,#0 ] 489 ; 490 S00018D A0 00" IBT R0,#ROT_DOWN_P 491 YOSSY_MV_FFFD2 492 S00018F 3E A0 A6 SMS R0,CPROTDW 493 ; 494 YOSSY_MV_FFFD4 495 S000192 60 SUB R0 ;[ IBT R0,#0 ] 496 S000193 3E A0 38 SMS R0,CMKEYC1L ;コントローラー入力無しセット 497 S000196 3E A0 39 SMS R0,CMKEYC2L 498 S000199 05 23' BRA YOSSY_MV_FFFF 499 S00019B 01 NOP 500 ; 501 YOSSY_MV_FFFE 502 S00019C 3D A0 EB LMS R0,CPLFLSH 503 ;;;; IWT R1,#0080H 504 S00019F A1 40 IBT R1,#0040H 505 S0001A1 61 SUB R1 506 S0001A2 0C 1A' BCC YOSSY_MV_FFFF ;プレイヤーダメージ中？ ( no:YOSSY_MV_FFFF ) 507 S0001A4 01 NOP 508 ; 509 S0001A5 3D A0 60 LMS R0,CPLJUMP 510 S0001A8 E0 DEC R0 511 S0001A9 0A 13' BPL YOSSY_MV_FFFF ;プレイヤージャンプ中？ ( yes:YOSSY_MV_FFFF ) 512 S0001AB 01 NOP 513 ; 514 S0001AC A1 00 IBT R1,#0 ;(R1) <-- Ｘスピード 515 S0001AE A2 00 IBT R2,#0 ;(R2) <-- Ｙスピード 516 mJSR XY_CALC_0500 ; 516+ S0001B0 94 LINK #4 516+ S0001B1 FF 081B' IWT R15, #XY_CALC_0500 516+ S0001B4 01 NOP 517 mJSR PL_BGCK ;ＢＧチェック 517+ S0001B5 94 LINK #4 517+ S0001B6 FF 091B' IWT R15, #PL_BGCK 517+ S0001B9 01 NOP 518 mDJMP YOSSY_MV_0150 518+ S0001BA FF 035B' IWT R15, #YOSSY_MV_0150 518+ S0001BD 01 NOP 519 ; 520 YOSSY_MV_FFFF 521 S0001BE 3D A0 63 LMS R0,CPLSWIM 522 S0001C1 E0 DEC R0 523 S0001C2 0B 05' BMI YOSSY_MV_0000 ;泳ぎ中？ ( no:YOSSY_MV_0000 ) 524 S0001C4 01 NOP 525 ; 526 mDJMP YOSSY_SW 526+ S0001C5 FF 0363' IWT R15, #YOSSY_SW 526+ S0001C8 01 NOP 527 ; 528 ;------------------------------------------------------------------------ 529 ;- 階段歩き処理 - 530 ;------------------------------------------------------------------------ 531 YOSSY_MV_0000 532 S0001C9 3D A0 6D LMS R0,CPLKAID 533 S0001CC 3E 60 SUB #0 534 S0001CE 08 05' BNE YOSSY_MV_00000 ;階段歩き中？ ( yes:YOSSY_MV_00000 ) 535 S0001D0 60 SUB R0 ;[ IBT R0,#0 ] 536 ; 537 mDJMP YOSSY_MV_0001 537+ S0001D1 FF 025D' IWT R15, #YOSSY_MV_0001 537+ S0001D4 01 NOP 538 ; 539 YOSSY_MV_00000 540 S0001D5 3E A0 6A SMS R0,CPLDOSN ;”ドスーン！！”フラグリセット 541 ; 542 mJSR PL_KEY ;ジャンプキーチェック 542+ S0001D8 94 LINK #4 542+ S0001D9 FF 199C' IWT R15, #PL_KEY 542+ S0001DC 01 NOP 543 ; 544 S0001DD 3D A0 60 LMS R0,CPLJUMP 545 S0001E0 E0 DEC R0 546 S0001E1 0B 08' BMI YOSSY_MV_00001 ;ジャンプ？ ( no:YOSSY_MV_00001 ) 547 S0001E3 60 SUB R0 ;[ IBT R0,#0 ] 548 ; 549 S0001E4 3E A0 6D SMS R0,CPLKAID 550 mDJMP YOSSY_MV_0150 550+ S0001E7 FF 035B' IWT R15, #YOSSY_MV_0150 550+ S0001EA 01 NOP 551 ; 552 YOSSY_MV_00001 553 S0001EB F1 0100 IWT R1,#KAIDAN_SP 554 S0001EE 3D A0 6D LMS R0,CPLKAID ;(R0) <-- 階段歩きフラグ 555 S0001F1 E0 DEC R0 556 S0001F2 0A 04' BPL YOSSY_MV_00002 557 S0001F4 D0 INC R0 558 ; 559 S0001F5 F1 FF00 IWT R1,#0-KAIDAN_SP 560 YOSSY_MV_00002 561 S0001F8 61 SUB R1 562 S0001F9 12 TO R2 ;[ * not break (R0) ] 563 S0001FA 3D C1 XOR R1 564 S0001FC 0A 02' BPL YOSSY_MV_00003 ;階段歩きＥＮＤ？ ( no:YOSSY_MV_00003 ) 565 S0001FE 01 NOP 566 ; 567 S0001FF 60 SUB R0 568 YOSSY_MV_00003 569 S000200 90 SBK ;[ SMS R0,CPLKAID ] 570 ; 571 S000201 F2 0100 IWT R2,#KAIDAN_SP 572 S000204 3D A0 62 LMS R0,CPLCMKI 573 S000207 E0 DEC R0 574 S000208 0B 06' BMI YOSSY_MV_00004 575 S00020A 21 WITH R1 576 ; 577 S00020B 4F NOT 578 S00020C D1 INC R1 579 S00020D 22 WITH R2 580 S00020E 4F NOT 581 S00020F D2 INC R2 582 YOSSY_MV_00004 583 S000210 3E A2 5A SMS R2,CPLMVSP ;[ スピードはジャンプした時の為 ] 584 S000213 3E A2 54 SMS R2,CPLXSPD 585 S000216 3E A1 55 SMS R1,CPLYSPD 586 ; 587 S000219 3D A0 45 LMS R0,CPLXSDR ;[ 移動を斜めに固定する為に座標計算をここでする ] 588 S00021C 9E LOB 589 S00021D 52 ADD R2 590 S00021E 90 SBK ;[ SMS CPLXSDR ] 591 S00021F C0 HIB 592 S000220 12 TO R2 ;(R2) <-- Ｙ移動値 593 S000221 95 SEX 594 S000222 3D A0 46 LMS R0,CPLXPSL 595 S000225 52 ADD R2 596 S000226 90 SBK ;[ SMS CPLXPSL ] 597 ; 598 S000227 B1 FROM R1 599 S000228 3D C2 XOR R2 600 S00022A 0A 03' BPL YOSSY_MV_00005 601 S00022C 22 WITH R2 602 ; 603 S00022D 4F NOT 604 S00022E D2 INC R2 605 YOSSY_MV_00005 606 S00022F 3D A0 48 LMS R0,CPLYPSL 607 S000232 52 ADD R2 608 S000233 90 SBK ;[ SMS CPLYPSL ] 609 ; 610 S000234 3D A0 48 LMS R0,CPLYPSL 611 S000237 3E 7F AND #0FH 612 S000239 21 B1 MOVES R1,R1 613 S00023B 0B 02' BMI YOSSY_MV_00006 ;階段登り？ ( yes:YOSSY_MV_00006 ) 614 S00023D 50 ADD R0 615 ; 616 S00023E D0 INC R0 617 YOSSY_MV_00006 618 S00023F 50 ADD R0 619 S000240 FE 0000" IWT R14,#KAIDAN_PATN 620 S000243 1E TO R14 621 S000244 5E ADD R14 622 S000245 EF GETB 623 S000246 DE INC R14 624 S000247 3D EF GETBH 625 S000249 3E A0 5F SMS R0,CPLPATN ;パターンＮｏ．セット 626 ; 627 S00024C 3D A0 6D LMS R0,CPLKAID 628 S00024F 3E 60 SUB #0 629 S000251 08 06' BNE YOSSY_MV_00008 ;階段歩き終り？ ( no:YOSSY_MV_00008 ) 630 S000253 01 NOP 631 ; 632 mJSR PL_BGCK ;ＢＧチェック 632+ S000254 94 LINK #4 632+ S000255 FF 091B' IWT R15, #PL_BGCK 632+ S000258 01 NOP 633 ; 634 YOSSY_MV_00008 635 mDJMP YOSSY_MV_0050 635+ S000259 FF 0344' IWT R15, #YOSSY_MV_0050 635+ S00025C 01 NOP 636 ; 637 ;------------------------------------------------------------------------ 638 ; ”ドスーン！！”処理 - 639 ;------------------------------------------------------------------------ 640 YOSSY_MV_0001 641 S00025D 3D A7 6A LMS R7,CPLDOSN ;(R7) <-- ”ドスーン！！”フラグ 642 S000260 E7 DEC R7 643 S000261 0A 05' BPL YOSSY_MV_0002 ;”ドスーン！！”中？ ( yes:YOSSY_MV_0002 ) 644 S000263 D7 INC R7 645 ; 646 mDJMP YOSSY_MV_0100 646+ S000264 FF 0347' IWT R15, #YOSSY_MV_0100 646+ S000267 01 NOP 647 ; 648 YOSSY_MV_0002 vvv******* warn :value out of range 649 S000268 3E A7 05 SMS R7,CSCRONF ;フリースクロールセット 650 ; 651 S00026B 3D F1 0071 LM R1,CMKEYC1 ;(R1) <-- コントローラー情報（連続） 652 S00026F 3D F2 0073 LM R2,CMKEYC2 ;(R2) <-- ” （トリガー） 653 ; 654 S000273 F0 FFFE" IWT R0,#DOSN_PATN-2 655 S000276 57 ADD R7 656 S000277 1E TO R14 657 S000278 57 ADD R7 658 S000279 EF GETB 659 S00027A DE INC R14 660 S00027B 3D EF GETBH 661 S00027D 3E A0 5F SMS R0,CPLPATN 662 ; 663 S000280 3D A0 EF LMS R0,CPDSNTM 664 S000283 9E LOB 665 S000284 08 39' BNE YOSSY_MV_0020 ;パターン切り替え？ ( no:YOSSY_MV_0020 ) 666 S000286 01 NOP 667 ; 668 S000287 A0 FF" IBT R0,#DOSN_DOWN_P-1 669 S000289 67 SUB R7 670 S00028A 0D 26' BCS YOSSY_MV_0010 ;回転中？ ( yes:YOSSY_MV_0010 ) 671 S00028C D7 INC R7 672 ; 673 S00028D 3D A0 60 LMS R0,CPLJUMP 674 S000290 E0 DEC R0 675 S000291 0A 2C' BPL YOSSY_MV_0020 ;着地？ ( no:YOSSY_MV_0020 ) 676 S000293 01 NOP 677 ; 678 S000294 A0 00" IBT R0,#DOSN_END_P 679 S000296 67 SUB R7 680 S000297 0D 19' BCS YOSSY_MV_0010 ;”ドスーン！！”パターン終り？ ( no:YOSSY_MV_0010 ) 681 S000299 01 NOP 682 ; 683 ;;;; LM R0,CP_KEY_JUMP+1 684 S00029A 3D F0 0087 LM R0,CP_KEY_MNAG+1 685 ;;;; OR R14 686 S00029E 3D FE 0089 LM R14,CP_KEY_BERO+1 687 S0002A2 CE OR R14 688 S0002A3 3E C4 OR #00000100B 689 S0002A5 71 AND R1 690 S0002A6 3E 64 SUB #00000100B 691 S0002A8 09 27' BEQ YOSSY_MV_0030 ;”ドスーン！！”継続？ ( yes:YOSSY_MV_0030 ) 692 S0002AA 60 SUB R0 693 ; 694 S0002AB 3E A0 6A SMS R0,CPLDOSN 695 mDJMP YOSSY_MV_0100 695+ S0002AE FF 0347' IWT R15, #YOSSY_MV_0100 695+ S0002B1 01 NOP 696 ; 697 YOSSY_MV_0010 698 S0002B2 3E A7 6A SMS R7,CPLDOSN 699 ; 700 S0002B5 F0 FFFC" IWT R0,#DOSN_TMDT-4 701 S0002B8 57 ADD R7 702 S0002B9 1E TO R14 703 S0002BA 57 ADD R7 704 S0002BB EF GETB 705 S0002BC 3E A0 EF SMS R0,CPDSNTM ;パターン切り替えタイマーセット 706 ; 707 YOSSY_MV_0020 708 S0002BF A0 00" IBT R0,#DOSN_DOWN_P 709 S0002C1 67 SUB R7 710 S0002C2 0C 0E' BCC YOSSY_MV_0030+1 ;回転中？ ( no:YOSSY_MV_0030 ) 711 S0002C4 60 SUB R0 ;[ IBT R0,#0 ] 712 ; 713 S0002C5 3E A0 55 SMS R0,CPLYSPD 714 S0002C8 3E A0 5A SMS R0,CPLMVSP ;Ｘスピードクリアー 715 S0002CB 3E A0 54 SMS R0,CPLXSPD ; ” 716 S0002CE 05 6A' BRA YOSSY_MV_0045 717 S0002D0 01 NOP 718 ; 719 YOSSY_MV_0030 720 S0002D1 60 SUB R0 721 S0002D2 3E A0 5A SMS R0,CPLMVSP ;Ｘスピードクリアー 722 S0002D5 3E A0 54 SMS R0,CPLXSPD ; ” 723 ; 724 S0002D8 3D A0 60 LMS R0,CPLJUMP 725 S0002DB E0 DEC R0 726 S0002DC 0A 09' BPL YOSSY_MV_0032 ;着地？ ( no:YOSSY_MV_0032 ) 727 S0002DE 01 NOP 728 ; 729 mJSR PL_CALC ;座標計算 729+ S0002DF 94 LINK #4 729+ S0002E0 FF 0676' IWT R15, #PL_CALC 729+ S0002E3 01 NOP 730 S0002E4 05 54' BRA YOSSY_MV_0045 731 S0002E6 01 NOP 732 ; 733 YOSSY_MV_0032 734 S0002E7 F0 0800 IWT R0,#0800H 735 S0002EA 3E A0 55 SMS R0,CPLYSPD ;Ｙスピードセット 736 ; 737 ;-------------- ”ドスーン！！”落下効果セット -------------------------- 738 S0002ED 3D F0 1974 LM R0,CFRCNT2 739 S0002F1 03 LSR 740 S0002F2 0C 41' BCC YOSSY_MV_0040 ;”ドスーン！！”落下効果セット？ ( no:YOSSY_MV_0040 ) 741 S0002F4 01 NOP 742 ; 743 S0002F5 F5 0000" IWT R5,#DUST0 ;(R5) <-- 効果Ｎｏ． 744 mJSR M_EXINSR ;効果エリア確保 744+ S0002F8 94 LINK #4 744+ S0002F9 FF 2A7B' IWT R15, #M_EXINSR 744+ S0002FC 01 NOP 745 ; 746 S0002FD 3D F0 1970 LM R0,CRANDM0 747 S000301 3E 77 AND #07H 748 S000303 50 ADD R0 ;x2 749 S000304 FE 0000" IWT R14,#DUST0_SET_POS 750 S000307 1E TO R14 751 S000308 5E ADD R14 752 S000309 3F EF GETBS 753 S00030B DE INC R14 754 S00030C 3D F5 008C LM R5,CPLXPSL 755 S000310 15 TO R5 756 S000311 55 ADD R5 757 mSTW R5,CEXXPSL,R1 757+ S000312 F0 10A2 IWT R0,#CEXXPSL 757+ S000315 51 ADD R1 757+ S000316 B5 FROM R5 757+ S000317 30 STW (R0) 758 S000318 3F EF GETBS 759 S00031A 3D F5 0090 LM R5,CPLYPSL 760 S00031E 15 TO R5 761 S00031F 55 ADD R5 762 mSTW R5,CEXYPSL,R1 762+ S000320 F0 1142 IWT R0,#CEXYPSL 762+ S000323 51 ADD R1 762+ S000324 B5 FROM R5 762+ S000325 30 STW (R0) 763 S000326 A5 04 IBT R5,#04H 764 mSTW R5,CEXWRK0,R1 764+ S000328 F0 1E4C IWT R0,#CEXWRK0 764+ S00032B 51 ADD R1 764+ S00032C B5 FROM R5 764+ S00032D 30 STW (R0) 765 S00032E E5 DEC R5 ;[ IBT R5,#03H ] 766 mSTW R5,CEXTIM0,R1 766+ S00032F F0 1782 IWT R0,#CEXTIM0 766+ S000332 51 ADD R1 766+ S000333 B5 FROM R5 766+ S000334 30 STW (R0) 767 ; 768 YOSSY_MV_0040 769 mJSR XY_CALC ;座標計算 769+ S000335 94 LINK #4 769+ S000336 FF 0811' IWT R15, #XY_CALC 769+ S000339 01 NOP 770 ; 771 YOSSY_MV_0045 772 mJSR PL_BGCK ;ＢＧチェック 772+ S00033A 94 LINK #4 772+ S00033B FF 091B' IWT R15, #PL_BGCK 772+ S00033E 01 NOP 773 mJSR WATR_CHECK ;水中チェック 773+ S00033F 94 LINK #4 773+ S000340 FF 04EA' IWT R15, #WATR_CHECK 773+ S000343 01 NOP 774 ; 775 YOSSY_MV_0050 776 S000344 60 SUB R0 ;<<< end >>> 777 S000345 00 STOP 778 S000346 01 NOP 779 ; 780 ;------------------------------------------------------------------------ 781 ;- ヨッシー普通の処理 - 782 ;------------------------------------------------------------------------ 783 YOSSY_MV_0100 784 mJSR PL_CALC ;座標計算 784+ S000347 94 LINK #4 784+ S000348 FF 0676' IWT R15, #PL_CALC 784+ S00034B 01 NOP 785 ; 786 YOSSY_MV_0110 787 mJSR PL_BGCK ;ＢＧチェック 787+ S00034C 94 LINK #4 787+ S00034D FF 091B' IWT R15, #PL_BGCK 787+ S000350 01 NOP 788 mJSR WATR_CHECK ;水中チェック 788+ S000351 94 LINK #4 788+ S000352 FF 04EA' IWT R15, #WATR_CHECK 788+ S000355 01 NOP 789 ; 790 YOSSY_MV_0120 791 mJSR PL_KEY ;コントローラー入力 791+ S000356 94 LINK #4 791+ S000357 FF 199C' IWT R15, #PL_KEY 791+ S00035A 01 NOP 792 ; 793 YOSSY_MV_0150 794 mJSR PL_PATN ;パターンＮｏ．セット 794+ S00035B 94 LINK #4 794+ S00035C FF 257F' IWT R15, #PL_PATN 794+ S00035F 01 NOP 795 ; 796 S000360 60 SUB R0 ;<<< end >>> 797 S000361 00 STOP 798 S000362 01 NOP 799 ; 800 ;------------------------------------------------------------------------ 801 ;- 水中泳ぎ処理 - 802 ;------------------------------------------------------------------------ 803 YOSSY_SW 804 S000363 3D A0 5A LMS R0,CPLMVSP ;Ｘスピードセット 805 S000366 3E A0 54 SMS R0,CPLXSPD 806 S000369 A0 01 IBT R0,#1 807 S00036B 3E A0 69 SMS R0,CPLSPJP ;ジタバタジャンプフラグセット 808 mJSR XY_CALC ;座標計算 808+ S00036E 94 LINK #4 808+ S00036F FF 0811' IWT R15, #XY_CALC 808+ S000372 01 NOP 809 ; 810 S000373 60 SUB R0 ;[ IBT R0,#0 ] 811 S000374 3E A0 61 SMS R0,CPLSITD ;お座りフラグキャンセル 812 mJSR PL_BGCK ;ＢＧチェック 812+ S000377 94 LINK #4 812+ S000378 FF 091B' IWT R15, #PL_BGCK 812+ S00037B 01 NOP 813 ; 814 ;-------------- 舌ショットチェック ------------------------------ 815 mJSR BERO_CHECK ;舌ショットチェック 815+ S00037C 94 LINK #4 815+ S00037D FF 1CD3' IWT R15, #BERO_CHECK 815+ S000380 01 NOP 816 ; 817 S000381 3D A1 63 LMS R1,CPLSWIM 818 S000384 B1 FROM R1 819 S000385 3E 63 SUB #3 820 S000387 0D 37' BCS YOSSY_SW_0200 ;水中泳ぎ初期セット？ ( no:YOSSY_SW_0200 ) 821 S000389 01 NOP 822 ; 823 ;-------------- 水中泳ぎ初期処理 ---------------------------------------- 824 ; 825 ;-------------- 初期浮力セット ---------------------------------- 826 S00038A B1 FROM R1 ;x4 827 S00038B 51 ADD R1 ; 828 S00038C 50 ADD R0 ; 829 S00038D FE FFFC" IWT R14,#SWIM_INDT-4 830 S000390 1E TO R14 831 S000391 5E ADD R14 832 S000392 3F EF GETBS 833 S000394 DE INC R14 834 S000395 3D A2 55 LMS R2,CPLYSPD 835 S000398 52 ADD R2 836 S000399 0A 07' BPL YOSSY_SW_0050 ;減速終了？ ( no:YOSSY_SW_0050 ) 837 S00039B 90 SBK ;[ SMS R0,CPLYSPD ] 838 ; 839 S00039C EF GETB 840 S00039D 90 SBK ;[ SMS R0,CPLYSPD ] 841 ; 842 S00039E D1 INC R1 843 S00039F 3E A1 63 SMS R1,CPLSWIM 844 ; 845 YOSSY_SW_0050 846 S0003A2 DE INC R14 847 ; 848 ;-------------- Ｘスピード減速 ---------------------------------- 849 S0003A3 A1 40 IBT R1,#040H 850 S0003A5 3D A0 5A LMS R0,CPLMVSP 851 S0003A8 3E 60 SUB #0 852 S0003AA 0B 04' BMI YOSSY_SW_0100 853 S0003AC 01 NOP 854 ; 855 S0003AD 21 WITH R1 856 S0003AE 4F NOT 857 S0003AF D1 INC R1 858 YOSSY_SW_0100 859 S0003B0 51 ADD R1 860 S0003B1 11 TO R1 861 S0003B2 3D C1 XOR R1 862 S0003B4 0B 02' BMI YOSSY_SW_0150 ;Ｘスピード減速終了？ ( no:YOSSY_SW_0150 ) 863 S0003B6 01 NOP 864 ; 865 S0003B7 60 SUB R0 ;[ IBT R0,#0 ] 866 YOSSY_SW_0150 867 S0003B8 90 SBK ;[ SMS R0,CPLMVSP ] 868 S0003B9 3E A0 54 SMS R0,CPLXSPD 869 ; 870 ;-------------- 泳ぎ初期パターンセット -------------------------- 871 mDJMP YOSSY_SW_0500 871+ S0003BC FF 04BD' IWT R15, #YOSSY_SW_0500 871+ S0003BF 01 NOP 872 ; 873 ;-------------- 水中泳ぎ処理 -------------------------------------------- 874 YOSSY_SW_0200 875 ; 876 ;-------------- Ｘ方向移動チェック ------------------------------ 877 S0003C0 A0 00" IBT R0,#ON_WATR ;水中歩きセット 878 S0003C2 3E A0 7D SMS R0,CPLBGNO 879 S0003C5 3D F1 0071 LM R1,CMKEYC1 ;(R1) <-- コントローラー情報（連続） 880 mJSR PL_KEY_XMOV ;コントローラー入力（Ｘスピード制御） 880+ S0003C9 94 LINK #4 880+ S0003CA FF 1B8A' IWT R15, #PL_KEY_XMOV 880+ S0003CD 01 NOP 881 ; 882 ;-------------- 下向きチェック ---------------------------------- 883 ;;;; LM R1,CMKEYC1 ;(R1) <-- コントローラー情報（連続） 884 ; 885 S0003CE A9 FF IBT R9,#-1 ;(R9) <-- 下向きフラグ減算データ 886 S0003D0 3D A8 68 LMS R8,CPLDWFG ;(R8) <-- 下向きフラグ 887 S0003D3 B1 FROM R1 888 S0003D4 3E 74 AND #00000100B 889 S0003D6 09 05' BEQ YOSSY_SW_0202 ;下向く？ ( no:YOSSY_SW_0202 ) 890 S0003D8 60 SUB R0 ;[ (R0) <-- ＭＡＸチェックデータ ] 891 ; 892 S0003D9 A9 01 IBT R9,#1 ;(R9) <-- 下向きフラグ加算データ 893 S0003DB A0 09 IBT R0,#9 ;(R0) <-- ＭＡＸチェックデータ 894 YOSSY_SW_0202 895 S0003DD 68 SUB R8 896 S0003DE 09 04' BEQ YOSSY_SW_0204 ;下向きフラグＭＡＸ？ ( yes:YOSSY_SW_0204 ) 897 S0003E0 58 ADD R8 898 ; 899 S0003E1 B8 FROM R8 900 S0003E2 59 ADD R9 901 S0003E3 90 SBK ;[ SMS R0,CPLDWFG ] 902 YOSSY_SW_0204 903 ; 904 ;-------------- 水中泳ぎキャンセルチェック ------------------------------ 905 S0003E4 3D A2 55 LMS R2,CPLYSPD ;(R2) <-- Ｙスピード 906 S0003E7 A3 F0 IBT R3,#0F0H ;[ IWT R2,#0FFF0H ] (R3) <-- 浮力 907 ; 908 S0003E9 3D A0 7E LMS R0,CPLBGCR 909 S0003EC A4 18 IBT R4,#000011000B 910 S0003EE 74 AND R4 911 S0003EF 08 5D' BNE YOSSY_SW_0232 ;頭ＢＧ当たり？ ( yes:YOSSY_SW_0232 ) 912 S0003F1 01 NOP 913 ; 914 S0003F2 3D A7 7F LMS R7,CPLWATR ;(R7) <-- 水中フラグ 915 S0003F5 B7 FROM R7 916 S0003F6 74 AND R4 917 S0003F7 08 57' BNE YOSSY_SW_0240 ;頭水中？ ( yes:YOSSY_SW_0240 ) 918 S0003F9 01 NOP 919 ; 920 S0003FA B9 FROM R9 ;[ 0,-1 <- 1,-1 ] 921 S0003FB 96 ASR ; 922 S0003FC 58 ADD R8 923 S0003FD 3E 62 SUB #2 924 S0003FF 08 06' BNE YOSSY_SW_0206 ;下向き”バッシャーン”効果セット？ ( no:YOSSY_SW_0206 ) 925 S000401 01 NOP 926 ; 927 ;-------------- 水しぶきセット ---------------------------------- 928 mJSR WTUP0_SET ;”バッシャーン”効果セット 928+ S000402 94 LINK #4 928+ S000403 FF 0577' IWT R15, #WTUP0_SET 928+ S000406 01 NOP 929 ; 930 ;-------------- ”ピチャピチャ”セット -------------------------- 931 YOSSY_SW_0206 932 mJSR WTUP1_SET ;”ピチャピチャ”効果セット 932+ S000407 94 LINK #4 932+ S000408 FF 05BE' IWT R15, #WTUP1_SET 932+ S00040B 01 NOP 933 ; 934 ;-------------- 水面ジャンプチェック ---------------------------- 935 S00040C 3D A1 42 LMS R1,CP_KEY_JUMP ;(R1) <-- ジャンプボタン情報 936 ;;;; LMS R0,CP_KEY_JUMP ;(R0) <-- ジャンプボタン情報 937 ;;;; IWT R1,#0000100000000000B 938 ;;;; TO R1 ;(R1) <-- ジャンプｕｐキー 939 ;;;; OR R1 940 S00040F 3D A0 38 LMS R0,CMKEYC1L ;(R0) <-- コントローラー情報（連続） 941 S000412 71 AND R1 942 ;;;; SUB R1 943 S000413 09 18' BEQ YOSSY_SW_0210 ;ジャンプｕｐキー入力？ ( no:YOSSY_SW_0210 ) 944 S000415 01 NOP 945 ; 946 S000416 3D A0 68 LMS R0,CPLDWFG 947 S000419 3E 60 SUB #0 948 ;;;; LMS R1,CPLDWFG 949 ;;;; OR R1 950 S00041B 08 10' BNE YOSSY_SW_0210 ;ジャンプＯＫ？ ( no:YOSSY_SW_0210 ) 951 S00041D 01 NOP 952 ; 953 S00041E F0 0006 IWT R0,#P006 954 S000421 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグセット 955 S000424 F0 FB80 IWT R0,#0FB80H 956 S000427 3E A0 55 SMS R0,CPLYSPD ;ジャンプＹスピードセット 957 ;;;; IBT R0,#01H 958 ;;;; SMS R0,CPLSPJP ;ジタバタジャンプフラグ”ＯＮ” 959 S00042A 05 0F' BRA YOSSY_SW_0220 960 S00042C 60 SUB R0 ;[ * 泳ぎキャンセル ] 961 ; 962 YOSSY_SW_0210 963 S00042D F0 0140 IWT R0,#101000000B 964 S000430 77 AND R7 965 S000431 08 1D' BNE YOSSY_SW_0240 ;水面に顔が出た？ ( no:YOSSY_SW_0240 ) 966 S000433 60 SUB R0 ;[ * R0 <- 0 ] 967 ; 968 S000434 3D A4 60 LMS R4,CPLJUMP 969 S000437 64 SUB R4 ;[ * CMP #0 : R0=0 ] 970 S000438 08 0D' BNE YOSSY_SW_0230 ;着地？ ( no:YOSSY_SW_0230 ) 971 S00043A 60 SUB R0 ;[ * 泳ぎキャンセル ] 972 ; 973 YOSSY_SW_0220 974 S00043B 3E A0 63 SMS R0,CPLSWIM ;泳ぎキャンセル 975 ; 976 ;-------------- 水しぶきセット ---------------------------------- 977 mJSR WTUP0_SET ;”バッシャーン”効果セット 977+ S00043E 94 LINK #4 977+ S00043F FF 0577' IWT R15, #WTUP0_SET 977+ S000442 01 NOP 978 mDJMP YOSSY_SW_0600 978+ S000443 FF 04E7' IWT R15, #YOSSY_SW_0600 978+ S000446 01 NOP 979 ; 980 YOSSY_SW_0230 981 S000447 A0 D0 IBT R0,#0D0H ;[ IWT R0,#0FFD0H ] 982 S000449 62 SUB R2 983 S00044A 0B 02' BMI YOSSY_SW_0232 ;上昇スピードオーバー？ ( no:YOSSY_SW_0232 ) 984 S00044C 12 TO R2 ;[ * ] 985 ; 986 S00044D 52 ADD R2 ;[ PLYSPD <-- 0FFD0H ] 987 YOSSY_SW_0232 988 S00044E A3 02 IBT R3,#02H ;(R2) <-- 重力 989 ; 990 ;-------------- あぶくセット ------------------------------------ 991 YOSSY_SW_0240 992 mJSR BABL0_SET ;あぶく効果セット 992+ S000450 94 LINK #4 992+ S000451 FF 0626' IWT R15, #BABL0_SET 992+ S000454 01 NOP 993 ; 994 ;-------------- 浮力セット -------------------------------------- 995 YOSSY_SW_0250 996 S000455 B2 FROM R2 997 S000456 53 ADD R3 998 S000457 F3 FF00 IWT R3,#0FF00H 999 S00045A 63 SUB R3 1000 S00045B 0B 02' BMI YOSSY_SW_0300 ;上昇スピードオーバー？ ( no:YOSSY_SW_0300 ) 1001 S00045D 13 TO R3 1002 ; 1003 S00045E 53 ADD R3 1004 YOSSY_SW_0300 1005 S00045F 3E A3 55 SMS R3,CPLYSPD 1006 ; 1007 ;-------------- 泳ぎパターンセット ------------------------------ 1008 S000462 3D A1 7C LMS R1,CPLWALK ;(R1) <-- 泳ぎパターンカウンター 1009 S000465 3D A0 E9 LMS R0,CPLWKTM 1010 S000468 9E LOB 1011 S000469 08 36' BNE YOSSY_SW_0340 ;泳ぎパターン切り替え？ ( no:YOSSY_SW_0340 ) 1012 S00046B 01 NOP 1013 ; 1014 S00046C A0 04 IBT R0,#4 ;泳ぎパターン切り替えタイマーセット 1015 S00046E 90 SBK ;[ SMS R0,CPLWKTM ] 1016 ; 1017 S00046F 3D F0 0071 LM R0,CMKEYC1 ;(R0) <-- コントローラー情報（連続） 1018 S000473 3E 73 AND #00000011B ;[ (Z) <-- 移動キー入力？ ] 1019 ; 1020 S000475 A0 10 IBT R0,#(7+1)*2 ;(R0) <-- 目標泳ぎパターンカウンター（ダミー） 1021 S000477 08 10' BNE YOSSY_SW_0310 ;移動キー入力？ ( yes:YOSSY_SW_0310 ) 1022 S000479 01 NOP 1023 ; 1024 S00047A 3D A0 54 LMS R0,CPLXSPD 1025 S00047D A2 40 IBT R2,#040H 1026 S00047F 52 ADD R2 1027 S000480 F2 0081 IWT R2,#040H*2+1 1028 S000483 62 SUB R2 1029 S000484 0C 03' BCC YOSSY_SW_0310 ;移動中？？ ( no:YOSSY_SW_0310 ) 1030 S000486 60 SUB R0 ;(R0) <-- 目標泳ぎパターンカウンター 1031 ; 1032 S000487 A0 06 IBT R0,#3*2 ;(R0) <-- 目標泳ぎパターンカウンター 1033 YOSSY_SW_0310 1034 S000489 61 SUB R1 1035 S00048A 09 15' BEQ YOSSY_SW_0340 ;目標泳ぎパターンカウンター？ ( yes:YOSSY_SW_0340 ) 1036 S00048C 01 NOP ;(R0) <-- 泳ぎパターンカウンター加算値 1037 ; 1038 S00048D A0 FE IBT R0,#-2 ;(R0) <-- 泳ぎパターンカウンター加算値 1039 S00048F 0B 03' BMI YOSSY_SW_0320 1040 S000491 01 NOP 1041 ; 1042 S000492 A0 02 IBT R0,#2 ;(R0) <-- 泳ぎパターンカウンター加算値 1043 YOSSY_SW_0320 1044 S000494 11 TO R1 1045 S000495 51 ADD R1 1046 S000496 A0 0E IBT R0,#7*2 1047 S000498 61 SUB R1 1048 S000499 0D 03' BCS YOSSY_SW_0330 ;移動パターンＭＡＸオーバー？ ( no:YOSSY_SW_0330 ) 1049 S00049B 01 NOP 1050 ; 1051 S00049C A1 08 IBT R1,#4*2 1052 YOSSY_SW_0330 1053 S00049E 3E A1 7C SMS R1,CPLWALK ;泳ぎパターンカウンターセット 1054 ; 1055 YOSSY_SW_0340 1056 S0004A1 3D A0 68 LMS R0,CPLDWFG 1057 S0004A4 E0 DEC R0 1058 S0004A5 0B 10' BMI YOSSY_SW_0350 ;下向き？ ( no:YOSSY_SW_0350 ) 1059 S0004A7 D0 INC R0 1060 ; 1061 S0004A8 3E 69 SUB #9 1062 S0004AA 0D 0B' BCS YOSSY_SW_0350 ;下向き中間ポーズ？ ( no:YOSSY_SW_0350 ) 1063 S0004AC D1 INC R1 1064 ; 1065 ;-------------- 下向き中間ポーズパターンセット ---------- 1066 S0004AD 3E 59 ADD #9 1067 S0004AF 50 ADD R0 1068 S0004B0 FE 0000" IWT R14,#SWIM_DW_PATN 1069 S0004B3 1E TO R14 1070 S0004B4 05 07' BRA YOSSY_SW_0500 1071 S0004B6 5E ADD R14 1072 ; 1073 ;-------------- 泳ぎパターンセット ---------------------- 1074 YOSSY_SW_0350 1075 S0004B7 F0 0000" IWT R0,#SWIM_PATN 1076 S0004BA 51 ADD R1 1077 S0004BB 1E TO R14 1078 S0004BC 51 ADD R1 1079 ; 1080 ;-------------- パターンＮｏ．セット ------------------------------------ 1081 YOSSY_SW_0500 1082 ; 1083 ;-------------- 回転パターンセット ------------------------------ 1084 S0004BD 3D A0 A5 LMS R0,CPROTSP 1085 S0004C0 22 B0 MOVES R2,R0 1086 S0004C2 09 09' BEQ YOSSY_SW_0508 ;回転？ ( no:YOSSY_SW_0508 ) 1087 S0004C4 01 NOP 1088 ; 1089 mJSR PL_ROT_PATN_ST 1089+ S0004C5 94 LINK #4 1089+ S0004C6 FF 2587' IWT R15, #PL_ROT_PATN_ST 1089+ S0004C9 01 NOP 1090 S0004CA 05 1B' BRA YOSSY_SW_0600 1091 S0004CC 01 NOP 1092 ; 1093 YOSSY_SW_0508 1094 S0004CD 3D A0 A8 LMS R0,CBERFLG 1095 S0004D0 E0 DEC R0 1096 S0004D1 0A 14' BPL YOSSY_SW_0600 ;舌ショット中？ ( yes:YOSSY_SW_0600 ) 1097 S0004D3 01 NOP 1098 ; 1099 S0004D4 3D A0 6F LMS R0,CPLNAGE 1100 S0004D7 9E LOB 1101 S0004D8 09 06' BEQ YOSSY_SW_0510 ;タマゴ投げ中？ ( no:YOSSY_SW_0510 ) 1102 S0004DA 50 ADD R0 ;x2 1103 ; 1104 ;-------------- タマゴ投げパターンセット ---------------------- 1105 S0004DB FE FFFE" IWT R14,#NAGE_PATN-2 1106 S0004DE 1E TO R14 1107 S0004DF 5E ADD R14 1108 ; 1109 YOSSY_SW_0510 1110 S0004E0 EF GETB 1111 S0004E1 DE INC R14 1112 S0004E2 3D EF GETBH ;(R0) <-- パターンＮｏ． 1113 S0004E4 3E A0 5F SMS R0,CPLPATN ;パターンＮｏ．セット 1114 ; 1115 YOSSY_SW_0600 1116 S0004E7 60 SUB R0 ;<<< end >>> 1117 S0004E8 00 STOP 1118 S0004E9 01 NOP 1119 ; 1120 ;------------------------------------------------------------------------ 1121 ;- 水中チェック - 1122 ;------------------------------------------------------------------------ 1123 WATR_CHECK 1124 S0004EA 3E AB 32 SMS R11,RTS2 ;[ return address save ] 1125 ; 1126 S0004ED F1 0194 IWT R1,#110010100B ;(R1) <-- 左チェックデータ 1127 S0004F0 3D A0 46 LMS R0,CPLXPSL 1128 S0004F3 3E 78 AND #08H 1129 S0004F5 09 03' BEQ WATR_CHECK_0010 1130 S0004F7 01 NOP 1131 ; 1132 S0004F8 A1 69 IBT R1,#001101001B ;(R1) <-- 右チェックデータ 1133 WATR_CHECK_0010 1134 S0004FA 3D A0 7F LMS R0,CPLWATR 1135 S0004FD 71 AND R1 1136 S0004FE 61 SUB R1 1137 S0004FF 09 44' BEQ WATR_CHECK_0100 ;水中につかってる？ ( yes:WATR_CHECK_0100 ) 1138 S000501 51 ADD R1 1139 ; 1140 ;-------------- 水中歩きチェック ---------------------------------------- 1141 S000502 A4 0C IBT R4,#0CH ;(R4) <-- ”バッシャーン”セットＹ位置 1142 ; 1143 S000504 F1 00A0 IWT R1,#010100000B 1144 S000507 71 AND R1 1145 S000508 09 08' BEQ WATR_CHECK_0020 ;足下水中？ ( no:WATR_CHECK_0020 ) 1146 S00050A 01 NOP 1147 ; 1148 S00050B 3D A0 60 LMS R0,CPLJUMP 1149 S00050E E0 DEC R0 1150 S00050F 0B 0B' BMI WATR_CHECK_0030 ;着地？ ( yes:WATR_CHECK_0030 ) 1151 S000511 01 NOP 1152 ; 1153 WATR_CHECK_0020 1154 S000512 3D A0 64 LMS R0,CPLSWLK 1155 S000515 E0 DEC R0 1156 S000516 0A 51' BPL WATR_CHECK_0110 ;前回水中歩き？ ( yes:WATR_CHECK_0110 ) 1157 S000518 01 NOP 1158 ; 1159 S000519 05 57' BRA WATR_CHECK_0300 1160 S00051B 01 NOP 1161 ; 1162 WATR_CHECK_0030 1163 S00051C 3D A0 64 LMS R0,CPLSWLK 1164 S00051F 3E A0 7D SMS R0,CPLBGNO ;水中歩きセット 1165 S000522 E0 DEC R0 1166 S000523 0B 11' BMI WATR_CHECK_0040 ;前回水中歩き？ ( no:WATR_CHECK_0040 ) 1167 S000525 01 NOP 1168 ; 1169 ;-------------- 水中歩き処理 ------------------------------------ 1170 S000526 3D A0 61 LMS R0,CPLSITD 1171 S000529 3E 62 SUB #2 1172 S00052B 09 40' BEQ WATR_CHECK_0200 ;座った時の水しぶきセット？ ( yes:WATR_CHECK_0200 ) 1173 S00052D 01 NOP 1174 ; 1175 mJSR WTUP1_SET ;”ピチャピチャ”効果セット 1175+ S00052E 94 LINK #4 1175+ S00052F FF 05BE' IWT R15, #WTUP1_SET 1175+ S000532 01 NOP 1176 S000533 05 3D' BRA WATR_CHECK_0300 1177 S000535 01 NOP 1178 ; 1179 ;-------------- 水中歩き初期セット ------------------------------ 1180 WATR_CHECK_0040 1181 S000536 A0 00" IBT R0,#ON_WATR ;水中歩きフラグセット 1182 S000538 3E A0 64 SMS R0,CPLSWLK 1183 S00053B 60 SUB R0 ;Ｘスピードクリアー 1184 S00053C 3E A0 5A SMS R0,CPLMVSP 1185 S00053F 3E A0 54 SMS R0,CPLXSPD 1186 S000542 05 29' BRA WATR_CHECK_0200 1187 S000544 01 NOP 1188 ; 1189 ;-------------- 水中泳ぎチェック ---------------------------------------- 1190 WATR_CHECK_0100 1191 S000545 A4 00 IBT R4,#00H ;(R4) <-- ”バッシャーン”セットＹ位置 1192 ; 1193 ;;;; LMS R0,CPLJUMP 1194 ;;;; SUB #0 1195 ;;;; BEQ WATR_CHECK_0200 ;着地？ ( yes:WATR_CHECK_0200 ) 1196 ;;;; NOP 1197 ; 1198 S000547 3D A1 55 LMS R1,CPLYSPD ;(R1) <-- Ｙスピード 1199 S00054A 21 B1 MOVES R1,R1 1200 S00054C 0B 1F' BMI WATR_CHECK_0200 ;上昇中？ ( yes:WATR_CHECK_0200 ) 1201 S00054E 60 SUB R0 ;[ R0 <- 0 ] 1202 ; 1203 S00054F 3E A0 6A SMS R0,CPLDOSN ;”ドスーン！！”フラグリセット 1204 S000552 3E A0 7C SMS R0,CPLWALK ;泳ぎパターンカウンターリセット 1205 S000555 3E A0 E9 SMS R0,CPLWKTM ; ” 切り替えタイマーリセット 1206 S000558 3E A0 68 SMS R0,CPLDWFG ;下向きフラグリセット 1207 S00055B D0 INC R0 ;[ IBT R0,#01H ] 1208 S00055C 3E A0 63 SMS R0,CPLSWIM ;水中泳ぎフラグセット 1209 ; 1210 S00055F F0 0280 IWT R0,#0280H 1211 S000562 61 SUB R1 1212 S000563 0A 04' BPL WATR_CHECK_0110 ;飛び込みＹスピードオーバー？ ( no:WATR_CHECK_0110 ) 1213 S000565 51 ADD R1 1214 ; 1215 S000566 3E A0 55 SMS R0,CPLYSPD 1216 WATR_CHECK_0110 1217 S000569 60 SUB R0 ;[ IBT R0,#0 ] 1218 S00056A 3E A0 64 SMS R0,CPLSWLK ;水中歩きフラグリセット 1219 ; 1220 ;-------------- 水しぶきセット ---------------------------------- 1221 WATR_CHECK_0200 1222 mJSR WTUP0_SET_2 ;”バッシャーン”効果セット 1222+ S00056D 94 LINK #4 1222+ S00056E FF 0579' IWT R15, #WTUP0_SET_2 1222+ S000571 01 NOP 1223 ; 1224 WATR_CHECK_0300 1225 S000572 3D AB 32 LMS R11,RTS2 ;[ return address load ] 1226 mRTS 1226+ S000575 9B JMP R11 1226+ S000576 01 NOP 1227 ; 1228 ;------------------------------------------------------------------------ 1229 ;- ”バッシャーン”効果セット - 1230 ;- in : - 1231 ;- (R4) <-- ”バッシャーン”セットＹ位置 - 1232 ;- break : - 1233 ;- (R0)(R1)(R5)(R12)(R13) - 1234 ;------------------------------------------------------------------------ 1235 WTUP0_SET 1236 S000577 A4 04 IBT R4,#04H ;(R4) <-- ”バッシャーン”セットＹ位置 1237 WTUP0_SET_2 1238 S000579 3D A0 F4 LMS R0,CPTIMNG 1239 S00057C E0 DEC R0 1240 S00057D 0A 3D' BPL WTUP0_SET_010 ;セットＯＫ？ ( no:WTUP0_SET_010 ) 1241 S00057F 01 NOP 1242 ; 1243 S000580 A0 10 IBT R0,#010H ;”バッシャーン”セットウェイトタイマーセット 1244 S000582 90 SBK ;[ SMS R0,CPTIMNG ] 1245 ; 1246 S000583 A0 5F IBT R0,#05FH 1247 S000585 3E A0 3D SMS R0,CMSOUND3 ;[♪] 1248 ; 1249 S000588 3E AB 30 SMS R11,RTS0 ;[ return address save ] 1250 ; 1251 S00058B F5 0000" IWT R5,#WTUP0 ;(R5) <-- 効果Ｎｏ．（水しぶき） 1252 mJSR M_EXINSR ;効果エリア確保 1252+ S00058E 94 LINK #4 1252+ S00058F FF 2A7B' IWT R15, #M_EXINSR 1252+ S000592 01 NOP 1253 ; 1254 ;-------------- 水しぶきの初期セット ---------------------------- 1255 S000593 3D A5 46 LMS R5,CPLXPSL 1256 mSTW R5,CEXXPSL,R1 ;Ｘ座標セット 1256+ S000596 F0 10A2 IWT R0,#CEXXPSL 1256+ S000599 51 ADD R1 1256+ S00059A B5 FROM R5 1256+ S00059B 30 STW (R0) 1257 S00059C 3D A0 48 LMS R0,CPLYPSL 1258 S00059F 54 ADD R4 1259 S0005A0 15 TO R5 1260 S0005A1 3F 7F BIC #0FH ;[ AND #0FFF0H ] 1261 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 1261+ S0005A3 F0 1142 IWT R0,#CEXYPSL 1261+ S0005A6 51 ADD R1 1261+ S0005A7 B5 FROM R5 1261+ S0005A8 30 STW (R0) 1262 S0005A9 A5 1A IBT R5,#WUP0P 1263 mSTW R5,CEXWRK0,R1 ;カウンター初期セット 1263+ S0005AB F0 1E4C IWT R0,#CEXWRK0 1263+ S0005AE 51 ADD R1 1263+ S0005AF B5 FROM R5 1263+ S0005B0 30 STW (R0) 1264 S0005B1 A5 03 IBT R5,#3 1265 mSTW R5,CEXTIM0,R1 ;タイマー初期セット 1265+ S0005B3 F0 1782 IWT R0,#CEXTIM0 1265+ S0005B6 51 ADD R1 1265+ S0005B7 B5 FROM R5 1265+ S0005B8 30 STW (R0) 1266 ; 1267 S0005B9 3D AB 30 LMS R11,RTS0 ;[ return address load ] 1268 WTUP0_SET_010 1269 mRTS 1269+ S0005BC 9B JMP R11 1269+ S0005BD 01 NOP 1270 ; 1271 ;------------------------------------------------------------------------ 1272 ;- ”ピチャピチャ”効果セット - 1273 ;- in : - 1274 ;- (R4) <-- ”ピチャピチャ”セットＹ位置 - 1275 ;- break : - 1276 ;- (R0)(R1)(R5)(R6)(R12)(R13)(R14) - 1277 ;------------------------------------------------------------------------ 1278 WTUP1_SET 1279 S0005BE A4 0A IBT R4,#0AH ;(R4) <-- ”ピチャピチャ”セットＹ位置 1280 WTUP1_SET_2 1281 S0005C0 3D A0 54 LMS R0,CPLXSPD 1282 S0005C3 3E 60 SUB #0 1283 S0005C5 09 5D' BEQ WTUP1_SET_020 ;Ｘ移動？ ( no:WTUP1_SET_020 ) 1284 S0005C7 01 NOP 1285 ; 1286 S0005C8 A6 00 IBT R6,#00H ;(R6) <-- セット向き 1287 S0005CA 0A 05' BPL WTUP1_SET_010 1288 S0005CC 01 NOP 1289 ; 1290 S0005CD A6 02 IBT R6,#02H ;(R6) <-- セット向き 1291 S0005CF 4F NOT 1292 S0005D0 D0 INC R0 1293 WTUP1_SET_010 1294 S0005D1 C0 HIB 1295 S0005D2 50 ADD R0 1296 S0005D3 FE 0000" IWT R14,#WTUP1_STDT 1297 S0005D6 1E TO R14 1298 S0005D7 5E ADD R14 1299 S0005D8 EF GETB 1300 S0005D9 3D F5 1974 LM R5,CFRCNT2 1301 S0005DD 75 AND R5 1302 S0005DE 08 44' BNE WTUP1_SET_020 ;”ピチャピチャ”セットＯＫ？ ( no:WTUP1_SET_020 ) 1303 S0005E0 DE INC R14 1304 ; 1305 S0005E1 3E AB 30 SMS R11,RTS0 ;[ return address save ] 1306 ; 1307 S0005E4 F5 0000" IWT R5,#WTUP1 ;(R5) <-- 効果Ｎｏ．（”ピチャピチャ”） 1308 mJSR M_EXINSR ;効果エリア確保 1308+ S0005E7 94 LINK #4 1308+ S0005E8 FF 2A7B' IWT R15, #M_EXINSR 1308+ S0005EB 01 NOP 1309 ; 1310 ;-------------- ”ピチャピチャ”初期セット ---------------------- 1311 S0005EC 3D A0 60 LMS R0,CPLJUMP 1312 S0005EF E0 DEC R0 1313 S0005F0 A0 03 IBT R0,#03H 1314 S0005F2 0A 03' BPL WTUP1_SET_012 ;水中歩き？ ( no:WTUP1_SET_012 ) 1315 S0005F4 01 NOP 1316 ; 1317 S0005F5 A0 60 IBT R0,#060H 1318 WTUP1_SET_012 1319 S0005F7 3E A0 3D SMS R0,CMSOUND3 ;[♪] 1320 ; 1321 mSTW R6,CEXMUKI,R1 ;向きセット 1321+ S0005FA F0 13C0 IWT R0,#CEXMUKI 1321+ S0005FD 51 ADD R1 1321+ S0005FE B6 FROM R6 1321+ S0005FF 30 STW (R0) 1322 S000600 3D A5 46 LMS R5,CPLXPSL 1323 mSTW R5,CEXXPSL,R1 ;Ｘ座標セット 1323+ S000603 F0 10A2 IWT R0,#CEXXPSL 1323+ S000606 51 ADD R1 1323+ S000607 B5 FROM R5 1323+ S000608 30 STW (R0) 1324 S000609 3D A0 48 LMS R0,CPLYPSL 1325 S00060C 54 ADD R4 1326 S00060D 3F 7F BIC #0FH ;[ AND #0FFF0H ] 1327 S00060F 15 TO R5 1328 S000610 EF GETB 1329 S000611 15 TO R5 1330 S000612 55 ADD R5 1331 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 1331+ S000613 F0 1142 IWT R0,#CEXYPSL 1331+ S000616 51 ADD R1 1331+ S000617 B5 FROM R5 1331+ S000618 30 STW (R0) 1332 S000619 A5 13 IBT R5,#WUP1P 1333 mSTW R5,CEXTIM0,R1 ;タイマー初期セット 1333+ S00061B F0 1782 IWT R0,#CEXTIM0 1333+ S00061E 51 ADD R1 1333+ S00061F B5 FROM R5 1333+ S000620 30 STW (R0) 1334 ; 1335 S000621 3D AB 30 LMS R11,RTS0 ;[ return address load ] 1336 WTUP1_SET_020 1337 mRTS 1337+ S000624 9B JMP R11 1337+ S000625 01 NOP 1338 ; 1339 ;------------------------------------------------------------------------ 1340 ;- あぶく効果セット - 1341 ;- in : - 1342 ;- (R4) <-- あぶくセットＸ位置 - 1343 ;- (R6) <-- あぶくセットＹ位置 - 1344 ;- break : - 1345 ;- (R0)(R1)(R5)(R12)(R13) - 1346 ;------------------------------------------------------------------------ 1347 BABL0_SET 1348 S000626 A4 10 IBT R4,#010H 1349 S000628 A6 F8 IBT R6,#0F8H ;[ IWT R6,#0FFF8H ] 1350 BABL0_SET_2 1351 S00062A 3D F0 1974 LM R0,CFRCNT2 1352 S00062E A5 7F IBT R5,#7FH 1353 S000630 75 AND R5 1354 S000631 08 41' BNE BABL0_SET_020 ;あぶくセットＯＫ？ ( no:BABL0_SET_020 ) 1355 S000633 01 NOP 1356 ; 1357 S000634 3E AB 30 SMS R11,RTS0 ;[ return address save ] 1358 ; 1359 S000637 F5 0000" IWT R5,#BABL0 ;(R5) <-- 効果Ｎｏ．（あぶく） 1360 mJSR M_EXINSR ;効果エリア確保 1360+ S00063A 94 LINK #4 1360+ S00063B FF 2A7B' IWT R15, #M_EXINSR 1360+ S00063E 01 NOP 1361 ; 1362 ;-------------- あぶく初期セット -------------------------------- 1363 S00063F 3D F5 1970 LM R5,CRANDM0 1364 mSTW R5,CEXWRK0,R1 ;ランダムデータセット 1364+ S000643 F0 1E4C IWT R0,#CEXWRK0 1364+ S000646 51 ADD R1 1364+ S000647 B5 FROM R5 1364+ S000648 30 STW (R0) 1365 S000649 3D A5 46 LMS R5,CPLXPSL ;(R5) <-- プレイヤーＸ座標 1366 S00064C 3D A0 62 LMS R0,CPLCMKI 1367 S00064F E0 DEC R0 1368 S000650 0B 04' BMI BABL0_SET_010 1369 S000652 B4 FROM R4 1370 ; 1371 S000653 4F NOT 1372 S000654 3E 54 ADD #4 1373 BABL0_SET_010 1374 S000656 15 TO R5 1375 S000657 55 ADD R5 1376 mSTW R5,CEXXPSL,R1 ;Ｘ座標セット 1376+ S000658 F0 10A2 IWT R0,#CEXXPSL 1376+ S00065B 51 ADD R1 1376+ S00065C B5 FROM R5 1376+ S00065D 30 STW (R0) 1377 S00065E 3D A0 48 LMS R0,CPLYPSL 1378 S000661 15 TO R5 1379 S000662 56 ADD R6 1380 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 1380+ S000663 F0 1142 IWT R0,#CEXYPSL 1380+ S000666 51 ADD R1 1380+ S000667 B5 FROM R5 1380+ S000668 30 STW (R0) 1381 S000669 A5 FF IBT R5,#0FFH ;[ !=0 ] 1382 mSTW R5,CEXTIM0,R1 ;タイマー初期セット 1382+ S00066B F0 1782 IWT R0,#CEXTIM0 1382+ S00066E 51 ADD R1 1382+ S00066F B5 FROM R5 1382+ S000670 30 STW (R0) 1383 ; 1384 S000671 3D AB 30 LMS R11,RTS0 ;[ return address load ] 1385 BABL0_SET_020 1386 mRTS 1386+ S000674 9B JMP R11 1386+ S000675 01 NOP 1387 ; 1388 ;;;;;************************************************************************ 1389 ;;;;;* * 1390 ;;;;;* タイマー計算 * 1391 ;;;;;* * 1392 ;;;;;************************************************************************ 1393 ;;;;; 1394 ;;;;TIMER_CALC 1395 ;;;; IWT R1,#CMTIMST ;(R1) <-- タイマーＲＡＭポインター 1396 ;;;; IBT R2,#00 ;(R2) <-- ０チェック用データ 1397 ;;;;; 1398 ;;;; CACHE 1399 ;;;;; 1400 ;;;; IBT R12,#(CMTIMEN-CMTIMST)/2 1401 ;;;; MOVE R13,R15 1402 ;;;;TIMER_CALC_010 1403 ;;;; LDW (R1) 1404 ;;;; SUB R2 1405 ;;;; BEQ TIMER_CALC_020 ;タイマー０？ ( yes:TIMER_CALC_020 ) 1406 ;;;; DEC R0 1407 ;;;;; 1408 ;;;; SBK ;[ STW (R1) ] 1409 ;;;;TIMER_CALC_020 1410 ;;;; INC R1 1411 ;;;; LOOP 1412 ;;;; INC R1 1413 ;;;;; 1414 ;;;; mRTS 1415 ; 1416 ;************************************************************************ 1417 ;* * 1418 ;* 座標計算（重力セット） * 1419 ;* * 1420 ;************************************************************************ 1421 ; 1422 PL_CALC 1423 S000676 3D A0 D7 LMS R0,CPLSTFG 1424 S000679 50 ADD R0 1425 S00067A 0C 03' BCC PL_CALC_FFFE ;赤ちゃん捕獲中？ ( no:PL_CALC_FFFE ) 1426 S00067C 01 NOP 1427 ; 1428 mRTS 1428+ S00067D 9B JMP R11 1428+ S00067E 01 NOP 1429 ; 1430 PL_CALC_FFFE 1431 S00067F 3D A1 38 LMS R1,CMKEYC1L ;(R1) <-- コントローラー情報 1432 S000682 3D A2 55 LMS R2,CPLYSPD ;(R2) <-- Ｙスピード 1433 S000685 3D A0 69 LMS R0,CPLSPJP 1434 S000688 13 TO R3 ;(R3) <-- ジタバタジャンプフラグ 1435 S000689 9E LOB 1436 S00068A C0 HIB 1437 S00068B 18 TO R8 ;(R8) <-- 敵踏んずけジタバタジャンプフラグ 1438 S00068C 4D SWAP 1439 ; 1440 S00068D 3D F4 1E3A LM R4,CPL_ADD_XSP ;(R4) <-- プレイヤーＸ方向圧力 1441 S000691 60 SUB R0 1442 S000692 90 SBK ;[ SM R0,CPL_ADD_XSP ] 1443 S000693 3D A0 5A LMS R0,CPLMVSP 1444 S000696 16 TO R6 ;(R6) <-- 移動スピード 1445 S000697 54 ADD R4 1446 ; 1447 S000698 3D A5 60 LMS R5,CPLJUMP ;(R5) <-- ジャンプフラグ 1448 S00069B E5 DEC R5 1449 S00069C 0A 6B' BPL PL_CALC_0100 ;プレイヤージャンプ ？ ( yes:PL_CALC_0100 ) 1450 S00069E D5 INC R5 1451 ; 1452 S00069F 24 B4 MOVES R4,R4 1453 S0006A1 08 02' BNE PL_CALC_FFFF ;滝床？ ( yes:PL_CALC_FFFF ) 1454 S0006A3 60 SUB R0 ;ジタバタジャンプフラグ”ＯＦＦ” 1455 ; 1456 S0006A4 D0 INC R0 ;ジタバタジャンプフラグ”ＯＮ” 1457 PL_CALC_FFFF 1458 S0006A5 3E A0 69 SMS R0,CPLSPJP ;ジタバタジャンプフラグセット 1459 ; 1460 ;------------------------------------------------------------------------ 1461 ;- プレイヤー着地状態 - 1462 ;------------------------------------------------------------------------ 1463 PL_CALC_NOJUMP 1464 S0006A8 A0 00" IBT R0,#BANK LCOS 1465 S0006AA 3F DF ROMB ;※ＲＯＭアドレス変更（にて復帰） 1466 ; 1467 S0006AC 3D A7 5B LMS R7,CPLANGL ;(R7) <-- 足下角度 1468 S0006AF F0 0000" IWT R0,#LCOS 1469 S0006B2 1E TO R14 1470 S0006B3 57 ADD R7 1471 S0006B4 3F EF GETBS 1472 S0006B6 50 ADD R0 1473 S0006B7 50 ADD R0 ;[ 100H <-- 040H ] 1474 S0006B8 3D 9F LMULT 1475 S0006BA 24 WITH R4 1476 S0006BB C0 HIB 1477 S0006BC 9E LOB 1478 S0006BD 4D SWAP 1479 S0006BE 19 TO R9 ;(R9) <-- Ｘスピード 1480 S0006BF C4 OR R4 1481 S0006C0 3E A9 54 SMS R9,CPLXSPD ;Ｘスピードセット 1482 ; 1483 S0006C3 0A 03' BPL PL_CALC_0000 1484 S0006C5 29 WITH R9 1485 ; 1486 S0006C6 4F NOT 1487 S0006C7 D9 INC R9 1488 ; 1489 PL_CALC_0000 1490 S0006C8 3D F0 01B4 LM R0,CONLFFG 1491 S0006CC 3E 60 SUB #0 1492 S0006CE 09 05' BEQ PL_CALC_0010 ;リフトに乗ってる？ ( no:PL_CALC_0010 ) 1493 S0006D0 01 NOP 1494 ; 1495 mDJMP PL_CALC_0200 1495+ S0006D1 FF 07C1' IWT R15, #PL_CALC_0200 1495+ S0006D4 01 NOP 1496 ; 1497 PL_CALC_0010 1498 S0006D5 3D A0 57 LMS R0,CPLTYPE ;くるまよしお ? 1499 S0006D8 3E 62 SUB #P_CAR ; 1500 S0006DA 09 29' BEQ PL_CALC_0040 ; yes: PL_CALC_0040 1501 S0006DC 01 NOP 1502 1503 S0006DD F0 0000" IWT R0,#LSIN 1504 S0006E0 1E TO R14 1505 S0006E1 57 ADD R7 1506 S0006E2 3F EF GETBS 1507 S0006E4 50 ADD R0 1508 S0006E5 50 ADD R0 ;[ 100H <-- 040H ] 1509 S0006E6 3D 9F LMULT 1510 S0006E8 24 WITH R4 1511 S0006E9 C0 HIB 1512 S0006EA 9E LOB 1513 S0006EB 4D SWAP 1514 S0006EC C4 OR R4 1515 S0006ED 3E F0 1E3C SM R0,CPL_ANGL_YSP ;移動角度Ｙスピードセット 1516 S0006F1 0B 02' BMI PL_CALC_0012 ;上昇？ ( yes:PL_CALC_0012 ) 1517 S0006F3 01 NOP 1518 ; 1519 S0006F4 59 ADD R9 ;Ｘスピード加算 1520 PL_CALC_0012 1521 ;;;; IWT R4,#01FFH ;※足が離れるのを防ぐため 1522 S0006F5 F4 0300 IWT R4,#0300H ;※足が離れるのを防ぐため 1523 ;;;; LMS R5,CBG2OF_FG 1524 ;;;; DEC R5 1525 ;;;; BMI PL_CALC_0014 ;オフセットモード？ ( no:PL_CALC_0014 ) 1526 ;;;; NOP 1527 ;;;;; 1528 ;;;; IWT R4,#0300H ;※足が離れるのを防ぐため 1529 ;;;;PL_CALC_0014 1530 S0006F8 54 ADD R4 1531 ;;;;;;;; IWT R4,#0400H 1532 ;;;; IWT R4,#0600H 1533 S0006F9 F4 0700 IWT R4,#0700H 1534 S0006FC 64 SUB R4 1535 S0006FD 0B 03' BMI PL_CALC_0020 ;ＭＡＸＹスピードオーバー？ ( no:PL_CALC_0020 ) 1536 S0006FF 54 ADD R4 1537 ; 1538 S000700 24 10 MOVE R0,R4 1539 PL_CALC_0020 1540 S000702 3E A0 55 SMS R0,CPLYSPD ;Ｙスピードセット 1541 ; 1542 PL_CALC_0040 1543 mDJMP XY_CALC 1543+ S000705 FF 0811' IWT R15, #XY_CALC 1543+ S000708 01 NOP 1544 ; 1545 ;------------------------------------------------------------------------ 1546 ;- プレイヤージャンプ中 - 1547 ;------------------------------------------------------------------------ 1548 PL_CALC_0100 1549 S000709 3E A6 54 SMS R6,CPLXSPD ;Ｘスピードセット 1550 ;;;; SUB R0 1551 ;;;; SMS R0,CPLSITD ;お座りキャンセル（ジタバタジャンプしない様に） 1552 ; 1553 S00070C E3 DEC R3 1554 S00070D 0A 1C' BPL PL_CALC_0106 ;ジタバタジャンプ中？ ( yes:PL_CALC_0106 ) 1555 S00070F D3 INC R3 1556 ; 1557 ;-------------- ＮＥＸＴジタバタジャンプチェック ------------------------ 1558 S000710 3D A0 39 LMS R0,CMKEYC2L ;(R0) <-- コントローラー情報（トリガー） 1559 ;;;; LMS R0,CMKEYC1L ;(R0) <-- コントローラー情報（トリガー） 1560 S000713 3D A7 42 LMS R7,CP_KEY_JUMP ;(R7) <-- ジャンプボタン情報 1561 S000716 77 AND R7 1562 S000717 09 09' BEQ PL_CALC_0102 ;ジャンプキー入力？ ( no:PL_CALC_0102 ) 1563 S000719 01 NOP 1564 ; 1565 S00071A 3D A0 F3 LMS R0,CPSPJTM 1566 S00071D 3E 68 SUB #8 1567 S00071F 0C 05' BCC PL_CALC_0104 ;ＮＥＸＴジタバタジャンプＯＫ？ ( yes:PL_CALC_0104 ) 1568 S000721 01 NOP 1569 ; 1570 PL_CALC_0102 1571 mDJMP PL_CALC_0200 1571+ S000722 FF 07C1' IWT R15, #PL_CALC_0200 1571+ S000725 01 NOP 1572 ; 1573 PL_CALC_0104 1574 S000726 A3 01 IBT R3,#01H ;ＮＥＸＴジタバタジャンプ”ＯＮ” 1575 S000728 3E A3 69 SMS R3,CPLSPJP 1576 ; 1577 ;-------------- ジタバタジャンプ ---------------------------------------- 1578 PL_CALC_0106 1579 S00072B 3D A0 F3 LMS R0,CPSPJTM 1580 S00072E E0 DEC R0 1581 S00072F 0A F1' BPL PL_CALC_0102 ;ジタバタジャンプウェイト？ ( yes:PL_CALC_0102 ) 1582 S000731 01 NOP 1583 ; 1584 S000732 3D A0 57 LMS R0,CPLTYPE 1585 S000735 E0 DEC R0 1586 S000736 0B 07' BMI PL_CALC_0107 ;変身中？ ( no:PL_CALC_0107 ) 1587 S000738 D0 INC R0 1588 ; 1589 S000739 A7 10 IBT R7,#P_MARIO 1590 S00073B 67 SUB R7 1591 S00073C 08 73' BNE PL_CALC_0190 ;マリオ以外の変身？ ( yes:PL_CALC_0190 ) 1592 S00073E 01 NOP 1593 ; 1594 PL_CALC_0107 1595 S00073F 3D A0 61 LMS R0,CPLSITD 1596 S000742 E0 DEC R0 1597 S000743 0A 6C' BPL PL_CALC_0190 ;お座り？ ( yes:PL_CALC_0190 ) 1598 S000745 E3 DEC R3 1599 ; 1600 S000746 08 19' BNE PL_CALC_0110 ;ジタバタジャンプ初期セット？ ( no:PL_CALC_0110 ) 1601 S000748 D3 INC R3 1602 ; 1603 ;-------------- ジタバタジャンプ初期セット ---------------------- 1604 ;;;; IWT R0,#0110H 1605 S000749 F0 0160 IWT R0,#0160H 1606 S00074C 62 SUB R2 1607 S00074D 0A 72' BPL PL_CALC_0200 ;ジタバタジャンプセット？ ( no:PL_CALC_0200 ) 1608 S00074F 01 NOP 1609 ; 1610 S000750 3D A0 42 LMS R0,CP_KEY_JUMP ;(R0) <-- ジャンプボタン情報 1611 S000753 71 AND R1 1612 S000754 08 05' BNE PL_CALC_0108 ;ジャンプキー入力？ ( yes:PL_CALC_0108 ) 1613 S000756 01 NOP 1614 ; 1615 mDJMP PL_CALC_0210 1615+ S000757 FF 07DB' IWT R15, #PL_CALC_0210 1615+ S00075A 01 NOP 1616 ; 1617 PL_CALC_0108 1618 S00075B D3 INC R3 ;(R3) <-- 02H 1619 S00075C B3 FROM R3 1620 S00075D C8 OR R8 1621 S00075E 3E A0 69 SMS R0,CPLSPJP ;ジタバタジャンプセット 1622 ; 1623 ;-------------- ジタバタジャンプ処理 ---------------------------- 1624 PL_CALC_0110 1625 S000761 3D A0 42 LMS R0,CP_KEY_JUMP ;(R0) <-- ジャンプボタン情報 1626 S000764 71 AND R1 1627 S000765 09 4A' BEQ PL_CALC_0190 ;ジャンプキー入力？ ( no:PL_CALC_0190 ) 1628 S000767 01 NOP 1629 ; 1630 S000768 3D A0 57 LMS R0,CPLTYPE 1631 S00076B A7 10 IBT R7,#P_MARIO 1632 S00076D 67 SUB R7 1633 S00076E 08 05' BNE PL_CALC_0111 ;マリオ？ ( no:PL_CALC_0111 ) 1634 S000770 01 NOP 1635 ; 1636 mDJMP MR_HOBARING 1636+ S000771 FF 0881' IWT R15, #MR_HOBARING 1636+ S000774 01 NOP 1637 ; 1638 PL_CALC_0111 1639 ;;;; IWT R0,#0FE70H 1640 S000775 F0 FE80 IWT R0,#0FE80H 1641 S000778 28 B8 MOVES R8,R8 1642 S00077A 0A 04' BPL PL_CALC_0112 ;敵踏んずけジタバタジャンプ？ ( no:PL_CALC_0112 ) 1643 S00077C 01 NOP 1644 ; 1645 S00077D F0 FD40 IWT R0,#0FD40H 1646 PL_CALC_0112 1647 S000780 62 SUB R2 1648 S000781 0A 2E' BPL PL_CALC_0190 ;ジタバタジャンプ終了？ ( yes:PL_CALC_0190 ) 1649 S000783 01 NOP 1650 ; 1651 S000784 3D A0 EA LMS R0,CPLJPTM 1652 S000787 9E LOB 1653 S000788 08 16' BNE PL_CALC_0130 ;ジタバタパターン切り替え？ ( no:PL_CALC_0130 ) 1654 S00078A D0 INC R0 1655 ; 1656 S00078B D0 INC R0 ;[ IBT R0,#02H ] 1657 S00078C 90 SBK ;[ SMS R0,CPLJPTM ] 1658 ; 1659 S00078D D3 INC R3 1660 S00078E B3 FROM R3 1661 S00078F 3E 68 SUB #08H+1-1 1662 S000791 0C 08' BCC PL_CALC_0120 1663 S000793 D3 INC R3 1664 ; 1665 S000794 A3 04 IBT R3,#04H 1666 ; 1667 S000796 A0 37 IBT R0,#037H 1668 S000798 3E A0 3D SMS R0,CMSOUND3 ;[♪] 1669 ; 1670 PL_CALC_0120 1671 S00079B B3 FROM R3 1672 S00079C C8 OR R8 1673 S00079D 3E A0 69 SMS R0,CPLSPJP ;ジタバタパターンセット 1674 ; 1675 PL_CALC_0130 1676 S0007A0 F0 FEF0 IWT R0,#-0110H 1677 S0007A3 52 ADD R2 1678 S0007A4 0A 02' BPL PL_CALC_0140 1679 S0007A6 01 NOP 1680 ; 1681 S0007A7 60 SUB R0 1682 PL_CALC_0140 1683 S0007A8 03 LSR 1684 S0007A9 03 LSR 1685 S0007AA 03 LSR 1686 S0007AB 4F NOT 1687 S0007AC A7 F1 IBT R7,#0F0H+1 ;[ IWT R7,#0FFF0H+1 ] 1688 S0007AE 05 2E' BRA PL_CALC_0220 1689 S0007B0 57 ADD R7 1690 ; 1691 ;-------------- ジタバタジャンプ終了 ---------------------------- 1692 PL_CALC_0190 1693 S0007B1 A3 00 IBT R3,#00 1694 S0007B3 3E A3 69 SMS R3,CPLSPJP 1695 ;;;; IBT R0,#010H ;ジタバタジャンプＮＥＸＴウェイトタイマー 1696 S0007B6 A0 12 IBT R0,#012H ;ジタバタジャンプＮＥＸＴウェイトタイマー 1697 S0007B8 3E A0 F3 SMS R0,CPSPJTM 1698 S0007BB F0 0006 IWT R0,#P006 ;ジャンプパターンリセット 1699 S0007BE 3E A0 60 SMS R0,CPLJUMP 1700 ; 1701 ;-------------- 普通のジャンプ ------------------------------------------ 1702 PL_CALC_0200 1703 S0007C1 3D A0 EE LMS R0,CPHBOYO 1704 S0007C4 E0 DEC R0 1705 S0007C5 0A 17' BPL PL_CALC_0220 ;頭ＢＧ当たり”ボヨヨーン”？ ( yes:PL_CALC_0220 ) 1706 S0007C7 60 SUB R0 ;無重力セット 1707 ; 1708 S0007C8 A7 40 IBT R7,#040H 1709 S0007CA 3D A0 57 LMS R0,CPLTYPE 1710 S0007CD 3E 62 SUB #P_CAR 1711 S0007CF 09 0D' BEQ PL_CALC_0220 ;くるま? ( yes:PL_CALC_0220 ) 1712 S0007D1 B7 FROM R7 1713 1714 S0007D2 A7 28 IBT R7,#028H ;(R7) <-- 軽い重力 1715 S0007D4 3D A0 42 LMS R0,CP_KEY_JUMP ;(R0) <-- ジャンプボタン情報 1716 S0007D7 71 AND R1 1717 S0007D8 08 04' BNE PL_CALC_0220 ;軽い重力？ ( yes:PL_CALC_0220 ) 1718 S0007DA B7 FROM R7 1719 ; 1720 PL_CALC_0210 1721 S0007DB F0 00A0 IWT R0,#0A0H ;(R0) <-- 重い重力 1722 ; 1723 PL_CALC_JUMP 1724 PL_CALC_0220 1725 S0007DE 12 TO R2 ;(R2) <-- 計算後Ｙスピード 1726 S0007DF 52 ADD R2 1727 S0007E0 0B 2C' BMI PL_CALC_0250 ;上昇中？ ( yes:PL_CALC_0250 ) 1728 S0007E2 01 NOP 1729 ; 1730 S0007E3 F0 0400 IWT R0,#0400H 1731 S0007E6 62 SUB R2 1732 S0007E7 0D 03' BCS PL_CALC_0230 ;最大落下スピードオーバー？ ( no:PL_CALC_0230 ) 1733 S0007E9 52 ADD R2 1734 ; 1735 S0007EA 20 12 MOVE R2,R0 1736 PL_CALC_0230 1737 S0007EC 25 B5 MOVES R5,R5 ;※リフトに乗っている時の為 1738 S0007EE 09 1E' BEQ PL_CALC_0250 ;ジャンプ中？ ( no:PL_CALC_0250 ) 1739 S0007F0 B3 FROM R3 1740 ; 1741 ;-------------- 落下パターンセット ------------------------------ 1742 S0007F1 3E 62 SUB #02H 1743 S0007F3 0D 19' BCS PL_CALC_0250 ;ジタバタジャンプ中？ ( yes:PL_CALC_0250 ) 1744 S0007F5 01 NOP 1745 ; 1746 S0007F6 F7 0008 IWT R7,#P008 ;(R7) <-- 落下パターンＮｏ． 1747 S0007F9 B5 FROM R5 1748 S0007FA 67 SUB R7 1749 S0007FB 0D 0E' BCS PL_CALC_0240 ;落下パターンＭＡＸ？ ( yes:PL_CALC_0240 ) 1750 S0007FD 01 NOP 1751 ; 1752 S0007FE 3D A0 EA LMS R0,CPLJPTM 1753 S000801 9E LOB 1754 S000802 08 07' BNE PL_CALC_0240 ;パターン切り替え？ ( no:PL_CALC_0240 ) 1755 S000804 01 NOP 1756 ; 1757 S000805 D5 INC R5 1758 S000806 A0 08 IBT R0,#08H 1759 S000808 3E A0 EA SMS R0,CPLJPTM 1760 PL_CALC_0240 1761 S00080B 3E A5 60 SMS R5,CPLJUMP ;ジャンプパターンセット 1762 ; 1763 PL_CALC_0250 1764 S00080E 3E A2 55 SMS R2,CPLYSPD ;Ｙスピードセット 1765 ; 1766 ;------------------------------------------------------------------------ 1767 ;- Ｘ，Ｙ座標計算 - 1768 ;------------------------------------------------------------------------ 1769 XY_CALC 1770 S000811 A0 00" IBT R0,#BANK PLAYER_DATA 1771 S000813 3F DF ROMB ;ＲＯＭアドレス復帰 1772 ; 1773 S000815 3D A1 54 LMS R1,CPLXSPD ;(R1) <-- Ｘスピード 1774 S000818 3D A2 55 LMS R2,CPLYSPD ;(R2) <-- Ｙ ” 1775 ; 1776 ;-------------- 座標計算 ------------------------------------------------ 1777 XY_CALC_0500 1778 S00081B 3D F0 1E3E LM R0,CPOLYONFG 1779 S00081F 3E 60 SUB #0 1780 S000821 09 42' BEQ XY_CALC_0540 ;横回転ＢＧ３ポリゴン乗ってる？ ( no:XY_CALC_0540 ) 1781 S000823 01 NOP 1782 ; 1783 ;-------------- 横回転ＢＧ３ポリゴンＸ座標計算 ------------------ 1784 S000824 A0 00" IBT R0,#BANK COS 1785 S000826 3F DF ROMB 1786 ; 1787 S000828 3D F3 1E40 LM R3,CPOLYANG ;(R3) <-- 横回転ＢＧ３ポリゴン回転角度 1788 S00082C F0 0000" IWT R0,#COS 1789 S00082F 53 ADD R3 1790 S000830 1E TO R14 1791 S000831 53 ADD R3 1792 S000832 EF GETB 1793 S000833 DE INC R14 1794 S000834 16 TO R6 ;(R6) <-- ＣＯＳデータ 1795 S000835 3D EF GETBH 1796 ; 1797 S000837 A0 C0 IBT R0,#-40H 1798 S000839 53 ADD R3 1799 S00083A 4D SWAP ;(N) set 1800 S00083B 0B 03' BMI XY_CALC_0510 1801 S00083D 21 WITH R1 1802 ; 1803 S00083E 4F NOT 1804 S00083F D1 INC R1 1805 XY_CALC_0510 1806 S000840 3D F0 1E44 LM R0,CPOLYPLXD 1807 S000844 9E LOB 1808 S000845 51 ADD R1 ;(C) 1809 S000846 90 SBK ;[ SMS CPLXSDR ] 1810 S000847 C0 HIB 1811 S000848 95 SEX 1812 S000849 3D F1 1E46 LM R1,CPOLYPLXL 1813 S00084D 51 ADD R1 1814 S00084E 90 SBK ;[ SMS CPOLYPLXL ] 1815 ; 1816 S00084F 3D 9F LMULT 1817 S000851 24 WITH R4 1818 S000852 C0 HIB 1819 S000853 9E LOB 1820 S000854 4D SWAP 1821 S000855 C4 OR R4 1822 S000856 3D F3 1E42 LM R3,CPOLYXPS 1823 S00085A 53 ADD R3 1824 S00085B 3E A0 46 SMS R0,CPLXPSL 1825 ; 1826 S00085E A0 00" IBT R0,#BANK PLAYER_DATA 1827 S000860 3F DF ROMB ;ＲＯＭアドレス復帰 1828 ; 1829 S000862 05 0E' BRA XY_CALC_0550 1830 S000864 01 NOP 1831 ; 1832 XY_CALC_0540 1833 S000865 3D A0 45 LMS R0,CPLXSDR 1834 S000868 9E LOB 1835 S000869 51 ADD R1 ;(C) 1836 S00086A 90 SBK ;[ SMS CPLXSDR ] 1837 S00086B C0 HIB 1838 S00086C 95 SEX 1839 S00086D 3D A1 46 LMS R1,CPLXPSL 1840 S000870 51 ADD R1 1841 S000871 90 SBK ;[ SMS CPLXPSL ] 1842 ; 1843 XY_CALC_0550 1844 S000872 3D A0 47 LMS R0,CPLYSDR 1845 S000875 9E LOB 1846 S000876 52 ADD R2 ;(C) 1847 S000877 90 SBK ;[ SMS CPLYSDR ] 1848 S000878 C0 HIB 1849 S000879 95 SEX 1850 S00087A 3D A2 48 LMS R2,CPLYPSL 1851 S00087D 52 ADD R2 1852 S00087E 90 SBK ;[ SMS CPLYPSL ] 1853 ; 1854 mRTS 1854+ S00087F 9B JMP R11 1854+ S000880 01 NOP 1855 ; 1856 ;---------------------------------------------------------------- 1857 ;- マリオホバリング処理 - 1858 ;---------------------------------------------------------------- 1859 MR_HOBARING 1860 S000881 F6 0100 IWT R6,#0100H ;(R6) <-- ＭＡＸＹスピード 1861 ; 1862 S000884 B3 FROM R3 1863 S000885 3E 65 SUB #2+3 1864 S000887 0C 67' BCC MR_HOBARING_008 ;ホバリング状態？ ( no:MR_HOBARING0_008 ) 1865 S000889 01 NOP 1866 ; 1867 S00088A A0 00" IBT R0,#BANK SIN 1868 S00088C 3F DF ROMB 1869 ; 1870 S00088E 3D A7 BF LMS R7,CPMR_ANGL ;(R7) <-- ホバリング回転角度 1871 S000891 3D A5 CF LMS R5,CPMR_ANSP ;(R5) <-- ホバリング回転スピード 1872 S000894 25 B5 MOVES R5,R5 1873 S000896 0B 0C' BMI MR_HOBARING_FFD 1874 S000898 60 SUB R0 1875 ; 1876 S000899 F0 0300 IWT R0,#00000011B*100H 1877 S00089C 71 AND R1 ;(Z) set 1878 S00089D A0 FF IBT R0,#-1 1879 S00089F 09 03' BEQ MR_HOBARING_FFD ;加速？ ( no:MR_HOBARING_FFD ) 1880 S0008A1 01 NOP 1881 ; 1882 S0008A2 A0 FC IBT R0,#-4 1883 MR_HOBARING_FFD 1884 S0008A4 57 ADD R7 1885 S0008A5 95 SEX ;(N) set 1886 S0008A6 FE 0200 IWT R14,#0200H ;(R14) <-- ＭＡＸホバリング回転スピード 1887 S0008A9 A0 10 IBT R0,#010H 1888 S0008AB 0B 0E' BMI MR_HOBARING_FFF 1889 S0008AD 01 NOP 1890 ; 1891 S0008AE FE FE00 IWT R14,#0FE00H ;(R14) <-- ＭＡＸホバリング回転スピード 1892 S0008B1 F0 0300 IWT R0,#00000011B*100H 1893 S0008B4 71 AND R1 ;(Z) set 1894 S0008B5 A0 F2 IBT R0,#0F2H ;[ IWT R0,#0FFF2H ] 1895 S0008B7 09 02' BEQ MR_HOBARING_FFF ;加速？ ( no:MR_HOBARING_FFF ) 1896 S0008B9 01 NOP 1897 ; 1898 S0008BA 50 ADD R0 ;x2 1899 MR_HOBARING_FFF 1900 S0008BB 55 ADD R5 1901 S0008BC 20 15 MOVE R5,R0 1902 S0008BE 6E SUB R14 1903 S0008BF 3D CE XOR R14 1904 S0008C1 0B 03' BMI MR_HOBARING_000 1905 S0008C3 01 NOP 1906 ; 1907 S0008C4 2E 15 MOVE R5,R14 1908 MR_HOBARING_000 1909 S0008C6 3E A5 CF SMS R5,CPMR_ANSP 1910 ; 1911 S0008C9 3D A0 D0 LMS R0,CPMR_ANBF 1912 S0008CC 9E LOB 1913 S0008CD 55 ADD R5 1914 S0008CE 90 SBK ;[ SMS R0,CPMR_ANBF ] 1915 S0008CF C0 HIB 1916 S0008D0 57 ADD R7 1917 S0008D1 17 TO R7 1918 S0008D2 9E LOB 1919 S0008D3 3E A7 BF SMS R7,CPMR_ANGL 1920 ; 1921 MR_HOBARING_004 1922 S0008D6 A0 18 IBT R0,#018H 1923 S0008D8 57 ADD R7 1924 S0008D9 9E LOB 1925 S0008DA 50 ADD R0 ;x2 1926 S0008DB FE 0000" IWT R14,#SIN 1927 S0008DE 1E TO R14 1928 S0008DF 5E ADD R14 1929 S0008E0 EF GETB 1930 S0008E1 DE INC R14 1931 S0008E2 3D EF GETBH 1932 S0008E4 4F NOT 1933 S0008E5 D0 INC R0 1934 S0008E6 F6 0080 IWT R6,#080H 1935 S0008E9 66 SUB R6 1936 S0008EA 0A 20' BPL MR_HOBARING_020 ;ＭＡＸＹスピードオーバー？ ( yes:MR_HOBARING_020 ) 1937 S0008EC 16 TO R6 ;(R6) <-- ＭＡＸＹスピード 1938 ; 1939 S0008ED 05 1D' BRA MR_HOBARING_020 1940 S0008EF 56 ADD R6 1941 ; 1942 MR_HOBARING_008 1943 S0008F0 3D A0 EA LMS R0,CPLJPTM 1944 S0008F3 9E LOB 1945 S0008F4 08 16' BNE MR_HOBARING_020 ;ホバリングパターン切り替え？ ( no:MR_HOBARING_020 ) 1946 S0008F6 01 NOP 1947 ; 1948 S0008F7 A0 04 IBT R0,#04H 1949 S0008F9 90 SBK ;[ SMS R0,CPLJPTM ] 1950 ; 1951 S0008FA B3 FROM R3 1952 S0008FB 3E 64 SUB #2+3-1 1953 S0008FD 08 0A' BNE MR_HOBARING_010 ;ホバリング開始初期セット？ ( no:MR_HOBARING_010 ) 1954 S0008FF D3 INC R3 1955 ; 1956 S000900 F0 FF30 IWT R0,#0FF30H ;ホバリング用キャラクター回転スピード初期セット 1957 S000903 3E A0 CF SMS R0,CPMR_ANSP 1958 S000906 F2 FE40 IWT R2,#0FE40H ;(R2) <-- ホバリング開始Ｙスピード 1959 MR_HOBARING_010 1960 S000909 3E A3 69 SMS R3,CPLSPJP ;ホバリングパターンセット 1961 ; 1962 MR_HOBARING_020 1963 S00090C A0 10 IBT R0,#010H 1964 S00090E 52 ADD R2 1965 S00090F 66 SUB R6 1966 S000910 0A 02' BPL MR_HOBARING_030 ;最大落下スピードオーバー？ ( yes:MR_HOBARING_030 ) 1967 S000912 16 TO R6 1968 ; 1969 S000913 56 ADD R6 1970 MR_HOBARING_030 1971 S000914 3E A6 55 SMS R6,CPLYSPD ;Ｙスピードセット 1972 mDJMP XY_CALC 1972+ S000917 FF 0811' IWT R15, #XY_CALC 1972+ S00091A 01 NOP 1973 ; 1974 ;************************************************************************ 1975 ;* * 1976 ;* ＢＧチェック * 1977 ;* * 1978 ;************************************************************************ 1979 ; 1980 PL_BGCK 1981 S00091B FE 0000" IWT R14,#PLBGCK_POINT_SW ;(R14) <-- ＢＧチェックポイントデータポインター（泳ぎ） 1982 S00091E 3D A0 63 LMS R0,CPLSWIM 1983 S000921 E0 DEC R0 1984 S000922 0A 0F' BPL PL_BGCK_2 ;泳いでる？ ( yes:PL_BGCK_2 ) 1985 S000924 01 NOP 1986 ; 1987 S000925 FE 0000" IWT R14,#PLBGCK_POINT_00 ;(R14) <-- ＢＧチェックポイントデータポインター（大） 1988 S000928 3D A0 61 LMS R0,CPLSITD 1989 S00092B 3E 62 SUB #2 1990 S00092D 0C 04' BCC PL_BGCK_2 ;衝突サイズ小？ ( no:PL_BGCK_2 ) 1991 S00092F 01 NOP 1992 ; 1993 S000930 FE 0000" IWT R14,#PLBGCK_POINT_01 ;(R14) <-- ＢＧチェックポイントデータポインター（小） 1994 ; 1995 PL_BGCK_2 1996 S000933 3E AB 32 SMS R11,RTS2 ;[ return address save ] 1997 ; 1998 S000936 3D A9 46 LMS R9,CPLXPSL ;(R9) <-- プレイヤーＸ座標 1999 S000939 3D AA 48 LMS R10,CPLYPSL ;(R10) <-- ” Ｙ ” 2000 S00093C A2 00 IBT R2,#00 ;(R2) <-- ＢＧ当たりフラグクリアー 2001 S00093E 3E A2 7F SMS R2,CPLWATR ;水中当たりフラグクリアー 2002 S000941 3E A2 80 SMS R2,CPLTNEL ;トンネル当たりフラグクリアー 2003 S000944 3E A2 81 SMS R2,CPLHARI ;ダメージＢＧ当たりフラグクリアー 2004 S000947 3E A2 7D SMS R2,CPLBGNO ;歩いている床のＢＧタイプクリアー 2005 S00094A 3E A2 5B SMS R2,CPLANGL ;移動角度リセット 2006 ; 2007 ;------------------------------------------------------------------------ 2008 ;- 左上サイドチェック - 2009 ;------------------------------------------------------------------------ 2010 S00094D A3 01 IBT R3,#001H ;(R3) <-- 補正向き 2011 S00094F A4 00 IBT R4,#0 ;(R4) <-- 補正データ 2012 mJSR_X BG_SIDECK_IN 2012+ S000951 94 LINK #4 2012+ S000952 FF 0C39' IWT R15, #BG_SIDECK_IN 2013 S000955 02 CACHE 2014 ; 2015 ;------------------------------------------------------------------------ 2016 ;- 左下サイドチェック - 2017 ;------------------------------------------------------------------------ 2018 mJSR_X BG_SIDECK+1 2018+ S000956 94 LINK #4 2018+ S000957 FF 0C3F' IWT R15, #BG_SIDECK+1 2019 S00095A 3E HEX 3E ;[ SMS R11,RTS1 ] 2020 ; 2021 ;-------------- ドアチェック -------------------------------------------- 2022 S00095B F0 0100 IWT R0,#DR ;+BD 2023 S00095E 77 AND R7 2024 S00095F 3E A0 82 SMS R0,CPLDOOR 2025 ; 2026 ;------------------------------------------------------------------------ 2027 ;- 右上サイドチェック - 2028 ;------------------------------------------------------------------------ 2029 S000962 A3 FF IBT R3,#0FFH ;(R3) <-- 補正データ 2030 mJSR_X BG_SIDECK+1 2030+ S000964 94 LINK #4 2030+ S000965 FF 0C3F' IWT R15, #BG_SIDECK+1 2031 S000968 3E HEX 3E ;[ SMS R11,RTS1 ] 2032 ; 2033 ;------------------------------------------------------------------------ 2034 ;- 右下サイドチェック - 2035 ;------------------------------------------------------------------------ 2036 mJSR_X BG_SIDECK+1 2036+ S000969 94 LINK #4 2036+ S00096A FF 0C3F' IWT R15, #BG_SIDECK+1 2037 S00096D 3E HEX 3E ;[ SMS R11,RTS1 ] 2038 ; 2039 S00096E 29 WITH R9 ;Ｘ座標補正 2040 S00096F 54 ADD R4 2041 ; 2042 ;------------------------------------------------------------------------ 2043 ;- サイド総合チェック - 2044 ;------------------------------------------------------------------------ 2045 S000970 3D A3 6E LMS R3,CPSPUSH ;(R3) <-- 横壁押しカウンターセット 2046 S000973 60 SUB R0 ;[ IBT R0,#0 ] 2047 S000974 90 SBK ;[ SMS R0,CPSPUSH ] 2048 ; 2049 S000975 21 B1 MOVES R1,R1 2050 S000977 09 3F' BEQ PL_BGCK_00200 ;横当たりＯＫ？ ( no:PL_BGCK_00200 ) 2051 S000979 60 SUB R0 2052 ; 2053 ;-------------- 普通の当たり -------------------------------------------- 2054 S00097A 3E A0 54 SMS R0,CPLXSPD 2055 S00097D 3E A0 5A SMS R0,CPLMVSP 2056 ; 2057 ;-------------- 横壁押しチェック -------------------------------- 2058 S000980 3D A0 60 LMS R0,CPLJUMP 2059 S000983 E0 DEC R0 2060 S000984 0A 32' BPL PL_BGCK_00200 ;ジャンプ中？ ( yes:PL_BGCK_00200 ) 2061 S000986 B1 FROM R1 2062 ; 2063 S000987 3E 7F AND #0FH 2064 S000989 09 02' BEQ PL_BGCK_0020 ;左当たり？ ( yes:PL_BGCK_0020 ) 2065 S00098B D0 INC R0 ;[ IBT R0,#01H ] 2066 ; 2067 S00098C 60 SUB R0 ;[ IBT R0,#0 ] 2068 PL_BGCK_0020 2069 S00098D D0 INC R0 ;[ 左:00000010B 右:00000001B ] 2070 ; 2071 S00098E 3D F1 0071 LM R1,CMKEYC1 ;(R1) <-- コントローラー情報 2072 S000992 71 AND R1 2073 S000993 09 3E' BEQ PL_BGCK_0040 ;横壁押しキー入力？ ( no:PL_BGCK_0040 ) 2074 S000995 D3 INC R3 2075 ; 2076 ;-------------- ドカン出入りチェック -------------------- 2077 S000996 20 11 MOVE R1,R0 2078 S000998 3D A0 D9 LMS R0,CBABYNO 2079 S00099B 50 ADD R0 2080 S00099C 0C 2A' BCC PL_BGCK_0021 ;赤ちゃん乗ってる？ ( no:PL_BGCK_0021 ) 2081 S00099E 01 NOP 2082 ; 2083 S00099F 3D A5 83 LMS R5,CDOKNMK 2084 S0009A2 B5 FROM R5 2085 S0009A3 3E 73 AND #00000011B 2086 S0009A5 61 SUB R1 2087 S0009A6 08 20' BNE PL_BGCK_0021 ;ドカン？ ( no:PL_BGCK_0021 ) 2088 S0009A8 01 NOP 2089 ; 2090 S0009A9 3D A0 A8 LMS R0,CBERFLG 2091 S0009AC E0 DEC R0 2092 S0009AD 0A 19' BPL PL_BGCK_0021 ;状態ＯＫ？ ( no:PL_BGCK_0021 ) 2093 S0009AF 01 NOP 2094 ; 2095 ;-------------- ドカン出入りデモへ -------------- 2096 mJSR DOKAN_INOUT_IN ;[ (R5) <-- 向き ] 2096+ S0009B0 94 LINK #4 2096+ S0009B1 FF 15ED' IWT R15, #DOKAN_INOUT_IN 2096+ S0009B4 01 NOP 2097 S0009B5 05 1C' BRA PL_BGCK_0040 2098 S0009B7 01 NOP 2099 ; 2100 ;-------------- 横壁押しカウンターセット ---------------- 2101 PL_BGCK_00200 2102 S0009B8 3D A0 E1 LMS R0,CPUSHFG ;[ from ] 2103 S0009BB 3E 60 SUB #0 2104 S0009BD 09 14' BEQ PL_BGCK_0024 ;敵押し中？ ( no:PL_BGCK_0024 ) 2105 S0009BF 01 NOP 2106 ; 2107 S0009C0 A0 0F IBT R0,#PUSHTM-1 2108 S0009C2 63 SUB R3 2109 S0009C3 0C 03' BCC PL_BGCK_0021 2110 S0009C5 13 TO R3 2111 ; 2112 S0009C6 3D 53 ADC R3 ;[ IBT R3,#PUSHTM ] 2113 PL_BGCK_0021 2114 S0009C8 A0 23 IBT R0,#PUSHTM+(4*5)-1 2115 S0009CA 63 SUB R3 2116 S0009CB 0D 03' BCS PL_BGCK_0022 2117 S0009CD 01 NOP 2118 ; 2119 S0009CE A3 10 IBT R3,#PUSHTM 2120 PL_BGCK_0022 2121 S0009D0 3E A3 6E SMS R3,CPSPUSH ;横壁押しカウンターセット 2122 PL_BGCK_0024 2123 ; 2124 ;------------------------------------------------------------------------ 2125 ;- 左頭チェック - 2126 ;------------------------------------------------------------------------ 2127 PL_BGCK_0040 2128 S0009D3 A3 10 IBT R3,#010H ;(R3) <-- 頭チェックフラグ 2129 mJSR_X BG_HDFTCK+1 2129+ S0009D5 94 LINK #4 2129+ S0009D6 FF 0DA6' IWT R15, #BG_HDFTCK+1 2130 S0009D9 3E HEX 3E ;[ SMS R11,RTS1 ] 2131 ; 2132 ;------------------------------------------------------------------------ 2133 ;- 右頭チェック - 2134 ;------------------------------------------------------------------------ 2135 mJSR_X BG_HDFTCK+1 2135+ S0009DA 94 LINK #4 2135+ S0009DB FF 0DA6' IWT R15, #BG_HDFTCK+1 2136 S0009DE 3E HEX 3E ;[ SMS R11,RTS1 ] 2137 ; 2138 ;------------------------------------------------------------------------ 2139 ;- 頭総合チェック - 2140 ;------------------------------------------------------------------------ 2141 S0009DF B2 FROM R2 2142 S0009E0 3E 73 AND #00000011B 2143 S0009E2 08 05' BNE PL_BGCK_00400 ;頭当たり？ ( no:PL_BGCK_00400 ) 2144 S0009E4 01 NOP 2145 ; 2146 mDJMP PL_BGCK_0050 2146+ S0009E5 FF 0A62' IWT R15, #PL_BGCK_0050 2146+ S0009E8 01 NOP 2147 ; 2148 ;-------------- ＢＧ当たった -------------------------------------------- 2149 PL_BGCK_00400 2150 S0009E9 3D A0 55 LMS R0,CPLYSPD 2151 S0009EC 50 ADD R0 ;(C) <-- (N) 2152 S0009ED 0C 72' BCC PL_BGCK_0048 ;プレイヤー下降中？ ( yes:PL_BGCK_0048 ) 2153 S0009EF 60 SUB R0 2154 ; 2155 S0009F0 90 SBK ;[ SMS R0,PLYSPD ] 2156 S0009F1 D0 INC R0 ;[ IBT R0,#1 ] 2157 S0009F2 3E A0 69 SMS R0,CPLSPJP ;ジタバタジャンプ リセット 2158 S0009F5 A0 14 IBT R0,#014H ;ジタバタジャンプＮＥＸＴウェイトタイマー 2159 S0009F7 3E A0 F3 SMS R0,CPSPJTM 2160 ; 2161 ;-------------- ドカン出入りチェック -------------------- 2162 S0009FA 3D A0 D9 LMS R0,CBABYNO 2163 S0009FD 50 ADD R0 2164 S0009FE 0C 57' BCC PL_BGCK_0046 ;赤ちゃん乗ってる？ ( no:PL_BGCK_0046 ) 2165 S000A00 01 NOP 2166 ; 2167 S000A01 F0 F800 IWT R0,#1111100000000000B 2168 S000A04 77 AND R7 2169 S000A05 F1 A000 IWT R1,#DK 2170 S000A08 61 SUB R1 2171 S000A09 08 4C' BNE PL_BGCK_0046 ;ドカン？ ( no:PL_BGCK_0046 ) 2172 S000A0B 01 NOP 2173 ; 2174 S000A0C 2E 15 MOVE R5,R14 ;(R14) save 2175 ; 2176 S000A0E B6 FROM R6 2177 S000A0F 9E LOB 2178 S000A10 FE 0000" IWT R14,#DOKAN_TYPE 2179 S000A13 1E TO R14 2180 S000A14 5E ADD R14 2181 S000A15 EF GETB 2182 ; 2183 S000A16 25 1E MOVE R14,R5 ;(R14) load 2184 ; 2185 S000A18 20 15 MOVE R5,R0 ;(R0)(R5) <-- ドカンタイプ情報 2186 S000A1A 11 TO R1 ;[ * not break (R0) ] 2187 S000A1B 3E 78 AND #00001000B ;[ 00001000B <-- ドカン向き ] 2188 S000A1D 09 38' BEQ PL_BGCK_0046 ;ドカンユニットＯＫ？ ( no:PL_BGCK_0046 ) 2189 S000A1F 4D SWAP 2190 ; 2191 S000A20 50 ADD R0 ;(C) <-- 左ｏｒ右？ 2192 S000A21 3D A0 00 LMS R0,CWORK0 2193 S000A24 3E 7F AND #0FH 2194 S000A26 0C 03' BCC PL_BGCK_0044 ;左ドカン？ ( yes:PL_BGCK_0044 ) 2195 S000A28 01 NOP 2196 ; 2197 S000A29 3F 5F ADC #0FH ;[ ADD #010H ] 2198 PL_BGCK_0044 2199 S000A2B 3E A0 87 SMS R0,CDOKNCX ;補正用中心Ｘ座標セット 2200 ; 2201 S000A2E A1 40 IBT R1,#01000000B 2202 S000A30 21 WITH R1 ;[ * not break (R0) ] 2203 S000A31 75 AND R5 2204 S000A32 08 12' BNE PL_BGCK_0041 ;内ドカン？ ( yes:PL_BGCK_0041 ) 2205 S000A34 01 NOP 2206 ; 2207 S000A35 3E 6A SUB #0AH 2208 S000A37 A1 10 IBT R1,#1AH-0AH 2209 S000A39 61 SUB R1 2210 S000A3A 0D 1B' BCS PL_BGCK_0046 ;Ｘ位置ＯＫ？ ( no:PL_BGCK_0046 ) 2211 S000A3C 01 NOP 2212 ; 2213 S000A3D 3D F0 0071 LM R0,CMKEYC1 2214 S000A41 3E 78 AND #00001000B 2215 S000A43 09 12' BEQ PL_BGCK_0046 ;上キー入力？ ( no:PL_BGCK_0046 ) 2216 S000A45 01 NOP 2217 ; 2218 PL_BGCK_0041 2219 S000A46 3D A0 A8 LMS R0,CBERFLG 2220 S000A49 E0 DEC R0 2221 S000A4A 0A 0B' BPL PL_BGCK_0046 ;状態ＯＫ？ ( no:PL_BGCK_0046 ) 2222 S000A4C 01 NOP 2223 ; 2224 ;-------------- ドカン出入りデモへ -------------- 2225 S000A4D A5 08 IBT R5,#00001000B ;(R5) <-- ドカン向き 2226 mJSR DOKAN_INOUT_IN_2 ;[ (R5) <-- 向き ] 2226+ S000A4F 94 LINK #4 2226+ S000A50 FF 15D7' IWT R15, #DOKAN_INOUT_IN_2 2226+ S000A53 01 NOP 2227 S000A54 05 0C' BRA PL_BGCK_0050 2228 S000A56 01 NOP 2229 ; 2230 ;-------------- サウンドセット座標セット ---------------- 2231 PL_BGCK_0046 2232 S000A57 A0 1F IBT R0,#01FH ;[♪] 2233 S000A59 3E A0 3D SMS R0,CMSOUND3 2234 ; 2235 ;-------------- 頭ＢＧ当たり”ボヨヨ〜ン”セット ---------------- 2236 S000A5C A0 08 IBT R0,#(2*4) 2237 S000A5E 3E A0 EE SMS R0,CPHBOYO 2238 ; 2239 PL_BGCK_0048 2240 S000A61 DA INC R10 ;Ｙ座標補正 2241 ; 2242 ;------------------------------------------------------------------------ 2243 ;- 左足チェック - 2244 ;------------------------------------------------------------------------ 2245 PL_BGCK_0050 2246 S000A62 A3 F0 IBT R3,#0F0H ;(R3) <-- 足チェックフラグ 2247 S000A64 3D A4 5C LMS R4,CPLSKCL ;(R4) <-- 前回坂フラグ 2248 mJSR_X BG_HDFTCK+1 2248+ S000A67 94 LINK #4 2248+ S000A68 FF 0DA6' IWT R15, #BG_HDFTCK+1 2249 S000A6B 3E HEX 3E ;[ SMS R11,RTS1 ] 2250 ; 2251 ;-------------- 左足のＢＧチェック情報保存 ---------------------- 2252 S000A6C 3E A1 0A SMS R1,CWORKA ;(CWKA) <-- 左足補正値 2253 S000A6F 3D A0 08 LMS R0,CWORK8 2254 S000A72 3E A0 5C SMS R0,CPLSKCL ;前回坂フラグセット 2255 ; 2256 S000A75 3D A0 00 LMS R0,CWORK0 ;(CWK10) <-- ＢＧチェックＸ座標 2257 S000A78 3E A0 10 SMS R0,CWORK10 2258 S000A7B 3D A0 01 LMS R0,CWORK1 ;(CWK11) <-- ＢＧチェックＹ座標 2259 S000A7E 3E A0 11 SMS R0,CWORK11 2260 S000A81 3E A6 12 SMS R6,CWORK12 ;(CWK12) <-- BG unit no. 2261 S000A84 3E A7 13 SMS R7,CWORK13 ;(CWK13) <-- BG unit no. type 2262 ; 2263 ;------------------------------------------------------------------------ 2264 ;- 中足チェック - 2265 ;------------------------------------------------------------------------ 2266 S000A87 3D A4 5D LMS R4,CPLSKCC ;(R4) <-- 前回坂フラグ 2267 mJSR_X BG_HDFTCK+1 2267+ S000A8A 94 LINK #4 2267+ S000A8B FF 0DA6' IWT R15, #BG_HDFTCK+1 2268 S000A8E 3E HEX 3E ;[ SMS R11,RTS1 ] 2269 ; 2270 ;-------------- 左足のＢＧチェック情報保存 ---------------------- 2271 S000A8F 3E A1 0B SMS R1,CWORKB ;(CWKB) <-- 中足補正値 2272 S000A92 3D A0 08 LMS R0,CWORK8 ;(CWKE) <-- 中足移動角度 2273 S000A95 3E A0 5D SMS R0,CPLSKCC ;前回坂フラグセット 2274 ; 2275 S000A98 3D A0 00 LMS R0,CWORK0 ;(CWK14) <-- ＢＧチェックＸ座標 2276 S000A9B 3E A0 14 SMS R0,CWORK14 2277 S000A9E 3D A0 01 LMS R0,CWORK1 ;(CWK15) <-- ＢＧチェックＹ座標 2278 S000AA1 3E A0 15 SMS R0,CWORK15 2279 S000AA4 3E A6 16 SMS R6,CWORK16 ;(CWK16) <-- BG unit no. 2280 S000AA7 3E A7 17 SMS R7,CWORK17 ;(CWK17) <-- BG unit no. type 2281 ; 2282 ;------------------------------------------------------------------------ 2283 ;- 右足チェック - 2284 ;------------------------------------------------------------------------ 2285 S000AAA 3D A4 5E LMS R4,CPLSKCR ;(R4) <-- 前回坂フラグ 2286 mJSR_X BG_HDFTCK+1 2286+ S000AAD 94 LINK #4 2286+ S000AAE FF 0DA6' IWT R15, #BG_HDFTCK+1 2287 S000AB1 3E HEX 3E ;[ SMS R11,RTS1 ] 2288 ; 2289 S000AB2 3E A1 0C SMS R1,CWORKC ;(CWKC) <-- 右足補正値 2290 S000AB5 3D A4 08 LMS R4,CWORK8 ;(R4) <-- 右足移動角度 2291 S000AB8 3E A4 5E SMS R4,CPLSKCR ;前回坂フラグセット 2292 ; 2293 ;------------------------------------------------------------------------ 2294 ;- 足ＢＧ総合チェック - 2295 ;------------------------------------------------------------------------ 2296 S000ABB B2 FROM R2 2297 S000ABC 3E 77 AND #00000111B 2298 S000ABE 08 23' BNE PL_BGCK_0200 ;足当たった？ ( yes:PL_BGCK_0200 ) 2299 S000AC0 01 NOP 2300 ; 2301 ;-------------- リフト乗ってるか？チェック ------------------------------ 2302 S000AC1 3D A0 DA LMS R0,CONLFFG 2303 S000AC4 3E 60 SUB #0 2304 S000AC6 09 0A' BEQ PL_BGCK_0180 ;リフト乗ってる？ ( no:PL_BGCK_0180 ) 2305 S000AC8 01 NOP 2306 ; 2307 S000AC9 A4 00 IBT R4,#0 ;(R4) <-- 移動角度 2308 S000ACB 3D A6 55 LMS R6,CPLYSPD ;(R6) <-- Ｙスピード 2309 mDJMP PL_BGCK_0260 2309+ S000ACE FF 0B59' IWT R15, #PL_BGCK_0260 2309+ S000AD1 01 NOP 2310 ; 2311 ;-------------- ＢＧ当たって無い ---------------------------------------- 2312 PL_BGCK_0180 2313 S000AD2 3D A0 60 LMS R0,CPLJUMP 2314 S000AD5 E0 DEC R0 2315 S000AD6 0A 07' BPL PL_BGCK_0190 ;プレイヤージャンプ中？ ( yes:PL_BGCK_0190 ) 2316 S000AD8 01 NOP 2317 ; 2318 S000AD9 F0 0008 IWT R0,#P008 ;ジャンプフラグ”ＯＮ” 2319 S000ADC 3E A0 60 SMS R0,CPLJUMP 2320 PL_BGCK_0190 2321 mDJMP PL_BGCK_0300 2321+ S000ADF FF 0BCB' IWT R15, #PL_BGCK_0300 2321+ S000AE2 01 NOP 2322 ; 2323 ;-------------- ＢＧ当たり ---------------------------------------------- 2324 PL_BGCK_0200 2325 ; 2326 ;-------------- 最大補正値チェック [ (R3) <-- 最大補正値 ] ------ 2327 S000AE3 3D A0 0A LMS R0,CWORKA ;(R0) <-- 左足補正値 2328 S000AE6 3D A5 0B LMS R5,CWORKB ;(R5) <-- 中足補正値 2329 S000AE9 65 SUB R5 2330 S000AEA 0B 03' BMI PL_BGCK_0202 ;左足補正値＞中足補正値？ ( yes:PL_BGCK_0202 ) 2331 S000AEC 55 ADD R5 2332 ; 2333 S000AED 25 10 MOVE R0,R5 2334 PL_BGCK_0202 2335 S000AEF 3D A5 0C LMS R5,CWORKC ;(R5) <-- 右足補正値 2336 S000AF2 25 13 MOVE R3,R5 2337 S000AF4 63 SUB R3 2338 S000AF5 0A 03' BPL PL_BGCK_0204 ;（左足補正値＞中足補正値）＞右足補正値？ ( no:PL_BGCK_0204 ) 2339 S000AF7 53 ADD R3 2340 ; 2341 S000AF8 20 13 MOVE R3,R0 2342 ; 2343 ;-------------- Ｙ座標補正 -------------------------------------- 2344 PL_BGCK_0204 2345 S000AFA 2A WITH R10 ;Ｙ座標補正 2346 S000AFB 53 ADD R3 2347 ; 2348 S000AFC B5 FROM R5 2349 S000AFD 63 SUB R3 2350 S000AFE 08 06' BNE PL_BGCK_0206 ;右足当たりＯＫ？ ( no:PL_BGCK_0206 ) 2351 S000B00 01 NOP 2352 ; 2353 ;-------------- 右足当たりＯＫ後特殊ＢＧチェック -------- 2354 mJSR FOOT_RESULT 2354+ S000B01 94 LINK #4 2354+ S000B02 FF 14D4' IWT R15, #FOOT_RESULT 2354+ S000B05 01 NOP 2355 ; 2356 ;-------------- 中足のＢＧチェック情報復帰 -------------- 2357 PL_BGCK_0206 2358 S000B06 3D A0 0B LMS R0,CWORKB ;(R0) <-- 中足補正値 2359 S000B09 63 SUB R3 2360 S000B0A 08 1B' BNE PL_BGCK_0210 ;中足当たりＯＫ？ ( no:PL_BGCK_0210 ) 2361 S000B0C 01 NOP 2362 ; 2363 S000B0D 3D A0 14 LMS R0,CWORK14 2364 S000B10 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- 中足ＢＧチェックＸ座標 2365 S000B13 3D A0 15 LMS R0,CWORK15 2366 S000B16 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- 中足ＢＧチェックＹ座標 2367 S000B19 3D A6 16 LMS R6,CWORK16 ;(R6) <-- 中足 BG unit no. 2368 S000B1C 3D A7 17 LMS R7,CWORK17 ;(R7) <-- 中足 BG unit no. type 2369 S000B1F 3D A4 5D LMS R4,CPLSKCC ;(R4) <-- 中足移動角度 2370 ; 2371 ;-------------- 中足当たりＯＫ後特殊ＢＧチェック -------- 2372 mJSR FOOT_RESULT_C 2372+ S000B22 94 LINK #4 2372+ S000B23 FF 1450' IWT R15, #FOOT_RESULT_C 2372+ S000B26 01 NOP 2373 ; 2374 ;-------------- 左足のＢＧチェック情報復帰 -------------- 2375 PL_BGCK_0210 2376 S000B27 3D A0 0A LMS R0,CWORKA ;(R0) <-- 左足補正値 2377 S000B2A 63 SUB R3 2378 S000B2B 08 1B' BNE PL_BGCK_0250 ;中足当たりＯＫ？ ( no:PL_BGCK_0250 ) 2379 S000B2D 01 NOP 2380 ; 2381 S000B2E 3D A0 10 LMS R0,CWORK10 2382 S000B31 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- 左足ＢＧチェックＸ座標 2383 S000B34 3D A0 11 LMS R0,CWORK11 2384 S000B37 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- 左足ＢＧチェックＹ座標 2385 S000B3A 3D A6 12 LMS R6,CWORK12 ;(R6) <-- 左足 BG unit no. 2386 S000B3D 3D A7 13 LMS R7,CWORK13 ;(R7) <-- 左足 BG unit no. type 2387 S000B40 3D A4 5C LMS R4,CPLSKCL ;(R4) <-- 左足移動角度 2388 ; 2389 ;-------------- 左足当たりＯＫ後特殊ＢＧチェック -------- 2390 mJSR FOOT_RESULT 2390+ S000B43 94 LINK #4 2390+ S000B44 FF 14D4' IWT R15, #FOOT_RESULT 2390+ S000B47 01 NOP 2391 ; 2392 ;-------------- 足当たり情報セット ------------------------------ 2393 PL_BGCK_0250 2394 S000B48 3D A0 63 LMS R0,CPLSWIM 2395 S000B4B E0 DEC R0 2396 S000B4C 0A 0B' BPL PL_BGCK_0260 ;泳ぎ中？ ( yes:PL_BGCK_0260 ) 2397 S000B4E 01 NOP 2398 ; 2399 S000B4F 3D A6 55 LMS R6,CPLYSPD ;(R6) <-- Ｙスピード 2400 S000B52 60 SUB R0 2401 S000B53 90 SBK ;[ SMS R0,CPLYSPD ] Ｙスピードクリアー 2402 S000B54 A0 FF IBT R0,#0FFH ;[ IWT R0,#0FFFFH ] 着地継続の為 2403 S000B56 3E A0 47 SMS R0,CPLYSDR 2404 ; 2405 PL_BGCK_0260 2406 S000B59 3E A4 5B SMS R4,CPLANGL ;移動角度セット 2407 S000B5C 60 SUB R0 2408 S000B5D 3E A0 5C SMS R0,CPLSKCL ;前回坂フラグリセット 2409 S000B60 3E A0 5D SMS R0,CPLSKCC 2410 S000B63 3E A0 5E SMS R0,CPLSKCR 2411 ;;;; SMS R0,CPLKAID ;階段歩きフラグクリアー 2412 ; 2413 ;-------------- 着地の瞬間チェック ------------------------------ 2414 S000B66 3D A0 60 LMS R0,CPLJUMP 2415 S000B69 E0 DEC R0 2416 S000B6A 0B 17' BMI PL_BGCK_0270 ;着地の瞬間？ ( no:PL_BGCK_0270 ) 2417 S000B6C 60 SUB R0 2418 ; 2419 S000B6D 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＦＦ” 2420 ;;;; SMS R0,CPLSPJP ;ジタバタジャンプフラグリセット 2421 S000B70 3E A0 6B SMS R0,CPLDSNC ;”ドスーン！！”ウェイトカウンターリセット 2422 S000B73 3D A0 54 LMS R0,CPLXSPD 2423 S000B76 3E A0 5A SMS R0,CPLMVSP ;移動スピードセット 2424 S000B79 A0 FF" IBT R0,#JPET-1 2425 S000B7B 3E A0 EA SMS R0,CPLJPTM ;着地パターンセットタイマーセット 2426 ; 2427 ;;;; IBT R0,#BANK LSIN ;着地での移動スピードセット 2428 ;;;; ROMB 2429 ;;;;; 2430 ;;;; IWT R0,#LSIN 2431 ;;;; TO R14 2432 ;;;; ADD R4 2433 ;;;; GETB 2434 ;;;; SWAP 2435 ;;;; TO R5 2436 ;;;; FMULT 2437 ;;;; IBT R0,#040H 2438 ;;;; WITH R14 2439 ;;;; SUB R0 2440 ;;;; GETB 2441 ;;;; SWAP 2442 ;;;; LMS R6,CPLXSPD ;(R6) <-- Ｘスピード 2443 ;;;; FMULT 2444 ;;;; SUB R5 2445 ;;;; ADD R0 2446 ;;;; ADD R0 2447 ;;;; SMS R0,CPLMVSP 2448 ;;;;; 2449 ;;;; IBT R0,#BANK PLAYER_DATA 2450 ;;;; ROMB 2451 ; 2452 ;-------------- ”ドスーン！！”着地チェック -------------------- 2453 mJSR DOSN_JUST_CK 2453+ S000B7E 94 LINK #4 2453+ S000B7F FF 18E4' IWT R15, #DOSN_JUST_CK 2453+ S000B82 01 NOP 2454 ; 2455 PL_BGCK_0270 2456 ; 2457 ;-------------- 足元がオフセットモードでうごいてるか？チェック -- 2458 S000B83 3D A0 E5 LMS R0,CBG2OF_FG 2459 S000B86 E0 DEC R0 2460 S000B87 0B 06' BMI PL_BGCK_0272 ;オフセットモード？ ( no:PL_BGCK_0272 ) 2461 S000B89 01 NOP 2462 ; 2463 mJSR BG2OF_ON_CK 2463+ S000B8A 94 LINK #4 2463+ S000B8B FF 0C06' IWT R15, #BG2OF_ON_CK 2463+ S000B8E 01 NOP 2464 ; 2465 PL_BGCK_0272 2466 ;;;;;-------------- ダッシュ土けむりセットチェック ------------------ 2467 ;;;; mJSR DASH_SMOK_CK 2468 ; 2469 ;-------------- ドア入りチェック -------------------------------- 2470 S000B8F 3D A5 82 LMS R5,CPLDOOR 2471 S000B92 25 B5 MOVES R5,R5 2472 S000B94 09 35' BEQ PL_BGCK_0300 ;ドアの前いる？ ( no:PL_BGCK_0300 ) 2473 S000B96 01 NOP 2474 ; 2475 S000B97 B9 FROM R9 2476 S000B98 3E 7F AND #0FH 2477 S000B9A 3E 64 SUB #04H 2478 S000B9C 3E 69 SUB #04H*2+1 2479 S000B9E 0D 2B' BCS PL_BGCK_0300 ;ドアに入れる位置？ ( no:PL_BGCK_0300 ) 2480 S000BA0 01 NOP 2481 ; 2482 S000BA1 3D F0 0071 LM R0,CMKEYC1 2483 S000BA5 3E 78 AND #00001000B 2484 S000BA7 09 22' BEQ PL_BGCK_0300 ;ドアに入るキー入力？ ( no:PL_BGCK_0300 ) 2485 S000BA9 01 NOP 2486 ; 2487 S000BAA 3D A0 A8 LMS R0,CBERFLG 2488 S000BAD E0 DEC R0 2489 S000BAE 0A 1B' BPL PL_BGCK_0300 ;舌ショット中？ ( yes:PL_BGCK_0300 ) 2490 S000BB0 01 NOP 2491 ; 2492 S000BB1 3D A0 D9 LMS R0,CBABYNO 2493 S000BB4 50 ADD R0 ;[ CMP #8000H ] 2494 S000BB5 0C 14' BCC PL_BGCK_0300 ;赤ちゃん乗ってる？ ( no:PL_BGCK_0300 ) 2495 S000BB7 01 NOP 2496 ; 2497 ;-------------- ドアに入る初期セット ------------------------------------ 2498 ;;;; IWT R0,#DR 2499 ;;;; AND R5 2500 ;;;; BNE PL_BGCK_0280 ;ボーナスドア？ ( no:PL_BGCK_0280 ) 2501 ;;;; NOP 2502 ;;;;; 2503 ;;;; IWT R5,#POLDR ;(R5) <-- 敵Ｎｏ． 2504 ;;;; mJSR M_ENINSR ;敵エリア確保 2505 ;;;;; 2506 ;;;; BMI PL_BGCK_0300 ;敵エリア無し？ ( yes:PL_BGCK_0300 ) 2507 ;;;; NOP 2508 ;;;;; 2509 ;;;; IBT R5,#CEINIT ;初期モードへ 2510 ;;;; mSTW R5,CENMODE,R1 2511 ;;;; FROM R9 2512 ;;;; BIC #0FH ;[ AND #0FFF0H ] 2513 ;;;; TO R5 2514 ;;;; OR #08H 2515 ;;;; mSTW R5,CENXPSL,R1 ;Ｘ座標セット 2516 ;;;; FROM R10 2517 ;;;; TO R5 2518 ;;;; BIC #0FH ;[ AND #0FFF0H ] 2519 ;;;; mSTW R5,CENYPSL,R1 ;Ｙ座標セット 2520 ;;;;; 2521 ;;;; IBT R0,#01H 2522 ;;;; SMS R0,CPLSTFG ;プレイヤーＳＴＯＰ！！ 2523 ;;;; SMS R0,CENSTFG ;敵ＳＴＯＰ！！ 2524 ; 2525 ;-------------- プレイヤードアに入る初期セット ------------------ 2526 ;;;;PL_BGCK_0280 2527 S000BB8 A0 0A IBT R0,#PSHT ;プレイヤーエントツショットモードセット 2528 S000BBA 3E A0 56 SMS R0,CPLMODE 2529 S000BBD 60 SUB R0 ;[ IBT R0,#0 ] 2530 S000BBE 3E A0 7C SMS R0,CPLWALK ;パターンカウンターセット 2531 S000BC1 A0 06 IBT R0,#06H 2532 S000BC3 3E A0 E9 SMS R0,CPLWKTM ;パターン切り替えタイマーセット 2533 S000BC6 A0 08 IBT R0,#08H 2534 S000BC8 3E A0 8B SMS R0,CPCOLTR ;カラー切り替えカウンターセット 2535 ; 2536 ;------------------------------------------------------------------------ 2537 ;- ＢＧチェック結果セット - 2538 ;------------------------------------------------------------------------ 2539 PL_BGCK_0300 2540 S000BCB 3E A9 46 SMS R9,CPLXPSL 2541 S000BCE 3E AA 48 SMS R10,CPLYPSL 2542 S000BD1 3E A2 7E SMS R2,CPLBGCR 2543 ; 2544 ;------------------------------------------------------------------------ 2545 ;- ダメージＢＧ当たりチェック - 2546 ;------------------------------------------------------------------------ 2547 S000BD4 3D A0 81 LMS R0,CPLHARI 2548 S000BD7 E0 DEC R0 2549 S000BD8 0B 08' BMI PL_BGCK_0350 ;ダメージＢＧ当たりフラグクリアー 2550 S000BDA 01 NOP 2551 ; 2552 ;-------------- プレイヤーダメージセット -------------------------------- 2553 mSFCALL PLFAILST ;プレイヤーダメージセット 2553+ S000BDB A0 14 IBT R0,#PLFAILST 2553+ S000BDD 00 STOP 2553+ S000BDE 01 NOP 2554 S000BDF 05 20' BRA PL_BGCK_0500 2555 S000BE1 01 NOP 2556 ; 2557 ;------------------------------------------------------------------------ 2558 ;- トンネルＩＮ／ＯＵＴチェック - 2559 ;------------------------------------------------------------------------ 2560 PL_BGCK_0350 2561 S000BE2 3D A0 80 LMS R0,CPLTNEL 2562 S000BE5 C2 OR R2 ;(R0) <-- トンネル当たりフラグ 2563 S000BE6 F6 01F8 IWT R6,#111111000B ;(R6) <-- トンネルチェックデータ 2564 ; 2565 S000BE9 3D F5 1FEC LM R5,CCCHGTK 2566 S000BED E5 DEC R5 2567 S000BEE 0A 09' BPL PL_BGCK_0400 ;今、トンネルの中？ ( yes:PL_BGCK_0400 ) 2568 S000BF0 D5 INC R5 2569 ; 2570 ;-------------- トンネルに入ったか？チェック ---------------------------- 2571 S000BF1 76 AND R6 2572 S000BF2 66 SUB R6 2573 S000BF3 09 08' BEQ PL_BGCK_0410 ;トンネルに入った？ ( yes:PL_BGCK_0410 ) 2574 S000BF5 01 NOP 2575 ; 2576 S000BF6 05 09' BRA PL_BGCK_0500 2577 S000BF8 01 NOP 2578 ; 2579 ;-------------- トンネルから出たか？チェック ---------------------------- 2580 PL_BGCK_0400 2581 S000BF9 76 AND R6 2582 S000BFA 08 05' BNE PL_BGCK_0500 ;トンネルから出た？ ( no:PL_BGCK_0500 ) 2583 S000BFC 01 NOP 2584 ; 2585 ;-------------- トンネルＩＮ／ＯＵＴデモスタート初期セット -------------- 2586 PL_BGCK_0410 2587 mSFCALL TN_INOUT_IN 2587+ S000BFD A0 10 IBT R0,#TN_INOUT_IN 2587+ S000BFF 00 STOP 2587+ S000C00 01 NOP 2588 ; 2589 PL_BGCK_0500 2590 S000C01 3D AB 32 LMS R11,RTS2 ;[ return address load ] 2591 mRTS 2591+ S000C04 9B JMP R11 2591+ S000C05 01 NOP 2592 ; 2593 ;------------------------------------------------------------------------ 2594 ;- 足元がオフセットモードでうごいてるか？チェック - 2595 ;------------------------------------------------------------------------ 2596 000C06 BG2OF_ON_CK EQU $ 2597 S000C06 3D F0 0094 LM R0,CESCCH1 2598 S000C0A 15 TO R5 2599 S000C0B 3F 77 BIC #07H ;[ AND #0FFF8H ] 2600 S000C0D 3D A0 46 LMS R0,CPLXPSL 2601 S000C10 65 SUB R5 2602 S000C11 03 LSR 2603 S000C12 03 LSR 2604 S000C13 A5 42 IBT R5,#0021H*2 2605 S000C15 65 SUB R5 2606 S000C16 0D 1F' BCS BG2OF_ON_CK_030 ;オフセットエリア？ ( no:BG2OF_ON_CK_030 ) 2607 S000C18 55 ADD R5 2608 ; 2609 S000C19 03 LSR ;[ AND #0FFFEH ] 2610 S000C1A 08 08' BNE BG2OF_ON_CK_010 ;０ラインオフセットエリア？ ( no:BG2OF_ON_CK_010 ) 2611 S000C1C 50 ADD R0 ;[ AND #0FFFEH ] 2612 ; 2613 ;-------------- ０ラインオフセットエリア ------------------------ 2614 S000C1D 3D F0 1EF0 LM R0,CBG2OFV 2615 S000C21 05 07' BRA BG2OF_ON_CK_020+1 2616 S000C23 F5 HEX F5 ;[ IWT R5,#1FFFH ] 2617 ; 2618 ;-------------- ０ライン以外のオフセットエリア ------------------ 2619 BG2OF_ON_CK_010 2620 S000C24 F5 1F30 IWT R5,#CBG2OFF+(20H*2)-2 2621 S000C27 55 ADD R5 2622 S000C28 40 LDW (R0) 2623 BG2OF_ON_CK_020 2624 S000C29 F5 1FFF IWT R5,#1FFFH 2625 S000C2C 75 AND R5 2626 S000C2D 3D F5 009C LM R5,CESCCV1 2627 S000C31 65 SUB R5 2628 S000C32 3D A5 DA LMS R5,CONLFFG 2629 S000C35 C5 OR R5 2630 S000C36 90 SBK ;[ SMS R5,CONLFFG ] 2631 ; 2632 BG2OF_ON_CK_030 2633 mRTS 2633+ S000C37 9B JMP R11 2633+ S000C38 01 NOP 2634 ; 2635 ; 2636 ;------------------------------------------------------------------------ 2637 ; キャッシュプログラム - 2638 ;------------------------------------------------------------------------ 2639 ; 2640 ;------------------------------------------------------------------------ 2641 ;- 横当たりチェック - 2642 ;- in : - 2643 ;- (R1) <-- 横ＢＧ当たりＯＫフラグ - 2644 ;- (R2) <-- ＢＧ当たりフラグ - 2645 ;- (R3) <-- 補正向き - 2646 ;- (R4) <-- 補正データ - 2647 ;- (R9) <-- プレイヤーＸ座標 - 2648 ;- (R10) <-- ” Ｙ ” - 2649 ;- (R11) <-- 復帰アドレス - 2650 ;- (R14) <-- ＢＧチェックポイント - 2651 ;- データアドレス - 2652 ;- out : - 2653 ;- (R0) <-- BG unit no. type - 2654 ;- (R6) <-- BG unit no. - 2655 ;- (R7) <-- BG unit no. type - 2656 ;- (R8) <-- BG type status data - 2657 ;- (CWK0) <- ＢＧチェックＸ座標 - 2658 ;- (CWK1) <- ” Ｙ ” - 2659 ;- break : - 2660 ;- (R5) - 2661 ;- (R12) - 2662 ;- (R13) - 2663 ;- use RAM : - 2664 ;- (RTS0) - 2665 ;- (RTS1) - 2666 ;- (CWKE) - 2667 ;- (CWKF) - 2668 ;------------------------------------------------------------------------ 2669 BG_SIDECK_IN 2670 S000C39 A1 00 IBT R1,#0 ;(R1) <-- 横ＢＧ当たりＯＫフラグ 2671 S000C3B 3E A1 83 SMS R1,CDOKNMK ;ドカンチェックフラグリセット 2672 ; 2673 BG_SIDECK 2674 S000C3E 3E AB 31 SMS R11,RTS1 ;[ return address save ] 2675 ; 2676 S000C41 22 WITH R2 ;[ ASL R2 ] 2677 S000C42 52 ADD R2 2678 S000C43 21 WITH R1 ;[ ASL R1 ] 2679 S000C44 51 ADD R1 2680 S000C45 21 WITH R1 ;[ ASL R1 ] 2681 S000C46 51 ADD R1 2682 ; 2683 ;-------------- ＢＧ当たりチェック -------------------------------------- 2684 mJSR_X BGUNIT_READ+1 2684+ S000C47 94 LINK #4 2684+ S000C48 FF 0CCE' IWT R15, #BGUNIT_READ+1 2685 S000C4B 3F HEX 3F ;[ ALT3 ( GETBS ) ] 2686 ; 2687 BG_SIDECK_0000 2688 S000C4C 3E 72 AND #AL 2689 S000C4E 09 79' BEQ BG_SIDECK_0100 ;ＢＧ当たり？ ( no:BG_SIDECK_0100 ) 2690 S000C50 01 NOP 2691 ; 2692 ;-------------- 移動方向チェック ---------------------------------------- 2693 S000C51 3D A0 57 LMS R0,CPLTYPE 2694 S000C54 3E 6E SUB #P_SKI 2695 S000C56 08 4F' BNE BG_SIDECK_0001 ;スキーヨッシー？ ( no:BG_SIDECK_0001 ) 2696 S000C58 01 NOP 2697 ; 2698 S000C59 3D A0 60 LMS R0,CPLJUMP 2699 S000C5C E0 DEC R0 2700 S000C5D 0A 41' BPL BG_SIDECK_00002 ;ジャンプ中？ ( yes:BG_SIDECK_00002 ) 2701 S000C5F 01 NOP 2702 ; 2703 ;-------------- 激突岩のチェック -------------------------------- 2704 S000C60 3E A6 02 SMS R6,CWORK2 ;(CWK2) <-- BG unit no. 2705 S000C63 3E A7 03 SMS R7,CWORK3 ;(CWK3) <-- BG unit no. type 2706 S000C66 3E A8 04 SMS R8,CWORK4 ;(CWK4) <-- BG type status data 2707 S000C69 3D A8 00 LMS R8,CWORK0 2708 S000C6C B3 FROM R3 ;x16 2709 S000C6D 53 ADD R3 ; 2710 S000C6E 3E 88 MULT #8 ; 2711 S000C70 18 TO R8 ;(R8) <-- BG check X pos 2712 S000C71 58 ADD R8 2713 S000C72 3E A8 05 SMS R8,CWORK5 ;(CWK5) <-- BG check X pos 2714 S000C75 3D A0 01 LMS R0,CWORK1 ;(R0) <-- BG check Y pos 2715 S000C78 3E A0 06 SMS R0,CWORK6 ;(CWK6) <-- BG check Y pos 2716 S000C7B 3E A5 07 SMS R5,CWORK7 ;(CWK7) <-- 坂チェックデータ 2717 mJSR_X BGUNIT_READ_S+1 2717+ S000C7E 94 LINK #4 2717+ S000C7F FF 0CD7' IWT R15, #BGUNIT_READ_S+1 2718 S000C82 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 2719 ; 2720 S000C83 3E 74 AND #SK ;(Z) set 2721 ; 2722 S000C85 3D A6 02 LMS R6,CWORK2 ;(R6) <-- up BG unit no. 2723 S000C88 3D A7 03 LMS R7,CWORK3 ;(R7) <-- up BG unit no. type 2724 S000C8B 3D A8 04 LMS R8,CWORK4 ;(R8) <-- up BG type status data 2725 S000C8E 3D A0 05 LMS R0,CWORK5 2726 S000C91 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- BG check X pos 2727 S000C94 3D A0 06 LMS R0,CWORK6 2728 S000C97 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- BG check Y pos 2729 ; 2730 S000C9A 08 2D' BNE BG_SIDECK_0100 ;激突岩？ ( yes:BG_SIDECK_0100 ) 2731 S000C9C 01 NOP 2732 ; 2733 S000C9D 05 08' BRA BG_SIDECK_0001 2734 S000C9F 01 NOP 2735 ; 2736 BG_SIDECK_00002 2737 S000CA0 3D A0 55 LMS R0,CPLYSPD 2738 S000CA3 50 ADD R0 ;(C) <-- (N) 2739 S000CA4 0D 23' BCS BG_SIDECK_0100 ;上昇中？ ( yes:BG_SIDECK_0100 ) 2740 S000CA6 01 NOP 2741 ; 2742 BG_SIDECK_0001 2743 S000CA7 3D A0 54 LMS R0,CPLXSPD 2744 S000CAA 3E 60 SUB #0 2745 S000CAC 09 06' BEQ BG_SIDECK_0002 2746 S000CAE D2 INC R2 ;ＢＧ当たりフラグ”ＯＮ” 2747 ; 2748 S000CAF 3D C3 XOR R3 2749 S000CB1 0A 16' BPL BG_SIDECK_0100 ;移動方向ＯＫ？ ( no:BG_SIDECK_0100 ) 2750 S000CB3 01 NOP 2751 ; 2752 BG_SIDECK_0002 2753 S000CB4 D1 INC R1 ;横ＢＧ当たりＯＫフラグ”ＯＮ” 2754 ; 2755 ;-------------- Ｘ座標補正チェック ------------------------------ 2756 S000CB5 24 B3 MOVES R4,R3 ;Ｘ座標補正値セット 2757 ; 2758 S000CB7 3D A0 00 LMS R0,CWORK0 2759 S000CBA 3E 7F AND #0FH 2760 S000CBC D3 INC R3 ;[ * (R3): 00001H or 0FFFFH ] 2761 S000CBD 09 03' BEQ BG_SIDECK_0060 ;左へ補正？ ( yes:BG_SIDECK_0060 ) 2762 S000CBF E3 DEC R3 2763 ; 2764 S000CC0 3F CF XOR #0FH 2765 BG_SIDECK_0060 2766 S000CC2 E0 DEC R0 ;[ CMP #0 ] 2767 S000CC3 0A 04' BPL BG_SIDECK_0100 ;ＢＧ当たり継続？ ( yes:BG_SIDECK_0100 ) 2768 S000CC5 01 NOP 2769 ; 2770 S000CC6 3E A3 45 SMS R3,CPLXSDR 2771 BG_SIDECK_0100 2772 ; 2773 ;------------------------------------------------------------------------ 2774 ;- 横用特殊ＢＧ当たりチェック - 2775 ;------------------------------------------------------------------------ 2776 mDJMP SIDE_SP_CK 2776+ S000CC9 FF 0ECB' IWT R15, #SIDE_SP_CK 2776+ S000CCC 01 NOP 2777 ; 2778 ; 2779 ;---------------------------------------------------------------- 2780 ;- ＢＧユニットＮｏ．読み込み - 2781 ;- in : - 2782 ;- (R1) <-- 敵のインデックス - 2783 ;- (R9) <-- 敵のＸ座標 - 2784 ;- (R10) <-- ” Ｙ ” - 2785 ;- (R11) <-- 復帰アドレス - 2786 ;- (R14) <-- ＢＧチェックポイント - 2787 ;- データアドレス - 2788 ;- out : - 2789 ;- (R0) <-- BG unit no. type - 2790 ;- (R6) <-- BG unit no. - 2791 ;- (R7) <-- BG unit no. type - 2792 ;- (R8) <-- BG type status data - 2793 ;- (CWK0) <- ＢＧチェックＸ座標 - 2794 ;- (CWK1) <- ” Ｙ ” - 2795 ;- break : - 2796 ;- (R5) - 2797 ;---------------------------------------------------------------- 2798 BGUNIT_READ 2799 S000CCD 3F EF GETBS 2800 S000CCF DE INC R14 2801 S000CD0 18 TO R8 ;(R8) <-- BG check X pos 2802 S000CD1 59 ADD R9 2803 ; 2804 S000CD2 3F EF GETBS 2805 S000CD4 DE INC R14 2806 S000CD5 5A ADD R10 2807 BGUNIT_READ_S 2808 S000CD6 3D A6 E5 LMS R6,CBG2OF_FG 2809 S000CD9 E6 DEC R6 ;(N) set 2810 ; 2811 S000CDA 17 TO R7 ;(R7) <-- BG check Y pos x2 2812 S000CDB 0B 05' BMI BGUNIT_READ_000 ;オフセットモード？ ( no:BGUNIT_READ_000 ) 2813 S000CDD 50 ADD R0 2814 ; 2815 mDJMP BGUNIT_READ_O 2815+ S000CDE FF 0D75' IWT R15, #BGUNIT_READ_O 2815+ S000CE1 01 NOP 2816 ; 2817 BGUNIT_READ_000 2818 S000CE2 3D A5 53 LMS R5,CWRSCV1 2819 S000CE5 65 SUB R5 2820 S000CE6 F5 00E0 IWT R5,#0E0H 2821 S000CE9 65 SUB R5 ;(C) set 2822 ; 2823 S000CEA 3D A5 52 LMS R5,CWRSCH1 2824 S000CED 0D 1A' BCS BGUNIT_READ_002 ;ＢＧチェックバッファＹ座標範囲内？ ( no:BGUNIT_READ_002 ) 2825 S000CEF B8 FROM R8 2826 ; 2827 S000CF0 65 SUB R5 2828 S000CF1 C0 HIB 2829 S000CF2 08 15' BNE BGUNIT_READ_002 ;ＢＧチェックバッファＸ座標範囲内？ ( no:BGUNIT_READ_002 ) 2830 S000CF4 B8 FROM R8 2831 ; 2832 S000CF5 03 LSR 2833 S000CF6 03 LSR 2834 S000CF7 03 LSR 2835 S000CF8 A5 3E IBT R5,#01F0H>>3 2836 S000CFA 15 TO R5 2837 S000CFB 75 AND R5 2838 S000CFC F0 01E0 IWT R0,#0F0H<<1 2839 S000CFF 77 AND R7 2840 S000D00 50 ADD R0 2841 S000D01 C5 OR R5 vvv******* warn :value out of range 2842 S000D02 F5 409E IWT R5,#BGCHECK_BUF 2843 S000D05 55 ADD R5 2844 S000D06 05 2B' BRA BGUNIT_READ_010 2845 S000D08 40 LDW (R0) 2846 ; 2847 BGUNIT_READ_002 2848 S000D09 70 MERGE 2849 S000D0A 09 64' BEQ BGUNIT_READ_020 ;BG check point max over ? ( yes:BGUNIT_READ_020 ) 2850 S000D0C 16 TO R6 2851 ; 2852 S000D0D 9E LOB 2853 S000D0E C0 HIB 2854 S000D0F 3E 7E AND #07H*2 2855 S000D11 3F 88 UMULT #8 2856 S000D13 C6 OR R6 2857 S000D14 F6 0CAA IWT R6,#CUNBUFAD 2858 S000D17 56 ADD R6 2859 S000D18 3D 40 LDB (R0) 2860 S000D1A A6 3F IBT R6,#3FH 2861 S000D1C 76 AND R6 2862 S000D1D 16 TO R6 2863 S000D1E 4D SWAP 2864 S000D1F F0 01E0 IWT R0,#0F0H<<1 2865 S000D22 15 TO R5 2866 S000D23 77 AND R7 2867 S000D24 B8 FROM R8 2868 S000D25 9E LOB 2869 S000D26 03 LSR 2870 S000D27 03 LSR 2871 S000D28 03 LSR 2872 S000D29 C5 OR R5 2873 S000D2A 03 LSR 2874 S000D2B C6 OR R6 2875 S000D2C 50 ADD R0 ;[ ASL ] vvv******* warn :value out of range 2876 S000D2D F6 8000 IWT R6,#CBGUNIT 2877 S000D30 56 ADD R6 2878 mRAM_READ ;<<< SFC-RAM read >>> 2878+ S000D31 00 STOP 2878+ S000D32 01 NOP 2879 ; 2880 BGUNIT_READ_010 2881 S000D33 20 16 MOVE R6,R0 ;(R6) <-- BG unit no. 2882 S000D35 C0 HIB 2883 S000D36 3F 83 UMULT #3 ;x3 2884 BGUNIT_READ_011 2885 S000D38 2E 15 MOVE R5,R14 ;(R14) save 2886 ; 2887 S000D3A FE 0000" IWT R14,#EN_BGTYPE 2888 S000D3D 1E TO R14 ;(R14) <-- BG unit no. type data address 2889 S000D3E 5E ADD R14 2890 S000D3F 3E A8 00 SMS R8,CWORK0 ;(CWK0) <-- BG check X pos 2891 S000D42 EF GETB 2892 S000D43 DE INC R14 2893 ; 2894 S000D44 27 WITH R7 2895 S000D45 96 ASR 2896 S000D46 3E A7 01 SMS R7,CWORK1 ;(CWK1) <-- BG check Y pos 2897 ; 2898 S000D49 A8 F8 IBT R8,#11111000B ;(R8) <-- ＢＧタイプチェック用ＡＮＤデータ 2899 ; 2900 S000D4B 3D EF GETBH 2901 S000D4D DE INC R14 2902 S000D4E 20 17 MOVE R7,R0 ;(R0),(R7) <-- BG type data 2903 ; 2904 S000D50 C0 HIB ;[ 上位バイトは０になるのでＡＮＤしても上位バイトは０ ] 2905 S000D51 78 AND R8 2906 S000D52 A8 72 IBT R8,#(CB/100H)-00001000B+2 ;[ CB=0111100000000000B：サイン拡張しない ] 2907 S000D54 68 SUB R8 2908 S000D55 3E 6F SUB #00001111B ;[ 00000110B:CB 00001110B:MB ] 2909 S000D57 0D 10' BCS BGUNIT_READ_012+1 ;点線ブロック？ ( no:BGUNIT_READ_012+1 ) 2910 S000D59 18 TO R8 ;[ * BGUNIT_READ_012 ] 2911 ; 2912 S000D5A A8 11 IBT R8,#00001111B+00000010B ;[ 00001000B:CB 00010000B:MB ] 2913 S000D5C 58 ADD R8 2914 S000D5D 3D F8 1E08 LM R8,CSWITCH_1 2915 S000D61 78 AND R8 2916 S000D62 09 05' BEQ BGUNIT_READ_012+1 2917 S000D64 18 TO R8 ;[ * BGUNIT_READ_012 ] 2918 ; 2919 S000D65 27 WITH R7 ;全当たりに変更 2920 S000D66 3E C2 OR #AL 2921 ; 2922 BGUNIT_READ_012 2923 S000D68 18 TO R8 ;(R8) <-- BG type status data 2924 S000D69 EF GETB 2925 ; 2926 S000D6A 27 10 MOVE R0,R7 ;(R0),(R7) <-- BG type data 2927 S000D6C 25 1E MOVE R14,R5 ;(R14) load 2928 mRTS 2928+ S000D6E 9B JMP R11 2928+ S000D6F 01 NOP 2929 ; 2930 BGUNIT_READ_020 2931 S000D70 A6 01 IBT R6,#UT0001 ;(R6) <-- BG unit no. 2932 S000D72 05 C4' BRA BGUNIT_READ_011 2933 S000D74 60 SUB R0 ;[ (R0) <-- HIGH(R6) x3 ] 2934 ; 2935 ;---------------------------------------------------------------- 2936 ;- ＢＧユニットＮｏ．読み込み（オフセット） - 2937 ;- in : - 2938 ;- (R1) <-- 敵のインデックス - 2939 ;- (R9) <-- 敵のＸ座標 - 2940 ;- (R10) <-- ” Ｙ ” - 2941 ;- (R11) <-- 復帰アドレス - 2942 ;- (R14) <-- ＢＧチェックポイント - 2943 ;- データアドレス - 2944 ;- out : - 2945 ;- (R0) <-- BG unit no. type - 2946 ;- (R6) <-- BG unit no. - 2947 ;- (R7) <-- BG unit no. type - 2948 ;- (R8) <-- BG type status data - 2949 ;- (CWK0) <- ＢＧチェックＸ座標 - 2950 ;- (CWK1) <- ” Ｙ ” - 2951 ;- break : - 2952 ;- (R5) - 2953 ;---------------------------------------------------------------- 2954 BGUNIT_READ_O 2955 S000D75 3D F0 0094 LM R0,CESCCH1 2956 S000D79 3F 77 BIC #07H ;[ AND #0FFF8H ] 2957 S000D7B B8 FROM R8 2958 S000D7C 60 SUB R0 2959 S000D7D 03 LSR 2960 S000D7E 03 LSR 2961 S000D7F A5 42 IBT R5,#0021H*2 2962 S000D81 65 SUB R5 2963 S000D82 0D 1D' BCS BGUNIT_READ_O40 ;オフセットエリア？ ( no:BGUNIT_READ_O40 ) 2964 S000D84 55 ADD R5 2965 ; 2966 S000D85 03 LSR ;[ AND #0FFFEH ] 2967 S000D86 08 08' BNE BGUNIT_READ_O20 ;０ラインオフセットエリア？ ( no:BGUNIT_READ_O20 ) 2968 S000D88 50 ADD R0 ;[ AND #0FFFEH ] 2969 ; 2970 ;-------------- ０ラインオフセットエリア ------------------------ 2971 S000D89 3D F0 1EF0 LM R0,CBG2OFV 2972 S000D8D 05 07' BRA BGUNIT_READ_O30+1 2973 S000D8F F5 HEX F5 ;[ IWT R5,#1FFFH ] 2974 ; 2975 ;-------------- ０ライン以外のオフセットエリア ------------------ 2976 BGUNIT_READ_O20 2977 S000D90 F5 1F30 IWT R5,#CBG2OFF+(20H*2)-2 2978 S000D93 55 ADD R5 2979 S000D94 40 LDW (R0) 2980 BGUNIT_READ_O30 2981 S000D95 F5 1FFF IWT R5,#1FFFH 2982 S000D98 75 AND R5 2983 S000D99 3D F5 009C LM R5,CESCCV1 2984 S000D9D 65 SUB R5 2985 S000D9E 50 ADD R0 2986 S000D9F 17 TO R7 2987 S000DA0 57 ADD R7 2988 ; 2989 BGUNIT_READ_O40 2990 mDJMP_X BGUNIT_READ_000+1 2990+ S000DA1 FF 0CE3' IWT R15, #BGUNIT_READ_000+1 2991 S000DA4 3D HEX 3D ;[ LMS R5,CWRSCV1 ] 2992 ; 2993 ; 2994 ;------------------------------------------------------------------------ 2995 ;- 頭と足の当たりチェック - 2996 ;- in : - 2997 ;- (R2) <-- ＢＧ当たりフラグ - 2998 ;- (R3) <-- 頭か足のフラグ - 2999 ;- (R4) <-- 前回坂フラグ（足のみ） - 3000 ;- (R9) <-- プレイヤーＸ座標 - 3001 ;- (R10) <-- ” Ｙ ” - 3002 ;- (R11) <-- 復帰アドレス - 3003 ;- (R14) <-- ＢＧチェックポイント - 3004 ;- データアドレス - 3005 ;- out : - 3006 ;- (R0) <-- BG unit no. type - 3007 ;- (R6) <-- BG unit no. - 3008 ;- (R7) <-- BG unit no. type - 3009 ;- (R8) <-- BG type status data - 3010 ;- (CWK0) <- ＢＧチェックＸ座標 - 3011 ;- (CWK1) <- ” Ｙ ” - 3012 ;- (CWK8) <- 移動角度 - 3013 ;- 3014 ;- break : - 3015 ;- (R1) - 3016 ;- (R5) - 3017 ;- use RAM : - 3018 ;- (RTS1) - 3019 ;------------------------------------------------------------------------ 3020 BG_HDFTCK 3021 S000DA5 3E AB 31 SMS R11,RTS1 ;[ return address save ] 3022 ; 3023 S000DA8 22 WITH R2 ;[ ASL R2 ] 3024 S000DA9 52 ADD R2 3025 ; 3026 S000DAA 60 SUB R0 3027 S000DAB 3E A0 08 SMS R0,CWORK8 ;(CWK8) <-- saka angle 3028 ; 3029 mJSR_X BGUNIT_READ+1 3029+ S000DAE 94 LINK #4 3029+ S000DAF FF 0CCE' IWT R15, #BGUNIT_READ+1 3030 S000DB2 3F HEX 3F ;[ ALT3 ( GETBS ) ] 3031 ; 3032 BG_HDFTCK_0000 3033 S000DB3 3D A0 01 LMS R0,CWORK1 ;(R0) <-- BG check Y pos 3034 S000DB6 11 TO R1 ;(R1) <-- Y pos cross size 3035 S000DB7 3E 7F AND #0FH 3036 S000DB9 21 1C MOVE R12,R1 ;(R12) <-- Y pos cross size 3037 ; 3038 S000DBB A5 05 IBT R5,#MD+SK ;(R5) <-- 坂チェックデータ 3039 S000DBD E3 DEC R3 3040 S000DBE 0A 03' BPL BG_HDFTCK_010 ;頭チェック？ ( yes:BG_HDFTCK_010 ) 3041 S000DC0 D3 INC R3 3042 ; 3043 S000DC1 A5 04 IBT R5,#SK ;(R5) <-- 坂チェックデータ 3044 BG_HDFTCK_010 3045 S000DC3 B7 FROM R7 3046 S000DC4 75 AND R5 3047 S000DC5 1D TO R13 ;(R13) <-- 下のＢＧは坂？チェックしたか？ 3048 S000DC6 65 SUB R5 3049 S000DC7 09 29' BEQ BG_HDFTCK_020 ;坂 cross ? ( yes:BG_HDFTCK_020 ) 3050 S000DC9 01 NOP 3051 ; 3052 ;-------------- 下のＢＧは坂？チェック ---------------------------------- 3053 S000DCA 3E A6 02 SMS R6,CWORK2 ;(CWK2) <-- BG unit no. 3054 S000DCD 3E A7 03 SMS R7,CWORK3 ;(CWK3) <-- BG unit no. type 3055 S000DD0 3E A8 04 SMS R8,CWORK4 ;(CWK4) <-- BG type status data 3056 S000DD3 3D A8 00 LMS R8,CWORK0 3057 S000DD6 3E A8 05 SMS R8,CWORK5 ;(CWK5) <-- BG check X pos 3058 S000DD9 3D A7 01 LMS R7,CWORK1 3059 S000DDC 3E A7 06 SMS R7,CWORK6 ;(CWK6) <-- BG check Y pos 3060 S000DDF 3E A5 07 SMS R5,CWORK7 ;(CWK7) <-- 坂チェックデータ 3061 ; 3062 S000DE2 B3 FROM R3 3063 S000DE3 57 ADD R7 3064 mJSR_X BGUNIT_READ_S+1 3064+ S000DE4 94 LINK #4 3064+ S000DE5 FF 0CD7' IWT R15, #BGUNIT_READ_S+1 3065 S000DE8 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 3066 ; 3067 S000DE9 3D A5 07 LMS R5,CWORK7 ;(R5) <-- 坂チェックデータ 3068 S000DEC 75 AND R5 3069 S000DED 65 SUB R5 3070 S000DEE 08 6D' BNE BG_HDFTCK_040 ;坂 cross ? ( no:BG_HDFTCK_040 ) 3071 S000DF0 21 WITH R1 ;(R1) <-- Y pos cross size 3072 ; 3073 S000DF1 63 SUB R3 3074 ; 3075 ;-------------- 坂チェック ---------------------------------------------- 3076 BG_HDFTCK_020 3077 S000DF2 3E AE 2E SMS R14,REG14 ;(R14) save 3078 ; 3079 S000DF5 B8 FROM R8 ;坂タイプＮｏ．x(8x16) 3080 S000DF6 4D SWAP 3081 S000DF7 23 B3 MOVES R3,R3 3082 S000DF9 0A 03' BPL BG_HDFTCK_030 ;頭チェック？ ( yes:BG_HDFTCK_030 ) 3083 S000DFB 03 LSR 3084 ; 3085 S000DFC D0 INC R0 ;[ +2 ] 3086 S000DFD D0 INC R0 ; 3087 BG_HDFTCK_030 3088 S000DFE FE 0004" IWT R14,#SAKA_DATA+4 3089 S000E01 1E TO R14 3090 S000E02 5E ADD R14 3091 S000E03 3D A0 00 LMS R0,CWORK0 3092 S000E06 3E 7F AND #0FH 3093 S000E08 3E 88 MULT #8 3094 S000E0A 1E TO R14 ;(R14) <-- 坂データアドレス 3095 S000E0B 5E ADD R14 3096 S000E0C 15 TO R5 3097 S000E0D EF GETB 3098 S000E0E DE INC R14 3099 S000E0F 3F EF GETBS 3100 ; 3101 S000E11 3D AE 2E LMS R14,REG14 ;(R14) load 3102 ; 3103 S000E14 61 SUB R1 3104 S000E15 3D C3 XOR R3 3105 S000E17 0B 3F' BMI BG_HDFTCK_036 ;cross ? ( no:BG_HDFTCK_036 ) 3106 S000E19 11 TO R1 ;(R1) <-- 補正値 3107 ; 3108 S000E1A 3D C3 XOR R3 3109 S000E1C D1 INC R1 3110 S000E1D 3E A5 08 SMS R5,CWORK8 ;(CWK8) <-- saka angle 3111 ; 3112 S000E20 23 B3 MOVES R3,R3 3113 S000E22 0A 77' BPL BG_HDFTCK_070 ;頭チェック？ ( yes:BG_HDFTCK_070 ) 3114 S000E24 D2 INC R2 ;[ BG cross flag set ] 3115 ; 3116 ;-------------- 足の坂ＢＧ当たりＯＫチェック -------------------- 3117 S000E25 B5 FROM R5 3118 S000E26 95 SEX 3119 S000E27 0A 03' BPL BG_HDFTCK_032 3120 S000E29 01 NOP 3121 ; 3122 S000E2A 4F NOT 3123 S000E2B D0 INC R0 3124 BG_HDFTCK_032 3125 S000E2C 03 LSR 3126 S000E2D 03 LSR 3127 S000E2E 03 LSR 3128 S000E2F 03 LSR 3129 S000E30 3E 59 ADD #8+1 ;(R0) <-- 坂の角度による補正可能範囲 3130 S000E32 51 ADD R1 3131 ;;;;; FROM R1 3132 ;;;;; ADD #8+1 ;[ +1:スキーヨッシーで食い込む為 ] 3133 S000E33 0B 22' BMI BG_HDFTCK_035 ;補正できる範囲？ ( no:BG_HDFTCK_035 ) 3134 S000E35 01 NOP 3135 ; 3136 S000E36 3D A0 55 LMS R0,CPLYSPD ;(R0) <-- 上下スピード 3137 S000E39 50 ADD R0 ;(C) <-- (N) 3138 S000E3A 0C 63' BCC BG_HDFTCK_080 ;上昇中？ ( no:BG_HDFTCK_080 ) 3139 S000E3C 01 NOP 3140 ; 3141 S000E3D 3D A0 60 LMS R0,CPLJUMP 3142 S000E40 E0 DEC R0 3143 S000E41 0B 5C' BMI BG_HDFTCK_080 ;ジャンプ中？ ( no:BG_HDFTCK_080 ) 3144 S000E43 01 NOP 3145 ; 3146 S000E44 E4 DEC R4 3147 S000E45 0A 10' BPL BG_HDFTCK_035 ;前回坂？ ( yes:BG_HDFTCK_035 ) 3148 S000E47 D4 INC R4 3149 ; 3150 S000E48 3D F0 00A9 LM R0,CPLXSPD+1 3151 S000E4C 3D C5 XOR R5 3152 S000E4E 95 SEX 3153 S000E4F 0B 06' BMI BG_HDFTCK_035 ;坂方向ＯＫ？ ( no:BG_HDFTCK_035 ) 3154 S000E51 60 SUB R0 ;[ saka angle clear !! ] 3155 ; 3156 ;-------------- 坂での上昇中強制補正 -------------------- 3157 S000E52 3E A0 08 SMS R0,CWORK8 ;(CWK8) <-- saka angle 3158 S000E55 2A WITH R10 ;Ｙ座標補正 3159 S000E56 51 ADD R1 3160 ; 3161 BG_HDFTCK_035 3162 S000E57 E2 DEC R2 ;[ BG cross flag reset ] 3163 BG_HDFTCK_036 3164 S000E58 2D BD MOVES R13,R13 3165 S000E5A 09 39' BEQ BG_HDFTCK_060 ;下のＢＧは坂？チェックしたか？ ( no:BG_HDFTCK_060 ) 3166 S000E5C 01 NOP 3167 ; 3168 ;-------------- 下のＢＧは坂ではなかった -------------------------------- 3169 BG_HDFTCK_040 3170 S000E5D 2C 11 MOVE R1,R12 ;[ from ] (R1) <-- Y pos cross size 3171 ; 3172 S000E5F 3D A6 02 LMS R6,CWORK2 ;(R6) <-- up BG unit no. 3173 S000E62 3D A7 03 LMS R7,CWORK3 ;(R7) <-- up BG unit no. type 3174 S000E65 3D A8 04 LMS R8,CWORK4 ;(R8) <-- up BG type status data 3175 S000E68 3D A0 05 LMS R0,CWORK5 3176 S000E6B 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- BG check X pos 3177 S000E6E 3D A0 06 LMS R0,CWORK6 3178 S000E71 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- BG check Y pos 3179 ; 3180 BG_HDFTCK_042 3181 S000E74 A0 02 IBT R0,#AL 3182 S000E76 E3 DEC R3 3183 S000E77 0A 03' BPL BG_HDFTCK_050 ;頭チェック？ ( yes:BG_HDFTCK_050 ) 3184 S000E79 D3 INC R3 3185 ; 3186 S000E7A A0 03 IBT R0,#MD+AL 3187 BG_HDFTCK_050 3188 S000E7C 77 AND R7 3189 S000E7D 09 16' BEQ BG_HDFTCK_060 ;BG cross ? ( no:BG_HDFTCK_060 ) 3190 S000E7F 01 NOP 3191 ; 3192 S000E80 D2 INC R2 ;[ BG cross flag set ] 3193 ; 3194 S000E81 21 WITH R1 ;(R1) <-- 補正値 3195 S000E82 4F NOT 3196 ; 3197 S000E83 23 B3 MOVES R3,R3 3198 S000E85 0A 14' BPL BG_HDFTCK_070 ;頭チェック？ ( yes:BG_HDFTCK_070 ) 3199 S000E87 D1 INC R1 3200 ; 3201 S000E88 3D A0 55 LMS R0,CPLYSPD ;(R0) <-- 上下スピード 3202 S000E8B 50 ADD R0 ;(C) <-- (N) 3203 S000E8C 0D 06' BCS BG_HDFTCK_052 ;上昇中？ ( yes:BG_HDFTCK_052 ) 3204 S000E8E B1 FROM R1 3205 ; 3206 S000E8F 3E 58 ADD #8 3207 S000E91 0A 0C' BPL BG_HDFTCK_080 ;補正できる範囲？ ( yes:BG_HDFTCK_080 ) 3208 S000E93 01 NOP 3209 ; 3210 ;-------------- 当たり無し補正値セット -------------------------- 3211 BG_HDFTCK_052 3212 S000E94 E2 DEC R2 ;[ BG cross flag reset ] 3213 BG_HDFTCK_060 3214 S000E95 A1 20 IBT R1,#020H ;当たり無し補正値 3215 ; 3216 S000E97 E3 DEC R3 3217 S000E98 0B 05' BMI BG_HDFTCK_080 ;足チェック？ ( yes:BG_HDFTCK_080 ) 3218 S000E9A D3 INC R3 3219 ; 3220 ;------------------------------------------------------------------------ 3221 ;- 頭用特殊ＢＧ当たりチェック - 3222 ;------------------------------------------------------------------------ 3223 BG_HDFTCK_070 3224 mDJMP HED_SP_CK 3224+ S000E9B FF 0FE8' IWT R15, #HED_SP_CK 3224+ S000E9E 01 NOP 3225 ; 3226 ;------------------------------------------------------------------------ 3227 ;- 足用特殊ＢＧ当たりチェック - 3228 ;------------------------------------------------------------------------ 3229 BG_HDFTCK_080 3230 mDJMP FOOT_SP_CK 3230+ S000E9F FF 11B4' IWT R15, #FOOT_SP_CK 3230+ S000EA2 01 NOP 3231 ; 3232 ; 3233 ;------------------------------------------------------------------------ 3234 ;- 特殊ＢＧ当たりチェック - 3235 ;- in : - 3236 ;- (R1) <-- ※使っている - 3237 ;- (R2) <-- ＢＧ当たりフラグ - 3238 ;- (R3) <-- ※使っている - 3239 ;- (R4) <-- ※使っている - 3240 ;- (R9) <-- プレイヤーＸ座標 - 3241 ;- (R10) <-- ” Ｙ ” - 3242 ;- (R11) <-- 復帰アドレス - 3243 ;- (R14) <-- ＢＧチェックポイント - 3244 ;- データアドレス - 3245 ;- out : - 3246 ;- (R6) <-- BG unit no. - 3247 ;- (R7) <-- BG unit no. type - 3248 ;- (CWK0) <- ＢＧチェックＸ座標 - 3249 ;- (CWK1) <- ” Ｙ ” - 3250 ;- break : - 3251 ;- (R1) - 3252 ;- (R5) - 3253 ;- use RAM : - 3254 ;- (RTS0) - 3255 ;------------------------------------------------------------------------ 3256 BG_SP_CHECK 3257 ; 3258 ;-------------- 水中チェック ------------------------------------ 3259 S000EA3 A0 18 IBT R0,#WT+MG 3260 S000EA5 77 AND R7 3261 S000EA6 3E 68 SUB #WT 3262 S000EA8 09 0C' BEQ BG_SP_CHECK_050 ;水中？ ( yes:BG_SP_CHECK_050 ) 3263 S000EAA D0 INC R0 3264 ; 3265 S000EAB 3D A0 01 LMS R0,CWORK1 3266 S000EAE 3D A5 DE LMS R5,CWATER_Y 3267 S000EB1 65 SUB R5 3268 S000EB2 0B 02' BMI BG_SP_CHECK_050 ;水中？ ( no:BG_SP_CHECK_050 ) 3269 S000EB4 60 SUB R0 3270 ; 3271 S000EB5 D0 INC R0 3272 BG_SP_CHECK_050 3273 S000EB6 03 LSR ;(C) set 3274 S000EB7 3D A0 7F LMS R0,CPLWATR ;(R0) <-- 水中当たりフラグ 3275 S000EBA 04 ROL ;(C) get 3276 S000EBB 90 SBK ;[ SMS R0,CPLWATR ] 3277 ; 3278 ;-------------- トンネルチェック -------------------------------- 3279 S000EBC 3D A0 80 LMS R0,CPLTNEL ;(R0) <-- トンネル当たりフラグ 3280 S000EBF 50 ADD R0 ;[ ASL ] 3281 S000EC0 A5 20 IBT R5,#TN 3282 S000EC2 25 WITH R5 3283 S000EC3 77 AND R7 3284 S000EC4 09 02' BEQ BG_SP_CHECK_100 ;トンネル？ ( no:BG_SP_CHECK_100 ) 3285 S000EC6 01 NOP 3286 ; 3287 S000EC7 D0 INC R0 3288 BG_SP_CHECK_100 3289 S000EC8 90 SBK ;[ SMS R0,CPLTNEL ] 3290 mRTS 3290+ S000EC9 9B JMP R11 3290+ S000ECA 01 NOP 3291 ; 3292 ;------------------------------------------------------------------------ 3293 ;- 横用特殊ＢＧ当たりチェック - 3294 ;- in : - 3295 ;- (R1) <-- 横ＢＧ当たりＯＫフラグ - 3296 ;- (R2) <-- ＢＧ当たりフラグ - 3297 ;- (R3) <-- 補正向き - 3298 ;- (R4) <-- 補正データ - 3299 ;- (R9) <-- プレイヤーＸ座標 - 3300 ;- (R10) <-- ” Ｙ ” - 3301 ;- (R14) <-- ＢＧチェックポイント - 3302 ;- データアドレス - 3303 ;- (RTS1) <- 復帰アドレス - 3304 ;- out : - 3305 ;- (R6) <-- BG unit no. - 3306 ;- (R7) <-- BG unit no. type - 3307 ;- (CWK0) <- ＢＧチェックＸ座標 - 3308 ;- (CWK1) <- ” Ｙ ” - 3309 ;- break : - 3310 ;- (R1) - 3311 ;- (R5) - 3312 ;- use RAM : - 3313 ;- (RTS0) - 3314 ;------------------------------------------------------------------------ 3315 SIDE_SP_CK 3316 mJSR BG_SP_CHECK ;特殊ＢＧ当たりチェック 3316+ S000ECB 94 LINK #4 3316+ S000ECC FF 0EA3' IWT R15, #BG_SP_CHECK 3316+ S000ECF 01 NOP 3317 ; 3318 S000ED0 F0 F800 IWT R0,#1111100000000000B 3319 S000ED3 77 AND R7 3320 S000ED4 09 76' BEQ SIDE_SP_CK_010 ;特殊ＢＧ？ ( no:SIDE_SP_CK_010 ) 3321 S000ED6 C0 HIB 3322 ; 3323 S000ED7 03 LSR ;[ JSRSUB ] 3324 S000ED8 D0 INC R0 ; 3325 S000ED9 1F TO R15 ; 3326 S000EDA 5F ADD R15 ; 3327 S000EDB FF HEX FF ; 3328 ; 3329 mTWORD SIDE_SP_CK_010 ;[無し] 3329+ S000EDC 0F4C' WORD SIDE_SP_CK_010 3329+ S000EDE 01 NOP 3329+ S000EDF 01 NOP 3330 mTWORD SIDE_SP_CK_010 ;[雪、草の上] 3330+ S000EE0 0F4C' WORD SIDE_SP_CK_010 3330+ S000EE2 01 NOP 3330+ S000EE3 01 NOP 3331 mTWORD SIDE_SP_CK_010 ;[せっけん] 3331+ S000EE4 0F4C' WORD SIDE_SP_CK_010 3331+ S000EE6 01 NOP 3331+ S000EE7 01 NOP 3332 mTWORD SIDE_SP_CK_010 ;[へこみ床] 3332+ S000EE8 0F4C' WORD SIDE_SP_CK_010 3332+ S000EEA 01 NOP 3332+ S000EEB 01 NOP 3333 mTWORD SIDE_SP_CK_010 ;[泥] 3333+ S000EEC 0F4C' WORD SIDE_SP_CK_010 3333+ S000EEE 01 NOP 3333+ S000EEF 01 NOP 3334 mTWORD YOGAN_ON ;[溶岩] 3334+ S000EF0 1244' WORD YOGAN_ON 3334+ S000EF2 01 NOP 3334+ S000EF3 01 NOP 3335 mTWORD COIN_CROSS ;[コイン] 3335+ S000EF4 0FDF' WORD COIN_CROSS 3335+ S000EF6 01 NOP 3335+ S000EF7 01 NOP 3336 mTWORD SIDE_SP_CK_010 ;[？ブロック] 3336+ S000EF8 0F4C' WORD SIDE_SP_CK_010 3336+ S000EFA 01 NOP 3336+ S000EFB 01 NOP 3337 mTWORD SIDE_SP_CK_010 ;[食べれるＢＧ] 3337+ S000EFC 0F4C' WORD SIDE_SP_CK_010 3337+ S000EFE 01 NOP 3337+ S000EFF 01 NOP 3338 mTWORD SIDE_SP_CK_010 ;[線路] 3338+ S000F00 0F4C' WORD SIDE_SP_CK_010 3338+ S000F02 01 NOP 3338+ S000F03 01 NOP 3339 mTWORD FAIL_CROSS ;[当たるとダメージ] 3339+ S000F04 123A' WORD FAIL_CROSS 3339+ S000F06 01 NOP 3339+ S000F07 01 NOP 3340 mTWORD SIDE_SP_CK_010 ;[杭] 3340+ S000F08 0F4C' WORD SIDE_SP_CK_010 3340+ S000F0A 01 NOP 3340+ S000F0B 01 NOP 3341 mTWORD SIDE_SP_CK_010 ;[左下階段] 3341+ S000F0C 0F4C' WORD SIDE_SP_CK_010 3341+ S000F0E 01 NOP 3341+ S000F0F 01 NOP 3342 mTWORD SIDE_SP_CK_010 ;[右下階段] 3342+ S000F10 0F4C' WORD SIDE_SP_CK_010 3342+ S000F12 01 NOP 3342+ S000F13 01 NOP 3343 mTWORD SIDE_SP_CK_010 ;[乗ったら落ちる床] 3343+ S000F14 0F4C' WORD SIDE_SP_CK_010 3343+ S000F16 01 NOP 3343+ S000F17 01 NOP 3344 mTWORD SIDE_SP_CK_010 ;[点線ブロック] 3344+ S000F18 0F4C' WORD SIDE_SP_CK_010 3344+ S000F1A 01 NOP 3344+ S000F1B 01 NOP 3345 mTWORD SIDE_SP_CK_010 ;[マリオブロック] 3345+ S000F1C 0F4C' WORD SIDE_SP_CK_010 3345+ S000F1E 01 NOP 3345+ S000F1F 01 NOP 3346 mTWORD SIDE_SP_CK_010 ;[ちくわブロック] 3346+ S000F20 0F4C' WORD SIDE_SP_CK_010 3346+ S000F22 01 NOP 3346+ S000F23 01 NOP 3347 mTWORD SIDE_SP_CK_010 ;[カウントブロック] 3347+ S000F24 0F4C' WORD SIDE_SP_CK_010 3347+ S000F26 01 NOP 3347+ S000F27 01 NOP 3348 mTWORD SIDE_SP_CK_010 ;[滝床（ぴちゃぴちゃ）] 3348+ S000F28 0F4C' WORD SIDE_SP_CK_010 3348+ S000F2A 01 NOP 3348+ S000F2B 01 NOP 3349 mTWORD DOKAN_CROSS ;[ドカン] 3349+ S000F2C 0FA8' WORD DOKAN_CROSS 3349+ S000F2E 01 NOP 3349+ S000F2F 01 NOP 3350 mTWORD SUGI_CROSS ;[杉の木] 3350+ S000F30 0F51' WORD SUGI_CROSS 3350+ S000F32 01 NOP 3350+ S000F33 01 NOP 3351 mTWORD CLR_COIN_CROSS ;[点線コイン] 3351+ S000F34 0FD6' WORD CLR_COIN_CROSS 3351+ S000F36 01 NOP 3351+ S000F37 01 NOP 3352 mTWORD SIDE_SP_CK_010 ;[氷ブロック] 3352+ S000F38 0F4C' WORD SIDE_SP_CK_010 3352+ S000F3A 01 NOP 3352+ S000F3B 01 NOP 3353 mTWORD SIDE_SP_CK_010 ;[ぐらぐら岩] 3353+ S000F3C 0F4C' WORD SIDE_SP_CK_010 3353+ S000F3E 01 NOP 3353+ S000F3F 01 NOP 3354 mTWORD SIDE_SP_CK_010 ;[当たるとダメージ（坂杭）] 3354+ S000F40 0F4C' WORD SIDE_SP_CK_010 3354+ S000F42 01 NOP 3354+ S000F43 01 NOP 3355 mTWORD SIDE_SP_CK_010 ;[当たるとダメージ（氷柱）] 3355+ S000F44 0F4C' WORD SIDE_SP_CK_010 3355+ S000F46 01 NOP 3355+ S000F47 01 NOP 3356 mTWORD PDOWN_CROSS ;[当たるとダウン] 3356+ S000F48 1263' WORD PDOWN_CROSS 3356+ S000F4A 01 NOP 3356+ S000F4B 01 NOP 3357 ; 3358 SIDE_SP_CK_010 3359 S000F4C 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3360 mRTS 3360+ S000F4F 9B JMP R11 3360+ S000F50 01 NOP 3361 ; 3362 ;---------------------------------------------------------------- 3363 ;- 杉の木 - 3364 ;---------------------------------------------------------------- 3365 SUGI_CROSS 3366 S000F51 3D A0 F5 LMS R0,CPICHTM 3367 S000F54 3E 60 SUB #0 3368 S000F56 08 4B' BNE SUGI_CROSS_010 ;セットＯＫ？ ( no:SUGI_CROSS_010 ) 3369 S000F58 01 NOP 3370 ; 3371 S000F59 3D A0 60 LMS R0,CPLJUMP 3372 S000F5C 3D A5 5A LMS R5,CPLMVSP 3373 S000F5F C5 OR R5 3374 S000F60 09 41' BEQ SUGI_CROSS_010 ;セットＯＫ？ ( no:SUGI_CROSS_010 ) 3375 S000F62 01 NOP 3376 ; 3377 S000F63 A0 08 IBT R0,#08H ;セットタイマーセット 3378 S000F65 3E A0 F5 SMS R0,CPICHTM 3379 ; 3380 S000F68 A0 04 IBT R0,#04H ;[♪] 3381 S000F6A 3E A0 3D SMS R0,CMSOUND3 3382 ; 3383 S000F6D 3E A1 21 SMS R1,REG1 ;(R1) save 3384 ; 3385 S000F70 F5 0000" IWT R5,#YKCHI ;(R5) <-- 効果Ｎｏ． 3386 mJSR M_EXINSR ;効果エリア確保 3386+ S000F73 94 LINK #4 3386+ S000F74 FF 2A7B' IWT R15, #M_EXINSR 3386+ S000F77 01 NOP 3387 ; 3388 S000F78 3D A0 00 LMS R0,CWORK0 3389 S000F7B 15 TO R5 3390 S000F7C 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3391 mSTW R5,CEXXPSL,R1 ;Ｘ座標セット 3391+ S000F7E F0 10A2 IWT R0,#CEXXPSL 3391+ S000F81 51 ADD R1 3391+ S000F82 B5 FROM R5 3391+ S000F83 30 STW (R0) 3392 S000F84 3D A0 01 LMS R0,CWORK1 3393 S000F87 15 TO R5 3394 S000F88 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3395 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 3395+ S000F8A F0 1142 IWT R0,#CEXYPSL 3395+ S000F8D 51 ADD R1 3395+ S000F8E B5 FROM R5 3395+ S000F8F 30 STW (R0) 3396 S000F90 A5 0E IBT R5,#0EH 3397 mSTW R5,CEXCHPT,R1 ;初期パターンＮｏ．セット 3397+ S000F92 F0 13C2 IWT R0,#CEXCHPT 3397+ S000F95 51 ADD R1 3397+ S000F96 B5 FROM R5 3397+ S000F97 30 STW (R0) 3398 S000F98 A5 04 IBT R5,#04H 3399 mSTW R5,CEXTIM0,R1 ;初期タイマーセット 3399+ S000F9A F0 1782 IWT R0,#CEXTIM0 3399+ S000F9D 51 ADD R1 3399+ S000F9E B5 FROM R5 3399+ S000F9F 30 STW (R0) 3400 ; 3401 S000FA0 3D A1 21 LMS R1,REG1 ;(R1) load 3402 ; 3403 SUGI_CROSS_010 3404 S000FA3 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3405 mRTS 3405+ S000FA6 9B JMP R11 3405+ S000FA7 01 NOP 3406 ; 3407 ;---------------------------------------------------------------- 3408 ;- ドカン当たり - 3409 ;---------------------------------------------------------------- 3410 DOKAN_CROSS 3411 ; 3412 ;-------------- ドカン出入りチェック ---------------------------- 3413 S000FA8 2E 15 MOVE R5,R14 ;(R14) save 3414 ; 3415 S000FAA B6 FROM R6 3416 S000FAB 9E LOB 3417 S000FAC FE 0000" IWT R14,#DOKAN_TYPE 3418 S000FAF 1E TO R14 3419 S000FB0 5E ADD R14 3420 S000FB1 EF GETB 3421 ; 3422 S000FB2 25 1E MOVE R14,R5 ;(R14) load 3423 ; 3424 S000FB4 A5 01 IBT R5,#00000001B 3425 S000FB6 23 B3 MOVES R3,R3 3426 S000FB8 0B 03' BMI DOKAN_CROSS_010 3427 S000FBA 01 NOP 3428 ; 3429 S000FBB A5 02 IBT R5,#00000010B 3430 DOKAN_CROSS_010 3431 S000FBD 15 TO R5 3432 S000FBE 75 AND R5 3433 S000FBF 09 10' BEQ DOKAN_CROSS_030 ;ドカンユニットＯＫ？ ( no:DOKAN_CROSS_030 ) 3434 S000FC1 01 NOP 3435 ; 3436 S000FC2 F0 7D0B IWT R0,#UT7D10-1 3437 S000FC5 66 SUB R6 3438 S000FC6 0D 06' BCS DOKAN_CROSS_020 ;外ドカン？ ( yes:DOKAN_CROSS_020 ) 3439 S000FC8 01 NOP 3440 ; 3441 S000FC9 F0 8000 IWT R0,#8000H 3442 S000FCC 15 TO R5 3443 S000FCD C5 OR R5 3444 DOKAN_CROSS_020 3445 S000FCE 3E A5 83 SMS R5,CDOKNMK ;ドカンフラグセット 3446 ; 3447 DOKAN_CROSS_030 3448 S000FD1 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3449 mRTS 3449+ S000FD4 9B JMP R11 3449+ S000FD5 01 NOP 3450 ; 3451 ;---------------------------------------------------------------- 3452 ;- 点線コイン当たり - 3453 ;---------------------------------------------------------------- 3454 CLR_COIN_CROSS 3455 S000FD6 3D F0 1E08 LM R0,CSWITCH_1 3456 S000FDA 3E 78 AND #00001000B 3457 S000FDC 09 05' BEQ COIN_CROSS_010 ;スイッチ”ＯＮ”？ ( no:COIN_CROSS_010 ) 3458 S000FDE 01 NOP 3459 ; 3460 ;---------------------------------------------------------------- 3461 ;- コイン当たり - 3462 ;---------------------------------------------------------------- 3463 COIN_CROSS 3464 mSFCALL COIN_BG_W ;コイン書き換え 3464+ S000FDF A0 02 IBT R0,#COIN_BG_W 3464+ S000FE1 00 STOP 3464+ S000FE2 01 NOP 3465 ; 3466 COIN_CROSS_010 3467 S000FE3 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3468 mRTS 3468+ S000FE6 9B JMP R11 3468+ S000FE7 01 NOP 3469 ; 3470 ;------------------------------------------------------------------------ 3471 ;- 頭用特殊ＢＧ当たりチェック - 3472 ;- in : - 3473 ;- (R2) <-- ＢＧ当たりフラグ - 3474 ;- (R3) <-- 頭か足のフラグ - 3475 ;- (R4) <-- 移動角度 - 3476 ;- (R9) <-- プレイヤーＸ座標 - 3477 ;- (R10) <-- ” Ｙ ” - 3478 ;- (R14) <-- ＢＧチェックポイント - 3479 ;- データアドレス - 3480 ;- (RTS1) <- 復帰アドレス - 3481 ;- out : - 3482 ;- (R6) <-- BG unit no. - 3483 ;- (R7) <-- BG unit no. type - 3484 ;- (CWK0) <- ＢＧチェックＸ座標 - 3485 ;- (CWK1) <- ” Ｙ ” - 3486 ;- break : - 3487 ;- (R1) - 3488 ;- (R5) - 3489 ;- use RAM : - 3490 ;- (RTS0) - 3491 ;------------------------------------------------------------------------ 3492 HED_SP_CK 3493 mJSR BG_SP_CHECK ;特殊ＢＧ当たりチェック 3493+ S000FE8 94 LINK #4 3493+ S000FE9 FF 0EA3' IWT R15, #BG_SP_CHECK 3493+ S000FEC 01 NOP 3494 ; 3495 ;-------------- 特殊ＢＧ当たりチェック ---------------------------------- 3496 S000FED F0 F800 IWT R0,#1111100000000000B 3497 S000FF0 77 AND R7 ;(R0) <-- ＢＧタイプ 3498 S000FF1 09 76' BEQ HED_SP_CK_100 ;特殊ＢＧ？ ( no:HED_SP_CK_100 ) 3499 S000FF3 C0 HIB 3500 ; 3501 S000FF4 03 LSR ;[ JSRSUB ] 3502 S000FF5 D0 INC R0 ; 3503 S000FF6 1F TO R15 ; 3504 S000FF7 5F ADD R15 ; 3505 S000FF8 FF HEX FF ; 3506 ; 3507 mTWORD HED_SP_CK_100 ;[無し] 3507+ S000FF9 1069' WORD HED_SP_CK_100 3507+ S000FFB 01 NOP 3507+ S000FFC 01 NOP 3508 mTWORD HED_SP_CK_100 ;[雪、草の上] 3508+ S000FFD 1069' WORD HED_SP_CK_100 3508+ S000FFF 01 NOP 3508+ S001000 01 NOP 3509 mTWORD HED_SP_CK_100 ;[せっけん] 3509+ S001001 1069' WORD HED_SP_CK_100 3509+ S001003 01 NOP 3509+ S001004 01 NOP 3510 mTWORD HEKOMI_GON ;[へこみ天井] 3510+ S001005 1100' WORD HEKOMI_GON 3510+ S001007 01 NOP 3510+ S001008 01 NOP 3511 mTWORD HED_SP_CK_100 ;[泥] 3511+ S001009 1069' WORD HED_SP_CK_100 3511+ S00100B 01 NOP 3511+ S00100C 01 NOP 3512 mTWORD YOGAN_ON ;[溶岩] 3512+ S00100D 1244' WORD YOGAN_ON 3512+ S00100F 01 NOP 3512+ S001010 01 NOP 3513 mTWORD COIN_CROSS ;[コイン] 3513+ S001011 0FDF' WORD COIN_CROSS 3513+ S001013 01 NOP 3513+ S001014 01 NOP 3514 mTWORD QBLK_GON ;[？ブロック] 3514+ S001015 1151' WORD QBLK_GON 3514+ S001017 01 NOP 3514+ S001018 01 NOP 3515 mTWORD EATBLK_GON ;[食べれるＢＧ] 3515+ S001019 1195' WORD EATBLK_GON 3515+ S00101B 01 NOP 3515+ S00101C 01 NOP 3516 mTWORD HED_SP_CK_100 ;[[線路] 3516+ S00101D 1069' WORD HED_SP_CK_100 3516+ S00101F 01 NOP 3516+ S001020 01 NOP 3517 mTWORD FAIL_CROSS ;[当たるとダメージ] 3517+ S001021 123A' WORD FAIL_CROSS 3517+ S001023 01 NOP 3517+ S001024 01 NOP 3518 mTWORD HED_SP_CK_100 ;[杭] 3518+ S001025 1069' WORD HED_SP_CK_100 3518+ S001027 01 NOP 3518+ S001028 01 NOP 3519 mTWORD HED_SP_CK_100 ;[左下階段] 3519+ S001029 1069' WORD HED_SP_CK_100 3519+ S00102B 01 NOP 3519+ S00102C 01 NOP 3520 mTWORD HED_SP_CK_100 ;[右下階段] 3520+ S00102D 1069' WORD HED_SP_CK_100 3520+ S00102F 01 NOP 3520+ S001030 01 NOP 3521 mTWORD HED_SP_CK_100 ;[乗ったら落ちる床] 3521+ S001031 1069' WORD HED_SP_CK_100 3521+ S001033 01 NOP 3521+ S001034 01 NOP 3522 mTWORD HED_SP_CK_100 ;[点線ブロック] 3522+ S001035 1069' WORD HED_SP_CK_100 3522+ S001037 01 NOP 3522+ S001038 01 NOP 3523 mTWORD MARIOBLK_GON ;[マリオブロック] 3523+ S001039 106E' WORD MARIOBLK_GON 3523+ S00103B 01 NOP 3523+ S00103C 01 NOP 3524 mTWORD HED_SP_CK_100 ;[ちくわブロック] 3524+ S00103D 1069' WORD HED_SP_CK_100 3524+ S00103F 01 NOP 3524+ S001040 01 NOP 3525 mTWORD HED_SP_CK_100 ;[カウントブロック] 3525+ S001041 1069' WORD HED_SP_CK_100 3525+ S001043 01 NOP 3525+ S001044 01 NOP 3526 mTWORD PICHA_GON ;[滝床（ぴちゃぴちゃ）] 3526+ S001045 10B9' WORD PICHA_GON 3526+ S001047 01 NOP 3526+ S001048 01 NOP 3527 mTWORD HED_SP_CK_100 ;[ドカン] 3527+ S001049 1069' WORD HED_SP_CK_100 3527+ S00104B 01 NOP 3527+ S00104C 01 NOP 3528 mTWORD SUGI_CROSS ;[杉の木] 3528+ S00104D 0F51' WORD SUGI_CROSS 3528+ S00104F 01 NOP 3528+ S001050 01 NOP 3529 mTWORD CLR_COIN_CROSS ;[点線コイン] 3529+ S001051 0FD6' WORD CLR_COIN_CROSS 3529+ S001053 01 NOP 3529+ S001054 01 NOP 3530 mTWORD HED_SP_CK_100 ;[氷ブロック] 3530+ S001055 1069' WORD HED_SP_CK_100 3530+ S001057 01 NOP 3530+ S001058 01 NOP 3531 mTWORD HED_SP_CK_100 ;[ぐらぐら岩] 3531+ S001059 1069' WORD HED_SP_CK_100 3531+ S00105B 01 NOP 3531+ S00105C 01 NOP 3532 mTWORD HED_SP_CK_100 ;[当たるとダメージ（坂杭）] 3532+ S00105D 1069' WORD HED_SP_CK_100 3532+ S00105F 01 NOP 3532+ S001060 01 NOP 3533 mTWORD FAIL_CROSS ;[当たるとダメージ（氷柱）] 3533+ S001061 123A' WORD FAIL_CROSS 3533+ S001063 01 NOP 3533+ S001064 01 NOP 3534 mTWORD PDOWN_CROSS ;[当たるとダウン] 3534+ S001065 1263' WORD PDOWN_CROSS 3534+ S001067 01 NOP 3534+ S001068 01 NOP 3535 ; 3536 HED_SP_CK_100 3537 S001069 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3538 mRTS 3538+ S00106C 9B JMP R11 3538+ S00106D 01 NOP 3539 ; 3540 ;---------------------------------------------------------------- 3541 ;- マリオブロック - 3542 ;---------------------------------------------------------------- 3543 MARIOBLK_GON 3544 S00106E 3D F0 1E08 LM R0,CSWITCH_1 3545 S001072 A5 10 IBT R5,#00010000B 3546 S001074 75 AND R5 3547 S001075 09 3D' BEQ MARIOBLK_GON_20 ;スイッチ”ＯＮ”？ ( no:MARIOBLK_GON_20 ) 3548 S001077 01 NOP 3549 ; 3550 S001078 3D A0 55 LMS R0,CPLYSPD 3551 S00107B 50 ADD R0 ;(C) <-- (N) 3552 S00107C 0C 36' BCC MARIOBLK_GON_20 ;プレイヤー下降中？ ( yes:MARIOBLK_GON_20 ) 3553 S00107E 01 NOP 3554 ; 3555 S00107F F5 0000" IWT R5,#MRBLK ;(R5) <-- 敵Ｎｏ． 3556 ; 3557 S001082 3E A1 21 SMS R1,REG1 ;(R1) save 3558 ; 3559 mJSR M_ENINSR ;敵エリア確保 3559+ S001085 94 LINK #4 3559+ S001086 FF 28C7' IWT R15, #M_ENINSR 3559+ S001089 01 NOP 3560 ; 3561 S00108A 0B 25' BMI MARIOBLK_GON_10 ;敵エリア無し？ ( yes:MARIOBLK_GON_10 ) 3562 S00108C 01 NOP 3563 ; 3564 S00108D A5 02 IBT R5,#CEINIT ;敵イニシャルモードセット 3565 mSTW R5,CENMODE,R1 3565+ S00108F F0 0F00 IWT R0,#CENMODE 3565+ S001092 51 ADD R1 3565+ S001093 B5 FROM R5 3565+ S001094 30 STW (R0) 3566 S001095 3D A0 00 LMS R0,CWORK0 3567 S001098 15 TO R5 3568 S001099 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3569 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 3569+ S00109B F0 10E2 IWT R0,#CENXPSL 3569+ S00109E 51 ADD R1 3569+ S00109F B5 FROM R5 3569+ S0010A0 30 STW (R0) 3570 S0010A1 3D A0 01 LMS R0,CWORK1 3571 S0010A4 15 TO R5 3572 S0010A5 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3573 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 3573+ S0010A7 F0 1182 IWT R0,#CENYPSL 3573+ S0010AA 51 ADD R1 3573+ S0010AB B5 FROM R5 3573+ S0010AC 30 STW (R0) 3574 ; 3575 mSFCALL CLR_BG_W ;ぬきＢＧ書き換え 3575+ S0010AD A0 0A IBT R0,#CLR_BG_W 3575+ S0010AF 00 STOP 3575+ S0010B0 01 NOP 3576 ; 3577 MARIOBLK_GON_10 3578 S0010B1 3D A1 21 LMS R1,REG1 ;(R1) load 3579 ; 3580 MARIOBLK_GON_20 3581 S0010B4 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3582 mRTS 3582+ S0010B7 9B JMP R11 3582+ S0010B8 01 NOP 3583 ; 3584 ; 3585 ;---------------------------------------------------------------- 3586 ;- 滝（ぴちゃぴちゃ） - 3587 ;---------------------------------------------------------------- 3588 PICHA_GON 3589 S0010B9 3D F0 1974 LM R0,CFRCNT2 3590 S0010BD 3E 77 AND #07H 3591 S0010BF 08 34' BNE PICHA_GON_010 ;セットＯＫ？ ( no:PICHA_GON_010 ) 3592 S0010C1 01 NOP 3593 ; 3594 S0010C2 3E A1 21 SMS R1,REG1 ;(R1) save 3595 ; 3596 S0010C5 A0 04 IBT R0,#04H ;[♪] 3597 S0010C7 3E A0 3D SMS R0,CMSOUND3 3598 ; 3599 S0010CA F5 0000" IWT R5,#PICHA ;(R5) <-- 効果Ｎｏ． 3600 mJSR M_EXINSR ;効果エリア確保 3600+ S0010CD 94 LINK #4 3600+ S0010CE FF 2A7B' IWT R15, #M_EXINSR 3600+ S0010D1 01 NOP 3601 ; 3602 mSTW R9,CEXXPSL,R1 ;Ｘ座標セット 3602+ S0010D2 F0 10A2 IWT R0,#CEXXPSL 3602+ S0010D5 51 ADD R1 3602+ S0010D6 B9 FROM R9 3602+ S0010D7 30 STW (R0) 3603 S0010D8 A0 06 IBT R0,#06H 3604 S0010DA 15 TO R5 3605 S0010DB 5A ADD R10 3606 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 3606+ S0010DC F0 1142 IWT R0,#CEXYPSL 3606+ S0010DF 51 ADD R1 3606+ S0010E0 B5 FROM R5 3606+ S0010E1 30 STW (R0) 3607 S0010E2 A5 05 IBT R5,#05H 3608 mSTW R5,CEXCHPT,R1 ;初期パターンＮｏ．セット 3608+ S0010E4 F0 13C2 IWT R0,#CEXCHPT 3608+ S0010E7 51 ADD R1 3608+ S0010E8 B5 FROM R5 3608+ S0010E9 30 STW (R0) 3609 S0010EA A5 02 IBT R5,#02H 3610 mSTW R5,CEXTIM0,R1 ;初期タイマーセット 3610+ S0010EC F0 1782 IWT R0,#CEXTIM0 3610+ S0010EF 51 ADD R1 3610+ S0010F0 B5 FROM R5 3610+ S0010F1 30 STW (R0) 3611 ; 3612 S0010F2 3D A1 21 LMS R1,REG1 ;(R1) load 3613 ; 3614 PICHA_GON_010 3615 S0010F5 3D A0 55 LMS R0,CPLYSPD ;滝の圧力セット 3616 S0010F8 3E 54 ADD #04H 3617 S0010FA 90 SBK ;[ SMS R0,CPLYSPD ] 3618 ; 3619 S0010FB 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3620 mRTS 3620+ S0010FE 9B JMP R11 3620+ S0010FF 01 NOP 3621 ; 3622 ;---------------------------------------------------------------- 3623 ;- へこみ天井 - 3624 ;---------------------------------------------------------------- 3625 HEKOMI_GON 3626 S001100 3D A0 DF LMS R0,CONCHNG 3627 S001103 3E 60 SUB #0 3628 S001105 08 44' BNE HEKOMI_GON_020 ;ＢＧ特殊エリア空きあり？ ( no:HEKOMI_GON_020 ) 3629 S001107 01 NOP 3630 ; 3631 S001108 3E A1 21 SMS R1,REG1 ;(R1) save 3632 ; 3633 S00110B F5 0000" IWT R5,#DWNBG ;(R5) <-- 敵Ｎｏ． 3634 mJSR M_ENINSR ;敵エリア確保 3634+ S00110E 94 LINK #4 3634+ S00110F FF 28C7' IWT R15, #M_ENINSR 3634+ S001112 01 NOP 3635 ; 3636 S001113 0B 33' BMI HEKOMI_GON_010 ;敵エリア無し？ ( yes:HEKOMI_GON_010 ) 3637 S001115 01 NOP 3638 ; 3639 S001116 A5 02 IBT R5,#CEINIT ;敵イニシャルモードセット 3640 mSTW R5,CENMODE,R1 3640+ S001118 F0 0F00 IWT R0,#CENMODE 3640+ S00111B 51 ADD R1 3640+ S00111C B5 FROM R5 3640+ S00111D 30 STW (R0) 3641 S00111E B9 FROM R9 3642 S00111F 15 TO R5 3643 S001120 3E 68 SUB #8 3644 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 3644+ S001122 F0 10E2 IWT R0,#CENXPSL 3644+ S001125 51 ADD R1 3644+ S001126 B5 FROM R5 3644+ S001127 30 STW (R0) 3645 S001128 3D A0 01 LMS R0,CWORK1 3646 S00112B 15 TO R5 3647 S00112C 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3648 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 3648+ S00112E F0 1182 IWT R0,#CENYPSL 3648+ S001131 51 ADD R1 3648+ S001132 B5 FROM R5 3648+ S001133 30 STW (R0) 3649 S001134 A0 F0 IBT R0,#0F0H ;[ IWT R0,#0FFF0H ] 3650 S001136 15 TO R5 3651 S001137 C5 OR R5 3652 mSTW R5,CENWRK2,R1 ;初期倍率セット 3652+ S001138 F0 19D6 IWT R0,#CENWRK2 3652+ S00113B 51 ADD R1 3652+ S00113C B5 FROM R5 3652+ S00113D 30 STW (R0) 3653 ; 3654 S00113E A0 01 IBT R0,#01H ;ＢＧ特殊エリア確保 3655 S001140 3E A0 DF SMS R0,CONCHNG 3656 ; 3657 S001143 A0 00" IBT R0,#BURAN_P 3658 S001145 3E A0 F8 SMS R0,CPBURAN ;プレイヤー”ブラ〜ン”フラグ”ＯＮ” 3659 ; 3660 HEKOMI_GON_010 3661 S001148 3D A1 21 LMS R1,REG1 ;(R1) load 3662 ; 3663 HEKOMI_GON_020 3664 S00114B E2 DEC R2 ;当たりキャンセル！！ 3665 ; 3666 S00114C 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3667 mRTS 3667+ S00114F 9B JMP R11 3667+ S001150 01 NOP 3668 ; 3669 ;---------------------------------------------------------------- 3670 ;- ？ブロック - 3671 ;---------------------------------------------------------------- 3672 QBLK_GON 3673 S001151 3D A0 55 LMS R0,CPLYSPD 3674 S001154 50 ADD R0 ;(C) <-- (N) 3675 S001155 0C 39' BCC QBLK_GON_020 ;プレイヤー下降中？ ( yes:QBLK_GON_020 ) 3676 S001157 B6 FROM R6 3677 ; 3678 S001158 9E LOB 3679 S001159 F5 FFFF" IWT R5,#HBLK2-1 3680 S00115C 15 TO R5 ;(R5) <-- 敵Ｎｏ． 3681 S00115D 55 ADD R5 3682 ; 3683 S00115E 3E A1 21 SMS R1,REG1 ;(R1) save 3684 ; 3685 mJSR M_ENINSR ;敵エリア確保 3685+ S001161 94 LINK #4 3685+ S001162 FF 28C7' IWT R15, #M_ENINSR 3685+ S001165 01 NOP 3686 ; 3687 S001166 0B 28' BMI QBLK_GON_020 ;敵エリア無し？ ( yes:QBLK_GON_020 ) 3688 S001168 01 NOP 3689 ; 3690 S001169 A5 02 IBT R5,#CEINIT ;敵イニシャルモードセット 3691 mSTW R5,CENMODE,R1 3691+ S00116B F0 0F00 IWT R0,#CENMODE 3691+ S00116E 51 ADD R1 3691+ S00116F B5 FROM R5 3691+ S001170 30 STW (R0) 3692 S001171 3D A0 00 LMS R0,CWORK0 3693 S001174 15 TO R5 3694 S001175 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3695 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 3695+ S001177 F0 10E2 IWT R0,#CENXPSL 3695+ S00117A 51 ADD R1 3695+ S00117B B5 FROM R5 3695+ S00117C 30 STW (R0) 3696 S00117D 3D A0 01 LMS R0,CWORK1 3697 S001180 15 TO R5 3698 S001181 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3699 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 3699+ S001183 F0 1182 IWT R0,#CENYPSL 3699+ S001186 51 ADD R1 3699+ S001187 B5 FROM R5 3699+ S001188 30 STW (R0) 3700 ; 3701 mSFCALL CLR_BG_W ;ぬきＢＧ書き換え 3701+ S001189 A0 0A IBT R0,#CLR_BG_W 3701+ S00118B 00 STOP 3701+ S00118C 01 NOP 3702 ; 3703 QBLK_GON_010 3704 S00118D 3D A1 21 LMS R1,REG1 ;(R1) load 3705 ; 3706 QBLK_GON_020 3707 S001190 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3708 mRTS 3708+ S001193 9B JMP R11 3708+ S001194 01 NOP 3709 ; 3710 ;---------------------------------------------------------------- 3711 ;- 食べれるＢＧ - 3712 ;---------------------------------------------------------------- 3713 EATBLK_GON 3714 S001195 3D A0 55 LMS R0,CPLYSPD 3715 S001198 50 ADD R0 ;(C) <-- (N) 3716 S001199 0C 14' BCC EATBLK_GON_010 ;プレイヤー下降中？ ( yes:EATBLK_GON_010 ) 3717 S00119B 60 SUB R0 3718 ; 3719 S00119C 3E A0 0E SMS R0,CWORKE ;(CWKE) <-- 壊れたＢＧぶっ飛びＸスピード 3720 S00119F A0 80 IBT R0,#080H ;[ IWT R0,#0FF80H ] 3721 S0011A1 3E A0 0F SMS R0,CWORKF ;(CWKF) <-- 壊れたＢＧぶっ飛びＹスピード 3722 ; 3723 S0011A4 3E A1 21 SMS R1,REG1 ;(R1) save 3724 ; 3725 mJSR BRBG0_SET ;壊れたＢＧ効果セット 3725+ S0011A7 94 LINK #4 3725+ S0011A8 FF 1938' IWT R15, #BRBG0_SET 3725+ S0011AB 01 NOP 3726 ; 3727 S0011AC 3D A1 21 LMS R1,REG1 ;(R1) load 3728 ; 3729 EATBLK_GON_010 3730 S0011AF 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3731 mRTS 3731+ S0011B2 9B JMP R11 3731+ S0011B3 01 NOP 3732 ; 3733 ; 3734 ;------------------------------------------------------------------------ 3735 ;- 足用特殊ＢＧ当たりチェック - 3736 ;- in : - 3737 ;- (R1) <-- 補正値 - 3738 ;- (R2) <-- ＢＧ当たりフラグ - 3739 ;- (R3) <-- 頭か足のフラグ - 3740 ;- (R4) <-- 移動角度 - 3741 ;- (R9) <-- プレイヤーＸ座標 - 3742 ;- (R10) <-- ” Ｙ ” - 3743 ;- (R14) <-- ＢＧチェックポイント - 3744 ;- データアドレス - 3745 ;- (RTS1) <- 復帰アドレス - 3746 ;- out : - 3747 ;- (R6) <-- BG unit no. - 3748 ;- (R7) <-- BG unit no. type - 3749 ;- (CWK0) <- ＢＧチェックＸ座標 - 3750 ;- (CWK1) <- ” Ｙ ” - 3751 ;- break : - 3752 ;- (R1) - 3753 ;- (R5) - 3754 ;- use RAM : - 3755 ;- (RTS0) - 3756 ;------------------------------------------------------------------------ 3757 FOOT_SP_CK 3758 mJSR BG_SP_CHECK ;特殊ＢＧ当たりチェック 3758+ S0011B4 94 LINK #4 3758+ S0011B5 FF 0EA3' IWT R15, #BG_SP_CHECK 3758+ S0011B8 01 NOP 3759 ; 3760 ;-------------- 特殊ＢＧ当たりチェック ---------------------------------- 3761 S0011B9 F0 F800 IWT R0,#1111100000000000B 3762 S0011BC 77 AND R7 ;(R0) <-- ＢＧタイプ 3763 S0011BD 09 76' BEQ FOOT_SP_CK_100 ;特殊ＢＧ？ ( no:FOOT_SP_CK_100 ) 3764 S0011BF C0 HIB 3765 ; 3766 S0011C0 03 LSR ;[ JSRSUB ] 3767 S0011C1 D0 INC R0 ; 3768 S0011C2 1F TO R15 ; 3769 S0011C3 5F ADD R15 ; 3770 S0011C4 FF HEX FF ; 3771 ; 3772 mTWORD FOOT_SP_CK_100 ;[無し] 3772+ S0011C5 1235' WORD FOOT_SP_CK_100 3772+ S0011C7 01 NOP 3772+ S0011C8 01 NOP 3773 mTWORD FOOT_SP_CK_100 ;[雪、草の上] 3773+ S0011C9 1235' WORD FOOT_SP_CK_100 3773+ S0011CB 01 NOP 3773+ S0011CC 01 NOP 3774 mTWORD FOOT_SP_CK_100 ;[せっけん] 3774+ S0011CD 1235' WORD FOOT_SP_CK_100 3774+ S0011CF 01 NOP 3774+ S0011D0 01 NOP 3775 mTWORD FOOT_SP_CK_100 ;[へこみ床] 3775+ S0011D1 1235' WORD FOOT_SP_CK_100 3775+ S0011D3 01 NOP 3775+ S0011D4 01 NOP 3776 mTWORD FOOT_SP_CK_100 ;[泥] 3776+ S0011D5 1235' WORD FOOT_SP_CK_100 3776+ S0011D7 01 NOP 3776+ S0011D8 01 NOP 3777 mTWORD YOGAN_ON ;[溶岩] 3777+ S0011D9 1244' WORD YOGAN_ON 3777+ S0011DB 01 NOP 3777+ S0011DC 01 NOP 3778 mTWORD COIN_CROSS ;[コイン] 3778+ S0011DD 0FDF' WORD COIN_CROSS 3778+ S0011DF 01 NOP 3778+ S0011E0 01 NOP 3779 mTWORD FOOT_SP_CK_100 ;[？ブロック] 3779+ S0011E1 1235' WORD FOOT_SP_CK_100 3779+ S0011E3 01 NOP 3779+ S0011E4 01 NOP 3780 mTWORD FOOT_SP_CK_100 ;[食べれるＢＧ] 3780+ S0011E5 1235' WORD FOOT_SP_CK_100 3780+ S0011E7 01 NOP 3780+ S0011E8 01 NOP 3781 mTWORD FOOT_SP_CK_100 ;[[線路] 3781+ S0011E9 1235' WORD FOOT_SP_CK_100 3781+ S0011EB 01 NOP 3781+ S0011EC 01 NOP 3782 mTWORD FAIL_CROSS ;[当たるとダメージ] 3782+ S0011ED 123A' WORD FAIL_CROSS 3782+ S0011EF 01 NOP 3782+ S0011F0 01 NOP 3783 mTWORD KUI_ON ;[杭] 3783+ S0011F1 1282' WORD KUI_ON 3783+ S0011F3 01 NOP 3783+ S0011F4 01 NOP 3784 mTWORD FOOT_SP_CK_100 ;[左下階段] 3784+ S0011F5 1235' WORD FOOT_SP_CK_100 3784+ S0011F7 01 NOP 3784+ S0011F8 01 NOP 3785 mTWORD FOOT_SP_CK_100 ;[右下階段] 3785+ S0011F9 1235' WORD FOOT_SP_CK_100 3785+ S0011FB 01 NOP 3785+ S0011FC 01 NOP 3786 mTWORD FOOT_SP_CK_100 ;[乗ったら落ちる床] 3786+ S0011FD 1235' WORD FOOT_SP_CK_100 3786+ S0011FF 01 NOP 3786+ S001200 01 NOP 3787 mTWORD FOOT_SP_CK_100 ;[点線ブロック] 3787+ S001201 1235' WORD FOOT_SP_CK_100 3787+ S001203 01 NOP 3787+ S001204 01 NOP 3788 mTWORD FOOT_SP_CK_100 ;[マリオブロック] 3788+ S001205 1235' WORD FOOT_SP_CK_100 3788+ S001207 01 NOP 3788+ S001208 01 NOP 3789 mTWORD TIKUWA_ON ;[ちくわブロック] 3789+ S001209 12A0' WORD TIKUWA_ON 3789+ S00120B 01 NOP 3789+ S00120C 01 NOP 3790 mTWORD CNTDOWN_ON ;[カウントブロック] 3790+ S00120D 1330' WORD CNTDOWN_ON 3790+ S00120F 01 NOP 3790+ S001210 01 NOP 3791 mTWORD FOOT_SP_CK_100 ;[滝床（ぴちゃぴちゃ）] 3791+ S001211 1235' WORD FOOT_SP_CK_100 3791+ S001213 01 NOP 3791+ S001214 01 NOP 3792 mTWORD FOOT_SP_CK_100 ;[ドカン] 3792+ S001215 1235' WORD FOOT_SP_CK_100 3792+ S001217 01 NOP 3792+ S001218 01 NOP 3793 mTWORD SUGI_CROSS ;[杉の木] 3793+ S001219 0F51' WORD SUGI_CROSS 3793+ S00121B 01 NOP 3793+ S00121C 01 NOP 3794 mTWORD CLR_COIN_CROSS ;[点線コイン] 3794+ S00121D 0FD6' WORD CLR_COIN_CROSS 3794+ S00121F 01 NOP 3794+ S001220 01 NOP 3795 mTWORD FOOT_SP_CK_100 ;[氷ブロック] 3795+ S001221 1235' WORD FOOT_SP_CK_100 3795+ S001223 01 NOP 3795+ S001224 01 NOP 3796 mTWORD GURAGURA_ON ;[ぐらぐら岩] 3796+ S001225 13D0' WORD GURAGURA_ON 3796+ S001227 01 NOP 3796+ S001228 01 NOP 3797 mTWORD FAIL_CROSS ;[当たるとダメージ（坂杭）] 3797+ S001229 123A' WORD FAIL_CROSS 3797+ S00122B 01 NOP 3797+ S00122C 01 NOP 3798 mTWORD FOOT_SP_CK_100 ;[当たるとダメージ（氷柱）] 3798+ S00122D 1235' WORD FOOT_SP_CK_100 3798+ S00122F 01 NOP 3798+ S001230 01 NOP 3799 mTWORD PDOWN_CROSS ;[当たるとダウン] 3799+ S001231 1263' WORD PDOWN_CROSS 3799+ S001233 01 NOP 3799+ S001234 01 NOP 3800 ; 3801 FOOT_SP_CK_100 3802 S001235 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3803 mRTS 3803+ S001238 9B JMP R11 3803+ S001239 01 NOP 3804 ; 3805 ;---------------------------------------------------------------- 3806 ;- ダメージＢＧ当たり - 3807 ;---------------------------------------------------------------- 3808 FAIL_CROSS 3809 S00123A A0 01 IBT R0,#01H ;ダメージＢＧ当たりフラグセット 3810 S00123C 3E A0 81 SMS R0,CPLHARI 3811 ; 3812 S00123F 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3813 mRTS 3813+ S001242 9B JMP R11 3813+ S001243 01 NOP 3814 ; 3815 ;---------------------------------------------------------------- 3816 ;- 溶岩 - 3817 ;---------------------------------------------------------------- 3818 YOGAN_ON 3819 S001244 3D A0 56 LMS R0,CPLMODE 3820 S001247 3D FB 1E04 LM R11,CSUPER_FLAG 3821 S00124B CB OR R11 3822 S00124C 08 10' BNE YOGAN_ON_010 ;プレイヤーモードＯＫ？ ( no:YOGAN_ON_010 ) 3823 S00124E 01 NOP 3824 ; 3825 ;-------------- プレイヤーダウンセット -------------------------- 3826 mSFCALL YOGAN_IN ;プレイヤー溶岩落ちセット 3826+ S00124F A0 1A IBT R0,#YOGAN_IN 3826+ S001251 00 STOP 3826+ S001252 01 NOP 3827 ; 3828 S001253 3D A0 56 LMS R0,CPLMODE 3829 S001256 AB 28 IBT R11,#PYGN 3830 S001258 6B SUB R11 3831 S001259 08 03' BNE YOGAN_ON_010 ;プレイヤー溶岩落ち？ ( no:YOGAN_ON_010 ) 3832 S00125B 60 SUB R0 ;<<< end >>> 3833 ; 3834 S00125C 00 STOP 3835 S00125D 01 NOP 3836 ; 3837 YOGAN_ON_010 3838 S00125E 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3839 mRTS 3839+ S001261 9B JMP R11 3839+ S001262 01 NOP 3840 ; 3841 ;---------------------------------------------------------------- 3842 ;- 当たるとダウン - 3843 ;---------------------------------------------------------------- 3844 PDOWN_CROSS 3845 S001263 3D A0 56 LMS R0,CPLMODE 3846 S001266 3D FB 1E04 LM R11,CSUPER_FLAG 3847 S00126A CB OR R11 3848 S00126B 08 10' BNE PDOWN_CROSS_010 ;プレイヤーモードＯＫ？ ( no:PDOWN_CROSS_010 ) 3849 S00126D 01 NOP 3850 ; 3851 ;-------------- プレイヤーダウンセット -------------------------- 3852 mSFCALL PLDOWNST ;プレイヤーダウンセット 3852+ S00126E A0 12 IBT R0,#PLDOWNST 3852+ S001270 00 STOP 3852+ S001271 01 NOP 3853 ; 3854 S001272 3D A0 56 LMS R0,CPLMODE 3855 S001275 AB 0E IBT R11,#PFAL 3856 S001277 6B SUB R11 3857 S001278 08 03' BNE PDOWN_CROSS_010 ;プレイヤーダウン？ ( no:PDOWN_CROSS_010 ) 3858 S00127A 60 SUB R0 ;<<< end >>> 3859 ; 3860 S00127B 00 STOP 3861 S00127C 01 NOP 3862 ; 3863 PDOWN_CROSS_010 3864 S00127D 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3865 mRTS 3865+ S001280 9B JMP R11 3865+ S001281 01 NOP 3866 ; 3867 ;---------------------------------------------------------------- 3868 ;- 杭 - 3869 ;---------------------------------------------------------------- 3870 KUI_ON 3871 S001282 3D A0 6A LMS R0,CPLDOSN 3872 S001285 E0 DEC R0 3873 S001286 0B 13' BMI KUI_ON_010 ;”ドスーン！！”？ ( no:KUI_ON_010 ) 3874 S001288 01 NOP 3875 ; 3876 S001289 3D A0 60 LMS R0,CPLJUMP 3877 S00128C E0 DEC R0 3878 S00128D 0B 0C' BMI KUI_ON_010 ;着地の瞬間？ ( no:KUI_ON_010 ) 3879 S00128F B6 FROM R6 3880 ; 3881 S001290 3E 51 ADD #1 3882 S001292 3E 72 AND #02H 3883 S001294 08 05' BNE KUI_ON_010 ;頭ユニット？ ( no:KUI_ON_010 ) 3884 S001296 01 NOP 3885 ; 3886 S001297 A0 10 IBT R0,#010H ;強制補正！！ 3887 S001299 11 TO R1 3888 S00129A 51 ADD R1 3889 ; 3890 KUI_ON_010 3891 S00129B 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3892 mRTS 3892+ S00129E 9B JMP R11 3892+ S00129F 01 NOP 3893 ; 3894 ;;;;;---------------------------------------------------------------- 3895 ;;;;;- 食べれるＢＧ - 3896 ;;;;;---------------------------------------------------------------- 3897 ;;;;EATBLK_ON 3898 ;;;; LMS R0,CPLDOSN 3899 ;;;; DEC R0 3900 ;;;; BMI EATBLK_ON_010 ;”ドスーン！！”？ ( no:EATBLK_ON_010 ) 3901 ;;;; NOP 3902 ;;;;; 3903 ;;;; INC R1 ;補正値変更！！ 3904 ;;;;; 3905 ;;;;EATBLK_ON_010 3906 ;;;; LMS R11,RTS1 ;[ return address load ] 3907 ;;;; mRTS 3908 ; 3909 ;---------------------------------------------------------------- 3910 ;- ちくわブロック - 3911 ;---------------------------------------------------------------- 3912 TIKUWA_ON 3913 S0012A0 B2 FROM R2 3914 S0012A1 03 LSR 3915 S0012A2 0C F7' BCC KUI_ON_010 ;ＢＧ当たりＯＫ？ ( no:KUI_ON_010 ) 3916 S0012A4 01 NOP 3917 ; 3918 S0012A5 AC 00 IBT R12,#00 ;(R12) <-- Ｘ座標補正値 3919 S0012A7 AD 00 IBT R13,#00 ;(R13) <-- Ｙ ” 3920 S0012A9 F5 0000" IWT R5,#TIKU0 ;(R5) <-- 敵Ｎｏ．（小さい） 3921 S0012AC F0 7502 IWT R0,#UT7505 3922 S0012AF 66 SUB R6 3923 S0012B0 09 11' BEQ TIKUWA_ON_020 ;小さい方？ ( yes:TIKUWA_ON_020 ) 3924 S0012B2 01 NOP 3925 ; 3926 S0012B3 AC 08 IBT R12,#08H ;(R12) <-- Ｘ座標補正値 3927 S0012B5 AD 08 IBT R13,#08H ;(R13) <-- Ｙ ” 3928 S0012B7 F0 7500 IWT R0,#UT7500 3929 S0012BA 66 SUB R6 3930 S0012BB 09 03' BEQ TIKUWA_ON_010 ;大きい方の右側？ ( no:TIKUWA_ON_010 ) 3931 S0012BD 01 NOP 3932 ; 3933 S0012BE AC F8 IBT R12,#-08H ;(R12) <-- Ｘ座標補正値 3934 TIKUWA_ON_010 3935 S0012C0 F5 0000" IWT R5,#TIKU1 ;(R5) <-- 敵Ｎｏ．（大きい） 3936 TIKUWA_ON_020 3937 S0012C3 3D A0 00 LMS R0,CWORK0 3938 S0012C6 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3939 S0012C8 5C ADD R12 3940 S0012C9 90 SBK ;[ SMS R0,CWORK0 ] 3941 S0012CA 3D A0 01 LMS R0,CWORK1 3942 S0012CD 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3943 S0012CF 5D ADD R13 3944 S0012D0 90 SBK ;[ SMS R0,CWORK1 ] 3945 ; 3946 S0012D1 3E A1 21 SMS R1,REG1 ;(R1) save 3947 ; 3948 mJSR M_ENINSR ;敵エリア確保 3948+ S0012D4 94 LINK #4 3948+ S0012D5 FF 28C7' IWT R15, #M_ENINSR 3948+ S0012D8 01 NOP 3949 ; 3950 S0012D9 0B 4D' BMI TIKUWA_ON_040 ;敵エリア無し？ ( yes:TIKUWA_ON_040 ) 3951 S0012DB 01 NOP 3952 ; 3953 S0012DC 3D A5 00 LMS R5,CWORK0 3954 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 3954+ S0012DF F0 10E2 IWT R0,#CENXPSL 3954+ S0012E2 51 ADD R1 3954+ S0012E3 B5 FROM R5 3954+ S0012E4 30 STW (R0) 3955 S0012E5 3D A5 01 LMS R5,CWORK1 3956 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 3956+ S0012E8 F0 1182 IWT R0,#CENYPSL 3956+ S0012EB 51 ADD R1 3956+ S0012EC B5 FROM R5 3956+ S0012ED 30 STW (R0) 3957 S0012EE A5 70 IBT R5,#50H+32 3958 mSTW R5,CENTIM0,R1 ;初期タイマーセット 3958+ S0012F0 F0 1A96 IWT R0,#CENTIM0 3958+ S0012F3 51 ADD R1 3958+ S0012F4 B5 FROM R5 3958+ S0012F5 30 STW (R0) 3959 ; 3960 mLDW0 CENMYNO,R1 3960+ S0012F6 F0 1360 IWT R0,#CENMYNO 3960+ S0012F9 51 ADD R1 3960+ S0012FA 40 LDW (R0) 3961 S0012FB F5 0000" IWT R5,#TIKU0 3962 S0012FE 65 SUB R5 ;(Z) set 3963 ; 3964 S0012FF AC 0A IBT R12,#CLR_BG_W ;(R12) <-- ぬきＢＧ書き換えＮｏ． 3965 S001301 AD 02 IBT R13,#2 ;(R13) <-- 衝突サイズ変更値 3966 ; 3967 S001303 09 05' BEQ TIKUWA_ON_030 ;小さい方？ ( yes:TIKUWA_ON_030 ) 3968 S001305 01 NOP 3969 ; 3970 S001306 AC 0C IBT R12,#CLR_BG_W_4 ;(R12) <-- ぬきＢＧ書き換え（４ユニット）Ｎｏ． 3971 S001308 AD 04 IBT R13,#4 ;(R13) <-- 衝突サイズ変更値 3972 TIKUWA_ON_030 3973 mLDW0 CEWIDEY,R1 3973+ S00130A F0 1BB8 IWT R0,#CEWIDEY 3973+ S00130D 51 ADD R1 3973+ S00130E 40 LDW (R0) 3974 S00130F 15 TO R5 3975 S001310 5D ADD R13 3976 mSTW R5,CEWIDEY,R1 ;衝突Ｙサイズ変更 3976+ S001311 F0 1BB8 IWT R0,#CEWIDEY 3976+ S001314 51 ADD R1 3976+ S001315 B5 FROM R5 3976+ S001316 30 STW (R0) 3977 mSTW R5,CEWIDEX,R1 ;衝突Ｘサイズ変更 3977+ S001317 F0 1BB6 IWT R0,#CEWIDEX 3977+ S00131A 51 ADD R1 3977+ S00131B B5 FROM R5 3977+ S00131C 30 STW (R0) 3978 ; 3979 S00131D 2C 10 MOVE R0,R12 3980 S00131F 00 STOP ;<<< mSFCALL >>> 3981 S001320 01 NOP 3982 ; 3983 S001321 3D A1 21 LMS R1,REG1 ;プレイヤー補正値変更 3984 S001324 D1 INC R1 3985 S001325 05 04' BRA TIKUWA_ON_050 3986 S001327 D1 INC R1 3987 ; 3988 TIKUWA_ON_040 3989 S001328 3D A1 21 LMS R1,REG1 ;(R1) load 3990 ; 3991 TIKUWA_ON_050 3992 S00132B 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3993 mRTS 3993+ S00132E 9B JMP R11 3993+ S00132F 01 NOP 3994 ; 3995 ;---------------------------------------------------------------- 3996 ;- カウントダウンブロック - 3997 ;---------------------------------------------------------------- 3998 CNTDOWN_ON 3999 S001330 B2 FROM R2 4000 S001331 03 LSR 4001 S001332 0C F7' BCC TIKUWA_ON_050 ;ＢＧ当たりＯＫ？ ( no:TIKUWA_ON_050 ) 4002 S001334 01 NOP 4003 ; 4004 S001335 3E A1 21 SMS R1,REG1 ;(R1) save 4005 S001338 3E A2 22 SMS R2,REG2 ;(R2) save 4006 ; 4007 S00133B B6 FROM R6 4008 S00133C 9E LOB 4009 S00133D 12 TO R2 ;(R2) <-- カウントＮｏ． 4010 S00133E 03 LSR ;(C) <-- ０：左 １：右 4011 S00133F 0C 08' BCC CNTDOWN_ON_010 ;左？ ( yes:CNTDOWN_ON_010 ) 4012 S001341 01 NOP 4013 ; 4014 S001342 3D A0 00 LMS R0,CWORK0 4015 S001345 A5 10 IBT R5,#010H 4016 S001347 65 SUB R5 4017 S001348 90 SBK ;[ SMS R0,CWORK0 ] 4018 CNTDOWN_ON_010 4019 ; 4020 S001349 F5 0000" IWT R5,#CNTLF ;(R5) <-- 敵Ｎｏ． 4021 mJSR M_ENINSR ;敵エリア確保 4021+ S00134C 94 LINK #4 4021+ S00134D FF 28C7' IWT R15, #M_ENINSR 4021+ S001350 01 NOP 4022 ; 4023 S001351 0B 72' BMI CNTDOWN_ON_020 ;敵エリア無し？ ( yes:CNTDOWN_ON_020 ) 4024 S001353 01 NOP 4025 ; 4026 S001354 A0 33 IBT R0,#033H ;[♪] 4027 S001356 3E A0 3D SMS R0,CMSOUND3 4028 ; 4029 S001359 3D A0 00 LMS R0,CWORK0 4030 S00135C 3F 7F BIC #0FH ;[ AND #0FFF0H ] 4031 S00135E 15 TO R5 4032 S00135F 3E 58 ADD #08H 4033 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 4033+ S001361 F0 10E2 IWT R0,#CENXPSL 4033+ S001364 51 ADD R1 4033+ S001365 B5 FROM R5 4033+ S001366 30 STW (R0) 4034 S001367 3D A0 01 LMS R0,CWORK1 4035 S00136A 3F 7F BIC #0FH ;[ AND #0FFF0H ] 4036 S00136C 15 TO R5 4037 S00136D 3E 58 ADD #08H 4038 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 4038+ S00136F F0 1182 IWT R0,#CENYPSL 4038+ S001372 51 ADD R1 4038+ S001373 B5 FROM R5 4038+ S001374 30 STW (R0) 4039 mSTW R2,CENWRK0,R1 ;カウントＮｏ．セット 4039+ S001375 F0 1978 IWT R0,#CENWRK0 4039+ S001378 51 ADD R1 4039+ S001379 B2 FROM R2 4039+ S00137A 30 STW (R0) 4040 mLDW0 CEWIDEX,R1 4040+ S00137B F0 1BB6 IWT R0,#CEWIDEX 4040+ S00137E 51 ADD R1 4040+ S00137F 40 LDW (R0) 4041 S001380 15 TO R5 4042 S001381 3E 54 ADD #4 4043 mSTW R5,CEWIDEX,R1 ;衝突Ｘサイズ変更 4043+ S001383 F0 1BB6 IWT R0,#CEWIDEX 4043+ S001386 51 ADD R1 4043+ S001387 B5 FROM R5 4043+ S001388 30 STW (R0) 4044 mLDW0 CEWIDEY,R1 4044+ S001389 F0 1BB8 IWT R0,#CEWIDEY 4044+ S00138C 51 ADD R1 4044+ S00138D 40 LDW (R0) 4045 S00138E 15 TO R5 4046 S00138F 3E 53 ADD #3 4047 mSTW R5,CEWIDEY,R1 ;衝突Ｙサイズ変更 4047+ S001391 F0 1BB8 IWT R0,#CEWIDEY 4047+ S001394 51 ADD R1 4047+ S001395 B5 FROM R5 4047+ S001396 30 STW (R0) 4048 mLDW0 CECNTYW,R1 4048+ S001397 F0 1B58 IWT R0,#CECNTYW 4048+ S00139A 51 ADD R1 4048+ S00139B 40 LDW (R0) 4049 S00139C 15 TO R5 4050 S00139D 3E 52 ADD #2 4051 mSTW R5,CECNTYW,R1 ;衝突中心Ｙ位置変更 4051+ S00139F F0 1B58 IWT R0,#CECNTYW 4051+ S0013A2 51 ADD R1 4051+ S0013A3 B5 FROM R5 4051+ S0013A4 30 STW (R0) 4052 ; 4053 S0013A5 B2 FROM R2 4054 S0013A6 52 ADD R2 4055 S0013A7 F5 776D IWT R5,#UT7770 4056 S0013AA 15 TO R5 ;(R5) <-- 書き換えユニットＮｏ． 4057 S0013AB 55 ADD R5 4058 mSFCALL UNIT_BG_W 4058+ S0013AC A0 0E IBT R0,#UNIT_BG_W 4058+ S0013AE 00 STOP 4058+ S0013AF 01 NOP 4059 S0013B0 3D A0 00 LMS R0,CWORK0 4060 S0013B3 A1 10 IBT R1,#010H 4061 S0013B5 51 ADD R1 4062 S0013B6 90 SBK ;[ SMS R0,CWORK0 ] 4063 S0013B7 D5 INC R5 4064 mSFCALL UNIT_BG_W 4064+ S0013B8 A0 0E IBT R0,#UNIT_BG_W 4064+ S0013BA 00 STOP 4064+ S0013BB 01 NOP 4065 ; 4066 S0013BC 3D A0 21 LMS R0,REG1 ;プレイヤー補正値変更 4067 S0013BF 11 TO R1 4068 S0013C0 3E 54 ADD #4 4069 S0013C2 05 04' BRA CNTDOWN_ON_030 4070 S0013C4 01 NOP 4071 ; 4072 CNTDOWN_ON_020 4073 S0013C5 3D A1 21 LMS R1,REG1 ;(R1) load 4074 CNTDOWN_ON_030 4075 S0013C8 3D A2 22 LMS R2,REG2 ;(R2) load 4076 ; 4077 CNTDOWN_ON_050 4078 S0013CB 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4079 mRTS 4079+ S0013CE 9B JMP R11 4079+ S0013CF 01 NOP 4080 ; 4081 ;---------------------------------------------------------------- 4082 ;- ぐらぐら岩 - 4083 ;---------------------------------------------------------------- 4084 GURAGURA_ON 4085 S0013D0 3D A0 E0 LMS R0,CONFALL 4086 S0013D3 3E 60 SUB #0 4087 S0013D5 08 F4' BNE CNTDOWN_ON_050 ;ＢＧ特殊エリア空きあり？ ( no:CNTDOWN_ON_050 ) 4088 S0013D7 01 NOP 4089 ; 4090 S0013D8 B2 FROM R2 4091 S0013D9 03 LSR 4092 S0013DA 0C EF' BCC CNTDOWN_ON_050 ;ＢＧ当たりＯＫ？ ( no:CNTDOWN_ON_050 ) 4093 S0013DC 01 NOP 4094 ; 4095 S0013DD AC 00 IBT R12,#00 ;(R12) <-- Ｘ座標補正値 4096 S0013DF AD 00 IBT R13,#00 ;(R13) <-- Ｙ ” 4097 S0013E1 B6 FROM R6 4098 S0013E2 9E LOB 4099 S0013E3 A5 04 IBT R5,#LOW UT8F04 4100 S0013E5 65 SUB R5 4101 S0013E6 0D 12' BCS GURAGURA_ON_010 ;小さい方？ ( yes:GURAGURA_ON_010 ) 4102 S0013E8 01 NOP 4103 ; 4104 S0013E9 3E 52 ADD #2 4105 S0013EB 4F NOT 4106 S0013EC D0 INC R0 4107 S0013ED 50 ADD R0 4108 S0013EE 50 ADD R0 4109 S0013EF 50 ADD R0 4110 S0013F0 1C TO R12 ;(R12) <-- Ｘ座標補正値 4111 S0013F1 50 ADD R0 4112 S0013F2 AD 10 IBT R13,#010H ;(R13) <-- Ｙ座標補正値 4113 S0013F4 F5 0000" IWT R5,#GROCK ;(R5) <-- 敵Ｎｏ．（大きい方） 4114 S0013F7 05 0D' BRA GURAGURA_ON_020 4115 S0013F9 01 NOP 4116 ; 4117 GURAGURA_ON_010 4118 S0013FA 3F C1 XOR #01H 4119 S0013FC 50 ADD R0 4120 S0013FD 50 ADD R0 4121 S0013FE 50 ADD R0 4122 S0013FF 1C TO R12 ;(R12) <-- Ｘ座標補正値 4123 S001400 50 ADD R0 4124 S001401 AD 00 IBT R13,#00H ;(R13) <-- Ｙ座標補正値 4125 S001403 F5 0000" IWT R5,#GRCKS ;(R5) <-- 敵Ｎｏ．（小さい方） 4126 GURAGURA_ON_020 4127 S001406 3E AD 02 SMS R13,CWORK2 4128 S001409 3D A0 00 LMS R0,CWORK0 4129 S00140C 3F 7F BIC #0FH ;[ AND #0FFF0H ] 4130 S00140E 5C ADD R12 4131 S00140F 90 SBK ;[ SMS R0,CWORK0 ] 4132 S001410 3D A0 01 LMS R0,CWORK1 4133 S001413 3F 7F BIC #0FH ;[ AND #0FFF0H ] 4134 S001415 5D ADD R13 4135 S001416 90 SBK ;[ SMS R0,CWORK1 ] 4136 ; 4137 S001417 3E A1 21 SMS R1,REG1 ;(R1) save 4138 ; 4139 mJSR M_ENINSR ;敵エリア確保 4139+ S00141A 94 LINK #4 4139+ S00141B FF 28C7' IWT R15, #M_ENINSR 4139+ S00141E 01 NOP 4140 ; 4141 S00141F 0B 27' BMI GURAGURA_ON_040 ;敵エリア無し？ ( yes:GURAGURA_ON_040 ) 4142 S001421 01 NOP 4143 ; 4144 S001422 A5 02 IBT R5,#CEINIT 4145 mSTW R5,CENMODE,R1 ;初期モードセット 4145+ S001424 F0 0F00 IWT R0,#CENMODE 4145+ S001427 51 ADD R1 4145+ S001428 B5 FROM R5 4145+ S001429 30 STW (R0) 4146 S00142A 3D A5 00 LMS R5,CWORK0 4147 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 4147+ S00142D F0 10E2 IWT R0,#CENXPSL 4147+ S001430 51 ADD R1 4147+ S001431 B5 FROM R5 4147+ S001432 30 STW (R0) 4148 S001433 3D A5 01 LMS R5,CWORK1 4149 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 4149+ S001436 F0 1182 IWT R0,#CENYPSL 4149+ S001439 51 ADD R1 4149+ S00143A B5 FROM R5 4149+ S00143B 30 STW (R0) 4150 ; 4151 S00143C 3D A0 02 LMS R0,CWORK2 ;乗ったら落ちる床セットフラグ”ＯＮ” 4152 S00143F E0 DEC R0 4153 S001440 0A 03' BPL GURAGURA_ON_030 4154 S001442 D0 INC R0 4155 ; 4156 S001443 A0 04 IBT R0,#4 4157 GURAGURA_ON_030 4158 S001445 3E A0 E0 SMS R0,CONFALL 4159 ; 4160 GURAGURA_ON_040 4161 S001448 3D A1 21 LMS R1,REG1 ;(R1) load 4162 S00144B 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4163 mRTS 4163+ S00144E 9B JMP R11 4163+ S00144F 01 NOP 4164 ; 4165 ; 4166 ;------------------------------------------------------------------------ 4167 ;- 足当たりＯＫ後特殊ＢＧチェック（中足用） - 4168 ;- in : - 4169 ;- (R2) <-- ＢＧ当たりフラグ - 4170 ;- (R3) <-- Ｙ座標補正値 - 4171 ;- (R4) <-- 移動角度 - 4172 ;- (R9) <-- プレイヤーＸ座標 - 4173 ;- (R10) <-- ” Ｙ ” - 4174 ;- (R11) <-- 復帰アドレス - 4175 ;- (R14) <-- ＢＧチェックポイント - 4176 ;- データアドレス - 4177 ;- out : - 4178 ;- (R6) <-- BG unit no. - 4179 ;- (R7) <-- BG unit no. type - 4180 ;- (CWK0) <- ＢＧチェックＸ座標 - 4181 ;- (CWK1) <- ” Ｙ ” - 4182 ;- break : - 4183 ;- (R1) - 4184 ;- (R5) - 4185 ;- use RAM : - 4186 ;- (RTS0) - 4187 ;- (RTS1) - 4188 ;------------------------------------------------------------------------ 4189 FOOT_RESULT_C 4190 S001450 3E AB 31 SMS R11,RTS1 ;[ return address save ] 4191 ; 4192 S001453 F0 F800 IWT R0,#1111100000000000B 4193 S001456 77 AND R7 ;(R0) <-- ＢＧタイプ 4194 S001457 09 76' BEQ FOOT_RESULT_010 ;特殊ＢＧ？ ( no:FOOT_RESULT_010 ) 4195 S001459 C0 HIB 4196 ; 4197 S00145A 03 LSR ;[ JSRSUB ] 4198 S00145B D0 INC R0 ; 4199 S00145C 1F TO R15 ; 4200 S00145D 5F ADD R15 ; 4201 S00145E FF HEX FF ; 4202 ; 4203 mTWORD FOOT_RESULT_010 ;[無し] 4203+ S00145F 14CF' WORD FOOT_RESULT_010 4203+ S001461 01 NOP 4203+ S001462 01 NOP 4204 mTWORD YUKI_ON ;[雪、草の上] 4204+ S001463 172D' WORD YUKI_ON 4204+ S001465 01 NOP 4204+ S001466 01 NOP 4205 mTWORD SOAP_ON ;[せっけん] 4205+ S001467 17B9' WORD SOAP_ON 4205+ S001469 01 NOP 4205+ S00146A 01 NOP 4206 mTWORD FOOT_RESULT_010 ;[へこみ床] 4206+ S00146B 14CF' WORD FOOT_RESULT_010 4206+ S00146D 01 NOP 4206+ S00146E 01 NOP 4207 mTWORD DORO_ON ;[泥] 4207+ S00146F 1699' WORD DORO_ON 4207+ S001471 01 NOP 4207+ S001472 01 NOP 4208 mTWORD FOOT_RESULT_010 ;[溶岩] 4208+ S001473 14CF' WORD FOOT_RESULT_010 4208+ S001475 01 NOP 4208+ S001476 01 NOP 4209 mTWORD FOOT_RESULT_010 ;[コイン] 4209+ S001477 14CF' WORD FOOT_RESULT_010 4209+ S001479 01 NOP 4209+ S00147A 01 NOP 4210 mTWORD FOOT_RESULT_010 ;[？ブロック] 4210+ S00147B 14CF' WORD FOOT_RESULT_010 4210+ S00147D 01 NOP 4210+ S00147E 01 NOP 4211 mTWORD EATBLK_ON_OK ;[食べれるＢＧ] 4211+ S00147F 188D' WORD EATBLK_ON_OK 4211+ S001481 01 NOP 4211+ S001482 01 NOP 4212 mTWORD RALE_ON ;[線路] 4212+ S001483 1553' WORD RALE_ON 4212+ S001485 01 NOP 4212+ S001486 01 NOP 4213 mTWORD FOOT_RESULT_010 ;[当たるとダメージ] 4213+ S001487 14CF' WORD FOOT_RESULT_010 4213+ S001489 01 NOP 4213+ S00148A 01 NOP 4214 mTWORD FOOT_RESULT_010 ;[杭] 4214+ S00148B 14CF' WORD FOOT_RESULT_010 4214+ S00148D 01 NOP 4214+ S00148E 01 NOP 4215 mTWORD FOOT_RESULT_010 ;[左下階段] 4215+ S00148F 14CF' WORD FOOT_RESULT_010 4215+ S001491 01 NOP 4215+ S001492 01 NOP 4216 mTWORD FOOT_RESULT_010 ;[右下階段] 4216+ S001493 14CF' WORD FOOT_RESULT_010 4216+ S001495 01 NOP 4216+ S001496 01 NOP 4217 mTWORD FOOT_RESULT_010 ;[乗ったら落ちる床] 4217+ S001497 14CF' WORD FOOT_RESULT_010 4217+ S001499 01 NOP 4217+ S00149A 01 NOP 4218 mTWORD FOOT_RESULT_010 ;[点線ブロック] 4218+ S00149B 14CF' WORD FOOT_RESULT_010 4218+ S00149D 01 NOP 4218+ S00149E 01 NOP 4219 mTWORD FOOT_RESULT_010 ;[マリオブロック] 4219+ S00149F 14CF' WORD FOOT_RESULT_010 4219+ S0014A1 01 NOP 4219+ S0014A2 01 NOP 4220 mTWORD FOOT_RESULT_010 ;[ちくわブロック] 4220+ S0014A3 14CF' WORD FOOT_RESULT_010 4220+ S0014A5 01 NOP 4220+ S0014A6 01 NOP 4221 mTWORD FOOT_RESULT_010 ;[カウントブロック] 4221+ S0014A7 14CF' WORD FOOT_RESULT_010 4221+ S0014A9 01 NOP 4221+ S0014AA 01 NOP 4222 mTWORD PICHA_ON ;[滝床（ぴちゃぴちゃ）] 4222+ S0014AB 1631' WORD PICHA_ON 4222+ S0014AD 01 NOP 4222+ S0014AE 01 NOP 4223 mTWORD DOKAN_ON ;[ドカン] 4223+ S0014AF 1588' WORD DOKAN_ON 4223+ S0014B1 01 NOP 4223+ S0014B2 01 NOP 4224 mTWORD FOOT_RESULT_010 ;[杉の木] 4224+ S0014B3 14CF' WORD FOOT_RESULT_010 4224+ S0014B5 01 NOP 4224+ S0014B6 01 NOP 4225 mTWORD FOOT_RESULT_010 ;[点線コイン] 4225+ S0014B7 14CF' WORD FOOT_RESULT_010 4225+ S0014B9 01 NOP 4225+ S0014BA 01 NOP 4226 mTWORD ICE_BLK_ON ;[氷ブロック] 4226+ S0014BB 171E' WORD ICE_BLK_ON 4226+ S0014BD 01 NOP 4226+ S0014BE 01 NOP 4227 mTWORD FOOT_RESULT_010 ;[ぐらぐら岩] 4227+ S0014BF 14CF' WORD FOOT_RESULT_010 4227+ S0014C1 01 NOP 4227+ S0014C2 01 NOP 4228 mTWORD FOOT_RESULT_010 ;[当たるとダメージ（坂杭）] 4228+ S0014C3 14CF' WORD FOOT_RESULT_010 4228+ S0014C5 01 NOP 4228+ S0014C6 01 NOP 4229 mTWORD FOOT_RESULT_010 ;[当たるとダメージ（氷柱）] 4229+ S0014C7 14CF' WORD FOOT_RESULT_010 4229+ S0014C9 01 NOP 4229+ S0014CA 01 NOP 4230 mTWORD FOOT_RESULT_010 ;[当たるとダウン] 4230+ S0014CB 14CF' WORD FOOT_RESULT_010 4230+ S0014CD 01 NOP 4230+ S0014CE 01 NOP 4231 ; 4232 FOOT_RESULT_010 4233 S0014CF 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4234 mRTS 4234+ S0014D2 9B JMP R11 4234+ S0014D3 01 NOP 4235 ; 4236 ;------------------------------------------------------------------------ 4237 ;- 足当たりＯＫ後特殊ＢＧチェック - 4238 ;- in : - 4239 ;- (R2) <-- ＢＧ当たりフラグ - 4240 ;- (R3) <-- Ｙ座標補正値 - 4241 ;- (R4) <-- 移動角度 - 4242 ;- (R9) <-- プレイヤーＸ座標 - 4243 ;- (R10) <-- ” Ｙ ” - 4244 ;- (R11) <-- 復帰アドレス - 4245 ;- (R14) <-- ＢＧチェックポイント - 4246 ;- データアドレス - 4247 ;- out : - 4248 ;- (R6) <-- BG unit no. - 4249 ;- (R7) <-- BG unit no. type - 4250 ;- (CWK0) <- ＢＧチェックＸ座標 - 4251 ;- (CWK1) <- ” Ｙ ” - 4252 ;- break : - 4253 ;- (R1) - 4254 ;- (R5) - 4255 ;- use RAM : - 4256 ;- (RTS0) - 4257 ;- (RTS1) - 4258 ;------------------------------------------------------------------------ 4259 FOOT_RESULT 4260 S0014D4 3E AB 31 SMS R11,RTS1 ;[ return address save ] 4261 ; 4262 S0014D7 F0 F800 IWT R0,#1111100000000000B 4263 S0014DA 77 AND R7 ;(R0) <-- ＢＧタイプ 4264 S0014DB 09 F2' BEQ FOOT_RESULT_010 ;特殊ＢＧ？ ( no:FOOT_RESULT_010 ) 4265 S0014DD C0 HIB 4266 ; 4267 S0014DE 03 LSR ;[ JSRSUB ] 4268 S0014DF D0 INC R0 ; 4269 S0014E0 1F TO R15 ; 4270 S0014E1 5F ADD R15 ; 4271 S0014E2 FF HEX FF ; 4272 ; 4273 mTWORD FOOT_RESULT_010 ;[無し] 4273+ S0014E3 14CF' WORD FOOT_RESULT_010 4273+ S0014E5 01 NOP 4273+ S0014E6 01 NOP 4274 mTWORD YUKI_ON_SK ;[雪、草の上] 4274+ S0014E7 1728' WORD YUKI_ON_SK 4274+ S0014E9 01 NOP 4274+ S0014EA 01 NOP 4275 mTWORD SOAP_ON ;[せっけん] 4275+ S0014EB 17B9' WORD SOAP_ON 4275+ S0014ED 01 NOP 4275+ S0014EE 01 NOP 4276 mTWORD HEKOMI_ON ;[へこみ床] 4276+ S0014EF 17C3' WORD HEKOMI_ON 4276+ S0014F1 01 NOP 4276+ S0014F2 01 NOP 4277 mTWORD DORO_ON_SK ;[泥] 4277+ S0014F3 1694' WORD DORO_ON_SK 4277+ S0014F5 01 NOP 4277+ S0014F6 01 NOP 4278 mTWORD FOOT_RESULT_010 ;[溶岩] 4278+ S0014F7 14CF' WORD FOOT_RESULT_010 4278+ S0014F9 01 NOP 4278+ S0014FA 01 NOP 4279 mTWORD FOOT_RESULT_010 ;[コイン] 4279+ S0014FB 14CF' WORD FOOT_RESULT_010 4279+ S0014FD 01 NOP 4279+ S0014FE 01 NOP 4280 mTWORD FOOT_RESULT_010 ;[？ブロック] 4280+ S0014FF 14CF' WORD FOOT_RESULT_010 4280+ S001501 01 NOP 4280+ S001502 01 NOP 4281 mTWORD EATBLK_ON_OK ;[食べれるＢＧ] 4281+ S001503 188D' WORD EATBLK_ON_OK 4281+ S001505 01 NOP 4281+ S001506 01 NOP 4282 mTWORD FOOT_RESULT_010 ;[線路] 4282+ S001507 14CF' WORD FOOT_RESULT_010 4282+ S001509 01 NOP 4282+ S00150A 01 NOP 4283 mTWORD FOOT_RESULT_010 ;[当たるとダメージ] 4283+ S00150B 14CF' WORD FOOT_RESULT_010 4283+ S00150D 01 NOP 4283+ S00150E 01 NOP 4284 mTWORD KUI_ON_OK ;[杭] 4284+ S00150F 186F' WORD KUI_ON_OK 4284+ S001511 01 NOP 4284+ S001512 01 NOP 4285 mTWORD KAIDAN_U_ON ;[左下階段] 4285+ S001513 17FE' WORD KAIDAN_U_ON 4285+ S001515 01 NOP 4285+ S001516 01 NOP 4286 mTWORD KAIDAN_D_ON ;[右下階段] 4286+ S001517 1804' WORD KAIDAN_D_ON 4286+ S001519 01 NOP 4286+ S00151A 01 NOP 4287 mTWORD FALL_BLK_ON ;[乗ったら落ちる床] 4287+ S00151B 18A7' WORD FALL_BLK_ON 4287+ S00151D 01 NOP 4287+ S00151E 01 NOP 4288 mTWORD FOOT_RESULT_010 ;[点線ブロック] 4288+ S00151F 14CF' WORD FOOT_RESULT_010 4288+ S001521 01 NOP 4288+ S001522 01 NOP 4289 mTWORD FOOT_RESULT_010 ;[マリオブロック] 4289+ S001523 14CF' WORD FOOT_RESULT_010 4289+ S001525 01 NOP 4289+ S001526 01 NOP 4290 mTWORD FOOT_RESULT_010 ;[ちくわブロック] 4290+ S001527 14CF' WORD FOOT_RESULT_010 4290+ S001529 01 NOP 4290+ S00152A 01 NOP 4291 mTWORD FOOT_RESULT_010 ;[カウントブロック] 4291+ S00152B 14CF' WORD FOOT_RESULT_010 4291+ S00152D 01 NOP 4291+ S00152E 01 NOP 4292 mTWORD PICHA_ON_SK ;[滝床（ぴちゃぴちゃ）] 4292+ S00152F 162C' WORD PICHA_ON_SK 4292+ S001531 01 NOP 4292+ S001532 01 NOP 4293 mTWORD FOOT_RESULT_010 ;[ドカン] 4293+ S001533 14CF' WORD FOOT_RESULT_010 4293+ S001535 01 NOP 4293+ S001536 01 NOP 4294 mTWORD FOOT_RESULT_010 ;[杉の木] 4294+ S001537 14CF' WORD FOOT_RESULT_010 4294+ S001539 01 NOP 4294+ S00153A 01 NOP 4295 mTWORD FOOT_RESULT_010 ;[点線コイン] 4295+ S00153B 14CF' WORD FOOT_RESULT_010 4295+ S00153D 01 NOP 4295+ S00153E 01 NOP 4296 mTWORD ICE_BLK_ON ;[氷ブロック] 4296+ S00153F 171E' WORD ICE_BLK_ON 4296+ S001541 01 NOP 4296+ S001542 01 NOP 4297 mTWORD FOOT_RESULT_010 ;[ぐらぐら岩] 4297+ S001543 14CF' WORD FOOT_RESULT_010 4297+ S001545 01 NOP 4297+ S001546 01 NOP 4298 mTWORD FOOT_RESULT_010 ;[当たるとダメージ（坂杭）] 4298+ S001547 14CF' WORD FOOT_RESULT_010 4298+ S001549 01 NOP 4298+ S00154A 01 NOP 4299 mTWORD FOOT_RESULT_010 ;[当たるとダメージ（氷柱）] 4299+ S00154B 14CF' WORD FOOT_RESULT_010 4299+ S00154D 01 NOP 4299+ S00154E 01 NOP 4300 mTWORD FOOT_RESULT_010 ;[当たるとダウン] 4300+ S00154F 14CF' WORD FOOT_RESULT_010 4300+ S001551 01 NOP 4300+ S001552 01 NOP 4301 ; 4302 ;---------------------------------------------------------------- 4303 ;- 線路 - 4304 ;---------------------------------------------------------------- 4305 RALE_ON 4306 S001553 3D A0 57 LMS R0,CPLTYPE 4307 S001556 3E 68 SUB #P_TRAIN 4308 S001558 08 29' BNE RALE_ON_050 ;汽車プレイヤー？ ( no:RALE_ON_050 ) 4309 S00155A 01 NOP 4310 ; 4311 S00155B 3D F0 0071 LM R0,CMKEYC1 4312 S00155F 3E 74 AND #00000100B 4313 S001561 09 20' BEQ RALE_ON_050 ;レールモードへ？ ( no:RALE_ON_050 ) 4314 S001563 01 NOP 4315 ; 4316 ;-------------- レールモード”ＯＮ” ---------------------------- 4317 S001564 A0 5D IBT R0,#05DH 4318 S001566 3E A0 3D SMS R0,CMSOUND3 ;[♪] 4319 ; 4320 S001569 A0 40 IBT R0,#040H 4321 S00156B 3E A0 5B SMS R0,CPLANGL ;目標回転角セット 4322 S00156E 4D SWAP 4323 S00156F 3E A0 C5 SMS R0,CPTR_MANG 4324 S001572 60 SUB R0 4325 S001573 3E A0 C4 SMS R0,CPTR_MUKI 4326 S001576 3E A0 C6 SMS R0,CPTR_BACK 4327 S001579 F1 0100 IWT R1,#0100H ;(R1) <-- レールモード”ＯＮ” 4328 S00157C 3E A1 C0 SMS R1,CPTR_MODE 4329 S00157F 60 SUB R0 4330 S001580 3E A0 5A SMS R0,CPLMVSP 4331 ; 4332 RALE_ON_050 4333 S001583 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4334 mRTS 4334+ S001586 9B JMP R11 4334+ S001587 01 NOP 4335 ; 4336 ;---------------------------------------------------------------- 4337 ;- ドカン - 4338 ;---------------------------------------------------------------- 4339 DOKAN_ON 4340 ; 4341 ;-------------- ドカン出入りチェック -------------------- 4342 S001588 3D A0 D9 LMS R0,CBABYNO 4343 S00158B 50 ADD R0 4344 S00158C 0C 44' BCC DOKAN_ON_020 ;赤ちゃん乗ってる？ ( no:DOKAN_ON_020 ) 4345 S00158E B6 FROM R6 4346 ; 4347 S00158F 9E LOB 4348 S001590 FE 0000" IWT R14,#DOKAN_TYPE 4349 S001593 1E TO R14 4350 S001594 5E ADD R14 4351 S001595 EF GETB 4352 ; 4353 S001596 20 15 MOVE R5,R0 ;(R0)(R5) <-- ドカンタイプ情報 4354 S001598 1E TO R14 ;[ * not break (R0) ] 4355 S001599 3E 74 AND #00000100B ;[ 00000100B <-- ドカン向き ] 4356 S00159B 09 35' BEQ DOKAN_ON_020 ;ドカンユニットＯＫ？ ( no:DOKAN_ON_020 ) 4357 S00159D 4D SWAP 4358 ; 4359 S00159E 50 ADD R0 ;(C) <-- 左ｏｒ右？ 4360 S00159F 3D A0 00 LMS R0,CWORK0 4361 S0015A2 3E 7F AND #0FH 4362 S0015A4 0C 03' BCC DOKAN_ON_010 ;左ドカン？ ( yes:DOKAN_ON_010 ) 4363 S0015A6 01 NOP 4364 ; 4365 S0015A7 3F 5F ADC #0FH ;[ ADD #010H ] 4366 DOKAN_ON_010 4367 S0015A9 3E A0 87 SMS R0,CDOKNCX ;補正用中心Ｘ座標セット 4368 ; 4369 S0015AC AE 40 IBT R14,#01000000B 4370 S0015AE 2E WITH R14 ;[ * not break (R0) ] 4371 S0015AF 75 AND R5 4372 S0015B0 08 12' BNE DOKAN_ON_014 ;内ドカン？ ( yes:DOKAN_ON_014 ) 4373 S0015B2 01 NOP 4374 ; 4375 S0015B3 3E 68 SUB #08H 4376 S0015B5 AE 10 IBT R14,#18H-08H 4377 S0015B7 6E SUB R14 4378 S0015B8 0D 18' BCS DOKAN_ON_020 ;Ｘ位置ＯＫ？ ( no:DOKAN_ON_020 ) 4379 S0015BA 01 NOP 4380 ; 4381 S0015BB 3D F0 0071 LM R0,CMKEYC1 4382 S0015BF 3E 74 AND #00000100B 4383 S0015C1 09 0F' BEQ DOKAN_ON_020 ;下キー入力？ ( no:DOKAN_ON_020 ) 4384 S0015C3 01 NOP 4385 ; 4386 ;-------------- ドカン出入りデモへ -------------- 4387 DOKAN_ON_014 4388 S0015C4 3D A0 A8 LMS R0,CBERFLG 4389 S0015C7 E0 DEC R0 4390 S0015C8 0A 08' BPL DOKAN_ON_020 ;状態ＯＫ？ ( no:DOKAN_ON_020 ) 4391 S0015CA 01 NOP 4392 ; 4393 S0015CB A5 04 IBT R5,#00000100B ;(R5) <-- ドカン向き 4394 mJSR DOKAN_INOUT_IN_2 ;[ (R5) <-- 向き ] 4394+ S0015CD 94 LINK #4 4394+ S0015CE FF 15D7' IWT R15, #DOKAN_INOUT_IN_2 4394+ S0015D1 01 NOP 4395 ; 4396 DOKAN_ON_020 4397 S0015D2 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4398 mRTS 4398+ S0015D5 9B JMP R11 4398+ S0015D6 01 NOP 4399 ; 4400 ;---------------------------------------------------------------- 4401 ;- ドカン出入りデモ初期セット - 4402 ;- in : - 4403 ;- (R5) <-- 向き - 4404 ;---------------------------------------------------------------- 4405 DOKAN_INOUT_IN_2 4406 S0015D7 F0 7D0B IWT R0,#UT7D10-1 4407 S0015DA 66 SUB R6 4408 S0015DB 0D 10' BCS DOKAN_INOUT_IN ;外ドカン？ ( yes:DOKAN_INOUT_IN ) 4409 S0015DD 56 ADD R6 4410 ; 4411 S0015DE F0 7D1B IWT R0,#UT7D21-1 4412 S0015E1 66 SUB R6 ;(C) set 4413 S0015E2 F0 8000 IWT R0,#8000H 4414 S0015E5 0D 04' BCS DOKAN_IO_IN_000 4415 S0015E7 01 NOP 4416 ; 4417 S0015E8 F0 A000 IWT R0,#8000H+2000H 4418 DOKAN_IO_IN_000 4419 S0015EB 15 TO R5 4420 S0015EC C5 OR R5 4421 DOKAN_INOUT_IN 4422 S0015ED B5 FROM R5 4423 S0015EE 03 LSR ;(R0) <-- 向き（１、２、４、８） 4424 S0015EF 25 WITH R5 ;(R5) <-- 向き（０、１、２、３） 4425 S0015F0 3F 7F BIC #00001111B ;[ AND #0FFF0H ] 4426 DOKAN_IO_IN_010 4427 S0015F2 D5 INC R5 ;x2 4428 S0015F3 D5 INC R5 ; 4429 S0015F4 0C FC' BCC DOKAN_IO_IN_010 4430 S0015F6 03 LSR 4431 ; 4432 S0015F7 3E A5 83 SMS R5,CDOKNMK ;ドカン向きセット 4433 S0015FA A0 06 IBT R0,#PDKN ;プレイヤーモードセット 4434 S0015FC 3E A0 56 SMS R0,CPLMODE 4435 S0015FF 3E A0 D8 SMS R0,CENSTFG ;敵ＳＴＯＰ 4436 S001602 60 SUB R0 ;[ IBT R0,#0 ] 4437 S001603 3E A0 84 SMS R0,CDOKNCT ;ドカン移動カウンターリセット 4438 S001606 3E A0 85 SMS R0,CDOKNPT ; ” パターンカウンターリセット 4439 S001609 3E A0 FB SMS R0,CPLWORKTM ; ” 切り替えタイマーリセット 4440 S00160C 3E A0 5A SMS R0,CPLMVSP ;スピードクリアー 4441 S00160F 3E A0 54 SMS R0,CPLXSPD ; 4442 S001612 3E A0 55 SMS R0,CPLYSPD ; 4443 S001615 3E A0 6F SMS R0,CPLNAGE ;投げキャンセル 4444 S001618 D0 INC R0 ;[ IBT R0,#01H ] 4445 S001619 3E A0 86 SMS R0,CDOKNGP ; ” 重力カウンターリセット 4446 ; 4447 S00161C A0 31 IBT R0,#031H ;[♪] 4448 S00161E 3E A0 3D SMS R0,CMSOUND3 4449 ; 4450 ;-------------- タテドカン補正用中心Ｘ座標セット ---------------- 4451 S001621 3D A0 00 LMS R0,CWORK0 4452 S001624 3D A5 87 LMS R5,CDOKNCX 4453 S001627 65 SUB R5 4454 S001628 3E 58 ADD #08H 4455 mRTS_X 4455+ S00162A 9B JMP R11 4456 S00162B 90 SBK ;[ SMS R0,CWORK0 ] 4457 ; 4458 ;---------------------------------------------------------------- 4459 ;- 滝床（ぴちゃぴちゃ） - 4460 ;---------------------------------------------------------------- 4461 PICHA_ON_SK 4462 S00162C 24 B4 MOVES R4,R4 4463 S00162E 09 3B' BEQ PICHA_ON_010 ;坂？ ( no:PICHA_ON_010 ) 4464 S001630 01 NOP 4465 ; 4466 PICHA_ON 4467 S001631 3D A0 F5 LMS R0,CPICHTM 4468 S001634 3E 60 SUB #0 4469 S001636 08 33' BNE PICHA_ON_010 ;セットＯＫ？ ( no:PICHA_ON_010 ) 4470 S001638 01 NOP 4471 ; 4472 S001639 A0 08 IBT R0,#08H ;セットタイマーセット 4473 S00163B 3E A0 F5 SMS R0,CPICHTM 4474 ; 4475 S00163E A0 60 IBT R0,#060H ;[♪] 4476 S001640 3E A0 3D SMS R0,CMSOUND3 4477 ; 4478 S001643 F5 0000" IWT R5,#PICHA ;(R5) <-- 効果Ｎｏ． 4479 mJSR M_EXINSR ;効果エリア確保 4479+ S001646 94 LINK #4 4479+ S001647 FF 2A7B' IWT R15, #M_EXINSR 4479+ S00164A 01 NOP 4480 ; 4481 mSTW R9,CEXXPSL,R1 ;Ｘ座標セット 4481+ S00164B F0 10A2 IWT R0,#CEXXPSL 4481+ S00164E 51 ADD R1 4481+ S00164F B9 FROM R9 4481+ S001650 30 STW (R0) 4482 S001651 A0 20 IBT R0,#020H 4483 S001653 15 TO R5 4484 S001654 5A ADD R10 4485 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 4485+ S001655 F0 1142 IWT R0,#CEXYPSL 4485+ S001658 51 ADD R1 4485+ S001659 B5 FROM R5 4485+ S00165A 30 STW (R0) 4486 S00165B A5 05 IBT R5,#05H 4487 mSTW R5,CEXCHPT,R1 ;初期パターンＮｏ．セット 4487+ S00165D F0 13C2 IWT R0,#CEXCHPT 4487+ S001660 51 ADD R1 4487+ S001661 B5 FROM R5 4487+ S001662 30 STW (R0) 4488 S001663 A5 02 IBT R5,#02H 4489 mSTW R5,CEXTIM0,R1 ;初期タイマーセット 4489+ S001665 F0 1782 IWT R0,#CEXTIM0 4489+ S001668 51 ADD R1 4489+ S001669 B5 FROM R5 4489+ S00166A 30 STW (R0) 4490 ; 4491 PICHA_ON_010 4492 S00166B B4 FROM R4 4493 S00166C 4D SWAP 4494 S00166D 09 0B' BEQ PICHA_ON_020 ;坂？ ( no:PICHA_ON_020 ) 4495 S00166F 01 NOP 4496 ; 4497 S001670 F0 FD00 IWT R0,#0FD00H 4498 S001673 0A 16' BPL PICHA_ON_050 4499 S001675 01 NOP 4500 ; 4501 S001676 4F NOT ;[ IWT R0,#0200H ] 4502 S001677 05 12' BRA PICHA_ON_050 ; 4503 S001679 D0 INC R0 ; 4504 ; 4505 PICHA_ON_020 4506 S00167A B6 FROM R6 4507 S00167B C0 HIB 4508 S00167C F5 0082 IWT R5,#UT8200/100H 4509 S00167F 65 SUB R5 4510 S001680 0B 0D' BMI PICHA_ON_060 ;流れない？ ( yes:PICHA_ON_060 ) 4511 S001682 01 NOP 4512 ; 4513 S001683 F0 FF00 IWT R0,#0FF00H 4514 S001686 09 03' BEQ PICHA_ON_050 ;右向き？ ( yes:PICHA_ON_050 ) 4515 S001688 01 NOP 4516 ; 4517 S001689 4F NOT 4518 S00168A D0 INC R0 4519 PICHA_ON_050 4520 S00168B 3E F0 1E3A SM R0,CPL_ADD_XSP ;プレイヤーＸ方向圧力セット 4521 PICHA_ON_060 4522 S00168F 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4523 mRTS 4523+ S001692 9B JMP R11 4523+ S001693 01 NOP 4524 ; 4525 ;---------------------------------------------------------------- 4526 ;- 泥 - 4527 ;---------------------------------------------------------------- 4528 DORO_ON_SK 4529 S001694 24 B4 MOVES R4,R4 4530 ;;;; BEQ DORO_ON_050 ;坂？ ( no:DORO_ON_050 ) 4531 S001696 09 F7' BEQ PICHA_ON_060 ;坂？ ( no:PICHA_ON_060 ) 4532 S001698 01 NOP 4533 ; 4534 DORO_ON 4535 S001699 A0 00" IBT R0,#ON_DORO ;泥歩きセット 4536 S00169B 3E A0 7D SMS R0,CPLBGNO 4537 ; 4538 S00169E 3D A0 60 LMS R0,CPLJUMP 4539 S0016A1 E0 DEC R0 4540 S0016A2 0B 0B' BMI DORO_ON_010 ;着地の瞬間？ ( no:DORO_ON_010 ) 4541 S0016A4 01 NOP 4542 ; 4543 S0016A5 F5 0000" IWT R5,#DORO0 ;(R5) <-- 効果Ｎｏ． 4544 S0016A8 A6 02 IBT R6,#02H ;(R6) <-- 初期タイマー 4545 S0016AA A0 08 IBT R0,#08H ;(R0) <-- セットタイマーセット 4546 S0016AC 05 37' BRA DORO_ON_040 4547 S0016AE 01 NOP 4548 ; 4549 DORO_ON_010 4550 S0016AF 3D A0 66 LMS R0,CPLSTOP 4551 S0016B2 E0 DEC R0 4552 S0016B3 0B 12' BMI DORO_ON_020 ;歩き中？ ( no:DORO_ON_020 ) 4553 S0016B5 01 NOP 4554 ; 4555 ;-------------- 歩き中の泥セット -------------------------------- 4556 S0016B6 3D A0 7C LMS R0,CPLWALK 4557 S0016B9 3D A5 88 LMS R5,CTIMING_CNT 4558 S0016BC 90 SBK ;[ SMS R0,CTIMIN]G_CNT 4559 S0016BD 65 SUB R5 4560 S0016BE 09 59' BEQ DORO_ON_050 ;セットＯＫ？ ( no:DORO_ON_050 ) 4561 S0016C0 55 ADD R5 4562 ; 4563 S0016C1 08 56' BNE DORO_ON_050 ;セットＯＫ？ ( no:DORO_ON_050 ) 4564 S0016C3 01 NOP 4565 ; 4566 S0016C4 05 18' BRA DORO_ON_030 4567 S0016C6 01 NOP 4568 ; 4569 ;-------------- 止まってる時の泥セット -------------------------- 4570 DORO_ON_020 4571 S0016C7 3D A0 5A LMS R0,CPLMVSP 4572 S0016CA E0 DEC R0 4573 S0016CB 0A 03' BPL DORO_ON_022 4574 S0016CD D0 INC R0 4575 ; 4576 S0016CE 4F NOT 4577 S0016CF D0 INC R0 4578 DORO_ON_022 4579 S0016D0 3D A5 88 LMS R5,CTIMING_CNT 4580 S0016D3 55 ADD R5 4581 S0016D4 F5 1800 IWT R5,#1800H 4582 S0016D7 3F 65 CMP R5 4583 S0016D9 0C 3E' BCC DORO_ON_050 ;セットＯＫ？ ( no:DORO_ON_050 ) 4584 S0016DB 90 SBK ;[ SMS R0,CTIMING_CNT ] 4585 ; 4586 S0016DC 65 SUB R5 4587 S0016DD 90 SBK ;[ SMS R0,CTIMING_CNT ] 4588 ; 4589 DORO_ON_030 4590 S0016DE F5 0000" IWT R5,#DORO1 ;(R5) <-- 効果Ｎｏ． 4591 S0016E1 A6 03 IBT R6,#03H ;(R6) <-- 初期タイマー 4592 S0016E3 A0 08 IBT R0,#08H ;(R0) <-- セットタイマーセット 4593 DORO_ON_040 4594 S0016E5 3E A0 F5 SMS R0,CPICHTM ;セットタイマーセット 4595 ; 4596 ;;;; IBT R0,#062H ;[♪] 4597 S0016E8 A0 60 IBT R0,#060H ;[♪] 4598 S0016EA 3E A0 3D SMS R0,CMSOUND3 4599 ; 4600 mJSR M_EXINSR ;効果エリア確保 4600+ S0016ED 94 LINK #4 4600+ S0016EE FF 2A7B' IWT R15, #M_EXINSR 4600+ S0016F1 01 NOP 4601 ; 4602 mSTW R9,CEXXPSL,R1 ;Ｘ座標セット 4602+ S0016F2 F0 10A2 IWT R0,#CEXXPSL 4602+ S0016F5 51 ADD R1 4602+ S0016F6 B9 FROM R9 4602+ S0016F7 30 STW (R0) 4603 S0016F8 A0 10 IBT R0,#010H 4604 S0016FA 15 TO R5 4605 S0016FB 5A ADD R10 4606 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 4606+ S0016FC F0 1142 IWT R0,#CEXYPSL 4606+ S0016FF 51 ADD R1 4606+ S001700 B5 FROM R5 4606+ S001701 30 STW (R0) 4607 S001702 A5 09 IBT R5,#09H 4608 mSTW R5,CEXCHPT,R1 ;初期パターンＮｏ．セット 4608+ S001704 F0 13C2 IWT R0,#CEXCHPT 4608+ S001707 51 ADD R1 4608+ S001708 B5 FROM R5 4608+ S001709 30 STW (R0) 4609 mSTW R6,CEXTIM0,R1 ;初期タイマーセット 4609+ S00170A F0 1782 IWT R0,#CEXTIM0 4609+ S00170D 51 ADD R1 4609+ S00170E B6 FROM R6 4609+ S00170F 30 STW (R0) vvv******* warn :value out of range 4610 S001710 3D A5 62 LMS R5,PLCMKI 4611 mSTW R5,CEXMUKI,R1 ;向きセット 4611+ S001713 F0 13C0 IWT R0,#CEXMUKI 4611+ S001716 51 ADD R1 4611+ S001717 B5 FROM R5 4611+ S001718 30 STW (R0) 4612 ; 4613 DORO_ON_050 4614 S001719 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4615 mRTS 4615+ S00171C 9B JMP R11 4615+ S00171D 01 NOP 4616 ; 4617 ;---------------------------------------------------------------- 4618 ;- 氷ブロック - 4619 ;---------------------------------------------------------------- 4620 ICE_BLK_ON 4621 S00171E A0 00" IBT R0,#ON_ICEB ;氷ブロックの上歩きセット 4622 S001720 3E A0 7D SMS R0,CPLBGNO 4623 ; 4624 ICE_BLK_ON_010 4625 S001723 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4626 mRTS 4626+ S001726 9B JMP R11 4626+ S001727 01 NOP 4627 ; 4628 ;---------------------------------------------------------------- 4629 ;- 雪、草の上 - 4630 ;---------------------------------------------------------------- 4631 YUKI_ON_SK 4632 S001728 24 B4 MOVES R4,R4 4633 S00172A 09 F7' BEQ ICE_BLK_ON_010 ;坂？ ( no:ICE_BLK_ON_010 ) 4634 S00172C 01 NOP 4635 ; 4636 YUKI_ON 4637 S00172D 3D A0 3E LMS R0,CMBG1TYP 4638 S001730 3E 77 AND #07H 4639 S001732 3E 64 SUB #04H 4640 S001734 08 7E' BNE YUKI_ON_050 ;雪コース？ ( no:YUKI_ON_050 ) 4641 S001736 01 NOP 4642 ; 4643 S001737 3D A0 7D LMS R0,CPLBGNO 4644 S00173A 3E 60" SUB #ON_YUKI 4645 S00173C 09 31' BEQ YUKI_ON_010 ;すでに雪の上歩きセット？ ( yes:YUKI_ON_010 ) 4646 S00173E 01 NOP 4647 ; 4648 ;-------------- 雪の上ＢＧチェック ------------------------------ 4649 S00173F 3D A8 00 LMS R8,CWORK0 ;(R8) <-- BG check X pos 4650 S001742 3D A0 01 LMS R0,CWORK1 4651 S001745 A7 10 IBT R7,#010H 4652 S001747 67 SUB R7 4653 mJSR_X BGUNIT_READ_S+1 4653+ S001748 94 LINK #4 4653+ S001749 FF 0CD7' IWT R15, #BGUNIT_READ_S+1 4654 S00174C 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 4655 ; 4656 S00174D B6 FROM R6 4657 S00174E C0 HIB 4658 S00174F A5 2A IBT R5,#HIGH UT2A00 4659 S001751 65 SUB R5 4660 S001752 09 07' BEQ YUKI_ON_000 ;雪の上ユニット？ ( yes:YUKI_ON_000 ) 4661 S001754 55 ADD R5 4662 ; 4663 S001755 A5 6A IBT R5,#HIGH UT6A00 4664 S001757 65 SUB R5 4665 S001758 08 5A' BNE YUKI_ON_050 ;雪の上ユニット？ ( no:YUKI_ON_050 ) 4666 S00175A 01 NOP 4667 ; 4668 YUKI_ON_000 4669 S00175B A0 00" IBT R0,#ON_YUKI ;雪の上歩きセット 4670 S00175D 3E A0 7D SMS R0,CPLBGNO 4671 ; 4672 S001760 3D A0 57 LMS R0,CPLTYPE 4673 S001763 3E 66 SUB #P_HERI 4674 S001765 09 08' BEQ YUKI_ON_010 ;ヘリコプター？ ( yes:YUKI_ON_010 ) 4675 S001767 01 NOP 4676 ; 4677 S001768 3D A0 60 LMS R0,CPLJUMP 4678 S00176B E0 DEC R0 4679 S00176C 0A 0F' BPL YUKI_ON_020 ;着地の瞬間？ ( yes:YUKI_ON_020 ) 4680 S00176E 01 NOP 4681 ; 4682 ;-------------- 歩き中の雪セット -------------------------------- 4683 YUKI_ON_010 4684 S00176F 3D A0 7C LMS R0,CPLWALK 4685 S001772 3D A5 88 LMS R5,CTIMING_CNT 4686 S001775 90 SBK ;[ SMS R0,CTIMING_CNT ] 4687 S001776 65 SUB R5 4688 S001777 09 3B' BEQ YUKI_ON_050 ;セットＯＫ？ ( no:YUKI_ON_050 ) 4689 S001779 55 ADD R5 4690 ; 4691 S00177A 08 38' BNE YUKI_ON_050 ;セットＯＫ？ ( no:YUKI_ON_050 ) 4692 S00177C 01 NOP 4693 ; 4694 YUKI_ON_020 4695 S00177D F0 0098 IWT R0,#098H ;[♪] 4696 S001780 3E A0 3D SMS R0,CMSOUND3 4697 ; 4698 S001783 F5 0000" IWT R5,#SNOW0 ;(R5) <-- 効果Ｎｏ． 4699 mJSR M_EXINSR ;効果エリア確保 4699+ S001786 94 LINK #4 4699+ S001787 FF 2A7B' IWT R15, #M_EXINSR 4699+ S00178A 01 NOP 4700 ; 4701 mSTW R9,CEXXPSL,R1 ;Ｘ座標セット 4701+ S00178B F0 10A2 IWT R0,#CEXXPSL 4701+ S00178E 51 ADD R1 4701+ S00178F B9 FROM R9 4701+ S001790 30 STW (R0) 4702 S001791 A0 18 IBT R0,#018H 4703 S001793 15 TO R5 4704 S001794 5A ADD R10 4705 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 4705+ S001795 F0 1142 IWT R0,#CEXYPSL 4705+ S001798 51 ADD R1 4705+ S001799 B5 FROM R5 4705+ S00179A 30 STW (R0) 4706 S00179B A5 06 IBT R5,#SKSNOW 4707 mSTW R5,CEXWRK0,R1 ;初期カウンターセット 4707+ S00179D F0 1E4C IWT R0,#CEXWRK0 4707+ S0017A0 51 ADD R1 4707+ S0017A1 B5 FROM R5 4707+ S0017A2 30 STW (R0) 4708 S0017A3 A5 03 IBT R5,#03H 4709 mSTW R5,CEXTIM0,R1 ;初期タイマーセット 4709+ S0017A5 F0 1782 IWT R0,#CEXTIM0 4709+ S0017A8 51 ADD R1 4709+ S0017A9 B5 FROM R5 4709+ S0017AA 30 STW (R0) 4710 S0017AB F5 FEC0 IWT R5,#0FEC0H 4711 mSTW R5,CEXYSPD,R1 ;Ｙスピードセット 4711+ S0017AE F0 11E2 IWT R0,#CEXYSPD 4711+ S0017B1 51 ADD R1 4711+ S0017B2 B5 FROM R5 4711+ S0017B3 30 STW (R0) 4712 ; 4713 YUKI_ON_050 4714 S0017B4 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4715 mRTS 4715+ S0017B7 9B JMP R11 4715+ S0017B8 01 NOP 4716 ; 4717 ;---------------------------------------------------------------- 4718 ;- せっけん - 4719 ;---------------------------------------------------------------- 4720 SOAP_ON 4721 S0017B9 A0 00" IBT R0,#ON_SOAP ;せっけんの上歩きセット 4722 S0017BB 3E A0 7D SMS R0,CPLBGNO 4723 ; 4724 S0017BE 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4725 mRTS 4725+ S0017C1 9B JMP R11 4725+ S0017C2 01 NOP 4726 ; 4727 ;---------------------------------------------------------------- 4728 ;- へこみ床 - 4729 ;---------------------------------------------------------------- 4730 HEKOMI_ON 4731 S0017C3 3D A0 DF LMS R0,CONCHNG 4732 S0017C6 3E 60 SUB #0 4733 S0017C8 08 2F' BNE HEKOMI_ON_010 ;ＢＧ特殊エリア空きあり？ ( no:HEKOMI_ON_010 ) 4734 S0017CA 01 NOP 4735 ; 4736 S0017CB F5 0000" IWT R5,#DWNBG ;(R5) <-- 敵Ｎｏ． 4737 mJSR M_ENINSR ;敵エリア確保 4737+ S0017CE 94 LINK #4 4737+ S0017CF FF 28C7' IWT R15, #M_ENINSR 4737+ S0017D2 01 NOP 4738 ; 4739 S0017D3 0B 24' BMI HEKOMI_ON_010 ;敵エリア無し？ ( yes:HEKOMI_ON_010 ) 4740 S0017D5 01 NOP 4741 ; 4742 S0017D6 A5 02 IBT R5,#CEINIT ;敵イニシャルモードセット 4743 mSTW R5,CENMODE,R1 4743+ S0017D8 F0 0F00 IWT R0,#CENMODE 4743+ S0017DB 51 ADD R1 4743+ S0017DC B5 FROM R5 4743+ S0017DD 30 STW (R0) 4744 S0017DE B9 FROM R9 4745 S0017DF 15 TO R5 4746 S0017E0 3E 68 SUB #8 4747 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 4747+ S0017E2 F0 10E2 IWT R0,#CENXPSL 4747+ S0017E5 51 ADD R1 4747+ S0017E6 B5 FROM R5 4747+ S0017E7 30 STW (R0) 4748 S0017E8 3D A0 01 LMS R0,CWORK1 4749 S0017EB 15 TO R5 4750 S0017EC 3F 7F BIC #0FH ;[ AND #0FFF0H ] 4751 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 4751+ S0017EE F0 1182 IWT R0,#CENYPSL 4751+ S0017F1 51 ADD R1 4751+ S0017F2 B5 FROM R5 4751+ S0017F3 30 STW (R0) 4752 ; 4753 S0017F4 A0 01 IBT R0,#01H ;ＢＧ特殊エリア確保 4754 S0017F6 3E A0 DF SMS R0,CONCHNG 4755 ; 4756 HEKOMI_ON_010 4757 S0017F9 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4758 mRTS 4758+ S0017FC 9B JMP R11 4758+ S0017FD 01 NOP 4759 ; 4760 ;---------------------------------------------------------------- 4761 ;- 階段 - 4762 ;---------------------------------------------------------------- 4763 KAIDAN_U_ON 4764 S0017FE F1 F800 IWT R1,#0F800H ;(R1) <-- 右上階段歩きフラグ 4765 S001801 05 04' BRA KAIDAN_ON 4766 S001803 01 NOP 4767 ; 4768 KAIDAN_D_ON 4769 S001804 F1 0800 IWT R1,#0800H ;(R1) <-- 右下階段歩きフラグ 4770 ; 4771 KAIDAN_ON 4772 ; 4773 ;-------------- 階段ジャンプチェック ---------------------------- 4774 S001807 3D A0 6D LMS R0,CPLKAID 4775 S00180A 3D A5 A8 LMS R5,CBERFLG 4776 S00180D C5 OR R5 4777 S00180E 3D A5 6F LMS R5,CPLNAGE 4778 S001811 08 4D' BNE KAIDAN_ON_050 ;今、階段歩き中ｏｒ舌ショット中ｏｒタマゴ投げ中？ ( yes:KAIDAN_ON_050 ) 4779 S001813 01 NOP 4780 ; 4781 S001814 3D F0 0071 LM R0,CMKEYC1 ;(R0) <-- コントローラー情報（連続） 4782 S001818 3E 73 AND #00000011B 4783 S00181A 09 44' BEQ KAIDAN_ON_050 ;階段歩く？ ( no:KAIDAN_ON_050 ) 4784 S00181C 01 NOP 4785 ; 4786 S00181D A8 10 IBT R8,#0010H 4787 S00181F 3E 72 AND #00000010B 4788 S001821 09 03' BEQ KAIDAN_ON_010 ;左へ歩く？ ( yes:KAIDAN_ON_010 ) 4789 S001823 01 NOP 4790 ; 4791 S001824 A8 F0 IBT R8,#0F0H ;[ IWT R8,#0FFF0H ] 4792 KAIDAN_ON_010 4793 S001826 3E A0 62 SMS R0,CPLCMKI ;プレイヤー向きセット 4794 ; 4795 S001829 28 15 MOVE R5,R8 4796 S00182B 21 B1 MOVES R1,R1 4797 S00182D 0A 03' BPL KAIDAN_ON_020 4798 S00182F 25 WITH R5 4799 ; 4800 S001830 4F NOT 4801 S001831 D5 INC R5 4802 KAIDAN_ON_020 4803 S001832 2A 10 MOVE R0,R10 4804 S001834 25 B5 MOVES R5,R5 4805 S001836 0A 03' BPL KAIDAN_ON_030 4806 S001838 01 NOP 4807 ; 4808 S001839 3F C8 XOR #08H 4809 KAIDAN_ON_030 4810 S00183B 3E 78 AND #08H 4811 S00183D 09 16' BEQ KAIDAN_ON_040 ;進行方向階段チェックする段？ ( no:KAIDAN_ON_040 ) 4812 S00183F 01 NOP 4813 ; 4814 S001840 27 1E MOVE R14,R7 ;(R7) save 4815 ; 4816 S001842 3D A0 00 LMS R0,CWORK0 4817 S001845 18 TO R8 ;(R8) <-- BG check X pos 4818 S001846 58 ADD R8 4819 S001847 3D A0 01 LMS R0,CWORK1 4820 S00184A 55 ADD R5 ;(R0) <-- BG check Y pos 4821 mJSR_X BGUNIT_READ_S+1 4821+ S00184B 94 LINK #4 4821+ S00184C FF 0CD7' IWT R15, #BGUNIT_READ_S+1 4822 S00184F 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 4823 ; 4824 S001850 B7 FROM R7 4825 S001851 6E SUB R14 4826 S001852 08 16' BNE KAIDAN_ON_060 ;進行方向に階段あり？ ( no:KAIDAN_ON_060 ) 4827 S001854 01 NOP 4828 ; 4829 KAIDAN_ON_040 4830 S001855 3E A1 6D SMS R1,CPLKAID ;階段歩きフラグセット 4831 ; 4832 S001858 A0 80 IBT R0,#0080H ;スピードクリアー 4833 S00185A 3E A0 45 SMS R0,CPLXSDR ; ” 4834 S00185D 3E A0 47 SMS R0,CPLYSDR ; ” 4835 ; 4836 001860 KAIDAN_ON_050 EQU $ 4837 S001860 60 SUB R0 4838 S001861 3E A0 5A SMS R0,CPLMVSP ;スピードクリアー 4839 S001864 3E A0 54 SMS R0,CPLXSPD ; ” 4840 S001867 3E A0 55 SMS R0,CPLYSPD ; ” 4841 ; 4842 KAIDAN_ON_060 4843 S00186A 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4844 mRTS 4844+ S00186D 9B JMP R11 4844+ S00186E 01 NOP 4845 ; 4846 ;---------------------------------------------------------------- 4847 ;- 杭 - 4848 ;---------------------------------------------------------------- 4849 KUI_ON_OK 4850 S00186F 3D A0 6A LMS R0,CPLDOSN 4851 S001872 E0 DEC R0 4852 S001873 0B 13' BMI KUI_ON_OK_010 ;”ドスーン！！”？ ( no:KUI_ON_OK_010 ) 4853 S001875 01 NOP 4854 ; 4855 S001876 3D A0 60 LMS R0,CPLJUMP 4856 S001879 E0 DEC R0 4857 S00187A 0B 0C' BMI KUI_ON_OK_010 ;着地の瞬間？ ( no:KUI_ON_OK_010 ) 4858 S00187C B6 FROM R6 4859 ; 4860 S00187D 3E 51 ADD #1 4861 S00187F 3E 72 AND #02H 4862 S001881 08 05' BNE KUI_ON_OK_010 ;頭ユニット？ ( no:KUI_ON_OK_010 ) 4863 S001883 01 NOP 4864 ; 4865 mSFCALL KUI_BG_W ;杭ＢＧ書き換え 4865+ S001884 A0 06 IBT R0,#KUI_BG_W 4865+ S001886 00 STOP 4865+ S001887 01 NOP 4866 ; 4867 KUI_ON_OK_010 4868 S001888 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4869 mRTS 4869+ S00188B 9B JMP R11 4869+ S00188C 01 NOP 4870 ; 4871 ;---------------------------------------------------------------- 4872 ;- 食べれるＢＧ - 4873 ;---------------------------------------------------------------- 4874 EATBLK_ON_OK 4875 S00188D 3D A0 6A LMS R0,CPLDOSN 4876 S001890 E0 DEC R0 4877 S001891 0B 0F' BMI EATBLK_ON_OK_10 ;”ドスーン！！”？ ( no:EATBLK_ON_OK_10 ) 4878 S001893 60 SUB R0 ;[ INT R0,#00 ] 4879 ; 4880 S001894 3E A0 0E SMS R0,CWORKE ;(CWKE) <-- 壊れたＢＧぶっ飛びＸスピード 4881 S001897 F0 0080 IWT R0,#0080H 4882 S00189A 3E A0 0F SMS R0,CWORKF ;(CWKF) <-- 壊れたＢＧぶっ飛びＹスピード 4883 ; 4884 mJSR BRBG0_SET ;壊れたＢＧ効果セット 4884+ S00189D 94 LINK #4 4884+ S00189E FF 1938' IWT R15, #BRBG0_SET 4884+ S0018A1 01 NOP 4885 ; 4886 EATBLK_ON_OK_10 4887 S0018A2 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4888 mRTS 4888+ S0018A5 9B JMP R11 4888+ S0018A6 01 NOP 4889 ; 4890 ;---------------------------------------------------------------- 4891 ;- 乗ったら落ちる床 - 4892 ;---------------------------------------------------------------- 4893 FALL_BLK_ON 4894 S0018A7 3D A0 E0 LMS R0,CONFALL 4895 S0018AA 3E 60 SUB #0 4896 S0018AC 08 31' BNE FALL_BLK_ON_010 ;ＢＧ特殊エリア空きあり？ ( no:FALL_BLK_ON_010 ) 4897 S0018AE 01 NOP 4898 ; 4899 S0018AF F5 0000" IWT R5,#ON_DW ;(R5) <-- 敵Ｎｏ． 4900 mJSR M_ENINSR ;敵エリア確保 4900+ S0018B2 94 LINK #4 4900+ S0018B3 FF 28C7' IWT R15, #M_ENINSR 4900+ S0018B6 01 NOP 4901 ; 4902 S0018B7 0B 26' BMI FALL_BLK_ON_010 ;敵エリア無し？ ( yes:FALL_BLK_ON_010 ) 4903 S0018B9 01 NOP 4904 ; 4905 S0018BA A5 02 IBT R5,#CEINIT ;敵イニシャルモードセット 4906 mSTW R5,CENMODE,R1 4906+ S0018BC F0 0F00 IWT R0,#CENMODE 4906+ S0018BF 51 ADD R1 4906+ S0018C0 B5 FROM R5 4906+ S0018C1 30 STW (R0) 4907 S0018C2 3D A0 00 LMS R0,CWORK0 4908 S0018C5 15 TO R5 4909 S0018C6 3F 7F BIC #0FH ;[ AND #0FFF0H ] 4910 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 4910+ S0018C8 F0 10E2 IWT R0,#CENXPSL 4910+ S0018CB 51 ADD R1 4910+ S0018CC B5 FROM R5 4910+ S0018CD 30 STW (R0) 4911 S0018CE 3D A0 01 LMS R0,CWORK1 4912 S0018D1 15 TO R5 4913 S0018D2 3F 7F BIC #0FH ;[ AND #0FFF0H ] 4914 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 4914+ S0018D4 F0 1182 IWT R0,#CENYPSL 4914+ S0018D7 51 ADD R1 4914+ S0018D8 B5 FROM R5 4914+ S0018D9 30 STW (R0) 4915 ; 4916 S0018DA A0 01 IBT R0,#01H ;乗ったら落ちる床セットフラグ”ＯＮ” 4917 S0018DC 3E A0 E0 SMS R0,CONFALL 4918 ; 4919 FALL_BLK_ON_010 4920 S0018DF 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4921 mRTS 4921+ S0018E2 9B JMP R11 4921+ S0018E3 01 NOP 4922 ; 4923 ; 4924 ;;;;;------------------------------------------------------------------------ 4925 ;;;;;- ダッシュ土けむりセットチェック - 4926 ;;;;;- in : - 4927 ;;;;;- (R2) <-- ＢＧ当たりフラグ - 4928 ;;;;;- (R4) <-- 移動角度 - 4929 ;;;;;- (R9) <-- プレイヤーＸ座標 - 4930 ;;;;;- (R10) <-- ” Ｙ ” - 4931 ;;;;;- (R11) <-- 復帰アドレス - 4932 ;;;;;- (R14) <-- ＢＧチェックポイント - 4933 ;;;;;- データアドレス - 4934 ;;;;;- out : - 4935 ;;;;;- (R6) <-- BG unit no. - 4936 ;;;;;- (R7) <-- BG unit no. type - 4937 ;;;;;- (CWK0) <- ＢＧチェックＸ座標 - 4938 ;;;;;- (CWK1) <- ” Ｙ ” - 4939 ;;;;;- break : - 4940 ;;;;;- (R1) - 4941 ;;;;;- (R5) - 4942 ;;;;;- (R13) - 4943 ;;;;;- use RAM : - 4944 ;;;;;- (RTS0) - 4945 ;;;;;------------------------------------------------------------------------ 4946 ;;;;DASH_SMOK_CK 4947 ;;;; LMS R0,CPLDASH 4948 ;;;; DEC R0 4949 ;;;; BPL DASH_SMOK_CK_30 ;ダッシュ溜め中？ ( yes:DASH_SMOK_CK_30 ) 4950 ;;;; NOP 4951 ;;;;; 4952 ;;;; LMS R0,CPLMVSP 4953 ;;;; DEC R0 ;[ ０の２の補数は０！！ ] 4954 ;;;; BPL DASH_SMOK_CK_10 4955 ;;;; INC R0 4956 ;;;;; 4957 ;;;; NOT 4958 ;;;; INC R0 4959 ;;;;DASH_SMOK_CK_10 4960 ;;;; HIB 4961 ;;;;; 4962 ;;;; MOVE R13,R14 ;(R14) save 4963 ;;;;; 4964 ;;;; IWT R14,#DSMK1_STCK 4965 ;;;; TO R14 4966 ;;;; ADD R14 4967 ;;;; GETBS ;(R0) <-- ダッシュ土けむりセットタイミングデータ 4968 ;;;;; 4969 ;;;; MOVE R14,R13 ;(R14) load 4970 ;;;;; 4971 ;;;; DEC R0 4972 ;;;; BMI DASH_SMOK_CK_30 ;ダッシュ土けむりセット？ ( no:DASH_SMOK_CK_30 ) 4973 ;;;; INC R0 4974 ;;;;; 4975 ;;;; LM R5,CFRCNT2 4976 ;;;; AND R5 4977 ;;;; BNE DASH_SMOK_CK_30 ;ダッシュ土けむりセット？ ( no:DASH_SMOK_CK_30 ) 4978 ;;;; NOP 4979 ;;;;; 4980 ;;;; SMS R11,RTS0 ;[ return address save ] 4981 ;;;;; 4982 ;;;; IWT R5,#DSMK1 ;(R5) <-- 効果Ｎｏ． 4983 ;;;; mJSR M_EXINSR ;効果エリア確保 4984 ;;;;; 4985 ;;;; IBT R5,#0F8H ;[ IWT R5,#0FFF8H ] 4986 ;;;; IBT R12,#080H ;[ IWT R12,#0FF80H ] 4987 ;;;; LMS R0,CPLCMKI 4988 ;;;; DEC R0 ;[ (N) <-- 0:02H 1:00H ] 4989 ;;;; BMI DASH_SMOK_CK_20 4990 ;;;; INC R0 4991 ;;;;; 4992 ;;;; IBT R5,#010H 4993 ;;;; WITH R12 ;[ IWT R12,#0080H ] 4994 ;;;; LOB ; 4995 ;;;;DASH_SMOK_CK_20 4996 ;;;; TO R13 4997 ;;;; XOR #02H 4998 ;;;; mSTW R13,CEXMUKI,R1 ;向きセット 4999 ;;;; WITH R5 5000 ;;;; ADD R9 ;[ ADD PLXPSL ] 5001 ;;;; mSTW R5,CEXXPSL,R1 ;Ｘ座標セット 5002 ;;;; mSTW R12,CEXXSPD,R1 ;Ｘスピードセット 5003 ;;;; IBT R0,#018H 5004 ;;;; TO R5 5005 ;;;; ADD R10 5006 ;;;; mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 5007 ;;;; IBT R5,#080H ;[ IWT R5,#0FF80H ] 5008 ;;;; mSTW R5,CEXYSPD,R1 5009 ;;;; IBT R5,#04H 5010 ;;;; mSTW R5,CEXWRK0,R1 ;初期カウンターセット 5011 ;;;; mSTW R5,CEXTIM0,R1 ;初期タイマーセット 5012 ;;;;; 5013 ;;;; LMS R11,RTS0 5014 ;;;;; 5015 ;;;;DASH_SMOK_CK_30 5016 ;;;; mRTS 5017 ; 5018 ;------------------------------------------------------------------------ 5019 ;- ”ドスーン！！”着地チェック - 5020 ;- in : - 5021 ;- (R2) <-- ＢＧ当たりフラグ - 5022 ;- (R4) <-- 移動角度 - 5023 ;- (R9) <-- プレイヤーＸ座標 - 5024 ;- (R10) <-- ” Ｙ ” - 5025 ;- (R11) <-- 復帰アドレス - 5026 ;- (R14) <-- ＢＧチェックポイント - 5027 ;- データアドレス - 5028 ;- out : - 5029 ;- (R6) <-- BG unit no. - 5030 ;- (R7) <-- BG unit no. type - 5031 ;- (CWK0) <- ＢＧチェックＸ座標 - 5032 ;- (CWK1) <- ” Ｙ ” - 5033 ;- break : - 5034 ;- (R1) - 5035 ;- (R5) - 5036 ;- use RAM : - 5037 ;- (RTS0) - 5038 ;------------------------------------------------------------------------ 5039 DOSN_JUST_CK 5040 S0018E4 3D A0 6A LMS R0,CPLDOSN 5041 S0018E7 E0 DEC R0 5042 S0018E8 0B 4C' BMI DOSN_JUST_CK_10 ;”ドスーン！！”？ ( no:DOSN_JUST_CK_10 ) 5043 S0018EA 01 NOP 5044 ; 5045 ;-------------- サウンドセット座標セット ---------------- 5046 S0018EB A0 23 IBT R0,#023H ;[♪] 5047 S0018ED 3E A0 3D SMS R0,CMSOUND3 5048 ; 5049 S0018F0 A0 40 IBT R0,#040H 5050 S0018F2 3E A0 F9 SMS R0,CSOUND_ON ;サウンドセットフラグセット 5051 S0018F5 3D A0 46 LMS R0,CPLXPSL 5052 S0018F8 3E F0 0EB2 SM R0,CSOUND_X ;サウンドセットＸ座標セット 5053 S0018FC 3D A0 48 LMS R0,CPLYPSL 5054 S0018FF 3E F0 0EB4 SM R0,CSOUND_Y ;サウンドセットＹ座標セット 5055 ; 5056 S001903 A0 20 IBT R0,#020H ;地震セット 5057 S001905 3E A0 E3 SMS R0,CTILTCT 5058 ; 5059 S001908 3E AB 30 SMS R11,RTS0 ;[ return address save ] 5060 ; 5061 S00190B F5 0000" IWT R5,#DOSN0 ;(R5) <-- 敵Ｎｏ． 5062 mJSR M_EXINSR ;効果エリア確保 5062+ S00190E 94 LINK #4 5062+ S00190F FF 2A7B' IWT R15, #M_EXINSR 5062+ S001912 01 NOP 5063 ; 5064 mSTW R9,CEXXPSL,R1 ;Ｘ座標セット[ (R9):PLXPSL ] 5064+ S001913 F0 10A2 IWT R0,#CEXXPSL 5064+ S001916 51 ADD R1 5064+ S001917 B9 FROM R9 5064+ S001918 30 STW (R0) 5065 S001919 A0 10 IBT R0,#010H 5066 S00191B 15 TO R5 5067 S00191C 5A ADD R10 ;[ ADD PLYPSL ] 5068 mSTW R5,CEXYPSL,R1 5068+ S00191D F0 1142 IWT R0,#CEXYPSL 5068+ S001920 51 ADD R1 5068+ S001921 B5 FROM R5 5068+ S001922 30 STW (R0) 5069 S001923 A5 0B IBT R5,#0BH ;初期カウンターセット 5070 mSTW R5,CEXWRK0,R1 5070+ S001925 F0 1E4C IWT R0,#CEXWRK0 5070+ S001928 51 ADD R1 5070+ S001929 B5 FROM R5 5070+ S00192A 30 STW (R0) 5071 S00192B A5 02 IBT R5,#02H ;初期タイマーセット 5072 mSTW R5,CEXTIM0,R1 5072+ S00192D F0 1782 IWT R0,#CEXTIM0 5072+ S001930 51 ADD R1 5072+ S001931 B5 FROM R5 5072+ S001932 30 STW (R0) 5073 ; 5074 S001933 3D AB 30 LMS R11,RTS0 5075 ; 5076 DOSN_JUST_CK_10 5077 mRTS 5077+ S001936 9B JMP R11 5077+ S001937 01 NOP 5078 ; 5079 ;------------------------------------------------------------------------ 5080 ;- 壊れたＢＧ効果セット - 5081 ;- in : - 5082 ;- (CWK0) <- セットＸ座標 - 5083 ;- (CWK1) <- ” Ｙ ” - 5084 ;- (CWKE) <- 壊れたＢＧぶっ飛びＸスピード - 5085 ;- (CWKE) <- ” Ｙ ” - 5086 ;- out : - 5087 ;- - 5088 ;- break : - 5089 ;- (R1) - 5090 ;- (R5) - 5091 ;- (R12) - 5092 ;- (R13) - 5093 ;- use RAM : - 5094 ;- (RTS0) - 5095 ;------------------------------------------------------------------------ 5096 BRBG0_SET 5097 S001938 3E AB 30 SMS R11,RTS0 ;[ return address save ] 5098 ; 5099 S00193B A0 0A IBT R0,#0AH ;[♪] 5100 S00193D 3E A0 3D SMS R0,CMSOUND3 5101 ; 5102 S001940 F5 0000" IWT R5,#BRBG0 ;(R5) <-- 効果Ｎｏ． 5103 mJSR M_EXINSR ;効果エリア確保 5103+ S001943 94 LINK #4 5103+ S001944 FF 2A7B' IWT R15, #M_EXINSR 5103+ S001947 01 NOP 5104 ; 5105 S001948 3D A0 00 LMS R0,CWORK0 5106 S00194B 15 TO R5 5107 S00194C 3F 7F BIC #0FH ;[ AND #0FFF0H ] 5108 mSTW R5,CEXXPSL,R1 ;Ｘ座標セット 5108+ S00194E F0 10A2 IWT R0,#CEXXPSL 5108+ S001951 51 ADD R1 5108+ S001952 B5 FROM R5 5108+ S001953 30 STW (R0) 5109 S001954 3D A0 01 LMS R0,CWORK1 5110 S001957 15 TO R5 5111 S001958 3F 7F BIC #0FH ;[ AND #0FFF0H ] 5112 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 5112+ S00195A F0 1142 IWT R0,#CEXYPSL 5112+ S00195D 51 ADD R1 5112+ S00195E B5 FROM R5 5112+ S00195F 30 STW (R0) 5113 S001960 3D A5 0E LMS R5,CWORKE 5114 mSTW R5,CEXXSPD,R1 ;Ｘスピードセット 5114+ S001963 F0 11E0 IWT R0,#CEXXSPD 5114+ S001966 51 ADD R1 5114+ S001967 B5 FROM R5 5114+ S001968 30 STW (R0) 5115 S001969 3D A5 0F LMS R5,CWORKF 5116 mSTW R5,CEXYSPD,R1 ;Ｙスピードセット 5116+ S00196C F0 11E2 IWT R0,#CEXYSPD 5116+ S00196F 51 ADD R1 5116+ S001970 B5 FROM R5 5116+ S001971 30 STW (R0) 5117 S001972 A5 0A IBT R5,#0AH 5118 mSTW R5,CEXCHPT,R1 ;初期パターンＮｏ．セット 5118+ S001974 F0 13C2 IWT R0,#CEXCHPT 5118+ S001977 51 ADD R1 5118+ S001978 B5 FROM R5 5118+ S001979 30 STW (R0) 5119 S00197A A5 02 IBT R5,#02H 5120 mSTW R5,CEXTIM0,R1 ;初期タイマーセット 5120+ S00197C F0 1782 IWT R0,#CEXTIM0 5120+ S00197F 51 ADD R1 5120+ S001980 B5 FROM R5 5120+ S001981 30 STW (R0) 5121 S001982 A5 08 IBT R5,#08H 5122 mSTW R5,CEXGPOW,R1 ;重力セット 5122+ S001984 F0 1502 IWT R0,#CEXGPOW 5122+ S001987 51 ADD R1 5122+ S001988 B5 FROM R5 5122+ S001989 30 STW (R0) 5123 S00198A F5 0400 IWT R5,#0400H 5124 mSTW R5,CEXGMAX,R1 ;最大重力セット 5124+ S00198D F0 15A2 IWT R0,#CEXGMAX 5124+ S001990 51 ADD R1 5124+ S001991 B5 FROM R5 5124+ S001992 30 STW (R0) 5125 ; 5126 mSFCALL EATBLK_BG_W ;食べれるＢＧ書き換え 5126+ S001993 A0 04 IBT R0,#EATBLK_BG_W 5126+ S001995 00 STOP 5126+ S001996 01 NOP 5127 ; 5128 S001997 3D AB 30 LMS R11,RTS0 5129 mRTS 5129+ S00199A 9B JMP R11 5129+ S00199B 01 NOP 5130 ; 5131 ;************************************************************************ 5132 ;* * 5133 ;* コントローラー入力 * 5134 ;* * 5135 ;************************************************************************ 5136 ; 5137 PL_KEY 5138 ; 5139 ;------------------------------------------------------------------------ 5140 ;- 舌ショットチェック - 5141 ;------------------------------------------------------------------------ 5142 S00199C 3E AB 32 SMS R11,RTS2 ;[ return address save ] 5143 ; 5144 mJSR BERO_CHECK 5144+ S00199F 94 LINK #4 5144+ S0019A0 FF 1CD3' IWT R15, #BERO_CHECK 5144+ S0019A3 01 NOP 5145 ; 5146 S0019A4 3D AB 32 LMS R11,RTS2 ;[ retrn address load ] 5147 ; 5148 ;------------------------------------------------------------------------ 5149 ;- 移動キーチェック - 5150 ;------------------------------------------------------------------------ 5151 S0019A7 3D F1 0071 LM R1,CMKEYC1 ;(R1) <-- コントローラー情報（連続） 5152 S0019AB 3D F2 0073 LM R2,CMKEYC2 ;(R2) <-- ” （トリガー） 5153 ; 5154 S0019AF 3D A0 6D LMS R0,CPLKAID 5155 S0019B2 3E 60 SUB #0 5156 S0019B4 09 05' BEQ PL_KEY_0000 ;階段歩き中？ ( no:PL_KEY_0000 ) 5157 S0019B6 01 NOP 5158 ; 5159 mDJMP PL_KEY_1100 5159+ S0019B7 FF 1A3F' IWT R15, #PL_KEY_1100 5159+ S0019BA 01 NOP 5160 ; 5161 PL_KEY_0000 5162 S0019BB 3D A0 60 LMS R0,CPLJUMP 5163 S0019BE E0 DEC R0 5164 S0019BF 0B 4E' BMI PL_KEY_1000 ;ジャンプ中？ ( no:PL_KEY_1000 ) 5165 S0019C1 01 NOP 5166 ; 5167 ;------------------------------------------------------------------------ 5168 ;- ジャンプ中のキーチェック - 5169 ;------------------------------------------------------------------------ 5170 ; 5171 ;---------------------------------------------------------------- 5172 ;- ”ドスーン！！”チェック - 5173 ;---------------------------------------------------------------- 5174 S0019C2 3D A0 61 LMS R0,CPLSITD 5175 S0019C5 3D A7 A8 LMS R7,CBERFLG 5176 S0019C8 C7 OR R7 5177 S0019C9 3D A7 6F LMS R7,CPLNAGE ;(R7) <-- 0 ”ドスーン！！”フラグ”セット用データ 5178 S0019CC C7 OR R7 5179 S0019CD 08 39' BNE PL_KEY_0010 ;タマゴ投げ か ”ドスーン！！”中？ ( yes:PL_KEY_0010 ) 5180 S0019CF 60 SUB R0 5181 ; 5182 S0019D0 B1 FROM R1 5183 S0019D1 3E 73 AND #00000011B 5184 S0019D3 08 33' BNE PL_KEY_0010 ;左右キー入力？ ( yes:PL_KEY_0010 ) 5185 S0019D5 60 SUB R0 ;[ ”ドスーン！！”ウェイトカウンタークリアー ] 5186 ; 5187 S0019D6 B1 FROM R1 5188 S0019D7 3E 74 AND #00000100B 5189 S0019D9 09 2D' BEQ PL_KEY_0010 ;下キー入力？ ( no:PL_KEY_0010 ) 5190 S0019DB D7 INC R7 ;(R7) <-- ”ドスーン！！”フラグ”セット用データ 5191 ; 5192 S0019DC 3D A0 6B LMS R0,CPLDSNC 5193 S0019DF D0 INC R0 5194 S0019E0 09 29' BEQ PL_KEY_0020 ;”ドスーン！！”禁止？ ( yes:PL_KEY_0020 ) 5195 S0019E2 18 TO R8 ;[ * not break (R0) ] 5196 ; 5197 S0019E3 3E 68 SUB #08H 5198 S0019E5 0C 21' BCC PL_KEY_0010 ;”ドスーン！！”ウェイトカウンターＯＫ？ ( no:PL_KEY_0010 ) 5199 S0019E7 01 NOP 5200 ; 5201 S0019E8 A0 73 IBT R0,#073H 5202 S0019EA 3E A0 3D SMS R0,CMSOUND3 ;[♪] 5203 ; 5204 S0019ED 3E A7 6A SMS R7,CPLDOSN ;”ドスーン！！”フラグ”ＯＮ” 5205 S0019F0 60 SUB R0 ;[ IBT R0,#0 ] 5206 S0019F1 3E A0 55 SMS R0,CPLYSPD ;Ｙスピードクリアー 5207 S0019F4 A0 03 IBT R0,#03H 5208 S0019F6 3E A0 EF SMS R0,CPDSNTM ;初期パターン切り替えタイマーセット 5209 ; 5210 ;-------------- 舌ショットキャンセル ---------------------------- 5211 S0019F9 3E AB 32 SMS R11,RTS2 ;[ return address save ] 5212 ; 5213 mJSR BERO_CANCEL 5213+ S0019FC 94 LINK #4 5213+ S0019FD FF 2512' IWT R15, #BERO_CANCEL 5213+ S001A00 01 NOP 5214 ; 5215 S001A01 3D AB 32 LMS R11,RTS2 ;[ retrn address load ] 5216 mDJMP PL_KEY_1500 5216+ S001A04 FF 1ABC' IWT R15, #PL_KEY_1500 5216+ S001A07 01 NOP 5217 ; 5218 PL_KEY_0010 5219 S001A08 3E A0 6B SMS R0,CPLDSNC ;”ドスーン！！”ウェイトカウンタークリアー 5220 PL_KEY_0020 5221 mDJMP PL_KEY_1500 5221+ S001A0B FF 1ABC' IWT R15, #PL_KEY_1500 5221+ S001A0E 01 NOP 5222 ; 5223 ;------------------------------------------------------------------------ 5224 ;- 着地中のキーチェック - 5225 ;------------------------------------------------------------------------ 5226 PL_KEY_1000 5227 ; 5228 ;---------------------------------------------------------------- 5229 ;- しゃがみチェック - 5230 ;---------------------------------------------------------------- 5231 ;;;; LMS R0,CPLDASH 5232 S001A0F 3D A0 6F LMS R0,CPLNAGE 5233 S001A12 9E LOB ;[ * SBK ] (Z) <-- 投げ中？ 5234 ; 5235 S001A13 A8 FF IBT R8,#-1 ;(R8) <-- しゃがみフラグ減算データ 5236 S001A15 3D A7 61 LMS R7,CPLSITD ;[ * SBK ] 5237 ; 5238 S001A18 08 0B' BNE PL_KEY_1010 ;(Z):タマゴ投げ か 溜めダッシュ中？ ( yes:PL_KEY_1010 ) 5239 S001A1A 60 SUB R0 ;(R0) <-- ＭＡＸチェックデータ（０） 5240 ; 5241 S001A1B B1 FROM R1 5242 S001A1C 3E 74 AND #00000100B ;(R0) <-- ＭＡＸチェックデータ（０） 5243 S001A1E 09 05' BEQ PL_KEY_1010 ;しゃがみ？ ( no:PL_KEY_1010 ) 5244 S001A20 01 NOP 5245 ; 5246 S001A21 A8 01 IBT R8,#1 ;(R8) <-- しゃがみフラグ加算データ 5247 S001A23 A0 05 IBT R0,#5 ;(R0) <-- ＭＡＸチェックデータ 5248 PL_KEY_1010 5249 S001A25 67 SUB R7 5250 S001A26 09 04' BEQ PL_KEY_1020 ;しゃがみフラグＭＡＸ？ ( yes:PL_KEY_1020 ) 5251 S001A28 57 ADD R7 5252 ; 5253 S001A29 B7 FROM R7 5254 S001A2A 58 ADD R8 5255 S001A2B 90 SBK ;[ SMS R0,CPLSITD ] 5256 PL_KEY_1020 5257 S001A2C 09 11' BEQ PL_KEY_1100 ;しゃがみ中？ ( no:PL_KEY_1100 ) 5258 S001A2E 60 SUB R0 ;[ IBT R0,#0 ] 5259 ; 5260 S001A2F E0 DEC R0 ;[ IWT R0,#0FFFFH ] 5261 S001A30 3E A0 6B SMS R0,CPLDSNC ;”ドスーン！！”禁止！！ 5262 ; 5263 S001A33 3D F0 0085 LM R0,CP_KEY_JUMP+1 ;(R0) <-- ジャンプボタン情報 5264 S001A37 72 AND R2 5265 S001A38 08 0D' BNE PL_KEY_1102 ;ジャンプ？ ( yes:PL_KEY_1102 ) 5266 S001A3A 01 NOP 5267 ; 5268 mDJMP PL_KEY_1800 5268+ S001A3B FF 1C46' IWT R15, #PL_KEY_1800 5268+ S001A3E 01 NOP 5269 ; 5270 ;---------------------------------------------------------------- 5271 ;- ジャンプチェック - 5272 ;---------------------------------------------------------------- 5273 PL_KEY_1100 5274 S001A3F 3D F0 0085 LM R0,CP_KEY_JUMP+1 ;(R0) <-- ジャンプボタン情報 5275 S001A43 72 AND R2 5276 S001A44 09 64' BEQ PL_KEY_1200 ;ジャンプ？ ( no:PL_KEY_1200 ) 5277 S001A46 01 NOP 5278 ; 5279 PL_KEY_1102 5280 S001A47 A0 49 IBT R0,#049H ;[♪] 5281 S001A49 3E A0 3D SMS R0,CMSOUND3 5282 ; 5283 ;-------------- サウンドセット座標セット ---------------- 5284 S001A4C A0 40 IBT R0,#040H 5285 S001A4E 3E A0 F9 SMS R0,CSOUND_ON ;サウンドセットフラグセット 5286 S001A51 3D A0 46 LMS R0,CPLXPSL 5287 S001A54 3E F0 0EB2 SM R0,CSOUND_X ;サウンドセットＸ座標セット 5288 S001A58 3D A0 48 LMS R0,CPLYPSL 5289 S001A5B 3E F0 0EB4 SM R0,CSOUND_Y ;サウンドセットＹ座標セット 5290 ; 5291 S001A5F 3D A0 7E LMS R0,CPLBGCR 5292 S001A62 A4 18 IBT R4,#000011000B 5293 S001A64 74 AND R4 5294 S001A65 08 04' BNE PL_KEY_1110 ;頭ＢＧ当たり？ ( yes:PL_KEY_1110 ) 5295 S001A67 60 SUB R0 ;[ IBT R0,#0 ] 5296 ; 5297 S001A68 F0 FB60 IWT R0,#0FB60H 5298 PL_KEY_1110 5299 S001A6B 3E A0 55 SMS R0,CPLYSPD ;Ｙスピードセット 5300 S001A6E 3D F6 1E3A LM R6,CPL_ADD_XSP 5301 S001A72 F0 0170 IWT R0,#0170H 5302 S001A75 3D 9F LMULT 5303 S001A77 24 WITH R4 5304 S001A78 C0 HIB 5305 S001A79 9E LOB 5306 S001A7A 4D SWAP 5307 S001A7B C4 OR R4 5308 S001A7C 3D A6 54 LMS R6,CPLXSPD 5309 S001A7F 56 ADD R6 5310 S001A80 20 16 MOVE R6,R0 5311 S001A82 0A 03' BPL PL_KEY_1130 5312 S001A84 01 NOP 5313 ; 5314 S001A85 4F NOT 5315 S001A86 D0 INC R0 5316 PL_KEY_1130 5317 S001A87 F4 0300 IWT R4,#0300H 5318 S001A8A 64 SUB R4 5319 S001A8B 0C 0A' BCC PL_KEY_1140 ;ＭＡＸスピードオーバー？ ( no:PL_KEY_1140 ) 5320 S001A8D 01 NOP 5321 ; 5322 S001A8E 26 B6 MOVES R6,R6 ;(N) set 5323 S001A90 24 16 MOVE R6,R4 5324 S001A92 0A 03' BPL PL_KEY_1140 5325 S001A94 26 WITH R6 5326 ; 5327 S001A95 4F NOT 5328 S001A96 D6 INC R6 5329 PL_KEY_1140 5330 S001A97 3E A6 5A SMS R6,CPLMVSP 5331 ; 5332 S001A9A F0 0006 IWT R0,#P006 5333 S001A9D 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＮ” 5334 ; 5335 S001AA0 60 SUB R0 5336 S001AA1 3E A0 6D SMS R0,CPLKAID ;階段フラグリセット 5337 S001AA4 3E A0 61 SMS R0,CPLSITD ;しゃがみリセット 5338 S001AA7 05 13' BRA PL_KEY_1500 5339 S001AA9 01 NOP 5340 ; 5341 ;---------------------------------------------------------------- 5342 ;- 上向きチェック - 5343 ;---------------------------------------------------------------- 5344 PL_KEY_1200 5345 S001AAA 3D A0 A8 LMS R0,CBERFLG 5346 S001AAD E0 DEC R0 5347 S001AAE 0A 0C' BPL PL_KEY_1500 ;舌ショット中？ ( yes:PL_KEY_1500 ) 5348 S001AB0 B1 FROM R1 5349 ; 5350 S001AB1 3E 78 AND #00001000B 5351 S001AB3 09 07' BEQ PL_KEY_1500 ;上向く？ ( no:PL_KEY_1500 ) 5352 S001AB5 01 NOP 5353 ; 5354 S001AB6 F0 004C IWT R0,#P106 5355 S001AB9 3E A0 67 SMS R0,CPLUPFG ;上向きフラグ”ＯＮ” 5356 ; 5357 ;------------------------------------------------------------------------ 5358 ;- 移動キーチェック - 5359 ;------------------------------------------------------------------------ 5360 PL_KEY_1500 5361 S001ABC 3D A0 6D LMS R0,CPLKAID 5362 S001ABF 3E 60 SUB #0 5363 S001AC1 09 05' BEQ PL_KEY_1502 ;階段歩き中？ ( no:PL_KEY_1502 ) 5364 S001AC3 01 NOP 5365 ; 5366 mDJMP PL_KEY_1720 5366+ S001AC4 FF 1C44' IWT R15, #PL_KEY_1720 5366+ S001AC7 01 NOP 5367 ; 5368 PL_KEY_1502 5369 ;;;; LMS R0,CPLDASH 5370 ;;;; SUB #0 ;[ * PLSTOP へ ] 5371 ;;;; BEQ PL_KEY_1504 ;溜めダッシュ？ ( no:PL_KEY_1504 ) 5372 ;;;; NOP 5373 ;;;;; 5374 ;;;; mDJMP PL_KEY_1510 5375 ; 5376 PL_KEY_1504 5377 S001AC8 3D F0 1FE8 LM R0,CFURA_FG 5378 S001ACC 3E 60 SUB #0 5379 S001ACE 09 0B' BEQ PL_KEY_1506 ;”フラフラ〜”モード？ ( no:PL_KEY_1506 ) 5380 S001AD0 01 NOP 5381 ; 5382 S001AD1 3D A0 60 LMS R0,CPLJUMP 5383 S001AD4 3D A5 A8 LMS R5,CBERFLG 5384 S001AD7 C5 OR R5 5385 S001AD8 09 05' BEQ PL_KEY_FURA ;ジャンプ中ｏｒ舌ショット中？ ( no:PL_KEY_FURA ) 5386 S001ADA 01 NOP 5387 ; 5388 PL_KEY_1506 5389 mDJMP PL_KEY_XMOV 5389+ S001ADB FF 1B8A' IWT R15, #PL_KEY_XMOV 5389+ S001ADE 01 NOP 5390 ; 5391 ;------------------------------------------------------------------------ 5392 ;- ”フラフラ〜”モードセット - 5393 ;------------------------------------------------------------------------ 5394 PL_KEY_FURA 5395 S001ADF 3D A5 79 LMS R5,CPLFRCT ;(R5) <-- ”フラフラ〜”カウンター 5396 S001AE2 2C B5 MOVES R12,R5 ;(R12) <-- ” （絶対値） 5397 S001AE4 0A 03' BPL PL_KEY_FR_010 5398 S001AE6 2C WITH R12 5399 ; 5400 S001AE7 4F NOT 5401 S001AE8 DC INC R12 5402 PL_KEY_FR_010 5403 S001AE9 3D A4 62 LMS R4,CPLCMKI ;(R4) <-- プレイヤー向き 5404 ; 5405 S001AEC 21 WITH R1 5406 S001AED 3E 73 AND #00000011B 5407 S001AEF 09 28' BEQ PL_KEY_FR_050 ;左右キー入力？ ( no:PL_KEY_FR_050 ) 5408 S001AF1 01 NOP 5409 ; 5410 ;-------------- 移動キー入力 -------------------------------------------- 5411 S001AF2 B1 FROM R1 5412 S001AF3 3E 72 AND #02H 5413 S001AF5 64 SUB R4 5414 S001AF6 09 13' BEQ PL_KEY_FR_020 ;向き反転？ ( no:PL_KEY_FR_020 ) 5415 S001AF8 01 NOP 5416 ; 5417 S001AF9 3D A0 6F LMS R0,CPLNAGE 5418 S001AFC 9E LOB 5419 S001AFD 08 0C' BNE PL_KEY_FR_020 ;タマゴ投げ中？ ( yes:PL_KEY_FR_020 ) 5420 S001AFF 25 WITH R5 ;”フラフラ〜”カウンター反転 5421 ; 5422 S001B00 4F NOT 5423 S001B01 D5 INC R5 5424 S001B02 3E A5 79 SMS R5,CPLFRCT 5425 S001B05 24 WITH R4 ;プレイヤー向き反転 5426 S001B06 3F C2 XOR #02H 5427 S001B08 3E A4 62 SMS R4,CPLCMKI 5428 PL_KEY_FR_020 5429 S001B0B A7 02 IBT R7,#02H ;(R7) <-- ”フラフラ〜”向き 5430 S001B0D 3E A7 7A SMS R7,CPLFRMK 5431 S001B10 A0 FE" IBT R0,#FR_CK-2 5432 S001B12 65 SUB R5 5433 S001B13 0B 07' BMI PL_KEY_FR_060 ;前進？ ( yes:PL_KEY_FR_060 ) 5434 S001B15 01 NOP 5435 ; 5436 S001B16 05 0C' BRA PL_KEY_FR_061+1 5437 S001B18 B7 FROM R7 5438 ; 5439 ;-------------- 移動キー入力無し ---------------------------------------- 5440 001B19 PL_KEY_FR_050 EQU $ 5441 S001B19 3D A7 7A LMS R7,CPLFRMK ;(R7) <-- ”フラフラ〜”向き 5442 ; 5443 001B1C PL_KEY_FR_060 EQU $ 5444 S001B1C 3D A0 EC LMS R0,CPSTPTM 5445 S001B1F E0 DEC R0 5446 S001B20 0A 53' BPL PL_KEY_FR_100 ;カウンター切り替え？ ( no:PL_KEY_FR_100 ) 5447 S001B22 01 NOP 5448 ; 5449 001B23 PL_KEY_FR_061 EQU $ 5450 S001B23 B7 FROM R7 5451 S001B24 3D C5 XOR R5 5452 S001B26 0B 0D' BMI PL_KEY_FR_062 ;前進？ ( no:PL_KEY_FR_062 ) 5453 S001B28 01 NOP 5454 ; 5455 S001B29 A0 FD" IBT R0,#FR_MV-2-1 5456 S001B2B 6C SUB R12 5457 S001B2C 0C 0B' BCC PL_KEY_FR_070 ;”フラフラ”終り？ ( yes:PL_KEY_FR_070 ) 5458 S001B2E 01 NOP 5459 ; 5460 S001B2F A0 00" IBT R0,#FR_CK 5461 S001B31 6C SUB R12 5462 S001B32 09 05' BEQ PL_KEY_FR_070 ;ランダムセレクト？ ( yes:PL_KEY_FR_070 ) 5463 S001B34 01 NOP 5464 ; 5465 ;-------------- ”フラフラ〜”カウンター加算 -------------------- 5466 PL_KEY_FR_062 5467 S001B35 25 WITH R5 5468 S001B36 05 2D' BRA PL_KEY_FR_090 5469 S001B38 57 ADD R7 5470 ; 5471 ;-------------- ランダムセレクト -------------------------------- 5472 PL_KEY_FR_070 5473 S001B39 20 B1 MOVES R0,R1 ;(R0) <-- 移動キー入力フラグ（１ｏｒ２） 5474 S001B3B 08 1D' BNE PL_KEY_FR_072 ;移動キー入力？ ( yes:PL_KEY_FR_072 ) 5475 S001B3D 60 SUB R0 ;[ 歩くになる為！！ ] 5476 ; 5477 S001B3E AC FE" IBT R12,#FR_CK-2 ;(R12) <-- 戻り”フラフラ〜”カウンターセット 5478 S001B40 3D F0 1970 LM R0,CRANDM0 5479 S001B44 17 TO R7 5480 S001B45 3E 74 AND #04H 5481 S001B47 27 WITH R7 ;(R7) <-- ”フラフラ〜”向き 5482 S001B48 3E 62 SUB #02H 5483 S001B4A 3E A7 7A SMS R7,CPLFRMK 5484 S001B4D B7 FROM R7 5485 S001B4E 3D C5 XOR R5 5486 S001B50 0B 0A' BMI PL_KEY_FR_080 ;前進？ ( no:PL_KEY_FR_080 ) 5487 S001B52 01 NOP 5488 ; 5489 S001B53 AC 02" IBT R12,#FR_CK+2 ;(R12) <-- ”フラフラ〜”カウンターセット 5490 S001B55 3E 79 AND #09H ;[ 移動キー入力中は（Ｒ０）＝０ ！！ ] 5491 S001B57 08 03' BNE PL_KEY_FR_080 ;歩く？ ( no:PL_KEY_FR_080 ) 5492 S001B59 01 NOP 5493 ; 5494 PL_KEY_FR_072 5495 S001B5A AC 00" IBT R12,#FR_MV ;(R12) <-- 歩き”フラフラ〜”カウンターセット 5496 PL_KEY_FR_080 5497 S001B5C 25 B5 MOVES R5,R5 ;(N) set 5498 S001B5E 2C 15 MOVE R5,R12 5499 S001B60 0A 03' BPL PL_KEY_FR_090 5500 S001B62 25 WITH R5 5501 ; 5502 S001B63 4F NOT 5503 S001B64 D5 INC R5 5504 ; 5505 ;-------------- ”フラフラ〜”カウンター切り替えタイマーセット -- 5506 PL_KEY_FR_090 5507 S001B65 3E A5 79 SMS R5,CPLFRCT 5508 S001B68 A0 00" IBT R0,#FR_MV 5509 S001B6A 55 ADD R5 5510 S001B6B 03 LSR 5511 S001B6C FE 0000" IWT R14,#FURA_TMDT 5512 S001B6F 1E TO R14 5513 S001B70 5E ADD R14 5514 S001B71 EF GETB 5515 S001B72 3E A0 EC SMS R0,CPSTPTM ;カウンター切り替えタイマーセット 5516 ; 5517 ;-------------- Ｘ移動チェック ---------------------------------- 5518 PL_KEY_FR_100 5519 S001B75 A0 FF" IBT R0,#FR_MV-1 5520 S001B77 6C SUB R12 5521 S001B78 0D 16' BCS PL_KEY_1508 ;移動？ ( no:PL_KEY_1508 ) 5522 S001B7A B7 FROM R7 5523 ; 5524 S001B7B 3D C5 XOR R5 5525 S001B7D 0B 11' BMI PL_KEY_1508 ;カウンター加算？ ( no:PL_KEY_1508 ) 5526 S001B7F 01 NOP 5527 ; 5528 S001B80 25 B5 MOVES R5,R5 5529 S001B82 0A 03' BPL PL_KEY_FR_110 ;前進？ ( no:PL_KEY_FR_110 ) 5530 S001B84 24 WITH R4 5531 ; 5532 S001B85 3F C2 XOR #02H 5533 PL_KEY_FR_110 5534 S001B87 24 11 MOVE R1,R4 5535 S001B89 D1 INC R1 ;[ ０→１、２→３ ] 5536 ; 5537 ;-------------- Ｘスピード制御 ------------------------------------------ 5538 PL_KEY_XMOV 5539 S001B8A B1 FROM R1 5540 S001B8B 3E 73 AND #00000011B 5541 S001B8D 08 10' BNE PL_KEY_1510 ;左右キー入力？ ( yes:PL_KEY_1510 ) 5542 S001B8F 01 NOP 5543 ; 5544 PL_KEY_1508 5545 S001B90 3D A0 7D LMS R0,CPLBGNO 5546 S001B93 3E 60" SUB #ON_SOAP 5547 S001B95 0C 04' BCC PL_KEY_1509 ;滑らし？ ( no:PL_KEY_1509 ) 5548 S001B97 60 SUB R0 ;[ IBT R0,#0 ] 5549 ; 5550 S001B98 3E A0 66 SMS R0,CPLSTOP 5551 PL_KEY_1509 5552 mDJMP PL_KEY_1800 5552+ S001B9B FF 1C46' IWT R15, #PL_KEY_1800 5552+ S001B9E 01 NOP 5553 ; 5554 PL_KEY_1510 5555 S001B9F 3D A7 F6 LMS R7,CPLKEYFG 5556 S001BA2 27 B7 MOVES R7,R7 5557 S001BA4 09 03' BEQ PL_KEY_1512 ;キー反転？ ( no:PL_KEY_1512 ) 5558 S001BA6 01 NOP 5559 ; 5560 S001BA7 3F C3 XOR #00000011B 5561 PL_KEY_1512 5562 S001BA9 3E A0 66 SMS R0,CPLSTOP ;止まってるフラグリセット 5563 ; 5564 S001BAC A7 FF IBT R7,#-1 ;(R7) <-- 左右キーによる移動方向（左） 5565 S001BAE 14 TO R4 ;(R4) <-- プレイヤー向き 5566 S001BAF 3E 72 AND #02H 5567 S001BB1 08 03' BNE PL_KEY_1520 ;左へ？ ( yes:PL_KEY_1520 ) 5568 S001BB3 01 NOP 5569 ; 5570 S001BB4 A7 01 IBT R7,#01H ;(R7) <-- 左右キーによる移動方向（右） 5571 PL_KEY_1520 5572 S001BB6 3D F0 1FE8 LM R0,CFURA_FG 5573 S001BBA 3E 60 SUB #0 5574 S001BBC 08 2F' BNE PL_KEY_1700 ;”フラフラ”モード？ ( yes:PL_KEY_1700 ) 5575 S001BBE 01 NOP 5576 ; 5577 S001BBF 3D A0 62 LMS R0,CPLCMKI ;(R0) <-- 移動向き 5578 S001BC2 64 SUB R4 5579 S001BC3 09 0E' BEQ PL_KEY_1550 ;向き変わった？ ( no:PL_KEY_1550 ) 5580 S001BC5 01 NOP 5581 ; 5582 S001BC6 3D A0 A8 LMS R0,CBERFLG 5583 S001BC9 3D AE 6F LMS R14,CPLNAGE 5584 S001BCC CE OR R14 5585 S001BCD 08 04' BNE PL_KEY_1550 ;舌ショット中ｏｒタマゴ投げ中？ ( yes:PL_KEY_1550 ) 5586 S001BCF 01 NOP 5587 ; 5588 S001BD0 3E A4 62 SMS R4,CPLCMKI ;プレイヤー向きセット 5589 ; 5590 PL_KEY_1550 5591 S001BD3 3D A0 5A LMS R0,CPLMVSP 5592 S001BD6 3E 60 SUB #0 5593 S001BD8 09 13' BEQ PL_KEY_1700 ;止まってた？ ( yes:PL_KEY_1700 ) 5594 S001BDA 01 NOP 5595 ; 5596 S001BDB 3D C7 XOR R7 5597 S001BDD 0A 0E' BPL PL_KEY_1700 ;スリップ？ ( no:PL_KEY_1700 ) 5598 S001BDF 01 NOP 5599 ; 5600 ;---------------------------------------------------------------- 5601 ;- スリップ - 5602 ;---------------------------------------------------------------- 5603 PL_KEY_1600 5604 ;;;; LMS R0,CPLJUMP 5605 ;;;; SUB #0 5606 ;;;; BNE PL_KEY_1700 ;ジャンプ中？ ( yes:PL_KEY_1700 ) 5607 ;;;; NOP 5608 ; vvv******* warn :value out of range 5609 S001BE0 3D A0 7D LMS R0,PLBGNO 5610 S001BE3 3E 60" SUB #ON_SOAP 5611 S001BE5 0D 06' BCS PL_KEY_1700 ;滑らし？ ( yes:PL_KEY_1700 ) 5612 S001BE7 01 NOP 5613 ; 5614 S001BE8 A0 04 IBT R0,#04H 5615 S001BEA 3E A0 E8 SMS R0,CPLSLIP ;スリップフラグ”ＯＮ” 5616 ; 5617 ;---------------------------------------------------------------- 5618 ;- 加速 - 5619 ;---------------------------------------------------------------- 5620 PL_KEY_1700 5621 S001BED 3D F0 00FB LM R0,CPLBGNO+1 ;ＢＧタイプ ×（（２＋２）×１６） 5622 S001BF1 03 LSR ; 5623 S001BF2 03 LSR ; 5624 S001BF3 17 TO R7 5625 S001BF4 C4 OR R4 ;[ ＯＲ（移動向き） ] 5626 S001BF5 3D A0 5B LMS R0,CPLANGL 5627 S001BF8 3F 7F BIC #0FH ;[ AND #0FFF0H ] 5628 S001BFA 03 LSR 5629 S001BFB 03 LSR 5630 S001BFC 17 TO R7 ;(R7) <-- 加速データポインター 5631 S001BFD C7 OR R7 5632 ; 5633 S001BFE F0 0000" IWT R0,#MAX_SPEED 5634 S001C01 1E TO R14 ;(R14) <-- ＭＡＸスピードデータポインター 5635 S001C02 57 ADD R7 5636 S001C03 EF GETB 5637 S001C04 DE INC R14 5638 S001C05 18 TO R8 ;(R8) <-- ＭＡＸスピード 5639 S001C06 3D EF GETBH 5640 ; 5641 S001C08 3D A0 5A LMS R0,CPLMVSP ;(R0) <-- 移動スピード 5642 S001C0B 3D AE A8 LMS R14,CBERFLG 5643 S001C0E EE DEC R14 5644 S001C0F 0A 12' BPL PL_KEY_1705 ;(N):舌ショット？ ( yes:PL_KEY_1706 ) 5645 S001C11 01 NOP 5646 ; 5647 S001C12 3D AE 60 LMS R14,CPLJUMP 5648 S001C15 EE DEC R14 5649 S001C16 0B 0C' BMI PL_KEY_1706 ;ジャンプ中？ ( no:PL_KEY_1706 ) 5650 S001C18 DE INC R14 5651 ; 5652 S001C19 3D AE 69 LMS R14,CPLSPJP 5653 S001C1C 2E WITH R14 5654 S001C1D 9E LOB 5655 S001C1E EE DEC R14 5656 S001C1F EE DEC R14 5657 S001C20 0B 02' BMI PL_KEY_1706 ;ジタバタジャンプ中？ ( no:PL_KEY_1706 ) 5658 S001C22 01 NOP 5659 ; 5660 PL_KEY_1705 5661 S001C23 50 ADD R0 ;スピード半分！！ 5662 PL_KEY_1706 5663 S001C24 68 SUB R8 5664 S001C25 09 54' BEQ PL_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:PL_KEY_1850 ) 5665 S001C27 01 NOP 5666 ; 5667 S001C28 3D C8 XOR R8 5668 S001C2A 0A 4F' BPL PL_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:PL_KEY_1850 ) 5669 S001C2C 01 NOP 5670 ; 5671 S001C2D 3D A0 E8 LMS R0,CPLSLIP 5672 S001C30 9E LOB 5673 S001C31 09 02' BEQ PL_KEY_1710 ;スリップ？ ( no:PL_KEY_1710 ) 5674 S001C33 01 NOP 5675 ; 5676 S001C34 D7 INC R7 5677 PL_KEY_1710 5678 S001C35 F0 0000" IWT R0,#ADD_SPEED 5679 S001C38 57 ADD R7 5680 S001C39 1E TO R14 5681 S001C3A 57 ADD R7 5682 S001C3B EF GETB 5683 S001C3C DE INC R14 5684 S001C3D 3D EF GETBH 5685 ; 5686 S001C3F 3D A7 5A LMS R7,CPLMVSP 5687 S001C42 57 ADD R7 5688 S001C43 90 SBK ;[ SMS R0,CPLMVSP ] 5689 ; 5690 PL_KEY_1720 5691 mRTS 5691+ S001C44 9B JMP R11 5691+ S001C45 01 NOP 5692 ; 5693 ;---------------------------------------------------------------- 5694 ;- 減速 - 5695 ;---------------------------------------------------------------- 5696 PL_KEY_1800 5697 S001C46 3D A0 60 LMS R0,CPLJUMP 5698 S001C49 E0 DEC R0 5699 S001C4A 0B 2F' BMI PL_KEY_1850 ;ジャンプ中？ ( no:PL_KEY_1850 ) 5700 S001C4C 01 NOP 5701 ; 5702 S001C4D 3D A0 63 LMS R0,CPLSWIM 5703 S001C50 E0 DEC R0 5704 S001C51 0A 28' BPL PL_KEY_1850 ;泳いでる？ ( yes:PL_KEY_1850 ) 5705 S001C53 01 NOP 5706 ; 5707 ;-------------------------------------------------------- 5708 ;- ジャンプ中の減速 - 5709 ;-------------------------------------------------------- 5710 S001C54 FE 0000" IWT R14,#MAX_SPEED ;(R14) <-- ＭＡＸスピードデータポインター 5711 S001C57 3D A0 69 LMS R0,CPLSPJP 5712 S001C5A 18 TO R8 5713 S001C5B 9E LOB 5714 S001C5C 3D A0 5A LMS R0,CPLMVSP 5715 S001C5F E8 DEC R8 5716 S001C60 E8 DEC R8 5717 S001C61 0A 02' BPL PL_KEY_1802 ;ジタバタジャンプ中？ ( yes:PL_KEY_1802 ) 5718 S001C63 50 ADD R0 5719 ; 5720 S001C64 96 ASR 5721 PL_KEY_1802 5722 S001C65 0A 03' BPL PL_KEY_1810 5723 S001C67 01 NOP 5724 ; 5725 S001C68 DE INC R14 5726 S001C69 DE INC R14 5727 PL_KEY_1810 5728 S001C6A 18 TO R8 5729 S001C6B EF GETB 5730 S001C6C DE INC R14 5731 S001C6D 28 WITH R8 5732 S001C6E 3D EF GETBH 5733 ; 5734 S001C70 68 SUB R8 5735 S001C71 09 08' BEQ PL_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:PL_KEY_1850 ) 5736 S001C73 01 NOP 5737 ; 5738 S001C74 3D C8 XOR R8 5739 S001C76 0A 03' BPL PL_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:PL_KEY_1850 ) 5740 S001C78 01 NOP 5741 ; 5742 mRTS 5742+ S001C79 9B JMP R11 5742+ S001C7A 01 NOP 5743 ; 5744 ;-------------------------------------------------------- 5745 ;- 着地中の減速 - 5746 ;-------------------------------------------------------- 5747 PL_XSP_DOWN 5748 PL_KEY_1850 5749 S001C7B 3D F0 00FB LM R0,CPLBGNO+1 ;ＢＧタイプ ×（２×１６） 5750 S001C7F 03 LSR ; 5751 S001C80 03 LSR ; 5752 S001C81 17 TO R7 ; 5753 S001C82 03 LSR ; 5754 S001C83 3D A0 5B LMS R0,CPLANGL 5755 S001C86 3F 7F BIC #0FH ;[ AND #0FFF0H ] 5756 S001C88 03 LSR 5757 S001C89 03 LSR 5758 S001C8A 03 LSR 5759 S001C8B 14 TO R4 ;(R4) <-- 減速データポインター 5760 S001C8C C7 OR R7 5761 S001C8D F0 0000" IWT R0,#MIN_SPEED 5762 S001C90 1E TO R14 5763 S001C91 54 ADD R4 5764 S001C92 EF GETB 5765 S001C93 DE INC R14 5766 S001C94 17 TO R7 ;(R7) <-- ＭＩＮスピード 5767 S001C95 3D EF GETBH 5768 ; 5769 S001C97 3D A8 5A LMS R8,CPLMVSP ;(R8) <-- 移動スピード 5770 S001C9A B8 FROM R8 5771 S001C9B 67 SUB R7 5772 S001C9C 0A 02' BPL PL_KEY_1860 5773 S001C9E 01 NOP 5774 ; 5775 S001C9F D4 INC R4 5776 PL_KEY_1860 5777 S001CA0 F0 0000" IWT R0,#SUB_SPEED 5778 S001CA3 54 ADD R4 5779 S001CA4 1E TO R14 5780 S001CA5 54 ADD R4 5781 S001CA6 EF GETB 5782 S001CA7 DE INC R14 5783 S001CA8 3D EF GETBH 5784 ; 5785 S001CAA 3D F4 1FE8 LM R4,CFURA_FG 5786 S001CAE 24 B4 MOVES R4,R4 5787 S001CB0 09 03' BEQ PL_KEY_1862 ;”フラフラ”モード？ ( no:PL_KEY_1862 ) 5788 S001CB2 01 NOP 5789 ; 5790 S001CB3 3D 96 DIV2 5791 PL_KEY_1862 5792 S001CB5 3D A4 61 LMS R4,CPLSITD 5793 S001CB8 E4 DEC R4 5794 S001CB9 0B 03' BMI PL_KEY_1864 ;しゃがんでる？ ( no:PL_KEY_1864 ) 5795 S001CBB 01 NOP 5796 ; 5797 S001CBC 50 ADD R0 ;x4 5798 S001CBD 50 ADD R0 ; 5799 PL_KEY_1864 5800 S001CBE 20 14 MOVE R4,R0 ;(R4) <-- 減速値 5801 ; 5802 S001CC0 58 ADD R8 5803 S001CC1 20 18 MOVE R8,R0 5804 S001CC3 67 SUB R7 5805 S001CC4 3D C4 XOR R4 5806 S001CC6 0B 06' BMI PL_KEY_1870 ;ＭＩＮスピードオーバー？ ( no:PL_KEY_1870 ) 5807 S001CC8 60 SUB R0 5808 ; 5809 S001CC9 3E A0 66 SMS R0,CPLSTOP 5810 S001CCC 27 18 MOVE R8,R7 5811 PL_KEY_1870 5812 S001CCE 3E A8 5A SMS R8,CPLMVSP 5813 mRTS 5813+ S001CD1 9B JMP R11 5813+ S001CD2 01 NOP 5814 ; 5815 ;------------------------------------------------------------------------ 5816 ;- - 5817 ;- 舌ショットチェック - - 5818 ;- - 5819 ;------------------------------------------------------------------------ 5820 BERO_CHECK 5821 S001CD3 3D A0 EB LMS R0,CPLFLSH 5822 ;;;; IWT R8,#080H 5823 S001CD6 A8 40 IBT R8,#040H 5824 S001CD8 68 SUB R8 5825 S001CD9 0C 03' BCC BERO_CHECK_0000 ;ダメージ中？ ( no:BERO_CHECK_0000 ) 5826 S001CDB 01 NOP 5827 ; 5828 mRTS 5828+ S001CDC 9B JMP R11 5828+ S001CDD 01 NOP 5829 ; 5830 BERO_CHECK_0000 5831 S001CDE 3E AB 31 SMS R11,RTS1 ;[ return address save ] 5832 ; 5833 ;------------------------------------------------------------------------ 5834 ;- 舌のＢＧチェック - 5835 ;------------------------------------------------------------------------ 5836 S001CE1 3D A8 AD LMS R8,CBRCNTX ;(R8) <-- 舌のＸ座標 5837 S001CE4 3D A0 AE LMS R0,CBRCNTY ;(R0) <-- ”Ｙ ” 5838 ; 5839 mJSR_X BGUNIT_READ_S+1 ;ＢＧユニットＮｏ．読み込み 5839+ S001CE7 94 LINK #4 5839+ S001CE8 FF 0CD7' IWT R15, #BGUNIT_READ_S+1 5840 S001CEB 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 5841 ; 5842 ; (R7) <-- BG unit no. type return !! 5843 ; 5844 S001CEC 3D A3 B4 LMS R3,CEATSTP ;(R3) <-- 口に入れてるフラグ 5845 S001CEF 3D A4 B5 LMS R4,CEATSPF ;(R4) <-- スペシャルショットフラグ 5846 S001CF2 3D A8 B1 LMS R8,CEATFLG ;(R8) <-- 食べるてるフラグ 5847 ; 5848 S001CF5 3D A2 A8 LMS R2,CBERFLG ;(R2) <-- 舌ショットフラグ 5849 S001CF8 E2 DEC R2 5850 S001CF9 0B 05' BMI BERO_CHECK_0010 ;舌ショット中？ ( no:BERO_CHECK_0010 ) 5851 S001CFB D2 INC R2 5852 ; 5853 mDJMP BERO_CHECK_1500 5853+ S001CFC FF 20B9' IWT R15, #BERO_CHECK_1500 5853+ S001CFF 01 NOP 5854 ; 5855 ;------------------------------------------------------------------------ 5856 ;- 舌ショットチェック - 5857 ;------------------------------------------------------------------------ 5858 BERO_CHECK_0010 5859 ; 5860 ;---------------------------------------------------------------- 5861 ;- タマゴ投げチェック - 5862 ;---------------------------------------------------------------- 5863 S001D00 3D A0 6F LMS R0,CPLNAGE 5864 S001D03 E0 DEC R0 5865 S001D04 0A 05' BPL BERO_CHECK_0010C ;タマゴ投げ中？ ( yes:BERO_CHECK_0010C ) 5866 S001D06 01 NOP 5867 ; 5868 mDJMP BERO_CHECK_0014 5868+ S001D07 FF 1F15' IWT R15, #BERO_CHECK_0014 5868+ S001D0A 01 NOP 5869 ; 5870 BERO_CHECK_0010C 5871 S001D0B 3D A1 63 LMS R1,CPLSWIM 5872 S001D0E E1 DEC R1 5873 S001D0F 0A 42' BPL BERO_CHECK_0010E4 ;泳ぎ中？ ( yes:BERO_CHECK_0010E4 ) 5874 S001D11 01 NOP 5875 ; 5876 S001D12 3D A1 F1 LMS R1,CPNAGTM 5877 S001D15 E1 DEC R1 5878 S001D16 0B 05' BMI BERO_CHECK_0010D ;タマゴ投げパターン切り替え？ ( yes:BERO_CHECK_0010D ) 5879 S001D18 01 NOP 5880 ; 5881 mDJMP BERO_CHECK_3000 5881+ S001D19 FF 2251' IWT R15, #BERO_CHECK_3000 5881+ S001D1C 01 NOP 5882 ; 5883 BERO_CHECK_0010D 5884 S001D1D 3D A1 76 LMS R1,CPLNAGE_EGG 5885 S001D20 21 B1 MOVES R1,R1 5886 S001D22 09 06' BEQ BERO_CHECK_0010D2 ;空振り？ ( yes:BERO_CHECK_0010D2 ) 5887 S001D24 01 NOP 5888 ; 5889 S001D25 3E 65 SUB #6-1 5890 S001D27 09 05' BEQ BERO_CHECK_0010E ;投げ溜めポーズ？ ( yes:BERO_CHECK_0010E ) 5891 S001D29 01 NOP 5892 ; 5893 BERO_CHECK_0010D2 5894 mDJMP BERO_CHECK_0011 5894+ S001D2A FF 1EF9' IWT R15, #BERO_CHECK_0011 5894+ S001D2D 01 NOP 5895 ; 5896 ;-------------- 投げ溜めチェック -------------------------------- 5897 BERO_CHECK_0010E 5898 S001D2E 3D A3 39 LMS R3,CMKEYC2L 5899 S001D31 3D A0 44 LMS R0,CP_KEY_BERO 5900 S001D34 73 AND R3 5901 S001D35 08 1D' BNE BERO_CHECK_0010E4+1 ;キャンセルキー入力？ ( yes:BERO_CHECK_0010E4+1 ) 5902 S001D37 60 SUB R0 5903 ; 5904 S001D38 3D A3 38 LMS R3,CMKEYC1L ;(R3) <-- コントローラー情報（連続） 5905 S001D3B F0 0300 IWT R0,#0000001100000000B 5906 S001D3E 73 AND R3 5907 S001D3F 08 1D' BNE BERO_CHECK_0010F ;キャンセルキー入力チェックＯＫ？ ( no:BERO_CHECK_0010F ) 5908 S001D41 60 SUB R0 ;[ キャンセルカウンターリセット ] 5909 ; 5910 S001D42 F0 0400 IWT R0,#0000010000000000B 5911 S001D45 73 AND R3 5912 S001D46 09 16' BEQ BERO_CHECK_0010F ;キャンセルキー入力？ ( no:BERO_CHECK_0010F ) 5913 S001D48 60 SUB R0 ;[ キャンセルカウンターリセット ] 5914 ; 5915 S001D49 3D A0 74 LMS R0,CPLNAGR 5916 S001D4C D0 INC R0 5917 S001D4D 12 TO R2 ;[ * not break (R0) ] 5918 S001D4E 3E 68 SUB #08H 5919 S001D50 0C 0C' BCC BERO_CHECK_0010F ;キャンセル？ ( no:BERO_CHECK_0010F ) 5920 S001D52 01 NOP 5921 ; 5922 ;-------------- タマゴ投げキャンセル -------------------- 5923 BERO_CHECK_0010E4 5924 S001D53 60 SUB R0 5925 S001D54 3E A0 6F SMS R0,CPLNAGE 5926 S001D57 3E A0 70 SMS R0,CPLNAGP 5927 mDJMP BERO_CHECK_3000 5927+ S001D5A FF 2251' IWT R15, #BERO_CHECK_3000 5927+ S001D5D 01 NOP 5928 ; 5929 BERO_CHECK_0010F 5930 S001D5E 3E A0 74 SMS R0,CPLNAGR ;キャンセルカウンターリセット 5931 ; 5932 S001D61 A2 01 IBT R2,#01H ;(R2) <-- サーチ敵ターゲット表示タイマー 5933 S001D63 3D A0 41 LMS R0,CCONFIGFG 5934 S001D66 E0 DEC R0 ;(N) set vvv******* warn :value out of range 5935 S001D67 3D A0 43 LMS R0,P_KEY_MNAG ;(R0) <-- タマゴ投げボタン情報 5936 S001D6A 0B 08' BMI BERO_CHECK_0010F2 ;トリガータイプ？ ( yes:BERO_CHECK_0010F2 ) 5937 S001D6C 01 NOP 5938 ; 5939 ;-------------- 押しっぱなしタイプ ---------------------- 5940 S001D6D 73 AND R3 5941 S001D6E 09 0E' BEQ BERO_CHECK_0010F4 ;タマゴ投げる？ ( yes:BERO_CHECK_0010F4 ) 5942 S001D70 01 NOP 5943 ; 5944 S001D71 05 0D' BRA BERO_CHECK_00100 5945 S001D73 01 NOP 5946 ; 5947 ;-------------- トリガータイプ -------------------------- 5948 BERO_CHECK_0010F2 5949 S001D74 3D A3 39 LMS R3,CMKEYC2L ;(R3) <-- コントローラー情報（トリガー） vvv******* warn :value out of range 5950 S001D77 3D A0 43 LMS R0,P_KEY_MNAG ;(R0) <-- タマゴ投げボタン情報 5951 S001D7A 73 AND R3 5952 S001D7B 09 03' BEQ BERO_CHECK_00100 ;タマゴ投げる？ ( no:BERO_CHECK_00100 ) 5953 S001D7D 01 NOP 5954 ; 5955 BERO_CHECK_0010F4 5956 S001D7E A2 10 IBT R2,#010H ;(R2) <-- サーチ敵ターゲット表示タイマー 5957 BERO_CHECK_00100 5958 S001D80 3D A0 71 LMS R0,CPLNAGC 5959 S001D83 3E 54 ADD #4 5960 S001D85 A3 20 IBT R3,#020H 5961 S001D87 63 SUB R3 5962 S001D88 0D 03' BCS BERO_CHECK_0010001 ;ターゲットカウンターＭＡＸ？ ( no:BERO_CHECK_0010001 ) 5963 S001D8A 53 ADD R3 5964 ; 5965 S001D8B 20 13 MOVE R3,R0 5966 BERO_CHECK_0010001 5967 S001D8D 3D A0 75 LMS R0,CPLNAGL 5968 S001D90 3E 60 SUB #0 5969 S001D92 08 70' BNE BERO_CHECK_00102 ;ロックオン？ ( yes:BERO_CHECK_00102 ) 5970 S001D94 01 NOP 5971 ; 5972 S001D95 3D A0 70 LMS R0,CPLNAGP 5973 S001D98 F7 0100 IWT R7,#(((08H*(48H-30H))+0FFH)&0FF00H) 5974 S001D9B 67 SUB R7 5975 S001D9C 0D 10' BCS BERO_CHECK_001001 ;パワーＭＡＸ？ ( yes:BERO_CHECK_001001 ) 5976 S001D9E 01 NOP 5977 ; 5978 S001D9F 3D F0 0071 LM R0,CMKEYC1 5979 S001DA3 3E 78 AND #00001000B 5980 S001DA5 08 10' BNE BERO_CHECK_0010010 ;上投げ？ ( yes:BERO_CHECK_0010010 ) 5981 S001DA7 01 NOP 5982 ; 5983 S001DA8 F7 2600 IWT R7,#4CH*2*040H ;(R7) <-- スタート目標角度 5984 S001DAB 05 0D' BRA BERO_CHECK_0010012 5985 S001DAD 01 NOP 5986 ; 5987 ;-------------- ターゲット角度回転 ---------------------- 5988 BERO_CHECK_001001 5989 S001DAE 3D F0 0071 LM R0,CMKEYC1 5990 S001DB2 3E 78 AND #00001000B 5991 S001DB4 09 28' BEQ BERO_CHECK_0010016 ;ターゲット角度変更？ ( no:BERO_CHECK_0010016 ) 5992 S001DB6 01 NOP 5993 ; 5994 ;-------------- ターゲット角度変更 -------------- 5995 BERO_CHECK_0010010 5996 S001DB7 F7 2E00 IWT R7,#05CH*2*040H ;上投げ 5997 BERO_CHECK_0010012 5998 S001DBA 3D A0 77 LMS R0,CPLNAGE_ANG ;(R0) <-- ターゲット角度 5999 S001DBD 1E TO R14 ;[ * not break (R0) ] 6000 S001DBE 67 SUB R7 ;(Z)+(N) set 6001 ;;;; BEQ BERO_CHECK_001006 ;目標角度と一致？ ( yes:BERO_CHECK_001006 ) 6002 S001DBF 09 07' BEQ BERO_CHECK_00100120 ;目標角度と一致？ ( yes:BERO_CHECK_00100120 ) 6003 S001DC1 01 NOP ;[ * not break (N) ] 6004 ; 6005 S001DC2 F6 00C0 IWT R6,#0C0H 6006 S001DC5 0B 04' BMI BERO_CHECK_0010013 6007 S001DC7 01 NOP 6008 ; 6009 BERO_CHECK_00100120 6010 S001DC8 F6 FF40 IWT R6,#-0C0H 6011 BERO_CHECK_0010013 6012 S001DCB 3E A6 78 SMS R6,CPLNAGE_AMK ;ターゲット角度回転向きセット 6013 ; 6014 BERO_CHECK_0010014 6015 S001DCE 56 ADD R6 6016 S001DCF 20 1E MOVE R14,R0 6017 S001DD1 67 SUB R7 6018 S001DD2 3D C6 XOR R6 6019 S001DD4 2E 10 MOVE R0,R14 6020 S001DD6 0B 03' BMI BERO_CHECK_0010015 ;目標角度と一致？ ( no:BERO_CHECK_0010015 ) 6021 S001DD8 01 NOP 6022 ; 6023 S001DD9 27 10 MOVE R0,R7 6024 BERO_CHECK_0010015 6025 S001DDB 05 1F' BRA BERO_CHECK_001004 6026 S001DDD 01 NOP 6027 ; 6028 BERO_CHECK_0010016 6029 S001DDE 3D A0 77 LMS R0,CPLNAGE_ANG ;(R0) <-- ターゲット角度 6030 S001DE1 3D A6 78 LMS R6,CPLNAGE_AMK ;(R6) <-- ターゲット角度回転向き 6031 BERO_CHECK_0010018 6032 S001DE4 17 TO R7 6033 S001DE5 56 ADD R6 6034 S001DE6 0B 0F' BMI BERO_CHECK_001002 ;ＭＩＮ角度オーバー？ ( yes:BERO_CHECK_001002 ) 6035 S001DE8 60 SUB R0 6036 ; 6037 S001DE9 27 10 MOVE R0,R7 6038 S001DEB F7 2E00 IWT R7,#(03CH+20H)*2*040H 6039 S001DEE 67 SUB R7 6040 S001DEF 0C 0B' BCC BERO_CHECK_001004 ;ＭＡＸ角度オーバー？ ( no:BERO_CHECK_001004 ) 6041 S001DF1 57 ADD R7 6042 ; 6043 S001DF2 26 B6 MOVES R6,R6 6044 S001DF4 0B 06' BMI BERO_CHECK_001004 ;角度大オーバー？ ( yes:BERO_CHECK_001004 ) 6045 S001DF6 01 NOP 6046 ; 6047 BERO_CHECK_001002 6048 S001DF7 26 WITH R6 6049 S001DF8 4F NOT 6050 S001DF9 D6 INC R6 6051 BERO_CHECK_001003 6052 S001DFA B6 FROM R6 6053 S001DFB 90 SBK ;[ SMS R6,CPLNAGE_AMK ] 6054 ; 6055 BERO_CHECK_001004 6056 S001DFC 3E A0 77 SMS R0,CPLNAGE_ANG 6057 ; 6058 BERO_CHECK_001006 6059 S001DFF 05 03' BRA BERO_CHECK_00102 6060 S001E01 01 NOP 6061 ; 6062 BERO_CHECK_00101 6063 S001E02 20 13 MOVE R3,R0 6064 ; 6065 ;-------------- ロックオン切り替えチェック -------------- 6066 BERO_CHECK_00102 6067 S001E04 3D A0 39 LMS R0,CMKEYC2L 6068 S001E07 A7 30 IBT R7,#00110000B 6069 S001E09 77 AND R7 6070 S001E0A 09 0E' BEQ BERO_CHECK_001025 ;ロックオン切り替え？ ( no:BERO_CHECK_001025 ) 6071 S001E0C 01 NOP 6072 ; 6073 S001E0D 3D A0 75 LMS R0,CPLNAGL 6074 S001E10 3E 60 SUB #0 6075 S001E12 08 03' BNE BERO_CHECK_001023 6076 S001E14 60 SUB R0 ;[ IBT R0,#0 ] 6077 ; 6078 S001E15 21 10 MOVE R0,R1 6079 BERO_CHECK_001023 6080 S001E17 3E A0 75 SMS R0,CPLNAGL 6081 ; 6082 BERO_CHECK_001025 6083 S001E1A A7 00 IBT R7,#00H ;(R7) <-- ターゲットカラーＡＮＤデータ（固定） 6084 ;;;; MOVES R1,R1 6085 ;;;; BPL BERO_CHECK_00104 ;敵サーチ？ ( yes:BERO_CHECK_00104 ) 6086 ;;;; NOP 6087 ; 6088 ;-------------- サーチ敵無しターゲット位置セット -------- 6089 S001E1C A0 00" IBT R0,#BANK LCOS_S 6090 S001E1E 3F DF ROMB 6091 ; 6092 S001E20 A6 30 IBT R6,#030H ;(R6) <-- パワーＭＡＸまでの半径 6093 S001E22 3D A0 70 LMS R0,CPLNAGP 6094 S001E25 03 LSR 6095 S001E26 03 LSR 6096 S001E27 03 LSR 6097 S001E28 56 ADD R6 6098 S001E29 A6 48 IBT R6,#048H ;(R6) <-- パワーＭＡＸの半径 6099 S001E2B 66 SUB R6 6100 S001E2C 0D 03' BCS BERO_CHECK_001026 6101 S001E2E 56 ADD R6 6102 ; 6103 S001E2F 20 16 MOVE R6,R0 ;(R6) <-- パワーＭＡＸの半径 6104 BERO_CHECK_001026 6105 S001E31 3D A0 77 LMS R0,CPLNAGE_ANG 6106 S001E34 50 ADD R0 6107 S001E35 FE 2000 IWT R14,#020H*2*40H*2 6108 S001E38 6E SUB R14 6109 S001E39 03 LSR 6110 S001E3A 03 LSR 6111 S001E3B 03 LSR 6112 S001E3C 03 LSR 6113 S001E3D 03 LSR 6114 S001E3E 03 LSR 6115 S001E3F 03 LSR 6116 S001E40 FE 0000" IWT R14,#LCOS_S 6117 S001E43 1E TO R14 6118 S001E44 5E ADD R14 6119 S001E45 EF GETB 6120 S001E46 86 MULT R6 6121 S001E47 50 ADD R0 6122 S001E48 50 ADD R0 6123 S001E49 C0 HIB 6124 S001E4A 95 SEX 6125 S001E4B 3D A4 62 LMS R4,CPLCMKI 6126 S001E4E E4 DEC R4 6127 S001E4F 0B 0A' BMI BERO_CHECK_00103 6128 S001E51 01 NOP 6129 ; 6130 S001E52 3D A4 E7 LMS R4,CKOOPA_FG 6131 S001E55 E4 DEC R4 6132 S001E56 0A 03' BPL BERO_CHECK_00103 6133 S001E58 01 NOP 6134 ; 6135 S001E59 4F NOT 6136 S001E5A D0 INC R0 6137 BERO_CHECK_00103 6138 S001E5B 3D A4 46 LMS R4,CPLXPSL 6139 S001E5E 14 TO R4 ;(R4) <-- ターゲットＸ座標 6140 S001E5F 54 ADD R4 6141 ; 6142 S001E60 F0 0080 IWT R0,#040H*2 ;[ IWT R14,#LSIN ] 6143 S001E63 1E TO R14 6144 S001E64 5E ADD R14 6145 S001E65 EF GETB 6146 S001E66 86 MULT R6 6147 S001E67 50 ADD R0 6148 S001E68 50 ADD R0 6149 S001E69 C0 HIB 6150 S001E6A 95 SEX 6151 S001E6B 3E 54 ADD #4 6152 S001E6D 3D A6 48 LMS R6,CPLYPSL 6153 S001E70 16 TO R6 ;(R6) <-- ターゲットＹ座標 6154 S001E71 56 ADD R6 6155 ; 6156 S001E72 A0 00" IBT R0,#BANK PLAYER_DATA 6157 S001E74 3F DF ROMB 6158 ; 6159 ;-------------- ターゲット表示 -------------------------- 6160 S001E76 3E A3 71 SMS R3,CPLNAGC ;ターゲットカウンターセット 6161 S001E79 3E A4 72 SMS R4,CPLNAGX ;ターゲットＸ座標セット 6162 S001E7C 3E A6 73 SMS R6,CPLNAGY ; ” Ｙ ” 6163 ; 6164 S001E7F F5 0000" IWT R5,#NAG_P ;(R5) <-- 効果Ｎｏ． 6165 mJSR M_EXINSR ;効果エリア確保 6165+ S001E82 94 LINK #4 6165+ S001E83 FF 2A7B' IWT R15, #M_EXINSR 6165+ S001E86 01 NOP 6166 ; 6167 mSTW R4,CEXXPSL,R1 ;Ｘ座標セット 6167+ S001E87 F0 10A2 IWT R0,#CEXXPSL 6167+ S001E8A 51 ADD R1 6167+ S001E8B B4 FROM R4 6167+ S001E8C 30 STW (R0) 6168 mSTW R6,CEXYPSL,R1 ;Ｙ ” 6168+ S001E8D F0 1142 IWT R0,#CEXYPSL 6168+ S001E90 51 ADD R1 6168+ S001E91 B6 FROM R6 6168+ S001E92 30 STW (R0) 6169 S001E93 3D A5 46 LMS R5,CPLXPSL 6170 mSTW R5,CEXWRK4,R1 ;基準Ｘ座標セット 6170+ S001E96 F0 1E8C IWT R0,#CEXWRK4 6170+ S001E99 51 ADD R1 6170+ S001E9A B5 FROM R5 6170+ S001E9B 30 STW (R0) 6171 mSTW R2,CEXTIM0,R1 ;初期タイマーセット 6171+ S001E9C F0 1782 IWT R0,#CEXTIM0 6171+ S001E9F 51 ADD R1 6171+ S001EA0 B2 FROM R2 6171+ S001EA1 30 STW (R0) 6172 S001EA2 A0 20 IBT R0,#020H 6173 S001EA4 63 SUB R3 6174 S001EA5 0D 03' BCS BERO_CHECK_001050 6175 S001EA7 53 ADD R3 6176 ; 6177 S001EA8 20 13 MOVE R3,R0 6178 BERO_CHECK_001050 6179 mSTW R3,CEXWRK0,R1 ;ターゲットカウンターセット 6179+ S001EAA F0 1E4C IWT R0,#CEXWRK0 6179+ S001EAD 51 ADD R1 6179+ S001EAE B3 FROM R3 6179+ S001EAF 30 STW (R0) 6180 mLDW R5,CEXCLOR,R1 6180+ S001EB0 F0 1002 IWT R0,#CEXCLOR 6180+ S001EB3 51 ADD R1 6180+ S001EB4 15 TO R5 6180+ S001EB5 40 LDW (R0) 6181 ; 6182 S001EB6 A4 01 IBT R4,#01H ;(R4) <-- ターゲットタイプ 6183 mSTW R4,CEXWRK2,R1 ;ターゲットタイプセット 6183+ S001EB8 F0 1E4E IWT R0,#CEXWRK2 6183+ S001EBB 51 ADD R1 6183+ S001EBC B4 FROM R4 6183+ S001EBD 30 STW (R0) 6184 S001EBE 3D F0 1974 LM R0,CFRCNT2 6185 S001EC2 3E 74 AND #04H 6186 S001EC4 03 LSR 6187 S001EC5 3E 52 ADD #01H<<1 ;[ カラー１ｏｒ２ ] 6188 S001EC7 15 TO R5 6189 S001EC8 C5 OR R5 6190 mSTW R5,CEXCLOR,R1 ;カラーセット 6190+ S001EC9 F0 1002 IWT R0,#CEXCLOR 6190+ S001ECC 51 ADD R1 6190+ S001ECD B5 FROM R5 6190+ S001ECE 30 STW (R0) 6191 ; 6192 S001ECF 23 10 MOVE R0,R3 ;(R0) <-- ターゲットカウンター 6193 ; 6194 S001ED1 E2 DEC R2 6195 S001ED2 08 25' BNE BERO_CHECK_00108 ;タマゴ投げる？ ( yes:BERO_CHECK_00108 ) 6196 S001ED4 60 SUB R0 ;[ ロックオンフラグリセット ] 6197 ; 6198 ;-------------- 投げパワーｕｐ -------------------------- 6199 S001ED5 3D A0 70 LMS R0,CPLNAGP 6200 S001ED8 F1 0280 IWT R1,#(((08H*(48H-30H))+0FFH)&0FF00H)+(30H*8) ;[ 48H-30H:ターゲート長さの差 ] 6201 S001EDB 61 SUB R1 6202 S001EDC 0C 04' BCC BERO_CHECK_00106 ;パワーＭＡＸ？ ( yes:BERO_CHECK_00106 ) 6203 S001EDE 51 ADD R1 6204 ; 6205 S001EDF F0 0100 IWT R0,#(((08H*(48H-30H))+0FFH)&0FF00H) 6206 BERO_CHECK_00106 6207 S001EE2 A5 30 IBT R5,#030H ;[ 030H : パワー加算値 ] 6208 S001EE4 55 ADD R5 6209 S001EE5 3E A0 70 SMS R0,CPLNAGP 6210 ; 6211 S001EE8 E0 DEC R0 6212 S001EE9 11 TO R1 6213 S001EEA C0 HIB 6214 S001EEB 9E LOB 6215 S001EEC 65 SUB R5 ;[ 018H : パワー加算値 ] 6216 S001EED 0D 06' BCS BERO_CHECK_00107 ;サウンドセット？ ( no:BERO_CHECK_00107 ) 6217 S001EEF 01 NOP 6218 ; 6219 S001EF0 A0 09 IBT R0,#09H ;[♪] 6220 S001EF2 3E A0 3D SMS R0,CMSOUND3 6221 ; 6222 BERO_CHECK_00107 6223 mDJMP BERO_CHECK_3000 6223+ S001EF5 FF 2251' IWT R15, #BERO_CHECK_3000 6223+ S001EF8 01 NOP 6224 ; 6225 ;-------------- 投げパターンセット ------------------------------ 6226 BERO_CHECK_00108 6227 ;;;; SUB R0 ;[ IBT R0,#0 ] 6228 ;;;; SMS R0,CPLNAGL ;ロックオンフラグリセット 6229 ; 6230 BERO_CHECK_0011 6231 S001EF9 3D A0 6F LMS R0,CPLNAGE 6232 S001EFC E0 DEC R0 ;-1 6233 S001EFD 1E TO R14 ;[ * not break (R0) ] 6234 S001EFE 3E 62 SUB #2 6235 S001F00 08 06' BNE BERO_CHECK_00110 ;サウンドセット？ ( no:BERO_CHECK_00110 ) 6236 S001F02 90 SBK ;[ SMS R0,CPLNAGE ] タマゴ投げフラグセット 6237 ; 6238 S001F03 AE 4A IBT R14,#04AH ;[♪] 6239 S001F05 3E AE 3D SMS R14,CMSOUND3 6240 BERO_CHECK_00110 6241 S001F08 FE 0000" IWT R14,#NAGE_PATN_TMDT 6242 S001F0B 1E TO R14 6243 S001F0C 5E ADD R14 6244 S001F0D EF GETB 6245 S001F0E 3E A0 F1 SMS R0,CPNAGTM ;タイマーセット 6246 ; 6247 BERO_CHECK_0012 6248 mDJMP BERO_CHECK_3000 6248+ S001F11 FF 2251' IWT R15, #BERO_CHECK_3000 6248+ S001F14 01 NOP 6249 ; 6250 BERO_CHECK_0014 6251 S001F15 23 B3 MOVES R3,R3 6252 S001F17 09 39' BEQ BERO_CHECK_0016 ;口に入れてる？ ( no:BERO_CHECK_0016 ) 6253 S001F19 01 NOP 6254 ; 6255 S001F1A 0B 36' BMI BERO_CHECK_0016 ;飲み込めない？ ( yes:BERO_CHECK_0016 ) 6256 S001F1C 01 NOP 6257 ; 6258 ;-------------- 口に入れてる敵ショットチェック ------------------ 6259 S001F1D E4 DEC R4 6260 S001F1E 0A 16' BPL BERO_CHECK_001500 ;スペシャルショット？ ( yes:BERO_CHECK_001500 ) 6261 S001F20 D4 INC R4 6262 ; 6263 ;-------------- ２度押しモード -------------------------- 6264 S001F21 3D A0 39 LMS R0,CMKEYC2L ;(R0) <-- コントローラー情報（トリガー） 6265 S001F24 3D A1 44 LMS R1,CP_KEY_BERO ;(R1) <-- 舌ショットボタン情報 6266 S001F27 71 AND R1 6267 S001F28 09 05' BEQ BERO_CHECK_0015F ;敵ショット？ ( no:BERO_CHECK_0015F ) 6268 S001F2A 01 NOP 6269 ; 6270 BERO_CHECK_0015 6271 mDJMP BERO_CHECK_0022 6271+ S001F2B FF 1FCB' IWT R15, #BERO_CHECK_0022 6271+ S001F2E 01 NOP 6272 ; 6273 ;-------------- 飲み込みチェック -------------------------------- 6274 BERO_CHECK_0015F 6275 S001F2F 3D A0 F7 LMS R0,CEAT_WAIT 6276 S001F32 E0 DEC R0 6277 S001F33 0B 0B' BMI BERO_CHECK_00150 ;自動飲み込み？ ( yes:BERO_CHECK_00150 ) 6278 S001F35 01 NOP 6279 ; 6280 BERO_CHECK_001500 6281 S001F36 3D A1 38 LMS R1,CMKEYC1L ;(R1) <-- コントローラー情報（連続） 6282 S001F39 F0 0400 IWT R0,#00000100B*100H 6283 S001F3C 71 AND R1 6284 S001F3D 09 13' BEQ BERO_CHECK_0016 ;下キー入力？ ( no:BERO_CHECK_0016 ) 6285 S001F3F 01 NOP 6286 ; 6287 ;-------------- 飲み込む！！ ---------------------------- 6288 BERO_CHECK_00150 6289 S001F40 E4 DEC R4 6290 S001F41 0A 0F' BPL BERO_CHECK_0016 ;スペシャルショット？ ( yes:BERO_CHECK_0016 ) 6291 S001F43 D4 INC R4 6292 ; 6293 S001F44 A3 00 IBT R3,#0 ;飲み込みへ 6294 S001F46 3E A3 B4 SMS R3,CEATSTP 6295 S001F49 A2 07" IBT R2,#EATEND+7 ;飲み込みデモへ 6296 S001F4B 3E A2 A8 SMS R2,CBERFLG 6297 mDJMP BERO_CHECK_1500 6297+ S001F4E FF 20B9' IWT R15, #BERO_CHECK_1500 6297+ S001F51 01 NOP 6298 ; 6299 ;-------------- 口に入れて無い時の舌ショットチェック ------------ 6300 BERO_CHECK_0016 6301 S001F52 3D A1 39 LMS R1,CMKEYC2L ;(R1) <-- コントローラー情報（トリガー） 6302 S001F55 3D A0 43 LMS R0,CP_KEY_MNAG ;(R1) <-- ＭＡＸ投げボタン情報 6303 S001F58 71 AND R1 6304 S001F59 09 68' BEQ BERO_CHECK_0020 ;ＭＡＸ投げ？ ( no:BERO_CHECK_0020 ) 6305 S001F5B 01 NOP 6306 ; 6307 S001F5C 3D A0 63 LMS R0,CPLSWIM 6308 S001F5F E0 DEC R0 6309 S001F60 0A 2A' BPL BERO_CHECK_0018 ;泳ぎ中？ ( yes:BERO_CHECK_0018 ) 6310 S001F62 01 NOP 6311 ; 6312 S001F63 3D F0 1DF6 LM R0,CEGGPNT 6313 S001F67 9E LOB 6314 S001F68 09 22' BEQ BERO_CHECK_0018 ;タマゴ持ってる？ ( no:BERO_CHECK_0018 ) 6315 S001F6A 01 NOP 6316 ; 6317 ;-------------- タマゴ投げ初期セット ---------------------------- 6318 S001F6B 3D F1 1DF8 LM R1,CEGGLNK ;(R1) <-- 一番タマゴの敵インデックス 6319 mLDW0 CENMYNO,R1 6319+ S001F6F F0 1360 IWT R0,#CENMYNO 6319+ S001F72 51 ADD R1 6319+ S001F73 40 LDW (R0) 6320 S001F74 F7 0000" IWT R7,#DRKEY 6321 S001F77 67 SUB R7 6322 S001F78 09 12' BEQ BERO_CHECK_0018 ;カギ？ ( yes:BERO_CHECK_0018 ) 6323 S001F7A 01 NOP 6324 ; 6325 mSFCALL EGG_KILL ;タマゴオプション解除 6325+ S001F7B A0 08 IBT R0,#EGG_KILL 6325+ S001F7D 00 STOP 6325+ S001F7E 01 NOP 6326 ; 6327 S001F7F A0 1A IBT R0,#01AH ;[♪] 6328 S001F81 3E A0 3D SMS R0,CMSOUND3 6329 ; 6330 S001F84 F0 19D8 IWT R0,#CENWRK4 ;タマゴ投げられフラグセット 6331 S001F87 11 TO R1 6332 S001F88 51 ADD R1 6333 S001F89 A0 FF IBT R0,#0FFH 6334 S001F8B 31 STW (R1) 6335 ; 6336 BERO_CHECK_0018 6337 S001F8C 3E A0 76 SMS R0,CPLNAGE_EGG ;空振りフラグセット 6338 ; 6339 S001F8F A0 0A IBT R0,#NAGE_P ;タマゴ投げフラグセット 6340 S001F91 3E A0 6F SMS R0,CPLNAGE 6341 S001F94 A0 01 IBT R0,#01H ;タマゴ投げパターン切り替えタイマーセット 6342 S001F96 3E A0 F1 SMS R0,CPNAGTM 6343 S001F99 60 SUB R0 ;[ IBT R0,#0 ] 6344 S001F9A 3E A0 74 SMS R0,CPLNAGR ;タマゴ投げキャンセルカウンターリセット 6345 S001F9D 3E A0 75 SMS R0,CPLNAGL ;ロック解除 6346 S001FA0 3E A0 6D SMS R0,CPLKAID ;階段歩きキャンセル 6347 ; 6348 ;;;; IWT R7,#022H*2*040H 6349 S001FA3 F7 0400 IWT R7,#08H*2*040H 6350 S001FA6 3D F0 0071 LM R0,CMKEYC1 6351 S001FAA 3E 78 AND #00001000B 6352 S001FAC 09 04' BEQ BERO_CHECK_00180 ;前投げ？ ( yes:BERO_CHECK_00180 ) 6353 S001FAE 01 NOP 6354 ; 6355 S001FAF F7 2E00 IWT R7,#05CH*2*040H ;上投げ 6356 BERO_CHECK_00180 6357 S001FB2 60 SUB R0 ;[ INT R0,#0 ] 6358 S001FB3 3E A0 70 SMS R0,CPLNAGP 6359 S001FB6 3E A7 77 SMS R7,CPLNAGE_ANG ;ターゲット角度リセット 6360 S001FB9 F0 FF40 IWT R0,#-0C0H 6361 S001FBC 3E A0 78 SMS R0,CPLNAGE_AMK ;ターゲット角度回転向きリセット 6362 ; 6363 mDJMP BERO_CHECK_3000 6363+ S001FBF FF 2251' IWT R15, #BERO_CHECK_3000 6363+ S001FC2 01 NOP 6364 ; 6365 ;---------------------------------------------------------------- 6366 ;- 舌ショットチェック - 6367 ;---------------------------------------------------------------- 6368 BERO_CHECK_0020 6369 S001FC3 3D A0 44 LMS R0,CP_KEY_BERO ;(R0) <-- 舌ショットボタン情報 6370 S001FC6 12 TO R2 6371 S001FC7 71 AND R1 6372 S001FC8 09 05' BEQ BERO_CHECK_0030 ;舌ショット？ ( no:BERO_CHECK_0030 ) 6373 S001FCA 01 NOP 6374 ; 6375 BERO_CHECK_0022 6376 mDJMP BERO_CHECK_0500 6376+ S001FCB FF 1FDF' IWT R15, #BERO_CHECK_0500 6376+ S001FCE 01 NOP 6377 ; 6378 ;---------------------------------------------------------------- 6379 ;- 食べれるＢＧチェックオートチェック - 6380 ;---------------------------------------------------------------- 6381 BERO_CHECK_0030 6382 S001FCF 3D A0 A5 LMS R0,CPROTSP 6383 S001FD2 3E 60 SUB #0 6384 S001FD4 09 05' BEQ BERO_CHECK_0031 ;回転中？ ( no:BERO_CHECK_0031 ) 6385 S001FD6 01 NOP 6386 ; 6387 mDJMP BERO_CHECK_3000 6387+ S001FD7 FF 2251' IWT R15, #BERO_CHECK_3000 6387+ S001FDA 01 NOP 6388 ; 6389 BERO_CHECK_0031 6390 ;;;; IWT R0,#1111100000000000B 6391 ;;;; AND R7 6392 ;;;; IWT R2,#ET 6393 ;;;; TO R2 6394 ;;;; SUB R2 6395 ;;;; BEQ BERO_CHECK_0033 ;食べれるＢＧ？ ( yes:BERO_CHECK_0033 ) 6396 ;;;; INC R2 ;[ INT R2,#01H ] 6397 ;;;;; 6398 ;;;;;-------------- 上のＢＧが食べれるか調べる ---------------------- 6399 ;;;; LMS R0,CPLCMKI 6400 ;;;; ADD R0 ;[ 0 <- 0 , 4 <- 2 ] 6401 ;;;; BNE BERO_CHECK_0032 6402 ;;;; NOP ;[ (Z)=1 : IBT R0,#4 ] 6403 ;;;;; 6404 ;;;; IBT R0,#-4 6405 ;;;;BERO_CHECK_0032 6406 ;;;; LMS R8,CBRCNTX 6407 ;;;; TO R8 ;(R8) <-- 舌のＸ座標 6408 ;;;; ADD R8 6409 ;;;;; 6410 ;;;; LMS R0,CBRCNTY ;(R0) <-- ”Ｙ ” 6411 ;;;; SUB #8 6412 ;;;;; 6413 ;;;; mJSR_X BGUNIT_READ_S+1 ;ＢＧユニットＮｏ．読み込み 6414 ;;;;;;;; TO R7 6415 ;;;; HEX 3D ;[ LMS R6,CBG2OF_FG ] 6416 ;;;;; 6417 ;;;;; (R7) <-- BG unit no. type return !! 6418 ;;;;; 6419 ;;;; IWT R0,#1111100000000000B 6420 ;;;; AND R7 6421 ;;;; IWT R2,#ET 6422 ;;;; SUB R2 6423 ;;;; BNE BERO_CHECK_0040 ;食べれるＢＧ？ ( no:BERO_CHECK_0040 ) 6424 ;;;; NOP 6425 ;;;;; 6426 ;;;; IBT R2,#03H 6427 ;;;;BERO_CHECK_0033 6428 ;;;; MOVES R3,R3 6429 ;;;; BNE BERO_CHECK_0036 ;口に入れてる？ ( yes:BERO_CHECK_0036 ) 6430 ;;;; NOP 6431 ;;;;; 6432 ;;;;BERO_CHECK_0034 6433 ;;;; mDJMP BERO_CHECK_0550 6434 ;;;;; 6435 ;;;;BERO_CHECK_0036 6436 ;;;; mDJMP BERO_CHECK_0048 6437 ; 6438 ;---------------------------------------------------------------- 6439 ;- 敵自動食べチェック - 6440 ;---------------------------------------------------------------- 6441 ;;;;BERO_CHECK_0040 6442 ;;;; LMS R1,CEATOK 6443 ;;;; DEC R1 6444 ;;;; BMI BERO_CHECK_0041 ;敵食べれる？ ( no:BERO_CHECK_0041 ) 6445 ;;;; NOP 6446 ;;;;; 6447 ;;;; mLDB0 CENMODE,R1 6448 ;;;; IBT R2,#CEMOVE 6449 ;;;; SUB R2 6450 ;;;; BEQ BERO_CHECK_0042 ;敵健在？ ( yes:BERO_CHECK_0042 ) 6451 ;;;; NOP 6452 ;;;;; 6453 ;;;;BERO_CHECK_0041 6454 mDJMP BERO_CHECK_3000 6454+ S001FDB FF 2251' IWT R15, #BERO_CHECK_3000 6454+ S001FDE 01 NOP 6455 ; 6456 ;;;;BERO_CHECK_0042 6457 ;;;; IBT R2,#01H ;(R2) <-- 舌フラグセットデータ 6458 ;;;;; 6459 ;;;; MOVES R8,R8 6460 ;;;; BEQ BERO_CHECK_0045 ;口に入れてる？ ( no:BERO_CHECK_0045 ) 6461 ;;;; NOP 6462 ;;;;; 6463 ;;;; FROM R4 6464 ;;;; SUB #3 6465 ;;;; BNE BERO_CHECK_0048 ;スイカの種スペシャルショット？ ( no:BERO_CHECK_0048 ) 6466 ;;;; NOP 6467 ;;;;; 6468 ;;;; mLDW0 CENMYNO,R1 6469 ;;;; IWT R3,#SUIKA 6470 ;;;; SUB R3 6471 ;;;; BNE BERO_CHECK_0048 ;スイカ？ ( no:BERO_CHECK_0048 ) 6472 ;;;; INC R1 6473 ;;;;; 6474 ;;;; IBT R3,#30 6475 ;;;; mLDW0 CENCHPT-1,R1 6476 ;;;; DEC R0 6477 ;;;; BMI BERO_CHECK_0043 ;噛りスイカ？ ( no:BERO_CHECK_0043 ) 6478 ;;;; NOP 6479 ;;;;; 6480 ;;;; IBT R3,#3 6481 ;;;;BERO_CHECK_0043 6482 ;;;; LMS R0,CSUIKA_NO ;スイカの種の数セット 6483 ;;;; ADD R3 6484 ;;;; SBK ;[ SMS R0,CSUIKA_NO ] 6485 ;;;;; 6486 ;;;; SMS R1,CEATFLG ;食べてるフラグリセット 6487 ;;;; SMS R1,CEATSTP ;口に入れてるフラグリセット 6488 ;;;; DEC R1 6489 ;;;; IBT R3,#CEEATM 6490 ;;;; mSTW R3,CENMODE,R1 6491 ;;;; mLDW0 CENMOD2,R1 6492 ;;;; BIC #00001100B ;[ AND #0FFF3H ] 6493 ;;;; SBK ;[ mSTW R0,CENMOD2,R1 ] 6494 ;;;; IBT R8,#0 6495 ;;;; SMS R8,CEATSPF ;スペシャルショットフラグリセット 6496 ;;;; IBT R3,#0 6497 ;;;; mDJMP BERO_CHECK_0550 6498 ;;;;; 6499 ;;;;BERO_CHECK_0045 6500 ;;;; mLDW0 CENMOD0,R1 6501 ;;;; IWT R5,#1100000000000000B 6502 ;;;; AND R5 6503 ;;;; IWT R5,#1000000000000000B 6504 ;;;; TO R5 6505 ;;;; SUB R5 6506 ;;;; BNE BERO_CHECK_0048 ;ヨコ当たりで蹴られる？ ( no:BERO_CHECK_0048 ) 6507 ;;;; NOP 6508 ;;;;; 6509 ;;;; mLDW0 CENMOD1,R1 6510 ;;;; MOVE R5,R0 6511 ;;;; IWT R1,#0110000000000000B 6512 ;;;; AND R1 6513 ;;;; SUB R1 ;(Z) set 6514 ;;;;; 6515 ;;;; BEQ BERO_CHECK_0550 ;アイテム？ ( yes:BERO_CHECK_0550 ) 6516 ;;;; NOP 6517 ;;;;; 6518 ;;;; MOVES R5,R5 6519 ;;;; BMI BERO_CHECK_0550 ;飲み込む？ ( yes:BERO_CHECK_0550 ) 6520 ;;;; NOP 6521 ;;;;; 6522 ;;;;BERO_CHECK_0048 6523 ;;;; mDJMP BERO_CHECK_3000 6524 ; 6525 ;------------------------------------------------------------------------ 6526 ;- 舌ショットセット - 6527 ;------------------------------------------------------------------------ 6528 BERO_CHECK_0500 6529 S001FDF 3D F0 0071 LM R0,CMKEYC1 ;(R0) <-- コントローラー情報（連続） 6530 S001FE3 12 TO R2 6531 S001FE4 3E 78 AND #00001000B 6532 S001FE6 09 03' BEQ BERO_CHECK_0550 ;上キー入力？ ( no:BERO_CHECK_0550 ) 6533 S001FE8 D2 INC R2 ;[ IBT R2,#01H ] 6534 ; 6535 S001FE9 A2 03 IBT R2,#03H 6536 BERO_CHECK_0550 6537 S001FEB 3E A2 A8 SMS R2,CBERFLG ;舌ショット”ＯＮ” 6538 ; 6539 S001FEE 60 SUB R0 ;[ IBT R0,#0 ] 6540 S001FEF 3E A0 B0 SMS R0,CBERO_BIRI ;ビリビリフラグキャンセル 6541 S001FF2 3E A0 61 SMS R0,CPLSITD ;しゃがみキャンセル 6542 S001FF5 3E A0 6D SMS R0,CPLKAID ;階段歩きキャンセル 6543 S001FF8 23 B3 MOVES R3,R3 6544 S001FFA 08 19' BNE BERO_CHECK_0600 ;口に入れてる？ ( yes:BERO_CHECK_0600 ) 6545 S001FFC 01 NOP 6546 ; 6547 S001FFD A0 3E IBT R0,#3EH ;[♪] 6548 S001FFF 3E A0 3D SMS R0,CMSOUND3 6549 ; 6550 ;-------------- 口に入れて無い時のショット初期チェック ------------------ 6551 S002002 B7 FROM R7 6552 S002003 3E 72 AND #AL 6553 S002005 08 05' BNE BERO_CHECK_0560 ;ＢＧ当たり？ ( yes:BERO_CHECK_0560 ) 6554 S002007 01 NOP 6555 ; 6556 mDJMP BERO_CHECK_1050 6556+ S002008 FF 20B3' IWT R15, #BERO_CHECK_1050 6556+ S00200B 01 NOP 6557 ; 6558 ;-------------- ＢＧ当たって口開けるだけセット ------------------ 6559 BERO_CHECK_0560 6560 S00200C A0 0A IBT R0,#02H+08H 6561 S00200E 3E A0 F0 SMS R0,CPSHOTM ;ショットデモタイマーセット 6562 mDJMP BERO_CHECK_2250 6562+ S002011 FF 21A9' IWT R15, #BERO_CHECK_2250 6562+ S002014 01 NOP 6563 ; 6564 ;-------------- 口に入れてる時のショット初期チェック -------------------- 6565 BERO_CHECK_0600 6566 S002015 E4 DEC R4 6567 S002016 0B 3B' BMI BERO_CHECK_0750 ;スペシャルショット？ ( no:BERO_CHECK_0750 ) 6568 S002018 D4 INC R4 6569 ; 6570 ;-------------- スペシャルショットセット ------------------------ 6571 S002019 3D A0 63 LMS R0,CPLSWIM 6572 S00201C E0 DEC R0 6573 S00201D 0B 08' BMI BERO_CHECK_0602 ;泳いでる？ ( no:BERO_CHECK_0602 ) 6574 S00201F 60 SUB R0 ;[ IBT R0,#0 ] 6575 ; 6576 S002020 3E A0 A8 SMS R0,CBERFLG ;舌ショット”ＯＦＦ” 6577 mDJMP BERO_CHECK_3000 6577+ S002023 FF 2251' IWT R15, #BERO_CHECK_3000 6577+ S002026 01 NOP 6578 ; 6579 BERO_CHECK_0602 vvv******* warn :value out of range 6580 S002027 F0 BE00 IWT R0,#CHR64+1F0H*20H ;ファイヤーショットキャラ転送フラグセット 6581 S00202A E4 DEC R4 6582 S00202B 09 0A' BEQ BERO_CHECK_0610 ;ファイヤーショット？ ( yes:BERO_CHECK_0610 ) 6583 S00202D D4 INC R4 6584 ; 6585 S00202E B4 FROM R4 6586 S00202F 3E 64 SUB #4 6587 S002031 08 13' BNE BERO_CHECK_0700 ;凍らせショット？ ( no:BERO_CHECK_0700 ) 6588 S002033 01 NOP 6589 ; vvv******* warn :value out of range 6590 S002034 F0 BA00 IWT R0,#CHR64+1D0H*20H ;凍らせショットキャラ転送フラグセット 6591 BERO_CHECK_0610 6592 S002037 3E A0 8A SMS R0,CPCHTRF 6593 S00203A 3D A0 AD LMS R0,CBRCNTX ;ファイヤーＸ座標セット 6594 S00203D 3E A0 B9 SMS R0,CFIRSHX 6595 S002040 3D A0 AE LMS R0,CBRCNTY ;ファイヤーＹ座標セット 6596 S002043 3E A0 BA SMS R0,CFIRSHY 6597 ; 6598 BERO_CHECK_0700 6599 S002046 B4 FROM R4 6600 S002047 3E 63 SUB #3 6601 ;;;; BEQ BERO_CHECK_0710 ;スイカショット？ ( yes:BERO_CHECK_0710 ) 6602 S002049 08 04' BNE BERO_CHECK_0710 ;スイカショット？ ( no:BERO_CHECK_0710 ) 6603 S00204B 60 SUB R0 ;[ IBT R0,#0 ] 6604 ; 6605 ;;;; IBT R2,#01H ;舌ショットフラグセット（横向き） 6606 ;;;; SMS R2,CBERFLG 6607 ;;;; mDJMP BERO_CHECK_3000 6608 ;;;;; 6609 ;;;;BERO_CHECK_0710 6610 S00204C 3E A0 B9 SMS R0,CSUIKA_PT ;スイカの種ショット方向カウンターリセット 6611 BERO_CHECK_0710 6612 mDJMP BERO_CHECK_3000 6612+ S00204F FF 2251' IWT R15, #BERO_CHECK_3000 6612+ S002052 01 NOP 6613 ; 6614 ;-------------- 普通のショット ---------------------------------- 6615 BERO_CHECK_0750 6616 S002053 B7 FROM R7 6617 S002054 3E 72 AND #AL 6618 S002056 09 05' BEQ BERO_CHECK_0752 ;ＢＧ当たり？ ( no:BERO_CHECK_0752 ) 6619 S002058 01 NOP 6620 ; 6621 mDJMP BERO_CHECK_0900 6621+ S002059 FF 20A1' IWT R15, #BERO_CHECK_0900 6621+ S00205C 01 NOP 6622 ; 6623 ;-------------- 口に入れてる時のショットセット ------------------ 6624 BERO_CHECK_0752 6625 S00205D A8 00 IBT R8,#0 ;(R8) <-- 食べるてるフラグリセット 6626 S00205F 3E A8 B1 SMS R8,CEATFLG 6627 ; 6628 S002062 FC 0180 IWT R12,#00180H ;上ショットＸスピード 6629 S002065 FD FC80 IWT R13,#0FC80H ; ” Ｙスピード 6630 S002068 E2 DEC R2 6631 S002069 08 0F' BNE BERO_CHECK_0800 ;上にショット？ ( yes:BERO_CHECK_0800 ) 6632 S00206B D2 INC R2 6633 ; 6634 S00206C FC 0280 IWT R12,#00280H ;前ショットＸスピード 6635 S00206F FD 0080 IWT R13,#00080H ; ” Ｙスピード 6636 S002072 3D A0 62 LMS R0,CPLCMKI 6637 S002075 E0 DEC R0 6638 S002076 0A 02' BPL BERO_CHECK_0800 6639 S002078 D0 INC R0 6640 ; 6641 S002079 D0 INC R0 ;[ IBT R0,#01H ] 6642 ; 6643 ;-------------- ノーマルショット ---------------------------------------- 6644 BERO_CHECK_0800 6645 S00207A 3D A0 62 LMS R0,CPLCMKI 6646 S00207D E0 DEC R0 6647 S00207E 0B 03' BMI BERO_CHECK_0810 6648 S002080 2C WITH R12 6649 ; 6650 S002081 4F NOT 6651 S002082 DC INC R12 6652 BERO_CHECK_0810 6653 S002083 3E AC 72 SMS R12,CPLNAGX ;ショットＸスピードセット 6654 S002086 3E AD 73 SMS R13,CPLNAGY ;ショットＹスピードセット 6655 ; 6656 BERO_CHECK_0840 6657 ;;;; IBT R2,#03H 6658 ;;;; SMS R2,CBERFLG ;上ショット”ＯＮ” 6659 ; 6660 BERO_CHECK_0850 6661 S002089 22 10 MOVE R0,R2 ;舌ショットフラグ x2 6662 S00208B E0 DEC R0 ; 6663 S00208C 50 ADD R0 ; 6664 S00208D 3D AE 62 LMS R14,CPLCMKI 6665 S002090 CE OR R14 6666 S002091 FE 0000" IWT R14,#EAT_OFST_POS 6667 S002094 1E TO R14 6668 S002095 5E ADD R14 6669 S002096 3F EF GETBS 6670 S002098 DE INC R14 6671 S002099 3E A0 B2 SMS R0,CEATOFX ;食べたもののオフセットＸ位置セット 6672 S00209C 3F EF GETBS 6673 S00209E 3E A0 B3 SMS R0,CEATOFY ;食べたもののオフセットＹ位置セット 6674 ; 6675 BERO_CHECK_0900 6676 S0020A1 F1 0056 IWT R1,#BE0D ;(R1) <-- ショットパターンＮｏ． 6677 S0020A4 3D A0 63 LMS R0,CPLSWIM 6678 S0020A7 E0 DEC R0 6679 S0020A8 0B 04' BMI BERO_CHECK_1000 ;泳いでる？ ( no:BERO_CHECK_1000 ) 6680 S0020AA 01 NOP 6681 6682 S0020AB F1 0064 IWT R1,#SB08 ;(R1) <-- ショットパターンＮｏ．（泳いでる時） 6683 BERO_CHECK_1000 6684 S0020AE 3E A1 5F SMS R1,CPLPATN ;パターンＮｏ．セット 6685 ; 6686 S0020B1 A0 0A IBT R0,#02H+08H ;(R0) <-- ショットデモタイマー 6687 BERO_CHECK_1050 6688 S0020B3 3E A0 F0 SMS R0,CPSHOTM ;ショットデモタイマーセット 6689 S0020B6 05 04' BRA BERO_CHECK_1550 6690 S0020B8 01 NOP 6691 ; 6692 ;-------------- 舌ショット処理 ------------------------------------------ 6693 BERO_CHECK_1500 6694 S0020B9 3D A0 F0 LMS R0,CPSHOTM 6695 BERO_CHECK_1550 6696 S0020BC 21 B0 MOVES R1,R0 ;(R1) <-- ショットデモタイマー 6697 S0020BE 08 45' BNE BERO_CHECK_1800 ;ショットデモ？ ( yes:BERO_CHECK_1800 ) 6698 S0020C0 01 NOP 6699 ; 6700 S0020C1 E8 DEC R8 6701 S0020C2 0B 1C' BMI BERO_CHECK_1650 ;食べてる？ ( no:BERO_CHECK_1650 ) 6702 S0020C4 D8 INC R8 6703 ; 6704 S0020C5 24 B4 MOVES R4,R4 6705 S0020C7 09 08' BEQ BERO_CHECK_1600 ;スペシャルショット？ ( no:BERO_CHECK_1600 ) 6706 S0020C9 01 NOP 6707 ; 6708 ;-------------- スペシャルショット ------------------------------ 6709 S0020CA 3D AB 31 LMS R11,RTS1 6710 mDJMP EAT_SP_SHOT 6710+ S0020CD FF 2256' IWT R15, #EAT_SP_SHOT 6710+ S0020D0 01 NOP 6711 ; 6712 ;-------------- 食べてるものショットできるかチェック ------------ 6713 BERO_CHECK_1600 6714 S0020D1 B7 FROM R7 6715 S0020D2 3E 72 AND #AL 6716 S0020D4 09 42' BEQ BERO_CHECK_2000 ;ＢＧ当たり？ ( no:BERO_CHECK_2000 ) 6717 S0020D6 01 NOP 6718 ; 6719 S0020D7 23 B3 MOVES R3,R3 6720 S0020D9 08 1C' BNE BERO_CHECK_1750 ;口に入れてる？ ( yes:BERO_CHECK_1750 ) 6721 S0020DB 01 NOP 6722 ; 6723 mDJMP BERO_CHECK_2000 6723+ S0020DC FF 2118' IWT R15, #BERO_CHECK_2000 6723+ S0020DF 01 NOP 6724 ; 6725 BERO_CHECK_1650 6726 S0020E0 B7 FROM R7 6727 S0020E1 3E 72 AND #AL 6728 S0020E3 09 33' BEQ BERO_CHECK_2000 ;ＢＧ当たり？ ( no:BERO_CHECK_2000 ) 6729 S0020E5 01 NOP 6730 ; 6731 S0020E6 B2 FROM R2 6732 S0020E7 03 LSR 6733 S0020E8 0C 2E' BCC BERO_CHECK_2000 ;舌戻り中？ ( yes:BERO_CHECK_2000 ) 6734 S0020EA 60 SUB R0 ;[ IBT R0,#0 ] 6735 ; 6736 S0020EB 3E A0 5A SMS R0,CPLMVSP ;Ｘスピードクリアー 6737 S0020EE D2 INC R2 6738 S0020EF 3E A2 A8 SMS R2,CBERFLG 6739 S0020F2 A0 01 IBT R0,#1 ;舌グニャフラグセット 6740 S0020F4 3E A0 AF SMS R0,CBERO_GUNYA 6741 BERO_CHECK_1750 6742 S0020F7 3D A0 A9 LMS R0,CBERXPS 6743 S0020FA 3D A1 AA LMS R1,CBERYPS 6744 S0020FD C1 OR R1 6745 S0020FE 08 18' BNE BERO_CHECK_2000 ;舌初期位置？ ( no:BERO_CHECK_2000 ) 6746 S002100 01 NOP 6747 ; 6748 mDJMP_X BERO_CHECK_2550 6748+ S002101 FF 222F' IWT R15, #BERO_CHECK_2550 6749 S002104 60 SUB R0 ;[ * 舌ショットフラグリセット ] 6750 ; 6751 ;-------------- ショットデモ ------------------------------------ 6752 BERO_CHECK_1800 6753 S002105 23 B3 MOVES R3,R3 6754 S002107 09 0B' BEQ BERO_CHECK_1850 ;口に入れてる？ ( no:BERO_CHECK_1850 ) 6755 S002109 01 NOP 6756 ; 6757 S00210A B1 FROM R1 6758 S00210B 3E 67 SUB #08H-1 6759 S00210D 08 05' BNE BERO_CHECK_1850 ;ショットパターンセット？ ( no:BERO_CHECK_1850 ) 6760 S00210F 01 NOP 6761 ; 6762 mDJMP BERO_CHECK_2250 6762+ S002110 FF 21A9' IWT R15, #BERO_CHECK_2250 6762+ S002113 01 NOP 6763 ; 6764 BERO_CHECK_1850 6765 mDJMP BERO_CHECK_3000 6765+ S002114 FF 2251' IWT R15, #BERO_CHECK_3000 6765+ S002117 01 NOP 6766 ; 6767 ;-------------- 舌伸縮セット ------------------------------------ 6768 BERO_CHECK_2000 6769 S002118 B2 FROM R2 6770 S002119 3E 67 SUB #07H 6771 S00211B 0C 05' BCC BERO_CHECK_2010 ;飲み込みデモ？ ( no:BERO_CHECK_2010 ) 6772 S00211D 01 NOP 6773 ; 6774 mDJMP_X BERO_CHECK_2400+1 6774+ S00211E FF 220C' IWT R15, #BERO_CHECK_2400+1 6775 S002121 B2 FROM R2 6776 ; 6777 BERO_CHECK_2010 6778 S002122 3D A0 AF LMS R0,CBERO_GUNYA 6779 S002125 9E LOB 6780 S002126 09 32' BEQ BERO_CHECK_2040 ;舌グニャ？ ( no:BERO_CHECK_2040 ) 6781 S002128 B2 FROM R2 6782 ; 6783 S002129 A1 FF" IBT R1,#BERO_P_END-1 6784 S00212B 61 SUB R1 6785 S00212C 0C 04' BCC BERO_CHECK_2020 ;舌グニャ終了？ ( no:BERO_CHECK_2020 ) 6786 S00212E 51 ADD R1 6787 ; 6788 S00212F 05 23' BRA BERO_CHECK_2030 6789 S002131 60 SUB R0 6790 ; 6791 BERO_CHECK_2020 6792 S002132 3D A1 B0 LMS R1,CBERO_BIRI 6793 S002135 21 WITH R1 6794 S002136 3E 63 SUB #2+1 6795 S002138 0D 12' BCS BERO_CHECK_2022 ;ビリビリ中？ ( yes:BERO_CHECK_2022 ) 6796 S00213A D0 INC R0 ;+1 6797 ; 6798 S00213B A1 00" IBT R1,#BERO_P_RETN 6799 S00213D 61 SUB R1 6800 S00213E 0D 14' BCS BERO_CHECK_2030 6801 S002140 51 ADD R1 6802 ; 6803 S002141 A1 00" IBT R1,#BERO_P_BIRI 6804 S002143 61 SUB R1 6805 S002144 0C 0E' BCC BERO_CHECK_2030 6806 S002146 51 ADD R1 6807 ; 6808 S002147 A0 00" IBT R0,#BERO_P_RETN 6809 S002149 05 09' BRA BERO_CHECK_2030 6810 S00214B 01 NOP 6811 ; 6812 BERO_CHECK_2022 6813 S00214C A1 00" IBT R1,#BERO_P_RETN 6814 S00214E 61 SUB R1 6815 S00214F 0C 03' BCC BERO_CHECK_2030 6816 S002151 51 ADD R1 6817 ; 6818 S002152 A0 00" IBT R0,#BERO_P_BIRI 6819 BERO_CHECK_2030 6820 S002154 3E A0 AF SMS R0,CBERO_GUNYA 6821 S002157 05 50' BRA BERO_CHECK_2250 6822 S002159 01 NOP 6823 ; 6824 BERO_CHECK_2040 6825 S00215A 52 ADD R2 ;x8 6826 S00215B 50 ADD R0 ; 6827 S00215C 3D A1 62 LMS R1,CPLCMKI ;(R1) <-- プレイヤー向き 6828 S00215F C1 OR R1 ; 6829 S002160 50 ADD R0 ; 6830 S002161 FE FFF8" IWT R14,#BERO_SHOT_DT-8 6831 S002164 1E TO R14 6832 S002165 5E ADD R14 6833 S002166 EF GETB 6834 S002167 95 SEX 6835 S002168 09 08' BEQ BERO_CHECK_2050 ;横ショット？ ( no:BERO_CHECK_2050 ) 6836 S00216A DE INC R14 6837 ; 6838 S00216B 3D A1 A9 LMS R1,CBERXPS 6839 S00216E 51 ADD R1 6840 S00216F 05 08' BRA BERO_CHECK_2100 6841 S002171 90 SBK ;[ SMS R0,CBERXPS ] 6842 ; 6843 BERO_CHECK_2050 6844 S002172 3F EF GETBS 6845 S002174 3D A1 AA LMS R1,CBERYPS 6846 S002177 51 ADD R1 6847 S002178 90 SBK ;[ SMS R0,CBERYPS ] 6848 ; 6849 BERO_CHECK_2100 6850 S002179 DE INC R14 6851 S00217A 11 TO R1 6852 S00217B 3F EF GETBS 6853 S00217D 61 SUB R1 6854 S00217E 09 71' BEQ BERO_CHECK_2350 ;ＭＡＸ？ ( yes:BERO_CHECK_2350 ) 6855 S002180 51 ADD R1 6856 ; 6857 S002181 DE INC R14 6858 S002182 11 TO R1 6859 S002183 3F EF GETBS 6860 S002185 61 SUB R1 6861 S002186 3D C1 XOR R1 6862 S002188 50 ADD R0 ;(C) <-- ＭＩＮチェックフラグ 6863 ; 6864 S002189 E8 DEC R8 6865 S00218A 0A 0E' BPL BERO_CHECK_2150 ;食べてる？ ( yes:BERO_CHECK_2150 ) 6866 S00218C D8 INC R8 6867 ; 6868 S00218D 0D 1A' BCS BERO_CHECK_2250 ;ＭＩＮ？ ( no:BERO_CHECK_2250 ) 6869 S00218F 01 NOP 6870 ; 6871 ;-------------- 舌戻りチェック -------------------------- 6872 S002190 3D A5 38 LMS R5,CMKEYC1L ;(R5) <-- コントローラー情報（連続） 6873 S002193 3D A0 44 LMS R0,CP_KEY_BERO ;(R0) <-- 舌ショットボタン情報 6874 S002196 75 AND R5 6875 S002197 08 10' BNE BERO_CHECK_2250 ;舌ショットキー離した？ ( no:BERO_CHECK_2250 ) 6876 S002199 01 NOP 6877 ; 6878 ;-------------- 舌戻りセット -------------------- 6879 BERO_CHECK_2150 6880 S00219A B2 FROM R2 6881 S00219B 03 LSR 6882 S00219C 0C 0B' BCC BERO_CHECK_2250 ;すでに戻ってる？ ( yes:BERO_CHECK_2250 ) 6883 S00219E 01 NOP 6884 ; 6885 BERO_CHECK_2160 6886 S00219F D2 INC R2 ;舌ショットフラグセット 6887 S0021A0 3E A2 A8 SMS R2,CBERFLG 6888 S0021A3 E2 DEC R2 6889 ; 6890 BERO_CHECK_2200 6891 S0021A4 A0 03 IBT R0,#03H ;待ちタイマーセット 6892 S0021A6 3E A0 F0 SMS R0,CPSHOTM 6893 ; 6894 ;-------------- 舌ショットパターンセット ------------------------ 6895 BERO_CHECK_2250 6896 S0021A9 22 10 MOVE R0,R2 6897 S0021AB E0 DEC R0 6898 S0021AC 1E TO R14 6899 S0021AD 3F 71 BIC #01H ;[ AND #0FFFEH ] 6900 ; 6901 S0021AF 3D A1 B0 LMS R1,CBERO_BIRI 6902 S0021B2 E1 DEC R1 6903 S0021B3 0B 26' BMI BERO_CHECK_2260 ;舌ビリビリ中？ ( no:BERO_CHECK_2260 ) 6904 S0021B5 B1 FROM R1 6905 ; 6906 S0021B6 3E 62 SUB #2 6907 S0021B8 0D 13' BCS BERO_CHECK_2254 6908 S0021BA 01 NOP 6909 ; 6910 S0021BB 3D A0 A9 LMS R0,CBERXPS 6911 S0021BE 3D A2 AA LMS R2,CBERYPS 6912 S0021C1 52 ADD R2 6913 S0021C2 0A 03' BPL BERO_CHECK_2252 6914 S0021C4 01 NOP 6915 ; 6916 S0021C5 4F NOT 6917 S0021C6 D0 INC R0 6918 BERO_CHECK_2252 6919 S0021C7 A2 20 IBT R2,#8*4 6920 S0021C9 62 SUB R2 6921 S0021CA 0D 04' BCS BERO_CHECK_2258 6922 S0021CC 01 NOP 6923 ; 6924 BERO_CHECK_2254 6925 S0021CD 3E A1 B0 SMS R1,CBERO_BIRI 6926 ; 6927 ;-------------- 舌ビリビリパターンセット ---------------- 6928 BERO_CHECK_2258 6929 S0021D0 B1 FROM R1 6930 S0021D1 3F 71 BIC #01H 6931 S0021D3 50 ADD R0 6932 S0021D4 CE OR R14 6933 S0021D5 FE 0000" IWT R14,#BERO_BIRI_PATN 6934 S0021D8 05 0F' BRA BERO_CHECK_2310+1 6935 S0021DA 1E TO R14 6936 6937 BERO_CHECK_2260 6938 S0021DB 3D A0 63 LMS R0,CPLSWIM 6939 S0021DE E0 DEC R0 6940 S0021DF 0B 02' BMI BERO_CHECK_2300 ;泳いでる？ ( no:BERO_CHECK_2300 ) 6941 S0021E1 01 NOP 6942 ; 6943 S0021E2 DE INC R14 6944 BERO_CHECK_2300 6945 S0021E3 BE FROM R14 6946 S0021E4 5E ADD R14 ;x2 6947 S0021E5 FE 0000" IWT R14,#BERO_PATN 6948 BERO_CHECK_2310 6949 S0021E8 1E TO R14 6950 S0021E9 5E ADD R14 6951 S0021EA EF GETB 6952 S0021EB DE INC R14 6953 S0021EC 3D EF GETBH 6954 S0021EE 05 5E' BRA BERO_CHECK_2800 6955 S0021F0 01 NOP 6956 ; 6957 ;-------------- 舌ＭＡＸチェック -------------------------------- 6958 BERO_CHECK_2350 6959 S0021F1 B2 FROM R2 6960 S0021F2 03 LSR 6961 S0021F3 0D AA' BCS BERO_CHECK_2160 ;舌ショット終了？ ( no:BERO_CHECK_2160 ) 6962 S0021F5 01 NOP 6963 ; 6964 S0021F6 E8 DEC R8 ;[-1] 6965 S0021F7 0B 36' BMI BERO_CHECK_2550 ;食べてる？ ( no:BERO_CHECK_2550 ) 6966 S0021F9 60 SUB R0 ;[ * 舌ショットフラグリセット ] 6967 ; 6968 mLDW0 CENMODE,R8 6968+ S0021FA F0 0F00 IWT R0,#CENMODE 6968+ S0021FD 58 ADD R8 6968+ S0021FE 40 LDW (R0) 6969 S0021FF A1 08 IBT R1,#CEEATM 6970 S002201 61 SUB R1 6971 S002202 08 27' BNE BERO_CHECK_2510 ;敵はずれた？ ( yes:BERO_CHECK_2510 ) 6972 S002204 60 SUB R0 ;[ * 舌ショットフラグリセット ] 6973 ; 6974 S002205 23 B3 MOVES R3,R3 6975 S002207 08 26' BNE BERO_CHECK_2550 ;口に入れてる？ ( yes:BERO_CHECK_2550 ) 6976 S002209 01 NOP 6977 ; 6978 S00220A D2 INC R2 ;[ ADD #07H-2-4 ] 6979 BERO_CHECK_2400 6980 S00220B B2 FROM R2 6981 S00220C 3E 54 ADD #4 6982 BERO_CHECK_2450 6983 S00220E 3E A0 A8 SMS R0,CBERFLG ;舌ショットフラグセット 6984 ; 6985 S002211 A1 0B" IBT R1,#EATEND+7+4 6986 S002213 61 SUB R1 6987 S002214 0C 0A' BCC BERO_CHECK_2460 ;タマゴ産み？ ( no:BERO_CHECK_2460 ) 6988 S002216 51 ADD R1 6989 ; 6990 S002217 A1 07" IBT R1,#EATEGGEND+7 6991 S002219 61 SUB R1 6992 S00221A 0C 19' BCC BERO_CHECK_2600 ;舌ショット終了？ ( no:BERO_CHECK_2600 ) 6993 S00221C 51 ADD R1 6994 ; 6995 S00221D 05 07' BRA BERO_CHECK_2470 6996 S00221F 01 NOP 6997 ; 6998 BERO_CHECK_2460 6999 S002220 A1 07" IBT R1,#EATEND+7 7000 S002222 61 SUB R1 7001 S002223 0C 10' BCC BERO_CHECK_2600 ;舌ショット終了？ ( no:BERO_CHECK_2600 ) 7002 S002225 51 ADD R1 7003 ; 7004 BERO_CHECK_2470 7005 S002226 A0 14 IBT R0,#014H ;[♪] 7006 S002228 3E A0 3D SMS R0,CMSOUND3 7007 ; 7008 BERO_CHECK_2510 7009 S00222B 60 SUB R0 7010 S00222C 3E A0 B1 SMS R0,CEATFLG ;食べるてるフラグリセット 7011 ; 7012 BERO_CHECK_2550 7013 S00222F 3E A0 A8 SMS R0,CBERFLG ;舌ショットフラグリセット 7014 S002232 05 1D' BRA BERO_CHECK_3000 7015 S002234 01 NOP 7016 ; 7017 ;-------------- 飲み込みパターンセット -------------------------- 7018 BERO_CHECK_2600 7019 S002235 3D A1 63 LMS R1,CPLSWIM 7020 S002238 E1 DEC R1 7021 S002239 0B 02' BMI BERO_CHECK_2650 ;泳いでる？ ( no:BERO_CHECK_2650 ) 7022 S00223B 01 NOP 7023 ; 7024 S00223C D0 INC R0 7025 BERO_CHECK_2650 7026 S00223D 11 TO R1 ;x3 7027 S00223E 50 ADD R0 ; 7028 S00223F 51 ADD R1 ; 7029 S002240 FE FFEB" IWT R14,#EAT_END_PT-(7*3) 7030 S002243 1E TO R14 7031 S002244 5E ADD R14 7032 S002245 EF GETB 7033 S002246 DE INC R14 7034 S002247 3E A0 F0 SMS R0,CPSHOTM ;タイマーセット 7035 S00224A EF GETB 7036 S00224B DE INC R14 7037 S00224C 3D EF GETBH 7038 ; 7039 BERO_CHECK_2800 7040 S00224E 3E A0 5F SMS R0,CPLPATN ;パターンＮｏ．セット 7041 ; 7042 BERO_CHECK_3000 7043 S002251 3D AB 31 LMS R11,RTS1 7044 mRTS 7044+ S002254 9B JMP R11 7044+ S002255 01 NOP 7045 ; 7046 ;------------------------------------------------------------------------ 7047 ;- スペシャルショットセット - 7048 ;- in : - 7049 ;- (R7) <-- BG unit no. type - 7050 ;- (R2) <-- 舌ショットフラグ - 7051 ;- (R3) <-- 口に入れてるフラグ - 7052 ;- (R4) <-- スペシャルショットフラグ - 7053 ;- (R8) <-- 食べるてるフラグ - 7054 ;------------------------------------------------------------------------ 7055 EAT_SP_SHOT 7056 S002256 B4 FROM R4 ;(R5) <-- JSRSUB address table pointer add data 7057 S002257 54 ADD R4 ; 7058 S002258 15 TO R5 ; 7059 S002259 54 ADD R4 ; 7060 S00225A D5 INC R5 ; 7061 ; 7062 S00225B 3D A0 B6 LMS R0,CEATSPC ;スペシャルショットカウンター加算 7063 S00225E D0 INC R0 7064 S00225F 90 SBK ;[ SMS R0,CEATSPC ] 7065 ; 7066 S002260 2F WITH R15 ;[ JSRSUB ] 7067 S002261 55 ADD R5 ; 7068 S002262 FF HEX FF ; 7069 S002263 00 00 00 HEX 0,0,0 ;[0] dummy 7070 S002266 2272' WORD FIRE_SHOT ;[1] 7071 S002268 01 NOP 7072 S002269 2321' WORD BABLE_SHOT ;[2] 7073 S00226B 01 NOP 7074 S00226C 23C0' WORD SUIKA_SHOT ;[3] 7075 S00226E 01 NOP 7076 S00226F 246F' WORD COLD_SHOT ;[4] 7077 S002271 01 NOP 7078 ; 7079 ;---------------------------------------------------------------- 7080 ;- ファイヤーショット - 7081 ;- in : - 7082 ;- (R0) <-- EATSPC - 7083 ;---------------------------------------------------------------- 7084 FIRE_SHOT 7085 S002272 A1 2A IBT R1,#(07H*2)+(07H*4) 7086 S002274 61 SUB R1 7087 S002275 0C 21' BCC FIRE_SHOT_0050 ;ファイヤーショット終了？ ( no:FIRE_SHOT_0050 ) 7088 S002277 51 ADD R1 7089 ; 7090 ;-------------- ファイヤーショット終了セット -------------------- vvv******* warn :value out of range 7091 S002278 F0 BC00 IWT R0,#CHR64+1E0H*20H ;プレイヤースペシャルキャラ転送フラグセット 7092 S00227B 3E A0 8A SMS R0,CPCHTRF 7093 ; 7094 EAT_CANCEL 7095 ;;;; LMS R0,CEATSPT 7096 S00227E 3D A0 B8 LMS R0,CSUIKA_NO 7097 S002281 3E 6A SUB #10 7098 ;;;; SBK ;[ SMS R0,CEATSPT ] 7099 S002283 90 SBK ;[ SMS R0,CSUIKA_NO ] 7100 S002284 08 0A' BNE EAT_CANCEL_010 ;スペシャルショット終了？ ( no:EAT_CANCEL_010 ) 7101 S002286 60 SUB R0 ;[ IBT R0,#0 ] 7102 ; 7103 EAT_CANCEL_2 7104 S002287 3E A0 B5 SMS R0,CEATSPF ;スペシャルショットフラグリセット 7105 S00228A 3E A0 B1 SMS R0,CEATFLG ;食べてるフラグリセット 7106 S00228D 3E A0 B4 SMS R0,CEATSTP ;口に入れてるフラグリセット 7107 EAT_CANCEL_3 7108 EAT_CANCEL_010 7109 S002290 3E A0 A8 SMS R0,CBERFLG ;舌ショットフラグリセット 7110 S002293 3E A0 B6 SMS R0,CEATSPC ;スペシャルショットカウンターリセット 7111 EAT_CANCEL_020 7112 mRTS 7112+ S002296 9B JMP R11 7112+ S002297 01 NOP 7113 ; 7114 FIRE_SHOT_0050 7115 S002298 A1 0E IBT R1,#(07H*2) 7116 S00229A 61 SUB R1 7117 S00229B 0D F9' BCS EAT_CANCEL_020 ;敵ファイヤーセット？ ( no:EAT_CANCEL_020 ) 7118 S00229D 51 ADD R1 7119 ; 7120 S00229E 20 1E MOVE R14,R0 7121 S0022A0 3E 71 AND #01H 7122 S0022A2 08 7B' BNE FIRE_SHOT_0150 ;敵ファイヤーセットタイミング？ ( no:FIRE_SHOT_0150 ) 7123 S0022A4 01 NOP 7124 ; 7125 ;-------------- 敵ファイヤーセット ------------------------------ 7126 S0022A5 3E AB 30 SMS R11,RTS0 ;[ return address save ] 7127 ; 7128 S0022A8 F5 0000" IWT R5,#FIREX ;(R5) <-- 敵Ｎｏ． 7129 mJSR M_ENINSR ;敵エリア確保 7129+ S0022AB 94 LINK #4 7129+ S0022AC FF 28C7' IWT R15, #M_ENINSR 7129+ S0022AF 01 NOP 7130 ; 7131 S0022B0 0B 6A' BMI FIRE_SHOT_0100 ;敵エリア無し？ ( yes:FIRE_SHOT_0100 ) 7132 S0022B2 01 NOP 7133 ; 7134 S0022B3 A0 04 IBT R0,#04H ;[♪] 7135 S0022B5 3E A0 3D SMS R0,CMSOUND3 7136 ; 7137 S0022B8 2E WITH R14 7138 S0022B9 3F 71 BIC #01H 7139 S0022BB 3D A5 62 LMS R5,CPLCMKI ;(R5) <-- プレイヤー向き 7140 S0022BE A0 00" IBT R0,#FIRE_ST_M 7141 S0022C0 1C TO R12 ;(R12) <-- プレイヤー向き×（２＋（４×６）） 7142 S0022C1 85 MULT R5 7143 S0022C2 A0 00" IBT R0,#FIRE_ST_P 7144 S0022C4 3D AB A8 LMS R11,CBERFLG 7145 S0022C7 EB DEC R11 7146 S0022C8 08 09' BNE FIRE_SHOT_0060 ;プレイヤー上向いてる？ ( yes:FIRE_SHOT_0060 ) 7147 S0022CA 01 NOP 7148 ; 7149 S0022CB 3D AB 60 LMS R11,CPLJUMP 7150 S0022CE EB DEC R11 7151 S0022CF 0A 02' BPL FIRE_SHOT_0060 ;プレイヤージャンプ中？ ( yes:FIRE_SHOT_0060 ) 7152 S0022D1 03 LSR ;[ IBT R0,#SUIKA_ST_P/2 ] 7153 ; 7154 S0022D2 60 SUB R0 ;[ IBT R0,#0 ] 7155 FIRE_SHOT_0060 7156 S0022D3 5E ADD R14 7157 S0022D4 5C ADD R12 7158 S0022D5 FE FFFE" IWT R14,#FIRE_SET_XY-2 7159 S0022D8 1E TO R14 7160 S0022D9 5E ADD R14 7161 S0022DA 3F EF GETBS 7162 S0022DC DE INC R14 7163 S0022DD 3D A8 B9 LMS R8,CFIRSHX 7164 S0022E0 18 TO R8 7165 S0022E1 58 ADD R8 7166 mSTW R8,CENXPSL,R1 ;Ｘ座標セット 7166+ S0022E2 F0 10E2 IWT R0,#CENXPSL 7166+ S0022E5 51 ADD R1 7166+ S0022E6 B8 FROM R8 7166+ S0022E7 30 STW (R0) 7167 S0022E8 3F EF GETBS 7168 S0022EA DE INC R14 7169 S0022EB 3D A7 BA LMS R7,CFIRSHY 7170 S0022EE 17 TO R7 7171 S0022EF 57 ADD R7 7172 mSTW R7,CENYPSL,R1 ;Ｙ座標セット 7172+ S0022F0 F0 1182 IWT R0,#CENYPSL 7172+ S0022F3 51 ADD R1 7172+ S0022F4 B7 FROM R7 7172+ S0022F5 30 STW (R0) 7173 S0022F6 25 WITH R5 7174 S0022F7 3F C2 XOR #02H 7175 mSTW R5,CENMUKI,R1 ;向きセット 7175+ S0022F9 F0 1400 IWT R0,#CENMUKI 7175+ S0022FC 51 ADD R1 7175+ S0022FD B5 FROM R5 7175+ S0022FE 30 STW (R0) 7176 S0022FF A5 10 IBT R5,#04H*4 7177 mSTW R5,CENTIM0,R1 ;タイマーセット 7177+ S002301 F0 1A96 IWT R0,#CENTIM0 7177+ S002304 51 ADD R1 7177+ S002305 B5 FROM R5 7177+ S002306 30 STW (R0) 7178 ; 7179 S002307 28 WITH R8 7180 S002308 3E 58 ADD #8 7181 S00230A B7 FROM R7 7182 S00230B 3E 58 ADD #8 7183 mJSR_X BGUNIT_READ_S+1 ;ＢＧユニットＮｏ．読み込み 7183+ S00230D 94 LINK #4 7183+ S00230E FF 0CD7' IWT R15, #BGUNIT_READ_S+1 7184 S002311 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 7185 ; 7186 ; (R0) <-- BG unit no. type return !! 7187 ; 7188 S002312 3E 72 AND #AL 7189 S002314 09 06' BEQ FIRE_SHOT_0100 ;ＢＧ当たり？ ( no:FIRE_SHOT_0100 ) 7190 S002316 01 NOP 7191 ; 7192 S002317 A0 0E IBT R0,#(07H*2) ;スペシャルショットカウンターセット 7193 S002319 3E A0 B6 SMS R0,CEATSPC 7194 ; 7195 FIRE_SHOT_0100 7196 S00231C 3D AB 30 LMS R11,RTS0 7197 ; 7198 FIRE_SHOT_0150 7199 mRTS 7199+ S00231F 9B JMP R11 7199+ S002320 01 NOP 7200 ; 7201 ;---------------------------------------------------------------- 7202 ;- しゃぼん玉ショット - 7203 ;- in : - 7204 ;- (R0) <-- EATSPC - 7205 ;---------------------------------------------------------------- 7206 BABLE_SHOT 7207 S002321 A1 18 IBT R1,#24 7208 S002323 61 SUB R1 7209 S002324 0C 05' BCC BABLE_SHOT_0010 ;しゃぼん玉ショット終了？ ( no:BABLE_SHOT_0010 ) 7210 S002326 51 ADD R1 7211 ; 7212 mDJMP EAT_CANCEL 7212+ S002327 FF 227E' IWT R15, #EAT_CANCEL 7212+ S00232A 01 NOP 7213 ; 7214 ;-------------- しゃぼん玉セットタイミングチェック -------------- 7215 BABLE_SHOT_0010 7216 S00232B FE 0000" IWT R14,#SOAP_SET_TMG 7217 S00232E AC 00" IBT R12,#SOAP_SET_TMG_NO 7218 S002330 2F 1D MOVE R13,R15 7219 BABLE_SHOT_0050 7220 S002332 11 TO R1 7221 S002333 EF GETB 7222 S002334 61 SUB R1 7223 S002335 09 05' BEQ BABLE_SHOT_0100 ;しゃぼん玉セットタイミング？ ( yes:BABLE_SHOT_0100 ) 7224 S002337 51 ADD R1 7225 ; 7226 S002338 3C LOOP 7227 S002339 DE INC R14 7228 ; 7229 mRTS 7229+ S00233A 9B JMP R11 7229+ S00233B 01 NOP 7230 ; 7231 ;-------------- 敵しゃぼん玉セット ------------------------------ 7232 BABLE_SHOT_0100 7233 S00233C 3E AB 30 SMS R11,RTS0 ;[ return address save ] 7234 S00233F 2C 1E MOVE R14,R12 ;(R12) save 7235 ; 7236 S002341 F5 0000" IWT R5,#SOPB0 ;(R5) <-- 敵Ｎｏ． 7237 mJSR M_ENINSR ;敵エリア確保 7237+ S002344 94 LINK #4 7237+ S002345 FF 28C7' IWT R15, #M_ENINSR 7237+ S002348 01 NOP 7238 ; 7239 S002349 3D AB 30 LMS R11,RTS0 ;[ return address load ] 7240 S00234C 2E 1C MOVE R12,R14 ;(R12) load 7241 ; 7242 S00234E 0B 6E' BMI BABLE_SHOT_0150 ;敵エリア無し？ ( yes:BABLE_SHOT_0150 ) 7243 S002350 01 NOP 7244 ; 7245 S002351 A0 04 IBT R0,#04H ;[♪] 7246 S002353 3E A0 3D SMS R0,CMSOUND3 7247 ; 7248 S002356 3D A0 62 LMS R0,CPLCMKI 7249 S002359 AE 00" IBT R14,#SOAP_ST_M 7250 S00235B 1E TO R14 ;(R14) <-- プレイヤー向き×（２＋（４×６）） 7251 S00235C 8E MULT R14 7252 S00235D A0 00" IBT R0,#SOAP_ST_P 7253 S00235F 3D A5 A8 LMS R5,CBERFLG 7254 S002362 E5 DEC R5 7255 S002363 08 0A' BNE BABLE_SHOT_0110 ;プレイヤー上向いてる？ ( yes:BABLE_SHOT_0110 ) 7256 S002365 01 NOP 7257 ; 7258 S002366 3D A5 60 LMS R5,CPLJUMP 7259 S002369 25 B5 MOVES R5,R5 7260 S00236B 08 02' BNE BABLE_SHOT_0110 ;プレイヤージャンプ中？ ( yes:BABLE_SHOT_0110 ) 7261 S00236D 03 LSR ;[ IBT R0,#SUIKA_ST_P/2 ] 7262 ; 7263 S00236E 60 SUB R0 ;[ IBT R0,#0 ] 7264 BABLE_SHOT_0110 7265 S00236F 5E ADD R14 7266 S002370 FE 0000" IWT R14,#SOAP_SET_XY 7267 S002373 1E TO R14 7268 S002374 5E ADD R14 7269 S002375 3F EF GETBS 7270 S002377 DE INC R14 7271 S002378 3D A5 AD LMS R5,CBRCNTX 7272 S00237B 15 TO R5 7273 S00237C 55 ADD R5 7274 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 7274+ S00237D F0 10E2 IWT R0,#CENXPSL 7274+ S002380 51 ADD R1 7274+ S002381 B5 FROM R5 7274+ S002382 30 STW (R0) 7275 S002383 3F EF GETBS 7276 S002385 DE INC R14 7277 S002386 3D A5 AE LMS R5,CBRCNTY 7278 S002389 15 TO R5 7279 S00238A 55 ADD R5 7280 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 7280+ S00238B F0 1182 IWT R0,#CENYPSL 7280+ S00238E 51 ADD R1 7280+ S00238F B5 FROM R5 7280+ S002390 30 STW (R0) 7281 ; 7282 S002391 EC DEC R12 ;-1 7283 S002392 BC FROM R12 ;x4 7284 S002393 5C ADD R12 ; 7285 S002394 50 ADD R0 ; 7286 S002395 1E TO R14 7287 S002396 5E ADD R14 7288 S002397 EF GETB 7289 S002398 DE INC R14 7290 S002399 15 TO R5 7291 S00239A 3D EF GETBH 7292 S00239C DE INC R14 7293 mSTW R5,CENXSPD,R1 ;Ｘスピードセット 7293+ S00239D F0 1220 IWT R0,#CENXSPD 7293+ S0023A0 51 ADD R1 7293+ S0023A1 B5 FROM R5 7293+ S0023A2 30 STW (R0) 7294 S0023A3 EF GETB 7295 S0023A4 DE INC R14 7296 S0023A5 15 TO R5 7297 S0023A6 3D EF GETBH 7298 mSTW R5,CENYSPD,R1 ;Ｙスピードセット 7298+ S0023A8 F0 1222 IWT R0,#CENYSPD 7298+ S0023AB 51 ADD R1 7298+ S0023AC B5 FROM R5 7298+ S0023AD 30 STW (R0) 7299 ; 7300 S0023AE A5 04 IBT R5,#04 7301 mSTW R5,CENCHPT,R1 ;初期パターンＮｏ．セット 7301+ S0023B0 F0 1402 IWT R0,#CENCHPT 7301+ S0023B3 51 ADD R1 7301+ S0023B4 B5 FROM R5 7301+ S0023B5 30 STW (R0) 7302 S0023B6 A5 0A IBT R5,#10 7303 mSTW R5,CENTIM1,R1 ;初期タイマーセット 7303+ S0023B8 F0 1A98 IWT R0,#CENTIM1 7303+ S0023BB 51 ADD R1 7303+ S0023BC B5 FROM R5 7303+ S0023BD 30 STW (R0) 7304 ; 7305 BABLE_SHOT_0150 7306 mRTS 7306+ S0023BE 9B JMP R11 7306+ S0023BF 01 NOP 7307 ; 7308 ;---------------------------------------------------------------- 7309 ;- スイカショット - 7310 ;- in : - 7311 ;- (R0) <-- EATSPC - 7312 ;---------------------------------------------------------------- 7313 SUIKA_SHOT 7314 ;;;; SUB #6 7315 S0023C0 3E 68 SUB #8 7316 S0023C2 0C FA' BCC BABLE_SHOT_0150 ;スイカショットセット？ ( no:BABLE_SHOT_0150 ) 7317 S0023C4 60 SUB R0 ;[ IBT R0,#0 ] 7318 ; 7319 ;-------------- 敵スイカ種セット -------------------------------- 7320 S0023C5 3E A0 B6 SMS R0,CEATSPC ;スイカショットウェイトセット 7321 ; 7322 S0023C8 3E AB 30 SMS R11,RTS0 ;[ return address save ] 7323 ; 7324 S0023CB F5 0000" IWT R5,#SUIKT ;(R5) <-- 敵Ｎｏ． 7325 mJSR M_ENINSR ;敵エリア確保 7325+ S0023CE 94 LINK #4 7325+ S0023CF FF 28C7' IWT R15, #M_ENINSR 7325+ S0023D2 01 NOP 7326 ; 7327 S0023D3 3D AB 30 LMS R11,RTS0 ;[ return address load ] 7328 ; 7329 S0023D6 0A 05' BPL SUIKA_SHOT_0050 ;敵エリア無し？ ( no:SUIKA_SHOT_0050 ) 7330 S0023D8 01 NOP 7331 ; 7332 mDJMP SUIKA_SHOT_0150 7332+ S0023D9 FF 245F' IWT R15, #SUIKA_SHOT_0150 7332+ S0023DC 01 NOP 7333 ; 7334 SUIKA_SHOT_0050 7335 S0023DD A0 45 IBT R0,#045H ;[♪] 7336 S0023DF 3E A0 3D SMS R0,CMSOUND3 7337 ; 7338 S0023E2 3D A0 62 LMS R0,CPLCMKI 7339 S0023E5 AE 00" IBT R14,#SUIKA_ST_M 7340 S0023E7 1E TO R14 ;(R14) <-- プレイヤー向き×（２＋（４×６）） 7341 S0023E8 8E MULT R14 7342 S0023E9 A0 00" IBT R0,#SUIKA_ST_P 7343 S0023EB 3D A5 A8 LMS R5,CBERFLG 7344 S0023EE E5 DEC R5 7345 S0023EF 08 0A' BNE SUIKA_SHOT_0110 ;プレイヤー上向いてる？ ( yes:SUIKA_SHOT_0110 ) 7346 S0023F1 01 NOP 7347 ; 7348 S0023F2 3D A5 60 LMS R5,CPLJUMP 7349 S0023F5 25 B5 MOVES R5,R5 7350 S0023F7 08 02' BNE SUIKA_SHOT_0110 ;プレイヤージャンプ中？ ( yes:SUIKA_SHOT_0110 ) 7351 S0023F9 03 LSR ;[ IBT R0,#SUIKA_ST_P/2 ] 7352 ; 7353 S0023FA 60 SUB R0 ;[ IBT R0,#0 ] 7354 SUIKA_SHOT_0110 7355 S0023FB 5E ADD R14 7356 S0023FC FE 0000" IWT R14,#SUIKA_SET_XY 7357 S0023FF 1E TO R14 7358 S002400 5E ADD R14 7359 S002401 3F EF GETBS 7360 S002403 DE INC R14 7361 S002404 3D A5 AD LMS R5,CBRCNTX 7362 S002407 15 TO R5 7363 S002408 55 ADD R5 7364 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 7364+ S002409 F0 10E2 IWT R0,#CENXPSL 7364+ S00240C 51 ADD R1 7364+ S00240D B5 FROM R5 7364+ S00240E 30 STW (R0) 7365 S00240F 3F EF GETBS 7366 S002411 DE INC R14 7367 S002412 3D A5 AE LMS R5,CBRCNTY 7368 S002415 15 TO R5 7369 S002416 55 ADD R5 7370 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 7370+ S002417 F0 1182 IWT R0,#CENYPSL 7370+ S00241A 51 ADD R1 7370+ S00241B B5 FROM R5 7370+ S00241C 30 STW (R0) 7371 ; 7372 S00241D 3D A0 B9 LMS R0,CSUIKA_PT 7373 S002420 15 TO R5 ;[ * not break (R0) ] 7374 S002421 3E 66 SUB #7-1 7375 S002423 0C 02' BCC SUIKA_SHOT_0120 7376 S002425 D0 INC R0 7377 ; 7378 S002426 60 SUB R0 7379 SUIKA_SHOT_0120 7380 S002427 90 SBK ;[ SMS R0,CSUIKA_PT ] 7381 S002428 50 ADD R0 7382 S002429 50 ADD R0 7383 S00242A 1E TO R14 7384 S00242B 5E ADD R14 7385 S00242C EF GETB 7386 S00242D DE INC R14 7387 S00242E 15 TO R5 7388 S00242F 3D EF GETBH 7389 S002431 DE INC R14 7390 mSTW R5,CENXSPD,R1 ;Ｘスピードセット 7390+ S002432 F0 1220 IWT R0,#CENXSPD 7390+ S002435 51 ADD R1 7390+ S002436 B5 FROM R5 7390+ S002437 30 STW (R0) 7391 S002438 EF GETB 7392 S002439 DE INC R14 7393 S00243A 15 TO R5 7394 S00243B 3D EF GETBH 7395 mSTW R5,CENYSPD,R1 ;Ｙスピードセット 7395+ S00243D F0 1222 IWT R0,#CENYSPD 7395+ S002440 51 ADD R1 7395+ S002441 B5 FROM R5 7395+ S002442 30 STW (R0) 7396 S002443 A5 01 IBT R5,#1 7397 mSTW R5,CENSHOT,R1 ;ショットフラグ”ＯＮ” 7397+ S002445 F0 1D38 IWT R0,#CENSHOT 7397+ S002448 51 ADD R1 7397+ S002449 B5 FROM R5 7397+ S00244A 30 STW (R0) 7398 S00244B A5 FF IBT R5,#0FFH 7399 mSTB R5,CENWTSP,R1 ;水中スピードリセット 7399+ S00244D F0 1863 IWT R0,#CENWTSP 7399+ S002450 51 ADD R1 7399+ S002451 B5 FROM R5 7399+ S002452 3D 30 STB (R0) 7400 ; 7401 ;-------------- 種切れチェック ---------------------------------- 7402 S002454 3D A0 B8 LMS R0,CSUIKA_NO 7403 S002457 E0 DEC R0 7404 S002458 08 05' BNE SUIKA_SHOT_0150 ;種切れ？ ( no:SUIKA_SHOT_0150 ) 7405 S00245A 90 SBK ;[ SMS R0,CSUIKA_NO ] 7406 ; 7407 mDJMP_X EAT_CANCEL_2 7407+ S00245B FF 2287' IWT R15, #EAT_CANCEL_2 7408 S00245E 60 SUB R0 7409 ; 7410 SUIKA_SHOT_0150 7411 S00245F 3D A0 44 LMS R0,CP_KEY_BERO ;(R0) <-- 舌ショットボタン情報 7412 S002462 3D A1 38 LMS R1,CMKEYC1L 7413 S002465 71 AND R1 7414 S002466 08 05' BNE SUIKA_SHOT_0100 ;連射スイカ種セット？ ( yes:SUIKA_SHOT_0100 ) 7415 S002468 01 NOP 7416 ; 7417 mDJMP_X EAT_CANCEL_3 7417+ S002469 FF 2290' IWT R15, #EAT_CANCEL_3 7418 S00246C 60 SUB R0 7419 ; 7420 SUIKA_SHOT_0100 7421 mRTS 7421+ S00246D 9B JMP R11 7421+ S00246E 01 NOP 7422 ; 7423 ;---------------------------------------------------------------- 7424 ;- 凍らせショット - 7425 ;- in : - 7426 ;- (R0) <-- EATSPC - 7427 ;---------------------------------------------------------------- 7428 COLD_SHOT 7429 S00246F A1 38 IBT R1,#(07H*4)+(07H*4) 7430 S002471 61 SUB R1 7431 S002472 0C 0B' BCC COLD_SHOT_0050 ;凍らせショット終了？ ( no:COLD_SHOT_0050 ) 7432 S002474 51 ADD R1 7433 ; 7434 ;-------------- 凍らせショット終了セット ------------------------ vvv******* warn :value out of range 7435 S002475 F0 BC00 IWT R0,#CHR64+1E0H*20H ;プレイヤースペシャルキャラ転送フラグセット 7436 S002478 3E A0 8A SMS R0,CPCHTRF 7437 mDJMP EAT_CANCEL 7437+ S00247B FF 227E' IWT R15, #EAT_CANCEL 7437+ S00247E 01 NOP 7438 ; 7439 COLD_SHOT_0050 7440 S00247F A1 1C IBT R1,#(07H*4) 7441 S002481 61 SUB R1 7442 S002482 0D E9' BCS SUIKA_SHOT_0100 ;凍らせ敵セット？ ( no:SUIKA_SHOT_0100 ) 7443 S002484 51 ADD R1 7444 ; 7445 S002485 20 1E MOVE R14,R0 7446 S002487 3E 73 AND #03H 7447 S002489 08 E2' BNE SUIKA_SHOT_0100 ;凍らせ敵セットタイミング？ ( no:SUIKA_SHOT_0100 ) 7448 S00248B 01 NOP 7449 ; 7450 ;-------------- 凍らせ敵セット ---------------------------------- 7451 S00248C 3E AB 30 SMS R11,RTS0 ;[ return address save ] 7452 ; 7453 S00248F F5 0000" IWT R5,#COLDX ;(R5) <-- 敵Ｎｏ． 7454 mJSR M_ENINSR ;敵エリア確保 7454+ S002492 94 LINK #4 7454+ S002493 FF 28C7' IWT R15, #M_ENINSR 7454+ S002496 01 NOP 7455 ; 7456 S002497 0B 74' BMI COLD_SHOT_0100 ;敵エリア無し？ ( yes:COLD_SHOT_0100 ) 7457 S002499 01 NOP 7458 ; 7459 S00249A A0 04 IBT R0,#04H ;[♪] 7460 S00249C 3E A0 3D SMS R0,CMSOUND3 7461 ; 7462 S00249F BE FROM R14 7463 S0024A0 3F 73 BIC #03H 7464 S0024A2 1E TO R14 7465 S0024A3 03 LSR 7466 S0024A4 3D A5 62 LMS R5,CPLCMKI ;(R5) <-- プレイヤー向き 7467 S0024A7 A0 00" IBT R0,#FIRE_ST_M 7468 S0024A9 1C TO R12 ;(R12) <-- プレイヤー向き×（２＋（４×６）） 7469 S0024AA 85 MULT R5 7470 S0024AB A0 00" IBT R0,#FIRE_ST_P 7471 S0024AD 3D AB A8 LMS R11,CBERFLG 7472 S0024B0 EB DEC R11 7473 S0024B1 08 09' BNE COLD_SHOT_0060 ;プレイヤー上向いてる？ ( yes:COLD_SHOT_0060 ) 7474 S0024B3 01 NOP 7475 ; 7476 S0024B4 3D AB 60 LMS R11,CPLJUMP 7477 S0024B7 EB DEC R11 7478 S0024B8 0A 02' BPL COLD_SHOT_0060 ;プレイヤージャンプ中？ ( yes:COLD_SHOT_0060 ) 7479 S0024BA 03 LSR ;[ IBT R0,#SUIKA_ST_P/2 ] 7480 ; 7481 S0024BB 60 SUB R0 ;[ IBT R0,#0 ] 7482 COLD_SHOT_0060 7483 S0024BC 5E ADD R14 7484 S0024BD 5C ADD R12 7485 S0024BE FE FFFE" IWT R14,#FIRE_SET_XY-2 7486 S0024C1 1E TO R14 7487 S0024C2 5E ADD R14 7488 S0024C3 3F EF GETBS 7489 S0024C5 DE INC R14 7490 S0024C6 3D A8 B9 LMS R8,CFIRSHX 7491 S0024C9 18 TO R8 7492 S0024CA 58 ADD R8 7493 mSTW R8,CENXPSL,R1 ;Ｘ座標セット 7493+ S0024CB F0 10E2 IWT R0,#CENXPSL 7493+ S0024CE 51 ADD R1 7493+ S0024CF B8 FROM R8 7493+ S0024D0 30 STW (R0) 7494 S0024D1 3F EF GETBS 7495 S0024D3 DE INC R14 7496 S0024D4 3D A7 BA LMS R7,CFIRSHY 7497 S0024D7 17 TO R7 7498 S0024D8 57 ADD R7 7499 mSTW R7,CENYPSL,R1 ;Ｙ座標セット 7499+ S0024D9 F0 1182 IWT R0,#CENYPSL 7499+ S0024DC 51 ADD R1 7499+ S0024DD B7 FROM R7 7499+ S0024DE 30 STW (R0) 7500 S0024DF 25 WITH R5 7501 S0024E0 3F C2 XOR #02H 7502 mSTW R5,CENMUKI,R1 ;向きセット 7502+ S0024E2 F0 1400 IWT R0,#CENMUKI 7502+ S0024E5 51 ADD R1 7502+ S0024E6 B5 FROM R5 7502+ S0024E7 30 STW (R0) 7503 S0024E8 A5 03 IBT R5,#03H 7504 mSTW R5,CENCHPT,R1 ;パターンＮｏ．セット 7504+ S0024EA F0 1402 IWT R0,#CENCHPT 7504+ S0024ED 51 ADD R1 7504+ S0024EE B5 FROM R5 7504+ S0024EF 30 STW (R0) 7505 S0024F0 A5 06 IBT R5,#06H 7506 mSTW R5,CENTIM0,R1 ;タイマーセット 7506+ S0024F2 F0 1A96 IWT R0,#CENTIM0 7506+ S0024F5 51 ADD R1 7506+ S0024F6 B5 FROM R5 7506+ S0024F7 30 STW (R0) 7507 ; 7508 S0024F8 28 WITH R8 7509 S0024F9 3E 58 ADD #8 7510 S0024FB B7 FROM R7 7511 S0024FC 3E 58 ADD #8 7512 mJSR_X BGUNIT_READ_S+1 ;ＢＧユニットＮｏ．読み込み 7512+ S0024FE 94 LINK #4 7512+ S0024FF FF 0CD7' IWT R15, #BGUNIT_READ_S+1 7513 S002502 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 7514 ; 7515 ; (R0) <-- BG unit no. type return !! 7516 ; 7517 S002503 3E 72 AND #AL 7518 S002505 09 06' BEQ COLD_SHOT_0100 ;ＢＧ当たり？ ( no:COLD_SHOT_0100 ) 7519 S002507 01 NOP 7520 ; 7521 S002508 A0 1C IBT R0,#(07H*4) ;スペシャルショットカウンターセット 7522 S00250A 3E A0 B6 SMS R0,CEATSPC 7523 ; 7524 COLD_SHOT_0100 7525 S00250D 3D AB 30 LMS R11,RTS0 7526 ; 7527 COLD_SHOT_0150 7528 mRTS 7528+ S002510 9B JMP R11 7528+ S002511 01 NOP 7529 ; 7530 ;------------------------------------------------------------------------ 7531 ;- 舌ショットキャンセル - - 7532 ;- break : - 7533 ;- (R3),(R4),(R5),(R14) - 7534 ;------------------------------------------------------------------------ 7535 BERO_CANCEL 7536 S002512 3D A3 B1 LMS R3,CEATFLG 7537 S002515 E3 DEC R3 ;[-1] 7538 S002516 0A 0C' BPL BERO_CANCEL_010 ;食べてる？ ( yes:BERO_CANCEL_010 ) 7539 S002518 01 NOP 7540 ; 7541 S002519 3D A3 B4 LMS R3,CEATSTP 7542 S00251C 23 B3 MOVES R3,R3 7543 S00251E 09 54' BEQ BERO_CANCEL_020 ;食べてる？ ( no:BERO_CANCEL_020 ) 7544 S002520 60 SUB R0 ;[ R0 <- 0 ] 7545 ; 7546 S002521 05 54' BRA BERO_CANCEL_030 7547 S002523 60 SUB R0 ;[ R0 <- 0 ] 7548 ; 7549 BERO_CANCEL_010 7550 S002524 3D A0 A9 LMS R0,CBERXPS 7551 S002527 3D A4 AA LMS R4,CBERYPS 7552 S00252A C4 OR R4 7553 S00252B 09 50' BEQ BERO_CANCEL_040 ;口に入れてる？ ( yes:BERO_CANCEL_040 ) 7554 S00252D 01 NOP 7555 ; 7556 ENEAT_CANCEL 7557 S00252E A4 10 IBT R4,#CEMOVE ;敵を元に戻す 7558 mSTW R4,CENMODE,R3 7558+ S002530 F0 0F00 IWT R0,#CENMODE 7558+ S002533 53 ADD R3 7558+ S002534 B4 FROM R4 7558+ S002535 30 STW (R0) 7559 S002536 A4 FF IBT R4,#0FFH 7560 mSTB R4,CENWATR,R3 ;水中フラグ初期セット 7560+ S002538 F0 1862 IWT R0,#CENWATR 7560+ S00253B 53 ADD R3 7560+ S00253C B4 FROM R4 7560+ S00253D 3D 30 STB (R0) 7561 ; 7562 mLDW0 CENMYNO,R3 7562+ S00253F F0 1360 IWT R0,#CENMYNO 7562+ S002542 53 ADD R3 7562+ S002543 40 LDW (R0) 7563 S002544 15 TO R5 7564 S002545 50 ADD R0 7565 S002546 F0 0000" IWT R0,#ENDATA0 7566 S002549 1E TO R14 7567 S00254A 55 ADD R5 7568 S00254B 14 TO R4 7569 S00254C EF GETB 7570 mSTW R4,CENYUSN,R3 7570+ S00254D F0 14A2 IWT R0,#CENYUSN 7570+ S002550 53 ADD R3 7570+ S002551 B4 FROM R4 7570+ S002552 30 STW (R0) 7571 S002553 F0 0000" IWT R0,#ENMODE2 7572 S002556 1E TO R14 7573 S002557 55 ADD R5 7574 S002558 EF GETB 7575 S002559 A4 0C IBT R4,#00001100B 7576 S00255B 14 TO R4 7577 S00255C 74 AND R4 7578 mLDW0 CENMOD2,R3 7578+ S00255D F0 1040 IWT R0,#CENMOD2 7578+ S002560 53 ADD R3 7578+ S002561 40 LDW (R0) 7579 S002562 14 TO R4 7580 S002563 C4 OR R4 7581 mSTW R4,CENMOD2,R3 7581+ S002564 F0 1040 IWT R0,#CENMOD2 7581+ S002567 53 ADD R3 7581+ S002568 B4 FROM R4 7581+ S002569 30 STW (R0) 7582 ; 7583 S00256A 60 SUB R0 ;[ IBT R0,#0 ] 7584 S00256B 3E A0 B1 SMS R0,CEATFLG 7585 S00256E 3E A0 B4 SMS R0,CEATSTP 7586 S002571 3E A0 B5 SMS R0,CEATSPF 7587 ; 7588 BERO_CANCEL_020 7589 S002574 3E A0 A8 SMS R0,CBERFLG 7590 BERO_CANCEL_030 7591 S002577 3E A0 A9 SMS R0,CBERXPS 7592 S00257A 3E A0 AA SMS R0,CBERYPS 7593 BERO_CANCEL_040 7594 mRTS 7594+ S00257D 9B JMP R11 7594+ S00257E 01 NOP 7595 ; 7596 ;************************************************************************ 7597 ;* * 7598 ;* パターンＮｏ．セット * 7599 ;* * 7600 ;************************************************************************ 7601 ; 7602 PL_PATN 7603 ; 7604 ;-------------- 回転パターンセット -------------------------------------- 7605 S00257F 3D A0 A5 LMS R0,CPROTSP 7606 S002582 22 B0 MOVES R2,R0 7607 S002584 09 6A' BEQ PL_PATN_00100 ;回転？ ( no:PL_PATN_00100 ) 7608 S002586 01 NOP 7609 ; 7610 PL_ROT_PATN_ST 7611 S002587 A1 FA IBT R1,#-06H 7612 S002589 0A 05' BPL PL_PATN_00010 7613 S00258B 01 NOP 7614 ; 7615 S00258C 4F NOT 7616 S00258D D0 INC R0 7617 S00258E A1 06 IBT R1,#06H 7618 PL_PATN_00010 7619 S002590 A3 40 IBT R3,#040H 7620 S002592 63 SUB R3 7621 S002593 0D 35' BCS PL_PATN_00018 ;回転ダウンチェック？ ( no:PL_PATN_00018 ) 7622 S002595 01 NOP 7623 ; 7624 ;-------------- 回転ダウンチェック ------------------------------ 7625 S002596 3D A3 A6 LMS R3,CPROTDW 7626 S002599 E3 DEC R3 7627 S00259A 0B 2E' BMI PL_PATN_00018 ;回転ダウン？ ( no:PL_PATN_00018 ) 7628 S00259C D3 INC R3 7629 ; 7630 S00259D 3D A0 A4 LMS R0,CPROTCT 7631 S0025A0 F4 0500 IWT R4,#0600H-0100H 7632 S0025A3 64 SUB R4 7633 S0025A4 0C 30' BCC PL_PATN_00022 ;ダウンＯＫ回転パターン？ ( no:PL_PATN_00022 ) 7634 S0025A6 01 NOP 7635 ; 7636 S0025A7 3D A0 FB LMS R0,CPLWORKTM 7637 S0025AA E0 DEC R0 7638 S0025AB 0A 14' BPL PL_PATN_00014 ;回転ダウンパターン切り替え？ ( no:PL_PATN_00014 ) 7639 S0025AD 01 NOP 7640 ; 7641 S0025AE E3 DEC R3 7642 S0025AF 3E A3 A6 SMS R3,CPROTDW 7643 S0025B2 08 04' BNE PL_PATN_00012 7644 S0025B4 01 NOP 7645 ; 7646 S0025B5 3E A3 A5 SMS R3,CPROTSP ;回転キャンセル！！ 7647 PL_PATN_00012 7648 S0025B8 F0 0000" IWT R0,#ROT_DOWN_TIM 7649 S0025BB 1E TO R14 7650 S0025BC 53 ADD R3 7651 S0025BD EF GETB 7652 S0025BE 3E A0 FB SMS R0,CPLWORKTM ;回転ダウンパターン切り替えタイマーセット 7653 PL_PATN_00014 7654 S0025C1 B3 FROM R3 ;x2 7655 S0025C2 53 ADD R3 ; 7656 S0025C3 FE 0000" IWT R14,#ROT_DOWN_PATN 7657 mDJMP_X PL_PATN_GET 7657+ S0025C6 FF 2760' IWT R15, #PL_PATN_GET 7658 S0025C9 1E TO R14 7659 ; 7660 PL_PATN_00018 7661 S0025CA 22 WITH R2 7662 S0025CB 51 ADD R1 7663 S0025CC B2 FROM R2 7664 S0025CD 3D C1 XOR R1 7665 S0025CF 0B 02' BMI PL_PATN_00020 7666 S0025D1 12 TO R2 ;[ IBT R2,#0 ] 7667 ; 7668 S0025D2 60 SUB R0 ;[ IBT R2,#0 ] 7669 PL_PATN_00020 7670 S0025D3 3E A2 A5 SMS R2,CPROTSP 7671 ; 7672 PL_PATN_00022 7673 S0025D6 F1 0600 IWT R1,#0600H ;(R1) <-- ＭＡＸ値 7674 S0025D9 3D A0 A4 LMS R0,CPROTCT 7675 S0025DC 52 ADD R2 7676 S0025DD 0A 02' BPL PL_PATN_00030 ;ＭＩＮオーバー？ ( no:PL_PATN_00030 ) 7677 S0025DF 01 NOP 7678 ; 7679 S0025E0 51 ADD R1 7680 PL_PATN_00030 7681 S0025E1 61 SUB R1 7682 S0025E2 0D 02' BCS PL_PATN_00040 ;ＭＡＸオーバー？ ( no:PL_PATN_00040 ) 7683 S0025E4 01 NOP 7684 ; 7685 S0025E5 51 ADD R1 7686 PL_PATN_00040 7687 S0025E6 90 SBK ;[ SMS R0,CPROTCT ] 7688 S0025E7 C0 HIB 7689 S0025E8 50 ADD R0 ;x2 7690 S0025E9 FE 0000" IWT R14,#ROTATION_PATN 7691 mDJMP_X PL_PATN_GET 7691+ S0025EC FF 2760' IWT R15, #PL_PATN_GET 7692 S0025EF 1E TO R14 7693 ; 7694 ;-------------- ダメージパターンセット ---------------------------------- 7695 PL_PATN_00100 7696 S0025F0 3D A1 EB LMS R1,CPLFLSH 7697 ;;;; IWT R2,#080H 7698 S0025F3 A2 40 IBT R2,#040H 7699 S0025F5 B1 FROM R1 7700 S0025F6 62 SUB R2 7701 S0025F7 0C 3B' BCC PL_PATN_01000 ;ダメージ中？ ( no:PL_PATN_01000 ) 7702 S0025F9 01 NOP 7703 ; 7704 S0025FA A2 50 IBT R2,#(8*3)*2+32 ;[ +32:着地までのウェイト ] 7705 S0025FC 62 SUB R2 7706 S0025FD 0C 09' BCC PL_PATN_00110 7707 S0025FF 52 ADD R2 7708 ; 7709 S002600 F0 006B IWT R0,#DM00 7710 S002603 3E A0 5F SMS R0,CPLPATN 7711 mRTS 7711+ S002606 9B JMP R11 7711+ S002607 01 NOP 7712 ; 7713 PL_PATN_00110 7714 S002608 3D A2 60 LMS R2,CPLJUMP 7715 S00260B E2 DEC R2 7716 S00260C 0B 0F' BMI PL_PATN_00120 ;ジャンプ中？ ( no:PL_PATN_0120 ) 7717 S00260E 01 NOP 7718 ; 7719 S00260F A2 30 IBT R2,#(8*3)*2 7720 S002611 62 SUB R2 7721 S002612 0D 20' BCS PL_PATN_01000 7722 S002614 01 NOP 7723 ; 7724 ;;;; IWT R0,#080H 7725 S002615 A0 40 IBT R0,#040H 7726 S002617 3E A0 EB SMS R0,CPLFLSH 7727 S00261A 05 18' BRA PL_PATN_01000 7728 S00261C 01 NOP 7729 ; 7730 PL_PATN_00120 7731 S00261D A2 30 IBT R2,#(8*3)*2 7732 S00261F 62 SUB R2 7733 S002620 0C 08' BCC PL_PATN_00130 7734 S002622 52 ADD R2 7735 ; 7736 ;;;; IWT R0,#080H+(8*3)*2-1 7737 S002623 A0 6F IBT R0,#040H+(8*3)*2-1 7738 S002625 3E A0 EB SMS R0,CPLFLSH 7739 S002628 A0 2F IBT R0,#(8*3)*2-1 7740 PL_PATN_00130 7741 S00262A 3E 77 AND #07H 7742 S00262C 50 ADD R0 7743 S00262D FE 0000" IWT R14,#FAIL_KYORO_PATN 7744 mDJMP_X PL_PATN_GET 7744+ S002630 FF 2760' IWT R15, #PL_PATN_GET 7745 S002633 1E TO R14 7746 ; 7747 ;-------------- スペシャルショットパターンセット ------------------------ 7748 PL_PATN_01000 7749 S002634 3D A1 B6 LMS R1,CEATSPC 7750 S002637 E1 DEC R1 ;[ CMP #0 ] 7751 S002638 0B 4B' BMI PL_PATN_02000 ;スペシャルショット？ ( no:PL_PATN_02000 ) 7752 S00263A 01 NOP 7753 ; 7754 S00263B 3D A0 B5 LMS R0,CEATSPF 7755 S00263E 3E 63 SUB #3 7756 S002640 08 27' BNE PL_PATN_01030 ;スイカショット？ ( no:PL_PATN_01030 ) 7757 S002642 01 NOP 7758 ; 7759 ;-------------- スイカショットパターンセット -------------------- 7760 S002643 21 10 MOVE R0,R1 7761 S002645 A1 06 IBT R1,#6 7762 PL_PATN_01010 7763 S002647 61 SUB R1 7764 S002648 0D FE' BCS PL_PATN_01010+1 7765 S00264A 61 SUB R1 7766 ; 7767 S00264B 51 ADD R1 7768 S00264C 51 ADD R1 7769 S00264D 11 TO R1 ;(R1) <-- スイカショットパターンＮｏ． 7770 S00264E 50 ADD R0 ;x2 7771 ; 7772 S00264F A0 18 IBT R0,#6*2*2 7773 S002651 3D A2 A8 LMS R2,CBERFLG 7774 S002654 E2 DEC R2 7775 S002655 08 0A' BNE PL_PATN_01020 ;プレイヤー上向いてる？ ( yes:PL_PATN_01020 ) 7776 S002657 01 NOP 7777 ; 7778 S002658 3D A2 60 LMS R2,CPLJUMP 7779 S00265B 22 B2 MOVES R2,R2 7780 S00265D 08 02' BNE PL_PATN_01020 ;プレイヤージャンプ中？ ( yes:PL_PATN_01020 ) 7781 S00265F 03 LSR ;[ IBT R0,#6*2 ] 7782 ; 7783 S002660 60 SUB R0 ;[ IBT R0,#0 ] 7784 PL_PATN_01020 7785 S002661 51 ADD R1 7786 S002662 FE 0000" IWT R14,#SUIKA_SHOT_PATN 7787 mDJMP_X PL_PATN_GET 7787+ S002665 FF 2760' IWT R15, #PL_PATN_GET 7788 S002668 1E TO R14 7789 ; 7790 ;-------------- ”フー”パターンセット -------------------------- 7791 PL_PATN_01030 7792 S002669 F1 008F IWT R1,#SU0B 7793 S00266C 3D A2 A8 LMS R2,CBERFLG 7794 S00266F E2 DEC R2 7795 S002670 08 0E' BNE PL_PATN_01040 ;プレイヤー上向いてる？ ( yes:PL_PATN_01040 ) 7796 S002672 01 NOP 7797 ; 7798 S002673 F1 0093 IWT R1,#SU0F 7799 S002676 3D A0 60 LMS R0,CPLJUMP 7800 S002679 E0 DEC R0 7801 S00267A 0B 04' BMI PL_PATN_01040 ;ジャンプ中？ ( no:PL_PATN_01040 ) 7802 S00267C 01 NOP 7803 ; 7804 S00267D F1 0088 IWT R1,#SU04 7805 PL_PATN_01040 7806 S002680 3E A1 5F SMS R1,CPLPATN 7807 PL_PATN_RTS 7808 mRTS 7808+ S002683 9B JMP R11 7808+ S002684 01 NOP 7809 ; 7810 ;-------------- 舌出しパターンセット ------------------------------------ 7811 PL_PATN_02000 7812 S002685 3D A0 A8 LMS R0,CBERFLG 7813 S002688 E0 DEC R0 ;[ CMP #0 ] 7814 S002689 0A F8' BPL PL_PATN_RTS ;舌ショット中？ ( yes:PL_PATN_RTS ) 7815 S00268B 01 NOP 7816 ; 7817 ;;;;;-------------- 口の中で爆発パターンセット ------------------------------ 7818 ;;;; LMS R0,CPLBOMB 7819 ;;;; LOB 7820 ;;;; BEQ PL_PATN_04000 ;口の中で爆発中？ ( no:PL_PATN_04000 ) 7821 ;;;; NOP 7822 ;;;;; 7823 ;;;; IWT R1,#BO0A ;(R1) <-- 爆発パターンＮｏ． 7824 ;;;; SUB #03H+1 7825 ;;;; BCC PL_PATN_03010 ;プレイヤーカラー変更？ ( no:PL_PATN_03010 ) 7826 ;;;; NOP 7827 ;;;;; 7828 ;;;; IBT R0,#02H ;プレイヤーカラーセット 7829 ;;;; SMS R0,CPLCLOR 7830 ;;;; IWT R1,#BO08 ;(R1) <-- 爆発パターンＮｏ． 7831 ;;;;PL_PATN_03010 7832 ;;;; SMS R1,CPLPATN 7833 ;;;; mRTS 7834 ; 7835 ;-------------- タマゴ投げパターンセット -------------------------------- 7836 PL_PATN_04000 7837 S00268C 3D AE 6F LMS R14,CPLNAGE 7838 S00268F EE DEC R14 7839 S002690 0B 56' BMI PL_PATN_04100 ;タマゴ投げ中？ ( no:PL_PATN_04100 ) 7840 S002692 DE INC R14 7841 ; 7842 S002693 BE FROM R14 7843 S002694 3E 66 SUB #6 7844 S002696 08 39' BNE PL_PATN_04090 ;溜めポーズ？ ( no:PL_PATN_04090 ) 7845 S002698 01 NOP 7846 ; 7847 S002699 3D A0 70 LMS R0,CPLNAGP 7848 S00269C E0 DEC R0 7849 S00269D 0B 32' BMI PL_PATN_04090 ;タマゴ投げ歩き？ ( no:PL_PATN_04090 ) 7850 S00269F 01 NOP 7851 ; 7852 S0026A0 3D A0 60 LMS R0,CPLJUMP 7853 S0026A3 E0 DEC R0 7854 S0026A4 0B 11' BMI PL_PATN_04010 ;ジャンプ中？ ( no:PL_PATN_04010 ) 7855 S0026A6 01 NOP 7856 ; 7857 S0026A7 3D A0 69 LMS R0,CPLSPJP 7858 S0026AA 9E LOB 7859 S0026AB 3E 62 SUB #02H 7860 S0026AD 0C 22' BCC PL_PATN_04090 ;ジタバタジャンプ中？ ( no:PL_PATN_04090 ) 7861 S0026AF 01 NOP 7862 ; 7863 S0026B0 FE 0000" IWT R14,#SPJMP_NAGE_PATN 7864 mDJMP_X PL_PATN_GET 7864+ S0026B3 FF 2760' IWT R15, #PL_PATN_GET 7865 S0026B6 1E TO R14 7866 ; 7867 PL_PATN_04010 7868 S0026B7 3D A0 E8 LMS R0,CPLSLIP 7869 S0026BA 9E LOB 7870 S0026BB 09 08' BEQ PL_PATN_04020 ;スリップ中？ ( no:PL_PATN_04020 ) 7871 S0026BD 01 NOP 7872 ; 7873 S0026BE FE 0000" IWT R14,#NAGE_SLIP_PATN 7874 mDJMP PL_PATN_08010 7874+ S0026C1 FF 2758' IWT R15, #PL_PATN_08010 7874+ S0026C4 01 NOP 7875 ; 7876 PL_PATN_04020 7877 S0026C5 3D A0 5A LMS R0,CPLMVSP 7878 S0026C8 3E 60 SUB #0 ;(N) <-- 符号 7879 S0026CA 09 05' BEQ PL_PATN_04090 ;止まってる？ ( yes:PL_PATN_04090 ) 7880 S0026CC 01 NOP 7881 ; 7882 mDJMP PL_PATN_11000 7882+ S0026CD FF 27E4' IWT R15, #PL_PATN_11000 7882+ S0026D0 01 NOP 7883 ; 7884 PL_PATN_04090 7885 S0026D1 3D F0 1FE8 LM R0,CFURA_FG 7886 S0026D5 3E 60 SUB #0 7887 S0026D7 09 08' BEQ PL_PATN_04092 ;”フラフラ”モード？ ( no:PL_PATN_04092 ) 7888 S0026D9 01 NOP 7889 ; 7890 S0026DA FE 0000" IWT R14,#FURA_EGG_PATN ;(R14) <-- タマゴ持ってる時パターンデータアドレス 7891 mDJMP PL_PATN_10010 7891+ S0026DD FF 27A3' IWT R15, #PL_PATN_10010 7891+ S0026E0 01 NOP 7892 ; 7893 PL_PATN_04092 7894 S0026E1 F0 FFFE" IWT R0,#NAGE_PATN-2 7895 S0026E4 5E ADD R14 7896 S0026E5 05 79' BRA PL_PATN_GET 7897 S0026E7 1E TO R14 7898 ; 7899 ;-------------- 座りパターンセット -------------------------------------- 7900 PL_PATN_04100 7901 S0026E8 3D A0 61 LMS R0,CPLSITD 7902 S0026EB 9E LOB 7903 S0026EC 09 07' BEQ PL_PATN_05000 ;座り中？ ( no:PL_PATN_05000 ) 7904 S0026EE 50 ADD R0 ;x2 7905 ; 7906 S0026EF FE FFFE" IWT R14,#SIT_PATN-2 7907 S0026F2 05 6C' BRA PL_PATN_GET 7908 S0026F4 1E TO R14 7909 ; 7910 ;-------------- 泳ぎパターンセット -------------------------------------- 7911 PL_PATN_05000 7912 ; 7913 ;-------------- ジャンプパターンセット ---------------------------------- 7914 PL_PATN_06000 7915 S0026F5 3D A1 60 LMS R1,CPLJUMP ;(R1) <-- ジャンプパターンＮｏ． 7916 S0026F8 E1 DEC R1 7917 S0026F9 0B 44' BMI PL_PATN_07000 ;ジャンプ中？ ( no:PL_PATN_07000 ) 7918 S0026FB D1 INC R1 7919 ; 7920 ;-------------- ジャンプ横当たり”ボヨヨ〜ン”パターンセット ---- 7921 S0026FC 3D A0 ED LMS R0,CPSBOYO 7922 S0026FF 9E LOB 7923 S002700 09 0A' BEQ PL_PATN_06100 ;ジャンプ横当たり”ボヨヨ〜ン”？ ( no:PL_PATN_06100 ) 7924 S002702 E0 DEC R0 7925 ; 7926 S002703 03 LSR 7927 S002704 3F 71 BIC #01H ;[ AND #0FFFEH ] 7928 S002706 FE 0000" IWT R14,#SDBOYO_PATN 7929 S002709 05 55' BRA PL_PATN_GET 7930 S00270B 1E TO R14 7931 ; 7932 ;-------------- ジャンプ頭当たり”ボヨヨ〜ン”パターンセット ---- 7933 PL_PATN_06100 7934 S00270C 3D A0 EE LMS R0,CPHBOYO 7935 S00270F 9E LOB 7936 S002710 09 19' BEQ PL_PATN_06250 ;ジャンプ頭当たり”ボヨヨ〜ン”？ ( no:PL_PATN_06250 ) 7937 S002712 E0 DEC R0 7938 ; 7939 S002713 3D AE F8 LMS R14,CPBURAN 7940 S002716 EE DEC R14 7941 S002717 0A 09' BPL PL_PATN_06200 ;”ブラ〜ン”？ ( yes:PL_PATN_06200 ) 7942 S002719 01 NOP 7943 ; 7944 S00271A 3F 71 BIC #01H ;[ AND #0FFFEH ] 7945 S00271C FE 0000" IWT R14,#HDBOYO_PATN 7946 S00271F 05 3F' BRA PL_PATN_GET 7947 S002721 1E TO R14 7948 ; 7949 ;-------------- ”ブラ〜ン”パターンセット ---------------------- 7950 PL_PATN_06200 7951 S002722 BE FROM R14 7952 S002723 3F 71 BIC #01H 7953 S002725 FE 0000" IWT R14,#BURAN_PATN 7954 S002728 05 36' BRA PL_PATN_GET 7955 S00272A 1E TO R14 7956 ; 7957 ;-------------- ジタバタジャンプパターンセット ------------------ 7958 PL_PATN_06250 7959 S00272B 3D A0 69 LMS R0,CPLSPJP 7960 S00272E 9E LOB 7961 S00272F 3E 62 SUB #02H 7962 S002731 0C 07' BCC PL_PATN_06300 ;ジタバタジャンプ中？ ( no:PL_PATN_06300 ) 7963 S002733 01 NOP 7964 ; 7965 S002734 FE 0000" IWT R14,#SPJMP_PATN 7966 S002737 05 27' BRA PL_PATN_GET 7967 S002739 1E TO R14 7968 ; 7969 ;-------------- 普通のジャンプパターンセット -------------------- 7970 PL_PATN_06300 7971 S00273A 3E A1 5F SMS R1,CPLPATN 7972 mRTS 7972+ S00273D 9B JMP R11 7972+ S00273E 01 NOP 7973 ; 7974 ;-------------- ジャンプ着地パターンセット ------------------------------ 7975 PL_PATN_07000 7976 S00273F 3D A0 EA LMS R0,CPLJPTM 7977 S002742 9E LOB 7978 S002743 09 09' BEQ PL_PATN_08000 ;着地の瞬間？ ( no:PL_PATN_08000 ) 7979 S002745 01 NOP 7980 ; 7981 S002746 3F 71 BIC #01H ;[ AND #0FFFEH ] 7982 S002748 FE 0000" IWT R14,#JMPEND_PATN 7983 S00274B 05 13' BRA PL_PATN_GET 7984 S00274D 1E TO R14 7985 ; 7986 ;-------------- スリップパターンセット ---------------------------------- 7987 PL_PATN_08000 7988 S00274E 3D A0 E8 LMS R0,CPLSLIP 7989 S002751 9E LOB 7990 S002752 09 16' BEQ PL_PATN_09000 ;スリップ中？ ( no:PL_PATN_09000 ) 7991 S002754 01 NOP 7992 ; 7993 S002755 FE 0000" IWT R14,#SLIP_PATN 7994 PL_PATN_08010 7995 S002758 3D F0 1974 LM R0,CFRCNT2 7996 S00275C 50 ADD R0 7997 S00275D 3E 7E AND #07H*2 7998 S00275F 1E TO R14 7999 PL_PATN_GET 8000 S002760 5E ADD R14 8001 S002761 EF GETB 8002 S002762 DE INC R14 8003 S002763 3D EF GETBH 8004 PL_PATN_SET_2 8005 S002765 3E A0 5F SMS R0,CPLPATN 8006 mRTS 8006+ S002768 9B JMP R11 8006+ S002769 01 NOP 8007 ; 8008 PL_PATN_09000 8009 S00276A 3D A0 66 LMS R0,CPLSTOP 8010 S00276D 9E LOB 8011 S00276E 09 1F' BEQ PL_PATN_10000 ;棒立ち中？ ( yes:PL_PATN_10000 ) 8012 S002770 01 NOP 8013 ; 8014 ;-------------- 横壁押しパターンセット ---------------------------------- 8015 S002771 3D A0 6E LMS R0,CPSPUSH 8016 S002774 9E LOB 8017 S002775 09 10' BEQ PL_PATN_09100 ;横壁押し中？ ( no:PL_PATN_09100 ) 8018 S002777 01 NOP 8019 ; 8020 S002778 A1 10 IBT R1,#PUSHTM 8021 S00277A 61 SUB R1 8022 S00277B 0C 12' BCC PL_PATN_10000 ;横壁押し待ち中？ ( no:PL_PATN_10000 ) 8023 S00277D 01 NOP 8024 ; 8025 S00277E 03 LSR 8026 S00277F 3F 71 BIC #01H ;[ AND #0FFFEH ] 8027 S002781 FE 0000" IWT R14,#PUSH_PATN 8028 S002784 05 DA' BRA PL_PATN_GET 8029 S002786 1E TO R14 8030 ; 8031 PL_PATN_09100 8032 S002787 3D A0 5A LMS R0,CPLMVSP 8033 S00278A 3E 60 SUB #0 ;(N) <-- 符号 8034 S00278C 08 56' BNE PL_PATN_11000 ;止まってる？ ( no:PL_PATN_11000 ) 8035 S00278E 01 NOP 8036 ; 8037 ;-------------- 止まってる時のパターンセット ---------------------------- 8038 ; 8039 ;-------------- 上向きパターンセット ---------------------------- 8040 PL_PATN_10000 8041 S00278F 3D A0 67 LMS R0,CPLUPFG 8042 S002792 3E 60 SUB #0 8043 S002794 08 CF' BNE PL_PATN_SET_2 ;上向き中？ ( yes:PL_PATN_SET_2 ) 8044 S002796 01 NOP 8045 ; 8046 S002797 3D F0 1FE8 LM R0,CFURA_FG 8047 S00279B 3E 60 SUB #0 8048 S00279D 09 0D' BEQ PL_PATN_100050 ;”フラフラ”モード？ ( no:PL_PATN_100050 ) 8049 S00279F 01 NOP 8050 ; 8051 ;-------------- ”フラフラ”パターンセット ---------------------- 8052 S0027A0 FE 0000" IWT R14,#FURA_PATN ;(R14) <-- タマゴ持ってない時パターンデータアドレス 8053 PL_PATN_10010 8054 S0027A3 3D A0 79 LMS R0,CPLFRCT 8055 S0027A6 A1 00" IBT R1,#FR_MV 8056 S0027A8 51 ADD R1 8057 S0027A9 05 B5' BRA PL_PATN_GET 8058 S0027AB 1E TO R14 8059 ; 8060 ;-------------- 止まってる時のいろんなパターンセット ------------ 8061 PL_STOP_PT_SET 8062 PL_PATN_100050 8063 S0027AC 3D A0 EC LMS R0,CPSTPTM 8064 S0027AF 9E LOB 8065 S0027B0 08 1C' BNE PL_PATN_10200 ;”ポリポリ”？ ( no:PL_PATN_10200 ) 8066 S0027B2 01 NOP 8067 ; 8068 S0027B3 A1 00 IBT R1,#00 ;(R1) <-- ”タンタン”タイプ 8069 S0027B5 3D F0 1970 LM R0,CRANDM0 8070 S0027B9 03 LSR 8071 S0027BA 0D 04' BCS PL_PATN_10100 ;止まってる時のタイプセット？ ( no:PL_PATN_10100 ) 8072 ;;;;; LSR ;[SFC] ＳＦＣ仕様に合わせた為！！ 8073 S0027BC 01 NOP ;[SFC] ＳＦＣ仕様に合わせた為！！ 8074 ; 8075 S0027BD 11 TO R1 8076 S0027BE 3E 76 AND #03H*2 8077 PL_PATN_10100 8078 S0027C0 3E A1 7B SMS R1,CPSTPNO ;止まってる時のタイプセット 8079 S0027C3 B1 FROM R1 ;[SFC] ＳＦＣ仕様に合わせた為！！ 8080 S0027C4 03 LSR ;[SFC] ＳＦＣ仕様に合わせた為！！ 8081 S0027C5 FE 0000" IWT R14,#PLSTOP_TMDT 8082 S0027C8 1E TO R14 8083 S0027C9 5E ADD R14 8084 S0027CA EF GETB 8085 S0027CB 3E A0 EC SMS R0,CPSTPTM ;止まってる時のタイプ用タイマーセット 8086 ; 8087 PL_PATN_10200 8088 S0027CE 11 TO R1 8089 S0027CF 50 ADD R0 8090 S0027D0 3D A0 7B LMS R0,CPSTPNO 8091 ;;;; ADD R0 ;[SFC] ＳＦＣ仕様に合わせた為！！ 8092 S0027D3 FE 0000" IWT R14,#PLSTOP_PTIN 8093 S0027D6 1E TO R14 8094 S0027D7 5E ADD R14 8095 S0027D8 EF GETB 8096 S0027D9 DE INC R14 8097 S0027DA 3D EF GETBH 8098 S0027DC 51 ADD R1 8099 S0027DD FE 0000" IWT R14,#PLSTOP_PATN 8100 mDJMP_X PL_PATN_GET 8100+ S0027E0 FF 2760' IWT R15, #PL_PATN_GET 8101 S0027E3 1E TO R14 8102 ; 8103 ;-------------- 歩きパターンセット -------------------------------------- 8104 PL_PATN_11000 8105 S0027E4 0A 03' BPL PL_PATN_11100 8106 S0027E6 01 NOP 8107 ; 8108 S0027E7 4F NOT 8109 S0027E8 D0 INC R0 8110 PL_PATN_11100 8111 S0027E9 3D F4 1FE8 LM R4,CFURA_FG ;(R4) <-- ”フラフラ”モードフラグ 8112 S0027ED 24 B4 MOVES R4,R4 8113 S0027EF 08 39' BNE PL_PATN_11200 ;”フラフラ”モード？ ( yes:PL_PATN_11200 ) 8114 S0027F1 01 NOP 8115 ; 8116 S0027F2 F1 0260 IWT R1,#BWXMX-20H 8117 S0027F5 61 SUB R1 8118 S0027F6 0C 32' BCC PL_PATN_11200 ;（Ｐ）ダッシュ中？ ( no:PL_PATN_11200 ) 8119 S0027F8 51 ADD R1 8120 ; 8121 ;-------------- （Ｐ）ダッシュパターンセット -------------------- 8122 S0027F9 F1 0018 IWT R1,#P01C 8123 S0027FC 3D A0 6F LMS R0,CPLNAGE 8124 S0027FF E0 DEC R0 8125 S002800 0B 04' BMI PL_PATN_11110 ;タマゴ投げ中？ ( no:PL_PATN_11110 ) 8126 S002802 01 NOP 8127 ; 8128 S002803 F1 0053 IWT R1,#NR1C 8129 PL_PATN_11110 8130 S002806 3D F0 1974 LM R0,CFRCNT2 8131 S00280A 3E 72 AND #00000010B 8132 S00280C 08 12' BNE PL_PATN_11130 ;歩くサウンドセット？ ( no:PL_PATN_11130 ) 8133 S00280E 01 NOP 8134 ; 8135 ;-------------- 歩くサウンドセット ------------------------------ 8136 S00280F 3D A0 7D LMS R0,CPLBGNO 8137 S002812 FE 0000" IWT R14,#WALK_SOUND 8138 S002815 1E TO R14 8139 S002816 5E ADD R14 8140 S002817 EF GETB 8141 S002818 E0 DEC R0 8142 S002819 0B 04' BMI PL_PATN_11120 ;歩くサウンドセット？ ( no:PL_PATN_11120 ) 8143 S00281B D0 INC R0 8144 ; 8145 S00281C 3E A0 3D SMS R0,CMSOUND3 ;[♪] 8146 PL_PATN_11120 8147 S00281F 60 SUB R0 ;[ IBT R0,#0 ] 8148 PL_PATN_11130 8149 S002820 3E A0 7C SMS R0,CPLWALK 8150 S002823 03 LSR 8151 S002824 51 ADD R1 8152 PL_PATN_SET 8153 S002825 3E A0 5F SMS R0,CPLPATN 8154 mRTS 8154+ S002828 9B JMP R11 8154+ S002829 01 NOP 8155 ; 8156 ;-------------- 歩きパターンセット ------------------------------ 8157 PL_PATN_11200 8158 S00282A 50 ADD R0 8159 S00282B 50 ADD R0 8160 S00282C 11 TO R1 ;(R1) <-- 歩くスピードポインター 8161 S00282D C0 HIB 8162 S00282E 3D A0 E9 LMS R0,CPLWKTM 8163 S002831 9E LOB ;(Z) <-- 歩くパターン切り替え？ 8164 ; 8165 S002832 3D A0 7C LMS R0,CPLWALK ;(R0) <-- 歩くパターンカウンター [ * SBK ] 8166 S002835 F2 0000" IWT R2,#WALK_PATN ;(R2) <-- 歩くパターンＮｏ．データアドレス 8167 ; 8168 S002838 08 5B' BNE PL_PATN_11400 ;歩くパターン切り替え？ ( no:PL_PATN_11400 ) 8169 S00283A 01 NOP 8170 ; 8171 S00283B 3D A3 5A LMS R3,CPLMVSP 8172 S00283E 3D AE 62 LMS R14,CPLCMKI 8173 S002841 EE DEC R14 8174 S002842 23 WITH R3 8175 S002843 3D CE XOR R14 8176 S002845 0B 0B' BMI PL_PATN_11250 ;後ろ歩き？ ( no:PL_PATN_11250 ) 8177 S002847 D0 INC R0 ;[+1] 8178 ; 8179 S002848 3E 63 SUB #2+1 8180 S00284A 0A 0E' BPL PL_PATN_11300 8181 S00284C 01 NOP 8182 ; 8183 S00284D A0 00" IBT R0,#WLKMX_C 8184 S00284F 05 09' BRA PL_PATN_11300 8185 S002851 01 NOP 8186 ; 8187 PL_PATN_11250 8188 S002852 A3 00" IBT R3,#WLKMX_C 8189 S002854 13 TO R3 8190 S002855 63 SUB R3 8191 S002856 0C 02' BCC PL_PATN_11300 8192 S002858 D0 INC R0 ;[+2] 8193 ; 8194 S002859 60 SUB R0 8195 PL_PATN_11300 8196 S00285A 3E A0 7C SMS R0,CPLWALK 8197 S00285D 20 13 MOVE R3,R0 ;(R3) <-- 歩くパターンカウンター 8198 ; 8199 S00285F 50 ADD R0 8200 S002860 50 ADD R0 8201 S002861 50 ADD R0 8202 S002862 11 TO R1 8203 S002863 C1 OR R1 8204 ; 8205 S002864 3D A0 7D LMS R0,CPLBGNO 8206 S002867 E3 DEC R3 8207 S002868 0B 08' BMI PL_PATN_11310 ;歩くサウンドセットパターン？ ( yes:PL_PATN_11310 ) 8208 S00286A D3 INC R3 8209 ; 8210 S00286B AE 00" IBT R14,#WLKMX_Cw2 8211 S00286D 2E WITH R14 ;[ * not break (R0) ] 8212 S00286E 63 SUB R3 8213 S00286F 08 0F' BNE PL_PATN_11350 ;歩くサウンドセットパターン？ ( no:PL_PATN_11350 ) 8214 S002871 01 NOP 8215 ; 8216 ;-------------- 歩くサウンドセット ------------------------------ 8217 PL_PATN_11310 8218 S002872 FE 0000" IWT R14,#WALK_SOUND 8219 S002875 1E TO R14 8220 S002876 5E ADD R14 8221 S002877 1E TO R14 8222 S002878 EF GETB 8223 S002879 EE DEC R14 8224 S00287A 0B 04' BMI PL_PATN_11350 ;歩くサウンドセット？ ( no:PL_PATN_11350 ) 8225 S00287C DE INC R14 8226 ; 8227 S00287D 3E AE 3D SMS R14,CMSOUND3 ;[♪] 8228 PL_PATN_11350 8229 S002880 50 ADD R0 8230 S002881 FE 0000" IWT R14,#WALK_TMIN 8231 S002884 1E TO R14 8232 S002885 5E ADD R14 8233 S002886 EF GETB 8234 S002887 DE INC R14 8235 S002888 3D EF GETBH 8236 S00288A 51 ADD R1 8237 S00288B FE 0000" IWT R14,#WALK_TMDT 8238 S00288E 1E TO R14 8239 S00288F 5E ADD R14 8240 S002890 EF GETB 8241 S002891 3E A0 E9 SMS R0,CPLWKTM ;歩くパターン切り替えタイマーセット 8242 ; 8243 S002894 B3 FROM R3 8244 PL_PATN_11400 8245 S002895 1E TO R14 8246 S002896 52 ADD R2 8247 ; 8248 S002897 3D A0 6F LMS R0,CPLNAGE 8249 S00289A E0 DEC R0 8250 S00289B 0B 05' BMI PL_PATN_11410 ;タマゴ投げ中？ ( no:PL_PATN_11410 ) 8251 S00289D 01 NOP 8252 ; 8253 S00289E A0 02" IBT R0,#WLKMX_C+2 8254 S0028A0 1E TO R14 8255 S0028A1 5E ADD R14 8256 ; 8257 PL_PATN_11410 8258 S0028A2 24 B4 MOVES R4,R4 8259 S0028A4 09 15' BEQ PL_PATN_11430 ;”フラフラ”モード？ ( no:PL_PATN_11430 ) 8260 S0028A6 01 NOP 8261 ; 8262 S0028A7 A0 04" IBT R0,#WLKMX_Cx2+(2*2) 8263 S0028A9 3D A4 79 LMS R4,CPLFRCT 8264 S0028AC 24 B4 MOVES R4,R4 ;(N) set 8265 ; 8266 S0028AE A4 00" IBT R4,#FR_MV 8267 S0028B0 0A 04' BPL PL_PATN_11420 ;前進？ ( yes:PL_PATN_11420 ) 8268 S0028B2 24 WITH R4 8269 ; 8270 S0028B3 4F NOT 8271 S0028B4 D4 INC R4 8272 S0028B5 50 ADD R0 ;x2 8273 PL_PATN_11420 8274 S0028B6 3E A4 79 SMS R4,CPLFRCT 8275 S0028B9 1E TO R14 8276 S0028BA 5E ADD R14 8277 ; 8278 PL_PATN_11430 8279 S0028BB EF GETB 8280 S0028BC DE INC R14 8281 S0028BD 3D EF GETBH 8282 S0028BF 3E A0 5F SMS R0,CPLPATN 8283 mRTS 8283+ S0028C2 9B JMP R11 8283+ S0028C3 01 NOP 8284 ; 8285 ; 8286 ; 8287 ; 8288 ;************************************************************************ 8289 ;* * 8290 ;* キノコヨッシー * 8291 ;* * 8292 ;************************************************************************ 8293 KINOKO_MV 8294 S0028C4 60 SUB R0 ;<<< end >>> 8295 S0028C5 00 STOP 8296 S0028C6 01 NOP 8297 ; 8298 ; 8299 ; 8300 ; 8301 ; 8302 ; 8303 ; 8304 ; 8305 ;************************************************************************ 8306 ;* * 8307 ;* 敵エリア確保 * 8308 ;* in: * 8309 ;* (R5) <-- 敵Ｎｏ． * 8310 ;* out: * 8311 ;* (N) <-- 0:エリア有り 1:エリア無し * 8312 ;* (R1) <-- 敵インデックス * 8313 ;* break: * 8314 ;* (R12) * 8315 ;* (R13) * 8316 ;* (REG14) * 8317 ;* * 8318 ;************************************************************************ 8319 0028C7 M_ENINSR EQU $ 8320 S0028C7 F1 0F5C IWT R1,#CENMODE+(CENNO-1)*4 ;(R1) <-- 敵モードポインター 8321 ; 8322 S0028CA AC 12 IBT R12,#CENNO-2-4 8323 S0028CC 2F 1D MOVE R13,R15 8324 M_ENINSR_010 8325 S0028CE 3D 41 LDB (R1) 8326 S0028D0 3E 60 SUB #0 8327 S0028D2 09 07' BEQ M_ENINSR_020 ;空きあり？( yes:M_ENINSR_020 ) 8328 S0028D4 E1 DEC R1 8329 ; 8330 S0028D5 E1 DEC R1 8331 S0028D6 E1 DEC R1 8332 S0028D7 3C LOOP 8333 S0028D8 E1 DEC R1 8334 ; 8335 mRTS_X 8335+ S0028D9 9B JMP R11 8336 S0028DA EC DEC R12 ;(N) <-- エリア無し 8337 ; 8338 M_ENINSR_020 8339 S0028DB BC FROM R12 8340 S0028DC 3E 55 ADD #2+4-1 8341 S0028DE 50 ADD R0 8342 S0028DF 11 TO R1 ;(R1) <-- 敵のインデックス 8343 S0028E0 50 ADD R0 8344 ; 8345 S0028E1 AC 10 IBT R12,#CEMOVE ;move "ON" 8346 mSTW R12,CENMODE,R1 8346+ S0028E3 F0 0F00 IWT R0,#CENMODE 8346+ S0028E6 51 ADD R1 8346+ S0028E7 BC FROM R12 8346+ S0028E8 30 STW (R0) 8347 S0028E9 FC 00FF IWT R12,#00FFH 8348 mSTW R12,CENRETN,R1 ;[ mSTW CENDORE,R1 ] 8348+ S0028EC F0 14A0 IWT R0,#CENRETN 8348+ S0028EF 51 ADD R1 8348+ S0028F0 BC FROM R12 8348+ S0028F1 30 STW (R0) 8349 ; 8350 S0028F2 AC 00 IBT R12,#0 8351 mSTW R12,CENCOLD,R1 8351+ S0028F4 F0 1D96 IWT R0,#CENCOLD 8351+ S0028F7 51 ADD R1 8351+ S0028F8 BC FROM R12 8351+ S0028F9 30 STW (R0) 8352 mSTW R12,CENXSPD,R1 8352+ S0028FA F0 1220 IWT R0,#CENXSPD 8352+ S0028FD 51 ADD R1 8352+ S0028FE BC FROM R12 8352+ S0028FF 30 STW (R0) 8353 mSTW R12,CENYSPD,R1 8353+ S002900 F0 1222 IWT R0,#CENYSPD 8353+ S002903 51 ADD R1 8353+ S002904 BC FROM R12 8353+ S002905 30 STW (R0) 8354 mSTW R12,CENCONT,R1 8354+ S002906 F0 1976 IWT R0,#CENCONT 8354+ S002909 51 ADD R1 8354+ S00290A BC FROM R12 8354+ S00290B 30 STW (R0) 8355 mSTW R12,CENMUKI,R1 8355+ S00290C F0 1400 IWT R0,#CENMUKI 8355+ S00290F 51 ADD R1 8355+ S002910 BC FROM R12 8355+ S002911 30 STW (R0) 8356 mSTW R12,CENEMU0,R1 ;[ mSTW CENXSDR,R1 ] 8356+ S002912 F0 10E0 IWT R0,#CENEMU0 8356+ S002915 51 ADD R1 8356+ S002916 BC FROM R12 8356+ S002917 30 STW (R0) 8357 mSTW R12,CECRSFG,R1 ;[ mSTW CENCRPT,R1 ] 8357+ S002918 F0 1D36 IWT R0,#CECRSFG 8357+ S00291B 51 ADD R1 8357+ S00291C BC FROM R12 8357+ S00291D 30 STW (R0) 8358 mSTW R12,CENWRK0,R1 ;[ mSTW CENWRK1,R1 ] 8358+ S00291E F0 1978 IWT R0,#CENWRK0 8358+ S002921 51 ADD R1 8358+ S002922 BC FROM R12 8358+ S002923 30 STW (R0) 8359 mSTW R12,CENWRK2,R1 ;[ mSTW CENWRK3,R1 ] 8359+ S002924 F0 19D6 IWT R0,#CENWRK2 8359+ S002927 51 ADD R1 8359+ S002928 BC FROM R12 8359+ S002929 30 STW (R0) 8360 mSTW R12,CENWRK4,R1 ;[ mSTW CENWRK5,R1 ] 8360+ S00292A F0 19D8 IWT R0,#CENWRK4 8360+ S00292D 51 ADD R1 8360+ S00292E BC FROM R12 8360+ S00292F 30 STW (R0) 8361 mSTW R12,CENWRK6,R1 ;[ mSTW CENWRK7,R1 ] 8361+ S002930 F0 1A36 IWT R0,#CENWRK6 8361+ S002933 51 ADD R1 8361+ S002934 BC FROM R12 8361+ S002935 30 STW (R0) 8362 mSTW R12,CENWRK8,R1 ;[ mSTW CENWRK9,R1 ] 8362+ S002936 F0 1A38 IWT R0,#CENWRK8 8362+ S002939 51 ADD R1 8362+ S00293A BC FROM R12 8362+ S00293B 30 STW (R0) 8363 mSTW R12,CENTIM0,R1 8363+ S00293C F0 1A96 IWT R0,#CENTIM0 8363+ S00293F 51 ADD R1 8363+ S002940 BC FROM R12 8363+ S002941 30 STW (R0) 8364 mSTW R12,CENTIM1,R1 8364+ S002942 F0 1A98 IWT R0,#CENTIM1 8364+ S002945 51 ADD R1 8364+ S002946 BC FROM R12 8364+ S002947 30 STW (R0) 8365 mSTW R12,CENTIM2,R1 8365+ S002948 F0 1AF6 IWT R0,#CENTIM2 8365+ S00294B 51 ADD R1 8365+ S00294C BC FROM R12 8365+ S00294D 30 STW (R0) 8366 mSTW R12,CENTIM3,R1 8366+ S00294E F0 1AF8 IWT R0,#CENTIM3 8366+ S002951 51 ADD R1 8366+ S002952 BC FROM R12 8366+ S002953 30 STW (R0) 8367 mSTW R12,CENCHPT,R1 8367+ S002954 F0 1402 IWT R0,#CENCHPT 8367+ S002957 51 ADD R1 8367+ S002958 BC FROM R12 8367+ S002959 30 STW (R0) 8368 mSTW R12,CENCBFG,R1 8368+ S00295A F0 1860 IWT R0,#CENCBFG 8368+ S00295D 51 ADD R1 8368+ S00295E BC FROM R12 8368+ S00295F 30 STW (R0) 8369 mSTW R12,CENSLOP,R1 ;[ mSTW R12,CEN_ADD_XSP,R1 ] 8369+ S002960 F0 0F02 IWT R0,#CENSLOP 8369+ S002963 51 ADD R1 8369+ S002964 BC FROM R12 8369+ S002965 30 STW (R0) 8370 mSTW R12,CENSHOT,R1 8370+ S002966 F0 1D38 IWT R0,#CENSHOT 8370+ S002969 51 ADD R1 8370+ S00296A BC FROM R12 8370+ S00296B 30 STW (R0) 8371 mSTW R12,CENBGYP,R1 8371+ S00296C F0 1720 IWT R0,#CENBGYP 8371+ S00296F 51 ADD R1 8371+ S002970 BC FROM R12 8371+ S002971 30 STW (R0) 8372 mSTW R12,CENDSXL,R1 8372+ S002972 F0 1680 IWT R0,#CENDSXL 8372+ S002975 51 ADD R1 8372+ S002976 BC FROM R12 8372+ S002977 30 STW (R0) 8373 mSTW R12,CENDSYL,R1 8373+ S002978 F0 1682 IWT R0,#CENDSYL 8373+ S00297B 51 ADD R1 8373+ S00297C BC FROM R12 8373+ S00297D 30 STW (R0) 8374 mSTW R12,CENXPOW,R1 8374+ S00297E F0 1540 IWT R0,#CENXPOW 8374+ S002981 51 ADD R1 8374+ S002982 BC FROM R12 8374+ S002983 30 STW (R0) 8375 mSTW R12,CENXMAX,R1 8375+ S002984 F0 15E0 IWT R0,#CENXMAX 8375+ S002987 51 ADD R1 8375+ S002988 BC FROM R12 8375+ S002989 30 STW (R0) 8376 mSTW R12,CENWRKX,R1 ;[ mSTW CENSPTM,R1 ] 8376+ S00298A F0 17C0 IWT R0,#CENWRKX 8376+ S00298D 51 ADD R1 8376+ S00298E BC FROM R12 8376+ S00298F 30 STW (R0) 8377 S002990 EC DEC R12 ;[ IBT R12,#0FFFFH ] 8378 mSTW R12,CENOAML,R1 8378+ S002991 F0 1362 IWT R0,#CENOAML 8378+ S002994 51 ADD R1 8378+ S002995 BC FROM R12 8378+ S002996 30 STW (R0) 8379 mSTW R12,CENTROB,R1 8379+ S002997 F0 1722 IWT R0,#CENTROB 8379+ S00299A 51 ADD R1 8379+ S00299B BC FROM R12 8379+ S00299C 30 STW (R0) 8380 S00299D FC 1FFF IWT R12,#0FFH+(((100H/8)-1)*100H) 8381 mSTW R12,CENWATR,R1 8381+ S0029A0 F0 1862 IWT R0,#CENWATR 8381+ S0029A3 51 ADD R1 8381+ S0029A4 BC FROM R12 8381+ S0029A5 30 STW (R0) 8382 ; 8383 mSTW R5,CENMYNO,R1 ;敵Ｎｏ．セット 8383+ S0029A6 F0 1360 IWT R0,#CENMYNO 8383+ S0029A9 51 ADD R1 8383+ S0029AA B5 FROM R5 8383+ S0029AB 30 STW (R0) 8384 ; 8385 S0029AC B5 FROM R5 8386 S0029AD 1C TO R12 ;(R12) <-- 敵Ｎｏ．x2 8387 S0029AE 55 ADD R5 8388 ; 8389 S0029AF 3E AE 2E SMS R14,REG14 ;(R14) save 8390 ; 8391 S0029B2 F0 0000" IWT R0,#ENCHR_BNK 8392 S0029B5 1E TO R14 8393 S0029B6 5C ADD R12 8394 S0029B7 1D TO R13 8395 S0029B8 EF GETB ;(R0) <-- 敵キャラクターバンク 8396 ; 8397 S0029B9 F5 0EBB IWT R5,#COBJCHR_BNK+(6-1) 8398 S0029BC AE 06 IBT R14,#6 8399 M_ENINSR_030 8400 S0029BE 3D 45 LDB (R5) 8401 S0029C0 6D SUB R13 8402 S0029C1 09 08' BEQ M_ENINSR_040 ;自分のキャラクターバンク有り？ ( yes:M_ENINSR_040 ) 8403 S0029C3 EE DEC R14 8404 ; 8405 S0029C4 08 F8' BNE M_ENINSR_030 8406 S0029C6 E5 DEC R5 8407 ; 8408 S0029C7 15 TO R5 8409 S0029C8 05 07' BRA M_ENINSR_050 8410 S0029CA 60 SUB R0 ;[ IBT R5,#0 ] 8411 ; 8412 M_ENINSR_040 8413 S0029CB BE FROM R14 ;[ 8 --> 8*4*8 = 100H ] 8414 S0029CC 3E 58 ADD #8 ;[ 9 --> 9*4*8 = 120H ] 8415 S0029CE 50 ADD R0 ;[ " ] 8416 S0029CF 15 TO R5 ;[ " ] 8417 S0029D0 50 ADD R0 ;[ " ] 8418 M_ENINSR_050 8419 mSTW R5,CENCHRB,R1 ;[ mSTW CENYSDR,R1 ] 8419+ S0029D1 F0 1180 IWT R0,#CENCHRB 8419+ S0029D4 51 ADD R1 8419+ S0029D5 B5 FROM R5 8419+ S0029D6 30 STW (R0) 8420 ; 8421 S0029D7 F0 0000" IWT R0,#ENDATA0 8422 S0029DA 1E TO R14 8423 S0029DB 5C ADD R12 8424 S0029DC 15 TO R5 8425 S0029DD EF GETB 8426 S0029DE DE INC R14 8427 mSTW R5,CENYUSN,R1 8427+ S0029DF F0 14A2 IWT R0,#CENYUSN 8427+ S0029E2 51 ADD R1 8427+ S0029E3 B5 FROM R5 8427+ S0029E4 30 STW (R0) 8428 S0029E5 EF GETB 8429 S0029E6 A5 20 IBT R5,#020H ;pri. initial set 8430 S0029E8 15 TO R5 8431 S0029E9 3D C5 XOR R5 8432 mSTW R5,CENCLOR,R1 8432+ S0029EB F0 1042 IWT R0,#CENCLOR 8432+ S0029EE 51 ADD R1 8432+ S0029EF B5 FROM R5 8432+ S0029F0 30 STW (R0) 8433 S0029F1 F0 0000" IWT R0,#ENDATA1 8434 S0029F4 1E TO R14 8435 S0029F5 5C ADD R12 8436 S0029F6 15 TO R5 8437 S0029F7 3F EF GETBS 8438 S0029F9 DE INC R14 8439 mSTW R5,CENGPOW,R1 8439+ S0029FA F0 1542 IWT R0,#CENGPOW 8439+ S0029FD 51 ADD R1 8439+ S0029FE B5 FROM R5 8439+ S0029FF 30 STW (R0) 8440 S002A00 3F EF GETBS 8441 S002A02 3E 88 MULT #8 ;x10H 8442 S002A04 15 TO R5 ; 8443 S002A05 50 ADD R0 ; 8444 mSTW R5,CENGMAX,R1 8444+ S002A06 F0 15E2 IWT R0,#CENGMAX 8444+ S002A09 51 ADD R1 8444+ S002A0A B5 FROM R5 8444+ S002A0B 30 STW (R0) 8445 S002A0C F0 0000" IWT R0,#ENMODE1 8446 S002A0F 1E TO R14 8447 S002A10 5C ADD R12 8448 S002A11 EF GETB 8449 S002A12 DE INC R14 8450 S002A13 15 TO R5 8451 S002A14 3D EF GETBH 8452 mSTW R5,CENMOD1,R1 8452+ S002A16 F0 0FA2 IWT R0,#CENMOD1 8452+ S002A19 51 ADD R1 8452+ S002A1A B5 FROM R5 8452+ S002A1B 30 STW (R0) 8453 S002A1C F0 0000" IWT R0,#ENMODE2 8454 S002A1F 1E TO R14 8455 S002A20 5C ADD R12 8456 S002A21 EF GETB 8457 S002A22 DE INC R14 8458 S002A23 15 TO R5 8459 S002A24 3D EF GETBH 8460 mSTW R5,CENMOD2,R1 8460+ S002A26 F0 1040 IWT R0,#CENMOD2 8460+ S002A29 51 ADD R1 8460+ S002A2A B5 FROM R5 8460+ S002A2B 30 STW (R0) 8461 S002A2C F0 0000" IWT R0,#ENMODE0 8462 S002A2F 1E TO R14 8463 S002A30 5C ADD R12 8464 S002A31 EF GETB 8465 S002A32 DE INC R14 8466 S002A33 15 TO R5 8467 S002A34 3D EF GETBH 8468 mSTW R5,CENMOD0,R1 8468+ S002A36 F0 0FA0 IWT R0,#CENMOD0 8468+ S002A39 51 ADD R1 8468+ S002A3A B5 FROM R5 8468+ S002A3B 30 STW (R0) 8469 ; 8470 S002A3C A0 1F IBT R0,#001FH 8471 S002A3E 75 AND R5 8472 S002A3F 50 ADD R0 ;[ ASL ] 8473 S002A40 50 ADD R0 ;[ ASL ] 8474 S002A41 50 ADD R0 ;[ ASL ] 8475 S002A42 FE 0000" IWT R14,#ENCRDT 8476 S002A45 1E TO R14 8477 S002A46 5E ADD R14 8478 S002A47 EF GETB 8479 S002A48 DE INC R14 8480 S002A49 15 TO R5 8481 S002A4A 3D EF GETBH 8482 S002A4C DE INC R14 8483 mSTW R5,CECNTXW,R1 8483+ S002A4D F0 1B56 IWT R0,#CECNTXW 8483+ S002A50 51 ADD R1 8483+ S002A51 B5 FROM R5 8483+ S002A52 30 STW (R0) 8484 S002A53 EF GETB 8485 S002A54 DE INC R14 8486 S002A55 15 TO R5 8487 S002A56 3D EF GETBH 8488 S002A58 DE INC R14 8489 mSTW R5,CECNTYW,R1 8489+ S002A59 F0 1B58 IWT R0,#CECNTYW 8489+ S002A5C 51 ADD R1 8489+ S002A5D B5 FROM R5 8489+ S002A5E 30 STW (R0) 8490 S002A5F EF GETB 8491 S002A60 DE INC R14 8492 S002A61 15 TO R5 8493 S002A62 3D EF GETBH 8494 S002A64 DE INC R14 8495 mSTW R5,CEWIDEX,R1 8495+ S002A65 F0 1BB6 IWT R0,#CEWIDEX 8495+ S002A68 51 ADD R1 8495+ S002A69 B5 FROM R5 8495+ S002A6A 30 STW (R0) 8496 S002A6B EF GETB 8497 S002A6C DE INC R14 8498 S002A6D 15 TO R5 8499 S002A6E 3D EF GETBH 8500 mSTW R5,CEWIDEY,R1 8500+ S002A70 F0 1BB8 IWT R0,#CEWIDEY 8500+ S002A73 51 ADD R1 8500+ S002A74 B5 FROM R5 8500+ S002A75 30 STW (R0) 8501 ; 8502 S002A76 3D AE 2E LMS R14,REG14 ;(R14) load 8503 ; 8504 mRTS_X 8504+ S002A79 9B JMP R11 8505 S002A7A 60 SUB R0 ;(N) <-- エリア有り 8506 ; 8507 ;************************************************************************ 8508 ;* * 8509 ;* 効果エリア確保 * 8510 ;* in: * 8511 ;* (R5) <-- 効果Ｎｏ． * 8512 ;* out: * 8513 ;* (R1) <-- 効果インデックス * 8514 ;* break: * 8515 ;* (R12) * 8516 ;* (R13) * 8517 ;* (REG14) * 8518 ;* * 8519 ;************************************************************************ 8520 002A7B M_EXINSR EQU $ 8521 S002A7B F1 0EFC IWT R1,#CEXMODE+(CEXNO-1)*4 ;(R1) <-- 効果モードポインター 8522 ; 8523 S002A7E AC 10 IBT R12,#CEXNO 8524 S002A80 2F 1D MOVE R13,R15 8525 M_EXINSR_010 8526 S002A82 3D 41 LDB (R1) 8527 S002A84 3E 60 SUB #0 8528 S002A86 09 17' BEQ M_EXINSR_030 ;空きあり？( yes:M_EXINSR_030 ) 8529 S002A88 E1 DEC R1 8530 ; 8531 S002A89 E1 DEC R1 8532 S002A8A E1 DEC R1 8533 S002A8B 3C LOOP 8534 S002A8C E1 DEC R1 8535 ; 8536 S002A8D 3D F0 1E4A LM R0,CEXSTCT 8537 S002A91 E0 DEC R0 8538 S002A92 E0 DEC R0 8539 S002A93 E0 DEC R0 8540 S002A94 E0 DEC R0 8541 S002A95 0A 03' BPL M_EXINSR_020 8542 S002A97 01 NOP 8543 ; 8544 S002A98 A0 3C IBT R0,#(CEXNO-1)*4 8545 M_EXINSR_020 8546 S002A9A 90 SBK 8547 ; 8548 S002A9B 03 LSR 8549 S002A9C 1C TO R12 8550 S002A9D 03 LSR 8551 S002A9E DC INC R12 8552 ; 8553 M_EXINSR_030 8554 S002A9F EC DEC R12 8555 S002AA0 BC FROM R12 8556 S002AA1 5C ADD R12 8557 S002AA2 11 TO R1 ;(R1) <-- 効果のインデックス 8558 S002AA3 50 ADD R0 8559 ; 8560 S002AA4 AC 0E IBT R12,#CENOK ;move "ON" 8561 mSTW R12,CEXMODE,R1 8561+ S002AA6 F0 0EC0 IWT R0,#CEXMODE 8561+ S002AA9 51 ADD R1 8561+ S002AAA BC FROM R12 8561+ S002AAB 30 STW (R0) 8562 S002AAC FC 00FF IWT R12,#00FFH 8563 mSTW R12,CEXRETN,R1 ;[ mSTW CEXDORE,R1 ] 8563+ S002AAF F0 1460 IWT R0,#CEXRETN 8563+ S002AB2 51 ADD R1 8563+ S002AB3 BC FROM R12 8563+ S002AB4 30 STW (R0) 8564 ; 8565 S002AB5 AC 00 IBT R12,#0 8566 mSTW R12,CEXXSPD,R1 8566+ S002AB7 F0 11E0 IWT R0,#CEXXSPD 8566+ S002ABA 51 ADD R1 8566+ S002ABB BC FROM R12 8566+ S002ABC 30 STW (R0) 8567 mSTW R12,CEXYSPD,R1 8567+ S002ABD F0 11E2 IWT R0,#CEXYSPD 8567+ S002AC0 51 ADD R1 8567+ S002AC1 BC FROM R12 8567+ S002AC2 30 STW (R0) 8568 mSTW R12,CEXMUKI,R1 8568+ S002AC3 F0 13C0 IWT R0,#CEXMUKI 8568+ S002AC6 51 ADD R1 8568+ S002AC7 BC FROM R12 8568+ S002AC8 30 STW (R0) 8569 mSTW R12,CEXEMU0,R1 ;[ mSTW CEXXSDR,R1 ] 8569+ S002AC9 F0 10A0 IWT R0,#CEXEMU0 8569+ S002ACC 51 ADD R1 8569+ S002ACD BC FROM R12 8569+ S002ACE 30 STW (R0) 8570 mSTW R12,CEXWRK0,R1 ;[ mSTW CEXWRK1,R1 ] 8570+ S002ACF F0 1E4C IWT R0,#CEXWRK0 8570+ S002AD2 51 ADD R1 8570+ S002AD3 BC FROM R12 8570+ S002AD4 30 STW (R0) 8571 mSTW R12,CEXWRK2,R1 ;[ mSTW CEXWRK3,R1 ] 8571+ S002AD5 F0 1E4E IWT R0,#CEXWRK2 8571+ S002AD8 51 ADD R1 8571+ S002AD9 BC FROM R12 8571+ S002ADA 30 STW (R0) 8572 mSTW R12,CEXWRK4,R1 ;[ mSTW CEXWRK5,R1 ] 8572+ S002ADB F0 1E8C IWT R0,#CEXWRK4 8572+ S002ADE 51 ADD R1 8572+ S002ADF BC FROM R12 8572+ S002AE0 30 STW (R0) 8573 mSTW R12,CEXTIM0,R1 8573+ S002AE1 F0 1782 IWT R0,#CEXTIM0 8573+ S002AE4 51 ADD R1 8573+ S002AE5 BC FROM R12 8573+ S002AE6 30 STW (R0) 8574 mSTW R12,CEXTIM1,R1 8574+ S002AE7 F0 1E8E IWT R0,#CEXTIM1 8574+ S002AEA 51 ADD R1 8574+ S002AEB BC FROM R12 8574+ S002AEC 30 STW (R0) 8575 mSTW R12,CEXCHPT,R1 8575+ S002AED F0 13C2 IWT R0,#CEXCHPT 8575+ S002AF0 51 ADD R1 8575+ S002AF1 BC FROM R12 8575+ S002AF2 30 STW (R0) 8576 mSTW R12,CEXCBFG,R1 8576+ S002AF3 F0 1820 IWT R0,#CEXCBFG 8576+ S002AF6 51 ADD R1 8576+ S002AF7 BC FROM R12 8576+ S002AF8 30 STW (R0) 8577 mSTW R12,CEXSLOP,R1 ;[ mSTW R12,CEX_ADD_XSP,R1 ] 8577+ S002AF9 F0 0EC2 IWT R0,#CEXSLOP 8577+ S002AFC 51 ADD R1 8577+ S002AFD BC FROM R12 8577+ S002AFE 30 STW (R0) 8578 mSTW R12,CEXBGYP,R1 8578+ S002AFF F0 16E0 IWT R0,#CEXBGYP 8578+ S002B02 51 ADD R1 8578+ S002B03 BC FROM R12 8578+ S002B04 30 STW (R0) 8579 mSTW R12,CEXDSXL,R1 8579+ S002B05 F0 1640 IWT R0,#CEXDSXL 8579+ S002B08 51 ADD R1 8579+ S002B09 BC FROM R12 8579+ S002B0A 30 STW (R0) 8580 mSTW R12,CEXDSYL,R1 8580+ S002B0B F0 1642 IWT R0,#CEXDSYL 8580+ S002B0E 51 ADD R1 8580+ S002B0F BC FROM R12 8580+ S002B10 30 STW (R0) 8581 mSTW R12,CEXXPOW,R1 8581+ S002B11 F0 1500 IWT R0,#CEXXPOW 8581+ S002B14 51 ADD R1 8581+ S002B15 BC FROM R12 8581+ S002B16 30 STW (R0) 8582 mSTW R12,CEXXMAX,R1 8582+ S002B17 F0 15A0 IWT R0,#CEXXMAX 8582+ S002B1A 51 ADD R1 8582+ S002B1B BC FROM R12 8582+ S002B1C 30 STW (R0) 8583 mSTW R12,CEXWRKX,R1 ;[ mSTW CEXSPTM,R1 ] 8583+ S002B1D F0 1780 IWT R0,#CEXWRKX 8583+ S002B20 51 ADD R1 8583+ S002B21 BC FROM R12 8583+ S002B22 30 STW (R0) 8584 S002B23 EC DEC R12 ;[ IBT R12,#0FFFFH ] 8585 mSTW R12,CEXOAML,R1 8585+ S002B24 F0 1322 IWT R0,#CEXOAML 8585+ S002B27 51 ADD R1 8585+ S002B28 BC FROM R12 8585+ S002B29 30 STW (R0) 8586 mSTW R12,CEXTROB,R1 8586+ S002B2A F0 16E2 IWT R0,#CEXTROB 8586+ S002B2D 51 ADD R1 8586+ S002B2E BC FROM R12 8586+ S002B2F 30 STW (R0) 8587 S002B30 FC 1FFF IWT R12,#0FFH+(((100H/8)-1)*100H) 8588 mSTW R12,CEXWATR,R1 8588+ S002B33 F0 1822 IWT R0,#CEXWATR 8588+ S002B36 51 ADD R1 8588+ S002B37 BC FROM R12 8588+ S002B38 30 STW (R0) 8589 ; 8590 mSTW R5,CEXSTNO,R1 ;exstra no. set 8590+ S002B39 F0 1320 IWT R0,#CEXSTNO 8590+ S002B3C 51 ADD R1 8590+ S002B3D B5 FROM R5 8590+ S002B3E 30 STW (R0) 8591 ; 8592 S002B3F B5 FROM R5 8593 S002B40 1C TO R12 ;(R12) <-- 敵Ｎｏ．x2 8594 S002B41 55 ADD R5 8595 ; 8596 S002B42 3E AE 2E SMS R14,REG14 ;(R14) save 8597 ; 8598 S002B45 F0 FC8C" IWT R0,#EXCHR_BNK-EXSTART*2 8599 S002B48 1E TO R14 8600 S002B49 5C ADD R12 8601 S002B4A 1D TO R13 8602 S002B4B EF GETB ;(R0) <-- 敵キャラクターバンク 8603 ; 8604 S002B4C F5 0EBB IWT R5,#COBJCHR_BNK+(6-1) 8605 S002B4F AE 06 IBT R14,#6 8606 M_EXINSR_040 8607 S002B51 3D 45 LDB (R5) 8608 S002B53 6D SUB R13 8609 S002B54 09 08' BEQ M_EXINSR_050 ;自分のキャラクターバンク有り？ ( yes:M_EXINSR_050 ) 8610 S002B56 EE DEC R14 8611 ; 8612 S002B57 08 F8' BNE M_EXINSR_040 8613 S002B59 E5 DEC R5 8614 ; 8615 S002B5A 15 TO R5 8616 S002B5B 05 07' BRA M_EXINSR_060 8617 S002B5D 60 SUB R0 ;[ IBT R5,#0 ] 8618 ; 8619 M_EXINSR_050 8620 S002B5E BE FROM R14 ;[ 8 --> 8*4*8 = 100H ] 8621 S002B5F 3E 58 ADD #8 ;[ 9 --> 9*4*8 = 120H ] 8622 S002B61 50 ADD R0 ;[ " ] 8623 S002B62 15 TO R5 ;[ " ] 8624 S002B63 50 ADD R0 ;[ " ] 8625 M_EXINSR_060 8626 mSTW R5,CEXCHRB,R1 ;[ mSTW CEXYSDR,R1 ] 8626+ S002B64 F0 1140 IWT R0,#CEXCHRB 8626+ S002B67 51 ADD R1 8626+ S002B68 B5 FROM R5 8626+ S002B69 30 STW (R0) 8627 ; 8628 S002B6A F0 FC8C" IWT R0,#EXDATA0-EXSTART*2 8629 S002B6D 1E TO R14 8630 S002B6E 5C ADD R12 8631 S002B6F 15 TO R5 8632 S002B70 EF GETB 8633 S002B71 DE INC R14 8634 mSTW R5,CEXYUSN,R1 8634+ S002B72 F0 1462 IWT R0,#CEXYUSN 8634+ S002B75 51 ADD R1 8634+ S002B76 B5 FROM R5 8634+ S002B77 30 STW (R0) 8635 S002B78 EF GETB 8636 ;;;; IBT R5,#020H ;pri. initial set 8637 S002B79 A5 30 IBT R5,#030H ;pri. initial set 8638 S002B7B 15 TO R5 8639 S002B7C 3D C5 XOR R5 8640 mSTW R5,CEXCLOR,R1 8640+ S002B7E F0 1002 IWT R0,#CEXCLOR 8640+ S002B81 51 ADD R1 8640+ S002B82 B5 FROM R5 8640+ S002B83 30 STW (R0) 8641 S002B84 F0 FC8C" IWT R0,#EXDATA1-EXSTART*2 8642 S002B87 1E TO R14 8643 S002B88 5C ADD R12 8644 S002B89 15 TO R5 8645 S002B8A 3F EF GETBS 8646 S002B8C DE INC R14 8647 mSTW R5,CEXGPOW,R1 8647+ S002B8D F0 1502 IWT R0,#CEXGPOW 8647+ S002B90 51 ADD R1 8647+ S002B91 B5 FROM R5 8647+ S002B92 30 STW (R0) 8648 S002B93 3F EF GETBS 8649 S002B95 3E 88 MULT #8 ;x10H 8650 S002B97 15 TO R5 ; 8651 S002B98 50 ADD R0 ; 8652 mSTW R5,CEXGMAX,R1 8652+ S002B99 F0 15A2 IWT R0,#CEXGMAX 8652+ S002B9C 51 ADD R1 8652+ S002B9D B5 FROM R5 8652+ S002B9E 30 STW (R0) 8653 S002B9F F0 FC8C" IWT R0,#EXMODE0-EXSTART*2 8654 S002BA2 1E TO R14 8655 S002BA3 5C ADD R12 8656 S002BA4 EF GETB 8657 S002BA5 DE INC R14 8658 S002BA6 15 TO R5 8659 S002BA7 3D EF GETBH 8660 mSTW R5,CEXMOD0,R1 8660+ S002BA9 F0 0F60 IWT R0,#CEXMOD0 8660+ S002BAC 51 ADD R1 8660+ S002BAD B5 FROM R5 8660+ S002BAE 30 STW (R0) 8661 S002BAF F0 FC8C" IWT R0,#EXMODE1-EXSTART*2 8662 S002BB2 1E TO R14 8663 S002BB3 5C ADD R12 8664 S002BB4 EF GETB 8665 S002BB5 DE INC R14 8666 S002BB6 15 TO R5 8667 S002BB7 3D EF GETBH 8668 mSTW R5,CEXMOD1,R1 8668+ S002BB9 F0 0F62 IWT R0,#CEXMOD1 8668+ S002BBC 51 ADD R1 8668+ S002BBD B5 FROM R5 8668+ S002BBE 30 STW (R0) 8669 S002BBF F0 FC8C" IWT R0,#EXMODE2-EXSTART*2 8670 S002BC2 1E TO R14 8671 S002BC3 5C ADD R12 8672 S002BC4 EF GETB 8673 S002BC5 DE INC R14 8674 S002BC6 15 TO R5 8675 S002BC7 3D EF GETBH 8676 mSTW R5,CEXMOD2,R1 8676+ S002BC9 F0 1000 IWT R0,#CEXMOD2 8676+ S002BCC 51 ADD R1 8676+ S002BCD B5 FROM R5 8676+ S002BCE 30 STW (R0) 8677 ; 8678 S002BCF 3D AE 2E LMS R14,REG14 ;(R14) load 8679 mRTS 8679+ S002BD2 9B JMP R11 8679+ S002BD3 01 NOP 8680 ; 8681 ;************************************************************************ 8682 ;* キャラクター拡大、縮小（サイズ ３２×３２） * 8683 ;* （エリア １６×１６） * 8684 ;* 入力 ： (R2) <-- ビットマップ座標＿Ｙ * 8685 ;* (R3) <-- ” ＿Ｘ * 8686 ;* (R4) <-- Ｙ倍率（１００Ｈ＝１．０） * 8687 ;* (R6) <-- 倍率（１００Ｈ＝１．０） * 8688 ;* (R8) <-- 中心＿Ｘ * 8689 ;* (R9) <-- ”＿Ｙ * 8690 ;* (R12) <-- キャラクターアドレス（Ｌ，Ｈ）* 8691 ;* (R13) <-- ” (Ｂ） * 8692 ;************************************************************************ 8693 ; 8694 002BD4 R_32_ZOOM_16 EQU $ 8695 S002BD4 26 14 MOVE R4,R6 ;(R4) <-- Ｙ倍率セット 8696 ; 8697 002BD6 R_32_ZOOM_XY_16 EQU $ 8698 S002BD6 3E AB 33 SMS R11,RTS3 ;[ return address save ] 8699 ; 8700 S002BD9 A1 01 IBT R1,#01H ;(R1) <-- color mode initial set 8701 ; 8702 ;-------------- キャラクター倍率変換 ------------------------------------ vvv******* warn :value out of range 8703 S002BDB FB 2200 IWT R11,#DIVBUF 8704 S002BDE BB FROM R11 8705 S002BDF 56 ADD R6 8706 S002BE0 56 ADD R6 8707 S002BE1 16 TO R6 ;(R6) <-- キャラクター倍率 8708 S002BE2 40 LDW (R0) 8709 ; 8710 S002BE3 BB FROM R11 8711 S002BE4 54 ADD R4 8712 S002BE5 54 ADD R4 8713 S002BE6 1B TO R11 ;(R11) <-- キャラクター倍率 8714 S002BE7 40 LDW (R0) 8715 ; 8716 ;-------------- キャラクタースタートポインター計算 ---------------------- 8717 S002BE8 28 10 MOVE R0,R8 8718 S002BEA 1A TO R10 8719 S002BEB 4D SWAP 8720 S002BEC 50 ADD R0 ;x2 8721 S002BED 4F NOT 8722 S002BEE D0 INC R0 8723 S002BEF 3D 9F LMULT 8724 S002BF1 2A WITH R10 ;(R10) <-- SX * x_zoom 8725 S002BF2 54 ADD R4 8726 S002BF3 26 15 MOVE R5,R6 ;(R5) <-- Ｘ倍率 8727 ; 8728 S002BF5 2B 16 MOVE R6,R11 8729 S002BF7 29 10 MOVE R0,R9 8730 S002BF9 17 TO R7 8731 S002BFA 4D SWAP 8732 S002BFB 50 ADD R0 ;x2 8733 S002BFC 4F NOT 8734 S002BFD D0 INC R0 8735 S002BFE 3D 9F LMULT 8736 S002C00 27 WITH R7 ;(R7) <-- SY * y_zoom 8737 S002C01 54 ADD R4 8738 ; 8739 ;-------------- 書き込みモード ＆キャラクターアドレスセット ------------- 8740 S002C02 2C 10 MOVE R0,R12 8741 S002C04 03 LSR ;(C) <-- color mode 8742 S002C05 0C 04' BCC R_32_ZOOM_16_10 ;hight bit color ? ( no:R_32_ZOOM_16_10 ) 8743 S002C07 50 ADD R0 8744 ; 8745 S002C08 21 WITH R1 8746 S002C09 3E C4 OR #04H 8747 R_32_ZOOM_16_10 8748 S002C0B B1 FROM R1 8749 S002C0C 3D 4E CMODE ;color mode set 8750 S002C0E 20 16 MOVE R6,R0 ;(R6) <-- キャラクターアドレス（Ｌ，Ｈ）セット 8751 ; 8752 ;-------------- キャラクター書き込み ------------------------------------ 8753 S002C10 BD FROM R13 8754 S002C11 3F DF ROMB ;キャラクターアドレス (Ｂ）set 8755 ; 8756 S002C13 A4 20 IBT R4,#32 ;(R4) <-- Y loop set 8757 S002C15 24 19 MOVE R9,R4 ;(R9) <-- X loop set 8758 S002C17 FD 2C21' IWT R13,#R_32_ZOOM_16_30 ;(R13) <-- loop return address set 8759 ; 8760 S002C1A 02 CACHE 8761 ; 8762 R_32_ZOOM_16_20 8763 S002C1B 23 11 MOVE R1,R3 ;(R1) <-- plot start X pos set 8764 S002C1D 2A 18 MOVE R8,R10 ;(R8) <-- PX 8765 ; 8766 S002C1F 29 1C MOVE R12,R9 ;X loop set 8767 R_32_ZOOM_16_30 8768 S002C21 70 MERGE 8769 S002C22 09 0A' BEQ R_32_ZOOM_16_40 ;area over ? ( yes:R_32_ZOOM_16_40 ) 8770 S002C24 1E TO R14 8771 ; 8772 S002C25 56 ADD R6 8773 ; 8774 S002C26 28 WITH R8 8775 S002C27 55 ADD R5 8776 S002C28 DF GETC ;color set 8777 S002C29 3C LOOP 8778 S002C2A 4C PLOT ;pset 8779 ; 8780 S002C2B 05 08' BRA R_32_ZOOM_16_50+1 8781 S002C2D 27 WITH R7 8782 ; 8783 R_32_ZOOM_16_40 8784 S002C2E 28 WITH R8 8785 S002C2F 55 ADD R5 8786 S002C30 60 SUB R0 ;[ IBT R0,#00 ] 8787 S002C31 4E COLOUR ;color set 8788 S002C32 3C LOOP 8789 S002C33 4C PLOT ;pset 8790 ; 8791 R_32_ZOOM_16_50 8792 S002C34 27 WITH R7 8793 S002C35 5B ADD R11 8794 S002C36 E4 DEC R4 8795 S002C37 08 E2' BNE R_32_ZOOM_16_20 ;end ? ( no:R_32_ZOOM_16_20 ) 8796 S002C39 D2 INC R2 ;Y pos +1 8797 ; 8798 S002C3A 3D 4C RPIX 8799 ; 8800 S002C3C 3D AB 33 LMS R11,RTS3 ;[ return address load ] 8801 mRTS 8801+ S002C3F 9B JMP R11 8801+ S002C40 01 NOP 8802 ; 8803 ;************************************************************************ 8804 ;* キャラクター拡大、縮小、回転（サイズ ３２×３２） * 8805 ;* （Ｘ，Ｙ倍率設定タイプ） （エリア ３２×３２） * 8806 ;* 入力 ： (R2) <-- ビットマップ座標＿Ｙ * 8807 ;* (R3) <-- ” ＿Ｘ * 8808 ;* (R5) <-- 角度（０〜ＦＦＨ） * 8809 ;* (R6) <-- Ｘ倍率（１００Ｈ＝１．０） * 8810 ;* (R4) <-- Ｙ ” * 8811 ;* (R12) <-- キャラクターアドレス（Ｌ，Ｈ）* 8812 ;* (R13) <-- ” (Ｂ） * 8813 ;************************************************************************ 8814 ; 8815 R_32_RTZ_32 8816 S002C41 26 14 MOVE R4,R6 ;(R4) <-- Ｙ倍率セット 8817 ; 8818 R_32_RTZ_32_XY 8819 S002C43 A1 01 IBT R1,#01H ;(R1) <-- color mode initial set 8820 ; 8821 ;-------------- キャラクター倍率変換 ------------------------------------ 8822 R_32_RTZ_32_XY_C vvv******* warn :value out of range 8823 S002C45 F8 2200 IWT R8,#DIVBUF 8824 S002C48 B8 FROM R8 8825 S002C49 56 ADD R6 8826 S002C4A 56 ADD R6 8827 S002C4B 16 TO R6 ;(R6) <-- キャラクター倍率 8828 S002C4C 40 LDW (R0) 8829 ; 8830 S002C4D B8 FROM R8 8831 S002C4E 54 ADD R4 8832 S002C4F 54 ADD R4 8833 S002C50 18 TO R8 ;(R8) <-- キャラクター倍率 8834 S002C51 40 LDW (R0) 8835 ; 8836 002C52 R_32_RTZ_C32_XY EQU $ 8837 S002C52 3E AB 33 SMS R11,RTS3 ;[ return aadress save ] 8838 ; 8839 S002C55 25 WITH R5 8840 S002C56 55 ADD R5 8841 ; 8842 ;-------------- キャラクタースタートポインター計算 ---------------------- 8843 S002C57 A0 00" IBT R0,#BANK COS 8844 S002C59 3F DF ROMB 8845 S002C5B F0 0000" IWT R0,#COS 8846 S002C5E 1E TO R14 8847 S002C5F 55 ADD R5 8848 S002C60 EF GETB 8849 S002C61 DE INC R14 8850 S002C62 3D EF GETBH 8851 S002C64 20 1E MOVE R14,R0 8852 S002C66 3D 9F LMULT 8853 S002C68 24 WITH R4 8854 S002C69 C0 HIB 8855 S002C6A 9E LOB 8856 S002C6B 4D SWAP 8857 S002C6C 19 TO R9 ;(R9) <-- cos * α 8858 S002C6D C4 OR R4 8859 ; 8860 S002C6E 26 17 MOVE R7,R6 ;(R7) <-- α 8861 S002C70 28 16 MOVE R6,R8 8862 S002C72 BE FROM R14 8863 S002C73 3D 9F LMULT 8864 S002C75 24 WITH R4 8865 S002C76 C0 HIB 8866 S002C77 9E LOB 8867 S002C78 4D SWAP 8868 S002C79 18 TO R8 ;(R8) <---- cos * β 8869 S002C7A C4 OR R4 8870 S002C7B 3E A8 00 SMS R8,CWORK0 ;(CWK0) <-- " 8871 ; 8872 S002C7E F0 0000" IWT R0,#SIN 8873 S002C81 1E TO R14 8874 S002C82 55 ADD R5 8875 S002C83 EF GETB 8876 S002C84 DE INC R14 8877 S002C85 3D EF GETBH 8878 S002C87 20 1E MOVE R14,R0 8879 S002C89 3D 9F LMULT 8880 S002C8B 24 WITH R4 8881 S002C8C C0 HIB 8882 S002C8D 9E LOB 8883 S002C8E 4D SWAP 8884 S002C8F C4 OR R4 8885 S002C90 4F NOT 8886 S002C91 D0 INC R0 8887 S002C92 20 15 MOVE R5,R0 ;(R5) <--- -sin * β 8888 S002C94 58 ADD R8 ;(R0) <-- cos * β - sin * β 8889 S002C95 4F NOT 8890 S002C96 D0 INC R0 8891 S002C97 50 ADD R0 8892 S002C98 50 ADD R0 8893 S002C99 50 ADD R0 8894 S002C9A 50 ADD R0 8895 S002C9B FA 1000 IWT R10,#010H*100H ;(R10) <-- cxy 8896 S002C9E 1B TO R11 ;(R11) <-- (xy) * (cos * β - sin * β) + (cxy) 8897 S002C9F 5A ADD R10 8898 ; 8899 S002CA0 27 16 MOVE R6,R7 8900 S002CA2 BE FROM R14 8901 S002CA3 3D 9F LMULT 8902 S002CA5 24 WITH R4 8903 S002CA6 C0 HIB 8904 S002CA7 9E LOB 8905 S002CA8 4D SWAP 8906 S002CA9 C4 OR R4 8907 S002CAA 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- sin * α 8908 S002CAD 59 ADD R9 ;(R0) <-- cos * α + sin * α 8909 S002CAE 4F NOT 8910 S002CAF D0 INC R0 8911 S002CB0 50 ADD R0 8912 S002CB1 50 ADD R0 8913 S002CB2 50 ADD R0 8914 S002CB3 50 ADD R0 8915 S002CB4 1A TO R10 ;(R10) <-- (xy) * (cos * α + sin * α) + (cxy) 8916 S002CB5 5A ADD R10 8917 ; 8918 ;-------------- 書き込みモード ＆キャラクターアドレスセット ------------- 8919 S002CB6 2C 10 MOVE R0,R12 8920 S002CB8 03 LSR ;(C) <-- color mode 8921 S002CB9 0C 04' BCC R_32_RTZ_XY3210 ;hight bit color ? ( no:R_32_RTZ_XY3210 ) 8922 S002CBB 50 ADD R0 8923 ; 8924 S002CBC 21 WITH R1 8925 S002CBD 3E C4 OR #04H 8926 R_32_RTZ_XY3210 8927 S002CBF B1 FROM R1 8928 S002CC0 3D 4E CMODE ;color mode set 8929 S002CC2 20 16 MOVE R6,R0 ;(R6) <-- キャラクターアドレス（Ｌ，Ｈ）セット 8930 ; 8931 ;-------------- キャラクター書き込み ------------------------------------ 8932 S002CC4 BD FROM R13 8933 S002CC5 3F DF ROMB ;キャラクターアドレス（Ｂ）セット 8934 ; 8935 S002CC7 A4 20 IBT R4,#32 ;(R4) <-- Y loop set 8936 S002CC9 FD 2CD5' IWT R13,#R_32_RTZ_XY3230 ;(R13) <-- loop return address set 8937 ; 8938 S002CCC 02 CACHE 8939 ; 8940 R_32_RTZ_XY3220 8941 S002CCD 23 11 MOVE R1,R3 ;(R1) <-- plot start X pos set 8942 S002CCF 2A 18 MOVE R8,R10 ;(R8) <-- PX 8943 S002CD1 2B 17 MOVE R7,R11 ;(R7) <-- PY 8944 ; 8945 S002CD3 AC 20 IBT R12,#32 ;X loop set 8946 R_32_RTZ_XY3230 8947 S002CD5 70 MERGE 8948 S002CD6 0D 0E' BCS R_32_RTZ_XY3240 ;area over ? ( yes:R_32_RTZ_XY3240 ) 8949 S002CD8 1E TO R14 8950 ; 8951 S002CD9 56 ADD R6 8952 ; 8953 S002CDA 28 WITH R8 8954 S002CDB 59 ADD R9 8955 S002CDC 27 WITH R7 8956 S002CDD 55 ADD R5 8957 S002CDE DF GETC ;color set 8958 S002CDF 3C LOOP 8959 S002CE0 4C PLOT 8960 ; 8961 S002CE1 05 0C' BRA R_32_RTZ_XY3250+1 8962 S002CE3 3D A0 01 LMS R0,CWORK1 ;[ dummy ] 8963 ; 8964 R_32_RTZ_XY3240 8965 S002CE6 28 WITH R8 8966 S002CE7 59 ADD R9 8967 S002CE8 27 WITH R7 8968 S002CE9 55 ADD R5 8969 S002CEA 60 SUB R0 ;[ IBT R0,#00 ] 8970 S002CEB 4E COLOUR ;color set 8971 S002CEC 3C LOOP 8972 S002CED 4C PLOT ;pset 8973 ; 8974 R_32_RTZ_XY3250 8975 S002CEE 3D A0 01 LMS R0,CWORK1 ;(R0) <-- sin * α 8976 S002CF1 1A TO R10 8977 S002CF2 5A ADD R10 8978 S002CF3 3D A0 00 LMS R0,CWORK0 ;(R0) <-- cos * β 8979 S002CF6 1B TO R11 8980 S002CF7 5B ADD R11 8981 S002CF8 E4 DEC R4 8982 S002CF9 08 D2' BNE R_32_RTZ_XY3220 ;end ? ( no:R_32_RTZ_XY3220 ) 8983 S002CFB D2 INC R2 ;Y pos +1 8984 ; 8985 S002CFC 3D 4C RPIX 8986 ; 8987 S002CFE 3D AB 33 LMS R11,RTS3 ;[ return address load ] 8988 mRTS 8988+ S002D01 9B JMP R11 8988+ S002D02 01 NOP 8989 ; 8990 ;************************************************************************ 8991 ;* キャラクター拡大、縮小（サイズ ３２×３２） * 8992 ;* 入力 ： (R2) <-- ビットマップ座標＿Ｙ * 8993 ;* (R3) <-- ” ＿Ｘ * 8994 ;* (R6) <-- 倍率（１００Ｈ＝１．０） * 8995 ;* (R8) <-- 中心＿Ｘ * 8996 ;* (R9) <-- ”＿Ｙ * 8997 ;* (R12) <-- キャラクターアドレス（Ｌ，Ｈ）* 8998 ;* (R13) <-- ” (Ｂ） * 8999 ;************************************************************************ 9000 ; 9001 002D03 R_32_ZOOM EQU $ 9002 S002D03 26 14 MOVE R4,R6 ;(R4) <-- Ｙ倍率セット 9003 ; 9004 002D05 R_32_ZOOM_XY EQU $ 9005 S002D05 A1 01 IBT R1,#01H ;(R1) <-- color mode initial set 9006 ; 9007 002D07 R_32_ZOOM_XY_C EQU $ 9008 S002D07 3E AB 33 SMS R11,RTS3 ;[ return aadress save ] 9009 ; 9010 ;-------------- キャラクター倍率変換 ------------------------------------ vvv******* warn :value out of range 9011 S002D0A FB 2200 IWT R11,#DIVBUF 9012 S002D0D BB FROM R11 9013 S002D0E 56 ADD R6 9014 S002D0F 56 ADD R6 9015 S002D10 16 TO R6 ;(R6) <-- キャラクター倍率 9016 S002D11 40 LDW (R0) 9017 ; 9018 S002D12 BB FROM R11 9019 S002D13 54 ADD R4 9020 S002D14 54 ADD R4 9021 S002D15 1B TO R11 ;(R11) <-- キャラクター倍率 9022 S002D16 40 LDW (R0) 9023 ; 9024 ;-------------- キャラクタースタートポインター計算 ---------------------- 9025 S002D17 28 10 MOVE R0,R8 9026 S002D19 1A TO R10 9027 S002D1A 4D SWAP 9028 S002D1B 4F NOT 9029 S002D1C D0 INC R0 9030 S002D1D 3D 9F LMULT 9031 S002D1F 2A WITH R10 ;(R10) <-- SX * x_zoom 9032 S002D20 54 ADD R4 9033 S002D21 26 15 MOVE R5,R6 ;(R5) <-- Ｘ倍率 9034 ; 9035 S002D23 2B 16 MOVE R6,R11 9036 S002D25 29 10 MOVE R0,R9 9037 S002D27 17 TO R7 9038 S002D28 4D SWAP 9039 S002D29 4F NOT 9040 S002D2A D0 INC R0 9041 S002D2B 3D 9F LMULT 9042 S002D2D 27 WITH R7 ;(R7) <-- SY * y_zoom 9043 S002D2E 54 ADD R4 9044 ; 9045 ;-------------- 書き込みモード ＆キャラクターアドレスセット ------------- 9046 S002D2F 2C 10 MOVE R0,R12 9047 S002D31 03 LSR ;(C) <-- color mode 9048 S002D32 0C 04' BCC R_32_ZOOM_10 ;hight bit color ? ( no:R_32_ZOOM_10 ) 9049 S002D34 50 ADD R0 9050 ; 9051 S002D35 21 WITH R1 9052 S002D36 3E C4 OR #04H 9053 R_32_ZOOM_10 9054 S002D38 B1 FROM R1 9055 S002D39 3D 4E CMODE ;color mode set 9056 S002D3B 20 16 MOVE R6,R0 ;(R6) <-- キャラクターアドレス（Ｌ，Ｈ）セット 9057 ; 9058 ;-------------- キャラクター書き込み ------------------------------------ 9059 S002D3D BD FROM R13 9060 S002D3E 3F DF ROMB ;キャラクターアドレス (Ｂ）set 9061 ; 9062 S002D40 FD 2D4E' IWT R13,#R_32_ZOOM_30 ;(R13) <-- loop return address set 9063 S002D43 A4 20 IBT R4,#32 ;(R4) <-- Y loop set 9064 S002D45 24 19 MOVE R9,R4 ;(R9) <-- X loop set 9065 ; 9066 S002D47 02 CACHE 9067 ; 9068 R_32_ZOOM_20 9069 S002D48 23 11 MOVE R1,R3 ;(R1) <-- plot start X pos set 9070 S002D4A 2A 18 MOVE R8,R10 ;(R8) <-- PX 9071 ; 9072 S002D4C 29 1C MOVE R12,R9 ;X loop set 9073 R_32_ZOOM_30 9074 S002D4E 70 MERGE 9075 S002D4F 0D 0A' BCS R_32_ZOOM_40 ;area over ? ( yes:R_32_ZOOM_40 ) 9076 S002D51 1E TO R14 9077 ; 9078 S002D52 56 ADD R6 9079 ; 9080 S002D53 28 WITH R8 9081 S002D54 55 ADD R5 9082 S002D55 DF GETC ;color set 9083 S002D56 3C LOOP 9084 S002D57 4C PLOT ;pset 9085 ; 9086 S002D58 05 08' BRA R_32_ZOOM_50+1 9087 S002D5A 27 WITH R7 9088 ; 9089 R_32_ZOOM_40 9090 S002D5B 28 WITH R8 9091 S002D5C 55 ADD R5 9092 S002D5D 60 SUB R0 ;[ IBT R0,#00 ] 9093 S002D5E 4E COLOUR ;color set 9094 S002D5F 3C LOOP 9095 S002D60 4C PLOT ;pset 9096 ; 9097 R_32_ZOOM_50 9098 S002D61 27 WITH R7 9099 S002D62 5B ADD R11 9100 S002D63 E4 DEC R4 9101 S002D64 08 E2' BNE R_32_ZOOM_20 ;end ? ( no:R_32_ZOOM_20 ) 9102 S002D66 D2 INC R2 ;Y pos +1 9103 ; 9104 S002D67 3D 4C RPIX 9105 ; 9106 S002D69 3D AB 33 LMS R11,RTS3 ;[ return address load ] 9107 mRTS 9107+ S002D6C 9B JMP R11 9107+ S002D6D 01 NOP 9108 ; 9109 ; 9110 ; 9111 ; 9112 ; 9113 END