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