File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:49 1994 Page 0001 1 ;************************************************************************ 2 ;* * 3 ;* title name : "yossy" * 4 ;* proccess : enemy sub.2 * 5 ;* file name : ys_enmy3 * 6 ;* * 7 ;************************************************************************ 8 ; 9 ; 10 SALL 11 ; 12 include ys_header.inc 13 include ys_unit.h 14 include ys_pld.h 15 include ys_presno.h 16 ; 17 XALL 18 ; 19 ; 20 ;------------------------------------------------------------------------ 21 ;- global symbol - 22 ;------------------------------------------------------------------------ 23 GLB TSUBOIN,OBAKEIN,IWATSIN,OBFIRIN,POLY1IN,MOJI0IN 24 GLB KERO0IN,POLDRIN,GATE0IN,TATSUIN 25 GLB MSGSTIN,DWNBGIN,RUBBGIN,ATSCRIN,GOAL0IN,GOALTIN 26 GLB GLFSNIN,WATCHIN,WATKMIN,BG_00IN,BEEM0IN,AW_FGIN 27 GLB ON_DWIN 28 ; 29 GLB TSUBOMV,OBAKEMV,IWATSMV,OBFIRMV,POLY1MV,MOJI0MV 30 GLB KERO0MV,POLDRMV,GATE0MV,TATSUMV 31 GLB MSGSTMV,DWNBGMV,RUBBGMV,ATSCRMV,GOAL0MV,GOALTMV 32 GLB GLFSNMV,WATCHMV,WATKMMV,BG_00MV,BEEM0MV,AW_FGMV 33 GLB ON_DWMV 34 ; 35 GLB BG3POLYST,BG3POLYST0,KUMOB_SET,KIRAKIRA_SET 36 ; 37 ;------------------------------------------------------------------------ 38 ;- extern symbol - 39 ;------------------------------------------------------------------------ 40 ; 41 ;-------------< ys_main >------------------------------------------------ 42 EXT RANDAM 43 EXT GMIN 44 ; 45 ;-------------< ys_rpro >------------------------------------------------ 46 EXT JSRSUB 47 EXT CHIPON,CHIPON_RAM_READ 48 ; 49 ;-------------< ys_init >------------------------------------------------ 50 EXT UNCOMPRES_X,VRAMDX_ST 51 EXT M_DMA_BFST 52 ; 53 ;-------------< ys_play >------------------------------------------------ 54 EXT PLCOLTR 55 EXT EBSTAT 56 EXT PFAL,PSTP,PMOV,PGUS,PASC,PGOL 57 EXT PFLP 58 ; 59 ;-------------< ys_bgsc >------------------------------------------------ 60 EXT UNITCHG 61 ; File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:49 1994 Page 0002 62 EXT BGCG,DBG0,RBG0,DROP,DRCL 63 ; 64 ;-------------< ys_enmy >------------------------------------------------ 65 EXT ENCLEAR,ENCLEAR_NORETN,DISPCK0,DISPCK1 66 EXT ENINSR,ENINSR2,EEXCHK,EEYCHK,EEXYCK,ESTATST 67 EXT PL_1UP_SET,SCOREST,COLBL_SET4 68 EXT ENMDCK,XSDOWN,EPCRCK,MUKEOR,XSPEOR,MKEOR2,PLFLST 69 EXT ANGLCAL,EGG_WARE,POBBGCR,POBBGCR_2 70 EXT TROBJ_CANCEL 71 EXT TROBJ_OAM_2x2,TROBJ_OAM_2x2_I 72 EXT TROBJ_OAM_4x4,TROBJ_OAM_4x4_I 73 EXT TROBJ_OAM_4x2,TROBJ_OAM_4x2_I 74 EXT TROBJ_OAM_8x4,TROBJ_OAM_8x4_I 75 EXT TROBJ_OAM_8x8,TROBJ_OAM_8x8_I 76 EXT TROBJ_SR_2x2,TROBJ_SR_2x2_CL 77 EXT TROBJ_SR_4x4,TROBJ_SR_4x4_CL 78 EXT TROBJ_SR_4x2,TROBJ_SR_4x2_CL 79 EXT TROBJ_SR_8x4,TROBJ_SR_8x4_CL 80 EXT TROBJ_SR_8x8,TROBJ_SR_8x8_CL 81 EXT TROBJ_CLEAR,TROBJ_CLEAR_CHK 82 ; 83 EXT EINIT,EFAIL,EMOVE,EEATM,ENOSE,EBABL,ECHNG 84 ; 85 EXT COS,SIN 86 ; 87 EXT TROBJ_PLOT_X,TROBJ_PLOT_Y,TROBJ_CHAR_NO 88 ; 89 EXT OBAKE,OBFIR,GOALT,SUIKA,WATKM 90 EXT EGG00,EGG01,EGG02,EGG03,EGG04 91 ; 92 ;-------------< ys_enmy2 >----------------------------------------------- 93 EXT TAN,ATAN 94 ; 95 ;-------------< ys_exst >------------------------------------------------ 96 EXT EXINSR 97 ; 98 EXT YKMAI,KUMOB,SCORE,DUST0 99 ; 100 ;-------------< ys_game >------------------------------------------------ 101 EXT BGM_NO_DATA 102 ; 103 ;------------------------------------------------------------------------ 104 ;- define symbol - 105 ;------------------------------------------------------------------------ 106 ; 107 ; 108 ; 109 ;************************************************************************ 110 ;* * 111 ;* program start * 112 ;* * 113 ;************************************************************************ 114 ; 115 EXTEND 116 ; 117 MEM16 118 IDX8 119 ; 120 P000000 DPAGE EN0RAM 121 ; 122 Group_4 GROUP Enemy3_pro File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:49 1994 Page 0003 123 Enemy3_pro SECT REL 124 ; 125 ; 126 ;************************************************************************ 127 ;* initial * 128 ;************************************************************************ 129 000000 POLYCOLIN EQU $ ;[ENCLOR] vvv***** error: illegal operand type. 130 E000000 0000 WORD (POLYCOL0-POLYCOLD)+(POLYCOL1-POLYCOL0-2) ;[0] vvv***** error: illegal operand type. 131 E000002 0000 WORD (POLYCOL1-POLYCOLD)+(POLYCOL1-POLYCOL0-2) ;[1] 132 ; 133 000004 POLYCOLD EQU $ 134 E000004 02 04 06 POLYCOL0 BYTE (0886H&(1FH<<10))>>10,(0886H&(1FH<<5))>>5,0886H&1FH ;[0] 135 E000007 02 04 06 BYTE (0886H&(1FH<<10))>>10,(0886H&(1FH<<5))>>5,0886H&1FH 136 E00000A 00 00 00 BYTE (0000H&(1FH<<10))>>10,(0000H&(1FH<<5))>>5,0000H&1FH 137 E00000D 02 04 06 BYTE (0886H&(1FH<<10))>>10,(0886H&(1FH<<5))>>5,0886H&1FH ;[1] 138 E000010 02 04 06 BYTE (0886H&(1FH<<10))>>10,(0886H&(1FH<<5))>>5,0886H&1FH 139 E000013 00 00 00 BYTE (0000H&(1FH<<10))>>10,(0000H&(1FH<<5))>>5,0000H&1FH 140 E000016 0F 10 11 BYTE (3E11H&(1FH<<10))>>10,(3E11H&(1FH<<5))>>5,3E11H&1FH ;[2] 141 E000019 0D 07 05 BYTE (34E5H&(1FH<<10))>>10,(34E5H&(1FH<<5))>>5,34E5H&1FH 142 E00001C 0C 0A 0A BYTE (314AH&(1FH<<10))>>10,(314AH&(1FH<<5))>>5,314AH&1FH 143 E00001F 0F 10 11 BYTE (3E11H&(1FH<<10))>>10,(3E11H&(1FH<<5))>>5,3E11H&1FH ;[3] 144 E000022 0D 07 05 BYTE (34E5H&(1FH<<10))>>10,(34E5H&(1FH<<5))>>5,34E5H&1FH 145 E000025 0C 0A 0A BYTE (314AH&(1FH<<10))>>10,(314AH&(1FH<<5))>>5,314AH&1FH 146 ; 147 E000028 0C 10 16 POLYCOL1 BYTE (3216H&(1FH<<10))>>10,(3216H&(1FH<<5))>>5,3216H&1FH ;[2] 148 E00002B 0D 07 05 BYTE (34E5H&(1FH<<10))>>10,(34E5H&(1FH<<5))>>5,34E5H&1FH 149 E00002E 0C 0A 0A BYTE (314AH&(1FH<<10))>>10,(314AH&(1FH<<5))>>5,314AH&1FH 150 E000031 0C 10 16 BYTE (3216H&(1FH<<10))>>10,(3216H&(1FH<<5))>>5,3216H&1FH ;[3] 151 E000034 0D 07 05 BYTE (34E5H&(1FH<<10))>>10,(34E5H&(1FH<<5))>>5,34E5H&1FH 152 E000037 0C 0A 0A BYTE (314AH&(1FH<<10))>>10,(314AH&(1FH<<5))>>5,314AH&1FH 153 E00003A 0C 10 16 BYTE (3216H&(1FH<<10))>>10,(3216H&(1FH<<5))>>5,3216H&1FH ;[2] 154 E00003D 0D 07 05 BYTE (34E5H&(1FH<<10))>>10,(34E5H&(1FH<<5))>>5,34E5H&1FH 155 E000040 0C 0A 0A BYTE (314AH&(1FH<<10))>>10,(314AH&(1FH<<5))>>5,314AH&1FH 156 E000043 0C 10 16 BYTE (3216H&(1FH<<10))>>10,(3216H&(1FH<<5))>>5,3216H&1FH ;[3] 157 E000046 0D 07 05 BYTE (34E5H&(1FH<<10))>>10,(34E5H&(1FH<<5))>>5,34E5H&1FH 158 E000049 0C 0A 0A BYTE (314AH&(1FH<<10))>>10,(314AH&(1FH<<5))>>5,314AH&1FH 159 ; 160 00004C IWTSINX EQU $ 161 E00004C 0030 FFD0 WORD 00030H,0FFD0H 162 ; 163 000050 IWATSIN EQU $ 164 E000050 20 0092' JSR BG3USECK ;BG3 use check 165 ; 166 E000053 8B PHB ;(DBR) save 167 E000054 4B PHK ;(DBR) <-- (PBR) 168 E000055 AB PLB 169 ; 170 E000056 AC 006D LDY SCHMK1 171 E000059 BD 6ED0 LDA ENXPSL,X 172 E00005C 18 CLC 173 E00005D 79 004C' ADC !IWTSINX,Y 174 E000060 9D 6ED0 STA ENXPSL,X 175 E000063 09 0008 ORA #08H 176 E000066 8D 0B1E STA POLYXPS ;polygon center X pos set 177 E000069 A9 0104 LDA #0104H ;display center Z pos set 178 E00006C 8D 0B22 STA POLYZPS 179 E00006F 9C 0B1A STZ POLYANG 180 E000072 9C 0B1C STZ POLYMUK 181 ; File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:49 1994 Page 0004 182 E000075 BD 6E30 LDA ENCLOR,X 183 E000078 29 000E AND #07H*2 184 E00007B AA TAX 185 E00007C BC 0000' LDY !POLYCOLIN,X 186 E00007F A2 22 LDX #POLYCOL1-POLYCOL0-2 187 000081 IWTI010 EQU $ 188 E000081 B9 0004' LDA !POLYCOLD,Y 189 E000084 9F 703E16 STA >POLYCOL,X 190 E000088 88 DEY 191 E000089 88 DEY 192 E00008A CA DEX 193 E00008B CA DEX 194 E00008C 10 F3 BPL IWTI010 195 E00008E A6 12 LDX ENCLEAR 209 ; 210 00009C B3UC010 EQU $ 211 E00009C EE 0B18 INC BG3USEFG ;BG3 use "ON" !! 212 E00009F 60 RTS 213 ; 214 ;************************************************************************ 215 ;* move * 216 ;************************************************************************ 217 0000A0 POLYDIN EQU $ 218 E0000A0 00A6' WORD POLYDT ;[0] kabe 219 E0000A2 00C0' WORD POLYDT2 ;[1] small kabe 220 E0000A4 00DA' WORD POLYDT3 ;[2] 8 face 221 ; 222 0000A6 POLYDT EQU $ 223 E0000A6 04 HEX 4 ;[ point no ] 224 E0000A7 10 8E 70 BYTE 10H,-72H,70H ;[0] [ (Z),(Y),(Xwide) ] 225 E0000AA 00 8E 70 BYTE 00H,-72H,70H ;[1] [ (Z),(Y),(Xwide) ] 226 E0000AD 00 00 70 BYTE 00H, 00H,70H ;[2] [ (Z),(Y),(Xwide) ] 227 E0000B0 10 00 70 BYTE 10H, 00H,70H ;[3] [ (Z),(Y),(Xwide) ] 228 E0000B3 04 HEX 4 229 E0000B4 00 00 01 HEX 00,0,1 ;[ (color),(P1),(P2) ] 230 E0000B7 42 01 02 HEX 42,1,2 ;[ (color),(P1),(P2) ] 231 E0000BA 80 02 03 HEX 80,2,3 ;[ (color),(P1),(P2) ] 232 E0000BD C2 03 00 HEX C2,3,0 ;[ (color),(P1),(P2) ] 233 ; 234 0000C0 POLYDT2 EQU $ 235 E0000C0 04 HEX 4 ;[ point no ] 236 E0000C1 08 E0 50 BYTE 08H,-20H,50H ;[0] [ (Z),(Y),(Xwide) ] 237 E0000C4 F8 E0 50 BYTE -08H,-20H,50H ;[1] [ (Z),(Y),(Xwide) ] 238 E0000C7 F8 20 50 BYTE -08H, 20H,50H ;[2] [ (Z),(Y),(Xwide) ] 239 E0000CA 08 20 50 BYTE 08H, 20H,50H ;[3] [ (Z),(Y),(Xwide) ] 240 E0000CD 04 HEX 4 241 E0000CE 60 00 01 HEX 60,0,1 ;[ (color),(P1),(P2) ] 242 E0000D1 A2 01 02 HEX A2,1,2 ;[ (color),(P1),(P2) ] File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:49 1994 Page 0005 243 E0000D4 E0 02 03 HEX E0,2,3 ;[ (color),(P1),(P2) ] 244 E0000D7 22 03 00 HEX 22,3,0 ;[ (color),(P1),(P2) ] 245 ; 246 0000DA POLYDT3 EQU $ 247 ; HEX 8 ;[ point no ] 248 ; BYTE 00H,-1CH,70H ;[0] [ (Z),(Y),(Xwide) ] 249 ; BYTE -13H,-13H,70H ;[1] [ (Z),(Y),(Xwide) ] 250 ; BYTE -1CH, 00H,70H ;[2] [ (Z),(Y),(Xwide) ] 251 ; BYTE -13H, 13H,70H ;[3] [ (Z),(Y),(Xwide) ] 252 ; BYTE 00H, 1CH,70H ;[4] [ (Z),(Y),(Xwide) ] 253 ; BYTE 13H, 13H,70H ;[5] [ (Z),(Y),(Xwide) ] 254 ; BYTE 1CH, 00H,70H ;[5] [ (Z),(Y),(Xwide) ] 255 ; BYTE 13H,-13H,70H ;[5] [ (Z),(Y),(Xwide) ] 256 E0000DA 08 HEX 8 ;[ point no ] 257 E0000DB 00 C8 60 BYTE 00H,-38H,60H ;[0] [ (Z),(Y),(Xwide) ] 258 E0000DE D9 D9 60 BYTE -27H,-27H,60H ;[1] [ (Z),(Y),(Xwide) ] 259 E0000E1 C8 00 60 BYTE -38H, 00H,60H ;[2] [ (Z),(Y),(Xwide) ] 260 E0000E4 D9 27 60 BYTE -27H, 27H,60H ;[3] [ (Z),(Y),(Xwide) ] 261 E0000E7 00 38 60 BYTE 00H, 38H,60H ;[4] [ (Z),(Y),(Xwide) ] 262 E0000EA 27 27 60 BYTE 27H, 27H,60H ;[5] [ (Z),(Y),(Xwide) ] 263 E0000ED 38 00 60 BYTE 38H, 00H,60H ;[5] [ (Z),(Y),(Xwide) ] 264 E0000F0 27 D9 60 BYTE 27H,-27H,60H ;[5] [ (Z),(Y),(Xwide) ] 265 E0000F3 08 HEX 8 266 E0000F4 E0 00 01 HEX e0,0,1 ;[ (color),(P1),(P2) ] color high 4bit...n/16 267 E0000F7 C2 01 02 HEX c2,1,2 ;[ (color),(P1),(P2) ] n...n men_tai 268 E0000FA A1 02 03 HEX a1,2,3 ;[ (color),(P1),(P2) ] 269 E0000FD 83 03 04 HEX 83,3,4 ;[ (color),(P1),(P2) ] 270 E000100 60 04 05 HEX 60,4,5 ;[ (color),(P1),(P2) ] 271 E000103 42 05 06 HEX 42,5,6 ;[ (color),(P1),(P2) ] 272 E000106 21 06 07 HEX 21,6,7 ;[ (color),(P1),(P2) ] 273 E000109 03 07 00 HEX 03,7,0 ;[ (color),(P1),(P2) ] 274 ; 275 ;------------------------------------------------------------------------ 276 00010B ROTSPAD EQU $-1 277 E00010C FFFC 0001 WORD 0FFFCH,00001H 278 00010F ROTSPCP EQU $-1 279 E000110 F000 0200 WORD 0F000H,00200H 280 ; 281 000113 ROTANCP EQU $-1 282 ;;;; WORD 0FFB8H,00000H 283 E000114 FFC0 0000 WORD 0FFC0H,00000H 284 ; 285 ;-------------- player cross check data --------------------------------- 286 000060 PLZW EQU 060H 287 ; 288 000118 IWATSMV EQU $ 289 E000118 22 000000" JSL >ENMDCK ;mode check 290 ; 291 ;-------------- polygon move ------------------------------------ 292 E00011C BD 7884 LDA ENTIM0,X 293 E00011F F0 03 BEQ IWTS000 ;wait ? ( no:IWTS000 ) 294 E000121 4C 014D' JMP IWTS022 295 ; 296 000124 IWTS000 EQU $ 297 E000124 AC 0B1C LDY POLYMUK 298 E000127 D0 27 BNE IWTS020 ;down wait ? ( no:IWTS020 ) 299 ; 300 ;-------------- down wait ------------------------------- 301 E000129 BD 7A04 LDA EPWIDX,X 302 E00012C 18 CLC 303 E00012D 69 0030 ADC #030H File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:49 1994 Page 0006 304 E000130 C9 0061 CMP #060H+1 305 E000133 B0 18 BCS IWTS022 ;go down ok X wide ? ( no:IWTS022 ) 306 E000135 BD 7A06 LDA EPWIDY,X 307 E000138 18 CLC 308 E000139 69 0030 ADC #030H 309 E00013C C9 0061 CMP #060H+1 310 E00013F B0 0C BCS IWTS022 ;go down ok Y wide ? ( no:IWTS022 ) 311 ; 312 E000141 AD 60AE LDA PLMODE 313 E000144 C9 0000" CMP #PMOV 314 E000147 D0 04 BNE IWTS022 ;player normal move ? ( no:IWTS022 ) 315 ; 316 E000149 EE 0B1C INC POLYMUK 317 E00014C C8 INY 318 ; 319 00014D IWTS022 EQU $ 320 E00014D 4C 02D7' JMP IWTS050 321 ; 322 ;-------------- down move ------------------------------- 323 000150 IWTS020 EQU $ 324 ; 325 ;-------------- rotation ------------------------ 326 E000150 BD 7824 LDA ENWRK6,X ;down speed set 327 E000153 18 CLC 328 E000154 79 010B' ADC !ROTSPAD,Y 329 E000157 D9 010F' CMP !ROTSPCP,Y 330 E00015A D0 03 BNE IWTS030 ;max down speed over ? ( no:IWTS030 ) 331 E00015C B9 010F' LDA !ROTSPCP,Y 332 00015F IWTS030 EQU $ 333 E00015F 9D 7824 STA ENWRK6,X 334 E000162 BD 7826 LDA ENWRK8,X 335 E000165 29 00FF AND #00FFH 336 E000168 18 CLC 337 E000169 7D 7824 ADC ENWRK6,X 338 E00016C 9D 7826 STA ENWRK8,X 339 E00016F 29 FF00 AND #0FF00H 340 E000172 10 03 BPL IWTS040 341 E000174 09 00FF ORA #00FFH 342 000177 IWTS040 EQU $ 343 E000177 EB XBA 344 E000178 18 CLC 345 E000179 6D 0B1A ADC POLYANG 346 E00017C 8D 0B1A STA POLYANG 347 E00017F 38 SEC 348 E000180 F9 0113' SBC !ROTANCP,Y 349 E000183 59 010F' EOR !ROTSPCP,Y 350 E000186 30 2A BMI IWTS044 ;down end ? ( no:IWTS044 ) 351 ; 352 E000188 A9 00F0 LDA #4*60 353 E00018B 9D 7884 STA ENTIM0,X ;wait timer set 354 E00018E B9 0113' LDA !ROTANCP,Y ;rotation angle reset !! 355 E000191 8D 0B1A STA POLYANG 356 E000194 9E 7824 STZ ENWRK6,X ;rotation speed reset !! 357 E000197 9E 7826 STZ ENWRK8,X ; " 358 ; 359 E00019A A9 0000 LDA #00 360 E00019D 88 DEY 361 E00019E D0 0F BNE IWTS042 ;go to wait ? ( no:IWTS042 ) 362 ; 363 E0001A0 A9 0018 LDA #18H ;[♪] 364 E0001A3 8D 0053 STA SOUND3 File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:49 1994 Page 0007 365 ; 366 E0001A6 A9 0060 LDA #060H 367 E0001A9 8D 61C2 STA TILTCT ;tilt set !! 368 E0001AC A9 0003 LDA #03H 369 0001AF IWTS042 EQU $ 370 E0001AF 8D 0B1C STA POLYMUK ;go to up move !! 371 ; 372 ;-------------- player cross check ------------------------------ 373 0001B2 IWTS044 EQU $ 374 E0001B2 9B TXY ;(Y) <-- enemy index 375 ; 376 ;-------------- polygon cross Y size set ---------------- 377 ; 378 I16 378+ E0001B3 C2 10 REP #00010000B 379 ; 380 E0001B5 AD 0B1A LDA POLYANG 381 E0001B8 89 0040 BIT #040H 382 E0001BB 08 PHP 383 E0001BC F0 04 BEQ IWTS44E 384 E0001BE 49 003F EOR #03FH 385 E0001C1 1A INC A 386 0001C2 IWTS44E EQU $ 387 E0001C2 49 00FF EOR #0FFH 388 E0001C5 1A INC A 389 E0001C6 29 003F AND #03FH 390 E0001C9 0A ASL A 391 E0001CA AA TAX 392 E0001CB BF 000000" LDA >TAN,X 393 E0001CF 28 PLP 394 E0001D0 D0 04 BNE IWTS44F 395 E0001D2 49 FFFF EOR #0FFFFH 396 E0001D5 1A INC A 397 0001D6 IWTS44F EQU $ 398 ; 399 M8 399+ E0001D6 E2 20 SEP #00100000B 400 ; 401 E0001D8 8D 211B STA 211BH 402 E0001DB EB XBA 403 E0001DC 8D 211B STA 211BH 404 E0001DF A9 60 LDA #PLZW 405 E0001E1 8D 211C STA 211CH 406 ; 407 M16 407+ E0001E4 C2 20 REP #00100000B 408 ; 409 E0001E6 AD 2135 LDA 2135H 410 E0001E9 8D 0B24 STA POLYHIGH ;player cross check polygon high 411 ; 412 ;-------------- player X cross check -------------------- 413 E0001EC AD 60AE LDA PLMODE 414 E0001EF C9 0000" CMP #PGUS 415 E0001F2 F0 43 BEQ IWTS04402 ;player "Gusha" !! mode ? ( yes:IWTS04402 ) 416 ; 417 E0001F4 AD 0B1C LDA POLYMUK 418 E0001F7 3A DEC A 419 E0001F8 D0 3D BNE IWTS04402 ;polygon down muki ? ( no:IWTS04402 ) 420 ; 421 E0001FA AD 0B22 LDA POLYZPS ; player cross check X wide calculate 422 E0001FD 38 SEC ; File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:49 1994 Page 0008 423 E0001FE E9 0060 SBC #PLZW ; 424 E000201 0A ASL A ; 425 E000202 AA TAX ; 426 E000203 BF 702200 LDA >DIVBUF,X ; 427 E000207 85 00 STA SIN,X 465 ; 466 M8 466+ E000246 E2 20 SEP #00100000B 467 ; 468 E000248 8D 211B STA 211BH 469 E00024B EB XBA 470 E00024C 8D 211B STA 211BH 471 E00024F A9 70 LDA #070H ;(A) <-- polygon high 472 E000251 8D 211C STA 211CH 473 E000254 AD 2135 LDA 2135H ;(A) <-- zw = polygon hogh * sin 474 E000257 C9 60 CMP #PLZW 475 E000259 90 77 BCC IWTS0449 ;player Z pos cross ? ( no:IWTS0449 ) 476 ; 477 M16 477+ E00025B C2 20 REP #00100000B 478 ; 479 E00025D A9 000B LDA #0FH-04H File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:49 1994 Page 0009 480 E000260 AE 60C6 LDX PLSITD 481 E000263 F0 03 BEQ IWTS0442 ;player sit down ? ( no:IWTS0442 ) 482 ; 483 E000265 A9 0005 LDA #0FH-0AH 484 000268 IWTS0442 EQU $ 485 E000268 18 CLC 486 E000269 79 7470 ADC ENDSYL,Y 487 E00026C 38 SEC 488 E00026D ED 60B4 SBC PLDSYL 489 E000270 30 62 BMI IWTS04490 ;player cross ? ( no:IWTS04490 ) 490 E000272 38 SEC 491 E000273 ED 0B24 SBC POLYHIGH 492 E000276 90 5C BCC IWTS04490 ; " 493 ; 494 ;-------------- player cross !! ------------------------- 495 E000278 AE 60C4 LDX PLJUMP 496 E00027B F0 23 BEQ IWTS0444 ;player jump ? ( no:IWTS0444 ) 497 ; 498 E00027D AE 6092 LDX PLYSPD 499 E000280 10 03 BPL IWTS0443 ;player jump up ? ( yes:IWTS0443 ) 500 E000282 9C 6092 STZ PLYSPD ; " Y speed clear !! 501 ; 502 000285 IWTS0443 EQU $ 503 E000285 18 CLC 504 E000286 6D 608E ADC PLYPSL 505 E000289 8D 608E STA PLYPSL ;player hed pos hosei !! 506 E00028C 18 CLC 507 E00028D 69 0010 ADC #010H 508 E000290 38 SEC 509 E000291 F9 6F70 SBC ENYPSL,Y 510 E000294 30 3E BMI IWTS04490 ;foot BG cross ? ( no:IWTS04490 ) 511 ; 512 E000296 49 FFFF EOR #0FFFFH 513 E000299 38 SEC ;[ INC A ] 514 E00029A 6D 608E ADC PLYPSL 515 E00029D 8D 608E STA PLYPSL ;player foot pos hosei !! 516 ; 517 ;-------------- player "Gusha" !! --------------- 518 0002A0 IWTS0444 EQU $ 519 E0002A0 A9 0000" LDA #PGUS 520 E0002A3 8D 60AE STA PLMODE ;player "Gusha" !! mode set 521 E0002A6 9C 6090 STZ PLXSPD ; " X speed claer !! 522 E0002A9 9C 6092 STZ PLYSPD ; " Y " 523 ; 524 E0002AC A5 00 LDA DIVBUF,X 528 ; 529 M8 529+ E0002B4 E2 20 SEP #00100000B 530 ; 531 E0002B6 8D 211B STA 211BH 532 E0002B9 EB XBA 533 E0002BA 8D 211B STA 211BH 534 E0002BD A5 04 LDA CHIPON 593 ; File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:49 1994 Page 0011 594 E000320 22 000000" JSL >M_DMA_BFST 595 E000324 7E51A4 LWORD HDMABUF ;転送先アドレス 596 E000327 703522 LWORD HDMABF ;転送元アドレス 597 E00032A 0164 WORD (0B2H*2) ;転送バイト数 598 ; 599 ;-------------- PPU Reg. set ---------------------------- 600 E00032C A0 10 LDY #10H 601 E00032E AE 0B1A LDX POLYANG 602 E000331 CA DEX 603 E000332 E0 BF CPX #0BFH 604 E000334 B0 02 BCS IWTS060 ;BG3 pri. up ? ( no:IWTS060 ) 605 E000336 A0 14 LDY #14H 606 000338 IWTS060 EQU $ 607 E000338 8C 07E9 STY MANSEL ;main select set 608 E00033B A0 07 LDY #07H 609 E00033D 8C 07EA STY SUBSEL ;sub select set 610 E000340 A0 02 LDY #02H 611 E000342 8C 07ED STY WIND30 ;sub screen add set 612 E000345 A0 20 LDY #20H 613 E000347 8C 07EE STY SUBADF ;sub & add screen set 614 E00034A A9 0010 LDA #00010000B 615 E00034D 0C 07D1 TSB HD420C ;H-DMA "ON" !! 616 ; 617 E000350 A6 12 LDX DISPCK1 628 E000357 90 03 BCC B3DC010 ;display pos ok ? ( yes:B3DC010 ) 629 ; 630 ;-------------- not display clear set ------------------- 631 E000359 9C 0B18 STZ BG3USEFG ;BG3 use cancel !! 632 ; 633 ;-------------- polygon move ------------------------------------ 634 00035C B3DC010 EQU $ 635 E00035C 6B RTL 636 ; 637 ; 638 ;************************************************************************ 639 ;* initial * 640 ;************************************************************************ 641 00035D TSUBOIN EQU $ 642 E00035D AD 017A LDA BG2TYP 643 E000360 C9 0016 CMP #16H 644 E000363 F0 01 BEQ DXCHRST_INIT ;ひみつ？ ( no:DXCHRST_INIT ) 645 E000365 6B RTL 646 ; 647 ; 648 000366 DXCHRST_INIT EQU $ 649 E000366 B4 18 LDY TROBJ_CANCEL 657 ; 658 M8 658+ E00036E E2 20 SEP #00100000B 659 ; 660 E000370 A9 0F LDA #0FH ;Ｈ−ＤＭＡパラメータ変更 661 E000372 8D 4331 STA 4331H 662 E000375 A9 10 LDA #10H 663 E000377 8D 4341 STA 4341H 664 ; 665 M16 665+ E00037A C2 20 REP #00100000B 666 ; 667 E00037C 9C 0A89 STZ CHNG_CHR_CNT 668 E00037F 9C 0A8B STZ CHNG_CHR_BYTE 669 E000382 9C 0188 STZ CHRTRP ;ＢＧキャラクター転送無しセット（常駐のみ） 670 E000385 9C 0CF2 STZ BG2SPF ;ＢＧ２ 671 E000388 9C 0CFA STZ BG3SPF 672 ; 673 E00038B A9 0000" LDA #EINIT 674 E00038E 9D 6CEE STA ENMODE,X 675 E000391 F6 18 INC UNCOMPRES_X 720 ; 721 E0003CE 8D 0A8B STA CHNG_CHR_BYTE ;解凍データバイト数セット 722 E0003D1 EE 0A89 INC CHNG_CHR_CNT ;カウンターＵＰ 723 ; 724 0003D4 DXCHRST_IN_2_20 EQU $ 725 E0003D4 38 SEC 726 E0003D5 E9 0800 SBC #0800H 727 E0003D8 B0 08 BCS DXCHRST_IN_2_30 ;解凍データ終り？ ( no:DXCHRST_IN_2_30 ) 728 ; 729 ;;;; CLC 730 E0003DA 69 0800 ADC #0800H 731 E0003DD 85 00 STA VRAMDX_ST 746 ; 747 E0003FE A5 00 LDA ENMDCK ;mode check 765 ; 766 ;-------------- player cross check ------------------------------ 767 E000417 AD 61B6 LDA ONLFFG 768 E00041A D0 04 BNE TSBM008 ;player on check ok ? ( yes:TSBM008 ) 769 ; 770 E00041C 22 000000" JSL >POBBGCR ;player OBJ BG cross check File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:49 1994 Page 0014 771 ; 772 ;-------------- tsubo move -------------------------------------- 773 000420 TSBM008 EQU $ 774 E000420 B5 18 LDA ENINSR 801 E000452 90 1B BCC TSBM030 ;obake set ok ? ( no:TSBM030 ) 802 ; 803 E000454 BD 6ED0 LDA ENXPSL,X ;obake X pos set 804 E000457 99 6ED0 STA ENXPSL,Y 805 E00045A BD 6F70 LDA ENYPSL,X ; " Y " 806 E00045D 99 6F70 STA ENYPSL,Y 807 E000460 A9 0068 LDA #068H 808 E000463 99 77C6 STA ENWRK4,Y ;initial face Y pos set 809 E000466 A9 0500 LDA #0500H 810 E000469 99 7884 STA ENTIM0,Y 811 ; 812 E00046C 98 TYA 813 E00046D 95 19 STA 00 67.5 45 22.5 00 888 ; [0/5] [1/6] [2/7] [3/8] [4/9] 889 E0004D0 000E 000E 000A WORD 07H*2,07H*2,05H*2,03H*2,00H*2 E0004D6 0006 0000 890 E0004DA 0010 0010 000C WORD 08H*2,08H*2,06H*2,04H*2,00H*2 E0004E0 0008 0000 891 0004E4 BG3PCRYS EQU $ 892 E0004E4 0400 0400 0300 WORD 0400H,0400H,0300H,0200H,0200H E0004EA 0200 0200 893 E0004EE 0400 0400 0300 WORD 0400H,0400H,0300H,0200H,0200H E0004F4 0200 0200 894 ; 895 0004F8 OBSDCRXA EQU $ 896 E0004F8 FFE0 0020 WORD 0FFE0H,00020H 897 0004FC OBSDCRXC EQU $ 898 E0004FC FE00 0200 WORD 0FE00H,00200H 899 ; 900 000500 OBAKEMV EQU $ 901 E000500 A9 0001 LDA #01H ;scroll stop !! 902 E000503 8D 0ADC STA SCRL_STOP 903 ; 904 ;-------------- face OAM change --------------------------------- 905 E000506 BD 728F LDA ENYUSN-1,X 906 E000509 1D 7150 ORA ENOAML,X 907 E00050C 30 68 BMI OBAM0FF ;OAM not set ? ( yes:OBAM0FF ) 908 ; 909 I16 909+ E00050E C2 10 REP #00010000B 910 ; 911 E000510 BD 7470 LDA ENDSYL,X 912 E000513 38 SEC 913 E000514 F5 78 SBC HDMABUF2,X 931 E000533 85 02 STA HDMABUF,X 933 E000539 38 SEC 934 E00053A 65 00 ADC ENMDCK ;mode check 974 ; 975 ;-------------- obake move -------------------------------------- 976 E00057A B4 18 LDY ENCLEAR ;obake move end !! 1002 ; 1003 ;-------------- obake under face shot end set --- 1004 0005AA OBAM018 EQU $ 1005 E0005AA 74 18 STZ PLFLST 1099 ; 1100 ;-------------- face pattern no. set ---------------------------- 1101 000640 OBAM0408 EQU $ 1102 E000640 A9 0005 LDA #05 ;(A) <-- fire shot face pattern no. 1103 E000643 BC 78E4 LDY ENTIM2,X 1104 E000646 D0 7E BNE OBAM070 ;fire shot face ? ( yes:OBAM070 ) 1105 ; 1106 E000648 B4 18 LDY CHIPON 1214 ; 1215 E000711 22 000000" JSL >M_DMA_BFST 1216 E000715 7E51A4 LWORD HDMABUF ;転送先アドレス 1217 E000718 703522 LWORD HDMABF ;転送元アドレス 1218 E00071B 02C8 WORD (0B2H*2*2) ;転送バイト数 1219 ; 1220 E00071D A6 12 LDX >1 1249 E000755 F0 22 BEQ OBAM120 ;side cross ? ( no:OBAM120 ) 1250 ; 1251 ;-------------- side cross ------------------------------ 1252 000757 OBAM100 EQU $ 1253 E000757 A0 00 LDY #00H 1254 E000759 BD 7A04 LDA EPWIDX,X 1255 E00075C 10 02 BPL OBAM110 1256 E00075E A0 02 LDY #02H 1257 000760 OBAM110 EQU $ 1258 E000760 AD 6090 LDA PLXSPD 1259 E000763 18 CLC 1260 E000764 79 04F8' ADC !OBSDCRXA,Y 1261 E000767 8D 60B6 STA PLMVSP 1262 E00076A 38 SEC 1263 E00076B F9 04FC' SBC !OBSDCRXC,Y 1264 E00076E 59 04F8' EOR !OBSDCRXA,Y 1265 E000771 30 06 BMI OBAM120 ;max speed over ? ( no:OBAM120 ) 1266 ; 1267 E000773 B9 04FC' LDA !OBSDCRXC,Y 1268 E000776 8D 60B6 STA PLMVSP 1269 ; 1270 ;-------------- PPU Reg. set ------------------------------------ 1271 000779 OBAM120 EQU $ 1272 E000779 AD 017A LDA BG2TYP 1273 E00077C C9 0016 CMP #16H 1274 E00077F D0 11 BNE OBAM130 1275 ; 1276 E000781 A0 15 LDY #15H 1277 E000783 8C 07E9 STY MANSEL ;main select set 1278 E000786 A0 02 LDY #02H 1279 E000788 8C 07EA STY SUBSEL ;sub select set 1280 E00078B A0 65 LDY #65H 1281 E00078D 8C 07EE STY SUBADF ;sub & add screen set 1282 E000790 80 0F BRA OBAM140 1283 ; 1284 000792 OBAM130 EQU $ 1285 E000792 A0 13 LDY #13H 1286 E000794 8C 07E9 STY MANSEL ;main select set 1287 E000797 A0 04 LDY #04H 1288 E000799 8C 07EA STY SUBSEL ;sub select set 1289 E00079C A0 63 LDY #63H 1290 E00079E 8C 07EE STY SUBADF ;sub & add screen set 1291 0007A1 OBAM140 EQU $ 1292 E0007A1 A0 22 LDY #22H 1293 E0007A3 8C 07ED STY WIND30 ;sub screen add set 1294 E0007A6 A9 0018 LDA #00011000B 1295 E0007A9 0C 07D1 TSB HD420C ;H-DMA "ON" !! 1296 ; 1297 ;-------------- color set --------------------------------------- File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0023 1298 E0007AC A9 7FFF LDA #7FFFH 1299 E0007AF 8F 70200A STA >DATACOL+(05H*2) 1300 E0007B3 8F 702DC2 STA >MOTOCOL+(05H*2) 1301 E0007B7 A9 6AEA LDA #6AEAH 1302 E0007BA 8F 70200C STA >DATACOL+(06H*2) 1303 E0007BE 8F 702DC4 STA >MOTOCOL+(06H*2) 1304 E0007C2 A9 0000 LDA #0000H 1305 E0007C5 8F 70200E STA >DATACOL+(07H*2) 1306 E0007C9 8F 702DC6 STA >MOTOCOL+(07H*2) 1307 E0007CD 6B RTL 1308 ; 1309 ;---------------------------------------------------------------- 1310 ;- fire shot check - 1311 ;---------------------------------------------------------------- 1312 0007CE OBFIRTM EQU $ 1313 E0007CE 01A0 01F0 0240 WORD 001A0H,01F0H,0240H 1314 ; 1315 0007D4 OBFIRXS EQU $ 1316 E0007D4 FE80 0180 WORD 0FE80H,00180H 1317 0007D8 OBFIRXA EQU $ 1318 E0007D8 FFF8 0008 WORD 0FFF8H,00008H 1319 ; 1320 0007DC OBAFIRCK EQU $ 1321 E0007DC BD 7884 LDA ENTIM0,X 1322 E0007DF A0 04 LDY #(3-1)*2 1323 0007E1 OBFRC010 EQU $ 1324 E0007E1 D9 07CE' CMP !OBFIRTM,Y 1325 E0007E4 F0 05 BEQ OBFRC020 ;fire shot timming ? ( yes:OBFRC020 ) 1326 E0007E6 88 DEY 1327 E0007E7 88 DEY 1328 E0007E8 10 F7 BPL OBFRC010 1329 E0007EA 60 RTS 1330 ; 1331 ;-------------- fire shot !! ---------------------------- 1332 0007EB OBFRC020 EQU $ 1333 E0007EB A9 0000" LDA #OBFIR ;(A) <-- enemy no. 1334 E0007EE 22 000000" JSL >ENINSR 1335 E0007F2 90 46 BCC OBFRC030 ;area nothing ? ( yes:OBFRC030 ) 1336 ; 1337 E0007F4 BD 6F70 LDA ENYPSL,X 1338 E0007F7 38 SEC 1339 E0007F8 F5 78 SBC ENMDCK ;mode check 1401 ; 1402 E000898 F6 16 INC EPCRCK 1406 ; 1407 ;-------------- obake fire move --------------------------------- 1408 E00089E BD 7884 LDA ENTIM0,X 1409 E0008A1 D0 19 BNE OBFR002 ;end ? ( no:OBFR002 ) 1410 ; File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0025 1411 ;-------------- fire clear !! ----------------------------------- 1412 E0008A3 A9 0008 LDA #08H 1413 E0008A6 9D 732E STA ENXPOW,X 1414 E0008A9 9E 73CE STZ ENXMAX,X 1415 E0008AC A9 0040 LDA #040H 1416 E0008AF 9D 7330 STA ENGPOW,X 1417 E0008B2 A9 FF80 LDA #0FF80H 1418 E0008B5 9D 73D0 STA ENGMAX,X 1419 E0008B8 A0 02 LDY #02 ;(Y) <-- pattern change data index 1420 E0008BA 80 4E BRA OBFR070 1421 ; 1422 0008BC OBFR002 EQU $ 1423 E0008BC BD 73CE LDA ENXMAX,X 1424 E0008BF D0 0F BNE OBFR010 ;player search move ? ( yes:OBFR010 ) 1425 ; 1426 ;-------------- fire shot initial stop move --------------------- 1427 E0008C1 BD 700E LDA ENXSPD,X 1428 E0008C4 D0 42 BNE OBFR060 ;go to player search move ? ( no:OBFR060 ) 1429 ; 1430 E0008C6 9E 732E STZ ENXPOW,X ;X power clear !! 1431 E0008C9 BD 78E4 LDA ENTIM2,X 1432 E0008CC D0 3A BNE OBFR060 ;wait ? ( yes:OBFR060 ) 1433 E0008CE 80 0C BRA OBFR020 1434 ; 1435 ;-------------- player search move ------------------------------ 1436 0008D0 OBFR010 EQU $ 1437 E0008D0 B5 16 LDA ENCLEAR 1486 ; 1487 000920 OBFR072 EQU $ 1488 E000920 B9 0840' LDA !OBFRPRS,Y 1489 000923 OBFR080 EQU $ 1490 E000923 95 18 STA >10,(2EBBH&(1FH<<5))>>5,2EBBH&1FH ;line.1 (big face) 1551 E00095D 12 1A 1F BYTE (4B5FH&(1FH<<10))>>10,(4B5FH&(1FH<<5))>>5,4B5FH&1FH ; " .2 1552 E000960 18 1D 1F BYTE (63BFH&(1FH<<10))>>10,(63BFH&(1FH<<5))>>5,63BFH&1FH ; " .3 1553 E000963 03 05 08 BYTE (0CA8H&(1FH<<10))>>10,(0CA8H&(1FH<<5))>>5,0CA8H&1FH ;line.1 (small face) 1554 E000966 03 0A 11 BYTE (0D51H&(1FH<<10))>>10,(0D51H&(1FH<<5))>>5,0D51H&1FH ; " .2 1555 E000969 08 0F 17 BYTE (21F7H&(1FH<<10))>>10,(21F7H&(1FH<<5))>>5,21F7H&1FH ; " .3 1556 00096C POLY1COLE EQU $ 1557 ; 1558 00096C POLY1IN EQU $ 1559 ; 1560 ;-------------- H-DMA parameter set ----------------------------- 1561 ; 1562 M8 1562+ E00096C E2 20 SEP #00100000B 1563 ; 1564 E00096E A2 04 LDX #04 1565 000970 POL1I010 EQU $ 1566 E000970 BD 093F' LDA !POL1HDP1,X 1567 E000973 9D 4310 STA 4310H,X 1568 E000976 BD 094B' LDA !POL1HDP2,X 1569 E000979 9D 4320 STA 4320H,X 1570 E00097C BD 0955' LDA !POL1HDP3,X 1571 E00097F 9D 4330 STA 4330H,X 1572 E000982 BD 0950' LDA !POL1HDP5,X 1573 E000985 9D 4350 STA 4350H,X 1574 E000988 CA DEX 1575 E000989 10 E5 BPL POL1I010 1576 E00098B A9 7E LDA #BANK HDMABUF 1577 E00098D 8D 4317 STA 4317H 1578 E000990 8D 4327 STA 4327H 1579 E000993 8D 4337 STA 4337H 1580 E000996 8D 4357 STA 4357H 1581 ; 1582 E000999 A2 06 LDX #POL1HDPD1E-POL1HDPD1-1 1583 00099B POL1I020 EQU $ 1584 E00099B BD 0944' LDA !POL1HDPD1,X 1585 E00099E 9F 7E5B18 STA >HDMAPR2,X 1586 E0009A2 CA DEX 1587 E0009A3 10 F6 BPL POL1I020 1588 E0009A5 A2 6F LDX #070H-1 1589 E0009A7 A9 09 LDA #09H ;(A) <-- C.G address 1590 0009A9 POL1I030 EQU $ File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0028 1591 E0009A9 9F 7E53B0 STA >HDMABUF2+(1+2)*8+(1+2)*3*8*2,X 1592 E0009AD CA DEX 1593 E0009AE 10 F9 BPL POL1I030 1594 ; 1595 M16 1595+ E0009B0 C2 20 REP #00100000B 1596 ; 1597 ;-------------- polygon face color set -------------------------- 1598 E0009B2 A2 10 LDX #POLY1COLE-POLY1COLD-2 1599 0009B4 POL1I040 EQU $ 1600 E0009B4 BD 095A' LDA !POLY1COLD,X 1601 E0009B7 9F 703E16 STA >POLYCOL,X 1602 E0009BB CA DEX 1603 E0009BC CA DEX 1604 E0009BD 10 F5 BPL POL1I040 1605 E0009BF A9 0000 LDA #0000H 1606 E0009C2 8F 702016 STA >DATACOL+(2*8)+6 1607 E0009C6 8F 702DCE STA >MOTOCOL+(2*8)+6 1608 E0009CA A6 12 LDX ENMDCK ;mode check 1626 ; 1627 ;-------------- player cross check ------------------------------ 1628 E0009E0 AC 0B30 LDY POLYONFG 1629 E0009E3 F0 0D BEQ POL1M0FF ;player now on ? ( no:POL1M0FF ) 1630 ; 1631 E0009E5 AD 0B27 LDA POLYPLX 1632 E0009E8 85 00 STA COS,X 1659 E000A11 85 02 STA DIVBUF,X 1667 E000A1F 4A LSR A ;1/2 1668 ; 1669 MI8 1669+ E000A20 E2 30 SEP #00110000B 1670 ; 1671 E000A22 8D 211B STA 211BH 1672 E000A25 EB XBA 1673 E000A26 8D 211B STA 211BH 1674 E000A29 A5 00 LDA SIN,X 1734 E000A8E 0A ASL A ;x8 1735 E000A8F 0A ASL A ; 1736 E000A90 0A ASL A ; 1737 ; 1738 MI8 1738+ E000A91 E2 30 SEP #00110000B 1739 ; 1740 E000A93 8D 211B STA 211BH 1741 E000A96 EB XBA 1742 E000A97 8D 211B STA 211BH 1743 E000A9A AD 0B27 LDA POLYPLX 1744 E000A9D 8D 211C STA 211CH 1745 ; 1746 M16 1746+ E000AA0 C2 20 REP #00100000B 1747 ; 1748 E000AA2 AD 2135 LDA 2135H 1749 E000AA5 49 FFFF EOR #0FFFFH 1750 E000AA8 1A INC A 1751 E000AA9 8D 61BA STA ONLFXS ;lift on X speed set !! 1752 ; 1753 E000AAC A6 12 LDX CHIPON 1782 E000AEC 4C 0B2D' JMP POL1M060 1783 ; 1784 ;-------------- 1st polygon set --------------------------------- 1785 000AEF POL1M050 EQU $ 1786 E000AEF EE 0B32 INC POLYINFG ;1st check flag "OFF" !! 1787 ; 1788 M_CHIP BG3POLY1IN 1788+ E000AF2 A2 08 LDX #BANK BG3POLY1IN vvv***** warning: value out of range. 1788+ E000AF4 A9 9899 LDA #BG3POLY1IN 1788+ E000AF7 22 000000" JSL >CHIPON 1789 ; 1790 ;-------------- H-DMA buffer transfer set --------------- 1791 E000AFB 22 000000" JSL >M_DMA_BFST 1792 E000AFF 7E5308 LWORD HDMABUF2 ;転送先アドレス 1793 E000B02 703686 LWORD HDMABF1 ;転送元アドレス 1794 E000B05 00A8 WORD (1+2)*8+(1+2)*3*8*2 ;転送バイト数 1795 ; 1796 E000B07 22 000000" JSL >M_DMA_BFST 1797 E000B0B 7E51A4 LWORD HDMABUF ;転送先アドレス 1798 E000B0E 703522 LWORD HDMABF ;転送元アドレス 1799 E000B11 0164 WORD (0B2H*2) ;転送バイト数 1800 ; 1801 ;-------------- PPU Reg. set ---------------------------- 1802 E000B13 A0 10 LDY #10H 1803 E000B15 8C 07E9 STY MANSEL ;main select set 1804 E000B18 A0 07 LDY #07H 1805 E000B1A 8C 07EA STY SUBSEL ;sub select set 1806 E000B1D A0 02 LDY #02H 1807 E000B1F 8C 07ED STY WIND30 ;sub screen add set 1808 E000B22 A0 20 LDY #20H 1809 E000B24 8C 07EE STY SUBADF ;sub & add screen set 1810 E000B27 A9 003E LDA #00111110B 1811 E000B2A 0C 07D1 TSB HD420C ;H-DMA "ON" !! 1812 ; 1813 000B2D POL1M060 EQU $ 1814 E000B2D A6 12 LDX TROBJ_SR_2x2_CL 1822 E000B34 6B RTL 1823 ; 1824 ;************************************************************************ 1825 ;* move ( moji polygon ) * 1826 ;************************************************************************ 1827 000B35 MOJI0MV EQU $ 1828 E000B35 22 000000" JSL >TROBJ_OAM_2x2 1829 ; 1830 E000B39 22 000000" JSL >ENMDCK ;mode check 1831 ; 1832 ;-------------- OBJ mode7 calculate timming check --------------- 1833 TROBJ_CHK_4 1833+ E000B3D BD 7510 LDA ENTROB,X 1833+ E000B40 4A LSR A 1833+ E000B41 4A LSR A 1833+ E000B42 4A LSR A 1833+ E000B43 38 SEC 1833+ E000B44 ED 0030 SBC FRCNT 1833+ E000B47 29 0003 AND #03H 1834 E000B4A D0 3E BNE MJ0M010 ;OBJ mode7 calculate ok ? ( no:MJ0M010 ) 1835 ; 1836 ;-------------- OBJ mode 7 set ---------------------------------- 1837 E000B4C A9 0005 LDA #05H ;["?"] 1838 E000B4F 8D 3002 STA R1 ;(R1) <-- moji no. 1839 E000B52 A9 0000 LDA #00H 1840 E000B55 8D 3004 STA R2 ;(R2) <-- X angle 1841 E000B58 AD 0030 LDA FRCNT 1842 E000B5B 0A ASL A 1843 E000B5C 29 00FF AND #00FFH 1844 E000B5F 8D 3006 STA R3 ;(R3) <-- Y " 1845 E000B62 BC 7510 LDY ENTROB,X 1846 E000B65 BB TYX 1847 E000B66 BF 000000" LDA >TROBJ_PLOT_X,X 1848 E000B6A 8D 3008 STA R4 ;(R4) <-- plot start X pos 1849 E000B6D BF 000000" LDA >TROBJ_PLOT_Y,X 1850 E000B71 8D 300A STA R5 ;(R5) <-- " Y " 1851 E000B74 A9 001E LDA #01EH 1852 E000B77 8D 300C STA R6 ;(R6) <-- zoom flag 1853 ; 1854 I8 1854+ E000B7A E2 10 SEP #00010000B 1855 ; 1856 M_CHIP MOJIPOLY 1856+ E000B7C A2 08 LDX #BANK MOJIPOLY vvv***** warning: value out of range. 1856+ E000B7E A9 A7FE LDA #MOJIPOLY 1856+ E000B81 22 000000" JSL >CHIPON 1857 ; 1858 E000B85 EE 0B98 INC OBM7WF ;mode 7 OBJ chara DMA "ON" 1859 ; 1860 E000B88 A6 12 LDX TROBJ_SR_4x4_CL 1873 ; 1874 E000BAD A2 1C LDX #0EH*2 1875 000BAF KERO0I_010 EQU $ 1876 E000BAF BD 0B8B' LDA !MJDEBUG_COL,X 1877 E000BB2 9F 702102 STA >DATACOL+(81H*2),X 1878 E000BB6 CA DEX 1879 E000BB7 CA DEX 1880 E000BB8 10 F5 BPL KERO0I_010 1881 E000BBA A6 12 LDX TROBJ_OAM_4x4 1892 ; 1893 E000BC9 22 000000" JSL >ENMDCK ;mode check 1894 ; 1895 ;-------------- OBJ mode7 calculate timming check --------------- 1896 ;;;; TROBJ_CHK_4 1897 ;;;; BNE KERO0M_010 ;OBJ mode7 calculate ok ? ( no:KERO0M_010 ) 1898 ; 1899 ;-------------- OBJ mode 7 set ---------------------------------- 1900 E000BCD A9 0005 LDA #05H ;["?"] 1901 E000BD0 8D 3002 STA R1 ;(R1) <-- moji no. 1902 E000BD3 AD 07C8 LDA KEYB1 1903 E000BD6 29 000C AND #00001100B 1904 E000BD9 4A LSR A 1905 E000BDA A8 TAY 1906 E000BDB B5 18 LDA TROBJ_PLOT_X,X File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0034 1925 E000C07 8D 3008 STA R4 ;(R4) <-- plot start X pos 1926 E000C0A BF 000000" LDA >TROBJ_PLOT_Y,X 1927 E000C0E 8D 300A STA R5 ;(R5) <-- " Y " 1928 E000C11 A9 0034 LDA #034H 1929 E000C14 8D 300C STA R6 ;(R6) <-- zoom flag 1930 ; 1931 I8 1931+ E000C17 E2 10 SEP #00010000B 1932 ; 1933 M_CHIP MOJIPOLY4 1933+ E000C19 A2 08 LDX #BANK MOJIPOLY4 vvv***** warning: value out of range. 1933+ E000C1B A9 A7C8 LDA #MOJIPOLY4 1933+ E000C1E 22 000000" JSL >CHIPON 1934 ; 1935 E000C22 EE 0B98 INC OBM7WF ;mode 7 OBJ chara DMA "ON" 1936 ; 1937 E000C25 A6 12 LDX TROBJ_OAM_8x4_I 2025 ; 2026 I16 2026+ E000CBF C2 10 REP #00010000B 2027 ; 2028 E000CC1 BD 7150 LDA ENOAML,X 2029 E000CC4 18 CLC 2030 E000CC5 69 0040 ADC #(8*8) 2031 E000CC8 A8 TAY 2032 ; 2033 ;-------------- リングＯＡＭセット ------------------------------ 2034 000CC9 GT0M0FD EQU $ 2035 E000CC9 8C 3006 STY R3 ;(R3) <-- OAM index 2036 E000CCC 8A TXA 2037 E000CCD 8D 3002 STA R1 ;(R1) <-- enmy index 2038 E000CD0 B5 76 LDA CHIPON 2049 E000CEE A6 12 LDX ENMDCK ;mode check 2053 ; 2054 ;-------------- star rotation ----------------------------------- 2055 E000CF4 F6 76 INC TROBJ_SR_8x4 2165 E000DA9 90 0A BCC GT0M110 ;エリア確保？ ( no:GT0M110 ) 2166 ; 2167 ;-------------- タイマーポリゴン初期セット ---------------------- 2168 E000DAB BD 6E2E LDA ENMOD2,X ;ＯＢＪ使用数＋８ 2169 E000DAE 18 CLC 2170 E000DAF 69 4000 ADC #08H<<11 2171 E000DB2 9D 6E2E STA ENMOD2,X 2172 000DB5 GT0M110 EQU $ 2173 E000DB5 6B RTL 2174 ; 2175 000DB6 GT0M200 EQU $ 2176 E000DB6 88 DEY 2177 E000DB7 F0 0B BEQ GT0M202 ;リング消去モード？ ( no:GT0M202 ) 2178 E000DB9 4C 0EB7' JMP GT0M300 2179 ; 2180 ;---------------------------------------------------------------- 2181 ;- ポリゴンタイマー加算モード - 2182 ;---------------------------------------------------------------- 2183 000DBC GT0_MOJ_ZMAD EQU $ 2184 E000DBC 0002 FFFF WORD 00002H,0FFFFH 2185 000DC0 GT0_MOJ_ZMCP EQU $ 2186 E000DC0 0034 0000 WORD 00034H,00000H 2187 ; 2188 000DC4 GT0M202 EQU $ 2189 ; 2190 ;-------------- １０進変換 -------------------------------------- 2191 E000DC4 F8 SED ;１０進モードセット 2192 ; 2193 E000DC5 64 00 STZ TROBJ_PLOT_X,X 2234 E000E0B 8D 3008 STA R4 ;(R4) <-- plot start X pos 2235 E000E0E 48 PHA ; " save 2236 E000E0F BF 000000" LDA >TROBJ_PLOT_Y,X 2237 E000E13 8D 300A STA R5 ;(R5) <-- " Y " 2238 E000E16 48 PHA ; " save 2239 ; 2240 I8 2240+ E000E17 E2 10 SEP #00010000B 2241 ; 2242 M_CHIP MOJIPOLY4 2242+ E000E19 A2 08 LDX #BANK MOJIPOLY4 vvv***** warning: value out of range. 2242+ E000E1B A9 A7C8 LDA #MOJIPOLY4 2242+ E000E1E 22 000000" JSL >CHIPON 2243 ; 2244 E000E22 A5 00 LDA CHIPON 2262 ; 2263 E000E4E EE 0B98 INC OBM7WF ;mode 7 OBJ chara DMA "ON" 2264 ; 2265 E000E51 A6 12 LDX TROBJ_CLEAR ;転送エリア放棄 2308 E000EA4 BD 6E2E LDA ENMOD2,X ;ＯＢＪ使用数−８ 2309 E000EA7 38 SEC 2310 E000EA8 E9 4000 SBC #08H<<11 2311 E000EAB 9D 6E2E STA ENMOD2,X 2312 2313 000EAE GT0M240 EQU $ 2314 E000EAE 6B RTL 2315 ; 2316 ;---------------------------------------------------------------- 2317 ;- リング消去モード - 2318 ;---------------------------------------------------------------- 2319 000EAB GATE0_LING_CLR EQU $-(020H/10H)*2 2320 E000EAF 0013 WORD (6+13) ;[20-2F] 2321 E000EB1 0021 WORD (6+13)+14 ;[30-3F] 2322 E000EB3 002F WORD (6+13)+14*2 ;[40-4F] 2323 E000EB5 003D WORD (6+13)+14*3 ;[50-5F] 2324 ; 2325 000EB7 GT0M300 EQU $ 2326 E000EB7 BD 7824 LDA ENWRK6,X 2327 E000EBA 18 CLC 2328 E000EBB 69 0002 ADC #02H 2329 E000EBE C9 0060 CMP #020H+(10H*4) 2330 E000EC1 90 0A BCC GT0M310 ;リング消去？ ( no:GT0M310 ) File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0041 2331 ; 2332 ;-------------- 中間ポイント処理終了 ---------------------------- 2333 E000EC3 9C 0A02 STZ GATE_IN ;中間ポイント通過フラグ”ＯＦＦ” 2334 E000EC6 9C 61B2 STZ PLSTFG ;plyer stop "OFF" 2335 E000EC9 5C 000000" JMP >ENCLEAR 2336 ; 2337 000ECD GT0M310 EQU $ 2338 E000ECD 9D 7824 STA ENWRK6,X 2339 E000ED0 4A LSR A ;1/10H 2340 E000ED1 4A LSR A 2341 E000ED2 4A LSR A 2342 E000ED3 4A LSR A 2343 E000ED4 0A ASL A 2344 E000ED5 A8 TAY 2345 E000ED6 B9 0EAB' LDA !GATE0_LING_CLR,Y 2346 E000ED9 95 78 STA TROBJ_SR_4x4 2354 E000EE0 B0 07 BCS POLDRIN_010 ;area nothing ? ( no:POLDRIN_010 ) 2355 ; 2356 ;;;; LDA #PMOV 2357 E000EE2 9C 60AE STZ PLMODE 2358 E000EE5 5C 000000" JMP >ENCLEAR 2359 ; 2360 000EE9 POLDRIN_010 EQU $ 2361 ; 2362 ;-------------- egg ware start wait timer set --------------------------- 2363 E000EE9 A9 0030 LDA #030H 2364 E000EEC 9D 7884 STA ENTIM0,X 2365 ; 2366 ;-------------- message display !! -------------------------------------- 2367 E000EEF A9 0001 LDA #01H ;(A) <-- message no. 2368 E000EF2 AC 7B84 LDY EGGPNT 2369 E000EF5 C0 06 CPY #2*3 2370 E000EF7 90 06 BCC POLDRIN_020 ;タマゴ３つある？ ( no:POLDRIN_020 ) 2371 ; 2372 E000EF9 EE 0425 INC NEXTGOTO ;door in !! 2373 E000EFC A9 0002 LDA #02H 2374 000EFF POLDRIN_020 EQU $ 2375 E000EFF 8F 703E3C STA >MSG_RAM+2 ;メッセージＮｏ．セット 2376 E000F03 EE 0BD2 INC MSGMOD ; ” 表示 ”ＯＮ” 2377 ; 2378 ;-------------- OBJ mode 7 set ---------------------------------- 2379 000F06 POLDRSET EQU $ 2380 E000F06 B5 76 LDA TROBJ_PLOT_X,X 2385 E000F13 8D 6000 STA CCWORK0 ;(CWK0) <-- plot start X pos 2386 E000F16 BF 000000" LDA >TROBJ_PLOT_Y,X 2387 E000F1A 8D 6002 STA CCWORK1 ;(CWK1) <-- " Y " 2388 M_CHIP DOOR_MV 2388+ E000F1D A2 08 LDX #BANK DOOR_MV vvv***** warning: value out of range. 2388+ E000F1F A9 800D LDA #DOOR_MV File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0042 2388+ E000F22 22 000000" JSL >CHIPON 2389 ; 2390 E000F26 EE 0B98 INC OBM7WF ;mode 7 OBJ chara DMA "ON" 2391 ; 2392 E000F29 A6 12 LDX TROBJ_CHAR_NO,X 2420 E000F56 99 6004 STA SOAM_DX+4,Y 2421 E000F59 B9 600C LDA SOAM_DX+(8*1)+4,Y 2422 E000F5C 29 FE00 AND #0FE00H 2423 E000F5F 1F 000000" ORA >TROBJ_CHAR_NO,X 2424 E000F63 99 600C STA SOAM_DX+(8*1)+4,Y 2425 E000F66 B9 6014 LDA SOAM_DX+(8*2)+4,Y 2426 E000F69 29 FE00 AND #0FE00H 2427 E000F6C 1F 000000" ORA >TROBJ_CHAR_NO+4,X 2428 E000F70 99 6014 STA SOAM_DX+(8*2)+4,Y 2429 E000F73 B9 601C LDA SOAM_DX+(8*3)+4,Y 2430 E000F76 29 FE00 AND #0FE00H 2431 E000F79 1F 000000" ORA >TROBJ_CHAR_NO+4,X 2432 E000F7D 99 601C STA SOAM_DX+(8*3)+4,Y 2433 ; 2434 I8 2434+ E000F80 E2 10 SEP #00010000B 2435 ; 2436 E000F82 A6 12 LDX ENMDCK ;mode check 2440 ; 2441 ;-------------- OBJ mode7 calculate timming check --------------- 2442 TROBJ_CHK_4 2442+ E000F88 BD 7510 LDA ENTROB,X 2442+ E000F8B 4A LSR A File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0043 2442+ E000F8C 4A LSR A 2442+ E000F8D 4A LSR A 2442+ E000F8E 38 SEC 2442+ E000F8F ED 0030 SBC FRCNT 2442+ E000F92 29 0003 AND #03H 2443 E000F95 D0 04 BNE PDRM010 ;OBJ mode7 calculate ok ? ( yes:MJ0M080 ) 2444 ; 2445 ;-------------- OBJ mode 7 set ---------------------------------- 2446 E000F97 22 000F06' JSL >POLDRSET 2447 ; 2448 ;-------------- door move --------------------------------------- 2449 000F9B PDRM010 EQU $ 2450 ; 2451 ;-------------- door open move -------------------------- 2452 E000F9B AD 0425 LDA NEXTGOTO 2453 E000F9E D0 07 BNE PDRM017 ;door in "NO" ? ( no:PDRM017 ) 2454 ; 2455 ;;;; LDA #PMOV 2456 E000FA0 9C 60AE STZ PLMODE 2457 E000FA3 5C 000000" JMP >ENCLEAR 2458 ; 2459 000FA7 PDRM017 EQU $ 2460 ; 2461 ;-------------- egg ware set ---------------------------- 2462 E000FA7 AC 7B84 LDY EGGPNT 2463 E000FAA F0 35 BEQ PDRM019 ;egg option nothing ? ( yes:PDRM019 ) 2464 ; 2465 E000FAC BD 7884 LDA ENTIM0,X 2466 E000FAF D0 14 BNE PDRM0170 ;wait ? ( yes:PDRM0170 ) 2467 ; 2468 E000FB1 BE 7B84 LDX EGGLNK-2,Y 2469 E000FB4 22 000000" JSL >EGG_WARE 2470 E000FB8 A6 12 LDX UNITCHG 2489 E000FDF A6 12 LDX UNITCHG 2546 ; 2547 E001044 A9 0010 LDA #010H ;player BG pri. set 2548 E001047 8D 611C STA PLPRIO 2549 ; 2550 E00104A A6 12 LDX TROBJ_OAM_4x4 2574 ; 2575 E001077 22 000000" JSL >ENMDCK ;mode check 2576 ; 2577 E00107B A9 0007 LDA #07H 2578 E00107E 8D 610E STA PLYUSN ;player OAM pri. set 2579 E001081 A9 0010 LDA #010H 2580 E001084 8D 611C STA PLPRIO ;player BG pri. set 2581 ; 2582 ; 2583 ;testtesttesttesttesttesttesttesttesttesttesttesttesttesttesttest 2584 E001087 A9 0011 LDA #011H 2585 E00108A 8D 07E9 STA MANSEL 2586 E00108D A9 0006 LDA #06H 2587 E001090 8D 07EA STA SUBSEL 2588 ;testtesttesttesttesttesttesttesttesttesttesttesttesttesttesttest 2589 ; 2590 ; 2591 ;-------------- initial "entotsu" BG clear check ---------------- 2592 E001093 B5 18 LDA UNITCHG 2612 E0010BE AD 00A7 LDA BGXPS1 2613 E0010C1 18 CLC 2614 E0010C2 69 0010 ADC #010H 2615 E0010C5 8D 00A7 STA BGXPS1 2616 E0010C8 22 000000" JSL >UNITCHG 2617 ; File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0046 2618 E0010CC A6 12 LDX TROBJ_PLOT_Y,X 2631 E0010E4 8D 3004 STA R2 ;(R2) <-- plot start Y pos 2632 E0010E7 BF 000000" LDA >TROBJ_PLOT_X,X 2633 E0010EB 8D 3006 STA R3 ;(R3) <-- " X " 2634 E0010EE A9 0008 LDA #08H 2635 E0010F1 8D 3010 STA R8 ;(R8) <-- center X pos 2636 E0010F4 A9 0010 LDA #010H 2637 E0010F7 8D 3012 STA R9 ;(R9) <-- center Y pos vvv***** warning: value out of range. 2638 E0010FA A9 20A0 LDA #CIPCHD+20A0H 2639 E0010FD 8D 3018 STA R12 ;(R12) <-- chara address(L,H) 2640 E001100 A9 0054 LDA #BANK CIPCHD 2641 E001103 8D 301A STA R13 ;(R13) <-- " (B) 2642 M_CHIP C_32_ZOOM_XY_16 2642+ E001106 A2 08 LDX #BANK C_32_ZOOM_XY_16 vvv***** warning: value out of range. 2642+ E001108 A9 D2EF LDA #C_32_ZOOM_XY_16 2642+ E00110B 22 000000" JSL >CHIPON 2643 ; 2644 E00110F EE 0B98 INC OBM7WF ;mode 7 OBJ chara DMA "ON" 2645 ; 2646 E001112 A6 12 LDX PLCOLTR 2669 ; 2670 ;-------------- smoke set ----------------------- 2671 E001141 A9 0000" LDA #KUMOB ;(A) <-- exstra no. 2672 E001144 22 000000" JSL >EXINSR 2673 E001148 BD 6ED0 LDA ENXPSL,X File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0047 2674 E00114B 99 6E90 STA EXXPSL,Y ;smoke X pos set 2675 E00114E BD 6F70 LDA ENYPSL,X 2676 E001151 38 SEC 2677 E001152 E9 0030 SBC #030H 2678 E001155 99 6F30 STA EXYPSL,Y ;smoke Y pos set 2679 E001158 A9 000D LDA #0DH 2680 E00115B 9D 7BB0 STA EXWRK0,X ;? 2681 E00115E A9 0006 LDA #06H 2682 E001161 99 7570 STA EXTIM0,Y ;? 2683 ; 2684 E001164 B4 78 LDY CHIPON File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0050 2779 E001339 6B RTL 2780 ; 2781 ;************************************************************************ 2782 ;* move ( tatsumaki ) * 2783 ;************************************************************************ 2784 00133A TATSUMV EQU $ 2785 E00133A 22 000000" JSL >ENMDCK ;mode check 2786 ; 2787 ;-------------- range check ----------------------- 2788 M8 2788+ E00133E E2 20 SEP #00100000B 2789 E001340 BD 7471 LDA ENDSYL+1,X ;sight ? 2790 E001343 F0 0E BEQ BG3RANGE0200 ; yes: BG3RANGE0200 2791 E001345 10 07 BPL BG3RANGE0100 ; no: BG3RANGE0100 2792 2793 E001347 BD 7470 LDA ENDSYL,X ;y range ovwr ? 2794 E00134A 10 1A BPL BG3RANGE0400 ; yes: BG3RANGE0400 2795 E00134C 80 05 BRA BG3RANGE0200 ; no: BG3RANGE0200 2796 2797 00134E BG3RANGE0100 EQU $ 2798 E00134E BD 7470 LDA ENDSYL,X ;y range over ? 2799 E001351 30 13 BMI BG3RANGE0400 ; yes: BG3RANGE0400 2800 2801 001353 BG3RANGE0200 EQU $ 2802 E001353 BD 746F LDA ENDSXL+1,X ;sight ? 2803 E001356 F0 1F BEQ BG3RANGE0500 ; yes: BG3RANGE0500 2804 E001358 10 07 BPL BG3RANGE0300 ; 2805 2806 E00135A BD 746E LDA ENDSXL,X ;x range ovwr ? 2807 E00135D 10 07 BPL BG3RANGE0400 ; yes: BG3RANGE0400 2808 E00135F 80 16 BRA BG3RANGE0500 ; no: BG3RANGE0500 2809 2810 001361 BG3RANGE0300 EQU $ 2811 E001361 BD 746E LDA ENDSXL,X ;x range over ? 2812 E001364 10 11 BPL BG3RANGE0500 ; no: BG3RANGE0500 2813 2814 001366 BG3RANGE0400 EQU $ 2815 M16 2815+ E001366 C2 20 REP #00100000B 2816 E001368 22 000000" JSL >ENCLEAR 2817 2818 M_CHIP HDMABF_CLR 2818+ E00136C A2 08 LDX #BANK HDMABF_CLR vvv***** warning: value out of range. 2818+ E00136E A9 BBB7 LDA #HDMABF_CLR 2818+ E001371 22 000000" JSL >CHIPON 2819 2820 E001375 80 4E BRA TATSUMV0800 2821 2822 001377 BG3RANGE0500 EQU $ 2823 M16 2823+ E001377 C2 20 REP #00100000B 2824 E001379 A6 12 LDX CHIPON 2864 ; 2865 0013C5 TATSUMV0800 EQU $ 2866 E0013C5 22 000000" JSL >M_DMA_BFST 2867 E0013C9 7E51A4 LWORD HDMABUF ;転送先アドレス 2868 E0013CC 703522 LWORD HDMABF ;転送元アドレス 2869 E0013CF 02C8 WORD (0B2H*2*2) ;転送バイト数 2870 ; 2871 M8 2871+ E0013D1 E2 20 SEP #00100000B 2872 ; 2873 E0013D3 A9 15 LDA #015H 2874 E0013D5 8D 07E9 STA MANSEL 2875 E0013D8 A9 02 LDA #002H 2876 E0013DA 8D 07EA STA SUBSEL 2877 E0013DD A9 02 LDA #002H 2878 E0013DF 8D 07ED STA WIND30 2879 E0013E2 A9 20 LDA #020H 2880 E0013E4 8D 07EE STA SUBADF 2881 2882 E0013E7 A9 18 LDA #00011000B ; 2883 E0013E9 0C 07D1 TSB HD420C ; 2884 M16 2884+ E0013EC C2 20 REP #00100000B 2885 2886 ; LDA #002H ;kabe course deta iranai !!! 2887 ; STA NMITYP ; File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0052 2888 ; STZ IRQTYP ; 2889 2890 ;-------------- color set ----------------------- 2891 E0013EE A9 637D LDA #0637DH 2892 E0013F1 8F 70200A STA >DATACOL+(05H*2) 2893 E0013F5 8F 702DC2 STA >MOTOCOL+(05H*2) 2894 E0013F9 A9 4A75 LDA #04A75H 2895 E0013FC 8F 70200C STA >DATACOL+(06H*2) 2896 E001400 8F 702DC4 STA >MOTOCOL+(06H*2) 2897 E001404 A9 0000 LDA #0000H 2898 E001407 8F 70200E STA >DATACOL+(07H*2) 2899 E00140B 8F 702DC6 STA >MOTOCOL+(07H*2) 2900 2901 E00140F A6 12 LDX EXINSR 2910 2911 E001420 BD 6ED0 LDA ENXPSL,X ;x pos. set 2912 E001423 99 6E90 STA EXXPSL,Y 2913 E001426 BD 6F70 LDA ENYPSL,X ;y pos. set 2914 E001429 18 CLC 2915 E00142A 69 0008 ADC #00008H 2916 E00142D 99 6F30 STA EXYPSL,Y 2917 2918 E001430 DA PHX 2919 2920 E001431 A5 10 LDA ENMDCK ;mode check 3095 ; 3096 E00154E BD 7A04 LDA EPWIDX,X 3097 E001551 18 CLC 3098 E001552 69 0010 ADC #010H 3099 E001555 C9 0021 CMP #020H+1 ;(C) <-- flag 3100 E001558 A9 0000 LDA #00 3101 E00155B B0 01 BCS MSGST_010 3102 E00155D 1A INC A 3103 00155E MSGST_010 EQU $ 3104 E00155E D5 18 CMP MSG_RAM+2 ;message no. set 3115 001571 MSGST_020 EQU $ 3116 E001571 6B RTL 3117 ; 3118 ;************************************************************************ 3119 ;* initial ( へこみ床 ) * 3120 ;************************************************************************ 3121 ; 3122 ;-------------- キャラクターデータポインター ---------------------------- 3123 001572 DWNBG_CHR_POS EQU $ 3124 E001572 0000 WORD 0 ;[00 00 00] vvv***** warning: value out of range. 3125 E001574 A000 WORD CIPCHD2+2000H ;[00 00 01] 3126 E001576 0000 WORD 0 ;[00 00 10] File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0056 3127 E001578 0000 WORD 0 ;[00 00 11] 3128 E00157A 0000 WORD 0 ;[00 01 00] 3129 E00157C 0000 WORD 0 ;[00 01 01] 3130 E00157E 0000 WORD 0 ;[00 01 10] vvv***** warning: value out of range. 3131 E001580 A010 WORD CIPCHD2+2010H ;[00 01 11] 3132 E001582 0000 WORD 0 ;[00 10 00] 3133 E001584 0000 WORD 0 ;[00 10 01] 3134 E001586 0000 WORD 0 ;[00 10 10] 3135 E001588 0000 WORD 0 ;[00 10 11] 3136 E00158A 0000 WORD 0 ;[00 11 00] 3137 E00158C 0000 WORD 0 ;[00 11 01] 3138 E00158E 0000 WORD 0 ;[00 11 10] 3139 E001590 0000 WORD 0 ;[00 11 11] 3140 ; 3141 E001592 0000 WORD 0 ;[01 00 00] 3142 E001594 0000 WORD 0 ;[01 00 01] 3143 E001596 0000 WORD 0 ;[01 00 10] 3144 E001598 0000 WORD 0 ;[01 00 11] 3145 E00159A 0000 WORD 0 ;[01 01 00] 3146 E00159C 0000 WORD 0 ;[01 01 01] 3147 E00159E 0000 WORD 0 ;[01 01 10] 3148 E0015A0 0000 WORD 0 ;[01 01 11] 3149 E0015A2 0000 WORD 0 ;[01 10 00] 3150 E0015A4 0000 WORD 0 ;[01 10 01] 3151 E0015A6 0000 WORD 0 ;[01 10 10] 3152 E0015A8 0000 WORD 0 ;[01 10 11] 3153 E0015AA 0000 WORD 0 ;[01 11 00] 3154 E0015AC 0000 WORD 0 ;[01 11 01] 3155 E0015AE 0000 WORD 0 ;[01 11 10] vvv***** warning: value out of range. 3156 E0015B0 A020 WORD CIPCHD2+2020H ;[01 11 11] 3157 ; vvv***** warning: value out of range. 3158 E0015B2 A060 WORD CIPCHD2+2060H ;[10 00 00] 3159 E0015B4 0000 WORD 0 ;[10 00 01] 3160 E0015B6 0000 WORD 0 ;[10 00 10] 3161 E0015B8 0000 WORD 0 ;[10 00 11] 3162 E0015BA 0000 WORD 0 ;[10 01 00] 3163 E0015BC 0000 WORD 0 ;[10 01 01] 3164 E0015BE 0000 WORD 0 ;[10 01 10] 3165 E0015C0 0000 WORD 0 ;[10 01 11] 3166 E0015C2 0000 WORD 0 ;[10 10 00] 3167 E0015C4 0000 WORD 0 ;[10 10 01] 3168 E0015C6 0000 WORD 0 ;[10 10 10] 3169 E0015C8 0000 WORD 0 ;[10 10 11] 3170 E0015CA 0000 WORD 0 ;[10 11 00] 3171 E0015CC 0000 WORD 0 ;[10 11 01] 3172 E0015CE 0000 WORD 0 ;[10 11 10] 3173 E0015D0 0000 WORD 0 ;[10 11 11] 3174 ; 3175 E0015D2 0000 WORD 0 ;[11 00 00] 3176 E0015D4 0000 WORD 0 ;[11 00 01] 3177 E0015D6 0000 WORD 0 ;[11 00 10] 3178 E0015D8 0000 WORD 0 ;[11 00 11] 3179 E0015DA 0000 WORD 0 ;[11 01 00] 3180 E0015DC 0000 WORD 0 ;[11 01 01] 3181 E0015DE 0000 WORD 0 ;[11 01 10] 3182 E0015E0 0000 WORD 0 ;[11 01 11] vvv***** warning: value out of range. 3183 E0015E2 A050 WORD CIPCHD2+2050H ;[11 10 00] File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0057 3184 E0015E4 0000 WORD 0 ;[11 10 01] 3185 E0015E6 0000 WORD 0 ;[11 10 10] 3186 E0015E8 0000 WORD 0 ;[11 10 11] 3187 E0015EA 0000 WORD 0 ;[11 11 00] 3188 E0015EC 0000 WORD 0 ;[11 11 01] vvv***** warning: value out of range. 3189 E0015EE A040 WORD CIPCHD2+2040H ;[11 11 10] vvv***** warning: value out of range. 3190 E0015F0 A030 WORD CIPCHD2+2030H ;[11 11 11] 3191 ; 3192 ;-------------- へこみ復元データ ---------------------------------------- 3193 0015F2 DWNBG_RET_ADD EQU $ 3194 E0015F2 FFF0 0010 WORD 0FFF0H,00010H 3195 ; 3196 0015F6 DWNBGIN EQU $ 3197 E0015F6 20 17DD' JSR DWNBG_W 3198 ; 3199 ;-------------- 書き換え前のユニットＮｏ．保存 -------------------------- 3200 E0015F9 AD 0020 LDA WORK20 3201 E0015FC 9D 7826 STA ENWRK8,X ;left BG old unit no. set 3202 E0015FF AD 0022 LDA WORK22 3203 E001602 9D 76EE STA ENWRKA,X ;middle " 3204 E001605 AD 0024 LDA WORK24 3205 E001608 9D 76F0 STA ENWRKC,X ;right " 3206 ; 3207 E00160B 20 1835' JSR DWNBG_CHR_CHK 3208 ; 3209 ;************************************************************************ 3210 ;* move ( へこみ床 ) * 3211 ;************************************************************************ 3212 00160E DWNBGMV EQU $ 3213 E00160E 22 000000" JSL >ENMDCK ;mode check 3214 ; 3215 E001612 B5 76 LDA ENCLEAR 3250 ; 3251 ;------------------------------------------------------------------------ 3252 ;- へこみ処理 - 3253 ;------------------------------------------------------------------------ 3254 00164F DWNBG_HEAD_HOSE EQU $ 3255 ; PLSITD --> [0] [1] [2] [3] [4] [5] 3256 E00164F 0008 0004 0000 WORD 00008H,00004H,00000H,00000H,00000H,00000H E001655 0000 0000 0000 3257 ; 3258 00165B DWBGMV_050 EQU $ 3259 E00165B B5 76 LDA CHIPON 3503 ; 3504 E0017D7 EE 0B9A INC BGCGWF ;へこみ床キャラクター転送フラグ”ＯＮ” 3505 ; 3506 E0017DA A6 12 LDX UNITCHG 3522 E0017F9 A6 12 LDX UNITCHG 3548 E001824 A6 12 LDX ENMDCK ;mode check 3631 ; 3632 E0018A0 B5 18 LDA ENCLEAR 3661 ; 3662 ;------------------------------------------------------------------------ 3663 ;- へこみ処理 - 3664 ;------------------------------------------------------------------------ 3665 0018D0 RUBBG_HEAD_HOSE EQU $ 3666 ; PLSITD --> [0] [1] [2] [3] [4] [5] 3667 E0018D0 0008 0004 0000 WORD 00008H,00004H,00000H,00000H,00000H,00000H E0018D6 0000 0000 0000 3668 ; 3669 0018DC RBBGMV_050 EQU $ 3670 E0018DC B5 76 LDA CHIPON 3878 ; 3879 E001A27 EE 0B9A INC BGCGWF ;ゴム床キャラクター転送フラグ”ＯＮ” 3880 ; 3881 E001A2A A6 12 LDX UNITCHG File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0069 3897 E001A49 A6 12 LDX UNITCHG 3923 ; 3924 E001A74 A9 0000 LDA #UT0000 3925 E001A77 8D 00AB STA BGUTNO 3926 E001A7A AD 00A9 LDA BGYPS1 3927 E001A7D 38 SEC 3928 E001A7E E9 0010 SBC #010H 3929 E001A81 8D 00A9 STA BGYPS1 3930 E001A84 22 000000" JSL >UNITCHG 3931 E001A88 AD 00A9 LDA BGYPS1 3932 E001A8B 18 CLC 3933 E001A8C 69 0020 ADC #020H 3934 E001A8F 8D 00A9 STA BGYPS1 3935 E001A92 22 000000" JSL >UNITCHG 3936 E001A96 A6 12 LDX ENCLEAR 3977 ; 3978 ;************************************************************************ 3979 ;* move ( オートスクロール ) * 3980 ;************************************************************************ 3981 001AD4 ATSCRMV EQU $ 3982 ; 3983 ;************************************************************************ 3984 ;* initial ( ゴール ) * 3985 ;************************************************************************ 3986 001AD4 GOAL0IN EQU $ 3987 E001AD4 22 000000" JSL >TROBJ_SR_4x4_CL 3988 E001AD8 BD 6ED0 LDA ENXPSL,X 3989 E001ADB 09 0008 ORA #08H 3990 E001ADE 9D 6ED0 STA ENXPSL,X ;Ｘ座標補正 3991 E001AE1 A9 0100 LDA #0100H 3992 E001AE4 95 16 STA ENINSR 4002 E001AF3 B0 04 BCS GOAL0I_010 ;空き無し？ ( no:GOAL0I_010 ) 4003 E001AF5 5C 000000" JMP >ENCLEAR 4004 ; 4005 ;-------------- ゴール玉初期セット＆リンケージセット -------------------- 4006 001AF9 GOAL0I_010 EQU $ 4007 E001AF9 98 TYA 4008 E001AFA 9D 7826 STA ENWRK8,X ;ゴール玉インデックスセット 4009 E001AFD 8A TXA 4010 E001AFE 99 7826 STA ENWRK8,Y ;ゴールインデックスセット 4011 ; 4012 E001B01 BD 6ED0 LDA ENXPSL,X ;ゴール玉Ｘ座標セット 4013 E001B04 18 CLC 4014 E001B05 69 0040 ADC #040H 4015 E001B08 99 6ED0 STA ENXPSL,Y 4016 E001B0B BD 6F70 LDA ENYPSL,X ;ゴール玉Ｙ座標セット 4017 E001B0E 38 SEC File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0071 4018 E001B0F E9 0010 SBC #010H 4019 E001B12 99 6F70 STA ENYPSL,Y 4020 ; 4021 001B15 GOAL0I_020 EQU $ 4022 E001B15 6B RTL 4023 ; 4024 ;************************************************************************ 4025 ;* move ( ゴール ) * 4026 ;************************************************************************ 4027 ; 4028 ;-------------- ジャバラの上下移動倍率チェックデータ -------------------- 4029 001B16 GOAL0_WTCP EQU $ 4030 ; ENWRK4 --> [0] [1] 4031 E001B16 0020 0100 WORD 0020H,0100H 4032 ; 4033 ;-------------- チューブセットデータ ------------------------------------ 4034 001B1A GOAL_CBTM EQU $ ;チューブパターン切り替えタイマー 4035 ; HIGH ENWRK2 --> 4036 E001B1A 0008 0007 0006 WORD 08H,07H,06H,05H,04H,03H,02H,02H E001B20 0005 0004 0003 E001B26 0002 0002 4037 E001B2A 0002 0002 0002 WORD 02H,02H,02H,02H,02H,02H,02H,02H E001B30 0002 0002 0002 E001B36 0002 0002 4038 ; 4039 001B3A GOAL0MV EQU $ 4040 ; 4041 ;------------------------------------------------------------------------ 4042 ;- ＯＡＭセット - 4043 ;------------------------------------------------------------------------ 4044 E001B3A 8A TXA 4045 E001B3B 29 00FF AND #00FFH 4046 E001B3E 8D 3002 STA R1 ;(R1) <-- enemy index 4047 ;;;; LDA ENWRKA,X 4048 ;;;; STA R2 ;(R2) <-- チューブパターンＮｏ． 4049 E001B41 BC 7826 LDY ENWRK8,X 4050 E001B44 B9 7766 LDA ENWRK0,Y 4051 E001B47 0A ASL A ;(C) <-- (N) 4052 E001B48 BD 76F0 LDA ENWRKC,X 4053 E001B4B 90 03 BCC GOAL0M_FFF ;天井破り？ ( no:GOAL0M_FFF ) 4054 ; 4055 E001B4D A9 0130 LDA #0130H 4056 001B50 GOAL0M_FFF EQU $ 4057 E001B50 8D 3006 STA R3 ;(R3) <-- ゴール風船セットＹ位置 4058 E001B53 A5 14 LDA CHIPON 4065 E001B6A A6 12 LDX TROBJ_OAM_4x4_I 4071 ; 4072 IDX8 4073 ; 4074 E001B75 22 000000" JSL >ENMDCK ;mode check 4075 ; 4076 ;------------------------------------------------------------------------ 4077 ;- 範囲外クリアーチェック - 4078 ;------------------------------------------------------------------------ 4079 E001B79 BD 746E LDA ENDSXL,X 4080 E001B7C 18 CLC 4081 E001B7D 69 0040 ADC #040H 4082 E001B80 C9 0180 CMP #0100H+(040H*2) 4083 E001B83 B0 0C BCS GOAL0M_0000 ;X pos area over ? ( yes:GOAL0M_0000 ) 4084 E001B85 BD 7470 LDA ENDSYL,X 4085 E001B88 18 CLC 4086 E001B89 69 0040 ADC #040H 4087 E001B8C C9 0240 CMP #0100H+(040H+0100H) 4088 E001B8F 90 26 BCC GOAL0M_0008 ;Y pos area over ? ( no:GOAL0M_0008 ) 4089 ; 4090 001B91 GOAL0M_0000 EQU $ 4091 E001B91 BC 7826 LDY ENWRK8,X 4092 E001B94 B9 746E LDA ENDSXL,Y 4093 E001B97 18 CLC 4094 E001B98 69 0040 ADC #040H 4095 E001B9B C9 0180 CMP #0100H+(040H*2) 4096 E001B9E B0 0C BCS GOAL0M_0002 ;ゴール玉 X pos area over ? ( yes:GOAL0M_0002 ) 4097 E001BA0 B9 7470 LDA ENDSYL,Y 4098 E001BA3 18 CLC 4099 E001BA4 69 0040 ADC #040H 4100 E001BA7 C9 0180 CMP #0100H+(040H*2) 4101 E001BAA 90 0B BCC GOAL0M_0008 ;ゴール玉 Y pos area over ? ( no:GOAL0M_0008 ) 4102 ; 4103 ;-------------- 範囲外クリアー！！ -------------------------------------- 4104 001BAC GOAL0M_0002 EQU $ 4105 E001BAC BB TYX ;(X) <-- ゴール玉 index 4106 E001BAD 22 000000" JSL >ENCLEAR 4107 E001BB1 A6 12 LDX ENCLEAR 4109 ; 4110 ;------------------------------------------------------------------------ 4111 ;- ジャバラキャラクターセット - 4112 ;------------------------------------------------------------------------ 4113 001BB7 GOAL0M_0008 EQU $ 4114 E001BB7 A9 0100 LDA #0100H 4115 E001BBA 8D 300C STA R6 ;(R6) <-- X zoom flag 4116 E001BBD B5 16 LDA TROBJ_PLOT_Y,X 4121 E001BCA 8D 3004 STA R2 ;(R2) <-- plot start Y pos 4122 E001BCD BF 000000" LDA >TROBJ_PLOT_X,X 4123 E001BD1 8D 3006 STA R3 ;(R3) <-- " X " 4124 E001BD4 A9 0010 LDA #010H 4125 E001BD7 8D 3010 STA R8 ;(R8) <-- center X pos 4126 E001BDA A9 001F LDA #01FH 4127 E001BDD 8D 3012 STA R9 ;(R9) <-- center Y pos vvv***** warning: value out of range. 4128 E001BE0 A9 8040 LDA #CIPCHD2+0040H 4129 E001BE3 8D 3018 STA R12 ;(R12) <-- chara address(L,H) File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0073 4130 E001BE6 A9 0054 LDA #BANK CIPCHD2 4131 E001BE9 8D 301A STA R13 ;(R13) <-- " (B) 4132 M_CHIP C_32_ZOOM_XY 4132+ E001BEC A2 08 LDX #BANK C_32_ZOOM_XY vvv***** warning: value out of range. 4132+ E001BEE A9 D28C LDA #C_32_ZOOM_XY 4132+ E001BF1 22 000000" JSL >CHIPON 4133 ; 4134 E001BF5 EE 0B98 INC OBM7WF ;mode 7 OBJ chara DMA "ON" 4135 ; 4136 E001BF8 A6 12 LDX POBBGCR_2 ;[ (EWKE,F) <-- foot cross flag ] 4150 E001C0F A5 0E LDA ENCLEAR_NORETN ;敵クリアー 4272 E001CC2 22 001DF3' JSL >KUMOB_SET ;雲セット 4273 ; 4274 001CC6 GOAL0M_1007 EQU $ 4275 E001CC6 A6 12 LDX UNITCHG 4327 E001D1B AD 00A7 LDA BGXPS1 4328 E001D1E 18 CLC 4329 E001D1F 69 0010 ADC #010H 4330 E001D22 8D 00A7 STA BGXPS1 4331 E001D25 A9 017E LDA #UT019D 4332 E001D28 8D 00AB STA BGUTNO 4333 E001D2B 22 000000" JSL >UNITCHG 4334 E001D2F A6 12 LDX KUMOB_SET 4367 E001D60 22 000000" JSL >ENCLEAR File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0077 4368 ; 4369 E001D64 A6 12 LDX KUMOB_SET 4375 ; 4376 E001D66 BD 6ED0 LDA ENXPSL,X 4377 E001D69 18 CLC 4378 E001D6A 69 0040 ADC #040H 4379 E001D6D 9D 6ED0 STA ENXPSL,X 4380 E001D70 BD 6F70 LDA ENYPSL,X 4381 E001D73 38 SEC 4382 E001D74 E9 011F SBC #0130H-010H-1 4383 E001D77 85 00 STA KUMOB_SET 4395 E001D8F BD 6F70 LDA ENYPSL,X 4396 E001D92 38 SEC 4397 E001D93 E9 0020 SBC #020H 4398 E001D96 80 EC BRA GOAL0M_2010 4399 ; 4400 001D98 GOAL0M_2020 EQU $ 4401 E001D98 5C 000000" JMP >ENCLEAR 4402 ; 4403 ;------------------------------------------------------------------------ 4404 ;- ゴール玉Ｙスピードセット - 4405 ;------------------------------------------------------------------------ 4406 001D9C GOAL0M_0030 EQU $ 4407 E001D9C B5 76 LDA EXINSR 4514 E001DFA A9 000B LDA #0BH 4515 E001DFD 99 7BB0 STA EXWRK0,Y ;counter set 4516 E001E00 A9 0006 LDA #06H 4517 E001E03 99 7570 STA EXTIM0,Y ;timer set 4518 E001E06 BD 6ED0 LDA ENXPSL,X 4519 E001E09 99 6E90 STA EXXPSL,Y ;X pos set 4520 E001E0C BD 6F70 LDA ENYPSL,X 4521 E001E0F 99 6F30 STA EXYPSL,Y ;Y pos set 4522 E001E12 6B RTL 4523 ; 4524 ;************************************************************************ 4525 ;* initial ( ゴール玉 ) * 4526 ;************************************************************************ 4527 001E13 GOALTIN EQU $ 4528 ; 4529 ;************************************************************************ 4530 ;* move ( ゴール玉 ) * 4531 ;************************************************************************ 4532 001E13 GOALT_SCMX EQU $ 4533 E001E13 FFF8 0004 WORD 0FFF8H,00004H 4534 ; 4535 001E17 GOALT_YURA EQU $ 4536 E001E17 FFFF 0001 WORD 0FFFFH,00001H 4537 ; 4538 001E1B GOALTMV EQU $ 4539 E001E1B 22 000000" JSL >ENMDCK ;mode check 4540 ; 4541 ;------------------------------------------------------------------------ 4542 ;- スクロールチェック - 4543 ;------------------------------------------------------------------------ 4544 E001E1F AD 60AE LDA PLMODE 4545 E001E22 38 SEC 4546 E001E23 E9 0000" SBC #PGOL 4547 E001E26 C9 0004 CMP #4 4548 E001E29 90 03 BCC GOALTM_FFF ;player goal mode ? ( yes:GOALTM_FFF ) 4549 E001E2B 4C 1EAA' JMP GOALTM_008F 4550 ; File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0080 4551 001E2E GOALTM_FFF EQU $ 4552 E001E2E BD 7010 LDA ENYSPD,X 4553 E001E31 10 0C BPL GOALTM_000 ;上昇中？ ( no:GOALTM_000 ) 4554 ; 4555 E001E33 34 18 BIT PL_1UP_SET ;プレイヤー１ｕｐセット 4586 ; 4587 001E6D GOALTM_0002 EQU $ 4588 E001E6D 9E 7010 STZ ENYSPD,X 4589 ; 4590 M8 4590+ E001E70 E2 20 SEP #00100000B 4591 ; 4592 E001E72 9E 6F6F STZ ENYSDR,X 4593 ; 4594 M16 4594+ E001E75 C2 20 REP #00100000B 4595 ; 4596 001E77 GOALTM_001 EQU $ 4597 E001E77 A0 00 LDY #0 4598 E001E79 BD 7470 LDA ENDSYL,X 4599 E001E7C 38 SEC 4600 E001E7D E9 0070 SBC #070H 4601 E001E80 30 0D BMI GOALTM_006 ;up scroll ? ( yes:GOALTM_006 ) 4602 E001E82 38 SEC 4603 E001E83 E9 0020 SBC #020H 4604 E001E86 10 05 BPL GOALTM_004 ;down scroll ? ( yes:GOALTM_004 ) 4605 ; 4606 ;-------------- not scroll set ------------------------------------------ 4607 001E88 GOALTM_002 EQU $ 4608 E001E88 A9 0000 LDA #00 4609 E001E8B 80 10 BRA GOALTM_008 File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0081 4610 ; 4611 001E8D GOALTM_004 EQU $ 4612 E001E8D A0 02 LDY #02H 4613 001E8F GOALTM_006 EQU $ 4614 E001E8F 48 PHA 4615 E001E90 18 CLC 4616 E001E91 69 0008 ADC #08H 4617 E001E94 C9 000D CMP #08H+04H+1 4618 E001E97 68 PLA 4619 E001E98 90 03 BCC GOALTM_008 ;scroll dot max over ? ( no:GOALTM_008 ) 4620 ; 4621 E001E9A B9 1E13' LDA !GOALT_SCMX,Y 4622 001E9D GOALTM_008 EQU $ 4623 E001E9D 18 CLC 4624 E001E9E 6D 609E ADC ESCCV1 4625 E001EA1 8D 0A9C STA ATSCRL_SCCV1 ;スクロールカウンターセット 4626 E001EA4 A9 0001 LDA #01H 4627 E001EA7 8D 0A95 STA ATSCRL_V ;Ｖオートスクロールフラグ”ＯＮ” 4628 ; 4629 ;------------------------------------------------------------------------ 4630 ;- Ｙ座標補正チェック - 4631 ;------------------------------------------------------------------------ 4632 001EAA GOALTM_008F EQU $ 4633 E001EAA BC 7826 LDY ENWRK8,X ;(Y) <-- ゴール index 4634 E001EAD B9 6F70 LDA ENYPSL,Y 4635 E001EB0 38 SEC 4636 E001EB1 FD 6F70 SBC ENYPSL,X 4637 E001EB4 38 SEC 4638 E001EB5 E9 0010 SBC #010H 4639 E001EB8 10 23 BPL GOALTM_0082 ;Y pos min over ? ( no:GOALTM_0082 ) 4640 ; 4641 E001EBA 3C 7010 BIT ENYSPD,X 4642 E001EBD 30 1B BMI GOALTM_0081 ;jump up ? ( yes:GOALTM_0081 ) 4643 ; 4644 E001EBF 48 PHA ;(A) save 4645 ; 4646 E001EC0 AD 60AE LDA PLMODE 4647 E001EC3 C9 0000" CMP #PGOL 4648 E001EC6 D0 11 BNE GOALTM_0080 ;ゴール処理終了？ ( no:GOALTM_0080 ) 4649 ; 4650 ;-------------- ゴール処理終了！！ -------------------------------------- 4651 E001EC8 B9 78E4 LDA ENTIM2,Y 4652 E001ECB D0 0C BNE GOALTM_0080 4653 ; 4654 E001ECD EE 60AE INC PLMODE ;プレイヤー自動歩きモードセット 4655 E001ED0 EE 60AE INC PLMODE 4656 E001ED3 A9 0040 LDA #040H 4657 E001ED6 99 78E4 STA ENTIM2,Y ;ゴール処理終了ウェイトタイマーセット 4658 001ED9 GOALTM_0080 EQU $ 4659 ; 4660 E001ED9 68 PLA ;(A) load 4661 001EDA GOALTM_0081 EQU $ 4662 E001EDA 4C 1FC0' JMP GOALTM_010 4663 ; 4664 001EDD GOALTM_0082 EQU $ 4665 E001EDD D9 76F0 CMP ENWRKC,Y 4666 E001EE0 30 74 BMI GOALTM_009 ;風船割れた？ ( no:GOALTM_009 ) 4667 ; 4668 E001EE2 48 PHA ;(A) save 4669 ; 4670 E001EE3 34 18 BIT UNITCHG 4735 E001F52 7A PLY 4736 E001F53 A6 12 LDX UNITCHG 4786 E001FA9 AD 00A7 LDA BGXPS1 4787 E001FAC 18 CLC 4788 E001FAD 69 0010 ADC #010H 4789 E001FB0 8D 00A7 STA BGXPS1 4790 E001FB3 A9 00B7 LDA #UT00FD 4791 E001FB6 8D 00AB STA BGUTNO 4792 E001FB9 22 000000" JSL >UNITCHG File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0084 4793 E001FBD A6 12 LDX TROBJ_SR_4x4_CL ;転送エリア確保 4870 ; 4871 E002017 A9 0100 LDA #0100H ;倍率セット 4872 E00201A 95 78 STA TROBJ_PLOT_X,X 4880 E002029 8D 3006 STA R3 ;(R3) <-- ビットマップ座標＿Ｘ 4881 E00202C BF 000000" LDA >TROBJ_PLOT_Y,X 4882 E002030 8D 3004 STA R2 ;(R2) <-- ” ＿Ｘ 4883 E002033 A9 0010 LDA #010H 4884 E002036 8D 3010 STA R8 ;(R8) <-- 中心＿Ｘ 4885 E002039 8D 3012 STA R9 ;(R9) <-- ”＿Ｙ vvv***** warning: value out of range. 4886 E00203C A9 C041 LDA #CIPCHD2+4040H+1 4887 E00203F 8D 3018 STA R12 ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 4888 E002042 A9 0054 LDA #BANK CIPCHD2 4889 E002045 8D 301A STA R13 ;(R13) <-- ” (Ｂ） 4890 M_CHIP C_32_ZOOM 4890+ E002048 A2 08 LDX #BANK C_32_ZOOM vvv***** warning: value out of range. 4890+ E00204A A9 D28A LDA #C_32_ZOOM 4890+ E00204D 22 000000" JSL >CHIPON 4891 E002051 A6 12 LDX TROBJ_PLOT_X,X 4903 E002068 8D 3006 STA R3 ;(R3) <-- ビットマップ座標＿Ｘ 4904 E00206B BF 000000" LDA >TROBJ_PLOT_Y,X 4905 E00206F 8D 3004 STA R2 ;(R2) <-- ” ＿Ｘ vvv***** warning: value out of range. 4906 E002072 A9 C061 LDA #CIPCHD2+4060H+1 4907 E002075 8D 3018 STA R12 ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 4908 E002078 A9 0054 LDA #BANK CIPCHD2 File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0086 4909 E00207B 8D 301A STA R13 ;(R13) <-- ” (Ｂ） 4910 E00207E 9C 3002 STZ R1 ;(R1) <-- プロットモード（ヌキをプロットしない） 4911 M_CHIP C_32_ROTZOM_C 4911+ E002081 A2 08 LDX #BANK C_32_ROTZOM_C vvv***** warning: value out of range. 4911+ E002083 A9 D200 LDA #C_32_ROTZOM_C 4911+ E002086 22 000000" JSL >CHIPON 4912 ; 4913 E00208A EE 0B98 INC OBM7WF ;mode 7 OBJ chara DMA "ON" 4914 ; 4915 E00208D A6 12 LDX TROBJ_OAM_4x4 ;OAM set 4923 ; 4924 E002094 22 000000" JSL >ENMDCK ;mode check 4925 ; 4926 E002098 B5 18 LDA WATCH_CHRSET 4931 ; 4932 ;-------------- 時計の針回転セット -------------------------------------- 4933 E0020A0 F6 16 INC CLFDCNT ;カラーフェード用カウンターリセット 4946 E0020B7 F6 18 INC CLFDCNT 4956 E0020BE C9 0020 CMP #020H 4957 E0020C1 B0 1A BCS WATCHMV_0510 ;カラーフェード終了？ ( yes:WATCHMV_0510 ) 4958 ; 4959 ;-------------- 元カラーへ戻す ---------------------------------- vvv***** warning: value out of range. 4960 E0020C3 A9 2DB8 LDA #MOTOCOL ;元カラーデータポインターセット 4961 E0020C6 8F 7033BA STA >MOTOADR vvv***** warning: value out of range. 4962 E0020CA A9 31B8 LDA #WORKCOL ;先 ” 4963 E0020CD 8F 7033BC STA >CHNGADR File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0087 4964 M_CHIP COLFADE ;カラーフェード処理 4964+ E0020D1 A2 08 LDX #BANK COLFADE vvv***** warning: value out of range. 4964+ E0020D3 A9 8837 LDA #COLFADE 4964+ E0020D6 22 000000" JSL >CHIPON 4965 ; 4966 E0020DA A6 12 LDX WORKCOL,X 4976 E0020E6 9F 702DB8 STA >MOTOCOL,X 4977 E0020EA CA DEX 4978 E0020EB CA DEX 4979 E0020EC 10 F4 BPL WATCHMV_0010 4980 ; 4981 I8 4981+ E0020EE E2 10 SEP #00010000B 4982 ; 4983 E0020F0 A6 12 LDX BGM_NO_DATA,X ;[♪] 5018 E00212A 8D 0051 STA SOUND2 File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0088 5019 ; 5020 E00212D 9C 0ADC STZ SCRL_STOP ;スクロールストップ解除 5021 ; 5022 E002130 A6 12 LDX KUMOB_SET ;雲になって消える 5024 E002136 5C 000000" JMP >ENCLEAR 5025 ; 5026 00213A WATCHMV_0800 EQU $ 5027 E00213A 6B RTL 5028 ; 5029 ;************************************************************************ 5030 ;* initial ( 時計で変えられた雲 ) * 5031 ;************************************************************************ 5032 00213B WATKMIN EQU $ 5033 E00213B BD 6F70 LDA ENYPSL,X ;(EWK0,1) <-- 中心Ｙ位置セット 5034 E00213E 18 CLC 5035 E00213F 69 0004 ADC #04H 5036 E002142 95 18 STA ENMDCK ;mode check 5047 ; 5048 ;-------------- ”フワフワ”処理 ---------------------------------------- 5049 E00214D A0 00 LDY #00 5050 E00214F BD 6F70 LDA ENYPSL,X 5051 E002152 D5 18 CMP COLBL_SET4 ;自分を消去！！ 5099 E0021A7 22 000000" JSL >ENCLEAR ; ” 5100 ; 5101 0021AB WATKMMV_0200 EQU $ 5102 E0021AB 6B RTL 5103 ; 5104 ; 5105 ; 5106 ; 5107 ; 5108 ;************************************************************************ 5109 ;* * 5110 ;* 背景ＯＢＪデータ * 5111 ;* * 5112 ;************************************************************************ 5113 ; 5114 0021AC BG_OBJ_DT_0 EQU $ 5115 ; [ATT+size] [X] [Y] [CH] 5116 E0021AC 0F 00 03 00 BYTE 00001110B+1,000H>>3,018H>>3,000H ;[00] 5117 E0021B0 0F 00 05 04 BYTE 00001110B+1,000H>>3,028H>>3,004H ;[01] 5118 E0021B4 0F 00 07 0A BYTE 00001110B+1,000H>>3,038H>>3,00AH ;[02] 5119 E0021B8 0F 01 0B 0E BYTE 00001110B+1,008H>>3,058H>>3,00EH ;[03] 5120 E0021BC 0F 02 03 02 BYTE 00001110B+1,010H>>3,018H>>3,002H ;[04] 5121 E0021C0 0F 02 05 06 BYTE 00001110B+1,010H>>3,028H>>3,006H ;[05] 5122 E0021C4 0F 02 07 0C BYTE 00001110B+1,010H>>3,038H>>3,00CH ;[06] 5123 E0021C8 0F 04 05 08 BYTE 00001110B+1,020H>>3,028H>>3,008H ;[07] 5124 E0021CC 0F 05 01 0E BYTE 00001110B+1,028H>>3,008H>>3,00EH ;[08] 5125 E0021D0 0F 06 06 0E BYTE 00001110B+1,030H>>3,030H>>3,00EH ;[09] 5126 E0021D4 0F 0B 0A 08 BYTE 00001110B+1,058H>>3,050H>>3,008H ;[0A] 5127 E0021D8 0F 0C 00 0E BYTE 00001110B+1,060H>>3,000H>>3,00EH ;[0B] 5128 E0021DC 0F 10 09 00 BYTE 00001110B+1,080H>>3,048H>>3,000H ;[0C] 5129 E0021E0 0F 10 0B 04 BYTE 00001110B+1,080H>>3,058H>>3,004H ;[0D] 5130 E0021E4 0F 10 0D 0A BYTE 00001110B+1,080H>>3,068H>>3,00AH ;[0E] 5131 E0021E8 0F 11 06 0E BYTE 00001110B+1,088H>>3,030H>>3,00EH ;[0F] 5132 E0021EC 0F 12 09 02 BYTE 00001110B+1,090H>>3,048H>>3,002H ;[10] 5133 E0021F0 0F 12 0B 06 BYTE 00001110B+1,090H>>3,058H>>3,006H ;[11] 5134 E0021F4 0F 12 0D 0C BYTE 00001110B+1,090H>>3,068H>>3,00CH ;[12] 5135 E0021F8 0F 17 02 08 BYTE 00001110B+1,0B8H>>3,010H>>3,008H ;[13] 5136 E0021FC 0F 19 09 08 BYTE 00001110B+1,0C8H>>3,048H>>3,008H ;[14] 5137 E002200 0F 1D 05 0E BYTE 00001110B+1,0E8H>>3,028H>>3,00EH ;[15] 5138 ; File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0090 5139 E002204 FF HEX FF ;end code [ * [AT+size] != 0FEH+1 !! ] 5140 ; 5141 ;************************************************************************ 5142 ;* initial ( 背景ＯＢＪ ) * 5143 ;************************************************************************ 5144 002205 BG_00IN EQU $ 5145 E002205 6B RTL 5146 ; 5147 ;************************************************************************ 5148 ;* move ( 背景ＯＢＪ ) * 5149 ;************************************************************************ 5150 002206 BG_00MV EQU $ 5151 E002206 AD 0039 LDA SCCH1 5152 E002209 4A LSR A 5153 E00220A 8D 3002 STA R1 ;(R1) <-- 表示基点Ｘ 5154 E00220D 9C 3004 STZ R2 ;(R2) <-- 表示基点Ｙ 5155 E002210 A9 0100 LDA #0100H 5156 E002213 8D 3006 STA R3 ;(R3) <-- リミットＸ 5157 E002216 8D 3008 STA R4 ;(R4) <-- リミットＹ 5158 E002219 BD 7150 LDA ENOAML,X 5159 E00221C 8D 3014 STA R10 ;(R10) <-- ＯＡＭセットポインター 5160 E00221F A9 0000' LDA #BANK BG_OBJ_DT_0 5161 E002222 8D 3000 STA R0 ;(R0) <-- 背景ＯＢＪデータアドレス 5162 E002225 A9 21AC' LDA #BG_OBJ_DT_0 5163 E002228 8D 301A STA R13 ;(R13) <-- ” 5164 E00222B BD 6F6E LDA ENCHRB,X 5165 E00222E 29 00FF AND #00FFH 5166 E002231 0A ASL A ;x8 5167 E002232 0A ASL A ; 5168 E002233 0A ASL A ; 5169 E002234 8D 3016 STA R11 ;(R11) <-- キャラクターＮｏ．加算データ 5170 M_CHIP BG_OBJ_OAMST 5170+ E002237 A2 08 LDX #BANK BG_OBJ_OAMST vvv***** warning: value out of range. 5170+ E002239 A9 E0FF LDA #BG_OBJ_OAMST 5170+ E00223C 22 000000" JSL >CHIPON 5171 ; 5172 E002240 A6 12 LDX CHIPON 5199 ; 5200 E002267 A6 12 LDX CHIPON 5216 ; 5217 E002295 A6 12 LDX CHIPON 5256 ; 5257 E0022EE A6 12 LDX ENMDCK ;enemy mode check 5261 ; 5262 ;-------------- ビーム”キラキラ”効果セットチェック ------------ 5263 E0022F4 BD 7884 LDA ENTIM0,X 5264 E0022F7 D0 0D BNE BEEM0MV_0020 ;”キラキラ”セット？ ( no:BEEM0MV_0020 ) 5265 ; 5266 E0022F9 A9 0005 LDA #05H 5267 E0022FC 9D 7884 STA ENTIM0,X 5268 ; 5269 E0022FF A9 0808 LDA #08H+(08H*100H) 5270 E002302 22 00236C' JSL >KIRAKIRA_SET 5271 ; 5272 ;-------------- 敵との衝突チェック ------------------------------ 5273 002306 BEEM0MV_0020 EQU $ 5274 E002306 BC 7B24 LDY ECRSFG,X 5275 E002309 F0 2C BEQ BEEM0MV_0050 ;敵に当たった？ ( no:BEEM0MV_0050 ) 5276 E00230B 30 2A BMI BEEM0MV_0050 ; ” 5277 ; 5278 E00230D B9 6CED LDA ENMODE-1,Y 5279 E002310 C9 0000" CMP #EMOVE 5280 E002313 D0 22 BNE BEEM0MV_0050 ;敵健在？ ( no:BEEM0MV_0050 ) 5281 E002315 B9 6E2D LDA ENMOD2-1,Y 5282 E002318 29 0180 AND #0000000110000000B 5283 E00231B D0 1A BNE BEEM0MV_0050 ;敵？ ( no:BEEM0MV_0050 ) 5284 ; 5285 E00231D A9 0000" LDA #ECHNG ;タマゴに変わるモードセット 5286 E002320 99 6CED STA ENMODE-1,Y 5287 E002323 AD 775E LDA RANDM0 5288 E002326 29 0007 AND #07H 5289 E002329 0A ASL A 5290 E00232A AA TAX 5291 E00232B BD 22A9' LDA !BEEM0_CHNG_EN,X 5292 E00232E 99 0A18 STA EN_SP_WRK0-1,Y ;変わる敵Ｎｏ．セット 5293 E002331 A6 12 LDX ENCLEAR ;ビームは消える 5295 ; 5296 ;-------------- 回転セット -------------------------------------- 5297 002337 BEEM0MV_0050 EQU $ 5298 E002337 B5 16 LDA RANDAM 5341 E002376 AD 775D LDA RANDM0-1 5342 E002379 29 FF00 AND #0FF00H 5343 E00237C 05 00 ORA RANDAM 5361 E00239F AD 775E LDA RANDM0 5362 E0023A2 29 00FF AND #00FFH 5363 E0023A5 05 02 ORA EXINSR ;効果エリア確保 5381 ; 5382 E0023C7 A5 00 LDA TROBJ_SR_4x4_CL 5397 ; 5398 E0023E2 A9 0100 LDA #0100H 5399 E0023E5 8D 300C STA R6 ;(R6) <-- 倍率 5400 E0023E8 BC 7510 LDY ENTROB,X 5401 E0023EB BB TYX 5402 E0023EC BF 000000" LDA >TROBJ_PLOT_X,X 5403 E0023F0 8D 3006 STA R3 ;(R3) <-- ビットマップ座標＿Ｘ 5404 E0023F3 BF 000000" LDA >TROBJ_PLOT_Y,X 5405 E0023F7 8D 3004 STA R2 ;(R2) <-- ” ＿Ｘ 5406 E0023FA A9 0010 LDA #010H 5407 E0023FD 8D 3010 STA R8 ;(R8) <-- 中心＿Ｘ 5408 E002400 8D 3012 STA R9 ;(R9) <-- ”＿Ｙ vvv***** warning: value out of range. 5409 E002403 A9 80C1 LDA #CIPCHD2+00C0H+1 5410 E002406 8D 3018 STA R12 ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） 5411 E002409 A9 0054 LDA #BANK CIPCHD2 5412 E00240C 8D 301A STA R13 ;(R13) <-- ” (Ｂ） 5413 M_CHIP C_32_ZOOM 5413+ E00240F A2 08 LDX #BANK C_32_ZOOM vvv***** warning: value out of range. 5413+ E002411 A9 D28A LDA #C_32_ZOOM 5413+ E002414 22 000000" JSL >CHIPON 5414 ; 5415 E002418 EE 0B98 INC OBM7WF ;転送キャラクター転送フラグ”ＯＮ” 5416 ; 5417 E00241B A6 12 LDX TROBJ_OAM_4x4 5425 ; 5426 ;************************************************************************ 5427 ;* intial ( 乗ったら落ちる床 ) * 5428 ;************************************************************************ 5429 002422 ON_DWIN EQU $ 5430 E002422 BD 6ED0 LDA ENXPSL,X 5431 E002425 8D 3002 STA R1 ;(R1) <-- 乗ったＸ座標 5432 E002428 BD 6F70 LDA ENYPSL,X 5433 E00242B 8D 3004 STA R2 ;(R2) <-- 乗ったＹ座標 5434 M_CHIPR ON_DW_SZCK ;乗ったら落ちる床サイズチェック 5434+ E00242E A2 0A LDX #BANK ON_DW_SZCK vvv***** warning: value out of range. 5434+ E002430 A9 D98C LDA #ON_DW_SZCK 5434+ E002433 22 000000" JSL >CHIPON_RAM_READ 5435 ; 5436 E002437 A6 12 LDX ENCLEAR 5442 ; 5443 002445 ON_DWIN_0050 EQU $ 5444 E002445 AD 3002 LDA R1 5445 E002448 9D 6ED0 STA ENXPSL,X ;ブロック左上Ｘ座標セット 5446 E00244B AD 3004 LDA R2 5447 E00244E 9D 6F70 STA ENYPSL,X ;ブロック左上Ｙ座標セット 5448 E002451 AD 3012 LDA R9 5449 E002454 95 76 STA CHIPON 5499 ; 5500 E0024BD A6 12 LDX ENMDCK ;enemy mode check 5503 ; 5504 E0024C3 B5 18 LDA UNITCHG 5533 ; File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0097 5534 E002500 A6 12 LDX ENCLEAR 5589 ; 5590 ;-------------- ”ブルブル”チェック ---------------------------- 5591 002559 ON_DWMV_0550 EQU $ 5592 E002559 BD 7884 LDA ENTIM0,X 5593 E00255C 3A DEC A 5594 E00255D C9 0050 CMP #050H File : ys_enmy3.asm SFX ASSEMBLER`R' $Ver0.01 Tue Jul 12 09:43:50 1994 Page 0098 5595 E002560 B0 22 BCS ON_DWMV_0650 ;”ブルブル”？ ( no:ON_DWMV_0650 ) 5596 ; 5597 E002562 C9 0040 CMP #040H 5598 E002565 D0 06 BNE ON_DWMV_0600 ;落下スタート？ ( no:ON_DWMV_0600 ) 5599 ; 5600 E002567 A9 0004 LDA #04H ;重力セット 5601 E00256A 9D 7330 STA ENGPOW,X 5602 ; 5603 00256D ON_DWMV_0600 EQU $ 5604 E00256D A5 14 LDA POBBGCR ;プレイヤーとの全当たりチェック＆補正 5619 ; 5620 ; 5621 ; 5622 ; 5623 ; 5624 E002588 END