File : ys_chip4.asm SUPER-FX ASSEMBLER $Ver 1.01 Wed Jul 5 09:46:16 1995 Page 0001 1 ;************************************************************************ 2 ;* * 3 ;* title name : "yossy" * 4 ;* proccess : mario chip program.4 * 5 ;* file name : ys_chip4 * 6 ;* * 7 ;************************************************************************ 8 ; 9 ; 10 SALL 11 ; 12 include ys_chip.inc 13 ; 14 XALL 15 ; 16 ; 17 ;------------------------------------------------------------------------ 18 ;- global symbol - 19 ;------------------------------------------------------------------------ 20 ; 21 ;------------------------------------------------------------------------ 22 ;- extern symbol - 23 ;------------------------------------------------------------------------ 24 ; 25 ;-------------< ys_chip0 >----------------------------------------------- 26 EXT COS,SIN,LCOS,LSIN 27 ; 28 ;-------------< ys_chip2 >----------------------------------------------- 29 EXT C_32_ROTZOM 30 ; 31 ;************************************************************************ 32 ;* * 33 ;* program start * 34 ;* * 35 ;************************************************************************ 36 ; 37 ; 38 Group_8 GROUP S_chip_4 39 S_chip_4 SECT REL 40 ; 41 ;**************************************************************** 42 ;* * 43 ;* モード７パラメータ計算ルーチン * 44 ;* * 45 ;* [In] * 46 ;* R1 回転角 * 47 ;* R6 Ｘ倍率*2 * 48 ;* R2 Ｙ倍率*2 * 49 ;* * 50 ;* [Out] * 51 ;* R3 マトリクスＢ * 52 ;* R5 ” Ａ * 53 ;* R7 ” Ｃ * 54 ;* R8 ” Ｄ * 55 ;* * 56 ;**************************************************************** 57 000000 M_BOSS0_MODE7 EQU $ 58 S000000 A0 00" IBT R0,#BANK SIN 59 S000002 3F DF ROMB 60 vvv******* warn :value out of range 61 S000004 F5 2200 IWT R5,#DIVBUF 62 S000007 B6 FROM R6 63 S000008 55 ADD R5 64 S000009 16 TO R6 65 S00000A 40 LDW (R0) 66 S00000B 3E A6 20 SMS R6,REG0 67 68 S00000E B2 FROM R2 69 S00000F 55 ADD R5 70 S000010 12 TO R2 71 S000011 40 LDW (R0) 72 S000012 3E A2 21 SMS R2,REG1 73 74 S000015 F0 0000" IWT R0,#SIN 75 S000018 1E TO R14 76 S000019 51 ADD R1 77 78 S00001A F0 0000" IWT R0,#COS 79 S00001D 1A TO R10 80 S00001E 51 ADD R1 81 82 S00001F EF GETB 83 S000020 DE INC R14 84 S000021 3D EF GETBH 85 S000023 20 17 MOVE R7,R0 86 S000025 3E A7 22 SMS R7,REG2 87 88 S000028 2A 1E MOVE R14,R10 89 S00002A EF GETB 90 S00002B DE INC R14 91 S00002C 3D EF GETBH 92 S00002E 20 18 MOVE R8,R0 93 S000030 3E A8 23 SMS R8,REG3 94 95 S000033 B7 FROM R7 96 S000034 3D 9F LMULT 97 S000036 24 WITH R4 98 S000037 C0 HIB 99 S000038 9E LOB 100 S000039 4D SWAP 101 S00003A 13 TO R3 ;R3 <- SIN X (B) 102 S00003B C4 OR R4 103 104 S00003C B8 FROM R8 105 S00003D 3D 9F LMULT 106 S00003F 24 WITH R4 107 S000040 C0 HIB 108 S000041 9E LOB 109 S000042 4D SWAP 110 S000043 15 TO R5 ;R5 <- COS X (A) 111 S000044 C4 OR R4 112 113 S000045 22 16 MOVE R6,R2 114 115 S000047 B7 FROM R7 116 S000048 3D 9F LMULT 117 S00004A 24 WITH R4 118 S00004B C0 HIB 119 S00004C 9E LOB 120 S00004D 4D SWAP 121 S00004E C4 OR R4 122 S00004F 17 TO R7 ;R7 <- -SIN Y (C) 123 S000050 4F NOT 124 S000051 D7 INC R7 125 126 S000052 B8 FROM R8 127 S000053 3D 9F LMULT 128 S000055 24 WITH R4 129 S000056 C0 HIB 130 S000057 9E LOB 131 S000058 4D SWAP 132 S000059 18 TO R8 ;R8 <- COS Y (D) 133 S00005A C4 OR R4 134 135 S00005B 00 STOP 136 S00005C 01 NOP 137 ; 138 ;******************************************************************************** 139 ;* まざーぱっくん特別ＯＡＭセット * 140 ;* * 141 ;* [In] * 142 ;* (R1) <-- ENDSXL * 143 ;* (R2) <-- ENDSYL * 144 ;* (R5) <-- ENWRK4*2 (ENCHPT) * 145 ;* (R8) <-- ENMUKI * 146 ;* (R10) <-- 敵のインデックス * 147 ;* (R0) <-- ＯＡＭセットデータバンク * 148 ;* (R14) <-- ＯＡＭセットデータアドレス * 149 ;* WRK0 頭の付け根から頭の中心までの距離 * 150 ;* WRK1 回転角 * 151 ;* WRK2 頭の付け根のＸ　ＰＯＳ． * 152 ;* WRK3 頭の付け根のＹ　ＰＯＳ． * 153 ;* WRK4 頭の位置計算用回転角補正値 * 154 ;* WRK5 縦倍率 * 155 ;* WRK6 横倍率 * 156 ;* WRKF ＯＡＭセットしない数 * 157 ;* * 158 ;******************************************************************************** 159 MPACK_OAML 160 S00005D 10 18 00 08 20 BYTE 02*8,03*8,00*8,01*8,04*8 161 ; 162 000062 M_MPACK_OAMSET EQU $ 163 S000062 3F DF ROMB 164 ; 165 S000064 F0 1362 IWT R0,#CENOAML 166 S000067 5A ADD R10 167 S000068 40 LDW (R0) 168 S000069 3E A0 08 SMS R0,CWORK8 169 S00006C 20 B0 MOVES R0,R0 170 S00006E 0A 03' BPL MPACK_OAMSET_000 ;ＯＡＭ確保？ ( yes:MPACK_OAMSET_000 ) 171 S000070 01 NOP 172 ; 173 S000071 00 STOP 174 S000072 01 NOP 175 ; 176 MPACK_OAMSET_000 177 S000073 F3 0080 IWT R3,#8*4*4 ;ＳＯＡＭ＿ＤＸのセットインデックスを計算 178 S000076 14 TO R4 ; 179 S000077 53 ADD R3 ; 180 ; 181 S000078 2E WITH R14 182 S000079 55 ADD R5 183 ; 184 S00007A 3E EF GETBL 185 S00007C DE INC R14 186 S00007D 1E TO R14 ;(R14) <-- セットパターンＯＡＭセットデータアドレス 187 S00007E 3D EF GETBH 188 ; 189 S000080 AC 05 IBT R12,#005 ;ＯＡＭセット数 190 ; 191 mJSR OAMSET_SB 191+ S000082 94 LINK #4 191+ S000083 FF 0183' IWT R15, #OAMSET_SB 191+ S000086 01 NOP 192 ; 193 S000087 3D A0 0F LMS R0,CWORKF ;頭のＯＡＭセットする ? 194 S00008A 3E 60 SUB #0 ; 195 S00008C 09 30' BEQ MPACK_OAMSET_100 ; yes: MPACK_OAMSET_100 196 S00008E 01 NOP 197 198 S00008F 3D A4 08 LMS R4,CWORK8 199 S000092 FB 8000 IWT R11,#08000H 200 S000095 AC 10 IBT R12,#04*4 201 S000097 02 CACHE 202 S000098 2F 1D MOVE R13,R15 203 204 S00009A BB FROM R11 205 S00009B 34 STW (R4) 206 S00009C 24 WITH R4 207 S00009D 3E 58 ADD #008 208 209 S00009F 3C LOOP 210 S0000A0 01 NOP 211 212 S0000A1 3D AC 0F LMS R12,CWORKF 213 S0000A4 F0 0010 IWT R0,#004*4 214 S0000A7 2C WITH R12 215 S0000A8 60 SUB R0 216 S0000A9 09 11' BEQ MPACK_OAMSET_080 217 S0000AB 01 NOP 218 219 S0000AC A0 00' IBT R0,#BANK MPACK_OAML 220 S0000AE 3F DF ROMB 221 222 S0000B0 FE 005D' IWT R14,#MPACK_OAML 223 224 S0000B3 02 CACHE 225 S0000B4 2F 1D MOVE R13,R15 226 227 S0000B6 EF GETB 228 S0000B7 54 ADD R4 229 S0000B8 BB FROM R11 230 S0000B9 30 STW (R0) 231 232 S0000BA 3C LOOP 233 S0000BB DE INC R14 234 235 MPACK_OAMSET_080 236 S0000BC 00 STOP 237 S0000BD 01 NOP 238 239 MPACK_OAMSET_100 240 S0000BE A0 00" IBT R0,#BANK SIN 241 S0000C0 3F DF ROMB 242 243 S0000C2 3D A4 04 LMS R4,CWORK4 ;(R4) <- 頭の位置計算用回転角補正値 244 S0000C5 3D A1 01 LMS R1,CWORK1 ;(R1) <- 回転角 245 S0000C8 F5 01FE IWT R5,#001FEH ; 246 S0000CB 24 WITH R4 247 S0000CC 75 AND R5 248 249 S0000CD F0 0000" IWT R0,#SIN 250 S0000D0 1E TO R14 251 S0000D1 54 ADD R4 252 S0000D2 13 TO R3 253 S0000D3 51 ADD R1 254 255 S0000D4 F0 0000" IWT R0,#COS 256 S0000D7 17 TO R7 257 S0000D8 54 ADD R4 258 S0000D9 19 TO R9 259 S0000DA 51 ADD R1 260 261 S0000DB 3D A6 00 LMS R6,CWORK0 ;Y 262 S0000DE EF GETB 263 S0000DF DE INC R14 264 S0000E0 3D EF GETBH 265 S0000E2 3D 9F LMULT 266 S0000E4 24 WITH R4 267 S0000E5 C0 HIB 268 S0000E6 9E LOB 269 S0000E7 4D SWAP 270 S0000E8 16 TO R6 271 S0000E9 C4 OR R4 272 S0000EA 3D A0 05 LMS R0,CWORK5 273 S0000ED 3D 9F LMULT 274 S0000EF 24 WITH R4 275 S0000F0 C0 HIB 276 S0000F1 9E LOB 277 S0000F2 4D SWAP 278 S0000F3 1C TO R12 279 S0000F4 C4 OR R4 280 281 S0000F5 3D A6 00 LMS R6,CWORK0 282 S0000F8 27 1E MOVE R14,R7 ;X 283 S0000FA EF GETB 284 S0000FB DE INC R14 285 S0000FC 3D EF GETBH 286 S0000FE 3D 9F LMULT 287 S000100 24 WITH R4 288 S000101 C0 HIB 289 S000102 9E LOB 290 S000103 4D SWAP 291 S000104 16 TO R6 292 S000105 C4 OR R4 293 S000106 3D A0 06 LMS R0,CWORK6 294 S000109 3D 9F LMULT 295 S00010B 24 WITH R4 296 S00010C C0 HIB 297 S00010D 9E LOB 298 S00010E 4D SWAP 299 S00010F 1D TO R13 300 S000110 C4 OR R4 301 302 S000111 23 1E MOVE R14,R3 303 S000113 EF GETB 304 S000114 DE INC R14 305 S000115 16 TO R6 ;R3 <- SIN 306 S000116 3D EF GETBH 307 308 S000118 BC FROM R12 309 S000119 3D 9F LMULT 310 S00011B 24 WITH R4 311 S00011C C0 HIB 312 S00011D 9E LOB 313 S00011E 4D SWAP 314 S00011F 13 TO R3 ;R3 <- Y SIN 315 S000120 C4 OR R4 316 317 S000121 BD FROM R13 318 S000122 3D 9F LMULT 319 S000124 24 WITH R4 320 S000125 C0 HIB 321 S000126 9E LOB 322 S000127 4D SWAP 323 S000128 15 TO R5 ;R5 <- X SIN 324 S000129 C4 OR R4 325 ; 326 S00012A 29 1E MOVE R14,R9 327 S00012C EF GETB 328 S00012D DE INC R14 329 S00012E 16 TO R6 330 S00012F 3D EF GETBH 331 332 S000131 3D A7 03 LMS R7,CWORK3 333 S000134 BC FROM R12 334 S000135 3D 9F LMULT 335 S000137 24 WITH R4 336 S000138 C0 HIB 337 S000139 9E LOB 338 S00013A 4D SWAP 339 S00013B C4 OR R4 340 S00013C 55 ADD R5 ;R0 <- Y COS + X SIN 341 S00013D 4F NOT 342 S00013E D0 INC R0 343 S00013F 12 TO R2 344 S000140 57 ADD R7 345 346 S000141 3D A7 02 LMS R7,CWORK2 347 S000144 BD FROM R13 348 S000145 3D 9F LMULT 349 S000147 24 WITH R4 350 S000148 C0 HIB 351 S000149 9E LOB 352 S00014A 4D SWAP 353 S00014B C4 OR R4 354 S00014C 63 SUB R3 ;R0 <- X COS - Y SIN 355 S00014D 28 B8 MOVES R8,R8 356 S00014F 08 04' BNE MPACK_OAMSET_150 357 S000151 11 TO R1 358 359 S000152 4F NOT 360 S000153 D1 INC R1 361 S000154 21 WITH R1 362 363 MPACK_OAMSET_150 364 S000155 57 ADD R7 365 366 S000156 3D A4 08 LMS R4,CWORK8 367 S000159 AC 10 IBT R12,#4*4 368 S00015B 02 CACHE 369 S00015C 2F 1D MOVE R13,R15 370 371 S00015E 44 LDW (R4) 372 S00015F 51 ADD R1 373 S000160 90 SBK 374 S000161 D4 INC R4 375 S000162 D4 INC R4 376 S000163 44 LDW (R4) 377 S000164 52 ADD R2 378 379 S000165 24 WITH R4 380 S000166 3E 56 ADD #006 381 382 S000168 3C LOOP 383 S000169 90 SBK 384 385 S00016A 00 STOP 386 S00016B 01 NOP 387 ; 388 ;******************************************************************************** 389 ;* * 390 ;* * 391 ;* (R1) <-- ENDSXL * 392 ;* (R2) <-- ENDSYL * 393 ;* (R3) <-- ENCHPT * 394 ;* (R8) <-- ENMUKI * 395 ;* (R10) <-- 敵のインデックス * 396 ;* (R12) <-- キャラクターデータ数 * 397 ;* (R14) <-- ＯＡＭセットデータアドレス * 398 ;* * 399 ;******************************************************************************** 400 00016C M_OAMSET_SB EQU $ 401 S00016C 3F DF ROMB 402 S00016E 24 1B MOVE R11,R4 403 S000170 BC FROM R12 404 S000171 3D 83 UMULT R3 405 S000173 A6 05 IBT R6,#005 406 S000175 3D 9F LMULT 407 S000177 B4 FROM R4 408 S000178 1E TO R14 409 S000179 5E ADD R14 410 S00017A 2B 14 MOVE R4,R11 411 412 mJSR OAMSET_SB 412+ S00017C 94 LINK #4 412+ S00017D FF 0183' IWT R15, #OAMSET_SB 412+ S000180 01 NOP 413 S000181 00 STOP 414 S000182 01 NOP 415 ; 416 ;******************************************************************************** 417 ;* * 418 ;* [In] * 419 ;* (R1) <-- ENDSXL * 420 ;* (R2) <-- ENDSYL * 421 ;* (R8) <-- ENMUKI * 422 ;* (R10) <-- 敵のインデックス * 423 ;* (R12) <-- キャラクターデータ数 * 424 ;* (R14) <-- ＯＡＭセットデータアドレス * 425 ;* * 426 ;* [Brk] * 427 ;* R10,R12,R14 * 428 ;* * 429 ;******************************************************************************** 430 OAMSET_SB 431 S000183 F0 1042 IWT R0,#CENCLOR ;ATR SET 432 S000186 5A ADD R10 433 S000187 13 TO R3 434 S000188 3D 40 LDB (R0) 435 S00018A B8 FROM R8 ;ENMUKI 436 S00018B 58 ADD R8 437 S00018C 50 ADD R0 438 S00018D 3E 88 MULT #008H 439 S00018F 3D C3 XOR R3 440 S000191 13 TO R3 441 S000192 4D SWAP 442 ; 443 S000193 F0 1180 IWT R0,#CENCHRB 444 S000196 5A ADD R10 445 S000197 3D 40 LDB (R0) 446 S000199 3E 88 MULT #8 447 S00019B 3E A0 10 SMS R0,CWORK10 ;キャラクターバンク 448 ; 449 S00019E F0 10E0 IWT R0,#CENEMU0 ;DATA SET 450 S0001A1 5A ADD R10 451 S0001A2 3D 40 LDB (R0) 452 S0001A4 1A TO R10 453 S0001A5 4D SWAP 454 ; 455 S0001A6 02 CACHE 456 ; 457 OAMSET_SB2 458 S0001A7 3E AB 30 SMS R11,RTS0 459 460 S0001AA 2F 1D MOVE R13,R15 ; loop address set 461 462 S0001AC 3F EF GETBS 463 S0001AE F9 4000 IWT R9,#4000H ;H flip check data 464 S0001B1 29 WITH R9 465 S0001B2 73 AND R3 466 S0001B3 09 05' BEQ OAMSET_SB120 ;H frip ? [ no:OAMSET_SB120 ] 467 S0001B5 DE INC R14 ;[ * (Z)=1: IBT R9,#0 ] 468 ; 469 S0001B6 4F NOT 470 S0001B7 D0 INC R0 471 S0001B8 A9 08 IBT R9,#008H 472 473 OAMSET_SB120 474 S0001BA 15 TO R5 475 S0001BB 51 ADD R1 ; r5 <- x position 476 ; 477 S0001BC 3F EF GETBS 478 S0001BE AB 00 IBT R11,#00H ;V flip check data 479 S0001C0 23 B3 MOVES R3,R3 480 S0001C2 0A 05' BPL OAMSET_SB130 ;V frip ? [ no:OAMSET_130 ] 481 S0001C4 DE INC R14 482 ; 483 S0001C5 4F NOT 484 S0001C6 D0 INC R0 485 S0001C7 AB 08 IBT R11,#008H 486 487 OAMSET_SB130 488 S0001C9 16 TO R6 489 S0001CA 52 ADD R2 ; r6 <- y position 490 ; 491 S0001CB EF GETB 492 S0001CC DE INC R14 493 S0001CD 3D EF GETBH 494 S0001CF DE INC R14 495 ; 496 S0001D0 17 TO R7 497 S0001D1 3D C3 XOR R3 ; R7 <- atoribute & chara No. 498 ; 499 S0001D3 EF GETB ; oamsb 500 S0001D4 3E 72 AND #02H 501 S0001D6 08 05' BNE OAMSET_SB140 502 S0001D8 01 NOP 503 ; 504 S0001D9 25 WITH R5 505 S0001DA 59 ADD R9 506 S0001DB 26 WITH R6 507 S0001DC 5B ADD R11 508 509 OAMSET_SB140 510 S0001DD 3D EF GETBH ;(R0) <-- sub,data 511 S0001DF DE INC R14 512 ; 513 S0001E0 B5 FROM R5 514 S0001E1 34 STW (R4) ; x position 515 S0001E2 D4 INC R4 516 S0001E3 D4 INC R4 517 ; 518 S0001E4 15 TO R5 ; r5 <- sub,data 519 S0001E5 3D CA XOR R10 520 ; 521 S0001E7 B6 FROM R6 522 S0001E8 34 STW (R4) ; y position 523 S0001E9 D4 INC R4 524 S0001EA D4 INC R4 525 S0001EB 3D A0 10 LMS R0,CWORK10 ;(R0) <-- キャラクターバンク 526 S0001EE 57 ADD R7 527 S0001EF 34 STW (R4) ; chara No., atoribute 528 S0001F0 D4 INC R4 529 S0001F1 D4 INC R4 530 S0001F2 B5 FROM R5 531 S0001F3 34 STW (R4) ; oamsb,data 532 S0001F4 D4 INC R4 533 ; 534 S0001F5 3C LOOP 535 S0001F6 D4 INC R4 536 537 S0001F7 3D AB 30 LMS R11,RTS0 538 539 mRTS 539+ S0001FA 9B JMP R11 539+ S0001FB 01 NOP 540 ; 541 ; 542 ;******************************************************************************** 543 ;* まざーぱっくん（茎）特別ＯＡＭセット * 544 ;* * 545 ;* [In] * 546 ;* (R1) <-- ENDSXL * 547 ;* (R2) <-- ENDSYL * 548 ;* (R8) <-- ENMUKI * 549 ;* (R10) <-- 敵のインデックス * 550 ;* (R0) <-- ＯＡＭセットデータバンク * 551 ;* (R14) <-- ＯＡＭセットデータアドレス * 552 ;* WRKF <-- ＯＡＭセットしない数 * 553 ;* * 554 ;******************************************************************************** 555 MPACH_OAML 556 S0001FC 20 00 18 10 08 BYTE 04*8,00*8,03*8,02*8,01*8 557 ; 558 000201 M_MPACH_OAMSET EQU $ 559 S000201 3F DF ROMB 560 ; 561 S000203 F0 1362 IWT R0,#CENOAML 562 S000206 5A ADD R10 563 S000207 14 TO R4 564 S000208 40 LDW (R0) 565 S000209 24 B4 MOVES R4,R4 566 S00020B 0A 03' BPL MPACH_OAMSET_000 ;ＯＡＭ確保？ ( yes:MPACH_OAMSET_000 ) 567 S00020D 01 NOP 568 ; 569 S00020E 00 STOP 570 S00020F 01 NOP 571 ; 572 MPACH_OAMSET_000 573 S000210 3E A4 24 SMS R4,REG4 574 mLDB0 CENCHPT,R10 574+ S000213 F0 1402 IWT R0,#CENCHPT 574+ S000216 5A ADD R10 574+ S000217 3D 40 LDB (R0) 575 S000219 50 ADD R0 576 S00021A 2E WITH R14 577 S00021B 50 ADD R0 578 S00021C 3E EF GETBL 579 S00021E DE INC R14 580 S00021F 1E TO R14 ;(R14) <-- セットパターンＯＡＭセットデータアドレス 581 S000220 3D EF GETBH 582 ; 583 mJSR OAMSET_SB 583+ S000222 94 LINK #4 583+ S000223 FF 0183' IWT R15, #OAMSET_SB 583+ S000226 01 NOP 584 ; 585 S000227 3D A0 0F LMS R0,CWORKF 586 S00022A 1C TO R12 587 S00022B 3E 60 SUB #0 588 S00022D 09 17' BEQ MPACH_OAMSET_080 589 S00022F 01 NOP 590 591 S000230 A0 00' IBT R0,#BANK MPACH_OAML 592 S000232 3F DF ROMB 593 594 S000234 FE 01FC' IWT R14,#MPACH_OAML 595 S000237 FB 8000 IWT R11,#08000H 596 S00023A 3D A4 24 LMS R4,REG4 597 598 S00023D 02 CACHE 599 S00023E 2F 1D MOVE R13,R15 600 601 S000240 EF GETB 602 S000241 54 ADD R4 603 S000242 BB FROM R11 604 S000243 30 STW (R0) 605 606 S000244 3C LOOP 607 S000245 DE INC R14 608 609 MPACH_OAMSET_080 610 S000246 00 STOP 611 S000247 01 NOP 612 ; 613 ;******************************************************************************** 614 ;* ダイナミックテレサＯＡＭセット * 615 ;* * 616 ;* [In] * 617 ;* (R1) <-- ENDSXL * 618 ;* (R2) <-- ENDSYL * 619 ;* (R3) <-- フェイスオフセットＸ　ＰＯＳ． * 620 ;* (R5) <-- ” 　 Ｙ　ＰＯＳ． * 621 ;* (R6) <-- 倍率 * 622 ;* (R8) <-- ENMUKI * 623 ;* (R10) <-- 敵のインデックス * 624 ;* * 625 ;******************************************************************************** 626 000248 M_DTELE_OAMSET EQU $ 627 S000248 B3 FROM R3 ;R1 <- セットＸ　ＰＯＳ． 628 S000249 3D 9F LMULT ; 629 S00024B 24 WITH R4 ; 630 S00024C C0 HIB ; 631 S00024D 9E LOB ; 632 S00024E 4D SWAP ; 633 S00024F C4 OR R4 ; 634 S000250 28 B8 MOVES R8,R8 ; 635 S000252 09 03' BEQ DTELE_OAMSET_010 ; 636 S000254 01 NOP ; 637 ; 638 S000255 4F NOT ; 639 S000256 D0 INC R0 ; 640 ; 641 DTELE_OAMSET_010 ; 642 S000257 51 ADD R1 ; 643 S000258 11 TO R1 ; 644 S000259 3E 68 SUB #08 ;8-10H 645 646 S00025B B5 FROM R5 ;R2 <- セットＹ　ＰＯＳ． 647 S00025C 3D 9F LMULT ; 648 S00025E 24 WITH R4 ; 649 S00025F C0 HIB ; 650 S000260 9E LOB ; 651 S000261 4D SWAP ; 652 S000262 C4 OR R4 ; 653 S000263 52 ADD R2 ; 654 S000264 12 TO R2 ; 655 S000265 3E 58 ADD #08 ; 656 657 mLDW R4,CENOAML,R10 657+ S000267 F0 1362 IWT R0,#CENOAML 657+ S00026A 5A ADD R10 657+ S00026B 14 TO R4 657+ S00026C 40 LDW (R0) 658 S00026D AC 02 IBT R12,#002 ;R12 <- 縦ループ回数セット 659 S00026F A3 10 IBT R3,#010H ; 660 mLDB0 CENCHPT,R10 ;いないいない ? 660+ S000271 F0 1402 IWT R0,#CENCHPT 660+ S000274 5A ADD R10 660+ S000275 3D 40 LDB (R0) 661 S000277 3E 61 SUB #1 ; 662 S000279 09 05' BEQ DTELE_OAMSET_100 ; yes: DTELE_OAMSET_100 663 S00027B 22 WITH R2 664 665 S00027C 63 SUB R3 666 S00027D AC 04 IBT R12,#004 ;R12 <- 縦ループ回数セット 667 S00027F 22 WITH R2 668 669 DTELE_OAMSET_100 670 S000280 63 SUB R3 671 672 S000281 28 B8 MOVES R8,R8 ;左向き ? 673 S000283 09 05' BEQ DTELE_OAMSET_110 ; yes: DTELE_OAMSET_110 674 S000285 01 NOP 675 676 S000286 21 WITH R1 677 S000287 53 ADD R3 678 S000288 A3 F0 IBT R3,#0F0H 679 680 DTELE_OAMSET_110 681 S00028A A5 02 IBT R5,#02 682 S00028C FB FF01 IWT R11,#0FF01H 683 684 S00028F F0 1042 IWT R0,#CENCLOR ;ATR SET 685 S000292 5A ADD R10 686 S000293 17 TO R7 687 S000294 3D 40 LDB (R0) 688 S000296 B8 FROM R8 ;ENMUKI 689 S000297 58 ADD R8 690 S000298 50 ADD R0 691 S000299 3E 88 MULT #008H 692 S00029B 17 TO R7 693 S00029C 3D C7 XOR R7 694 ; 695 S00029E 02 CACHE 696 S00029F 2F 1D MOVE R13,R15 697 698 S0002A1 21 19 MOVE R9,R1 699 S0002A3 B9 FROM R9 700 701 DTELE_OAMSET_130 702 S0002A4 34 STW (R4) 703 S0002A5 D4 INC R4 704 S0002A6 D4 INC R4 705 S0002A7 B2 FROM R2 706 S0002A8 34 STW (R4) 707 S0002A9 D4 INC R4 708 S0002AA D4 INC R4 709 S0002AB D4 INC R4 710 S0002AC 44 LDW (R4) 711 S0002AD 7B AND R11 712 S0002AE C7 OR R7 713 S0002AF 90 SBK 714 S0002B0 D4 INC R4 715 S0002B1 B5 FROM R5 716 S0002B2 34 STW (R4) 717 S0002B3 D4 INC R4 718 S0002B4 D4 INC R4 719 720 S0002B5 B9 FROM R9 721 S0002B6 3F 61 CMP R1 722 S0002B8 08 06' BNE DTELE_OAMSET_200 723 S0002BA 22 WITH R2 724 725 S0002BB 29 WITH R9 726 S0002BC 53 ADD R3 727 S0002BD 05 E5' BRA DTELE_OAMSET_130 728 S0002BF B9 FROM R9 729 730 DTELE_OAMSET_200 731 S0002C0 3E 5F ADD #0FH 732 733 S0002C2 3C LOOP 734 S0002C3 D2 INC R2 735 736 S0002C4 00 STOP 737 S0002C5 01 NOP 738 ; 739 ;******************************************************************************** 740 ;* げろぞー特別ＯＡＭセット * 741 ;* * 742 ;* [In] * 743 ;* (R0) <-- ＯＡＭセットデータバンク * 744 ;* (R1) <-- ENDSXL * 745 ;* (R2) <-- ENDSYL * 746 ;* (R8) <-- ENMUKI * 747 ;* (R10) <-- 敵のインデックス * 748 ;* (R12) <-- 本体のキャラクターデータ数 * 749 ;* (R14) <-- 本体ＯＡＭセットデータアドレス * 750 ;* WRK12 <-- 舌のキャラクターデータ数 * 751 ;* WRK13 <-- 舌ＯＡＭセットデータアドレス * 752 ;* WRK14 <-- 後ろ足ＯＡＭセットデータアドレス * 753 ;* WRK15 <-- 舌の長さＸ * 754 ;* WRK16 <-- 舌の長さＹ * 755 ;* WRK1C <-- セットスタートＸ * 756 ;* WRK1D <-- セットスタートＹ * 757 ;* * 758 ;* [Out] * 759 ;* WRK1E <-- 舌の先端オフセットＸ * 760 ;* WRK1F <-- 舌の先端オフセットＹ * 761 ;* * 762 ;******************************************************************************** 763 0002C6 M_GEROZ_OAMSET EQU $ 764 S0002C6 3F DF ROMB 765 ; 766 S0002C8 3D A0 1C LMS R0,CWORK1C 767 S0002CB 95 SEX 768 S0002CC 90 SBK 769 S0002CD 3D A0 1D LMS R0,CWORK1D 770 S0002D0 95 SEX 771 S0002D1 90 SBK 772 ; 773 S0002D2 2E WITH R14 ;(R14) <-- セットパターンＯＡＭデータアドレス 774 S0002D3 3E 50 ADD #0 ; 775 776 S0002D5 3E AA 2A SMS R10,REG10 777 mJSR OAMSET_SB 777+ S0002D8 94 LINK #4 777+ S0002D9 FF 0183' IWT R15, #OAMSET_SB 777+ S0002DC 01 NOP 778 S0002DD 3D AA 2A LMS R10,REG10 779 ; 780 S0002E0 3D A0 13 LMS R0,CWORK13 ;(R14) <-- セットパターンＯＡＭデータアドレス 781 S0002E3 2E B0 MOVES R14,R0 ;舌伸びてる ? 782 S0002E5 09 29' BEQ GEROZ_OAMSET_100+1 ; no: GEROZ_OAMSET_100+1 783 S0002E7 3D A0 1C LMS R0,CWORK1C ;CWRK1E <- セットスタートＸ 784 S0002EA 3D A7 15 LMS R7,CWORK15 ; 785 S0002ED 27 WITH R7 ; 786 S0002EE 3D 96 DIV2 ; 787 S0002F0 67 SUB R7 ; 788 S0002F1 3E A0 1E SMS R0,CWORK1E ; 789 S0002F4 3D A7 16 LMS R7,CWORK16 ;CWRK1F <- セットスタートＹ 790 S0002F7 27 WITH R7 ; 791 S0002F8 3D 96 DIV2 ; 792 S0002FA 3D A0 1D LMS R0,CWORK1D ; 793 S0002FD 67 SUB R7 ; 794 S0002FE 3E A0 1F SMS R0,CWORK1F ; 795 796 S000301 3D AC 12 LMS R12,CWORK12 ;(R12) <-- セットキャラクターデータ数 797 S000304 3E AA 2A SMS R10,REG10 798 mJSR OAMSET_SB 798+ S000307 94 LINK #4 798+ S000308 FF 0183' IWT R15, #OAMSET_SB 798+ S00030B 01 NOP 799 S00030C 3D AA 2A LMS R10,REG10 800 801 GEROZ_OAMSET_100 802 S00030F 3D A0 14 LMS R0,CWORK14 ;(R14) <-- セットパターンＯＡＭデータアドレス 803 S000312 2E B0 MOVES R14,R0 ;後ろ足ない ? 804 S000314 09 08' BEQ GEROZ_OAMSET_800 ; yes: GEROZ_OAMSET_800 805 S000316 01 NOP 806 807 S000317 AC 02 IBT R12,#002 ;(R12) <-- セットキャラクターデータ数 808 mJSR OAMSET_SB 808+ S000319 94 LINK #4 808+ S00031A FF 0183' IWT R15, #OAMSET_SB 808+ S00031D 01 NOP 809 810 GEROZ_OAMSET_800 811 812 S00031E 00 STOP 813 S00031F 01 NOP 814 ; 815 ;**************************************************************** 816 ;* * 817 ;* 数値の変化ルーチン（１点だけ） * 818 ;* * 819 ;* [In] * 820 ;* R1 変化させる元の数　その１ * 821 ;* R2 　　　　　”　　　　　２ * 822 ;* R3 　　　　　”　　　　　３ * 823 ;* R6 変化量（１００％＝１００Ｈ） * 824 ;* R7 変化させる先の数　その１ * 825 ;* R8 　　　　　”　　　　　２ * 826 ;* R9 　　　　　”　　　　　３ * 827 ;* * 828 ;* [Out] * 829 ;* R1 変化後の数　その１ * 830 ;* R2 　　　　”　　　２ * 831 ;* R3 　　　　”　　　３ * 832 ;* * 833 ;**************************************************************** 834 000320 M_B_1P_MORPH EQU $ 835 S000320 FA 0100 IWT R10,#00100H 836 S000323 FB 0200 IWT R11,#00200H 837 S000326 FC 01FE IWT R12,#001FEH 838 839 S000329 B1 FROM R1 840 S00032A 14 TO R4 841 S00032B 67 SUB R7 842 S00032C B4 FROM R4 843 S00032D 5A ADD R10 844 S00032E 3F 6B CMP R11 845 S000330 0C 08' BCC M_B_1P_MORPH0600 846 S000332 01 NOP 847 848 S000333 0B 04' BMI M_B_1P_MORPH0400 849 S000335 24 WITH R4 850 851 S000336 05 02' BRA M_B_1P_MORPH0600 852 S000338 6B SUB R11 853 854 M_B_1P_MORPH0400 855 S000339 5B ADD R11 856 857 M_B_1P_MORPH0600 858 S00033A B4 FROM R4 859 S00033B 3D 9F LMULT 860 S00033D 24 WITH R4 861 S00033E C0 HIB 862 S00033F 9E LOB 863 S000340 4D SWAP 864 S000341 C4 OR R4 865 S000342 B1 FROM R1 866 S000343 60 SUB R0 867 S000344 11 TO R1 868 S000345 7C AND R12 869 870 S000346 B2 FROM R2 871 S000347 68 SUB R8 872 S000348 3D 9F LMULT 873 S00034A 24 WITH R4 874 S00034B C0 HIB 875 S00034C 9E LOB 876 S00034D 4D SWAP 877 S00034E C4 OR R4 878 S00034F 22 WITH R2 879 S000350 60 SUB R0 880 881 S000351 B3 FROM R3 882 S000352 14 TO R4 883 S000353 69 SUB R9 884 S000354 B4 FROM R4 885 S000355 5A ADD R10 886 S000356 3F 6B CMP R11 887 S000358 0C 08' BCC M_B_1P_MORPH0900 888 S00035A 01 NOP 889 890 S00035B 0B 04' BMI M_B_1P_MORPH0700 891 S00035D 24 WITH R4 892 893 S00035E 05 02' BRA M_B_1P_MORPH0900 894 S000360 6B SUB R11 895 896 M_B_1P_MORPH0700 897 S000361 5B ADD R11 898 899 M_B_1P_MORPH0900 900 S000362 B4 FROM R4 901 S000363 3D 9F LMULT 902 S000365 24 WITH R4 903 S000366 C0 HIB 904 S000367 9E LOB 905 S000368 4D SWAP 906 S000369 C4 OR R4 907 S00036A B3 FROM R3 908 S00036B 60 SUB R0 909 S00036C 13 TO R3 910 S00036D 7C AND R12 911 912 S00036E 00 STOP 913 S00036F 01 NOP 914 ; 915 ;**************************************************************** 916 ;* enemy 1 point rotation * 917 ;**************************************************************** 918 ;[IN] R1 角度 （　最大１ＦＥ　） 919 ; R5 Ｘ　ＰＯＳ． 920 ; R6 Ｙ　ＰＯＳ． 921 ; 922 ;[OUT] R0 Ｘ　ＰＯＳ． 923 ; R1 Ｙ　ＰＯＳ． 924 ; 925 000370 M_ENMY_1P_ROT2 EQU $ 926 mJSR M_ENMY_1P_ROT2_S 926+ S000370 94 LINK #4 926+ S000371 FF 0377' IWT R15, #M_ENMY_1P_ROT2_S 926+ S000374 01 NOP 927 928 S000375 00 STOP 929 S000376 01 NOP 930 ; 931 M_ENMY_1P_ROT2_S 932 S000377 A0 00" IBT R0,#BANK SIN 933 S000379 3F DF ROMB 934 935 S00037B F0 0000" IWT R0,#SIN 936 S00037E 1E TO R14 937 S00037F 51 ADD R1 938 939 S000380 F0 0000" IWT R0,#COS 940 S000383 19 TO R9 941 S000384 51 ADD R1 942 943 S000385 EF GETB 944 S000386 DE INC R14 945 S000387 3D EF GETBH 946 S000389 20 17 MOVE R7,R0 947 948 S00038B 3D 9F LMULT ;R2 <- Y SIN 949 S00038D 24 WITH R4 ; 950 S00038E C0 HIB ; 951 S00038F 9E LOB ; 952 S000390 4D SWAP ; 953 S000391 12 TO R2 ; 954 S000392 C4 OR R4 ; 955 956 S000393 29 1E MOVE R14,R9 957 S000395 EF GETB 958 S000396 DE INC R14 959 S000397 3D EF GETBH 960 S000399 20 18 MOVE R8,R0 961 962 S00039B 3D 9F LMULT ;R3 <- Y COS 963 S00039D 24 WITH R4 ; 964 S00039E C0 HIB ; 965 S00039F 9E LOB ; 966 S0003A0 4D SWAP ; 967 S0003A1 13 TO R3 ; 968 S0003A2 C4 OR R4 ; 969 970 S0003A3 25 16 MOVE R6,R5 971 S0003A5 B7 FROM R7 ;R1 <- X SIN + Y COS 972 S0003A6 3D 9F LMULT ; 973 S0003A8 24 WITH R4 ; 974 S0003A9 C0 HIB ; 975 S0003AA 9E LOB ; 976 S0003AB 4D SWAP ; 977 S0003AC C4 OR R4 ; 978 S0003AD 11 TO R1 ; 979 S0003AE 53 ADD R3 ; 980 981 S0003AF B8 FROM R8 ;R0 <- X COS - Y SIN 982 S0003B0 3D 9F LMULT ; 983 S0003B2 24 WITH R4 ; 984 S0003B3 C0 HIB ; 985 S0003B4 9E LOB ; 986 S0003B5 4D SWAP ; 987 S0003B6 C4 OR R4 ; 988 S0003B7 52 ADD R2 ; 989 990 mRTS 990+ S0003B8 9B JMP R11 990+ S0003B9 01 NOP 991 ;; 992 ;;******************************************************************************** 993 ;;* かめボスＯＡＭセット * 994 ;;* * 995 ;;* [In] * 996 ;;* (R10) <-- 敵のインデックス * 997 ;;* WRK0 <-- データバンク * 998 ;;* WRK9 <-- オフセット位置データアドレス * 999 ;;* WRK11 <-- セットＸ　ＰＯＳ． * 1000 ;;* WRK12 <-- セットＹ　ＰＯＳ． * 1001 ;;* REG4 <-- ＯＡＭセットアドレス * 1002 ;;* * 1003 ;;******************************************************************************** 1004 ;M_BOSS0_OAMSET2 EQU $ 1005 ; LMS R0,CWORK0 1006 ; ROMB 1007 ;; 1008 ; LMS R0,CWORK10 ;R14 <-- ＯＡＭセットデータアドレス 1009 ; MULT R12 ; 1010 ; MULT #05 ; 1011 ; LMS R1,CWORK9 ; 1012 ; TO R14 ; 1013 ; ADD R1 ; 1014 ; mJSR BOSS0_OAMSET_SB 1015 ; 1016 ; STOP 1017 ; NOP 1018 ; 1019 ;******************************************************************************** 1020 ;* かめボスＯＡＭセット * 1021 ;* * 1022 ;* [In] * 1023 ;* (R10) <-- 敵のインデックス * 1024 ;* WRK0 <-- ＦＲＯＭデータバンク * 1025 ;* WRK1 <-- ＦＲＯＭデータＣＨＰＴ * 1026 ;* WRK2 <-- ＴＯデータＣＨＰＴ * 1027 ;* WRK3 <-- モーフィング率（０〜１００Ｈ） * 1028 ;* WRK4 <-- モーフィング方向フラグ * 1029 ;* WRK5 <-- モーフィングフラグ * 1030 ;* WRK7 <-- ENDSXL+8 * 1031 ;* WRK8 <-- ENDSYL+8 * 1032 ;* WRK9 <-- 前足オフセット位置データアドレス * 1033 ;* WRKA <-- 前手オフセット位置データアドレス * 1034 ;* WRKB <-- 尾オフセット位置データアドレス * 1035 ;* WRKC <-- 頭オフセット位置データアドレス * 1036 ;* WRKD <-- 後手オフセット位置データアドレス * 1037 ;* WRKE <-- 後足オフセット位置データアドレス * 1038 ;* WRKF <-- ＯＡＭデータベースアドレス * 1039 ;* WRK13 <-- 前足のオフセットＸ　ＰＯＳ． * 1040 ;* WRK14 <-- 後足のオフセットＸ　ＰＯＳ． * 1041 ;* WRK15 <-- 絵の回転角ＦＲＯＭデータインデックス * 1042 ;* WRK16 <-- 絵の回転角ＴＯデータインデックス * 1043 ;* WRK17 <-- 絵の回転角データアドレス * 1044 ;* WRK18 <-- 絵の回転角データモーフィング方向フラグ * 1045 ;* WRK19 <-- 移動許可フラグ * 1046 ;* REG3 <-- ダメージカウンター * 1047 ;* REG8 <-- BBODYXZM * 1048 ;* REG9 <-- BBODYYZM * 1049 ;* * 1050 ;* [Out] * 1051 ;* WRK10 <-- セットＮＯ． * 1052 ;* WRK11 <-- 甲羅のセット中心Ｘ　ＰＯＳ． * 1053 ;* WRK12 <-- 甲羅のセット中心Ｙ　ＰＯＳ． * 1054 ;* WRK13 <-- 前足のオフセットＸ　ＰＯＳ． * 1055 ;* WRK14 <-- 後足のオフセットＸ　ＰＯＳ． * 1056 ;* WRK1A <-- 足の回転角 * 1057 ;* WRK1B <-- 手の回転角 * 1058 ;* WRK1C <-- 尾の回転角 * 1059 ;* WRK1D <-- 頭の回転角 * 1060 ;* WRK1E <-- 甲羅の回転角 * 1061 ;* WRK1F <-- 下になる足のセンターＹ　ＰＯＳ． * 1062 ;* REG0 <-- 頭のオフセットＸ　ＰＯＳ． * 1063 ;* REG10 <-- 頭のオフセットＹ　ＰＯＳ． * 1064 ;* REG11 <-- チェックEWIDEY * 1065 ;* REG12 <-- チェックEPWIDY * 1066 ;* REG13 <-- プレイヤークロスチェックの結果 * 1067 ;* REG15 <-- チェックレンジデータアドレス * 1068 ;* * 1069 ;* [Break] * 1070 ;* WRK10,WRK11,WRK12,WRK1E,WRK1F,REG1,REG2,REG4,REG5,REG6,REG7 * 1071 ;* REG14 * 1072 ;* * 1073 ;******************************************************************************** 1074 0003BA M_BOSS0_OAMSET EQU $ 1075 mLDW0 CENOAML,R10 1075+ S0003BA F0 1362 IWT R0,#CENOAML 1075+ S0003BD 5A ADD R10 1075+ S0003BE 40 LDW (R0) 1076 S0003BF 24 B0 MOVES R4,R0 1077 S0003C1 0A 03' BPL BOSS0_OAMSET_000 ;ＯＡＭ確保？ ( yes:BOSS0_OAMSET_000 ) 1078 S0003C3 01 NOP 1079 ; 1080 S0003C4 00 STOP 1081 S0003C5 01 NOP 1082 ; 1083 BOSS0_OAMSET_000 1084 S0003C6 3E A4 24 SMS R4,REG4 1085 ; 1086 S0003C9 3D A0 04 LMS R0,CWORK4 ;WRK1E <- モーフィング方向フラグ 1087 S0003CC 3E A0 1E SMS R0,CWORK1E 1088 ; 1089 S0003CF 3D A7 0F LMS R7,CWORKF 1090 S0003D2 A6 23 IBT R6,#05*7 1091 S0003D4 3D A0 01 LMS R0,CWORK1 ;WRK1 <- ＦＲＯＭデータアドレス 1092 S0003D7 86 MULT R6 1093 S0003D8 57 ADD R7 1094 S0003D9 90 SBK 1095 S0003DA 3E A0 21 SMS R0,REG1 1096 S0003DD 3D A0 02 LMS R0,CWORK2 ;WRK2 <- ＴＯデータアドレス 1097 S0003E0 86 MULT R6 1098 S0003E1 57 ADD R7 1099 S0003E2 90 SBK 1100 S0003E3 3E A0 22 SMS R0,REG2 1101 S0003E6 3D A0 05 LMS R0,CWORK5 1102 S0003E9 3E A0 25 SMS R0,REG5 1103 ; 1104 mJSR BOSS0_MOVE 1104+ S0003EC 94 LINK #4 1104+ S0003ED FF 0660' IWT R15, #BOSS0_MOVE 1104+ S0003F0 01 NOP 1105 ; 1106 S0003F1 3D A0 04 LMS R0,CWORK4 ;WRK1E <- モーフィング方向フラグ 1107 S0003F4 3E A0 1E SMS R0,CWORK1E 1108 ; 1109 S0003F7 3D A0 21 LMS R0,REG1 1110 S0003FA 3E A0 01 SMS R0,CWORK1 1111 S0003FD 3D A0 22 LMS R0,REG2 1112 S000400 3E A0 02 SMS R0,CWORK2 1113 S000403 3D A0 25 LMS R0,REG5 1114 S000406 3E A0 05 SMS R0,CWORK5 1115 ; 1116 S000409 F0 0526' IWT R0,#BOSS0_RANGE ;チェックレンジデータアドレス 1117 S00040C 3E A0 2F SMS R0,REG15 ; 1118 S00040F A0 01 IBT R0,#01 ;プレイヤークロスチェックの結果をクリア 1119 S000411 3E A0 2D SMS R0,REG13 ; 1120 ; 1121 ;前足 1122 mJSR BOSS0_MORPH 1122+ S000414 94 LINK #4 1122+ S000415 FF 0762' IWT R15, #BOSS0_MORPH 1122+ S000418 01 NOP 1123 mJSR BOSS0_PLCHK 1123+ S000419 94 LINK #4 1123+ S00041A FF 052E' IWT R15, #BOSS0_PLCHK 1123+ S00041D 01 NOP 1124 S00041E 3D A0 12 LMS R0,CWORK12 1125 S000421 3E A0 1F SMS R0,CWORK1F 1126 S000424 AC 04 IBT R12,#04 1127 S000426 3D A0 10 LMS R0,CWORK10 ;R14 <-- ＯＡＭセットデータアドレス 1128 S000429 8C MULT R12 ; 1129 S00042A 3E 85 MULT #05 ; 1130 S00042C 3D A1 09 LMS R1,CWORK9 ; 1131 S00042F 1E TO R14 ; 1132 S000430 51 ADD R1 ; 1133 mJSR BOSS0_OAMSET_SB 1133+ S000431 94 LINK #4 1133+ S000432 FF 0883' IWT R15, #BOSS0_OAMSET_SB 1133+ S000435 01 NOP 1134 ;前手 1135 mJSR BOSS0_MORPH 1135+ S000436 94 LINK #4 1135+ S000437 FF 0762' IWT R15, #BOSS0_MORPH 1135+ S00043A 01 NOP 1136 mJSR BOSS0_PLCHK 1136+ S00043B 94 LINK #4 1136+ S00043C FF 052E' IWT R15, #BOSS0_PLCHK 1136+ S00043F 01 NOP 1137 S000440 AC 04 IBT R12,#04 1138 S000442 3D A0 10 LMS R0,CWORK10 ;R14 <-- ＯＡＭセットデータアドレス 1139 S000445 8C MULT R12 ; 1140 S000446 3E 85 MULT #05 ; 1141 S000448 3D A1 0A LMS R1,CWORKA ; 1142 S00044B 1E TO R14 ; 1143 S00044C 51 ADD R1 ; 1144 mJSR BOSS0_OAMSET_SB 1144+ S00044D 94 LINK #4 1144+ S00044E FF 0883' IWT R15, #BOSS0_OAMSET_SB 1144+ S000451 01 NOP 1145 ;尾 1146 mJSR BOSS0_MORPH 1146+ S000452 94 LINK #4 1146+ S000453 FF 0762' IWT R15, #BOSS0_MORPH 1146+ S000456 01 NOP 1147 ;;;;;;;; mJSR BOSS0_PLCHK 1148 S000457 3D A0 2F LMS R0,REG15 ;次のチェックレンジデータアドレス計算 1149 S00045A D0 INC R0 ; 1150 S00045B D0 INC R0 ; 1151 S00045C 90 SBK ; 1152 S00045D 3D A0 2D LMS R0,REG13 ;プレイヤークロスチェックの結果INC. 1153 S000460 D0 INC R0 ; 1154 S000461 D0 INC R0 ; 1155 S000462 90 SBK ; 1156 ; 1157 S000463 AC 01 IBT R12,#01 1158 S000465 3D A0 10 LMS R0,CWORK10 ;R14 <-- ＯＡＭセットデータアドレス 1159 S000468 8C MULT R12 ; 1160 S000469 3E 85 MULT #05 ; 1161 S00046B 3D A1 0B LMS R1,CWORKB ; 1162 S00046E 1E TO R14 ; 1163 S00046F 51 ADD R1 ; 1164 mJSR BOSS0_OAMSET_SB 1164+ S000470 94 LINK #4 1164+ S000471 FF 0883' IWT R15, #BOSS0_OAMSET_SB 1164+ S000474 01 NOP 1165 ;頭 1166 mJSR BOSS0_MORPH 1166+ S000475 94 LINK #4 1166+ S000476 FF 0762' IWT R15, #BOSS0_MORPH 1166+ S000479 01 NOP 1167 S00047A 3D A0 26 LMS R0,REG6 1168 S00047D 3E A0 20 SMS R0,REG0 1169 S000480 3D A0 27 LMS R0,REG7 1170 S000483 3E A0 2A SMS R0,REG10 1171 mJSR BOSS0_PLCHK 1171+ S000486 94 LINK #4 1171+ S000487 FF 052E' IWT R15, #BOSS0_PLCHK 1171+ S00048A 01 NOP 1172 S00048B AC 04 IBT R12,#04 1173 S00048D 3D A0 10 LMS R0,CWORK10 ;R14 <-- ＯＡＭセットデータアドレス 1174 S000490 8C MULT R12 ; 1175 S000491 3E 85 MULT #05 ; 1176 S000493 3D A1 0C LMS R1,CWORKC ; 1177 S000496 1E TO R14 ; 1178 S000497 51 ADD R1 ; 1179 mJSR BOSS0_OAMSET_SB 1179+ S000498 94 LINK #4 1179+ S000499 FF 0883' IWT R15, #BOSS0_OAMSET_SB 1179+ S00049C 01 NOP 1180 ;後手 1181 mJSR BOSS0_MORPH 1181+ S00049D 94 LINK #4 1181+ S00049E FF 0762' IWT R15, #BOSS0_MORPH 1181+ S0004A1 01 NOP 1182 S0004A2 AC 04 IBT R12,#04 1183 S0004A4 3D A0 10 LMS R0,CWORK10 ;R14 <-- ＯＡＭセットデータアドレス 1184 S0004A7 8C MULT R12 ; 1185 S0004A8 3E 85 MULT #05 ; 1186 S0004AA 3D A1 0D LMS R1,CWORKD ; 1187 S0004AD 1E TO R14 ; 1188 S0004AE 51 ADD R1 ; 1189 mJSR BOSS0_OAMSET_SB 1189+ S0004AF 94 LINK #4 1189+ S0004B0 FF 0883' IWT R15, #BOSS0_OAMSET_SB 1189+ S0004B3 01 NOP 1190 ;後足 1191 mJSR BOSS0_MORPH 1191+ S0004B4 94 LINK #4 1191+ S0004B5 FF 0762' IWT R15, #BOSS0_MORPH 1191+ S0004B8 01 NOP 1192 S0004B9 3D A1 12 LMS R1,CWORK12 ;前足が地面に着いてる ? 1193 S0004BC 3D A0 1F LMS R0,CWORK1F ; 1194 S0004BF 61 SUB R1 ; 1195 S0004C0 0A 02' BPL BOSS0_OAMSET_700 ; yes: BOSS0_OAMSET_700 1196 S0004C2 B1 FROM R1 1197 1198 S0004C3 90 SBK 1199 1200 BOSS0_OAMSET_700 1201 S0004C4 AC 04 IBT R12,#04 1202 S0004C6 3D A0 10 LMS R0,CWORK10 ;R14 <-- ＯＡＭセットデータアドレス 1203 S0004C9 8C MULT R12 ; 1204 S0004CA 3E 85 MULT #05 ; 1205 S0004CC 3D A1 0E LMS R1,CWORKE ; 1206 S0004CF 1E TO R14 ; 1207 S0004D0 51 ADD R1 ; 1208 mJSR BOSS0_OAMSET_SB 1208+ S0004D1 94 LINK #4 1208+ S0004D2 FF 0883' IWT R15, #BOSS0_OAMSET_SB 1208+ S0004D5 01 NOP 1209 ;甲羅 1210 mJSR BOSS0_MORPH 1210+ S0004D6 94 LINK #4 1210+ S0004D7 FF 0762' IWT R15, #BOSS0_MORPH 1210+ S0004DA 01 NOP 1211 ; 1212 S0004DB 3D A0 18 LMS R0,CWORK18 ;WRK1E <- 絵の回転角データモーフィング方向フラグ 1213 S0004DE 3E A0 1E SMS R0,CWORK1E 1214 ; 1215 S0004E1 3D A7 17 LMS R7,CWORK17 1216 S0004E4 A6 05 IBT R6,#05 1217 S0004E6 3D A0 15 LMS R0,CWORK15 ;WRK1 <- ＦＲＯＭデータアドレス 1218 S0004E9 86 MULT R6 1219 S0004EA 57 ADD R7 1220 S0004EB 90 SBK 1221 S0004EC 3D A0 16 LMS R0,CWORK16 ;WRK2 <- ＴＯデータアドレス 1222 S0004EF 86 MULT R6 1223 S0004F0 57 ADD R7 1224 S0004F1 90 SBK 1225 ; 1226 S0004F2 3D A0 00 LMS R0,CWORK0 1227 S0004F5 3F DF ROMB 1228 ; 1229 mJSR_X BOSS0_A_M_SB 1229+ S0004F7 94 LINK #4 1229+ S0004F8 FF 0905' IWT R15, #BOSS0_A_M_SB 1230 S0004FB 02 CACHE 1231 S0004FC 3E A1 1A SMS R1,CWORK1A 1232 mJSR BOSS0_A_M_SB 1232+ S0004FF 94 LINK #4 1232+ S000500 FF 0905' IWT R15, #BOSS0_A_M_SB 1232+ S000503 01 NOP 1233 S000504 3E A1 1B SMS R1,CWORK1B 1234 mJSR BOSS0_A_M_SB 1234+ S000507 94 LINK #4 1234+ S000508 FF 0905' IWT R15, #BOSS0_A_M_SB 1234+ S00050B 01 NOP 1235 S00050C 3E A1 1C SMS R1,CWORK1C 1236 mJSR BOSS0_A_M_SB 1236+ S00050F 94 LINK #4 1236+ S000510 FF 0905' IWT R15, #BOSS0_A_M_SB 1236+ S000513 01 NOP 1237 S000514 3E A1 1D SMS R1,CWORK1D 1238 mJSR BOSS0_A_M_SB 1238+ S000517 94 LINK #4 1238+ S000518 FF 0905' IWT R15, #BOSS0_A_M_SB 1238+ S00051B 01 NOP 1239 S00051C 3E A1 1E SMS R1,CWORK1E 1240 1241 mJSR BOSS0_PLCHK_K 1241+ S00051F 94 LINK #4 1241+ S000520 FF 05A9' IWT R15, #BOSS0_PLCHK_K 1241+ S000523 01 NOP 1242 1243 S000524 00 STOP 1244 S000525 01 NOP 1245 ; 1246 ;******************************************************************************** 1247 ;* かめボスプレイヤーチェックルーチン * 1248 ;* * 1249 ;* [In] * 1250 ;* (R10) <-- 敵のインデックス * 1251 ;* REG3 <-- ダメージカウンター * 1252 ;* REG6 <-- オフセットＸ　ＰＯＳ． * 1253 ;* REG7 <-- オフセットＹ　ＰＯＳ． * 1254 ;* REG8 <-- BBODYXZM * 1255 ;* REG9 <-- BBODYYZM * 1256 ;* REG13 <-- プレイヤークロスチェックの結果 * 1257 ;* REG15 <-- チェックレンジデータアドレス * 1258 ;* * 1259 ;* [Break] * 1260 ;* R4,R6,R7,R8,REG14 * 1261 ;* * 1262 ;* [Out] * 1263 ;* REG11 <-- チェックEWIDEY * 1264 ;* REG12 <-- チェックEPWIDY * 1265 ;* REG13 <-- プレイヤークロスチェックの結果 * 1266 ;* REG15 <-- チェックレンジデータアドレス * 1267 ;* * 1268 ;******************************************************************************** 1269 BOSS0_RANGE 1270 S000526 08 08 HEX 008,008 ;［足］ 1271 S000528 06 06 HEX 006,006 ;［手］ 1272 S00052A 03 03 HEX 003,003 ;［尾］ 1273 S00052C 08 08 HEX 008,008 ;［頭］ 1274 ; 1275 BOSS0_PLCHK 1276 S00052E 3E AE 2E SMS R14,REG14 1277 1278 S000531 3D A0 23 LMS R0,REG3 ;ダメージを受けてる ? 1279 S000534 3E 60 SUB #0 ; 1280 S000536 08 5B' BNE BOSS0_PLCHK0300 ; yes: BOSS0_PLCHK0300 1281 S000538 01 NOP 1282 1283 S000539 F0 0000' IWT R0,#BANK BOSS0_RANGE 1284 S00053C 3F DF ROMB 1285 1286 mLDW R7,CEPWIDX,R10 ;Ｘチェック範囲内 ? 1286+ S00053E F0 1C16 IWT R0,#CEPWIDX 1286+ S000541 5A ADD R10 1286+ S000542 17 TO R7 1286+ S000543 40 LDW (R0) 1287 S000544 3D A0 26 LMS R0,REG6 ; 1288 S000547 18 TO R8 ; 1289 S000548 57 ADD R7 ; 1290 ; 1291 S000549 3D A7 90 LMS R7,CPWIDEX ; 1292 S00054C 3D AE 2F LMS R14,REG15 ; 1293 S00054F 3D A6 28 LMS R6,REG8 ; 1294 S000552 EF GETB ; 1295 S000553 3D 9F LMULT ; 1296 S000555 24 WITH R4 ; 1297 S000556 C0 HIB ; 1298 S000557 9E LOB ; 1299 S000558 4D SWAP ; 1300 S000559 C4 OR R4 ; 1301 S00055A 57 ADD R7 ; 1302 S00055B 14 TO R4 ; 1303 S00055C 50 ADD R0 ; 1304 S00055D 58 ADD R8 ; 1305 S00055E 3F 64 CMP R4 ; 1306 S000560 0D 31' BCS BOSS0_PLCHK0300 ; no: BOSS0_PLCHK0300 1307 S000562 01 NOP 1308 1309 S000563 DE INC R14 ;Ｙチェック範囲内 ? 1310 mLDW R7,CEPWIDY,R10 ; 1310+ S000564 F0 1C18 IWT R0,#CEPWIDY 1310+ S000567 5A ADD R10 1310+ S000568 17 TO R7 1310+ S000569 40 LDW (R0) 1311 S00056A 3D A0 27 LMS R0,REG7 ; 1312 S00056D 18 TO R8 ; 1313 S00056E 57 ADD R7 ; 1314 S00056F 3E A8 2C SMS R8,REG12 ; 1315 ; 1316 S000572 3D A7 91 LMS R7,CPWIDEY ; 1317 S000575 3D A6 29 LMS R6,REG9 ; 1318 S000578 EF GETB ; 1319 S000579 3D 9F LMULT ; 1320 S00057B 24 WITH R4 ; 1321 S00057C C0 HIB ; 1322 S00057D 9E LOB ; 1323 S00057E 4D SWAP ; 1324 S00057F C4 OR R4 ; 1325 S000580 3E A0 2B SMS R0,REG11 ; 1326 S000583 57 ADD R7 ; 1327 S000584 14 TO R4 ; 1328 S000585 50 ADD R0 ; 1329 S000586 58 ADD R8 ; 1330 S000587 3F 64 CMP R4 ; 1331 S000589 0D 08' BCS BOSS0_PLCHK0300 ; no: BOSS0_PLCHK0300 1332 S00058B 01 NOP 1333 1334 S00058C 3D A0 2D LMS R0,REG13 ;プレイヤークロスチェックの結果セット 1335 S00058F E0 DEC R0 ; 1336 S000590 05 0D' BRA BOSS0_PLCHK0500 ; 1337 S000592 90 SBK ; 1338 1339 BOSS0_PLCHK0300 1340 S000593 3D A0 2F LMS R0,REG15 ;次のチェックレンジデータアドレス計算 1341 S000596 D0 INC R0 ; 1342 S000597 D0 INC R0 ; 1343 S000598 90 SBK ; 1344 S000599 3D A0 2D LMS R0,REG13 ;プレイヤークロスチェックの結果INC. 1345 S00059C D0 INC R0 ; 1346 S00059D D0 INC R0 ; 1347 S00059E 90 SBK ; 1348 1349 BOSS0_PLCHK0500 1350 S00059F 3D A0 00 LMS R0,CWORK0 1351 S0005A2 3F DF ROMB 1352 1353 S0005A4 3D AE 2E LMS R14,REG14 1354 1355 BOSS0_PLCHK0800 1356 BOSS0_P_K0000 1357 1358 mRTS 1358+ S0005A7 9B JMP R11 1358+ S0005A8 01 NOP 1359 ; 1360 ;******************************************************************************** 1361 ;* かめボスプレイヤーチェックルーチン * 1362 ;* * 1363 ;* [In] * 1364 ;* (R10) <-- 敵のインデックス * 1365 ;* WRK1E <-- 甲羅の回転角 * 1366 ;* REG6 <-- 甲羅のオフセットＸ　ＰＯＳ． * 1367 ;* REG7 <-- 甲羅のオフセットＹ　ＰＯＳ． * 1368 ;* REG8 <-- BBODYXZM * 1369 ;* REG9 <-- BBODYYZM * 1370 ;* REG13 <-- プレイヤークロスチェックの結果 * 1371 ;* * 1372 ;* [Break] * 1373 ;* R4,R6,R7,R8,REG14 * 1374 ;* * 1375 ;* [Out] * 1376 ;* REG11 <-- チェックEWIDEY * 1377 ;* REG12 <-- チェックEPWIDY * 1378 ;* REG13 <-- プレイヤークロスチェックの結果 * 1379 ;* * 1380 ;******************************************************************************** 1381 BOSS0_PLCHK_K 1382 S0005A9 3D A0 2D LMS R0,REG13 ;すでにどこかにあたってる ? 1383 S0005AC 03 LSR ; 1384 S0005AD 0C F8' BCC BOSS0_P_K0000 ; yes: BOSS0_P_K0000 1385 S0005AF 01 NOP 1386 1387 S0005B0 3E AE 2E SMS R14,REG14 1388 S0005B3 3E AB 30 SMS R11,RTS0 1389 1390 S0005B6 3D A6 28 LMS R6,REG8 ;R0 <- Ｘ　ＰＯＳ． 1391 S0005B9 A0 16 IBT R0,#016H ; 1392 S0005BB 3D 9F LMULT ; 1393 S0005BD 24 WITH R4 ; 1394 S0005BE C0 HIB ; 1395 S0005BF 9E LOB ; 1396 S0005C0 4D SWAP ; 1397 S0005C1 C4 OR R4 ; 1398 S0005C2 3E A0 02 SMS R0,CWORK2 1399 S0005C5 3D A1 1E LMS R1,CWORK1E 1400 mJSR_X M_1P_ROT 1400+ S0005C8 94 LINK #4 1400+ S0005C9 FF 081C' IWT R15, #M_1P_ROT 1401 S0005CC 20 WITH R0 1402 S0005CD 3E 60 SUB #0 1403 S0005CF 0A 03' BPL BOSS0_P_K0100 1404 S0005D1 01 NOP 1405 1406 S0005D2 4F NOT 1407 S0005D3 D0 INC R0 1408 1409 BOSS0_P_K0100 1410 S0005D4 3E A0 00 SMS R0,CWORK0 1411 1412 S0005D7 B1 FROM R1 1413 S0005D8 3E 60 SUB #0 1414 S0005DA 0A 03' BPL BOSS0_P_K0110 1415 S0005DC 21 WITH R1 1416 1417 S0005DD 4F NOT 1418 S0005DE D1 INC R1 1419 1420 BOSS0_P_K0110 1421 S0005DF 3E A1 01 SMS R1,CWORK1 1422 1423 S0005E2 3D A6 29 LMS R6,REG9 ;R0 <- Ｙ　ＰＯＳ． 1424 S0005E5 A0 14 IBT R0,#014H ; 1425 S0005E7 3D 9F LMULT ; 1426 S0005E9 24 WITH R4 ; 1427 S0005EA C0 HIB ; 1428 S0005EB 9E LOB ; 1429 S0005EC 4D SWAP ; 1430 S0005ED C4 OR R4 ; 1431 S0005EE 3E A0 03 SMS R0,CWORK3 1432 S0005F1 3D A1 1E LMS R1,CWORK1E 1433 mJSR_X M_1P_ROT 1433+ S0005F4 94 LINK #4 1433+ S0005F5 FF 081C' IWT R15, #M_1P_ROT 1434 S0005F8 20 WITH R0 1435 S0005F9 3E 60 SUB #0 1436 S0005FB 0A 03' BPL BOSS0_P_K0120 1437 S0005FD 01 NOP 1438 1439 S0005FE 4F NOT 1440 S0005FF D0 INC R0 1441 1442 BOSS0_P_K0120 1443 S000600 3D A5 01 LMS R5,CWORK1 1444 S000603 3F 65 CMP R5 1445 S000605 0B 02' BMI BOSS0_P_K0121 1446 S000607 01 NOP 1447 1448 S000608 90 SBK 1449 1450 BOSS0_P_K0121 1451 S000609 20 B1 MOVES R0,R1 1452 S00060B 0A 03' BPL BOSS0_P_K0130 1453 S00060D B1 FROM R1 1454 1455 S00060E 4F NOT 1456 S00060F D0 INC R0 1457 1458 BOSS0_P_K0130 1459 S000610 3D A5 00 LMS R5,CWORK0 1460 S000613 3F 65 CMP R5 1461 S000615 0B 02' BMI BOSS0_P_K0131 1462 S000617 01 NOP 1463 1464 S000618 90 SBK 1465 1466 BOSS0_P_K0131 1467 S000619 3D AB 30 LMS R11,RTS0 1468 1469 mLDW R7,CEPWIDX,R10 ;Ｘチェック範囲内 ? 1469+ S00061C F0 1C16 IWT R0,#CEPWIDX 1469+ S00061F 5A ADD R10 1469+ S000620 17 TO R7 1469+ S000621 40 LDW (R0) 1470 S000622 3D A0 26 LMS R0,REG6 ; 1471 S000625 18 TO R8 ; 1472 S000626 57 ADD R7 ; 1473 ; 1474 S000627 3D A7 90 LMS R7,CPWIDEX ; 1475 S00062A 3D A0 00 LMS R0,CWORK0 ; 1476 S00062D 57 ADD R7 ; 1477 S00062E 14 TO R4 ; 1478 S00062F 50 ADD R0 ; 1479 S000630 58 ADD R8 ; 1480 S000631 3F 64 CMP R4 ; 1481 S000633 0D 26' BCS BOSS0_P_K0300 ; no: BOSS0_P_K0300 1482 S000635 01 NOP 1483 1484 mLDW R7,CEPWIDY,R10 ;Ｙチェック範囲内 ? 1484+ S000636 F0 1C18 IWT R0,#CEPWIDY 1484+ S000639 5A ADD R10 1484+ S00063A 17 TO R7 1484+ S00063B 40 LDW (R0) 1485 S00063C 3D A0 27 LMS R0,REG7 ; 1486 S00063F 18 TO R8 ; 1487 S000640 57 ADD R7 ; 1488 S000641 3E A8 2C SMS R8,REG12 ; 1489 ; 1490 S000644 3D A7 91 LMS R7,CPWIDEY ; 1491 S000647 3D A0 01 LMS R0,CWORK1 ; 1492 S00064A 3E A0 2B SMS R0,REG11 ; 1493 S00064D 57 ADD R7 ; 1494 S00064E 14 TO R4 ; 1495 S00064F 50 ADD R0 ; 1496 S000650 58 ADD R8 ; 1497 S000651 3F 64 CMP R4 ; 1498 S000653 0D 06' BCS BOSS0_P_K0300 ; no: BOSS0_P_K0300 1499 S000655 01 NOP 1500 1501 S000656 3D A0 2D LMS R0,REG13 ;プレイヤークロスチェックの結果セット 1502 S000659 E0 DEC R0 ; 1503 S00065A 90 SBK ; 1504 1505 BOSS0_P_K0300 1506 S00065B 3D AE 2E LMS R14,REG14 1507 1508 mRTS 1508+ S00065E 9B JMP R11 1508+ S00065F 01 NOP 1509 ; 1510 ;******************************************************************************** 1511 ;* かめボス移動ルーチン * 1512 ;* * 1513 ;* [In] * 1514 ;* (R10) <-- 敵のインデックス * 1515 ;* WRK0 <-- ＦＲＯＭデータバンク * 1516 ;* WRK1 <-- ＦＲＯＭデータアドレス * 1517 ;* WRK2 <-- ＴＯデータアドレス * 1518 ;* WRK3 <-- モーフィング率（０〜１００Ｈ） * 1519 ;* WRK1E <-- モーフィング方向フラグ * 1520 ;* WRK5 <-- モーフィングフラグ * 1521 ;* WRK7 <-- ENDSXL+8 * 1522 ;* WRK8 <-- ENDSYL+8 * 1523 ;* WRKF <-- ＯＡＭデータベースアドレス * 1524 ;* WRK13 <-- 前足のオフセットＸ　ＰＯＳ． * 1525 ;* WRK14 <-- 後足のオフセットＸ　ＰＯＳ． * 1526 ;* WRK19 <-- 移動許可フラグ * 1527 ;* REG8 <-- BBODYXZM * 1528 ;* REG9 <-- BBODYYZM * 1529 ;* * 1530 ;* [Out] * 1531 ;* WRK13 <-- 前足のオフセットＸ　ＰＯＳ． * 1532 ;* WRK14 <-- 後足のオフセットＸ　ＰＯＳ． * 1533 ;* * 1534 ;******************************************************************************** 1535 BOSS0_MOVE 1536 S000660 3E AB 30 SMS R11,RTS0 1537 ; 1538 mJSR BOSS0_MV_SB 1538+ S000663 94 LINK #4 1538+ S000664 FF 06DB' IWT R15, #BOSS0_MV_SB 1538+ S000667 01 NOP 1539 S000668 3E A7 1A SMS R7,CWORK1A 1540 S00066B 3E A8 1B SMS R8,CWORK1B 1541 S00066E A7 19 IBT R7,#05*5 1542 S000670 3D A0 01 LMS R0,CWORK1 ;ＦＲＯＭデータアドレス 1543 S000673 57 ADD R7 1544 S000674 90 SBK 1545 S000675 3D A0 02 LMS R0,CWORK2 ;ＴＯデータアドレス 1546 S000678 57 ADD R7 1547 S000679 90 SBK 1548 S00067A A6 20 IBT R6,#020H 1549 S00067C 3D A0 05 LMS R0,CWORK5 ;モーフィングフラグ 1550 S00067F 3D 9F LMULT 1551 S000681 B4 FROM R4 1552 S000682 90 SBK 1553 S000683 F6 0400 IWT R6,#00400H 1554 S000686 3D A0 1E LMS R0,CWORK1E ;モーフィング方向フラグ 1555 S000689 3D 9F LMULT 1556 S00068B B4 FROM R4 1557 S00068C 90 SBK 1558 mJSR BOSS0_MV_SB 1558+ S00068D 94 LINK #4 1558+ S00068E FF 06DB' IWT R15, #BOSS0_MV_SB 1558+ S000691 01 NOP 1559 1560 S000692 3D A0 19 LMS R0,CWORK19 ;移動する ? 1561 S000695 3E 60 SUB #0 ; 1562 S000697 09 0F' BEQ BOSS0_MOVE0100+1 ; yes: BOSS0_MOVE0100+1 1563 S000699 3D A0 1A LMS R0,CWORK1A 1564 1565 S00069C 3E A0 13 SMS R0,CWORK13 1566 S00069F 3E A7 14 SMS R7,CWORK14 1567 ; 1568 S0006A2 3D AB 30 LMS R11,RTS0 1569 ; 1570 mRTS 1570+ S0006A5 9B JMP R11 1570+ S0006A6 01 NOP 1571 ; 1572 BOSS0_MOVE0100 1573 S0006A7 3D A0 1B LMS R0,CWORK1B ;前足の方が地面に着いてる ? 1574 S0006AA 68 SUB R8 ; 1575 S0006AB 0A 11' BPL BOSS0_MOVE0500 ; yes: BOSS0_MOVE0500 1576 S0006AD 01 NOP 1577 1578 S0006AE 3D A0 1A LMS R0,CWORK1A 1579 S0006B1 3E A0 13 SMS R0,CWORK13 1580 S0006B4 3D A1 14 LMS R1,CWORK14 1581 S0006B7 B7 FROM R7 1582 S0006B8 90 SBK 1583 S0006B9 27 WITH R7 1584 S0006BA 61 SUB R1 1585 S0006BB 05 0D' BRA BOSS0_MOVE0600 1586 S0006BD 01 NOP 1587 1588 BOSS0_MOVE0500 1589 S0006BE 3E A7 14 SMS R7,CWORK14 1590 S0006C1 3D A0 1A LMS R0,CWORK1A 1591 S0006C4 3D A1 13 LMS R1,CWORK13 1592 S0006C7 90 SBK 1593 S0006C8 17 TO R7 1594 S0006C9 61 SUB R1 1595 1596 BOSS0_MOVE0600 1597 mLDW0 CENXPSL,R10 1597+ S0006CA F0 10E2 IWT R0,#CENXPSL 1597+ S0006CD 5A ADD R10 1597+ S0006CE 40 LDW (R0) 1598 S0006CF 67 SUB R7 1599 S0006D0 90 SBK 1600 ; 1601 S0006D1 3D A0 07 LMS R0,CWORK7 1602 S0006D4 67 SUB R7 1603 S0006D5 90 SBK 1604 ; 1605 S0006D6 3D AB 30 LMS R11,RTS0 1606 ; 1607 mRTS 1607+ S0006D9 9B JMP R11 1607+ S0006DA 01 NOP 1608 ; 1609 BOSS0_MV_SB 1610 S0006DB 3E AB 31 SMS R11,RTS1 1611 ; 1612 S0006DE 3D A0 00 LMS R0,CWORK0 1613 S0006E1 3F DF ROMB 1614 ; 1615 S0006E3 3D AE 02 LMS R14,CWORK2 ;ＴＯデータを読む 1616 S0006E6 DE INC R14 ; 1617 ; 1618 S0006E7 11 TO R1 ; 1619 S0006E8 EF GETB ; 1620 S0006E9 DE INC R14 ; 1621 S0006EA 12 TO R2 ; 1622 S0006EB EF GETB ; 1623 S0006EC DE INC R14 ; 1624 S0006ED 13 TO R3 ; 1625 S0006EE EF GETB ; 1626 S0006EF DE INC R14 ; 1627 S0006F0 15 TO R5 ; 1628 S0006F1 EF GETB ; 1629 1630 S0006F2 3D A6 03 LMS R6,CWORK3 ;モーフィング率１００％ ? 1631 S0006F5 B6 FROM R6 ; 1632 S0006F6 C0 HIB ; 1633 S0006F7 08 2A' BNE BOSS0_MV_SB1000 ; yes: BOSS0_MV_SB1000 1634 S0006F9 01 NOP 1635 1636 S0006FA 3D A0 05 LMS R0,CWORK5 ;モーフィングする ? 1637 S0006FD 50 ADD R0 ; 1638 S0006FE 0C 23' BCC BOSS0_MV_SB1000 ; no: BOSS0_MV_SB1000 1639 S000700 01 NOP 1640 1641 S000701 3D AE 01 LMS R14,CWORK1 ;WRK14 <- ＦＲＯＭデータアドレス 1642 S000704 DE INC R14 ; 1643 1644 mJSR_X BOSS0_MORPH_SBA 1644+ S000705 94 LINK #4 1644+ S000706 FF 083D' IWT R15, #BOSS0_MORPH_SBA 1645 S000709 21 WITH R1 1646 S00070A 11 TO R1 ;[ MOVE R1,R0 ] 1647 1648 mJSR_X BOSS0_MORPH_SBR 1648+ S00070B 94 LINK #4 1648+ S00070C FF 0874' IWT R15, #BOSS0_MORPH_SBR 1649 S00070F 22 WITH R2 1650 S000710 12 TO R2 ;[ MOVE R2,R0 ] 1651 1652 mJSR_X BOSS0_MORPH_SBA 1652+ S000711 94 LINK #4 1652+ S000712 FF 083D' IWT R15, #BOSS0_MORPH_SBA 1653 S000715 23 WITH R3 1654 S000716 13 TO R3 ;[ MOVE R3,R0 ] 1655 1656 mJSR_X BOSS0_MORPH_SBR 1656+ S000717 94 LINK #4 1656+ S000718 FF 0874' IWT R15, #BOSS0_MORPH_SBR 1657 S00071B 25 WITH R5 1658 S00071C 15 TO R5 ;[ MOVE R5,R0 ] 1659 1660 S00071D 3D A0 1E LMS R0,CWORK1E 1661 S000720 03 LSR 1662 S000721 03 LSR 1663 S000722 90 SBK 1664 ; 1665 BOSS0_MV_SB1000 1666 mJSR_X M_1P_ROT 1666+ S000723 94 LINK #4 1666+ S000724 FF 081C' IWT R15, #M_1P_ROT 1667 S000727 22 WITH R2 1668 S000728 20 17 MOVE R7,R0 1669 S00072A 21 18 MOVE R8,R1 1670 1671 S00072C 23 11 MOVE R1,R3 1672 S00072E 25 16 MOVE R6,R5 1673 mJSR M_1P_ROT_S 1673+ S000730 94 LINK #4 1673+ S000731 FF 0821' IWT R15, #M_1P_ROT_S 1673+ S000734 01 NOP 1674 S000735 17 TO R7 1675 S000736 57 ADD R7 1676 mLDB0 CENMUKI,R10 ;左向き ? 1676+ S000737 F0 1400 IWT R0,#CENMUKI 1676+ S00073A 5A ADD R10 1676+ S00073B 3D 40 LDB (R0) 1677 S00073D 3E 60 SUB #0 ; 1678 S00073F 09 03' BEQ BOSS0_MV_SB1500 ; yes: BOSS0_MV_SB1500 1679 S000741 27 WITH R7 1680 1681 S000742 4F NOT 1682 S000743 D7 INC R7 1683 1684 BOSS0_MV_SB1500 1685 S000744 3D A6 28 LMS R6,REG8 1686 S000747 B7 FROM R7 1687 S000748 3D 9F LMULT 1688 S00074A 24 WITH R4 1689 S00074B C0 HIB 1690 S00074C 9E LOB 1691 S00074D 4D SWAP 1692 S00074E 17 TO R7 1693 S00074F C4 OR R4 1694 1695 S000750 B8 FROM R8 1696 S000751 51 ADD R1 1697 S000752 3D A6 29 LMS R6,REG9 1698 S000755 3D 9F LMULT 1699 S000757 24 WITH R4 1700 S000758 C0 HIB 1701 S000759 9E LOB 1702 S00075A 4D SWAP 1703 S00075B 18 TO R8 1704 S00075C C4 OR R4 1705 ; 1706 S00075D 3D AB 31 LMS R11,RTS1 1707 ; 1708 mRTS 1708+ S000760 9B JMP R11 1708+ S000761 01 NOP 1709 ; 1710 ;******************************************************************************** 1711 ;* かめボスＯＡＭ用モーフィングデータ計算 * 1712 ;* * 1713 ;* [In] * 1714 ;* (R10) <-- 敵のインデックス * 1715 ;* WRK0 <-- ＦＲＯＭデータバンク * 1716 ;* WRK1 <-- ＦＲＯＭデータアドレス * 1717 ;* WRK2 <-- ＴＯデータアドレス * 1718 ;* WRK3 <-- モーフィング率（０〜１００Ｈ） * 1719 ;* WRK1E <-- モーフィング方向フラグ * 1720 ;* WRK7 <-- ENDSXL+8 * 1721 ;* WRK8 <-- ENDSYL+8 * 1722 ;* REG8 <-- BBODYXZM * 1723 ;* REG9 <-- BBODYYZM * 1724 ;* * 1725 ;* [Out] * 1726 ;* WRK10 <-- セットＮＯ． * 1727 ;* WRK11 <-- セット中心Ｘ　ＰＯＳ． * 1728 ;* WRK12 <-- セット中心Ｙ　ＰＯＳ． * 1729 ;* * 1730 ;******************************************************************************** 1731 BOSS0_MORPH 1732 S000762 3E AB 30 SMS R11,RTS0 1733 ; 1734 S000765 3D A0 00 LMS R0,CWORK0 1735 S000768 3F DF ROMB 1736 ; 1737 S00076A 3D AE 02 LMS R14,CWORK2 ;ＴＯデータを読む 1738 ; 1739 S00076D EF GETB ; 1740 S00076E DE INC R14 ; 1741 S00076F 3E A0 10 SMS R0,CWORK10 ; 1742 ; 1743 S000772 11 TO R1 ; 1744 S000773 EF GETB ; 1745 S000774 DE INC R14 ; 1746 S000775 12 TO R2 ; 1747 S000776 EF GETB ; 1748 S000777 DE INC R14 ; 1749 S000778 13 TO R3 ; 1750 S000779 EF GETB ; 1751 S00077A DE INC R14 ; 1752 S00077B 15 TO R5 ; 1753 S00077C EF GETB ; 1754 S00077D DE INC R14 ; 1755 ; 1756 S00077E 3E AE 02 SMS R14,CWORK2 ;WRK2 <- 次のＴＯデータアドレス 1757 1758 S000781 3D A6 03 LMS R6,CWORK3 ;モーフィング率１００％ ? 1759 S000784 B6 FROM R6 ; 1760 S000785 C0 HIB ; 1761 S000786 08 3C' BNE BOSS0_M1000 ; yes: BOSS0_M1000 1762 S000788 01 NOP 1763 1764 S000789 3D AE 01 LMS R14,CWORK1 ;WRK14 <- ＦＲＯＭデータアドレス 1765 1766 S00078C 3D A0 05 LMS R0,CWORK5 ;モーフィングする ? 1767 S00078F 50 ADD R0 ; 1768 S000790 0D 0C' BCS BOSS0_M0400 ; yes: BOSS0_M0400 1769 S000792 90 SBK 1770 1771 S000793 2E WITH R14 1772 S000794 3E 55 ADD #05 1773 1774 S000796 3D A0 1E LMS R0,CWORK1E 1775 S000799 50 ADD R0 1776 S00079A 50 ADD R0 1777 S00079B 05 24' BRA BOSS0_M0700 1778 S00079D 90 SBK 1779 1780 BOSS0_M0400 1781 S00079E 14 TO R4 ;WRK10 <- キャラセットＮＯ． 1782 S00079F EF GETB ; 1783 S0007A0 DE INC R14 ; 1784 ; 1785 S0007A1 B6 FROM R6 ; ;モーフィング率５０％以上 ? 1786 S0007A2 95 SEX ; ; 1787 S0007A3 0B 04' BMI BOSS0_M0500 ; ; yes: BOSS0_M0500 1788 S0007A5 01 NOP ; 1789 ; 1790 S0007A6 3E A4 10 SMS R4,CWORK10 ; 1791 1792 BOSS0_M0500 1793 mJSR_X BOSS0_MORPH_SBA 1793+ S0007A9 94 LINK #4 1793+ S0007AA FF 083D' IWT R15, #BOSS0_MORPH_SBA 1794 S0007AD 21 WITH R1 1795 S0007AE 11 TO R1 ;[ MOVE R1,R0 ] 1796 1797 mJSR_X BOSS0_MORPH_SBR 1797+ S0007AF 94 LINK #4 1797+ S0007B0 FF 0874' IWT R15, #BOSS0_MORPH_SBR 1798 S0007B3 22 WITH R2 1799 S0007B4 12 TO R2 ;[ MOVE R2,R0 ] 1800 1801 mJSR_X BOSS0_MORPH_SBA 1801+ S0007B5 94 LINK #4 1801+ S0007B6 FF 083D' IWT R15, #BOSS0_MORPH_SBA 1802 S0007B9 23 WITH R3 1803 S0007BA 13 TO R3 ;[ MOVE R3,R0 ] 1804 1805 mJSR_X BOSS0_MORPH_SBR 1805+ S0007BB 94 LINK #4 1805+ S0007BC FF 0874' IWT R15, #BOSS0_MORPH_SBR 1806 S0007BF 25 WITH R5 1807 S0007C0 15 TO R5 ;[ MOVE R5,R0 ] 1808 ; 1809 BOSS0_M0700 1810 S0007C1 3E AE 01 SMS R14,CWORK1 ;WRK1 <- 次のＦＲＯＭデータアドレス 1811 1812 BOSS0_M1000 1813 S0007C4 3D AC 07 LMS R12,CWORK7 1814 S0007C7 3D AD 08 LMS R13,CWORK8 1815 1816 mJSR_X M_1P_ROT 1816+ S0007CA 94 LINK #4 1816+ S0007CB FF 081C' IWT R15, #M_1P_ROT 1817 S0007CE 22 WITH R2 1818 S0007CF 20 17 MOVE R7,R0 1819 S0007D1 21 18 MOVE R8,R1 1820 1821 S0007D3 23 11 MOVE R1,R3 1822 S0007D5 25 16 MOVE R6,R5 1823 mJSR M_1P_ROT_S 1823+ S0007D7 94 LINK #4 1823+ S0007D8 FF 0821' IWT R15, #M_1P_ROT_S 1823+ S0007DB 01 NOP 1824 S0007DC 17 TO R7 1825 S0007DD 57 ADD R7 1826 mLDB0 CENMUKI,R10 ;左向き ? 1826+ S0007DE F0 1400 IWT R0,#CENMUKI 1826+ S0007E1 5A ADD R10 1826+ S0007E2 3D 40 LDB (R0) 1827 S0007E4 3E 60 SUB #0 ; 1828 S0007E6 09 03' BEQ BOSS0_M1100 ; yes: BOSS0_M1100 1829 S0007E8 27 WITH R7 1830 1831 S0007E9 4F NOT 1832 S0007EA D7 INC R7 1833 1834 BOSS0_M1100 1835 S0007EB 3D A6 28 LMS R6,REG8 1836 S0007EE B7 FROM R7 1837 S0007EF 3D 9F LMULT 1838 S0007F1 24 WITH R4 1839 S0007F2 C0 HIB 1840 S0007F3 9E LOB 1841 S0007F4 4D SWAP 1842 S0007F5 17 TO R7 1843 S0007F6 C4 OR R4 1844 S0007F7 3E A7 26 SMS R7,REG6 1845 S0007FA B7 FROM R7 1846 S0007FB 5C ADD R12 ;+ENDSXL+8 1847 S0007FC 3E A0 11 SMS R0,CWORK11 1848 S0007FF B1 FROM R1 1849 S000800 58 ADD R8 1850 S000801 3D A6 29 LMS R6,REG9 1851 S000804 3D 9F LMULT 1852 S000806 24 WITH R4 1853 S000807 C0 HIB 1854 S000808 9E LOB 1855 S000809 4D SWAP 1856 S00080A C4 OR R4 1857 S00080B 3E A0 27 SMS R0,REG7 1858 S00080E 5D ADD R13 ;+ENDSYL+8 1859 S00080F 3E A0 12 SMS R0,CWORK12 1860 1861 S000812 3D A0 00 LMS R0,CWORK0 1862 S000815 3F DF ROMB 1863 ; 1864 S000817 3D AB 30 LMS R11,RTS0 1865 1866 mRTS 1866+ S00081A 9B JMP R11 1866+ S00081B 01 NOP 1867 ; 1868 ;**************************************************************** 1869 ;* enemy 1 point rotation * 1870 ;**************************************************************** 1871 ;[IN] R1 角度 （　最大ＦＦ　） 1872 ; R6 半径、スカラー量、ｅｔｃ． 1873 ; 1874 ;[OUT] R0 Ｘ成分 1875 ; R1 Ｙ成分 1876 ; 1877 M_1P_ROT 1878 S00081C 16 TO R6 ;[ MOVE R6,R2 ] 1879 1880 S00081D A0 00" IBT R0,#BANK LSIN 1881 S00081F 3F DF ROMB 1882 1883 M_1P_ROT_S 1884 S000821 F0 0000" IWT R0,#LSIN 1885 S000824 1E TO R14 1886 S000825 51 ADD R1 1887 1888 S000826 F0 0000" IWT R0,#LCOS 1889 S000829 12 TO R2 1890 S00082A 51 ADD R1 1891 1892 S00082B 3F EF GETBS 1893 S00082D 86 MULT R6 1894 S00082E 50 ADD R0 1895 S00082F 50 ADD R0 1896 S000830 C0 HIB 1897 S000831 11 TO R1 1898 S000832 95 SEX 1899 1900 S000833 22 1E MOVE R14,R2 1901 S000835 3F EF GETBS 1902 S000837 86 MULT R6 1903 S000838 50 ADD R0 1904 S000839 50 ADD R0 1905 S00083A C0 HIB 1906 1907 mRTS_X 1907+ S00083B 9B JMP R11 1908 S00083C 95 SEX 1909 ; 1910 ;******************************************************************************** 1911 ;* かめボスＯＡＭ用モーフィングデータ計算（角度用サブ） * 1912 ;* * 1913 ;* [In] * 1914 ;* R* <-- モーフィングＴＯデータ * 1915 ;* R6 <-- モーフィング率（０〜１００Ｈ） * 1916 ;* R14 <-- ＦＲＯＭデータアドレス * 1917 ;* WRK1E <-- モーフィング方向フラグ * 1918 ;* * 1919 ;* [Out] * 1920 ;* R0 <-- モーフィングの結果 * 1921 ;* R14 <-- 次のＦＲＯＭデータアドレス * 1922 ;* WRK1E <-- 次のモーフィング方向フラグ * 1923 ;* * 1924 ;* [Break] * 1925 ;* R0,R4,R7,R8,R9,R12 * 1926 ;* * 1927 ;******************************************************************************** 1928 BOSS0_MORPH_SBA 1929 S00083D 17 TO R7 ;[ MOVE R7,R* ] 1930 1931 S00083E 18 TO R8 ;R8 <- ＦＲＯＭデータ 1932 S00083F EF GETB ; 1933 S000840 DE INC R14 ; 1934 1935 S000841 27 WITH R7 ;R7 <- データ差 1936 S000842 68 SUB R8 ; 1937 S000843 27 1C MOVE R12,R7 ; 1938 ; 1939 S000845 F9 0080 IWT R9,#00080H ; 1940 S000848 B7 FROM R7 ; 1941 S000849 59 ADD R9 ; 1942 S00084A 08 03' BNE BOSS0_M_SBA0080 ; 1943 S00084C 29 WITH R9 ; 1944 ; 1945 S00084D E0 DEC R0 ; 1946 S00084E 29 WITH R9 ;[ IWT R9,#00100H ] 1947 ; 1948 BOSS0_M_SBA0080 ; 1949 S00084F 59 ADD R9 ; 1950 S000850 3F 69 CMP R9 ; 1951 S000852 0C 0B' BCC BOSS0_M_SBA0300 ; 1952 S000854 B7 FROM R7 ; 1953 ; 1954 S000855 3E 60 SUB #0 ; 1955 S000857 0A 05' BPL BOSS0_M_SBA0100 ; 1956 S000859 27 WITH R7 ; 1957 ; 1958 S00085A 59 ADD R9 ; 1959 S00085B 05 02' BRA BOSS0_M_SBA0300 ; 1960 S00085D 01 NOP ; 1961 ; 1962 BOSS0_M_SBA0100 ; 1963 S00085E 69 SUB R9 ; 1964 ; 1965 BOSS0_M_SBA0300 ; 1966 S00085F 3D A0 1E LMS R0,CWORK1E ;遠回りする ? 1967 S000862 50 ADD R0 ; 1968 S000863 0C 03' BCC BOSS0_M_SBA0500 ; no: BOSS0_M_SBA0500 1969 S000865 90 SBK ;次のモーフィング方向フラグセット 1970 1971 S000866 2C 17 MOVE R7,R12 1972 1973 BOSS0_M_SBA0500 1974 S000868 B7 FROM R7 ;R7 <- モーフィング後の角度 1975 S000869 3D 9F LMULT ; 1976 S00086B 24 WITH R4 1977 S00086C C0 HIB 1978 S00086D 9E LOB 1979 S00086E 4D SWAP 1980 S00086F C4 OR R4 1981 S000870 58 ADD R8 ; 1982 S000871 9E LOB ; 1983 1984 mRTS_X 1984+ S000872 9B JMP R11 1985 S000873 20 WITH R0 1986 ; 1987 ;******************************************************************************** 1988 ;* かめボスＯＡＭ用モーフィングデータ計算（半径用サブ） * 1989 ;* * 1990 ;* [In] * 1991 ;* R* <-- モーフィングＴＯデータ * 1992 ;* R6 <-- モーフィング率（０〜１００Ｈ） * 1993 ;* R14 <-- ＦＲＯＭデータアドレス * 1994 ;* * 1995 ;* [Out] * 1996 ;* R0 <-- モーフィングの結果 * 1997 ;* R14 <-- 次のＦＲＯＭデータアドレス * 1998 ;* * 1999 ;* [Break] * 2000 ;* R0,R4,R8 * 2001 ;* * 2002 ;******************************************************************************** 2003 BOSS0_MORPH_SBR 2004 S000874 10 TO R0 ;[ MOVE R0,R* ] 2005 2006 S000875 18 TO R8 ;R8 <- ＦＲＯＭデータ 2007 S000876 EF GETB ; 2008 S000877 DE INC R14 ; 2009 2010 S000878 68 SUB R8 ;R0 <- モーフィング後の半径 2011 S000879 3D 9F LMULT ; 2012 S00087B 24 WITH R4 2013 S00087C C0 HIB 2014 S00087D 9E LOB 2015 S00087E 4D SWAP 2016 S00087F C4 OR R4 2017 S000880 58 ADD R8 ; 2018 2019 mRTS_X 2019+ S000881 9B JMP R11 2020 S000882 20 WITH R0 2021 ; 2022 ;******************************************************************************** 2023 ;* * 2024 ;* (R10) <-- 敵のインデックス * 2025 ;* (R12) <-- キャラクターデータ数 * 2026 ;* (R14) <-- ＯＡＭセットデータアドレス * 2027 ;* WRK0 <-- ＯＡＭセットデータバンク * 2028 ;* WRK11 <-- セットENDSXL * 2029 ;* WRK12 <-- セットENDSYL * 2030 ;* REG4 <-- ＯＡＭセットアドレス * 2031 ;* * 2032 ;******************************************************************************** 2033 ; 2034 BOSS0_OAMSET_SB 2035 S000883 3D A0 11 LMS R0,CWORK11 2036 S000886 11 TO R1 2037 S000887 3E 68 SUB #008 2038 S000889 3D A0 12 LMS R0,CWORK12 2039 S00088C 12 TO R2 2040 S00088D 3E 68 SUB #008 2041 S00088F 3D A4 24 LMS R4,REG4 2042 ; 2043 mLDB R3,CENCLOR,R10 ;ATR SET 2043+ S000892 F0 1042 IWT R0,#CENCLOR 2043+ S000895 5A ADD R10 2043+ S000896 13 TO R3 2043+ S000897 3D 40 LDB (R0) 2044 mLDB0 CENMUKI,R10 ;ENMUKI 2044+ S000899 F0 1400 IWT R0,#CENMUKI 2044+ S00089C 5A ADD R10 2044+ S00089D 3D 40 LDB (R0) 2045 S00089F 50 ADD R0 2046 S0008A0 50 ADD R0 2047 S0008A1 3E 88 MULT #008H 2048 S0008A3 3D C3 XOR R3 2049 S0008A5 13 TO R3 2050 S0008A6 4D SWAP 2051 ; 2052 mLDB0 CENEMU0,R10 ;DATA SET 2052+ S0008A7 F0 10E0 IWT R0,#CENEMU0 2052+ S0008AA 5A ADD R10 2052+ S0008AB 3D 40 LDB (R0) 2053 S0008AD 18 TO R8 2054 S0008AE 4D SWAP 2055 ; 2056 S0008AF 3E AB 30 SMS R11,RTS0 2057 S0008B2 02 CACHE 2058 S0008B3 2F 1D MOVE R13,R15 ; loop address set 2059 ; 2060 S0008B5 3F EF GETBS 2061 S0008B7 F9 4000 IWT R9,#4000H ;H flip check data 2062 S0008BA 29 WITH R9 2063 S0008BB 73 AND R3 2064 S0008BC 09 05' BEQ B0_OAMSET_SB120 ;H frip ? [ no:B0_OAMSET_SB120 ] 2065 S0008BE DE INC R14 ;[ * (Z)=1: IBT R9,#0 ] 2066 ; 2067 S0008BF 4F NOT 2068 S0008C0 D0 INC R0 2069 S0008C1 A9 08 IBT R9,#008H 2070 2071 B0_OAMSET_SB120 2072 S0008C3 15 TO R5 2073 S0008C4 51 ADD R1 ; r5 <- x position 2074 ; 2075 S0008C5 3F EF GETBS 2076 S0008C7 AB 00 IBT R11,#00H ;V flip check data 2077 S0008C9 23 B3 MOVES R3,R3 2078 S0008CB 0A 05' BPL B0_OAMSET_SB130 ;V frip ? [ no:B0_OAMSET_130 ] 2079 S0008CD DE INC R14 2080 ; 2081 S0008CE 4F NOT 2082 S0008CF D0 INC R0 2083 S0008D0 AB 08 IBT R11,#008H 2084 2085 B0_OAMSET_SB130 2086 S0008D2 16 TO R6 2087 S0008D3 52 ADD R2 ; r6 <- y position 2088 ; 2089 S0008D4 EF GETB 2090 S0008D5 DE INC R14 2091 S0008D6 3D EF GETBH 2092 S0008D8 DE INC R14 2093 ; 2094 S0008D9 17 TO R7 2095 S0008DA 3D C3 XOR R3 ; R7 <- atoribute & chara No. 2096 ; 2097 S0008DC EF GETB ; oamsb 2098 S0008DD 3E 72 AND #02H 2099 S0008DF 08 05' BNE B0_OAMSET_SB140 2100 S0008E1 01 NOP 2101 ; 2102 S0008E2 25 WITH R5 2103 S0008E3 59 ADD R9 2104 S0008E4 26 WITH R6 2105 S0008E5 5B ADD R11 2106 2107 B0_OAMSET_SB140 2108 S0008E6 3D EF GETBH ;(R0) <-- sub,data 2109 S0008E8 DE INC R14 2110 ; 2111 S0008E9 B5 FROM R5 2112 S0008EA 34 STW (R4) ; x position 2113 S0008EB D4 INC R4 2114 S0008EC D4 INC R4 2115 ; 2116 S0008ED 15 TO R5 ; r5 <- sub,data 2117 S0008EE 3D C8 XOR R8 2118 ; 2119 S0008F0 B6 FROM R6 2120 S0008F1 34 STW (R4) ; y position 2121 S0008F2 D4 INC R4 2122 S0008F3 D4 INC R4 2123 S0008F4 B7 FROM R7 2124 S0008F5 34 STW (R4) ; chara No., atoribute 2125 S0008F6 D4 INC R4 2126 S0008F7 D4 INC R4 2127 S0008F8 B5 FROM R5 2128 S0008F9 34 STW (R4) ; oamsb,data 2129 S0008FA D4 INC R4 2130 ; 2131 S0008FB 3C LOOP 2132 S0008FC D4 INC R4 2133 2134 S0008FD 3D AB 30 LMS R11,RTS0 2135 S000900 3E A4 24 SMS R4,REG4 2136 2137 mRTS 2137+ S000903 9B JMP R11 2137+ S000904 01 NOP 2138 ; 2139 ;******************************************************************************** 2140 ;* かめボス回転角用モーフィングデータ計算 * 2141 ;* * 2142 ;* [In] * 2143 ;* (R10) <-- 敵のインデックス * 2144 ;* WRK0 <-- ＦＲＯＭデータバンク * 2145 ;* WRK15 <-- ＦＲＯＭデータアドレス * 2146 ;* WRK16 <-- ＴＯデータアドレス * 2147 ;* WRK3 <-- モーフィング率（０〜１００Ｈ） * 2148 ;* WRK1E <-- モーフィング方向フラグ * 2149 ;* * 2150 ;******************************************************************************** 2151 BOSS0_A_M_SB 2152 S000905 3E AB 30 SMS R11,RTS0 2153 ; 2154 S000908 3D AE 16 LMS R14,CWORK16 ;ＴＯデータを読む 2155 S00090B 11 TO R1 ; 2156 S00090C EF GETB ; 2157 S00090D DE INC R14 ; 2158 S00090E BE FROM R14 ; 2159 S00090F 90 SBK ;WRK16 <- 次のＴＯデータアドレス 2160 2161 S000910 3D A6 03 LMS R6,CWORK3 ;モーフィング率１００％ ? 2162 S000913 B6 FROM R6 ; 2163 S000914 C0 HIB ; 2164 S000915 08 0D' BNE BOSS0_A_M_SB1000 ; yes: BOSS0_A_M_SB1000 2165 S000917 01 NOP 2166 2167 S000918 3D AE 15 LMS R14,CWORK15 ;R14 <- ＦＲＯＭデータアドレス 2168 2169 mJSR_X BOSS0_MORPH_SBA 2169+ S00091B 94 LINK #4 2169+ S00091C FF 083D' IWT R15, #BOSS0_MORPH_SBA 2170 S00091F 21 WITH R1 2171 S000920 11 TO R1 ;[ MOVE R1,R0 ] 2172 2173 S000921 3E AE 15 SMS R14,CWORK15 ;WRK15 <- 次のＦＲＯＭデータアドレス 2174 2175 BOSS0_A_M_SB1000 2176 S000924 3D AB 30 LMS R11,RTS0 2177 2178 mRTS 2178+ S000927 9B JMP R11 2178+ S000928 01 NOP 2179 ; 2180 ;******************************************************************************** 2181 ;* かめボスＸ　ＰＯＳ．補正 * 2182 ;* * 2183 ;* [In] * 2184 ;* (R1) <-- BBODYANG * 2185 ;* (R2) <-- BBODYACP * 2186 ;* (R3) <-- 中心回転角 * 2187 ;* (R6) <-- 甲羅の半径 * 2188 ;* (R10) <-- 敵のインデックス * 2189 ;* * 2190 ;******************************************************************************** 2191 000929 M_BOSS0_XPS_REV EQU $ 2192 mLDW R4,CENMUKI,R10 2192+ S000929 F0 1400 IWT R0,#CENMUKI 2192+ S00092C 5A ADD R10 2192+ S00092D 14 TO R4 2192+ S00092E 40 LDW (R0) 2193 2194 S00092F 21 WITH R1 2195 S000930 63 SUB R3 2196 S000931 24 B4 MOVES R4,R4 2197 S000933 08 04' BNE BOSS0_X_R0100 2198 S000935 01 NOP 2199 2200 S000936 21 WITH R1 2201 S000937 4F NOT 2202 S000938 D1 INC R1 2203 2204 BOSS0_X_R0100 2205 S000939 B1 FROM R1 2206 S00093A 62 SUB R2 2207 S00093B 50 ADD R0 2208 S00093C 13 TO R3 2209 S00093D 3D 9F LMULT 2210 2211 mLDB R5,CENXPSL+1,R10 2211+ S00093F F0 10E3 IWT R0,#CENXPSL+1 2211+ S000942 5A ADD R10 2211+ S000943 15 TO R5 2211+ S000944 3D 40 LDB (R0) 2212 mLDB0 CENXPSL-1,R10 2212+ S000946 F0 10E1 IWT R0,#CENXPSL-1 2212+ S000949 5A ADD R10 2212+ S00094A 3D 40 LDB (R0) 2213 mLDBn R2,CENXPSL,R10 2213+ S00094C F2 10E2 IWT R2,#CENXPSL 2213+ S00094F 22 WITH R2 2213+ S000950 5A ADD R10 2213+ S000951 12 TO R2 2213+ S000952 3D 42 LDB (R2) 2214 S000954 22 WITH R2 2215 S000955 4D SWAP 2216 S000956 12 TO R2 2217 S000957 C2 OR R2 2218 S000958 B3 FROM R3 2219 S000959 3E 60 SUB #00 2220 S00095B 0B 08' BMI BOSS0_X_R0300 2221 S00095D 22 WITH R2 2222 2223 S00095E 54 ADD R4 2224 S00095F B5 FROM R5 2225 S000960 3F 50 ADC #00 2226 S000962 05 07' BRA BOSS0_X_R0500 2227 S000964 01 NOP 2228 2229 BOSS0_X_R0300 2230 S000965 54 ADD R4 2231 S000966 0D 03' BCS BOSS0_X_R0500 2232 S000968 B5 FROM R5 2233 2234 S000969 3E 61 SUB #01 2235 2236 BOSS0_X_R0500 2237 S00096B 9E LOB 2238 S00096C 16 TO R6 2239 S00096D 4D SWAP 2240 S00096E B2 FROM R2 2241 S00096F C0 HIB 2242 S000970 C6 OR R6 2243 S000971 90 SBK 2244 2245 mSTB R2,CENXPSL-1,R10 2245+ S000972 F0 10E1 IWT R0,#CENXPSL-1 2245+ S000975 5A ADD R10 2245+ S000976 B2 FROM R2 2245+ S000977 3D 30 STB (R0) 2246 2247 S000979 00 STOP 2248 S00097A 01 NOP 2249 ; 2250 ; 2251 ; 2252 ; 2253 ; 2254 END