File : ys_mplay3.asm SUPER-FX ASSEMBLER $Ver 1.01 Thu Aug 10 15:21:09 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 10E3' IWT R15, #MR_CALC 1055+ S0004B8 01 NOP 1056 ; 1057 mJSR MR_BGCK ;ＢＧチェック 1057+ S0004B9 94 LINK #4 1057+ S0004BA FF 09A4' 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 IF JPN | NES ;**** 日本 or NES 対応 [1995/08/07] ********************** 1324 S000501 F4 FFA0 IWT R4,#-060H 1325 ELSE ;**** PAL 対応 [1995/08/07] ***************************** 1326 IWT R4,#0FF40H 1327 ENDIF 1328 S000504 54 ADD R4 1329 S000505 90 SBK ;[ SMS R0,CPMR_FBSP ] 1330 ; 1331 S000506 57 ADD R7 1332 S000507 3E A0 C6 SMS R0,CPMR_FBCT 1333 ;;;; mDJMP MR_KEY_1500 1334 ; 1335 ;---------------------------------------------------------------- 1336 ;- しゃがみチェック - 1337 ;---------------------------------------------------------------- 1338 MR_KEY_1002 1339 S00050A 3D A7 61 LMS R7,CPLSITD ;(R7) <-- しゃがみフラグ 1340 S00050D A8 FF IBT R8,#-1 ;(R8) <-- しゃがみフラグ減算データ 1341 S00050F B1 FROM R1 1342 S000510 3E 74 AND #00000100B ;(R0) <-- ＭＡＸチェックデータ（０） 1343 S000512 09 05' BEQ MR_KEY_1010 ;しゃがみ？ ( no:MR_KEY_1010 ) 1344 S000514 01 NOP 1345 ; 1346 S000515 A8 01 IBT R8,#1 ;(R8) <-- しゃがみフラグ加算データ 1347 S000517 A0 05 IBT R0,#5 ;(R0) <-- ＭＡＸチェックデータ 1348 MR_KEY_1010 1349 S000519 67 SUB R7 1350 S00051A 09 04' BEQ MR_KEY_1020 ;しゃがみフラグＭＡＸ？ ( yes:MR_KEY_1020 ) 1351 S00051C 57 ADD R7 1352 ; 1353 S00051D B7 FROM R7 1354 S00051E 58 ADD R8 1355 S00051F 90 SBK ;[ SMS R0,CPLSITD ] 1356 MR_KEY_1020 1357 S000520 09 0D' BEQ MR_KEY_1100 ;しゃがみ中？ ( no:MR_KEY_1100 ) 1358 S000522 01 NOP 1359 ; 1360 S000523 3D F0 0085 LM R0,CP_KEY_JUMP+1 ;(R0) <-- ジャンプボタン情報 1361 S000527 72 AND R2 1362 S000528 08 11' BNE MR_KEY_1110 ;ジャンプ？ ( yes:MR_KEY_1110 ) 1363 S00052A 01 NOP 1364 ; 1365 mDJMP MR_KEY_1800 1365+ S00052B FF 06AA' IWT R15, #MR_KEY_1800 1365+ S00052E 01 NOP 1366 ; 1367 ;---------------------------------------------------------------- 1368 ;- ジャンプチェック - 1369 ;---------------------------------------------------------------- 1370 MR_KEY_1100 1371 S00052F 3D F0 0085 LM R0,CP_KEY_JUMP+1 ;(R0) <-- ジャンプボタン情報 1372 S000533 72 AND R2 1373 S000534 08 05' BNE MR_KEY_1110 ;ジャンプ？ ( yes:MR_KEY_1110 ) 1374 S000536 01 NOP 1375 ; 1376 mDJMP MR_KEY_1200 1376+ S000537 FF 05C1' IWT R15, #MR_KEY_1200 1376+ S00053A 01 NOP 1377 ; 1378 MR_KEY_1110 1379 S00053B A0 38 IBT R0,#038H ;[♪] 1380 S00053D 3E A0 3D SMS R0,CMSOUND3 1381 ; 1382 ;;;; IBT R0,#040H 1383 ;;;; SMS R0,CSOUND_ON ;サウンドセットフラグセット 1384 ;;;; LMS R0,CPLXPSL 1385 ;;;; SM R0,CSOUND_X ;サウンドセットＸ座標セット 1386 ;;;; LMS R0,CPLYPSL 1387 ;;;; SM R0,CSOUND_Y ;サウンドセットＹ座標セット 1388 ; 1389 S000540 F0 0170 IWT R0,#0170H 1390 S000543 3D F6 1E3A LM R6,CPL_ADD_XSP 1391 S000547 3D 9F LMULT 1392 S000549 24 WITH R4 1393 S00054A C0 HIB 1394 S00054B 9E LOB 1395 S00054C 4D SWAP 1396 S00054D 17 TO R7 ;(R7) <-- ジャンプＸスピード加算値 1397 S00054E C4 OR R4 1398 ; 1399 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 1400 S00054F F6 FB60 IWT R6,#0FB60H ;(R6) <-- ジャンプＹスピード 1401 ELSE ;**** PAL 対応 [1995/7/20] ************************ 1402 IWT R6,#0FAD0H ;(R6) <-- ジャンプＹスピード 1403 ENDIF 1404 S000552 3D A0 C0 LMS R0,CPMR_BGCF 1405 S000555 3E 60 SUB #0 1406 S000557 09 41' BEQ MR_KEY_1150 ;ソニックモード？ ( no:MR_KEY_1150 ) 1407 S000559 01 NOP 1408 ; 1409 ;-------------- ソニックモードからのジャンプ -------------------- 1410 S00055A A0 00" IBT R0,#BANK LSIN 1411 S00055C 3F DF ROMB 1412 ; 1413 S00055E FE 0000" IWT R14,#LSIN 1414 S000561 3D A0 5B LMS R0,CPLANGL ;(R0) <-- 足下角度 1415 S000564 1E TO R14 1416 S000565 5E ADD R14 1417 S000566 3F EF GETBS 1418 S000568 50 ADD R0 1419 S000569 50 ADD R0 ;[ 100H <-- 040H ] 1420 S00056A 3D 9F LMULT 1421 S00056C 24 WITH R4 1422 S00056D C0 HIB 1423 S00056E 9E LOB 1424 S00056F 4D SWAP 1425 S000570 C4 OR R4 1426 S000571 4F NOT 1427 S000572 D0 INC R0 1428 S000573 17 TO R7 ;(R7) <-- ジャンプＸスピード加算値 1429 S000574 57 ADD R7 1430 ; 1431 S000575 A0 40 IBT R0,#040H ;[ IWT R0,#LSIN ] 1432 S000577 2E WITH R14 1433 S000578 60 SUB R0 1434 S000579 3F EF GETBS 1435 S00057B 50 ADD R0 1436 S00057C 50 ADD R0 ;[ 100H <-- 040H ] 1437 S00057D 3D 9F LMULT 1438 S00057F 24 WITH R4 1439 S000580 C0 HIB 1440 S000581 9E LOB 1441 S000582 4D SWAP 1442 S000583 C4 OR R4 1443 S000584 3D A6 55 LMS R6,CPLYSPD 1444 S000587 E6 DEC R6 1445 S000588 0B 03' BMI MR_KEY_1120 1446 S00058A D6 INC R6 1447 ; 1448 S00058B A6 00 IBT R6,#0 1449 MR_KEY_1120 1450 S00058D 16 TO R6 ;(R6) <-- ジャンプＹスピードセット 1451 S00058E 56 ADD R6 1452 S00058F 0B 02' BMI MR_KEY_1130 ;上昇？ ( yes:MR_KEY_1130 ) 1453 S000591 16 TO R6 ;[ IBT R6,#0 ] 1454 ; 1455 S000592 60 SUB R0 1456 MR_KEY_1130 1457 S000593 A0 00" IBT R0,#BANK PLAYER_DATA 1458 S000595 3F DF ROMB 1459 S000597 05 0B' BRA MR_KEY_1180 1460 S000599 01 NOP 1461 ; 1462 ;-------------- ノーマルモードからのジャンプ -------------------- 1463 MR_KEY_1150 1464 S00059A 3D A0 7E LMS R0,CPLBGCR 1465 S00059D A4 18 IBT R4,#000011000B 1466 S00059F 74 AND R4 1467 S0005A0 09 02' BEQ MR_KEY_1180 ;頭ＢＧ当たり？ ( no:MR_KEY_1180 ) 1468 S0005A2 16 TO R6 ;[ IBT R6,#0 ] 1469 ; 1470 S0005A3 60 SUB R0 1471 MR_KEY_1180 1472 S0005A4 3E A6 55 SMS R6,CPLYSPD ;Ｙスピードセット 1473 S0005A7 3D A0 54 LMS R0,CPLXSPD 1474 S0005AA 57 ADD R7 1475 S0005AB 3E A0 5A SMS R0,CPLMVSP 1476 ; 1477 S0005AE F0 0006 IWT R0,#P006 1478 S0005B1 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＮ” 1479 S0005B4 60 SUB R0 1480 S0005B5 3E A0 6D SMS R0,CPLKAID ;階段フラグリセット 1481 S0005B8 3E A0 61 SMS R0,CPLSITD ;しゃがみリセット 1482 S0005BB 3E A0 C6 SMS R0,CPMR_FBCT ;着地”ボヨヨ〜ン”リセット 1483 S0005BE 05 01' BRA MR_KEY_1500 1484 S0005C0 01 NOP 1485 ; 1486 MR_KEY_1200 1487 ; 1488 ;;;;;---------------------------------------------------------------- 1489 ;;;;;- 上向きチェック - 1490 ;;;;;---------------------------------------------------------------- 1491 ;;;; FROM R1 1492 ;;;; AND #00001000B 1493 ;;;; BEQ MR_KEY_1500 ;上向く？ ( no:MR_KEY_1500 ) 1494 ;;;; NOP 1495 ;;;;; 1496 ;;;; IWT R0,#P106 1497 ;;;; SMS R0,CPLUPFG ;上向きフラグ”ＯＮ” 1498 ; 1499 ;------------------------------------------------------------------------ 1500 ;- 移動キーチェック - 1501 ;------------------------------------------------------------------------ 1502 MR_KEY_1500 1503 S0005C1 3D A0 C2 LMS R0,CPMR_SBCT 1504 S0005C4 3E 60 SUB #0 1505 S0005C6 09 3F' BEQ MR_KEY_1501 ;ＢＧヨコ当たり”ボヨヨ〜ン”中？ ( no:MR_KEY_1501 ) 1506 S0005C8 01 NOP 1507 ; 1508 ;-------------- ＢＧヨコ当たり”ボヨヨ〜ン”セット ---------------------- 1509 S0005C9 3D A4 C3 LMS R4,CPMR_SBSP 1510 S0005CC 17 TO R7 1511 S0005CD 54 ADD R4 1512 S0005CE 3D C7 XOR R7 1513 S0005D0 0A 1F' BPL MR_KEY_15002 ;ＢＧヨコ当たり”ボヨヨ〜ン”終了？ ( no:MR_KEY_15002 ) 1514 S0005D2 60 SUB R0 ;[ IBT R0,#0 ] 1515 ; 1516 S0005D3 90 SBK ;[ SMS R0,CPMR_SBSP ] 1517 S0005D4 3E A0 C2 SMS R0,CPMR_SBCT 1518 S0005D7 3E A4 54 SMS R4,CPLXSPD 1519 S0005DA 3E A4 5A SMS R4,CPLMVSP 1520 S0005DD 20 B4 MOVES R0,R4 1521 S0005DF 0B 03' BMI MR_KEY_15001 1522 S0005E1 01 NOP 1523 ; 1524 S0005E2 4F NOT 1525 S0005E3 D0 INC R0 1526 MR_KEY_15001 1527 S0005E4 50 ADD R0 1528 S0005E5 3E A0 55 SMS R0,CPLYSPD ;Ｙスピードセット 1529 S0005E8 F0 0006 IWT R0,#P006 1530 S0005EB 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＮ” 1531 S0005EE 05 17' BRA MR_KEY_1501 1532 S0005F0 01 NOP 1533 ; 1534 MR_KEY_15002 1535 IF JPN | NES ;**** 日本 or NES 対応 [1995/08/07] ********************** 1536 S0005F1 A0 60 IBT R0,#060H 1537 ELSE ;**** PAL 対応 [1995/08/07] ***************************** 1538 IBT R0,#07FH 1539 ENDIF 1540 S0005F3 27 B7 MOVES R7,R7 1541 S0005F5 0B 03' BMI MR_KEY_15004 1542 S0005F7 01 NOP 1543 ; 1544 IF JPN | NES ;**** 日本 or NES 対応 [1995/08/07] ********************** 1545 S0005F8 A0 A0 IBT R0,#-060H 1546 ELSE ;**** PAL 対応 [1995/08/07] ***************************** 1547 IBT R0,#-07FH 1548 ENDIF 1549 1550 MR_KEY_15004 1551 S0005FA 54 ADD R4 1552 S0005FB 90 SBK ;[ SMS R0,CPMR_SBSP ] 1553 S0005FC 3E A7 C2 SMS R7,CPMR_SBCT 1554 S0005FF 60 SUB R0 ;[ IBT R0,#0 ] 1555 S000600 3E A0 55 SMS R0,CPLYSPD ;Ｙスピードクリアー 1556 mDJMP MR_KEY_1720 1556+ S000603 FF 06A8' IWT R15, #MR_KEY_1720 1556+ S000606 01 NOP 1557 ; 1558 MR_KEY_1501 1559 S000607 3D A0 6D LMS R0,CPLKAID 1560 S00060A E0 DEC R0 1561 S00060B 0B 05' BMI MR_KEY_XMOV ;階段歩き中？ ( no:MR_KEY_XMOV ) 1562 S00060D 01 NOP 1563 ; 1564 mDJMP MR_KEY_1720 1564+ S00060E FF 06A8' IWT R15, #MR_KEY_1720 1564+ S000611 01 NOP 1565 ; 1566 ;-------------- Ｘスピード制御 ------------------------------------------ 1567 MR_KEY_XMOV 1568 S000612 3D A0 60 LMS R0,CPLJUMP 1569 S000615 E0 DEC R0 1570 S000616 0B 0D' BMI MR_KEY_1502 ;ジャンプ中？ ( no:MR_KEY_1502 ) 1571 S000618 B1 FROM R1 1572 ; 1573 S000619 3D A0 69 LMS R0,CPLSPJP 1574 S00061C 3E 65 SUB #2+3 1575 S00061E 0C 05' BCC MR_KEY_1502 ;ホバリング？ ( no:MR_KEY_1502 ) 1576 S000620 B1 FROM R1 1577 ; 1578 mDJMP MR_KEY_2000 1578+ S000621 FF 071A' IWT R15, #MR_KEY_2000 1578+ S000624 01 NOP 1579 ; 1580 ;-------------- ノーマル加速 ------------------------------------ 1581 MR_KEY_1502 1582 ;;;; FROM R1 1583 S000625 3E 73 AND #00000011B 1584 S000627 08 05' BNE MR_KEY_1510 ;左右キー入力？ ( yes:MR_KEY_1510 ) 1585 S000629 01 NOP 1586 ; 1587 mDJMP MR_KEY_1800 1587+ S00062A FF 06AA' IWT R15, #MR_KEY_1800 1587+ S00062D 01 NOP 1588 ; 1589 MR_KEY_1510 1590 S00062E 3E A0 66 SMS R0,CPLSTOP ;止まってるフラグリセット 1591 ; 1592 S000631 A7 FF IBT R7,#-1 ;(R7) <-- 左右キーによる移動方向（左） 1593 S000633 3E 72 AND #02H ;(R0) <-- プレイヤー向き 1594 S000635 08 03' BNE MR_KEY_1520 ;左へ？ ( yes:MR_KEY_1520 ) 1595 S000637 01 NOP 1596 ; 1597 S000638 A7 01 IBT R7,#01H ;(R7) <-- 左右キーによる移動方向（右） 1598 MR_KEY_1520 1599 S00063A 3D A4 62 LMS R4,CPLCMKI ;(R4) <-- 移動向き 1600 S00063D 64 SUB R4 1601 S00063E 09 06' BEQ MR_KEY_1550 ;向き変わった？ ( no:MR_KEY_1550 ) 1602 S000640 54 ADD R4 1603 ; 1604 S000641 3E A0 62 SMS R0,CPLCMKI 1605 S000644 20 14 MOVE R4,R0 ;(R4) <-- 移動向き 1606 MR_KEY_1550 1607 S000646 3D A0 5A LMS R0,CPLMVSP 1608 S000649 3E 60 SUB #0 1609 S00064B 09 0B' BEQ MR_KEY_1700 ;止まってた？ ( yes:MR_KEY_1700 ) 1610 S00064D 01 NOP 1611 ; 1612 S00064E 3D C7 XOR R7 1613 S000650 0A 06' BPL MR_KEY_1700 ;スリップ？ ( no:MR_KEY_1700 ) 1614 S000652 01 NOP 1615 ; 1616 ;---------------------------------------------------------------- 1617 ;- スリップ - 1618 ;---------------------------------------------------------------- 1619 ;;;; LMS R0,CPLJUMP 1620 ;;;; SUB #0 1621 ;;;; BNE MR_KEY_1700 ;ジャンプ中？ ( yes:MR_KEY_1700 ) 1622 ;;;; NOP 1623 ; 1624 S000653 A0 04 IBT R0,#04H 1625 S000655 3E A0 E8 SMS R0,CPLSLIP ;スリップフラグ”ＯＮ” 1626 ; 1627 ;---------------------------------------------------------------- 1628 ;- 加速 - 1629 ;---------------------------------------------------------------- 1630 MR_KEY_1700 1631 S000658 3D F0 00FB LM R0,CPLBGNO+1 ;ＢＧタイプ ×（（２＋２）×１６） 1632 S00065C 03 LSR ; 1633 S00065D 03 LSR ; 1634 S00065E 17 TO R7 1635 S00065F C4 OR R4 ;[ ＯＲ（移動向き） ] 1636 S000660 3D A0 5B LMS R0,CPLANGL 1637 S000663 3F 7F BIC #0FH ;[ AND #0FFF0H ] 1638 S000665 03 LSR 1639 S000666 03 LSR 1640 S000667 17 TO R7 ;(R7) <-- 加速データポインター 1641 S000668 C7 OR R7 1642 ; 1643 S000669 F0 0000" IWT R0,#MAX_SPEED 1644 S00066C 1E TO R14 ;(R14) <-- ＭＡＸスピードデータポインター 1645 S00066D 57 ADD R7 1646 S00066E EF GETB 1647 S00066F DE INC R14 1648 S000670 18 TO R8 ;(R8) <-- ＭＡＸスピード 1649 S000671 3D EF GETBH 1650 ; 1651 ;-------------- （Ｂ）加速チェック ------------------------------ 1652 S000673 A0 40 IBT R0,#01000000B 1653 S000675 71 AND R1 1654 S000676 09 0D' BEQ MR_KEY_1704 ;（Ｂ）加速？ ( no:MR_KEY_1704 ) 1655 S000678 01 NOP 1656 ; 1657 S000679 F6 0140 IWT R6,#0140H ;(R6) <-- （Ｂ）加速率 1658 S00067C B8 FROM R8 1659 S00067D 3D 9F LMULT 1660 S00067F 24 WITH R4 1661 S000680 C0 HIB 1662 S000681 9E LOB 1663 S000682 4D SWAP 1664 S000683 18 TO R8 ;(R8) <-- （Ｂ）加速ＭＡＸスピード 1665 S000684 C4 OR R4 1666 ; 1667 MR_KEY_1704 1668 S000685 3D A0 5A LMS R0,CPLMVSP ;(R0) <-- 移動スピード 1669 S000688 68 SUB R8 1670 S000689 09 4B' BEQ MR_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:MR_KEY_1850 ) 1671 S00068B 01 NOP 1672 ; 1673 S00068C 3D C8 XOR R8 1674 S00068E 0A 46' BPL MR_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:MR_KEY_1850 ) 1675 S000690 01 NOP 1676 ; 1677 S000691 3D A0 E8 LMS R0,CPLSLIP 1678 S000694 9E LOB 1679 S000695 09 02' BEQ MR_KEY_1710 ;スリップ？ ( no:MR_KEY_1710 ) 1680 S000697 01 NOP 1681 ; 1682 S000698 D7 INC R7 1683 MR_KEY_1710 1684 S000699 F0 0000" IWT R0,#ADD_SPEED 1685 S00069C 57 ADD R7 1686 S00069D 1E TO R14 1687 S00069E 57 ADD R7 1688 S00069F EF GETB 1689 S0006A0 DE INC R14 1690 S0006A1 3D EF GETBH 1691 ; 1692 S0006A3 3D A7 5A LMS R7,CPLMVSP 1693 S0006A6 57 ADD R7 1694 S0006A7 90 SBK ;[ SMS R0,CPLMVSP ] 1695 ; 1696 MR_KEY_1720 1697 mRTS 1697+ S0006A8 9B JMP R11 1697+ S0006A9 01 NOP 1698 ; 1699 ;---------------------------------------------------------------- 1700 ;- 減速 - 1701 ;---------------------------------------------------------------- 1702 MR_KEY_1800 1703 S0006AA 3D A0 60 LMS R0,CPLJUMP 1704 S0006AD E0 DEC R0 1705 S0006AE 0B 26' BMI MR_KEY_1850 ;ジャンプ中？ ( no:MR_KEY_1850 ) 1706 S0006B0 01 NOP 1707 ; 1708 S0006B1 3D A0 63 LMS R0,CPLSWIM 1709 S0006B4 E0 DEC R0 1710 S0006B5 0A 1F' BPL MR_KEY_1850 ;泳いでる？ ( yes:MR_KEY_1850 ) 1711 S0006B7 01 NOP 1712 ; 1713 ;-------------------------------------------------------- 1714 ;- ジャンプ中の減速 - 1715 ;-------------------------------------------------------- 1716 S0006B8 FE 0000" IWT R14,#MAX_SPEED ;(R14) <-- ＭＡＸスピードデータポインター 1717 S0006BB 3D A0 5A LMS R0,CPLMVSP 1718 S0006BE 3E 60 SUB #0 1719 S0006C0 0A 03' BPL MR_KEY_1810 1720 S0006C2 01 NOP 1721 ; 1722 S0006C3 DE INC R14 1723 S0006C4 DE INC R14 1724 MR_KEY_1810 1725 S0006C5 18 TO R8 1726 S0006C6 EF GETB 1727 S0006C7 DE INC R14 1728 S0006C8 28 WITH R8 1729 S0006C9 3D EF GETBH 1730 ; 1731 S0006CB 68 SUB R8 1732 S0006CC 09 08' BEQ MR_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:MR_KEY_1850 ) 1733 S0006CE 01 NOP 1734 ; 1735 S0006CF 3D C8 XOR R8 1736 S0006D1 0A 03' BPL MR_KEY_1850 ;ＭＡＸスピードオーバー？ ( yes:MR_KEY_1850 ) 1737 S0006D3 01 NOP 1738 ; 1739 mRTS 1739+ S0006D4 9B JMP R11 1739+ S0006D5 01 NOP 1740 ; 1741 ;-------------------------------------------------------- 1742 ;- 着地中の減速 - 1743 ;-------------------------------------------------------- 1744 MR_KEY_1850 1745 S0006D6 3D F0 00FB LM R0,CPLBGNO+1 ;ＢＧタイプ ×（２×１６） 1746 S0006DA 03 LSR ; 1747 S0006DB 03 LSR ; 1748 S0006DC 17 TO R7 ; 1749 S0006DD 03 LSR ; 1750 S0006DE 3D A0 5B LMS R0,CPLANGL 1751 S0006E1 3F 7F BIC #0FH ;[ AND #0FFF0H ] 1752 S0006E3 03 LSR 1753 S0006E4 03 LSR 1754 S0006E5 03 LSR 1755 S0006E6 14 TO R4 ;(R4) <-- 減速データポインター 1756 S0006E7 C7 OR R7 1757 S0006E8 F0 0000" IWT R0,#MIN_SPEED 1758 S0006EB 1E TO R14 1759 S0006EC 54 ADD R4 1760 S0006ED EF GETB 1761 S0006EE DE INC R14 1762 S0006EF 17 TO R7 ;(R7) <-- ＭＩＮスピード 1763 S0006F0 3D EF GETBH 1764 ; 1765 S0006F2 3D A8 5A LMS R8,CPLMVSP ;(R8) <-- 移動スピード 1766 S0006F5 B8 FROM R8 1767 S0006F6 67 SUB R7 1768 S0006F7 0A 02' BPL MR_KEY_1860 1769 S0006F9 01 NOP 1770 ; 1771 S0006FA D4 INC R4 1772 MR_KEY_1860 1773 S0006FB F0 0000" IWT R0,#SUB_SPEED 1774 S0006FE 54 ADD R4 1775 S0006FF 1E TO R14 1776 S000700 54 ADD R4 1777 S000701 EF GETB 1778 S000702 DE INC R14 1779 S000703 3D EF GETBH 1780 S000705 20 14 MOVE R4,R0 ;(R4) <-- 減速値 1781 ; 1782 S000707 58 ADD R8 1783 S000708 20 18 MOVE R8,R0 1784 S00070A 67 SUB R7 1785 S00070B 3D C4 XOR R4 1786 S00070D 0B 06' BMI MR_KEY_1870 ;ＭＩＮスピードオーバー？ ( no:MR_KEY_1870 ) 1787 S00070F 60 SUB R0 1788 ; 1789 S000710 3E A0 66 SMS R0,CPLSTOP 1790 S000713 27 18 MOVE R8,R7 1791 MR_KEY_1870 1792 S000715 3E A8 5A SMS R8,CPLMVSP 1793 mRTS 1793+ S000718 9B JMP R11 1793+ S000719 01 NOP 1794 ; 1795 ;-------------- ホバリング加速 ---------------------------------- 1796 MR_KEY_2000 1797 S00071A 3D A4 62 LMS R4,CPLCMKI ;(R4) <-- プレイヤー向き 1798 S00071D B1 FROM R1 1799 S00071E 3E 73 AND #00000011B 1800 S000720 09 17' BEQ MR_KEY_2050 ;左右キー入力？ ( no:MR_KEY_2050 ) 1801 S000722 01 NOP 1802 ; 1803 S000723 3E 72 AND #02H ;(R0) <-- プレイヤー向き 1804 S000725 64 SUB R4 1805 S000726 09 11' BEQ MR_KEY_2050 ;プレイヤー向き変更？ ( no:MR_KEY_2050 ) 1806 S000728 54 ADD R4 1807 ; 1808 S000729 90 SBK ;[ SMS R0,CPLCMKI ] 1809 S00072A 20 14 MOVE R4,R0 ;(R4) <-- プレイヤー向き 1810 S00072C 3D A0 BF LMS R0,CPMR_ANGL 1811 S00072F 4F NOT 1812 S000730 D0 INC R0 1813 S000731 9E LOB 1814 S000732 90 SBK ;[ SMS R0,CPMR_ANGL ] 1815 S000733 3D A0 CF LMS R0,CPMR_ANSP 1816 S000736 4F NOT 1817 S000737 D0 INC R0 1818 S000738 90 SBK ;[ SMS R0,CPMR_ANSP ] 1819 MR_KEY_2050 1820 S000739 F8 0200 IWT R8,#0200H ;(R8) <-- ＭＡＸスピード 1821 S00073C 3D AE BF LMS R14,CPMR_ANGL 1822 S00073F BE FROM R14 1823 S000740 95 SEX 1824 S000741 0B 04' BMI MR_KEY_2060 1825 S000743 01 NOP 1826 ; 1827 S000744 F8 0100 IWT R8,#0100H ;(R8) <-- ＭＡＸスピード 1828 MR_KEY_2060 1829 S000747 3D A6 CF LMS R6,CPMR_ANSP ;(R6) <-- ホバリング回転スピード 1830 S00074A 3D C6 XOR R6 1831 S00074C 0B 17' BMI MR_KEY_2100 ;加速ＯＫ？ ( no:MR_KEY_2100 ) 1832 S00074E 60 SUB R0 ;[ IBT R0,#0 ] 1833 ; 1834 S00074F A0 00" IBT R0,#BANK LCOS 1835 S000751 3F DF ROMB 1836 ; 1837 S000753 F0 0000" IWT R0,#LCOS 1838 S000756 1E TO R14 1839 S000757 5E ADD R14 1840 S000758 EF GETB 1841 S000759 4D SWAP 1842 S00075A 9F FMULT 1843 S00075B 3D 96 DIV2 ;1/4 1844 S00075D 3D 96 DIV2 ; 1845 ; 1846 S00075F E4 DEC R4 1847 S000760 0A 03' BPL MR_KEY_2100 ;右向き？ ( yes:MR_KEY_2100 ) 1848 S000762 D4 INC R4 1849 ; 1850 S000763 4F NOT 1851 S000764 D0 INC R0 1852 MR_KEY_2100 1853 S000765 27 B0 MOVES R7,R0 ;(R7) <-- 加速値 1854 S000767 0A 03' BPL MR_KEY_2150 1855 S000769 28 WITH R8 ;(R8) <-- ＭＡＸスピード 1856 ; 1857 S00076A 4F NOT 1858 S00076B D8 INC R8 1859 MR_KEY_2150 1860 S00076C A0 00" IBT R0,#BANK PLAYER_DATA 1861 S00076E 3F DF ROMB 1862 ; 1863 S000770 3D A0 5A LMS R0,CPLMVSP ;(R0) <-- 移動スピード 1864 S000773 68 SUB R8 1865 S000774 09 06' BEQ MR_KEY_2160 ;ＭＡＸスピードオーバー？ ( yes:MR_KEY_2160 ) 1866 S000776 01 NOP 1867 ; 1868 S000777 3D C8 XOR R8 1869 S000779 0B 05' BMI MR_KEY_2200 ;ＭＡＸスピードオーバー？ ( no:MR_KEY_2200 ) 1870 S00077B 01 NOP 1871 ; 1872 MR_KEY_2160 1873 mDJMP MR_KEY_1850 1873+ S00077C FF 06D6' IWT R15, #MR_KEY_1850 1873+ S00077F 01 NOP 1874 ; 1875 MR_KEY_2200 1876 S000780 3D A0 5A LMS R0,CPLMVSP 1877 S000783 57 ADD R7 1878 S000784 90 SBK ;[ SMS R0,CPLMVSP ] 1879 mRTS 1879+ S000785 9B JMP R11 1879+ S000786 01 NOP 1880 ; 1881 ;************************************************************************ 1882 ;* * 1883 ;* マリオパターンタイプセット * 1884 ;* * 1885 ;************************************************************************ 1886 ; 1887 MR_PATN 1888 ; 1889 ;------------------------------------------------------------------------ 1890 ;- キャラクターセット - 1891 ;------------------------------------------------------------------------ 1892 S000787 3E AB 34 SMS R11,RTS4 ;[ return to address save ] 1893 ; 1894 S00078A A2 20 IBT R2,#020H ;(R2) <-- ビットマップ座標＿Ｙ 1895 S00078C A3 00 IBT R3,#000H ;(R3) <-- ” ＿Ｘ 1896 S00078E AD 54 IBT R13,#BANK CIPCHD ;(R13) <-- キャラクターアドレス（Ｂ） 1897 ; 1898 S000790 3D A0 C9 LMS R0,CPMR_CTYP 1899 S000793 FE 0000" IWT R14,#MR_CHR_TYPE 1900 S000796 1E TO R14 1901 S000797 5E ADD R14 1902 S000798 EF GETB 1903 S000799 DE INC R14 1904 S00079A 1C TO R12 ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 1905 S00079B 3D EF GETBH 1906 S00079D DE INC R14 1907 ; 1908 S00079E EF GETB 1909 S00079F E0 DEC R0 1910 S0007A0 0A 15' BPL MR_PATN_0050 ;回転キャラ？ ( yes:MR_PATN_0050 ) 1911 S0007A2 DE INC R14 1912 ; 1913 ;-------------- 拡大、縮小キャラクターセット ---------------------------- 1914 S0007A3 3D A6 CB LMS R6,CPMR_CXZM ;(R6) <-- Ｘ倍率 1915 S0007A6 3D A4 CC LMS R4,CPMR_CYZM ;(R4) <-- Ｙ倍率 1916 S0007A9 3D A8 CD LMS R8,CPMR_CNTX ;(R8) <-- 中心＿Ｘ 1917 S0007AC 3D A9 CE LMS R9,CPMR_CNTY ;(R9) <-- 中心＿Ｙ 1918 mJSR R_32_ZOOM_XY ;キャラクター拡大、縮小、回転 1918+ S0007AF 94 LINK #4 1918+ S0007B0 FF 0000" IWT R15, #R_32_ZOOM_XY 1918+ S0007B3 01 NOP 1919 S0007B4 05 0C' BRA MR_PATN_0100 1920 S0007B6 01 NOP 1921 ; 1922 ;-------------- 回転キャラクターセット ---------------------------------- 1923 MR_PATN_0050 1924 S0007B7 3D A5 BF LMS R5,CPMR_ANGL ;(R5) <-- キャラクター回転角度セット 1925 S0007BA F6 0100 IWT R6,#0100H ;(R6) <-- 倍率 1926 mJSR R_32_RTZ_32 ;キャラクター拡大、縮小、回転 1926+ S0007BD 94 LINK #4 1926+ S0007BE FF 0000" IWT R15, #R_32_RTZ_32 1926+ S0007C1 01 NOP 1927 ; 1928 MR_PATN_0100 1929 S0007C2 3D AB 34 LMS R11,RTS4 ;[ return to address load ] 1930 ; 1931 S0007C5 A0 00" IBT R0,#BANK PLAYER_DATA 1932 S0007C7 3F DF ROMB ;ＲＯＭバンク復帰 1933 ; 1934 ;------------------------------------------------------------------------ 1935 ;- 新パターンセット - 1936 ;------------------------------------------------------------------------ 1937 ; 1938 ;-------------- ダメージパターンセット ---------------------------------- 1939 ; 1940 MR_PATN_01000 1941 S0007C9 3D A0 C0 LMS R0,CPMR_BGCF 1942 S0007CC E0 DEC R0 1943 S0007CD 0A 3A' BPL MR_PATN_06055 ;ソニックモード？ ( yes:MR_PATN_06055 ) 1944 S0007CF 01 NOP 1945 ; 1946 ;-------------- 座りパターンセット -------------------------------------- 1947 S0007D0 3D A0 61 LMS R0,CPLSITD 1948 S0007D3 9E LOB 1949 S0007D4 09 06' BEQ MR_PATN_05000 ;座り中？ ( no:MR_PATN_05000 ) 1950 S0007D6 50 ADD R0 ;x2 1951 ; 1952 S0007D7 AC 00" IBT R12,#MR_P_SITD ;(R12) <-- お座りパターンタイプ 1953 S0007D9 05 74' BRA MR_PATN_NONCHR 1954 S0007DB 01 NOP 1955 ; 1956 ;-------------- 泳ぎパターンセット -------------------------------------- 1957 MR_PATN_05000 1958 ; 1959 ; 1960 ;-------------- ＢＧヨコ当たり”ボヨヨ〜ン”パターンセット -------------- 1961 MR_PATN_06000 1962 S0007DC 3D A0 C2 LMS R0,CPMR_SBCT 1963 S0007DF 3E 60 SUB #0 1964 S0007E1 09 1F' BEQ MR_PATN_06050 ;ＢＧヨコ当たり”ボヨヨ〜ン”？ ( no:MR_PATN_06050 ) 1965 S0007E3 50 ADD R0 1966 ; 1967 S0007E4 0A 03' BPL MR_PATN_06010 1968 S0007E6 50 ADD R0 1969 ; 1970 S0007E7 4F NOT 1971 S0007E8 D0 INC R0 1972 MR_PATN_06010 1973 S0007E9 50 ADD R0 1974 S0007EA C0 HIB 1975 S0007EB F6 0100 IWT R6,#0100H 1976 S0007EE 26 WITH R6 ;(R6) <-- Ｘ倍率 1977 S0007EF 60 SUB R0 1978 S0007F0 3D 96 DIV2 1979 S0007F2 3D 96 DIV2 1980 S0007F4 F4 0100 IWT R4,#0100H 1981 S0007F7 14 TO R4 ;(R4) <-- Ｙ倍率 1982 S0007F8 54 ADD R4 1983 ; 1984 S0007F9 AC 00" IBT R12,#MR_P_STOP ;(R12) <-- ”ボヨヨ〜ン”パターンタイプ 1985 S0007FB A8 04 IBT R8,#04H ;(R8) <-- 中心＿Ｘ 1986 S0007FD A9 1F IBT R9,#01FH ;(R9) <-- 中心＿Ｙ 1987 S0007FF 05 58' BRA MR_PATN_ZOMCHR 1988 S000801 01 NOP 1989 ; 1990 ;-------------- ジャンプパターンセット ---------------------------------- 1991 MR_PATN_06050 1992 S000802 3D A1 60 LMS R1,CPLJUMP 1993 S000805 E1 DEC R1 1994 S000806 0A 05' BPL MR_PATN_06060 ;ジャンプ中？ ( yes:MR_PATN_06060 ) 1995 S000808 D1 INC R1 1996 ; 1997 MR_PATN_06055 1998 mDJMP MR_PATN_07000 1998+ S000809 FF 08D8' IWT R15, #MR_PATN_07000 1998+ S00080C 01 NOP 1999 ; 2000 MR_PATN_06060 2001 S00080D 3D A0 69 LMS R0,CPLSPJP 2002 S000810 9E LOB 2003 S000811 3E 62 SUB #2 2004 S000813 0C 0F' BCC MR_PATN_06068 ;ホバリング？ ( no:MR_PATN_06068 ) 2005 S000815 E0 DEC R0 ;[ 0- <- 1- ] 2006 ; 2007 ;-------------- ホバリングパターンセット ------------------------ 2008 S000816 FE 0000" IWT R14,#MR_HOB_CHRDT 2009 S000819 1E TO R14 2010 S00081A 5E ADD R14 2011 ; 2012 S00081B 3E 62 SUB #2 ;(C) <-- 回転する？ 2013 ; 2014 S00081D 1C TO R12 ;(R12) <-- ホバリングパターンタイプ 2015 S00081E 0C 2F' BCC MR_PATN_NONCHR ;回転する？ ( no:MR_PATN_NONCHR ) 2016 S000820 EF GETB 2017 ; 2018 S000821 05 65' BRA MR_PATN_CHRPTN 2019 S000823 01 NOP 2020 ; 2021 ;-------------- ジャンプ頭当たり”ボヨヨ〜ン”パターンセット ---- 2022 MR_PATN_06068 2023 S000824 AC 00" IBT R12,#MR_P_UPJP ;(R12) <-- 上昇ジャンプパターンタイプ 2024 S000826 3D A0 55 LMS R0,CPLYSPD 2025 S000829 E0 DEC R0 2026 S00082A 0B 03' BMI MR_PATN_06070 ;上昇中？ ( yes:MR_PATN_06070 ) 2027 S00082C 01 NOP 2028 ; 2029 S00082D AC 00" IBT R12,#MR_P_DWJP ;(R12) <-- 下降ジャンプパターンタイプ 2030 MR_PATN_06070 2031 S00082F 3D A0 C4 LMS R0,CPMR_HBCT 2032 S000832 3E 60 SUB #0 2033 S000834 0A 19' BPL MR_PATN_NONCHR ;ジャンプ頭当たり”ボヨヨ〜ン”？ ( no:MR_PATN_NONCHR ) 2034 S000836 50 ADD R0 2035 ; 2036 S000837 50 ADD R0 2037 S000838 C0 HIB 2038 S000839 95 SEX 2039 S00083A F4 0100 IWT R4,#0100H 2040 S00083D 14 TO R4 ;(R4) <-- Ｙ倍率 2041 S00083E 54 ADD R4 2042 S00083F 3D 96 DIV2 2043 S000841 3D 96 DIV2 2044 S000843 F6 0100 IWT R6,#0100H 2045 S000846 26 WITH R6 ;(R6) <-- Ｘ倍率 2046 S000847 60 SUB R0 2047 S000848 A8 10 IBT R8,#010H ;(R8) <-- 中心＿Ｘ 2048 S00084A A9 00 IBT R9,#0 ;(R9) <-- ”＿Ｙ 2049 S00084C 05 0B' BRA MR_PATN_ZOMCHR 2050 S00084E 01 NOP 2051 ; 2052 MR_PATN_NONCHR 2053 S00084F F6 0100 IWT R6,#0100H ;(R6) <-- Ｘ倍率 2054 S000852 F4 0100 IWT R4,#0100H ;(R4) <-- Ｙ倍率 2055 S000855 A8 10 IBT R8,#010H ;(R8) <-- 中心＿Ｘ 2056 S000857 A9 10 IBT R9,#010H ;(R9) <-- 中心＿Ｙ 2057 ; 2058 ;-------------- 拡大、縮小キャラクターセット -------------------- 2059 MR_PATN_ZOMCHR 2060 S000859 60 SUB R0 ;[ IBT R0,#0 ] 2061 S00085A 3E A0 BF SMS R0,CPMR_ANGL ;キャラクター回転角度セット 2062 S00085D 3E A6 CB SMS R6,CPMR_CXZM ;Ｘ倍率セット 2063 S000860 3E A4 CC SMS R4,CPMR_CYZM ;Ｙ倍率セット 2064 S000863 3E A8 CD SMS R8,CPMR_CNTX ;中心＿Ｘセット 2065 S000866 3E A9 CE SMS R9,CPMR_CNTY ;中心＿Ｙセット 2066 S000869 05 1D' BRA MR_PATN_CHRPTN 2067 S00086B 01 NOP 2068 ; 2069 ;-------------- 回転キャラクターセット -------------------------- 2070 MR_PATN_ROTCHR 2071 2072 IF JPN | NES ;**** 日本 or NES 対応 [1995/08/07] ********************** 2073 S00086C A1 FC IBT R1,#-4 2074 ELSE ;**** PAL 対応 [1995/08/07] ***************************** 2075 IBT R1,#-5 2076 ENDIF 2077 S00086E 3D A0 BF LMS R0,CPMR_ANGL 2078 S000871 65 SUB R5 2079 S000872 1E TO R14 2080 S000873 4D SWAP 2081 S000874 0A 03' BPL MR_PATN_06500 2082 S000876 55 ADD R5 2083 ; 2084 IF JPN | NES ;**** 日本 or NES 対応 [1995/08/07] ********************** 2085 S000877 A1 04 IBT R1,#4 2086 ELSE ;**** PAL 対応 [1995/08/07] ***************************** 2087 IBT R1,#5 2088 ENDIF 2089 2090 MR_PATN_06500 2091 S000879 51 ADD R1 2092 S00087A 1E TO R14 2093 S00087B 9E LOB 2094 S00087C 65 SUB R5 2095 S00087D 4D SWAP 2096 S00087E 3D C1 XOR R1 2097 S000880 0B 03' BMI MR_PATN_06510 2098 S000882 01 NOP 2099 ; 2100 S000883 25 1E MOVE R14,R5 2101 MR_PATN_06510 2102 S000885 3E AE BF SMS R14,CPMR_ANGL ;キャラクター回転角度セット 2103 ; 2104 ;-------------- パターンＮｏ．セット ------------------------------------ 2105 MR_PATN_CHRPTN 2106 S000888 3E AC C9 SMS R12,CPMR_CTYP ;パターンタイプセット 2107 ; 2108 S00088B F0 0003" IWT R0,#MR_CHR_TYPE+3 2109 S00088E 1E TO R14 2110 S00088F 5C ADD R12 2111 S000890 EF GETB 2112 S000891 DE INC R14 2113 S000892 3D EF GETBH 2114 ; 2115 S000894 A1 10 IBT R1,#8*2 ;(R1) <-- マントカウンターデフォルト値 2116 S000896 3E 60 SUB #0 2117 S000898 08 36' BNE MR_PATN_06700 ;マント可変パターン？ ( no:MR_PATN_06700 ) 2118 S00089A 01 NOP 2119 ; 2120 ;-------------- マントパターンセット ---------------------------- 2121 S00089B 3D A1 C8 LMS R1,CPMR_MANT ;(R1) <-- マントカウンター 2122 S00089E 3D A0 FB LMS R0,CPMR_MNTM 2123 S0008A1 E0 DEC R0 2124 S0008A2 0A 23' BPL MR_PATN_06650 ;マントパターン切り替え？ ( no:MR_PATN_06650 ) 2125 S0008A4 01 NOP 2126 ; 2127 S0008A5 F0 0000" IWT R0,#MR_MANT_NOJMP 2128 S0008A8 3D AE 60 LMS R14,CPLJUMP 2129 S0008AB EE DEC R14 2130 S0008AC 0B 0E' BMI MR_PATN_06600 ;ジャンプ中？ ( no:MR_PATN_06600 ) 2131 S0008AE DE INC R14 2132 ; 2133 ;-------------- ジャンプ中のマントパターンセット -------- 2134 S0008AF F0 0000" IWT R0,#MR_MANT_JMPUP 2135 S0008B2 3D AE 55 LMS R14,CPLYSPD 2136 S0008B5 EE DEC R14 2137 S0008B6 0B 04' BMI MR_PATN_06600 ;上昇中？ ( yes:MR_PATN_06600 ) 2138 S0008B8 01 NOP 2139 ; 2140 S0008B9 F0 0000" IWT R0,#MR_MANT_JMPDW 2141 MR_PATN_06600 2142 S0008BC 1E TO R14 2143 S0008BD 51 ADD R1 2144 S0008BE 3F EF GETBS 2145 S0008C0 DE INC R14 2146 S0008C1 11 TO R1 ;(R1) <-- マントカウンター 2147 S0008C2 51 ADD R1 2148 ; 2149 S0008C3 EF GETB 2150 S0008C4 3E A0 FB SMS R0,CPMR_MNTM ;マントパターン切り替えタイマーセット 2151 ; 2152 MR_PATN_06650 2153 S0008C7 F0 0000" IWT R0,#MR_MANT_PATN 2154 S0008CA 1E TO R14 2155 S0008CB 51 ADD R1 2156 S0008CC EF GETB 2157 S0008CD DE INC R14 2158 S0008CE 3D EF GETBH 2159 ; 2160 MR_PATN_06700 2161 S0008D0 3E A0 5F SMS R0,CPLPATN ;パターンタイプセット 2162 S0008D3 3E A1 C8 SMS R1,CPMR_MANT ;マントカウンターセット 2163 mRTS 2163+ S0008D6 9B JMP R11 2163+ S0008D7 01 NOP 2164 ; 2165 ;-------------- ジャンプ着地パターンセット ------------------------------ 2166 MR_PATN_07000 2167 S0008D8 3D A0 C6 LMS R0,CPMR_FBCT 2168 S0008DB E0 DEC R0 2169 S0008DC 0B 1C' BMI MR_PATN_08000 ;着地”ボヨヨ〜ン”？ ( no:MR_PATN_08000 ) 2170 S0008DE D0 INC R0 2171 ; 2172 S0008DF 50 ADD R0 2173 S0008E0 50 ADD R0 2174 S0008E1 C0 HIB 2175 S0008E2 F4 0100 IWT R4,#0100H 2176 S0008E5 24 WITH R4 ;(R4) <-- Ｙ倍率 2177 S0008E6 60 SUB R0 2178 S0008E7 3D 96 DIV2 2179 S0008E9 3D 96 DIV2 2180 S0008EB F6 0100 IWT R6,#0100H 2181 S0008EE 16 TO R6 ;(R6) <-- Ｙ倍率 2182 S0008EF 56 ADD R6 2183 S0008F0 A8 10 IBT R8,#010H ;(R8) <-- 中心＿Ｘ 2184 S0008F2 A9 1F IBT R9,#01FH ;(R9) <-- ”＿Ｙ 2185 ; 2186 S0008F4 AC 00" IBT R12,#MR_P_STOP ;(R12) <-- ”ボヨヨ〜ン”パターンタイプ 2187 mDJMP MR_PATN_ZOMCHR 2187+ S0008F6 FF 0859' IWT R15, #MR_PATN_ZOMCHR 2187+ S0008F9 01 NOP 2188 ; 2189 ;-------------- スリップパターンセット ---------------------------------- 2190 MR_PATN_08000 2191 S0008FA 3D A0 E8 LMS R0,CPLSLIP 2192 S0008FD 9E LOB 2193 S0008FE 09 17' BEQ MR_PATN_09000 ;スリップ中？ ( no:MR_PATN_09000 ) 2194 S000900 01 NOP 2195 ; 2196 S000901 3D A0 5B LMS R0,CPLANGL 2197 S000904 3D A6 62 LMS R6,CPLCMKI 2198 S000907 E6 DEC R6 2199 S000908 0A 04' BPL MR_PATN_08050 2200 S00090A 01 NOP 2201 ; 2202 S00090B 4F NOT 2203 S00090C D0 INC R0 2204 S00090D 9E LOB 2205 MR_PATN_08050 2206 S00090E 3E A0 BF SMS R0,CPMR_ANGL ;キャラクター回転角度セット 2207 ; 2208 S000911 AC 00" IBT R12,#MR_P_SLIP ;(R12) <-- スリップパターンタイプ 2209 mDJMP MR_PATN_CHRPTN 2209+ S000913 FF 0888' IWT R15, #MR_PATN_CHRPTN 2209+ S000916 01 NOP 2210 ; 2211 MR_PATN_09000 2212 S000917 3D A0 66 LMS R0,CPLSTOP 2213 S00091A 9E LOB 2214 S00091B 09 09' BEQ MR_PATN_10000 ;棒立ち中？ ( yes:MR_PATN_10000 ) 2215 S00091D 01 NOP 2216 ; 2217 S00091E 3D A0 5A LMS R0,CPLMVSP 2218 S000921 3E 60 SUB #0 ;(N) <-- 符号 2219 S000923 08 07' BNE MR_PATN_11000 ;止まってる？ ( no:MR_PATN_11000 ) 2220 S000925 01 NOP 2221 ; 2222 ;-------------- 止まってる時のパターンセット ---------------------------- 2223 MR_PATN_10000 2224 S000926 AC 00" IBT R12,#MR_P_STOP ;(R12) <-- ＳＴＯＰパターンタイプ 2225 mDJMP MR_PATN_NONCHR 2225+ S000928 FF 084F' IWT R15, #MR_PATN_NONCHR 2225+ S00092B 01 NOP 2226 ; 2227 ;-------------- 歩きパターンセット -------------------------------------- 2228 MR_PATN_11000 2229 S00092C AE 30 IBT R14,#00110000B ;(R14) <-- ヨコＢＧ当たりチェックデータ（右） 2230 S00092E 0A 06' BPL MR_PATN_11100 2231 S000930 01 NOP 2232 ; 2233 S000931 FE 00C0 IWT R14,#11000000B ;(R14) <-- ヨコＢＧ当たりチェックデータ（左） 2234 S000934 4F NOT 2235 S000935 D0 INC R0 2236 MR_PATN_11100 2237 S000936 20 15 MOVE R5,R0 ;(R5) <-- ＡＢＳ（Ｘスピード） 2238 S000938 F6 0080 IWT R6,#080H 2239 S00093B 66 SUB R6 2240 S00093C 0D 0D' BCS MR_PATN_11200 ;Ｘスピード小さすぎ？ ( no:MR_PATN_11200 ) 2241 S00093E 56 ADD R6 2242 ; 2243 S00093F 3D A0 7E LMS R0,CPLBGCR 2244 S000942 7E AND R14 ;(Z) set 2245 S000943 26 10 MOVE R0,R6 2246 S000945 09 04' BEQ MR_PATN_11200 ;ヨコＢＧ当たり？ ( no:MR_PATN_11200 ) 2247 S000947 01 NOP 2248 ; 2249 S000948 F0 0200 IWT R0,#200H 2250 ; 2251 ;-------------- 歩きパターンセット ------------------------------ 2252 MR_PATN_11200 2253 IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 2254 S00094B F6 4000 IWT R6,#04000H 2255 ELSE ;**** PAL 対応 [1995/7/19] ***************************** 2256 IWT R6,#04000H*5/4 2257 ENDIF 2258 S00094E 9F FMULT 2259 S00094F 3D A6 C1 LMS R6,CPMR_WALK 2260 S000952 56 ADD R6 2261 S000953 F6 0400 IWT R6,#0400H 2262 S000956 66 SUB R6 2263 S000957 0D 02' BCS MR_PATN_11210 ;歩くパターンオーバー？ ( yes:MR_PATN_11210 ) 2264 S000959 01 NOP 2265 ; 2266 S00095A 56 ADD R6 2267 MR_PATN_11210 2268 S00095B 90 SBK ;[ SMS R0,CPMR_WALK ] 2269 ; 2270 S00095C 1C TO R12 2271 S00095D C0 HIB 2272 S00095E 3E AC 7C SMS R12,CPLWALK 2273 S000961 08 11' BNE MR_PATN_11212 ;歩くサウンドセット？ ( no:MR_PATN_11212 ) 2274 S000963 01 NOP 2275 ; 2276 ;-------------- 歩くサウンドセット ------------------------------ 2277 S000964 3D A0 7D LMS R0,CPLBGNO 2278 S000967 FE 0000" IWT R14,#WALK_SOUND 2279 S00096A 1E TO R14 2280 S00096B 5E ADD R14 2281 S00096C EF GETB 2282 S00096D E0 DEC R0 2283 S00096E 0B 04' BMI MR_PATN_11212 ;歩くサウンドセット？ ( no:MR_PATN_11212 ) 2284 S000970 D0 INC R0 2285 ; 2286 S000971 3E A0 3D SMS R0,CMSOUND3 ;[♪] 2287 MR_PATN_11212 2288 S000974 F0 0000" IWT R0,#MR_WLK_CHRDT ;(R14) <-- 歩くパターンタイプデータアドレス 2289 S000977 1E TO R14 2290 S000978 5C ADD R12 2291 S000979 1C TO R12 ;(R12) <-- 歩くパターンタイプ 2292 S00097A EF GETB 2293 ; 2294 S00097B 3D A0 C0 LMS R0,CPMR_BGCF 2295 S00097E E0 DEC R0 2296 S00097F 0B 1D' BMI MR_PATN_11240 ;ソニックモード？ ( no:MR_PATN_11240 ) 2297 S000981 60 SUB R0 ;[ IBT R0,#0 ] 角度を０へ 2298 ; 2299 S000982 3D A6 5B LMS R6,CPLANGL 2300 S000985 3D A0 62 LMS R0,CPLCMKI 2301 S000988 E0 DEC R0 2302 S000989 0A 05' BPL MR_PATN_11220 2303 S00098B B6 FROM R6 2304 ; 2305 S00098C 4F NOT 2306 S00098D D0 INC R0 2307 S00098E 16 TO R6 2308 S00098F 9E LOB 2309 MR_PATN_11220 2310 S000990 F0 0280 IWT R0,#0280H 2311 S000993 25 WITH R5 2312 S000994 60 SUB R0 2313 S000995 0C 05' BCC MR_PATN_11230 2314 S000997 60 SUB R0 2315 ; 2316 S000998 B5 FROM R5 2317 S000999 03 LSR 2318 S00099A 03 LSR 2319 S00099B 03 LSR 2320 IF PAL ;**** 日本 or NES 対応 [1995/6/30] **************** 2321 LSR 2322 ENDIF ;**** PAL 対応 [1995/7/19] ***************************** 2323 MR_PATN_11230 2324 S00099C B6 FROM R6 2325 S00099D 60 SUB R0 2326 MR_PATN_11240 2327 S00099E 15 TO R5 ;(R5) <-- 角度 2328 S00099F 9E LOB 2329 mDJMP MR_PATN_ROTCHR 2329+ S0009A0 FF 086C' IWT R15, #MR_PATN_ROTCHR 2329+ S0009A3 01 NOP 2330 ; 2331 ;************************************************************************ 2332 ;* * 2333 ;* ＢＧチェック * 2334 ;* * 2335 ;************************************************************************ 2336 ; 2337 MR_BGCK 2338 S0009A4 3D A1 C0 LMS R1,CPMR_BGCF ;(R1) <-- 前回ソニックモードフラグ 2339 S0009A7 60 SUB R0 ;[ IBT R0,#0 ] ソニックモードリセット 2340 S0009A8 90 SBK ;[ SMS R0,CPMR_BGCF ] 2341 ; 2342 S0009A9 3D A0 60 LMS R0,CPLJUMP 2343 S0009AC E0 DEC R0 2344 S0009AD 0A 11' BPL MR_BGCK_0002 ;プレイヤージャンプ中？ ( yes:MR_BGCK_0002 ) 2345 S0009AF 01 NOP 2346 ; 2347 S0009B0 3D A0 5A LMS R0,CPLMVSP 2348 S0009B3 E0 DEC R0 2349 S0009B4 0A 03' BPL MR_BGCK_0000 2350 S0009B6 D0 INC R0 2351 ; 2352 S0009B7 4F NOT 2353 S0009B8 D0 INC R0 2354 MR_BGCK_0000 2355 IF JPN | NES ;**** 日本 or NES 対応 [1995/08/07] ********************** 2356 S0009B9 F2 0200 IWT R2,#0200H 2357 ELSE ;**** PAL 対応 [1995/08/07] ***************************** 2358 IWT R2,#0200H*5/4 2359 ENDIF 2360 S0009BC 62 SUB R2 2361 S0009BD 0D 16' BCS MR_BGCK_0008 ;ソニックＢＧチェック？ ( yes:MR_BGCK_0008 ) 2362 S0009BF 01 NOP 2363 ; 2364 MR_BGCK_0002 2365 S0009C0 E1 DEC R1 2366 S0009C1 0B 0E' BMI MR_BGCK_0004 ;前回ソニックモード？ ( no:MR_BGCK_0004 ) 2367 S0009C3 D1 INC R1 2368 ; 2369 ;-------------- ソニックモードキャンセル初期セット ---------------------- 2370 S0009C4 2B 11 MOVE R1,R11 ;(R11) save 2371 ; 2372 mJSR MARIO_PS_HOSE ;座標補正 2372+ S0009C6 94 LINK #4 2372+ S0009C7 FF 0AFD' IWT R15, #MARIO_PS_HOSE 2372+ S0009CA 01 NOP 2373 ; 2374 S0009CB 21 1B MOVE R11,R1 ;(R11) load 2375 ; 2376 S0009CD A0 00" IBT R0,#BANK PLAYER_DATA 2377 S0009CF 3F DF ROMB 2378 MR_BGCK_0004 2379 mDJMP MR_BGCK_N 2379+ S0009D1 FF 0B39' IWT R15, #MR_BGCK_N 2379+ S0009D4 01 NOP 2380 ; 2381 ;======================================================================== 2382 ;= ソニックモードＢＧチェック = 2383 ;======================================================================== 2384 MR_BGCK_0008 2385 S0009D5 3D A9 46 LMS R9,CPLXPSL ;(R9) <-- プレイヤーＸ座標 2386 S0009D8 3D AA 48 LMS R10,CPLYPSL ;(R10) <-- ” Ｙ ” 2387 ; 2388 ;-------------- ｃｏｓ、ｓｉｎデータセット ------------------------------ 2389 S0009DB A0 00" IBT R0,#BANK LCOS 2390 S0009DD 3F DF ROMB 2391 S0009DF 3D A0 5B LMS R0,CPLANGL 2392 MR_BGCK_00080 2393 S0009E2 FE 0000" IWT R14,#LCOS 2394 S0009E5 1E TO R14 2395 S0009E6 5E ADD R14 2396 S0009E7 3F EF GETBS 2397 S0009E9 20 12 MOVE R2,R0 ;(R2) <-- ｃｏｓデータ 2398 S0009EB 3E F0 1960 SM R0,CEWORK0 ;(EWK0,1) <-- ｃｏｓデータ 2399 ; 2400 S0009EF A0 40 IBT R0,#040H 2401 S0009F1 1E TO R14 ;[ IWT R14,#LSIN ] 2402 S0009F2 5E ADD R14 2403 S0009F3 3F EF GETBS 2404 S0009F5 4F NOT 2405 S0009F6 D0 INC R0 2406 S0009F7 20 13 MOVE R3,R0 ;(R3) <-- ｓｉｎデータ 2407 S0009F9 3E F0 1962 SM R0,CEWORK2 ;(EWK2,3) <-- ｓｉｎデータ 2408 ; 2409 S0009FD E1 DEC R1 2410 S0009FE 0A 2A' BPL MR_BGCK_0009 ;前回ソニックモード？ ( yes:MR_BGCK_0009 ) 2411 S000A00 D1 INC R1 2412 ; 2413 ;-------------- ソニックモードＢＧチェック初期プレイヤーＹ座標補正 ------ 2414 S000A01 A0 05 IBT R0,#5 2415 S000A03 83 MULT R3 2416 S000A04 50 ADD R0 ;x16 2417 S000A05 50 ADD R0 ; 2418 S000A06 50 ADD R0 ; 2419 S000A07 16 TO R6 ;(R6) <-- 着地位置までの距離 2420 S000A08 50 ADD R0 ; 2421 ; 2422 S000A09 B2 FROM R2 2423 S000A0A 9F FMULT 2424 S000A0B 19 TO R9 ;プレイヤーＸ座標補正 2425 S000A0C 59 ADD R9 2426 S000A0D 3D FE 1E12 LM R14,CPLXPSL_OLD 2427 S000A11 5E ADD R14 2428 S000A12 90 SBK ;[ SM R0,CPLXPSL_OLD ] 2429 ; 2430 S000A13 B3 FROM R3 2431 S000A14 9F FMULT 2432 S000A15 1A TO R10 ;プレイヤーＹ座標補正 2433 S000A16 5A ADD R10 2434 S000A17 3D FE 1E16 LM R14,CPLYPSL_OLD 2435 S000A1B 5E ADD R14 2436 S000A1C 90 SBK ;[ SM R0,CPLYPSL_OLD ] 2437 ; 2438 S000A1D 3D A0 5B LMS R0,CPLANGL 2439 S000A20 95 SEX 2440 S000A21 3D 96 DIV2 2441 S000A23 3D 96 DIV2 2442 S000A25 9E LOB 2443 S000A26 90 SBK ;[ SMS R0,CPLANGL ] 2444 S000A27 05 B9' BRA MR_BGCK_00080 2445 S000A29 D1 INC R1 ;[ IBT R1,#1 ] 2446 2447 ;-------------- ＢＧチェックポイントデータセット ------------------------ 2448 MR_BGCK_0009 2449 S000A2A A0 00" IBT R0,#BANK PLAYER_DATA 2450 S000A2C 3F DF ROMB 2451 S000A2E FE 0000" IWT R14,#PLBGCK_POINT_MR ;(R14) <-- ＢＧチェックポイントデータポインター（大） 2452 ; 2453 S000A31 3E AB 32 SMS R11,RTS2 ;[ return address save ] 2454 ; 2455 S000A34 A2 00 IBT R2,#00 ;(R2) <-- ＢＧ当たりフラグクリアー 2456 S000A36 3E A2 7F SMS R2,CPLWATR ;水中当たりフラグクリアー 2457 S000A39 3E A2 80 SMS R2,CPLTNEL ;トンネル当たりフラグクリアー 2458 S000A3C 3E A2 7D SMS R2,CPLBGNO ;歩いている床のＢＧタイプクリアー 2459 ; 2460 ;------------------------------------------------------------------------ 2461 ;- 左上サイドチェック - 2462 ;------------------------------------------------------------------------ 2463 S000A3F A3 01 IBT R3,#001H ;(R3) <-- 補正向き 2464 S000A41 23 14 MOVE R4,R3 ;(R4) <-- 補正データ 2465 mJSR_X BG_SIDECK_R_IN 2465+ S000A43 94 LINK #4 2465+ S000A44 FF 0DB6' IWT R15, #BG_SIDECK_R_IN 2466 S000A47 02 CACHE 2467 ; 2468 ;------------------------------------------------------------------------ 2469 ;- 左下サイドチェック - 2470 ;------------------------------------------------------------------------ 2471 mJSR_X BG_SIDECK_R+1 2471+ S000A48 94 LINK #4 2471+ S000A49 FF 0DB9' IWT R15, #BG_SIDECK_R+1 2472 S000A4C 3E HEX 3E ;[ SMS R11,RTS1 ] 2473 ; 2474 ;------------------------------------------------------------------------ 2475 ;- 右上サイドチェック - 2476 ;------------------------------------------------------------------------ 2477 S000A4D A3 FF IBT R3,#0FFH ;(R3) <-- 補正データ 2478 S000A4F E4 DEC R4 ;[ CMP #0 ] 2479 S000A50 0B 03' BMI MR_BGCK_0010 ;左サイド補正した？ ( yes:MR_BGCK_0010 ) 2480 S000A52 D4 INC R4 2481 ; 2482 S000A53 23 14 MOVE R4,R3 ;(R4) <-- 補正データ 2483 MR_BGCK_0010 2484 mJSR_X BG_SIDECK_R+1 2484+ S000A55 94 LINK #4 2484+ S000A56 FF 0DB9' IWT R15, #BG_SIDECK_R+1 2485 S000A59 3E HEX 3E ;[ SMS R11,RTS1 ] 2486 ; 2487 ;------------------------------------------------------------------------ 2488 ;- 右下サイドチェック - 2489 ;------------------------------------------------------------------------ 2490 mJSR_X BG_SIDECK_R+1 2490+ S000A5A 94 LINK #4 2490+ S000A5B FF 0DB9' IWT R15, #BG_SIDECK_R+1 2491 S000A5E 3E HEX 3E ;[ SMS R11,RTS1 ] 2492 ; 2493 ;------------------------------------------------------------------------ 2494 ;- 左サイド総合チェック - 2495 ;------------------------------------------------------------------------ 2496 S000A5F 3D A3 6E LMS R3,CPSPUSH ;(R3) <-- 横壁押しカウンターセット 2497 S000A62 60 SUB R0 ;[ IBT R0,#0 ] 2498 S000A63 90 SBK ;[ SMS R0,CPSPUSH ] 2499 ; 2500 S000A64 E1 DEC R1 2501 S000A65 0B 26' BMI MR_BGCK_0040 ;横当たりＯＫ？ ( no:MR_BGCK_0040 ) 2502 S000A67 D1 INC R1 2503 ; 2504 ;-------------- ＢＧヨコ当たり”ボヨヨ〜ン”セットチェック -------------- 2505 S000A68 3D A0 C2 LMS R0,CPMR_SBCT 2506 S000A6B 3E 60 SUB #0 2507 S000A6D 08 1B' BNE MR_BGCK_0014 ;ＢＧヨコ当たり”ボヨヨ〜ン”中？ ( yes:MR_BGCK_0014 ) 2508 S000A6F 60 SUB R0 ;[ IBT R0,#0 ] 2509 ; 2510 S000A70 3D A5 5A LMS R5,CPLMVSP 2511 S000A73 20 B5 MOVES R0,R5 2512 S000A75 0A 03' BPL MR_BGCK_0012 2513 S000A77 01 NOP 2514 ; 2515 S000A78 4F NOT 2516 S000A79 D0 INC R0 2517 MR_BGCK_0012 2518 IF JPN | NES ;**** 日本 or NES 対応 [1995/08/07] ********************** 2519 S000A7A F3 0280 IWT R3,#0280H 2520 ELSE ;**** PAL 対応 [1995/08/07] ***************************** 2521 IWT R3,#0280H*5/4 2522 ENDIF 2523 S000A7D 63 SUB R3 2524 S000A7E 0C 0A' BCC MR_BGCK_0014 ;ＢＧヨコ当たり”ボヨヨ〜ン”ＯＫ？ ( no:MR_BGCK_0014 ) 2525 S000A80 60 SUB R0 ;[ IBT R0,#0 ] 2526 ; 2527 S000A81 B5 FROM R5 2528 S000A82 3D 96 DIV2 2529 S000A84 3E A0 C3 SMS R0,CPMR_SBSP ;ＢＧヨコ当たり”ボヨヨ〜ン”スピードセット 2530 S000A87 3E A0 C2 SMS R0,CPMR_SBCT ; ” カウンターセット 2531 ; 2532 MR_BGCK_0014 2533 ;;;; SUB R0 2534 S000A8A 3E A0 5A SMS R0,CPLMVSP 2535 ; 2536 ;------------------------------------------------------------------------ 2537 ;- 頭チェック - 2538 ;------------------------------------------------------------------------ 2539 MR_BGCK_0040 2540 S000A8D A3 10 IBT R3,#010H ;(R3) <-- 頭チェックフラグ 2541 mJSR_X BG_HDFTCK_R+1 2541+ S000A8F 94 LINK #4 2541+ S000A90 FF 0F30' IWT R15, #BG_HDFTCK_R+1 2542 S000A93 3E HEX 3E ;[ SMS R11,RTS1 ] 2543 ; 2544 S000A94 3D A0 80 LMS R0,CPLTNEL ;左、右頭フラグセット 2545 S000A97 15 TO R5 2546 S000A98 03 LSR 2547 S000A99 04 ROL 2548 S000A9A 90 SBK ;[ SMS R0,CPLTNEL ] 2549 ; 2550 S000A9B B2 FROM R2 ;左、右頭フラグセット 2551 S000A9C 03 LSR 2552 S000A9D 22 WITH R2 2553 S000A9E 04 ROL 2554 ; 2555 ;------------------------------------------------------------------------ 2556 ;- 足チェック - 2557 ;------------------------------------------------------------------------ 2558 MR_BGCK_0050 2559 S000A9F A3 F0 IBT R3,#0F0H ;(R3) <-- 足チェックフラグ 2560 S000AA1 3D A4 5D LMS R4,CPLSKCC ;(R4) <-- 前回坂フラグ 2561 mJSR_X BG_HDFTCK_R+1 2561+ S000AA4 94 LINK #4 2561+ S000AA5 FF 0F30' IWT R15, #BG_HDFTCK_R+1 2562 S000AA8 3E HEX 3E ;[ SMS R11,RTS1 ] 2563 ; 2564 S000AA9 3E A4 5C SMS R4,CPLSKCL ;前回坂フラグセット 2565 ; 2566 S000AAC 3D A0 80 LMS R0,CPLTNEL ;左、中、右足フラグセット 2567 S000AAF 15 TO R5 2568 S000AB0 03 LSR 2569 S000AB1 04 ROL 2570 S000AB2 15 TO R5 2571 S000AB3 03 LSR 2572 S000AB4 04 ROL 2573 S000AB5 90 SBK ;[ SMS R0,CPLTNEL ] 2574 ; 2575 S000AB6 B2 FROM R2 ;左、中、右足フラグセット 2576 S000AB7 03 LSR 2577 S000AB8 22 WITH R2 2578 S000AB9 04 ROL 2579 S000ABA B2 FROM R2 2580 S000ABB 03 LSR 2581 S000ABC 22 WITH R2 2582 S000ABD 04 ROL 2583 ; 2584 S000ABE B2 FROM R2 2585 S000ABF 03 LSR 2586 S000AC0 0D 1F' BCS MR_BGCK_0200 ;足当たり？ ( yes:MR_BGCK_0200 ) 2587 S000AC2 60 SUB R0 ;[ IBT R0,#0 ] 2588 ; 2589 ;-------------- ＢＧ当たって無い ---------------------------------------- 2590 S000AC3 F0 0008 IWT R0,#P008 ;ジャンプフラグ”ＯＮ” 2591 S000AC6 3E A0 60 SMS R0,CPLJUMP 2592 IF BUG00 ;********* マリオ壁めりこみバグ修正[95/8/7] ******************* 2593 S000AC9 3E A9 46 SMS R9,CPLXPSL ;座標補正用Ｘ座標セット 2594 S000ACC 3E AA 48 SMS R10,CPLYPSL ; ” Ｙ ” 2595 mJSR MARIO_PS_HOSE ;座標補正 2595+ S000ACF 94 LINK #4 2595+ S000AD0 FF 0AFD' IWT R15, #MARIO_PS_HOSE 2595+ S000AD3 01 NOP 2596 S000AD4 3D A9 46 LMS R9,CPLXPSL 2597 S000AD7 3D AA 48 LMS R10,CPLYPSL 2598 ; 2599 S000ADA A0 00" IBT R0,#BANK PLAYER_DATA 2600 S000ADC 3F DF ROMB 2601 S000ADE 05 19' BRA MR_BGCK_0300 2602 S000AE0 01 NOP 2603 2604 ELSE 2605 BRA MR_BGCK_0300 2606 NOP 2607 2608 ENDIF 2609 ; 2610 ;-------------- ＢＧ当たり ---------------------------------------------- 2611 MR_BGCK_0200 2612 S000AE1 3E A2 C0 SMS R2,CPMR_BGCF ;ソニックモード”ＯＮ” 2613 ; 2614 ;-------------- 中足当たりＯＫ後特殊ＢＧチェック ---------------- 2615 mJSR FOOT_RESULT_C 2615+ S000AE4 94 LINK #4 2615+ S000AE5 FF 0000" IWT R15, #FOOT_RESULT_C 2615+ S000AE8 01 NOP 2616 ; 2617 ;-------------- 足当たり情報セット ------------------------------ 2618 S000AE9 3E A4 5B SMS R4,CPLANGL ;移動角度セット 2619 ; 2620 S000AEC 60 SUB R0 2621 ;;;; SMS R0,CPLYSPD ;Ｙスピードクリアー 2622 ;;;; SMS R0,CPLYSDR 2623 ; 2624 S000AED 3E A0 5C SMS R0,CPLSKCL ;前回坂フラグリセット 2625 S000AF0 3E A0 5D SMS R0,CPLSKCC 2626 S000AF3 3E A0 5E SMS R0,CPLSKCR 2627 S000AF6 3E A0 6D SMS R0,CPLKAID ;階段歩きフラグクリアー 2628 ; 2629 MR_BGCK_0300 2630 mDJMP MR_BGCK_N_0300 2630+ S000AF9 FF 0D7C' IWT R15, #MR_BGCK_N_0300 2630+ S000AFC 01 NOP 2631 ; 2632 ;------------------------------------------------------------------------ 2633 ;- ソニックモードキャンセルによる座標補正 - 2634 ;------------------------------------------------------------------------ 2635 MARIO_PS_HOSE 2636 S000AFD A0 00" IBT R0,#BANK LCOS 2637 S000AFF 3F DF ROMB 2638 S000B01 FE 0000" IWT R14,#LCOS 2639 S000B04 3D A0 5B LMS R0,CPLANGL 2640 S000B07 1E TO R14 2641 S000B08 5E ADD R14 2642 S000B09 3F EF GETBS 2643 S000B0B 4F NOT 2644 S000B0C D0 INC R0 ;(R0) <-- ｃｏｓデータ 2645 IF BUG00 ;********* マリオ壁めりこみバグ修正[95/8/7] ******************* 2646 S000B0D A3 0F IBT R3,#0FH 2647 ELSE 2648 IBT R3,#0EH 2649 ENDIF 2650 S000B0F 83 MULT R3 2651 S000B10 50 ADD R0 ;x4 2652 S000B11 50 ADD R0 ; 2653 S000B12 C0 HIB 2654 S000B13 95 SEX 2655 S000B14 19 TO R9 ;(R9) <-- Ｘ座標補正値 2656 S000B15 53 ADD R3 2657 S000B16 3D A0 48 LMS R0,CPLYPSL 2658 S000B19 59 ADD R9 2659 S000B1A 90 SBK ;[ SMS R0,CPLYPSL ] 2660 S000B1B 3D F0 1E16 LM R0,CPLYPSL_OLD 2661 S000B1F 59 ADD R9 2662 S000B20 90 SBK ;[ SM R0,CPLYPSL_OLD ] 2663 ; 2664 S000B21 A0 40 IBT R0,#040H 2665 S000B23 1E TO R14 ;[ IWT R14,#LSIN ] 2666 S000B24 5E ADD R14 2667 S000B25 3F EF GETBS ;(R0) <-- ｓｉｎデータ 2668 S000B27 83 MULT R3 2669 S000B28 50 ADD R0 ;x4 2670 S000B29 50 ADD R0 ; 2671 S000B2A C0 HIB 2672 S000B2B 19 TO R9 2673 S000B2C 95 SEX 2674 S000B2D 3D A0 46 LMS R0,CPLXPSL 2675 S000B30 59 ADD R9 2676 S000B31 90 SBK ;[ SMS R0,CPLXPSL ] 2677 S000B32 3D F0 1E12 LM R0,CPLXPSL_OLD 2678 S000B36 59 ADD R9 2679 mRTS_X 2679+ S000B37 9B JMP R11 2680 S000B38 90 SBK ;[ SM R0,CPLXPSL_OLD ] 2681 ; 2682 ;======================================================================== 2683 ;= ノーマルモードＢＧチェック = 2684 ;======================================================================== 2685 ; 2686 MR_BGCK_N 2687 S000B39 FE 0000" IWT R14,#PLBGCK_POINT_MR0 ;(R14) <-- ＢＧチェックポイントデータポインター（大） 2688 S000B3C 3D A0 61 LMS R0,CPLSITD 2689 S000B3F 3E 62 SUB #2 2690 S000B41 0C 04' BCC MR_BGCK_N_2 ;衝突サイズ小？ ( no:MR_BGCK_N_2 ) 2691 S000B43 01 NOP 2692 ; 2693 S000B44 FE 0000" IWT R14,#PLBGCK_POINT_MR1 ;(R14) <-- ＢＧチェックポイントデータポインター（小） 2694 ; 2695 MR_BGCK_N_2 2696 S000B47 3E AB 32 SMS R11,RTS2 ;[ return address save ] 2697 ; 2698 S000B4A 3D A9 46 LMS R9,CPLXPSL ;(R9) <-- プレイヤーＸ座標 2699 S000B4D 3D AA 48 LMS R10,CPLYPSL ;(R10) <-- ” Ｙ ” 2700 S000B50 A2 00 IBT R2,#00 ;(R2) <-- ＢＧ当たりフラグクリアー 2701 S000B52 3E A2 7F SMS R2,CPLWATR ;水中当たりフラグクリアー 2702 S000B55 3E A2 80 SMS R2,CPLTNEL ;トンネル当たりフラグクリアー 2703 S000B58 3E A2 81 SMS R2,CPLHARI ;ダメージＢＧ当たりフラグクリアー 2704 S000B5B 3E A2 7D SMS R2,CPLBGNO ;歩いている床のＢＧタイプクリアー 2705 S000B5E 3E A2 5B SMS R2,CPLANGL ;移動角度リセット 2706 ; 2707 ;------------------------------------------------------------------------ 2708 ;- 左上サイドチェック - 2709 ;------------------------------------------------------------------------ 2710 S000B61 A3 01 IBT R3,#001H ;(R3) <-- 補正向き 2711 S000B63 A4 00 IBT R4,#0 ;(R4) <-- 補正データ 2712 mJSR_X BG_SIDECK_IN 2712+ S000B65 94 LINK #4 2712+ S000B66 FF 0000" IWT R15, #BG_SIDECK_IN 2713 S000B69 02 CACHE 2714 ; 2715 ;------------------------------------------------------------------------ 2716 ;- 左下サイドチェック - 2717 ;------------------------------------------------------------------------ 2718 mJSR_X BG_SIDECK+1 2718+ S000B6A 94 LINK #4 2718+ S000B6B FF 0001" IWT R15, #BG_SIDECK+1 2719 S000B6E 3E HEX 3E ;[ SMS R11,RTS1 ] 2720 ; 2721 ;------------------------------------------------------------------------ 2722 ;- 右上サイドチェック - 2723 ;------------------------------------------------------------------------ 2724 S000B6F A3 FF IBT R3,#0FFH ;(R3) <-- 補正データ 2725 mJSR_X BG_SIDECK+1 2725+ S000B71 94 LINK #4 2725+ S000B72 FF 0001" IWT R15, #BG_SIDECK+1 2726 S000B75 3E HEX 3E ;[ SMS R11,RTS1 ] 2727 ; 2728 ;------------------------------------------------------------------------ 2729 ;- 右下サイドチェック - 2730 ;------------------------------------------------------------------------ 2731 mJSR_X BG_SIDECK+1 2731+ S000B76 94 LINK #4 2731+ S000B77 FF 0001" IWT R15, #BG_SIDECK+1 2732 S000B7A 3E HEX 3E ;[ SMS R11,RTS1 ] 2733 ; 2734 S000B7B 29 WITH R9 ;Ｘ座標補正 2735 S000B7C 54 ADD R4 2736 ; 2737 ;------------------------------------------------------------------------ 2738 ;- サイド総合チェック - 2739 ;------------------------------------------------------------------------ 2740 S000B7D 20 B1 MOVES R0,R1 2741 S000B7F 09 4D' BEQ MR_BGCK_N_0024 ;横当たりＯＫ？ ( no:MR_BGCK_N_0024 ) 2742 S000B81 03 LSR 2743 ; 2744 S000B82 3D A5 C2 LMS R5,CPMR_SBCT 2745 S000B85 25 B5 MOVES R5,R5 2746 S000B87 08 3E' BNE MR_BGCK_N_0022 ;ＢＧヨコ当たり”ボヨヨ〜ン”中？ ( yes:MR_BGCK_N_0022 ) 2747 S000B89 03 LSR 2748 ; 2749 S000B8A C1 OR R1 2750 S000B8B 20 15 MOVE R5,R0 2751 S000B8D 03 LSR 2752 S000B8E 03 LSR 2753 S000B8F 03 LSR 2754 S000B90 03 LSR 2755 S000B91 C5 OR R5 2756 S000B92 3E 73 AND #03H 2757 S000B94 E0 DEC R0 2758 S000B95 08 3A' BNE MR_BGCK_N_0030 ;激突？ ( yes:MR_BGCK_N_0030 ) 2759 S000B97 E0 DEC R0 2760 ; 2761 ;-------------- 普通の当たり -------------------------------------------- 2762 ; 2763 ;-------------- 横壁押しチェック -------------------------------- 2764 S000B98 3D A0 60 LMS R0,CPLJUMP 2765 S000B9B E0 DEC R0 2766 S000B9C 0A 29' BPL MR_BGCK_N_0022 ;ジャンプ中？ ( yes:MR_BGCK_N_0022 ) 2767 S000B9E 01 NOP 2768 ; 2769 S000B9F B1 FROM R1 2770 S000BA0 3E 7F AND #0FH 2771 S000BA2 09 02' BEQ MR_BGCK_N_0020 ;左当たり？ ( yes:MR_BGCK_N_0020 ) 2772 S000BA4 D0 INC R0 ;[ IBT R0,#01H ] 2773 ; 2774 S000BA5 60 SUB R0 ;[ IBT R0,#0 ] 2775 MR_BGCK_N_0020 2776 S000BA6 D0 INC R0 ;[ 左:00000010B 右:00000001B ] 2777 ; 2778 S000BA7 3D F1 0071 LM R1,CMKEYC1 ;(R1) <-- コントローラー情報 2779 S000BAB 71 AND R1 2780 S000BAC 09 19' BEQ MR_BGCK_N_0022 ;横壁押しキー入力？ ( no:MR_BGCK_N_0022 ) 2781 S000BAE D3 INC R3 2782 ; 2783 ;-------------- ドカン出入りチェック -------------------- 2784 S000BAF 20 11 MOVE R1,R0 2785 S000BB1 3D A0 D9 LMS R0,CBABYNO 2786 S000BB4 50 ADD R0 2787 S000BB5 0C 10' BCC MR_BGCK_N_0022 ;赤ちゃん乗ってる？ ( no:MR_BGCK_N_0022 ) 2788 S000BB7 01 NOP 2789 ; 2790 S000BB8 3D A5 83 LMS R5,CDOKNMK 2791 S000BBB B5 FROM R5 2792 S000BBC 3E 73 AND #00000011B 2793 S000BBE 61 SUB R1 2794 S000BBF 08 06' BNE MR_BGCK_N_0022 ;ドカン？ ( no:MR_BGCK_N_0022 ) 2795 S000BC1 01 NOP 2796 ; 2797 ;-------------- ドカン出入りデモへ -------------- 2798 mJSR DOKAN_INOUT_IN ;[ (R5) <-- 向き ] 2798+ S000BC2 94 LINK #4 2798+ S000BC3 FF 0000" IWT R15, #DOKAN_INOUT_IN 2798+ S000BC6 01 NOP 2799 ; 2800 MR_BGCK_N_0022 2801 S000BC7 60 SUB R0 2802 S000BC8 3E A0 54 SMS R0,CPLXSPD 2803 S000BCB 3E A0 5A SMS R0,CPLMVSP 2804 ; 2805 MR_BGCK_N_0024 2806 S000BCE 05 13' BRA MR_BGCK_N_0040 2807 S000BD0 01 NOP 2808 ; 2809 ;-------------- 激突 -------------------------------------------- 2810 MR_BGCK_N_0030 2811 ; 2812 ;-------------- ＢＧヨコ当たり”ボヨヨ〜ン”セットチェック -------------- 2813 S000BD1 3D A0 54 LMS R0,CPLXSPD 2814 S000BD4 3D 96 DIV2 2815 S000BD6 3E A0 C3 SMS R0,CPMR_SBSP ;ＢＧヨコ当たり”ボヨヨ〜ン”スピードセット 2816 S000BD9 3E A0 C2 SMS R0,CPMR_SBCT ; ” カウンターセット 2817 ;;;; BRA MR_BGCK_N_0038 2818 S000BDC 60 SUB R0 2819 ; 2820 S000BDD 3E A0 54 SMS R0,CPLXSPD 2821 S000BE0 3E A0 5A SMS R0,CPLMVSP 2822 ; 2823 ;------------------------------------------------------------------------ 2824 ;- 左頭チェック - 2825 ;------------------------------------------------------------------------ 2826 MR_BGCK_N_0040 2827 S000BE3 A3 10 IBT R3,#010H ;(R3) <-- 頭チェックフラグ 2828 mJSR_X BG_HDFTCK+1 2828+ S000BE5 94 LINK #4 2828+ S000BE6 FF 0001" IWT R15, #BG_HDFTCK+1 2829 S000BE9 3E HEX 3E ;[ SMS R11,RTS1 ] 2830 ; 2831 ;------------------------------------------------------------------------ 2832 ;- 右頭チェック - 2833 ;------------------------------------------------------------------------ 2834 mJSR_X BG_HDFTCK+1 2834+ S000BEA 94 LINK #4 2834+ S000BEB FF 0001" IWT R15, #BG_HDFTCK+1 2835 S000BEE 3E HEX 3E ;[ SMS R11,RTS1 ] 2836 ; 2837 ;------------------------------------------------------------------------ 2838 ;- 頭総合チェック - 2839 ;------------------------------------------------------------------------ 2840 S000BEF B2 FROM R2 2841 S000BF0 3E 73 AND #00000011B 2842 S000BF2 09 6C' BEQ MR_BGCK_N_0050 ;頭当たり？ ( no:MR_BGCK_N_0050 ) 2843 S000BF4 01 NOP 2844 ; 2845 ;-------------- ＢＧ当たった -------------------------------------------- 2846 S000BF5 3D A3 55 LMS R3,CPLYSPD ;(R3) <-- Ｙスピード 2847 S000BF8 23 B3 MOVES R3,R3 2848 S000BFA 0A 63' BPL MR_BGCK_N_0048 ;プレイヤー下降中？ ( yes:MR_BGCK_N_0048 ) 2849 S000BFC 60 SUB R0 2850 ; 2851 S000BFD 90 SBK ;[ SMS R0,PLYSPD ] 2852 S000BFE D0 INC R0 ;[ IBT R0,#1 ] 2853 S000BFF 3E A0 69 SMS R0,CPLSPJP ;ジタバタジャンプ リセット 2854 S000C02 A0 14 IBT R0,#014H ;ジタバタジャンプＮＥＸＴウェイトタイマー 2855 S000C04 3E A0 F3 SMS R0,CPSPJTM 2856 ; 2857 ;-------------- ドカン出入りチェック -------------------- 2858 S000C07 3D A0 D9 LMS R0,CBABYNO 2859 S000C0A 50 ADD R0 2860 S000C0B 0C 42' BCC MR_BGCK_N_0046 ;赤ちゃん乗ってる？ ( no:MR_BGCK_N_0046 ) 2861 S000C0D 01 NOP 2862 ; 2863 S000C0E 3D F0 0071 LM R0,CMKEYC1 2864 S000C12 3E 78 AND #00001000B 2865 S000C14 09 39' BEQ MR_BGCK_N_0046 ;上キー入力？ ( no:MR_BGCK_N_0046 ) 2866 S000C16 01 NOP 2867 ; 2868 S000C17 F0 F800 IWT R0,#1111100000000000B 2869 S000C1A 77 AND R7 2870 S000C1B F1 A000 IWT R1,#DK 2871 S000C1E 61 SUB R1 2872 S000C1F 08 2E' BNE MR_BGCK_N_0046 ;ドカン？ ( no:MR_BGCK_N_0046 ) 2873 S000C21 01 NOP 2874 ; 2875 S000C22 2E 15 MOVE R5,R14 ;(R14) save 2876 ; 2877 S000C24 B6 FROM R6 2878 S000C25 9E LOB 2879 S000C26 FE 0000" IWT R14,#DOKAN_TYPE 2880 S000C29 1E TO R14 2881 S000C2A 5E ADD R14 2882 S000C2B EF GETB 2883 ; 2884 S000C2C 25 1E MOVE R14,R5 ;(R14) load 2885 ; 2886 S000C2E A5 08 IBT R5,#00001000B 2887 S000C30 11 TO R1 2888 S000C31 75 AND R5 2889 S000C32 09 1B' BEQ MR_BGCK_N_0046 ;ドカンユニットＯＫ？ ( no:MR_BGCK_N_0046 ) 2890 S000C34 4D SWAP 2891 ; 2892 S000C35 50 ADD R0 ;(C) <-- 左ｏｒ右？ 2893 S000C36 3D A0 00 LMS R0,CWORK0 2894 S000C39 3E 7F AND #0FH 2895 S000C3B 0C 03' BCC MR_BGCK_N_0044 ;左ドカン？ ( yes:MR_BGCK_N_0044 ) 2896 S000C3D 01 NOP 2897 ; 2898 S000C3E 3F 5F ADC #0FH ;[ ADD #010H ] 2899 MR_BGCK_N_0044 2900 S000C40 3E 6E SUB #(0AH-08H)+0CH 2901 S000C42 3E 68 SUB #08H 2902 S000C44 0D 09' BCS MR_BGCK_N_0046 ;Ｘ位置ＯＫ？ ( no:MR_BGCK_N_0046 ) 2903 S000C46 01 NOP 2904 ; 2905 ;-------------- ドカン出入りデモへ -------------- 2906 mJSR DOKAN_INOUT_IN_2 ;[ (R5) <-- 向き ] 2906+ S000C47 94 LINK #4 2906+ S000C48 FF 0000" IWT R15, #DOKAN_INOUT_IN_2 2906+ S000C4B 01 NOP 2907 S000C4C 05 12' BRA MR_BGCK_N_0050 2908 S000C4E 01 NOP 2909 ; 2910 ;-------------- サウンドセット座標セット ---------------- 2911 MR_BGCK_N_0046 2912 S000C4F A0 1F IBT R0,#01FH ;[♪] 2913 S000C51 3E A0 3D SMS R0,CMSOUND3 2914 ; 2915 ;-------------- 頭ＢＧ当たり”ボヨヨ〜ン”セット ---------------- 2916 S000C54 3E A3 C5 SMS R3,CPMR_HBSP ;頭ＢＧ当たり”ボヨヨ〜ン”スピードセット 2917 S000C57 3E A3 C4 SMS R3,CPMR_HBCT ; ” カウンターセット 2918 S000C5A A0 08 IBT R0,#08H ;重力加算停止！！（ダミー） 2919 S000C5C 3E A0 EE SMS R0,CPHBOYO 2920 ; 2921 MR_BGCK_N_0048 2922 S000C5F DA INC R10 ;Ｙ座標補正 2923 ; 2924 ;------------------------------------------------------------------------ 2925 ;- 左足チェック - 2926 ;------------------------------------------------------------------------ 2927 MR_BGCK_N_0050 2928 S000C60 A3 F0 IBT R3,#0F0H ;(R3) <-- 足チェックフラグ 2929 S000C62 3D A4 5C LMS R4,CPLSKCL ;(R4) <-- 前回坂フラグ 2930 mJSR_X BG_HDFTCK+1 2930+ S000C65 94 LINK #4 2930+ S000C66 FF 0001" IWT R15, #BG_HDFTCK+1 2931 S000C69 3E HEX 3E ;[ SMS R11,RTS1 ] 2932 ; 2933 ;-------------- 左足のＢＧチェック情報保存 ---------------------- 2934 S000C6A 3E A1 0A SMS R1,CWORKA ;(CWKA) <-- 左足補正値 2935 S000C6D 3D A0 08 LMS R0,CWORK8 2936 S000C70 3E A0 5C SMS R0,CPLSKCL ;前回坂フラグセット 2937 ; 2938 S000C73 3D A0 00 LMS R0,CWORK0 ;(CWK10) <-- ＢＧチェックＸ座標 2939 S000C76 3E A0 10 SMS R0,CWORK10 2940 S000C79 3D A0 01 LMS R0,CWORK1 ;(CWK11) <-- ＢＧチェックＹ座標 2941 S000C7C 3E A0 11 SMS R0,CWORK11 2942 S000C7F 3E A6 12 SMS R6,CWORK12 ;(CWK12) <-- BG unit no. 2943 S000C82 3E A7 13 SMS R7,CWORK13 ;(CWK13) <-- BG unit no. type 2944 ; 2945 ;------------------------------------------------------------------------ 2946 ;- 中足チェック - 2947 ;------------------------------------------------------------------------ 2948 S000C85 3D A4 5D LMS R4,CPLSKCC ;(R4) <-- 前回坂フラグ 2949 mJSR_X BG_HDFTCK+1 2949+ S000C88 94 LINK #4 2949+ S000C89 FF 0001" IWT R15, #BG_HDFTCK+1 2950 S000C8C 3E HEX 3E ;[ SMS R11,RTS1 ] 2951 ; 2952 ;-------------- 左足のＢＧチェック情報保存 ---------------------- 2953 S000C8D 3E A1 0B SMS R1,CWORKB ;(CWKB) <-- 中足補正値 2954 S000C90 3D A0 08 LMS R0,CWORK8 ;(CWKE) <-- 中足移動角度 2955 S000C93 3E A0 5D SMS R0,CPLSKCC ;前回坂フラグセット 2956 ; 2957 S000C96 3D A0 00 LMS R0,CWORK0 ;(CWK14) <-- ＢＧチェックＸ座標 2958 S000C99 3E A0 14 SMS R0,CWORK14 2959 S000C9C 3D A0 01 LMS R0,CWORK1 ;(CWK15) <-- ＢＧチェックＹ座標 2960 S000C9F 3E A0 15 SMS R0,CWORK15 2961 S000CA2 3E A6 16 SMS R6,CWORK16 ;(CWK16) <-- BG unit no. 2962 S000CA5 3E A7 17 SMS R7,CWORK17 ;(CWK17) <-- BG unit no. type 2963 ; 2964 ;------------------------------------------------------------------------ 2965 ;- 右足チェック - 2966 ;------------------------------------------------------------------------ 2967 S000CA8 3D A4 5E LMS R4,CPLSKCR ;(R4) <-- 前回坂フラグ 2968 mJSR_X BG_HDFTCK+1 2968+ S000CAB 94 LINK #4 2968+ S000CAC FF 0001" IWT R15, #BG_HDFTCK+1 2969 S000CAF 3E HEX 3E ;[ SMS R11,RTS1 ] 2970 ; 2971 S000CB0 3E A1 0C SMS R1,CWORKC ;(CWKC) <-- 右足補正値 2972 S000CB3 3D A4 08 LMS R4,CWORK8 ;(R4) <-- 右足移動角度 2973 S000CB6 3E A4 5E SMS R4,CPLSKCR ;前回坂フラグセット 2974 ; 2975 ;------------------------------------------------------------------------ 2976 ;- 足ＢＧ総合チェック - 2977 ;------------------------------------------------------------------------ 2978 S000CB9 B2 FROM R2 2979 S000CBA 3E 77 AND #00000111B 2980 S000CBC 08 22' BNE MR_BGCK_N_0200 ;足当たった？ ( yes:MR_BGCK_N_0200 ) 2981 S000CBE 01 NOP 2982 ; 2983 ;-------------- リフト乗ってるか？チェック ------------------------------ 2984 S000CBF 3D A0 DA LMS R0,CONLFFG 2985 S000CC2 3E 60 SUB #0 2986 S000CC4 09 09' BEQ MR_BGCK_N_0180 ;リフト乗ってる？ ( no:MR_BGCK_N_0180 ) 2987 S000CC6 01 NOP 2988 ; 2989 S000CC7 A4 00 IBT R4,#0 ;(R4) <-- 移動角度 2990 S000CC9 A5 00 IBT R5,#0 ;(R5) <-- 着地”ボヨヨ〜ン”Ｙスピード 2991 mDJMP MR_BGCK_N_0260 2991+ S000CCB FF 0D51' IWT R15, #MR_BGCK_N_0260 2991+ S000CCE 01 NOP 2992 ; 2993 ;-------------- ＢＧ当たって無い ---------------------------------------- 2994 MR_BGCK_N_0180 2995 S000CCF 3D A0 60 LMS R0,CPLJUMP 2996 S000CD2 E0 DEC R0 2997 S000CD3 0A 07' BPL MR_BGCK_N_0190 ;プレイヤージャンプ中？ ( yes:MR_BGCK_N_0190 ) 2998 S000CD5 01 NOP 2999 ; 3000 S000CD6 F0 0008 IWT R0,#P008 ;ジャンプフラグ”ＯＮ” 3001 S000CD9 3E A0 60 SMS R0,CPLJUMP 3002 MR_BGCK_N_0190 3003 mDJMP MR_BGCK_N_0300 3003+ S000CDC FF 0D7C' IWT R15, #MR_BGCK_N_0300 3003+ S000CDF 01 NOP 3004 ; 3005 ;-------------- ＢＧ当たり ---------------------------------------------- 3006 MR_BGCK_N_0200 3007 ; 3008 ;-------------- 最大補正値チェック [ (R3) <-- 最大補正値 ] ------ 3009 S000CE0 3D A0 0A LMS R0,CWORKA ;(R0) <-- 左足補正値 3010 S000CE3 3D A5 0B LMS R5,CWORKB ;(R5) <-- 中足補正値 3011 S000CE6 65 SUB R5 3012 S000CE7 0B 03' BMI MR_BGCK_N_0202 ;左足補正値＞中足補正値？ ( yes:MR_BGCK_N_0202 ) 3013 S000CE9 55 ADD R5 3014 ; 3015 S000CEA 25 10 MOVE R0,R5 3016 MR_BGCK_N_0202 3017 S000CEC 3D A5 0C LMS R5,CWORKC ;(R5) <-- 右足補正値 3018 S000CEF 25 13 MOVE R3,R5 3019 S000CF1 63 SUB R3 3020 S000CF2 0A 03' BPL MR_BGCK_N_0204 ;（左足補正値＞中足補正値）＞右足補正値？ ( no:MR_BGCK_N_0204 ) 3021 S000CF4 53 ADD R3 3022 ; 3023 S000CF5 20 13 MOVE R3,R0 3024 ; 3025 ;-------------- Ｙ座標補正 -------------------------------------- 3026 MR_BGCK_N_0204 3027 S000CF7 2A WITH R10 ;Ｙ座標補正 3028 S000CF8 53 ADD R3 3029 ; 3030 S000CF9 B5 FROM R5 3031 S000CFA 63 SUB R3 3032 S000CFB 08 06' BNE MR_BGCK_N_0206 ;右足当たりＯＫ？ ( no:MR_BGCK_N_0206 ) 3033 S000CFD 01 NOP 3034 ; 3035 ;-------------- 右足当たりＯＫ後特殊ＢＧチェック -------- 3036 mJSR FOOT_RESULT 3036+ S000CFE 94 LINK #4 3036+ S000CFF FF 0000" IWT R15, #FOOT_RESULT 3036+ S000D02 01 NOP 3037 ; 3038 ;-------------- 中足のＢＧチェック情報復帰 -------------- 3039 MR_BGCK_N_0206 3040 S000D03 3D A0 0B LMS R0,CWORKB ;(R0) <-- 中足補正値 3041 S000D06 63 SUB R3 3042 S000D07 08 1B' BNE MR_BGCK_N_0210 ;中足当たりＯＫ？ ( no:MR_BGCK_N_0210 ) 3043 S000D09 01 NOP 3044 ; 3045 S000D0A 3D A0 14 LMS R0,CWORK14 3046 S000D0D 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- 中足ＢＧチェックＸ座標 3047 S000D10 3D A0 15 LMS R0,CWORK15 3048 S000D13 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- 中足ＢＧチェックＹ座標 3049 S000D16 3D A6 16 LMS R6,CWORK16 ;(R6) <-- 中足 BG unit no. 3050 S000D19 3D A7 17 LMS R7,CWORK17 ;(R7) <-- 中足 BG unit no. type 3051 S000D1C 3D A4 5D LMS R4,CPLSKCC ;(R4) <-- 中足移動角度 3052 ; 3053 ;-------------- 中足当たりＯＫ後特殊ＢＧチェック -------- 3054 mJSR FOOT_RESULT_C 3054+ S000D1F 94 LINK #4 3054+ S000D20 FF 0000" IWT R15, #FOOT_RESULT_C 3054+ S000D23 01 NOP 3055 ; 3056 ;-------------- 左足のＢＧチェック情報復帰 -------------- 3057 MR_BGCK_N_0210 3058 S000D24 3D A0 0A LMS R0,CWORKA ;(R0) <-- 左足補正値 3059 S000D27 63 SUB R3 3060 S000D28 08 1B' BNE MR_BGCK_N_0250 ;中足当たりＯＫ？ ( no:MR_BGCK_N_0250 ) 3061 S000D2A 01 NOP 3062 ; 3063 S000D2B 3D A0 10 LMS R0,CWORK10 3064 S000D2E 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- 左足ＢＧチェックＸ座標 3065 S000D31 3D A0 11 LMS R0,CWORK11 3066 S000D34 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- 左足ＢＧチェックＹ座標 3067 S000D37 3D A6 12 LMS R6,CWORK12 ;(R6) <-- 左足 BG unit no. 3068 S000D3A 3D A7 13 LMS R7,CWORK13 ;(R7) <-- 左足 BG unit no. type 3069 S000D3D 3D A4 5C LMS R4,CPLSKCL ;(R4) <-- 左足移動角度 3070 ; 3071 ;-------------- 左足当たりＯＫ後特殊ＢＧチェック -------- 3072 mJSR FOOT_RESULT 3072+ S000D40 94 LINK #4 3072+ S000D41 FF 0000" IWT R15, #FOOT_RESULT 3072+ S000D44 01 NOP 3073 ; 3074 ;-------------- 足当たり情報セット ------------------------------ 3075 MR_BGCK_N_0250 3076 S000D45 3D A5 55 LMS R5,CPLYSPD ;(R5) <-- Ｙスピード 3077 S000D48 60 SUB R0 3078 S000D49 3E A0 55 SMS R0,CPLYSPD ;Ｙスピードクリアー 3079 S000D4C A0 FF IBT R0,#0FFH ;[ IWT R0,#0FFFFH ] 着地継続の為 3080 S000D4E 3E A0 47 SMS R0,CPLYSDR 3081 ; 3082 MR_BGCK_N_0260 3083 S000D51 3E A4 5B SMS R4,CPLANGL ;移動角度セット 3084 S000D54 60 SUB R0 3085 S000D55 3E A0 5C SMS R0,CPLSKCL ;前回坂フラグリセット 3086 S000D58 3E A0 5D SMS R0,CPLSKCC 3087 S000D5B 3E A0 5E SMS R0,CPLSKCR 3088 ;;;; SMS R0,CPLKAID ;階段歩きフラグクリアー 3089 ; 3090 ;-------------- 着地の瞬間チェック ------------------------------ 3091 S000D5E 3D A0 60 LMS R0,CPLJUMP 3092 S000D61 E0 DEC R0 3093 S000D62 0B 18' BMI MR_BGCK_N_0270 ;着地の瞬間？ ( no:MR_BGCK_N_0270 ) 3094 S000D64 60 SUB R0 3095 ; 3096 S000D65 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＦＦ” 3097 S000D68 3D A0 54 LMS R0,CPLXSPD 3098 S000D6B 3E A0 5A SMS R0,CPLMVSP ;移動スピードセット 3099 S000D6E 3E A0 C4 SMS R0,CPMR_HBCT ;頭ＢＧ当たり”ボヨヨ〜ン”リセット 3100 S000D71 3E A5 C7 SMS R5,CPMR_FBSP 3101 S000D74 3E A5 C6 SMS R5,CPMR_FBCT ;足ＢＧ当たり”ボヨヨ〜ン”カウンター 3102 ; 3103 ;-------------- ”ドスーン！！”着地チェック -------------------- 3104 mJSR DOSN_JUST_CK 3104+ S000D77 94 LINK #4 3104+ S000D78 FF 0000" IWT R15, #DOSN_JUST_CK 3104+ S000D7B 01 NOP 3105 ; 3106 MR_BGCK_N_0270 3107 ; 3108 MR_BGCK_N_0300 3109 S000D7C 3E A9 46 SMS R9,CPLXPSL 3110 S000D7F 3E AA 48 SMS R10,CPLYPSL 3111 S000D82 3E A2 7E SMS R2,CPLBGCR 3112 ; 3113 ;------------------------------------------------------------------------ 3114 ;- ダメージＢＧ当たりチェック - 3115 ;------------------------------------------------------------------------ 3116 S000D85 3D A0 81 LMS R0,CPLHARI 3117 S000D88 E0 DEC R0 3118 S000D89 0B 07' BMI MR_BGCK_N_0350 ;ダメージＢＧ当たりフラグクリアー 3119 S000D8B 01 NOP 3120 ; 3121 ;-------------- プレイヤーダメージセット -------------------------------- 3122 mSFCALL PLFAILST ;プレイヤーダメージセット 3122+ S000D8C A0 14 IBT R0,#PLFAILST 3122+ S000D8E 00 STOP 3122+ S000D8F 01 NOP 3123 S000D90 05 1F' BRA MR_BGCK_N_0500 3124 ; 3125 ;------------------------------------------------------------------------ 3126 ;- トンネルＩＮ／ＯＵＴチェック - 3127 ;------------------------------------------------------------------------ 3128 MR_BGCK_N_0350 3129 S000D92 3D A0 80 LMS R0,CPLTNEL 3130 S000D95 C2 OR R2 ;(R0) <-- トンネル当たりフラグ 3131 S000D96 F6 01F8 IWT R6,#111111000B ;(R6) <-- トンネルチェックデータ 3132 ; 3133 S000D99 3D F5 1FEC LM R5,CCCHGTK 3134 S000D9D E5 DEC R5 3135 S000D9E 0A 09' BPL MR_BGCK_N_0400 ;今、トンネルの中？ ( yes:MR_BGCK_N_0400 ) 3136 S000DA0 D5 INC R5 3137 ; 3138 ;-------------- トンネルに入ったか？チェック ---------------------------- 3139 S000DA1 76 AND R6 3140 S000DA2 66 SUB R6 3141 S000DA3 09 08' BEQ MR_BGCK_N_0410 ;トンネルに入った？ ( yes:MR_BGCK_N_0410 ) 3142 S000DA5 01 NOP 3143 ; 3144 S000DA6 05 09' BRA MR_BGCK_N_0500 3145 S000DA8 01 NOP 3146 ; 3147 ;-------------- トンネルから出たか？チェック ---------------------------- 3148 MR_BGCK_N_0400 3149 S000DA9 76 AND R6 3150 S000DAA 08 05' BNE MR_BGCK_N_0500 ;トンネルから出た？ ( no:MR_BGCK_N_0500 ) 3151 S000DAC 01 NOP 3152 ; 3153 ;-------------- トンネルＩＮ／ＯＵＴデモスタート初期セット -------------- 3154 MR_BGCK_N_0410 3155 mSFCALL TN_INOUT_IN 3155+ S000DAD A0 10 IBT R0,#TN_INOUT_IN 3155+ S000DAF 00 STOP 3155+ S000DB0 01 NOP 3156 ; 3157 MR_BGCK_N_0500 3158 S000DB1 3D AB 32 LMS R11,RTS2 ;[ return address load ] 3159 mRTS 3159+ S000DB4 9B JMP R11 3159+ S000DB5 01 NOP 3160 ; 3161 ; 3162 ; 3163 ;------------------------------------------------------------------------ 3164 ; キャッシュプログラム - 3165 ;------------------------------------------------------------------------ 3166 ; 3167 ;------------------------------------------------------------------------ 3168 ;- 横当たりチェック - 3169 ;- in : - 3170 ;- (R1) <-- 横ＢＧ当たりＯＫフラグ - 3171 ;- (R2) <-- ＢＧ当たりフラグ - 3172 ;- (R3) <-- 補正向き - 3173 ;- (R4) <-- 補正データ - 3174 ;- (R9) <-- プレイヤーＸ座標 - 3175 ;- (R10) <-- ” Ｙ ” - 3176 ;- (R11) <-- 復帰アドレス - 3177 ;- (R14) <-- ＢＧチェックポイント - 3178 ;- データアドレス - 3179 ;- out : - 3180 ;- (R0) <-- BG unit no. type - 3181 ;- (R6) <-- BG unit no. - 3182 ;- (R7) <-- BG unit no. type - 3183 ;- (R8) <-- BG type status data - 3184 ;- (CWK0) <- ＢＧチェックＸ座標 - 3185 ;- (CWK1) <- ” Ｙ ” - 3186 ;- break : - 3187 ;- (R5) - 3188 ;- (R12) - 3189 ;- (R13) - 3190 ;- use RAM : - 3191 ;- (RTS0) - 3192 ;- (RTS1) - 3193 ;- (CWKE) - 3194 ;- (CWKF) - 3195 ;------------------------------------------------------------------------ 3196 BG_SIDECK_R_IN 3197 S000DB6 A1 00 IBT R1,#0 ;(R1) <-- 横ＢＧ当たりＯＫフラグ 3198 ; 3199 BG_SIDECK_R 3200 S000DB8 3E AB 31 SMS R11,RTS1 ;[ return address save ] 3201 ; 3202 S000DBB 22 WITH R2 ;[ ASL R2 ] 3203 S000DBC 52 ADD R2 3204 S000DBD 21 WITH R1 ;[ ASL R1 ] 3205 S000DBE 51 ADD R1 3206 S000DBF 21 WITH R1 ;[ ASL R1 ] 3207 S000DC0 51 ADD R1 3208 ; 3209 ;-------------- ＢＧ当たりチェック -------------------------------------- 3210 mJSR_X BGUNIT_READ_R+1 3210+ S000DC1 94 LINK #4 3210+ S000DC2 FF 0E39' IWT R15, #BGUNIT_READ_R+1 3211 S000DC5 17 TO R7 3212 ; 3213 BG_SIDECK_R000 3214 S000DC6 3E 72 AND #AL 3215 S000DC8 09 6A' BEQ BG_SIDECK_R100 ;ＢＧ当たり？ ( no:BG_SIDECK_R100 ) 3216 S000DCA 01 NOP 3217 ; 3218 ;-------------- 移動方向チェック ---------------------------------------- 3219 S000DCB 3D A0 5A LMS R0,CPLMVSP 3220 S000DCE 3E 60 SUB #0 3221 S000DD0 09 06' BEQ BG_SIDECK_R002 3222 S000DD2 D2 INC R2 ;ＢＧ当たりフラグ”ＯＮ” 3223 ; 3224 S000DD3 3D C3 XOR R3 3225 S000DD5 0A 5D' BPL BG_SIDECK_R100 ;移動方向ＯＫ？ ( no:BG_SIDECK_R100 ) 3226 S000DD7 01 NOP 3227 ; 3228 BG_SIDECK_R002 3229 S000DD8 D1 INC R1 ;横ＢＧ当たりＯＫフラグ”ＯＮ” 3230 ; 3231 S000DD9 3D C3 XOR R3 3232 S000DDB 0B 03' BMI BG_SIDECK_R010 ;Ｘスピード左方向？ ( yes:BG_SIDECK_R010 ) 3233 S000DDD 01 NOP 3234 ; 3235 S000DDE 4F NOT 3236 S000DDF D0 INC R0 3237 BG_SIDECK_R010 3238 S000DE0 F5 0300 IWT R5,#0300H 3239 S000DE3 55 ADD R5 3240 S000DE4 0A 22' BPL BG_SIDECK_R050 ;壁壊し可能スピード？ ( no:BG_SIDECK_R050 ) 3241 S000DE6 01 NOP 3242 ; 3243 ;-------------- 壁壊しチェック ---------------------------------- 3244 S000DE7 F0 F800 IWT R0,#1111100000000000B 3245 S000DEA 77 AND R7 3246 S000DEB F5 4000 IWT R5,#ET 3247 S000DEE 65 SUB R5 3248 S000DEF 08 17' BNE BG_SIDECK_R050 ;壊れるＢＧ？ ( no:BG_SIDECK_R050 ) 3249 S000DF1 D1 INC R1 ;横ＢＧ当たりＯＫフラグ”ＯＮ”（激突） 3250 ; 3251 S000DF2 D1 INC R1 ;横ＢＧ当たりＯＫフラグ”ＯＮ”（ＢＧ壊した） 3252 ; 3253 ;-------------- ＢＧ壊す -------------------------------- 3254 S000DF3 60 SUB R0 3255 S000DF4 3E A0 0E SMS R0,CWORKE ;(CWKE) <-- 壊れたＢＧぶっ飛びＸスピード 3256 S000DF7 3E A0 0F SMS R0,CWORKF ;(CWKF) <-- 壊れたＢＧぶっ飛びＹスピード 3257 ; 3258 S000DFA 3E A1 02 SMS R1,CWORK2 ;(R1) save 3259 ; 3260 mJSR BRBG0_SET ;壊れたＢＧ効果セット 3260+ S000DFD 94 LINK #4 3260+ S000DFE FF 0000" IWT R15, #BRBG0_SET 3260+ S000E01 01 NOP 3261 ; 3262 S000E02 3D A1 02 LMS R1,CWORK2 ;(R1) load 3263 ; 3264 S000E05 05 2D' BRA BG_SIDECK_R100 3265 S000E07 01 NOP 3266 ; 3267 ;-------------- 座標補正チェック -------------------------------- 3268 BG_SIDECK_R050 3269 S000E08 3D F0 1960 LM R0,CEWORK0 ;(R0) <-- ｃｏｓデータ 3270 S000E0C 84 MULT R4 ;(R0) <-- Ｘ座標補正値×ｃｏｓ 3271 S000E0D 50 ADD R0 ;x4 3272 S000E0E 50 ADD R0 ; 3273 S000E0F 15 TO R5 3274 S000E10 4D SWAP 3275 S000E11 3D F0 008B LM R0,CPLXSDR+1 3276 S000E15 55 ADD R5 ;(C) set 3277 S000E16 90 SBK ;[ SMS R0,CPLXSDR ] 3278 S000E17 B5 FROM R5 3279 S000E18 95 SEX 3280 S000E19 19 TO R9 ;Ｘ座標補正 3281 S000E1A 3D 59 ADC R9 3282 ; 3283 S000E1C 3D F0 1962 LM R0,CEWORK2 ;(R0) <-- ｓｉｎデータ 3284 S000E20 4F NOT 3285 S000E21 D0 INC R0 3286 S000E22 84 MULT R4 3287 S000E23 50 ADD R0 ;x4 3288 S000E24 50 ADD R0 ; 3289 S000E25 15 TO R5 3290 S000E26 4D SWAP 3291 S000E27 3D F0 008F LM R0,CPLYSDR+1 3292 S000E2B 55 ADD R5 ;(C) set 3293 S000E2C 90 SBK ;[ SMS R0,CPLYSDR ] 3294 S000E2D B5 FROM R5 3295 S000E2E 95 SEX 3296 S000E2F 1A TO R10 ;Ｙ座標補正 3297 S000E30 3D 5A ADC R10 3298 ; 3299 S000E32 A4 00 IBT R4,#0 ;Ｘ座標補正無しセット 3300 ; 3301 BG_SIDECK_R100 3302 ; 3303 ;------------------------------------------------------------------------ 3304 ;- 横用特殊ＢＧ当たりチェック - 3305 ;------------------------------------------------------------------------ 3306 mDJMP SIDE_SP_CK 3306+ S000E34 FF 0000" IWT R15, #SIDE_SP_CK 3306+ S000E37 01 NOP 3307 ; 3308 ; 3309 ;---------------------------------------------------------------- 3310 ;- ＢＧユニットＮｏ．読み込み - 3311 ;- in : - 3312 ;- (R9) <-- 敵のＸ座標 - 3313 ;- (R10) <-- ” Ｙ ” - 3314 ;- (R11) <-- 復帰アドレス - 3315 ;- (R14) <-- ＢＧチェックポイント - 3316 ;- データアドレス - 3317 ;- out : - 3318 ;- (R0) <-- BG unit no. type - 3319 ;- (R6) <-- BG unit no. - 3320 ;- (R7) <-- BG unit no. type - 3321 ;- (R8) <-- BG type status data - 3322 ;- break : - 3323 ;- (R5) - 3324 ;---------------------------------------------------------------- 3325 BGUNIT_READ_R 3326 ; 3327 ;-------------- ＢＧチェックポイント回転 ------------------------ 3328 S000E38 17 TO R7 ;(R7) <-- Ｘ 3329 S000E39 EF GETB 3330 S000E3A DE INC R14 3331 S000E3B 3D F5 1960 LM R5,CEWORK0 ;(R5) <-- ｃｏｓデータ 3332 S000E3F B5 FROM R5 3333 S000E40 18 TO R8 ;(R8) <-- Ｘ×ｃｏｓ 3334 S000E41 87 MULT R7 3335 ; 3336 S000E42 3D F0 1962 LM R0,CEWORK2 ;(R0) <-- ｓｉｎデータ 3337 S000E46 16 TO R6 ;(R6) <-- Ｘ×ｓｉｎ 3338 S000E47 87 MULT R7 3339 ; 3340 S000E48 17 TO R7 ;(R7) <-- Ｙ 3341 S000E49 EF GETB 3342 S000E4A DE INC R14 3343 S000E4B 87 MULT R7 ;(R0) <-- Ｙ×ｓｉｎ 3344 S000E4C 58 ADD R8 ;(R0) <-- Ｘ×ｃｏｓ＋Ｙ×ｓｉｎ 3345 S000E4D 50 ADD R0 ;x4 3346 S000E4E 50 ADD R0 ; 3347 S000E4F C0 HIB 3348 S000E50 95 SEX 3349 S000E51 59 ADD R9 3350 S000E52 18 TO R8 ;(R8) <-- ＢＧチェックＸ座標 3351 S000E53 3E 58 ADD #08H 3352 ; 3353 S000E55 B7 FROM R7 3354 S000E56 85 MULT R5 ;(R0) <-- Ｙ×ｃｏｓ 3355 S000E57 66 SUB R6 ;(R0) <-- Ｙ×ｃｏｓ−Ｘ×ｓｉｎ 3356 S000E58 50 ADD R0 ;x4 3357 S000E59 50 ADD R0 ; 3358 S000E5A C0 HIB 3359 S000E5B 95 SEX 3360 S000E5C 5A ADD R10 3361 S000E5D A7 20 IBT R7,#020H 3362 S000E5F 57 ADD R7 3363 ; 3364 BGUNIT_READ_R_S 3365 S000E60 3D A6 E5 LMS R6,CBG2OF_FG 3366 S000E63 E6 DEC R6 ;(N) set 3367 ; 3368 S000E64 17 TO R7 ;(R7) <-- BG check Y pos x2 3369 S000E65 0B 05' BMI BGUNIT_READ_R_000 ;オフセットモード？ ( no:BGUNIT_READ_R_000 ) 3370 S000E67 50 ADD R0 3371 ; 3372 mDJMP BGUNIT_READ_R_O 3372+ S000E68 FF 0EFF' IWT R15, #BGUNIT_READ_R_O 3372+ S000E6B 01 NOP 3373 ; 3374 BGUNIT_READ_R_000 3375 S000E6C 3D A5 53 LMS R5,CWRSCV1 3376 S000E6F 65 SUB R5 3377 S000E70 F5 00E0 IWT R5,#0E0H 3378 S000E73 65 SUB R5 ;(C) set 3379 ; 3380 S000E74 3D A5 52 LMS R5,CWRSCH1 3381 S000E77 0D 1A' BCS BGUNIT_READ_R_002 ;ＢＧチェックバッファＹ座標範囲内？ ( no:BGUNIT_READ_R_002 ) 3382 S000E79 B8 FROM R8 3383 ; 3384 S000E7A 65 SUB R5 3385 S000E7B C0 HIB 3386 S000E7C 08 15' BNE BGUNIT_READ_R_002 ;ＢＧチェックバッファＸ座標範囲内？ ( no:BGUNIT_READ_R_002 ) 3387 S000E7E B8 FROM R8 3388 ; 3389 S000E7F 03 LSR 3390 S000E80 03 LSR 3391 S000E81 03 LSR 3392 S000E82 A5 3E IBT R5,#01F0H>>3 3393 S000E84 15 TO R5 3394 S000E85 75 AND R5 3395 S000E86 F0 01E0 IWT R0,#0F0H<<1 3396 S000E89 77 AND R7 3397 S000E8A 50 ADD R0 3398 S000E8B C5 OR R5 vvv******* warn :value out of range 3399 S000E8C F5 409E IWT R5,#BGCHECK_BUF 3400 S000E8F 55 ADD R5 3401 S000E90 05 2B' BRA BGUNIT_READ_R_010 3402 S000E92 40 LDW (R0) 3403 ; 3404 BGUNIT_READ_R_002 3405 S000E93 70 MERGE 3406 S000E94 09 64' BEQ BGUNIT_READ_R_020 ;BG check point max over ? ( yes:BGUNIT_READ_R_020 ) 3407 S000E96 16 TO R6 3408 ; 3409 S000E97 9E LOB 3410 S000E98 C0 HIB 3411 S000E99 3E 7E AND #07H*2 3412 S000E9B 3F 88 UMULT #8 3413 S000E9D C6 OR R6 3414 S000E9E F6 0CAA IWT R6,#CUNBUFAD 3415 S000EA1 56 ADD R6 3416 S000EA2 3D 40 LDB (R0) 3417 S000EA4 A6 3F IBT R6,#3FH 3418 S000EA6 76 AND R6 3419 S000EA7 16 TO R6 3420 S000EA8 4D SWAP 3421 S000EA9 F0 01E0 IWT R0,#0F0H<<1 3422 S000EAC 15 TO R5 3423 S000EAD 77 AND R7 3424 S000EAE B8 FROM R8 3425 S000EAF 9E LOB 3426 S000EB0 03 LSR 3427 S000EB1 03 LSR 3428 S000EB2 03 LSR 3429 S000EB3 C5 OR R5 3430 S000EB4 03 LSR 3431 S000EB5 C6 OR R6 3432 S000EB6 50 ADD R0 ;[ ASL ] vvv******* warn :value out of range 3433 S000EB7 F6 8000 IWT R6,#CBGUNIT 3434 S000EBA 56 ADD R6 3435 mRAM_READ ;<<< SFC-RAM read >>> 3435+ S000EBB 00 STOP 3435+ S000EBC 01 NOP 3436 ; 3437 BGUNIT_READ_R_010 3438 S000EBD 20 16 MOVE R6,R0 ;(R6) <-- BG unit no. 3439 S000EBF C0 HIB 3440 S000EC0 3F 83 UMULT #3 ;x3 3441 BGUNIT_READ_R_011 3442 S000EC2 2E 15 MOVE R5,R14 ;(R14) save 3443 ; 3444 S000EC4 FE 0000" IWT R14,#EN_BGTYPE 3445 S000EC7 1E TO R14 ;(R14) <-- BG unit no. type data address 3446 S000EC8 5E ADD R14 3447 S000EC9 3E A8 00 SMS R8,CWORK0 ;(CWK0) <-- BG check X pos 3448 S000ECC EF GETB 3449 S000ECD DE INC R14 3450 ; 3451 S000ECE 27 WITH R7 3452 S000ECF 96 ASR 3453 S000ED0 3E A7 01 SMS R7,CWORK1 ;(CWK1) <-- BG check Y pos 3454 ; 3455 S000ED3 A8 F8 IBT R8,#11111000B ;(R8) <-- ＢＧタイプチェック用ＡＮＤデータ 3456 ; 3457 S000ED5 3D EF GETBH 3458 S000ED7 DE INC R14 3459 S000ED8 20 17 MOVE R7,R0 ;(R0),(R7) <-- BG type data 3460 ; 3461 S000EDA C0 HIB ;[ 上位バイトは０になるのでＡＮＤしても上位バイトは０ ] 3462 S000EDB 78 AND R8 3463 S000EDC A8 72 IBT R8,#(CB/100H)-00001000B+2 ;[ CB=0111100000000000B：サイン拡張しない ] 3464 S000EDE 68 SUB R8 3465 S000EDF 3E 6F SUB #00001111B ;[ 00000110B:CB 00001110B:MB ] 3466 S000EE1 0D 10' BCS BGUNIT_READ_R_012+1 ;点線ブロック？ ( no:BGUNIT_READ_R_012+1 ) 3467 S000EE3 18 TO R8 ;[ * BGUNIT_READ_012 ] 3468 ; 3469 S000EE4 A8 11 IBT R8,#00001111B+00000010B ;[ 00001000B:CB 00010000B:MB ] 3470 S000EE6 58 ADD R8 3471 S000EE7 3D F8 1E08 LM R8,CSWITCH_1 3472 S000EEB 78 AND R8 3473 S000EEC 09 05' BEQ BGUNIT_READ_R_012+1 3474 S000EEE 18 TO R8 ;[ * BGUNIT_READ_R_012 ] 3475 ; 3476 S000EEF 27 WITH R7 ;全当たりに変更 3477 S000EF0 3E C2 OR #AL 3478 ; 3479 BGUNIT_READ_R_012 3480 S000EF2 18 TO R8 ;(R8) <-- BG type status data 3481 S000EF3 EF GETB 3482 ; 3483 S000EF4 27 10 MOVE R0,R7 ;(R0),(R7) <-- BG type data 3484 S000EF6 25 1E MOVE R14,R5 ;(R14) load 3485 mRTS 3485+ S000EF8 9B JMP R11 3485+ S000EF9 01 NOP 3486 ; 3487 BGUNIT_READ_R_020 3488 S000EFA A6 01 IBT R6,#UT0001 ;(R6) <-- BG unit no. 3489 S000EFC 05 C4' BRA BGUNIT_READ_R_011 3490 S000EFE 60 SUB R0 ;[ (R0) <-- HIGH(R6) x3 ] 3491 ; 3492 ;---------------------------------------------------------------- 3493 ;- ＢＧユニットＮｏ．読み込み（オフセット） - 3494 ;- in : - 3495 ;- (R1) <-- 敵のインデックス - 3496 ;- (R9) <-- 敵のＸ座標 - 3497 ;- (R10) <-- ” Ｙ ” - 3498 ;- (R11) <-- 復帰アドレス - 3499 ;- (R14) <-- ＢＧチェックポイント - 3500 ;- データアドレス - 3501 ;- out : - 3502 ;- (R0) <-- BG unit no. type - 3503 ;- (R6) <-- BG unit no. - 3504 ;- (R7) <-- BG unit no. type - 3505 ;- (R8) <-- BG type status data - 3506 ;- (CWK0) <- ＢＧチェックＸ座標 - 3507 ;- (CWK1) <- ” Ｙ ” - 3508 ;- break : - 3509 ;- (R5) - 3510 ;---------------------------------------------------------------- 3511 BGUNIT_READ_R_O 3512 S000EFF 3D F0 0094 LM R0,CESCCH1 3513 S000F03 3F 77 BIC #07H ;[ AND #0FFF8H ] 3514 S000F05 B8 FROM R8 3515 S000F06 60 SUB R0 3516 S000F07 03 LSR 3517 S000F08 03 LSR 3518 S000F09 A5 42 IBT R5,#0021H*2 3519 S000F0B 65 SUB R5 3520 S000F0C 0D 1D' BCS BGUNIT_READ_R_O40 ;オフセットエリア？ ( no:BGUNIT_READ_R_O40 ) 3521 S000F0E 55 ADD R5 3522 ; 3523 S000F0F 03 LSR ;[ AND #0FFFEH ] 3524 S000F10 08 08' BNE BGUNIT_READ_R_O20 ;０ラインオフセットエリア？ ( no:BGUNIT_READ_R_O20 ) 3525 S000F12 50 ADD R0 ;[ AND #0FFFEH ] 3526 ; 3527 ;-------------- ０ラインオフセットエリア ------------------------ 3528 S000F13 3D F0 1EF0 LM R0,CBG2OFV 3529 S000F17 05 07' BRA BGUNIT_READ_R_O30+1 3530 S000F19 F5 HEX F5 ;[ IWT R5,#1FFFH ] 3531 ; 3532 ;-------------- ０ライン以外のオフセットエリア ------------------ 3533 BGUNIT_READ_R_O20 3534 S000F1A F5 1F30 IWT R5,#CBG2OFF+(20H*2)-2 3535 S000F1D 55 ADD R5 3536 S000F1E 40 LDW (R0) 3537 BGUNIT_READ_R_O30 3538 S000F1F F5 1FFF IWT R5,#1FFFH 3539 S000F22 75 AND R5 3540 S000F23 3D F5 009C LM R5,CESCCV1 3541 S000F27 65 SUB R5 3542 S000F28 50 ADD R0 3543 S000F29 17 TO R7 3544 S000F2A 57 ADD R7 3545 ; 3546 BGUNIT_READ_R_O40 3547 mDJMP_X BGUNIT_READ_R_000+1 3547+ S000F2B FF 0E6D' IWT R15, #BGUNIT_READ_R_000+1 3548 S000F2E 3D HEX 3D ;[ LMS R5,CWRSCV1 ] 3549 ; 3550 ; 3551 ;------------------------------------------------------------------------ 3552 ;- 頭と足の当たりチェック - 3553 ;- in : - 3554 ;- (R2) <-- ＢＧ当たりフラグ - 3555 ;- (R3) <-- 頭か足のフラグ - 3556 ;- (R4) <-- 前回坂フラグ（足のみ） - 3557 ;- (R9) <-- プレイヤーＸ座標 - 3558 ;- (R10) <-- ” Ｙ ” - 3559 ;- (R11) <-- 復帰アドレス - 3560 ;- (R14) <-- ＢＧチェックポイント - 3561 ;- データアドレス - 3562 ;- out : - 3563 ;- (R0) <-- BG unit no. type - 3564 ;- (R6) <-- BG unit no. - 3565 ;- (R7) <-- BG unit no. type - 3566 ;- (R8) <-- BG type status data - 3567 ;- (CWK0) <- ＢＧチェックＸ座標 - 3568 ;- (CWK1) <- ” Ｙ ” - 3569 ;- (CWK8) <- 移動角度 - 3570 ;- 3571 ;- break : - 3572 ;- (R1) - 3573 ;- (R5) - 3574 ;- use RAM : - 3575 ;- (RTS1) - 3576 ;------------------------------------------------------------------------ 3577 BG_HDFTCK_R 3578 S000F2F 3E AB 31 SMS R11,RTS1 ;[ return address save ] 3579 ; 3580 S000F32 22 WITH R2 ;[ ASL R2 ] 3581 S000F33 52 ADD R2 3582 ; 3583 mJSR_X BGUNIT_READ_R+1 3583+ S000F34 94 LINK #4 3583+ S000F35 FF 0E39' IWT R15, #BGUNIT_READ_R+1 3584 S000F38 17 TO R7 3585 ; 3586 S000F39 24 B3 MOVES R4,R3 ;(R4) <-- 頭ｏｒ足チェックフラグ 3587 S000F3B 0B 05' BMI BG_HDFTCK_R_FFE 3588 S000F3D 01 NOP 3589 ; 3590 mDJMP BG_HDFTCK_R_170 3590+ S000F3E FF 10D3' IWT R15, #BG_HDFTCK_R_170 3590+ S000F41 01 NOP 3591 ; 3592 BG_HDFTCK_R_FFE 3593 S000F42 3D A0 5B LMS R0,CPLANGL ;(R0) <-- プレイヤー回転角度 3594 S000F45 A1 20 IBT R1,#020H 3595 S000F47 11 TO R1 3596 S000F48 51 ADD R1 3597 S000F49 A0 3F IBT R0,#03FH 3598 S000F4B 71 AND R1 3599 S000F4C 08 09' BNE BG_HDFTCK_R_FFF ;４５度エリア？ ( no:BG_HDFTCK_R_FFF ) 3600 S000F4E 01 NOP 3601 ; 3602 S000F4F 3D A0 5A LMS R0,CPLMVSP 3603 S000F52 E0 DEC R0 3604 S000F53 0A 02' BPL BG_HDFTCK_R_FFF 3605 S000F55 01 NOP 3606 ; 3607 S000F56 E1 DEC R1 3608 BG_HDFTCK_R_FFF 3609 S000F57 A0 40 IBT R0,#040H 3610 S000F59 71 AND R1 3611 S000F5A 09 05' BEQ BG_HDFTCK_R_UPDW ;上下補正？ ( yes:BG_HDFTCK_R_UPDW ) 3612 S000F5C 01 NOP 3613 ; 3614 mDJMP BG_HDFTCK_R_SIDE 3614+ S000F5D FF 1027' IWT R15, #BG_HDFTCK_R_SIDE 3614+ S000F60 01 NOP 3615 ; 3616 ;------------------------------------------------------------------------ 3617 ;- 上下補正 - 3618 ;------------------------------------------------------------------------ 3619 BG_HDFTCK_R_UPDW 3620 S000F61 A5 00 IBT R5,#00 ;(R5) <-- 平地の回転角度 3621 ; 3622 S000F63 B1 FROM R1 3623 S000F64 95 SEX 3624 S000F65 0A 06' BPL BG_HDFTCK_R_000 ;上下反転チェック？ ( no:BG_HDFTCK_R_000 ) 3625 S000F67 23 WITH R3 3626 ; 3627 S000F68 4F NOT 3628 S000F69 D3 INC R3 3629 S000F6A F5 0080 IWT R5,#080H ;(R5) <-- 平地の回転角度 3630 BG_HDFTCK_R_000 3631 S000F6D 3E A5 08 SMS R5,CWORK8 ;(CWK8) <-- saka angle 3632 ; 3633 S000F70 3D A0 01 LMS R0,CWORK1 ;(R0) <-- BG check Y pos 3634 S000F73 11 TO R1 ;(R1) <-- Y pos cross size 3635 S000F74 3E 7F AND #0FH 3636 S000F76 21 1C MOVE R12,R1 ;(R12) <-- Y pos cross size 3637 ; 3638 S000F78 A5 05 IBT R5,#MD+SK ;(R5) <-- 坂チェックデータ 3639 S000F7A 23 B3 MOVES R3,R3 3640 S000F7C 0A 03' BPL BG_HDFTCK_R_010 ;頭チェック？ ( yes:BG_HDFTCK_R_010 ) 3641 S000F7E 01 NOP 3642 ; 3643 S000F7F A5 04 IBT R5,#SK ;(R5) <-- 坂チェックデータ 3644 BG_HDFTCK_R_010 3645 S000F81 B7 FROM R7 3646 S000F82 75 AND R5 3647 S000F83 1D TO R13 ;(R13) <-- 下のＢＧは坂？チェックしたか？ 3648 S000F84 65 SUB R5 3649 S000F85 09 2A' BEQ BG_HDFTCK_R_020 ;坂 cross ? ( yes:BG_HDFTCK_R_020 ) 3650 S000F87 01 NOP 3651 ; 3652 ;-------------- 下のＢＧは坂？チェック ---------------------------------- 3653 S000F88 3E A6 02 SMS R6,CWORK2 ;(CWK2) <-- BG unit no. 3654 S000F8B 3E A7 03 SMS R7,CWORK3 ;(CWK3) <-- BG unit no. type 3655 S000F8E 3E A8 04 SMS R8,CWORK4 ;(CWK4) <-- BG type status data 3656 S000F91 3D A8 00 LMS R8,CWORK0 3657 S000F94 3E A8 05 SMS R8,CWORK5 ;(CWK5) <-- BG check X pos 3658 S000F97 3D A7 01 LMS R7,CWORK1 3659 S000F9A 3E A7 06 SMS R7,CWORK6 ;(CWK6) <-- BG check Y pos 3660 S000F9D 3E A5 07 SMS R5,CWORK7 ;(CWK7) <-- 坂チェックデータ 3661 ; 3662 S000FA0 B3 FROM R3 3663 S000FA1 57 ADD R7 3664 mJSR_X BGUNIT_READ_R_S+1 3664+ S000FA2 94 LINK #4 3664+ S000FA3 FF 0E61' IWT R15, #BGUNIT_READ_R_S+1 3665 S000FA6 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 3666 ; 3667 S000FA7 3D A5 07 LMS R5,CWORK7 ;(R5) <-- 坂チェックデータ 3668 S000FAA 75 AND R5 3669 S000FAB 65 SUB R5 3670 S000FAC 08 42' BNE BG_HDFTCK_R_040 ;坂 cross ? ( no:BG_HDFTCK_R_040 ) 3671 S000FAE 01 NOP 3672 ; 3673 S000FAF 21 WITH R1 ;(R1) <-- Y pos cross size 3674 S000FB0 63 SUB R3 3675 ; 3676 ;-------------- 坂チェック ---------------------------------------------- 3677 BG_HDFTCK_R_020 3678 S000FB1 3E AE 2E SMS R14,REG14 ;(R14) save 3679 ; 3680 S000FB4 B8 FROM R8 ;坂タイプＮｏ．x(8x16) 3681 S000FB5 4D SWAP 3682 S000FB6 23 B3 MOVES R3,R3 3683 S000FB8 0A 03' BPL BG_HDFTCK_R_030 ;頭チェック？ ( yes:BG_HDFTCK_R_030 ) 3684 S000FBA 03 LSR 3685 ; 3686 S000FBB D0 INC R0 ;[ +2 ] 3687 S000FBC D0 INC R0 ; 3688 BG_HDFTCK_R_030 3689 S000FBD FE 0004" IWT R14,#SAKA_DATA+4 3690 S000FC0 1E TO R14 3691 S000FC1 5E ADD R14 3692 S000FC2 3D A0 00 LMS R0,CWORK0 3693 S000FC5 3E 7F AND #0FH 3694 S000FC7 50 ADD R0 3695 S000FC8 50 ADD R0 3696 S000FC9 50 ADD R0 3697 S000FCA 1E TO R14 ;(R14) <-- 坂データアドレス 3698 S000FCB 5E ADD R14 3699 S000FCC 15 TO R5 3700 S000FCD EF GETB 3701 S000FCE DE INC R14 3702 S000FCF 3F EF GETBS 3703 ; 3704 S000FD1 3D AE 2E LMS R14,REG14 ;(R14) load 3705 ; 3706 S000FD4 11 TO R1 ;(R1) <-- 補正値 3707 S000FD5 61 SUB R1 3708 S000FD6 09 06' BEQ BG_HDFTCK_R_032 ;cross ? ( yes:BG_HDFTCK_R_032 ) 3709 S000FD8 B1 FROM R1 3710 ; 3711 S000FD9 3D C3 XOR R3 3712 S000FDB 0B 0E' BMI BG_HDFTCK_R_036 ;cross ? ( no:BG_HDFTCK_R_036 ) 3713 S000FDD 01 NOP 3714 ; 3715 BG_HDFTCK_R_032 3716 S000FDE 23 B3 MOVES R3,R3 3717 S000FE0 0B 03' BMI BG_HDFTCK_R_034 3718 S000FE2 D1 INC R1 3719 ; 3720 S000FE3 E1 DEC R1 3721 S000FE4 E1 DEC R1 3722 BG_HDFTCK_R_034 3723 S000FE5 3E A5 08 SMS R5,CWORK8 ;(CWK8) <-- saka angle 3724 S000FE8 05 37' BRA BG_HDFTCK_R_060 3725 S000FEA D2 INC R2 ;[ BG cross flag set ] 3726 ; 3727 BG_HDFTCK_R_036 3728 S000FEB 2D BD MOVES R13,R13 3729 S000FED 09 34' BEQ BG_HDFTCK_R_070 ;下のＢＧは坂？チェックしたか？ ( yes:BG_HDFTCK_R_070 ) 3730 S000FEF 01 NOP 3731 ; 3732 ;-------------- 下のＢＧは坂ではなかった -------------------------------- 3733 BG_HDFTCK_R_040 3734 S000FF0 2C 11 MOVE R1,R12 ;(R1) <-- Y pos cross size 3735 ; 3736 S000FF2 3D A6 02 LMS R6,CWORK2 ;(R6) <-- up BG unit no. 3737 S000FF5 3D A7 03 LMS R7,CWORK3 ;(R7) <-- up BG unit no. type 3738 S000FF8 3D A8 04 LMS R8,CWORK4 ;(R8) <-- up BG type status data 3739 S000FFB 3D A0 05 LMS R0,CWORK5 3740 S000FFE 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- BG check X pos 3741 S001001 3D A0 06 LMS R0,CWORK6 3742 S001004 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- BG check Y pos 3743 ; 3744 BG_HDFTCK_R_042 3745 S001007 A0 02 IBT R0,#AL 3746 S001009 23 B3 MOVES R3,R3 3747 S00100B 0A 03' BPL BG_HDFTCK_R_050 ;頭チェック？ ( yes:BG_HDFTCK_R_050 ) 3748 S00100D 01 NOP 3749 ; 3750 S00100E A0 03 IBT R0,#MD+AL 3751 BG_HDFTCK_R_050 3752 S001010 77 AND R7 3753 S001011 09 10' BEQ BG_HDFTCK_R_070 ;BG cross ? ( no:BG_HDFTCK_R_070 ) 3754 S001013 01 NOP 3755 ; 3756 S001014 D2 INC R2 ;[ BG cross flag set ] 3757 ; 3758 S001015 23 B3 MOVES R3,R3 3759 S001017 0B 06' BMI BG_HDFTCK_R_052 ;頭チェック？ ( no:BG_HDFTCK_R_052 ) 3760 S001019 21 WITH R1 ;(R1) <-- 補正値 3761 ; 3762 S00101A 3F CF XOR #0FH 3763 S00101C 05 04' BRA BG_HDFTCK_R_060+1 3764 S00101E 2A WITH R10 ;Ｙ座標補正 3765 ; 3766 BG_HDFTCK_R_052 3767 S00101F 4F NOT 3768 S001020 D1 INC R1 3769 ; 3770 ;-------------- ＢＧ当たり ---------------------------------------------- 3771 BG_HDFTCK_R_060 3772 S001021 2A WITH R10 ;Ｙ座標補正 3773 S001022 51 ADD R1 3774 ; 3775 BG_HDFTCK_R_070 3776 mDJMP BG_HDFTCK_R_170 3776+ S001023 FF 10D3' IWT R15, #BG_HDFTCK_R_170 3776+ S001026 01 NOP 3777 ; 3778 ;------------------------------------------------------------------------ 3779 ;- 左右補正 - 3780 ;------------------------------------------------------------------------ 3781 BG_HDFTCK_R_SIDE 3782 S001027 A5 40 IBT R5,#040H ;(R5) <-- 平地の回転角度 3783 ; 3784 S001029 B1 FROM R1 3785 S00102A 95 SEX 3786 S00102B 0A 06' BPL BG_HDFTCK_R_100 ;左右反転チェック？ ( no:BG_HDFTCK_R_100 ) 3787 S00102D 23 WITH R3 3788 ; 3789 S00102E 4F NOT 3790 S00102F D3 INC R3 3791 S001030 F5 00C0 IWT R5,#0C0H ;(R5) <-- 平地の回転角度 3792 BG_HDFTCK_R_100 3793 S001033 3E A5 08 SMS R5,CWORK8 ;(CWK8) <-- saka angle 3794 ; 3795 S001036 3D A0 00 LMS R0,CWORK0 ;(R0) <-- BG check X pos 3796 S001039 11 TO R1 ;(R1) <-- X pos cross size 3797 S00103A 3E 7F AND #0FH 3798 S00103C 21 1C MOVE R12,R1 ;(R12) <-- X pos cross size 3799 ; 3800 S00103E B7 FROM R7 3801 S00103F 1D TO R13 ;(R13) <-- 手前のＢＧは坂？チェックしたか？ 3802 S001040 3E 74 AND #SK 3803 S001042 08 24' BNE BG_HDFTCK_R_120 ;坂 cross ? ( yes:BG_HDFTCK_R_120 ) 3804 S001044 01 NOP 3805 ; 3806 ;-------------- 手前のＢＧは坂？チェック -------------------------------- 3807 S001045 3E A6 02 SMS R6,CWORK2 ;(CWK2) <-- BG unit no. 3808 S001048 3E A7 03 SMS R7,CWORK3 ;(CWK3) <-- BG unit no. type 3809 S00104B 3E A8 04 SMS R8,CWORK4 ;(CWK4) <-- BG type status data 3810 S00104E 3D A0 00 LMS R0,CWORK0 3811 S001051 3E A0 05 SMS R0,CWORK5 ;(CWK5) <-- BG check X pos 3812 S001054 18 TO R8 ;(R8) <-- " 3813 S001055 53 ADD R3 3814 S001056 3D A0 01 LMS R0,CWORK1 ;(R0) <-- BG check Y pos 3815 S001059 3E A0 06 SMS R0,CWORK6 ;(CWK6) <-- " 3816 ; 3817 mJSR_X BGUNIT_READ_R_S+1 3817+ S00105C 94 LINK #4 3817+ S00105D FF 0E61' IWT R15, #BGUNIT_READ_R_S+1 3818 S001060 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 3819 ; 3820 S001061 3E 74 AND #SK 3821 S001063 09 42' BEQ BG_HDFTCK_R_140 ;坂 cross ? ( no:BG_HDFTCK_R_140 ) 3822 S001065 01 NOP 3823 ; 3824 S001066 21 WITH R1 ;(R1) <-- Y pos cross size 3825 S001067 63 SUB R3 3826 ; 3827 ;-------------- 坂チェック ---------------------------------------------- 3828 BG_HDFTCK_R_120 3829 S001068 3E AE 2E SMS R14,REG14 ;(R14) save 3830 ; 3831 S00106B B8 FROM R8 ;坂タイプＮｏ．x(8x16) 3832 S00106C 4D SWAP 3833 S00106D 23 B3 MOVES R3,R3 3834 S00106F 0A 03' BPL BG_HDFTCK_R_130 ;左チェック？ ( yes:BG_HDFTCK_R_130 ) 3835 S001071 03 LSR 3836 ; 3837 S001072 D0 INC R0 ;[ +2 ] 3838 S001073 D0 INC R0 ; 3839 BG_HDFTCK_R_130 3840 S001074 FE 0000" IWT R14,#SAKA_DATA 3841 S001077 1E TO R14 3842 S001078 5E ADD R14 3843 S001079 3D A0 01 LMS R0,CWORK1 3844 S00107C 3E 7F AND #0FH 3845 S00107E 50 ADD R0 3846 S00107F 50 ADD R0 3847 S001080 50 ADD R0 3848 S001081 1E TO R14 ;(R14) <-- 坂データアドレス 3849 S001082 5E ADD R14 3850 S001083 15 TO R5 3851 S001084 EF GETB 3852 S001085 DE INC R14 3853 S001086 3F EF GETBS 3854 ; 3855 S001088 3D AE 2E LMS R14,REG14 ;(R14) load 3856 ; 3857 S00108B 11 TO R1 ;(R1) <-- 補正値 3858 S00108C 61 SUB R1 3859 S00108D 09 06' BEQ BG_HDFTCK_R_132 ;cross ? ( yes:BG_HDFTCK_R_132 ) 3860 S00108F B1 FROM R1 3861 ; 3862 S001090 3D C3 XOR R3 3863 S001092 0B 0E' BMI BG_HDFTCK_R_136 ;cross ? ( no:BG_HDFTCK_R_136 ) 3864 S001094 01 NOP 3865 ; 3866 BG_HDFTCK_R_132 3867 S001095 23 B3 MOVES R3,R3 3868 S001097 0B 03' BMI BG_HDFTCK_R_134 3869 S001099 D1 INC R1 3870 ; 3871 S00109A E1 DEC R1 3872 S00109B E1 DEC R1 3873 BG_HDFTCK_R_134 3874 S00109C 3E A5 08 SMS R5,CWORK8 ;(CWK8) <-- saka angle 3875 S00109F 05 30' BRA BG_HDFTCK_R_160 3876 S0010A1 D2 INC R2 ;[ BG cross flag set ] 3877 ; 3878 BG_HDFTCK_R_136 3879 S0010A2 2D BD MOVES R13,R13 3880 S0010A4 08 2D' BNE BG_HDFTCK_R_170 ;下のＢＧは坂？チェックしたか？ ( yes:BG_HDFTCK_R_170 ) 3881 S0010A6 01 NOP 3882 ; 3883 ;-------------- 下のＢＧは坂ではなかった -------------------------------- 3884 BG_HDFTCK_R_140 3885 S0010A7 2C 11 MOVE R1,R12 ;(R1) <-- Y pos cross size 3886 ; 3887 S0010A9 3D A6 02 LMS R6,CWORK2 ;(R6) <-- up BG unit no. 3888 S0010AC 3D A7 03 LMS R7,CWORK3 ;(R7) <-- up BG unit no. type 3889 S0010AF 3D A8 04 LMS R8,CWORK4 ;(R8) <-- up BG type status data 3890 S0010B2 3D A0 05 LMS R0,CWORK5 3891 S0010B5 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- BG check X pos 3892 S0010B8 3D A0 06 LMS R0,CWORK6 3893 S0010BB 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- BG check Y pos 3894 ; 3895 BG_HDFTCK_R_142 3896 S0010BE B7 FROM R7 3897 S0010BF 3E 72 AND #AL 3898 S0010C1 09 10' BEQ BG_HDFTCK_R_170 ;BG cross ? ( no:BG_HDFTCK_R_170 ) 3899 S0010C3 01 NOP 3900 ; 3901 S0010C4 D2 INC R2 ;[ BG cross flag set ] 3902 ; 3903 S0010C5 23 B3 MOVES R3,R3 3904 S0010C7 0B 06' BMI BG_HDFTCK_R_150 ;左チェック？ ( no:BG_HDFTCK_R_150 ) 3905 S0010C9 21 WITH R1 ;(R1) <-- 補正値 3906 ; 3907 S0010CA 3F CF XOR #0FH 3908 S0010CC 05 04' BRA BG_HDFTCK_R_160+1 3909 S0010CE 29 WITH R9 ;Ｘ座標補正 3910 ; 3911 BG_HDFTCK_R_150 3912 S0010CF 4F NOT 3913 S0010D0 D1 INC R1 3914 ; 3915 ;-------------- ＢＧ当たり ---------------------------------------------- 3916 BG_HDFTCK_R_160 3917 S0010D1 29 WITH R9 ;Ｘ座標補正 3918 S0010D2 51 ADD R1 3919 ; 3920 BG_HDFTCK_R_170 3921 S0010D3 3D A4 08 LMS R4,CWORK8 ;(R4) <-- saka angle 3922 ; 3923 S0010D6 23 B4 MOVES R3,R4 3924 S0010D8 0B 05' BMI BG_HDFTCK_R_190 ;足チェック？ ( yes:BG_HDFTCK_R_190 ) 3925 S0010DA 01 NOP 3926 ; 3927 ;------------------------------------------------------------------------ 3928 ;- 頭用特殊ＢＧ当たりチェック - 3929 ;------------------------------------------------------------------------ 3930 BG_HDFTCK_R_180 3931 mDJMP HED_SP_CK 3931+ S0010DB FF 0000" IWT R15, #HED_SP_CK 3931+ S0010DE 01 NOP 3932 ; 3933 ;------------------------------------------------------------------------ 3934 ;- 足用特殊ＢＧ当たりチェック - 3935 ;------------------------------------------------------------------------ 3936 BG_HDFTCK_R_190 3937 mDJMP FOOT_SP_CK 3937+ S0010DF FF 0000" IWT R15, #FOOT_SP_CK 3937+ S0010E2 01 NOP 3938 ; 3939 ;************************************************************************ 3940 ;* * 3941 ;* 座標計算（重力セット） * 3942 ;* * 3943 ;************************************************************************ 3944 ; 3945 MR_CALC 3946 S0010E3 3D A5 60 LMS R5,CPLJUMP ;(R5) <-- ジャンプフラグ 3947 S0010E6 E5 DEC R5 3948 S0010E7 0A 15' BPL MR_CALC_0010 ;プレイヤージャンプ ？ ( yes:MR_CALC_0010 ) 3949 S0010E9 D5 INC R5 3950 ; 3951 S0010EA 3D A0 57 LMS R0,CPLTYPE 3952 S0010ED 3E 64 SUB #P_MOGURA 3953 S0010EF 08 06' BNE MR_CALC_0000 ;モグラヨッシー？ ( no:MR_CALC_0000 ) 3954 S0010F1 01 NOP 3955 ; 3956 ;-------------- モグラヨッシーは引力無しに ------------------------------ 3957 S0010F2 A9 00 IBT R9,#00H ;(R9) <-- Ｇ 3958 S0010F4 05 0F' BRA MR_CALC_0102 3959 S0010F6 01 NOP 3960 ; 3961 MR_CALC_0000 3962 S0010F7 3D A0 C0 LMS R0,CPMR_BGCF 3963 S0010FA E0 DEC R0 3964 S0010FB 0A 05' BPL MR_CALC_0100 ;ソニックモード？ ( yes:MR_CALC_0100 ) 3965 S0010FD 01 NOP 3966 ; 3967 MR_CALC_0010 3968 mDJMP PL_CALC 3968+ S0010FE FF 0000" IWT R15, #PL_CALC 3968+ S001101 01 NOP 3969 ; 3970 ;------------------------------------------------------------------------ 3971 ;- プレイヤー着地状態 - 3972 ;------------------------------------------------------------------------ 3973 MR_CALC_0100 3974 S001102 F9 0300 IWT R9,#0300H ;(R9) <-- Ｇ 3975 ; 3976 MR_CALC_0102 3977 S001105 A0 00" IBT R0,#BANK LCOS 3978 S001107 3F DF ROMB ;※ＲＯＭアドレス変更（にて復帰） 3979 ; 3980 S001109 3D A6 5A LMS R6,CPLMVSP ;(R6) <-- 移動スピード 3981 S00110C 3D A7 5B LMS R7,CPLANGL ;(R7) <-- 足下角度 3982 S00110F F0 0000" IWT R0,#LCOS 3983 S001112 1E TO R14 3984 S001113 57 ADD R7 3985 S001114 3F EF GETBS 3986 S001116 50 ADD R0 3987 S001117 50 ADD R0 ;[ 100H <-- 040H ] 3988 S001118 3D 9F LMULT 3989 S00111A 24 WITH R4 3990 S00111B C0 HIB 3991 S00111C 9E LOB 3992 S00111D 4D SWAP 3993 S00111E 18 TO R8 ;(R8) <-- Ｘスピード 3994 S00111F C4 OR R4 3995 ; 3996 S001120 F0 0000" IWT R0,#LSIN 3997 S001123 1E TO R14 3998 S001124 57 ADD R7 3999 S001125 3F EF GETBS 4000 S001127 50 ADD R0 4001 S001128 50 ADD R0 ;[ 100H <-- 040H ] 4002 S001129 3D 9F LMULT 4003 S00112B 24 WITH R4 4004 S00112C C0 HIB 4005 S00112D 9E LOB 4006 S00112E 4D SWAP 4007 S00112F 1E TO R14 ;(R14) <-- Ｙスピード 4008 S001130 C4 OR R4 4009 ; 4010 S001131 A0 20 IBT R0,#020H 4011 S001133 17 TO R7 4012 S001134 57 ADD R7 4013 S001135 A0 3F IBT R0,#03FH 4014 S001137 77 AND R7 4015 S001138 08 06' BNE MR_CALC_0110 ;４５度エリア？ ( no:MR_CALC_0110 ) 4016 S00113A 01 NOP 4017 ; 4018 S00113B E6 DEC R6 4019 S00113C 0A 02' BPL MR_CALC_0110 ;移動方向（＋）？ ( yes:MR_CALC_0110 ) 4020 S00113E D6 INC R6 4021 ; 4022 S00113F E7 DEC R7 4023 MR_CALC_0110 4024 S001140 B7 FROM R7 4025 S001141 95 SEX ;[ CMP #80H ] 4026 S001142 0A 03' BPL MR_CALC_0120 4027 S001144 29 WITH R9 4028 ; 4029 S001145 4F NOT 4030 S001146 D9 INC R9 4031 MR_CALC_0120 4032 S001147 A0 40 IBT R0,#040H 4033 S001149 77 AND R7 4034 S00114A 09 02' BEQ MR_CALC_0130 ;上下補正？ ( yes:MR_CALC_0130 ) 4035 S00114C 2E WITH R14 4036 ; 4037 S00114D 28 WITH R8 4038 MR_CALC_0130 4039 S00114E 59 ADD R9 4040 ; 4041 S00114F 3E A8 54 SMS R8,CPLXSPD ;Ｘスピードセット 4042 ; 4043 S001152 3D F0 01B4 LM R0,CONLFFG 4044 S001156 3E 60 SUB #0 4045 S001158 09 04' BEQ MR_CALC_0150 ;リフトに乗ってる？ ( no:MR_CALC_0150 ) 4046 S00115A 01 NOP 4047 ; 4048 S00115B FE 0400 IWT R14,#0400H 4049 MR_CALC_0150 4050 S00115E 3E AE 55 SMS R14,CPLYSPD ;Ｙスピードセット 4051 mDJMP XY_CALC 4051+ S001161 FF 0000" IWT R15, #XY_CALC 4051+ S001164 01 NOP 4052 ; 4053 ; 4054 ; 4055 ; 4056 ; 4057 ;************************************************************************ 4058 ;* * 4059 ;* 汽車 * 4060 ;* * 4061 ;************************************************************************ 4062 ; 4063 TRAIN_MV 4064 mJSR TRAIN_SUB ;汽車基本ルーチン 4064+ S001165 94 LINK #4 4064+ S001166 FF 164C' IWT R15, #TRAIN_SUB 4064+ S001169 01 NOP 4065 ; 4066 S00116A 3D A0 EB LMS R0,CPLFLSH 4067 S00116D A2 50 IBT R2,#050H 4068 S00116F 62 SUB R2 4069 S001170 0B 0B' BMI TRAIN_MV_FFFF ;プレイヤーダメージ？ ( no:TRAIN_MV_FFFF ) 4070 S001172 01 NOP 4071 ; 4072 ;-------------- プレイヤーダメージ！！ ---------------------------------- 4073 S001173 3D A0 C7 LMS R0,CPTR_FLCT 4074 S001176 A2 10 IBT R2,#010H 4075 S001178 52 ADD R2 4076 mDJMP_X TRAIN_MV_2030 4076+ S001179 FF 1598' IWT R15, #TRAIN_MV_2030 4077 S00117C 90 SBK ;[ SMS R0,CPTR_FLCT ] 4078 ; 4079 TRAIN_MV_FFFF 4080 S00117D 3D A1 C0 LMS R1,CPTR_MODE ;(R1) <-- レールモード（倍率） 4081 S001180 E1 DEC R1 4082 S001181 0B 05' BMI TRAIN_MV_0010 ;レールモード？ ( no:TRAIN_MV_0010 ) 4083 S001183 D1 INC R1 4084 ; 4085 TRAIN_MV_0000 4086 mDJMP TRAIN_MV_0500 4086+ S001184 FF 1224' IWT R15, #TRAIN_MV_0500 4086+ S001187 01 NOP 4087 ; 4088 ;------------------------------------------------------------------------ 4089 ;- レール外モード - 4090 ;------------------------------------------------------------------------ 4091 TRAIN_MV_0010 4092 ; 4093 ;-------------- 座標計算 ---------------------------------------- 4094 mJSR PL_CALC ;座標計算 4094+ S001188 94 LINK #4 4094+ S001189 FF 0000" IWT R15, #PL_CALC 4094+ S00118C 01 NOP 4095 ; 4096 ;-------------- ＢＧチェック ------------------------------------ 4097 S00118D FE 0000" IWT R14,#PLBGCK_POINT_TR ;(R14) <-- ＢＧチェックポイントデータポインター 4098 mJSR PL_BGCK_2 ;ＢＧチェック 4098+ S001190 94 LINK #4 4098+ S001191 FF 0000" IWT R15, #PL_BGCK_2 4098+ S001194 01 NOP 4099 ; 4100 S001195 3D A1 C0 LMS R1,CPTR_MODE ;(R1) <-- レールモード（倍率） 4101 S001198 E1 DEC R1 4102 S001199 0A E9' BPL TRAIN_MV_0000 ;レールモードへ？ ( yes:TRAIN_MV_0000 ) 4103 S00119B D1 INC R1 4104 ; 4105 S00119C F0 0100 IWT R0,#0100H 4106 S00119F 3E A0 C1 SMS R0,CPTR_ZOOM ;拡大率セット 4107 ; 4108 ;-------------- Ｇｏｔｏレールモード中心ＢＧチェック ---- 4109 S0011A2 3D A0 60 LMS R0,CPLJUMP 4110 S0011A5 E0 DEC R0 4111 S0011A6 0A 51' BPL TRAIN_MV_0020 ;ジャンプ中？ ( yes:TRAIN_MV_0020 ) 4112 S0011A8 01 NOP 4113 ; 4114 S0011A9 3D A0 46 LMS R0,CPLXPSL 4115 S0011AC 18 TO R8 ;(R8) <-- プレイヤーＸ座標 4116 S0011AD 3E 58 ADD #08H 4117 S0011AF 3D A0 48 LMS R0,CPLYPSL 4118 S0011B2 A7 18 IBT R7,#018H 4119 S0011B4 57 ADD R7 4120 mJSR_X BGUNIT_READ_S+1 4120+ S0011B5 94 LINK #4 4120+ S0011B6 FF 0001" IWT R15, #BGUNIT_READ_S+1 4121 S0011B9 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 4122 ; 4123 S0011BA F0 F800 IWT R0,#1111100000000000B 4124 S0011BD 77 AND R7 4125 S0011BE F5 4800 IWT R5,#SN 4126 S0011C1 65 SUB R5 4127 S0011C2 08 35' BNE TRAIN_MV_0020 ;線路？ ( no:TRAIN_MV_0020 ) 4128 S0011C4 01 NOP 4129 ; 4130 S0011C5 B6 FROM R6 4131 S0011C6 C0 HIB 4132 S0011C7 A1 1E IBT R1,#UT1E00/100H 4133 S0011C9 61 SUB R1 4134 S0011CA 50 ADD R0 ;x2 4135 S0011CB FE 0000" IWT R14,#GO_RALE_KEY 4136 S0011CE 1E TO R14 4137 S0011CF 5E ADD R14 4138 S0011D0 EF GETB 4139 S0011D1 3D F1 0071 LM R1,CMKEYC1 4140 S0011D5 71 AND R1 4141 S0011D6 09 21' BEQ TRAIN_MV_0020 ;ＧｏｔｏレールモードＯＫ？ ( no:TRAIN_MV_0020 ) 4142 S0011D8 DE INC R14 4143 ; 4144 ;-------------- Ｇｏｔｏレールモード -------------------- 4145 S0011D9 A0 5D IBT R0,#05DH 4146 S0011DB 3E A0 3D SMS R0,CMSOUND3 ;[♪] 4147 ; 4148 S0011DE EF GETB ;目標回転角セット 4149 S0011DF 3E A0 5B SMS R0,CPLANGL 4150 S0011E2 4D SWAP 4151 S0011E3 3E A0 C5 SMS R0,CPTR_MANG 4152 ; 4153 S0011E6 60 SUB R0 4154 S0011E7 3E A0 C4 SMS R0,CPTR_MUKI 4155 S0011EA 3E A0 C6 SMS R0,CPTR_BACK 4156 S0011ED 3E A0 5A SMS R0,CPLMVSP 4157 S0011F0 F1 0100 IWT R1,#0100H ;(R1) <-- レールモード”ＯＮ” 4158 S0011F3 3E A1 C0 SMS R1,CPTR_MODE 4159 S0011F6 05 2C' BRA TRAIN_MV_0500 4160 S0011F8 01 NOP 4161 ; 4162 TRAIN_MV_0020 4163 ; 4164 ;---------------------------------------------------------------- 4165 ;- コントローラー入力 - 4166 ;---------------------------------------------------------------- 4167 S0011F9 3D F0 0071 LM R0,CMKEYC1 ;(R0) <-- コントローラー情報（連続） 4168 S0011FD 16 TO R6 ;[ 移動キー入力無しならＭＡＸスピード０ヘ ] 4169 S0011FE 3E 73 AND #00000011B 4170 S001200 09 17' BEQ TRAIN_MV_0150 ;移動キー入力？ ( no:TRAIN_MV_0150 ) 4171 S001202 01 NOP 4172 ; 4173 S001203 A5 00 IBT R5,#00 ;(R5) <-- 回転角度 4174 S001205 F6 0180 IWT R6,#0180H ;(R6) <-- ＭＡＸスピード 4175 S001208 3E 72 AND #00000010B 4176 S00120A 3E A0 62 SMS R0,CPLCMKI ;プレイヤー向きセット 4177 S00120D 09 07' BEQ TRAIN_MV_0100 4178 S00120F 01 NOP 4179 ; 4180 S001210 F5 8000 IWT R5,#80H*100H ;(R5) <-- 回転角度 4181 S001213 F6 FE80 IWT R6,#-0180H ;(R6) <-- ＭＡＸスピード 4182 TRAIN_MV_0100 4183 S001216 3E A5 BF SMS R5,CPTR_ANGL ;回転角度セット 4184 TRAIN_MV_0150 4185 S001219 A5 10 IBT R5,#0010H ;(R5) <-- 加速値 4186 mJSR X_SP_CALC ;Ｘスピード加減速 4186+ S00121B 94 LINK #4 4186+ S00121C FF 039F' IWT R15, #X_SP_CALC 4186+ S00121F 01 NOP 4187 ; 4188 mDJMP TRAIN_MV_2000 4188+ S001220 FF 14B1' IWT R15, #TRAIN_MV_2000 4188+ S001223 01 NOP 4189 ; 4190 ;------------------------------------------------------------------------ 4191 ;- レールモード - 4192 ;- in : (R1) レールモード（倍率） - 4193 ;------------------------------------------------------------------------ 4194 TRAIN_MV_0500 4195 ; 4196 ;------------------------------------------------------------------------ 4197 ;- 座標計算 - 4198 ;------------------------------------------------------------------------ 4199 mJSR RALE_XY_CALC ;座標計算 4199+ S001224 94 LINK #4 4199+ S001225 FF 15B5' IWT R15, #RALE_XY_CALC 4199+ S001228 01 NOP 4200 ; 4201 ;------------------------------------------------------------------------ 4202 ;- レールチェック用ＢＧチェック - 4203 ;------------------------------------------------------------------------ 4204 S001229 3D A0 46 LMS R0,CPLXPSL 4205 S00122C 18 TO R8 ;(R8) <-- ＢＧチェックＸ座標 4206 S00122D 3E 58 ADD #08H 4207 S00122F 28 19 MOVE R9,R8 ;(R9) <-- ” 4208 S001231 3D A0 48 LMS R0,CPLYPSL 4209 S001234 AA 18 IBT R10,#018H 4210 S001236 5A ADD R10 ;(R0) <-- ＢＧチェックＹ座標 4211 S001237 20 1A MOVE R10,R0 ;(R10) <-- ” 4212 mJSR_X BGUNIT_READ_S+1 4212+ S001239 94 LINK #4 4212+ S00123A FF 0001" IWT R15, #BGUNIT_READ_S+1 4213 S00123D 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 4214 ; 4215 S00123E F0 F800 IWT R0,#1111100000000000B 4216 S001241 77 AND R7 4217 S001242 F5 4800 IWT R5,#SN 4218 S001245 17 TO R7 ;(R7) <-- 線路かどうか？ 4219 S001246 65 SUB R5 4220 ; 4221 S001247 B6 FROM R6 4222 S001248 C0 HIB 4223 S001249 A5 1E IBT R5,#UT1E00/100H 4224 S00124B 65 SUB R5 4225 ;;;; ADD R0 ;x(2*16) 4226 ;;;; ADD R0 ; 4227 S00124C 3E 88 MULT #8 ; 4228 S00124E F6 0000" IWT R6,#RALE_BIT_DATA 4229 S001251 16 TO R6 ;(R6) <-- 線路ビットデータポインター 4230 S001252 56 ADD R6 4231 ; 4232 ;------------------------------------------------------------------------ 4233 ;- レールモード - 4234 ;------------------------------------------------------------------------ 4235 S001253 A0 70 IBT R0,#070H 4236 S001255 61 SUB R1 4237 S001256 0C 05' BCC TRAIN_MV_0510 ;レールモード初期セット中？ ( yes:TRAIN_MV_0500 ) 4238 S001258 01 NOP 4239 ; 4240 mDJMP TRAIN_MV_0800 4240+ S001259 FF 1309' IWT R15, #TRAIN_MV_0800 4240+ S00125C 01 NOP 4241 ; 4242 ;------------------------------------------------------------------------ 4243 ;- レールモード初期セット - 4244 ;------------------------------------------------------------------------ 4245 TRAIN_MV_0510 4246 S00125D 3E A1 C1 SMS R1,CPTR_ZOOM ;拡大率セット 4247 ; 4248 S001260 A0 FE IBT R0,#-02H ;(R0) <-- レールモード（倍率）加算値 4249 S001262 3D A2 C4 LMS R2,CPTR_MUKI ;(R2) <-- Ｇｏｔｏレールモードフラグ 4250 S001265 E2 DEC R2 4251 S001266 0B 03' BMI TRAIN_MV_0520 ;Ｇｏｔｏレールモード？ ( yes:TRAIN_MV_0520 ) 4252 S001268 D2 INC R2 4253 ; 4254 S001269 A0 02 IBT R0,#02H ;(R0) <-- レールモード（倍率）加算値 4255 TRAIN_MV_0520 4256 S00126B 51 ADD R1 4257 S00126C F3 0100 IWT R3,#0100H 4258 S00126F 63 SUB R3 4259 S001270 0C 02' BCC TRAIN_MV_0530 ;レールモード解除？ ( no:TRAIN_MV_0530 ) 4260 S001272 53 ADD R3 4261 ; 4262 S001273 60 SUB R0 ;[ IBT R0,#0 ] 4263 TRAIN_MV_0530 4264 S001274 3E A0 C0 SMS R0,CPTR_MODE ;レールモード（倍率）セット 4265 S001277 A3 72 IBT R3,#072H 4266 S001279 63 SUB R3 4267 S00127A 08 33' BNE TRAIN_MV_0540 ;Ｇｏｔｏレールモード”キラリン”セット？ ( no:TRAIN_MV_0540 ) 4268 S00127C 01 NOP 4269 ; 4270 ;-------------- Ｇｏｔｏレールモード”キラリン”効果セット -------------- 4271 S00127D F5 0000" IWT R5,#KIRA0 ;(A) <-- 効果Ｎｏ． 4272 mJSR M_EXINSR ;効果エリア確保 4272+ S001280 94 LINK #4 4272+ S001281 FF 0000" IWT R15, #M_EXINSR 4272+ S001284 01 NOP 4273 ; 4274 S001285 A0 36 IBT R0,#036H 4275 S001287 3E A0 3D SMS R0,CMSOUND3 ;[♪] 4276 ; 4277 S00128A 3D A3 46 LMS R3,CPLXPSL 4278 mSTW R3,CEXXPSL,R1 ;Ｘ座標セット 4278+ S00128D F0 10A2 IWT R0,#CEXXPSL 4278+ S001290 51 ADD R1 4278+ S001291 B3 FROM R3 4278+ S001292 30 STW (R0) 4279 S001293 3D A0 48 LMS R0,CPLYPSL 4280 S001296 13 TO R3 4281 S001297 3E 5F ADD #0FH 4282 mSTW R3,CEXYPSL,R1 ;Ｙ座標セット 4282+ S001299 F0 1142 IWT R0,#CEXYPSL 4282+ S00129C 51 ADD R1 4282+ S00129D B3 FROM R3 4282+ S00129E 30 STW (R0) 4283 S00129F A3 06 IBT R3,#6 4284 mSTW R3,CEXCHPT,R1 ;パターンＮｏ．初期セット 4284+ S0012A1 F0 13C2 IWT R0,#CEXCHPT 4284+ S0012A4 51 ADD R1 4284+ S0012A5 B3 FROM R3 4284+ S0012A6 30 STW (R0) 4285 S0012A7 A3 03 IBT R3,#3 4286 mSTW R3,CEXTIM0,R1 ;タイマー初期セット 4286+ S0012A9 F0 1782 IWT R0,#CEXTIM0 4286+ S0012AC 51 ADD R1 4286+ S0012AD B3 FROM R3 4286+ S0012AE 30 STW (R0) 4287 ; 4288 TRAIN_MV_0540 4289 S0012AF E2 DEC R2 4290 S0012B0 0B 17' BMI TRAIN_MV_0600 ;Ｇｏｔｏレールモード？ ( yes:TRAIN_MV_0600 ) 4291 S0012B2 D2 INC R2 4292 ; 4293 ;-------------- Ｇｏｔｏレール外モード処理 ------------------------------ 4294 ; 4295 ;-------------- 足補正チェック ---------------------------------- 4296 S0012B3 29 18 MOVE R8,R9 ;(R8) <-- ＢＧチェックＸ座標 4297 S0012B5 BA FROM R10 4298 S0012B6 3E 57 ADD #01FH-18H ;(R0) <-- ＢＧチェックＹ座標 4299 mJSR_X BGUNIT_READ_S+1 4299+ S0012B8 94 LINK #4 4299+ S0012B9 FF 0001" IWT R15, #BGUNIT_READ_S+1 4300 S0012BC 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 4301 ; 4302 S0012BD 3E 73 AND #MD+AL 4303 S0012BF 09 44' BEQ TRAIN_MV_0650 ;足ＢＧ当たり？ ( no:TRAIN_MV_0650 ) 4304 S0012C1 01 NOP 4305 ; 4306 S0012C2 3D A0 48 LMS R0,CPLYPSL 4307 S0012C5 E0 DEC R0 4308 S0012C6 05 3D' BRA TRAIN_MV_0650 ;回転角計算へ 4309 S0012C8 90 SBK ;[ SMS R0,CPLYPSL ] 4310 ; 4311 ;-------------- Ｇｏｔｏレールモード処理 -------------------------------- 4312 TRAIN_MV_0600 4313 mJSR RALE_ON_CK ;レールに乗ってるかチェック 4313+ S0012C9 94 LINK #4 4313+ S0012CA FF 159B' IWT R15, #RALE_ON_CK 4313+ S0012CD 01 NOP 4314 S0012CE 08 35' BNE TRAIN_MV_0650 ;レールに乗ってる？ ( yes:TRAIN_MV_0650 ) 4315 S0012D0 01 NOP 4316 ; 4317 ;-------------- レールに乗せる補正 ------------------------------ 4318 S0012D1 3D A0 C5 LMS R0,CPTR_MANG ;(R0) <-- 目標回転角 4319 S0012D4 C0 HIB 4320 S0012D5 03 LSR 4321 S0012D6 03 LSR 4322 S0012D7 03 LSR 4323 S0012D8 03 LSR 4324 S0012D9 FE 0000" IWT R14,#GO_RALE_HSDT 4325 S0012DC 1E TO R14 4326 S0012DD 5E ADD R14 4327 S0012DE 13 TO R3 ;(R3) <-- 補正目標Ｘ 4328 S0012DF EF GETB 4329 ; 4330 S0012E0 B9 FROM R9 4331 S0012E1 3E 7F AND #0FH 4332 S0012E3 63 SUB R3 ;(N) set 4333 S0012E4 A0 01 IBT R0,#01H 4334 S0012E6 0B 03' BMI TRAIN_MV_0610 4335 S0012E8 DE INC R14 4336 ; 4337 S0012E9 A0 FF IBT R0,#0FFH 4338 TRAIN_MV_0610 4339 S0012EB 59 ADD R9 4340 S0012EC 3E 68 SUB #08H 4341 S0012EE 3E A0 46 SMS R0,CPLXPSL ;プレイヤーＸ座標補正 4342 ; 4343 S0012F1 13 TO R3 ;(R3) <-- 補正目標Ｙ 4344 S0012F2 EF GETB 4345 S0012F3 BA FROM R10 4346 S0012F4 3E 7F AND #0FH 4347 S0012F6 63 SUB R3 ;(N) set 4348 S0012F7 A0 01 IBT R0,#01H 4349 S0012F9 0B 03' BMI TRAIN_MV_0620 4350 S0012FB 01 NOP 4351 ; 4352 S0012FC A0 FF IBT R0,#0FFH 4353 TRAIN_MV_0620 4354 S0012FE 5A ADD R10 4355 S0012FF A3 18 IBT R3,#018H 4356 S001301 63 SUB R3 4357 S001302 3E A0 48 SMS R0,CPLYPSL ;プレイヤーＹ座標補正 4358 ; 4359 TRAIN_MV_0650 4360 mDJMP TRAIN_MV_1000 ;回転角計算へ 4360+ S001305 FF 1471' IWT R15, #TRAIN_MV_1000 4360+ S001308 01 NOP 4361 ; 4362 ;------------------------------------------------------------------------ 4363 ;- レールモード処理 - 4364 ;- レール角度 - 4365 ;- 3 2 1 - 4366 ;- 4 + 0 - 4367 ;- 5 6 7 - 4368 ;------------------------------------------------------------------------ 4369 TRAIN_MV_0800 4370 S001309 F0 0100 IWT R0,#0100H 4371 S00130C 3E A0 C1 SMS R0,CPTR_ZOOM ;拡大率セット 4372 ; 4373 ;-------------- レールの補正チェック ------------------------------------ 4374 mJSR RALE_ON_CK ;レールに乗ってるかチェック 4374+ S00130F 94 LINK #4 4374+ S001310 FF 159B' IWT R15, #RALE_ON_CK 4374+ S001313 01 NOP 4375 S001314 09 05' BEQ TRAIN_MV_0804 ;レールに乗ってる？ ( no:TRAIN_MV_0804 ) 4376 S001316 01 NOP 4377 ; 4378 mDJMP TRAIN_MV_0900 4378+ S001317 FF 13F4' IWT R15, #TRAIN_MV_0900 4378+ S00131A 01 NOP 4379 ; 4380 TRAIN_MV_0804 4381 S00131B 27 B7 MOVES R7,R7 4382 S00131D 08 76' BNE TRAIN_MV_0852 ;レールモード解除？ ( yes:TRAIN_MV_0852 ) 4383 S00131F 01 NOP 4384 ; 4385 ;-------------- レールへの補正 ---------------------------------- 4386 S001320 29 11 MOVE R1,R9 ;(R9) save 4387 S001322 3E AA 2A SMS R10,REG10 ;(R10) save 4388 ; 4389 S001325 F2 4000 IWT R2,#4000H ;(R2) <-- 補正ＯＫチェックフラグ 4390 ; 4391 S001328 3D A0 C5 LMS R0,CPTR_MANG 4392 S00132B C0 HIB 4393 S00132C 03 LSR 4394 S00132D 03 LSR 4395 S00132E 03 LSR 4396 S00132F 03 LSR 4397 S001330 20 13 MOVE R3,R0 ;(R3) <-- 現在の移動角度／２０００Ｈ×２ 4398 ; 4399 S001332 3E 54 ADD #(4000H/2000H)*2 4400 TRAIN_MV_0810 4401 S001334 3E 7E AND #07H*2 4402 S001336 FE 0000" IWT R14,#RALE_HS_ANAD 4403 S001339 1E TO R14 4404 S00133A 5E ADD R14 4405 S00133B 14 TO R4 ;(R4) <-- Ｘ補正加算値 4406 S00133C 3F EF GETBS 4407 S00133E DE INC R14 4408 S00133F 18 TO R8 ;(R8) <-- Ｙ補正加算値 4409 S001340 3F EF GETBS 4410 ; 4411 S001342 29 WITH R9 ;(R9) <-- ＢＧチェックＸ座標ビット位置 4412 S001343 3E 7F AND #0FH 4413 S001345 2A WITH R10 ;(R10) <-- ＢＧチェックＹ座標ビット位置 4414 S001346 3E 7F AND #0FH 4415 ; 4416 S001348 AC 04 IBT R12,#4 ;[ ４ドットまで補正 ] 4417 S00134A 2F 1D MOVE R13,R15 4418 TRAIN_MV_0820 4419 S00134C B9 FROM R9 4420 S00134D 54 ADD R4 4421 S00134E A5 10 IBT R5,#010H ;(R5) <-- ビット位置オーバーチェックデータ 4422 S001350 65 SUB R5 4423 S001351 0D 15' BCS TRAIN_MV_0830 ;ビット位置オーバー？ ( yes:TRAIN_MV_0830 ) 4424 S001353 55 ADD R5 4425 ; 4426 S001354 20 19 MOVE R9,R0 4427 S001356 BA FROM R10 4428 S001357 58 ADD R8 4429 S001358 65 SUB R5 4430 S001359 0D 0D' BCS TRAIN_MV_0830 ;ビット位置オーバー？ ( yes:TRAIN_MV_0830 ) 4431 S00135B 55 ADD R5 4432 ; 4433 S00135C 20 1A MOVE R10,R0 4434 mJSR RALE_ON_CK ;レールに乗ってるかチェック 4434+ S00135E 94 LINK #4 4434+ S00135F FF 159B' IWT R15, #RALE_ON_CK 4434+ S001362 01 NOP 4435 S001363 08 04' BNE TRAIN_MV_0840 ;レールに乗ってる？ ( yes:TRAIN_MV_0840 ) 4436 S001365 01 NOP 4437 ; 4438 S001366 3C LOOP 4439 S001367 01 NOP 4440 ; 4441 TRAIN_MV_0830 4442 S001368 D2 INC R2 ;補正不能！！ 4443 ; 4444 TRAIN_MV_0840 4445 S001369 22 WITH R2 ;[ ASL R2 ] 4446 S00136A 52 ADD R2 4447 S00136B 0D 12' BCS TRAIN_MV_0850 ;両サイドチェック終了？ ( yes:TRAIN_MV_0850 ) 4448 S00136D 01 NOP 4449 ; 4450 S00136E 3E A9 00 SMS R9,CWORK0 ;補正Ｘ位置保存 4451 S001371 3E AA 01 SMS R10,CWORK1 ; ”Ｙ ” 4452 ; 4453 S001374 B3 FROM R3 4454 S001375 3E 5C ADD #(0C000H/2000H)*2 4455 TRAIN_MV_0848 4456 S001377 21 19 MOVE R9,R1 ;(R9) load 4457 S001379 3D AA 2A LMS R10,REG10 ;(R10) load 4458 S00137C 05 B6' BRA TRAIN_MV_0810 4459 S00137E 01 NOP 4460 ; 4461 TRAIN_MV_0850 4462 S00137F 0B 5A' BMI TRAIN_MV_0880 ;その場ＳＴＯＰ用補正？ ( yes:TRAIN_MV_0880 ) 4463 S001381 01 NOP 4464 ; 4465 S001382 20 B2 MOVES R0,R2 4466 S001384 09 06' BEQ TRAIN_MV_0851 ;その場ＳＴＯＰ？ ( yes:TRAIN_MV_0851 ) 4467 S001386 03 LSR 4468 ; 4469 S001387 3E 63 SUB #0011B 4470 S001389 08 35' BNE TRAIN_MV_0860 ;その場ＳＴＯＰ？ ( no:TRAIN_MV_0860 ) 4471 S00138B D0 INC R0 ;[ (Z) <-- 1:0010B 0:0001B ] 4472 ; 4473 TRAIN_MV_0851 4474 S00138C F2 C000 IWT R2,#0C000H 4475 S00138F B3 FROM R3 4476 S001390 3F C8 XOR #08H 4477 S001392 05 E3' BRA TRAIN_MV_0848 4478 S001394 01 NOP 4479 ; 4480 ;-------------- レールモード解除へ ------------------------------ 4481 TRAIN_MV_0852 4482 S001395 A0 5D IBT R0,#05DH 4483 S001397 3E A0 3D SMS R0,CMSOUND3 ;[♪] 4484 ; 4485 S00139A A0 72 IBT R0,#070H+2 ;レールモード解除”ＯＮ” 4486 S00139C 3E A0 C0 SMS R0,CPTR_MODE 4487 S00139F A0 02 IBT R0,#02H 4488 S0013A1 3E A0 C4 SMS R0,CPTR_MUKI 4489 S0013A4 3D A0 62 LMS R0,CPLCMKI 4490 S0013A7 E0 DEC R0 4491 S0013A8 0B 04' BMI TRAIN_MV_0854 4492 S0013AA 60 SUB R0 ;[ IBT R0,#0 ] 4493 ; 4494 S0013AB F0 8000 IWT R0,#80H*100H 4495 TRAIN_MV_0854 4496 S0013AE 3E A0 C5 SMS R0,CPTR_MANG ;目標回転角度セット 4497 S0013B1 C0 HIB 4498 S0013B2 3E A0 5B SMS R0,CPLANGL 4499 S0013B5 60 SUB R0 4500 S0013B6 3E A0 5A SMS R0,CPLMVSP 4501 S0013B9 3E A0 C6 SMS R0,CPTR_BACK 4502 mDJMP TRAIN_MV_1000 4502+ S0013BC FF 1471' IWT R15, #TRAIN_MV_1000 4502+ S0013BF 01 NOP 4503 ; 4504 ;-------------- 移動方向切り替え補正 -------------------- 4505 TRAIN_MV_0860 4506 S0013C0 A0 FE IBT R0,#-01H*2 4507 S0013C2 09 09' BEQ TRAIN_MV_0870 ;どっちのサイド？ 4508 S0013C4 01 NOP 4509 ; 4510 S0013C5 A0 02 IBT R0,#01H*2 4511 S0013C7 3D A9 00 LMS R9,CWORK0 ;補正Ｘ位置保存 4512 S0013CA 3D AA 01 LMS R10,CWORK1 ; ”Ｙ ” 4513 TRAIN_MV_0870 4514 S0013CD 53 ADD R3 4515 S0013CE 3E 7E AND #07H*2 4516 S0013D0 50 ADD R0 4517 S0013D1 50 ADD R0 4518 S0013D2 50 ADD R0 4519 S0013D3 50 ADD R0 4520 S0013D4 3E A0 5B SMS R0,CPLANGL 4521 S0013D7 4D SWAP 4522 S0013D8 3E A0 C5 SMS R0,CPTR_MANG ;目標回転角度セット 4523 4524 TRAIN_MV_0880 4525 S0013DB B1 FROM R1 4526 S0013DC 3F 7F BIC #0FH 4527 S0013DE C9 OR R9 4528 S0013DF 20 19 MOVE R9,R0 ;(R9) <-- ＢＧチェックＸ座標補正 4529 S0013E1 3E 68 SUB #08H 4530 S0013E3 3E A0 46 SMS R0,CPLXPSL ;プレイヤーＸ座標補正 4531 S0013E6 3D A0 2A LMS R0,REG10 4532 S0013E9 3F 7F BIC #0FH 4533 S0013EB CA OR R10 4534 S0013EC 20 1A MOVE R10,R0 ;(R10) <-- ＢＧチェックＹ座標補正 4535 S0013EE A3 18 IBT R3,#018H 4536 S0013F0 63 SUB R3 4537 S0013F1 3E A0 48 SMS R0,CPLYPSL ;プレイヤーＹ座標補正 4538 ; 4539 ;-------------- 移動方向切り替えキー入力チェック ------------------------ 4540 TRAIN_MV_0900 4541 S0013F4 3D A1 C5 LMS R1,CPTR_MANG ;(R1) <-- 現在の移動角度 4542 S0013F7 3D F0 0071 LM R0,CMKEYC1 4543 S0013FB 3E 7F AND #00001111B 4544 S0013FD 09 09' BEQ TRAIN_MV_0910 ;移動方向切り替えキー入力？ ( no:TRAIN_MV_0910 ) 4545 S0013FF 01 NOP 4546 ; 4547 S001400 FE FFFF" IWT R14,#TR_KEY_ANGL-1 4548 S001403 1E TO R14 4549 S001404 5E ADD R14 4550 S001405 EF GETB 4551 S001406 11 TO R1 ;(R1) <-- 切り替え移動角度 4552 S001407 4D SWAP 4553 TRAIN_MV_0910 4554 S001408 B1 FROM R1 4555 S001409 C0 HIB 4556 S00140A 03 LSR 4557 S00140B 03 LSR 4558 S00140C 03 LSR 4559 S00140D 03 LSR 4560 S00140E 3E 7E AND #07H*2 4561 S001410 FE 0000" IWT R14,#RALE_HS_ANAD 4562 S001413 1E TO R14 4563 S001414 5E ADD R14 4564 ; 4565 S001415 29 12 MOVE R2,R9 ;(R9) save 4566 S001417 2A 13 MOVE R3,R10 ;(R10) save 4567 ; 4568 S001419 3F EF GETBS ;(R0) <-- Ｘ加算値 4569 S00141B 50 ADD R0 ;x2 4570 S00141C DE INC R14 4571 S00141D 19 TO R9 4572 S00141E 59 ADD R9 4573 S00141F 29 18 MOVE R8,R9 ;(R9) <-- ＢＧチェックＸ座標 4574 S001421 3F EF GETBS 4575 S001423 50 ADD R0 ;x2 4576 S001424 1A TO R10 4577 S001425 5A ADD R10 4578 S001426 2A 10 MOVE R0,R10 ;(R0) <-- ＢＧチェックＹ座標 4579 mJSR_X BGUNIT_READ_S+1 4579+ S001428 94 LINK #4 4579+ S001429 FF 0001" IWT R15, #BGUNIT_READ_S+1 4580 S00142C 3D HEX 3D ;[ LMS R6,CBG2OF_FG ] 4581 ; 4582 S00142D F0 F800 IWT R0,#1111100000000000B 4583 S001430 77 AND R7 4584 S001431 F5 4800 IWT R5,#SN 4585 S001434 17 TO R7 ;(R7) <-- 線路かどうか？ 4586 S001435 65 SUB R5 4587 ; 4588 S001436 B6 FROM R6 4589 S001437 C0 HIB 4590 S001438 A5 1E IBT R5,#UT1E00/100H 4591 S00143A 65 SUB R5 4592 ;;;; ADD R0 ;x(2*16) 4593 ;;;; ADD R0 ; 4594 S00143B 3E 88 MULT #8 ; 4595 S00143D F6 0000" IWT R6,#RALE_BIT_DATA 4596 S001440 16 TO R6 ;(R6) <-- 線路ビットデータポインター 4597 S001441 56 ADD R6 4598 ; 4599 mJSR RALE_ON_CK ;レールに乗ってるかチェック 4599+ S001442 94 LINK #4 4599+ S001443 FF 159B' IWT R15, #RALE_ON_CK 4599+ S001446 01 NOP 4600 S001447 09 09' BEQ TRAIN_MV_0920 ;レールに乗ってる？ ( no:TRAIN_MV_0920 ) 4601 S001449 01 NOP 4602 ; 4603 S00144A 3E A1 C5 SMS R1,CPTR_MANG ;目標回転角度セット 4604 S00144D B1 FROM R1 4605 S00144E C0 HIB 4606 S00144F 3E A0 5B SMS R0,CPLANGL 4607 ; 4608 ;------------------------------------------------------------------------ 4609 ;- スピード計算 - 4610 ;------------------------------------------------------------------------ 4611 TRAIN_MV_0920 4612 ;;;; IWT R6,#080H ;(R6) <-- バックＭＡＸスピード 4613 ;;;; IWT R6,#0100H ;(R6) <-- バックＭＡＸスピード 4614 ;;;; LMS R0,CPTR_BACK 4615 ;;;; DEC R0 4616 ;;;; BPL TRAIN_MV_0930 ;バック？ ( yes:TRAIN_MV_0930 ) 4617 ;;;; NOP 4618 ;;;;; 4619 S001452 F6 0100 IWT R6,#0100H ;(R6) <-- ノーマルＭＡＸスピード 4620 S001455 3D A0 44 LMS R0,CP_KEY_BERO 4621 S001458 3D A2 42 LMS R2,CP_KEY_JUMP 4622 S00145B C2 OR R2 4623 S00145C 3D A2 43 LMS R2,CP_KEY_MNAG 4624 S00145F C2 OR R2 4625 S001460 3D A2 38 LMS R2,CMKEYC1L 4626 S001463 72 AND R2 4627 S001464 09 04' BEQ TRAIN_MV_0930 ;（Ｂ）加速？ ( no:TRAIN_MV_0930 ) 4628 S001466 01 NOP 4629 ; 4630 S001467 F6 0180 IWT R6,#0180H ;(R6) <-- （Ｂ）加速ＭＡＸスピード 4631 TRAIN_MV_0930 4632 S00146A A5 10 IBT R5,#0010H ;(R5) <-- 加速値 4633 mJSR X_SP_CALC ;Ｘスピード加減速 4633+ S00146C 94 LINK #4 4633+ S00146D FF 039F' IWT R15, #X_SP_CALC 4633+ S001470 01 NOP 4634 ; 4635 ;------------------------------------------------------------------------ 4636 ;- 回転角計算 - 4637 ;------------------------------------------------------------------------ 4638 TRAIN_MV_1000 4639 S001471 3D A0 BF LMS R0,CPTR_ANGL ;(R0) <-- 現在の回転角度 4640 S001474 3D AA C5 LMS R10,CPTR_MANG ;(R10) <-- 目標回転角度 4641 S001477 11 TO R1 4642 S001478 6A SUB R10 4643 S001479 0A 03' BPL TRAIN_MV_1010 4644 S00147B 21 WITH R1 4645 ; 4646 S00147C 4F NOT 4647 S00147D D1 INC R1 4648 TRAIN_MV_1010 4649 S00147E 3D A4 C6 LMS R4,CPTR_BACK ;[ * SBK ] (R4) <-- 前回バック？フラグ 4650 ; 4651 S001481 F0 4000 IWT R0,#040H*100H 4652 S001484 61 SUB R1 4653 S001485 0C 08' BCC TRAIN_MV_1020 ;反転角度へ？ ( yes:TRAIN_MV_1020 ) 4654 S001487 01 NOP 4655 ; 4656 S001488 08 0D' BNE TRAIN_MV_1030 ;９０度差？ ( no:TRAIN_MV_1030 ) 4657 S00148A 60 SUB R0 4658 ; 4659 S00148B E4 DEC R4 4660 S00148C 0B 09' BMI TRAIN_MV_1030 ;前回バック？ ( no:TRAIN_MV_1030 ) 4661 S00148E 60 SUB R0 ;[ IBT R0,#0 ] 前進！！ 4662 ; 4663 TRAIN_MV_1020 4664 S00148F F0 8000 IWT R0,#80H*100H 4665 S001492 1A TO R10 ;(R10) <-- 反転目標回転角度 4666 S001493 3D CA XOR R10 4667 S001495 A0 01 IBT R0,#01H ;バック 4668 TRAIN_MV_1030 4669 S001497 90 SBK ;[ SMS R0,CPTR_BACK ] 4670 ; 4671 S001498 3D A0 5A LMS R0,CPLMVSP 4672 S00149B E0 DEC R0 4673 S00149C 0A 03' BPL TRAIN_MV_1040 4674 S00149E D0 INC R0 4675 ; 4676 S00149F 4F NOT 4677 S0014A0 D0 INC R0 4678 TRAIN_MV_1040 4679 S0014A1 50 ADD R0 ;x4 4680 S0014A2 50 ADD R0 ; 4681 S0014A3 F4 0200 IWT R4,#0200H ;(R4) <-- ＭＩＮ回転スピード 4682 S0014A6 64 SUB R4 4683 S0014A7 0C 03' BCC TRAIN_MV_1050 4684 S0014A9 54 ADD R4 4685 ; 4686 S0014AA 20 14 MOVE R4,R0 ;(R4) <-- 回転スピード 4687 TRAIN_MV_1050 4688 mJSR C_ANGL_CALC 4688+ S0014AC 94 LINK #4 4688+ S0014AD FF 03D9' IWT R15, #C_ANGL_CALC 4688+ S0014B0 01 NOP 4689 ; 4690 ;---------------------------------------------------------------- 4691 ;- パターンセット - 4692 ;---------------------------------------------------------------- 4693 TRAIN_MV_2000 4694 S0014B1 3D A0 5A LMS R0,CPLMVSP 4695 S0014B4 E0 DEC R0 4696 S0014B5 0A 03' BPL TRAIN_MV_2010 4697 S0014B7 D0 INC R0 4698 ; 4699 S0014B8 4F NOT 4700 S0014B9 D0 INC R0 4701 TRAIN_MV_2010 4702 S0014BA F1 0080 IWT R1,#080H 4703 S0014BD 61 SUB R1 4704 S0014BE 0C 02' BCC TRAIN_MV_2020 4705 S0014C0 11 TO R1 4706 ; 4707 S0014C1 51 ADD R1 4708 TRAIN_MV_2020 4709 S0014C2 3D A0 C3 LMS R0,CPTR_WALK 4710 S0014C5 51 ADD R1 4711 S0014C6 90 SBK ;[ SMS R0,CPTR_WALK ] 4712 S0014C7 F1 0600 IWT R1,#0600H 4713 S0014CA 61 SUB R1 4714 S0014CB 0C 0A' BCC TRAIN_MV_20200 ;パターン切り替え？ ( no:TRAIN_MV_20200 ) 4715 S0014CD 01 NOP 4716 ; 4717 S0014CE 90 SBK ;[ SMS R0,CPTR_WALK ] 4718 S0014CF 3D A0 C2 LMS R0,CPTR_PTNO ;パターン切り替え 4719 S0014D2 3F C2 XOR #02H 4720 S0014D4 09 05' BEQ TRAIN_MV_2021 ;けむりセット？ ( yes:TRAIN_MV_2021 ) 4721 S0014D6 90 SBK ;[ SMS R0,CPTR_PTNO ] 4722 ; 4723 TRAIN_MV_20200 4724 mDJMP TRAIN_MV_2030 4724+ S0014D7 FF 1598' IWT R15, #TRAIN_MV_2030 4724+ S0014DA 01 NOP 4725 ; 4726 ;-------------- ”シュッポシュッポ”けむりセット ---------------- 4727 TRAIN_MV_2021 4728 S0014DB A0 00" IBT R0,#BANK LCOS 4729 S0014DD 3F DF ROMB 4730 ; 4731 S0014DF 3D A0 BF LMS R0,CPTR_ANGL 4732 S0014E2 C0 HIB 4733 S0014E3 20 1A MOVE R10,R0 ;(R10) <-- 回転角度 4734 S0014E5 AE 40 IBT R14,#040H 4735 S0014E7 5E ADD R14 4736 S0014E8 95 SEX 4737 S0014E9 0A 08' BPL TRAIN_OAM_0010 4738 S0014EB 01 NOP 4739 ; 4740 S0014EC A0 7F IBT R0,#7FH 4741 S0014EE 3D CA XOR R10 4742 S0014F0 D0 INC R0 4743 S0014F1 1A TO R10 4744 S0014F2 9E LOB 4745 TRAIN_OAM_0010 4746 S0014F3 F0 0000" IWT R0,#LCOS 4747 S0014F6 1E TO R14 4748 S0014F7 5A ADD R10 4749 S0014F8 11 TO R1 ;(R1) <-- ｃｏｓデータ 4750 S0014F9 EF GETB 4751 S0014FA A0 40 IBT R0,#40H ;[ IWT R14,#LSIN ] 4752 S0014FC 1E TO R14 4753 S0014FD 5E ADD R14 4754 S0014FE 12 TO R2 ;(R2) <-- ｓｉｎデータ 4755 S0014FF EF GETB 4756 ; 4757 S001500 A0 00" IBT R0,#BANK PLAYER_DATA 4758 S001502 3F DF ROMB 4759 ; 4760 S001504 A5 05 IBT R5,#05H ;(R5) <-- けむりセットＸオフセット値 4761 S001506 A6 E8 IBT R6,#0E8H ;(R6) <-- けむりセットＹオフセット値 4762 S001508 3D A0 5F LMS R0,CPLPATN 4763 S00150B F3 0186 IWT R3,#TR00 4764 S00150E 19 TO R9 ;(R9) <-- レールモードパターンチェックフラグ 4765 S00150F 63 SUB R3 4766 S001510 09 05' BEQ TRAIN_MV_2022 ;レールモードパターン？ ( no:TRAIN_MV_2022 ) 4767 S001512 01 NOP 4768 ; 4769 S001513 A5 04 IBT R5,#04H ;(R5) <-- けむりセットＸオフセット値 4770 S001515 A6 F2 IBT R6,#0F2H ;(R6) <-- けむりセットＹオフセット値 4771 TRAIN_MV_2022 4772 S001517 B5 FROM R5 4773 S001518 13 TO R3 ;(R3) <-- Ｘ×ｃｏｓ 4774 S001519 81 MULT R1 4775 S00151A B6 FROM R6 4776 S00151B 82 MULT R2 ;(R0) <-- Ｙ×ｓｉｎ 4777 S00151C 53 ADD R3 4778 S00151D 50 ADD R0 ;x4 4779 S00151E 50 ADD R0 ; 4780 S00151F C0 HIB 4781 S001520 13 TO R3 ;(R3) <-- けむりセットＸ位置 4782 S001521 95 SEX 4783 S001522 3D A8 62 LMS R8,CPLCMKI ;(R8) <-- プレイヤー向き 4784 S001525 E8 DEC R8 4785 S001526 0B 04' BMI TRAIN_MV_2024 4786 S001528 D8 INC R8 4787 ; 4788 S001529 23 WITH R3 4789 S00152A 4F NOT 4790 S00152B D3 INC R3 4791 TRAIN_MV_2024 4792 S00152C B5 FROM R5 4793 S00152D 14 TO R4 ;(R4) <-- Ｘ×ｓｉｎ 4794 S00152E 82 MULT R2 4795 S00152F B6 FROM R6 4796 S001530 81 MULT R1 ;(R0) <-- Ｙ×ｃｏｓ 4797 S001531 64 SUB R4 4798 S001532 50 ADD R0 ;x4 4799 S001533 50 ADD R0 ; 4800 S001534 C0 HIB 4801 S001535 95 SEX 4802 S001536 14 TO R4 ;(R4) <-- けむりセットＹ位置 4803 S001537 3E 5E ADD #0EH 4804 ; 4805 S001539 F5 0000" IWT R5,#TRSMK ;(R5) <-- 効果Ｎｏ． 4806 mJSR M_EXINSR ;効果エリア確保 4806+ S00153C 94 LINK #4 4806+ S00153D FF 0000" IWT R15, #M_EXINSR 4806+ S001540 01 NOP 4807 ; 4808 S001541 3D A0 3D LMS R0,CMSOUND3 ;[♪] 4809 S001544 E0 DEC R0 4810 S001545 0A 06' BPL TRAIN_MV_2025 ;サウンドセットＯＫ？ ( no:TRAIN_MV_2025 ) 4811 S001547 01 NOP 4812 ; 4813 S001548 A0 45 IBT R0,#045H 4814 S00154A 3E A0 3D SMS R0,CMSOUND3 ;[♪] 4815 TRAIN_MV_2025 4816 S00154D 3D A0 46 LMS R0,CPLXPSL 4817 S001550 13 TO R3 4818 S001551 53 ADD R3 4819 mSTW R3,CEXXPSL,R1 ;Ｘ座標セット 4819+ S001552 F0 10A2 IWT R0,#CEXXPSL 4819+ S001555 51 ADD R1 4819+ S001556 B3 FROM R3 4819+ S001557 30 STW (R0) 4820 S001558 3D A0 48 LMS R0,CPLYPSL 4821 S00155B 14 TO R4 4822 S00155C 54 ADD R4 4823 mSTW R4,CEXYPSL,R1 ;Ｙ座標セット 4823+ S00155D F0 1142 IWT R0,#CEXYPSL 4823+ S001560 51 ADD R1 4823+ S001561 B4 FROM R4 4823+ S001562 30 STW (R0) 4824 S001563 A3 40 IBT R3,#040H ;(R3) <-- スピード 4825 S001565 A4 04 IBT R4,#2*2 ;(R4) <-- 初期パターン 4826 S001567 29 B9 MOVES R9,R9 4827 S001569 09 04' BEQ TRAIN_MV_2026 ;レールモードパターン？ ( no:TRAIN_MV_2026 ) 4828 S00156B 01 NOP 4829 ; 4830 S00156C D4 INC R4 ;[ IBT R4,#2*2+1 ] 4831 S00156D 23 WITH R3 4832 S00156E 03 LSR 4833 TRAIN_MV_2026 4834 mSTW R3,CEXWRK2,R1 ;スピードセット 4834+ S00156F F0 1E4E IWT R0,#CEXWRK2 4834+ S001572 51 ADD R1 4834+ S001573 B3 FROM R3 4834+ S001574 30 STW (R0) 4835 mSTW R4,CEXCHPT,R1 ;初期パターンセット 4835+ S001575 F0 13C2 IWT R0,#CEXCHPT 4835+ S001578 51 ADD R1 4835+ S001579 B4 FROM R4 4835+ S00157A 30 STW (R0) 4836 S00157B A3 09 IBT R3,#09H 4837 mSTW R3,CEXTIM0,R1 ;タイマー初期セット 4837+ S00157D F0 1782 IWT R0,#CEXTIM0 4837+ S001580 51 ADD R1 4837+ S001581 B3 FROM R3 4837+ S001582 30 STW (R0) 4838 S001583 A0 40 IBT R0,#40H 4839 S001585 5A ADD R10 4840 S001586 E8 DEC R8 4841 S001587 0A 06' BPL TRAIN_MV_2028 4842 S001589 D8 INC R8 4843 ; 4844 S00158A A3 7F IBT R3,#07FH 4845 S00158C 3D C3 XOR R3 4846 S00158E D0 INC R0 4847 TRAIN_MV_2028 4848 S00158F 9E LOB 4849 S001590 13 TO R3 4850 S001591 50 ADD R0 4851 mSTW R3,CEXWRK0,R1 ;角度セット 4851+ S001592 F0 1E4C IWT R0,#CEXWRK0 4851+ S001595 51 ADD R1 4851+ S001596 B3 FROM R3 4851+ S001597 30 STW (R0) 4852 ; 4853 TRAIN_MV_2030 4854 S001598 60 SUB R0 ;<<< end >>> 4855 S001599 00 STOP 4856 S00159A 01 NOP 4857 ; 4858 ;------------------------------------------------------------------------ 4859 ;- レールに乗ってるかチェック - 4860 ;- in : - 4861 ;- ＢＧチェック情報 - 4862 ;- out : - 4863 ;- (Z) <-- 0:レールに乗ってる - 4864 ;- 1: ” 乗ってない - 4865 ;------------------------------------------------------------------------ 4866 RALE_ON_CK 4867 S00159B 27 B7 MOVES R7,R7 4868 S00159D 08 14' BNE RALE_ON_CK_050 ;線路？ ( no:RALE_ON_CK_050 ) 4869 S00159F 60 SUB R0 ;[ (Z) <- 1 ] 4870 ; 4871 S0015A0 BA FROM R10 4872 S0015A1 3E 7F AND #0FH 4873 S0015A3 03 LSR 4874 S0015A4 1E TO R14 ;(R14) <-- 線路ビットデータポインター 4875 S0015A5 56 ADD R6 4876 S0015A6 15 TO R5 ;(R5) <-- 線路ビットデータ 4877 S0015A7 EF GETB 4878 ; 4879 S0015A8 B9 FROM R9 4880 S0015A9 3E 7F AND #0FH 4881 S0015AB 03 LSR 4882 S0015AC FE 0000" IWT R14,#RALE_BIT_AND 4883 S0015AF 1E TO R14 4884 S0015B0 5E ADD R14 4885 S0015B1 EF GETB 4886 ; 4887 S0015B2 75 AND R5 4888 RALE_ON_CK_050 4889 mRTS 4889+ S0015B3 9B JMP R11 4889+ S0015B4 01 NOP 4890 ; 4891 ;------------------------------------------------------------------------ 4892 ;- 回転スピード計算 - 4893 ;------------------------------------------------------------------------ 4894 RALE_XY_CALC 4895 S0015B5 3D A2 5A LMS R2,CPLMVSP ;(R2) <-- 移動スピード 4896 S0015B8 3D A0 C8 LMS R0,CPTR_SDR 4897 S0015BB 9E LOB 4898 S0015BC 52 ADD R2 ;(C) 4899 S0015BD 90 SBK ;[ SMS CPTR_SDR ] 4900 S0015BE C0 HIB 4901 S0015BF 13 TO R3 ;(R3) <-- 移動ドット数 4902 S0015C0 95 SEX 4903 ; 4904 S0015C1 A0 00" IBT R0,#BANK LCOS 4905 S0015C3 3F DF ROMB ;※ＲＯＭアドレス変更（にて復帰） 4906 ; 4907 S0015C5 3D A0 5B LMS R0,CPLANGL ;(R0) <-- 足下角度 4908 S0015C8 FE 0000" IWT R14,#LCOS 4909 S0015CB 1E TO R14 4910 S0015CC 5E ADD R14 4911 S0015CD EF GETB ;(R0) <-- Ｘ移動ドット数 4912 S0015CE 14 TO R4 ;(R4) <-- Ｘスピード 4913 S0015CF 95 SEX 4914 S0015D0 09 0C' BEQ RALE_XY_CALC_10 ;Ｘ移動無し？ ( yes:RALE_XY_CALC_10 ) 4915 S0015D2 01 NOP 4916 ; 4917 S0015D3 23 10 MOVE R0,R3 4918 S0015D5 22 14 MOVE R4,R2 4919 S0015D7 0A 05' BPL RALE_XY_CALC_10 4920 S0015D9 24 WITH R4 4921 ; 4922 S0015DA 4F NOT 4923 S0015DB D4 INC R4 4924 S0015DC 4F NOT 4925 S0015DD D0 INC R0 4926 RALE_XY_CALC_10 4927 S0015DE 3E A4 54 SMS R4,CPLXSPD ;Ｘスピードセット 4928 S0015E1 20 18 MOVE R8,R0 ;(R8) <-- Ｘ移動ドット数 4929 ; 4930 S0015E3 A0 40 IBT R0,#040H ;[ IWT R0,#LSIN ] 4931 S0015E5 1E TO R14 4932 S0015E6 5E ADD R14 4933 S0015E7 EF GETB ;(R0) <-- Ｙ移動ドット数 4934 S0015E8 1E TO R14 ;(R14) <-- Ｙスピード 4935 S0015E9 95 SEX 4936 S0015EA 09 0C' BEQ RALE_XY_CALC_20 ;Ｙ移動無し？ ( yes:RALE_XY_CALC_20 ) 4937 S0015EC 01 NOP 4938 ; 4939 S0015ED 23 10 MOVE R0,R3 4940 S0015EF 22 1E MOVE R14,R2 4941 S0015F1 0B 05' BMI RALE_XY_CALC_20 4942 S0015F3 2E WITH R14 4943 ; 4944 S0015F4 4F NOT 4945 S0015F5 DE INC R14 4946 S0015F6 4F NOT 4947 S0015F7 D0 INC R0 4948 RALE_XY_CALC_20 4949 S0015F8 3E AE 55 SMS R14,CPLYSPD ;Ｙスピードセット 4950 ; 4951 S0015FB 23 B0 MOVES R3,R0 4952 S0015FD 09 3D' BEQ RALE_XY_CALC_50 ;Ｙ移動無し？ ( yes:RALE_XY_CALC_50 ) 4953 S0015FF 01 NOP 4954 ; 4955 S001600 28 B8 MOVES R8,R8 4956 S001602 09 38' BEQ RALE_XY_CALC_50 ;Ｘ移動無し？ ( yes:RALE_XY_CALC_50 ) 4957 S001604 01 NOP 4958 ; 4959 S001605 50 ADD R0 ;(C) <-- (N) 4960 S001606 12 TO R2 4961 S001607 04 ROL 4962 S001608 B8 FROM R8 4963 S001609 58 ADD R8 ;(C) <-- (N) 4964 S00160A 22 WITH R2 4965 S00160B 04 ROL 4966 ; 4967 S00160C 3D A0 46 LMS R0,CPLXPSL 4968 S00160F 03 LSR ;(C) <-- 4969 S001610 3D A0 48 LMS R0,CPLYPSL 4970 S001613 04 ROL 4971 ; 4972 S001614 3D C2 XOR R2 4973 S001616 3E 73 AND #03H 4974 S001618 E0 DEC R0 ;[ FFFF,0,1,2 <-- 0,1,2,3 ] 4975 S001619 03 LSR ;[ > 2 ? ] 4976 S00161A 09 03' BEQ RALE_XY_CALC_30 4977 S00161C 04 ROL 4978 ; 4979 S00161D A0 FF IBT R0,#0-1 4980 RALE_XY_CALC_30 4981 S00161F D0 INC R0 ;[ 0,1,2,0 <-- 0,1,2,3 ] 4982 ; 4983 S001620 03 LSR 4984 S001621 0C 0B' BCC RALE_XY_CALC_40 4985 S001623 01 NOP 4986 ; 4987 S001624 28 B8 MOVES R8,R8 4988 S001626 09 06' BEQ RALE_XY_CALC_40 4989 S001628 01 NOP 4990 ; 4991 S001629 0B 03' BMI RALE_XY_CALC_40 4992 S00162B D8 INC R8 ;[+1] 4993 ; 4994 S00162C E8 DEC R8 ;[-1] 4995 S00162D E8 DEC R8 ; 4996 RALE_XY_CALC_40 4997 S00162E 03 LSR 4998 S00162F 0C 0B' BCC RALE_XY_CALC_50 4999 S001631 01 NOP 5000 ; 5001 S001632 23 B3 MOVES R3,R3 5002 S001634 09 06' BEQ RALE_XY_CALC_50 5003 S001636 01 NOP 5004 ; 5005 S001637 0B 03' BMI RALE_XY_CALC_50 5006 S001639 D3 INC R3 ;[+1] 5007 ; 5008 S00163A E3 DEC R3 ;[-1] 5009 S00163B E3 DEC R3 ; 5010 RALE_XY_CALC_50 5011 S00163C 3D A0 46 LMS R0,CPLXPSL 5012 S00163F 58 ADD R8 5013 S001640 90 SBK ;Ｘ座標移動 5014 S001641 3D A0 48 LMS R0,CPLYPSL 5015 S001644 53 ADD R3 5016 S001645 90 SBK ;Ｙ座標移動 5017 ; 5018 S001646 A0 00" IBT R0,#BANK PLAYER_DATA 5019 S001648 3F DF ROMB ;ＲＯＭアドレス復帰 5020 ; 5021 mRTS 5021+ S00164A 9B JMP R11 5021+ S00164B 01 NOP 5022 ; 5023 ;**************************************************************** 5024 ;* 汽車基本ルーチン * 5025 ;**************************************************************** 5026 TRAIN_SUB 5027 S00164C 3E AB 34 SMS R11,RTS4 ;[ return address save ] 5028 ; 5029 ;-------------- 回転キャラクターセット -------------------------- 5030 S00164F 3D A0 C0 LMS R0,CPTR_MODE 5031 S001652 E0 DEC R0 5032 S001653 A1 72 IBT R1,#070H+2 5033 S001655 61 SUB R1 ;(C) set 5034 S001656 FE 0186 IWT R14,#TR00 ;パターンＮｏ．セット 5035 S001659 F0 0000" IWT R0,#TR_CHR_ADRS 5036 S00165C 0D 06' BCS TRAIN_SUB_0050 ;レールモード？ ( no:TRAIN_SUB_0050 ) 5037 S00165E 01 NOP 5038 ; 5039 S00165F 3E 54 ADD #(2*2) 5040 S001661 FE 0187 IWT R14,#TR01 ;パターンＮｏ．セット 5041 TRAIN_SUB_0050 5042 S001664 3E AE 5F SMS R14,CPLPATN 5043 ; 5044 S001667 3D AE C2 LMS R14,CPTR_PTNO 5045 S00166A 1E TO R14 5046 S00166B 5E ADD R14 5047 S00166C EF GETB 5048 S00166D DE INC R14 5049 S00166E 1C TO R12 ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 5050 S00166F 3D EF GETBH 5051 S001671 AD 54 IBT R13,#BANK CIPCHD ;(R13) <-- キャラクターアドレス（Ｂ） 5052 ; 5053 S001673 A2 20 IBT R2,#020H ;(R2) <-- ビットマップ座標＿Ｙ 5054 S001675 A3 00 IBT R3,#000H ;(R3) <-- ” ＿Ｘ 5055 S001677 3D A0 BF LMS R0,CPTR_ANGL 5056 S00167A 15 TO R5 ;(R5) <-- 角度 5057 S00167B C0 HIB 5058 S00167C F6 4000 IWT R6,#040H*100H 5059 S00167F 56 ADD R6 5060 S001680 50 ADD R0 ;(C) <-- (N) 5061 S001681 09 10' BEQ TRAIN_SUB_0150 ;プレイヤー向き変更？ ( no:TRAIN_SUB_0150 ) 5062 S001683 01 NOP 5063 ; 5064 S001684 0C 0A' BCC TRAIN_SUB_0100 ;回転角度変更？ ( no:TRAIN_SUB_0100 ) 5065 S001686 60 SUB R0 ;[ IBT R0,#0 ] プレイヤー右向きセット 5066 ; 5067 S001687 A0 7F IBT R0,#7FH ;回転角度変更 5068 S001689 3D C5 XOR R5 5069 S00168B D0 INC R0 5070 S00168C 15 TO R5 5071 S00168D 9E LOB 5072 S00168E A0 02 IBT R0,#02H ;プレイヤー左向きセット 5073 TRAIN_SUB_0100 5074 S001690 3E A0 62 SMS R0,CPLCMKI ;プレイヤー向きセット 5075 ; 5076 TRAIN_SUB_0150 5077 S001693 3D A0 EB LMS R0,CPLFLSH 5078 ;;;; IWT R6,#090H 5079 S001696 A6 50 IBT R6,#050H 5080 S001698 66 SUB R6 5081 S001699 0B 07' BMI TRAIN_SUB_0200 ;ダメージ回転？ ( no:TRAIN_SUB_0200 ) 5082 S00169B 01 NOP 5083 ; 5084 S00169C 3D A0 C7 LMS R0,CPTR_FLCT 5085 S00169F 55 ADD R5 5086 S0016A0 15 TO R5 5087 S0016A1 9E LOB 5088 TRAIN_SUB_0200 5089 S0016A2 3D A6 C1 LMS R6,CPTR_ZOOM ;(R6) <-- 倍率 5090 mJSR R_32_RTZ_32 ;キャラクター拡大、縮小、回転（サイズ ３２×３２） 5090+ S0016A5 94 LINK #4 5090+ S0016A6 FF 0000" IWT R15, #R_32_RTZ_32 5090+ S0016A9 01 NOP 5091 ; 5092 S0016AA A0 00" IBT R0,#BANK PLAYER_DATA 5093 S0016AC 3F DF ROMB ;ＲＯＭアドレス復帰 5094 ; 5095 S0016AE 3D AB 34 LMS R11,RTS4 ;[ return address load ] 5096 mRTS 5096+ S0016B1 9B JMP R11 5096+ S0016B2 01 NOP 5097 ; 5098 ;************************************************************************ 5099 ;* * 5100 ;* モグラ * 5101 ;* * 5102 ;************************************************************************ 5103 ; 5104 MOGURA_MV 5105 S0016B3 60 SUB R0 ;[ IBT R0,#0 ] 5106 S0016B4 3E A0 5A SMS R0,CPLMVSP ;移動スピードクリアー 5107 S0016B7 3E A0 C5 SMS R0,CPMG_CNVKEY ;移動方向変換コントローラー情報（連続）クリアー 5108 ; 5109 S0016BA 3D A0 EB LMS R0,CPLFLSH 5110 ;;;; IWT R1,#090H 5111 S0016BD A1 50 IBT R1,#050H 5112 S0016BF 61 SUB R1 5113 S0016C0 0B 0B' BMI MOGURA_MV_0050 ;プレイヤーダメージ？ ( no:MOGURA_MV_0050 ) 5114 S0016C2 01 NOP 5115 ; 5116 ;-------------- プレイヤーダメージ！！ ---------------------------------- 5117 S0016C3 3D A0 CA LMS R0,CPMG_FLCT 5118 S0016C6 A2 10 IBT R2,#010H 5119 S0016C8 52 ADD R2 5120 mDJMP_X MOGURA_MV_0400 5120+ S0016C9 FF 17B1' IWT R15, #MOGURA_MV_0400 5121 S0016CC 90 SBK ;[ SMS R0,CPMG_FLCT ] 5122 ; 5123 ;------------------------------------------------------------------------ 5124 ;- コントローラー入力 - 5125 ;------------------------------------------------------------------------ 5126 MOGURA_MV_0050 5127 ; 5128 ;-------------- 移動キー変換 -------------------------------------------- 5129 S0016CD 3D F0 0071 LM R0,CMKEYC1 5130 S0016D1 20 13 MOVE R3,R0 ;(R3) <-- コントローラー情報（連続） 5131 S0016D3 17 TO R7 ;(R7) <-- コントローラー情報（連続） 5132 S0016D4 3F 7F BIC #00001111B ;[ AND #0FFF0H ] 5133 S0016D6 15 TO R5 ;(R5) <-- コントローラー左右情報（連続） 5134 S0016D7 3E 73 AND #00000011B 5135 S0016D9 3E 7C AND #00001100B 5136 S0016DB 03 LSR 5137 S0016DC 16 TO R6 ;(R6) <-- コントローラー上下情報（連続） 5138 S0016DD 03 LSR 5139 ; 5140 S0016DE 3D A0 C1 LMS R0,CPMG_MVMK 5141 S0016E1 3D A1 C0 LMS R1,CPMG_KEYF 5142 S0016E4 61 SUB R1 5143 S0016E5 3E 73 AND #03H 5144 S0016E7 20 14 MOVE R4,R0 ;(R4) <-- 移動キー方向 5145 S0016E9 03 LSR 5146 S0016EA 0C 07' BCC MOGURA_MV_0060 ;左右⇔上下キー入れ替え？ ( yes:MOGURA_MV_0060 ) 5147 S0016EC 01 NOP 5148 ; 5149 S0016ED 25 1E MOVE R14,R5 ;左右⇔上下キー入れ替え 5150 S0016EF 26 15 MOVE R5,R6 5151 S0016F1 2E 16 MOVE R6,R14 5152 MOGURA_MV_0060 5153 S0016F3 F0 0000" IWT R0,#MG_KEYCNV 5154 S0016F6 1E TO R14 5155 S0016F7 54 ADD R4 5156 S0016F8 EF GETB 5157 S0016F9 1E TO R14 5158 S0016FA 03 LSR 5159 S0016FB 0C 09' BCC MOGURA_MV_0070 ;上⇔下キー入れ替え？ ( no:MOGURA_MV_0070 ) 5160 S0016FD 01 NOP 5161 ; 5162 S0016FE 26 WITH R6 ;上⇔下キー入れ替え 5163 S0016FF 03 LSR 5164 S001700 04 ROL 5165 S001701 50 ADD R0 5166 S001702 3E 72 AND #00000010B 5167 S001704 16 TO R6 5168 S001705 C6 OR R6 5169 MOGURA_MV_0070 5170 S001706 EE DEC R14 5171 S001707 0B 09' BMI MOGURA_MV_0080 ;左⇔右キー入れ替え？ ( no:MOGURA_MV_0080 ) 5172 S001709 01 NOP 5173 ; 5174 S00170A 25 WITH R5 ;左⇔右キー入れ替え 5175 S00170B 03 LSR 5176 S00170C 04 ROL 5177 S00170D 50 ADD R0 5178 S00170E 3E 72 AND #00000010B 5179 S001710 15 TO R5 5180 S001711 C5 OR R5 5181 MOGURA_MV_0080 5182 S001712 B6 FROM R6 5183 S001713 56 ADD R6 5184 S001714 50 ADD R0 5185 S001715 C5 OR R5 5186 S001716 11 TO R1 ;(R1) <-- コントローラー情報（連続） 5187 S001717 C7 OR R7 5188 ; 5189 ;-------------- 移動キー入力チェック ------------------------------------ 5190 S001718 3D A2 C1 LMS R2,CPMG_MVMK ;(R2) <-- 移動方向 5191 S00171B F0 0000" IWT R0,#MG_MVKEY 5192 S00171E 52 ADD R2 5193 S00171F 1E TO R14 5194 S001720 52 ADD R2 5195 S001721 EF GETB ;(R0) <-- 左右移動キーデータ 5196 ; 5197 S001722 15 TO R5 ;[ * not break (R0) ] 5198 S001723 71 AND R1 5199 S001724 08 07' BNE MOGURA_MV_0090 ;移動キー入力？ ( yes:MOGURA_MV_0090 ) 5200 S001726 DE INC R14 5201 ; 5202 ;-------------- 移動キー入力無し -------------------------------- 5203 S001727 3E A2 C0 SMS R2,CPMG_KEYF ;移動キーロックフラグセット 5204 S00172A 05 3A' BRA MOGURA_MV_0200 5205 S00172C 01 NOP 5206 ; 5207 ;-------------- 移動キー入力 ------------------------------------ 5208 MOGURA_MV_0090 5209 S00172D 3D A5 DA LMS R5,CONLFFG 5210 S001730 25 B5 MOVES R5,R5 5211 S001732 08 07' BNE MOGURA_MV_0092 ;リフトに乗ってる？ ( yes:MOGURA_MV_0092 ) 5212 S001734 01 NOP 5213 ; 5214 S001735 15 TO R5 5215 S001736 3F CF XOR #00001111B ;上下キーキャンセル 5216 S001738 21 WITH R1 5217 S001739 3D 75 BIC R5 5218 ; 5219 MOGURA_MV_0092 5220 S00173B F5 0100 IWT R5,#0100H ;(R5) <-- 右側移動スピード 5221 S00173E EF GETB 5222 S00173F 71 AND R1 5223 S001740 09 06' BEQ MOGURA_MV_0100 ;左側移動キー入力？ ( no:MOGURA_MV_0100 ) 5224 S001742 60 SUB R0 ;[ IBT R0,#0 ] (R0) <-- プレイヤー向き 5225 ; 5226 S001743 F5 FF00 IWT R5,#-0100H ;(R5) <-- 左側移動スピード 5227 S001746 A0 02 IBT R0,#02H ;(R0) <-- プレイヤー向き 5228 MOGURA_MV_0100 5229 S001748 3D A6 60 LMS R6,CPLJUMP 5230 S00174B E6 DEC R6 5231 S00174C 0A 04' BPL MOGURA_MV_0110 ;ジャンプ中？ ( yes:MOGURA_MV_0110 ) 5232 S00174E D6 INC R6 5233 ; 5234 S00174F 3E A5 5A SMS R5,CPLMVSP 5235 MOGURA_MV_0110 5236 S001752 20 15 MOVE R5,R0 ;(R5) <-- プレイヤー向き 5237 ; 5238 S001754 B2 FROM R2 5239 S001755 03 LSR 5240 S001756 0D 0E' BCS MOGURA_MV_0200 ;上下移動？ ( yes:MOGURA_MV_0200 ) 5241 S001758 01 NOP 5242 ; 5243 S001759 3D F0 017F LM R0,CPMG_ANGL+1 5244 S00175D A6 7F IBT R6,#07FH 5245 S00175F 76 AND R6 5246 S001760 08 04' BNE MOGURA_MV_0200 ;向き変更ＯＫ？ ( no:MOGURA_MV_0200 ) 5247 S001762 01 NOP 5248 ; 5249 S001763 3E A5 62 SMS R5,CPLCMKI ;プレイヤー向きセット 5250 ; 5251 MOGURA_MV_0200 5252 S001766 3E A1 C5 SMS R1,CPMG_CNVKEY ;移動方向変換コントローラー情報（連続） 5253 ; 5254 ;------------------------------------------------------------------------ 5255 ;- 回転角計算 - 5256 ;------------------------------------------------------------------------ 5257 S001769 3D A6 5A LMS R6,CPLMVSP 5258 S00176C E6 DEC R6 5259 S00176D 0A 04' BPL MOGURA_MV_0250 5260 S00176F D6 INC R6 5261 ; 5262 S001770 26 WITH R6 5263 S001771 4F NOT 5264 S001772 D6 INC R6 5265 MOGURA_MV_0250 5266 S001773 F0 0400 IWT R0,#0400H ;x4.0 5267 S001776 3D 9F LMULT 5268 S001778 24 WITH R4 5269 S001779 C0 HIB 5270 S00177A 9E LOB 5271 S00177B 4D SWAP 5272 S00177C 14 TO R4 ;(R4) <-- 回転スピード 5273 S00177D C4 OR R4 5274 S00177E 3D AA C2 LMS R10,CPMG_TOAN ;(R10) <-- 目標回転角度 5275 mJSR C_ANGL_CALC 5275+ S001781 94 LINK #4 5275+ S001782 FF 03D9' IWT R15, #C_ANGL_CALC 5275+ S001785 01 NOP 5276 ; 5277 ;------------------------------------------------------------------------ 5278 ;- パターンＮｏ．セット - 5279 ;------------------------------------------------------------------------ 5280 S001786 26 B6 MOVES R6,R6 5281 S001788 08 0A' BNE MOGURA_MV_0300 ;ＳＴＯＰ？ ( no:MOGURA_MV_0300 ) 5282 S00178A 60 SUB R0 ;[ IBT R0,#0 ] 5283 ; 5284 S00178B 3E A0 C4 SMS R0,CPMG_WALK 5285 S00178E 3E A0 C3 SMS R0,CPMG_PTNO 5286 S001791 05 1E' BRA MOGURA_MV_0400 5287 S001793 01 NOP 5288 5289 001794 MOGURA_MV_0300 EQU $ 5290 S001794 F0 0080 IWT R0,#080H 5291 S001797 66 SUB R6 5292 S001798 0D 03' BCS MOGURA_MV_0350 5293 S00179A 56 ADD R6 5294 ; 5295 S00179B 26 10 MOVE R0,R6 5296 MOGURA_MV_0350 5297 S00179D 3D A1 C4 LMS R1,CPMG_WALK 5298 S0017A0 51 ADD R1 5299 S0017A1 90 SBK ;[ SMS R0,CPMG_WALK ] 5300 S0017A2 F1 0300 IWT R1,#0300H 5301 S0017A5 61 SUB R1 5302 S0017A6 0C 09' BCC MOGURA_MV_0400 ;パターン切り替え？ ( no:MOGURA_MV_0400 ) 5303 S0017A8 01 NOP 5304 ; 5305 S0017A9 90 SBK ;[ SMS R0,CPMG_WALK ] 5306 S0017AA 3D A0 C3 LMS R0,CPMG_PTNO ;パターン切り替え 5307 S0017AD 3E 77 AND #07H 5308 S0017AF D0 INC R0 5309 S0017B0 90 SBK ;[ SMS R0,CPMG_PTNO ] 5310 ; 5311 ;------------------------------------------------------------------------ 5312 ;- モグラ基本ルーチン - 5313 ;------------------------------------------------------------------------ 5314 MOGURA_MV_0400 5315 mJSR MOGURA_SUB ;モグラ基本ルーチン 5315+ S0017B1 94 LINK #4 5315+ S0017B2 FF 17B9' IWT R15, #MOGURA_SUB 5315+ S0017B5 01 NOP 5316 ; 5317 S0017B6 60 SUB R0 ;<<< end >>> 5318 S0017B7 00 STOP 5319 S0017B8 01 NOP 5320 ; 5321 ;**************************************************************** 5322 ;* モグラ基本ルーチン * 5323 ;**************************************************************** 5324 MOGURA_SUB 5325 S0017B9 3E AB 34 SMS R11,RTS4 ;[ return address save ] 5326 ; 5327 ;-------------- 回転キャラクターセット -------------------------- vvv******* warn :value out of range 5328 S0017BC FC 2060 IWT R12,#CIPCHD+2060H ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 5329 S0017BF 3D A0 5F LMS R0,CPLPATN 5330 S0017C2 FD 0198 IWT R13,#Mg02 5331 S0017C5 6D SUB R13 5332 S0017C6 09 10' BEQ MOGURA_SUB_0100 ;移動？ ( no:MOGURA_SUB_0100 ) 5333 S0017C8 01 NOP 5334 ; vvv******* warn :value out of range 5335 S0017C9 FC 20C0 IWT R12,#CIPCHD+20C0H ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 5336 S0017CC 3D F0 1974 LM R0,CFRCNT2 5337 S0017D0 3E 72 AND #02H 5338 S0017D2 09 04' BEQ MOGURA_SUB_0100 5339 S0017D4 01 NOP 5340 ; vvv******* warn :value out of range 5341 S0017D5 FC 20E0 IWT R12,#CIPCHD+20E0H ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 5342 MOGURA_SUB_0100 5343 S0017D8 AD 54 IBT R13,#BANK CIPCHD ;(R13) <-- キャラクターアドレス（Ｂ） 5344 ; 5345 S0017DA A2 20 IBT R2,#020H ;(R2) <-- ビットマップ座標＿Ｙ 5346 S0017DC A3 00 IBT R3,#000H ;(R3) <-- ” ＿Ｘ 5347 S0017DE 3D A0 BF LMS R0,CPMG_ANGL 5348 S0017E1 15 TO R5 ;(R5) <-- 角度 5349 S0017E2 C0 HIB 5350 S0017E3 3D A0 EB LMS R0,CPLFLSH 5351 ;;;; IWT R6,#090H 5352 S0017E6 A6 50 IBT R6,#050H 5353 S0017E8 66 SUB R6 5354 S0017E9 0B 07' BMI MOGURA_SUB_0150 ;ダメージ回転？ ( no:MOGURA_SUB_0150 ) 5355 S0017EB 01 NOP 5356 ; 5357 S0017EC 3D A0 CA LMS R0,CPMG_FLCT 5358 S0017EF 55 ADD R5 5359 S0017F0 15 TO R5 5360 S0017F1 9E LOB 5361 MOGURA_SUB_0150 5362 S0017F2 3D A6 C3 LMS R6,CPMG_PTNO 5363 S0017F5 E6 DEC R6 5364 S0017F6 0B 10' BMI MOGURA_SUB_0200 ;止まってる？ ( yes:MOGURA_SUB_0200 ) 5365 S0017F8 D6 INC R6 5366 ; 5367 S0017F9 A0 10 IBT R0,#(100H/8)/2 5368 S0017FB 55 ADD R5 5369 S0017FC 03 LSR ;1/(100H/8) 5370 S0017FD 03 LSR ; 5371 S0017FE 03 LSR ; 5372 S0017FF 03 LSR ; 5373 S001800 03 LSR ; 5374 S001801 B6 FROM R6 5375 S001802 60 SUB R0 5376 S001803 E0 DEC R0 5377 S001804 16 TO R6 5378 S001805 3E 77 AND #07H 5379 S001807 D6 INC R6 5380 MOGURA_SUB_0200 5381 S001808 F0 0198 IWT R0,#Mg02 ;パターンＮｏ．セット 5382 S00180B 56 ADD R6 5383 S00180C 3E A0 5F SMS R0,CPLPATN 5384 ; 5385 S00180F F6 0100 IWT R6,#0100H ;(R6) <-- 倍率 5386 mJSR R_32_RTZ_32 ;キャラクター拡大、縮小、回転（サイズ ３２×３２） 5386+ S001812 94 LINK #4 5386+ S001813 FF 0000" IWT R15, #R_32_RTZ_32 5386+ S001816 01 NOP 5387 ; 5388 ;-------------- 座標計算 ---------------------------------------- 5389 mJSR MR_CALC ;座標計算 5389+ S001817 94 LINK #4 5389+ S001818 FF 10E3' IWT R15, #MR_CALC 5389+ S00181B 01 NOP 5390 ; 5391 ;-------------- ＢＧチェック ------------------------------------ 5392 mJSR MG_BGCK ;モグラＢＧチェック 5392+ S00181C 94 LINK #4 5392+ S00181D FF 1826' IWT R15, #MG_BGCK 5392+ S001820 01 NOP 5393 ; 5394 S001821 3D AB 34 LMS R11,RTS4 ;[ return address load ] 5395 mRTS 5395+ S001824 9B JMP R11 5395+ S001825 01 NOP 5396 ; 5397 ;************************************************************************ 5398 ;* モグラＢＧチェック * 5399 ;************************************************************************ 5400 MG_BGCK 5401 S001826 3E AB 32 SMS R11,RTS2 ;[ return address save ] 5402 ; 5403 S001829 3D A0 C2 LMS R0,CPMG_TOAN 5404 S00182C 11 TO R1 5405 S00182D C0 HIB 5406 S00182E 3D A0 BF LMS R0,CPMG_ANGL 5407 S001831 3D A2 62 LMS R2,CPLCMKI 5408 S001834 E2 DEC R2 5409 S001835 0B 0D' BMI MG_BGCK_0000 5410 S001837 C0 HIB 5411 ; 5412 S001838 A3 7F IBT R3,#7FH 5413 S00183A 3D C3 XOR R3 5414 S00183C D0 INC R0 5415 S00183D 9E LOB 5416 S00183E 21 WITH R1 5417 S00183F 3D C3 XOR R3 5418 S001841 D1 INC R1 5419 S001842 21 WITH R1 5420 S001843 9E LOB 5421 MG_BGCK_0000 5422 S001844 61 SUB R1 5423 S001845 09 2C' BEQ MG_BGCK_0006 ;キャラクター角度ＯＫ？ ( yes:MG_BGCK_0006 ) 5424 S001847 01 NOP 5425 ; 5426 ;-------------- 目標角度と一致してない ---------------------------------- 5427 S001848 3D A1 5A LMS R1,CPLMVSP 5428 S00184B 21 B1 MOVES R1,R1 5429 S00184D 08 1F' BNE MG_BGCK_0004 ;移動中？ ( yes:MG_BGCK_0004 ) 5430 S00184F 01 NOP 5431 ; 5432 S001850 3D A1 C1 LMS R1,CPMG_MVMK 5433 S001853 21 B1 MOVES R1,R1 5434 S001855 09 17' BEQ MG_BGCK_0004 ;下移動？ ( yes:MG_BGCK_0004 ) 5435 S001857 01 NOP 5436 ; 5437 S001858 A2 01 IBT R2,#1 5438 S00185A 4D SWAP 5439 S00185B 0A 06' BPL MG_BGCK_0002 5440 S00185D 4D SWAP 5441 ; 5442 S00185E 4F NOT 5443 S00185F D0 INC R0 5444 S001860 9E LOB 5445 S001861 A2 FF IBT R2,#-1 5446 MG_BGCK_0002 5447 S001863 A3 20 IBT R3,#20H 5448 S001865 63 SUB R3 5449 S001866 0C 06' BCC MG_BGCK_0004 ;移動方向変更？ ( no:MG_BGCK_0004 ) 5450 S001868 01 NOP 5451 ; 5452 ;-------------- 移動方向変更 ------------------------------------ 5453 S001869 B1 FROM R1 5454 S00186A 52 ADD R2 5455 S00186B 3E 73 AND #03H 5456 S00186D 90 SBK ;[ SMS R0,CPMG_MVMK ] 5457 ; 5458 MG_BGCK_0004 5459 S00186E A0 FE IBT R0,#0FEH ;[ IWT R0,#0FFFEH ] エラー角度セット 5460 S001870 05 02' BRA MG_BGCK_0007 5461 S001872 01 NOP 5462 ; 5463 ;-------------- 目標向きと一致 ------------------------------------------ 5464 MG_BGCK_0006 5465 S001873 51 ADD R1 5466 ; 5467 MG_BGCK_0007 5468 S001874 3E A0 C6 SMS R0,CPMG_MKANGL ;前方向き回転角度セット 5469 ; 5470 S001877 3D A9 46 LMS R9,CPLXPSL ;(R9) <-- プレイヤーＸ座標 5471 S00187A 3D AA 48 LMS R10,CPLYPSL ;(R10) <-- ” Ｙ ” 5472 S00187D A2 00 IBT R2,#00 ;(R2) <-- ＢＧ当たりフラグ 5473 S00187F 3E A2 7F SMS R2,CPLWATR ;水中当たりフラグクリアー 5474 S001882 3E A2 80 SMS R2,CPLTNEL ;トンネル当たりフラグクリアー 5475 S001885 3E A2 81 SMS R2,CPLHARI ;ダメージＢＧ当たりフラグクリアー 5476 S001888 3E A2 7D SMS R2,CPLBGNO ;歩いている床のＢＧタイプクリアー 5477 S00188B 3E A2 C9 SMS R2,CPMG_WRK0 ;押しカウンタークリアーフラグセット 5478 S00188E A3 00 IBT R3,#00 ;壊れるＢＧ当たりフラグクリアー 5479 ; 5480 S001890 FE 0000" IWT R14,#PLBGCK_POINT_MG ;(R14) <-- ＢＧチェックポイントデータポインター 5481 ; 5482 ;------------------------------------------------------------------------ 5483 ;- 左上サイドチェック - 5484 ;------------------------------------------------------------------------ 5485 S001893 A1 02 IBT R1,#AL ;(R1) <-- ＢＧ当たりチェックデータ 5486 S001895 A4 FF IBT R4,#0FFH ;[ IWT R4,#0FFFFH ] (R4) <-- 壊れるＢＧ当たり角度 5487 mJSR_X MG_BGCK_1P_IN ;１点チェック 5487+ S001897 94 LINK #4 5487+ S001898 FF 1BB3' IWT R15, #MG_BGCK_1P_IN 5488 S00189B 3E HEX 3E ;[ SMS R11,RTS1 ] 5489 ; 5490 ;------------------------------------------------------------------------ 5491 ;- 左中心サイドチェック - 5492 ;------------------------------------------------------------------------ 5493 S00189C F4 0080 IWT R4,#080H ;(R4) <-- 壊れるＢＧ当たり角度 5494 mJSR_X MG_BGCK_1P ;１点チェック 5494+ S00189F 94 LINK #4 5494+ S0018A0 FF 1BBE' IWT R15, #MG_BGCK_1P 5495 S0018A3 3E HEX 3E ;[ SMS R11,RTS1 ] 5496 ; 5497 ;------------------------------------------------------------------------ 5498 ;- 右上サイドチェック - 5499 ;------------------------------------------------------------------------ 5500 S0018A4 A4 FF IBT R4,#0FFH ;[ IWT R4,#0FFFFH ] (R4) <-- 壊れるＢＧ当たり角度 5501 mJSR_X MG_BGCK_1P ;１点チェック 5501+ S0018A6 94 LINK #4 5501+ S0018A7 FF 1BBE' IWT R15, #MG_BGCK_1P 5502 S0018AA 3E HEX 3E ;[ SMS R11,RTS1 ] 5503 ; 5504 ;------------------------------------------------------------------------ 5505 ;- 右中心サイドチェック - 5506 ;------------------------------------------------------------------------ 5507 S0018AB A4 00 IBT R4,#00H ;(R4) <-- 壊れるＢＧ当たり角度 5508 mJSR_X MG_BGCK_1P ;１点チェック 5508+ S0018AD 94 LINK #4 5508+ S0018AE FF 1BBE' IWT R15, #MG_BGCK_1P 5509 S0018B1 3E HEX 3E ;[ SMS R11,RTS1 ] 5510 ; 5511 ;------------------------------------------------------------------------ 5512 ;- 頭チェック - 5513 ;------------------------------------------------------------------------ 5514 S0018B2 F4 00C0 IWT R4,#0C0H ;(R4) <-- 壊れるＢＧ当たり角度 5515 mJSR_X MG_BGCK_1P ;１点チェック 5515+ S0018B5 94 LINK #4 5515+ S0018B6 FF 1BBE' IWT R15, #MG_BGCK_1P 5516 S0018B9 3E HEX 3E ;[ SMS R11,RTS1 ] 5517 ; 5518 S0018BA 3D A0 80 LMS R0,CPLTNEL ;左、右頭フラグセット 5519 S0018BD 15 TO R5 5520 S0018BE 03 LSR 5521 S0018BF 04 ROL 5522 S0018C0 90 SBK ;[ SMS R0,CPLTNEL ] 5523 ; 5524 S0018C1 B2 FROM R2 5525 S0018C2 03 LSR 5526 S0018C3 22 WITH R2 5527 S0018C4 04 ROL 5528 ; 5529 S0018C5 B3 FROM R3 5530 S0018C6 03 LSR 5531 S0018C7 23 WITH R3 5532 S0018C8 04 ROL 5533 ; 5534 ;------------------------------------------------------------------------ 5535 ;- 左足チェック - 5536 ;------------------------------------------------------------------------ 5537 S0018C9 A1 03 IBT R1,#AL+MD ;(R1) <-- ＢＧ当たりチェックデータ 5538 S0018CB A4 FF IBT R4,#0FFH ;[ IWT R4,#0FFFFH ] (R4) <-- 壊れるＢＧ当たり角度 5539 mJSR_X MG_BGCK_1P ;１点チェック 5539+ S0018CD 94 LINK #4 5539+ S0018CE FF 1BBE' IWT R15, #MG_BGCK_1P 5540 S0018D1 3E HEX 3E ;[ SMS R11,RTS1 ] 5541 ; 5542 ;------------------------------------------------------------------------ 5543 ;- 中足チェック - 5544 ;------------------------------------------------------------------------ 5545 S0018D2 A4 40 IBT R4,#040H ;(R4) <-- 壊れるＢＧ当たり角度 5546 mJSR_X MG_BGCK_1P ;１点チェック 5546+ S0018D4 94 LINK #4 5546+ S0018D5 FF 1BBE' IWT R15, #MG_BGCK_1P 5547 S0018D8 3E HEX 3E ;[ SMS R11,RTS1 ] 5548 ; 5549 ;------------------------------------------------------------------------ 5550 ;- 右足チェック - 5551 ;------------------------------------------------------------------------ 5552 S0018D9 A4 FF IBT R4,#0FFH ;[ IWT R4,#0FFFFH ] (R4) <-- 壊れるＢＧ当たり角度 5553 mJSR_X MG_BGCK_1P ;１点チェック 5553+ S0018DB 94 LINK #4 5553+ S0018DC FF 1BBE' IWT R15, #MG_BGCK_1P 5554 S0018DF 3E HEX 3E ;[ SMS R11,RTS1 ] 5555 ; 5556 S0018E0 3D A0 DA LMS R0,CONLFFG 5557 S0018E3 3E 60 SUB #0 5558 S0018E5 09 04' BEQ MG_BGCK_00070 ;リフトに乗ってる？ ( no:MG_BGCK_00070 ) 5559 S0018E7 01 NOP 5560 ; 5561 S0018E8 22 WITH R2 ;足ＢＧ当たりフラグセット 5562 S0018E9 3E C7 OR #111B 5563 ; 5564 MG_BGCK_00070 5565 S0018EB 3D A0 C6 LMS R0,CPMG_MKANGL ;前フレーム前方向き回転角度セット 5566 S0018EE 3E A0 C7 SMS R0,CPMG_MKANGL_OLD 5567 ; 5568 S0018F1 3D A0 C9 LMS R0,CPMG_WRK0 5569 S0018F4 E0 DEC R0 5570 S0018F5 0A 04' BPL MG_BGCK_0008 ;押しカウンタークリアー？ ( no:MG_BGCK_0008 ) 5571 S0018F7 60 SUB R0 ;[ IBT R0,#0 ] 5572 ; 5573 S0018F8 3E A0 C8 SMS R0,CPMG_BRBGCT ;押しカウンタークリアー 5574 MG_BGCK_0008 5575 ; 5576 ;------------------------------------------------------------------------ 5577 ;- 座標補正チェック - 5578 ;------------------------------------------------------------------------ 5579 S0018FB 3D A7 C5 LMS R7,CPMG_CNVKEY ;(R7) <-- 移動方向変換コントローラー情報（連続） 5580 S0018FE A4 00 IBT R4,#0 ;(R4) <-- 目標角度加算値 5581 ; 5582 S001900 3D A1 C1 LMS R1,CPMG_MVMK ;(R1) <-- 移動方向 5583 S001903 B1 FROM R1 5584 S001904 03 LSR 5585 S001905 0C 07' BCC MG_BGCK_0010 ;Ｙ座標補正？ ( yes:MG_BGCK_0010 ) 5586 S001907 01 NOP 5587 ; 5588 S001908 29 1E MOVE R14,R9 ;Ｘ⇔Ｙ入れ替え 5589 S00190A 2A 19 MOVE R9,R10 5590 S00190C 2E 1A MOVE R10,R14 5591 MG_BGCK_0010 5592 S00190E F0 0000" IWT R0,#MG_POSCNV 5593 S001911 1E TO R14 5594 S001912 51 ADD R1 5595 S001913 EF GETB 5596 S001914 20 18 MOVE R8,R0 5597 S001916 1E TO R14 5598 S001917 03 LSR 5599 S001918 0C 04' BCC MG_BGCK_0020 ;Ｙ符号反転？ ( no:MG_BGCK_0020 ) 5600 S00191A 01 NOP 5601 ; 5602 S00191B 2A WITH R10 ;Ｙ符号反転 5603 S00191C 4F NOT 5604 S00191D DA INC R10 5605 MG_BGCK_0020 5606 S00191E EE DEC R14 5607 S00191F 0B 04' BMI MG_BGCK_0030 ;Ｘ符号反転？ ( no:MG_BGCK_0030 ) 5608 S001921 01 NOP 5609 ; 5610 S001922 29 WITH R9 ;Ｘ符号反転 5611 S001923 4F NOT 5612 S001924 D9 INC R9 5613 MG_BGCK_0030 5614 ; 5615 ;---------------------------------------------------------------- 5616 ;- 足補正チェック - 5617 ;---------------------------------------------------------------- 5618 S001925 AC 00 IBT R12,#0 ;(R12) <-- 下側へ自動移動向き変更フラグ 5619 ; 5620 S001927 B1 FROM R1 5621 S001928 3E 8A MULT #5*2 5622 S00192A FE 0000" IWT R14,#MG_FOOTBGP 5623 S00192D 1E TO R14 5624 S00192E 5E ADD R14 5625 S00192F EF GETB 5626 S001930 DE INC R14 5627 S001931 3D EF GETBH ;(R0) <-- 補正中心点チェックデータ 5628 ; 5629 S001933 72 AND R2 5630 S001934 09 13' BEQ MG_BGCK_0060 ;足補正中心点ＢＧ当たり？ ( no:MG_BGCK_0060 ) 5631 S001936 DE INC R14 5632 ; 5633 ;-------------- 足補正中心点ＢＧ当たり -------------------------- 5634 S001937 73 AND R3 5635 ;;;; BNE MG_BGCK_0040 ;足補正中心点壊れるＢＧ？ ( yes:MG_BGCK_0040 ) 5636 S001938 09 05' BEQ MG_BGCK_0050 ;足補正中心点壊れるＢＧ？ ( no:MG_BGCK_0040 ) 5637 ;;;; NOP 5638 S00193A 60 SUB R0 5639 ; 5640 ;;;; GETB 5641 ;;;; INC R14 5642 ;;;; GETBH ;(R0) <-- 足補正サイドチェックデータ 5643 ;;;;; 5644 ;;;; TO R6 5645 ;;;; AND R2 5646 ;;;; SUB R6 5647 ;;;; BEQ MG_BGCK_0050 ;足補正両サイドＢＧ当たり？ ( yes:MG_BGCK_0050 ) 5648 ;;;; SUB R0 ;[ IBT R0,#0 ] 移動向き変更無し！！ 5649 ;;;;; 5650 ;;;; INC R14 5651 ;;;; INC R14 5652 ;;;;; 5653 ;;;; INC R14 5654 ;;;; GETB 5655 ;;;; INC R14 5656 ;;;; GETBH ;(R0) <-- 左側サイドＢＧ当たりフラグ 5657 ;;;;; 5658 ;;;; AND R2 5659 ;;;; BEQ MG_BGCK_0050 ;左側サイドＢＧ当たり？ ( no:MG_BGCK_0050 ) 5660 ;;;; INC R0 ;[ IBT R0,#1 ] 5661 ;;;;; 5662 ;;;; IBT R0,#-1 5663 ;;;; BRA MG_BGCK_0050 5664 ;;;; NOP 5665 ; 5666 MG_BGCK_0040 5667 S00193B 3D A0 62 LMS R0,CPLCMKI 5668 S00193E E0 DEC R0 ;[ -1 or 1 <- 0 or 2 ] 5669 MG_BGCK_0050 5670 S00193F 15 TO R5 ;(R5) <-- 移動向き変更向き 5671 S001940 4F NOT 5672 S001941 D5 INC R5 5673 S001942 A4 00 IBT R4,#0 ;(R4) <-- 角度加算値 5674 S001944 60 SUB R0 ;[ IBT R0,#0 ] (R0) <-- 足補正値 5675 mDJMP MG_BGCK_0200 5675+ S001945 FF 19D7' IWT R15, #MG_BGCK_0200 5675+ S001948 01 NOP 5676 ; 5677 ;-------------- 足補正中心点ＢＧ当たって無い -------------------- 5678 MG_BGCK_0060 5679 S001949 EF GETB 5680 S00194A DE INC R14 5681 S00194B 3D EF GETBH ;(R0) <-- 足補正サイドチェックデータ 5682 ; 5683 S00194D 16 TO R6 ;(R6) <-- 足補正サイドＢＧ当たり情報 5684 S00194E 72 AND R2 5685 S00194F 08 22' BNE MG_BGCK_0080 ;足補正サイドＢＧ当たり？ ( yes:MG_BGCK_0080 ) 5686 S001951 DE INC R14 5687 ; 5688 S001952 EF GETB 5689 S001953 DE INC R14 5690 S001954 3D EF GETBH 5691 ; 5692 S001956 72 AND R2 5693 S001957 08 05' BNE MG_BGCK_0070 ;サイドＢＧ当たり？ ( yes:MG_BGCK_0070 ) 5694 S001959 01 NOP 5695 ; 5696 mDJMP MG_BGCK_0270 5696+ S00195A FF 19F6' IWT R15, #MG_BGCK_0270 5696+ S00195D 01 NOP 5697 ; 5698 MG_BGCK_0070 5699 S00195E 3D A5 62 LMS R5,CPLCMKI 5700 S001961 E5 DEC R5 ;[ -1 or 1 <- 0 or 2 ] (R5) <-- 移動向き変更向き 5701 ; 5702 S001962 BA FROM R10 5703 S001963 3E 7F AND #0FH 5704 S001965 09 08' BEQ MG_BGCK_0072 ;足補正？ ( no:MG_BGCK_0072 ) 5705 S001967 01 NOP 5706 ; 5707 S001968 3E 78 AND #08H 5708 S00196A 09 03' BEQ MG_BGCK_0072 5709 S00196C E0 DEC R0 ;[ IBT R0,#-1 ] 5710 ; 5711 S00196D A0 01 IBT R0,#1 5712 MG_BGCK_0072 5713 mDJMP MG_BGCK_0282 5713+ S00196F FF 1A06' IWT R15, #MG_BGCK_0282 5713+ S001972 01 NOP 5714 ; 5715 ;-------------- 足補正サイドＢＧ当たり -------------------------- 5716 MG_BGCK_0080 5717 S001973 B9 FROM R9 5718 S001974 1D TO R13 ;(R13) <-- 足補正中心点はみ出し値 5719 S001975 3E 7F AND #0FH 5720 ; 5721 S001977 66 SUB R6 5722 S001978 08 1C' BNE MG_BGCK_0110 ;足補正両サイドＢＧ当たり？ ( no:MG_BGCK_0110 ) 5723 S00197A 01 NOP 5724 ; 5725 ;-------------- 足補正両サイドＢＧ当たり ---------------- 5726 S00197B EF GETB 5727 S00197C DE INC R14 5728 S00197D 3D EF GETBH 5729 ; 5730 ;;;; TO R6 ;(R6) <-- サイドＢＧ当たりフラグ 5731 S00197F 72 AND R2 5732 ;;;; SUB R6 5733 ;;;; BEQ MG_BGCK_0070 ;サイドＢＧ両当たり？ ( yes:MG_BGCK_0070 ) 5734 S001980 08 DC' BNE MG_BGCK_0070 ;サイドＢＧ両当たり？ ( yes:MG_BGCK_0070 ) 5735 S001982 01 NOP 5736 ; 5737 S001983 3D A0 62 LMS R0,CPLCMKI 5738 S001986 E0 DEC R0 5739 S001987 15 TO R5 5740 S001988 4F NOT 5741 S001989 D5 INC R5 5742 ; 5743 ;;;; IBT R5,#-1 5744 S00198A B9 FROM R9 5745 S00198B 3E 78 AND #08H 5746 S00198D 09 37' BEQ MG_BGCK_0150 5747 S00198F 01 NOP 5748 ; 5749 ;;;; IBT R5,#1 ;(R5) <-- 移動向き変更向き 5750 S001990 2D WITH R13 ;(R13) <-- 足補正中心点はみ出し値 5751 S001991 3F CF XOR #0FH 5752 S001993 05 31' BRA MG_BGCK_0150 5753 S001995 01 NOP 5754 ; 5755 ;-------------- 足補正片サイドＢＧ当たり ---------------- 5756 MG_BGCK_0110 5757 S001996 EF GETB 5758 S001997 DE INC R14 5759 S001998 3D EF GETBH 5760 ; 5761 S00199A 72 AND R2 5762 S00199B 08 C1' BNE MG_BGCK_0070 ;サイドＢＧ当たり？ ( yes:MG_BGCK_0070 ) 5763 S00199D DE INC R14 5764 ; 5765 S00199E EF GETB 5766 S00199F DE INC R14 5767 S0019A0 3D EF GETBH ;(R0) <-- 足補正サイドチェックデータ 5768 ; 5769 S0019A2 A5 FF IBT R5,#-1 ;(R5) <-- 移動向き変更向き 5770 S0019A4 72 AND R2 5771 S0019A5 09 06' BEQ MG_BGCK_0120 ;左側サイドＢＧ当たり？ ( no:MG_BGCK_0120 ) 5772 S0019A7 DE INC R14 5773 ; 5774 S0019A8 A5 01 IBT R5,#1 ;(R5) <-- 移動向き変更向き 5775 S0019AA 2D WITH R13 ;(R13) <-- 足補正中心点はみ出し値 5776 S0019AB 3F CF XOR #0FH 5777 MG_BGCK_0120 5778 S0019AD BD FROM R13 5779 S0019AE 3E 63 SUB #3 ;[ 3:ＢＧチェック猶予値 ] 5780 S0019B0 3E 65 SUB #8-3 5781 S0019B2 0C 12' BCC MG_BGCK_0150 ;下側へ移動向き変更？ ( no:MG_BGCK_0150 ) 5782 S0019B4 01 NOP 5783 ; 5784 S0019B5 EF GETB 5785 S0019B6 DE INC R14 5786 S0019B7 3D EF GETBH ;(R0) <-- 頭両サイドチェックデータ 5787 ; 5788 S0019B9 72 AND R2 5789 S0019BA 08 0A' BNE MG_BGCK_0150 ;頭両サイドＢＧ当たり？ ( yes:MG_BGCK_0150 ) 5790 S0019BC 01 NOP 5791 ; 5792 S0019BD 3D A0 5A LMS R0,CPLMVSP 5793 S0019C0 3D C5 XOR R5 5794 S0019C2 0B 02' BMI MG_BGCK_0150 ;移動方向ＯＫ？ ( no:MG_BGCK_0150 ) 5795 S0019C4 01 NOP 5796 ; 5797 S0019C5 DC INC R12 ;下側へ自動移動向き変更！！ 5798 ; 5799 MG_BGCK_0150 5800 S0019C6 F0 0000" IWT R0,#MG_FOOTHSD 5801 S0019C9 5D ADD R13 5802 S0019CA 1E TO R14 5803 S0019CB 5D ADD R13 5804 S0019CC 14 TO R4 ;(R4) <-- 角度加算値 5805 S0019CD EF GETB 5806 S0019CE 25 B5 MOVES R5,R5 5807 S0019D0 0B 03' BMI MG_BGCK_0160 5808 S0019D2 24 WITH R4 5809 ; 5810 S0019D3 4F NOT 5811 S0019D4 D4 INC R4 5812 MG_BGCK_0160 5813 S0019D5 DE INC R14 5814 S0019D6 EF GETB ;(R0) <-- 足補正値 5815 ; 5816 ;-------------- 足補正ＯＫチェック ------------------------------ 5817 MG_BGCK_0200 5818 S0019D7 20 16 MOVE R6,R0 ;(R6) <-- 足補正値 5819 S0019D9 BA FROM R10 5820 S0019DA 3E 7F AND #0FH 5821 S0019DC 1E TO R14 ;[ * not break (R0) ] 5822 S0019DD 3E 6C SUB #010H-04H ;[ -04H:ＢＧチェック猶予範囲 ] 5823 S0019DF 0C 04' BCC MG_BGCK_0250 5824 S0019E1 01 NOP 5825 ; 5826 S0019E2 AE 10 IBT R14,#010H 5827 S0019E4 6E SUB R14 5828 MG_BGCK_0250 5829 S0019E5 66 SUB R6 5830 S0019E6 1E TO R14 ;[ * not break (R0) ] 5831 S0019E7 3E 68 SUB #08H 5832 S0019E9 0A 0B' BPL MG_BGCK_0260 ;足補正ＯＫ？ ( no:MG_BGCK_0260 ) 5833 S0019EB 01 NOP 5834 ; 5835 ;-------------- 足引っ張り補正チェック ------------------ 5836 S0019EC 3D AE 60 LMS R14,CPLJUMP 5837 S0019EF EE DEC R14 5838 S0019F0 0B 08' BMI MG_BGCK_0280 ;ジャンプ中？ ( no:MG_BGCK_0280 ) 5839 S0019F2 DE INC R14 5840 ; 5841 S0019F3 0C 05' BCC MG_BGCK_0280 ;足補正方向ＯＫ？ ( yes:MG_BGCK_0280 ) 5842 S0019F5 01 NOP 5843 ; 5844 ;-------------- 落下！！ -------------------------------- 5845 MG_BGCK_0260 5846 ;;;; WITH R2 ;足当たりキャンセル 5847 ;;;; BIC #00000111B 5848 MG_BGCK_0270 5849 mDJMP MG_BGCK_0303 5849+ S0019F6 FF 1A56' IWT R15, #MG_BGCK_0303 5849+ S0019F9 01 NOP 5850 ; 5851 ;-------------- 足補正 ---------------------------------- 5852 MG_BGCK_0280 5853 ;;;; NOT 5854 ;;;; INC R0 5855 S0019FA 3E 60 SUB #0 5856 S0019FC 09 0A' BEQ MG_BGCK_0290 5857 S0019FE 01 NOP 5858 ; 5859 S0019FF A0 FF IBT R0,#-1 5860 S001A01 0A 03' BPL MG_BGCK_0282 5861 S001A03 01 NOP 5862 ; 5863 S001A04 A0 01 IBT R0,#1 5864 MG_BGCK_0282 5865 S001A06 1A TO R10 5866 S001A07 5A ADD R10 5867 ; 5868 MG_BGCK_0290 5869 S001A08 60 SUB R0 ;[ IBT R0,#0 ] 5870 S001A09 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＦＦ” 5871 ; 5872 ;-------------- 移動向き下側へ変更チェック -------------- 5873 S001A0C EC DEC R12 5874 S001A0D 0A 0B' BPL MG_BGCK_0292 ;下側へ自動移動向き変更？ ( yes:MG_BGCK_0292 ) 5875 S001A0F DC INC R12 5876 ; 5877 S001A10 F0 0000" IWT R0,#MG_DWMKCHG 5878 S001A13 1E TO R14 5879 S001A14 51 ADD R1 5880 S001A15 EF GETB 5881 ; 5882 S001A16 77 AND R7 5883 S001A17 09 0F' BEQ MG_BGCK_0300 ;移動向き下側へ変更？ ( no:MG_BGCK_0300 ) 5884 S001A19 01 NOP 5885 ; 5886 ;-------------- 移動向き下側へ変更 ---------------------- 5887 MG_BGCK_0292 5888 S001A1A B1 FROM R1 5889 S001A1B 55 ADD R5 5890 S001A1C 3E 73 AND #03H 5891 S001A1E 3E A0 C1 SMS R0,CPMG_MVMK 5892 S001A21 EC DEC R12 5893 S001A22 0A 04' BPL MG_BGCK_0300 ;下側へ自動移動向き変更？ ( yes:MG_BGCK_0300 ) 5894 S001A24 DC INC R12 5895 ; 5896 S001A25 3E A0 C0 SMS R0,CPMG_KEYF ;移動キーロックフラグセット 5897 ; 5898 ;---------------------------------------------------------------- 5899 ;- 頭補正チェック - 5900 ;---------------------------------------------------------------- 5901 MG_BGCK_0300 5902 S001A28 B1 FROM R1 5903 S001A29 3E 87 MULT #(3*2)+1 5904 S001A2B FE 0000" IWT R14,#MG_HEADBGP 5905 S001A2E 1E TO R14 5906 S001A2F 5E ADD R14 5907 S001A30 EF GETB 5908 S001A31 DE INC R14 5909 S001A32 3D EF GETBH ;(R0) <-- 頭チェックデータ 5910 ; 5911 S001A34 72 AND R2 5912 S001A35 09 08' BEQ MG_BGCK_0302 ;頭中心点ＢＧ当たり？ ( no:MG_BGCK_0302 ) 5913 S001A37 DE INC R14 5914 ; 5915 S001A38 73 AND R3 5916 S001A39 08 30' BNE MG_BGCK_0310 ;頭中心点壊れるＢＧ？ ( yes:MG_BGCK_0310 ) 5917 S001A3B 15 TO R5 ;[ IBT R5,#0 ] 移動向き変更無し！！ 5918 ; ; 5919 S001A3C 05 3F' BRA MG_BGCK_0400 ; 5920 S001A3E 60 SUB R0 ; 5921 5922 ;-------------- 頭中心点ＢＧ当たって無い ------------------------ 5923 MG_BGCK_0302 5924 S001A3F EF GETB 5925 S001A40 DE INC R14 5926 S001A41 3D EF GETBH ;(R0) <-- 頭サイドチェックデータ 5927 ; 5928 S001A43 16 TO R6 ;(R6) <-- 頭サイドＢＧ当たり情報 5929 S001A44 72 AND R2 5930 S001A45 08 20' BNE MG_BGCK_0304 ;頭サイドＢＧ当たり？ ( yes:MG_BGCK_0304 ) 5931 S001A47 DE INC R14 5932 ; 5933 S001A48 DE INC R14 5934 S001A49 DE INC R14 5935 S001A4A EF GETB 5936 ; 5937 S001A4B 3D F6 0073 LM R6,CMKEYC2 ;(R6) <-- コントローラー情報（トリガー） 5938 S001A4F 76 AND R6 5939 S001A50 09 3F' BEQ MG_BGCK_0500 ;上キー入力？ ( no:MG_BGCK_0500 ) 5940 S001A52 01 NOP 5941 ; 5942 S001A53 2A WITH R10 ;Ｙ座標離す！！ 5943 S001A54 3E 64 SUB #4 5944 ; 5945 ;-------------- 落下！！ -------------------------------- 5946 MG_BGCK_0303 5947 S001A56 60 SUB R0 ;[ IBT R0,#0 ] 移動方向（下）へ 5948 S001A57 3E A0 C1 SMS R0,CPMG_MVMK 5949 S001A5A 3E A0 C0 SMS R0,CPMG_KEYF ;移動キーロックフラグセット 5950 S001A5D F0 0008 IWT R0,#P008 5951 S001A60 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＮ” 5952 mDJMP MG_BGCK_0500 5952+ S001A63 FF 1A91' IWT R15, #MG_BGCK_0500 5952+ S001A66 01 NOP 5953 ; 5954 ;-------------- 頭サイドＢＧ当たり ------------------------------ 5955 MG_BGCK_0304 5956 S001A67 66 SUB R6 5957 S001A68 08 07' BNE MG_BGCK_0360 ;頭両サイドＢＧ当たり？ ( no:MG_BGCK_0360 ) 5958 S001A6A 01 NOP 5959 ; 5960 ;-------------- 頭補正両サイドＢＧ当たり ---------------- 5961 MG_BGCK_0310 5962 S001A6B 3D A5 62 LMS R5,CPLCMKI ;(R5) <-- 移動向き変更向き 5963 S001A6E 05 0D' BRA MG_BGCK_0400 5964 S001A70 E5 DEC R5 ;[ (R5) <-- -1 or 1 ] 5965 ; 5966 ;-------------- 頭補正片サイドＢＧ当たり ---------------- 5967 MG_BGCK_0360 5968 S001A71 EF GETB 5969 S001A72 DE INC R14 5970 S001A73 3D EF GETBH ;(R0) <-- 頭サイドチェックデータ 5971 ; 5972 S001A75 A5 01 IBT R5,#1 ;(R5) <-- 移動向き変更向き 5973 S001A77 72 AND R2 5974 S001A78 08 03' BNE MG_BGCK_0400 ;左側サイドＢＧ当たり？ ( yes:MG_BGCK_0400 ) 5975 S001A7A 01 NOP 5976 ; 5977 S001A7B A5 FF IBT R5,#-1 ;(R5) <-- 移動向き変更向き 5978 ; 5979 ;-------------- 移動向き上側へ変更チェック -------------- 5980 MG_BGCK_0400 5981 S001A7D F0 0000" IWT R0,#MG_UPMKCHG 5982 S001A80 1E TO R14 5983 S001A81 51 ADD R1 5984 S001A82 EF GETB 5985 ; 5986 S001A83 77 AND R7 5987 S001A84 09 0B' BEQ MG_BGCK_0500 ;移動向き上側へ変更？ ( no:MG_BGCK_0500 ) 5988 S001A86 01 NOP 5989 ; 5990 ;-------------- 移動向き上側へ変更 ---------------------- 5991 S001A87 B1 FROM R1 5992 S001A88 55 ADD R5 5993 S001A89 3E 73 AND #03H 5994 S001A8B 3E A0 C1 SMS R0,CPMG_MVMK 5995 S001A8E 3E A0 C0 SMS R0,CPMG_KEYF ;移動キーロックフラグセット 5996 ; 5997 ;---------------------------------------------------------------- 5998 ;- サイド補正チェック - 5999 ;---------------------------------------------------------------- 6000 MG_BGCK_0500 6001 S001A91 A0 10 IBT R0,#8*2 6002 S001A93 81 MULT R1 6003 S001A94 FE 0000" IWT R14,#MG_SIDEBGP 6004 S001A97 1E TO R14 6005 S001A98 5E ADD R14 6006 S001A99 EF GETB 6007 S001A9A DE INC R14 6008 S001A9B 3D EF GETBH 6009 ; 6010 S001A9D 1C TO R12 ;(R12) <-- サイドＢＧ当たりフラグ 6011 S001A9E 72 AND R2 6012 S001A9F 08 05' BNE MG_BGCK_0501 ;サイドＢＧ当たり？ ( yes:MG_BGCK_0501 ) 6013 S001AA1 01 NOP 6014 ; 6015 mDJMP MG_BGCK_0700 6015+ S001AA2 FF 1B7C' IWT R15, #MG_BGCK_0700 6015+ S001AA5 01 NOP 6016 ; 6017 ;-------------- サイドＢＧ当たり -------------------------------- 6018 MG_BGCK_0501 6019 S001AA6 20 16 MOVE R6,R0 ;(R6) <-- サイドＢＧ当たりチェックデータ 6020 S001AA8 1B TO R11 ;(R11) <-- 両サイドＢＧ当たりフラグ 6021 S001AA9 6C SUB R12 6022 ; 6023 S001AAA BC FROM R12 6024 S001AAB 73 AND R3 ;壊れるＢＧによるＢＧ当たりフラグ反転 6025 S001AAC 1C TO R12 ;(R12) <-- 壊れるＢＧによるサイドＢＧ当たりフラグ 6026 S001AAD 3D CC XOR R12 6027 ; 6028 S001AAF 26 WITH R6 ;(R6) <-- 壊れるＢＧによる両サイドＢＧ当たりフラグ 6029 S001AB0 6C SUB R12 6030 ; 6031 S001AB1 B9 FROM R9 6032 S001AB2 3E 7F AND #0FH 6033 S001AB4 08 22' BNE MG_BGCK_0510 ;Ｘ座標補正？ ( yes:MG_BGCK_0510 ) 6034 S001AB6 DE INC R14 6035 ; 6036 ;-------------- Ｘ座標補正無しならどっちサイドＢＧ当たり？ - 6037 S001AB7 2C BC MOVES R12,R12 6038 S001AB9 09 39' BEQ MG_BGCK_0522 ;壊れるＢＧでサイドＢＧ当たりキャンセル？ ( yes:MG_BGCK_0522 ) 6039 S001ABB 01 NOP 6040 ; 6041 S001ABC 26 B6 MOVES R6,R6 6042 S001ABE 08 07' BNE MG_BGCK_0502 ;両サイドＢＧ当たり？ ( no:MG_BGCK_0502 ) 6043 S001AC0 01 NOP 6044 ; 6045 S001AC1 2E WITH R14 6046 S001AC2 3E 56 ADD #6 6047 S001AC4 05 77' BRA MG_BGCK_0530 6048 S001AC6 01 NOP 6049 ; 6050 MG_BGCK_0502 6051 S001AC7 EF GETB 6052 S001AC8 DE INC R14 6053 S001AC9 3D EF GETBH ;(R0) <-- 左サイド点ＢＧ当たりチェックデータ 6054 S001ACB DE INC R14 6055 ; 6056 S001ACC DE INC R14 6057 ; 6058 S001ACD A5 01 IBT R5,#1 ;(R5) <-- 移動向き変更向き 6059 S001ACF 7C AND R12 6060 S001AD0 08 6B' BNE MG_BGCK_0530 ;左サイドＢＧ当たり？ ( yes:MG_BGCK_0530 ) 6061 S001AD2 DE INC R14 6062 ; 6063 S001AD3 A5 FF IBT R5,#-1 ;(R5) <-- 移動向き変更向き 6064 S001AD5 05 66' BRA MG_BGCK_0530 6065 S001AD7 01 NOP 6066 ; 6067 ;-------------- Ｘ座標補正 ------------------------------ 6068 MG_BGCK_0510 6069 S001AD8 A5 01 IBT R5,#1 ;(R5) <-- 補正値 6070 S001ADA 3E 78 AND #08H 6071 S001ADC 08 05' BNE MG_BGCK_0520 ;右へ補正？ ( yes:MG_BGCK_0520 ) 6072 S001ADE 01 NOP 6073 ; 6074 S001ADF A5 FF IBT R5,#-1 ;(R5) <-- 補正値 6075 S001AE1 DE INC R14 6076 S001AE2 DE INC R14 6077 MG_BGCK_0520 6078 S001AE3 EF GETB 6079 S001AE4 DE INC R14 6080 S001AE5 3D EF GETBH 6081 ; 6082 S001AE7 72 AND R2 6083 ;;;; BEQ MG_BGCK_0700 ;Ｘ座標補正ＯＫ？ ( no:MG_BGCK_0700 ) 6084 S001AE8 09 0A' BEQ MG_BGCK_0522 ;Ｘ座標補正ＯＫ？ ( no:MG_BGCK_0700 ) 6085 S001AEA 01 NOP 6086 ; 6087 S001AEB 29 WITH R9 ;Ｘ座標補正 6088 S001AEC 55 ADD R5 6089 ; 6090 S001AED FE 0006" IWT R14,#MG_SIDEBGP+6 ;足頭中心点へ 6091 ; 6092 S001AF0 7C AND R12 6093 S001AF1 08 4A' BNE MG_BGCK_0530 ;壊れるＢＧでサイドＢＧ当たりキャンセル？ ( no:MG_BGCK_0530 ) 6094 S001AF3 01 NOP 6095 ; 6096 ;-------------- 壊れるＢＧでの引っかけ ------------------ 6097 MG_BGCK_0522 6098 S001AF4 2B BB MOVES R11,R11 6099 S001AF6 09 42' BEQ MG_BGCK_0526 ;両サイドＢＧ当たり？ ( yes:MG_BGCK_0526 ) 6100 S001AF8 01 NOP 6101 ; 6102 S001AF9 A0 10 IBT R0,#8*2 6103 S001AFB 81 MULT R1 6104 S001AFC FE 0006" IWT R14,#MG_SIDEBGP+6 6105 S001AFF 1E TO R14 6106 S001B00 5E ADD R14 6107 S001B01 EF GETB 6108 S001B02 DE INC R14 6109 S001B03 3D EF GETBH 6110 ; 6111 S001B05 72 AND R2 6112 S001B06 08 74' BNE MG_BGCK_0700 ;足頭中心点ＢＧ当たり？ ( yes:MG_BGCK_0700 ) 6113 MG_BGCK_0523 6114 S001B08 EE DEC R14 6115 ; 6116 S001B09 EE DEC R14 ;右サイドＢＧ当たりチェックデータへ 6117 ; 6118 S001B0A 3D EF GETBH 6119 S001B0C EE DEC R14 6120 S001B0D 3E EF GETBL 6121 ; 6122 S001B0F 2E WITH R14 ;左右キーデータへ 6123 S001B10 3E 54 ADD #4 6124 ; 6125 S001B12 A5 01 IBT R5,#1 ;(R5) <-- Ｘ座標補正値 6126 S001B14 72 AND R2 6127 S001B15 09 05' BEQ MG_BGCK_0524 ;右サイドＢＧ当たり？ ( no:MG_BGCK_0524 ) 6128 S001B17 01 NOP 6129 ; 6130 S001B18 A5 FF IBT R5,#-1 ;(R5) <-- Ｘ座標補正値 6131 S001B1A DE INC R14 6132 S001B1B DE INC R14 6133 MG_BGCK_0524 6134 S001B1C EF GETB 6135 S001B1D 77 AND R7 6136 S001B1E 08 5C' BNE MG_BGCK_0700 ;左右キー入力？ ( yes:MG_BGCK_0700 ) 6137 S001B20 01 NOP 6138 ; 6139 S001B21 2E WITH R14 6140 S001B22 3E 54 ADD #4 6141 S001B24 EF GETB 6142 S001B25 DE INC R14 6143 S001B26 3D EF GETBH ;(R0) <-- 足両サイドＢＧ当たりチェックデータ 6144 ; 6145 S001B28 72 AND R2 6146 S001B29 08 51' BNE MG_BGCK_0700 ;反対側足サイドＢＧ当たり？ ( yes:MG_BGCK_0700 ) 6147 S001B2B 60 SUB R0 ;[ IBT R0,#0 ] 移動方向（下）へ 6148 ; 6149 ;-------------- 落下 ------------------------------------ 6150 S001B2C 29 WITH R9 ;Ｘ座標補正 6151 S001B2D 55 ADD R5 6152 ; 6153 S001B2E 3E A0 C1 SMS R0,CPMG_MVMK 6154 S001B31 3E A0 C0 SMS R0,CPMG_KEYF ;移動キーロックフラグセット 6155 S001B34 F0 0008 IWT R0,#P008 6156 S001B37 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＮ” 6157 ; 6158 MG_BGCK_0526 6159 S001B3A 05 40' BRA MG_BGCK_0700 6160 S001B3C 01 NOP 6161 ; 6162 ;-------------- 移動向き変更チェック -------------------- 6163 MG_BGCK_0530 6164 S001B3D EF GETB 6165 S001B3E DE INC R14 6166 S001B3F 3D EF GETBH 6167 ; 6168 S001B41 1D TO R13 ;(R13) <-- 足頭中心点ＢＧ当たりフラグ 6169 S001B42 72 AND R2 6170 S001B43 08 09' BNE MG_BGCK_0550 ;足頭中心点ＢＧ当たり？ ( yes:MG_BGCK_0550 ) 6171 S001B45 DE INC R14 6172 ; 6173 ;-------------- 引っかけ -------------------------------- 6174 S001B46 2C BC MOVES R12,R12 6175 S001B48 09 0D' BEQ MG_BGCK_0560 ;両サイドＢＧ当たり？ ( yes:MG_BGCK_0560 ) 6176 S001B4A 01 NOP 6177 ; 6178 ;;;; BRA MG_BGCK_0650 6179 S001B4B 05 BB' BRA MG_BGCK_0523 6180 S001B4D EE DEC R14 6181 ; 6182 ;-------------- 上下側へ移動向き変更 -------------------- 6183 MG_BGCK_0550 6184 S001B4E 6D SUB R13 6185 S001B4F 09 2B' BEQ MG_BGCK_0700 ;足頭中心点ＢＧ両当たり？ ( yes:MG_BGCK_0700 ) 6186 S001B51 01 NOP 6187 ; 6188 S001B52 26 B6 MOVES R6,R6 6189 S001B54 08 13' BNE MG_BGCK_0570 ;両サイドＢＧ当たり？ ( no:MG_BGCK_0570 ) 6190 S001B56 01 NOP 6191 ; 6192 ;-------------- 両サイドＢＧ当たりでキー入力の方向へ ---- 6193 MG_BGCK_0560 6194 S001B57 A5 01 IBT R5,#1 ;(R5) <-- 移動向き変更向き 6195 S001B59 EF GETB ;(R0) <-- 左キー 6196 S001B5A DE INC R14 6197 S001B5B 77 AND R7 6198 S001B5C 08 17' BNE MG_BGCK_0650 ;左へ移動向き変更？ ( yes:MG_BGCK_0650 ) 6199 S001B5E DE INC R14 6200 ; 6201 S001B5F A5 FF IBT R5,#-1 ;(R5) <-- 移動向き変更向き 6202 S001B61 EF GETB 6203 S001B62 77 AND R7 6204 S001B63 08 10' BNE MG_BGCK_0650 ;右へ移動向き変更？ ( yes:MG_BGCK_0650 ) 6205 S001B65 01 NOP 6206 ; 6207 S001B66 05 14' BRA MG_BGCK_0700 6208 S001B68 01 NOP 6209 ; 6210 ;-------------- 片サイドＢＧ当たりで移動向き変更チェック - 6211 MG_BGCK_0570 6212 S001B69 25 B5 MOVES R5,R5 6213 S001B6B 0A 03' BPL MG_BGCK_0600 ;左サイド当たり？ ( yes:MG_BGCK_0600 ) 6214 S001B6D 01 NOP ;[ 左キーチェック ] 6215 ; 6216 S001B6E DE INC R14 ;[ 右キーチェック ] 6217 S001B6F DE INC R14 6218 MG_BGCK_0600 6219 S001B70 EF GETB 6220 S001B71 77 AND R7 6221 S001B72 09 08' BEQ MG_BGCK_0700 ;ＢＧ当たりサイド側キー入力？ ( no:MG_BGCK_0700 ) 6222 S001B74 01 NOP 6223 ; 6224 ;-------------- 移動向き上下側へ変更 -------------------- 6225 MG_BGCK_0650 6226 S001B75 B1 FROM R1 6227 S001B76 55 ADD R5 6228 S001B77 3E 73 AND #03H 6229 S001B79 3E A0 C1 SMS R0,CPMG_MVMK 6230 ; 6231 ;---------------------------------------------------------------- 6232 ;- 補正チェック後処理 - 6233 ;---------------------------------------------------------------- 6234 MG_BGCK_0700 6235 S001B7C B8 FROM R8 6236 S001B7D 03 LSR 6237 S001B7E 0C 04' BCC MG_BGCK_0750 ;Ｙ符号反転？ ( no:MG_BGCK_0750 ) 6238 S001B80 03 LSR 6239 ; 6240 S001B81 2A WITH R10 6241 S001B82 4F NOT 6242 S001B83 DA INC R10 6243 MG_BGCK_0750 6244 S001B84 0C 04' BCC MG_BGCK_0800 ;Ｘ符号反転？ ( no:MG_BGCK_0800 ) 6245 S001B86 01 NOP 6246 ; 6247 S001B87 29 WITH R9 6248 S001B88 4F NOT 6249 S001B89 D9 INC R9 6250 MG_BGCK_0800 6251 S001B8A B1 FROM R1 6252 S001B8B 03 LSR 6253 S001B8C 0C 07' BCC MG_BGCK_0850 ;Ｙ座標補正？ ( yes:MG_BGCK_0850 ) 6254 S001B8E 01 NOP 6255 ; 6256 S001B8F 29 1E MOVE R14,R9 ;Ｘ⇔Ｙ入れ替え 6257 S001B91 2A 19 MOVE R9,R10 6258 S001B93 2E 1A MOVE R10,R14 6259 ; 6260 ;-------------- 目標角度セット ---------------------------------- 6261 MG_BGCK_0850 6262 S001B95 3D A0 C1 LMS R0,CPMG_MVMK 6263 S001B98 FE 0000" IWT R14,#MG_MVANGL 6264 S001B9B 1E TO R14 6265 S001B9C 5E ADD R14 6266 S001B9D EF GETB 6267 ; 6268 S001B9E 3E A0 5B SMS R0,CPLANGL ;移動角度セット 6269 S001BA1 54 ADD R4 ;目標角度加算値加算 6270 S001BA2 9E LOB 6271 ; 6272 S001BA3 3D AE 62 LMS R14,CPLCMKI 6273 S001BA6 EE DEC R14 6274 S001BA7 0A 03' BPL MG_BGCK_0900 6275 S001BA9 4D SWAP ;x100H 6276 ; 6277 S001BAA 4F NOT 6278 S001BAB D0 INC R0 6279 MG_BGCK_0900 6280 S001BAC 3E A0 C2 SMS R0,CPMG_TOAN ;目標角度セット 6281 ; 6282 ;------------------------------------------------------------------------ 6283 ;- ＢＧチェック結果データセット - 6284 ;------------------------------------------------------------------------ 6285 mDJMP PL_BGCK_0300 6285+ S001BAF FF 0000" IWT R15, #PL_BGCK_0300 6285+ S001BB2 01 NOP 6286 ; 6287 ; 6288 ;------------------------------------------------------------------------ 6289 ;- １点チェック - 6290 ;- in : - 6291 ;- (R1) <-- ＢＧ当たりチェックデータ - 6292 ;- (R2) <-- ＢＧ当たりフラグ - 6293 ;- (R3) <-- 壊れるＢＧ当たりフラグ - 6294 ;- (R4) <-- ” 角度 - 6295 ;- (R9) <-- プレイヤーＸ座標 - 6296 ;- (R10) <-- ” Ｙ ” - 6297 ;- (R11) <-- 復帰アドレス - 6298 ;- (R14) <-- ＢＧチェックポイント - 6299 ;- データアドレス - 6300 ;- out : - 6301 ;- (R0) <-- BG unit no. type - 6302 ;- (R6) <-- BG unit no. - 6303 ;- (R7) <-- BG unit no. type - 6304 ;- (R8) <-- BG type status data - 6305 ;- (CWK0) <- ＢＧチェックＸ座標 - 6306 ;- (CWK1) <- ” Ｙ ” - 6307 ;- break : - 6308 ;- (R5) - 6309 ;- (R12) - 6310 ;- (R13) - 6311 ;- use RAM : - 6312 ;- (RTS0) - 6313 ;- (RTS1) - 6314 ;- (CWKE) - 6315 ;- (CWKF) - 6316 ;------------------------------------------------------------------------ 6317 MG_BGCK_1P_IN 6318 S001BB3 3E AB 31 SMS R11,RTS1 ;[ return address save ] 6319 ; 6320 ;-------------- ＢＧ当たりチェック -------------------------------------- 6321 mJSR_X BGUNIT_READ 6321+ S001BB6 94 LINK #4 6321+ S001BB7 FF 0000" IWT R15, #BGUNIT_READ 6322 S001BBA 02 CACHE 6323 ; 6324 S001BBB 05 0A' BRA MG_BGCK_1P_0010+1 6325 S001BBD 22 WITH R2 6326 ; 6327 MG_BGCK_1P 6328 S001BBE 3E AB 31 SMS R11,RTS1 ;[ return address save ] 6329 ; 6330 ;-------------- ＢＧ当たりチェック -------------------------------------- 6331 mJSR_X BGUNIT_READ+1 6331+ S001BC1 94 LINK #4 6331+ S001BC2 FF 0001" IWT R15, #BGUNIT_READ+1 6332 S001BC5 3F HEX 3F ;[ ALT3 ( GETBS ) ] 6333 ; 6334 MG_BGCK_1P_0010 6335 S001BC6 22 WITH R2 ;[ ASL R2 ] 6336 S001BC7 52 ADD R2 6337 ; 6338 S001BC8 71 AND R1 6339 S001BC9 09 02' BEQ MG_BGCK_1P_0020 ;ＢＧ当たり？ ( no:MG_BGCK_1P_0020 ) 6340 S001BCB 01 NOP 6341 ; 6342 S001BCC D2 INC R2 6343 MG_BGCK_1P_0020 6344 ; 6345 ;------------------------------------------------------------------------ 6346 ;- モグラ用特殊ＢＧ当たりチェック - 6347 ;- in : - 6348 ;- (R2) <-- ＢＧ当たりフラグ - 6349 ;- (R3) <-- 壊れるＢＧ当たりフラグ - 6350 ;- (R4) <-- ” 角度 - 6351 ;- (R9) <-- プレイヤーＸ座標 - 6352 ;- (R10) <-- ” Ｙ ” - 6353 ;- (R14) <-- ＢＧチェックポイント - 6354 ;- データアドレス - 6355 ;- (RTS1) <- 復帰アドレス - 6356 ;- out : - 6357 ;- (R6) <-- BG unit no. - 6358 ;- (R7) <-- BG unit no. type - 6359 ;- (CWK0) <- ＢＧチェックＸ座標 - 6360 ;- (CWK1) <- ” Ｙ ” - 6361 ;- break : - 6362 ;- (R1) - 6363 ;- (R5) - 6364 ;- use RAM : - 6365 ;- (RTS0) - 6366 ;------------------------------------------------------------------------ 6367 MGBG_SP_CK 6368 mJSR BG_SP_CHECK ;特殊ＢＧ当たりチェック 6368+ S001BCD 94 LINK #4 6368+ S001BCE FF 0000" IWT R15, #BG_SP_CHECK 6368+ S001BD1 01 NOP 6369 ; 6370 S001BD2 23 WITH R3 ;[ ASL R3 ] 壊れるＢＧ当たりフラグセット 6371 S001BD3 53 ADD R3 6372 ; 6373 S001BD4 F0 F800 IWT R0,#1111100000000000B 6374 S001BD7 77 AND R7 6375 S001BD8 C0 HIB 6376 ; 6377 S001BD9 03 LSR ;[ JSRSUB ] 6378 S001BDA D0 INC R0 ; 6379 S001BDB 1F TO R15 ; 6380 S001BDC 5F ADD R15 ; 6381 S001BDD FF HEX FF ; 6382 ; 6383 mTWORD MGBG_SP_CK_010 ;[無し] 6383+ S001BDE 1C95' WORD MGBG_SP_CK_010 6383+ S001BE0 01 NOP 6383+ S001BE1 01 NOP 6384 mTWORD MGBG_SP_CK_010 ;[雪、草の上] 6384+ S001BE2 1C95' WORD MGBG_SP_CK_010 6384+ S001BE4 01 NOP 6384+ S001BE5 01 NOP 6385 mTWORD MGBG_SP_CK_010 ;[せっけん] 6385+ S001BE6 1C95' WORD MGBG_SP_CK_010 6385+ S001BE8 01 NOP 6385+ S001BE9 01 NOP 6386 mTWORD MGBG_SP_CK_010 ;[へこみ床] 6386+ S001BEA 1C95' WORD MGBG_SP_CK_010 6386+ S001BEC 01 NOP 6386+ S001BED 01 NOP 6387 mTWORD MGBG_SP_CK_010 ;[ゴム床] 6387+ S001BEE 1C95' WORD MGBG_SP_CK_010 6387+ S001BF0 01 NOP 6387+ S001BF1 01 NOP 6388 mTWORD MGBG_SP_CK_010 ;[溶岩] 6388+ S001BF2 1C95' WORD MGBG_SP_CK_010 6388+ S001BF4 01 NOP 6388+ S001BF5 01 NOP 6389 mTWORD COIN_CROSS ;[コイン] 6389+ S001BF6 0000" WORD COIN_CROSS 6389+ S001BF8 01 NOP 6389+ S001BF9 01 NOP 6390 mTWORD MGBG_SP_CK_010 ;[？ブロック] 6390+ S001BFA 1C95' WORD MGBG_SP_CK_010 6390+ S001BFC 01 NOP 6390+ S001BFD 01 NOP 6391 mTWORD BREAK_CROSS ;[食べれるＢＧ] 6391+ S001BFE 1C4E' WORD BREAK_CROSS 6391+ S001C00 01 NOP 6391+ S001C01 01 NOP 6392 mTWORD MGBG_SP_CK_010 ;[線路] 6392+ S001C02 1C95' WORD MGBG_SP_CK_010 6392+ S001C04 01 NOP 6392+ S001C05 01 NOP 6393 mTWORD FAIL_CROSS ;[当たるとダメージ] 6393+ S001C06 0000" WORD FAIL_CROSS 6393+ S001C08 01 NOP 6393+ S001C09 01 NOP 6394 mTWORD MGBG_SP_CK_010 ;[杭] 6394+ S001C0A 1C95' WORD MGBG_SP_CK_010 6394+ S001C0C 01 NOP 6394+ S001C0D 01 NOP 6395 mTWORD MGBG_SP_CK_010 ;[左下階段] 6395+ S001C0E 1C95' WORD MGBG_SP_CK_010 6395+ S001C10 01 NOP 6395+ S001C11 01 NOP 6396 mTWORD MGBG_SP_CK_010 ;[右下階段] 6396+ S001C12 1C95' WORD MGBG_SP_CK_010 6396+ S001C14 01 NOP 6396+ S001C15 01 NOP 6397 mTWORD MGBG_SP_CK_010 ;[乗ったら落ちる床] 6397+ S001C16 1C95' WORD MGBG_SP_CK_010 6397+ S001C18 01 NOP 6397+ S001C19 01 NOP 6398 mTWORD MGBG_SP_CK_010 ;[点線ブロック] 6398+ S001C1A 1C95' WORD MGBG_SP_CK_010 6398+ S001C1C 01 NOP 6398+ S001C1D 01 NOP 6399 mTWORD MGBG_SP_CK_010 ;[マリオブロック] 6399+ S001C1E 1C95' WORD MGBG_SP_CK_010 6399+ S001C20 01 NOP 6399+ S001C21 01 NOP 6400 mTWORD MGBG_SP_CK_010 ;[ちくわブロック] 6400+ S001C22 1C95' WORD MGBG_SP_CK_010 6400+ S001C24 01 NOP 6400+ S001C25 01 NOP 6401 mTWORD MGBG_SP_CK_010 ;[カウントブロック] 6401+ S001C26 1C95' WORD MGBG_SP_CK_010 6401+ S001C28 01 NOP 6401+ S001C29 01 NOP 6402 mTWORD MGBG_SP_CK_010 ;[滝床（ぴちゃぴちゃ）] 6402+ S001C2A 1C95' WORD MGBG_SP_CK_010 6402+ S001C2C 01 NOP 6402+ S001C2D 01 NOP 6403 mTWORD MGBG_SP_CK_010 ;[ドカン] 6403+ S001C2E 1C95' WORD MGBG_SP_CK_010 6403+ S001C30 01 NOP 6403+ S001C31 01 NOP 6404 mTWORD SUGI_CROSS ;[杉の木] 6404+ S001C32 0000" WORD SUGI_CROSS 6404+ S001C34 01 NOP 6404+ S001C35 01 NOP 6405 mTWORD CLR_COIN_CROSS ;[点線コイン] 6405+ S001C36 0000" WORD CLR_COIN_CROSS 6405+ S001C38 01 NOP 6405+ S001C39 01 NOP 6406 mTWORD MGBG_SP_CK_010 ;[氷ブロック] 6406+ S001C3A 1C95' WORD MGBG_SP_CK_010 6406+ S001C3C 01 NOP 6406+ S001C3D 01 NOP 6407 mTWORD MGBG_SP_CK_010 ;[ぐらぐら岩] 6407+ S001C3E 1C95' WORD MGBG_SP_CK_010 6407+ S001C40 01 NOP 6407+ S001C41 01 NOP 6408 mTWORD MGBG_SP_CK_010 ;[当たるとダメージ（坂杭）] 6408+ S001C42 1C95' WORD MGBG_SP_CK_010 6408+ S001C44 01 NOP 6408+ S001C45 01 NOP 6409 mTWORD MGBG_SP_CK_010 ;[当たるとダメージ（氷柱）] 6409+ S001C46 1C95' WORD MGBG_SP_CK_010 6409+ S001C48 01 NOP 6409+ S001C49 01 NOP 6410 mTWORD MGBG_SP_CK_010 ;[当たるとダウン] 6410+ S001C4A 1C95' WORD MGBG_SP_CK_010 6410+ S001C4C 01 NOP 6410+ S001C4D 01 NOP 6411 ; 6412 ;---------------------------------------------------------------- 6413 ;- 食べれるＢＧ - 6414 ;---------------------------------------------------------------- 6415 BREAK_CROSS 6416 S001C4E D3 INC R3 ;壊れるＢＧ当たりフラグセット 6417 ; 6418 S001C4F 3D A0 C6 LMS R0,CPMG_MKANGL 6419 S001C52 64 SUB R4 6420 S001C53 08 40' BNE MGBG_SP_CK_010 ;当たり向きＯＫ？ ( no:MGBG_SP_CK_010 ) 6421 S001C55 54 ADD R4 6422 ; 6423 S001C56 3D A5 C7 LMS R5,CPMG_MKANGL_OLD 6424 S001C59 65 SUB R5 6425 S001C5A 08 39' BNE MGBG_SP_CK_010 ;押しカウンター加算ＯＫ？ ( no:MGBG_SP_CK_010 ) 6426 S001C5C 01 NOP 6427 ; 6428 S001C5D 3D A0 5A LMS R0,CPLMVSP 6429 S001C60 3E 60 SUB #0 6430 S001C62 09 31' BEQ MGBG_SP_CK_010 ;押してる？ ( no:MGBG_SP_CK_010 ) 6431 S001C64 01 NOP 6432 ; 6433 S001C65 3D A0 C9 LMS R0,CPMG_WRK0 ;押しカウンタークリアーフラグ”ＯＦＦ” 6434 S001C68 D0 INC R0 6435 S001C69 90 SBK ;[ SMS R0,CPMG_WRK0 ] 6436 ; 6437 S001C6A 3D A0 C8 LMS R0,CPMG_BRBGCT 6438 ;;;; IBT R5,#08H 6439 S001C6D A5 02 IBT R5,#02H 6440 S001C6F 65 SUB R5 6441 S001C70 0D 05' BCS BREAK_CROSS_010 ;ＢＧ壊す？ ( yes:BREAK_CROSS_010 ) 6442 S001C72 55 ADD R5 6443 ; 6444 S001C73 D0 INC R0 ;押しカウンターＵＰ 6445 S001C74 05 1F' BRA MGBG_SP_CK_010 6446 S001C76 90 SBK ;[ SMS R0,CPMG_BRBGCT ] 6447 ; 6448 ;-------------- ＢＧ壊す ---------------------------------------- 6449 BREAK_CROSS_010 6450 S001C77 E2 DEC R2 ;ＢＧ当たりフラグキャンセル 6451 S001C78 E3 DEC R3 ; ” 6452 ; 6453 S001C79 3D A0 54 LMS R0,CPLXSPD 6454 S001C7C 4F NOT 6455 S001C7D D0 INC R0 6456 S001C7E 3D 96 DIV2 6457 S001C80 3D 96 DIV2 6458 S001C82 3E A0 0E SMS R0,CWORKE ;(CWKE) <-- 壊れたＢＧぶっ飛びＸスピード 6459 S001C85 A0 80 IBT R0,#080H 6460 S001C87 3E A0 0F SMS R0,CWORKF ;(CWKF) <-- 壊れたＢＧぶっ飛びＹスピード 6461 ; 6462 S001C8A 3E A1 21 SMS R1,REG1 ;(R1) save 6463 ; 6464 mJSR BRBG0_SET ;壊れたＢＧ効果セット 6464+ S001C8D 94 LINK #4 6464+ S001C8E FF 0000" IWT R15, #BRBG0_SET 6464+ S001C91 01 NOP 6465 ; 6466 S001C92 3D A1 21 LMS R1,REG1 ;(R1) load 6467 ; 6468 MGBG_SP_CK_010 6469 S001C95 3D AB 31 LMS R11,RTS1 ;[ return address load ] 6470 mRTS 6470+ S001C98 9B JMP R11 6470+ S001C99 01 NOP 6471 ; 6472 ; 6473 ;************************************************************************ 6474 ;* * 6475 ;* スキーヨッシー * 6476 ;* * 6477 ;************************************************************************ 6478 SKI_MV 6479 ; 6480 ;------------------------------------------------------------------------ 6481 ;- スキー基本ルーチン - 6482 ;------------------------------------------------------------------------ 6483 S001C9A 60 SUB R0 ;[ IBT R0,#0 ] 6484 S001C9B 3E A0 69 SMS R0,CPLSPJP ;ジタバタジャンプフラグ”ＯＦＦ” 6485 ; 6486 ;-------------- 雪効果セットチェックカウンターセット ------------ 6487 S001C9E 3D A6 5A LMS R6,CPLMVSP ;(R6) <-- 移動スピード 6488 S001CA1 3D A0 C3 LMS R0,CPSK_WALK 6489 S001CA4 56 ADD R6 6490 S001CA5 90 SBK ;[ SMS R0,CPSK_WALK ] 6491 S001CA6 C0 HIB 6492 S001CA7 3E 77 AND #07H 6493 S001CA9 3E A0 7C SMS R0,CPLWALK ;歩きパターンカウンターセット 6494 ; 6495 ;-------------- 座標計算 ------------------------------------------------ 6496 S001CAC 3D A5 60 LMS R5,CPLJUMP ;(R5) <-- ジャンプフラグ 6497 S001CAF E5 DEC R5 6498 S001CB0 0A 09' BPL SKI_MV_0010 ;ジャンプ中？ ( yes:SKI_MV_0010 ) 6499 S001CB2 D5 INC R5 6500 ; 6501 mJSR PL_CALC_NOJUMP ;座標計算 6501+ S001CB3 94 LINK #4 6501+ S001CB4 FF 0000" IWT R15, #PL_CALC_NOJUMP 6501+ S001CB7 01 NOP 6502 S001CB8 05 0E' BRA SKI_MV_0020 6503 S001CBA 01 NOP 6504 ; 6505 SKI_MV_0010 6506 S001CBB 3E A6 54 SMS R6,CPLXSPD ;Ｘスピードセット 6507 S001CBE 3D A2 55 LMS R2,CPLYSPD ;(R2) <-- Ｙスピード 6508 ;;;; IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 6509 S001CC1 A0 28 IBT R0,#028H ;(R0) <-- 重力 6510 ;;;; ELSE ;**** PAL 対応 [1995/7/19] ***************************** 6511 ;;;; IBT R0,#028H*5/4 ;(R0) <-- 重力 6512 ;;;; ENDIF 6513 6514 mJSR PL_CALC_JUMP ;座標計算 6514+ S001CC3 94 LINK #4 6514+ S001CC4 FF 0000" IWT R15, #PL_CALC_JUMP 6514+ S001CC7 01 NOP 6515 ; 6516 ;-------------- ＢＧチェック -------------------------------------------- 6517 SKI_MV_0020 6518 S001CC8 3D A0 60 LMS R0,CPLJUMP ;ジャンプフラグ待避 6519 S001CCB 3E A0 C1 SMS R0,CPSK_WRK0 6520 S001CCE 3D A0 5B LMS R0,CPLANGL ;移動角度待避 6521 S001CD1 3E A0 C2 SMS R0,CPSK_WRK1 6522 ; 6523 mJSR PL_BGCK ;ＢＧチェック 6523+ S001CD4 94 LINK #4 6523+ S001CD5 FF 0000" IWT R15, #PL_BGCK 6523+ S001CD8 01 NOP 6524 ; 6525 ;-------------- 自然ジャンプ、転びチェック ------------------------------ 6526 S001CD9 3D A0 60 LMS R0,CPLJUMP 6527 S001CDC E0 DEC R0 6528 S001CDD 0A 49' BPL SKI_MV_0100 ;着地？ ( no:SKI_MV_0100 ) 6529 S001CDF 01 NOP 6530 ; 6531 S001CE0 3D A0 C1 LMS R0,CPSK_WRK0 6532 S001CE3 3E 60 SUB #0 6533 S001CE5 08 41' BNE SKI_MV_0100 ;前回着地？ ( no:SKI_MV_0100 ) 6534 S001CE7 01 NOP 6535 ; 6536 S001CE8 3D A0 5B LMS R0,CPLANGL 6537 S001CEB 3D A1 C2 LMS R1,CPSK_WRK1 6538 S001CEE 61 SUB R1 6539 S001CEF 95 SEX 6540 S001CF0 0B 20' BMI SKI_MV_0050 ;自然ジャンプチェック？ ( yes:SKI_MV_0050 ) 6541 S001CF2 01 NOP 6542 ; 6543 ;-------------- 転びチェック ------------------------------------ 6544 S001CF3 A1 21 IBT R1,#020H+1 6545 S001CF5 61 SUB R1 6546 S001CF6 0C 30' BCC SKI_MV_0100 ;転ぶ？ ( no:SKI_MV_0100 ) 6547 S001CF8 01 NOP 6548 ; 6549 ;-------------- 転んだ！！ ------------------------------ 6550 S001CF9 3D A0 C0 LMS R0,CPSK_FAIL 6551 S001CFC E0 DEC R0 6552 S001CFD 0A 29' BPL SKI_MV_0100 ;すでに転んでる？ ( yes:SKI_MV_0100 ) 6553 S001CFF 01 NOP 6554 ; 6555 S001D00 F0 0080 IWT R0,#080H ;転びフラグセット 6556 S001D03 90 SBK ;[ SMS R0,CPSK_FAIL ] 6557 ;;;; IWT R0,#080H 6558 S001D04 3E A0 FB SMS R0,CPSK_TIM0 ;転びタイマーセット 6559 ; 6560 S001D07 A0 3C IBT R0,#03CH ;[♪] 6561 S001D09 3E A0 3D SMS R0,CMSOUND3 6562 ; 6563 ;;;; IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** 6564 S001D0C F1 FC00 IWT R1,#0FC00H ;(R1) <-- ジャンプＹスピード 6565 ;;;; ELSE ;**** PAL 対応 [1995/7/19] ***************************** 6566 ;;;; IWT R1,#0FB76H ;(R1) <-- ジャンプＹスピード 6567 ;;;; ENDIF 6568 S001D0F 05 0B' BRA SKI_MV_0060 6569 S001D11 60 SUB R0 ;[ IBT R0,#0 ] 6570 ; 6571 ;-------------- 自然ジャンプチェック ---------------------------- 6572 SKI_MV_0050 6573 S001D12 A1 1F IBT R1,#020H-1 6574 S001D14 51 ADD R1 6575 S001D15 0A 11' BPL SKI_MV_0100 ;ジャンプする？ ( no:SKI_MV_0100 ) 6576 S001D17 60 SUB R0 ;[ IBT R0,#0 ] 6577 ; 6578 ;-------------- 自然ジャンプした！！ -------------------- 6579 S001D18 3D F1 1E3C LM R1,CPL_ANGL_YSP ;(R1) <-- ジャンプＹスピード 6580 SKI_MV_0060 6581 S001D1C 3E A0 BF SMS R0,CPSK_ANGL ;回転角度リセット 6582 S001D1F 3E A1 55 SMS R1,CPLYSPD 6583 S001D22 F0 0008 IWT R0,#P008 ;ジャンプフラグ”ＯＮ” 6584 S001D25 3E A0 60 SMS R0,CPLJUMP 6585 ; 6586 SKI_MV_0100 6587 S001D28 3D A0 C0 LMS R0,CPSK_FAIL ;(R0) <-- 転びフラグ（雪だるま倍率） 6588 S001D2B E0 DEC R0 6589 S001D2C 0A 05' BPL SKI_MV_0110 ;転び中？ ( yes:SKI_MV_0110 ) 6590 S001D2E D0 INC R0 6591 ; 6592 mDJMP SKI_MV_0500 6592+ S001D2F FF 1DDF' IWT R15, #SKI_MV_0500 6592+ S001D32 01 NOP 6593 ; 6594 ;------------------------------------------------------------------------ 6595 ;- 転び中の処理 - 6596 ;------------------------------------------------------------------------ 6597 SKI_MV_0110 6598 S001D33 3D A1 60 LMS R1,CPLJUMP 6599 S001D36 E1 DEC R1 6600 S001D37 0A 5A' BPL SKI_MV_0200 ;ジャンプ中？ ( yes:SKI_MV_0200 ) 6601 S001D39 D1 INC R1 6602 ; 6603 S001D3A 3E 52 ADD #02H 6604 S001D3C 3E A0 C0 SMS R0,CPSK_FAIL ;転びフラグ（雪だるま倍率）セット 6605 S001D3F F1 0100 IWT R1,#0100H 6606 S001D42 61 SUB R1 6607 S001D43 0C 4B' BCC SKI_MV_0150 ;雪だるま倍率ＭＡＸ？ ( no:SKI_MV_0150 ) 6608 S001D45 51 ADD R1 6609 ; 6610 S001D46 3D A0 FB LMS R0,CPSK_TIM0 6611 S001D49 E0 DEC R0 6612 S001D4A 0A 42' BPL SKI_MV_0120 ;転び終了？ ( no:SKI_MV_0120 ) 6613 S001D4C 01 NOP 6614 ; 6615 ;-------------- 転び終了 ------------------------------------------------ 6616 S001D4D 3D F0 00B7 LM R0,CPLANGL+1 6617 S001D51 4F NOT 6618 S001D52 D0 INC R0 6619 S001D53 3E A0 BF SMS R0,CPSK_ANGL ;回転角度リセット 6620 ; 6621 S001D56 A0 0A IBT R0,#0AH ;[♪] 6622 S001D58 3E A0 3D SMS R0,CMSOUND3 6623 ; 6624 S001D5B F5 0000" IWT R5,#SNOW1 ;(R5) <-- 効果Ｎｏ． 6625 mJSR M_EXINSR ;効果エリア確保 6625+ S001D5E 94 LINK #4 6625+ S001D5F FF 0000" IWT R15, #M_EXINSR 6625+ S001D62 01 NOP 6626 ; 6627 S001D63 3D A5 46 LMS R5,CPLXPSL 6628 mSTW R5,CEXXPSL,R1 ;Ｘ座標セット 6628+ S001D66 F0 10A2 IWT R0,#CEXXPSL 6628+ S001D69 51 ADD R1 6628+ S001D6A B5 FROM R5 6628+ S001D6B 30 STW (R0) 6629 S001D6C 3D A0 48 LMS R0,CPLYPSL 6630 S001D6F 15 TO R5 6631 S001D70 3E 5C ADD #0CH 6632 mSTW R5,CEXYPSL,R1 ;Ｙ座標セット 6632+ S001D72 F0 1142 IWT R0,#CEXYPSL 6632+ S001D75 51 ADD R1 6632+ S001D76 B5 FROM R5 6632+ S001D77 30 STW (R0) 6633 S001D78 3D A5 0E LMS R5,CWORKE 6634 S001D7B A5 07 IBT R5,#07H 6635 mSTW R5,CEXWRK0,R1 ;初期カウンターセット 6635+ S001D7D F0 1E4C IWT R0,#CEXWRK0 6635+ S001D80 51 ADD R1 6635+ S001D81 B5 FROM R5 6635+ S001D82 30 STW (R0) 6636 S001D83 A5 04 IBT R5,#04H 6637 mSTW R5,CEXTIM0,R1 ;初期タイマーセット 6637+ S001D85 F0 1782 IWT R0,#CEXTIM0 6637+ S001D88 51 ADD R1 6637+ S001D89 B5 FROM R5 6637+ S001D8A 30 STW (R0) 6638 ; 6639 S001D8B 05 03' BRA SKI_MV_0150 6640 S001D8D 60 SUB R0 ;[ IBT R0,#0 ] 6641 ; 6642 SKI_MV_0120 6643 S001D8E 21 10 MOVE R0,R1 6644 SKI_MV_0150 6645 S001D90 3E A0 C0 SMS R0,CPSK_FAIL ;雪だるま倍率セット 6646 ; 6647 SKI_MV_0200 6648 S001D93 F2 0190 IWT R2,#SK08 ;(R2) <-- 転びパターンセット 6649 S001D96 F1 0080 IWT R1,#080H 6650 S001D99 61 SUB R1 6651 S001D9A 09 3C' BEQ SKI_MV_0400 ;雪だるま？ ( no:SKI_MV_0400 ) 6652 S001D9C 51 ADD R1 6653 ; 6654 ;-------------- 雪だるまキャラクターセット ------------------------------ 6655 S001D9D 20 16 MOVE R6,R0 ;(R6) <-- 倍率 6656 S001D9F A2 20 IBT R2,#020H ;(R2) <-- ビットマップ座標＿Ｙ 6657 S001DA1 A3 00 IBT R3,#000H ;(R3) <-- ” ＿Ｘ 6658 S001DA3 A8 10 IBT R8,#010H ;(R8) <-- 中心＿Ｘ 6659 S001DA5 A9 10 IBT R9,#010H ;(R9) <-- ”＿Ｙ vvv******* warn :value out of range 6660 S001DA7 FC 2021 IWT R12,#CIPCHD+2020H+1 ;(R12) <-- 雪玉キャラクターアドレス（Ｌ，Ｈ） 6661 S001DAA AD 54 IBT R13,#BANK CIPCHD ;(R13) <-- キャラクターアドレス（Ｂ） 6662 ; 6663 mJSR R_32_ZOOM ;キャラクター拡大、縮小（サイズ ３２×３２） 6663+ S001DAC 94 LINK #4 6663+ S001DAD FF 0000" IWT R15, #R_32_ZOOM 6663+ S001DB0 01 NOP 6664 ; 6665 S001DB1 A2 20 IBT R2,#020H ;(R2) <-- ビットマップ座標＿Ｙ 6666 S001DB3 A3 00 IBT R3,#000H ;(R3) <-- ” ＿Ｘ 6667 S001DB5 3D A0 5A LMS R0,CPLMVSP 6668 S001DB8 50 ADD R0 ;x2 6669 S001DB9 3D A5 BF LMS R5,CPSK_ANGL 6670 S001DBC 55 ADD R5 6671 S001DBD 90 SBK ;[ SMS R0,CPSK_ANGL ] 6672 S001DBE 15 TO R5 ;(R5) <-- 角度 6673 S001DBF C0 HIB 6674 S001DC0 F6 0100 IWT R6,#0100H ;(R6) <-- Ｘ倍率 6675 S001DC3 26 14 MOVE R4,R6 ;(R4) <-- Ｙ ” vvv******* warn :value out of range 6676 S001DC5 FC 0001 IWT R12,#CIPCHD+0000H+1 ;(R12) <-- スキー板キャラクターアドレス（Ｌ，Ｈ） 6677 S001DC8 AD 54 IBT R13,#BANK CIPCHD ;(R13) <-- キャラクターアドレス（Ｂ） 6678 ; 6679 S001DCA A1 00 IBT R1,#00H ;(R1) <-- 重ね塗りモード 6680 mJSR R_32_RTZ_32_XY_C ;キャラクター拡大、縮小、回転（サイズ ３２×３２） 6680+ S001DCC 94 LINK #4 6680+ S001DCD FF 0000" IWT R15, #R_32_RTZ_32_XY_C 6680+ S001DD0 01 NOP 6681 ; 6682 S001DD1 60 SUB R0 ;[ IBT R0,#0 ] 6683 S001DD2 3E A0 92 SMS R0,CPLCLOR 6684 ; 6685 S001DD5 F2 0188 IWT R2,#SK00 ;パターンＮｏ．セット 6686 SKI_MV_0400 6687 S001DD8 3E A2 5F SMS R2,CPLPATN 6688 mDJMP SKI_MV_0800 6688+ S001DDB FF 1E4B' IWT R15, #SKI_MV_0800 6688+ S001DDE 01 NOP 6689 ; 6690 ;------------------------------------------------------------------------ 6691 ;- 滑り処理 - 6692 ;------------------------------------------------------------------------ 6693 SKI_MV_0500 6694 ; 6695 ;-------------- キャラクター回転角度計算 -------------------------------- 6696 S001DDF 3D F0 00B7 LM R0,CPLANGL+1 6697 S001DE3 1A TO R10 ;(R10) <-- 目標回転角度 6698 S001DE4 4F NOT 6699 S001DE5 DA INC R10 6700 S001DE6 3D A0 5A LMS R0,CPLMVSP 6701 S001DE9 14 TO R4 6702 S001DEA 3D 96 DIV2 6703 S001DEC 14 TO R4 ;(R4) <-- 回転スピード 6704 S001DED 64 SUB R4 6705 mJSR C_ANGL_CALC ;キャラクター回転角度計算 6705+ S001DEE 94 LINK #4 6705+ S001DEF FF 03D9' IWT R15, #C_ANGL_CALC 6705+ S001DF2 01 NOP 6706 ; 6707 ;-------------- 回転キャラクターセット ---------------------------------- 6708 S001DF3 3D A0 60 LMS R0,CPLJUMP 6709 S001DF6 E0 DEC R0 6710 S001DF7 0A 26' BPL SKI_MV_0540 ;ジャンプ中？ ( yes:SKI_MV_0540 ) 6711 S001DF9 60 SUB R0 ;[ IBT R0,#0 ] 6712 ; 6713 ;-------------- ジャンプキーチェック ---------------------------- vvv******* warn :value out of range 6714 S001DFA FC 2001 IWT R12,#CIPCHD+2000H+1 ;(R12) <-- 着地キャラクターアドレス（Ｌ，Ｈ） 6715 ; 6716 S001DFD 3D A0 39 LMS R0,CMKEYC2L 6717 S001E00 3D A1 42 LMS R1,CP_KEY_JUMP ;(R1) <-- ジャンプボタン情報 6718 S001E03 71 AND R1 6719 S001E04 09 2C' BEQ SKI_MV_0550 ;ジャンプキー入力？ ( no:SKI_MV_0550 ) 6720 S001E06 01 NOP 6721 ; 6722 ;-------------- ジャンプセット -------------------------- 6723 S001E07 A0 49 IBT R0,#049H ;[♪] 6724 S001E09 3E A0 3D SMS R0,CMSOUND3 6725 ; 6726 S001E0C F0 FCC0 IWT R0,#0FCC0H ;Ｙスピードセット 6727 S001E0F 3E A0 55 SMS R0,CPLYSPD 6728 S001E12 F0 0006 IWT R0,#P006 6729 S001E15 3E A0 60 SMS R0,CPLJUMP ;ジャンプフラグ”ＯＮ” 6730 ; 6731 S001E18 A0 00" IBT R0,#BANK PLAYER_DATA 6732 S001E1A 3F DF ROMB 6733 ; 6734 S001E1C 05 14' BRA SKI_MV_0550 6735 S001E1E 01 NOP 6736 ; 6737 SKI_MV_0540 6738 S001E1F 3E A0 BF SMS R0,CPSK_ANGL ;回転角度リセット 6739 ; vvv******* warn :value out of range 6740 S001E22 FC 0021 IWT R12,#CIPCHD+0020H+1 ;(R12) <-- 上昇キャラクターアドレス（Ｌ，Ｈ） 6741 S001E25 3D A0 55 LMS R0,CPLYSPD 6742 S001E28 F1 0080 IWT R1,#080H 6743 S001E2B 61 SUB R1 6744 S001E2C 0B 04' BMI SKI_MV_0550 ;上昇パターン？ ( yes:SKI_MV_0550 ) 6745 S001E2E 01 NOP 6746 ; vvv******* warn :value out of range 6747 S001E2F FC 4040 IWT R12,#CIPCHD+4040H ;(R12) <-- 下降キャラクターアドレス（Ｌ，Ｈ） 6748 SKI_MV_0550 6749 S001E32 AD 54 IBT R13,#BANK CIPCHD ;(R13) <-- キャラクターアドレス（Ｂ） 6750 ; 6751 S001E34 A2 20 IBT R2,#020H ;(R2) <-- ビットマップ座標＿Ｙ 6752 S001E36 A3 00 IBT R3,#000H ;(R3) <-- ” ＿Ｘ 6753 S001E38 3D A0 BF LMS R0,CPSK_ANGL 6754 S001E3B 15 TO R5 ;(R5) <-- 角度 6755 S001E3C C0 HIB 6756 S001E3D F6 0100 IWT R6,#0100H ;(R6) <-- 倍率 6757 mJSR R_32_RTZ_32 ;キャラクター拡大、縮小、回転（サイズ ３２×３２） 6757+ S001E40 94 LINK #4 6757+ S001E41 FF 0000" IWT R15, #R_32_RTZ_32 6757+ S001E44 01 NOP 6758 ; 6759 S001E45 F0 0188 IWT R0,#SK00 ;パターンＮｏ．セット 6760 S001E48 3E A0 5F SMS R0,CPLPATN 6761 ; 6762 ;-------------- スピードセット ------------------------------------------ 6763 SKI_MV_0800 6764 S001E4B A0 00" IBT R0,#BANK PLAYER_DATA 6765 S001E4D 3F DF ROMB 6766 ; 6767 S001E4F 3D A0 60 LMS R0,CPLJUMP 6768 S001E52 E0 DEC R0 6769 S001E53 0B 10' BMI SKI_MV_0810 ;ジャンプ中？ ( no:SKI_MV_0810 ) 6770 S001E55 01 NOP 6771 ; 6772 ;-------------- ジャンプ中の減速 -------------------------------- 6773 S001E56 3D A0 5A LMS R0,CPLMVSP 6774 S001E59 F1 0200 IWT R1,#0200H 6775 S001E5C 61 SUB R1 6776 S001E5D 0B 10' BMI SKI_MV_0820 ;減速？ ( no:SKI_MV_0820 ) 6777 S001E5F 51 ADD R1 6778 ; 6779 S001E60 3E 64 SUB #04H 6780 S001E62 05 0B' BRA SKI_MV_0820 6781 S001E64 90 SBK ;[ SMS R0,CPLMVSP ] 6782 ; 6783 ;-------------- 滑ってる時の加減速 ------------------------------ 6784 SKI_MV_0810 6785 S001E65 A0 00" IBT R0,#ON_SKI ;スキー加速タイプセット 6786 S001E67 3E A0 7D SMS R0,CPLBGNO 6787 mJSR PL_XSP_DOWN 6787+ S001E6A 94 LINK #4 6787+ S001E6B FF 0000" IWT R15, #PL_XSP_DOWN 6787+ S001E6E 01 NOP 6788 ; 6789 SKI_MV_0820 6790 S001E6F 60 SUB R0 ;<<< end >>> 6791 S001E70 00 STOP 6792 S001E71 01 NOP 6793 ; 6794 ;************************************************************************ 6795 ;* * 6796 ;* タマゴヨッシー * 6797 ;* * 6798 ;************************************************************************ 6799 EGG_MV 6800 ;;;; mJSR PL_CALC ;座標計算 6801 ;;;;; 6802 ;;;; mJSR PL_BGCK ;ＢＧチェック 6803 ;;;; mJSR WATR_CHECK ;水中チェック 6804 ;;;;; 6805 ;;;;;------------------------------------------------------------------------ 6806 ;;;;;- コントローラー入力チェック - 6807 ;;;;;------------------------------------------------------------------------ 6808 ;;;; mJSR PL_KEY ;コントローラー入力 6809 ;;;;; 6810 ;;;; mJSR PL_PATN ;パターンＮｏ．セット 6811 ;;;;; 6812 ;;;; SUB R0 ;<<< end >>> 6813 ;;;; STOP 6814 ;;;; NOP 6815 ; 6816 ; 6817 ; 6818 ; 6819 mEND_NOP 6819+ S001E72 01 NOP 6819+ S001E73 01 NOP 6819+ S001E74 01 NOP 6819+ S001E75 01 NOP 6819+ S001E76 01 NOP 6819+ S001E77 01 NOP 6819+ S001E78 01 NOP 6819+ S001E79 01 NOP 6819+ S001E7A 01 NOP 6819+ S001E7B 01 NOP 6819+ S001E7C 01 NOP 6819+ S001E7D 01 NOP 6819+ S001E7E 01 NOP 6819+ S001E7F 01 NOP 6819+ S001E80 01 NOP 6819+ S001E81 01 NOP 6819+ S001E82 01 NOP 6819+ S001E83 01 NOP 6819+ S001E84 01 NOP 6819+ S001E85 01 NOP 6819+ S001E86 01 NOP 6819+ S001E87 01 NOP 6819+ S001E88 01 NOP 6819+ S001E89 01 NOP 6819+ S001E8A 01 NOP 6819+ S001E8B 01 NOP 6819+ S001E8C 01 NOP 6819+ S001E8D 01 NOP 6819+ S001E8E 01 NOP 6819+ S001E8F 01 NOP 6819+ S001E90 01 NOP 6819+ S001E91 01 NOP 6819+ S001E92 01 NOP 6819+ S001E93 01 NOP 6819+ S001E94 01 NOP 6819+ S001E95 01 NOP 6819+ S001E96 01 NOP 6819+ S001E97 01 NOP 6819+ S001E98 01 NOP 6819+ S001E99 01 NOP 6819+ S001E9A 01 NOP 6819+ S001E9B 01 NOP 6819+ S001E9C 01 NOP 6819+ S001E9D 01 NOP 6819+ S001E9E 01 NOP 6819+ S001E9F 01 NOP 6819+ S001EA0 01 NOP 6819+ S001EA1 01 NOP 6819+ S001EA2 01 NOP 6819+ S001EA3 01 NOP 6819+ S001EA4 01 NOP 6819+ S001EA5 01 NOP 6819+ S001EA6 01 NOP 6819+ S001EA7 01 NOP 6819+ S001EA8 01 NOP 6819+ S001EA9 01 NOP 6819+ S001EAA 01 NOP 6819+ S001EAB 01 NOP 6819+ S001EAC 01 NOP 6819+ S001EAD 01 NOP 6819+ S001EAE 01 NOP 6819+ S001EAF 01 NOP 6819+ S001EB0 01 NOP 6819+ S001EB1 01 NOP 6819+ S001EB2 01 NOP 6819+ S001EB3 01 NOP 6819+ S001EB4 01 NOP 6819+ S001EB5 01 NOP 6819+ S001EB6 01 NOP 6819+ S001EB7 01 NOP 6819+ S001EB8 01 NOP 6819+ S001EB9 01 NOP 6819+ S001EBA 01 NOP 6819+ S001EBB 01 NOP 6819+ S001EBC 01 NOP 6819+ S001EBD 01 NOP 6819+ S001EBE 01 NOP 6819+ S001EBF 01 NOP 6819+ S001EC0 01 NOP 6819+ S001EC1 01 NOP 6819+ S001EC2 01 NOP 6819+ S001EC3 01 NOP 6819+ S001EC4 01 NOP 6819+ S001EC5 01 NOP 6819+ S001EC6 01 NOP 6819+ S001EC7 01 NOP 6819+ S001EC8 01 NOP 6819+ S001EC9 01 NOP 6819+ S001ECA 01 NOP 6819+ S001ECB 01 NOP 6819+ S001ECC 01 NOP 6819+ S001ECD 01 NOP 6819+ S001ECE 01 NOP 6819+ S001ECF 01 NOP 6819+ S001ED0 01 NOP 6819+ S001ED1 01 NOP 6819+ S001ED2 01 NOP 6819+ S001ED3 01 NOP 6819+ S001ED4 01 NOP 6819+ S001ED5 01 NOP 6819+ S001ED6 01 NOP 6819+ S001ED7 01 NOP 6819+ S001ED8 01 NOP 6819+ S001ED9 01 NOP 6819+ S001EDA 01 NOP 6819+ S001EDB 01 NOP 6819+ S001EDC 01 NOP 6819+ S001EDD 01 NOP 6819+ S001EDE 01 NOP 6819+ S001EDF 01 NOP 6819+ S001EE0 01 NOP 6819+ S001EE1 01 NOP 6819+ S001EE2 01 NOP 6819+ S001EE3 01 NOP 6819+ S001EE4 01 NOP 6819+ S001EE5 01 NOP 6819+ S001EE6 01 NOP 6819+ S001EE7 01 NOP 6819+ S001EE8 01 NOP 6819+ S001EE9 01 NOP 6819+ S001EEA 01 NOP 6819+ S001EEB 01 NOP 6819+ S001EEC 01 NOP 6819+ S001EED 01 NOP 6819+ S001EEE 01 NOP 6819+ S001EEF 01 NOP 6819+ S001EF0 01 NOP 6819+ S001EF1 01 NOP 6819+ S001EF2 01 NOP 6819+ S001EF3 01 NOP 6819+ S001EF4 01 NOP 6819+ S001EF5 01 NOP 6819+ S001EF6 01 NOP 6819+ S001EF7 01 NOP 6819+ S001EF8 01 NOP 6819+ S001EF9 01 NOP 6819+ S001EFA 01 NOP 6819+ S001EFB 01 NOP 6819+ S001EFC 01 NOP 6819+ S001EFD 01 NOP 6819+ S001EFE 01 NOP 6819+ S001EFF 01 NOP 6819+ S001F00 01 NOP 6819+ S001F01 01 NOP 6819+ S001F02 01 NOP 6819+ S001F03 01 NOP 6819+ S001F04 01 NOP 6819+ S001F05 01 NOP 6819+ S001F06 01 NOP 6819+ S001F07 01 NOP 6819+ S001F08 01 NOP 6819+ S001F09 01 NOP 6819+ S001F0A 01 NOP 6819+ S001F0B 01 NOP 6819+ S001F0C 01 NOP 6819+ S001F0D 01 NOP 6819+ S001F0E 01 NOP 6819+ S001F0F 01 NOP 6819+ S001F10 01 NOP 6819+ S001F11 01 NOP 6819+ S001F12 01 NOP 6819+ S001F13 01 NOP 6819+ S001F14 01 NOP 6819+ S001F15 01 NOP 6819+ S001F16 01 NOP 6819+ S001F17 01 NOP 6819+ S001F18 01 NOP 6819+ S001F19 01 NOP 6819+ S001F1A 01 NOP 6819+ S001F1B 01 NOP 6819+ S001F1C 01 NOP 6819+ S001F1D 01 NOP 6819+ S001F1E 01 NOP 6819+ S001F1F 01 NOP 6819+ S001F20 01 NOP 6819+ S001F21 01 NOP 6819+ S001F22 01 NOP 6819+ S001F23 01 NOP 6819+ S001F24 01 NOP 6819+ S001F25 01 NOP 6819+ S001F26 01 NOP 6819+ S001F27 01 NOP 6819+ S001F28 01 NOP 6819+ S001F29 01 NOP 6819+ S001F2A 01 NOP 6819+ S001F2B 01 NOP 6819+ S001F2C 01 NOP 6819+ S001F2D 01 NOP 6819+ S001F2E 01 NOP 6819+ S001F2F 01 NOP 6819+ S001F30 01 NOP 6819+ S001F31 01 NOP 6819+ S001F32 01 NOP 6819+ S001F33 01 NOP 6819+ S001F34 01 NOP 6819+ S001F35 01 NOP 6819+ S001F36 01 NOP 6819+ S001F37 01 NOP 6819+ S001F38 01 NOP 6819+ S001F39 01 NOP 6819+ S001F3A 01 NOP 6819+ S001F3B 01 NOP 6819+ S001F3C 01 NOP 6819+ S001F3D 01 NOP 6819+ S001F3E 01 NOP 6819+ S001F3F 01 NOP 6819+ S001F40 01 NOP 6819+ S001F41 01 NOP 6819+ S001F42 01 NOP 6819+ S001F43 01 NOP 6819+ S001F44 01 NOP 6819+ S001F45 01 NOP 6819+ S001F46 01 NOP 6819+ S001F47 01 NOP 6819+ S001F48 01 NOP 6819+ S001F49 01 NOP 6819+ S001F4A 01 NOP 6819+ S001F4B 01 NOP 6819+ S001F4C 01 NOP 6819+ S001F4D 01 NOP 6819+ S001F4E 01 NOP 6819+ S001F4F 01 NOP 6819+ S001F50 01 NOP 6819+ S001F51 01 NOP 6819+ S001F52 01 NOP 6819+ S001F53 01 NOP 6819+ S001F54 01 NOP 6819+ S001F55 01 NOP 6819+ S001F56 01 NOP 6819+ S001F57 01 NOP 6819+ S001F58 01 NOP 6819+ S001F59 01 NOP 6819+ S001F5A 01 NOP 6819+ S001F5B 01 NOP 6819+ S001F5C 01 NOP 6819+ S001F5D 01 NOP 6819+ S001F5E 01 NOP 6819+ S001F5F 01 NOP 6819+ S001F60 01 NOP 6819+ S001F61 01 NOP 6819+ S001F62 01 NOP 6819+ S001F63 01 NOP 6819+ S001F64 01 NOP 6819+ S001F65 01 NOP 6819+ S001F66 01 NOP 6819+ S001F67 01 NOP 6819+ S001F68 01 NOP 6819+ S001F69 01 NOP 6819+ S001F6A 01 NOP 6819+ S001F6B 01 NOP 6819+ S001F6C 01 NOP 6819+ S001F6D 01 NOP 6819+ S001F6E 01 NOP 6819+ S001F6F 01 NOP 6819+ S001F70 01 NOP 6819+ S001F71 01 NOP 6819+ S001F72 01 NOP 6819+ S001F73 01 NOP 6819+ S001F74 01 NOP 6819+ S001F75 01 NOP 6819+ S001F76 01 NOP 6819+ S001F77 01 NOP 6819+ S001F78 01 NOP 6819+ S001F79 01 NOP 6819+ S001F7A 01 NOP 6819+ S001F7B 01 NOP 6819+ S001F7C 01 NOP 6819+ S001F7D 01 NOP 6819+ S001F7E 01 NOP 6819+ S001F7F 01 NOP 6819+ S001F80 01 NOP 6819+ S001F81 01 NOP 6819+ S001F82 01 NOP 6819+ S001F83 01 NOP 6819+ S001F84 01 NOP 6819+ S001F85 01 NOP 6819+ S001F86 01 NOP 6819+ S001F87 01 NOP 6819+ S001F88 01 NOP 6819+ S001F89 01 NOP 6819+ S001F8A 01 NOP 6819+ S001F8B 01 NOP 6819+ S001F8C 01 NOP 6819+ S001F8D 01 NOP 6819+ S001F8E 01 NOP 6819+ S001F8F 01 NOP 6819+ S001F90 01 NOP 6819+ S001F91 01 NOP 6819+ S001F92 01 NOP 6819+ S001F93 01 NOP 6819+ S001F94 01 NOP 6819+ S001F95 01 NOP 6819+ S001F96 01 NOP 6819+ S001F97 01 NOP 6819+ S001F98 01 NOP 6819+ S001F99 01 NOP 6819+ S001F9A 01 NOP 6819+ S001F9B 01 NOP 6819+ S001F9C 01 NOP 6819+ S001F9D 01 NOP 6819+ S001F9E 01 NOP 6819+ S001F9F 01 NOP 6819+ S001FA0 01 NOP 6819+ S001FA1 01 NOP 6819+ S001FA2 01 NOP 6819+ S001FA3 01 NOP 6819+ S001FA4 01 NOP 6819+ S001FA5 01 NOP 6819+ S001FA6 01 NOP 6819+ S001FA7 01 NOP 6819+ S001FA8 01 NOP 6819+ S001FA9 01 NOP 6819+ S001FAA 01 NOP 6819+ S001FAB 01 NOP 6819+ S001FAC 01 NOP 6819+ S001FAD 01 NOP 6819+ S001FAE 01 NOP 6819+ S001FAF 01 NOP 6819+ S001FB0 01 NOP 6819+ S001FB1 01 NOP 6819+ S001FB2 01 NOP 6819+ S001FB3 01 NOP 6819+ S001FB4 01 NOP 6819+ S001FB5 01 NOP 6819+ S001FB6 01 NOP 6819+ S001FB7 01 NOP 6819+ S001FB8 01 NOP 6819+ S001FB9 01 NOP 6819+ S001FBA 01 NOP 6819+ S001FBB 01 NOP 6819+ S001FBC 01 NOP 6819+ S001FBD 01 NOP 6819+ S001FBE 01 NOP 6819+ S001FBF 01 NOP 6819+ S001FC0 01 NOP 6819+ S001FC1 01 NOP 6819+ S001FC2 01 NOP 6819+ S001FC3 01 NOP 6819+ S001FC4 01 NOP 6819+ S001FC5 01 NOP 6819+ S001FC6 01 NOP 6819+ S001FC7 01 NOP 6819+ S001FC8 01 NOP 6819+ S001FC9 01 NOP 6819+ S001FCA 01 NOP 6819+ S001FCB 01 NOP 6819+ S001FCC 01 NOP 6819+ S001FCD 01 NOP 6819+ S001FCE 01 NOP 6819+ S001FCF 01 NOP 6819+ S001FD0 01 NOP 6819+ S001FD1 01 NOP 6819+ S001FD2 01 NOP 6819+ S001FD3 01 NOP 6819+ S001FD4 01 NOP 6819+ S001FD5 01 NOP 6819+ S001FD6 01 NOP 6819+ S001FD7 01 NOP 6819+ S001FD8 01 NOP 6819+ S001FD9 01 NOP 6819+ S001FDA 01 NOP 6819+ S001FDB 01 NOP 6819+ S001FDC 01 NOP 6819+ S001FDD 01 NOP 6819+ S001FDE 01 NOP 6819+ S001FDF 01 NOP 6819+ S001FE0 01 NOP 6819+ S001FE1 01 NOP 6819+ S001FE2 01 NOP 6819+ S001FE3 01 NOP 6819+ S001FE4 01 NOP 6819+ S001FE5 01 NOP 6819+ S001FE6 01 NOP 6819+ S001FE7 01 NOP 6819+ S001FE8 01 NOP 6819+ S001FE9 01 NOP 6819+ S001FEA 01 NOP 6819+ S001FEB 01 NOP 6819+ S001FEC 01 NOP 6819+ S001FED 01 NOP 6819+ S001FEE 01 NOP 6819+ S001FEF 01 NOP 6819+ S001FF0 01 NOP 6819+ S001FF1 01 NOP 6819+ S001FF2 01 NOP 6819+ S001FF3 01 NOP 6819+ S001FF4 01 NOP 6819+ S001FF5 01 NOP 6819+ S001FF6 01 NOP 6819+ S001FF7 01 NOP 6819+ S001FF8 01 NOP 6819+ S001FF9 01 NOP 6819+ S001FFA 01 NOP 6819+ S001FFB 01 NOP 6819+ S001FFC 01 NOP 6819+ S001FFD 01 NOP 6819+ S001FFE 01 NOP 6819+ S001FFF 01 NOP 6820 ; 6821 END