File : ys_mplay3.asm SUPER-FX ASSEMBLER $Ver 1.01 Wed Jul 5 09:47:46 1995 Page 0001 1 ;************************************************************************ 2 ;* * 3 ;* title name : "yossy" * 4 ;* proccess : mario chip player program (ヘリコプター) * 5 ;* (潜水艦) * 6 ;* (マリオ) * 7 ;* (汽車) * 8 ;* (モグラ) * 9 ;* (スキー) * 10 ;* file name : ys_mplay3 * 11 ;* * 12 ;************************************************************************ 13 ; 14 ; 15 SALL 16 ; 17 include ys_chip.inc 18 include ys_chip2.inc 19 ; 20 XALL 21 ; 22 ; 23 ;------------------------------------------------------------------------ 24 ;- global symbol - 25 ;------------------------------------------------------------------------ 26 GLB HERI_MV 27 GLB SBMARIN_MV 28 GLB MOGURA_MV 29 GLB MARIO_MV 30 GLB TRAIN_MV 31 GLB SKI_MV 32 GLB EGG_MV 33 ; 34 GLB MARIO_PS_HOSE 35 ; 36 ;------------------------------------------------------------------------ 37 ;- extern symbol - 38 ;------------------------------------------------------------------------ 39 ; 40 ;-------------< ys_mplay >----------------------------------------------- 41 EXT PL_CALC,XY_CALC,PL_BGCK,PL_BGCK_2,WATR_CHECK 42 EXT PL_KEY_XMOV,PL_XSP_DOWN,PL_BGCK_0300 43 EXT BG_SIDECK_IN,BG_SIDECK,BG_HDFTCK,BGUNIT_READ_S,BGUNIT_READ 44 EXT FOOT_RESULT,FOOT_RESULT_C,DOSN_JUST_CK,DASH_SMOK_CK 45 EXT M_ENINSR,M_EXINSR 46 EXT BABL0_SET,WTUP0_SET,WTUP1_SET 47 EXT BABL0_SET_2,WTUP0_SET_2,WTUP1_SET_2 48 EXT BRBG0_SET,SIDE_SP_CK,HED_SP_CK,FOOT_SP_CK 49 EXT XY_CALC,PL_CALC_JUMP,PL_CALC_NOJUMP 50 EXT DOKAN_INOUT_IN,DOKAN_INOUT_IN_2 51 EXT COIN_CROSS,FAIL_CROSS,SUGI_CROSS,CLR_COIN_CROSS 52 EXT BG_SP_CHECK 53 ; 54 EXT R_32_RTZ_32,R_32_RTZ_32_XY_C 55 EXT R_32_ZOOM,R_32_ZOOM_XY 56 ; 57 EXT PSHT 58 ; 59 ;-------------< ys_chip0 >----------------------------------------------- 60 EXT COS,SIN,LCOS,LSIN 61 ; 62 ;-------------< ys_msub0 >----------------------------------------------- 63 EXT EN_BGTYPE,SAKA_DATA 64 ; 65 ;-------------< 敵Ｎｏ． >--------------------------------------- 66 EXT MISA0 ;,POLDR 67 ; 68 ;-------------< 効果Ｎｏ． >------------------------------------- 69 EXT MSMK0,DUST0,SNOW1,KIRA0,TRSMK 70 ; 71 ;-------------< ys_mpldt >----------------------------------------------- 72 EXT PLAYER_DATA 73 EXT PLBGCK_POINT_00,PLBGCK_POINT_HR,PLBGCK_POINT_MG 74 EXT PLBGCK_POINT_01,PLBGCK_POINT_TR 75 EXT PLBGCK_POINT_MR,PLBGCK_POINT_MR0,PLBGCK_POINT_MR1 76 EXT JPET 77 EXT MAX_SPEED,MAX_DASH,ADD_SPEED,MIN_SPEED,SUB_SPEED 78 EXT DOKAN_TYPE 79 EXT HR_MOVE_DT,HR_MKCG_PT 80 ; 81 EXT SB_MOVE_DT 82 ; 83 EXT MG_MVKEY,MG_FOOTBGP,MG_HEADBGP,MG_SIDEBGP,MG_DWMKCHG 84 EXT MG_UPMKCHG,MG_FOOTHSD,MG_POSCNV,MG_KEYCNV,MG_MVANGL 85 ; 86 EXT M_ANGCKD 87 EXT M_ATAN,M_TAN 88 ; 89 EXT MR_MANT_JMPUP,MR_MANT_JMPDW,MR_MANT_NOJMP 90 EXT MR_CHR_TYPE,MR_MANT_PATN,MR_WLK_CHRDT,MR_HOB_CHRDT 91 EXT MR_P_STOP,MR_P_SITD,MR_P_UPJP,MR_P_DWJP,MR_P_SLIP 92 EXT MR_P_WLK0,MR_P_WLK1,MR_P_WLK2,MR_P_WLK3 93 ; 94 EXT TR_CHR_ADRS,GO_RALE_KEY,RALE_BIT_AND,RALE_BIT_DATA 95 EXT GO_RALE_HSDT,RALE_HS_ANAD,TR_KEY_ANGL 96 EXT WALK_SOUND 97 ; 98 EXT ON_SKI 99 ; 100 ;------------------------------------------------------------------------ 101 ;- define symbol - 102 ;------------------------------------------------------------------------ 103 ; 104 ;-------------- ＢＧユニットＮｏ．バッファアドレス ------------------ 105 7F8000 CBGUNIT EQU 7F8000H 106 ; 107 ; 108 ; 109 000010 PUSHTM EQU 010H 110 ; 111 ; 112 ; 113 ;************************************************************************ 114 ;* * 115 ;* program start * 116 ;* * 117 ;************************************************************************ 118 ; 119 ; 120 Group_B GROUP S_play3 121 S_play3 SECT REL 122 ; 123 ; 124 ;************************************************************************ 125 ;* * 126 ;* ヘリコプター * 127 ;* * 128 ;************************************************************************ 129 ; 130 HERI_MV 131 ; 132 ;------------------------------------------------------------------------ 133 ;- 移動サウンドセット - 134 ;------------------------------------------------------------------------ 135 S000000 3D F0 1974 LM R0,CFRCNT2 ;ずっと雪の効果セットする為 136 S000004 3E 77 AND #07H 137 S000006 3E A0 7C SMS R0,CPLWALK 138 ; 139 S000009 3D A1 54 LMS R1,CPLXSPD 140 S00000C E1 DEC R1 141 S00000D 0A 04' BPL HERI_MV_0000 142 S00000F D1 INC R1 143 ; 144 S000010 21 WITH R1 145 S000011 4F NOT 146 S000012 D1 INC R1 147 HERI_MV_0000 148 S000013 3D A0 55 LMS R0,CPLYSPD 149 S000016 E0 DEC R0 150 S000017 0A 03' BPL HERI_MV_0002 151 S000019 D0 INC R0 152 ; 153 S00001A 4F NOT 154 S00001B D0 INC R0 155 HERI_MV_0002 156 S00001C 61 SUB R1 157 S00001D 0D 02' BCS HERI_MV_0004 158 S00001F 51 ADD R1 159 ; 160 S000020 B1 FROM R1 161 HERI_MV_0004 162 S000021 C0 HIB 163 S000022 11 TO R1 ;[ * not break (R0) ] 164 S000023 3E 64 SUB #4 165 S000025 0C 03' BCC HERI_MV_0006 ;スピードオーバー？ ( no:HERI_MV_0006 ) 166 S000027 01 NOP 167 ; 168 S000028 A0 03 IBT R0,#3 169 HERI_MV_0006 170 S00002A 3E C4 OR #00000100B 171 S00002C 3E A0 3B SMS R0,CMSOUND1 172 ; 173 mJSR HERI_SUB ;ヘリコプター基本ルーチン 173+ S00002F 94 LINK #4 173+ S000030 FF 0179' IWT R15, #HERI_SUB 173+ S000033 01 NOP 174 S000034 F0 0008 IWT R0,#P008 ;ジャンプフラグ”ＯＮ” 175 S000037 3E A0 60 SMS R0,CPLJUMP 176 ; 177 S00003A 3D A0 EB LMS R0,CPLFLSH 178 ;;;; IBT R1,#040H 179 S00003D A1 20 IBT R1,#020H 180 S00003F 61 SUB R1 181 S000040 0B 3D' BMI HERI_MV_0010 ;プレイヤーダメージ？ ( no:HERI_MV_0010 ) 182 S000042 01 NOP 183 ; 184 ;------------------------------------------------------------------------ 185 ;- ダメージ中の処理 - 186 ;------------------------------------------------------------------------ 187 S000043 3D A0 C0 LMS R0,CPHR_ANSP ;(R0) <-- 回転スピード 188 S000046 3E 60 SUB #0 189 S000048 09 35' BEQ HERI_MV_0010 ;ダメージ処理終了？ ( yes:HERI_MV_0010 ) 190 S00004A 01 NOP 191 ; 192 S00004B A1 E0 IBT R1,#-020H ;(R1) <-- 回転スピード減速値 193 S00004D 0A 03' BPL HERI_FL_0050 194 S00004F 01 NOP 195 ; 196 S000050 A1 20 IBT R1,#020H ;(R1) <-- 回転スピード減速値 197 HERI_FL_0050 198 S000052 51 ADD R1 199 S000053 11 TO R1 200 S000054 3D C1 XOR R1 201 S000056 0B 02' BMI HERI_FL_0100 ;減速終了？ ( no:HERI_FL_0100 ) 202 S000058 01 NOP 203 ; 204 S000059 60 SUB R0 205 HERI_FL_0100 206 S00005A 90 SBK ;[ SMS CPHR_ANSP ] 207 ; 208 S00005B 3D A1 BF LMS R1,CPHR_ANGL ;(R1) <-- 回転角度 209 S00005E 51 ADD R1 210 S00005F 90 SBK ;[ SMS CPHR_ANGL ] 211 ; 212 S000060 3D A0 C1 LMS R0,CPHR_MKCG 213 S000063 3E 62 SUB #2 214 S000065 08 07' BNE HERI_FL_0150 ;前向いてる？ ( no:HERI_FL_0150 ) 215 S000067 D0 INC R0 216 ; 217 S000068 3E A0 C2 SMS R0,CPHR_FMKF ;[ R0=1 ] 前向きフラグセット 218 S00006B 05 07' BRA HERI_FL_0250 219 S00006D 01 NOP 220 ; 221 HERI_FL_0150 222 S00006E 0D 03' BCS HERI_FL_0200 223 S000070 01 NOP 224 ; 225 S000071 D0 INC R0 226 S000072 D0 INC R0 227 000073 HERI_FL_0200 EQU $ 228 S000073 90 SBK ;[ SMS CPHR_MKCG ] 229 ; 230 HERI_FL_0250 231 S000074 A5 20 IBT R5,#020H ;(R5) <-- Ｘスピード減速値 232 S000076 A6 00 IBT R6,#0 ;(R6) <-- 目標Ｘスピード 233 S000078 F8 0400 IWT R8,#0400H ;(R8) <-- 目標Ｙスピード 234 mDJMP HERI_MV_0700 234+ S00007B FF 0135' IWT R15, #HERI_MV_0700 234+ S00007E 01 NOP 235 ; 236 ;------------------------------------------------------------------------ 237 ;- コントローラー入力 - 238 ;------------------------------------------------------------------------ 239 HERI_MV_0010 240 S00007F 3D F0 0071 LM R0,CMKEYC1 ;(R0) <-- コントローラー情報（連続） 241 S000083 3E 7F AND #00001111B 242 S000085 20 11 MOVE R1,R0 ;(R1) <-- 移動キー方向 243 S000087 08 18' BNE HERI_MV_0050 ;移動キー入力？ ( no:HERI_MV_0100 ) 244 S000089 E0 DEC R0 ;[ -1 ] 245 ; 246 ;-------------- 停止 ---------------------------------------------------- 247 S00008A A5 02 IBT R5,#02H ;(R5) <-- Ｘスピード減速値 248 S00008C A6 00 IBT R6,#0 ;(R6) <-- 目標Ｘスピード 249 S00008E F8 0400 IWT R8,#0400H ;(R8) <-- 目標Ｙスピード 250 S000091 AA 00 IBT R10,#0 ;(R10) <-- 目標回転角度 251 S000093 3D A0 54 LMS R0,CPLXSPD 252 S000096 3E 60 SUB #0 253 S000098 09 1F' BEQ HERI_MV_0100 ;Ｘ移動中？ ( no:HERI_MV_0200 ) 254 S00009A 01 NOP 255 ; 256 S00009B FA F800 IWT R10,#0F800H ;(R10) <-- 目標回転角度 257 S00009E 05 19' BRA HERI_MV_0100 258 S0000A0 01 NOP 259 ; 260 ;-------------- 移動 ---------------------------------------------------- 261 HERI_MV_0050 262 S0000A1 3E 85 MULT #5 263 S0000A3 FE 0000" IWT R14,#HR_MOVE_DT 264 S0000A6 1E TO R14 265 S0000A7 5E ADD R14 266 S0000A8 EF GETB 267 S0000A9 1A TO R10 ;(R10) <-- 目標回転角度 268 S0000AA 4D SWAP 269 S0000AB DE INC R14 270 S0000AC EF GETB 271 S0000AD DE INC R14 272 S0000AE 16 TO R6 ;(R6) <-- 目標Ｘスピード 273 S0000AF 3D EF GETBH 274 S0000B1 DE INC R14 275 S0000B2 EF GETB 276 S0000B3 DE INC R14 277 S0000B4 18 TO R8 ;(R8) <-- 目標Ｙスピード 278 S0000B5 3D EF GETBH 279 ; 280 S0000B7 A5 0C IBT R5,#0CH ;(R5) <-- Ｘスピード加速値 281 ; 282 ;-------------- 振り向きチェック ---------------------------------------- 283 HERI_MV_0100 284 S0000B9 3D A2 C2 LMS R2,CPHR_FMKF ;(R2) <-- 前向きフラグ 285 S0000BC E2 DEC R2 286 S0000BD 0A 35' BPL HERI_MV_0200 ;前向き中？ ( yes:HERI_MV_0200 ) 287 S0000BF D2 INC R2 288 ; 289 S0000C0 3D A0 C1 LMS R0,CPHR_MKCG ;(R0) <-- 振り向きフラグ 290 S0000C3 E0 DEC R0 ;[ * -1 ] 291 S0000C4 0B 2E' BMI HERI_MV_0200 ;振り向き中？ ( no:HERI_MV_0200 ) 292 S0000C6 01 NOP 293 ; 294 S0000C7 3D AE FB LMS R14,CPHR_MCTM 295 S0000CA EE DEC R14 296 S0000CB 0B 09' BMI HERI_MV_0150 ;振り向きパターン切り替え？ ( yes:HERI_MV_0150 ) 297 S0000CD 01 NOP 298 ; 299 S0000CE 3E 62 SUB #3-1 ;[ * -1 ] 300 S0000D0 0C 58' BCC HERI_MV_0400 ;向き変わってる？ ( no:HERI_MV_0400 ) 301 S0000D2 01 NOP 302 ; 303 S0000D3 05 58' BRA HERI_MV_0500 304 S0000D5 01 NOP 305 ; 306 ;-------------- 振り向きパターン切り替え ------------------------ 307 HERI_MV_0150 308 S0000D6 3E A0 C1 SMS R0,CPHR_MKCG ;振り向きフラグセット 309 ; 310 S0000D9 AE 04 IBT R14,#04H 311 S0000DB 3E AE FB SMS R14,CPHR_MCTM ;パターン切り替えタイマーセット 312 ; 313 S0000DE 3E 62 SUB #2 314 S0000E0 0C 48' BCC HERI_MV_0400 ;向き変わってる？ ( no:HERI_MV_0400 ) 315 S0000E2 01 NOP 316 ; 317 S0000E3 08 48' BNE HERI_MV_0500 ;向き切り替え？ ( no:HERI_MV_0500 ) 318 S0000E5 01 NOP 319 ; 320 S0000E6 3D A0 62 LMS R0,CPLCMKI ;向きセット 321 S0000E9 3F C2 XOR #02H 322 S0000EB 90 SBK ;[ SMS R0,CPLCMKI ] 323 S0000EC 3D A0 BF LMS R0,CPHR_ANGL ;回転角度変換 324 S0000EF 4F NOT 325 S0000F0 D0 INC R0 326 S0000F1 05 37' BRA HERI_MV_0400 327 S0000F3 90 SBK ;[ SMS CPHR_ANGL ] 328 ; 329 ;-------------- 振り向き入力チェック ------------------------------------ 330 HERI_MV_0200 331 S0000F4 B1 FROM R1 332 S0000F5 3E 73 AND #00000011B 333 S0000F7 09 34' BEQ HERI_MV_0500 ;左右キー入力？ ( no:HERI_MV_0500 ) 334 S0000F9 01 NOP 335 ; 336 S0000FA 11 TO R1 ;(R1) <-- セット向き 337 S0000FB 3E 72 AND #00000010B 338 ; 339 S0000FD E2 DEC R2 340 S0000FE 0B 0B' BMI HERI_MV_0250 ;前向き中？ ( no:HERI_MV_0250 ) 341 S000100 01 NOP 342 ; 343 S000101 3E A1 62 SMS R1,CPLCMKI ;向きセット 344 S000104 60 SUB R0 345 S000105 3E A0 C2 SMS R0,CPHR_FMKF ;前向きフラグリセット 346 S000108 05 20' BRA HERI_MV_0400 347 S00010A 01 NOP 348 ; 349 HERI_MV_0250 350 S00010B 3D A0 62 LMS R0,CPLCMKI 351 S00010E 61 SUB R1 352 S00010F 09 19' BEQ HERI_MV_0400 ;逆向きキー入力？ ( no:HERI_MV_0400 ) 353 S000111 01 NOP 354 ; 355 S000112 3D A0 54 LMS R0,CPLXSPD 356 S000115 3E 60 SUB #0 357 S000117 09 07' BEQ HERI_MV_0300 ;Ｘ移動中？ ( no:HERI_MV_0300 ) 358 S000119 01 NOP 359 ; 360 S00011A E1 DEC R1 ;[ * (R1)-> FFFF<-0:左移動 1<-2:右移動 ] 361 S00011B 3D C1 XOR R1 362 S00011D 0A 0E' BPL HERI_MV_0500 ;逆向き移動中？ ( yes:HERI_MV_0500 ) 363 S00011F D1 INC R1 364 ; 365 ;-------------- 振り向きセット ---------------------------------- 366 HERI_MV_0300 367 S000120 A0 04 IBT R0,#4 368 S000122 3E A0 C1 SMS R0,CPHR_MKCG ;振り向きフラグセット 369 S000125 A0 04 IBT R0,#04H 370 S000127 3E A0 FB SMS R0,CPHR_MCTM ;パターン切り替えタイマーセット 371 ; 372 ;-------------- 目標回転角度逆転 ---------------------------------------- 373 HERI_MV_0400 374 S00012A 2A WITH R10 ;(R10) <-- 目標回転角度 375 S00012B 4F NOT 376 S00012C DA INC R10 377 ; 378 ;-------------- Ｘ，Ｙスピード加減速 ------------------------------------ 379 HERI_MV_0500 380 S00012D F4 0400 IWT R4,#0400H ;(R4) <-- 回転スピード 381 mJSR C_ANGL_CALC ;キャラクター回転角度計算 381+ S000130 94 LINK #4 381+ S000131 FF 03D9' IWT R15, #C_ANGL_CALC 381+ S000134 01 NOP 382 HERI_MV_0700 383 S000135 25 17 MOVE R7,R5 ;(R7) <-- Ｙスピード減速値 384 ; 385 S000137 3D A0 63 LMS R0,CPLSWIM 386 S00013A E0 DEC R0 387 S00013B 0B 2F' BMI HERI_MV_0750 ;泳ぎ中？ ( no:HERI_MV_0750 ) 388 S00013D 01 NOP 389 ; 390 S00013E 28 B8 MOVES R8,R8 391 S000140 0B 16' BMI HERI_MV_0710 ;上昇？ ( yes:HERI_MV_0750 ) 392 S000142 01 NOP 393 ; 394 ;------------------------------------------------------------------------ 395 ;- 水中泳ぎ処理 - 396 ;------------------------------------------------------------------------ 397 S000143 A5 02 IBT R5,#02H ;(R5) <-- Ｘスピード減速値 398 S000145 B6 FROM R6 399 S000146 3D 96 DIV2 400 S000148 3D 96 DIV2 401 S00014A 16 TO R6 ;(R6) <-- 目標Ｘスピード 402 S00014B 3D 96 DIV2 403 S00014D F8 FF00 IWT R8,#0FF00H ;(R8) <-- 目標Ｙスピード 404 ; 405 mJSR PUKA_CHECK ;水面”プカプカ”チェック 405+ S000150 94 LINK #4 405+ S000151 FF 03F3' IWT R15, #PUKA_CHECK 405+ S000154 01 NOP 406 ; 407 S000155 05 1F' BRA HERI_MV_0800 408 S000157 01 NOP 409 ; 410 HERI_MV_0710 411 S000158 3D A0 7F LMS R0,CPLWATR 412 S00015B F4 0140 IWT R4,#101000000B 413 S00015E 74 AND R4 414 S00015F 08 0B' BNE HERI_MV_0750 ;水中脱出？ ( no:HERI_MV_0750 ) 415 S000161 60 SUB R0 ;[ * 泳ぎキャンセル ] 416 ; 417 S000162 3E A0 63 SMS R0,CPLSWIM ;泳ぎキャンセル 418 ; 419 ;-------------- 水しぶきセット ---------------------------------- 420 S000165 A4 14 IBT R4,#014H ;(R4) <-- ”バッシャーン”セットＹ位置 421 mJSR WTUP0_SET_2 ;”バッシャーン”効果セット 421+ S000167 94 LINK #4 421+ S000168 FF 0000" IWT R15, #WTUP0_SET_2 421+ S00016B 01 NOP 422 ; 423 ;------------------------------------------------------------------------ 424 ;- 飛行処理 - 425 ;------------------------------------------------------------------------ 426 HERI_MV_0750 427 mJSR X_SP_CALC ;Ｘスピード加減速 427+ S00016C 94 LINK #4 427+ S00016D FF 039F' IWT R15, #X_SP_CALC 427+ S000170 01 NOP 428 mJSR Y_SP_CALC ;Ｙスピード加減速 428+ S000171 94 LINK #4 428+ S000172 FF 03BF' IWT R15, #Y_SP_CALC 428+ S000175 01 NOP 429 ; 430 HERI_MV_0800 431 S000176 60 SUB R0 ;<<< end >>> 432 S000177 00 STOP 433 S000178 01 NOP 434 ; 435 ;**************************************************************** 436 ;* ヘリコプター基本ルーチン * 437 ;**************************************************************** 438 HERI_SUB 439 S000179 3E AB 34 SMS R11,RTS4 ;[ return address save ] 440 ; 441 ;-------------- 回転キャラクターセット -------------------------- 442 S00017C 3D A0 C1 LMS R0,CPHR_MKCG 443 S00017F E0 DEC R0 ;[ * -1 ] 444 S000180 0B 0E' BMI HERI_SUB_0050 ;振り向き中？ ( no:HERI_SUB_0050 ) 445 S000182 50 ADD R0 ;x2 446 ; 447 ;-------------- 振り向きパターンセット ------------------ 448 S000183 FE 0000" IWT R14,#HR_MKCG_PT 449 S000186 1E TO R14 450 S000187 5E ADD R14 451 S000188 EF GETB 452 S000189 DE INC R14 453 S00018A 1C TO R12 ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 454 S00018B 3D EF GETBH 455 S00018D 05 10' BRA HERI_SUB_0100 456 S00018F 01 NOP 457 ; 458 ;-------------- 飛んでるパターンセット ------------------ 459 HERI_SUB_0050 vvv******* warn :value out of range 460 S000190 FC 00A0 IWT R12,#CIPCHD+00A0H ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 461 S000193 3D F0 1974 LM R0,CFRCNT2 462 S000197 3E 72 AND #02H 463 S000199 09 04' BEQ HERI_SUB_0100 464 S00019B 01 NOP 465 ; vvv******* warn :value out of range 466 S00019C FC 00E0 IWT R12,#CIPCHD+00E0H ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 467 HERI_SUB_0100 468 S00019F AD 54 IBT R13,#BANK CIPCHD ;(R13) <-- キャラクターアドレス（Ｂ） 469 ; 470 S0001A1 A2 20 IBT R2,#020H ;(R2) <-- ビットマップ座標＿Ｙ 471 S0001A3 A3 00 IBT R3,#000H ;(R3) <-- ” ＿Ｘ 472 S0001A5 3D A0 BF LMS R0,CPHR_ANGL 473 S0001A8 15 TO R5 ;(R5) <-- 角度 474 S0001A9 C0 HIB 475 S0001AA F6 0100 IWT R6,#0100H ;(R6) <-- 倍率 476 mJSR R_32_RTZ_32 ;キャラクター拡大、縮小、回転（サイズ ３２×３２） 476+ S0001AD 94 LINK #4 476+ S0001AE FF 0000" IWT R15, #R_32_RTZ_32 476+ S0001B1 01 NOP 477 ; 478 S0001B2 F0 0181 IWT R0,#HR00 ;パターンＮｏ．セット 479 S0001B5 3E A0 5F SMS R0,CPLPATN 480 ; 481 ;-------------- 座標計算 ---------------------------------------- 482 mJSR XY_CALC ;座標計算 482+ S0001B8 94 LINK #4 482+ S0001B9 FF 0000" IWT R15, #XY_CALC 482+ S0001BC 01 NOP 483 ; 484 ;-------------- ＢＧチェック ------------------------------------ 485 S0001BD FE 0000" IWT R14,#PLBGCK_POINT_HR ;(R14) <-- ＢＧチェックポイントデータポインター 486 mJSR PL_BGCK_2 ;ＢＧチェック 486+ S0001C0 94 LINK #4 486+ S0001C1 FF 0000" IWT R15, #PL_BGCK_2 486+ S0001C4 01 NOP 487 ; 488 S0001C5 3D A0 63 LMS R0,CPLSWIM 489 S0001C8 E0 DEC R0 490 S0001C9 0A 06' BPL HERI_SUB_0150 ;水中？ ( yes:HERI_SUB_0150 ) 491 S0001CB 01 NOP 492 ; 493 mJSR WATR_CHECK ;水中チェック 493+ S0001CC 94 LINK #4 493+ S0001CD FF 0000" IWT R15, #WATR_CHECK 493+ S0001D0 01 NOP 494 HERI_SUB_0150 495 S0001D1 3D AB 34 LMS R11,RTS4 ;[ return address load ] 496 mRTS 496+ S0001D4 9B JMP R11 496+ S0001D5 01 NOP 497 ; 498 ; 499 ; 500 ; 501 ; 502 ;************************************************************************ 503 ;* * 504 ;* 潜水艦 * 505 ;* * 506 ;************************************************************************ 507 ; 508 SBMARIN_MV 509 S0001D6 A0 64 IBT R0,#01100100B ;[♪] 510 S0001D8 3E A0 3B SMS R0,CMSOUND1 511 ; 512 mJSR SBMARIN_SUB ;潜水艦基本ルーチン 512+ S0001DB 94 LINK #4 512+ S0001DC FF 0360' IWT R15, #SBMARIN_SUB 512+ S0001DF 01 NOP 513 ; 514 S0001E0 3D A0 EB LMS R0,CPLFLSH 515 S0001E3 A1 50 IBT R1,#050H 516 S0001E5 61 SUB R1 517 S0001E6 0B 26' BMI SBMARIN_MV_0050 ;プレイヤーダメージ？ ( no:SBMARIN_MV_0050 ) 518 S0001E8 01 NOP 519 ; 520 ;------------------------------------------------------------------------ 521 ;- ダメージ中の処理 - 522 ;------------------------------------------------------------------------ 523 ; 524 ;-------------- プレイヤーダメージ！！ ---------------------------------- 525 S0001E9 3D A0 C0 LMS R0,CPSB_FLCT 526 S0001EC A2 10 IBT R2,#010H 527 S0001EE 52 ADD R2 528 S0001EF 90 SBK ;[ SMS R0,CPSB_FLCT ] 529 ; 530 S0001F0 60 SUB R0 ;[ IBT R0,#0 ] 531 S0001F1 3E A0 5A SMS R0,CPLMVSP ;Ｘスピードクリアー 532 S0001F4 3E A0 54 SMS R0,CPLXSPD ;Ｘスピードクリアー 533 S0001F7 F0 0080 IWT R0,#080H ;落下スピードセット 534 S0001FA 3E A0 55 SMS R0,CPLYSPD 535 mJSR XY_CALC ;座標計算 535+ S0001FD 94 LINK #4 535+ S0001FE FF 0000" IWT R15, #XY_CALC 535+ S000201 01 NOP 536 ; 537 S000202 FE 0000" IWT R14,#PLBGCK_POINT_HR ;(R14) <-- ＢＧチェックポイントデータポインター 538 mJSR PL_BGCK_2 ;ＢＧチェック 538+ S000205 94 LINK #4 538+ S000206 FF 0000" IWT R15, #PL_BGCK_2 538+ S000209 01 NOP 539 ; 540 mDJMP SBMARIN_MV_0500 540+ S00020A FF 0306' IWT R15, #SBMARIN_MV_0500 540+ S00020D 01 NOP 541 ; 542 SBMARIN_MV_0050 543 ; 544 ;-------------- 魚雷発射チェック ---------------------------------------- 545 S00020E 3D A0 E2 LMS R0,CMISILE 546 S000211 E0 DEC R0 547 S000212 0A 13' BPL SBMARIN_MV_0060 ;魚雷セット中？ ( yes:SBMARIN_MV_0060 ) 548 S000214 01 NOP 549 ; 550 S000215 3D A0 44 LMS R0,CP_KEY_BERO 551 S000218 3D A1 42 LMS R1,CP_KEY_JUMP 552 S00021B C1 OR R1 553 S00021C 3D A1 43 LMS R1,CP_KEY_MNAG 554 S00021F C1 OR R1 555 S000220 3D A1 39 LMS R1,CMKEYC2L 556 S000223 71 AND R1 557 S000224 08 05' BNE SBMARIN_MV_0100 ;魚雷発射？ ( yes:SBMARIN_MV_0100 ) 558 S000226 01 NOP 559 ; 560 SBMARIN_MV_0060 561 mDJMP SBMARIN_MV_0200 561+ S000227 FF 02E4' IWT R15, #SBMARIN_MV_0200 561+ S00022A 01 NOP 562 ; 563 ;-------------- 魚雷発射 ---------------------------------------- 564 SBMARIN_MV_0100 565 S00022B A0 00" IBT R0,#BANK LCOS 566 S00022D 3F DF ROMB 567 ; 568 S00022F 3D A0 BF LMS R0,CPSB_ANGL 569 S000232 11 TO R1 ;(R1) <-- 回転角度×２ 570 S000233 C0 HIB 571 ; 572 S000234 F0 0000" IWT R0,#LCOS 573 S000237 1E TO R14 574 S000238 51 ADD R1 575 S000239 EF GETB 576 S00023A A6 08 IBT R6,#08H ;(R6) <-- 半径 577 S00023C 86 MULT R6 578 S00023D 50 ADD R0 ;x4 579 S00023E 50 ADD R0 ; 580 S00023F C0 HIB 581 S000240 95 SEX 582 S000241 3D A2 62 LMS R2,CPLCMKI 583 S000244 E2 DEC R2 584 S000245 0B 03' BMI SBMARIN_MV_0150 585 S000247 01 NOP 586 ; 587 S000248 4F NOT 588 S000249 D0 INC R0 589 SBMARIN_MV_0150 590 S00024A 3D A2 46 LMS R2,CPLXPSL 591 S00024D 12 TO R2 ;(R2) <-- 魚雷セットＸ座標 592 S00024E 52 ADD R2 593 ; 594 S00024F F0 0000" IWT R0,#LSIN 595 S000252 1E TO R14 596 S000253 51 ADD R1 597 S000254 EF GETB 598 S000255 86 MULT R6 599 S000256 50 ADD R0 ;x4 600 S000257 50 ADD R0 ; 601 S000258 C0 HIB 602 S000259 13 TO R3 603 S00025A 95 SEX 604 S00025B 3D A0 48 LMS R0,CPLYPSL 605 S00025E 63 SUB R3 606 S00025F A3 10 IBT R3,#(18H-8) 607 S000261 13 TO R3 ;(R3) <-- 魚雷セットＹ座標 608 S000262 53 ADD R3 609 ; 610 S000263 A0 00" IBT R0,#BANK PLAYER_DATA 611 S000265 3F DF ROMB 612 ; 613 ;-------------- 魚雷発射けむりセット -------------------- 614 S000267 F5 0000" IWT R5,#MSMK0 ;(R5) <-- 効果Ｎｏ． 615 mJSR M_EXINSR ;効果エリア確保 615+ S00026A 94 LINK #4 615+ S00026B FF 0000" IWT R15, #M_EXINSR 615+ S00026E 01 NOP 616 ; 617 mSTW R2,CEXXPSL,R1 ;Ｘ座標セット 617+ S00026F F0 10A2 IWT R0,#CEXXPSL 617+ S000272 51 ADD R1 617+ S000273 B2 FROM R2 617+ S000274 30 STW (R0) 618 mSTW R3,CEXYPSL,R1 ;Ｙ座標セット 618+ S000275 F0 1142 IWT R0,#CEXYPSL 618+ S000278 51 ADD R1 618+ S000279 B3 FROM R3 618+ S00027A 30 STW (R0) 619 S00027B A5 02 IBT R5,#02H 620 mSTW R5,CEXWRK0,R1 ;カウンター初期セット 620+ S00027D F0 1E4C IWT R0,#CEXWRK0 620+ S000280 51 ADD R1 620+ S000281 B5 FROM R5 620+ S000282 30 STW (R0) 621 S000283 A5 06 IBT R5,#06H 622 mSTW R5,CEXTIM0,R1 ;タイマー初期セット 622+ S000285 F0 1782 IWT R0,#CEXTIM0 622+ S000288 51 ADD R1 622+ S000289 B5 FROM R5 622+ S00028A 30 STW (R0) 623 S00028B A5 01 IBT R5,#01H 624 mSTW R5,CEXCHPT,R1 ;パターンＮｏ．初期セット 624+ S00028D F0 13C2 IWT R0,#CEXCHPT 624+ S000290 51 ADD R1 624+ S000291 B5 FROM R5 624+ S000292 30 STW (R0) 625 ; 626 ;-------------- 魚雷セット ------------------------------ 627 S000293 F5 0000" IWT R5,#MISA0 ;(R5) <-- 敵Ｎｏ． 628 mJSR M_ENINSR ;敵エリア確保 628+ S000296 94 LINK #4 628+ S000297 FF 0000" IWT R15, #M_ENINSR 628+ S00029A 01 NOP 629 ; 630 S00029B 0B 47' BMI SBMARIN_MV_0200 ;敵エリア無し？ ( yes:SBMARIN_MV_0200 ) 631 S00029D 60 SUB R0 ;[ IBT R0,#0 ] 632 ; 633 S00029E A0 67 IBT R0,#067H ;[♪] 634 S0002A0 3E A0 3D SMS R0,CMSOUND3 635 ; 636 S0002A3 D0 INC R0 ;[ IBT R0,#1 ] 637 S0002A4 3E A0 E2 SMS R0,CMISILE ;魚雷セットフラグセット 638 ; 639 S0002A7 A5 02 IBT R5,#CEINIT 640 mSTW R5,CENMODE,R1 ;初期モードセット 640+ S0002A9 F0 0F00 IWT R0,#CENMODE 640+ S0002AC 51 ADD R1 640+ S0002AD B5 FROM R5 640+ S0002AE 30 STW (R0) 641 mSTW R2,CENXPSL,R1 ;Ｘ座標セット 641+ S0002AF F0 10E2 IWT R0,#CENXPSL 641+ S0002B2 51 ADD R1 641+ S0002B3 B2 FROM R2 641+ S0002B4 30 STW (R0) 642 mSTW R3,CENYPSL,R1 ;Ｙ座標セット 642+ S0002B5 F0 1182 IWT R0,#CENYPSL 642+ S0002B8 51 ADD R1 642+ S0002B9 B3 FROM R3 642+ S0002BA 30 STW (R0) 643 S0002BB 3D A0 BF LMS R0,CPSB_ANGL 644 S0002BE C0 HIB 645 S0002BF 15 TO R5 646 S0002C0 50 ADD R0 ;x2 647 mSTW R5,CENWRK0,R1 ;回転角度セット 647+ S0002C1 F0 1978 IWT R0,#CENWRK0 647+ S0002C4 51 ADD R1 647+ S0002C5 B5 FROM R5 647+ S0002C6 30 STW (R0) 648 S0002C7 3D A0 62 LMS R0,CPLCMKI 649 S0002CA 15 TO R5 650 S0002CB 3F C2 XOR #02H 651 mSTW R5,CENMUKI,R1 ;向きセット 651+ S0002CD F0 1400 IWT R0,#CENMUKI 651+ S0002D0 51 ADD R1 651+ S0002D1 B5 FROM R5 651+ S0002D2 30 STW (R0) 652 S0002D3 F5 F800 IWT R5,#0F800H 653 mSTW R5,CENWRK2,R1 ;回転スピードセット 653+ S0002D6 F0 19D6 IWT R0,#CENWRK2 653+ S0002D9 51 ADD R1 653+ S0002DA B5 FROM R5 653+ S0002DB 30 STW (R0) 654 S0002DC A5 07 IBT R5,#07H 655 mSTW R5,CENCONT,R1 ;カウンターセット 655+ S0002DE F0 1976 IWT R0,#CENCONT 655+ S0002E1 51 ADD R1 655+ S0002E2 B5 FROM R5 655+ S0002E3 30 STW (R0) 656 ; 657 SBMARIN_MV_0200 658 S0002E4 3D A0 63 LMS R0,CPLSWIM 659 S0002E7 E0 DEC R0 660 S0002E8 0A 1F' BPL SBMARIN_SW ;泳ぎ中？ ( yes:SBMARIN_SW ) 661 S0002EA 01 NOP 662 ; 663 ;------------------------------------------------------------------------ 664 ;- 水上処理 - 665 ;------------------------------------------------------------------------ 666 mJSR PL_CALC ;座標計算 666+ S0002EB 94 LINK #4 666+ S0002EC FF 0000" IWT R15, #PL_CALC 666+ S0002EF 01 NOP 667 ; 668 S0002F0 FE 0000" IWT R14,#PLBGCK_POINT_HR ;(R14) <-- ＢＧチェックポイントデータポインター 669 mJSR PL_BGCK_2 ;ＢＧチェック 669+ S0002F3 94 LINK #4 669+ S0002F4 FF 0000" IWT R15, #PL_BGCK_2 669+ S0002F7 01 NOP 670 mJSR WATR_CHECK ;水中チェック 670+ S0002F8 94 LINK #4 670+ S0002F9 FF 0000" IWT R15, #WATR_CHECK 670+ S0002FC 01 NOP 671 ; 672 S0002FD 3D F1 0071 LM R1,CMKEYC1 ;(R1) <-- コントローラー情報（連続） 673 mJSR PL_KEY_XMOV ;コントローラー入力（Ｘスピード制御） 673+ S000301 94 LINK #4 673+ S000302 FF 0000" IWT R15, #PL_KEY_XMOV 673+ S000305 01 NOP 674 ; 675 SBMARIN_MV_0500 676 S000306 60 SUB R0 ;<<< end >>> 677 S000307 00 STOP 678 S000308 01 NOP 679 ; 680 ;------------------------------------------------------------------------ 681 ;- 水中泳ぎ処理 - 682 ;------------------------------------------------------------------------ 683 SBMARIN_SW 684 mJSR XY_CALC ;座標計算 684+ S000309 94 LINK #4 684+ S00030A FF 0000" IWT R15, #XY_CALC 684+ S00030D 01 NOP 685 ; 686 S00030E FE 0000" IWT R14,#PLBGCK_POINT_HR ;(R14) <-- ＢＧチェックポイントデータポインター 687 mJSR PL_BGCK_2 ;ＢＧチェック 687+ S000311 94 LINK #4 687+ S000312 FF 0000" IWT R15, #PL_BGCK_2 687+ S000315 01 NOP 688 ; 689 ;------------------------------------------------------------------------ 690 ;- コントローラー入力 - 691 ;------------------------------------------------------------------------ 692 S000316 3D F1 0071 LM R1,CMKEYC1 ;(R1) <-- コントローラー情報（連続） 693 S00031A B1 FROM R1 694 S00031B 3E 73 AND #00000011B 695 S00031D 09 06' BEQ SBMARIN_SW_0050 ;左右キー入力？ ( no:SBMARIN_SW_0050 ) 696 S00031F 01 NOP 697 ; 698 S000320 3E 72 AND #02H 699 S000322 3E A0 62 SMS R0,CPLCMKI ;プレイヤー向きセット 700 ; 701 ;-------------- 移動キーチェック ---------------------------------------- 702 SBMARIN_SW_0050 703 S000325 A5 02 IBT R5,#02H ;(R5) <-- Ｘスピード加速値 704 S000327 B1 FROM R1 705 S000328 3E 7F AND #00001111B 706 S00032A 09 03' BEQ SBMARIN_SW_0100 ;移動キー入力？ ( yes:SBMARIN_SW_0100 ) 707 S00032C 01 NOP 708 ; 709 S00032D A5 08 IBT R5,#08H ;(R5) <-- Ｘスピード減速値 710 SBMARIN_SW_0100 711 S00032F 25 17 MOVE R7,R5 ;(R7) <-- Ｙスピード減速値 712 ; 713 S000331 3E 85 MULT #5 714 S000333 FE 0000" IWT R14,#SB_MOVE_DT 715 S000336 1E TO R14 716 S000337 5E ADD R14 717 S000338 EF GETB 718 S000339 1A TO R10 ;(R10) <-- 目標回転角度 719 S00033A 4D SWAP 720 S00033B DE INC R14 721 S00033C EF GETB 722 S00033D DE INC R14 723 S00033E 16 TO R6 ;(R6) <-- 目標Ｘスピード 724 S00033F 3D EF GETBH 725 S000341 DE INC R14 726 S000342 EF GETB 727 S000343 DE INC R14 728 S000344 18 TO R8 ;(R8) <-- 目標Ｙスピード 729 S000345 3D EF GETBH 730 ; 731 ;-------------- 水中チェック -------------------------------------------- 732 SBMARIN_SW_0200 733 mJSR PUKA_CHECK ;水面”プカプカ”チェック 733+ S000347 94 LINK #4 733+ S000348 FF 03F3' IWT R15, #PUKA_CHECK 733+ S00034B 01 NOP 734 ; 735 S00034C 3D A0 65 LMS R0,CPLSWPK 736 S00034F E0 DEC R0 737 S000350 0B 03' BMI SBMARIN_SW_0250 ;水面”プカプカ”？ ( no:SBMARIN_SW_0250 ) 738 S000352 01 NOP 739 ; 740 S000353 AA 00 IBT R10,#0 ;(R10) <-- 目標回転角度 741 SBMARIN_SW_0250 742 S000355 F4 0200 IWT R4,#0200H ;(R4) <-- 回転スピード 743 mJSR C_ANGL_CALC ;キャラクター回転角度計算 743+ S000358 94 LINK #4 743+ S000359 FF 03D9' IWT R15, #C_ANGL_CALC 743+ S00035C 01 NOP 744 ; 745 S00035D 60 SUB R0 ;<<< end >>> 746 S00035E 00 STOP 747 S00035F 01 NOP 748 ; 749 ;**************************************************************** 750 ;* 潜水艦基本ルーチン * 751 ;**************************************************************** 752 SBMARIN_SUB 753 S000360 3E AB 34 SMS R11,RTS4 ;[ return address save ] 754 ; 755 ;-------------- 回転キャラクターセット -------------------------- vvv******* warn :value out of range 756 S000363 FC 0000 IWT R12,#CIPCHD+0000H ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 757 S000366 3D F0 1974 LM R0,CFRCNT2 758 S00036A 3E 74 AND #04H 759 S00036C 09 04' BEQ SBMARIN_SUB_0050 760 S00036E 01 NOP 761 ; vvv******* warn :value out of range 762 S00036F FC 0020 IWT R12,#CIPCHD+0020H ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 763 SBMARIN_SUB_0050 764 S000372 AD 54 IBT R13,#BANK CIPCHD ;(R13) <-- キャラクターアドレス（Ｂ） 765 ; 766 S000374 A2 20 IBT R2,#020H ;(R2) <-- ビットマップ座標＿Ｙ 767 S000376 A3 00 IBT R3,#000H ;(R3) <-- ” ＿Ｘ 768 S000378 3D A0 BF LMS R0,CPSB_ANGL 769 S00037B 15 TO R5 ;(R5) <-- 角度 770 S00037C C0 HIB 771 S00037D 3D A0 EB LMS R0,CPLFLSH 772 ;;;; IWT R6,#090H 773 S000380 A6 50 IBT R6,#050H 774 S000382 66 SUB R6 775 S000383 0B 07' BMI SBMARIN_SUB_0100 ;ダメージ回転？ ( no:SBMARIN_SUB_0100 ) 776 S000385 01 NOP 777 ; 778 S000386 3D A0 C0 LMS R0,CPSB_FLCT 779 S000389 55 ADD R5 780 S00038A 15 TO R5 781 S00038B 9E LOB 782 SBMARIN_SUB_0100 783 S00038C F6 0100 IWT R6,#0100H ;(R6) <-- 倍率 784 mJSR R_32_RTZ_32 ;キャラクター拡大、縮小、回転（サイズ ３２×３２） 784+ S00038F 94 LINK #4 784+ S000390 FF 0000" IWT R15, #R_32_RTZ_32 784+ S000393 01 NOP 785 ; 786 S000394 F0 0171 IWT R0,#CR03 ;パターンＮｏ．セット 787 S000397 3E A0 5F SMS R0,CPLPATN 788 ; 789 S00039A 3D AB 34 LMS R11,RTS4 ;[ return address load ] 790 mRTS 790+ S00039D 9B JMP R11 790+ S00039E 01 NOP 791 ; 792 ;------------------------------------------------------------------------ 793 ;- Ｘスピード加減速 - 794 ;- in : - 795 ;- (R5) <-- スピード加減速値 - 796 ;- (R6) <-- 目標Ｘスピード - 797 ;------------------------------------------------------------------------ 798 X_SP_CALC 799 S00039F 3D A0 5A LMS R0,CPLMVSP 800 S0003A2 66 SUB R6 801 S0003A3 0B 04' BMI X_SP_CALC_010 802 S0003A5 56 ADD R6 803 ; 804 S0003A6 25 WITH R5 805 S0003A7 4F NOT 806 S0003A8 D5 INC R5 807 X_SP_CALC_010 808 S0003A9 55 ADD R5 809 S0003AA 90 SBK ;[ SMS R0,CPLMVSP ] 810 S0003AB 3E A0 54 SMS R0,CPLXSPD 811 S0003AE 66 SUB R6 812 S0003AF 09 0C' BEQ X_SP_CALC_020 ;目標Ｘスピード？ ( yes:X_SP_CALC_020 ) 813 S0003B1 01 NOP 814 ; 815 S0003B2 3D C5 XOR R5 816 S0003B4 0B 07' BMI X_SP_CALC_020 ;目標Ｘスピードオーバー？ ( no:X_SP_CALC_020 ) 817 S0003B6 01 NOP 818 ; 819 S0003B7 3E A6 5A SMS R6,CPLMVSP 820 S0003BA 3E A6 54 SMS R6,CPLXSPD 821 X_SP_CALC_020 822 mRTS 822+ S0003BD 9B JMP R11 822+ S0003BE 01 NOP 823 ; 824 ;------------------------------------------------------------------------ 825 ;- Ｙスピード加減速 - 826 ;- in : - 827 ;- (R7) <-- スピード加減速値 - 828 ;- (R8) <-- 目標Ｙスピード - 829 ;------------------------------------------------------------------------ 830 Y_SP_CALC 831 S0003BF 3D A0 55 LMS R0,CPLYSPD 832 S0003C2 68 SUB R8 833 S0003C3 0B 04' BMI Y_SP_CALC_010 834 S0003C5 58 ADD R8 835 ; 836 S0003C6 27 WITH R7 837 S0003C7 4F NOT 838 S0003C8 D7 INC R7 839 Y_SP_CALC_010 840 S0003C9 57 ADD R7 841 S0003CA 90 SBK ;[ SMS R0,CPLYSPD ] 842 S0003CB 68 SUB R8 843 S0003CC 09 09' BEQ Y_SP_CALC_020 ;目標Ｙスピード？ ( yes:Y_SP_CALC_020 ) 844 S0003CE 01 NOP 845 ; 846 S0003CF 3D C7 XOR R7 847 S0003D1 0B 04' BMI Y_SP_CALC_020 ;目標Ｙスピードオーバー？ ( no:Y_SP_CALC_020 ) 848 S0003D3 01 NOP 849 ; 850 S0003D4 3E A8 55 SMS R8,CPLYSPD 851 Y_SP_CALC_020 852 mRTS 852+ S0003D7 9B JMP R11 852+ S0003D8 01 NOP 853 ; 854 ;------------------------------------------------------------------------ 855 ;- キャラクター回転角度計算 - 856 ;- in : - 857 ;- (R4) <-- 回転スピード - 858 ;- (R10) <-- 目標回転角度 - 859 ;- break: - 860 ;- (R14) - 861 ;------------------------------------------------------------------------ 862 C_ANGL_CALC 863 S0003D9 3D A0 BF LMS R0,CPHR_ANGL 864 S0003DC 1E TO R14 ;(R14) <-- 回転方向 865 S0003DD 6A SUB R10 866 S0003DE 09 11' BEQ C_ANGL_CALC_030 ;目標回転角度？ ( yes:C_ANGL_CALC_030 ) 867 S0003E0 01 NOP 868 ; 869 S0003E1 0B 04' BMI C_ANGL_CALC_010 ;回転角度加減方向逆？ ( no:C_ANGL_CALC_010 ) 870 S0003E3 01 NOP 871 ; 872 S0003E4 24 WITH R4 873 S0003E5 4F NOT 874 S0003E6 D4 INC R4 875 C_ANGL_CALC_010 876 S0003E7 54 ADD R4 877 S0003E8 90 SBK ;[ SMS R0,CHR_ANGL ] 878 ; 879 S0003E9 6A SUB R10 880 S0003EA 3D CE XOR R14 881 S0003EC 0A 03' BPL C_ANGL_CALC_030 ;目標回転角度オーバー？ ( no:C_ANGL_CALC_030 ) 882 S0003EE 01 NOP 883 ; 884 S0003EF BA FROM R10 885 S0003F0 90 SBK ;[ SMS R0,CHR_ANGL ] 886 C_ANGL_CALC_030 887 mRTS 887+ S0003F1 9B JMP R11 887+ S0003F2 01 NOP 888 ; 889 ;------------------------------------------------------------------------ 890 ;- 水面”プカプカ”チェック - 891 ;- in : - 892 ;- (R5) <-- Ｘスピード加減速値 - 893 ;- (R6) <-- 目標Ｘスピード - 894 ;- (R7) <-- Ｙスピード加減速値 - 895 ;- (R8) <-- 目標Ｙスピード - 896 ;- break : - 897 ;- (R2)(R3) - 898 ;------------------------------------------------------------------------ 899 PUKA_CHECK 900 S0003F3 3E AB 34 SMS R11,RTS4 ;[ return address save ] 901 ; 902 mJSR X_SP_CALC ;Ｘスピード加減速 902+ S0003F6 94 LINK #4 902+ S0003F7 FF 039F' IWT R15, #X_SP_CALC 902+ S0003FA 01 NOP 903 ; 904 S0003FB 3D A0 63 LMS R0,CPLSWIM 905 S0003FE 3E 63 SUB #3 906 S000400 0D 16' BCS PUKA_CHECK_0100 ;水中処理初期セット？ ( no:PUKA_CHECK_0100 ) 907 S000402 01 NOP 908 ; 909 ;-------------- 水中処理初期セット -------------------------------------- 910 S000403 3D A0 55 LMS R0,CPLYSPD 911 S000406 A3 30 IBT R3,#030H 912 S000408 63 SUB R3 913 S000409 0A 0A' BPL PUKA_CHECK_0050 ;減速終了？ ( no:PUKA_CHECK_0050 ) 914 S00040B 90 SBK ;[ SMS R0,CPLYSPD ] 915 ; 916 S00040C A0 03 IBT R0,#3 917 S00040E 3E A0 63 SMS R0,CPLSWIM ;水中処理へ 918 S000411 60 SUB R0 919 S000412 3E A0 65 SMS R0,CPLSWPK ;水面”プカプカ”フラグリセット 920 PUKA_CHECK_0050 921 S000415 05 76' BRA PUKA_CHECK_0500 922 S000417 01 NOP 923 ; 924 PUKA_CHECK_0100 925 S000418 3D A0 65 LMS R0,CPLSWPK 926 S00041B E0 DEC R0 927 S00041C 0A 2C' BPL PUKA_CHECK_0200 ;水面”プカプカ”？ ( yes:PUKA_CHECK_0200 ) 928 S00041E 01 NOP 929 ; 930 ;-------------- 水中処理 ------------------------------------------------ 931 S00041F A4 0F IBT R4,#0FH ;(R4) <-- あぶくセットＸ位置 932 S000421 A6 0E IBT R6,#0EH ;(R6) <-- あぶくセットＹ位置 933 mJSR BABL0_SET_2 ;あぶく効果セット 933+ S000423 94 LINK #4 933+ S000424 FF 0000" IWT R15, #BABL0_SET_2 933+ S000427 01 NOP 934 ; 935 S000428 3D A0 7F LMS R0,CPLWATR ;(R0) <-- 水中フラグ 936 S00042B F3 0158 IWT R3,#101011000B 937 S00042E 73 AND R3 938 S00042F 08 16' BNE PUKA_CHECK_0150 ;水面に顔が出た？ ( no:PUKA_CHECK_0150 ) 939 S000431 60 SUB R0 ;[ R0 <- 0 ] 940 ; 941 S000432 D0 INC R0 ;[ IBT R0,#01H ] 942 S000433 3E A0 65 SMS R0,CPLSWPK ;水面”プカプカ””ＯＮ” 943 ; 944 ;-------------- 水しぶきセット ---------------------------------- 945 S000436 A4 14 IBT R4,#014H ;(R4) <-- ”バッシャーン”セットＹ位置 946 mJSR WTUP0_SET_2 ;”バッシャーン”効果セット 946+ S000438 94 LINK #4 946+ S000439 FF 0000" IWT R15, #WTUP0_SET_2 946+ S00043C 01 NOP 947 ; 948 S00043D 3D A0 60 LMS R0,CPLJUMP 949 S000440 E0 DEC R0 950 S000441 0A 04' BPL PUKA_CHECK_0150 ;着地？ ( no:PUKA_CHECK_0150 ) 951 S000443 60 SUB R0 ;[ * 泳ぎキャンセル ] 952 ; 953 S000444 3E A0 63 SMS R0,CPLSWIM ;泳ぎキャンセル 954 ; 955 PUKA_CHECK_0150 956 S000447 05 30' BRA PUKA_CHECK_0250 957 S000449 01 NOP 958 ; 959 ;-------------- 水面処理 ------------------------------------------------ 960 PUKA_CHECK_0200 961 S00044A A4 0E IBT R4,#0EH ;(R4) <-- ”ピチャピチャ”セットＹ位置 962 mJSR WTUP1_SET_2 ;”ピチャピチャ”効果セット 962+ S00044C 94 LINK #4 962+ S00044D FF 0000" IWT R15, #WTUP1_SET_2 962+ S000450 01 NOP 963 ; 964 ;-------------- 水面”プカプカ”処理 ---------------------------- 965 S000451 A2 04 IBT R2,#04H ;(R2) <-- 重力 966 S000453 3D A0 7F LMS R0,CPLWATR 967 S000456 F3 0140 IWT R3,#101000000B 968 S000459 73 AND R3 969 S00045A 09 25' BEQ PUKA_CHECK_0350 ;水面に顔が出た？ ( yes:PUKA_CHECK_0350 ) 970 S00045C 01 NOP 971 ; 972 ;-------------- 水面”プカプカ”キャンセルチェック ------ 973 S00045D 3D A0 7F LMS R0,CPLWATR 974 S000460 A3 18 IBT R3,#000011000B 975 S000462 73 AND R3 976 S000463 09 0E' BEQ PUKA_CHECK_0210 ;水中に浸かった？ ( no:PUKA_CHECK_0210 ) 977 S000465 60 SUB R0 ;[ R0 <- 0 ] 978 ; 979 S000466 3E A0 65 SMS R0,CPLSWPK ;水面”プカプカ”キャンセル 980 ; 981 ;-------------- 水しぶきセット ------------------ 982 S000469 A4 08 IBT R4,#08H ;(R4) <-- ”バッシャーン”セットＹ位置 983 mJSR WTUP0_SET_2 ;”バッシャーン”効果セット 983+ S00046B 94 LINK #4 983+ S00046C FF 0000" IWT R15, #WTUP0_SET_2 983+ S00046F 01 NOP 984 S000470 05 07' BRA PUKA_CHECK_0250 985 S000472 01 NOP 986 ; 987 PUKA_CHECK_0210 988 S000473 A2 FC IBT R2,#0FCH ;[ IWT R2,#0FFFCH ] (R2) <-- 浮力 989 ; 990 S000475 E8 DEC R8 ;[ (R8):目標Ｙスピード ] 991 S000476 0B 09' BMI PUKA_CHECK_0350 ;潜る？ ( no:PUKA_CHECK_0350 ) 992 S000478 D8 INC R8 993 ; 994 PUKA_CHECK_0250 995 mJSR Y_SP_CALC ;Ｙスピード加減速 995+ S000479 94 LINK #4 995+ S00047A FF 03BF' IWT R15, #Y_SP_CALC 995+ S00047D 01 NOP 996 ; 997 S00047E 05 0D' BRA PUKA_CHECK_0500 998 S000480 01 NOP 999 ; 1000 PUKA_CHECK_0350 1001 S000481 3D A0 55 LMS R0,CPLYSPD 1002 S000484 52 ADD R2 1003 S000485 A2 D0 IBT R2,#0D0H ;[ IWT R2,#0FFD0H ] 1004 S000487 62 SUB R2 1005 S000488 0A 02' BPL PUKA_CHECK_0400 ;上昇スピードオーバー？ ( no:PUKA_CHECK_0400 ) 1006 S00048A 52 ADD R2 1007 ; 1008 S00048B B2 FROM R2 1009 PUKA_CHECK_0400 1010 S00048C 90 SBK ;[ SMS (R0|R2),CPLYSPD ] 1011 ; 1012 PUKA_CHECK_0500 1013 S00048D 3D AB 34 LMS R11,RTS4 ;[ return address load ] 1014 mRTS 1014+ S000490 9B JMP R11 1014+ S000491 01 NOP 1015 ; 1016 ; 1017 ; 1018 ; 1019 ; 1020 ;************************************************************************ 1021 ;* * 1022 ;* マリオ * 1023 ;* * 1024 ;************************************************************************ 1025 ; 1026 MARIO_MV 1027 S000492 3D F0 1E04 LM R0,CSUPER_FLAG 1028 S000496 F1 00C0 IWT R1,#0C0H 1029 S000499 61 SUB R1 1030 S00049A 0D 0D' BCS MARIO_MV_0050 ;警告音セット？ ( no:MARIO_MV_0050 ) 1031 S00049C 51 ADD R1 1032 ; 1033 S00049D D0 INC R0 1034 S00049E A1 3F IBT R1,#03FH 1035 S0004A0 71 AND R1 1036 S0004A1 08 06' BNE MARIO_MV_0050 ;警告音セット？ ( no:MARIO_MV_0050 ) 1037 S0004A3 01 NOP 1038 ; 1039 ;-------------- 警告音セット -------------------------------------------- 1040 S0004A4 A0 7F IBT R0,#07FH ;[♪] 1041 S0004A6 3E A0 3D SMS R0,CMSOUND3 1042 ; 1043 ;------------------------------------------------------------------------ 1044 ;- マリオ普通の処理 - 1045 ;------------------------------------------------------------------------ 1046 MARIO_MV_0050 1047 S0004A9 3D A0 63 LMS R0,CPLSWIM 1048 S0004AC E0 DEC R0 1049 S0004AD 0B 05' BMI MARIO_MV_0100 ;泳ぎ中？ ( no:MARIO_MV_0100 ) 1050 S0004AF 01 NOP 1051 ; 1052 mDJMP MARIO_SW 1052+ S0004B0 FF 04D0' IWT R15, #MARIO_SW 1052+ S0004B3 01 NOP 1053 ; 1054 MARIO_MV_0100 1055 mJSR MR_CALC ;座標計算 1055+ S0004B4 94 LINK #4 1055+ S0004B5 FF 10D0' IWT R15, #MR_CALC 1055+ S0004B8 01 NOP 1056 ; 1057 mJSR MR_BGCK ;ＢＧチェック 1057+ S0004B9 94 LINK #4 1057+ S0004BA FF 09A6' IWT R15, #MR_BGCK 1057+ S0004BD 01 NOP 1058 mJSR WATR_CHECK ;水中チェック 1058+ S0004BE 94 LINK #4 1058+ S0004BF FF 0000" IWT R15, #WATR_CHECK 1058+ S0004C2 01 NOP 1059 ; 1060 mJSR MR_KEY ;コントローラー入力 1060+ S0004C3 94 LINK #4 1060+ S0004C4 FF 04D0' IWT R15, #MR_KEY 1060+ S0004C7 01 NOP 1061 ; 1062 MARIO_MV_0150 1063 mJSR MR_PATN ;パターンＮｏ．セット 1063+ S0004C8 94 LINK #4 1063+ S0004C9 FF 0787' IWT R15, #MR_PATN 1063+ S0004CC 01 NOP 1064 ; 1065 S0004CD 60 SUB R0 ;<<< end >>> 1066 S0004CE 00 STOP 1067 S0004CF 01 NOP 1068 ; 1069 ;------------------------------------------------------------------------ 1070 ;- 水中泳ぎ処理 - 1071 ;------------------------------------------------------------------------ 1072 MARIO_SW 1073 ;;;; LMS R0,CPLMVSP ;Ｘスピードセット 1074 ;;;; SMS R0,CPLXSPD 1075 ;;;; mJSR XY_CALC ;座標計算 1076 ;;;;; 1077 ;;;; SUB R0 ;[ IBT R0,#0 ] 1078 ;;;; SMS R0,CPLSITD ;お座りフラグキャンセル 1079 ;;;; mJSR PL_BGCK ;ＢＧチェック 1080 ;;;;; 1081 ;;;; LMS R1,CPLSWIM 1082 ;;;; FROM R1 1083 ;;;; SUB #3 1084 ;;;; BCS MARIO_SW_0200 ;水中泳ぎ初期セット？ ( no:MARIO_SW_0200 ) 1085 ;;;; NOP 1086 ;;;;; 1087 ;;;;;-------------- 水中泳ぎ初期処理 ---------------------------------------- 1088 ;;;;; 1089 ;;;;;-------------- 初期浮力セット ---------------------------------- 1090 ;;;; FROM R1 ;x4 1091 ;;;; ADD R1 ; 1092 ;;;; ADD R0 ; 1093 ;;;; IWT R14,#SWIM_INDT-4 1094 ;;;; TO R14 1095 ;;;; ADD R14 1096 ;;;; GETBS 1097 ;;;; INC R14 1098 ;;;; LMS R2,CPLYSPD 1099 ;;;; ADD R2 1100 ;;;; BPL MARIO_SW_0050 ;減速終了？ ( no:MARIO_SW_0050 ) 1101 ;;;; SBK ;[ SMS R0,CPLYSPD ] 1102 ;;;;; 1103 ;;;; GETB 1104 ;;;; SBK ;[ SMS R0,CPLYSPD ] 1105 ;;;;; 1106 ;;;; INC R1 1107 ;;;; SMS R1,CPLSWIM 1108 ;;;;; 1109 ;;;;MARIO_SW_0050 1110 ;;;; INC R14 1111 ;;;;; 1112 ;;;;;-------------- Ｘスピード減速 ---------------------------------- 1113 ;;;; IBT R1,#040H 1114 ;;;; LMS R0,CPLMVSP 1115 ;;;; SUB #0 1116 ;;;; BMI MARIO_SW_0100 1117 ;;;; NOP 1118 ;;;;; 1119 ;;;; WITH R1 1120 ;;;; NOT 1121 ;;;; INC R1 1122 ;;;;MARIO_SW_0100 1123 ;;;; ADD R1 1124 ;;;; TO R1 1125 ;;;; XOR R1 1126 ;;;; BMI MARIO_SW_0150 ;Ｘスピード減速終了？ ( no:MARIO_SW_0150 ) 1127 ;;;; NOP 1128 ;;;;; 1129 ;;;; SUB R0 ;[ IBT R0,#0 ] 1130 ;;;;MARIO_SW_0150 1131 ;;;; SBK ;[ SMS R0,CPLMVSP ] 1132 ;;;; SMS R0,CPLXSPD 1133 ;;;;; 1134 ;;;;;-------------- 泳ぎ初期パターンセット -------------------------- 1135 ;;;; mDJMP MARIO_SW_0500 1136 ;;;;; 1137 ;;;;;-------------- 水中泳ぎ処理 -------------------------------------------- 1138 ;;;;MARIO_SW_0200 1139 ;;;;; 1140 ;;;;;-------------- Ｘ方向移動チェック ------------------------------ 1141 ;;;; IBT R0,#ON_WATR ;水中歩きセット 1142 ;;;; SMS R0,CPLBGNO 1143 ;;;; mJSR BERO_CHECK ;舌ショットチェック 1144 ;;;; LM R1,CMKEYC1 ;(R1) <-- コントローラー情報（連続） 1145 ;;;; mJSR PL_KEY_XMOV ;コントローラー入力（Ｘスピード制御） 1146 ;;;;; 1147 ;;;;;-------------- 水中泳ぎキャンセルチェック ------------------------------ 1148 ;;;; LMS R2,CPLYSPD ;(R2) <-- Ｙスピード 1149 ;;;; IBT R3,#0FEH ;[ IWT R2,#0FFFEH ] (R3) <-- 浮力 1150 ;;;;; 1151 ;;;; LMS R0,CPLBGCR 1152 ;;;; IBT R4,#00001100B 1153 ;;;; AND R4 1154 ;;;; BNE MARIO_SW_0232 ;頭ＢＧ当たり？ ( yes:MARIO_SW_0232 ) 1155 ;;;; NOP 1156 ;;;;; 1157 ;;;; LMS R7,CPLWATR ;(R7) <-- 水中フラグ 1158 ;;;; FROM R7 1159 ;;;; AND R4 1160 ;;;; BNE MARIO_SW_0240 ;頭水中？ ( yes:MARIO_SW_0240 ) 1161 ;;;; NOP 1162 ;;;;; 1163 ;;;; mJSR WTUP1_SET ;”ピチャピチャ”効果セット 1164 ;;;;; 1165 ;;;;;-------------- 水面ジャンプチェック ---------------------------- 1166 ;;;; LMS R0,CP_KEY_JUMP ;(R0) <-- ジャンプボタン情報 1167 ;;;; IWT R1,#0000100000000000B 1168 ;;;; TO R1 ;(R1) <-- ジャンプｕｐキー 1169 ;;;; OR R1 1170 ;;;; LMS R0,CMKEYC1L ;(R0) <-- コントローラー情報（連続） 1171 ;;;; AND R1 1172 ;;;; SUB R1 1173 ;;;; BNE MARIO_SW_0210 ;ジャンプｕｐキー入力？ ( no:MARIO_SW_0210 ) 1174 ;;;; NOP 1175 ;;;;; 1176 ;;;; IWT R0,#P006 1177 ;;;; SMS R0,CPLJUMP ;ジャンプフラグセット 1178 ;;;; IWT R0,#0FB80H 1179 ;;;; SMS R0,CPLYSPD ;ジャンプＹスピードセット 1180 ;;;; BRA MARIO_SW_0220 1181 ;;;; SUB R0 ;[ * 泳ぎキャンセル ] 1182 ;;;;; 1183 ;;;;MARIO_SW_0210 1184 ;;;; IBT R0,#10100000B 1185 ;;;; AND R7 1186 ;;;; BNE MARIO_SW_0240 ;水面に顔が出た？ ( no:MARIO_SW_0240 ) 1187 ;;;; SUB R0 ;[ * R0 <- 0 ] 1188 ;;;;; 1189 ;;;; LMS R4,CPLJUMP 1190 ;;;; SUB R4 ;[ * CMP #0 : R0=0 ] 1191 ;;;; BNE MARIO_SW_0230 ;着地？ ( no:MARIO_SW_0230 ) 1192 ;;;; SUB R0 ;[ * 泳ぎキャンセル ] 1193 ;;;;; 1194 ;;;;MARIO_SW_0220 1195 ;;;; SMS R0,CPLSWIM ;泳ぎキャンセル 1196 ;;;;; 1197 ;;;;;-------------- 水しぶきセット ---------------------------------- 1198 ;;;; mJSR WTUP0_SET ;”バッシャーン”効果セット 1199 ;;;; BRA MARIO_SW_0600 1200 ;;;; NOP 1201 ;;;;; 1202 ;;;;MARIO_SW_0230 1203 ;;;; IBT R0,#0D0H ;[ IWT R0,#0FFD0H ] 1204 ;;;; SUB R2 1205 ;;;; BMI MARIO_SW_0232 ;上昇スピードオーバー？ ( no:MARIO_SW_0232 ) 1206 ;;;; TO R2 ;[ * ] 1207 ;;;;; 1208 ;;;; ADD R2 ;[ PLYSPD <-- 0FFD0H ] 1209 ;;;;MARIO_SW_0232 1210 ;;;; IBT R3,#02H ;(R2) <-- 重力 1211 ;;;;; 1212 ;;;;;-------------- あぶくセット ------------------------------------ 1213 ;;;;MARIO_SW_0240 1214 ;;;; mJSR BABL0_SET ;あぶく効果セット 1215 ;;;;; 1216 ;;;;;-------------- 浮力セット -------------------------------------- 1217 ;;;;MARIO_SW_0250 1218 ;;;; FROM R2 1219 ;;;; ADD R3 1220 ;;;; IWT R3,#0FF00H 1221 ;;;; SUB R3 1222 ;;;; BMI MARIO_SW_0300 ;上昇スピードオーバー？ ( no:MARIO_SW_0300 ) 1223 ;;;; TO R3 1224 ;;;;; 1225 ;;;; ADD R3 1226 ;;;;MARIO_SW_0300 1227 ;;;; SMS R3,CPLYSPD 1228 ;;;;; 1229 ;;;;;-------------- 泳ぎパターンセット ------------------------------ 1230 ;;;; LM R0,CFRCNT2 1231 ;;;; LSR 1232 ;;;; LSR 1233 ;;;; TO R1 1234 ;;;; AND #03H*2 1235 ;;;; LM R0,CMKEYC1 ;(R1) <-- コントローラー情報（連続） 1236 ;;;; AND #00000011B 1237 ;;;; BEQ MARIO_SW_0350 ;移動キー入力？ ( yes:MARIO_SW_0350 ) 1238 ;;;; WITH R1 1239 ;;;;; 1240 ;;;; ADD #4*2 1241 ;;;;MARIO_SW_0350 1242 ;;;; IWT R0,#SWIM_PATN 1243 ;;;; TO R14 1244 ;;;; ADD R1 1245 ;;;;; 1246 ;;;;;-------------- パターンＮｏ．セット ------------------------------------ 1247 ;;;;MARIO_SW_0500 1248 ;;;; LMS R0,CBERFLG 1249 ;;;; DEC R0 1250 ;;;; BPL MARIO_SW_0600 ;舌ショット中？ ( yes:MARIO_SW_0600 ) 1251 ;;;; NOP 1252 ;;;;; 1253 ;;;; LMS R0,CPLNAGE 1254 ;;;; LOB 1255 ;;;; BEQ MARIO_SW_0510 ;タマゴ投げ中？ ( no:MARIO_SW_0510 ) 1256 ;;;; ADD R0 ;x2 1257 ;;;;; 1258 ;;;;;-------------- タマゴ投げパターンセット ---------------------- 1259 ;;;; IWT R14,#NAGE_PATN-2 1260 ;;;; TO R14 1261 ;;;; ADD R14 1262 ;;;;; 1263 ;;;;MARIO_SW_0510 1264 ;;;; GETB 1265 ;;;; INC R14 1266 ;;;; GETBH ;(R0) <-- パターンＮｏ． 1267 ;;;; SMS R0,CPLPATN ;パターンＮｏ．セット 1268 ;;;;; 1269 ;;;;MARIO_SW_0600 1270 ;;;; SUB R0 ;<<< end >>> 1271 ;;;; STOP 1272 ;;;; NOP 1273 ; 1274 ;************************************************************************ 1275 ;* * 1276 ;* コントローラー入力 * 1277 ;* * 1278 ;************************************************************************ 1279 ; 1280 MR_KEY 1281 ; 1282 ;------------------------------------------------------------------------ 1283 ;- 移動キーチェック - 1284 ;------------------------------------------------------------------------ 1285 S0004D0 3D F1 0071 LM R1,CMKEYC1 ;(R1) <-- コントローラー情報（連続） 1286 S0004D4 3D F2 0073 LM R2,CMKEYC2 ;(R2) <-- ” （トリガー） 1287 ; 1288 S0004D8 3D A0 60 LMS R0,CPLJUMP 1289 S0004DB E0 DEC R0 1290 S0004DC 0B 19' BMI MR_KEY_1000 ;ジャンプ中？ ( no:MR_KEY_1000 ) 1291 S0004DE 01 NOP 1292 ; 1293 ;------------------------------------------------------------------------ 1294 ;- ジャンプ中のキーチェック - 1295 ;------------------------------------------------------------------------ 1296 S0004DF 3D A7 C4 LMS R7,CPMR_HBCT 1297 S0004E2 27 B7 MOVES R7,R7 1298 S0004E4 0A 0D' BPL MR_KEY_0010 ;ＢＧ頭当たり”ボヨヨ〜ン”中？ ( no:MR_KEY_0010 ) 1299 S0004E6 01 NOP 1300 ; 1301 ;-------------- ＢＧ頭当たり”ボヨヨ〜ン”セット ------------------------ 1302 S0004E7 3D A0 C5 LMS R0,CPMR_HBSP 1303 S0004EA F4 0060 IWT R4,#060H 1304 S0004ED 54 ADD R4 1305 S0004EE 90 SBK ;[ SMS R0,CPMR_HBSP ] 1306 ; 1307 S0004EF 57 ADD R7 1308 S0004F0 3E A0 C4 SMS R0,CPMR_HBCT 1309 MR_KEY_0010 1310 mDJMP MR_KEY_1500 1310+ S0004F3 FF 05C1' IWT R15, #MR_KEY_1500 1310+ S0004F6 01 NOP 1311 ; 1312 ;------------------------------------------------------------------------ 1313 ;- 着地中のキーチェック - 1314 ;------------------------------------------------------------------------ 1315 MR_KEY_1000 1316 S0004F7 3D A7 C6 LMS R7,CPMR_FBCT 1317 S0004FA E7 DEC R7 1318 S0004FB 0B 0D' BMI MR_KEY_1002 ;着地”ボヨヨ〜ン”？中？ ( no:MR_KEY_1002 ) 1319 S0004FD D7 INC R7 1320 ; 1321 ;-------------- 着地”ボヨヨ〜ン”セット -------------------------------- 1322 S0004FE 3D A0 C7 LMS R0,CPMR_FBSP 1323 S000501 F4 FFA0 IWT R4,#-060H 1324 S000504 54 ADD R4 1325 S000505 90 SBK ;[ SMS R0,CPMR_FBSP ] 1326 ; 1327 S000506 57 ADD R7 1328 S000507 3E A0 C6 SMS R0,CPMR_FBCT 1329 ;;;; mDJMP MR_KEY_1500 1330 ; 1331 ;---------------------------------------------------------------- 1332 ;- しゃがみチェック - 1333 ;---------------------------------------------------------------- 1334 MR_KEY_1002 1335 S00050A 3D A7 61 LMS R7,CPLSITD ;(R7) <-- しゃがみフラグ 1336 S00050D A8 FF IBT R8,#-1 ;(R8) <-- しゃがみフラグ減算データ 1337 S00050F B1 FROM R1 1338 S000510 3E 74 AND #00000100B ;(R0) <-- ＭＡＸチェックデータ（０） 1339 S000512 09 05' BEQ MR_KEY_1010 ;しゃがみ？ ( no:MR_KEY_1010 ) 1340 S000514 01 NOP 1341 ; 1342 S000515 A8 01 IBT R8,#1 ;(R8) <-- しゃがみフラグ加算データ 1343 S000517 A0 05 IBT R0,#5 ;(R0) <-- ＭＡＸチェックデータ 1344 MR_KEY_1010 1345 S000519 67 SUB R7 1346 S00051A 09 04' BEQ MR_KEY_1020 ;しゃがみフラグＭＡＸ？ ( yes:MR_KEY_1020 ) 1347 S00051C 57 ADD R7 1348 ; 1349 S00051D B7 FROM R7 1350 S00051E 58 ADD R8 1351 S00051F 90 SBK ;[ SMS R0,CPLSITD ] 1352 MR_KEY_1020 1353 S000520 09 0D' BEQ MR_KEY_1100 ;しゃがみ中？ ( no:MR_KEY_1100 ) 1354 S000522 01 NOP 1355 ; 1356 S000523 3D F0 0085 LM R0,CP_KEY_JUMP+1 ;(R0) <-- ジャンプボタン情報 1357 S000527 72 AND R2 1358 S000528 08 11' BNE MR_KEY_1110 ;ジャンプ？ ( yes:MR_KEY_1110 ) 1359 S00052A 01 NOP 1360 ; 1361 mDJMP MR_KEY_1800 1361+ S00052B FF 06AA' IWT R15, #MR_KEY_1800 1361+ S00052E 01 NOP 1362 ; 1363 ;---------------------------------------------------------------- 1364 ;- ジャンプチェック - 1365 ;---------------------------------------------------------------- 1366 MR_KEY_1100 1367 S00052F 3D F0 0085 LM R0,CP_KEY_JUMP+1 ;(R0) <-- ジャンプボタン情報 1368 S000533 72 AND R2 1369 S000534 08 05' BNE MR_KEY_1110 ;ジャンプ？ ( yes:MR_KEY_1110 ) 1370 S000536 01 NOP 1371 ; 1372 mDJMP MR_KEY_1200 1372+ S000537 FF 05C1' IWT R15, #MR_KEY_1200 1372+ S00053A 01 NOP 1373 ; 1374 MR_KEY_1110 1375 S00053B A0 38 IBT R0,#038H ;[♪] 1376 S00053D 3E A0 3D SMS R0,CMSOUND3 1377 ; 1378 ;;;; IBT R0,#040H 1379 ;;;; SMS R0,CSOUND_ON ;サウンドセットフラグセット 1380 ;;;; LMS R0,CPLXPSL 1381 ;;;; SM R0,CSOUND_X ;サウンドセットＸ座標セット 1382 ;;;; LMS R0,CPLYPSL 1383 ;;;; SM R0,CSOUND_Y ;サウンドセットＹ座標セット 1384 ; 1385 S000540 F0 0170 IWT R0,#0170H 1386 S000543 3D F6 1E3A LM R6,CPL_ADD_XSP 1387 S000547 3D 9F LMULT 1388 S000549 24 WITH R4 1389 S00054A C0 HIB 1390 S00054B 9E LOB 1391 S00054C 4D SWAP 1392 S00054D 17 TO R7 ;(R7) <-- ジャンプＸスピード加算値 1393 S00054E C4 OR R4 1394 ; 1395 S00054F F6 FB60 IWT R6,#0FB60H ;(R6) <-- ジャンプＹスピード 1396 S000552 3D A0 C0 LMS R0,CPMR_BGCF 1397 S000555 3E 60 SUB #0 1398 S000557 09 41' BEQ MR_KEY_1150 ;ソニックモード？ ( no:MR_KEY_1150 ) 1399 S000559 01 NOP 1400 ; 1401 ;-------------- ソニックモードからのジャンプ -------------------- 1402 S00055A A0 00" IBT R0,#BANK LSIN 1403 S00055C 3F DF ROMB 1404 ; 1405 S00055E FE 0000" IWT R14,#LSIN 1406 S000561 3D A0 5B LMS R0,CPLANGL ;(R0) <-- 足下角度 1407 S000564 1E TO R14 1408 S000565 5E ADD R14 1409 S000566 3F EF GETBS 1410 S000568 50 ADD R0 1411 S000569 50 ADD R0 ;[ 100H <-- 040H ] 1412 S00056A 3D 9F LMULT 1413 S00056C 24 WITH R4 1414 S00056D C0 HIB 1415 S00056E 9E LOB 1416 S00056F 4D SWAP 1417 S000570 C4 OR R4 1418 S000571 4F NOT 1419 S000572 D0 INC R0 1420 S000573 17 TO R7 ;(R7) <-- ジャンプＸスピード加算値 1421 S000574 57 ADD R7 1422 ; 1423 S000575 A0 40 IBT R0,#040H ;[ IWT R0,#LSIN ] 1424 S000577 2E WITH R14 1425 S000578 60 SUB R0 1426 S000579 3F EF GETBS 1427 S00057B 50 ADD R0 1428 S00057C 50 ADD R0 ;[ 100H <-- 040H ] 1429 S00057D 3D 9F LMULT 1430 S00057F 24 WITH R4 1431 S000580 C0 HIB 1432 S000581 9E LOB 1433 S000582 4D SWAP 1434 S000583 C4 OR R4 1435 S000584 3D A6 55 LMS R6,CPLYSPD 1436 S000587 E6 DEC R6 1437 S000588 0B 03' BMI MR_KEY_1120 1438 S00058A D6 INC R6 1439 ; 1440 S00058B A6 00 IBT R6,#0 1441 MR_KEY_1120 1442 S00058D 16 TO R6 ;(R6) <-- ジャンプＹスピードセット 1443 S00058E 56 ADD R6 1444 S00058F 0B 02' BMI MR_KEY_1130 ;上昇？ ( yes:MR_KEY_1130 ) 1445 S000591 16 TO R6 ;[ IBT R6,#0 ] 1446 ; 1447 S000592 60 SUB R0 1448 MR_KEY_1130 1449 S000593 A0 00" IBT R0,#BANK PLAYER_DATA 1450 S000595 3F DF ROMB 1451 S000597 05 0B' BRA MR_KEY_1180 1452 S000599 01 NOP 1453 ; 1454 ;-------------- ノーマルモードからのジャンプ -------------------- 1455 MR_KEY_1150 1456 S00059A 3D A0 7E LMS R0,CPLBGCR 1457 S00059D A4 18 IBT R4,#000011000B 1458 S00059F 74 AND R4 1459 S0005A0 09 02' BEQ MR_KEY_1180 ;頭ＢＧ当たり？ ( no:MR_KEY_1180 ) 1460 S0005A2 16 TO R6 ;[ IBT R6,#0 ] 1461 ; 1462 S0005A3 60 SUB R0 1463 MR_KEY_1180 1464 S0005A4 3E A6 55 SMS R6,CPLYSPD ;Ｙスピードセット 1465 S0005A7 3D A0 54 LMS R0,CPLXSPD 1466 S0005AA 57 ADD R7 1467 S0005AB 3E A0 5A SMS R0,CPLMVSP 1468 ; 1469 S0005AE F0 0006 IWT R0,#P006 1470 S0005B1 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＮ” 1471 S0005B4 60 SUB R0 1472 S0005B5 3E A0 6D SMS R0,CPLKAID ;階段フラグリセット 1473 S0005B8 3E A0 61 SMS R0,CPLSITD ;しゃがみリセット 1474 S0005BB 3E A0 C6 SMS R0,CPMR_FBCT ;着地”ボヨヨ〜ン”リセット 1475 S0005BE 05 01' BRA MR_KEY_1500 1476 S0005C0 01 NOP 1477 ; 1478 MR_KEY_1200 1479 ; 1480 ;;;;;---------------------------------------------------------------- 1481 ;;;;;- 上向きチェック - 1482 ;;;;;---------------------------------------------------------------- 1483 ;;;; FROM R1 1484 ;;;; AND #00001000B 1485 ;;;; BEQ MR_KEY_1500 ;上向く？ ( no:MR_KEY_1500 ) 1486 ;;;; NOP 1487 ;;;;; 1488 ;;;; IWT R0,#P106 1489 ;;;; SMS R0,CPLUPFG ;上向きフラグ”ＯＮ” 1490 ; 1491 ;------------------------------------------------------------------------ 1492 ;- 移動キーチェック - 1493 ;------------------------------------------------------------------------ 1494 MR_KEY_1500 1495 S0005C1 3D A0 C2 LMS R0,CPMR_SBCT 1496 S0005C4 3E 60 SUB #0 1497 S0005C6 09 3F' BEQ MR_KEY_1501 ;ＢＧヨコ当たり”ボヨヨ〜ン”中？ ( no:MR_KEY_1501 ) 1498 S0005C8 01 NOP 1499 ; 1500 ;-------------- ＢＧヨコ当たり”ボヨヨ〜ン”セット ---------------------- 1501 S0005C9 3D A4 C3 LMS R4,CPMR_SBSP 1502 S0005CC 17 TO R7 1503 S0005CD 54 ADD R4 1504 S0005CE 3D C7 XOR R7 1505 S0005D0 0A 1F' BPL MR_KEY_15002 ;ＢＧヨコ当たり”ボヨヨ〜ン”終了？ ( no:MR_KEY_15002 ) 1506 S0005D2 60 SUB R0 ;[ IBT R0,#0 ] 1507 ; 1508 S0005D3 90 SBK ;[ SMS R0,CPMR_SBSP ] 1509 S0005D4 3E A0 C2 SMS R0,CPMR_SBCT 1510 S0005D7 3E A4 54 SMS R4,CPLXSPD 1511 S0005DA 3E A4 5A SMS R4,CPLMVSP 1512 S0005DD 20 B4 MOVES R0,R4 1513 S0005DF 0B 03' BMI MR_KEY_15001 1514 S0005E1 01 NOP 1515 ; 1516 S0005E2 4F NOT 1517 S0005E3 D0 INC R0 1518 MR_KEY_15001 1519 S0005E4 50 ADD R0 1520 S0005E5 3E A0 55 SMS R0,CPLYSPD ;Ｙスピードセット 1521 S0005E8 F0 0006 IWT R0,#P006 1522 S0005EB 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＮ” 1523 S0005EE 05 17' BRA MR_KEY_1501 1524 S0005F0 01 NOP 1525 ; 1526 MR_KEY_15002 1527 S0005F1 A0 60 IBT R0,#060H 1528 S0005F3 27 B7 MOVES R7,R7 1529 S0005F5 0B 03' BMI MR_KEY_15004 1530 S0005F7 01 NOP 1531 ; 1532 S0005F8 A0 A0 IBT R0,#-060H 1533 MR_KEY_15004 1534 S0005FA 54 ADD R4 1535 S0005FB 90 SBK ;[ SMS R0,CPMR_SBSP ] 1536 S0005FC 3E A7 C2 SMS R7,CPMR_SBCT 1537 S0005FF 60 SUB R0 ;[ IBT R0,#0 ] 1538 S000600 3E A0 55 SMS R0,CPLYSPD ;Ｙスピードクリアー 1539 mDJMP MR_KEY_1720 1539+ S000603 FF 06A8' IWT R15, #MR_KEY_1720 1539+ S000606 01 NOP 1540 ; 1541 MR_KEY_1501 1542 S000607 3D A0 6D LMS R0,CPLKAID 1543 S00060A E0 DEC R0 1544 S00060B 0B 05' BMI MR_KEY_XMOV ;階段歩き中？ ( no:MR_KEY_XMOV ) 1545 S00060D 01 NOP 1546 ; 1547 mDJMP MR_KEY_1720 1547+ S00060E FF 06A8' IWT R15, #MR_KEY_1720 1547+ S000611 01 NOP 1548 ; 1549 ;-------------- Ｘスピード制御 ------------------------------------------ 1550 MR_KEY_XMOV 1551 S000612 3D A0 60 LMS R0,CPLJUMP 1552 S000615 E0 DEC R0 1553 S000616 0B 0D' BMI MR_KEY_1502 ;ジャンプ中？ ( no:MR_KEY_1502 ) 1554 S000618 B1 FROM R1 1555 ; 1556 S000619 3D A0 69 LMS R0,CPLSPJP 1557 S00061C 3E 65 SUB #2+3 1558 S00061E 0C 05' BCC MR_KEY_1502 ;ホバリング？ ( no:MR_KEY_1502 ) 1559 S000620 B1 FROM R1 1560 ; 1561 mDJMP MR_KEY_2000 1561+ S000621 FF 071A' IWT R15, #MR_KEY_2000 1561+ S000624 01 NOP 1562 ; 1563 ;-------------- ノーマル加速 ------------------------------------ 1564 MR_KEY_1502 1565 ;;;; FROM R1 1566 S000625 3E 73 AND #00000011B 1567 S000627 08 05' BNE MR_KEY_1510 ;左右キー入力？ ( yes:MR_KEY_1510 ) 1568 S000629 01 NOP 1569 ; 1570 mDJMP MR_KEY_1800 1570+ S00062A FF 06AA' IWT R15, #MR_KEY_1800 1570+ S00062D 01 NOP 1571 ; 1572 MR_KEY_1510 1573 S00062E 3E A0 66 SMS R0,CPLSTOP ;止まってるフラグリセット 1574 ; 1575 S000631 A7 FF IBT R7,#-1 ;(R7) <-- 左右キーによる移動方向（左） 1576 S000633 3E 72 AND #02H ;(R0) <-- プレイヤー向き 1577 S000635 08 03' BNE MR_KEY_1520 ;左へ？ ( yes:MR_KEY_1520 ) 1578 S000637 01 NOP 1579 ; 1580 S000638 A7 01 IBT R7,#01H ;(R7) <-- 左右キーによる移動方向（右） 1581 MR_KEY_1520 1582 S00063A 3D A4 62 LMS R4,CPLCMKI ;(R4) <-- 移動向き 1583 S00063D 64 SUB R4 1584 S00063E 09 06' BEQ MR_KEY_1550 ;向き変わった？ ( no:MR_KEY_1550 ) 1585 S000640 54 ADD R4 1586 ; 1587 S000641 3E A0 62 SMS R0,CPLCMKI 1588 S000644 20 14 MOVE R4,R0 ;(R4) <-- 移動向き 1589 MR_KEY_1550 1590 S000646 3D A0 5A LMS R0,CPLMVSP 1591 S000649 3E 60 SUB #0 1592 S00064B 09 0B' BEQ MR_KEY_1700 ;止まってた？ ( yes:MR_KEY_1700 ) 1593 S00064D 01 NOP 1594 ; 1595 S00064E 3D C7 XOR R7 1596 S000650 0A 06' BPL MR_KEY_1700 ;スリップ？ ( no:MR_KEY_1700 ) 1597 S000652 01 NOP 1598 ; 1599 ;---------------------------------------------------------------- 1600 ;- スリップ - 1601 ;---------------------------------------------------------------- 1602 ;;;; LMS R0,CPLJUMP 1603 ;;;; SUB #0 1604 ;;;; BNE MR_KEY_1700 ;ジャンプ中？ ( yes:MR_KEY_1700 ) 1605 ;;;; NOP 1606 ; 1607 S000653 A0 04 IBT R0,#04H 1608 S000655 3E A0 E8 SMS R0,CPLSLIP ;スリップフラグ”ＯＮ” 1609 ; 1610 ;---------------------------------------------------------------- 1611 ;- 加速 - 1612 ;---------------------------------------------------------------- 1613 MR_KEY_1700 1614 S000658 3D F0 00FB LM R0,CPLBGNO+1 ;ＢＧタイプ ×（（２＋２）×１６） 1615 S00065C 03 LSR ; 1616 S00065D 03 LSR ; 1617 S00065E 17 TO R7 1618 S00065F C4 OR R4 ;[ ＯＲ（移動向き） ] 1619 S000660 3D A0 5B LMS R0,CPLANGL 1620 S000663 3F 7F BIC #0FH ;[ AND #0FFF0H ] 1621 S000665 03 LSR 1622 S000666 03 LSR 1623 S000667 17 TO R7 ;(R7) <-- 加速データポインター 1624 S000668 C7 OR R7 1625 ; 1626 S000669 F0 0000" IWT R0,#MAX_SPEED 1627 S00066C 1E TO R14 ;(R14) <-- ＭＡＸスピードデータポインター 1628 S00066D 57 ADD R7 1629 S00066E EF GETB 1630 S00066F DE INC R14 1631 S000670 18 TO R8 ;(R8) <-- ＭＡＸスピード 1632 S000671 3D EF GETBH 1633 ; 1634 ;-------------- （Ｂ）加速チェック ------------------------------ 1635 S000673 A0 40 IBT R0,#01000000B 1636 S000675 71 AND R1 1637 S000676 09 0D' BEQ MR_KEY_1704 ;（Ｂ）加速？ ( no:MR_KEY_1704 ) 1638 S000678 01 NOP 1639 ; 1640 S000679 F6 0140 IWT R6,#0140H ;(R6) <-- （Ｂ）加速率 1641 S00067C B8 FROM R8 1642 S00067D 3D 9F LMULT 1643 S00067F 24 WITH R4 1644 S000680 C0 HIB 1645 S000681 9E LOB 1646 S000682 4D SWAP 1647 S000683 18 TO R8 ;(R8) <-- （Ｂ）加速ＭＡＸスピード 1648 S000684 C4 OR R4 1649 ; 1650 MR_KEY_1704 1651 S000685 3D A0 5A LMS R0,CPLMVSP ;(R0) <-- 移動スピード 1652 S000688 68 SUB R8 1653 S000689 09 4B' BEQ MR_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:MR_KEY_1850 ) 1654 S00068B 01 NOP 1655 ; 1656 S00068C 3D C8 XOR R8 1657 S00068E 0A 46' BPL MR_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:MR_KEY_1850 ) 1658 S000690 01 NOP 1659 ; 1660 S000691 3D A0 E8 LMS R0,CPLSLIP 1661 S000694 9E LOB 1662 S000695 09 02' BEQ MR_KEY_1710 ;スリップ？ ( no:MR_KEY_1710 ) 1663 S000697 01 NOP 1664 ; 1665 S000698 D7 INC R7 1666 MR_KEY_1710 1667 S000699 F0 0000" IWT R0,#ADD_SPEED 1668 S00069C 57 ADD R7 1669 S00069D 1E TO R14 1670 S00069E 57 ADD R7 1671 S00069F EF GETB 1672 S0006A0 DE INC R14 1673 S0006A1 3D EF GETBH 1674 ; 1675 S0006A3 3D A7 5A LMS R7,CPLMVSP 1676 S0006A6 57 ADD R7 1677 S0006A7 90 SBK ;[ SMS R0,CPLMVSP ] 1678 ; 1679 MR_KEY_1720 1680 mRTS 1680+ S0006A8 9B JMP R11 1680+ S0006A9 01 NOP 1681 ; 1682 ;---------------------------------------------------------------- 1683 ;- 減速 - 1684 ;---------------------------------------------------------------- 1685 MR_KEY_1800 1686 S0006AA 3D A0 60 LMS R0,CPLJUMP 1687 S0006AD E0 DEC R0 1688 S0006AE 0B 26' BMI MR_KEY_1850 ;ジャンプ中？ ( no:MR_KEY_1850 ) 1689 S0006B0 01 NOP 1690 ; 1691 S0006B1 3D A0 63 LMS R0,CPLSWIM 1692 S0006B4 E0 DEC R0 1693 S0006B5 0A 1F' BPL MR_KEY_1850 ;泳いでる？ ( yes:MR_KEY_1850 ) 1694 S0006B7 01 NOP 1695 ; 1696 ;-------------------------------------------------------- 1697 ;- ジャンプ中の減速 - 1698 ;-------------------------------------------------------- 1699 S0006B8 FE 0000" IWT R14,#MAX_SPEED ;(R14) <-- ＭＡＸスピードデータポインター 1700 S0006BB 3D A0 5A LMS R0,CPLMVSP 1701 S0006BE 3E 60 SUB #0 1702 S0006C0 0A 03' BPL MR_KEY_1810 1703 S0006C2 01 NOP 1704 ; 1705 S0006C3 DE INC R14 1706 S0006C4 DE INC R14 1707 MR_KEY_1810 1708 S0006C5 18 TO R8 1709 S0006C6 EF GETB 1710 S0006C7 DE INC R14 1711 S0006C8 28 WITH R8 1712 S0006C9 3D EF GETBH 1713 ; 1714 S0006CB 68 SUB R8 1715 S0006CC 09 08' BEQ MR_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:MR_KEY_1850 ) 1716 S0006CE 01 NOP 1717 ; 1718 S0006CF 3D C8 XOR R8 1719 S0006D1 0A 03' BPL MR_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:MR_KEY_1850 ) 1720 S0006D3 01 NOP 1721 ; 1722 mRTS 1722+ S0006D4 9B JMP R11 1722+ S0006D5 01 NOP 1723 ; 1724 ;-------------------------------------------------------- 1725 ;- 着地中の減速 - 1726 ;-------------------------------------------------------- 1727 MR_KEY_1850 1728 S0006D6 3D F0 00FB LM R0,CPLBGNO+1 ;ＢＧタイプ ×（２×１６） 1729 S0006DA 03 LSR ; 1730 S0006DB 03 LSR ; 1731 S0006DC 17 TO R7 ; 1732 S0006DD 03 LSR ; 1733 S0006DE 3D A0 5B LMS R0,CPLANGL 1734 S0006E1 3F 7F BIC #0FH ;[ AND #0FFF0H ] 1735 S0006E3 03 LSR 1736 S0006E4 03 LSR 1737 S0006E5 03 LSR 1738 S0006E6 14 TO R4 ;(R4) <-- 減速データポインター 1739 S0006E7 C7 OR R7 1740 S0006E8 F0 0000" IWT R0,#MIN_SPEED 1741 S0006EB 1E TO R14 1742 S0006EC 54 ADD R4 1743 S0006ED EF GETB 1744 S0006EE DE INC R14 1745 S0006EF 17 TO R7 ;(R7) <-- ＭＩＮスピード 1746 S0006F0 3D EF GETBH 1747 ; 1748 S0006F2 3D A8 5A LMS R8,CPLMVSP ;(R8) <-- 移動スピード 1749 S0006F5 B8 FROM R8 1750 S0006F6 67 SUB R7 1751 S0006F7 0A 02' BPL MR_KEY_1860 1752 S0006F9 01 NOP 1753 ; 1754 S0006FA D4 INC R4 1755 MR_KEY_1860 1756 S0006FB F0 0000" IWT R0,#SUB_SPEED 1757 S0006FE 54 ADD R4 1758 S0006FF 1E TO R14 1759 S000700 54 ADD R4 1760 S000701 EF GETB 1761 S000702 DE INC R14 1762 S000703 3D EF GETBH 1763 S000705 20 14 MOVE R4,R0 ;(R4) <-- 減速値 1764 ; 1765 S000707 58 ADD R8 1766 S000708 20 18 MOVE R8,R0 1767 S00070A 67 SUB R7 1768 S00070B 3D C4 XOR R4 1769 S00070D 0B 06' BMI MR_KEY_1870 ;ＭＩＮスピードオーバー？ ( no:MR_KEY_1870 ) 1770 S00070F 60 SUB R0 1771 ; 1772 S000710 3E A0 66 SMS R0,CPLSTOP 1773 S000713 27 18 MOVE R8,R7 1774 MR_KEY_1870 1775 S000715 3E A8 5A SMS R8,CPLMVSP 1776 mRTS 1776+ S000718 9B JMP R11 1776+ S000719 01 NOP 1777 ; 1778 ;-------------- ホバリング加速 ---------------------------------- 1779 MR_KEY_2000 1780 S00071A 3D A4 62 LMS R4,CPLCMKI ;(R4) <-- プレイヤー向き 1781 S00071D B1 FROM R1 1782 S00071E 3E 73 AND #00000011B 1783 S000720 09 17' BEQ MR_KEY_2050 ;左右キー入力？ ( no:MR_KEY_2050 ) 1784 S000722 01 NOP 1785 ; 1786 S000723 3E 72 AND #02H ;(R0) <-- プレイヤー向き 1787 S000725 64 SUB R4 1788 S000726 09 11' BEQ MR_KEY_2050 ;プレイヤー向き変更？ ( no:MR_KEY_2050 ) 1789 S000728 54 ADD R4 1790 ; 1791 S000729 90 SBK ;[ SMS R0,CPLCMKI ] 1792 S00072A 20 14 MOVE R4,R0 ;(R4) <-- プレイヤー向き 1793 S00072C 3D A0 BF LMS R0,CPMR_ANGL 1794 S00072F 4F NOT 1795 S000730 D0 INC R0 1796 S000731 9E LOB 1797 S000732 90 SBK ;[ SMS R0,CPMR_ANGL ] 1798 S000733 3D A0 CF LMS R0,CPMR_ANSP 1799 S000736 4F NOT 1800 S000737 D0 INC R0 1801 S000738 90 SBK ;[ SMS R0,CPMR_ANSP ] 1802 MR_KEY_2050 1803 S000739 F8 0200 IWT R8,#0200H ;(R8) <-- ＭＡＸスピード 1804 S00073C 3D AE BF LMS R14,CPMR_ANGL 1805 S00073F BE FROM R14 1806 S000740 95 SEX 1807 S000741 0B 04' BMI MR_KEY_2060 1808 S000743 01 NOP 1809 ; 1810 S000744 F8 0100 IWT R8,#0100H ;(R8) <-- ＭＡＸスピード 1811 MR_KEY_2060 1812 S000747 3D A6 CF LMS R6,CPMR_ANSP ;(R6) <-- ホバリング回転スピード 1813 S00074A 3D C6 XOR R6 1814 S00074C 0B 17' BMI MR_KEY_2100 ;加速ＯＫ？ ( no:MR_KEY_2100 ) 1815 S00074E 60 SUB R0 ;[ IBT R0,#0 ] 1816 ; 1817 S00074F A0 00" IBT R0,#BANK LCOS 1818 S000751 3F DF ROMB 1819 ; 1820 S000753 F0 0000" IWT R0,#LCOS 1821 S000756 1E TO R14 1822 S000757 5E ADD R14 1823 S000758 EF GETB 1824 S000759 4D SWAP 1825 S00075A 9F FMULT 1826 S00075B 3D 96 DIV2 ;1/4 1827 S00075D 3D 96 DIV2 ; 1828 ; 1829 S00075F E4 DEC R4 1830 S000760 0A 03' BPL MR_KEY_2100 ;右向き？ ( yes:MR_KEY_2100 ) 1831 S000762 D4 INC R4 1832 ; 1833 S000763 4F NOT 1834 S000764 D0 INC R0 1835 MR_KEY_2100 1836 S000765 27 B0 MOVES R7,R0 ;(R7) <-- 加速値 1837 S000767 0A 03' BPL MR_KEY_2150 1838 S000769 28 WITH R8 ;(R8) <-- ＭＡＸスピード 1839 ; 1840 S00076A 4F NOT 1841 S00076B D8 INC R8 1842 MR_KEY_2150 1843 S00076C A0 00" IBT R0,#BANK PLAYER_DATA 1844 S00076E 3F DF ROMB 1845 ; 1846 S000770 3D A0 5A LMS R0,CPLMVSP ;(R0) <-- 移動スピード 1847 S000773 68 SUB R8 1848 S000774 09 06' BEQ MR_KEY_2160 ;ＭＡＸスピードオーバー？ ( yes:MR_KEY_2160 ) 1849 S000776 01 NOP 1850 ; 1851 S000777 3D C8 XOR R8 1852 S000779 0B 05' BMI MR_KEY_2200 ;ＭＡＸスピードオーバー？ ( no:MR_KEY_2200 ) 1853 S00077B 01 NOP 1854 ; 1855 MR_KEY_2160 1856 mDJMP MR_KEY_1850 1856+ S00077C FF 06D6' IWT R15, #MR_KEY_1850 1856+ S00077F 01 NOP 1857 ; 1858 MR_KEY_2200 1859 S000780 3D A0 5A LMS R0,CPLMVSP 1860 S000783 57 ADD R7 1861 S000784 90 SBK ;[ SMS R0,CPLMVSP ] 1862 mRTS 1862+ S000785 9B JMP R11 1862+ S000786 01 NOP 1863 ; 1864 ;************************************************************************ 1865 ;* * 1866 ;* マリオパターンタイプセット * 1867 ;* * 1868 ;************************************************************************ 1869 ; 1870 MR_PATN 1871 ; 1872 ;------------------------------------------------------------------------ 1873 ;- キャラクターセット - 1874 ;------------------------------------------------------------------------ 1875 S000787 3E AB 34 SMS R11,RTS4 ;[ return to address save ] 1876 ; 1877 S00078A A2 20 IBT R2,#020H ;(R2) <-- ビットマップ座標＿Ｙ 1878 S00078C A3 00 IBT R3,#000H ;(R3) <-- ” ＿Ｘ 1879 S00078E AD 54 IBT R13,#BANK CIPCHD ;(R13) <-- キャラクターアドレス（Ｂ） 1880 ; 1881 S000790 3D A0 C9 LMS R0,CPMR_CTYP 1882 S000793 FE 0000" IWT R14,#MR_CHR_TYPE 1883 S000796 1E TO R14 1884 S000797 5E ADD R14 1885 S000798 EF GETB 1886 S000799 DE INC R14 1887 S00079A 1C TO R12 ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 1888 S00079B 3D EF GETBH 1889 S00079D DE INC R14 1890 ; 1891 S00079E EF GETB 1892 S00079F E0 DEC R0 1893 S0007A0 0A 15' BPL MR_PATN_0050 ;回転キャラ？ ( yes:MR_PATN_0050 ) 1894 S0007A2 DE INC R14 1895 ; 1896 ;-------------- 拡大、縮小キャラクターセット ---------------------------- 1897 S0007A3 3D A6 CB LMS R6,CPMR_CXZM ;(R6) <-- Ｘ倍率 1898 S0007A6 3D A4 CC LMS R4,CPMR_CYZM ;(R4) <-- Ｙ倍率 1899 S0007A9 3D A8 CD LMS R8,CPMR_CNTX ;(R8) <-- 中心＿Ｘ 1900 S0007AC 3D A9 CE LMS R9,CPMR_CNTY ;(R9) <-- 中心＿Ｙ 1901 mJSR R_32_ZOOM_XY ;キャラクター拡大、縮小、回転 1901+ S0007AF 94 LINK #4 1901+ S0007B0 FF 0000" IWT R15, #R_32_ZOOM_XY 1901+ S0007B3 01 NOP 1902 S0007B4 05 0C' BRA MR_PATN_0100 1903 S0007B6 01 NOP 1904 ; 1905 ;-------------- 回転キャラクターセット ---------------------------------- 1906 MR_PATN_0050 1907 S0007B7 3D A5 BF LMS R5,CPMR_ANGL ;(R5) <-- キャラクター回転角度セット 1908 S0007BA F6 0100 IWT R6,#0100H ;(R6) <-- 倍率 1909 mJSR R_32_RTZ_32 ;キャラクター拡大、縮小、回転 1909+ S0007BD 94 LINK #4 1909+ S0007BE FF 0000" IWT R15, #R_32_RTZ_32 1909+ S0007C1 01 NOP 1910 ; 1911 MR_PATN_0100 1912 S0007C2 3D AB 34 LMS R11,RTS4 ;[ return to address load ] 1913 ; 1914 S0007C5 A0 00" IBT R0,#BANK PLAYER_DATA 1915 S0007C7 3F DF ROMB ;ＲＯＭバンク復帰 1916 ; 1917 ;------------------------------------------------------------------------ 1918 ;- 新パターンセット - 1919 ;------------------------------------------------------------------------ 1920 ; 1921 ;-------------- ダメージパターンセット ---------------------------------- 1922 ; 1923 MR_PATN_01000 1924 S0007C9 3D A0 C0 LMS R0,CPMR_BGCF 1925 S0007CC E0 DEC R0 1926 S0007CD 0A 3A' BPL MR_PATN_06055 ;ソニックモード？ ( yes:MR_PATN_06055 ) 1927 S0007CF 01 NOP 1928 ; 1929 ;-------------- 座りパターンセット -------------------------------------- 1930 S0007D0 3D A0 61 LMS R0,CPLSITD 1931 S0007D3 9E LOB 1932 S0007D4 09 06' BEQ MR_PATN_05000 ;座り中？ ( no:MR_PATN_05000 ) 1933 S0007D6 50 ADD R0 ;x2 1934 ; 1935 S0007D7 AC 00" IBT R12,#MR_P_SITD ;(R12) <-- お座りパターンタイプ 1936 S0007D9 05 74' BRA MR_PATN_NONCHR 1937 S0007DB 01 NOP 1938 ; 1939 ;-------------- 泳ぎパターンセット -------------------------------------- 1940 MR_PATN_05000 1941 ; 1942 ; 1943 ;-------------- ＢＧヨコ当たり”ボヨヨ〜ン”パターンセット -------------- 1944 MR_PATN_06000 1945 S0007DC 3D A0 C2 LMS R0,CPMR_SBCT 1946 S0007DF 3E 60 SUB #0 1947 S0007E1 09 1F' BEQ MR_PATN_06050 ;ＢＧヨコ当たり”ボヨヨ〜ン”？ ( no:MR_PATN_06050 ) 1948 S0007E3 50 ADD R0 1949 ; 1950 S0007E4 0A 03' BPL MR_PATN_06010 1951 S0007E6 50 ADD R0 1952 ; 1953 S0007E7 4F NOT 1954 S0007E8 D0 INC R0 1955 MR_PATN_06010 1956 S0007E9 50 ADD R0 1957 S0007EA C0 HIB 1958 S0007EB F6 0100 IWT R6,#0100H 1959 S0007EE 26 WITH R6 ;(R6) <-- Ｘ倍率 1960 S0007EF 60 SUB R0 1961 S0007F0 3D 96 DIV2 1962 S0007F2 3D 96 DIV2 1963 S0007F4 F4 0100 IWT R4,#0100H 1964 S0007F7 14 TO R4 ;(R4) <-- Ｙ倍率 1965 S0007F8 54 ADD R4 1966 ; 1967 S0007F9 AC 00" IBT R12,#MR_P_STOP ;(R12) <-- ”ボヨヨ〜ン”パターンタイプ 1968 S0007FB A8 04 IBT R8,#04H ;(R8) <-- 中心＿Ｘ 1969 S0007FD A9 1F IBT R9,#01FH ;(R9) <-- 中心＿Ｙ 1970 S0007FF 05 58' BRA MR_PATN_ZOMCHR 1971 S000801 01 NOP 1972 ; 1973 ;-------------- ジャンプパターンセット ---------------------------------- 1974 MR_PATN_06050 1975 S000802 3D A1 60 LMS R1,CPLJUMP 1976 S000805 E1 DEC R1 1977 S000806 0A 05' BPL MR_PATN_06060 ;ジャンプ中？ ( yes:MR_PATN_06060 ) 1978 S000808 D1 INC R1 1979 ; 1980 MR_PATN_06055 1981 mDJMP MR_PATN_07000 1981+ S000809 FF 08D8' IWT R15, #MR_PATN_07000 1981+ S00080C 01 NOP 1982 ; 1983 MR_PATN_06060 1984 S00080D 3D A0 69 LMS R0,CPLSPJP 1985 S000810 9E LOB 1986 S000811 3E 62 SUB #2 1987 S000813 0C 0F' BCC MR_PATN_06068 ;ホバリング？ ( no:MR_PATN_06068 ) 1988 S000815 E0 DEC R0 ;[ 0- <- 1- ] 1989 ; 1990 ;-------------- ホバリングパターンセット ------------------------ 1991 S000816 FE 0000" IWT R14,#MR_HOB_CHRDT 1992 S000819 1E TO R14 1993 S00081A 5E ADD R14 1994 ; 1995 S00081B 3E 62 SUB #2 ;(C) <-- 回転する？ 1996 ; 1997 S00081D 1C TO R12 ;(R12) <-- ホバリングパターンタイプ 1998 S00081E 0C 2F' BCC MR_PATN_NONCHR ;回転する？ ( no:MR_PATN_NONCHR ) 1999 S000820 EF GETB 2000 ; 2001 S000821 05 65' BRA MR_PATN_CHRPTN 2002 S000823 01 NOP 2003 ; 2004 ;-------------- ジャンプ頭当たり”ボヨヨ〜ン”パターンセット ---- 2005 MR_PATN_06068 2006 S000824 AC 00" IBT R12,#MR_P_UPJP ;(R12) <-- 上昇ジャンプパターンタイプ 2007 S000826 3D A0 55 LMS R0,CPLYSPD 2008 S000829 E0 DEC R0 2009 S00082A 0B 03' BMI MR_PATN_06070 ;上昇中？ ( yes:MR_PATN_06070 ) 2010 S00082C 01 NOP 2011 ; 2012 S00082D AC 00" IBT R12,#MR_P_DWJP ;(R12) <-- 下降ジャンプパターンタイプ 2013 MR_PATN_06070 2014 S00082F 3D A0 C4 LMS R0,CPMR_HBCT 2015 S000832 3E 60 SUB #0 2016 S000834 0A 19' BPL MR_PATN_NONCHR ;ジャンプ頭当たり”ボヨヨ〜ン”？ ( no:MR_PATN_NONCHR ) 2017 S000836 50 ADD R0 2018 ; 2019 S000837 50 ADD R0 2020 S000838 C0 HIB 2021 S000839 95 SEX 2022 S00083A F4 0100 IWT R4,#0100H 2023 S00083D 14 TO R4 ;(R4) <-- Ｙ倍率 2024 S00083E 54 ADD R4 2025 S00083F 3D 96 DIV2 2026 S000841 3D 96 DIV2 2027 S000843 F6 0100 IWT R6,#0100H 2028 S000846 26 WITH R6 ;(R6) <-- Ｘ倍率 2029 S000847 60 SUB R0 2030 S000848 A8 10 IBT R8,#010H ;(R8) <-- 中心＿Ｘ 2031 S00084A A9 00 IBT R9,#0 ;(R9) <-- ”＿Ｙ 2032 S00084C 05 0B' BRA MR_PATN_ZOMCHR 2033 S00084E 01 NOP 2034 ; 2035 MR_PATN_NONCHR 2036 S00084F F6 0100 IWT R6,#0100H ;(R6) <-- Ｘ倍率 2037 S000852 F4 0100 IWT R4,#0100H ;(R4) <-- Ｙ倍率 2038 S000855 A8 10 IBT R8,#010H ;(R8) <-- 中心＿Ｘ 2039 S000857 A9 10 IBT R9,#010H ;(R9) <-- 中心＿Ｙ 2040 ; 2041 ;-------------- 拡大、縮小キャラクターセット -------------------- 2042 MR_PATN_ZOMCHR 2043 S000859 60 SUB R0 ;[ IBT R0,#0 ] 2044 S00085A 3E A0 BF SMS R0,CPMR_ANGL ;キャラクター回転角度セット 2045 S00085D 3E A6 CB SMS R6,CPMR_CXZM ;Ｘ倍率セット 2046 S000860 3E A4 CC SMS R4,CPMR_CYZM ;Ｙ倍率セット 2047 S000863 3E A8 CD SMS R8,CPMR_CNTX ;中心＿Ｘセット 2048 S000866 3E A9 CE SMS R9,CPMR_CNTY ;中心＿Ｙセット 2049 S000869 05 1D' BRA MR_PATN_CHRPTN 2050 S00086B 01 NOP 2051 ; 2052 ;-------------- 回転キャラクターセット -------------------------- 2053 MR_PATN_ROTCHR 2054 S00086C A1 FC IBT R1,#-4 2055 S00086E 3D A0 BF LMS R0,CPMR_ANGL 2056 S000871 65 SUB R5 2057 S000872 1E TO R14 2058 S000873 4D SWAP 2059 S000874 0A 03' BPL MR_PATN_06500 2060 S000876 55 ADD R5 2061 ; 2062 S000877 A1 04 IBT R1,#4 2063 MR_PATN_06500 2064 S000879 51 ADD R1 2065 S00087A 1E TO R14 2066 S00087B 9E LOB 2067 S00087C 65 SUB R5 2068 S00087D 4D SWAP 2069 S00087E 3D C1 XOR R1 2070 S000880 0B 03' BMI MR_PATN_06510 2071 S000882 01 NOP 2072 ; 2073 S000883 25 1E MOVE R14,R5 2074 MR_PATN_06510 2075 S000885 3E AE BF SMS R14,CPMR_ANGL ;キャラクター回転角度セット 2076 ; 2077 ;-------------- パターンＮｏ．セット ------------------------------------ 2078 MR_PATN_CHRPTN 2079 S000888 3E AC C9 SMS R12,CPMR_CTYP ;パターンタイプセット 2080 ; 2081 S00088B F0 0003" IWT R0,#MR_CHR_TYPE+3 2082 S00088E 1E TO R14 2083 S00088F 5C ADD R12 2084 S000890 EF GETB 2085 S000891 DE INC R14 2086 S000892 3D EF GETBH 2087 ; 2088 S000894 A1 10 IBT R1,#8*2 ;(R1) <-- マントカウンターデフォルト値 2089 S000896 3E 60 SUB #0 2090 S000898 08 36' BNE MR_PATN_06700 ;マント可変パターン？ ( no:MR_PATN_06700 ) 2091 S00089A 01 NOP 2092 ; 2093 ;-------------- マントパターンセット ---------------------------- 2094 S00089B 3D A1 C8 LMS R1,CPMR_MANT ;(R1) <-- マントカウンター 2095 S00089E 3D A0 FB LMS R0,CPMR_MNTM 2096 S0008A1 E0 DEC R0 2097 S0008A2 0A 23' BPL MR_PATN_06650 ;マントパターン切り替え？ ( no:MR_PATN_06650 ) 2098 S0008A4 01 NOP 2099 ; 2100 S0008A5 F0 0000" IWT R0,#MR_MANT_NOJMP 2101 S0008A8 3D AE 60 LMS R14,CPLJUMP 2102 S0008AB EE DEC R14 2103 S0008AC 0B 0E' BMI MR_PATN_06600 ;ジャンプ中？ ( no:MR_PATN_06600 ) 2104 S0008AE DE INC R14 2105 ; 2106 ;-------------- ジャンプ中のマントパターンセット -------- 2107 S0008AF F0 0000" IWT R0,#MR_MANT_JMPUP 2108 S0008B2 3D AE 55 LMS R14,CPLYSPD 2109 S0008B5 EE DEC R14 2110 S0008B6 0B 04' BMI MR_PATN_06600 ;上昇中？ ( yes:MR_PATN_06600 ) 2111 S0008B8 01 NOP 2112 ; 2113 S0008B9 F0 0000" IWT R0,#MR_MANT_JMPDW 2114 MR_PATN_06600 2115 S0008BC 1E TO R14 2116 S0008BD 51 ADD R1 2117 S0008BE 3F EF GETBS 2118 S0008C0 DE INC R14 2119 S0008C1 11 TO R1 ;(R1) <-- マントカウンター 2120 S0008C2 51 ADD R1 2121 ; 2122 S0008C3 EF GETB 2123 S0008C4 3E A0 FB SMS R0,CPMR_MNTM ;マントパターン切り替えタイマーセット 2124 ; 2125 MR_PATN_06650 2126 S0008C7 F0 0000" IWT R0,#MR_MANT_PATN 2127 S0008CA 1E TO R14 2128 S0008CB 51 ADD R1 2129 S0008CC EF GETB 2130 S0008CD DE INC R14 2131 S0008CE 3D EF GETBH 2132 ; 2133 MR_PATN_06700 2134 S0008D0 3E A0 5F SMS R0,CPLPATN ;パターンタイプセット 2135 S0008D3 3E A1 C8 SMS R1,CPMR_MANT ;マントカウンターセット 2136 mRTS 2136+ S0008D6 9B JMP R11 2136+ S0008D7 01 NOP 2137 ; 2138 ;-------------- ジャンプ着地パターンセット ------------------------------ 2139 MR_PATN_07000 2140 S0008D8 3D A0 C6 LMS R0,CPMR_FBCT 2141 S0008DB E0 DEC R0 2142 S0008DC 0B 1C' BMI MR_PATN_08000 ;着地”ボヨヨ〜ン”？ ( no:MR_PATN_08000 ) 2143 S0008DE D0 INC R0 2144 ; 2145 S0008DF 50 ADD R0 2146 S0008E0 50 ADD R0 2147 S0008E1 C0 HIB 2148 S0008E2 F4 0100 IWT R4,#0100H 2149 S0008E5 24 WITH R4 ;(R4) <-- Ｙ倍率 2150 S0008E6 60 SUB R0 2151 S0008E7 3D 96 DIV2 2152 S0008E9 3D 96 DIV2 2153 S0008EB F6 0100 IWT R6,#0100H 2154 S0008EE 16 TO R6 ;(R6) <-- Ｙ倍率 2155 S0008EF 56 ADD R6 2156 S0008F0 A8 10 IBT R8,#010H ;(R8) <-- 中心＿Ｘ 2157 S0008F2 A9 1F IBT R9,#01FH ;(R9) <-- ”＿Ｙ 2158 ; 2159 S0008F4 AC 00" IBT R12,#MR_P_STOP ;(R12) <-- ”ボヨヨ〜ン”パターンタイプ 2160 mDJMP MR_PATN_ZOMCHR 2160+ S0008F6 FF 0859' IWT R15, #MR_PATN_ZOMCHR 2160+ S0008F9 01 NOP 2161 ; 2162 ;-------------- スリップパターンセット ---------------------------------- 2163 MR_PATN_08000 2164 S0008FA 3D A0 E8 LMS R0,CPLSLIP 2165 S0008FD 9E LOB 2166 S0008FE 09 17' BEQ MR_PATN_09000 ;スリップ中？ ( no:MR_PATN_09000 ) 2167 S000900 01 NOP 2168 ; 2169 S000901 3D A0 5B LMS R0,CPLANGL 2170 S000904 3D A6 62 LMS R6,CPLCMKI 2171 S000907 E6 DEC R6 2172 S000908 0A 04' BPL MR_PATN_08050 2173 S00090A 01 NOP 2174 ; 2175 S00090B 4F NOT 2176 S00090C D0 INC R0 2177 S00090D 9E LOB 2178 MR_PATN_08050 2179 S00090E 3E A0 BF SMS R0,CPMR_ANGL ;キャラクター回転角度セット 2180 ; 2181 S000911 AC 00" IBT R12,#MR_P_SLIP ;(R12) <-- スリップパターンタイプ 2182 mDJMP MR_PATN_CHRPTN 2182+ S000913 FF 0888' IWT R15, #MR_PATN_CHRPTN 2182+ S000916 01 NOP 2183 ; 2184 MR_PATN_09000 2185 S000917 3D A0 66 LMS R0,CPLSTOP 2186 S00091A 9E LOB 2187 S00091B 09 09' BEQ MR_PATN_10000 ;棒立ち中？ ( yes:MR_PATN_10000 ) 2188 S00091D 01 NOP 2189 ; 2190 S00091E 3D A0 5A LMS R0,CPLMVSP 2191 S000921 3E 60 SUB #0 ;(N) <-- 符号 2192 S000923 08 07' BNE MR_PATN_11000 ;止まってる？ ( no:MR_PATN_11000 ) 2193 S000925 01 NOP 2194 ; 2195 ;-------------- 止まってる時のパターンセット ---------------------------- 2196 MR_PATN_10000 2197 S000926 AC 00" IBT R12,#MR_P_STOP ;(R12) <-- ＳＴＯＰパターンタイプ 2198 mDJMP MR_PATN_NONCHR 2198+ S000928 FF 084F' IWT R15, #MR_PATN_NONCHR 2198+ S00092B 01 NOP 2199 ; 2200 ;-------------- 歩きパターンセット -------------------------------------- 2201 MR_PATN_11000 2202 S00092C AE 30 IBT R14,#00110000B ;(R14) <-- ヨコＢＧ当たりチェックデータ（右） 2203 S00092E 0A 06' BPL MR_PATN_11100 2204 S000930 01 NOP 2205 ; 2206 S000931 FE 00C0 IWT R14,#11000000B ;(R14) <-- ヨコＢＧ当たりチェックデータ（左） 2207 S000934 4F NOT 2208 S000935 D0 INC R0 2209 MR_PATN_11100 2210 S000936 20 15 MOVE R5,R0 ;(R5) <-- ＡＢＳ（Ｘスピード） 2211 S000938 F6 0080 IWT R6,#080H 2212 S00093B 66 SUB R6 2213 S00093C 0D 0D' BCS MR_PATN_11200 ;Ｘスピード小さすぎ？ ( no:MR_PATN_11200 ) 2214 S00093E 56 ADD R6 2215 ; 2216 S00093F 3D A0 7E LMS R0,CPLBGCR 2217 S000942 7E AND R14 ;(Z) set 2218 S000943 26 10 MOVE R0,R6 2219 S000945 09 04' BEQ MR_PATN_11200 ;ヨコＢＧ当たり？ ( no:MR_PATN_11200 ) 2220 S000947 01 NOP 2221 ; 2222 S000948 F0 0200 IWT R0,#200H 2223 ; 2224 ;-------------- 歩きパターンセット ------------------------------ 2225 MR_PATN_11200 2226 S00094B F6 4000 IWT R6,#04000H 2227 S00094E 9F FMULT 2228 S00094F 3D A6 C1 LMS R6,CPMR_WALK 2229 S000952 56 ADD R6 2230 S000953 F6 0400 IWT R6,#0400H 2231 S000956 66 SUB R6 2232 S000957 0D 02' BCS MR_PATN_11210 ;歩くパターンオーバー？ ( yes:MR_PATN_11210 ) 2233 S000959 01 NOP 2234 ; 2235 S00095A 56 ADD R6 2236 MR_PATN_11210 2237 S00095B 90 SBK ;[ SMS R0,CPMR_WALK ] 2238 ; 2239 S00095C 1C TO R12 2240 S00095D C0 HIB 2241 S00095E 3E AC 7C SMS R12,CPLWALK 2242 S000961 08 11' BNE MR_PATN_11212 ;歩くサウンドセット？ ( no:MR_PATN_11212 ) 2243 S000963 01 NOP 2244 ; 2245 ;-------------- 歩くサウンドセット ------------------------------ 2246 S000964 3D A0 7D LMS R0,CPLBGNO 2247 S000967 FE 0000" IWT R14,#WALK_SOUND 2248 S00096A 1E TO R14 2249 S00096B 5E ADD R14 2250 S00096C EF GETB 2251 S00096D E0 DEC R0 2252 S00096E 0B 04' BMI MR_PATN_11212 ;歩くサウンドセット？ ( no:MR_PATN_11212 ) 2253 S000970 D0 INC R0 2254 ; 2255 S000971 3E A0 3D SMS R0,CMSOUND3 ;[♪] 2256 MR_PATN_11212 2257 S000974 F0 0000" IWT R0,#MR_WLK_CHRDT ;(R14) <-- 歩くパターンタイプデータアドレス 2258 S000977 1E TO R14 2259 S000978 5C ADD R12 2260 S000979 1C TO R12 ;(R12) <-- 歩くパターンタイプ 2261 S00097A EF GETB 2262 ; 2263 S00097B 3D A0 C0 LMS R0,CPMR_BGCF 2264 S00097E E0 DEC R0 2265 S00097F 0B 1F' BMI MR_PATN_11240 ;ソニックモード？ ( no:MR_PATN_11240 ) 2266 S000981 60 SUB R0 ;[ IBT R0,#0 ] 角度を０へ 2267 ; 2268 S000982 3D A6 5B LMS R6,CPLANGL 2269 S000985 3D A0 62 LMS R0,CPLCMKI 2270 S000988 E0 DEC R0 2271 S000989 0A 05' BPL MR_PATN_11220 2272 S00098B B6 FROM R6 2273 ; 2274 S00098C 4F NOT 2275 S00098D D0 INC R0 2276 S00098E 16 TO R6 2277 S00098F 9E LOB 2278 MR_PATN_11220 2279 S000990 F0 0280 IWT R0,#0280H 2280 S000993 25 WITH R5 2281 S000994 60 SUB R0 2282 S000995 0C 07' BCC MR_PATN_11230 2283 S000997 60 SUB R0 2284 ; 2285 S000998 B5 FROM R5 2286 S000999 03 LSR 2287 S00099A 03 LSR 2288 S00099B 03 LSR 2289 S00099C 01 NOP 2290 S00099D 01 NOP 2291 MR_PATN_11230 2292 S00099E B6 FROM R6 2293 S00099F 60 SUB R0 2294 MR_PATN_11240 2295 S0009A0 15 TO R5 ;(R5) <-- 角度 2296 S0009A1 9E LOB 2297 mDJMP MR_PATN_ROTCHR 2297+ S0009A2 FF 086C' IWT R15, #MR_PATN_ROTCHR 2297+ S0009A5 01 NOP 2298 ; 2299 ;************************************************************************ 2300 ;* * 2301 ;* ＢＧチェック * 2302 ;* * 2303 ;************************************************************************ 2304 ; 2305 MR_BGCK 2306 S0009A6 3D A1 C0 LMS R1,CPMR_BGCF ;(R1) <-- 前回ソニックモードフラグ 2307 S0009A9 60 SUB R0 ;[ IBT R0,#0 ] ソニックモードリセット 2308 S0009AA 90 SBK ;[ SMS R0,CPMR_BGCF ] 2309 ; 2310 S0009AB 3D A0 60 LMS R0,CPLJUMP 2311 S0009AE E0 DEC R0 2312 S0009AF 0A 11' BPL MR_BGCK_0002 ;プレイヤージャンプ中？ ( yes:MR_BGCK_0002 ) 2313 S0009B1 01 NOP 2314 ; 2315 S0009B2 3D A0 5A LMS R0,CPLMVSP 2316 S0009B5 E0 DEC R0 2317 S0009B6 0A 03' BPL MR_BGCK_0000 2318 S0009B8 D0 INC R0 2319 ; 2320 S0009B9 4F NOT 2321 S0009BA D0 INC R0 2322 MR_BGCK_0000 2323 S0009BB F2 0200 IWT R2,#0200H 2324 S0009BE 62 SUB R2 2325 S0009BF 0D 16' BCS MR_BGCK_0008 ;ソニックＢＧチェック？ ( yes:MR_BGCK_0008 ) 2326 S0009C1 01 NOP 2327 ; 2328 MR_BGCK_0002 2329 S0009C2 E1 DEC R1 2330 S0009C3 0B 0E' BMI MR_BGCK_0004 ;前回ソニックモード？ ( no:MR_BGCK_0004 ) 2331 S0009C5 D1 INC R1 2332 ; 2333 ;-------------- ソニックモードキャンセル初期セット ---------------------- 2334 S0009C6 2B 11 MOVE R1,R11 ;(R11) save 2335 ; 2336 mJSR MARIO_PS_HOSE ;座標補正 2336+ S0009C8 94 LINK #4 2336+ S0009C9 FF 0AEA' IWT R15, #MARIO_PS_HOSE 2336+ S0009CC 01 NOP 2337 ; 2338 S0009CD 21 1B MOVE R11,R1 ;(R11) load 2339 ; 2340 S0009CF A0 00" IBT R0,#BANK PLAYER_DATA 2341 S0009D1 3F DF ROMB 2342 MR_BGCK_0004 2343 mDJMP MR_BGCK_N 2343+ S0009D3 FF 0B26' IWT R15, #MR_BGCK_N 2343+ S0009D6 01 NOP 2344 ; 2345 ;======================================================================== 2346 ;= ソニックモードＢＧチェック = 2347 ;======================================================================== 2348 MR_BGCK_0008 2349 S0009D7 3D A9 46 LMS R9,CPLXPSL ;(R9) <-- プレイヤーＸ座標 2350 S0009DA 3D AA 48 LMS R10,CPLYPSL ;(R10) <-- ” Ｙ ” 2351 ; 2352 ;-------------- ｃｏｓ、ｓｉｎデータセット ------------------------------ 2353 S0009DD A0 00" IBT R0,#BANK LCOS 2354 S0009DF 3F DF ROMB 2355 S0009E1 3D A0 5B LMS R0,CPLANGL 2356 MR_BGCK_00080 2357 S0009E4 FE 0000" IWT R14,#LCOS 2358 S0009E7 1E TO R14 2359 S0009E8 5E ADD R14 2360 S0009E9 3F EF GETBS 2361 S0009EB 20 12 MOVE R2,R0 ;(R2) <-- ｃｏｓデータ 2362 S0009ED 3E F0 1960 SM R0,CEWORK0 ;(EWK0,1) <-- ｃｏｓデータ 2363 ; 2364 S0009F1 A0 40 IBT R0,#040H 2365 S0009F3 1E TO R14 ;[ IWT R14,#LSIN ] 2366 S0009F4 5E ADD R14 2367 S0009F5 3F EF GETBS 2368 S0009F7 4F NOT 2369 S0009F8 D0 INC R0 2370 S0009F9 20 13 MOVE R3,R0 ;(R3) <-- ｓｉｎデータ 2371 S0009FB 3E F0 1962 SM R0,CEWORK2 ;(EWK2,3) <-- ｓｉｎデータ 2372 ; 2373 S0009FF E1 DEC R1 2374 S000A00 0A 2A' BPL MR_BGCK_0009 ;前回ソニックモード？ ( yes:MR_BGCK_0009 ) 2375 S000A02 D1 INC R1 2376 ; 2377 ;-------------- ソニックモードＢＧチェック初期プレイヤーＹ座標補正 ------ 2378 S000A03 A0 05 IBT R0,#5 2379 S000A05 83 MULT R3 2380 S000A06 50 ADD R0 ;x16 2381 S000A07 50 ADD R0 ; 2382 S000A08 50 ADD R0 ; 2383 S000A09 16 TO R6 ;(R6) <-- 着地位置までの距離 2384 S000A0A 50 ADD R0 ; 2385 ; 2386 S000A0B B2 FROM R2 2387 S000A0C 9F FMULT 2388 S000A0D 19 TO R9 ;プレイヤーＸ座標補正 2389 S000A0E 59 ADD R9 2390 S000A0F 3D FE 1E12 LM R14,CPLXPSL_OLD 2391 S000A13 5E ADD R14 2392 S000A14 90 SBK ;[ SM R0,CPLXPSL_OLD ] 2393 ; 2394 S000A15 B3 FROM R3 2395 S000A16 9F FMULT 2396 S000A17 1A TO R10 ;プレイヤーＹ座標補正 2397 S000A18 5A ADD R10 2398 S000A19 3D FE 1E16 LM R14,CPLYPSL_OLD 2399 S000A1D 5E ADD R14 2400 S000A1E 90 SBK ;[ SM R0,CPLYPSL_OLD ] 2401 ; 2402 S000A1F 3D A0 5B LMS R0,CPLANGL 2403 S000A22 95 SEX 2404 S000A23 3D 96 DIV2 2405 S000A25 3D 96 DIV2 2406 S000A27 9E LOB 2407 S000A28 90 SBK ;[ SMS R0,CPLANGL ] 2408 S000A29 05 B9' BRA MR_BGCK_00080 2409 S000A2B D1 INC R1 ;[ IBT R1,#1 ] 2410 2411 ;-------------- ＢＧチェックポイントデータセット ------------------------ 2412 MR_BGCK_0009 2413 S000A2C A0 00" IBT R0,#BANK PLAYER_DATA 2414 S000A2E 3F DF ROMB 2415 S000A30 FE 0000" IWT R14,#PLBGCK_POINT_MR ;(R14) <-- ＢＧチェックポイントデータポインター（大） 2416 ; 2417 S000A33 3E AB 32 SMS R11,RTS2 ;[ return address save ] 2418 ; 2419 S000A36 A2 00 IBT R2,#00 ;(R2) <-- ＢＧ当たりフラグクリアー 2420 S000A38 3E A2 7F SMS R2,CPLWATR ;水中当たりフラグクリアー 2421 S000A3B 3E A2 80 SMS R2,CPLTNEL ;トンネル当たりフラグクリアー 2422 S000A3E 3E A2 7D SMS R2,CPLBGNO ;歩いている床のＢＧタイプクリアー 2423 ; 2424 ;------------------------------------------------------------------------ 2425 ;- 左上サイドチェック - 2426 ;------------------------------------------------------------------------ 2427 S000A41 A3 01 IBT R3,#001H ;(R3) <-- 補正向き 2428 S000A43 23 14 MOVE R4,R3 ;(R4) <-- 補正データ 2429 mJSR_X BG_SIDECK_R_IN 2429+ S000A45 94 LINK #4 2429+ S000A46 FF 0DA3' IWT R15, #BG_SIDECK_R_IN 2430 S000A49 02 CACHE 2431 ; 2432 ;------------------------------------------------------------------------ 2433 ;- 左下サイドチェック - 2434 ;------------------------------------------------------------------------ 2435 mJSR_X BG_SIDECK_R+1 2435+ S000A4A 94 LINK #4 2435+ S000A4B FF 0DA6' IWT R15, #BG_SIDECK_R+1 2436 S000A4E 3E HEX 3E ;[ SMS R11,RTS1 ] 2437 ; 2438 ;------------------------------------------------------------------------ 2439 ;- 右上サイドチェック - 2440 ;------------------------------------------------------------------------ 2441 S000A4F A3 FF IBT R3,#0FFH ;(R3) <-- 補正データ 2442 S000A51 E4 DEC R4 ;[ CMP #0 ] 2443 S000A52 0B 03' BMI MR_BGCK_0010 ;左サイド補正した？ ( yes:MR_BGCK_0010 ) 2444 S000A54 D4 INC R4 2445 ; 2446 S000A55 23 14 MOVE R4,R3 ;(R4) <-- 補正データ 2447 MR_BGCK_0010 2448 mJSR_X BG_SIDECK_R+1 2448+ S000A57 94 LINK #4 2448+ S000A58 FF 0DA6' IWT R15, #BG_SIDECK_R+1 2449 S000A5B 3E HEX 3E ;[ SMS R11,RTS1 ] 2450 ; 2451 ;------------------------------------------------------------------------ 2452 ;- 右下サイドチェック - 2453 ;------------------------------------------------------------------------ 2454 mJSR_X BG_SIDECK_R+1 2454+ S000A5C 94 LINK #4 2454+ S000A5D FF 0DA6' IWT R15, #BG_SIDECK_R+1 2455 S000A60 3E HEX 3E ;[ SMS R11,RTS1 ] 2456 ; 2457 ;------------------------------------------------------------------------ 2458 ;- 左サイド総合チェック - 2459 ;------------------------------------------------------------------------ 2460 S000A61 3D A3 6E LMS R3,CPSPUSH ;(R3) <-- 横壁押しカウンターセット 2461 S000A64 60 SUB R0 ;[ IBT R0,#0 ] 2462 S000A65 90 SBK ;[ SMS R0,CPSPUSH ] 2463 ; 2464 S000A66 E1 DEC R1 2465 S000A67 0B 26' BMI MR_BGCK_0040 ;横当たりＯＫ？ ( no:MR_BGCK_0040 ) 2466 S000A69 D1 INC R1 2467 ; 2468 ;-------------- ＢＧヨコ当たり”ボヨヨ〜ン”セットチェック -------------- 2469 S000A6A 3D A0 C2 LMS R0,CPMR_SBCT 2470 S000A6D 3E 60 SUB #0 2471 S000A6F 08 1B' BNE MR_BGCK_0014 ;ＢＧヨコ当たり”ボヨヨ〜ン”中？ ( yes:MR_BGCK_0014 ) 2472 S000A71 60 SUB R0 ;[ IBT R0,#0 ] 2473 ; 2474 S000A72 3D A5 5A LMS R5,CPLMVSP 2475 S000A75 20 B5 MOVES R0,R5 2476 S000A77 0A 03' BPL MR_BGCK_0012 2477 S000A79 01 NOP 2478 ; 2479 S000A7A 4F NOT 2480 S000A7B D0 INC R0 2481 MR_BGCK_0012 2482 S000A7C F3 0280 IWT R3,#0280H 2483 S000A7F 63 SUB R3 2484 S000A80 0C 0A' BCC MR_BGCK_0014 ;ＢＧヨコ当たり”ボヨヨ〜ン”ＯＫ？ ( no:MR_BGCK_0014 ) 2485 S000A82 60 SUB R0 ;[ IBT R0,#0 ] 2486 ; 2487 S000A83 B5 FROM R5 2488 S000A84 3D 96 DIV2 2489 S000A86 3E A0 C3 SMS R0,CPMR_SBSP ;ＢＧヨコ当たり”ボヨヨ〜ン”スピードセット 2490 S000A89 3E A0 C2 SMS R0,CPMR_SBCT ; ” カウンターセット 2491 ; 2492 MR_BGCK_0014 2493 ;;;; SUB R0 2494 S000A8C 3E A0 5A SMS R0,CPLMVSP 2495 ; 2496 ;------------------------------------------------------------------------ 2497 ;- 頭チェック - 2498 ;------------------------------------------------------------------------ 2499 MR_BGCK_0040 2500 S000A8F A3 10 IBT R3,#010H ;(R3) <-- 頭チェックフラグ 2501 mJSR_X BG_HDFTCK_R+1 2501+ S000A91 94 LINK #4 2501+ S000A92 FF 0F1D' IWT R15, #BG_HDFTCK_R+1 2502 S000A95 3E HEX 3E ;[ SMS R11,RTS1 ] 2503 ; 2504 S000A96 3D A0 80 LMS R0,CPLTNEL ;左、右頭フラグセット 2505 S000A99 15 TO R5 2506 S000A9A 03 LSR 2507 S000A9B 04 ROL 2508 S000A9C 90 SBK ;[ SMS R0,CPLTNEL ] 2509 ; 2510 S000A9D B2 FROM R2 ;左、右頭フラグセット 2511 S000A9E 03 LSR 2512 S000A9F 22 WITH R2 2513 S000AA0 04 ROL 2514 ; 2515 ;------------------------------------------------------------------------ 2516 ;- 足チェック - 2517 ;------------------------------------------------------------------------ 2518 MR_BGCK_0050 2519 S000AA1 A3 F0 IBT R3,#0F0H ;(R3) <-- 足チェックフラグ 2520 S000AA3 3D A4 5D LMS R4,CPLSKCC ;(R4) <-- 前回坂フラグ 2521 mJSR_X BG_HDFTCK_R+1 2521+ S000AA6 94 LINK #4 2521+ S000AA7 FF 0F1D' IWT R15, #BG_HDFTCK_R+1 2522 S000AAA 3E HEX 3E ;[ SMS R11,RTS1 ] 2523 ; 2524 S000AAB 3E A4 5C SMS R4,CPLSKCL ;前回坂フラグセット 2525 ; 2526 S000AAE 3D A0 80 LMS R0,CPLTNEL ;左、中、右足フラグセット 2527 S000AB1 15 TO R5 2528 S000AB2 03 LSR 2529 S000AB3 04 ROL 2530 S000AB4 15 TO R5 2531 S000AB5 03 LSR 2532 S000AB6 04 ROL 2533 S000AB7 90 SBK ;[ SMS R0,CPLTNEL ] 2534 ; 2535 S000AB8 B2 FROM R2 ;左、中、右足フラグセット 2536 S000AB9 03 LSR 2537 S000ABA 22 WITH R2 2538 S000ABB 04 ROL 2539 S000ABC B2 FROM R2 2540 S000ABD 03 LSR 2541 S000ABE 22 WITH R2 2542 S000ABF 04 ROL 2543 ; 2544 S000AC0 B2 FROM R2 2545 S000AC1 03 LSR 2546 S000AC2 0D 0A' BCS MR_BGCK_0200 ;足当たり？ ( yes:MR_BGCK_0200 ) 2547 S000AC4 60 SUB R0 ;[ IBT R0,#0 ] 2548 ; 2549 ;-------------- ＢＧ当たって無い ---------------------------------------- 2550 S000AC5 F0 0008 IWT R0,#P008 ;ジャンプフラグ”ＯＮ” 2551 S000AC8 3E A0 60 SMS R0,CPLJUMP 2552 S000ACB 05 19' BRA MR_BGCK_0300 2553 S000ACD 01 NOP 2554 ; 2555 ;-------------- ＢＧ当たり ---------------------------------------------- 2556 MR_BGCK_0200 2557 S000ACE 3E A2 C0 SMS R2,CPMR_BGCF ;ソニックモード”ＯＮ” 2558 ; 2559 ;-------------- 中足当たりＯＫ後特殊ＢＧチェック ---------------- 2560 mJSR FOOT_RESULT_C 2560+ S000AD1 94 LINK #4 2560+ S000AD2 FF 0000" IWT R15, #FOOT_RESULT_C 2560+ S000AD5 01 NOP 2561 ; 2562 ;-------------- 足当たり情報セット ------------------------------ 2563 S000AD6 3E A4 5B SMS R4,CPLANGL ;移動角度セット 2564 ; 2565 S000AD9 60 SUB R0 2566 ;;;; SMS R0,CPLYSPD ;Ｙスピードクリアー 2567 ;;;; SMS R0,CPLYSDR 2568 ; 2569 S000ADA 3E A0 5C SMS R0,CPLSKCL ;前回坂フラグリセット 2570 S000ADD 3E A0 5D SMS R0,CPLSKCC 2571 S000AE0 3E A0 5E SMS R0,CPLSKCR 2572 S000AE3 3E A0 6D SMS R0,CPLKAID ;階段歩きフラグクリアー 2573 ; 2574 MR_BGCK_0300 2575 mDJMP MR_BGCK_N_0300 2575+ S000AE6 FF 0D69' IWT R15, #MR_BGCK_N_0300 2575+ S000AE9 01 NOP 2576 ; 2577 ;------------------------------------------------------------------------ 2578 ;- ソニックモードキャンセルによる座標補正 - 2579 ;------------------------------------------------------------------------ 2580 MARIO_PS_HOSE 2581 S000AEA A0 00" IBT R0,#BANK LCOS 2582 S000AEC 3F DF ROMB 2583 S000AEE FE 0000" IWT R14,#LCOS 2584 S000AF1 3D A0 5B LMS R0,CPLANGL 2585 S000AF4 1E TO R14 2586 S000AF5 5E ADD R14 2587 S000AF6 3F EF GETBS 2588 S000AF8 4F NOT 2589 S000AF9 D0 INC R0 ;(R0) <-- ｃｏｓデータ 2590 S000AFA A3 0E IBT R3,#0EH 2591 S000AFC 83 MULT R3 2592 S000AFD 50 ADD R0 ;x4 2593 S000AFE 50 ADD R0 ; 2594 S000AFF C0 HIB 2595 S000B00 95 SEX 2596 S000B01 19 TO R9 ;(R9) <-- Ｘ座標補正値 2597 S000B02 53 ADD R3 2598 S000B03 3D A0 48 LMS R0,CPLYPSL 2599 S000B06 59 ADD R9 2600 S000B07 90 SBK ;[ SMS R0,CPLYPSL ] 2601 S000B08 3D F0 1E16 LM R0,CPLYPSL_OLD 2602 S000B0C 59 ADD R9 2603 S000B0D 90 SBK ;[ SM R0,CPLYPSL_OLD ] 2604 ; 2605 S000B0E A0 40 IBT R0,#040H 2606 S000B10 1E TO R14 ;[ IWT R14,#LSIN ] 2607 S000B11 5E ADD R14 2608 S000B12 3F EF GETBS ;(R0) <-- ｓｉｎデータ 2609 S000B14 83 MULT R3 2610 S000B15 50 ADD R0 ;x4 2611 S000B16 50 ADD R0 ; 2612 S000B17 C0 HIB 2613 S000B18 19 TO R9 2614 S000B19 95 SEX 2615 S000B1A 3D A0 46 LMS R0,CPLXPSL 2616 S000B1D 59 ADD R9 2617 S000B1E 90 SBK ;[ SMS R0,CPLXPSL ] 2618 S000B1F 3D F0 1E12 LM R0,CPLXPSL_OLD 2619 S000B23 59 ADD R9 2620 mRTS_X 2620+ S000B24 9B JMP R11 2621 S000B25 90 SBK ;[ SM R0,CPLXPSL_OLD ] 2622 ; 2623 ;======================================================================== 2624 ;= ノーマルモードＢＧチェック = 2625 ;======================================================================== 2626 ; 2627 MR_BGCK_N 2628 S000B26 FE 0000" IWT R14,#PLBGCK_POINT_MR0 ;(R14) <-- ＢＧチェックポイントデータポインター（大） 2629 S000B29 3D A0 61 LMS R0,CPLSITD 2630 S000B2C 3E 62 SUB #2 2631 S000B2E 0C 04' BCC MR_BGCK_N_2 ;衝突サイズ小？ ( no:MR_BGCK_N_2 ) 2632 S000B30 01 NOP 2633 ; 2634 S000B31 FE 0000" IWT R14,#PLBGCK_POINT_MR1 ;(R14) <-- ＢＧチェックポイントデータポインター（小） 2635 ; 2636 MR_BGCK_N_2 2637 S000B34 3E AB 32 SMS R11,RTS2 ;[ return address save ] 2638 ; 2639 S000B37 3D A9 46 LMS R9,CPLXPSL ;(R9) <-- プレイヤーＸ座標 2640 S000B3A 3D AA 48 LMS R10,CPLYPSL ;(R10) <-- ” Ｙ ” 2641 S000B3D A2 00 IBT R2,#00 ;(R2) <-- ＢＧ当たりフラグクリアー 2642 S000B3F 3E A2 7F SMS R2,CPLWATR ;水中当たりフラグクリアー 2643 S000B42 3E A2 80 SMS R2,CPLTNEL ;トンネル当たりフラグクリアー 2644 S000B45 3E A2 81 SMS R2,CPLHARI ;ダメージＢＧ当たりフラグクリアー 2645 S000B48 3E A2 7D SMS R2,CPLBGNO ;歩いている床のＢＧタイプクリアー 2646 S000B4B 3E A2 5B SMS R2,CPLANGL ;移動角度リセット 2647 ; 2648 ;------------------------------------------------------------------------ 2649 ;- 左上サイドチェック - 2650 ;------------------------------------------------------------------------ 2651 S000B4E A3 01 IBT R3,#001H ;(R3) <-- 補正向き 2652 S000B50 A4 00 IBT R4,#0 ;(R4) <-- 補正データ 2653 mJSR_X BG_SIDECK_IN 2653+ S000B52 94 LINK #4 2653+ S000B53 FF 0000" IWT R15, #BG_SIDECK_IN 2654 S000B56 02 CACHE 2655 ; 2656 ;------------------------------------------------------------------------ 2657 ;- 左下サイドチェック - 2658 ;------------------------------------------------------------------------ 2659 mJSR_X BG_SIDECK+1 2659+ S000B57 94 LINK #4 2659+ S000B58 FF 0001" IWT R15, #BG_SIDECK+1 2660 S000B5B 3E HEX 3E ;[ SMS R11,RTS1 ] 2661 ; 2662 ;------------------------------------------------------------------------ 2663 ;- 右上サイドチェック - 2664 ;------------------------------------------------------------------------ 2665 S000B5C A3 FF IBT R3,#0FFH ;(R3) <-- 補正データ 2666 mJSR_X BG_SIDECK+1 2666+ S000B5E 94 LINK #4 2666+ S000B5F FF 0001" IWT R15, #BG_SIDECK+1 2667 S000B62 3E HEX 3E ;[ SMS R11,RTS1 ] 2668 ; 2669 ;------------------------------------------------------------------------ 2670 ;- 右下サイドチェック - 2671 ;------------------------------------------------------------------------ 2672 mJSR_X BG_SIDECK+1 2672+ S000B63 94 LINK #4 2672+ S000B64 FF 0001" IWT R15, #BG_SIDECK+1 2673 S000B67 3E HEX 3E ;[ SMS R11,RTS1 ] 2674 ; 2675 S000B68 29 WITH R9 ;Ｘ座標補正 2676 S000B69 54 ADD R4 2677 ; 2678 ;------------------------------------------------------------------------ 2679 ;- サイド総合チェック - 2680 ;------------------------------------------------------------------------ 2681 S000B6A 20 B1 MOVES R0,R1 2682 S000B6C 09 4D' BEQ MR_BGCK_N_0024 ;横当たりＯＫ？ ( no:MR_BGCK_N_0024 ) 2683 S000B6E 03 LSR 2684 ; 2685 S000B6F 3D A5 C2 LMS R5,CPMR_SBCT 2686 S000B72 25 B5 MOVES R5,R5 2687 S000B74 08 3E' BNE MR_BGCK_N_0022 ;ＢＧヨコ当たり”ボヨヨ〜ン”中？ ( yes:MR_BGCK_N_0022 ) 2688 S000B76 03 LSR 2689 ; 2690 S000B77 C1 OR R1 2691 S000B78 20 15 MOVE R5,R0 2692 S000B7A 03 LSR 2693 S000B7B 03 LSR 2694 S000B7C 03 LSR 2695 S000B7D 03 LSR 2696 S000B7E C5 OR R5 2697 S000B7F 3E 73 AND #03H 2698 S000B81 E0 DEC R0 2699 S000B82 08 3A' BNE MR_BGCK_N_0030 ;激突？ ( yes:MR_BGCK_N_0030 ) 2700 S000B84 E0 DEC R0 2701 ; 2702 ;-------------- 普通の当たり -------------------------------------------- 2703 ; 2704 ;-------------- 横壁押しチェック -------------------------------- 2705 S000B85 3D A0 60 LMS R0,CPLJUMP 2706 S000B88 E0 DEC R0 2707 S000B89 0A 29' BPL MR_BGCK_N_0022 ;ジャンプ中？ ( yes:MR_BGCK_N_0022 ) 2708 S000B8B 01 NOP 2709 ; 2710 S000B8C B1 FROM R1 2711 S000B8D 3E 7F AND #0FH 2712 S000B8F 09 02' BEQ MR_BGCK_N_0020 ;左当たり？ ( yes:MR_BGCK_N_0020 ) 2713 S000B91 D0 INC R0 ;[ IBT R0,#01H ] 2714 ; 2715 S000B92 60 SUB R0 ;[ IBT R0,#0 ] 2716 MR_BGCK_N_0020 2717 S000B93 D0 INC R0 ;[ 左:00000010B 右:00000001B ] 2718 ; 2719 S000B94 3D F1 0071 LM R1,CMKEYC1 ;(R1) <-- コントローラー情報 2720 S000B98 71 AND R1 2721 S000B99 09 19' BEQ MR_BGCK_N_0022 ;横壁押しキー入力？ ( no:MR_BGCK_N_0022 ) 2722 S000B9B D3 INC R3 2723 ; 2724 ;-------------- ドカン出入りチェック -------------------- 2725 S000B9C 20 11 MOVE R1,R0 2726 S000B9E 3D A0 D9 LMS R0,CBABYNO 2727 S000BA1 50 ADD R0 2728 S000BA2 0C 10' BCC MR_BGCK_N_0022 ;赤ちゃん乗ってる？ ( no:MR_BGCK_N_0022 ) 2729 S000BA4 01 NOP 2730 ; 2731 S000BA5 3D A5 83 LMS R5,CDOKNMK 2732 S000BA8 B5 FROM R5 2733 S000BA9 3E 73 AND #00000011B 2734 S000BAB 61 SUB R1 2735 S000BAC 08 06' BNE MR_BGCK_N_0022 ;ドカン？ ( no:MR_BGCK_N_0022 ) 2736 S000BAE 01 NOP 2737 ; 2738 ;-------------- ドカン出入りデモへ -------------- 2739 mJSR DOKAN_INOUT_IN ;[ (R5) <-- 向き ] 2739+ S000BAF 94 LINK #4 2739+ S000BB0 FF 0000" IWT R15, #DOKAN_INOUT_IN 2739+ S000BB3 01 NOP 2740 ; 2741 MR_BGCK_N_0022 2742 S000BB4 60 SUB R0 2743 S000BB5 3E A0 54 SMS R0,CPLXSPD 2744 S000BB8 3E A0 5A SMS R0,CPLMVSP 2745 ; 2746 MR_BGCK_N_0024 2747 S000BBB 05 13' BRA MR_BGCK_N_0040 2748 S000BBD 01 NOP 2749 ; 2750 ;-------------- 激突 -------------------------------------------- 2751 MR_BGCK_N_0030 2752 ; 2753 ;-------------- ＢＧヨコ当たり”ボヨヨ〜ン”セットチェック -------------- 2754 S000BBE 3D A0 54 LMS R0,CPLXSPD 2755 S000BC1 3D 96 DIV2 2756 S000BC3 3E A0 C3 SMS R0,CPMR_SBSP ;ＢＧヨコ当たり”ボヨヨ〜ン”スピードセット 2757 S000BC6 3E A0 C2 SMS R0,CPMR_SBCT ; ” カウンターセット 2758 ;;;; BRA MR_BGCK_N_0038 2759 S000BC9 60 SUB R0 2760 ; 2761 S000BCA 3E A0 54 SMS R0,CPLXSPD 2762 S000BCD 3E A0 5A SMS R0,CPLMVSP 2763 ; 2764 ;------------------------------------------------------------------------ 2765 ;- 左頭チェック - 2766 ;------------------------------------------------------------------------ 2767 MR_BGCK_N_0040 2768 S000BD0 A3 10 IBT R3,#010H ;(R3) <-- 頭チェックフラグ 2769 mJSR_X BG_HDFTCK+1 2769+ S000BD2 94 LINK #4 2769+ S000BD3 FF 0001" IWT R15, #BG_HDFTCK+1 2770 S000BD6 3E HEX 3E ;[ SMS R11,RTS1 ] 2771 ; 2772 ;------------------------------------------------------------------------ 2773 ;- 右頭チェック - 2774 ;------------------------------------------------------------------------ 2775 mJSR_X BG_HDFTCK+1 2775+ S000BD7 94 LINK #4 2775+ S000BD8 FF 0001" IWT R15, #BG_HDFTCK+1 2776 S000BDB 3E HEX 3E ;[ SMS R11,RTS1 ] 2777 ; 2778 ;------------------------------------------------------------------------ 2779 ;- 頭総合チェック - 2780 ;------------------------------------------------------------------------ 2781 S000BDC B2 FROM R2 2782 S000BDD 3E 73 AND #00000011B 2783 S000BDF 09 6C' BEQ MR_BGCK_N_0050 ;頭当たり？ ( no:MR_BGCK_N_0050 ) 2784 S000BE1 01 NOP 2785 ; 2786 ;-------------- ＢＧ当たった -------------------------------------------- 2787 S000BE2 3D A3 55 LMS R3,CPLYSPD ;(R3) <-- Ｙスピード 2788 S000BE5 23 B3 MOVES R3,R3 2789 S000BE7 0A 63' BPL MR_BGCK_N_0048 ;プレイヤー下降中？ ( yes:MR_BGCK_N_0048 ) 2790 S000BE9 60 SUB R0 2791 ; 2792 S000BEA 90 SBK ;[ SMS R0,PLYSPD ] 2793 S000BEB D0 INC R0 ;[ IBT R0,#1 ] 2794 S000BEC 3E A0 69 SMS R0,CPLSPJP ;ジタバタジャンプ リセット 2795 S000BEF A0 14 IBT R0,#014H ;ジタバタジャンプＮＥＸＴウェイトタイマー 2796 S000BF1 3E A0 F3 SMS R0,CPSPJTM 2797 ; 2798 ;-------------- ドカン出入りチェック -------------------- 2799 S000BF4 3D A0 D9 LMS R0,CBABYNO 2800 S000BF7 50 ADD R0 2801 S000BF8 0C 42' BCC MR_BGCK_N_0046 ;赤ちゃん乗ってる？ ( no:MR_BGCK_N_0046 ) 2802 S000BFA 01 NOP 2803 ; 2804 S000BFB 3D F0 0071 LM R0,CMKEYC1 2805 S000BFF 3E 78 AND #00001000B 2806 S000C01 09 39' BEQ MR_BGCK_N_0046 ;上キー入力？ ( no:MR_BGCK_N_0046 ) 2807 S000C03 01 NOP 2808 ; 2809 S000C04 F0 F800 IWT R0,#1111100000000000B 2810 S000C07 77 AND R7 2811 S000C08 F1 A000 IWT R1,#DK 2812 S000C0B 61 SUB R1 2813 S000C0C 08 2E' BNE MR_BGCK_N_0046 ;ドカン？ ( no:MR_BGCK_N_0046 ) 2814 S000C0E 01 NOP 2815 ; 2816 S000C0F 2E 15 MOVE R5,R14 ;(R14) save 2817 ; 2818 S000C11 B6 FROM R6 2819 S000C12 9E LOB 2820 S000C13 FE 0000" IWT R14,#DOKAN_TYPE 2821 S000C16 1E TO R14 2822 S000C17 5E ADD R14 2823 S000C18 EF GETB 2824 ; 2825 S000C19 25 1E MOVE R14,R5 ;(R14) load 2826 ; 2827 S000C1B A5 08 IBT R5,#00001000B 2828 S000C1D 11 TO R1 2829 S000C1E 75 AND R5 2830 S000C1F 09 1B' BEQ MR_BGCK_N_0046 ;ドカンユニットＯＫ？ ( no:MR_BGCK_N_0046 ) 2831 S000C21 4D SWAP 2832 ; 2833 S000C22 50 ADD R0 ;(C) <-- 左ｏｒ右？ 2834 S000C23 3D A0 00 LMS R0,CWORK0 2835 S000C26 3E 7F AND #0FH 2836 S000C28 0C 03' BCC MR_BGCK_N_0044 ;左ドカン？ ( yes:MR_BGCK_N_0044 ) 2837 S000C2A 01 NOP 2838 ; 2839 S000C2B 3F 5F ADC #0FH ;[ ADD #010H ] 2840 MR_BGCK_N_0044 2841 S000C2D 3E 6E SUB #(0AH-08H)+0CH 2842 S000C2F 3E 68 SUB #08H 2843 S000C31 0D 09' BCS MR_BGCK_N_0046 ;Ｘ位置ＯＫ？ ( no:MR_BGCK_N_0046 ) 2844 S000C33 01 NOP 2845 ; 2846 ;-------------- ドカン出入りデモへ -------------- 2847 mJSR DOKAN_INOUT_IN_2 ;[ (R5) <-- 向き ] 2847+ S000C34 94 LINK #4 2847+ S000C35 FF 0000" IWT R15, #DOKAN_INOUT_IN_2 2847+ S000C38 01 NOP 2848 S000C39 05 12' BRA MR_BGCK_N_0050 2849 S000C3B 01 NOP 2850 ; 2851 ;-------------- サウンドセット座標セット ---------------- 2852 MR_BGCK_N_0046 2853 S000C3C A0 1F IBT R0,#01FH ;[♪] 2854 S000C3E 3E A0 3D SMS R0,CMSOUND3 2855 ; 2856 ;-------------- 頭ＢＧ当たり”ボヨヨ〜ン”セット ---------------- 2857 S000C41 3E A3 C5 SMS R3,CPMR_HBSP ;頭ＢＧ当たり”ボヨヨ〜ン”スピードセット 2858 S000C44 3E A3 C4 SMS R3,CPMR_HBCT ; ” カウンターセット 2859 S000C47 A0 08 IBT R0,#08H ;重力加算停止！！（ダミー） 2860 S000C49 3E A0 EE SMS R0,CPHBOYO 2861 ; 2862 MR_BGCK_N_0048 2863 S000C4C DA INC R10 ;Ｙ座標補正 2864 ; 2865 ;------------------------------------------------------------------------ 2866 ;- 左足チェック - 2867 ;------------------------------------------------------------------------ 2868 MR_BGCK_N_0050 2869 S000C4D A3 F0 IBT R3,#0F0H ;(R3) <-- 足チェックフラグ 2870 S000C4F 3D A4 5C LMS R4,CPLSKCL ;(R4) <-- 前回坂フラグ 2871 mJSR_X BG_HDFTCK+1 2871+ S000C52 94 LINK #4 2871+ S000C53 FF 0001" IWT R15, #BG_HDFTCK+1 2872 S000C56 3E HEX 3E ;[ SMS R11,RTS1 ] 2873 ; 2874 ;-------------- 左足のＢＧチェック情報保存 ---------------------- 2875 S000C57 3E A1 0A SMS R1,CWORKA ;(CWKA) <-- 左足補正値 2876 S000C5A 3D A0 08 LMS R0,CWORK8 2877 S000C5D 3E A0 5C SMS R0,CPLSKCL ;前回坂フラグセット 2878 ; 2879 S000C60 3D A0 00 LMS R0,CWORK0 ;(CWK10) <-- ＢＧチェックＸ座標 2880 S000C63 3E A0 10 SMS R0,CWORK10 2881 S000C66 3D A0 01 LMS R0,CWORK1 ;(CWK11) <-- ＢＧチェックＹ座標 2882 S000C69 3E A0 11 SMS R0,CWORK11 2883 S000C6C 3E A6 12 SMS R6,CWORK12 ;(CWK12) <-- BG unit no. 2884 S000C6F 3E A7 13 SMS R7,CWORK13 ;(CWK13) <-- BG unit no. type 2885 ; 2886 ;------------------------------------------------------------------------ 2887 ;- 中足チェック - 2888 ;------------------------------------------------------------------------ 2889 S000C72 3D A4 5D LMS R4,CPLSKCC ;(R4) <-- 前回坂フラグ 2890 mJSR_X BG_HDFTCK+1 2890+ S000C75 94 LINK #4 2890+ S000C76 FF 0001" IWT R15, #BG_HDFTCK+1 2891 S000C79 3E HEX 3E ;[ SMS R11,RTS1 ] 2892 ; 2893 ;-------------- 左足のＢＧチェック情報保存 ---------------------- 2894 S000C7A 3E A1 0B SMS R1,CWORKB ;(CWKB) <-- 中足補正値 2895 S000C7D 3D A0 08 LMS R0,CWORK8 ;(CWKE) <-- 中足移動角度 2896 S000C80 3E A0 5D SMS R0,CPLSKCC ;前回坂フラグセット 2897 ; 2898 S000C83 3D A0 00 LMS R0,CWORK0 ;(CWK14) <-- ＢＧチェックＸ座標 2899 S000C86 3E A0 14 SMS R0,CWORK14 2900 S000C89 3D A0 01 LMS R0,CWORK1 ;(CWK15) <-- ＢＧチェックＹ座標 2901 S000C8C 3E A0 15 SMS R0,CWORK15 2902 S000C8F 3E A6 16 SMS R6,CWORK16 ;(CWK16) <-- BG unit no. 2903 S000C92 3E A7 17 SMS R7,CWORK17 ;(CWK17) <-- BG unit no. type 2904 ; 2905 ;------------------------------------------------------------------------ 2906 ;- 右足チェック - 2907 ;------------------------------------------------------------------------ 2908 S000C95 3D A4 5E LMS R4,CPLSKCR ;(R4) <-- 前回坂フラグ 2909 mJSR_X BG_HDFTCK+1 2909+ S000C98 94 LINK #4 2909+ S000C99 FF 0001" IWT R15, #BG_HDFTCK+1 2910 S000C9C 3E HEX 3E ;[ SMS R11,RTS1 ] 2911 ; 2912 S000C9D 3E A1 0C SMS R1,CWORKC ;(CWKC) <-- 右足補正値 2913 S000CA0 3D A4 08 LMS R4,CWORK8 ;(R4) <-- 右足移動角度 2914 S000CA3 3E A4 5E SMS R4,CPLSKCR ;前回坂フラグセット 2915 ; 2916 ;------------------------------------------------------------------------ 2917 ;- 足ＢＧ総合チェック - 2918 ;------------------------------------------------------------------------ 2919 S000CA6 B2 FROM R2 2920 S000CA7 3E 77 AND #00000111B 2921 S000CA9 08 22' BNE MR_BGCK_N_0200 ;足当たった？ ( yes:MR_BGCK_N_0200 ) 2922 S000CAB 01 NOP 2923 ; 2924 ;-------------- リフト乗ってるか？チェック ------------------------------ 2925 S000CAC 3D A0 DA LMS R0,CONLFFG 2926 S000CAF 3E 60 SUB #0 2927 S000CB1 09 09' BEQ MR_BGCK_N_0180 ;リフト乗ってる？ ( no:MR_BGCK_N_0180 ) 2928 S000CB3 01 NOP 2929 ; 2930 S000CB4 A4 00 IBT R4,#0 ;(R4) <-- 移動角度 2931 S000CB6 A5 00 IBT R5,#0 ;(R5) <-- 着地”ボヨヨ〜ン”Ｙスピード 2932 mDJMP MR_BGCK_N_0260 2932+ S000CB8 FF 0D3E' IWT R15, #MR_BGCK_N_0260 2932+ S000CBB 01 NOP 2933 ; 2934 ;-------------- ＢＧ当たって無い ---------------------------------------- 2935 MR_BGCK_N_0180 2936 S000CBC 3D A0 60 LMS R0,CPLJUMP 2937 S000CBF E0 DEC R0 2938 S000CC0 0A 07' BPL MR_BGCK_N_0190 ;プレイヤージャンプ中？ ( yes:MR_BGCK_N_0190 ) 2939 S000CC2 01 NOP 2940 ; 2941 S000CC3 F0 0008 IWT R0,#P008 ;ジャンプフラグ”ＯＮ” 2942 S000CC6 3E A0 60 SMS R0,CPLJUMP 2943 MR_BGCK_N_0190 2944 mDJMP MR_BGCK_N_0300 2944+ S000CC9 FF 0D69' IWT R15, #MR_BGCK_N_0300 2944+ S000CCC 01 NOP 2945 ; 2946 ;-------------- ＢＧ当たり ---------------------------------------------- 2947 MR_BGCK_N_0200 2948 ; 2949 ;-------------- 最大補正値チェック [ (R3) <-- 最大補正値 ] ------ 2950 S000CCD 3D A0 0A LMS R0,CWORKA ;(R0) <-- 左足補正値 2951 S000CD0 3D A5 0B LMS R5,CWORKB ;(R5) <-- 中足補正値 2952 S000CD3 65 SUB R5 2953 S000CD4 0B 03' BMI MR_BGCK_N_0202 ;左足補正値＞中足補正値？ ( yes:MR_BGCK_N_0202 ) 2954 S000CD6 55 ADD R5 2955 ; 2956 S000CD7 25 10 MOVE R0,R5 2957 MR_BGCK_N_0202 2958 S000CD9 3D A5 0C LMS R5,CWORKC ;(R5) <-- 右足補正値 2959 S000CDC 25 13 MOVE R3,R5 2960 S000CDE 63 SUB R3 2961 S000CDF 0A 03' BPL MR_BGCK_N_0204 ;（左足補正値＞中足補正値）＞右足補正値？ ( no:MR_BGCK_N_0204 ) 2962 S000CE1 53 ADD R3 2963 ; 2964 S000CE2 20 13 MOVE R3,R0 2965 ; 2966 ;-------------- Ｙ座標補正 -------------------------------------- 2967 MR_BGCK_N_0204 2968 S000CE4 2A WITH R10 ;Ｙ座標補正 2969 S000CE5 53 ADD R3 2970 ; 2971 S000CE6 B5 FROM R5 2972 S000CE7 63 SUB R3 2973 S000CE8 08 06' BNE MR_BGCK_N_0206 ;右足当たりＯＫ？ ( no:MR_BGCK_N_0206 ) 2974 S000CEA 01 NOP 2975 ; 2976 ;-------------- 右足当たりＯＫ後特殊ＢＧチェック -------- 2977 mJSR FOOT_RESULT 2977+ S000CEB 94 LINK #4 2977+ S000CEC FF 0000" IWT R15, #FOOT_RESULT 2977+ S000CEF 01 NOP 2978 ; 2979 ;-------------- 中足のＢＧチェック情報復帰 -------------- 2980 MR_BGCK_N_0206 2981 S000CF0 3D A0 0B LMS R0,CWORKB ;(R0) <-- 中足補正値 2982 S000CF3 63 SUB R3 2983 S000CF4 08 1B' BNE MR_BGCK_N_0210 ;中足当たりＯＫ？ ( no:MR_BGCK_N_0210 ) 2984 S000CF6 01 NOP 2985 ; 2986 S000CF7 3D A0 14 LMS R0,CWORK14 2987 S000CFA 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- 中足ＢＧチェックＸ座標 2988 S000CFD 3D A0 15 LMS R0,CWORK15 2989 S000D00 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- 中足ＢＧチェックＹ座標 2990 S000D03 3D A6 16 LMS R6,CWORK16 ;(R6) <-- 中足 BG unit no. 2991 S000D06 3D A7 17 LMS R7,CWORK17 ;(R7) <-- 中足 BG unit no. type 2992 S000D09 3D A4 5D LMS R4,CPLSKCC ;(R4) <-- 中足移動角度 2993 ; 2994 ;-------------- 中足当たりＯＫ後特殊ＢＧチェック -------- 2995 mJSR FOOT_RESULT_C 2995+ S000D0C 94 LINK #4 2995+ S000D0D FF 0000" IWT R15, #FOOT_RESULT_C 2995+ S000D10 01 NOP 2996 ; 2997 ;-------------- 左足のＢＧチェック情報復帰 -------------- 2998 MR_BGCK_N_0210 2999 S000D11 3D A0 0A LMS R0,CWORKA ;(R0) <-- 左足補正値 3000 S000D14 63 SUB R3 3001 S000D15 08 1B' BNE MR_BGCK_N_0250 ;中足当たりＯＫ？ ( no:MR_BGCK_N_0250 ) 3002 S000D17 01 NOP 3003 ; 3004 S000D18 3D A0 10 LMS R0,CWORK10 3005 S000D1B 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- 左足ＢＧチェックＸ座標 3006 S000D1E 3D A0 11 LMS R0,CWORK11 3007 S000D21 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- 左足ＢＧチェックＹ座標 3008 S000D24 3D A6 12 LMS R6,CWORK12 ;(R6) <-- 左足 BG unit no. 3009 S000D27 3D A7 13 LMS R7,CWORK13 ;(R7) <-- 左足 BG unit no. type 3010 S000D2A 3D A4 5C LMS R4,CPLSKCL ;(R4) <-- 左足移動角度 3011 ; 3012 ;-------------- 左足当たりＯＫ後特殊ＢＧチェック -------- 3013 mJSR FOOT_RESULT 3013+ S000D2D 94 LINK #4 3013+ S000D2E FF 0000" IWT R15, #FOOT_RESULT 3013+ S000D31 01 NOP 3014 ; 3015 ;-------------- 足当たり情報セット ------------------------------ 3016 MR_BGCK_N_0250 3017 S000D32 3D A5 55 LMS R5,CPLYSPD ;(R5) <-- Ｙスピード 3018 S000D35 60 SUB R0 3019 S000D36 3E A0 55 SMS R0,CPLYSPD ;Ｙスピードクリアー 3020 S000D39 A0 FF IBT R0,#0FFH ;[ IWT R0,#0FFFFH ] 着地継続の為 3021 S000D3B 3E A0 47 SMS R0,CPLYSDR 3022 ; 3023 MR_BGCK_N_0260 3024 S000D3E 3E A4 5B SMS R4,CPLANGL ;移動角度セット 3025 S000D41 60 SUB R0 3026 S000D42 3E A0 5C SMS R0,CPLSKCL ;前回坂フラグリセット 3027 S000D45 3E A0 5D SMS R0,CPLSKCC 3028 S000D48 3E A0 5E SMS R0,CPLSKCR 3029 ;;;; SMS R0,CPLKAID ;階段歩きフラグクリアー 3030 ; 3031 ;-------------- 着地の瞬間チェック ------------------------------ 3032 S000D4B 3D A0 60 LMS R0,CPLJUMP 3033 S000D4E E0 DEC R0 3034 S000D4F 0B 18' BMI MR_BGCK_N_0270 ;着地の瞬間？ ( no:MR_BGCK_N_0270 ) 3035 S000D51 60 SUB R0 3036 ; 3037 S000D52 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＦＦ” 3038 S000D55 3D A0 54 LMS R0,CPLXSPD 3039 S000D58 3E A0 5A SMS R0,CPLMVSP ;移動スピードセット 3040 S000D5B 3E A0 C4 SMS R0,CPMR_HBCT ;頭ＢＧ当たり”ボヨヨ〜ン”リセット 3041 S000D5E 3E A5 C7 SMS R5,CPMR_FBSP 3042 S000D61 3E A5 C6 SMS R5,CPMR_FBCT ;足ＢＧ当たり”ボヨヨ〜ン”カウンター 3043 ; 3044 ;-------------- ”ドスーン！！”着地チェック -------------------- 3045 mJSR DOSN_JUST_CK 3045+ S000D64 94 LINK #4 3045+ S000D65 FF 0000" IWT R15, #DOSN_JUST_CK 3045+ S000D68 01 NOP 3046 ; 3047 MR_BGCK_N_0270 3048 ; 3049 MR_BGCK_N_0300 3050 S000D69 3E A9 46 SMS R9,CPLXPSL 3051 S000D6C 3E AA 48 SMS R10,CPLYPSL 3052 S000D6F 3E A2 7E SMS R2,CPLBGCR 3053 ; 3054 ;------------------------------------------------------------------------ 3055 ;- ダメージＢＧ当たりチェック - 3056 ;------------------------------------------------------------------------ 3057 S000D72 3D A0 81 LMS R0,CPLHARI 3058 S000D75 E0 DEC R0 3059 S000D76 0B 07' BMI MR_BGCK_N_0350 ;ダメージＢＧ当たりフラグクリアー 3060 S000D78 01 NOP 3061 ; 3062 ;-------------- プレイヤーダメージセット -------------------------------- 3063 mSFCALL PLFAILST ;プレイヤーダメージセット 3063+ S000D79 A0 14 IBT R0,#PLFAILST 3063+ S000D7B 00 STOP 3063+ S000D7C 01 NOP 3064 S000D7D 05 1F' BRA MR_BGCK_N_0500 3065 ; 3066 ;------------------------------------------------------------------------ 3067 ;- トンネルＩＮ／ＯＵＴチェック - 3068 ;------------------------------------------------------------------------ 3069 MR_BGCK_N_0350 3070 S000D7F 3D A0 80 LMS R0,CPLTNEL 3071 S000D82 C2 OR R2 ;(R0) <-- トンネル当たりフラグ 3072 S000D83 F6 01F8 IWT R6,#111111000B ;(R6) <-- トンネルチェックデータ 3073 ; 3074 S000D86 3D F5 1FEC LM R5,CCCHGTK 3075 S000D8A E5 DEC R5 3076 S000D8B 0A 09' BPL MR_BGCK_N_0400 ;今、トンネルの中？ ( yes:MR_BGCK_N_0400 ) 3077 S000D8D D5 INC R5 3078 ; 3079 ;-------------- トンネルに入ったか？チェック ---------------------------- 3080 S000D8E 76 AND R6 3081 S000D8F 66 SUB R6 3082 S000D90 09 08' BEQ MR_BGCK_N_0410 ;トンネルに入った？ ( yes:MR_BGCK_N_0410 ) 3083 S000D92 01 NOP 3084 ; 3085 S000D93 05 09' BRA MR_BGCK_N_0500 3086 S000D95 01 NOP 3087 ; 3088 ;-------------- トンネルから出たか？チェック ---------------------------- 3089 MR_BGCK_N_0400 3090 S000D96 76 AND R6 3091 S000D97 08 05' BNE MR_BGCK_N_0500 ;トンネルから出た？ ( no:MR_BGCK_N_0500 ) 3092 S000D99 01 NOP 3093 ; 3094 ;-------------- トンネルＩＮ／ＯＵＴデモスタート初期セット -------------- 3095 MR_BGCK_N_0410 3096 mSFCALL TN_INOUT_IN 3096+ S000D9A A0 10 IBT R0,#TN_INOUT_IN 3096+ S000D9C 00 STOP 3096+ S000D9D 01 NOP 3097 ; 3098 MR_BGCK_N_0500 3099 S000D9E 3D AB 32 LMS R11,RTS2 ;[ return address load ] 3100 mRTS 3100+ S000DA1 9B JMP R11 3100+ S000DA2 01 NOP 3101 ; 3102 ; 3103 ; 3104 ;------------------------------------------------------------------------ 3105 ; キャッシュプログラム - 3106 ;------------------------------------------------------------------------ 3107 ; 3108 ;------------------------------------------------------------------------ 3109 ;- 横当たりチェック - 3110 ;- in : - 3111 ;- (R1) <-- 横ＢＧ当たりＯＫフラグ - 3112 ;- (R2) <-- ＢＧ当たりフラグ - 3113 ;- (R3) <-- 補正向き - 3114 ;- (R4) <-- 補正データ - 3115 ;- (R9) <-- プレイヤーＸ座標 - 3116 ;- (R10) <-- ” Ｙ ” - 3117 ;- (R11) <-- 復帰アドレス - 3118 ;- (R14) <-- ＢＧチェックポイント - 3119 ;- データアドレス - 3120 ;- out : - 3121 ;- (R0) <-- BG unit no. type - 3122 ;- (R6) <-- BG unit no. - 3123 ;- (R7) <-- BG unit no. type - 3124 ;- (R8) <-- BG type status data - 3125 ;- (CWK0) <- ＢＧチェックＸ座標 - 3126 ;- (CWK1) <- ” Ｙ ” - 3127 ;- break : - 3128 ;- (R5) - 3129 ;- (R12) - 3130 ;- (R13) - 3131 ;- use RAM : - 3132 ;- (RTS0) - 3133 ;- (RTS1) - 3134 ;- (CWKE) - 3135 ;- (CWKF) - 3136 ;------------------------------------------------------------------------ 3137 BG_SIDECK_R_IN 3138 S000DA3 A1 00 IBT R1,#0 ;(R1) <-- 横ＢＧ当たりＯＫフラグ 3139 ; 3140 BG_SIDECK_R 3141 S000DA5 3E AB 31 SMS R11,RTS1 ;[ return address save ] 3142 ; 3143 S000DA8 22 WITH R2 ;[ ASL R2 ] 3144 S000DA9 52 ADD R2 3145 S000DAA 21 WITH R1 ;[ ASL R1 ] 3146 S000DAB 51 ADD R1 3147 S000DAC 21 WITH R1 ;[ ASL R1 ] 3148 S000DAD 51 ADD R1 3149 ; 3150 ;-------------- ＢＧ当たりチェック -------------------------------------- 3151 mJSR_X BGUNIT_READ_R+1 3151+ S000DAE 94 LINK #4 3151+ S000DAF FF 0E26' IWT R15, #BGUNIT_READ_R+1 3152 S000DB2 17 TO R7 3153 ; 3154 BG_SIDECK_R000 3155 S000DB3 3E 72 AND #AL 3156 S000DB5 09 6A' BEQ BG_SIDECK_R100 ;ＢＧ当たり？ ( no:BG_SIDECK_R100 ) 3157 S000DB7 01 NOP 3158 ; 3159 ;-------------- 移動方向チェック ---------------------------------------- 3160 S000DB8 3D A0 5A LMS R0,CPLMVSP 3161 S000DBB 3E 60 SUB #0 3162 S000DBD 09 06' BEQ BG_SIDECK_R002 3163 S000DBF D2 INC R2 ;ＢＧ当たりフラグ”ＯＮ” 3164 ; 3165 S000DC0 3D C3 XOR R3 3166 S000DC2 0A 5D' BPL BG_SIDECK_R100 ;移動方向ＯＫ？ ( no:BG_SIDECK_R100 ) 3167 S000DC4 01 NOP 3168 ; 3169 BG_SIDECK_R002 3170 S000DC5 D1 INC R1 ;横ＢＧ当たりＯＫフラグ”ＯＮ” 3171 ; 3172 S000DC6 3D C3 XOR R3 3173 S000DC8 0B 03' BMI BG_SIDECK_R010 ;Ｘスピード左方向？ ( yes:BG_SIDECK_R010 ) 3174 S000DCA 01 NOP 3175 ; 3176 S000DCB 4F NOT 3177 S000DCC D0 INC R0 3178 BG_SIDECK_R010 3179 S000DCD F5 0300 IWT R5,#0300H 3180 S000DD0 55 ADD R5 3181 S000DD1 0A 22' BPL BG_SIDECK_R050 ;壁壊し可能スピード？ ( no:BG_SIDECK_R050 ) 3182 S000DD3 01 NOP 3183 ; 3184 ;-------------- 壁壊しチェック ---------------------------------- 3185 S000DD4 F0 F800 IWT R0,#1111100000000000B 3186 S000DD7 77 AND R7 3187 S000DD8 F5 4000 IWT R5,#ET 3188 S000DDB 65 SUB R5 3189 S000DDC 08 17' BNE BG_SIDECK_R050 ;壊れるＢＧ？ ( no:BG_SIDECK_R050 ) 3190 S000DDE D1 INC R1 ;横ＢＧ当たりＯＫフラグ”ＯＮ”（激突） 3191 ; 3192 S000DDF D1 INC R1 ;横ＢＧ当たりＯＫフラグ”ＯＮ”（ＢＧ壊した） 3193 ; 3194 ;-------------- ＢＧ壊す -------------------------------- 3195 S000DE0 60 SUB R0 3196 S000DE1 3E A0 0E SMS R0,CWORKE ;(CWKE) <-- 壊れたＢＧぶっ飛びＸスピード 3197 S000DE4 3E A0 0F SMS R0,CWORKF ;(CWKF) <-- 壊れたＢＧぶっ飛びＹスピード 3198 ; 3199 S000DE7 3E A1 02 SMS R1,CWORK2 ;(R1) save 3200 ; 3201 mJSR BRBG0_SET ;壊れたＢＧ効果セット 3201+ S000DEA 94 LINK #4 3201+ S000DEB FF 0000" IWT R15, #BRBG0_SET 3201+ S000DEE 01 NOP 3202 ; 3203 S000DEF 3D A1 02 LMS R1,CWORK2 ;(R1) load 3204 ; 3205 S000DF2 05 2D' BRA BG_SIDECK_R100 3206 S000DF4 01 NOP 3207 ; 3208 ;-------------- 座標補正チェック -------------------------------- 3209 BG_SIDECK_R050 3210 S000DF5 3D F0 1960 LM R0,CEWORK0 ;(R0) <-- ｃｏｓデータ 3211 S000DF9 84 MULT R4 ;(R0) <-- Ｘ座標補正値×ｃｏｓ 3212 S000DFA 50 ADD R0 ;x4 3213 S000DFB 50 ADD R0 ; 3214 S000DFC 15 TO R5 3215 S000DFD 4D SWAP 3216 S000DFE 3D F0 008B LM R0,CPLXSDR+1 3217 S000E02 55 ADD R5 ;(C) set 3218 S000E03 90 SBK ;[ SMS R0,CPLXSDR ] 3219 S000E04 B5 FROM R5 3220 S000E05 95 SEX 3221 S000E06 19 TO R9 ;Ｘ座標補正 3222 S000E07 3D 59 ADC R9 3223 ; 3224 S000E09 3D F0 1962 LM R0,CEWORK2 ;(R0) <-- ｓｉｎデータ 3225 S000E0D 4F NOT 3226 S000E0E D0 INC R0 3227 S000E0F 84 MULT R4 3228 S000E10 50 ADD R0 ;x4 3229 S000E11 50 ADD R0 ; 3230 S000E12 15 TO R5 3231 S000E13 4D SWAP 3232 S000E14 3D F0 008F LM R0,CPLYSDR+1 3233 S000E18 55 ADD R5 ;(C) set 3234 S000E19 90 SBK ;[ SMS R0,CPLYSDR ] 3235 S000E1A B5 FROM R5 3236 S000E1B 95 SEX 3237 S000E1C 1A TO R10 ;Ｙ座標補正 3238 S000E1D 3D 5A ADC R10 3239 ; 3240 S000E1F A4 00 IBT R4,#0 ;Ｘ座標補正無しセット 3241 ; 3242 BG_SIDECK_R100 3243 ; 3244 ;------------------------------------------------------------------------ 3245 ;- 横用特殊ＢＧ当たりチェック - 3246 ;------------------------------------------------------------------------ 3247 mDJMP SIDE_SP_CK 3247+ S000E21 FF 0000" IWT R15, #SIDE_SP_CK 3247+ S000E24 01 NOP 3248 ; 3249 ; 3250 ;---------------------------------------------------------------- 3251 ;- ＢＧユニットＮｏ．読み込み - 3252 ;- in : - 3253 ;- (R9) <-- 敵のＸ座標 - 3254 ;- (R10) <-- ” Ｙ ” - 3255 ;- (R11) <-- 復帰アドレス - 3256 ;- (R14) <-- ＢＧチェックポイント - 3257 ;- データアドレス - 3258 ;- out : - 3259 ;- (R0) <-- BG unit no. type - 3260 ;- (R6) <-- BG unit no. - 3261 ;- (R7) <-- BG unit no. type - 3262 ;- (R8) <-- BG type status data - 3263 ;- break : - 3264 ;- (R5) - 3265 ;---------------------------------------------------------------- 3266 BGUNIT_READ_R 3267 ; 3268 ;-------------- ＢＧチェックポイント回転 ------------------------ 3269 S000E25 17 TO R7 ;(R7) <-- Ｘ 3270 S000E26 EF GETB 3271 S000E27 DE INC R14 3272 S000E28 3D F5 1960 LM R5,CEWORK0 ;(R5) <-- ｃｏｓデータ 3273 S000E2C B5 FROM R5 3274 S000E2D 18 TO R8 ;(R8) <-- Ｘ×ｃｏｓ 3275 S000E2E 87 MULT R7 3276 ; 3277 S000E2F 3D F0 1962 LM R0,CEWORK2 ;(R0) <-- ｓｉｎデータ 3278 S000E33 16 TO R6 ;(R6) <-- Ｘ×ｓｉｎ 3279 S000E34 87 MULT R7 3280 ; 3281 S000E35 17 TO R7 ;(R7) <-- Ｙ 3282 S000E36 EF GETB 3283 S000E37 DE INC R14 3284 S000E38 87 MULT R7 ;(R0) <-- Ｙ×ｓｉｎ 3285 S000E39 58 ADD R8 ;(R0) <-- Ｘ×ｃｏｓ＋Ｙ×ｓｉｎ 3286 S000E3A 50 ADD R0 ;x4 3287 S000E3B 50 ADD R0 ; 3288 S000E3C C0 HIB 3289 S000E3D 95 SEX 3290 S000E3E 59 ADD R9 3291 S000E3F 18 TO R8 ;(R8) <-- ＢＧチェックＸ座標 3292 S000E40 3E 58 ADD #08H 3293 ; 3294 S000E42 B7 FROM R7 3295 S000E43 85 MULT R5 ;(R0) <-- Ｙ×ｃｏｓ 3296 S000E44 66 SUB R6 ;(R0) <-- Ｙ×ｃｏｓ−Ｘ×ｓｉｎ 3297 S000E45 50 ADD R0 ;x4 3298 S000E46 50 ADD R0 ; 3299 S000E47 C0 HIB 3300 S000E48 95 SEX 3301 S000E49 5A ADD R10 3302 S000E4A A7 20 IBT R7,#020H 3303 S000E4C 57 ADD R7 3304 ; 3305 BGUNIT_READ_R_S 3306 S000E4D 3D A6 E5 LMS R6,CBG2OF_FG 3307 S000E50 E6 DEC R6 ;(N) set 3308 ; 3309 S000E51 17 TO R7 ;(R7) <-- BG check Y pos x2 3310 S000E52 0B 05' BMI BGUNIT_READ_R_000 ;オフセットモード？ ( no:BGUNIT_READ_R_000 ) 3311 S000E54 50 ADD R0 3312 ; 3313 mDJMP BGUNIT_READ_R_O 3313+ S000E55 FF 0EEC' IWT R15, #BGUNIT_READ_R_O 3313+ S000E58 01 NOP 3314 ; 3315 BGUNIT_READ_R_000 3316 S000E59 3D A5 53 LMS R5,CWRSCV1 3317 S000E5C 65 SUB R5 3318 S000E5D F5 00E0 IWT R5,#0E0H 3319 S000E60 65 SUB R5 ;(C) set 3320 ; 3321 S000E61 3D A5 52 LMS R5,CWRSCH1 3322 S000E64 0D 1A' BCS BGUNIT_READ_R_002 ;ＢＧチェックバッファＹ座標範囲内？ ( no:BGUNIT_READ_R_002 ) 3323 S000E66 B8 FROM R8 3324 ; 3325 S000E67 65 SUB R5 3326 S000E68 C0 HIB 3327 S000E69 08 15' BNE BGUNIT_READ_R_002 ;ＢＧチェックバッファＸ座標範囲内？ ( no:BGUNIT_READ_R_002 ) 3328 S000E6B B8 FROM R8 3329 ; 3330 S000E6C 03 LSR 3331 S000E6D 03 LSR 3332 S000E6E 03 LSR 3333 S000E6F A5 3E IBT R5,#01F0H>>3 3334 S000E71 15 TO R5 3335 S000E72 75 AND R5 3336 S000E73 F0 01E0 IWT R0,#0F0H<<1 3337 S000E76 77 AND R7 3338 S000E77 50 ADD R0 3339 S000E78 C5 OR R5 vvv******* warn :value out of range 3340 S000E79 F5 409E IWT R5,#BGCHECK_BUF 3341 S000E7C 55 ADD R5 3342 S000E7D 05 2B' BRA BGUNIT_READ_R_010 3343 S000E7F 40 LDW (R0) 3344 ; 3345 BGUNIT_READ_R_002 3346 S000E80 70 MERGE 3347 S000E81 09 64' BEQ BGUNIT_READ_R_020 ;BG check point max over ? ( yes:BGUNIT_READ_R_020 ) 3348 S000E83 16 TO R6 3349 ; 3350 S000E84 9E LOB 3351 S000E85 C0 HIB 3352 S000E86 3E 7E AND #07H*2 3353 S000E88 3F 88 UMULT #8 3354 S000E8A C6 OR R6 3355 S000E8B F6 0CAA IWT R6,#CUNBUFAD 3356 S000E8E 56 ADD R6 3357 S000E8F 3D 40 LDB (R0) 3358 S000E91 A6 3F IBT R6,#3FH 3359 S000E93 76 AND R6 3360 S000E94 16 TO R6 3361 S000E95 4D SWAP 3362 S000E96 F0 01E0 IWT R0,#0F0H<<1 3363 S000E99 15 TO R5 3364 S000E9A 77 AND R7 3365 S000E9B B8 FROM R8 3366 S000E9C 9E LOB 3367 S000E9D 03 LSR 3368 S000E9E 03 LSR 3369 S000E9F 03 LSR 3370 S000EA0 C5 OR R5 3371 S000EA1 03 LSR 3372 S000EA2 C6 OR R6 3373 S000EA3 50 ADD R0 ;[ ASL ] vvv******* warn :value out of range 3374 S000EA4 F6 8000 IWT R6,#CBGUNIT 3375 S000EA7 56 ADD R6 3376 mRAM_READ ;<<< SFC-RAM read >>> 3376+ S000EA8 00 STOP 3376+ S000EA9 01 NOP 3377 ; 3378 BGUNIT_READ_R_010 3379 S000EAA 20 16 MOVE R6,R0 ;(R6) <-- BG unit no. 3380 S000EAC C0 HIB 3381 S000EAD 3F 83 UMULT #3 ;x3 3382 BGUNIT_READ_R_011 3383 S000EAF 2E 15 MOVE R5,R14 ;(R14) save 3384 ; 3385 S000EB1 FE 0000" IWT R14,#EN_BGTYPE 3386 S000EB4 1E TO R14 ;(R14) <-- BG unit no. type data address 3387 S000EB5 5E ADD R14 3388 S000EB6 3E A8 00 SMS R8,CWORK0 ;(CWK0) <-- BG check X pos 3389 S000EB9 EF GETB 3390 S000EBA DE INC R14 3391 ; 3392 S000EBB 27 WITH R7 3393 S000EBC 96 ASR 3394 S000EBD 3E A7 01 SMS R7,CWORK1 ;(CWK1) <-- BG check Y pos 3395 ; 3396 S000EC0 A8 F8 IBT R8,#11111000B ;(R8) <-- ＢＧタイプチェック用ＡＮＤデータ 3397 ; 3398 S000EC2 3D EF GETBH 3399 S000EC4 DE INC R14 3400 S000EC5 20 17 MOVE R7,R0 ;(R0),(R7) <-- BG type data 3401 ; 3402 S000EC7 C0 HIB ;[ 上位バイトは０になるのでＡＮＤしても上位バイトは０ ] 3403 S000EC8 78 AND R8 3404 S000EC9 A8 72 IBT R8,#(CB/100H)-00001000B+2 ;[ CB=0111100000000000B：サイン拡張しない ] 3405 S000ECB 68 SUB R8 3406 S000ECC 3E 6F SUB #00001111B ;[ 00000110B:CB 00001110B:MB ] 3407 S000ECE 0D 10' BCS BGUNIT_READ_R_012+1 ;点線ブロック？ ( no:BGUNIT_READ_R_012+1 ) 3408 S000ED0 18 TO R8 ;[ * BGUNIT_READ_012 ] 3409 ; 3410 S000ED1 A8 11 IBT R8,#00001111B+00000010B ;[ 00001000B:CB 00010000B:MB ] 3411 S000ED3 58 ADD R8 3412 S000ED4 3D F8 1E08 LM R8,CSWITCH_1 3413 S000ED8 78 AND R8 3414 S000ED9 09 05' BEQ BGUNIT_READ_R_012+1 3415 S000EDB 18 TO R8 ;[ * BGUNIT_READ_R_012 ] 3416 ; 3417 S000EDC 27 WITH R7 ;全当たりに変更 3418 S000EDD 3E C2 OR #AL 3419 ; 3420 BGUNIT_READ_R_012 3421 S000EDF 18 TO R8 ;(R8) <-- BG type status data 3422 S000EE0 EF GETB 3423 ; 3424 S000EE1 27 10 MOVE R0,R7 ;(R0),(R7) <-- BG type data 3425 S000EE3 25 1E MOVE R14,R5 ;(R14) load 3426 mRTS 3426+ S000EE5 9B JMP R11 3426+ S000EE6 01 NOP 3427 ; 3428 BGUNIT_READ_R_020 3429 S000EE7 A6 01 IBT R6,#UT0001 ;(R6) <-- BG unit no. 3430 S000EE9 05 C4' BRA BGUNIT_READ_R_011 3431 S000EEB 60 SUB R0 ;[ (R0) <-- HIGH(R6) x3 ] 3432 ; 3433 ;---------------------------------------------------------------- 3434 ;- ＢＧユニットＮｏ．読み込み（オフセット） - 3435 ;- in : - 3436 ;- (R1) <-- 敵のインデックス - 3437 ;- (R9) <-- 敵のＸ座標 - 3438 ;- (R10) <-- ” Ｙ ” - 3439 ;- (R11) <-- 復帰アドレス - 3440 ;- (R14) <-- ＢＧチェックポイント - 3441 ;- データアドレス - 3442 ;- out : - 3443 ;- (R0) <-- BG unit no. type - 3444 ;- (R6) <-- BG unit no. - 3445 ;- (R7) <-- BG unit no. type - 3446 ;- (R8) <-- BG type status data - 3447 ;- (CWK0) <- ＢＧチェックＸ座標 - 3448 ;- (CWK1) <- ” Ｙ ” - 3449 ;- break : - 3450 ;- (R5) - 3451 ;---------------------------------------------------------------- 3452 BGUNIT_READ_R_O 3453 S000EEC 3D F0 0094 LM R0,CESCCH1 3454 S000EF0 3F 77 BIC #07H ;[ AND #0FFF8H ] 3455 S000EF2 B8 FROM R8 3456 S000EF3 60 SUB R0 3457 S000EF4 03 LSR 3458 S000EF5 03 LSR 3459 S000EF6 A5 42 IBT R5,#0021H*2 3460 S000EF8 65 SUB R5 3461 S000EF9 0D 1D' BCS BGUNIT_READ_R_O40 ;オフセットエリア？ ( no:BGUNIT_READ_R_O40 ) 3462 S000EFB 55 ADD R5 3463 ; 3464 S000EFC 03 LSR ;[ AND #0FFFEH ] 3465 S000EFD 08 08' BNE BGUNIT_READ_R_O20 ;０ラインオフセットエリア？ ( no:BGUNIT_READ_R_O20 ) 3466 S000EFF 50 ADD R0 ;[ AND #0FFFEH ] 3467 ; 3468 ;-------------- ０ラインオフセットエリア ------------------------ 3469 S000F00 3D F0 1EF0 LM R0,CBG2OFV 3470 S000F04 05 07' BRA BGUNIT_READ_R_O30+1 3471 S000F06 F5 HEX F5 ;[ IWT R5,#1FFFH ] 3472 ; 3473 ;-------------- ０ライン以外のオフセットエリア ------------------ 3474 BGUNIT_READ_R_O20 3475 S000F07 F5 1F30 IWT R5,#CBG2OFF+(20H*2)-2 3476 S000F0A 55 ADD R5 3477 S000F0B 40 LDW (R0) 3478 BGUNIT_READ_R_O30 3479 S000F0C F5 1FFF IWT R5,#1FFFH 3480 S000F0F 75 AND R5 3481 S000F10 3D F5 009C LM R5,CESCCV1 3482 S000F14 65 SUB R5 3483 S000F15 50 ADD R0 3484 S000F16 17 TO R7 3485 S000F17 57 ADD R7 3486 ; 3487 BGUNIT_READ_R_O40 3488 mDJMP_X BGUNIT_READ_R_000+1 3488+ S000F18 FF 0E5A' IWT R15, #BGUNIT_READ_R_000+1 3489 S000F1B 3D HEX 3D ;[ LMS R5,CWRSCV1 ] 3490 ; 3491 ; 3492 ;------------------------------------------------------------------------ 3493 ;- 頭と足の当たりチェック - 3494 ;- in : - 3495 ;- (R2) <-- ＢＧ当たりフラグ - 3496 ;- (R3) <-- 頭か足のフラグ - 3497 ;- (R4) <-- 前回坂フラグ（足のみ） - 3498 ;- (R9) <-- プレイヤーＸ座標 - 3499 ;- (R10) <-- ” Ｙ ” - 3500 ;- (R11) <-- 復帰アドレス - 3501 ;- (R14) <-- ＢＧチェックポイント - 3502 ;- データアドレス - 3503 ;- out : - 3504 ;- (R0) <-- BG unit no. type - 3505 ;- (R6) <-- BG unit no. - 3506 ;- (R7) <-- BG unit no. type - 3507 ;- (R8) <-- BG type status data - 3508 ;- (CWK0) <- ＢＧチェックＸ座標 - 3509 ;- (CWK1) <- ” Ｙ ” - 3510 ;- (CWK8) <- 移動角度 - 3511 ;- 3512 ;- break : - 3513 ;- (R1) - 3514 ;- (R5) - 3515 ;- use RAM : - 3516 ;- (RTS1) - 3517 ;------------------------------------------------------------------------ 3518 BG_HDFTCK_R 3519 S000F1C 3E AB 31 SMS R11,RTS1 ;[ return address save ] 3520 ; 3521 S000F1F 22 WITH R2 ;[ ASL R2 ] 3522 S000F20 52 ADD R2 3523 ; 3524 mJSR_X BGUNIT_READ_R+1 3524+ S000F21 94 LINK #4 3524+ S000F22 FF 0E26' IWT R15, #BGUNIT_READ_R+1 3525 S000F25 17 TO R7 3526 ; 3527 S000F26 24 B3 MOVES R4,R3 ;(R4) <-- 頭ｏｒ足チェックフラグ 3528 S000F28 0B 05' BMI BG_HDFTCK_R_FFE 3529 S000F2A 01 NOP 3530 ; 3531 mDJMP BG_HDFTCK_R_170 3531+ S000F2B FF 10C0' IWT R15, #BG_HDFTCK_R_170 3531+ S000F2E 01 NOP 3532 ; 3533 BG_HDFTCK_R_FFE 3534 S000F2F 3D A0 5B LMS R0,CPLANGL ;(R0) <-- プレイヤー回転角度 3535 S000F32 A1 20 IBT R1,#020H 3536 S000F34 11 TO R1 3537 S000F35 51 ADD R1 3538 S000F36 A0 3F IBT R0,#03FH 3539 S000F38 71 AND R1 3540 S000F39 08 09' BNE BG_HDFTCK_R_FFF ;４５度エリア？ ( no:BG_HDFTCK_R_FFF ) 3541 S000F3B 01 NOP 3542 ; 3543 S000F3C 3D A0 5A LMS R0,CPLMVSP 3544 S000F3F E0 DEC R0 3545 S000F40 0A 02' BPL BG_HDFTCK_R_FFF 3546 S000F42 01 NOP 3547 ; 3548 S000F43 E1 DEC R1 3549 BG_HDFTCK_R_FFF 3550 S000F44 A0 40 IBT R0,#040H 3551 S000F46 71 AND R1 3552 S000F47 09 05' BEQ BG_HDFTCK_R_UPDW ;上下補正？ ( yes:BG_HDFTCK_R_UPDW ) 3553 S000F49 01 NOP 3554 ; 3555 mDJMP BG_HDFTCK_R_SIDE 3555+ S000F4A FF 1014' IWT R15, #BG_HDFTCK_R_SIDE 3555+ S000F4D 01 NOP 3556 ; 3557 ;------------------------------------------------------------------------ 3558 ;- 上下補正 - 3559 ;------------------------------------------------------------------------ 3560 BG_HDFTCK_R_UPDW 3561 S000F4E A5 00 IBT R5,#00 ;(R5) <-- 平地の回転角度 3562 ; 3563 S000F50 B1 FROM R1 3564 S000F51 95 SEX 3565 S000F52 0A 06' BPL BG_HDFTCK_R_000 ;上下反転チェック？ ( no:BG_HDFTCK_R_000 ) 3566 S000F54 23 WITH R3 3567 ; 3568 S000F55 4F NOT 3569 S000F56 D3 INC R3 3570 S000F57 F5 0080 IWT R5,#080H ;(R5) <-- 平地の回転角度 3571 BG_HDFTCK_R_000 3572 S000F5A 3E A5 08 SMS R5,CWORK8 ;(CWK8) <-- saka angle 3573 ; 3574 S000F5D 3D A0 01 LMS R0,CWORK1 ;(R0) <-- BG check Y pos 3575 S000F60 11 TO R1 ;(R1) <-- Y pos cross size 3576 S000F61 3E 7F AND #0FH 3577 S000F63 21 1C MOVE R12,R1 ;(R12) <-- Y pos cross size 3578 ; 3579 S000F65 A5 05 IBT R5,#MD+SK ;(R5) <-- 坂チェックデータ 3580 S000F67 23 B3 MOVES R3,R3 3581 S000F69 0A 03' BPL BG_HDFTCK_R_010 ;頭チェック？ ( yes:BG_HDFTCK_R_010 ) 3582 S000F6B 01 NOP 3583 ; 3584 S000F6C A5 04 IBT R5,#SK ;(R5) <-- 坂チェックデータ 3585 BG_HDFTCK_R_010 3586 S000F6E B7 FROM R7 3587 S000F6F 75 AND R5 3588 S000F70 1D TO R13 ;(R13) <-- 下のＢＧは坂？チェックしたか？ 3589 S000F71 65 SUB R5 3590 S000F72 09 2A' BEQ BG_HDFTCK_R_020 ;坂 cross ? ( yes:BG_HDFTCK_R_020 ) 3591 S000F74 01 NOP 3592 ; 3593 ;-------------- 下のＢＧは坂？チェック ---------------------------------- 3594 S000F75 3E A6 02 SMS R6,CWORK2 ;(CWK2) <-- BG unit no. 3595 S000F78 3E A7 03 SMS R7,CWORK3 ;(CWK3) <-- BG unit no. type 3596 S000F7B 3E A8 04 SMS R8,CWORK4 ;(CWK4) <-- BG type status data 3597 S000F7E 3D A8 00 LMS R8,CWORK0 3598 S000F81 3E A8 05 SMS R8,CWORK5 ;(CWK5) <-- BG check X pos 3599 S000F84 3D A7 01 LMS R7,CWORK1 3600 S000F87 3E A7 06 SMS R7,CWORK6 ;(CWK6) <-- BG check Y pos 3601 S000F8A 3E A5 07 SMS R5,CWORK7 ;(CWK7) <-- 坂チェックデータ 3602 ; 3603 S000F8D B3 FROM R3 3604 S000F8E 57 ADD R7 3605 mJSR_X BGUNIT_READ_R_S+1 3605+ S000F8F 94 LINK #4 3605+ S000F90 FF 0E4E' IWT R15, #BGUNIT_READ_R_S+1 3606 S000F93 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 3607 ; 3608 S000F94 3D A5 07 LMS R5,CWORK7 ;(R5) <-- 坂チェックデータ 3609 S000F97 75 AND R5 3610 S000F98 65 SUB R5 3611 S000F99 08 42' BNE BG_HDFTCK_R_040 ;坂 cross ? ( no:BG_HDFTCK_R_040 ) 3612 S000F9B 01 NOP 3613 ; 3614 S000F9C 21 WITH R1 ;(R1) <-- Y pos cross size 3615 S000F9D 63 SUB R3 3616 ; 3617 ;-------------- 坂チェック ---------------------------------------------- 3618 BG_HDFTCK_R_020 3619 S000F9E 3E AE 2E SMS R14,REG14 ;(R14) save 3620 ; 3621 S000FA1 B8 FROM R8 ;坂タイプＮｏ．x(8x16) 3622 S000FA2 4D SWAP 3623 S000FA3 23 B3 MOVES R3,R3 3624 S000FA5 0A 03' BPL BG_HDFTCK_R_030 ;頭チェック？ ( yes:BG_HDFTCK_R_030 ) 3625 S000FA7 03 LSR 3626 ; 3627 S000FA8 D0 INC R0 ;[ +2 ] 3628 S000FA9 D0 INC R0 ; 3629 BG_HDFTCK_R_030 3630 S000FAA FE 0004" IWT R14,#SAKA_DATA+4 3631 S000FAD 1E TO R14 3632 S000FAE 5E ADD R14 3633 S000FAF 3D A0 00 LMS R0,CWORK0 3634 S000FB2 3E 7F AND #0FH 3635 S000FB4 50 ADD R0 3636 S000FB5 50 ADD R0 3637 S000FB6 50 ADD R0 3638 S000FB7 1E TO R14 ;(R14) <-- 坂データアドレス 3639 S000FB8 5E ADD R14 3640 S000FB9 15 TO R5 3641 S000FBA EF GETB 3642 S000FBB DE INC R14 3643 S000FBC 3F EF GETBS 3644 ; 3645 S000FBE 3D AE 2E LMS R14,REG14 ;(R14) load 3646 ; 3647 S000FC1 11 TO R1 ;(R1) <-- 補正値 3648 S000FC2 61 SUB R1 3649 S000FC3 09 06' BEQ BG_HDFTCK_R_032 ;cross ? ( yes:BG_HDFTCK_R_032 ) 3650 S000FC5 B1 FROM R1 3651 ; 3652 S000FC6 3D C3 XOR R3 3653 S000FC8 0B 0E' BMI BG_HDFTCK_R_036 ;cross ? ( no:BG_HDFTCK_R_036 ) 3654 S000FCA 01 NOP 3655 ; 3656 BG_HDFTCK_R_032 3657 S000FCB 23 B3 MOVES R3,R3 3658 S000FCD 0B 03' BMI BG_HDFTCK_R_034 3659 S000FCF D1 INC R1 3660 ; 3661 S000FD0 E1 DEC R1 3662 S000FD1 E1 DEC R1 3663 BG_HDFTCK_R_034 3664 S000FD2 3E A5 08 SMS R5,CWORK8 ;(CWK8) <-- saka angle 3665 S000FD5 05 37' BRA BG_HDFTCK_R_060 3666 S000FD7 D2 INC R2 ;[ BG cross flag set ] 3667 ; 3668 BG_HDFTCK_R_036 3669 S000FD8 2D BD MOVES R13,R13 3670 S000FDA 09 34' BEQ BG_HDFTCK_R_070 ;下のＢＧは坂？チェックしたか？ ( yes:BG_HDFTCK_R_070 ) 3671 S000FDC 01 NOP 3672 ; 3673 ;-------------- 下のＢＧは坂ではなかった -------------------------------- 3674 BG_HDFTCK_R_040 3675 S000FDD 2C 11 MOVE R1,R12 ;(R1) <-- Y pos cross size 3676 ; 3677 S000FDF 3D A6 02 LMS R6,CWORK2 ;(R6) <-- up BG unit no. 3678 S000FE2 3D A7 03 LMS R7,CWORK3 ;(R7) <-- up BG unit no. type 3679 S000FE5 3D A8 04 LMS R8,CWORK4 ;(R8) <-- up BG type status data 3680 S000FE8 3D A0 05 LMS R0,CWORK5 3681 S000FEB 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- BG check X pos 3682 S000FEE 3D A0 06 LMS R0,CWORK6 3683 S000FF1 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- BG check Y pos 3684 ; 3685 BG_HDFTCK_R_042 3686 S000FF4 A0 02 IBT R0,#AL 3687 S000FF6 23 B3 MOVES R3,R3 3688 S000FF8 0A 03' BPL BG_HDFTCK_R_050 ;頭チェック？ ( yes:BG_HDFTCK_R_050 ) 3689 S000FFA 01 NOP 3690 ; 3691 S000FFB A0 03 IBT R0,#MD+AL 3692 BG_HDFTCK_R_050 3693 S000FFD 77 AND R7 3694 S000FFE 09 10' BEQ BG_HDFTCK_R_070 ;BG cross ? ( no:BG_HDFTCK_R_070 ) 3695 S001000 01 NOP 3696 ; 3697 S001001 D2 INC R2 ;[ BG cross flag set ] 3698 ; 3699 S001002 23 B3 MOVES R3,R3 3700 S001004 0B 06' BMI BG_HDFTCK_R_052 ;頭チェック？ ( no:BG_HDFTCK_R_052 ) 3701 S001006 21 WITH R1 ;(R1) <-- 補正値 3702 ; 3703 S001007 3F CF XOR #0FH 3704 S001009 05 04' BRA BG_HDFTCK_R_060+1 3705 S00100B 2A WITH R10 ;Ｙ座標補正 3706 ; 3707 BG_HDFTCK_R_052 3708 S00100C 4F NOT 3709 S00100D D1 INC R1 3710 ; 3711 ;-------------- ＢＧ当たり ---------------------------------------------- 3712 BG_HDFTCK_R_060 3713 S00100E 2A WITH R10 ;Ｙ座標補正 3714 S00100F 51 ADD R1 3715 ; 3716 BG_HDFTCK_R_070 3717 mDJMP BG_HDFTCK_R_170 3717+ S001010 FF 10C0' IWT R15, #BG_HDFTCK_R_170 3717+ S001013 01 NOP 3718 ; 3719 ;------------------------------------------------------------------------ 3720 ;- 左右補正 - 3721 ;------------------------------------------------------------------------ 3722 BG_HDFTCK_R_SIDE 3723 S001014 A5 40 IBT R5,#040H ;(R5) <-- 平地の回転角度 3724 ; 3725 S001016 B1 FROM R1 3726 S001017 95 SEX 3727 S001018 0A 06' BPL BG_HDFTCK_R_100 ;左右反転チェック？ ( no:BG_HDFTCK_R_100 ) 3728 S00101A 23 WITH R3 3729 ; 3730 S00101B 4F NOT 3731 S00101C D3 INC R3 3732 S00101D F5 00C0 IWT R5,#0C0H ;(R5) <-- 平地の回転角度 3733 BG_HDFTCK_R_100 3734 S001020 3E A5 08 SMS R5,CWORK8 ;(CWK8) <-- saka angle 3735 ; 3736 S001023 3D A0 00 LMS R0,CWORK0 ;(R0) <-- BG check X pos 3737 S001026 11 TO R1 ;(R1) <-- X pos cross size 3738 S001027 3E 7F AND #0FH 3739 S001029 21 1C MOVE R12,R1 ;(R12) <-- X pos cross size 3740 ; 3741 S00102B B7 FROM R7 3742 S00102C 1D TO R13 ;(R13) <-- 手前のＢＧは坂？チェックしたか？ 3743 S00102D 3E 74 AND #SK 3744 S00102F 08 24' BNE BG_HDFTCK_R_120 ;坂 cross ? ( yes:BG_HDFTCK_R_120 ) 3745 S001031 01 NOP 3746 ; 3747 ;-------------- 手前のＢＧは坂？チェック -------------------------------- 3748 S001032 3E A6 02 SMS R6,CWORK2 ;(CWK2) <-- BG unit no. 3749 S001035 3E A7 03 SMS R7,CWORK3 ;(CWK3) <-- BG unit no. type 3750 S001038 3E A8 04 SMS R8,CWORK4 ;(CWK4) <-- BG type status data 3751 S00103B 3D A0 00 LMS R0,CWORK0 3752 S00103E 3E A0 05 SMS R0,CWORK5 ;(CWK5) <-- BG check X pos 3753 S001041 18 TO R8 ;(R8) <-- " 3754 S001042 53 ADD R3 3755 S001043 3D A0 01 LMS R0,CWORK1 ;(R0) <-- BG check Y pos 3756 S001046 3E A0 06 SMS R0,CWORK6 ;(CWK6) <-- " 3757 ; 3758 mJSR_X BGUNIT_READ_R_S+1 3758+ S001049 94 LINK #4 3758+ S00104A FF 0E4E' IWT R15, #BGUNIT_READ_R_S+1 3759 S00104D 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 3760 ; 3761 S00104E 3E 74 AND #SK 3762 S001050 09 42' BEQ BG_HDFTCK_R_140 ;坂 cross ? ( no:BG_HDFTCK_R_140 ) 3763 S001052 01 NOP 3764 ; 3765 S001053 21 WITH R1 ;(R1) <-- Y pos cross size 3766 S001054 63 SUB R3 3767 ; 3768 ;-------------- 坂チェック ---------------------------------------------- 3769 BG_HDFTCK_R_120 3770 S001055 3E AE 2E SMS R14,REG14 ;(R14) save 3771 ; 3772 S001058 B8 FROM R8 ;坂タイプＮｏ．x(8x16) 3773 S001059 4D SWAP 3774 S00105A 23 B3 MOVES R3,R3 3775 S00105C 0A 03' BPL BG_HDFTCK_R_130 ;左チェック？ ( yes:BG_HDFTCK_R_130 ) 3776 S00105E 03 LSR 3777 ; 3778 S00105F D0 INC R0 ;[ +2 ] 3779 S001060 D0 INC R0 ; 3780 BG_HDFTCK_R_130 3781 S001061 FE 0000" IWT R14,#SAKA_DATA 3782 S001064 1E TO R14 3783 S001065 5E ADD R14 3784 S001066 3D A0 01 LMS R0,CWORK1 3785 S001069 3E 7F AND #0FH 3786 S00106B 50 ADD R0 3787 S00106C 50 ADD R0 3788 S00106D 50 ADD R0 3789 S00106E 1E TO R14 ;(R14) <-- 坂データアドレス 3790 S00106F 5E ADD R14 3791 S001070 15 TO R5 3792 S001071 EF GETB 3793 S001072 DE INC R14 3794 S001073 3F EF GETBS 3795 ; 3796 S001075 3D AE 2E LMS R14,REG14 ;(R14) load 3797 ; 3798 S001078 11 TO R1 ;(R1) <-- 補正値 3799 S001079 61 SUB R1 3800 S00107A 09 06' BEQ BG_HDFTCK_R_132 ;cross ? ( yes:BG_HDFTCK_R_132 ) 3801 S00107C B1 FROM R1 3802 ; 3803 S00107D 3D C3 XOR R3 3804 S00107F 0B 0E' BMI BG_HDFTCK_R_136 ;cross ? ( no:BG_HDFTCK_R_136 ) 3805 S001081 01 NOP 3806 ; 3807 BG_HDFTCK_R_132 3808 S001082 23 B3 MOVES R3,R3 3809 S001084 0B 03' BMI BG_HDFTCK_R_134 3810 S001086 D1 INC R1 3811 ; 3812 S001087 E1 DEC R1 3813 S001088 E1 DEC R1 3814 BG_HDFTCK_R_134 3815 S001089 3E A5 08 SMS R5,CWORK8 ;(CWK8) <-- saka angle 3816 S00108C 05 30' BRA BG_HDFTCK_R_160 3817 S00108E D2 INC R2 ;[ BG cross flag set ] 3818 ; 3819 BG_HDFTCK_R_136 3820 S00108F 2D BD MOVES R13,R13 3821 S001091 08 2D' BNE BG_HDFTCK_R_170 ;下のＢＧは坂？チェックしたか？ ( yes:BG_HDFTCK_R_170 ) 3822 S001093 01 NOP 3823 ; 3824 ;-------------- 下のＢＧは坂ではなかった -------------------------------- 3825 BG_HDFTCK_R_140 3826 S001094 2C 11 MOVE R1,R12 ;(R1) <-- Y pos cross size 3827 ; 3828 S001096 3D A6 02 LMS R6,CWORK2 ;(R6) <-- up BG unit no. 3829 S001099 3D A7 03 LMS R7,CWORK3 ;(R7) <-- up BG unit no. type 3830 S00109C 3D A8 04 LMS R8,CWORK4 ;(R8) <-- up BG type status data 3831 S00109F 3D A0 05 LMS R0,CWORK5 3832 S0010A2 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- BG check X pos 3833 S0010A5 3D A0 06 LMS R0,CWORK6 3834 S0010A8 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- BG check Y pos 3835 ; 3836 BG_HDFTCK_R_142 3837 S0010AB B7 FROM R7 3838 S0010AC 3E 72 AND #AL 3839 S0010AE 09 10' BEQ BG_HDFTCK_R_170 ;BG cross ? ( no:BG_HDFTCK_R_170 ) 3840 S0010B0 01 NOP 3841 ; 3842 S0010B1 D2 INC R2 ;[ BG cross flag set ] 3843 ; 3844 S0010B2 23 B3 MOVES R3,R3 3845 S0010B4 0B 06' BMI BG_HDFTCK_R_150 ;左チェック？ ( no:BG_HDFTCK_R_150 ) 3846 S0010B6 21 WITH R1 ;(R1) <-- 補正値 3847 ; 3848 S0010B7 3F CF XOR #0FH 3849 S0010B9 05 04' BRA BG_HDFTCK_R_160+1 3850 S0010BB 29 WITH R9 ;Ｘ座標補正 3851 ; 3852 BG_HDFTCK_R_150 3853 S0010BC 4F NOT 3854 S0010BD D1 INC R1 3855 ; 3856 ;-------------- ＢＧ当たり ---------------------------------------------- 3857 BG_HDFTCK_R_160 3858 S0010BE 29 WITH R9 ;Ｘ座標補正 3859 S0010BF 51 ADD R1 3860 ; 3861 BG_HDFTCK_R_170 3862 S0010C0 3D A4 08 LMS R4,CWORK8 ;(R4) <-- saka angle 3863 ; 3864 S0010C3 23 B4 MOVES R3,R4 3865 S0010C5 0B 05' BMI BG_HDFTCK_R_190 ;足チェック？ ( yes:BG_HDFTCK_R_190 ) 3866 S0010C7 01 NOP 3867 ; 3868 ;------------------------------------------------------------------------ 3869 ;- 頭用特殊ＢＧ当たりチェック - 3870 ;------------------------------------------------------------------------ 3871 BG_HDFTCK_R_180 3872 mDJMP HED_SP_CK 3872+ S0010C8 FF 0000" IWT R15, #HED_SP_CK 3872+ S0010CB 01 NOP 3873 ; 3874 ;------------------------------------------------------------------------ 3875 ;- 足用特殊ＢＧ当たりチェック - 3876 ;------------------------------------------------------------------------ 3877 BG_HDFTCK_R_190 3878 mDJMP FOOT_SP_CK 3878+ S0010CC FF 0000" IWT R15, #FOOT_SP_CK 3878+ S0010CF 01 NOP 3879 ; 3880 ;************************************************************************ 3881 ;* * 3882 ;* 座標計算（重力セット） * 3883 ;* * 3884 ;************************************************************************ 3885 ; 3886 MR_CALC 3887 S0010D0 3D A5 60 LMS R5,CPLJUMP ;(R5) <-- ジャンプフラグ 3888 S0010D3 E5 DEC R5 3889 S0010D4 0A 15' BPL MR_CALC_0010 ;プレイヤージャンプ ？ ( yes:MR_CALC_0010 ) 3890 S0010D6 D5 INC R5 3891 ; 3892 S0010D7 3D A0 57 LMS R0,CPLTYPE 3893 S0010DA 3E 64 SUB #P_MOGURA 3894 S0010DC 08 06' BNE MR_CALC_0000 ;モグラヨッシー？ ( no:MR_CALC_0000 ) 3895 S0010DE 01 NOP 3896 ; 3897 ;-------------- モグラヨッシーは引力無しに ------------------------------ 3898 S0010DF A9 00 IBT R9,#00H ;(R9) <-- Ｇ 3899 S0010E1 05 0F' BRA MR_CALC_0102 3900 S0010E3 01 NOP 3901 ; 3902 MR_CALC_0000 3903 S0010E4 3D A0 C0 LMS R0,CPMR_BGCF 3904 S0010E7 E0 DEC R0 3905 S0010E8 0A 05' BPL MR_CALC_0100 ;ソニックモード？ ( yes:MR_CALC_0100 ) 3906 S0010EA 01 NOP 3907 ; 3908 MR_CALC_0010 3909 mDJMP PL_CALC 3909+ S0010EB FF 0000" IWT R15, #PL_CALC 3909+ S0010EE 01 NOP 3910 ; 3911 ;------------------------------------------------------------------------ 3912 ;- プレイヤー着地状態 - 3913 ;------------------------------------------------------------------------ 3914 MR_CALC_0100 3915 S0010EF F9 0300 IWT R9,#0300H ;(R9) <-- Ｇ 3916 ; 3917 MR_CALC_0102 3918 S0010F2 A0 00" IBT R0,#BANK LCOS 3919 S0010F4 3F DF ROMB ;※ＲＯＭアドレス変更（にて復帰） 3920 ; 3921 S0010F6 3D A6 5A LMS R6,CPLMVSP ;(R6) <-- 移動スピード 3922 S0010F9 3D A7 5B LMS R7,CPLANGL ;(R7) <-- 足下角度 3923 S0010FC F0 0000" IWT R0,#LCOS 3924 S0010FF 1E TO R14 3925 S001100 57 ADD R7 3926 S001101 3F EF GETBS 3927 S001103 50 ADD R0 3928 S001104 50 ADD R0 ;[ 100H <-- 040H ] 3929 S001105 3D 9F LMULT 3930 S001107 24 WITH R4 3931 S001108 C0 HIB 3932 S001109 9E LOB 3933 S00110A 4D SWAP 3934 S00110B 18 TO R8 ;(R8) <-- Ｘスピード 3935 S00110C C4 OR R4 3936 ; 3937 S00110D F0 0000" IWT R0,#LSIN 3938 S001110 1E TO R14 3939 S001111 57 ADD R7 3940 S001112 3F EF GETBS 3941 S001114 50 ADD R0 3942 S001115 50 ADD R0 ;[ 100H <-- 040H ] 3943 S001116 3D 9F LMULT 3944 S001118 24 WITH R4 3945 S001119 C0 HIB 3946 S00111A 9E LOB 3947 S00111B 4D SWAP 3948 S00111C 1E TO R14 ;(R14) <-- Ｙスピード 3949 S00111D C4 OR R4 3950 ; 3951 S00111E A0 20 IBT R0,#020H 3952 S001120 17 TO R7 3953 S001121 57 ADD R7 3954 S001122 A0 3F IBT R0,#03FH 3955 S001124 77 AND R7 3956 S001125 08 06' BNE MR_CALC_0110 ;４５度エリア？ ( no:MR_CALC_0110 ) 3957 S001127 01 NOP 3958 ; 3959 S001128 E6 DEC R6 3960 S001129 0A 02' BPL MR_CALC_0110 ;移動方向（＋）？ ( yes:MR_CALC_0110 ) 3961 S00112B D6 INC R6 3962 ; 3963 S00112C E7 DEC R7 3964 MR_CALC_0110 3965 S00112D B7 FROM R7 3966 S00112E 95 SEX ;[ CMP #80H ] 3967 S00112F 0A 03' BPL MR_CALC_0120 3968 S001131 29 WITH R9 3969 ; 3970 S001132 4F NOT 3971 S001133 D9 INC R9 3972 MR_CALC_0120 3973 S001134 A0 40 IBT R0,#040H 3974 S001136 77 AND R7 3975 S001137 09 02' BEQ MR_CALC_0130 ;上下補正？ ( yes:MR_CALC_0130 ) 3976 S001139 2E WITH R14 3977 ; 3978 S00113A 28 WITH R8 3979 MR_CALC_0130 3980 S00113B 59 ADD R9 3981 ; 3982 S00113C 3E A8 54 SMS R8,CPLXSPD ;Ｘスピードセット 3983 ; 3984 S00113F 3D F0 01B4 LM R0,CONLFFG 3985 S001143 3E 60 SUB #0 3986 S001145 09 04' BEQ MR_CALC_0150 ;リフトに乗ってる？ ( no:MR_CALC_0150 ) 3987 S001147 01 NOP 3988 ; 3989 S001148 FE 0400 IWT R14,#0400H 3990 MR_CALC_0150 3991 S00114B 3E AE 55 SMS R14,CPLYSPD ;Ｙスピードセット 3992 mDJMP XY_CALC 3992+ S00114E FF 0000" IWT R15, #XY_CALC 3992+ S001151 01 NOP 3993 ; 3994 ; 3995 ; 3996 ; 3997 ; 3998 ;************************************************************************ 3999 ;* * 4000 ;* 汽車 * 4001 ;* * 4002 ;************************************************************************ 4003 ; 4004 TRAIN_MV 4005 mJSR TRAIN_SUB ;汽車基本ルーチン 4005+ S001152 94 LINK #4 4005+ S001153 FF 1639' IWT R15, #TRAIN_SUB 4005+ S001156 01 NOP 4006 ; 4007 S001157 3D A0 EB LMS R0,CPLFLSH 4008 S00115A A2 50 IBT R2,#050H 4009 S00115C 62 SUB R2 4010 S00115D 0B 0B' BMI TRAIN_MV_FFFF ;プレイヤーダメージ？ ( no:TRAIN_MV_FFFF ) 4011 S00115F 01 NOP 4012 ; 4013 ;-------------- プレイヤーダメージ！！ ---------------------------------- 4014 S001160 3D A0 C7 LMS R0,CPTR_FLCT 4015 S001163 A2 10 IBT R2,#010H 4016 S001165 52 ADD R2 4017 mDJMP_X TRAIN_MV_2030 4017+ S001166 FF 1585' IWT R15, #TRAIN_MV_2030 4018 S001169 90 SBK ;[ SMS R0,CPTR_FLCT ] 4019 ; 4020 TRAIN_MV_FFFF 4021 S00116A 3D A1 C0 LMS R1,CPTR_MODE ;(R1) <-- レールモード（倍率） 4022 S00116D E1 DEC R1 4023 S00116E 0B 05' BMI TRAIN_MV_0010 ;レールモード？ ( no:TRAIN_MV_0010 ) 4024 S001170 D1 INC R1 4025 ; 4026 TRAIN_MV_0000 4027 mDJMP TRAIN_MV_0500 4027+ S001171 FF 1211' IWT R15, #TRAIN_MV_0500 4027+ S001174 01 NOP 4028 ; 4029 ;------------------------------------------------------------------------ 4030 ;- レール外モード - 4031 ;------------------------------------------------------------------------ 4032 TRAIN_MV_0010 4033 ; 4034 ;-------------- 座標計算 ---------------------------------------- 4035 mJSR PL_CALC ;座標計算 4035+ S001175 94 LINK #4 4035+ S001176 FF 0000" IWT R15, #PL_CALC 4035+ S001179 01 NOP 4036 ; 4037 ;-------------- ＢＧチェック ------------------------------------ 4038 S00117A FE 0000" IWT R14,#PLBGCK_POINT_TR ;(R14) <-- ＢＧチェックポイントデータポインター 4039 mJSR PL_BGCK_2 ;ＢＧチェック 4039+ S00117D 94 LINK #4 4039+ S00117E FF 0000" IWT R15, #PL_BGCK_2 4039+ S001181 01 NOP 4040 ; 4041 S001182 3D A1 C0 LMS R1,CPTR_MODE ;(R1) <-- レールモード（倍率） 4042 S001185 E1 DEC R1 4043 S001186 0A E9' BPL TRAIN_MV_0000 ;レールモードへ？ ( yes:TRAIN_MV_0000 ) 4044 S001188 D1 INC R1 4045 ; 4046 S001189 F0 0100 IWT R0,#0100H 4047 S00118C 3E A0 C1 SMS R0,CPTR_ZOOM ;拡大率セット 4048 ; 4049 ;-------------- Ｇｏｔｏレールモード中心ＢＧチェック ---- 4050 S00118F 3D A0 60 LMS R0,CPLJUMP 4051 S001192 E0 DEC R0 4052 S001193 0A 51' BPL TRAIN_MV_0020 ;ジャンプ中？ ( yes:TRAIN_MV_0020 ) 4053 S001195 01 NOP 4054 ; 4055 S001196 3D A0 46 LMS R0,CPLXPSL 4056 S001199 18 TO R8 ;(R8) <-- プレイヤーＸ座標 4057 S00119A 3E 58 ADD #08H 4058 S00119C 3D A0 48 LMS R0,CPLYPSL 4059 S00119F A7 18 IBT R7,#018H 4060 S0011A1 57 ADD R7 4061 mJSR_X BGUNIT_READ_S+1 4061+ S0011A2 94 LINK #4 4061+ S0011A3 FF 0001" IWT R15, #BGUNIT_READ_S+1 4062 S0011A6 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 4063 ; 4064 S0011A7 F0 F800 IWT R0,#1111100000000000B 4065 S0011AA 77 AND R7 4066 S0011AB F5 4800 IWT R5,#SN 4067 S0011AE 65 SUB R5 4068 S0011AF 08 35' BNE TRAIN_MV_0020 ;線路？ ( no:TRAIN_MV_0020 ) 4069 S0011B1 01 NOP 4070 ; 4071 S0011B2 B6 FROM R6 4072 S0011B3 C0 HIB 4073 S0011B4 A1 1E IBT R1,#UT1E00/100H 4074 S0011B6 61 SUB R1 4075 S0011B7 50 ADD R0 ;x2 4076 S0011B8 FE 0000" IWT R14,#GO_RALE_KEY 4077 S0011BB 1E TO R14 4078 S0011BC 5E ADD R14 4079 S0011BD EF GETB 4080 S0011BE 3D F1 0071 LM R1,CMKEYC1 4081 S0011C2 71 AND R1 4082 S0011C3 09 21' BEQ TRAIN_MV_0020 ;ＧｏｔｏレールモードＯＫ？ ( no:TRAIN_MV_0020 ) 4083 S0011C5 DE INC R14 4084 ; 4085 ;-------------- Ｇｏｔｏレールモード -------------------- 4086 S0011C6 A0 5D IBT R0,#05DH 4087 S0011C8 3E A0 3D SMS R0,CMSOUND3 ;[♪] 4088 ; 4089 S0011CB EF GETB ;目標回転角セット 4090 S0011CC 3E A0 5B SMS R0,CPLANGL 4091 S0011CF 4D SWAP 4092 S0011D0 3E A0 C5 SMS R0,CPTR_MANG 4093 ; 4094 S0011D3 60 SUB R0 4095 S0011D4 3E A0 C4 SMS R0,CPTR_MUKI 4096 S0011D7 3E A0 C6 SMS R0,CPTR_BACK 4097 S0011DA 3E A0 5A SMS R0,CPLMVSP 4098 S0011DD F1 0100 IWT R1,#0100H ;(R1) <-- レールモード”ＯＮ” 4099 S0011E0 3E A1 C0 SMS R1,CPTR_MODE 4100 S0011E3 05 2C' BRA TRAIN_MV_0500 4101 S0011E5 01 NOP 4102 ; 4103 TRAIN_MV_0020 4104 ; 4105 ;---------------------------------------------------------------- 4106 ;- コントローラー入力 - 4107 ;---------------------------------------------------------------- 4108 S0011E6 3D F0 0071 LM R0,CMKEYC1 ;(R0) <-- コントローラー情報（連続） 4109 S0011EA 16 TO R6 ;[ 移動キー入力無しならＭＡＸスピード０ヘ ] 4110 S0011EB 3E 73 AND #00000011B 4111 S0011ED 09 17' BEQ TRAIN_MV_0150 ;移動キー入力？ ( no:TRAIN_MV_0150 ) 4112 S0011EF 01 NOP 4113 ; 4114 S0011F0 A5 00 IBT R5,#00 ;(R5) <-- 回転角度 4115 S0011F2 F6 0180 IWT R6,#0180H ;(R6) <-- ＭＡＸスピード 4116 S0011F5 3E 72 AND #00000010B 4117 S0011F7 3E A0 62 SMS R0,CPLCMKI ;プレイヤー向きセット 4118 S0011FA 09 07' BEQ TRAIN_MV_0100 4119 S0011FC 01 NOP 4120 ; 4121 S0011FD F5 8000 IWT R5,#80H*100H ;(R5) <-- 回転角度 4122 S001200 F6 FE80 IWT R6,#-0180H ;(R6) <-- ＭＡＸスピード 4123 TRAIN_MV_0100 4124 S001203 3E A5 BF SMS R5,CPTR_ANGL ;回転角度セット 4125 TRAIN_MV_0150 4126 S001206 A5 10 IBT R5,#0010H ;(R5) <-- 加速値 4127 mJSR X_SP_CALC ;Ｘスピード加減速 4127+ S001208 94 LINK #4 4127+ S001209 FF 039F' IWT R15, #X_SP_CALC 4127+ S00120C 01 NOP 4128 ; 4129 mDJMP TRAIN_MV_2000 4129+ S00120D FF 149E' IWT R15, #TRAIN_MV_2000 4129+ S001210 01 NOP 4130 ; 4131 ;------------------------------------------------------------------------ 4132 ;- レールモード - 4133 ;- in : (R1) レールモード（倍率） - 4134 ;------------------------------------------------------------------------ 4135 TRAIN_MV_0500 4136 ; 4137 ;------------------------------------------------------------------------ 4138 ;- 座標計算 - 4139 ;------------------------------------------------------------------------ 4140 mJSR RALE_XY_CALC ;座標計算 4140+ S001211 94 LINK #4 4140+ S001212 FF 15A2' IWT R15, #RALE_XY_CALC 4140+ S001215 01 NOP 4141 ; 4142 ;------------------------------------------------------------------------ 4143 ;- レールチェック用ＢＧチェック - 4144 ;------------------------------------------------------------------------ 4145 S001216 3D A0 46 LMS R0,CPLXPSL 4146 S001219 18 TO R8 ;(R8) <-- ＢＧチェックＸ座標 4147 S00121A 3E 58 ADD #08H 4148 S00121C 28 19 MOVE R9,R8 ;(R9) <-- ” 4149 S00121E 3D A0 48 LMS R0,CPLYPSL 4150 S001221 AA 18 IBT R10,#018H 4151 S001223 5A ADD R10 ;(R0) <-- ＢＧチェックＹ座標 4152 S001224 20 1A MOVE R10,R0 ;(R10) <-- ” 4153 mJSR_X BGUNIT_READ_S+1 4153+ S001226 94 LINK #4 4153+ S001227 FF 0001" IWT R15, #BGUNIT_READ_S+1 4154 S00122A 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 4155 ; 4156 S00122B F0 F800 IWT R0,#1111100000000000B 4157 S00122E 77 AND R7 4158 S00122F F5 4800 IWT R5,#SN 4159 S001232 17 TO R7 ;(R7) <-- 線路かどうか？ 4160 S001233 65 SUB R5 4161 ; 4162 S001234 B6 FROM R6 4163 S001235 C0 HIB 4164 S001236 A5 1E IBT R5,#UT1E00/100H 4165 S001238 65 SUB R5 4166 ;;;; ADD R0 ;x(2*16) 4167 ;;;; ADD R0 ; 4168 S001239 3E 88 MULT #8 ; 4169 S00123B F6 0000" IWT R6,#RALE_BIT_DATA 4170 S00123E 16 TO R6 ;(R6) <-- 線路ビットデータポインター 4171 S00123F 56 ADD R6 4172 ; 4173 ;------------------------------------------------------------------------ 4174 ;- レールモード - 4175 ;------------------------------------------------------------------------ 4176 S001240 A0 70 IBT R0,#070H 4177 S001242 61 SUB R1 4178 S001243 0C 05' BCC TRAIN_MV_0510 ;レールモード初期セット中？ ( yes:TRAIN_MV_0500 ) 4179 S001245 01 NOP 4180 ; 4181 mDJMP TRAIN_MV_0800 4181+ S001246 FF 12F6' IWT R15, #TRAIN_MV_0800 4181+ S001249 01 NOP 4182 ; 4183 ;------------------------------------------------------------------------ 4184 ;- レールモード初期セット - 4185 ;------------------------------------------------------------------------ 4186 TRAIN_MV_0510 4187 S00124A 3E A1 C1 SMS R1,CPTR_ZOOM ;拡大率セット 4188 ; 4189 S00124D A0 FE IBT R0,#-02H ;(R0) <-- レールモード（倍率）加算値 4190 S00124F 3D A2 C4 LMS R2,CPTR_MUKI ;(R2) <-- Ｇｏｔｏレールモードフラグ 4191 S001252 E2 DEC R2 4192 S001253 0B 03' BMI TRAIN_MV_0520 ;Ｇｏｔｏレールモード？ ( yes:TRAIN_MV_0520 ) 4193 S001255 D2 INC R2 4194 ; 4195 S001256 A0 02 IBT R0,#02H ;(R0) <-- レールモード（倍率）加算値 4196 TRAIN_MV_0520 4197 S001258 51 ADD R1 4198 S001259 F3 0100 IWT R3,#0100H 4199 S00125C 63 SUB R3 4200 S00125D 0C 02' BCC TRAIN_MV_0530 ;レールモード解除？ ( no:TRAIN_MV_0530 ) 4201 S00125F 53 ADD R3 4202 ; 4203 S001260 60 SUB R0 ;[ IBT R0,#0 ] 4204 TRAIN_MV_0530 4205 S001261 3E A0 C0 SMS R0,CPTR_MODE ;レールモード（倍率）セット 4206 S001264 A3 72 IBT R3,#072H 4207 S001266 63 SUB R3 4208 S001267 08 33' BNE TRAIN_MV_0540 ;Ｇｏｔｏレールモード”キラリン”セット？ ( no:TRAIN_MV_0540 ) 4209 S001269 01 NOP 4210 ; 4211 ;-------------- Ｇｏｔｏレールモード”キラリン”効果セット -------------- 4212 S00126A F5 0000" IWT R5,#KIRA0 ;(A) <-- 効果Ｎｏ． 4213 mJSR M_EXINSR ;効果エリア確保 4213+ S00126D 94 LINK #4 4213+ S00126E FF 0000" IWT R15, #M_EXINSR 4213+ S001271 01 NOP 4214 ; 4215 S001272 A0 36 IBT R0,#036H 4216 S001274 3E A0 3D SMS R0,CMSOUND3 ;[♪] 4217 ; 4218 S001277 3D A3 46 LMS R3,CPLXPSL 4219 mSTW R3,CEXXPSL,R1 ;Ｘ座標セット 4219+ S00127A F0 10A2 IWT R0,#CEXXPSL 4219+ S00127D 51 ADD R1 4219+ S00127E B3 FROM R3 4219+ S00127F 30 STW (R0) 4220 S001280 3D A0 48 LMS R0,CPLYPSL 4221 S001283 13 TO R3 4222 S001284 3E 5F ADD #0FH 4223 mSTW R3,CEXYPSL,R1 ;Ｙ座標セット 4223+ S001286 F0 1142 IWT R0,#CEXYPSL 4223+ S001289 51 ADD R1 4223+ S00128A B3 FROM R3 4223+ S00128B 30 STW (R0) 4224 S00128C A3 06 IBT R3,#6 4225 mSTW R3,CEXCHPT,R1 ;パターンＮｏ．初期セット 4225+ S00128E F0 13C2 IWT R0,#CEXCHPT 4225+ S001291 51 ADD R1 4225+ S001292 B3 FROM R3 4225+ S001293 30 STW (R0) 4226 S001294 A3 03 IBT R3,#3 4227 mSTW R3,CEXTIM0,R1 ;タイマー初期セット 4227+ S001296 F0 1782 IWT R0,#CEXTIM0 4227+ S001299 51 ADD R1 4227+ S00129A B3 FROM R3 4227+ S00129B 30 STW (R0) 4228 ; 4229 TRAIN_MV_0540 4230 S00129C E2 DEC R2 4231 S00129D 0B 17' BMI TRAIN_MV_0600 ;Ｇｏｔｏレールモード？ ( yes:TRAIN_MV_0600 ) 4232 S00129F D2 INC R2 4233 ; 4234 ;-------------- Ｇｏｔｏレール外モード処理 ------------------------------ 4235 ; 4236 ;-------------- 足補正チェック ---------------------------------- 4237 S0012A0 29 18 MOVE R8,R9 ;(R8) <-- ＢＧチェックＸ座標 4238 S0012A2 BA FROM R10 4239 S0012A3 3E 57 ADD #01FH-18H ;(R0) <-- ＢＧチェックＹ座標 4240 mJSR_X BGUNIT_READ_S+1 4240+ S0012A5 94 LINK #4 4240+ S0012A6 FF 0001" IWT R15, #BGUNIT_READ_S+1 4241 S0012A9 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 4242 ; 4243 S0012AA 3E 73 AND #MD+AL 4244 S0012AC 09 44' BEQ TRAIN_MV_0650 ;足ＢＧ当たり？ ( no:TRAIN_MV_0650 ) 4245 S0012AE 01 NOP 4246 ; 4247 S0012AF 3D A0 48 LMS R0,CPLYPSL 4248 S0012B2 E0 DEC R0 4249 S0012B3 05 3D' BRA TRAIN_MV_0650 ;回転角計算へ 4250 S0012B5 90 SBK ;[ SMS R0,CPLYPSL ] 4251 ; 4252 ;-------------- Ｇｏｔｏレールモード処理 -------------------------------- 4253 TRAIN_MV_0600 4254 mJSR RALE_ON_CK ;レールに乗ってるかチェック 4254+ S0012B6 94 LINK #4 4254+ S0012B7 FF 1588' IWT R15, #RALE_ON_CK 4254+ S0012BA 01 NOP 4255 S0012BB 08 35' BNE TRAIN_MV_0650 ;レールに乗ってる？ ( yes:TRAIN_MV_0650 ) 4256 S0012BD 01 NOP 4257 ; 4258 ;-------------- レールに乗せる補正 ------------------------------ 4259 S0012BE 3D A0 C5 LMS R0,CPTR_MANG ;(R0) <-- 目標回転角 4260 S0012C1 C0 HIB 4261 S0012C2 03 LSR 4262 S0012C3 03 LSR 4263 S0012C4 03 LSR 4264 S0012C5 03 LSR 4265 S0012C6 FE 0000" IWT R14,#GO_RALE_HSDT 4266 S0012C9 1E TO R14 4267 S0012CA 5E ADD R14 4268 S0012CB 13 TO R3 ;(R3) <-- 補正目標Ｘ 4269 S0012CC EF GETB 4270 ; 4271 S0012CD B9 FROM R9 4272 S0012CE 3E 7F AND #0FH 4273 S0012D0 63 SUB R3 ;(N) set 4274 S0012D1 A0 01 IBT R0,#01H 4275 S0012D3 0B 03' BMI TRAIN_MV_0610 4276 S0012D5 DE INC R14 4277 ; 4278 S0012D6 A0 FF IBT R0,#0FFH 4279 TRAIN_MV_0610 4280 S0012D8 59 ADD R9 4281 S0012D9 3E 68 SUB #08H 4282 S0012DB 3E A0 46 SMS R0,CPLXPSL ;プレイヤーＸ座標補正 4283 ; 4284 S0012DE 13 TO R3 ;(R3) <-- 補正目標Ｙ 4285 S0012DF EF GETB 4286 S0012E0 BA FROM R10 4287 S0012E1 3E 7F AND #0FH 4288 S0012E3 63 SUB R3 ;(N) set 4289 S0012E4 A0 01 IBT R0,#01H 4290 S0012E6 0B 03' BMI TRAIN_MV_0620 4291 S0012E8 01 NOP 4292 ; 4293 S0012E9 A0 FF IBT R0,#0FFH 4294 TRAIN_MV_0620 4295 S0012EB 5A ADD R10 4296 S0012EC A3 18 IBT R3,#018H 4297 S0012EE 63 SUB R3 4298 S0012EF 3E A0 48 SMS R0,CPLYPSL ;プレイヤーＹ座標補正 4299 ; 4300 TRAIN_MV_0650 4301 mDJMP TRAIN_MV_1000 ;回転角計算へ 4301+ S0012F2 FF 145E' IWT R15, #TRAIN_MV_1000 4301+ S0012F5 01 NOP 4302 ; 4303 ;------------------------------------------------------------------------ 4304 ;- レールモード処理 - 4305 ;- レール角度 - 4306 ;- 3 2 1 - 4307 ;- 4 + 0 - 4308 ;- 5 6 7 - 4309 ;------------------------------------------------------------------------ 4310 TRAIN_MV_0800 4311 S0012F6 F0 0100 IWT R0,#0100H 4312 S0012F9 3E A0 C1 SMS R0,CPTR_ZOOM ;拡大率セット 4313 ; 4314 ;-------------- レールの補正チェック ------------------------------------ 4315 mJSR RALE_ON_CK ;レールに乗ってるかチェック 4315+ S0012FC 94 LINK #4 4315+ S0012FD FF 1588' IWT R15, #RALE_ON_CK 4315+ S001300 01 NOP 4316 S001301 09 05' BEQ TRAIN_MV_0804 ;レールに乗ってる？ ( no:TRAIN_MV_0804 ) 4317 S001303 01 NOP 4318 ; 4319 mDJMP TRAIN_MV_0900 4319+ S001304 FF 13E1' IWT R15, #TRAIN_MV_0900 4319+ S001307 01 NOP 4320 ; 4321 TRAIN_MV_0804 4322 S001308 27 B7 MOVES R7,R7 4323 S00130A 08 76' BNE TRAIN_MV_0852 ;レールモード解除？ ( yes:TRAIN_MV_0852 ) 4324 S00130C 01 NOP 4325 ; 4326 ;-------------- レールへの補正 ---------------------------------- 4327 S00130D 29 11 MOVE R1,R9 ;(R9) save 4328 S00130F 3E AA 2A SMS R10,REG10 ;(R10) save 4329 ; 4330 S001312 F2 4000 IWT R2,#4000H ;(R2) <-- 補正ＯＫチェックフラグ 4331 ; 4332 S001315 3D A0 C5 LMS R0,CPTR_MANG 4333 S001318 C0 HIB 4334 S001319 03 LSR 4335 S00131A 03 LSR 4336 S00131B 03 LSR 4337 S00131C 03 LSR 4338 S00131D 20 13 MOVE R3,R0 ;(R3) <-- 現在の移動角度／２０００Ｈ×２ 4339 ; 4340 S00131F 3E 54 ADD #(4000H/2000H)*2 4341 TRAIN_MV_0810 4342 S001321 3E 7E AND #07H*2 4343 S001323 FE 0000" IWT R14,#RALE_HS_ANAD 4344 S001326 1E TO R14 4345 S001327 5E ADD R14 4346 S001328 14 TO R4 ;(R4) <-- Ｘ補正加算値 4347 S001329 3F EF GETBS 4348 S00132B DE INC R14 4349 S00132C 18 TO R8 ;(R8) <-- Ｙ補正加算値 4350 S00132D 3F EF GETBS 4351 ; 4352 S00132F 29 WITH R9 ;(R9) <-- ＢＧチェックＸ座標ビット位置 4353 S001330 3E 7F AND #0FH 4354 S001332 2A WITH R10 ;(R10) <-- ＢＧチェックＹ座標ビット位置 4355 S001333 3E 7F AND #0FH 4356 ; 4357 S001335 AC 04 IBT R12,#4 ;[ ４ドットまで補正 ] 4358 S001337 2F 1D MOVE R13,R15 4359 TRAIN_MV_0820 4360 S001339 B9 FROM R9 4361 S00133A 54 ADD R4 4362 S00133B A5 10 IBT R5,#010H ;(R5) <-- ビット位置オーバーチェックデータ 4363 S00133D 65 SUB R5 4364 S00133E 0D 15' BCS TRAIN_MV_0830 ;ビット位置オーバー？ ( yes:TRAIN_MV_0830 ) 4365 S001340 55 ADD R5 4366 ; 4367 S001341 20 19 MOVE R9,R0 4368 S001343 BA FROM R10 4369 S001344 58 ADD R8 4370 S001345 65 SUB R5 4371 S001346 0D 0D' BCS TRAIN_MV_0830 ;ビット位置オーバー？ ( yes:TRAIN_MV_0830 ) 4372 S001348 55 ADD R5 4373 ; 4374 S001349 20 1A MOVE R10,R0 4375 mJSR RALE_ON_CK ;レールに乗ってるかチェック 4375+ S00134B 94 LINK #4 4375+ S00134C FF 1588' IWT R15, #RALE_ON_CK 4375+ S00134F 01 NOP 4376 S001350 08 04' BNE TRAIN_MV_0840 ;レールに乗ってる？ ( yes:TRAIN_MV_0840 ) 4377 S001352 01 NOP 4378 ; 4379 S001353 3C LOOP 4380 S001354 01 NOP 4381 ; 4382 TRAIN_MV_0830 4383 S001355 D2 INC R2 ;補正不能！！ 4384 ; 4385 TRAIN_MV_0840 4386 S001356 22 WITH R2 ;[ ASL R2 ] 4387 S001357 52 ADD R2 4388 S001358 0D 12' BCS TRAIN_MV_0850 ;両サイドチェック終了？ ( yes:TRAIN_MV_0850 ) 4389 S00135A 01 NOP 4390 ; 4391 S00135B 3E A9 00 SMS R9,CWORK0 ;補正Ｘ位置保存 4392 S00135E 3E AA 01 SMS R10,CWORK1 ; ”Ｙ ” 4393 ; 4394 S001361 B3 FROM R3 4395 S001362 3E 5C ADD #(0C000H/2000H)*2 4396 TRAIN_MV_0848 4397 S001364 21 19 MOVE R9,R1 ;(R9) load 4398 S001366 3D AA 2A LMS R10,REG10 ;(R10) load 4399 S001369 05 B6' BRA TRAIN_MV_0810 4400 S00136B 01 NOP 4401 ; 4402 TRAIN_MV_0850 4403 S00136C 0B 5A' BMI TRAIN_MV_0880 ;その場ＳＴＯＰ用補正？ ( yes:TRAIN_MV_0880 ) 4404 S00136E 01 NOP 4405 ; 4406 S00136F 20 B2 MOVES R0,R2 4407 S001371 09 06' BEQ TRAIN_MV_0851 ;その場ＳＴＯＰ？ ( yes:TRAIN_MV_0851 ) 4408 S001373 03 LSR 4409 ; 4410 S001374 3E 63 SUB #0011B 4411 S001376 08 35' BNE TRAIN_MV_0860 ;その場ＳＴＯＰ？ ( no:TRAIN_MV_0860 ) 4412 S001378 D0 INC R0 ;[ (Z) <-- 1:0010B 0:0001B ] 4413 ; 4414 TRAIN_MV_0851 4415 S001379 F2 C000 IWT R2,#0C000H 4416 S00137C B3 FROM R3 4417 S00137D 3F C8 XOR #08H 4418 S00137F 05 E3' BRA TRAIN_MV_0848 4419 S001381 01 NOP 4420 ; 4421 ;-------------- レールモード解除へ ------------------------------ 4422 TRAIN_MV_0852 4423 S001382 A0 5D IBT R0,#05DH 4424 S001384 3E A0 3D SMS R0,CMSOUND3 ;[♪] 4425 ; 4426 S001387 A0 72 IBT R0,#070H+2 ;レールモード解除”ＯＮ” 4427 S001389 3E A0 C0 SMS R0,CPTR_MODE 4428 S00138C A0 02 IBT R0,#02H 4429 S00138E 3E A0 C4 SMS R0,CPTR_MUKI 4430 S001391 3D A0 62 LMS R0,CPLCMKI 4431 S001394 E0 DEC R0 4432 S001395 0B 04' BMI TRAIN_MV_0854 4433 S001397 60 SUB R0 ;[ IBT R0,#0 ] 4434 ; 4435 S001398 F0 8000 IWT R0,#80H*100H 4436 TRAIN_MV_0854 4437 S00139B 3E A0 C5 SMS R0,CPTR_MANG ;目標回転角度セット 4438 S00139E C0 HIB 4439 S00139F 3E A0 5B SMS R0,CPLANGL 4440 S0013A2 60 SUB R0 4441 S0013A3 3E A0 5A SMS R0,CPLMVSP 4442 S0013A6 3E A0 C6 SMS R0,CPTR_BACK 4443 mDJMP TRAIN_MV_1000 4443+ S0013A9 FF 145E' IWT R15, #TRAIN_MV_1000 4443+ S0013AC 01 NOP 4444 ; 4445 ;-------------- 移動方向切り替え補正 -------------------- 4446 TRAIN_MV_0860 4447 S0013AD A0 FE IBT R0,#-01H*2 4448 S0013AF 09 09' BEQ TRAIN_MV_0870 ;どっちのサイド？ 4449 S0013B1 01 NOP 4450 ; 4451 S0013B2 A0 02 IBT R0,#01H*2 4452 S0013B4 3D A9 00 LMS R9,CWORK0 ;補正Ｘ位置保存 4453 S0013B7 3D AA 01 LMS R10,CWORK1 ; ”Ｙ ” 4454 TRAIN_MV_0870 4455 S0013BA 53 ADD R3 4456 S0013BB 3E 7E AND #07H*2 4457 S0013BD 50 ADD R0 4458 S0013BE 50 ADD R0 4459 S0013BF 50 ADD R0 4460 S0013C0 50 ADD R0 4461 S0013C1 3E A0 5B SMS R0,CPLANGL 4462 S0013C4 4D SWAP 4463 S0013C5 3E A0 C5 SMS R0,CPTR_MANG ;目標回転角度セット 4464 4465 TRAIN_MV_0880 4466 S0013C8 B1 FROM R1 4467 S0013C9 3F 7F BIC #0FH 4468 S0013CB C9 OR R9 4469 S0013CC 20 19 MOVE R9,R0 ;(R9) <-- ＢＧチェックＸ座標補正 4470 S0013CE 3E 68 SUB #08H 4471 S0013D0 3E A0 46 SMS R0,CPLXPSL ;プレイヤーＸ座標補正 4472 S0013D3 3D A0 2A LMS R0,REG10 4473 S0013D6 3F 7F BIC #0FH 4474 S0013D8 CA OR R10 4475 S0013D9 20 1A MOVE R10,R0 ;(R10) <-- ＢＧチェックＹ座標補正 4476 S0013DB A3 18 IBT R3,#018H 4477 S0013DD 63 SUB R3 4478 S0013DE 3E A0 48 SMS R0,CPLYPSL ;プレイヤーＹ座標補正 4479 ; 4480 ;-------------- 移動方向切り替えキー入力チェック ------------------------ 4481 TRAIN_MV_0900 4482 S0013E1 3D A1 C5 LMS R1,CPTR_MANG ;(R1) <-- 現在の移動角度 4483 S0013E4 3D F0 0071 LM R0,CMKEYC1 4484 S0013E8 3E 7F AND #00001111B 4485 S0013EA 09 09' BEQ TRAIN_MV_0910 ;移動方向切り替えキー入力？ ( no:TRAIN_MV_0910 ) 4486 S0013EC 01 NOP 4487 ; 4488 S0013ED FE FFFF" IWT R14,#TR_KEY_ANGL-1 4489 S0013F0 1E TO R14 4490 S0013F1 5E ADD R14 4491 S0013F2 EF GETB 4492 S0013F3 11 TO R1 ;(R1) <-- 切り替え移動角度 4493 S0013F4 4D SWAP 4494 TRAIN_MV_0910 4495 S0013F5 B1 FROM R1 4496 S0013F6 C0 HIB 4497 S0013F7 03 LSR 4498 S0013F8 03 LSR 4499 S0013F9 03 LSR 4500 S0013FA 03 LSR 4501 S0013FB 3E 7E AND #07H*2 4502 S0013FD FE 0000" IWT R14,#RALE_HS_ANAD 4503 S001400 1E TO R14 4504 S001401 5E ADD R14 4505 ; 4506 S001402 29 12 MOVE R2,R9 ;(R9) save 4507 S001404 2A 13 MOVE R3,R10 ;(R10) save 4508 ; 4509 S001406 3F EF GETBS ;(R0) <-- Ｘ加算値 4510 S001408 50 ADD R0 ;x2 4511 S001409 DE INC R14 4512 S00140A 19 TO R9 4513 S00140B 59 ADD R9 4514 S00140C 29 18 MOVE R8,R9 ;(R9) <-- ＢＧチェックＸ座標 4515 S00140E 3F EF GETBS 4516 S001410 50 ADD R0 ;x2 4517 S001411 1A TO R10 4518 S001412 5A ADD R10 4519 S001413 2A 10 MOVE R0,R10 ;(R0) <-- ＢＧチェックＹ座標 4520 mJSR_X BGUNIT_READ_S+1 4520+ S001415 94 LINK #4 4520+ S001416 FF 0001" IWT R15, #BGUNIT_READ_S+1 4521 S001419 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 4522 ; 4523 S00141A F0 F800 IWT R0,#1111100000000000B 4524 S00141D 77 AND R7 4525 S00141E F5 4800 IWT R5,#SN 4526 S001421 17 TO R7 ;(R7) <-- 線路かどうか？ 4527 S001422 65 SUB R5 4528 ; 4529 S001423 B6 FROM R6 4530 S001424 C0 HIB 4531 S001425 A5 1E IBT R5,#UT1E00/100H 4532 S001427 65 SUB R5 4533 ;;;; ADD R0 ;x(2*16) 4534 ;;;; ADD R0 ; 4535 S001428 3E 88 MULT #8 ; 4536 S00142A F6 0000" IWT R6,#RALE_BIT_DATA 4537 S00142D 16 TO R6 ;(R6) <-- 線路ビットデータポインター 4538 S00142E 56 ADD R6 4539 ; 4540 mJSR RALE_ON_CK ;レールに乗ってるかチェック 4540+ S00142F 94 LINK #4 4540+ S001430 FF 1588' IWT R15, #RALE_ON_CK 4540+ S001433 01 NOP 4541 S001434 09 09' BEQ TRAIN_MV_0920 ;レールに乗ってる？ ( no:TRAIN_MV_0920 ) 4542 S001436 01 NOP 4543 ; 4544 S001437 3E A1 C5 SMS R1,CPTR_MANG ;目標回転角度セット 4545 S00143A B1 FROM R1 4546 S00143B C0 HIB 4547 S00143C 3E A0 5B SMS R0,CPLANGL 4548 ; 4549 ;------------------------------------------------------------------------ 4550 ;- スピード計算 - 4551 ;------------------------------------------------------------------------ 4552 TRAIN_MV_0920 4553 ;;;; IWT R6,#080H ;(R6) <-- バックＭＡＸスピード 4554 ;;;; IWT R6,#0100H ;(R6) <-- バックＭＡＸスピード 4555 ;;;; LMS R0,CPTR_BACK 4556 ;;;; DEC R0 4557 ;;;; BPL TRAIN_MV_0930 ;バック？ ( yes:TRAIN_MV_0930 ) 4558 ;;;; NOP 4559 ;;;;; 4560 S00143F F6 0100 IWT R6,#0100H ;(R6) <-- ノーマルＭＡＸスピード 4561 S001442 3D A0 44 LMS R0,CP_KEY_BERO 4562 S001445 3D A2 42 LMS R2,CP_KEY_JUMP 4563 S001448 C2 OR R2 4564 S001449 3D A2 43 LMS R2,CP_KEY_MNAG 4565 S00144C C2 OR R2 4566 S00144D 3D A2 38 LMS R2,CMKEYC1L 4567 S001450 72 AND R2 4568 S001451 09 04' BEQ TRAIN_MV_0930 ;（Ｂ）加速？ ( no:TRAIN_MV_0930 ) 4569 S001453 01 NOP 4570 ; 4571 S001454 F6 0180 IWT R6,#0180H ;(R6) <-- （Ｂ）加速ＭＡＸスピード 4572 TRAIN_MV_0930 4573 S001457 A5 10 IBT R5,#0010H ;(R5) <-- 加速値 4574 mJSR X_SP_CALC ;Ｘスピード加減速 4574+ S001459 94 LINK #4 4574+ S00145A FF 039F' IWT R15, #X_SP_CALC 4574+ S00145D 01 NOP 4575 ; 4576 ;------------------------------------------------------------------------ 4577 ;- 回転角計算 - 4578 ;------------------------------------------------------------------------ 4579 TRAIN_MV_1000 4580 S00145E 3D A0 BF LMS R0,CPTR_ANGL ;(R0) <-- 現在の回転角度 4581 S001461 3D AA C5 LMS R10,CPTR_MANG ;(R10) <-- 目標回転角度 4582 S001464 11 TO R1 4583 S001465 6A SUB R10 4584 S001466 0A 03' BPL TRAIN_MV_1010 4585 S001468 21 WITH R1 4586 ; 4587 S001469 4F NOT 4588 S00146A D1 INC R1 4589 TRAIN_MV_1010 4590 S00146B 3D A4 C6 LMS R4,CPTR_BACK ;[ * SBK ] (R4) <-- 前回バック？フラグ 4591 ; 4592 S00146E F0 4000 IWT R0,#040H*100H 4593 S001471 61 SUB R1 4594 S001472 0C 08' BCC TRAIN_MV_1020 ;反転角度へ？ ( yes:TRAIN_MV_1020 ) 4595 S001474 01 NOP 4596 ; 4597 S001475 08 0D' BNE TRAIN_MV_1030 ;９０度差？ ( no:TRAIN_MV_1030 ) 4598 S001477 60 SUB R0 4599 ; 4600 S001478 E4 DEC R4 4601 S001479 0B 09' BMI TRAIN_MV_1030 ;前回バック？ ( no:TRAIN_MV_1030 ) 4602 S00147B 60 SUB R0 ;[ IBT R0,#0 ] 前進！！ 4603 ; 4604 TRAIN_MV_1020 4605 S00147C F0 8000 IWT R0,#80H*100H 4606 S00147F 1A TO R10 ;(R10) <-- 反転目標回転角度 4607 S001480 3D CA XOR R10 4608 S001482 A0 01 IBT R0,#01H ;バック 4609 TRAIN_MV_1030 4610 S001484 90 SBK ;[ SMS R0,CPTR_BACK ] 4611 ; 4612 S001485 3D A0 5A LMS R0,CPLMVSP 4613 S001488 E0 DEC R0 4614 S001489 0A 03' BPL TRAIN_MV_1040 4615 S00148B D0 INC R0 4616 ; 4617 S00148C 4F NOT 4618 S00148D D0 INC R0 4619 TRAIN_MV_1040 4620 S00148E 50 ADD R0 ;x4 4621 S00148F 50 ADD R0 ; 4622 S001490 F4 0200 IWT R4,#0200H ;(R4) <-- ＭＩＮ回転スピード 4623 S001493 64 SUB R4 4624 S001494 0C 03' BCC TRAIN_MV_1050 4625 S001496 54 ADD R4 4626 ; 4627 S001497 20 14 MOVE R4,R0 ;(R4) <-- 回転スピード 4628 TRAIN_MV_1050 4629 mJSR C_ANGL_CALC 4629+ S001499 94 LINK #4 4629+ S00149A FF 03D9' IWT R15, #C_ANGL_CALC 4629+ S00149D 01 NOP 4630 ; 4631 ;---------------------------------------------------------------- 4632 ;- パターンセット - 4633 ;---------------------------------------------------------------- 4634 TRAIN_MV_2000 4635 S00149E 3D A0 5A LMS R0,CPLMVSP 4636 S0014A1 E0 DEC R0 4637 S0014A2 0A 03' BPL TRAIN_MV_2010 4638 S0014A4 D0 INC R0 4639 ; 4640 S0014A5 4F NOT 4641 S0014A6 D0 INC R0 4642 TRAIN_MV_2010 4643 S0014A7 F1 0080 IWT R1,#080H 4644 S0014AA 61 SUB R1 4645 S0014AB 0C 02' BCC TRAIN_MV_2020 4646 S0014AD 11 TO R1 4647 ; 4648 S0014AE 51 ADD R1 4649 TRAIN_MV_2020 4650 S0014AF 3D A0 C3 LMS R0,CPTR_WALK 4651 S0014B2 51 ADD R1 4652 S0014B3 90 SBK ;[ SMS R0,CPTR_WALK ] 4653 S0014B4 F1 0600 IWT R1,#0600H 4654 S0014B7 61 SUB R1 4655 S0014B8 0C 0A' BCC TRAIN_MV_20200 ;パターン切り替え？ ( no:TRAIN_MV_20200 ) 4656 S0014BA 01 NOP 4657 ; 4658 S0014BB 90 SBK ;[ SMS R0,CPTR_WALK ] 4659 S0014BC 3D A0 C2 LMS R0,CPTR_PTNO ;パターン切り替え 4660 S0014BF 3F C2 XOR #02H 4661 S0014C1 09 05' BEQ TRAIN_MV_2021 ;けむりセット？ ( yes:TRAIN_MV_2021 ) 4662 S0014C3 90 SBK ;[ SMS R0,CPTR_PTNO ] 4663 ; 4664 TRAIN_MV_20200 4665 mDJMP TRAIN_MV_2030 4665+ S0014C4 FF 1585' IWT R15, #TRAIN_MV_2030 4665+ S0014C7 01 NOP 4666 ; 4667 ;-------------- ”シュッポシュッポ”けむりセット ---------------- 4668 TRAIN_MV_2021 4669 S0014C8 A0 00" IBT R0,#BANK LCOS 4670 S0014CA 3F DF ROMB 4671 ; 4672 S0014CC 3D A0 BF LMS R0,CPTR_ANGL 4673 S0014CF C0 HIB 4674 S0014D0 20 1A MOVE R10,R0 ;(R10) <-- 回転角度 4675 S0014D2 AE 40 IBT R14,#040H 4676 S0014D4 5E ADD R14 4677 S0014D5 95 SEX 4678 S0014D6 0A 08' BPL TRAIN_OAM_0010 4679 S0014D8 01 NOP 4680 ; 4681 S0014D9 A0 7F IBT R0,#7FH 4682 S0014DB 3D CA XOR R10 4683 S0014DD D0 INC R0 4684 S0014DE 1A TO R10 4685 S0014DF 9E LOB 4686 TRAIN_OAM_0010 4687 S0014E0 F0 0000" IWT R0,#LCOS 4688 S0014E3 1E TO R14 4689 S0014E4 5A ADD R10 4690 S0014E5 11 TO R1 ;(R1) <-- ｃｏｓデータ 4691 S0014E6 EF GETB 4692 S0014E7 A0 40 IBT R0,#40H ;[ IWT R14,#LSIN ] 4693 S0014E9 1E TO R14 4694 S0014EA 5E ADD R14 4695 S0014EB 12 TO R2 ;(R2) <-- ｓｉｎデータ 4696 S0014EC EF GETB 4697 ; 4698 S0014ED A0 00" IBT R0,#BANK PLAYER_DATA 4699 S0014EF 3F DF ROMB 4700 ; 4701 S0014F1 A5 05 IBT R5,#05H ;(R5) <-- けむりセットＸオフセット値 4702 S0014F3 A6 E8 IBT R6,#0E8H ;(R6) <-- けむりセットＹオフセット値 4703 S0014F5 3D A0 5F LMS R0,CPLPATN 4704 S0014F8 F3 0186 IWT R3,#TR00 4705 S0014FB 19 TO R9 ;(R9) <-- レールモードパターンチェックフラグ 4706 S0014FC 63 SUB R3 4707 S0014FD 09 05' BEQ TRAIN_MV_2022 ;レールモードパターン？ ( no:TRAIN_MV_2022 ) 4708 S0014FF 01 NOP 4709 ; 4710 S001500 A5 04 IBT R5,#04H ;(R5) <-- けむりセットＸオフセット値 4711 S001502 A6 F2 IBT R6,#0F2H ;(R6) <-- けむりセットＹオフセット値 4712 TRAIN_MV_2022 4713 S001504 B5 FROM R5 4714 S001505 13 TO R3 ;(R3) <-- Ｘ×ｃｏｓ 4715 S001506 81 MULT R1 4716 S001507 B6 FROM R6 4717 S001508 82 MULT R2 ;(R0) <-- Ｙ×ｓｉｎ 4718 S001509 53 ADD R3 4719 S00150A 50 ADD R0 ;x4 4720 S00150B 50 ADD R0 ; 4721 S00150C C0 HIB 4722 S00150D 13 TO R3 ;(R3) <-- けむりセットＸ位置 4723 S00150E 95 SEX 4724 S00150F 3D A8 62 LMS R8,CPLCMKI ;(R8) <-- プレイヤー向き 4725 S001512 E8 DEC R8 4726 S001513 0B 04' BMI TRAIN_MV_2024 4727 S001515 D8 INC R8 4728 ; 4729 S001516 23 WITH R3 4730 S001517 4F NOT 4731 S001518 D3 INC R3 4732 TRAIN_MV_2024 4733 S001519 B5 FROM R5 4734 S00151A 14 TO R4 ;(R4) <-- Ｘ×ｓｉｎ 4735 S00151B 82 MULT R2 4736 S00151C B6 FROM R6 4737 S00151D 81 MULT R1 ;(R0) <-- Ｙ×ｃｏｓ 4738 S00151E 64 SUB R4 4739 S00151F 50 ADD R0 ;x4 4740 S001520 50 ADD R0 ; 4741 S001521 C0 HIB 4742 S001522 95 SEX 4743 S001523 14 TO R4 ;(R4) <-- けむりセットＹ位置 4744 S001524 3E 5E ADD #0EH 4745 ; 4746 S001526 F5 0000" IWT R5,#TRSMK ;(R5) <-- 効果Ｎｏ． 4747 mJSR M_EXINSR ;効果エリア確保 4747+ S001529 94 LINK #4 4747+ S00152A FF 0000" IWT R15, #M_EXINSR 4747+ S00152D 01 NOP 4748 ; 4749 S00152E 3D A0 3D LMS R0,CMSOUND3 ;[♪] 4750 S001531 E0 DEC R0 4751 S001532 0A 06' BPL TRAIN_MV_2025 ;サウンドセットＯＫ？ ( no:TRAIN_MV_2025 ) 4752 S001534 01 NOP 4753 ; 4754 S001535 A0 45 IBT R0,#045H 4755 S001537 3E A0 3D SMS R0,CMSOUND3 ;[♪] 4756 TRAIN_MV_2025 4757 S00153A 3D A0 46 LMS R0,CPLXPSL 4758 S00153D 13 TO R3 4759 S00153E 53 ADD R3 4760 mSTW R3,CEXXPSL,R1 ;Ｘ座標セット 4760+ S00153F F0 10A2 IWT R0,#CEXXPSL 4760+ S001542 51 ADD R1 4760+ S001543 B3 FROM R3 4760+ S001544 30 STW (R0) 4761 S001545 3D A0 48 LMS R0,CPLYPSL 4762 S001548 14 TO R4 4763 S001549 54 ADD R4 4764 mSTW R4,CEXYPSL,R1 ;Ｙ座標セット 4764+ S00154A F0 1142 IWT R0,#CEXYPSL 4764+ S00154D 51 ADD R1 4764+ S00154E B4 FROM R4 4764+ S00154F 30 STW (R0) 4765 S001550 A3 40 IBT R3,#040H ;(R3) <-- スピード 4766 S001552 A4 04 IBT R4,#2*2 ;(R4) <-- 初期パターン 4767 S001554 29 B9 MOVES R9,R9 4768 S001556 09 04' BEQ TRAIN_MV_2026 ;レールモードパターン？ ( no:TRAIN_MV_2026 ) 4769 S001558 01 NOP 4770 ; 4771 S001559 D4 INC R4 ;[ IBT R4,#2*2+1 ] 4772 S00155A 23 WITH R3 4773 S00155B 03 LSR 4774 TRAIN_MV_2026 4775 mSTW R3,CEXWRK2,R1 ;スピードセット 4775+ S00155C F0 1E4E IWT R0,#CEXWRK2 4775+ S00155F 51 ADD R1 4775+ S001560 B3 FROM R3 4775+ S001561 30 STW (R0) 4776 mSTW R4,CEXCHPT,R1 ;初期パターンセット 4776+ S001562 F0 13C2 IWT R0,#CEXCHPT 4776+ S001565 51 ADD R1 4776+ S001566 B4 FROM R4 4776+ S001567 30 STW (R0) 4777 S001568 A3 09 IBT R3,#09H 4778 mSTW R3,CEXTIM0,R1 ;タイマー初期セット 4778+ S00156A F0 1782 IWT R0,#CEXTIM0 4778+ S00156D 51 ADD R1 4778+ S00156E B3 FROM R3 4778+ S00156F 30 STW (R0) 4779 S001570 A0 40 IBT R0,#40H 4780 S001572 5A ADD R10 4781 S001573 E8 DEC R8 4782 S001574 0A 06' BPL TRAIN_MV_2028 4783 S001576 D8 INC R8 4784 ; 4785 S001577 A3 7F IBT R3,#07FH 4786 S001579 3D C3 XOR R3 4787 S00157B D0 INC R0 4788 TRAIN_MV_2028 4789 S00157C 9E LOB 4790 S00157D 13 TO R3 4791 S00157E 50 ADD R0 4792 mSTW R3,CEXWRK0,R1 ;角度セット 4792+ S00157F F0 1E4C IWT R0,#CEXWRK0 4792+ S001582 51 ADD R1 4792+ S001583 B3 FROM R3 4792+ S001584 30 STW (R0) 4793 ; 4794 TRAIN_MV_2030 4795 S001585 60 SUB R0 ;<<< end >>> 4796 S001586 00 STOP 4797 S001587 01 NOP 4798 ; 4799 ;------------------------------------------------------------------------ 4800 ;- レールに乗ってるかチェック - 4801 ;- in : - 4802 ;- ＢＧチェック情報 - 4803 ;- out : - 4804 ;- (Z) <-- 0:レールに乗ってる - 4805 ;- 1: ” 乗ってない - 4806 ;------------------------------------------------------------------------ 4807 RALE_ON_CK 4808 S001588 27 B7 MOVES R7,R7 4809 S00158A 08 14' BNE RALE_ON_CK_050 ;線路？ ( no:RALE_ON_CK_050 ) 4810 S00158C 60 SUB R0 ;[ (Z) <- 1 ] 4811 ; 4812 S00158D BA FROM R10 4813 S00158E 3E 7F AND #0FH 4814 S001590 03 LSR 4815 S001591 1E TO R14 ;(R14) <-- 線路ビットデータポインター 4816 S001592 56 ADD R6 4817 S001593 15 TO R5 ;(R5) <-- 線路ビットデータ 4818 S001594 EF GETB 4819 ; 4820 S001595 B9 FROM R9 4821 S001596 3E 7F AND #0FH 4822 S001598 03 LSR 4823 S001599 FE 0000" IWT R14,#RALE_BIT_AND 4824 S00159C 1E TO R14 4825 S00159D 5E ADD R14 4826 S00159E EF GETB 4827 ; 4828 S00159F 75 AND R5 4829 RALE_ON_CK_050 4830 mRTS 4830+ S0015A0 9B JMP R11 4830+ S0015A1 01 NOP 4831 ; 4832 ;------------------------------------------------------------------------ 4833 ;- 回転スピード計算 - 4834 ;------------------------------------------------------------------------ 4835 RALE_XY_CALC 4836 S0015A2 3D A2 5A LMS R2,CPLMVSP ;(R2) <-- 移動スピード 4837 S0015A5 3D A0 C8 LMS R0,CPTR_SDR 4838 S0015A8 9E LOB 4839 S0015A9 52 ADD R2 ;(C) 4840 S0015AA 90 SBK ;[ SMS CPTR_SDR ] 4841 S0015AB C0 HIB 4842 S0015AC 13 TO R3 ;(R3) <-- 移動ドット数 4843 S0015AD 95 SEX 4844 ; 4845 S0015AE A0 00" IBT R0,#BANK LCOS 4846 S0015B0 3F DF ROMB ;※ＲＯＭアドレス変更（にて復帰） 4847 ; 4848 S0015B2 3D A0 5B LMS R0,CPLANGL ;(R0) <-- 足下角度 4849 S0015B5 FE 0000" IWT R14,#LCOS 4850 S0015B8 1E TO R14 4851 S0015B9 5E ADD R14 4852 S0015BA EF GETB ;(R0) <-- Ｘ移動ドット数 4853 S0015BB 14 TO R4 ;(R4) <-- Ｘスピード 4854 S0015BC 95 SEX 4855 S0015BD 09 0C' BEQ RALE_XY_CALC_10 ;Ｘ移動無し？ ( yes:RALE_XY_CALC_10 ) 4856 S0015BF 01 NOP 4857 ; 4858 S0015C0 23 10 MOVE R0,R3 4859 S0015C2 22 14 MOVE R4,R2 4860 S0015C4 0A 05' BPL RALE_XY_CALC_10 4861 S0015C6 24 WITH R4 4862 ; 4863 S0015C7 4F NOT 4864 S0015C8 D4 INC R4 4865 S0015C9 4F NOT 4866 S0015CA D0 INC R0 4867 RALE_XY_CALC_10 4868 S0015CB 3E A4 54 SMS R4,CPLXSPD ;Ｘスピードセット 4869 S0015CE 20 18 MOVE R8,R0 ;(R8) <-- Ｘ移動ドット数 4870 ; 4871 S0015D0 A0 40 IBT R0,#040H ;[ IWT R0,#LSIN ] 4872 S0015D2 1E TO R14 4873 S0015D3 5E ADD R14 4874 S0015D4 EF GETB ;(R0) <-- Ｙ移動ドット数 4875 S0015D5 1E TO R14 ;(R14) <-- Ｙスピード 4876 S0015D6 95 SEX 4877 S0015D7 09 0C' BEQ RALE_XY_CALC_20 ;Ｙ移動無し？ ( yes:RALE_XY_CALC_20 ) 4878 S0015D9 01 NOP 4879 ; 4880 S0015DA 23 10 MOVE R0,R3 4881 S0015DC 22 1E MOVE R14,R2 4882 S0015DE 0B 05' BMI RALE_XY_CALC_20 4883 S0015E0 2E WITH R14 4884 ; 4885 S0015E1 4F NOT 4886 S0015E2 DE INC R14 4887 S0015E3 4F NOT 4888 S0015E4 D0 INC R0 4889 RALE_XY_CALC_20 4890 S0015E5 3E AE 55 SMS R14,CPLYSPD ;Ｙスピードセット 4891 ; 4892 S0015E8 23 B0 MOVES R3,R0 4893 S0015EA 09 3D' BEQ RALE_XY_CALC_50 ;Ｙ移動無し？ ( yes:RALE_XY_CALC_50 ) 4894 S0015EC 01 NOP 4895 ; 4896 S0015ED 28 B8 MOVES R8,R8 4897 S0015EF 09 38' BEQ RALE_XY_CALC_50 ;Ｘ移動無し？ ( yes:RALE_XY_CALC_50 ) 4898 S0015F1 01 NOP 4899 ; 4900 S0015F2 50 ADD R0 ;(C) <-- (N) 4901 S0015F3 12 TO R2 4902 S0015F4 04 ROL 4903 S0015F5 B8 FROM R8 4904 S0015F6 58 ADD R8 ;(C) <-- (N) 4905 S0015F7 22 WITH R2 4906 S0015F8 04 ROL 4907 ; 4908 S0015F9 3D A0 46 LMS R0,CPLXPSL 4909 S0015FC 03 LSR ;(C) <-- 4910 S0015FD 3D A0 48 LMS R0,CPLYPSL 4911 S001600 04 ROL 4912 ; 4913 S001601 3D C2 XOR R2 4914 S001603 3E 73 AND #03H 4915 S001605 E0 DEC R0 ;[ FFFF,0,1,2 <-- 0,1,2,3 ] 4916 S001606 03 LSR ;[ > 2 ? ] 4917 S001607 09 03' BEQ RALE_XY_CALC_30 4918 S001609 04 ROL 4919 ; 4920 S00160A A0 FF IBT R0,#0-1 4921 RALE_XY_CALC_30 4922 S00160C D0 INC R0 ;[ 0,1,2,0 <-- 0,1,2,3 ] 4923 ; 4924 S00160D 03 LSR 4925 S00160E 0C 0B' BCC RALE_XY_CALC_40 4926 S001610 01 NOP 4927 ; 4928 S001611 28 B8 MOVES R8,R8 4929 S001613 09 06' BEQ RALE_XY_CALC_40 4930 S001615 01 NOP 4931 ; 4932 S001616 0B 03' BMI RALE_XY_CALC_40 4933 S001618 D8 INC R8 ;[+1] 4934 ; 4935 S001619 E8 DEC R8 ;[-1] 4936 S00161A E8 DEC R8 ; 4937 RALE_XY_CALC_40 4938 S00161B 03 LSR 4939 S00161C 0C 0B' BCC RALE_XY_CALC_50 4940 S00161E 01 NOP 4941 ; 4942 S00161F 23 B3 MOVES R3,R3 4943 S001621 09 06' BEQ RALE_XY_CALC_50 4944 S001623 01 NOP 4945 ; 4946 S001624 0B 03' BMI RALE_XY_CALC_50 4947 S001626 D3 INC R3 ;[+1] 4948 ; 4949 S001627 E3 DEC R3 ;[-1] 4950 S001628 E3 DEC R3 ; 4951 RALE_XY_CALC_50 4952 S001629 3D A0 46 LMS R0,CPLXPSL 4953 S00162C 58 ADD R8 4954 S00162D 90 SBK ;Ｘ座標移動 4955 S00162E 3D A0 48 LMS R0,CPLYPSL 4956 S001631 53 ADD R3 4957 S001632 90 SBK ;Ｙ座標移動 4958 ; 4959 S001633 A0 00" IBT R0,#BANK PLAYER_DATA 4960 S001635 3F DF ROMB ;ＲＯＭアドレス復帰 4961 ; 4962 mRTS 4962+ S001637 9B JMP R11 4962+ S001638 01 NOP 4963 ; 4964 ;**************************************************************** 4965 ;* 汽車基本ルーチン * 4966 ;**************************************************************** 4967 TRAIN_SUB 4968 S001639 3E AB 34 SMS R11,RTS4 ;[ return address save ] 4969 ; 4970 ;-------------- 回転キャラクターセット -------------------------- 4971 S00163C 3D A0 C0 LMS R0,CPTR_MODE 4972 S00163F E0 DEC R0 4973 S001640 A1 72 IBT R1,#070H+2 4974 S001642 61 SUB R1 ;(C) set 4975 S001643 FE 0186 IWT R14,#TR00 ;パターンＮｏ．セット 4976 S001646 F0 0000" IWT R0,#TR_CHR_ADRS 4977 S001649 0D 06' BCS TRAIN_SUB_0050 ;レールモード？ ( no:TRAIN_SUB_0050 ) 4978 S00164B 01 NOP 4979 ; 4980 S00164C 3E 54 ADD #(2*2) 4981 S00164E FE 0187 IWT R14,#TR01 ;パターンＮｏ．セット 4982 TRAIN_SUB_0050 4983 S001651 3E AE 5F SMS R14,CPLPATN 4984 ; 4985 S001654 3D AE C2 LMS R14,CPTR_PTNO 4986 S001657 1E TO R14 4987 S001658 5E ADD R14 4988 S001659 EF GETB 4989 S00165A DE INC R14 4990 S00165B 1C TO R12 ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 4991 S00165C 3D EF GETBH 4992 S00165E AD 54 IBT R13,#BANK CIPCHD ;(R13) <-- キャラクターアドレス（Ｂ） 4993 ; 4994 S001660 A2 20 IBT R2,#020H ;(R2) <-- ビットマップ座標＿Ｙ 4995 S001662 A3 00 IBT R3,#000H ;(R3) <-- ” ＿Ｘ 4996 S001664 3D A0 BF LMS R0,CPTR_ANGL 4997 S001667 15 TO R5 ;(R5) <-- 角度 4998 S001668 C0 HIB 4999 S001669 F6 4000 IWT R6,#040H*100H 5000 S00166C 56 ADD R6 5001 S00166D 50 ADD R0 ;(C) <-- (N) 5002 S00166E 09 10' BEQ TRAIN_SUB_0150 ;プレイヤー向き変更？ ( no:TRAIN_SUB_0150 ) 5003 S001670 01 NOP 5004 ; 5005 S001671 0C 0A' BCC TRAIN_SUB_0100 ;回転角度変更？ ( no:TRAIN_SUB_0100 ) 5006 S001673 60 SUB R0 ;[ IBT R0,#0 ] プレイヤー右向きセット 5007 ; 5008 S001674 A0 7F IBT R0,#7FH ;回転角度変更 5009 S001676 3D C5 XOR R5 5010 S001678 D0 INC R0 5011 S001679 15 TO R5 5012 S00167A 9E LOB 5013 S00167B A0 02 IBT R0,#02H ;プレイヤー左向きセット 5014 TRAIN_SUB_0100 5015 S00167D 3E A0 62 SMS R0,CPLCMKI ;プレイヤー向きセット 5016 ; 5017 TRAIN_SUB_0150 5018 S001680 3D A0 EB LMS R0,CPLFLSH 5019 ;;;; IWT R6,#090H 5020 S001683 A6 50 IBT R6,#050H 5021 S001685 66 SUB R6 5022 S001686 0B 07' BMI TRAIN_SUB_0200 ;ダメージ回転？ ( no:TRAIN_SUB_0200 ) 5023 S001688 01 NOP 5024 ; 5025 S001689 3D A0 C7 LMS R0,CPTR_FLCT 5026 S00168C 55 ADD R5 5027 S00168D 15 TO R5 5028 S00168E 9E LOB 5029 TRAIN_SUB_0200 5030 S00168F 3D A6 C1 LMS R6,CPTR_ZOOM ;(R6) <-- 倍率 5031 mJSR R_32_RTZ_32 ;キャラクター拡大、縮小、回転（サイズ ３２×３２） 5031+ S001692 94 LINK #4 5031+ S001693 FF 0000" IWT R15, #R_32_RTZ_32 5031+ S001696 01 NOP 5032 ; 5033 S001697 A0 00" IBT R0,#BANK PLAYER_DATA 5034 S001699 3F DF ROMB ;ＲＯＭアドレス復帰 5035 ; 5036 S00169B 3D AB 34 LMS R11,RTS4 ;[ return address load ] 5037 mRTS 5037+ S00169E 9B JMP R11 5037+ S00169F 01 NOP 5038 ; 5039 ;************************************************************************ 5040 ;* * 5041 ;* モグラ * 5042 ;* * 5043 ;************************************************************************ 5044 ; 5045 MOGURA_MV 5046 S0016A0 60 SUB R0 ;[ IBT R0,#0 ] 5047 S0016A1 3E A0 5A SMS R0,CPLMVSP ;移動スピードクリアー 5048 S0016A4 3E A0 C5 SMS R0,CPMG_CNVKEY ;移動方向変換コントローラー情報（連続）クリアー 5049 ; 5050 S0016A7 3D A0 EB LMS R0,CPLFLSH 5051 ;;;; IWT R1,#090H 5052 S0016AA A1 50 IBT R1,#050H 5053 S0016AC 61 SUB R1 5054 S0016AD 0B 0B' BMI MOGURA_MV_0050 ;プレイヤーダメージ？ ( no:MOGURA_MV_0050 ) 5055 S0016AF 01 NOP 5056 ; 5057 ;-------------- プレイヤーダメージ！！ ---------------------------------- 5058 S0016B0 3D A0 CA LMS R0,CPMG_FLCT 5059 S0016B3 A2 10 IBT R2,#010H 5060 S0016B5 52 ADD R2 5061 mDJMP_X MOGURA_MV_0400 5061+ S0016B6 FF 179E' IWT R15, #MOGURA_MV_0400 5062 S0016B9 90 SBK ;[ SMS R0,CPMG_FLCT ] 5063 ; 5064 ;------------------------------------------------------------------------ 5065 ;- コントローラー入力 - 5066 ;------------------------------------------------------------------------ 5067 MOGURA_MV_0050 5068 ; 5069 ;-------------- 移動キー変換 -------------------------------------------- 5070 S0016BA 3D F0 0071 LM R0,CMKEYC1 5071 S0016BE 20 13 MOVE R3,R0 ;(R3) <-- コントローラー情報（連続） 5072 S0016C0 17 TO R7 ;(R7) <-- コントローラー情報（連続） 5073 S0016C1 3F 7F BIC #00001111B ;[ AND #0FFF0H ] 5074 S0016C3 15 TO R5 ;(R5) <-- コントローラー左右情報（連続） 5075 S0016C4 3E 73 AND #00000011B 5076 S0016C6 3E 7C AND #00001100B 5077 S0016C8 03 LSR 5078 S0016C9 16 TO R6 ;(R6) <-- コントローラー上下情報（連続） 5079 S0016CA 03 LSR 5080 ; 5081 S0016CB 3D A0 C1 LMS R0,CPMG_MVMK 5082 S0016CE 3D A1 C0 LMS R1,CPMG_KEYF 5083 S0016D1 61 SUB R1 5084 S0016D2 3E 73 AND #03H 5085 S0016D4 20 14 MOVE R4,R0 ;(R4) <-- 移動キー方向 5086 S0016D6 03 LSR 5087 S0016D7 0C 07' BCC MOGURA_MV_0060 ;左右⇔上下キー入れ替え？ ( yes:MOGURA_MV_0060 ) 5088 S0016D9 01 NOP 5089 ; 5090 S0016DA 25 1E MOVE R14,R5 ;左右⇔上下キー入れ替え 5091 S0016DC 26 15 MOVE R5,R6 5092 S0016DE 2E 16 MOVE R6,R14 5093 MOGURA_MV_0060 5094 S0016E0 F0 0000" IWT R0,#MG_KEYCNV 5095 S0016E3 1E TO R14 5096 S0016E4 54 ADD R4 5097 S0016E5 EF GETB 5098 S0016E6 1E TO R14 5099 S0016E7 03 LSR 5100 S0016E8 0C 09' BCC MOGURA_MV_0070 ;上⇔下キー入れ替え？ ( no:MOGURA_MV_0070 ) 5101 S0016EA 01 NOP 5102 ; 5103 S0016EB 26 WITH R6 ;上⇔下キー入れ替え 5104 S0016EC 03 LSR 5105 S0016ED 04 ROL 5106 S0016EE 50 ADD R0 5107 S0016EF 3E 72 AND #00000010B 5108 S0016F1 16 TO R6 5109 S0016F2 C6 OR R6 5110 MOGURA_MV_0070 5111 S0016F3 EE DEC R14 5112 S0016F4 0B 09' BMI MOGURA_MV_0080 ;左⇔右キー入れ替え？ ( no:MOGURA_MV_0080 ) 5113 S0016F6 01 NOP 5114 ; 5115 S0016F7 25 WITH R5 ;左⇔右キー入れ替え 5116 S0016F8 03 LSR 5117 S0016F9 04 ROL 5118 S0016FA 50 ADD R0 5119 S0016FB 3E 72 AND #00000010B 5120 S0016FD 15 TO R5 5121 S0016FE C5 OR R5 5122 MOGURA_MV_0080 5123 S0016FF B6 FROM R6 5124 S001700 56 ADD R6 5125 S001701 50 ADD R0 5126 S001702 C5 OR R5 5127 S001703 11 TO R1 ;(R1) <-- コントローラー情報（連続） 5128 S001704 C7 OR R7 5129 ; 5130 ;-------------- 移動キー入力チェック ------------------------------------ 5131 S001705 3D A2 C1 LMS R2,CPMG_MVMK ;(R2) <-- 移動方向 5132 S001708 F0 0000" IWT R0,#MG_MVKEY 5133 S00170B 52 ADD R2 5134 S00170C 1E TO R14 5135 S00170D 52 ADD R2 5136 S00170E EF GETB ;(R0) <-- 左右移動キーデータ 5137 ; 5138 S00170F 15 TO R5 ;[ * not break (R0) ] 5139 S001710 71 AND R1 5140 S001711 08 07' BNE MOGURA_MV_0090 ;移動キー入力？ ( yes:MOGURA_MV_0090 ) 5141 S001713 DE INC R14 5142 ; 5143 ;-------------- 移動キー入力無し -------------------------------- 5144 S001714 3E A2 C0 SMS R2,CPMG_KEYF ;移動キーロックフラグセット 5145 S001717 05 3A' BRA MOGURA_MV_0200 5146 S001719 01 NOP 5147 ; 5148 ;-------------- 移動キー入力 ------------------------------------ 5149 MOGURA_MV_0090 5150 S00171A 3D A5 DA LMS R5,CONLFFG 5151 S00171D 25 B5 MOVES R5,R5 5152 S00171F 08 07' BNE MOGURA_MV_0092 ;リフトに乗ってる？ ( yes:MOGURA_MV_0092 ) 5153 S001721 01 NOP 5154 ; 5155 S001722 15 TO R5 5156 S001723 3F CF XOR #00001111B ;上下キーキャンセル 5157 S001725 21 WITH R1 5158 S001726 3D 75 BIC R5 5159 ; 5160 MOGURA_MV_0092 5161 S001728 F5 0100 IWT R5,#0100H ;(R5) <-- 右側移動スピード 5162 S00172B EF GETB 5163 S00172C 71 AND R1 5164 S00172D 09 06' BEQ MOGURA_MV_0100 ;左側移動キー入力？ ( no:MOGURA_MV_0100 ) 5165 S00172F 60 SUB R0 ;[ IBT R0,#0 ] (R0) <-- プレイヤー向き 5166 ; 5167 S001730 F5 FF00 IWT R5,#-0100H ;(R5) <-- 左側移動スピード 5168 S001733 A0 02 IBT R0,#02H ;(R0) <-- プレイヤー向き 5169 MOGURA_MV_0100 5170 S001735 3D A6 60 LMS R6,CPLJUMP 5171 S001738 E6 DEC R6 5172 S001739 0A 04' BPL MOGURA_MV_0110 ;ジャンプ中？ ( yes:MOGURA_MV_0110 ) 5173 S00173B D6 INC R6 5174 ; 5175 S00173C 3E A5 5A SMS R5,CPLMVSP 5176 MOGURA_MV_0110 5177 S00173F 20 15 MOVE R5,R0 ;(R5) <-- プレイヤー向き 5178 ; 5179 S001741 B2 FROM R2 5180 S001742 03 LSR 5181 S001743 0D 0E' BCS MOGURA_MV_0200 ;上下移動？ ( yes:MOGURA_MV_0200 ) 5182 S001745 01 NOP 5183 ; 5184 S001746 3D F0 017F LM R0,CPMG_ANGL+1 5185 S00174A A6 7F IBT R6,#07FH 5186 S00174C 76 AND R6 5187 S00174D 08 04' BNE MOGURA_MV_0200 ;向き変更ＯＫ？ ( no:MOGURA_MV_0200 ) 5188 S00174F 01 NOP 5189 ; 5190 S001750 3E A5 62 SMS R5,CPLCMKI ;プレイヤー向きセット 5191 ; 5192 MOGURA_MV_0200 5193 S001753 3E A1 C5 SMS R1,CPMG_CNVKEY ;移動方向変換コントローラー情報（連続） 5194 ; 5195 ;------------------------------------------------------------------------ 5196 ;- 回転角計算 - 5197 ;------------------------------------------------------------------------ 5198 S001756 3D A6 5A LMS R6,CPLMVSP 5199 S001759 E6 DEC R6 5200 S00175A 0A 04' BPL MOGURA_MV_0250 5201 S00175C D6 INC R6 5202 ; 5203 S00175D 26 WITH R6 5204 S00175E 4F NOT 5205 S00175F D6 INC R6 5206 MOGURA_MV_0250 5207 S001760 F0 0400 IWT R0,#0400H ;x4.0 5208 S001763 3D 9F LMULT 5209 S001765 24 WITH R4 5210 S001766 C0 HIB 5211 S001767 9E LOB 5212 S001768 4D SWAP 5213 S001769 14 TO R4 ;(R4) <-- 回転スピード 5214 S00176A C4 OR R4 5215 S00176B 3D AA C2 LMS R10,CPMG_TOAN ;(R10) <-- 目標回転角度 5216 mJSR C_ANGL_CALC 5216+ S00176E 94 LINK #4 5216+ S00176F FF 03D9' IWT R15, #C_ANGL_CALC 5216+ S001772 01 NOP 5217 ; 5218 ;------------------------------------------------------------------------ 5219 ;- パターンＮｏ．セット - 5220 ;------------------------------------------------------------------------ 5221 S001773 26 B6 MOVES R6,R6 5222 S001775 08 0A' BNE MOGURA_MV_0300 ;ＳＴＯＰ？ ( no:MOGURA_MV_0300 ) 5223 S001777 60 SUB R0 ;[ IBT R0,#0 ] 5224 ; 5225 S001778 3E A0 C4 SMS R0,CPMG_WALK 5226 S00177B 3E A0 C3 SMS R0,CPMG_PTNO 5227 S00177E 05 1E' BRA MOGURA_MV_0400 5228 S001780 01 NOP 5229 5230 001781 MOGURA_MV_0300 EQU $ 5231 S001781 F0 0080 IWT R0,#080H 5232 S001784 66 SUB R6 5233 S001785 0D 03' BCS MOGURA_MV_0350 5234 S001787 56 ADD R6 5235 ; 5236 S001788 26 10 MOVE R0,R6 5237 MOGURA_MV_0350 5238 S00178A 3D A1 C4 LMS R1,CPMG_WALK 5239 S00178D 51 ADD R1 5240 S00178E 90 SBK ;[ SMS R0,CPMG_WALK ] 5241 S00178F F1 0300 IWT R1,#0300H 5242 S001792 61 SUB R1 5243 S001793 0C 09' BCC MOGURA_MV_0400 ;パターン切り替え？ ( no:MOGURA_MV_0400 ) 5244 S001795 01 NOP 5245 ; 5246 S001796 90 SBK ;[ SMS R0,CPMG_WALK ] 5247 S001797 3D A0 C3 LMS R0,CPMG_PTNO ;パターン切り替え 5248 S00179A 3E 77 AND #07H 5249 S00179C D0 INC R0 5250 S00179D 90 SBK ;[ SMS R0,CPMG_PTNO ] 5251 ; 5252 ;------------------------------------------------------------------------ 5253 ;- モグラ基本ルーチン - 5254 ;------------------------------------------------------------------------ 5255 MOGURA_MV_0400 5256 mJSR MOGURA_SUB ;モグラ基本ルーチン 5256+ S00179E 94 LINK #4 5256+ S00179F FF 17A6' IWT R15, #MOGURA_SUB 5256+ S0017A2 01 NOP 5257 ; 5258 S0017A3 60 SUB R0 ;<<< end >>> 5259 S0017A4 00 STOP 5260 S0017A5 01 NOP 5261 ; 5262 ;**************************************************************** 5263 ;* モグラ基本ルーチン * 5264 ;**************************************************************** 5265 MOGURA_SUB 5266 S0017A6 3E AB 34 SMS R11,RTS4 ;[ return address save ] 5267 ; 5268 ;-------------- 回転キャラクターセット -------------------------- vvv******* warn :value out of range 5269 S0017A9 FC 2060 IWT R12,#CIPCHD+2060H ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 5270 S0017AC 3D A0 5F LMS R0,CPLPATN 5271 S0017AF FD 0198 IWT R13,#Mg02 5272 S0017B2 6D SUB R13 5273 S0017B3 09 10' BEQ MOGURA_SUB_0100 ;移動？ ( no:MOGURA_SUB_0100 ) 5274 S0017B5 01 NOP 5275 ; vvv******* warn :value out of range 5276 S0017B6 FC 20C0 IWT R12,#CIPCHD+20C0H ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 5277 S0017B9 3D F0 1974 LM R0,CFRCNT2 5278 S0017BD 3E 72 AND #02H 5279 S0017BF 09 04' BEQ MOGURA_SUB_0100 5280 S0017C1 01 NOP 5281 ; vvv******* warn :value out of range 5282 S0017C2 FC 20E0 IWT R12,#CIPCHD+20E0H ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 5283 MOGURA_SUB_0100 5284 S0017C5 AD 54 IBT R13,#BANK CIPCHD ;(R13) <-- キャラクターアドレス（Ｂ） 5285 ; 5286 S0017C7 A2 20 IBT R2,#020H ;(R2) <-- ビットマップ座標＿Ｙ 5287 S0017C9 A3 00 IBT R3,#000H ;(R3) <-- ” ＿Ｘ 5288 S0017CB 3D A0 BF LMS R0,CPMG_ANGL 5289 S0017CE 15 TO R5 ;(R5) <-- 角度 5290 S0017CF C0 HIB 5291 S0017D0 3D A0 EB LMS R0,CPLFLSH 5292 ;;;; IWT R6,#090H 5293 S0017D3 A6 50 IBT R6,#050H 5294 S0017D5 66 SUB R6 5295 S0017D6 0B 07' BMI MOGURA_SUB_0150 ;ダメージ回転？ ( no:MOGURA_SUB_0150 ) 5296 S0017D8 01 NOP 5297 ; 5298 S0017D9 3D A0 CA LMS R0,CPMG_FLCT 5299 S0017DC 55 ADD R5 5300 S0017DD 15 TO R5 5301 S0017DE 9E LOB 5302 MOGURA_SUB_0150 5303 S0017DF 3D A6 C3 LMS R6,CPMG_PTNO 5304 S0017E2 E6 DEC R6 5305 S0017E3 0B 10' BMI MOGURA_SUB_0200 ;止まってる？ ( yes:MOGURA_SUB_0200 ) 5306 S0017E5 D6 INC R6 5307 ; 5308 S0017E6 A0 10 IBT R0,#(100H/8)/2 5309 S0017E8 55 ADD R5 5310 S0017E9 03 LSR ;1/(100H/8) 5311 S0017EA 03 LSR ; 5312 S0017EB 03 LSR ; 5313 S0017EC 03 LSR ; 5314 S0017ED 03 LSR ; 5315 S0017EE B6 FROM R6 5316 S0017EF 60 SUB R0 5317 S0017F0 E0 DEC R0 5318 S0017F1 16 TO R6 5319 S0017F2 3E 77 AND #07H 5320 S0017F4 D6 INC R6 5321 MOGURA_SUB_0200 5322 S0017F5 F0 0198 IWT R0,#Mg02 ;パターンＮｏ．セット 5323 S0017F8 56 ADD R6 5324 S0017F9 3E A0 5F SMS R0,CPLPATN 5325 ; 5326 S0017FC F6 0100 IWT R6,#0100H ;(R6) <-- 倍率 5327 mJSR R_32_RTZ_32 ;キャラクター拡大、縮小、回転（サイズ ３２×３２） 5327+ S0017FF 94 LINK #4 5327+ S001800 FF 0000" IWT R15, #R_32_RTZ_32 5327+ S001803 01 NOP 5328 ; 5329 ;-------------- 座標計算 ---------------------------------------- 5330 mJSR MR_CALC ;座標計算 5330+ S001804 94 LINK #4 5330+ S001805 FF 10D0' IWT R15, #MR_CALC 5330+ S001808 01 NOP 5331 ; 5332 ;-------------- ＢＧチェック ------------------------------------ 5333 mJSR MG_BGCK ;モグラＢＧチェック 5333+ S001809 94 LINK #4 5333+ S00180A FF 1813' IWT R15, #MG_BGCK 5333+ S00180D 01 NOP 5334 ; 5335 S00180E 3D AB 34 LMS R11,RTS4 ;[ return address load ] 5336 mRTS 5336+ S001811 9B JMP R11 5336+ S001812 01 NOP 5337 ; 5338 ;************************************************************************ 5339 ;* モグラＢＧチェック * 5340 ;************************************************************************ 5341 MG_BGCK 5342 S001813 3E AB 32 SMS R11,RTS2 ;[ return address save ] 5343 ; 5344 S001816 3D A0 C2 LMS R0,CPMG_TOAN 5345 S001819 11 TO R1 5346 S00181A C0 HIB 5347 S00181B 3D A0 BF LMS R0,CPMG_ANGL 5348 S00181E 3D A2 62 LMS R2,CPLCMKI 5349 S001821 E2 DEC R2 5350 S001822 0B 0D' BMI MG_BGCK_0000 5351 S001824 C0 HIB 5352 ; 5353 S001825 A3 7F IBT R3,#7FH 5354 S001827 3D C3 XOR R3 5355 S001829 D0 INC R0 5356 S00182A 9E LOB 5357 S00182B 21 WITH R1 5358 S00182C 3D C3 XOR R3 5359 S00182E D1 INC R1 5360 S00182F 21 WITH R1 5361 S001830 9E LOB 5362 MG_BGCK_0000 5363 S001831 61 SUB R1 5364 S001832 09 2C' BEQ MG_BGCK_0006 ;キャラクター角度ＯＫ？ ( yes:MG_BGCK_0006 ) 5365 S001834 01 NOP 5366 ; 5367 ;-------------- 目標角度と一致してない ---------------------------------- 5368 S001835 3D A1 5A LMS R1,CPLMVSP 5369 S001838 21 B1 MOVES R1,R1 5370 S00183A 08 1F' BNE MG_BGCK_0004 ;移動中？ ( yes:MG_BGCK_0004 ) 5371 S00183C 01 NOP 5372 ; 5373 S00183D 3D A1 C1 LMS R1,CPMG_MVMK 5374 S001840 21 B1 MOVES R1,R1 5375 S001842 09 17' BEQ MG_BGCK_0004 ;下移動？ ( yes:MG_BGCK_0004 ) 5376 S001844 01 NOP 5377 ; 5378 S001845 A2 01 IBT R2,#1 5379 S001847 4D SWAP 5380 S001848 0A 06' BPL MG_BGCK_0002 5381 S00184A 4D SWAP 5382 ; 5383 S00184B 4F NOT 5384 S00184C D0 INC R0 5385 S00184D 9E LOB 5386 S00184E A2 FF IBT R2,#-1 5387 MG_BGCK_0002 5388 S001850 A3 20 IBT R3,#20H 5389 S001852 63 SUB R3 5390 S001853 0C 06' BCC MG_BGCK_0004 ;移動方向変更？ ( no:MG_BGCK_0004 ) 5391 S001855 01 NOP 5392 ; 5393 ;-------------- 移動方向変更 ------------------------------------ 5394 S001856 B1 FROM R1 5395 S001857 52 ADD R2 5396 S001858 3E 73 AND #03H 5397 S00185A 90 SBK ;[ SMS R0,CPMG_MVMK ] 5398 ; 5399 MG_BGCK_0004 5400 S00185B A0 FE IBT R0,#0FEH ;[ IWT R0,#0FFFEH ] エラー角度セット 5401 S00185D 05 02' BRA MG_BGCK_0007 5402 S00185F 01 NOP 5403 ; 5404 ;-------------- 目標向きと一致 ------------------------------------------ 5405 MG_BGCK_0006 5406 S001860 51 ADD R1 5407 ; 5408 MG_BGCK_0007 5409 S001861 3E A0 C6 SMS R0,CPMG_MKANGL ;前方向き回転角度セット 5410 ; 5411 S001864 3D A9 46 LMS R9,CPLXPSL ;(R9) <-- プレイヤーＸ座標 5412 S001867 3D AA 48 LMS R10,CPLYPSL ;(R10) <-- ” Ｙ ” 5413 S00186A A2 00 IBT R2,#00 ;(R2) <-- ＢＧ当たりフラグ 5414 S00186C 3E A2 7F SMS R2,CPLWATR ;水中当たりフラグクリアー 5415 S00186F 3E A2 80 SMS R2,CPLTNEL ;トンネル当たりフラグクリアー 5416 S001872 3E A2 81 SMS R2,CPLHARI ;ダメージＢＧ当たりフラグクリアー 5417 S001875 3E A2 7D SMS R2,CPLBGNO ;歩いている床のＢＧタイプクリアー 5418 S001878 3E A2 C9 SMS R2,CPMG_WRK0 ;押しカウンタークリアーフラグセット 5419 S00187B A3 00 IBT R3,#00 ;壊れるＢＧ当たりフラグクリアー 5420 ; 5421 S00187D FE 0000" IWT R14,#PLBGCK_POINT_MG ;(R14) <-- ＢＧチェックポイントデータポインター 5422 ; 5423 ;------------------------------------------------------------------------ 5424 ;- 左上サイドチェック - 5425 ;------------------------------------------------------------------------ 5426 S001880 A1 02 IBT R1,#AL ;(R1) <-- ＢＧ当たりチェックデータ 5427 S001882 A4 FF IBT R4,#0FFH ;[ IWT R4,#0FFFFH ] (R4) <-- 壊れるＢＧ当たり角度 5428 mJSR_X MG_BGCK_1P_IN ;１点チェック 5428+ S001884 94 LINK #4 5428+ S001885 FF 1BA0' IWT R15, #MG_BGCK_1P_IN 5429 S001888 3E HEX 3E ;[ SMS R11,RTS1 ] 5430 ; 5431 ;------------------------------------------------------------------------ 5432 ;- 左中心サイドチェック - 5433 ;------------------------------------------------------------------------ 5434 S001889 F4 0080 IWT R4,#080H ;(R4) <-- 壊れるＢＧ当たり角度 5435 mJSR_X MG_BGCK_1P ;１点チェック 5435+ S00188C 94 LINK #4 5435+ S00188D FF 1BAB' IWT R15, #MG_BGCK_1P 5436 S001890 3E HEX 3E ;[ SMS R11,RTS1 ] 5437 ; 5438 ;------------------------------------------------------------------------ 5439 ;- 右上サイドチェック - 5440 ;------------------------------------------------------------------------ 5441 S001891 A4 FF IBT R4,#0FFH ;[ IWT R4,#0FFFFH ] (R4) <-- 壊れるＢＧ当たり角度 5442 mJSR_X MG_BGCK_1P ;１点チェック 5442+ S001893 94 LINK #4 5442+ S001894 FF 1BAB' IWT R15, #MG_BGCK_1P 5443 S001897 3E HEX 3E ;[ SMS R11,RTS1 ] 5444 ; 5445 ;------------------------------------------------------------------------ 5446 ;- 右中心サイドチェック - 5447 ;------------------------------------------------------------------------ 5448 S001898 A4 00 IBT R4,#00H ;(R4) <-- 壊れるＢＧ当たり角度 5449 mJSR_X MG_BGCK_1P ;１点チェック 5449+ S00189A 94 LINK #4 5449+ S00189B FF 1BAB' IWT R15, #MG_BGCK_1P 5450 S00189E 3E HEX 3E ;[ SMS R11,RTS1 ] 5451 ; 5452 ;------------------------------------------------------------------------ 5453 ;- 頭チェック - 5454 ;------------------------------------------------------------------------ 5455 S00189F F4 00C0 IWT R4,#0C0H ;(R4) <-- 壊れるＢＧ当たり角度 5456 mJSR_X MG_BGCK_1P ;１点チェック 5456+ S0018A2 94 LINK #4 5456+ S0018A3 FF 1BAB' IWT R15, #MG_BGCK_1P 5457 S0018A6 3E HEX 3E ;[ SMS R11,RTS1 ] 5458 ; 5459 S0018A7 3D A0 80 LMS R0,CPLTNEL ;左、右頭フラグセット 5460 S0018AA 15 TO R5 5461 S0018AB 03 LSR 5462 S0018AC 04 ROL 5463 S0018AD 90 SBK ;[ SMS R0,CPLTNEL ] 5464 ; 5465 S0018AE B2 FROM R2 5466 S0018AF 03 LSR 5467 S0018B0 22 WITH R2 5468 S0018B1 04 ROL 5469 ; 5470 S0018B2 B3 FROM R3 5471 S0018B3 03 LSR 5472 S0018B4 23 WITH R3 5473 S0018B5 04 ROL 5474 ; 5475 ;------------------------------------------------------------------------ 5476 ;- 左足チェック - 5477 ;------------------------------------------------------------------------ 5478 S0018B6 A1 03 IBT R1,#AL+MD ;(R1) <-- ＢＧ当たりチェックデータ 5479 S0018B8 A4 FF IBT R4,#0FFH ;[ IWT R4,#0FFFFH ] (R4) <-- 壊れるＢＧ当たり角度 5480 mJSR_X MG_BGCK_1P ;１点チェック 5480+ S0018BA 94 LINK #4 5480+ S0018BB FF 1BAB' IWT R15, #MG_BGCK_1P 5481 S0018BE 3E HEX 3E ;[ SMS R11,RTS1 ] 5482 ; 5483 ;------------------------------------------------------------------------ 5484 ;- 中足チェック - 5485 ;------------------------------------------------------------------------ 5486 S0018BF A4 40 IBT R4,#040H ;(R4) <-- 壊れるＢＧ当たり角度 5487 mJSR_X MG_BGCK_1P ;１点チェック 5487+ S0018C1 94 LINK #4 5487+ S0018C2 FF 1BAB' IWT R15, #MG_BGCK_1P 5488 S0018C5 3E HEX 3E ;[ SMS R11,RTS1 ] 5489 ; 5490 ;------------------------------------------------------------------------ 5491 ;- 右足チェック - 5492 ;------------------------------------------------------------------------ 5493 S0018C6 A4 FF IBT R4,#0FFH ;[ IWT R4,#0FFFFH ] (R4) <-- 壊れるＢＧ当たり角度 5494 mJSR_X MG_BGCK_1P ;１点チェック 5494+ S0018C8 94 LINK #4 5494+ S0018C9 FF 1BAB' IWT R15, #MG_BGCK_1P 5495 S0018CC 3E HEX 3E ;[ SMS R11,RTS1 ] 5496 ; 5497 S0018CD 3D A0 DA LMS R0,CONLFFG 5498 S0018D0 3E 60 SUB #0 5499 S0018D2 09 04' BEQ MG_BGCK_00070 ;リフトに乗ってる？ ( no:MG_BGCK_00070 ) 5500 S0018D4 01 NOP 5501 ; 5502 S0018D5 22 WITH R2 ;足ＢＧ当たりフラグセット 5503 S0018D6 3E C7 OR #111B 5504 ; 5505 MG_BGCK_00070 5506 S0018D8 3D A0 C6 LMS R0,CPMG_MKANGL ;前フレーム前方向き回転角度セット 5507 S0018DB 3E A0 C7 SMS R0,CPMG_MKANGL_OLD 5508 ; 5509 S0018DE 3D A0 C9 LMS R0,CPMG_WRK0 5510 S0018E1 E0 DEC R0 5511 S0018E2 0A 04' BPL MG_BGCK_0008 ;押しカウンタークリアー？ ( no:MG_BGCK_0008 ) 5512 S0018E4 60 SUB R0 ;[ IBT R0,#0 ] 5513 ; 5514 S0018E5 3E A0 C8 SMS R0,CPMG_BRBGCT ;押しカウンタークリアー 5515 MG_BGCK_0008 5516 ; 5517 ;------------------------------------------------------------------------ 5518 ;- 座標補正チェック - 5519 ;------------------------------------------------------------------------ 5520 S0018E8 3D A7 C5 LMS R7,CPMG_CNVKEY ;(R7) <-- 移動方向変換コントローラー情報（連続） 5521 S0018EB A4 00 IBT R4,#0 ;(R4) <-- 目標角度加算値 5522 ; 5523 S0018ED 3D A1 C1 LMS R1,CPMG_MVMK ;(R1) <-- 移動方向 5524 S0018F0 B1 FROM R1 5525 S0018F1 03 LSR 5526 S0018F2 0C 07' BCC MG_BGCK_0010 ;Ｙ座標補正？ ( yes:MG_BGCK_0010 ) 5527 S0018F4 01 NOP 5528 ; 5529 S0018F5 29 1E MOVE R14,R9 ;Ｘ⇔Ｙ入れ替え 5530 S0018F7 2A 19 MOVE R9,R10 5531 S0018F9 2E 1A MOVE R10,R14 5532 MG_BGCK_0010 5533 S0018FB F0 0000" IWT R0,#MG_POSCNV 5534 S0018FE 1E TO R14 5535 S0018FF 51 ADD R1 5536 S001900 EF GETB 5537 S001901 20 18 MOVE R8,R0 5538 S001903 1E TO R14 5539 S001904 03 LSR 5540 S001905 0C 04' BCC MG_BGCK_0020 ;Ｙ符号反転？ ( no:MG_BGCK_0020 ) 5541 S001907 01 NOP 5542 ; 5543 S001908 2A WITH R10 ;Ｙ符号反転 5544 S001909 4F NOT 5545 S00190A DA INC R10 5546 MG_BGCK_0020 5547 S00190B EE DEC R14 5548 S00190C 0B 04' BMI MG_BGCK_0030 ;Ｘ符号反転？ ( no:MG_BGCK_0030 ) 5549 S00190E 01 NOP 5550 ; 5551 S00190F 29 WITH R9 ;Ｘ符号反転 5552 S001910 4F NOT 5553 S001911 D9 INC R9 5554 MG_BGCK_0030 5555 ; 5556 ;---------------------------------------------------------------- 5557 ;- 足補正チェック - 5558 ;---------------------------------------------------------------- 5559 S001912 AC 00 IBT R12,#0 ;(R12) <-- 下側へ自動移動向き変更フラグ 5560 ; 5561 S001914 B1 FROM R1 5562 S001915 3E 8A MULT #5*2 5563 S001917 FE 0000" IWT R14,#MG_FOOTBGP 5564 S00191A 1E TO R14 5565 S00191B 5E ADD R14 5566 S00191C EF GETB 5567 S00191D DE INC R14 5568 S00191E 3D EF GETBH ;(R0) <-- 補正中心点チェックデータ 5569 ; 5570 S001920 72 AND R2 5571 S001921 09 13' BEQ MG_BGCK_0060 ;足補正中心点ＢＧ当たり？ ( no:MG_BGCK_0060 ) 5572 S001923 DE INC R14 5573 ; 5574 ;-------------- 足補正中心点ＢＧ当たり -------------------------- 5575 S001924 73 AND R3 5576 ;;;; BNE MG_BGCK_0040 ;足補正中心点壊れるＢＧ？ ( yes:MG_BGCK_0040 ) 5577 S001925 09 05' BEQ MG_BGCK_0050 ;足補正中心点壊れるＢＧ？ ( no:MG_BGCK_0040 ) 5578 ;;;; NOP 5579 S001927 60 SUB R0 5580 ; 5581 ;;;; GETB 5582 ;;;; INC R14 5583 ;;;; GETBH ;(R0) <-- 足補正サイドチェックデータ 5584 ;;;;; 5585 ;;;; TO R6 5586 ;;;; AND R2 5587 ;;;; SUB R6 5588 ;;;; BEQ MG_BGCK_0050 ;足補正両サイドＢＧ当たり？ ( yes:MG_BGCK_0050 ) 5589 ;;;; SUB R0 ;[ IBT R0,#0 ] 移動向き変更無し！！ 5590 ;;;;; 5591 ;;;; INC R14 5592 ;;;; INC R14 5593 ;;;;; 5594 ;;;; INC R14 5595 ;;;; GETB 5596 ;;;; INC R14 5597 ;;;; GETBH ;(R0) <-- 左側サイドＢＧ当たりフラグ 5598 ;;;;; 5599 ;;;; AND R2 5600 ;;;; BEQ MG_BGCK_0050 ;左側サイドＢＧ当たり？ ( no:MG_BGCK_0050 ) 5601 ;;;; INC R0 ;[ IBT R0,#1 ] 5602 ;;;;; 5603 ;;;; IBT R0,#-1 5604 ;;;; BRA MG_BGCK_0050 5605 ;;;; NOP 5606 ; 5607 MG_BGCK_0040 5608 S001928 3D A0 62 LMS R0,CPLCMKI 5609 S00192B E0 DEC R0 ;[ -1 or 1 <- 0 or 2 ] 5610 MG_BGCK_0050 5611 S00192C 15 TO R5 ;(R5) <-- 移動向き変更向き 5612 S00192D 4F NOT 5613 S00192E D5 INC R5 5614 S00192F A4 00 IBT R4,#0 ;(R4) <-- 角度加算値 5615 S001931 60 SUB R0 ;[ IBT R0,#0 ] (R0) <-- 足補正値 5616 mDJMP MG_BGCK_0200 5616+ S001932 FF 19C4' IWT R15, #MG_BGCK_0200 5616+ S001935 01 NOP 5617 ; 5618 ;-------------- 足補正中心点ＢＧ当たって無い -------------------- 5619 MG_BGCK_0060 5620 S001936 EF GETB 5621 S001937 DE INC R14 5622 S001938 3D EF GETBH ;(R0) <-- 足補正サイドチェックデータ 5623 ; 5624 S00193A 16 TO R6 ;(R6) <-- 足補正サイドＢＧ当たり情報 5625 S00193B 72 AND R2 5626 S00193C 08 22' BNE MG_BGCK_0080 ;足補正サイドＢＧ当たり？ ( yes:MG_BGCK_0080 ) 5627 S00193E DE INC R14 5628 ; 5629 S00193F EF GETB 5630 S001940 DE INC R14 5631 S001941 3D EF GETBH 5632 ; 5633 S001943 72 AND R2 5634 S001944 08 05' BNE MG_BGCK_0070 ;サイドＢＧ当たり？ ( yes:MG_BGCK_0070 ) 5635 S001946 01 NOP 5636 ; 5637 mDJMP MG_BGCK_0270 5637+ S001947 FF 19E3' IWT R15, #MG_BGCK_0270 5637+ S00194A 01 NOP 5638 ; 5639 MG_BGCK_0070 5640 S00194B 3D A5 62 LMS R5,CPLCMKI 5641 S00194E E5 DEC R5 ;[ -1 or 1 <- 0 or 2 ] (R5) <-- 移動向き変更向き 5642 ; 5643 S00194F BA FROM R10 5644 S001950 3E 7F AND #0FH 5645 S001952 09 08' BEQ MG_BGCK_0072 ;足補正？ ( no:MG_BGCK_0072 ) 5646 S001954 01 NOP 5647 ; 5648 S001955 3E 78 AND #08H 5649 S001957 09 03' BEQ MG_BGCK_0072 5650 S001959 E0 DEC R0 ;[ IBT R0,#-1 ] 5651 ; 5652 S00195A A0 01 IBT R0,#1 5653 MG_BGCK_0072 5654 mDJMP MG_BGCK_0282 5654+ S00195C FF 19F3' IWT R15, #MG_BGCK_0282 5654+ S00195F 01 NOP 5655 ; 5656 ;-------------- 足補正サイドＢＧ当たり -------------------------- 5657 MG_BGCK_0080 5658 S001960 B9 FROM R9 5659 S001961 1D TO R13 ;(R13) <-- 足補正中心点はみ出し値 5660 S001962 3E 7F AND #0FH 5661 ; 5662 S001964 66 SUB R6 5663 S001965 08 1C' BNE MG_BGCK_0110 ;足補正両サイドＢＧ当たり？ ( no:MG_BGCK_0110 ) 5664 S001967 01 NOP 5665 ; 5666 ;-------------- 足補正両サイドＢＧ当たり ---------------- 5667 S001968 EF GETB 5668 S001969 DE INC R14 5669 S00196A 3D EF GETBH 5670 ; 5671 ;;;; TO R6 ;(R6) <-- サイドＢＧ当たりフラグ 5672 S00196C 72 AND R2 5673 ;;;; SUB R6 5674 ;;;; BEQ MG_BGCK_0070 ;サイドＢＧ両当たり？ ( yes:MG_BGCK_0070 ) 5675 S00196D 08 DC' BNE MG_BGCK_0070 ;サイドＢＧ両当たり？ ( yes:MG_BGCK_0070 ) 5676 S00196F 01 NOP 5677 ; 5678 S001970 3D A0 62 LMS R0,CPLCMKI 5679 S001973 E0 DEC R0 5680 S001974 15 TO R5 5681 S001975 4F NOT 5682 S001976 D5 INC R5 5683 ; 5684 ;;;; IBT R5,#-1 5685 S001977 B9 FROM R9 5686 S001978 3E 78 AND #08H 5687 S00197A 09 37' BEQ MG_BGCK_0150 5688 S00197C 01 NOP 5689 ; 5690 ;;;; IBT R5,#1 ;(R5) <-- 移動向き変更向き 5691 S00197D 2D WITH R13 ;(R13) <-- 足補正中心点はみ出し値 5692 S00197E 3F CF XOR #0FH 5693 S001980 05 31' BRA MG_BGCK_0150 5694 S001982 01 NOP 5695 ; 5696 ;-------------- 足補正片サイドＢＧ当たり ---------------- 5697 MG_BGCK_0110 5698 S001983 EF GETB 5699 S001984 DE INC R14 5700 S001985 3D EF GETBH 5701 ; 5702 S001987 72 AND R2 5703 S001988 08 C1' BNE MG_BGCK_0070 ;サイドＢＧ当たり？ ( yes:MG_BGCK_0070 ) 5704 S00198A DE INC R14 5705 ; 5706 S00198B EF GETB 5707 S00198C DE INC R14 5708 S00198D 3D EF GETBH ;(R0) <-- 足補正サイドチェックデータ 5709 ; 5710 S00198F A5 FF IBT R5,#-1 ;(R5) <-- 移動向き変更向き 5711 S001991 72 AND R2 5712 S001992 09 06' BEQ MG_BGCK_0120 ;左側サイドＢＧ当たり？ ( no:MG_BGCK_0120 ) 5713 S001994 DE INC R14 5714 ; 5715 S001995 A5 01 IBT R5,#1 ;(R5) <-- 移動向き変更向き 5716 S001997 2D WITH R13 ;(R13) <-- 足補正中心点はみ出し値 5717 S001998 3F CF XOR #0FH 5718 MG_BGCK_0120 5719 S00199A BD FROM R13 5720 S00199B 3E 63 SUB #3 ;[ 3:ＢＧチェック猶予値 ] 5721 S00199D 3E 65 SUB #8-3 5722 S00199F 0C 12' BCC MG_BGCK_0150 ;下側へ移動向き変更？ ( no:MG_BGCK_0150 ) 5723 S0019A1 01 NOP 5724 ; 5725 S0019A2 EF GETB 5726 S0019A3 DE INC R14 5727 S0019A4 3D EF GETBH ;(R0) <-- 頭両サイドチェックデータ 5728 ; 5729 S0019A6 72 AND R2 5730 S0019A7 08 0A' BNE MG_BGCK_0150 ;頭両サイドＢＧ当たり？ ( yes:MG_BGCK_0150 ) 5731 S0019A9 01 NOP 5732 ; 5733 S0019AA 3D A0 5A LMS R0,CPLMVSP 5734 S0019AD 3D C5 XOR R5 5735 S0019AF 0B 02' BMI MG_BGCK_0150 ;移動方向ＯＫ？ ( no:MG_BGCK_0150 ) 5736 S0019B1 01 NOP 5737 ; 5738 S0019B2 DC INC R12 ;下側へ自動移動向き変更！！ 5739 ; 5740 MG_BGCK_0150 5741 S0019B3 F0 0000" IWT R0,#MG_FOOTHSD 5742 S0019B6 5D ADD R13 5743 S0019B7 1E TO R14 5744 S0019B8 5D ADD R13 5745 S0019B9 14 TO R4 ;(R4) <-- 角度加算値 5746 S0019BA EF GETB 5747 S0019BB 25 B5 MOVES R5,R5 5748 S0019BD 0B 03' BMI MG_BGCK_0160 5749 S0019BF 24 WITH R4 5750 ; 5751 S0019C0 4F NOT 5752 S0019C1 D4 INC R4 5753 MG_BGCK_0160 5754 S0019C2 DE INC R14 5755 S0019C3 EF GETB ;(R0) <-- 足補正値 5756 ; 5757 ;-------------- 足補正ＯＫチェック ------------------------------ 5758 MG_BGCK_0200 5759 S0019C4 20 16 MOVE R6,R0 ;(R6) <-- 足補正値 5760 S0019C6 BA FROM R10 5761 S0019C7 3E 7F AND #0FH 5762 S0019C9 1E TO R14 ;[ * not break (R0) ] 5763 S0019CA 3E 6C SUB #010H-04H ;[ -04H:ＢＧチェック猶予範囲 ] 5764 S0019CC 0C 04' BCC MG_BGCK_0250 5765 S0019CE 01 NOP 5766 ; 5767 S0019CF AE 10 IBT R14,#010H 5768 S0019D1 6E SUB R14 5769 MG_BGCK_0250 5770 S0019D2 66 SUB R6 5771 S0019D3 1E TO R14 ;[ * not break (R0) ] 5772 S0019D4 3E 68 SUB #08H 5773 S0019D6 0A 0B' BPL MG_BGCK_0260 ;足補正ＯＫ？ ( no:MG_BGCK_0260 ) 5774 S0019D8 01 NOP 5775 ; 5776 ;-------------- 足引っ張り補正チェック ------------------ 5777 S0019D9 3D AE 60 LMS R14,CPLJUMP 5778 S0019DC EE DEC R14 5779 S0019DD 0B 08' BMI MG_BGCK_0280 ;ジャンプ中？ ( no:MG_BGCK_0280 ) 5780 S0019DF DE INC R14 5781 ; 5782 S0019E0 0C 05' BCC MG_BGCK_0280 ;足補正方向ＯＫ？ ( yes:MG_BGCK_0280 ) 5783 S0019E2 01 NOP 5784 ; 5785 ;-------------- 落下！！ -------------------------------- 5786 MG_BGCK_0260 5787 ;;;; WITH R2 ;足当たりキャンセル 5788 ;;;; BIC #00000111B 5789 MG_BGCK_0270 5790 mDJMP MG_BGCK_0303 5790+ S0019E3 FF 1A43' IWT R15, #MG_BGCK_0303 5790+ S0019E6 01 NOP 5791 ; 5792 ;-------------- 足補正 ---------------------------------- 5793 MG_BGCK_0280 5794 ;;;; NOT 5795 ;;;; INC R0 5796 S0019E7 3E 60 SUB #0 5797 S0019E9 09 0A' BEQ MG_BGCK_0290 5798 S0019EB 01 NOP 5799 ; 5800 S0019EC A0 FF IBT R0,#-1 5801 S0019EE 0A 03' BPL MG_BGCK_0282 5802 S0019F0 01 NOP 5803 ; 5804 S0019F1 A0 01 IBT R0,#1 5805 MG_BGCK_0282 5806 S0019F3 1A TO R10 5807 S0019F4 5A ADD R10 5808 ; 5809 MG_BGCK_0290 5810 S0019F5 60 SUB R0 ;[ IBT R0,#0 ] 5811 S0019F6 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＦＦ” 5812 ; 5813 ;-------------- 移動向き下側へ変更チェック -------------- 5814 S0019F9 EC DEC R12 5815 S0019FA 0A 0B' BPL MG_BGCK_0292 ;下側へ自動移動向き変更？ ( yes:MG_BGCK_0292 ) 5816 S0019FC DC INC R12 5817 ; 5818 S0019FD F0 0000" IWT R0,#MG_DWMKCHG 5819 S001A00 1E TO R14 5820 S001A01 51 ADD R1 5821 S001A02 EF GETB 5822 ; 5823 S001A03 77 AND R7 5824 S001A04 09 0F' BEQ MG_BGCK_0300 ;移動向き下側へ変更？ ( no:MG_BGCK_0300 ) 5825 S001A06 01 NOP 5826 ; 5827 ;-------------- 移動向き下側へ変更 ---------------------- 5828 MG_BGCK_0292 5829 S001A07 B1 FROM R1 5830 S001A08 55 ADD R5 5831 S001A09 3E 73 AND #03H 5832 S001A0B 3E A0 C1 SMS R0,CPMG_MVMK 5833 S001A0E EC DEC R12 5834 S001A0F 0A 04' BPL MG_BGCK_0300 ;下側へ自動移動向き変更？ ( yes:MG_BGCK_0300 ) 5835 S001A11 DC INC R12 5836 ; 5837 S001A12 3E A0 C0 SMS R0,CPMG_KEYF ;移動キーロックフラグセット 5838 ; 5839 ;---------------------------------------------------------------- 5840 ;- 頭補正チェック - 5841 ;---------------------------------------------------------------- 5842 MG_BGCK_0300 5843 S001A15 B1 FROM R1 5844 S001A16 3E 87 MULT #(3*2)+1 5845 S001A18 FE 0000" IWT R14,#MG_HEADBGP 5846 S001A1B 1E TO R14 5847 S001A1C 5E ADD R14 5848 S001A1D EF GETB 5849 S001A1E DE INC R14 5850 S001A1F 3D EF GETBH ;(R0) <-- 頭チェックデータ 5851 ; 5852 S001A21 72 AND R2 5853 S001A22 09 08' BEQ MG_BGCK_0302 ;頭中心点ＢＧ当たり？ ( no:MG_BGCK_0302 ) 5854 S001A24 DE INC R14 5855 ; 5856 S001A25 73 AND R3 5857 S001A26 08 30' BNE MG_BGCK_0310 ;頭中心点壊れるＢＧ？ ( yes:MG_BGCK_0310 ) 5858 S001A28 15 TO R5 ;[ IBT R5,#0 ] 移動向き変更無し！！ 5859 ; ; 5860 S001A29 05 3F' BRA MG_BGCK_0400 ; 5861 S001A2B 60 SUB R0 ; 5862 5863 ;-------------- 頭中心点ＢＧ当たって無い ------------------------ 5864 MG_BGCK_0302 5865 S001A2C EF GETB 5866 S001A2D DE INC R14 5867 S001A2E 3D EF GETBH ;(R0) <-- 頭サイドチェックデータ 5868 ; 5869 S001A30 16 TO R6 ;(R6) <-- 頭サイドＢＧ当たり情報 5870 S001A31 72 AND R2 5871 S001A32 08 20' BNE MG_BGCK_0304 ;頭サイドＢＧ当たり？ ( yes:MG_BGCK_0304 ) 5872 S001A34 DE INC R14 5873 ; 5874 S001A35 DE INC R14 5875 S001A36 DE INC R14 5876 S001A37 EF GETB 5877 ; 5878 S001A38 3D F6 0073 LM R6,CMKEYC2 ;(R6) <-- コントローラー情報（トリガー） 5879 S001A3C 76 AND R6 5880 S001A3D 09 3F' BEQ MG_BGCK_0500 ;上キー入力？ ( no:MG_BGCK_0500 ) 5881 S001A3F 01 NOP 5882 ; 5883 S001A40 2A WITH R10 ;Ｙ座標離す！！ 5884 S001A41 3E 64 SUB #4 5885 ; 5886 ;-------------- 落下！！ -------------------------------- 5887 MG_BGCK_0303 5888 S001A43 60 SUB R0 ;[ IBT R0,#0 ] 移動方向（下）へ 5889 S001A44 3E A0 C1 SMS R0,CPMG_MVMK 5890 S001A47 3E A0 C0 SMS R0,CPMG_KEYF ;移動キーロックフラグセット 5891 S001A4A F0 0008 IWT R0,#P008 5892 S001A4D 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＮ” 5893 mDJMP MG_BGCK_0500 5893+ S001A50 FF 1A7E' IWT R15, #MG_BGCK_0500 5893+ S001A53 01 NOP 5894 ; 5895 ;-------------- 頭サイドＢＧ当たり ------------------------------ 5896 MG_BGCK_0304 5897 S001A54 66 SUB R6 5898 S001A55 08 07' BNE MG_BGCK_0360 ;頭両サイドＢＧ当たり？ ( no:MG_BGCK_0360 ) 5899 S001A57 01 NOP 5900 ; 5901 ;-------------- 頭補正両サイドＢＧ当たり ---------------- 5902 MG_BGCK_0310 5903 S001A58 3D A5 62 LMS R5,CPLCMKI ;(R5) <-- 移動向き変更向き 5904 S001A5B 05 0D' BRA MG_BGCK_0400 5905 S001A5D E5 DEC R5 ;[ (R5) <-- -1 or 1 ] 5906 ; 5907 ;-------------- 頭補正片サイドＢＧ当たり ---------------- 5908 MG_BGCK_0360 5909 S001A5E EF GETB 5910 S001A5F DE INC R14 5911 S001A60 3D EF GETBH ;(R0) <-- 頭サイドチェックデータ 5912 ; 5913 S001A62 A5 01 IBT R5,#1 ;(R5) <-- 移動向き変更向き 5914 S001A64 72 AND R2 5915 S001A65 08 03' BNE MG_BGCK_0400 ;左側サイドＢＧ当たり？ ( yes:MG_BGCK_0400 ) 5916 S001A67 01 NOP 5917 ; 5918 S001A68 A5 FF IBT R5,#-1 ;(R5) <-- 移動向き変更向き 5919 ; 5920 ;-------------- 移動向き上側へ変更チェック -------------- 5921 MG_BGCK_0400 5922 S001A6A F0 0000" IWT R0,#MG_UPMKCHG 5923 S001A6D 1E TO R14 5924 S001A6E 51 ADD R1 5925 S001A6F EF GETB 5926 ; 5927 S001A70 77 AND R7 5928 S001A71 09 0B' BEQ MG_BGCK_0500 ;移動向き上側へ変更？ ( no:MG_BGCK_0500 ) 5929 S001A73 01 NOP 5930 ; 5931 ;-------------- 移動向き上側へ変更 ---------------------- 5932 S001A74 B1 FROM R1 5933 S001A75 55 ADD R5 5934 S001A76 3E 73 AND #03H 5935 S001A78 3E A0 C1 SMS R0,CPMG_MVMK 5936 S001A7B 3E A0 C0 SMS R0,CPMG_KEYF ;移動キーロックフラグセット 5937 ; 5938 ;---------------------------------------------------------------- 5939 ;- サイド補正チェック - 5940 ;---------------------------------------------------------------- 5941 MG_BGCK_0500 5942 S001A7E A0 10 IBT R0,#8*2 5943 S001A80 81 MULT R1 5944 S001A81 FE 0000" IWT R14,#MG_SIDEBGP 5945 S001A84 1E TO R14 5946 S001A85 5E ADD R14 5947 S001A86 EF GETB 5948 S001A87 DE INC R14 5949 S001A88 3D EF GETBH 5950 ; 5951 S001A8A 1C TO R12 ;(R12) <-- サイドＢＧ当たりフラグ 5952 S001A8B 72 AND R2 5953 S001A8C 08 05' BNE MG_BGCK_0501 ;サイドＢＧ当たり？ ( yes:MG_BGCK_0501 ) 5954 S001A8E 01 NOP 5955 ; 5956 mDJMP MG_BGCK_0700 5956+ S001A8F FF 1B69' IWT R15, #MG_BGCK_0700 5956+ S001A92 01 NOP 5957 ; 5958 ;-------------- サイドＢＧ当たり -------------------------------- 5959 MG_BGCK_0501 5960 S001A93 20 16 MOVE R6,R0 ;(R6) <-- サイドＢＧ当たりチェックデータ 5961 S001A95 1B TO R11 ;(R11) <-- 両サイドＢＧ当たりフラグ 5962 S001A96 6C SUB R12 5963 ; 5964 S001A97 BC FROM R12 5965 S001A98 73 AND R3 ;壊れるＢＧによるＢＧ当たりフラグ反転 5966 S001A99 1C TO R12 ;(R12) <-- 壊れるＢＧによるサイドＢＧ当たりフラグ 5967 S001A9A 3D CC XOR R12 5968 ; 5969 S001A9C 26 WITH R6 ;(R6) <-- 壊れるＢＧによる両サイドＢＧ当たりフラグ 5970 S001A9D 6C SUB R12 5971 ; 5972 S001A9E B9 FROM R9 5973 S001A9F 3E 7F AND #0FH 5974 S001AA1 08 22' BNE MG_BGCK_0510 ;Ｘ座標補正？ ( yes:MG_BGCK_0510 ) 5975 S001AA3 DE INC R14 5976 ; 5977 ;-------------- Ｘ座標補正無しならどっちサイドＢＧ当たり？ - 5978 S001AA4 2C BC MOVES R12,R12 5979 S001AA6 09 39' BEQ MG_BGCK_0522 ;壊れるＢＧでサイドＢＧ当たりキャンセル？ ( yes:MG_BGCK_0522 ) 5980 S001AA8 01 NOP 5981 ; 5982 S001AA9 26 B6 MOVES R6,R6 5983 S001AAB 08 07' BNE MG_BGCK_0502 ;両サイドＢＧ当たり？ ( no:MG_BGCK_0502 ) 5984 S001AAD 01 NOP 5985 ; 5986 S001AAE 2E WITH R14 5987 S001AAF 3E 56 ADD #6 5988 S001AB1 05 77' BRA MG_BGCK_0530 5989 S001AB3 01 NOP 5990 ; 5991 MG_BGCK_0502 5992 S001AB4 EF GETB 5993 S001AB5 DE INC R14 5994 S001AB6 3D EF GETBH ;(R0) <-- 左サイド点ＢＧ当たりチェックデータ 5995 S001AB8 DE INC R14 5996 ; 5997 S001AB9 DE INC R14 5998 ; 5999 S001ABA A5 01 IBT R5,#1 ;(R5) <-- 移動向き変更向き 6000 S001ABC 7C AND R12 6001 S001ABD 08 6B' BNE MG_BGCK_0530 ;左サイドＢＧ当たり？ ( yes:MG_BGCK_0530 ) 6002 S001ABF DE INC R14 6003 ; 6004 S001AC0 A5 FF IBT R5,#-1 ;(R5) <-- 移動向き変更向き 6005 S001AC2 05 66' BRA MG_BGCK_0530 6006 S001AC4 01 NOP 6007 ; 6008 ;-------------- Ｘ座標補正 ------------------------------ 6009 MG_BGCK_0510 6010 S001AC5 A5 01 IBT R5,#1 ;(R5) <-- 補正値 6011 S001AC7 3E 78 AND #08H 6012 S001AC9 08 05' BNE MG_BGCK_0520 ;右へ補正？ ( yes:MG_BGCK_0520 ) 6013 S001ACB 01 NOP 6014 ; 6015 S001ACC A5 FF IBT R5,#-1 ;(R5) <-- 補正値 6016 S001ACE DE INC R14 6017 S001ACF DE INC R14 6018 MG_BGCK_0520 6019 S001AD0 EF GETB 6020 S001AD1 DE INC R14 6021 S001AD2 3D EF GETBH 6022 ; 6023 S001AD4 72 AND R2 6024 ;;;; BEQ MG_BGCK_0700 ;Ｘ座標補正ＯＫ？ ( no:MG_BGCK_0700 ) 6025 S001AD5 09 0A' BEQ MG_BGCK_0522 ;Ｘ座標補正ＯＫ？ ( no:MG_BGCK_0700 ) 6026 S001AD7 01 NOP 6027 ; 6028 S001AD8 29 WITH R9 ;Ｘ座標補正 6029 S001AD9 55 ADD R5 6030 ; 6031 S001ADA FE 0006" IWT R14,#MG_SIDEBGP+6 ;足頭中心点へ 6032 ; 6033 S001ADD 7C AND R12 6034 S001ADE 08 4A' BNE MG_BGCK_0530 ;壊れるＢＧでサイドＢＧ当たりキャンセル？ ( no:MG_BGCK_0530 ) 6035 S001AE0 01 NOP 6036 ; 6037 ;-------------- 壊れるＢＧでの引っかけ ------------------ 6038 MG_BGCK_0522 6039 S001AE1 2B BB MOVES R11,R11 6040 S001AE3 09 42' BEQ MG_BGCK_0526 ;両サイドＢＧ当たり？ ( yes:MG_BGCK_0526 ) 6041 S001AE5 01 NOP 6042 ; 6043 S001AE6 A0 10 IBT R0,#8*2 6044 S001AE8 81 MULT R1 6045 S001AE9 FE 0006" IWT R14,#MG_SIDEBGP+6 6046 S001AEC 1E TO R14 6047 S001AED 5E ADD R14 6048 S001AEE EF GETB 6049 S001AEF DE INC R14 6050 S001AF0 3D EF GETBH 6051 ; 6052 S001AF2 72 AND R2 6053 S001AF3 08 74' BNE MG_BGCK_0700 ;足頭中心点ＢＧ当たり？ ( yes:MG_BGCK_0700 ) 6054 MG_BGCK_0523 6055 S001AF5 EE DEC R14 6056 ; 6057 S001AF6 EE DEC R14 ;右サイドＢＧ当たりチェックデータへ 6058 ; 6059 S001AF7 3D EF GETBH 6060 S001AF9 EE DEC R14 6061 S001AFA 3E EF GETBL 6062 ; 6063 S001AFC 2E WITH R14 ;左右キーデータへ 6064 S001AFD 3E 54 ADD #4 6065 ; 6066 S001AFF A5 01 IBT R5,#1 ;(R5) <-- Ｘ座標補正値 6067 S001B01 72 AND R2 6068 S001B02 09 05' BEQ MG_BGCK_0524 ;右サイドＢＧ当たり？ ( no:MG_BGCK_0524 ) 6069 S001B04 01 NOP 6070 ; 6071 S001B05 A5 FF IBT R5,#-1 ;(R5) <-- Ｘ座標補正値 6072 S001B07 DE INC R14 6073 S001B08 DE INC R14 6074 MG_BGCK_0524 6075 S001B09 EF GETB 6076 S001B0A 77 AND R7 6077 S001B0B 08 5C' BNE MG_BGCK_0700 ;左右キー入力？ ( yes:MG_BGCK_0700 ) 6078 S001B0D 01 NOP 6079 ; 6080 S001B0E 2E WITH R14 6081 S001B0F 3E 54 ADD #4 6082 S001B11 EF GETB 6083 S001B12 DE INC R14 6084 S001B13 3D EF GETBH ;(R0) <-- 足両サイドＢＧ当たりチェックデータ 6085 ; 6086 S001B15 72 AND R2 6087 S001B16 08 51' BNE MG_BGCK_0700 ;反対側足サイドＢＧ当たり？ ( yes:MG_BGCK_0700 ) 6088 S001B18 60 SUB R0 ;[ IBT R0,#0 ] 移動方向（下）へ 6089 ; 6090 ;-------------- 落下 ------------------------------------ 6091 S001B19 29 WITH R9 ;Ｘ座標補正 6092 S001B1A 55 ADD R5 6093 ; 6094 S001B1B 3E A0 C1 SMS R0,CPMG_MVMK 6095 S001B1E 3E A0 C0 SMS R0,CPMG_KEYF ;移動キーロックフラグセット 6096 S001B21 F0 0008 IWT R0,#P008 6097 S001B24 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＮ” 6098 ; 6099 MG_BGCK_0526 6100 S001B27 05 40' BRA MG_BGCK_0700 6101 S001B29 01 NOP 6102 ; 6103 ;-------------- 移動向き変更チェック -------------------- 6104 MG_BGCK_0530 6105 S001B2A EF GETB 6106 S001B2B DE INC R14 6107 S001B2C 3D EF GETBH 6108 ; 6109 S001B2E 1D TO R13 ;(R13) <-- 足頭中心点ＢＧ当たりフラグ 6110 S001B2F 72 AND R2 6111 S001B30 08 09' BNE MG_BGCK_0550 ;足頭中心点ＢＧ当たり？ ( yes:MG_BGCK_0550 ) 6112 S001B32 DE INC R14 6113 ; 6114 ;-------------- 引っかけ -------------------------------- 6115 S001B33 2C BC MOVES R12,R12 6116 S001B35 09 0D' BEQ MG_BGCK_0560 ;両サイドＢＧ当たり？ ( yes:MG_BGCK_0560 ) 6117 S001B37 01 NOP 6118 ; 6119 ;;;; BRA MG_BGCK_0650 6120 S001B38 05 BB' BRA MG_BGCK_0523 6121 S001B3A EE DEC R14 6122 ; 6123 ;-------------- 上下側へ移動向き変更 -------------------- 6124 MG_BGCK_0550 6125 S001B3B 6D SUB R13 6126 S001B3C 09 2B' BEQ MG_BGCK_0700 ;足頭中心点ＢＧ両当たり？ ( yes:MG_BGCK_0700 ) 6127 S001B3E 01 NOP 6128 ; 6129 S001B3F 26 B6 MOVES R6,R6 6130 S001B41 08 13' BNE MG_BGCK_0570 ;両サイドＢＧ当たり？ ( no:MG_BGCK_0570 ) 6131 S001B43 01 NOP 6132 ; 6133 ;-------------- 両サイドＢＧ当たりでキー入力の方向へ ---- 6134 MG_BGCK_0560 6135 S001B44 A5 01 IBT R5,#1 ;(R5) <-- 移動向き変更向き 6136 S001B46 EF GETB ;(R0) <-- 左キー 6137 S001B47 DE INC R14 6138 S001B48 77 AND R7 6139 S001B49 08 17' BNE MG_BGCK_0650 ;左へ移動向き変更？ ( yes:MG_BGCK_0650 ) 6140 S001B4B DE INC R14 6141 ; 6142 S001B4C A5 FF IBT R5,#-1 ;(R5) <-- 移動向き変更向き 6143 S001B4E EF GETB 6144 S001B4F 77 AND R7 6145 S001B50 08 10' BNE MG_BGCK_0650 ;右へ移動向き変更？ ( yes:MG_BGCK_0650 ) 6146 S001B52 01 NOP 6147 ; 6148 S001B53 05 14' BRA MG_BGCK_0700 6149 S001B55 01 NOP 6150 ; 6151 ;-------------- 片サイドＢＧ当たりで移動向き変更チェック - 6152 MG_BGCK_0570 6153 S001B56 25 B5 MOVES R5,R5 6154 S001B58 0A 03' BPL MG_BGCK_0600 ;左サイド当たり？ ( yes:MG_BGCK_0600 ) 6155 S001B5A 01 NOP ;[ 左キーチェック ] 6156 ; 6157 S001B5B DE INC R14 ;[ 右キーチェック ] 6158 S001B5C DE INC R14 6159 MG_BGCK_0600 6160 S001B5D EF GETB 6161 S001B5E 77 AND R7 6162 S001B5F 09 08' BEQ MG_BGCK_0700 ;ＢＧ当たりサイド側キー入力？ ( no:MG_BGCK_0700 ) 6163 S001B61 01 NOP 6164 ; 6165 ;-------------- 移動向き上下側へ変更 -------------------- 6166 MG_BGCK_0650 6167 S001B62 B1 FROM R1 6168 S001B63 55 ADD R5 6169 S001B64 3E 73 AND #03H 6170 S001B66 3E A0 C1 SMS R0,CPMG_MVMK 6171 ; 6172 ;---------------------------------------------------------------- 6173 ;- 補正チェック後処理 - 6174 ;---------------------------------------------------------------- 6175 MG_BGCK_0700 6176 S001B69 B8 FROM R8 6177 S001B6A 03 LSR 6178 S001B6B 0C 04' BCC MG_BGCK_0750 ;Ｙ符号反転？ ( no:MG_BGCK_0750 ) 6179 S001B6D 03 LSR 6180 ; 6181 S001B6E 2A WITH R10 6182 S001B6F 4F NOT 6183 S001B70 DA INC R10 6184 MG_BGCK_0750 6185 S001B71 0C 04' BCC MG_BGCK_0800 ;Ｘ符号反転？ ( no:MG_BGCK_0800 ) 6186 S001B73 01 NOP 6187 ; 6188 S001B74 29 WITH R9 6189 S001B75 4F NOT 6190 S001B76 D9 INC R9 6191 MG_BGCK_0800 6192 S001B77 B1 FROM R1 6193 S001B78 03 LSR 6194 S001B79 0C 07' BCC MG_BGCK_0850 ;Ｙ座標補正？ ( yes:MG_BGCK_0850 ) 6195 S001B7B 01 NOP 6196 ; 6197 S001B7C 29 1E MOVE R14,R9 ;Ｘ⇔Ｙ入れ替え 6198 S001B7E 2A 19 MOVE R9,R10 6199 S001B80 2E 1A MOVE R10,R14 6200 ; 6201 ;-------------- 目標角度セット ---------------------------------- 6202 MG_BGCK_0850 6203 S001B82 3D A0 C1 LMS R0,CPMG_MVMK 6204 S001B85 FE 0000" IWT R14,#MG_MVANGL 6205 S001B88 1E TO R14 6206 S001B89 5E ADD R14 6207 S001B8A EF GETB 6208 ; 6209 S001B8B 3E A0 5B SMS R0,CPLANGL ;移動角度セット 6210 S001B8E 54 ADD R4 ;目標角度加算値加算 6211 S001B8F 9E LOB 6212 ; 6213 S001B90 3D AE 62 LMS R14,CPLCMKI 6214 S001B93 EE DEC R14 6215 S001B94 0A 03' BPL MG_BGCK_0900 6216 S001B96 4D SWAP ;x100H 6217 ; 6218 S001B97 4F NOT 6219 S001B98 D0 INC R0 6220 MG_BGCK_0900 6221 S001B99 3E A0 C2 SMS R0,CPMG_TOAN ;目標角度セット 6222 ; 6223 ;------------------------------------------------------------------------ 6224 ;- ＢＧチェック結果データセット - 6225 ;------------------------------------------------------------------------ 6226 mDJMP PL_BGCK_0300 6226+ S001B9C FF 0000" IWT R15, #PL_BGCK_0300 6226+ S001B9F 01 NOP 6227 ; 6228 ; 6229 ;------------------------------------------------------------------------ 6230 ;- １点チェック - 6231 ;- in : - 6232 ;- (R1) <-- ＢＧ当たりチェックデータ - 6233 ;- (R2) <-- ＢＧ当たりフラグ - 6234 ;- (R3) <-- 壊れるＢＧ当たりフラグ - 6235 ;- (R4) <-- ” 角度 - 6236 ;- (R9) <-- プレイヤーＸ座標 - 6237 ;- (R10) <-- ” Ｙ ” - 6238 ;- (R11) <-- 復帰アドレス - 6239 ;- (R14) <-- ＢＧチェックポイント - 6240 ;- データアドレス - 6241 ;- out : - 6242 ;- (R0) <-- BG unit no. type - 6243 ;- (R6) <-- BG unit no. - 6244 ;- (R7) <-- BG unit no. type - 6245 ;- (R8) <-- BG type status data - 6246 ;- (CWK0) <- ＢＧチェックＸ座標 - 6247 ;- (CWK1) <- ” Ｙ ” - 6248 ;- break : - 6249 ;- (R5) - 6250 ;- (R12) - 6251 ;- (R13) - 6252 ;- use RAM : - 6253 ;- (RTS0) - 6254 ;- (RTS1) - 6255 ;- (CWKE) - 6256 ;- (CWKF) - 6257 ;------------------------------------------------------------------------ 6258 MG_BGCK_1P_IN 6259 S001BA0 3E AB 31 SMS R11,RTS1 ;[ return address save ] 6260 ; 6261 ;-------------- ＢＧ当たりチェック -------------------------------------- 6262 mJSR_X BGUNIT_READ 6262+ S001BA3 94 LINK #4 6262+ S001BA4 FF 0000" IWT R15, #BGUNIT_READ 6263 S001BA7 02 CACHE 6264 ; 6265 S001BA8 05 0A' BRA MG_BGCK_1P_0010+1 6266 S001BAA 22 WITH R2 6267 ; 6268 MG_BGCK_1P 6269 S001BAB 3E AB 31 SMS R11,RTS1 ;[ return address save ] 6270 ; 6271 ;-------------- ＢＧ当たりチェック -------------------------------------- 6272 mJSR_X BGUNIT_READ+1 6272+ S001BAE 94 LINK #4 6272+ S001BAF FF 0001" IWT R15, #BGUNIT_READ+1 6273 S001BB2 3F HEX 3F ;[ ALT3 ( GETBS ) ] 6274 ; 6275 MG_BGCK_1P_0010 6276 S001BB3 22 WITH R2 ;[ ASL R2 ] 6277 S001BB4 52 ADD R2 6278 ; 6279 S001BB5 71 AND R1 6280 S001BB6 09 02' BEQ MG_BGCK_1P_0020 ;ＢＧ当たり？ ( no:MG_BGCK_1P_0020 ) 6281 S001BB8 01 NOP 6282 ; 6283 S001BB9 D2 INC R2 6284 MG_BGCK_1P_0020 6285 ; 6286 ;------------------------------------------------------------------------ 6287 ;- モグラ用特殊ＢＧ当たりチェック - 6288 ;- in : - 6289 ;- (R2) <-- ＢＧ当たりフラグ - 6290 ;- (R3) <-- 壊れるＢＧ当たりフラグ - 6291 ;- (R4) <-- ” 角度 - 6292 ;- (R9) <-- プレイヤーＸ座標 - 6293 ;- (R10) <-- ” Ｙ ” - 6294 ;- (R14) <-- ＢＧチェックポイント - 6295 ;- データアドレス - 6296 ;- (RTS1) <- 復帰アドレス - 6297 ;- out : - 6298 ;- (R6) <-- BG unit no. - 6299 ;- (R7) <-- BG unit no. type - 6300 ;- (CWK0) <- ＢＧチェックＸ座標 - 6301 ;- (CWK1) <- ” Ｙ ” - 6302 ;- break : - 6303 ;- (R1) - 6304 ;- (R5) - 6305 ;- use RAM : - 6306 ;- (RTS0) - 6307 ;------------------------------------------------------------------------ 6308 MGBG_SP_CK 6309 mJSR BG_SP_CHECK ;特殊ＢＧ当たりチェック 6309+ S001BBA 94 LINK #4 6309+ S001BBB FF 0000" IWT R15, #BG_SP_CHECK 6309+ S001BBE 01 NOP 6310 ; 6311 S001BBF 23 WITH R3 ;[ ASL R3 ] 壊れるＢＧ当たりフラグセット 6312 S001BC0 53 ADD R3 6313 ; 6314 S001BC1 F0 F800 IWT R0,#1111100000000000B 6315 S001BC4 77 AND R7 6316 S001BC5 C0 HIB 6317 ; 6318 S001BC6 03 LSR ;[ JSRSUB ] 6319 S001BC7 D0 INC R0 ; 6320 S001BC8 1F TO R15 ; 6321 S001BC9 5F ADD R15 ; 6322 S001BCA FF HEX FF ; 6323 ; 6324 mTWORD MGBG_SP_CK_010 ;[無し] 6324+ S001BCB 1C82' WORD MGBG_SP_CK_010 6324+ S001BCD 01 NOP 6324+ S001BCE 01 NOP 6325 mTWORD MGBG_SP_CK_010 ;[雪、草の上] 6325+ S001BCF 1C82' WORD MGBG_SP_CK_010 6325+ S001BD1 01 NOP 6325+ S001BD2 01 NOP 6326 mTWORD MGBG_SP_CK_010 ;[せっけん] 6326+ S001BD3 1C82' WORD MGBG_SP_CK_010 6326+ S001BD5 01 NOP 6326+ S001BD6 01 NOP 6327 mTWORD MGBG_SP_CK_010 ;[へこみ床] 6327+ S001BD7 1C82' WORD MGBG_SP_CK_010 6327+ S001BD9 01 NOP 6327+ S001BDA 01 NOP 6328 mTWORD MGBG_SP_CK_010 ;[ゴム床] 6328+ S001BDB 1C82' WORD MGBG_SP_CK_010 6328+ S001BDD 01 NOP 6328+ S001BDE 01 NOP 6329 mTWORD MGBG_SP_CK_010 ;[溶岩] 6329+ S001BDF 1C82' WORD MGBG_SP_CK_010 6329+ S001BE1 01 NOP 6329+ S001BE2 01 NOP 6330 mTWORD COIN_CROSS ;[コイン] 6330+ S001BE3 0000" WORD COIN_CROSS 6330+ S001BE5 01 NOP 6330+ S001BE6 01 NOP 6331 mTWORD MGBG_SP_CK_010 ;[？ブロック] 6331+ S001BE7 1C82' WORD MGBG_SP_CK_010 6331+ S001BE9 01 NOP 6331+ S001BEA 01 NOP 6332 mTWORD BREAK_CROSS ;[食べれるＢＧ] 6332+ S001BEB 1C3B' WORD BREAK_CROSS 6332+ S001BED 01 NOP 6332+ S001BEE 01 NOP 6333 mTWORD MGBG_SP_CK_010 ;[線路] 6333+ S001BEF 1C82' WORD MGBG_SP_CK_010 6333+ S001BF1 01 NOP 6333+ S001BF2 01 NOP 6334 mTWORD FAIL_CROSS ;[当たるとダメージ] 6334+ S001BF3 0000" WORD FAIL_CROSS 6334+ S001BF5 01 NOP 6334+ S001BF6 01 NOP 6335 mTWORD MGBG_SP_CK_010 ;[杭] 6335+ S001BF7 1C82' WORD MGBG_SP_CK_010 6335+ S001BF9 01 NOP 6335+ S001BFA 01 NOP 6336 mTWORD MGBG_SP_CK_010 ;[左下階段] 6336+ S001BFB 1C82' WORD MGBG_SP_CK_010 6336+ S001BFD 01 NOP 6336+ S001BFE 01 NOP 6337 mTWORD MGBG_SP_CK_010 ;[右下階段] 6337+ S001BFF 1C82' WORD MGBG_SP_CK_010 6337+ S001C01 01 NOP 6337+ S001C02 01 NOP 6338 mTWORD MGBG_SP_CK_010 ;[乗ったら落ちる床] 6338+ S001C03 1C82' WORD MGBG_SP_CK_010 6338+ S001C05 01 NOP 6338+ S001C06 01 NOP 6339 mTWORD MGBG_SP_CK_010 ;[点線ブロック] 6339+ S001C07 1C82' WORD MGBG_SP_CK_010 6339+ S001C09 01 NOP 6339+ S001C0A 01 NOP 6340 mTWORD MGBG_SP_CK_010 ;[マリオブロック] 6340+ S001C0B 1C82' WORD MGBG_SP_CK_010 6340+ S001C0D 01 NOP 6340+ S001C0E 01 NOP 6341 mTWORD MGBG_SP_CK_010 ;[ちくわブロック] 6341+ S001C0F 1C82' WORD MGBG_SP_CK_010 6341+ S001C11 01 NOP 6341+ S001C12 01 NOP 6342 mTWORD MGBG_SP_CK_010 ;[カウントブロック] 6342+ S001C13 1C82' WORD MGBG_SP_CK_010 6342+ S001C15 01 NOP 6342+ S001C16 01 NOP 6343 mTWORD MGBG_SP_CK_010 ;[滝床（ぴちゃぴちゃ）] 6343+ S001C17 1C82' WORD MGBG_SP_CK_010 6343+ S001C19 01 NOP 6343+ S001C1A 01 NOP 6344 mTWORD MGBG_SP_CK_010 ;[ドカン] 6344+ S001C1B 1C82' WORD MGBG_SP_CK_010 6344+ S001C1D 01 NOP 6344+ S001C1E 01 NOP 6345 mTWORD SUGI_CROSS ;[杉の木] 6345+ S001C1F 0000" WORD SUGI_CROSS 6345+ S001C21 01 NOP 6345+ S001C22 01 NOP 6346 mTWORD CLR_COIN_CROSS ;[点線コイン] 6346+ S001C23 0000" WORD CLR_COIN_CROSS 6346+ S001C25 01 NOP 6346+ S001C26 01 NOP 6347 mTWORD MGBG_SP_CK_010 ;[氷ブロック] 6347+ S001C27 1C82' WORD MGBG_SP_CK_010 6347+ S001C29 01 NOP 6347+ S001C2A 01 NOP 6348 mTWORD MGBG_SP_CK_010 ;[ぐらぐら岩] 6348+ S001C2B 1C82' WORD MGBG_SP_CK_010 6348+ S001C2D 01 NOP 6348+ S001C2E 01 NOP 6349 mTWORD MGBG_SP_CK_010 ;[当たるとダメージ（坂杭）] 6349+ S001C2F 1C82' WORD MGBG_SP_CK_010 6349+ S001C31 01 NOP 6349+ S001C32 01 NOP 6350 mTWORD MGBG_SP_CK_010 ;[当たるとダメージ（氷柱）] 6350+ S001C33 1C82' WORD MGBG_SP_CK_010 6350+ S001C35 01 NOP 6350+ S001C36 01 NOP 6351 mTWORD MGBG_SP_CK_010 ;[当たるとダウン] 6351+ S001C37 1C82' WORD MGBG_SP_CK_010 6351+ S001C39 01 NOP 6351+ S001C3A 01 NOP 6352 ; 6353 ;---------------------------------------------------------------- 6354 ;- 食べれるＢＧ - 6355 ;---------------------------------------------------------------- 6356 BREAK_CROSS 6357 S001C3B D3 INC R3 ;壊れるＢＧ当たりフラグセット 6358 ; 6359 S001C3C 3D A0 C6 LMS R0,CPMG_MKANGL 6360 S001C3F 64 SUB R4 6361 S001C40 08 40' BNE MGBG_SP_CK_010 ;当たり向きＯＫ？ ( no:MGBG_SP_CK_010 ) 6362 S001C42 54 ADD R4 6363 ; 6364 S001C43 3D A5 C7 LMS R5,CPMG_MKANGL_OLD 6365 S001C46 65 SUB R5 6366 S001C47 08 39' BNE MGBG_SP_CK_010 ;押しカウンター加算ＯＫ？ ( no:MGBG_SP_CK_010 ) 6367 S001C49 01 NOP 6368 ; 6369 S001C4A 3D A0 5A LMS R0,CPLMVSP 6370 S001C4D 3E 60 SUB #0 6371 S001C4F 09 31' BEQ MGBG_SP_CK_010 ;押してる？ ( no:MGBG_SP_CK_010 ) 6372 S001C51 01 NOP 6373 ; 6374 S001C52 3D A0 C9 LMS R0,CPMG_WRK0 ;押しカウンタークリアーフラグ”ＯＦＦ” 6375 S001C55 D0 INC R0 6376 S001C56 90 SBK ;[ SMS R0,CPMG_WRK0 ] 6377 ; 6378 S001C57 3D A0 C8 LMS R0,CPMG_BRBGCT 6379 ;;;; IBT R5,#08H 6380 S001C5A A5 02 IBT R5,#02H 6381 S001C5C 65 SUB R5 6382 S001C5D 0D 05' BCS BREAK_CROSS_010 ;ＢＧ壊す？ ( yes:BREAK_CROSS_010 ) 6383 S001C5F 55 ADD R5 6384 ; 6385 S001C60 D0 INC R0 ;押しカウンターＵＰ 6386 S001C61 05 1F' BRA MGBG_SP_CK_010 6387 S001C63 90 SBK ;[ SMS R0,CPMG_BRBGCT ] 6388 ; 6389 ;-------------- ＢＧ壊す ---------------------------------------- 6390 BREAK_CROSS_010 6391 S001C64 E2 DEC R2 ;ＢＧ当たりフラグキャンセル 6392 S001C65 E3 DEC R3 ; ” 6393 ; 6394 S001C66 3D A0 54 LMS R0,CPLXSPD 6395 S001C69 4F NOT 6396 S001C6A D0 INC R0 6397 S001C6B 3D 96 DIV2 6398 S001C6D 3D 96 DIV2 6399 S001C6F 3E A0 0E SMS R0,CWORKE ;(CWKE) <-- 壊れたＢＧぶっ飛びＸスピード 6400 S001C72 A0 80 IBT R0,#080H 6401 S001C74 3E A0 0F SMS R0,CWORKF ;(CWKF) <-- 壊れたＢＧぶっ飛びＹスピード 6402 ; 6403 S001C77 3E A1 21 SMS R1,REG1 ;(R1) save 6404 ; 6405 mJSR BRBG0_SET ;壊れたＢＧ効果セット 6405+ S001C7A 94 LINK #4 6405+ S001C7B FF 0000" IWT R15, #BRBG0_SET 6405+ S001C7E 01 NOP 6406 ; 6407 S001C7F 3D A1 21 LMS R1,REG1 ;(R1) load 6408 ; 6409 MGBG_SP_CK_010 6410 S001C82 3D AB 31 LMS R11,RTS1 ;[ return address load ] 6411 mRTS 6411+ S001C85 9B JMP R11 6411+ S001C86 01 NOP 6412 ; 6413 ; 6414 ;************************************************************************ 6415 ;* * 6416 ;* スキーヨッシー * 6417 ;* * 6418 ;************************************************************************ 6419 SKI_MV 6420 ; 6421 ;------------------------------------------------------------------------ 6422 ;- スキー基本ルーチン - 6423 ;------------------------------------------------------------------------ 6424 S001C87 60 SUB R0 ;[ IBT R0,#0 ] 6425 S001C88 3E A0 69 SMS R0,CPLSPJP ;ジタバタジャンプフラグ”ＯＦＦ” 6426 ; 6427 ;-------------- 雪効果セットチェックカウンターセット ------------ 6428 S001C8B 3D A6 5A LMS R6,CPLMVSP ;(R6) <-- 移動スピード 6429 S001C8E 3D A0 C3 LMS R0,CPSK_WALK 6430 S001C91 56 ADD R6 6431 S001C92 90 SBK ;[ SMS R0,CPSK_WALK ] 6432 S001C93 C0 HIB 6433 S001C94 3E 77 AND #07H 6434 S001C96 3E A0 7C SMS R0,CPLWALK ;歩きパターンカウンターセット 6435 ; 6436 ;-------------- 座標計算 ------------------------------------------------ 6437 S001C99 3D A5 60 LMS R5,CPLJUMP ;(R5) <-- ジャンプフラグ 6438 S001C9C E5 DEC R5 6439 S001C9D 0A 09' BPL SKI_MV_0010 ;ジャンプ中？ ( yes:SKI_MV_0010 ) 6440 S001C9F D5 INC R5 6441 ; 6442 mJSR PL_CALC_NOJUMP ;座標計算 6442+ S001CA0 94 LINK #4 6442+ S001CA1 FF 0000" IWT R15, #PL_CALC_NOJUMP 6442+ S001CA4 01 NOP 6443 S001CA5 05 0E' BRA SKI_MV_0020 6444 S001CA7 01 NOP 6445 ; 6446 SKI_MV_0010 6447 S001CA8 3E A6 54 SMS R6,CPLXSPD ;Ｘスピードセット 6448 S001CAB 3D A2 55 LMS R2,CPLYSPD ;(R2) <-- Ｙスピード 6449 S001CAE A0 28 IBT R0,#028H ;(R0) <-- 重力 6450 mJSR PL_CALC_JUMP ;座標計算 6450+ S001CB0 94 LINK #4 6450+ S001CB1 FF 0000" IWT R15, #PL_CALC_JUMP 6450+ S001CB4 01 NOP 6451 ; 6452 ;-------------- ＢＧチェック -------------------------------------------- 6453 SKI_MV_0020 6454 S001CB5 3D A0 60 LMS R0,CPLJUMP ;ジャンプフラグ待避 6455 S001CB8 3E A0 C1 SMS R0,CPSK_WRK0 6456 S001CBB 3D A0 5B LMS R0,CPLANGL ;移動角度待避 6457 S001CBE 3E A0 C2 SMS R0,CPSK_WRK1 6458 ; 6459 mJSR PL_BGCK ;ＢＧチェック 6459+ S001CC1 94 LINK #4 6459+ S001CC2 FF 0000" IWT R15, #PL_BGCK 6459+ S001CC5 01 NOP 6460 ; 6461 ;-------------- 自然ジャンプ、転びチェック ------------------------------ 6462 S001CC6 3D A0 60 LMS R0,CPLJUMP 6463 S001CC9 E0 DEC R0 6464 S001CCA 0A 49' BPL SKI_MV_0100 ;着地？ ( no:SKI_MV_0100 ) 6465 S001CCC 01 NOP 6466 ; 6467 S001CCD 3D A0 C1 LMS R0,CPSK_WRK0 6468 S001CD0 3E 60 SUB #0 6469 S001CD2 08 41' BNE SKI_MV_0100 ;前回着地？ ( no:SKI_MV_0100 ) 6470 S001CD4 01 NOP 6471 ; 6472 S001CD5 3D A0 5B LMS R0,CPLANGL 6473 S001CD8 3D A1 C2 LMS R1,CPSK_WRK1 6474 S001CDB 61 SUB R1 6475 S001CDC 95 SEX 6476 S001CDD 0B 20' BMI SKI_MV_0050 ;自然ジャンプチェック？ ( yes:SKI_MV_0050 ) 6477 S001CDF 01 NOP 6478 ; 6479 ;-------------- 転びチェック ------------------------------------ 6480 S001CE0 A1 21 IBT R1,#020H+1 6481 S001CE2 61 SUB R1 6482 S001CE3 0C 30' BCC SKI_MV_0100 ;転ぶ？ ( no:SKI_MV_0100 ) 6483 S001CE5 01 NOP 6484 ; 6485 ;-------------- 転んだ！！ ------------------------------ 6486 S001CE6 3D A0 C0 LMS R0,CPSK_FAIL 6487 S001CE9 E0 DEC R0 6488 S001CEA 0A 29' BPL SKI_MV_0100 ;すでに転んでる？ ( yes:SKI_MV_0100 ) 6489 S001CEC 01 NOP 6490 ; 6491 S001CED F0 0080 IWT R0,#080H ;転びフラグセット 6492 S001CF0 90 SBK ;[ SMS R0,CPSK_FAIL ] 6493 ;;;; IWT R0,#080H 6494 S001CF1 3E A0 FB SMS R0,CPSK_TIM0 ;転びタイマーセット 6495 ; 6496 S001CF4 A0 3C IBT R0,#03CH ;[♪] 6497 S001CF6 3E A0 3D SMS R0,CMSOUND3 6498 ; 6499 S001CF9 F1 FC00 IWT R1,#0FC00H ;(R1) <-- ジャンプＹスピード 6500 S001CFC 05 0B' BRA SKI_MV_0060 6501 S001CFE 60 SUB R0 ;[ IBT R0,#0 ] 6502 ; 6503 ;-------------- 自然ジャンプチェック ---------------------------- 6504 SKI_MV_0050 6505 S001CFF A1 1F IBT R1,#020H-1 6506 S001D01 51 ADD R1 6507 S001D02 0A 11' BPL SKI_MV_0100 ;ジャンプする？ ( no:SKI_MV_0100 ) 6508 S001D04 60 SUB R0 ;[ IBT R0,#0 ] 6509 ; 6510 ;-------------- 自然ジャンプした！！ -------------------- 6511 S001D05 3D F1 1E3C LM R1,CPL_ANGL_YSP ;(R1) <-- ジャンプＹスピード 6512 SKI_MV_0060 6513 S001D09 3E A0 BF SMS R0,CPSK_ANGL ;回転角度リセット 6514 S001D0C 3E A1 55 SMS R1,CPLYSPD 6515 S001D0F F0 0008 IWT R0,#P008 ;ジャンプフラグ”ＯＮ” 6516 S001D12 3E A0 60 SMS R0,CPLJUMP 6517 ; 6518 SKI_MV_0100 6519 S001D15 3D A0 C0 LMS R0,CPSK_FAIL ;(R0) <-- 転びフラグ（雪だるま倍率） 6520 S001D18 E0 DEC R0 6521 S001D19 0A 05' BPL SKI_MV_0110 ;転び中？ ( yes:SKI_MV_0110 ) 6522 S001D1B D0 INC R0 6523 ; 6524 mDJMP SKI_MV_0500 6524+ S001D1C FF 1DCC' IWT R15, #SKI_MV_0500 6524+ S001D1F 01 NOP 6525 ; 6526 ;------------------------------------------------------------------------ 6527 ;- 転び中の処理 - 6528 ;------------------------------------------------------------------------ 6529 SKI_MV_0110 6530 S001D20 3D A1 60 LMS R1,CPLJUMP 6531 S001D23 E1 DEC R1 6532 S001D24 0A 5A' BPL SKI_MV_0200 ;ジャンプ中？ ( yes:SKI_MV_0200 ) 6533 S001D26 D1 INC R1 6534 ; 6535 S001D27 3E 52 ADD #02H 6536 S001D29 3E A0 C0 SMS R0,CPSK_FAIL ;転びフラグ（雪だるま倍率）セット 6537 S001D2C F1 0100 IWT R1,#0100H 6538 S001D2F 61 SUB R1 6539 S001D30 0C 4B' BCC SKI_MV_0150 ;雪だるま倍率ＭＡＸ？ ( no:SKI_MV_0150 ) 6540 S001D32 51 ADD R1 6541 ; 6542 S001D33 3D A0 FB LMS R0,CPSK_TIM0 6543 S001D36 E0 DEC R0 6544 S001D37 0A 42' BPL SKI_MV_0120 ;転び終了？ ( no:SKI_MV_0120 ) 6545 S001D39 01 NOP 6546 ; 6547 ;-------------- 転び終了 ------------------------------------------------ 6548 S001D3A 3D F0 00B7 LM R0,CPLANGL+1 6549 S001D3E 4F NOT 6550 S001D3F D0 INC R0 6551 S001D40 3E A0 BF SMS R0,CPSK_ANGL ;回転角度リセット 6552 ; 6553 S001D43 A0 0A IBT R0,#0AH ;[♪] 6554 S001D45 3E A0 3D SMS R0,CMSOUND3 6555 ; 6556 S001D48 F5 0000" IWT R5,#SNOW1 ;(R5) <-- 効果Ｎｏ． 6557 mJSR M_EXINSR ;効果エリア確保 6557+ S001D4B 94 LINK #4 6557+ S001D4C FF 0000" IWT R15, #M_EXINSR 6557+ S001D4F 01 NOP 6558 ; 6559 S001D50 3D A5 46 LMS R5,CPLXPSL 6560 mSTW R5,CEXXPSL,R1 ;Ｘ座標セット 6560+ S001D53 F0 10A2 IWT R0,#CEXXPSL 6560+ S001D56 51 ADD R1 6560+ S001D57 B5 FROM R5 6560+ S001D58 30 STW (R0) 6561 S001D59 3D A0 48 LMS R0,CPLYPSL 6562 S001D5C 15 TO R5 6563 S001D5D 3E 5C ADD #0CH 6564 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 6564+ S001D5F F0 1142 IWT R0,#CEXYPSL 6564+ S001D62 51 ADD R1 6564+ S001D63 B5 FROM R5 6564+ S001D64 30 STW (R0) 6565 S001D65 3D A5 0E LMS R5,CWORKE 6566 S001D68 A5 07 IBT R5,#07H 6567 mSTW R5,CEXWRK0,R1 ;初期カウンターセット 6567+ S001D6A F0 1E4C IWT R0,#CEXWRK0 6567+ S001D6D 51 ADD R1 6567+ S001D6E B5 FROM R5 6567+ S001D6F 30 STW (R0) 6568 S001D70 A5 04 IBT R5,#04H 6569 mSTW R5,CEXTIM0,R1 ;初期タイマーセット 6569+ S001D72 F0 1782 IWT R0,#CEXTIM0 6569+ S001D75 51 ADD R1 6569+ S001D76 B5 FROM R5 6569+ S001D77 30 STW (R0) 6570 ; 6571 S001D78 05 03' BRA SKI_MV_0150 6572 S001D7A 60 SUB R0 ;[ IBT R0,#0 ] 6573 ; 6574 SKI_MV_0120 6575 S001D7B 21 10 MOVE R0,R1 6576 SKI_MV_0150 6577 S001D7D 3E A0 C0 SMS R0,CPSK_FAIL ;雪だるま倍率セット 6578 ; 6579 SKI_MV_0200 6580 S001D80 F2 0190 IWT R2,#SK08 ;(R2) <-- 転びパターンセット 6581 S001D83 F1 0080 IWT R1,#080H 6582 S001D86 61 SUB R1 6583 S001D87 09 3C' BEQ SKI_MV_0400 ;雪だるま？ ( no:SKI_MV_0400 ) 6584 S001D89 51 ADD R1 6585 ; 6586 ;-------------- 雪だるまキャラクターセット ------------------------------ 6587 S001D8A 20 16 MOVE R6,R0 ;(R6) <-- 倍率 6588 S001D8C A2 20 IBT R2,#020H ;(R2) <-- ビットマップ座標＿Ｙ 6589 S001D8E A3 00 IBT R3,#000H ;(R3) <-- ” ＿Ｘ 6590 S001D90 A8 10 IBT R8,#010H ;(R8) <-- 中心＿Ｘ 6591 S001D92 A9 10 IBT R9,#010H ;(R9) <-- ”＿Ｙ vvv******* warn :value out of range 6592 S001D94 FC 2021 IWT R12,#CIPCHD+2020H+1 ;(R12) <-- 雪玉キャラクターアドレス（Ｌ，Ｈ） 6593 S001D97 AD 54 IBT R13,#BANK CIPCHD ;(R13) <-- キャラクターアドレス（Ｂ） 6594 ; 6595 mJSR R_32_ZOOM ;キャラクター拡大、縮小（サイズ ３２×３２） 6595+ S001D99 94 LINK #4 6595+ S001D9A FF 0000" IWT R15, #R_32_ZOOM 6595+ S001D9D 01 NOP 6596 ; 6597 S001D9E A2 20 IBT R2,#020H ;(R2) <-- ビットマップ座標＿Ｙ 6598 S001DA0 A3 00 IBT R3,#000H ;(R3) <-- ” ＿Ｘ 6599 S001DA2 3D A0 5A LMS R0,CPLMVSP 6600 S001DA5 50 ADD R0 ;x2 6601 S001DA6 3D A5 BF LMS R5,CPSK_ANGL 6602 S001DA9 55 ADD R5 6603 S001DAA 90 SBK ;[ SMS R0,CPSK_ANGL ] 6604 S001DAB 15 TO R5 ;(R5) <-- 角度 6605 S001DAC C0 HIB 6606 S001DAD F6 0100 IWT R6,#0100H ;(R6) <-- Ｘ倍率 6607 S001DB0 26 14 MOVE R4,R6 ;(R4) <-- Ｙ ” vvv******* warn :value out of range 6608 S001DB2 FC 0001 IWT R12,#CIPCHD+0000H+1 ;(R12) <-- スキー板キャラクターアドレス（Ｌ，Ｈ） 6609 S001DB5 AD 54 IBT R13,#BANK CIPCHD ;(R13) <-- キャラクターアドレス（Ｂ） 6610 ; 6611 S001DB7 A1 00 IBT R1,#00H ;(R1) <-- 重ね塗りモード 6612 mJSR R_32_RTZ_32_XY_C ;キャラクター拡大、縮小、回転（サイズ ３２×３２） 6612+ S001DB9 94 LINK #4 6612+ S001DBA FF 0000" IWT R15, #R_32_RTZ_32_XY_C 6612+ S001DBD 01 NOP 6613 ; 6614 S001DBE 60 SUB R0 ;[ IBT R0,#0 ] 6615 S001DBF 3E A0 92 SMS R0,CPLCLOR 6616 ; 6617 S001DC2 F2 0188 IWT R2,#SK00 ;パターンＮｏ．セット 6618 SKI_MV_0400 6619 S001DC5 3E A2 5F SMS R2,CPLPATN 6620 mDJMP SKI_MV_0800 6620+ S001DC8 FF 1E38' IWT R15, #SKI_MV_0800 6620+ S001DCB 01 NOP 6621 ; 6622 ;------------------------------------------------------------------------ 6623 ;- 滑り処理 - 6624 ;------------------------------------------------------------------------ 6625 SKI_MV_0500 6626 ; 6627 ;-------------- キャラクター回転角度計算 -------------------------------- 6628 S001DCC 3D F0 00B7 LM R0,CPLANGL+1 6629 S001DD0 1A TO R10 ;(R10) <-- 目標回転角度 6630 S001DD1 4F NOT 6631 S001DD2 DA INC R10 6632 S001DD3 3D A0 5A LMS R0,CPLMVSP 6633 S001DD6 14 TO R4 6634 S001DD7 3D 96 DIV2 6635 S001DD9 14 TO R4 ;(R4) <-- 回転スピード 6636 S001DDA 64 SUB R4 6637 mJSR C_ANGL_CALC ;キャラクター回転角度計算 6637+ S001DDB 94 LINK #4 6637+ S001DDC FF 03D9' IWT R15, #C_ANGL_CALC 6637+ S001DDF 01 NOP 6638 ; 6639 ;-------------- 回転キャラクターセット ---------------------------------- 6640 S001DE0 3D A0 60 LMS R0,CPLJUMP 6641 S001DE3 E0 DEC R0 6642 S001DE4 0A 26' BPL SKI_MV_0540 ;ジャンプ中？ ( yes:SKI_MV_0540 ) 6643 S001DE6 60 SUB R0 ;[ IBT R0,#0 ] 6644 ; 6645 ;-------------- ジャンプキーチェック ---------------------------- vvv******* warn :value out of range 6646 S001DE7 FC 2001 IWT R12,#CIPCHD+2000H+1 ;(R12) <-- 着地キャラクターアドレス（Ｌ，Ｈ） 6647 ; 6648 S001DEA 3D A0 39 LMS R0,CMKEYC2L 6649 S001DED 3D A1 42 LMS R1,CP_KEY_JUMP ;(R1) <-- ジャンプボタン情報 6650 S001DF0 71 AND R1 6651 S001DF1 09 2C' BEQ SKI_MV_0550 ;ジャンプキー入力？ ( no:SKI_MV_0550 ) 6652 S001DF3 01 NOP 6653 ; 6654 ;-------------- ジャンプセット -------------------------- 6655 S001DF4 A0 49 IBT R0,#049H ;[♪] 6656 S001DF6 3E A0 3D SMS R0,CMSOUND3 6657 ; 6658 S001DF9 F0 FCC0 IWT R0,#0FCC0H ;Ｙスピードセット 6659 S001DFC 3E A0 55 SMS R0,CPLYSPD 6660 S001DFF F0 0006 IWT R0,#P006 6661 S001E02 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＮ” 6662 ; 6663 S001E05 A0 00" IBT R0,#BANK PLAYER_DATA 6664 S001E07 3F DF ROMB 6665 ; 6666 S001E09 05 14' BRA SKI_MV_0550 6667 S001E0B 01 NOP 6668 ; 6669 SKI_MV_0540 6670 S001E0C 3E A0 BF SMS R0,CPSK_ANGL ;回転角度リセット 6671 ; vvv******* warn :value out of range 6672 S001E0F FC 0021 IWT R12,#CIPCHD+0020H+1 ;(R12) <-- 上昇キャラクターアドレス（Ｌ，Ｈ） 6673 S001E12 3D A0 55 LMS R0,CPLYSPD 6674 S001E15 F1 0080 IWT R1,#080H 6675 S001E18 61 SUB R1 6676 S001E19 0B 04' BMI SKI_MV_0550 ;上昇パターン？ ( yes:SKI_MV_0550 ) 6677 S001E1B 01 NOP 6678 ; vvv******* warn :value out of range 6679 S001E1C FC 4040 IWT R12,#CIPCHD+4040H ;(R12) <-- 下降キャラクターアドレス（Ｌ，Ｈ） 6680 SKI_MV_0550 6681 S001E1F AD 54 IBT R13,#BANK CIPCHD ;(R13) <-- キャラクターアドレス（Ｂ） 6682 ; 6683 S001E21 A2 20 IBT R2,#020H ;(R2) <-- ビットマップ座標＿Ｙ 6684 S001E23 A3 00 IBT R3,#000H ;(R3) <-- ” ＿Ｘ 6685 S001E25 3D A0 BF LMS R0,CPSK_ANGL 6686 S001E28 15 TO R5 ;(R5) <-- 角度 6687 S001E29 C0 HIB 6688 S001E2A F6 0100 IWT R6,#0100H ;(R6) <-- 倍率 6689 mJSR R_32_RTZ_32 ;キャラクター拡大、縮小、回転（サイズ ３２×３２） 6689+ S001E2D 94 LINK #4 6689+ S001E2E FF 0000" IWT R15, #R_32_RTZ_32 6689+ S001E31 01 NOP 6690 ; 6691 S001E32 F0 0188 IWT R0,#SK00 ;パターンＮｏ．セット 6692 S001E35 3E A0 5F SMS R0,CPLPATN 6693 ; 6694 ;-------------- スピードセット ------------------------------------------ 6695 SKI_MV_0800 6696 S001E38 A0 00" IBT R0,#BANK PLAYER_DATA 6697 S001E3A 3F DF ROMB 6698 ; 6699 S001E3C 3D A0 60 LMS R0,CPLJUMP 6700 S001E3F E0 DEC R0 6701 S001E40 0B 10' BMI SKI_MV_0810 ;ジャンプ中？ ( no:SKI_MV_0810 ) 6702 S001E42 01 NOP 6703 ; 6704 ;-------------- ジャンプ中の減速 -------------------------------- 6705 S001E43 3D A0 5A LMS R0,CPLMVSP 6706 S001E46 F1 0200 IWT R1,#0200H 6707 S001E49 61 SUB R1 6708 S001E4A 0B 10' BMI SKI_MV_0820 ;減速？ ( no:SKI_MV_0820 ) 6709 S001E4C 51 ADD R1 6710 ; 6711 S001E4D 3E 64 SUB #04H 6712 S001E4F 05 0B' BRA SKI_MV_0820 6713 S001E51 90 SBK ;[ SMS R0,CPLMVSP ] 6714 ; 6715 ;-------------- 滑ってる時の加減速 ------------------------------ 6716 SKI_MV_0810 6717 S001E52 A0 00" IBT R0,#ON_SKI ;スキー加速タイプセット 6718 S001E54 3E A0 7D SMS R0,CPLBGNO 6719 mJSR PL_XSP_DOWN 6719+ S001E57 94 LINK #4 6719+ S001E58 FF 0000" IWT R15, #PL_XSP_DOWN 6719+ S001E5B 01 NOP 6720 ; 6721 SKI_MV_0820 6722 S001E5C 60 SUB R0 ;<<< end >>> 6723 S001E5D 00 STOP 6724 S001E5E 01 NOP 6725 ; 6726 ;************************************************************************ 6727 ;* * 6728 ;* タマゴヨッシー * 6729 ;* * 6730 ;************************************************************************ 6731 EGG_MV 6732 ;;;; mJSR PL_CALC ;座標計算 6733 ;;;;; 6734 ;;;; mJSR PL_BGCK ;ＢＧチェック 6735 ;;;; mJSR WATR_CHECK ;水中チェック 6736 ;;;;; 6737 ;;;;;------------------------------------------------------------------------ 6738 ;;;;;- コントローラー入力チェック - 6739 ;;;;;------------------------------------------------------------------------ 6740 ;;;; mJSR PL_KEY ;コントローラー入力 6741 ;;;;; 6742 ;;;; mJSR PL_PATN ;パターンＮｏ．セット 6743 ;;;;; 6744 ;;;; SUB R0 ;<<< end >>> 6745 ;;;; STOP 6746 ;;;; NOP 6747 ; 6748 ; 6749 ; 6750 ; 6751 mEND_NOP 6751+ S001E5F 01 NOP 6751+ S001E60 01 NOP 6751+ S001E61 01 NOP 6751+ S001E62 01 NOP 6751+ S001E63 01 NOP 6751+ S001E64 01 NOP 6751+ S001E65 01 NOP 6751+ S001E66 01 NOP 6751+ S001E67 01 NOP 6751+ S001E68 01 NOP 6751+ S001E69 01 NOP 6751+ S001E6A 01 NOP 6751+ S001E6B 01 NOP 6751+ S001E6C 01 NOP 6751+ S001E6D 01 NOP 6751+ S001E6E 01 NOP 6751+ S001E6F 01 NOP 6751+ S001E70 01 NOP 6751+ S001E71 01 NOP 6751+ S001E72 01 NOP 6751+ S001E73 01 NOP 6751+ S001E74 01 NOP 6751+ S001E75 01 NOP 6751+ S001E76 01 NOP 6751+ S001E77 01 NOP 6751+ S001E78 01 NOP 6751+ S001E79 01 NOP 6751+ S001E7A 01 NOP 6751+ S001E7B 01 NOP 6751+ S001E7C 01 NOP 6751+ S001E7D 01 NOP 6751+ S001E7E 01 NOP 6751+ S001E7F 01 NOP 6751+ S001E80 01 NOP 6751+ S001E81 01 NOP 6751+ S001E82 01 NOP 6751+ S001E83 01 NOP 6751+ S001E84 01 NOP 6751+ S001E85 01 NOP 6751+ S001E86 01 NOP 6751+ S001E87 01 NOP 6751+ S001E88 01 NOP 6751+ S001E89 01 NOP 6751+ S001E8A 01 NOP 6751+ S001E8B 01 NOP 6751+ S001E8C 01 NOP 6751+ S001E8D 01 NOP 6751+ S001E8E 01 NOP 6751+ S001E8F 01 NOP 6751+ S001E90 01 NOP 6751+ S001E91 01 NOP 6751+ S001E92 01 NOP 6751+ S001E93 01 NOP 6751+ S001E94 01 NOP 6751+ S001E95 01 NOP 6751+ S001E96 01 NOP 6751+ S001E97 01 NOP 6751+ S001E98 01 NOP 6751+ S001E99 01 NOP 6751+ S001E9A 01 NOP 6751+ S001E9B 01 NOP 6751+ S001E9C 01 NOP 6751+ S001E9D 01 NOP 6751+ S001E9E 01 NOP 6751+ S001E9F 01 NOP 6751+ S001EA0 01 NOP 6751+ S001EA1 01 NOP 6751+ S001EA2 01 NOP 6751+ S001EA3 01 NOP 6751+ S001EA4 01 NOP 6751+ S001EA5 01 NOP 6751+ S001EA6 01 NOP 6751+ S001EA7 01 NOP 6751+ S001EA8 01 NOP 6751+ S001EA9 01 NOP 6751+ S001EAA 01 NOP 6751+ S001EAB 01 NOP 6751+ S001EAC 01 NOP 6751+ S001EAD 01 NOP 6751+ S001EAE 01 NOP 6751+ S001EAF 01 NOP 6751+ S001EB0 01 NOP 6751+ S001EB1 01 NOP 6751+ S001EB2 01 NOP 6751+ S001EB3 01 NOP 6751+ S001EB4 01 NOP 6751+ S001EB5 01 NOP 6751+ S001EB6 01 NOP 6751+ S001EB7 01 NOP 6751+ S001EB8 01 NOP 6751+ S001EB9 01 NOP 6751+ S001EBA 01 NOP 6751+ S001EBB 01 NOP 6751+ S001EBC 01 NOP 6751+ S001EBD 01 NOP 6751+ S001EBE 01 NOP 6751+ S001EBF 01 NOP 6751+ S001EC0 01 NOP 6751+ S001EC1 01 NOP 6751+ S001EC2 01 NOP 6751+ S001EC3 01 NOP 6751+ S001EC4 01 NOP 6751+ S001EC5 01 NOP 6751+ S001EC6 01 NOP 6751+ S001EC7 01 NOP 6751+ S001EC8 01 NOP 6751+ S001EC9 01 NOP 6751+ S001ECA 01 NOP 6751+ S001ECB 01 NOP 6751+ S001ECC 01 NOP 6751+ S001ECD 01 NOP 6751+ S001ECE 01 NOP 6751+ S001ECF 01 NOP 6751+ S001ED0 01 NOP 6751+ S001ED1 01 NOP 6751+ S001ED2 01 NOP 6751+ S001ED3 01 NOP 6751+ S001ED4 01 NOP 6751+ S001ED5 01 NOP 6751+ S001ED6 01 NOP 6751+ S001ED7 01 NOP 6751+ S001ED8 01 NOP 6751+ S001ED9 01 NOP 6751+ S001EDA 01 NOP 6751+ S001EDB 01 NOP 6751+ S001EDC 01 NOP 6751+ S001EDD 01 NOP 6751+ S001EDE 01 NOP 6751+ S001EDF 01 NOP 6751+ S001EE0 01 NOP 6751+ S001EE1 01 NOP 6751+ S001EE2 01 NOP 6751+ S001EE3 01 NOP 6751+ S001EE4 01 NOP 6751+ S001EE5 01 NOP 6751+ S001EE6 01 NOP 6751+ S001EE7 01 NOP 6751+ S001EE8 01 NOP 6751+ S001EE9 01 NOP 6751+ S001EEA 01 NOP 6751+ S001EEB 01 NOP 6751+ S001EEC 01 NOP 6751+ S001EED 01 NOP 6751+ S001EEE 01 NOP 6751+ S001EEF 01 NOP 6751+ S001EF0 01 NOP 6751+ S001EF1 01 NOP 6751+ S001EF2 01 NOP 6751+ S001EF3 01 NOP 6751+ S001EF4 01 NOP 6751+ S001EF5 01 NOP 6751+ S001EF6 01 NOP 6751+ S001EF7 01 NOP 6751+ S001EF8 01 NOP 6751+ S001EF9 01 NOP 6751+ S001EFA 01 NOP 6751+ S001EFB 01 NOP 6751+ S001EFC 01 NOP 6751+ S001EFD 01 NOP 6751+ S001EFE 01 NOP 6751+ S001EFF 01 NOP 6751+ S001F00 01 NOP 6751+ S001F01 01 NOP 6751+ S001F02 01 NOP 6751+ S001F03 01 NOP 6751+ S001F04 01 NOP 6751+ S001F05 01 NOP 6751+ S001F06 01 NOP 6751+ S001F07 01 NOP 6751+ S001F08 01 NOP 6751+ S001F09 01 NOP 6751+ S001F0A 01 NOP 6751+ S001F0B 01 NOP 6751+ S001F0C 01 NOP 6751+ S001F0D 01 NOP 6751+ S001F0E 01 NOP 6751+ S001F0F 01 NOP 6751+ S001F10 01 NOP 6751+ S001F11 01 NOP 6751+ S001F12 01 NOP 6751+ S001F13 01 NOP 6751+ S001F14 01 NOP 6751+ S001F15 01 NOP 6751+ S001F16 01 NOP 6751+ S001F17 01 NOP 6751+ S001F18 01 NOP 6751+ S001F19 01 NOP 6751+ S001F1A 01 NOP 6751+ S001F1B 01 NOP 6751+ S001F1C 01 NOP 6751+ S001F1D 01 NOP 6751+ S001F1E 01 NOP 6751+ S001F1F 01 NOP 6751+ S001F20 01 NOP 6751+ S001F21 01 NOP 6751+ S001F22 01 NOP 6751+ S001F23 01 NOP 6751+ S001F24 01 NOP 6751+ S001F25 01 NOP 6751+ S001F26 01 NOP 6751+ S001F27 01 NOP 6751+ S001F28 01 NOP 6751+ S001F29 01 NOP 6751+ S001F2A 01 NOP 6751+ S001F2B 01 NOP 6751+ S001F2C 01 NOP 6751+ S001F2D 01 NOP 6751+ S001F2E 01 NOP 6751+ S001F2F 01 NOP 6751+ S001F30 01 NOP 6751+ S001F31 01 NOP 6751+ S001F32 01 NOP 6751+ S001F33 01 NOP 6751+ S001F34 01 NOP 6751+ S001F35 01 NOP 6751+ S001F36 01 NOP 6751+ S001F37 01 NOP 6751+ S001F38 01 NOP 6751+ S001F39 01 NOP 6751+ S001F3A 01 NOP 6751+ S001F3B 01 NOP 6751+ S001F3C 01 NOP 6751+ S001F3D 01 NOP 6751+ S001F3E 01 NOP 6751+ S001F3F 01 NOP 6751+ S001F40 01 NOP 6751+ S001F41 01 NOP 6751+ S001F42 01 NOP 6751+ S001F43 01 NOP 6751+ S001F44 01 NOP 6751+ S001F45 01 NOP 6751+ S001F46 01 NOP 6751+ S001F47 01 NOP 6751+ S001F48 01 NOP 6751+ S001F49 01 NOP 6751+ S001F4A 01 NOP 6751+ S001F4B 01 NOP 6751+ S001F4C 01 NOP 6751+ S001F4D 01 NOP 6751+ S001F4E 01 NOP 6751+ S001F4F 01 NOP 6751+ S001F50 01 NOP 6751+ S001F51 01 NOP 6751+ S001F52 01 NOP 6751+ S001F53 01 NOP 6751+ S001F54 01 NOP 6751+ S001F55 01 NOP 6751+ S001F56 01 NOP 6751+ S001F57 01 NOP 6751+ S001F58 01 NOP 6751+ S001F59 01 NOP 6751+ S001F5A 01 NOP 6751+ S001F5B 01 NOP 6751+ S001F5C 01 NOP 6751+ S001F5D 01 NOP 6751+ S001F5E 01 NOP 6751+ S001F5F 01 NOP 6751+ S001F60 01 NOP 6751+ S001F61 01 NOP 6751+ S001F62 01 NOP 6751+ S001F63 01 NOP 6751+ S001F64 01 NOP 6751+ S001F65 01 NOP 6751+ S001F66 01 NOP 6751+ S001F67 01 NOP 6751+ S001F68 01 NOP 6751+ S001F69 01 NOP 6751+ S001F6A 01 NOP 6751+ S001F6B 01 NOP 6751+ S001F6C 01 NOP 6751+ S001F6D 01 NOP 6751+ S001F6E 01 NOP 6751+ S001F6F 01 NOP 6751+ S001F70 01 NOP 6751+ S001F71 01 NOP 6751+ S001F72 01 NOP 6751+ S001F73 01 NOP 6751+ S001F74 01 NOP 6751+ S001F75 01 NOP 6751+ S001F76 01 NOP 6751+ S001F77 01 NOP 6751+ S001F78 01 NOP 6751+ S001F79 01 NOP 6751+ S001F7A 01 NOP 6751+ S001F7B 01 NOP 6751+ S001F7C 01 NOP 6751+ S001F7D 01 NOP 6751+ S001F7E 01 NOP 6751+ S001F7F 01 NOP 6751+ S001F80 01 NOP 6751+ S001F81 01 NOP 6751+ S001F82 01 NOP 6751+ S001F83 01 NOP 6751+ S001F84 01 NOP 6751+ S001F85 01 NOP 6751+ S001F86 01 NOP 6751+ S001F87 01 NOP 6751+ S001F88 01 NOP 6751+ S001F89 01 NOP 6751+ S001F8A 01 NOP 6751+ S001F8B 01 NOP 6751+ S001F8C 01 NOP 6751+ S001F8D 01 NOP 6751+ S001F8E 01 NOP 6751+ S001F8F 01 NOP 6751+ S001F90 01 NOP 6751+ S001F91 01 NOP 6751+ S001F92 01 NOP 6751+ S001F93 01 NOP 6751+ S001F94 01 NOP 6751+ S001F95 01 NOP 6751+ S001F96 01 NOP 6751+ S001F97 01 NOP 6751+ S001F98 01 NOP 6751+ S001F99 01 NOP 6751+ S001F9A 01 NOP 6751+ S001F9B 01 NOP 6751+ S001F9C 01 NOP 6751+ S001F9D 01 NOP 6751+ S001F9E 01 NOP 6751+ S001F9F 01 NOP 6751+ S001FA0 01 NOP 6751+ S001FA1 01 NOP 6751+ S001FA2 01 NOP 6751+ S001FA3 01 NOP 6751+ S001FA4 01 NOP 6751+ S001FA5 01 NOP 6751+ S001FA6 01 NOP 6751+ S001FA7 01 NOP 6751+ S001FA8 01 NOP 6751+ S001FA9 01 NOP 6751+ S001FAA 01 NOP 6751+ S001FAB 01 NOP 6751+ S001FAC 01 NOP 6751+ S001FAD 01 NOP 6751+ S001FAE 01 NOP 6751+ S001FAF 01 NOP 6751+ S001FB0 01 NOP 6751+ S001FB1 01 NOP 6751+ S001FB2 01 NOP 6751+ S001FB3 01 NOP 6751+ S001FB4 01 NOP 6751+ S001FB5 01 NOP 6751+ S001FB6 01 NOP 6751+ S001FB7 01 NOP 6751+ S001FB8 01 NOP 6751+ S001FB9 01 NOP 6751+ S001FBA 01 NOP 6751+ S001FBB 01 NOP 6751+ S001FBC 01 NOP 6751+ S001FBD 01 NOP 6751+ S001FBE 01 NOP 6751+ S001FBF 01 NOP 6751+ S001FC0 01 NOP 6751+ S001FC1 01 NOP 6751+ S001FC2 01 NOP 6751+ S001FC3 01 NOP 6751+ S001FC4 01 NOP 6751+ S001FC5 01 NOP 6751+ S001FC6 01 NOP 6751+ S001FC7 01 NOP 6751+ S001FC8 01 NOP 6751+ S001FC9 01 NOP 6751+ S001FCA 01 NOP 6751+ S001FCB 01 NOP 6751+ S001FCC 01 NOP 6751+ S001FCD 01 NOP 6751+ S001FCE 01 NOP 6751+ S001FCF 01 NOP 6751+ S001FD0 01 NOP 6751+ S001FD1 01 NOP 6751+ S001FD2 01 NOP 6751+ S001FD3 01 NOP 6751+ S001FD4 01 NOP 6751+ S001FD5 01 NOP 6751+ S001FD6 01 NOP 6751+ S001FD7 01 NOP 6751+ S001FD8 01 NOP 6751+ S001FD9 01 NOP 6751+ S001FDA 01 NOP 6751+ S001FDB 01 NOP 6751+ S001FDC 01 NOP 6751+ S001FDD 01 NOP 6751+ S001FDE 01 NOP 6751+ S001FDF 01 NOP 6751+ S001FE0 01 NOP 6751+ S001FE1 01 NOP 6751+ S001FE2 01 NOP 6751+ S001FE3 01 NOP 6751+ S001FE4 01 NOP 6751+ S001FE5 01 NOP 6751+ S001FE6 01 NOP 6751+ S001FE7 01 NOP 6751+ S001FE8 01 NOP 6751+ S001FE9 01 NOP 6751+ S001FEA 01 NOP 6751+ S001FEB 01 NOP 6751+ S001FEC 01 NOP 6751+ S001FED 01 NOP 6751+ S001FEE 01 NOP 6751+ S001FEF 01 NOP 6751+ S001FF0 01 NOP 6751+ S001FF1 01 NOP 6751+ S001FF2 01 NOP 6751+ S001FF3 01 NOP 6751+ S001FF4 01 NOP 6751+ S001FF5 01 NOP 6751+ S001FF6 01 NOP 6751+ S001FF7 01 NOP 6751+ S001FF8 01 NOP 6751+ S001FF9 01 NOP 6751+ S001FFA 01 NOP 6751+ S001FFB 01 NOP 6751+ S001FFC 01 NOP 6751+ S001FFD 01 NOP 6751+ S001FFE 01 NOP 6751+ S001FFF 01 NOP 6752 ; 6753 END