;************************************************************************ ;* * ;* title name : "yossy" * ;* proccess : enemy sub * ;* file name : ys_enmy14 * ;* * ;************************************************************************ ; ; SALL ; include ys_header.inc include ys_unit.h include ys_pld.h include ys_presno.h include ys_color.h include ys_ename.h include ../union/ys_bgcheck.h ; XALL ; ; ;------------------------------------------------------------------------ ;- global symbol - ;------------------------------------------------------------------------ GLB QSPAKIN GLB QSPAKMV GLB PUCHGIN GLB PUCHBIN GLB BOSSQIN GLB BOSSKIN ;; GLB SESAWIN ; GLB PUCHGMV GLB PUCHBMV GLB BOSSQMV,B_LOOP GLB BOSSKMV ;;; GLB SESAWMV ;---- lavel --- GLB PBBY ;------------------------------------------------------------------------ ;- extern symbol - ;------------------------------------------------------------------------ ; ;-------------< ys_main >------------------------------------------------ EXT SOUND_1_ON EXT SOUND_3_ON EXT GO_NEXTGOTO EXT BS_SCRE ;-------------< ys_rpro >------------------------------------------------ EXT JSRSUB EXT CHIPON ; ;-------------< ys_play >------------------------------------------------ EXT PFAL,PSTP,PMOV,PDEM,PGOL EXT PFLP,PBSQ,PBQ7 ; ;-------------< ys_enmy >------------------------------------------------ EXT ENEMY,ENINSB EXT ENCLEAR,ENCLEAR_NORETN,DISPCK0,DISPCK2 EXT ENINSR,ENINSR2,EEXCHK,EEYCHK,EEXYCK,ESTATST EXT ENINSR_I,ENINSR2_I EXT SCOREST EXT ENMDCK,XSDOWN,EPCRCK,MUKEOR,XSPEOR,MKEOR2,PLFLST EXT PLFLST_2 EXT FUSENST EXT SHOT_EN_KILL,SHOT_EN_KILL_S ; EXT EINIT,EFAIL,EMOVE,EEATM,ENOSE,EBABL ; EXT COS,SIN ; EXT EATMXS,NOSWT ; EXT EGGKILL_ALL ; EXT COLBL_SET2 ; EXT TROBJ_CANCEL EXT TROBJ_SR_2x2,TROBJ_SR_4x4,TROBJ_SR_8x8 EXT TROBJ_SR_2x2_CL,TROBJ_SR_4x4_CL,TROBJ_SR_8x8_CL EXT TROBJ_OAM_2x2,TROBJ_OAM_4x4,TROBJ_OAM_8x8 EXT TROBJ_OAM_2x2_I,TROBJ_OAM_4x4_I,TROBJ_OAM_8x8_I EXT TROBJ_CLEAR,TROBJ_SR_8x4,TROBJ_OAM_8x4_I EXT TROBJ_PLOT_X,TROBJ_PLOT_Y EXT KAMC2COLRESET_L,Kati ; ;-------------< ys_enmy2 >------------------------------------------------ EXT PUCHACONT_CK2 ;-------------< ys_enmy3 >------------------------------------------------ EXT BOSS_CLEAR_M,BOSS_CLEAR EXT BSCLW_SET_B,BSCLW_SET_M EXT BOSS_EN_CHANGE,BSCLW_SET_B_T ; ;-------------< ys_enmy9 >------------------------------------------------ EXT DOROBOUCANCEL ; ;-------------< ys_exst >------------------------------------------------ EXT EXINSR EXT BSQKR,TEN_2 ; ;-------------< ys_init >------------------------------------------------ EXT UNCOMPRES,VRAMDX_ST,VRAMDX_H_ST,VRAMDX_L_ST,VRAMDX_L_C_ST EXT M_DMA_BFST ; ;-------------< ys_game >------------------------------------------------ EXT BOSSQ_MD7_SET ; ;------------------------------------------------------------------------ ;- define symbol - ;------------------------------------------------------------------------ SANGLE EQU BSWRK5 SAPOWR EQU BSWRK3 SAPOWR2 EQU BSWRK4 BSASPD2 EQU BSWRK2 ;************************************************************************ ;* * ;* program start * ;* * ;************************************************************************ ; EXTEND ; MEM16 IDX8 ; DPAGE EN0RAM ; Group_F GROUP Morita_pro Morita_pro SECT REL ; ; ;************************************************************************ ;* initial ( ジャイアント プチプチ ) * ;************************************************************************ PUCHGIN EQU $ ; ;-------------- ジャイアントプチプチの転送エリア確保 -------------------- JSL >TROBJ_SR_8x4 BCS PCGI010 ;エリア確保？ ( yes:PCGI010) ; JMP >ENCLEAR ; PCGI010 EQU $ ; JSR PGCHTR ; Chr TR. initial ; LDA #100H STA ENWRKA,X ; 倍率 x STA ENWRKC,X ; 倍率 y ; RTL ;************************************************************************ ;* move ( ジャイアント プチプチ ) * ;************************************************************************ PUCHGMV EQU $ ; STZ ENSHOT,X ; ;-------------- ジャイアントプチプチのＯＡＭセット ---------------------- ; I16 ; LDA ENOAML,X BMI PCGC010 ;ＯＡＭセットＯＫ？ ( no:PCBC010 ) ; CLC ADC #6*8 PHA ;(A) save TAY JSL >TROBJ_OAM_8x4_I ; I16 ; PLA ;(A) load CLC ADC #8*8 TAY JSL >TROBJ_OAM_8x4_I ; PCGC010 EQU $ ; I8 ; LDA ENTIM2,X BNE PCGC020 ; Protect time ! ; LDA EPCRCK2 JSR PGFLCK PCGC020 EQU $ JSL >ENMDCK ; JSR PGMOVE ; move sub ; JSR CRENEN ; Vs enemy check ; JSR ENBGCK ; JSR PGCHTR ; Chr TR. RTL ;------------------------------------------------- EPCRCK2 EQU $ JSL >EPCRCK RTL ;================================================= ;= = ;================================================= ENBCXR EQU $ WORD 0FFFFH,00001H ; ENBGCK EQU $ M8 ; LDA ENCBFG,X AND #00001100B M16 BEQ EBCK010 ; LSR A LSR A AND #02H TAY LDA ENXPSL,X CLC ADC ENBCXR,Y STA ENXPSL,X ; LDA SOUND_3_ON ;(S) ; JSR PUCHBST ; JSL >ENCLEAR_NORETN ; ; ; ; ; ; RTS ; LDA #20H ; STA ENTIM2,X ;; ; JMP PGRET ;================================================= PBSXSD EQU $ WORD 0100H,0FF00H PBSXAD EQU $ WORD 0010H,0FFF0H PBSMKI EQU $ WORD 0002H,00000H ; PUCHBST EQU $ LDA #BG3EX JSL >ENINSR BCC PCBS002 ; LDA #02H STA ENCONT,Y ; LDA #01H STA ENWRK2,Y ; LDA ECENTX,X STA ENXPSL,Y ; LDA ECENTY,X STA ENYPSL,Y PCBS002 EQU $ LDA ECENTX,X STA R1 LDA ECENTY,X STA R2 LDA #0050H STA R10 LDA #0400H STA CCWORK0 LDA #0FC00H STA CCWORK1 ; M_CHIP PONTA_BOMB ; Bakuhatsu hit check ! LDX SOUND_3_ON ;(S) ; LDA #02H STA ENINSR BCC PCBS090 ; LDX SOUND_3_ON ;(S) PLY ; LDA #020H STA ENTIM0,X ; LDA ENMYNO,X CMP #PUCHB BNE CPG008 ; LDA ENXSPD,Y STA ENXSPD,X LDA ENYSPD,Y STA ENYSPD,X ; LDA #0FFH STA ENTIM0,X ; INC ENWRK6,X ; Bottobi ! ; CPG008 EQU $ ;; M16 ; LDY ECRSFG,X DEY TYX JSL >SHOT_EN_KILL ; LDX PLFLST ; RTS ;================================================= PGFLCK EQU $ LDA ENMODE,X CMP #EFAIL BNE PGFC90 ; LDA #EMOVE STA ENMODE,X ; LDA PLDOSN BNE PGFC10 ; LDA #PGBY STA SOUND_3_ON ;(S) PLY PGFC90 EQU $ RTS ; PGFC10 EQU $ STZ TROBJ_PLOT_Y,X STA R2 ;(R2) <-- ビットマップ座標＿Ｙ LDA >TROBJ_PLOT_X,X STA R3 ;(R3) <-- ビットマップ座標＿Ｘ M_CHIP C_32_ZOOM_XY ; LDX TROBJ_PLOT_Y,X STA R2 ;(R2) <-- ビットマップ座標＿Ｙ LDA >TROBJ_PLOT_X,X CLC ADC #020H STA R3 ;(R3) <-- ビットマップ座標＿Ｘ M_CHIP C_32_ZOOM_XY ; INC OBM7WF ;転送フラグ”ＯＮ” ; LDX ENMDCK ; JSR PBMOVE ; move sub ; JSR PBCHTR RTL ;- - - - - - - - - - - - - - - - - - - - - - - - PCB010 EQU $ LDA ENTIM2,X BNE PCBC020 ; Protect time ! ; JSR CRPGEGG ; JSL >EPCRCK2 JSR PBFLCK PCBC020 EQU $ JSL >ENMDCK ; JSR PBMOVE ; move sub ; JSR CRENEN ; Vs enemy check ; JSR ENBGCK ; RTL ;================================================= PBFLCK EQU $ LDA ENMODE,X CMP #EFAIL BNE PBFC90 ; LDA #EMOVE STA ENMODE,X ; LDA PLDOSN BNE PBFC10 ; LDA #PBBY STA PBCHIN JSR PBCSET RTS ;================================================= ;================================================= ;= = ;================================================= PBMOVE EQU $ LDA SOUND_3_ON ;(S) ; JSR PUCHSST ; JSL >ENCLEAR_NORETN ; RTS ;================================================= PSSYSD EQU $ WORD 0FD00H,0FD00H WORD 0FC00H,0FC00H PSSXSD EQU $ WORD 01C0H,0FE40H WORD 0100H,0FF00H PSSXAD EQU $ WORD 0010H,0FFF0H WORD 0008H,0FFF8H PSSMKI EQU $ WORD 0002H,00000H WORD 0002H,00000H ; PUCHSST EQU $ LDA #PONBR JSL >EXINSR LDA ECENTX,X STA EXXPSL,Y LDA ECENTY,X STA EXYPSL,Y LDA #00002 STA EXTIM0,Y LDA #00008 STA EXCHPT,Y ; LDA ECENTX,X STA R1 LDA ECENTY,X STA R2 LDA #0040H STA R10 LDA #0300H STA CCWORK0 LDA #0FD00H STA CCWORK1 ; M_CHIP PONTA_BOMB ; Bakuhatsu hit check ! LDX SOUND_3_ON ;(S) ; LDA #06H STA ENINSR BCC PCSS060 ; LDX PUCHACONT_CK2 ; PCSS070 EQU $ LDX TROBJ_SR_4x4 BCS PCBI010 ;エリア確保？ ( yes:PCBI010 ) JMP >ENCLEAR ; PCBI010 EQU $ RTL ; ; ; ; ; ; ; ; ; ; ; ; ; ; PBCSET EQU $ ;-------------- ビッグプチプチのＯＡＭセット ---------------------------- JSL >TROBJ_OAM_4x4 ; I16 ; LDA ENOAML,X CLC ADC #4*8 TAY JSL >TROBJ_OAM_4x4_I ; IDX8 RTS ; ; ; PBCHTR EQU $ ;-------------- ビッグプチプチの胴体キャラクターセット ------------------ LDA ENWRKA,X STA R6 ;(R6) <-- Ｘ倍率 LDA ENWRKC,X STA R11 ;(R11) <-- Ｙ倍率 LDA #01FH STA R8 ;(R8) <-- 中心＿Ｘ STA R9 ;(R9) <-- 中心＿Ｙ LDA #CIPCHD4+00E0H STA R12 ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） LDA #BANK CIPCHD4 STA R13 ;(R13) <-- キャラクターアドレス(Ｂ） LDY ENTROB,X TYX LDA >TROBJ_PLOT_Y,X STA R2 ;(R2) <-- ビットマップ座標＿Ｙ LDA >TROBJ_PLOT_X,X STA R3 ;(R3) <-- ビットマップ座標＿Ｘ M_CHIP C_32_ZOOM_XY ; INC OBM7WF ;mode 7 OBJ chara DMA "ON" ; LDX TROBJ_SR_8x8 ;転送エリア確保（８×８） ; LDA #0000H STA ENGPOW,X ; LDA #0018H STA ENBGYP,X ; LDA #0010001010000000B STA ENMOD1,X ; STZ BSWRK0 STZ BSWRK6 STZ BSWRK7 ; LDA ENYPSL,X CLC ADC #010H STA ENYPSL,X ; LDA #0058H STA BSXSIZ ; LDA #0040H STA ENTIM0,X ; LDA #06H+0FH STA ENCHPT,X ; LDA MAPOINT AND #00FFH CMP #0064-1 BNE BSKI010 ; LDY #Kati JSL >KAMC2COLRESET_L ; ; M8 ; JSR BKWSET ; M16 BSKI010 EQU $ RTL ; ;************************************************************************ ;* move ( ボスカチカチ君 ) * ;************************************************************************ BOSSKMV EQU $ ; ;------------------------------------------------------------------------ ;- ＯＡＭセット - ;------------------------------------------------------------------------ ; M8 ; ; LDA KEYA2L ; AND #010H ; BEQ BKTE010 ;; ; JSR BKYUPST ; ; LDA BSXSIZ ; CMP #0FFH ; BEQ BKTE010 ;; ; INC BSXSIZ ;; ;BKTE010 EQU $ ; LDA KEYA1L ; AND #020H ; BEQ BKTE020 ;; ; LDA BSXSIZ ; CMP #058H ; BEQ BKTE020 ;; ; DEC BSXSIZ ;BKTE020 EQU $ ; ; ; JSR KTSUB ; Character revise ; M16 ; JSL >ENMDCK ; JSR BKCHTR ; M8 ; JSR BKMOVE ; LDA ENWATR,X CMP #WT+MG ;08H BNE BKTE020 ; LDA #07AH JSL >SOUND_3_ON ;(S) ; LDA #0F0H STA SOUND_0 ;(S) ; STZ ENWATR,X ; JSR BKYUPST ; LDA #BEND0 STA BSSTAT ; M16 ; LDA ENMOD0,X AND #1111100111011111B ; OBJ hit noth. STA ENMOD0,X ; LDA ENMOD1,X AND #1111111111100000B ; BG check noth. STA ENMOD1,X ; STZ ENGPOW,X BKTE020 EQU $ M16 IDX8 ; RTL ; ; ;============================================================= MEM8 ; BKMOVE EQU $ JSR BKTEST ; Test controle ; LDA BSTIM0 BEQ BKM0000 ; DEC BSTIM0 BKM0000 EQU $ LDA BSTIM1 BEQ BKM0001 ; DEC BSTIM1 BKM0001 EQU $ LDA BSTIM2 BEQ BKM0002 ; DEC BSTIM2 BKM0002 EQU $ JSR BKBGCK ; ;; JSR KTSUB ; JSR BKSUB ; LDA ENCBFG,X AND #01H STA BSWRK8 ; ; LDA BSMUKI ; ASL A ; STA ENMUKI,X ; ; JSR BKSSRV ; Seesow angle revise ; ; M16 ; ; LDA BSXSPD ; CLC ; ADC SOUND_3_ON ;(S) ; LDA #018H STA TILTCT ; LDA #040H STA ENGPOW,X ; LDA #0A0H STA ENTIM0,X ; STZ PLMODE ; INC BSSTAT BD15010 EQU $ RTS ;================================================================ BKDEMO2 EQU $ TYX ; M8 ; LDA ENTIM0,X BNE BKD2010 ; JSR BKWSET BKD2010 EQU $ RTS ;================================================================ ;================================================================ ;================================================================ ;================================================================ ;================================================================ BKWKPT EQU $ HEX 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F BKXSDT EQU $ ;; HEX F0,10 WORD 0FF00H,0100H WORD 0FE80H,0180H ; BKTUPT EQU $ BKTM HEX 1F,1F,1F,1F HEX 20,20,20,20,20,20,20,20 HEX 1F,1F,1F,1F,1F BKTME ;------------------------------------------------- BKWALK EQU $ TYX ; LDA #0040H STA ENGPOW,X ; JSR BKMD1ST ; LDA BSTIM1 BNE BKW010 ; DEC BSWRK0 BPL BKW010 ; LDA #01H STA BSWRK0 ; LDA BSWRK1 INC A AND #0FH STA BSWRK1 ; LDY BSWRK1 LDA BKWKPT,Y STA BSCHPT ; DEC A AND #07H BNE BKW002 ; JSR BKWKXSS BKW002 EQU $ LDA BSCHPT AND #07H BNE BKW010 BKW008 EQU $ LDA #0CH STA TILTCT LDA #10H STA BSTIM1 ; LDA #84H JSL >SOUND_3_ON ;(S) ; STZ ENXSPD,X STZ ENXSPD+1,X ; BKW010 EQU $ LDA ENCBFG,X AND #00001100B STA BSWRK3 BNE BKWK001 ; LDA ENCBFG,X AND #01H ;; BRA BKWK002 BNE BKWK002 ; LDA BSWRK8 BEQ BKWK002 ; BKWK001 EQU $ JMP BKJPST ; JUMP set ! ; BKWK002 EQU $ ; LDA BSCHPT BEQ BKW018 CMP #01H BEQ BKW018 CMP #0EH BEQ BKW018 CMP #0FH BNE BKW020 ; Turn check timing ? ; BKW018 EQU $ BKTUCK EQU $ JSR EPXCHK ; TYA CMP ENMUKI,X ;BSMUKI BEQ BKW050 ; LDA FRCNT AND #00H BNE BKW020 ; LDA #BKTU STA BSSTAT ; LDA #BKTME-BKTM-1 STA BSTIM0 BKW020 EQU $ RTS ;------------------------------------------- BKW050 EQU $ ; RTS ; M16 LDA SOUND_3_ON ;(S) ; LDA #000H STA ENYSPD,X LDA #0F9H STA ENYSPD+1,X ; LSR ENCBFG,X ASL ENCBFG,X ; INC BSSTAT ; STZ SOUND_3_ON ;(S) ; STZ ENYSPD,X STZ ENYSPD+1,X ; LDA #BKJST STA BSSTAT ; STZ off ? LDA ENCBFG,X AND #01H BNE BKSP002 ; LDA ENYPSL,X CMP #0A0H BCS BKSP002 ; LDA BSWRK8 BEQ BKSP002 ; JMP BKPISET ; Pinch set ! ; BKSP002 EQU $ ; LDA BSWRK7 CLC ADC BSWRK6 STA BSWRK7 LDY BSTIM0 BNE BKSP010 ; Protect time ! ; LDA BSWRK7 CMP #000H BNE BKSP010 ; BKSP2SET EQU $ STZ BSWRK7 ; STZ EXINSR ;; ; LDA EXINSR ;exstra index search ; LDA ENXPSL,X CLC ADC EXINSR ; LDA ENXPSL,X CLC ADC EXINSR ;exstra index search ; LDX SOUND_3_ON ;(S) ; BKESS010 EQU $ RTS ;================================================== BKE2AD EQU $ HEX FF,01 ; BKEND2 EQU $ TYX ; JSR BKYGST ; LDA #040H STA ENYSPD,X STZ ENYSPD+1,X ; LDA FRCNT AND #03H BNE BKE2008 ; LDA ENMUKI,X LSR A TAY LDA BKE2AD,Y CLC ADC BSWRK7 STA BSWRK7 ; BKE2008 EQU $ LDA ENYPSH,X CMP #08H BCC BKE2010 ; LDA #BKEND STA BSSTAT ; LDA #020H ;#0FFH STA ENTIM0,X ; M16 ; JSL >BOSS_EN_CHANGE ; ;; LDA #05H ;; STA !SOUND_0 ; (S) ; LDA ENXPSL,X CLC ADC #000H STA BSCLW_SET_M ; M8 BKE2010 EQU $ JSR BKENDSDS ;(S) RTS ; ;====================================================== BKENDS EQU $ TYX ; LDA ENTIM0,X BNE BKED010 ; ;; LDA #BS_SCRE ;; STA !MODENO M16 ;; JSL >BOSS_CLEAR_M ; Boss clear ! JSL >ENCLEAR_NORETN ; M8 BKED010 EQU $ RTS ;---------------------------------------------------------- BSXDOWN EQU $ M16 ; LDA ENXSPD,X ;BSXSPD BEQ BSXD010 BPL BSXD008 CLC ADC #0010H ;INC BSXSPD BRA BSXD010 BSXD008 EQU $ ;; DEC BSXSPD SEC SBC #0010H BSXD010 EQU $ STA ENXSPD,X M8 RTS ;---------------------------------------------------------- BSXDOWN2 EQU $ M16 ; LDA ENXSPD,X ;BSXSPD BEQ BSXD0102 BPL BSXD0082 CLC ADC #0002H ;INC BSXSPD BRA BSXD0102 BSXD0082 EQU $ ;; DEC BSXSPD SEC SBC #0002H BSXD0102 EQU $ STA ENXSPD,X RTS ;---------------------------------------------------------- EPXCHK EQU $ M16 ; LDY #00H LDA ENXPSL,X SEC SBC PLXPSL STA SOUND_3_ON ;(S) ; LDA #20H STA BSTIM2 ; LDA #BKSP ; STA BSSTAT ;; ; LDA #04H ; STA BSTIM0 ; M16 ; ; LDY ECRSFG,X DEY TYX STZ ENSHOT,X JSL >SHOT_EN_KILL LDX ENMDCK ; ; M8 ; LDA #047H STA >SOUND_1 ;(S) ; LDA ENWRK8,X BEQ QSM002 ; LDY ENWRKA,X INC ENWRKA,X LDA QSPCDT,Y BMI QSM00C ; STA ENCHPT,X ; LDA ENMOD2,X AND #11111100B STA ENMOD2,X ; M16 RTL ; MEM8 QSM002 EQU $ LDY ENMUKI,X LDA ENWRK2,X CLC ADC QSPKAD,Y STA ENWRK2,X ; CLC ADC ENWRK0,X STA ENCLEAR RTL ;************************************************************************ ;* QSPAK SET * ;************************************************************************ QSPADT EQU $ WORD 0FFF8H,00008H QSPADT2 EQU $ WORD 0FFF0H,00010H ; QSPAKSET EQU $ M8 LDA BSMUKI PHA M16 ; LDA #47H JSL >SOUND_3_ON ;(S) ; LDA #018H STA TILTCT ; M8 ; STZ BSMUKI JSR QSPAKSETS LDA #02H STA BSMUKI JSR QSPAKSETS PLA STA BSMUKI RTS ;================================================================ QSPAKSETS EQU $ M16 ; LDA #QSPAK JSL >ENINSR M8 BCC QSPS010 ; LDA BSANGL1 STA ENWRK0,Y ; LDA BSMUKI STA ENMUKI,Y ; LDA #00H STA ENWRK4,Y ; DAI ; LDA #05H STA ENYUSN,Y QSPS010 EQU $ ; M16 LDA #QSPAK JSL >ENINSR M8 BCC QSPS020 ; LDX BSMUKI TXA STA ENMUKI,Y ; LDA BSANGL1 CLC ADC QSPADT,X STA ENWRK0,Y ; LDA #00H STA ENWRK4,Y ;CYUU ; LDA ENMOD2,Y AND #11111100B STA ENMOD2,Y ; LDA #06H STA ENYUSN,Y ; LDA #04H STA ENWRKA,Y ; LDX ENINSR M8 BCC QSPS030 ; LDX BSMUKI TXA STA ENMUKI,Y ; LDA BSANGL1 CLC ADC QSPADT2,X STA ENWRK0,Y ; LDA #04H STA ENWRK4,Y ;SYOU ; LDA ENMOD2,Y AND #11111100B STA ENMOD2,Y ; LDA #07H STA ENYUSN,Y ; LDA #06H STA ENWRKA,Y ; LDX BOSSQ_MD7_SET BSQ010 EQU $ ;------------------------------------------------------------------------ ;- ＯＡＭセット - ;------------------------------------------------------------------------ LDA ENCHPT,X BEQ BSQ020 ; LDA ENMOD2,X AND #0000011111111111B ORA #0010000000000000B STA ENMOD2,X ; JSL >TROBJ_OAM_4x4 ;ＯＡＭセット BRA BSQ030 ; BSQ020 EQU $ ; LDA ENMOD2,X ; AND #0000011111111111B ; ORA #1000000000000000B ; STA ENMOD2,X ; JSL >TROBJ_OAM_8x8 ;ＯＡＭセット ; BSQ030 EQU $ ;; JSL >ENMDCK ; ;------------------------------------------------------------------------ ;- 回転キャラクター作成 - ;------------------------------------------------------------------------ LDA ENCHPT,X BNE BQCHTR2 ; LDA BSANGL2 LDY ENMUKI,X BEQ BOSSQMV_0010 EOR #00FFH INC A BOSSQMV_0010 EQU $ AND #00FFH STA R5 ;(R5) <-- 回転角度 ; LDA BSXSIZ AND #0FFH INC A STA R6 ;(R6) <-- Ｘ倍率 LDA BSYSIZ AND #0FFH INC A STA R11 ;(R11) <-- Ｙ倍率 ; LDY #000H LDA !BOSSQ_CHR_ADR,Y STA R12 ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） LDA #BANK CIPCHD3 STA R13 ;(R13) <-- ” (Ｂ） LDY ENTROB,X TYX LDA >TROBJ_PLOT_X,X STA R3 ;(R3) <-- ビットマップ座標＿Ｘ LDA >TROBJ_PLOT_Y,X STA R2 ;(R2) <-- ” ＿Ｘ M_CHIP C_64_RTZ_64_XY ; INC OBM7WF ;mode 7 OBJ chara DMA "ON" ; LDX ENMDCK ;------------------------------------------------------------------------ ; MOVE !! ;- - ;------------------------------------------------------------------------ LDA DSPMOD CMP #09H BNE BQMOVE2 ; Mode 7 ? ; ; yes ! JSR YENMOVE RTL ;------------------------------------------------- BQMOVE2 EQU $ JSR BQ2SUB RTL ;------------------------------------------------- BQ2CHAD EQU $ WORD CIPCHD3+4080H ;4 WORD CIPCHD3+40A0H ; ;--------------------------- BQCHTR2S EQU $ LDA BSANGL2 AND #0FFH STA R5 ; LDA #0100H STA R6 ;(R6) <-- Ｘ倍率 LDA #000H STA R8 ;(R8) <-- 中心＿Ｘ STA R9 ;(R9) <-- 中心＿Ｙ ;; LDA #CIPCHD3+00E0H LDA BSWRK2 ;FRCNT LSR A LSR A AND #02H TAY LDA BQ2CHAD,Y STA R12 ;(R12) <-- キャラクターアドレス（Ｌ，Ｈ） LDA #BANK CIPCHD3 STA R13 ;(R13) <-- キャラクターアドレス(Ｂ） LDY ENTROB,X TYX LDA >TROBJ_PLOT_Y,X STA R2 ;(R2) <-- ビットマップ座標＿Ｙ LDA >TROBJ_PLOT_X,X STA R3 ;(R3) <-- ビットマップ座標＿Ｘ M_CHIP C_32_ROTZOM ; INC OBM7WF ;mode 7 OBJ chara DMA "ON" ; LDX TROBJ_OAM_8x8 ;ＯＡＭセット ; ; STZ BOSS_START ; ; M16 ; STZ TROBJ_ARIA ; JSL >TROBJ_SR_8x8 ;転送エリア確保（８×８） ;; ; M8 BQ2S010 EQU $ RTS ;------------------------------------------------------- BQ2SET2 EQU $ TYX ; M8 ; LDA ENTIM0,X BNE BQ2S0102 ; LDA #013H JSL >SOUND_3_ON ;(S) ; INC GO_NEXTGOTO ; RTS ;------------------------------------------------------- BQ2DROP EQU $ TYX ; LDA ENTIM0,X BNE BQ2DP010 ; ; LDA #0100H ; STA ENGPOW,X ; LDA #0800H STA ENYSPD,X ; LDA ENYPSL,X CMP #0493H BCC BQ2DP010 ; LDA #0493H STA ENYPSL,X ; STZ ENYSPD,X STZ ENGPOW,X ; INC SOUND_3_ON ;(S) ; LDA #018H STA TILTCT ; BQ2DP010 EQU $ RTS ;------------------------------------------------------- BQ2ATK EQU $ TYX ; M8 ; LDA FRCNT HEX EA,EA,EA AND #07H TAY LDA YTWZOOMX,Y STA BSXSIZ LDA YTWZOOMY,Y STA BSYSIZ ; M16 ; LDY ENTIM0,X BNE BQ2DP010 ;BQ2A020 ; LDA FRCNT AND #001H BNE BQ2A010 ; LDA #DSMK0 JSL >EXINSR ; LDA ENXPSL,X CLC ADC #0010H STA EXXPSL,Y ; LDA ENYPSL,X CLC ADC #0012H STA EXYPSL,Y ; LDA #05H STA EXWRK0,Y ;初期カウンターセット ;;;; LDA #05H STA EXCHPT,Y ;初期パターンＮｏ．セット LDA #04H STA EXTIM0,Y ;初期タイマーセット LDA #00H STA EXYUSN,Y ;優先順位セット BQ2A010 EQU $ LDA #0FB80H STA ENXSPD,X ; LDY ECRSFG,X BPL BQ2A020 ; STZ ENXSPD,X ;; JSL >GO_NEXTGOTO LDA #PBSQ STA PLMODE JSL >EGGKILL_ALL ; LDA #0FC00H STA PLXSPD LDA #0FE00H STA PLYSPD ; INC SOUND_3_ON ;(S) ; LDA #FSMK0 JSL >EXINSR ; LDA PLXPSL CLC ADC #0008H STA EXXPSL,Y LDA PLYPSL CLC ADC #0008H STA EXYPSL,Y LDA #0004H STA EXTIM0,Y LDA #0007H STA EXCHPT,Y STA EXWRK0,Y BQ2A020 EQU $ RTS ;------------------------------------------------------- BQ2ATK2 EQU $ TYX RTS ;- - - - - - - - - - - - - - - - - ;===================================================================== BSHANKD EQU 042H ; Base loop hankei ; YENINIT EQU $ M16 JSL >TROBJ_SR_8x8 ;転送エリア確保（８×８） ; M8 ; LDA DSPMOD CMP #09H BEQ BQI010 ; LDA #40H STA BSANGL2 ; LDA #7FH STA BSXSIZ STA BSYSIZ ; STZ DOROBOUCANCEL RTS ; MEM8 YTITSB EQU $ LDA #BSHANKD STA BSHANK ; Hankei ; LDA #0FFH STA BSXSIZ STA BSYSIZ RTS ;===================================================================== YENMOVE EQU $ MEM8 SEP #00100000B ; LDA BQSCCV3 ;; AND #0FEH CMP #80H BEQ YEM0F0 ; BCS YEM0E0 INC BQSCCV3 INC BQSCCV3 YEM0E0 EQU $ DEC BQSCCV3 YEM0F0 EQU $ LDA ESCCV3 ;; AND #0FEH CMP BQSCCV3 BEQ YEM0FA ;; LDA ESCCV3 BCS YEM0F5 INC A INC A YEM0F5 EQU $ DEC A YEM0F8 EQU $ STA ESCCV3 YEM0FA EQU $ LDA MOTOCOL+1C0H+2,X INY INX CPX #1EH BNE BQCC020 ; PLX RTS ; ;----------------------------------------------- BQCGST EQU $ ; ;-------------- カラーフェード ---------------------------------- ; M16 ; LDA PLFLST ; EPS010 EQU $ M8 RTS ;----------------------------------------------- EPCRCKQ EQU $ M16 ; JSL >EPCRCK2 ; M8 ; LDA ENMODE,X CMP #EFAIL BNE YFCK010 ; LDA #EMOVE STA ENMODE,X ; LDA #YBYON STA BSSTAT ; LDA #034H JSL >SOUND_3_ON ;(S) ; LDA #020H STA ENTIM0,X ; LDA #000H STA PLYSPD LDA #0FCH STA PLYSPD+1 PLA PLA YFCK010 EQU $ ; RTS ;----------------------------------------------- YTADRS EQU $ YT0 WORD YTDEMO0 WORD YTDEMO1 WORD YTDEMO2 WORD YTDEMO3 WORD YTDEMO4 YTW WORD YTWALK YTS WORD YTSTOP WORD YTKYOR WORD YTSTOP2 YTP WORD YTSPARK WORD YTSPARK2 YTJ WORD YTJUMP YTBY WORD YTBYON YTE0 WORD YTEND0 WORD YTEND05 WORD YTEND1 WORD YTEND2 WORD YTEND3 WORD YTEND4 WORD YTEND45 WORD YTEND5 ; YTWK EQU (YTW-YT0)/2 YTJP EQU (YTJ-YT0)/2 YTST EQU (YTS-YT0)/2 YBYON EQU (YTBY-YT0)/2 YTSP EQU (YTP-YT0)/2 YTED0 EQU (YTE0-YT0)/2 ;- - - - - - - - - - - - - - - - - - - YTORIMV EQU $ LDA BOSSQ_KUI_ON BEQ BQ0010 ; STZ BOSSQ_KUI_ON ; LDA BSANGL1 CLC ADC MD7_ANGL CLC ADC #080H CLC ADC #0EH CMP #0EH+0EH ; F2->0E BCS BQ0010 ; LDA BSHANK CMP #BSHANKD+2 BCS BQ0010 ; ; LDA #020H ; STA SOUND0 :[♪] LDA #078H JSL >SOUND_3_ON ;(S) ; LDA ENWRKA,X CMP #01H BNE BQ0002 ; LDA #YTED0 STA BSSTAT ; LDA #0A0H STA BSTIM0 LDA #0A0H ;20 STA BSTIM1 ; M16 LDA #PDEM STA PLMODE ; PLAYER STOP STZ P_KEYC1L STZ P_KEYC2L M8 ; BRA BQ0010 ; BQ0002 EQU $ LDA #YTJP STA BSSTAT ; LDA #08H STA BSWRK0 ; LDA #0A0H STA BSYSIZ ; STZ BSTIM0 ; LDA #18H STA BSTIM1 BQ0010 EQU $ TXY LDA BSSTAT ASL A TAX JMP (YTADRS,X) ;----------------------------------------------- YTDEMO0 EQU $ TYX ; LDA FRCNT LSR A LSR A LSR A LSR A AND #01H STA BSCHPT ; LDA PLMODE CMP #PBQ7 BEQ YTD0010 ;Player demo end ? ; ; yes ! INC BSSTAT ; LDA #050H STA BSTIM0 YTD0010 EQU $ RTS ;----------------------------------------------- YTDEMO1 EQU $ TYX ; LDA FRCNT LSR A LSR A LSR A LSR A AND #01H STA BSCHPT ; ; LDA MD7_ANGL ; AND #0F8H ; CMP #38H ; BNE YTD1010 ;; LDA BSTIM0 BNE YTD1010 ; LDA #01H STA PLSTFG ; STZ PLXSPD STZ PLXSPD+1 STZ PLMVSP STZ PLMVSP+1 ; INC BSSTAT ; LDA #0A0H STA BSTIM0 YTD1010 EQU $ RTS ;----------------------------------------------- YTDEMO2 EQU $ TYX ; JSR BQSCRL ; LDA BSTIM0 BEQ YTD2020 ; CMP #30H BCC YTD2010 AND #0FH BNE YTD2010 ; LDA BSMUKI EOR #02H STA BSMUKI YTD2010 EQU $ RTS YTD2020 EQU $ INC BSSTAT ; ; LDA #30H ; STA SOUND_3_ON ;(S) RTS ;---------------------------------------- YTDEMO3 EQU $ TYX ; JSR BQSCRL ; LDA FRCNT AND #03H BEQ YTD3002 ; LDA SOUND_3_ON ;(S) ; PHX ; LDX #00H YTE010 EQU $ LDA >COL_ADDRESS+TORI_COL_6,X STA >MOTOCOL+1C0H+2,X INX CPX #1EH BNE YTE010 ; PLX ; LDA #0FFH STA SOUND_3_ON ;(S) ; YTE0010 EQU $ LDA BOSS_EN_CHANGE ; LDA #0FFFFH JSL >BSCLW_SET_B_T; ; M8 ; YTE0080 EQU $ RTS ;----------------------------------------------- YTEND05 EQU $ TYX ; ; JSR BQSCRL ; LDA BSXSIZ CMP #0FEH BCS YTE05008 ; INC BSXSIZ INC BSXSIZ YTE05008 EQU $ JSR BSACLC ; LDA BSANGL1 AND #0FCH CMP #0D8H BNE YTE05010 ; INC BSSTAT ; LDA #030H STA BSTIM1 YTE05010 EQU $ INC EXINSR ; LDA #05H STA EXCHPT,Y LDA #04H STA EXTIM0,Y ; LDA ENXPSL,X SEC SBC #0FFFEH STA EXXPSL,Y ; LDA ENYPSL,X SEC SBC #0004H STA EXYPSL,Y ; M8 ; LDA #018H JSL >SOUND_3_ON ;(S) RTS ; YTE2060 EQU $ LDA #02H STA MOTOCOL+07EH STA >DATACOL+07EH ; M8 RTS ;----------------------------------------------- BQBGCGCK2 EQU $ M16 ; LDA #024A0H STA R1 ; LDA #07E60H STA R2 ; LDA MOTOCOL+07CH STA >DATACOL+07CH ; M8 RTS ;----------------------------------------------- ;----------------------------------------------- YTEND5 EQU $ TYX ; LDA ENTIM0,X BNE YTE5010 ; ;; LDA #BS_SCRE ;; STA !MODENO M16 ; LDA #00005H ;iw STA !SOUND_0 ; (S) サウンド セット!!（ ; JSL >BOSS_CLEAR ; Boss clear ! M8 YTE5010 EQU $ RTS ;----------------------------------------------- ;BQASEST EQU $ ; RTS ; ; LDA FRCNT ; AND #07H ; BNE BQAS010 ;; ; LDA BSHANK ; CLC ; ADC #018H ; STA EXINSR ;; ; LDA #10H ; STA EXTIM0,Y ;; ; LDA JSRSUB YTCADRS EQU $ WORD YEN000 WORD YEN001 WORD YEN002 WORD YEN003 ;---------------------------------------------------------- YEN000 EQU $ LDA ENMDCK ; JSR SESOSUB ; M16 ; LDA #BANK BG3SEE_SAW_DT ;(R0) <- データバンク STA R1 ; LDA #BG3SEE_SAW_DT ;(R1) <- データアドレス STA R2 ; LDA SANGLE ;(R2) <- 角度 AND #00FFH STA R3 ; LDA #080H STA CREG0 ; X POS LDA #0A0H STA CREG1 ; Y POS ; M_CHIP BG3_SEESAW_SET ; I16 ; ;--------------< data trans. >----------------- JSL >M_DMA_BFST LWORD HDMABUF ;to address set LWORD HDMABF ;from address set WORD 0B2H*2*2 ;number of byte set ;--------------< config. set >------------------- MI8 LDA #004H STA SUBSEL LDA #022H STA WIND30 LDA #063H STA SUBADF LDA #00011000B TSB HD420C M16 LDX