File : ys_enmy12.asm RICOH SFX ASSEMBLER VER. V2.11Tue Aug 1 16:39:20 1995 1 ;************************************************************************ 2 ;* * 3 ;* title name : "yossy" * 4 ;* proccess : enemy sub.1 * 5 ;* file name : ys_enmy12 * 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 include ys_color.h 17 include ys_ename.h 18 ; 19 XALL 20 ; 21 ; 22 ;------------------------------------------------------------------------ 23 ;- global symbol - 24 ;------------------------------------------------------------------------ 25 GLB KAMCSIN,SHEIHIN 26 ; 27 GLB KAMCSMV,SHEIHMV 28 ; 29 ;------------------------------------------------------------------------ 30 ;- extern symbol - 31 ;------------------------------------------------------------------------ 32 ; 33 ;-------------< ys_main >------------------------------------------------ 34 EXT BS_SCRE 35 EXT SOUND_3_ON 36 ; 37 ;-------------< ys_rpro >------------------------------------------------ 38 EXT JSRSUB 39 EXT CHIPON 40 ; 41 ;-------------< ys_play >------------------------------------------------ 42 EXT EBSTAT 43 EXT PFAL,PSTP,PMOV,PDEM,PGOL 44 EXT PFLP 45 ; 46 ;-------------< ys_bgsc >------------------------------------------------ 47 ; 48 ;-------------< ys_enmy >------------------------------------------------ 49 EXT ENEMY,ENINSB 50 EXT ENCLEAR,ENCLEAR_NORETN,DISPCK0,DISPCK2 51 EXT ENINSR,ENINSR2,EEXCHK,EEYCHK,EEXYCK,ESTATST 52 EXT ENINSR_I,ENINSR2_I 53 EXT SCOREST 54 EXT ENMDCK,XSDOWN,EPCRCK,MUKEOR,XSPEOR,MKEOR2,PLFLST 55 EXT PLFLST_2 56 EXT FUSENST 57 EXT SHOT_EN_KILL,SHOT_EN_KILL_S 58 ; 59 EXT EINIT,EFAIL,EMOVE,EEATM,ENOSE,EBABL 60 ; 61 EXT EATMXS,NOSWT 62 ; 63 EXT EGGKILL_ALL 64 ; 65 EXT FSMK0_SET2 66 ; 67 EXT TROBJ_CANCEL 68 EXT TROBJ_SR_2x2,TROBJ_SR_4x4,TROBJ_SR_8x8 69 EXT TROBJ_SR_2x2_CL,TROBJ_SR_4x4_CL,TROBJ_SR_8x8_CL 70 EXT TROBJ_OAM_2x2,TROBJ_OAM_4x4,TROBJ_OAM_8x8 71 EXT TROBJ_OAM_2x2_I,TROBJ_OAM_4x4_I,TROBJ_OAM_8x8_I 72 EXT TROBJ_CLEAR 73 EXT TROBJ_PLOT_X,TROBJ_PLOT_Y 74 ; 75 ;-------------< ys_enmy2 >------------------------------------------------ 76 EXT NMZ_HOSEI 77 ; 78 ;-------------< ys_enmy3 >------------------------------------------------ 79 EXT BSCLW_SET_B,BSCLW_SET_M,BSCLW_SET_B_T 80 EXT BOSS_CLEAR 81 EXT BOSS_EN_CHANGE 82 ; 83 ;-------------< ys_enmy4 >------------------------------------------------ 84 EXT MPACK_DEMO_ED 85 ; 86 ;-------------< ys_enmy6 >------------------------------------------------ 87 EXT LOCKON_TARGET,LOCKON_TARGET2 88 ; 89 ;-------------< ys_exst >------------------------------------------------ 90 EXT EXINSR 91 ; 92 ;-------------< ys_unit >------------------------------------------------ 93 EXT UNDTADD,UNDATA,RUTDATA 94 ; 95 ;-------------< ys_init >------------------------------------------------ 96 EXT UNCOMPRES,VRAMDX_ST,VRAMDX_H_ST,VRAMDX_L_ST,VRAMDX_L_C_ST 97 EXT M_DMA_BFST 98 ; 99 ;-------------< ys_play >------------------------------------------------ 100 EXT TIMEUP_SET 101 ; 102 ;-------------< ys_game >------------------------------------------------ 103 EXT BS1_MSG 104 ; 105 ;-------------< ys_data >------------------------------------------------ 106 EXT SIN,COS 107 ; 108 ;-------------< ys_msgdt >------------------------------------------------ 109 EXT BS3_MSG_2 110 ; 111 ; 112 ;------------------------------------------------------------------------ 113 ;- define symbol - 114 ;------------------------------------------------------------------------ 115 000000 BABY_INDEX EQU 00 116 ; 117 ; 118 ; 119 ;************************************************************************ 120 ;* * 121 ;* program start * 122 ;* * 123 ;************************************************************************ 124 ; 125 EXTEND 126 ; 127 MEM16 128 IDX8 129 ; 130 DPAGE EN0RAM 131 ; 132 Group_0 GROUP Enmy12_pro 133 Enmy12_pro SECT REL 134 ; 135 ; 136 ; 137 ;************************************************************************ 138 ;* initial ( かめっく ) * 139 ;************************************************************************ 140 000000 KAMCSIN EQU $ ;-- kamcsin -- 141 E000000 6B RTL 142 ; 143 ;************************************************************************ 144 ;* move ( かめっく ) * 145 ;************************************************************************ 146 ; ENWRK0 147 ; ENWRK2 ROUTINE MODE INDEX 148 ; 149 000001 KAMCS_SUB EQU $ 150 E000001 002B' WORD KAMCS_SUB0 151 E000003 0065' WORD KAMCS_SUB1 152 E000005 0094' WORD KAMCS_SUB2 153 E000007 00B5' WORD KAMCS_SUB3 154 ; 155 000009 KAMCSMV EQU $ ;-- kamcsmv -- 156 E000009 A0 01 LDY #01 157 E00000B 8C 0C1E STY ATSCRL_H 158 159 E00000E B5 78 LDA SOUND_3_ON 234 E000080 A9 0000" LDA #BS3_MSG_2 235 E000083 8F 704070 STA >MSG_NO 236 E000087 EE 0D0F INC MSGMOD 237 E00008A F6 76 INC BSCLW_SET_B 314 315 E0000FF AE 108A LDX ZPACKIDX 316 E000102 22 000000" JSL >ENCLEAR 317 E000106 A6 12 LDX ENCLEAR 320 ; 321 ;************************************************************************ 322 ;* initial ( small heiho- ) * 323 ;************************************************************************ 324 00010D SHEIHIN EQU $ ;-- sheihin -- 325 E00010D AC 0073 LDY SCHMK1 326 E000110 F0 04 BEQ SHEIHIN0100 327 328 E000112 5C 000000" JMP >ENCLEAR 329 330 000116 SHEIHIN0100 EQU $ 331 E000116 BD 70E2 LDA ENXPSL,X 332 E000119 38 SEC 333 E00011A ED 0039 SBC SCCH1 334 E00011D 18 CLC 335 E00011E 6D 003D ADC SCCH2 336 E000121 9D 70E2 STA ENXPSL,X 337 E000124 9D 7900 STA ENWRKA,X 338 E000127 BD 7182 LDA ENYPSL,X 339 E00012A 18 CLC 340 E00012B 69 0008 ADC #00008 341 E00012E 38 SEC 342 E00012F ED 003B SBC SCCV1 343 E000132 18 CLC 344 E000133 6D 003F ADC SCCV2 345 E000136 29 FFF8 AND #0FFF8H 346 E000139 18 CLC 347 E00013A 69 000A ADC #0000AH 348 E00013D 9D 7182 STA ENYPSL,X 349 E000140 9D 7902 STA ENWRKC,X 350 E000143 FE 74A1 INC ENDORE,X ;８ビット、ＢＧ２に付随する 351 E000146 FE 74A1 INC ENDORE,X 352 353 E000149 6B RTL 354 ; 355 ;************************************************************************ 356 ;* move ( ana_hori wang-wang ) * 357 ;************************************************************************ 358 ; ENWRK0 359 ; ENWRK2 ROUTINE MODE INDEX 360 ; ENWRK4 361 ; ENWRK6 362 ; ENWRK8 363 ; ENWRKA 出現Ｘ　ＰＯＳ． 364 ; ENWRKC 出現Ｙ　ＰＯＳ． 365 ; 366 ; ENCONT 367 ; 368 ; ENTIM0 369 ; ENTIM1 370 ; ENTIM2 方向転換タイマー 371 ; ENTIM3 372 ; 373 00014A SHEIH_XSPD EQU $ 374 E00014A FFE0 0020 WORD 0FFE0H,00020H 375 ; 376 00014E SHEIHMV EQU $ ;-- sheihmv -- 377 E00014E 22 000000" JSL >ENMDCK 378 379 E000152 22 000000" JSL >DISPCK2 ;画面中 ? 380 E000156 90 04 BCC SHEIHMV0100 ; yes: SHEIHMV0100 381 382 E000158 5C 000000" JMP >ENCLEAR_NORETN 383 384 00015C SHEIHMV0100 EQU $ 385 E00015C BD 7400 LDA ENMUKI,X 386 E00015F 3A DEC A 387 E000160 85 00 STA