File : ys_chip1.asm SUPER-FX ASSEMBLER $Ver 1.01 Thu Aug 10 15:20:11 1995 Page 0001 1 ;************************************************************************ 2 ;* * 3 ;* title name : "yossy" * 4 ;* proccess : mario chip program.2 * 5 ;* file name : ys_chip1 * 6 ;* * 7 ;************************************************************************ 8 ; 9 ; 10 SALL 11 ; 12 include ys_chip.inc 13 ; 14 XALL 15 ; 16 ; 17 ;------------------------------------------------------------------------ 18 ;- global symbol - 19 ;------------------------------------------------------------------------ 20 ; GLB 21 ; 22 ;------------------------------------------------------------------------ 23 ;- extern symbol - 24 ;------------------------------------------------------------------------ 25 ; 26 ;-------------< ys_chip0 >----------------------------------------------- 27 EXT COS,SIN,LCOS,LSIN 28 ; 29 ;-------------< ys_msub0 >----------------------------------------------- 30 EXT BGUNIT_READ_2 31 ; 32 EXT ENBGCK_POINT_IN,ENBGCK_POINT 33 ; 34 ;-------------< ys_mplay0 >---------------------------------------------- 35 EXT M_RAD_GET_S 36 ; 37 ; 38 ;************************************************************************ 39 ;* * 40 ;* program start * 41 ;* * 42 ;************************************************************************ 43 ; 44 ; 45 Group_A GROUP S_chip_1 46 S_chip_1 SECT REL 47 ; 48 ; 49 ; 50 ; 51 ; 52 ; 53 ;************************************************************************ 54 ;* slime H-DMA set * 55 ;* in : (R2) <-- kire Y pos * 56 ;* (R3) <-- " center Y pos * 57 ;* (CWK0) <-- foot X pos ( display ) * 58 ;* (CWK1) <-- " Y " * 59 ;* (CWK2) <-- X zoom flag ( 100H=1.0 ) * 60 ;* (CWK3) <-- Y " * 61 ;* (CWK4) <-- sin data pointer * 62 ;* (CWK5) <-- " X zoom flag * 63 ;* (CWK6) <-- " Y spep * 64 ;* (CWK7) <-- eye X pos * 65 ;* (CWK8) <-- " Y " * 66 ;* (CWK9) <-- slime enemy index * 67 ;* (CWKA) <-- player display X pos * 68 ;* (CWKB) <-- " Y " * 69 ;* (CWKC) <-- " sit down flag * 70 ;* * 71 ;* out : (CWKD) <-- " cross flag * 72 ;* [ 00011111B ] * 73 ;* +++++- foot * 74 ;* |||+-- down right * 75 ;* ||+--- " left * 76 ;* |+---- up right * 77 ;* +----- " left * 78 ;* (CWKE) <-- player foot hosei dot * 79 ;* (CWKF) <-- " cross saka flag * 80 ;* (CWK10) <- hed BG check Y pos * 81 ;* 0,5,4,9:not saka * 82 ;* 1,6 :67.5 * 83 ;* 2,7 :45 * 84 ;* 3,8 :22.5 * 85 ;************************************************************************ 86 ; 87 000000 SLIMEST EQU $ 88 S000000 22 WITH R2 ;(R2) <-- kire Y pos hosei 89 S000001 3E 68 SUB #8 90 S000003 23 WITH R3 ;(R3) <-- " center Y pos hosei 91 S000004 3E 68 SUB #8 92 ; 93 S000006 A0 00' IBT R0,#BANK EGG_DATA ;slime data address(B) set 94 S000008 3F DF ROMB 95 ; 96 S00000A FE 0445' IWT R14,#EGG_DATA ;(R14) <-- slime data address 97 S00000D EF GETB 98 S00000E 3E A0 10 SMS R0,CWORK10 ;(CWK10) <-- slime high 99 S000011 1A TO R10 ;(R10) <-- slime data botom pointer 100 S000012 4D SWAP 101 ; 102 ;;;; IWT R9,#0B2H-1 ;(R9) <-- H-DMA data set line no. 103 S000013 F9 00D1 IWT R9,#0D2H-1 ;(R9) <-- H-DMA data set line no. 104 ; 105 S000016 3D A0 01 LMS R0,CWORK1 106 S000019 11 TO R1 ;(R1) <-- foot Y pos 107 S00001A 3E 68 SUB #8 vvv******* warn :value out of range 108 S00001C F0 2200 IWT R0,#DIVBUF 109 S00001F 3D A8 03 LMS R8,CWORK3 110 S000022 58 ADD R8 111 S000023 58 ADD R8 112 S000024 18 TO R8 ;(R8) <-- Y zoom step 113 S000025 40 LDW (R0) 114 S000026 3E A8 11 SMS R8,CWORK11 ;(CWK11) <-- Y zoom step 115 ; 116 S000029 02 CACHE 117 ; 118 S00002A 3D A0 00 LMS R0,CWORK0 119 S00002D 3E A0 12 SMS R0,CWORK12 ;(CWK12) <-- scroll counter_H set center X pos 120 S000030 AB 60 IBT R11,#060H 121 S000032 5B ADD R11 122 S000033 FB 01C0 IWT R11,#100H+(60H+60H) 123 S000036 6B SUB R11 124 S000037 0C 0C' BCC SLIMS000 ;display ? ( yes:SLIMS000 ) 125 S000039 01 NOP 126 ; 127 ;-------------- not display !! ---------------------------------- 128 S00003A A0 80 IBT R0,#80H ;[ IWT R0,#0FF80H ] 129 S00003C 3E A0 12 SMS R0,CWORK12 ;(CWK12) <-- scroll counter_H set center X pos 130 S00003F FF 0134' IWT R15,#SLIMS130+1 ;[ JMP SLIMS130+1 ] 131 S000042 3D A0 10 LMS R0,CWORK10 ;[ dummy ] 132 ; 133 SLIMS000 134 ;;;; IWT R11,#HDMABF+(0B2H-1)*2 ;(R11) <-- H-DMA buffer address vvv******* warn :value out of range 135 S000045 FB 3514 IWT R11,#HDMABF+(0D2H-1)*2 ;(R11) <-- H-DMA buffer address 136 ;;;; IWT R13,#0B2H-2 137 S000048 FD 00D0 IWT R13,#0D2H-2 138 S00004B BD FROM R13 139 S00004C 61 SUB R1 140 S00004D 0A 0B' BPL SLIMS010 ;no under clear ? ( no:SLIMS010 ) 141 S00004F 16 TO R6 142 ; 143 ;-------------- no under clear !! ------------------------------- 144 S000050 4F NOT 145 S000051 D6 INC R6 146 S000052 B8 FROM R8 147 S000053 3D 9F LMULT 148 S000055 2A WITH R10 149 S000056 64 SUB R4 150 S000057 05 20' BRA SLIMS030 151 S000059 DE INC R14 ;[ next program ] 152 ; 153 SLIMS010 154 S00005A 20 1C MOVE R12,R0 ;(R12) <-- number of under clear line 155 S00005C BD FROM R13 156 S00005D 6C SUB R12 157 S00005E 0A 04' BPL SLIMS012 ;all clear ? ( no:SLIMS012 ) 158 S000060 DC INC R12 159 ; 160 S000061 2D 1C MOVE R12,R13 161 S000063 DC INC R12 162 SLIMS012 163 ; 164 ;-------------- under clear !! ---------------------------------- 165 S000064 29 WITH R9 166 S000065 6C SUB R12 167 ;;;; IWT R0,#-0B2H-8 168 S000066 F0 FF26 IWT R0,#-0D2H-8 169 S000069 2F 1D MOVE R13,R15 170 SLIMS020 171 S00006B 3B STW (R11) 172 S00006C EB DEC R11 173 S00006D EB DEC R11 174 S00006E 3C LOOP 175 S00006F D0 INC R0 176 ; 177 S000070 08 07' BNE SLIMS030 ;H-DMA data set end ? ( no:SLIMS030 ) 178 S000072 DE INC R14 ;[ next program ] 179 ; 180 S000073 FF 0134' IWT R15,#SLIMS130+1 ;[ JMP SLIMS130+1 ] 181 S000076 3D A0 10 LMS R0,CWORK10 ;[ dummy ] 182 ; 183 ;-------------- slime data set ---------------------------------- 184 SLIMS030 185 ;;;; INC R14 186 S000079 3D A6 02 LMS R6,CWORK2 ;(R6) <-- X zoom flag 187 S00007C 2E 17 MOVE R7,R14 ;(R7) <-- slime data address 188 ;;;; IBT R4,#07FH ;(R4) <-- max X wide 189 ; 190 S00007E B9 FROM R9 191 S00007F 1C TO R12 192 S000080 62 SUB R2 193 S000081 DC INC R12 194 S000082 2F 1D MOVE R13,R15 195 SLIMS040 196 S000084 2A WITH R10 197 S000085 68 SUB R8 198 S000086 0B 1F' BMI SLIMS060 ;slime data set end ? ( yes:SLIMS060 ) 199 S000088 BA FROM R10 200 ; 201 S000089 C0 HIB 202 S00008A 1E TO R14 203 S00008B 57 ADD R7 204 S00008C EF GETB 205 S00008D 4D SWAP 206 S00008E 9F FMULT 207 S00008F D0 INC R0 208 S000090 03 LSR ;1/2 209 ;;;; CMP R4 210 ;;;; BCC SLIMS050 ;max X wide over ? ( no:SLIMS050 ) 211 ;;;; NOP 212 ;;;;; 213 ;;;; MOVE R0,R4 214 ;;;SLIMS050 215 S000091 20 15 MOVE R5,R0 ;(R5) <-- now set X wide 216 S000093 69 SUB R9 217 S000094 3E 68 SUB #8 218 S000096 3B STW (R11) 219 S000097 EB DEC R11 220 S000098 EB DEC R11 221 S000099 3C LOOP 222 S00009A E9 DEC R9 223 ; 224 S00009B 0A 07' BPL SLIMS052 ;H-DMA data set end ? ( no:SLIMS052 ) 225 S00009D 01 NOP 226 ; 227 S00009E FF 0134' IWT R15,#SLIMS130+1 ;[ JMP SLIMS130+1 ] 228 S0000A1 3D A0 10 LMS R0,CWORK10 ;[ dummy ] 229 ; 230 SLIMS052 231 S0000A4 05 1A' BRA SLIMS070+1 232 S0000A6 B2 FROM R2 ;[ nex tprogram ] 233 ; 234 ;-------------- to kire Y pos clear !! -------------------------- 235 SLIMS060 236 S0000A7 B9 FROM R9 237 S0000A8 4F NOT 238 S0000A9 3E 68 SUB #8 239 S0000AB 29 WITH R9 240 S0000AC 6C SUB R12 241 S0000AD 2F 1D MOVE R13,R15 242 SLIMS062 243 S0000AF 3B STW (R11) 244 S0000B0 EB DEC R11 245 S0000B1 EB DEC R11 246 S0000B2 3C LOOP 247 S0000B3 D0 INC R0 248 ; 249 S0000B4 08 07' BNE SLIMS064 ;H-DMA data set end ? ( no:SLIMS064 ) 250 S0000B6 01 NOP 251 ; 252 S0000B7 FF 0134' IWT R15,#SLIMS130+1 ;[ JMP SLIMS130+1 ] 253 S0000BA 3D A0 10 LMS R0,CWORK10 ;[ dummy ] 254 ; 255 SLIMS064 256 S0000BD A5 00 IBT R5,#00 ;(R5) <-- now set X wide 257 ; 258 ;-------------- kire data set ----------------------------------- 259 SLIMS070 260 S0000BF B2 FROM R2 261 S0000C0 63 SUB R3 262 S0000C1 20 1D MOVE R13,R0 263 S0000C3 0A 03' BPL SLIMS072 264 S0000C5 01 NOP 265 ; 266 S0000C6 4F NOT 267 S0000C7 D0 INC R0 268 SLIMS072 269 S0000C8 20 1C MOVE R12,R0 270 S0000CA FE 04A6' IWT R14,#KIRE_DATA ;(R14) <-- kire data address 271 S0000CD A0 22 IBT R0,#35-1 272 S0000CF 3F 6C CMP R12 273 S0000D1 0D 03' BCS SLIMS080 ;kira data over ? ( no:SLIMS080 ) 274 S0000D3 BC FROM R12 275 ; 276 S0000D4 20 1C MOVE R12,R0 277 SLIMS080 278 S0000D6 69 SUB R9 279 S0000D7 0C 04' BCC SLIMS082 280 S0000D9 DC INC R12 281 ; 282 S0000DA 29 1C MOVE R12,R9 283 S0000DC DC INC R12 284 SLIMS082 285 S0000DD 2E WITH R14 286 S0000DE 5C ADD R12 287 S0000DF 14 TO R4 ;(R4) <-- kire point data 288 S0000E0 EF GETB 289 S0000E1 25 WITH R5 ;(R5) <-- (kire data - slime X wide) 290 S0000E2 64 SUB R4 291 ; 292 ;;;; IBT R6,#07FH ;(R6) <-- max X wide 293 S0000E3 AA FF IBT R10,#0FFH ;(R10) <-- min " 294 ; 295 S0000E5 2D BD MOVES R13,R13 296 S0000E7 0A 0D' BPL SLIMS084 ;kire from up ? ( no:SLIMS084 ) 297 S0000E9 EE DEC R14 298 ; 299 S0000EA DE INC R14 300 S0000EB A0 23 IBT R0,#35 301 S0000ED 1C TO R12 302 S0000EE 6C SUB R12 303 S0000EF 08 24' BNE SLIMS110 ;kire data nothing ? ( no:SLIMS110 ) 304 S0000F1 DE INC R14 305 ; 306 S0000F2 EE DEC R14 307 S0000F3 05 20' BRA SLIMS110 308 S0000F5 DC INC R12 ;[ IBT R12,#1 ] 309 ; 310 SLIMS084 311 S0000F6 2F 1D MOVE R13,R15 312 SLIMS090 313 S0000F8 EF GETB 314 S0000F9 EE DEC R14 315 S0000FA 55 ADD R5 316 S0000FB 0A 03' BPL SLIMS092 317 S0000FD 01 NOP 318 ; 319 S0000FE 2A 10 MOVE R0,R10 320 SLIMS092 321 ;;;; CMP R6 322 ;;;; BMI SLIMS100 ;max X wide over ? ( no:SLIMS100 ) 323 ;;;; NOP 324 ;;;;; 325 ;;;; FROM R6 326 ;;;;SLIMS100 327 S000100 69 SUB R9 328 S000101 3E 68 SUB #8 329 S000103 3B STW (R11) 330 S000104 EB DEC R11 331 S000105 EB DEC R11 332 S000106 3C LOOP 333 S000107 E9 DEC R9 334 ; 335 S000108 0B 29' BMI SLIMS130 ;H-DMA data set end ? ( yes:SLIMS130 ) 336 S00010A DE INC R14 ;[ to top data !! ] 337 ; 338 S00010B AC 23 IBT R12,#35 339 S00010D BC FROM R12 340 S00010E 69 SUB R9 341 S00010F 0C 04' BCC SLIMS110 342 S000111 DC INC R12 343 ; 344 S000112 29 1C MOVE R12,R9 345 S000114 DC INC R12 346 ; 347 SLIMS110 348 S000115 2F 1D MOVE R13,R15 349 SLIMS112 350 S000117 EF GETB 351 S000118 DE INC R14 352 S000119 55 ADD R5 353 S00011A 0A 03' BPL SLIMS114 354 S00011C 01 NOP 355 ; 356 S00011D 2A 10 MOVE R0,R10 357 SLIMS114 358 ;;;; CMP R6 359 ;;;; BMI SLIMS120 ;max X wide over ? ( no:SLIMS120 ) 360 ;;;; NOP 361 ;;;;; 362 ;;;; FROM R6 363 ;;;;SLIMS120 364 S00011F 69 SUB R9 365 S000120 3E 68 SUB #8 366 S000122 3B STW (R11) 367 S000123 EB DEC R11 368 S000124 EB DEC R11 369 S000125 3C LOOP 370 S000126 E9 DEC R9 371 ; 372 S000127 0B 0A' BMI SLIMS130 ;H-DMA data set end ? ( yes:SLIMS130 ) 373 S000129 D9 INC R9 374 ; 375 S00012A 29 1C MOVE R12,R9 376 S00012C 2F 1D MOVE R13,R15 377 SLIMS122 378 S00012E D0 INC R0 379 S00012F 3B STW (R11) 380 S000130 EB DEC R11 381 S000131 3C LOOP 382 S000132 EB DEC R11 383 ; 384 ;-------------- scroll counter_H H-DMA data set ------------------------- 385 SLIMS130 386 S000133 3D A0 10 LMS R0,CWORK10 387 S000136 4D SWAP 388 S000137 3D A6 03 LMS R6,CWORK3 389 S00013A 1C TO R12 ;(R12) <-- slime high 390 S00013B 9F FMULT 391 ; vvv******* warn :value out of range 392 S00013C F7 3516 IWT R7,#HDMABF1 ;(R7) <-- scroll counter_H set H-DMA buffer address 393 S00013F 3D A0 01 LMS R0,CWORK1 394 S000142 3E 68 SUB #8 395 S000144 20 19 MOVE R9,R0 ;(R9) <-- foot Y pos 396 S000146 57 ADD R7 397 S000147 11 TO R1 ;(R1) <-- " pointer 398 S000148 59 ADD R9 399 ; 400 S000149 3D A0 04 LMS R0,CWORK4 401 S00014C 12 TO R2 ;(R2) <-- sin data pointer 402 S00014D 4D SWAP 403 S00014E 3D A0 06 LMS R0,CWORK6 404 S000151 3D A6 11 LMS R6,CWORK11 405 S000154 3D 9F LMULT 406 S000156 9E LOB 407 S000157 4D SWAP 408 S000158 24 WITH R4 409 S000159 C0 HIB 410 S00015A 13 TO R3 ;(R3) <-- sin data Y step 411 S00015B C4 OR R4 412 S00015C 3D A0 05 LMS R0,CWORK5 413 S00015F 3D A6 02 LMS R6,CWORK2 414 S000162 3D 9F LMULT 415 S000164 24 16 MOVE R6,R4 ;(R6) <-- sin data X zoom flag 416 S000166 FB 0000" IWT R11,#SIN ;(R11) <-- sin data address 417 ; 418 S000169 F0 0080 IWT R0,#080H 419 S00016C 3D A5 12 LMS R5,CWORK12 420 S00016F 15 TO R5 ;(R5) <-- center scroll counter_H 421 S000170 65 SUB R5 422 S000171 25 18 MOVE R8,R5 ;(R8) <-- " 423 ; 424 S000173 A0 00" IBT R0,#BANK SIN 425 S000175 3F DF ROMB 426 ; 427 S000177 29 1A MOVE R10,R9 ;(R10) <-- foot Y pos 428 ;;;; IWT R4,#0B2H ;(R4) <-- max Y pos 429 S000179 F4 00D2 IWT R4,#0D2H ;(R4) <-- max Y pos 430 S00017C 2F 1D MOVE R13,R15 431 SLIMS140 432 S00017E 20 BA MOVES R0,R10 433 S000180 0B 15' BMI SLIMS160 ;H-DMA data set end ? ( yes:SLIMS160 ) 434 S000182 64 SUB R4 435 ; 436 S000183 0D 0C' BCS SLIMS150 ; " ok ? ( no:SLIMS150 ) 437 S000185 B2 FROM R2 438 ; 439 S000186 C0 HIB 440 S000187 50 ADD R0 441 S000188 1E TO R14 ;(R14) <-- read sin data address 442 S000189 5B ADD R11 443 ; 444 S00018A EF GETB 445 S00018B DE INC R14 446 S00018C 3D EF GETBH 447 S00018E 9F FMULT 448 S00018F 55 ADD R5 449 S000190 31 STW (R1) 450 SLIMS150 451 S000191 22 WITH R2 ;sin data pointer up !! 452 S000192 53 ADD R3 453 S000193 E1 DEC R1 454 S000194 E1 DEC R1 455 S000195 3C LOOP 456 S000196 EA DEC R10 457 ;D 458 ;-------------- eye pos calculate --------------------------------------- 459 SLIMS160 460 S000197 3D A0 07 LMS R0,CWORK7 461 S00019A 4D SWAP 462 S00019B 3D A6 02 LMS R6,CWORK2 463 S00019E 9F FMULT 464 S00019F 12 TO R2 ;(R2) <-- calculate eye X pos 465 S0001A0 3F 50 ADC #0 466 ; 467 S0001A2 3D A0 08 LMS R0,CWORK8 468 S0001A5 4D SWAP 469 S0001A6 3D A6 03 LMS R6,CWORK3 470 S0001A9 9F FMULT 471 S0001AA 3F 50 ADC #0 472 S0001AC 3E A0 08 SMS R0,CWORK8 ;(CWK8) <-- calculate eye Y pos 473 ; 474 S0001AF 59 ADD R9 475 S0001B0 20 11 MOVE R1,R0 ;(R1) <-- display eye Y pos 476 S0001B2 64 SUB R4 477 S0001B3 0D 08' BCS SLIMS170 ;Y pos over ? ( yes:SLIMS170 ) 478 S0001B5 60 SUB R0 ;[ IBT R0,#00 ] 479 ; 480 S0001B6 B7 FROM R7 481 S0001B7 51 ADD R1 482 S0001B8 51 ADD R1 483 S0001B9 40 LDW (R0) 484 S0001BA 68 SUB R8 485 S0001BB 4F NOT 486 S0001BC D0 INC R0 487 SLIMS170 488 S0001BD 52 ADD R2 489 S0001BE 3E A0 07 SMS R0,CWORK7 ;(CWK7) <-- calculate eye X pos 490 ; 491 ;-------------- player cross check -------------------------------------- 492 S0001C1 F0 041B' IWT R0,#SLIM_BGP ;(CWK10) <-- BG check point data pointer 493 S0001C4 3E A0 10 SMS R0,CWORK10 494 ; 495 0001C7 BG3_CROSS_CK EQU $ 496 ;;;; mJSR_X BG3PCROS ;[ return: (R5) <-- 0B2H ] 497 mJSR_X BG3PCROS ;[ return: (R5) <-- 0D2H ] 497+ S0001C7 94 LINK #4 497+ S0001C8 FF 0329' IWT R15, #BG3PCROS 498 S0001CB 02 CACHE 499 ; 500 ;-------------- VS enemy cross check ------------------------------------ 501 S0001CC F1 0F00 IWT R1,#CENMODE ;(R1) <-- enemy mode pointer 502 ;;;; IWT R2,#CENMOD0+1 ;(R2) <-- " cross check ok flag pointer 503 S0001CF F2 1D38 IWT R2,#CENSHOT ;(R2) <-- " cross check ok flag pointer 504 S0001D2 F3 1CD6 IWT R3,#CECENTX ;(R3) <-- " cross check center pos pointer 505 S0001D5 F0 1D37 IWT R0,#CENCRPT 506 S0001D8 3D A4 09 LMS R4,CWORK9 507 S0001DB 54 ADD R4 508 S0001DC 3D 40 LDB (R0) 509 S0001DE 50 ADD R0 510 S0001DF 14 TO R4 ;(R4) <-- slime cross check start point 511 S0001E0 50 ADD R0 512 S0001E1 3D FA 0094 LM R10,CESCCH1 ;(R10) <-- scroll counter_H 513 S0001E5 AC 18 IBT R12,#CENNO ;(R12) <-- loop no 514 S0001E7 3D F0 009C LM R0,CESCCV1 515 S0001EB 1B TO R11 ;(R11) <-- " _V 516 S0001EC 3E 58 ADD #8 517 ; 518 S0001EE 02 CACHE 519 ; 520 S0001EF FD 01F3' IWT R13,#SLIMS180+1 521 SLIMS180 522 S0001F2 24 WITH R4 523 S0001F3 3E 64 SUB #4 524 S0001F5 0A 04' BPL SLIMS190 ;cross check index over ? ( no:SLIMS190 ) 525 S0001F7 B1 FROM R1 526 ; 527 S0001F8 A4 5C IBT R4,#(CENNO-1)*4 528 S0001FA B1 FROM R1 529 SLIMS190 530 S0001FB 54 ADD R4 531 S0001FC 3D 40 LDB (R0) 532 S0001FE 3E 6E SUB #CEFAIL 533 S000200 0C 35' BCC SLIMS210 ;cross check ok mode ? ( no:SLIMS210 ) 534 S000202 B2 FROM R2 535 ; 536 S000203 54 ADD R4 537 S000204 40 LDW (R0) 538 ;;;; AND #02H 539 S000205 3E 60 SUB #0 540 S000207 09 2E' BEQ SLIMS210 ;cross check ok ? ( no:SLIMS210 ) 541 S000209 B3 FROM R3 542 ; 543 S00020A 54 ADD R4 544 S00020B 1E TO R14 545 S00020C 40 LDW (R0) 546 S00020D 2E WITH R14 ;(R14) <-- display cross check center X pos 547 S00020E 6A SUB R10 548 S00020F D0 INC R0 549 S000210 D0 INC R0 550 S000211 40 LDW (R0) 551 S000212 6B SUB R11 552 S000213 65 SUB R5 553 S000214 0D 21' BCS SLIMS210 ;Y pos over ? ( yes:SLIMS210 ) 554 S000216 55 ADD R5 555 ; 556 S000217 20 19 MOVE R9,R0 ;(R9) <-- display cross check center Y pos 557 S000219 50 ADD R0 ;x2 558 S00021A 56 ADD R6 559 S00021B 40 LDW (R0) 560 S00021C 59 ADD R9 561 S00021D 3E 59 ADD #8+1 562 S00021F 18 TO R8 ;(R8) <-- now Y pos X wide 563 S000220 9E LOB 564 ; 565 S000221 B7 FROM R7 566 S000222 59 ADD R9 567 S000223 59 ADD R9 568 S000224 19 TO R9 569 S000225 40 LDW (R0) 570 S000226 F0 0080 IWT R0,#0080H 571 S000229 69 SUB R9 572 S00022A 6E SUB R14 573 S00022B 20 1E MOVE R14,R0 ;(R14) <-- cross X wide 574 S00022D 0A 03' BPL SLIMS200 575 S00022F 01 NOP 576 ; 577 S000230 4F NOT 578 S000231 D0 INC R0 579 SLIMS200 580 S000232 50 ADD R0 ;x2 581 S000233 68 SUB R8 582 S000234 0C 13' BCC SLIMS230 ;cross ? ( yes:SLIMS230 ) 583 S000236 01 NOP 584 ; 585 SLIMS210 586 S000237 3C LOOP 587 S000238 24 WITH R4 ;[ dummy ] 588 ; 589 ;-------------- not cross !! ------------------------------------ 590 SLIMS220 591 S000239 3D A0 09 LMS R0,CWORK9 592 S00023C F1 1D36 IWT R1,#CECRSFG 593 S00023F 11 TO R1 594 S000240 51 ADD R1 595 S000241 60 SUB R0 ;[ IBT R0,#00 ] 596 S000242 3D 31 STB (R1) 597 S000244 05 22' BRA SLIMS240+1 598 S000246 3D A0 00 LMS R0,CWORK0 ;[ dummy ] 599 ; 600 ;-------------- cross !! ---------------------------------------- 601 SLIMS230 602 S000249 3D A1 09 LMS R1,CWORK9 603 S00024C F0 1C76 IWT R0,#CECROSX ;衝突向きセット 604 S00024F 51 ADD R1 605 S000250 2E WITH R14 606 S000251 4F NOT 607 S000252 DE INC R14 608 S000253 BE FROM R14 609 S000254 30 STW (R0) 610 S000255 F0 1D37 IWT R0,#CENCRPT 611 S000258 12 TO R2 612 S000259 51 ADD R1 613 S00025A B4 FROM R4 614 S00025B 03 LSR 615 S00025C 03 LSR 616 S00025D 3D 32 STB (R2) ;slime cross check next start point set 617 S00025F F0 1D36 IWT R0,#CECRSFG 618 S000262 51 ADD R1 619 S000263 D4 INC R4 620 S000264 B4 FROM R4 621 S000265 3D 30 STB (R0) ;cross enemy index set 622 ; 623 ;-------------- BG check ------------------------------------------------ 624 SLIMS240 625 S000267 3D A0 00 LMS R0,CWORK0 626 S00026A 3D FA 0094 LM R10,CESCCH1 627 S00026E 1A TO R10 ;(R10) <-- center X pos 628 S00026F 5A ADD R10 629 S000270 3D A9 09 LMS R9,CWORK9 630 mLDW0 CENBGYP,R9 630+ S000273 F0 1720 IWT R0,#CENBGYP 630+ S000276 59 ADD R9 630+ S000277 40 LDW (R0) 631 S000278 3D A9 01 LMS R9,CWORK1 632 S00027B 59 ADD R9 633 S00027C 3D F9 009C LM R9,CESCCV1 634 S000280 19 TO R9 ;(R9) <-- center Y pos 635 S000281 59 ADD R9 636 S000282 3D AC 02 LMS R12,CWORK2 ;(R12) <-- X zoom flag 637 S000285 3D AD 03 LMS R13,CWORK3 ;(R13) <-- Y " 638 ; 639 S000288 A0 00' IBT R0,#BANK SLIM_BGP 640 S00028A 3F DF ROMB 641 S00028C 3D AE 10 LMS R14,CWORK10 ;(R14) <-- BG check point data pointer 642 ; 643 ;-------------- up left point BG check -------------------------- 644 S00028F A2 00 IBT R2,#00 ;(R2) <-- BG cross flag 645 ; 646 mJSR_X SLM_EBGSUB 646+ S000291 94 LINK #4 646+ S000292 FF 02F2' IWT R15, #SLM_EBGSUB 647 S000295 EF GETB 648 ; 649 S000296 3E 72 AND #AL 650 S000298 09 02' BEQ SLIMS250 ;BG cross ? ( no:SLIMS250 ) 651 S00029A 01 NOP 652 ; 653 S00029B D2 INC R2 654 ; 655 ;-------------- up right point BG check ------------------------- 656 SLIMS250 657 S00029C 22 WITH R2 658 S00029D 52 ADD R2 659 ; 660 mJSR_X SLM_EBGSUB 660+ S00029E 94 LINK #4 660+ S00029F FF 02F2' IWT R15, #SLM_EBGSUB 661 S0002A2 EF GETB 662 ; 663 S0002A3 3E 72 AND #AL 664 S0002A5 09 02' BEQ SLIMS260 ;BG cross ? ( no:SLIMS260 ) 665 S0002A7 01 NOP 666 ; 667 S0002A8 D2 INC R2 668 ; 669 ;-------------- low left point BG check ------------------------- 670 SLIMS260 671 S0002A9 22 WITH R2 672 S0002AA 52 ADD R2 673 ; 674 mJSR_X SLM_EBGSUB 674+ S0002AB 94 LINK #4 674+ S0002AC FF 02F2' IWT R15, #SLM_EBGSUB 675 S0002AF EF GETB 676 ; 677 S0002B0 3E 72 AND #AL 678 S0002B2 09 02' BEQ SLIMS270 ;BG cross ? ( no:SLIMS270 ) 679 S0002B4 01 NOP 680 ; 681 S0002B5 D2 INC R2 682 ; 683 ;-------------- low right point BG check ------------------------ 684 SLIMS270 685 S0002B6 22 WITH R2 686 S0002B7 52 ADD R2 687 ; 688 mJSR_X SLM_EBGSUB 688+ S0002B8 94 LINK #4 688+ S0002B9 FF 02F2' IWT R15, #SLM_EBGSUB 689 S0002BC EF GETB 690 ; 691 S0002BD 3E 72 AND #AL 692 S0002BF 09 02' BEQ SLIMS280 ;BG cross ? ( no:SLIMS280 ) 693 S0002C1 01 NOP 694 ; 695 S0002C2 D2 INC R2 696 ; 697 ;-------------- hed point BG check ------------------------------ 698 SLIMS280 699 S0002C3 22 WITH R2 700 S0002C4 52 ADD R2 701 ; 702 mJSR_X SLM_EBGSUB 702+ S0002C5 94 LINK #4 702+ S0002C6 FF 02F2' IWT R15, #SLM_EBGSUB 703 S0002C9 EF GETB 704 ; 705 S0002CA 3E 72 AND #AL 706 S0002CC 09 02' BEQ SLIMS290 ;BG cross ? ( no:SLIMS290 ) 707 S0002CE 01 NOP 708 ; 709 S0002CF D2 INC R2 710 ; 711 SLIMS290 712 S0002D0 3D A0 01 LMS R0,CWORK1 ;(CWK10) <-- hed BG check Y pos 713 S0002D3 3E A0 10 SMS R0,CWORK10 714 ; 715 ;-------------- foot point BG check ----------------------------- 716 S0002D6 22 WITH R2 717 S0002D7 52 ADD R2 718 ; 719 S0002D8 FD 0100 IWT R13,#0100H ;(R13) <-- Y zoom cancel !! 720 mJSR_X SLM_EBGSUB 720+ S0002DB 94 LINK #4 720+ S0002DC FF 02F2' IWT R15, #SLM_EBGSUB 721 S0002DF EF GETB 722 ; 723 S0002E0 3E 73 AND #MD+AL 724 S0002E2 09 02' BEQ SLIMS300 ;BG cross ? ( no:SLIMS300 ) 725 S0002E4 01 NOP 726 ; 727 S0002E5 D2 INC R2 728 ; 729 SLIMS300 730 S0002E6 F0 1860 IWT R0,#CENCBFG 731 S0002E9 3D A1 09 LMS R1,CWORK9 732 S0002EC 51 ADD R1 733 S0002ED B2 FROM R2 734 S0002EE 30 STW (R0) ;BG cross flag set 735 ; 736 S0002EF 60 SUB R0 ;<<< END >>> 737 S0002F0 00 STOP 738 S0002F1 01 NOP 739 ; 740 ;------------------------------------------------------------------------ 741 ;- slime BG point address calculate sub - 742 ;------------------------------------------------------------------------ 743 SLM_EBGSUB 744 S0002F2 DE INC R14 745 S0002F3 4D SWAP 746 S0002F4 2C 16 MOVE R6,R12 ;(R6) <-- X zoom flag 747 S0002F6 9F FMULT 748 S0002F7 18 TO R8 ;(R8) <-- BG check point X pos 749 S0002F8 5A ADD R10 750 ; 751 S0002F9 EF GETB 752 S0002FA DE INC R14 753 S0002FB 4D SWAP 754 S0002FC 2D 16 MOVE R6,R13 ;(R6) <-- Y zoom flag 755 S0002FE 9F FMULT 756 S0002FF 59 ADD R9 757 S000300 20 17 MOVE R7,R0 ;(R7) <-- BG check point Y pos 758 ; 759 S000302 3D F6 009C LM R6,CESCCV1 760 S000306 66 SUB R6 761 S000307 3E 68 SUB #8 762 ;;;; IWT R6,#0B2H 763 S000309 F6 00D2 IWT R6,#0D2H 764 S00030C 3F 66 CMP R6 765 S00030E 0D 13' BCS SLM_EBSB010 ;Y pos over ? ( yes:SLM_EBSB010 ) 766 S000310 B8 FROM R8 767 ; vvv******* warn :value out of range 768 S000311 F6 3516 IWT R6,#HDMABF1 769 S000314 50 ADD R0 770 S000315 56 ADD R6 771 S000316 16 TO R6 772 S000317 40 LDW (R0) 773 S000318 F0 0080 IWT R0,#0080H 774 S00031B 66 SUB R6 775 S00031C 3D A6 12 LMS R6,CWORK12 776 S00031F 66 SUB R6 777 S000320 58 ADD R8 778 S000321 20 18 MOVE R8,R0 779 SLM_EBSB010 780 S000323 27 10 MOVE R0,R7 781 S000325 FF 0001" IWT R15,#BGUNIT_READ_2+1 ;[ JMP BGUNIT_READ_2+1 ] 782 S000328 17 TO R7 ;[ dummy ] 783 ; 784 ;------------------------------------------------------------------------ 785 ;- BG3 player cross check - 786 ;- in : (R0) <-- size AND data - 787 ;- (CWKA) <-- player display X pos - 788 ;- (CWKB) <-- " Y " - 789 ;- (CWKC) <-- " sit down flag - 790 ;- - 791 ;- out : (CWKD) <-- " cross flag - 792 ;- [ 00011111B ] - 793 ;- +++++- foot - 794 ;- |||+-- down right - 795 ;- ||+--- " left - 796 ;- |+---- up right - 797 ;- +----- " left - 798 ;- (CWKE) <-- player foot hosei dot - 799 ;- (CWKF) <-- " cross saka flag - 800 ;- 0,5,4,9:not saka - 801 ;- 1,6 :67.5 - 802 ;- 2,7 :45 - 803 ;- 3,8 :22.5 - 804 ;------------------------------------------------------------------------ 805 000329 BG3PCROS EQU $ 806 S000329 F0 00FF IWT R0,#0FFH ;(R0) <-- size AND data 807 ; 808 00032C BG3PCROS2 EQU $ 809 S00032C 3E AB 30 SMS R11,RTS0 ;return address save 810 S00032F 20 1B MOVE R11,R0 ;(R11) <-- size AND data 811 ; 812 S000331 A0 00' IBT R0,#BANK SLIM_PLC 813 S000333 3F DF ROMB 814 S000335 FE 0427' IWT R14,#SLIM_PLC ;(R14) <-- player cross check point data pointer 815 S000338 3D A0 0C LMS R0,CWORKC 816 S00033B 3E 60 SUB #0 817 S00033D 09 03' BEQ B3PCR000 ;sit down player ? ( no:B3PCR000 ) 818 S00033F 2E WITH R14 819 ; 820 S000340 3E 5A ADD #5*2 821 B3PCR000 822 S000342 3D A1 0A LMS R1,CWORKA ;(R1) <-- player display X pos 823 S000345 3D A0 0B LMS R0,CWORKB ;(R0) <-- " Y " 824 B3PCR010 825 S000348 12 TO R2 ;(R2) <-- to buffer player display Y pos 826 S000349 3E 68 SUB #8 827 ; 828 ;;;; IWT R5,#0B2H ;(R5) <-- max Y pos 829 S00034B F5 00D2 IWT R5,#0D2H ;(R5) <-- max Y pos vvv******* warn :value out of range 830 S00034E F6 3372 IWT R6,#HDMABF ;(R6) <-- X wide H-DMA buffer address vvv******* warn :value out of range 831 S000351 F7 3516 IWT R7,#HDMABF1 ;(R7) <-- scroll counter_H H-DMA buffer address 832 ; 833 S000354 F3 0080 IWT R3,#080H ;(R3) <-- scroll counter_H H-DMA data check data 834 S000357 AA 00 IBT R10,#00 ;(R10) <-- cross point flag 835 ; 836 S000359 AC 05 IBT R12,#5 837 S00035B FD 035F' IWT R13,#B3PCR020+1 838 B3PCR020 839 S00035E 2A WITH R10 840 S00035F 5A ADD R10 ;[ ASL ] cross point flag pos change 841 ; 842 S000360 3F EF GETBS 843 S000362 DE INC R14 844 S000363 14 TO R4 ;(R4) <-- check point dispaly X pos 845 S000364 51 ADD R1 846 ; 847 S000365 3F EF GETBS 848 S000367 DE INC R14 849 S000368 52 ADD R2 850 S000369 65 SUB R5 851 S00036A 0D 1D' BCS B3PCR040 ;Y pos over ? ( yes:B3PCR040 ) 852 S00036C 55 ADD R5 853 ; 854 S00036D 20 19 MOVE R9,R0 ;(R9) <-- check point dispaly Y pos 855 S00036F 50 ADD R0 856 S000370 56 ADD R6 857 S000371 40 LDW (R0) 858 S000372 59 ADD R9 859 S000373 3E 59 ADD #1+8 860 S000375 18 TO R8 ;(R8) <-- now Y pos X wide 861 S000376 7B AND R11 862 ; 863 S000377 B7 FROM R7 864 S000378 59 ADD R9 865 S000379 59 ADD R9 866 S00037A 40 LDW (R0) 867 S00037B B3 FROM R3 868 S00037C 60 SUB R0 869 S00037D 64 SUB R4 870 S00037E 0A 03' BPL B3PCR030 871 S000380 01 NOP 872 ; 873 S000381 4F NOT 874 S000382 D0 INC R0 875 B3PCR030 876 S000383 50 ADD R0 ;x2 877 S000384 68 SUB R8 878 S000385 0D 02' BCS B3PCR040 ;cross ? ( no:B3PCR040 ) 879 S000387 01 NOP 880 ; 881 ;-------------- cross !! -------------------------------- 882 S000388 DA INC R10 ;cross point flag set !! 883 B3PCR040 884 S000389 3C LOOP 885 S00038A 2A WITH R10 ;[ dummy ] 886 ; 887 S00038B 3E AA 0A SMS R10,CWORKA ;cross point flag set 888 ; 889 ;-------------- player foot pos hosei dot check ----------------- 890 S00038E BA FROM R10 891 S00038F 03 LSR 892 S000390 0C 50' BCC B3PCR110 ;foot cross ? ( no:B3PCR110 ) 893 S000392 60 SUB R0 ;[ IBT R0,#00 ] 894 ; 895 S000393 20 11 MOVE R1,R0 ;(R1) <-- player hosei dot 896 B3PCR050 897 S000395 E9 DEC R9 898 S000396 0B 21' BMI B3PCR070 ;Y pos over ? ( yes:B3PCR070 ) 899 S000398 B1 FROM R1 900 ; 901 S000399 3E 5A ADD #0AH 902 S00039B 0B 1C' BMI B3PCR070 ;hosei dot over ? ( yes:B3PCR070 ) 903 S00039D B9 FROM R9 904 ; 905 S00039E 59 ADD R9 906 S00039F 56 ADD R6 907 S0003A0 40 LDW (R0) 908 S0003A1 59 ADD R9 909 S0003A2 3E 59 ADD #1+8 910 S0003A4 18 TO R8 ;(R8) <-- now Y pos X wide 911 S0003A5 7B AND R11 912 ; 913 S0003A6 B7 FROM R7 914 S0003A7 59 ADD R9 915 S0003A8 59 ADD R9 916 S0003A9 40 LDW (R0) 917 S0003AA B3 FROM R3 918 S0003AB 60 SUB R0 919 S0003AC 64 SUB R4 920 S0003AD 20 12 MOVE R2,R0 ;(R2) <-- cross muki 921 S0003AF 0A 03' BPL B3PCR060 922 S0003B1 01 NOP 923 ; 924 S0003B2 4F NOT 925 S0003B3 D0 INC R0 926 B3PCR060 927 S0003B4 50 ADD R0 ;x2 928 S0003B5 68 SUB R8 929 S0003B6 0C DD' BCC B3PCR050 ;cross ? ( yes:B3PCR050 ) 930 S0003B8 E1 DEC R1 931 ; 932 B3PCR070 933 S0003B9 3E A1 0B SMS R1,CWORKB ;foot hosei dot 934 ; 935 S0003BC B9 FROM R9 936 S0003BD 3E 52 ADD #2 937 S0003BF 3F 65 CMP R5 938 S0003C1 0D 09' BCS B3PCR080 ;Y pos over ? ( yes:B3PCR080 ) 939 S0003C3 B8 FROM R8 940 ; 941 S0003C4 B0 FROM R0 942 S0003C5 50 ADD R0 943 S0003C6 56 ADD R6 944 S0003C7 40 LDW (R0) 945 S0003C8 59 ADD R9 946 S0003C9 3E 59 ADD #1+8 947 S0003CB 7B AND R11 ;(R0) <-- now Y pos X wide 948 B3PCR080 949 S0003CC 68 SUB R8 950 S0003CD 03 LSR 951 S0003CE A3 04 IBT R3,#4 952 S0003D0 3F 63 CMP R3 953 S0003D2 0C 03' BCC B3PCR090 954 S0003D4 01 NOP 955 ; 956 S0003D5 23 10 MOVE R0,R3 957 B3PCR090 958 S0003D7 22 B2 MOVES R2,R2 959 S0003D9 0A 03' BPL B3PCR100 960 S0003DB 01 NOP 961 ; 962 S0003DC 3E 55 ADD #5 963 B3PCR100 964 S0003DE 50 ADD R0 ;x2 965 S0003DF 3E A0 0C SMS R0,CWORKC ;saka angle data pointer 966 ; 967 B3PCR110 968 S0003E2 F0 043B' IWT R0,#SLIM_BAC 969 S0003E5 6E SUB R14 970 S0003E6 0C 2E' BCC B3PCR120 ;赤ちゃんチェックした？ ( yes:B3PCR120 ) 971 S0003E8 1E TO R14 972 ; 973 S0003E9 5E ADD R14 974 ; 975 S0003EA 3D A0 0A LMS R0,CWORKA ;プレイヤー情報セット 976 S0003ED 3E A0 0D SMS R0,CWORKD 977 S0003F0 3D A0 0B LMS R0,CWORKB 978 S0003F3 3E A0 0E SMS R0,CWORKE 979 S0003F6 3D A0 0C LMS R0,CWORKC 980 S0003F9 3E A0 0F SMS R0,CWORKF 981 ; 982 S0003FC 3D A0 E6 LMS R0,CDEATHCT0 983 S0003FF 3E 60 SUB #0 984 S000401 09 07' BEQ B3PCR112 ;赤ちゃん死神に持って行かれた？ ( no:B3PCR112 ) 985 S000403 60 SUB R0 ;[ IBT R0,#0 ] 986 ; 987 S000404 3E A0 0A SMS R0,CWORKA ;cross point flag reset 988 S000407 05 0D' BRA B3PCR120 989 S000409 01 NOP 990 ; 991 B3PCR112 992 S00040A 3D F1 1680 LM R1,CENDSXL ;(R1) <-- 赤ちゃん表示Ｘ座標 993 S00040E 3D F0 1682 LM R0,CENDSYL ;(R0) <-- ” Ｙ ” 994 mDJMP_X B3PCR010+1 994+ S000412 FF 0349' IWT R15, #B3PCR010+1 995 S000415 12 TO R2 996 ; 997 B3PCR120 998 S000416 3D AB 30 LMS R11,RTS0 999 mRTS 999+ S000419 9B JMP R11 999+ S00041A 01 NOP 1000 ; 1001 ;************************************************************************ 1002 ;* slime BG check point data * 1003 ;************************************************************************ 1004 SLIM_BGP 1005 S00041B EA C0 HEX EA,C0 ;[ up left ] 1006 S00041D 0E C0 HEX 0E,C0 ;[ up right ] 1007 S00041F E0 F0 HEX E0,F0 ;[ low left ] 1008 S000421 18 F0 HEX 18,F0 ;[ low right ] 1009 S000423 00 B0 HEX 00,B0 ;[ hed ] 1010 S000425 00 00 HEX 00,00 ;[ foot ] 1011 ; 1012 ;************************************************************************ 1013 ;* player cross check point data * 1014 ;************************************************************************ 1015 SLIM_PLC 1016 S000427 02 04 HEX 02,04 ;[big] [ left.1 ] 1017 S000429 0E 04 HEX 0E,04 ; [ right.1 ] 1018 S00042B 02 14 HEX 02,14 ; [ left.1 ] 1019 S00042D 0E 14 HEX 0E,14 ; [ right.1 ] 1020 S00042F 08 20 HEX 08,20 ; [ foot ] 1021 ; 1022 S000431 02 12 HEX 02,12 ;[sit] [ left.1 ] 1023 S000433 0E 12 HEX 0E,12 ; [ right.1 ] 1024 S000435 02 14 HEX 02,14 ; [ left.1 ] 1025 S000437 0E 14 HEX 0E,14 ; [ right.1 ] 1026 S000439 08 20 HEX 08,20 ; [ foot ] 1027 ; 1028 ;-------------- 赤ちゃんチェックポイントデータ -------------------------- 1029 SLIM_BAC 1030 S00043B 02 02 HEX 02,02 ; [ left.1 ] 1031 S00043D 0E 02 HEX 0E,02 ; [ right.1 ] 1032 S00043F 02 0A HEX 02,0A ; [ left.1 ] 1033 S000441 0E 0A HEX 0E,0A ; [ right.1 ] 1034 S000443 08 10 HEX 08,10 ; [ foot ] 1035 ; 1036 ;************************************************************************ 1037 ;* slime data * 1038 ;************************************************************************ 1039 EGG_DATA 1040 S000445 60 BYTE 060H 1041 S000446 00 16 1F 26 2C BYTE 000H,016H,01FH,026H,02CH,031H,036H,03AH S00044B 31 36 3A 1042 S00044E 3D 41 44 47 4A BYTE 03DH,041H,044H,047H,04AH,04DH,04FH,052H S000453 4D 4F 52 1043 S000456 54 56 58 5B 5C BYTE 054H,056H,058H,05BH,05CH,05EH,060H,062H S00045B 5E 60 62 1044 S00045E 63 65 66 68 69 BYTE 063H,065H,066H,068H,069H,06BH,06CH,06DH S000463 6B 6C 6D 1045 S000466 6E 6F 71 72 73 BYTE 06EH,06FH,071H,072H,073H,074H,074H,075H S00046B 74 74 75 1046 S00046E 76 77 78 78 79 BYTE 076H,077H,078H,078H,079H,07AH,07AH,07BH S000473 7A 7A 7B 1047 S000476 7B 7C 7C 7D 7D BYTE 07BH,07CH,07CH,07DH,07DH,07EH,07EH,07EH S00047B 7E 7E 7E 1048 S00047E 7E 7F 7F 7F 7F BYTE 07EH,07FH,07FH,07FH,07FH,07FH,07FH,07FH S000483 7F 7F 7F 1049 ; 1050 S000486 7F 7F 7F 7E 7E BYTE 07FH,07FH,07FH,07EH,07EH,07DH,07CH,07BH S00048B 7D 7C 7B 1051 S00048E 7A 79 78 76 74 BYTE 07AH,079H,078H,076H,074H,073H,071H,06EH S000493 73 71 6E 1052 S000496 6C 69 66 63 60 BYTE 06CH,069H,066H,063H,060H,05CH,058H,054H S00049B 5C 58 54 1053 S00049E 4F 4A 44 3D 36 BYTE 04FH,04AH,044H,03DH,036H,02CH,01FH,000H S0004A3 2C 1F 00 1054 ; 1055 ;************************************************************************ 1056 ;* slime appear data * 1057 ;************************************************************************ 1058 KIRE_DATA 1059 S0004A6 00 00 00 00 01 BYTE 000H,000H,000H,000H,001H,002H,003H,004H S0004AB 02 03 04 1060 S0004AE 06 08 0A 0C 0E BYTE 006H,008H,00AH,00CH,00EH,010H,013H,016H S0004B3 10 13 16 1061 S0004B6 19 1C 20 24 28 BYTE 019H,01CH,020H,024H,028H,02CH,030H,034H S0004BB 2C 30 34 1062 S0004BE 39 3E 43 48 4E BYTE 039H,03EH,043H,048H,04EH,054H,05AH,060H S0004C3 54 5A 60 1063 S0004C6 66 6C 73 7A BYTE 066H,06CH,073H,07AH 1064 ; 1065 ; 1066 ;************************************************************************ 1067 ;* BG3 change * 1068 ;* in : (R1) <-- from data address * 1069 ;* (R2) <-- to data address * 1070 ;* (R3) <-- counter * 1071 ;* (R4) <-- base Y pos * 1072 ;* (R5) <-- " X " * 1073 ;* (CWKA) <-- player display X pos * 1074 ;* (CWKB) <-- " Y " * 1075 ;* (CWKC) <-- " sit down flag * 1076 ;* * 1077 ;* out : (CWKD) <-- " cross flag * 1078 ;* [ 00011111B ] * 1079 ;* +++++- foot * 1080 ;* |||+-- down right * 1081 ;* ||+--- " left * 1082 ;* |+---- up right * 1083 ;* +----- " left * 1084 ;* (CWKE) <-- player foot hosei dot * 1085 ;* (CWKF) <-- " cross saka flag * 1086 ;* 0,5,4,9:not saka * 1087 ;* 1,6 :67.5 * 1088 ;* 2,7 :45 * 1089 ;* 3,8 :22.5 * 1090 ;************************************************************************ 1091 ; 1092 0004CA BG3CHNG EQU $ 1093 S0004CA A0 00' IBT R0,#BANK BG3CHNG 1094 S0004CC 3F DF ROMB 1095 ; 1096 S0004CE 3E A5 02 SMS R5,CWORK2 ;(CWK2) <-- base X pos 1097 ; 1098 S0004D1 24 WITH R4 ;(R4) <-- base Y pos hosei 1099 S0004D2 3E 68 SUB #8 1100 ;;;; IWT R5,#0B2H-1 ;(R5) <-- now set V pos 1101 S0004D4 F5 00D1 IWT R5,#0D2H-1 ;(R5) <-- now set V pos 1102 ;;;; IWT R9,#HDMABF+((0B2H-1)*2) ;(R9) <-- wide set buffer bottom pointer vvv******* warn :value out of range 1103 S0004D7 F9 3514 IWT R9,#HDMABF+((0D2H-1)*2) ;(R9) <-- wide set buffer bottom pointer 1104 ;;;; IWT R7,#HDMABF1+((0B2H-1)*2) ;(R7) <-- scrool counter_H set buffer bottom pointer vvv******* warn :value out of range 1105 S0004DA F7 36B8 IWT R7,#HDMABF1+((0D2H-1)*2) ;(R7) <-- scrool counter_H set buffer bottom pointer 1106 ; 1107 S0004DD 02 CACHE 1108 ; 1109 ;-------------- lower clear area set ---------------------------- 1110 S0004DE B5 FROM R5 1111 S0004DF 1C TO R12 1112 S0004E0 64 SUB R4 1113 S0004E1 0A 09' BPL B3CG000 ;lower clear area nothing ? ( no:B3CG000 ) 1114 S0004E3 BC FROM R12 1115 ; 1116 S0004E4 4F NOT 1117 S0004E5 D0 INC R0 1118 S0004E6 15 TO R5 1119 S0004E7 55 ADD R5 1120 S0004E8 05 1B' BRA B3CG020+1 1121 S0004EA 21 1E MOVE R14,R1 ;[ dummy ] 1122 ; 1123 B3CG000 1124 S0004EC 65 SUB R5 1125 S0004ED 0C 05' BCC B3CG002 ;all clear ? ( no:B3CG002 ) 1126 S0004EF DC INC R12 1127 ; 1128 S0004F0 FF 0581' IWT R15,#B3CG050+1 ;[ JMP B3CG050 ] 1129 S0004F3 D5 INC R5 ;[ dummy ] 1130 ; 1131 B3CG002 1132 S0004F4 25 WITH R5 1133 S0004F5 6C SUB R12 1134 S0004F6 B7 FROM R7 1135 S0004F7 6C SUB R12 1136 S0004F8 17 TO R7 1137 S0004F9 6C SUB R12 1138 ;;;; IWT R0,#-0B2H-8 1139 S0004FA F0 FF26 IWT R0,#-0D2H-8 1140 S0004FD 2F 1D MOVE R13,R15 1141 B3CG010 1142 S0004FF 39 STW (R9) 1143 S000500 E9 DEC R9 1144 S000501 E9 DEC R9 1145 S000502 3C LOOP 1146 S000503 D0 INC R0 1147 ; 1148 ;-------------- change area set --------------------------------- 1149 B3CG020 1150 S000504 21 1E MOVE R14,R1 1151 S000506 D1 INC R1 vvv******* warn :value out of range 1152 S000507 FA 2200 IWT R10,#DIVBUF ;(R10) <-- div data pointer 1153 S00050A 23 16 MOVE R6,R3 ;(R6) <-- bairitsu 1154 S00050C 14 TO R4 ;(R4) <-- data.1 high 1155 S00050D EF GETB 1156 S00050E 22 1E MOVE R14,R2 1157 S000510 D2 INC R2 1158 S000511 18 TO R8 ;(R8) <-- data.2 high 1159 S000512 EF GETB 1160 S000513 B8 FROM R8 1161 S000514 64 SUB R4 1162 S000515 4D SWAP 1163 S000516 9F FMULT 1164 S000517 3D 54 ADC R4 1165 S000519 2C B0 MOVES R12,R0 ;(R12) <-- loop no. ( data high ) 1166 S00051B 09 63' BEQ B3CG050 1167 S00051D 50 ADD R0 ;[ ASL ] 1168 ; 1169 S00051E 5A ADD R10 1170 S00051F 16 TO R6 1171 S000520 40 LDW (R0) 1172 S000521 B4 FROM R4 1173 S000522 4D SWAP 1174 S000523 9F FMULT 1175 S000524 14 TO R4 ;(R4) <-- data.1 step 1176 S000525 3F 50 ADC #0 1177 S000527 B8 FROM R8 1178 S000528 4D SWAP 1179 S000529 9F FMULT 1180 S00052A 18 TO R8 ;(R8) <-- data.2 step 1181 S00052B 3F 50 ADC #0 1182 ; 1183 ;;;; IWT R0,#CHNGSTEP 1184 ;;;; ADD R3 1185 ;;;; TO R14 1186 ;;;; ADD R3 1187 ;;;; TO R6 1188 ;;;; GETB 1189 ;;;; INC R14 1190 S00052D 23 16 MOVE R6,R3 ;(R6) <-- bairitsu 1191 S00052F AA 00 IBT R10,#00 ;(R10) <-- data.1 add pointer 1192 S000531 2A 1B MOVE R11,R10 ;(R11) <-- data.2 " 1193 ;;;; WITH R6 1194 ;;;; GETBH 1195 ; 1196 S000533 B5 FROM R5 1197 S000534 6C SUB R12 1198 S000535 D0 INC R0 1199 S000536 0A 02' BPL B3CG022 ;loop no over ? ( no:B3CG022 ) 1200 S000538 1C TO R12 1201 ; 1202 S000539 5C ADD R12 1203 B3CG022 1204 ; 1205 S00053A 2F 1D MOVE R13,R15 1206 B3CG030 1207 ;;;; IWT R0,#0B1H 1208 S00053C F0 00B1 IWT R0,#0B2H-1 1209 S00053F 65 SUB R5 1210 S000540 0B 36' BMI B3CG040 ;set ok area ? ( no:B3CG040 ) 1211 S000542 BA FROM R10 1212 ; 1213 S000543 C0 HIB 1214 S000544 50 ADD R0 ;[ ASL ] 1215 S000545 1E TO R14 1216 S000546 51 ADD R1 1217 S000547 3F EF GETBS 1218 S000549 DE INC R14 1219 S00054A 3E A0 00 SMS R0,CWORK0 ;(WK0) <-- no.1 data ( center pos ) 1220 S00054D 13 TO R3 ;(R3) <-- " ( wide ) 1221 S00054E EF GETB 1222 ; 1223 S00054F BB FROM R11 1224 S000550 C0 HIB 1225 S000551 50 ADD R0 ;[ ASL ] 1226 S000552 1E TO R14 1227 S000553 52 ADD R2 1228 S000554 3F EF GETBS 1229 S000556 DE INC R14 1230 S000557 3E A0 01 SMS R0,CWORK1 ;(WK1) <-- no.2 data ( center pos ) 1231 S00055A EF GETB ;(R0) <-- " ( wide ) 1232 ; 1233 S00055B 63 SUB R3 1234 S00055C 4D SWAP 1235 S00055D 9F FMULT 1236 S00055E 3D 53 ADC R3 1237 S000560 65 SUB R5 1238 S000561 3E 68 SUB #8 1239 S000563 39 STW (R9) ;wide data set 1240 ; 1241 S000564 3D A3 00 LMS R3,CWORK0 1242 S000567 3D A0 01 LMS R0,CWORK1 1243 S00056A 63 SUB R3 1244 S00056B 4D SWAP 1245 S00056C 9F FMULT 1246 S00056D 3D 53 ADC R3 1247 S00056F 3D A3 02 LMS R3,CWORK2 1248 S000572 53 ADD R3 1249 S000573 37 STW (R7) ;scroll counter_H set 1250 ; 1251 S000574 E9 DEC R9 1252 S000575 E9 DEC R9 1253 S000576 E7 DEC R7 1254 S000577 E7 DEC R7 1255 B3CG040 1256 S000578 2A WITH R10 1257 S000579 54 ADD R4 1258 S00057A 2B WITH R11 1259 S00057B 58 ADD R8 1260 S00057C 3C LOOP 1261 S00057D E5 DEC R5 1262 ; 1263 S00057E 0B 16' BMI B3CG070 ;end ? ( yes:B3CG070 ) 1264 ; 1265 ;-------------- clear area set ---------------------------------- 1266 B3CG050 1267 S000580 D5 INC R5 1268 ; 1269 ;;;; IWT R0,#0B2H 1270 S000581 F0 00D2 IWT R0,#0D2H 1271 S000584 65 SUB R5 1272 S000585 0A 02' BPL B3CG052 ;set buffer over ? ( no:B3CG052 ) 1273 S000587 15 TO R5 1274 ; 1275 S000588 55 ADD R5 1276 B3CG052 1277 S000589 25 1C MOVE R12,R5 1278 S00058B B5 FROM R5 1279 S00058C 4F NOT 1280 S00058D 3E 67 SUB #8-1 1281 S00058F 2F 1D MOVE R13,R15 1282 B3CG060 1283 S000591 39 STW (R9) 1284 S000592 E9 DEC R9 1285 S000593 E9 DEC R9 1286 S000594 3C LOOP 1287 S000595 D0 INC R0 1288 ; 1289 000596 BG3_PLCROSCK EQU $ 1290 B3CG070 1291 mJSR_X BG3PCROS 1291+ S000596 94 LINK #4 1291+ S000597 FF 0329' IWT R15, #BG3PCROS 1292 S00059A 02 CACHE 1293 ; 1294 S00059B 00 STOP 1295 S00059C 01 NOP 1296 ; 1297 ;;;;;------------------------------------------------------------------------ 1298 ;;;;;- change step data - 1299 ;;;;;------------------------------------------------------------------------ 1300 ;;;;CHNGSTEP EQU $ 1301 ;;;; WORD 0000H,0000H,0000H,0000H,0000H,0000H,0000H,0000H 1302 ;;;; WORD 0001H,0001H,0001H,0001H,0001H,0002H,0002H,0002H 1303 ;;;; WORD 0002H,0003H,0003H,0003H,0004H,0004H,0005H,0005H 1304 ;;;; WORD 0006H,0006H,0006H,0007H,0007H,0008H,0009H,0009H 1305 ;;;; WORD 000AH,000AH,000BH,000CH,000CH,000DH,000EH,000EH 1306 ;;;; WORD 000FH,0010H,0011H,0011H,0012H,0013H,0014H,0015H 1307 ;;;; WORD 0016H,0016H,0017H,0018H,0019H,001AH,001BH,001CH 1308 ;;;; WORD 001DH,001EH,001FH,0020H,0021H,0022H,0023H,0024H 1309 ;;;; WORD 0025H,0027H,0028H,0029H,002AH,002BH,002CH,002EH 1310 ;;;; WORD 002FH,0030H,0031H,0032H,0034H,0035H,0036H,0038H 1311 ;;;; WORD 0039H,003AH,003CH,003DH,003EH,0040H,0041H,0042H 1312 ;;;; WORD 0044H,0045H,0046H,0048H,0049H,004BH,004CH,004EH 1313 ;;;; WORD 004FH,0050H,0052H,0053H,0055H,0056H,0058H,0059H 1314 ;;;; WORD 005BH,005CH,005EH,005FH,0061H,0062H,0064H,0065H 1315 ;;;; WORD 0067H,0069H,006AH,006CH,006DH,006FH,0070H,0072H 1316 ;;;; WORD 0073H,0075H,0077H,0078H,007AH,007BH,007DH,007EH 1317 ;;;; WORD 0080H,0082H,0083H,0085H,0086H,0088H,0089H,008BH 1318 ;;;; WORD 008DH,008EH,0090H,0091H,0093H,0094H,0096H,0097H 1319 ;;;; WORD 0099H,009BH,009CH,009EH,009FH,00A1H,00A2H,00A4H 1320 ;;;; WORD 00A5H,00A7H,00A8H,00AAH,00ABH,00ADH,00AEH,00B0H 1321 ;;;; WORD 00B1H,00B2H,00B4H,00B5H,00B7H,00B8H,00BAH,00BBH 1322 ;;;; WORD 00BCH,00BEH,00BFH,00C0H,00C2H,00C3H,00C4H,00C6H 1323 ;;;; WORD 00C7H,00C8H,00CAH,00CBH,00CCH,00CEH,00CFH,00D0H 1324 ;;;; WORD 00D1H,00D2H,00D4H,00D5H,00D6H,00D7H,00D8H,00D9H 1325 ;;;; WORD 00DBH,00DCH,00DDH,00DEH,00DFH,00E0H,00E1H,00E2H 1326 ;;;; WORD 00E3H,00E4H,00E5H,00E6H,00E7H,00E8H,00E9H,00EAH 1327 ;;;; WORD 00EAH,00EBH,00ECH,00EDH,00EEH,00EFH,00EFH,00F0H 1328 ;;;; WORD 00F1H,00F2H,00F2H,00F3H,00F4H,00F4H,00F5H,00F6H 1329 ;;;; WORD 00F6H,00F7H,00F7H,00F8H,00F9H,00F9H,00FAH,00FAH 1330 ;;;; WORD 00FAH,00FBH,00FBH,00FCH,00FCH,00FDH,00FDH,00FDH 1331 ;;;; WORD 00FEH,00FEH,00FEH,00FEH,00FFH,00FFH,00FFH,00FFH 1332 ;;;; WORD 00FFH,0100H,0100H,0100H,0100H,0100H,0100H,0100H 1333 ;;;; WORD 0100H 1334 ; 1335 ;;;;;------------------------------------------------------------------------ 1336 ;;;;;- BG3 change data - 1337 ;;;;;------------------------------------------------------------------------ 1338 ;;;;BG3KAGCL EQU $ 1339 ;;;; HEX 00 1340 ;;;; HEX 00,01 1341 ;;;;; 1342 ;;;;BG3KAG00 EQU $ 1343 ;;;; HEX 03 1344 ;;;; HEX 00,10 1345 ;;;; HEX 00,0C 1346 ;;;; HEX 00,08 1347 ;;;;; 1348 ;;;;BG3KAG01 EQU $ 1349 ;;;; HEX 10 1350 ;;;; HEX 00,10 1351 ;;;; HEX FF,0E 1352 ;;;; HEX FE,0D 1353 ;;;; HEX FD,0F 1354 ;;;; HEX FD,0E 1355 ;;;; HEX FC,0F 1356 ;;;; HEX FC,0E 1357 ;;;; HEX FC,0E 1358 ;;;; HEX FB,0F 1359 ;;;; HEX FB,0F 1360 ;;;; HEX FB,0F 1361 ;;;; HEX FC,0E 1362 ;;;; HEX FB,0D 1363 ;;;; HEX FB,0D 1364 ;;;; HEX FC,0B 1365 ;;;; HEX FC,08 1366 ;;;;; 1367 ;;;;BG3KAG02 EQU $ 1368 ;;;; HEX 20 1369 ;;;; HEX 00,10 1370 ;;;; HEX 00,0F 1371 ;;;; HEX 01,0F 1372 ;;;; HEX 02,0E 1373 ;;;; HEX 02,0F 1374 ;;;; HEX 02,0F 1375 ;;;; HEX 02,0F 1376 ;;;; HEX 02,0F 1377 ;;;; HEX 02,0E 1378 ;;;; HEX 02,0E 1379 ;;;; HEX 01,0F 1380 ;;;; HEX 00,0F 1381 ;;;; HEX 00,10 1382 ;;;; HEX FF,11 1383 ;;;; HEX FF,12 1384 ;;;; HEX FE,14 1385 ;;;; HEX FD,16 1386 ;;;; HEX FD,18 1387 ;;;; HEX FD,19 1388 ;;;; HEX FD,1B 1389 ;;;; HEX FD,1B 1390 ;;;; HEX FE,1C 1391 ;;;; HEX FE,1D 1392 ;;;; HEX FE,1D 1393 ;;;; HEX FF,1D 1394 ;;;; HEX FF,1D 1395 ;;;; HEX 00,1C 1396 ;;;; HEX 00,1B 1397 ;;;; HEX 01,18 1398 ;;;; HEX 01,15 1399 ;;;; HEX 03,10 1400 ;;;; HEX 03,0C 1401 ;;;;; 1402 ;;;;BG3KAG03 EQU $ 1403 ;;;; HEX 30 1404 ;;;; HEX 00,10 1405 ;;;; HEX FE,13 1406 ;;;; HEX FC,15 1407 ;;;; HEX FB,15 1408 ;;;; HEX FB,15 1409 ;;;; HEX FB,14 1410 ;;;; HEX FB,14 1411 ;;;; HEX FB,14 1412 ;;;; HEX FB,14 1413 ;;;; HEX FB,14 1414 ;;;; HEX FC,14 1415 ;;;; HEX FC,14 1416 ;;;; HEX FC,16 1417 ;;;; HEX FC,17 1418 ;;;; HEX FC,19 1419 ;;;; HEX FC,1B 1420 ;;;; HEX FC,1D 1421 ;;;; HEX FC,1F 1422 ;;;; HEX FD,20 1423 ;;;; HEX FC,21 1424 ;;;; HEX FC,21 1425 ;;;; HEX FD,22 1426 ;;;; HEX FD,22 1427 ;;;; HEX FD,21 1428 ;;;; HEX FE,22 1429 ;;;; HEX FE,23 1430 ;;;; HEX FF,23 1431 ;;;; HEX 01,26 1432 ;;;; HEX 02,27 1433 ;;;; HEX 03,28 1434 ;;;; HEX 03,27 1435 ;;;; HEX 04,27 1436 ;;;; HEX 04,27 1437 ;;;; HEX 05,26 1438 ;;;; HEX 05,26 1439 ;;;; HEX 05,25 1440 ;;;; HEX 05,25 1441 ;;;; HEX 05,25 1442 ;;;; HEX 05,24 1443 ;;;; HEX 05,22 1444 ;;;; HEX 05,20 1445 ;;;; HEX 04,1F 1446 ;;;; HEX 04,1B 1447 ;;;; HEX 05,18 1448 ;;;; HEX 06,12 1449 ;;;; HEX 06,10 1450 ;;;; HEX 06,0D 1451 ;;;; HEX 06,09 1452 ;;;;; 1453 ;;;;BG3KAG04 EQU $ 1454 ;;;; HEX 48 1455 ;;;; HEX 00,11 1456 ;;;; HEX 01,13 1457 ;;;; HEX 02,14 1458 ;;;; HEX 02,15 1459 ;;;; HEX 02,15 1460 ;;;; HEX 03,15 1461 ;;;; HEX 03,15 1462 ;;;; HEX 04,15 1463 ;;;; HEX 04,15 1464 ;;;; HEX 05,16 1465 ;;;; HEX 05,16 1466 ;;;; HEX 05,16 1467 ;;;; HEX 04,17 1468 ;;;; HEX 04,17 1469 ;;;; HEX 04,17 1470 ;;;; HEX 03,17 1471 ;;;; HEX 03,17 1472 ;;;; HEX 03,18 1473 ;;;; HEX 02,18 1474 ;;;; HEX 02,18 1475 ;;;; HEX 02,1A 1476 ;;;; HEX 01,1B 1477 ;;;; HEX 01,1B 1478 ;;;; HEX 01,1C 1479 ;;;; HEX 01,1E 1480 ;;;; HEX 01,20 1481 ;;;; HEX 01,23 1482 ;;;; HEX 01,25 1483 ;;;; HEX 02,26 1484 ;;;; HEX 01,27 1485 ;;;; HEX 01,28 1486 ;;;; HEX 01,29 1487 ;;;; HEX 01,2A 1488 ;;;; HEX 01,2A 1489 ;;;; HEX 00,2C 1490 ;;;; HEX FF,2C 1491 ;;;; HEX FE,2D 1492 ;;;; HEX FE,2E 1493 ;;;; HEX FE,2E 1494 ;;;; HEX FE,30 1495 ;;;; HEX FE,30 1496 ;;;; HEX FF,32 1497 ;;;; HEX FF,33 1498 ;;;; HEX 00,34 1499 ;;;; HEX 00,34 1500 ;;;; HEX 00,33 1501 ;;;; HEX 01,34 1502 ;;;; HEX 01,34 1503 ;;;; HEX 01,34 1504 ;;;; HEX 01,34 1505 ;;;; HEX 01,34 1506 ;;;; HEX 01,34 1507 ;;;; HEX 01,32 1508 ;;;; HEX 01,31 1509 ;;;; HEX 02,2F 1510 ;;;; HEX 03,2C 1511 ;;;; HEX 04,2A 1512 ;;;; HEX 04,29 1513 ;;;; HEX 04,29 1514 ;;;; HEX 03,29 1515 ;;;; HEX 03,29 1516 ;;;; HEX 03,28 1517 ;;;; HEX 03,28 1518 ;;;; HEX 02,27 1519 ;;;; HEX 02,24 1520 ;;;; HEX 02,22 1521 ;;;; HEX 02,20 1522 ;;;; HEX 02,1E 1523 ;;;; HEX 02,1D 1524 ;;;; HEX 03,1A 1525 ;;;; HEX 04,16 1526 ;;;; HEX 03,11 1527 ;;;;; 1528 ;;;;BG3KAG05 EQU $ 1529 ;;;; HEX 68 1530 ;;;; HEX 00,10 1531 ;;;; HEX FF,11 1532 ;;;; HEX FF,13 1533 ;;;; HEX FF,14 1534 ;;;; HEX FF,14 1535 ;;;; HEX FE,15 1536 ;;;; HEX FE,16 1537 ;;;; HEX FD,17 1538 ;;;; HEX FE,18 1539 ;;;; HEX FD,19 1540 ;;;; HEX FD,1A 1541 ;;;; HEX FD,1A 1542 ;;;; HEX FD,1B 1543 ;;;; HEX FD,1C 1544 ;;;; HEX FD,1D 1545 ;;;; HEX FE,1E 1546 ;;;; HEX FD,1F 1547 ;;;; HEX FE,20 1548 ;;;; HEX FE,20 1549 ;;;; HEX FE,22 1550 ;;;; HEX FE,22 1551 ;;;; HEX FD,23 1552 ;;;; HEX FE,24 1553 ;;;; HEX FD,25 1554 ;;;; HEX FD,25 1555 ;;;; HEX FD,25 1556 ;;;; HEX FD,25 1557 ;;;; HEX FD,25 1558 ;;;; HEX FD,24 1559 ;;;; HEX FD,24 1560 ;;;; HEX FD,24 1561 ;;;; HEX FD,25 1562 ;;;; HEX FD,25 1563 ;;;; HEX FD,25 1564 ;;;; HEX FD,25 1565 ;;;; HEX FD,25 1566 ;;;; HEX FE,25 1567 ;;;; HEX FE,25 1568 ;;;; HEX FF,24 1569 ;;;; HEX FF,25 1570 ;;;; HEX 00,24 1571 ;;;; HEX 01,24 1572 ;;;; HEX 01,23 1573 ;;;; HEX 01,23 1574 ;;;; HEX 02,23 1575 ;;;; HEX 04,26 1576 ;;;; HEX 05,26 1577 ;;;; HEX 05,27 1578 ;;;; HEX 06,28 1579 ;;;; HEX 06,28 1580 ;;;; HEX 06,28 1581 ;;;; HEX 06,29 1582 ;;;; HEX 06,29 1583 ;;;; HEX 06,29 1584 ;;;; HEX 06,2A 1585 ;;;; HEX 06,2A 1586 ;;;; HEX 05,2B 1587 ;;;; HEX 05,2A 1588 ;;;; HEX 04,2B 1589 ;;;; HEX 04,2B 1590 ;;;; HEX 04,2B 1591 ;;;; HEX 04,2C 1592 ;;;; HEX 04,2E 1593 ;;;; HEX 04,31 1594 ;;;; HEX 04,33 1595 ;;;; HEX 04,34 1596 ;;;; HEX 04,36 1597 ;;;; HEX 03,38 1598 ;;;; HEX 02,3A 1599 ;;;; HEX 01,3B 1600 ;;;; HEX 01,3C 1601 ;;;; HEX 01,3C 1602 ;;;; HEX 00,3D 1603 ;;;; HEX 00,3D 1604 ;;;; HEX 00,3D 1605 ;;;; HEX 00,3E 1606 ;;;; HEX 00,3E 1607 ;;;; HEX 00,3E 1608 ;;;; HEX FF,3E 1609 ;;;; HEX FF,3E 1610 ;;;; HEX FF,3E 1611 ;;;; HEX FE,3D 1612 ;;;; HEX FE,3D 1613 ;;;; HEX FF,3C 1614 ;;;; HEX FE,3B 1615 ;;;; HEX FE,3B 1616 ;;;; HEX FE,3A 1617 ;;;; HEX FE,3A 1618 ;;;; HEX FD,39 1619 ;;;; HEX FD,37 1620 ;;;; HEX FD,36 1621 ;;;; HEX FC,35 1622 ;;;; HEX FC,33 1623 ;;;; HEX FC,31 1624 ;;;; HEX FC,2F 1625 ;;;; HEX FC,2E 1626 ;;;; HEX FB,2B 1627 ;;;; HEX FB,29 1628 ;;;; HEX FB,25 1629 ;;;; HEX FB,21 1630 ;;;; HEX FA,1B 1631 ;;;; HEX FB,16 1632 ;;;; HEX FA,11 1633 ;;;; HEX F9,07 1634 ;;;;; 1635 ;;;;BG3KAG06 EQU $ 1636 ;;;; HEX 7F 1637 ;;;; HEX 00,10 1638 ;;;; HEX 00,10 1639 ;;;; HEX FF,11 1640 ;;;; HEX FF,13 1641 ;;;; HEX FF,14 1642 ;;;; HEX FE,14 1643 ;;;; HEX FD,15 1644 ;;;; HEX FD,15 1645 ;;;; HEX FD,16 1646 ;;;; HEX FC,17 1647 ;;;; HEX FC,16 1648 ;;;; HEX FC,16 1649 ;;;; HEX FB,17 1650 ;;;; HEX FB,17 1651 ;;;; HEX FB,17 1652 ;;;; HEX FB,16 1653 ;;;; HEX FB,16 1654 ;;;; HEX FA,17 1655 ;;;; HEX FB,18 1656 ;;;; HEX FB,18 1657 ;;;; HEX FA,19 1658 ;;;; HEX FB,1A 1659 ;;;; HEX FA,1B 1660 ;;;; HEX FA,1C 1661 ;;;; HEX F9,1D 1662 ;;;; HEX F9,1F 1663 ;;;; HEX F9,21 1664 ;;;; HEX F9,21 1665 ;;;; HEX F9,23 1666 ;;;; HEX F9,25 1667 ;;;; HEX F9,26 1668 ;;;; HEX F9,26 1669 ;;;; HEX F9,28 1670 ;;;; HEX F9,28 1671 ;;;; HEX F9,2A 1672 ;;;; HEX F9,2B 1673 ;;;; HEX F9,2D 1674 ;;;; HEX FA,2E 1675 ;;;; HEX F9,2F 1676 ;;;; HEX FA,30 1677 ;;;; HEX FA,31 1678 ;;;; HEX FB,32 1679 ;;;; HEX FB,33 1680 ;;;; HEX FB,33 1681 ;;;; HEX FB,35 1682 ;;;; HEX FC,36 1683 ;;;; HEX FC,37 1684 ;;;; HEX FC,37 1685 ;;;; HEX FD,38 1686 ;;;; HEX FD,37 1687 ;;;; HEX FD,37 1688 ;;;; HEX FE,38 1689 ;;;; HEX FE,38 1690 ;;;; HEX FE,38 1691 ;;;; HEX FE,39 1692 ;;;; HEX FF,38 1693 ;;;; HEX FF,38 1694 ;;;; HEX FF,39 1695 ;;;; HEX 00,38 1696 ;;;; HEX 00,38 1697 ;;;; HEX 00,37 1698 ;;;; HEX 00,37 1699 ;;;; HEX 01,36 1700 ;;;; HEX 00,35 1701 ;;;; HEX 01,34 1702 ;;;; HEX 01,34 1703 ;;;; HEX 01,33 1704 ;;;; HEX 01,33 1705 ;;;; HEX 01,33 1706 ;;;; HEX 01,33 1707 ;;;; HEX 02,32 1708 ;;;; HEX 02,33 1709 ;;;; HEX 02,33 1710 ;;;; HEX 03,34 1711 ;;;; HEX 03,34 1712 ;;;; HEX 03,34 1713 ;;;; HEX 03,35 1714 ;;;; HEX 03,36 1715 ;;;; HEX 03,36 1716 ;;;; HEX 02,37 1717 ;;;; HEX 02,37 1718 ;;;; HEX 02,39 1719 ;;;; HEX 02,3A 1720 ;;;; HEX 01,3B 1721 ;;;; HEX 01,3C 1722 ;;;; HEX 01,3E 1723 ;;;; HEX 01,3E 1724 ;;;; HEX 00,3F 1725 ;;;; HEX 00,3F 1726 ;;;; HEX 00,3F 1727 ;;;; HEX 00,3F 1728 ;;;; HEX 00,3F 1729 ;;;; HEX 00,3F 1730 ;;;; HEX 00,40 1731 ;;;; HEX FF,3F 1732 ;;;; HEX FF,3F 1733 ;;;; HEX FF,3F 1734 ;;;; HEX FF,3F 1735 ;;;; HEX FF,3F 1736 ;;;; HEX FF,3E 1737 ;;;; HEX FF,3D 1738 ;;;; HEX FF,3C 1739 ;;;; HEX FF,3C 1740 ;;;; HEX FE,3B 1741 ;;;; HEX FE,3B 1742 ;;;; HEX FF,3A 1743 ;;;; HEX FE,39 1744 ;;;; HEX FF,38 1745 ;;;; HEX FE,37 1746 ;;;; HEX FF,36 1747 ;;;; HEX FF,35 1748 ;;;; HEX FF,35 1749 ;;;; HEX 00,34 1750 ;;;; HEX 00,33 1751 ;;;; HEX 00,31 1752 ;;;; HEX 01,30 1753 ;;;; HEX 01,2E 1754 ;;;; HEX 01,2C 1755 ;;;; HEX 01,2B 1756 ;;;; HEX 01,28 1757 ;;;; HEX 01,26 1758 ;;;; HEX 01,24 1759 ;;;; HEX 01,21 1760 ;;;; HEX 01,1D 1761 ;;;; HEX 02,1A 1762 ;;;; HEX 02,14 1763 ;;;; HEX 01,0B 1764 ;;;;; 1765 ;;;;BG3KAG07 EQU $ 1766 ;;;; HEX 7F 1767 ;;;; HEX 00,10 1768 ;;;; HEX FF,11 1769 ;;;; HEX FF,12 1770 ;;;; HEX FE,12 1771 ;;;; HEX FD,13 1772 ;;;; HEX FD,14 1773 ;;;; HEX FC,15 1774 ;;;; HEX FC,16 1775 ;;;; HEX FB,19 1776 ;;;; HEX FB,1A 1777 ;;;; HEX FA,1D 1778 ;;;; HEX FA,1E 1779 ;;;; HEX FA,20 1780 ;;;; HEX FA,22 1781 ;;;; HEX F9,23 1782 ;;;; HEX F9,25 1783 ;;;; HEX FA,26 1784 ;;;; HEX FA,28 1785 ;;;; HEX F9,29 1786 ;;;; HEX FA,2A 1787 ;;;; HEX FA,2A 1788 ;;;; HEX FA,2C 1789 ;;;; HEX FA,2C 1790 ;;;; HEX F9,2D 1791 ;;;; HEX FA,2E 1792 ;;;; HEX FA,2E 1793 ;;;; HEX FA,2E 1794 ;;;; HEX FA,2E 1795 ;;;; HEX FA,2E 1796 ;;;; HEX FA,2F 1797 ;;;; HEX FA,2F 1798 ;;;; HEX FA,2F 1799 ;;;; HEX FA,2F 1800 ;;;; HEX FA,2F 1801 ;;;; HEX FA,2F 1802 ;;;; HEX FA,2F 1803 ;;;; HEX FA,2F 1804 ;;;; HEX FB,2E 1805 ;;;; HEX FB,2E 1806 ;;;; HEX FB,2E 1807 ;;;; HEX FB,2E 1808 ;;;; HEX FB,2D 1809 ;;;; HEX FB,2D 1810 ;;;; HEX FC,2E 1811 ;;;; HEX FC,2D 1812 ;;;; HEX FC,2D 1813 ;;;; HEX FC,2D 1814 ;;;; HEX FC,2D 1815 ;;;; HEX FC,2D 1816 ;;;; HEX FD,2C 1817 ;;;; HEX FD,2C 1818 ;;;; HEX FD,2C 1819 ;;;; HEX FD,2C 1820 ;;;; HEX FD,2D 1821 ;;;; HEX FD,2D 1822 ;;;; HEX FD,2D 1823 ;;;; HEX FD,2D 1824 ;;;; HEX FE,2E 1825 ;;;; HEX FE,2E 1826 ;;;; HEX FE,2F 1827 ;;;; HEX FE,30 1828 ;;;; HEX FE,31 1829 ;;;; HEX FF,32 1830 ;;;; HEX FE,33 1831 ;;;; HEX FF,34 1832 ;;;; HEX FF,36 1833 ;;;; HEX FE,37 1834 ;;;; HEX FF,38 1835 ;;;; HEX FF,38 1836 ;;;; HEX FF,3A 1837 ;;;; HEX FF,3A 1838 ;;;; HEX FF,3B 1839 ;;;; HEX FF,3D 1840 ;;;; HEX FF,3D 1841 ;;;; HEX FF,3D 1842 ;;;; HEX 00,3E 1843 ;;;; HEX 00,3E 1844 ;;;; HEX 00,3F 1845 ;;;; HEX 00,3F 1846 ;;;; HEX 00,3F 1847 ;;;; HEX 00,3F 1848 ;;;; HEX 00,3F 1849 ;;;; HEX 01,3E 1850 ;;;; HEX 01,3E 1851 ;;;; HEX 01,3C 1852 ;;;; HEX 01,3C 1853 ;;;; HEX 01,3B 1854 ;;;; HEX 01,3B 1855 ;;;; HEX 01,3A 1856 ;;;; HEX 00,3B 1857 ;;;; HEX 00,3B 1858 ;;;; HEX 00,3C 1859 ;;;; HEX 00,3C 1860 ;;;; HEX 00,3C 1861 ;;;; HEX 00,3C 1862 ;;;; HEX FF,3D 1863 ;;;; HEX FF,3D 1864 ;;;; HEX FF,3D 1865 ;;;; HEX FF,3D 1866 ;;;; HEX FF,3D 1867 ;;;; HEX FF,3C 1868 ;;;; HEX FF,3C 1869 ;;;; HEX FF,3C 1870 ;;;; HEX FE,3B 1871 ;;;; HEX FE,3B 1872 ;;;; HEX FE,3A 1873 ;;;; HEX FD,39 1874 ;;;; HEX FD,39 1875 ;;;; HEX FE,38 1876 ;;;; HEX FD,37 1877 ;;;; HEX FD,36 1878 ;;;; HEX FD,36 1879 ;;;; HEX FD,34 1880 ;;;; HEX FD,34 1881 ;;;; HEX FD,32 1882 ;;;; HEX FC,31 1883 ;;;; HEX FD,30 1884 ;;;; HEX FD,2E 1885 ;;;; HEX FD,2C 1886 ;;;; HEX FD,2A 1887 ;;;; HEX FD,26 1888 ;;;; HEX FD,24 1889 ;;;; HEX FE,20 1890 ;;;; HEX FE,1C 1891 ;;;; HEX FE,18 1892 ;;;; HEX FF,12 1893 ;;;; HEX FE,0D 1894 ;;;;; 1895 ;;;;BG3KAG08 EQU $ ;おばけ初期出現 1896 ;;;; HEX 5D 1897 ;;;; BYTE 013H,036H 1898 ;;;; BYTE 019H,043H 1899 ;;;; BYTE 01CH,049H 1900 ;;;; BYTE 020H,050H 1901 ;;;; BYTE 021H,053H 1902 ;;;; BYTE 024H,057H 1903 ;;;; BYTE 026H,05AH 1904 ;;;; BYTE 026H,05BH 1905 ;;;; BYTE 028H,05CH 1906 ;;;; BYTE 028H,05DH 1907 ;;;; BYTE 02AH,05EH 1908 ;;;; BYTE 02AH,05FH 1909 ;;;; BYTE 02BH,05FH 1910 ;;;; BYTE 02BH,05FH 1911 ;;;; BYTE 02CH,05FH 1912 ;;;; BYTE 02DH,05EH 1913 ;;;; BYTE 02DH,05DH 1914 ;;;; BYTE 02FH,05CH 1915 ;;;; BYTE 030H,059H 1916 ;;;; BYTE 032H,058H 1917 ;;;; BYTE 033H,056H 1918 ;;;; BYTE 034H,054H 1919 ;;;; BYTE 034H,054H 1920 ;;;; BYTE 034H,053H 1921 ;;;; BYTE 034H,053H 1922 ;;;; BYTE 034H,052H 1923 ;;;; BYTE 034H,052H 1924 ;;;; BYTE 034H,052H 1925 ;;;; BYTE 033H,052H 1926 ;;;; BYTE 032H,051H 1927 ;;;; BYTE 032H,052H 1928 ;;;; BYTE 031H,051H 1929 ;;;; BYTE 030H,051H 1930 ;;;; BYTE 02FH,051H 1931 ;;;; BYTE 02EH,051H 1932 ;;;; BYTE 02DH,050H 1933 ;;;; BYTE 02BH,04FH 1934 ;;;; BYTE 02AH,050H 1935 ;;;; BYTE 028H,04FH 1936 ;;;; BYTE 026H,04DH 1937 ;;;; BYTE 024H,04DH 1938 ;;;; BYTE 022H,04BH 1939 ;;;; BYTE 021H,04AH 1940 ;;;; BYTE 020H,048H 1941 ;;;; BYTE 01FH,048H 1942 ;;;; BYTE 01DH,047H 1943 ;;;; BYTE 01CH,047H 1944 ;;;; BYTE 01BH,047H 1945 ;;;; BYTE 01AH,045H 1946 ;;;; BYTE 01AH,044H 1947 ;;;; BYTE 019H,044H 1948 ;;;; BYTE 019H,044H 1949 ;;;; BYTE 018H,044H 1950 ;;;; BYTE 017H,043H 1951 ;;;; BYTE 017H,042H 1952 ;;;; BYTE 017H,042H 1953 ;;;; BYTE 016H,041H 1954 ;;;; BYTE 016H,040H 1955 ;;;; BYTE 016H,040H 1956 ;;;; BYTE 015H,03FH 1957 ;;;; BYTE 015H,03FH 1958 ;;;; BYTE 015H,03FH 1959 ;;;; BYTE 015H,03DH 1960 ;;;; BYTE 015H,03DH 1961 ;;;; BYTE 015H,03DH 1962 ;;;; BYTE 015H,03BH 1963 ;;;; BYTE 015H,03BH 1964 ;;;; BYTE 015H,03AH 1965 ;;;; BYTE 015H,03AH 1966 ;;;; BYTE 015H,039H 1967 ;;;; BYTE 015H,038H 1968 ;;;; BYTE 015H,037H 1969 ;;;; BYTE 015H,036H 1970 ;;;; BYTE 015H,035H 1971 ;;;; BYTE 015H,035H 1972 ;;;; BYTE 015H,033H 1973 ;;;; BYTE 015H,033H 1974 ;;;; BYTE 015H,031H 1975 ;;;; BYTE 016H,030H 1976 ;;;; BYTE 016H,02EH 1977 ;;;; BYTE 016H,02DH 1978 ;;;; BYTE 016H,02CH 1979 ;;;; BYTE 016H,02AH 1980 ;;;; BYTE 016H,029H 1981 ;;;; BYTE 016H,027H 1982 ;;;; BYTE 016H,025H 1983 ;;;; BYTE 017H,022H 1984 ;;;; BYTE 017H,01FH 1985 ;;;; BYTE 017H,01CH 1986 ;;;; BYTE 017H,019H 1987 ;;;; BYTE 018H,014H 1988 ;;;; BYTE 018H,010H 1989 ;;;; BYTE 018H,00BH 1990 ;;;;; 1991 ;;;;BG3KAG09 EQU $ ;おばけ顔面ショット準備 1992 ;;;; HEX 66 1993 ;;;; BYTE 039H-048H,02DH 1994 ;;;; BYTE 037H-048H,031H 1995 ;;;; BYTE 035H-048H,035H 1996 ;;;; BYTE 033H-048H,037H 1997 ;;;; BYTE 031H-048H,03BH 1998 ;;;; BYTE 030H-048H,03EH 1999 ;;;; BYTE 02EH-048H,03FH 2000 ;;;; BYTE 02DH-048H,042H 2001 ;;;; BYTE 02BH-048H,043H 2002 ;;;; BYTE 02AH-048H,045H 2003 ;;;; BYTE 029H-048H,045H 2004 ;;;; BYTE 029H-048H,046H 2005 ;;;; BYTE 028H-048H,046H 2006 ;;;; BYTE 027H-048H,047H 2007 ;;;; BYTE 027H-048H,048H 2008 ;;;; BYTE 026H-048H,048H 2009 ;;;; BYTE 025H-048H,049H 2010 ;;;; BYTE 025H-048H,049H 2011 ;;;; BYTE 025H-048H,04AH 2012 ;;;; BYTE 025H-048H,04AH 2013 ;;;; BYTE 024H-048H,04BH 2014 ;;;; BYTE 025H-048H,04CH 2015 ;;;; BYTE 024H-048H,04DH 2016 ;;;; BYTE 024H-048H,04DH 2017 ;;;; BYTE 024H-048H,04EH 2018 ;;;; BYTE 024H-048H,04EH 2019 ;;;; BYTE 024H-048H,04FH 2020 ;;;; BYTE 024H-048H,04FH 2021 ;;;; BYTE 024H-048H,050H 2022 ;;;; BYTE 024H-048H,050H 2023 ;;;; BYTE 024H-048H,051H 2024 ;;;; BYTE 024H-048H,051H 2025 ;;;; BYTE 024H-048H,051H 2026 ;;;; BYTE 025H-048H,052H 2027 ;;;; BYTE 025H-048H,052H 2028 ;;;; BYTE 025H-048H,053H 2029 ;;;; BYTE 025H-048H,053H 2030 ;;;; BYTE 026H-048H,052H 2031 ;;;; BYTE 026H-048H,053H 2032 ;;;; BYTE 026H-048H,053H 2033 ;;;; BYTE 027H-048H,054H 2034 ;;;; BYTE 027H-048H,054H 2035 ;;;; BYTE 027H-048H,053H 2036 ;;;; BYTE 028H-048H,054H 2037 ;;;; BYTE 028H-048H,054H 2038 ;;;; BYTE 029H-048H,054H 2039 ;;;; BYTE 029H-048H,054H 2040 ;;;; BYTE 029H-048H,055H 2041 ;;;; BYTE 02AH-048H,054H 2042 ;;;; BYTE 02AH-048H,055H 2043 ;;;; BYTE 02AH-048H,055H 2044 ;;;; BYTE 02BH-048H,054H 2045 ;;;; BYTE 02BH-048H,055H 2046 ;;;; BYTE 02BH-048H,055H 2047 ;;;; BYTE 02CH-048H,054H 2048 ;;;; BYTE 02CH-048H,054H 2049 ;;;; BYTE 02CH-048H,055H 2050 ;;;; BYTE 02DH-048H,054H 2051 ;;;; BYTE 02DH-048H,054H 2052 ;;;; BYTE 02DH-048H,054H 2053 ;;;; BYTE 02EH-048H,054H 2054 ;;;; BYTE 02EH-048H,054H 2055 ;;;; BYTE 02EH-048H,053H 2056 ;;;; BYTE 02EH-048H,053H 2057 ;;;; BYTE 02FH-048H,052H 2058 ;;;; BYTE 02FH-048H,052H 2059 ;;;; BYTE 02FH-048H,051H 2060 ;;;; BYTE 030H-048H,050H 2061 ;;;; BYTE 030H-048H,050H 2062 ;;;; BYTE 030H-048H,050H 2063 ;;;; BYTE 030H-048H,04FH 2064 ;;;; BYTE 031H-048H,04EH 2065 ;;;; BYTE 031H-048H,04DH 2066 ;;;; BYTE 031H-048H,04DH 2067 ;;;; BYTE 032H-048H,04CH 2068 ;;;; BYTE 032H-048H,04BH 2069 ;;;; BYTE 032H-048H,04BH 2070 ;;;; BYTE 033H-048H,04AH 2071 ;;;; BYTE 033H-048H,048H 2072 ;;;; BYTE 033H-048H,047H 2073 ;;;; BYTE 034H-048H,046H 2074 ;;;; BYTE 034H-048H,044H 2075 ;;;; BYTE 034H-048H,044H 2076 ;;;; BYTE 034H-048H,043H 2077 ;;;; BYTE 034H-048H,041H 2078 ;;;; BYTE 035H-048H,040H 2079 ;;;; BYTE 035H-048H,03EH 2080 ;;;; BYTE 035H-048H,03DH 2081 ;;;; BYTE 035H-048H,03BH 2082 ;;;; BYTE 036H-048H,03AH 2083 ;;;; BYTE 036H-048H,038H 2084 ;;;; BYTE 036H-048H,035H 2085 ;;;; BYTE 037H-048H,033H 2086 ;;;; BYTE 038H-048H,030H 2087 ;;;; BYTE 038H-048H,02EH 2088 ;;;; BYTE 038H-048H,02BH 2089 ;;;; BYTE 038H-048H,027H 2090 ;;;; BYTE 039H-048H,024H 2091 ;;;; BYTE 039H-048H,020H 2092 ;;;; BYTE 039H-048H,01CH 2093 ;;;; BYTE 038H-048H,013H 2094 ;;;; BYTE 037H-048H,005H 2095 ;;;;; 2096 ;;;;BG3KAG0A EQU $ ;おばけ顔面ショット 2097 ;;;; HEX 51 2098 ;;;; BYTE 01FH+18H,05CH 2099 ;;;; BYTE 01AH+18H,075H 2100 ;;;; BYTE 01CH+18H,079H 2101 ;;;; BYTE 01DH+18H,079H 2102 ;;;; BYTE 01FH+18H,07AH 2103 ;;;; BYTE 020H+18H,07AH 2104 ;;;; BYTE 021H+18H,078H 2105 ;;;; BYTE 023H+18H,076H 2106 ;;;; BYTE 024H+18H,073H 2107 ;;;; BYTE 029H+18H,06BH 2108 ;;;; BYTE 02BH+18H,067H 2109 ;;;; BYTE 02DH+18H,065H 2110 ;;;; BYTE 02EH+18H,063H 2111 ;;;; BYTE 02FH+18H,061H 2112 ;;;; BYTE 030H+18H,060H 2113 ;;;; BYTE 030H+18H,060H 2114 ;;;; BYTE 030H+18H,05FH 2115 ;;;; BYTE 030H+18H,05FH 2116 ;;;; BYTE 030H+18H,05FH 2117 ;;;; BYTE 030H+18H,05FH 2118 ;;;; BYTE 030H+18H,05FH 2119 ;;;; BYTE 030H+18H,05FH 2120 ;;;; BYTE 02FH+18H,05FH 2121 ;;;; BYTE 02FH+18H,060H 2122 ;;;; BYTE 02EH+18H,060H 2123 ;;;; BYTE 02DH+18H,062H 2124 ;;;; BYTE 02CH+18H,062H 2125 ;;;; BYTE 02AH+18H,063H 2126 ;;;; BYTE 029H+18H,064H 2127 ;;;; BYTE 027H+18H,065H 2128 ;;;; BYTE 026H+18H,065H 2129 ;;;; BYTE 025H+18H,065H 2130 ;;;; BYTE 023H+18H,063H 2131 ;;;; BYTE 020H+18H,05FH 2132 ;;;; BYTE 01FH+18H,05EH 2133 ;;;; BYTE 01BH+18H,058H 2134 ;;;; BYTE 016H+18H,050H 2135 ;;;; BYTE 012H+18H,04CH 2136 ;;;; BYTE 011H+18H,04CH 2137 ;;;; BYTE 00FH+18H,04AH 2138 ;;;; BYTE 00DH+18H,049H 2139 ;;;; BYTE 00DH+18H,048H 2140 ;;;; BYTE 00BH+18H,047H 2141 ;;;; BYTE 00AH+18H,047H 2142 ;;;; BYTE 009H+18H,047H 2143 ;;;; BYTE 008H+18H,047H 2144 ;;;; BYTE 008H+18H,046H 2145 ;;;; BYTE 007H+18H,046H 2146 ;;;; BYTE 006H+18H,045H 2147 ;;;; BYTE 005H+18H,045H 2148 ;;;; BYTE 005H+18H,044H 2149 ;;;; BYTE 004H+18H,043H 2150 ;;;; BYTE 004H+18H,042H 2151 ;;;; BYTE 004H+18H,042H 2152 ;;;; BYTE 003H+18H,041H 2153 ;;;; BYTE 003H+18H,040H 2154 ;;;; BYTE 002H+18H,03FH 2155 ;;;; BYTE 002H+18H,03EH 2156 ;;;; BYTE 002H+18H,03EH 2157 ;;;; BYTE 001H+18H,03DH 2158 ;;;; BYTE 001H+18H,03CH 2159 ;;;; BYTE 000H+18H,03BH 2160 ;;;; BYTE 001H+18H,03AH 2161 ;;;; BYTE 000H+18H,039H 2162 ;;;; BYTE 0FFH+18H,037H 2163 ;;;; BYTE 0FFH+18H,036H 2164 ;;;; BYTE 0FFH+18H,035H 2165 ;;;; BYTE 0FFH+18H,033H 2166 ;;;; BYTE 0FFH+18H,031H 2167 ;;;; BYTE 000H+18H,030H 2168 ;;;; BYTE 000H+18H,02EH 2169 ;;;; BYTE 000H+18H,02CH 2170 ;;;; BYTE 000H+18H,02AH 2171 ;;;; BYTE 000H+18H,028H 2172 ;;;; BYTE 000H+18H,024H 2173 ;;;; BYTE 001H+18H,020H 2174 ;;;; BYTE 001H+18H,01CH 2175 ;;;; BYTE 001H+18H,019H 2176 ;;;; BYTE 002H+18H,014H 2177 ;;;; BYTE 002H+18H,00FH 2178 ;;;; BYTE 003H+18H,006H 2179 ;;;;; 2180 ;;;;BG3KAG08 EQU $ 2181 ;;;; HEX 6C 2182 ;;;; HEX 00,10 2183 ;;;; HEX 01,13 2184 ;;;; HEX 04,18 2185 ;;;; HEX 08,21 2186 ;;;; HEX 0C,28 2187 ;;;; HEX 0F,2D 2188 ;;;; HEX 12,32 2189 ;;;; HEX 14,36 2190 ;;;; HEX 1E,48 2191 ;;;; HEX 23,52 2192 ;;;; HEX 25,55 2193 ;;;; HEX 26,57 2194 ;;;; HEX 28,58 2195 ;;;; HEX 29,5A 2196 ;;;; HEX 2A,5B 2197 ;;;; HEX 2C,5C 2198 ;;;; HEX 2D,5C 2199 ;;;; HEX 2E,5B 2200 ;;;; HEX 30,59 2201 ;;;; HEX 32,58 2202 ;;;; HEX 33,56 2203 ;;;; HEX 34,55 2204 ;;;; HEX 34,55 2205 ;;;; HEX 36,54 2206 ;;;; HEX 36,54 2207 ;;;; HEX 36,53 2208 ;;;; HEX 37,52 2209 ;;;; HEX 37,51 2210 ;;;; HEX 38,50 2211 ;;;; HEX 38,50 2212 ;;;; HEX 38,4F 2213 ;;;; HEX 38,4F 2214 ;;;; HEX 38,4D 2215 ;;;; HEX 38,4D 2216 ;;;; HEX 38,4B 2217 ;;;; HEX 38,4B 2218 ;;;; HEX 38,4A 2219 ;;;; HEX 37,49 2220 ;;;; HEX 38,48 2221 ;;;; HEX 37,47 2222 ;;;; HEX 36,45 2223 ;;;; HEX 36,45 2224 ;;;; HEX 35,43 2225 ;;;; HEX 35,42 2226 ;;;; HEX 34,41 2227 ;;;; HEX 33,3F 2228 ;;;; HEX 32,3D 2229 ;;;; HEX 31,3B 2230 ;;;; HEX 30,38 2231 ;;;; HEX 2F,36 2232 ;;;; HEX 2E,34 2233 ;;;; HEX 2D,34 2234 ;;;; HEX 2C,33 2235 ;;;; HEX 2B,31 2236 ;;;; HEX 2B,30 2237 ;;;; HEX 2A,2F 2238 ;;;; HEX 29,2F 2239 ;;;; HEX 29,2E 2240 ;;;; HEX 28,2C 2241 ;;;; HEX 27,2B 2242 ;;;; HEX 27,2C 2243 ;;;; HEX 26,2B 2244 ;;;; HEX 26,2B 2245 ;;;; HEX 26,2A 2246 ;;;; HEX 26,2A 2247 ;;;; HEX 25,29 2248 ;;;; HEX 25,2A 2249 ;;;; HEX 25,2A 2250 ;;;; HEX 25,2A 2251 ;;;; HEX 24,29 2252 ;;;; HEX 24,29 2253 ;;;; HEX 24,29 2254 ;;;; HEX 24,29 2255 ;;;; HEX 24,29 2256 ;;;; HEX 24,29 2257 ;;;; HEX 25,2A 2258 ;;;; HEX 25,29 2259 ;;;; HEX 25,29 2260 ;;;; HEX 25,29 2261 ;;;; HEX 25,29 2262 ;;;; HEX 25,29 2263 ;;;; HEX 25,29 2264 ;;;; HEX 26,28 2265 ;;;; HEX 26,28 2266 ;;;; HEX 26,28 2267 ;;;; HEX 26,28 2268 ;;;; HEX 26,27 2269 ;;;; HEX 26,27 2270 ;;;; HEX 26,27 2271 ;;;; HEX 26,26 2272 ;;;; HEX 26,26 2273 ;;;; HEX 26,26 2274 ;;;; HEX 26,26 2275 ;;;; HEX 26,24 2276 ;;;; HEX 26,24 2277 ;;;; HEX 26,24 2278 ;;;; HEX 26,22 2279 ;;;; HEX 25,21 2280 ;;;; HEX 26,20 2281 ;;;; HEX 26,20 2282 ;;;; HEX 26,1E 2283 ;;;; HEX 26,1D 2284 ;;;; HEX 26,1B 2285 ;;;; HEX 26,19 2286 ;;;; HEX 27,14 2287 ;;;; HEX 27,12 2288 ;;;; HEX 27,0D 2289 ;;;; HEX 27,06 2290 ; 2291 ; 2292 ; 2293 ;-------------- slime data -------------------------------------- * 2294 00059D BG3KAG0E EQU $ 2295 S00059D 3B HEX 03B 2296 2297 S00059E 00 1F HEX 000,01F 2298 S0005A0 00 2B HEX 000,02B 2299 S0005A2 00 34 HEX 000,034 2300 S0005A4 00 3B HEX 000,03B 2301 S0005A6 00 42 HEX 000,042 2302 S0005A8 00 47 HEX 000,047 2303 S0005AA 00 4B HEX 000,04B 2304 S0005AC 00 4F HEX 000,04F 2305 S0005AE 00 53 HEX 000,053 2306 S0005B0 00 56 HEX 000,056 2307 S0005B2 00 59 HEX 000,059 2308 S0005B4 00 5B HEX 000,05B 2309 S0005B6 00 5D HEX 000,05D 2310 S0005B8 00 5F HEX 000,05F 2311 S0005BA 00 60 HEX 000,060 2312 S0005BC 00 61 HEX 000,061 2313 2314 S0005BE 00 62 HEX 000,062 2315 S0005C0 00 63 HEX 000,063 2316 S0005C2 00 63 HEX 000,063 2317 S0005C4 00 63 HEX 000,063 2318 S0005C6 00 63 HEX 000,063 2319 S0005C8 00 63 HEX 000,063 2320 S0005CA 00 63 HEX 000,063 2321 S0005CC 00 63 HEX 000,063 2322 S0005CE 00 63 HEX 000,063 2323 S0005D0 00 62 HEX 000,062 2324 S0005D2 00 62 HEX 000,062 2325 S0005D4 00 61 HEX 000,061 2326 S0005D6 00 61 HEX 000,061 2327 S0005D8 00 60 HEX 000,060 2328 S0005DA 00 60 HEX 000,060 2329 S0005DC 00 5F HEX 000,05F 2330 2331 S0005DE 00 5E HEX 000,05E 2332 S0005E0 00 5D HEX 000,05D 2333 S0005E2 00 5C HEX 000,05C 2334 S0005E4 00 5B HEX 000,05B 2335 S0005E6 00 5A HEX 000,05A 2336 S0005E8 00 59 HEX 000,059 2337 S0005EA 00 57 HEX 000,057 2338 S0005EC 00 56 HEX 000,056 2339 S0005EE 00 55 HEX 000,055 2340 S0005F0 00 53 HEX 000,053 2341 S0005F2 00 51 HEX 000,051 2342 S0005F4 00 4F HEX 000,04F 2343 S0005F6 00 4E HEX 000,04E 2344 S0005F8 00 4B HEX 000,04B 2345 S0005FA 00 49 HEX 000,049 2346 S0005FC 00 47 HEX 000,047 2347 2348 S0005FE 00 44 HEX 000,044 2349 S000600 00 42 HEX 000,042 2350 S000602 00 3F HEX 000,03F 2351 S000604 00 3B HEX 000,03B 2352 S000606 00 38 HEX 000,038 2353 S000608 00 34 HEX 000,034 2354 S00060A 00 30 HEX 000,030 2355 S00060C 00 2B HEX 000,02B 2356 S00060E 00 25 HEX 000,025 2357 S000610 00 1F HEX 000,01F 2358 S000612 00 16 HEX 000,016 2359 ; 2360 2361 ; 2362 000614 BG3KAG0F EQU $ 2363 S000614 2E HEX 2E 2364 S000615 00 3C HEX 00,3C 2365 S000617 00 3E HEX 00,3E 2366 S000619 00 3E HEX 00,3E 2367 S00061B 00 3E HEX 00,3E 2368 S00061D 00 3E HEX 00,3E 2369 S00061F 00 3E HEX 00,3E 2370 S000621 00 3E HEX 00,3E 2371 S000623 00 3E HEX 00,3E 2372 S000625 00 3E HEX 00,3E 2373 S000627 00 3E HEX 00,3E 2374 S000629 00 3E HEX 00,3E 2375 S00062B 00 3E HEX 00,3E 2376 S00062D 00 3E HEX 00,3E 2377 S00062F 00 3E HEX 00,3E 2378 S000631 00 3E HEX 00,3E 2379 S000633 00 3E HEX 00,3E 2380 S000635 00 3E HEX 00,3E 2381 S000637 00 3E HEX 00,3E 2382 S000639 00 3E HEX 00,3E 2383 S00063B 00 3E HEX 00,3E 2384 S00063D 00 3E HEX 00,3E 2385 S00063F 00 3E HEX 00,3E 2386 S000641 00 3E HEX 00,3E 2387 S000643 00 3E HEX 00,3E 2388 S000645 00 3E HEX 00,3E 2389 S000647 00 3E HEX 00,3E 2390 S000649 00 3E HEX 00,3E 2391 S00064B 00 3E HEX 00,3E 2392 S00064D 00 3E HEX 00,3E 2393 S00064F 00 3E HEX 00,3E 2394 S000651 00 3E HEX 00,3E 2395 S000653 00 3E HEX 00,3E 2396 S000655 00 3E HEX 00,3E 2397 S000657 00 3E HEX 00,3E 2398 S000659 00 3E HEX 00,3E 2399 S00065B 00 3E HEX 00,3E 2400 S00065D 00 3E HEX 00,3E 2401 S00065F 00 3E HEX 00,3E 2402 S000661 00 3E HEX 00,3E 2403 S000663 00 3E HEX 00,3E 2404 S000665 00 3E HEX 00,3E 2405 S000667 00 3E HEX 00,3E 2406 S000669 00 3E HEX 00,3E 2407 S00066B 00 3E HEX 00,3E 2408 S00066D 00 3E HEX 00,3E 2409 S00066F 00 3C HEX 00,3C 2410 ; 2411 000671 BG3KAG10 EQU $ 2412 S000671 3E HEX 3E 2413 S000672 00 5C HEX 00,5C 2414 S000674 00 5E HEX 00,5E 2415 S000676 00 5E HEX 00,5E 2416 S000678 00 5E HEX 00,5E 2417 S00067A 00 5E HEX 00,5E 2418 S00067C 00 5E HEX 00,5E 2419 S00067E 00 5E HEX 00,5E 2420 S000680 00 5E HEX 00,5E 2421 S000682 00 5E HEX 00,5E 2422 S000684 00 5E HEX 00,5E 2423 S000686 00 5E HEX 00,5E 2424 S000688 00 5E HEX 00,5E 2425 S00068A 00 5E HEX 00,5E 2426 S00068C 00 5E HEX 00,5E 2427 S00068E 00 5E HEX 00,5E 2428 S000690 00 5E HEX 00,5E 2429 S000692 00 5E HEX 00,5E 2430 S000694 00 5E HEX 00,5E 2431 S000696 00 5E HEX 00,5E 2432 S000698 00 5E HEX 00,5E 2433 S00069A 00 5E HEX 00,5E 2434 S00069C 00 5E HEX 00,5E 2435 S00069E 00 5E HEX 00,5E 2436 S0006A0 00 5E HEX 00,5E 2437 S0006A2 00 5E HEX 00,5E 2438 S0006A4 00 5E HEX 00,5E 2439 S0006A6 00 5E HEX 00,5E 2440 S0006A8 00 5E HEX 00,5E 2441 S0006AA 00 5E HEX 00,5E 2442 S0006AC 00 5E HEX 00,5E 2443 S0006AE 00 5E HEX 00,5E 2444 S0006B0 00 5E HEX 00,5E 2445 S0006B2 00 5E HEX 00,5E 2446 S0006B4 00 5E HEX 00,5E 2447 S0006B6 00 5E HEX 00,5E 2448 S0006B8 00 5E HEX 00,5E 2449 S0006BA 00 5E HEX 00,5E 2450 S0006BC 00 5E HEX 00,5E 2451 S0006BE 00 5E HEX 00,5E 2452 S0006C0 00 5E HEX 00,5E 2453 S0006C2 00 5E HEX 00,5E 2454 S0006C4 00 5E HEX 00,5E 2455 S0006C6 00 5E HEX 00,5E 2456 S0006C8 00 5E HEX 00,5E 2457 S0006CA 00 5E HEX 00,5E 2458 S0006CC 00 5E HEX 00,5E 2459 S0006CE 00 5E HEX 00,5E 2460 S0006D0 00 5E HEX 00,5E 2461 S0006D2 00 5E HEX 00,5E 2462 S0006D4 00 5E HEX 00,5E 2463 S0006D6 00 5E HEX 00,5E 2464 S0006D8 00 5E HEX 00,5E 2465 S0006DA 00 5E HEX 00,5E 2466 S0006DC 00 5E HEX 00,5E 2467 S0006DE 00 5E HEX 00,5E 2468 S0006E0 00 5E HEX 00,5E 2469 S0006E2 00 5E HEX 00,5E 2470 S0006E4 00 5E HEX 00,5E 2471 S0006E6 00 5E HEX 00,5E 2472 S0006E8 00 5E HEX 00,5E 2473 S0006EA 00 5E HEX 00,5E 2474 S0006EC 00 5C HEX 00,5C 2475 ; 2476 0006EE BG3KAG11 EQU $ 2477 S0006EE 5E HEX 5E 2478 S0006EF 00 7C HEX 00,7C 2479 S0006F1 00 7E HEX 00,7E 2480 S0006F3 00 7E HEX 00,7E 2481 S0006F5 00 7E HEX 00,7E 2482 S0006F7 00 7E HEX 00,7E 2483 S0006F9 00 7E HEX 00,7E 2484 S0006FB 00 7E HEX 00,7E 2485 S0006FD 00 7E HEX 00,7E 2486 S0006FF 00 7E HEX 00,7E 2487 S000701 00 7E HEX 00,7E 2488 S000703 00 7E HEX 00,7E 2489 S000705 00 7E HEX 00,7E 2490 S000707 00 7E HEX 00,7E 2491 S000709 00 7E HEX 00,7E 2492 S00070B 00 7E HEX 00,7E 2493 S00070D 00 7E HEX 00,7E 2494 S00070F 00 7E HEX 00,7E 2495 S000711 00 7E HEX 00,7E 2496 S000713 00 7E HEX 00,7E 2497 S000715 00 7E HEX 00,7E 2498 S000717 00 7E HEX 00,7E 2499 S000719 00 7E HEX 00,7E 2500 S00071B 00 7E HEX 00,7E 2501 S00071D 00 7E HEX 00,7E 2502 S00071F 00 7E HEX 00,7E 2503 S000721 00 7E HEX 00,7E 2504 S000723 00 7E HEX 00,7E 2505 S000725 00 7E HEX 00,7E 2506 S000727 00 7E HEX 00,7E 2507 S000729 00 7E HEX 00,7E 2508 S00072B 00 7E HEX 00,7E 2509 S00072D 00 7E HEX 00,7E 2510 S00072F 00 7E HEX 00,7E 2511 S000731 00 7E HEX 00,7E 2512 S000733 00 7E HEX 00,7E 2513 S000735 00 7E HEX 00,7E 2514 S000737 00 7E HEX 00,7E 2515 S000739 00 7E HEX 00,7E 2516 S00073B 00 7E HEX 00,7E 2517 S00073D 00 7E HEX 00,7E 2518 S00073F 00 7E HEX 00,7E 2519 S000741 00 7E HEX 00,7E 2520 S000743 00 7E HEX 00,7E 2521 S000745 00 7E HEX 00,7E 2522 S000747 00 7E HEX 00,7E 2523 S000749 00 7E HEX 00,7E 2524 S00074B 00 7E HEX 00,7E 2525 S00074D 00 7E HEX 00,7E 2526 S00074F 00 7E HEX 00,7E 2527 S000751 00 7E HEX 00,7E 2528 S000753 00 7E HEX 00,7E 2529 S000755 00 7E HEX 00,7E 2530 S000757 00 7E HEX 00,7E 2531 S000759 00 7E HEX 00,7E 2532 S00075B 00 7E HEX 00,7E 2533 S00075D 00 7E HEX 00,7E 2534 S00075F 00 7E HEX 00,7E 2535 S000761 00 7E HEX 00,7E 2536 S000763 00 7E HEX 00,7E 2537 S000765 00 7E HEX 00,7E 2538 S000767 00 7E HEX 00,7E 2539 S000769 00 7E HEX 00,7E 2540 S00076B 00 7E HEX 00,7E 2541 S00076D 00 7E HEX 00,7E 2542 S00076F 00 7E HEX 00,7E 2543 S000771 00 7E HEX 00,7E 2544 S000773 00 7E HEX 00,7E 2545 S000775 00 7E HEX 00,7E 2546 S000777 00 7E HEX 00,7E 2547 S000779 00 7E HEX 00,7E 2548 S00077B 00 7E HEX 00,7E 2549 S00077D 00 7E HEX 00,7E 2550 S00077F 00 7E HEX 00,7E 2551 S000781 00 7E HEX 00,7E 2552 S000783 00 7E HEX 00,7E 2553 S000785 00 7E HEX 00,7E 2554 S000787 00 7E HEX 00,7E 2555 S000789 00 7E HEX 00,7E 2556 S00078B 00 7E HEX 00,7E 2557 S00078D 00 7E HEX 00,7E 2558 S00078F 00 7E HEX 00,7E 2559 S000791 00 7E HEX 00,7E 2560 S000793 00 7E HEX 00,7E 2561 S000795 00 7E HEX 00,7E 2562 S000797 00 7E HEX 00,7E 2563 S000799 00 7E HEX 00,7E 2564 S00079B 00 7E HEX 00,7E 2565 S00079D 00 7E HEX 00,7E 2566 S00079F 00 7E HEX 00,7E 2567 S0007A1 00 7E HEX 00,7E 2568 S0007A3 00 7E HEX 00,7E 2569 S0007A5 00 7E HEX 00,7E 2570 S0007A7 00 7E HEX 00,7E 2571 S0007A9 00 7C HEX 00,7C 2572 ; 2573 ; 2574 ;************************************************************************ 2575 ;* バウンドＢｒｏｓ．ＢＧ２セット * 2576 ;* アトミック・プチプチＢＧ２セット * 2577 ;* in : * 2578 ;* (R1) <-- パンツＹ位置 * 2579 ;* (R2) <-- 中心表示Ｘ座標 * 2580 ;* (R3) <-- ” Ｙ ” * 2581 ;* (R5) <-- Ｘ倍率 * 2582 ;* (R7) <-- Ｙ ” * 2583 ;* (CWK9) <-- 敵インデックス * 2584 ;* (CWKA) <-- プレイヤー表示Ｘ座標 * 2585 ;* (CWKB) <-- " Y " * 2586 ;* (CWKC) <-- ” お座りフラグ * 2587 ;* * 2588 ;* out : (CWKD) <-- プレイヤーとの衝突フラグ * 2589 ;* [ 00011111B ] * 2590 ;* +++++- foot * 2591 ;* |||+-- down right * 2592 ;* ||+--- " left * 2593 ;* |+---- up right * 2594 ;* +----- " left * 2595 ;* (CWKE) <-- player foot hosei dot * 2596 ;* (CWKF) <-- " cross saka flag * 2597 ;* (CWK10) <- hed BG check Y pos * 2598 ;* 0,5,4,9:not saka * 2599 ;* 1,6 :67.5 * 2600 ;* 2,7 :45 * 2601 ;* 3,8 :22.5 * 2602 ;************************************************************************ 2603 ; 2604 0007AB BPUCH_SET EQU $ 2605 S0007AB F0 086F' IWT R0,#BPUCH_BGP ;(CWK10) <-- ＢＧチェックポイントデータポインター 2606 S0007AE 05 04' BRA B_BROS_SET_0000 2607 S0007B0 01 NOP 2608 ; 2609 0007B1 B_BROS_SET EQU $ 2610 S0007B1 F0 087B' IWT R0,#BBROS_BGP ;(CWK10) <-- ＢＧチェックポイントデータポインター 2611 B_BROS_SET_0000 2612 S0007B4 3E A0 10 SMS R0,CWORK10 2613 ; 2614 S0007B7 3E A2 00 SMS R2,CWORK0 ;(CWK0) <-- 中心表示Ｘ座標 2615 S0007BA 3E A2 12 SMS R2,CWORK12 ;(CWK12) <-- 中心表示Ｘ座標 2616 S0007BD 3E A3 01 SMS R3,CWORK1 ;(CWK1) <-- ” Ｙ ” 2617 S0007C0 3E A5 02 SMS R5,CWORK2 ;(CWK2) <-- Ｘ倍率 2618 S0007C3 3E A7 03 SMS R7,CWORK3 ;(CWK3) <-- Ｙ ” 2619 ; 2620 S0007C6 A0 00' IBT R0,#BANK BBROS_DATA ;バウンドＢｒｏｓ．形状データアドレス（Ｂ）セット 2621 S0007C8 3F DF ROMB 2622 S0007CA FE 0887' IWT R14,#BBROS_DATA ;(R14) <-- バウンドＢｒｏｓ．形状データアドレス（Ｌ，Ｈ）セット 2623 ; 2624 S0007CD EF GETB 2625 S0007CE 1A TO R10 ;(R10) <-- 形状高さ×１００Ｈ 2626 S0007CF 4D SWAP 2627 ; 2628 S0007D0 23 WITH R3 ;(R3) <-- 中心表示Ｙ座標補正 2629 S0007D1 3E 68 SUB #8 2630 ; vvv******* warn :value out of range 2631 S0007D3 F0 2200 IWT R0,#DIVBUF 2632 S0007D6 57 ADD R7 2633 S0007D7 57 ADD R7 2634 S0007D8 18 TO R8 ;(R8) <-- Ｙ加算値 2635 S0007D9 40 LDW (R0) 2636 ; 2637 ;;;; IWT R9,#0B2H-1 ;(R9) <-- Ｈ−ＤＭＡバッファセット数 2638 S0007DA F9 00D1 IWT R9,#0D2H-1 ;(R9) <-- Ｈ−ＤＭＡバッファセット数 2639 ; 2640 S0007DD 02 CACHE 2641 ; 2642 S0007DE A0 60 IBT R0,#060H 2643 S0007E0 52 ADD R2 2644 S0007E1 FB 01C0 IWT R11,#100H+(60H+60H) 2645 S0007E4 6B SUB R11 2646 S0007E5 0C 07' BCC B_BROS_SET_0010 ;表示？ ( yes:B_BROS_SET_0010 ) 2647 S0007E7 01 NOP 2648 ; 2649 ;-------------- 表示エリアオーバー！！ ---------------------------------- 2650 S0007E8 A2 80 IBT R2,#80H ;[ IWT R2,#0FF80H ] 2651 mDJMP B_BROS_SET_0150 2651+ S0007EA FF 085B' IWT R15, #B_BROS_SET_0150 2651+ S0007ED 01 NOP 2652 ; 2653 ;-------------- ＶスクロールカウンターＨ−ＤＭＡバッファセット ---------- 2654 B_BROS_SET_0010 2655 ;;;; IWT R11,#HDMABF+(0B2H-1)*2 ;(R11) <-- ＶスクロールＨ−ＤＭＡバッファポインター vvv******* warn :value out of range 2656 S0007EE FB 3514 IWT R11,#HDMABF+(0D2H-1)*2 ;(R11) <-- ＶスクロールＨ−ＤＭＡバッファポインター 2657 ;;;; IWT R13,#0B2H-2 2658 S0007F1 FD 00D0 IWT R13,#0D2H-2 2659 S0007F4 BD FROM R13 2660 S0007F5 63 SUB R3 2661 S0007F6 0A 14' BPL B_BROS_SET_0020 ;中心Ｙ以下バッファクリアー？ ( yes:B_BROS_SET_0020 ) 2662 S0007F8 16 TO R6 2663 ; 2664 ;-------------- 中心Ｙ以下バッファクリアー無し ------------------ 2665 S0007F9 4F NOT 2666 S0007FA D6 INC R6 2667 S0007FB B8 FROM R8 2668 S0007FC 3D 9F LMULT 2669 S0007FE 3F 50 ADC #0 2670 S000800 09 03' BEQ B_BROS_SET_0014 2671 S000802 01 NOP 2672 ; 2673 S000803 2A 14 MOVE R4,R10 2674 B_BROS_SET_0014 2675 S000805 2A WITH R10 2676 S000806 64 SUB R4 2677 S000807 29 1C MOVE R12,R9 2678 S000809 05 1F' BRA B_BROS_SET_0050 2679 S00080B DE INC R14 ;[ next program ] 2680 ; 2681 ;-------------- 中心Ｙ以下バッファクリアー ---------------------- 2682 B_BROS_SET_0020 2683 S00080C 20 1C MOVE R12,R0 ;(R12) <-- 中心Ｙ以下バッファクリアー数 2684 S00080E BD FROM R13 2685 S00080F 6C SUB R12 2686 S000810 0A 04' BPL B_BROS_SET_0030 ;全バッファクリアー？ ( no:B_BROS_SET_0030 ) 2687 S000812 DC INC R12 2688 ; 2689 S000813 2D 1C MOVE R12,R13 2690 S000815 DC INC R12 2691 B_BROS_SET_0030 2692 S000816 29 WITH R9 2693 S000817 6C SUB R12 2694 ;;;; IWT R0,#-0B2H-8 2695 S000818 F0 FF26 IWT R0,#-0D2H-8 2696 S00081B 2F 1D MOVE R13,R15 2697 B_BROS_SET_0040 2698 S00081D 3B STW (R11) 2699 S00081E EB DEC R11 2700 S00081F EB DEC R11 2701 S000820 3C LOOP 2702 S000821 D0 INC R0 2703 ; 2704 S000822 2C B9 MOVES R12,R9 2705 S000824 0A 04' BPL B_BROS_SET_0050 ;全バッファクリアー？ ( no:B_BROS_SET_0050 ) 2706 S000826 DE INC R14 ;[ next program ] 2707 ; 2708 mDJMP_X B_BROS_SET_0150 2708+ S000827 FF 085B' IWT R15, #B_BROS_SET_0150 2709 ; 2710 ;-------------- 形状データセット -------------------------------- 2711 B_BROS_SET_0050 2712 ;;;; INC R14 2713 S00082A 25 16 MOVE R6,R5 ;(R6) <-- Ｘ倍率 2714 S00082C 2E 17 MOVE R7,R14 ;(R7) <-- バウンドＢｒｏｓ．形状データアドレス 2715 ; 2716 S00082E DC INC R12 2717 S00082F 2F 1D MOVE R13,R15 2718 B_BROS_SET_0060 2719 S000831 2A WITH R10 2720 S000832 68 SUB R8 2721 S000833 0B 1B' BMI B_BROS_SET_0100 ;形状データセット終了？ ( yes:B_BROS_SET_0100 ) 2722 S000835 BA FROM R10 2723 ; 2724 S000836 C0 HIB 2725 S000837 1E TO R14 2726 S000838 57 ADD R7 2727 ; 2728 S000839 F5 0100 IWT R5,#0100H 2729 S00083C 61 SUB R1 2730 S00083D 0D 03' BCS B_BROS_SET_0070 ;パンツエリア？ ( yes:B_BROS_SET_0070 ) 2731 S00083F 01 NOP 2732 ; 2733 S000840 25 WITH R5 ;[ IWT R5,#0200H ] 2734 S000841 55 ADD R5 2735 B_BROS_SET_0070 2736 S000842 EF GETB 2737 S000843 4D SWAP 2738 S000844 9F FMULT 2739 S000845 6C SUB R12 2740 S000846 3E 68 SUB #8 2741 S000848 55 ADD R5 2742 S000849 3B STW (R11) 2743 S00084A EB DEC R11 2744 S00084B 3C LOOP 2745 S00084C EB DEC R11 2746 ; 2747 mDJMP_X B_BROS_SET_0150 2747+ S00084D FF 085B' IWT R15, #B_BROS_SET_0150 2748 ; 2749 ;-------------- 形状データ以上バッファクリアー ------------------ 2750 B_BROS_SET_0100 2751 S000850 BC FROM R12 2752 S000851 4F NOT 2753 S000852 3E 67 SUB #8-1 2754 S000854 2F 1D MOVE R13,R15 2755 B_BROS_SET_0110 2756 S000856 3B STW (R11) 2757 S000857 EB DEC R11 2758 S000858 EB DEC R11 2759 S000859 3C LOOP 2760 S00085A D0 INC R0 2761 ; 2762 ;-------------- ＨスクロールカウンターＨ−ＤＭＡバッファセット ---------- 2763 B_BROS_SET_0150 2764 S00085B F0 0080 IWT R0,#80H 2765 S00085E 62 SUB R2 ;(R0) <-- Ｈスクロールカウンター 2766 ; vvv******* warn :value out of range 2767 S00085F FB 3516 IWT R11,#HDMABF1 ;(R11) <-- ＨスクロールＨ−ＤＭＡバッファポインター 2768 ;;;; IWT R12,#0B2H 2769 S000862 FC 00D2 IWT R12,#0D2H 2770 S000865 2F 1D MOVE R13,R15 2771 B_BROS_SET_0160 2772 S000867 3B STW (R11) 2773 S000868 DB INC R11 2774 S000869 3C LOOP 2775 S00086A DB INC R11 2776 ; 2777 ;-------------- 衝突チェック -------------------------------------------- 2778 mDJMP BG3_CROSS_CK 2778+ S00086B FF 01C7' IWT R15, #BG3_CROSS_CK 2778+ S00086E 01 NOP 2779 ; 2780 ;************************************************************************ 2781 ;* アトミック・プチプチＢＧチェックポイントデータ * 2782 ;************************************************************************ 2783 BPUCH_BGP 2784 S00086F C1 C0 HEX C1,C0 ;[ up left ] 2785 S000871 3F C0 HEX 3F,C0 ;[ up right ] 2786 S000873 D6 F0 HEX D6,F0 ;[ low left ] 2787 S000875 2A F0 HEX 2A,F0 ;[ low right ] 2788 S000877 00 81 HEX 00,81 ;[ hed ] 2789 S000879 00 0E HEX 00,0E ;[ foot ] 2790 ; 2791 ;************************************************************************ 2792 ;* バウンドＢｒｏｓ．ＢＧチェックポイントデータ * 2793 ;************************************************************************ 2794 BBROS_BGP 2795 S00087B C1 C0 HEX C1,C0 ;[ up left ] 2796 S00087D 3F C0 HEX 3F,C0 ;[ up right ] 2797 S00087F D6 F0 HEX D6,F0 ;[ low left ] 2798 S000881 2A F0 HEX 2A,F0 ;[ low right ] 2799 S000883 00 81 HEX 00,81 ;[ hed ] 2800 S000885 00 0A HEX 00,0A ;[ foot ] 2801 ; 2802 ;************************************************************************ 2803 ;* バウンドＢｒｏｓ．形状データ * 2804 ;************************************************************************ 2805 BBROS_DATA 2806 S000887 7F HEX 7F ;形状高さ 2807 S000888 00 17 20 27 2D HEX 00,17,20,27,2D,32,36,3A S00088D 32 36 3A 2808 S000890 3E 41 45 48 4B HEX 3E,41,45,48,4B,4D,50,52 S000895 4D 50 52 2809 S000898 55 57 59 5B 5D HEX 55,57,59,5B,5D,5F,60,62 S00089D 5F 60 62 2810 S0008A0 64 65 67 68 6A HEX 64,65,67,68,6A,6B,6C,6D S0008A5 6B 6C 6D 2811 S0008A8 6F 70 71 72 73 HEX 6F,70,71,72,73,74,75,75 S0008AD 74 75 75 2812 S0008B0 76 77 78 78 79 HEX 76,77,78,78,79,7A,7A,7B S0008B5 7A 7A 7B 2813 S0008B8 7B 7C 7C 7D 7D HEX 7B,7C,7C,7D,7D,7D,7E,7E S0008BD 7D 7E 7E 2814 S0008C0 7E 7E 7F 7F 7F HEX 7E,7E,7F,7F,7F,7F,7F,7F S0008C5 7F 7F 7F 2815 S0008C8 7F 7F 7F 7F 7F HEX 7F,7F,7F,7F,7F,7E,7E,7E S0008CD 7E 7E 7E 2816 S0008D0 7E 7D 7D 7D 7C HEX 7E,7D,7D,7D,7C,7C,7B,7B S0008D5 7C 7B 7B 2817 S0008D8 7A 7A 79 78 78 HEX 7A,7A,79,78,78,77,76,75 S0008DD 77 76 75 2818 S0008E0 75 74 73 72 71 HEX 75,74,73,72,71,70,6F,6D S0008E5 70 6F 6D 2819 S0008E8 6C 6B 6A 68 67 HEX 6C,6B,6A,68,67,65,64,62 S0008ED 65 64 62 2820 S0008F0 60 5F 5D 5B 59 HEX 60,5F,5D,5B,59,57,55,52 S0008F5 57 55 52 2821 S0008F8 50 4D 4B 48 45 HEX 50,4D,4B,48,45,41,3E,3A S0008FD 41 3E 3A 2822 S000900 36 32 2D 27 20 HEX 36,32,2D,27,20,17,00 S000905 17 00 2823 ; 2824 ;************************************************************************ 2825 ;* ＢＧ３敵内側衝突チェック * 2826 ;************************************************************************ 2827 000907 XBG3_CROSS_CK EQU $ 2828 ; 2829 ;-------------- VS player cross check ----------------------------------- 2830 ;;;; mJSR_X XBG3PCROS ;[ return: (R5) <-- 0B2H ] 2831 mJSR_X XBG3PCROS ;[ return: (R5) <-- 0D2H ] 2831+ S000907 94 LINK #4 2831+ S000908 FF 0995' IWT R15, #XBG3PCROS 2832 S00090B 02 CACHE 2833 ; 2834 ;-------------- VS enemy cross check ------------------------------------ 2835 S00090C F1 0F00 IWT R1,#CENMODE ;(R1) <-- enemy mode pointer 2836 S00090F F2 1D38 IWT R2,#CENSHOT ;(R2) <-- " shot flag pointer 2837 S000912 F3 1CD6 IWT R3,#CECENTX ;(R3) <-- " cross check center pos pointer 2838 S000915 F0 1D37 IWT R0,#CENCRPT 2839 S000918 3D A4 09 LMS R4,CWORK9 2840 S00091B 54 ADD R4 2841 S00091C 3D 40 LDB (R0) 2842 S00091E 50 ADD R0 2843 S00091F 14 TO R4 ;(R4) <-- slime cross check start point 2844 S000920 50 ADD R0 2845 S000921 3D FA 0094 LM R10,CESCCH1 ;(R10) <-- scroll counter_H 2846 S000925 AC 18 IBT R12,#CENNO ;(R12) <-- loop no 2847 S000927 3D F0 009C LM R0,CESCCV1 2848 S00092B 1B TO R11 ;(R11) <-- " _V 2849 S00092C 3E 58 ADD #8 2850 ; 2851 S00092E 02 CACHE 2852 ; 2853 S00092F FD 0933' IWT R13,#XBG3CRCK_0010+1 2854 XBG3CRCK_0010 2855 S000932 24 WITH R4 2856 S000933 3E 64 SUB #4 2857 S000935 0A 04' BPL XBG3CRCK_0020 ;cross check index over ? ( no:XBG3CRCK_0020 ) 2858 S000937 B1 FROM R1 2859 ; 2860 S000938 A4 5C IBT R4,#(CENNO-1)*4 2861 S00093A B1 FROM R1 2862 XBG3CRCK_0020 2863 S00093B 54 ADD R4 2864 S00093C 3D 40 LDB (R0) 2865 S00093E 3E 6E SUB #CEFAIL 2866 S000940 0C 33' BCC XBG3CRCK_0040 ;cross check ok mode ? ( no:XBG3CRCK_0040 ) 2867 S000942 B2 FROM R2 2868 ; 2869 S000943 54 ADD R4 2870 S000944 40 LDW (R0) 2871 S000945 3E 60 SUB #0 2872 S000947 09 2C' BEQ XBG3CRCK_0040 ;cross check ok ? ( no:XBG3CRCK_0040 ) 2873 S000949 B3 FROM R3 2874 ; 2875 S00094A 54 ADD R4 2876 S00094B 1E TO R14 2877 S00094C 40 LDW (R0) 2878 S00094D 2E WITH R14 ;(R14) <-- display cross check center X pos 2879 S00094E 6A SUB R10 2880 S00094F D0 INC R0 2881 S000950 D0 INC R0 2882 S000951 40 LDW (R0) 2883 S000952 6B SUB R11 2884 S000953 65 SUB R5 2885 S000954 0D 28' BCS XBG3CRCK_0060 ;Y pos over ? ( yes:XBG3CRCK_0060 ) 2886 S000956 55 ADD R5 2887 ; 2888 S000957 20 19 MOVE R9,R0 ;(R9) <-- display cross check center Y pos 2889 S000959 50 ADD R0 ;x2 2890 S00095A 56 ADD R6 2891 S00095B 40 LDW (R0) 2892 S00095C 59 ADD R9 2893 S00095D 3E 59 ADD #8+1 2894 S00095F 18 TO R8 ;(R8) <-- now Y pos X wide 2895 S000960 9E LOB 2896 ; 2897 S000961 B7 FROM R7 2898 S000962 59 ADD R9 2899 S000963 59 ADD R9 2900 S000964 19 TO R9 2901 S000965 40 LDW (R0) 2902 S000966 F0 0080 IWT R0,#0080H 2903 S000969 69 SUB R9 2904 S00096A 6E SUB R14 2905 S00096B 0A 03' BPL XBG3CRCK_0030 2906 S00096D 01 NOP 2907 ; 2908 S00096E 4F NOT 2909 S00096F D0 INC R0 2910 XBG3CRCK_0030 2911 S000970 50 ADD R0 ;x2 2912 S000971 68 SUB R8 2913 S000972 0D 0A' BCS XBG3CRCK_0060 ;cross ? ( yes:XBG3CRCK_0060 ) 2914 S000974 01 NOP 2915 ; 2916 XBG3CRCK_0040 2917 S000975 3C LOOP 2918 S000976 24 WITH R4 ;[ dummy ] 2919 ; 2920 ;-------------- not cross !! ------------------------------------ 2921 XBG3CRCK_0050 2922 S000977 3D A1 09 LMS R1,CWORK9 2923 S00097A 14 TO R4 ;[ IBT R4,#0 ] 2924 S00097B 05 0F' BRA XBG3CRCK_0070 2925 S00097D 60 SUB R0 2926 ; 2927 ;-------------- cross !! ---------------------------------------- 2928 XBG3CRCK_0060 2929 S00097E 3D A1 09 LMS R1,CWORK9 2930 S000981 F0 1D37 IWT R0,#CENCRPT 2931 S000984 12 TO R2 2932 S000985 51 ADD R1 2933 S000986 B4 FROM R4 2934 S000987 03 LSR 2935 S000988 03 LSR 2936 S000989 3D 32 STB (R2) ;slime cross check next start point set 2937 S00098B D4 INC R4 2938 XBG3CRCK_0070 2939 S00098C F0 1D36 IWT R0,#CECRSFG 2940 S00098F 51 ADD R1 2941 S000990 B4 FROM R4 2942 S000991 3D 30 STB (R0) ;cross enemy index set 2943 ; 2944 S000993 00 STOP 2945 S000994 01 NOP 2946 ; 2947 ;------------------------------------------------------------------------ 2948 ;- BG3 player cross check - 2949 ;- in : (R0) <-- size AND data - 2950 ;- (CWKA) <-- player display X pos - 2951 ;- (CWKB) <-- " Y " - 2952 ;- (CWKC) <-- " sit down flag - 2953 ;- - 2954 ;- out : (CWKD) <-- " cross flag - 2955 ;- [ 00011111B ] - 2956 ;- +++++- foot - 2957 ;- |||+-- down right - 2958 ;- ||+--- " left - 2959 ;- |+---- up right - 2960 ;- +----- " left - 2961 ;- (CWKE) <-- player foot hosei dot - 2962 ;- (CWKF) <-- " cross saka flag - 2963 ;- 0,5,4,9:not saka - 2964 ;- 1,6 :67.5 - 2965 ;- 2,7 :45 - 2966 ;- 3,8 :22.5 - 2967 ;------------------------------------------------------------------------ 2968 000995 XBG3PCROS EQU $ 2969 S000995 A0 FF IBT R0,#0FFH ;(R0) <-- size AND data 2970 ; 2971 000997 XBG3PCROS2 EQU $ 2972 S000997 3E AB 30 SMS R11,RTS0 ;return address save 2973 S00099A 20 1B MOVE R11,R0 ;(R11) <-- size AND data 2974 ; 2975 S00099C A0 00' IBT R0,#BANK SLIM_PLC 2976 S00099E 3F DF ROMB 2977 S0009A0 FE 0427' IWT R14,#SLIM_PLC ;(R14) <-- player cross check point data pointer 2978 S0009A3 3D A0 0C LMS R0,CWORKC 2979 S0009A6 3E 60 SUB #0 2980 S0009A8 09 03' BEQ XB3PCR000 ;sit down player ? ( no:XB3PCR000 ) 2981 S0009AA 2E WITH R14 2982 ; 2983 S0009AB 3E 5A ADD #5*2 2984 XB3PCR000 2985 S0009AD 3D A1 0A LMS R1,CWORKA ;(R1) <-- player display X pos 2986 S0009B0 3D A0 0B LMS R0,CWORKB ;(R0) <-- " Y " 2987 XB3PCR010 2988 S0009B3 12 TO R2 ;(R2) <-- to buffer player display Y pos 2989 S0009B4 3E 68 SUB #8 2990 ; 2991 ;;;; IWT R5,#0B2H ;(R5) <-- max Y pos 2992 S0009B6 F5 00D2 IWT R5,#0D2H ;(R5) <-- max Y pos vvv******* warn :value out of range 2993 S0009B9 F6 3372 IWT R6,#HDMABF ;(R6) <-- X wide H-DMA buffer address vvv******* warn :value out of range 2994 S0009BC F7 3516 IWT R7,#HDMABF1 ;(R7) <-- scroll counter_H H-DMA buffer address 2995 ; 2996 S0009BF F3 0080 IWT R3,#080H ;(R3) <-- scroll counter_H H-DMA data check data 2997 S0009C2 AA 00 IBT R10,#00 ;(R10) <-- cross point flag 2998 ; 2999 S0009C4 AC 05 IBT R12,#5 3000 S0009C6 FD 09CA' IWT R13,#XB3PCR020+1 3001 XB3PCR020 3002 S0009C9 2A WITH R10 3003 S0009CA 5A ADD R10 ;[ ASL ] cross point flag pos change 3004 ; 3005 S0009CB 3F EF GETBS 3006 S0009CD DE INC R14 3007 S0009CE 14 TO R4 ;(R4) <-- check point dispaly X pos 3008 S0009CF 51 ADD R1 3009 ; 3010 S0009D0 3F EF GETBS 3011 S0009D2 DE INC R14 3012 S0009D3 52 ADD R2 3013 S0009D4 20 19 MOVE R9,R0 ;(R9) <-- check point dispaly Y pos 3014 S0009D6 65 SUB R5 3015 S0009D7 0D 1A' BCS XB3PCR032 ;Y pos over ? ( yes:XB3PCR032 ) 3016 S0009D9 55 ADD R5 3017 ; 3018 S0009DA 50 ADD R0 3019 S0009DB 56 ADD R6 3020 S0009DC 40 LDW (R0) 3021 S0009DD 59 ADD R9 3022 S0009DE 3E 59 ADD #1+8 3023 S0009E0 18 TO R8 ;(R8) <-- now Y pos X wide 3024 S0009E1 7B AND R11 3025 ; 3026 S0009E2 B7 FROM R7 3027 S0009E3 59 ADD R9 3028 S0009E4 59 ADD R9 3029 S0009E5 40 LDW (R0) 3030 S0009E6 B3 FROM R3 3031 S0009E7 60 SUB R0 3032 S0009E8 64 SUB R4 3033 S0009E9 0A 03' BPL XB3PCR030 3034 S0009EB 01 NOP 3035 ; 3036 S0009EC 4F NOT 3037 S0009ED D0 INC R0 3038 XB3PCR030 3039 S0009EE 50 ADD R0 ;x2 3040 S0009EF 68 SUB R8 3041 S0009F0 0C 02' BCC XB3PCR040 ;cross ? ( no:XB3PCR040 ) 3042 S0009F2 01 NOP 3043 ; 3044 ;-------------- cross !! -------------------------------- 3045 XB3PCR032 3046 S0009F3 DA INC R10 ;cross point flag set !! 3047 XB3PCR040 3048 S0009F4 3C LOOP 3049 S0009F5 2A WITH R10 ;[ dummy ] 3050 ; 3051 S0009F6 3E AA 0A SMS R10,CWORKA ;cross point flag set 3052 ; 3053 ;-------------- player foot pos hosei dot check ----------------- 3054 S0009F9 BA FROM R10 3055 S0009FA 03 LSR 3056 S0009FB 0C 57' BCC XB3PCR110 ;foot cross ? ( no:XB3PCR110 ) 3057 S0009FD 60 SUB R0 ;[ IBT R0,#00 ] 3058 ; 3059 S0009FE 20 11 MOVE R1,R0 ;(R1) <-- player hosei dot 3060 XB3PCR050 3061 S000A00 E9 DEC R9 3062 S000A01 0B 28' BMI XB3PCR070 ;Y pos over ? ( yes:XB3PCR070 ) 3063 S000A03 B1 FROM R1 3064 ; 3065 S000A04 3E 5A ADD #0AH 3066 S000A06 0B 23' BMI XB3PCR070 ;hosei dot over ? ( yes:XB3PCR070 ) 3067 S000A08 B9 FROM R9 3068 ; 3069 S000A09 65 SUB R5 3070 S000A0A 0C 04' BCC XB3PCR052 3071 S000A0C 55 ADD R5 3072 ; 3073 S000A0D 05 F1' BRA XB3PCR050 3074 S000A0F E1 DEC R1 3075 ; 3076 XB3PCR052 3077 S000A10 50 ADD R0 3078 S000A11 56 ADD R6 3079 S000A12 40 LDW (R0) 3080 S000A13 59 ADD R9 3081 S000A14 3E 59 ADD #1+8 3082 S000A16 18 TO R8 ;(R8) <-- now Y pos X wide 3083 S000A17 7B AND R11 3084 ; 3085 S000A18 B7 FROM R7 3086 S000A19 59 ADD R9 3087 S000A1A 59 ADD R9 3088 S000A1B 40 LDW (R0) 3089 S000A1C B3 FROM R3 3090 S000A1D 60 SUB R0 3091 S000A1E 64 SUB R4 3092 S000A1F 20 12 MOVE R2,R0 ;(R2) <-- cross muki 3093 S000A21 0A 03' BPL XB3PCR060 3094 S000A23 01 NOP 3095 ; 3096 S000A24 4F NOT 3097 S000A25 D0 INC R0 3098 XB3PCR060 3099 S000A26 50 ADD R0 ;x2 3100 S000A27 68 SUB R8 3101 S000A28 0D D6' BCS XB3PCR050 ;cross ? ( yes:XB3PCR050 ) 3102 S000A2A E1 DEC R1 3103 ; 3104 XB3PCR070 3105 S000A2B 3E A1 0B SMS R1,CWORKB ;foot hosei dot 3106 ; 3107 S000A2E B9 FROM R9 3108 S000A2F 3E 52 ADD #2 3109 S000A31 3F 65 CMP R5 3110 S000A33 0D 09' BCS XB3PCR080 ;Y pos over ? ( yes:XB3PCR080 ) 3111 S000A35 B8 FROM R8 3112 ; 3113 S000A36 B0 FROM R0 3114 S000A37 50 ADD R0 3115 S000A38 56 ADD R6 3116 S000A39 40 LDW (R0) 3117 S000A3A 59 ADD R9 3118 S000A3B 3E 59 ADD #1+8 3119 S000A3D 7B AND R11 ;(R0) <-- now Y pos X wide 3120 XB3PCR080 3121 S000A3E 68 SUB R8 3122 S000A3F 03 LSR 3123 S000A40 A3 04 IBT R3,#4 3124 S000A42 3F 63 CMP R3 3125 S000A44 0C 03' BCC XB3PCR090 3126 S000A46 01 NOP 3127 ; 3128 S000A47 23 10 MOVE R0,R3 3129 XB3PCR090 3130 S000A49 22 B2 MOVES R2,R2 3131 S000A4B 0A 03' BPL XB3PCR100 3132 S000A4D 01 NOP 3133 ; 3134 S000A4E 3E 55 ADD #5 3135 XB3PCR100 3136 S000A50 50 ADD R0 ;x2 3137 S000A51 3E A0 0C SMS R0,CWORKC ;saka angle data pointer 3138 ; 3139 XB3PCR110 3140 S000A54 F0 043B' IWT R0,#SLIM_BAC 3141 S000A57 6E SUB R14 3142 S000A58 0C 20' BCC XB3PCR120 ;赤ちゃんチェックした？ ( yes:XB3PCR120 ) 3143 S000A5A 1E TO R14 3144 ; 3145 S000A5B 5E ADD R14 3146 ; 3147 S000A5C 3D A0 0A LMS R0,CWORKA ;プレイヤー情報セット 3148 S000A5F 3E A0 0D SMS R0,CWORKD 3149 S000A62 3D A0 0B LMS R0,CWORKB 3150 S000A65 3E A0 0E SMS R0,CWORKE 3151 S000A68 3D A0 0C LMS R0,CWORKC 3152 S000A6B 3E A0 0F SMS R0,CWORKF 3153 ; 3154 S000A6E 3D F1 1680 LM R1,CENDSXL ;(R1) <-- 赤ちゃん表示Ｘ座標 3155 S000A72 3D F0 1682 LM R0,CENDSYL ;(R0) <-- ” Ｙ ” 3156 mDJMP_X XB3PCR010+1 3156+ S000A76 FF 09B4' IWT R15, #XB3PCR010+1 3157 S000A79 12 TO R2 3158 ; 3159 XB3PCR120 3160 S000A7A 3D AB 30 LMS R11,RTS0 3161 mRTS 3161+ S000A7D 9B JMP R11 3161+ S000A7E 01 NOP 3162 ; 3163 ;------------------------------------------------------------------------ 3164 ;- BG3 enemy cross check - 3165 ;- out : (ENCBFG) <-- ＢＧ３当たりフラグ - 3166 ;- [ 00001111B ] - 3167 ;- ++++- foot - 3168 ;- ||+-- hed - 3169 ;- |+--- right - 3170 ;- +---- left - 3171 ;- (CWKE) <-- enemy foot hosei dot - 3172 ;- (CWKF) <-- " cross saka flag - 3173 ;- 0,5,4,9:not saka - 3174 ;- 1,6 :67.5 - 3175 ;- 2,7 :45 - 3176 ;- 3,8 :22.5 - 3177 ;------------------------------------------------------------------------ 3178 000A7F XBG3ECROS EQU $ 3179 S000A7F A0 00" IBT R0,#BANK ENBGCK_POINT_IN 3180 S000A81 3F DF ROMB 3181 ; 3182 S000A83 AB 00 IBT R11,#00 ;(R11) <-- 敵のインデックス 3183 S000A85 AC 18 IBT R12,#CENNO 3184 ; 3185 S000A87 02 CACHE 3186 ; 3187 S000A88 2F 1D MOVE R13,R15 3188 XBG3ECROS_010 3189 S000A8A AA 00 IBT R10,#00 ;(R10) <-- cross point flag 3190 ; 3191 mLDW0 CENMODE,R11 3191+ S000A8C F0 0F00 IWT R0,#CENMODE 3191+ S000A8F 5B ADD R11 3191+ S000A90 40 LDW (R0) 3192 S000A91 3E 6E SUB #CENOK 3193 S000A93 0C 16' BCC XBG3ECROS_012 ;ＢＧチェックＯＫモード？ ( no:XBG3ECROS_012 ) 3194 S000A95 01 NOP 3195 ; 3196 mLDW0 CENSHOT,R11 3196+ S000A96 F0 1D38 IWT R0,#CENSHOT 3196+ S000A99 5B ADD R11 3196+ S000A9A 40 LDW (R0) 3197 S000A9B 3E 60 SUB #0 3198 S000A9D 08 0C' BNE XBG3ECROS_012 ;ショット中？ ( yes:XBG3ECROS_012 ) 3199 S000A9F 01 NOP 3200 ; 3201 mLDW0 CENMOD1,R11 3201+ S000AA0 F0 0FA2 IWT R0,#CENMOD1 3201+ S000AA3 5B ADD R11 3201+ S000AA4 40 LDW (R0) 3202 S000AA5 A1 1F IBT R1,#01FH 3203 S000AA7 71 AND R1 3204 S000AA8 08 05' BNE XBG3ECROS_014 ;ＢＧチェックする？ ( yes:XBG3ECROS_014 ) 3205 S000AAA 50 ADD R0 3206 ; 3207 XBG3ECROS_012 3208 mDJMP_X XB3ECR200+1 3208+ S000AAB FF 0BB6' IWT R15, #XB3ECR200+1 3209 S000AAE DB INC R11 3210 ; 3211 XBG3ECROS_014 3212 S000AAF A3 04 IBT R3,#4 ;(R3) <-- チェックポイント数（４点） 3213 S000AB1 F2 0002" IWT R2,#ENBGCK_POINT+2 ;[ +2:center cancel !! ] 3214 S000AB4 A1 38 IBT R1,#01CH*2 3215 S000AB6 61 SUB R1 3216 S000AB7 0C 05' BCC XBG3ECROS_016 3217 S000AB9 51 ADD R1 3218 ; 3219 S000ABA A3 01 IBT R3,#1 ;(R3) <-- チェックポイント数（１点） 3220 S000ABC E2 DEC R2 3221 S000ABD E2 DEC R2 3222 XBG3ECROS_016 3223 S000ABE FE FFFF" IWT R14,#ENBGCK_POINT_IN-2+1 3224 S000AC1 1E TO R14 3225 S000AC2 5E ADD R14 3226 S000AC3 EF GETB 3227 S000AC4 50 ADD R0 3228 S000AC5 1E TO R14 3229 S000AC6 52 ADD R2 3230 ; 3231 mLDW R1,CENDSXL,R11 ;(R1) <-- enemy display X pos 3231+ S000AC7 F0 1680 IWT R0,#CENDSXL 3231+ S000ACA 5B ADD R11 3231+ S000ACB 11 TO R1 3231+ S000ACC 40 LDW (R0) 3232 mLDW0 CENDSYL,R11 ;(R0) <-- " Y " 3232+ S000ACD F0 1682 IWT R0,#CENDSYL 3232+ S000AD0 5B ADD R11 3232+ S000AD1 40 LDW (R0) 3233 S000AD2 12 TO R2 ;(R2) <-- to buffer player display Y pos 3234 S000AD3 3E 68 SUB #8 3235 ; 3236 ;;;; IWT R5,#0B2H ;(R5) <-- max Y pos 3237 S000AD5 F5 00D2 IWT R5,#0D2H ;(R5) <-- max Y pos vvv******* warn :value out of range 3238 S000AD8 F6 3372 IWT R6,#HDMABF ;(R6) <-- X wide H-DMA buffer address vvv******* warn :value out of range 3239 S000ADB F7 3516 IWT R7,#HDMABF1 ;(R7) <-- scroll counter_H H-DMA buffer address 3240 ; 3241 S000ADE 3E AC 2C SMS R12,REG12 ;(R12) save 3242 S000AE1 3E AD 2D SMS R13,REG13 ;(R13) save 3243 ; 3244 S000AE4 23 1C MOVE R12,R3 ;(R12) <-- チェックポイント数 3245 S000AE6 F3 0080 IWT R3,#080H ;(R3) <-- scroll counter_H H-DMA data check data 3246 ; 3247 S000AE9 FD 0AED' IWT R13,#XB3ECR020+1 3248 XB3ECR020 3249 S000AEC 2A WITH R10 3250 S000AED 5A ADD R10 ;[ ASL ] cross point flag pos change 3251 ; 3252 S000AEE 3F EF GETBS 3253 S000AF0 DE INC R14 3254 S000AF1 14 TO R4 ;(R4) <-- check point dispaly X pos 3255 S000AF2 51 ADD R1 3256 ; 3257 S000AF3 3F EF GETBS 3258 S000AF5 DE INC R14 3259 S000AF6 52 ADD R2 3260 S000AF7 20 19 MOVE R9,R0 ;(R9) <-- check point dispaly Y pos 3261 S000AF9 65 SUB R5 3262 S000AFA 0D 1A' BCS XB3ECR032 ;Y pos over ? ( yes:XB3ECR032 ) 3263 S000AFC 55 ADD R5 3264 ; 3265 S000AFD 50 ADD R0 3266 S000AFE 56 ADD R6 3267 S000AFF 40 LDW (R0) 3268 S000B00 59 ADD R9 3269 S000B01 3E 59 ADD #1+8 3270 S000B03 18 TO R8 ;(R8) <-- now Y pos X wide 3271 S000B04 9E LOB ;[ AND #00FFH ] 3272 ; 3273 S000B05 B7 FROM R7 3274 S000B06 59 ADD R9 3275 S000B07 59 ADD R9 3276 S000B08 40 LDW (R0) 3277 S000B09 B3 FROM R3 3278 S000B0A 60 SUB R0 3279 S000B0B 64 SUB R4 3280 S000B0C 0A 03' BPL XB3ECR030 3281 S000B0E 01 NOP 3282 ; 3283 S000B0F 4F NOT 3284 S000B10 D0 INC R0 3285 XB3ECR030 3286 S000B11 50 ADD R0 ;x2 3287 S000B12 68 SUB R8 3288 S000B13 0C 02' BCC XB3ECR040 ;cross ? ( no:XB3ECR040 ) 3289 S000B15 01 NOP 3290 ; 3291 ;-------------- cross !! -------------------------------- 3292 XB3ECR032 3293 S000B16 DA INC R10 ;cross point flag set !! 3294 XB3ECR040 3295 S000B17 3C LOOP 3296 S000B18 2A WITH R10 ;[ dummy ] 3297 ; 3298 S000B19 3D AC 2C LMS R12,REG12 ;(R12) load 3299 S000B1C 3D AD 2D LMS R13,REG13 ;(R13) load 3300 ; 3301 ;-------------- enemy foot pos hosei dot check ------------------ 3302 S000B1F BA FROM R10 3303 S000B20 03 LSR 3304 S000B21 0C 44' BCC XB3ECR110 ;foot cross ? ( no:XB3ECR110 ) 3305 S000B23 60 SUB R0 ;[ IBT R0,#00 ] 3306 ; 3307 S000B24 20 11 MOVE R1,R0 ;[ IBT R1,#0 ] (R1) <-- enemy hosei dot 3308 ; 3309 S000B26 BA FROM R10 3310 S000B27 3E 72 AND #0010B 3311 S000B29 09 0A' BEQ XB3ECR050 ;頭当たり？ ( no:XB3ECR050 ) 3312 S000B2B B9 FROM R9 3313 ; 3314 S000B2C 95 SEX 3315 S000B2D 0B 06' BMI XB3ECR050 3316 S000B2F 2A WITH R10 ;足当たりキャンセル 3317 ; 3318 S000B30 3F 71 BIC #0001B 3319 S000B32 05 34' BRA XB3ECR110+1 3320 S000B34 BA FROM R10 3321 ; 3322 XB3ECR050 3323 S000B35 E9 DEC R9 3324 S000B36 0B 28' BMI XB3ECR070 ;Y pos over ? ( yes:XB3ECR070 ) 3325 S000B38 B1 FROM R1 3326 ; 3327 S000B39 3E 5A ADD #0AH 3328 S000B3B 0B 23' BMI XB3ECR070 ;hosei dot over ? ( yes:XB3ECR070 ) 3329 S000B3D B9 FROM R9 3330 ; 3331 S000B3E 65 SUB R5 3332 S000B3F 0C 04' BCC XB3ECR052 3333 S000B41 55 ADD R5 3334 ; 3335 S000B42 05 F1' BRA XB3ECR050 3336 S000B44 E1 DEC R1 3337 ; 3338 XB3ECR052 3339 S000B45 50 ADD R0 3340 S000B46 56 ADD R6 3341 S000B47 40 LDW (R0) 3342 S000B48 59 ADD R9 3343 S000B49 3E 59 ADD #1+8 3344 S000B4B 18 TO R8 ;(R8) <-- now Y pos X wide 3345 S000B4C 9E LOB 3346 ; 3347 S000B4D B7 FROM R7 3348 S000B4E 59 ADD R9 3349 S000B4F 59 ADD R9 3350 S000B50 40 LDW (R0) 3351 S000B51 B3 FROM R3 3352 S000B52 60 SUB R0 3353 S000B53 64 SUB R4 3354 S000B54 20 12 MOVE R2,R0 ;(R2) <-- cross muki 3355 S000B56 0A 03' BPL XB3ECR060 3356 S000B58 01 NOP 3357 ; 3358 S000B59 4F NOT 3359 S000B5A D0 INC R0 3360 XB3ECR060 3361 S000B5B 50 ADD R0 ;x2 3362 S000B5C 68 SUB R8 3363 S000B5D 0D D6' BCS XB3ECR050 ;cross ? ( yes:XB3ECR050 ) 3364 S000B5F E1 DEC R1 3365 ; 3366 XB3ECR070 3367 mLDW0 CENYPSL,R11 ;足補正！！ 3367+ S000B60 F0 1182 IWT R0,#CENYPSL 3367+ S000B63 5B ADD R11 3367+ S000B64 40 LDW (R0) 3368 S000B65 51 ADD R1 3369 S000B66 90 SBK ;[ mSTW R0,CENYPSL,R11 ] 3370 ; 3371 ;;;; DEC R11 3372 ;;;; BPL XB3ECR110 ;赤ちゃん？ ( no:XB3ECR110 ) 3373 ;;;; INC R11 3374 ;;;;; 3375 ;;;; IBT R0,#01H ;リフト”ＯＮ”！！ 3376 ;;;; SM R0,CB_ONLFFG 3377 ;;;;; 3378 XB3ECR110 3379 S000B67 BA FROM R10 3380 S000B68 3E 7C AND #1100B 3381 S000B6A 09 32' BEQ XB3ECR150 ;サイド当たり？ ( no:XB3ECR150 ) 3382 S000B6C B4 FROM R4 3383 ; 3384 ;-------------- サイド当たり ------------------------------------ 3385 S000B6D 95 SEX 3386 S000B6E A4 01 IBT R4,#1 3387 S000B70 0A 03' BPL XB3ECR120 ;左へ移動？ ( yes:XB3ECR120 ) 3388 S000B72 01 NOP 3389 ; 3390 S000B73 A4 FF IBT R4,#-1 3391 XB3ECR120 3392 mLDW0 CENXPSL,R11 3392+ S000B75 F0 10E2 IWT R0,#CENXPSL 3392+ S000B78 5B ADD R11 3392+ S000B79 40 LDW (R0) 3393 S000B7A 54 ADD R4 3394 S000B7B 90 SBK ;[ mSTW R0,CENXPSL,R11 ] 3395 mLDW0 CENXMAX,R11 3395+ S000B7C F0 15E0 IWT R0,#CENXMAX 3395+ S000B7F 5B ADD R11 3395+ S000B80 40 LDW (R0) 3396 S000B81 12 TO R2 3397 S000B82 3D C4 XOR R4 3398 S000B84 0A 04' BPL XB3ECR130 ;Ｘスピード加速値反転？ ( no:XB3ECR130 ) 3399 S000B86 01 NOP 3400 ; 3401 S000B87 4F NOT 3402 S000B88 D0 INC R0 3403 S000B89 90 SBK ;[ mSTW R0,CENXMAX,R11 ] 3404 XB3ECR130 3405 mLDW0 CENXSPD,R11 3405+ S000B8A F0 1220 IWT R0,#CENXSPD 3405+ S000B8D 5B ADD R11 3405+ S000B8E 40 LDW (R0) 3406 S000B8F 12 TO R2 3407 S000B90 3D C4 XOR R4 3408 S000B92 0A 04' BPL XB3ECR140 ;Ｘスピード反転？ ( no:XB3ECR140 ) 3409 S000B94 D4 INC R4 ;[ (R4) <-- 0 or 2 ] 3410 ; 3411 S000B95 4F NOT 3412 S000B96 D0 INC R0 3413 S000B97 90 SBK ;[ mSTW R0,CENXSPD,R11 ] 3414 XB3ECR140 3415 mSTW R4,CENMUKI,R11 ;向きセット 3415+ S000B98 F0 1400 IWT R0,#CENMUKI 3415+ S000B9B 5B ADD R11 3415+ S000B9C B4 FROM R4 3415+ S000B9D 30 STW (R0) 3416 XB3ECR150 3417 S000B9E BA FROM R10 3418 S000B9F 3E 72 AND #0010B 3419 S000BA1 09 12' BEQ XB3ECR200 ;頭当たり？ ( no:XB3ECR200 ) 3420 S000BA3 01 NOP 3421 ; 3422 ;-------------- 頭当たり ---------------------------------------- 3423 mLDW0 CENYSPD,R11 3423+ S000BA4 F0 1222 IWT R0,#CENYSPD 3423+ S000BA7 5B ADD R11 3423+ S000BA8 40 LDW (R0) 3424 S000BA9 3E 60 SUB #0 3425 S000BAB 0A 08' BPL XB3ECR200 3426 S000BAD 12 TO R2 ;[ IBT R2,#0 ] 3427 ; 3428 S000BAE 60 SUB R0 3429 mSTW R2,CENYSPD,R11 3429+ S000BAF F0 1222 IWT R0,#CENYSPD 3429+ S000BB2 5B ADD R11 3429+ S000BB3 B2 FROM R2 3429+ S000BB4 30 STW (R0) 3430 ; 3431 XB3ECR200 3432 S000BB5 DB INC R11 3433 ; 3434 mSTW R10,CENCBFG-1,R11 ;cross point flag set 3434+ S000BB6 F0 185F IWT R0,#CENCBFG-1 3434+ S000BB9 5B ADD R11 3434+ S000BBA BA FROM R10 3434+ S000BBB 30 STW (R0) 3435 ; 3436 S000BBC DB INC R11 3437 S000BBD DB INC R11 3438 S000BBE 3C LOOP 3439 S000BBF DB INC R11 3440 ; 3441 S000BC0 00 STOP 3442 S000BC1 01 NOP 3443 ; 3444 ;------------------------------------------------------------------------ 3445 ;- ゲロゲ〜ロの胃袋ポイント復元セット - 3446 ;- in : - 3447 ;- (R0) <-- 元ポイントデータアドレス - 3448 ;- (R14) <-- ” - 3449 ;------------------------------------------------------------------------ 3450 000BC2 INGER_P_RET EQU $ 3451 S000BC2 3F DF ROMB 3452 S000BC4 2E 1E MOVE R14,R14 3453 ; vvv******* warn :value out of range 3454 S000BC6 F1 49C6 IWT R1,#BSPL_B_POINT ;(R1) <-- 現ポイントデータポインター 3455 S000BC9 1C TO R12 ;(R12) <-- ポイント数 3456 S000BCA 3D 41 LDB (R1) 3457 S000BCC D1 INC R1 3458 ; 3459 S000BCD 02 CACHE 3460 ; 3461 S000BCE 2F 1D MOVE R13,R15 3462 INGER_P_RET_010 3463 S000BD0 3D 41 LDB (R1) 3464 S000BD2 12 TO R2 ;(R2) <-- 現ポイントＸ座標 3465 S000BD3 95 SEX 3466 ; 3467 S000BD4 3F EF GETBS ;(R0) <-- 元ポイントＸ座標 3468 ; 3469 S000BD6 62 SUB R2 3470 S000BD7 09 09' BEQ INGER_P_RET_020 3471 S000BD9 DE INC R14 3472 ; 3473 S000BDA 96 ASR ;1/16 3474 S000BDB 96 ASR ; 3475 S000BDC 96 ASR ; 3476 S000BDD 96 ASR ; 3477 S000BDE 08 02' BNE INGER_P_RET_020 3478 S000BE0 01 NOP 3479 ; 3480 S000BE1 D0 INC R0 ;[ IBT R0,#01H ] 3481 INGER_P_RET_020 3482 S000BE2 52 ADD R2 ;現ポイントＸ座標補正 3483 S000BE3 3D 31 STB (R1) 3484 S000BE5 D1 INC R1 3485 ; 3486 S000BE6 3D 41 LDB (R1) 3487 S000BE8 12 TO R2 ;(R2) <-- 現ポイントＹ座標 3488 S000BE9 95 SEX 3489 ; 3490 S000BEA 3F EF GETBS ;(R0) <-- 元ポイントＹ座標 3491 ; 3492 S000BEC 62 SUB R2 3493 S000BED 09 09' BEQ INGER_P_RET_030 3494 S000BEF DE INC R14 3495 ; 3496 S000BF0 96 ASR ;1/16 3497 S000BF1 96 ASR ; 3498 S000BF2 96 ASR ; 3499 S000BF3 96 ASR ; 3500 S000BF4 08 02' BNE INGER_P_RET_030 3501 S000BF6 01 NOP 3502 ; 3503 S000BF7 D0 INC R0 ;[ IBT R0,#01H ] 3504 INGER_P_RET_030 3505 S000BF8 52 ADD R2 ;現ポイントＹ座標補正 3506 S000BF9 3D 31 STB (R1) 3507 ; 3508 S000BFB 3C LOOP 3509 S000BFC D1 INC R1 3510 ; 3511 S000BFD 00 STOP 3512 S000BFE 01 NOP 3513 ; 3514 ;------------------------------------------------------------------------ 3515 ;- ゲロゲ〜ロの胃袋ポイント移動セット - 3516 ;- in : - 3517 ;- (R1) <-- チェックＸ座標 - 3518 ;- (R2) <-- ” Ｙ ” - 3519 ;- (CWK2) <-- ” ＭＡＸ半径 - 3520 ;------------------------------------------------------------------------ 3521 000BFF INGER_P_MOV EQU $ 3522 S000BFF 3E A1 00 SMS R1,CWORK0 ;(CWK0) <-- チェックＸ座標 3523 S000C02 3E A2 01 SMS R2,CWORK1 ;(CWK1) <-- " Ｙ ” 3524 ; 3525 ;-------------- チェックポイント検索 ------------------------------------ 3526 mJSR M_RAD_GET_1 3526+ S000C05 94 LINK #4 3526+ S000C06 FF 0D33' IWT R15, #M_RAD_GET_1 3526+ S000C09 01 NOP 3527 ; 3528 S000C0A 21 13 MOVE R3,R1 ;(R3) <-- 角度 3529 ; 3530 S000C0C 3D A4 02 LMS R4,CWORK2 ;(R4) <-- チェックＭＡＸ半径 3531 S000C0F B4 FROM R4 3532 S000C10 15 TO R5 ;(R5) <-- チェックＭＡＸ半径＾２ 3533 S000C11 84 MULT R4 3534 S000C12 3D A1 00 LMS R1,CWORK0 ;(R1) <-- チェックＸ座標 3535 S000C15 B1 FROM R1 3536 S000C16 16 TO R6 3537 S000C17 81 MULT R1 3538 S000C18 3D A2 01 LMS R2,CWORK1 ;(R2) <-- チェックＹ座標 3539 S000C1B B2 FROM R2 3540 S000C1C 82 MULT R2 3541 S000C1D 56 ADD R6 3542 S000C1E 65 SUB R5 3543 S000C1F 0C 26' BCC INGER_P_MOV_010 ;チェックＭＡＸ半径オーバー？ ( no:INGER_P_MOV_010 ) 3544 S000C21 01 NOP 3545 ; 3546 S000C22 A0 00" IBT R0,#BANK LCOS 3547 S000C24 3F DF ROMB 3548 ; 3549 S000C26 F0 0000" IWT R0,#LCOS 3550 S000C29 1E TO R14 3551 S000C2A 53 ADD R3 3552 S000C2B EF GETB 3553 S000C2C 84 MULT R4 3554 S000C2D 50 ADD R0 3555 S000C2E 50 ADD R0 3556 S000C2F C0 HIB 3557 S000C30 95 SEX 3558 S000C31 11 TO R1 3559 S000C32 4F NOT 3560 S000C33 D1 INC R1 3561 S000C34 3E A1 00 SMS R1,CWORK0 3562 ; 3563 S000C37 A0 40 IBT R0,#040H 3564 S000C39 1E TO R14 3565 S000C3A 5E ADD R14 3566 S000C3B EF GETB 3567 S000C3C 84 MULT R4 3568 S000C3D 50 ADD R0 3569 S000C3E 50 ADD R0 3570 S000C3F C0 HIB 3571 S000C40 95 SEX 3572 S000C41 12 TO R2 3573 S000C42 4F NOT 3574 S000C43 D2 INC R2 3575 S000C44 3E A2 01 SMS R2,CWORK1 3576 ; 3577 INGER_P_MOV_010 3578 S000C47 A0 7F IBT R0,#7FH 3579 S000C49 3D C3 XOR R3 3580 S000C4B D0 INC R0 3581 S000C4C 9E LOB 3582 S000C4D 3E 58 ADD #08H ;[四捨五入] 3583 S000C4F 03 LSR 3584 S000C50 03 LSR 3585 S000C51 03 LSR 3586 S000C52 03 LSR 3587 S000C53 3E A0 02 SMS R0,CWORK2 ;(CWK2) <-- チェックポイントＮｏ． 3588 S000C56 20 14 MOVE R4,R0 ;(R4) <-- ” 3589 ; 3590 S000C58 50 ADD R0 vvv******* warn :value out of range 3591 S000C59 F3 49C7 IWT R3,#BSPL_B_POINT+1 3592 S000C5C 13 TO R3 3593 S000C5D 53 ADD R3 3594 S000C5E B1 FROM R1 3595 S000C5F 3D 33 STB (R3) 3596 S000C61 D3 INC R3 3597 S000C62 B2 FROM R2 3598 S000C63 3D 33 STB (R3) 3599 ; 3600 ;-------------- チェックポイント（−）側ポイント計算 -------------------- 3601 S000C65 B4 FROM R4 ;チェックポイントＮｏ．−２ 3602 S000C66 3E 62 SUB #2 3603 S000C68 3E 7F AND #0FH 3604 S000C6A 50 ADD R0 ;x2 vvv******* warn :value out of range 3605 S000C6B F3 49C7 IWT R3,#BSPL_B_POINT+1 3606 S000C6E 13 TO R3 3607 S000C6F 53 ADD R3 3608 S000C70 3D 43 LDB (R3) 3609 S000C72 95 SEX 3610 S000C73 11 TO R1 ;(R1) <-- 角度計算用Ｘ距離 3611 S000C74 61 SUB R1 3612 S000C75 D3 INC R3 3613 S000C76 3D 43 LDB (R3) 3614 S000C78 95 SEX 3615 S000C79 12 TO R2 ;(R2) <-- 角度計算用Ｙ距離 3616 S000C7A 62 SUB R2 3617 ; 3618 mJSR M_RAD_GET_COSIN 3618+ S000C7B 94 LINK #4 3618+ S000C7C FF 0D15' IWT R15, #M_RAD_GET_COSIN 3618+ S000C7F 01 NOP 3619 ; 3620 S000C80 3D A0 02 LMS R0,CWORK2 3621 S000C83 E0 DEC R0 3622 S000C84 3E 7F AND #0FH 3623 S000C86 50 ADD R0 ;x2 vvv******* warn :value out of range 3624 S000C87 F4 49C7 IWT R4,#BSPL_B_POINT+1 3625 S000C8A 14 TO R4 3626 S000C8B 54 ADD R4 3627 S000C8C 3D 44 LDB (R4) 3628 S000C8E 20 16 MOVE R6,R0 ;(R6) <-- Ｘ 3629 S000C90 3D A1 00 LMS R1,CWORK0 3630 S000C93 61 SUB R1 3631 S000C94 15 TO R5 ;(R5) <-- Ｘ×ＳＩＮ 3632 S000C95 83 MULT R3 3633 S000C96 D4 INC R4 3634 S000C97 3D 44 LDB (R4) 3635 S000C99 20 17 MOVE R7,R0 ;(R7) <-- Ｙ 3636 S000C9B 3D A1 01 LMS R1,CWORK1 3637 S000C9E 61 SUB R1 3638 S000C9F 82 MULT R2 ;(R0) <-- Ｙ×ＣＯＳ 3639 S000CA0 B5 FROM R5 3640 S000CA1 60 SUB R0 3641 S000CA2 50 ADD R0 3642 S000CA3 50 ADD R0 3643 S000CA4 C0 HIB 3644 S000CA5 20 15 MOVE R5,R0 ;(R5) <-- Ｘ×ＳＩＮ−Ｙ×ＣＯＳ 3645 ; 3646 S000CA7 82 MULT R2 ;(R0) <-- （Ｘ×ＳＩＮ−Ｙ×ＣＯＳ）×ＣＯＳ 3647 S000CA8 50 ADD R0 3648 S000CA9 50 ADD R0 3649 S000CAA C0 HIB 3650 S000CAB 57 ADD R7 3651 S000CAC 3D 34 STB (R4) 3652 S000CAE B5 FROM R5 3653 S000CAF 83 MULT R3 ;(R0) <-- （Ｘ×ＳＩＮ−Ｙ×ＣＯＳ）×ＳＩＮ 3654 S000CB0 50 ADD R0 3655 S000CB1 50 ADD R0 3656 S000CB2 C0 HIB 3657 S000CB3 B6 FROM R6 3658 S000CB4 60 SUB R0 3659 S000CB5 E4 DEC R4 3660 S000CB6 3D 34 STB (R4) 3661 ; 3662 ;-------------- チェックポイント（＋）側ポイント計算 -------------------- 3663 S000CB8 3D A0 02 LMS R0,CWORK2 3664 S000CBB 3E 52 ADD #2 ;チェックポイントＮｏ．＋２ 3665 S000CBD 3E 7F AND #0FH 3666 S000CBF 50 ADD R0 ;x2 vvv******* warn :value out of range 3667 S000CC0 F3 49C7 IWT R3,#BSPL_B_POINT+1 3668 S000CC3 13 TO R3 3669 S000CC4 53 ADD R3 3670 S000CC5 3D 43 LDB (R3) 3671 S000CC7 95 SEX 3672 S000CC8 3D A1 00 LMS R1,CWORK0 3673 S000CCB 11 TO R1 ;(R1) <-- 角度計算用Ｘ距離 3674 S000CCC 61 SUB R1 3675 S000CCD D3 INC R3 3676 S000CCE 3D 43 LDB (R3) 3677 S000CD0 95 SEX 3678 S000CD1 3D A2 01 LMS R2,CWORK1 3679 S000CD4 12 TO R2 ;(R2) <-- 角度計算用Ｙ距離 3680 S000CD5 62 SUB R2 3681 ; 3682 mJSR M_RAD_GET_COSIN 3682+ S000CD6 94 LINK #4 3682+ S000CD7 FF 0D15' IWT R15, #M_RAD_GET_COSIN 3682+ S000CDA 01 NOP 3683 ; 3684 S000CDB 3D A0 02 LMS R0,CWORK2 3685 S000CDE D0 INC R0 3686 S000CDF 3E 7F AND #0FH 3687 S000CE1 50 ADD R0 ;x2 vvv******* warn :value out of range 3688 S000CE2 F4 49C7 IWT R4,#BSPL_B_POINT+1 3689 S000CE5 14 TO R4 3690 S000CE6 54 ADD R4 3691 S000CE7 3D 44 LDB (R4) 3692 S000CE9 20 16 MOVE R6,R0 ;(R6) <-- Ｘ 3693 S000CEB 3D A1 00 LMS R1,CWORK0 3694 S000CEE 61 SUB R1 3695 S000CEF 15 TO R5 ;(R5) <-- Ｘ×ＳＩＮ 3696 S000CF0 83 MULT R3 3697 S000CF1 D4 INC R4 3698 S000CF2 3D 44 LDB (R4) 3699 S000CF4 20 17 MOVE R7,R0 ;(R7) <-- Ｙ 3700 S000CF6 3D A1 01 LMS R1,CWORK1 3701 S000CF9 61 SUB R1 3702 S000CFA 82 MULT R2 ;(R0) <-- Ｙ×ＣＯＳ 3703 S000CFB B5 FROM R5 3704 S000CFC 60 SUB R0 3705 S000CFD 50 ADD R0 3706 S000CFE 50 ADD R0 3707 S000CFF C0 HIB 3708 S000D00 20 15 MOVE R5,R0 ;(R5) <-- Ｘ×ＳＩＮ−Ｙ×ＣＯＳ 3709 ; 3710 S000D02 82 MULT R2 ;(R0) <-- （Ｘ×ＳＩＮ−Ｙ×ＣＯＳ）×ＣＯＳ 3711 S000D03 50 ADD R0 3712 S000D04 50 ADD R0 3713 S000D05 C0 HIB 3714 S000D06 57 ADD R7 3715 S000D07 3D 34 STB (R4) 3716 S000D09 B5 FROM R5 3717 S000D0A 83 MULT R3 ;(R0) <-- （Ｘ×ＳＩＮ−Ｙ×ＣＯＳ）×ＳＩＮ 3718 S000D0B 50 ADD R0 3719 S000D0C 50 ADD R0 3720 S000D0D C0 HIB 3721 S000D0E B6 FROM R6 3722 S000D0F 60 SUB R0 3723 S000D10 E4 DEC R4 3724 S000D11 3D 34 STB (R4) 3725 ; 3726 S000D13 00 STOP 3727 S000D14 01 NOP 3728 ; 3729 ;------------------------------------------------------------------------ 3730 ;- 角度計算＆ＣＯＳ＆ＳＩＮデータ読み込み - 3731 ;------------------------------------------------------------------------ 3732 M_RAD_GET_COSIN 3733 S000D15 3E AB 31 SMS R11,RTS1 3734 ; 3735 mJSR M_RAD_GET_1 3735+ S000D18 94 LINK #4 3735+ S000D19 FF 0D33' IWT R15, #M_RAD_GET_1 3735+ S000D1C 01 NOP 3736 ; 3737 S000D1D A0 00" IBT R0,#BANK LCOS 3738 S000D1F 3F DF ROMB 3739 S000D21 F0 0000" IWT R0,#LCOS 3740 S000D24 1E TO R14 3741 S000D25 51 ADD R1 3742 S000D26 12 TO R2 ;(R2) <-- ＣＯＳデータ 3743 S000D27 EF GETB 3744 S000D28 A0 40 IBT R0,#40H ;[ IWT R0,#LSIN ] 3745 S000D2A 1E TO R14 3746 S000D2B 5E ADD R14 3747 S000D2C 13 TO R3 ;(R3) <-- ＳＩＮデータ 3748 S000D2D EF GETB 3749 ; 3750 S000D2E 3D AB 31 LMS R11,RTS1 3751 mRTS 3751+ S000D31 9B JMP R11 3751+ S000D32 01 NOP 3752 ; 3753 ;------------------------------------------------------------------------ 3754 ;- 角度計算 - 3755 ;- (R1) <-- 角度計算用Ｘ距離 - 3756 ;- (R2) <-- ” Ｙ ” - 3757 ;------------------------------------------------------------------------ 3758 M_RAD_GET_1 3759 S000D33 3E AB 30 SMS R11,RTS0 3760 ; 3761 S000D36 F0 0000" IWT R0,#M_RAD_GET_S 3762 S000D39 A8 00" IBT R8,#BANK M_RAD_GET_S 3763 S000D3B A5 00' IBT R5,#BANK INGER_P_MOV 3764 S000D3D 2F 1B MOVE R11,R15 3765 S000D3F 3D 98 LJMP R8 3766 S000D41 01 NOP 3767 ; 3768 S000D42 3D AB 30 LMS R11,RTS0 3769 mRTS 3769+ S000D45 9B JMP R11 3769+ S000D46 01 NOP 3770 ; 3771 ; 3772 ;**************************************************************** 3773 ;* * 3774 ;* 胃袋ピクピク * 3775 ;* in * 3776 ;* 横 * 3777 ;* Ｒ１ : 周期 * 3778 ;* Ｒ２ : 幅 * 3779 ;* Ｒ３ : データリードステップ数 * 3780 ;* * 3781 ;* Ｒ５ : バッファ アドレス * 3782 ;* * 3783 ;* 縦 * 3784 ;* Ｒ７ : 周期 * 3785 ;* Ｒ８ : 幅 * 3786 ;* Ｒ９ : データリードステップ数 * 3787 ;* * 3788 ;* Ｒ１０ : 横スクロール値 * 3789 ;* Ｒ１１ : 縦スクロール値 * 3790 ;* * 3791 ;**************************************************************** 3792 000D47 PIKUPIKU EQU $ 3793 S000D47 02 CACHE ; キャッシュ スタート!! 3794 ; 3795 S000D48 A0 00" IBT R0,#BANK SIN 3796 S000D4A 3F DF ROMB ; サインデータ バンク セット 3797 ; 3798 S000D4C 23 WITH R3 3799 S000D4D 9E LOB 3800 S000D4E 29 WITH R9 3801 S000D4F 9E LOB 3802 ;;;; IWT R12,#000B2H ; ループ回数 3803 S000D50 FC 00D2 IWT R12,#000D2H ; ループ回数 3804 S000D53 2F 1D MOVE R13,R15 ; 分岐先アドレス セット 3805 ; 3806 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 3807 ;+ 横ラスタースクロール + 3808 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 3809 S000D55 21 WITH R1 3810 S000D56 9E LOB 3811 S000D57 F0 0000" IWT R0,#SIN 3812 S000D5A 51 ADD R1 3813 S000D5B 1E TO R14 3814 S000D5C 51 ADD R1 3815 S000D5D EF GETB 3816 S000D5E DE INC R14 3817 S000D5F 3D EF GETBH ; R6 <- サインデータ 3818 S000D61 22 16 MOVE R6,R2 3819 S000D63 3D 9F LMULT 3820 S000D65 24 WITH R4 3821 S000D66 C0 HIB 3822 S000D67 9E LOB 3823 S000D68 4D SWAP 3824 S000D69 C4 OR R4 3825 ; 3826 S000D6A 5A ADD R10 3827 S000D6B 35 STW (R5) ; スクロール値 セット !! 3828 S000D6C D5 INC R5 3829 S000D6D D5 INC R5 3830 ; 3831 S000D6E 21 WITH R1 ; 次のデータ アドレス 3832 S000D6F 53 ADD R3 3833 ; 3834 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 3835 ;+ 縦ラスタースクロール + 3836 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 3837 S000D70 27 WITH R7 3838 S000D71 9E LOB 3839 S000D72 F0 0000" IWT R0,#SIN 3840 S000D75 57 ADD R7 3841 S000D76 1E TO R14 3842 S000D77 57 ADD R7 3843 S000D78 EF GETB 3844 S000D79 DE INC R14 3845 S000D7A 3D EF GETBH ; R6 <- サインデータ 3846 S000D7C 28 16 MOVE R6,R8 3847 S000D7E 3D 9F LMULT 3848 S000D80 24 WITH R4 3849 S000D81 C0 HIB 3850 S000D82 9E LOB 3851 S000D83 4D SWAP 3852 S000D84 C4 OR R4 3853 ; 3854 S000D85 5B ADD R11 3855 S000D86 35 STW (R5) ; スクロール値 セット !! 3856 ; 3857 S000D87 27 WITH R7 ; 次のデータ アドレス 3858 S000D88 59 ADD R9 3859 ; 3860 S000D89 D5 INC R5 3861 S000D8A 3C LOOP 3862 S000D8B D5 INC R5 3863 ; 3864 S000D8C 00 STOP 3865 S000D8D 01 NOP 3866 ; 3867 ;------------------------------------------------------------------------ 3868 ;- ボスケメクジポイント拡大、縮小セット - 3869 ;- in : - 3870 ;- (R0) <-- 元ポイントデータアドレス - 3871 ;- (R14) <-- ” - 3872 ;- (R6) <-- 倍率 - 3873 ;------------------------------------------------------------------------ 3874 000D8E BKMKJ_P_ZOOM EQU $ 3875 S000D8E 3F DF ROMB 3876 S000D90 2E 1E MOVE R14,R14 3877 ; vvv******* warn :value out of range 3878 S000D92 F1 49C6 IWT R1,#BSPL_B_POINT ;(R1) <-- 現ポイントデータポインター 3879 S000D95 3D 41 LDB (R1) 3880 S000D97 D1 INC R1 3881 S000D98 20 1C MOVE R12,R0 ;(R12) <-- ポイント数 3882 S000D9A 1B TO R11 ;(R11) <-- ポイント数×２ 3883 S000D9B 50 ADD R0 3884 ; 3885 S000D9C EF GETB ;(R0) <-- 元ポイントＸ座標 3886 S000D9D DE INC R14 3887 ; 3888 S000D9E 4D SWAP 3889 S000D9F 9F FMULT 3890 S000DA0 3D 31 STB (R1) ;ポイントＮｏ．１Ｘ座標セット 3891 S000DA2 D1 INC R1 3892 ; 3893 S000DA3 EF GETB ;(R0) <-- 元ポイントＹ座標 3894 S000DA4 DE INC R14 3895 ; 3896 S000DA5 4D SWAP 3897 S000DA6 9F FMULT 3898 S000DA7 3D 31 STB (R1) ;ポイントＮｏ．１Ｙ座標セット 3899 S000DA9 D1 INC R1 3900 ; 3901 S000DAA F2 FF81 IWT R2,#0FFB1H-030H 3902 S000DAD 12 TO R2 ;(R2) <-- ＭＩＮポイントＹ座標 3903 S000DAE 52 ADD R2 3904 ; 3905 S000DAF A3 00 IBT R3,#00 ;(R3) <-- 天井圧縮形状変更チェックデータリセット 3906 ; 3907 S000DB1 EC DEC R12 ;ポイント数−１ 3908 ; 3909 S000DB2 02 CACHE 3910 ; 3911 S000DB3 2F 1D MOVE R13,R15 3912 BKMKJ_P_ZOOM_10 3913 S000DB5 EF GETB ;(R0) <-- 元ポイントＸ座標 3914 S000DB6 DE INC R14 3915 ; 3916 S000DB7 4D SWAP 3917 S000DB8 9F FMULT 3918 S000DB9 3D 31 STB (R1) ;ポイントＸ座標セット 3919 ; 3920 S000DBB EF GETB ;(R0) <-- 元ポイントＹ座標 3921 ; 3922 S000DBC 4D SWAP 3923 S000DBD 9F FMULT 3924 S000DBE 14 TO R4 ;(R4) <-- 天井圧縮形状変更Ｙ幅 3925 S000DBF 62 SUB R2 3926 S000DC0 0A 16' BPL BKMKJ_P_ZOOM_30 ;ＭＩＮポイントＹ座標オーバー？ ( no:BKMKJ_P_ZOOM_30 ) 3927 S000DC2 DE INC R14 3928 ; 3929 S000DC3 B2 FROM R2 3930 S000DC4 63 SUB R3 3931 S000DC5 0A 0F' BPL BKMKJ_P_ZOOM_20 ;前ポイントＹ座標オーバー？ ( yes:BKMKJ_P_ZOOM_20 ) 3932 S000DC7 B1 FROM R1 3933 ; 3934 S000DC8 15 TO R5 ;(R5) <-- 前ポイントＸ座標ポインター 3935 S000DC9 3E 62 SUB #2 3936 S000DCB 13 TO R3 ;(R3) <-- 前ポイントＸ座標 3937 S000DCC 3D 45 LDB (R5) 3938 S000DCE B4 FROM R4 ;天井圧縮形状変更Ｙ幅／４ 3939 S000DCF 4F NOT 3940 S000DD0 D0 INC R0 3941 S000DD1 03 LSR 3942 S000DD2 03 LSR 3943 S000DD3 53 ADD R3 3944 S000DD4 3D 35 STB (R5) 3945 BKMKJ_P_ZOOM_20 3946 S000DD6 22 10 MOVE R0,R2 3947 BKMKJ_P_ZOOM_30 3948 S000DD8 D1 INC R1 3949 S000DD9 3D 31 STB (R1) ;ポイントＹ座標セット 3950 S000DDB 20 13 MOVE R3,R0 ;(R3) <-- 天井圧縮形状変更チェックデータ 3951 ; 3952 S000DDD 3C LOOP 3953 S000DDE D1 INC R1 3954 ; vvv******* warn :value out of range 3955 S000DDF F1 49C7 IWT R1,#BSPL_B_POINT+1 ;(R1) <-- 現ポイントデータポインター vvv******* warn :value out of range 3956 S000DE2 F2 4C76 IWT R2,#BSPL_B_POINT_B ;(R2) <-- 現ポイントデータＢａｃｋ−ｕｐポインター 3957 ; 3958 S000DE5 2B 1C MOVE R12,R11 3959 S000DE7 2F 1D MOVE R13,R15 3960 BKMKJ_P_ZOOM_40 3961 S000DE9 3D 41 LDB (R1) 3962 S000DEB 3D 32 STB (R2) 3963 S000DED D1 INC R1 3964 ; 3965 S000DEE 3C LOOP 3966 S000DEF D2 INC R2 3967 ; 3968 S000DF0 00 STOP 3969 S000DF1 01 NOP 3970 ; 3971 ;------------------------------------------------------------------------ 3972 ;- ボスケメクジポイント復元セット - 3973 ;- in : - 3974 ;------------------------------------------------------------------------ 3975 000DF2 BKMKJ_P_RET EQU $ vvv******* warn :value out of range 3976 S000DF2 F3 4C76 IWT R3,#BSPL_B_POINT_B ;(R3) <-- 現ポイントデータＢａｃｋ−ｕｐポインター vvv******* warn :value out of range 3977 S000DF5 F1 49C6 IWT R1,#BSPL_B_POINT ;(R1) <-- 現ポイントデータポインター 3978 S000DF8 1C TO R12 ;(R12) <-- ポイント数 3979 S000DF9 3D 41 LDB (R1) 3980 S000DFB D1 INC R1 3981 ; 3982 S000DFC 02 CACHE 3983 ; 3984 S000DFD 2F 1D MOVE R13,R15 3985 BKMKJ_P_RET_010 3986 S000DFF 3D 41 LDB (R1) 3987 S000E01 12 TO R2 ;(R2) <-- 現ポイントＸ座標 3988 S000E02 95 SEX 3989 ; 3990 S000E03 3D 43 LDB (R3) 3991 S000E05 D3 INC R3 3992 S000E06 95 SEX ;(R0) <-- 元ポイントＸ座標 3993 ; 3994 S000E07 62 SUB R2 3995 S000E08 09 0A' BEQ BKMKJ_P_RET_030 3996 S000E0A D3 INC R3 3997 ; 3998 S000E0B C0 HIB 3999 S000E0C 95 SEX 4000 S000E0D 0B 02' BMI BKMKJ_P_RET_020 4001 S000E0F 01 NOP 4002 ; 4003 S000E10 D0 INC R0 4004 BKMKJ_P_RET_020 4005 S000E11 52 ADD R2 ;現ポイントＸ座標補正 4006 S000E12 3D 31 STB (R1) 4007 BKMKJ_P_RET_030 4008 S000E14 D1 INC R1 4009 ; 4010 S000E15 3C LOOP 4011 S000E16 D1 INC R1 4012 ; 4013 S000E17 00 STOP 4014 S000E18 01 NOP 4015 ; 4016 ;------------------------------------------------------------------------ 4017 ;- ボスケメクジポイント移動セット - 4018 ;- in : - 4019 ;- (R6) <-- 移動率 - 4020 ;------------------------------------------------------------------------ 4021 000E19 BKMKJ_P_MOVE EQU $ vvv******* warn :value out of range 4022 S000E19 FA 4C76 IWT R10,#BSPL_B_POINT_B ;(R1) <-- 現ポイントデータＢａｃｋ−ｕｐポインター vvv******* warn :value out of range 4023 S000E1C F1 49C6 IWT R1,#BSPL_B_POINT ;(R1) <-- 現ポイントデータポインター 4024 S000E1F 1C TO R12 ;(R12) <-- ポイント数 4025 S000E20 3D 41 LDB (R1) 4026 S000E22 D1 INC R1 4027 ; 4028 S000E23 D1 INC R1 4029 S000E24 13 TO R3 ;(R3) <-- ＭＩＮＹ座標 4030 S000E25 3D 41 LDB (R1) 4031 S000E27 E1 DEC R1 4032 ; vvv******* warn :value out of range 4033 S000E28 F2 4C96 IWT R2,#BSPL_MV_BUFF ;(R2) <-- ポイント移動値バッファポインター 4034 ; 4035 S000E2B 02 CACHE 4036 ; 4037 S000E2C 2F 1D MOVE R13,R15 4038 BKMKJ_P_MOVE_10 4039 S000E2E 15 TO R5 ;(R5) <-- 現ポイントＸ座標 4040 S000E2F 3D 41 LDB (R1) 4041 S000E31 21 17 MOVE R7,R1 4042 S000E33 D1 INC R1 4043 ; 4044 S000E34 3D 41 LDB (R1) ;(R0) <-- 現ポイントＹ座標 4045 S000E36 D1 INC R1 4046 ; 4047 S000E37 95 SEX 4048 S000E38 63 SUB R3 4049 S000E39 3D 9F LMULT 4050 S000E3B 24 WITH R4 4051 S000E3C C0 HIB 4052 S000E3D 9E LOB 4053 S000E3E 4D SWAP 4054 S000E3F C4 OR R4 4055 ; 4056 S000E40 18 TO R8 ;(R8) <-- 現ポイント移動合計値 4057 S000E41 42 LDW (R2) 4058 S000E42 D2 INC R2 4059 S000E43 D2 INC R2 4060 S000E44 90 SBK 4061 ; 4062 S000E45 68 SUB R8 ;(R0) <-- 現ポイント移動値 4063 S000E46 20 18 MOVE R8,R0 ;(R8) <-- " 4064 S000E48 55 ADD R5 4065 S000E49 3D 37 STB (R7) 4066 ; 4067 S000E4B 3D 4A LDB (R10) 4068 S000E4D 58 ADD R8 4069 S000E4E 3D 3A STB (R10) 4070 S000E50 DA INC R10 4071 ; 4072 S000E51 3C LOOP 4073 S000E52 DA INC R10 4074 ; 4075 S000E53 00 STOP 4076 S000E54 01 NOP 4077 ; 4078 ;------------------------------------------------------------------------ 4079 ;- ボスケメクジＯＡＭセット - 4080 ;- in : - 4081 ;- (R1) <-- 表示Ｘ座標 - 4082 ;- (R2) <-- 表示Ｙ座標 - 4083 ;- (R3) <-- ＭＩＮＹ幅 - 4084 ;- (R4) <-- ＭＡＸＹ幅 - 4085 ;- (R5) <-- ＯＡＭインデックス - 4086 ;- (R6) <-- ドロ〜用Ｙ幅 - 4087 ;- (CWK0) <-- 心臓表示フラグ（＞＝０表示） - 4088 ;- (CWK1) <-- 倍率 - 4089 ;- out : - 4090 ;- (CWK0) <-- 心臓のＸ補正値 - 4091 ;------------------------------------------------------------------------ 4092 ; 4093 ;-------------- ボスケメクジＯＡＭセットデータ -------------------------- 4094 000E55 BKMKJ_OAMDT EQU $ 4095 ; [Y] [X] n 4096 S000E55 C8 14 02 BYTE 0C8H,028H/2,2 ;[左目] 4097 S000E58 C8 38 02 BYTE 0C8H,070H/2,2 ;[右目] 4098 S000E5B 80 26 01 BYTE 080H,04CH/2,1 ;[口] 4099 S000E5E 9C 68 08 BYTE 09CH,0D0H/2,8 ;[ほっぺた] 4100 S000E61 54 54 02 BYTE 054H,0A8H/2,2 ;[大はんてん] 4101 S000E64 40 64 01 BYTE 040H,0C8H/2,1 ;[小はんてん] 4102 S000E67 E8 08 05 BYTE 0E8H,010H/2,5 ;[左の髪の毛] 4103 S000E6A E0 76 05 BYTE 0E0H,0ECH/2,5 ;[右の髪の毛] 4104 S000E6D C0 8E 01 BYTE 0C0H,11CH/2,1 ;[右の１本髪の毛] 4105 000E70 BKMKJ_OAMDT_E EQU $ 4106 ; 4107 000E70 BKMKJ_OAMST EQU $ 4108 S000E70 A0 00' IBT R0,#BANK BKMKJ_OAMDT 4109 S000E72 3F DF ROMB 4110 S000E74 FE 0E55' IWT R14,#BKMKJ_OAMDT 4111 ; 4112 S000E77 22 WITH R2 ;Ｈ−ＤＭＡバッファサイズによるＹ座標補正 4113 S000E78 3E 68 SUB #8 4114 ; 4115 S000E7A 23 WITH R3 4116 S000E7B 95 SEX 4117 S000E7C 24 WITH R4 4118 S000E7D 95 SEX 4119 ; 4120 S000E7E B4 FROM R4 4121 S000E7F 13 TO R3 ;(R3) <-- Ｙ幅 4122 S000E80 63 SUB R3 4123 ; vvv******* warn :value out of range 4124 S000E81 F8 3372 IWT R8,#HDMABF ;(R8) <-- Ｘ幅Ｈ−ＤＭＡバッファポインター vvv******* warn :value out of range 4125 S000E84 F9 3516 IWT R9,#HDMABF1 ;(R9) <-- Ｘ移動Ｈ−ＤＭＡバッファポインター 4126 ; 4127 S000E87 02 CACHE 4128 ; 4129 S000E88 A7 09 IBT R7,#(BKMKJ_OAMDT_E-BKMKJ_OAMDT)/3 4130 BKMKJ_OAMST_010 4131 S000E8A EF GETB ;(R0) <-- Ｙ位置倍率 4132 S000E8B DE INC R14 4133 ; 4134 S000E8C 3D 83 UMULT R3 4135 S000E8E C0 HIB 4136 S000E8F 1A TO R10 ;(R10) <-- 表示Ｙ座標からのＹ距離 4137 S000E90 64 SUB R4 4138 ; 4139 S000E91 B2 FROM R2 4140 S000E92 6A SUB R10 ;[タテスクロール無しなのでＹサイズオーバーチェック無し！！] 4141 S000E93 20 1B MOVE R11,R0 ;(R11) <-- チェックＹ座標 4142 S000E95 50 ADD R0 ;x2 4143 S000E96 58 ADD R8 4144 S000E97 40 LDW (R0) 4145 S000E98 5B ADD R11 4146 S000E99 3E 59 ADD #1+8 4147 S000E9B 1C TO R12 ;(R12) <-- チェックＹ座標のＸ幅 4148 S000E9C 9E LOB 4149 ; 4150 S000E9D 3F EF GETBS ;(R0) <-- Ｘ位置倍率 4151 S000E9F 20 1D MOVE R13,R0 ;(R13) <-- ” 4152 S000EA1 DE INC R14 4153 ; 4154 S000EA2 3D 8C UMULT R12 4155 S000EA4 50 ADD R0 ;x2 4156 S000EA5 C0 HIB 4157 S000EA6 50 ADD R0 ;x2 4158 S000EA7 6C SUB R12 4159 S000EA8 1C TO R12 ;(R12) <-- 中心Ｘ座標からのＸ距離 4160 S000EA9 3D 96 DIV2 4161 ; 4162 S000EAB B9 FROM R9 4163 S000EAC 5B ADD R11 4164 S000EAD 5B ADD R11 4165 S000EAE 1B TO R11 4166 S000EAF 40 LDW (R0) 4167 S000EB0 F0 0080 IWT R0,#0080H 4168 S000EB3 6B SUB R11 4169 S000EB4 5C ADD R12 4170 S000EB5 1B TO R11 ;(R11) <-- 表示Ｘ座標からのＸ距離 4171 S000EB6 61 SUB R1 4172 ; 4173 S000EB7 A0 40 IBT R0,#040H ;ドロ〜用Ｙ座標補正値計算 4174 S000EB9 6D SUB R13 4175 S000EBA 0D 07' BCS BKMKJ_OAMST_012 4176 S000EBC 5D ADD R13 4177 ; 4178 S000EBD 50 ADD R0 ;[ IWT R0,#080H ] 4179 S000EBE 1D TO R13 4180 S000EBF 6D SUB R13 4181 S000EC0 0C 02' BCC BKMKJ_OAMST_014 4182 S000EC2 60 SUB R0 4183 ; 4184 BKMKJ_OAMST_012 4185 S000EC3 BD FROM R13 4186 BKMKJ_OAMST_014 4187 S000EC4 3D 86 UMULT R6 4188 S000EC6 50 ADD R0 ;x2 4189 S000EC7 C0 HIB 4190 S000EC8 2A WITH R10 ;(R10) <-- 表示Ｙ座標からのＹ距離 4191 S000EC9 60 SUB R0 4192 ; 4193 S000ECA 1C TO R12 4194 S000ECB EF GETB 4195 S000ECC DE INC R14 4196 ; 4197 S000ECD 2F 1D MOVE R13,R15 4198 BKMKJ_OAMST_020 4199 S000ECF 45 LDW (R5) 4200 S000ED0 5B ADD R11 4201 S000ED1 90 SBK ;[ STW (R5) ] 4202 S000ED2 D5 INC R5 4203 S000ED3 D5 INC R5 4204 ; 4205 S000ED4 45 LDW (R5) 4206 S000ED5 6A SUB R10 4207 ; 4208 S000ED6 25 WITH R5 4209 S000ED7 3E 56 ADD #6 4210 ; 4211 S000ED9 3C LOOP 4212 S000EDA 90 SBK ;[ STW (R5) ] 4213 ; 4214 S000EDB E7 DEC R7 4215 S000EDC 08 AD' BNE BKMKJ_OAMST_010+1 4216 S000EDE EF GETB 4217 ; 4218 ;-------------- フリップ髪の毛のＸ座標補正 ------------------------------ 4219 S000EDF 3D A6 01 LMS R6,CWORK1 ;(R6) <-- 倍率 4220 S000EE2 F0 2A00 IWT R0,#2AH*100H 4221 S000EE5 17 TO R7 ;(R7) <-- フリップ髪の毛の補正値 4222 S000EE6 9F FMULT 4223 ; 4224 S000EE7 A0 58 IBT R0,#(5+5+1)*8 4225 S000EE9 25 WITH R5 4226 S000EEA 60 SUB R0 4227 S000EEB 45 LDW (R5) 4228 S000EEC 67 SUB R7 4229 S000EED 90 SBK ;[ STW (R5) ] 4230 ; 4231 S000EEE A0 28 IBT R0,#5*8 4232 S000EF0 15 TO R5 4233 S000EF1 55 ADD R5 4234 S000EF2 45 LDW (R5) 4235 S000EF3 57 ADD R7 4236 S000EF4 A7 10 IBT R7,#010H 4237 S000EF6 67 SUB R7 4238 S000EF7 90 SBK ;[ STW (R5) ] 4239 ; 4240 ;-------------- 心臓のＸ座標補正 ---------------------------------------- 4241 S000EF8 3D A0 00 LMS R0,CWORK0 4242 S000EFB 3E 60 SUB #0 4243 S000EFD 0B 35' BMI BKMKJ_OAMST_050 ;心臓表示？ ( no:BKMKJ_OAMST_050 ) 4244 S000EFF 01 NOP 4245 ; 4246 S000F00 A0 30 IBT R0,#(5+1)*8 4247 S000F02 15 TO R5 ;(R5) <-- 心臓のＯＡＭインデックス 4248 S000F03 55 ADD R5 4249 ; 4250 S000F04 F0 008F IWT R0,#08FH 4251 S000F07 3D 9F LMULT 4252 S000F09 F0 0080 IWT R0,#080H 4253 S000F0C 54 ADD R4 4254 S000F0D 1A TO R10 4255 S000F0E C0 HIB 4256 ; 4257 S000F0F B8 FROM R8 4258 S000F10 52 ADD R2 4259 S000F11 52 ADD R2 4260 S000F12 40 LDW (R0) 4261 S000F13 52 ADD R2 4262 S000F14 3E 59 ADD #1+8 4263 S000F16 6A SUB R10 4264 S000F17 1A TO R10 4265 S000F18 3D 96 DIV2 4266 ; 4267 S000F1A B9 FROM R9 4268 S000F1B 52 ADD R2 4269 S000F1C 52 ADD R2 4270 S000F1D 1B TO R11 4271 S000F1E 40 LDW (R0) 4272 S000F1F F0 0080 IWT R0,#0080H 4273 S000F22 6B SUB R11 4274 S000F23 61 SUB R1 4275 S000F24 1B TO R11 ;(R11) <-- 表示Ｘ座標からのＸ距離 4276 S000F25 5A ADD R10 4277 S000F26 3E AB 00 SMS R11,CWORK0 ;(CWK0) <-- 心臓のＸ補正値 4278 ; 4279 S000F29 AC 04 IBT R12,#4 4280 S000F2B 2F 1D MOVE R13,R15 4281 BKMKJ_OAMST_030 4282 S000F2D 45 LDW (R5) 4283 S000F2E 5B ADD R11 4284 ; 4285 S000F2F 25 WITH R5 4286 S000F30 3E 58 ADD #8 4287 ; 4288 S000F32 3C LOOP 4289 S000F33 90 SBK ;[ STW (R5) ] 4290 ; 4291 BKMKJ_OAMST_050 4292 S000F34 00 STOP 4293 S000F35 01 NOP 4294 ; 4295 ;------------------------------------------------------------------------ 4296 ;- ボスケメクジヤラレポイントセット - 4297 ;- in : - 4298 ;- (R0) <-- ヤラレポイントデータアドレス - 4299 ;- (R14) <-- ” - 4300 ;- (R7) <-- 倍率×１０Ｈ - 4301 ;------------------------------------------------------------------------ 4302 000F36 BKMKJ_P_DOWN EQU $ 4303 S000F36 3F DF ROMB 4304 S000F38 2E WITH R14 4305 S000F39 3E 54 ADD #2*2 4306 ; vvv******* warn :value out of range 4307 S000F3B F1 49CB IWT R1,#BSPL_B_POINT+1+(2*2) ;(R1) <-- 現ポイントデータポインター 4308 S000F3E AC 0D IBT R12,#16-3 ;(R12) <-- ポイント数 4309 ; 4310 S000F40 F0 0100 IWT R0,#010H*10H 4311 S000F43 67 SUB R7 4312 S000F44 0B 03' BMI BKMKJ_P_DOWN_10 ;Ｘ倍率変更？ ( no:BKMKJ_P_DOWN_10 ) 4313 S000F46 57 ADD R7 4314 ; 4315 S000F47 27 10 MOVE R0,R7 4316 BKMKJ_P_DOWN_10 4317 S000F49 20 18 MOVE R8,R0 ;(R8) <-- Ｘ倍率 4318 S000F4B B7 FROM R7 4319 S000F4C 03 LSR 4320 S000F4D 03 LSR 4321 S000F4E 03 LSR 4322 S000F4F 17 TO R7 ;(R7) <-- Ｙ倍率 4323 S000F50 03 LSR 4324 ; 4325 S000F51 A2 B4 IBT R2,#0B4H ;[ IWT R2,#0FFB4H ] (R2) <-- ＭＩＮポイントＹ座標 4326 S000F53 A3 00 IBT R3,#00 ;(R3) <-- 天井圧縮形状変更チェックデー 4327 S000F55 A9 38 IBT R9,#38H ;(R9) <-- 中心ポイントＹ 4328 ; 4329 S000F57 02 CACHE 4330 ; 4331 S000F58 2F 1D MOVE R13,R15 4332 BKMKJ_P_DOWN_20 4333 S000F5A EF GETB ;(R0) <-- 元ポイントＸ座標 4334 S000F5B DE INC R14 4335 ; 4336 S000F5C 4D SWAP 4337 S000F5D 28 16 MOVE R6,R8 4338 S000F5F 9F FMULT 4339 S000F60 3D 31 STB (R1) ;ポイントＸ座標セット 4340 ; 4341 S000F62 3F EF GETBS ;(R0) <-- 元ポイントＹ座標 4342 S000F64 69 SUB R9 4343 ; 4344 S000F65 27 16 MOVE R6,R7 4345 S000F67 3D 9F LMULT 4346 S000F69 24 WITH R4 4347 S000F6A C0 HIB 4348 S000F6B 9E LOB 4349 S000F6C 4D SWAP 4350 S000F6D C4 OR R4 4351 S000F6E 59 ADD R9 4352 ; 4353 S000F6F 14 TO R4 ;(R4) <-- 天井圧縮形状変更Ｙ幅 4354 S000F70 62 SUB R2 4355 S000F71 0A 16' BPL BKMKJ_P_DOWN_40 ;ＭＩＮポイントＹ座標オーバー？ ( no:BKMKJ_P_DOWN_40 ) 4356 S000F73 DE INC R14 4357 ; 4358 S000F74 B2 FROM R2 4359 S000F75 63 SUB R3 4360 S000F76 0A 0F' BPL BKMKJ_P_DOWN_30 ;前ポイントＹ座標オーバー？ ( yes:BKMKJ_P_DOWN_30 ) 4361 S000F78 B1 FROM R1 4362 ; 4363 S000F79 15 TO R5 ;(R5) <-- 前ポイントＸ座標ポインター 4364 S000F7A 3E 62 SUB #2 4365 S000F7C 13 TO R3 ;(R3) <-- 前ポイントＸ座標 4366 S000F7D 3D 45 LDB (R5) 4367 S000F7F B4 FROM R4 ;天井圧縮形状変更Ｙ幅／４ 4368 S000F80 4F NOT 4369 S000F81 D0 INC R0 4370 S000F82 03 LSR 4371 S000F83 03 LSR 4372 S000F84 53 ADD R3 4373 S000F85 3D 35 STB (R5) 4374 BKMKJ_P_DOWN_30 4375 S000F87 22 10 MOVE R0,R2 4376 BKMKJ_P_DOWN_40 4377 S000F89 D1 INC R1 4378 S000F8A 3D 31 STB (R1) ;ポイントＹ座標セット 4379 S000F8C 20 13 MOVE R3,R0 ;(R3) <-- 天井圧縮形状変更チェックデータ 4380 ; 4381 S000F8E 3C LOOP 4382 S000F8F D1 INC R1 4383 ; 4384 ;-------------- ドロ〜部分セット ---------------------------------------- 4385 S000F90 FA 0100 IWT R10,#0100H 4386 S000F93 BA FROM R10 4387 S000F94 67 SUB R7 4388 S000F95 50 ADD R0 ;x4 4389 S000F96 50 ADD R0 ; 4390 S000F97 6A SUB R10 4391 S000F98 0C 03' BCC BKMKJ_P_DOWN_50 4392 S000F9A 5A ADD R10 4393 ; 4394 S000F9B 2A 10 MOVE R0,R10 4395 BKMKJ_P_DOWN_50 4396 S000F9D 20 16 MOVE R6,R0 ;(R6) <-- ドロ〜Ｙ倍率 4397 ; 4398 ;-------------- 最下位ポイントＹセット -------------------------- 4399 S000F9F F0 4700 IWT R0,#(7FH-38H)*100H 4400 S000FA2 9F FMULT 4401 S000FA3 A3 38 IBT R3,#38H 4402 S000FA5 53 ADD R3 vvv******* warn :value out of range 4403 S000FA6 F1 49C8 IWT R1,#BSPL_B_POINT+1+(0*2)+1 4404 S000FA9 3D 31 STB (R1) 4405 ; 4406 ;-------------- 最下位両サイドポイントＹセット ------------------ 4407 S000FAB F0 0800 IWT R0,#(40H-38H)*100H 4408 S000FAE 9F FMULT 4409 S000FAF 13 TO R3 4410 S000FB0 53 ADD R3 4411 ; 4412 S000FB1 F0 0100 IWT R0,#0100H 4413 S000FB4 68 SUB R8 4414 S000FB5 F6 1000 IWT R6,#010H*100H 4415 S000FB8 9F FMULT 4416 S000FB9 53 ADD R3 4417 S000FBA D1 INC R1 4418 S000FBB D1 INC R1 4419 S000FBC 3D 31 STB (R1) 4420 ; vvv******* warn :value out of range 4421 S000FBE F2 49E6 IWT R2,#BSPL_B_POINT+1+(15*2)+1 4422 S000FC1 3D 32 STB (R2) 4423 ; 4424 ;-------------- 最下位両サイドポイントＸセット ------------------ 4425 S000FC3 A0 20 IBT R0,#020H 4426 S000FC5 68 SUB R8 4427 S000FC6 0A 03' BPL BKMKJ_P_DOWN_60 4428 S000FC8 58 ADD R8 4429 ; 4430 S000FC9 28 10 MOVE R0,R8 4431 BKMKJ_P_DOWN_60 4432 S000FCB F6 4000 IWT R6,#040H*100H 4433 S000FCE 9F FMULT 4434 S000FCF E2 DEC R2 4435 S000FD0 3D 32 STB (R2) 4436 ; 4437 S000FD2 4F NOT 4438 S000FD3 D0 INC R0 4439 S000FD4 E1 DEC R1 4440 S000FD5 3D 31 STB (R1) 4441 ; 4442 S000FD7 00 STOP 4443 S000FD8 01 NOP 4444 ; 4445 ;------------------------------------------------------------------------ 4446 ;- ボスケメクジオフセットＸ位置計算 - 4447 ;- in : - 4448 ;- (R1) <-- 表示Ｘ座標 - 4449 ;- (R2) <-- 表示Ｙ座標 - 4450 ;- (R3) <-- Ｘ位置倍率 - 4451 ;- out : - 4452 ;- (R0) <-- オフセットＸ位置 - 4453 ;------------------------------------------------------------------------ 4454 000FD9 BKMKJ_OFX_CALC EQU $ 4455 S000FD9 22 WITH R2 ;Ｈ−ＤＭＡバッファサイズによるＹ座標補正 4456 S000FDA 3E 68 SUB #8 4457 ; 4458 S000FDC B2 FROM R2 ;x2 4459 S000FDD 52 ADD R2 vvv******* warn :value out of range 4460 S000FDE F8 3372 IWT R8,#HDMABF ;(R8) <-- Ｘ幅Ｈ−ＤＭＡバッファポインター 4461 S000FE1 58 ADD R8 4462 S000FE2 40 LDW (R0) 4463 S000FE3 52 ADD R2 4464 S000FE4 3E 59 ADD #1+8 4465 S000FE6 9E LOB 4466 S000FE7 20 1C MOVE R12,R0 ;(R12) <-- チェックＹ座標のＸ幅 4467 ; 4468 S000FE9 3D 83 UMULT R3 4469 S000FEB C0 HIB 4470 S000FEC 50 ADD R0 ;x2 4471 S000FED 6C SUB R12 4472 S000FEE 1C TO R12 ;(R12) <-- 中心Ｘ座標からのＸ距離 4473 S000FEF 3D 96 DIV2 4474 ; vvv******* warn :value out of range 4475 S000FF1 F0 3516 IWT R0,#HDMABF1 ;(R0) <-- Ｘ移動Ｈ−ＤＭＡバッファポインター 4476 S000FF4 52 ADD R2 4477 S000FF5 52 ADD R2 4478 S000FF6 1B TO R11 4479 S000FF7 40 LDW (R0) 4480 S000FF8 F0 0080 IWT R0,#0080H 4481 S000FFB 6B SUB R11 4482 S000FFC 5C ADD R12 4483 S000FFD 61 SUB R1 ;(R0) <-- 表示Ｘ座標からのＸ距離 4484 ; 4485 S000FFE 00 STOP 4486 S000FFF 01 NOP 4487 ; 4488 ;------------------------------------------------------------------------ 4489 ;- 除算 - 4490 ;- in : - 4491 ;- (R4) <-- 被除数 - 4492 ;- (R6) <-- 除数 - 4493 ;- out : - 4494 ;- (R7) <-- 商 - 4495 ;- (R0) <-- 余り - 4496 ;------------------------------------------------------------------------ 4497 001000 DIV_DOUBLE EQU $ 4498 S001000 60 SUB R0 ;(R0) <-- アキュムレータをクリア 4499 S001001 20 17 MOVE R7,R0 ;(R7) <-- 商をクリア 4500 ; 4501 S001003 AC 20 IBT R12,#32 4502 S001005 FD 1009' IWT R13,#DIV_DOUBLE_010+1 4503 DIV_DOUBLE_010 4504 S001008 27 WITH R7 ;商を左へシフト 4505 S001009 57 ADD R7 4506 S00100A 24 WITH R4 ;被除数を左へシフト 4507 S00100B 54 ADD R4 4508 S00100C 04 ROL ;被除数をアキュムレータにシフト 4509 S00100D 66 SUB R6 ;アキュムレータと除数を比較 4510 S00100E 0C 03' BCC DIV_DOUBLE_020 ;アキュムレータ＜除数であれば、減算を省略 4511 S001010 56 ADD R6 4512 ; 4513 S001011 66 SUB R6 ;アキュムレータから除数を引く 4514 S001012 D7 INC R7 ;商に１を加える 4515 DIV_DOUBLE_020 4516 S001013 3C LOOP 4517 S001014 27 WITH R7 ;(R7) <-- プロットスタート位置 4518 ; 4519 S001015 00 STOP 4520 S001016 01 NOP 4521 ; 4522 ;************************************************************************ 4523 ;* 円状”キラキラ”効果セット計算 * 4524 ;* in : * 4525 ;* (R1) <-- ランダムデータ * 4526 ;* (R2) <-- ＭＡＸ半径 * 4527 ;* (R5) <-- セットスピード * 4528 ;* out : * 4529 ;* (R1) <-- セットＸ座標 * 4530 ;* (R2) <-- セットＹ座標 * 4531 ;* (R3) <-- セットＸスピード * 4532 ;* (R4) <-- セットＹスピード * 4533 ;************************************************************************ 4534 001017 CIRCL_EXST_ST EQU $ 4535 S001017 A0 00" IBT R0,#BANK LCOS 4536 S001019 3F DF ROMB 4537 ; 4538 S00101B B1 FROM R1 4539 S00101C 03 LSR 4540 S00101D 03 LSR 4541 S00101E 03 LSR 4542 S00101F 03 LSR 4543 S001020 9E LOB 4544 S001021 17 TO R7 ;(R7) <-- セット半径×１００Ｈ 4545 S001022 3D 82 UMULT R2 4546 ; 4547 S001024 B1 FROM R1 4548 S001025 3E 7F AND #0FH 4549 S001027 50 ADD R0 ;x16 4550 S001028 3F 88 UMULT #8 ; 4551 S00102A FE 0000" IWT R14,#LCOS 4552 S00102D 1E TO R14 4553 S00102E 5E ADD R14 4554 S00102F 3F EF GETBS 4555 S001031 50 ADD R0 ;x4 4556 S001032 16 TO R6 ;(R6) <-- ＣＯＳデータ 4557 S001033 50 ADD R0 ; 4558 ; 4559 S001034 B7 FROM R7 4560 S001035 11 TO R1 ;(R1) <-- セットＸ座標 4561 S001036 9F FMULT 4562 ; 4563 S001037 B5 FROM R5 4564 S001038 3D 9F LMULT 4565 S00103A 24 WITH R4 4566 S00103B C0 HIB 4567 S00103C 9E LOB 4568 S00103D 4D SWAP 4569 S00103E 13 TO R3 ;(R3) <-- セットＸスピード 4570 S00103F C4 OR R4 4571 ; 4572 S001040 A0 40 IBT R0,#040H ;[ IWT R14,#LSIN ] 4573 S001042 1E TO R14 4574 S001043 5E ADD R14 4575 S001044 3F EF GETBS 4576 S001046 50 ADD R0 ;x4 4577 S001047 16 TO R6 ;(R6) <-- ＳＩＮデータ 4578 S001048 50 ADD R0 ; 4579 ; 4580 S001049 B7 FROM R7 4581 S00104A 12 TO R2 ;(R2) <-- セットＹ座標 4582 S00104B 9F FMULT 4583 ; 4584 S00104C B5 FROM R5 4585 S00104D 3D 9F LMULT 4586 S00104F 24 WITH R4 4587 S001050 C0 HIB 4588 S001051 9E LOB 4589 S001052 4D SWAP 4590 S001053 14 TO R4 ;(R4) <-- セットＹスピード 4591 S001054 C4 OR R4 4592 ; 4593 S001055 00 STOP 4594 S001056 01 NOP 4595 ; 4596 ; 4597 ; 4598 ; 4599 ; 4600 END