File : yst_chip3.asm SUPER-FX ASSEMBLER $Ver 1.01 Wed Jul 5 09:46:28 1995 Page 0001 1 ;************************************************************************ 2 ;* * 3 ;* title name : "yossy" * 4 ;* proccess : mario chip program.4 * 5 ;* file name : ys_chip3 * 6 ;* * 7 ;************************************************************************ 8 ; 9 ; 10 SALL 11 ; 12 include ys_chip.inc 13 ; 14 XALL 15 ; 16 ; 17 ;------------------------------------------------------------------------ 18 ;- global symbol - 19 ;------------------------------------------------------------------------ 20 GLB BERO_P_BIRI,BERO_P_RETN,BERO_P_END 21 ; 22 ;------------------------------------------------------------------------ 23 ;- extern symbol - 24 ;------------------------------------------------------------------------ 25 ; 26 ;-------------< ys_chip0 >----------------------------------------------- 27 EXT COS,SIN,LCOS,LSIN 28 ; 29 ;-------------< ys_msub0 >----------------------------------------------- 30 EXT HACHI,EGG00,EGG09,PONTA,SSLIM,PUTIG,PUTIB 31 EXT ON_DW,NLFLR,NLFUD,KORA0,KORA1,NRLF0,NRLF1,NRLF2,NRLF3 32 EXT HEIH0,CHKH0,GSTH0,MSHIH 33 ; 34 ;-------------< 敵Ｎｏ． >--------------------------------------- 35 EXT FBOM0 36 ; 37 ;-------------< ys_mpldt >----------------------------------------------- 38 EXT BERO_BIRI_P 39 ; 40 ;------------------------------------------------------------------------ 41 ;- define symbol - 42 ;------------------------------------------------------------------------ 43 4D0000 ENOBJ_DATA EQU 4D0000H 44 4D048A ESPCAD EQU 4d048aH 45 4D0914 ESPTRCAD EQU 4d0914H 46 ; 47 ; 48 ;************************************************************************ 49 ;* * 50 ;* program start * 51 ;* * 52 ;************************************************************************ 53 ; 54 ; 55 Group_9 GROUP S_chip_3 56 S_chip_3 SECT REL 57 ; 58 ; 59 ;************************************************************************ 60 ;* program start * 61 ;* in : (R1) <-- H pos * 62 ;* (R2) <-- min V pos * 63 ;* (R3) <-- V pos * 64 ;* (R4) <-- min H pos * 65 ;* (EDTADR) <-- data pointer * 66 ;************************************************************************ 67 ; 68 000000 ENDTSR EQU $ 69 S000000 02 CACHE 70 ; 71 S000001 B1 FROM R1 72 S000002 96 ASR 73 S000003 96 ASR 74 S000004 96 ASR 75 S000005 11 TO R1 76 S000006 96 ASR 77 S000007 B2 FROM R2 78 S000008 96 ASR 79 S000009 96 ASR 80 S00000A 96 ASR 81 S00000B 12 TO R2 82 S00000C 96 ASR 83 S00000D B3 FROM R3 84 S00000E 96 ASR 85 S00000F 96 ASR 86 S000010 96 ASR 87 S000011 13 TO R3 88 S000012 96 ASR 89 S000013 B4 FROM R4 90 S000014 96 ASR 91 S000015 96 ASR 92 S000016 96 ASR 93 S000017 14 TO R4 94 S000018 96 ASR 95 ; 96 S000019 AE FF IBT R14,#0FFH ;(R14) <-- end code check data 97 S00001B F6 01FF IWT R6,#01FFH ;(R6) <-- pos AND data 98 S00001E A7 16 IBT R7,#016H ;(R7) <-- X min <--> max size 99 S000020 AD 14 IBT R13,#014H ;(R13) <-- Y min <--> max size 100 S000022 A8 00 IBT R8,#00H ;(R8) <-- data ON/OFF ram pointer vvv******* warn :value out of range 101 S000024 F9 28CA IWT R9,#EDSWBF ;(R9) <-- " address vvv******* warn :value out of range 102 S000027 FA 27CE IWT R10,#EDSRBF ;(R10) <-- serach data no. set ram address 103 ; vvv******* warn :value out of range 104 S00002A 3D F5 2600 LM R5,EDTADR ; " (L,H) set 105 EDSR10 106 S00002E 3D 49 LDB (R9) 107 S000030 3E 50 ADD #00 108 S000032 09 08' BEQ EDSR20 ;set data ? ( no:EDSR20 ) 109 S000034 01 NOP 110 ; 111 S000035 25 WITH R5 112 S000036 3E 53 ADD #3 113 S000038 D8 INC R8 114 S000039 05 F3' BRA EDSR10 115 S00003B D9 INC R9 116 ; 117 EDSR20 118 S00003C 1C TO R12 119 S00003D 3D 45 LDB (R5) 120 S00003F D5 INC R5 121 S000040 3D 45 LDB (R5) 122 S000042 4D SWAP 123 S000043 CC OR R12 124 S000044 20 1C MOVE R12,R0 125 S000046 6E SUB R14 126 S000047 09 38' BEQ EDSR60 ;data end ? ( yes:EDSR60 ) 127 S000049 D5 INC R5 128 ; 129 S00004A BC FROM R12 130 S00004B 76 AND R6 131 S00004C 3A STW (R10) ;serach data no. set 132 S00004D 1B TO R11 133 S00004E 3D 45 LDB (R5) 134 S000050 D5 INC R5 135 ; 136 S000051 BC FROM R12 137 S000052 C0 HIB 138 S000053 03 LSR 139 S000054 20 1C MOVE R12,R0 140 S000056 63 SUB R3 141 S000057 08 08' BNE EDSR32 ;= Y pos ? ( no:EDSR32 ) 142 S000059 BB FROM R11 143 ; 144 S00005A 64 SUB R4 145 S00005B 0B 03' BMI EDSR30 ;>= X min ? ( no:EDSR30 ) 146 S00005D 67 SUB R7 147 S00005E 0B 0C' BMI EDSR40 ;< max ? ( yes:EDSR40 ) 148 ; 149 EDSR30 150 S000060 BB FROM R11 151 EDSR32 152 S000061 61 SUB R1 153 S000062 08 19' BNE EDSR50 ;= X pos ? ( no:EDSR50 ) 154 S000064 BC FROM R12 155 S000065 62 SUB R2 156 S000066 0B 15' BMI EDSR50 ;>= Y min ? ( no:EDSR50 ) 157 S000068 6D SUB R13 158 S000069 0A 12' BPL EDSR50 ;< max ? ( no:EDSR50 ) 159 S00006B 01 NOP 160 ; 161 ;-------------- data find !! ------------------------------------ 162 EDSR40 163 S00006C DA INC R10 164 S00006D DA INC R10 165 S00006E BB FROM R11 166 S00006F 3A STW (R10) ;serach enemy X pos set 167 S000070 DA INC R10 168 S000071 DA INC R10 169 S000072 BC FROM R12 170 S000073 3A STW (R10) ;serach enemy Y pos set 171 S000074 DA INC R10 172 S000075 DA INC R10 173 S000076 B8 FROM R8 174 S000077 3A STW (R10) ;data ON/OFF ram pointer set 175 S000078 DA INC R10 176 S000079 DA INC R10 177 S00007A BE FROM R14 ; " "ON" !! 178 S00007B 3D 39 STB (R9) 179 EDSR50 180 S00007D D8 INC R8 181 S00007E 05 AE' BRA EDSR10 182 S000080 D9 INC R9 183 ; 184 ;-------------- end set ----------------------------------------- 185 EDSR60 186 S000081 BE FROM R14 187 S000082 3A STW (R10) ;serach data end set 188 S000083 00 STOP 189 190 ; 191 ;************************************************************************ 192 ;* * 193 ;* 敵の衝突チェック * 194 ;* * 195 ;************************************************************************ 196 ;------------------------------------------------------------------------ 197 ;- use register - 198 ;- r0,r1,r2,r3,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14 - 199 ;------------------------------------------------------------------------ 200 ; 201 000084 ENCROSS EQU $ 202 ; 203 ;-------------- enmy width set -------------------------------------------------- 204 S000084 F1 10E2 IWT R1,#CENXPSL 205 S000087 F2 1182 IWT R2,#CENYPSL 206 S00008A F3 1B56 IWT R3,#CECNTXW 207 S00008D F4 0F00 IWT R4,#CENMODE 208 S000090 F5 1CD6 IWT R5,#CECENTX 209 ; 210 S000093 02 CACHE 211 ; 212 S000094 AC 18 IBT R12,#CENNO 213 S000096 2F 1D MOVE R13,R15 214 ENCR000 215 S000098 3D 44 LDB (R4) 216 S00009A 24 WITH R4 217 S00009B 3E 54 ADD #04 218 S00009D E0 DEC R0 219 S00009E 0A 14' BPL ENCR010 ; enmy on ? [ yes:ENCR010 ] 220 S0000A0 D0 INC R0 221 ; 222 ;;;; SUB R0 223 S0000A1 2C 16 MOVE R6,R12 224 S0000A3 3D 36 STB (R6) 225 ; 226 S0000A5 A0 04 IBT R0,#4 227 S0000A7 21 WITH R1 228 S0000A8 50 ADD R0 229 S0000A9 22 WITH R2 230 S0000AA 50 ADD R0 231 S0000AB 23 WITH R3 232 S0000AC 50 ADD R0 233 S0000AD 25 WITH R5 234 S0000AE 50 ADD R0 235 ; 236 S0000AF 3C LOOP 237 S0000B0 01 NOP 238 ; 239 S0000B1 05 24' BRA ENCR0F0 240 S0000B3 01 NOP 241 ; 242 ENCR010 243 S0000B4 3E 6E SUB #CEFAIL 244 S0000B6 0D 02' BCS ENCR020 245 S0000B8 D0 INC R0 ;[ 1-> ] 246 ; 247 S0000B9 60 SUB R0 248 0000BA ENCR020 EQU $ 249 S0000BA 2C 16 MOVE R6,R12 250 S0000BC 3D 36 STB (R6) 251 ; 252 S0000BE 16 TO R6 253 S0000BF 41 LDW (R1) 254 S0000C0 21 WITH R1 255 S0000C1 3E 54 ADD #04 256 S0000C3 43 LDW (R3) 257 S0000C4 D3 INC R3 258 S0000C5 D3 INC R3 259 S0000C6 56 ADD R6 260 S0000C7 35 STW (R5) 261 S0000C8 D5 INC R5 262 S0000C9 D5 INC R5 263 S0000CA 16 TO R6 264 S0000CB 42 LDW (R2) 265 S0000CC 22 WITH R2 266 S0000CD 3E 54 ADD #04 267 S0000CF 43 LDW (R3) 268 S0000D0 D3 INC R3 269 S0000D1 D3 INC R3 270 S0000D2 56 ADD R6 271 S0000D3 35 STW (R5) 272 S0000D4 D5 INC R5 273 ; 274 S0000D5 3C LOOP 275 S0000D6 D5 INC R5 276 ; 277 ; 278 ENCR0F0 279 ;-------------- player & enmy hit ----------------------------------------------- 280 ENCR100 281 S0000D7 3D AE 8E LMS R14,CPCENTX ; player center position x 282 S0000DA 3D A2 8F LMS R2,CPCENTY ; " " " y 283 S0000DD 3D A3 90 LMS R3,CPWIDEX ; " width x 284 S0000E0 3D A4 91 LMS R4,CPWIDEY ; " " y 285 S0000E3 F5 1CD6 IWT R5,#CECENTX ; enmy center position address 286 S0000E6 F6 1BB6 IWT R6,#CEWIDEX ; " width address 287 S0000E9 F7 1C16 IWT R7,#CEPWIDX 288 S0000EC F8 17C2 IWT R8,#CEPXMUK 289 S0000EF F0 1D36 IWT R0,#CECRSFG 290 S0000F2 3E A0 1F SMS R0,CWORK1F ; hit flg ram address set 291 ; 292 S0000F5 AC 18 IBT R12,#CENNO 293 S0000F7 2F 1D MOVE R13,R15 294 ENCR110 295 S0000F9 2C 10 MOVE R0,R12 296 S0000FB 3D 40 LDB (R0) 297 S0000FD 3E 63 SUB #CEMOVE-CEFAIL+1 298 S0000FF 0D 0D' BCS ENCR120 ; enmy on ? [ yes:ENCR120 ] 299 S000101 01 NOP 300 ; 301 S000102 A0 04 IBT R0,#4 302 S000104 25 WITH R5 303 S000105 50 ADD R0 304 S000106 26 WITH R6 305 S000107 50 ADD R0 306 S000108 27 WITH R7 307 S000109 50 ADD R0 308 S00010A D8 INC R8 309 S00010B 05 4E' BRA ENCR150 310 S00010D D8 INC R8 311 ; 312 ENCR120 313 S00010E 19 TO R9 314 S00010F 46 LDW (R6) ; enmy width x load 315 S000110 D6 INC R6 316 S000111 D6 INC R6 317 S000112 1A TO R10 318 S000113 46 LDW (R6) ; enmy width y load 319 S000114 D6 INC R6 320 S000115 D6 INC R6 321 ; 322 S000116 45 LDW (R5) ; enmy center x load 323 S000117 D5 INC R5 324 S000118 D5 INC R5 325 S000119 6E SUB R14 326 S00011A 37 STW (R7) 327 S00011B D7 INC R7 328 S00011C D7 INC R7 329 S00011D 2B B0 MOVES R11,R0 330 S00011F 0A 03' BPL ENCR130 331 S000121 60 SUB R0 332 ; 333 S000122 D0 INC R0 ;[ IBT R0,#2 ] 334 S000123 D0 INC R0 ; 335 ENCR130 336 S000124 3D 38 STB (R8) 337 S000126 D8 INC R8 338 ; 339 S000127 45 LDW (R5) ; enmy center y load 340 S000128 D5 INC R5 341 S000129 D5 INC R5 342 S00012A 62 SUB R2 343 S00012B 37 STW (R7) 344 S00012C D7 INC R7 345 S00012D D7 INC R7 346 S00012E 21 B0 MOVES R1,R0 347 S000130 0A 03' BPL ENCR140 348 S000132 60 SUB R0 349 ; 350 S000133 D0 INC R0 ;[ IBT R0,#2 ] 351 S000134 D0 INC R0 ; 352 ENCR140 353 S000135 3D 38 STB (R8) 354 ; 355 S000137 B1 FROM R1 356 S000138 5A ADD R10 357 S000139 54 ADD R4 358 S00013A 0B 1F' BMI ENCR150 ; y hit ? [ no:ENCR150 ] 359 S00013C D8 INC R8 360 ; 361 S00013D 6A SUB R10 362 S00013E 6A SUB R10 363 S00013F 64 SUB R4 364 S000140 64 SUB R4 365 S000141 0A 19' BPL ENCR170 ; y hit ? [ no:ENCR170 ] 366 S000143 60 SUB R0 367 ; 368 S000144 BB FROM R11 369 S000145 59 ADD R9 370 S000146 53 ADD R3 371 S000147 0B 12' BMI ENCR150 ; x hit ? [ no:ENCR150 ] 372 S000149 69 SUB R9 373 ; 374 S00014A 69 SUB R9 375 S00014B 63 SUB R3 376 S00014C 63 SUB R3 377 S00014D 0A 0D' BPL ENCR170 ; HIT ? [ no:ENCR150 ] 378 S00014F 60 SUB R0 ;[ IBT R0,#0 ] 379 ; 380 S000150 3D A0 56 LMS R0,CPLMODE 381 S000153 3E 66 SUB #6 382 S000155 0D 05' BCS ENCR170 ;プレイヤーモードＯＫ？ ( no:ENCR170 ) 383 S000157 60 SUB R0 ;[ IBT R0,#0 ] 384 ; 385 S000158 05 02' BRA ENCR170 386 S00015A E0 DEC R0 ;[ IBT R0,#0FFH ] 387 ; 388 ENCR150 389 S00015B 60 SUB R0 390 ENCR170 391 S00015C 3D A1 1F LMS R1,CWORK1F 392 S00015F 3D 31 STB (R1) 393 S000161 D8 INC R8 394 S000162 21 WITH R1 395 S000163 3E 54 ADD #04 396 S000165 3E A1 1F SMS R1,CWORK1F 397 ; 398 S000168 3C LOOP 399 S000169 D8 INC R8 400 ; 401 ;-------------- enmy & enmy hit ------------------------------------------------- 402 ENCR200 403 S00016A F1 0FA1 IWT R1,#CENMOD0+1 404 S00016D F5 1CD6 IWT R5,#CECENTX ; enmy center position address 405 S000170 F6 1BB6 IWT R6,#CEWIDEX ; " width address 406 S000173 F7 1C76 IWT R7,#CECROSX 407 S000176 F9 1D36 IWT R9,#CECRSFG ; hit flg ram address set 408 S000179 FA 1D37 IWT R10,#CENCRPT ;VS enmy cross check start pointer address set 409 ; 410 S00017C AC 18 IBT R12,#CENNO 411 ENCR210 412 S00017E 2C 10 MOVE R0,R12 413 S000180 3D 40 LDB (R0) 414 S000182 E0 DEC R0 415 S000183 0B 0E' BMI ENCR215 ; enmy on ? [ no:ENCR215 ] 416 S000185 01 NOP 417 ; 418 S000186 3D 49 LDB (R9) 419 S000188 3E 60 SUB #0 420 S00018A 08 07' BNE ENCR215 ; player hit ? [ yes:ENCR215 ] 421 S00018C 01 NOP 422 ; 423 S00018D 41 LDW (R1) 424 S00018E 3E 74 AND #04H 425 S000190 08 0D' BNE ENCR220 ; enmy & enmy hit on ? [ yes:ENCR220 ] 426 S000192 01 NOP 427 ; 428 ENCR215 429 S000193 A0 04 IBT R0,#4 430 S000195 25 WITH R5 431 S000196 50 ADD R0 432 S000197 26 WITH R6 433 S000198 50 ADD R0 434 S000199 27 WITH R7 435 S00019A 50 ADD R0 436 S00019B FF 0263' IWT R15,#ENCR280 437 S00019E 01 NOP 438 ; 439 ;-------------- enemy & enemy cross check ----------------------- 440 ENCR220 441 S00019F 1E TO R14 442 S0001A0 45 LDW (R5) ; r14 <- enmy center position x load 443 S0001A1 D5 INC R5 444 S0001A2 D5 INC R5 445 S0001A3 12 TO R2 446 S0001A4 45 LDW (R5) ; r2 <- enmy center position y load 447 S0001A5 D5 INC R5 448 S0001A6 D5 INC R5 449 S0001A7 13 TO R3 450 S0001A8 46 LDW (R6) ; r3 <- enmy width x load 451 S0001A9 D6 INC R6 452 S0001AA D6 INC R6 453 S0001AB 14 TO R4 454 S0001AC 46 LDW (R6) ; r4 <- enmy width y load 455 S0001AD D6 INC R6 456 S0001AE D6 INC R6 457 ; 458 S0001AF 3E A1 21 SMS R1,REG1 459 S0001B2 3E A5 25 SMS R5,REG5 460 S0001B5 3E A6 26 SMS R6,REG6 461 S0001B8 3E A7 27 SMS R7,REG7 462 S0001BB 3E A9 29 SMS R9,REG9 463 S0001BE 3E AA 2A SMS R10,REG10 464 S0001C1 3E AC 2C SMS R12,REG12 465 ; 466 ;-------------- VS enemy cross check ---------------------------- 467 S0001C4 F1 0FA1 IWT R1,#CENMOD0+1 468 ; 469 S0001C7 1B TO R11 ;(R11) <-- VS enemy cross start index 470 S0001C8 3D 4A LDB (R10) 471 S0001CA DB INC R11 472 S0001CB 2C 1A MOVE R10,R12 ;(R10) <-- now check enemy index 473 ; 474 S0001CD AC 18 IBT R12,#CENNO 475 S0001CF FD 01D3' IWT R13,#ENCR225+1 476 ENCR225 477 S0001D2 BA FROM R10 478 S0001D3 6B SUB R11 479 S0001D4 09 6B' BEQ ENCR234 ;VS enemy = now cross check enemy ? ( yes:ENCR234 ) 480 S0001D6 01 NOP 481 ; 482 S0001D7 3D 4B LDB (R11) 483 S0001D9 E0 DEC R0 484 S0001DA 0B 65' BMI ENCR234 ; enmy on ? [ no:ENCR234 ] 485 S0001DC 01 NOP 486 ; 487 S0001DD A0 18 IBT R0,#CENNO 488 S0001DF 6B SUB R11 489 S0001E0 50 ADD R0 490 S0001E1 50 ADD R0 491 S0001E2 20 18 MOVE R8,R0 ;(R8) <-- VS enemy cross index x4 492 S0001E4 51 ADD R1 493 S0001E5 40 LDW (R0) 494 S0001E6 3E 72 AND #02H 495 S0001E8 09 57' BEQ ENCR234 ; enmy & enmy hit on ? [ no:ENCR234 ] 496 S0001EA 01 NOP 497 ; 498 ;-------------- cross check ----------------------------- 499 S0001EB F0 1CD6 IWT R0,#CECENTX ;enmy center position address 500 S0001EE 15 TO R5 501 S0001EF 58 ADD R8 502 S0001F0 F0 1BB6 IWT R0,#CEWIDEX ; " width address 503 S0001F3 16 TO R6 504 S0001F4 58 ADD R8 505 ; 506 S0001F5 19 TO R9 507 S0001F6 46 LDW (R6) ; r9 <- enmy width x load 508 S0001F7 45 LDW (R5) ; enmy center x load 509 S0001F8 6E SUB R14 510 S0001F9 20 17 MOVE R7,R0 ;(R7) <-- X cross wide 511 S0001FB 53 ADD R3 512 S0001FC 59 ADD R9 513 S0001FD 0B 42' BMI ENCR234 ; x hit ? [ no:ENCR234 ] 514 S0001FF 69 SUB R9 515 ; 516 S000200 69 SUB R9 517 S000201 63 SUB R3 518 S000202 63 SUB R3 519 S000203 E0 DEC R0 ;[ 0 == ok ] 520 S000204 0A 3B' BPL ENCR234 ; x hit ? [ no:ENCR234 ] 521 S000206 D5 INC R5 522 ; 523 S000207 D5 INC R5 524 S000208 D6 INC R6 525 S000209 D6 INC R6 526 ; 527 S00020A 19 TO R9 528 S00020B 46 LDW (R6) ; r9 <- enmy width y load 529 S00020C 45 LDW (R5) ; enmy center y load 530 S00020D 62 SUB R2 531 S00020E 20 15 MOVE R5,R0 ;(R5) <-- Y cross wide 532 S000210 54 ADD R4 533 S000211 59 ADD R9 534 S000212 0B 2D' BMI ENCR234 ; y hit ? [ no:ENCR234 ] 535 S000214 69 SUB R9 536 ; 537 S000215 69 SUB R9 538 S000216 64 SUB R4 539 S000217 64 SUB R4 540 S000218 E0 DEC R0 ;[ 0 == ok ] 541 S000219 0A 26' BPL ENCR234 ; HIT ? [ no:ENCR234 ] 542 S00021B 01 NOP 543 ; 544 ;-------------- cross !! ------------------------ 545 S00021C 3D A0 27 LMS R0,REG7 546 S00021F B7 FROM R7 547 S000220 30 STW (R0) ;X cross wide set 548 S000221 D0 INC R0 549 S000222 D0 INC R0 550 S000223 B5 FROM R5 551 S000224 30 STW (R0) ;Y cross wide set 552 S000225 17 TO R7 553 S000226 3E 52 ADD #2 554 ; 555 S000228 3D A9 29 LMS R9,REG9 556 S00022B D8 INC R8 557 S00022C B8 FROM R8 558 S00022D 3D 39 STB (R9) ;cross VS enemy index set 559 ; 560 ;-------------- new VS enemy cross start index set -------------- 561 S00022F EB DEC R11 562 S000230 08 03' BNE ENCR232 563 S000232 EB DEC R11 564 ; 565 S000233 AB 17 IBT R11,#CENNO-1 566 ENCR232 567 S000235 3D AA 2A LMS R10,REG10 568 S000238 2B 10 MOVE R0,R11 569 S00023A 3D 3A STB (R10) 570 S00023C 05 18' BRA ENCR260+1 571 S00023E 3D A1 21 LMS R1,REG1 ;[ dummy ] 572 ; 573 ENCR234 574 S000241 EB DEC R11 575 S000242 08 03' BNE ENCR236 ;max enemy index over ? ( no:ENCR236 ) 576 S000244 01 NOP 577 ; 578 S000245 AB 18 IBT R11,#CENNO 579 ENCR236 580 S000247 3C LOOP 581 S000248 BA FROM R10 ;[ duumy ] 582 ; 583 ;---------------------------------------------------------------- 584 ; 585 S000249 3D A0 27 LMS R0,REG7 586 S00024C 17 TO R7 587 S00024D 3E 54 ADD #4 588 S00024F 3D A9 29 LMS R9,REG9 589 S000252 3D AA 2A LMS R10,REG10 590 ENCR260 591 S000255 3D A1 21 LMS R1,REG1 592 S000258 3D A5 25 LMS R5,REG5 593 S00025B 3D A6 26 LMS R6,REG6 594 S00025E 3D AC 2C LMS R12,REG12 595 ; 596 S000261 A0 04 IBT R0,#4 597 ENCR280 598 S000263 21 WITH R1 599 S000264 50 ADD R0 600 S000265 29 WITH R9 601 S000266 50 ADD R0 602 S000267 2A WITH R10 603 S000268 50 ADD R0 604 ; 605 S000269 FD 017F' IWT R13,#ENCR210+1 606 S00026C 3C LOOP 607 S00026D 2C 10 MOVE R0,R12 ;[ dummy ] 608 ; 609 ;-------------- bero & enmy hit ------------------------------------------------- 610 ENCR300 611 S00026F 3D A0 D7 LMS R0,CPLSTFG 612 S000272 3E 60 SUB #0 613 S000274 08 63' BNE ENCR3F0 ;プレイヤーＳＴＯＰ？ ( yes:ENCR3F0 ) 614 S000276 02 CACHE 615 ; 616 S000277 3D A1 AD LMS R1,CBRCNTX ; bero center position x 617 S00027A 3D A2 AE LMS R2,CBRCNTY ; " " " y 618 S00027D F5 1CD6 IWT R5,#CECENTX ; enmy center position address 619 S000280 F6 1BB6 IWT R6,#CEWIDEX ; " width address 620 S000283 F7 0FA0 IWT R7,#CENMOD0 621 S000286 F8 1040 IWT R8,#CENMOD2 622 S000289 FB 1D38 IWT R11,#CENSHOT 623 S00028C AE 40 IBT R14,#00040H 624 ; 625 ;;;; SUB R0 ;[ IBT R0,#0 ] 626 ;;;; SMS R0,CEATOK ;オート用食べれるフラグリセット 627 ; 628 S00028E AC 18 IBT R12,#CENNO 629 S000290 FD 0294' IWT R13,#ENCR310+1 630 ENCR310 631 S000293 2C 10 MOVE R0,R12 632 S000295 3D 40 LDB (R0) 633 S000297 3E 63 SUB #CEMOVE-CEFAIL+1 ;[iw] 634 S000299 0C 06' BCC ENCR315 ; enmy on ? [ no:ENCR315 ] 635 S00029B 01 NOP 636 ; 637 S00029C 47 LDW (R7) 638 S00029D 7E AND R14 639 S00029E 09 09' BEQ ENCR320 ; tabereru ? [ yes:ENCR320 ] 640 S0002A0 01 NOP 641 ; 642 ENCR315 643 S0002A1 A0 04 IBT R0,#4 644 S0002A3 25 WITH R5 645 S0002A4 50 ADD R0 646 S0002A5 26 WITH R6 647 S0002A6 05 28' BRA ENCR352 648 S0002A8 50 ADD R0 649 ; 650 ENCR320 651 S0002A9 4B LDW (R11) 652 S0002AA 03 LSR 653 S0002AB 08 F4' BNE ENCR315 ;ショットウェイト？ ( yes:ENCR315 ) 654 S0002AD 19 TO R9 655 ; 656 S0002AE 46 LDW (R6) ; enmy width x load 657 S0002AF D6 INC R6 658 S0002B0 D6 INC R6 659 S0002B1 1A TO R10 660 S0002B2 46 LDW (R6) ; enmy width y load 661 S0002B3 D6 INC R6 662 S0002B4 D6 INC R6 663 ; 664 S0002B5 45 LDW (R5) ; enmy center x load 665 S0002B6 D5 INC R5 666 S0002B7 D5 INC R5 667 S0002B8 13 TO R3 668 S0002B9 61 SUB R1 ; x kyori 669 ; 670 S0002BA 45 LDW (R5) ; enmy center y load 671 S0002BB D5 INC R5 672 S0002BC D5 INC R5 673 S0002BD 14 TO R4 674 S0002BE 62 SUB R2 ; y kyori 675 ; 676 S0002BF B4 FROM R4 677 S0002C0 5A ADD R10 678 S0002C1 3E 5C ADD #0CH 679 S0002C3 0B 09' BMI ENCR350 ; y hit ? [ no:ENCR350 ] 680 S0002C5 6A SUB R10 681 ; 682 S0002C6 6A SUB R10 683 S0002C7 3E 6C SUB #0CH 684 S0002C9 3E 6C SUB #0CH 685 S0002CB 0B 0E' BMI ENCR360 ; y hit ? [ yes:ENCR360 ] 686 S0002CD B3 FROM R3 687 ; 688 ENCR350 689 S0002CE A0 04 IBT R0,#4 ;[ * not change !! ] 690 ENCR352 691 S0002D0 27 WITH R7 692 S0002D1 50 ADD R0 693 S0002D2 28 WITH R8 694 S0002D3 50 ADD R0 695 S0002D4 2B WITH R11 696 S0002D5 50 ADD R0 697 S0002D6 3C LOOP 698 S0002D7 2C 10 MOVE R0,R12 ;[ dummy ] 699 ; 700 ENCR3F0 701 S0002D9 00 STOP 702 S0002DA 01 NOP 703 ; 704 ENCR360 705 ;;;; FROM R3 706 S0002DB 59 ADD R9 707 S0002DC 3E 5C ADD #0CH 708 S0002DE 0B EE' BMI ENCR350 ; x hit ? [ no:ENCR350 ] 709 S0002E0 69 SUB R9 710 ; 711 S0002E1 69 SUB R9 712 S0002E2 3E 6C SUB #0CH 713 S0002E4 3E 6C SUB #0CH 714 S0002E6 0A E7' BPL ENCR350+1 ; HIT ? [ no:ENCR350+1 ] 715 ;;;; NOP 716 ; 717 S0002E8 A0 18 IBT R0,#CENNO 718 S0002EA 6C SUB R12 719 S0002EB 50 ADD R0 720 S0002EC 11 TO R1 721 S0002ED 50 ADD R0 722 ; 723 ;;;; LMS R0,CCONFIGFG 724 ;;;; DEC R0 725 ;;;; BPL ENCR361 ;オート食べＯＫ？ ( no:ENCR361 ) 726 S0002EE D1 INC R1 ;(R1) <-- 敵のインデックス＋１ 727 ; 728 ;;;; SMS R1,CEATOK ;オート用食べれるフラグ”ＯＮ” 729 ;;;;ENCR361 730 S0002EF 3D A0 B1 LMS R0,CEATFLG 731 S0002F2 3D A5 B4 LMS R5,CEATSTP 732 S0002F5 C5 OR R5 733 S0002F6 08 E1' BNE ENCR3F0 ; syokuji chuu ? [ yes:ENCR3F0 ] 734 S0002F8 01 NOP 735 ; 736 S0002F9 3D A6 A8 LMS R6,CBERFLG ;(R6) <-- bero flag 737 S0002FC E6 DEC R6 738 S0002FD 0B DA' BMI ENCR3F0 ; bero on ? [ no:ENCR3F0 ] 739 S0002FF D6 INC R6 740 ; 741 S000300 3D A0 AF LMS R0,CBERO_GUNYA 742 S000303 E0 DEC R0 743 S000304 0A 57' BPL ENCR370 ;舌グニャグニャ？ ( yes:ENCR370 ) 744 S000306 01 NOP 745 ; 746 S000307 F0 0EFF IWT R0,#CENMODE-1 747 S00030A 15 TO R5 ;(R5) <-- 敵モードポインター 748 S00030B 51 ADD R1 749 ; 750 ;-------------- 食べられセット ------------------------------------------ 751 S00030C 3D A0 A9 LMS R0,CBERXPS 752 S00030F 3D A2 AA LMS R2,CBERYPS 753 S000312 C2 OR R2 754 S000313 09 48' BEQ ENCR370 ; bero on ? [ no:ENCR370 ] 755 S000315 01 NOP 756 ; 757 S000316 B6 FROM R6 758 S000317 03 LSR 759 S000318 0C 04' BCC ENCR363 ;舌すでに戻ってる？ ( yes:ENCR363 ) 760 S00031A D6 INC R6 761 ; 762 S00031B 3E A6 A8 SMS R6,CBERFLG ;舌ショット戻りセット 763 ENCR363 764 S00031E 3E A1 B1 SMS R1,CEATFLG ;食べフラグセット 765 ; 766 S000321 47 LDW (R7) 767 S000322 95 SEX 768 S000323 0A 11' BPL ENCR364 ;ダメージ？ ( no:ENCR364 ) 769 S000325 60 SUB R0 ;[ IBT R0,#0 ] 770 ; 771 S000326 D0 INC R0 ;[ IBT R0,#1 ] 舌グニャフラグセット 772 S000327 3E A0 AF SMS R0,CBERO_GUNYA 773 S00032A A0 00" IBT R0,#BERO_BIRI_P ;舌ビリビリフラグセット 774 S00032C 3E A0 B0 SMS R0,CBERO_BIRI 775 ; 776 S00032F A0 3C IBT R0,#03CH ;[♪] 777 S000331 3E A0 3D SMS R0,CMSOUND3 778 ; 779 S000334 00 STOP 780 S000335 01 NOP 781 ; 782 ENCR364 783 S000336 3E A3 B2 SMS R3,CEATOFX 784 S000339 3E A4 B3 SMS R4,CEATOFY 785 ; 786 S00033C A0 08 IBT R0,#CEEATM ;食べられモードセット 787 S00033E 35 STW (R5) 788 S00033F D7 INC R7 ;to ENMOD1+1 !! 789 S000340 D7 INC R7 790 S000341 47 LDW (R7) 791 S000342 50 ADD R0 ;(C) set 792 S000343 0D 18' BCS ENCR370 ; eat stop ? [ no:EBCR370 ] 793 S000345 50 ADD R0 ;[ ASL ] 794 ; 795 S000346 50 ADD R0 ;[ ASL ] 796 S000347 F2 8000 IWT R2,#8000H 797 S00034A 72 AND R2 798 S00034B C1 OR R1 799 S00034C 3E A0 B4 SMS R0,CEATSTP 800 ; 801 S00034F 48 LDW (R8) ;[ LD ENMOD2,X ] 範囲外クリアー無しに！！ 802 S000350 3F 7C BIC #00001100B ;[ AND #0FFF3H ] 803 S000352 90 SBK ;[ ST ENMOD2,X ] 804 ; 805 S000353 4D SWAP ;[ AND #0000000010000000B ] 806 S000354 0B 04' BMI ENCR366 ;口に入れてるウェイト無し？ ( yes:ENCR366 ) 807 S000356 60 SUB R0 808 ; 809 S000357 F0 04B0 IWT R0,#20*60 ;飲み込みウェイトタイマーセット 810 ENCR366 811 S00035A 3E A0 F7 SMS R0,CEAT_WAIT 812 ENCR370 813 S00035D 00 STOP 814 S00035E 01 NOP 815 ; 816 ;******************************************************************************** 817 ;* player oam set * 818 ;* r1 <- x position * 819 ;* r2 <- y position * 820 ;* r3 <- muki * 821 ;* r12 <- obj suu * 822 ;* r14 <- data address * 823 ;******************************************************************************** 824 ;-------------------------------------------------------------------------------- 825 ;- use register - 826 ;- r0,r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14 - 827 ;-------------------------------------------------------------------------------- 828 ; 829 00035F PLAYOAM EQU $ 830 ; 831 ;------------------------------------------------------------------------ 832 ;- プレイヤーＯＡＭセット - 833 ;------------------------------------------------------------------------ 834 S00035F A0 4C IBT R0,#4CH 835 S000361 3F DF ROMB 836 ; 837 S000363 2E 1E MOVE R14,R14 838 ; 839 S000365 3D A4 93 LMS R4,CPLPRIO ;(R4) <-- player BG pri. 840 ; 841 S000368 3D A5 8C LMS R5,CPLOAML ; oam address 842 S00036B A0 60 IBT R0,#12*8 843 S00036D 15 TO R5 844 S00036E 55 ADD R5 845 ; 846 S00036F F9 0128 IWT R9,#CPCHNO0 847 ; 848 S000372 A7 00 IBT R7,#00 ; chara No. initial 849 ; 850 S000374 02 CACHE 851 ; 852 S000375 2F 1D MOVE R13,R15 853 PLOM000 854 S000377 16 TO R6 855 S000378 EF GETB ; atoribute data read 856 S000379 DE INC R14 857 S00037A B6 FROM R6 858 S00037B 03 LSR 859 S00037C 03 LSR 860 S00037D 03 LSR 861 S00037E 03 LSR 862 S00037F 1B TO R11 863 S000380 3E 72 AND #2 ; r11 <- size 864 ; 865 S000382 EF GETB ; x position read 866 S000383 DE INC R14 867 S000384 95 SEX 868 S000385 A8 00 IBT R8,#000H 869 S000387 E3 DEC R3 870 S000388 0A 0B' BPL PLOM020 ; h-flip ? [ no:PLOM020 ] 871 S00038A D3 INC R3 872 ; 873 S00038B 4F NOT 874 S00038C D0 INC R0 875 S00038D A8 40 IBT R8,#040H 876 S00038F EB DEC R11 877 S000390 0A 03' BPL PLOM020 ; big-size ? [ yes:PLOM020 ] 878 S000392 DB INC R11 879 ; 880 S000393 3E 58 ADD #08 881 PLOM020 882 S000395 51 ADD R1 883 S000396 35 STW (R5) ; x position set 884 S000397 D5 INC R5 885 S000398 D5 INC R5 886 ; 887 S000399 EF GETB 888 S00039A DE INC R14 889 S00039B 95 SEX 890 S00039C 52 ADD R2 891 S00039D 35 STW (R5) ; y position set 892 S00039E D5 INC R5 893 S00039F D5 INC R5 894 ; 895 S0003A0 F0 00C0 IWT R0,#000C0H 896 S0003A3 76 AND R6 897 S0003A4 3D C8 XOR R8 898 S0003A6 C4 OR R4 ; priority set 899 S0003A7 3D AA 92 LMS R10,CPLCLOR 900 S0003AA CA OR R10 ; colour set 901 S0003AB 4D SWAP 902 S0003AC C7 OR R7 ; chara No. set 903 S0003AD D7 INC R7 904 S0003AE D7 INC R7 905 S0003AF 35 STW (R5) ; chara No. & atoribute set 906 S0003B0 D5 INC R5 907 S0003B1 D5 INC R5 908 ; 909 S0003B2 BB FROM R11 910 S0003B3 35 STW (R5) ; oamsub & etc_data set 911 S0003B4 D5 INC R5 912 S0003B5 D5 INC R5 913 ; 914 S0003B6 B6 FROM R6 915 S0003B7 3E 7F AND #0FH 916 S0003B9 4D SWAP 917 S0003BA 3E EF GETBL ; chara address low read 918 S0003BC DE INC R14 919 ; 920 S0003BD 2B WITH R11 921 S0003BE 3E 72 AND #2 922 S0003C0 09 18' BEQ PLOM040 ; small size ? [ yes:PLOM040 ] 923 S0003C2 01 NOP 924 ; 925 S0003C3 FA 0090 IWT R10,#090H 926 S0003C6 3F 6A CMP R10 927 S0003C8 0D 10' BCS PLOM040 ; eat stop chara ? [ no:PLOM040 ] 928 S0003CA 01 NOP 929 ; 930 S0003CB 3D AA B4 LMS R10,CEATSTP 931 S0003CE 3D AB B1 LMS R11,CEATFLG 932 S0003D1 2A WITH R10 933 S0003D2 CB OR R11 934 S0003D3 08 05' BNE PLOM040 ; now eat stop ? [ yes:PLOM040 ] 935 S0003D5 01 NOP 936 ; 937 S0003D6 FA 0100 IWT R10,#00100H 938 S0003D9 5A ADD R10 939 PLOM040 940 S0003DA FA 07FF IWT R10,#007FFH 941 S0003DD 7A AND R10 942 S0003DE 26 WITH R6 943 S0003DF 3E 78 AND #08H ;(Z) <-- chara change player ? 944 S0003E1 A6 52 IBT R6,#052H ;[ プレイヤー転送用キャラクターデータバンク ] 945 S0003E3 09 07' BEQ PLOM050 ;chara change player ? ( no:PLOM050 ) 946 S0003E5 01 NOP 947 ; vvv******* warn :value out of range 948 S0003E6 F6 8300 IWT R6,#(WOB7CHR+800H)/20H 949 S0003E9 56 ADD R6 950 S0003EA A6 70 IBT R6,#BANK WOB7CHR 951 PLOM050 952 S0003EC 50 ADD R0 953 S0003ED 50 ADD R0 954 S0003EE 50 ADD R0 955 S0003EF 50 ADD R0 956 S0003F0 50 ADD R0 957 S0003F1 39 STW (R9) ; chara address set 958 S0003F2 D9 INC R9 959 S0003F3 D9 INC R9 960 ; 961 S0003F4 1A TO R10 962 S0003F5 C0 HIB 963 S0003F6 B6 FROM R6 964 S0003F7 3D 39 STB (R9) ; chara bank set 965 S0003F9 D9 INC R9 966 S0003FA BA FROM R10 967 S0003FB 3E 52 ADD #02 968 S0003FD 3D 39 STB (R9) ; set 969 S0003FF 3C LOOP 970 S000400 D9 INC R9 971 ; 972 ;-------------- タイプ別ＯＡＭセット ------------------------------------ 973 ;- r3 <- muki - 974 ;- r4 <- priority - 975 ;- r5 <- oam address - 976 ;------------------------------------------------------------------------ 977 S000401 3D A0 57 LMS R0,CPLTYPE ;[JSRSUB] 978 S000404 50 ADD R0 ; " 979 S000405 D0 INC R0 ; " 980 S000406 1F TO R15 ; " 981 S000407 5F ADD R15 ; " 982 S000408 FF HEX FF ; " 983 mTWORD YOSSY_OAM ;普通のヨッシー 983+ S000409 0431' WORD YOSSY_OAM 983+ S00040B 01 NOP 983+ S00040C 01 NOP 984 mTWORD CAR_OAM ;クルマ 984+ S00040D 061D' WORD CAR_OAM 984+ S00040F 01 NOP 984+ S000410 01 NOP 985 mTWORD MOGURA_OAM ;モグラ 985+ S000411 072D' WORD MOGURA_OAM 985+ S000413 01 NOP 985+ S000414 01 NOP 986 mTWORD HERI_OAM ;ヘリコプター 986+ S000415 0787' WORD HERI_OAM 986+ S000417 01 NOP 986+ S000418 01 NOP 987 mTWORD TRAIN_OAM ;汽車 987+ S000419 0789' WORD TRAIN_OAM 987+ S00041B 01 NOP 987+ S00041C 01 NOP 988 mTWORD KINOKO_OAM ;キノコ 988+ S00041D 07E1' WORD KINOKO_OAM 988+ S00041F 01 NOP 988+ S000420 01 NOP 989 mTWORD SUBMARIN_OAM ;潜水艦 989+ S000421 07E3' WORD SUBMARIN_OAM 989+ S000423 01 NOP 989+ S000424 01 NOP 990 ;;;; mTWORD BAKUDAN_OAM ;ばくだんくん 991 mTWORD SKI_OAM ;スキー 991+ S000425 07E5' WORD SKI_OAM 991+ S000427 01 NOP 991+ S000428 01 NOP 992 mTWORD MARIO_OAM ;マリオ 992+ S000429 07E7' WORD MARIO_OAM 992+ S00042B 01 NOP 992+ S00042C 01 NOP 993 mTWORD EGG_OAM ;タマゴ 993+ S00042D 07E5' WORD EGG_OAM 993+ S00042F 01 NOP 993+ S000430 01 NOP 994 ; 995 ;---------------------------------------------------------------- 996 ;- ベロのＯＡＭセット - 997 ;- in : - 998 ;- R3 <- プレイヤーの向き - 999 ;- R4 <- 優先順位 - 1000 ;---------------------------------------------------------------- 1001 YOSSY_OAM 1002 S000431 F0 0000' IWT R0,#BANK YOSSYBERDTA0 1003 S000434 3F DF ROMB 1004 ; 1005 S000436 3D A0 AF LMS R0,CBERO_GUNYA 1006 S000439 FE 053D' IWT R14,#BERO_PATN 1007 S00043C 1E TO R14 1008 S00043D 5E ADD R14 1009 S00043E 1A TO R10 ;(R10) <-- ベロパターン 1010 S00043F EF GETB 1011 ; 1012 S000440 3D A5 8C LMS R5,CPLOAML 1013 S000443 24 WITH R4 1014 S000444 4D SWAP 1015 ; 1016 S000445 3D AB A8 LMS R11,CBERFLG 1017 S000448 EB DEC R11 1018 S000449 0B 28' BMI YOSSY_OAM00F0 ; ベロセット？ [no->YOSSY_OAM00F0] 1019 S00044B 01 NOP 1020 ; 1021 S00044C BB FROM R11 1022 S00044D 3E 67 SUB #07 1023 S00044F 0D 22' BCS YOSSY_OAM00F0 ; ベロセット？ [no->YOSSY_OAM00F0] 1024 S000451 01 NOP 1025 ; 1026 S000452 3D A0 AA LMS R0,CBERYPS 1027 S000455 3E 60 SUB #00 1028 S000457 0A 03' BPL YOSSY_OAM0080 ; ＋？ [yes->YOSSY_OAM0080] 1029 S000459 01 NOP 1030 ; 1031 S00045A 4F NOT 1032 S00045B D0 INC R0 1033 YOSSY_OAM0080 1034 S00045C 03 LSR 1035 S00045D 03 LSR 1036 S00045E 17 TO R7 1037 S00045F 03 LSR 1038 ; 1039 S000460 3D A0 A9 LMS R0,CBERXPS 1040 S000463 3E 60 SUB #00 1041 S000465 0A 03' BPL YOSSY_OAM0088 ; ＋？ [yes->YOSSY_OAM0088] 1042 S000467 01 NOP 1043 ; 1044 S000468 4F NOT 1045 S000469 D0 INC R0 1046 YOSSY_OAM0088 1047 S00046A 03 LSR 1048 S00046B 03 LSR 1049 S00046C 16 TO R6 1050 S00046D 03 LSR 1051 S00046E B6 FROM R6 1052 S00046F C7 OR R7 1053 S000470 08 03' BNE YOSSY_OAM0100 ; ベロセット？ [yes->YOSSY_OAM0100] 1054 S000472 01 NOP 1055 ; 1056 YOSSY_OAM00F0 1057 S000473 00 STOP 1058 S000474 01 NOP 1059 ; 1060 YOSSY_OAM0100 1061 S000475 3D A1 AB LMS R1,CBRDSXL ; Ｘポジション！！ 1062 S000478 3D A2 AC LMS R2,CBRDSYL ; Ｙポジション！！ 1063 ; 1064 S00047B BB FROM R11 1065 S00047C 03 LSR 1066 S00047D 09 05' BEQ YOSSY_OAM0120 ; 横？ [yes->YOSSY_OAM0120] 1067 S00047F 01 NOP 1068 ; 1069 S000480 FF 04DE' IWT R15,#YOSSY_OAM1000 ; [->YOSSY_OAM1000] 1070 S000483 01 NOP 1071 ; 1072 YOSSY_OAM0120 1073 S000484 A9 08 IBT R9,#008H 1074 S000486 A8 00 IBT R8,#00 1075 S000488 A7 00 MOVE R7,#00 1076 S00048A E3 DEC R3 1077 S00048B 0A 08' BPL YOSSY_OAM0130 ; [->YOSSY_OAM0130] 1078 S00048D D3 INC R3 1079 ; 1080 S00048E A7 08 IBT R7,#08 1081 S000490 A9 F8 IBT R9,#0F8H 1082 S000492 F8 4000 IWT R8,#04000H 1083 YOSSY_OAM0130 1084 S000495 B1 FROM R1 1085 S000496 57 ADD R7 1086 S000497 35 STW (R5) ; Ｘポジション！！ 1087 S000498 D5 INC R5 1088 S000499 D5 INC R5 1089 S00049A B2 FROM R2 1090 S00049B 35 STW (R5) ; Ｙポジション！！ 1091 S00049C D5 INC R5 1092 S00049D D5 INC R5 1093 S00049E F0 0A20 IWT R0,#00A20H 1094 S0004A1 C4 OR R4 1095 S0004A2 C8 OR R8 1096 S0004A3 35 STW (R5) ; キャラクタ＆アトリビュート！！ 1097 S0004A4 D5 INC R5 1098 S0004A5 D5 INC R5 1099 S0004A6 60 SUB R0 1100 S0004A7 35 STW (R5) ; ＯＡＭＳＵＢ！！ 1101 S0004A8 D5 INC R5 1102 S0004A9 D5 INC R5 1103 YOSSY_OAM0140 1104 ; 1105 S0004AA 02 CACHE 1106 ; 1107 S0004AB F0 054D' IWT R0,#YOSSYBERDTA0 1108 S0004AE 1E TO R14 1109 S0004AF 5A ADD R10 1110 S0004B0 EF GETB 1111 S0004B1 DE INC R14 1112 S0004B2 3D EF GETBH 1113 S0004B4 20 1E MOVE R14,R0 1114 ; 1115 S0004B6 E6 DEC R6 1116 S0004B7 09 23' BEQ YOSSY_OAM01F0 ; 終り？ [yes->YOSSY_OAM01F0] 1117 S0004B9 01 NOP 1118 ; 1119 S0004BA 26 1C MOVE R12,R6 1120 S0004BC 2F 1D MOVE R13,R15 1121 ; 1122 S0004BE 21 WITH R1 1123 S0004BF 59 ADD R9 1124 ; 1125 S0004C0 B1 FROM R1 1126 S0004C1 57 ADD R7 1127 S0004C2 35 STW (R5) ; Ｘポジション！！ 1128 S0004C3 D5 INC R5 1129 S0004C4 D5 INC R5 1130 S0004C5 3F EF GETBS 1131 S0004C7 DE INC R14 1132 S0004C8 52 ADD R2 1133 S0004C9 35 STW (R5) ; Ｙポジション！！ 1134 S0004CA D5 INC R5 1135 S0004CB D5 INC R5 1136 S0004CC EF GETB 1137 S0004CD DE INC R14 1138 S0004CE 3D EF GETBH 1139 S0004D0 DE INC R14 1140 S0004D1 C4 OR R4 1141 S0004D2 3D C8 XOR R8 1142 S0004D4 35 STW (R5) ; キャラクタ＆アトリビュート！！ 1143 S0004D5 D5 INC R5 1144 S0004D6 D5 INC R5 1145 S0004D7 60 SUB R0 1146 S0004D8 35 STW (R5) ; ＯＡＭＳＵＢ！！ 1147 S0004D9 D5 INC R5 1148 ; 1149 S0004DA 3C LOOP 1150 S0004DB D5 INC R5 1151 ; 1152 YOSSY_OAM01F0 1153 S0004DC 00 STOP 1154 S0004DD 01 NOP 1155 ; 1156 YOSSY_OAM1000 1157 S0004DE 27 16 MOVE R6,R7 1158 S0004E0 A8 00 IBT R8,#00 1159 S0004E2 A7 08 IBT R7,#08 1160 S0004E4 E3 DEC R3 1161 S0004E5 0A 06' BPL YOSSY_OAM1030 ; [->YOSSY_OAM1030] 1162 S0004E7 D3 INC R3 1163 ; 1164 S0004E8 A7 00 IBT R7,#00 1165 S0004EA F8 4000 IWT R8,#04000H 1166 YOSSY_OAM1030 1167 S0004ED B1 FROM R1 1168 S0004EE 57 ADD R7 1169 S0004EF 35 STW (R5) ; Ｘポジション！！ 1170 S0004F0 D5 INC R5 1171 S0004F1 D5 INC R5 1172 S0004F2 B2 FROM R2 1173 S0004F3 35 STW (R5) ; Ｙポジション！！ 1174 S0004F4 D5 INC R5 1175 S0004F5 D5 INC R5 1176 S0004F6 F0 0A22 IWT R0,#00A22H 1177 S0004F9 C4 OR R4 1178 S0004FA C8 OR R8 1179 S0004FB 35 STW (R5) ; キャラクタ＆アトリビュート！！ 1180 S0004FC D5 INC R5 1181 S0004FD D5 INC R5 1182 S0004FE 60 SUB R0 1183 S0004FF 35 STW (R5) ; ＯＡＭＳＵＢ！！ 1184 S000500 D5 INC R5 1185 S000501 D5 INC R5 1186 ; 1187 YOSSY_OAM1040 1188 ; 1189 S000502 02 CACHE 1190 ; 1191 S000503 F0 05B5' IWT R0,#YOSSYBERDTA1 1192 S000506 1E TO R14 1193 S000507 5A ADD R10 1194 S000508 EF GETB 1195 S000509 DE INC R14 1196 S00050A 3D EF GETBH 1197 S00050C 20 1E MOVE R14,R0 1198 ; 1199 S00050E E6 DEC R6 1200 S00050F 09 2A' BEQ YOSSY_OAM10F0 ; 終り？ [yes->YOSSY_OAM10F0] 1201 S000511 01 NOP 1202 ; 1203 S000512 26 1C MOVE R12,R6 1204 S000514 2F 1D MOVE R13,R15 1205 ; 1206 S000516 22 WITH R2 1207 S000517 3E 58 ADD #08 1208 ; 1209 S000519 3F EF GETBS 1210 S00051B DE INC R14 1211 S00051C E3 DEC R3 1212 S00051D 0A 03' BPL YOSSY_OAM1080 ; [->YOSSY_OAM1080] 1213 S00051F D3 INC R3 1214 ; 1215 S000520 4F NOT 1216 S000521 D0 INC R0 1217 YOSSY_OAM1080 1218 S000522 51 ADD R1 1219 S000523 57 ADD R7 1220 S000524 35 STW (R5) ; Ｘポジション！！ 1221 S000525 D5 INC R5 1222 S000526 D5 INC R5 1223 S000527 B2 FROM R2 1224 S000528 35 STW (R5) ; Ｙポジション！！ 1225 S000529 D5 INC R5 1226 S00052A D5 INC R5 1227 S00052B EF GETB 1228 S00052C DE INC R14 1229 S00052D 3D EF GETBH 1230 S00052F DE INC R14 1231 S000530 C4 OR R4 1232 S000531 3D C8 XOR R8 1233 S000533 35 STW (R5) ; キャラクタ＆アトリビュート！！ 1234 S000534 D5 INC R5 1235 S000535 D5 INC R5 1236 S000536 60 SUB R0 1237 S000537 35 STW (R5) ; ＯＡＭＳＵＢ！！ 1238 S000538 D5 INC R5 1239 ; 1240 S000539 3C LOOP 1241 S00053A D5 INC R5 1242 ; 1243 YOSSY_OAM10F0 1244 S00053B 00 STOP 1245 S00053C 01 NOP 1246 ; 1247 ; 1248 00053D BERO_PATN EQU $ 1249 ; BERO_GUNYA --> 1250 S00053D 00 HEX 0 1251 S00053E 02 02 02 HEX 2,2,2 1252 000541 BERO_PATN_BIRI EQU $ 1253 S000541 04 04 04 HEX 4,4,4 1254 S000544 06 06 06 HEX 6,6,6 1255 000547 BERO_PATN_RETN EQU $ 1256 S000547 04 04 04 HEX 4,4,4 1257 S00054A 02 02 02 HEX 2,2,2 1258 00054D BERO_PATN_END EQU $ 1259 000004 BERO_P_BIRI EQU BERO_PATN_BIRI-BERO_PATN 1260 00000A BERO_P_RETN EQU BERO_PATN_RETN-BERO_PATN 1261 000010 BERO_P_END EQU BERO_PATN_END-BERO_PATN 1262 ; 1263 00054D YOSSYBERDTA0 EQU $ 1264 S00054D 0555' WORD YOSSYBERDT00 1265 S00054F 056D' WORD YOSSYBERDT01 1266 S000551 0585' WORD YOSSYBERDT02 1267 S000553 059D' WORD YOSSYBERDT03 1268 ; 1269 000555 YOSSYBERDT00 EQU $ 1270 S000555 00 21 0A 00 21 HEX 00, 21, 0A, 00, 21, 0A S00055A 0A 1271 S00055B 00 21 0A 00 21 HEX 00, 21, 0A, 00, 21, 0A S000560 0A 1272 S000561 00 21 0A 00 21 HEX 00, 21, 0A, 00, 21, 0A S000566 0A 1273 S000567 00 21 0A 00 21 HEX 00, 21, 0A, 00, 21, 0A S00056C 0A 1274 ; 1275 00056D YOSSYBERDT01 EQU $ 1276 S00056D 00 30 0A FF 30 HEX 00, 30, 0A, FF, 30, 8A S000572 8A 1277 S000573 00 30 0A FF 30 HEX 00, 30, 0A, FF, 30, 8A S000578 8A 1278 S000579 00 30 0A FF 30 HEX 00, 30, 0A, FF, 30, 8A S00057E 8A 1279 S00057F 00 30 0A FF 30 HEX 00, 30, 0A, FF, 30, 8A S000584 8A 1280 ; 1281 000585 YOSSYBERDT02 EQU $ 1282 S000585 00 31 0A FF 31 HEX 00, 31, 0A, FF, 31, 8A S00058A 8A 1283 S00058B 00 31 0A FF 31 HEX 00, 31, 0A, FF, 31, 8A S000590 8A 1284 S000591 00 31 0A FF 31 HEX 00, 31, 0A, FF, 31, 8A S000596 8A 1285 S000597 00 31 0A FF 31 HEX 00, 31, 0A, FF, 31, 8A S00059C 8A 1286 ; 1287 00059D YOSSYBERDT03 EQU $ 1288 S00059D 00 31 8A 01 31 HEX 00, 31, 8A, 01, 31, 0A S0005A2 0A 1289 S0005A3 00 31 8A 01 31 HEX 00, 31, 8A, 01, 31, 0A S0005A8 0A 1290 S0005A9 00 31 8A 01 31 HEX 00, 31, 8A, 01, 31, 0A S0005AE 0A 1291 S0005AF 00 31 8A 01 31 HEX 00, 31, 8A, 01, 31, 0A S0005B4 0A 1292 ; 1293 0005B5 YOSSYBERDTA1 EQU $ 1294 S0005B5 05BD' WORD YOSSYBERDT10 1295 S0005B7 05D5' WORD YOSSYBERDT11 1296 S0005B9 05ED' WORD YOSSYBERDT12 1297 S0005BB 0605' WORD YOSSYBERDT13 1298 ; 1299 0005BD YOSSYBERDT10 EQU $ 1300 S0005BD 00 32 0A 00 32 HEX 00, 32, 0A, 00, 32, 0A S0005C2 0A 1301 S0005C3 00 32 0A 00 32 HEX 00, 32, 0A, 00, 32, 0A S0005C8 0A 1302 S0005C9 00 32 0A 00 32 HEX 00, 32, 0A, 00, 32, 0A S0005CE 0A 1303 S0005CF 00 32 0A 00 32 HEX 00, 32, 0A, 00, 32, 0A S0005D4 0A 1304 ; 1305 0005D5 YOSSYBERDT11 EQU $ 1306 S0005D5 FF 23 0A 00 23 HEX FF, 23, 0A, 00, 23, 4A S0005DA 4A 1307 S0005DB FF 23 0A 00 23 HEX FF, 23, 0A, 00, 23, 4A S0005E0 4A 1308 S0005E1 FF 23 0A 00 23 HEX FF, 23, 0A, 00, 23, 4A S0005E6 4A 1309 S0005E7 FF 23 0A 00 23 HEX FF, 23, 0A, 00, 23, 4A S0005EC 4A 1310 ; 1311 0005ED YOSSYBERDT12 EQU $ 1312 S0005ED FF 33 0A 00 33 HEX FF, 33, 0A, 00, 33, 4A S0005F2 4A 1313 S0005F3 FF 33 0A 00 33 HEX FF, 33, 0A, 00, 33, 4A S0005F8 4A 1314 S0005F9 FF 33 0A 00 33 HEX FF, 33, 0A, 00, 33, 4A S0005FE 4A 1315 S0005FF FF 33 0A 00 33 HEX FF, 33, 0A, 00, 33, 4A S000604 4A 1316 ; 1317 000605 YOSSYBERDT13 EQU $ 1318 S000605 00 33 4A FF 33 HEX 00, 33, 4A, FF, 33, 0A S00060A 0A 1319 S00060B 00 33 4A FF 33 HEX 00, 33, 4A, FF, 33, 0A S000610 0A 1320 S000611 00 33 4A FF 33 HEX 00, 33, 4A, FF, 33, 0A S000616 0A 1321 S000617 00 33 4A FF 33 HEX 00, 33, 4A, FF, 33, 0A S00061C 0A 1322 ; 1323 ; 1324 ;------------------------------------------------------------------------ 1325 ;- クルマタイヤＯＡＭセット - 1326 ;- in : - 1327 ;- (R3) <-- プレイヤー向き - 1328 ;- (R4) <-- ＢＧ優先順位フラグ - 1329 ;- (R5) <-- ＯＡＭセット後のインデックス - 1330 ;------------------------------------------------------------------------ 1331 CAR_OAM 1332 S00061D 3D A0 89 LMS R0,CPLFTLN 1333 S000620 9E LOB 1334 S000621 08 03' BNE CAR_OAM0100 1335 S000623 01 NOP 1336 1337 S000624 00 STOP 1338 S000625 01 NOP 1339 ; 1340 ;-------------< 回転オブジェ転送 >----------------- 1341 CAR_OAM0100 1342 S000626 3D A6 8C LMS R6,CPLOAML 1343 S000629 A0 60 IBT R0,#12*8 1344 S00062B 15 TO R5 1345 S00062C 56 ADD R6 1346 S00062D A0 10 IBT R0,#2*8 1347 S00062F 26 WITH R6 1348 S000630 50 ADD R0 1349 1350 S000631 F2 8000 IWT R2,#08000H 1351 S000634 AC 04 IBT R12,#004 1352 S000636 02 CACHE 1353 S000637 2F 1D MOVE R13,R15 1354 1355 S000639 45 LDW (R5) 1356 S00063A B2 FROM R2 1357 S00063B 90 SBK 1358 S00063C 36 STW (R6) 1359 S00063D D5 INC R5 1360 S00063E D5 INC R5 1361 S00063F D6 INC R6 1362 S000640 D6 INC R6 1363 S000641 45 LDW (R5) 1364 S000642 36 STW (R6) 1365 S000643 D5 INC R5 1366 S000644 D5 INC R5 1367 S000645 D6 INC R6 1368 S000646 D6 INC R6 1369 S000647 45 LDW (R5) 1370 S000648 36 STW (R6) 1371 S000649 D5 INC R5 1372 S00064A D5 INC R5 1373 S00064B D6 INC R6 1374 S00064C D6 INC R6 1375 S00064D 45 LDW (R5) 1376 S00064E 36 STW (R6) 1377 S00064F D5 INC R5 1378 S000650 D5 INC R5 1379 S000651 D6 INC R6 1380 1381 S000652 3C LOOP 1382 S000653 D6 INC R6 1383 ; 1384 ;-------------< 転送キャラクリア >------------------ 1385 S000654 B2 FROM R2 1386 S000655 35 STW (R5) 1387 S000656 25 WITH R5 1388 S000657 3E 54 ADD #04 1389 S000659 45 LDW (R5) 1390 S00065A 25 WITH R5 1391 S00065B 3E 54 ADD #04 1392 S00065D B2 FROM R2 1393 S00065E 35 STW (R5) 1394 ; 1395 ;-------------< タイヤセット >------------------ 1396 S00065F F9 01FF IWT R9,#001FFH 1397 S000662 3D 79 BIC R9 1398 S000664 A9 08 IBT R9,#008H ;タイヤのキャラＮｏ． 1399 S000666 19 TO R9 ;(R9) <-- キャラＮｏ．＆ＡＴＴ 1400 S000667 C9 OR R9 1401 ; 1402 S000668 3D A0 62 LMS R0,CPLCMKI 1403 S00066B 50 ADD R0 1404 S00066C 50 ADD R0 1405 S00066D 1E TO R14 1406 S00066E 3E 64 SUB #04 1407 ; 1408 S000670 F1 017E IWT R1,#CPLLFTX 1409 S000673 F2 0184 IWT R2,#CPLLFTY 1410 S000676 3D A3 4A LMS R3,CESCCH1 1411 S000679 3D A4 4E LMS R4,CESCCV1 1412 S00067C A5 10 IBT R5,#010H 1413 S00067E 3D A0 89 LMS R0,CPLFTLN 1414 S000681 65 SUB R5 1415 S000682 3D A5 48 LMS R5,CPLYPSL 1416 S000685 55 ADD R5 1417 S000686 3D A5 CC LMS R5,CPLYPSV 1418 S000689 65 SUB R5 1419 S00068A 14 TO R4 1420 S00068B 64 SUB R4 1421 ; 1422 S00068C 3D A5 8C LMS R5,CPLOAML 1423 S00068F A0 30 IBT R0,#6*8 1424 S000691 16 TO R6 1425 S000692 55 ADD R5 1426 ; 1427 S000693 FA 4002 IWT R10,#04002H 1428 1429 S000696 AC 02 IBT R12,#02 1430 S000698 02 CACHE 1431 S000699 2F 1D MOVE R13,R15 1432 1433 S00069B 41 LDW (R1) ;X POS. 1434 S00069C 3E 68 SUB #08 1435 S00069E 63 SUB R3 1436 S00069F 35 STW (R5) 1437 S0006A0 6E SUB R14 1438 S0006A1 36 STW (R6) 1439 S0006A2 D5 INC R5 1440 S0006A3 D5 INC R5 1441 S0006A4 D6 INC R6 1442 S0006A5 D6 INC R6 1443 1444 S0006A6 42 LDW (R2) ;Y POS. 1445 S0006A7 54 ADD R4 1446 S0006A8 35 STW (R5) 1447 S0006A9 36 STW (R6) 1448 S0006AA D5 INC R5 1449 S0006AB D5 INC R5 1450 S0006AC D6 INC R6 1451 S0006AD D6 INC R6 1452 1453 S0006AE B9 FROM R9 ;CHR. NO. & ATTR. 1454 S0006AF 35 STW (R5) 1455 S0006B0 B9 FROM R9 ;CHR. NO. & ATTR. 1456 S0006B1 36 STW (R6) 1457 S0006B2 D5 INC R5 1458 S0006B3 D5 INC R5 1459 S0006B4 D6 INC R6 1460 S0006B5 D6 INC R6 1461 1462 S0006B6 BA FROM R10 ;(R5) <- #0002H 1463 S0006B7 9E LOB 1464 S0006B8 35 STW (R5) 1465 S0006B9 BA FROM R10 ;(R6) <- #4002H 1466 S0006BA 36 STW (R6) 1467 S0006BB D5 INC R5 1468 S0006BC D5 INC R5 1469 S0006BD D6 INC R6 1470 1471 S0006BE 21 WITH R1 1472 S0006BF 3E 54 ADD #04 1473 S0006C1 22 WITH R2 1474 S0006C2 3E 54 ADD #04 1475 1476 S0006C4 3C LOOP 1477 S0006C5 D6 INC R6 1478 ; 1479 ;-------------< 軸セット >------------------ 1480 S0006C6 3D AB 89 LMS R11,CPLFTLN 1481 S0006C9 2B WITH R11 1482 S0006CA 3E 68 SUB #008H 1483 S0006CC 0A 03' BPL CAR_OAM0700 ;軸を出す? ( yes:CAR_OAM0700 ) 1484 S0006CE 01 NOP 1485 1486 S0006CF 00 STOP 1487 S0006D0 01 NOP 1488 ; 1489 CAR_OAM0700 1490 S0006D1 A7 1F IBT R7,#01FH 1491 S0006D3 B9 FROM R9 1492 S0006D4 3D 77 BIC R7 1493 S0006D6 19 TO R9 ;(R9) <-- キャラＮｏ．＆ＡＴＴ 1494 S0006D7 3E CA OR #00AH 1495 ; 1496 S0006D9 2A WITH R10 1497 S0006DA 3F 72 BIC #02 1498 ; 1499 S0006DC 3D A0 62 LMS R0,CPLCMKI 1500 S0006DF E0 DEC R0 1501 S0006E0 23 WITH R3 1502 S0006E1 50 ADD R0 1503 ; 1504 S0006E2 26 15 MOVE R5,R6 1505 S0006E4 A0 30 IBT R0,#6*8 1506 S0006E6 26 WITH R6 1507 S0006E7 50 ADD R0 1508 ; 1509 S0006E8 24 WITH R4 1510 S0006E9 3E 54 ADD #04 ;8-4 （セットのスタート位置） 1511 S0006EB 24 WITH R4 1512 ; 1513 CAR_OAM0900 1514 S0006EC 3E 68 SUB #08 1515 1516 S0006EE F1 017E IWT R1,#CPLLFTX 1517 S0006F1 F2 0184 IWT R2,#CPLLFTY 1518 ; 1519 S0006F4 AC 02 IBT R12,#02 1520 S0006F6 2F 1D MOVE R13,R15 1521 1522 S0006F8 41 LDW (R1) ;X POS. 1523 S0006F9 3E 64 SUB #04 ; 1524 S0006FB 63 SUB R3 1525 S0006FC 35 STW (R5) 1526 S0006FD 6E SUB R14 1527 S0006FE 36 STW (R6) 1528 S0006FF D5 INC R5 1529 S000700 D5 INC R5 1530 S000701 D6 INC R6 1531 S000702 D6 INC R6 1532 1533 S000703 42 LDW (R2) ;Y POS. 1534 S000704 54 ADD R4 1535 S000705 35 STW (R5) 1536 S000706 36 STW (R6) 1537 S000707 D5 INC R5 1538 S000708 D5 INC R5 1539 S000709 D6 INC R6 1540 S00070A D6 INC R6 1541 1542 S00070B 29 10 MOVE R0,R9 1543 S00070D 35 STW (R5) ;CHR. NO. & ATTR. 1544 S00070E 36 STW (R6) ;CHR. NO. & ATTR. 1545 S00070F D5 INC R5 1546 S000710 D5 INC R5 1547 S000711 D6 INC R6 1548 S000712 D6 INC R6 1549 1550 S000713 60 SUB R0 ;(R5) <- #0000H 1551 S000714 35 STW (R5) 1552 S000715 BA FROM R10 ;(R6) <- #4000H 1553 S000716 36 STW (R6) 1554 S000717 D5 INC R5 1555 S000718 D5 INC R5 1556 S000719 D6 INC R6 1557 1558 S00071A 21 WITH R1 1559 S00071B 3E 54 ADD #04 1560 S00071D 22 WITH R2 1561 S00071E 3E 54 ADD #04 1562 1563 S000720 3C LOOP 1564 S000721 D6 INC R6 1565 1566 S000722 2B WITH R11 1567 S000723 3E 68 SUB #08 1568 S000725 BB FROM R11 1569 S000726 3E 61 SUB #1 1570 S000728 0A C2' BPL CAR_OAM0900 ;軸セット終わり? ( no:CAR_OAM0900 ) 1571 S00072A 24 WITH R4 1572 1573 S00072B 00 STOP 1574 S00072C 01 NOP 1575 ; 1576 ; 1577 ;;;;;------------------------------------------------------------------------ 1578 ;;;;;- ばくだんくんＯＡＭセット - 1579 ;;;;;- in : - 1580 ;;;;;- (R3) <-- プレイヤー向き - 1581 ;;;;;- (R4) <-- ＢＧ優先順位フラグ - 1582 ;;;;;- (R5) <-- ＯＡＭセット後のインデックス - 1583 ;;;;;------------------------------------------------------------------------ 1584 ;;;;BAK_OAMSET_OPS EQU $ 1585 ;;;; HEX F0,F0 1586 ;;;; HEX D0,F0 1587 ;;;; HEX F0,D0 1588 ;;;; HEX D0,D0 1589 ;;;;; 1590 ;;;;BAKUDAN_OAM 1591 ;;;; IBT R0,#BANK BAK_OAMSET_OPS 1592 ;;;; ROMB 1593 ;;;; 1594 ;;;; LMS R0,CPLBANG 1595 ;;;; SUB #08 1596 ;;;; BEQ BAK_OAM0100 ;ばくはつＯＡＭセット? ( yes:BAK_OAM0100 ) 1597 ;;;; NOP 1598 ;;;; 1599 ;;;; STOP 1600 ;;;; NOP 1601 ;;;; 1602 ;;;;BAK_OAM0100 1603 ;;;; LM R6,CPLOAML ; oam address 1604 ;;;; IWT R0,#12*8 1605 ;;;; TO R5 1606 ;;;; ADD R6 1607 ;;;; IBT R0,#08*4 1608 ;;;; TO R7 1609 ;;;; ADD R6 1610 ;;;; TO R8 1611 ;;;; ADD R7 1612 ;;;; 1613 ;;;; IWT R11,#08000H 1614 ;;;; IWT R4,#04000H 1615 ;;;; IWT R14,#BAK_OAMSET_OPS 1616 ;;;; 1617 ;;;; IBT R2,#002 1618 ;;;; IBT R12,#004 1619 ;;;; CACHE 1620 ;;;; MOVE R13,R15 1621 ;;;; 1622 ;;;; TO R9 1623 ;;;; GETBS 1624 ;;;; MOVES R3,R3 1625 ;;;; BNE BAK_OAM0500 ;h flip? ( no:BAK_OAM0500 ) 1626 ;;;; INC R14 1627 ;;;; 1628 ;;;; WITH R9 1629 ;;;; NOT 1630 ;;;; INC R9 1631 ;;;; 1632 ;;;;BAK_OAM0500 1633 ;;;; TO R10 1634 ;;;; GETBS 1635 ;;;; INC R14 1636 ;;;; 1637 ;;;; LDW (R5) ;X pos. set 1638 ;;;; STW (R6) 1639 ;;;; ADD R9 1640 ;;;; STW (R7) 1641 ;;;; STW (R8) 1642 ;;;; WITH R5 1643 ;;;; ADD R2 1644 ;;;; WITH R6 1645 ;;;; ADD R2 1646 ;;;; WITH R7 1647 ;;;; ADD R2 1648 ;;;; WITH R8 1649 ;;;; ADD R2 1650 ;;;; 1651 ;;;; LDW (R5) ;Y pos. set 1652 ;;;; STW (R8) 1653 ;;;; ADD R10 1654 ;;;; STW (R6) 1655 ;;;; STW (R7) 1656 ;;;; WITH R5 1657 ;;;; ADD R2 1658 ;;;; WITH R6 1659 ;;;; ADD R2 1660 ;;;; WITH R7 1661 ;;;; ADD R2 1662 ;;;; WITH R8 1663 ;;;; ADD R2 1664 ;;;; 1665 ;;;; LDW (R5) ;Char. no. / Attr. set 1666 ;;;; OR R11 1667 ;;;; STW (R6) 1668 ;;;; XOR R4 1669 ;;;; STW (R7) 1670 ;;;; XOR R11 1671 ;;;; STW (R8) 1672 ;;;; WITH R5 1673 ;;;; ADD R2 1674 ;;;; WITH R6 1675 ;;;; ADD R2 1676 ;;;; WITH R7 1677 ;;;; ADD R2 1678 ;;;; WITH R8 1679 ;;;; ADD R2 1680 ;;;; 1681 ;;;; LDW (R5) ; 1682 ;;;; STW (R6) 1683 ;;;; STW (R7) 1684 ;;;; STW (R8) 1685 ;;;; WITH R5 1686 ;;;; ADD R2 1687 ;;;; WITH R6 1688 ;;;; ADD R2 1689 ;;;; WITH R7 1690 ;;;; ADD R2 1691 ;;;; INC R8 1692 ;;;; 1693 ;;;; LOOP 1694 ;;;; INC R8 1695 ;;;; 1696 ;;;; STOP 1697 ;;;; NOP 1698 ; 1699 ;------------------------------------------------------------------------ 1700 ;- モグラＯＡＭセット - 1701 ;- in : - 1702 ;- (R3) <-- プレイヤー向き - 1703 ;- (R4) <-- ＢＧ優先順位フラグ - 1704 ;- (R5) <-- ＯＡＭセット後のインデックス - 1705 ;------------------------------------------------------------------------ 1706 MOGURA_OAM 1707 S00072D 3D A0 5F LMS R0,CPLPATN 1708 S000730 F1 0198 IWT R1,#Mg02 1709 S000733 61 SUB R1 1710 S000734 09 4F' BEQ MOGURA_OAM_0100 ;止まってる？ ( yes:MOGURA_OAM_0100 ) 1711 S000736 51 ADD R1 1712 ; 1713 S000737 A0 00" IBT R0,#BANK LCOS ;ＣＯＳデータアドレス（Ｂ）セット 1714 S000739 3F DF ROMB 1715 ; 1716 S00073B 3D A0 BF LMS R0,CPMG_ANGL ;(R0) <-- キャラクター回転角度 1717 S00073E C0 HIB 1718 S00073F FE 0000" IWT R14,#LCOS 1719 S000742 1E TO R14 ;(R14) <-- ＣＯＳデータアドレス（Ｌ，Ｈ）セット 1720 S000743 5E ADD R14 1721 S000744 16 TO R6 ;(R6) <-- ＣＯＳデータ 1722 S000745 3F EF GETBS 1723 ; 1724 S000747 F1 F400 IWT R1,#-03H*100H*4 ;(R1) <-- 奥の手半径×１００Ｈ×４ 1725 S00074A B1 FROM R1 1726 S00074B 18 TO R8 ;(R8) <-- 奥の手Ｘ座標補正値 1727 S00074C 9F FMULT 1728 ; 1729 S00074D F2 DC00 IWT R2,#-09H*100H*4 ;(R2) <-- 手前の手半径×１００Ｈ×４ 1730 S000750 B2 FROM R2 1731 S000751 1A TO R10 ;(R10) <-- 手前の手Ｘ座標補正値 1732 S000752 9F FMULT 1733 ; 1734 S000753 23 B3 MOVES R3,R3 1735 S000755 08 06' BNE MOGURA_OAM_0050 ;プレイヤー右向き？ ( yes:MOGURA_OAM_0050 ) 1736 S000757 28 WITH R8 1737 ; 1738 S000758 4F NOT 1739 S000759 D8 INC R8 1740 S00075A 2A WITH R10 1741 S00075B 4F NOT 1742 S00075C DA INC R10 1743 MOGURA_OAM_0050 1744 S00075D A0 40 IBT R0,#040H 1745 S00075F 1E TO R14 ;(R14) <-- ＳＩＮデータアドレス（Ｌ，Ｈ）セット 1746 S000760 5E ADD R14 1747 S000761 16 TO R6 ;(R6) <-- ＳＩＮデータ 1748 S000762 3F EF GETBS 1749 ; 1750 S000764 B1 FROM R1 1751 S000765 17 TO R7 ;(R7) <-- 奥の手Ｙ座標補正値 1752 S000766 9F FMULT 1753 ; 1754 S000767 B2 FROM R2 1755 S000768 19 TO R9 ;(R9) <-- 手前の手Ｙ座標補正値 1756 S000769 9F FMULT 1757 ; 1758 S00076A 3D A5 8C LMS R5,CPLOAML ; oam address 1759 S00076D A0 60 IBT R0,#12*8 1760 S00076F 15 TO R5 ;(R5) <-- ＯＡＭセットポインター 1761 S000770 55 ADD R5 1762 ; 1763 S000771 45 LDW (R5) 1764 S000772 58 ADD R8 1765 S000773 90 SBK ;[ STW (R5) ] 1766 S000774 D5 INC R5 1767 S000775 D5 INC R5 1768 ; 1769 S000776 45 LDW (R5) 1770 S000777 57 ADD R7 1771 S000778 90 SBK ;[ STW (R5) ] 1772 ; 1773 S000779 A0 26 IBT R0,#(5*8)-2 1774 S00077B 15 TO R5 1775 S00077C 55 ADD R5 1776 ; 1777 S00077D 45 LDW (R5) 1778 S00077E 5A ADD R10 1779 S00077F 90 SBK ;[ STW (R5) ] 1780 S000780 D5 INC R5 1781 S000781 D5 INC R5 1782 ; 1783 S000782 45 LDW (R5) 1784 S000783 59 ADD R9 1785 S000784 90 SBK ;[ STW (R5) ] 1786 ; 1787 MOGURA_OAM_0100 1788 S000785 00 STOP 1789 S000786 01 NOP 1790 ; 1791 ;------------------------------------------------------------------------ 1792 ;- ヘリコプターＯＡＭセット - 1793 ;- in : - 1794 ;- (R3) <-- プレイヤー向き - 1795 ;- (R4) <-- ＢＧ優先順位フラグ - 1796 ;- (R5) <-- ＯＡＭセット後のインデックス - 1797 ;------------------------------------------------------------------------ 1798 HERI_OAM 1799 S000787 00 STOP 1800 S000788 01 NOP 1801 ; 1802 ;------------------------------------------------------------------------ 1803 ;- 汽車ＯＡＭセット - 1804 ;- in : - 1805 ;- (R3) <-- プレイヤー向き - 1806 ;- (R4) <-- ＢＧ優先順位フラグ - 1807 ;- (R5) <-- ＯＡＭセット後のインデックス - 1808 ;------------------------------------------------------------------------ 1809 TRAIN_OAM 1810 S000789 3D A0 5F LMS R0,CPLPATN 1811 S00078C F1 0186 IWT R1,#TR00 1812 S00078F 61 SUB R1 1813 S000790 08 4D' BNE TRAIN_OAM_0150 ;レールモードパターン？ ( yes:TRAIN_OAM_0150 ) 1814 S000792 01 NOP 1815 ; 1816 S000793 A0 00" IBT R0,#BANK LCOS ;ＣＯＳデータアドレス（Ｂ）セット 1817 S000795 3F DF ROMB 1818 ; 1819 S000797 3D A0 BF LMS R0,CPTR_ANGL ;(R0) <-- キャラクター回転角度 1820 S00079A C0 HIB 1821 S00079B 20 16 MOVE R6,R0 1822 S00079D A7 40 IBT R7,#040H 1823 S00079F 57 ADD R7 1824 S0007A0 95 SEX 1825 S0007A1 0A 08' BPL TRAIN_OAM_0010 1826 S0007A3 01 NOP 1827 ; 1828 S0007A4 A0 7F IBT R0,#7FH 1829 S0007A6 3D C6 XOR R6 1830 S0007A8 D0 INC R0 1831 S0007A9 16 TO R6 1832 S0007AA 9E LOB 1833 TRAIN_OAM_0010 1834 S0007AB F0 0000" IWT R0,#LCOS 1835 S0007AE 1E TO R14 ;(R14) <-- ＣＯＳデータアドレス（Ｌ，Ｈ）セット 1836 S0007AF 56 ADD R6 1837 S0007B0 3F EF GETBS 1838 ; 1839 S0007B2 F6 F000 IWT R6,#-04H*100H*4 ;(R6) <-- 半径×１００Ｈ×４ 1840 S0007B5 17 TO R7 ;(R7) <-- Ｙ座標補正値 1841 S0007B6 9F FMULT 1842 ; 1843 S0007B7 A0 40 IBT R0,#040H 1844 S0007B9 1E TO R14 ;(R14) <-- ＳＩＮデータアドレス（Ｌ，Ｈ）セット 1845 S0007BA 5E ADD R14 1846 S0007BB 3F EF GETBS 1847 ; 1848 S0007BD 18 TO R8 ;(R8) <-- Ｘ座標補正値 1849 S0007BE 9F FMULT 1850 S0007BF 23 B3 MOVES R3,R3 1851 S0007C1 09 03' BEQ TRAIN_OAM_0050 ;プレイヤー右向き？ ( no:TRAIN_OAM_0050 ) 1852 S0007C3 28 WITH R8 1853 ; 1854 S0007C4 4F NOT 1855 S0007C5 D8 INC R8 1856 TRAIN_OAM_0050 1857 S0007C6 3D A5 8C LMS R5,CPLOAML ; oam address 1858 S0007C9 A0 60 IBT R0,#12*8 1859 S0007CB 15 TO R5 ;(R5) <-- ＯＡＭセットポインター 1860 S0007CC 55 ADD R5 1861 S0007CD A6 06 IBT R6,#8-2 ;ＯＡＭセットポインター加算値 1862 ; 1863 S0007CF 02 CACHE 1864 ; 1865 S0007D0 AC 04 IBT R12,#4 1866 S0007D2 2F 1D MOVE R13,R15 1867 TRAIN_OAM_0100 1868 S0007D4 45 LDW (R5) 1869 S0007D5 58 ADD R8 1870 S0007D6 90 SBK ;[ STW (R5) ] 1871 S0007D7 D5 INC R5 1872 S0007D8 D5 INC R5 1873 ; 1874 S0007D9 45 LDW (R5) 1875 S0007DA 57 ADD R7 1876 ; 1877 S0007DB 25 WITH R5 1878 S0007DC 56 ADD R6 1879 ; 1880 S0007DD 3C LOOP 1881 S0007DE 90 SBK ;[ STW (R5) ] 1882 ; 1883 TRAIN_OAM_0150 1884 S0007DF 00 STOP 1885 S0007E0 01 NOP 1886 ; 1887 ;------------------------------------------------------------------------ 1888 ;- キノコＯＡＭセット - 1889 ;- in : - 1890 ;- (R3) <-- プレイヤー向き - 1891 ;- (R4) <-- ＢＧ優先順位フラグ - 1892 ;- (R5) <-- ＯＡＭセット後のインデックス - 1893 ;------------------------------------------------------------------------ 1894 KINOKO_OAM 1895 S0007E1 00 STOP 1896 S0007E2 01 NOP 1897 ; 1898 ;------------------------------------------------------------------------ 1899 ;- 潜水艦ＯＡＭセット - 1900 ;- in : - 1901 ;- (R3) <-- プレイヤー向き - 1902 ;- (R4) <-- ＢＧ優先順位フラグ - 1903 ;- (R5) <-- ＯＡＭセット後のインデックス - 1904 ;------------------------------------------------------------------------ 1905 SUBMARIN_OAM 1906 S0007E3 00 STOP 1907 S0007E4 01 NOP 1908 ; 1909 ;------------------------------------------------------------------------ 1910 ;- スキーＯＡＭセット - 1911 ;- タマゴＯＡＭセット - 1912 ;- in : - 1913 ;- (R3) <-- プレイヤー向き - 1914 ;- (R4) <-- ＢＧ優先順位フラグ - 1915 ;- (R5) <-- ＯＡＭセット後のインデックス - 1916 ;------------------------------------------------------------------------ 1917 SKI_OAM 1918 EGG_OAM 1919 S0007E5 00 STOP 1920 S0007E6 01 NOP 1921 ; 1922 ;------------------------------------------------------------------------ 1923 ;- マリオＯＡＭセット - 1924 ;- in : - 1925 ;- (R3) <-- プレイヤー向き - 1926 ;- (R4) <-- ＢＧ優先順位フラグ - 1927 ;- (R5) <-- ＯＡＭセット後のインデックス - 1928 ;------------------------------------------------------------------------ 1929 MARIO_OAM 1930 S0007E7 A0 00" IBT R0,#BANK LCOS ;ＣＯＳデータアドレス（Ｂ）セット 1931 S0007E9 3F DF ROMB 1932 ; 1933 S0007EB 3D A0 5F LMS R0,CPLPATN 1934 S0007EE FE 0124 IWT R14,#MR0E 1935 S0007F1 6E SUB R14 1936 S0007F2 09 44' BEQ MARIO_OAM_0500 ;ホバリング？ ( yes:MARIO_OAM_0500 ) 1937 S0007F4 01 NOP 1938 ; 1939 S0007F5 3D A0 C0 LMS R0,CPMR_BGCF 1940 S0007F8 E0 DEC R0 1941 S0007F9 0B 3B' BMI MARIO_OAM_0150 ;ソニックモード？ ( no:MARIO_OAM_0150 ) 1942 S0007FB 01 NOP 1943 ; 1944 ;-------------- 地上歩き回転座標補正 ------------------------------------ 1945 S0007FC 3D A0 BF LMS R0,CPMR_ANGL ;(R0) <-- キャラクター回転角度 1946 S0007FF FE 0000" IWT R14,#LCOS 1947 S000802 1E TO R14 ;(R14) <-- ＣＯＳデータアドレス（Ｌ，Ｈ）セット 1948 S000803 5E ADD R14 1949 S000804 3F EF GETBS 1950 ; 1951 S000806 F6 D000 IWT R6,#-0CH*100H*4 ;(R6) <-- 半径×１００Ｈ×４ 1952 S000809 9F FMULT 1953 S00080A A7 0E IBT R7,#0EH 1954 S00080C 17 TO R7 ;(R7) <-- Ｙ座標補正値 1955 S00080D 57 ADD R7 1956 ; 1957 MARIO_OAM_0010 1958 S00080E A0 40 IBT R0,#040H 1959 S000810 1E TO R14 ;(R14) <-- ＳＩＮデータアドレス（Ｌ，Ｈ）セット 1960 S000811 5E ADD R14 1961 S000812 3F EF GETBS 1962 ; 1963 S000814 18 TO R8 ;(R8) <-- Ｘ座標補正値 1964 S000815 9F FMULT 1965 S000816 23 B3 MOVES R3,R3 1966 S000818 09 03' BEQ MARIO_OAM_0050 ;プレイヤー右向き？ ( no:MARIO_OAM_0050 ) 1967 S00081A 28 WITH R8 1968 ; 1969 S00081B 4F NOT 1970 S00081C D8 INC R8 1971 MARIO_OAM_0050 1972 S00081D 3D A5 8C LMS R5,CPLOAML ; oam address 1973 S000820 A0 60 IBT R0,#12*8 1974 S000822 15 TO R5 ;(R5) <-- ＯＡＭセットポインター 1975 S000823 55 ADD R5 1976 S000824 A6 06 IBT R6,#8-2 ;ＯＡＭセットポインター加算値 1977 ; 1978 S000826 02 CACHE 1979 ; 1980 S000827 AC 04 IBT R12,#4 1981 S000829 2F 1D MOVE R13,R15 1982 MARIO_OAM_0100 1983 S00082B 45 LDW (R5) 1984 S00082C 58 ADD R8 1985 S00082D 90 SBK ;[ STW (R5) ] 1986 S00082E D5 INC R5 1987 S00082F D5 INC R5 1988 ; 1989 S000830 45 LDW (R5) 1990 S000831 57 ADD R7 1991 ; 1992 S000832 25 WITH R5 1993 S000833 56 ADD R6 1994 ; 1995 S000834 3C LOOP 1996 S000835 90 SBK ;[ STW (R5) ] 1997 ; 1998 MARIO_OAM_0150 1999 S000836 00 STOP 2000 S000837 01 NOP 2001 ; 2002 ;-------------- ホバリング回転座標補正 ---------------------------------- 2003 MARIO_OAM_0500 2004 S000838 3D A0 BF LMS R0,CPMR_ANGL ;(R0) <-- キャラクター回転角度 2005 S00083B FE 0000" IWT R14,#LCOS 2006 S00083E 1E TO R14 ;(R14) <-- ＣＯＳデータアドレス（Ｌ，Ｈ）セット 2007 S00083F 5E ADD R14 2008 S000840 3F EF GETBS 2009 ; 2010 S000842 F6 3000 IWT R6,#0CH*100H*4 ;(R6) <-- 半径×１００Ｈ×４ 2011 S000845 9F FMULT 2012 S000846 A7 0A IBT R7,#0AH 2013 S000848 17 TO R7 ;(R7) <-- Ｙ座標補正値 2014 S000849 05 C3' BRA MARIO_OAM_0010 2015 S00084B 67 SUB R7 2016 ; 2017 ;************************************************************************ 2018 ;* enemy pos calculate * 2019 ;************************************************************************ 2020 ; 2021 ;=============== X Y MOVE =============================================== 2022 00084C XYMOVE EQU $ 2023 S00084C A0 00" IBT R0,#BANK LCOS 2024 S00084E 3F DF ROMB 2025 ; 2026 S000850 F1 11E0 IWT R1,#CEXXSPD ;SPEED 2027 S000853 F2 1280 IWT R2,#CEXMOVX ;move dot 2028 S000856 F3 10A0 IWT R3,#CEXXSDR-1 ;KEISAN X 2029 S000859 F9 1140 IWT R9,#CEXYSDR-1 ;KEISAN Y 2030 S00085C F7 0EC0 IWT R7,#CEXMODE ;MODE & SLOP & ADD_XSP 2031 S00085F F8 15A0 IWT R8,#CEXXMAX ;X,Y SPEED MAX 2032 S000862 FA 1500 IWT R10,#CEXXPOW ;G KEISAN 2033 S000865 F5 1822 IWT R5,#CEXWATR ;水中フラグ 2034 ; 2035 S000868 02 CACHE 2036 ; 2037 S000869 AC 28 IBT R12,#CENNO+CEXNO ;LOOP N 2038 S00086B 2F 1D MOVE R13,R15 ;LOOP ADDR 2039 ; 2040 XYMOVE00 2041 S00086D 3D 47 LDB (R7) 2042 S00086F D7 INC R7 ;go to EXSLOP 2043 S000870 D7 INC R7 2044 ;;;; SUB #CENOK 2045 S000871 3E 6C SUB #CEFALL 2046 S000873 0D 15' BCS XYMOVE10 ;MODE MOVE OK ? 2047 S000875 16 TO R6 ;(R6) <-- X speed 2048 ; 2049 S000876 A0 04 IBT R0,#4 2050 S000878 11 TO R1 2051 S000879 51 ADD R1 2052 S00087A 12 TO R2 2053 S00087B 52 ADD R2 2054 S00087C 13 TO R3 2055 S00087D 53 ADD R3 2056 S00087E 19 TO R9 2057 S00087F 59 ADD R9 2058 S000880 18 TO R8 2059 S000881 58 ADD R8 2060 S000882 15 TO R5 2061 S000883 55 ADD R5 2062 S000884 1A TO R10 2063 S000885 5A ADD R10 2064 mDJMP_X XYMOVE60+1 2064+ S000886 FF 0921' IWT R15, #XYMOVE60+1 2065 S000889 D7 INC R7 2066 ; ;Y 2067 ;-------------- X power set ------------------------------------- 2068 XYMOVE10 2069 ;;;; TO R6 ;(R6) <-- X speed 2070 S00088A 41 LDW (R1) 2071 ; 2072 S00088B 47 LDW (R7) 2073 S00088C 20 14 MOVE R4,R0 2074 S00088E C0 HIB 2075 S00088F 3E 88 MULT #8 2076 S000891 1B TO R11 ;(R11) <-- Ｘ方向圧力 2077 S000892 50 ADD R0 2078 ; 2079 S000893 B4 FROM R4 2080 S000894 9E LOB 2081 ;;;; SBK ;[ STW (R7) ] Ｘ方向圧力クリアー 2082 S000895 FE 0000" IWT R14,#LSIN 2083 S000898 1E TO R14 2084 S000899 5E ADD R14 2085 ; 2086 S00089A 48 LDW (R8) 2087 S00089B 66 SUB R6 2088 S00089C 0A 03' BPL XYMOVE20 2089 S00089E 4A LDW (R10) 2090 ; 2091 S00089F 4F NOT 2092 S0008A0 D0 INC R0 2093 XYMOVE20 2094 S0008A1 56 ADD R6 2095 S0008A2 31 STW (R1) ;X power set !! 2096 ; 2097 S0008A3 5B ADD R11 2098 S0008A4 50 ADD R0 2099 S0008A5 16 TO R6 2100 S0008A6 50 ADD R0 2101 ; 2102 ;-------------- X pos move -------------------------------------- 2103 S0008A7 EF GETB ;(R0) <-- sin data 2104 S0008A8 A4 40 IBT R4,#040H 2105 S0008AA 2E WITH R14 ;(R14) <-- LCOS address 2106 S0008AB 64 SUB R4 2107 ; 2108 S0008AC 4D SWAP ;[ 4000H <- 40H ] 2109 S0008AD 1B TO R11 ;(R11) <-- 坂補正Ｙスピード 2110 S0008AE 9F FMULT 2111 ; 2112 S0008AF EF GETB ;(R0) <-- cos data 2113 S0008B0 4D SWAP ;[ 4000H <- 40H ] 2114 S0008B1 16 TO R6 ;(R6) <-- 坂補正Ｘスピード 2115 S0008B2 9F FMULT 2116 ; 2117 S0008B3 FE 0100 IWT R14,#0100H ;(R14) <-- スピード倍率 2118 S0008B6 45 LDW (R5) 2119 S0008B7 E0 DEC R0 2120 S0008B8 4D SWAP 2121 S0008B9 0B 05' BMI XYMOVE22 ;水中？ ( no:XYMOVE22 ) 2122 S0008BB 4D SWAP 2123 ; 2124 S0008BC D0 INC R0 2125 S0008BD 1E TO R14 2126 S0008BE C0 HIB 2127 S0008BF DE INC R14 2128 XYMOVE22 2129 S0008C0 BE FROM R14 2130 S0008C1 3D 9F LMULT 2131 S0008C3 24 WITH R4 2132 S0008C4 C0 HIB 2133 S0008C5 9E LOB 2134 S0008C6 4D SWAP 2135 S0008C7 C4 OR R4 2136 S0008C8 20 16 MOVE R6,R0 2137 S0008CA 09 0B' BEQ XYMOVE30 ; pos move ? 2138 S0008CC 9E LOB 2139 ; 2140 S0008CD 14 TO R4 2141 S0008CE 4D SWAP 2142 S0008CF 43 LDW (R3) 2143 S0008D0 54 ADD R4 2144 S0008D1 90 SBK 2145 S0008D2 B6 FROM R6 2146 S0008D3 C0 HIB 2147 S0008D4 95 SEX 2148 S0008D5 3F 50 ADC #00 2149 XYMOVE30 2150 S0008D7 32 STW (R2) ;move dot set 2151 S0008D8 D3 INC R3 ;go to EXXPSL 2152 S0008D9 D3 INC R3 2153 S0008DA 16 TO R6 2154 S0008DB 43 LDW (R3) 2155 S0008DC 56 ADD R6 2156 S0008DD 90 SBK 2157 ; 2158 ;-------------- G power set ------------------------------------- 2159 S0008DE D1 INC R1 ;go to EXYSPD 2160 S0008DF D1 INC R1 2161 S0008E0 D2 INC R2 ;go to EXMOVY 2162 S0008E1 D2 INC R2 2163 S0008E2 D8 INC R8 ;go to EXGMAX 2164 S0008E3 D8 INC R8 2165 S0008E4 DA INC R10 ;go to EXGPOW 2166 S0008E5 DA INC R10 2167 ; 2168 S0008E6 48 LDW (R8) 2169 S0008E7 16 TO R6 2170 S0008E8 41 LDW (R1) 2171 S0008E9 66 SUB R6 2172 S0008EA 0A 03' BPL XYMOVE40 2173 S0008EC 4A LDW (R10) 2174 ; 2175 S0008ED 4F NOT 2176 S0008EE D0 INC R0 2177 XYMOVE40 2178 S0008EF 56 ADD R6 2179 S0008F0 31 STW (R1) ;重力セット 2180 ; 2181 S0008F1 16 TO R6 2182 S0008F2 5B ADD R11 ;坂補正Ｙスピード加算 2183 ; 2184 ;-------------- Y pos move -------------------------------------- 2185 S0008F3 BE FROM R14 ;スピード倍率計算 2186 S0008F4 3D 9F LMULT 2187 S0008F6 24 WITH R4 2188 S0008F7 C0 HIB 2189 S0008F8 9E LOB 2190 S0008F9 4D SWAP 2191 S0008FA C4 OR R4 2192 S0008FB 20 16 MOVE R6,R0 2193 S0008FD 09 0B' BEQ XYMOVE50 ; pos move ? 2194 S0008FF 9E LOB 2195 ; 2196 S000900 14 TO R4 2197 S000901 4D SWAP 2198 S000902 49 LDW (R9) 2199 S000903 54 ADD R4 2200 S000904 90 SBK 2201 S000905 B6 FROM R6 2202 S000906 C0 HIB 2203 S000907 95 SEX 2204 S000908 3F 50 ADC #00 2205 XYMOVE50 2206 S00090A 32 STW (R2) ;move dot set 2207 S00090B D9 INC R9 ;go to EXYPSL 2208 S00090C D9 INC R9 2209 S00090D 16 TO R6 2210 S00090E 49 LDW (R9) 2211 S00090F 56 ADD R6 2212 S000910 90 SBK 2213 ; 2214 S000911 D1 INC R1 ;NEXT SPEED 2215 S000912 D1 INC R1 2216 S000913 D2 INC R2 ;NEXT move dot 2217 S000914 D2 INC R2 2218 S000915 D8 INC R8 ;NEXT G MAX 2219 S000916 D8 INC R8 2220 S000917 D3 INC R3 ;NEXT KEISAN X 2221 S000918 D3 INC R3 2222 S000919 D9 INC R9 ;NEXT KEISAN Y 2223 S00091A D9 INC R9 2224 S00091B DA INC R10 ;G KEISAN 2225 S00091C DA INC R10 2226 S00091D 25 WITH R5 ;NEXT 水中フラグ 2227 S00091E 3E 54 ADD #4 2228 XYMOVE60 2229 S000920 D7 INC R7 ;NEXT MODE 2230 S000921 3C LOOP 2231 S000922 D7 INC R7 2232 ; 2233 S000923 00 STOP 2234 S000924 01 NOP 2235 ; 2236 ;************************************************************************ 2237 ;* enemy arae over check * 2238 ;* in : * 2239 ;* (R3) <-- １Ｗ−０フラグ * 2240 ;************************************************************************ 2241 000925 GAMENCHK EQU $ 2242 000925 GAMENCHK_DM EQU $ 2243 ; 2244 ;------------------------------------------------------------------------ 2245 ;- プレイヤーＸ方向表示位置チェック - 2246 ;------------------------------------------------------------------------ 2247 S000925 3D A0 56 LMS R0,CPLMODE 2248 S000928 3D F1 1E2A LM R1,CSP_SCRL_FG 2249 S00092C C1 OR R1 2250 S00092D 09 05' BEQ PL_XDSCK_0010 ;チェックＯＫ？ ( yes:PL_XDSCK_0010 ) 2251 S00092F 01 NOP 2252 ; 2253 mDJMP PL_XDSCK_0150 2253+ S000930 FF 09C1' IWT R15, #PL_XDSCK_0150 2253+ S000933 01 NOP 2254 ; 2255 PL_XDSCK_0010 2256 S000934 3D A0 46 LMS R0,CPLXPSL 2257 S000937 3D A1 4A LMS R1,CESCCH1 ;(R1) <-- スクロールカウンターＨ 2258 S00093A 61 SUB R1 ;(R0) <-- プレイヤー表示Ｘ座標 2259 ; 2260 S00093B A2 60 IBT R2,#001100000B ;(R2) <-- 挟まれチェックデータ 2261 S00093D A4 08 IBT R4,#LEFT_X 2262 S00093F 16 TO R6 ;(R6) <-- 食い込みサイズ 2263 S000940 64 SUB R4 2264 S000941 0B 20' BMI PL_XDSCK_0050 ;左端オーバー？ ( yes:PL_XDSCK_0050 ) 2265 S000943 01 NOP 2266 ; 2267 S000944 F2 0180 IWT R2,#110000000B ;(R2) <-- 挟まれチェックデータ 2268 S000947 F4 00E8 IWT R4,#RIGHT_X 2269 S00094A 16 TO R6 ;(R6) <-- 食い込みサイズ 2270 S00094B 64 SUB R4 2271 S00094C E6 DEC R6 ;[ BEQ ] 2272 S00094D 0B 72' BMI PL_XDSCK_0150 ;右端オーバー？ ( no:PL_XDSCK_0150 ) 2273 S00094F D6 INC R6 2274 ; 2275 ;-------------- １Ｗ−０チェック ---------------------------------------- 2276 S000950 23 B3 MOVES R3,R3 2277 S000952 09 0F' BEQ PL_XDSCK_0050 ;１Ｗ−０？ ( no:PL_XDSCK_0050 ) 2278 S000954 01 NOP 2279 ; 2280 S000955 F4 00F8 IWT R4,#0F8H 2281 S000958 64 SUB R4 2282 S000959 0B 66' BMI PL_XDSCK_0150 ;１Ｗ−１へ？ ( no:PL_XDSCK_0150 ) 2283 S00095B 01 NOP 2284 ; 2285 mSFCALL GOTO_W1_1 2285+ S00095C A0 16 IBT R0,#GOTO_W1_1 2285+ S00095E 00 STOP 2285+ S00095F 01 NOP 2286 S000960 05 5F' BRA PL_XDSCK_0150 2287 S000962 01 NOP 2288 ; 2289 PL_XDSCK_0050 2290 S000963 3D F5 1E28 LM R5,CSCRL_XSPD ;(R5) <-- スクロールＸスピード 2291 S000967 B6 FROM R6 2292 S000968 3D C5 XOR R5 2293 S00096A 0A 1B' BPL PL_XDSCK_0060 ;挟まれた？ ( no:PL_XDSCK_0060 ) 2294 S00096C 01 NOP 2295 ; 2296 S00096D 3D A0 7E LMS R0,CPLBGCR 2297 S000970 72 AND R2 2298 S000971 09 14' BEQ PL_XDSCK_0060 ;挟まれた？ ( no:PL_XDSCK_0060 ) 2299 S000973 01 NOP 2300 ; 2301 S000974 20 B6 MOVES R0,R6 2302 S000976 0A 03' BPL PL_XDSCK_0052 2303 S000978 01 NOP 2304 ; 2305 S000979 4F NOT 2306 S00097A D0 INC R0 2307 PL_XDSCK_0052 2308 S00097B 3E 6F SUB #0FH 2309 S00097D 0C 42' BCC PL_XDSCK_0150 ;挟まれた？ ( no:PL_XDSCK_0150 ) 2310 S00097F 01 NOP 2311 ; 2312 ;-------------- 挟まれた！！ -------------------------------------------- 2313 mSFCALL PLDOWNST ;プレイヤーダウンセット 2313+ S000980 A0 12 IBT R0,#PLDOWNST 2313+ S000982 00 STOP 2313+ S000983 01 NOP 2314 S000984 05 3B' BRA PL_XDSCK_0150 2315 S000986 01 NOP 2316 ; 2317 PL_XDSCK_0060 2318 S000987 3D A7 54 LMS R7,CPLXSPD 2319 S00098A B7 FROM R7 2320 S00098B 65 SUB R5 2321 S00098C 3D C7 XOR R7 2322 S00098E 0B 0D' BMI PL_XDSCK_0100 ;ＸスピードクリアーＯＫ？ ( no:PL_XDSCK_0100 ) 2323 S000990 01 NOP 2324 ; 2325 S000991 B5 FROM R5 2326 S000992 90 SBK ;[ SMS R0,CPLXSPD ] 2327 S000993 3E A5 5A SMS R5,CPLMVSP 2328 S000996 3D F0 1E26 LM R0,CSCRL_XSDR 2329 S00099A 3E A0 45 SMS R0,CPLXSDR 2330 ; 2331 PL_XDSCK_0100 2332 S00099D B6 FROM R6 2333 S00099E 3E 54 ADD #4 2334 S0009A0 0B 06' BMI PL_XDSCK_0110 ;補正最大値オーバー？ ( yes:PL_XDSCK_0110 ) 2335 S0009A2 01 NOP 2336 ; 2337 S0009A3 3E 68 SUB #4+4 2338 S0009A5 0C 05' BCC PL_XDSCK_0120 ;補正最大値オーバー？ ( no:PL_XDSCK_0120 ) 2339 S0009A7 01 NOP 2340 ; 2341 PL_XDSCK_0110 2342 S0009A8 4F NOT 2343 S0009A9 D0 INC R0 2344 S0009AA 16 TO R6 2345 S0009AB 56 ADD R6 2346 PL_XDSCK_0120 2347 S0009AC 3D A0 46 LMS R0,CPLXPSL 2348 S0009AF 66 SUB R6 2349 S0009B0 90 SBK ;[ SMS R0,CPLXPSL ] 2350 ; 2351 ;-------------- プレイヤーに乗ってる敵のＸ座標補正 ---------------------- 2352 S0009B1 3D F5 1E48 LM R5,CNOSEIDX 2353 S0009B5 25 B5 MOVES R5,R5 2354 S0009B7 0B 08' BMI PL_XDSCK_0150 ;プレイヤーに乗ってる敵いる？ ( no:PL_XDSCK_0150 ) 2355 S0009B9 01 NOP 2356 ; 2357 mLDW0 CENXPSL,R5 2357+ S0009BA F0 10E2 IWT R0,#CENXPSL 2357+ S0009BD 55 ADD R5 2357+ S0009BE 40 LDW (R0) 2358 S0009BF 66 SUB R6 2359 S0009C0 90 SBK ;[ mSTW R0,CENXPSL,R5 ] 2360 ; 2361 PL_XDSCK_0150 2362 ; 2363 ;------------------------------------------------------------------------ 2364 ;- 敵ＯＡＭセット - 2365 ;------------------------------------------------------------------------ 2366 S0009C1 A0 00' IBT R0,#BANK ENCLEAR_SIZE ;ROM BANK SET 2367 S0009C3 3F DF ROMB 2368 ; 2369 S0009C5 F1 1461 IWT R1,#CEXDORE 2370 S0009C8 F2 10A2 IWT R2,#CEXXPSL 2371 S0009CB F3 1142 IWT R3,#CEXYPSL 2372 S0009CE F4 1640 IWT R4,#CEXDSXL 2373 S0009D1 F6 0EC0 IWT R6,#CEXMODE 2374 S0009D4 F9 1000 IWT R9,#CEXMOD2 2375 S0009D7 FA 1460 IWT R10,#CEXRETN 2376 ; 2377 S0009DA 02 CACHE 2378 ; 2379 S0009DB AC 28 IBT R12,#CENNO+CEXNO 2380 S0009DD 2F 1D MOVE R13,R15 2381 GAMEN00 2382 S0009DF 3D 46 LDB (R6) 2383 S0009E1 E0 DEC R0 2384 S0009E2 0A 06' BPL GAMEN02 ;enemy "ON" ? ( yes:GAMEN02 ) 2385 S0009E4 01 NOP 2386 ; 2387 S0009E5 D4 INC R4 2388 S0009E6 FF 0A6A' IWT R15,#GAMEN20 2389 S0009E9 D4 INC R4 2390 ; 2391 GAMEN02 2392 S0009EA 3D 41 LDB (R1) 2393 ; 2394 S0009EC F7 0094 IWT R7,#CESCCH1 ;SCCV GET 2395 S0009EF 17 TO R7 2396 S0009F0 57 ADD R7 2397 S0009F1 17 TO R7 2398 S0009F2 47 LDW (R7) 2399 S0009F3 F8 009C IWT R8,#CESCCV1 ;SCCH GET 2400 S0009F6 58 ADD R8 2401 S0009F7 18 TO R8 2402 S0009F8 40 LDW (R0) 2403 ; 2404 S0009F9 42 LDW (R2) ;X POS SET 2405 S0009FA 67 SUB R7 2406 S0009FB 34 STW (R4) 2407 S0009FC 20 17 MOVE R7,R0 2408 ; 2409 S0009FE 43 LDW (R3) ;Y POS SET 2410 S0009FF 68 SUB R8 2411 S000A00 D4 INC R4 ;go to CEXDSYL !! 2412 S000A01 D4 INC R4 2413 S000A02 34 STW (R4) 2414 S000A03 20 18 MOVE R8,R0 2415 ; 2416 S000A05 49 LDW (R9) 2417 S000A06 3E 7C AND #0CH 2418 S000A08 09 60' BEQ GAMEN20 2419 S000A0A 01 NOP 2420 ; 2421 S000A0B FE 0C83' IWT R14,#ENCLEAR_SIZE-4 2422 S000A0E 1E TO R14 2423 S000A0F 5E ADD R14 ;(R14) <-- area check size data address 2424 ; 2425 S000A10 EF GETB 2426 S000A11 DE INC R14 2427 S000A12 FB 00F0 IWT R11,#0F0H 2428 S000A15 3D EF GETBH 2429 S000A17 DE INC R14 2430 S000A18 15 TO R5 2431 S000A19 57 ADD R7 2432 S000A1A 50 ADD R0 ;x2 2433 S000A1B 5B ADD R11 2434 S000A1C 65 SUB R5 2435 S000A1D 0C 10' BCC GAMEN80 ;X pos area over ? ( yes:GAMEN80 ) 2436 S000A1F 60 SUB R0 ;[ IBT R0,#00 ] 2437 ; 2438 S000A20 EF GETB 2439 S000A21 DE INC R14 2440 S000A22 FB 00C8 IWT R11,#0C8H 2441 S000A25 3D EF GETBH 2442 S000A27 15 TO R5 2443 S000A28 58 ADD R8 2444 S000A29 50 ADD R0 ;x2 2445 S000A2A 5B ADD R11 2446 S000A2B 65 SUB R5 2447 S000A2C 0D 3C' BCS GAMEN20 ;Y pos area over ? ( no:GAMEN20 ) 2448 S000A2E 60 SUB R0 ;[ IBT R0,#00 ] 2449 ; 2450 GAMEN80 2451 S000A2F 36 STW (R6) ;enemy "OFF" !! 2452 S000A30 E0 DEC R0 2453 S000A31 D1 INC R1 ;go to CEXYUSN !! 2454 S000A32 3D 31 STB (R1) ;not OAM set !! 2455 S000A34 E1 DEC R1 2456 ; 2457 S000A35 A0 18 IBT R0,#(CENNO+CEXNO)-CEXNO 2458 S000A37 6C SUB R12 2459 S000A38 50 ADD R0 ;x4 2460 S000A39 18 TO R8 ; 2461 S000A3A 50 ADD R0 ; 2462 ; 2463 ;-------------- transfer OBJ aria use check ----------------------------- 2464 S000A3B A0 40 IBT R0,#CEXNO*4 2465 S000A3D 58 ADD R8 2466 S000A3E F8 16E2 IWT R8,#CEXTROB 2467 S000A41 58 ADD R8 2468 S000A42 40 LDW (R0) 2469 S000A43 3E 60 SUB #0 2470 S000A45 0B 0D' BMI GAMEN12 ;transfer OBJ aria use ? ( no:GAMEN12 ) 2471 S000A47 01 NOP 2472 2473 S000A48 F8 1ECE IWT R8,#CTROBJ_SIZE 2474 S000A4B 58 ADD R8 2475 S000A4C 40 LDW (R0) 2476 S000A4D 4F NOT 2477 S000A4E 3D F8 1ECC LM R8,CTROBJ_ARIA 2478 S000A52 78 AND R8 2479 S000A53 90 SBK 2480 ; 2481 GAMEN12 2482 S000A54 3D 4A LDB (R10) vvv******* warn :value out of range 2483 S000A56 F8 28CA IWT R8,#EDSWBF 2484 S000A59 18 TO R8 2485 S000A5A 58 ADD R8 2486 S000A5B 60 SUB R0 2487 S000A5C 3D 38 STB (R8) ;enemy data return !! 2488 2489 S000A5E 3D F0 01B6 LM R0,CPONLFFG 2490 S000A62 6C SUB R12 2491 S000A63 08 05' BNE GAMEN20 2492 S000A65 01 NOP 2493 2494 S000A66 3E F0 01B6 SM R0,CPONLFFG 2495 ; 2496 GAMEN20 2497 S000A6A A0 04 IBT R0,#004H 2498 S000A6C 12 TO R2 2499 S000A6D 52 ADD R2 2500 S000A6E 13 TO R3 2501 S000A6F 53 ADD R3 2502 S000A70 16 TO R6 2503 S000A71 56 ADD R6 2504 S000A72 19 TO R9 2505 S000A73 59 ADD R9 2506 S000A74 1A TO R10 2507 S000A75 5A ADD R10 2508 S000A76 11 TO R1 2509 S000A77 51 ADD R1 2510 S000A78 D4 INC R4 2511 ; 2512 S000A79 3C LOOP 2513 S000A7A D4 INC R4 2514 ; 2515 ;************************************************************************ 2516 ;* enemy OAM set * 2517 ;************************************************************************ 2518 ; ;OAM SET 2519 000A7B OAMSET EQU $ 2520 S000A7B A0 4D IBT R0,#BANK ENOBJ_DATA ;ROM BANK SET 2521 S000A7D 3F DF ROMB 2522 ; 2523 S000A7F AB 00 IBT R11,#000H 2524 S000A81 FD 0A8F' IWT R13,#OAMSET20 ;LOOP ADDR 2525 S000A84 F1 1462 IWT R1,#CEXYUSN ;YUSEN 2526 S000A87 F2 1000 IWT R2,#CEXMOD2 ;CHAR PT 2527 ; 2528 S000A8A 02 CACHE 2529 OAMSET10 2530 S000A8B AC 28 IBT R12,#CENNO+CEXNO 2531 S000A8D AA 00 IBT R10,#000H 2532 OAMSET20 2533 S000A8F B1 FROM R1 ;YUSEN CHK. 2534 S000A90 5A ADD R10 2535 S000A91 40 LDW (R0) 2536 S000A92 6B SUB R11 2537 S000A93 09 05' BEQ OAMSET21 ;OAM SET OK ? 2538 S000A95 01 NOP 2539 ; ;N 2540 S000A96 FF 0AE5' IWT R15,#OAMSET30+1 ;[ JMP OAMSET30+1 ] 2541 S000A99 DA INC R10 2542 ; 2543 OAMSET21 2544 S000A9A F0 13C2 IWT R0,#CEXCHPT 2545 S000A9D 5A ADD R10 2546 S000A9E 40 LDW (R0) 2547 S000A9F 20 19 MOVE R9,R0 ;(R9) <-- pattern no. 2548 S000AA1 C0 HIB 2549 S000AA2 09 1E' BEQ OAMSET26 ;特殊ズームＯＢＪ？ ( no:OAMSET26 ) 2550 S000AA4 E0 DEC R0 2551 ; 2552 ;-------------- 特殊ズームＯＢＪ OAM set ------------------------ 2553 S000AA5 08 0B' BNE OAMSET24 ;2x2 size ? ( no:OAMSET24 ) 2554 S000AA7 19 TO R9 2555 ; 2556 S000AA8 60 SUB R0 ;(R9) <-- パターンＮｏ． 2557 S000AA9 3E A9 00 SMS R9,CWORK0 ;(CWK0) <-- キャラクターバンク vvv******* warn :value out of range 2558 S000AAC FE 0914 IWT R14,#ESPTRCAD ;(R14) <-- 特殊ズームＯＢＪデータポインター 2559 S000AAF 05 65' BRA OAMSET_1_S+1 2560 S000AB1 EF GETB 2561 ; 2562 OAMSET24 2563 S000AB2 60 SUB R0 ;(R9) <-- パターンＮｏ． 2564 S000AB3 3E A9 00 SMS R9,CWORK0 ;(CWK0) <-- キャラクターバンク 2565 S000AB6 3E AC 2C SMS R12,REG12 2566 S000AB9 AC 04 IBT R12,#4 ;(R12) <-- ＯＢＪ使用数 vvv******* warn :value out of range 2567 S000ABB FE 0918 IWT R14,#ESPTRCAD+4 ;(R14) <-- 特殊ズームＯＢＪデータポインター 2568 S000ABE FF 0BAE' IWT R15,#OAMSET_2_S+1 2569 S000AC1 3E HEX 3E ;[ SMS R1,REG1 ] 2570 ; 2571 OAMSET26 2572 S000AC2 F0 1140 IWT R0,#CEXCHRB 2573 S000AC5 5A ADD R10 2574 S000AC6 3D 40 LDB (R0) 2575 S000AC8 3E 88 MULT #8 2576 S000ACA 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- キャラクターバンク 2577 ; 2578 S000ACD B2 FROM R2 ;CHPT CHK. 2579 S000ACE 5A ADD R10 2580 S000ACF 40 LDW (R0) ;OAM set type load 2581 S000AD0 3E 73 AND #03H 2582 S000AD2 3E 83 MULT #003H 2583 S000AD4 D0 INC R0 2584 S000AD5 1F TO R15 2585 S000AD6 5F ADD R15 2586 S000AD7 FF BYTE 0FFH 2587 ; 2588 S000AD8 0B0B' WORD OAMSET_1 ;1 CHAR SET 2589 S000ADA F0 HEX F0 ;[ IWT R0,#CEXSTNO ] 2590 S000ADB 0B85' WORD OAMSET_2 ;SUPER OAMEMU SET 2591 S000ADD 3E HEX 3E ;[ SMS R1,REG1 ] 2592 S000ADE 0C70' WORD OAMSET_3 ;NOT SET 2593 S000AE0 F0 HEX F0 ;[ IWT R0,#CEXMOD2+1 ] 2594 S000AE1 0C93' WORD OAMSET_4 ;NOT SET 2595 S000AE3 3E HEX 3E ;[ SMS R1,REG1 ] 2596 ; 2597 OAMSET30 2598 S000AE4 DA INC R10 ;NEXT TEKI INDEX 2599 S000AE5 DA INC R10 2600 S000AE6 DA INC R10 2601 S000AE7 3C LOOP 2602 S000AE8 DA INC R10 2603 ; 2604 S000AE9 DB INC R11 2605 S000AEA 3D A0 8D LMS R0,CPLYUSN ;(R0) <-- player OAM pri. 2606 S000AED 6B SUB R11 2607 S000AEE 09 0C' BEQ OAMSET40 2608 S000AF0 BB FROM R11 2609 ; 2610 S000AF1 3E 68 SUB #008H 2611 S000AF3 0D 05' BCS OAMSET_RTS ;OAM SET END ? 2612 S000AF5 01 NOP 2613 ; 2614 S000AF6 FF 0A8C' IWT R15,#OAMSET10+1 2615 S000AF9 AC HEX AC ;[ IBT R12,#CENNO+CEXNO ] 2616 ; 2617 OAMSET_RTS 2618 ;;;; SUB R0 ;<<< end >>> 2619 S000AFA 00 STOP 2620 S000AFB 01 NOP 2621 ; 2622 OAMSET40 2623 S000AFC 3D A8 49 LMS R8,COAMIDX 2624 S000AFF F0 00A0 IWT R0,#020*8 2625 S000B02 58 ADD R8 2626 S000B03 90 SBK ;[ SMS R0,COAMIDX ] COAMIDX + 20*8 2627 S000B04 3E A8 8C SMS R8,CPLOAML ;OAMIDX --> PLOAML 2628 ; 2629 S000B07 FF 0A8C' IWT R15,#OAMSET10+1 2630 S000B0A AC HEX AC ;[ IBT R12,#CENNO+CEXNO ] 2631 ; 2632 ;------------------------------------------------------------------------ 2633 OAMSET_1 2634 S000B0B 1320 WORD CEXSTNO ;[ IWT R0,#CEXSTNO ] 2635 ; 2636 S000B0D 5A ADD R10 2637 S000B0E 40 LDW (R0) 2638 S000B0F 50 ADD R0 ;EXMY NO * 2 vvv******* warn :value out of range 2639 S000B10 FE 0000 IWT R14,#ENOBJ_DATA 2640 S000B13 1E TO R14 2641 S000B14 5E ADD R14 2642 OAMSET_1_S 2643 S000B15 EF GETB 2644 S000B16 DE INC R14 2645 ; 2646 S000B17 F6 1002 IWT R6,#CEXCLOR ;ATR SET 2647 S000B1A 26 WITH R6 2648 S000B1B 5A ADD R10 2649 S000B1C 16 TO R6 2650 S000B1D 46 LDW (R6) 2651 ; 2652 S000B1E 3D EF GETBH 2653 S000B20 59 ADD R9 2654 S000B21 1E TO R14 2655 S000B22 59 ADD R9 2656 ; 2657 S000B23 F0 13C0 IWT R0,#CEXMUKI 2658 S000B26 5A ADD R10 2659 S000B27 3D 40 LDB (R0) 2660 S000B29 50 ADD R0 2661 S000B2A 50 ADD R0 2662 S000B2B 3E 88 MULT #008H 2663 S000B2D 3D C6 XOR R6 2664 S000B2F 16 TO R6 2665 S000B30 4D SWAP 2666 ; 2667 S000B31 26 WITH R6 2668 S000B32 3E EF GETBL 2669 S000B34 DE INC R14 2670 ; 2671 S000B35 F0 10A0 IWT R0,#CEXEMU0 ;DATA SET 2672 S000B38 5A ADD R10 2673 S000B39 3D 40 LDB (R0) 2674 S000B3B 17 TO R7 2675 S000B3C 4D SWAP 2676 ; 2677 S000B3D EF GETB 2678 S000B3E 20 14 MOVE R4,R0 2679 S000B40 F9 00F1 IWT R9,#11110001B 2680 S000B43 79 AND R9 2681 S000B44 4D SWAP 2682 S000B45 16 TO R6 2683 S000B46 3D C6 XOR R6 2684 ; 2685 S000B48 A9 00 IBT R9,#0 ;X Y POS ADD CLR 2686 ; 2687 S000B4A B4 FROM R4 2688 S000B4B 3E 72 AND #002H 2689 S000B4D 08 03' BNE OMET_110 ;big size ? ( yes:OMET_110 ) 2690 S000B4F 01 NOP 2691 ; 2692 S000B50 A9 04 IBT R9,#004H ;X Y POS ADD 2693 OMET_110 2694 S000B52 17 TO R7 ;SB SET 2695 S000B53 3D C7 XOR R7 2696 ; 2697 S000B55 F0 1640 IWT R0,#CEXDSXL ;X POS 2698 S000B58 18 TO R8 2699 S000B59 5A ADD R10 2700 S000B5A 48 LDW (R8) 2701 S000B5B 14 TO R4 2702 S000B5C 59 ADD R9 2703 ; 2704 S000B5D D8 INC R8 ;Y POS 2705 S000B5E D8 INC R8 2706 S000B5F 48 LDW (R8) 2707 S000B60 15 TO R5 2708 S000B61 59 ADD R9 2709 ; 2710 S000B62 3D A8 49 LMS R8,COAMIDX ;OAMIDX --> ENOAML 2711 S000B65 F0 1322 IWT R0,#CEXOAML 2712 S000B68 5A ADD R10 2713 S000B69 B8 FROM R8 2714 S000B6A 30 STW (R0) 2715 ; 2716 S000B6B B4 FROM R4 ;X SET 2717 S000B6C 38 STW (R8) 2718 S000B6D D8 INC R8 2719 S000B6E D8 INC R8 2720 S000B6F B5 FROM R5 ;Y SET 2721 S000B70 38 STW (R8) 2722 S000B71 D8 INC R8 2723 S000B72 D8 INC R8 2724 S000B73 3D A0 00 LMS R0,CWORK0 ;(R0) <-- キャラクターバンク 2725 S000B76 56 ADD R6 2726 S000B77 38 STW (R8) ;ATR SET 2727 S000B78 D8 INC R8 2728 S000B79 D8 INC R8 2729 S000B7A B7 FROM R7 2730 S000B7B 38 STW (R8) 2731 S000B7C D8 INC R8 2732 S000B7D D8 INC R8 2733 ; 2734 S000B7E 3E A8 49 SMS R8,COAMIDX 2735 ; 2736 S000B81 FF 0AE5' IWT R15,#OAMSET30+1 2737 S000B84 DA INC R10 ;[ next ] 2738 ; 2739 ;------------------------------------------------------------------------ 2740 OAMSET_2 2741 S000B85 AC 2C BYTE 0ACH,(REG12/2) ;[ SMS R12,REG1 ] 2742 ; 2743 S000B87 F0 1320 IWT R0,#CEXSTNO ;EXMY NO * 2 2744 S000B8A 5A ADD R10 2745 S000B8B 40 LDW (R0) 2746 S000B8C 50 ADD R0 vvv******* warn :value out of range 2747 S000B8D FE 048A IWT R14,#ESPCAD 2748 S000B90 1E TO R14 2749 S000B91 5E ADD R14 2750 ; 2751 S000B92 F0 1001 IWT R0,#CEXMOD2+1 ;(EXMOD0 & 1F) * 8 2752 S000B95 5A ADD R10 2753 S000B96 3D 40 LDB (R0) 2754 S000B98 F8 00F8 IWT R8,#01FH*8 2755 S000B9B 78 AND R8 2756 OAMSET_2_SS 2757 S000B9C 03 LSR ;1/8 2758 S000B9D 03 LSR 2759 S000B9E 03 LSR 2760 S000B9F 20 1C MOVE R12,R0 ;OBJ KAZU 2761 ; 2762 S000BA1 18 TO R8 ;ADDR L GET 2763 S000BA2 EF GETB 2764 S000BA3 DE INC R14 2765 ; 2766 S000BA4 3F 85 UMULT #5 ;number of OBJ * 5 2767 S000BA6 3D 89 UMULT R9 ;(EXMOD0 & 1F) * 5 * EXCHPT 2768 ; 2769 S000BA8 28 WITH R8 ;ADDR H GET 2770 S000BA9 3D EF GETBH 2771 S000BAB 1E TO R14 2772 S000BAC 58 ADD R8 2773 ; 2774 OAMSET_2_S 2775 S000BAD 3E A1 21 SMS R1,REG1 2776 S000BB0 3E A2 22 SMS R2,REG2 2777 S000BB3 3E AA 2A SMS R10,REG10 2778 S000BB6 3E AD 2D SMS R13,REG13 2779 S000BB9 F0 0AE4' IWT R0,#OAMSET30 2780 S000BBC 3E A0 30 SMS R0,RTS0 ;(RTS0) <-- return address set 2781 ; 2782 S000BBF F0 1002 IWT R0,#CEXCLOR ;ATR SET 2783 S000BC2 5A ADD R10 2784 S000BC3 13 TO R3 2785 S000BC4 3D 40 LDB (R0) 2786 S000BC6 F0 13C0 IWT R0,#CEXMUKI 2787 S000BC9 5A ADD R10 2788 S000BCA 3D 40 LDB (R0) 2789 S000BCC 50 ADD R0 2790 S000BCD 50 ADD R0 2791 S000BCE 3E 88 MULT #008H 2792 S000BD0 3D C3 XOR R3 2793 S000BD2 13 TO R3 2794 S000BD3 4D SWAP 2795 ; 2796 S000BD4 3D A4 49 LMS R4,COAMIDX ;OAMIDX --> ENOAML 2797 S000BD7 F0 1322 IWT R0,#CEXOAML 2798 S000BDA 5A ADD R10 2799 S000BDB B4 FROM R4 2800 S000BDC 30 STW (R0) 2801 ; 2802 S000BDD F0 10A0 IWT R0,#CEXEMU0 ;DATA SET 2803 S000BE0 5A ADD R10 2804 S000BE1 3D 40 LDB (R0) 2805 S000BE3 1D TO R13 2806 S000BE4 4D SWAP 2807 ; 2808 EMUOAMST 2809 S000BE5 A0 3C IBT R0,#(CEXNO-1)*4 2810 S000BE7 6A SUB R10 2811 S000BE8 0D 0D' BCS OMET_2FF ;敵？ ( no:OMET_2FF ) 2812 S000BEA 60 SUB R0 ;[ IBT R0,#1111111111111111B+1 ] 2813 ; 2814 S000BEB F0 1D56 IWT R0,#CENCOLD-CEXNO*4 2815 S000BEE 5A ADD R10 2816 S000BEF 40 LDW (R0) 2817 S000BF0 E0 DEC R0 2818 S000BF1 0B 04' BMI OMET_2FF ;凍ってる？ ( no:OMET_2FF ) 2819 S000BF3 60 SUB R0 ;[ IBT R0,#1111111111111111B+1 ] 2820 ; 2821 S000BF4 F0 F200 IWT R0,#1111000111111111B+1 2822 OMET_2FF 2823 S000BF7 E0 DEC R0 2824 S000BF8 3E A0 27 SMS R0,REG7 2825 ; 2826 S000BFB F0 1640 IWT R0,#CEXDSXL ;X POS 2827 S000BFE 5A ADD R10 2828 S000BFF 11 TO R1 2829 S000C00 40 LDW (R0) 2830 ; 2831 S000C01 D0 INC R0 2832 S000C02 D0 INC R0 2833 S000C03 12 TO R2 ;Y POS 2834 S000C04 40 LDW (R0) 2835 ; 2836 S000C05 2D 1A MOVE R10,R13 2837 S000C07 2F 1D MOVE R13,R15 ; loop address set 2838 ; 2839 OMET_200 2840 S000C09 3F EF GETBS 2841 S000C0B DE INC R14 2842 ; 2843 S000C0C F9 4000 IWT R9,#4000H ;H flip check data 2844 S000C0F 29 WITH R9 2845 S000C10 73 AND R3 2846 S000C11 09 05' BEQ OMET_210 ;H frip ? [ no:OMET_210 ] 2847 S000C13 01 NOP ;[ * (Z)=1: IBT R9,#0 ] 2848 ; 2849 S000C14 4F NOT 2850 S000C15 D0 INC R0 2851 S000C16 A9 08 IBT R9,#008H 2852 OMET_210 2853 S000C18 15 TO R5 2854 S000C19 51 ADD R1 ; r5 <- x position 2855 ; 2856 S000C1A 3F EF GETBS 2857 S000C1C DE INC R14 2858 ; 2859 S000C1D A8 00 IBT R8,#00H ;V flip check data 2860 S000C1F 23 B3 MOVES R3,R3 2861 S000C21 0A 05' BPL OMET_220 ;V frip ? [ no:OMET_220 ] 2862 S000C23 01 NOP 2863 ; 2864 S000C24 4F NOT 2865 S000C25 D0 INC R0 2866 S000C26 A8 08 IBT R8,#008H 2867 OMET_220 2868 S000C28 16 TO R6 2869 S000C29 52 ADD R2 ; r6 <- y position 2870 ; 2871 S000C2A EF GETB 2872 S000C2B DE INC R14 2873 ; 2874 S000C2C 3D A7 27 LMS R7,REG7 2875 ; 2876 S000C2F 3D EF GETBH 2877 S000C31 DE INC R14 2878 ; 2879 S000C32 77 AND R7 2880 S000C33 17 TO R7 2881 S000C34 3D C3 XOR R3 ; R7 <- atoribute & chara No. 2882 ; 2883 S000C36 EF GETB ; oamsb 2884 S000C37 3E 72 AND #02H 2885 S000C39 08 05' BNE OMET_230 2886 S000C3B 01 NOP 2887 ; 2888 S000C3C 25 WITH R5 2889 S000C3D 59 ADD R9 2890 S000C3E 26 WITH R6 2891 S000C3F 58 ADD R8 2892 OMET_230 2893 S000C40 3D EF GETBH ;(R0) <-- sub,data 2894 S000C42 DE INC R14 2895 ; 2896 S000C43 B5 FROM R5 2897 S000C44 34 STW (R4) ; x position 2898 S000C45 D4 INC R4 2899 S000C46 D4 INC R4 2900 ; 2901 S000C47 15 TO R5 ; r5 <- sub,data 2902 S000C48 3D CA XOR R10 2903 ; 2904 S000C4A B6 FROM R6 2905 S000C4B 34 STW (R4) ; y position 2906 S000C4C D4 INC R4 2907 S000C4D D4 INC R4 2908 S000C4E 3D A0 00 LMS R0,CWORK0 ;(R0) <-- キャラクターバンク 2909 S000C51 57 ADD R7 2910 S000C52 34 STW (R4) ; chara No., atoribute 2911 S000C53 D4 INC R4 2912 S000C54 D4 INC R4 2913 S000C55 B5 FROM R5 2914 S000C56 34 STW (R4) ; oamsb,data 2915 S000C57 D4 INC R4 2916 ; 2917 S000C58 3C LOOP 2918 S000C59 D4 INC R4 2919 ; 2920 S000C5A 3E A4 49 SMS R4,COAMIDX 2921 ; 2922 S000C5D 3D A1 21 LMS R1,REG1 2923 S000C60 3D A2 22 LMS R2,REG2 2924 S000C63 3D AA 2A LMS R10,REG10 2925 S000C66 3D AC 2C LMS R12,REG12 2926 S000C69 3D AD 2D LMS R13,REG13 2927 ; 2928 S000C6C 3D AF 30 LMS R15,RTS0 ;return !! 2929 S000C6F 01 NOP 2930 ; 2931 ;------------------------------------------------------------------------ 2932 OAMSET_3 2933 S000C70 1001 WORD CEXMOD2+1 ;[ IWT R0,#CEXMOD2+1 ] OAM KAZU 2934 ; 2935 S000C72 5A ADD R10 2936 S000C73 40 LDW (R0) 2937 S000C74 F7 00F8 IWT R7,#01FH*08H 2938 S000C77 77 AND R7 2939 ; 2940 S000C78 3D A8 49 LMS R8,COAMIDX 2941 S000C7B 58 ADD R8 ;OAMIDX NEXT 2942 S000C7C 90 SBK ;[ SMS R0,COAMIDX ] 2943 ; 2944 S000C7D F0 1322 IWT R0,#CEXOAML 2945 S000C80 5A ADD R10 2946 S000C81 B8 FROM R8 2947 S000C82 30 STW (R0) ;OAMIDX --> ENOAML 2948 ; 2949 S000C83 FF 0AE5' IWT R15,#OAMSET30+1 ;[ JMP OAMSET30+1 ] 2950 S000C86 DA INC R10 ;[ next ] 2951 ; 2952 ;------------------------------------------------------------------------ 2953 ;- 画面外チェックサイズデータ - 2954 ;------------------------------------------------------------------------ 2955 000C87 ENCLEAR_SIZE EQU $ 2956 ; [X size] [Y size] 2957 S000C87 0060 0060 WORD 0060H,0060H ;[1] 2958 S000C8B 0090 0060 WORD 0090H,0060H ;[2] 2959 S000C8F 0090 00A0 WORD 0090H,00A0H ;[3] for BG3 2960 ; 2961 ;------------------------------------------------------------------------ 2962 OAMSET_4 2963 S000C93 AC 2C BYTE 0ACH,(REG12/2) ;[ SMS R12,REG1 ] 2964 ; 2965 S000C95 F0 1320 IWT R0,#CEXSTNO ;EXMY NO * 2 2966 S000C98 5A ADD R10 2967 S000C99 40 LDW (R0) 2968 S000C9A 50 ADD R0 vvv******* warn :value out of range 2969 S000C9B FE 048A IWT R14,#ESPCAD 2970 S000C9E 1E TO R14 2971 S000C9F 5E ADD R14 2972 ; 2973 S000CA0 F0 1001 IWT R0,#CEXMOD2+1 ;(EXMOD0 & 1F) * 8 2974 S000CA3 5A ADD R10 2975 S000CA4 3D 40 LDB (R0) 2976 S000CA6 F8 00F8 IWT R8,#01FH*8 2977 S000CA9 78 AND R8 2978 S000CAA F8 0100 IWT R8,#020H*8 2979 mDJMP_X OAMSET_2_SS 2979+ S000CAD FF 0B9C' IWT R15, #OAMSET_2_SS 2980 S000CB0 58 ADD R8 2981 ; 2982 ;************************************************************************ 2983 ;* 敵 特別ＯＡＭセット * 2984 ;* in : * 2985 ;* (R10) <-- 敵のインデックス * 2986 ;* (R0) <-- ＯＡＭセットデータアドレス * 2987 ;* (R14) <-- ” * 2988 ;************************************************************************ 2989 ; 2990 000CB1 ENOAMSET_SP EQU $ 2991 S000CB1 3F DF ROMB 2992 ; 2993 S000CB3 F0 1322 IWT R0,#CEXOAML 2994 S000CB6 5A ADD R10 2995 S000CB7 40 LDW (R0) 2996 S000CB8 24 B0 MOVES R4,R0 2997 S000CBA 0A 03' BPL ENOAMSET_SP_000 ;ＯＡＭ確保？ ( yes:ENOAMSET_SP_000 ) 2998 S000CBC 01 NOP 2999 ; 3000 S000CBD 00 STOP 3001 S000CBE 01 NOP 3002 ; 3003 ENOAMSET_SP_000 3004 S000CBF F0 13C2 IWT R0,#CEXCHPT ;パターンＮｏ． 3005 S000CC2 5A ADD R10 3006 S000CC3 3D 40 LDB (R0) 3007 S000CC5 50 ADD R0 3008 S000CC6 1E TO R14 3009 S000CC7 5E ADD R14 3010 ; 3011 S000CC8 EF GETB 3012 S000CC9 DE INC R14 3013 S000CCA 1E TO R14 ;(R14) <-- セットパターンＯＡＭセットデータアドレス 3014 S000CCB 3D EF GETBH 3015 ; 3016 S000CCD F0 1002 IWT R0,#CEXCLOR ;ATR SET 3017 S000CD0 5A ADD R10 3018 S000CD1 13 TO R3 3019 S000CD2 3D 40 LDB (R0) 3020 S000CD4 F0 13C0 IWT R0,#CEXMUKI 3021 S000CD7 5A ADD R10 3022 S000CD8 3D 40 LDB (R0) 3023 S000CDA 50 ADD R0 3024 S000CDB 50 ADD R0 3025 S000CDC 3E 88 MULT #008H 3026 S000CDE 3D C3 XOR R3 3027 S000CE0 13 TO R3 3028 S000CE1 4D SWAP 3029 ; 3030 S000CE2 F0 1640 IWT R0,#CEXDSXL ;X POS 3031 S000CE5 5A ADD R10 3032 S000CE6 11 TO R1 3033 S000CE7 40 LDW (R0) 3034 ; 3035 S000CE8 D0 INC R0 3036 S000CE9 D0 INC R0 3037 S000CEA 12 TO R2 ;Y POS 3038 S000CEB 40 LDW (R0) 3039 ; 3040 S000CEC F0 1140 IWT R0,#CEXCHRB 3041 S000CEF 5A ADD R10 3042 S000CF0 3D 40 LDB (R0) 3043 S000CF2 3E 88 MULT #8 3044 S000CF4 3E A0 00 SMS R0,CWORK ;キャラクターバンク 3045 ; 3046 S000CF7 F0 1001 IWT R0,#CEXMOD2+1 ;(EXMOD0 & 1F) * 8 3047 S000CFA 5A ADD R10 3048 S000CFB 40 LDW (R0) 3049 S000CFC F8 00F8 IWT R8,#01FH*8 3050 S000CFF 78 AND R8 3051 S000D00 03 LSR ;1/8 3052 S000D01 03 LSR 3053 S000D02 1C TO R12 ;ＯＡＭ使用数 3054 S000D03 03 LSR 3055 ; 3056 S000D04 F0 10A0 IWT R0,#CEXEMU0 ;DATA SET 3057 S000D07 5A ADD R10 3058 S000D08 3D 40 LDB (R0) 3059 S000D0A 1A TO R10 3060 S000D0B 4D SWAP 3061 ; 3062 S000D0C 02 CACHE 3063 ; 3064 S000D0D 2F 1D MOVE R13,R15 ; loop address set 3065 ENOAMSET_SP_010 3066 S000D0F 3F EF GETBS 3067 S000D11 DE INC R14 3068 ; 3069 S000D12 F9 4000 IWT R9,#4000H ;H flip check data 3070 S000D15 29 WITH R9 3071 S000D16 73 AND R3 3072 S000D17 09 05' BEQ ENOAMSET_SP_020 ;H frip ? [ no:ENOAMSET_SP_020 ] 3073 S000D19 01 NOP ;[ * (Z)=1: IBT R9,#0 ] 3074 ; 3075 S000D1A 4F NOT 3076 S000D1B D0 INC R0 3077 S000D1C A9 08 IBT R9,#008H 3078 ENOAMSET_SP_020 3079 S000D1E 15 TO R5 3080 S000D1F 51 ADD R1 ; r5 <- x position 3081 ; 3082 S000D20 3F EF GETBS 3083 S000D22 DE INC R14 3084 ; 3085 S000D23 A8 00 IBT R8,#00H ;V flip check data 3086 S000D25 23 B3 MOVES R3,R3 3087 S000D27 0A 05' BPL ENOAMSET_SP_030 ;V frip ? [ no:ENOAMSET_SP_030 ] 3088 S000D29 01 NOP 3089 ; 3090 S000D2A 4F NOT 3091 S000D2B D0 INC R0 3092 S000D2C A8 08 IBT R8,#008H 3093 ENOAMSET_SP_030 3094 S000D2E 16 TO R6 3095 S000D2F 52 ADD R2 ; r6 <- y position 3096 ; 3097 S000D30 EF GETB 3098 S000D31 DE INC R14 3099 S000D32 3D EF GETBH 3100 S000D34 DE INC R14 3101 ; 3102 S000D35 17 TO R7 3103 S000D36 3D C3 XOR R3 ; R7 <- atoribute & chara No. 3104 ; 3105 S000D38 EF GETB ; oamsb 3106 S000D39 3E 72 AND #02H 3107 S000D3B 08 05' BNE ENOAMSET_SP_040 3108 S000D3D 01 NOP 3109 ; 3110 S000D3E 25 WITH R5 3111 S000D3F 59 ADD R9 3112 S000D40 26 WITH R6 3113 S000D41 58 ADD R8 3114 ENOAMSET_SP_040 3115 S000D42 3D EF GETBH ;(R0) <-- sub,data 3116 S000D44 DE INC R14 3117 ; 3118 S000D45 B5 FROM R5 3119 S000D46 34 STW (R4) ; x position 3120 S000D47 D4 INC R4 3121 S000D48 D4 INC R4 3122 ; 3123 S000D49 15 TO R5 ; r5 <- sub,data 3124 S000D4A 3D CA XOR R10 3125 ; 3126 S000D4C B6 FROM R6 3127 S000D4D 34 STW (R4) ; y position 3128 S000D4E D4 INC R4 3129 S000D4F D4 INC R4 3130 S000D50 3D A0 00 LMS R0,CWORK0 ;(R0) <-- キャラクターバンク 3131 S000D53 57 ADD R7 3132 S000D54 34 STW (R4) ; chara No., atoribute 3133 S000D55 D4 INC R4 3134 S000D56 D4 INC R4 3135 S000D57 B5 FROM R5 3136 S000D58 34 STW (R4) ; oamsb,data 3137 S000D59 D4 INC R4 3138 ; 3139 S000D5A 3C LOOP 3140 S000D5B D4 INC R4 3141 ; 3142 S000D5C 00 STOP 3143 S000D5D 01 NOP 3144 ; 3145 ;************************************************************************ 3146 ;* enemy search * 3147 ;* in : (CWK0) <-- my enemy index * 3148 ;* out : (CWK0) <-- search enemy index * 3149 ;* ( < 0 : not search ) * 3150 ;* (CWK1) <-- search enemy X wide * 3151 ;* (CWK2) <-- " Y " * 3152 ;************************************************************************ 3153 ; 3154 000D5E ENSRCH EQU $ 3155 S000D5E AC 18 IBT R12,#CENNO 3156 S000D60 3D A2 00 LMS R2,CWORK0 3157 S000D63 B2 FROM R2 3158 S000D64 03 LSR 3159 S000D65 03 LSR 3160 S000D66 BC FROM R12 3161 S000D67 11 TO R1 ;(R1) <-- (my enemy index)/4+1 3162 S000D68 60 SUB R0 3163 ; 3164 S000D69 F4 1CD6 IWT R4,#CECENTX ;(R4) <-- enemy center pos index 3165 S000D6C B2 FROM R2 3166 S000D6D 54 ADD R4 3167 S000D6E 12 TO R2 ;(R2) <-- my enemy center X pos 3168 S000D6F 40 LDW (R0) 3169 S000D70 3E 52 ADD #2 3170 S000D72 13 TO R3 ;(R3) <-- my enemy center Y pos 3171 S000D73 40 LDW (R0) 3172 ; 3173 S000D74 F5 0F00 IWT R5,#CENMODE ;(R5) <-- enemy mode index 3174 S000D77 A6 10 IBT R6,#CEMOVE ;(R6) <-- " move no. 3175 S000D79 F7 0FA2 IWT R7,#CENMOD1 ;(R7) <-- " cross ok flag index 3176 S000D7C F8 6000 IWT R8,#0110000000000000B ;(R8) <-- " AND data 3177 S000D7F A9 FF IBT R9,#0FFH ;[ IWT R9,#0FFFFH ] (R9) <-- " wide 3178 S000D81 3E A9 00 SMS R9,CWORK0 ;(CWK0) <-- search enemy index 3179 ; 3180 S000D84 02 CACHE 3181 ; 3182 S000D85 FD 0D89' IWT R13,#ESR010+1 3183 ESR010 3184 S000D88 B1 FROM R1 3185 S000D89 6C SUB R12 3186 S000D8A 09 33' BEQ ESR050 ;my index ? ( yes:ESR050 ) 3187 S000D8C 01 NOP 3188 ; 3189 S000D8D 3D 45 LDB (R5) 3190 S000D8F 66 SUB R6 3191 S000D90 08 2D' BNE ESR050 ;enemy cross check ok ? ( no:ESR050 ) 3192 S000D92 01 NOP 3193 ; 3194 S000D93 47 LDW (R7) 3195 S000D94 78 AND R8 3196 S000D95 08 28' BNE ESR050 ; " 3197 S000D97 01 NOP 3198 ; 3199 S000D98 44 LDW (R4) 3200 S000D99 62 SUB R2 3201 S000D9A 20 1B MOVE R11,R0 ;(R11) <-- X wide 3202 S000D9C 0A 03' BPL ESR020 3203 S000D9E 01 NOP 3204 ; 3205 S000D9F 4F NOT 3206 S000DA0 D0 INC R0 3207 ESR020 3208 S000DA1 20 1A MOVE R10,R0 ;(R10) <-- ABS( X wide ) 3209 S000DA3 B4 FROM R4 3210 S000DA4 3E 52 ADD #2 3211 S000DA6 40 LDW (R0) 3212 S000DA7 63 SUB R3 3213 S000DA8 20 1E MOVE R14,R0 ;(R14) <-- Y wide 3214 S000DAA 0A 03' BPL ESR030 3215 S000DAC 01 NOP 3216 ; 3217 S000DAD 4F NOT 3218 S000DAE D0 INC R0 3219 ESR030 3220 S000DAF 5A ADD R10 3221 S000DB0 69 SUB R9 3222 S000DB1 0D 0C' BCS ESR050 ;search enemy change ? ( no:ESR050 ) 3223 S000DB3 59 ADD R9 3224 ; 3225 S000DB4 20 19 MOVE R9,R0 ;(R9) <-- " wide 3226 S000DB6 3E AC 00 SMS R12,CWORK0 ;(CWK0) <-- search enemy index 3227 S000DB9 3E AB 01 SMS R11,CWORK1 ;(CWK1) <-- " X wide 3228 S000DBC 3E AE 02 SMS R14,CWORK2 ;(CWK2) <-- " Y " 3229 ; 3230 ESR050 3231 S000DBF A0 04 IBT R0,#4 3232 S000DC1 15 TO R5 3233 S000DC2 55 ADD R5 3234 S000DC3 17 TO R7 3235 S000DC4 57 ADD R7 3236 S000DC5 14 TO R4 3237 S000DC6 54 ADD R4 3238 S000DC7 3C LOOP 3239 S000DC8 B1 FROM R1 3240 ; 3241 S000DC9 3D A1 00 LMS R1,CWORK0 ;((search enemy index)-1)*4 3242 S000DCC D1 INC R1 3243 S000DCD 09 09' BEQ ESR060 ;enemy not search ? ( yes:ESR060 ) 3244 S000DCF E1 DEC R1 3245 ; 3246 S000DD0 A0 18 IBT R0,#CENNO 3247 S000DD2 61 SUB R1 3248 S000DD3 50 ADD R0 3249 S000DD4 50 ADD R0 3250 S000DD5 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- search enemy index 3251 ESR060 3252 S000DD8 00 STOP 3253 S000DD9 01 NOP 3254 ; 3255 ;************************************************************************ 3256 ;* item search * 3257 ;* in : (R1) <-- my index * 3258 ;* out : (R1) <-- search index ( <0:not search ) * * 3259 ;************************************************************************ 3260 ; 3261 000DDA M_ITEM_SEARCH EQU $ 3262 S000DDA F2 0F00 IWT R2,#CENMODE ;(R2) <-- enemy mode pointer 3263 S000DDD F3 1CD6 IWT R3,#CECENTX ;(R3) <-- " center X pos pointer 3264 S000DE0 F4 1CD8 IWT R4,#CECENTY ;(R4) <-- " Y " 3265 S000DE3 F5 0FA2 IWT R5,#CENMOD1 ;(R5) <-- item check data pointer 3266 ; 3267 S000DE6 B3 FROM R3 3268 S000DE7 51 ADD R1 3269 S000DE8 16 TO R6 ;(R6) <-- my center X pos 3270 S000DE9 40 LDW (R0) 3271 S000DEA B4 FROM R4 3272 S000DEB 51 ADD R1 3273 S000DEC 17 TO R7 ;(R7) <-- my center Y pos 3274 S000DED 40 LDW (R0) 3275 S000DEE A8 FF IBT R8,#0FFH ;(R8) <-- initial min wide 3276 S000DF0 28 19 MOVE R9,R8 ;(R9) <-- " enemy index 3277 S000DF2 FB 6000 IWT R11,#0110000000000000B 3278 ; 3279 S000DF5 B1 FROM R1 3280 S000DF6 03 LSR 3281 S000DF7 03 LSR 3282 S000DF8 AC 18 IBT R12,#CENNO 3283 S000DFA BC FROM R12 3284 S000DFB 11 TO R1 ;(R1) <-- EOR 1/4 index 3285 S000DFC 60 SUB R0 3286 ; 3287 S000DFD 02 CACHE 3288 ; 3289 S000DFE 2F 1D MOVE R13,R15 3290 ITSR010 3291 S000E00 BC FROM R12 3292 S000E01 61 SUB R1 3293 S000E02 09 27' BEQ ITSR050 ;my index ? ( yes:ITSR050 ) 3294 S000E04 01 NOP 3295 ; 3296 S000E05 3D 42 LDB (R2) 3297 S000E07 3E 6E SUB #CEFAIL 3298 S000E09 0C 20' BCC ITSR050 ; enmy on ? [ no:ITSR050 ] 3299 S000E0B 01 NOP 3300 ; 3301 S000E0C 45 LDW (R5) 3302 S000E0D 7B AND R11 3303 S000E0E 6B SUB R11 3304 S000E0F 08 1A' BNE ITSR050 ;item ? ( no:ITSR050 ) 3305 S000E11 01 NOP 3306 ; 3307 S000E12 43 LDW (R3) 3308 S000E13 66 SUB R6 3309 S000E14 0A 03' BPL ITSR020 3310 S000E16 01 NOP 3311 ; 3312 S000E17 4F NOT 3313 S000E18 D0 INC R0 3314 ITSR020 3315 S000E19 20 1A MOVE R10,R0 ;(R10) <-- X pos wide 3316 S000E1B 44 LDW (R4) 3317 S000E1C 67 SUB R7 3318 S000E1D 0A 03' BPL ITSR030 3319 S000E1F 01 NOP 3320 ; 3321 S000E20 4F NOT 3322 S000E21 D0 INC R0 3323 ITSR030 3324 S000E22 5A ADD R10 3325 S000E23 68 SUB R8 3326 S000E24 0D 05' BCS ITSR050 ;new min wide ? ( no:IRSR050 ) 3327 S000E26 58 ADD R8 3328 ; 3329 S000E27 20 18 MOVE R8,R0 ;(R8) <-- new min wide 3330 S000E29 2C 19 MOVE R9,R12 ;(R9) <-- " enemy index 3331 ITSR050 3332 S000E2B A0 04 IBT R0,#04H 3333 S000E2D 12 TO R2 3334 S000E2E 52 ADD R2 3335 S000E2F 13 TO R3 3336 S000E30 53 ADD R3 3337 S000E31 14 TO R4 3338 S000E32 54 ADD R4 3339 S000E33 15 TO R5 3340 S000E34 55 ADD R5 3341 ; 3342 S000E35 3C LOOP 3343 S000E36 BC FROM R12 ;[ dummy ] 3344 ; 3345 S000E37 21 B9 MOVES R1,R9 3346 S000E39 0B 07' BMI ITSR060 ;not search ? ( yes:ITSR060 ) 3347 S000E3B 01 NOP 3348 ; 3349 S000E3C A0 18 IBT R0,#CENNO 3350 S000E3E 69 SUB R9 3351 S000E3F 50 ADD R0 3352 S000E40 11 TO R1 3353 S000E41 50 ADD R0 3354 ITSR060 3355 S000E42 00 STOP 3356 S000E43 01 NOP 3357 ; 3358 ;************************************************************************ 3359 ;* "HACHI" search * 3360 ;* in : (R1) <-- my index * 3361 ;* out : (R1) <-- search index ( <0:not search ) * 3362 ;************************************************************************ 3363 ; 3364 000E44 HACHI_SEARCH EQU $ 3365 S000E44 FE 0000" IWT R14,#HACHI ;(R14) <-- "HACHI" no. 3366 3367 S000E47 F2 0F00 IWT R2,#CENMODE ;(R2) <-- enemy mode pointer 3368 S000E4A F3 1CD6 IWT R3,#CECENTX ;(R3) <-- " center X pos pointer 3369 S000E4D F4 1CD8 IWT R4,#CECENTY ;(R4) <-- " Y " 3370 S000E50 F5 1360 IWT R5,#CENMYNO ;(R5) <-- enemy kinds 3371 S000E53 FB 1A38 IWT R11,#CENWRK8 ;(R11) <-- nose flag 3372 ; 3373 S000E56 B3 FROM R3 3374 S000E57 51 ADD R1 3375 S000E58 16 TO R6 ;(R6) <-- my center X pos 3376 S000E59 40 LDW (R0) 3377 S000E5A B4 FROM R4 3378 S000E5B 51 ADD R1 3379 S000E5C 17 TO R7 ;(R7) <-- my center Y pos 3380 S000E5D 40 LDW (R0) 3381 S000E5E A8 FF IBT R8,#0FFH ;(R8) <-- initial min wide 3382 S000E60 28 19 MOVE R9,R8 ;(R9) <-- " enemy index 3383 ; 3384 S000E62 B1 FROM R1 3385 S000E63 03 LSR 3386 S000E64 03 LSR 3387 S000E65 AC 18 IBT R12,#CENNO 3388 S000E67 BC FROM R12 3389 S000E68 11 TO R1 ;(R1) <-- EOR 1/4 index 3390 S000E69 60 SUB R0 3391 ; 3392 S000E6A 02 CACHE 3393 ; 3394 S000E6B 2F 1D MOVE R13,R15 3395 HSR010 3396 S000E6D BC FROM R12 3397 S000E6E 61 SUB R1 3398 S000E6F 09 33' BEQ HSR050 ;my index ? ( yes:HSR050 ) 3399 S000E71 01 NOP 3400 ; 3401 S000E72 3D 42 LDB (R2) 3402 S000E74 3E 68 SUB #CEEATM 3403 S000E76 09 06' BEQ HSR018 3404 S000E78 01 NOP 3405 ; 3406 S000E79 3E 67 SUB #CEFAIL-CEEATM+1 3407 S000E7B 0B 27' BMI HSR050 ; enmy on ? [ no:HSR050 ] 3408 S000E7D 01 NOP 3409 ; 3410 HSR018 3411 S000E7E 45 LDW (R5) 3412 S000E7F 3F 6E CMP R14 3413 S000E81 08 21' BNE HSR050 ;hachi ? ( no:HSR050 ) 3414 S000E83 01 NOP 3415 ; 3416 S000E84 3D 4B LDB (R11) 3417 S000E86 20 B0 MOVES R0,R0 3418 S000E88 08 1A' BNE HSR050 ;nose flag = 0 ? ( no:HSR050 ) 3419 S000E8A 01 NOP 3420 ; 3421 S000E8B 43 LDW (R3) 3422 S000E8C 66 SUB R6 3423 S000E8D 0A 03' BPL HSR020 3424 S000E8F 01 NOP 3425 ; 3426 S000E90 4F NOT 3427 S000E91 D0 INC R0 3428 HSR020 3429 S000E92 20 1A MOVE R10,R0 ;(R10) <-- X pos wide 3430 S000E94 44 LDW (R4) 3431 S000E95 67 SUB R7 3432 S000E96 0A 03' BPL HSR030 3433 S000E98 01 NOP 3434 ; 3435 S000E99 4F NOT 3436 S000E9A D0 INC R0 3437 HSR030 3438 S000E9B 5A ADD R10 3439 S000E9C 68 SUB R8 3440 S000E9D 0D 05' BCS HSR050 ;new min wide ? ( no:HSR050 ) 3441 S000E9F 58 ADD R8 3442 ; 3443 S000EA0 20 18 MOVE R8,R0 ;(R8) <-- new min wide 3444 S000EA2 2C 19 MOVE R9,R12 ;(R9) <-- " enemy index 3445 HSR050 3446 S000EA4 A0 04 IBT R0,#04H 3447 S000EA6 12 TO R2 3448 S000EA7 52 ADD R2 3449 S000EA8 13 TO R3 3450 S000EA9 53 ADD R3 3451 S000EAA 14 TO R4 3452 S000EAB 54 ADD R4 3453 S000EAC 15 TO R5 3454 S000EAD 55 ADD R5 3455 S000EAE 1B TO R11 3456 S000EAF 5B ADD R11 3457 ; 3458 S000EB0 3C LOOP 3459 S000EB1 BC FROM R12 ;[ dummy ] 3460 ; 3461 S000EB2 21 B9 MOVES R1,R9 3462 S000EB4 0B 07' BMI HSR060 ;not search ? ( yes:HSR060 ) 3463 S000EB6 01 NOP 3464 ; 3465 S000EB7 A0 18 IBT R0,#CENNO 3466 S000EB9 69 SUB R9 3467 S000EBA 50 ADD R0 3468 S000EBB 11 TO R1 3469 S000EBC 50 ADD R0 3470 HSR060 3471 S000EBD 00 STOP 3472 S000EBE 01 NOP 3473 ; 3474 ;************************************************************************ 3475 ;* TARGET search * 3476 ;* in : (R1) <-- my index * 3477 ;* (R14)<-- TARGET low enemy no. * 3478 ;* (R11)<-- TARGET high enemy no. +1 * 3479 ;* out : (R1) <-- search index ( <0:not search ) * 3480 ;************************************************************************ 3481 000EBF TARGET_SEARCH EQU $ 3482 S000EBF 2E 1B MOVE R11,R14 3483 S000EC1 DB INC R11 3484 3485 000EC2 TARGET_SEARCH2 EQU $ 3486 S000EC2 F2 0F00 IWT R2,#CENMODE ;(R2) <-- enemy mode pointer 3487 S000EC5 F3 1CD6 IWT R3,#CECENTX ;(R3) <-- " center X pos pointer 3488 S000EC8 F4 1CD8 IWT R4,#CECENTY ;(R4) <-- " Y " 3489 S000ECB F5 1360 IWT R5,#CENMYNO ;(R5) <-- enemy kinds 3490 ; 3491 S000ECE B3 FROM R3 3492 S000ECF 51 ADD R1 3493 S000ED0 16 TO R6 ;(R6) <-- my center X pos 3494 S000ED1 40 LDW (R0) 3495 S000ED2 B4 FROM R4 3496 S000ED3 51 ADD R1 3497 S000ED4 17 TO R7 ;(R7) <-- my center Y pos 3498 S000ED5 40 LDW (R0) 3499 S000ED6 A8 FF IBT R8,#0FFH ;(R8) <-- initial min wide 3500 S000ED8 28 19 MOVE R9,R8 ;(R9) <-- " enemy index 3501 ; 3502 S000EDA B1 FROM R1 3503 S000EDB 03 LSR 3504 S000EDC 03 LSR 3505 S000EDD AC 18 IBT R12,#CENNO 3506 S000EDF BC FROM R12 3507 S000EE0 11 TO R1 ;(R1) <-- EOR 1/4 index 3508 S000EE1 60 SUB R0 3509 ; 3510 S000EE2 02 CACHE 3511 ; 3512 S000EE3 2F 1D MOVE R13,R15 3513 TSR010 3514 S000EE5 BC FROM R12 3515 S000EE6 61 SUB R1 3516 S000EE7 09 31' BEQ TSR050 ;my index ? ( yes:TSR050 ) 3517 S000EE9 01 NOP 3518 ; 3519 S000EEA 3D 42 LDB (R2) 3520 S000EEC 3E 68 SUB #CEEATM 3521 S000EEE 09 06' BEQ TSR018 3522 S000EF0 01 NOP 3523 ; 3524 S000EF1 3E 67 SUB #CEFAIL-CEEATM+1 3525 S000EF3 0B 25' BMI TSR050 ; enmy on ? [ no:TSR050 ] 3526 S000EF5 01 NOP 3527 ; 3528 TSR018 3529 S000EF6 45 LDW (R5) 3530 S000EF7 3F 6E CMP R14 3531 S000EF9 0B 1F' BMI TSR050 ;hachi ? ( no:TSR050 ) 3532 S000EFB 01 NOP 3533 ; 3534 S000EFC 3F 6B CMP R11 3535 S000EFE 0A 1A' BPL TSR050 3536 S000F00 01 NOP 3537 ; 3538 S000F01 43 LDW (R3) 3539 S000F02 66 SUB R6 3540 S000F03 0A 03' BPL TSR020 3541 S000F05 01 NOP 3542 ; 3543 S000F06 4F NOT 3544 S000F07 D0 INC R0 3545 TSR020 3546 S000F08 20 1A MOVE R10,R0 ;(R10) <-- X pos wide 3547 S000F0A 44 LDW (R4) 3548 S000F0B 67 SUB R7 3549 S000F0C 0A 03' BPL TSR030 3550 S000F0E 01 NOP 3551 ; 3552 S000F0F 4F NOT 3553 S000F10 D0 INC R0 3554 TSR030 3555 S000F11 5A ADD R10 3556 S000F12 68 SUB R8 3557 S000F13 0D 05' BCS TSR050 ;new min wide ? ( no:TSR050 ) 3558 S000F15 58 ADD R8 3559 ; 3560 S000F16 20 18 MOVE R8,R0 ;(R8) <-- new min wide 3561 S000F18 2C 19 MOVE R9,R12 ;(R9) <-- " enemy index 3562 TSR050 3563 S000F1A A0 04 IBT R0,#04H 3564 S000F1C 12 TO R2 3565 S000F1D 52 ADD R2 3566 S000F1E 13 TO R3 3567 S000F1F 53 ADD R3 3568 S000F20 14 TO R4 3569 S000F21 54 ADD R4 3570 S000F22 15 TO R5 3571 S000F23 55 ADD R5 3572 ; 3573 S000F24 3C LOOP 3574 S000F25 BC FROM R12 ;[ dummy ] 3575 ; 3576 S000F26 21 B9 MOVES R1,R9 3577 S000F28 0B 07' BMI TSR060 ;not search ? ( yes:TSR060 ) 3578 S000F2A 01 NOP 3579 ; 3580 S000F2B A0 18 IBT R0,#CENNO 3581 S000F2D 69 SUB R9 3582 S000F2E 50 ADD R0 3583 S000F2F 11 TO R1 3584 S000F30 50 ADD R0 3585 TSR060 3586 S000F31 00 STOP 3587 S000F32 01 NOP 3588 ; 3589 ;************************************************************************ 3590 ;* shot enemy search * 3591 ;* in : (R1) <-- my index * 3592 ;* out : (R1) <-- search index ( <0:not search ) * * 3593 ;************************************************************************ 3594 ; 3595 000F33 SHOTENSR EQU $ 3596 S000F33 F2 0F00 IWT R2,#CENMODE ;(R2) <-- enemy mode pointer 3597 S000F36 F3 1CD6 IWT R3,#CECENTX ;(R3) <-- " center X pos pointer 3598 S000F39 F4 1CD8 IWT R4,#CECENTY ;(R4) <-- " Y " 3599 S000F3C F5 1D38 IWT R5,#CENSHOT ;(R5) <-- shot enemy flag pointer 3600 ; 3601 S000F3F B3 FROM R3 3602 S000F40 51 ADD R1 3603 S000F41 16 TO R6 ;(R6) <-- my center X pos 3604 S000F42 40 LDW (R0) 3605 S000F43 B4 FROM R4 3606 S000F44 51 ADD R1 3607 S000F45 17 TO R7 ;(R7) <-- my center Y pos 3608 S000F46 40 LDW (R0) 3609 S000F47 A8 FF IBT R8,#0FFH ;(R8) <-- initial min wide 3610 S000F49 28 19 MOVE R9,R8 ;(R9) <-- " enemy index 3611 ; 3612 S000F4B B1 FROM R1 3613 S000F4C 03 LSR 3614 S000F4D 03 LSR 3615 S000F4E AC 18 IBT R12,#CENNO 3616 S000F50 BC FROM R12 3617 S000F51 11 TO R1 ;(R1) <-- EOR 1/4 index 3618 S000F52 60 SUB R0 3619 ; 3620 S000F53 02 CACHE 3621 ; 3622 S000F54 EC DEC R12 ;[-1] 3623 S000F55 2F 1D MOVE R13,R15 3624 SHTESR010 3625 S000F57 A0 04 IBT R0,#04H 3626 S000F59 12 TO R2 3627 S000F5A 52 ADD R2 3628 S000F5B 13 TO R3 3629 S000F5C 53 ADD R3 3630 S000F5D 14 TO R4 3631 S000F5E 54 ADD R4 3632 S000F5F 15 TO R5 3633 S000F60 55 ADD R5 3634 ; 3635 S000F61 BC FROM R12 3636 S000F62 61 SUB R1 3637 S000F63 09 28' BEQ SHTESR050 ;my index ? ( yes:SHTESR050 ) 3638 S000F65 01 NOP 3639 ; 3640 S000F66 3D 42 LDB (R2) 3641 S000F68 3E 6E SUB #CEFAIL 3642 S000F6A 0C 21' BCC SHTESR050 ; enmy on ? [ no:SHTESR050 ] 3643 S000F6C 01 NOP 3644 ; 3645 S000F6D 45 LDW (R5) 3646 S000F6E 3E 60 SUB #0 3647 S000F70 09 1B' BEQ SHTESR050 ;shot enemy ? ( no:SHTESR050 ) 3648 S000F72 01 NOP 3649 ; 3650 S000F73 43 LDW (R3) 3651 S000F74 66 SUB R6 3652 S000F75 0A 03' BPL SHTESR020 3653 S000F77 01 NOP 3654 ; 3655 S000F78 4F NOT 3656 S000F79 D0 INC R0 3657 SHTESR020 3658 S000F7A 20 1A MOVE R10,R0 ;(R10) <-- X pos wide 3659 S000F7C 44 LDW (R4) 3660 S000F7D 67 SUB R7 3661 S000F7E 0A 03' BPL SHTESR030 3662 S000F80 01 NOP 3663 ; 3664 S000F81 4F NOT 3665 S000F82 D0 INC R0 3666 SHTESR030 3667 S000F83 5A ADD R10 3668 S000F84 3F 68 CMP R8 3669 S000F86 0D 05' BCS SHTESR050 ;new min wide ? ( no:SHTESR050 ) 3670 S000F88 01 NOP 3671 ; 3672 S000F89 20 18 MOVE R8,R0 ;(R8) <-- new min wide 3673 S000F8B 2C 19 MOVE R9,R12 ;(R9) <-- " enemy index 3674 SHTESR050 3675 S000F8D 3C LOOP 3676 S000F8E BC FROM R12 ;[ dummy ] 3677 ; 3678 S000F8F 21 B9 MOVES R1,R9 3679 S000F91 0B 07' BMI SHTESR060 ;not search ? ( yes:SHTESR060 ) 3680 S000F93 01 NOP 3681 ; 3682 S000F94 A0 18 IBT R0,#CENNO 3683 S000F96 69 SUB R9 3684 S000F97 50 ADD R0 3685 S000F98 11 TO R1 3686 S000F99 50 ADD R0 3687 SHTESR060 3688 S000F9A 00 STOP 3689 S000F9B 01 NOP 3690 ; 3691 ;************************************************************************ 3692 ;* * 3693 ;* 敵との衝突チェック（単体) * 3694 ;* in : * 3695 ;* (R1) <-- 自分の敵のインデックス * 3696 ;* * 3697 ;* out : * 3698 ;* (R14) <-- 衝突相手の敵のインデックス * 3699 ;* （<0 : 衝突相手無し） * 3700 ;* (CWK0) <-- Ｘの距離 * 3701 ;* (CWK1) <-- Ｙ ” * 3702 ;* * 3703 ;* 注）何回もチェックする時は、Ｒ１５をＲ１５へ * 3704 ;* セットしてもう一度実行すればいい。 * 3705 ;* * 3706 ;************************************************************************ 3707 ; 3708 000F9C MY_ENCROS EQU $ 3709 S000F9C F9 0F5C IWT R9,#CENMODE+(CENNO-1)*4 ;(R9) <-- 敵のモードポインター 3710 S000F9F FA 0FFF IWT R10,#CENMOD1+1+(CENNO-1)*4 ;(R10) <-- 敵の衝突チェック情報データポインター 3711 S000FA2 FB 1D32 IWT R11,#CECENTX+(CENNO-1)*4 ;(R11) <-- 敵の中心Ｘ座標ポインター 3712 S000FA5 F8 1C12 IWT R8,#CEWIDEX+(CENNO-1)*4 ;(R8) <-- ”Ｘ幅ポインター 3713 S000FA8 A2 04 IBT R2,#4 ;(R2) <-- ポインター加算データ 3714 ; 3715 S000FAA AE 5C IBT R14,#(CENNO-1)*4 ;(R14) <-- 相手の敵のインデックス 3716 S000FAC BE FROM R14 3717 S000FAD 17 TO R7 ;(R7) <-- 自分の敵の逆インデックス 3718 S000FAE 61 SUB R1 3719 ; 3720 S000FAF BB FROM R11 3721 S000FB0 67 SUB R7 3722 S000FB1 13 TO R3 ;(R3) <-- 自分の中心Ｘ座標 3723 S000FB2 40 LDW (R0) 3724 S000FB3 3E 52 ADD #2 3725 S000FB5 14 TO R4 ;(R4) <-- ” Ｙ ” 3726 S000FB6 40 LDW (R0) 3727 S000FB7 B8 FROM R8 3728 S000FB8 67 SUB R7 3729 S000FB9 15 TO R5 ;(R5) <-- ” Ｘ幅 3730 S000FBA 40 LDW (R0) 3731 S000FBB 3E 52 ADD #2 3732 S000FBD 16 TO R6 ;(R6) <-- ” Ｙ” 3733 S000FBE 40 LDW (R0) 3734 ; 3735 S000FBF AC 18 IBT R12,#CENNO 3736 ; 3737 S000FC1 02 CACHE 3738 ; 3739 S000FC2 2F 1D MOVE R13,R15 3740 MY_ENCROS_010 3741 S000FC4 BE FROM R14 3742 S000FC5 61 SUB R1 3743 S000FC6 09 3B' BEQ MY_ENCROS_040 ;自分のインデックス？ ( yes:MY_ENCROS_040 ) 3744 S000FC8 01 NOP 3745 ; 3746 S000FC9 3D 49 LDB (R9) 3747 S000FCB 3E 6E SUB #CEFAIL 3748 S000FCD 0C 34' BCC MY_ENCROS_040 ;敵のモードＯＫ？ ( no:MY_ENCROS_040 ) 3749 S000FCF 01 NOP 3750 ; 3751 S000FD0 3D 4A LDB (R10) 3752 S000FD2 3E 78 AND #08H 3753 S000FD4 09 2D' BEQ MY_ENCROS_040 ;ひっくり返れる？ ( no:MY_ENCROS_040 ) 3754 S000FD6 17 TO R7 ;(R7) <-- 相手の敵のＸ幅 3755 ; 3756 S000FD7 48 LDW (R8) 3757 S000FD8 4B LDW (R11) ;(R0) <-- ” 中心Ｘ座標 3758 S000FD9 63 SUB R3 3759 S000FDA 3E A8 00 SMS R8,CWORK0 ;(CWK1) <-- Ｘの距離 3760 S000FDD 55 ADD R5 3761 S000FDE 57 ADD R7 3762 S000FDF 0B 22' BMI MY_ENCROS_040 ;Ｘ衝突？ ( no:MY_ENCROS_040 ) 3763 S000FE1 67 SUB R7 3764 ; 3765 S000FE2 67 SUB R7 3766 S000FE3 65 SUB R5 3767 S000FE4 65 SUB R5 3768 S000FE5 0A 1B' BPL MY_ENCROS_030 ;Ｘ衝突？ ( no:MY_ENCROS_030 ) 3769 S000FE7 DB INC R11 3770 ; 3771 S000FE8 DB INC R11 3772 S000FE9 D8 INC R8 3773 S000FEA D8 INC R8 3774 ; 3775 S000FEB 17 TO R7 ;(R7) <-- 相手の敵のＹ幅 3776 S000FEC 48 LDW (R8) 3777 S000FED 4B LDW (R11) ;(R0) <-- ” 中心Ｙ座標 3778 S000FEE 64 SUB R4 3779 S000FEF 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- Ｙの距離 3780 S000FF2 56 ADD R6 3781 S000FF3 57 ADD R7 3782 S000FF4 0B 09' BMI MY_ENCROS_020 ;Ｙ衝突？ ( no:MY_ENCROS_020 ) 3783 S000FF6 67 SUB R7 3784 ; 3785 S000FF7 67 SUB R7 3786 S000FF8 66 SUB R6 3787 S000FF9 66 SUB R6 3788 S000FFA 0A 03' BPL MY_ENCROS_020 ;Ｙ衝突？ ( no:MY_ENCROS_020 ) 3789 S000FFC 01 NOP 3790 ; 3791 ;-------------- 衝突！！ ------------------------------------------------ 3792 S000FFD 00 STOP ;<<< return to SFC !! >>> 3793 S000FFE 01 NOP 3794 ; 3795 MY_ENCROS_020 3796 S000FFF E8 DEC R8 3797 S001000 E8 DEC R8 3798 S001001 EB DEC R11 3799 MY_ENCROS_030 3800 S001002 EB DEC R11 3801 MY_ENCROS_040 3802 S001003 2B WITH R11 3803 S001004 62 SUB R2 3804 S001005 28 WITH R8 3805 S001006 62 SUB R2 3806 S001007 29 WITH R9 3807 S001008 62 SUB R2 3808 S001009 2A WITH R10 3809 S00100A 62 SUB R2 3810 S00100B 2E WITH R14 3811 S00100C 62 SUB R2 3812 S00100D 3C LOOP 3813 S00100E BE FROM R14 ;[ duumy ] 3814 ; 3815 S00100F 00 STOP 3816 S001010 01 NOP 3817 ; 3818 ;************************************************************************ 3819 ;* * 3820 ;* 敵との衝突チェック（　単体　無差別　） * 3821 ;* in : * 3822 ;* (R1) <-- 自分の敵のインデックス * 3823 ;* * 3824 ;* out : * 3825 ;* (R14) <-- 衝突相手の敵のインデックス * 3826 ;* （<0 : 衝突相手無し） * 3827 ;* (CWK0) <-- Ｘの距離 * 3828 ;* (CWK1) <-- Ｙ ” * 3829 ;* * 3830 ;* 注）何回もチェックする時は、Ｒ１５をＲ１５へ * 3831 ;* セットしてもう一度実行すればいい。 * 3832 ;* * 3833 ;************************************************************************ 3834 ; 3835 001011 MY_ENCROS2 EQU $ 3836 S001011 F9 0F5C IWT R9,#CENMODE+(CENNO-1)*4 ;(R9) <-- 敵のモードポインター 3837 S001014 FB 1D32 IWT R11,#CECENTX+(CENNO-1)*4 ;(R11) <-- 敵の中心Ｘ座標ポインター 3838 S001017 F8 1C12 IWT R8,#CEWIDEX+(CENNO-1)*4 ;(R8) <-- ”Ｘ幅ポインター 3839 S00101A A2 04 IBT R2,#4 ;(R2) <-- ポインター加算データ 3840 ; 3841 S00101C AE 5C IBT R14,#(CENNO-1)*4 ;(R14) <-- 相手の敵のインデックス 3842 S00101E BE FROM R14 3843 S00101F 17 TO R7 ;(R7) <-- 自分の敵の逆インデックス 3844 S001020 61 SUB R1 3845 ; 3846 S001021 BB FROM R11 3847 S001022 67 SUB R7 3848 S001023 13 TO R3 ;(R3) <-- 自分の中心Ｘ座標 3849 S001024 40 LDW (R0) 3850 S001025 3E 52 ADD #2 3851 S001027 14 TO R4 ;(R4) <-- ” Ｙ ” 3852 S001028 40 LDW (R0) 3853 S001029 B8 FROM R8 3854 S00102A 67 SUB R7 3855 S00102B 15 TO R5 ;(R5) <-- ” Ｘ幅 3856 S00102C 40 LDW (R0) 3857 S00102D 3E 52 ADD #2 3858 S00102F 16 TO R6 ;(R6) <-- ” Ｙ” 3859 S001030 40 LDW (R0) 3860 ; 3861 S001031 AC 18 IBT R12,#CENNO 3862 ; 3863 S001033 02 CACHE 3864 ; 3865 S001034 2F 1D MOVE R13,R15 3866 MY_ENCROS2_010 3867 S001036 BE FROM R14 3868 S001037 61 SUB R1 3869 S001038 09 36' BEQ MY_ENCROS2_040 ;自分のインデックス？ ( yes:MY_ENCROS2_040 ) 3870 S00103A 01 NOP 3871 ; 3872 S00103B 3D 49 LDB (R9) 3873 S00103D 3E 6E SUB #CEFAIL 3874 S00103F 0C 2F' BCC MY_ENCROS2_040 ;敵のモードＯＫ？ ( no:MY_ENCROS2_040 ) 3875 S001041 17 TO R7 ;(R7) <-- 相手の敵のＸ幅 3876 ; 3877 S001042 48 LDW (R8) 3878 S001043 B7 FROM R7 3879 S001044 55 ADD R5 3880 S001045 1A TO R10 3881 S001046 50 ADD R0 3882 S001047 DA INC R10 3883 S001048 4B LDW (R11) ;(R0) <-- ” 中心Ｘ座標 3884 S001049 63 SUB R3 3885 S00104A 3E A0 00 SMS R0,CWORK0 ;(CWK0) <-- Ｘの距離 3886 S00104D 55 ADD R5 3887 S00104E 57 ADD R7 3888 S00104F 3F 6A CMP R10 3889 S001051 0D 1C' BCS MY_ENCROS2_030 ;Ｘ衝突？ ( no:MY_ENCROS2_030 ) 3890 S001053 DB INC R11 3891 ; 3892 S001054 DB INC R11 3893 S001055 D8 INC R8 3894 S001056 D8 INC R8 3895 ; 3896 S001057 17 TO R7 ;(R7) <-- 相手の敵のＹ幅 3897 S001058 48 LDW (R8) 3898 S001059 B7 FROM R7 3899 S00105A 56 ADD R6 3900 S00105B 1A TO R10 3901 S00105C 50 ADD R0 3902 S00105D DA INC R10 3903 S00105E 4B LDW (R11) ;(R0) <-- ” 中心Ｙ座標 3904 S00105F 64 SUB R4 3905 S001060 3E A0 01 SMS R0,CWORK1 ;(CWK1) <-- Ｙの距離 3906 S001063 56 ADD R6 3907 S001064 57 ADD R7 3908 S001065 3F 6A CMP R10 3909 S001067 0D 03' BCS MY_ENCROS2_020 ;Ｙ衝突？ ( no:MY_ENCROS2_020 ) 3910 S001069 01 NOP 3911 ; 3912 ;-------------- 衝突！！ ------------------------------------------------ 3913 S00106A 00 STOP ;<<< return to SFC !! >>> 3914 S00106B 01 NOP 3915 ; 3916 MY_ENCROS2_020 3917 S00106C E8 DEC R8 3918 S00106D E8 DEC R8 3919 S00106E EB DEC R11 3920 MY_ENCROS2_030 3921 S00106F EB DEC R11 3922 MY_ENCROS2_040 3923 S001070 2B WITH R11 3924 S001071 62 SUB R2 3925 S001072 28 WITH R8 3926 S001073 62 SUB R2 3927 S001074 29 WITH R9 3928 S001075 62 SUB R2 3929 S001076 2E WITH R14 3930 S001077 62 SUB R2 3931 S001078 3C LOOP 3932 S001079 BE FROM R14 ;[ duumy ] 3933 ; 3934 S00107A 00 STOP 3935 S00107B 01 NOP 3936 ; 3937 ;************************************************************************ 3938 ;* * 3939 ;* サーチスピード計算 * 3940 ;* * 3941 ;* in : (R1) <-- 目標Ｘ座標 * 3942 ;* (R2) <-- ” Ｙ ” * 3943 ;* (R3) <-- 現在Ｘ ” * 3944 ;* (R4) <-- ” Ｙ ” * 3945 ;* (R6) <-- サーチスピード * 3946 ;* * 3947 ;* out : (R1) <-- サーチＸスピード * 3948 ;* (R2) <-- ” Ｙ ” * 3949 ;* * 3950 ;************************************************************************ 3951 ; 3952 00107C SEARCH_SPEED EQU $ 3953 S00107C B1 FROM R1 3954 S00107D 63 SUB R3 3955 S00107E 20 15 MOVE R5,R0 ;(R5) <-- Ｘサーチ方向 3956 S001080 0A 03' BPL SEARCH_SPEED_10 3957 S001082 01 NOP 3958 ; 3959 S001083 4F NOT 3960 S001084 D0 INC R0 3961 SEARCH_SPEED_10 3962 S001085 20 17 MOVE R7,R0 ;(R7) <-- Ｘ距離（短い方） 3963 ; 3964 S001087 B2 FROM R2 3965 S001088 64 SUB R4 3966 S001089 20 18 MOVE R8,R0 ;(R8) <-- Ｙサーチ方向 3967 S00108B 0A 03' BPL SEARCH_SPEED_20 3968 S00108D 01 NOP 3969 ; 3970 S00108E 4F NOT 3971 S00108F D0 INC R0 3972 SEARCH_SPEED_20 3973 S001090 20 19 MOVE R9,R0 ;(R9) <-- Ｙ距離（長い方） 3974 ; 3975 S001092 67 SUB R7 3976 S001093 0D 07' BCS SEARCH_SPEED_30 ;Ｘ距離の方が長い？ ( no:SEARCH_SPEED_30 ) 3977 S001095 97 ROR ;(R0) <-- 距離が長い方のフラグ（＋：Ｘ、−：Ｙ） 3978 ; 3979 S001096 27 10 MOVE R0,R7 3980 S001098 29 17 MOVE R7,R9 3981 S00109A 20 19 MOVE R9,R0 3982 SEARCH_SPEED_30 3983 S00109C 20 1A MOVE R10,R0 ;(R10) <-- 距離が長い方のフラグ 3984 ; 3985 ;------------------------------------------------------------------------ 3986 ;- 除算 - 3987 ;------------------------------------------------------------------------ 3988 S00109E 27 WITH R7 3989 S00109F 3D 9F LMULT ;(R7)+(R4) <-- 被除数 3990 S0010A1 60 SUB R0 ;(R0) <-- アキュムレータをクリア 3991 S0010A2 20 12 MOVE R2,R0 ;(R2) <-- 商をクリア 3992 ; 3993 S0010A4 AC 20 IBT R12,#32 3994 S0010A6 FD 10AB' IWT R13,#SEARCH_SPEED_40+1 3995 ; 3996 S0010A9 02 CACHE 3997 ; 3998 SEARCH_SPEED_40 3999 S0010AA 22 WITH R2 ;商を左へシフト 4000 S0010AB 52 ADD R2 4001 S0010AC 24 WITH R4 ;被除数を左へシフト 4002 S0010AD 54 ADD R4 4003 S0010AE 27 WITH R7 4004 S0010AF 04 ROL 4005 S0010B0 04 ROL ;被除数をアキュムレータにシフト 4006 S0010B1 69 SUB R9 ;アキュムレータと除数を比較 4007 S0010B2 0C 03' BCC SEARCH_SPEED_50 ;アキュムレータ＜除数であれば、減算を省略 4008 S0010B4 59 ADD R9 4009 ; 4010 S0010B5 69 SUB R9 ;アキュムレータから除数を引く 4011 S0010B6 D2 INC R2 ;商に１を加える 4012 SEARCH_SPEED_50 4013 S0010B7 3C LOOP 4014 S0010B8 22 WITH R2 ;(R2) <-- サーチＹスピード 4015 ; 4016 ;------------------------------------------------------------------------ 4017 ;- サーチスピードセット - 4018 ;------------------------------------------------------------------------ 4019 S0010B9 2A BA MOVES R10,R10 4020 S0010BB 0A 07' BPL SEARCH_SPEED_60 ;Ｘ距離の方が長い？ ( yes:SEARCH_SPEED_60 ) 4021 S0010BD 01 NOP 4022 ; 4023 S0010BE 26 10 MOVE R0,R6 4024 S0010C0 22 16 MOVE R6,R2 4025 S0010C2 20 12 MOVE R2,R0 4026 ; 4027 SEARCH_SPEED_60 4028 S0010C4 26 11 MOVE R1,R6 ;(R1) <-- サーチＸスピード 4029 S0010C6 25 B5 MOVES R5,R5 4030 S0010C8 0A 03' BPL SEARCH_SPEED_70 ;Ｘサーチ方向左？ ( yes:SEARCH_SPEED_70 ) 4031 S0010CA 21 WITH R1 4032 ; 4033 S0010CB 4F NOT 4034 S0010CC D1 INC R1 4035 SEARCH_SPEED_70 4036 S0010CD 28 B8 MOVES R8,R8 4037 S0010CF 0A 03' BPL SEARCH_SPEED_80 ;Ｙサーチ方向下？ ( yes:SEARCH_SPEED_80 ) 4038 S0010D1 22 WITH R2 4039 ; 4040 S0010D2 4F NOT 4041 S0010D3 D2 INC R2 4042 ; 4043 SEARCH_SPEED_80 4044 S0010D4 00 STOP 4045 S0010D5 01 NOP 4046 ; 4047 ;************************************************************************ 4048 ;* 赤ちゃん用魔法ビーム * 4049 ;* in : * 4050 ;* (R1) <-- ＯＡＭインデックス * 4051 ;* (R4) <-- 敵表示Ｘ座標 * 4052 ;* (R5) <-- " Ｙ ” * 4053 ;* (R6) <-- 向き * 4054 ;* (R7) <-- 回転角 * 4055 ;* (R8) <-- 半径×４ * 4056 ;************************************************************************ 4057 0010D6 BEEM_OAMET EQU $ 4058 S0010D6 A0 00" IBT R0,#BANK LCOS 4059 S0010D8 3F DF ROMB 4060 ; 4061 S0010DA A2 06 IBT R2,#6 ;(R2) <-- ＯＡＭインデックス加算データ 4062 S0010DC A9 55 IBT R9,#0100H/3 ;(R9) <-- 回転角の加算データ 4063 S0010DE AA 40 IBT R10,#040H ;(R10) <-- ＳＩＮデータへの加算データ 4064 S0010E0 FB 0000" IWT R11,#LCOS 4065 ; 4066 S0010E3 BB FROM R11 4067 S0010E4 1E TO R14 4068 S0010E5 57 ADD R7 4069 ; 4070 S0010E6 02 CACHE 4071 ; 4072 S0010E7 FC 0003 IWT R12,#3 4073 S0010EA FD 10EE' IWT R13,#BEEM_OAMET_010+1 4074 BEEM_OAMET_010 4075 S0010ED EF GETB 4076 ; 4077 S0010EE 2E WITH R14 4078 S0010EF 5A ADD R10 4079 ; 4080 S0010F0 88 MULT R8 4081 S0010F1 C0 HIB 4082 S0010F2 95 SEX 4083 S0010F3 E6 DEC R6 4084 S0010F4 0B 03' BMI BEEM_OAMET_020 4085 S0010F6 D6 INC R6 4086 ; 4087 S0010F7 4F NOT 4088 S0010F8 D0 INC R0 4089 BEEM_OAMET_020 4090 S0010F9 54 ADD R4 4091 S0010FA 31 STW (R1) 4092 S0010FB D1 INC R1 4093 S0010FC D1 INC R1 4094 ; 4095 S0010FD EF GETB 4096 ; 4097 S0010FE 27 WITH R7 4098 S0010FF 59 ADD R9 4099 S001100 27 WITH R7 4100 S001101 9E LOB 4101 ; 4102 S001102 BB FROM R11 4103 S001103 1E TO R14 4104 S001104 57 ADD R7 4105 ; 4106 S001105 88 MULT R8 4107 S001106 C0 HIB 4108 S001107 95 SEX 4109 S001108 55 ADD R5 4110 S001109 31 STW (R1) 4111 ; 4112 S00110A 21 WITH R1 4113 S00110B 52 ADD R2 4114 ; 4115 S00110C 3C LOOP 4116 S00110D EF GETB 4117 ; 4118 S00110E 00 STOP 4119 S00110F 01 NOP 4120 ; 4121 ; 4122 ;************************************************************************ 4123 ;* 乗ったら落ちる床ＯＡＭセット * 4124 ;* in : * 4125 ;* (R1) <-- ＯＡＭインデックス * 4126 ;* (R2) <-- ブロックＸ座標 * 4127 ;* (R3) <-- ” Ｙ ” * 4128 ;* (R4) <-- ” 横サイズ * 4129 ;* (R5) <-- ” 縦 ” * 4130 ;* (R6) <-- ベースキャラＮｏ．＆ＡＴＴ * 4131 ;************************************************************************ 4132 001110 ON_DW_C_1 EQU $ 4133 S001110 22 HEX 22 ;１ブロックのみ 4134 001111 ON_DW_C_X EQU $ 4135 S001111 2A 2C 2E HEX 2A,2C,2E ;横長ブロック 4136 001114 ON_DW_C_Y EQU $ 4137 S001114 24 00 00 HEX 24,0,0 ;縦長ブロック 4138 S001117 26 00 00 HEX 26,0,0 4139 S00111A 28 00 00 HEX 28,0,0 4140 00111D ON_DW_C_XY EQU $ 4141 S00111D 00 02 04 HEX 00,02,04 ;縦横ブロック 4142 S001120 0C 0E 20 HEX 0C,0E,20 4143 S001123 06 08 0A HEX 06,08,0A 4144 ; 4145 001126 ON_DW_OAMST EQU $ 4146 ; 4147 ;-------------- 左上座標に補正 ------------------------------------------ 4148 S001126 A7 10 IBT R7,#010H 4149 ; 4150 S001128 B4 FROM R4 4151 S001129 67 SUB R7 4152 S00112A 03 LSR 4153 S00112B 22 WITH R2 4154 S00112C 60 SUB R0 4155 S00112D B5 FROM R5 4156 S00112E 67 SUB R7 4157 S00112F 03 LSR 4158 S001130 23 WITH R3 4159 S001131 60 SUB R0 4160 ; 4161 ;-------------- ブロックタイプチェック ---------------------------------- 4162 S001132 A0 00' IBT R0,#BANK ON_DW_C_1 4163 S001134 3F DF ROMB 4164 ; 4165 S001136 B5 FROM R5 4166 S001137 67 SUB R7 4167 S001138 08 10' BNE ON_DW_OAMST_020 ;縦１ブロック？ ( no:ON_DW_OAMST_020 ) 4168 S00113A B4 FROM R4 4169 ; 4170 S00113B 67 SUB R7 4171 S00113C 08 07' BNE ON_DW_OAMST_010+1 ;横１ブロック？ ( no:ON_DW_OAMST_010+1 ) 4172 ; 4173 ;-------------- １ブロックのみ ---------------------------------- 4174 S00113E FE 1110' IWT R14,#ON_DW_C_1 ;(R14) <-- キャラＮｏ．データポインター 4175 S001141 05 13' BRA ON_DW_OAMST_050 4176 S001143 01 NOP 4177 ; 4178 ;-------------- 横長ブロック ------------------------------------ 4179 ON_DW_OAMST_010 4180 S001144 FE 1111' IWT R14,#ON_DW_C_X ;(R14) <-- キャラＮｏ．データポインター 4181 S001147 05 0D' BRA ON_DW_OAMST_050 4182 S001149 01 NOP 4183 ; 4184 ON_DW_OAMST_020 4185 ;;;; FROM R4 4186 S00114A 67 SUB R7 4187 S00114B 08 07' BNE ON_DW_OAMST_030+1 ;横１ブロック？ ( no:ON_DW_OAMST_030+1 ) 4188 ; 4189 ;-------------- 縦長ブロック ------------------------------------ 4190 S00114D FE 1114' IWT R14,#ON_DW_C_Y ;(R14) <-- キャラＮｏ．データポインター 4191 S001150 05 04' BRA ON_DW_OAMST_050 4192 S001152 01 NOP 4193 ; 4194 ON_DW_OAMST_030 4195 S001153 FE 111D' IWT R14,#ON_DW_C_XY ;(R14) <-- キャラＮｏ．データポインター 4196 ; 4197 ;-------------- ＯＡＭセット -------------------------------------------- 4198 ON_DW_OAMST_050 4199 S001156 A9 02 IBT R9,#02H ;(R9) <-- サイズ＆特殊フラグセットデータ 4200 S001158 FD 8000 IWT R13,#8000H ;(R13) <-- 中キャラＶフリップデータ 4201 ; 4202 S00115B 02 CACHE 4203 ; 4204 ON_DW_OAMST_060 4205 ; 4206 ;-------------- 上キャラセット ---------------------------------- 4207 mJSR ON_DW_OAMSB 4207+ S00115C 94 LINK #4 4207+ S00115D FF 1188' IWT R15, #ON_DW_OAMSB 4207+ S001160 01 NOP 4208 ; 4209 S001161 25 WITH R5 4210 S001162 67 SUB R7 4211 S001163 09 21' BEQ ON_DW_OAMST_100 ;縦１ブロック？ ( yes:ON_DW_OAMST_100 ) 4212 S001165 01 NOP 4213 ; 4214 ;-------------- 中キャラセット ---------------------------------- 4215 ON_DW_OAMST_070 4216 S001166 23 WITH R3 ;Ｙ座標加算 4217 S001167 57 ADD R7 4218 ; 4219 S001168 25 WITH R5 4220 S001169 67 SUB R7 4221 S00116A 09 0F' BEQ ON_DW_OAMST_080 ;中キャラセット終了？ ( yes:ON_DW_OAMST_080 ) 4222 S00116C 01 NOP 4223 ; 4224 mJSR ON_DW_OAMSB 4224+ S00116D 94 LINK #4 4224+ S00116E FF 1188' IWT R15, #ON_DW_OAMSB 4224+ S001171 01 NOP 4225 ; 4226 S001172 2E WITH R14 ;中キャラへポインター戻し 4227 S001173 3E 63 SUB #3 4228 S001175 26 WITH R6 ;Ｖフリップセット 4229 S001176 3D CD XOR R13 4230 S001178 05 ED' BRA ON_DW_OAMST_070+1 4231 S00117A 23 WITH R3 4232 ; 4233 ;-------------- 下キャラセット ---------------------------------- 4234 ON_DW_OAMST_080 4235 S00117B 2E WITH R14 ;下キャラへポインター加算 4236 S00117C 3E 53 ADD #3 4237 S00117E 26 WITH R6 ;Ｖフリップリセット 4238 S00117F 3D 7D BIC R13 4239 ; 4240 mJSR ON_DW_OAMSB 4240+ S001181 94 LINK #4 4240+ S001182 FF 1188' IWT R15, #ON_DW_OAMSB 4240+ S001185 01 NOP 4241 ; 4242 ON_DW_OAMST_100 4243 S001186 00 STOP 4244 S001187 01 NOP 4245 ; 4246 ;------------------------------------------------------------------------ 4247 ;- 横ＯＡＭセット - 4248 ;------------------------------------------------------------------------ 4249 ON_DW_OAMSB 4250 S001188 22 18 MOVE R8,R2 ;(R8) <-- Ｘ座標 4251 S00118A 24 1A MOVE R10,R4 ;(R10) <-- Ｘサイズカウンター 4252 ; 4253 ;-------------- 左キャラセット ---------------------------------- 4254 S00118C B8 FROM R8 4255 S00118D 31 STW (R1) ;Ｘ座標セット 4256 S00118E D1 INC R1 4257 S00118F D1 INC R1 4258 ; 4259 S001190 B3 FROM R3 4260 S001191 31 STW (R1) ;Ｙ座標セット 4261 S001192 D1 INC R1 4262 S001193 D1 INC R1 4263 ; 4264 S001194 EF GETB ;(R0) <-- 左キャラＮｏ．データ 4265 S001195 DE INC R14 4266 ; 4267 S001196 56 ADD R6 4268 S001197 31 STW (R1) ;キャラＮｏ．＆ＡＴＴセット 4269 S001198 D1 INC R1 4270 S001199 D1 INC R1 4271 ; 4272 S00119A B9 FROM R9 4273 S00119B 31 STW (R1) ;サイズ＆特殊フラグセット 4274 ; 4275 ;-------------- 中キャラセット ---------------------------------- 4276 S00119C 2A WITH R10 4277 S00119D 67 SUB R7 4278 S00119E 09 31' BEQ ON_DW_OAMSB_040 ;横１ブロック？ ( yes:ON_DW_OAMSB_040 ) 4279 S0011A0 D1 INC R1 4280 ; 4281 S0011A1 D1 INC R1 4282 ; 4283 S0011A2 EF GETB ;(R0) <-- 中キャラＮｏ． 4284 S0011A3 DE INC R14 4285 ; 4286 S0011A4 1C TO R12 ;(R12) <-- 中キャラＮｏ．＆ＡＴＴ 4287 S0011A5 56 ADD R6 4288 ; 4289 ON_DW_OAMSB_010 4290 S0011A6 28 WITH R8 ;Ｘ座標加算 4291 S0011A7 57 ADD R7 4292 ; 4293 S0011A8 2A WITH R10 4294 S0011A9 67 SUB R7 4295 S0011AA 09 12' BEQ ON_DW_OAMSB_020 ;中キャラセット終了？ ( yes:ON_DW_OAMSB_020 ) 4296 S0011AC B8 FROM R8 4297 ; 4298 S0011AD 31 STW (R1) ;Ｘ座標セット 4299 S0011AE D1 INC R1 4300 S0011AF D1 INC R1 4301 ; 4302 S0011B0 B3 FROM R3 4303 S0011B1 31 STW (R1) ;Ｙ座標セット 4304 S0011B2 D1 INC R1 4305 S0011B3 D1 INC R1 4306 ; 4307 S0011B4 BC FROM R12 4308 S0011B5 31 STW (R1) ;キャラＮｏ．＆ＡＴＴセット 4309 S0011B6 D1 INC R1 4310 S0011B7 D1 INC R1 4311 ; 4312 S0011B8 B9 FROM R9 4313 S0011B9 31 STW (R1) ;サイズ＆特殊フラグセット 4314 S0011BA D1 INC R1 4315 S0011BB 05 E9' BRA ON_DW_OAMSB_010 4316 S0011BD D1 INC R1 4317 ; 4318 ;-------------- 右キャラセット ---------------------------------- 4319 ON_DW_OAMSB_020 4320 S0011BE B8 FROM R8 4321 S0011BF 31 STW (R1) ;Ｘ座標セット 4322 S0011C0 D1 INC R1 4323 S0011C1 D1 INC R1 4324 ; 4325 S0011C2 B3 FROM R3 4326 S0011C3 31 STW (R1) ;Ｙ座標セット 4327 S0011C4 D1 INC R1 4328 S0011C5 D1 INC R1 4329 ; 4330 S0011C6 EF GETB ;(R0) <-- 右キャラＮｏ． 4331 S0011C7 DE INC R14 4332 ; 4333 S0011C8 56 ADD R6 4334 S0011C9 31 STW (R1) ;キャラＮｏ．＆ＡＴＴセット 4335 S0011CA D1 INC R1 4336 S0011CB D1 INC R1 4337 ; 4338 S0011CC B9 FROM R9 4339 S0011CD 31 STW (R1) ;サイズ＆特殊フラグセット 4340 S0011CE D1 INC R1 4341 ; 4342 ON_DW_OAMSB_030 4343 mRTS_X 4343+ S0011CF 9B JMP R11 4344 S0011D0 D1 INC R1 4345 ; 4346 ON_DW_OAMSB_040 4347 S0011D1 DE INC R14 4348 S0011D2 DE INC R14 4349 mRTS_X 4349+ S0011D3 9B JMP R11 4350 S0011D4 D1 INC R1 4351 ; 4352 ; 4353 ; 4354 ;-------------------------------------------------------- 4355 ;- EGG SEARCH - 4356 ;- egg suu -> (R6) - 4357 ;-------------------------------------------------------- 4358 ; 4359 ;-------------------------------------------------------- 4360 ;- TARGET_COUNTER - 4361 ;- - 4362 ;- [In] - 4363 ;- target low no. -> (R4) - 4364 ;- target high no. -> (R5) - 4365 ;- [Out] - 4366 ;- target sum. -> (R6) - 4367 ;-------------------------------------------------------- 4368 0011D5 EGGSEARCH EQU $ 4369 S0011D5 F4 0000" IWT R4,#EGG00 4370 S0011D8 F5 0001" IWT R5,#EGG09+1 4371 ; 4372 0011DB TARGET_COUNTER EQU $ 4373 S0011DB A1 04 IBT R1,#04 4374 S0011DD F2 0F00 IWT R2,#CENMODE ;(R2) <-- enemy mode pointer 4375 S0011E0 F3 1360 IWT R3,#CENMYNO ;(R3) <-- " name " 4376 S0011E3 A6 00 IBT R6,#00 4377 S0011E5 02 CACHE 4378 S0011E6 AC 18 IBT R12,#CENNO 4379 S0011E8 2F 1D MOVE R13,R15 4380 4381 EGSH0000 4382 S0011EA 42 LDW (R2) 4383 S0011EB 3E 60 SUB #00 4384 S0011ED 09 0D' BEQ EGSH0080 ; 4385 S0011EF 01 NOP 4386 ; 4387 S0011F0 43 LDW (R3) 4388 S0011F1 3F 64 CMP R4 4389 S0011F3 0C 07' BCC EGSH0080 ; 4390 S0011F5 01 NOP 4391 ; 4392 S0011F6 3F 65 CMP R5 4393 S0011F8 0D 02' BCS EGSH0080 ; 4394 S0011FA 01 NOP 4395 ; 4396 S0011FB D6 INC R6 4397 EGSH0080 4398 S0011FC 22 WITH R2 4399 S0011FD 51 ADD R1 4400 S0011FE 23 WITH R3 4401 S0011FF 51 ADD R1 4402 S001200 3C LOOP 4403 S001201 01 NOP 4404 ; 4405 S001202 00 STOP 4406 S001203 01 NOP 4407 ; 4408 ;-------------------------------------------------------- 4409 ;- HEIHO_COUNTER - 4410 ;- - 4411 ;- [Out] - 4412 ;- target sum. -> (R6) - 4413 ;-------------------------------------------------------- 4414 001204 HEIHO_COUNTER EQU $ 4415 S001204 F4 0000" IWT R4,#EGG00 4416 S001207 F5 0001" IWT R5,#EGG09+1 4417 S00120A F7 0000" IWT R7,#HEIH0 4418 S00120D F8 0000" IWT R8,#CHKH0 4419 S001210 F9 0000" IWT R9,#GSTH0 4420 S001213 FB 0000" IWT R11,#MSHIH 4421 ; 4422 S001216 A1 04 IBT R1,#04 4423 S001218 F2 0F00 IWT R2,#CENMODE ;(R2) <-- enemy mode pointer 4424 S00121B F3 1360 IWT R3,#CENMYNO ;(R3) <-- " name " 4425 S00121E A6 00 IBT R6,#00 4426 S001220 02 CACHE 4427 S001221 AC 18 IBT R12,#CENNO 4428 S001223 2F 1D MOVE R13,R15 4429 4430 HEIHO_CNT0000 4431 S001225 42 LDW (R2) 4432 S001226 3E 60 SUB #00 4433 S001228 09 21' BEQ HEIHO_CNT0800 ; 4434 S00122A 01 NOP 4435 ; 4436 S00122B 43 LDW (R3) ;タマゴ ? 4437 S00122C 3F 64 CMP R4 ; 4438 S00122E 0C 06' BCC HEIHO_CNT0300 ; no: HEIHO_CNT0300 4439 S001230 01 NOP ; 4440 S001231 3F 65 CMP R5 ; 4441 S001233 0C 15' BCC HEIHO_CNT0700 ; yes: HEIHO_CNT0700 4442 S001235 01 NOP 4443 ; 4444 001236 HEIHO_CNT0300 EQU $ 4445 S001236 3F 67 CMP R7 ;ヘイホー ? 4446 S001238 09 10' BEQ HEIHO_CNT0700 ; yes: HEIHO_CNT0700 4447 S00123A 01 NOP ; 4448 S00123B 3F 68 CMP R8 ;地下ヘイホー ? 4449 S00123D 09 0B' BEQ HEIHO_CNT0700 ; yes: HEIHO_CNT0700 4450 S00123F 01 NOP ; 4451 S001240 3F 69 CMP R9 ;幽霊ヘイホー ? 4452 S001242 09 06' BEQ HEIHO_CNT0700 ; yes: HEIHO_CNT0700 4453 S001244 01 NOP ; 4454 S001245 3F 6B CMP R11 ;ムーンサルトヘイホー ? 4455 S001247 08 02' BNE HEIHO_CNT0800 ; no: HEIHO_CNT0800 4456 S001249 01 NOP 4457 4458 HEIHO_CNT0700 4459 S00124A D6 INC R6 4460 HEIHO_CNT0800 4461 S00124B 22 WITH R2 4462 S00124C 51 ADD R1 4463 S00124D 23 WITH R3 4464 S00124E 51 ADD R1 4465 S00124F 3C LOOP 4466 S001250 01 NOP 4467 ; 4468 S001251 00 STOP 4469 S001252 01 NOP 4470 ; 4471 ; 4472 ;************************************************************************ 4473 ;* * 4474 ;* ぽんた爆発 * 4475 ;* [In] * 4476 ;* R1 ぽんたの ECENTX * 4477 ;* R2 　 ”　 ECENTY * 4478 ;* R10 爆発半径 * 4479 ;* CWRK0 XSPD + * 4480 ;* CWRK1 YSPD - * 4481 ;* * 4482 ;************************************************************************ 4483 001253 PONTA_BOMB EQU $ 4484 S001253 F5 13BC IWT R5,#CENMYNO+5CH 4485 S001256 F6 0F5C IWT R6,#CENMODE+5CH 4486 S001259 F7 1D32 IWT R7,#CECENTX+5CH 4487 S00125C F8 1D34 IWT R8,#CECENTY+5CH 4488 S00125F F9 0FFF IWT R9,#CENMOD1+1+5CH 4489 S001262 BA FROM R10 4490 S001263 1E TO R14 4491 S001264 5A ADD R10 4492 4493 S001265 02 CACHE 4494 S001266 AC 18 IBT R12,#CENNO 4495 S001268 2F 1D MOVE R13,R15 4496 4497 S00126A 3D 46 LDB (R6) ;チェックしていい ? 4498 S00126C 3E 6F SUB #CEFAIL+1 ; 4499 S00126E 0B 0F' BMI P_BOM010 ; no:P_BOM010 4500 S001270 01 NOP 4501 ; 4502 S001271 47 LDW (R7) ;Ｘ　範囲ＯＫ ? 4503 S001272 61 SUB R1 ; 4504 S001273 5A ADD R10 ; 4505 S001274 6E SUB R14 ; 4506 S001275 0D 08' BCS P_BOM010 ; no: P_BOM010 4507 S001277 01 NOP 4508 4509 S001278 48 LDW (R8) ;Ｙ　範囲ＯＫ ? 4510 S001279 62 SUB R2 ; 4511 S00127A 5A ADD R10 ; 4512 S00127B 6E SUB R14 ; 4513 S00127C 0C 06' BCC P_BOM020 ; yes: P_BOM020 4514 S00127E BC FROM R12 4515 4516 P_BOM010 4517 mDJMP_X P_BOM080+1 ; no: P_BOM080 4517+ S00127F FF 132B' IWT R15, #P_BOM080+1 4518 S001282 A0 04 IBT R0,#04 4519 4520 P_BOM020 4521 S001284 3E 61 SUB #01 4522 S001286 50 ADD R0 4523 S001287 3E A6 26 SMS R6,REG6 4524 S00128A 16 TO R6 4525 S00128B 50 ADD R0 4526 4527 S00128C F3 0000" IWT R3,#PONTA 4528 S00128F 45 LDW (R5) ;ぽんた ? 4529 S001290 3F 63 CMP R3 ; 4530 S001292 09 11' BEQ P_BOM028 ;yes: P_BOM028 4531 S001294 01 NOP 4532 4533 S001295 F3 0000" IWT R3,#PUTIG ;ぷちぷちくんグレート ? 4534 S001298 3F 63 CMP R3 ; 4535 S00129A 09 09' BEQ P_BOM028 ; yes: P_BOM028 4536 S00129C 01 NOP 4537 4538 S00129D F3 0000" IWT R3,#PUTIB ;ぷちぷちくんビッグ ? 4539 S0012A0 3F 63 CMP R3 ; 4540 S0012A2 08 1A' BNE P_BOM030 ; no: P_BOM030 4541 S0012A4 01 NOP 4542 4543 P_BOM028 4544 mLDW0 CENWRK2,R6 ;つぶれてる ? 4544+ S0012A5 F0 19D6 IWT R0,#CENWRK2 4544+ S0012A8 56 ADD R6 4544+ S0012A9 40 LDW (R0) 4545 S0012AA 3E 60 SUB #0 ; 4546 S0012AC 08 79' BNE P_BOM078 ; yes: P_BOM078 4547 S0012AE 01 NOP 4548 4549 mLDW R11,CENMOD2,R6 4549+ S0012AF F0 1040 IWT R0,#CENMOD2 4549+ S0012B2 56 ADD R6 4549+ S0012B3 1B TO R11 4549+ S0012B4 40 LDW (R0) 4550 mSTW R11,CENWRKA,R6 4550+ S0012B5 F0 1900 IWT R0,#CENWRKA 4550+ S0012B8 56 ADD R6 4550+ S0012B9 BB FROM R11 4550+ S0012BA 30 STW (R0) 4551 4552 S0012BB 05 23' BRA P_BOM060 4553 S0012BD 01 NOP 4554 4555 P_BOM030 4556 S0012BE F3 0000" IWT R3,#SSLIM 4557 S0012C1 3F 63 CMP R3 ;ちびぷよ ? 4558 S0012C3 08 14' BNE P_BOM050 ; no: P_BOM050 4559 S0012C5 01 NOP 4560 4561 mLDW0 CENWRK2,R6 ;つぶれてる ? 4561+ S0012C6 F0 19D6 IWT R0,#CENWRK2 4561+ S0012C9 56 ADD R6 4561+ S0012CA 40 LDW (R0) 4562 S0012CB 3E 63 SUB #03 ; 4563 S0012CD 09 58' BEQ P_BOM078 ; yes: P_BOM078 4564 S0012CF 01 NOP ; 4565 S0012D0 E0 DEC R0 ; 4566 S0012D1 08 0D' BNE P_BOM060 ; no: P_BOM060 4567 S0012D3 01 NOP 4568 S0012D4 05 52' BRA P_BOM078+1 4569 S0012D6 3D A6 26 LMS R6,REG6 4570 P_BOM050 4571 S0012D9 3D 49 LDB (R9) ;ひっくり返る ? 4572 S0012DB 3E 78 AND #00001000B ; 4573 S0012DD 09 48' BEQ P_BOM078 ; no: P_BOM078 4574 S0012DF 01 NOP 4575 4576 P_BOM060 4577 S0012E0 3D A4 00 LMS R4,CWORK0 4578 S0012E3 47 LDW (R7) ;右にいる ? 4579 S0012E4 61 SUB R1 ; 4580 S0012E5 0A 04' BPL P_BOM070 ; yes: P_BOM070 4581 S0012E7 01 NOP 4582 4583 S0012E8 24 WITH R4 4584 S0012E9 4F NOT 4585 S0012EA D4 INC R4 4586 4587 P_BOM070 4588 mSTW R4,CENXSPD,R6 4588+ S0012EB F0 1220 IWT R0,#CENXSPD 4588+ S0012EE 56 ADD R6 4588+ S0012EF B4 FROM R4 4588+ S0012F0 30 STW (R0) 4589 4590 S0012F1 3D A4 01 LMS R4,CWORK1 4591 mSTW R4,CENYSPD,R6 4591+ S0012F4 F0 1222 IWT R0,#CENYSPD 4591+ S0012F7 56 ADD R6 4591+ S0012F8 B4 FROM R4 4591+ S0012F9 30 STW (R0) 4592 S0012FA 24 WITH R4 4593 S0012FB 64 SUB R4 4594 mSTW R4,CENWRK0,R6 4594+ S0012FC F0 1978 IWT R0,#CENWRK0 4594+ S0012FF 56 ADD R6 4594+ S001300 B4 FROM R4 4594+ S001301 30 STW (R0) 4595 mSTW R4,CENXPOW,R6 4595+ S001302 F0 1540 IWT R0,#CENXPOW 4595+ S001305 56 ADD R6 4595+ S001306 B4 FROM R4 4595+ S001307 30 STW (R0) 4596 S001308 D4 INC R4 4597 mSTW R4,CENSHOT,R6 4597+ S001309 F0 1D38 IWT R0,#CENSHOT 4597+ S00130C 56 ADD R6 4597+ S00130D B4 FROM R4 4597+ S00130E 30 STW (R0) 4598 S00130F A4 40 IBT R4,#040H 4599 mSTW R4,CENGPOW,R6 4599+ S001311 F0 1542 IWT R0,#CENGPOW 4599+ S001314 56 ADD R6 4599+ S001315 B4 FROM R4 4599+ S001316 30 STW (R0) 4600 S001317 F4 FFFC IWT R4,#0FFFCH ;行ったり来たりしない 4601 S00131A 49 LDW (R9) ; 4602 S00131B 74 AND R4 ; 4603 S00131C 90 SBK ; 4604 S00131D F4 F9FF IWT R4,#1111100111111111B ;衝突チェックなし 4605 mLDW0 CENMOD0,R6 ; 4605+ S001320 F0 0FA0 IWT R0,#CENMOD0 4605+ S001323 56 ADD R6 4605+ S001324 40 LDW (R0) 4606 S001325 74 AND R4 ; 4607 S001326 90 SBK 4608 4609 P_BOM078 4610 S001327 3D A6 26 LMS R6,REG6 4611 4612 P_BOM080 4613 S00132A A0 04 IBT R0,#04 4614 S00132C 25 WITH R5 4615 S00132D 60 SUB R0 4616 S00132E 26 WITH R6 4617 S00132F 60 SUB R0 4618 S001330 27 WITH R7 4619 S001331 60 SUB R0 4620 S001332 28 WITH R8 4621 S001333 60 SUB R0 4622 S001334 29 WITH R9 4623 S001335 60 SUB R0 4624 4625 S001336 3C LOOP 4626 S001337 01 NOP 4627 4628 S001338 00 STOP 4629 S001339 01 NOP 4630 ; 4631 ; 4632 ;---------------------------------------------------------------- 4633 ;- リフトサーチ - 4634 ;- (R5) <- センター X - 4635 ;- (R6) <- センター Y - 4636 ;- (R7) <- X 幅 - 4637 ;- (R8) <- Y 幅 - 4638 ;- 見つかったとき : 敵のインデックス -> (R1)- 4639 ;- Y方向 食い込み量 -> (R0)- 4640 ;- 見つからなかったとき : -1 -> (R1) - 4641 ;---------------------------------------------------------------- 4642 00133A LIFTSEARCH EQU $ 4643 S00133A 02 CACHE 4644 S00133B AC 18 IBT R12,#CENNO 4645 S00133D 2F 1D MOVE R13,R15 4646 ; 4647 S00133F F2 0010 IWT R2,#CEMOVE 4648 S001342 BC FROM R12 4649 S001343 3E 61 SUB #01 4650 S001345 50 ADD R0 4651 S001346 11 TO R1 4652 S001347 50 ADD R0 ; (R1) <- enemy index 4653 mLDW0 CENMODE,R1 4653+ S001348 F0 0F00 IWT R0,#CENMODE 4653+ S00134B 51 ADD R1 4653+ S00134C 40 LDW (R0) 4654 S00134D 62 SUB R2 4655 S00134E 08 4E' BNE LFTSCH00F0 ; mode move ? [no->LFTSCH00F0] 4656 S001350 01 NOP 4657 ; 4658 S001351 F3 0007 IWT R3,#SEARCHLIFT 4659 S001354 A0 00' IBT R0,#BANK LIFTTABLE 4660 S001356 3F DF ROMB 4661 S001358 FE 13A5' IWT R14,#LIFTTABLE 4662 LFTSCH0040 4663 S00135B EF GETB 4664 S00135C DE INC R14 4665 S00135D 12 TO R2 4666 S00135E 3D EF GETBH 4667 mLDW0 CENMYNO,R1 4667+ S001360 F0 1360 IWT R0,#CENMYNO 4667+ S001363 51 ADD R1 4667+ S001364 40 LDW (R0) 4668 S001365 62 SUB R2 4669 S001366 09 07' BEQ LFTSCH0050 ; lift find ? [yes->LFTSCH0050] 4670 S001368 E3 DEC R3 4671 S001369 08 F0' BNE LFTSCH0040 ; search end ? [no->LFTSCH0040] 4672 S00136B DE INC R14 4673 ; 4674 S00136C 05 30' BRA LFTSCH00F0 4675 S00136E 01 NOP 4676 LFTSCH0050 4677 mLDW0 CECENTX,R1 4677+ S00136F F0 1CD6 IWT R0,#CECENTX 4677+ S001372 51 ADD R1 4677+ S001373 40 LDW (R0) 4678 S001374 12 TO R2 4679 S001375 65 SUB R5 4680 S001376 0A 03' BPL LFTSCH0060 ; minus ? [no->LFTSCH0060] 4681 S001378 22 WITH R2 4682 ; 4683 S001379 4F NOT 4684 S00137A D2 INC R2 4685 LFTSCH0060 4686 mLDW0 CEWIDEX,R1 4686+ S00137B F0 1BB6 IWT R0,#CEWIDEX 4686+ S00137E 51 ADD R1 4686+ S00137F 40 LDW (R0) 4687 S001380 57 ADD R7 4688 S001381 62 SUB R2 4689 S001382 0B 1A' BMI LFTSCH00F0 ; X 幅 オーバー ? [yes->LFTSCH00F0] 4690 S001384 01 NOP 4691 ; 4692 mLDW0 CECENTY,R1 4692+ S001385 F0 1CD8 IWT R0,#CECENTY 4692+ S001388 51 ADD R1 4692+ S001389 40 LDW (R0) 4693 S00138A 12 TO R2 4694 S00138B 66 SUB R6 4695 S00138C 0A 03' BPL LFTSCH0070 ; minus ? [no->LFTSCH0070] 4696 S00138E 22 WITH R2 4697 ; 4698 S00138F 4F NOT 4699 S001390 D2 INC R2 4700 LFTSCH0070 4701 mLDW0 CEWIDEY,R1 4701+ S001391 F0 1BB8 IWT R0,#CEWIDEY 4701+ S001394 51 ADD R1 4701+ S001395 40 LDW (R0) 4702 S001396 57 ADD R7 4703 S001397 62 SUB R2 4704 S001398 0B 04' BMI LFTSCH00F0 ; Y 幅 オーバー ? [yes->LFTSCH00F0] 4705 S00139A 01 NOP 4706 ; 4707 S00139B 05 06' BRA LFTSCH0100 4708 S00139D 01 NOP 4709 LFTSCH00F0 4710 S00139E 3C LOOP 4711 S00139F 01 NOP 4712 ; 4713 S0013A0 F1 FFFF IWT R1,#-1 4714 LFTSCH0100 4715 S0013A3 00 STOP 4716 S0013A4 01 NOP 4717 ; 4718 ; 4719 0013A5 LIFTTABLE EQU $ 4720 S0013A5 0000" WORD ON_DW 4721 S0013A7 0000" WORD NLFLR 4722 S0013A9 0000" WORD NLFUD 4723 S0013AB 0000" WORD NRLF0 4724 S0013AD 0000" WORD NRLF1 4725 S0013AF 0000" WORD NRLF2 4726 S0013B1 0000" WORD NRLF3 4727 0013B3 LIFTTABLE_E EQU $ 4728 ; 4729 000007 SEARCHLIFT EQU (LIFTTABLE_E-LIFTTABLE)/2 4730 ; 4731 ; 4732 ; 4733 ; 4734 ; 4735 ;************************************************************************ 4736 ;* ＢＧ２、３、４スクロールセット * 4737 ;* in : * 4738 ;* (R8) <-- ＢＧ２Ｈスクロールスピード * 4739 ;* (R9) <-- ” Ｖ ” * 4740 ;* (R10) <-- ＢＧ３Ｈスクロールスピード * 4741 ;* (R11) <-- ” Ｖ ” * 4742 ;* (R12) <-- ＢＧ４Ｈスクロールスピード * 4743 ;* (R13) <-- ” Ｖ ” * 4744 ;************************************************************************ 4745 0013B3 BG234_SCRL EQU $ 4746 ; 4747 ;------------------------------------------------------------------------ 4748 ;- スクロールカウンターＨセット - 4749 ;------------------------------------------------------------------------ 4750 S0013B3 3D A1 4A LMS R1,CESCCH1 ;(R1) <-- ＢＧ１スクロールカウンターＨ 4751 S0013B6 3D F0 1E0C LM R0,CESCCH1L 4752 S0013BA 12 TO R2 ;(R2) <-- ＢＧ１スクロールカウンターＨ（Ｌ） 4753 S0013BB 9E LOB 4754 ; 4755 ;-------------- ＢＧ２スクロールカウンターＨセット ---------------------- 4756 S0013BC 26 B8 MOVES R6,R8 4757 S0013BE 09 18' BEQ BG234_SCRL_0010 ;スクロールセット？ ( no:BG234_SCRL_0010 ) 4758 S0013C0 B2 FROM R2 4759 ; 4760 S0013C1 3D 9F LMULT 4761 S0013C3 24 WITH R4 4762 S0013C4 C0 HIB 4763 S0013C5 9E LOB 4764 S0013C6 4D SWAP 4765 S0013C7 13 TO R3 4766 S0013C8 C4 OR R4 4767 S0013C9 B1 FROM R1 4768 S0013CA 3D 9F LMULT 4769 S0013CC 24 WITH R4 4770 S0013CD 53 ADD R3 4771 S0013CE 24 WITH R4 4772 S0013CF C0 HIB 4773 S0013D0 3F 50 ADC #0 4774 S0013D2 9E LOB 4775 S0013D3 4D SWAP 4776 S0013D4 C4 OR R4 4777 S0013D5 3E A0 4B SMS R0,CESCCH2 4778 ; 4779 ;-------------- ＢＧ３スクロールカウンターＨセット ---------------------- 4780 BG234_SCRL_0010 4781 S0013D8 26 BA MOVES R6,R10 4782 S0013DA 09 18' BEQ BG234_SCRL_0020 ;スクロールセット？ ( no:BG234_SCRL_0020 ) 4783 S0013DC B2 FROM R2 4784 ; 4785 S0013DD 3D 9F LMULT 4786 S0013DF 24 WITH R4 4787 S0013E0 C0 HIB 4788 S0013E1 9E LOB 4789 S0013E2 4D SWAP 4790 S0013E3 13 TO R3 4791 S0013E4 C4 OR R4 4792 S0013E5 B1 FROM R1 4793 S0013E6 3D 9F LMULT 4794 S0013E8 24 WITH R4 4795 S0013E9 53 ADD R3 4796 S0013EA 24 WITH R4 4797 S0013EB C0 HIB 4798 S0013EC 3F 50 ADC #0 4799 S0013EE 9E LOB 4800 S0013EF 4D SWAP 4801 S0013F0 C4 OR R4 4802 S0013F1 3E A0 4C SMS R0,CESCCH3 4803 ; 4804 ;-------------- ＢＧ４スクロールカウンターＨセット ---------------------- 4805 BG234_SCRL_0020 4806 S0013F4 26 BC MOVES R6,R12 4807 S0013F6 09 18' BEQ BG234_SCRL_0030 ;スクロールセット？ ( no:BG234_SCRL_0030 ) 4808 S0013F8 B2 FROM R2 4809 ; 4810 S0013F9 3D 9F LMULT 4811 S0013FB 24 WITH R4 4812 S0013FC C0 HIB 4813 S0013FD 9E LOB 4814 S0013FE 4D SWAP 4815 S0013FF 13 TO R3 4816 S001400 C4 OR R4 4817 S001401 B1 FROM R1 4818 S001402 3D 9F LMULT 4819 S001404 24 WITH R4 4820 S001405 53 ADD R3 4821 S001406 24 WITH R4 4822 S001407 C0 HIB 4823 S001408 3F 50 ADC #0 4824 S00140A 9E LOB 4825 S00140B 4D SWAP 4826 S00140C C4 OR R4 4827 S00140D 3E A0 4D SMS R0,CESCCH4 4828 ; 4829 BG234_SCRL_0030 4830 ; 4831 ;------------------------------------------------------------------------ 4832 ;- スクロールカウンターＶセット - 4833 ;------------------------------------------------------------------------ 4834 ;;;; IWT R0,#071CH ;(R0) <-- ＭＡＸＢＧ１スクロールカウンターＶ 4835 S001410 F0 070C IWT R0,#070CH ;(R0) <-- ＭＡＸＢＧ１スクロールカウンターＶ 4836 S001413 3D A5 4E LMS R5,CESCCV1 ;(R5) <-- ＢＧ１スクロールカウンターＶ 4837 S001416 11 TO R1 ;(R1) <-- スクロールカウンター幅 4838 S001417 65 SUB R5 4839 S001418 3D F0 1E0E LM R0,CESCCV1L 4840 S00141C 12 TO R2 ;(R2) <-- ＢＧ１スクロールカウンターＶ（Ｌ） 4841 S00141D 9E LOB 4842 ; 4843 ;-------------- ＢＧ２スクロールカウンターＶセット ---------------------- 4844 S00141E 26 B9 MOVES R6,R9 4845 S001420 09 29' BEQ BG234_SCRL_0040 ;スクロールセット？ ( no:BG234_SCRL_0040 ) 4846 S001422 01 NOP 4847 ; 4848 S001423 0A 06' BPL BG234_SCRL_0031 ;ＢＧ１と同じ？ ( no:BG234_SCRL_0031 ) 4849 S001425 B2 FROM R2 4850 ; 4851 S001426 25 10 MOVE R0,R5 4852 S001428 05 1E' BRA BG234_SCRL_0032 4853 S00142A 01 NOP 4854 ; 4855 BG234_SCRL_0031 4856 S00142B 3D 9F LMULT 4857 S00142D 24 WITH R4 4858 S00142E C0 HIB 4859 S00142F 9E LOB 4860 S001430 4D SWAP 4861 S001431 13 TO R3 4862 S001432 C4 OR R4 4863 S001433 B1 FROM R1 4864 S001434 3D 9F LMULT 4865 S001436 24 WITH R4 4866 S001437 53 ADD R3 4867 S001438 24 WITH R4 4868 S001439 C0 HIB 4869 S00143A 3F 50 ADC #0 4870 S00143C 9E LOB 4871 S00143D 4D SWAP 4872 S00143E 13 TO R3 4873 S00143F C4 OR R4 4874 ;;;; IWT R0,#0346H ;(R0) <-- ＭＡＸＢＧ２スクロールカウンターＶ 4875 S001440 F0 0326 IWT R0,#0326H ;(R0) <-- ＭＡＸＢＧ２スクロールカウンターＶ 4876 S001443 63 SUB R3 4877 S001444 0A 02' BPL BG234_SCRL_0032 4878 S001446 01 NOP 4879 ; 4880 S001447 60 SUB R0 4881 BG234_SCRL_0032 4882 S001448 3E A0 4F SMS R0,CESCCV2 4883 ; 4884 ;-------------- ＢＧ３スクロールカウンターＶセット ---------------------- 4885 BG234_SCRL_0040 4886 S00144B 26 BB MOVES R6,R11 4887 S00144D 09 29' BEQ BG234_SCRL_0050 ;スクロールセット？ ( no:BG234_SCRL_0050 ) 4888 S00144F 01 NOP 4889 ; 4890 S001450 0A 06' BPL BG234_SCRL_0041 ;ＢＧ１と同じ？ ( no:BG234_SCRL_0041 ) 4891 S001452 B2 FROM R2 4892 ; 4893 S001453 25 10 MOVE R0,R5 4894 S001455 05 1E' BRA BG234_SCRL_0042 4895 S001457 01 NOP 4896 ; 4897 BG234_SCRL_0041 4898 S001458 3D 9F LMULT 4899 S00145A 24 WITH R4 4900 S00145B C0 HIB 4901 S00145C 9E LOB 4902 S00145D 4D SWAP 4903 S00145E 13 TO R3 4904 S00145F C4 OR R4 4905 S001460 B1 FROM R1 4906 S001461 3D 9F LMULT 4907 S001463 24 WITH R4 4908 S001464 53 ADD R3 4909 S001465 24 WITH R4 4910 S001466 C0 HIB 4911 S001467 3F 50 ADC #0 4912 S001469 9E LOB 4913 S00146A 4D SWAP 4914 S00146B 13 TO R3 4915 S00146C C4 OR R4 4916 ;;;; IWT R0,#0146H ;(R0) <-- ＭＡＸＢＧ３スクロールカウンターＶ 4917 S00146D F0 0126 IWT R0,#0126H ;(R0) <-- ＭＡＸＢＧ３スクロールカウンターＶ 4918 S001470 63 SUB R3 4919 S001471 0A 02' BPL BG234_SCRL_0042 4920 S001473 01 NOP 4921 ; 4922 S001474 60 SUB R0 4923 BG234_SCRL_0042 4924 S001475 3E A0 50 SMS R0,CESCCV3 4925 ; 4926 ;-------------- ＢＧ４スクロールカウンターＶセット ---------------------- 4927 BG234_SCRL_0050 4928 S001478 26 BD MOVES R6,R13 4929 S00147A 09 29' BEQ BG234_SCRL_0060 ;スクロールセット？ ( no:BG234_SCRL_0060 ) 4930 S00147C 01 NOP 4931 ; 4932 S00147D 0A 06' BPL BG234_SCRL_0051 ;ＢＧ１と同じ？ ( no:BG234_SCRL_0051 ) 4933 S00147F B2 FROM R2 4934 ; 4935 S001480 25 10 MOVE R0,R5 4936 S001482 05 1E' BRA BG234_SCRL_0052 4937 S001484 01 NOP 4938 ; 4939 BG234_SCRL_0051 4940 S001485 3D 9F LMULT 4941 S001487 24 WITH R4 4942 S001488 C0 HIB 4943 S001489 9E LOB 4944 S00148A 4D SWAP 4945 S00148B 13 TO R3 4946 S00148C C4 OR R4 4947 S00148D B1 FROM R1 4948 S00148E 3D 9F LMULT 4949 S001490 24 WITH R4 4950 S001491 53 ADD R3 4951 S001492 24 WITH R4 4952 S001493 C0 HIB 4953 S001494 3F 50 ADC #0 4954 S001496 9E LOB 4955 S001497 4D SWAP 4956 S001498 13 TO R3 4957 S001499 C4 OR R4 4958 ;;;; IWT R0,#0146H ;(R0) <-- ＭＡＸＢＧ４スクロールカウンターＶ 4959 S00149A F0 0126 IWT R0,#0126H ;(R0) <-- ＭＡＸＢＧ４スクロールカウンターＶ 4960 S00149D 63 SUB R3 4961 S00149E 0A 02' BPL BG234_SCRL_0052 4962 S0014A0 01 NOP 4963 ; 4964 S0014A1 60 SUB R0 4965 BG234_SCRL_0052 4966 S0014A2 3E A0 51 SMS R0,CESCCV4 4967 ; 4968 BG234_SCRL_0060 4969 S0014A5 00 STOP 4970 S0014A6 01 NOP 4971 ; 4972 ;************************************************************************ 4973 ;* プレイヤースクロール制御 * 4974 ;************************************************************************ 4975 000030 LEFT_CX EQU 030H 4976 0000A8 RIGHT_CX EQU 0A8H 4977 ; 4978 ;------------------------------------------------------------------------ 4979 ;- スクロール補正用データ - 4980 ;------------------------------------------------------------------------ 4981 PSCR_HOSFG 4982 ; +--- スクロールカウンターＶ補正 4983 ; |+-- ” Ｈ ” 4984 ; ||+- ４５度補正 4985 ; ||| 4986 ; ||| +---- Ｘ補正方向 4987 ; ||| | +-- Ｙ ” 4988 ; ||| | | 4989 S0014A7 00 00 00 BYTE 000B,0,0 ;[0000] 4990 S0014AA 06 00 00 BYTE 110B,0,0 ;[0001] 4991 S0014AD 06 00 00 BYTE 110B,0,0 ;[0010] 4992 S0014B0 04 00 00 BYTE 100B,0,0 ;[0011] 4993 S0014B3 06 00 00 BYTE 110B,0,0 ;[0100] 4994 S0014B6 02 00 00 BYTE 010B,0,0 ;[0101] 4995 S0014B9 06 00 00 BYTE 110B,0,0 ;[0110] 4996 S0014BC 01 00 00 BYTE 001B,0,0 ;[0111] 4997 S0014BF 06 00 00 BYTE 110B,0,0 ;[1000] 4998 S0014C2 06 00 00 BYTE 110B,0,0 ;[1001] 4999 S0014C5 02 00 00 BYTE 010B,0,0 ;[1010] 5000 S0014C8 01 01 00 BYTE 001B,1,0 ;[1011] 5001 S0014CB 04 00 00 BYTE 100B,0,0 ;[1100] 5002 S0014CE 01 00 01 BYTE 001B,0,1 ;[1101] 5003 S0014D1 01 01 01 BYTE 001B,1,1 ;[1110] 5004 S0014D4 00 00 00 BYTE 000B,0,0 ;[1111] 5005 ; 5006 0014D7 M_PLSCRL EQU $ 5007 ; 5008 ;-------------- スクロールカウンターＨセット ---------------------------- 5009 S0014D7 3D F0 1E2A LM R0,CSP_SCRL_FG 5010 S0014DB 3E 60 SUB #0 5011 S0014DD 09 1A' BEQ M_PLSCRL_0010 ;スクロール基準特殊？ ( no:M_PLSCRL_0010 ) 5012 S0014DF 01 NOP 5013 ; 5014 ;-------------- スクロール基準特殊セット ------------------------ 5015 S0014E0 0B 11' BMI M_PLSCRL_0000 5016 S0014E2 60 SUB R0 ;[ IBT R0,#0 ] 5017 ; 5018 S0014E3 3D F0 1E36 LM R0,CSP_SCRL_XSP 5019 S0014E7 11 TO R1 ;(R1) <-- スクロール基準特殊Ｘスピード×２ 5020 S0014E8 50 ADD R0 5021 S0014E9 FD 0000 IWT R13,#000H ;(R13) <-- スクロール最低Ｘスピード 5022 S0014EC 3D F0 1E2E LM R0,CSP_SCRL_XPS 5023 S0014F0 05 29' BRA M_PLSCRL_0020 5024 S0014F2 01 NOP 5025 ; 5026 M_PLSCRL_0000 5027 S0014F3 A1 00 IBT R1,#0 ;(R1) <-- スクロールＸスピード 5028 mDJMP M_PLSCRL_0070 5028+ S0014F5 FF 158A' IWT R15, #M_PLSCRL_0070 5028+ S0014F8 01 NOP 5029 ; 5030 ;-------------- プレイヤーＸ移動値計算 -------------------------- 5031 M_PLSCRL_0010 5032 S0014F9 3D F0 1E10 LM R0,CPLXSDR_OLD 5033 S0014FD 11 TO R1 5034 S0014FE 9E LOB 5035 S0014FF 3D F0 1E12 LM R0,CPLXPSL_OLD 5036 S001503 9E LOB 5037 S001504 4D SWAP 5038 S001505 11 TO R1 ;(R1) <-- 前回プレイヤーＸ座標（小数付き） 5039 S001506 C1 OR R1 5040 ; 5041 S001507 3D A0 45 LMS R0,CPLXSDR 5042 S00150A 13 TO R3 5043 S00150B 9E LOB 5044 S00150C 3D A0 46 LMS R0,CPLXPSL 5045 S00150F 9E LOB 5046 S001510 4D SWAP 5047 S001511 C3 OR R3 ;(R0) <-- 現在プレイヤーＸ座標（小数付き） 5048 S001512 61 SUB R1 5049 S001513 11 TO R1 ;(R1) <-- プレイヤーＸ移動値×２ 5050 S001514 50 ADD R0 5051 S001515 FD 0100 IWT R13,#0100H ;(R13) <-- スクロール最低Ｘスピード 5052 ; 5053 ;-------------- Ｈスクロール値計算 ------------------------------ 5054 S001518 3D A0 46 LMS R0,CPLXPSL 5055 M_PLSCRL_0020 5056 S00151B 3D A3 4A LMS R3,CESCCH1 5057 S00151E 63 SUB R3 5058 S00151F 3D F4 1E20 LM R4,CPLSCRL_CX ;[ * SBK !! ] (R4) <-- プレイヤースクロール基点Ｘ位置 5059 S001523 64 SUB R4 5060 S001524 0B 29' BMI M_PLSCRL_0050 ;左へスクロール？ ( yes:M_PLSCRL_0050 ) 5061 S001526 01 NOP 5062 ; 5063 S001527 A3 18 IBT R3,#018H 5064 S001529 63 SUB R3 5065 S00152A E0 DEC R0 5066 S00152B 0A 22' BPL M_PLSCRL_0050 ;右へスクロール？ ( yes:M_PLSCRL_0050 ) 5067 S00152D D0 INC R0 5068 ; 5069 S00152E A0 30 IBT R0,#LEFT_CX 5070 S001530 3D A3 62 LMS R3,CPLCMKI 5071 S001533 E3 DEC R3 5072 S001534 0B 04' BMI M_PLSCRL_0030 5073 S001536 01 NOP 5074 ; 5075 S001537 F0 00A8 IWT R0,#RIGHT_CX 5076 M_PLSCRL_0030 5077 S00153A 64 SUB R4 5078 S00153B A3 50 IBT R3,#050H 5079 S00153D 53 ADD R3 5080 S00153E 0B 07' BMI M_PLSCRL_0032 ;プレイヤースクロール基点Ｘ位置変更？ ( yes:M_PLSCRL_0032 ) 5081 S001540 01 NOP 5082 ; 5083 S001541 F3 00A0 IWT R3,#050H*2 5084 S001544 63 SUB R3 5085 S001545 0C 05' BCC M_PLSCRL_0040 ;プレイヤースクロール基点Ｘ位置変更？ ( no:M_PLSCRL_0040 ) 5086 M_PLSCRL_0032 5087 S001547 54 ADD R4 5088 S001548 3E F0 1E20 SM R0,CPLSCRL_CX ;プレイヤースクロール基点Ｘ位置変更 5089 M_PLSCRL_0040 5090 S00154C 05 3C' BRA M_PLSCRL_0070 5091 S00154E 60 SUB R0 ;[ IBT R0,#0 ] 5092 ; 5093 M_PLSCRL_0050 5094 S00154F 21 B1 MOVES R1,R1 5095 S001551 08 0B' BNE M_PLSCRL_0051 ;プレイヤーＸ移動？ ( yes:M_PLSCRL_0051 ) 5096 S001553 01 NOP 5097 ; 5098 ;;;; IWT R1,#0100H 5099 S001554 2D 11 MOVE R1,R13 5100 S001556 3E 60 SUB #0 5101 S001558 0A 04' BPL M_PLSCRL_0051 5102 S00155A 01 NOP 5103 ; 5104 S00155B 21 WITH R1 5105 S00155C 4F NOT 5106 S00155D D1 INC R1 5107 M_PLSCRL_0051 5108 S00155E 13 TO R3 ;[ * (R0) not break !! ] 5109 S00155F 3D C1 XOR R1 5110 S001561 0A 04' BPL M_PLSCRL_0052 ;移動方向逆？ ( no:M_PLSCRL_0052 ) 5111 S001563 14 TO R4 5112 ; 5113 S001564 05 22' BRA M_PLSCRL_0060 5114 S001566 54 ADD R4 5115 ; 5116 M_PLSCRL_0052 5117 S001567 20 13 MOVE R3,R0 ;(R0) save 5118 ;;;; IWT R4,#0100H 5119 S001569 2D 14 MOVE R4,R13 5120 S00156B 21 B1 MOVES R1,R1 5121 S00156D 0A 04' BPL M_PLSCRL_0054 5122 S00156F 01 NOP 5123 ; 5124 S001570 24 WITH R4 5125 S001571 4F NOT 5126 S001572 D4 INC R4 5127 M_PLSCRL_0054 5128 S001573 B1 FROM R1 5129 S001574 64 SUB R4 5130 S001575 3D C1 XOR R1 5131 S001577 0A 03' BPL M_PLSCRL_0056 5132 S001579 01 NOP 5133 ; 5134 S00157A 24 11 MOVE R1,R4 5135 M_PLSCRL_0056 5136 S00157C 23 10 MOVE R0,R3 ;(R0) load 5137 ; 5138 S00157E A4 30 IBT R4,#LEFT_CX 5139 S001580 21 B1 MOVES R1,R1 5140 S001582 0A 05' BPL M_PLSCRL_0060+1 ;右移動？ ( yes:M_PLSCRL_0060+1 ) 5141 S001584 B4 FROM R4 5142 ; 5143 S001585 F4 00A8 IWT R4,#RIGHT_CX 5144 M_PLSCRL_0060 5145 S001588 B4 FROM R4 5146 S001589 90 SBK ;[ SM R4,CPLSCRL_CX ] プレイヤースクロール基点Ｘ位置セット 5147 ; 5148 M_PLSCRL_0070 5149 S00158A 13 TO R3 5150 S00158B 3E 5A ADD #08H+02H ;[ 08H+02H:スクロール最大値 ] 5151 S00158D 0B 07' BMI M_PLSCRL_0100 ;左スクロール最大値オーバー？ ( yes:M_PLSCRL_0100 ) 5152 S00158F 01 NOP 5153 ; 5154 S001590 13 TO R3 5155 S001591 3E 6A SUB #08H+02H 5156 S001593 0B 02' BMI M_PLSCRL_0150 ;右スクロール最大値オーバー？ ( no:M_PLSCRL_0150 ) 5157 S001595 01 NOP 5158 ; 5159 ;-------------- スクロール最大値へ補正 ------------------ 5160 M_PLSCRL_0100 5161 S001596 63 SUB R3 5162 ; 5163 M_PLSCRL_0150 5164 S001597 9E LOB ;スクロール値（Ｈ）←０ 5165 ; 5166 ;;;; LM R3,CSP_SCRL_FG 5167 ;;;; MOVES R3,R3 5168 ;;;; BNE M_PLSCRL_0160 ;スクロール基準特殊？ ( yes:M_PLSCRL_0160 ) 5169 S001598 4D SWAP 5170 ;;;;; 5171 ;;;; LMS R3,CCCHGFG 5172 ;;;; MOVES R3,R3 5173 ;;;; BNE M_PLSCRL_0210 ;絶対スクロール？ ( yes:M_PLSCRL_0210 ) 5174 ;;;; NOP ;スクロール値×１００Ｈ 5175 ;;;;; 5176 ;;;;M_PLSCRL_0160 5177 S001599 3D C1 XOR R1 5178 S00159B 0A 02' BPL M_PLSCRL_0200 ;プレイヤー移動逆？ ( no:M_PLSCRL_0200 ) 5179 S00159D 01 NOP 5180 ; 5181 S00159E B1 FROM R1 ;[ IBT R0,#0 ] 5182 M_PLSCRL_0200 5183 S00159F 3D C1 XOR R1 5184 S0015A1 61 SUB R1 5185 S0015A2 13 TO R3 5186 S0015A3 3D C1 XOR R1 5187 S0015A5 0A 03' BPL M_PLSCRL_0250 ;プレイヤー移動値オーバー？ ( yes:M_PLSCRL_0250 ) 5188 S0015A7 51 ADD R1 5189 ; 5190 M_PLSCRL_0210 5191 S0015A8 20 11 MOVE R1,R0 ;(R1) <-- スクロール値 5192 ; 5193 M_PLSCRL_0250 5194 S0015AA 3D F0 1E0C LM R0,CESCCH1L 5195 S0015AE 9E LOB 5196 S0015AF 51 ADD R1 ;(C) 5197 S0015B0 90 SBK ;[ SM R0,CESCCH1L ] 5198 S0015B1 C0 HIB 5199 S0015B2 95 SEX 5200 S0015B3 3D A1 4A LMS R1,CESCCH1 5201 S0015B6 51 ADD R1 5202 ; 5203 S0015B7 3D F1 1E18 LM R1,CPLSCRL_MINX 5204 S0015BB 61 SUB R1 5205 S0015BC 0A 08' BPL M_PLSCRL_0260 ;スクロールカウンターＨ最小値オーバー？ ( no:M_PLSCRL_0260 ) 5206 S0015BE 51 ADD R1 5207 ; 5208 S0015BF 60 SUB R0 5209 S0015C0 3E F0 1E0C SM R0,CESCCH1L ;スクロールカウンターＨ（Ｌ）クリアー 5210 S0015C4 21 10 MOVE R0,R1 5211 M_PLSCRL_0260 5212 S0015C6 3D F1 1E1A LM R1,CPLSCRL_MAXX 5213 S0015CA 61 SUB R1 5214 S0015CB 0B 08' BMI M_PLSCRL_0270 ;スクロールカウンターＨ最大値オーバー？ ( no:M_PLSCRL_0270 ) 5215 S0015CD 51 ADD R1 5216 ; 5217 S0015CE 60 SUB R0 5218 S0015CF 3E F0 1E0C SM R0,CESCCH1L ;スクロールカウンターＨ（Ｌ）クリアー 5219 S0015D3 21 10 MOVE R0,R1 5220 M_PLSCRL_0270 5221 S0015D5 20 11 MOVE R1,R0 ;(R1) <-- 新スクロールカウンターＨ 5222 ; 5223 ;-------------- スクロールカウンターＶセット ---------------------------- 5224 S0015D7 3D F0 1E2A LM R0,CSP_SCRL_FG 5225 S0015DB 3E 60 SUB #0 5226 S0015DD 09 21' BEQ M_PLSCRL_0280 ;スクロール基準特殊？ ( no:M_PLSCRL_0280 ) 5227 S0015DF 01 NOP 5228 ; 5229 ;-------------- スクロール基準特殊セット ------------------------ 5230 S0015E0 0B 16' BMI M_PLSCRL_0272 5231 S0015E2 01 NOP 5232 ; 5233 S0015E3 3D F2 1E38 LM R2,CSP_SCRL_YSP 5234 S0015E7 B2 FROM R2 5235 S0015E8 3D 96 DIV2 5236 S0015EA 3D 96 DIV2 5237 S0015EC 12 TO R2 ;(R2) <-- スクロール基準特殊Ｙスピード×１．２５ 5238 S0015ED 52 ADD R2 5239 S0015EE FD 0000 IWT R13,#000H ;(R13) <-- スクロール最低Ｙスピード 5240 S0015F1 3D F0 1E30 LM R0,CSP_SCRL_YPS 5241 S0015F5 05 31' BRA M_PLSCRL_0290 5242 S0015F7 01 NOP 5243 ; 5244 0015F8 M_PLSCRL_0272 EQU $ 5245 S0015F8 A3 00 IBT R3,#0 ;(R3) <-- スクロール値 5246 S0015FA A2 00 IBT R2,#0 ;(R2) <-- スクロールＹスピード 5247 mDJMP M_PLSCRL_0350 5247+ S0015FC FF 170D' IWT R15, #M_PLSCRL_0350 5247+ S0015FF 01 NOP 5248 ; 5249 ;-------------- プレイヤーＹ移動値計算 -------------------------- 5250 M_PLSCRL_0280 5251 S001600 3D F0 1E14 LM R0,CPLYSDR_OLD 5252 S001604 12 TO R2 5253 S001605 9E LOB 5254 S001606 3D F0 1E16 LM R0,CPLYPSL_OLD 5255 S00160A 9E LOB 5256 S00160B 4D SWAP 5257 S00160C 12 TO R2 ;(R2) <-- 前回プレイヤーＹ座標（小数付き） 5258 S00160D C2 OR R2 5259 ; 5260 S00160E 3D A0 47 LMS R0,CPLYSDR 5261 S001611 13 TO R3 5262 S001612 9E LOB 5263 S001613 3D A0 48 LMS R0,CPLYPSL 5264 S001616 9E LOB 5265 S001617 4D SWAP 5266 S001618 C3 OR R3 ;(R0) <-- 現在プレイヤーＹ座標（小数付き） 5267 S001619 62 SUB R2 5268 S00161A 20 12 MOVE R2,R0 5269 S00161C 3D 96 DIV2 5270 S00161E 3D 96 DIV2 5271 S001620 12 TO R2 ;(R2) <-- プレイヤーＹ移動値×１．２５ 5272 S001621 52 ADD R2 5273 ;;;; ADD R0 5274 S001622 FD 0200 IWT R13,#0200H ;(R13) <-- スクロール最低Ｘスピード 5275 ; 5276 ;-------------- Ｖスクロール値計算 ------------------------------ 5277 S001625 3D A0 48 LMS R0,CPLYPSL 5278 M_PLSCRL_0290 5279 S001628 3D A3 4E LMS R3,CESCCV1 5280 S00162B 63 SUB R3 5281 S00162C 3D F4 1E22 LM R4,CPLSCRL_CY ;(R4) <-- プレイヤースクロール基点Ｙ位置 5282 S001630 13 TO R3 ;(R3) <-- スクロール値 5283 S001631 64 SUB R4 5284 S001632 0B 07' BMI M_PLSCRL_0290C ;上へスクロール？ ( yes:M_PLSCRL_0290C ) 5285 S001634 23 WITH R3 5286 ; 5287 S001635 3E 68 SUB #08H 5288 S001637 0A 02' BPL M_PLSCRL_0290C ;下へスクロール？ ( yes:M_PLSCRL_0290C ) 5289 S001639 13 TO R3 5290 ; 5291 S00163A 60 SUB R0 5292 M_PLSCRL_0290C 5293 S00163B 3D F0 1E2A LM R0,CSP_SCRL_FG 5294 S00163F 3E 60 SUB #0 5295 S001641 09 05' BEQ M_PLSCRL_02900 ;スクロール基準特殊？ ( no:M_PLSCRL_02900 ) 5296 S001643 01 NOP 5297 ; 5298 mDJMP M_PLSCRL_0350 5298+ S001644 FF 170D' IWT R15, #M_PLSCRL_0350 5298+ S001647 01 NOP 5299 ; 5300 M_PLSCRL_02900 5301 ; 5302 ;-------------- Ｖスクロール中心位置変更チェック -------- 5303 S001648 3D F5 0071 LM R5,CMKEYC1 5304 S00164C B5 FROM R5 5305 S00164D 3F 7C BIC #0000000000001100B ;[ AND #1111111111110011B ] 5306 S00164F 3D AE 54 LMS R14,CPLXSPD 5307 S001652 CE OR R14 5308 S001653 3D AE 60 LMS R14,CPLJUMP 5309 S001656 CE OR R14 5310 S001657 08 31' BNE M_PLSCRL_0292 ;Ｖスクロール中心位置変更ＯＫ？ ( no:M_PLSCRL_0292 ) 5311 S001659 60 SUB R0 ;[ IBT R0,#0 ] 5312 ; 5313 S00165A 3D A0 57 LMS R0,CPLTYPE 5314 S00165D 3E 64 SUB #P_MOGURA 5315 S00165F 09 29' BEQ M_PLSCRL_0292 ;モグラ？ ( yes:M_PLSCRL_0292 ) 5316 S001661 B5 FROM R5 5317 ; 5318 S001662 3E 7C AND #0000000000001100B 5319 S001664 09 1D' BEQ M_PLSCRL_02910 ;Ｖスクロール中心位置変更？ ( no:M_PLSCRL_02910 ) 5320 S001666 60 SUB R0 ;[ IBT R0,#0 ] 5321 ; 5322 S001667 3D F0 1E24 LM R0,CPLSCRL_TM ;[ * SBK ] 5323 S00166B D0 INC R0 5324 S00166C A4 10 IBT R4,#010H 5325 S00166E 64 SUB R4 5326 S00166F 0C 12' BCC M_PLSCRL_02910 ;ウェイト？ ( yes:M_PLSCRL_02910 ) 5327 S001671 54 ADD R4 5328 ; 5329 S001672 F4 00A0 IWT R4,#080H+20H ;(R4) <-- 上を向いたときのＶスクロール中心位置 5330 S001675 B5 FROM R5 5331 S001676 3E 78 AND #0000000000001000B 5332 S001678 08 03' BNE M_PLSCRL_0291 ;上を向く？ ( yes:M_PLSCRL_0291 ) 5333 S00167A 01 NOP 5334 ; 5335 S00167B A4 64 IBT R4,#044H+20H ;(R4) <-- 下を向いたときのＶスクロール中心位置 5336 M_PLSCRL_0291 5337 S00167D 60 SUB R0 ;[ IBT R0,#0 ] 5338 S00167E 90 SBK ;[ SM R0,CPLSCRL_TM ] Ｖスクロール中心位置変更ウェイトカウンターセット 5339 S00167F 24 WITH R4 ;[ MOVE R0,R4 ] 5340 S001680 05 1A' BRA M_PLSCRL_02930 5341 S001682 10 TO R0 5342 ; 5343 M_PLSCRL_02910 5344 S001683 3E F0 1E24 SM R0,CPLSCRL_TM ;Ｖスクロール中心位置変更ウェイトカウンターセット 5345 S001687 05 17' BRA M_PLSCRL_0294 5346 S001689 01 NOP 5347 ; 5348 M_PLSCRL_0292 5349 S00168A 3E F0 1E24 SM R0,CPLSCRL_TM ;Ｖスクロール中心位置変更ウェイトカウンターセット 5350 ; 5351 ;-------------- Ｖスクロール中心位置リセットチェック ---- 5352 00168E M_PLSCRL_0293 EQU $ 5353 S00168E 23 B3 MOVES R3,R3 5354 S001690 09 68' BEQ M_PLSCRL_0330 ;スクロール値＝０？ ( yes:M_PLSCRL_0330 ) 5355 S001692 01 NOP 5356 ; 5357 ;;;; IBT R0,#044H 5358 S001693 A0 64 IBT R0,#044H+20H 5359 S001695 64 SUB R4 5360 S001696 15 TO R5 5361 S001697 3D C3 XOR R3 5362 S001699 0A 05' BPL M_PLSCRL_0294 ;Ｖスクロール中心位置変更ＯＫ？ ( no:M_PLSCRL_0294 ) 5363 S00169B 54 ADD R4 5364 ; 5365 M_PLSCRL_02930 5366 S00169C 3E F0 1E22 SM R0,CPLSCRL_CY ;プレイヤースクロール基点Ｙ位置リセット 5367 ; 5368 M_PLSCRL_0294 5369 S0016A0 23 B3 MOVES R3,R3 5370 S0016A2 0A 56' BPL M_PLSCRL_0330 ;上へスクロール？ ( no:M_PLSCRL_0330 ) 5371 S0016A4 01 NOP 5372 ; 5373 ;-------------- 上スクロールＯＫチェック ---------------- 5374 S0016A5 3D A0 60 LMS R0,CPLJUMP 5375 S0016A8 3E 60 SUB #0 5376 S0016AA 09 23' BEQ M_PLSCRL_0300 ;プレイヤー着地？ ( yes:M_PLSCRL_0300 ) 5377 S0016AC D0 INC R0 ;[ R0 <- !=0 : スクロールＯＫフラグ”ＯＮ”] 5378 ; 5379 S0016AD 3D A0 6A LMS R0,CPLDOSN 5380 S0016B0 E0 DEC R0 5381 S0016B1 0A 1C' BPL M_PLSCRL_0300 ;”ドスーン！！”中？ ( yes:M_PLSCRL_0300 ) 5382 S0016B3 D0 INC R0 5383 ; 5384 ;-------------- 敵踏んずけ”ドスーンチェック ---- 5385 S0016B4 3D F0 1E22 LM R0,CPLSCRL_CY 5386 ;;;; IBT R4,#030H 5387 S0016B8 A4 50 IBT R4,#030H+20H 5388 S0016BA 64 SUB R4 5389 S0016BB 14 TO R4 5390 S0016BC 53 ADD R3 5391 S0016BD 0A 1C' BPL M_PLSCRL_0310 ;上スクロールチェックＹ位置？ ( no:M_PLSCRL_0310 ) 5392 S0016BF 01 NOP 5393 ; 5394 S0016C0 3D A0 69 LMS R0,CPLSPJP 5395 S0016C3 F5 8002 IWT R5,#02H+8000H 5396 S0016C6 65 SUB R5 5397 S0016C7 0C 12' BCC M_PLSCRL_0310 ;敵踏んずけ”ドスーン！！”中？ ( no:M_PLSCRL_0310 ) 5398 S0016C9 01 NOP 5399 ; 5400 S0016CA 24 13 MOVE R3,R4 5401 S0016CC 05 40' BRA M_PLSCRL_0350+1 5402 S0016CE B3 FROM R3 5403 ; 5404 M_PLSCRL_0300 5405 S0016CF 3E F0 1E0A SM R0,CSCRONF ;スクロールＯＫフラグ”ＯＮ” 5406 ;;;; IWT R0,#-0200H ;(R0) <-- スクロールＯＫ！！ 5407 S0016D3 BD FROM R13 5408 S0016D4 4F NOT 5409 S0016D5 D0 INC R0 ;(R0) <-- スクロールＯＫ！！ 5410 S0016D6 62 SUB R2 5411 S0016D7 0A 02' BPL M_PLSCRL_0310 ;プレイヤー移動量小さい？ ( no:M_PLSCRL_0310 ) 5412 S0016D9 12 TO R2 5413 ; 5414 S0016DA 52 ADD R2 5415 M_PLSCRL_0310 5416 S0016DB 3D F0 1E0A LM R0,CSCRONF 5417 S0016DF 3D A4 63 LMS R4,CPLSWIM 5418 S0016E2 C4 OR R4 5419 S0016E3 3D A4 A7 LMS R4,CCCHGFG 5420 S0016E6 C4 OR R4 5421 S0016E7 3D A4 6D LMS R4,CPLKAID 5422 S0016EA C4 OR R4 5423 S0016EB 08 20' BNE M_PLSCRL_0350 ;スクロールＯＫ？ ( yes:M_PLSCRL_0350 ) 5424 S0016ED 01 NOP 5425 ; 5426 S0016EE 3D A0 57 LMS R0,CPLTYPE 5427 S0016F1 3E 66 SUB #6 ;[ ヘリコプター？ ] 5428 S0016F3 09 18' BEQ M_PLSCRL_0350 ;スクロールＯＫ？ ( yes:M_PLSCRL_0350 ) 5429 S0016F5 01 NOP 5430 ; 5431 S0016F6 13 TO R3 ;[ IBT R3,#0 ] 5432 S0016F7 05 14' BRA M_PLSCRL_0350 5433 S0016F9 60 SUB R0 5434 ; 5435 ;-------------- 下スクロールチェック -------------------- 5436 M_PLSCRL_0330 5437 S0016FA 3D A0 60 LMS R0,CPLJUMP 5438 S0016FD 3E 60 SUB #0 5439 S0016FF 08 0C' BNE M_PLSCRL_0350 ;プレイヤージャンプ中？ ( yes:M_PLSCRL_0350 ) 5440 S001701 60 SUB R0 ;[ IBT R0,#0 ] 5441 ; 5442 S001702 3E F0 1E0A SM R0,CSCRONF ;スクロールＯＫフラグ”ＯＦＦ” 5443 ; 5444 ;;;; LM R0,CPLSCRL_CY 5445 ;;;; IWT R4,#098H 5446 ;;;; SUB R4 5447 ;;;; TO R4 5448 ;;;; ADD R3 5449 ;;;; BMI M_PLSCRL_0350 ;下スクロールチェックＹ位置？ ( no:M_PLSCRL_0350 ) 5450 ;;;; NOP 5451 ; 5452 ;;;; IWT R0,#0100H ;(R0) <-- スクロールＯＫ！！ 5453 ;;;; IWT R0,#0200H ;(R0) <-- スクロールＯＫ！！ 5454 S001706 BD FROM R13 5455 S001707 62 SUB R2 5456 S001708 0B 03' BMI M_PLSCRL_0350 ;プレイヤー移動量小さい？ ( no:M_PLSCRL_0350 ) 5457 S00170A 52 ADD R2 5458 ; 5459 S00170B 20 12 MOVE R2,R0 5460 M_PLSCRL_0350 5461 S00170D B3 FROM R3 5462 S00170E 3E 5A ADD #08H+02H ;[ 08H+02H:スクロール最大値 ] 5463 S001710 0B 06' BMI M_PLSCRL_0400 ;上スクロール最大値オーバー？ ( yes:M_PLSCRL_0400 ) 5464 S001712 B3 FROM R3 5465 ; 5466 S001713 3E 6A SUB #08H+02H 5467 S001715 0B 03' BMI M_PLSCRL_0450 ;下スクロール最大値オーバー？ ( no:M_PLSCRL_0450 ) 5468 S001717 01 NOP 5469 ; 5470 ;-------------- スクロール最大値へ補正 ------------------ 5471 M_PLSCRL_0400 5472 S001718 23 WITH R3 5473 S001719 60 SUB R0 5474 ; 5475 M_PLSCRL_0450 5476 S00171A B3 FROM R3 5477 S00171B 9E LOB ;スクロール値（Ｈ）←０ 5478 ; 5479 S00171C 3D F3 1E2A LM R3,CSP_SCRL_FG 5480 S001720 23 B3 MOVES R3,R3 5481 ;;@;; BNE M_PLSCRL_0460 ;スクロール基準特殊？ ( yes:M_PLSCRL_0460 ) 5482 S001722 4D SWAP 5483 ; 5484 ;;@;; LMS R3,CCCHGFG 5485 ;;@;; MOVES R3,R3 5486 ;;@;; BNE M_PLSCRL_0510 ;絶対スクロール？ ( yes:M_PLSCRL_0510 ) 5487 ;;@;; NOP ;スクロール値×１００Ｈ 5488 ;;@;;; 5489 ;;@;;M_PLSCRL_0460 5490 S001723 3D C2 XOR R2 5491 S001725 0A 02' BPL M_PLSCRL_0500 ;プレイヤー移動逆？ ( no:M_PLSCRL_0500 ) 5492 S001727 01 NOP 5493 ; 5494 S001728 B2 FROM R2 ;[ IBT R0,#0 ] 5495 M_PLSCRL_0500 5496 S001729 3D C2 XOR R2 5497 S00172B 62 SUB R2 5498 S00172C 13 TO R3 5499 S00172D 3D C2 XOR R2 5500 S00172F 0A 03' BPL M_PLSCRL_0550 ;プレイヤー移動値オーバー？ ( yes:M_PLSCRL_0550 ) 5501 S001731 52 ADD R2 5502 ; 5503 M_PLSCRL_0510 5504 S001732 20 12 MOVE R2,R0 ;(R1) <-- スクロール値 5505 ; 5506 M_PLSCRL_0550 5507 S001734 3D F0 1E0E LM R0,CESCCV1L 5508 S001738 9E LOB 5509 S001739 52 ADD R2 ;(C) 5510 S00173A 90 SBK ;[ SM R0,CESCCV1L ] 5511 S00173B C0 HIB 5512 S00173C 95 SEX 5513 S00173D 3D A2 4E LMS R2,CESCCV1 5514 S001740 52 ADD R2 5515 ; 5516 S001741 3D F2 1E1C LM R2,CPLSCRL_MINY 5517 S001745 62 SUB R2 5518 S001746 0A 08' BPL M_PLSCRL_0560 ;スクロールカウンターＶ最小値オーバー？ ( no:M_PLSCRL_0560 ) 5519 S001748 52 ADD R2 5520 ; 5521 S001749 60 SUB R0 5522 S00174A 3E F0 1E0E SM R0,CESCCV1L ;スクロールカウンターＶ（Ｌ）クリアー 5523 S00174E 22 10 MOVE R0,R2 5524 M_PLSCRL_0560 5525 S001750 3D F2 1E1E LM R2,CPLSCRL_MAXY 5526 S001754 62 SUB R2 5527 S001755 0B 08' BMI M_PLSCRL_0570 ;スクロールカウンターＶ最大値オーバー？ ( no:M_PLSCRL_0570 ) 5528 S001757 52 ADD R2 5529 ; 5530 S001758 60 SUB R0 5531 S001759 3E F0 1E0E SM R0,CESCCV1L ;スクロールカウンターＶ（Ｌ）クリアー 5532 S00175D 22 10 MOVE R0,R2 5533 M_PLSCRL_0570 5534 ;;;; IBT R2,#01CH ;(R2) <-- 縦画面サイズ補正値 5535 S00175F A2 0C IBT R2,#01CH-10H ;(R2) <-- 縦画面サイズ補正値 5536 S001761 12 TO R2 ;(R2) <-- 新スクロールカウンターＶ 5537 S001762 62 SUB R2 5538 ; 5539 ;-------------- スクロールＢＧチェック ---------------------------------- 5540 S001763 A5 00 IBT R5,#0 ;(R5) <-- ＢＧチェック情報フラグ 5541 S001765 F6 0CAA IWT R6,#CUNBUFAD ;(R6) <-- コースデータ画面情報バッファポインター 5542 ; 5543 S001768 F0 00FF IWT R0,#0FFH 5544 S00176B 13 TO R3 ;(R3) <-- 新スクロールカウンターＨの右点 5545 S00176C 51 ADD R1 5546 S00176D 14 TO R4 ;(R4) <-- 新スクロールカウンターＶの下点 5547 S00176E 52 ADD R2 5548 ; 5549 ;-------------- 左上点ＢＧチェック ------------------------------ 5550 S00176F 20 B2 MOVES R0,R2 5551 S001771 0A 02' BPL M_PLSCRL_0580 5552 S001773 C0 HIB 5553 ; 5554 S001774 60 SUB R0 5555 M_PLSCRL_0580 5556 S001775 50 ADD R0 5557 S001776 50 ADD R0 5558 S001777 50 ADD R0 5559 S001778 17 TO R7 ;(R7) <-- スクロールカウンターＶの上点（Ｈ） 5560 S001779 50 ADD R0 5561 S00177A B1 FROM R1 5562 S00177B C0 HIB 5563 S00177C C7 OR R7 5564 S00177D 56 ADD R6 5565 S00177E 3D 40 LDB (R0) 5566 S001780 95 SEX 5567 S001781 0B 03' BMI M_PLSCRL_0600 ;スクロールＯＫ画面？ ( no:M_PLSCRL_0600 ) 5568 S001783 01 NOP 5569 ; 5570 S001784 A5 02 IBT R5,#2 ;[ INC R5 & ASL R5 ] 5571 ; 5572 ;-------------- 右上点ＢＧチェック ------------------------------ 5573 M_PLSCRL_0600 5574 S001786 B3 FROM R3 5575 S001787 C0 HIB 5576 S001788 C7 OR R7 5577 S001789 56 ADD R6 5578 S00178A 3D 40 LDB (R0) 5579 S00178C 95 SEX 5580 S00178D 0B 02' BMI M_PLSCRL_0650 ;スクロールＯＫ画面？ ( no:M_PLSCRL_0650 ) 5581 S00178F 01 NOP 5582 ; 5583 S001790 D5 INC R5 5584 ; 5585 ;-------------- 左下点ＢＧチェック ------------------------------ 5586 M_PLSCRL_0650 5587 S001791 25 WITH R5 ;[ ASL R5 ] 5588 S001792 55 ADD R5 5589 ; 5590 S001793 B4 FROM R4 5591 S001794 C0 HIB 5592 S001795 50 ADD R0 5593 S001796 50 ADD R0 5594 S001797 50 ADD R0 5595 S001798 17 TO R7 5596 S001799 50 ADD R0 5597 S00179A B1 FROM R1 5598 S00179B C0 HIB 5599 S00179C C7 OR R7 5600 S00179D 56 ADD R6 5601 S00179E 3D 40 LDB (R0) 5602 S0017A0 95 SEX 5603 S0017A1 0B 02' BMI M_PLSCRL_0700 ;スクロールＯＫ画面？ ( no:M_PLSCRL_0700 ) 5604 S0017A3 01 NOP 5605 ; 5606 S0017A4 D5 INC R5 5607 ; 5608 ;-------------- 右下点ＢＧチェック ------------------------------ 5609 M_PLSCRL_0700 5610 S0017A5 25 WITH R5 ;[ ASL R5 ] 5611 S0017A6 55 ADD R5 5612 ; 5613 S0017A7 B3 FROM R3 5614 S0017A8 C0 HIB 5615 S0017A9 C7 OR R7 5616 S0017AA 56 ADD R6 5617 S0017AB 3D 40 LDB (R0) 5618 S0017AD 95 SEX 5619 S0017AE 0B 02' BMI M_PLSCRL_0750 ;スクロールＯＫ画面？ ( no:M_PLSCRL_0750 ) 5620 S0017B0 01 NOP 5621 ; 5622 S0017B1 D5 INC R5 5623 ; 5624 M_PLSCRL_0750 5625 ; 5626 ;-------------- スクロールカウンター補正 ------------------------ 5627 S0017B2 A0 00' IBT R0,#BANK PSCR_HOSFG 5628 S0017B4 3F DF ROMB 5629 ; 5630 S0017B6 F0 14A7' IWT R0,#PSCR_HOSFG 5631 S0017B9 55 ADD R5 ;x3 5632 S0017BA 55 ADD R5 ; 5633 S0017BB 1E TO R14 ;(R14) <-- スクロールカウンター補正タイプデータポインター 5634 S0017BC 55 ADD R5 ; 5635 S0017BD EF GETB 5636 S0017BE DE INC R14 5637 ; 5638 S0017BF E0 DEC R0 5639 S0017C0 0A 05' BPL M_PLSCRL_0760 ;補正？( yes:M_PLSCRL_0760 ) 5640 S0017C2 D0 INC R0 5641 ; 5642 mDJMP M_PLSCRL_1200 ;補正？( no:M_PLSCRL_1200 ) 5642+ S0017C3 FF 184E' IWT R15, #M_PLSCRL_1200 5642+ S0017C6 01 NOP 5643 ; 5644 M_PLSCRL_0760 5645 S0017C7 03 LSR 5646 S0017C8 0D 24' BCS M_PLSCRL_0850 ;４５度補正？ ( yes:M_PLSCRL_0850 ) 5647 S0017CA 03 LSR 5648 ; 5649 S0017CB 0C 13' BCC M_PLSCRL_0800 ;Ｈスクロールカウンター補正？ ( no:M_PLSCRL_0800 ) 5650 S0017CD 01 NOP 5651 ; 5652 ;-------------- Ｈスクロールカウンター補正 -------------- 5653 S0017CE 20 16 MOVE R6,R0 ;(R6) <-- (R0) 5654 ; 5655 S0017D0 60 SUB R0 5656 S0017D1 3E F0 1E0C SM R0,CESCCH1L ;スクロールカウンターＨ（Ｌ）クリアー 5657 ; 5658 S0017D5 F0 0080 IWT R0,#080H 5659 S0017D8 51 ADD R1 5660 S0017D9 C0 HIB 5661 S0017DA 11 TO R1 ;(R1) <-- 補正Ｈスクロールカウンター 5662 S0017DB 4D SWAP 5663 ; 5664 S0017DC E6 DEC R6 5665 S0017DD 0B 6F' BMI M_PLSCRL_1200 ;Ｖスクロールカウンター補正？ ( no:M_PLSCRL_1200 ) 5666 S0017DF 01 NOP 5667 ; 5668 ;-------------- Ｖスクロールカウンター補正 -------------- 5669 M_PLSCRL_0800 5670 S0017E0 60 SUB R0 5671 S0017E1 3E F0 1E0E SM R0,CESCCV1L ;スクロールカウンターＶ（Ｌ）クリアー 5672 ; 5673 S0017E5 F0 0080 IWT R0,#080H 5674 S0017E8 52 ADD R2 5675 S0017E9 C0 HIB 5676 S0017EA 12 TO R2 ;(R2) <-- 補正Ｖスクロールカウンター 5677 S0017EB 05 61' BRA M_PLSCRL_1200 5678 S0017ED 4D SWAP 5679 ; 5680 ;-------------- ４５度補正 ------------------------------ 5681 M_PLSCRL_0850 5682 S0017EE 13 TO R3 ;(R3) <-- ４５度Ｘ補正方向 5683 S0017EF EF GETB 5684 S0017F0 DE INC R14 5685 ; 5686 S0017F1 21 10 MOVE R0,R1 5687 S0017F3 E3 DEC R3 5688 S0017F4 0B 02' BMI M_PLSCRL_0900 5689 S0017F6 D3 INC R3 5690 ; 5691 S0017F7 4F NOT 5692 M_PLSCRL_0900 5693 S0017F8 17 TO R7 ;(R7) <-- ＡＢＳ（オフセットＸ） 5694 S0017F9 9E LOB 5695 ; 5696 S0017FA 15 TO R5 ;(R5) <-- ４５度Ｙ補正方向 5697 S0017FB EF GETB 5698 ; 5699 S0017FC 22 10 MOVE R0,R2 5700 S0017FE E5 DEC R5 5701 S0017FF 0B 02' BMI M_PLSCRL_0950 5702 S001801 D5 INC R5 5703 ; 5704 S001802 4F NOT 5705 M_PLSCRL_0950 5706 S001803 9E LOB 5707 S001804 20 18 MOVE R8,R0 ;(R8) <-- ＡＢＳ（オフセットＹ） 5708 ; 5709 S001806 57 ADD R7 ;(R0) <-- （オフセットＸ）＋（オフセットＹ） 5710 S001807 F6 0100 IWT R6,#0FFH+1 ;[ 0FFH : ４５度補正エリアサイズ ] 5711 S00180A 66 SUB R6 5712 S00180B 0D 41' BCS M_PLSCRL_1200 ;補正エリア？ ( no:M_PLSCRL_1200 ) 5713 S00180D 56 ADD R6 5714 ; 5715 S00180E 50 ADD R0 ;x2 vvv******* warn :value out of range 5716 S00180F F6 2200 IWT R6,#DIVBUF 5717 S001812 56 ADD R6 5718 S001813 40 LDW (R0) 5719 S001814 F6 7F80 IWT R6,#0FFH*080H ;[ 0FFH : ４５度補正エリアサイズ ] 5720 S001817 3D 9F LMULT 5721 S001819 24 WITH R4 ;[ ASL R4 ] 5722 S00181A 54 ADD R4 ; 5723 S00181B 04 ROL 5724 S00181C 24 WITH R4 ;[ ASL R4 ] 5725 S00181D 54 ADD R4 ; 5726 S00181E 16 TO R6 ;(R6) <-- 比率 5727 S00181F 3F 50 ADC #0 5728 ; 5729 S001821 B7 FROM R7 5730 S001822 3D 9F LMULT 5731 S001824 F0 0080 IWT R0,#080H ;[ 四捨五入 ] 5732 S001827 E3 DEC R3 5733 S001828 0B 02' BMI M_PLSCRL_1000 5734 S00182A 54 ADD R4 5735 ; 5736 S00182B 4F NOT 5737 M_PLSCRL_1000 5738 S00182C 17 TO R7 ;(R7) <-- 補正オフセットＸ 5739 S00182D C0 HIB 5740 S00182E B1 FROM R1 5741 S00182F C0 HIB 5742 S001830 4D SWAP 5743 S001831 11 TO R1 ;(R1) <-- 補正スクロールカウンターＨ 5744 S001832 C7 OR R7 5745 ; 5746 S001833 B8 FROM R8 5747 S001834 3D 9F LMULT 5748 S001836 F0 0080 IWT R0,#080H ;[ 四捨五入 ] 5749 S001839 E5 DEC R5 5750 S00183A 0B 02' BMI M_PLSCRL_1050 5751 S00183C 54 ADD R4 5752 ; 5753 S00183D 4F NOT 5754 M_PLSCRL_1050 5755 S00183E 18 TO R8 ;(R8) <-- 補正オフセットＹ 5756 S00183F C0 HIB 5757 S001840 B2 FROM R2 5758 S001841 C0 HIB 5759 S001842 4D SWAP 5760 S001843 12 TO R2 ;(R2) <-- 補正スクロールカウンターＶ 5761 S001844 C8 OR R8 5762 ; 5763 S001845 60 SUB R0 5764 S001846 3E F0 1E0C SM R0,CESCCH1L ;スクロールカウンターＨ（Ｌ）クリアー 5765 S00184A 3E F0 1E0E SM R0,CESCCV1L ;スクロールカウンターＶ（Ｌ）クリアー 5766 ; 5767 M_PLSCRL_1200 5768 S00184E 3E A1 4A SMS R1,CESCCH1 ;スクロールカウンターＨセット 5769 S001851 3E A2 4E SMS R2,CESCCV1 ;スクロールカウンターＶセット 5770 ; 5771 S001854 00 STOP 5772 S001855 01 NOP 5773 ; 5774 ; 5775 ;-------------------------------------------------------- 5776 ;- 甲羅サーチ - 5777 ;- (R3) <- X ポジション - 5778 ;- (R4) <- Y " - 5779 ;- return : (R9) <- 敵インデックス - 5780 ;- 見つからなかったとき (-1) - 5781 ;-------------------------------------------------------- 5782 001856 KOURASEARCH EQU $ 5783 S001856 F1 0000" IWT R1,#KORA0 5784 S001859 F2 0001" IWT R2,#KORA1+1 5785 ; 5786 S00185C A5 00 IBT R5,#00 ; 敵インデックス !! 5787 S00185E A6 10 IBT R6,#CEMOVE 5788 S001860 A8 FF IBT R8,#0FFH 5789 S001862 A9 FF IBT R9,#0FFH 5790 S001864 02 CACHE 5791 S001865 AC 18 IBT R12,#CENNO 5792 S001867 2F 1D MOVE R13,R15 5793 KRSH0000 5794 mLDW0 CENMODE,R5 ; enemy mode read !! 5794+ S001869 F0 0F00 IWT R0,#CENMODE 5794+ S00186C 55 ADD R5 5794+ S00186D 40 LDW (R0) 5795 S00186E 66 SUB R6 5796 S00186F 08 3E' BNE KRSH0080 ; mode move ? [no->KRSH0080] 5797 S001871 01 NOP 5798 ; 5799 mLDW0 CENMYNO,R5 ; enemy name read !! 5799+ S001872 F0 1360 IWT R0,#CENMYNO 5799+ S001875 55 ADD R5 5799+ S001876 40 LDW (R0) 5800 S001877 3F 61 CMP R1 5801 S001879 0C 34' BCC KRSH0080 ; 甲羅 ? [no->KRSH0080] 5802 S00187B 01 NOP 5803 ; 5804 S00187C 3F 62 CMP R2 5805 S00187E 0D 2F' BCS KRSH0080 ; 甲羅 ? [no->KRSH0080] 5806 S001880 01 NOP 5807 ; 5808 mLDW0 CENSHOT,R5 ; enemy shot flag read !! 5808+ S001881 F0 1D38 IWT R0,#CENSHOT 5808+ S001884 55 ADD R5 5808+ S001885 40 LDW (R0) 5809 S001886 3E 60 SUB #00 5810 S001888 08 25' BNE KRSH0080 ; ショット ? [yes->KRSH0080] 5811 S00188A 01 NOP 5812 ; 5813 mLDW0 CENXPSL,R5 ; enemy X position read !! 5813+ S00188B F0 10E2 IWT R0,#CENXPSL 5813+ S00188E 55 ADD R5 5813+ S00188F 40 LDW (R0) 5814 S001890 B3 FROM R3 5815 S001891 60 SUB R0 ; (R0) <- (My X) - (Enemy X) 5816 S001892 0A 03' BPL KRSH0040 ; Plus ? [yes->KRSH0040] 5817 S001894 01 NOP 5818 ; 5819 S001895 4F NOT 5820 S001896 D0 INC R0 5821 KRSH0040 5822 S001897 20 17 MOVE R7,R0 5823 ; 5824 mLDW0 CENYPSL,R5 ; enemy Y position read !! 5824+ S001899 F0 1182 IWT R0,#CENYPSL 5824+ S00189C 55 ADD R5 5824+ S00189D 40 LDW (R0) 5825 S00189E B4 FROM R4 5826 S00189F 60 SUB R0 ; (R0) <- (My Y) - (Enemy Y) 5827 S0018A0 0A 03' BPL KRSH0060 ; Plus ? [yes->KRSH0060] 5828 S0018A2 01 NOP 5829 ; 5830 S0018A3 4F NOT 5831 S0018A4 D0 INC R0 5832 KRSH0060 5833 S0018A5 57 ADD R7 ; (R0) <- 縦横の距離の合計 5834 S0018A6 3F 68 CMP R8 5835 S0018A8 0D 05' BCS KRSH0080 ; 今回の距離の方が近い ? [no->KRSH0080] 5836 S0018AA 01 NOP 5837 ; 5838 S0018AB 20 18 MOVE R8,R0 ; (R8) <- 縦横の距離の合計 5839 S0018AD 25 19 MOVE R9,R5 ; (R9) <- enemy index 5840 KRSH0080 5841 S0018AF 25 WITH R5 5842 S0018B0 3E 54 ADD #04 5843 S0018B2 3C LOOP 5844 S0018B3 01 NOP 5845 ; 5846 S0018B4 00 STOP 5847 S0018B5 01 NOP 5848 ; 5849 ;------------------------------------------------------------------------ 5850 ;- ひまわりリフトＯＡＭセット - 5851 ;- in : - 5852 ;- (R1) <-- 敵インデックス - 5853 ;------------------------------------------------------------------------ 5854 0018B6 HIMWR_OAMST EQU $ 5855 mLDW0 CENOAML,R1 5855+ S0018B6 F0 1362 IWT R0,#CENOAML 5855+ S0018B9 51 ADD R1 5855+ S0018BA 40 LDW (R0) 5856 S0018BB A2 30 IBT R2,#6*8 ;花は後でＯＡＭセット！！ 5857 S0018BD 12 TO R2 ;(R2) <-- ＯＡＭインデックス 5858 S0018BE 52 ADD R2 5859 mLDW0 CENWRK2,R1 5859+ S0018BF F0 19D6 IWT R0,#CENWRK2 5859+ S0018C2 51 ADD R1 5859+ S0018C3 40 LDW (R0) 5860 S0018C4 03 LSR ;1/4 5861 S0018C5 13 TO R3 ;(R3) <-- 高さ 5862 S0018C6 03 LSR ; 5863 mLDW R4,CENWRK4,R1 ;(R4) <-- パターンＮｏ．データ 5863+ S0018C7 F0 19D8 IWT R0,#CENWRK4 5863+ S0018CA 51 ADD R1 5863+ S0018CB 14 TO R4 5863+ S0018CC 40 LDW (R0) 5864 mLDW R5,CENWRK6,R1 ;(R5) <-- ” 5864+ S0018CD F0 1A36 IWT R0,#CENWRK6 5864+ S0018D0 51 ADD R1 5864+ S0018D1 15 TO R5 5864+ S0018D2 40 LDW (R0) 5865 mLDW R9,CENDSXL,R1 ;(R9) <-- 表示Ｘ座標 5865+ S0018D3 F0 1680 IWT R0,#CENDSXL 5865+ S0018D6 51 ADD R1 5865+ S0018D7 19 TO R9 5865+ S0018D8 40 LDW (R0) 5866 mLDW R10,CENDSYL,R1 ;(R10) <-- 表示Ｙ座標 5866+ S0018D9 F0 1682 IWT R0,#CENDSYL 5866+ S0018DC 51 ADD R1 5866+ S0018DD 1A TO R10 5866+ S0018DE 40 LDW (R0) 5867 S0018DF AB 00 IBT R11,#00H ;(R11) <-- ＡＴＴデータ 5868 ; 5869 mLDB0 CENCHRB,R1 5869+ S0018E1 F0 1180 IWT R0,#CENCHRB 5869+ S0018E4 51 ADD R1 5869+ S0018E5 3D 40 LDB (R0) 5870 S0018E7 3E 88 MULT #8 5871 S0018E9 3E A0 00 SMS R0,CWORK ;(CWK0) <-- キャラクターバンク 5872 ; 5873 S0018EC A0 00' IBT R0,#BANK HIMWRC 5874 S0018EE 3F DF ROMB 5875 ; 5876 S0018F0 02 CACHE 5877 ; 5878 HIMWR_OAMST_010 5879 S0018F1 25 WITH R5 ;パターンＮｏ．読み込み 5880 S0018F2 55 ADD R5 5881 S0018F3 24 WITH R4 5882 S0018F4 04 ROL 5883 S0018F5 04 ROL 5884 S0018F6 25 WITH R5 5885 S0018F7 55 ADD R5 5886 S0018F8 24 WITH R4 5887 S0018F9 04 ROL 5888 S0018FA 04 ROL 5889 S0018FB 25 WITH R5 5890 S0018FC 55 ADD R5 5891 S0018FD 24 WITH R4 5892 S0018FE 04 ROL 5893 S0018FF 04 ROL 5894 S001900 3E 77 AND #07H 5895 ; 5896 S001902 23 WITH R3 5897 S001903 3E 68 SUB #8 5898 S001905 0C 66' BCC HIMWR_OAMST_060 ;花付き茎？ ( yes:HIMWR_OAMST_060 ) 5899 S001907 01 NOP 5900 ; 5901 ;-------------- 中間茎 -------------------------------------------------- 5902 S001908 3E 53 ADD #3 ;[ 0:(0-3), 1:(4-7), 2:(8-) ] 5903 S00190A 03 LSR ; 5904 S00190B 03 LSR ; 5905 S00190C FE 19D6' IWT R14,#HIMWRC_M_NO 5906 S00190F 1E TO R14 5907 S001910 5E ADD R14 5908 S001911 1C TO R12 ;(R12) <-- ＯＢＪ使用数 5909 S001912 EF GETB 5910 ; 5911 S001913 3E A4 24 SMS R4,REG4 ;(R4) save 5912 ; 5913 S001916 50 ADD R0 ;x2 5914 S001917 FE 19D9' IWT R14,#HIMWRC_M_ADR 5915 S00191A 1E TO R14 5916 S00191B 5E ADD R14 5917 S00191C EF GETB 5918 S00191D DE INC R14 5919 S00191E 1E TO R14 ;(R14) <-- ＯＢＪデータアドレス 5920 S00191F 3D EF GETBH 5921 ; 5922 S001921 2F 1D MOVE R13,R15 ; loop address set 5923 HIMWR_OAMST_020 5924 S001923 3F EF GETBS 5925 S001925 DE INC R14 5926 ; 5927 S001926 26 BB MOVES R6,R11 5928 S001928 09 05' BEQ HIMWR_OAMST_030 ;H frip ? [ no:HIMWR_OAMST_030 ] 5929 S00192A 01 NOP ;[ * (Z)=1: IBT R9,#0 ] 5930 ; 5931 S00192B 4F NOT 5932 S00192C D0 INC R0 5933 S00192D A6 08 IBT R6,#008H 5934 HIMWR_OAMST_030 5935 S00192F 14 TO R4 5936 S001930 59 ADD R9 ; r4 <- x position 5937 ; 5938 S001931 3F EF GETBS 5939 S001933 DE INC R14 5940 ; 5941 S001934 17 TO R7 5942 S001935 5A ADD R10 ; r7 <- y position 5943 ; 5944 S001936 EF GETB 5945 S001937 DE INC R14 5946 S001938 3D EF GETBH 5947 S00193A DE INC R14 5948 ; 5949 S00193B 18 TO R8 5950 S00193C 3D CB XOR R11 ; R8 <- atoribute & chara No. 5951 ; 5952 S00193E EF GETB ; oamsb 5953 S00193F 3E 72 AND #02H 5954 S001941 08 03' BNE HIMWR_OAMST_050 5955 S001943 01 NOP 5956 ; 5957 S001944 24 WITH R4 5958 S001945 56 ADD R6 5959 HIMWR_OAMST_050 5960 S001946 B4 FROM R4 5961 S001947 32 STW (R2) ; x position 5962 S001948 D2 INC R2 5963 S001949 D2 INC R2 5964 ; 5965 S00194A B7 FROM R7 5966 S00194B 32 STW (R2) ; y position 5967 S00194C D2 INC R2 5968 S00194D D2 INC R2 5969 ; 5970 S00194E 17 TO R7 ; r7 <- sub,data 5971 S00194F 3D EF GETBH 5972 S001951 DE INC R14 5973 ; 5974 S001952 3D A0 00 LMS R0,CWORK0 ;(R0) <-- キャラクターバンク 5975 S001955 58 ADD R8 5976 S001956 32 STW (R2) ; chara No., atoribute 5977 S001957 D2 INC R2 5978 S001958 D2 INC R2 5979 ; 5980 S001959 B7 FROM R7 5981 S00195A 32 STW (R2) ; oamsb,data 5982 S00195B D2 INC R2 5983 ; 5984 S00195C 3C LOOP 5985 S00195D D2 INC R2 5986 ; 5987 S00195E 3D A4 24 LMS R4,REG4 ;(R4) load 5988 ; 5989 S001961 F0 4000 IWT R0,#04000H ;フリップセット 5990 S001964 1B TO R11 5991 S001965 3D CB XOR R11 5992 S001967 A0 20 IBT R0,#020H ;Ｙ座標加算 5993 S001969 2A WITH R10 5994 S00196A 05 85' BRA HIMWR_OAMST_010 5995 S00196C 60 SUB R0 5996 ; 5997 ;-------------- 花付き茎 ------------------------------------------------ 5998 HIMWR_OAMST_060 5999 S00196D B3 FROM R3 6000 S00196E 3E 58 ADD #8 6001 S001970 08 0D' BNE HIMWR_OAMST_062 ;花咲きパターンセットＯＫ？ ( no:HIMWR_OAMST_062 ) 6002 S001972 01 NOP 6003 ; 6004 mLDW0 CENWRK8,R1 ;(R0) <-- 花咲きパターンＮｏ． 6004+ S001973 F0 1A38 IWT R0,#CENWRK8 6004+ S001976 51 ADD R1 6004+ S001977 40 LDW (R0) 6005 S001978 03 LSR ;1/4 6006 S001979 03 LSR ; 6007 S00197A 09 03' BEQ HIMWR_OAMST_062 ;花咲く？ ( no:HIMWR_OAMST_062 ) 6008 S00197C 01 NOP 6009 ; 6010 S00197D 3E 57 ADD #8-1 6011 HIMWR_OAMST_062 6012 S00197F FE 19DF' IWT R14,#HIMWRC_H_NO 6013 S001982 1E TO R14 6014 S001983 5E ADD R14 6015 S001984 1C TO R12 ;(R12) <-- ＯＢＪ使用数 6016 S001985 EF GETB 6017 ; 6018 S001986 50 ADD R0 ;x2 6019 S001987 FE 19EA' IWT R14,#HIMWRC_H_ADR 6020 S00198A 1E TO R14 6021 S00198B 5E ADD R14 6022 S00198C EF GETB 6023 S00198D DE INC R14 6024 S00198E 1E TO R14 ;(R14) <-- ＯＢＪデータアドレス 6025 S00198F 3D EF GETBH 6026 ; 6027 mLDW R2,CENOAML,R1 ;(R2) <-- ＯＡＭインデックス 6027+ S001991 F0 1362 IWT R0,#CENOAML 6027+ S001994 51 ADD R1 6027+ S001995 12 TO R2 6027+ S001996 40 LDW (R0) 6028 ; 6029 S001997 2F 1D MOVE R13,R15 ; loop address set 6030 HIMWR_OAMST_070 6031 S001999 3F EF GETBS 6032 S00199B DE INC R14 6033 ; 6034 S00199C 26 BB MOVES R6,R11 6035 S00199E 09 05' BEQ HIMWR_OAMST_080 ;H frip ? [ no:HIMWR_OAMST_080 ] 6036 S0019A0 01 NOP ;[ * (Z)=1: IBT R9,#0 ] 6037 ; 6038 S0019A1 4F NOT 6039 S0019A2 D0 INC R0 6040 S0019A3 A6 08 IBT R6,#008H 6041 HIMWR_OAMST_080 6042 S0019A5 14 TO R4 6043 S0019A6 59 ADD R9 ; r4 <- x position 6044 ; 6045 S0019A7 3F EF GETBS 6046 S0019A9 DE INC R14 6047 ; 6048 S0019AA 17 TO R7 6049 S0019AB 5A ADD R10 ; r7 <- y position 6050 ; 6051 S0019AC EF GETB 6052 S0019AD DE INC R14 6053 S0019AE 3D EF GETBH 6054 S0019B0 DE INC R14 6055 ; 6056 S0019B1 18 TO R8 6057 S0019B2 3D CB XOR R11 ; R8 <- atoribute & chara No. 6058 ; 6059 S0019B4 EF GETB ; oamsb 6060 S0019B5 3E 72 AND #02H 6061 S0019B7 08 03' BNE HIMWR_OAMST_090 6062 S0019B9 01 NOP 6063 ; 6064 S0019BA 24 WITH R4 6065 S0019BB 56 ADD R6 6066 HIMWR_OAMST_090 6067 S0019BC B4 FROM R4 6068 S0019BD 32 STW (R2) ; x position 6069 S0019BE D2 INC R2 6070 S0019BF D2 INC R2 6071 ; 6072 S0019C0 B7 FROM R7 6073 S0019C1 32 STW (R2) ; y position 6074 S0019C2 D2 INC R2 6075 S0019C3 D2 INC R2 6076 ; 6077 S0019C4 17 TO R7 ; r7 <- sub,data 6078 S0019C5 3D EF GETBH 6079 S0019C7 DE INC R14 6080 ; 6081 S0019C8 3D A0 00 LMS R0,CWORK0 ;(R0) <-- キャラクターバンク 6082 S0019CB 58 ADD R8 6083 S0019CC 32 STW (R2) ; chara No., atoribute 6084 S0019CD D2 INC R2 6085 S0019CE D2 INC R2 6086 ; 6087 S0019CF B7 FROM R7 6088 S0019D0 32 STW (R2) ; oamsb,data 6089 S0019D1 D2 INC R2 6090 ; 6091 S0019D2 3C LOOP 6092 S0019D3 D2 INC R2 6093 ; 6094 S0019D4 00 STOP 6095 S0019D5 01 NOP 6096 ; 6097 ;-------------- 中間茎ＯＡＭセットデータ -------------------------------- 6098 0019D6 HIMWRC_M_NO EQU $ 6099 S0019D6 04 BYTE (HIMWRC_0C-HIMWRC_0B)/5 ;[0] 6100 S0019D7 04 BYTE (HIMWRC_0D-HIMWRC_0C)/5 ;[1] 6101 S0019D8 04 BYTE (HIMWRC_EN-HIMWRC_0D)/5 ;[2] 6102 0019D9 HIMWRC_M_ADR EQU $ 6103 S0019D9 1AC3' WORD HIMWRC_0B ;[0] 6104 S0019DB 1AD7' WORD HIMWRC_0C ;[1] 6105 S0019DD 1AEB' WORD HIMWRC_0D ;[2] 6106 ; 6107 ;-------------- 花付き茎ＯＡＭセットデータ ------------------------------ 6108 0019DF HIMWRC_H_NO EQU $ 6109 S0019DF 01 BYTE (HIMWRC_01-HIMWRC_00)/5 ;[0] 6110 S0019E0 02 BYTE (HIMWRC_02-HIMWRC_01)/5 ;[1] 6111 S0019E1 02 BYTE (HIMWRC_03-HIMWRC_02)/5 ;[2] 6112 S0019E2 02 BYTE (HIMWRC_04-HIMWRC_03)/5 ;[3] 6113 S0019E3 03 BYTE (HIMWRC_05-HIMWRC_04)/5 ;[4] 6114 S0019E4 04 BYTE (HIMWRC_06-HIMWRC_05)/5 ;[5] 6115 S0019E5 04 BYTE (HIMWRC_07-HIMWRC_06)/5 ;[6] 6116 S0019E6 05 BYTE (HIMWRC_08-HIMWRC_07)/5 ;[7] 6117 S0019E7 04 BYTE (HIMWRC_09-HIMWRC_08)/5 ;[8] 6118 S0019E8 06 BYTE (HIMWRC_0A-HIMWRC_09)/5 ;[9] 6119 S0019E9 06 BYTE (HIMWRC_0B-HIMWRC_0A)/5 ;[A] 6120 0019EA HIMWRC_H_ADR EQU $ 6121 S0019EA 1A00' WORD HIMWRC_00 ;[0] 6122 S0019EC 1A05' WORD HIMWRC_01 ;[1] 6123 S0019EE 1A0F' WORD HIMWRC_02 ;[2] 6124 S0019F0 1A19' WORD HIMWRC_03 ;[3] 6125 S0019F2 1A23' WORD HIMWRC_04 ;[4] 6126 S0019F4 1A32' WORD HIMWRC_05 ;[5] 6127 S0019F6 1A46' WORD HIMWRC_06 ;[6] 6128 S0019F8 1A5A' WORD HIMWRC_07 ;[7] 6129 S0019FA 1A73' WORD HIMWRC_08 ;[8] 6130 S0019FC 1A87' WORD HIMWRC_09 ;[9] 6131 S0019FE 1AA5' WORD HIMWRC_0A ;[A] 6132 ; 6133 ;-------------- ＯＢＪデータ -------------------------------------------- 6134 001A00 HIMWRC EQU $ 6135 001A00 HIMWRC_00 EQU $ 6136 S001A00 01 00 BYTE 001H,000H ;[00] 6137 S001A02 0C 22 02 HEX 0C,22,02 6138 ; 6139 001A05 HIMWRC_01 EQU $ 6140 S001A05 04 FC BYTE 004H,0FCH ;[01] 6141 S001A07 0C 22 02 HEX 0C,22,02 6142 S001A0A 03 00 BYTE 003H,000H 6143 S001A0C 00 A2 02 HEX 00,A2,02 6144 ; 6145 001A0F HIMWRC_02 EQU $ 6146 S001A0F 05 F8 BYTE 005H,0F8H ;[02] 6147 S001A11 0C 22 02 HEX 0C,22,02 6148 S001A14 03 00 BYTE 003H,000H 6149 S001A16 00 A2 02 HEX 00,A2,02 6150 ; 6151 001A19 HIMWRC_03 EQU $ 6152 S001A19 06 F4 BYTE 006H,0F4H ;[03] 6153 S001A1B 0C 22 02 HEX 0C,22,02 6154 S001A1E 03 00 BYTE 003H,000H 6155 S001A20 00 A2 02 HEX 00,A2,02 6156 ; 6157 001A23 HIMWRC_04 EQU $ 6158 S001A23 07 F0 BYTE 007H,0F0H ;[04] 6159 S001A25 0C 22 02 HEX 0C,22,02 6160 S001A28 04 FC BYTE 004H,0FCH 6161 S001A2A 1A 22 00 HEX 1A,22,00 6162 S001A2D 03 00 BYTE 003H,000H 6163 S001A2F 00 A2 02 HEX 00,A2,02 6164 ; 6165 001A32 HIMWRC_05 EQU $ 6166 S001A32 04 FC BYTE 004H,0FCH ;[05] 6167 S001A34 0A 22 00 HEX 0A,22,00 6168 S001A37 03 00 BYTE 003H,000H 6169 S001A39 00 A2 02 HEX 00,A2,02 6170 S001A3C 05 EC BYTE 005H,0ECH 6171 S001A3E 0C 62 02 HEX 0C,62,02 6172 S001A41 0B F8 BYTE 00BH,0F8H 6173 S001A43 11 22 00 HEX 11,22,00 6174 ; 6175 001A46 HIMWRC_06 EQU $ 6176 S001A46 FB F7 BYTE 0FBH,0F7H ;[06] 6177 S001A48 08 22 02 HEX 08,22,02 6178 S001A4B 03 00 BYTE 003H,000H 6179 S001A4D 00 A2 02 HEX 00,A2,02 6180 S001A50 03 E8 BYTE 003H,0E8H 6181 S001A52 0C 62 02 HEX 0C,62,02 6182 S001A55 03 F0 BYTE 003H,0F0H 6183 S001A57 00 22 02 HEX 00,22,02 6184 ; 6185 001A5A HIMWRC_07 EQU $ 6186 S001A5A F3 F7 BYTE 0F3H,0F7H ;[07] 6187 S001A5C 06 22 02 HEX 06,22,02 6188 S001A5F FB F7 BYTE 0FBH,0F7H 6189 S001A61 08 22 02 HEX 08,22,02 6190 S001A64 03 00 BYTE 003H,000H 6191 S001A66 00 A2 02 HEX 00,A2,02 6192 S001A69 01 E4 BYTE 001H,0E4H 6193 S001A6B 0C 62 02 HEX 0C,62,02 6194 S001A6E 03 F0 BYTE 003H,0F0H 6195 S001A70 00 22 02 HEX 00,22,02 6196 ; 6197 001A73 HIMWRC_08 EQU $ 6198 S001A73 05 04 BYTE 005H,004H ;[08] 6199 S001A75 0E A2 02 HEX 0E,A2,02 6200 S001A78 05 FC BYTE 005H,0FCH 6201 S001A7A 0E 22 02 HEX 0E,22,02 6202 S001A7D FD FC BYTE 0FDH,0FCH 6203 S001A7F 0E 62 02 HEX 0E,62,02 6204 S001A82 FD 04 BYTE 0FDH,004H 6205 S001A84 0E E2 02 HEX 0E,E2,02 6206 ; 6207 001A87 HIMWRC_09 EQU $ 6208 S001A87 07 07 BYTE 007H,007H ;[09] 6209 S001A89 1B 22 00 HEX 1B,22,00 6210 S001A8C 03 07 BYTE 003H,007H 6211 S001A8E 1B 62 00 HEX 1B,62,00 6212 S001A91 07 06 BYTE 007H,006H 6213 S001A93 0E A2 02 HEX 0E,A2,02 6214 S001A96 07 FA BYTE 007H,0FAH 6215 S001A98 0E 22 02 HEX 0E,22,02 6216 S001A9B FB FA BYTE 0FBH,0FAH 6217 S001A9D 0E 62 02 HEX 0E,62,02 6218 S001AA0 FB 06 BYTE 0FBH,006H 6219 S001AA2 0E E2 02 HEX 0E,E2,02 6220 ; 6221 001AA5 HIMWRC_0A EQU $ 6222 S001AA5 09 08 BYTE 009H,008H ;[0A] 6223 S001AA7 1B 22 00 HEX 1B,22,00 6224 S001AAA 01 08 BYTE 001H,008H 6225 S001AAC 1B 62 00 HEX 1B,62,00 6226 S001AAF 09 08 BYTE 009H,008H 6227 S001AB1 0E A2 02 HEX 0E,A2,02 6228 S001AB4 09 F8 BYTE 009H,0F8H 6229 S001AB6 0E 22 02 HEX 0E,22,02 6230 S001AB9 F9 F8 BYTE 0F9H,0F8H 6231 S001ABB 0E 62 02 HEX 0E,62,02 6232 S001ABE F9 08 BYTE 0F9H,008H 6233 S001AC0 0E E2 02 HEX 0E,E2,02 6234 ; 6235 001AC3 HIMWRC_0B EQU $ 6236 S001AC3 EC F7 BYTE 0ECH,0F7H ;[0B] 6237 S001AC5 02 22 02 HEX 02,22,02 6238 S001AC8 FC F7 BYTE 0FCH,0F7H 6239 S001ACA 04 22 02 HEX 04,22,02 6240 S001ACD 03 00 BYTE 003H,000H 6241 S001ACF 00 A2 02 HEX 00,A2,02 6242 S001AD2 03 F0 BYTE 003H,0F0H 6243 S001AD4 00 22 02 HEX 00,22,02 6244 ; 6245 001AD7 HIMWRC_0C EQU $ 6246 S001AD7 EC F9 BYTE 0ECH,0F9H ;[0C] 6247 S001AD9 02 22 02 HEX 02,22,02 6248 S001ADC FC F8 BYTE 0FCH,0F8H 6249 S001ADE 04 22 02 HEX 04,22,02 6250 S001AE1 03 00 BYTE 003H,000H 6251 S001AE3 00 A2 02 HEX 00,A2,02 6252 S001AE6 03 F0 BYTE 003H,0F0H 6253 S001AE8 00 22 02 HEX 00,22,02 6254 ; 6255 001AEB HIMWRC_0D EQU $ 6256 S001AEB FC F9 BYTE 0FCH,0F9H ;[0D] 6257 S001AED 04 22 02 HEX 04,22,02 6258 S001AF0 EC FA BYTE 0ECH,0FAH 6259 S001AF2 02 22 02 HEX 02,22,02 6260 S001AF5 03 00 BYTE 003H,000H 6261 S001AF7 00 A2 02 HEX 00,A2,02 6262 S001AFA 03 F0 BYTE 003H,0F0H 6263 S001AFC 00 22 02 HEX 00,22,02 6264 ; 6265 001AFF HIMWRC_EN EQU $ 6266 ; 6267 ;------------------------------------------------------------------------ 6268 ;- ひまわりリフト衝突チェック - 6269 ;- in : - 6270 ;- (R1) <-- 敵インデックス - 6271 ;- out : - 6272 ;- (CWK0) <-- 葉っぱ乗りサウンドフラグ - 6273 ;------------------------------------------------------------------------ 6274 000020 HAPPA_CX EQU 020H ;中心Ｘから葉っぱの先までの長さ 6275 000024 HAPPA_XW EQU 020H+4 ;葉っぱの衝突Ｘ幅 6276 ; 6277 001AFF HAPPA_HSDT EQU $ 6278 S001AFF 00 10 20 30 30 BYTE 0*10H,1*10H,2*10H,3*10H,3*10H,4*10H,5*10H,5*10H ;[0-(HAPPA_XW-1)] S001B04 40 50 50 6279 S001B07 60 60 70 70 70 BYTE 6*10H,6*10H,7*10H,7*10H,7*10H,8*10H,8*10H,8*10H ; S001B0C 80 80 80 6280 S001B0F 80 80 80 80 80 BYTE 8*10H,8*10H,8*10H,8*10H,8*10H,8*10H,8*10H,8*10H ; S001B14 80 80 80 6281 S001B17 80 70 70 60 60 BYTE 8*10H,7*10H,7*10H,6*10H,6*10H,5*10H,5*10H,4*10H ; S001B1C 50 50 40 6282 S001B1F 40 30 20 10 BYTE 4*10H,3*10H,2*10H,1*10H ; 6283 ; 6284 001B23 HIMWR_CROSS EQU $ 6285 S001B23 60 SUB R0 ;[ IBT R0,#0 ] 6286 S001B24 3E A0 00 SMS R0,CWORK0 ;葉っぱ乗りサウンドフラグリセット 6287 ; 6288 mLDW0 CENWRK2,R1 6288+ S001B27 F0 19D6 IWT R0,#CENWRK2 6288+ S001B2A 51 ADD R1 6288+ S001B2B 40 LDW (R0) 6289 S001B2C 03 LSR ;1/32 6290 S001B2D 03 LSR ; 6291 S001B2E 03 LSR ; 6292 S001B2F 03 LSR ; 6293 S001B30 12 TO R2 ;(R2) <-- 高さ 6294 S001B31 03 LSR ; 6295 mLDW R3,CENWRK4,R1 ;(R3) <-- パターンＮｏ．データ 6295+ S001B32 F0 19D8 IWT R0,#CENWRK4 6295+ S001B35 51 ADD R1 6295+ S001B36 13 TO R3 6295+ S001B37 40 LDW (R0) 6296 mLDW R4,CENWRK6,R1 ;(R4) <-- ” 6296+ S001B38 F0 1A36 IWT R0,#CENWRK6 6296+ S001B3B 51 ADD R1 6296+ S001B3C 14 TO R4 6296+ S001B3D 40 LDW (R0) 6297 mLDW0 CECENTX,R1 6297+ S001B3E F0 1CD6 IWT R0,#CECENTX 6297+ S001B41 51 ADD R1 6297+ S001B42 40 LDW (R0) 6298 S001B43 A5 20 IBT R5,#HAPPA_CX 6299 S001B45 15 TO R5 ;(R5) <-- 左葉っぱの左端Ｘ座標 6300 S001B46 65 SUB R5 6301 mLDW0 CENYPSL,R1 6301+ S001B47 F0 1182 IWT R0,#CENYPSL 6301+ S001B4A 51 ADD R1 6301+ S001B4B 40 LDW (R0) 6302 S001B4C 16 TO R6 ;(R6) <-- 葉っぱＹ座標 6303 S001B4D 3E 54 ADD #04H 6304 S001B4F A7 1C IBT R7,#(HAPPA_CX-(HAPPA_XW-HAPPA_CX)) ;(R7) <-- 左葉っぱと右葉っぱのＸ距離 6305 S001B51 AC 00 IBT R12,#0 ;(R12) <-- 次のパターンＮｏ．データ 6306 S001B53 AD 01 IBT R13,#1 ;(R13) <-- ” [ 1:１６ビットローテーションチェック用 ] 6307 ; 6308 S001B55 A0 00' IBT R0,#BANK HAPPA_HSDT 6309 S001B57 3F DF ROMB 6310 ; 6311 S001B59 02 CACHE 6312 ; 6313 HIMWR_CROSS_010 6314 S001B5A 24 WITH R4 ;パターンＮｏ．読み込み 6315 S001B5B 54 ADD R4 6316 S001B5C 23 WITH R3 6317 S001B5D 04 ROL 6318 S001B5E 04 ROL 6319 S001B5F 24 WITH R4 6320 S001B60 54 ADD R4 6321 S001B61 23 WITH R3 6322 S001B62 04 ROL 6323 S001B63 04 ROL 6324 S001B64 24 WITH R4 6325 S001B65 54 ADD R4 6326 S001B66 23 WITH R3 6327 S001B67 04 ROL 6328 S001B68 04 ROL 6329 S001B69 1B TO R11 ;(R11) <-- 葉っぱパターンＮｏ． 6330 S001B6A 3E 77 AND #07H 6331 ; 6332 S001B6C A0 10 IBT R0,#010H 6333 S001B6E 18 TO R8 ;(R8) <-- 葉っぱパターンＮｏ．倍率 6334 S001B6F 6B SUB R11 6335 ; 6336 ;-------------- プレイヤーとの衝突チェック ------------------------------ 6337 S001B70 3D A0 55 LMS R0,CPLYSPD 6338 S001B73 3E 60 SUB #0 6339 S001B75 0B 40' BMI HIMWR_CROSS_030 ;プレイヤー上昇中？ ( yes:HIMWR_CROSS_030 ) 6340 S001B77 01 NOP 6341 ; 6342 S001B78 3D A0 8E LMS R0,CPCENTX ;(R0) <-- プレイヤー中心Ｘ座標 6343 S001B7B 65 SUB R5 6344 S001B7C 0B 39' BMI HIMWR_CROSS_030 ;プレイヤーとＸ衝突？ ( no:HIMWR_CROSS_030 ) 6345 S001B7E 01 NOP 6346 ; 6347 S001B7F A9 24 IBT R9,#HAPPA_XW 6348 S001B81 69 SUB R9 6349 S001B82 0D 33' BCS HIMWR_CROSS_030 ;プレイヤーとＸ衝突？ ( no:HIMWR_CROSS_030 ) 6350 S001B84 59 ADD R9 6351 ; 6352 S001B85 27 B7 MOVES R7,R7 6353 S001B87 0B 03' BMI HIMWR_CROSS_020 ;左葉っぱ？ ( yes:HIMWR_CROSS_020 ) 6354 S001B89 B9 FROM R9 6355 ; 6356 S001B8A 3D 60 SBC R0 ;[ (C)=0 : -1 ] 6357 HIMWR_CROSS_020 6358 S001B8C FE 1AFF' IWT R14,#HAPPA_HSDT 6359 S001B8F 1E TO R14 6360 S001B90 5E ADD R14 6361 ; 6362 S001B91 3D A9 48 LMS R9,CPLYPSL ;(R9) <-- プレイヤーＹ座標 6363 S001B94 A0 20 IBT R0,#020H 6364 S001B96 1A TO R10 ;(R10) <-- プレイヤー足のＹ座標 6365 S001B97 59 ADD R9 6366 ; 6367 S001B98 EF GETB 6368 S001B99 3D 88 UMULT R8 6369 S001B9B C0 HIB 6370 S001B9C B6 FROM R6 6371 S001B9D 60 SUB R0 ;(R0) <-- 葉っぱのＹ座標 6372 ; 6373 S001B9E 6A SUB R10 6374 S001B9F 0A 16' BPL HIMWR_CROSS_030 ;プレイヤーとＹ衝突？ ( no:HIMWR_CROSS_030 ) 6375 S001BA1 01 NOP 6376 ; 6377 S001BA2 3E 59 ADD #08H+1 ;[ +1: ”ドス〜ン”の為 ] 6378 S001BA4 0B 11' BMI HIMWR_CROSS_030 ;衝突範囲ＯＫ？ ( no:HIMWR_CROSS_030 ) 6379 S001BA6 01 NOP 6380 ; 6381 ;-------------- プレイヤーＹ座標補正 ---------------------------- 6382 S001BA7 3E 68 SUB #(08H+1)-1 ;[ -1:食い込ませる ] 6383 S001BA9 59 ADD R9 6384 S001BAA 90 SBK ;[ SMS R0,CPLYPSL ] 6385 S001BAB F0 0100 IWT R0,#0100H 6386 S001BAE 3E A0 55 SMS R0,CPLYSPD ;プレイヤーＹスピードセット 6387 S001BB1 3E A0 DA SMS R0,CONLFFG ;プレイヤーリフト乗りフラグ”ＯＮ” 6388 ; 6389 S001BB4 2B WITH R11 ;(R11) <-- 葉っぱに乗ってるフラグ”ＯＮ” 6390 S001BB5 3E C8 OR #08H 6391 ; 6392 ;-------------- 赤ちゃんとの衝突チェック -------------------------------- 6393 HIMWR_CROSS_030 6394 ;;;; LMS R0,BABYNO 6395 ;;;; IWT R9,#0C000H 6396 ;;;; AND R9 6397 ;;;; BNE HIMWR_CROSS_050 ;赤ちゃんリフト処理？ ( no:HIMWR_CROSS_050 ) 6398 ;;;; NOP 6399 ;;;;; 6400 ;;;; LM R0,CENYSPD 6401 ;;;; SUB #0 6402 ;;;; BMI HIMWR_CROSS_050 ;赤ちゃん上昇中？ ( yes:HIMWR_CROSS_050 ) 6403 ;;;; NOP 6404 ;;;;; 6405 ;;;; LM R0,CECENTX ;(R0) <-- 赤ちゃん中心Ｘ座標 6406 ;;;; SUB R5 6407 ;;;; BMI HIMWR_CROSS_050 ;赤ちゃんとＸ衝突？ ( no:HIMWR_CROSS_050 ) 6408 ;;;; NOP 6409 ;;;;; 6410 ;;;; IBT R9,#HAPPA_XW 6411 ;;;; SUB R9 6412 ;;;; BCS HIMWR_CROSS_050 ;赤ちゃんとＸ衝突？ ( no:HIMWR_CROSS_050 ) 6413 ;;;; ADD R9 6414 ;;;;; 6415 ;;;; MOVES R7,R7 6416 ;;;; BMI HIMWR_CROSS_040 ;左葉っぱ？ ( yes:HIMWR_CROSS_040 ) 6417 ;;;; FROM R9 6418 ;;;;; 6419 ;;;; SBC R0 ;[ (C)=0 : -1 ] 6420 ;;;;HIMWR_CROSS_040 6421 ;;;; IWT R14,#HAPPA_HSDT 6422 ;;;; TO R14 6423 ;;;; ADD R14 6424 ;;;;; 6425 ;;;; LM R9,CENYPSL ;(R9) <-- 赤ちゃんＹ座標 6426 ;;;; IBT R0,#010H 6427 ;;;; TO R10 ;(R10) <-- 赤ちゃん足のＹ座標 6428 ;;;; ADD R9 6429 ;;;;; 6430 ;;;; GETB 6431 ;;;; UMULT R8 6432 ;;;; HIB 6433 ;;;; FROM R6 6434 ;;;; SUB R0 ;(R0) <-- 葉っぱのＹ座標 6435 ;;;;; 6436 ;;;; SUB R10 6437 ;;;; BPL HIMWR_CROSS_050 ;赤ちゃんとＹ衝突？ ( no:HIMWR_CROSS_050 ) 6438 ;;;; NOP 6439 ;;;;; 6440 ;;;; ADD #08H 6441 ;;;; BMI HIMWR_CROSS_050 ;衝突範囲ＯＫ？ ( no:HIMWR_CROSS_050 ) 6442 ;;;; NOP 6443 ;;;;; 6444 ;;;;;-------------- 赤ちゃんＹ座標補正 ------------------------------ 6445 ;;;; SUB #08H-1 ;[ -1:食い込ませる ] 6446 ;;;; ADD R9 6447 ;;;; SBK ;[ SMS R0,CENYPSL ] 6448 ;;;; IWT R0,#0100H 6449 ;;;; SM R0,CENYSPD ;赤ちゃんＹスピードセット 6450 ;;;; SM R0,CB_ONLFFG ;赤ちゃんリフト乗りフラグ”ＯＮ” 6451 ;;;;; 6452 ;;;; WITH R11 ;(R11) <-- 葉っぱに乗ってるフラグ”ＯＮ” 6453 ;;;; OR #08H 6454 ; 6455 ;-------------- 葉っぱパターンセット ------------------------------------ 6456 HIMWR_CROSS_050 6457 S001BB7 BB FROM R11 6458 S001BB8 3E 77 AND #07H 6459 S001BBA 6B SUB R11 6460 S001BBB 08 07' BNE HIMWR_CROSS_060 ;葉っぱに乗ってる？ ( yes:HIMWR_CROSS_060 ) 6461 S001BBD 5B ADD R11 6462 ; 6463 ;-------------- 葉っぱに乗って無い ------------------------------ 6464 S001BBE 09 14' BEQ HIMWR_CROSS_070 ;パターンＯＫ？ ( yes:HIMWR_CROSS_070 ) 6465 S001BC0 01 NOP 6466 ; 6467 S001BC1 05 11' BRA HIMWR_CROSS_070 6468 S001BC3 E0 DEC R0 6469 ; 6470 ;-------------- 葉っぱに乗ってる -------------------------------- 6471 HIMWR_CROSS_060 6472 S001BC4 19 TO R9 ;[ * not break (R0) ] 6473 S001BC5 3E 67 SUB #07H 6474 S001BC7 0D 0B' BCS HIMWR_CROSS_070 ;パターンＯＫ？ ( yes:HIMWR_CROSS_070 ) 6475 S001BC9 01 NOP 6476 ; 6477 S001BCA E0 DEC R0 6478 S001BCB 0A 06' BPL HIMWR_CROSS_062 ;サウンドセット？ ( no:HIMWR_CROSS_062 ) 6479 S001BCD D0 INC R0 6480 ; 6481 S001BCE A9 1D IBT R9,#01DH ;[♪] 6482 S001BD0 3E A9 00 SMS R9,CWORK0 ;葉っぱ乗りサウンドフラグリセット 6483 HIMWR_CROSS_062 6484 S001BD3 D0 INC R0 6485 ; 6486 ;-------------- 次の葉っぱパターンＮｏ．セット ------------------ 6487 HIMWR_CROSS_070 6488 S001BD4 3E 88 MULT #8 ; 6489 S001BD6 50 ADD R0 ;[ <<13 ] 6490 S001BD7 50 ADD R0 ; 6491 S001BD8 4D SWAP ; 6492 ; 6493 S001BD9 50 ADD R0 ;パターンＮｏ．書き込み 6494 S001BDA 2D WITH R13 6495 S001BDB 04 ROL 6496 S001BDC 2C WITH R12 6497 S001BDD 04 ROL 6498 S001BDE 50 ADD R0 6499 S001BDF 2D WITH R13 6500 S001BE0 04 ROL 6501 S001BE1 2C WITH R12 6502 S001BE2 04 ROL 6503 S001BE3 50 ADD R0 6504 S001BE4 2D WITH R13 6505 S001BE5 04 ROL 6506 S001BE6 2C WITH R12 6507 S001BE7 04 ROL 6508 ; 6509 ;-------------- 次の葉っぱへ -------------------------------------------- 6510 S001BE8 25 WITH R5 ;(R5) <-- 次の葉っぱの左端Ｘ座標 6511 S001BE9 57 ADD R7 6512 S001BEA A0 E0 IBT R0,#-020H ;(R6) <-- 次の葉っぱＹ座標 6513 S001BEC 16 TO R6 6514 S001BED 56 ADD R6 6515 S001BEE 27 WITH R7 ;(R7) <-- 左葉っぱと右葉っぱのＸ距離の反転 6516 S001BEF 4F NOT 6517 ; 6518 S001BF0 E2 DEC R2 6519 S001BF1 09 05' BEQ HIMWR_CROSS_080 ;終了？ ( yes:HIMWR_CROSS_080 ) 6520 S001BF3 D7 INC R7 6521 ; 6522 mDJMP_X HIMWR_CROSS_010+1 6522+ S001BF4 FF 1B5B' IWT R15, #HIMWR_CROSS_010+1 6523 S001BF7 24 WITH R4 ;[ dummy ] 6524 ; 6525 ;-------------- 次の葉っぱパターンＮｏ．ビットローテーション ------------ 6526 HIMWR_CROSS_080 6527 S001BF8 2D WITH R13 6528 S001BF9 5D ADD R13 6529 S001BFA 2C WITH R12 6530 S001BFB 04 ROL 6531 S001BFC 0C FB' BCC HIMWR_CROSS_080+1 6532 S001BFE 2D WITH R13 ;[ dummy ] 6533 ; 6534 mSTW R12,CENWRK4,R1 ;次の葉っぱパターンＮｏ．データセット 6534+ S001BFF F0 19D8 IWT R0,#CENWRK4 6534+ S001C02 51 ADD R1 6534+ S001C03 BC FROM R12 6534+ S001C04 30 STW (R0) 6535 mSTW R13,CENWRK6,R1 ; ” 6535+ S001C05 F0 1A36 IWT R0,#CENWRK6 6535+ S001C08 51 ADD R1 6535+ S001C09 BD FROM R13 6535+ S001C0A 30 STW (R0) 6536 ; 6537 S001C0B 00 STOP 6538 S001C0C 01 NOP 6539 ; 6540 ; 6541 ;---------------------------------------------------------------- 6542 ;- ぐらぐら岩(プレイヤー) - 6543 ;- ENCONT : 角度 (XX.XX) - 6544 ;- WRK0 : 支点Ｘ - 6545 ;- WRK2 : 支点Ｙ - 6546 ;- WRK4 : 角度スピード - 6547 ;- WRK6 : 最初のＸ - 6548 ;- WRK8 : 最初のＹ - 6549 ;- XPSL : 絵の中心Ｘ - 6550 ;- YPSL : 絵の中心Ｙ - 6551 ;- CNTXW : 水平ラインの中心Ｘ - 6552 ;- CNTYW : 水平ラインの中心Ｙ - 6553 ;- WIDEX : Ｘチェック幅(半径) - 6554 ;- WIDEY : Ｙチェック幅(中心からの距離) - 6555 ;- - 6556 ;- CWORK1F <- 旧角度 - 6557 ;---------------------------------------------------------------- 6558 001C0D GROCK_CRCK EQU $ 6559 S001C0D A0 00" IBT R0,#BANK LCOS 6560 S001C0F 3F DF ROMB 6561 ; 6562 S001C11 3D F1 1972 LM R1,CENINDX ; R1 <- 敵のインデックス 6563 ; 6564 S001C15 3D A0 1F LMS R0,CWORK1F 6565 S001C18 15 TO R5 6566 S001C19 C0 HIB ; R5 <- 角度 6567 ; 6568 S001C1A F0 0000" IWT R0,#LCOS 6569 S001C1D 1E TO R14 6570 S001C1E 55 ADD R5 6571 ; 6572 mLDW R2,CEWIDEX,R1 ; R2 <- 右Ｘ 6572+ S001C1F F0 1BB6 IWT R0,#CEWIDEX 6572+ S001C22 51 ADD R1 6572+ S001C23 12 TO R2 6572+ S001C24 40 LDW (R0) 6573 S001C25 B2 FROM R2 6574 S001C26 4F NOT 6575 S001C27 13 TO R3 6576 S001C28 3E 51 ADD #01 ; R3 <- 左Ｘ 6577 mLDW R4,CEWIDEY,R1 ; R4 <- Ｙ 6577+ S001C2A F0 1BB8 IWT R0,#CEWIDEY 6577+ S001C2D 51 ADD R1 6577+ S001C2E 14 TO R4 6577+ S001C2F 40 LDW (R0) 6578 ; 6579 S001C30 16 TO R6 ; R6 <- COS DATA 6580 S001C31 EF GETB 6581 S001C32 F0 0000" IWT R0,#LSIN 6582 S001C35 1E TO R14 6583 S001C36 55 ADD R5 6584 S001C37 17 TO R7 ; R7 <- SIN DATA 6585 S001C38 EF GETB 6586 ; 6587 S001C39 B4 FROM R4 6588 S001C3A 18 TO R8 6589 S001C3B 86 MULT R6 ; R8 <- sy * cos 6590 ; 6591 S001C3C B4 FROM R4 6592 S001C3D 19 TO R9 6593 S001C3E 87 MULT R7 ; R9 <- sy * sin 6594 ; 6595 S001C3F FB 0080 IWT R11,#00080H 6596 S001C42 B3 FROM R3 6597 S001C43 86 MULT R6 ; R0 <- sx * cos (左) 6598 S001C44 59 ADD R9 6599 S001C45 50 ADD R0 6600 S001C46 50 ADD R0 6601 S001C47 5B ADD R11 6602 S001C48 C0 HIB 6603 S001C49 1A TO R10 6604 S001C4A 95 SEX 6605 mLDW0 CENXPSL,R1 6605+ S001C4B F0 10E2 IWT R0,#CENXPSL 6605+ S001C4E 51 ADD R1 6605+ S001C4F 40 LDW (R0) 6606 S001C50 5A ADD R10 6607 S001C51 3E A0 00 SMS CWORK0,R0 ; CWORK0 <- RX (左) 6608 ; 6609 S001C54 B3 FROM R3 6610 S001C55 87 MULT R7 ; R0 <- sx * sin (左) 6611 S001C56 B8 FROM R8 6612 S001C57 60 SUB R0 6613 S001C58 50 ADD R0 6614 S001C59 50 ADD R0 6615 S001C5A 5B ADD R11 6616 S001C5B C0 HIB 6617 S001C5C 1A TO R10 6618 S001C5D 95 SEX 6619 mLDW0 CENYPSL,R1 6619+ S001C5E F0 1182 IWT R0,#CENYPSL 6619+ S001C61 51 ADD R1 6619+ S001C62 40 LDW (R0) 6620 S001C63 5A ADD R10 6621 S001C64 3E A0 01 SMS CWORK1,R0 ; CWORK1 <- RY (左) 6622 ; 6623 S001C67 B2 FROM R2 6624 S001C68 86 MULT R6 ; R0 <- sx * cos (右) 6625 S001C69 59 ADD R9 6626 S001C6A 50 ADD R0 6627 S001C6B 50 ADD R0 6628 S001C6C 5B ADD R11 6629 S001C6D C0 HIB 6630 S001C6E 1A TO R10 6631 S001C6F 95 SEX 6632 mLDW0 CENXPSL,R1 6632+ S001C70 F0 10E2 IWT R0,#CENXPSL 6632+ S001C73 51 ADD R1 6632+ S001C74 40 LDW (R0) 6633 S001C75 5A ADD R10 6634 S001C76 3E A0 02 SMS CWORK2,R0 ; CWORK2 <- RX (右) 6635 ; 6636 S001C79 B2 FROM R2 6637 S001C7A 87 MULT R7 ; R0 <- sx * sin (右) 6638 S001C7B B8 FROM R8 6639 S001C7C 60 SUB R0 6640 S001C7D 50 ADD R0 6641 S001C7E 50 ADD R0 6642 S001C7F 5B ADD R11 6643 S001C80 C0 HIB 6644 S001C81 1A TO R10 6645 S001C82 95 SEX 6646 mLDW0 CENYPSL,R1 6646+ S001C83 F0 1182 IWT R0,#CENYPSL 6646+ S001C86 51 ADD R1 6646+ S001C87 40 LDW (R0) 6647 S001C88 5A ADD R10 6648 S001C89 3E A0 03 SMS CWORK3,R0 ; CWORK3 <- RY (右) 6649 ; 6650 S001C8C 3D A8 00 LMS R8,CWORK0 ; RX (左) 6651 S001C8F 3D A9 02 LMS R9,CWORK2 ; RX (右) 6652 S001C92 3D FA 011C LM R10,CPCENTX ; プレイヤーＸ 6653 S001C96 BA FROM R10 6654 S001C97 17 TO R7 6655 S001C98 68 SUB R8 ; R7 <- プレイヤーとの間隔 (Ｘ) 6656 S001C99 0B 7D' BMI GROCK_CRCK_END ; 範囲外 ? [yes->GROCK_CRCK_END] 6657 S001C9B BA FROM R10 6658 S001C9C 69 SUB R9 6659 S001C9D 0A 79' BPL GROCK_CRCK_END ; 範囲外 ? [yes->GROCK_CRCK_END] 6660 S001C9F 01 NOP 6661 ; 6662 S001CA0 3D F0 00AA LM R0,CPLYSPD 6663 S001CA4 3E 60 SUB #00 6664 S001CA6 0B 70' BMI GROCK_CRCK_END ; 上昇中 ? [yes->GROCK_CRCK_END] 6665 S001CA8 01 NOP 6666 ; 6667 S001CA9 B9 FROM R9 6668 S001CAA 68 SUB R8 6669 S001CAB 19 TO R9 6670 S001CAC 50 ADD R0 6671 mLDW R6,DIVBUF,R9 vvv******* warn :value out of range 6671+ S001CAD F0 2200 IWT R0,#DIVBUF 6671+ S001CB0 59 ADD R9 6671+ S001CB1 16 TO R6 6671+ S001CB2 40 LDW (R0) 6672 ; 6673 S001CB3 3D A8 01 LMS R8,CWORK1 ; RY (左) 6674 S001CB6 3D A0 03 LMS R0,CWORK3 ; RY (右) 6675 S001CB9 68 SUB R8 6676 S001CBA 9E LOB 6677 S001CBB 4D SWAP 6678 S001CBC 16 TO R6 6679 S001CBD 9F FMULT 6680 ; 6681 S001CBE B7 FROM R7 6682 S001CBF 9E LOB 6683 S001CC0 4D SWAP 6684 S001CC1 9F FMULT 6685 S001CC2 18 TO R8 6686 S001CC3 58 ADD R8 6687 ; 6688 S001CC4 A6 20 IBT R6,#020H 6689 S001CC6 3D F7 0090 LM R7,CPLYPSL 6690 S001CCA B7 FROM R7 6691 S001CCB 56 ADD R6 6692 S001CCC 68 SUB R8 6693 S001CCD 0B 49' BMI GROCK_CRCK_END ; 範囲外 ? [yes->GROCK_CRCK_END] 6694 S001CCF 01 NOP 6695 ; 6696 S001CD0 20 18 MOVE R8,R0 6697 S001CD2 3E 69 SUB #09 6698 S001CD4 0A 42' BPL GROCK_CRCK_END ; 範囲外 ? [yes->GROCK_CRCK_END] 6699 S001CD6 01 NOP 6700 ; 6701 S001CD7 B7 FROM R7 6702 S001CD8 68 SUB R8 6703 S001CD9 3E F0 0090 SM CPLYPSL,R0 ; プレイヤーＹポジションセット !! 6704 S001CDD A0 01 IBT R0,#01 6705 S001CDF 3E F0 01B4 SM CONLFFG,R0 6706 S001CE3 F0 0100 IWT R0,#00100H 6707 S001CE6 3E F0 00AA SM CPLYSPD,R0 6708 ; 6709 mLDW R6,CENWRK4,R1 ; 角度スピードの読み込み !! 6709+ S001CEA F0 19D8 IWT R0,#CENWRK4 6709+ S001CED 51 ADD R1 6709+ S001CEE 16 TO R6 6709+ S001CEF 40 LDW (R0) 6710 mLDW R7,CENWRK0,R1 ; 支点Ｘ !! 6710+ S001CF0 F0 1978 IWT R0,#CENWRK0 6710+ S001CF3 51 ADD R1 6710+ S001CF4 17 TO R7 6710+ S001CF5 40 LDW (R0) 6711 S001CF6 3D F0 011C LM R0,CPCENTX 6712 S001CFA 67 SUB R7 6713 S001CFB 3D 96 DIV2 6714 S001CFD 3D 96 DIV2 6715 ;[1995.06.14.WE] DIV2 6716 S001CFF 01 NOP 6717 S001D00 01 NOP 6718 S001D01 26 WITH R6 6719 S001D02 50 ADD R0 6720 mSTW R6,CENWRK4,R1 ; 角度スピードセット 6720+ S001D03 F0 19D8 IWT R0,#CENWRK4 6720+ S001D06 51 ADD R1 6720+ S001D07 B6 FROM R6 6720+ S001D08 30 STW (R0) 6721 ; 6722 mLDW0 CENCONT,R1 ; 角度の読み込み !! 6722+ S001D09 F0 1976 IWT R0,#CENCONT 6722+ S001D0C 51 ADD R1 6722+ S001D0D 40 LDW (R0) 6723 S001D0E C0 HIB 6724 S001D0F 3F 65 CMP R5 6725 S001D11 08 09' BNE GROCK_PLHOSE ; 角度が変わった ? [yes->GROCK_PLHOSE] 6726 S001D13 01 NOP 6727 ; 6728 S001D14 A0 01 IBT R0,#01 6729 S001D16 00 STOP 6730 S001D17 01 NOP 6731 ; 6732 GROCK_CRCK_END 6733 S001D18 A0 00 IBT R0,#00 6734 S001D1A 00 STOP 6735 S001D1B 01 NOP 6736 ; 6737 GROCK_PLHOSE 6738 S001D1C B5 FROM R5 6739 S001D1D 4F NOT 6740 S001D1E D0 INC R0 6741 S001D1F 15 TO R5 6742 S001D20 9E LOB 6743 S001D21 F0 0000" IWT R0,#LCOS 6744 S001D24 1E TO R14 6745 S001D25 55 ADD R5 6746 ; 6747 S001D26 3D F8 008C LM R8,CPLXPSL 6748 mLDW R12,CENXPSL,R1 6748+ S001D2A F0 10E2 IWT R0,#CENXPSL 6748+ S001D2D 51 ADD R1 6748+ S001D2E 1C TO R12 6748+ S001D2F 40 LDW (R0) 6749 S001D30 28 WITH R8 6750 S001D31 6C SUB R12 6751 S001D32 3D F9 0090 LM R9,CPLYPSL 6752 mLDW R13,CENYPSL,R1 6752+ S001D36 F0 1182 IWT R0,#CENYPSL 6752+ S001D39 51 ADD R1 6752+ S001D3A 1D TO R13 6752+ S001D3B 40 LDW (R0) 6753 S001D3C 29 WITH R9 6754 S001D3D 6D SUB R13 6755 ; 6756 S001D3E 16 TO R6 ; R6 <- COS DATA 6757 S001D3F EF GETB 6758 S001D40 F0 0000" IWT R0,#LSIN 6759 S001D43 1E TO R14 6760 S001D44 55 ADD R5 6761 ; 6762 S001D45 B8 FROM R8 6763 S001D46 1A TO R10 6764 S001D47 86 MULT R6 6765 S001D48 B9 FROM R9 6766 S001D49 1B TO R11 6767 S001D4A 86 MULT R6 6768 ; 6769 S001D4B 17 TO R7 ; R7 <- SIN DATA 6770 S001D4C EF GETB 6771 ; 6772 S001D4D F2 0080 IWT R2,#00080H 6773 S001D50 B9 FROM R9 6774 S001D51 87 MULT R7 6775 S001D52 5A ADD R10 6776 S001D53 50 ADD R0 6777 S001D54 50 ADD R0 6778 S001D55 52 ADD R2 6779 S001D56 C0 HIB 6780 S001D57 1A TO R10 6781 S001D58 95 SEX ; R10 <- sx * cos + sy * sin 6782 ; 6783 S001D59 B8 FROM R8 6784 S001D5A 87 MULT R7 6785 S001D5B BB FROM R11 6786 S001D5C 60 SUB R0 6787 S001D5D 50 ADD R0 6788 S001D5E 50 ADD R0 6789 S001D5F 52 ADD R2 6790 S001D60 C0 HIB 6791 S001D61 1B TO R11 6792 S001D62 95 SEX ; R11 <- sy * cos - sx * sin 6793 ; 6794 mLDW0 CENCONT,R1 6794+ S001D63 F0 1976 IWT R0,#CENCONT 6794+ S001D66 51 ADD R1 6794+ S001D67 40 LDW (R0) 6795 S001D68 15 TO R5 6796 S001D69 C0 HIB 6797 S001D6A F0 0000" IWT R0,#LCOS 6798 S001D6D 1E TO R14 6799 S001D6E 55 ADD R5 6800 S001D6F 16 TO R6 ; R6 <- COS DATA 6801 S001D70 EF GETB 6802 S001D71 F0 0000" IWT R0,#LSIN 6803 S001D74 1E TO R14 6804 S001D75 55 ADD R5 6805 ; 6806 S001D76 BA FROM R10 6807 S001D77 18 TO R8 6808 S001D78 86 MULT R6 6809 S001D79 BB FROM R11 6810 S001D7A 19 TO R9 6811 S001D7B 86 MULT R6 6812 ; 6813 S001D7C 17 TO R7 ; R7 <- SIN DATA 6814 S001D7D EF GETB 6815 ; 6816 S001D7E BB FROM R11 6817 S001D7F 87 MULT R7 6818 S001D80 58 ADD R8 6819 S001D81 50 ADD R0 6820 S001D82 50 ADD R0 ; <- sx * cos + sy * sin 6821 S001D83 52 ADD R2 6822 S001D84 C0 HIB 6823 S001D85 95 SEX 6824 S001D86 5C ADD R12 6825 S001D87 3E F0 008C SM CPLXPSL,R0 6826 ; 6827 S001D8B BA FROM R10 6828 S001D8C 87 MULT R7 6829 S001D8D B9 FROM R9 6830 S001D8E 60 SUB R0 6831 S001D8F 50 ADD R0 6832 S001D90 50 ADD R0 ; <- sy * cos - sx * sin 6833 S001D91 52 ADD R2 6834 S001D92 C0 HIB 6835 S001D93 95 SEX 6836 S001D94 5D ADD R13 6837 S001D95 3E F0 0090 SM CPLYPSL,R0 6838 ; 6839 S001D99 A0 01 IBT R0,#01 6840 S001D9B 00 STOP 6841 S001D9C 01 NOP 6842 ; 6843 ; 6844 ;---------------------------------------------------------------- 6845 ;- ぐらぐら岩(赤ちゃん) - 6846 ;- ENCONT : 角度 (XX.XX) - 6847 ;- WRK0 : 支点Ｘ - 6848 ;- WRK2 : 支点Ｙ - 6849 ;- WRK4 : 角度スピード - 6850 ;- WRK6 : 最初のＸ - 6851 ;- WRK8 : 最初のＹ - 6852 ;- XPSL : 絵の中心Ｘ - 6853 ;- YPSL : 絵の中心Ｙ - 6854 ;- CNTXW : 水平ラインの中心Ｘ - 6855 ;- CNTYW : 水平ラインの中心Ｙ - 6856 ;- WIDEX : Ｘチェック幅(半径) - 6857 ;- WIDEY : Ｙチェック幅(中心からの距離) - 6858 ;- - 6859 ;- CWORK1F <- 旧角度 - 6860 ;---------------------------------------------------------------- 6861 001D9D GRCKB_CRCK EQU $ 6862 S001D9D A0 00" IBT R0,#BANK LCOS 6863 S001D9F 3F DF ROMB 6864 ; 6865 S001DA1 3D F1 1972 LM R1,CENINDX ; R1 <- 敵のインデックス 6866 ; 6867 S001DA5 3D A0 1F LMS R0,CWORK1F 6868 S001DA8 15 TO R5 6869 S001DA9 C0 HIB ; R5 <- 角度 6870 ; 6871 S001DAA F0 0000" IWT R0,#LCOS 6872 S001DAD 1E TO R14 6873 S001DAE 55 ADD R5 6874 ; 6875 mLDW R2,CEWIDEX,R1 ; R2 <- 右Ｘ 6875+ S001DAF F0 1BB6 IWT R0,#CEWIDEX 6875+ S001DB2 51 ADD R1 6875+ S001DB3 12 TO R2 6875+ S001DB4 40 LDW (R0) 6876 S001DB5 B2 FROM R2 6877 S001DB6 4F NOT 6878 S001DB7 13 TO R3 6879 S001DB8 3E 51 ADD #01 ; R3 <- 左Ｘ 6880 mLDW R4,CEWIDEY,R1 ; R4 <- Ｙ 6880+ S001DBA F0 1BB8 IWT R0,#CEWIDEY 6880+ S001DBD 51 ADD R1 6880+ S001DBE 14 TO R4 6880+ S001DBF 40 LDW (R0) 6881 ; 6882 S001DC0 16 TO R6 ; R6 <- COS DATA 6883 S001DC1 EF GETB 6884 S001DC2 F0 0000" IWT R0,#LSIN 6885 S001DC5 1E TO R14 6886 S001DC6 55 ADD R5 6887 S001DC7 17 TO R7 ; R7 <- SIN DATA 6888 S001DC8 EF GETB 6889 ; 6890 S001DC9 B4 FROM R4 6891 S001DCA 18 TO R8 6892 S001DCB 86 MULT R6 ; R8 <- sy * cos 6893 ; 6894 S001DCC B4 FROM R4 6895 S001DCD 19 TO R9 6896 S001DCE 87 MULT R7 ; R9 <- sy * sin 6897 ; 6898 S001DCF FB 0080 IWT R11,#00080H 6899 S001DD2 B3 FROM R3 6900 S001DD3 86 MULT R6 ; R0 <- sx * cos (左) 6901 S001DD4 59 ADD R9 6902 S001DD5 50 ADD R0 6903 S001DD6 50 ADD R0 6904 S001DD7 5B ADD R11 6905 S001DD8 C0 HIB 6906 S001DD9 1A TO R10 6907 S001DDA 95 SEX 6908 mLDW0 CENXPSL,R1 6908+ S001DDB F0 10E2 IWT R0,#CENXPSL 6908+ S001DDE 51 ADD R1 6908+ S001DDF 40 LDW (R0) 6909 S001DE0 5A ADD R10 6910 S001DE1 3E A0 00 SMS CWORK0,R0 ; CWORK0 <- RX (左) 6911 ; 6912 S001DE4 B3 FROM R3 6913 S001DE5 87 MULT R7 ; R0 <- sx * sin (左) 6914 S001DE6 B8 FROM R8 6915 S001DE7 60 SUB R0 6916 S001DE8 50 ADD R0 6917 S001DE9 50 ADD R0 6918 S001DEA 5B ADD R11 6919 S001DEB C0 HIB 6920 S001DEC 1A TO R10 6921 S001DED 95 SEX 6922 mLDW0 CENYPSL,R1 6922+ S001DEE F0 1182 IWT R0,#CENYPSL 6922+ S001DF1 51 ADD R1 6922+ S001DF2 40 LDW (R0) 6923 S001DF3 5A ADD R10 6924 S001DF4 3E A0 01 SMS CWORK1,R0 ; CWORK1 <- RY (左) 6925 ; 6926 S001DF7 B2 FROM R2 6927 S001DF8 86 MULT R6 ; R0 <- sx * cos (右) 6928 S001DF9 59 ADD R9 6929 S001DFA 50 ADD R0 6930 S001DFB 50 ADD R0 6931 S001DFC 5B ADD R11 6932 S001DFD C0 HIB 6933 S001DFE 1A TO R10 6934 S001DFF 95 SEX 6935 mLDW0 CENXPSL,R1 6935+ S001E00 F0 10E2 IWT R0,#CENXPSL 6935+ S001E03 51 ADD R1 6935+ S001E04 40 LDW (R0) 6936 S001E05 5A ADD R10 6937 S001E06 3E A0 02 SMS CWORK2,R0 ; CWORK2 <- RX (右) 6938 ; 6939 S001E09 B2 FROM R2 6940 S001E0A 87 MULT R7 ; R0 <- sx * sin (右) 6941 S001E0B B8 FROM R8 6942 S001E0C 60 SUB R0 6943 S001E0D 50 ADD R0 6944 S001E0E 50 ADD R0 6945 S001E0F 5B ADD R11 6946 S001E10 C0 HIB 6947 S001E11 1A TO R10 6948 S001E12 95 SEX 6949 mLDW0 CENYPSL,R1 6949+ S001E13 F0 1182 IWT R0,#CENYPSL 6949+ S001E16 51 ADD R1 6949+ S001E17 40 LDW (R0) 6950 S001E18 5A ADD R10 6951 S001E19 3E A0 03 SMS CWORK3,R0 ; CWORK3 <- RY (右) 6952 ; 6953 S001E1C 3D A8 00 LMS R8,CWORK0 ; RX (左) 6954 S001E1F 3D A9 02 LMS R9,CWORK2 ; RX (右) 6955 S001E22 3D FA 1CD6 LM R10,CECENTX ; 赤ちゃんＸ 6956 S001E26 BA FROM R10 6957 S001E27 17 TO R7 6958 S001E28 68 SUB R8 ; R7 <- 赤ちゃんとの間隔 (Ｘ) 6959 S001E29 0B 71' BMI GRCKB_CRCK_END ; 範囲外 ? [yes->GRCKB_CRCK_END] 6960 S001E2B BA FROM R10 6961 S001E2C 69 SUB R9 6962 S001E2D 0A 6D' BPL GRCKB_CRCK_END ; 範囲外 ? [yes->GRCKB_CRCK_END] 6963 S001E2F 01 NOP 6964 ; 6965 S001E30 3D F0 1222 LM R0,CENYSPD 6966 S001E34 3E 60 SUB #00 6967 S001E36 0B 64' BMI GRCKB_CRCK_END ; 上昇中 ? [yes->GRCKB_CRCK_END] 6968 S001E38 01 NOP 6969 ; 6970 S001E39 B9 FROM R9 6971 S001E3A 68 SUB R8 6972 S001E3B 19 TO R9 6973 S001E3C 50 ADD R0 6974 mLDW R6,DIVBUF,R9 vvv******* warn :value out of range 6974+ S001E3D F0 2200 IWT R0,#DIVBUF 6974+ S001E40 59 ADD R9 6974+ S001E41 16 TO R6 6974+ S001E42 40 LDW (R0) 6975 ; 6976 S001E43 3D A8 01 LMS R8,CWORK1 ; RY (左) 6977 S001E46 3D A0 03 LMS R0,CWORK3 ; RY (右) 6978 S001E49 68 SUB R8 6979 S001E4A 9E LOB 6980 S001E4B 4D SWAP 6981 S001E4C 16 TO R6 6982 S001E4D 9F FMULT 6983 ; 6984 S001E4E B7 FROM R7 6985 S001E4F 9E LOB 6986 S001E50 4D SWAP 6987 S001E51 9F FMULT 6988 S001E52 18 TO R8 6989 S001E53 58 ADD R8 6990 ; 6991 S001E54 A6 20 IBT R6,#020H 6992 S001E56 3D F7 1182 LM R7,CENYPSL 6993 S001E5A B7 FROM R7 6994 S001E5B 56 ADD R6 6995 S001E5C 68 SUB R8 6996 S001E5D 0B 3D' BMI GRCKB_CRCK_END ; 範囲外 ? [yes->GRCKB_CRCK_END] 6997 S001E5F 01 NOP 6998 ; 6999 S001E60 20 18 MOVE R8,R0 7000 S001E62 3E 69 SUB #09 7001 S001E64 0A 36' BPL GRCKB_CRCK_END ; 範囲外 ? [yes->GRCKB_CRCK_END] 7002 S001E66 01 NOP 7003 ; 7004 S001E67 B7 FROM R7 7005 S001E68 68 SUB R8 7006 S001E69 3E F0 1182 SM CENYPSL,R0 ; 赤ちゃんＹポジションセット !! 7007 S001E6D F0 0100 IWT R0,#00100H 7008 S001E70 3E F0 1222 SM CENYSPD,R0 7009 ; 7010 mLDW R6,CENWRK4,R1 ; 角度スピードの読み込み !! 7010+ S001E74 F0 19D8 IWT R0,#CENWRK4 7010+ S001E77 51 ADD R1 7010+ S001E78 16 TO R6 7010+ S001E79 40 LDW (R0) 7011 mLDW R7,CENWRK0,R1 ; 支点Ｘ !! 7011+ S001E7A F0 1978 IWT R0,#CENWRK0 7011+ S001E7D 51 ADD R1 7011+ S001E7E 17 TO R7 7011+ S001E7F 40 LDW (R0) 7012 S001E80 3D F0 1CD6 LM R0,CECENTX 7013 S001E84 67 SUB R7 7014 S001E85 26 WITH R6 7015 S001E86 50 ADD R0 7016 mSTW R6,CENWRK4,R1 ; 角度スピードセット 7016+ S001E87 F0 19D8 IWT R0,#CENWRK4 7016+ S001E8A 51 ADD R1 7016+ S001E8B B6 FROM R6 7016+ S001E8C 30 STW (R0) 7017 ; 7018 mLDW0 CENCONT,R1 ; 角度の読み込み !! 7018+ S001E8D F0 1976 IWT R0,#CENCONT 7018+ S001E90 51 ADD R1 7018+ S001E91 40 LDW (R0) 7019 S001E92 C0 HIB 7020 S001E93 3F 65 CMP R5 7021 S001E95 08 09' BNE GRCKB_BYHOSE ; 角度が変わった ? [yes->GRCKB_BYHOSE] 7022 S001E97 01 NOP 7023 ; 7024 S001E98 A0 01 IBT R0,#01 7025 S001E9A 00 STOP 7026 S001E9B 01 NOP 7027 ; 7028 GRCKB_CRCK_END 7029 S001E9C A0 00 IBT R0,#00 7030 S001E9E 00 STOP 7031 S001E9F 01 NOP 7032 ; 7033 GRCKB_BYHOSE 7034 S001EA0 B5 FROM R5 7035 S001EA1 4F NOT 7036 S001EA2 D0 INC R0 7037 S001EA3 15 TO R5 7038 S001EA4 9E LOB 7039 S001EA5 F0 0000" IWT R0,#LCOS 7040 S001EA8 1E TO R14 7041 S001EA9 55 ADD R5 7042 ; 7043 S001EAA 3D F8 10E2 LM R8,CENXPSL 7044 mLDW R12,CENXPSL,R1 7044+ S001EAE F0 10E2 IWT R0,#CENXPSL 7044+ S001EB1 51 ADD R1 7044+ S001EB2 1C TO R12 7044+ S001EB3 40 LDW (R0) 7045 S001EB4 28 WITH R8 7046 S001EB5 6C SUB R12 7047 S001EB6 3D F9 1182 LM R9,CENYPSL 7048 mLDW R13,CENYPSL,R1 7048+ S001EBA F0 1182 IWT R0,#CENYPSL 7048+ S001EBD 51 ADD R1 7048+ S001EBE 1D TO R13 7048+ S001EBF 40 LDW (R0) 7049 S001EC0 29 WITH R9 7050 S001EC1 6D SUB R13 7051 ; 7052 S001EC2 16 TO R6 ; R6 <- COS DATA 7053 S001EC3 EF GETB 7054 S001EC4 F0 0000" IWT R0,#LSIN 7055 S001EC7 1E TO R14 7056 S001EC8 55 ADD R5 7057 ; 7058 S001EC9 B8 FROM R8 7059 S001ECA 1A TO R10 7060 S001ECB 86 MULT R6 7061 S001ECC B9 FROM R9 7062 S001ECD 1B TO R11 7063 S001ECE 86 MULT R6 7064 ; 7065 S001ECF 17 TO R7 ; R7 <- SIN DATA 7066 S001ED0 EF GETB 7067 ; 7068 S001ED1 F2 0080 IWT R2,#00080H 7069 S001ED4 B9 FROM R9 7070 S001ED5 87 MULT R7 7071 S001ED6 5A ADD R10 7072 S001ED7 50 ADD R0 7073 S001ED8 50 ADD R0 ; R10 <- sx * cos + sy * sin 7074 S001ED9 52 ADD R2 7075 S001EDA C0 HIB 7076 S001EDB 1A TO R10 7077 S001EDC 95 SEX 7078 ; 7079 S001EDD B8 FROM R8 7080 S001EDE 87 MULT R7 7081 S001EDF BB FROM R11 7082 S001EE0 60 SUB R0 7083 S001EE1 50 ADD R0 7084 S001EE2 50 ADD R0 ; R11 <- sy * cos - sx * sin 7085 S001EE3 52 ADD R2 7086 S001EE4 C0 HIB 7087 S001EE5 1B TO R11 7088 S001EE6 95 SEX 7089 ; 7090 mLDW0 CENCONT,R1 7090+ S001EE7 F0 1976 IWT R0,#CENCONT 7090+ S001EEA 51 ADD R1 7090+ S001EEB 40 LDW (R0) 7091 S001EEC 15 TO R5 7092 S001EED C0 HIB 7093 S001EEE F0 0000" IWT R0,#LCOS 7094 S001EF1 1E TO R14 7095 S001EF2 55 ADD R5 7096 S001EF3 16 TO R6 ; R6 <- COS DATA 7097 S001EF4 EF GETB 7098 S001EF5 F0 0000" IWT R0,#LSIN 7099 S001EF8 1E TO R14 7100 S001EF9 55 ADD R5 7101 ; 7102 S001EFA BA FROM R10 7103 S001EFB 18 TO R8 7104 S001EFC 86 MULT R6 7105 S001EFD BB FROM R11 7106 S001EFE 19 TO R9 7107 S001EFF 86 MULT R6 7108 ; 7109 S001F00 17 TO R7 ; R7 <- SIN DATA 7110 S001F01 EF GETB 7111 ; 7112 S001F02 BB FROM R11 7113 S001F03 87 MULT R7 7114 S001F04 58 ADD R8 7115 S001F05 50 ADD R0 7116 S001F06 50 ADD R0 ; <- sx * cos + sy * sin 7117 S001F07 52 ADD R2 7118 S001F08 C0 HIB 7119 S001F09 95 SEX 7120 S001F0A 5C ADD R12 7121 S001F0B 3E F0 10E2 SM CENXPSL,R0 7122 ; 7123 S001F0F BA FROM R10 7124 S001F10 87 MULT R7 7125 S001F11 B9 FROM R9 7126 S001F12 60 SUB R0 7127 S001F13 50 ADD R0 7128 S001F14 50 ADD R0 ; <- sy * cos - sx * sin 7129 S001F15 52 ADD R2 7130 S001F16 C0 HIB 7131 S001F17 95 SEX 7132 S001F18 5D ADD R13 7133 S001F19 3E F0 1182 SM CENYPSL,R0 7134 ; 7135 S001F1D A0 01 IBT R0,#01 7136 S001F1F 00 STOP 7137 S001F20 01 NOP 7138 ; 7139 ; 7140 ;---------------------------------------------------------------- 7141 ;- ぐらぐら岩 (MOVE) - 7142 ;- ENCONT : 角度 (XX.XX) - 7143 ;- WRK0 : 支点Ｘ - 7144 ;- WRK2 : 支点Ｙ - 7145 ;- WRK4 : 角度スピード - 7146 ;- WRK6 : 最初のＸ - 7147 ;- WRK8 : 最初のＹ - 7148 ;- XPSL : 絵の中心Ｘ - 7149 ;- YPSL : 絵の中心Ｙ - 7150 ;- CNTXW : 水平ラインの中心Ｘ - 7151 ;- CNTYW : 水平ラインの中心Ｙ - 7152 ;- WIDEX : Ｘチェック幅(半径) - 7153 ;- WIDEY : Ｙチェック幅(中心からの距離) - 7154 ;- - 7155 ;---------------------------------------------------------------- 7156 001F21 GROCK_MOVE EQU $ 7157 S001F21 A0 00" IBT R0,#BANK LCOS 7158 S001F23 3F DF ROMB 7159 ; 7160 S001F25 3D F1 1972 LM R1,CENINDX ; R1 <- 敵のインデックス 7161 ; 7162 mLDW0 CENCONT,R1 7162+ S001F29 F0 1976 IWT R0,#CENCONT 7162+ S001F2C 51 ADD R1 7162+ S001F2D 40 LDW (R0) 7163 S001F2E 12 TO R2 7164 S001F2F C0 HIB 7165 S001F30 F0 0000" IWT R0,#LCOS 7166 S001F33 1E TO R14 7167 S001F34 52 ADD R2 7168 ; 7169 mLDW R3,CENWRK6,R1 ; 基本Ｘの読み込み !! 7169+ S001F35 F0 1A36 IWT R0,#CENWRK6 7169+ S001F38 51 ADD R1 7169+ S001F39 13 TO R3 7169+ S001F3A 40 LDW (R0) 7170 mLDW R12,CENWRK0,R1 ; 支点Ｘの読み込み !! 7170+ S001F3B F0 1978 IWT R0,#CENWRK0 7170+ S001F3E 51 ADD R1 7170+ S001F3F 1C TO R12 7170+ S001F40 40 LDW (R0) 7171 S001F41 23 WITH R3 7172 S001F42 6C SUB R12 ; R3 <- Ｘ 7173 mLDW R4,CENWRK8,R1 ; 基本Ｙの読み込み !! 7173+ S001F43 F0 1A38 IWT R0,#CENWRK8 7173+ S001F46 51 ADD R1 7173+ S001F47 14 TO R4 7173+ S001F48 40 LDW (R0) 7174 mLDW R13,CENWRK2,R1 ; 支点Ｙの読み込み !! 7174+ S001F49 F0 19D6 IWT R0,#CENWRK2 7174+ S001F4C 51 ADD R1 7174+ S001F4D 1D TO R13 7174+ S001F4E 40 LDW (R0) 7175 S001F4F 24 WITH R4 7176 S001F50 6D SUB R13 ; R4 <- Ｙ 7177 ; 7178 S001F51 15 TO R5 7179 S001F52 EF GETB ; R5 <- COS DATA 7180 ; 7181 S001F53 F0 0000" IWT R0,#LSIN 7182 S001F56 1E TO R14 7183 S001F57 52 ADD R2 7184 ; 7185 S001F58 B3 FROM R3 7186 S001F59 18 TO R8 7187 S001F5A 85 MULT R5 ; R8 <- sx * cos 7188 S001F5B B4 FROM R4 7189 S001F5C 19 TO R9 7190 S001F5D 85 MULT R5 ; R9 <- sy * cos 7191 ; 7192 S001F5E 17 TO R7 7193 S001F5F EF GETB ; R7 <- SIN DATA 7194 ; 7195 S001F60 FA 0080 IWT R10,#00080H 7196 S001F63 B4 FROM R4 7197 S001F64 87 MULT R7 ; sy * sin 7198 S001F65 58 ADD R8 7199 S001F66 50 ADD R0 7200 S001F67 50 ADD R0 7201 S001F68 5A ADD R10 7202 S001F69 C0 HIB 7203 S001F6A 95 SEX 7204 S001F6B 1A TO R10 7205 S001F6C 5C ADD R12 ; R10 <- sx * cos + sy * sin + cx 7206 mLDW0 CENXPSL,R1 7206+ S001F6D F0 10E2 IWT R0,#CENXPSL 7206+ S001F70 51 ADD R1 7206+ S001F71 40 LDW (R0) 7207 S001F72 BA FROM R10 7208 S001F73 1B TO R11 7209 S001F74 60 SUB R0 7210 mSTW R11,CENMOVX,R1 ; 移動Ｘ距離セーブ !! 7210+ S001F75 F0 12C0 IWT R0,#CENMOVX 7210+ S001F78 51 ADD R1 7210+ S001F79 BB FROM R11 7210+ S001F7A 30 STW (R0) 7211 mSTW R10,CENXPSL,R1 ; Ｘセーブ !! 7211+ S001F7B F0 10E2 IWT R0,#CENXPSL 7211+ S001F7E 51 ADD R1 7211+ S001F7F BA FROM R10 7211+ S001F80 30 STW (R0) 7212 ; 7213 S001F81 FA 0080 IWT R10,#00080H 7214 S001F84 B3 FROM R3 7215 S001F85 87 MULT R7 ; sx * sin 7216 S001F86 B9 FROM R9 7217 S001F87 60 SUB R0 7218 S001F88 50 ADD R0 7219 S001F89 50 ADD R0 7220 S001F8A 5A ADD R10 7221 S001F8B C0 HIB 7222 S001F8C 95 SEX 7223 S001F8D 1A TO R10 7224 S001F8E 5D ADD R13 ; R10 <- sy * cos - sx * sin + cy 7225 mLDW0 CENYPSL,R1 7225+ S001F8F F0 1182 IWT R0,#CENYPSL 7225+ S001F92 51 ADD R1 7225+ S001F93 40 LDW (R0) 7226 S001F94 BA FROM R10 7227 S001F95 1B TO R11 7228 S001F96 60 SUB R0 7229 mSTW R11,CENMOVY,R1 ; 移動Ｙ距離セーブ !! 7229+ S001F97 F0 12C2 IWT R0,#CENMOVY 7229+ S001F9A 51 ADD R1 7229+ S001F9B BB FROM R11 7229+ S001F9C 30 STW (R0) 7230 mSTW R10,CENYPSL,R1 ; Ｙセーブ !! 7230+ S001F9D F0 1182 IWT R0,#CENYPSL 7230+ S001FA0 51 ADD R1 7230+ S001FA1 BA FROM R10 7230+ S001FA2 30 STW (R0) 7231 ; 7232 S001FA3 00 STOP 7233 S001FA4 01 NOP 7234 ; 7235 ; 7236 ;-------------------------------------------------------------------------------- 7237 ;- 卵のサーチ - 7238 ;- in : - 7239 ;- R14 <- 最初の卵の名前(EGG00 ~ EGG09) - 7240 ;- R11 <- 最後の卵の名前(EGG00+1 ~ EGG09+1) - 7241 ;- R10 <- Ｍｙ インデックス - 7242 ;- out : - 7243 ;- 見つかったとき : (R1) <- インデックス - 7244 ;- 見つからないとき : (R1) <- -1 - 7245 ;-------------------------------------------------------------------------------- 7246 001FA5 EX_EGGSEARCH EQU $ 7247 S001FA5 A1 FF IBT R1,#-1 ; (R1) <- Ｉｎｉｔｉａｌ インデックス 7248 S001FA7 F2 0F00 IWT R2,#CENMODE ; (R2) <- 敵モードポインタ 7249 S001FAA F3 1360 IWT R3,#CENMYNO ; (R3) <- 敵ネームポインタ 7250 S001FAD F4 0010 IWT R4,#CEMOVE ; (R4) <- Ｍｏｖｅ フラグ 7251 S001FB0 A5 FF IBT R5,#-1 ; (R5) <- Ｉｎｉｔｉａｌ Ｘ 7252 S001FB2 A6 FF IBT R6,#-1 ; (R6) <- Ｉｎｉｔｉａｌ Ｙ 7253 S001FB4 A7 00 IBT R7,#00 ; (R7) <- Ｉｎｉｔｉａｌ インデックス 7254 mLDW R8,CECENTX,R10 ; (R8) <- Ｍｙ Ｘ ポジション 7254+ S001FB6 F0 1CD6 IWT R0,#CECENTX 7254+ S001FB9 5A ADD R10 7254+ S001FBA 18 TO R8 7254+ S001FBB 40 LDW (R0) 7255 mLDW R9,CECENTY,R10 ; (R9) <- Ｍｙ Ｙ ポジション 7255+ S001FBC F0 1CD8 IWT R0,#CECENTY 7255+ S001FBF 5A ADD R10 7255+ S001FC0 19 TO R9 7255+ S001FC1 40 LDW (R0) 7256 ; 7257 S001FC2 02 CACHE 7258 ; 7259 S001FC3 AC 18 IBT R12,#CENNO 7260 S001FC5 2F 1D MOVE R13,R15 7261 ; 7262 S001FC7 42 LDW (R2) 7263 S001FC8 64 SUB R4 7264 S001FC9 08 52' BNE EX_EGGSEARCH080 ; Mode Move ? [no->EX_EGGSEARCH080] 7265 S001FCB 01 NOP 7266 ; 7267 S001FCC 43 LDW (R3) 7268 S001FCD 3F 6E CMP R14 7269 S001FCF 0C 4C' BCC EX_EGGSEARCH080 ; 卵？ [no->EX_EGGSEARCH080] 7270 S001FD1 01 NOP 7271 ; 7272 S001FD2 3F 6B CMP R11 7273 S001FD4 0D 47' BCS EX_EGGSEARCH080 ; 卵？ [no->EX_EGGSEARCH080] 7274 S001FD6 01 NOP 7275 ; 7276 mLDW0 CENSHOT,R7 7276+ S001FD7 F0 1D38 IWT R0,#CENSHOT 7276+ S001FDA 57 ADD R7 7276+ S001FDB 40 LDW (R0) 7277 S001FDC 3E 60 SUB #00 7278 S001FDE 08 3D' BNE EX_EGGSEARCH080 ; ショット？ [yes->EX_EGGSEARCH080] 7279 S001FE0 01 NOP 7280 ; 7281 mLDB0 CENWRK4,R7 7281+ S001FE1 F0 19D8 IWT R0,#CENWRK4 7281+ S001FE4 57 ADD R7 7281+ S001FE5 3D 40 LDB (R0) 7282 S001FE7 95 SEX 7283 S001FE8 0B 33' BMI EX_EGGSEARCH080 ; 投げモード？ [yes->EX_EGGSEARCH080] 7284 S001FEA 01 NOP 7285 ; 7286 mLDW0 CENWRK6,R7 7286+ S001FEB F0 1A36 IWT R0,#CENWRK6 7286+ S001FEE 57 ADD R7 7286+ S001FEF 40 LDW (R0) 7287 S001FF0 3E 60 SUB #00 7288 S001FF2 08 29' BNE EX_EGGSEARCH080 ; ？ [yes->EX_EGGSEARCH080] 7289 S001FF4 01 NOP 7290 ; 7291 mLDW0 CECENTX,R7 7291+ S001FF5 F0 1CD6 IWT R0,#CECENTX 7291+ S001FF8 57 ADD R7 7291+ S001FF9 40 LDW (R0) 7292 S001FFA 1A TO R10 7293 S001FFB 68 SUB R8 7294 S001FFC 0A 04' BPL EX_EGGSEARCH040 ; ＋ [yes->EX_EGGSEARCH040] 7295 S001FFE 2A WITH R10 7296 ; 7297 S001FFF 4F NOT 7298 S002000 DA INC R10 7299 S002001 BA FROM R10 7300 EX_EGGSEARCH040 7301 S002002 3F 65 CMP R5 7302 S002004 0D 17' BCS EX_EGGSEARCH080 ; [->EX_EGGSEARCH080] 7303 S002006 01 NOP 7304 ; 7305 mLDW0 CECENTY,R7 7305+ S002007 F0 1CD8 IWT R0,#CECENTY 7305+ S00200A 57 ADD R7 7305+ S00200B 40 LDW (R0) 7306 S00200C 69 SUB R9 7307 S00200D 0A 03' BPL EX_EGGSEARCH050 ; ＋ [yes->EX_EGGSEARCH050] 7308 S00200F 01 NOP 7309 ; 7310 S002010 4F NOT 7311 S002011 D0 INC R0 7312 EX_EGGSEARCH050 7313 S002012 3F 66 CMP R6 7314 S002014 0D 07' BCS EX_EGGSEARCH080 ; [->EX_EGGSEARCH080] 7315 S002016 01 NOP 7316 ; 7317 S002017 20 16 MOVE R6,R0 7318 S002019 2A 15 MOVE R5,R10 7319 S00201B 27 11 MOVE R1,R7 7320 EX_EGGSEARCH080 7321 S00201D 22 WITH R2 7322 S00201E 3E 54 ADD #04 7323 S002020 23 WITH R3 7324 S002021 3E 54 ADD #04 7325 S002023 27 WITH R7 7326 S002024 3E 54 ADD #04 7327 S002026 3C LOOP 7328 S002027 01 NOP 7329 ; 7330 S002028 00 STOP 7331 S002029 01 NOP 7332 ; 7333 ;------------------------------------------------------------------------ 7334 ;- ボスカチカチ君のＯＡＭ位置補正 - 7335 ;- in : - 7336 ;- (R1) <-- Ｘ加算値 - 7337 ;- (R2) <-- Ｙ加算値 - 7338 ;- (R3) <-- ＯＡＭポインター - 7339 ;------------------------------------------------------------------------ 7340 00202A BK_OAM_RV EQU $ 7341 S00202A A4 06 IBT R4,#8-2 7342 ; 7343 S00202C 02 CACHE 7344 ; 7345 S00202D AC 1D IBT R12,#29 7346 S00202F 2F 1D MOVE R13,R15 7347 BK_OAM_RV_010 7348 S002031 43 LDW (R3) 7349 S002032 51 ADD R1 7350 S002033 90 SBK ;[ STW (R3) ] 7351 S002034 D3 INC R3 7352 S002035 D3 INC R3 7353 S002036 43 LDW (R3) 7354 S002037 52 ADD R2 7355 S002038 23 WITH R3 7356 S002039 54 ADD R4 7357 S00203A 3C LOOP 7358 S00203B 90 SBK ;[ STW (R3) ] 7359 ; 7360 S00203C 00 STOP 7361 S00203D 01 NOP 7362 ; 7363 ; 7364 ; 7365 ; 7366 ; 7367 END