File : ys_mplay.asm SUPER-FX ASSEMBLER $Ver 1.01 Thu Aug 10 15:21:37 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 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 956 S000424 F0 FB80 IWT R0,#0FB80H 957 ELSE ;**** PAL 対応 [1995/7/24] ************************ 958 IWT R0,#0FAE4H 959 ENDIF 960 961 S000427 3E A0 55 SMS R0,CPLYSPD ;ジャンプＹスピードセット 962 ;;;; IBT R0,#01H 963 ;;;; SMS R0,CPLSPJP ;ジタバタジャンプフラグ”ＯＮ” 964 S00042A 05 0F' BRA YOSSY_SW_0220 965 S00042C 60 SUB R0 ;[ * 泳ぎキャンセル ] 966 ; 967 YOSSY_SW_0210 968 S00042D F0 0140 IWT R0,#101000000B 969 S000430 77 AND R7 970 S000431 08 1D' BNE YOSSY_SW_0240 ;水面に顔が出た？ ( no:YOSSY_SW_0240 ) 971 S000433 60 SUB R0 ;[ * R0 <- 0 ] 972 ; 973 S000434 3D A4 60 LMS R4,CPLJUMP 974 S000437 64 SUB R4 ;[ * CMP #0 : R0=0 ] 975 S000438 08 0D' BNE YOSSY_SW_0230 ;着地？ ( no:YOSSY_SW_0230 ) 976 S00043A 60 SUB R0 ;[ * 泳ぎキャンセル ] 977 ; 978 YOSSY_SW_0220 979 S00043B 3E A0 63 SMS R0,CPLSWIM ;泳ぎキャンセル 980 ; 981 ;-------------- 水しぶきセット ---------------------------------- 982 mJSR WTUP0_SET ;”バッシャーン”効果セット 982+ S00043E 94 LINK #4 982+ S00043F FF 0577' IWT R15, #WTUP0_SET 982+ S000442 01 NOP 983 mDJMP YOSSY_SW_0600 983+ S000443 FF 04E7' IWT R15, #YOSSY_SW_0600 983+ S000446 01 NOP 984 ; 985 YOSSY_SW_0230 986 S000447 A0 D0 IBT R0,#0D0H ;[ IWT R0,#0FFD0H ] 987 S000449 62 SUB R2 988 S00044A 0B 02' BMI YOSSY_SW_0232 ;上昇スピードオーバー？ ( no:YOSSY_SW_0232 ) 989 S00044C 12 TO R2 ;[ * ] 990 ; 991 S00044D 52 ADD R2 ;[ PLYSPD <-- 0FFD0H ] 992 YOSSY_SW_0232 993 S00044E A3 02 IBT R3,#02H ;(R2) <-- 重力 994 ; 995 ;-------------- あぶくセット ------------------------------------ 996 YOSSY_SW_0240 997 mJSR BABL0_SET ;あぶく効果セット 997+ S000450 94 LINK #4 997+ S000451 FF 0626' IWT R15, #BABL0_SET 997+ S000454 01 NOP 998 ; 999 ;-------------- 浮力セット -------------------------------------- 1000 YOSSY_SW_0250 1001 S000455 B2 FROM R2 1002 S000456 53 ADD R3 1003 S000457 F3 FF00 IWT R3,#0FF00H 1004 S00045A 63 SUB R3 1005 S00045B 0B 02' BMI YOSSY_SW_0300 ;上昇スピードオーバー？ ( no:YOSSY_SW_0300 ) 1006 S00045D 13 TO R3 1007 ; 1008 S00045E 53 ADD R3 1009 YOSSY_SW_0300 1010 S00045F 3E A3 55 SMS R3,CPLYSPD 1011 ; 1012 ;-------------- 泳ぎパターンセット ------------------------------ 1013 S000462 3D A1 7C LMS R1,CPLWALK ;(R1) <-- 泳ぎパターンカウンター 1014 S000465 3D A0 E9 LMS R0,CPLWKTM 1015 S000468 9E LOB 1016 S000469 08 36' BNE YOSSY_SW_0340 ;泳ぎパターン切り替え？ ( no:YOSSY_SW_0340 ) 1017 S00046B 01 NOP 1018 ; 1019 S00046C A0 04 IBT R0,#4 ;泳ぎパターン切り替えタイマーセット 1020 S00046E 90 SBK ;[ SMS R0,CPLWKTM ] 1021 ; 1022 S00046F 3D F0 0071 LM R0,CMKEYC1 ;(R0) <-- コントローラー情報（連続） 1023 S000473 3E 73 AND #00000011B ;[ (Z) <-- 移動キー入力？ ] 1024 ; 1025 S000475 A0 10 IBT R0,#(7+1)*2 ;(R0) <-- 目標泳ぎパターンカウンター（ダミー） 1026 S000477 08 10' BNE YOSSY_SW_0310 ;移動キー入力？ ( yes:YOSSY_SW_0310 ) 1027 S000479 01 NOP 1028 ; 1029 S00047A 3D A0 54 LMS R0,CPLXSPD 1030 S00047D A2 40 IBT R2,#040H 1031 S00047F 52 ADD R2 1032 S000480 F2 0081 IWT R2,#040H*2+1 1033 S000483 62 SUB R2 1034 S000484 0C 03' BCC YOSSY_SW_0310 ;移動中？？ ( no:YOSSY_SW_0310 ) 1035 S000486 60 SUB R0 ;(R0) <-- 目標泳ぎパターンカウンター 1036 ; 1037 S000487 A0 06 IBT R0,#3*2 ;(R0) <-- 目標泳ぎパターンカウンター 1038 YOSSY_SW_0310 1039 S000489 61 SUB R1 1040 S00048A 09 15' BEQ YOSSY_SW_0340 ;目標泳ぎパターンカウンター？ ( yes:YOSSY_SW_0340 ) 1041 S00048C 01 NOP ;(R0) <-- 泳ぎパターンカウンター加算値 1042 ; 1043 S00048D A0 FE IBT R0,#-2 ;(R0) <-- 泳ぎパターンカウンター加算値 1044 S00048F 0B 03' BMI YOSSY_SW_0320 1045 S000491 01 NOP 1046 ; 1047 S000492 A0 02 IBT R0,#2 ;(R0) <-- 泳ぎパターンカウンター加算値 1048 YOSSY_SW_0320 1049 S000494 11 TO R1 1050 S000495 51 ADD R1 1051 S000496 A0 0E IBT R0,#7*2 1052 S000498 61 SUB R1 1053 S000499 0D 03' BCS YOSSY_SW_0330 ;移動パターンＭＡＸオーバー？ ( no:YOSSY_SW_0330 ) 1054 S00049B 01 NOP 1055 ; 1056 S00049C A1 08 IBT R1,#4*2 1057 YOSSY_SW_0330 1058 S00049E 3E A1 7C SMS R1,CPLWALK ;泳ぎパターンカウンターセット 1059 ; 1060 YOSSY_SW_0340 1061 S0004A1 3D A0 68 LMS R0,CPLDWFG 1062 S0004A4 E0 DEC R0 1063 S0004A5 0B 10' BMI YOSSY_SW_0350 ;下向き？ ( no:YOSSY_SW_0350 ) 1064 S0004A7 D0 INC R0 1065 ; 1066 S0004A8 3E 69 SUB #9 1067 S0004AA 0D 0B' BCS YOSSY_SW_0350 ;下向き中間ポーズ？ ( no:YOSSY_SW_0350 ) 1068 S0004AC D1 INC R1 1069 ; 1070 ;-------------- 下向き中間ポーズパターンセット ---------- 1071 S0004AD 3E 59 ADD #9 1072 S0004AF 50 ADD R0 1073 S0004B0 FE 0000" IWT R14,#SWIM_DW_PATN 1074 S0004B3 1E TO R14 1075 S0004B4 05 07' BRA YOSSY_SW_0500 1076 S0004B6 5E ADD R14 1077 ; 1078 ;-------------- 泳ぎパターンセット ---------------------- 1079 YOSSY_SW_0350 1080 S0004B7 F0 0000" IWT R0,#SWIM_PATN 1081 S0004BA 51 ADD R1 1082 S0004BB 1E TO R14 1083 S0004BC 51 ADD R1 1084 ; 1085 ;-------------- パターンＮｏ．セット ------------------------------------ 1086 YOSSY_SW_0500 1087 ; 1088 ;-------------- 回転パターンセット ------------------------------ 1089 S0004BD 3D A0 A5 LMS R0,CPROTSP 1090 S0004C0 22 B0 MOVES R2,R0 1091 S0004C2 09 09' BEQ YOSSY_SW_0508 ;回転？ ( no:YOSSY_SW_0508 ) 1092 S0004C4 01 NOP 1093 ; 1094 mJSR PL_ROT_PATN_ST 1094+ S0004C5 94 LINK #4 1094+ S0004C6 FF 2587' IWT R15, #PL_ROT_PATN_ST 1094+ S0004C9 01 NOP 1095 S0004CA 05 1B' BRA YOSSY_SW_0600 1096 S0004CC 01 NOP 1097 ; 1098 YOSSY_SW_0508 1099 S0004CD 3D A0 A8 LMS R0,CBERFLG 1100 S0004D0 E0 DEC R0 1101 S0004D1 0A 14' BPL YOSSY_SW_0600 ;舌ショット中？ ( yes:YOSSY_SW_0600 ) 1102 S0004D3 01 NOP 1103 ; 1104 S0004D4 3D A0 6F LMS R0,CPLNAGE 1105 S0004D7 9E LOB 1106 S0004D8 09 06' BEQ YOSSY_SW_0510 ;タマゴ投げ中？ ( no:YOSSY_SW_0510 ) 1107 S0004DA 50 ADD R0 ;x2 1108 ; 1109 ;-------------- タマゴ投げパターンセット ---------------------- 1110 S0004DB FE FFFE" IWT R14,#NAGE_PATN-2 1111 S0004DE 1E TO R14 1112 S0004DF 5E ADD R14 1113 ; 1114 YOSSY_SW_0510 1115 S0004E0 EF GETB 1116 S0004E1 DE INC R14 1117 S0004E2 3D EF GETBH ;(R0) <-- パターンＮｏ． 1118 S0004E4 3E A0 5F SMS R0,CPLPATN ;パターンＮｏ．セット 1119 ; 1120 YOSSY_SW_0600 1121 S0004E7 60 SUB R0 ;<<< end >>> 1122 S0004E8 00 STOP 1123 S0004E9 01 NOP 1124 ; 1125 ;------------------------------------------------------------------------ 1126 ;- 水中チェック - 1127 ;------------------------------------------------------------------------ 1128 WATR_CHECK 1129 S0004EA 3E AB 32 SMS R11,RTS2 ;[ return address save ] 1130 ; 1131 S0004ED F1 0194 IWT R1,#110010100B ;(R1) <-- 左チェックデータ 1132 S0004F0 3D A0 46 LMS R0,CPLXPSL 1133 S0004F3 3E 78 AND #08H 1134 S0004F5 09 03' BEQ WATR_CHECK_0010 1135 S0004F7 01 NOP 1136 ; 1137 S0004F8 A1 69 IBT R1,#001101001B ;(R1) <-- 右チェックデータ 1138 WATR_CHECK_0010 1139 S0004FA 3D A0 7F LMS R0,CPLWATR 1140 S0004FD 71 AND R1 1141 S0004FE 61 SUB R1 1142 S0004FF 09 44' BEQ WATR_CHECK_0100 ;水中につかってる？ ( yes:WATR_CHECK_0100 ) 1143 S000501 51 ADD R1 1144 ; 1145 ;-------------- 水中歩きチェック ---------------------------------------- 1146 S000502 A4 0C IBT R4,#0CH ;(R4) <-- ”バッシャーン”セットＹ位置 1147 ; 1148 S000504 F1 00A0 IWT R1,#010100000B 1149 S000507 71 AND R1 1150 S000508 09 08' BEQ WATR_CHECK_0020 ;足下水中？ ( no:WATR_CHECK_0020 ) 1151 S00050A 01 NOP 1152 ; 1153 S00050B 3D A0 60 LMS R0,CPLJUMP 1154 S00050E E0 DEC R0 1155 S00050F 0B 0B' BMI WATR_CHECK_0030 ;着地？ ( yes:WATR_CHECK_0030 ) 1156 S000511 01 NOP 1157 ; 1158 WATR_CHECK_0020 1159 S000512 3D A0 64 LMS R0,CPLSWLK 1160 S000515 E0 DEC R0 1161 S000516 0A 51' BPL WATR_CHECK_0110 ;前回水中歩き？ ( yes:WATR_CHECK_0110 ) 1162 S000518 01 NOP 1163 ; 1164 S000519 05 57' BRA WATR_CHECK_0300 1165 S00051B 01 NOP 1166 ; 1167 WATR_CHECK_0030 1168 S00051C 3D A0 64 LMS R0,CPLSWLK 1169 S00051F 3E A0 7D SMS R0,CPLBGNO ;水中歩きセット 1170 S000522 E0 DEC R0 1171 S000523 0B 11' BMI WATR_CHECK_0040 ;前回水中歩き？ ( no:WATR_CHECK_0040 ) 1172 S000525 01 NOP 1173 ; 1174 ;-------------- 水中歩き処理 ------------------------------------ 1175 S000526 3D A0 61 LMS R0,CPLSITD 1176 S000529 3E 62 SUB #2 1177 S00052B 09 40' BEQ WATR_CHECK_0200 ;座った時の水しぶきセット？ ( yes:WATR_CHECK_0200 ) 1178 S00052D 01 NOP 1179 ; 1180 mJSR WTUP1_SET ;”ピチャピチャ”効果セット 1180+ S00052E 94 LINK #4 1180+ S00052F FF 05BE' IWT R15, #WTUP1_SET 1180+ S000532 01 NOP 1181 S000533 05 3D' BRA WATR_CHECK_0300 1182 S000535 01 NOP 1183 ; 1184 ;-------------- 水中歩き初期セット ------------------------------ 1185 WATR_CHECK_0040 1186 S000536 A0 00" IBT R0,#ON_WATR ;水中歩きフラグセット 1187 S000538 3E A0 64 SMS R0,CPLSWLK 1188 S00053B 60 SUB R0 ;Ｘスピードクリアー 1189 S00053C 3E A0 5A SMS R0,CPLMVSP 1190 S00053F 3E A0 54 SMS R0,CPLXSPD 1191 S000542 05 29' BRA WATR_CHECK_0200 1192 S000544 01 NOP 1193 ; 1194 ;-------------- 水中泳ぎチェック ---------------------------------------- 1195 WATR_CHECK_0100 1196 S000545 A4 00 IBT R4,#00H ;(R4) <-- ”バッシャーン”セットＹ位置 1197 ; 1198 ;;;; LMS R0,CPLJUMP 1199 ;;;; SUB #0 1200 ;;;; BEQ WATR_CHECK_0200 ;着地？ ( yes:WATR_CHECK_0200 ) 1201 ;;;; NOP 1202 ; 1203 S000547 3D A1 55 LMS R1,CPLYSPD ;(R1) <-- Ｙスピード 1204 S00054A 21 B1 MOVES R1,R1 1205 S00054C 0B 1F' BMI WATR_CHECK_0200 ;上昇中？ ( yes:WATR_CHECK_0200 ) 1206 S00054E 60 SUB R0 ;[ R0 <- 0 ] 1207 ; 1208 S00054F 3E A0 6A SMS R0,CPLDOSN ;”ドスーン！！”フラグリセット 1209 S000552 3E A0 7C SMS R0,CPLWALK ;泳ぎパターンカウンターリセット 1210 S000555 3E A0 E9 SMS R0,CPLWKTM ; ” 切り替えタイマーリセット 1211 S000558 3E A0 68 SMS R0,CPLDWFG ;下向きフラグリセット 1212 S00055B D0 INC R0 ;[ IBT R0,#01H ] 1213 S00055C 3E A0 63 SMS R0,CPLSWIM ;水中泳ぎフラグセット 1214 ; 1215 S00055F F0 0280 IWT R0,#0280H 1216 S000562 61 SUB R1 1217 S000563 0A 04' BPL WATR_CHECK_0110 ;飛び込みＹスピードオーバー？ ( no:WATR_CHECK_0110 ) 1218 S000565 51 ADD R1 1219 ; 1220 S000566 3E A0 55 SMS R0,CPLYSPD 1221 WATR_CHECK_0110 1222 S000569 60 SUB R0 ;[ IBT R0,#0 ] 1223 S00056A 3E A0 64 SMS R0,CPLSWLK ;水中歩きフラグリセット 1224 ; 1225 ;-------------- 水しぶきセット ---------------------------------- 1226 WATR_CHECK_0200 1227 mJSR WTUP0_SET_2 ;”バッシャーン”効果セット 1227+ S00056D 94 LINK #4 1227+ S00056E FF 0579' IWT R15, #WTUP0_SET_2 1227+ S000571 01 NOP 1228 ; 1229 WATR_CHECK_0300 1230 S000572 3D AB 32 LMS R11,RTS2 ;[ return address load ] 1231 mRTS 1231+ S000575 9B JMP R11 1231+ S000576 01 NOP 1232 ; 1233 ;------------------------------------------------------------------------ 1234 ;- ”バッシャーン”効果セット - 1235 ;- in : - 1236 ;- (R4) <-- ”バッシャーン”セットＹ位置 - 1237 ;- break : - 1238 ;- (R0)(R1)(R5)(R12)(R13) - 1239 ;------------------------------------------------------------------------ 1240 WTUP0_SET 1241 S000577 A4 04 IBT R4,#04H ;(R4) <-- ”バッシャーン”セットＹ位置 1242 WTUP0_SET_2 1243 S000579 3D A0 F4 LMS R0,CPTIMNG 1244 S00057C E0 DEC R0 1245 S00057D 0A 3D' BPL WTUP0_SET_010 ;セットＯＫ？ ( no:WTUP0_SET_010 ) 1246 S00057F 01 NOP 1247 ; 1248 S000580 A0 10 IBT R0,#010H ;”バッシャーン”セットウェイトタイマーセット 1249 S000582 90 SBK ;[ SMS R0,CPTIMNG ] 1250 ; 1251 S000583 A0 5F IBT R0,#05FH 1252 S000585 3E A0 3D SMS R0,CMSOUND3 ;[♪] 1253 ; 1254 S000588 3E AB 30 SMS R11,RTS0 ;[ return address save ] 1255 ; 1256 S00058B F5 0000" IWT R5,#WTUP0 ;(R5) <-- 効果Ｎｏ．（水しぶき） 1257 mJSR M_EXINSR ;効果エリア確保 1257+ S00058E 94 LINK #4 1257+ S00058F FF 2A7B' IWT R15, #M_EXINSR 1257+ S000592 01 NOP 1258 ; 1259 ;-------------- 水しぶきの初期セット ---------------------------- 1260 S000593 3D A5 46 LMS R5,CPLXPSL 1261 mSTW R5,CEXXPSL,R1 ;Ｘ座標セット 1261+ S000596 F0 10A2 IWT R0,#CEXXPSL 1261+ S000599 51 ADD R1 1261+ S00059A B5 FROM R5 1261+ S00059B 30 STW (R0) 1262 S00059C 3D A0 48 LMS R0,CPLYPSL 1263 S00059F 54 ADD R4 1264 S0005A0 15 TO R5 1265 S0005A1 3F 7F BIC #0FH ;[ AND #0FFF0H ] 1266 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 1266+ S0005A3 F0 1142 IWT R0,#CEXYPSL 1266+ S0005A6 51 ADD R1 1266+ S0005A7 B5 FROM R5 1266+ S0005A8 30 STW (R0) 1267 S0005A9 A5 1A IBT R5,#WUP0P 1268 mSTW R5,CEXWRK0,R1 ;カウンター初期セット 1268+ S0005AB F0 1E4C IWT R0,#CEXWRK0 1268+ S0005AE 51 ADD R1 1268+ S0005AF B5 FROM R5 1268+ S0005B0 30 STW (R0) 1269 S0005B1 A5 03 IBT R5,#3 1270 mSTW R5,CEXTIM0,R1 ;タイマー初期セット 1270+ S0005B3 F0 1782 IWT R0,#CEXTIM0 1270+ S0005B6 51 ADD R1 1270+ S0005B7 B5 FROM R5 1270+ S0005B8 30 STW (R0) 1271 ; 1272 S0005B9 3D AB 30 LMS R11,RTS0 ;[ return address load ] 1273 WTUP0_SET_010 1274 mRTS 1274+ S0005BC 9B JMP R11 1274+ S0005BD 01 NOP 1275 ; 1276 ;------------------------------------------------------------------------ 1277 ;- ”ピチャピチャ”効果セット - 1278 ;- in : - 1279 ;- (R4) <-- ”ピチャピチャ”セットＹ位置 - 1280 ;- break : - 1281 ;- (R0)(R1)(R5)(R6)(R12)(R13)(R14) - 1282 ;------------------------------------------------------------------------ 1283 WTUP1_SET 1284 S0005BE A4 0A IBT R4,#0AH ;(R4) <-- ”ピチャピチャ”セットＹ位置 1285 WTUP1_SET_2 1286 S0005C0 3D A0 54 LMS R0,CPLXSPD 1287 S0005C3 3E 60 SUB #0 1288 S0005C5 09 5D' BEQ WTUP1_SET_020 ;Ｘ移動？ ( no:WTUP1_SET_020 ) 1289 S0005C7 01 NOP 1290 ; 1291 S0005C8 A6 00 IBT R6,#00H ;(R6) <-- セット向き 1292 S0005CA 0A 05' BPL WTUP1_SET_010 1293 S0005CC 01 NOP 1294 ; 1295 S0005CD A6 02 IBT R6,#02H ;(R6) <-- セット向き 1296 S0005CF 4F NOT 1297 S0005D0 D0 INC R0 1298 WTUP1_SET_010 1299 S0005D1 C0 HIB 1300 S0005D2 50 ADD R0 1301 S0005D3 FE 0000" IWT R14,#WTUP1_STDT 1302 S0005D6 1E TO R14 1303 S0005D7 5E ADD R14 1304 S0005D8 EF GETB 1305 S0005D9 3D F5 1974 LM R5,CFRCNT2 1306 S0005DD 75 AND R5 1307 S0005DE 08 44' BNE WTUP1_SET_020 ;”ピチャピチャ”セットＯＫ？ ( no:WTUP1_SET_020 ) 1308 S0005E0 DE INC R14 1309 ; 1310 S0005E1 3E AB 30 SMS R11,RTS0 ;[ return address save ] 1311 ; 1312 S0005E4 F5 0000" IWT R5,#WTUP1 ;(R5) <-- 効果Ｎｏ．（”ピチャピチャ”） 1313 mJSR M_EXINSR ;効果エリア確保 1313+ S0005E7 94 LINK #4 1313+ S0005E8 FF 2A7B' IWT R15, #M_EXINSR 1313+ S0005EB 01 NOP 1314 ; 1315 ;-------------- ”ピチャピチャ”初期セット ---------------------- 1316 S0005EC 3D A0 60 LMS R0,CPLJUMP 1317 S0005EF E0 DEC R0 1318 S0005F0 A0 03 IBT R0,#03H 1319 S0005F2 0A 03' BPL WTUP1_SET_012 ;水中歩き？ ( no:WTUP1_SET_012 ) 1320 S0005F4 01 NOP 1321 ; 1322 S0005F5 A0 60 IBT R0,#060H 1323 WTUP1_SET_012 1324 S0005F7 3E A0 3D SMS R0,CMSOUND3 ;[♪] 1325 ; 1326 mSTW R6,CEXMUKI,R1 ;向きセット 1326+ S0005FA F0 13C0 IWT R0,#CEXMUKI 1326+ S0005FD 51 ADD R1 1326+ S0005FE B6 FROM R6 1326+ S0005FF 30 STW (R0) 1327 S000600 3D A5 46 LMS R5,CPLXPSL 1328 mSTW R5,CEXXPSL,R1 ;Ｘ座標セット 1328+ S000603 F0 10A2 IWT R0,#CEXXPSL 1328+ S000606 51 ADD R1 1328+ S000607 B5 FROM R5 1328+ S000608 30 STW (R0) 1329 S000609 3D A0 48 LMS R0,CPLYPSL 1330 S00060C 54 ADD R4 1331 S00060D 3F 7F BIC #0FH ;[ AND #0FFF0H ] 1332 S00060F 15 TO R5 1333 S000610 EF GETB 1334 S000611 15 TO R5 1335 S000612 55 ADD R5 1336 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 1336+ S000613 F0 1142 IWT R0,#CEXYPSL 1336+ S000616 51 ADD R1 1336+ S000617 B5 FROM R5 1336+ S000618 30 STW (R0) 1337 S000619 A5 13 IBT R5,#WUP1P 1338 mSTW R5,CEXTIM0,R1 ;タイマー初期セット 1338+ S00061B F0 1782 IWT R0,#CEXTIM0 1338+ S00061E 51 ADD R1 1338+ S00061F B5 FROM R5 1338+ S000620 30 STW (R0) 1339 ; 1340 S000621 3D AB 30 LMS R11,RTS0 ;[ return address load ] 1341 WTUP1_SET_020 1342 mRTS 1342+ S000624 9B JMP R11 1342+ S000625 01 NOP 1343 ; 1344 ;------------------------------------------------------------------------ 1345 ;- あぶく効果セット - 1346 ;- in : - 1347 ;- (R4) <-- あぶくセットＸ位置 - 1348 ;- (R6) <-- あぶくセットＹ位置 - 1349 ;- break : - 1350 ;- (R0)(R1)(R5)(R12)(R13) - 1351 ;------------------------------------------------------------------------ 1352 BABL0_SET 1353 S000626 A4 10 IBT R4,#010H 1354 S000628 A6 F8 IBT R6,#0F8H ;[ IWT R6,#0FFF8H ] 1355 BABL0_SET_2 1356 S00062A 3D F0 1974 LM R0,CFRCNT2 1357 S00062E A5 7F IBT R5,#7FH 1358 S000630 75 AND R5 1359 S000631 08 41' BNE BABL0_SET_020 ;あぶくセットＯＫ？ ( no:BABL0_SET_020 ) 1360 S000633 01 NOP 1361 ; 1362 S000634 3E AB 30 SMS R11,RTS0 ;[ return address save ] 1363 ; 1364 S000637 F5 0000" IWT R5,#BABL0 ;(R5) <-- 効果Ｎｏ．（あぶく） 1365 mJSR M_EXINSR ;効果エリア確保 1365+ S00063A 94 LINK #4 1365+ S00063B FF 2A7B' IWT R15, #M_EXINSR 1365+ S00063E 01 NOP 1366 ; 1367 ;-------------- あぶく初期セット -------------------------------- 1368 S00063F 3D F5 1970 LM R5,CRANDM0 1369 mSTW R5,CEXWRK0,R1 ;ランダムデータセット 1369+ S000643 F0 1E4C IWT R0,#CEXWRK0 1369+ S000646 51 ADD R1 1369+ S000647 B5 FROM R5 1369+ S000648 30 STW (R0) 1370 S000649 3D A5 46 LMS R5,CPLXPSL ;(R5) <-- プレイヤーＸ座標 1371 S00064C 3D A0 62 LMS R0,CPLCMKI 1372 S00064F E0 DEC R0 1373 S000650 0B 04' BMI BABL0_SET_010 1374 S000652 B4 FROM R4 1375 ; 1376 S000653 4F NOT 1377 S000654 3E 54 ADD #4 1378 BABL0_SET_010 1379 S000656 15 TO R5 1380 S000657 55 ADD R5 1381 mSTW R5,CEXXPSL,R1 ;Ｘ座標セット 1381+ S000658 F0 10A2 IWT R0,#CEXXPSL 1381+ S00065B 51 ADD R1 1381+ S00065C B5 FROM R5 1381+ S00065D 30 STW (R0) 1382 S00065E 3D A0 48 LMS R0,CPLYPSL 1383 S000661 15 TO R5 1384 S000662 56 ADD R6 1385 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 1385+ S000663 F0 1142 IWT R0,#CEXYPSL 1385+ S000666 51 ADD R1 1385+ S000667 B5 FROM R5 1385+ S000668 30 STW (R0) 1386 S000669 A5 FF IBT R5,#0FFH ;[ !=0 ] 1387 mSTW R5,CEXTIM0,R1 ;タイマー初期セット 1387+ S00066B F0 1782 IWT R0,#CEXTIM0 1387+ S00066E 51 ADD R1 1387+ S00066F B5 FROM R5 1387+ S000670 30 STW (R0) 1388 ; 1389 S000671 3D AB 30 LMS R11,RTS0 ;[ return address load ] 1390 BABL0_SET_020 1391 mRTS 1391+ S000674 9B JMP R11 1391+ S000675 01 NOP 1392 ; 1393 ;;;;;************************************************************************ 1394 ;;;;;* * 1395 ;;;;;* タイマー計算 * 1396 ;;;;;* * 1397 ;;;;;************************************************************************ 1398 ;;;;; 1399 ;;;;TIMER_CALC 1400 ;;;; IWT R1,#CMTIMST ;(R1) <-- タイマーＲＡＭポインター 1401 ;;;; IBT R2,#00 ;(R2) <-- ０チェック用データ 1402 ;;;;; 1403 ;;;; CACHE 1404 ;;;;; 1405 ;;;; IBT R12,#(CMTIMEN-CMTIMST)/2 1406 ;;;; MOVE R13,R15 1407 ;;;;TIMER_CALC_010 1408 ;;;; LDW (R1) 1409 ;;;; SUB R2 1410 ;;;; BEQ TIMER_CALC_020 ;タイマー０？ ( yes:TIMER_CALC_020 ) 1411 ;;;; DEC R0 1412 ;;;;; 1413 ;;;; SBK ;[ STW (R1) ] 1414 ;;;;TIMER_CALC_020 1415 ;;;; INC R1 1416 ;;;; LOOP 1417 ;;;; INC R1 1418 ;;;;; 1419 ;;;; mRTS 1420 ; 1421 ;************************************************************************ 1422 ;* * 1423 ;* 座標計算（重力セット） * 1424 ;* * 1425 ;************************************************************************ 1426 ; 1427 PL_CALC 1428 S000676 3D A0 D7 LMS R0,CPLSTFG 1429 S000679 50 ADD R0 1430 S00067A 0C 03' BCC PL_CALC_FFFE ;赤ちゃん捕獲中？ ( no:PL_CALC_FFFE ) 1431 S00067C 01 NOP 1432 ; 1433 mRTS 1433+ S00067D 9B JMP R11 1433+ S00067E 01 NOP 1434 ; 1435 PL_CALC_FFFE 1436 S00067F 3D A1 38 LMS R1,CMKEYC1L ;(R1) <-- コントローラー情報 1437 S000682 3D A2 55 LMS R2,CPLYSPD ;(R2) <-- Ｙスピード 1438 S000685 3D A0 69 LMS R0,CPLSPJP 1439 S000688 13 TO R3 ;(R3) <-- ジタバタジャンプフラグ 1440 S000689 9E LOB 1441 S00068A C0 HIB 1442 S00068B 18 TO R8 ;(R8) <-- 敵踏んずけジタバタジャンプフラグ 1443 S00068C 4D SWAP 1444 ; 1445 S00068D 3D F4 1E3A LM R4,CPL_ADD_XSP ;(R4) <-- プレイヤーＸ方向圧力 1446 S000691 60 SUB R0 1447 S000692 90 SBK ;[ SM R0,CPL_ADD_XSP ] 1448 S000693 3D A0 5A LMS R0,CPLMVSP 1449 S000696 16 TO R6 ;(R6) <-- 移動スピード 1450 S000697 54 ADD R4 1451 ; 1452 S000698 3D A5 60 LMS R5,CPLJUMP ;(R5) <-- ジャンプフラグ 1453 S00069B E5 DEC R5 1454 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 1455 S00069C 0A 6B' BPL PL_CALC_0100 ;プレイヤージャンプ ？ ( yes:PL_CALC_0100 ) 1456 S00069E D5 INC R5 1457 ; 1458 ELSE ;**** PAL 対応 [1995/7/24] ************************ 1459 BMI PL_CALC_FFFE0 ;プレイヤージャンプ ？ ( no:PL_CALC_FFFE0 ) 1460 INC R5 1461 ; 1462 mDJMP PL_CALC_0100 1463 ; 1464 PL_CALC_FFFE0 1465 ; 1466 ENDIF 1467 S00069F 24 B4 MOVES R4,R4 1468 S0006A1 08 02' BNE PL_CALC_FFFF ;滝床？ ( yes:PL_CALC_FFFF ) 1469 S0006A3 60 SUB R0 ;ジタバタジャンプフラグ”ＯＦＦ” 1470 ; 1471 S0006A4 D0 INC R0 ;ジタバタジャンプフラグ”ＯＮ” 1472 PL_CALC_FFFF 1473 S0006A5 3E A0 69 SMS R0,CPLSPJP ;ジタバタジャンプフラグセット 1474 ; 1475 ;------------------------------------------------------------------------ 1476 ;- プレイヤー着地状態 - 1477 ;------------------------------------------------------------------------ 1478 PL_CALC_NOJUMP 1479 S0006A8 A0 00" IBT R0,#BANK LCOS 1480 S0006AA 3F DF ROMB ;※ＲＯＭアドレス変更（にて復帰） 1481 ; 1482 S0006AC 3D A7 5B LMS R7,CPLANGL ;(R7) <-- 足下角度 1483 S0006AF F0 0000" IWT R0,#LCOS 1484 S0006B2 1E TO R14 1485 S0006B3 57 ADD R7 1486 S0006B4 3F EF GETBS 1487 S0006B6 50 ADD R0 1488 S0006B7 50 ADD R0 ;[ 100H <-- 040H ] 1489 S0006B8 3D 9F LMULT 1490 S0006BA 24 WITH R4 1491 S0006BB C0 HIB 1492 S0006BC 9E LOB 1493 S0006BD 4D SWAP 1494 S0006BE 19 TO R9 ;(R9) <-- Ｘスピード 1495 S0006BF C4 OR R4 1496 S0006C0 3E A9 54 SMS R9,CPLXSPD ;Ｘスピードセット 1497 ; 1498 S0006C3 0A 03' BPL PL_CALC_0000 1499 S0006C5 29 WITH R9 1500 ; 1501 S0006C6 4F NOT 1502 S0006C7 D9 INC R9 1503 ; 1504 PL_CALC_0000 1505 S0006C8 3D F0 01B4 LM R0,CONLFFG 1506 S0006CC 3E 60 SUB #0 1507 S0006CE 09 05' BEQ PL_CALC_0010 ;リフトに乗ってる？ ( no:PL_CALC_0010 ) 1508 S0006D0 01 NOP 1509 ; 1510 mDJMP PL_CALC_0200 1510+ S0006D1 FF 07C1' IWT R15, #PL_CALC_0200 1510+ S0006D4 01 NOP 1511 ; 1512 PL_CALC_0010 1513 S0006D5 3D A0 57 LMS R0,CPLTYPE ;くるまよしお ? 1514 S0006D8 3E 62 SUB #P_CAR ; 1515 S0006DA 09 29' BEQ PL_CALC_0040 ; yes: PL_CALC_0040 1516 S0006DC 01 NOP 1517 1518 S0006DD F0 0000" IWT R0,#LSIN 1519 S0006E0 1E TO R14 1520 S0006E1 57 ADD R7 1521 S0006E2 3F EF GETBS 1522 S0006E4 50 ADD R0 1523 S0006E5 50 ADD R0 ;[ 100H <-- 040H ] 1524 S0006E6 3D 9F LMULT 1525 S0006E8 24 WITH R4 1526 S0006E9 C0 HIB 1527 S0006EA 9E LOB 1528 S0006EB 4D SWAP 1529 S0006EC C4 OR R4 1530 S0006ED 3E F0 1E3C SM R0,CPL_ANGL_YSP ;移動角度Ｙスピードセット 1531 S0006F1 0B 02' BMI PL_CALC_0012 ;上昇？ ( yes:PL_CALC_0012 ) 1532 S0006F3 01 NOP 1533 ; 1534 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 1535 S0006F4 59 ADD R9 ;Ｘスピード加算 1536 ELSE ;**** PAL 対応 [1995/7/24] ************************ 1537 MOVE R2,R0 1538 LMS R0,CPLTYPE 1539 IBT R6,#P_MARIO 1540 SUB R6 ;(Z) set 1541 IWT R6,#0CCH 1542 BNE PL_CALC_0011 ;マリオ？ ( no:PL_CALC_0011 ) 1543 NOP 1544 ; 1545 IWT R6,#0100H 1546 PL_CALC_0011 1547 FROM R9 1548 LMULT 1549 WITH R4 1550 HIB 1551 LOB 1552 SWAP 1553 OR R4 1554 ADD R2 1555 ENDIF 1556 1557 PL_CALC_0012 1558 ;;;; IWT R4,#01FFH ;※足が離れるのを防ぐため 1559 S0006F5 F4 0300 IWT R4,#0300H ;※足が離れるのを防ぐため 1560 ;;;; LMS R5,CBG2OF_FG 1561 ;;;; DEC R5 1562 ;;;; BMI PL_CALC_0014 ;オフセットモード？ ( no:PL_CALC_0014 ) 1563 ;;;; NOP 1564 ;;;;; 1565 ;;;; IWT R4,#0300H ;※足が離れるのを防ぐため 1566 ;;;;PL_CALC_0014 1567 S0006F8 54 ADD R4 1568 ;;;;;;;; IWT R4,#0400H 1569 ;;;; IWT R4,#0600H 1570 S0006F9 F4 0700 IWT R4,#0700H 1571 S0006FC 64 SUB R4 1572 S0006FD 0B 03' BMI PL_CALC_0020 ;ＭＡＸＹスピードオーバー？ ( no:PL_CALC_0020 ) 1573 S0006FF 54 ADD R4 1574 ; 1575 S000700 24 10 MOVE R0,R4 1576 PL_CALC_0020 1577 S000702 3E A0 55 SMS R0,CPLYSPD ;Ｙスピードセット 1578 ; 1579 PL_CALC_0040 1580 mDJMP XY_CALC 1580+ S000705 FF 0811' IWT R15, #XY_CALC 1580+ S000708 01 NOP 1581 ; 1582 ;------------------------------------------------------------------------ 1583 ;- プレイヤージャンプ中 - 1584 ;------------------------------------------------------------------------ 1585 PL_CALC_0100 1586 S000709 3E A6 54 SMS R6,CPLXSPD ;Ｘスピードセット 1587 ;;;; SUB R0 1588 ;;;; SMS R0,CPLSITD ;お座りキャンセル（ジタバタジャンプしない様に） 1589 ; 1590 S00070C E3 DEC R3 1591 S00070D 0A 1C' BPL PL_CALC_0106 ;ジタバタジャンプ中？ ( yes:PL_CALC_0106 ) 1592 S00070F D3 INC R3 1593 ; 1594 ;-------------- ＮＥＸＴジタバタジャンプチェック ------------------------ 1595 S000710 3D A0 39 LMS R0,CMKEYC2L ;(R0) <-- コントローラー情報（トリガー） 1596 ;;;; LMS R0,CMKEYC1L ;(R0) <-- コントローラー情報（トリガー） 1597 S000713 3D A7 42 LMS R7,CP_KEY_JUMP ;(R7) <-- ジャンプボタン情報 1598 S000716 77 AND R7 1599 S000717 09 09' BEQ PL_CALC_0102 ;ジャンプキー入力？ ( no:PL_CALC_0102 ) 1600 S000719 01 NOP 1601 ; 1602 S00071A 3D A0 F3 LMS R0,CPSPJTM 1603 S00071D 3E 68 SUB #8 1604 S00071F 0C 05' BCC PL_CALC_0104 ;ＮＥＸＴジタバタジャンプＯＫ？ ( yes:PL_CALC_0104 ) 1605 S000721 01 NOP 1606 ; 1607 PL_CALC_0102 1608 mDJMP PL_CALC_0200 1608+ S000722 FF 07C1' IWT R15, #PL_CALC_0200 1608+ S000725 01 NOP 1609 ; 1610 PL_CALC_0104 1611 S000726 A3 01 IBT R3,#01H ;ＮＥＸＴジタバタジャンプ”ＯＮ” 1612 S000728 3E A3 69 SMS R3,CPLSPJP 1613 ; 1614 ;-------------- ジタバタジャンプ ---------------------------------------- 1615 PL_CALC_0106 1616 S00072B 3D A0 F3 LMS R0,CPSPJTM 1617 S00072E E0 DEC R0 1618 S00072F 0A F1' BPL PL_CALC_0102 ;ジタバタジャンプウェイト？ ( yes:PL_CALC_0102 ) 1619 S000731 01 NOP 1620 ; 1621 S000732 3D A0 57 LMS R0,CPLTYPE 1622 S000735 E0 DEC R0 1623 S000736 0B 07' BMI PL_CALC_0107 ;変身中？ ( no:PL_CALC_0107 ) 1624 S000738 D0 INC R0 1625 ; 1626 S000739 A7 10 IBT R7,#P_MARIO 1627 S00073B 67 SUB R7 1628 S00073C 08 73' BNE PL_CALC_0190 ;マリオ以外の変身？ ( yes:PL_CALC_0190 ) 1629 S00073E 01 NOP 1630 ; 1631 PL_CALC_0107 1632 S00073F 3D A0 61 LMS R0,CPLSITD 1633 S000742 E0 DEC R0 1634 S000743 0A 6C' BPL PL_CALC_0190 ;お座り？ ( yes:PL_CALC_0190 ) 1635 S000745 E3 DEC R3 1636 ; 1637 S000746 08 19' BNE PL_CALC_0110 ;ジタバタジャンプ初期セット？ ( no:PL_CALC_0110 ) 1638 S000748 D3 INC R3 1639 ; 1640 ;-------------- ジタバタジャンプ初期セット ---------------------- 1641 ;;;; IWT R0,#0110H 1642 S000749 F0 0160 IWT R0,#0160H 1643 S00074C 62 SUB R2 1644 S00074D 0A 72' BPL PL_CALC_0200 ;ジタバタジャンプセット？ ( no:PL_CALC_0200 ) 1645 S00074F 01 NOP 1646 ; 1647 S000750 3D A0 42 LMS R0,CP_KEY_JUMP ;(R0) <-- ジャンプボタン情報 1648 S000753 71 AND R1 1649 S000754 08 05' BNE PL_CALC_0108 ;ジャンプキー入力？ ( yes:PL_CALC_0108 ) 1650 S000756 01 NOP 1651 ; 1652 mDJMP PL_CALC_0210 1652+ S000757 FF 07DB' IWT R15, #PL_CALC_0210 1652+ S00075A 01 NOP 1653 ; 1654 PL_CALC_0108 1655 S00075B D3 INC R3 ;(R3) <-- 02H 1656 S00075C B3 FROM R3 1657 S00075D C8 OR R8 1658 S00075E 3E A0 69 SMS R0,CPLSPJP ;ジタバタジャンプセット 1659 ; 1660 ;-------------- ジタバタジャンプ処理 ---------------------------- 1661 PL_CALC_0110 1662 S000761 3D A0 42 LMS R0,CP_KEY_JUMP ;(R0) <-- ジャンプボタン情報 1663 S000764 71 AND R1 1664 S000765 09 4A' BEQ PL_CALC_0190 ;ジャンプキー入力？ ( no:PL_CALC_0190 ) 1665 S000767 01 NOP 1666 ; 1667 S000768 3D A0 57 LMS R0,CPLTYPE 1668 S00076B A7 10 IBT R7,#P_MARIO 1669 S00076D 67 SUB R7 1670 S00076E 08 05' BNE PL_CALC_0111 ;マリオ？ ( no:PL_CALC_0111 ) 1671 S000770 01 NOP 1672 ; 1673 mDJMP MR_HOBARING 1673+ S000771 FF 0881' IWT R15, #MR_HOBARING 1673+ S000774 01 NOP 1674 ; 1675 PL_CALC_0111 1676 ;;;; IWT R0,#0FE70H 1677 S000775 F0 FE80 IWT R0,#0FE80H 1678 S000778 28 B8 MOVES R8,R8 1679 S00077A 0A 04' BPL PL_CALC_0112 ;敵踏んずけジタバタジャンプ？ ( no:PL_CALC_0112 ) 1680 S00077C 01 NOP 1681 ; 1682 S00077D F0 FD40 IWT R0,#0FD40H 1683 PL_CALC_0112 1684 S000780 62 SUB R2 1685 S000781 0A 2E' BPL PL_CALC_0190 ;ジタバタジャンプ終了？ ( yes:PL_CALC_0190 ) 1686 S000783 01 NOP 1687 ; 1688 S000784 3D A0 EA LMS R0,CPLJPTM 1689 S000787 9E LOB 1690 S000788 08 16' BNE PL_CALC_0130 ;ジタバタパターン切り替え？ ( no:PL_CALC_0130 ) 1691 S00078A D0 INC R0 1692 ; 1693 S00078B D0 INC R0 ;[ IBT R0,#02H ] 1694 S00078C 90 SBK ;[ SMS R0,CPLJPTM ] 1695 ; 1696 S00078D D3 INC R3 1697 S00078E B3 FROM R3 1698 S00078F 3E 68 SUB #08H+1-1 1699 S000791 0C 08' BCC PL_CALC_0120 1700 S000793 D3 INC R3 1701 ; 1702 S000794 A3 04 IBT R3,#04H 1703 ; 1704 S000796 A0 37 IBT R0,#037H 1705 S000798 3E A0 3D SMS R0,CMSOUND3 ;[♪] 1706 ; 1707 PL_CALC_0120 1708 S00079B B3 FROM R3 1709 S00079C C8 OR R8 1710 S00079D 3E A0 69 SMS R0,CPLSPJP ;ジタバタパターンセット 1711 ; 1712 PL_CALC_0130 1713 S0007A0 F0 FEF0 IWT R0,#-0110H 1714 S0007A3 52 ADD R2 1715 S0007A4 0A 02' BPL PL_CALC_0140 1716 S0007A6 01 NOP 1717 ; 1718 S0007A7 60 SUB R0 1719 PL_CALC_0140 1720 S0007A8 03 LSR 1721 S0007A9 03 LSR 1722 S0007AA 03 LSR 1723 S0007AB 4F NOT 1724 S0007AC A7 F1 IBT R7,#0F0H+1 ;[ IWT R7,#0FFF0H+1 ] 1725 S0007AE 05 2E' BRA PL_CALC_0220 1726 S0007B0 57 ADD R7 1727 ; 1728 ;-------------- ジタバタジャンプ終了 ---------------------------- 1729 PL_CALC_0190 1730 S0007B1 A3 00 IBT R3,#00 1731 S0007B3 3E A3 69 SMS R3,CPLSPJP 1732 ;;;; IBT R0,#010H ;ジタバタジャンプＮＥＸＴウェイトタイマー 1733 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 1734 S0007B6 A0 12 IBT R0,#012H ;ジタバタジャンプＮＥＸＴウェイトタイマー 1735 ELSE ;**** PAL 対応 [1995/8/1] ****************************** 1736 IBT R0,#(012H*4+(5-1))/5 ;ジタバタジャンプＮＥＸＴウェイトタイマー 1737 ENDIF 1738 S0007B8 3E A0 F3 SMS R0,CPSPJTM 1739 S0007BB F0 0006 IWT R0,#P006 ;ジャンプパターンリセット 1740 S0007BE 3E A0 60 SMS R0,CPLJUMP 1741 ; 1742 ;-------------- 普通のジャンプ ------------------------------------------ 1743 PL_CALC_0200 1744 S0007C1 3D A0 EE LMS R0,CPHBOYO 1745 S0007C4 E0 DEC R0 1746 S0007C5 0A 17' BPL PL_CALC_0220 ;頭ＢＧ当たり”ボヨヨーン”？ ( yes:PL_CALC_0220 ) 1747 S0007C7 60 SUB R0 ;無重力セット 1748 ; 1749 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 1750 S0007C8 A7 40 IBT R7,#040H 1751 ELSE ;**** PAL 対応 [1995/7/19] ***************************** 1752 IBT R7,#040H*5/4 1753 ENDIF 1754 S0007CA 3D A0 57 LMS R0,CPLTYPE 1755 S0007CD 3E 62 SUB #P_CAR 1756 S0007CF 09 0D' BEQ PL_CALC_0220 ;くるま? ( yes:PL_CALC_0220 ) 1757 S0007D1 B7 FROM R7 1758 ; 1759 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 1760 S0007D2 A7 28 IBT R7,#028H ;(R7) <-- 軽い重力 1761 ELSE ;**** PAL 対応 [1995/7/19] ***************************** 1762 IBT R7,#028H*5/4 ;(R7) <-- 軽い重力 1763 ENDIF 1764 S0007D4 3D A0 42 LMS R0,CP_KEY_JUMP ;(R0) <-- ジャンプボタン情報 1765 S0007D7 71 AND R1 1766 S0007D8 08 04' BNE PL_CALC_0220 ;軽い重力？ ( yes:PL_CALC_0220 ) 1767 S0007DA B7 FROM R7 1768 ; 1769 PL_CALC_0210 1770 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 1771 S0007DB F0 00A0 IWT R0,#0A0H ;(R0) <-- 重い重力 1772 ELSE ;**** PAL 対応 [1995/7/19] ***************************** 1773 IWT R0,#0A0H*5/4 ;(R0) <-- 重い重力 1774 ENDIF 1775 ; 1776 PL_CALC_JUMP 1777 PL_CALC_0220 1778 S0007DE 12 TO R2 ;(R2) <-- 計算後Ｙスピード 1779 S0007DF 52 ADD R2 1780 S0007E0 0B 2C' BMI PL_CALC_0250 ;上昇中？ ( yes:PL_CALC_0250 ) 1781 S0007E2 01 NOP 1782 ; 1783 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 1784 S0007E3 F0 0400 IWT R0,#0400H 1785 ELSE ;**** PAL 対応 [1995/7/19] ***************************** 1786 LMS R0,CPLTYPE 1787 SUB #P_SKI ;(Z) set 1788 IWT R0,#0400H 1789 BEQ PL_CALC_0222 ;スキーヨッシー？ ( yes:PL_CALC_0222 ) 1790 NOP 1791 ; 1792 IWT R0,#0400H*5/4 1793 PL_CALC_0222 1794 1795 ENDIF 1796 S0007E6 62 SUB R2 1797 S0007E7 0D 03' BCS PL_CALC_0230 ;最大落下スピードオーバー？ ( no:PL_CALC_0230 ) 1798 S0007E9 52 ADD R2 1799 ; 1800 S0007EA 20 12 MOVE R2,R0 1801 PL_CALC_0230 1802 S0007EC 25 B5 MOVES R5,R5 ;※リフトに乗っている時の為 1803 S0007EE 09 1E' BEQ PL_CALC_0250 ;ジャンプ中？ ( no:PL_CALC_0250 ) 1804 S0007F0 B3 FROM R3 1805 ; 1806 ;-------------- 落下パターンセット ------------------------------ 1807 S0007F1 3E 62 SUB #02H 1808 S0007F3 0D 19' BCS PL_CALC_0250 ;ジタバタジャンプ中？ ( yes:PL_CALC_0250 ) 1809 S0007F5 01 NOP 1810 ; 1811 S0007F6 F7 0008 IWT R7,#P008 ;(R7) <-- 落下パターンＮｏ． 1812 S0007F9 B5 FROM R5 1813 S0007FA 67 SUB R7 1814 S0007FB 0D 0E' BCS PL_CALC_0240 ;落下パターンＭＡＸ？ ( yes:PL_CALC_0240 ) 1815 S0007FD 01 NOP 1816 ; 1817 S0007FE 3D A0 EA LMS R0,CPLJPTM 1818 S000801 9E LOB 1819 S000802 08 07' BNE PL_CALC_0240 ;パターン切り替え？ ( no:PL_CALC_0240 ) 1820 S000804 01 NOP 1821 ; 1822 S000805 D5 INC R5 1823 S000806 A0 08 IBT R0,#08H 1824 S000808 3E A0 EA SMS R0,CPLJPTM 1825 PL_CALC_0240 1826 S00080B 3E A5 60 SMS R5,CPLJUMP ;ジャンプパターンセット 1827 ; 1828 PL_CALC_0250 1829 S00080E 3E A2 55 SMS R2,CPLYSPD ;Ｙスピードセット 1830 ; 1831 ;------------------------------------------------------------------------ 1832 ;- Ｘ，Ｙ座標計算 - 1833 ;------------------------------------------------------------------------ 1834 XY_CALC 1835 S000811 A0 00" IBT R0,#BANK PLAYER_DATA 1836 S000813 3F DF ROMB ;ＲＯＭアドレス復帰 1837 ; 1838 S000815 3D A1 54 LMS R1,CPLXSPD ;(R1) <-- Ｘスピード 1839 S000818 3D A2 55 LMS R2,CPLYSPD ;(R2) <-- Ｙ ” 1840 ; 1841 ;-------------- 座標計算 ------------------------------------------------ 1842 XY_CALC_0500 1843 S00081B 3D F0 1E3E LM R0,CPOLYONFG 1844 S00081F 3E 60 SUB #0 1845 S000821 09 42' BEQ XY_CALC_0540 ;横回転ＢＧ３ポリゴン乗ってる？ ( no:XY_CALC_0540 ) 1846 S000823 01 NOP 1847 ; 1848 ;-------------- 横回転ＢＧ３ポリゴンＸ座標計算 ------------------ 1849 S000824 A0 00" IBT R0,#BANK COS 1850 S000826 3F DF ROMB 1851 ; 1852 S000828 3D F3 1E40 LM R3,CPOLYANG ;(R3) <-- 横回転ＢＧ３ポリゴン回転角度 1853 S00082C F0 0000" IWT R0,#COS 1854 S00082F 53 ADD R3 1855 S000830 1E TO R14 1856 S000831 53 ADD R3 1857 S000832 EF GETB 1858 S000833 DE INC R14 1859 S000834 16 TO R6 ;(R6) <-- ＣＯＳデータ 1860 S000835 3D EF GETBH 1861 ; 1862 S000837 A0 C0 IBT R0,#-40H 1863 S000839 53 ADD R3 1864 S00083A 4D SWAP ;(N) set 1865 S00083B 0B 03' BMI XY_CALC_0510 1866 S00083D 21 WITH R1 1867 ; 1868 S00083E 4F NOT 1869 S00083F D1 INC R1 1870 XY_CALC_0510 1871 S000840 3D F0 1E44 LM R0,CPOLYPLXD 1872 S000844 9E LOB 1873 S000845 51 ADD R1 ;(C) 1874 S000846 90 SBK ;[ SMS CPLXSDR ] 1875 S000847 C0 HIB 1876 S000848 95 SEX 1877 S000849 3D F1 1E46 LM R1,CPOLYPLXL 1878 S00084D 51 ADD R1 1879 S00084E 90 SBK ;[ SMS CPOLYPLXL ] 1880 ; 1881 S00084F 3D 9F LMULT 1882 S000851 24 WITH R4 1883 S000852 C0 HIB 1884 S000853 9E LOB 1885 S000854 4D SWAP 1886 S000855 C4 OR R4 1887 S000856 3D F3 1E42 LM R3,CPOLYXPS 1888 S00085A 53 ADD R3 1889 S00085B 3E A0 46 SMS R0,CPLXPSL 1890 ; 1891 S00085E A0 00" IBT R0,#BANK PLAYER_DATA 1892 S000860 3F DF ROMB ;ＲＯＭアドレス復帰 1893 ; 1894 S000862 05 0E' BRA XY_CALC_0550 1895 S000864 01 NOP 1896 ; 1897 XY_CALC_0540 1898 S000865 3D A0 45 LMS R0,CPLXSDR 1899 S000868 9E LOB 1900 S000869 51 ADD R1 ;(C) 1901 S00086A 90 SBK ;[ SMS CPLXSDR ] 1902 S00086B C0 HIB 1903 S00086C 95 SEX 1904 S00086D 3D A1 46 LMS R1,CPLXPSL 1905 S000870 51 ADD R1 1906 S000871 90 SBK ;[ SMS CPLXPSL ] 1907 ; 1908 XY_CALC_0550 1909 S000872 3D A0 47 LMS R0,CPLYSDR 1910 S000875 9E LOB 1911 S000876 52 ADD R2 ;(C) 1912 S000877 90 SBK ;[ SMS CPLYSDR ] 1913 S000878 C0 HIB 1914 S000879 95 SEX 1915 S00087A 3D A2 48 LMS R2,CPLYPSL 1916 S00087D 52 ADD R2 1917 S00087E 90 SBK ;[ SMS CPLYPSL ] 1918 ; 1919 mRTS 1919+ S00087F 9B JMP R11 1919+ S000880 01 NOP 1920 ; 1921 ;---------------------------------------------------------------- 1922 ;- マリオホバリング処理 - 1923 ;---------------------------------------------------------------- 1924 MR_HOBARING 1925 S000881 F6 0100 IWT R6,#0100H ;(R6) <-- ＭＡＸＹスピード 1926 ; 1927 S000884 B3 FROM R3 1928 S000885 3E 65 SUB #2+3 1929 S000887 0C 67' BCC MR_HOBARING_008 ;ホバリング状態？ ( no:MR_HOBARING0_008 ) 1930 S000889 01 NOP 1931 ; 1932 S00088A A0 00" IBT R0,#BANK SIN 1933 S00088C 3F DF ROMB 1934 ; 1935 S00088E 3D A7 BF LMS R7,CPMR_ANGL ;(R7) <-- ホバリング回転角度 1936 S000891 3D A5 CF LMS R5,CPMR_ANSP ;(R5) <-- ホバリング回転スピード 1937 S000894 25 B5 MOVES R5,R5 1938 S000896 0B 0C' BMI MR_HOBARING_FFD 1939 S000898 60 SUB R0 1940 ; 1941 S000899 F0 0300 IWT R0,#00000011B*100H 1942 S00089C 71 AND R1 ;(Z) set 1943 S00089D A0 FF IBT R0,#-1 1944 S00089F 09 03' BEQ MR_HOBARING_FFD ;加速？ ( no:MR_HOBARING_FFD ) 1945 S0008A1 01 NOP 1946 ; 1947 S0008A2 A0 FC IBT R0,#-4 1948 MR_HOBARING_FFD 1949 S0008A4 57 ADD R7 1950 S0008A5 95 SEX ;(N) set 1951 S0008A6 FE 0200 IWT R14,#0200H ;(R14) <-- ＭＡＸホバリング回転スピード 1952 S0008A9 A0 10 IBT R0,#010H 1953 S0008AB 0B 0E' BMI MR_HOBARING_FFF 1954 S0008AD 01 NOP 1955 ; 1956 S0008AE FE FE00 IWT R14,#0FE00H ;(R14) <-- ＭＡＸホバリング回転スピード 1957 S0008B1 F0 0300 IWT R0,#00000011B*100H 1958 S0008B4 71 AND R1 ;(Z) set 1959 S0008B5 A0 F2 IBT R0,#0F2H ;[ IWT R0,#0FFF2H ] 1960 S0008B7 09 02' BEQ MR_HOBARING_FFF ;加速？ ( no:MR_HOBARING_FFF ) 1961 S0008B9 01 NOP 1962 ; 1963 S0008BA 50 ADD R0 ;x2 1964 MR_HOBARING_FFF 1965 S0008BB 55 ADD R5 1966 S0008BC 20 15 MOVE R5,R0 1967 S0008BE 6E SUB R14 1968 S0008BF 3D CE XOR R14 1969 S0008C1 0B 03' BMI MR_HOBARING_000 1970 S0008C3 01 NOP 1971 ; 1972 S0008C4 2E 15 MOVE R5,R14 1973 MR_HOBARING_000 1974 S0008C6 3E A5 CF SMS R5,CPMR_ANSP 1975 ; 1976 S0008C9 3D A0 D0 LMS R0,CPMR_ANBF 1977 S0008CC 9E LOB 1978 S0008CD 55 ADD R5 1979 S0008CE 90 SBK ;[ SMS R0,CPMR_ANBF ] 1980 S0008CF C0 HIB 1981 S0008D0 57 ADD R7 1982 S0008D1 17 TO R7 1983 S0008D2 9E LOB 1984 S0008D3 3E A7 BF SMS R7,CPMR_ANGL 1985 ; 1986 MR_HOBARING_004 1987 S0008D6 A0 18 IBT R0,#018H 1988 S0008D8 57 ADD R7 1989 S0008D9 9E LOB 1990 S0008DA 50 ADD R0 ;x2 1991 S0008DB FE 0000" IWT R14,#SIN 1992 S0008DE 1E TO R14 1993 S0008DF 5E ADD R14 1994 S0008E0 EF GETB 1995 S0008E1 DE INC R14 1996 S0008E2 3D EF GETBH 1997 S0008E4 4F NOT 1998 S0008E5 D0 INC R0 1999 S0008E6 F6 0080 IWT R6,#080H 2000 S0008E9 66 SUB R6 2001 S0008EA 0A 20' BPL MR_HOBARING_020 ;ＭＡＸＹスピードオーバー？ ( yes:MR_HOBARING_020 ) 2002 S0008EC 16 TO R6 ;(R6) <-- ＭＡＸＹスピード 2003 ; 2004 S0008ED 05 1D' BRA MR_HOBARING_020 2005 S0008EF 56 ADD R6 2006 ; 2007 MR_HOBARING_008 2008 S0008F0 3D A0 EA LMS R0,CPLJPTM 2009 S0008F3 9E LOB 2010 S0008F4 08 16' BNE MR_HOBARING_020 ;ホバリングパターン切り替え？ ( no:MR_HOBARING_020 ) 2011 S0008F6 01 NOP 2012 ; 2013 S0008F7 A0 04 IBT R0,#04H 2014 S0008F9 90 SBK ;[ SMS R0,CPLJPTM ] 2015 ; 2016 S0008FA B3 FROM R3 2017 S0008FB 3E 64 SUB #2+3-1 2018 S0008FD 08 0A' BNE MR_HOBARING_010 ;ホバリング開始初期セット？ ( no:MR_HOBARING_010 ) 2019 S0008FF D3 INC R3 2020 ; 2021 S000900 F0 FF30 IWT R0,#0FF30H ;ホバリング用キャラクター回転スピード初期セット 2022 S000903 3E A0 CF SMS R0,CPMR_ANSP 2023 S000906 F2 FE40 IWT R2,#0FE40H ;(R2) <-- ホバリング開始Ｙスピード 2024 MR_HOBARING_010 2025 S000909 3E A3 69 SMS R3,CPLSPJP ;ホバリングパターンセット 2026 ; 2027 MR_HOBARING_020 2028 S00090C A0 10 IBT R0,#010H 2029 S00090E 52 ADD R2 2030 S00090F 66 SUB R6 2031 S000910 0A 02' BPL MR_HOBARING_030 ;最大落下スピードオーバー？ ( yes:MR_HOBARING_030 ) 2032 S000912 16 TO R6 2033 ; 2034 S000913 56 ADD R6 2035 MR_HOBARING_030 2036 S000914 3E A6 55 SMS R6,CPLYSPD ;Ｙスピードセット 2037 mDJMP XY_CALC 2037+ S000917 FF 0811' IWT R15, #XY_CALC 2037+ S00091A 01 NOP 2038 ; 2039 ;************************************************************************ 2040 ;* * 2041 ;* ＢＧチェック * 2042 ;* * 2043 ;************************************************************************ 2044 ; 2045 PL_BGCK 2046 S00091B FE 0000" IWT R14,#PLBGCK_POINT_SW ;(R14) <-- ＢＧチェックポイントデータポインター（泳ぎ） 2047 S00091E 3D A0 63 LMS R0,CPLSWIM 2048 S000921 E0 DEC R0 2049 S000922 0A 0F' BPL PL_BGCK_2 ;泳いでる？ ( yes:PL_BGCK_2 ) 2050 S000924 01 NOP 2051 ; 2052 S000925 FE 0000" IWT R14,#PLBGCK_POINT_00 ;(R14) <-- ＢＧチェックポイントデータポインター（大） 2053 S000928 3D A0 61 LMS R0,CPLSITD 2054 S00092B 3E 62 SUB #2 2055 S00092D 0C 04' BCC PL_BGCK_2 ;衝突サイズ小？ ( no:PL_BGCK_2 ) 2056 S00092F 01 NOP 2057 ; 2058 S000930 FE 0000" IWT R14,#PLBGCK_POINT_01 ;(R14) <-- ＢＧチェックポイントデータポインター（小） 2059 ; 2060 PL_BGCK_2 2061 S000933 3E AB 32 SMS R11,RTS2 ;[ return address save ] 2062 ; 2063 S000936 3D A9 46 LMS R9,CPLXPSL ;(R9) <-- プレイヤーＸ座標 2064 S000939 3D AA 48 LMS R10,CPLYPSL ;(R10) <-- ” Ｙ ” 2065 S00093C A2 00 IBT R2,#00 ;(R2) <-- ＢＧ当たりフラグクリアー 2066 S00093E 3E A2 7F SMS R2,CPLWATR ;水中当たりフラグクリアー 2067 S000941 3E A2 80 SMS R2,CPLTNEL ;トンネル当たりフラグクリアー 2068 S000944 3E A2 81 SMS R2,CPLHARI ;ダメージＢＧ当たりフラグクリアー 2069 S000947 3E A2 7D SMS R2,CPLBGNO ;歩いている床のＢＧタイプクリアー 2070 S00094A 3E A2 5B SMS R2,CPLANGL ;移動角度リセット 2071 ; 2072 ;------------------------------------------------------------------------ 2073 ;- 左上サイドチェック - 2074 ;------------------------------------------------------------------------ 2075 S00094D A3 01 IBT R3,#001H ;(R3) <-- 補正向き 2076 S00094F A4 00 IBT R4,#0 ;(R4) <-- 補正データ 2077 mJSR_X BG_SIDECK_IN 2077+ S000951 94 LINK #4 2077+ S000952 FF 0C39' IWT R15, #BG_SIDECK_IN 2078 S000955 02 CACHE 2079 ; 2080 ;------------------------------------------------------------------------ 2081 ;- 左下サイドチェック - 2082 ;------------------------------------------------------------------------ 2083 mJSR_X BG_SIDECK+1 2083+ S000956 94 LINK #4 2083+ S000957 FF 0C3F' IWT R15, #BG_SIDECK+1 2084 S00095A 3E HEX 3E ;[ SMS R11,RTS1 ] 2085 ; 2086 ;-------------- ドアチェック -------------------------------------------- 2087 S00095B F0 0100 IWT R0,#DR ;+BD 2088 S00095E 77 AND R7 2089 S00095F 3E A0 82 SMS R0,CPLDOOR 2090 ; 2091 ;------------------------------------------------------------------------ 2092 ;- 右上サイドチェック - 2093 ;------------------------------------------------------------------------ 2094 S000962 A3 FF IBT R3,#0FFH ;(R3) <-- 補正データ 2095 mJSR_X BG_SIDECK+1 2095+ S000964 94 LINK #4 2095+ S000965 FF 0C3F' IWT R15, #BG_SIDECK+1 2096 S000968 3E HEX 3E ;[ SMS R11,RTS1 ] 2097 ; 2098 ;------------------------------------------------------------------------ 2099 ;- 右下サイドチェック - 2100 ;------------------------------------------------------------------------ 2101 mJSR_X BG_SIDECK+1 2101+ S000969 94 LINK #4 2101+ S00096A FF 0C3F' IWT R15, #BG_SIDECK+1 2102 S00096D 3E HEX 3E ;[ SMS R11,RTS1 ] 2103 ; 2104 S00096E 29 WITH R9 ;Ｘ座標補正 2105 S00096F 54 ADD R4 2106 ; 2107 ;------------------------------------------------------------------------ 2108 ;- サイド総合チェック - 2109 ;------------------------------------------------------------------------ 2110 S000970 3D A3 6E LMS R3,CPSPUSH ;(R3) <-- 横壁押しカウンターセット 2111 S000973 60 SUB R0 ;[ IBT R0,#0 ] 2112 S000974 90 SBK ;[ SMS R0,CPSPUSH ] 2113 ; 2114 S000975 21 B1 MOVES R1,R1 2115 S000977 09 3F' BEQ PL_BGCK_00200 ;横当たりＯＫ？ ( no:PL_BGCK_00200 ) 2116 S000979 60 SUB R0 2117 ; 2118 ;-------------- 普通の当たり -------------------------------------------- 2119 S00097A 3E A0 54 SMS R0,CPLXSPD 2120 S00097D 3E A0 5A SMS R0,CPLMVSP 2121 ; 2122 ;-------------- 横壁押しチェック -------------------------------- 2123 S000980 3D A0 60 LMS R0,CPLJUMP 2124 S000983 E0 DEC R0 2125 S000984 0A 32' BPL PL_BGCK_00200 ;ジャンプ中？ ( yes:PL_BGCK_00200 ) 2126 S000986 B1 FROM R1 2127 ; 2128 S000987 3E 7F AND #0FH 2129 S000989 09 02' BEQ PL_BGCK_0020 ;左当たり？ ( yes:PL_BGCK_0020 ) 2130 S00098B D0 INC R0 ;[ IBT R0,#01H ] 2131 ; 2132 S00098C 60 SUB R0 ;[ IBT R0,#0 ] 2133 PL_BGCK_0020 2134 S00098D D0 INC R0 ;[ 左:00000010B 右:00000001B ] 2135 ; 2136 S00098E 3D F1 0071 LM R1,CMKEYC1 ;(R1) <-- コントローラー情報 2137 S000992 71 AND R1 2138 S000993 09 3E' BEQ PL_BGCK_0040 ;横壁押しキー入力？ ( no:PL_BGCK_0040 ) 2139 S000995 D3 INC R3 2140 ; 2141 ;-------------- ドカン出入りチェック -------------------- 2142 S000996 20 11 MOVE R1,R0 2143 S000998 3D A0 D9 LMS R0,CBABYNO 2144 S00099B 50 ADD R0 2145 S00099C 0C 2A' BCC PL_BGCK_0021 ;赤ちゃん乗ってる？ ( no:PL_BGCK_0021 ) 2146 S00099E 01 NOP 2147 ; 2148 S00099F 3D A5 83 LMS R5,CDOKNMK 2149 S0009A2 B5 FROM R5 2150 S0009A3 3E 73 AND #00000011B 2151 S0009A5 61 SUB R1 2152 S0009A6 08 20' BNE PL_BGCK_0021 ;ドカン？ ( no:PL_BGCK_0021 ) 2153 S0009A8 01 NOP 2154 ; 2155 S0009A9 3D A0 A8 LMS R0,CBERFLG 2156 S0009AC E0 DEC R0 2157 S0009AD 0A 19' BPL PL_BGCK_0021 ;状態ＯＫ？ ( no:PL_BGCK_0021 ) 2158 S0009AF 01 NOP 2159 ; 2160 ;-------------- ドカン出入りデモへ -------------- 2161 mJSR DOKAN_INOUT_IN ;[ (R5) <-- 向き ] 2161+ S0009B0 94 LINK #4 2161+ S0009B1 FF 15ED' IWT R15, #DOKAN_INOUT_IN 2161+ S0009B4 01 NOP 2162 S0009B5 05 1C' BRA PL_BGCK_0040 2163 S0009B7 01 NOP 2164 ; 2165 ;-------------- 横壁押しカウンターセット ---------------- 2166 PL_BGCK_00200 2167 S0009B8 3D A0 E1 LMS R0,CPUSHFG ;[ from ] 2168 S0009BB 3E 60 SUB #0 2169 S0009BD 09 14' BEQ PL_BGCK_0024 ;敵押し中？ ( no:PL_BGCK_0024 ) 2170 S0009BF 01 NOP 2171 ; 2172 S0009C0 A0 0F IBT R0,#PUSHTM-1 2173 S0009C2 63 SUB R3 2174 S0009C3 0C 03' BCC PL_BGCK_0021 2175 S0009C5 13 TO R3 2176 ; 2177 S0009C6 3D 53 ADC R3 ;[ IBT R3,#PUSHTM ] 2178 PL_BGCK_0021 2179 S0009C8 A0 23 IBT R0,#PUSHTM+(4*5)-1 2180 S0009CA 63 SUB R3 2181 S0009CB 0D 03' BCS PL_BGCK_0022 2182 S0009CD 01 NOP 2183 ; 2184 S0009CE A3 10 IBT R3,#PUSHTM 2185 PL_BGCK_0022 2186 S0009D0 3E A3 6E SMS R3,CPSPUSH ;横壁押しカウンターセット 2187 PL_BGCK_0024 2188 ; 2189 ;------------------------------------------------------------------------ 2190 ;- 左頭チェック - 2191 ;------------------------------------------------------------------------ 2192 PL_BGCK_0040 2193 S0009D3 A3 10 IBT R3,#010H ;(R3) <-- 頭チェックフラグ 2194 mJSR_X BG_HDFTCK+1 2194+ S0009D5 94 LINK #4 2194+ S0009D6 FF 0DA6' IWT R15, #BG_HDFTCK+1 2195 S0009D9 3E HEX 3E ;[ SMS R11,RTS1 ] 2196 ; 2197 ;------------------------------------------------------------------------ 2198 ;- 右頭チェック - 2199 ;------------------------------------------------------------------------ 2200 mJSR_X BG_HDFTCK+1 2200+ S0009DA 94 LINK #4 2200+ S0009DB FF 0DA6' IWT R15, #BG_HDFTCK+1 2201 S0009DE 3E HEX 3E ;[ SMS R11,RTS1 ] 2202 ; 2203 ;------------------------------------------------------------------------ 2204 ;- 頭総合チェック - 2205 ;------------------------------------------------------------------------ 2206 S0009DF B2 FROM R2 2207 S0009E0 3E 73 AND #00000011B 2208 S0009E2 08 05' BNE PL_BGCK_00400 ;頭当たり？ ( no:PL_BGCK_00400 ) 2209 S0009E4 01 NOP 2210 ; 2211 mDJMP PL_BGCK_0050 2211+ S0009E5 FF 0A62' IWT R15, #PL_BGCK_0050 2211+ S0009E8 01 NOP 2212 ; 2213 ;-------------- ＢＧ当たった -------------------------------------------- 2214 PL_BGCK_00400 2215 S0009E9 3D A0 55 LMS R0,CPLYSPD 2216 S0009EC 50 ADD R0 ;(C) <-- (N) 2217 S0009ED 0C 72' BCC PL_BGCK_0048 ;プレイヤー下降中？ ( yes:PL_BGCK_0048 ) 2218 S0009EF 60 SUB R0 2219 ; 2220 S0009F0 90 SBK ;[ SMS R0,PLYSPD ] 2221 S0009F1 D0 INC R0 ;[ IBT R0,#1 ] 2222 S0009F2 3E A0 69 SMS R0,CPLSPJP ;ジタバタジャンプ リセット 2223 S0009F5 A0 14 IBT R0,#014H ;ジタバタジャンプＮＥＸＴウェイトタイマー 2224 S0009F7 3E A0 F3 SMS R0,CPSPJTM 2225 ; 2226 ;-------------- ドカン出入りチェック -------------------- 2227 S0009FA 3D A0 D9 LMS R0,CBABYNO 2228 S0009FD 50 ADD R0 2229 S0009FE 0C 57' BCC PL_BGCK_0046 ;赤ちゃん乗ってる？ ( no:PL_BGCK_0046 ) 2230 S000A00 01 NOP 2231 ; 2232 S000A01 F0 F800 IWT R0,#1111100000000000B 2233 S000A04 77 AND R7 2234 S000A05 F1 A000 IWT R1,#DK 2235 S000A08 61 SUB R1 2236 S000A09 08 4C' BNE PL_BGCK_0046 ;ドカン？ ( no:PL_BGCK_0046 ) 2237 S000A0B 01 NOP 2238 ; 2239 S000A0C 2E 15 MOVE R5,R14 ;(R14) save 2240 ; 2241 S000A0E B6 FROM R6 2242 S000A0F 9E LOB 2243 S000A10 FE 0000" IWT R14,#DOKAN_TYPE 2244 S000A13 1E TO R14 2245 S000A14 5E ADD R14 2246 S000A15 EF GETB 2247 ; 2248 S000A16 25 1E MOVE R14,R5 ;(R14) load 2249 ; 2250 S000A18 20 15 MOVE R5,R0 ;(R0)(R5) <-- ドカンタイプ情報 2251 S000A1A 11 TO R1 ;[ * not break (R0) ] 2252 S000A1B 3E 78 AND #00001000B ;[ 00001000B <-- ドカン向き ] 2253 S000A1D 09 38' BEQ PL_BGCK_0046 ;ドカンユニットＯＫ？ ( no:PL_BGCK_0046 ) 2254 S000A1F 4D SWAP 2255 ; 2256 S000A20 50 ADD R0 ;(C) <-- 左ｏｒ右？ 2257 S000A21 3D A0 00 LMS R0,CWORK0 2258 S000A24 3E 7F AND #0FH 2259 S000A26 0C 03' BCC PL_BGCK_0044 ;左ドカン？ ( yes:PL_BGCK_0044 ) 2260 S000A28 01 NOP 2261 ; 2262 S000A29 3F 5F ADC #0FH ;[ ADD #010H ] 2263 PL_BGCK_0044 2264 S000A2B 3E A0 87 SMS R0,CDOKNCX ;補正用中心Ｘ座標セット 2265 ; 2266 S000A2E A1 40 IBT R1,#01000000B 2267 S000A30 21 WITH R1 ;[ * not break (R0) ] 2268 S000A31 75 AND R5 2269 S000A32 08 12' BNE PL_BGCK_0041 ;内ドカン？ ( yes:PL_BGCK_0041 ) 2270 S000A34 01 NOP 2271 ; 2272 S000A35 3E 6A SUB #0AH 2273 S000A37 A1 10 IBT R1,#1AH-0AH 2274 S000A39 61 SUB R1 2275 S000A3A 0D 1B' BCS PL_BGCK_0046 ;Ｘ位置ＯＫ？ ( no:PL_BGCK_0046 ) 2276 S000A3C 01 NOP 2277 ; 2278 S000A3D 3D F0 0071 LM R0,CMKEYC1 2279 S000A41 3E 78 AND #00001000B 2280 S000A43 09 12' BEQ PL_BGCK_0046 ;上キー入力？ ( no:PL_BGCK_0046 ) 2281 S000A45 01 NOP 2282 ; 2283 PL_BGCK_0041 2284 S000A46 3D A0 A8 LMS R0,CBERFLG 2285 S000A49 E0 DEC R0 2286 S000A4A 0A 0B' BPL PL_BGCK_0046 ;状態ＯＫ？ ( no:PL_BGCK_0046 ) 2287 S000A4C 01 NOP 2288 ; 2289 ;-------------- ドカン出入りデモへ -------------- 2290 S000A4D A5 08 IBT R5,#00001000B ;(R5) <-- ドカン向き 2291 mJSR DOKAN_INOUT_IN_2 ;[ (R5) <-- 向き ] 2291+ S000A4F 94 LINK #4 2291+ S000A50 FF 15D7' IWT R15, #DOKAN_INOUT_IN_2 2291+ S000A53 01 NOP 2292 S000A54 05 0C' BRA PL_BGCK_0050 2293 S000A56 01 NOP 2294 ; 2295 ;-------------- サウンドセット座標セット ---------------- 2296 PL_BGCK_0046 2297 S000A57 A0 1F IBT R0,#01FH ;[♪] 2298 S000A59 3E A0 3D SMS R0,CMSOUND3 2299 ; 2300 ;-------------- 頭ＢＧ当たり”ボヨヨ〜ン”セット ---------------- 2301 S000A5C A0 08 IBT R0,#(2*4) 2302 S000A5E 3E A0 EE SMS R0,CPHBOYO 2303 ; 2304 PL_BGCK_0048 2305 S000A61 DA INC R10 ;Ｙ座標補正 2306 ; 2307 ;------------------------------------------------------------------------ 2308 ;- 左足チェック - 2309 ;------------------------------------------------------------------------ 2310 PL_BGCK_0050 2311 S000A62 A3 F0 IBT R3,#0F0H ;(R3) <-- 足チェックフラグ 2312 S000A64 3D A4 5C LMS R4,CPLSKCL ;(R4) <-- 前回坂フラグ 2313 mJSR_X BG_HDFTCK+1 2313+ S000A67 94 LINK #4 2313+ S000A68 FF 0DA6' IWT R15, #BG_HDFTCK+1 2314 S000A6B 3E HEX 3E ;[ SMS R11,RTS1 ] 2315 ; 2316 ;-------------- 左足のＢＧチェック情報保存 ---------------------- 2317 S000A6C 3E A1 0A SMS R1,CWORKA ;(CWKA) <-- 左足補正値 2318 S000A6F 3D A0 08 LMS R0,CWORK8 2319 S000A72 3E A0 5C SMS R0,CPLSKCL ;前回坂フラグセット 2320 ; 2321 S000A75 3D A0 00 LMS R0,CWORK0 ;(CWK10) <-- ＢＧチェックＸ座標 2322 S000A78 3E A0 10 SMS R0,CWORK10 2323 S000A7B 3D A0 01 LMS R0,CWORK1 ;(CWK11) <-- ＢＧチェックＹ座標 2324 S000A7E 3E A0 11 SMS R0,CWORK11 2325 S000A81 3E A6 12 SMS R6,CWORK12 ;(CWK12) <-- BG unit no. 2326 S000A84 3E A7 13 SMS R7,CWORK13 ;(CWK13) <-- BG unit no. type 2327 ; 2328 ;------------------------------------------------------------------------ 2329 ;- 中足チェック - 2330 ;------------------------------------------------------------------------ 2331 S000A87 3D A4 5D LMS R4,CPLSKCC ;(R4) <-- 前回坂フラグ 2332 mJSR_X BG_HDFTCK+1 2332+ S000A8A 94 LINK #4 2332+ S000A8B FF 0DA6' IWT R15, #BG_HDFTCK+1 2333 S000A8E 3E HEX 3E ;[ SMS R11,RTS1 ] 2334 ; 2335 ;-------------- 左足のＢＧチェック情報保存 ---------------------- 2336 S000A8F 3E A1 0B SMS R1,CWORKB ;(CWKB) <-- 中足補正値 2337 S000A92 3D A0 08 LMS R0,CWORK8 ;(CWKE) <-- 中足移動角度 2338 S000A95 3E A0 5D SMS R0,CPLSKCC ;前回坂フラグセット 2339 ; 2340 S000A98 3D A0 00 LMS R0,CWORK0 ;(CWK14) <-- ＢＧチェックＸ座標 2341 S000A9B 3E A0 14 SMS R0,CWORK14 2342 S000A9E 3D A0 01 LMS R0,CWORK1 ;(CWK15) <-- ＢＧチェックＹ座標 2343 S000AA1 3E A0 15 SMS R0,CWORK15 2344 S000AA4 3E A6 16 SMS R6,CWORK16 ;(CWK16) <-- BG unit no. 2345 S000AA7 3E A7 17 SMS R7,CWORK17 ;(CWK17) <-- BG unit no. type 2346 ; 2347 ;------------------------------------------------------------------------ 2348 ;- 右足チェック - 2349 ;------------------------------------------------------------------------ 2350 S000AAA 3D A4 5E LMS R4,CPLSKCR ;(R4) <-- 前回坂フラグ 2351 mJSR_X BG_HDFTCK+1 2351+ S000AAD 94 LINK #4 2351+ S000AAE FF 0DA6' IWT R15, #BG_HDFTCK+1 2352 S000AB1 3E HEX 3E ;[ SMS R11,RTS1 ] 2353 ; 2354 S000AB2 3E A1 0C SMS R1,CWORKC ;(CWKC) <-- 右足補正値 2355 S000AB5 3D A4 08 LMS R4,CWORK8 ;(R4) <-- 右足移動角度 2356 S000AB8 3E A4 5E SMS R4,CPLSKCR ;前回坂フラグセット 2357 ; 2358 ;------------------------------------------------------------------------ 2359 ;- 足ＢＧ総合チェック - 2360 ;------------------------------------------------------------------------ 2361 S000ABB B2 FROM R2 2362 S000ABC 3E 77 AND #00000111B 2363 S000ABE 08 23' BNE PL_BGCK_0200 ;足当たった？ ( yes:PL_BGCK_0200 ) 2364 S000AC0 01 NOP 2365 ; 2366 ;-------------- リフト乗ってるか？チェック ------------------------------ 2367 S000AC1 3D A0 DA LMS R0,CONLFFG 2368 S000AC4 3E 60 SUB #0 2369 S000AC6 09 0A' BEQ PL_BGCK_0180 ;リフト乗ってる？ ( no:PL_BGCK_0180 ) 2370 S000AC8 01 NOP 2371 ; 2372 S000AC9 A4 00 IBT R4,#0 ;(R4) <-- 移動角度 2373 S000ACB 3D A6 55 LMS R6,CPLYSPD ;(R6) <-- Ｙスピード 2374 mDJMP PL_BGCK_0260 2374+ S000ACE FF 0B59' IWT R15, #PL_BGCK_0260 2374+ S000AD1 01 NOP 2375 ; 2376 ;-------------- ＢＧ当たって無い ---------------------------------------- 2377 PL_BGCK_0180 2378 S000AD2 3D A0 60 LMS R0,CPLJUMP 2379 S000AD5 E0 DEC R0 2380 S000AD6 0A 07' BPL PL_BGCK_0190 ;プレイヤージャンプ中？ ( yes:PL_BGCK_0190 ) 2381 S000AD8 01 NOP 2382 ; 2383 S000AD9 F0 0008 IWT R0,#P008 ;ジャンプフラグ”ＯＮ” 2384 S000ADC 3E A0 60 SMS R0,CPLJUMP 2385 PL_BGCK_0190 2386 mDJMP PL_BGCK_0300 2386+ S000ADF FF 0BCB' IWT R15, #PL_BGCK_0300 2386+ S000AE2 01 NOP 2387 ; 2388 ;-------------- ＢＧ当たり ---------------------------------------------- 2389 PL_BGCK_0200 2390 ; 2391 ;-------------- 最大補正値チェック [ (R3) <-- 最大補正値 ] ------ 2392 S000AE3 3D A0 0A LMS R0,CWORKA ;(R0) <-- 左足補正値 2393 S000AE6 3D A5 0B LMS R5,CWORKB ;(R5) <-- 中足補正値 2394 S000AE9 65 SUB R5 2395 S000AEA 0B 03' BMI PL_BGCK_0202 ;左足補正値＞中足補正値？ ( yes:PL_BGCK_0202 ) 2396 S000AEC 55 ADD R5 2397 ; 2398 S000AED 25 10 MOVE R0,R5 2399 PL_BGCK_0202 2400 S000AEF 3D A5 0C LMS R5,CWORKC ;(R5) <-- 右足補正値 2401 S000AF2 25 13 MOVE R3,R5 2402 S000AF4 63 SUB R3 2403 S000AF5 0A 03' BPL PL_BGCK_0204 ;（左足補正値＞中足補正値）＞右足補正値？ ( no:PL_BGCK_0204 ) 2404 S000AF7 53 ADD R3 2405 ; 2406 S000AF8 20 13 MOVE R3,R0 2407 ; 2408 ;-------------- Ｙ座標補正 -------------------------------------- 2409 PL_BGCK_0204 2410 S000AFA 2A WITH R10 ;Ｙ座標補正 2411 S000AFB 53 ADD R3 2412 ; 2413 S000AFC B5 FROM R5 2414 S000AFD 63 SUB R3 2415 S000AFE 08 06' BNE PL_BGCK_0206 ;右足当たりＯＫ？ ( no:PL_BGCK_0206 ) 2416 S000B00 01 NOP 2417 ; 2418 ;-------------- 右足当たりＯＫ後特殊ＢＧチェック -------- 2419 mJSR FOOT_RESULT 2419+ S000B01 94 LINK #4 2419+ S000B02 FF 14D4' IWT R15, #FOOT_RESULT 2419+ S000B05 01 NOP 2420 ; 2421 ;-------------- 中足のＢＧチェック情報復帰 -------------- 2422 PL_BGCK_0206 2423 S000B06 3D A0 0B LMS R0,CWORKB ;(R0) <-- 中足補正値 2424 S000B09 63 SUB R3 2425 S000B0A 08 1B' BNE PL_BGCK_0210 ;中足当たりＯＫ？ ( no:PL_BGCK_0210 ) 2426 S000B0C 01 NOP 2427 ; 2428 S000B0D 3D A0 14 LMS R0,CWORK14 2429 S000B10 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- 中足ＢＧチェックＸ座標 2430 S000B13 3D A0 15 LMS R0,CWORK15 2431 S000B16 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- 中足ＢＧチェックＹ座標 2432 S000B19 3D A6 16 LMS R6,CWORK16 ;(R6) <-- 中足 BG unit no. 2433 S000B1C 3D A7 17 LMS R7,CWORK17 ;(R7) <-- 中足 BG unit no. type 2434 S000B1F 3D A4 5D LMS R4,CPLSKCC ;(R4) <-- 中足移動角度 2435 ; 2436 ;-------------- 中足当たりＯＫ後特殊ＢＧチェック -------- 2437 mJSR FOOT_RESULT_C 2437+ S000B22 94 LINK #4 2437+ S000B23 FF 1450' IWT R15, #FOOT_RESULT_C 2437+ S000B26 01 NOP 2438 ; 2439 ;-------------- 左足のＢＧチェック情報復帰 -------------- 2440 PL_BGCK_0210 2441 S000B27 3D A0 0A LMS R0,CWORKA ;(R0) <-- 左足補正値 2442 S000B2A 63 SUB R3 2443 S000B2B 08 1B' BNE PL_BGCK_0250 ;中足当たりＯＫ？ ( no:PL_BGCK_0250 ) 2444 S000B2D 01 NOP 2445 ; 2446 S000B2E 3D A0 10 LMS R0,CWORK10 2447 S000B31 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- 左足ＢＧチェックＸ座標 2448 S000B34 3D A0 11 LMS R0,CWORK11 2449 S000B37 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- 左足ＢＧチェックＹ座標 2450 S000B3A 3D A6 12 LMS R6,CWORK12 ;(R6) <-- 左足 BG unit no. 2451 S000B3D 3D A7 13 LMS R7,CWORK13 ;(R7) <-- 左足 BG unit no. type 2452 S000B40 3D A4 5C LMS R4,CPLSKCL ;(R4) <-- 左足移動角度 2453 ; 2454 ;-------------- 左足当たりＯＫ後特殊ＢＧチェック -------- 2455 mJSR FOOT_RESULT 2455+ S000B43 94 LINK #4 2455+ S000B44 FF 14D4' IWT R15, #FOOT_RESULT 2455+ S000B47 01 NOP 2456 ; 2457 ;-------------- 足当たり情報セット ------------------------------ 2458 PL_BGCK_0250 2459 S000B48 3D A0 63 LMS R0,CPLSWIM 2460 S000B4B E0 DEC R0 2461 S000B4C 0A 0B' BPL PL_BGCK_0260 ;泳ぎ中？ ( yes:PL_BGCK_0260 ) 2462 S000B4E 01 NOP 2463 ; 2464 S000B4F 3D A6 55 LMS R6,CPLYSPD ;(R6) <-- Ｙスピード 2465 S000B52 60 SUB R0 2466 S000B53 90 SBK ;[ SMS R0,CPLYSPD ] Ｙスピードクリアー 2467 S000B54 A0 FF IBT R0,#0FFH ;[ IWT R0,#0FFFFH ] 着地継続の為 2468 S000B56 3E A0 47 SMS R0,CPLYSDR 2469 ; 2470 PL_BGCK_0260 2471 S000B59 3E A4 5B SMS R4,CPLANGL ;移動角度セット 2472 S000B5C 60 SUB R0 2473 S000B5D 3E A0 5C SMS R0,CPLSKCL ;前回坂フラグリセット 2474 S000B60 3E A0 5D SMS R0,CPLSKCC 2475 S000B63 3E A0 5E SMS R0,CPLSKCR 2476 ;;;; SMS R0,CPLKAID ;階段歩きフラグクリアー 2477 ; 2478 ;-------------- 着地の瞬間チェック ------------------------------ 2479 S000B66 3D A0 60 LMS R0,CPLJUMP 2480 S000B69 E0 DEC R0 2481 S000B6A 0B 17' BMI PL_BGCK_0270 ;着地の瞬間？ ( no:PL_BGCK_0270 ) 2482 S000B6C 60 SUB R0 2483 ; 2484 S000B6D 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＦＦ” 2485 ;;;; SMS R0,CPLSPJP ;ジタバタジャンプフラグリセット 2486 S000B70 3E A0 6B SMS R0,CPLDSNC ;”ドスーン！！”ウェイトカウンターリセット 2487 S000B73 3D A0 54 LMS R0,CPLXSPD 2488 S000B76 3E A0 5A SMS R0,CPLMVSP ;移動スピードセット 2489 S000B79 A0 FF" IBT R0,#JPET-1 2490 S000B7B 3E A0 EA SMS R0,CPLJPTM ;着地パターンセットタイマーセット 2491 ; 2492 ;;;; IBT R0,#BANK LSIN ;着地での移動スピードセット 2493 ;;;; ROMB 2494 ;;;;; 2495 ;;;; IWT R0,#LSIN 2496 ;;;; TO R14 2497 ;;;; ADD R4 2498 ;;;; GETB 2499 ;;;; SWAP 2500 ;;;; TO R5 2501 ;;;; FMULT 2502 ;;;; IBT R0,#040H 2503 ;;;; WITH R14 2504 ;;;; SUB R0 2505 ;;;; GETB 2506 ;;;; SWAP 2507 ;;;; LMS R6,CPLXSPD ;(R6) <-- Ｘスピード 2508 ;;;; FMULT 2509 ;;;; SUB R5 2510 ;;;; ADD R0 2511 ;;;; ADD R0 2512 ;;;; SMS R0,CPLMVSP 2513 ;;;;; 2514 ;;;; IBT R0,#BANK PLAYER_DATA 2515 ;;;; ROMB 2516 ; 2517 ;-------------- ”ドスーン！！”着地チェック -------------------- 2518 mJSR DOSN_JUST_CK 2518+ S000B7E 94 LINK #4 2518+ S000B7F FF 18E4' IWT R15, #DOSN_JUST_CK 2518+ S000B82 01 NOP 2519 ; 2520 PL_BGCK_0270 2521 ; 2522 ;-------------- 足元がオフセットモードでうごいてるか？チェック -- 2523 S000B83 3D A0 E5 LMS R0,CBG2OF_FG 2524 S000B86 E0 DEC R0 2525 S000B87 0B 06' BMI PL_BGCK_0272 ;オフセットモード？ ( no:PL_BGCK_0272 ) 2526 S000B89 01 NOP 2527 ; 2528 mJSR BG2OF_ON_CK 2528+ S000B8A 94 LINK #4 2528+ S000B8B FF 0C06' IWT R15, #BG2OF_ON_CK 2528+ S000B8E 01 NOP 2529 ; 2530 PL_BGCK_0272 2531 ;;;;;-------------- ダッシュ土けむりセットチェック ------------------ 2532 ;;;; mJSR DASH_SMOK_CK 2533 ; 2534 ;-------------- ドア入りチェック -------------------------------- 2535 S000B8F 3D A5 82 LMS R5,CPLDOOR 2536 S000B92 25 B5 MOVES R5,R5 2537 S000B94 09 35' BEQ PL_BGCK_0300 ;ドアの前いる？ ( no:PL_BGCK_0300 ) 2538 S000B96 01 NOP 2539 ; 2540 S000B97 B9 FROM R9 2541 S000B98 3E 7F AND #0FH 2542 S000B9A 3E 64 SUB #04H 2543 S000B9C 3E 69 SUB #04H*2+1 2544 S000B9E 0D 2B' BCS PL_BGCK_0300 ;ドアに入れる位置？ ( no:PL_BGCK_0300 ) 2545 S000BA0 01 NOP 2546 ; 2547 S000BA1 3D F0 0071 LM R0,CMKEYC1 2548 S000BA5 3E 78 AND #00001000B 2549 S000BA7 09 22' BEQ PL_BGCK_0300 ;ドアに入るキー入力？ ( no:PL_BGCK_0300 ) 2550 S000BA9 01 NOP 2551 ; 2552 S000BAA 3D A0 A8 LMS R0,CBERFLG 2553 S000BAD E0 DEC R0 2554 S000BAE 0A 1B' BPL PL_BGCK_0300 ;舌ショット中？ ( yes:PL_BGCK_0300 ) 2555 S000BB0 01 NOP 2556 ; 2557 S000BB1 3D A0 D9 LMS R0,CBABYNO 2558 S000BB4 50 ADD R0 ;[ CMP #8000H ] 2559 S000BB5 0C 14' BCC PL_BGCK_0300 ;赤ちゃん乗ってる？ ( no:PL_BGCK_0300 ) 2560 S000BB7 01 NOP 2561 ; 2562 ;-------------- ドアに入る初期セット ------------------------------------ 2563 ;;;; IWT R0,#DR 2564 ;;;; AND R5 2565 ;;;; BNE PL_BGCK_0280 ;ボーナスドア？ ( no:PL_BGCK_0280 ) 2566 ;;;; NOP 2567 ;;;;; 2568 ;;;; IWT R5,#POLDR ;(R5) <-- 敵Ｎｏ． 2569 ;;;; mJSR M_ENINSR ;敵エリア確保 2570 ;;;;; 2571 ;;;; BMI PL_BGCK_0300 ;敵エリア無し？ ( yes:PL_BGCK_0300 ) 2572 ;;;; NOP 2573 ;;;;; 2574 ;;;; IBT R5,#CEINIT ;初期モードへ 2575 ;;;; mSTW R5,CENMODE,R1 2576 ;;;; FROM R9 2577 ;;;; BIC #0FH ;[ AND #0FFF0H ] 2578 ;;;; TO R5 2579 ;;;; OR #08H 2580 ;;;; mSTW R5,CENXPSL,R1 ;Ｘ座標セット 2581 ;;;; FROM R10 2582 ;;;; TO R5 2583 ;;;; BIC #0FH ;[ AND #0FFF0H ] 2584 ;;;; mSTW R5,CENYPSL,R1 ;Ｙ座標セット 2585 ;;;;; 2586 ;;;; IBT R0,#01H 2587 ;;;; SMS R0,CPLSTFG ;プレイヤーＳＴＯＰ！！ 2588 ;;;; SMS R0,CENSTFG ;敵ＳＴＯＰ！！ 2589 ; 2590 ;-------------- プレイヤードアに入る初期セット ------------------ 2591 ;;;;PL_BGCK_0280 2592 S000BB8 A0 0A IBT R0,#PSHT ;プレイヤーエントツショットモードセット 2593 S000BBA 3E A0 56 SMS R0,CPLMODE 2594 S000BBD 60 SUB R0 ;[ IBT R0,#0 ] 2595 S000BBE 3E A0 7C SMS R0,CPLWALK ;パターンカウンターセット 2596 S000BC1 A0 06 IBT R0,#06H 2597 S000BC3 3E A0 E9 SMS R0,CPLWKTM ;パターン切り替えタイマーセット 2598 S000BC6 A0 08 IBT R0,#08H 2599 S000BC8 3E A0 8B SMS R0,CPCOLTR ;カラー切り替えカウンターセット 2600 ; 2601 ;------------------------------------------------------------------------ 2602 ;- ＢＧチェック結果セット - 2603 ;------------------------------------------------------------------------ 2604 PL_BGCK_0300 2605 S000BCB 3E A9 46 SMS R9,CPLXPSL 2606 S000BCE 3E AA 48 SMS R10,CPLYPSL 2607 S000BD1 3E A2 7E SMS R2,CPLBGCR 2608 ; 2609 ;------------------------------------------------------------------------ 2610 ;- ダメージＢＧ当たりチェック - 2611 ;------------------------------------------------------------------------ 2612 S000BD4 3D A0 81 LMS R0,CPLHARI 2613 S000BD7 E0 DEC R0 2614 S000BD8 0B 08' BMI PL_BGCK_0350 ;ダメージＢＧ当たりフラグクリアー 2615 S000BDA 01 NOP 2616 ; 2617 ;-------------- プレイヤーダメージセット -------------------------------- 2618 mSFCALL PLFAILST ;プレイヤーダメージセット 2618+ S000BDB A0 14 IBT R0,#PLFAILST 2618+ S000BDD 00 STOP 2618+ S000BDE 01 NOP 2619 S000BDF 05 20' BRA PL_BGCK_0500 2620 S000BE1 01 NOP 2621 ; 2622 ;------------------------------------------------------------------------ 2623 ;- トンネルＩＮ／ＯＵＴチェック - 2624 ;------------------------------------------------------------------------ 2625 PL_BGCK_0350 2626 S000BE2 3D A0 80 LMS R0,CPLTNEL 2627 S000BE5 C2 OR R2 ;(R0) <-- トンネル当たりフラグ 2628 S000BE6 F6 01F8 IWT R6,#111111000B ;(R6) <-- トンネルチェックデータ 2629 ; 2630 S000BE9 3D F5 1FEC LM R5,CCCHGTK 2631 S000BED E5 DEC R5 2632 S000BEE 0A 09' BPL PL_BGCK_0400 ;今、トンネルの中？ ( yes:PL_BGCK_0400 ) 2633 S000BF0 D5 INC R5 2634 ; 2635 ;-------------- トンネルに入ったか？チェック ---------------------------- 2636 S000BF1 76 AND R6 2637 S000BF2 66 SUB R6 2638 S000BF3 09 08' BEQ PL_BGCK_0410 ;トンネルに入った？ ( yes:PL_BGCK_0410 ) 2639 S000BF5 01 NOP 2640 ; 2641 S000BF6 05 09' BRA PL_BGCK_0500 2642 S000BF8 01 NOP 2643 ; 2644 ;-------------- トンネルから出たか？チェック ---------------------------- 2645 PL_BGCK_0400 2646 S000BF9 76 AND R6 2647 S000BFA 08 05' BNE PL_BGCK_0500 ;トンネルから出た？ ( no:PL_BGCK_0500 ) 2648 S000BFC 01 NOP 2649 ; 2650 ;-------------- トンネルＩＮ／ＯＵＴデモスタート初期セット -------------- 2651 PL_BGCK_0410 2652 mSFCALL TN_INOUT_IN 2652+ S000BFD A0 10 IBT R0,#TN_INOUT_IN 2652+ S000BFF 00 STOP 2652+ S000C00 01 NOP 2653 ; 2654 PL_BGCK_0500 2655 S000C01 3D AB 32 LMS R11,RTS2 ;[ return address load ] 2656 mRTS 2656+ S000C04 9B JMP R11 2656+ S000C05 01 NOP 2657 ; 2658 ;------------------------------------------------------------------------ 2659 ;- 足元がオフセットモードでうごいてるか？チェック - 2660 ;------------------------------------------------------------------------ 2661 000C06 BG2OF_ON_CK EQU $ 2662 S000C06 3D F0 0094 LM R0,CESCCH1 2663 S000C0A 15 TO R5 2664 S000C0B 3F 77 BIC #07H ;[ AND #0FFF8H ] 2665 S000C0D 3D A0 46 LMS R0,CPLXPSL 2666 S000C10 65 SUB R5 2667 S000C11 03 LSR 2668 S000C12 03 LSR 2669 S000C13 A5 42 IBT R5,#0021H*2 2670 S000C15 65 SUB R5 2671 S000C16 0D 1F' BCS BG2OF_ON_CK_030 ;オフセットエリア？ ( no:BG2OF_ON_CK_030 ) 2672 S000C18 55 ADD R5 2673 ; 2674 S000C19 03 LSR ;[ AND #0FFFEH ] 2675 S000C1A 08 08' BNE BG2OF_ON_CK_010 ;０ラインオフセットエリア？ ( no:BG2OF_ON_CK_010 ) 2676 S000C1C 50 ADD R0 ;[ AND #0FFFEH ] 2677 ; 2678 ;-------------- ０ラインオフセットエリア ------------------------ 2679 S000C1D 3D F0 1EF0 LM R0,CBG2OFV 2680 S000C21 05 07' BRA BG2OF_ON_CK_020+1 2681 S000C23 F5 HEX F5 ;[ IWT R5,#1FFFH ] 2682 ; 2683 ;-------------- ０ライン以外のオフセットエリア ------------------ 2684 BG2OF_ON_CK_010 2685 S000C24 F5 1F30 IWT R5,#CBG2OFF+(20H*2)-2 2686 S000C27 55 ADD R5 2687 S000C28 40 LDW (R0) 2688 BG2OF_ON_CK_020 2689 S000C29 F5 1FFF IWT R5,#1FFFH 2690 S000C2C 75 AND R5 2691 S000C2D 3D F5 009C LM R5,CESCCV1 2692 S000C31 65 SUB R5 2693 S000C32 3D A5 DA LMS R5,CONLFFG 2694 S000C35 C5 OR R5 2695 S000C36 90 SBK ;[ SMS R5,CONLFFG ] 2696 ; 2697 BG2OF_ON_CK_030 2698 mRTS 2698+ S000C37 9B JMP R11 2698+ S000C38 01 NOP 2699 ; 2700 ; 2701 ;------------------------------------------------------------------------ 2702 ; キャッシュプログラム - 2703 ;------------------------------------------------------------------------ 2704 ; 2705 ;------------------------------------------------------------------------ 2706 ;- 横当たりチェック - 2707 ;- in : - 2708 ;- (R1) <-- 横ＢＧ当たりＯＫフラグ - 2709 ;- (R2) <-- ＢＧ当たりフラグ - 2710 ;- (R3) <-- 補正向き - 2711 ;- (R4) <-- 補正データ - 2712 ;- (R9) <-- プレイヤーＸ座標 - 2713 ;- (R10) <-- ” Ｙ ” - 2714 ;- (R11) <-- 復帰アドレス - 2715 ;- (R14) <-- ＢＧチェックポイント - 2716 ;- データアドレス - 2717 ;- out : - 2718 ;- (R0) <-- BG unit no. type - 2719 ;- (R6) <-- BG unit no. - 2720 ;- (R7) <-- BG unit no. type - 2721 ;- (R8) <-- BG type status data - 2722 ;- (CWK0) <- ＢＧチェックＸ座標 - 2723 ;- (CWK1) <- ” Ｙ ” - 2724 ;- break : - 2725 ;- (R5) - 2726 ;- (R12) - 2727 ;- (R13) - 2728 ;- use RAM : - 2729 ;- (RTS0) - 2730 ;- (RTS1) - 2731 ;- (CWKE) - 2732 ;- (CWKF) - 2733 ;------------------------------------------------------------------------ 2734 BG_SIDECK_IN 2735 S000C39 A1 00 IBT R1,#0 ;(R1) <-- 横ＢＧ当たりＯＫフラグ 2736 S000C3B 3E A1 83 SMS R1,CDOKNMK ;ドカンチェックフラグリセット 2737 ; 2738 BG_SIDECK 2739 S000C3E 3E AB 31 SMS R11,RTS1 ;[ return address save ] 2740 ; 2741 S000C41 22 WITH R2 ;[ ASL R2 ] 2742 S000C42 52 ADD R2 2743 S000C43 21 WITH R1 ;[ ASL R1 ] 2744 S000C44 51 ADD R1 2745 S000C45 21 WITH R1 ;[ ASL R1 ] 2746 S000C46 51 ADD R1 2747 ; 2748 ;-------------- ＢＧ当たりチェック -------------------------------------- 2749 mJSR_X BGUNIT_READ+1 2749+ S000C47 94 LINK #4 2749+ S000C48 FF 0CCE' IWT R15, #BGUNIT_READ+1 2750 S000C4B 3F HEX 3F ;[ ALT3 ( GETBS ) ] 2751 ; 2752 BG_SIDECK_0000 2753 S000C4C 3E 72 AND #AL 2754 S000C4E 09 79' BEQ BG_SIDECK_0100 ;ＢＧ当たり？ ( no:BG_SIDECK_0100 ) 2755 S000C50 01 NOP 2756 ; 2757 ;-------------- 移動方向チェック ---------------------------------------- 2758 S000C51 3D A0 57 LMS R0,CPLTYPE 2759 S000C54 3E 6E SUB #P_SKI 2760 S000C56 08 4F' BNE BG_SIDECK_0001 ;スキーヨッシー？ ( no:BG_SIDECK_0001 ) 2761 S000C58 01 NOP 2762 ; 2763 S000C59 3D A0 60 LMS R0,CPLJUMP 2764 S000C5C E0 DEC R0 2765 S000C5D 0A 41' BPL BG_SIDECK_00002 ;ジャンプ中？ ( yes:BG_SIDECK_00002 ) 2766 S000C5F 01 NOP 2767 ; 2768 ;-------------- 激突岩のチェック -------------------------------- 2769 S000C60 3E A6 02 SMS R6,CWORK2 ;(CWK2) <-- BG unit no. 2770 S000C63 3E A7 03 SMS R7,CWORK3 ;(CWK3) <-- BG unit no. type 2771 S000C66 3E A8 04 SMS R8,CWORK4 ;(CWK4) <-- BG type status data 2772 S000C69 3D A8 00 LMS R8,CWORK0 2773 S000C6C B3 FROM R3 ;x16 2774 S000C6D 53 ADD R3 ; 2775 S000C6E 3E 88 MULT #8 ; 2776 S000C70 18 TO R8 ;(R8) <-- BG check X pos 2777 S000C71 58 ADD R8 2778 S000C72 3E A8 05 SMS R8,CWORK5 ;(CWK5) <-- BG check X pos 2779 S000C75 3D A0 01 LMS R0,CWORK1 ;(R0) <-- BG check Y pos 2780 S000C78 3E A0 06 SMS R0,CWORK6 ;(CWK6) <-- BG check Y pos 2781 S000C7B 3E A5 07 SMS R5,CWORK7 ;(CWK7) <-- 坂チェックデータ 2782 mJSR_X BGUNIT_READ_S+1 2782+ S000C7E 94 LINK #4 2782+ S000C7F FF 0CD7' IWT R15, #BGUNIT_READ_S+1 2783 S000C82 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 2784 ; 2785 S000C83 3E 74 AND #SK ;(Z) set 2786 ; 2787 S000C85 3D A6 02 LMS R6,CWORK2 ;(R6) <-- up BG unit no. 2788 S000C88 3D A7 03 LMS R7,CWORK3 ;(R7) <-- up BG unit no. type 2789 S000C8B 3D A8 04 LMS R8,CWORK4 ;(R8) <-- up BG type status data 2790 S000C8E 3D A0 05 LMS R0,CWORK5 2791 S000C91 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- BG check X pos 2792 S000C94 3D A0 06 LMS R0,CWORK6 2793 S000C97 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- BG check Y pos 2794 ; 2795 S000C9A 08 2D' BNE BG_SIDECK_0100 ;激突岩？ ( yes:BG_SIDECK_0100 ) 2796 S000C9C 01 NOP 2797 ; 2798 S000C9D 05 08' BRA BG_SIDECK_0001 2799 S000C9F 01 NOP 2800 ; 2801 BG_SIDECK_00002 2802 S000CA0 3D A0 55 LMS R0,CPLYSPD 2803 S000CA3 50 ADD R0 ;(C) <-- (N) 2804 S000CA4 0D 23' BCS BG_SIDECK_0100 ;上昇中？ ( yes:BG_SIDECK_0100 ) 2805 S000CA6 01 NOP 2806 ; 2807 BG_SIDECK_0001 2808 S000CA7 3D A0 54 LMS R0,CPLXSPD 2809 S000CAA 3E 60 SUB #0 2810 S000CAC 09 06' BEQ BG_SIDECK_0002 2811 S000CAE D2 INC R2 ;ＢＧ当たりフラグ”ＯＮ” 2812 ; 2813 S000CAF 3D C3 XOR R3 2814 S000CB1 0A 16' BPL BG_SIDECK_0100 ;移動方向ＯＫ？ ( no:BG_SIDECK_0100 ) 2815 S000CB3 01 NOP 2816 ; 2817 BG_SIDECK_0002 2818 S000CB4 D1 INC R1 ;横ＢＧ当たりＯＫフラグ”ＯＮ” 2819 ; 2820 ;-------------- Ｘ座標補正チェック ------------------------------ 2821 S000CB5 24 B3 MOVES R4,R3 ;Ｘ座標補正値セット 2822 ; 2823 S000CB7 3D A0 00 LMS R0,CWORK0 2824 S000CBA 3E 7F AND #0FH 2825 S000CBC D3 INC R3 ;[ * (R3): 00001H or 0FFFFH ] 2826 S000CBD 09 03' BEQ BG_SIDECK_0060 ;左へ補正？ ( yes:BG_SIDECK_0060 ) 2827 S000CBF E3 DEC R3 2828 ; 2829 S000CC0 3F CF XOR #0FH 2830 BG_SIDECK_0060 2831 S000CC2 E0 DEC R0 ;[ CMP #0 ] 2832 S000CC3 0A 04' BPL BG_SIDECK_0100 ;ＢＧ当たり継続？ ( yes:BG_SIDECK_0100 ) 2833 S000CC5 01 NOP 2834 ; 2835 S000CC6 3E A3 45 SMS R3,CPLXSDR 2836 BG_SIDECK_0100 2837 ; 2838 ;------------------------------------------------------------------------ 2839 ;- 横用特殊ＢＧ当たりチェック - 2840 ;------------------------------------------------------------------------ 2841 mDJMP SIDE_SP_CK 2841+ S000CC9 FF 0ECB' IWT R15, #SIDE_SP_CK 2841+ S000CCC 01 NOP 2842 ; 2843 ; 2844 ;---------------------------------------------------------------- 2845 ;- ＢＧユニットＮｏ．読み込み - 2846 ;- in : - 2847 ;- (R1) <-- 敵のインデックス - 2848 ;- (R9) <-- 敵のＸ座標 - 2849 ;- (R10) <-- ” Ｙ ” - 2850 ;- (R11) <-- 復帰アドレス - 2851 ;- (R14) <-- ＢＧチェックポイント - 2852 ;- データアドレス - 2853 ;- out : - 2854 ;- (R0) <-- BG unit no. type - 2855 ;- (R6) <-- BG unit no. - 2856 ;- (R7) <-- BG unit no. type - 2857 ;- (R8) <-- BG type status data - 2858 ;- (CWK0) <- ＢＧチェックＸ座標 - 2859 ;- (CWK1) <- ” Ｙ ” - 2860 ;- break : - 2861 ;- (R5) - 2862 ;---------------------------------------------------------------- 2863 BGUNIT_READ 2864 S000CCD 3F EF GETBS 2865 S000CCF DE INC R14 2866 S000CD0 18 TO R8 ;(R8) <-- BG check X pos 2867 S000CD1 59 ADD R9 2868 ; 2869 S000CD2 3F EF GETBS 2870 S000CD4 DE INC R14 2871 S000CD5 5A ADD R10 2872 BGUNIT_READ_S 2873 S000CD6 3D A6 E5 LMS R6,CBG2OF_FG 2874 S000CD9 E6 DEC R6 ;(N) set 2875 ; 2876 S000CDA 17 TO R7 ;(R7) <-- BG check Y pos x2 2877 S000CDB 0B 05' BMI BGUNIT_READ_000 ;オフセットモード？ ( no:BGUNIT_READ_000 ) 2878 S000CDD 50 ADD R0 2879 ; 2880 mDJMP BGUNIT_READ_O 2880+ S000CDE FF 0D75' IWT R15, #BGUNIT_READ_O 2880+ S000CE1 01 NOP 2881 ; 2882 BGUNIT_READ_000 2883 S000CE2 3D A5 53 LMS R5,CWRSCV1 2884 S000CE5 65 SUB R5 2885 S000CE6 F5 00E0 IWT R5,#0E0H 2886 S000CE9 65 SUB R5 ;(C) set 2887 ; 2888 S000CEA 3D A5 52 LMS R5,CWRSCH1 2889 S000CED 0D 1A' BCS BGUNIT_READ_002 ;ＢＧチェックバッファＹ座標範囲内？ ( no:BGUNIT_READ_002 ) 2890 S000CEF B8 FROM R8 2891 ; 2892 S000CF0 65 SUB R5 2893 S000CF1 C0 HIB 2894 S000CF2 08 15' BNE BGUNIT_READ_002 ;ＢＧチェックバッファＸ座標範囲内？ ( no:BGUNIT_READ_002 ) 2895 S000CF4 B8 FROM R8 2896 ; 2897 S000CF5 03 LSR 2898 S000CF6 03 LSR 2899 S000CF7 03 LSR 2900 S000CF8 A5 3E IBT R5,#01F0H>>3 2901 S000CFA 15 TO R5 2902 S000CFB 75 AND R5 2903 S000CFC F0 01E0 IWT R0,#0F0H<<1 2904 S000CFF 77 AND R7 2905 S000D00 50 ADD R0 2906 S000D01 C5 OR R5 vvv******* warn :value out of range 2907 S000D02 F5 409E IWT R5,#BGCHECK_BUF 2908 S000D05 55 ADD R5 2909 S000D06 05 2B' BRA BGUNIT_READ_010 2910 S000D08 40 LDW (R0) 2911 ; 2912 BGUNIT_READ_002 2913 S000D09 70 MERGE 2914 S000D0A 09 64' BEQ BGUNIT_READ_020 ;BG check point max over ? ( yes:BGUNIT_READ_020 ) 2915 S000D0C 16 TO R6 2916 ; 2917 S000D0D 9E LOB 2918 S000D0E C0 HIB 2919 S000D0F 3E 7E AND #07H*2 2920 S000D11 3F 88 UMULT #8 2921 S000D13 C6 OR R6 2922 S000D14 F6 0CAA IWT R6,#CUNBUFAD 2923 S000D17 56 ADD R6 2924 S000D18 3D 40 LDB (R0) 2925 S000D1A A6 3F IBT R6,#3FH 2926 S000D1C 76 AND R6 2927 S000D1D 16 TO R6 2928 S000D1E 4D SWAP 2929 S000D1F F0 01E0 IWT R0,#0F0H<<1 2930 S000D22 15 TO R5 2931 S000D23 77 AND R7 2932 S000D24 B8 FROM R8 2933 S000D25 9E LOB 2934 S000D26 03 LSR 2935 S000D27 03 LSR 2936 S000D28 03 LSR 2937 S000D29 C5 OR R5 2938 S000D2A 03 LSR 2939 S000D2B C6 OR R6 2940 S000D2C 50 ADD R0 ;[ ASL ] vvv******* warn :value out of range 2941 S000D2D F6 8000 IWT R6,#CBGUNIT 2942 S000D30 56 ADD R6 2943 mRAM_READ ;<<< SFC-RAM read >>> 2943+ S000D31 00 STOP 2943+ S000D32 01 NOP 2944 ; 2945 BGUNIT_READ_010 2946 S000D33 20 16 MOVE R6,R0 ;(R6) <-- BG unit no. 2947 S000D35 C0 HIB 2948 S000D36 3F 83 UMULT #3 ;x3 2949 BGUNIT_READ_011 2950 S000D38 2E 15 MOVE R5,R14 ;(R14) save 2951 ; 2952 S000D3A FE 0000" IWT R14,#EN_BGTYPE 2953 S000D3D 1E TO R14 ;(R14) <-- BG unit no. type data address 2954 S000D3E 5E ADD R14 2955 S000D3F 3E A8 00 SMS R8,CWORK0 ;(CWK0) <-- BG check X pos 2956 S000D42 EF GETB 2957 S000D43 DE INC R14 2958 ; 2959 S000D44 27 WITH R7 2960 S000D45 96 ASR 2961 S000D46 3E A7 01 SMS R7,CWORK1 ;(CWK1) <-- BG check Y pos 2962 ; 2963 S000D49 A8 F8 IBT R8,#11111000B ;(R8) <-- ＢＧタイプチェック用ＡＮＤデータ 2964 ; 2965 S000D4B 3D EF GETBH 2966 S000D4D DE INC R14 2967 S000D4E 20 17 MOVE R7,R0 ;(R0),(R7) <-- BG type data 2968 ; 2969 S000D50 C0 HIB ;[ 上位バイトは０になるのでＡＮＤしても上位バイトは０ ] 2970 S000D51 78 AND R8 2971 S000D52 A8 72 IBT R8,#(CB/100H)-00001000B+2 ;[ CB=0111100000000000B：サイン拡張しない ] 2972 S000D54 68 SUB R8 2973 S000D55 3E 6F SUB #00001111B ;[ 00000110B:CB 00001110B:MB ] 2974 S000D57 0D 10' BCS BGUNIT_READ_012+1 ;点線ブロック？ ( no:BGUNIT_READ_012+1 ) 2975 S000D59 18 TO R8 ;[ * BGUNIT_READ_012 ] 2976 ; 2977 S000D5A A8 11 IBT R8,#00001111B+00000010B ;[ 00001000B:CB 00010000B:MB ] 2978 S000D5C 58 ADD R8 2979 S000D5D 3D F8 1E08 LM R8,CSWITCH_1 2980 S000D61 78 AND R8 2981 S000D62 09 05' BEQ BGUNIT_READ_012+1 2982 S000D64 18 TO R8 ;[ * BGUNIT_READ_012 ] 2983 ; 2984 S000D65 27 WITH R7 ;全当たりに変更 2985 S000D66 3E C2 OR #AL 2986 ; 2987 BGUNIT_READ_012 2988 S000D68 18 TO R8 ;(R8) <-- BG type status data 2989 S000D69 EF GETB 2990 ; 2991 S000D6A 27 10 MOVE R0,R7 ;(R0),(R7) <-- BG type data 2992 S000D6C 25 1E MOVE R14,R5 ;(R14) load 2993 mRTS 2993+ S000D6E 9B JMP R11 2993+ S000D6F 01 NOP 2994 ; 2995 BGUNIT_READ_020 2996 S000D70 A6 01 IBT R6,#UT0001 ;(R6) <-- BG unit no. 2997 S000D72 05 C4' BRA BGUNIT_READ_011 2998 S000D74 60 SUB R0 ;[ (R0) <-- HIGH(R6) x3 ] 2999 ; 3000 ;---------------------------------------------------------------- 3001 ;- ＢＧユニットＮｏ．読み込み（オフセット） - 3002 ;- in : - 3003 ;- (R1) <-- 敵のインデックス - 3004 ;- (R9) <-- 敵のＸ座標 - 3005 ;- (R10) <-- ” Ｙ ” - 3006 ;- (R11) <-- 復帰アドレス - 3007 ;- (R14) <-- ＢＧチェックポイント - 3008 ;- データアドレス - 3009 ;- out : - 3010 ;- (R0) <-- BG unit no. type - 3011 ;- (R6) <-- BG unit no. - 3012 ;- (R7) <-- BG unit no. type - 3013 ;- (R8) <-- BG type status data - 3014 ;- (CWK0) <- ＢＧチェックＸ座標 - 3015 ;- (CWK1) <- ” Ｙ ” - 3016 ;- break : - 3017 ;- (R5) - 3018 ;---------------------------------------------------------------- 3019 BGUNIT_READ_O 3020 S000D75 3D F0 0094 LM R0,CESCCH1 3021 S000D79 3F 77 BIC #07H ;[ AND #0FFF8H ] 3022 S000D7B B8 FROM R8 3023 S000D7C 60 SUB R0 3024 S000D7D 03 LSR 3025 S000D7E 03 LSR 3026 S000D7F A5 42 IBT R5,#0021H*2 3027 S000D81 65 SUB R5 3028 S000D82 0D 1D' BCS BGUNIT_READ_O40 ;オフセットエリア？ ( no:BGUNIT_READ_O40 ) 3029 S000D84 55 ADD R5 3030 ; 3031 S000D85 03 LSR ;[ AND #0FFFEH ] 3032 S000D86 08 08' BNE BGUNIT_READ_O20 ;０ラインオフセットエリア？ ( no:BGUNIT_READ_O20 ) 3033 S000D88 50 ADD R0 ;[ AND #0FFFEH ] 3034 ; 3035 ;-------------- ０ラインオフセットエリア ------------------------ 3036 S000D89 3D F0 1EF0 LM R0,CBG2OFV 3037 S000D8D 05 07' BRA BGUNIT_READ_O30+1 3038 S000D8F F5 HEX F5 ;[ IWT R5,#1FFFH ] 3039 ; 3040 ;-------------- ０ライン以外のオフセットエリア ------------------ 3041 BGUNIT_READ_O20 3042 S000D90 F5 1F30 IWT R5,#CBG2OFF+(20H*2)-2 3043 S000D93 55 ADD R5 3044 S000D94 40 LDW (R0) 3045 BGUNIT_READ_O30 3046 S000D95 F5 1FFF IWT R5,#1FFFH 3047 S000D98 75 AND R5 3048 S000D99 3D F5 009C LM R5,CESCCV1 3049 S000D9D 65 SUB R5 3050 S000D9E 50 ADD R0 3051 S000D9F 17 TO R7 3052 S000DA0 57 ADD R7 3053 ; 3054 BGUNIT_READ_O40 3055 mDJMP_X BGUNIT_READ_000+1 3055+ S000DA1 FF 0CE3' IWT R15, #BGUNIT_READ_000+1 3056 S000DA4 3D HEX 3D ;[ LMS R5,CWRSCV1 ] 3057 ; 3058 ; 3059 ;------------------------------------------------------------------------ 3060 ;- 頭と足の当たりチェック - 3061 ;- in : - 3062 ;- (R2) <-- ＢＧ当たりフラグ - 3063 ;- (R3) <-- 頭か足のフラグ - 3064 ;- (R4) <-- 前回坂フラグ（足のみ） - 3065 ;- (R9) <-- プレイヤーＸ座標 - 3066 ;- (R10) <-- ” Ｙ ” - 3067 ;- (R11) <-- 復帰アドレス - 3068 ;- (R14) <-- ＢＧチェックポイント - 3069 ;- データアドレス - 3070 ;- out : - 3071 ;- (R0) <-- BG unit no. type - 3072 ;- (R6) <-- BG unit no. - 3073 ;- (R7) <-- BG unit no. type - 3074 ;- (R8) <-- BG type status data - 3075 ;- (CWK0) <- ＢＧチェックＸ座標 - 3076 ;- (CWK1) <- ” Ｙ ” - 3077 ;- (CWK8) <- 移動角度 - 3078 ;- 3079 ;- break : - 3080 ;- (R1) - 3081 ;- (R5) - 3082 ;- use RAM : - 3083 ;- (RTS1) - 3084 ;------------------------------------------------------------------------ 3085 BG_HDFTCK 3086 S000DA5 3E AB 31 SMS R11,RTS1 ;[ return address save ] 3087 ; 3088 S000DA8 22 WITH R2 ;[ ASL R2 ] 3089 S000DA9 52 ADD R2 3090 ; 3091 S000DAA 60 SUB R0 3092 S000DAB 3E A0 08 SMS R0,CWORK8 ;(CWK8) <-- saka angle 3093 ; 3094 mJSR_X BGUNIT_READ+1 3094+ S000DAE 94 LINK #4 3094+ S000DAF FF 0CCE' IWT R15, #BGUNIT_READ+1 3095 S000DB2 3F HEX 3F ;[ ALT3 ( GETBS ) ] 3096 ; 3097 BG_HDFTCK_0000 3098 S000DB3 3D A0 01 LMS R0,CWORK1 ;(R0) <-- BG check Y pos 3099 S000DB6 11 TO R1 ;(R1) <-- Y pos cross size 3100 S000DB7 3E 7F AND #0FH 3101 S000DB9 21 1C MOVE R12,R1 ;(R12) <-- Y pos cross size 3102 ; 3103 S000DBB A5 05 IBT R5,#MD+SK ;(R5) <-- 坂チェックデータ 3104 S000DBD E3 DEC R3 3105 S000DBE 0A 03' BPL BG_HDFTCK_010 ;頭チェック？ ( yes:BG_HDFTCK_010 ) 3106 S000DC0 D3 INC R3 3107 ; 3108 S000DC1 A5 04 IBT R5,#SK ;(R5) <-- 坂チェックデータ 3109 BG_HDFTCK_010 3110 S000DC3 B7 FROM R7 3111 S000DC4 75 AND R5 3112 S000DC5 1D TO R13 ;(R13) <-- 下のＢＧは坂？チェックしたか？ 3113 S000DC6 65 SUB R5 3114 S000DC7 09 29' BEQ BG_HDFTCK_020 ;坂 cross ? ( yes:BG_HDFTCK_020 ) 3115 S000DC9 01 NOP 3116 ; 3117 ;-------------- 下のＢＧは坂？チェック ---------------------------------- 3118 S000DCA 3E A6 02 SMS R6,CWORK2 ;(CWK2) <-- BG unit no. 3119 S000DCD 3E A7 03 SMS R7,CWORK3 ;(CWK3) <-- BG unit no. type 3120 S000DD0 3E A8 04 SMS R8,CWORK4 ;(CWK4) <-- BG type status data 3121 S000DD3 3D A8 00 LMS R8,CWORK0 3122 S000DD6 3E A8 05 SMS R8,CWORK5 ;(CWK5) <-- BG check X pos 3123 S000DD9 3D A7 01 LMS R7,CWORK1 3124 S000DDC 3E A7 06 SMS R7,CWORK6 ;(CWK6) <-- BG check Y pos 3125 S000DDF 3E A5 07 SMS R5,CWORK7 ;(CWK7) <-- 坂チェックデータ 3126 ; 3127 S000DE2 B3 FROM R3 3128 S000DE3 57 ADD R7 3129 mJSR_X BGUNIT_READ_S+1 3129+ S000DE4 94 LINK #4 3129+ S000DE5 FF 0CD7' IWT R15, #BGUNIT_READ_S+1 3130 S000DE8 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 3131 ; 3132 S000DE9 3D A5 07 LMS R5,CWORK7 ;(R5) <-- 坂チェックデータ 3133 S000DEC 75 AND R5 3134 S000DED 65 SUB R5 3135 S000DEE 08 6D' BNE BG_HDFTCK_040 ;坂 cross ? ( no:BG_HDFTCK_040 ) 3136 S000DF0 21 WITH R1 ;(R1) <-- Y pos cross size 3137 ; 3138 S000DF1 63 SUB R3 3139 ; 3140 ;-------------- 坂チェック ---------------------------------------------- 3141 BG_HDFTCK_020 3142 S000DF2 3E AE 2E SMS R14,REG14 ;(R14) save 3143 ; 3144 S000DF5 B8 FROM R8 ;坂タイプＮｏ．x(8x16) 3145 S000DF6 4D SWAP 3146 S000DF7 23 B3 MOVES R3,R3 3147 S000DF9 0A 03' BPL BG_HDFTCK_030 ;頭チェック？ ( yes:BG_HDFTCK_030 ) 3148 S000DFB 03 LSR 3149 ; 3150 S000DFC D0 INC R0 ;[ +2 ] 3151 S000DFD D0 INC R0 ; 3152 BG_HDFTCK_030 3153 S000DFE FE 0004" IWT R14,#SAKA_DATA+4 3154 S000E01 1E TO R14 3155 S000E02 5E ADD R14 3156 S000E03 3D A0 00 LMS R0,CWORK0 3157 S000E06 3E 7F AND #0FH 3158 S000E08 3E 88 MULT #8 3159 S000E0A 1E TO R14 ;(R14) <-- 坂データアドレス 3160 S000E0B 5E ADD R14 3161 S000E0C 15 TO R5 3162 S000E0D EF GETB 3163 S000E0E DE INC R14 3164 S000E0F 3F EF GETBS 3165 ; 3166 S000E11 3D AE 2E LMS R14,REG14 ;(R14) load 3167 ; 3168 S000E14 61 SUB R1 3169 S000E15 3D C3 XOR R3 3170 S000E17 0B 3F' BMI BG_HDFTCK_036 ;cross ? ( no:BG_HDFTCK_036 ) 3171 S000E19 11 TO R1 ;(R1) <-- 補正値 3172 ; 3173 S000E1A 3D C3 XOR R3 3174 S000E1C D1 INC R1 3175 S000E1D 3E A5 08 SMS R5,CWORK8 ;(CWK8) <-- saka angle 3176 ; 3177 S000E20 23 B3 MOVES R3,R3 3178 ;;;; IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 3179 S000E22 0A 77' BPL BG_HDFTCK_070 ;頭チェック？ ( yes:BG_HDFTCK_070 ) 3180 S000E24 D2 INC R2 ;[ BG cross flag set ] 3181 ;;;; ELSE ;**** PAL 対応 [1995/7/21] ************************ 3182 ;;;; BMI BG_HDFTCK_031 3183 ;;;; INC R2 ;[ BG cross flag set ] 3184 ;;;;; 3185 ;;;; mDJMP BG_HDFTCK_070 3186 ;;;;; 3187 ;;;;BG_HDFTCK_031 3188 ;;;;; 3189 ;;;; ENDIF 3190 ; 3191 ;-------------- 足の坂ＢＧ当たりＯＫチェック -------------------- 3192 S000E25 B5 FROM R5 3193 S000E26 95 SEX 3194 S000E27 0A 03' BPL BG_HDFTCK_032 3195 S000E29 01 NOP 3196 ; 3197 S000E2A 4F NOT 3198 S000E2B D0 INC R0 3199 BG_HDFTCK_032 3200 S000E2C 03 LSR 3201 S000E2D 03 LSR 3202 S000E2E 03 LSR 3203 S000E2F 03 LSR 3204 ;;;; IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 3205 S000E30 3E 59 ADD #8+1 ;(R0) <-- 坂の角度による補正可能範囲 3206 ;;;; ELSE ;**** PAL 対応 [1995/7/21] ************************ 3207 ;;;; ADC #8+1 ;(R0) <-- 坂の角度による補正可能範囲 3208 ;;;; SUB #8+1+3 3209 ;;;; BCC BG_HDFTCK_033 ;急坂？ ( no:BG_HDFTCK_033 ) 3210 ;;;; NOP 3211 ;;;;; 3212 ;;;; ADD #4 3213 ;;;;BG_HDFTCK_033 3214 ;;;; ADD #8+1+3 3215 ;;;; ENDIF ;**** PAL 対応 [1995/7/20] ***************************** 3216 S000E32 51 ADD R1 3217 ;;;;; FROM R1 3218 ;;;;; ADD #8+1 ;[ +1:スキーヨッシーで食い込む為 ] 3219 S000E33 0B 22' BMI BG_HDFTCK_035 ;補正できる範囲？ ( no:BG_HDFTCK_035 ) 3220 S000E35 01 NOP 3221 ; 3222 S000E36 3D A0 55 LMS R0,CPLYSPD ;(R0) <-- 上下スピード 3223 S000E39 50 ADD R0 ;(C) <-- (N) 3224 S000E3A 0C 63' BCC BG_HDFTCK_080 ;上昇中？ ( no:BG_HDFTCK_080 ) 3225 S000E3C 01 NOP 3226 ; 3227 S000E3D 3D A0 60 LMS R0,CPLJUMP 3228 S000E40 E0 DEC R0 3229 S000E41 0B 5C' BMI BG_HDFTCK_080 ;ジャンプ中？ ( no:BG_HDFTCK_080 ) 3230 S000E43 01 NOP 3231 ; 3232 S000E44 E4 DEC R4 3233 S000E45 0A 10' BPL BG_HDFTCK_035 ;前回坂？ ( yes:BG_HDFTCK_035 ) 3234 S000E47 D4 INC R4 3235 ; 3236 S000E48 3D F0 00A9 LM R0,CPLXSPD+1 3237 S000E4C 3D C5 XOR R5 3238 S000E4E 95 SEX 3239 S000E4F 0B 06' BMI BG_HDFTCK_035 ;坂方向ＯＫ？ ( no:BG_HDFTCK_035 ) 3240 S000E51 60 SUB R0 ;[ saka angle clear !! ] 3241 ; 3242 ;-------------- 坂での上昇中強制補正 -------------------- 3243 S000E52 3E A0 08 SMS R0,CWORK8 ;(CWK8) <-- saka angle 3244 S000E55 2A WITH R10 ;Ｙ座標補正 3245 S000E56 51 ADD R1 3246 ; 3247 BG_HDFTCK_035 3248 S000E57 E2 DEC R2 ;[ BG cross flag reset ] 3249 BG_HDFTCK_036 3250 S000E58 2D BD MOVES R13,R13 3251 S000E5A 09 39' BEQ BG_HDFTCK_060 ;下のＢＧは坂？チェックしたか？ ( no:BG_HDFTCK_060 ) 3252 S000E5C 01 NOP 3253 ; 3254 ;-------------- 下のＢＧは坂ではなかった -------------------------------- 3255 BG_HDFTCK_040 3256 S000E5D 2C 11 MOVE R1,R12 ;[ from ] (R1) <-- Y pos cross size 3257 ; 3258 S000E5F 3D A6 02 LMS R6,CWORK2 ;(R6) <-- up BG unit no. 3259 S000E62 3D A7 03 LMS R7,CWORK3 ;(R7) <-- up BG unit no. type 3260 S000E65 3D A8 04 LMS R8,CWORK4 ;(R8) <-- up BG type status data 3261 S000E68 3D A0 05 LMS R0,CWORK5 3262 S000E6B 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- BG check X pos 3263 S000E6E 3D A0 06 LMS R0,CWORK6 3264 S000E71 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- BG check Y pos 3265 ; 3266 BG_HDFTCK_042 3267 S000E74 A0 02 IBT R0,#AL 3268 S000E76 E3 DEC R3 3269 S000E77 0A 03' BPL BG_HDFTCK_050 ;頭チェック？ ( yes:BG_HDFTCK_050 ) 3270 S000E79 D3 INC R3 3271 ; 3272 S000E7A A0 03 IBT R0,#MD+AL 3273 BG_HDFTCK_050 3274 S000E7C 77 AND R7 3275 S000E7D 09 16' BEQ BG_HDFTCK_060 ;BG cross ? ( no:BG_HDFTCK_060 ) 3276 S000E7F 01 NOP 3277 ; 3278 S000E80 D2 INC R2 ;[ BG cross flag set ] 3279 ; 3280 S000E81 21 WITH R1 ;(R1) <-- 補正値 3281 S000E82 4F NOT 3282 ; 3283 S000E83 23 B3 MOVES R3,R3 3284 S000E85 0A 14' BPL BG_HDFTCK_070 ;頭チェック？ ( yes:BG_HDFTCK_070 ) 3285 S000E87 D1 INC R1 3286 ; 3287 S000E88 3D A0 55 LMS R0,CPLYSPD ;(R0) <-- 上下スピード 3288 S000E8B 50 ADD R0 ;(C) <-- (N) 3289 S000E8C 0D 06' BCS BG_HDFTCK_052 ;上昇中？ ( yes:BG_HDFTCK_052 ) 3290 S000E8E B1 FROM R1 3291 ; 3292 S000E8F 3E 58 ADD #8 3293 S000E91 0A 0C' BPL BG_HDFTCK_080 ;補正できる範囲？ ( yes:BG_HDFTCK_080 ) 3294 S000E93 01 NOP 3295 ; 3296 ;-------------- 当たり無し補正値セット -------------------------- 3297 BG_HDFTCK_052 3298 S000E94 E2 DEC R2 ;[ BG cross flag reset ] 3299 BG_HDFTCK_060 3300 S000E95 A1 20 IBT R1,#020H ;当たり無し補正値 3301 ; 3302 S000E97 E3 DEC R3 3303 S000E98 0B 05' BMI BG_HDFTCK_080 ;足チェック？ ( yes:BG_HDFTCK_080 ) 3304 S000E9A D3 INC R3 3305 ; 3306 ;------------------------------------------------------------------------ 3307 ;- 頭用特殊ＢＧ当たりチェック - 3308 ;------------------------------------------------------------------------ 3309 BG_HDFTCK_070 3310 mDJMP HED_SP_CK 3310+ S000E9B FF 0FE8' IWT R15, #HED_SP_CK 3310+ S000E9E 01 NOP 3311 ; 3312 ;------------------------------------------------------------------------ 3313 ;- 足用特殊ＢＧ当たりチェック - 3314 ;------------------------------------------------------------------------ 3315 BG_HDFTCK_080 3316 mDJMP FOOT_SP_CK 3316+ S000E9F FF 11B4' IWT R15, #FOOT_SP_CK 3316+ S000EA2 01 NOP 3317 ; 3318 ; 3319 ;------------------------------------------------------------------------ 3320 ;- 特殊ＢＧ当たりチェック - 3321 ;- in : - 3322 ;- (R1) <-- ※使っている - 3323 ;- (R2) <-- ＢＧ当たりフラグ - 3324 ;- (R3) <-- ※使っている - 3325 ;- (R4) <-- ※使っている - 3326 ;- (R9) <-- プレイヤーＸ座標 - 3327 ;- (R10) <-- ” Ｙ ” - 3328 ;- (R11) <-- 復帰アドレス - 3329 ;- (R14) <-- ＢＧチェックポイント - 3330 ;- データアドレス - 3331 ;- out : - 3332 ;- (R6) <-- BG unit no. - 3333 ;- (R7) <-- BG unit no. type - 3334 ;- (CWK0) <- ＢＧチェックＸ座標 - 3335 ;- (CWK1) <- ” Ｙ ” - 3336 ;- break : - 3337 ;- (R1) - 3338 ;- (R5) - 3339 ;- use RAM : - 3340 ;- (RTS0) - 3341 ;------------------------------------------------------------------------ 3342 BG_SP_CHECK 3343 ; 3344 ;-------------- 水中チェック ------------------------------------ 3345 S000EA3 A0 18 IBT R0,#WT+MG 3346 S000EA5 77 AND R7 3347 S000EA6 3E 68 SUB #WT 3348 S000EA8 09 0C' BEQ BG_SP_CHECK_050 ;水中？ ( yes:BG_SP_CHECK_050 ) 3349 S000EAA D0 INC R0 3350 ; 3351 S000EAB 3D A0 01 LMS R0,CWORK1 3352 S000EAE 3D A5 DE LMS R5,CWATER_Y 3353 S000EB1 65 SUB R5 3354 S000EB2 0B 02' BMI BG_SP_CHECK_050 ;水中？ ( no:BG_SP_CHECK_050 ) 3355 S000EB4 60 SUB R0 3356 ; 3357 S000EB5 D0 INC R0 3358 BG_SP_CHECK_050 3359 S000EB6 03 LSR ;(C) set 3360 S000EB7 3D A0 7F LMS R0,CPLWATR ;(R0) <-- 水中当たりフラグ 3361 S000EBA 04 ROL ;(C) get 3362 S000EBB 90 SBK ;[ SMS R0,CPLWATR ] 3363 ; 3364 ;-------------- トンネルチェック -------------------------------- 3365 S000EBC 3D A0 80 LMS R0,CPLTNEL ;(R0) <-- トンネル当たりフラグ 3366 S000EBF 50 ADD R0 ;[ ASL ] 3367 S000EC0 A5 20 IBT R5,#TN 3368 S000EC2 25 WITH R5 3369 S000EC3 77 AND R7 3370 S000EC4 09 02' BEQ BG_SP_CHECK_100 ;トンネル？ ( no:BG_SP_CHECK_100 ) 3371 S000EC6 01 NOP 3372 ; 3373 S000EC7 D0 INC R0 3374 BG_SP_CHECK_100 3375 S000EC8 90 SBK ;[ SMS R0,CPLTNEL ] 3376 mRTS 3376+ S000EC9 9B JMP R11 3376+ S000ECA 01 NOP 3377 ; 3378 ;------------------------------------------------------------------------ 3379 ;- 横用特殊ＢＧ当たりチェック - 3380 ;- in : - 3381 ;- (R1) <-- 横ＢＧ当たりＯＫフラグ - 3382 ;- (R2) <-- ＢＧ当たりフラグ - 3383 ;- (R3) <-- 補正向き - 3384 ;- (R4) <-- 補正データ - 3385 ;- (R9) <-- プレイヤーＸ座標 - 3386 ;- (R10) <-- ” Ｙ ” - 3387 ;- (R14) <-- ＢＧチェックポイント - 3388 ;- データアドレス - 3389 ;- (RTS1) <- 復帰アドレス - 3390 ;- out : - 3391 ;- (R6) <-- BG unit no. - 3392 ;- (R7) <-- BG unit no. type - 3393 ;- (CWK0) <- ＢＧチェックＸ座標 - 3394 ;- (CWK1) <- ” Ｙ ” - 3395 ;- break : - 3396 ;- (R1) - 3397 ;- (R5) - 3398 ;- use RAM : - 3399 ;- (RTS0) - 3400 ;------------------------------------------------------------------------ 3401 SIDE_SP_CK 3402 mJSR BG_SP_CHECK ;特殊ＢＧ当たりチェック 3402+ S000ECB 94 LINK #4 3402+ S000ECC FF 0EA3' IWT R15, #BG_SP_CHECK 3402+ S000ECF 01 NOP 3403 ; 3404 S000ED0 F0 F800 IWT R0,#1111100000000000B 3405 S000ED3 77 AND R7 3406 S000ED4 09 76' BEQ SIDE_SP_CK_010 ;特殊ＢＧ？ ( no:SIDE_SP_CK_010 ) 3407 S000ED6 C0 HIB 3408 ; 3409 S000ED7 03 LSR ;[ JSRSUB ] 3410 S000ED8 D0 INC R0 ; 3411 S000ED9 1F TO R15 ; 3412 S000EDA 5F ADD R15 ; 3413 S000EDB FF HEX FF ; 3414 ; 3415 mTWORD SIDE_SP_CK_010 ;[無し] 3415+ S000EDC 0F4C' WORD SIDE_SP_CK_010 3415+ S000EDE 01 NOP 3415+ S000EDF 01 NOP 3416 mTWORD SIDE_SP_CK_010 ;[雪、草の上] 3416+ S000EE0 0F4C' WORD SIDE_SP_CK_010 3416+ S000EE2 01 NOP 3416+ S000EE3 01 NOP 3417 mTWORD SIDE_SP_CK_010 ;[せっけん] 3417+ S000EE4 0F4C' WORD SIDE_SP_CK_010 3417+ S000EE6 01 NOP 3417+ S000EE7 01 NOP 3418 mTWORD SIDE_SP_CK_010 ;[へこみ床] 3418+ S000EE8 0F4C' WORD SIDE_SP_CK_010 3418+ S000EEA 01 NOP 3418+ S000EEB 01 NOP 3419 mTWORD SIDE_SP_CK_010 ;[泥] 3419+ S000EEC 0F4C' WORD SIDE_SP_CK_010 3419+ S000EEE 01 NOP 3419+ S000EEF 01 NOP 3420 mTWORD YOGAN_ON ;[溶岩] 3420+ S000EF0 1244' WORD YOGAN_ON 3420+ S000EF2 01 NOP 3420+ S000EF3 01 NOP 3421 mTWORD COIN_CROSS ;[コイン] 3421+ S000EF4 0FDF' WORD COIN_CROSS 3421+ S000EF6 01 NOP 3421+ S000EF7 01 NOP 3422 mTWORD SIDE_SP_CK_010 ;[？ブロック] 3422+ S000EF8 0F4C' WORD SIDE_SP_CK_010 3422+ S000EFA 01 NOP 3422+ S000EFB 01 NOP 3423 mTWORD SIDE_SP_CK_010 ;[食べれるＢＧ] 3423+ S000EFC 0F4C' WORD SIDE_SP_CK_010 3423+ S000EFE 01 NOP 3423+ S000EFF 01 NOP 3424 mTWORD SIDE_SP_CK_010 ;[線路] 3424+ S000F00 0F4C' WORD SIDE_SP_CK_010 3424+ S000F02 01 NOP 3424+ S000F03 01 NOP 3425 mTWORD FAIL_CROSS ;[当たるとダメージ] 3425+ S000F04 123A' WORD FAIL_CROSS 3425+ S000F06 01 NOP 3425+ S000F07 01 NOP 3426 mTWORD SIDE_SP_CK_010 ;[杭] 3426+ S000F08 0F4C' WORD SIDE_SP_CK_010 3426+ S000F0A 01 NOP 3426+ S000F0B 01 NOP 3427 mTWORD SIDE_SP_CK_010 ;[左下階段] 3427+ S000F0C 0F4C' WORD SIDE_SP_CK_010 3427+ S000F0E 01 NOP 3427+ S000F0F 01 NOP 3428 mTWORD SIDE_SP_CK_010 ;[右下階段] 3428+ S000F10 0F4C' WORD SIDE_SP_CK_010 3428+ S000F12 01 NOP 3428+ S000F13 01 NOP 3429 mTWORD SIDE_SP_CK_010 ;[乗ったら落ちる床] 3429+ S000F14 0F4C' WORD SIDE_SP_CK_010 3429+ S000F16 01 NOP 3429+ S000F17 01 NOP 3430 mTWORD SIDE_SP_CK_010 ;[点線ブロック] 3430+ S000F18 0F4C' WORD SIDE_SP_CK_010 3430+ S000F1A 01 NOP 3430+ S000F1B 01 NOP 3431 mTWORD SIDE_SP_CK_010 ;[マリオブロック] 3431+ S000F1C 0F4C' WORD SIDE_SP_CK_010 3431+ S000F1E 01 NOP 3431+ S000F1F 01 NOP 3432 mTWORD SIDE_SP_CK_010 ;[ちくわブロック] 3432+ S000F20 0F4C' WORD SIDE_SP_CK_010 3432+ S000F22 01 NOP 3432+ S000F23 01 NOP 3433 mTWORD SIDE_SP_CK_010 ;[カウントブロック] 3433+ S000F24 0F4C' WORD SIDE_SP_CK_010 3433+ S000F26 01 NOP 3433+ S000F27 01 NOP 3434 mTWORD SIDE_SP_CK_010 ;[滝床（ぴちゃぴちゃ）] 3434+ S000F28 0F4C' WORD SIDE_SP_CK_010 3434+ S000F2A 01 NOP 3434+ S000F2B 01 NOP 3435 mTWORD DOKAN_CROSS ;[ドカン] 3435+ S000F2C 0FA8' WORD DOKAN_CROSS 3435+ S000F2E 01 NOP 3435+ S000F2F 01 NOP 3436 mTWORD SUGI_CROSS ;[杉の木] 3436+ S000F30 0F51' WORD SUGI_CROSS 3436+ S000F32 01 NOP 3436+ S000F33 01 NOP 3437 mTWORD CLR_COIN_CROSS ;[点線コイン] 3437+ S000F34 0FD6' WORD CLR_COIN_CROSS 3437+ S000F36 01 NOP 3437+ S000F37 01 NOP 3438 mTWORD SIDE_SP_CK_010 ;[氷ブロック] 3438+ S000F38 0F4C' WORD SIDE_SP_CK_010 3438+ S000F3A 01 NOP 3438+ S000F3B 01 NOP 3439 mTWORD SIDE_SP_CK_010 ;[ぐらぐら岩] 3439+ S000F3C 0F4C' WORD SIDE_SP_CK_010 3439+ S000F3E 01 NOP 3439+ S000F3F 01 NOP 3440 mTWORD SIDE_SP_CK_010 ;[当たるとダメージ（坂杭）] 3440+ S000F40 0F4C' WORD SIDE_SP_CK_010 3440+ S000F42 01 NOP 3440+ S000F43 01 NOP 3441 mTWORD SIDE_SP_CK_010 ;[当たるとダメージ（氷柱）] 3441+ S000F44 0F4C' WORD SIDE_SP_CK_010 3441+ S000F46 01 NOP 3441+ S000F47 01 NOP 3442 mTWORD PDOWN_CROSS ;[当たるとダウン] 3442+ S000F48 1263' WORD PDOWN_CROSS 3442+ S000F4A 01 NOP 3442+ S000F4B 01 NOP 3443 ; 3444 SIDE_SP_CK_010 3445 S000F4C 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3446 mRTS 3446+ S000F4F 9B JMP R11 3446+ S000F50 01 NOP 3447 ; 3448 ;---------------------------------------------------------------- 3449 ;- 杉の木 - 3450 ;---------------------------------------------------------------- 3451 SUGI_CROSS 3452 S000F51 3D A0 F5 LMS R0,CPICHTM 3453 S000F54 3E 60 SUB #0 3454 S000F56 08 4B' BNE SUGI_CROSS_010 ;セットＯＫ？ ( no:SUGI_CROSS_010 ) 3455 S000F58 01 NOP 3456 ; 3457 S000F59 3D A0 60 LMS R0,CPLJUMP 3458 S000F5C 3D A5 5A LMS R5,CPLMVSP 3459 S000F5F C5 OR R5 3460 S000F60 09 41' BEQ SUGI_CROSS_010 ;セットＯＫ？ ( no:SUGI_CROSS_010 ) 3461 S000F62 01 NOP 3462 ; 3463 S000F63 A0 08 IBT R0,#08H ;セットタイマーセット 3464 S000F65 3E A0 F5 SMS R0,CPICHTM 3465 ; 3466 S000F68 A0 04 IBT R0,#04H ;[♪] 3467 S000F6A 3E A0 3D SMS R0,CMSOUND3 3468 ; 3469 S000F6D 3E A1 21 SMS R1,REG1 ;(R1) save 3470 ; 3471 S000F70 F5 0000" IWT R5,#YKCHI ;(R5) <-- 効果Ｎｏ． 3472 mJSR M_EXINSR ;効果エリア確保 3472+ S000F73 94 LINK #4 3472+ S000F74 FF 2A7B' IWT R15, #M_EXINSR 3472+ S000F77 01 NOP 3473 ; 3474 S000F78 3D A0 00 LMS R0,CWORK0 3475 S000F7B 15 TO R5 3476 S000F7C 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3477 mSTW R5,CEXXPSL,R1 ;Ｘ座標セット 3477+ S000F7E F0 10A2 IWT R0,#CEXXPSL 3477+ S000F81 51 ADD R1 3477+ S000F82 B5 FROM R5 3477+ S000F83 30 STW (R0) 3478 S000F84 3D A0 01 LMS R0,CWORK1 3479 S000F87 15 TO R5 3480 S000F88 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3481 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 3481+ S000F8A F0 1142 IWT R0,#CEXYPSL 3481+ S000F8D 51 ADD R1 3481+ S000F8E B5 FROM R5 3481+ S000F8F 30 STW (R0) 3482 S000F90 A5 0E IBT R5,#0EH 3483 mSTW R5,CEXCHPT,R1 ;初期パターンＮｏ．セット 3483+ S000F92 F0 13C2 IWT R0,#CEXCHPT 3483+ S000F95 51 ADD R1 3483+ S000F96 B5 FROM R5 3483+ S000F97 30 STW (R0) 3484 S000F98 A5 04 IBT R5,#04H 3485 mSTW R5,CEXTIM0,R1 ;初期タイマーセット 3485+ S000F9A F0 1782 IWT R0,#CEXTIM0 3485+ S000F9D 51 ADD R1 3485+ S000F9E B5 FROM R5 3485+ S000F9F 30 STW (R0) 3486 ; 3487 S000FA0 3D A1 21 LMS R1,REG1 ;(R1) load 3488 ; 3489 SUGI_CROSS_010 3490 S000FA3 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3491 mRTS 3491+ S000FA6 9B JMP R11 3491+ S000FA7 01 NOP 3492 ; 3493 ;---------------------------------------------------------------- 3494 ;- ドカン当たり - 3495 ;---------------------------------------------------------------- 3496 DOKAN_CROSS 3497 ; 3498 ;-------------- ドカン出入りチェック ---------------------------- 3499 S000FA8 2E 15 MOVE R5,R14 ;(R14) save 3500 ; 3501 S000FAA B6 FROM R6 3502 S000FAB 9E LOB 3503 S000FAC FE 0000" IWT R14,#DOKAN_TYPE 3504 S000FAF 1E TO R14 3505 S000FB0 5E ADD R14 3506 S000FB1 EF GETB 3507 ; 3508 S000FB2 25 1E MOVE R14,R5 ;(R14) load 3509 ; 3510 S000FB4 A5 01 IBT R5,#00000001B 3511 S000FB6 23 B3 MOVES R3,R3 3512 S000FB8 0B 03' BMI DOKAN_CROSS_010 3513 S000FBA 01 NOP 3514 ; 3515 S000FBB A5 02 IBT R5,#00000010B 3516 DOKAN_CROSS_010 3517 S000FBD 15 TO R5 3518 S000FBE 75 AND R5 3519 S000FBF 09 10' BEQ DOKAN_CROSS_030 ;ドカンユニットＯＫ？ ( no:DOKAN_CROSS_030 ) 3520 S000FC1 01 NOP 3521 ; 3522 S000FC2 F0 7D0B IWT R0,#UT7D10-1 3523 S000FC5 66 SUB R6 3524 S000FC6 0D 06' BCS DOKAN_CROSS_020 ;外ドカン？ ( yes:DOKAN_CROSS_020 ) 3525 S000FC8 01 NOP 3526 ; 3527 S000FC9 F0 8000 IWT R0,#8000H 3528 S000FCC 15 TO R5 3529 S000FCD C5 OR R5 3530 DOKAN_CROSS_020 3531 S000FCE 3E A5 83 SMS R5,CDOKNMK ;ドカンフラグセット 3532 ; 3533 DOKAN_CROSS_030 3534 S000FD1 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3535 mRTS 3535+ S000FD4 9B JMP R11 3535+ S000FD5 01 NOP 3536 ; 3537 ;---------------------------------------------------------------- 3538 ;- 点線コイン当たり - 3539 ;---------------------------------------------------------------- 3540 CLR_COIN_CROSS 3541 S000FD6 3D F0 1E08 LM R0,CSWITCH_1 3542 S000FDA 3E 78 AND #00001000B 3543 S000FDC 09 05' BEQ COIN_CROSS_010 ;スイッチ”ＯＮ”？ ( no:COIN_CROSS_010 ) 3544 S000FDE 01 NOP 3545 ; 3546 ;---------------------------------------------------------------- 3547 ;- コイン当たり - 3548 ;---------------------------------------------------------------- 3549 COIN_CROSS 3550 mSFCALL COIN_BG_W ;コイン書き換え 3550+ S000FDF A0 02 IBT R0,#COIN_BG_W 3550+ S000FE1 00 STOP 3550+ S000FE2 01 NOP 3551 ; 3552 COIN_CROSS_010 3553 S000FE3 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3554 mRTS 3554+ S000FE6 9B JMP R11 3554+ S000FE7 01 NOP 3555 ; 3556 ;------------------------------------------------------------------------ 3557 ;- 頭用特殊ＢＧ当たりチェック - 3558 ;- in : - 3559 ;- (R2) <-- ＢＧ当たりフラグ - 3560 ;- (R3) <-- 頭か足のフラグ - 3561 ;- (R4) <-- 移動角度 - 3562 ;- (R9) <-- プレイヤーＸ座標 - 3563 ;- (R10) <-- ” Ｙ ” - 3564 ;- (R14) <-- ＢＧチェックポイント - 3565 ;- データアドレス - 3566 ;- (RTS1) <- 復帰アドレス - 3567 ;- out : - 3568 ;- (R6) <-- BG unit no. - 3569 ;- (R7) <-- BG unit no. type - 3570 ;- (CWK0) <- ＢＧチェックＸ座標 - 3571 ;- (CWK1) <- ” Ｙ ” - 3572 ;- break : - 3573 ;- (R1) - 3574 ;- (R5) - 3575 ;- use RAM : - 3576 ;- (RTS0) - 3577 ;------------------------------------------------------------------------ 3578 HED_SP_CK 3579 mJSR BG_SP_CHECK ;特殊ＢＧ当たりチェック 3579+ S000FE8 94 LINK #4 3579+ S000FE9 FF 0EA3' IWT R15, #BG_SP_CHECK 3579+ S000FEC 01 NOP 3580 ; 3581 ;-------------- 特殊ＢＧ当たりチェック ---------------------------------- 3582 S000FED F0 F800 IWT R0,#1111100000000000B 3583 S000FF0 77 AND R7 ;(R0) <-- ＢＧタイプ 3584 S000FF1 09 76' BEQ HED_SP_CK_100 ;特殊ＢＧ？ ( no:HED_SP_CK_100 ) 3585 S000FF3 C0 HIB 3586 ; 3587 S000FF4 03 LSR ;[ JSRSUB ] 3588 S000FF5 D0 INC R0 ; 3589 S000FF6 1F TO R15 ; 3590 S000FF7 5F ADD R15 ; 3591 S000FF8 FF HEX FF ; 3592 ; 3593 mTWORD HED_SP_CK_100 ;[無し] 3593+ S000FF9 1069' WORD HED_SP_CK_100 3593+ S000FFB 01 NOP 3593+ S000FFC 01 NOP 3594 mTWORD HED_SP_CK_100 ;[雪、草の上] 3594+ S000FFD 1069' WORD HED_SP_CK_100 3594+ S000FFF 01 NOP 3594+ S001000 01 NOP 3595 mTWORD HED_SP_CK_100 ;[せっけん] 3595+ S001001 1069' WORD HED_SP_CK_100 3595+ S001003 01 NOP 3595+ S001004 01 NOP 3596 mTWORD HEKOMI_GON ;[へこみ天井] 3596+ S001005 1100' WORD HEKOMI_GON 3596+ S001007 01 NOP 3596+ S001008 01 NOP 3597 mTWORD HED_SP_CK_100 ;[泥] 3597+ S001009 1069' WORD HED_SP_CK_100 3597+ S00100B 01 NOP 3597+ S00100C 01 NOP 3598 mTWORD YOGAN_ON ;[溶岩] 3598+ S00100D 1244' WORD YOGAN_ON 3598+ S00100F 01 NOP 3598+ S001010 01 NOP 3599 mTWORD COIN_CROSS ;[コイン] 3599+ S001011 0FDF' WORD COIN_CROSS 3599+ S001013 01 NOP 3599+ S001014 01 NOP 3600 mTWORD QBLK_GON ;[？ブロック] 3600+ S001015 1151' WORD QBLK_GON 3600+ S001017 01 NOP 3600+ S001018 01 NOP 3601 mTWORD EATBLK_GON ;[食べれるＢＧ] 3601+ S001019 1195' WORD EATBLK_GON 3601+ S00101B 01 NOP 3601+ S00101C 01 NOP 3602 mTWORD HED_SP_CK_100 ;[[線路] 3602+ S00101D 1069' WORD HED_SP_CK_100 3602+ S00101F 01 NOP 3602+ S001020 01 NOP 3603 mTWORD FAIL_CROSS ;[当たるとダメージ] 3603+ S001021 123A' WORD FAIL_CROSS 3603+ S001023 01 NOP 3603+ S001024 01 NOP 3604 mTWORD HED_SP_CK_100 ;[杭] 3604+ S001025 1069' WORD HED_SP_CK_100 3604+ S001027 01 NOP 3604+ S001028 01 NOP 3605 mTWORD HED_SP_CK_100 ;[左下階段] 3605+ S001029 1069' WORD HED_SP_CK_100 3605+ S00102B 01 NOP 3605+ S00102C 01 NOP 3606 mTWORD HED_SP_CK_100 ;[右下階段] 3606+ S00102D 1069' WORD HED_SP_CK_100 3606+ S00102F 01 NOP 3606+ S001030 01 NOP 3607 mTWORD HED_SP_CK_100 ;[乗ったら落ちる床] 3607+ S001031 1069' WORD HED_SP_CK_100 3607+ S001033 01 NOP 3607+ S001034 01 NOP 3608 mTWORD HED_SP_CK_100 ;[点線ブロック] 3608+ S001035 1069' WORD HED_SP_CK_100 3608+ S001037 01 NOP 3608+ S001038 01 NOP 3609 mTWORD MARIOBLK_GON ;[マリオブロック] 3609+ S001039 106E' WORD MARIOBLK_GON 3609+ S00103B 01 NOP 3609+ S00103C 01 NOP 3610 mTWORD HED_SP_CK_100 ;[ちくわブロック] 3610+ S00103D 1069' WORD HED_SP_CK_100 3610+ S00103F 01 NOP 3610+ S001040 01 NOP 3611 mTWORD HED_SP_CK_100 ;[カウントブロック] 3611+ S001041 1069' WORD HED_SP_CK_100 3611+ S001043 01 NOP 3611+ S001044 01 NOP 3612 mTWORD PICHA_GON ;[滝床（ぴちゃぴちゃ）] 3612+ S001045 10B9' WORD PICHA_GON 3612+ S001047 01 NOP 3612+ S001048 01 NOP 3613 mTWORD HED_SP_CK_100 ;[ドカン] 3613+ S001049 1069' WORD HED_SP_CK_100 3613+ S00104B 01 NOP 3613+ S00104C 01 NOP 3614 mTWORD SUGI_CROSS ;[杉の木] 3614+ S00104D 0F51' WORD SUGI_CROSS 3614+ S00104F 01 NOP 3614+ S001050 01 NOP 3615 mTWORD CLR_COIN_CROSS ;[点線コイン] 3615+ S001051 0FD6' WORD CLR_COIN_CROSS 3615+ S001053 01 NOP 3615+ S001054 01 NOP 3616 mTWORD HED_SP_CK_100 ;[氷ブロック] 3616+ S001055 1069' WORD HED_SP_CK_100 3616+ S001057 01 NOP 3616+ S001058 01 NOP 3617 mTWORD HED_SP_CK_100 ;[ぐらぐら岩] 3617+ S001059 1069' WORD HED_SP_CK_100 3617+ S00105B 01 NOP 3617+ S00105C 01 NOP 3618 mTWORD HED_SP_CK_100 ;[当たるとダメージ（坂杭）] 3618+ S00105D 1069' WORD HED_SP_CK_100 3618+ S00105F 01 NOP 3618+ S001060 01 NOP 3619 mTWORD FAIL_CROSS ;[当たるとダメージ（氷柱）] 3619+ S001061 123A' WORD FAIL_CROSS 3619+ S001063 01 NOP 3619+ S001064 01 NOP 3620 mTWORD PDOWN_CROSS ;[当たるとダウン] 3620+ S001065 1263' WORD PDOWN_CROSS 3620+ S001067 01 NOP 3620+ S001068 01 NOP 3621 ; 3622 HED_SP_CK_100 3623 S001069 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3624 mRTS 3624+ S00106C 9B JMP R11 3624+ S00106D 01 NOP 3625 ; 3626 ;---------------------------------------------------------------- 3627 ;- マリオブロック - 3628 ;---------------------------------------------------------------- 3629 MARIOBLK_GON 3630 S00106E 3D F0 1E08 LM R0,CSWITCH_1 3631 S001072 A5 10 IBT R5,#00010000B 3632 S001074 75 AND R5 3633 S001075 09 3D' BEQ MARIOBLK_GON_20 ;スイッチ”ＯＮ”？ ( no:MARIOBLK_GON_20 ) 3634 S001077 01 NOP 3635 ; 3636 S001078 3D A0 55 LMS R0,CPLYSPD 3637 S00107B 50 ADD R0 ;(C) <-- (N) 3638 S00107C 0C 36' BCC MARIOBLK_GON_20 ;プレイヤー下降中？ ( yes:MARIOBLK_GON_20 ) 3639 S00107E 01 NOP 3640 ; 3641 S00107F F5 0000" IWT R5,#MRBLK ;(R5) <-- 敵Ｎｏ． 3642 ; 3643 S001082 3E A1 21 SMS R1,REG1 ;(R1) save 3644 ; 3645 mJSR M_ENINSR ;敵エリア確保 3645+ S001085 94 LINK #4 3645+ S001086 FF 28C7' IWT R15, #M_ENINSR 3645+ S001089 01 NOP 3646 ; 3647 S00108A 0B 25' BMI MARIOBLK_GON_10 ;敵エリア無し？ ( yes:MARIOBLK_GON_10 ) 3648 S00108C 01 NOP 3649 ; 3650 S00108D A5 02 IBT R5,#CEINIT ;敵イニシャルモードセット 3651 mSTW R5,CENMODE,R1 3651+ S00108F F0 0F00 IWT R0,#CENMODE 3651+ S001092 51 ADD R1 3651+ S001093 B5 FROM R5 3651+ S001094 30 STW (R0) 3652 S001095 3D A0 00 LMS R0,CWORK0 3653 S001098 15 TO R5 3654 S001099 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3655 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 3655+ S00109B F0 10E2 IWT R0,#CENXPSL 3655+ S00109E 51 ADD R1 3655+ S00109F B5 FROM R5 3655+ S0010A0 30 STW (R0) 3656 S0010A1 3D A0 01 LMS R0,CWORK1 3657 S0010A4 15 TO R5 3658 S0010A5 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3659 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 3659+ S0010A7 F0 1182 IWT R0,#CENYPSL 3659+ S0010AA 51 ADD R1 3659+ S0010AB B5 FROM R5 3659+ S0010AC 30 STW (R0) 3660 ; 3661 mSFCALL CLR_BG_W ;ぬきＢＧ書き換え 3661+ S0010AD A0 0A IBT R0,#CLR_BG_W 3661+ S0010AF 00 STOP 3661+ S0010B0 01 NOP 3662 ; 3663 MARIOBLK_GON_10 3664 S0010B1 3D A1 21 LMS R1,REG1 ;(R1) load 3665 ; 3666 MARIOBLK_GON_20 3667 S0010B4 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3668 mRTS 3668+ S0010B7 9B JMP R11 3668+ S0010B8 01 NOP 3669 ; 3670 ; 3671 ;---------------------------------------------------------------- 3672 ;- 滝（ぴちゃぴちゃ） - 3673 ;---------------------------------------------------------------- 3674 PICHA_GON 3675 S0010B9 3D F0 1974 LM R0,CFRCNT2 3676 S0010BD 3E 77 AND #07H 3677 S0010BF 08 34' BNE PICHA_GON_010 ;セットＯＫ？ ( no:PICHA_GON_010 ) 3678 S0010C1 01 NOP 3679 ; 3680 S0010C2 3E A1 21 SMS R1,REG1 ;(R1) save 3681 ; 3682 S0010C5 A0 04 IBT R0,#04H ;[♪] 3683 S0010C7 3E A0 3D SMS R0,CMSOUND3 3684 ; 3685 S0010CA F5 0000" IWT R5,#PICHA ;(R5) <-- 効果Ｎｏ． 3686 mJSR M_EXINSR ;効果エリア確保 3686+ S0010CD 94 LINK #4 3686+ S0010CE FF 2A7B' IWT R15, #M_EXINSR 3686+ S0010D1 01 NOP 3687 ; 3688 mSTW R9,CEXXPSL,R1 ;Ｘ座標セット 3688+ S0010D2 F0 10A2 IWT R0,#CEXXPSL 3688+ S0010D5 51 ADD R1 3688+ S0010D6 B9 FROM R9 3688+ S0010D7 30 STW (R0) 3689 S0010D8 A0 06 IBT R0,#06H 3690 S0010DA 15 TO R5 3691 S0010DB 5A ADD R10 3692 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 3692+ S0010DC F0 1142 IWT R0,#CEXYPSL 3692+ S0010DF 51 ADD R1 3692+ S0010E0 B5 FROM R5 3692+ S0010E1 30 STW (R0) 3693 S0010E2 A5 05 IBT R5,#05H 3694 mSTW R5,CEXCHPT,R1 ;初期パターンＮｏ．セット 3694+ S0010E4 F0 13C2 IWT R0,#CEXCHPT 3694+ S0010E7 51 ADD R1 3694+ S0010E8 B5 FROM R5 3694+ S0010E9 30 STW (R0) 3695 S0010EA A5 02 IBT R5,#02H 3696 mSTW R5,CEXTIM0,R1 ;初期タイマーセット 3696+ S0010EC F0 1782 IWT R0,#CEXTIM0 3696+ S0010EF 51 ADD R1 3696+ S0010F0 B5 FROM R5 3696+ S0010F1 30 STW (R0) 3697 ; 3698 S0010F2 3D A1 21 LMS R1,REG1 ;(R1) load 3699 ; 3700 PICHA_GON_010 3701 S0010F5 3D A0 55 LMS R0,CPLYSPD ;滝の圧力セット 3702 S0010F8 3E 54 ADD #04H 3703 S0010FA 90 SBK ;[ SMS R0,CPLYSPD ] 3704 ; 3705 S0010FB 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3706 mRTS 3706+ S0010FE 9B JMP R11 3706+ S0010FF 01 NOP 3707 ; 3708 ;---------------------------------------------------------------- 3709 ;- へこみ天井 - 3710 ;---------------------------------------------------------------- 3711 HEKOMI_GON 3712 S001100 3D A0 DF LMS R0,CONCHNG 3713 S001103 3E 60 SUB #0 3714 S001105 08 44' BNE HEKOMI_GON_020 ;ＢＧ特殊エリア空きあり？ ( no:HEKOMI_GON_020 ) 3715 S001107 01 NOP 3716 ; 3717 S001108 3E A1 21 SMS R1,REG1 ;(R1) save 3718 ; 3719 S00110B F5 0000" IWT R5,#DWNBG ;(R5) <-- 敵Ｎｏ． 3720 mJSR M_ENINSR ;敵エリア確保 3720+ S00110E 94 LINK #4 3720+ S00110F FF 28C7' IWT R15, #M_ENINSR 3720+ S001112 01 NOP 3721 ; 3722 S001113 0B 33' BMI HEKOMI_GON_010 ;敵エリア無し？ ( yes:HEKOMI_GON_010 ) 3723 S001115 01 NOP 3724 ; 3725 S001116 A5 02 IBT R5,#CEINIT ;敵イニシャルモードセット 3726 mSTW R5,CENMODE,R1 3726+ S001118 F0 0F00 IWT R0,#CENMODE 3726+ S00111B 51 ADD R1 3726+ S00111C B5 FROM R5 3726+ S00111D 30 STW (R0) 3727 S00111E B9 FROM R9 3728 S00111F 15 TO R5 3729 S001120 3E 68 SUB #8 3730 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 3730+ S001122 F0 10E2 IWT R0,#CENXPSL 3730+ S001125 51 ADD R1 3730+ S001126 B5 FROM R5 3730+ S001127 30 STW (R0) 3731 S001128 3D A0 01 LMS R0,CWORK1 3732 S00112B 15 TO R5 3733 S00112C 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3734 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 3734+ S00112E F0 1182 IWT R0,#CENYPSL 3734+ S001131 51 ADD R1 3734+ S001132 B5 FROM R5 3734+ S001133 30 STW (R0) 3735 S001134 A0 F0 IBT R0,#0F0H ;[ IWT R0,#0FFF0H ] 3736 S001136 15 TO R5 3737 S001137 C5 OR R5 3738 mSTW R5,CENWRK2,R1 ;初期倍率セット 3738+ S001138 F0 19D6 IWT R0,#CENWRK2 3738+ S00113B 51 ADD R1 3738+ S00113C B5 FROM R5 3738+ S00113D 30 STW (R0) 3739 ; 3740 S00113E A0 01 IBT R0,#01H ;ＢＧ特殊エリア確保 3741 S001140 3E A0 DF SMS R0,CONCHNG 3742 ; 3743 S001143 A0 00" IBT R0,#BURAN_P 3744 S001145 3E A0 F8 SMS R0,CPBURAN ;プレイヤー”ブラ〜ン”フラグ”ＯＮ” 3745 ; 3746 HEKOMI_GON_010 3747 S001148 3D A1 21 LMS R1,REG1 ;(R1) load 3748 ; 3749 HEKOMI_GON_020 3750 S00114B E2 DEC R2 ;当たりキャンセル！！ 3751 ; 3752 S00114C 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3753 mRTS 3753+ S00114F 9B JMP R11 3753+ S001150 01 NOP 3754 ; 3755 ;---------------------------------------------------------------- 3756 ;- ？ブロック - 3757 ;---------------------------------------------------------------- 3758 QBLK_GON 3759 S001151 3D A0 55 LMS R0,CPLYSPD 3760 S001154 50 ADD R0 ;(C) <-- (N) 3761 S001155 0C 39' BCC QBLK_GON_020 ;プレイヤー下降中？ ( yes:QBLK_GON_020 ) 3762 S001157 B6 FROM R6 3763 ; 3764 S001158 9E LOB 3765 S001159 F5 FFFF" IWT R5,#HBLK2-1 3766 S00115C 15 TO R5 ;(R5) <-- 敵Ｎｏ． 3767 S00115D 55 ADD R5 3768 ; 3769 S00115E 3E A1 21 SMS R1,REG1 ;(R1) save 3770 ; 3771 mJSR M_ENINSR ;敵エリア確保 3771+ S001161 94 LINK #4 3771+ S001162 FF 28C7' IWT R15, #M_ENINSR 3771+ S001165 01 NOP 3772 ; 3773 S001166 0B 28' BMI QBLK_GON_020 ;敵エリア無し？ ( yes:QBLK_GON_020 ) 3774 S001168 01 NOP 3775 ; 3776 S001169 A5 02 IBT R5,#CEINIT ;敵イニシャルモードセット 3777 mSTW R5,CENMODE,R1 3777+ S00116B F0 0F00 IWT R0,#CENMODE 3777+ S00116E 51 ADD R1 3777+ S00116F B5 FROM R5 3777+ S001170 30 STW (R0) 3778 S001171 3D A0 00 LMS R0,CWORK0 3779 S001174 15 TO R5 3780 S001175 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3781 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 3781+ S001177 F0 10E2 IWT R0,#CENXPSL 3781+ S00117A 51 ADD R1 3781+ S00117B B5 FROM R5 3781+ S00117C 30 STW (R0) 3782 S00117D 3D A0 01 LMS R0,CWORK1 3783 S001180 15 TO R5 3784 S001181 3F 7F BIC #0FH ;[ AND #0FFF0H ] 3785 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 3785+ S001183 F0 1182 IWT R0,#CENYPSL 3785+ S001186 51 ADD R1 3785+ S001187 B5 FROM R5 3785+ S001188 30 STW (R0) 3786 ; 3787 mSFCALL CLR_BG_W ;ぬきＢＧ書き換え 3787+ S001189 A0 0A IBT R0,#CLR_BG_W 3787+ S00118B 00 STOP 3787+ S00118C 01 NOP 3788 ; 3789 QBLK_GON_010 3790 S00118D 3D A1 21 LMS R1,REG1 ;(R1) load 3791 ; 3792 QBLK_GON_020 3793 S001190 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3794 mRTS 3794+ S001193 9B JMP R11 3794+ S001194 01 NOP 3795 ; 3796 ;---------------------------------------------------------------- 3797 ;- 食べれるＢＧ - 3798 ;---------------------------------------------------------------- 3799 EATBLK_GON 3800 S001195 3D A0 55 LMS R0,CPLYSPD 3801 S001198 50 ADD R0 ;(C) <-- (N) 3802 S001199 0C 14' BCC EATBLK_GON_010 ;プレイヤー下降中？ ( yes:EATBLK_GON_010 ) 3803 S00119B 60 SUB R0 3804 ; 3805 S00119C 3E A0 0E SMS R0,CWORKE ;(CWKE) <-- 壊れたＢＧぶっ飛びＸスピード 3806 S00119F A0 80 IBT R0,#080H ;[ IWT R0,#0FF80H ] 3807 S0011A1 3E A0 0F SMS R0,CWORKF ;(CWKF) <-- 壊れたＢＧぶっ飛びＹスピード 3808 ; 3809 S0011A4 3E A1 21 SMS R1,REG1 ;(R1) save 3810 ; 3811 mJSR BRBG0_SET ;壊れたＢＧ効果セット 3811+ S0011A7 94 LINK #4 3811+ S0011A8 FF 1938' IWT R15, #BRBG0_SET 3811+ S0011AB 01 NOP 3812 ; 3813 S0011AC 3D A1 21 LMS R1,REG1 ;(R1) load 3814 ; 3815 EATBLK_GON_010 3816 S0011AF 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3817 mRTS 3817+ S0011B2 9B JMP R11 3817+ S0011B3 01 NOP 3818 ; 3819 ; 3820 ;------------------------------------------------------------------------ 3821 ;- 足用特殊ＢＧ当たりチェック - 3822 ;- in : - 3823 ;- (R1) <-- 補正値 - 3824 ;- (R2) <-- ＢＧ当たりフラグ - 3825 ;- (R3) <-- 頭か足のフラグ - 3826 ;- (R4) <-- 移動角度 - 3827 ;- (R9) <-- プレイヤーＸ座標 - 3828 ;- (R10) <-- ” Ｙ ” - 3829 ;- (R14) <-- ＢＧチェックポイント - 3830 ;- データアドレス - 3831 ;- (RTS1) <- 復帰アドレス - 3832 ;- out : - 3833 ;- (R6) <-- BG unit no. - 3834 ;- (R7) <-- BG unit no. type - 3835 ;- (CWK0) <- ＢＧチェックＸ座標 - 3836 ;- (CWK1) <- ” Ｙ ” - 3837 ;- break : - 3838 ;- (R1) - 3839 ;- (R5) - 3840 ;- use RAM : - 3841 ;- (RTS0) - 3842 ;------------------------------------------------------------------------ 3843 FOOT_SP_CK 3844 mJSR BG_SP_CHECK ;特殊ＢＧ当たりチェック 3844+ S0011B4 94 LINK #4 3844+ S0011B5 FF 0EA3' IWT R15, #BG_SP_CHECK 3844+ S0011B8 01 NOP 3845 ; 3846 ;-------------- 特殊ＢＧ当たりチェック ---------------------------------- 3847 S0011B9 F0 F800 IWT R0,#1111100000000000B 3848 S0011BC 77 AND R7 ;(R0) <-- ＢＧタイプ 3849 S0011BD 09 76' BEQ FOOT_SP_CK_100 ;特殊ＢＧ？ ( no:FOOT_SP_CK_100 ) 3850 S0011BF C0 HIB 3851 ; 3852 S0011C0 03 LSR ;[ JSRSUB ] 3853 S0011C1 D0 INC R0 ; 3854 S0011C2 1F TO R15 ; 3855 S0011C3 5F ADD R15 ; 3856 S0011C4 FF HEX FF ; 3857 ; 3858 mTWORD FOOT_SP_CK_100 ;[無し] 3858+ S0011C5 1235' WORD FOOT_SP_CK_100 3858+ S0011C7 01 NOP 3858+ S0011C8 01 NOP 3859 mTWORD FOOT_SP_CK_100 ;[雪、草の上] 3859+ S0011C9 1235' WORD FOOT_SP_CK_100 3859+ S0011CB 01 NOP 3859+ S0011CC 01 NOP 3860 mTWORD FOOT_SP_CK_100 ;[せっけん] 3860+ S0011CD 1235' WORD FOOT_SP_CK_100 3860+ S0011CF 01 NOP 3860+ S0011D0 01 NOP 3861 mTWORD FOOT_SP_CK_100 ;[へこみ床] 3861+ S0011D1 1235' WORD FOOT_SP_CK_100 3861+ S0011D3 01 NOP 3861+ S0011D4 01 NOP 3862 mTWORD FOOT_SP_CK_100 ;[泥] 3862+ S0011D5 1235' WORD FOOT_SP_CK_100 3862+ S0011D7 01 NOP 3862+ S0011D8 01 NOP 3863 mTWORD YOGAN_ON ;[溶岩] 3863+ S0011D9 1244' WORD YOGAN_ON 3863+ S0011DB 01 NOP 3863+ S0011DC 01 NOP 3864 mTWORD COIN_CROSS ;[コイン] 3864+ S0011DD 0FDF' WORD COIN_CROSS 3864+ S0011DF 01 NOP 3864+ S0011E0 01 NOP 3865 mTWORD FOOT_SP_CK_100 ;[？ブロック] 3865+ S0011E1 1235' WORD FOOT_SP_CK_100 3865+ S0011E3 01 NOP 3865+ S0011E4 01 NOP 3866 mTWORD FOOT_SP_CK_100 ;[食べれるＢＧ] 3866+ S0011E5 1235' WORD FOOT_SP_CK_100 3866+ S0011E7 01 NOP 3866+ S0011E8 01 NOP 3867 mTWORD FOOT_SP_CK_100 ;[[線路] 3867+ S0011E9 1235' WORD FOOT_SP_CK_100 3867+ S0011EB 01 NOP 3867+ S0011EC 01 NOP 3868 mTWORD FAIL_CROSS ;[当たるとダメージ] 3868+ S0011ED 123A' WORD FAIL_CROSS 3868+ S0011EF 01 NOP 3868+ S0011F0 01 NOP 3869 mTWORD KUI_ON ;[杭] 3869+ S0011F1 1282' WORD KUI_ON 3869+ S0011F3 01 NOP 3869+ S0011F4 01 NOP 3870 mTWORD FOOT_SP_CK_100 ;[左下階段] 3870+ S0011F5 1235' WORD FOOT_SP_CK_100 3870+ S0011F7 01 NOP 3870+ S0011F8 01 NOP 3871 mTWORD FOOT_SP_CK_100 ;[右下階段] 3871+ S0011F9 1235' WORD FOOT_SP_CK_100 3871+ S0011FB 01 NOP 3871+ S0011FC 01 NOP 3872 mTWORD FOOT_SP_CK_100 ;[乗ったら落ちる床] 3872+ S0011FD 1235' WORD FOOT_SP_CK_100 3872+ S0011FF 01 NOP 3872+ S001200 01 NOP 3873 mTWORD FOOT_SP_CK_100 ;[点線ブロック] 3873+ S001201 1235' WORD FOOT_SP_CK_100 3873+ S001203 01 NOP 3873+ S001204 01 NOP 3874 mTWORD FOOT_SP_CK_100 ;[マリオブロック] 3874+ S001205 1235' WORD FOOT_SP_CK_100 3874+ S001207 01 NOP 3874+ S001208 01 NOP 3875 mTWORD TIKUWA_ON ;[ちくわブロック] 3875+ S001209 12A0' WORD TIKUWA_ON 3875+ S00120B 01 NOP 3875+ S00120C 01 NOP 3876 mTWORD CNTDOWN_ON ;[カウントブロック] 3876+ S00120D 1330' WORD CNTDOWN_ON 3876+ S00120F 01 NOP 3876+ S001210 01 NOP 3877 mTWORD FOOT_SP_CK_100 ;[滝床（ぴちゃぴちゃ）] 3877+ S001211 1235' WORD FOOT_SP_CK_100 3877+ S001213 01 NOP 3877+ S001214 01 NOP 3878 mTWORD FOOT_SP_CK_100 ;[ドカン] 3878+ S001215 1235' WORD FOOT_SP_CK_100 3878+ S001217 01 NOP 3878+ S001218 01 NOP 3879 mTWORD SUGI_CROSS ;[杉の木] 3879+ S001219 0F51' WORD SUGI_CROSS 3879+ S00121B 01 NOP 3879+ S00121C 01 NOP 3880 mTWORD CLR_COIN_CROSS ;[点線コイン] 3880+ S00121D 0FD6' WORD CLR_COIN_CROSS 3880+ S00121F 01 NOP 3880+ S001220 01 NOP 3881 mTWORD FOOT_SP_CK_100 ;[氷ブロック] 3881+ S001221 1235' WORD FOOT_SP_CK_100 3881+ S001223 01 NOP 3881+ S001224 01 NOP 3882 mTWORD GURAGURA_ON ;[ぐらぐら岩] 3882+ S001225 13D0' WORD GURAGURA_ON 3882+ S001227 01 NOP 3882+ S001228 01 NOP 3883 mTWORD FAIL_CROSS ;[当たるとダメージ（坂杭）] 3883+ S001229 123A' WORD FAIL_CROSS 3883+ S00122B 01 NOP 3883+ S00122C 01 NOP 3884 mTWORD FOOT_SP_CK_100 ;[当たるとダメージ（氷柱）] 3884+ S00122D 1235' WORD FOOT_SP_CK_100 3884+ S00122F 01 NOP 3884+ S001230 01 NOP 3885 mTWORD PDOWN_CROSS ;[当たるとダウン] 3885+ S001231 1263' WORD PDOWN_CROSS 3885+ S001233 01 NOP 3885+ S001234 01 NOP 3886 ; 3887 FOOT_SP_CK_100 3888 S001235 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3889 mRTS 3889+ S001238 9B JMP R11 3889+ S001239 01 NOP 3890 ; 3891 ;---------------------------------------------------------------- 3892 ;- ダメージＢＧ当たり - 3893 ;---------------------------------------------------------------- 3894 FAIL_CROSS 3895 S00123A A0 01 IBT R0,#01H ;ダメージＢＧ当たりフラグセット 3896 S00123C 3E A0 81 SMS R0,CPLHARI 3897 ; 3898 S00123F 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3899 mRTS 3899+ S001242 9B JMP R11 3899+ S001243 01 NOP 3900 ; 3901 ;---------------------------------------------------------------- 3902 ;- 溶岩 - 3903 ;---------------------------------------------------------------- 3904 YOGAN_ON 3905 S001244 3D A0 56 LMS R0,CPLMODE 3906 S001247 3D FB 1E04 LM R11,CSUPER_FLAG 3907 S00124B CB OR R11 3908 S00124C 08 10' BNE YOGAN_ON_010 ;プレイヤーモードＯＫ？ ( no:YOGAN_ON_010 ) 3909 S00124E 01 NOP 3910 ; 3911 ;-------------- プレイヤーダウンセット -------------------------- 3912 mSFCALL YOGAN_IN ;プレイヤー溶岩落ちセット 3912+ S00124F A0 1A IBT R0,#YOGAN_IN 3912+ S001251 00 STOP 3912+ S001252 01 NOP 3913 ; 3914 S001253 3D A0 56 LMS R0,CPLMODE 3915 S001256 AB 28 IBT R11,#PYGN 3916 S001258 6B SUB R11 3917 S001259 08 03' BNE YOGAN_ON_010 ;プレイヤー溶岩落ち？ ( no:YOGAN_ON_010 ) 3918 S00125B 60 SUB R0 ;<<< end >>> 3919 ; 3920 S00125C 00 STOP 3921 S00125D 01 NOP 3922 ; 3923 YOGAN_ON_010 3924 S00125E 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3925 mRTS 3925+ S001261 9B JMP R11 3925+ S001262 01 NOP 3926 ; 3927 ;---------------------------------------------------------------- 3928 ;- 当たるとダウン - 3929 ;---------------------------------------------------------------- 3930 PDOWN_CROSS 3931 S001263 3D A0 56 LMS R0,CPLMODE 3932 S001266 3D FB 1E04 LM R11,CSUPER_FLAG 3933 S00126A CB OR R11 3934 S00126B 08 10' BNE PDOWN_CROSS_010 ;プレイヤーモードＯＫ？ ( no:PDOWN_CROSS_010 ) 3935 S00126D 01 NOP 3936 ; 3937 ;-------------- プレイヤーダウンセット -------------------------- 3938 mSFCALL PLDOWNST ;プレイヤーダウンセット 3938+ S00126E A0 12 IBT R0,#PLDOWNST 3938+ S001270 00 STOP 3938+ S001271 01 NOP 3939 ; 3940 S001272 3D A0 56 LMS R0,CPLMODE 3941 S001275 AB 0E IBT R11,#PFAL 3942 S001277 6B SUB R11 3943 S001278 08 03' BNE PDOWN_CROSS_010 ;プレイヤーダウン？ ( no:PDOWN_CROSS_010 ) 3944 S00127A 60 SUB R0 ;<<< end >>> 3945 ; 3946 S00127B 00 STOP 3947 S00127C 01 NOP 3948 ; 3949 PDOWN_CROSS_010 3950 S00127D 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3951 mRTS 3951+ S001280 9B JMP R11 3951+ S001281 01 NOP 3952 ; 3953 ;---------------------------------------------------------------- 3954 ;- 杭 - 3955 ;---------------------------------------------------------------- 3956 KUI_ON 3957 S001282 3D A0 6A LMS R0,CPLDOSN 3958 S001285 E0 DEC R0 3959 S001286 0B 13' BMI KUI_ON_010 ;”ドスーン！！”？ ( no:KUI_ON_010 ) 3960 S001288 01 NOP 3961 ; 3962 S001289 3D A0 60 LMS R0,CPLJUMP 3963 S00128C E0 DEC R0 3964 S00128D 0B 0C' BMI KUI_ON_010 ;着地の瞬間？ ( no:KUI_ON_010 ) 3965 S00128F B6 FROM R6 3966 ; 3967 S001290 3E 51 ADD #1 3968 S001292 3E 72 AND #02H 3969 S001294 08 05' BNE KUI_ON_010 ;頭ユニット？ ( no:KUI_ON_010 ) 3970 S001296 01 NOP 3971 ; 3972 S001297 A0 10 IBT R0,#010H ;強制補正！！ 3973 S001299 11 TO R1 3974 S00129A 51 ADD R1 3975 ; 3976 KUI_ON_010 3977 S00129B 3D AB 31 LMS R11,RTS1 ;[ return address load ] 3978 mRTS 3978+ S00129E 9B JMP R11 3978+ S00129F 01 NOP 3979 ; 3980 ;;;;;---------------------------------------------------------------- 3981 ;;;;;- 食べれるＢＧ - 3982 ;;;;;---------------------------------------------------------------- 3983 ;;;;EATBLK_ON 3984 ;;;; LMS R0,CPLDOSN 3985 ;;;; DEC R0 3986 ;;;; BMI EATBLK_ON_010 ;”ドスーン！！”？ ( no:EATBLK_ON_010 ) 3987 ;;;; NOP 3988 ;;;;; 3989 ;;;; INC R1 ;補正値変更！！ 3990 ;;;;; 3991 ;;;;EATBLK_ON_010 3992 ;;;; LMS R11,RTS1 ;[ return address load ] 3993 ;;;; mRTS 3994 ; 3995 ;---------------------------------------------------------------- 3996 ;- ちくわブロック - 3997 ;---------------------------------------------------------------- 3998 TIKUWA_ON 3999 S0012A0 B2 FROM R2 4000 S0012A1 03 LSR 4001 S0012A2 0C F7' BCC KUI_ON_010 ;ＢＧ当たりＯＫ？ ( no:KUI_ON_010 ) 4002 S0012A4 01 NOP 4003 ; 4004 S0012A5 AC 00 IBT R12,#00 ;(R12) <-- Ｘ座標補正値 4005 S0012A7 AD 00 IBT R13,#00 ;(R13) <-- Ｙ ” 4006 S0012A9 F5 0000" IWT R5,#TIKU0 ;(R5) <-- 敵Ｎｏ．（小さい） 4007 S0012AC F0 7502 IWT R0,#UT7505 4008 S0012AF 66 SUB R6 4009 S0012B0 09 11' BEQ TIKUWA_ON_020 ;小さい方？ ( yes:TIKUWA_ON_020 ) 4010 S0012B2 01 NOP 4011 ; 4012 S0012B3 AC 08 IBT R12,#08H ;(R12) <-- Ｘ座標補正値 4013 S0012B5 AD 08 IBT R13,#08H ;(R13) <-- Ｙ ” 4014 S0012B7 F0 7500 IWT R0,#UT7500 4015 S0012BA 66 SUB R6 4016 S0012BB 09 03' BEQ TIKUWA_ON_010 ;大きい方の右側？ ( no:TIKUWA_ON_010 ) 4017 S0012BD 01 NOP 4018 ; 4019 S0012BE AC F8 IBT R12,#-08H ;(R12) <-- Ｘ座標補正値 4020 TIKUWA_ON_010 4021 S0012C0 F5 0000" IWT R5,#TIKU1 ;(R5) <-- 敵Ｎｏ．（大きい） 4022 TIKUWA_ON_020 4023 S0012C3 3D A0 00 LMS R0,CWORK0 4024 S0012C6 3F 7F BIC #0FH ;[ AND #0FFF0H ] 4025 S0012C8 5C ADD R12 4026 S0012C9 90 SBK ;[ SMS R0,CWORK0 ] 4027 S0012CA 3D A0 01 LMS R0,CWORK1 4028 S0012CD 3F 7F BIC #0FH ;[ AND #0FFF0H ] 4029 S0012CF 5D ADD R13 4030 S0012D0 90 SBK ;[ SMS R0,CWORK1 ] 4031 ; 4032 S0012D1 3E A1 21 SMS R1,REG1 ;(R1) save 4033 ; 4034 mJSR M_ENINSR ;敵エリア確保 4034+ S0012D4 94 LINK #4 4034+ S0012D5 FF 28C7' IWT R15, #M_ENINSR 4034+ S0012D8 01 NOP 4035 ; 4036 S0012D9 0B 4D' BMI TIKUWA_ON_040 ;敵エリア無し？ ( yes:TIKUWA_ON_040 ) 4037 S0012DB 01 NOP 4038 ; 4039 S0012DC 3D A5 00 LMS R5,CWORK0 4040 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 4040+ S0012DF F0 10E2 IWT R0,#CENXPSL 4040+ S0012E2 51 ADD R1 4040+ S0012E3 B5 FROM R5 4040+ S0012E4 30 STW (R0) 4041 S0012E5 3D A5 01 LMS R5,CWORK1 4042 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 4042+ S0012E8 F0 1182 IWT R0,#CENYPSL 4042+ S0012EB 51 ADD R1 4042+ S0012EC B5 FROM R5 4042+ S0012ED 30 STW (R0) 4043 S0012EE A5 70 IBT R5,#50H+32 4044 mSTW R5,CENTIM0,R1 ;初期タイマーセット 4044+ S0012F0 F0 1A96 IWT R0,#CENTIM0 4044+ S0012F3 51 ADD R1 4044+ S0012F4 B5 FROM R5 4044+ S0012F5 30 STW (R0) 4045 ; 4046 mLDW0 CENMYNO,R1 4046+ S0012F6 F0 1360 IWT R0,#CENMYNO 4046+ S0012F9 51 ADD R1 4046+ S0012FA 40 LDW (R0) 4047 S0012FB F5 0000" IWT R5,#TIKU0 4048 S0012FE 65 SUB R5 ;(Z) set 4049 ; 4050 S0012FF AC 0A IBT R12,#CLR_BG_W ;(R12) <-- ぬきＢＧ書き換えＮｏ． 4051 S001301 AD 02 IBT R13,#2 ;(R13) <-- 衝突サイズ変更値 4052 ; 4053 S001303 09 05' BEQ TIKUWA_ON_030 ;小さい方？ ( yes:TIKUWA_ON_030 ) 4054 S001305 01 NOP 4055 ; 4056 S001306 AC 0C IBT R12,#CLR_BG_W_4 ;(R12) <-- ぬきＢＧ書き換え（４ユニット）Ｎｏ． 4057 S001308 AD 04 IBT R13,#4 ;(R13) <-- 衝突サイズ変更値 4058 TIKUWA_ON_030 4059 mLDW0 CEWIDEY,R1 4059+ S00130A F0 1BB8 IWT R0,#CEWIDEY 4059+ S00130D 51 ADD R1 4059+ S00130E 40 LDW (R0) 4060 S00130F 15 TO R5 4061 S001310 5D ADD R13 4062 mSTW R5,CEWIDEY,R1 ;衝突Ｙサイズ変更 4062+ S001311 F0 1BB8 IWT R0,#CEWIDEY 4062+ S001314 51 ADD R1 4062+ S001315 B5 FROM R5 4062+ S001316 30 STW (R0) 4063 mSTW R5,CEWIDEX,R1 ;衝突Ｘサイズ変更 4063+ S001317 F0 1BB6 IWT R0,#CEWIDEX 4063+ S00131A 51 ADD R1 4063+ S00131B B5 FROM R5 4063+ S00131C 30 STW (R0) 4064 ; 4065 S00131D 2C 10 MOVE R0,R12 4066 S00131F 00 STOP ;<<< mSFCALL >>> 4067 S001320 01 NOP 4068 ; 4069 S001321 3D A1 21 LMS R1,REG1 ;プレイヤー補正値変更 4070 S001324 D1 INC R1 4071 S001325 05 04' BRA TIKUWA_ON_050 4072 S001327 D1 INC R1 4073 ; 4074 TIKUWA_ON_040 4075 S001328 3D A1 21 LMS R1,REG1 ;(R1) load 4076 ; 4077 TIKUWA_ON_050 4078 S00132B 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4079 mRTS 4079+ S00132E 9B JMP R11 4079+ S00132F 01 NOP 4080 ; 4081 ;---------------------------------------------------------------- 4082 ;- カウントダウンブロック - 4083 ;---------------------------------------------------------------- 4084 CNTDOWN_ON 4085 S001330 B2 FROM R2 4086 S001331 03 LSR 4087 S001332 0C F7' BCC TIKUWA_ON_050 ;ＢＧ当たりＯＫ？ ( no:TIKUWA_ON_050 ) 4088 S001334 01 NOP 4089 ; 4090 S001335 3E A1 21 SMS R1,REG1 ;(R1) save 4091 S001338 3E A2 22 SMS R2,REG2 ;(R2) save 4092 ; 4093 S00133B B6 FROM R6 4094 S00133C 9E LOB 4095 S00133D 12 TO R2 ;(R2) <-- カウントＮｏ． 4096 S00133E 03 LSR ;(C) <-- ０：左 １：右 4097 S00133F 0C 08' BCC CNTDOWN_ON_010 ;左？ ( yes:CNTDOWN_ON_010 ) 4098 S001341 01 NOP 4099 ; 4100 S001342 3D A0 00 LMS R0,CWORK0 4101 S001345 A5 10 IBT R5,#010H 4102 S001347 65 SUB R5 4103 S001348 90 SBK ;[ SMS R0,CWORK0 ] 4104 CNTDOWN_ON_010 4105 ; 4106 S001349 F5 0000" IWT R5,#CNTLF ;(R5) <-- 敵Ｎｏ． 4107 mJSR M_ENINSR ;敵エリア確保 4107+ S00134C 94 LINK #4 4107+ S00134D FF 28C7' IWT R15, #M_ENINSR 4107+ S001350 01 NOP 4108 ; 4109 S001351 0B 72' BMI CNTDOWN_ON_020 ;敵エリア無し？ ( yes:CNTDOWN_ON_020 ) 4110 S001353 01 NOP 4111 ; 4112 S001354 A0 33 IBT R0,#033H ;[♪] 4113 S001356 3E A0 3D SMS R0,CMSOUND3 4114 ; 4115 S001359 3D A0 00 LMS R0,CWORK0 4116 S00135C 3F 7F BIC #0FH ;[ AND #0FFF0H ] 4117 S00135E 15 TO R5 4118 S00135F 3E 58 ADD #08H 4119 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 4119+ S001361 F0 10E2 IWT R0,#CENXPSL 4119+ S001364 51 ADD R1 4119+ S001365 B5 FROM R5 4119+ S001366 30 STW (R0) 4120 S001367 3D A0 01 LMS R0,CWORK1 4121 S00136A 3F 7F BIC #0FH ;[ AND #0FFF0H ] 4122 S00136C 15 TO R5 4123 S00136D 3E 58 ADD #08H 4124 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 4124+ S00136F F0 1182 IWT R0,#CENYPSL 4124+ S001372 51 ADD R1 4124+ S001373 B5 FROM R5 4124+ S001374 30 STW (R0) 4125 mSTW R2,CENWRK0,R1 ;カウントＮｏ．セット 4125+ S001375 F0 1978 IWT R0,#CENWRK0 4125+ S001378 51 ADD R1 4125+ S001379 B2 FROM R2 4125+ S00137A 30 STW (R0) 4126 mLDW0 CEWIDEX,R1 4126+ S00137B F0 1BB6 IWT R0,#CEWIDEX 4126+ S00137E 51 ADD R1 4126+ S00137F 40 LDW (R0) 4127 S001380 15 TO R5 4128 S001381 3E 54 ADD #4 4129 mSTW R5,CEWIDEX,R1 ;衝突Ｘサイズ変更 4129+ S001383 F0 1BB6 IWT R0,#CEWIDEX 4129+ S001386 51 ADD R1 4129+ S001387 B5 FROM R5 4129+ S001388 30 STW (R0) 4130 mLDW0 CEWIDEY,R1 4130+ S001389 F0 1BB8 IWT R0,#CEWIDEY 4130+ S00138C 51 ADD R1 4130+ S00138D 40 LDW (R0) 4131 S00138E 15 TO R5 4132 S00138F 3E 53 ADD #3 4133 mSTW R5,CEWIDEY,R1 ;衝突Ｙサイズ変更 4133+ S001391 F0 1BB8 IWT R0,#CEWIDEY 4133+ S001394 51 ADD R1 4133+ S001395 B5 FROM R5 4133+ S001396 30 STW (R0) 4134 mLDW0 CECNTYW,R1 4134+ S001397 F0 1B58 IWT R0,#CECNTYW 4134+ S00139A 51 ADD R1 4134+ S00139B 40 LDW (R0) 4135 S00139C 15 TO R5 4136 S00139D 3E 52 ADD #2 4137 mSTW R5,CECNTYW,R1 ;衝突中心Ｙ位置変更 4137+ S00139F F0 1B58 IWT R0,#CECNTYW 4137+ S0013A2 51 ADD R1 4137+ S0013A3 B5 FROM R5 4137+ S0013A4 30 STW (R0) 4138 ; 4139 S0013A5 B2 FROM R2 4140 S0013A6 52 ADD R2 4141 S0013A7 F5 776D IWT R5,#UT7770 4142 S0013AA 15 TO R5 ;(R5) <-- 書き換えユニットＮｏ． 4143 S0013AB 55 ADD R5 4144 mSFCALL UNIT_BG_W 4144+ S0013AC A0 0E IBT R0,#UNIT_BG_W 4144+ S0013AE 00 STOP 4144+ S0013AF 01 NOP 4145 S0013B0 3D A0 00 LMS R0,CWORK0 4146 S0013B3 A1 10 IBT R1,#010H 4147 S0013B5 51 ADD R1 4148 S0013B6 90 SBK ;[ SMS R0,CWORK0 ] 4149 S0013B7 D5 INC R5 4150 mSFCALL UNIT_BG_W 4150+ S0013B8 A0 0E IBT R0,#UNIT_BG_W 4150+ S0013BA 00 STOP 4150+ S0013BB 01 NOP 4151 ; 4152 S0013BC 3D A0 21 LMS R0,REG1 ;プレイヤー補正値変更 4153 S0013BF 11 TO R1 4154 S0013C0 3E 54 ADD #4 4155 S0013C2 05 04' BRA CNTDOWN_ON_030 4156 S0013C4 01 NOP 4157 ; 4158 CNTDOWN_ON_020 4159 S0013C5 3D A1 21 LMS R1,REG1 ;(R1) load 4160 CNTDOWN_ON_030 4161 S0013C8 3D A2 22 LMS R2,REG2 ;(R2) load 4162 ; 4163 CNTDOWN_ON_050 4164 S0013CB 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4165 mRTS 4165+ S0013CE 9B JMP R11 4165+ S0013CF 01 NOP 4166 ; 4167 ;---------------------------------------------------------------- 4168 ;- ぐらぐら岩 - 4169 ;---------------------------------------------------------------- 4170 GURAGURA_ON 4171 S0013D0 3D A0 E0 LMS R0,CONFALL 4172 S0013D3 3E 60 SUB #0 4173 S0013D5 08 F4' BNE CNTDOWN_ON_050 ;ＢＧ特殊エリア空きあり？ ( no:CNTDOWN_ON_050 ) 4174 S0013D7 01 NOP 4175 ; 4176 S0013D8 B2 FROM R2 4177 S0013D9 03 LSR 4178 S0013DA 0C EF' BCC CNTDOWN_ON_050 ;ＢＧ当たりＯＫ？ ( no:CNTDOWN_ON_050 ) 4179 S0013DC 01 NOP 4180 ; 4181 S0013DD AC 00 IBT R12,#00 ;(R12) <-- Ｘ座標補正値 4182 S0013DF AD 00 IBT R13,#00 ;(R13) <-- Ｙ ” 4183 S0013E1 B6 FROM R6 4184 S0013E2 9E LOB 4185 S0013E3 A5 04 IBT R5,#LOW UT8F04 4186 S0013E5 65 SUB R5 4187 S0013E6 0D 12' BCS GURAGURA_ON_010 ;小さい方？ ( yes:GURAGURA_ON_010 ) 4188 S0013E8 01 NOP 4189 ; 4190 S0013E9 3E 52 ADD #2 4191 S0013EB 4F NOT 4192 S0013EC D0 INC R0 4193 S0013ED 50 ADD R0 4194 S0013EE 50 ADD R0 4195 S0013EF 50 ADD R0 4196 S0013F0 1C TO R12 ;(R12) <-- Ｘ座標補正値 4197 S0013F1 50 ADD R0 4198 S0013F2 AD 10 IBT R13,#010H ;(R13) <-- Ｙ座標補正値 4199 S0013F4 F5 0000" IWT R5,#GROCK ;(R5) <-- 敵Ｎｏ．（大きい方） 4200 S0013F7 05 0D' BRA GURAGURA_ON_020 4201 S0013F9 01 NOP 4202 ; 4203 GURAGURA_ON_010 4204 S0013FA 3F C1 XOR #01H 4205 S0013FC 50 ADD R0 4206 S0013FD 50 ADD R0 4207 S0013FE 50 ADD R0 4208 S0013FF 1C TO R12 ;(R12) <-- Ｘ座標補正値 4209 S001400 50 ADD R0 4210 S001401 AD 00 IBT R13,#00H ;(R13) <-- Ｙ座標補正値 4211 S001403 F5 0000" IWT R5,#GRCKS ;(R5) <-- 敵Ｎｏ．（小さい方） 4212 GURAGURA_ON_020 4213 S001406 3E AD 02 SMS R13,CWORK2 4214 S001409 3D A0 00 LMS R0,CWORK0 4215 S00140C 3F 7F BIC #0FH ;[ AND #0FFF0H ] 4216 S00140E 5C ADD R12 4217 S00140F 90 SBK ;[ SMS R0,CWORK0 ] 4218 S001410 3D A0 01 LMS R0,CWORK1 4219 S001413 3F 7F BIC #0FH ;[ AND #0FFF0H ] 4220 S001415 5D ADD R13 4221 S001416 90 SBK ;[ SMS R0,CWORK1 ] 4222 ; 4223 S001417 3E A1 21 SMS R1,REG1 ;(R1) save 4224 ; 4225 mJSR M_ENINSR ;敵エリア確保 4225+ S00141A 94 LINK #4 4225+ S00141B FF 28C7' IWT R15, #M_ENINSR 4225+ S00141E 01 NOP 4226 ; 4227 S00141F 0B 27' BMI GURAGURA_ON_040 ;敵エリア無し？ ( yes:GURAGURA_ON_040 ) 4228 S001421 01 NOP 4229 ; 4230 S001422 A5 02 IBT R5,#CEINIT 4231 mSTW R5,CENMODE,R1 ;初期モードセット 4231+ S001424 F0 0F00 IWT R0,#CENMODE 4231+ S001427 51 ADD R1 4231+ S001428 B5 FROM R5 4231+ S001429 30 STW (R0) 4232 S00142A 3D A5 00 LMS R5,CWORK0 4233 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 4233+ S00142D F0 10E2 IWT R0,#CENXPSL 4233+ S001430 51 ADD R1 4233+ S001431 B5 FROM R5 4233+ S001432 30 STW (R0) 4234 S001433 3D A5 01 LMS R5,CWORK1 4235 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 4235+ S001436 F0 1182 IWT R0,#CENYPSL 4235+ S001439 51 ADD R1 4235+ S00143A B5 FROM R5 4235+ S00143B 30 STW (R0) 4236 ; 4237 S00143C 3D A0 02 LMS R0,CWORK2 ;乗ったら落ちる床セットフラグ”ＯＮ” 4238 S00143F E0 DEC R0 4239 S001440 0A 03' BPL GURAGURA_ON_030 4240 S001442 D0 INC R0 4241 ; 4242 S001443 A0 04 IBT R0,#4 4243 GURAGURA_ON_030 4244 S001445 3E A0 E0 SMS R0,CONFALL 4245 ; 4246 GURAGURA_ON_040 4247 S001448 3D A1 21 LMS R1,REG1 ;(R1) load 4248 S00144B 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4249 mRTS 4249+ S00144E 9B JMP R11 4249+ S00144F 01 NOP 4250 ; 4251 ; 4252 ;------------------------------------------------------------------------ 4253 ;- 足当たりＯＫ後特殊ＢＧチェック（中足用） - 4254 ;- in : - 4255 ;- (R2) <-- ＢＧ当たりフラグ - 4256 ;- (R3) <-- Ｙ座標補正値 - 4257 ;- (R4) <-- 移動角度 - 4258 ;- (R9) <-- プレイヤーＸ座標 - 4259 ;- (R10) <-- ” Ｙ ” - 4260 ;- (R11) <-- 復帰アドレス - 4261 ;- (R14) <-- ＢＧチェックポイント - 4262 ;- データアドレス - 4263 ;- out : - 4264 ;- (R6) <-- BG unit no. - 4265 ;- (R7) <-- BG unit no. type - 4266 ;- (CWK0) <- ＢＧチェックＸ座標 - 4267 ;- (CWK1) <- ” Ｙ ” - 4268 ;- break : - 4269 ;- (R1) - 4270 ;- (R5) - 4271 ;- use RAM : - 4272 ;- (RTS0) - 4273 ;- (RTS1) - 4274 ;------------------------------------------------------------------------ 4275 FOOT_RESULT_C 4276 S001450 3E AB 31 SMS R11,RTS1 ;[ return address save ] 4277 ; 4278 S001453 F0 F800 IWT R0,#1111100000000000B 4279 S001456 77 AND R7 ;(R0) <-- ＢＧタイプ 4280 S001457 09 76' BEQ FOOT_RESULT_010 ;特殊ＢＧ？ ( no:FOOT_RESULT_010 ) 4281 S001459 C0 HIB 4282 ; 4283 S00145A 03 LSR ;[ JSRSUB ] 4284 S00145B D0 INC R0 ; 4285 S00145C 1F TO R15 ; 4286 S00145D 5F ADD R15 ; 4287 S00145E FF HEX FF ; 4288 ; 4289 mTWORD FOOT_RESULT_010 ;[無し] 4289+ S00145F 14CF' WORD FOOT_RESULT_010 4289+ S001461 01 NOP 4289+ S001462 01 NOP 4290 mTWORD YUKI_ON ;[雪、草の上] 4290+ S001463 172D' WORD YUKI_ON 4290+ S001465 01 NOP 4290+ S001466 01 NOP 4291 mTWORD SOAP_ON ;[せっけん] 4291+ S001467 17B9' WORD SOAP_ON 4291+ S001469 01 NOP 4291+ S00146A 01 NOP 4292 mTWORD FOOT_RESULT_010 ;[へこみ床] 4292+ S00146B 14CF' WORD FOOT_RESULT_010 4292+ S00146D 01 NOP 4292+ S00146E 01 NOP 4293 mTWORD DORO_ON ;[泥] 4293+ S00146F 1699' WORD DORO_ON 4293+ S001471 01 NOP 4293+ S001472 01 NOP 4294 mTWORD FOOT_RESULT_010 ;[溶岩] 4294+ S001473 14CF' WORD FOOT_RESULT_010 4294+ S001475 01 NOP 4294+ S001476 01 NOP 4295 mTWORD FOOT_RESULT_010 ;[コイン] 4295+ S001477 14CF' WORD FOOT_RESULT_010 4295+ S001479 01 NOP 4295+ S00147A 01 NOP 4296 mTWORD FOOT_RESULT_010 ;[？ブロック] 4296+ S00147B 14CF' WORD FOOT_RESULT_010 4296+ S00147D 01 NOP 4296+ S00147E 01 NOP 4297 mTWORD EATBLK_ON_OK ;[食べれるＢＧ] 4297+ S00147F 188D' WORD EATBLK_ON_OK 4297+ S001481 01 NOP 4297+ S001482 01 NOP 4298 mTWORD RALE_ON ;[線路] 4298+ S001483 1553' WORD RALE_ON 4298+ S001485 01 NOP 4298+ S001486 01 NOP 4299 mTWORD FOOT_RESULT_010 ;[当たるとダメージ] 4299+ S001487 14CF' WORD FOOT_RESULT_010 4299+ S001489 01 NOP 4299+ S00148A 01 NOP 4300 mTWORD FOOT_RESULT_010 ;[杭] 4300+ S00148B 14CF' WORD FOOT_RESULT_010 4300+ S00148D 01 NOP 4300+ S00148E 01 NOP 4301 mTWORD FOOT_RESULT_010 ;[左下階段] 4301+ S00148F 14CF' WORD FOOT_RESULT_010 4301+ S001491 01 NOP 4301+ S001492 01 NOP 4302 mTWORD FOOT_RESULT_010 ;[右下階段] 4302+ S001493 14CF' WORD FOOT_RESULT_010 4302+ S001495 01 NOP 4302+ S001496 01 NOP 4303 mTWORD FOOT_RESULT_010 ;[乗ったら落ちる床] 4303+ S001497 14CF' WORD FOOT_RESULT_010 4303+ S001499 01 NOP 4303+ S00149A 01 NOP 4304 mTWORD FOOT_RESULT_010 ;[点線ブロック] 4304+ S00149B 14CF' WORD FOOT_RESULT_010 4304+ S00149D 01 NOP 4304+ S00149E 01 NOP 4305 mTWORD FOOT_RESULT_010 ;[マリオブロック] 4305+ S00149F 14CF' WORD FOOT_RESULT_010 4305+ S0014A1 01 NOP 4305+ S0014A2 01 NOP 4306 mTWORD FOOT_RESULT_010 ;[ちくわブロック] 4306+ S0014A3 14CF' WORD FOOT_RESULT_010 4306+ S0014A5 01 NOP 4306+ S0014A6 01 NOP 4307 mTWORD FOOT_RESULT_010 ;[カウントブロック] 4307+ S0014A7 14CF' WORD FOOT_RESULT_010 4307+ S0014A9 01 NOP 4307+ S0014AA 01 NOP 4308 mTWORD PICHA_ON ;[滝床（ぴちゃぴちゃ）] 4308+ S0014AB 1631' WORD PICHA_ON 4308+ S0014AD 01 NOP 4308+ S0014AE 01 NOP 4309 mTWORD DOKAN_ON ;[ドカン] 4309+ S0014AF 1588' WORD DOKAN_ON 4309+ S0014B1 01 NOP 4309+ S0014B2 01 NOP 4310 mTWORD FOOT_RESULT_010 ;[杉の木] 4310+ S0014B3 14CF' WORD FOOT_RESULT_010 4310+ S0014B5 01 NOP 4310+ S0014B6 01 NOP 4311 mTWORD FOOT_RESULT_010 ;[点線コイン] 4311+ S0014B7 14CF' WORD FOOT_RESULT_010 4311+ S0014B9 01 NOP 4311+ S0014BA 01 NOP 4312 mTWORD ICE_BLK_ON ;[氷ブロック] 4312+ S0014BB 171E' WORD ICE_BLK_ON 4312+ S0014BD 01 NOP 4312+ S0014BE 01 NOP 4313 mTWORD FOOT_RESULT_010 ;[ぐらぐら岩] 4313+ S0014BF 14CF' WORD FOOT_RESULT_010 4313+ S0014C1 01 NOP 4313+ S0014C2 01 NOP 4314 mTWORD FOOT_RESULT_010 ;[当たるとダメージ（坂杭）] 4314+ S0014C3 14CF' WORD FOOT_RESULT_010 4314+ S0014C5 01 NOP 4314+ S0014C6 01 NOP 4315 mTWORD FOOT_RESULT_010 ;[当たるとダメージ（氷柱）] 4315+ S0014C7 14CF' WORD FOOT_RESULT_010 4315+ S0014C9 01 NOP 4315+ S0014CA 01 NOP 4316 mTWORD FOOT_RESULT_010 ;[当たるとダウン] 4316+ S0014CB 14CF' WORD FOOT_RESULT_010 4316+ S0014CD 01 NOP 4316+ S0014CE 01 NOP 4317 ; 4318 FOOT_RESULT_010 4319 S0014CF 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4320 mRTS 4320+ S0014D2 9B JMP R11 4320+ S0014D3 01 NOP 4321 ; 4322 ;------------------------------------------------------------------------ 4323 ;- 足当たりＯＫ後特殊ＢＧチェック - 4324 ;- in : - 4325 ;- (R2) <-- ＢＧ当たりフラグ - 4326 ;- (R3) <-- Ｙ座標補正値 - 4327 ;- (R4) <-- 移動角度 - 4328 ;- (R9) <-- プレイヤーＸ座標 - 4329 ;- (R10) <-- ” Ｙ ” - 4330 ;- (R11) <-- 復帰アドレス - 4331 ;- (R14) <-- ＢＧチェックポイント - 4332 ;- データアドレス - 4333 ;- out : - 4334 ;- (R6) <-- BG unit no. - 4335 ;- (R7) <-- BG unit no. type - 4336 ;- (CWK0) <- ＢＧチェックＸ座標 - 4337 ;- (CWK1) <- ” Ｙ ” - 4338 ;- break : - 4339 ;- (R1) - 4340 ;- (R5) - 4341 ;- use RAM : - 4342 ;- (RTS0) - 4343 ;- (RTS1) - 4344 ;------------------------------------------------------------------------ 4345 FOOT_RESULT 4346 S0014D4 3E AB 31 SMS R11,RTS1 ;[ return address save ] 4347 ; 4348 S0014D7 F0 F800 IWT R0,#1111100000000000B 4349 S0014DA 77 AND R7 ;(R0) <-- ＢＧタイプ 4350 S0014DB 09 F2' BEQ FOOT_RESULT_010 ;特殊ＢＧ？ ( no:FOOT_RESULT_010 ) 4351 S0014DD C0 HIB 4352 ; 4353 S0014DE 03 LSR ;[ JSRSUB ] 4354 S0014DF D0 INC R0 ; 4355 S0014E0 1F TO R15 ; 4356 S0014E1 5F ADD R15 ; 4357 S0014E2 FF HEX FF ; 4358 ; 4359 mTWORD FOOT_RESULT_010 ;[無し] 4359+ S0014E3 14CF' WORD FOOT_RESULT_010 4359+ S0014E5 01 NOP 4359+ S0014E6 01 NOP 4360 mTWORD YUKI_ON_SK ;[雪、草の上] 4360+ S0014E7 1728' WORD YUKI_ON_SK 4360+ S0014E9 01 NOP 4360+ S0014EA 01 NOP 4361 mTWORD SOAP_ON ;[せっけん] 4361+ S0014EB 17B9' WORD SOAP_ON 4361+ S0014ED 01 NOP 4361+ S0014EE 01 NOP 4362 mTWORD HEKOMI_ON ;[へこみ床] 4362+ S0014EF 17C3' WORD HEKOMI_ON 4362+ S0014F1 01 NOP 4362+ S0014F2 01 NOP 4363 mTWORD DORO_ON_SK ;[泥] 4363+ S0014F3 1694' WORD DORO_ON_SK 4363+ S0014F5 01 NOP 4363+ S0014F6 01 NOP 4364 mTWORD FOOT_RESULT_010 ;[溶岩] 4364+ S0014F7 14CF' WORD FOOT_RESULT_010 4364+ S0014F9 01 NOP 4364+ S0014FA 01 NOP 4365 mTWORD FOOT_RESULT_010 ;[コイン] 4365+ S0014FB 14CF' WORD FOOT_RESULT_010 4365+ S0014FD 01 NOP 4365+ S0014FE 01 NOP 4366 mTWORD FOOT_RESULT_010 ;[？ブロック] 4366+ S0014FF 14CF' WORD FOOT_RESULT_010 4366+ S001501 01 NOP 4366+ S001502 01 NOP 4367 mTWORD EATBLK_ON_OK ;[食べれるＢＧ] 4367+ S001503 188D' WORD EATBLK_ON_OK 4367+ S001505 01 NOP 4367+ S001506 01 NOP 4368 mTWORD FOOT_RESULT_010 ;[線路] 4368+ S001507 14CF' WORD FOOT_RESULT_010 4368+ S001509 01 NOP 4368+ S00150A 01 NOP 4369 mTWORD FOOT_RESULT_010 ;[当たるとダメージ] 4369+ S00150B 14CF' WORD FOOT_RESULT_010 4369+ S00150D 01 NOP 4369+ S00150E 01 NOP 4370 mTWORD KUI_ON_OK ;[杭] 4370+ S00150F 186F' WORD KUI_ON_OK 4370+ S001511 01 NOP 4370+ S001512 01 NOP 4371 mTWORD KAIDAN_U_ON ;[左下階段] 4371+ S001513 17FE' WORD KAIDAN_U_ON 4371+ S001515 01 NOP 4371+ S001516 01 NOP 4372 mTWORD KAIDAN_D_ON ;[右下階段] 4372+ S001517 1804' WORD KAIDAN_D_ON 4372+ S001519 01 NOP 4372+ S00151A 01 NOP 4373 mTWORD FALL_BLK_ON ;[乗ったら落ちる床] 4373+ S00151B 18A7' WORD FALL_BLK_ON 4373+ S00151D 01 NOP 4373+ S00151E 01 NOP 4374 mTWORD FOOT_RESULT_010 ;[点線ブロック] 4374+ S00151F 14CF' WORD FOOT_RESULT_010 4374+ S001521 01 NOP 4374+ S001522 01 NOP 4375 mTWORD FOOT_RESULT_010 ;[マリオブロック] 4375+ S001523 14CF' WORD FOOT_RESULT_010 4375+ S001525 01 NOP 4375+ S001526 01 NOP 4376 mTWORD FOOT_RESULT_010 ;[ちくわブロック] 4376+ S001527 14CF' WORD FOOT_RESULT_010 4376+ S001529 01 NOP 4376+ S00152A 01 NOP 4377 mTWORD FOOT_RESULT_010 ;[カウントブロック] 4377+ S00152B 14CF' WORD FOOT_RESULT_010 4377+ S00152D 01 NOP 4377+ S00152E 01 NOP 4378 mTWORD PICHA_ON_SK ;[滝床（ぴちゃぴちゃ）] 4378+ S00152F 162C' WORD PICHA_ON_SK 4378+ S001531 01 NOP 4378+ S001532 01 NOP 4379 mTWORD FOOT_RESULT_010 ;[ドカン] 4379+ S001533 14CF' WORD FOOT_RESULT_010 4379+ S001535 01 NOP 4379+ S001536 01 NOP 4380 mTWORD FOOT_RESULT_010 ;[杉の木] 4380+ S001537 14CF' WORD FOOT_RESULT_010 4380+ S001539 01 NOP 4380+ S00153A 01 NOP 4381 mTWORD FOOT_RESULT_010 ;[点線コイン] 4381+ S00153B 14CF' WORD FOOT_RESULT_010 4381+ S00153D 01 NOP 4381+ S00153E 01 NOP 4382 mTWORD ICE_BLK_ON ;[氷ブロック] 4382+ S00153F 171E' WORD ICE_BLK_ON 4382+ S001541 01 NOP 4382+ S001542 01 NOP 4383 mTWORD FOOT_RESULT_010 ;[ぐらぐら岩] 4383+ S001543 14CF' WORD FOOT_RESULT_010 4383+ S001545 01 NOP 4383+ S001546 01 NOP 4384 mTWORD FOOT_RESULT_010 ;[当たるとダメージ（坂杭）] 4384+ S001547 14CF' WORD FOOT_RESULT_010 4384+ S001549 01 NOP 4384+ S00154A 01 NOP 4385 mTWORD FOOT_RESULT_010 ;[当たるとダメージ（氷柱）] 4385+ S00154B 14CF' WORD FOOT_RESULT_010 4385+ S00154D 01 NOP 4385+ S00154E 01 NOP 4386 mTWORD FOOT_RESULT_010 ;[当たるとダウン] 4386+ S00154F 14CF' WORD FOOT_RESULT_010 4386+ S001551 01 NOP 4386+ S001552 01 NOP 4387 ; 4388 ;---------------------------------------------------------------- 4389 ;- 線路 - 4390 ;---------------------------------------------------------------- 4391 RALE_ON 4392 S001553 3D A0 57 LMS R0,CPLTYPE 4393 S001556 3E 68 SUB #P_TRAIN 4394 S001558 08 29' BNE RALE_ON_050 ;汽車プレイヤー？ ( no:RALE_ON_050 ) 4395 S00155A 01 NOP 4396 ; 4397 S00155B 3D F0 0071 LM R0,CMKEYC1 4398 S00155F 3E 74 AND #00000100B 4399 S001561 09 20' BEQ RALE_ON_050 ;レールモードへ？ ( no:RALE_ON_050 ) 4400 S001563 01 NOP 4401 ; 4402 ;-------------- レールモード”ＯＮ” ---------------------------- 4403 S001564 A0 5D IBT R0,#05DH 4404 S001566 3E A0 3D SMS R0,CMSOUND3 ;[♪] 4405 ; 4406 S001569 A0 40 IBT R0,#040H 4407 S00156B 3E A0 5B SMS R0,CPLANGL ;目標回転角セット 4408 S00156E 4D SWAP 4409 S00156F 3E A0 C5 SMS R0,CPTR_MANG 4410 S001572 60 SUB R0 4411 S001573 3E A0 C4 SMS R0,CPTR_MUKI 4412 S001576 3E A0 C6 SMS R0,CPTR_BACK 4413 S001579 F1 0100 IWT R1,#0100H ;(R1) <-- レールモード”ＯＮ” 4414 S00157C 3E A1 C0 SMS R1,CPTR_MODE 4415 S00157F 60 SUB R0 4416 S001580 3E A0 5A SMS R0,CPLMVSP 4417 ; 4418 RALE_ON_050 4419 S001583 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4420 mRTS 4420+ S001586 9B JMP R11 4420+ S001587 01 NOP 4421 ; 4422 ;---------------------------------------------------------------- 4423 ;- ドカン - 4424 ;---------------------------------------------------------------- 4425 DOKAN_ON 4426 ; 4427 ;-------------- ドカン出入りチェック -------------------- 4428 S001588 3D A0 D9 LMS R0,CBABYNO 4429 S00158B 50 ADD R0 4430 S00158C 0C 44' BCC DOKAN_ON_020 ;赤ちゃん乗ってる？ ( no:DOKAN_ON_020 ) 4431 S00158E B6 FROM R6 4432 ; 4433 S00158F 9E LOB 4434 S001590 FE 0000" IWT R14,#DOKAN_TYPE 4435 S001593 1E TO R14 4436 S001594 5E ADD R14 4437 S001595 EF GETB 4438 ; 4439 S001596 20 15 MOVE R5,R0 ;(R0)(R5) <-- ドカンタイプ情報 4440 S001598 1E TO R14 ;[ * not break (R0) ] 4441 S001599 3E 74 AND #00000100B ;[ 00000100B <-- ドカン向き ] 4442 S00159B 09 35' BEQ DOKAN_ON_020 ;ドカンユニットＯＫ？ ( no:DOKAN_ON_020 ) 4443 S00159D 4D SWAP 4444 ; 4445 S00159E 50 ADD R0 ;(C) <-- 左ｏｒ右？ 4446 S00159F 3D A0 00 LMS R0,CWORK0 4447 S0015A2 3E 7F AND #0FH 4448 S0015A4 0C 03' BCC DOKAN_ON_010 ;左ドカン？ ( yes:DOKAN_ON_010 ) 4449 S0015A6 01 NOP 4450 ; 4451 S0015A7 3F 5F ADC #0FH ;[ ADD #010H ] 4452 DOKAN_ON_010 4453 S0015A9 3E A0 87 SMS R0,CDOKNCX ;補正用中心Ｘ座標セット 4454 ; 4455 S0015AC AE 40 IBT R14,#01000000B 4456 S0015AE 2E WITH R14 ;[ * not break (R0) ] 4457 S0015AF 75 AND R5 4458 S0015B0 08 12' BNE DOKAN_ON_014 ;内ドカン？ ( yes:DOKAN_ON_014 ) 4459 S0015B2 01 NOP 4460 ; 4461 S0015B3 3E 68 SUB #08H 4462 S0015B5 AE 10 IBT R14,#18H-08H 4463 S0015B7 6E SUB R14 4464 S0015B8 0D 18' BCS DOKAN_ON_020 ;Ｘ位置ＯＫ？ ( no:DOKAN_ON_020 ) 4465 S0015BA 01 NOP 4466 ; 4467 S0015BB 3D F0 0071 LM R0,CMKEYC1 4468 S0015BF 3E 74 AND #00000100B 4469 S0015C1 09 0F' BEQ DOKAN_ON_020 ;下キー入力？ ( no:DOKAN_ON_020 ) 4470 S0015C3 01 NOP 4471 ; 4472 ;-------------- ドカン出入りデモへ -------------- 4473 DOKAN_ON_014 4474 S0015C4 3D A0 A8 LMS R0,CBERFLG 4475 S0015C7 E0 DEC R0 4476 S0015C8 0A 08' BPL DOKAN_ON_020 ;状態ＯＫ？ ( no:DOKAN_ON_020 ) 4477 S0015CA 01 NOP 4478 ; 4479 S0015CB A5 04 IBT R5,#00000100B ;(R5) <-- ドカン向き 4480 mJSR DOKAN_INOUT_IN_2 ;[ (R5) <-- 向き ] 4480+ S0015CD 94 LINK #4 4480+ S0015CE FF 15D7' IWT R15, #DOKAN_INOUT_IN_2 4480+ S0015D1 01 NOP 4481 ; 4482 DOKAN_ON_020 4483 S0015D2 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4484 mRTS 4484+ S0015D5 9B JMP R11 4484+ S0015D6 01 NOP 4485 ; 4486 ;---------------------------------------------------------------- 4487 ;- ドカン出入りデモ初期セット - 4488 ;- in : - 4489 ;- (R5) <-- 向き - 4490 ;---------------------------------------------------------------- 4491 DOKAN_INOUT_IN_2 4492 S0015D7 F0 7D0B IWT R0,#UT7D10-1 4493 S0015DA 66 SUB R6 4494 S0015DB 0D 10' BCS DOKAN_INOUT_IN ;外ドカン？ ( yes:DOKAN_INOUT_IN ) 4495 S0015DD 56 ADD R6 4496 ; 4497 S0015DE F0 7D1B IWT R0,#UT7D21-1 4498 S0015E1 66 SUB R6 ;(C) set 4499 S0015E2 F0 8000 IWT R0,#8000H 4500 S0015E5 0D 04' BCS DOKAN_IO_IN_000 4501 S0015E7 01 NOP 4502 ; 4503 S0015E8 F0 A000 IWT R0,#8000H+2000H 4504 DOKAN_IO_IN_000 4505 S0015EB 15 TO R5 4506 S0015EC C5 OR R5 4507 DOKAN_INOUT_IN 4508 S0015ED B5 FROM R5 4509 S0015EE 03 LSR ;(R0) <-- 向き（１、２、４、８） 4510 S0015EF 25 WITH R5 ;(R5) <-- 向き（０、１、２、３） 4511 S0015F0 3F 7F BIC #00001111B ;[ AND #0FFF0H ] 4512 DOKAN_IO_IN_010 4513 S0015F2 D5 INC R5 ;x2 4514 S0015F3 D5 INC R5 ; 4515 S0015F4 0C FC' BCC DOKAN_IO_IN_010 4516 S0015F6 03 LSR 4517 ; 4518 S0015F7 3E A5 83 SMS R5,CDOKNMK ;ドカン向きセット 4519 S0015FA A0 06 IBT R0,#PDKN ;プレイヤーモードセット 4520 S0015FC 3E A0 56 SMS R0,CPLMODE 4521 S0015FF 3E A0 D8 SMS R0,CENSTFG ;敵ＳＴＯＰ 4522 S001602 60 SUB R0 ;[ IBT R0,#0 ] 4523 S001603 3E A0 84 SMS R0,CDOKNCT ;ドカン移動カウンターリセット 4524 S001606 3E A0 85 SMS R0,CDOKNPT ; ” パターンカウンターリセット 4525 S001609 3E A0 FB SMS R0,CPLWORKTM ; ” 切り替えタイマーリセット 4526 S00160C 3E A0 5A SMS R0,CPLMVSP ;スピードクリアー 4527 S00160F 3E A0 54 SMS R0,CPLXSPD ; 4528 S001612 3E A0 55 SMS R0,CPLYSPD ; 4529 S001615 3E A0 6F SMS R0,CPLNAGE ;投げキャンセル 4530 S001618 D0 INC R0 ;[ IBT R0,#01H ] 4531 S001619 3E A0 86 SMS R0,CDOKNGP ; ” 重力カウンターリセット 4532 ; 4533 S00161C A0 31 IBT R0,#031H ;[♪] 4534 S00161E 3E A0 3D SMS R0,CMSOUND3 4535 ; 4536 ;-------------- タテドカン補正用中心Ｘ座標セット ---------------- 4537 S001621 3D A0 00 LMS R0,CWORK0 4538 S001624 3D A5 87 LMS R5,CDOKNCX 4539 S001627 65 SUB R5 4540 S001628 3E 58 ADD #08H 4541 mRTS_X 4541+ S00162A 9B JMP R11 4542 S00162B 90 SBK ;[ SMS R0,CWORK0 ] 4543 ; 4544 ;---------------------------------------------------------------- 4545 ;- 滝床（ぴちゃぴちゃ） - 4546 ;---------------------------------------------------------------- 4547 PICHA_ON_SK 4548 S00162C 24 B4 MOVES R4,R4 4549 S00162E 09 3B' BEQ PICHA_ON_010 ;坂？ ( no:PICHA_ON_010 ) 4550 S001630 01 NOP 4551 ; 4552 PICHA_ON 4553 S001631 3D A0 F5 LMS R0,CPICHTM 4554 S001634 3E 60 SUB #0 4555 S001636 08 33' BNE PICHA_ON_010 ;セットＯＫ？ ( no:PICHA_ON_010 ) 4556 S001638 01 NOP 4557 ; 4558 S001639 A0 08 IBT R0,#08H ;セットタイマーセット 4559 S00163B 3E A0 F5 SMS R0,CPICHTM 4560 ; 4561 S00163E A0 60 IBT R0,#060H ;[♪] 4562 S001640 3E A0 3D SMS R0,CMSOUND3 4563 ; 4564 S001643 F5 0000" IWT R5,#PICHA ;(R5) <-- 効果Ｎｏ． 4565 mJSR M_EXINSR ;効果エリア確保 4565+ S001646 94 LINK #4 4565+ S001647 FF 2A7B' IWT R15, #M_EXINSR 4565+ S00164A 01 NOP 4566 ; 4567 mSTW R9,CEXXPSL,R1 ;Ｘ座標セット 4567+ S00164B F0 10A2 IWT R0,#CEXXPSL 4567+ S00164E 51 ADD R1 4567+ S00164F B9 FROM R9 4567+ S001650 30 STW (R0) 4568 S001651 A0 20 IBT R0,#020H 4569 S001653 15 TO R5 4570 S001654 5A ADD R10 4571 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 4571+ S001655 F0 1142 IWT R0,#CEXYPSL 4571+ S001658 51 ADD R1 4571+ S001659 B5 FROM R5 4571+ S00165A 30 STW (R0) 4572 S00165B A5 05 IBT R5,#05H 4573 mSTW R5,CEXCHPT,R1 ;初期パターンＮｏ．セット 4573+ S00165D F0 13C2 IWT R0,#CEXCHPT 4573+ S001660 51 ADD R1 4573+ S001661 B5 FROM R5 4573+ S001662 30 STW (R0) 4574 S001663 A5 02 IBT R5,#02H 4575 mSTW R5,CEXTIM0,R1 ;初期タイマーセット 4575+ S001665 F0 1782 IWT R0,#CEXTIM0 4575+ S001668 51 ADD R1 4575+ S001669 B5 FROM R5 4575+ S00166A 30 STW (R0) 4576 ; 4577 PICHA_ON_010 4578 S00166B B4 FROM R4 4579 S00166C 4D SWAP 4580 S00166D 09 0B' BEQ PICHA_ON_020 ;坂？ ( no:PICHA_ON_020 ) 4581 S00166F 01 NOP 4582 ; 4583 IF JPN | NES ;**** 日本 or NES 対応 [1995/08/07] ********************** 4584 S001670 F0 FD00 IWT R0,#0FD00H 4585 ELSE ;**** PAL 対応 [1995/08/07] ***************************** 4586 IWT R0,#-0300H*5/4 4587 ENDIF 4588 S001673 0A 16' BPL PICHA_ON_050 4589 S001675 01 NOP 4590 ; 4591 S001676 4F NOT ;[ IWT R0,#0200H ] 4592 S001677 05 12' BRA PICHA_ON_050 ; 4593 S001679 D0 INC R0 ; 4594 ; 4595 PICHA_ON_020 4596 S00167A B6 FROM R6 4597 S00167B C0 HIB 4598 S00167C F5 0082 IWT R5,#UT8200/100H 4599 S00167F 65 SUB R5 4600 S001680 0B 0D' BMI PICHA_ON_060 ;流れない？ ( yes:PICHA_ON_060 ) 4601 S001682 01 NOP 4602 ; 4603 IF JPN | NES ;**** 日本 or NES 対応 [1995/08/07] ********************** 4604 S001683 F0 FF00 IWT R0,#0FF00H 4605 ELSE ;**** PAL 対応 [1995/08/07] ***************************** 4606 IWT R0,#-0100H*5/4 4607 ENDIF 4608 S001686 09 03' BEQ PICHA_ON_050 ;右向き？ ( yes:PICHA_ON_050 ) 4609 S001688 01 NOP 4610 ; 4611 S001689 4F NOT 4612 S00168A D0 INC R0 4613 PICHA_ON_050 4614 S00168B 3E F0 1E3A SM R0,CPL_ADD_XSP ;プレイヤーＸ方向圧力セット 4615 PICHA_ON_060 4616 S00168F 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4617 mRTS 4617+ S001692 9B JMP R11 4617+ S001693 01 NOP 4618 ; 4619 ;---------------------------------------------------------------- 4620 ;- 泥 - 4621 ;---------------------------------------------------------------- 4622 DORO_ON_SK 4623 S001694 24 B4 MOVES R4,R4 4624 ;;;; BEQ DORO_ON_050 ;坂？ ( no:DORO_ON_050 ) 4625 S001696 09 F7' BEQ PICHA_ON_060 ;坂？ ( no:PICHA_ON_060 ) 4626 S001698 01 NOP 4627 ; 4628 DORO_ON 4629 S001699 A0 00" IBT R0,#ON_DORO ;泥歩きセット 4630 S00169B 3E A0 7D SMS R0,CPLBGNO 4631 ; 4632 S00169E 3D A0 60 LMS R0,CPLJUMP 4633 S0016A1 E0 DEC R0 4634 S0016A2 0B 0B' BMI DORO_ON_010 ;着地の瞬間？ ( no:DORO_ON_010 ) 4635 S0016A4 01 NOP 4636 ; 4637 S0016A5 F5 0000" IWT R5,#DORO0 ;(R5) <-- 効果Ｎｏ． 4638 S0016A8 A6 02 IBT R6,#02H ;(R6) <-- 初期タイマー 4639 S0016AA A0 08 IBT R0,#08H ;(R0) <-- セットタイマーセット 4640 S0016AC 05 37' BRA DORO_ON_040 4641 S0016AE 01 NOP 4642 ; 4643 DORO_ON_010 4644 S0016AF 3D A0 66 LMS R0,CPLSTOP 4645 S0016B2 E0 DEC R0 4646 S0016B3 0B 12' BMI DORO_ON_020 ;歩き中？ ( no:DORO_ON_020 ) 4647 S0016B5 01 NOP 4648 ; 4649 ;-------------- 歩き中の泥セット -------------------------------- 4650 S0016B6 3D A0 7C LMS R0,CPLWALK 4651 S0016B9 3D A5 88 LMS R5,CTIMING_CNT 4652 S0016BC 90 SBK ;[ SMS R0,CTIMIN]G_CNT 4653 S0016BD 65 SUB R5 4654 S0016BE 09 59' BEQ DORO_ON_050 ;セットＯＫ？ ( no:DORO_ON_050 ) 4655 S0016C0 55 ADD R5 4656 ; 4657 S0016C1 08 56' BNE DORO_ON_050 ;セットＯＫ？ ( no:DORO_ON_050 ) 4658 S0016C3 01 NOP 4659 ; 4660 S0016C4 05 18' BRA DORO_ON_030 4661 S0016C6 01 NOP 4662 ; 4663 ;-------------- 止まってる時の泥セット -------------------------- 4664 DORO_ON_020 4665 S0016C7 3D A0 5A LMS R0,CPLMVSP 4666 S0016CA E0 DEC R0 4667 S0016CB 0A 03' BPL DORO_ON_022 4668 S0016CD D0 INC R0 4669 ; 4670 S0016CE 4F NOT 4671 S0016CF D0 INC R0 4672 DORO_ON_022 4673 S0016D0 3D A5 88 LMS R5,CTIMING_CNT 4674 S0016D3 55 ADD R5 4675 S0016D4 F5 1800 IWT R5,#1800H 4676 S0016D7 3F 65 CMP R5 4677 S0016D9 0C 3E' BCC DORO_ON_050 ;セットＯＫ？ ( no:DORO_ON_050 ) 4678 S0016DB 90 SBK ;[ SMS R0,CTIMING_CNT ] 4679 ; 4680 S0016DC 65 SUB R5 4681 S0016DD 90 SBK ;[ SMS R0,CTIMING_CNT ] 4682 ; 4683 DORO_ON_030 4684 S0016DE F5 0000" IWT R5,#DORO1 ;(R5) <-- 効果Ｎｏ． 4685 S0016E1 A6 03 IBT R6,#03H ;(R6) <-- 初期タイマー 4686 S0016E3 A0 08 IBT R0,#08H ;(R0) <-- セットタイマーセット 4687 DORO_ON_040 4688 S0016E5 3E A0 F5 SMS R0,CPICHTM ;セットタイマーセット 4689 ; 4690 ;;;; IBT R0,#062H ;[♪] 4691 S0016E8 A0 60 IBT R0,#060H ;[♪] 4692 S0016EA 3E A0 3D SMS R0,CMSOUND3 4693 ; 4694 mJSR M_EXINSR ;効果エリア確保 4694+ S0016ED 94 LINK #4 4694+ S0016EE FF 2A7B' IWT R15, #M_EXINSR 4694+ S0016F1 01 NOP 4695 ; 4696 mSTW R9,CEXXPSL,R1 ;Ｘ座標セット 4696+ S0016F2 F0 10A2 IWT R0,#CEXXPSL 4696+ S0016F5 51 ADD R1 4696+ S0016F6 B9 FROM R9 4696+ S0016F7 30 STW (R0) 4697 S0016F8 A0 10 IBT R0,#010H 4698 S0016FA 15 TO R5 4699 S0016FB 5A ADD R10 4700 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 4700+ S0016FC F0 1142 IWT R0,#CEXYPSL 4700+ S0016FF 51 ADD R1 4700+ S001700 B5 FROM R5 4700+ S001701 30 STW (R0) 4701 S001702 A5 09 IBT R5,#09H 4702 mSTW R5,CEXCHPT,R1 ;初期パターンＮｏ．セット 4702+ S001704 F0 13C2 IWT R0,#CEXCHPT 4702+ S001707 51 ADD R1 4702+ S001708 B5 FROM R5 4702+ S001709 30 STW (R0) 4703 mSTW R6,CEXTIM0,R1 ;初期タイマーセット 4703+ S00170A F0 1782 IWT R0,#CEXTIM0 4703+ S00170D 51 ADD R1 4703+ S00170E B6 FROM R6 4703+ S00170F 30 STW (R0) vvv******* warn :value out of range 4704 S001710 3D A5 62 LMS R5,PLCMKI 4705 mSTW R5,CEXMUKI,R1 ;向きセット 4705+ S001713 F0 13C0 IWT R0,#CEXMUKI 4705+ S001716 51 ADD R1 4705+ S001717 B5 FROM R5 4705+ S001718 30 STW (R0) 4706 ; 4707 DORO_ON_050 4708 S001719 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4709 mRTS 4709+ S00171C 9B JMP R11 4709+ S00171D 01 NOP 4710 ; 4711 ;---------------------------------------------------------------- 4712 ;- 氷ブロック - 4713 ;---------------------------------------------------------------- 4714 ICE_BLK_ON 4715 S00171E A0 00" IBT R0,#ON_ICEB ;氷ブロックの上歩きセット 4716 S001720 3E A0 7D SMS R0,CPLBGNO 4717 ; 4718 ICE_BLK_ON_010 4719 S001723 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4720 mRTS 4720+ S001726 9B JMP R11 4720+ S001727 01 NOP 4721 ; 4722 ;---------------------------------------------------------------- 4723 ;- 雪、草の上 - 4724 ;---------------------------------------------------------------- 4725 YUKI_ON_SK 4726 S001728 24 B4 MOVES R4,R4 4727 S00172A 09 F7' BEQ ICE_BLK_ON_010 ;坂？ ( no:ICE_BLK_ON_010 ) 4728 S00172C 01 NOP 4729 ; 4730 YUKI_ON 4731 S00172D 3D A0 3E LMS R0,CMBG1TYP 4732 S001730 3E 77 AND #07H 4733 S001732 3E 64 SUB #04H 4734 S001734 08 7E' BNE YUKI_ON_050 ;雪コース？ ( no:YUKI_ON_050 ) 4735 S001736 01 NOP 4736 ; 4737 S001737 3D A0 7D LMS R0,CPLBGNO 4738 S00173A 3E 60" SUB #ON_YUKI 4739 S00173C 09 31' BEQ YUKI_ON_010 ;すでに雪の上歩きセット？ ( yes:YUKI_ON_010 ) 4740 S00173E 01 NOP 4741 ; 4742 ;-------------- 雪の上ＢＧチェック ------------------------------ 4743 S00173F 3D A8 00 LMS R8,CWORK0 ;(R8) <-- BG check X pos 4744 S001742 3D A0 01 LMS R0,CWORK1 4745 S001745 A7 10 IBT R7,#010H 4746 S001747 67 SUB R7 4747 mJSR_X BGUNIT_READ_S+1 4747+ S001748 94 LINK #4 4747+ S001749 FF 0CD7' IWT R15, #BGUNIT_READ_S+1 4748 S00174C 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 4749 ; 4750 S00174D B6 FROM R6 4751 S00174E C0 HIB 4752 S00174F A5 2A IBT R5,#HIGH UT2A00 4753 S001751 65 SUB R5 4754 S001752 09 07' BEQ YUKI_ON_000 ;雪の上ユニット？ ( yes:YUKI_ON_000 ) 4755 S001754 55 ADD R5 4756 ; 4757 S001755 A5 6A IBT R5,#HIGH UT6A00 4758 S001757 65 SUB R5 4759 S001758 08 5A' BNE YUKI_ON_050 ;雪の上ユニット？ ( no:YUKI_ON_050 ) 4760 S00175A 01 NOP 4761 ; 4762 YUKI_ON_000 4763 S00175B A0 00" IBT R0,#ON_YUKI ;雪の上歩きセット 4764 S00175D 3E A0 7D SMS R0,CPLBGNO 4765 ; 4766 S001760 3D A0 57 LMS R0,CPLTYPE 4767 S001763 3E 66 SUB #P_HERI 4768 S001765 09 08' BEQ YUKI_ON_010 ;ヘリコプター？ ( yes:YUKI_ON_010 ) 4769 S001767 01 NOP 4770 ; 4771 S001768 3D A0 60 LMS R0,CPLJUMP 4772 S00176B E0 DEC R0 4773 S00176C 0A 0F' BPL YUKI_ON_020 ;着地の瞬間？ ( yes:YUKI_ON_020 ) 4774 S00176E 01 NOP 4775 ; 4776 ;-------------- 歩き中の雪セット -------------------------------- 4777 YUKI_ON_010 4778 S00176F 3D A0 7C LMS R0,CPLWALK 4779 S001772 3D A5 88 LMS R5,CTIMING_CNT 4780 S001775 90 SBK ;[ SMS R0,CTIMING_CNT ] 4781 S001776 65 SUB R5 4782 S001777 09 3B' BEQ YUKI_ON_050 ;セットＯＫ？ ( no:YUKI_ON_050 ) 4783 S001779 55 ADD R5 4784 ; 4785 S00177A 08 38' BNE YUKI_ON_050 ;セットＯＫ？ ( no:YUKI_ON_050 ) 4786 S00177C 01 NOP 4787 ; 4788 YUKI_ON_020 4789 S00177D F0 0098 IWT R0,#098H ;[♪] 4790 S001780 3E A0 3D SMS R0,CMSOUND3 4791 ; 4792 S001783 F5 0000" IWT R5,#SNOW0 ;(R5) <-- 効果Ｎｏ． 4793 mJSR M_EXINSR ;効果エリア確保 4793+ S001786 94 LINK #4 4793+ S001787 FF 2A7B' IWT R15, #M_EXINSR 4793+ S00178A 01 NOP 4794 ; 4795 mSTW R9,CEXXPSL,R1 ;Ｘ座標セット 4795+ S00178B F0 10A2 IWT R0,#CEXXPSL 4795+ S00178E 51 ADD R1 4795+ S00178F B9 FROM R9 4795+ S001790 30 STW (R0) 4796 S001791 A0 18 IBT R0,#018H 4797 S001793 15 TO R5 4798 S001794 5A ADD R10 4799 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 4799+ S001795 F0 1142 IWT R0,#CEXYPSL 4799+ S001798 51 ADD R1 4799+ S001799 B5 FROM R5 4799+ S00179A 30 STW (R0) 4800 S00179B A5 06 IBT R5,#SKSNOW 4801 mSTW R5,CEXWRK0,R1 ;初期カウンターセット 4801+ S00179D F0 1E4C IWT R0,#CEXWRK0 4801+ S0017A0 51 ADD R1 4801+ S0017A1 B5 FROM R5 4801+ S0017A2 30 STW (R0) 4802 S0017A3 A5 03 IBT R5,#03H 4803 mSTW R5,CEXTIM0,R1 ;初期タイマーセット 4803+ S0017A5 F0 1782 IWT R0,#CEXTIM0 4803+ S0017A8 51 ADD R1 4803+ S0017A9 B5 FROM R5 4803+ S0017AA 30 STW (R0) 4804 S0017AB F5 FEC0 IWT R5,#0FEC0H 4805 mSTW R5,CEXYSPD,R1 ;Ｙスピードセット 4805+ S0017AE F0 11E2 IWT R0,#CEXYSPD 4805+ S0017B1 51 ADD R1 4805+ S0017B2 B5 FROM R5 4805+ S0017B3 30 STW (R0) 4806 ; 4807 YUKI_ON_050 4808 S0017B4 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4809 mRTS 4809+ S0017B7 9B JMP R11 4809+ S0017B8 01 NOP 4810 ; 4811 ;---------------------------------------------------------------- 4812 ;- せっけん - 4813 ;---------------------------------------------------------------- 4814 SOAP_ON 4815 S0017B9 A0 00" IBT R0,#ON_SOAP ;せっけんの上歩きセット 4816 S0017BB 3E A0 7D SMS R0,CPLBGNO 4817 ; 4818 S0017BE 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4819 mRTS 4819+ S0017C1 9B JMP R11 4819+ S0017C2 01 NOP 4820 ; 4821 ;---------------------------------------------------------------- 4822 ;- へこみ床 - 4823 ;---------------------------------------------------------------- 4824 HEKOMI_ON 4825 S0017C3 3D A0 DF LMS R0,CONCHNG 4826 S0017C6 3E 60 SUB #0 4827 S0017C8 08 2F' BNE HEKOMI_ON_010 ;ＢＧ特殊エリア空きあり？ ( no:HEKOMI_ON_010 ) 4828 S0017CA 01 NOP 4829 ; 4830 S0017CB F5 0000" IWT R5,#DWNBG ;(R5) <-- 敵Ｎｏ． 4831 mJSR M_ENINSR ;敵エリア確保 4831+ S0017CE 94 LINK #4 4831+ S0017CF FF 28C7' IWT R15, #M_ENINSR 4831+ S0017D2 01 NOP 4832 ; 4833 S0017D3 0B 24' BMI HEKOMI_ON_010 ;敵エリア無し？ ( yes:HEKOMI_ON_010 ) 4834 S0017D5 01 NOP 4835 ; 4836 S0017D6 A5 02 IBT R5,#CEINIT ;敵イニシャルモードセット 4837 mSTW R5,CENMODE,R1 4837+ S0017D8 F0 0F00 IWT R0,#CENMODE 4837+ S0017DB 51 ADD R1 4837+ S0017DC B5 FROM R5 4837+ S0017DD 30 STW (R0) 4838 S0017DE B9 FROM R9 4839 S0017DF 15 TO R5 4840 S0017E0 3E 68 SUB #8 4841 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 4841+ S0017E2 F0 10E2 IWT R0,#CENXPSL 4841+ S0017E5 51 ADD R1 4841+ S0017E6 B5 FROM R5 4841+ S0017E7 30 STW (R0) 4842 S0017E8 3D A0 01 LMS R0,CWORK1 4843 S0017EB 15 TO R5 4844 S0017EC 3F 7F BIC #0FH ;[ AND #0FFF0H ] 4845 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 4845+ S0017EE F0 1182 IWT R0,#CENYPSL 4845+ S0017F1 51 ADD R1 4845+ S0017F2 B5 FROM R5 4845+ S0017F3 30 STW (R0) 4846 ; 4847 S0017F4 A0 01 IBT R0,#01H ;ＢＧ特殊エリア確保 4848 S0017F6 3E A0 DF SMS R0,CONCHNG 4849 ; 4850 HEKOMI_ON_010 4851 S0017F9 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4852 mRTS 4852+ S0017FC 9B JMP R11 4852+ S0017FD 01 NOP 4853 ; 4854 ;---------------------------------------------------------------- 4855 ;- 階段 - 4856 ;---------------------------------------------------------------- 4857 KAIDAN_U_ON 4858 S0017FE F1 F800 IWT R1,#0F800H ;(R1) <-- 右上階段歩きフラグ 4859 S001801 05 04' BRA KAIDAN_ON 4860 S001803 01 NOP 4861 ; 4862 KAIDAN_D_ON 4863 S001804 F1 0800 IWT R1,#0800H ;(R1) <-- 右下階段歩きフラグ 4864 ; 4865 KAIDAN_ON 4866 ; 4867 ;-------------- 階段ジャンプチェック ---------------------------- 4868 S001807 3D A0 6D LMS R0,CPLKAID 4869 S00180A 3D A5 A8 LMS R5,CBERFLG 4870 S00180D C5 OR R5 4871 S00180E 3D A5 6F LMS R5,CPLNAGE 4872 S001811 08 4D' BNE KAIDAN_ON_050 ;今、階段歩き中ｏｒ舌ショット中ｏｒタマゴ投げ中？ ( yes:KAIDAN_ON_050 ) 4873 S001813 01 NOP 4874 ; 4875 S001814 3D F0 0071 LM R0,CMKEYC1 ;(R0) <-- コントローラー情報（連続） 4876 S001818 3E 73 AND #00000011B 4877 S00181A 09 44' BEQ KAIDAN_ON_050 ;階段歩く？ ( no:KAIDAN_ON_050 ) 4878 S00181C 01 NOP 4879 ; 4880 S00181D A8 10 IBT R8,#0010H 4881 S00181F 3E 72 AND #00000010B 4882 S001821 09 03' BEQ KAIDAN_ON_010 ;左へ歩く？ ( yes:KAIDAN_ON_010 ) 4883 S001823 01 NOP 4884 ; 4885 S001824 A8 F0 IBT R8,#0F0H ;[ IWT R8,#0FFF0H ] 4886 KAIDAN_ON_010 4887 S001826 3E A0 62 SMS R0,CPLCMKI ;プレイヤー向きセット 4888 ; 4889 S001829 28 15 MOVE R5,R8 4890 S00182B 21 B1 MOVES R1,R1 4891 S00182D 0A 03' BPL KAIDAN_ON_020 4892 S00182F 25 WITH R5 4893 ; 4894 S001830 4F NOT 4895 S001831 D5 INC R5 4896 KAIDAN_ON_020 4897 S001832 2A 10 MOVE R0,R10 4898 S001834 25 B5 MOVES R5,R5 4899 S001836 0A 03' BPL KAIDAN_ON_030 4900 S001838 01 NOP 4901 ; 4902 S001839 3F C8 XOR #08H 4903 KAIDAN_ON_030 4904 S00183B 3E 78 AND #08H 4905 S00183D 09 16' BEQ KAIDAN_ON_040 ;進行方向階段チェックする段？ ( no:KAIDAN_ON_040 ) 4906 S00183F 01 NOP 4907 ; 4908 S001840 27 1E MOVE R14,R7 ;(R7) save 4909 ; 4910 S001842 3D A0 00 LMS R0,CWORK0 4911 S001845 18 TO R8 ;(R8) <-- BG check X pos 4912 S001846 58 ADD R8 4913 S001847 3D A0 01 LMS R0,CWORK1 4914 S00184A 55 ADD R5 ;(R0) <-- BG check Y pos 4915 mJSR_X BGUNIT_READ_S+1 4915+ S00184B 94 LINK #4 4915+ S00184C FF 0CD7' IWT R15, #BGUNIT_READ_S+1 4916 S00184F 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 4917 ; 4918 S001850 B7 FROM R7 4919 S001851 6E SUB R14 4920 S001852 08 16' BNE KAIDAN_ON_060 ;進行方向に階段あり？ ( no:KAIDAN_ON_060 ) 4921 S001854 01 NOP 4922 ; 4923 KAIDAN_ON_040 4924 S001855 3E A1 6D SMS R1,CPLKAID ;階段歩きフラグセット 4925 ; 4926 S001858 A0 80 IBT R0,#0080H ;スピードクリアー 4927 S00185A 3E A0 45 SMS R0,CPLXSDR ; ” 4928 S00185D 3E A0 47 SMS R0,CPLYSDR ; ” 4929 ; 4930 001860 KAIDAN_ON_050 EQU $ 4931 S001860 60 SUB R0 4932 S001861 3E A0 5A SMS R0,CPLMVSP ;スピードクリアー 4933 S001864 3E A0 54 SMS R0,CPLXSPD ; ” 4934 S001867 3E A0 55 SMS R0,CPLYSPD ; ” 4935 ; 4936 KAIDAN_ON_060 4937 S00186A 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4938 mRTS 4938+ S00186D 9B JMP R11 4938+ S00186E 01 NOP 4939 ; 4940 ;---------------------------------------------------------------- 4941 ;- 杭 - 4942 ;---------------------------------------------------------------- 4943 KUI_ON_OK 4944 S00186F 3D A0 6A LMS R0,CPLDOSN 4945 S001872 E0 DEC R0 4946 S001873 0B 13' BMI KUI_ON_OK_010 ;”ドスーン！！”？ ( no:KUI_ON_OK_010 ) 4947 S001875 01 NOP 4948 ; 4949 S001876 3D A0 60 LMS R0,CPLJUMP 4950 S001879 E0 DEC R0 4951 S00187A 0B 0C' BMI KUI_ON_OK_010 ;着地の瞬間？ ( no:KUI_ON_OK_010 ) 4952 S00187C B6 FROM R6 4953 ; 4954 S00187D 3E 51 ADD #1 4955 S00187F 3E 72 AND #02H 4956 S001881 08 05' BNE KUI_ON_OK_010 ;頭ユニット？ ( no:KUI_ON_OK_010 ) 4957 S001883 01 NOP 4958 ; 4959 mSFCALL KUI_BG_W ;杭ＢＧ書き換え 4959+ S001884 A0 06 IBT R0,#KUI_BG_W 4959+ S001886 00 STOP 4959+ S001887 01 NOP 4960 ; 4961 KUI_ON_OK_010 4962 S001888 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4963 mRTS 4963+ S00188B 9B JMP R11 4963+ S00188C 01 NOP 4964 ; 4965 ;---------------------------------------------------------------- 4966 ;- 食べれるＢＧ - 4967 ;---------------------------------------------------------------- 4968 EATBLK_ON_OK 4969 S00188D 3D A0 6A LMS R0,CPLDOSN 4970 S001890 E0 DEC R0 4971 S001891 0B 0F' BMI EATBLK_ON_OK_10 ;”ドスーン！！”？ ( no:EATBLK_ON_OK_10 ) 4972 S001893 60 SUB R0 ;[ INT R0,#00 ] 4973 ; 4974 S001894 3E A0 0E SMS R0,CWORKE ;(CWKE) <-- 壊れたＢＧぶっ飛びＸスピード 4975 S001897 F0 0080 IWT R0,#0080H 4976 S00189A 3E A0 0F SMS R0,CWORKF ;(CWKF) <-- 壊れたＢＧぶっ飛びＹスピード 4977 ; 4978 mJSR BRBG0_SET ;壊れたＢＧ効果セット 4978+ S00189D 94 LINK #4 4978+ S00189E FF 1938' IWT R15, #BRBG0_SET 4978+ S0018A1 01 NOP 4979 ; 4980 EATBLK_ON_OK_10 4981 S0018A2 3D AB 31 LMS R11,RTS1 ;[ return address load ] 4982 mRTS 4982+ S0018A5 9B JMP R11 4982+ S0018A6 01 NOP 4983 ; 4984 ;---------------------------------------------------------------- 4985 ;- 乗ったら落ちる床 - 4986 ;---------------------------------------------------------------- 4987 FALL_BLK_ON 4988 S0018A7 3D A0 E0 LMS R0,CONFALL 4989 S0018AA 3E 60 SUB #0 4990 S0018AC 08 31' BNE FALL_BLK_ON_010 ;ＢＧ特殊エリア空きあり？ ( no:FALL_BLK_ON_010 ) 4991 S0018AE 01 NOP 4992 ; 4993 S0018AF F5 0000" IWT R5,#ON_DW ;(R5) <-- 敵Ｎｏ． 4994 mJSR M_ENINSR ;敵エリア確保 4994+ S0018B2 94 LINK #4 4994+ S0018B3 FF 28C7' IWT R15, #M_ENINSR 4994+ S0018B6 01 NOP 4995 ; 4996 S0018B7 0B 26' BMI FALL_BLK_ON_010 ;敵エリア無し？ ( yes:FALL_BLK_ON_010 ) 4997 S0018B9 01 NOP 4998 ; 4999 S0018BA A5 02 IBT R5,#CEINIT ;敵イニシャルモードセット 5000 mSTW R5,CENMODE,R1 5000+ S0018BC F0 0F00 IWT R0,#CENMODE 5000+ S0018BF 51 ADD R1 5000+ S0018C0 B5 FROM R5 5000+ S0018C1 30 STW (R0) 5001 S0018C2 3D A0 00 LMS R0,CWORK0 5002 S0018C5 15 TO R5 5003 S0018C6 3F 7F BIC #0FH ;[ AND #0FFF0H ] 5004 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 5004+ S0018C8 F0 10E2 IWT R0,#CENXPSL 5004+ S0018CB 51 ADD R1 5004+ S0018CC B5 FROM R5 5004+ S0018CD 30 STW (R0) 5005 S0018CE 3D A0 01 LMS R0,CWORK1 5006 S0018D1 15 TO R5 5007 S0018D2 3F 7F BIC #0FH ;[ AND #0FFF0H ] 5008 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 5008+ S0018D4 F0 1182 IWT R0,#CENYPSL 5008+ S0018D7 51 ADD R1 5008+ S0018D8 B5 FROM R5 5008+ S0018D9 30 STW (R0) 5009 ; 5010 S0018DA A0 01 IBT R0,#01H ;乗ったら落ちる床セットフラグ”ＯＮ” 5011 S0018DC 3E A0 E0 SMS R0,CONFALL 5012 ; 5013 FALL_BLK_ON_010 5014 S0018DF 3D AB 31 LMS R11,RTS1 ;[ return address load ] 5015 mRTS 5015+ S0018E2 9B JMP R11 5015+ S0018E3 01 NOP 5016 ; 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 ;;;;;- (R13) - 5037 ;;;;;- use RAM : - 5038 ;;;;;- (RTS0) - 5039 ;;;;;------------------------------------------------------------------------ 5040 ;;;;DASH_SMOK_CK 5041 ;;;; LMS R0,CPLDASH 5042 ;;;; DEC R0 5043 ;;;; BPL DASH_SMOK_CK_30 ;ダッシュ溜め中？ ( yes:DASH_SMOK_CK_30 ) 5044 ;;;; NOP 5045 ;;;;; 5046 ;;;; LMS R0,CPLMVSP 5047 ;;;; DEC R0 ;[ ０の２の補数は０！！ ] 5048 ;;;; BPL DASH_SMOK_CK_10 5049 ;;;; INC R0 5050 ;;;;; 5051 ;;;; NOT 5052 ;;;; INC R0 5053 ;;;;DASH_SMOK_CK_10 5054 ;;;; HIB 5055 ;;;;; 5056 ;;;; MOVE R13,R14 ;(R14) save 5057 ;;;;; 5058 ;;;; IWT R14,#DSMK1_STCK 5059 ;;;; TO R14 5060 ;;;; ADD R14 5061 ;;;; GETBS ;(R0) <-- ダッシュ土けむりセットタイミングデータ 5062 ;;;;; 5063 ;;;; MOVE R14,R13 ;(R14) load 5064 ;;;;; 5065 ;;;; DEC R0 5066 ;;;; BMI DASH_SMOK_CK_30 ;ダッシュ土けむりセット？ ( no:DASH_SMOK_CK_30 ) 5067 ;;;; INC R0 5068 ;;;;; 5069 ;;;; LM R5,CFRCNT2 5070 ;;;; AND R5 5071 ;;;; BNE DASH_SMOK_CK_30 ;ダッシュ土けむりセット？ ( no:DASH_SMOK_CK_30 ) 5072 ;;;; NOP 5073 ;;;;; 5074 ;;;; SMS R11,RTS0 ;[ return address save ] 5075 ;;;;; 5076 ;;;; IWT R5,#DSMK1 ;(R5) <-- 効果Ｎｏ． 5077 ;;;; mJSR M_EXINSR ;効果エリア確保 5078 ;;;;; 5079 ;;;; IBT R5,#0F8H ;[ IWT R5,#0FFF8H ] 5080 ;;;; IBT R12,#080H ;[ IWT R12,#0FF80H ] 5081 ;;;; LMS R0,CPLCMKI 5082 ;;;; DEC R0 ;[ (N) <-- 0:02H 1:00H ] 5083 ;;;; BMI DASH_SMOK_CK_20 5084 ;;;; INC R0 5085 ;;;;; 5086 ;;;; IBT R5,#010H 5087 ;;;; WITH R12 ;[ IWT R12,#0080H ] 5088 ;;;; LOB ; 5089 ;;;;DASH_SMOK_CK_20 5090 ;;;; TO R13 5091 ;;;; XOR #02H 5092 ;;;; mSTW R13,CEXMUKI,R1 ;向きセット 5093 ;;;; WITH R5 5094 ;;;; ADD R9 ;[ ADD PLXPSL ] 5095 ;;;; mSTW R5,CEXXPSL,R1 ;Ｘ座標セット 5096 ;;;; mSTW R12,CEXXSPD,R1 ;Ｘスピードセット 5097 ;;;; IBT R0,#018H 5098 ;;;; TO R5 5099 ;;;; ADD R10 5100 ;;;; mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 5101 ;;;; IBT R5,#080H ;[ IWT R5,#0FF80H ] 5102 ;;;; mSTW R5,CEXYSPD,R1 5103 ;;;; IBT R5,#04H 5104 ;;;; mSTW R5,CEXWRK0,R1 ;初期カウンターセット 5105 ;;;; mSTW R5,CEXTIM0,R1 ;初期タイマーセット 5106 ;;;;; 5107 ;;;; LMS R11,RTS0 5108 ;;;;; 5109 ;;;;DASH_SMOK_CK_30 5110 ;;;; mRTS 5111 ; 5112 ;------------------------------------------------------------------------ 5113 ;- ”ドスーン！！”着地チェック - 5114 ;- in : - 5115 ;- (R2) <-- ＢＧ当たりフラグ - 5116 ;- (R4) <-- 移動角度 - 5117 ;- (R9) <-- プレイヤーＸ座標 - 5118 ;- (R10) <-- ” Ｙ ” - 5119 ;- (R11) <-- 復帰アドレス - 5120 ;- (R14) <-- ＢＧチェックポイント - 5121 ;- データアドレス - 5122 ;- out : - 5123 ;- (R6) <-- BG unit no. - 5124 ;- (R7) <-- BG unit no. type - 5125 ;- (CWK0) <- ＢＧチェックＸ座標 - 5126 ;- (CWK1) <- ” Ｙ ” - 5127 ;- break : - 5128 ;- (R1) - 5129 ;- (R5) - 5130 ;- use RAM : - 5131 ;- (RTS0) - 5132 ;------------------------------------------------------------------------ 5133 DOSN_JUST_CK 5134 S0018E4 3D A0 6A LMS R0,CPLDOSN 5135 S0018E7 E0 DEC R0 5136 S0018E8 0B 4C' BMI DOSN_JUST_CK_10 ;”ドスーン！！”？ ( no:DOSN_JUST_CK_10 ) 5137 S0018EA 01 NOP 5138 ; 5139 ;-------------- サウンドセット座標セット ---------------- 5140 S0018EB A0 23 IBT R0,#023H ;[♪] 5141 S0018ED 3E A0 3D SMS R0,CMSOUND3 5142 ; 5143 S0018F0 A0 40 IBT R0,#040H 5144 S0018F2 3E A0 F9 SMS R0,CSOUND_ON ;サウンドセットフラグセット 5145 S0018F5 3D A0 46 LMS R0,CPLXPSL 5146 S0018F8 3E F0 0EB2 SM R0,CSOUND_X ;サウンドセットＸ座標セット 5147 S0018FC 3D A0 48 LMS R0,CPLYPSL 5148 S0018FF 3E F0 0EB4 SM R0,CSOUND_Y ;サウンドセットＹ座標セット 5149 ; 5150 S001903 A0 20 IBT R0,#020H ;地震セット 5151 S001905 3E A0 E3 SMS R0,CTILTCT 5152 ; 5153 S001908 3E AB 30 SMS R11,RTS0 ;[ return address save ] 5154 ; 5155 S00190B F5 0000" IWT R5,#DOSN0 ;(R5) <-- 敵Ｎｏ． 5156 mJSR M_EXINSR ;効果エリア確保 5156+ S00190E 94 LINK #4 5156+ S00190F FF 2A7B' IWT R15, #M_EXINSR 5156+ S001912 01 NOP 5157 ; 5158 mSTW R9,CEXXPSL,R1 ;Ｘ座標セット[ (R9):PLXPSL ] 5158+ S001913 F0 10A2 IWT R0,#CEXXPSL 5158+ S001916 51 ADD R1 5158+ S001917 B9 FROM R9 5158+ S001918 30 STW (R0) 5159 S001919 A0 10 IBT R0,#010H 5160 S00191B 15 TO R5 5161 S00191C 5A ADD R10 ;[ ADD PLYPSL ] 5162 mSTW R5,CEXYPSL,R1 5162+ S00191D F0 1142 IWT R0,#CEXYPSL 5162+ S001920 51 ADD R1 5162+ S001921 B5 FROM R5 5162+ S001922 30 STW (R0) 5163 S001923 A5 0B IBT R5,#0BH ;初期カウンターセット 5164 mSTW R5,CEXWRK0,R1 5164+ S001925 F0 1E4C IWT R0,#CEXWRK0 5164+ S001928 51 ADD R1 5164+ S001929 B5 FROM R5 5164+ S00192A 30 STW (R0) 5165 S00192B A5 02 IBT R5,#02H ;初期タイマーセット 5166 mSTW R5,CEXTIM0,R1 5166+ S00192D F0 1782 IWT R0,#CEXTIM0 5166+ S001930 51 ADD R1 5166+ S001931 B5 FROM R5 5166+ S001932 30 STW (R0) 5167 ; 5168 S001933 3D AB 30 LMS R11,RTS0 5169 ; 5170 DOSN_JUST_CK_10 5171 mRTS 5171+ S001936 9B JMP R11 5171+ S001937 01 NOP 5172 ; 5173 ;------------------------------------------------------------------------ 5174 ;- 壊れたＢＧ効果セット - 5175 ;- in : - 5176 ;- (CWK0) <- セットＸ座標 - 5177 ;- (CWK1) <- ” Ｙ ” - 5178 ;- (CWKE) <- 壊れたＢＧぶっ飛びＸスピード - 5179 ;- (CWKE) <- ” Ｙ ” - 5180 ;- out : - 5181 ;- - 5182 ;- break : - 5183 ;- (R1) - 5184 ;- (R5) - 5185 ;- (R12) - 5186 ;- (R13) - 5187 ;- use RAM : - 5188 ;- (RTS0) - 5189 ;------------------------------------------------------------------------ 5190 BRBG0_SET 5191 S001938 3E AB 30 SMS R11,RTS0 ;[ return address save ] 5192 ; 5193 S00193B A0 0A IBT R0,#0AH ;[♪] 5194 S00193D 3E A0 3D SMS R0,CMSOUND3 5195 ; 5196 S001940 F5 0000" IWT R5,#BRBG0 ;(R5) <-- 効果Ｎｏ． 5197 mJSR M_EXINSR ;効果エリア確保 5197+ S001943 94 LINK #4 5197+ S001944 FF 2A7B' IWT R15, #M_EXINSR 5197+ S001947 01 NOP 5198 ; 5199 S001948 3D A0 00 LMS R0,CWORK0 5200 S00194B 15 TO R5 5201 S00194C 3F 7F BIC #0FH ;[ AND #0FFF0H ] 5202 mSTW R5,CEXXPSL,R1 ;Ｘ座標セット 5202+ S00194E F0 10A2 IWT R0,#CEXXPSL 5202+ S001951 51 ADD R1 5202+ S001952 B5 FROM R5 5202+ S001953 30 STW (R0) 5203 S001954 3D A0 01 LMS R0,CWORK1 5204 S001957 15 TO R5 5205 S001958 3F 7F BIC #0FH ;[ AND #0FFF0H ] 5206 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 5206+ S00195A F0 1142 IWT R0,#CEXYPSL 5206+ S00195D 51 ADD R1 5206+ S00195E B5 FROM R5 5206+ S00195F 30 STW (R0) 5207 S001960 3D A5 0E LMS R5,CWORKE 5208 mSTW R5,CEXXSPD,R1 ;Ｘスピードセット 5208+ S001963 F0 11E0 IWT R0,#CEXXSPD 5208+ S001966 51 ADD R1 5208+ S001967 B5 FROM R5 5208+ S001968 30 STW (R0) 5209 S001969 3D A5 0F LMS R5,CWORKF 5210 mSTW R5,CEXYSPD,R1 ;Ｙスピードセット 5210+ S00196C F0 11E2 IWT R0,#CEXYSPD 5210+ S00196F 51 ADD R1 5210+ S001970 B5 FROM R5 5210+ S001971 30 STW (R0) 5211 S001972 A5 0A IBT R5,#0AH 5212 mSTW R5,CEXCHPT,R1 ;初期パターンＮｏ．セット 5212+ S001974 F0 13C2 IWT R0,#CEXCHPT 5212+ S001977 51 ADD R1 5212+ S001978 B5 FROM R5 5212+ S001979 30 STW (R0) 5213 S00197A A5 02 IBT R5,#02H 5214 mSTW R5,CEXTIM0,R1 ;初期タイマーセット 5214+ S00197C F0 1782 IWT R0,#CEXTIM0 5214+ S00197F 51 ADD R1 5214+ S001980 B5 FROM R5 5214+ S001981 30 STW (R0) 5215 S001982 A5 08 IBT R5,#08H 5216 mSTW R5,CEXGPOW,R1 ;重力セット 5216+ S001984 F0 1502 IWT R0,#CEXGPOW 5216+ S001987 51 ADD R1 5216+ S001988 B5 FROM R5 5216+ S001989 30 STW (R0) 5217 S00198A F5 0400 IWT R5,#0400H 5218 mSTW R5,CEXGMAX,R1 ;最大重力セット 5218+ S00198D F0 15A2 IWT R0,#CEXGMAX 5218+ S001990 51 ADD R1 5218+ S001991 B5 FROM R5 5218+ S001992 30 STW (R0) 5219 ; 5220 mSFCALL EATBLK_BG_W ;食べれるＢＧ書き換え 5220+ S001993 A0 04 IBT R0,#EATBLK_BG_W 5220+ S001995 00 STOP 5220+ S001996 01 NOP 5221 ; 5222 S001997 3D AB 30 LMS R11,RTS0 5223 mRTS 5223+ S00199A 9B JMP R11 5223+ S00199B 01 NOP 5224 ; 5225 ;************************************************************************ 5226 ;* * 5227 ;* コントローラー入力 * 5228 ;* * 5229 ;************************************************************************ 5230 ; 5231 PL_KEY 5232 ; 5233 ;------------------------------------------------------------------------ 5234 ;- 舌ショットチェック - 5235 ;------------------------------------------------------------------------ 5236 S00199C 3E AB 32 SMS R11,RTS2 ;[ return address save ] 5237 ; 5238 mJSR BERO_CHECK 5238+ S00199F 94 LINK #4 5238+ S0019A0 FF 1CD3' IWT R15, #BERO_CHECK 5238+ S0019A3 01 NOP 5239 ; 5240 S0019A4 3D AB 32 LMS R11,RTS2 ;[ retrn address load ] 5241 ; 5242 ;------------------------------------------------------------------------ 5243 ;- 移動キーチェック - 5244 ;------------------------------------------------------------------------ 5245 S0019A7 3D F1 0071 LM R1,CMKEYC1 ;(R1) <-- コントローラー情報（連続） 5246 S0019AB 3D F2 0073 LM R2,CMKEYC2 ;(R2) <-- ” （トリガー） 5247 ; 5248 S0019AF 3D A0 6D LMS R0,CPLKAID 5249 S0019B2 3E 60 SUB #0 5250 S0019B4 09 05' BEQ PL_KEY_0000 ;階段歩き中？ ( no:PL_KEY_0000 ) 5251 S0019B6 01 NOP 5252 ; 5253 mDJMP PL_KEY_1100 5253+ S0019B7 FF 1A3F' IWT R15, #PL_KEY_1100 5253+ S0019BA 01 NOP 5254 ; 5255 PL_KEY_0000 5256 S0019BB 3D A0 60 LMS R0,CPLJUMP 5257 S0019BE E0 DEC R0 5258 S0019BF 0B 4E' BMI PL_KEY_1000 ;ジャンプ中？ ( no:PL_KEY_1000 ) 5259 S0019C1 01 NOP 5260 ; 5261 ;------------------------------------------------------------------------ 5262 ;- ジャンプ中のキーチェック - 5263 ;------------------------------------------------------------------------ 5264 ; 5265 ;---------------------------------------------------------------- 5266 ;- ”ドスーン！！”チェック - 5267 ;---------------------------------------------------------------- 5268 S0019C2 3D A0 61 LMS R0,CPLSITD 5269 S0019C5 3D A7 A8 LMS R7,CBERFLG 5270 S0019C8 C7 OR R7 5271 S0019C9 3D A7 6F LMS R7,CPLNAGE ;(R7) <-- 0 ”ドスーン！！”フラグ”セット用データ 5272 S0019CC C7 OR R7 5273 S0019CD 08 39' BNE PL_KEY_0010 ;タマゴ投げ か ”ドスーン！！”中？ ( yes:PL_KEY_0010 ) 5274 S0019CF 60 SUB R0 5275 ; 5276 S0019D0 B1 FROM R1 5277 S0019D1 3E 73 AND #00000011B 5278 S0019D3 08 33' BNE PL_KEY_0010 ;左右キー入力？ ( yes:PL_KEY_0010 ) 5279 S0019D5 60 SUB R0 ;[ ”ドスーン！！”ウェイトカウンタークリアー ] 5280 ; 5281 S0019D6 B1 FROM R1 5282 S0019D7 3E 74 AND #00000100B 5283 S0019D9 09 2D' BEQ PL_KEY_0010 ;下キー入力？ ( no:PL_KEY_0010 ) 5284 S0019DB D7 INC R7 ;(R7) <-- ”ドスーン！！”フラグ”セット用データ 5285 ; 5286 S0019DC 3D A0 6B LMS R0,CPLDSNC 5287 S0019DF D0 INC R0 5288 S0019E0 09 29' BEQ PL_KEY_0020 ;”ドスーン！！”禁止？ ( yes:PL_KEY_0020 ) 5289 S0019E2 18 TO R8 ;[ * not break (R0) ] 5290 ; 5291 S0019E3 3E 68 SUB #08H 5292 S0019E5 0C 21' BCC PL_KEY_0010 ;”ドスーン！！”ウェイトカウンターＯＫ？ ( no:PL_KEY_0010 ) 5293 S0019E7 01 NOP 5294 ; 5295 S0019E8 A0 73 IBT R0,#073H 5296 S0019EA 3E A0 3D SMS R0,CMSOUND3 ;[♪] 5297 ; 5298 S0019ED 3E A7 6A SMS R7,CPLDOSN ;”ドスーン！！”フラグ”ＯＮ” 5299 S0019F0 60 SUB R0 ;[ IBT R0,#0 ] 5300 S0019F1 3E A0 55 SMS R0,CPLYSPD ;Ｙスピードクリアー 5301 S0019F4 A0 03 IBT R0,#03H 5302 S0019F6 3E A0 EF SMS R0,CPDSNTM ;初期パターン切り替えタイマーセット 5303 ; 5304 ;-------------- 舌ショットキャンセル ---------------------------- 5305 S0019F9 3E AB 32 SMS R11,RTS2 ;[ return address save ] 5306 ; 5307 mJSR BERO_CANCEL 5307+ S0019FC 94 LINK #4 5307+ S0019FD FF 2512' IWT R15, #BERO_CANCEL 5307+ S001A00 01 NOP 5308 ; 5309 S001A01 3D AB 32 LMS R11,RTS2 ;[ retrn address load ] 5310 mDJMP PL_KEY_1500 5310+ S001A04 FF 1ABC' IWT R15, #PL_KEY_1500 5310+ S001A07 01 NOP 5311 ; 5312 PL_KEY_0010 5313 S001A08 3E A0 6B SMS R0,CPLDSNC ;”ドスーン！！”ウェイトカウンタークリアー 5314 PL_KEY_0020 5315 mDJMP PL_KEY_1500 5315+ S001A0B FF 1ABC' IWT R15, #PL_KEY_1500 5315+ S001A0E 01 NOP 5316 ; 5317 ;------------------------------------------------------------------------ 5318 ;- 着地中のキーチェック - 5319 ;------------------------------------------------------------------------ 5320 PL_KEY_1000 5321 ; 5322 ;---------------------------------------------------------------- 5323 ;- しゃがみチェック - 5324 ;---------------------------------------------------------------- 5325 ;;;; LMS R0,CPLDASH 5326 S001A0F 3D A0 6F LMS R0,CPLNAGE 5327 S001A12 9E LOB ;[ * SBK ] (Z) <-- 投げ中？ 5328 ; 5329 S001A13 A8 FF IBT R8,#-1 ;(R8) <-- しゃがみフラグ減算データ 5330 S001A15 3D A7 61 LMS R7,CPLSITD ;[ * SBK ] 5331 ; 5332 S001A18 08 0B' BNE PL_KEY_1010 ;(Z):タマゴ投げ か 溜めダッシュ中？ ( yes:PL_KEY_1010 ) 5333 S001A1A 60 SUB R0 ;(R0) <-- ＭＡＸチェックデータ（０） 5334 ; 5335 S001A1B B1 FROM R1 5336 S001A1C 3E 74 AND #00000100B ;(R0) <-- ＭＡＸチェックデータ（０） 5337 S001A1E 09 05' BEQ PL_KEY_1010 ;しゃがみ？ ( no:PL_KEY_1010 ) 5338 S001A20 01 NOP 5339 ; 5340 S001A21 A8 01 IBT R8,#1 ;(R8) <-- しゃがみフラグ加算データ 5341 S001A23 A0 05 IBT R0,#5 ;(R0) <-- ＭＡＸチェックデータ 5342 PL_KEY_1010 5343 S001A25 67 SUB R7 5344 S001A26 09 04' BEQ PL_KEY_1020 ;しゃがみフラグＭＡＸ？ ( yes:PL_KEY_1020 ) 5345 S001A28 57 ADD R7 5346 ; 5347 S001A29 B7 FROM R7 5348 S001A2A 58 ADD R8 5349 S001A2B 90 SBK ;[ SMS R0,CPLSITD ] 5350 PL_KEY_1020 5351 S001A2C 09 11' BEQ PL_KEY_1100 ;しゃがみ中？ ( no:PL_KEY_1100 ) 5352 S001A2E 60 SUB R0 ;[ IBT R0,#0 ] 5353 ; 5354 S001A2F E0 DEC R0 ;[ IWT R0,#0FFFFH ] 5355 S001A30 3E A0 6B SMS R0,CPLDSNC ;”ドスーン！！”禁止！！ 5356 ; 5357 S001A33 3D F0 0085 LM R0,CP_KEY_JUMP+1 ;(R0) <-- ジャンプボタン情報 5358 S001A37 72 AND R2 5359 S001A38 08 0D' BNE PL_KEY_1102 ;ジャンプ？ ( yes:PL_KEY_1102 ) 5360 S001A3A 01 NOP 5361 ; 5362 mDJMP PL_KEY_1800 5362+ S001A3B FF 1C46' IWT R15, #PL_KEY_1800 5362+ S001A3E 01 NOP 5363 ; 5364 ;---------------------------------------------------------------- 5365 ;- ジャンプチェック - 5366 ;---------------------------------------------------------------- 5367 PL_KEY_1100 5368 S001A3F 3D F0 0085 LM R0,CP_KEY_JUMP+1 ;(R0) <-- ジャンプボタン情報 5369 S001A43 72 AND R2 5370 S001A44 09 64' BEQ PL_KEY_1200 ;ジャンプ？ ( no:PL_KEY_1200 ) 5371 S001A46 01 NOP 5372 ; 5373 PL_KEY_1102 5374 S001A47 A0 49 IBT R0,#049H ;[♪] 5375 S001A49 3E A0 3D SMS R0,CMSOUND3 5376 ; 5377 ;-------------- サウンドセット座標セット ---------------- 5378 S001A4C A0 40 IBT R0,#040H 5379 S001A4E 3E A0 F9 SMS R0,CSOUND_ON ;サウンドセットフラグセット 5380 S001A51 3D A0 46 LMS R0,CPLXPSL 5381 S001A54 3E F0 0EB2 SM R0,CSOUND_X ;サウンドセットＸ座標セット 5382 S001A58 3D A0 48 LMS R0,CPLYPSL 5383 S001A5B 3E F0 0EB4 SM R0,CSOUND_Y ;サウンドセットＹ座標セット 5384 ; 5385 S001A5F 3D A0 7E LMS R0,CPLBGCR 5386 S001A62 A4 18 IBT R4,#000011000B 5387 S001A64 74 AND R4 5388 S001A65 08 04' BNE PL_KEY_1110 ;頭ＢＧ当たり？ ( yes:PL_KEY_1110 ) 5389 S001A67 60 SUB R0 ;[ IBT R0,#0 ] 5390 ; 5391 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 5392 S001A68 F0 FB60 IWT R0,#0FB60H 5393 ELSE ;**** PAL 対応 [1995/7/19] ***************************** 5394 IWT R0,#0FAD0H 5395 ENDIF 5396 5397 PL_KEY_1110 5398 S001A6B 3E A0 55 SMS R0,CPLYSPD ;Ｙスピードセット 5399 S001A6E 3D F6 1E3A LM R6,CPL_ADD_XSP 5400 S001A72 F0 0170 IWT R0,#0170H 5401 S001A75 3D 9F LMULT 5402 S001A77 24 WITH R4 5403 S001A78 C0 HIB 5404 S001A79 9E LOB 5405 S001A7A 4D SWAP 5406 S001A7B C4 OR R4 5407 S001A7C 3D A6 54 LMS R6,CPLXSPD 5408 S001A7F 56 ADD R6 5409 S001A80 20 16 MOVE R6,R0 5410 S001A82 0A 03' BPL PL_KEY_1130 5411 S001A84 01 NOP 5412 ; 5413 S001A85 4F NOT 5414 S001A86 D0 INC R0 5415 PL_KEY_1130 5416 S001A87 F4 0000" IWT R4,#WALK_SP 5417 S001A8A 64 SUB R4 5418 S001A8B 0C 0A' BCC PL_KEY_1140 ;ＭＡＸスピードオーバー？ ( no:PL_KEY_1140 ) 5419 S001A8D 01 NOP 5420 ; 5421 S001A8E 26 B6 MOVES R6,R6 ;(N) set 5422 S001A90 24 16 MOVE R6,R4 5423 S001A92 0A 03' BPL PL_KEY_1140 5424 S001A94 26 WITH R6 5425 ; 5426 S001A95 4F NOT 5427 S001A96 D6 INC R6 5428 PL_KEY_1140 5429 S001A97 3E A6 5A SMS R6,CPLMVSP 5430 ; 5431 S001A9A F0 0006 IWT R0,#P006 5432 S001A9D 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＮ” 5433 ; 5434 S001AA0 60 SUB R0 5435 S001AA1 3E A0 6D SMS R0,CPLKAID ;階段フラグリセット 5436 S001AA4 3E A0 61 SMS R0,CPLSITD ;しゃがみリセット 5437 S001AA7 05 13' BRA PL_KEY_1500 5438 S001AA9 01 NOP 5439 ; 5440 ;---------------------------------------------------------------- 5441 ;- 上向きチェック - 5442 ;---------------------------------------------------------------- 5443 PL_KEY_1200 5444 S001AAA 3D A0 A8 LMS R0,CBERFLG 5445 S001AAD E0 DEC R0 5446 S001AAE 0A 0C' BPL PL_KEY_1500 ;舌ショット中？ ( yes:PL_KEY_1500 ) 5447 S001AB0 B1 FROM R1 5448 ; 5449 S001AB1 3E 78 AND #00001000B 5450 S001AB3 09 07' BEQ PL_KEY_1500 ;上向く？ ( no:PL_KEY_1500 ) 5451 S001AB5 01 NOP 5452 ; 5453 S001AB6 F0 004C IWT R0,#P106 5454 S001AB9 3E A0 67 SMS R0,CPLUPFG ;上向きフラグ”ＯＮ” 5455 ; 5456 ;------------------------------------------------------------------------ 5457 ;- 移動キーチェック - 5458 ;------------------------------------------------------------------------ 5459 PL_KEY_1500 5460 S001ABC 3D A0 6D LMS R0,CPLKAID 5461 S001ABF 3E 60 SUB #0 5462 S001AC1 09 05' BEQ PL_KEY_1502 ;階段歩き中？ ( no:PL_KEY_1502 ) 5463 S001AC3 01 NOP 5464 ; 5465 mDJMP PL_KEY_1720 5465+ S001AC4 FF 1C44' IWT R15, #PL_KEY_1720 5465+ S001AC7 01 NOP 5466 ; 5467 PL_KEY_1502 5468 ;;;; LMS R0,CPLDASH 5469 ;;;; SUB #0 ;[ * PLSTOP へ ] 5470 ;;;; BEQ PL_KEY_1504 ;溜めダッシュ？ ( no:PL_KEY_1504 ) 5471 ;;;; NOP 5472 ;;;;; 5473 ;;;; mDJMP PL_KEY_1510 5474 ; 5475 PL_KEY_1504 5476 S001AC8 3D F0 1FE8 LM R0,CFURA_FG 5477 S001ACC 3E 60 SUB #0 5478 S001ACE 09 0B' BEQ PL_KEY_1506 ;”フラフラ〜”モード？ ( no:PL_KEY_1506 ) 5479 S001AD0 01 NOP 5480 ; 5481 S001AD1 3D A0 60 LMS R0,CPLJUMP 5482 S001AD4 3D A5 A8 LMS R5,CBERFLG 5483 S001AD7 C5 OR R5 5484 S001AD8 09 05' BEQ PL_KEY_FURA ;ジャンプ中ｏｒ舌ショット中？ ( no:PL_KEY_FURA ) 5485 S001ADA 01 NOP 5486 ; 5487 PL_KEY_1506 5488 mDJMP PL_KEY_XMOV 5488+ S001ADB FF 1B8A' IWT R15, #PL_KEY_XMOV 5488+ S001ADE 01 NOP 5489 ; 5490 ;------------------------------------------------------------------------ 5491 ;- ”フラフラ〜”モードセット - 5492 ;------------------------------------------------------------------------ 5493 PL_KEY_FURA 5494 S001ADF 3D A5 79 LMS R5,CPLFRCT ;(R5) <-- ”フラフラ〜”カウンター 5495 S001AE2 2C B5 MOVES R12,R5 ;(R12) <-- ” （絶対値） 5496 S001AE4 0A 03' BPL PL_KEY_FR_010 5497 S001AE6 2C WITH R12 5498 ; 5499 S001AE7 4F NOT 5500 S001AE8 DC INC R12 5501 PL_KEY_FR_010 5502 S001AE9 3D A4 62 LMS R4,CPLCMKI ;(R4) <-- プレイヤー向き 5503 ; 5504 S001AEC 21 WITH R1 5505 S001AED 3E 73 AND #00000011B 5506 S001AEF 09 28' BEQ PL_KEY_FR_050 ;左右キー入力？ ( no:PL_KEY_FR_050 ) 5507 S001AF1 01 NOP 5508 ; 5509 ;-------------- 移動キー入力 -------------------------------------------- 5510 S001AF2 B1 FROM R1 5511 S001AF3 3E 72 AND #02H 5512 S001AF5 64 SUB R4 5513 S001AF6 09 13' BEQ PL_KEY_FR_020 ;向き反転？ ( no:PL_KEY_FR_020 ) 5514 S001AF8 01 NOP 5515 ; 5516 S001AF9 3D A0 6F LMS R0,CPLNAGE 5517 S001AFC 9E LOB 5518 S001AFD 08 0C' BNE PL_KEY_FR_020 ;タマゴ投げ中？ ( yes:PL_KEY_FR_020 ) 5519 S001AFF 25 WITH R5 ;”フラフラ〜”カウンター反転 5520 ; 5521 S001B00 4F NOT 5522 S001B01 D5 INC R5 5523 S001B02 3E A5 79 SMS R5,CPLFRCT 5524 S001B05 24 WITH R4 ;プレイヤー向き反転 5525 S001B06 3F C2 XOR #02H 5526 S001B08 3E A4 62 SMS R4,CPLCMKI 5527 PL_KEY_FR_020 5528 S001B0B A7 02 IBT R7,#02H ;(R7) <-- ”フラフラ〜”向き 5529 S001B0D 3E A7 7A SMS R7,CPLFRMK 5530 S001B10 A0 FE" IBT R0,#FR_CK-2 5531 S001B12 65 SUB R5 5532 S001B13 0B 07' BMI PL_KEY_FR_060 ;前進？ ( yes:PL_KEY_FR_060 ) 5533 S001B15 01 NOP 5534 ; 5535 S001B16 05 0C' BRA PL_KEY_FR_061+1 5536 S001B18 B7 FROM R7 5537 ; 5538 ;-------------- 移動キー入力無し ---------------------------------------- 5539 001B19 PL_KEY_FR_050 EQU $ 5540 S001B19 3D A7 7A LMS R7,CPLFRMK ;(R7) <-- ”フラフラ〜”向き 5541 ; 5542 001B1C PL_KEY_FR_060 EQU $ 5543 S001B1C 3D A0 EC LMS R0,CPSTPTM 5544 S001B1F E0 DEC R0 5545 S001B20 0A 53' BPL PL_KEY_FR_100 ;カウンター切り替え？ ( no:PL_KEY_FR_100 ) 5546 S001B22 01 NOP 5547 ; 5548 001B23 PL_KEY_FR_061 EQU $ 5549 S001B23 B7 FROM R7 5550 S001B24 3D C5 XOR R5 5551 S001B26 0B 0D' BMI PL_KEY_FR_062 ;前進？ ( no:PL_KEY_FR_062 ) 5552 S001B28 01 NOP 5553 ; 5554 S001B29 A0 FD" IBT R0,#FR_MV-2-1 5555 S001B2B 6C SUB R12 5556 S001B2C 0C 0B' BCC PL_KEY_FR_070 ;”フラフラ”終り？ ( yes:PL_KEY_FR_070 ) 5557 S001B2E 01 NOP 5558 ; 5559 S001B2F A0 00" IBT R0,#FR_CK 5560 S001B31 6C SUB R12 5561 S001B32 09 05' BEQ PL_KEY_FR_070 ;ランダムセレクト？ ( yes:PL_KEY_FR_070 ) 5562 S001B34 01 NOP 5563 ; 5564 ;-------------- ”フラフラ〜”カウンター加算 -------------------- 5565 PL_KEY_FR_062 5566 S001B35 25 WITH R5 5567 S001B36 05 2D' BRA PL_KEY_FR_090 5568 S001B38 57 ADD R7 5569 ; 5570 ;-------------- ランダムセレクト -------------------------------- 5571 PL_KEY_FR_070 5572 S001B39 20 B1 MOVES R0,R1 ;(R0) <-- 移動キー入力フラグ（１ｏｒ２） 5573 S001B3B 08 1D' BNE PL_KEY_FR_072 ;移動キー入力？ ( yes:PL_KEY_FR_072 ) 5574 S001B3D 60 SUB R0 ;[ 歩くになる為！！ ] 5575 ; 5576 S001B3E AC FE" IBT R12,#FR_CK-2 ;(R12) <-- 戻り”フラフラ〜”カウンターセット 5577 S001B40 3D F0 1970 LM R0,CRANDM0 5578 S001B44 17 TO R7 5579 S001B45 3E 74 AND #04H 5580 S001B47 27 WITH R7 ;(R7) <-- ”フラフラ〜”向き 5581 S001B48 3E 62 SUB #02H 5582 S001B4A 3E A7 7A SMS R7,CPLFRMK 5583 S001B4D B7 FROM R7 5584 S001B4E 3D C5 XOR R5 5585 S001B50 0B 0A' BMI PL_KEY_FR_080 ;前進？ ( no:PL_KEY_FR_080 ) 5586 S001B52 01 NOP 5587 ; 5588 S001B53 AC 02" IBT R12,#FR_CK+2 ;(R12) <-- ”フラフラ〜”カウンターセット 5589 S001B55 3E 79 AND #09H ;[ 移動キー入力中は（Ｒ０）＝０ ！！ ] 5590 S001B57 08 03' BNE PL_KEY_FR_080 ;歩く？ ( no:PL_KEY_FR_080 ) 5591 S001B59 01 NOP 5592 ; 5593 PL_KEY_FR_072 5594 S001B5A AC 00" IBT R12,#FR_MV ;(R12) <-- 歩き”フラフラ〜”カウンターセット 5595 PL_KEY_FR_080 5596 S001B5C 25 B5 MOVES R5,R5 ;(N) set 5597 S001B5E 2C 15 MOVE R5,R12 5598 S001B60 0A 03' BPL PL_KEY_FR_090 5599 S001B62 25 WITH R5 5600 ; 5601 S001B63 4F NOT 5602 S001B64 D5 INC R5 5603 ; 5604 ;-------------- ”フラフラ〜”カウンター切り替えタイマーセット -- 5605 PL_KEY_FR_090 5606 S001B65 3E A5 79 SMS R5,CPLFRCT 5607 S001B68 A0 00" IBT R0,#FR_MV 5608 S001B6A 55 ADD R5 5609 S001B6B 03 LSR 5610 S001B6C FE 0000" IWT R14,#FURA_TMDT 5611 S001B6F 1E TO R14 5612 S001B70 5E ADD R14 5613 S001B71 EF GETB 5614 S001B72 3E A0 EC SMS R0,CPSTPTM ;カウンター切り替えタイマーセット 5615 ; 5616 ;-------------- Ｘ移動チェック ---------------------------------- 5617 PL_KEY_FR_100 5618 S001B75 A0 FF" IBT R0,#FR_MV-1 5619 S001B77 6C SUB R12 5620 S001B78 0D 16' BCS PL_KEY_1508 ;移動？ ( no:PL_KEY_1508 ) 5621 S001B7A B7 FROM R7 5622 ; 5623 S001B7B 3D C5 XOR R5 5624 S001B7D 0B 11' BMI PL_KEY_1508 ;カウンター加算？ ( no:PL_KEY_1508 ) 5625 S001B7F 01 NOP 5626 ; 5627 S001B80 25 B5 MOVES R5,R5 5628 S001B82 0A 03' BPL PL_KEY_FR_110 ;前進？ ( no:PL_KEY_FR_110 ) 5629 S001B84 24 WITH R4 5630 ; 5631 S001B85 3F C2 XOR #02H 5632 PL_KEY_FR_110 5633 S001B87 24 11 MOVE R1,R4 5634 S001B89 D1 INC R1 ;[ ０→１、２→３ ] 5635 ; 5636 ;-------------- Ｘスピード制御 ------------------------------------------ 5637 PL_KEY_XMOV 5638 S001B8A B1 FROM R1 5639 S001B8B 3E 73 AND #00000011B 5640 S001B8D 08 10' BNE PL_KEY_1510 ;左右キー入力？ ( yes:PL_KEY_1510 ) 5641 S001B8F 01 NOP 5642 ; 5643 PL_KEY_1508 5644 S001B90 3D A0 7D LMS R0,CPLBGNO 5645 S001B93 3E 60" SUB #ON_SOAP 5646 S001B95 0C 04' BCC PL_KEY_1509 ;滑らし？ ( no:PL_KEY_1509 ) 5647 S001B97 60 SUB R0 ;[ IBT R0,#0 ] 5648 ; 5649 S001B98 3E A0 66 SMS R0,CPLSTOP 5650 PL_KEY_1509 5651 mDJMP PL_KEY_1800 5651+ S001B9B FF 1C46' IWT R15, #PL_KEY_1800 5651+ S001B9E 01 NOP 5652 ; 5653 PL_KEY_1510 5654 S001B9F 3D A7 F6 LMS R7,CPLKEYFG 5655 S001BA2 27 B7 MOVES R7,R7 5656 S001BA4 09 03' BEQ PL_KEY_1512 ;キー反転？ ( no:PL_KEY_1512 ) 5657 S001BA6 01 NOP 5658 ; 5659 S001BA7 3F C3 XOR #00000011B 5660 PL_KEY_1512 5661 S001BA9 3E A0 66 SMS R0,CPLSTOP ;止まってるフラグリセット 5662 ; 5663 S001BAC A7 FF IBT R7,#-1 ;(R7) <-- 左右キーによる移動方向（左） 5664 S001BAE 14 TO R4 ;(R4) <-- プレイヤー向き 5665 S001BAF 3E 72 AND #02H 5666 S001BB1 08 03' BNE PL_KEY_1520 ;左へ？ ( yes:PL_KEY_1520 ) 5667 S001BB3 01 NOP 5668 ; 5669 S001BB4 A7 01 IBT R7,#01H ;(R7) <-- 左右キーによる移動方向（右） 5670 PL_KEY_1520 5671 S001BB6 3D F0 1FE8 LM R0,CFURA_FG 5672 S001BBA 3E 60 SUB #0 5673 S001BBC 08 2F' BNE PL_KEY_1700 ;”フラフラ”モード？ ( yes:PL_KEY_1700 ) 5674 S001BBE 01 NOP 5675 ; 5676 S001BBF 3D A0 62 LMS R0,CPLCMKI ;(R0) <-- 移動向き 5677 S001BC2 64 SUB R4 5678 S001BC3 09 0E' BEQ PL_KEY_1550 ;向き変わった？ ( no:PL_KEY_1550 ) 5679 S001BC5 01 NOP 5680 ; 5681 S001BC6 3D A0 A8 LMS R0,CBERFLG 5682 S001BC9 3D AE 6F LMS R14,CPLNAGE 5683 S001BCC CE OR R14 5684 S001BCD 08 04' BNE PL_KEY_1550 ;舌ショット中ｏｒタマゴ投げ中？ ( yes:PL_KEY_1550 ) 5685 S001BCF 01 NOP 5686 ; 5687 S001BD0 3E A4 62 SMS R4,CPLCMKI ;プレイヤー向きセット 5688 ; 5689 PL_KEY_1550 5690 S001BD3 3D A0 5A LMS R0,CPLMVSP 5691 S001BD6 3E 60 SUB #0 5692 S001BD8 09 13' BEQ PL_KEY_1700 ;止まってた？ ( yes:PL_KEY_1700 ) 5693 S001BDA 01 NOP 5694 ; 5695 S001BDB 3D C7 XOR R7 5696 S001BDD 0A 0E' BPL PL_KEY_1700 ;スリップ？ ( no:PL_KEY_1700 ) 5697 S001BDF 01 NOP 5698 ; 5699 ;---------------------------------------------------------------- 5700 ;- スリップ - 5701 ;---------------------------------------------------------------- 5702 PL_KEY_1600 5703 ;;;; LMS R0,CPLJUMP 5704 ;;;; SUB #0 5705 ;;;; BNE PL_KEY_1700 ;ジャンプ中？ ( yes:PL_KEY_1700 ) 5706 ;;;; NOP 5707 ; vvv******* warn :value out of range 5708 S001BE0 3D A0 7D LMS R0,PLBGNO 5709 S001BE3 3E 60" SUB #ON_SOAP 5710 S001BE5 0D 06' BCS PL_KEY_1700 ;滑らし？ ( yes:PL_KEY_1700 ) 5711 S001BE7 01 NOP 5712 ; 5713 S001BE8 A0 04 IBT R0,#04H 5714 S001BEA 3E A0 E8 SMS R0,CPLSLIP ;スリップフラグ”ＯＮ” 5715 ; 5716 ;---------------------------------------------------------------- 5717 ;- 加速 - 5718 ;---------------------------------------------------------------- 5719 PL_KEY_1700 5720 S001BED 3D F0 00FB LM R0,CPLBGNO+1 ;ＢＧタイプ ×（（２＋２）×１６） 5721 S001BF1 03 LSR ; 5722 S001BF2 03 LSR ; 5723 S001BF3 17 TO R7 5724 S001BF4 C4 OR R4 ;[ ＯＲ（移動向き） ] 5725 S001BF5 3D A0 5B LMS R0,CPLANGL 5726 S001BF8 3F 7F BIC #0FH ;[ AND #0FFF0H ] 5727 S001BFA 03 LSR 5728 S001BFB 03 LSR 5729 S001BFC 17 TO R7 ;(R7) <-- 加速データポインター 5730 S001BFD C7 OR R7 5731 ; 5732 S001BFE F0 0000" IWT R0,#MAX_SPEED 5733 S001C01 1E TO R14 ;(R14) <-- ＭＡＸスピードデータポインター 5734 S001C02 57 ADD R7 5735 S001C03 EF GETB 5736 S001C04 DE INC R14 5737 S001C05 18 TO R8 ;(R8) <-- ＭＡＸスピード 5738 S001C06 3D EF GETBH 5739 ; 5740 S001C08 3D A0 5A LMS R0,CPLMVSP ;(R0) <-- 移動スピード 5741 S001C0B 3D AE A8 LMS R14,CBERFLG 5742 S001C0E EE DEC R14 5743 S001C0F 0A 12' BPL PL_KEY_1705 ;(N):舌ショット？ ( yes:PL_KEY_1706 ) 5744 S001C11 01 NOP 5745 ; 5746 S001C12 3D AE 60 LMS R14,CPLJUMP 5747 S001C15 EE DEC R14 5748 S001C16 0B 0C' BMI PL_KEY_1706 ;ジャンプ中？ ( no:PL_KEY_1706 ) 5749 S001C18 DE INC R14 5750 ; 5751 S001C19 3D AE 69 LMS R14,CPLSPJP 5752 S001C1C 2E WITH R14 5753 S001C1D 9E LOB 5754 S001C1E EE DEC R14 5755 S001C1F EE DEC R14 5756 S001C20 0B 02' BMI PL_KEY_1706 ;ジタバタジャンプ中？ ( no:PL_KEY_1706 ) 5757 S001C22 01 NOP 5758 ; 5759 PL_KEY_1705 5760 S001C23 50 ADD R0 ;スピード半分！！ 5761 PL_KEY_1706 5762 S001C24 68 SUB R8 5763 S001C25 09 54' BEQ PL_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:PL_KEY_1850 ) 5764 S001C27 01 NOP 5765 ; 5766 S001C28 3D C8 XOR R8 5767 S001C2A 0A 4F' BPL PL_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:PL_KEY_1850 ) 5768 S001C2C 01 NOP 5769 ; 5770 S001C2D 3D A0 E8 LMS R0,CPLSLIP 5771 S001C30 9E LOB 5772 S001C31 09 02' BEQ PL_KEY_1710 ;スリップ？ ( no:PL_KEY_1710 ) 5773 S001C33 01 NOP 5774 ; 5775 S001C34 D7 INC R7 5776 PL_KEY_1710 5777 S001C35 F0 0000" IWT R0,#ADD_SPEED 5778 S001C38 57 ADD R7 5779 S001C39 1E TO R14 5780 S001C3A 57 ADD R7 5781 S001C3B EF GETB 5782 S001C3C DE INC R14 5783 S001C3D 3D EF GETBH 5784 ; 5785 S001C3F 3D A7 5A LMS R7,CPLMVSP 5786 S001C42 57 ADD R7 5787 S001C43 90 SBK ;[ SMS R0,CPLMVSP ] 5788 ; 5789 PL_KEY_1720 5790 mRTS 5790+ S001C44 9B JMP R11 5790+ S001C45 01 NOP 5791 ; 5792 ;---------------------------------------------------------------- 5793 ;- 減速 - 5794 ;---------------------------------------------------------------- 5795 PL_KEY_1800 5796 S001C46 3D A0 60 LMS R0,CPLJUMP 5797 S001C49 E0 DEC R0 5798 S001C4A 0B 2F' BMI PL_KEY_1850 ;ジャンプ中？ ( no:PL_KEY_1850 ) 5799 S001C4C 01 NOP 5800 ; 5801 S001C4D 3D A0 63 LMS R0,CPLSWIM 5802 S001C50 E0 DEC R0 5803 S001C51 0A 28' BPL PL_KEY_1850 ;泳いでる？ ( yes:PL_KEY_1850 ) 5804 S001C53 01 NOP 5805 ; 5806 ;-------------------------------------------------------- 5807 ;- ジャンプ中の減速 - 5808 ;-------------------------------------------------------- 5809 S001C54 FE 0000" IWT R14,#MAX_SPEED ;(R14) <-- ＭＡＸスピードデータポインター 5810 S001C57 3D A0 69 LMS R0,CPLSPJP 5811 S001C5A 18 TO R8 5812 S001C5B 9E LOB 5813 S001C5C 3D A0 5A LMS R0,CPLMVSP 5814 S001C5F E8 DEC R8 5815 S001C60 E8 DEC R8 5816 S001C61 0A 02' BPL PL_KEY_1802 ;ジタバタジャンプ中？ ( yes:PL_KEY_1802 ) 5817 S001C63 50 ADD R0 5818 ; 5819 S001C64 96 ASR 5820 PL_KEY_1802 5821 S001C65 0A 03' BPL PL_KEY_1810 5822 S001C67 01 NOP 5823 ; 5824 S001C68 DE INC R14 5825 S001C69 DE INC R14 5826 PL_KEY_1810 5827 S001C6A 18 TO R8 5828 S001C6B EF GETB 5829 S001C6C DE INC R14 5830 S001C6D 28 WITH R8 5831 S001C6E 3D EF GETBH 5832 ; 5833 S001C70 68 SUB R8 5834 S001C71 09 08' BEQ PL_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:PL_KEY_1850 ) 5835 S001C73 01 NOP 5836 ; 5837 S001C74 3D C8 XOR R8 5838 S001C76 0A 03' BPL PL_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:PL_KEY_1850 ) 5839 S001C78 01 NOP 5840 ; 5841 mRTS 5841+ S001C79 9B JMP R11 5841+ S001C7A 01 NOP 5842 ; 5843 ;-------------------------------------------------------- 5844 ;- 着地中の減速 - 5845 ;-------------------------------------------------------- 5846 PL_XSP_DOWN 5847 PL_KEY_1850 5848 S001C7B 3D F0 00FB LM R0,CPLBGNO+1 ;ＢＧタイプ ×（２×１６） 5849 S001C7F 03 LSR ; 5850 S001C80 03 LSR ; 5851 S001C81 17 TO R7 ; 5852 S001C82 03 LSR ; 5853 S001C83 3D A0 5B LMS R0,CPLANGL 5854 S001C86 3F 7F BIC #0FH ;[ AND #0FFF0H ] 5855 S001C88 03 LSR 5856 S001C89 03 LSR 5857 S001C8A 03 LSR 5858 S001C8B 14 TO R4 ;(R4) <-- 減速データポインター 5859 S001C8C C7 OR R7 5860 S001C8D F0 0000" IWT R0,#MIN_SPEED 5861 S001C90 1E TO R14 5862 S001C91 54 ADD R4 5863 S001C92 EF GETB 5864 S001C93 DE INC R14 5865 S001C94 17 TO R7 ;(R7) <-- ＭＩＮスピード 5866 S001C95 3D EF GETBH 5867 ; 5868 S001C97 3D A8 5A LMS R8,CPLMVSP ;(R8) <-- 移動スピード 5869 S001C9A B8 FROM R8 5870 S001C9B 67 SUB R7 5871 S001C9C 0A 02' BPL PL_KEY_1860 5872 S001C9E 01 NOP 5873 ; 5874 S001C9F D4 INC R4 5875 PL_KEY_1860 5876 S001CA0 F0 0000" IWT R0,#SUB_SPEED 5877 S001CA3 54 ADD R4 5878 S001CA4 1E TO R14 5879 S001CA5 54 ADD R4 5880 S001CA6 EF GETB 5881 S001CA7 DE INC R14 5882 S001CA8 3D EF GETBH 5883 ; 5884 S001CAA 3D F4 1FE8 LM R4,CFURA_FG 5885 S001CAE 24 B4 MOVES R4,R4 5886 S001CB0 09 03' BEQ PL_KEY_1862 ;”フラフラ”モード？ ( no:PL_KEY_1862 ) 5887 S001CB2 01 NOP 5888 ; 5889 S001CB3 3D 96 DIV2 5890 PL_KEY_1862 5891 S001CB5 3D A4 61 LMS R4,CPLSITD 5892 S001CB8 E4 DEC R4 5893 S001CB9 0B 03' BMI PL_KEY_1864 ;しゃがんでる？ ( no:PL_KEY_1864 ) 5894 S001CBB 01 NOP 5895 ; 5896 S001CBC 50 ADD R0 ;x4 5897 S001CBD 50 ADD R0 ; 5898 PL_KEY_1864 5899 S001CBE 20 14 MOVE R4,R0 ;(R4) <-- 減速値 5900 ; 5901 S001CC0 58 ADD R8 5902 S001CC1 20 18 MOVE R8,R0 5903 S001CC3 67 SUB R7 5904 S001CC4 3D C4 XOR R4 5905 S001CC6 0B 06' BMI PL_KEY_1870 ;ＭＩＮスピードオーバー？ ( no:PL_KEY_1870 ) 5906 S001CC8 60 SUB R0 5907 ; 5908 S001CC9 3E A0 66 SMS R0,CPLSTOP 5909 S001CCC 27 18 MOVE R8,R7 5910 PL_KEY_1870 5911 S001CCE 3E A8 5A SMS R8,CPLMVSP 5912 mRTS 5912+ S001CD1 9B JMP R11 5912+ S001CD2 01 NOP 5913 ; 5914 ;------------------------------------------------------------------------ 5915 ;- - 5916 ;- 舌ショットチェック - - 5917 ;- - 5918 ;------------------------------------------------------------------------ 5919 BERO_CHECK 5920 S001CD3 3D A0 EB LMS R0,CPLFLSH 5921 ;;;; IWT R8,#080H 5922 S001CD6 A8 40 IBT R8,#040H 5923 S001CD8 68 SUB R8 5924 S001CD9 0C 03' BCC BERO_CHECK_0000 ;ダメージ中？ ( no:BERO_CHECK_0000 ) 5925 S001CDB 01 NOP 5926 ; 5927 mRTS 5927+ S001CDC 9B JMP R11 5927+ S001CDD 01 NOP 5928 ; 5929 BERO_CHECK_0000 5930 S001CDE 3E AB 31 SMS R11,RTS1 ;[ return address save ] 5931 ; 5932 ;------------------------------------------------------------------------ 5933 ;- 舌のＢＧチェック - 5934 ;------------------------------------------------------------------------ 5935 S001CE1 3D A8 AD LMS R8,CBRCNTX ;(R8) <-- 舌のＸ座標 5936 S001CE4 3D A0 AE LMS R0,CBRCNTY ;(R0) <-- ”Ｙ ” 5937 ; 5938 mJSR_X BGUNIT_READ_S+1 ;ＢＧユニットＮｏ．読み込み 5938+ S001CE7 94 LINK #4 5938+ S001CE8 FF 0CD7' IWT R15, #BGUNIT_READ_S+1 5939 S001CEB 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 5940 ; 5941 ; (R7) <-- BG unit no. type return !! 5942 ; 5943 S001CEC 3D A3 B4 LMS R3,CEATSTP ;(R3) <-- 口に入れてるフラグ 5944 S001CEF 3D A4 B5 LMS R4,CEATSPF ;(R4) <-- スペシャルショットフラグ 5945 S001CF2 3D A8 B1 LMS R8,CEATFLG ;(R8) <-- 食べるてるフラグ 5946 ; 5947 S001CF5 3D A2 A8 LMS R2,CBERFLG ;(R2) <-- 舌ショットフラグ 5948 S001CF8 E2 DEC R2 5949 S001CF9 0B 05' BMI BERO_CHECK_0010 ;舌ショット中？ ( no:BERO_CHECK_0010 ) 5950 S001CFB D2 INC R2 5951 ; 5952 mDJMP BERO_CHECK_1500 5952+ S001CFC FF 20B9' IWT R15, #BERO_CHECK_1500 5952+ S001CFF 01 NOP 5953 ; 5954 ;------------------------------------------------------------------------ 5955 ;- 舌ショットチェック - 5956 ;------------------------------------------------------------------------ 5957 BERO_CHECK_0010 5958 ; 5959 ;---------------------------------------------------------------- 5960 ;- タマゴ投げチェック - 5961 ;---------------------------------------------------------------- 5962 S001D00 3D A0 6F LMS R0,CPLNAGE 5963 S001D03 E0 DEC R0 5964 S001D04 0A 05' BPL BERO_CHECK_0010C ;タマゴ投げ中？ ( yes:BERO_CHECK_0010C ) 5965 S001D06 01 NOP 5966 ; 5967 mDJMP BERO_CHECK_0014 5967+ S001D07 FF 1F15' IWT R15, #BERO_CHECK_0014 5967+ S001D0A 01 NOP 5968 ; 5969 BERO_CHECK_0010C 5970 S001D0B 3D A1 63 LMS R1,CPLSWIM 5971 S001D0E E1 DEC R1 5972 S001D0F 0A 42' BPL BERO_CHECK_0010E4 ;泳ぎ中？ ( yes:BERO_CHECK_0010E4 ) 5973 S001D11 01 NOP 5974 ; 5975 S001D12 3D A1 F1 LMS R1,CPNAGTM 5976 S001D15 E1 DEC R1 5977 S001D16 0B 05' BMI BERO_CHECK_0010D ;タマゴ投げパターン切り替え？ ( yes:BERO_CHECK_0010D ) 5978 S001D18 01 NOP 5979 ; 5980 mDJMP BERO_CHECK_3000 5980+ S001D19 FF 2251' IWT R15, #BERO_CHECK_3000 5980+ S001D1C 01 NOP 5981 ; 5982 BERO_CHECK_0010D 5983 S001D1D 3D A1 76 LMS R1,CPLNAGE_EGG 5984 S001D20 21 B1 MOVES R1,R1 5985 S001D22 09 06' BEQ BERO_CHECK_0010D2 ;空振り？ ( yes:BERO_CHECK_0010D2 ) 5986 S001D24 01 NOP 5987 ; 5988 S001D25 3E 65 SUB #6-1 5989 S001D27 09 05' BEQ BERO_CHECK_0010E ;投げ溜めポーズ？ ( yes:BERO_CHECK_0010E ) 5990 S001D29 01 NOP 5991 ; 5992 BERO_CHECK_0010D2 5993 mDJMP BERO_CHECK_0011 5993+ S001D2A FF 1EF9' IWT R15, #BERO_CHECK_0011 5993+ S001D2D 01 NOP 5994 ; 5995 ;-------------- 投げ溜めチェック -------------------------------- 5996 BERO_CHECK_0010E 5997 S001D2E 3D A3 39 LMS R3,CMKEYC2L 5998 S001D31 3D A0 44 LMS R0,CP_KEY_BERO 5999 S001D34 73 AND R3 6000 S001D35 08 1D' BNE BERO_CHECK_0010E4+1 ;キャンセルキー入力？ ( yes:BERO_CHECK_0010E4+1 ) 6001 S001D37 60 SUB R0 6002 ; 6003 S001D38 3D A3 38 LMS R3,CMKEYC1L ;(R3) <-- コントローラー情報（連続） 6004 S001D3B F0 0300 IWT R0,#0000001100000000B 6005 S001D3E 73 AND R3 6006 S001D3F 08 1D' BNE BERO_CHECK_0010F ;キャンセルキー入力チェックＯＫ？ ( no:BERO_CHECK_0010F ) 6007 S001D41 60 SUB R0 ;[ キャンセルカウンターリセット ] 6008 ; 6009 S001D42 F0 0400 IWT R0,#0000010000000000B 6010 S001D45 73 AND R3 6011 S001D46 09 16' BEQ BERO_CHECK_0010F ;キャンセルキー入力？ ( no:BERO_CHECK_0010F ) 6012 S001D48 60 SUB R0 ;[ キャンセルカウンターリセット ] 6013 ; 6014 S001D49 3D A0 74 LMS R0,CPLNAGR 6015 S001D4C D0 INC R0 6016 S001D4D 12 TO R2 ;[ * not break (R0) ] 6017 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 6018 S001D4E 3E 68 SUB #08H 6019 ELSE ;**** PAL 対応 [1995/7/19] ***************************** 6020 SUB #(08H*4+3)/5 6021 ENDIF 6022 S001D50 0C 0C' BCC BERO_CHECK_0010F ;キャンセル？ ( no:BERO_CHECK_0010F ) 6023 S001D52 01 NOP 6024 ; 6025 ;-------------- タマゴ投げキャンセル -------------------- 6026 BERO_CHECK_0010E4 6027 S001D53 60 SUB R0 6028 S001D54 3E A0 6F SMS R0,CPLNAGE 6029 S001D57 3E A0 70 SMS R0,CPLNAGP 6030 mDJMP BERO_CHECK_3000 6030+ S001D5A FF 2251' IWT R15, #BERO_CHECK_3000 6030+ S001D5D 01 NOP 6031 ; 6032 BERO_CHECK_0010F 6033 S001D5E 3E A0 74 SMS R0,CPLNAGR ;キャンセルカウンターリセット 6034 ; 6035 S001D61 A2 01 IBT R2,#01H ;(R2) <-- サーチ敵ターゲット表示タイマー 6036 S001D63 3D A0 41 LMS R0,CCONFIGFG 6037 S001D66 E0 DEC R0 ;(N) set vvv******* warn :value out of range 6038 S001D67 3D A0 43 LMS R0,P_KEY_MNAG ;(R0) <-- タマゴ投げボタン情報 6039 S001D6A 0B 08' BMI BERO_CHECK_0010F2 ;トリガータイプ？ ( yes:BERO_CHECK_0010F2 ) 6040 S001D6C 01 NOP 6041 ; 6042 ;-------------- 押しっぱなしタイプ ---------------------- 6043 S001D6D 73 AND R3 6044 S001D6E 09 0E' BEQ BERO_CHECK_0010F4 ;タマゴ投げる？ ( yes:BERO_CHECK_0010F4 ) 6045 S001D70 01 NOP 6046 ; 6047 S001D71 05 0D' BRA BERO_CHECK_00100 6048 S001D73 01 NOP 6049 ; 6050 ;-------------- トリガータイプ -------------------------- 6051 BERO_CHECK_0010F2 6052 S001D74 3D A3 39 LMS R3,CMKEYC2L ;(R3) <-- コントローラー情報（トリガー） vvv******* warn :value out of range 6053 S001D77 3D A0 43 LMS R0,P_KEY_MNAG ;(R0) <-- タマゴ投げボタン情報 6054 S001D7A 73 AND R3 6055 S001D7B 09 03' BEQ BERO_CHECK_00100 ;タマゴ投げる？ ( no:BERO_CHECK_00100 ) 6056 S001D7D 01 NOP 6057 ; 6058 BERO_CHECK_0010F4 6059 S001D7E A2 10 IBT R2,#010H ;(R2) <-- サーチ敵ターゲット表示タイマー 6060 BERO_CHECK_00100 6061 S001D80 3D A0 71 LMS R0,CPLNAGC 6062 S001D83 3E 54 ADD #4 6063 S001D85 A3 20 IBT R3,#020H 6064 S001D87 63 SUB R3 6065 S001D88 0D 03' BCS BERO_CHECK_0010001 ;ターゲットカウンターＭＡＸ？ ( no:BERO_CHECK_0010001 ) 6066 S001D8A 53 ADD R3 6067 ; 6068 S001D8B 20 13 MOVE R3,R0 6069 BERO_CHECK_0010001 6070 S001D8D 3D A0 75 LMS R0,CPLNAGL 6071 S001D90 3E 60 SUB #0 6072 S001D92 08 70' BNE BERO_CHECK_00102 ;ロックオン？ ( yes:BERO_CHECK_00102 ) 6073 S001D94 01 NOP 6074 ; 6075 S001D95 3D A0 70 LMS R0,CPLNAGP 6076 S001D98 F7 0100 IWT R7,#(((08H*(48H-30H))+0FFH)&0FF00H) 6077 S001D9B 67 SUB R7 6078 S001D9C 0D 10' BCS BERO_CHECK_001001 ;パワーＭＡＸ？ ( yes:BERO_CHECK_001001 ) 6079 S001D9E 01 NOP 6080 ; 6081 S001D9F 3D F0 0071 LM R0,CMKEYC1 6082 S001DA3 3E 78 AND #00001000B 6083 S001DA5 08 10' BNE BERO_CHECK_0010010 ;上投げ？ ( yes:BERO_CHECK_0010010 ) 6084 S001DA7 01 NOP 6085 ; 6086 S001DA8 F7 2600 IWT R7,#4CH*2*040H ;(R7) <-- スタート目標角度 6087 S001DAB 05 0D' BRA BERO_CHECK_0010012 6088 S001DAD 01 NOP 6089 ; 6090 ;-------------- ターゲット角度回転 ---------------------- 6091 BERO_CHECK_001001 6092 S001DAE 3D F0 0071 LM R0,CMKEYC1 6093 S001DB2 3E 78 AND #00001000B 6094 S001DB4 09 28' BEQ BERO_CHECK_0010016 ;ターゲット角度変更？ ( no:BERO_CHECK_0010016 ) 6095 S001DB6 01 NOP 6096 ; 6097 ;-------------- ターゲット角度変更 -------------- 6098 BERO_CHECK_0010010 6099 S001DB7 F7 2E00 IWT R7,#05CH*2*040H ;上投げ 6100 BERO_CHECK_0010012 6101 S001DBA 3D A0 77 LMS R0,CPLNAGE_ANG ;(R0) <-- ターゲット角度 6102 S001DBD 1E TO R14 ;[ * not break (R0) ] 6103 S001DBE 67 SUB R7 ;(Z)+(N) set 6104 ;;;; BEQ BERO_CHECK_001006 ;目標角度と一致？ ( yes:BERO_CHECK_001006 ) 6105 S001DBF 09 07' BEQ BERO_CHECK_00100120 ;目標角度と一致？ ( yes:BERO_CHECK_00100120 ) 6106 S001DC1 01 NOP ;[ * not break (N) ] 6107 ; 6108 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 6109 S001DC2 F6 00C0 IWT R6,#0C0H 6110 ELSE ;**** PAL 対応 [1995/7/19] ***************************** 6111 IWT R6,#0C0H*5/4 6112 ENDIF 6113 S001DC5 0B 04' BMI BERO_CHECK_0010013 6114 S001DC7 01 NOP 6115 ; 6116 BERO_CHECK_00100120 6117 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 6118 S001DC8 F6 FF40 IWT R6,#-0C0H 6119 ELSE ;**** PAL 対応 [1995/7/19] ***************************** 6120 IWT R6,#-(0C0H*5/4) 6121 ENDIF 6122 6123 BERO_CHECK_0010013 6124 S001DCB 3E A6 78 SMS R6,CPLNAGE_AMK ;ターゲット角度回転向きセット 6125 ; 6126 BERO_CHECK_0010014 6127 S001DCE 56 ADD R6 6128 S001DCF 20 1E MOVE R14,R0 6129 S001DD1 67 SUB R7 6130 S001DD2 3D C6 XOR R6 6131 S001DD4 2E 10 MOVE R0,R14 6132 S001DD6 0B 03' BMI BERO_CHECK_0010015 ;目標角度と一致？ ( no:BERO_CHECK_0010015 ) 6133 S001DD8 01 NOP 6134 ; 6135 S001DD9 27 10 MOVE R0,R7 6136 BERO_CHECK_0010015 6137 S001DDB 05 1F' BRA BERO_CHECK_001004 6138 S001DDD 01 NOP 6139 ; 6140 BERO_CHECK_0010016 6141 S001DDE 3D A0 77 LMS R0,CPLNAGE_ANG ;(R0) <-- ターゲット角度 6142 S001DE1 3D A6 78 LMS R6,CPLNAGE_AMK ;(R6) <-- ターゲット角度回転向き 6143 BERO_CHECK_0010018 6144 S001DE4 17 TO R7 6145 S001DE5 56 ADD R6 6146 S001DE6 0B 0F' BMI BERO_CHECK_001002 ;ＭＩＮ角度オーバー？ ( yes:BERO_CHECK_001002 ) 6147 S001DE8 60 SUB R0 6148 ; 6149 S001DE9 27 10 MOVE R0,R7 6150 S001DEB F7 2E00 IWT R7,#(03CH+20H)*2*040H 6151 S001DEE 67 SUB R7 6152 S001DEF 0C 0B' BCC BERO_CHECK_001004 ;ＭＡＸ角度オーバー？ ( no:BERO_CHECK_001004 ) 6153 S001DF1 57 ADD R7 6154 ; 6155 S001DF2 26 B6 MOVES R6,R6 6156 S001DF4 0B 06' BMI BERO_CHECK_001004 ;角度大オーバー？ ( yes:BERO_CHECK_001004 ) 6157 S001DF6 01 NOP 6158 ; 6159 BERO_CHECK_001002 6160 S001DF7 26 WITH R6 6161 S001DF8 4F NOT 6162 S001DF9 D6 INC R6 6163 BERO_CHECK_001003 6164 S001DFA B6 FROM R6 6165 S001DFB 90 SBK ;[ SMS R6,CPLNAGE_AMK ] 6166 ; 6167 BERO_CHECK_001004 6168 S001DFC 3E A0 77 SMS R0,CPLNAGE_ANG 6169 ; 6170 BERO_CHECK_001006 6171 S001DFF 05 03' BRA BERO_CHECK_00102 6172 S001E01 01 NOP 6173 ; 6174 BERO_CHECK_00101 6175 S001E02 20 13 MOVE R3,R0 6176 ; 6177 ;-------------- ロックオン切り替えチェック -------------- 6178 BERO_CHECK_00102 6179 S001E04 3D A0 39 LMS R0,CMKEYC2L 6180 S001E07 A7 30 IBT R7,#00110000B 6181 S001E09 77 AND R7 6182 S001E0A 09 0E' BEQ BERO_CHECK_001025 ;ロックオン切り替え？ ( no:BERO_CHECK_001025 ) 6183 S001E0C 01 NOP 6184 ; 6185 S001E0D 3D A0 75 LMS R0,CPLNAGL 6186 S001E10 3E 60 SUB #0 6187 S001E12 08 03' BNE BERO_CHECK_001023 6188 S001E14 60 SUB R0 ;[ IBT R0,#0 ] 6189 ; 6190 S001E15 21 10 MOVE R0,R1 6191 BERO_CHECK_001023 6192 S001E17 3E A0 75 SMS R0,CPLNAGL 6193 ; 6194 BERO_CHECK_001025 6195 S001E1A A7 00 IBT R7,#00H ;(R7) <-- ターゲットカラーＡＮＤデータ（固定） 6196 ;;;; MOVES R1,R1 6197 ;;;; BPL BERO_CHECK_00104 ;敵サーチ？ ( yes:BERO_CHECK_00104 ) 6198 ;;;; NOP 6199 ; 6200 ;-------------- サーチ敵無しターゲット位置セット -------- 6201 S001E1C A0 00" IBT R0,#BANK LCOS_S 6202 S001E1E 3F DF ROMB 6203 ; 6204 S001E20 A6 30 IBT R6,#030H ;(R6) <-- パワーＭＡＸまでの半径 6205 S001E22 3D A0 70 LMS R0,CPLNAGP 6206 S001E25 03 LSR 6207 S001E26 03 LSR 6208 S001E27 03 LSR 6209 S001E28 56 ADD R6 6210 S001E29 A6 48 IBT R6,#048H ;(R6) <-- パワーＭＡＸの半径 6211 S001E2B 66 SUB R6 6212 S001E2C 0D 03' BCS BERO_CHECK_001026 6213 S001E2E 56 ADD R6 6214 ; 6215 S001E2F 20 16 MOVE R6,R0 ;(R6) <-- パワーＭＡＸの半径 6216 BERO_CHECK_001026 6217 S001E31 3D A0 77 LMS R0,CPLNAGE_ANG 6218 S001E34 50 ADD R0 6219 S001E35 FE 2000 IWT R14,#020H*2*40H*2 6220 S001E38 6E SUB R14 6221 S001E39 03 LSR 6222 S001E3A 03 LSR 6223 S001E3B 03 LSR 6224 S001E3C 03 LSR 6225 S001E3D 03 LSR 6226 S001E3E 03 LSR 6227 S001E3F 03 LSR 6228 S001E40 FE 0000" IWT R14,#LCOS_S 6229 S001E43 1E TO R14 6230 S001E44 5E ADD R14 6231 S001E45 EF GETB 6232 S001E46 86 MULT R6 6233 S001E47 50 ADD R0 6234 S001E48 50 ADD R0 6235 S001E49 C0 HIB 6236 S001E4A 95 SEX 6237 S001E4B 3D A4 62 LMS R4,CPLCMKI 6238 S001E4E E4 DEC R4 6239 S001E4F 0B 0A' BMI BERO_CHECK_00103 6240 S001E51 01 NOP 6241 ; 6242 S001E52 3D A4 E7 LMS R4,CKOOPA_FG 6243 S001E55 E4 DEC R4 6244 S001E56 0A 03' BPL BERO_CHECK_00103 6245 S001E58 01 NOP 6246 ; 6247 S001E59 4F NOT 6248 S001E5A D0 INC R0 6249 BERO_CHECK_00103 6250 S001E5B 3D A4 46 LMS R4,CPLXPSL 6251 S001E5E 14 TO R4 ;(R4) <-- ターゲットＸ座標 6252 S001E5F 54 ADD R4 6253 ; 6254 S001E60 F0 0080 IWT R0,#040H*2 ;[ IWT R14,#LSIN ] 6255 S001E63 1E TO R14 6256 S001E64 5E ADD R14 6257 S001E65 EF GETB 6258 S001E66 86 MULT R6 6259 S001E67 50 ADD R0 6260 S001E68 50 ADD R0 6261 S001E69 C0 HIB 6262 S001E6A 95 SEX 6263 S001E6B 3E 54 ADD #4 6264 S001E6D 3D A6 48 LMS R6,CPLYPSL 6265 S001E70 16 TO R6 ;(R6) <-- ターゲットＹ座標 6266 S001E71 56 ADD R6 6267 ; 6268 S001E72 A0 00" IBT R0,#BANK PLAYER_DATA 6269 S001E74 3F DF ROMB 6270 ; 6271 ;-------------- ターゲット表示 -------------------------- 6272 S001E76 3E A3 71 SMS R3,CPLNAGC ;ターゲットカウンターセット 6273 S001E79 3E A4 72 SMS R4,CPLNAGX ;ターゲットＸ座標セット 6274 S001E7C 3E A6 73 SMS R6,CPLNAGY ; ” Ｙ ” 6275 ; 6276 S001E7F F5 0000" IWT R5,#NAG_P ;(R5) <-- 効果Ｎｏ． 6277 mJSR M_EXINSR ;効果エリア確保 6277+ S001E82 94 LINK #4 6277+ S001E83 FF 2A7B' IWT R15, #M_EXINSR 6277+ S001E86 01 NOP 6278 ; 6279 mSTW R4,CEXXPSL,R1 ;Ｘ座標セット 6279+ S001E87 F0 10A2 IWT R0,#CEXXPSL 6279+ S001E8A 51 ADD R1 6279+ S001E8B B4 FROM R4 6279+ S001E8C 30 STW (R0) 6280 mSTW R6,CEXYPSL,R1 ;Ｙ ” 6280+ S001E8D F0 1142 IWT R0,#CEXYPSL 6280+ S001E90 51 ADD R1 6280+ S001E91 B6 FROM R6 6280+ S001E92 30 STW (R0) 6281 S001E93 3D A5 46 LMS R5,CPLXPSL 6282 mSTW R5,CEXWRK4,R1 ;基準Ｘ座標セット 6282+ S001E96 F0 1E8C IWT R0,#CEXWRK4 6282+ S001E99 51 ADD R1 6282+ S001E9A B5 FROM R5 6282+ S001E9B 30 STW (R0) 6283 mSTW R2,CEXTIM0,R1 ;初期タイマーセット 6283+ S001E9C F0 1782 IWT R0,#CEXTIM0 6283+ S001E9F 51 ADD R1 6283+ S001EA0 B2 FROM R2 6283+ S001EA1 30 STW (R0) 6284 S001EA2 A0 20 IBT R0,#020H 6285 S001EA4 63 SUB R3 6286 S001EA5 0D 03' BCS BERO_CHECK_001050 6287 S001EA7 53 ADD R3 6288 ; 6289 S001EA8 20 13 MOVE R3,R0 6290 BERO_CHECK_001050 6291 mSTW R3,CEXWRK0,R1 ;ターゲットカウンターセット 6291+ S001EAA F0 1E4C IWT R0,#CEXWRK0 6291+ S001EAD 51 ADD R1 6291+ S001EAE B3 FROM R3 6291+ S001EAF 30 STW (R0) 6292 mLDW R5,CEXCLOR,R1 6292+ S001EB0 F0 1002 IWT R0,#CEXCLOR 6292+ S001EB3 51 ADD R1 6292+ S001EB4 15 TO R5 6292+ S001EB5 40 LDW (R0) 6293 ; 6294 S001EB6 A4 01 IBT R4,#01H ;(R4) <-- ターゲットタイプ 6295 mSTW R4,CEXWRK2,R1 ;ターゲットタイプセット 6295+ S001EB8 F0 1E4E IWT R0,#CEXWRK2 6295+ S001EBB 51 ADD R1 6295+ S001EBC B4 FROM R4 6295+ S001EBD 30 STW (R0) 6296 S001EBE 3D F0 1974 LM R0,CFRCNT2 6297 S001EC2 3E 74 AND #04H 6298 S001EC4 03 LSR 6299 S001EC5 3E 52 ADD #01H<<1 ;[ カラー１ｏｒ２ ] 6300 S001EC7 15 TO R5 6301 S001EC8 C5 OR R5 6302 mSTW R5,CEXCLOR,R1 ;カラーセット 6302+ S001EC9 F0 1002 IWT R0,#CEXCLOR 6302+ S001ECC 51 ADD R1 6302+ S001ECD B5 FROM R5 6302+ S001ECE 30 STW (R0) 6303 ; 6304 S001ECF 23 10 MOVE R0,R3 ;(R0) <-- ターゲットカウンター 6305 ; 6306 S001ED1 E2 DEC R2 6307 S001ED2 08 25' BNE BERO_CHECK_00108 ;タマゴ投げる？ ( yes:BERO_CHECK_00108 ) 6308 S001ED4 60 SUB R0 ;[ ロックオンフラグリセット ] 6309 ; 6310 ;-------------- 投げパワーｕｐ -------------------------- 6311 S001ED5 3D A0 70 LMS R0,CPLNAGP 6312 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 6313 S001ED8 F1 0280 IWT R1,#(((08H*(48H-30H))+0FFH)&0FF00H)+(30H*8) ;[ 48H-30H:ターゲート長さの差 ] 6314 ELSE ;**** PAL 対応 [1995/7/19] ***************************** 6315 IWT R1,#(((08H*(48H-30H))+0FFH)&0FF00H)+(30H*5/4*8) ;[ 48H-30H:ターゲート長さの差 ] 6316 ENDIF 6317 S001EDB 61 SUB R1 6318 S001EDC 0C 04' BCC BERO_CHECK_00106 ;パワーＭＡＸ？ ( yes:BERO_CHECK_00106 ) 6319 S001EDE 51 ADD R1 6320 ; 6321 S001EDF F0 0100 IWT R0,#(((08H*(48H-30H))+0FFH)&0FF00H) 6322 BERO_CHECK_00106 6323 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 6324 S001EE2 A5 30 IBT R5,#030H ;[ 030H : パワー加算値 ] 6325 ELSE ;**** PAL 対応 [1995/7/19] ***************************** 6326 IBT R5,#030H*5/4 ;[ 030H*5/4 : パワー加算値 ] 6327 ENDIF 6328 S001EE4 55 ADD R5 6329 S001EE5 3E A0 70 SMS R0,CPLNAGP 6330 ; 6331 S001EE8 E0 DEC R0 6332 S001EE9 11 TO R1 6333 S001EEA C0 HIB 6334 S001EEB 9E LOB 6335 S001EEC 65 SUB R5 ;[ 030H : パワー加算値 ] 6336 S001EED 0D 06' BCS BERO_CHECK_00107 ;サウンドセット？ ( no:BERO_CHECK_00107 ) 6337 S001EEF 01 NOP 6338 ; 6339 S001EF0 A0 09 IBT R0,#09H ;[♪] 6340 S001EF2 3E A0 3D SMS R0,CMSOUND3 6341 ; 6342 BERO_CHECK_00107 6343 mDJMP BERO_CHECK_3000 6343+ S001EF5 FF 2251' IWT R15, #BERO_CHECK_3000 6343+ S001EF8 01 NOP 6344 ; 6345 ;-------------- 投げパターンセット ------------------------------ 6346 BERO_CHECK_00108 6347 ;;;; SUB R0 ;[ IBT R0,#0 ] 6348 ;;;; SMS R0,CPLNAGL ;ロックオンフラグリセット 6349 ; 6350 BERO_CHECK_0011 6351 S001EF9 3D A0 6F LMS R0,CPLNAGE 6352 S001EFC E0 DEC R0 ;-1 6353 S001EFD 1E TO R14 ;[ * not break (R0) ] 6354 S001EFE 3E 62 SUB #2 6355 S001F00 08 06' BNE BERO_CHECK_00110 ;サウンドセット？ ( no:BERO_CHECK_00110 ) 6356 S001F02 90 SBK ;[ SMS R0,CPLNAGE ] タマゴ投げフラグセット 6357 ; 6358 S001F03 AE 4A IBT R14,#04AH ;[♪] 6359 S001F05 3E AE 3D SMS R14,CMSOUND3 6360 BERO_CHECK_00110 6361 S001F08 FE 0000" IWT R14,#NAGE_PATN_TMDT 6362 S001F0B 1E TO R14 6363 S001F0C 5E ADD R14 6364 S001F0D EF GETB 6365 S001F0E 3E A0 F1 SMS R0,CPNAGTM ;タイマーセット 6366 ; 6367 BERO_CHECK_0012 6368 mDJMP BERO_CHECK_3000 6368+ S001F11 FF 2251' IWT R15, #BERO_CHECK_3000 6368+ S001F14 01 NOP 6369 ; 6370 BERO_CHECK_0014 6371 S001F15 23 B3 MOVES R3,R3 6372 S001F17 09 39' BEQ BERO_CHECK_0016 ;口に入れてる？ ( no:BERO_CHECK_0016 ) 6373 S001F19 01 NOP 6374 ; 6375 S001F1A 0B 36' BMI BERO_CHECK_0016 ;飲み込めない？ ( yes:BERO_CHECK_0016 ) 6376 S001F1C 01 NOP 6377 ; 6378 ;-------------- 口に入れてる敵ショットチェック ------------------ 6379 S001F1D E4 DEC R4 6380 S001F1E 0A 16' BPL BERO_CHECK_001500 ;スペシャルショット？ ( yes:BERO_CHECK_001500 ) 6381 S001F20 D4 INC R4 6382 ; 6383 ;-------------- ２度押しモード -------------------------- 6384 S001F21 3D A0 39 LMS R0,CMKEYC2L ;(R0) <-- コントローラー情報（トリガー） 6385 S001F24 3D A1 44 LMS R1,CP_KEY_BERO ;(R1) <-- 舌ショットボタン情報 6386 S001F27 71 AND R1 6387 S001F28 09 05' BEQ BERO_CHECK_0015F ;敵ショット？ ( no:BERO_CHECK_0015F ) 6388 S001F2A 01 NOP 6389 ; 6390 BERO_CHECK_0015 6391 mDJMP BERO_CHECK_0022 6391+ S001F2B FF 1FCB' IWT R15, #BERO_CHECK_0022 6391+ S001F2E 01 NOP 6392 ; 6393 ;-------------- 飲み込みチェック -------------------------------- 6394 BERO_CHECK_0015F 6395 S001F2F 3D A0 F7 LMS R0,CEAT_WAIT 6396 S001F32 E0 DEC R0 6397 S001F33 0B 0B' BMI BERO_CHECK_00150 ;自動飲み込み？ ( yes:BERO_CHECK_00150 ) 6398 S001F35 01 NOP 6399 ; 6400 BERO_CHECK_001500 6401 S001F36 3D A1 38 LMS R1,CMKEYC1L ;(R1) <-- コントローラー情報（連続） 6402 S001F39 F0 0400 IWT R0,#00000100B*100H 6403 S001F3C 71 AND R1 6404 S001F3D 09 13' BEQ BERO_CHECK_0016 ;下キー入力？ ( no:BERO_CHECK_0016 ) 6405 S001F3F 01 NOP 6406 ; 6407 ;-------------- 飲み込む！！ ---------------------------- 6408 BERO_CHECK_00150 6409 S001F40 E4 DEC R4 6410 S001F41 0A 0F' BPL BERO_CHECK_0016 ;スペシャルショット？ ( yes:BERO_CHECK_0016 ) 6411 S001F43 D4 INC R4 6412 ; 6413 S001F44 A3 00 IBT R3,#0 ;飲み込みへ 6414 S001F46 3E A3 B4 SMS R3,CEATSTP 6415 S001F49 A2 07" IBT R2,#EATEND+7 ;飲み込みデモへ 6416 S001F4B 3E A2 A8 SMS R2,CBERFLG 6417 mDJMP BERO_CHECK_1500 6417+ S001F4E FF 20B9' IWT R15, #BERO_CHECK_1500 6417+ S001F51 01 NOP 6418 ; 6419 ;-------------- 口に入れて無い時の舌ショットチェック ------------ 6420 BERO_CHECK_0016 6421 S001F52 3D A1 39 LMS R1,CMKEYC2L ;(R1) <-- コントローラー情報（トリガー） 6422 S001F55 3D A0 43 LMS R0,CP_KEY_MNAG ;(R1) <-- ＭＡＸ投げボタン情報 6423 S001F58 71 AND R1 6424 S001F59 09 68' BEQ BERO_CHECK_0020 ;ＭＡＸ投げ？ ( no:BERO_CHECK_0020 ) 6425 S001F5B 01 NOP 6426 ; 6427 S001F5C 3D A0 63 LMS R0,CPLSWIM 6428 S001F5F E0 DEC R0 6429 S001F60 0A 2A' BPL BERO_CHECK_0018 ;泳ぎ中？ ( yes:BERO_CHECK_0018 ) 6430 S001F62 01 NOP 6431 ; 6432 S001F63 3D F0 1DF6 LM R0,CEGGPNT 6433 S001F67 9E LOB 6434 S001F68 09 22' BEQ BERO_CHECK_0018 ;タマゴ持ってる？ ( no:BERO_CHECK_0018 ) 6435 S001F6A 01 NOP 6436 ; 6437 ;-------------- タマゴ投げ初期セット ---------------------------- 6438 S001F6B 3D F1 1DF8 LM R1,CEGGLNK ;(R1) <-- 一番タマゴの敵インデックス 6439 mLDW0 CENMYNO,R1 6439+ S001F6F F0 1360 IWT R0,#CENMYNO 6439+ S001F72 51 ADD R1 6439+ S001F73 40 LDW (R0) 6440 S001F74 F7 0000" IWT R7,#DRKEY 6441 S001F77 67 SUB R7 6442 S001F78 09 12' BEQ BERO_CHECK_0018 ;カギ？ ( yes:BERO_CHECK_0018 ) 6443 S001F7A 01 NOP 6444 ; 6445 mSFCALL EGG_KILL ;タマゴオプション解除 6445+ S001F7B A0 08 IBT R0,#EGG_KILL 6445+ S001F7D 00 STOP 6445+ S001F7E 01 NOP 6446 ; 6447 S001F7F A0 1A IBT R0,#01AH ;[♪] 6448 S001F81 3E A0 3D SMS R0,CMSOUND3 6449 ; 6450 S001F84 F0 19D8 IWT R0,#CENWRK4 ;タマゴ投げられフラグセット 6451 S001F87 11 TO R1 6452 S001F88 51 ADD R1 6453 S001F89 A0 FF IBT R0,#0FFH 6454 S001F8B 31 STW (R1) 6455 ; 6456 BERO_CHECK_0018 6457 S001F8C 3E A0 76 SMS R0,CPLNAGE_EGG ;空振りフラグセット 6458 ; 6459 S001F8F A0 0A IBT R0,#NAGE_P ;タマゴ投げフラグセット 6460 S001F91 3E A0 6F SMS R0,CPLNAGE 6461 S001F94 A0 01 IBT R0,#01H ;タマゴ投げパターン切り替えタイマーセット 6462 S001F96 3E A0 F1 SMS R0,CPNAGTM 6463 S001F99 60 SUB R0 ;[ IBT R0,#0 ] 6464 S001F9A 3E A0 74 SMS R0,CPLNAGR ;タマゴ投げキャンセルカウンターリセット 6465 S001F9D 3E A0 75 SMS R0,CPLNAGL ;ロック解除 6466 S001FA0 3E A0 6D SMS R0,CPLKAID ;階段歩きキャンセル 6467 ; 6468 ;;;; IWT R7,#022H*2*040H 6469 S001FA3 F7 0400 IWT R7,#08H*2*040H 6470 S001FA6 3D F0 0071 LM R0,CMKEYC1 6471 S001FAA 3E 78 AND #00001000B 6472 S001FAC 09 04' BEQ BERO_CHECK_00180 ;前投げ？ ( yes:BERO_CHECK_00180 ) 6473 S001FAE 01 NOP 6474 ; 6475 S001FAF F7 2E00 IWT R7,#05CH*2*040H ;上投げ 6476 BERO_CHECK_00180 6477 S001FB2 60 SUB R0 ;[ INT R0,#0 ] 6478 S001FB3 3E A0 70 SMS R0,CPLNAGP 6479 S001FB6 3E A7 77 SMS R7,CPLNAGE_ANG ;ターゲット角度リセット 6480 S001FB9 F0 FF40 IWT R0,#-0C0H 6481 S001FBC 3E A0 78 SMS R0,CPLNAGE_AMK ;ターゲット角度回転向きリセット 6482 ; 6483 mDJMP BERO_CHECK_3000 6483+ S001FBF FF 2251' IWT R15, #BERO_CHECK_3000 6483+ S001FC2 01 NOP 6484 ; 6485 ;---------------------------------------------------------------- 6486 ;- 舌ショットチェック - 6487 ;---------------------------------------------------------------- 6488 BERO_CHECK_0020 6489 S001FC3 3D A0 44 LMS R0,CP_KEY_BERO ;(R0) <-- 舌ショットボタン情報 6490 S001FC6 12 TO R2 6491 S001FC7 71 AND R1 6492 S001FC8 09 05' BEQ BERO_CHECK_0030 ;舌ショット？ ( no:BERO_CHECK_0030 ) 6493 S001FCA 01 NOP 6494 ; 6495 BERO_CHECK_0022 6496 mDJMP BERO_CHECK_0500 6496+ S001FCB FF 1FDF' IWT R15, #BERO_CHECK_0500 6496+ S001FCE 01 NOP 6497 ; 6498 ;---------------------------------------------------------------- 6499 ;- 食べれるＢＧチェックオートチェック - 6500 ;---------------------------------------------------------------- 6501 BERO_CHECK_0030 6502 S001FCF 3D A0 A5 LMS R0,CPROTSP 6503 S001FD2 3E 60 SUB #0 6504 S001FD4 09 05' BEQ BERO_CHECK_0031 ;回転中？ ( no:BERO_CHECK_0031 ) 6505 S001FD6 01 NOP 6506 ; 6507 mDJMP BERO_CHECK_3000 6507+ S001FD7 FF 2251' IWT R15, #BERO_CHECK_3000 6507+ S001FDA 01 NOP 6508 ; 6509 BERO_CHECK_0031 6510 ;;;; IWT R0,#1111100000000000B 6511 ;;;; AND R7 6512 ;;;; IWT R2,#ET 6513 ;;;; TO R2 6514 ;;;; SUB R2 6515 ;;;; BEQ BERO_CHECK_0033 ;食べれるＢＧ？ ( yes:BERO_CHECK_0033 ) 6516 ;;;; INC R2 ;[ INT R2,#01H ] 6517 ;;;;; 6518 ;;;;;-------------- 上のＢＧが食べれるか調べる ---------------------- 6519 ;;;; LMS R0,CPLCMKI 6520 ;;;; ADD R0 ;[ 0 <- 0 , 4 <- 2 ] 6521 ;;;; BNE BERO_CHECK_0032 6522 ;;;; NOP ;[ (Z)=1 : IBT R0,#4 ] 6523 ;;;;; 6524 ;;;; IBT R0,#-4 6525 ;;;;BERO_CHECK_0032 6526 ;;;; LMS R8,CBRCNTX 6527 ;;;; TO R8 ;(R8) <-- 舌のＸ座標 6528 ;;;; ADD R8 6529 ;;;;; 6530 ;;;; LMS R0,CBRCNTY ;(R0) <-- ”Ｙ ” 6531 ;;;; SUB #8 6532 ;;;;; 6533 ;;;; mJSR_X BGUNIT_READ_S+1 ;ＢＧユニットＮｏ．読み込み 6534 ;;;;;;;; TO R7 6535 ;;;; HEX 3D ;[ LMS R6,CBG2OF_FG ] 6536 ;;;;; 6537 ;;;;; (R7) <-- BG unit no. type return !! 6538 ;;;;; 6539 ;;;; IWT R0,#1111100000000000B 6540 ;;;; AND R7 6541 ;;;; IWT R2,#ET 6542 ;;;; SUB R2 6543 ;;;; BNE BERO_CHECK_0040 ;食べれるＢＧ？ ( no:BERO_CHECK_0040 ) 6544 ;;;; NOP 6545 ;;;;; 6546 ;;;; IBT R2,#03H 6547 ;;;;BERO_CHECK_0033 6548 ;;;; MOVES R3,R3 6549 ;;;; BNE BERO_CHECK_0036 ;口に入れてる？ ( yes:BERO_CHECK_0036 ) 6550 ;;;; NOP 6551 ;;;;; 6552 ;;;;BERO_CHECK_0034 6553 ;;;; mDJMP BERO_CHECK_0550 6554 ;;;;; 6555 ;;;;BERO_CHECK_0036 6556 ;;;; mDJMP BERO_CHECK_0048 6557 ; 6558 ;---------------------------------------------------------------- 6559 ;- 敵自動食べチェック - 6560 ;---------------------------------------------------------------- 6561 ;;;;BERO_CHECK_0040 6562 ;;;; LMS R1,CEATOK 6563 ;;;; DEC R1 6564 ;;;; BMI BERO_CHECK_0041 ;敵食べれる？ ( no:BERO_CHECK_0041 ) 6565 ;;;; NOP 6566 ;;;;; 6567 ;;;; mLDB0 CENMODE,R1 6568 ;;;; IBT R2,#CEMOVE 6569 ;;;; SUB R2 6570 ;;;; BEQ BERO_CHECK_0042 ;敵健在？ ( yes:BERO_CHECK_0042 ) 6571 ;;;; NOP 6572 ;;;;; 6573 ;;;;BERO_CHECK_0041 6574 mDJMP BERO_CHECK_3000 6574+ S001FDB FF 2251' IWT R15, #BERO_CHECK_3000 6574+ S001FDE 01 NOP 6575 ; 6576 ;;;;BERO_CHECK_0042 6577 ;;;; IBT R2,#01H ;(R2) <-- 舌フラグセットデータ 6578 ;;;;; 6579 ;;;; MOVES R8,R8 6580 ;;;; BEQ BERO_CHECK_0045 ;口に入れてる？ ( no:BERO_CHECK_0045 ) 6581 ;;;; NOP 6582 ;;;;; 6583 ;;;; FROM R4 6584 ;;;; SUB #3 6585 ;;;; BNE BERO_CHECK_0048 ;スイカの種スペシャルショット？ ( no:BERO_CHECK_0048 ) 6586 ;;;; NOP 6587 ;;;;; 6588 ;;;; mLDW0 CENMYNO,R1 6589 ;;;; IWT R3,#SUIKA 6590 ;;;; SUB R3 6591 ;;;; BNE BERO_CHECK_0048 ;スイカ？ ( no:BERO_CHECK_0048 ) 6592 ;;;; INC R1 6593 ;;;;; 6594 ;;;; IBT R3,#30 6595 ;;;; mLDW0 CENCHPT-1,R1 6596 ;;;; DEC R0 6597 ;;;; BMI BERO_CHECK_0043 ;噛りスイカ？ ( no:BERO_CHECK_0043 ) 6598 ;;;; NOP 6599 ;;;;; 6600 ;;;; IBT R3,#3 6601 ;;;;BERO_CHECK_0043 6602 ;;;; LMS R0,CSUIKA_NO ;スイカの種の数セット 6603 ;;;; ADD R3 6604 ;;;; SBK ;[ SMS R0,CSUIKA_NO ] 6605 ;;;;; 6606 ;;;; SMS R1,CEATFLG ;食べてるフラグリセット 6607 ;;;; SMS R1,CEATSTP ;口に入れてるフラグリセット 6608 ;;;; DEC R1 6609 ;;;; IBT R3,#CEEATM 6610 ;;;; mSTW R3,CENMODE,R1 6611 ;;;; mLDW0 CENMOD2,R1 6612 ;;;; BIC #00001100B ;[ AND #0FFF3H ] 6613 ;;;; SBK ;[ mSTW R0,CENMOD2,R1 ] 6614 ;;;; IBT R8,#0 6615 ;;;; SMS R8,CEATSPF ;スペシャルショットフラグリセット 6616 ;;;; IBT R3,#0 6617 ;;;; mDJMP BERO_CHECK_0550 6618 ;;;;; 6619 ;;;;BERO_CHECK_0045 6620 ;;;; mLDW0 CENMOD0,R1 6621 ;;;; IWT R5,#1100000000000000B 6622 ;;;; AND R5 6623 ;;;; IWT R5,#1000000000000000B 6624 ;;;; TO R5 6625 ;;;; SUB R5 6626 ;;;; BNE BERO_CHECK_0048 ;ヨコ当たりで蹴られる？ ( no:BERO_CHECK_0048 ) 6627 ;;;; NOP 6628 ;;;;; 6629 ;;;; mLDW0 CENMOD1,R1 6630 ;;;; MOVE R5,R0 6631 ;;;; IWT R1,#0110000000000000B 6632 ;;;; AND R1 6633 ;;;; SUB R1 ;(Z) set 6634 ;;;;; 6635 ;;;; BEQ BERO_CHECK_0550 ;アイテム？ ( yes:BERO_CHECK_0550 ) 6636 ;;;; NOP 6637 ;;;;; 6638 ;;;; MOVES R5,R5 6639 ;;;; BMI BERO_CHECK_0550 ;飲み込む？ ( yes:BERO_CHECK_0550 ) 6640 ;;;; NOP 6641 ;;;;; 6642 ;;;;BERO_CHECK_0048 6643 ;;;; mDJMP BERO_CHECK_3000 6644 ; 6645 ;------------------------------------------------------------------------ 6646 ;- 舌ショットセット - 6647 ;------------------------------------------------------------------------ 6648 BERO_CHECK_0500 6649 S001FDF 3D F0 0071 LM R0,CMKEYC1 ;(R0) <-- コントローラー情報（連続） 6650 S001FE3 12 TO R2 6651 S001FE4 3E 78 AND #00001000B 6652 S001FE6 09 03' BEQ BERO_CHECK_0550 ;上キー入力？ ( no:BERO_CHECK_0550 ) 6653 S001FE8 D2 INC R2 ;[ IBT R2,#01H ] 6654 ; 6655 S001FE9 A2 03 IBT R2,#03H 6656 BERO_CHECK_0550 6657 S001FEB 3E A2 A8 SMS R2,CBERFLG ;舌ショット”ＯＮ” 6658 ; 6659 S001FEE 60 SUB R0 ;[ IBT R0,#0 ] 6660 S001FEF 3E A0 B0 SMS R0,CBERO_BIRI ;ビリビリフラグキャンセル 6661 S001FF2 3E A0 61 SMS R0,CPLSITD ;しゃがみキャンセル 6662 S001FF5 3E A0 6D SMS R0,CPLKAID ;階段歩きキャンセル 6663 S001FF8 23 B3 MOVES R3,R3 6664 S001FFA 08 19' BNE BERO_CHECK_0600 ;口に入れてる？ ( yes:BERO_CHECK_0600 ) 6665 S001FFC 01 NOP 6666 ; 6667 S001FFD A0 3E IBT R0,#3EH ;[♪] 6668 S001FFF 3E A0 3D SMS R0,CMSOUND3 6669 ; 6670 ;-------------- 口に入れて無い時のショット初期チェック ------------------ 6671 S002002 B7 FROM R7 6672 S002003 3E 72 AND #AL 6673 S002005 08 05' BNE BERO_CHECK_0560 ;ＢＧ当たり？ ( yes:BERO_CHECK_0560 ) 6674 S002007 01 NOP 6675 ; 6676 mDJMP BERO_CHECK_1050 6676+ S002008 FF 20B3' IWT R15, #BERO_CHECK_1050 6676+ S00200B 01 NOP 6677 ; 6678 ;-------------- ＢＧ当たって口開けるだけセット ------------------ 6679 BERO_CHECK_0560 6680 S00200C A0 0A IBT R0,#02H+08H 6681 S00200E 3E A0 F0 SMS R0,CPSHOTM ;ショットデモタイマーセット 6682 mDJMP BERO_CHECK_2250 6682+ S002011 FF 21A9' IWT R15, #BERO_CHECK_2250 6682+ S002014 01 NOP 6683 ; 6684 ;-------------- 口に入れてる時のショット初期チェック -------------------- 6685 BERO_CHECK_0600 6686 S002015 E4 DEC R4 6687 S002016 0B 3B' BMI BERO_CHECK_0750 ;スペシャルショット？ ( no:BERO_CHECK_0750 ) 6688 S002018 D4 INC R4 6689 ; 6690 ;-------------- スペシャルショットセット ------------------------ 6691 S002019 3D A0 63 LMS R0,CPLSWIM 6692 S00201C E0 DEC R0 6693 S00201D 0B 08' BMI BERO_CHECK_0602 ;泳いでる？ ( no:BERO_CHECK_0602 ) 6694 S00201F 60 SUB R0 ;[ IBT R0,#0 ] 6695 ; 6696 S002020 3E A0 A8 SMS R0,CBERFLG ;舌ショット”ＯＦＦ” 6697 mDJMP BERO_CHECK_3000 6697+ S002023 FF 2251' IWT R15, #BERO_CHECK_3000 6697+ S002026 01 NOP 6698 ; 6699 BERO_CHECK_0602 vvv******* warn :value out of range 6700 S002027 F0 BE00 IWT R0,#CHR64+1F0H*20H ;ファイヤーショットキャラ転送フラグセット 6701 S00202A E4 DEC R4 6702 S00202B 09 0A' BEQ BERO_CHECK_0610 ;ファイヤーショット？ ( yes:BERO_CHECK_0610 ) 6703 S00202D D4 INC R4 6704 ; 6705 S00202E B4 FROM R4 6706 S00202F 3E 64 SUB #4 6707 S002031 08 13' BNE BERO_CHECK_0700 ;凍らせショット？ ( no:BERO_CHECK_0700 ) 6708 S002033 01 NOP 6709 ; vvv******* warn :value out of range 6710 S002034 F0 BA00 IWT R0,#CHR64+1D0H*20H ;凍らせショットキャラ転送フラグセット 6711 BERO_CHECK_0610 6712 S002037 3E A0 8A SMS R0,CPCHTRF 6713 S00203A 3D A0 AD LMS R0,CBRCNTX ;ファイヤーＸ座標セット 6714 S00203D 3E A0 B9 SMS R0,CFIRSHX 6715 S002040 3D A0 AE LMS R0,CBRCNTY ;ファイヤーＹ座標セット 6716 S002043 3E A0 BA SMS R0,CFIRSHY 6717 ; 6718 BERO_CHECK_0700 6719 S002046 B4 FROM R4 6720 S002047 3E 63 SUB #3 6721 ;;;; BEQ BERO_CHECK_0710 ;スイカショット？ ( yes:BERO_CHECK_0710 ) 6722 S002049 08 04' BNE BERO_CHECK_0710 ;スイカショット？ ( no:BERO_CHECK_0710 ) 6723 S00204B 60 SUB R0 ;[ IBT R0,#0 ] 6724 ; 6725 ;;;; IBT R2,#01H ;舌ショットフラグセット（横向き） 6726 ;;;; SMS R2,CBERFLG 6727 ;;;; mDJMP BERO_CHECK_3000 6728 ;;;;; 6729 ;;;;BERO_CHECK_0710 6730 S00204C 3E A0 B9 SMS R0,CSUIKA_PT ;スイカの種ショット方向カウンターリセット 6731 BERO_CHECK_0710 6732 mDJMP BERO_CHECK_3000 6732+ S00204F FF 2251' IWT R15, #BERO_CHECK_3000 6732+ S002052 01 NOP 6733 ; 6734 ;-------------- 普通のショット ---------------------------------- 6735 BERO_CHECK_0750 6736 S002053 B7 FROM R7 6737 S002054 3E 72 AND #AL 6738 S002056 09 05' BEQ BERO_CHECK_0752 ;ＢＧ当たり？ ( no:BERO_CHECK_0752 ) 6739 S002058 01 NOP 6740 ; 6741 mDJMP BERO_CHECK_0900 6741+ S002059 FF 20A1' IWT R15, #BERO_CHECK_0900 6741+ S00205C 01 NOP 6742 ; 6743 ;-------------- 口に入れてる時のショットセット ------------------ 6744 BERO_CHECK_0752 6745 S00205D A8 00 IBT R8,#0 ;(R8) <-- 食べるてるフラグリセット 6746 S00205F 3E A8 B1 SMS R8,CEATFLG 6747 ; 6748 S002062 FC 0180 IWT R12,#00180H ;上ショットＸスピード 6749 S002065 FD FC80 IWT R13,#0FC80H ; ” Ｙスピード 6750 S002068 E2 DEC R2 6751 S002069 08 0F' BNE BERO_CHECK_0800 ;上にショット？ ( yes:BERO_CHECK_0800 ) 6752 S00206B D2 INC R2 6753 ; 6754 S00206C FC 0280 IWT R12,#00280H ;前ショットＸスピード 6755 S00206F FD 0080 IWT R13,#00080H ; ” Ｙスピード 6756 S002072 3D A0 62 LMS R0,CPLCMKI 6757 S002075 E0 DEC R0 6758 S002076 0A 02' BPL BERO_CHECK_0800 6759 S002078 D0 INC R0 6760 ; 6761 S002079 D0 INC R0 ;[ IBT R0,#01H ] 6762 ; 6763 ;-------------- ノーマルショット ---------------------------------------- 6764 BERO_CHECK_0800 6765 S00207A 3D A0 62 LMS R0,CPLCMKI 6766 S00207D E0 DEC R0 6767 S00207E 0B 03' BMI BERO_CHECK_0810 6768 S002080 2C WITH R12 6769 ; 6770 S002081 4F NOT 6771 S002082 DC INC R12 6772 BERO_CHECK_0810 6773 S002083 3E AC 72 SMS R12,CPLNAGX ;ショットＸスピードセット 6774 S002086 3E AD 73 SMS R13,CPLNAGY ;ショットＹスピードセット 6775 ; 6776 BERO_CHECK_0840 6777 ;;;; IBT R2,#03H 6778 ;;;; SMS R2,CBERFLG ;上ショット”ＯＮ” 6779 ; 6780 BERO_CHECK_0850 6781 S002089 22 10 MOVE R0,R2 ;舌ショットフラグ x2 6782 S00208B E0 DEC R0 ; 6783 S00208C 50 ADD R0 ; 6784 S00208D 3D AE 62 LMS R14,CPLCMKI 6785 S002090 CE OR R14 6786 S002091 FE 0000" IWT R14,#EAT_OFST_POS 6787 S002094 1E TO R14 6788 S002095 5E ADD R14 6789 S002096 3F EF GETBS 6790 S002098 DE INC R14 6791 S002099 3E A0 B2 SMS R0,CEATOFX ;食べたもののオフセットＸ位置セット 6792 S00209C 3F EF GETBS 6793 S00209E 3E A0 B3 SMS R0,CEATOFY ;食べたもののオフセットＹ位置セット 6794 ; 6795 BERO_CHECK_0900 6796 S0020A1 F1 0056 IWT R1,#BE0D ;(R1) <-- ショットパターンＮｏ． 6797 S0020A4 3D A0 63 LMS R0,CPLSWIM 6798 S0020A7 E0 DEC R0 6799 S0020A8 0B 04' BMI BERO_CHECK_1000 ;泳いでる？ ( no:BERO_CHECK_1000 ) 6800 S0020AA 01 NOP 6801 6802 S0020AB F1 0064 IWT R1,#SB08 ;(R1) <-- ショットパターンＮｏ．（泳いでる時） 6803 BERO_CHECK_1000 6804 S0020AE 3E A1 5F SMS R1,CPLPATN ;パターンＮｏ．セット 6805 ; 6806 S0020B1 A0 0A IBT R0,#02H+08H ;(R0) <-- ショットデモタイマー 6807 BERO_CHECK_1050 6808 S0020B3 3E A0 F0 SMS R0,CPSHOTM ;ショットデモタイマーセット 6809 S0020B6 05 04' BRA BERO_CHECK_1550 6810 S0020B8 01 NOP 6811 ; 6812 ;-------------- 舌ショット処理 ------------------------------------------ 6813 BERO_CHECK_1500 6814 S0020B9 3D A0 F0 LMS R0,CPSHOTM 6815 BERO_CHECK_1550 6816 S0020BC 21 B0 MOVES R1,R0 ;(R1) <-- ショットデモタイマー 6817 S0020BE 08 45' BNE BERO_CHECK_1800 ;ショットデモ？ ( yes:BERO_CHECK_1800 ) 6818 S0020C0 01 NOP 6819 ; 6820 S0020C1 E8 DEC R8 6821 S0020C2 0B 1C' BMI BERO_CHECK_1650 ;食べてる？ ( no:BERO_CHECK_1650 ) 6822 S0020C4 D8 INC R8 6823 ; 6824 S0020C5 24 B4 MOVES R4,R4 6825 S0020C7 09 08' BEQ BERO_CHECK_1600 ;スペシャルショット？ ( no:BERO_CHECK_1600 ) 6826 S0020C9 01 NOP 6827 ; 6828 ;-------------- スペシャルショット ------------------------------ 6829 S0020CA 3D AB 31 LMS R11,RTS1 6830 mDJMP EAT_SP_SHOT 6830+ S0020CD FF 2256' IWT R15, #EAT_SP_SHOT 6830+ S0020D0 01 NOP 6831 ; 6832 ;-------------- 食べてるものショットできるかチェック ------------ 6833 BERO_CHECK_1600 6834 S0020D1 B7 FROM R7 6835 S0020D2 3E 72 AND #AL 6836 S0020D4 09 42' BEQ BERO_CHECK_2000 ;ＢＧ当たり？ ( no:BERO_CHECK_2000 ) 6837 S0020D6 01 NOP 6838 ; 6839 S0020D7 23 B3 MOVES R3,R3 6840 S0020D9 08 1C' BNE BERO_CHECK_1750 ;口に入れてる？ ( yes:BERO_CHECK_1750 ) 6841 S0020DB 01 NOP 6842 ; 6843 mDJMP BERO_CHECK_2000 6843+ S0020DC FF 2118' IWT R15, #BERO_CHECK_2000 6843+ S0020DF 01 NOP 6844 ; 6845 BERO_CHECK_1650 6846 S0020E0 B7 FROM R7 6847 S0020E1 3E 72 AND #AL 6848 S0020E3 09 33' BEQ BERO_CHECK_2000 ;ＢＧ当たり？ ( no:BERO_CHECK_2000 ) 6849 S0020E5 01 NOP 6850 ; 6851 S0020E6 B2 FROM R2 6852 S0020E7 03 LSR 6853 S0020E8 0C 2E' BCC BERO_CHECK_2000 ;舌戻り中？ ( yes:BERO_CHECK_2000 ) 6854 S0020EA 60 SUB R0 ;[ IBT R0,#0 ] 6855 ; 6856 S0020EB 3E A0 5A SMS R0,CPLMVSP ;Ｘスピードクリアー 6857 S0020EE D2 INC R2 6858 S0020EF 3E A2 A8 SMS R2,CBERFLG 6859 S0020F2 A0 01 IBT R0,#1 ;舌グニャフラグセット 6860 S0020F4 3E A0 AF SMS R0,CBERO_GUNYA 6861 BERO_CHECK_1750 6862 S0020F7 3D A0 A9 LMS R0,CBERXPS 6863 S0020FA 3D A1 AA LMS R1,CBERYPS 6864 S0020FD C1 OR R1 6865 S0020FE 08 18' BNE BERO_CHECK_2000 ;舌初期位置？ ( no:BERO_CHECK_2000 ) 6866 S002100 01 NOP 6867 ; 6868 mDJMP_X BERO_CHECK_2550 6868+ S002101 FF 222F' IWT R15, #BERO_CHECK_2550 6869 S002104 60 SUB R0 ;[ * 舌ショットフラグリセット ] 6870 ; 6871 ;-------------- ショットデモ ------------------------------------ 6872 BERO_CHECK_1800 6873 S002105 23 B3 MOVES R3,R3 6874 S002107 09 0B' BEQ BERO_CHECK_1850 ;口に入れてる？ ( no:BERO_CHECK_1850 ) 6875 S002109 01 NOP 6876 ; 6877 S00210A B1 FROM R1 6878 S00210B 3E 67 SUB #08H-1 6879 S00210D 08 05' BNE BERO_CHECK_1850 ;ショットパターンセット？ ( no:BERO_CHECK_1850 ) 6880 S00210F 01 NOP 6881 ; 6882 mDJMP BERO_CHECK_2250 6882+ S002110 FF 21A9' IWT R15, #BERO_CHECK_2250 6882+ S002113 01 NOP 6883 ; 6884 BERO_CHECK_1850 6885 mDJMP BERO_CHECK_3000 6885+ S002114 FF 2251' IWT R15, #BERO_CHECK_3000 6885+ S002117 01 NOP 6886 ; 6887 ;-------------- 舌伸縮セット ------------------------------------ 6888 BERO_CHECK_2000 6889 S002118 B2 FROM R2 6890 S002119 3E 67 SUB #07H 6891 S00211B 0C 05' BCC BERO_CHECK_2010 ;飲み込みデモ？ ( no:BERO_CHECK_2010 ) 6892 S00211D 01 NOP 6893 ; 6894 mDJMP_X BERO_CHECK_2400+1 6894+ S00211E FF 220C' IWT R15, #BERO_CHECK_2400+1 6895 S002121 B2 FROM R2 6896 ; 6897 BERO_CHECK_2010 6898 S002122 3D A0 AF LMS R0,CBERO_GUNYA 6899 S002125 9E LOB 6900 S002126 09 32' BEQ BERO_CHECK_2040 ;舌グニャ？ ( no:BERO_CHECK_2040 ) 6901 S002128 B2 FROM R2 6902 ; 6903 S002129 A1 FF" IBT R1,#BERO_P_END-1 6904 S00212B 61 SUB R1 6905 S00212C 0C 04' BCC BERO_CHECK_2020 ;舌グニャ終了？ ( no:BERO_CHECK_2020 ) 6906 S00212E 51 ADD R1 6907 ; 6908 S00212F 05 23' BRA BERO_CHECK_2030 6909 S002131 60 SUB R0 6910 ; 6911 BERO_CHECK_2020 6912 S002132 3D A1 B0 LMS R1,CBERO_BIRI 6913 S002135 21 WITH R1 6914 S002136 3E 63 SUB #2+1 6915 S002138 0D 12' BCS BERO_CHECK_2022 ;ビリビリ中？ ( yes:BERO_CHECK_2022 ) 6916 S00213A D0 INC R0 ;+1 6917 ; 6918 S00213B A1 00" IBT R1,#BERO_P_RETN 6919 S00213D 61 SUB R1 6920 S00213E 0D 14' BCS BERO_CHECK_2030 6921 S002140 51 ADD R1 6922 ; 6923 S002141 A1 00" IBT R1,#BERO_P_BIRI 6924 S002143 61 SUB R1 6925 S002144 0C 0E' BCC BERO_CHECK_2030 6926 S002146 51 ADD R1 6927 ; 6928 S002147 A0 00" IBT R0,#BERO_P_RETN 6929 S002149 05 09' BRA BERO_CHECK_2030 6930 S00214B 01 NOP 6931 ; 6932 BERO_CHECK_2022 6933 S00214C A1 00" IBT R1,#BERO_P_RETN 6934 S00214E 61 SUB R1 6935 S00214F 0C 03' BCC BERO_CHECK_2030 6936 S002151 51 ADD R1 6937 ; 6938 S002152 A0 00" IBT R0,#BERO_P_BIRI 6939 BERO_CHECK_2030 6940 S002154 3E A0 AF SMS R0,CBERO_GUNYA 6941 S002157 05 50' BRA BERO_CHECK_2250 6942 S002159 01 NOP 6943 ; 6944 BERO_CHECK_2040 6945 S00215A 52 ADD R2 ;x8 6946 S00215B 50 ADD R0 ; 6947 S00215C 3D A1 62 LMS R1,CPLCMKI ;(R1) <-- プレイヤー向き 6948 S00215F C1 OR R1 ; 6949 S002160 50 ADD R0 ; 6950 S002161 FE FFF8" IWT R14,#BERO_SHOT_DT-8 6951 S002164 1E TO R14 6952 S002165 5E ADD R14 6953 S002166 EF GETB 6954 S002167 95 SEX 6955 S002168 09 08' BEQ BERO_CHECK_2050 ;横ショット？ ( no:BERO_CHECK_2050 ) 6956 S00216A DE INC R14 6957 ; 6958 S00216B 3D A1 A9 LMS R1,CBERXPS 6959 S00216E 51 ADD R1 6960 S00216F 05 08' BRA BERO_CHECK_2100 6961 S002171 90 SBK ;[ SMS R0,CBERXPS ] 6962 ; 6963 BERO_CHECK_2050 6964 S002172 3F EF GETBS 6965 S002174 3D A1 AA LMS R1,CBERYPS 6966 S002177 51 ADD R1 6967 S002178 90 SBK ;[ SMS R0,CBERYPS ] 6968 ; 6969 BERO_CHECK_2100 6970 S002179 DE INC R14 6971 S00217A 11 TO R1 6972 S00217B 3F EF GETBS 6973 S00217D 61 SUB R1 6974 S00217E 09 71' BEQ BERO_CHECK_2350 ;ＭＡＸ？ ( yes:BERO_CHECK_2350 ) 6975 S002180 51 ADD R1 6976 ; 6977 S002181 DE INC R14 6978 S002182 11 TO R1 6979 S002183 3F EF GETBS 6980 S002185 61 SUB R1 6981 S002186 3D C1 XOR R1 6982 S002188 50 ADD R0 ;(C) <-- ＭＩＮチェックフラグ 6983 ; 6984 S002189 E8 DEC R8 6985 S00218A 0A 0E' BPL BERO_CHECK_2150 ;食べてる？ ( yes:BERO_CHECK_2150 ) 6986 S00218C D8 INC R8 6987 ; 6988 S00218D 0D 1A' BCS BERO_CHECK_2250 ;ＭＩＮ？ ( no:BERO_CHECK_2250 ) 6989 S00218F 01 NOP 6990 ; 6991 ;-------------- 舌戻りチェック -------------------------- 6992 S002190 3D A5 38 LMS R5,CMKEYC1L ;(R5) <-- コントローラー情報（連続） 6993 S002193 3D A0 44 LMS R0,CP_KEY_BERO ;(R0) <-- 舌ショットボタン情報 6994 S002196 75 AND R5 6995 S002197 08 10' BNE BERO_CHECK_2250 ;舌ショットキー離した？ ( no:BERO_CHECK_2250 ) 6996 S002199 01 NOP 6997 ; 6998 ;-------------- 舌戻りセット -------------------- 6999 BERO_CHECK_2150 7000 S00219A B2 FROM R2 7001 S00219B 03 LSR 7002 S00219C 0C 0B' BCC BERO_CHECK_2250 ;すでに戻ってる？ ( yes:BERO_CHECK_2250 ) 7003 S00219E 01 NOP 7004 ; 7005 BERO_CHECK_2160 7006 S00219F D2 INC R2 ;舌ショットフラグセット 7007 S0021A0 3E A2 A8 SMS R2,CBERFLG 7008 S0021A3 E2 DEC R2 7009 ; 7010 BERO_CHECK_2200 7011 S0021A4 A0 03 IBT R0,#03H ;待ちタイマーセット 7012 S0021A6 3E A0 F0 SMS R0,CPSHOTM 7013 ; 7014 ;-------------- 舌ショットパターンセット ------------------------ 7015 BERO_CHECK_2250 7016 S0021A9 22 10 MOVE R0,R2 7017 S0021AB E0 DEC R0 7018 S0021AC 1E TO R14 7019 S0021AD 3F 71 BIC #01H ;[ AND #0FFFEH ] 7020 ; 7021 S0021AF 3D A1 B0 LMS R1,CBERO_BIRI 7022 S0021B2 E1 DEC R1 7023 S0021B3 0B 26' BMI BERO_CHECK_2260 ;舌ビリビリ中？ ( no:BERO_CHECK_2260 ) 7024 S0021B5 B1 FROM R1 7025 ; 7026 S0021B6 3E 62 SUB #2 7027 S0021B8 0D 13' BCS BERO_CHECK_2254 7028 S0021BA 01 NOP 7029 ; 7030 S0021BB 3D A0 A9 LMS R0,CBERXPS 7031 S0021BE 3D A2 AA LMS R2,CBERYPS 7032 S0021C1 52 ADD R2 7033 S0021C2 0A 03' BPL BERO_CHECK_2252 7034 S0021C4 01 NOP 7035 ; 7036 S0021C5 4F NOT 7037 S0021C6 D0 INC R0 7038 BERO_CHECK_2252 7039 S0021C7 A2 20 IBT R2,#8*4 7040 S0021C9 62 SUB R2 7041 S0021CA 0D 04' BCS BERO_CHECK_2258 7042 S0021CC 01 NOP 7043 ; 7044 BERO_CHECK_2254 7045 S0021CD 3E A1 B0 SMS R1,CBERO_BIRI 7046 ; 7047 ;-------------- 舌ビリビリパターンセット ---------------- 7048 BERO_CHECK_2258 7049 S0021D0 B1 FROM R1 7050 S0021D1 3F 71 BIC #01H 7051 S0021D3 50 ADD R0 7052 S0021D4 CE OR R14 7053 S0021D5 FE 0000" IWT R14,#BERO_BIRI_PATN 7054 S0021D8 05 0F' BRA BERO_CHECK_2310+1 7055 S0021DA 1E TO R14 7056 7057 BERO_CHECK_2260 7058 S0021DB 3D A0 63 LMS R0,CPLSWIM 7059 S0021DE E0 DEC R0 7060 S0021DF 0B 02' BMI BERO_CHECK_2300 ;泳いでる？ ( no:BERO_CHECK_2300 ) 7061 S0021E1 01 NOP 7062 ; 7063 S0021E2 DE INC R14 7064 BERO_CHECK_2300 7065 S0021E3 BE FROM R14 7066 S0021E4 5E ADD R14 ;x2 7067 S0021E5 FE 0000" IWT R14,#BERO_PATN 7068 BERO_CHECK_2310 7069 S0021E8 1E TO R14 7070 S0021E9 5E ADD R14 7071 S0021EA EF GETB 7072 S0021EB DE INC R14 7073 S0021EC 3D EF GETBH 7074 S0021EE 05 5E' BRA BERO_CHECK_2800 7075 S0021F0 01 NOP 7076 ; 7077 ;-------------- 舌ＭＡＸチェック -------------------------------- 7078 BERO_CHECK_2350 7079 S0021F1 B2 FROM R2 7080 S0021F2 03 LSR 7081 S0021F3 0D AA' BCS BERO_CHECK_2160 ;舌ショット終了？ ( no:BERO_CHECK_2160 ) 7082 S0021F5 01 NOP 7083 ; 7084 S0021F6 E8 DEC R8 ;[-1] 7085 S0021F7 0B 36' BMI BERO_CHECK_2550 ;食べてる？ ( no:BERO_CHECK_2550 ) 7086 S0021F9 60 SUB R0 ;[ * 舌ショットフラグリセット ] 7087 ; 7088 mLDW0 CENMODE,R8 7088+ S0021FA F0 0F00 IWT R0,#CENMODE 7088+ S0021FD 58 ADD R8 7088+ S0021FE 40 LDW (R0) 7089 S0021FF A1 08 IBT R1,#CEEATM 7090 S002201 61 SUB R1 7091 S002202 08 27' BNE BERO_CHECK_2510 ;敵はずれた？ ( yes:BERO_CHECK_2510 ) 7092 S002204 60 SUB R0 ;[ * 舌ショットフラグリセット ] 7093 ; 7094 S002205 23 B3 MOVES R3,R3 7095 S002207 08 26' BNE BERO_CHECK_2550 ;口に入れてる？ ( yes:BERO_CHECK_2550 ) 7096 S002209 01 NOP 7097 ; 7098 S00220A D2 INC R2 ;[ ADD #07H-2-4 ] 7099 BERO_CHECK_2400 7100 S00220B B2 FROM R2 7101 S00220C 3E 54 ADD #4 7102 BERO_CHECK_2450 7103 S00220E 3E A0 A8 SMS R0,CBERFLG ;舌ショットフラグセット 7104 ; 7105 S002211 A1 0B" IBT R1,#EATEND+7+4 7106 S002213 61 SUB R1 7107 S002214 0C 0A' BCC BERO_CHECK_2460 ;タマゴ産み？ ( no:BERO_CHECK_2460 ) 7108 S002216 51 ADD R1 7109 ; 7110 S002217 A1 07" IBT R1,#EATEGGEND+7 7111 S002219 61 SUB R1 7112 S00221A 0C 19' BCC BERO_CHECK_2600 ;舌ショット終了？ ( no:BERO_CHECK_2600 ) 7113 S00221C 51 ADD R1 7114 ; 7115 S00221D 05 07' BRA BERO_CHECK_2470 7116 S00221F 01 NOP 7117 ; 7118 BERO_CHECK_2460 7119 S002220 A1 07" IBT R1,#EATEND+7 7120 S002222 61 SUB R1 7121 S002223 0C 10' BCC BERO_CHECK_2600 ;舌ショット終了？ ( no:BERO_CHECK_2600 ) 7122 S002225 51 ADD R1 7123 ; 7124 BERO_CHECK_2470 7125 S002226 A0 14 IBT R0,#014H ;[♪] 7126 S002228 3E A0 3D SMS R0,CMSOUND3 7127 ; 7128 BERO_CHECK_2510 7129 S00222B 60 SUB R0 7130 S00222C 3E A0 B1 SMS R0,CEATFLG ;食べるてるフラグリセット 7131 ; 7132 BERO_CHECK_2550 7133 S00222F 3E A0 A8 SMS R0,CBERFLG ;舌ショットフラグリセット 7134 S002232 05 1D' BRA BERO_CHECK_3000 7135 S002234 01 NOP 7136 ; 7137 ;-------------- 飲み込みパターンセット -------------------------- 7138 BERO_CHECK_2600 7139 S002235 3D A1 63 LMS R1,CPLSWIM 7140 S002238 E1 DEC R1 7141 S002239 0B 02' BMI BERO_CHECK_2650 ;泳いでる？ ( no:BERO_CHECK_2650 ) 7142 S00223B 01 NOP 7143 ; 7144 S00223C D0 INC R0 7145 BERO_CHECK_2650 7146 S00223D 11 TO R1 ;x3 7147 S00223E 50 ADD R0 ; 7148 S00223F 51 ADD R1 ; 7149 S002240 FE FFEB" IWT R14,#EAT_END_PT-(7*3) 7150 S002243 1E TO R14 7151 S002244 5E ADD R14 7152 S002245 EF GETB 7153 S002246 DE INC R14 7154 S002247 3E A0 F0 SMS R0,CPSHOTM ;タイマーセット 7155 S00224A EF GETB 7156 S00224B DE INC R14 7157 S00224C 3D EF GETBH 7158 ; 7159 BERO_CHECK_2800 7160 S00224E 3E A0 5F SMS R0,CPLPATN ;パターンＮｏ．セット 7161 ; 7162 BERO_CHECK_3000 7163 S002251 3D AB 31 LMS R11,RTS1 7164 mRTS 7164+ S002254 9B JMP R11 7164+ S002255 01 NOP 7165 ; 7166 ;------------------------------------------------------------------------ 7167 ;- スペシャルショットセット - 7168 ;- in : - 7169 ;- (R7) <-- BG unit no. type - 7170 ;- (R2) <-- 舌ショットフラグ - 7171 ;- (R3) <-- 口に入れてるフラグ - 7172 ;- (R4) <-- スペシャルショットフラグ - 7173 ;- (R8) <-- 食べるてるフラグ - 7174 ;------------------------------------------------------------------------ 7175 EAT_SP_SHOT 7176 S002256 B4 FROM R4 ;(R5) <-- JSRSUB address table pointer add data 7177 S002257 54 ADD R4 ; 7178 S002258 15 TO R5 ; 7179 S002259 54 ADD R4 ; 7180 S00225A D5 INC R5 ; 7181 ; 7182 S00225B 3D A0 B6 LMS R0,CEATSPC ;スペシャルショットカウンター加算 7183 S00225E D0 INC R0 7184 S00225F 90 SBK ;[ SMS R0,CEATSPC ] 7185 ; 7186 S002260 2F WITH R15 ;[ JSRSUB ] 7187 S002261 55 ADD R5 ; 7188 S002262 FF HEX FF ; 7189 S002263 00 00 00 HEX 0,0,0 ;[0] dummy 7190 S002266 2272' WORD FIRE_SHOT ;[1] 7191 S002268 01 NOP 7192 S002269 2321' WORD BABLE_SHOT ;[2] 7193 S00226B 01 NOP 7194 S00226C 23C0' WORD SUIKA_SHOT ;[3] 7195 S00226E 01 NOP 7196 S00226F 246F' WORD COLD_SHOT ;[4] 7197 S002271 01 NOP 7198 ; 7199 ;---------------------------------------------------------------- 7200 ;- ファイヤーショット - 7201 ;- in : - 7202 ;- (R0) <-- EATSPC - 7203 ;---------------------------------------------------------------- 7204 FIRE_SHOT 7205 S002272 A1 2A IBT R1,#(07H*2)+(07H*4) 7206 S002274 61 SUB R1 7207 S002275 0C 21' BCC FIRE_SHOT_0050 ;ファイヤーショット終了？ ( no:FIRE_SHOT_0050 ) 7208 S002277 51 ADD R1 7209 ; 7210 ;-------------- ファイヤーショット終了セット -------------------- vvv******* warn :value out of range 7211 S002278 F0 BC00 IWT R0,#CHR64+1E0H*20H ;プレイヤースペシャルキャラ転送フラグセット 7212 S00227B 3E A0 8A SMS R0,CPCHTRF 7213 ; 7214 EAT_CANCEL 7215 ;;;; LMS R0,CEATSPT 7216 S00227E 3D A0 B8 LMS R0,CSUIKA_NO 7217 S002281 3E 6A SUB #10 7218 ;;;; SBK ;[ SMS R0,CEATSPT ] 7219 S002283 90 SBK ;[ SMS R0,CSUIKA_NO ] 7220 S002284 08 0A' BNE EAT_CANCEL_010 ;スペシャルショット終了？ ( no:EAT_CANCEL_010 ) 7221 S002286 60 SUB R0 ;[ IBT R0,#0 ] 7222 ; 7223 EAT_CANCEL_2 7224 S002287 3E A0 B5 SMS R0,CEATSPF ;スペシャルショットフラグリセット 7225 S00228A 3E A0 B1 SMS R0,CEATFLG ;食べてるフラグリセット 7226 S00228D 3E A0 B4 SMS R0,CEATSTP ;口に入れてるフラグリセット 7227 EAT_CANCEL_3 7228 EAT_CANCEL_010 7229 S002290 3E A0 A8 SMS R0,CBERFLG ;舌ショットフラグリセット 7230 S002293 3E A0 B6 SMS R0,CEATSPC ;スペシャルショットカウンターリセット 7231 EAT_CANCEL_020 7232 mRTS 7232+ S002296 9B JMP R11 7232+ S002297 01 NOP 7233 ; 7234 FIRE_SHOT_0050 7235 S002298 A1 0E IBT R1,#(07H*2) 7236 S00229A 61 SUB R1 7237 S00229B 0D F9' BCS EAT_CANCEL_020 ;敵ファイヤーセット？ ( no:EAT_CANCEL_020 ) 7238 S00229D 51 ADD R1 7239 ; 7240 S00229E 20 1E MOVE R14,R0 7241 S0022A0 3E 71 AND #01H 7242 S0022A2 08 7B' BNE FIRE_SHOT_0150 ;敵ファイヤーセットタイミング？ ( no:FIRE_SHOT_0150 ) 7243 S0022A4 01 NOP 7244 ; 7245 ;-------------- 敵ファイヤーセット ------------------------------ 7246 S0022A5 3E AB 30 SMS R11,RTS0 ;[ return address save ] 7247 ; 7248 S0022A8 F5 0000" IWT R5,#FIREX ;(R5) <-- 敵Ｎｏ． 7249 mJSR M_ENINSR ;敵エリア確保 7249+ S0022AB 94 LINK #4 7249+ S0022AC FF 28C7' IWT R15, #M_ENINSR 7249+ S0022AF 01 NOP 7250 ; 7251 S0022B0 0B 6A' BMI FIRE_SHOT_0100 ;敵エリア無し？ ( yes:FIRE_SHOT_0100 ) 7252 S0022B2 01 NOP 7253 ; 7254 S0022B3 A0 04 IBT R0,#04H ;[♪] 7255 S0022B5 3E A0 3D SMS R0,CMSOUND3 7256 ; 7257 S0022B8 2E WITH R14 7258 S0022B9 3F 71 BIC #01H 7259 S0022BB 3D A5 62 LMS R5,CPLCMKI ;(R5) <-- プレイヤー向き 7260 S0022BE A0 00" IBT R0,#FIRE_ST_M 7261 S0022C0 1C TO R12 ;(R12) <-- プレイヤー向き×（２＋（４×６）） 7262 S0022C1 85 MULT R5 7263 S0022C2 A0 00" IBT R0,#FIRE_ST_P 7264 S0022C4 3D AB A8 LMS R11,CBERFLG 7265 S0022C7 EB DEC R11 7266 S0022C8 08 09' BNE FIRE_SHOT_0060 ;プレイヤー上向いてる？ ( yes:FIRE_SHOT_0060 ) 7267 S0022CA 01 NOP 7268 ; 7269 S0022CB 3D AB 60 LMS R11,CPLJUMP 7270 S0022CE EB DEC R11 7271 S0022CF 0A 02' BPL FIRE_SHOT_0060 ;プレイヤージャンプ中？ ( yes:FIRE_SHOT_0060 ) 7272 S0022D1 03 LSR ;[ IBT R0,#SUIKA_ST_P/2 ] 7273 ; 7274 S0022D2 60 SUB R0 ;[ IBT R0,#0 ] 7275 FIRE_SHOT_0060 7276 S0022D3 5E ADD R14 7277 S0022D4 5C ADD R12 7278 S0022D5 FE FFFE" IWT R14,#FIRE_SET_XY-2 7279 S0022D8 1E TO R14 7280 S0022D9 5E ADD R14 7281 S0022DA 3F EF GETBS 7282 S0022DC DE INC R14 7283 S0022DD 3D A8 B9 LMS R8,CFIRSHX 7284 S0022E0 18 TO R8 7285 S0022E1 58 ADD R8 7286 mSTW R8,CENXPSL,R1 ;Ｘ座標セット 7286+ S0022E2 F0 10E2 IWT R0,#CENXPSL 7286+ S0022E5 51 ADD R1 7286+ S0022E6 B8 FROM R8 7286+ S0022E7 30 STW (R0) 7287 S0022E8 3F EF GETBS 7288 S0022EA DE INC R14 7289 S0022EB 3D A7 BA LMS R7,CFIRSHY 7290 S0022EE 17 TO R7 7291 S0022EF 57 ADD R7 7292 mSTW R7,CENYPSL,R1 ;Ｙ座標セット 7292+ S0022F0 F0 1182 IWT R0,#CENYPSL 7292+ S0022F3 51 ADD R1 7292+ S0022F4 B7 FROM R7 7292+ S0022F5 30 STW (R0) 7293 S0022F6 25 WITH R5 7294 S0022F7 3F C2 XOR #02H 7295 mSTW R5,CENMUKI,R1 ;向きセット 7295+ S0022F9 F0 1400 IWT R0,#CENMUKI 7295+ S0022FC 51 ADD R1 7295+ S0022FD B5 FROM R5 7295+ S0022FE 30 STW (R0) 7296 S0022FF A5 10 IBT R5,#04H*4 7297 mSTW R5,CENTIM0,R1 ;タイマーセット 7297+ S002301 F0 1A96 IWT R0,#CENTIM0 7297+ S002304 51 ADD R1 7297+ S002305 B5 FROM R5 7297+ S002306 30 STW (R0) 7298 ; 7299 S002307 28 WITH R8 7300 S002308 3E 58 ADD #8 7301 S00230A B7 FROM R7 7302 S00230B 3E 58 ADD #8 7303 mJSR_X BGUNIT_READ_S+1 ;ＢＧユニットＮｏ．読み込み 7303+ S00230D 94 LINK #4 7303+ S00230E FF 0CD7' IWT R15, #BGUNIT_READ_S+1 7304 S002311 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 7305 ; 7306 ; (R0) <-- BG unit no. type return !! 7307 ; 7308 S002312 3E 72 AND #AL 7309 S002314 09 06' BEQ FIRE_SHOT_0100 ;ＢＧ当たり？ ( no:FIRE_SHOT_0100 ) 7310 S002316 01 NOP 7311 ; 7312 S002317 A0 0E IBT R0,#(07H*2) ;スペシャルショットカウンターセット 7313 S002319 3E A0 B6 SMS R0,CEATSPC 7314 ; 7315 FIRE_SHOT_0100 7316 S00231C 3D AB 30 LMS R11,RTS0 7317 ; 7318 FIRE_SHOT_0150 7319 mRTS 7319+ S00231F 9B JMP R11 7319+ S002320 01 NOP 7320 ; 7321 ;---------------------------------------------------------------- 7322 ;- しゃぼん玉ショット - 7323 ;- in : - 7324 ;- (R0) <-- EATSPC - 7325 ;---------------------------------------------------------------- 7326 BABLE_SHOT 7327 S002321 A1 18 IBT R1,#24 7328 S002323 61 SUB R1 7329 S002324 0C 05' BCC BABLE_SHOT_0010 ;しゃぼん玉ショット終了？ ( no:BABLE_SHOT_0010 ) 7330 S002326 51 ADD R1 7331 ; 7332 mDJMP EAT_CANCEL 7332+ S002327 FF 227E' IWT R15, #EAT_CANCEL 7332+ S00232A 01 NOP 7333 ; 7334 ;-------------- しゃぼん玉セットタイミングチェック -------------- 7335 BABLE_SHOT_0010 7336 S00232B FE 0000" IWT R14,#SOAP_SET_TMG 7337 S00232E AC 00" IBT R12,#SOAP_SET_TMG_NO 7338 S002330 2F 1D MOVE R13,R15 7339 BABLE_SHOT_0050 7340 S002332 11 TO R1 7341 S002333 EF GETB 7342 S002334 61 SUB R1 7343 S002335 09 05' BEQ BABLE_SHOT_0100 ;しゃぼん玉セットタイミング？ ( yes:BABLE_SHOT_0100 ) 7344 S002337 51 ADD R1 7345 ; 7346 S002338 3C LOOP 7347 S002339 DE INC R14 7348 ; 7349 mRTS 7349+ S00233A 9B JMP R11 7349+ S00233B 01 NOP 7350 ; 7351 ;-------------- 敵しゃぼん玉セット ------------------------------ 7352 BABLE_SHOT_0100 7353 S00233C 3E AB 30 SMS R11,RTS0 ;[ return address save ] 7354 S00233F 2C 1E MOVE R14,R12 ;(R12) save 7355 ; 7356 S002341 F5 0000" IWT R5,#SOPB0 ;(R5) <-- 敵Ｎｏ． 7357 mJSR M_ENINSR ;敵エリア確保 7357+ S002344 94 LINK #4 7357+ S002345 FF 28C7' IWT R15, #M_ENINSR 7357+ S002348 01 NOP 7358 ; 7359 S002349 3D AB 30 LMS R11,RTS0 ;[ return address load ] 7360 S00234C 2E 1C MOVE R12,R14 ;(R12) load 7361 ; 7362 S00234E 0B 6E' BMI BABLE_SHOT_0150 ;敵エリア無し？ ( yes:BABLE_SHOT_0150 ) 7363 S002350 01 NOP 7364 ; 7365 S002351 A0 04 IBT R0,#04H ;[♪] 7366 S002353 3E A0 3D SMS R0,CMSOUND3 7367 ; 7368 S002356 3D A0 62 LMS R0,CPLCMKI 7369 S002359 AE 00" IBT R14,#SOAP_ST_M 7370 S00235B 1E TO R14 ;(R14) <-- プレイヤー向き×（２＋（４×６）） 7371 S00235C 8E MULT R14 7372 S00235D A0 00" IBT R0,#SOAP_ST_P 7373 S00235F 3D A5 A8 LMS R5,CBERFLG 7374 S002362 E5 DEC R5 7375 S002363 08 0A' BNE BABLE_SHOT_0110 ;プレイヤー上向いてる？ ( yes:BABLE_SHOT_0110 ) 7376 S002365 01 NOP 7377 ; 7378 S002366 3D A5 60 LMS R5,CPLJUMP 7379 S002369 25 B5 MOVES R5,R5 7380 S00236B 08 02' BNE BABLE_SHOT_0110 ;プレイヤージャンプ中？ ( yes:BABLE_SHOT_0110 ) 7381 S00236D 03 LSR ;[ IBT R0,#SUIKA_ST_P/2 ] 7382 ; 7383 S00236E 60 SUB R0 ;[ IBT R0,#0 ] 7384 BABLE_SHOT_0110 7385 S00236F 5E ADD R14 7386 S002370 FE 0000" IWT R14,#SOAP_SET_XY 7387 S002373 1E TO R14 7388 S002374 5E ADD R14 7389 S002375 3F EF GETBS 7390 S002377 DE INC R14 7391 S002378 3D A5 AD LMS R5,CBRCNTX 7392 S00237B 15 TO R5 7393 S00237C 55 ADD R5 7394 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 7394+ S00237D F0 10E2 IWT R0,#CENXPSL 7394+ S002380 51 ADD R1 7394+ S002381 B5 FROM R5 7394+ S002382 30 STW (R0) 7395 S002383 3F EF GETBS 7396 S002385 DE INC R14 7397 S002386 3D A5 AE LMS R5,CBRCNTY 7398 S002389 15 TO R5 7399 S00238A 55 ADD R5 7400 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 7400+ S00238B F0 1182 IWT R0,#CENYPSL 7400+ S00238E 51 ADD R1 7400+ S00238F B5 FROM R5 7400+ S002390 30 STW (R0) 7401 ; 7402 S002391 EC DEC R12 ;-1 7403 S002392 BC FROM R12 ;x4 7404 S002393 5C ADD R12 ; 7405 S002394 50 ADD R0 ; 7406 S002395 1E TO R14 7407 S002396 5E ADD R14 7408 S002397 EF GETB 7409 S002398 DE INC R14 7410 S002399 15 TO R5 7411 S00239A 3D EF GETBH 7412 S00239C DE INC R14 7413 mSTW R5,CENXSPD,R1 ;Ｘスピードセット 7413+ S00239D F0 1220 IWT R0,#CENXSPD 7413+ S0023A0 51 ADD R1 7413+ S0023A1 B5 FROM R5 7413+ S0023A2 30 STW (R0) 7414 S0023A3 EF GETB 7415 S0023A4 DE INC R14 7416 S0023A5 15 TO R5 7417 S0023A6 3D EF GETBH 7418 mSTW R5,CENYSPD,R1 ;Ｙスピードセット 7418+ S0023A8 F0 1222 IWT R0,#CENYSPD 7418+ S0023AB 51 ADD R1 7418+ S0023AC B5 FROM R5 7418+ S0023AD 30 STW (R0) 7419 ; 7420 S0023AE A5 04 IBT R5,#04 7421 mSTW R5,CENCHPT,R1 ;初期パターンＮｏ．セット 7421+ S0023B0 F0 1402 IWT R0,#CENCHPT 7421+ S0023B3 51 ADD R1 7421+ S0023B4 B5 FROM R5 7421+ S0023B5 30 STW (R0) 7422 S0023B6 A5 0A IBT R5,#10 7423 mSTW R5,CENTIM1,R1 ;初期タイマーセット 7423+ S0023B8 F0 1A98 IWT R0,#CENTIM1 7423+ S0023BB 51 ADD R1 7423+ S0023BC B5 FROM R5 7423+ S0023BD 30 STW (R0) 7424 ; 7425 BABLE_SHOT_0150 7426 mRTS 7426+ S0023BE 9B JMP R11 7426+ S0023BF 01 NOP 7427 ; 7428 ;---------------------------------------------------------------- 7429 ;- スイカショット - 7430 ;- in : - 7431 ;- (R0) <-- EATSPC - 7432 ;---------------------------------------------------------------- 7433 SUIKA_SHOT 7434 ;;;; SUB #6 7435 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 7436 S0023C0 3E 68 SUB #8 7437 ELSE ;**** PAL 対応 [1995/7/20] ************************ 7438 SUB #7 7439 ENDIF 7440 S0023C2 0C FA' BCC BABLE_SHOT_0150 ;スイカショットセット？ ( no:BABLE_SHOT_0150 ) 7441 S0023C4 60 SUB R0 ;[ IBT R0,#0 ] 7442 ; 7443 ;-------------- 敵スイカ種セット -------------------------------- 7444 S0023C5 3E A0 B6 SMS R0,CEATSPC ;スイカショットウェイトセット 7445 ; 7446 S0023C8 3E AB 30 SMS R11,RTS0 ;[ return address save ] 7447 ; 7448 S0023CB F5 0000" IWT R5,#SUIKT ;(R5) <-- 敵Ｎｏ． 7449 mJSR M_ENINSR ;敵エリア確保 7449+ S0023CE 94 LINK #4 7449+ S0023CF FF 28C7' IWT R15, #M_ENINSR 7449+ S0023D2 01 NOP 7450 ; 7451 S0023D3 3D AB 30 LMS R11,RTS0 ;[ return address load ] 7452 ; 7453 S0023D6 0A 05' BPL SUIKA_SHOT_0050 ;敵エリア無し？ ( no:SUIKA_SHOT_0050 ) 7454 S0023D8 01 NOP 7455 ; 7456 mDJMP SUIKA_SHOT_0150 7456+ S0023D9 FF 245F' IWT R15, #SUIKA_SHOT_0150 7456+ S0023DC 01 NOP 7457 ; 7458 SUIKA_SHOT_0050 7459 S0023DD A0 45 IBT R0,#045H ;[♪] 7460 S0023DF 3E A0 3D SMS R0,CMSOUND3 7461 ; 7462 S0023E2 3D A0 62 LMS R0,CPLCMKI 7463 S0023E5 AE 00" IBT R14,#SUIKA_ST_M 7464 S0023E7 1E TO R14 ;(R14) <-- プレイヤー向き×（２＋（４×６）） 7465 S0023E8 8E MULT R14 7466 S0023E9 A0 00" IBT R0,#SUIKA_ST_P 7467 S0023EB 3D A5 A8 LMS R5,CBERFLG 7468 S0023EE E5 DEC R5 7469 S0023EF 08 0A' BNE SUIKA_SHOT_0110 ;プレイヤー上向いてる？ ( yes:SUIKA_SHOT_0110 ) 7470 S0023F1 01 NOP 7471 ; 7472 S0023F2 3D A5 60 LMS R5,CPLJUMP 7473 S0023F5 25 B5 MOVES R5,R5 7474 S0023F7 08 02' BNE SUIKA_SHOT_0110 ;プレイヤージャンプ中？ ( yes:SUIKA_SHOT_0110 ) 7475 S0023F9 03 LSR ;[ IBT R0,#SUIKA_ST_P/2 ] 7476 ; 7477 S0023FA 60 SUB R0 ;[ IBT R0,#0 ] 7478 SUIKA_SHOT_0110 7479 S0023FB 5E ADD R14 7480 S0023FC FE 0000" IWT R14,#SUIKA_SET_XY 7481 S0023FF 1E TO R14 7482 S002400 5E ADD R14 7483 S002401 3F EF GETBS 7484 S002403 DE INC R14 7485 S002404 3D A5 AD LMS R5,CBRCNTX 7486 S002407 15 TO R5 7487 S002408 55 ADD R5 7488 mSTW R5,CENXPSL,R1 ;Ｘ座標セット 7488+ S002409 F0 10E2 IWT R0,#CENXPSL 7488+ S00240C 51 ADD R1 7488+ S00240D B5 FROM R5 7488+ S00240E 30 STW (R0) 7489 S00240F 3F EF GETBS 7490 S002411 DE INC R14 7491 S002412 3D A5 AE LMS R5,CBRCNTY 7492 S002415 15 TO R5 7493 S002416 55 ADD R5 7494 mSTW R5,CENYPSL,R1 ;Ｙ座標セット 7494+ S002417 F0 1182 IWT R0,#CENYPSL 7494+ S00241A 51 ADD R1 7494+ S00241B B5 FROM R5 7494+ S00241C 30 STW (R0) 7495 ; 7496 S00241D 3D A0 B9 LMS R0,CSUIKA_PT 7497 S002420 15 TO R5 ;[ * not break (R0) ] 7498 S002421 3E 66 SUB #7-1 7499 S002423 0C 02' BCC SUIKA_SHOT_0120 7500 S002425 D0 INC R0 7501 ; 7502 S002426 60 SUB R0 7503 SUIKA_SHOT_0120 7504 S002427 90 SBK ;[ SMS R0,CSUIKA_PT ] 7505 S002428 50 ADD R0 7506 S002429 50 ADD R0 7507 S00242A 1E TO R14 7508 S00242B 5E ADD R14 7509 S00242C EF GETB 7510 S00242D DE INC R14 7511 S00242E 15 TO R5 7512 S00242F 3D EF GETBH 7513 S002431 DE INC R14 7514 mSTW R5,CENXSPD,R1 ;Ｘスピードセット 7514+ S002432 F0 1220 IWT R0,#CENXSPD 7514+ S002435 51 ADD R1 7514+ S002436 B5 FROM R5 7514+ S002437 30 STW (R0) 7515 S002438 EF GETB 7516 S002439 DE INC R14 7517 S00243A 15 TO R5 7518 S00243B 3D EF GETBH 7519 mSTW R5,CENYSPD,R1 ;Ｙスピードセット 7519+ S00243D F0 1222 IWT R0,#CENYSPD 7519+ S002440 51 ADD R1 7519+ S002441 B5 FROM R5 7519+ S002442 30 STW (R0) 7520 S002443 A5 01 IBT R5,#1 7521 mSTW R5,CENSHOT,R1 ;ショットフラグ”ＯＮ” 7521+ S002445 F0 1D38 IWT R0,#CENSHOT 7521+ S002448 51 ADD R1 7521+ S002449 B5 FROM R5 7521+ S00244A 30 STW (R0) 7522 S00244B A5 FF IBT R5,#0FFH 7523 mSTB R5,CENWTSP,R1 ;水中スピードリセット 7523+ S00244D F0 1863 IWT R0,#CENWTSP 7523+ S002450 51 ADD R1 7523+ S002451 B5 FROM R5 7523+ S002452 3D 30 STB (R0) 7524 ; 7525 ;-------------- 種切れチェック ---------------------------------- 7526 S002454 3D A0 B8 LMS R0,CSUIKA_NO 7527 S002457 E0 DEC R0 7528 S002458 08 05' BNE SUIKA_SHOT_0150 ;種切れ？ ( no:SUIKA_SHOT_0150 ) 7529 S00245A 90 SBK ;[ SMS R0,CSUIKA_NO ] 7530 ; 7531 mDJMP_X EAT_CANCEL_2 7531+ S00245B FF 2287' IWT R15, #EAT_CANCEL_2 7532 S00245E 60 SUB R0 7533 ; 7534 SUIKA_SHOT_0150 7535 S00245F 3D A0 44 LMS R0,CP_KEY_BERO ;(R0) <-- 舌ショットボタン情報 7536 S002462 3D A1 38 LMS R1,CMKEYC1L 7537 S002465 71 AND R1 7538 S002466 08 05' BNE SUIKA_SHOT_0100 ;連射スイカ種セット？ ( yes:SUIKA_SHOT_0100 ) 7539 S002468 01 NOP 7540 ; 7541 mDJMP_X EAT_CANCEL_3 7541+ S002469 FF 2290' IWT R15, #EAT_CANCEL_3 7542 S00246C 60 SUB R0 7543 ; 7544 SUIKA_SHOT_0100 7545 mRTS 7545+ S00246D 9B JMP R11 7545+ S00246E 01 NOP 7546 ; 7547 ;---------------------------------------------------------------- 7548 ;- 凍らせショット - 7549 ;- in : - 7550 ;- (R0) <-- EATSPC - 7551 ;---------------------------------------------------------------- 7552 COLD_SHOT 7553 S00246F A1 38 IBT R1,#(07H*4)+(07H*4) 7554 S002471 61 SUB R1 7555 S002472 0C 0B' BCC COLD_SHOT_0050 ;凍らせショット終了？ ( no:COLD_SHOT_0050 ) 7556 S002474 51 ADD R1 7557 ; 7558 ;-------------- 凍らせショット終了セット ------------------------ vvv******* warn :value out of range 7559 S002475 F0 BC00 IWT R0,#CHR64+1E0H*20H ;プレイヤースペシャルキャラ転送フラグセット 7560 S002478 3E A0 8A SMS R0,CPCHTRF 7561 mDJMP EAT_CANCEL 7561+ S00247B FF 227E' IWT R15, #EAT_CANCEL 7561+ S00247E 01 NOP 7562 ; 7563 COLD_SHOT_0050 7564 S00247F A1 1C IBT R1,#(07H*4) 7565 S002481 61 SUB R1 7566 S002482 0D E9' BCS SUIKA_SHOT_0100 ;凍らせ敵セット？ ( no:SUIKA_SHOT_0100 ) 7567 S002484 51 ADD R1 7568 ; 7569 S002485 20 1E MOVE R14,R0 7570 S002487 3E 73 AND #03H 7571 S002489 08 E2' BNE SUIKA_SHOT_0100 ;凍らせ敵セットタイミング？ ( no:SUIKA_SHOT_0100 ) 7572 S00248B 01 NOP 7573 ; 7574 ;-------------- 凍らせ敵セット ---------------------------------- 7575 S00248C 3E AB 30 SMS R11,RTS0 ;[ return address save ] 7576 ; 7577 S00248F F5 0000" IWT R5,#COLDX ;(R5) <-- 敵Ｎｏ． 7578 mJSR M_ENINSR ;敵エリア確保 7578+ S002492 94 LINK #4 7578+ S002493 FF 28C7' IWT R15, #M_ENINSR 7578+ S002496 01 NOP 7579 ; 7580 S002497 0B 74' BMI COLD_SHOT_0100 ;敵エリア無し？ ( yes:COLD_SHOT_0100 ) 7581 S002499 01 NOP 7582 ; 7583 S00249A A0 04 IBT R0,#04H ;[♪] 7584 S00249C 3E A0 3D SMS R0,CMSOUND3 7585 ; 7586 S00249F BE FROM R14 7587 S0024A0 3F 73 BIC #03H 7588 S0024A2 1E TO R14 7589 S0024A3 03 LSR 7590 S0024A4 3D A5 62 LMS R5,CPLCMKI ;(R5) <-- プレイヤー向き 7591 S0024A7 A0 00" IBT R0,#FIRE_ST_M 7592 S0024A9 1C TO R12 ;(R12) <-- プレイヤー向き×（２＋（４×６）） 7593 S0024AA 85 MULT R5 7594 S0024AB A0 00" IBT R0,#FIRE_ST_P 7595 S0024AD 3D AB A8 LMS R11,CBERFLG 7596 S0024B0 EB DEC R11 7597 S0024B1 08 09' BNE COLD_SHOT_0060 ;プレイヤー上向いてる？ ( yes:COLD_SHOT_0060 ) 7598 S0024B3 01 NOP 7599 ; 7600 S0024B4 3D AB 60 LMS R11,CPLJUMP 7601 S0024B7 EB DEC R11 7602 S0024B8 0A 02' BPL COLD_SHOT_0060 ;プレイヤージャンプ中？ ( yes:COLD_SHOT_0060 ) 7603 S0024BA 03 LSR ;[ IBT R0,#SUIKA_ST_P/2 ] 7604 ; 7605 S0024BB 60 SUB R0 ;[ IBT R0,#0 ] 7606 COLD_SHOT_0060 7607 S0024BC 5E ADD R14 7608 S0024BD 5C ADD R12 7609 S0024BE FE FFFE" IWT R14,#FIRE_SET_XY-2 7610 S0024C1 1E TO R14 7611 S0024C2 5E ADD R14 7612 S0024C3 3F EF GETBS 7613 S0024C5 DE INC R14 7614 S0024C6 3D A8 B9 LMS R8,CFIRSHX 7615 S0024C9 18 TO R8 7616 S0024CA 58 ADD R8 7617 mSTW R8,CENXPSL,R1 ;Ｘ座標セット 7617+ S0024CB F0 10E2 IWT R0,#CENXPSL 7617+ S0024CE 51 ADD R1 7617+ S0024CF B8 FROM R8 7617+ S0024D0 30 STW (R0) 7618 S0024D1 3F EF GETBS 7619 S0024D3 DE INC R14 7620 S0024D4 3D A7 BA LMS R7,CFIRSHY 7621 S0024D7 17 TO R7 7622 S0024D8 57 ADD R7 7623 mSTW R7,CENYPSL,R1 ;Ｙ座標セット 7623+ S0024D9 F0 1182 IWT R0,#CENYPSL 7623+ S0024DC 51 ADD R1 7623+ S0024DD B7 FROM R7 7623+ S0024DE 30 STW (R0) 7624 S0024DF 25 WITH R5 7625 S0024E0 3F C2 XOR #02H 7626 mSTW R5,CENMUKI,R1 ;向きセット 7626+ S0024E2 F0 1400 IWT R0,#CENMUKI 7626+ S0024E5 51 ADD R1 7626+ S0024E6 B5 FROM R5 7626+ S0024E7 30 STW (R0) 7627 S0024E8 A5 03 IBT R5,#03H 7628 mSTW R5,CENCHPT,R1 ;パターンＮｏ．セット 7628+ S0024EA F0 1402 IWT R0,#CENCHPT 7628+ S0024ED 51 ADD R1 7628+ S0024EE B5 FROM R5 7628+ S0024EF 30 STW (R0) 7629 S0024F0 A5 06 IBT R5,#06H 7630 mSTW R5,CENTIM0,R1 ;タイマーセット 7630+ S0024F2 F0 1A96 IWT R0,#CENTIM0 7630+ S0024F5 51 ADD R1 7630+ S0024F6 B5 FROM R5 7630+ S0024F7 30 STW (R0) 7631 ; 7632 S0024F8 28 WITH R8 7633 S0024F9 3E 58 ADD #8 7634 S0024FB B7 FROM R7 7635 S0024FC 3E 58 ADD #8 7636 mJSR_X BGUNIT_READ_S+1 ;ＢＧユニットＮｏ．読み込み 7636+ S0024FE 94 LINK #4 7636+ S0024FF FF 0CD7' IWT R15, #BGUNIT_READ_S+1 7637 S002502 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 7638 ; 7639 ; (R0) <-- BG unit no. type return !! 7640 ; 7641 S002503 3E 72 AND #AL 7642 S002505 09 06' BEQ COLD_SHOT_0100 ;ＢＧ当たり？ ( no:COLD_SHOT_0100 ) 7643 S002507 01 NOP 7644 ; 7645 S002508 A0 1C IBT R0,#(07H*4) ;スペシャルショットカウンターセット 7646 S00250A 3E A0 B6 SMS R0,CEATSPC 7647 ; 7648 COLD_SHOT_0100 7649 S00250D 3D AB 30 LMS R11,RTS0 7650 ; 7651 COLD_SHOT_0150 7652 mRTS 7652+ S002510 9B JMP R11 7652+ S002511 01 NOP 7653 ; 7654 ;------------------------------------------------------------------------ 7655 ;- 舌ショットキャンセル - - 7656 ;- break : - 7657 ;- (R3),(R4),(R5),(R14) - 7658 ;------------------------------------------------------------------------ 7659 BERO_CANCEL 7660 S002512 3D A3 B1 LMS R3,CEATFLG 7661 S002515 E3 DEC R3 ;[-1] 7662 S002516 0A 0C' BPL BERO_CANCEL_010 ;食べてる？ ( yes:BERO_CANCEL_010 ) 7663 S002518 01 NOP 7664 ; 7665 S002519 3D A3 B4 LMS R3,CEATSTP 7666 S00251C 23 B3 MOVES R3,R3 7667 S00251E 09 54' BEQ BERO_CANCEL_020 ;食べてる？ ( no:BERO_CANCEL_020 ) 7668 S002520 60 SUB R0 ;[ R0 <- 0 ] 7669 ; 7670 S002521 05 54' BRA BERO_CANCEL_030 7671 S002523 60 SUB R0 ;[ R0 <- 0 ] 7672 ; 7673 BERO_CANCEL_010 7674 S002524 3D A0 A9 LMS R0,CBERXPS 7675 S002527 3D A4 AA LMS R4,CBERYPS 7676 S00252A C4 OR R4 7677 S00252B 09 50' BEQ BERO_CANCEL_040 ;口に入れてる？ ( yes:BERO_CANCEL_040 ) 7678 S00252D 01 NOP 7679 ; 7680 ENEAT_CANCEL 7681 S00252E A4 10 IBT R4,#CEMOVE ;敵を元に戻す 7682 mSTW R4,CENMODE,R3 7682+ S002530 F0 0F00 IWT R0,#CENMODE 7682+ S002533 53 ADD R3 7682+ S002534 B4 FROM R4 7682+ S002535 30 STW (R0) 7683 S002536 A4 FF IBT R4,#0FFH 7684 mSTB R4,CENWATR,R3 ;水中フラグ初期セット 7684+ S002538 F0 1862 IWT R0,#CENWATR 7684+ S00253B 53 ADD R3 7684+ S00253C B4 FROM R4 7684+ S00253D 3D 30 STB (R0) 7685 ; 7686 mLDW0 CENMYNO,R3 7686+ S00253F F0 1360 IWT R0,#CENMYNO 7686+ S002542 53 ADD R3 7686+ S002543 40 LDW (R0) 7687 S002544 15 TO R5 7688 S002545 50 ADD R0 7689 S002546 F0 0000" IWT R0,#ENDATA0 7690 S002549 1E TO R14 7691 S00254A 55 ADD R5 7692 S00254B 14 TO R4 7693 S00254C EF GETB 7694 mSTW R4,CENYUSN,R3 7694+ S00254D F0 14A2 IWT R0,#CENYUSN 7694+ S002550 53 ADD R3 7694+ S002551 B4 FROM R4 7694+ S002552 30 STW (R0) 7695 S002553 F0 0000" IWT R0,#ENMODE2 7696 S002556 1E TO R14 7697 S002557 55 ADD R5 7698 S002558 EF GETB 7699 S002559 A4 0C IBT R4,#00001100B 7700 S00255B 14 TO R4 7701 S00255C 74 AND R4 7702 mLDW0 CENMOD2,R3 7702+ S00255D F0 1040 IWT R0,#CENMOD2 7702+ S002560 53 ADD R3 7702+ S002561 40 LDW (R0) 7703 S002562 14 TO R4 7704 S002563 C4 OR R4 7705 mSTW R4,CENMOD2,R3 7705+ S002564 F0 1040 IWT R0,#CENMOD2 7705+ S002567 53 ADD R3 7705+ S002568 B4 FROM R4 7705+ S002569 30 STW (R0) 7706 ; 7707 S00256A 60 SUB R0 ;[ IBT R0,#0 ] 7708 S00256B 3E A0 B1 SMS R0,CEATFLG 7709 S00256E 3E A0 B4 SMS R0,CEATSTP 7710 S002571 3E A0 B5 SMS R0,CEATSPF 7711 ; 7712 BERO_CANCEL_020 7713 S002574 3E A0 A8 SMS R0,CBERFLG 7714 BERO_CANCEL_030 7715 S002577 3E A0 A9 SMS R0,CBERXPS 7716 S00257A 3E A0 AA SMS R0,CBERYPS 7717 BERO_CANCEL_040 7718 mRTS 7718+ S00257D 9B JMP R11 7718+ S00257E 01 NOP 7719 ; 7720 ;************************************************************************ 7721 ;* * 7722 ;* パターンＮｏ．セット * 7723 ;* * 7724 ;************************************************************************ 7725 ; 7726 PL_PATN 7727 ; 7728 ;-------------- 回転パターンセット -------------------------------------- 7729 S00257F 3D A0 A5 LMS R0,CPROTSP 7730 S002582 22 B0 MOVES R2,R0 7731 S002584 09 6A' BEQ PL_PATN_00100 ;回転？ ( no:PL_PATN_00100 ) 7732 S002586 01 NOP 7733 ; 7734 PL_ROT_PATN_ST 7735 S002587 A1 FA IBT R1,#-06H 7736 S002589 0A 05' BPL PL_PATN_00010 7737 S00258B 01 NOP 7738 ; 7739 S00258C 4F NOT 7740 S00258D D0 INC R0 7741 S00258E A1 06 IBT R1,#06H 7742 PL_PATN_00010 7743 S002590 A3 40 IBT R3,#040H 7744 S002592 63 SUB R3 7745 S002593 0D 35' BCS PL_PATN_00018 ;回転ダウンチェック？ ( no:PL_PATN_00018 ) 7746 S002595 01 NOP 7747 ; 7748 ;-------------- 回転ダウンチェック ------------------------------ 7749 S002596 3D A3 A6 LMS R3,CPROTDW 7750 S002599 E3 DEC R3 7751 S00259A 0B 2E' BMI PL_PATN_00018 ;回転ダウン？ ( no:PL_PATN_00018 ) 7752 S00259C D3 INC R3 7753 ; 7754 S00259D 3D A0 A4 LMS R0,CPROTCT 7755 S0025A0 F4 0500 IWT R4,#0600H-0100H 7756 S0025A3 64 SUB R4 7757 S0025A4 0C 30' BCC PL_PATN_00022 ;ダウンＯＫ回転パターン？ ( no:PL_PATN_00022 ) 7758 S0025A6 01 NOP 7759 ; 7760 S0025A7 3D A0 FB LMS R0,CPLWORKTM 7761 S0025AA E0 DEC R0 7762 S0025AB 0A 14' BPL PL_PATN_00014 ;回転ダウンパターン切り替え？ ( no:PL_PATN_00014 ) 7763 S0025AD 01 NOP 7764 ; 7765 S0025AE E3 DEC R3 7766 S0025AF 3E A3 A6 SMS R3,CPROTDW 7767 S0025B2 08 04' BNE PL_PATN_00012 7768 S0025B4 01 NOP 7769 ; 7770 S0025B5 3E A3 A5 SMS R3,CPROTSP ;回転キャンセル！！ 7771 PL_PATN_00012 7772 S0025B8 F0 0000" IWT R0,#ROT_DOWN_TIM 7773 S0025BB 1E TO R14 7774 S0025BC 53 ADD R3 7775 S0025BD EF GETB 7776 S0025BE 3E A0 FB SMS R0,CPLWORKTM ;回転ダウンパターン切り替えタイマーセット 7777 PL_PATN_00014 7778 S0025C1 B3 FROM R3 ;x2 7779 S0025C2 53 ADD R3 ; 7780 S0025C3 FE 0000" IWT R14,#ROT_DOWN_PATN 7781 mDJMP_X PL_PATN_GET 7781+ S0025C6 FF 2760' IWT R15, #PL_PATN_GET 7782 S0025C9 1E TO R14 7783 ; 7784 PL_PATN_00018 7785 S0025CA 22 WITH R2 7786 S0025CB 51 ADD R1 7787 S0025CC B2 FROM R2 7788 S0025CD 3D C1 XOR R1 7789 S0025CF 0B 02' BMI PL_PATN_00020 7790 S0025D1 12 TO R2 ;[ IBT R2,#0 ] 7791 ; 7792 S0025D2 60 SUB R0 ;[ IBT R2,#0 ] 7793 PL_PATN_00020 7794 S0025D3 3E A2 A5 SMS R2,CPROTSP 7795 ; 7796 PL_PATN_00022 7797 S0025D6 F1 0600 IWT R1,#0600H ;(R1) <-- ＭＡＸ値 7798 S0025D9 3D A0 A4 LMS R0,CPROTCT 7799 S0025DC 52 ADD R2 7800 S0025DD 0A 02' BPL PL_PATN_00030 ;ＭＩＮオーバー？ ( no:PL_PATN_00030 ) 7801 S0025DF 01 NOP 7802 ; 7803 S0025E0 51 ADD R1 7804 PL_PATN_00030 7805 S0025E1 61 SUB R1 7806 S0025E2 0D 02' BCS PL_PATN_00040 ;ＭＡＸオーバー？ ( no:PL_PATN_00040 ) 7807 S0025E4 01 NOP 7808 ; 7809 S0025E5 51 ADD R1 7810 PL_PATN_00040 7811 S0025E6 90 SBK ;[ SMS R0,CPROTCT ] 7812 S0025E7 C0 HIB 7813 S0025E8 50 ADD R0 ;x2 7814 S0025E9 FE 0000" IWT R14,#ROTATION_PATN 7815 mDJMP_X PL_PATN_GET 7815+ S0025EC FF 2760' IWT R15, #PL_PATN_GET 7816 S0025EF 1E TO R14 7817 ; 7818 ;-------------- ダメージパターンセット ---------------------------------- 7819 PL_PATN_00100 7820 S0025F0 3D A1 EB LMS R1,CPLFLSH 7821 ;;;; IWT R2,#080H 7822 S0025F3 A2 40 IBT R2,#040H 7823 S0025F5 B1 FROM R1 7824 S0025F6 62 SUB R2 7825 S0025F7 0C 3B' BCC PL_PATN_01000 ;ダメージ中？ ( no:PL_PATN_01000 ) 7826 S0025F9 01 NOP 7827 ; 7828 S0025FA A2 50 IBT R2,#(8*3)*2+32 ;[ +32:着地までのウェイト ] 7829 S0025FC 62 SUB R2 7830 S0025FD 0C 09' BCC PL_PATN_00110 7831 S0025FF 52 ADD R2 7832 ; 7833 S002600 F0 006B IWT R0,#DM00 7834 S002603 3E A0 5F SMS R0,CPLPATN 7835 mRTS 7835+ S002606 9B JMP R11 7835+ S002607 01 NOP 7836 ; 7837 PL_PATN_00110 7838 S002608 3D A2 60 LMS R2,CPLJUMP 7839 S00260B E2 DEC R2 7840 S00260C 0B 0F' BMI PL_PATN_00120 ;ジャンプ中？ ( no:PL_PATN_0120 ) 7841 S00260E 01 NOP 7842 ; 7843 S00260F A2 30 IBT R2,#(8*3)*2 7844 S002611 62 SUB R2 7845 S002612 0D 20' BCS PL_PATN_01000 7846 S002614 01 NOP 7847 ; 7848 ;;;; IWT R0,#080H 7849 S002615 A0 40 IBT R0,#040H 7850 S002617 3E A0 EB SMS R0,CPLFLSH 7851 S00261A 05 18' BRA PL_PATN_01000 7852 S00261C 01 NOP 7853 ; 7854 PL_PATN_00120 7855 S00261D A2 30 IBT R2,#(8*3)*2 7856 S00261F 62 SUB R2 7857 S002620 0C 08' BCC PL_PATN_00130 7858 S002622 52 ADD R2 7859 ; 7860 ;;;; IWT R0,#080H+(8*3)*2-1 7861 S002623 A0 6F IBT R0,#040H+(8*3)*2-1 7862 S002625 3E A0 EB SMS R0,CPLFLSH 7863 S002628 A0 2F IBT R0,#(8*3)*2-1 7864 PL_PATN_00130 7865 S00262A 3E 77 AND #07H 7866 S00262C 50 ADD R0 7867 S00262D FE 0000" IWT R14,#FAIL_KYORO_PATN 7868 mDJMP_X PL_PATN_GET 7868+ S002630 FF 2760' IWT R15, #PL_PATN_GET 7869 S002633 1E TO R14 7870 ; 7871 ;-------------- スペシャルショットパターンセット ------------------------ 7872 PL_PATN_01000 7873 S002634 3D A1 B6 LMS R1,CEATSPC 7874 S002637 E1 DEC R1 ;[ CMP #0 ] 7875 S002638 0B 4B' BMI PL_PATN_02000 ;スペシャルショット？ ( no:PL_PATN_02000 ) 7876 S00263A 01 NOP 7877 ; 7878 S00263B 3D A0 B5 LMS R0,CEATSPF 7879 S00263E 3E 63 SUB #3 7880 S002640 08 27' BNE PL_PATN_01030 ;スイカショット？ ( no:PL_PATN_01030 ) 7881 S002642 01 NOP 7882 ; 7883 ;-------------- スイカショットパターンセット -------------------- 7884 S002643 21 10 MOVE R0,R1 7885 S002645 A1 06 IBT R1,#6 7886 PL_PATN_01010 7887 S002647 61 SUB R1 7888 S002648 0D FE' BCS PL_PATN_01010+1 7889 S00264A 61 SUB R1 7890 ; 7891 S00264B 51 ADD R1 7892 S00264C 51 ADD R1 7893 S00264D 11 TO R1 ;(R1) <-- スイカショットパターンＮｏ． 7894 S00264E 50 ADD R0 ;x2 7895 ; 7896 S00264F A0 18 IBT R0,#6*2*2 7897 S002651 3D A2 A8 LMS R2,CBERFLG 7898 S002654 E2 DEC R2 7899 S002655 08 0A' BNE PL_PATN_01020 ;プレイヤー上向いてる？ ( yes:PL_PATN_01020 ) 7900 S002657 01 NOP 7901 ; 7902 S002658 3D A2 60 LMS R2,CPLJUMP 7903 S00265B 22 B2 MOVES R2,R2 7904 S00265D 08 02' BNE PL_PATN_01020 ;プレイヤージャンプ中？ ( yes:PL_PATN_01020 ) 7905 S00265F 03 LSR ;[ IBT R0,#6*2 ] 7906 ; 7907 S002660 60 SUB R0 ;[ IBT R0,#0 ] 7908 PL_PATN_01020 7909 S002661 51 ADD R1 7910 S002662 FE 0000" IWT R14,#SUIKA_SHOT_PATN 7911 mDJMP_X PL_PATN_GET 7911+ S002665 FF 2760' IWT R15, #PL_PATN_GET 7912 S002668 1E TO R14 7913 ; 7914 ;-------------- ”フー”パターンセット -------------------------- 7915 PL_PATN_01030 7916 S002669 F1 008F IWT R1,#SU0B 7917 S00266C 3D A2 A8 LMS R2,CBERFLG 7918 S00266F E2 DEC R2 7919 S002670 08 0E' BNE PL_PATN_01040 ;プレイヤー上向いてる？ ( yes:PL_PATN_01040 ) 7920 S002672 01 NOP 7921 ; 7922 S002673 F1 0093 IWT R1,#SU0F 7923 S002676 3D A0 60 LMS R0,CPLJUMP 7924 S002679 E0 DEC R0 7925 S00267A 0B 04' BMI PL_PATN_01040 ;ジャンプ中？ ( no:PL_PATN_01040 ) 7926 S00267C 01 NOP 7927 ; 7928 S00267D F1 0088 IWT R1,#SU04 7929 PL_PATN_01040 7930 S002680 3E A1 5F SMS R1,CPLPATN 7931 PL_PATN_RTS 7932 mRTS 7932+ S002683 9B JMP R11 7932+ S002684 01 NOP 7933 ; 7934 ;-------------- 舌出しパターンセット ------------------------------------ 7935 PL_PATN_02000 7936 S002685 3D A0 A8 LMS R0,CBERFLG 7937 S002688 E0 DEC R0 ;[ CMP #0 ] 7938 S002689 0A F8' BPL PL_PATN_RTS ;舌ショット中？ ( yes:PL_PATN_RTS ) 7939 S00268B 01 NOP 7940 ; 7941 ;;;;;-------------- 口の中で爆発パターンセット ------------------------------ 7942 ;;;; LMS R0,CPLBOMB 7943 ;;;; LOB 7944 ;;;; BEQ PL_PATN_04000 ;口の中で爆発中？ ( no:PL_PATN_04000 ) 7945 ;;;; NOP 7946 ;;;;; 7947 ;;;; IWT R1,#BO0A ;(R1) <-- 爆発パターンＮｏ． 7948 ;;;; SUB #03H+1 7949 ;;;; BCC PL_PATN_03010 ;プレイヤーカラー変更？ ( no:PL_PATN_03010 ) 7950 ;;;; NOP 7951 ;;;;; 7952 ;;;; IBT R0,#02H ;プレイヤーカラーセット 7953 ;;;; SMS R0,CPLCLOR 7954 ;;;; IWT R1,#BO08 ;(R1) <-- 爆発パターンＮｏ． 7955 ;;;;PL_PATN_03010 7956 ;;;; SMS R1,CPLPATN 7957 ;;;; mRTS 7958 ; 7959 ;-------------- タマゴ投げパターンセット -------------------------------- 7960 PL_PATN_04000 7961 S00268C 3D AE 6F LMS R14,CPLNAGE 7962 S00268F EE DEC R14 7963 S002690 0B 56' BMI PL_PATN_04100 ;タマゴ投げ中？ ( no:PL_PATN_04100 ) 7964 S002692 DE INC R14 7965 ; 7966 S002693 BE FROM R14 7967 S002694 3E 66 SUB #6 7968 S002696 08 39' BNE PL_PATN_04090 ;溜めポーズ？ ( no:PL_PATN_04090 ) 7969 S002698 01 NOP 7970 ; 7971 S002699 3D A0 70 LMS R0,CPLNAGP 7972 S00269C E0 DEC R0 7973 S00269D 0B 32' BMI PL_PATN_04090 ;タマゴ投げ歩き？ ( no:PL_PATN_04090 ) 7974 S00269F 01 NOP 7975 ; 7976 S0026A0 3D A0 60 LMS R0,CPLJUMP 7977 S0026A3 E0 DEC R0 7978 S0026A4 0B 11' BMI PL_PATN_04010 ;ジャンプ中？ ( no:PL_PATN_04010 ) 7979 S0026A6 01 NOP 7980 ; 7981 S0026A7 3D A0 69 LMS R0,CPLSPJP 7982 S0026AA 9E LOB 7983 S0026AB 3E 62 SUB #02H 7984 S0026AD 0C 22' BCC PL_PATN_04090 ;ジタバタジャンプ中？ ( no:PL_PATN_04090 ) 7985 S0026AF 01 NOP 7986 ; 7987 S0026B0 FE 0000" IWT R14,#SPJMP_NAGE_PATN 7988 mDJMP_X PL_PATN_GET 7988+ S0026B3 FF 2760' IWT R15, #PL_PATN_GET 7989 S0026B6 1E TO R14 7990 ; 7991 PL_PATN_04010 7992 S0026B7 3D A0 E8 LMS R0,CPLSLIP 7993 S0026BA 9E LOB 7994 S0026BB 09 08' BEQ PL_PATN_04020 ;スリップ中？ ( no:PL_PATN_04020 ) 7995 S0026BD 01 NOP 7996 ; 7997 S0026BE FE 0000" IWT R14,#NAGE_SLIP_PATN 7998 mDJMP PL_PATN_08010 7998+ S0026C1 FF 2758' IWT R15, #PL_PATN_08010 7998+ S0026C4 01 NOP 7999 ; 8000 PL_PATN_04020 8001 S0026C5 3D A0 5A LMS R0,CPLMVSP 8002 S0026C8 3E 60 SUB #0 ;(N) <-- 符号 8003 S0026CA 09 05' BEQ PL_PATN_04090 ;止まってる？ ( yes:PL_PATN_04090 ) 8004 S0026CC 01 NOP 8005 ; 8006 mDJMP PL_PATN_11000 8006+ S0026CD FF 27E4' IWT R15, #PL_PATN_11000 8006+ S0026D0 01 NOP 8007 ; 8008 PL_PATN_04090 8009 S0026D1 3D F0 1FE8 LM R0,CFURA_FG 8010 S0026D5 3E 60 SUB #0 8011 S0026D7 09 08' BEQ PL_PATN_04092 ;”フラフラ”モード？ ( no:PL_PATN_04092 ) 8012 S0026D9 01 NOP 8013 ; 8014 S0026DA FE 0000" IWT R14,#FURA_EGG_PATN ;(R14) <-- タマゴ持ってる時パターンデータアドレス 8015 mDJMP PL_PATN_10010 8015+ S0026DD FF 27A3' IWT R15, #PL_PATN_10010 8015+ S0026E0 01 NOP 8016 ; 8017 PL_PATN_04092 8018 S0026E1 F0 FFFE" IWT R0,#NAGE_PATN-2 8019 S0026E4 5E ADD R14 8020 S0026E5 05 79' BRA PL_PATN_GET 8021 S0026E7 1E TO R14 8022 ; 8023 ;-------------- 座りパターンセット -------------------------------------- 8024 PL_PATN_04100 8025 S0026E8 3D A0 61 LMS R0,CPLSITD 8026 S0026EB 9E LOB 8027 S0026EC 09 07' BEQ PL_PATN_05000 ;座り中？ ( no:PL_PATN_05000 ) 8028 S0026EE 50 ADD R0 ;x2 8029 ; 8030 S0026EF FE FFFE" IWT R14,#SIT_PATN-2 8031 S0026F2 05 6C' BRA PL_PATN_GET 8032 S0026F4 1E TO R14 8033 ; 8034 ;-------------- 泳ぎパターンセット -------------------------------------- 8035 PL_PATN_05000 8036 ; 8037 ;-------------- ジャンプパターンセット ---------------------------------- 8038 PL_PATN_06000 8039 S0026F5 3D A1 60 LMS R1,CPLJUMP ;(R1) <-- ジャンプパターンＮｏ． 8040 S0026F8 E1 DEC R1 8041 S0026F9 0B 44' BMI PL_PATN_07000 ;ジャンプ中？ ( no:PL_PATN_07000 ) 8042 S0026FB D1 INC R1 8043 ; 8044 ;-------------- ジャンプ横当たり”ボヨヨ〜ン”パターンセット ---- 8045 S0026FC 3D A0 ED LMS R0,CPSBOYO 8046 S0026FF 9E LOB 8047 S002700 09 0A' BEQ PL_PATN_06100 ;ジャンプ横当たり”ボヨヨ〜ン”？ ( no:PL_PATN_06100 ) 8048 S002702 E0 DEC R0 8049 ; 8050 S002703 03 LSR 8051 S002704 3F 71 BIC #01H ;[ AND #0FFFEH ] 8052 S002706 FE 0000" IWT R14,#SDBOYO_PATN 8053 S002709 05 55' BRA PL_PATN_GET 8054 S00270B 1E TO R14 8055 ; 8056 ;-------------- ジャンプ頭当たり”ボヨヨ〜ン”パターンセット ---- 8057 PL_PATN_06100 8058 S00270C 3D A0 EE LMS R0,CPHBOYO 8059 S00270F 9E LOB 8060 S002710 09 19' BEQ PL_PATN_06250 ;ジャンプ頭当たり”ボヨヨ〜ン”？ ( no:PL_PATN_06250 ) 8061 S002712 E0 DEC R0 8062 ; 8063 S002713 3D AE F8 LMS R14,CPBURAN 8064 S002716 EE DEC R14 8065 S002717 0A 09' BPL PL_PATN_06200 ;”ブラ〜ン”？ ( yes:PL_PATN_06200 ) 8066 S002719 01 NOP 8067 ; 8068 S00271A 3F 71 BIC #01H ;[ AND #0FFFEH ] 8069 S00271C FE 0000" IWT R14,#HDBOYO_PATN 8070 S00271F 05 3F' BRA PL_PATN_GET 8071 S002721 1E TO R14 8072 ; 8073 ;-------------- ”ブラ〜ン”パターンセット ---------------------- 8074 PL_PATN_06200 8075 S002722 BE FROM R14 8076 S002723 3F 71 BIC #01H 8077 S002725 FE 0000" IWT R14,#BURAN_PATN 8078 S002728 05 36' BRA PL_PATN_GET 8079 S00272A 1E TO R14 8080 ; 8081 ;-------------- ジタバタジャンプパターンセット ------------------ 8082 PL_PATN_06250 8083 S00272B 3D A0 69 LMS R0,CPLSPJP 8084 S00272E 9E LOB 8085 S00272F 3E 62 SUB #02H 8086 S002731 0C 07' BCC PL_PATN_06300 ;ジタバタジャンプ中？ ( no:PL_PATN_06300 ) 8087 S002733 01 NOP 8088 ; 8089 S002734 FE 0000" IWT R14,#SPJMP_PATN 8090 S002737 05 27' BRA PL_PATN_GET 8091 S002739 1E TO R14 8092 ; 8093 ;-------------- 普通のジャンプパターンセット -------------------- 8094 PL_PATN_06300 8095 S00273A 3E A1 5F SMS R1,CPLPATN 8096 mRTS 8096+ S00273D 9B JMP R11 8096+ S00273E 01 NOP 8097 ; 8098 ;-------------- ジャンプ着地パターンセット ------------------------------ 8099 PL_PATN_07000 8100 S00273F 3D A0 EA LMS R0,CPLJPTM 8101 S002742 9E LOB 8102 S002743 09 09' BEQ PL_PATN_08000 ;着地の瞬間？ ( no:PL_PATN_08000 ) 8103 S002745 01 NOP 8104 ; 8105 S002746 3F 71 BIC #01H ;[ AND #0FFFEH ] 8106 S002748 FE 0000" IWT R14,#JMPEND_PATN 8107 S00274B 05 13' BRA PL_PATN_GET 8108 S00274D 1E TO R14 8109 ; 8110 ;-------------- スリップパターンセット ---------------------------------- 8111 PL_PATN_08000 8112 S00274E 3D A0 E8 LMS R0,CPLSLIP 8113 S002751 9E LOB 8114 S002752 09 16' BEQ PL_PATN_09000 ;スリップ中？ ( no:PL_PATN_09000 ) 8115 S002754 01 NOP 8116 ; 8117 S002755 FE 0000" IWT R14,#SLIP_PATN 8118 PL_PATN_08010 8119 S002758 3D F0 1974 LM R0,CFRCNT2 8120 S00275C 50 ADD R0 8121 S00275D 3E 7E AND #07H*2 8122 S00275F 1E TO R14 8123 PL_PATN_GET 8124 S002760 5E ADD R14 8125 S002761 EF GETB 8126 S002762 DE INC R14 8127 S002763 3D EF GETBH 8128 PL_PATN_SET_2 8129 S002765 3E A0 5F SMS R0,CPLPATN 8130 mRTS 8130+ S002768 9B JMP R11 8130+ S002769 01 NOP 8131 ; 8132 PL_PATN_09000 8133 S00276A 3D A0 66 LMS R0,CPLSTOP 8134 S00276D 9E LOB 8135 S00276E 09 1F' BEQ PL_PATN_10000 ;棒立ち中？ ( yes:PL_PATN_10000 ) 8136 S002770 01 NOP 8137 ; 8138 ;-------------- 横壁押しパターンセット ---------------------------------- 8139 S002771 3D A0 6E LMS R0,CPSPUSH 8140 S002774 9E LOB 8141 S002775 09 10' BEQ PL_PATN_09100 ;横壁押し中？ ( no:PL_PATN_09100 ) 8142 S002777 01 NOP 8143 ; 8144 S002778 A1 10 IBT R1,#PUSHTM 8145 S00277A 61 SUB R1 8146 S00277B 0C 12' BCC PL_PATN_10000 ;横壁押し待ち中？ ( no:PL_PATN_10000 ) 8147 S00277D 01 NOP 8148 ; 8149 S00277E 03 LSR 8150 S00277F 3F 71 BIC #01H ;[ AND #0FFFEH ] 8151 S002781 FE 0000" IWT R14,#PUSH_PATN 8152 S002784 05 DA' BRA PL_PATN_GET 8153 S002786 1E TO R14 8154 ; 8155 PL_PATN_09100 8156 S002787 3D A0 5A LMS R0,CPLMVSP 8157 S00278A 3E 60 SUB #0 ;(N) <-- 符号 8158 S00278C 08 56' BNE PL_PATN_11000 ;止まってる？ ( no:PL_PATN_11000 ) 8159 S00278E 01 NOP 8160 ; 8161 ;-------------- 止まってる時のパターンセット ---------------------------- 8162 ; 8163 ;-------------- 上向きパターンセット ---------------------------- 8164 PL_PATN_10000 8165 S00278F 3D A0 67 LMS R0,CPLUPFG 8166 S002792 3E 60 SUB #0 8167 S002794 08 CF' BNE PL_PATN_SET_2 ;上向き中？ ( yes:PL_PATN_SET_2 ) 8168 S002796 01 NOP 8169 ; 8170 S002797 3D F0 1FE8 LM R0,CFURA_FG 8171 S00279B 3E 60 SUB #0 8172 S00279D 09 0D' BEQ PL_PATN_100050 ;”フラフラ”モード？ ( no:PL_PATN_100050 ) 8173 S00279F 01 NOP 8174 ; 8175 ;-------------- ”フラフラ”パターンセット ---------------------- 8176 S0027A0 FE 0000" IWT R14,#FURA_PATN ;(R14) <-- タマゴ持ってない時パターンデータアドレス 8177 PL_PATN_10010 8178 S0027A3 3D A0 79 LMS R0,CPLFRCT 8179 S0027A6 A1 00" IBT R1,#FR_MV 8180 S0027A8 51 ADD R1 8181 S0027A9 05 B5' BRA PL_PATN_GET 8182 S0027AB 1E TO R14 8183 ; 8184 ;-------------- 止まってる時のいろんなパターンセット ------------ 8185 PL_STOP_PT_SET 8186 PL_PATN_100050 8187 S0027AC 3D A0 EC LMS R0,CPSTPTM 8188 S0027AF 9E LOB 8189 S0027B0 08 1C' BNE PL_PATN_10200 ;”ポリポリ”？ ( no:PL_PATN_10200 ) 8190 S0027B2 01 NOP 8191 ; 8192 S0027B3 A1 00 IBT R1,#00 ;(R1) <-- ”タンタン”タイプ 8193 S0027B5 3D F0 1970 LM R0,CRANDM0 8194 S0027B9 03 LSR 8195 S0027BA 0D 04' BCS PL_PATN_10100 ;止まってる時のタイプセット？ ( no:PL_PATN_10100 ) 8196 ;;;;; LSR ;[SFC] ＳＦＣ仕様に合わせた為！！ 8197 S0027BC 01 NOP ;[SFC] ＳＦＣ仕様に合わせた為！！ 8198 ; 8199 S0027BD 11 TO R1 8200 S0027BE 3E 76 AND #03H*2 8201 PL_PATN_10100 8202 S0027C0 3E A1 7B SMS R1,CPSTPNO ;止まってる時のタイプセット 8203 S0027C3 B1 FROM R1 ;[SFC] ＳＦＣ仕様に合わせた為！！ 8204 S0027C4 03 LSR ;[SFC] ＳＦＣ仕様に合わせた為！！ 8205 S0027C5 FE 0000" IWT R14,#PLSTOP_TMDT 8206 S0027C8 1E TO R14 8207 S0027C9 5E ADD R14 8208 S0027CA EF GETB 8209 S0027CB 3E A0 EC SMS R0,CPSTPTM ;止まってる時のタイプ用タイマーセット 8210 ; 8211 PL_PATN_10200 8212 S0027CE 11 TO R1 8213 S0027CF 50 ADD R0 8214 S0027D0 3D A0 7B LMS R0,CPSTPNO 8215 ;;;; ADD R0 ;[SFC] ＳＦＣ仕様に合わせた為！！ 8216 S0027D3 FE 0000" IWT R14,#PLSTOP_PTIN 8217 S0027D6 1E TO R14 8218 S0027D7 5E ADD R14 8219 S0027D8 EF GETB 8220 S0027D9 DE INC R14 8221 S0027DA 3D EF GETBH 8222 S0027DC 51 ADD R1 8223 S0027DD FE 0000" IWT R14,#PLSTOP_PATN 8224 mDJMP_X PL_PATN_GET 8224+ S0027E0 FF 2760' IWT R15, #PL_PATN_GET 8225 S0027E3 1E TO R14 8226 ; 8227 ;-------------- 歩きパターンセット -------------------------------------- 8228 PL_PATN_11000 8229 S0027E4 0A 03' BPL PL_PATN_11100 8230 S0027E6 01 NOP 8231 ; 8232 S0027E7 4F NOT 8233 S0027E8 D0 INC R0 8234 PL_PATN_11100 8235 S0027E9 3D F4 1FE8 LM R4,CFURA_FG ;(R4) <-- ”フラフラ”モードフラグ 8236 S0027ED 24 B4 MOVES R4,R4 8237 S0027EF 08 39' BNE PL_PATN_11200 ;”フラフラ”モード？ ( yes:PL_PATN_11200 ) 8238 S0027F1 01 NOP 8239 ; 8240 S0027F2 F1 0260 IWT R1,#BWXMX-20H 8241 S0027F5 61 SUB R1 8242 S0027F6 0C 32' BCC PL_PATN_11200 ;（Ｐ）ダッシュ中？ ( no:PL_PATN_11200 ) 8243 S0027F8 51 ADD R1 8244 ; 8245 ;-------------- （Ｐ）ダッシュパターンセット -------------------- 8246 S0027F9 F1 0018 IWT R1,#P01C 8247 S0027FC 3D A0 6F LMS R0,CPLNAGE 8248 S0027FF E0 DEC R0 8249 S002800 0B 04' BMI PL_PATN_11110 ;タマゴ投げ中？ ( no:PL_PATN_11110 ) 8250 S002802 01 NOP 8251 ; 8252 S002803 F1 0053 IWT R1,#NR1C 8253 PL_PATN_11110 8254 S002806 3D F0 1974 LM R0,CFRCNT2 8255 S00280A 3E 72 AND #00000010B 8256 S00280C 08 12' BNE PL_PATN_11130 ;歩くサウンドセット？ ( no:PL_PATN_11130 ) 8257 S00280E 01 NOP 8258 ; 8259 ;-------------- 歩くサウンドセット ------------------------------ 8260 S00280F 3D A0 7D LMS R0,CPLBGNO 8261 S002812 FE 0000" IWT R14,#WALK_SOUND 8262 S002815 1E TO R14 8263 S002816 5E ADD R14 8264 S002817 EF GETB 8265 S002818 E0 DEC R0 8266 S002819 0B 04' BMI PL_PATN_11120 ;歩くサウンドセット？ ( no:PL_PATN_11120 ) 8267 S00281B D0 INC R0 8268 ; 8269 S00281C 3E A0 3D SMS R0,CMSOUND3 ;[♪] 8270 PL_PATN_11120 8271 S00281F 60 SUB R0 ;[ IBT R0,#0 ] 8272 PL_PATN_11130 8273 S002820 3E A0 7C SMS R0,CPLWALK 8274 S002823 03 LSR 8275 S002824 51 ADD R1 8276 PL_PATN_SET 8277 S002825 3E A0 5F SMS R0,CPLPATN 8278 mRTS 8278+ S002828 9B JMP R11 8278+ S002829 01 NOP 8279 ; 8280 ;-------------- 歩きパターンセット ------------------------------ 8281 PL_PATN_11200 8282 S00282A 50 ADD R0 8283 S00282B 50 ADD R0 8284 S00282C 11 TO R1 ;(R1) <-- 歩くスピードポインター 8285 S00282D C0 HIB 8286 S00282E 3D A0 E9 LMS R0,CPLWKTM 8287 S002831 9E LOB ;(Z) <-- 歩くパターン切り替え？ 8288 ; 8289 S002832 3D A0 7C LMS R0,CPLWALK ;(R0) <-- 歩くパターンカウンター [ * SBK ] 8290 S002835 F2 0000" IWT R2,#WALK_PATN ;(R2) <-- 歩くパターンＮｏ．データアドレス 8291 ; 8292 S002838 08 5B' BNE PL_PATN_11400 ;歩くパターン切り替え？ ( no:PL_PATN_11400 ) 8293 S00283A 01 NOP 8294 ; 8295 S00283B 3D A3 5A LMS R3,CPLMVSP 8296 S00283E 3D AE 62 LMS R14,CPLCMKI 8297 S002841 EE DEC R14 8298 S002842 23 WITH R3 8299 S002843 3D CE XOR R14 8300 S002845 0B 0B' BMI PL_PATN_11250 ;後ろ歩き？ ( no:PL_PATN_11250 ) 8301 S002847 D0 INC R0 ;[+1] 8302 ; 8303 S002848 3E 63 SUB #2+1 8304 S00284A 0A 0E' BPL PL_PATN_11300 8305 S00284C 01 NOP 8306 ; 8307 S00284D A0 00" IBT R0,#WLKMX_C 8308 S00284F 05 09' BRA PL_PATN_11300 8309 S002851 01 NOP 8310 ; 8311 PL_PATN_11250 8312 S002852 A3 00" IBT R3,#WLKMX_C 8313 S002854 13 TO R3 8314 S002855 63 SUB R3 8315 S002856 0C 02' BCC PL_PATN_11300 8316 S002858 D0 INC R0 ;[+2] 8317 ; 8318 S002859 60 SUB R0 8319 PL_PATN_11300 8320 S00285A 3E A0 7C SMS R0,CPLWALK 8321 S00285D 20 13 MOVE R3,R0 ;(R3) <-- 歩くパターンカウンター 8322 ; 8323 S00285F 50 ADD R0 8324 S002860 50 ADD R0 8325 S002861 50 ADD R0 8326 S002862 11 TO R1 8327 S002863 C1 OR R1 8328 ; 8329 S002864 3D A0 7D LMS R0,CPLBGNO 8330 S002867 E3 DEC R3 8331 S002868 0B 08' BMI PL_PATN_11310 ;歩くサウンドセットパターン？ ( yes:PL_PATN_11310 ) 8332 S00286A D3 INC R3 8333 ; 8334 S00286B AE 00" IBT R14,#WLKMX_Cw2 8335 S00286D 2E WITH R14 ;[ * not break (R0) ] 8336 S00286E 63 SUB R3 8337 S00286F 08 0F' BNE PL_PATN_11350 ;歩くサウンドセットパターン？ ( no:PL_PATN_11350 ) 8338 S002871 01 NOP 8339 ; 8340 ;-------------- 歩くサウンドセット ------------------------------ 8341 PL_PATN_11310 8342 S002872 FE 0000" IWT R14,#WALK_SOUND 8343 S002875 1E TO R14 8344 S002876 5E ADD R14 8345 S002877 1E TO R14 8346 S002878 EF GETB 8347 S002879 EE DEC R14 8348 S00287A 0B 04' BMI PL_PATN_11350 ;歩くサウンドセット？ ( no:PL_PATN_11350 ) 8349 S00287C DE INC R14 8350 ; 8351 S00287D 3E AE 3D SMS R14,CMSOUND3 ;[♪] 8352 PL_PATN_11350 8353 S002880 50 ADD R0 8354 S002881 FE 0000" IWT R14,#WALK_TMIN 8355 S002884 1E TO R14 8356 S002885 5E ADD R14 8357 S002886 EF GETB 8358 S002887 DE INC R14 8359 S002888 3D EF GETBH 8360 S00288A 51 ADD R1 8361 S00288B FE 0000" IWT R14,#WALK_TMDT 8362 S00288E 1E TO R14 8363 S00288F 5E ADD R14 8364 S002890 EF GETB 8365 S002891 3E A0 E9 SMS R0,CPLWKTM ;歩くパターン切り替えタイマーセット 8366 ; 8367 S002894 B3 FROM R3 8368 PL_PATN_11400 8369 S002895 1E TO R14 8370 S002896 52 ADD R2 8371 ; 8372 S002897 3D A0 6F LMS R0,CPLNAGE 8373 S00289A E0 DEC R0 8374 S00289B 0B 05' BMI PL_PATN_11410 ;タマゴ投げ中？ ( no:PL_PATN_11410 ) 8375 S00289D 01 NOP 8376 ; 8377 S00289E A0 02" IBT R0,#WLKMX_C+2 8378 S0028A0 1E TO R14 8379 S0028A1 5E ADD R14 8380 ; 8381 PL_PATN_11410 8382 S0028A2 24 B4 MOVES R4,R4 8383 S0028A4 09 15' BEQ PL_PATN_11430 ;”フラフラ”モード？ ( no:PL_PATN_11430 ) 8384 S0028A6 01 NOP 8385 ; 8386 S0028A7 A0 04" IBT R0,#WLKMX_Cx2+(2*2) 8387 S0028A9 3D A4 79 LMS R4,CPLFRCT 8388 S0028AC 24 B4 MOVES R4,R4 ;(N) set 8389 ; 8390 S0028AE A4 00" IBT R4,#FR_MV 8391 S0028B0 0A 04' BPL PL_PATN_11420 ;前進？ ( yes:PL_PATN_11420 ) 8392 S0028B2 24 WITH R4 8393 ; 8394 S0028B3 4F NOT 8395 S0028B4 D4 INC R4 8396 S0028B5 50 ADD R0 ;x2 8397 PL_PATN_11420 8398 S0028B6 3E A4 79 SMS R4,CPLFRCT 8399 S0028B9 1E TO R14 8400 S0028BA 5E ADD R14 8401 ; 8402 PL_PATN_11430 8403 S0028BB EF GETB 8404 S0028BC DE INC R14 8405 S0028BD 3D EF GETBH 8406 S0028BF 3E A0 5F SMS R0,CPLPATN 8407 mRTS 8407+ S0028C2 9B JMP R11 8407+ S0028C3 01 NOP 8408 ; 8409 ; 8410 ; 8411 ; 8412 ;************************************************************************ 8413 ;* * 8414 ;* キノコヨッシー * 8415 ;* * 8416 ;************************************************************************ 8417 KINOKO_MV 8418 S0028C4 60 SUB R0 ;<<< end >>> 8419 S0028C5 00 STOP 8420 S0028C6 01 NOP 8421 ; 8422 ; 8423 ; 8424 ; 8425 ; 8426 ; 8427 ; 8428 ; 8429 ;************************************************************************ 8430 ;* * 8431 ;* 敵エリア確保 * 8432 ;* in: * 8433 ;* (R5) <-- 敵Ｎｏ． * 8434 ;* out: * 8435 ;* (N) <-- 0:エリア有り 1:エリア無し * 8436 ;* (R1) <-- 敵インデックス * 8437 ;* break: * 8438 ;* (R12) * 8439 ;* (R13) * 8440 ;* (REG14) * 8441 ;* * 8442 ;************************************************************************ 8443 0028C7 M_ENINSR EQU $ 8444 S0028C7 F1 0F5C IWT R1,#CENMODE+(CENNO-1)*4 ;(R1) <-- 敵モードポインター 8445 ; 8446 S0028CA AC 12 IBT R12,#CENNO-2-4 8447 S0028CC 2F 1D MOVE R13,R15 8448 M_ENINSR_010 8449 S0028CE 3D 41 LDB (R1) 8450 S0028D0 3E 60 SUB #0 8451 S0028D2 09 07' BEQ M_ENINSR_020 ;空きあり？( yes:M_ENINSR_020 ) 8452 S0028D4 E1 DEC R1 8453 ; 8454 S0028D5 E1 DEC R1 8455 S0028D6 E1 DEC R1 8456 S0028D7 3C LOOP 8457 S0028D8 E1 DEC R1 8458 ; 8459 mRTS_X 8459+ S0028D9 9B JMP R11 8460 S0028DA EC DEC R12 ;(N) <-- エリア無し 8461 ; 8462 M_ENINSR_020 8463 S0028DB BC FROM R12 8464 S0028DC 3E 55 ADD #2+4-1 8465 S0028DE 50 ADD R0 8466 S0028DF 11 TO R1 ;(R1) <-- 敵のインデックス 8467 S0028E0 50 ADD R0 8468 ; 8469 S0028E1 AC 10 IBT R12,#CEMOVE ;move "ON" 8470 mSTW R12,CENMODE,R1 8470+ S0028E3 F0 0F00 IWT R0,#CENMODE 8470+ S0028E6 51 ADD R1 8470+ S0028E7 BC FROM R12 8470+ S0028E8 30 STW (R0) 8471 S0028E9 FC 00FF IWT R12,#00FFH 8472 mSTW R12,CENRETN,R1 ;[ mSTW CENDORE,R1 ] 8472+ S0028EC F0 14A0 IWT R0,#CENRETN 8472+ S0028EF 51 ADD R1 8472+ S0028F0 BC FROM R12 8472+ S0028F1 30 STW (R0) 8473 ; 8474 S0028F2 AC 00 IBT R12,#0 8475 mSTW R12,CENCOLD,R1 8475+ S0028F4 F0 1D96 IWT R0,#CENCOLD 8475+ S0028F7 51 ADD R1 8475+ S0028F8 BC FROM R12 8475+ S0028F9 30 STW (R0) 8476 mSTW R12,CENXSPD,R1 8476+ S0028FA F0 1220 IWT R0,#CENXSPD 8476+ S0028FD 51 ADD R1 8476+ S0028FE BC FROM R12 8476+ S0028FF 30 STW (R0) 8477 mSTW R12,CENYSPD,R1 8477+ S002900 F0 1222 IWT R0,#CENYSPD 8477+ S002903 51 ADD R1 8477+ S002904 BC FROM R12 8477+ S002905 30 STW (R0) 8478 mSTW R12,CENCONT,R1 8478+ S002906 F0 1976 IWT R0,#CENCONT 8478+ S002909 51 ADD R1 8478+ S00290A BC FROM R12 8478+ S00290B 30 STW (R0) 8479 mSTW R12,CENMUKI,R1 8479+ S00290C F0 1400 IWT R0,#CENMUKI 8479+ S00290F 51 ADD R1 8479+ S002910 BC FROM R12 8479+ S002911 30 STW (R0) 8480 mSTW R12,CENEMU0,R1 ;[ mSTW CENXSDR,R1 ] 8480+ S002912 F0 10E0 IWT R0,#CENEMU0 8480+ S002915 51 ADD R1 8480+ S002916 BC FROM R12 8480+ S002917 30 STW (R0) 8481 mSTW R12,CECRSFG,R1 ;[ mSTW CENCRPT,R1 ] 8481+ S002918 F0 1D36 IWT R0,#CECRSFG 8481+ S00291B 51 ADD R1 8481+ S00291C BC FROM R12 8481+ S00291D 30 STW (R0) 8482 mSTW R12,CENWRK0,R1 ;[ mSTW CENWRK1,R1 ] 8482+ S00291E F0 1978 IWT R0,#CENWRK0 8482+ S002921 51 ADD R1 8482+ S002922 BC FROM R12 8482+ S002923 30 STW (R0) 8483 mSTW R12,CENWRK2,R1 ;[ mSTW CENWRK3,R1 ] 8483+ S002924 F0 19D6 IWT R0,#CENWRK2 8483+ S002927 51 ADD R1 8483+ S002928 BC FROM R12 8483+ S002929 30 STW (R0) 8484 mSTW R12,CENWRK4,R1 ;[ mSTW CENWRK5,R1 ] 8484+ S00292A F0 19D8 IWT R0,#CENWRK4 8484+ S00292D 51 ADD R1 8484+ S00292E BC FROM R12 8484+ S00292F 30 STW (R0) 8485 mSTW R12,CENWRK6,R1 ;[ mSTW CENWRK7,R1 ] 8485+ S002930 F0 1A36 IWT R0,#CENWRK6 8485+ S002933 51 ADD R1 8485+ S002934 BC FROM R12 8485+ S002935 30 STW (R0) 8486 mSTW R12,CENWRK8,R1 ;[ mSTW CENWRK9,R1 ] 8486+ S002936 F0 1A38 IWT R0,#CENWRK8 8486+ S002939 51 ADD R1 8486+ S00293A BC FROM R12 8486+ S00293B 30 STW (R0) 8487 mSTW R12,CENTIM0,R1 8487+ S00293C F0 1A96 IWT R0,#CENTIM0 8487+ S00293F 51 ADD R1 8487+ S002940 BC FROM R12 8487+ S002941 30 STW (R0) 8488 mSTW R12,CENTIM1,R1 8488+ S002942 F0 1A98 IWT R0,#CENTIM1 8488+ S002945 51 ADD R1 8488+ S002946 BC FROM R12 8488+ S002947 30 STW (R0) 8489 mSTW R12,CENTIM2,R1 8489+ S002948 F0 1AF6 IWT R0,#CENTIM2 8489+ S00294B 51 ADD R1 8489+ S00294C BC FROM R12 8489+ S00294D 30 STW (R0) 8490 mSTW R12,CENTIM3,R1 8490+ S00294E F0 1AF8 IWT R0,#CENTIM3 8490+ S002951 51 ADD R1 8490+ S002952 BC FROM R12 8490+ S002953 30 STW (R0) 8491 mSTW R12,CENCHPT,R1 8491+ S002954 F0 1402 IWT R0,#CENCHPT 8491+ S002957 51 ADD R1 8491+ S002958 BC FROM R12 8491+ S002959 30 STW (R0) 8492 mSTW R12,CENCBFG,R1 8492+ S00295A F0 1860 IWT R0,#CENCBFG 8492+ S00295D 51 ADD R1 8492+ S00295E BC FROM R12 8492+ S00295F 30 STW (R0) 8493 mSTW R12,CENSLOP,R1 ;[ mSTW R12,CEN_ADD_XSP,R1 ] 8493+ S002960 F0 0F02 IWT R0,#CENSLOP 8493+ S002963 51 ADD R1 8493+ S002964 BC FROM R12 8493+ S002965 30 STW (R0) 8494 mSTW R12,CENSHOT,R1 8494+ S002966 F0 1D38 IWT R0,#CENSHOT 8494+ S002969 51 ADD R1 8494+ S00296A BC FROM R12 8494+ S00296B 30 STW (R0) 8495 mSTW R12,CENBGYP,R1 8495+ S00296C F0 1720 IWT R0,#CENBGYP 8495+ S00296F 51 ADD R1 8495+ S002970 BC FROM R12 8495+ S002971 30 STW (R0) 8496 mSTW R12,CENDSXL,R1 8496+ S002972 F0 1680 IWT R0,#CENDSXL 8496+ S002975 51 ADD R1 8496+ S002976 BC FROM R12 8496+ S002977 30 STW (R0) 8497 mSTW R12,CENDSYL,R1 8497+ S002978 F0 1682 IWT R0,#CENDSYL 8497+ S00297B 51 ADD R1 8497+ S00297C BC FROM R12 8497+ S00297D 30 STW (R0) 8498 mSTW R12,CENXPOW,R1 8498+ S00297E F0 1540 IWT R0,#CENXPOW 8498+ S002981 51 ADD R1 8498+ S002982 BC FROM R12 8498+ S002983 30 STW (R0) 8499 mSTW R12,CENXMAX,R1 8499+ S002984 F0 15E0 IWT R0,#CENXMAX 8499+ S002987 51 ADD R1 8499+ S002988 BC FROM R12 8499+ S002989 30 STW (R0) 8500 mSTW R12,CENWRKX,R1 ;[ mSTW CENSPTM,R1 ] 8500+ S00298A F0 17C0 IWT R0,#CENWRKX 8500+ S00298D 51 ADD R1 8500+ S00298E BC FROM R12 8500+ S00298F 30 STW (R0) 8501 S002990 EC DEC R12 ;[ IBT R12,#0FFFFH ] 8502 mSTW R12,CENOAML,R1 8502+ S002991 F0 1362 IWT R0,#CENOAML 8502+ S002994 51 ADD R1 8502+ S002995 BC FROM R12 8502+ S002996 30 STW (R0) 8503 mSTW R12,CENTROB,R1 8503+ S002997 F0 1722 IWT R0,#CENTROB 8503+ S00299A 51 ADD R1 8503+ S00299B BC FROM R12 8503+ S00299C 30 STW (R0) 8504 S00299D FC 1FFF IWT R12,#0FFH+(((100H/8)-1)*100H) 8505 mSTW R12,CENWATR,R1 8505+ S0029A0 F0 1862 IWT R0,#CENWATR 8505+ S0029A3 51 ADD R1 8505+ S0029A4 BC FROM R12 8505+ S0029A5 30 STW (R0) 8506 ; 8507 mSTW R5,CENMYNO,R1 ;敵Ｎｏ．セット 8507+ S0029A6 F0 1360 IWT R0,#CENMYNO 8507+ S0029A9 51 ADD R1 8507+ S0029AA B5 FROM R5 8507+ S0029AB 30 STW (R0) 8508 ; 8509 S0029AC B5 FROM R5 8510 S0029AD 1C TO R12 ;(R12) <-- 敵Ｎｏ．x2 8511 S0029AE 55 ADD R5 8512 ; 8513 S0029AF 3E AE 2E SMS R14,REG14 ;(R14) save 8514 ; 8515 S0029B2 F0 0000" IWT R0,#ENCHR_BNK 8516 S0029B5 1E TO R14 8517 S0029B6 5C ADD R12 8518 S0029B7 1D TO R13 8519 S0029B8 EF GETB ;(R0) <-- 敵キャラクターバンク 8520 ; 8521 S0029B9 F5 0EBB IWT R5,#COBJCHR_BNK+(6-1) 8522 S0029BC AE 06 IBT R14,#6 8523 M_ENINSR_030 8524 S0029BE 3D 45 LDB (R5) 8525 S0029C0 6D SUB R13 8526 S0029C1 09 08' BEQ M_ENINSR_040 ;自分のキャラクターバンク有り？ ( yes:M_ENINSR_040 ) 8527 S0029C3 EE DEC R14 8528 ; 8529 S0029C4 08 F8' BNE M_ENINSR_030 8530 S0029C6 E5 DEC R5 8531 ; 8532 S0029C7 15 TO R5 8533 S0029C8 05 07' BRA M_ENINSR_050 8534 S0029CA 60 SUB R0 ;[ IBT R5,#0 ] 8535 ; 8536 M_ENINSR_040 8537 S0029CB BE FROM R14 ;[ 8 --> 8*4*8 = 100H ] 8538 S0029CC 3E 58 ADD #8 ;[ 9 --> 9*4*8 = 120H ] 8539 S0029CE 50 ADD R0 ;[ " ] 8540 S0029CF 15 TO R5 ;[ " ] 8541 S0029D0 50 ADD R0 ;[ " ] 8542 M_ENINSR_050 8543 mSTW R5,CENCHRB,R1 ;[ mSTW CENYSDR,R1 ] 8543+ S0029D1 F0 1180 IWT R0,#CENCHRB 8543+ S0029D4 51 ADD R1 8543+ S0029D5 B5 FROM R5 8543+ S0029D6 30 STW (R0) 8544 ; 8545 S0029D7 F0 0000" IWT R0,#ENDATA0 8546 S0029DA 1E TO R14 8547 S0029DB 5C ADD R12 8548 S0029DC 15 TO R5 8549 S0029DD EF GETB 8550 S0029DE DE INC R14 8551 mSTW R5,CENYUSN,R1 8551+ S0029DF F0 14A2 IWT R0,#CENYUSN 8551+ S0029E2 51 ADD R1 8551+ S0029E3 B5 FROM R5 8551+ S0029E4 30 STW (R0) 8552 S0029E5 EF GETB 8553 S0029E6 A5 20 IBT R5,#020H ;pri. initial set 8554 S0029E8 15 TO R5 8555 S0029E9 3D C5 XOR R5 8556 mSTW R5,CENCLOR,R1 8556+ S0029EB F0 1042 IWT R0,#CENCLOR 8556+ S0029EE 51 ADD R1 8556+ S0029EF B5 FROM R5 8556+ S0029F0 30 STW (R0) 8557 S0029F1 F0 0000" IWT R0,#ENDATA1 8558 S0029F4 1E TO R14 8559 S0029F5 5C ADD R12 8560 S0029F6 15 TO R5 8561 S0029F7 3F EF GETBS 8562 S0029F9 DE INC R14 8563 mSTW R5,CENGPOW,R1 8563+ S0029FA F0 1542 IWT R0,#CENGPOW 8563+ S0029FD 51 ADD R1 8563+ S0029FE B5 FROM R5 8563+ S0029FF 30 STW (R0) 8564 S002A00 3F EF GETBS 8565 S002A02 3E 88 MULT #8 ;x10H 8566 S002A04 15 TO R5 ; 8567 S002A05 50 ADD R0 ; 8568 mSTW R5,CENGMAX,R1 8568+ S002A06 F0 15E2 IWT R0,#CENGMAX 8568+ S002A09 51 ADD R1 8568+ S002A0A B5 FROM R5 8568+ S002A0B 30 STW (R0) 8569 S002A0C F0 0000" IWT R0,#ENMODE1 8570 S002A0F 1E TO R14 8571 S002A10 5C ADD R12 8572 S002A11 EF GETB 8573 S002A12 DE INC R14 8574 S002A13 15 TO R5 8575 S002A14 3D EF GETBH 8576 mSTW R5,CENMOD1,R1 8576+ S002A16 F0 0FA2 IWT R0,#CENMOD1 8576+ S002A19 51 ADD R1 8576+ S002A1A B5 FROM R5 8576+ S002A1B 30 STW (R0) 8577 S002A1C F0 0000" IWT R0,#ENMODE2 8578 S002A1F 1E TO R14 8579 S002A20 5C ADD R12 8580 S002A21 EF GETB 8581 S002A22 DE INC R14 8582 S002A23 15 TO R5 8583 S002A24 3D EF GETBH 8584 mSTW R5,CENMOD2,R1 8584+ S002A26 F0 1040 IWT R0,#CENMOD2 8584+ S002A29 51 ADD R1 8584+ S002A2A B5 FROM R5 8584+ S002A2B 30 STW (R0) 8585 S002A2C F0 0000" IWT R0,#ENMODE0 8586 S002A2F 1E TO R14 8587 S002A30 5C ADD R12 8588 S002A31 EF GETB 8589 S002A32 DE INC R14 8590 S002A33 15 TO R5 8591 S002A34 3D EF GETBH 8592 mSTW R5,CENMOD0,R1 8592+ S002A36 F0 0FA0 IWT R0,#CENMOD0 8592+ S002A39 51 ADD R1 8592+ S002A3A B5 FROM R5 8592+ S002A3B 30 STW (R0) 8593 ; 8594 S002A3C A0 1F IBT R0,#001FH 8595 S002A3E 75 AND R5 8596 S002A3F 50 ADD R0 ;[ ASL ] 8597 S002A40 50 ADD R0 ;[ ASL ] 8598 S002A41 50 ADD R0 ;[ ASL ] 8599 S002A42 FE 0000" IWT R14,#ENCRDT 8600 S002A45 1E TO R14 8601 S002A46 5E ADD R14 8602 S002A47 EF GETB 8603 S002A48 DE INC R14 8604 S002A49 15 TO R5 8605 S002A4A 3D EF GETBH 8606 S002A4C DE INC R14 8607 mSTW R5,CECNTXW,R1 8607+ S002A4D F0 1B56 IWT R0,#CECNTXW 8607+ S002A50 51 ADD R1 8607+ S002A51 B5 FROM R5 8607+ S002A52 30 STW (R0) 8608 S002A53 EF GETB 8609 S002A54 DE INC R14 8610 S002A55 15 TO R5 8611 S002A56 3D EF GETBH 8612 S002A58 DE INC R14 8613 mSTW R5,CECNTYW,R1 8613+ S002A59 F0 1B58 IWT R0,#CECNTYW 8613+ S002A5C 51 ADD R1 8613+ S002A5D B5 FROM R5 8613+ S002A5E 30 STW (R0) 8614 S002A5F EF GETB 8615 S002A60 DE INC R14 8616 S002A61 15 TO R5 8617 S002A62 3D EF GETBH 8618 S002A64 DE INC R14 8619 mSTW R5,CEWIDEX,R1 8619+ S002A65 F0 1BB6 IWT R0,#CEWIDEX 8619+ S002A68 51 ADD R1 8619+ S002A69 B5 FROM R5 8619+ S002A6A 30 STW (R0) 8620 S002A6B EF GETB 8621 S002A6C DE INC R14 8622 S002A6D 15 TO R5 8623 S002A6E 3D EF GETBH 8624 mSTW R5,CEWIDEY,R1 8624+ S002A70 F0 1BB8 IWT R0,#CEWIDEY 8624+ S002A73 51 ADD R1 8624+ S002A74 B5 FROM R5 8624+ S002A75 30 STW (R0) 8625 ; 8626 S002A76 3D AE 2E LMS R14,REG14 ;(R14) load 8627 ; 8628 mRTS_X 8628+ S002A79 9B JMP R11 8629 S002A7A 60 SUB R0 ;(N) <-- エリア有り 8630 ; 8631 ;************************************************************************ 8632 ;* * 8633 ;* 効果エリア確保 * 8634 ;* in: * 8635 ;* (R5) <-- 効果Ｎｏ． * 8636 ;* out: * 8637 ;* (R1) <-- 効果インデックス * 8638 ;* break: * 8639 ;* (R12) * 8640 ;* (R13) * 8641 ;* (REG14) * 8642 ;* * 8643 ;************************************************************************ 8644 002A7B M_EXINSR EQU $ 8645 S002A7B F1 0EFC IWT R1,#CEXMODE+(CEXNO-1)*4 ;(R1) <-- 効果モードポインター 8646 ; 8647 S002A7E AC 10 IBT R12,#CEXNO 8648 S002A80 2F 1D MOVE R13,R15 8649 M_EXINSR_010 8650 S002A82 3D 41 LDB (R1) 8651 S002A84 3E 60 SUB #0 8652 S002A86 09 17' BEQ M_EXINSR_030 ;空きあり？( yes:M_EXINSR_030 ) 8653 S002A88 E1 DEC R1 8654 ; 8655 S002A89 E1 DEC R1 8656 S002A8A E1 DEC R1 8657 S002A8B 3C LOOP 8658 S002A8C E1 DEC R1 8659 ; 8660 S002A8D 3D F0 1E4A LM R0,CEXSTCT 8661 S002A91 E0 DEC R0 8662 S002A92 E0 DEC R0 8663 S002A93 E0 DEC R0 8664 S002A94 E0 DEC R0 8665 S002A95 0A 03' BPL M_EXINSR_020 8666 S002A97 01 NOP 8667 ; 8668 S002A98 A0 3C IBT R0,#(CEXNO-1)*4 8669 M_EXINSR_020 8670 S002A9A 90 SBK 8671 ; 8672 S002A9B 03 LSR 8673 S002A9C 1C TO R12 8674 S002A9D 03 LSR 8675 S002A9E DC INC R12 8676 ; 8677 M_EXINSR_030 8678 S002A9F EC DEC R12 8679 S002AA0 BC FROM R12 8680 S002AA1 5C ADD R12 8681 S002AA2 11 TO R1 ;(R1) <-- 効果のインデックス 8682 S002AA3 50 ADD R0 8683 ; 8684 S002AA4 AC 0E IBT R12,#CENOK ;move "ON" 8685 mSTW R12,CEXMODE,R1 8685+ S002AA6 F0 0EC0 IWT R0,#CEXMODE 8685+ S002AA9 51 ADD R1 8685+ S002AAA BC FROM R12 8685+ S002AAB 30 STW (R0) 8686 S002AAC FC 00FF IWT R12,#00FFH 8687 mSTW R12,CEXRETN,R1 ;[ mSTW CEXDORE,R1 ] 8687+ S002AAF F0 1460 IWT R0,#CEXRETN 8687+ S002AB2 51 ADD R1 8687+ S002AB3 BC FROM R12 8687+ S002AB4 30 STW (R0) 8688 ; 8689 S002AB5 AC 00 IBT R12,#0 8690 mSTW R12,CEXXSPD,R1 8690+ S002AB7 F0 11E0 IWT R0,#CEXXSPD 8690+ S002ABA 51 ADD R1 8690+ S002ABB BC FROM R12 8690+ S002ABC 30 STW (R0) 8691 mSTW R12,CEXYSPD,R1 8691+ S002ABD F0 11E2 IWT R0,#CEXYSPD 8691+ S002AC0 51 ADD R1 8691+ S002AC1 BC FROM R12 8691+ S002AC2 30 STW (R0) 8692 mSTW R12,CEXMUKI,R1 8692+ S002AC3 F0 13C0 IWT R0,#CEXMUKI 8692+ S002AC6 51 ADD R1 8692+ S002AC7 BC FROM R12 8692+ S002AC8 30 STW (R0) 8693 mSTW R12,CEXEMU0,R1 ;[ mSTW CEXXSDR,R1 ] 8693+ S002AC9 F0 10A0 IWT R0,#CEXEMU0 8693+ S002ACC 51 ADD R1 8693+ S002ACD BC FROM R12 8693+ S002ACE 30 STW (R0) 8694 mSTW R12,CEXWRK0,R1 ;[ mSTW CEXWRK1,R1 ] 8694+ S002ACF F0 1E4C IWT R0,#CEXWRK0 8694+ S002AD2 51 ADD R1 8694+ S002AD3 BC FROM R12 8694+ S002AD4 30 STW (R0) 8695 mSTW R12,CEXWRK2,R1 ;[ mSTW CEXWRK3,R1 ] 8695+ S002AD5 F0 1E4E IWT R0,#CEXWRK2 8695+ S002AD8 51 ADD R1 8695+ S002AD9 BC FROM R12 8695+ S002ADA 30 STW (R0) 8696 mSTW R12,CEXWRK4,R1 ;[ mSTW CEXWRK5,R1 ] 8696+ S002ADB F0 1E8C IWT R0,#CEXWRK4 8696+ S002ADE 51 ADD R1 8696+ S002ADF BC FROM R12 8696+ S002AE0 30 STW (R0) 8697 mSTW R12,CEXTIM0,R1 8697+ S002AE1 F0 1782 IWT R0,#CEXTIM0 8697+ S002AE4 51 ADD R1 8697+ S002AE5 BC FROM R12 8697+ S002AE6 30 STW (R0) 8698 mSTW R12,CEXTIM1,R1 8698+ S002AE7 F0 1E8E IWT R0,#CEXTIM1 8698+ S002AEA 51 ADD R1 8698+ S002AEB BC FROM R12 8698+ S002AEC 30 STW (R0) 8699 mSTW R12,CEXCHPT,R1 8699+ S002AED F0 13C2 IWT R0,#CEXCHPT 8699+ S002AF0 51 ADD R1 8699+ S002AF1 BC FROM R12 8699+ S002AF2 30 STW (R0) 8700 mSTW R12,CEXCBFG,R1 8700+ S002AF3 F0 1820 IWT R0,#CEXCBFG 8700+ S002AF6 51 ADD R1 8700+ S002AF7 BC FROM R12 8700+ S002AF8 30 STW (R0) 8701 mSTW R12,CEXSLOP,R1 ;[ mSTW R12,CEX_ADD_XSP,R1 ] 8701+ S002AF9 F0 0EC2 IWT R0,#CEXSLOP 8701+ S002AFC 51 ADD R1 8701+ S002AFD BC FROM R12 8701+ S002AFE 30 STW (R0) 8702 mSTW R12,CEXBGYP,R1 8702+ S002AFF F0 16E0 IWT R0,#CEXBGYP 8702+ S002B02 51 ADD R1 8702+ S002B03 BC FROM R12 8702+ S002B04 30 STW (R0) 8703 mSTW R12,CEXDSXL,R1 8703+ S002B05 F0 1640 IWT R0,#CEXDSXL 8703+ S002B08 51 ADD R1 8703+ S002B09 BC FROM R12 8703+ S002B0A 30 STW (R0) 8704 mSTW R12,CEXDSYL,R1 8704+ S002B0B F0 1642 IWT R0,#CEXDSYL 8704+ S002B0E 51 ADD R1 8704+ S002B0F BC FROM R12 8704+ S002B10 30 STW (R0) 8705 mSTW R12,CEXXPOW,R1 8705+ S002B11 F0 1500 IWT R0,#CEXXPOW 8705+ S002B14 51 ADD R1 8705+ S002B15 BC FROM R12 8705+ S002B16 30 STW (R0) 8706 mSTW R12,CEXXMAX,R1 8706+ S002B17 F0 15A0 IWT R0,#CEXXMAX 8706+ S002B1A 51 ADD R1 8706+ S002B1B BC FROM R12 8706+ S002B1C 30 STW (R0) 8707 mSTW R12,CEXWRKX,R1 ;[ mSTW CEXSPTM,R1 ] 8707+ S002B1D F0 1780 IWT R0,#CEXWRKX 8707+ S002B20 51 ADD R1 8707+ S002B21 BC FROM R12 8707+ S002B22 30 STW (R0) 8708 S002B23 EC DEC R12 ;[ IBT R12,#0FFFFH ] 8709 mSTW R12,CEXOAML,R1 8709+ S002B24 F0 1322 IWT R0,#CEXOAML 8709+ S002B27 51 ADD R1 8709+ S002B28 BC FROM R12 8709+ S002B29 30 STW (R0) 8710 mSTW R12,CEXTROB,R1 8710+ S002B2A F0 16E2 IWT R0,#CEXTROB 8710+ S002B2D 51 ADD R1 8710+ S002B2E BC FROM R12 8710+ S002B2F 30 STW (R0) 8711 S002B30 FC 1FFF IWT R12,#0FFH+(((100H/8)-1)*100H) 8712 mSTW R12,CEXWATR,R1 8712+ S002B33 F0 1822 IWT R0,#CEXWATR 8712+ S002B36 51 ADD R1 8712+ S002B37 BC FROM R12 8712+ S002B38 30 STW (R0) 8713 ; 8714 mSTW R5,CEXSTNO,R1 ;exstra no. set 8714+ S002B39 F0 1320 IWT R0,#CEXSTNO 8714+ S002B3C 51 ADD R1 8714+ S002B3D B5 FROM R5 8714+ S002B3E 30 STW (R0) 8715 ; 8716 S002B3F B5 FROM R5 8717 S002B40 1C TO R12 ;(R12) <-- 敵Ｎｏ．x2 8718 S002B41 55 ADD R5 8719 ; 8720 S002B42 3E AE 2E SMS R14,REG14 ;(R14) save 8721 ; 8722 S002B45 F0 FC8C" IWT R0,#EXCHR_BNK-EXSTART*2 8723 S002B48 1E TO R14 8724 S002B49 5C ADD R12 8725 S002B4A 1D TO R13 8726 S002B4B EF GETB ;(R0) <-- 敵キャラクターバンク 8727 ; 8728 S002B4C F5 0EBB IWT R5,#COBJCHR_BNK+(6-1) 8729 S002B4F AE 06 IBT R14,#6 8730 M_EXINSR_040 8731 S002B51 3D 45 LDB (R5) 8732 S002B53 6D SUB R13 8733 S002B54 09 08' BEQ M_EXINSR_050 ;自分のキャラクターバンク有り？ ( yes:M_EXINSR_050 ) 8734 S002B56 EE DEC R14 8735 ; 8736 S002B57 08 F8' BNE M_EXINSR_040 8737 S002B59 E5 DEC R5 8738 ; 8739 S002B5A 15 TO R5 8740 S002B5B 05 07' BRA M_EXINSR_060 8741 S002B5D 60 SUB R0 ;[ IBT R5,#0 ] 8742 ; 8743 M_EXINSR_050 8744 S002B5E BE FROM R14 ;[ 8 --> 8*4*8 = 100H ] 8745 S002B5F 3E 58 ADD #8 ;[ 9 --> 9*4*8 = 120H ] 8746 S002B61 50 ADD R0 ;[ " ] 8747 S002B62 15 TO R5 ;[ " ] 8748 S002B63 50 ADD R0 ;[ " ] 8749 M_EXINSR_060 8750 mSTW R5,CEXCHRB,R1 ;[ mSTW CEXYSDR,R1 ] 8750+ S002B64 F0 1140 IWT R0,#CEXCHRB 8750+ S002B67 51 ADD R1 8750+ S002B68 B5 FROM R5 8750+ S002B69 30 STW (R0) 8751 ; 8752 S002B6A F0 FC8C" IWT R0,#EXDATA0-EXSTART*2 8753 S002B6D 1E TO R14 8754 S002B6E 5C ADD R12 8755 S002B6F 15 TO R5 8756 S002B70 EF GETB 8757 S002B71 DE INC R14 8758 mSTW R5,CEXYUSN,R1 8758+ S002B72 F0 1462 IWT R0,#CEXYUSN 8758+ S002B75 51 ADD R1 8758+ S002B76 B5 FROM R5 8758+ S002B77 30 STW (R0) 8759 S002B78 EF GETB 8760 ;;;; IBT R5,#020H ;pri. initial set 8761 S002B79 A5 30 IBT R5,#030H ;pri. initial set 8762 S002B7B 15 TO R5 8763 S002B7C 3D C5 XOR R5 8764 mSTW R5,CEXCLOR,R1 8764+ S002B7E F0 1002 IWT R0,#CEXCLOR 8764+ S002B81 51 ADD R1 8764+ S002B82 B5 FROM R5 8764+ S002B83 30 STW (R0) 8765 S002B84 F0 FC8C" IWT R0,#EXDATA1-EXSTART*2 8766 S002B87 1E TO R14 8767 S002B88 5C ADD R12 8768 S002B89 15 TO R5 8769 S002B8A 3F EF GETBS 8770 S002B8C DE INC R14 8771 mSTW R5,CEXGPOW,R1 8771+ S002B8D F0 1502 IWT R0,#CEXGPOW 8771+ S002B90 51 ADD R1 8771+ S002B91 B5 FROM R5 8771+ S002B92 30 STW (R0) 8772 S002B93 3F EF GETBS 8773 S002B95 3E 88 MULT #8 ;x10H 8774 S002B97 15 TO R5 ; 8775 S002B98 50 ADD R0 ; 8776 mSTW R5,CEXGMAX,R1 8776+ S002B99 F0 15A2 IWT R0,#CEXGMAX 8776+ S002B9C 51 ADD R1 8776+ S002B9D B5 FROM R5 8776+ S002B9E 30 STW (R0) 8777 S002B9F F0 FC8C" IWT R0,#EXMODE0-EXSTART*2 8778 S002BA2 1E TO R14 8779 S002BA3 5C ADD R12 8780 S002BA4 EF GETB 8781 S002BA5 DE INC R14 8782 S002BA6 15 TO R5 8783 S002BA7 3D EF GETBH 8784 mSTW R5,CEXMOD0,R1 8784+ S002BA9 F0 0F60 IWT R0,#CEXMOD0 8784+ S002BAC 51 ADD R1 8784+ S002BAD B5 FROM R5 8784+ S002BAE 30 STW (R0) 8785 S002BAF F0 FC8C" IWT R0,#EXMODE1-EXSTART*2 8786 S002BB2 1E TO R14 8787 S002BB3 5C ADD R12 8788 S002BB4 EF GETB 8789 S002BB5 DE INC R14 8790 S002BB6 15 TO R5 8791 S002BB7 3D EF GETBH 8792 mSTW R5,CEXMOD1,R1 8792+ S002BB9 F0 0F62 IWT R0,#CEXMOD1 8792+ S002BBC 51 ADD R1 8792+ S002BBD B5 FROM R5 8792+ S002BBE 30 STW (R0) 8793 S002BBF F0 FC8C" IWT R0,#EXMODE2-EXSTART*2 8794 S002BC2 1E TO R14 8795 S002BC3 5C ADD R12 8796 S002BC4 EF GETB 8797 S002BC5 DE INC R14 8798 S002BC6 15 TO R5 8799 S002BC7 3D EF GETBH 8800 mSTW R5,CEXMOD2,R1 8800+ S002BC9 F0 1000 IWT R0,#CEXMOD2 8800+ S002BCC 51 ADD R1 8800+ S002BCD B5 FROM R5 8800+ S002BCE 30 STW (R0) 8801 ; 8802 S002BCF 3D AE 2E LMS R14,REG14 ;(R14) load 8803 mRTS 8803+ S002BD2 9B JMP R11 8803+ S002BD3 01 NOP 8804 ; 8805 ;************************************************************************ 8806 ;* キャラクター拡大、縮小（サイズ ３２×３２） * 8807 ;* （エリア １６×１６） * 8808 ;* 入力 ： (R2) <-- ビットマップ座標＿Ｙ * 8809 ;* (R3) <-- ” ＿Ｘ * 8810 ;* (R4) <-- Ｙ倍率（１００Ｈ＝１．０） * 8811 ;* (R6) <-- 倍率（１００Ｈ＝１．０） * 8812 ;* (R8) <-- 中心＿Ｘ * 8813 ;* (R9) <-- ”＿Ｙ * 8814 ;* (R12) <-- キャラクターアドレス（Ｌ，Ｈ）* 8815 ;* (R13) <-- ” (Ｂ） * 8816 ;************************************************************************ 8817 ; 8818 002BD4 R_32_ZOOM_16 EQU $ 8819 S002BD4 26 14 MOVE R4,R6 ;(R4) <-- Ｙ倍率セット 8820 ; 8821 002BD6 R_32_ZOOM_XY_16 EQU $ 8822 S002BD6 3E AB 33 SMS R11,RTS3 ;[ return address save ] 8823 ; 8824 S002BD9 A1 01 IBT R1,#01H ;(R1) <-- color mode initial set 8825 ; 8826 ;-------------- キャラクター倍率変換 ------------------------------------ vvv******* warn :value out of range 8827 S002BDB FB 2200 IWT R11,#DIVBUF 8828 S002BDE BB FROM R11 8829 S002BDF 56 ADD R6 8830 S002BE0 56 ADD R6 8831 S002BE1 16 TO R6 ;(R6) <-- キャラクター倍率 8832 S002BE2 40 LDW (R0) 8833 ; 8834 S002BE3 BB FROM R11 8835 S002BE4 54 ADD R4 8836 S002BE5 54 ADD R4 8837 S002BE6 1B TO R11 ;(R11) <-- キャラクター倍率 8838 S002BE7 40 LDW (R0) 8839 ; 8840 ;-------------- キャラクタースタートポインター計算 ---------------------- 8841 S002BE8 28 10 MOVE R0,R8 8842 S002BEA 1A TO R10 8843 S002BEB 4D SWAP 8844 S002BEC 50 ADD R0 ;x2 8845 S002BED 4F NOT 8846 S002BEE D0 INC R0 8847 S002BEF 3D 9F LMULT 8848 S002BF1 2A WITH R10 ;(R10) <-- SX * x_zoom 8849 S002BF2 54 ADD R4 8850 S002BF3 26 15 MOVE R5,R6 ;(R5) <-- Ｘ倍率 8851 ; 8852 S002BF5 2B 16 MOVE R6,R11 8853 S002BF7 29 10 MOVE R0,R9 8854 S002BF9 17 TO R7 8855 S002BFA 4D SWAP 8856 S002BFB 50 ADD R0 ;x2 8857 S002BFC 4F NOT 8858 S002BFD D0 INC R0 8859 S002BFE 3D 9F LMULT 8860 S002C00 27 WITH R7 ;(R7) <-- SY * y_zoom 8861 S002C01 54 ADD R4 8862 ; 8863 ;-------------- 書き込みモード ＆キャラクターアドレスセット ------------- 8864 S002C02 2C 10 MOVE R0,R12 8865 S002C04 03 LSR ;(C) <-- color mode 8866 S002C05 0C 04' BCC R_32_ZOOM_16_10 ;hight bit color ? ( no:R_32_ZOOM_16_10 ) 8867 S002C07 50 ADD R0 8868 ; 8869 S002C08 21 WITH R1 8870 S002C09 3E C4 OR #04H 8871 R_32_ZOOM_16_10 8872 S002C0B B1 FROM R1 8873 S002C0C 3D 4E CMODE ;color mode set 8874 S002C0E 20 16 MOVE R6,R0 ;(R6) <-- キャラクターアドレス（Ｌ，Ｈ）セット 8875 ; 8876 ;-------------- キャラクター書き込み ------------------------------------ 8877 S002C10 BD FROM R13 8878 S002C11 3F DF ROMB ;キャラクターアドレス (Ｂ）set 8879 ; 8880 S002C13 A4 20 IBT R4,#32 ;(R4) <-- Y loop set 8881 S002C15 24 19 MOVE R9,R4 ;(R9) <-- X loop set 8882 S002C17 FD 2C21' IWT R13,#R_32_ZOOM_16_30 ;(R13) <-- loop return address set 8883 ; 8884 S002C1A 02 CACHE 8885 ; 8886 R_32_ZOOM_16_20 8887 S002C1B 23 11 MOVE R1,R3 ;(R1) <-- plot start X pos set 8888 S002C1D 2A 18 MOVE R8,R10 ;(R8) <-- PX 8889 ; 8890 S002C1F 29 1C MOVE R12,R9 ;X loop set 8891 R_32_ZOOM_16_30 8892 S002C21 70 MERGE 8893 S002C22 09 0A' BEQ R_32_ZOOM_16_40 ;area over ? ( yes:R_32_ZOOM_16_40 ) 8894 S002C24 1E TO R14 8895 ; 8896 S002C25 56 ADD R6 8897 ; 8898 S002C26 28 WITH R8 8899 S002C27 55 ADD R5 8900 S002C28 DF GETC ;color set 8901 S002C29 3C LOOP 8902 S002C2A 4C PLOT ;pset 8903 ; 8904 S002C2B 05 08' BRA R_32_ZOOM_16_50+1 8905 S002C2D 27 WITH R7 8906 ; 8907 R_32_ZOOM_16_40 8908 S002C2E 28 WITH R8 8909 S002C2F 55 ADD R5 8910 S002C30 60 SUB R0 ;[ IBT R0,#00 ] 8911 S002C31 4E COLOUR ;color set 8912 S002C32 3C LOOP 8913 S002C33 4C PLOT ;pset 8914 ; 8915 R_32_ZOOM_16_50 8916 S002C34 27 WITH R7 8917 S002C35 5B ADD R11 8918 S002C36 E4 DEC R4 8919 S002C37 08 E2' BNE R_32_ZOOM_16_20 ;end ? ( no:R_32_ZOOM_16_20 ) 8920 S002C39 D2 INC R2 ;Y pos +1 8921 ; 8922 S002C3A 3D 4C RPIX 8923 ; 8924 S002C3C 3D AB 33 LMS R11,RTS3 ;[ return address load ] 8925 mRTS 8925+ S002C3F 9B JMP R11 8925+ S002C40 01 NOP 8926 ; 8927 ;************************************************************************ 8928 ;* キャラクター拡大、縮小、回転（サイズ ３２×３２） * 8929 ;* （Ｘ，Ｙ倍率設定タイプ） （エリア ３２×３２） * 8930 ;* 入力 ： (R2) <-- ビットマップ座標＿Ｙ * 8931 ;* (R3) <-- ” ＿Ｘ * 8932 ;* (R5) <-- 角度（０〜ＦＦＨ） * 8933 ;* (R6) <-- Ｘ倍率（１００Ｈ＝１．０） * 8934 ;* (R4) <-- Ｙ ” * 8935 ;* (R12) <-- キャラクターアドレス（Ｌ，Ｈ）* 8936 ;* (R13) <-- ” (Ｂ） * 8937 ;************************************************************************ 8938 ; 8939 R_32_RTZ_32 8940 S002C41 26 14 MOVE R4,R6 ;(R4) <-- Ｙ倍率セット 8941 ; 8942 R_32_RTZ_32_XY 8943 S002C43 A1 01 IBT R1,#01H ;(R1) <-- color mode initial set 8944 ; 8945 ;-------------- キャラクター倍率変換 ------------------------------------ 8946 R_32_RTZ_32_XY_C vvv******* warn :value out of range 8947 S002C45 F8 2200 IWT R8,#DIVBUF 8948 S002C48 B8 FROM R8 8949 S002C49 56 ADD R6 8950 S002C4A 56 ADD R6 8951 S002C4B 16 TO R6 ;(R6) <-- キャラクター倍率 8952 S002C4C 40 LDW (R0) 8953 ; 8954 S002C4D B8 FROM R8 8955 S002C4E 54 ADD R4 8956 S002C4F 54 ADD R4 8957 S002C50 18 TO R8 ;(R8) <-- キャラクター倍率 8958 S002C51 40 LDW (R0) 8959 ; 8960 002C52 R_32_RTZ_C32_XY EQU $ 8961 S002C52 3E AB 33 SMS R11,RTS3 ;[ return aadress save ] 8962 ; 8963 S002C55 25 WITH R5 8964 S002C56 55 ADD R5 8965 ; 8966 ;-------------- キャラクタースタートポインター計算 ---------------------- 8967 S002C57 A0 00" IBT R0,#BANK COS 8968 S002C59 3F DF ROMB 8969 S002C5B F0 0000" IWT R0,#COS 8970 S002C5E 1E TO R14 8971 S002C5F 55 ADD R5 8972 S002C60 EF GETB 8973 S002C61 DE INC R14 8974 S002C62 3D EF GETBH 8975 S002C64 20 1E MOVE R14,R0 8976 S002C66 3D 9F LMULT 8977 S002C68 24 WITH R4 8978 S002C69 C0 HIB 8979 S002C6A 9E LOB 8980 S002C6B 4D SWAP 8981 S002C6C 19 TO R9 ;(R9) <-- cos * α 8982 S002C6D C4 OR R4 8983 ; 8984 S002C6E 26 17 MOVE R7,R6 ;(R7) <-- α 8985 S002C70 28 16 MOVE R6,R8 8986 S002C72 BE FROM R14 8987 S002C73 3D 9F LMULT 8988 S002C75 24 WITH R4 8989 S002C76 C0 HIB 8990 S002C77 9E LOB 8991 S002C78 4D SWAP 8992 S002C79 18 TO R8 ;(R8) <---- cos * β 8993 S002C7A C4 OR R4 8994 S002C7B 3E A8 00 SMS R8,CWORK0 ;(CWK0) <-- " 8995 ; 8996 S002C7E F0 0000" IWT R0,#SIN 8997 S002C81 1E TO R14 8998 S002C82 55 ADD R5 8999 S002C83 EF GETB 9000 S002C84 DE INC R14 9001 S002C85 3D EF GETBH 9002 S002C87 20 1E MOVE R14,R0 9003 S002C89 3D 9F LMULT 9004 S002C8B 24 WITH R4 9005 S002C8C C0 HIB 9006 S002C8D 9E LOB 9007 S002C8E 4D SWAP 9008 S002C8F C4 OR R4 9009 S002C90 4F NOT 9010 S002C91 D0 INC R0 9011 S002C92 20 15 MOVE R5,R0 ;(R5) <--- -sin * β 9012 S002C94 58 ADD R8 ;(R0) <-- cos * β - sin * β 9013 S002C95 4F NOT 9014 S002C96 D0 INC R0 9015 S002C97 50 ADD R0 9016 S002C98 50 ADD R0 9017 S002C99 50 ADD R0 9018 S002C9A 50 ADD R0 9019 S002C9B FA 1000 IWT R10,#010H*100H ;(R10) <-- cxy 9020 S002C9E 1B TO R11 ;(R11) <-- (xy) * (cos * β - sin * β) + (cxy) 9021 S002C9F 5A ADD R10 9022 ; 9023 S002CA0 27 16 MOVE R6,R7 9024 S002CA2 BE FROM R14 9025 S002CA3 3D 9F LMULT 9026 S002CA5 24 WITH R4 9027 S002CA6 C0 HIB 9028 S002CA7 9E LOB 9029 S002CA8 4D SWAP 9030 S002CA9 C4 OR R4 9031 S002CAA 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- sin * α 9032 S002CAD 59 ADD R9 ;(R0) <-- cos * α + sin * α 9033 S002CAE 4F NOT 9034 S002CAF D0 INC R0 9035 S002CB0 50 ADD R0 9036 S002CB1 50 ADD R0 9037 S002CB2 50 ADD R0 9038 S002CB3 50 ADD R0 9039 S002CB4 1A TO R10 ;(R10) <-- (xy) * (cos * α + sin * α) + (cxy) 9040 S002CB5 5A ADD R10 9041 ; 9042 ;-------------- 書き込みモード ＆キャラクターアドレスセット ------------- 9043 S002CB6 2C 10 MOVE R0,R12 9044 S002CB8 03 LSR ;(C) <-- color mode 9045 S002CB9 0C 04' BCC R_32_RTZ_XY3210 ;hight bit color ? ( no:R_32_RTZ_XY3210 ) 9046 S002CBB 50 ADD R0 9047 ; 9048 S002CBC 21 WITH R1 9049 S002CBD 3E C4 OR #04H 9050 R_32_RTZ_XY3210 9051 S002CBF B1 FROM R1 9052 S002CC0 3D 4E CMODE ;color mode set 9053 S002CC2 20 16 MOVE R6,R0 ;(R6) <-- キャラクターアドレス（Ｌ，Ｈ）セット 9054 ; 9055 ;-------------- キャラクター書き込み ------------------------------------ 9056 S002CC4 BD FROM R13 9057 S002CC5 3F DF ROMB ;キャラクターアドレス（Ｂ）セット 9058 ; 9059 S002CC7 A4 20 IBT R4,#32 ;(R4) <-- Y loop set 9060 S002CC9 FD 2CD5' IWT R13,#R_32_RTZ_XY3230 ;(R13) <-- loop return address set 9061 ; 9062 S002CCC 02 CACHE 9063 ; 9064 R_32_RTZ_XY3220 9065 S002CCD 23 11 MOVE R1,R3 ;(R1) <-- plot start X pos set 9066 S002CCF 2A 18 MOVE R8,R10 ;(R8) <-- PX 9067 S002CD1 2B 17 MOVE R7,R11 ;(R7) <-- PY 9068 ; 9069 S002CD3 AC 20 IBT R12,#32 ;X loop set 9070 R_32_RTZ_XY3230 9071 S002CD5 70 MERGE 9072 S002CD6 0D 0E' BCS R_32_RTZ_XY3240 ;area over ? ( yes:R_32_RTZ_XY3240 ) 9073 S002CD8 1E TO R14 9074 ; 9075 S002CD9 56 ADD R6 9076 ; 9077 S002CDA 28 WITH R8 9078 S002CDB 59 ADD R9 9079 S002CDC 27 WITH R7 9080 S002CDD 55 ADD R5 9081 S002CDE DF GETC ;color set 9082 S002CDF 3C LOOP 9083 S002CE0 4C PLOT 9084 ; 9085 S002CE1 05 0C' BRA R_32_RTZ_XY3250+1 9086 S002CE3 3D A0 01 LMS R0,CWORK1 ;[ dummy ] 9087 ; 9088 R_32_RTZ_XY3240 9089 S002CE6 28 WITH R8 9090 S002CE7 59 ADD R9 9091 S002CE8 27 WITH R7 9092 S002CE9 55 ADD R5 9093 S002CEA 60 SUB R0 ;[ IBT R0,#00 ] 9094 S002CEB 4E COLOUR ;color set 9095 S002CEC 3C LOOP 9096 S002CED 4C PLOT ;pset 9097 ; 9098 R_32_RTZ_XY3250 9099 S002CEE 3D A0 01 LMS R0,CWORK1 ;(R0) <-- sin * α 9100 S002CF1 1A TO R10 9101 S002CF2 5A ADD R10 9102 S002CF3 3D A0 00 LMS R0,CWORK0 ;(R0) <-- cos * β 9103 S002CF6 1B TO R11 9104 S002CF7 5B ADD R11 9105 S002CF8 E4 DEC R4 9106 S002CF9 08 D2' BNE R_32_RTZ_XY3220 ;end ? ( no:R_32_RTZ_XY3220 ) 9107 S002CFB D2 INC R2 ;Y pos +1 9108 ; 9109 S002CFC 3D 4C RPIX 9110 ; 9111 S002CFE 3D AB 33 LMS R11,RTS3 ;[ return address load ] 9112 mRTS 9112+ S002D01 9B JMP R11 9112+ S002D02 01 NOP 9113 ; 9114 ;************************************************************************ 9115 ;* キャラクター拡大、縮小（サイズ ３２×３２） * 9116 ;* 入力 ： (R2) <-- ビットマップ座標＿Ｙ * 9117 ;* (R3) <-- ” ＿Ｘ * 9118 ;* (R6) <-- 倍率（１００Ｈ＝１．０） * 9119 ;* (R8) <-- 中心＿Ｘ * 9120 ;* (R9) <-- ”＿Ｙ * 9121 ;* (R12) <-- キャラクターアドレス（Ｌ，Ｈ）* 9122 ;* (R13) <-- ” (Ｂ） * 9123 ;************************************************************************ 9124 ; 9125 002D03 R_32_ZOOM EQU $ 9126 S002D03 26 14 MOVE R4,R6 ;(R4) <-- Ｙ倍率セット 9127 ; 9128 002D05 R_32_ZOOM_XY EQU $ 9129 S002D05 A1 01 IBT R1,#01H ;(R1) <-- color mode initial set 9130 ; 9131 002D07 R_32_ZOOM_XY_C EQU $ 9132 S002D07 3E AB 33 SMS R11,RTS3 ;[ return aadress save ] 9133 ; 9134 ;-------------- キャラクター倍率変換 ------------------------------------ vvv******* warn :value out of range 9135 S002D0A FB 2200 IWT R11,#DIVBUF 9136 S002D0D BB FROM R11 9137 S002D0E 56 ADD R6 9138 S002D0F 56 ADD R6 9139 S002D10 16 TO R6 ;(R6) <-- キャラクター倍率 9140 S002D11 40 LDW (R0) 9141 ; 9142 S002D12 BB FROM R11 9143 S002D13 54 ADD R4 9144 S002D14 54 ADD R4 9145 S002D15 1B TO R11 ;(R11) <-- キャラクター倍率 9146 S002D16 40 LDW (R0) 9147 ; 9148 ;-------------- キャラクタースタートポインター計算 ---------------------- 9149 S002D17 28 10 MOVE R0,R8 9150 S002D19 1A TO R10 9151 S002D1A 4D SWAP 9152 S002D1B 4F NOT 9153 S002D1C D0 INC R0 9154 S002D1D 3D 9F LMULT 9155 S002D1F 2A WITH R10 ;(R10) <-- SX * x_zoom 9156 S002D20 54 ADD R4 9157 S002D21 26 15 MOVE R5,R6 ;(R5) <-- Ｘ倍率 9158 ; 9159 S002D23 2B 16 MOVE R6,R11 9160 S002D25 29 10 MOVE R0,R9 9161 S002D27 17 TO R7 9162 S002D28 4D SWAP 9163 S002D29 4F NOT 9164 S002D2A D0 INC R0 9165 S002D2B 3D 9F LMULT 9166 S002D2D 27 WITH R7 ;(R7) <-- SY * y_zoom 9167 S002D2E 54 ADD R4 9168 ; 9169 ;-------------- 書き込みモード ＆キャラクターアドレスセット ------------- 9170 S002D2F 2C 10 MOVE R0,R12 9171 S002D31 03 LSR ;(C) <-- color mode 9172 S002D32 0C 04' BCC R_32_ZOOM_10 ;hight bit color ? ( no:R_32_ZOOM_10 ) 9173 S002D34 50 ADD R0 9174 ; 9175 S002D35 21 WITH R1 9176 S002D36 3E C4 OR #04H 9177 R_32_ZOOM_10 9178 S002D38 B1 FROM R1 9179 S002D39 3D 4E CMODE ;color mode set 9180 S002D3B 20 16 MOVE R6,R0 ;(R6) <-- キャラクターアドレス（Ｌ，Ｈ）セット 9181 ; 9182 ;-------------- キャラクター書き込み ------------------------------------ 9183 S002D3D BD FROM R13 9184 S002D3E 3F DF ROMB ;キャラクターアドレス (Ｂ）set 9185 ; 9186 S002D40 FD 2D4E' IWT R13,#R_32_ZOOM_30 ;(R13) <-- loop return address set 9187 S002D43 A4 20 IBT R4,#32 ;(R4) <-- Y loop set 9188 S002D45 24 19 MOVE R9,R4 ;(R9) <-- X loop set 9189 ; 9190 S002D47 02 CACHE 9191 ; 9192 R_32_ZOOM_20 9193 S002D48 23 11 MOVE R1,R3 ;(R1) <-- plot start X pos set 9194 S002D4A 2A 18 MOVE R8,R10 ;(R8) <-- PX 9195 ; 9196 S002D4C 29 1C MOVE R12,R9 ;X loop set 9197 R_32_ZOOM_30 9198 S002D4E 70 MERGE 9199 S002D4F 0D 0A' BCS R_32_ZOOM_40 ;area over ? ( yes:R_32_ZOOM_40 ) 9200 S002D51 1E TO R14 9201 ; 9202 S002D52 56 ADD R6 9203 ; 9204 S002D53 28 WITH R8 9205 S002D54 55 ADD R5 9206 S002D55 DF GETC ;color set 9207 S002D56 3C LOOP 9208 S002D57 4C PLOT ;pset 9209 ; 9210 S002D58 05 08' BRA R_32_ZOOM_50+1 9211 S002D5A 27 WITH R7 9212 ; 9213 R_32_ZOOM_40 9214 S002D5B 28 WITH R8 9215 S002D5C 55 ADD R5 9216 S002D5D 60 SUB R0 ;[ IBT R0,#00 ] 9217 S002D5E 4E COLOUR ;color set 9218 S002D5F 3C LOOP 9219 S002D60 4C PLOT ;pset 9220 ; 9221 R_32_ZOOM_50 9222 S002D61 27 WITH R7 9223 S002D62 5B ADD R11 9224 S002D63 E4 DEC R4 9225 S002D64 08 E2' BNE R_32_ZOOM_20 ;end ? ( no:R_32_ZOOM_20 ) 9226 S002D66 D2 INC R2 ;Y pos +1 9227 ; 9228 S002D67 3D 4C RPIX 9229 ; 9230 S002D69 3D AB 33 LMS R11,RTS3 ;[ return address load ] 9231 mRTS 9231+ S002D6C 9B JMP R11 9231+ S002D6D 01 NOP 9232 ; 9233 ; 9234 ; 9235 ; 9236 ; 9237 END