;************************************************************************ ;* * ;* title name : "yossy" * ;* proccess : game play main * ;* file name : ys_game * ;* * ;************************************************************************ ; ; SALL ; include ys_header.inc include ys_unit.h include ys_color.h include ys_msg.h include ys_presno.h include ys_pld.h include ys_ename.h ; XALL ; ; ;------------------------------------------------------------------------ ;- global symbol - ;------------------------------------------------------------------------ GLB GMINIT,GMPLAY,GMPLAY2,GMFADE,GMGOAL GLB INHDMA,BGM_SET GLB MSG_BTMP_CLR,MSGDSP,MSGDSP_X GLB BG3SCRCLR,BG3WANCLR,BG3WTRCLR GLB GLBG1SCRCLR,GOAL_B1SCRDAT GLB DWNMOJI_DAT,GLBG3SCRCLR GLB BOSCLR_SCORE GLB BGCOIN_SETCHK,HALF_INIT,HALF_SLCT GLB MD7_MATRIX_SET,BOSSQ_MD7_SET GLB EGG_SAVE,EGG_LOAD GLB COS_AGAIN_INT,CORS_AGAIN GLB GMURAMCLR ; GLB BGCIN_STCHK_ADR,BGCIN_STCHK_DAT GLB HALF_MSG_DAT,Pause_move,AGAIN_WAIT_SET ; GLB BG3LINEDAT0,BG3LINEDAT1,B3LINECMP GLB GMGOAL_MJ_DAT0,GMGOAL_MJ_DAT1 ; GLB HDMAP5,HDMAPD5,HDMAP6,HDMAPD6 GLB HDMAPD5_NO ; GLB sagi1 ; ;------------------------------------------------------------------------ ;- extern symbol - ;------------------------------------------------------------------------ ; ;-------------< ys_main >------------------------------------------------ EXT OAMDXCLR,VRAMCL,URAMCLR,OAMCLR,VMADSPL,DMA_M_M EXT DMA_D_M,BLNKOFF EXT SOUND_TR,SOUND_3_ON,RANDAM ; EXT GMIN,GMPL,HMPIN,BNSGM,BNSMV,B3CL,WNCL,B3WRCL EXT INT_GM,HMPFAD,GM_CTN EXT W1_0_SOUND ; ;-------------< ys_rpro >------------------------------------------------ EXT CHIPON,CHIPON1,CHIPON_RAM_READ EXT NEWVMADL,BGCDMA_L EXT GLB1CL,BG1DT,GLB3CL,HF_DT,VMADSPL ; ;-------------< ys_mini >------------------------------------------------ EXT MINIINIT ; ;-------------< ys_init >------------------------------------------------ EXT GMCHRST,GMCOLST,GMMDST,VRAMDX_ST EXT DBLTELESA,DBLCOLST EXT DIVDTST,M_DMA_BFST,M_DMA_BFST_N,UNCOMPRES EXT OBJCHRBK,CHRSET,UNCOMPRES_X EXT GM01,GM02,GM03,GM04,GM05,GM06,GM07 EXT GM08,GM09,GM0A,GM0B,GM0C,GMMD7,GM0D,GM0E,GM0F,GM10 ; ;-------------< ys_title >----------------------------------------------- EXT MODINC,MODINC2 ; ;-------------< ys_play >------------------------------------------------ EXT PLINIT,PLINIT_2,PLSCRL_INIT,PLAYER,PLCSET,PLSCRL EXT SCRL_CXY_SET EXT TIMEUP_SET,BERO_CANCEL EXT PTTL,PRET,PSTP,PCLR,PBQ7,PDKN EXT PFLP ; ;-------------< ys_enmy >------------------------------------------------ EXT ENEMY,ENINSB,ENCSET,ENRAMCLR,ENINSR,EGGSET,ENINSR2 EXT ENINSR_I EXT QKM_COIN_XSP EXT BABYM,EGG00,EGG09,MSTAR,BOSSQ,YSEGG EXT EFAIL,ECHNG ; ;-------------< ys_enmy3 >----------------------------------------------- EXT MARIO_CHANGE EXT KUMOB_SET,ITEGG_INIT,TO_COIN_CHANGE ; ;-------------< ys_exst >------------------------------------------------ EXT EXINSR ; ;-------------< ys_data >------------------------------------------------ EXT DIVDAT,SIN,COS ; ;-------------< ys_msgdt >----------------------------------------------- EXT MSG_DOCA,MSG_DOCA_F,MSG_DOCA_G ; EXT MIS_MSG,HF_MSG,AGN_MSG ; ;-------------< ys_bgsc >------------------------------------------------ EXT BGINT,BGSET,BG3SCK,UNITST,BGSTATST,UNITST_SUB EXT CORSIN_WIND_ST ; ;-------------< ys_bgsc0 >----------------------------------------------- EXT RND_RND ; ;-------------< ys_mapdt >----------------------------------------------- EXT MPSTATBL,MPSTATUS,INT_STAT EXT HFSTTUS,HFSTATBL EXT COURSTBL EXT CORS_MIN0 ; ;------------------------------------------------------------------------ ;- define symbol - ;------------------------------------------------------------------------ ;;;; EQU ; ; ; ;************************************************************************ ;* * ;* program start * ;* * ;************************************************************************ ; ; EXTEND ; ; MEM8 IDX8 ; Group_1 GROUP Game_pro Game_pro SECT REL ; ;************************************************************************ ;* game use ram clear * ;************************************************************************ GMURAMCLR EQU $ JSL >URAMCLR ; M16 ; ;-------------- ＢＧ３水面位置セット ------------------------------------ LDA #04000H ;(A) <-- ＢＧ３水面位置（無し） STA WATER_Y ; ;-------------- マリオ無敵タイマークリアー ------------------------------ STZ SUPER_FLAG ; M8 ; RTL ; ;************************************************************************ ;* game initial * ;************************************************************************ ; ;------------------------------------------------------------------------ ;- 画面モードタイプデータ - ;------------------------------------------------------------------------ GMMDNOD EQU $ ;[DSPMOD] BYTE GM01 ;[00:地下、雪コースなど（基本タイプ）] BYTE GM02 ;[01:モグラＢＧ３マスク] BYTE GM03 ;[02:水中] BYTE GM04 ;[03:溶岩モード２] BYTE GM05 ;[04:バブルＢＧ３マスク] BYTE GM06 ;[05:カベ] BYTE GM07 ;[06:森のこもれび] BYTE GM08 ;[07:穴ジュゲム、アホー鳥ＢＧ３コース] BYTE GM09 ;[08:雪降りコース] BYTE GM0A ;[09:ボス　モード７用] BYTE GM0B ;[0A:モード０ ダブル テレサ用] BYTE GM0C ;[0B:ドカン] BYTE GM0D ;[0C:ＢＧ２敵] BYTE GM0E ;[0D:ＢＧ２敵ゲロゲーロの胃袋] BYTE GM0F ;[0E:ＢＧ３マスク] BYTE GM10 ;[0F:雪だんだんやむコース] ; GMINIT EQU $ JSL >VRAMCL ;VRAM clear JSL >GMURAMCLR ;use RAM clear ; ;-------------- 敵ＲＡＭクリアー ---------------------------------------- JSL >ENRAMCLR ; ;------------------------------------------------------------------------ ;- course data initial set - ;------------------------------------------------------------------------ LDA NEXTGOTO ; next go to ? BEQ GMINIT_000 ; YES -> GMINIT_000 JMP GMIN010 ; ;---------------------------------------------------------------- ;- 1st course data set - ;---------------------------------------------------------------- ; ;-------------- ゲームプレイ初期ＲＡＭクリアー ------------------ ; GMINIT_000 EQU $ M16 ; LDY #00 ;(Y) <-- 0 clear STZ DMA_D_M ; M8 ; MI16 ; ;-------------- 虫眼鏡フラグクリアー ---------------------------- STZ GRASS_ON ; ;-------------- コイン等の表示チェック用 ------------------------ LDX #(SV_COIN_BF1-SV_COIN_BF0)/2-2 GMINIT_005 EQU $ STZ !SV_COIN_BF0+000H,X STZ !SV_COIN_BF0+040H,X STZ !SV_COIN_BF1+000H,X STZ !SV_COIN_BF1+040H,X STZ !SV_COIN_BF2+000H,X STZ !SV_COIN_BF2+040H,X STZ !SV_COIN_BF3+000H,X STZ !SV_COIN_BF3+040H,X DEX DEX BPL GMINIT_005 ; ;-------------- コースデータアドレスセット ---------------------- LDA #100 ;initial timer set STA !TIMER STZ !TIMER_LOW STZ !TIMER_MID LDA #00001 STA !TIMER_HI ;;;;K;;;; LDA #300 ;initial timer set ;;;;K;;;; STA !TIMER ;;;;K;;;; STZ !TIMER_LOW ;;;;K;;;; STZ !TIMER_MID ;;;;K;;;; LDA #00003 ;;;;K;;;; STA !TIMER_HI ; LDA MAPOINT ASL A TAX LDA >MPSTATBL,X TAX ; LDA >MPSTATUS+1,X ;player start X pos set AND #00FFH ASL A ASL A ASL A ASL A STA PLXPSL LDA >MPSTATUS+2,X ; " Y " AND #00FFH ASL A ASL A ASL A ASL A STA PLYPSL LDA >MPSTATUS,X ;course data pointer set JMP GMIN020 ; ;---------------------------------------------------------------- ;- next go to course data set - ;---------------------------------------------------------------- GMIN010 EQU $ ; MI16 ; STZ !TIMCNT_UP ; ;-------------- ＮＥＸＴ ＧＯＴＯ コースデータセット ---------- LDA NEXTGOTO DEC A ;変身解除でのＮＥＸＴ ＧＯＴＯ？ BEQ MINIGAME_CHK ; NO -> MINIGAME_CHK JMP GMIN030 ; MINIGAME_CHK EQU $ LDX NEXTGOTO_POS ; ;-------------- ＧＯＴＯ ミニゲーム チェック -------------------- LDA >NXGOTOBF+0,X AND #000FFH CMP #CORS_MIN0 ; next goto mini game ? BCC MINIGAME_PAS ; NO -> MINIGAME_PAS ;;;;K;;;; SEC SBC #CORS_MIN0 ASL A STA !MINIMD ;ミニ ゲーム モードＮｏ. セット LDA >NXGOTOBF+3,X AND #000FFH STA !MINI_SVBUF+0 ; 戻り場所のテーブルデータ LDA >NXGOTOBF+1,X STA !MINI_SVBUF+1 ; プレーヤーの戻り場所 LDA !TIMER STA !MINI_SVBUF+3 ; タイマー ;;;; JSL >EGG_SAVE ; タマゴ セーブ するど〜 !! JMP >MINIINIT ; ミニ ゲーム スタート !! ; MINIGAME_PAS EQU $ LDA >NXGOTOBF+1,X ;player start X pos set AND #00FFH ASL A ASL A ASL A ASL A STA PLXPSL LDA >NXGOTOBF+2,X ; " Y " AND #00FFH ASL A ASL A ASL A ASL A STA PLYPSL LDA >NXGOTOBF+3,X AND #00FFH STA !PLMODE LDA >NXGOTOBF+0,X ;course data pointer set ; ;---------------------------------------------------------------- ;- course data set - ;---------------------------------------------------------------- GMIN020 EQU $ AND #00FFH ASL A ; STA COURSTBL,X ;BG course data address set STA COURSTBL+1,X STA COURSTBL+3,X ;enemy data address set STA >EDTADR LDA >COURSTBL+5,X AND #00FFH STA >EDTADR+2 ; GMIN030 EQU $ STZ !BNS_GO_FG ;ボーナス ゲーム フラグ クリア ; MI8 ; JSL >BGSTATST ;コースデータ ステータスデータセット ; ;------------------------------------------------------------------------ ;- ＢＧ３水面位置セット - ;------------------------------------------------------------------------ ; M16 ; LDA #07B0H ;(A) <-- ＢＧ３水面位置（低） LDX BG3TYP CPX #13H BEQ GMIN030_050 CPX #1DH BNE GMIN030_100 LDA #0700H ;(A) <-- ＢＧ３水面位置（高） GMIN030_050 EQU $ STA WATER_Y GMIN030_100 EQU $ ; M8 ; ;------------------------------------------------------------------------ ;- サウンドプログラム転送（ゲームプレイ） - ;------------------------------------------------------------------------ LDA !MAPOINT CMP #INT_STAT BNE GMIN030_150 ;１Ｗ−０？ ( no:GMIN030_150 ) ; LDA #W1_0_SOUND ;(X) <-- サウンドプログラム転送テーブルＮｏ． STA BGM_NO GMIN030_150 EQU $ JSL >SOUND_TR GMIN030_180 EQU $ ; ;----------------------------------------------------------------------- ;- モード７用のキャラクターとカラーセット - ;----------------------------------------------------------------------- LDA !DSPMOD CMP #009 BNE GMIN030_200 JSR MD7CHRCOL BRA GMIN030_250 ; ;------------------------------------------------------------------------ ;- ダブルテレサ用 キャラクターとカラーセット - ;------------------------------------------------------------------------ GMIN030_200 EQU $ CMP #00AH BNE GMIN030_210 JSL >DBLTELESA JSL >DBLCOLST BRA GMIN030_250 ; ;------------------------------------------------------------------------ ;- character set - ;------------------------------------------------------------------------ GMIN030_210 EQU $ JSL >GMCHRST ;コースキャラクターセット JSL >BGCDMA_L ;転送キャラクターセット ; ;------------------------------------------------------------------------ ;- フカンコース用 リフトブロック キャラクター チェック＆セット - ;------------------------------------------------------------------------ LDA !BG1TYP CMP #003 BNE GMIN030_220 JSR FUKAN_LIFT ; ;------------------------------------------------------------------------ ;- color set - ;------------------------------------------------------------------------ GMIN030_220 EQU $ JSL >GMCOLST ;color set ; ;------------------------------------------------------------------------ ;- PPU Reg. set - ;------------------------------------------------------------------------ GMIN030_230 EQU $ LDY DSPMOD LDX !GMMDNOD,Y ;(X) <-- game mode type no. JSL >GMMDST ;game mode set ;;;;K;;;;; ;;;;K;;;;;------------------------------------------------------------------------ ;;;;K;;;;;- mater initial set - ;;;;K;;;;;------------------------------------------------------------------------ ;;;;K;;;; JSR METERIT ;meter initial ; ;------------------------------------------------------------------------ ;- H-DMA initial set - ;------------------------------------------------------------------------ GMIN030_250 EQU $ JSL >INHDMA ;H-DMA initial set ; ;------------------------------------------------------------------------ ;- BG screen set - ;------------------------------------------------------------------------ LDA !DSPMOD CMP #009 BEQ GMIN030_260 CMP #00AH BEQ GMIN030_260 JSR BG2_SCR_INIT ;ＢＧ２スクリーン初期セット JSR BG3_SCR_INIT ;ＢＧ３ ” ; ;------------------------------------------------------------------------ ;- Etc initial set - ;------------------------------------------------------------------------ GMIN030_260 EQU $ JSL >DIVDTST ;div data set ; ;------------------------------------------------------------------------ ;- 1st game play initial set - ;------------------------------------------------------------------------ LDA NEXTGOTO BEQ GMIN032 ;next go to ? ( no:GMIN032 ) JMP GMIN100 ; ;-------------- イニシャルスタート -------------------------------------- GMIN032 EQU $ LDA #0FH STA FADNO ;fade no set IF PAL ;**** PAL 対応 [1995/7/24] ***************************** STA NMI_FADNO ;fade no set ENDIF ;**** PAL 対応 [1995/7/24] ***************************** LDA #01H STA FADMK ;fade muki ; ;-------------- コースデータ初期ＢＧセット ---------------------- JSL >BGINT ;BG initial write ; ;-------------- コースインタイトルデモプレイヤー初期セット ------ LDX #16*8-1 ;スクロール許可セット GMIN034 EQU $ STZ UNBUFAD,X DEX BPL GMIN034 ; M16 ; LDA PLXPSL ;プレイヤー出現位置セット SEC SBC #18H+78H STA PLXPSL CLC ADC #018H STA ESCCH1 LDA PLYPSL SEC ;;;; SBC #084H SBC #084H+10H STA ESCCV1 INC PLJUMP ;ジャンプフラグ”ＯＮ”（※スクロールＳＴＯＰ） ; ;-------------- プレイヤー初期セット ---------------------------- JSL >PLINIT_2 ;player initial ; M16 ; LDA #P006 ;プレイヤー初期状態セット STA PLJUMP LDA #0280H STA PLMVSP IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** LDA #0FC00H ELSE ;**** PAL 対応 [1995/7/19] ************************ LDA #0FABCH ENDIF ;**** NES or PAL 対応 [1995/7/19] ********************** STA PLYSPD LDA #PTTL STA PLMODE ; M8 ; ;-------------- コースインタイトルデモ文字ビットマップクリアー -- JSL >MSG_BTMP_CLR ; ;-------------- コースインタイトルウィンドウ初期セット ---------- LDA #001H ;ウィンドウ初期セット STA GMFADE_FLG0 ; M16 ; LDA #02H ;割り込みプログラムＮｏ．セット STA NMI_PROG_NO LDA #0120H ;ウィンドウ横幅初期セット STA GMFADE_CT JSL >CORSIN_WIND_ST ; MEM8 ; IF PAL ;**** PAL 対応 [1995/7/25] ***************************** LDA HD420C STA NMI_HD420C ; ENDIF ;**** PAL 対応 [1995/7/25] ***************************** LDA #03H ;[♪] STA UNITST_SUB ; M16 ; GMIN040 EQU $ LDA INCSTIM CMP #0C0H BCC GMIN040 ;文字表示終了？ ( no:GMIN040 ) ; LDA #07FFFH STA >DATACOL+008*020H+4 M8 ; STZ NMI_PROG_NO ; ;-------------- コースデータ初期ＢＧセット初期セット ------------ ; M16 ; LDA UNITST_SUB ; GMIN110 EQU $ ; ;-------------- プレイヤー初期セット ---------------------------- JSL >PLINIT ;player initial ; ;-------------- 敵初期セット ------------------------------------ JSL >ENINSB ;enemy initial set ; ;-------------- スクロールカウンター初期セット ------------------ LDA PLSCRL_MAXX CMP #0FH BEQ GMIN120 ;ＭＡＸスクロール値変更？ ( no:GMIN120 ) ; ;-------------- スクロールカウンター再初期セット ---------------- JSL >PLSCRL_INIT ;player scroll initial ;-------------- 敵再初期セット ---------------------------------- JSL >ENINSB ;enemy initial set ; ;-------------- コースデータ初期ＢＧセット ---------------------- GMIN120 EQU $ JSL >BGINT ;BG initial write STZ NEXTGOTO ;next go to flag reset ; ;-------------- NMI-IRQ "ON" ------------------------------------ STZ NMI_PROG_NO ;割り込みプログラムＮｏ． ; LDA #02H ;IRQ counter set STA IRQFLG ;;;; LDA #070H ;H counter set LDA #050H ;H counter set STA 4207H LDA #0D8H ;V counter set STA 4209H LDA #10110001B ;timer IRQ "ON" STA 4200H ; GMIN150 EQU $ ; ;-------------- スクロール基準セット ---------------------------- ; MI16 ; mempry , index 16bit mode ; JSL >SCRL_CXY_SET ;スクロール基準セット ; MI8 ; mempry , index 8bit mode ; ;-------------- オフセットモードフラグセット -------------------- LDA BGMODE AND #07H CMP #02H BNE GMIN160 ;オフセットモード？ ( no:GMIN160 ) ; INC BG2OF_FG ;溶岩の波 GMIN160 EQU $ ; ;-------------- ＢＧＭセット ------------------------------------ JSL >BGM_SET ;[♪] ; ; ; ; ; M16 ; lda MANSEL sta <0f9h lda WMANSL sta <0fbh lda #0ffffh sta <0feh ; M8 ; ; ; ; ; JMP >MODINC ; ;------------------------------------------------------------------------ ;- ＢＧＭセット - ;------------------------------------------------------------------------ BGM_INIT_FLAG EQU $-1 HEX 01 ;[0] お花畑 HEX 01 ;[1] 地上 HEX 01 ;[2] お城 HEX 01 ;[3] ボス HEX 01 ;[4] 地下 HEX 09 ;[5] ボス（いきなりボスＢＧＭ） HEX 01 ;[6] ボーナスゲーム HEX 01 ;[7] 大ボス HEX 09 ;[8] 大ボス（いきなりボスＢＧＭ） HEX 0C ;[9] 大ボス（カチカチ用いきなりボスＢＧＭ） HEX 01 ;[A] アスレチック HEX 02 ;[B] 無敵マリオ HEX 0 ;[C] 大クッパ HEX 01 ;[D] スペシャル４ HEX 0 ;[E] HEX 0 ;[F] ; HEX 0 ;[10] タイトル HEX 02 ;[11] １Ｗ−０デモ HEX 01 ;[12] マップ ; BGM_SET EQU $ PHP ;(P) save ; MI8 ; LDA GM_SOUND_0 BNE BGM_SET_010 ;ＢＧＭ変更？ ( no:BGM_SET_010 ) ; LDX GM_BGM_NO LDA >BGM_INIT_FLAG,X STA SOUND_0 ;[♪] STA GM_SOUND_0 BGM_SET_010 EQU $ STZ SOUND_3 STZ SOUND_3_P ; PLP RTL ; ;------------------------------------------------------------------------ ;- コースインタイトルデモ文字ビットマップクリアー - ;------------------------------------------------------------------------ ; MEM8 IDX8 ; MSG_BTMP_CLR EQU $ LDA #BANK WOB7CHR ;(WK20,21,22) <-- 転送先アドレス STA DMA_D_M ; M8 ; RTL ; ;------------------------------------------------------------------------ ;- 中間ポイント通過時のデータ復帰 - ;------------------------------------------------------------------------ MID_POINT_LD EQU $ ; MI16 ; LDX #MID_POINT_E-MID_POINT_S-2 MID_POINT_LD_10 EQU $ LDA >MID_POINT_SV_S,X STA !MID_POINT_S,X DEX DEX BPL MID_POINT_LD_10 ; STZ EGGPNT LDX #2+(6*2)-2 MID_POINT_LD_20 EQU $ LDA >MID_EGGPNT,X STA >SV_EGGPNT,X DEX DEX BPL MID_POINT_LD_20 ; MID_POINT_LD_50 EQU $ ; MI8 ; RTS ; ;************************************************************************ ;* オプション情報保存 * ;************************************************************************ EGG_SAVE EQU $ PHP ;(P) save ; M16 I8 ; LDA EGGPNT STA >SV_EGGPNT BEQ EGG_SAVE_020 ;プレイヤーオプション連れてる？ ( no:EGG_SAVE_020 ) ; TAX EGG_SAVE_010 EQU $ LDY EGGLNK-2,X ;オプション敵Ｎｏ．保存 LDA ENMYNO,Y STA >SV_OPENNO-2,X DEX DEX BNE EGG_SAVE_010 ; EGG_SAVE_020 EQU $ PLP ;(P) load RTL ; ;************************************************************************ ;* オプション情報復帰 * ;************************************************************************ EGG_LOAD EQU $ PHP ;(P) save ; M16 I8 ; STZ EGGPNT LDA >SV_EGGPNT BEQ EGG_LOAD_030 ;プレイヤーオプションセット？ ( no:EGG_LOAD_030 ) ; STA SV_OPENNO,X ;(A) <-- 敵Ｎｏ． CMP #YSEGG BEQ EGG_LOAD_020 ;ヨッシータマゴ？ ( yes:EGG_LOAD_020 ) JSL >ENINSR ;敵エリア確保 BCC EGG_LOAD_020 ; ” ？ ( no:EGG_LOAD_020 ) ; TYX LDA PLXPSL ;プレイヤーオプションＸ座標セット STA ENXPSL,X LDA PLYPSL ;プレイヤーオプションＹ座標セット CLC ADC #010H STA ENYPSL,X LDA ENCLOR,X ;ＢＧ優先順位セット AND #11001111B ORA PLPRIO STA ENCLOR,X STX EGGSET ;プレイヤーオプションリンクセット STZ SOUND_3_P ;[ サウンドキャンセル ] ; EGG_LOAD_020 EQU $ PLX ;(X) load ; INX INX CPX WORK BCC EGG_LOAD_010 ; PLD ;(D) load ; DPAGE WORK ; LDA #00 STA >SV_EGGPNT ; EGG_LOAD_030 EQU $ PLP RTL ; MEM8 ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ モード７用のキャラクターとカラーセット + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ MD7CHRCOL EQU $ JSL >GMCOLST ; LDA #CHRCEA STA COL_ADDRESS+MODE7COL0+00*020H,X STA >DATACOL+00*020H,X STA >MOTOCOL+00*020H,X LDA >COL_ADDRESS+MODE7COL0+01*020H,X STA >DATACOL+01*020H,X STA >MOTOCOL+01*020H,X LDA >COL_ADDRESS+MODE7COL0+02*020H,X STA >DATACOL+02*020H,X STA >MOTOCOL+02*020H,X LDA >COL_ADDRESS+MODE7COL0+03*020H,X STA >DATACOL+03*020H,X STA >MOTOCOL+03*020H,X LDA >COL_ADDRESS+MODE7COL0+04*020H,X STA >DATACOL+04*020H,X STA >MOTOCOL+04*020H,X INX INX CPX #00020H BCC MD7CHRCOL_LOP ; M8 ; memory 8bit mode ; LDA #CHR44D-CHR10 STA !OBJCHR_BNK ;敵キャラクターバンク１セット STA CHRSET I8 ; index 8bit mode ; LDY !DSPMOD LDX GMMDNOD,Y ;(X) <-- game mode type no. JSL >GMMDST ;game mode set ; M16 ; LDA #0080H ;スクロールカウンター初期セット STA SCCH3 STA ESCCH3 ;;;; LDA #0040H ;;;; LDA #0080H STA SCCV3 STA ESCCV3 LDA #0100H ;モード７中心座標セット STA M7X LDA #00F8H STA M7Y INC ATSCRL_H ;スクロールＳＴＯＰ！！ INC ATSCRL_V ; ” JSL >BOSSQ_MD7_SET ;モード７パラメータセット ; ;-------------- ボスＱちゃんセット ------------------------------ LDA #BOSSQ ;(A) <-- 敵Ｎｏ． JSL >ENINSR_I ;敵エリア確保 ; M8 ; ;;;;K;;;; JSR METERIT ;meter initial RTS ; ;------------------------------------------------------------------------ ;- モード７パラメータセット - ;------------------------------------------------------------------------ ; MEM16 ; BOSSQ_MD7_SET EQU $ JSL >MD7_MATRIX_SET ;モード７マトリックスセット ; LDA PLMODE CMP #PBQ7 BEQ BOSSQ_M7_ST_050 ;出現デモ？ ( yes:BOSSQ_M7_ST_050 ) ; LDA PLXPSL ;プレイヤーＸ座標補正 CMP #0140H-020H BPL BOSSQ_M7_ST_010 CLC ADC #0140H BOSSQ_M7_ST_010 EQU $ CMP #(0140H-020H)+0140H BMI BOSSQ_M7_ST_020 SEC SBC #0140H BOSSQ_M7_ST_020 EQU $ STA PLXPSL ; SEC ;モード７回転角度セット SBC #0140H-020H ; M8 ; STA 4202H LDY #0CDH ;[ 100H : 140H ] STY 4203H NOP NOP LDA #LOW (020H*0CDH) CLC ADC 4216H LDA 4217H ADC #0 PHA ;(A) save XBA STA 4202H STY 4203H NOP NOP PLA ;(A) load CLC ADC 4216H SEC SBC #HIGH ((020H*0CDH)+0080H) AND #00FFH STA MD7_ANGL ; M16 ; LDA PLXPSL ;ＯＡＭセット用スクロールカウンターセット SEC SBC #078H STA ATSCRL_SCCH1 STA SCCH1 STA ESCCH1 LDA ESCCV3 CLC ADC #026H STA ATSCRL_SCCV1 STA SCCV1 STA ESCCV1 ; BOSSQ_M7_ST_050 EQU $ RTL ; ;------------------------------------------------------------------------ ;- モード７マトリックスセット - ;------------------------------------------------------------------------ ; MEM16 ; MD7_MATRIX_SET EQU $ PHX ;(X) save ; LDA MD7_ANGL AND #00FFH ASL A ; I16 ; TAX LDA >COS,X STA M7A STA M7D LDA >SIN,X STA M7B EOR #0FFFFH INC A STA M7C ; I8 ; PLX ;(X) Load RTL ; MEM8 ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ フカンコース用 リフトブロック キャラクターセット + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ FUKAN_LIFT EQU $ M16 ; memory 16bit mode ; LDX #10000000B STX 2115H ; inc mode set LDA #00000001B+(18H*100H) STA 4300H ; DMA paramer & B bus address set LDX #BANK CHR50 STX 4304H ; A bus address(B) set LDY #00000001B ; LDA #04000H+0100H*2+00010H*8 STA 2116H ; VRAM address set LDA #CHR50+(020H*236) STA 4302H ; A bus address(L,H) set LDA #00020H*4 STA 4305H ; number of byte set STY 420BH ; DMA "ON" !! ; STA 4305H ; number of byte set LDA #04000H+0100H*3+00010H*8 STA 2116H ; VRAM address set LDA #CHR50+(020H*252) STA 4302H ; A bus address(L,H) set STY 420BH ; DMA "ON" !! ; M8 ; memory 8bit mode RTS ; ;************************************************************************ ;* game play fade "in/out" * ;************************************************************************ ; GMFADE EQU $ ; ;-------------- ゲーム画面セット ---------------------------------------- LDA #01H STA PLSTFG ;player stop !! STA ENSTFG ;enemy " JSL >GMPLAY2 ;game play ( display only ) ; ;-------------- ウィンドウセット ---------------------------------------- ; M16 ; LDA GMFADE_NO STA R1 ;(R1) <-- 変形元データＮｏ． INC A STA R2 ;(R2) <-- ” 先 ” LDA GMFADE_CT STA R6 ;(R6) <-- ” 率 M_CHIP WIND_CHANGE ; ;-------------- ウィンドウパラメータセット ------------------------------ LDA GMFADE_CT CLC ADC #08H STA GMFADE_CT CMP #0100H+1 BCC GMFADE_010 ;変形データ切り替え？ ( no:GMFADE_010 ) ; STZ GMFADE_CT ; INC GMFADE_NO LDA GMFADE_NO CMP #02H BCC GMFADE_010 ;end ? ( no:GMFADE_010 ) ; ;-------------- go to game play !! ------------------------------ ; M8 ; STZ WMANSL ;window disable STZ WSUBSL STZ WIND23 STZ WIND24 STZ WIND25 LDA #00100000B ;H-DMA "OFF" TRB HD420C STZ PLSTFG ;player move !! STZ ENSTFG ;enemy " INC MODENO ;[ +2 ] JMP >MODINC ; MEM16 ; GMFADE_010 EQU $ ; ;-------------- ウィンドウバッファ転送セット ---------------------------- JSL >M_DMA_BFST LWORD WINDBUF ;転送先アドレス LWORD WINDBF ;転送元アドレス WORD (0D2H*4) ;転送バイト数 ; M8 ; ;-------------- window PPU set ---------------------------------- LDA #00011111B STA WMANSL STA WSUBSL LDA #00110011B STA WIND23 STA WIND24 STA WIND25 STZ WLOGIC ;window logic set STZ 212BH ; LDA #00100000B TSB HD420C ;H-DMA "ON" !! LDA #0FH STA FADNO ;fade no set LDA #01H STA FADMK ;fade muki ; PLB RTL ; ;************************************************************************ ;* game goal in * ;************************************************************************ ; GMGOAL EQU $ LDX GOAL_IN CPX #GOAL_CL BCS GMGOAL_010 ;ゲーム画面セット？ ( no:GMGOAL_010 ) ; ;-------------- ゲーム画面セット ---------------------------------------- JSL >GMPLAY2 ;game play ( display ) ; LDX GOAL_IN GMGOAL_010 EQU $ JSR (!GMGOAL_SUB,X) ; PLB RTL ; ;------------------------------------------------------------------------ ;- ゴール処理ルーチンテーブルデータ - ;------------------------------------------------------------------------ GMGOAL_SUB EQU $-1 WORD GMGOAL_000 ;初期セット WORD GMGOAL_WAIT ;デモ待ち（ＧＯＡＬキャラクター書き換え用） WORD GMGOAL_WAIT ;デモ待ち WORD GMGOAL_100 ;ウィンドゥ初期セット WORD BSCR_SCRE_200 ;ウィンドゥスタート!! WORD BSCR_SCRE_300 ;ウィンドゥ ＣＬＯＵＳＥ GOAL_CALC WORD GMGOAL_B1CLS ;画面クリアー BG1 WORD GMGOAL_B3CLS ;画面クリアー BG3 WORD GMGOAL_CLI0 ;精算画面初期セット−１ WORD GMGOAL_CLI1 ; ” −２ WORD GMGOAL_CLI2 ; ” −３ WORD BSCR_SCRE_400 ;ウィンドゥスタート!! SCRE_START WORD GMGOAL_WAIT_TM ;ウェイト WORD GMGOAL_SCR_TIME ;タイムポイント WORD GMGOAL_WAIT_TM ;ウェイト WORD GMGOAL_SCR_CON ;コイン ポイント WORD GMGOAL_WAIT_TM ;ウェイト WORD GMGOAL_SCR_SPL ;スペシャル ポイント WORD GMGOAL_WAIT_TM ;ウェイト WORD GMGOAL_HICHK ;ハイスコア チェック GOAL_500 WORD GMGOAL_WAIT_TM ;ウェイト WORD GMGOAL_2LINE ;２ライン書き込み GOAL_600 WORD GMGOAL_WAIT_TM ;ウェイト WORD GMGOAL_MARU ;まる書き込み GOAL_700 WORD GMGOAL_WAIT_TM ;ウェイト WORD GMGOAL_HANA_IN WORD GMGOAL_HANA ;花まる書き込み GOAL_800 WORD GMGOAL_WAIT_TM ;ウェイト WORD GMGOAL_HSCST ;ハイスコア画面表示 WORD GMGOAL_FLSH ; " " (マーク点滅) GOAL_900 WORD GMGOAL_CALC ;ＩＮ ＫＥＹ ＷＡＩＴ ; GOAL_CL EQU GOAL_CALC-GMGOAL_SUB SCRE_STT EQU SCRE_START-GMGOAL_SUB ; GMGOAL_2LN EQU GOAL_500-GMGOAL_SUB GMGOAL_MR EQU GOAL_600-GMGOAL_SUB GMGOAL_HN EQU GOAL_700-GMGOAL_SUB GMGOAL_HI EQU GOAL_800-GMGOAL_SUB GMGOAL_CC EQU GOAL_900-GMGOAL_SUB ; ;---------------------------------------------------------------- ;- モードＩＮＣ. - ;---------------------------------------------------------------- GOALMD_INC EQU $ INC GOAL_IN INC GOAL_IN ;;;;K;;;; RTS ; ;---------------------------------------------------------------- ;- デモ待ち - ;---------------------------------------------------------------- GMGOAL_WAIT EQU $ RTS ; ;---------------------------------------------------------------- ;- ウィンドゥ初期セット - ;---------------------------------------------------------------- GMGOAL_100 EQU $ LDA !HD420C PHA JSR BSCR_SCRE_100 PLA TSB !HD420C RTS ; ;---------------------------------------------------------------- ;- ＢＧ１ 画面クリアー - ;---------------------------------------------------------------- GMGOAL_B1CLS EQU $ M16 ; memory 16bit mode PHB ; バッファ クリアー LDX #BANK GALSCRBF PHX PLB LDX #000H LDA #0017FH GMGOAL_CLS_LOP EQU $ STA !GALSCRBF+000H,X STA !GALSCRBF+100H,X STA !GALSCRBF+200H,X STA !GALSCRBF+300H,X STA !GALSCRBF+380H,X DEX DEX BNE GMGOAL_CLS_LOP PLB ; LDX #000H GMGOAL_LIN_LOP EQU $ LDA BG3LINEDAT0,X STA >GALSCRBF+088H,X LDA BG3LINEDAT1,X STA >GALSCRBF+348H,X INX INX CPX #BG3LINEDAT1-BG3LINEDAT0 BCC GMGOAL_LIN_LOP ; LDA #004 STA !CHRTRP STZ !COLTRP ; M8 ; memory 8bit mode LDA #GLB1CL STA !VRFLG JMP GOALMD_INC ; ; GLBG1SCRCLR EQU $ WORD 06800H,040BFH,018EEH ; BG1 clear data (up) WORD 068A0H,0447FH,01A11H ; BG1 gleen data WORD 06860H,0C029H,018EEH ; BG1 clear data (lf0) WORD 06861H,0C029H,018EEH ; BG1 clear data (lf1) WORD 0687EH,0C029H,018EEH ; BG1 clear data (rt0) WORD 0687FH,0C029H,018EEH ; BG1 clear data (rt1) WORD 06B00H,0413FH,018EEH ; BG1 clear data (down) WORD 0FFFFH ; BG3LINEDAT0 EQU $ WORD 00145H,00146H,08145H,0C146H,04145H,04146H WORD 00145H,00146H,08145H,08146H,04145H,00146H WORD 00145H,08146H,00145H,00146H,00145H,00146H WORD 08145H,0C146H,00145H,00146H,08145H,00146H ; BG3LINEDAT1 EQU $ WORD 00145H,00146H,08145H,08146H,00145H,00146H WORD 00145H,00146H,08145H,08146H,00145H,08146H WORD 00145H,08146H,08145H,00146H,04145H,00146H WORD 08145H,00146H,00145H,08146H,00145H,00146H ; B3LINECMP EQU BG3LINEDAT1-BG3LINEDAT0 ; ;---------------------------------------------------------------- ;- ＢＧ３ 画面クリアー - ;---------------------------------------------------------------- GMGOAL_B3CLS EQU $ LDA #GLB3CL STA !VRFLG JMP GOALMD_INC ; GLBG3SCRCLR EQU $ WORD 03400H,047FFH,0117FH ; BG3 clear data WORD 0FFFFH ; ;---------------------------------------------------------------- ;- 精算画面初期セット−１（キャラクターセット） - ;---------------------------------------------------------------- GMGOAL_CLI0 EQU $ ; MI16 ; memory , index 16bit mode ; ;-------------- バッファ セット --------------------------------- ; IF PAL ;**** PAL 対応 [1995/08/01] ***************************** LDA !LNGG_SL ASL A TAY LDA GMGOAL_PAL0,Y STA GALSCR_HISCR0+2 LDA GMGOAL_KAZ_DT1,Y STA >GALSCR_HISCR1+2 LDA GALSCR_HISCR0 LDA GMGOAL_KAZ_DT1,Y STA >GALSCR_HISCR1 ; ;-------------- ＢＧ３ キャラクターセット ----------------------- ; LDA #BANK CHR74 STA VRAMDX_ST ; ;-------------- ＢＧ１ キャラクターセット １ -------------------- ; LDA #BANK CHR50 STA VRAMDX_ST ; ;-------------- ＢＧ１ キャラクターセット ２ -------------------- ; LDA #BANK CHR50 STA VRAMDX_ST ; MI8 ; memory , index 8bit mode ; JMP GOALMD_INC ; ;------------------------------------------------ ;- バッファ セット サブルーチン - ;- in - ;- A <- data read index - ;- X <- buffer index - ;- out - ;- X <- next buffer index - ;- Y <- next data index - ;------------------------------------------------ MEM16 IDX16 B3BFSTSB EQU $ PHY AND #000FFH TAY LDA GMGOAL_MJ_DAT0,Y ORA GALSCRBF+000H,X LDA GMGOAL_MJ_DAT1,Y ORA GALSCRBF+040H,X INX INX PLY INY RTS ; IF PAL ;**** PAL 対応 [1995/08/01] ***************************** ; ;++++++++++++++++++++++++++++++++++++++++ ;+ " ＣＯＩＮ " + ;++++++++++++++++++++++++++++++++++++++++ B3BFST_LP_100 EQU $ LDA !LNGG_SL ASL A TAY LDA GMGOAL_PAL1,Y STA VRAMDX_ST ; ;-------------- カラーセット ------------------------------------ LDX #(00FH-1)*2 GMGOAL_CLI2_010 EQU $ LDA >COL_ADDRESS+BG3_SUB_5_COL,X STA >DATACOL+2,X LDA >COL_ADDRESS+BG2_SUB_9_COL,X STA >DATACOL+(20H*6)+2,X LDA >COL_ADDRESS+BG2_SUB_9_COL+20H,X STA >DATACOL+(20H*6)+20H+2,X DEX DEX BPL GMGOAL_CLI2_010 ; ;-------------- 画面設定 ----------------------------------------- STZ DATACOL ; STZ !GOAL_CHR_CHNG STZ !GOAL_CHR_CNT MI8 ; memory , index 8bit mode ; LDA !BGMODE AND #00FH STA !BGMODE LDA #00000100B ;BG3 display set STA MANSEL LDA #00000001B ;BG1 display set STA SUBSEL ; JMP GOALMD_INC ; ;---------------------------------------------------------------- ;- ウェイト - ;---------------------------------------------------------------- GMGOAL_WAIT_TM EQU $ JSR GOAL_MJ_CHNG ; ゴール文字書き換え DEC !GLWAITTIM BNE GMGOAL_WAIT_TIM JSR GOALMD_INC LDA !GOAL_IN CMP #GMGOAL_2LN BCS GMGOAL_WAIT_TIM ;;;; LDA #011H ;;;; STA !SOUND3 GMGOAL_WAIT_TIM EQU $ RTS ; ;---------------------------------------------------------------- ;- タイム ポイント - ;---------------------------------------------------------------- TIMER_DEC EQU 00010 ; TIMER_MAX EQU 00030 ; ; GMGOAL_SCR_TIME EQU $ JSR GOAL_MJ_CHNG ; ゴール文字書き換え ; MI16 ; memory , index 16bit mode LDA !TIMER SEC SBC #TIMER_DEC STA !TIMER BPL SCR_TIME_05 STZ !TIMER MI8 ; memory , index 16bit mode ;;;; LDA #012H ;;;; STA !SOUND3 LDA #020H STA !GLWAITTIM LDA !CORS_COIN ORA !CORS_COIN+1 BNE SCR_TIME_03 JSR GOALMD_INC JSR GOALMD_INC LDA !FRWR_P ORA !FRWR_P+1 BNE SCR_TIME_03 JSR GOALMD_INC JSR GOALMD_INC SCR_TIME_03 EQU $ JMP GOALMD_INC ; MEM16 IDX16 SCR_TIME_05 EQU $ STZ SOUND_3_ON ;[♪] MI16 ; memory , index 16bit mode PLA SCR_TIME_13 EQU $ STA !GOAL_TIM_PT LDX #00000H SCR_TIME_15 EQU $ CMP #00010 BCC SCR_TIME_50 INX SBC #00010 BRA SCR_TIME_15 ; SCR_TIME_50 EQU $ STA SCR_CON_000 DEC !CORS_COIN LDA !CORS_COIN BPL SCR_CON_005 SCR_CON_000 EQU $ ; MI8 ; memory , index 8bit mode ;;;; LDA #012H ;;;; STA !SOUND3 LDA #020H STA !GLWAITTIM LDA !FRWR_P ORA !FRWR_P+1 BNE SCR_CON_03 JSR GOALMD_INC JSR GOALMD_INC SCR_CON_03 EQU $ JMP GOALMD_INC ; MEM16 IDX16 SCR_CON_005 EQU $ STZ SOUND_3_ON ;[♪] MI16 ; memory , index 16bit mode PLA SCR_CON_23 EQU $ STA !GOAL_CON_PT LDX #00000H SCR_CON_25 EQU $ CMP #00010 BCC SCR_CON_30 INX SBC #00010 BRA SCR_CON_25 ; SCR_CON_30 EQU $ STA SOUND_3_ON ;[♪] RTS ; ;-------------------------------------------------------- ;- バッファセット - ;- in - ;- X <--------- 十の位の数 - ;- work0,1 <--- 一の位の数 - ;- 2,3 <--- アトリビュート - ;- 4,5,6 <- バッファ アドレス(up) - ;- 7,8,9 <- バッファ アドレス(down) - ;- 10,11,12 <- バッファ アドレス(up) - ;- 13,14,15 <- バッファ アドレス(down) - ;-------------------------------------------------------- MEM16 IDX16 SCR_BUFST EQU $ ; IF NES | PAL ;**** NES or PAL 対応 [1995/7/26] ***************** PHX ENDIF ;**** NES or PAL 対応 [1995/7/26] ********************** ; TXA ; 十の位 BEQ SCR_BUFST_20 ASL A TAX LDA GMGOAL_KAZ_DT0,X ORA SCR_BUFST_35 LDA #00100 SCR_BUFST_35 EQU $ STA !GOAL_TTL_PT CMP #00100 BCC SCR_BUFST_45 LDA #00011 STA GALSCR_TOL0+4 LDA GMGOAL_KAZ_DT1,X STA >GALSCR_TOL1+4 ; LDA GALSCR_TOL0+2 LDA GMGOAL_KAZ_DT1,Y STA >GALSCR_TOL1+2 ; SCR_BUFST_55 EQU $ LDA GALSCR_TOL0 LDA GMGOAL_KAZ_DT1,Y STA >GALSCR_TOL1 ; SCR_BUFST_VRM EQU $ ; IF NES | PAL ;**** NES or PAL 対応 [1995/7/26] ***************** TXA ORA VRAMDX_ST ; RTS ; IF NES ;**** NES 対応 [1995/7/26] ***************************** ; ;-------------------------------------------------------- ;- 複数チェック＆セット - ;- in - ;- X : 十の位の数 - ;- wrk 0,1 : 一の位の数 - ;- 2,3 : アトリビュート - ;- 13,14,15 : バッファ アドレス - ;-------------------------------------------------------- FUKUSU_CHK EQU $ TXA BNE FKS_CHK_500 LDA GMGOAL_HICHK_80 LDX #GMGOAL_MR GMGOAL_HICHK_80 EQU $ STX !GOAL_IN MI8 ; memory , index 8bit mode RTS ; ;---------------------------------------------------------------- ;- ２ライン書き込み - ;---------------------------------------------------------------- GMGOAL_2LINE_DT EQU $ WORD GALSCR_LIN0,GALSCR_LIN1,GALSCR_LIN2,GALSCR_LIN3 WORD GALSCR_LIN1,GALSCR_LIN2 ; GMGOAL_2LINE_CH EQU $ WORD 00555H,00556H,00557H,0015FH WORD 00565H,00566H ; ; GMGOAL_2LINE EQU $ JSR GOAL_MJ_CHNG LDA #BANK GALSCR_LIN0 STA GMGOAL_MARU_05 STZ !SPECIAL_P LDX #GMGOAL_HN GMGOAL_MARU_05 EQU $ STX !GOAL_IN BRA GMGOAL_MARU_90 GMGOAL_MARU_10 EQU $ LDA GMGOAL_MARU_DT,X STA GMGOAL_HSCST_10 LDA #GMGOAL_CC STA !GOAL_IN BRA GMGOAL_HSCST_90 ; GMGOAL_HSCST_10 EQU $ STA !HISCORE STZ GALSCR_HISCR0+2 LDA GMGOAL_KAZ_DT1,Y STA >GALSCR_HISCR1+2 ; LDA GALSCR_HISCR0 LDA GMGOAL_KAZ_DT1,Y STA >GALSCR_HISCR1 JSR SCR_BUFST_VRM ; GMGOAL_HSCST_80 EQU $ INC !GOAL_IN INC !GOAL_IN GMGOAL_HSCST_90 EQU $ MI8 ; memory , index 8bit mode RTS ; ;---------------------------------------------------------------- ;- ハイスコア 画面表示 (マーク点滅) - ;---------------------------------------------------------------- GMGOAL_FLSH EQU $ MI16 ; memory , index 16bit mode LDA #00570H STA >GALSCR_LFLSH0 STA >GALSCR_RFLSH0 LDA #00572H STA >GALSCR_LFLSH1 STA >GALSCR_RFLSH1 LDA #00571H STA >GALSCR_LFLSH0+2 STA >GALSCR_RFLSH0+2 LDA #00573H STA >GALSCR_LFLSH1+2 STA >GALSCR_RFLSH1+2 JSR SCR_BUFST_VRM ; INC !GOAL_IN INC !GOAL_IN MI8 ; memory , index 8bit mode RTS ; ; ;---------------------------------------------------------------- ;- 精算 - ;- ＩＮ ＫＥＹ ＷＡＩＴ - ;---------------------------------------------------------------- GMGOAL_CALC EQU $ JSR GOAL_MJ_CHNG ; LDA GMGOAL_CALC_900 ; ;-------------- return to map !! -------------------------------- JSL >EGG_SAVE ; LDX #HMPIN LDA !BNS_GO_FG BPL GMGOAL_CALC_003 JSR BONUS_NO_SET LDX #BNSGM GMGOAL_CALC_003 EQU $ STX !MODENO LDA #0F1H STA GMGOAL_CALC_005 LDA !HISCEBF,X ORA #080H STA !CORSCLR GMGOAL_CALC_005 EQU $ PLA GMGOAL_CALC_008 EQU $ STA !HISCEBF,X ; GMGOAL_CALC_900 EQU $ RTS ; ;---------------------------------------------------------------- ;- ゴール文字書き換え - ;---------------------------------------------------------------- GOAL_MJ_CHNG EQU $ LDA !GOAL_IN CMP #GMGOAL_CC BCC GOAL_MJ_900 DEC !GOAL_CHR_CNT BPL GOAL_MJ_900 LDA #005H STA !GOAL_CHR_CNT MI16 ; memory , index 16bit mode LDA !GOAL_CHR_CHNG TAX LDA GOAL_MJ_DAT+2,X AND #000FFH STA VRAMDX_ST MI8 ; memory , index 8bit mode ; LDA !GOAL_CHR_CHNG INC A INC A INC A CMP #GOAL_MJ_DAT_E-GOAL_MJ_DAT BCC GOAL_MJ_500 LDA #000H GOAL_MJ_500 EQU $ STA !GOAL_CHR_CHNG ; GOAL_MJ_900 EQU $ RTS ; GOAL_MJ_DAT EQU $ LWORD CHR74 LWORD CHR74+0800H LWORD CHR74+1000H GOAL_MJ_DAT_E EQU $ ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ ボーナス ゲーム Ｎｏ. セット + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CADE EQU 000 ; カードめくり SKCH EQU CADE+2 ; スクラッチ KUJI EQU SKCH+2 ; くじびき CINM EQU KUJI+2 ; カードあわせ RULT EQU CINM+2 ; ルーレット SROT EQU RULT+2 ; スロット ; ; BNS_NO_TBL EQU $ BYTE CADE,SKCH BYTE KUJI,SROT BYTE CINM,RULT BYTE KUJI,SKCH BYTE CADE,RULT BYTE CINM,SROT ; ; BONUS_NO_SET EQU $ JSL >RANDAM AND #001H STA BONUS_NO_900 LDA !PLCONT DEC A ; プレイヤーの残り人数が２人以上か ? BNE BONUS_NO_900 ; YES -> BONUS_NO_900 LDA BNS_NO_TBL-1,X STA !BONUSNO BONUS_NO_900 EQU $ RTS ; ;************************************************************************ ;* game play * ;************************************************************************ ; ;-------------- カウントダウン用数字キャラクターアドレスデータ ---------- ; ;-------------- ０〜９まで -------------------------------------- CNTDOWN_CHR EQU $ WORD CHR50+(200H*20H) ;[0] WORD CHR50+(202H*20H) ;[1] WORD CHR50+(204H*20H) ;[2] WORD CHR50+(206H*20H) ;[3] WORD CHR50+(208H*20H) ;[4] WORD CHR50+(20AH*20H) ;[5] WORD CHR50+(20CH*20H) ;[6] WORD CHR50+(20EH*20H) ;[7] WORD CHR50+(220H*20H) ;[8] WORD CHR50+(222H*20H) ;[9] ; ;-------------- １０以上 ---------------------------------------- CNTDOWN_CHR_10 EQU $ WORD CHR50+(0B0H*20H) ;[0] WORD CHR50+(0B1H*20H) ;[1] WORD CHR50+(0B2H*20H) ;[2] WORD CHR50+(0B3H*20H) ;[3] WORD CHR50+(0D0H*20H) ;[4] WORD CHR50+(0D1H*20H) ;[5] WORD CHR50+(0D2H*20H) ;[6] WORD CHR50+(0D3H*20H) ;[7] WORD CHR50+(0D4H*20H) ;[8] WORD CHR50+(0D5H*20H) ;[9] ; ;-------------- カウントダウン用数字ＯＡＭセットデータ ------------------ CTDWX_U_L EQU 020H CTDWY_U_L EQU 020H CTDWX_U_R EQU 0C0H CTDWY_U_R EQU 020H ; CNTDOWN_OAM_IN EQU $ BYTE CNTDOWN_OAM_U_L-CNTDOWN_OAM+(5*4)-2 ;[0] BYTE CNTDOWN_OAM_U_R-CNTDOWN_OAM+(5*4)-2 ;[1] ; CNTDOWN_OAM EQU $ ; X Y CH AT CNTDOWN_OAM_U_L EQU $ BYTE 008H+CTDWX_U_L,008H+CTDWY_U_L,00CH,032H ;[0] BYTE 000H+CTDWX_U_L,000H+CTDWY_U_L,0C8H,032H ;[1] BYTE 010H+CTDWX_U_L,000H+CTDWY_U_L,0C8H,072H ;[2] BYTE 000H+CTDWX_U_L,010H+CTDWY_U_L,0C8H,0B2H ;[3] BYTE 010H+CTDWX_U_L,010H+CTDWY_U_L,0C8H,0F2H ;[4] CNTDOWN_OAM_U_R EQU $ BYTE 008H+CTDWX_U_R,008H+CTDWY_U_R,00CH,032H ;[0] BYTE 000H+CTDWX_U_R,000H+CTDWY_U_R,0C8H,032H ;[1] BYTE 010H+CTDWX_U_R,000H+CTDWY_U_R,0C8H,072H ;[2] BYTE 000H+CTDWX_U_R,010H+CTDWY_U_R,0C8H,0B2H ;[3] BYTE 010H+CTDWX_U_R,010H+CTDWY_U_R,0C8H,0F2H ;[4] ; ;-------------- 赤ちゃんレーダーＯＡＭセットデータ ---------------------- BABY_MK_XAD EQU $ WORD 0FFF0H,00010H ;,00000H,00000H BABY_MK_YAD EQU $ WORD 00000H,00000H,0FFEAH,00010H BABY_MK_OAMDT EQU $ ; X Y CH AT HEX 00,03,C4,30 ;[右] HEX 08,00,D5,30 HEX 00,05,C4,B0 HEX 08,08,D5,B0 HEX 00,00,D5,70 ;[左] HEX 08,03,C4,70 HEX 00,08,D5,F0 HEX 08,05,C4,F0 HEX 03,00,C4,30 ;[下] HEX 05,00,C4,70 HEX 00,08,C5,F0 HEX 08,08,C5,B0 HEX 00,00,C5,70 ;[上] HEX 08,00,C5,30 HEX 03,08,C4,B0 HEX 05,08,C4,F0 ; ;-------------- メーターカラーアニメーションデータ ---------------------- METCOLD EQU $ WORD 003FFH,0023FH,0001FH,04010H,07C00H,07E00H,047E0H,003F4H WORD 003FFH,0023FH,0001FH ; BACKCLD EQU $ WORD 07D93H,07FFFH,07FFFH,07FFFH,07DF5H,07FF7H,07FF9H,07DF5H WORD 07FF9H,07FFFH,00000H,00000H,00000H,00000H,00000H,00000H ; WORD 07D93H,07FFFH,07FFFH,07EBAH,07E17H,07FF7H,07F18H,07E76H WORD 07FFBH,07FFDH,00000H,00000H,00000H,00000H,00000H,00000H ; WORD 07D93H,07FFFH,07FFFH,07E17H,07EBAH,07FF7H,07E76H,07F18H WORD 07FFDH,07FFBH,00000H,00000H,00000H,00000H,00000H,00000H ; WORD 07D93H,07FFFH,07FFFH,07DF5H,07FFFH,07FF7H,07DF5H,07FF9H WORD 07FFFH,07FF9H,00000H,00000H,00000H,00000H,00000H,00000H ; COLDTAR EQU $ BYTE 0FH*2*1-1,0FH*2*2-1,0FH*2*3-1,0FH*2*4-1,0FH*2*3-1,0FH*2*2-1 ; ;-------------- tilt data ----------------------------------------------- TILTAD EQU $ WORD 00001H,00000H,0FFFFH,00000H,0FFFEH,00000H,0FFFFH,00000H TILTAD2 EQU $ WORD 0FFFEH,00000H,00002H,00000H,0FFFEH,00000H,0FFFCH,00000H ; ;-------------- ”ビリビリ”モザイクセットデータ ------------------------ BIRIBIRI_MOZDT EQU $ BYTE 0111B+(00H<<4),0111B+(00H<<4),0111B+(01H<<4),0111B+(01H<<4) BYTE 0111B+(02H<<4),0111B+(02H<<4),0111B+(03H<<4),0111B+(03H<<4) BYTE 0111B+(04H<<4),0111B+(04H<<4),0111B+(05H<<4),0111B+(05H<<4) BYTE 0111B+(06H<<4),0111B+(06H<<4),0111B+(07H<<4),0111B+(07H<<4) ; ;-------------- pause check data ---------------------------------------- GMPASAD EQU $ HEX FF,01 ; ;-------------- item select check data ---------------------------------- ITMSL_INIT EQU $ ;;;; HEX FF,02 ITMSLAD EQU $ HEX FE,02 ITMSLCP EQU $ HEX 00,28 ; ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;x initial game play x ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx GMPLAY2 EQU $ PHB ;(DBR) save PHK PLB ; ;------------------------------------------------------------------------ ;- key cancel !! - ;------------------------------------------------------------------------ STZ GM_PAUSE_CHK ; JSL >MSGDSP JMP GMPL010 ; ;------------------------------------------------------------------------ ;- pause check - ;------------------------------------------------------------------------ INTPRMT_ADR EQU $-2 WORD TIME10_PRMT ; 1 タイマー １０ WORD TIME20_PRMT ; 2 タイマー ２０ WORD POW_PRMT ; 3 どこでもＰＯＷ WORD EGG_PRMT ; 4 いつでもタマゴ WORD GARASU_PRMT ; 5 虫めがね WORD ALLHTN_PRMT ; 6 敵みんなハテナ雲 WORD SUIKA_PRMT ; 7 スイカの種アイテム WORD COLD0_PRMT ; 8 氷アイテム WORD FIRE0_PRMT ; 9 火アイテム ; ; GM_PAUSE_CHK EQU $ LDA !GMPAUSE ; ポーズ中 ? BNE GM_PS_CHK_020 ; YES -> GM_PS_CHK_020 ; LDA GM_PS_CHK_FFF LDA CCHGTN ; トンネル書き換え中？ ORA GATE_IN ; 中間ポイント通過？ ORA GOAL_BOSS_CLEAR ; ボスクリアー？ ORA ITEMNO ; アイテム使用中？ ORA PLSTFG ; プレイヤーＳＴＯＰ？ ORA !ENSTFG ; 敵ＳＴＯＰ？ BNE GM_PS_CHK_FFF ; YES -> GM_PS_CHK_FFF LDA PLMODE CMP #PDKN BCC GM_PS_CHK_000 ;プレイヤーデモモード？ ( no:GM_PS_CHK_000 ) GM_PS_CHK_FFF EQU $ JMP GMPL010 ; GM_PS_CHK_000 EQU $ LDA !GMPASMK EOR #001 AND #001 STA !GMPASMK LDA #001 STA !GMPAUSE ; GM_PS_CHK_020 EQU $ ;;;;K;;;; JSL >OAMCLR ;OAM clear ; ;---------------------------------------------------------------- ;- pause move - ;---------------------------------------------------------------- LDA GMPL004 ; ;---------------------------------------------- test TEST sagi1 equ $ bra test_pas_050 lda !SVFILEIDX cmp #001*2 bne test_pas_050 inc !CORSCLR bra test_pas_100 test_pas_050 equ $ ;---------------------------------------------- test TEST ; LDX !MAPOINT LDA !MPCLRTBL,X AND #07FH BEQ GMPL004 ; ;-------------- course clear !! --------------------------------- test_pas_100 equ $ LDA #0F0H STA GMPL002 STZ !MAPOINT GMPL002 EQU $ ;;;;K;;;; LDA #HMPIN LDA #HMPFAD STA MODENO ; PLB RTL ; ; ; GMPL004 EQU $ JMP GMPASUB ; ;------------------------------------------------------------------------ ;- game move - ;------------------------------------------------------------------------ GMPL010 EQU $ LDA !ITEMNO ; アイテム使用 ? BEQ GMPL010_PASS ; NO -> GMPL010_PASS ; LDX ITEM_TM BEQ GMPL0100 ;ウェイト？ ( no:GMPL0100 ) DEC ITEM_TM BRA GMPL010_PASS ; GMPL0100 EQU $ ASL A TAX ; 使用アイテム ; M16 ; JSR (INTPRMT_ADR,X) ; 各パラメータ セット ; M8 BRA GMPL010_PASS ; PAUSE_SUB EQU $ ;ポーズ解除によるオブジェセット用 PHB ; PHK ; PLB ; ; GMPL010_PASS EQU $ JSL >OAMDXCLR ;OAM clear ; ;------------------------------------------------------------------------ ;- scroll counter set - ;------------------------------------------------------------------------ JSL >PLSCRL ;scroll set ; ;------------------------------------------------------------------------ ;- BG write - ;------------------------------------------------------------------------ JSL >BGSET ;BG write JSL >BG3SCK ;"mogura" course BG3 screen set check ; ;------------------------------------------------------------------------ ;- to "Tilt" scroll counter save - ;------------------------------------------------------------------------ ; M16 ; LDA ENCSET ;enemy OAM set JSL >PLCSET ;player " ; ;------------------------------------------------------------------------ ;- player move - ;------------------------------------------------------------------------ JSL >PLAYER ;player move ; ;------------------------------------------------------------------------ ;- enemy move - ;------------------------------------------------------------------------ JSL >ENEMY ;enemy move ; ;------------------------------------------------------------------------ ;- H-DMA data set - ;------------------------------------------------------------------------ JSR SPACIAL ; ;------------------------------------------------------------------------ ; カラー転送 - ;------------------------------------------------------------------------ LDA !DSPMOD CMP #009 BEQ LIF150_PASS ; LDA COLTRP ASL A TAX JSR (!COLTR_SEL,X) ; ;------------------------------------------------------------------------ ;- ”ビリビリ”セット - ;------------------------------------------------------------------------ LIF150_PASS EQU $ LDA BIRIBIRI BEQ MET150 ;”ビリビリ”？ ( no:MET150 ) ; DEC BIRIBIRI AND #0FH TAX LDA !BIRIBIRI_MOZDT,X ; MET150 EQU $ STA MOZNO ; ;------------------------------------------------------------------------ ;- to "Tilt" scroll counter load - ;------------------------------------------------------------------------ ; M16 ; memory 16bit mode ; PLA ;BG1 scroll counter_V load STA SOUND_3_ON ; ;-------------- 初めて敵に当たったメッセージ表示チェック ---------------- LDY SV_STATUS BMI GMPL036 ;初めて敵に当たったメッセージ表示ＯＫ？ ( no:GMPL036 ) ; LDY MAPOINT BEQ GMPL035 ;１Ｗ−１？ ( yes:GMPL035 ) CPY #INT_STAT BNE GMPL036 ;１Ｗ−０？ ( no:GMPL036 ) GMPL035 EQU $ LDA #080H ;メッセージ表示済セット TSB SV_STATUS INC MSGMOD ;メッセージ表示”ＯＮ” LDA #MIS_MSG STA >MSG_NO ; GMPL036 EQU $ ; ;------------------------------------------------------------------------ ;- OAM data convert - ;------------------------------------------------------------------------ GMPL040 EQU $ LDX #BANK DX_OAM LDA #DX_OAM JSL >CHIPON1 ;[ "TASK !!" mater set ] ; ;------------------------------------------------------------------------ ;- 赤ちゃん誘拐カウントチェック - ;------------------------------------------------------------------------ COUNT_DOWN EQU $ LDA OBJ_TIMER_DISP BEQ COUNT_DOWN_0050 DEC OBJ_TIMER_DISP ; COUNT_DOWN_0050 EQU $ LDA GMFADE_CT ORA GOAL_IN ORA GOAL_BOSS_CLEAR BNE COUNT_DOWN_011 ;カーテンウィンドウ中？ ( yes:COUNT_DOWN_011 ) ; LDA TIMER CMP #109 BCC COUNT_DOWN_018 ;ＯＢＪカウンター表示？ ( yes:COUNT_DOWN_018 ) ; LDA BABYDWN BEQ COUNT_DOWN_020 ;赤ちゃんレーダーセット？ ( yes:COUNT_DOWN_020 ) ; LDA OBJ_TIMER_DISP BNE COUNT_DOWN_0102 ;強制ＯＢＪタイマー表示？ ( yes:COUNT_DOWN_0102 ) ; LDA HDMAPR1,X ;;;; LDA !TEST_HDMAPD1,X ;;;; STA >HDMAPR2,X ;;;; DEX ;;;; BPL test_020 ;;;;; ;;;; M16 ;;;;; ;;;;;-------------- ＢＧ１スクロールカウンターセット ------------------------ ;;;; LDA #HDMABF0 ;;;; STA R0 ;(R0) <-- 転送先アドレス ;;;; LDA #4 ;;;; STA R1 ;(R1) <-- 転送先アドレス加算データ ;;;; LDA M_DMA_BFST ;;;; LWORD HDMABUF0 ;転送先アドレス ;;;; LWORD HDMABF0 ;転送元アドレス ;;;; WORD (0D2H*4)*2 ;転送バイト数 ;;;;; ;;;; M8 ;;;;; ;;;; LDA #00011000B ;ラスターＨ−ＤＭＡ”ＯＮ” ;;;; TSB HD420C ;;;; PLB ;;;; RTL ;;;;; ;;;;; ;;;;; ;;;;TEST_HDMAP0 EQU $ ;;;; BYTE 01000011B ;DMA control parameter ;;;; BYTE 0DH ; B bus address ;;;; BYTE LOW HDMAPR1 ; A " (L) ;;;; BYTE HIGH HDMAPR1 ; " (H) ;;;; BYTE BANK HDMAPR1 ; " (B) ;;;;TEST_HDMAP1 EQU $ ;;;; BYTE 01000011B ;DMA control parameter ;;;; BYTE 0FH ; B bus address ;;;; BYTE LOW HDMAPR2 ; A " (L) ;;;; BYTE HIGH HDMAPR2 ; " (H) ;;;; BYTE BANK HDMAPR2 ; " (B) ;;;;; ;;;;TEST_HDMAPD0 EQU $ ;;;; BYTE 59H+80H ;line no. ;;;; WORD HDMABUF0 ;;;; BYTE 59H+80H ;line no. ;;;; WORD HDMABUF0+(59H*4) ;;;; HEX 00 ;end code ;;;;TEST_HDMAPD1 EQU $ ;;;; BYTE 59H+80H ;line no. ;;;; WORD HDMABUF2 ;;;; BYTE 59H+80H ;line no. ;;;; WORD HDMABUF2+(59H*4) ;;;; HEX 00 ;end code ;;;;; ; ; ; ;;;;95/7/24;;;; lda #4 ;;;;95/7/24;;;; sta 2100h ;;;;95/7/24;;;;; ;;;;95/7/24;;;; PLB ;;;;95/7/24;;;; RTL ;;;;95/7/24;;;;; ;;;;95/7/24;;;;; ;;;;95/7/24;;;;; ;;;;95/7/24;;;;; ;;;;95/7/24;;;;; ;;;;95/7/24;;;; M16 ;;;;95/7/24;;;;; ;;;;95/7/24;;;; M_CHIP TEST_01 ;;;;95/7/24;;;;; ;;;;95/7/24;;;; M8 ;;;;95/7/24;;;;; ;;;;95/7/24;;;; lda #0fh ;;;;95/7/24;;;; sta 2100h ;;;;95/7/24;;;;; ;;;;95/7/24;;;; PLB ;;;;95/7/24;;;; RTL ; ;************************************************************************ ;* * ;* カラー転送 * ;* * ;************************************************************************ ; MEM8 IDX8 ; COLTR_SEL EQU $ WORD COLTR_00 ;[00] カラー転送無し WORD COLTR_01 ;[01] 氷の城 WORD COLTR_02 ;[02] 森のこもれび WORD COLTR_03 ;[03] カベ背景 WORD COLTR_04 ;[04] ハチ滝背景 WORD COLTR_05 ;[05] 地下いわ WORD COLTR_06 ;[06] 地下コースＢＧ１の滝 WORD COLTR_07 ;[07] 地下いわ と 地下コースＢＧ１の滝 WORD COLTR_08 ;[08] ドカンコースＢＧ１の滝 WORD COLTR_09 ;[09] ハチ城 WORD COLTR_0A ;[0A] 地下第２ 溶岩 WORD COLTR_0B ;[0B] 雪 (だんだん降ってくる) WORD COLTR_0C ;[0C] 雪 (だんだんやむ) WORD COLTR_0D ;[0D] ＢＧ３ ハチ夕日 WORD COLTR_0E ;[0E] 地下滝 ( 水 ＆ 溶岩 ) WORD COLTR_0F ;[0F] ＢＧ３ボス部屋 WORD COLTR_10 ;[10] 氷の地下 (ＢＧ１) WORD COLTR_11 ;[11] ＢＧ３霧 WORD COLTR_12 ;[12] 転送タイプ ５,Ａ,１０,１１ の組合せ WORD COLTR_13 ;[13] 地下標準カラー 地下滝 森のこもれび WORD COLTR_13 ;[14] ＢＧ３霧だけ ; ;------------------------------------------------------------------------ ;- カラー転送無し - ;------------------------------------------------------------------------ COLTR_00 EQU $ RTS ; ;------------------------------------------------------------------------ ;- 氷の城 - ;------------------------------------------------------------------------ COLTR_01_DAT EQU $ WORD COL_ADDRESS+ICE_SIRO_COL0 WORD COL_ADDRESS+ICE_SIRO_COL1 WORD COL_ADDRESS+ICE_SIRO_COL2 WORD COL_ADDRESS+ICE_SIRO_COL3 WORD COL_ADDRESS+ICE_SIRO_COL4 WORD COL_ADDRESS+ICE_SIRO_COL5 WORD COL_ADDRESS+ICE_SIRO_COL6 WORD COL_ADDRESS+ICE_SIRO_COL7 ; COLTR_01_CNT EQU $ BYTE 030H,010H,050H,010H ; ; COLTR_01 EQU $ M16 ; memory 16bit mode DEC !COL_ANIME_TM LDA !COL_ANIME_TM BPL COLTR_01_200 LDA !COL_ANIME_CT INC A INC A AND #00007*2 STA !COL_ANIME_CT BNE COLTR_01_100 JSL >RND_RND AND #00003 TAX LDA COLTR_01_CNT,X AND #000FFH BRA COLTR_01_150 COLTR_01_100 EQU $ LDA #00004 COLTR_01_150 EQU $ STA !COL_ANIME_TM ; COLTR_01_200 EQU $ LDX !COL_ANIME_CT LDA COLTR_01_DAT,X STA MORI_COL_ANIME,X BNE COLTR_02_050 ;ランダムタイマーセット？ ( no:COLTR_02_050 ) ; LDA RANDM0 AND #0E0H CLC ;[ 10H-2FH ] ADC #020H COLTR_02_050 EQU $ STA COL_ANIME_TM TXA ASL A ;x6 ;;;; CLC ; ADC COL_ANIME_CT ; ASL A TAX ; PHB ;(DBR) save LDA #BANK DATACOL ;(DBR) <-- DATACOL(B) PHA PLB ; M16 ; LDY #0 COLTR_02_060 EQU $ LDA >COL_ADDRESS+MORI_ANIM_COL,X STA MOTOCOL+(05H*2),Y STA DATACOL+(05H*2),Y INX INX INY INY CPY #(3*2) BCC COLTR_02_060 ; M8 ; PLB ; COLTR_02_070 EQU $ RTS ; ;------------------------------------------------------------------------ ;- カベ背景カラーアニメーション - ;------------------------------------------------------------------------ COLTR_03 EQU $ LDA FRCNT2 AND #03H*8 ASL A ASL A ;;;; CLC ADC #(16-1)*2 TAX ; PHB ;(DBR) save LDA #BANK DATACOL ;(DBR) <-- DATACOL(B) PHA PLB ; M16 ; LDY #(16-1)*2 COLTR_03_010 EQU $ LDA >COL_ADDRESS+KABE_ANIM_COL,X STA MOTOCOL+(70H*2),Y STA DATACOL+(70H*2),Y DEX DEX DEY DEY BPL COLTR_03_010 ; M8 ; PLB RTS ; ;------------------------------------------------------------------------ ;- ハチ滝背景カラーアニメーション - ;------------------------------------------------------------------------ COLTR_04_DAT EQU $ WORD COL_ADDRESS+B3TAKI_COL_0 WORD COL_ADDRESS+B3TAKI_COL_1 WORD COL_ADDRESS+B3TAKI_COL_2 WORD COL_ADDRESS+B3TAKI_COL_3 WORD COL_ADDRESS+B3TAKI_COL_4 WORD COL_ADDRESS+B3TAKI_COL_5 WORD COL_ADDRESS+B3TAKI_COL_6 WORD COL_ADDRESS+B3TAKI_COL_7 ; ; COLTR_04 EQU $ LDA FRCNT2 AND #01CH LSR A TAX LDA #BANK COL_ADDRESS STA COLTR_05_40 ;;;;K;;;;; ;;;;K;;;; TXA ;;;;K;;;; CLC ;;;;K;;;; ADC #(8*2) ;;;;K;;;; AND #070H ;;;;K;;;; STA !COL_ANIME_CT ;;;;K;;;; TAX ;;;;K;;;;; ;;;;K;;;;; ;;;;K;;;;; ;;;;K;;;;; ; INC !COL_ANIME_CT LDA !COL_ANIME_CT AND #038H ASL A TAX ; COLTR_05_40 EQU $ PHB ;(DBR) save LDA #BANK DATACOL ;(DBR) <-- DATACOL(B) PHA PLB M16 ; memory 16bit mode ; LDY #000 COLTR_05_50 EQU $ LDA >COL_ADDRESS+CHIKA_IWA_COL,X STA !MOTOCOL+(71H*2),Y STA !DATACOL+(71H*2),Y INX INX INY INY CPY #(8*2) BCC COLTR_05_50 ; M8 ; memory 8bit mode PLB RTS ; ;------------------------------------------------------------------------ ;- 地下コースＢＧ１の滝 - ;------------------------------------------------------------------------ COLTR_06_DAT EQU $ WORD COL_ADDRESS+B1TAKI_COL0 WORD COL_ADDRESS+B1TAKI_COL1 WORD COL_ADDRESS+B1TAKI_COL2 WORD COL_ADDRESS+B1TAKI_COL3 ; ; COLTR_06 EQU $ JSR COLTR_05_SB COLTR_06_SB EQU $ M16 ; memory 16bit mode LDA !FRCNT2 ; 地下標準カラー AND #00038H LSR A LSR A TAX LDA B1CK_COL_ADR,X STA MOTOCOL+001H*2 STA >DATACOL+001H*2 STA >MOTOCOL+009H*2 STA >DATACOL+009H*2 M8 ; memory 8bit mode RTS ; ;------------------------------------------------------------------------ ;- 地下第２ 溶岩 - ;------------------------------------------------------------------------ COLTR_0A_DAT EQU $ WORD COL_ADDRESS+CHIKA2_COL0 WORD COL_ADDRESS+CHIKA2_COL1 WORD COL_ADDRESS+CHIKA2_COL2 WORD COL_ADDRESS+CHIKA2_COL3 ; ; COLTR_0A EQU $ LDA !FRCNT2 AND #018H LSR A LSR A TAX LDA #BANK COL_ADDRESS STA COLTR_0E_020 JSR COLTR_0A BRA COLTR_0E_SB COLTR_0E_020 EQU $ JSR COLTR_06_SB_SB COLTR_0E_SB EQU $ M16 ; memory 16bit mode LDA !BG2COL AND #00001 ASL A TAY ASL A ASL A ASL A STA RND_RND ADC HEX FC,04,FC,04,FC,04,FC,04,FC,04,FC ZOMMAX HEX 01,00 GMPASZMCP EQU $ HEX 20,34,20,34,20,34,20,34,20,34,20 HEX 34,00 ZOMMX EQU ZOMMAX-GMPASZMAD ; GMPASASAD EQU $ ; ZOMMX -> HEX 04,FF GMPASASMX EQU $ HEX 40,10 ; GMPASMJNO EQU $ ; P A U S E HEX 00,01,02,03,04 ; GMPASCNTX EQU $ HEX 10,30,50,70,10 GMPASCNTY EQU $ HEX 50,50,50,50,70 ; GMPASIN_SNDNO EQU $ WORD 01H, 02H ; GMPASUB_ADR EQU $-2 WORD GMPASUB_000,GMPASUB_0000 WORD GMPASUB_100 WORD GMPASUB_200,GMPASUB_300 WORD GMPASUB_400,GMPASUB_500 WORD GMPASUB_600,GMPASUB_700 WORD GMPASUB_800 ITEM_OBJ EQU $ WORD GMPASUB_900 GMPASUB_MOVE EQU $ WORD GMPASUB_A00,GMPASUB_A00 WORD GMPASUB_A00,GMPASUB_A00 WORD GMPASUB_A00,GMPASUB_A00 WORD GMPASUB_A00,GMPASUB_B00 WORD GMPASUB_C00 OBJ_SAVE EQU $ ; Vram_save EQU (OBJ_SAVE-GMPASUB_ADR)/2 Item_obj EQU (ITEM_OBJ-GMPASUB_ADR)/2 Pause_move EQU (GMPASUB_MOVE-GMPASUB_ADR)/2 ; ; GMPASUB EQU $ MI16 ; memory , index 16bit mode LDA !GMPAUSE AND #000FFH ASL A TAX LDA !GMPASMK AND #00FFH ASL A TAY JSR (GMPASUB_ADR,X) MI8 ; memory , index 8bit mode ; ;------------------------------- アイテム オブジェ セット LDA !GMPAUSE CMP #Item_obj BCC GMPASUB_PASS LDA !ITEMDSP ; アイテムを持っているか ? BEQ GMPASUB_PASS ; NO -> GMPASUB_PASS JSR ITEMOBJST ; JSR MTR_COL_CHG ; GMPASUB_PASS EQU $ PLB RTL ; MEM16 IDX16 ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ カーソル枠の カラーアニメーション + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ MTR_COL_DAT EQU $ WORD 07C00H,07C1FH,0001FH,003FFH WORD 003E0H,003FFH,0001FH,07C1FH ; ; MTR_COL_CHG EQU $ M16 ; memory 16bit mode LDA DATACOL+(01*20H)+(0EH*2) M8 ; memory 8bit mode RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ カラー フェード イン , アウト + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ GM_PS_ADR EQU $ WORD GM_PS_OUT,GM_PS_IN ; ; GMPASUB_900 EQU $ MI8 ; memory , index 8bit mode LDA !GMPASMK EOR #001 BRA GMPASUB_050 ; GMPASUB_000 EQU $ MI8 ; memory , index 8bit mode LDA !GMPASMK GMPASUB_050 EQU $ PHA ;(A) save ; ASL A TAX LDA !FADNO JSR (GM_PS_ADR,X) ; PLA ;(A) load EOR GMPASMK BEQ GMPASUB_060 ;赤ちゃんカウント表示？ ( yes:GMPASUB_060 ) RTS ; ;-------------- 赤ちゃんカウント表示 -------------------- GMPASUB_060 EQU $ ; M16 ; memory 16bit mode ; PLA ;[ pull pull return !! ] JMP >COUNT_DOWN_011 ;赤ちゃんカウント表示へ ; MEM8 IDX8 ; ;------------------------------- カラー フェード イン GM_PS_IN EQU $ DEC A DEC A BPL GM_PS_IN_OUT JSR GMPASUB_MODE LDA #080H BRA GM_PS_IN_OUT ; ;------------------------------- カラー フェード アウト GM_PS_OUT EQU $ AND #00FH INC A INC A CMP #00FH BCC GM_PS_IN_OUT JSR GMPASUB_MODE LDA #00FH GM_PS_IN_OUT EQU $ STA !FADNO RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ ポーズ中のフェードでのオブジェセット + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ GMPASUB_0000 EQU $ MI8 ; memory , index 8bit mode JSL >OAMCLR ; OAM clear MI16 ; memory , index 16bit mode LDA !GMPASMK BNE GMPASUB_0050 STZ !KEYA1L STZ !KEYA2L STZ !KEYB1L STZ !KEYB2L STZ PAUSE_SUB MI16 ; memory , index 16bit mode GMPASUB_0050 EQU $ JSR GMPASUB_MODE RTS ; MEM16 IDX16 ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ ＯＢＪ データ セーブ ＆ ロード + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ GMPASUB_1_AD EQU $ WORD 05400H,05400H+8000H GMPASUB_1_BT EQU $ WORD (16*8)*20H,(16*8)*20H+2 ; ; GMPASUB_100 EQU $ TYX LDA !GMPASIN_SNDNO,X ;[♪] STA VRSV010 ; LDA #00000001B+(18H*100H) INY INY VRSV010 EQU $ STA 3,X ;inc mode & DMA parameter set TYA STA 5,X ;B bus address & A bus addres(L) set ; TXA CLC ADC #12 STA 10,X ;next data address set STA VRAMDX ;end address set ; PLB ;(DBR) load JSR GMPASUB_MODE RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ 点数表示用キャラクター セット + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ GMPASUB_500 EQU $ TYA ; セット ＯＫ ? BEQ GMPASUB_590 ; NO -> GMPASUB_590 LDX #CHR32 LDA #BANK CHR32 LDY ITEM_STOP BEQ GMPASUB_510 ;アイテム使用禁止？ ( no:GMPASUB_510 ) ; LDX #CHR64P LDA #BANK CHR64P GMPASUB_510 EQU $ STA VRAMDX_ST GMPASUB_590 EQU $ JSR GMPASUB_MODE RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ メーター キャラクターセット + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ GMPASUB_600 EQU $ TYA ; セット ＯＫ ? BEQ GMPASUB_690 ; NO -> GMPASUB_690 LDA #CHRE9A JSL >UNCOMPRES_X ; LDX #BANK WOB7CHR STX VRAMDX_ST GMPASUB_690 EQU $ JSR GMPASUB_MODE RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ 各パラメータ データ セーブ ＆ ロード + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ GMPASUB_7_BNK EQU $ WORD BANK PRMTR_BUF,BANK GMMDRM,BANK PRMTR_BUF ; GMPASUB_7_ADR EQU $ WORD PRMTR_BUF,GMMDRM,PRMTR_BUF ; GMPASUB_7_SUB EQU $ WORD GMPASUB_710,GMPASUB_720 ; ; GMPASUB_700 EQU $ JSR GMPASUB_MODE TYX JSR (GMPASUB_7_SUB,X) ; LDA GMPASUB_7_BNK,Y STA GMPASUB_B00_00 JSR ITMSEL ; アイテム セレクト ; GMPASUB_B00_00 EQU $ LDA !ITEMNO BEQ GMPASUB_B03 LDA GMPASUB_B05 GMPASUB_B03 EQU $ ORA GMPASUB_B20 GMPASUB_B05 EQU $ ;;;;K;;;; LDA !GMPASMK ;;;;K;;;; EOR #001 ;;;;K;;;; AND #001 ;;;;K;;;; STA !GMPASMK JSR GMPASUB_MODE ; GMPASUB_B20 EQU $ LDX #PASMOJ-2 GMPASUB_B25 EQU $ LDA GMPASTIM,X ; wait ? BEQ GMPASUB_B30 ; NO -> GMPASUB_B30 ; LDA GMPASUB_B35 ; INC GMPASZMK,X GMPASUB_B35 EQU $ CPY #ZOMMX ; moji rotation ? BCC GMPASUB_B60 ; NO -> GMPASUB_B60 ; ;-------------- moji rotation ------------------- LDA GMPASXAS,X CMP !GMPASASMX-ZOMMX,Y ; max rotation speed ? BNE GMPASUB_B40 ; NO -> GMPASUB_B40 ; CPY #ZOMMX ; rotation end check ? BEQ GMPASUB_B50 ; NO -> GMPASUB_B50 LDA GMPASXAN,X BNE GMPASUB_B50 ; NO -> GMPASUB_B50 ; ;-------------- go to wait set ------------------ STZ GMPASZMK,X ;zoom muki reset STZ GMPASXAS,X ;rotation speed reset STZ GMPASXAC,X ; " calc reset LDA #020H STA GMPASTIM,X ;wait timer set BRA GMPASUB_B70 ; GMPASUB_B40 EQU $ LDA OAMSUB STA >OAMSUB+2 STA >OAMSUB+4 STA >OAMSUB+6 ; M8 ; memory 8bit mode ; STZ OAM+0,X LDA !GMPASOAM+1,X STA >OAM+1,X LDA !GMPASOAM+2,X STA >OAM+2,X LDA !GMPASOAM+3,X STA >OAM+3,X INX INX INX INX CPX #GMPASOAME-GMPASOAM BCC GMPASUB_B90 ; RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ 使用アイテム点滅 + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ GMPASUB_C00 EQU $ MI8 ; memory , index 8bit mode LDA !ITEMNO BEQ GMPASUB_C50 INC !GMPASTM LDA !GMPASTM CMP #020H BCC GMPASUB_C90 STZ !GMPASTM GMPASUB_C50 EQU $ LDA !GMPASMK EOR #001 AND #001 STA !GMPASMK JSR GMPASUB_MODE JSR GMPASUB_MODE GMPASUB_C90 EQU $ JMP GMPASUB_B70 ; MEM8 IDX8 ; ;++++++++++++++++++++++++++++++++++++++++ ;+ ポースモードＮＯ．ＩＮＣ + ;++++++++++++++++++++++++++++++++++++++++ GMPASUB_MD_DT EQU $ BYTE 0FFH,001H ; ; GMPASUB_MODE EQU $ PHY PHP M8 ; memory 8bit mode LDY !GMPASMK LDA !GMPAUSE CLC ADC GMPASUB_MD_DT,Y STA !GMPAUSE BNE GMPASUB_MD_90 ;ポーズ解除？ ( no:GMPASUB_MD_90 ) ; ;-------------- アイテムウェイトタイマーセットチェック ---------- LDA ITEMNO BEQ GMPASUB_MD_90 ;アイテム使用？ ( no:GMPASUB_MD_90 ) ; LDA #027H ;[♪] JSL >SOUND_3_ON LDA #040H STA ITEM_TM ; GMPASUB_MD_90 EQU $ PLP PLY RTS ; MEM16 IDX16 ; ;++++++++++++++++++++++++++++++++++++++++++++++++ ;+ その他の データ 復帰 + ;++++++++++++++++++++++++++++++++++++++++++++++++ GMPASUB_710 EQU $ LDA >SCH_BUF STA SCV_BUF STA HD42C_BUF STA !HD420C LDA >NUK_BUF STA !NUKCOL ; M8 ; memory 8bit mode LDA >NMITYP_BUF STA !NMITYP LDA >MOZNO_BUF STA !MOZNO LDA >SUBADF_BUF STA !SUBADF M16 ; memory 16bit mode RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++ ;+ その他の データ 退避 + ;++++++++++++++++++++++++++++++++++++++++++++++++ GMPASUB_720 EQU $ LDA SCH_BUF LDA SCV_BUF LDA !HD420C STA >HD42C_BUF LDA !NUKCOL STA >NUK_BUF ; M8 ; memory 8bit mode LDA !NMITYP STA >NMITYP_BUF LDA !MOZNO STA >MOZNO_BUF STZ !MOZNO LDA !SUBADF STA >SUBADF_BUF LDA #020H STA !SUBADF M16 ; memory 16bit mode ; PHY LDA #BANK CHR74 ;スコア キャラクターセット STA VRAMDX_ST PLY RTS ; IDX8 ; ;++++++++++++++++++++++++++++++++++++++++++++++++ ;+ フェード アウト + ;++++++++++++++++++++++++++++++++++++++++++++++++ GMPS_COL_OUT EQU $ LDX #000 GMPS_COL_OUT_LP EQU $ LDA >COL_BUF+000H,X STA >DATACOL+000H,X LDA >COL_BUF+100H,X STA >DATACOL+100H,X INX INX BNE GMPS_COL_OUT_LP ; PLB RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++ ;+ フェード イン + ;++++++++++++++++++++++++++++++++++++++++++++++++ GMPS_COL_IN EQU $ LDA #00000H STA COL_BUF+000H,X LDA !DATACOL+100H,X STA >COL_BUF+100H,X INX INX BNE GMPS_COL_IN_00 ; LDA #00000H TAX TXY GMPS_COL_IN_10 EQU $ ; カラーデータのゼロクリア STA !DATACOL+000H,X STA !DATACOL+100H,X INX INX BNE GMPS_COL_IN_10 ; TYX GMPS_COL_IN_20 EQU $ ;ポリゴンとスコアのカラーセット LDA >COL_ADDRESS+METER_COL+2,X STA !DATACOL+((16*2)*0)+2,X LDA >COL_ADDRESS+METER_COL+(16*2)+2,X STA !DATACOL+((16*2)*1)+2,X LDA >COL_ADDRESS+OBJ_MAIN_COL+(15*2*0),X STA !DATACOL+((16*2)*8)+2,X LDA >COL_ADDRESS+OBJ_MAIN_COL+(15*2*1),X STA !DATACOL+((16*2)*9)+2,X LDA >COL_ADDRESS+OBJ_MAIN_COL+(15*2*2),X STA !DATACOL+((16*2)*10)+2,X INX INX CPX #015*2 BCC GMPS_COL_IN_20 ; LDX #BANK PAUSE_SCR PHX PLB LDX #000 LDA #0217FH GMPS_COL_IN_30 EQU $ ; スクリーン バッファ クリア STA !PAUSE_SCR+000H,X STA !PAUSE_SCR+100H,X STA !PAUSE_SCR+200H,X STA !PAUSE_SCR+300H,X STA !PAUSE_SCR+400H,X STA !PAUSE_SCR+500H,X STA !PAUSE_SCR+600H,X INX INX BNE GMPS_COL_IN_30 ; IF PAL ;**** PAL 対応 [1995/08/01] ***************************** LDY #BANK GMGOAL_PAL4 STY GMGOAL_PAL4,X STA GMGOAL_PAL5,X STA BG3LINEDAT1,X STA !PAUSE_SCR+(20H*10H+04H)*2,Y ; LDX GMGOAL_MJ_DAT0,X STA !PAUSE_SCR+(20H*11H+07H)*2,Y LDA >GMGOAL_MJ_DAT1,X STA !PAUSE_SCR+(20H*12H+07H)*2,Y INC GMGOAL_MJ_DAT0,X STA !PAUSE_SCR+(20H*14H+07H)*2,Y LDA >GMGOAL_MJ_DAT1,X STA !PAUSE_SCR+(20H*15H+07H)*2,Y INC BG3LINEDAT1,X STA !PAUSE_SCR+(20H*10H+04H)*2,Y ; LDX GMGOAL_SCR4,X ; "ＴＯＴＡＬ ＰＯＩＮＴ" AND #000FFH TAX LDA >GMGOAL_MJ_DAT0,X STA !PAUSE_SCR+(20H*11H+07H)*2,Y LDA >GMGOAL_MJ_DAT1,X STA !PAUSE_SCR+(20H*12H+07H)*2,Y ; GMPS_COL_IN_46 EQU $ LDX GMGOAL_SCR5,X ; "ＨＩＧＨ ＳＣＯＲＥ" AND #000FFH TAX LDA >GMGOAL_MJ_DAT0,X STA !PAUSE_SCR+(20H*14H+07H)*2,Y LDA >GMGOAL_MJ_DAT1,X STA !PAUSE_SCR+(20H*15H+07H)*2,Y ENDIF ;**** 日本 or NES 対応 [1995/08/01] ***************************** ; GMPS_COL_IN_48 EQU $ INY INY INC VRAMDX_ST I8 ; index 8bit mode ; PLB ; LDX #009H STX !BGMODE LDX #034H STX !BG3SCF LDX #002H STX !BG34CH STX !NMITYP LDA #00014H STA !MANSEL RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++ ;+ タイマー点数表示 + ;++++++++++++++++++++++++++++++++++++++++++++++++ GMPS_TIMER EQU $ STZ TIMER BEQ GMPS_TIMER_060 GMPS_TIMER_020 EQU $ CMP #TIMER_DEC BCC GMPS_TIMER_040 SEC SBC #TIMER_DEC INC GMPS_TIMER_060 LDA #00400H STA GMGOAL_PAL1,X STA GMGOAL_MJ_DAT0,X ORA GMGOAL_MJ_DAT1,X ORA GMGOAL_SCR1,X AND #000FFH TAX LDA >GMGOAL_MJ_DAT0,X ORA GMGOAL_MJ_DAT1,X ORA CORS_COIN CMP #COIN_MAX ; ＭＡＸ以上あるか ? BCC GMPS_CIN_020 ; NO -> GMPS_CIN_020 LDA #00400H STA GMGOAL_PAL2,X STA GMGOAL_MJ_DAT0,X ORA GMGOAL_MJ_DAT1,X ORA GMGOAL_SCR2,X AND #000FFH TAX LDA >GMGOAL_MJ_DAT0,X ORA GMGOAL_MJ_DAT1,X ORA FRWR_P ASL A TAX CPX #005*2 BCC GMPS_FLWR_050 LDA #00400H STA GMGOAL_PAL3,X STA GMGOAL_MJ_DAT0,X ORA GMGOAL_MJ_DAT1,X ORA GMGOAL_SCR3,X AND #000FFH TAX LDA >GMGOAL_MJ_DAT0,X ORA GMGOAL_MJ_DAT1,X ORA GMGOAL_KAZ_DT0,X ORA GMGOAL_KAZ_DT1,X ORA FRWR_P ASL A STA GMPS_TTL_040 ;;;;K;;;; LDA #00400H ;;;;K;;;; STA MAPOINT TAX LDA >HISCEBF,X AND #000FFH CMP GMPS_HI_040 LDA #(S100-S00)/2 TAY INY BRA GMPS_HI_060 GMPS_HI_040 EQU $ CMP #00010 BCC GMPS_HI_060 SBC #00010 INY BRA GMPS_HI_040 ; GMPS_HI_060 EQU $ ASL A TAX ; IF NES | PAL ;**** NES or PAL 対応 [1995/7/26] ***************** I16 ; index 16bit mode PHX PHY I8 ; index 8bit mode ENDIF ;**** NES or PAL 対応 [1995/7/26] ********************** ; LDA #PAUSE_SCR+(20H*14H+18H)*2 STA ITMINT_120 ; LDY #000H LDA !ITEMPNT BNE ITMINT_110 STZ !ITMBFPOS INC !ITEMPNT ITMINT_110 EQU $ ; アイテムＮＯ. セット LDX !ITMBFPOS ; ITMINT_115 EQU $ LDA !ITEMBUF,X ; 表示用バッファ セット STA !ITEMDSP,Y INX INY CPY #003 BCC ITMINT_115 ; M16 ; memory 16bit mode JSR ITEM_CORSL_SUB ; ITMINT_120 EQU $ M16 ; memory 16bit mode PLB RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++ ;+ メーター + ;++++++++++++++++++++++++++++++++++++++++++++++++ GMPS_TIM_DT_UP EQU $ WORD 01DA8H,01D80H,01D82H,01D84H,01D86H WORD 01D88H,01DA0H,01DA2H,01DA4H,01DA6H ; GMPS_TIM_DT_DWN EQU $ WORD 01DB8H,01D90H,01D92H,01D94H,01D96H WORD 01D98H,01DB0H,01DB2H,01DB4H,01DB6H ; ; GMPS_MATER EQU $ LDX #000 GMPS_MTR_020 EQU $ LDA #09D8BH STA !PAUSE_SCR+(20H*17H+00H)*2,X LDA #01D8BH STA !PAUSE_SCR+(20H*1AH+00H)*2,X LDA #009AFH STA !PAUSE_SCR+(20H*18H+00H)*2,X STA !PAUSE_SCR+(20H*19H+00H)*2,X INX INX CPX #020H*2 BCC GMPS_MTR_020 ; LDA #0098CH ; " ヨッシー " STA !PAUSE_SCR+(20H*18H+01H)*2 INC A STA !PAUSE_SCR+(20H*18H+02H)*2 INC A STA !PAUSE_SCR+(20H*19H+01H)*2 INC A STA !PAUSE_SCR+(20H*19H+02H)*2 ; LDX #000 TXY LDA >PLCONT ; 残り人数 GMPS_MTR_040 EQU $ CMP #00100 ;１００以上 ? BCC GMPS_MTR_043 ; NO -> GMPS_MTR_043 SBC #00100 INY BRA GMPS_MTR_040 GMPS_MTR_043 EQU $ CMP #00010 ;１０以上 ? BCC GMPS_MTR_045 ; NO -> GMPS_MTR_045 SBC #00010 INX BRA GMPS_MTR_043 GMPS_MTR_045 EQU $ CPY #000 BNE GMPS_MTR_049 TXY TAX LDA #010 CPY #000 BNE GMPS_MTR_049 TXY TAX LDA #010 GMPS_MTR_049 EQU $ ORA #00DC0H STA !PAUSE_SCR+(20H*19H+05H)*2 TXA ORA #00DC0H STA !PAUSE_SCR+(20H*19H+04H)*2 TYA ORA #00DC0H STA !PAUSE_SCR+(20H*19H+03H)*2 ; LDA #00DD2H ; " コイン " STA !PAUSE_SCR+(20H*18H+06H)*2 INC A STA !PAUSE_SCR+(20H*18H+07H)*2 INC A STA !PAUSE_SCR+(20H*19H+06H)*2 INC A STA !PAUSE_SCR+(20H*19H+07H)*2 ; LDX #000 LDA >COIN_CNT ; コイン枚数 GMPS_MTR_060 EQU $ CMP #00010 BCC GMPS_MTR_065 SBC #00010 INX BRA GMPS_MTR_060 GMPS_MTR_065 EQU $ CPX #000 BNE GMPS_MTR_069 TAX LDA #010 GMPS_MTR_069 EQU $ ORA #00DC0H STA !PAUSE_SCR+(20H*19H+09H)*2 TXA ORA #00DC0H STA !PAUSE_SCR+(20H*19H+08H)*2 ; LDA #00DCBH ; " スター " STA !PAUSE_SCR+(20H*18H+0BH)*2 INC A STA !PAUSE_SCR+(20H*18H+0CH)*2 INC A STA !PAUSE_SCR+(20H*19H+0BH)*2 INC A STA !PAUSE_SCR+(20H*19H+0CH)*2 ; LDA >TIMER_HI ; タイマー 十の位 ASL A TAX LDA >GMPS_TIM_DT_UP,X STA !PAUSE_SCR+(20H*18H+0DH)*2 INC A STA !PAUSE_SCR+(20H*18H+0EH)*2 LDA >GMPS_TIM_DT_DWN,X STA !PAUSE_SCR+(20H*19H+0DH)*2 INC A STA !PAUSE_SCR+(20H*19H+0EH)*2 ; LDA >TIMER_MID ; タイマー 一の位 ASL A TAX LDA >GMPS_TIM_DT_UP,X STA !PAUSE_SCR+(20H*18H+0FH)*2 INC A STA !PAUSE_SCR+(20H*18H+10H)*2 LDA >GMPS_TIM_DT_DWN,X STA !PAUSE_SCR+(20H*19H+0FH)*2 INC A STA !PAUSE_SCR+(20H*19H+10H)*2 ; JSR ITEM_WAKU ; M8 ; memory 8bit mode PHB PHK PLB JSR LTRTARWST PLB M16 ; memory 16bit mode ; RTS ; ;++++++++++++++++++++++++++++++++++++++++ ;+ 点数セット + ;+ in + ;+ X <- read data index + ;+ Y <- " " + ;+ wk10,11 : buffer address+ ;+ 12,13 : " + ;+ 14,15 : " + ;+ 16,17 : " + ;+ 18,19 : アトリビュート+ ;++++++++++++++++++++++++++++++++++++++++ GMPS_COL_IN_SB EQU $ PHY LDY #002 LDA >GMGOAL_KAZ_DT0,X ORA GMGOAL_KAZ_DT1,X ORA GMGOAL_KAZ_DT0,X ORA GMGOAL_KAZ_DT1,X ORA HDMAPR0,X LDA !HDMAPD3,X STA >HDMAPR1,X LDA !HDMAPD4,X STA >HDMAPR2,X LDA !HDMAPD5,X STA >HDMAPR3,X LDA !HDMAPD6,X STA >HDMAPR4,X DEX BPL IHD020 ; ;-------------- グラデーションカラーセット ------------------------------ LDX #00 ;(X) <-- H-DMA "ON" flag set data LDA NUKINO CMP #10H BCC IHD030 ;グラデーションカラーセット？ ( no:IHD030 ) ; ASL A ASL A TAY ; M16 ; LDA !GRADATION_ADRS,Y STA R0 ;(R0) <-- カラーパターンアドレス(B) LDA !GRADATION_ADRS+2,Y STA R1 ;(R1) <-- ” (L,H) M_CHIP GRADATION_SET ; LDA #NUKCOL_BF_B ;to memory address set STA DMA_M_M ;DMA "ON" ; M8 ; LDX #00000110B ;グラデーションＨ−ＤＭＡ”ＯＮ” IHD030 EQU $ STX HD420C ; PLB RTL ; ;-------------- H-DMA parameter data ( water ) ------------------ HDMAP0 EQU $ BYTE 00000001B ;DMA control parameter BYTE 2CH ; B bus address BYTE LOW HDMABUF2 ; A " (L) BYTE HIGH HDMABUF2 ; " (H) BYTE BANK HDMABUF2 ; " (B) ; ;-------------- ＢＧ３特殊スクロール ---------------------------- HDMAP1 EQU $ BYTE 00000011B ;DMA control parameter BYTE 11H ; B bus address BYTE LOW HDMABUF0 ; A " (L) BYTE HIGH HDMABUF0 ; " (H) BYTE BANK HDMABUF0 ; " (B) ; ;-------------- spacial window H-DMA parameter data ------------- HDMAP2 EQU $ BYTE 01000100B ;DMA control parameter BYTE 26H ; B bus address BYTE LOW HDMAPR0 ; A " (L) BYTE HIGH HDMAPR0 ; " (H) BYTE BANK HDMAPR0 ; " (B) ; HDMAPD2 EQU $ BYTE 69H+80H ;line no. WORD WINDBUF BYTE 69H+80H ;line no. WORD WINDBUF+(69H*4) HEX 00 ;end code HDMAPD2E EQU $ ; ;-------------- H-DMA test H-DMA parameter data ----------------- HDMAP3 EQU $ BYTE 01000010B ;DMA control parameter BYTE 12H ; B bus address BYTE LOW HDMAPR1 ; A " (L) BYTE HIGH HDMAPR1 ; " (H) BYTE BANK HDMAPR1 ; " (B) ; HDMAPD3 EQU $ BYTE 69H+80H ;line no. WORD HDMABUF BYTE 69H+80H ;line no. WORD HDMABUF+(69H*2) HEX 00 ;end code ; ;-------------- H-DMA test H-DMA parameter data ----------------- HDMAP4 EQU $ BYTE 01000010B ;DMA control parameter BYTE 11H ; B bus address BYTE LOW HDMAPR2 ; A " (L) BYTE HIGH HDMAPR2 ; " (H) BYTE BANK HDMAPR2 ; " (B) ; HDMAPD4 EQU $ BYTE 69H+80H ;line no. WORD HDMABUF2 BYTE 69H+80H ;line no. WORD HDMABUF2+(69H*2) HEX 00 ;end code ; ;-------------- グラデーションカラー H-DMA parameter data ------- HDMAP5 EQU $ BYTE 01000010B ;DMA control parameter BYTE 32H ; B bus address BYTE LOW HDMAPR3 ; A " (L) BYTE HIGH HDMAPR3 ; " (H) BYTE BANK HDMAPR3 ; " (B) ; HDMAPD5 EQU $ BYTE 69H+80H ;line no. WORD NUKCOL_BF_RG BYTE 69H+80H ;line no. WORD NUKCOL_BF_RG+(69H*2) HEX 00 ;end code HDMAPD5_E EQU $ HDMAPD5_NO EQU HDMAPD5_E-HDMAPD5 ; HDMAP6 EQU $ BYTE 01000000B ;DMA control parameter BYTE 32H ; B bus address BYTE LOW HDMAPR4 ; A " (L) BYTE HIGH HDMAPR4 ; " (H) BYTE BANK HDMAPR4 ; " (B) ; HDMAPD6 EQU $ BYTE 69H+80H ;line no. WORD NUKCOL_BF_B BYTE 69H+80H ;line no. WORD NUKCOL_BF_B+69H HEX 00 ;end code ; ;************************************************************************ ;* water H-DMA data set * ;************************************************************************ ; SPACIAL EQU $ LDA !BG2SPFV BEQ SPL_100 JSR BG2_SCCV_SET BRA SPL_200 ; SPL_100 EQU $ LDA !BG3SPFH BEQ SPL_200 JSR BG3_SCCH_SET ; SPL_200 EQU $ LDX !DSPCNTRLFG BEQ SPL_300 JSR DISP_SET BRA SPL_500 ; SPL_300 EQU $ LDA !BG2SPF BEQ SPL_400 JSR BG2_SCCH_SET BRA SPL_500 ; SPL_400 EQU $ LDA !BG3SPFV BEQ SPL_500 JSR BG3_SCCV_SET ; ;-------------- BG3 spacial screen set -------------------------- SPL_500 EQU $ LDX BG3SPF BNE BGP0FD ;ＢＧ３特殊スクロール？ ( yes:BGP0FD ) RTS ; BGP0FD EQU $ M16 ; LDA ESCCV1-2,X STA R2 ;(R2) <-- スクロールカウンターＶ LDX #BANK BG3SCSP LDA #BG3SCSP JSL >CHIPON ; LDA R1 ;(A) <-- 転送バイト数 SEC SBC #HDMABF0 JSL >M_DMA_BFST_N LWORD HDMABUF0 ;転送先アドレス LWORD HDMABF0 ;転送元アドレス ; LDA BG3TYP CMP #01H BEQ BGP0FD2 ;水中？ ( yes:BGP0FD2 ) ; M8 ; LDA #10000000B ;H-DMA "ON" BRA BGP040 ; ;-------------- H-DMA data set ---------------------------------- ; MEM16 ; BGP0FD2 EQU $ LDA #0707H-8 SEC SBC HDMABUF2+1 ;not add set EOR #00000100B AND #00000100B STA >HDMABUF2+2 ;not add set LDA #01H STA >HDMABUF2 ;line no. LDA #00 STA >HDMABUF2+3 ;end code BRA BGP030 ; BGP000 EQU $ LDX #00 CMP #80H BCC BGP010 ;data size over ? ( no:BGP010 ) ;;;; SEC SBC #7FH PHA LDA #7FH STA >HDMABUF2,X ;line no. LDA #00010111B ;[ main select BG3 "ON" ] STA >HDMABUF2+1,X ;not add set LDA #00 STA >HDMABUF2+2,X PLA INX INX INX BGP010 EQU $ STA >HDMABUF2,X ;line no. LDA #01 STA >HDMABUF2+3,X ;add area set LDA MANSEL STA >HDMABUF2+4,X ;add set LDA #00000100B STA >HDMABUF2+5,X ;add set LDA #00010111B ;[ main select BG3 "ON" ] STA >HDMABUF2+1,X ;not add set LDA #00 STA >HDMABUF2+2,X LDA #00 STA >HDMABUF2+6,X ;end code ; BGP030 EQU $ LDA #11000000B ;H-DMA "ON" BGP040 EQU $ TSB HD420C RTS ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ 画面指定の制御 (ＨＤＭＡバッファセット) + ;+ in + ;+ X : スクロール値 read index + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISP_SET EQU $ M16 ; memory 16bit mode DEX LDA CHIPON ; LDA #000D2H*2 ;(A) <-- 転送バイト数 JSL >M_DMA_BFST_N LWORD HDMABUF ;転送先アドレス LWORD HDMABF ;転送元アドレス ; M8 ; memory 8bit mode LDA #00010000B TSB HD420C RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ ＢＧ２縦スクロールセット + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ BG2_SCCV_SET EQU $ M16 ; memory 16bit mode LDA !BG2SPFV AND #00002 STA R1 LDA !ESCCV2 STA R2 LDA !BG2SPV_CT STA R3 ; 幅 セット LDA !BG2SPFV_ADR STA R7 LDA #BANK BG2_SCR_DATA STA R8 LDA #HDMABF2 STA R10 LDA !ENSTFG AND #000FFH STA R11 ; R11 <- アニメーション ストップ フラグ LDX #BANK BG2VSCSP LDA #BG2VSCSP JSL >CHIPON ; LDA #000D2H*2 ;(A) <-- 転送バイト数 JSL >M_DMA_BFST_N LWORD HDMABUF2 ;転送先アドレス LWORD HDMABF2 ;転送元アドレス ; M8 ; memory 8bit mode LDA #00001000B TSB HD420C RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ ＢＧ２横スクロールセット + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ BG2_SCCH_SET EQU $ M16 ; memory 16bit mode LDA !BG2SPF AND #00002 STA R1 LDA !BG2SPH_CT STA CCWORK0 ;幅 セット LDA !ESCCV2 STA R2 ;(R2) <-- スクロールカウンターＶ LDA !BG2SPF_ADR STA R3 LDA #BANK BG2_SCR_DATA STA R4 LDA #HDMABF STA R10 LDA !ENSTFG AND #000FFH STA R11 ; R11 <- アニメーション ストップ フラグ LDX #BANK BG2SCSP LDA #BG2SCSP JSL >CHIPON ; LDA #000D2H*2 ;(A) <-- 転送バイト数 JSL >M_DMA_BFST_N LWORD HDMABUF ;転送先アドレス LWORD HDMABF ;転送元アドレス ; M8 ; memory 8bit mode LDA #00010000B ;H-DMA "ON" TSB !HD420C RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ ＢＧ３横スクロールセット + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ BG3_SCCH_SET EQU $ M16 ; memory 16bit mode LDA !BG3SPFH AND #00002 STA R1 LDA !BG3SPH_CT STA CCWORK0 ; 幅 セット LDA !ESCCV3 STA R2 ;(R2) <-- スクロールカウンターＶ LDA !BG3SPFH_ADR STA R3 LDA #BANK BG3_SCR_DAT_ADR STA R4 LDA #HDMABF2 STA R10 LDA !ENSTFG AND #000FFH STA R11 ; R11 <- アニメーション ストップ フラグ LDX #BANK BG2SCSP LDA #BG2SCSP JSL >CHIPON ; LDA #000D2H*2 ;(A) <-- 転送バイト数 JSL >M_DMA_BFST_N LWORD HDMABUF2 ;転送先アドレス LWORD HDMABF2 ;転送元アドレス ; LDA >HDMABF2 STA !ESCCH3 STA CHIPON ; LDA #000D2H*2 ;(A) <-- 転送バイト数 JSL >M_DMA_BFST_N LWORD HDMABUF ;転送先アドレス LWORD HDMABF ;転送元アドレス ; M8 ; memory 8bit mode LDA #00010000B TSB HD420C RTS ; ; ;************************************************************************ ;* オフセットモードタイプテーブル * ;************************************************************************ BG2OFST_TBL EQU $-1 WORD BGOFST ;[1] 溶岩の波 WORD BGOFST_FURA ;[3] ”フラフラ” WORD KUPPA_NAMI ;[5] クッパ ドスン ウェーブ ; ;************************************************************************ ;* オフセットモード（”フラフラ”） * ;************************************************************************ FURA_COLOR EQU $ WORD 1402H,2000H,00E0H,00C3H,00A5H,0008H,0804H,1004H ; BGOFST_FURA EQU $ STZ MANSEL LDA #00010011B STA SUBSEL ; M16 ; LDA ENSTFG ORA BIRIBIRI ORA ITEMNO BNE BGOFST_FURA_FFF ;ＳＴＯＰ？ ( yes:BGOFST_FURA_FFF ) LDA FURA_FG BNE BGOFST_FURA_000 ;”フラフラ”中？ ( yes:BGOFST_FURA_000 ) BGOFST_FURA_FFF EQU $ LDA !BG2SPH_CT ORA !BG2SPV_CT BNE FURA_PASS STZ !BG2SPF STZ !BG2SPFV LDA !HD420C AND #0FFE7H STA !HD420C FURA_PASS EQU $ JMP BGOFST_FURA_110 ; BGOFST_FURA_000 EQU $ DEC A ;[ CMP #01H ] BNE BGOFST_FURA_050 ;”フラフラ”終了？ ( no:BGOFST_FURA_050 ) ; ;-------------- ”フラフラ”終了セット ---------------------------------- LDA MD2_FURA_CNT BEQ BGOFST_FURA_010 ;床止まった？ ( yes:BGOFST_FURA_010 ) ; SEC SBC #0100H STA MD2_FURA_CNT BPL BGOFST_FURA_010 STZ MD2_FURA_CNT BGOFST_FURA_010 EQU $ LDA MD2_FURA_COL AND #00FFH ;次のカラーセット？ BEQ BGOFST_FURA_013 ; YES -> BGOFST_FURA_013 JMP BGOFST_FURA_090 ; NO --> BGOFST_FURA_090 ; BGOFST_FURA_013 EQU $ LDA >CHNGCOL BNE BGOFST_FURA_020 ;カラー元に戻った？ ( no:BGOFST_FURA_020 ) ; LDA MD2_FURA_CNT ;”フラフラ”終了？ BNE BGOFST_FURA_015 ; NO -> BGOFST_FURA_019 ; LDA #022H ;[♪] JSL >SOUND_3_ON ; STZ FURA_FG STZ !BG2SPH_CT STZ !BG2SPV_CT BRA BGOFST_FURA_019 ; BGOFST_FURA_015 EQU $ AND #00100H BNE BGOFST_FURA_019 DEC !BG2SPH_CT BPL BGOFST_FURA_018 STZ !BG2SPH_CT BGOFST_FURA_018 EQU $ DEC !BG2SPV_CT BPL BGOFST_FURA_019 STZ !BG2SPV_CT BGOFST_FURA_019 EQU $ JMP BGOFST_FURA_100 ; BGOFST_FURA_020 EQU $ LDA #00 ;カラー元に戻す STA >CHNGCOL BRA BGOFST_FURA_080 ; ;-------------- ”フラフラ”中 ------------------------------------------ BGOFST_FURA_050 EQU $ DEC FURA_FG ; LDA MD2_FURA_CNT CLC ADC #080H CMP #06000H BCC BGOFST_FURA_060 ; LDA #06000H BGOFST_FURA_060 EQU $ STA MD2_FURA_CNT ; AND #00380H BNE BGOFST_FURA_065 LDA !BG2SPH_CT INC A CMP #00018H BCS BGOFST_FURA_063 STA !BG2SPH_CT BGOFST_FURA_063 EQU $ LDA !BG2SPV_CT INC A CMP #0000CH BCS BGOFST_FURA_065 STA !BG2SPV_CT BGOFST_FURA_065 EQU $ LDA #00003 STA !BG2SPF LDA #00001 STA !BG2SPFV ; ;-------------- ”フラフラ”カラーセット -------------------------------- BGOFST_FURA_070 EQU $ LDA MD2_FURA_COL AND #00FFH BNE BGOFST_FURA_090 ;次のカラーセット？ ( no:BGOFST_FURA_090 ) ; LDA RANDM0 AND #07H*2 TAX LDA !FURA_COLOR,X STA >CHNGCOL BGOFST_FURA_080 EQU $ STZ MD2_FURA_COL LDA >DATACOL STA >MOTOCOL ; BGOFST_FURA_090 EQU $ LDA MD2_FURA_COL CLC ADC #08H STA MD2_FURA_COL STA R6 ;(R6) <-- モーフィングカラー倍率 LDA >MOTOCOL STA R1 ;(R1) <-- 元カラー LDA >CHNGCOL STA R2 ;(R2) <-- 先カラー M_CHIP COL_MORF ; LDA R3 STA >DATACOL ;モーフィングカラーセット ; ;-------------- オフセットデータセット ---------------------------------- BGOFST_FURA_100 EQU $ LDA MD2_FURA_WAV CLC ADC #020H STA MD2_FURA_WAV ; BGOFST_FURA_110 EQU $ LDA MD2_FURA_CNT STA R1 ;(R1) <-- 振幅の幅 LDA MD2_FURA_WAV STA R2 ;(R2) <-- 波カウンター M_CHIP BG2OFST_FURA ; BGOFST_FURA_150 EQU $ ; M8 ; RTS ; ;************************************************************************ ;* BG mode 2 offset set * ;************************************************************************ BGOFST EQU $ ; ;-------------- 溶岩の波 ------------------------------------------------ ; M16 ; memory 16bit mode ; LDA ENSTFG ORA ITEMNO BNE BGOFST_010 ;ＳＴＯＰ？ ( yes:BGOFST_010 ) ; DEC BG2SPD ;wave speed set DEC BG2SPD ; BGOFST_010 EQU $ LDA !BG2SPD STA R7 LDA TO_COIN_CHANGE ; LDA #047H ;[♪] JSL >SOUND_3_ON ; LDA #0020H STA TILTCT ; STZ ITEMNO RTS ; ;**************************************************************** ;* * ;* 虫めがね イニシャル パラメータ セツト * ;* * ;**************************************************************** GARASU_PRMT EQU $ INC GRASS_ON ; LDA #04H ;[♪] JSL >SOUND_3_ON ; STZ ITEMNO RTS ; ;**************************************************************** ;* * ;* いつでもタマゴ パラメータ セツト * ;* * ;**************************************************************** EGG_PRMT EQU $ LDY ITEM_WK BNE EGG_PRMT_050 ;初期セット？ ( no:EGG_PRMT_050 ) ; LDA #ITEGG ;(A) <-- 敵Ｎｏ． JSL >ENINSR ;敵エリア確保 BCC EGG_PRMT_050 ; ” ？ ( no:EGG_PRMT_050 ) ; ;-------------- いつでもタマゴデモ用タマゴセット ---------------- TYX JSL >ITEGG_INIT ; INC ITEM_WK ; EGG_PRMT_050 EQU $ RTS ; ;**************************************************************** ;* * ;* 敵みんなハテナ雲 パラメータ セツト * ;* * ;**************************************************************** ALLHTN_PRMT EQU $ LDX #(ENNO-1)*4 ALLHTN_PRMT_050 EQU $ LDA ENMODE,X CMP #EFAIL BCC ALLHTN_PRMT_100 ;敵モードＯＫ？ ( no:ALLHTN_PRMT_100 ) LDA ENMOD1,X AND #0110000000000000B BNE ALLHTN_PRMT_100 ;敵？ ( no:ALLHTN_PRMT_100 ) ; CPX PONLFFG BNE ALLHTN_PRMT_080 STZ PONLFFG ALLHTN_PRMT_080 EQU $ LDA #ECHNG ;変わるモードセット STA ENMODE,X LDA #QKM16 ;変わる敵Ｎｏ．セット STA EN_SP_WRK0,X ALLHTN_PRMT_100 EQU $ DEX DEX DEX DEX BPL ALLHTN_PRMT_050 ; LDA #03BH ;[♪] JSL >SOUND_3_ON ; STZ ITEMNO RTS ; ;**************************************************************** ;* * ;* スイカの種 パラメータ セツト * ;* * ;**************************************************************** SUIKA_PRMT EQU $ LDA #3 SUIKA_PRMT_0050 EQU $ STA EATSPF ;スペシャルショットフラグセット INC EATFLG INC EATSTP LDA #30*3 ;スイカの種数セット STA SUIKA_NO ; LDA #014H ;[♪] JSL >SOUND_3_ON ; STZ ITEMNO RTS ; ;**************************************************************** ;* * ;* 氷 パラメータ セツト * ;* * ;**************************************************************** COLD0_PRMT EQU $ LDA #4 BRA SUIKA_PRMT_0050 ; ;**************************************************************** ;* * ;* 火 パラメータ セツト * ;* * ;**************************************************************** FIRE0_PRMT EQU $ LDA #1 BRA SUIKA_PRMT_0050 ; MEM8 ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ アイテム バッファ つめる + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ITMBF_SFT EQU $ LDA !ITEMPNT CLC ADC !ITMBFPOS TAX BEQ ITMBF_SFT_END STZ !ITEMBUF-1,X TXY DEY ITMBF_SFT_LOP EQU $ CPX #027 BCS ITMBF_SFT_500 LDA !ITEMBUF,X AND #00FH ; アイテム あるか ? BEQ ITMBF_SFT_PAS ; NO -> ITMBF_SFT_PAS STA !ITEMBUF,Y STZ !ITEMBUF,X INY ITMBF_SFT_PAS EQU $ INX BRA ITMBF_SFT_LOP ; ITMBF_SFT_500 EQU $ LDA !ITMBFPOS BEQ ITMBF_SFT_PAS_5 DEC !ITMBFPOS BRA ITMBF_SFT_END ITMBF_SFT_PAS_5 EQU $ DEC !ITEMPNT BNE ITMBF_SFT_END INC !ITEMPNT ITMBF_SFT_END EQU $ RTS ; ; ;**************************************************************** ;* * ;* アイテム セレクト * ;* * ;**************************************************************** ITM_INT_SET EQU $-2 WORD TIME10_INT ; 1 タイマー １０ WORD TIME20_INT ; 2 タイマー ２０ WORD POW_INT ; 3 どこでもＰＯＷ WORD EGG_INT ; 4 いつでもタマゴ WORD GARASU_INT ; 5 虫めがね WORD ALLHTN_INT ; 6 敵みんなハテナ雲 WORD SUIKA_INT ; 7 スイカの種アイテム WORD COLD0_INT ; 8 氷アイテム WORD FIRE0_INT ; 9 火アイテム ; ITMPTADD EQU $-1 HEX 01,FF,FF ; ITMPTCMP EQU $-1 HEX 03,FF,FF ; ITMBFCMP EQU $-1 HEX 1B,FF,FF ; ; ITMSEL EQU $ LDA ITMSEL_500 ; ;------------------------------- カーソル 移動 TAX LDA !ITEMPNT BNE ITMSEL_000 JMP ITMSEL_900 ITMSEL_000 EQU $ DEC A STA ITMSEL_005 INC A STA !ITEMPNT LDA #05CH STA ITMSEL_010 LDA !ITMBFPOS BRA ITMSEL_020 ; ITMSEL_010 EQU $ LDA #05CH STA ITMSEL_900 LDA !ITEM_STOP ; ボス対戦中 ? BNE ITMSEL_550 ; YES -> ITMSEL_550 LDA !ITMBFPOS CLC ADC !ITEMPNT TAX LDA !ITEMBUF-1,X STA !ITEMNO ;アイテムＮｏ. セット!! BEQ ITMSEL_550 ASL A TAX ; M16 ; JSR (ITM_INT_SET,X) ; M8 ; ITMSEL_550 EQU $ LDA !ITEMNO BEQ ITMSEL_600 ;アイテムエラー？ ( yes:ITMSEL_600 ) ; LDA #043H ;[♪] STA BERO_CANCEL RTS ; MEM8 ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ ＩＴＥＭＤＳＰ セット + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ITMSEL_SUB EQU $ LDX #000H LDY !ITMBFPOS ITMSEL_SUB_LOP EQU $ LDA !ITEMBUF,Y STA !ITEMDSP,X INY INX CPX #003 BCC ITMSEL_SUB_LOP RTS ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ 左右向き矢印 セット + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ LT_ARW_DAT EQU $ WORD 009AFH,0499DH ; RT_ARW_DAT EQU $ WORD 009AFH,0099DH ; ; LTRTARWST EQU $ ; ;------------------------------- 左側 チェック ＆ セット LDX #000 LDA !ITMBFPOS BEQ LTRTARWST_100 INX INX LTRTARWST_100 EQU $ M16 ; memory 16bit mode LDA LT_ARW_DAT,X STA >PAUSE_SCR+(20H*18H+13H)*2 ORA #08000H STA >PAUSE_SCR+(20H*19H+13H)*2 M8 ; memory 8bit mode ; ;------------------------------- 右側 チェック ＆ セット LDX #000 LDA !ITMBFPOS CLC ADC #003 CMP #027 BCS LTRTARWST_200 TAY LDA ITEMBUF,Y BEQ LTRTARWST_200 INX INX LTRTARWST_200 EQU $ M16 ; memory 16bit mode LDA RT_ARW_DAT,X STA >PAUSE_SCR+(20H*18H+1EH)*2 ORA #08000H STA >PAUSE_SCR+(20H*19H+1EH)*2 M8 ; memory 8bit mode ; RTS ; ;---------------------------------------------------------------- ;- item screen write set - ;- VRAMDX_ST ; MI8 ; memory ,index 8bit mode RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++ ;+ カーソル ワク セット + ;++++++++++++++++++++++++++++++++++++++++++++++++ MEM16 ITEM_CORSL_SUB EQU $ LDA !ITEMPNT AND #000FFH TAY ASL A TAX LDA CRSL_POS,Y TAY LDA CRSL_DAT,X STA PAUSE_SCR+(20H*17H+14H)*2,X LDA (PAUSE_SCR+(20H*18H+14H)*2,X LDA (PAUSE_SCR+(20H*19H+14H)*2,X LDA (PAUSE_SCR+(20H*1AH+14H)*2,X INX INX INY INY CPY #(CRSL_DAT_02-CRSL_DAT_01)/4 BCC ITEM_CRSL_050 RTS MEM8 ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ アイテム オブジェ セット + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ITMOAM_DAT EQU $-2 WORD 03540H,03542H,03144H,03146H,03148H WORD 0314AH,0314CH,0314EH,0334CH ; ; ITEMOBJST EQU $ M16 ; memory 16bit mode LDA #0BFA8H STA OAM+82H,X ;アイテムＮＯ. セット PLY LDA OAM+80H,X ;アイテム アドレスセット CLC ADC #00018H STA OAMSUB+8 M8 ; memory 8bit mode RTS ; ; ;************************************************************************ ;* massage display * ;************************************************************************ MSGDSP_WD24 EQU $ ; MSGMOD -> [1] [3] [5] [7] [9] [B] [D] BYTE 00000000B,00000010B,00000010B,00001011B,00001011B,00001011B,00000010B MSGDSP_WD23_25 EQU $ BYTE 00000000B,00100010B,00100010B,10001000B,10001000B,10001000B,00100010B ; MSGDSP_X EQU $ LDA #01H ;(WK10) <-- 特別ウィンドウセット STA SOUND_3_ON ; sound set !! STZ MSGWK0 ;massage work RAM clear STZ MSGWK1 STZ MSGWK2 ; ;-------------- go to next mode !! -------------------------------------- MSMDINC EQU $ INC MSGMOD INC MSGMOD RTS ; ;------------------------------------------------------------------------ ;- massage window open - ;------------------------------------------------------------------------ MSG_WON EQU $ LDY #00 ;(Y) <-- window muki [ open ] CPX #03H BNE MSG_WIN ;ボーナスステージチェック？ ( no:MSG_WIN ) ; LDA MSG_RAM ;message mode initial set ; M8 ; JSR MSG_CALL BRA MSMDINC ; ;------------------------------------------------------------------------ ;- massage move - ;------------------------------------------------------------------------ MSG_MOV EQU $ JSR MSG_CALL ; LDA >MSG_RAM CMP #002 BCC MSM_010 ; LDA #056H JSL >SOUND_3_ON ; sound set !! ; JSR MSMDINC ;go to next mode !! ; ;-------------- message process ----------------------------------------- MSM_010 EQU $ RTS ; ;---------------------------------------------------------------- ;- message window type table - ;---------------------------------------------------------------- MSWSUB EQU $ WORD MSW_POLY ;polygon window ;;;; WORD MSW_CHNG ;change window ; ;---------------------------------------------------------------- ;- polygon window open & close - ;- (MSGWK0) : rotation angle - ;---------------------------------------------------------------- MSWZOMCP EQU $ ; window muki -> 0 2 WORD 00100H,00000H MSWZOMAD EQU $ IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** WORD 00010H,0FFF0H ELSE ;**** PAL 対応 [1995/7/24] ************************ WORD 00014H,0FFECH ENDIF ; MSW_POLY EQU $ ; M16 ; LDA MSGWK0 CLC ADC !MSWZOMAD,Y IF PAL ;**** PAL 対応 [1995/7/24] ***************************** PHA SEC SBC !MSWZOMCP,Y EOR !MSWZOMAD,Y ASL A PLA BCS MSW_POLY_0010 LDA !MSWZOMCP,Y MSW_POLY_0010 EQU $ ENDIF ;**** PAL 対応 [1995/7/24] ***************************** STA MSGWK0 STA R4 ;(R4) <-- zoom size CMP !MSWZOMCP,Y ; M8 ; BEQ MSW_POLY_0050 ;window open & close end ? ( yes:MSW_POLY_0050 ) ; ;;;; LDA #00000010B ;(A) <-- BG3 window mask JMP MSW_POLY_0350 ; MSW_POLY_0050 EQU $ ;;;; TYA ;;;; BEQ MSW_POLY_0200 ;return to game play ? ( no:MSW_POLY_0200 ) JSR MSMDINC ;go to next mode !! ; LDA MSGMOD CMP #0DH+2 BNE MSW_POLY_0200 ;return to game play ? ( no:MSW_POLY_0200 ) ; ;-------------- return to game play !! -------------------------- STZ MSGMOD ; LDA MSGSAV CLC ADC CHIPON ; M8 ; LDA M_DMA_BFST LWORD WINDBUF ;転送先アドレス LWORD WINDBF ;転送元アドレス WORD (0D2H*4) ;転送バイト数 ; ;-------------- window PPU set ---------------------------------- LDA MANSEL STA WMANSL LDA SUBSEL STA WSUBSL LDA #00110000B ;window logic set STA WLOGIC STZ 212BH LDA #00100000B TSB HD420C ;H-DMA "ON" !! ; MSW_POLY_0460 EQU $ RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ メッセージ文字セット + ;+ in + ;+ wrk0,1 <- VRAMDセット count + ;+ 2,3 <- VRAM address + ;+ 4,5 <- 個数 + ;+ 6,7 <- set chara NO. + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ MEM16 IDX16 MSW_NOML EQU $ LDA #006 STA MSW_NOML_205 LDA #0ADC0H BRA MSW_NOML_208 MSW_NOML_205 EQU $ LDA #02DC0H MSW_NOML_208 EQU $ STA !VRAMD+6,X INX INX DEY BEQ MSW_NOML_250 ; MSW_NOML_210 EQU $ LDA MSW_NOML_215 LDA #0ADC1H BRA MSW_NOML_218 MSW_NOML_215 EQU $ LDA #02DC1H MSW_NOML_218 EQU $ STA !VRAMD+6,X INX INX DEY BNE MSW_NOML_218 ; LDA 0 2 ;;;; WORD 00100H,00000H ;;;;MSWCHGAD EQU $ ;;;; WORD 00008H,0FFF8H ;;;;; ;;;;MSW_CHNG EQU $ ;;;;; ;;;; M16 ;;;;; ;;;; LDA MSGWK0 ;;;; CLC ;;;; ADC !MSWCHGAD,Y ;;;; STA MSGWK0 ;;;; CMP !MSWCHGCP,Y ;;;;; ;;;; M8 ;;;;; ;;;; BEQ MSW_CHNG_0050 ;window open & close end ? ( yes:MSW_CHNG_0050 ) ;;;;; ;;;; LDA #00001010B ;(A) <-- BG3 window mask ;;;; JMP MSW_CHNG_0350 ;;;;; ;;;;MSW_CHNG_0050 EQU $ ;;;; TYA ;;;; BEQ MSW_CHNG_0200 ;return to game play ? ( no:MSW_CHNG_0200 ) ;;;;; ;;;;;-------------- return to game play !! -------------------------- ;;;; STZ MSGMOD ;;;; STZ WIND23 ;window disable ;;;; STZ WIND24 ;;;; STZ WIND25 ;;;; STZ ENSTFG ;enemy stop cancel !! ;;;;; ;;;; LDA NEXTGOTO ;;;; BEQ MSW_CHNG_0100 ;door in ? ( no:MSW_CHNG_0100 ) ;;;;; ;;;; BIT MSG_RAM ;message mode initial set ;;;;; ;;;; M8 ;;;;; ;;;; JSR MSG_CALL ;;;;; ;;;; LDA #00000000B ;(A) <-- BG3 window mask ;;;;;-------------- window data set --------------------------------- ;;;;MSW_CHNG_0350 EQU $ ;;;; STA WIND24 ;;;; LDA #10101010B ;window mask set ;;;; STA WIND23 ;;;; STA WIND25 ;;;;; ;;;; M16 ;;;;; ;;;; LDA #BANK MSW_CHNG_DT_0 ;;;; STA R0 ;(R0) <-- chnage data bank ;;;; LDA #MSW_CHNG_DT_0 ;;;; STA R1 ;(R1) <-- from change data ;;;; LDA #MSW_CHNG_DT_1 ;;;; STA R2 ;(R2) <-- to " ;;;; LDA MSGWK0 ;;;; STA R3 ;(R3) <-- change size ;;;; LDA M_DMA_BFST ;;;; LWORD WINDBUF ;転送先アドレス ;;;; LWORD WINDBF ;転送元アドレス ;;;; WORD (0D2H*4) ;転送バイト数 ;;;;; ;;;; M8 ;;;;; ;;;;;-------------- window PPU set ---------------------------------- ;;;; LDA MANSEL ;;;; STA WMANSL ;;;; LDA SUBSEL ;;;; STA WSUBSL ;;;; LDA #00100000B ;window logic set ;;;; STA 212AH ;;;; STZ 212BH ;;;; LDA #00100000B ;;;; TSB HD420C ;H-DMA "ON" !! ;;;; RTS ;;;;; ;;;;; ;;;;;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;;;;;+ メッセージ文字セット + ;;;;;+ in + ;;;;;+ wrk0,1 <- VRAMDセット count + ;;;;;+ 2,3 <- VRAM address + ;;;;;+ 4,5 <- 個数 + ;;;;;+ 6,7 <- set chara NO. + ;;;;;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;;;; MEM16 ;;;; IDX16 ;;;;MSW_NOML EQU $ ;;;; LDA #4 ;;;; STA MSG_NO ASL A TAY LDA [MSG_ADR LDA MSG_BNK LDA !PLCONT STA >MSG_PLCT I8 ; index 8bit mode ENDIF ;**** PAL 対応 [1995/7/20] ***************************** ; ; IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** MI16 ; memory , index 16bit mode LDA >MSG_NO ASL A TAX LDA >MSG_DOCA,X STA >MSG_ADR LDA #BANK MSG_DOCA STA >MSG_BNK LDA !PLCONT STA >MSG_PLCT I8 ; index 8bit mode ENDIF ;**** 日本 or NES 対応 [1995/6/30] **************** ; ;;;;K;;;; LDA KEYA1L ;key data set ;;;;K;;;; ORA KEYB1L ;;;;K;;;; STA >MSG_RAM+6 ;;;;K;;;; LDA KEYA2L ;;;;K;;;; ORA KEYB2L ;;;;K;;;; STA >MSG_RAM+8 ; LDA #0000 STA >MSG_RAM+6 STA >MSG_RAM+8 LDA !MSG_LOCK BNE MSG_CALL_050 ; LDA KEYA1L ;key data set AND #00F80H ; STA >MSG_RAM+6 ; "Ａ" or "＋字"キーＯＮ ? LDA KEYA2L ; AND #00F80H ; STA >MSG_RAM+8 ; ; MSG_CALL_050 EQU $ M_CHIP MSG_CORE ; M8 ; PLA STA CIPSCR PLA STA CIPSCB ; LDA !MSOUND3 BEQ MSG_CALL_060 JSL >SOUND_3_ON ; MSG_CALL_060 EQU $ INC MSGTRF ;massage bitmap transfer "ON" ; JSR NXTMARK ; RTS ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ キー入力待ち カーソル点滅 + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ NXTMARK EQU $ PHB LDA #BANK VRAMD PHA PLB MI16 ; memory , index 16bit mode ; LDX !VRAMD ; LDA MSG_RAM+5 AND #000FFH CMP #0000FH ; データ終了でのキー入力待ち ? BEQ NXTMARK_050 ; YES -> NXTMARK_050 CMP #00051H ; カーソル上下選択 BEQ NXTMARK_050 ; YES -> NXTMARK_050 CMP #000FFH ; データ終了 ? BEQ NXTMARK_050 ; YES -> NXTMARK_050 LDA >MSG_RAM CMP #002 BCS NXTMARK_050 LDA GMPLAY2 ;game play ( display ) ; BOSCLR_SCRE_90 EQU $ PLB RTL ; ; BOSCLR_SCRE_ADR EQU $ WORD BSCR_SCRE_000 ;ＷＡＩＴタイマー イニシャルセット WORD BSCR_SCRE_100 ;ＷＡＩＴタイマー WORD BSCR_SCRE_200 ;ウィンドゥスタート!! WORD BSCR_SCRE_300 ;ウィンドゥ ＣＬＯＵＳＥ BOSCLR_SCRE_GM WORD GMGOAL_B1CLS ;画面クリアー BG1 WORD GMGOAL_B3CLS ;画面クリアー BG3 WORD GMGOAL_CLI0 ;精算画面初期セット−１ WORD GMGOAL_CLI1 ; ” −２ WORD GMGOAL_CLI2 ; ” −３ WORD BSCR_SCRE_100 ;ＷＡＩＴタイマー BOSCLR_SCRE_CHK WORD BSCR_SCRE_400 ;ウィンドゥスタート!! ; BS_SRE_CHK EQU (BOSCLR_SCRE_CHK-BOSCLR_SCRE_ADR) BS_SRE_GM EQU (BOSCLR_SCRE_GM-BOSCLR_SCRE_ADR) ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ ＷＡＩＴタイマー イニシャルセット + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ BSCR_SCRE_000 EQU $ MI16 ; memory , index 16bit mode LDA !DSPMOD CMP #00009 ; モード７ ? BEQ BSCR_SCRE_010 ; YES -> BSCR_SCRE_010 ; LDA >DATACOL ;ヌキカラー入れ替え STA NUKCOL LDA #00 STA >DATACOL ; GMGOAL_000 EQU $ ; ゴールデモ コール用 MI16 ; memory , index 16bit mode BSCR_SCRE_010 EQU $ LDX #00000H LDA #0FF00H BSCR_SCRE_050 EQU $ STA >WINDBF,X INX INX INX INX CPX #000D2H*4 BCC BSCR_SCRE_050 MI8 ; memory , index 8bit mode ; ;;;; JSL >M_DMA_BFST ;;;; LWORD WINDBUF ;転送先アドレス ;;;; LWORD WINDBF ;転送元アドレス ;;;; WORD (0D2H*4) ;転送バイト数 ; INC !GOAL_IN INC !GOAL_IN STZ !BSCLR_WITIM RTS ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ ＷＡＩＴタイマー + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ BSCR_SCRE_1_DT0 EQU $ WORD 01F1FH,00104H ; BSCR_SCRE_1_DT1 EQU $ WORD 00000H,0018CH ; BSCR_SCRE_1_DT2 EQU $ WORD 00350H,0018CH ; BSCR_SCRE_1_DT3 EQU $ WORD 0FF00H,09F60H ; ; BSCR_SCRE_100 EQU $ INC !BSCLR_WITIM LDA !BSCLR_WITIM CMP #010 BCC BSCR_SCRE_150 ; INC !GOAL_IN INC !GOAL_IN M16 ; memory 16bit mode STZ !BSCLR_WITIM LDX !GMFADE_MK LDA BSCR_SCRE_1_DT0,X STA !WMANSL LDA BSCR_SCRE_1_DT1,X STA !BSCLR_WDYSTT LDA BSCR_SCRE_1_DT2,X STA !BSCLR_WDYEND LDA BSCR_SCRE_1_DT3,X STA !BSCLR_WDSIZE M8 ; memory 8bit mode LDA #033H STA !WIND23 STA !WIND24 STA !WIND25 LDA #022H STA !WIND30 LDA #020H STA !HD420C RTS ; BSCR_SCRE_150 EQU $ DEC A BNE BSCR_SCRE_160 ; JSL >M_DMA_BFST LWORD WINDBUF ;転送先アドレス LWORD WINDBF ;転送元アドレス WORD 0D2H ;転送バイト数 RTS ; BSCR_SCRE_160 EQU $ DEC A BNE BSCR_SCRE_170 ; JSL >M_DMA_BFST LWORD WINDBUF+0D2H ;転送先アドレス LWORD WINDBF+0D2H ;転送元アドレス WORD 0D2H ;転送バイト数 RTS ; BSCR_SCRE_170 EQU $ DEC A BNE BSCR_SCRE_180 ; JSL >M_DMA_BFST LWORD WINDBUF+0D2H*2 ;転送先アドレス LWORD WINDBF+0D2H*2 ;転送元アドレス WORD 0D2H ;転送バイト数 RTS ; BSCR_SCRE_180 EQU $ DEC A BNE BSCR_SCRE_190 ; JSL >M_DMA_BFST LWORD WINDBUF+0D2H*3 ;転送先アドレス LWORD WINDBF+0D2H*3 ;転送元アドレス WORD 0D2H ;転送バイト数 ; BSCR_SCRE_190 EQU $ RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ ウィンドゥスタート!! + ;+ (画面消去) + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ BSCR_SCRE_200 EQU $ JSR BSCR_WND_ST M16 ; memory 16bit mode LDA !BSCLR_WDYEND SEC SBC !BSCLR_WDYSTT CMP #00008H BCS BSCR_SCRE_290 INC !GMFADE_MK INC !GMFADE_MK INC !GOAL_IN INC !GOAL_IN JSL >ENRAMCLR JSL >OAMDXCLR M8 ; memory 8bit mode LDA #020H STA !HD420C BSCR_SCRE_290 EQU $ M8 ; memory 8bit mode RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ ウィンドゥ データ セット + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ BSCR_WND_DAT0 EQU $ WORD 00002H*4,0FFFEH*4 ; BSCR_WND_DAT1 EQU $ WORD 00002H,0FFFEH ; ; BSCR_WND_ST EQU $ MI16 ; memory , index 16bit mode LDA !GMFADE_MK AND #00002 TAY LDX #000H LDA #000FFH BSCR_WND_ST_10 EQU $ CPX !BSCLR_WDYSTT BCS BSCR_WND_ST_20 STA >WINDBF,X INX INX INX INX BRA BSCR_WND_ST_10 ; BSCR_WND_ST_20 EQU $ LDA !BSCLR_WDSIZE BSCR_WND_ST_25 EQU $ CPX !BSCLR_WDYEND BCS BSCR_WND_ST_30 STA >WINDBF,X INX INX INX INX BRA BSCR_WND_ST_25 ; BSCR_WND_ST_30 EQU $ LDA #000FFH BSCR_WND_ST_35 EQU $ CPX #000D2H*4 BCS BSCR_WND_ST_40 STA >WINDBF,X INX INX INX INX BRA BSCR_WND_ST_35 ; BSCR_WND_ST_40 EQU $ LDA #0FF00H BSCR_WND_ST_45 EQU $ CPX #000D2H*4 BCS BSCR_WND_ST_50 STA >WINDBF,X INX INX INX INX BRA BSCR_WND_ST_45 ; BSCR_WND_ST_50 EQU $ LDA !BSCLR_WDYSTT CLC ADC BSCR_WND_DAT0,Y STA !BSCLR_WDYSTT LDA !BSCLR_WDYEND SEC SBC BSCR_WND_DAT0,Y STA !BSCLR_WDYEND ; MI8 ; memory , index 8bit mode LDA !BSCLR_WDSIZE CLC ADC BSCR_WND_DAT1,Y STA !BSCLR_WDSIZE LDA !BSCLR_WDSIZE+1 SEC SBC BSCR_WND_DAT1,Y STA !BSCLR_WDSIZE+1 ; JSL >M_DMA_BFST LWORD WINDBUF ;転送先アドレス LWORD WINDBF ;転送元アドレス WORD (0D2H*4) ;転送バイト数 ; LDA !HD420C ORA #020H STA !HD420C ; RTS ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ ウィンドゥ ＣＬＯＵＳＥ + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ BSCR_SCRE_300 EQU $ MI16 ; memory , index 16bit mode LDX #00000H LDA #000FFH BSCR_SCRE_350 EQU $ STA >WINDBF,X INX INX INX INX CPX #000D2H*4 BCC BSCR_SCRE_350 MI8 ; memory , index 8bit mode ; JSL >M_DMA_BFST LWORD WINDBUF ;転送先アドレス LWORD WINDBF ;転送元アドレス WORD (0D2H*4) ;転送バイト数 ; LDA #009 STA !BGMODE LDA #069H STA !BG1SCF LDA #034H STA !BG3SCF LDA #002H STA !NMITYP LDA #020H STA !SUBADF M16 ; memory 16bit mode STZ !BG2SPFV STZ !BG2SPF STZ !BG2OF_FG LDA #00277H STA !BG12CH STZ BGCIN_STCHK_DAT,X STA BGCIN_STCHK_ADR,X STA VRAMCL JSL >URAMCLR LDA #HF_MSG STA >MSG_NO JSR AGAIN_INIT ; JMP >MODINC ; IF NES | PAL ;**** NES or PAL 対応 [1995/7/25] ***************** HALF_MSG_DAT EQU $ WORD 3400H,4000H+(800H-1) WORD 02A6EH WORD 03485H,00008H*2-1 WORD 02A00H,02A02H,02A04H,02A06H WORD 02A08H,02A0AH,02A0CH,02A0EH WORD 034A5H,00008H*2-1 WORD 02A20H,02A22H,02A24H,02A26H WORD 02A28H,02A2AH,02A2CH,02A2EH WORD 034C5H,00008H*2-1 WORD 02A40H,02A42H,02A44H,02A46H WORD 02A48H,02A4AH,02A4CH,02A4EH WORD 034E5H,00008H*2-1 WORD 02A60H,02A62H,02A64H,02A66H WORD 02A68H,02A6AH,02A6CH,02A6EH WORD 0FFFFH ENDIF ;**** NES or PAL 対応 [1995/7/25] ********************** ; IF JPN ;**** 日本 対応 [1995/6/30] **************************** HALF_MSG_DAT EQU $ WORD 3400H,4000H+(800H-1) WORD 02A2EH WORD 03485H,00008H*2-1 WORD 02A00H,02A02H,02A04H,02A06H WORD 02A08H,02A0AH,02A0CH,02A0EH WORD 034A5H,00008H*2-1 WORD 02A20H,02A22H,02A24H,02A26H WORD 02A28H,02A2AH,02A2CH,02A2EH WORD 034C5H,00008H*2-1 WORD 02A40H,02A42H,02A44H,02A46H WORD 02A48H,02A4AH,02A4CH,02A4EH WORD 034E5H,00008H*2-1 WORD 02A60H,02A62H,02A64H,02A66H WORD 02A68H,02A6AH,02A6CH,02A6EH WORD 0FFFFH ENDIF ;**** 日本 対応 [1995/6/30] **************************** ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ 再スタートセレクト イニシャル セット + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ AGAIN_INIT EQU $ JSL >ENRAMCLR ; enemy RAM clear JSL >OAMDXCLR ; OAM clear ; ;--------------- ＰＰＵレジスタ セット -------------------------- LDX GMMDNOD JSL >GMMDST ; ;--------------- カラー セット ---------------------------------- LDX #BANK DATACOL PHX PLB M16 ; memory 16bit mode ; LDX #080H-2 HALF_INIT_100 EQU $ STZ !DATACOL+000H,X STZ !DATACOL+080H,X STZ !DATACOL+100H,X STZ !DATACOL+180H,X DEX DEX BPL HALF_INIT_100 ; LDA #07FFFH STA !DATACOL+016H ; M8 ; memory 8bit mode PHK PLB LDA #HF_DT STA !VRFLG JSL >VMADSPL ; JSR HALF_SET ; ;-------------- NMI-IRQ "ON" ------------------------------------ LDA #002H ;IRQ counter set STA IRQFLG LDA #050H ;H counter set STA 4207H LDA #0D8H ;V counter set LDA #10110001B ;timer IRQ "ON" STA 4200H RTS ; ; ;**************************************************************** ;* * ;* 中間ポイント 再スタートセレクト * ;* * ;**************************************************************** HALF_SLCT EQU $ LDA #HF_MSG STA >MSG_NO JSR HALF_SET ; LDA !KEYC2L AND #080H ORA !KEYC2 AND #090H BNE HALF_SLCT_240 JMP HALF_SLCT_900 HALF_SLCT_240 EQU $ LDA !KEYC2L AND #080H BNE HALF_SLCT_250 LDA >MSG_ANS TAX LDA AGAIN_SOUND,X STA NXGOTOBF+1 ;プレーヤー 出現位置 M8 ; memory 8bit mode LDA HFSTTUS+0,Y STA >NXGOTOBF+0 ;コースデータ テーブルＮｏ. LDA HFSTTUS+3,Y STA >NXGOTOBF+3 ;プレーヤーの状態 I8 ; index 8bit mode PLB ; HALF_SLCT_900 EQU $ PLB RTL ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ 中間ポイント メッセージ セット + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++ HALF_SET EQU $ JSR MSG_CALL LDA >MSG_ANS TAX ; MI16 ; memory , index 16bit mode LDA #00000H STA >VRAMD DEC A STA >VRAMD+2 MI8 ; memory , index 8bit mode RTS ; ; ;**************************************************************** ;* * ;* 今のコースの 再スタートセレクト イニシャル セット * ;* * ;**************************************************************** COS_AGAIN_INT EQU $ JSL >VRAMCL JSL >URAMCLR LDA #AGN_MSG STA >MSG_NO JSR AGAIN_INIT ; JMP >MODINC ; ; ;**************************************************************** ;* * ;* 今のコースの 再スタートセレクト セット * ;* * ;**************************************************************** AGAIN_SOUND EQU $ HEX 043H,02EH ; ; CORS_AGAIN EQU $ LDA #AGN_MSG STA >MSG_NO JSR HALF_SET ; AGAIN_200 EQU $ LDA !KEYC2L AND #080H ORA !KEYC2 AND #090H BEQ AGAIN_900 LDA !KEYC2L AND #080H BNE AGAIN_250 LDA >MSG_ANS TAX LDA AGAIN_SOUND,X STA MSG_ANS TAX LDA HALF_SLCT_DAT,X STA !MODENO DEX ; マップにもどるのか ? BMI AGN_WT_ST_500 ; NO -> AGN_WT_ST_500 LDA !MAPOINT CMP #INT_STAT ; イニシャル スタート デモ ? BNE AGN_WT_ST_500 ; NO -> AGN_WT_ST_500 STZ !MAPOINT ; AGN_WT_ST_500 EQU $ ; ;-------------- ゲームサウンドフラグキャンセル ------------------ STZ GM_BGM_NO ;[♪] AGN_WT_ST_900 EQU $ PLB RTL ; ; ;************************************************************************ ;* * ;* ＢＧ２スクリーン初期セット * ;* * ;************************************************************************ ; ;------------------------------------------------------------------------ ;- ＢＧ２スクリーンデータテーブル - ;------------------------------------------------------------------------ BG2_SCR_TBL EQU $ ;[BG2TYP] WORD BG2_SCR_00-BG2_SCR_DATA ;[ 0] WORD BG2_SCR_01-BG2_SCR_DATA ;[ 1] WORD BG2_SCR_02-BG2_SCR_DATA ;[ 2] WORD BG2_SCR_03-BG2_SCR_DATA ;[ 3] WORD BG2_SCR_04-BG2_SCR_DATA ;[ 4] WORD BG2_SCR_05-BG2_SCR_DATA ;[ 5] WORD BG2_SCR_06-BG2_SCR_DATA ;[ 6] WORD BG2_SCR_07-BG2_SCR_DATA ;[ 7] WORD BG2_SCR_08-BG2_SCR_DATA ;[ 8] WORD BG2_SCR_09-BG2_SCR_DATA ;[ 9] WORD BG2_SCR_0A-BG2_SCR_DATA ;[ A] WORD BG2_SCR_0B-BG2_SCR_DATA ;[ B] WORD BG2_SCR_0C-BG2_SCR_DATA ;[ C] WORD BG2_SCR_0D-BG2_SCR_DATA ;[ D] WORD BG2_SCR_0E-BG2_SCR_DATA ;[ E] WORD BG2_SCR_0F-BG2_SCR_DATA ;[ F] WORD BG2_SCR_10-BG2_SCR_DATA ;[10] WORD BG2_SCR_11-BG2_SCR_DATA ;[11] WORD BG2_SCR_12-BG2_SCR_DATA ;[12] WORD BG2_SCR_13-BG2_SCR_DATA ;[13] WORD BG2_SCR_14-BG2_SCR_DATA ;[14] WORD BG2_SCR_15-BG2_SCR_DATA ;[15] WORD BG2_SCR_16-BG2_SCR_DATA ;[16] WORD BG2_SCR_17-BG2_SCR_DATA ;[17] WORD BG2_SCR_18-BG2_SCR_DATA ;[18] WORD BG2_SCR_19-BG2_SCR_DATA ;[19] WORD BG2_SCR_1A-BG2_SCR_DATA ;[1A] WORD BG2_SCR_1B-BG2_SCR_DATA ;[1B] WORD BG2_SCR_1C-BG2_SCR_DATA ;[1C] WORD BG2_SCR_1D-BG2_SCR_DATA ;[1D] WORD BG2_SCR_1E-BG2_SCR_DATA ;[1E] WORD BG2_SCR_1F-BG2_SCR_DATA ;[1F] ; ;------------------------------------------------------------------------ ;- ＢＧ２背景スクリーンデータ - ;------------------------------------------------------------------------ BG2_SCR_DATA EQU $ ; ;---------------------------------------------------------------- ;- 地下滝 - ;---------------------------------------------------------------- BG2_SCR_00 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2CHIKA ; ;---------------------------------------------------------------- ;- 月 - ;---------------------------------------------------------------- BG2_SCR_01 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2HATITUKI ; ;;;;K;;;; HEX 001H ; 部分スクロール ;;;;K;;;; HEX 000H ;;;;K;;;;; ;;;;K;;;; WORD BG2_SCR_01_0 ;;;;K;;;;; ;;;;K;;;;BG2_SCR_01_0 EQU $ ;;;;K;;;; BYTE 000H ;;;;K;;;; WORD 00080H ;;;;K;;;; WORD 00100H*2+(10H*1CH)+7 ;;;;K;;;; BYTE 000H ;;;;K;;;; WORD 00140H ;;;;K;;;; WORD 00100H*8 ;end line ; ;---------------------------------------------------------------- ;- 水中 - ;---------------------------------------------------------------- BG2_SCR_02 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2MIZU ; ;---------------------------------------------------------------- ;- 溶岩 - ;---------------------------------------------------------------- BG2_SCR_03 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2NAMI ; ;---------------------------------------------------------------- ;- 雪 - ;---------------------------------------------------------------- BG2_SCR_04 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2YAMA ; ;---------------------------------------------------------------- ;- ＲＥＤ ＷＯＯＤＳ - ;---------------------------------------------------------------- BG2_SCR_05 EQU $ HEX 4 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2RDWOD ; HEX 001H ; 部分スクロール HEX 000H ; WORD BG2_SCR_05_0 ; BG2_SCR_05_0 EQU $ BYTE 000H WORD 000B0H WORD 00100H*2+(10H*0FH)+7 BYTE 000H WORD 000A0H WORD 00100H*2+(10H*10H)+7 BYTE 000H WORD 00090H WORD 00100H*2+(10H*11H)+7 BYTE 000H WORD 00080H WORD 00100H*2+(10H*12H)+7 BYTE 000H WORD 00070H WORD 00100H*2+(10H*13H)+7 BYTE 000H WORD 00060H WORD 00100H*2+(10H*14H)+7 BYTE 000H WORD 00050H WORD 00100H*2+(10H*15H)+7 BYTE 000H WORD 00040H WORD 00100H*2+(10H*16H)+7 BYTE 000H WORD 000C0H WORD 00100H*8 ;end line ; ;---------------------------------------------------------------- ;- カベ - ;---------------------------------------------------------------- BG2_SCR_06 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2KABE ; ;---------------------------------------------------------------- ;- パステル（雲無し） - ;---------------------------------------------------------------- BG2_SCR_07 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2PAST2 ; ;---------------------------------------------------------------- ;- 森 - ;---------------------------------------------------------------- BG2_SCR_08 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2MORI ; ;---------------------------------------------------------------- ;- パステル（雲付き） - ;---------------------------------------------------------------- BG2_SCR_09 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2ENKIN2 ; ;---------------------------------------------------------------- ;- ハチ滝 - ;---------------------------------------------------------------- BG2_SCR_0A EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2HTTAKI ; ;---------------------------------------------------------------- ;- ワンワンドスン - ;---------------------------------------------------------------- BG2_SCR_0B EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2YUKA ; ;---------------------------------------------------------------- ;- ジャングル - ;---------------------------------------------------------------- BG2_SCR_0C EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2JUNGLE ; ;---------------------------------------------------------------- ;- スター - ;---------------------------------------------------------------- BG2_SCR_0D EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2STAR ; ;---------------------------------------------------------------- ;- グルグル - ;---------------------------------------------------------------- BG2_SCR_0E EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2GULGUL ; ;---------------------------------------------------------------- ;- フジ山 - ;---------------------------------------------------------------- BG2_SCR_0F EQU $ HEX 4 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2FUJI ; HEX 001H ; 部分スクロール HEX 000H ; WORD BG2_SCR_0F_0 ; BG2_SCR_0F_0 EQU $ BYTE 000H WORD 00028H WORD 00100H*0+(10H*19H)+7 BYTE 000H WORD 00016H WORD 00100H*0+(10H*1BH)+7 BYTE 000H WORD 00028H WORD 00100H*0+(10H*1DH)+7 BYTE 000H WORD 00016H WORD 00100H*0+(10H*1FH)+7 BYTE 000H WORD 00028H WORD 00100H*2+(10H*01H)+7 BYTE 000H WORD 00016H WORD 00100H*2+(10H*03H)+7 BYTE 000H WORD 00028H WORD 00100H*2+(10H*05H)+7 BYTE 000H WORD 00028H WORD 00100H*2+(10H*07H)+7 BYTE 000H WORD 00040H WORD 00100H*2+(10H*0BH)+7 BYTE 000H WORD 00080H WORD 00100H*4 ;end line ; ;---------------------------------------------------------------- ;- 遠近両用の遠景 - ;---------------------------------------------------------------- BG2_SCR_10 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2ENKIN2 ; ;---------------------------------------------------------------- ;- - ;---------------------------------------------------------------- BG2_SCR_11 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2FUJI ; ;---------------------------------------------------------------- ;- 空 - ;---------------------------------------------------------------- BG2_SCR_12 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2SORA ; ;---------------------------------------------------------------- ;- 地下いわ - ;---------------------------------------------------------------- BG2_SCR_13 EQU $ ;;;;K;;;; HEX 4 ;ＢＧ２ループ背景スクリーンタイプ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2IWA ; BYTE 001H ; 部分スクロール BYTE 001H*2+000H WORD 00100H*2+(10H*0CH)+7 BYTE 002H*2+000H WORD 00100H*3+(10H*05H)+7 BYTE 001H*2+000H WORD 00100H*4 ;end line ; ;---------------------------------------------------------------- ;- 万次郎 - ;---------------------------------------------------------------- BG2_SCR_14 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2WODKB ; ;---------------------------------------------------------------- ;- 岩山 - ;---------------------------------------------------------------- BG2_SCR_15 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2IWAYAM ; ;---------------------------------------------------------------- ;- ＢＧ２敵 - ;---------------------------------------------------------------- BG2_SCR_16 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2TEKI ; ;---------------------------------------------------------------- ;- - ;---------------------------------------------------------------- BG2_SCR_17 EQU $ ; ;---------------------------------------------------------------- ;- ＮＩＧＨＴ - ;---------------------------------------------------------------- BG2_SCR_18 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2NIGHT ; ;---------------------------------------------------------------- ;- ハチ城 - ;---------------------------------------------------------------- BG2_SCR_19 EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2SHIRO ; ;---------------------------------------------------------------- ;- 岩山２ - ;---------------------------------------------------------------- BG2_SCR_1A EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2IWA2 ; ;---------------------------------------------------------------- ;- 黒ベタ - ;---------------------------------------------------------------- BG2_SCR_1B EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2BETA ; ;---------------------------------------------------------------- ;- ハチパステル - ;---------------------------------------------------------------- BG2_SCR_1C EQU $ HEX 4 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2HCHPSTL ; BYTE 000H ;ラスター＆部分スクロール フラグ BYTE 000H ;縦ラスタースクロール フラグ ; ;;;;K;;;; WORD BG2_SCR_1C_0 ;ラスター＆部分スクロール データアドレス ;;;;K;;;; WORD BG2_SCR_1C_1 ; ;;;;K;;;;BG2_SCR_1C_0 EQU $ ;部分スクロール データ ;;;;K;;;; BYTE 000H ;ラスター＆部分スクロール 切り換えフラグ ;;;;K;;;; WORD 00080H ;;;;K;;;; WORD 00100H*6+(10H*01H)+7 ;;;;K;;;; BYTE 000H ;;;;K;;;; WORD 00033H ;;;;K;;;; WORD 00100H*6+(10H*05H)+7 ;;;;K;;;; BYTE 000H ;;;;K;;;; WORD 00099H ;;;;K;;;; WORD 00100H*6+(10H*07H)+7 ;;;;K;;;; BYTE 000H ;;;;K;;;; WORD 0004CH ;;;;K;;;; WORD 00100H*6+(10H*0BH)+7 ;;;;K;;;; BYTE 000H ;;;;K;;;; WORD 000B3H ;;;;K;;;; WORD 00100H*6+(10H*0DH)+7 ;;;;K;;;; BYTE 000H ;;;;K;;;; WORD 00066H ;;;;K;;;; WORD 00100H*6+(10H*10H)+7 ;;;;K;;;; BYTE 000H ;;;;K;;;; WORD 000CCH ;;;;K;;;; WORD 00100H*6+(10H*11H)+7 ;;;;K;;;; BYTE 000H ;;;;K;;;; WORD 00080H ;;;;K;;;; WORD 00100H*6+(10H*14H)+7 ;;;;K;;;; BYTE 000H ;;;;K;;;; WORD 000E6H ;;;;K;;;; WORD 00100H*6+(10H*15H)+7 ;;;;K;;;; BYTE 000H ;;;;K;;;; WORD 00099H ;;;;K;;;; WORD 00100H*6+(10H*18H)+7 ;;;;K;;;; BYTE 000H ;;;;K;;;; WORD 00180H ;;;;K;;;; WORD 00100H*8 ;end line ; ;;;;K;;;;BG2_SCR_1C_1 EQU $ ; 縦ラスタースクロール ;;;;K;;;; HEX 008H ; スピード ;;;;K;;;; HEX 080H ; 最小値 ;;;;K;;;; WORD 00716H ; スタート ライン ;;;;K;;;; WORD 00780H ; エンド ライン ;;;;K;;;; WORD 0FFFFH ; end code ; ;---------------------------------------------------------------- ;- たこやき山 - ;---------------------------------------------------------------- BG2_SCR_1D EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2TAKOYAKI ; ;---------------------------------------------------------------- ;- 杉林 - ;---------------------------------------------------------------- BG2_SCR_1E EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2SUGI ; ;---------------------------------------------------------------- ;- クッパの部屋 - ;---------------------------------------------------------------- BG2_SCR_1F EQU $ HEX 0 ;ＢＧ２ループ背景スクリーンタイプ BYTE B2KOPROM ;------------------------------------------------------------------------ ;- ＢＧ２書き換え背景スクリーンバッファポインター - ;------------------------------------------------------------------------ BG2_SCR_BFP EQU $ WORD BG2_SCRBUF+1800H WORD BG2_SCRBUF+1000H WORD BG2_SCRBUF+0800H WORD BG2_SCRBUF ; BG2_SCR_INIT EQU $ LDA !DSPMOD CMP #00AH BNE BG2_SCR_INT_PAS JMP DBL_TELE_SCR ; BG2_SCR_INT_PAS EQU $ STZ !BG2SPF STZ !BG2SPFV STZ !BG2SPH_CT STZ !BG2SPV_CT ; MI16 ; memory , index 16bit mode ; LDA BG2TYP ASL A TAX LDY !BG2_SCR_TBL,X LDA !BG2_SCR_DATA,Y AND #00FFH TAX JMP (!BG2_SCR_TYPE,X) ; MEM8 IDX8 ; ;------------------------------------------------------------------------ ;- ＢＧ２スクリーンタイプテーブル - ;------------------------------------------------------------------------ BG2_SCR_TYPE EQU $ WORD BG2_SCR_TYPE_0 ;[0] ＢＧ２ループ背景スクリーン WORD 00000H ; ダミー WORD BG2_SCR_TYPE_2 ;[2] ＢＧ２ループ背景＆特殊スクロール ; ;------------------------------------------------------------------------ ;- ＢＧ２ループ背景＆特殊スクロール - ;------------------------------------------------------------------------ MEM16 IDX16 BG2_SCR_TYPE_2 EQU $ M8 ; memory 8bit mode LDA #0FH ;ＨＤＭＡ STA 4341H ; Ｂバスアドレス変更 ; LDA BG2_SCR_DATA+2,Y STA !BG2SPF M16 ; memory 16bit mode LDA BG2_SCR_DATA+4,Y STA !BG2SPF_ADR ; ;------------------------------------------------------------------------ ;- ＢＧ２ループ背景スクリーンセット - ;------------------------------------------------------------------------ ; MEM16 IDX16 ; BG2_SCR_TYPE_0 EQU $ LDA !BG2_SCR_DATA+1,Y ;(A) <-- 圧縮データＮｏ． AND #00FFH LDX #WOB7CHR ;(X) <-- 解凍先アドレス JSL >UNCOMPRES ; STA 4305H ;number of byte set ; I8 ; LDX #10000000B ;inc mode set STX 2115H LDA #3800H ;VRAM address set STA 2116H LDA #00000001B+(18H*100H) ;parameter & A bus address set STA 4300H LDA #WOB7CHR ;(A) bus address(L,H) STA 4302H LDX #BANK WOB7CHR ; " (B) STX 4304H LDX #00000001B STX 420BH ;DMA "ON" ; ;;;;K;;;; LDA !BG2TYP ;;;;K;;;; CMP #0001FH ; クッパの部屋 ? ;;;;K;;;; BNE NO_KUPPA ; NO -> NO_KUPPA ;;;;K;;;; LDX #000 ;;;;K;;;;SET_KUPPA EQU $ ;;;;K;;;; LDA >COL_ADDRESS+KOPPA_OBJ_COL,X ;;;;K;;;; STA >DATACOL+(10H*2*8)+(10H*2*6)+2,X ;;;;K;;;; INX ;;;;K;;;; INX ;;;;K;;;; CPX #020H-2 ;;;;K;;;; BCC SET_KUPPA ;;;;K;;;;NO_KUPPA EQU $ M8 ; LDA !DSPMOD CMP #003 ; モード２ ? BNE PPPAAASSS ; NO -> PPPAAASSS JSR FRHDMA_SET PPPAAASSS EQU $ RTS ; ;------------------------------------------------------------------------ ;- ダブルテレサ用スクリーンセット - ;------------------------------------------------------------------------ DBL_TELE_SCR EQU $ MI16 ; memory , index 16bit mode LDA #B3SHIRO ;(A) <-- 圧縮データＮｏ． AND #000FFH LDX #WOB7CHR ;(X) <-- 解凍先アドレス JSL >UNCOMPRES ; STA 4305H ;number of byte set ; I8 ; index 8bit mode ; LDX #10000000B STX 2115H ;inc mode set LDA #3800H STA 2116H ;VRAM address set LDA #00000001B+(18H*100H) STA 4300H ;parameter & A bus address set LDA #WOB7CHR STA 4302H ;(A) bus address(L,H) LDX #BANK WOB7CHR STX 4304H ; " (B) LDX #00000001B STX 420BH ;DMA "ON" ; M8 ; memory 8bit mode RTS ; ; ;------------------------------------------------------------------------ ;- よっぱらい ＨＤＭＡ セット - ;------------------------------------------------------------------------ FRHDMA_prmtr0 EQU $ ;ラスタースクロール BYTE 000H WORD 00080H WORD 00100H*8 BYTE 002H ;周期 ; FRHDMA_prmtr1 EQU $ ;縦ラスタースクロール HEX 001H ; ラスター ＯＮ WORD 00100H*8 ;end line HEX 0FFH ; end code ; ; FRHDMA_SET EQU $ LDA #0FH ;Ｂバスアドレス変更 STA 4341H ; LDA #010H ; STA 4331H ; ; ;;;;K;;;; INC !BG2SPF ;;;;K;;;; INC !BG2SPF ;;;;K;;;; INC !BG2SPFV STZ !BG2SPF STZ !BG2SPFV ; M16 ; memory 16bit mode LDA #FRHDMA_prmtr0 STA !BG2SPF_ADR LDA #FRHDMA_prmtr1 STA !BG2SPFV_ADR M8 ; memory 8bit mode RTS ; ;************************************************************************ ;* * ;* ＢＧ３スクリーン初期セット * ;* * ;************************************************************************ ; ;------------------------------------------------------------------------ ;- ＢＧ３スクリーンクリアーデータ - ;------------------------------------------------------------------------ BG3SCRCLR EQU $ WORD 3400H,4000H+(800H-1) WORD 01CEH WORD 0FFFFH ; ;------------------------------------------------------------------------ ;- ＢＧ３スクリーンクリアーデータ（ＢＧ３ワンワン） - ;------------------------------------------------------------------------ BG3WANCLR EQU $ WORD 3400H,4000H+(800H-1) WORD 0111H WORD 0FFFFH ; ;------------------------------------------------------------------------ ;- ＢＧ３スクリーンクリアーデータ（ＢＧ３水上アスレチック）- ;------------------------------------------------------------------------ BG3WTRCLR EQU $ WORD 3400H,4000H+(800H-1) WORD 01CEH WORD 0FFFFH ; ;------------------------------------------------------------------------ ;- ＢＧ３スクリーンデータテーブル - ;------------------------------------------------------------------------ BG3_SCR_TBL EQU $-3 ;[BG3TYP] WORD B3MIZU BYTE BG3_SP_SCR_00-BG3_SP_SCR_DATA ;[ 1:水中（部分スクロール）] WORD B3TEKI0 BYTE 0FFH ;[ 2:ＢＧ３敵（カベ、オバケｅｔｃ）] WORD B3PAST1 BYTE 0 ;[ 3:パステル] WORD B3PAST1 BYTE 0 ;[ 4: ” ２] WORD B3TEKI1 BYTE 0FFH ;[ 5:ＢＧ３敵（横回転ポリゴン）] WORD B3TEKI2 BYTE 0FFH ;[ 6: ” （ボルト）] WORD B3TEKI3 BYTE 0FFH ;[ 7:竜巻] WORD B3TEKI7 BYTE 0FFH ;[ 8:砂嵐] WORD 00 BYTE 0 ;[ 9:バブル] WORD 00 BYTE 0 ;[ A:モグラ] WORD B3TEKI4 BYTE 0FFH ;[ B:eleveter test] WORD B3MORI BYTE 0 ;[ C:森] WORD B3KUMO BYTE 0 ;[ D:雪山] WORD B3JUNGLE BYTE BG3_SP_SCR_01-BG3_SP_SCR_DATA ;[ E:ジャングル] WORD B3FUJI BYTE BG3_SP_SCR_02-BG3_SP_SCR_DATA ;[ F:フジ山] WORD B3KUMO2 BYTE 0 ;[10:雲その２] WORD B3KMBOSS BYTE 0FFH ;[11:カメボス] WORD B3NIGHT BYTE 0 ;[12:ＮＩＧＨＴ] WORD B3KSMZ BYTE 080H+B3_SPL_NO_00 ;[13:水上アスレチック] WORD B3KNH BYTE BG3_SP_SCR_03-BG3_SP_SCR_DATA ;[14:木の葉] WORD B3CHIKA BYTE 0 ;[15:地下] WORD B3WANWAN BYTE 0 ;[16:ＢＧ３ワンワン] WORD B3KABE2 BYTE 0 ;[17:万次郎のカベ] WORD B3SHIRO BYTE 0 ;[18:ハチ城] WORD B3YUKI BYTE 0 ;[19:雪] WORD B3AHODR BYTE 0 ;[1A:阿呆鳥の群れ] WORD B3FLWR BYTE 0 ;[1B:ＦＬＯＷＥＲ] WORD bg3mask BYTE 0 ;[1C:マスクウィンドゥ] WORD B3KSMZ BYTE BG3_SP_SCR_04-BG3_SP_SCR_DATA ;[1D:水上アスレチック] WORD B3HATITUKI BYTE 080H+B3_SPL_NO_01 ;[1E:月] WORD B3MAGIC BYTE 0 ;[1F:カメックの魔法] WORD B3HCHPSTL BYTE 080H+B3_SPL_NO_02 ;[20:ハチパステル] WORD B3STOMACH BYTE 0 ;[21:胃壁] WORD B3HTTAKI BYTE 080H+B3_SPL_NO_03 ;[22:ハチ滝] WORD B3HTYUHI BYTE 080H+B3_SPL_NO_04 ;[23:ハチ夕日] WORD B3GOGH BYTE 080H+B3_SPL_NO_05 ;[24:ゴッホ星空] WORD B3BOSROM BYTE 0 ;[25:ボス部屋] WORD B3BOSFLSH BYTE 0 ;[26:ボスフラッシュ効果] WORD B3MORI2 BYTE 0 ;[27:森その２] WORD B3STAR BYTE 0 ;[28:スター] WORD B3NOGKUMO BYTE 0 ;[29:万次郎の雲] WORD B3HTTK_K BYTE 080H+B3_SPL_NO_06 ;[2A:固定月] WORD B3NOGKUMO2 BYTE 0 ;[2B:万次郎の雲その２] WORD B3KIRI BYTE 080H+B3_SPL_NO_07 ;[2C:霧] WORD B3KIRI BYTE 0 ;[2D:霧ラスターなし] WORD B3NOGKUMO3 BYTE 0 ;[2E:万次郎の雲その３] WORD B3FUJI2 BYTE 0 ;[2F:ハチフジ] WORD 00 BYTE 0 ;[30] WORD 00 BYTE 0 ;[31] WORD 00 BYTE 0 ;[32] WORD 00 BYTE 0 ;[33] WORD 00 BYTE 0 ;[34] WORD 00 BYTE 0 ;[35] WORD 00 BYTE 0 ;[36] WORD 00 BYTE 0 ;[37] ;;;;K;;;; WORD 00 ;;;;K;;;; BYTE 0 ;[38] ;;;;K;;;; WORD 00 ;;;;K;;;; BYTE 0 ;[39] ;;;;K;;;; WORD 00 ;;;;K;;;; BYTE 0 ;[3A] ;;;;K;;;; WORD 00 ;;;;K;;;; BYTE 0 ;[3B] ;;;;K;;;; WORD 00 ;;;;K;;;; BYTE 0 ;[3C] ;;;;K;;;; WORD 00 ;;;;K;;;; BYTE 0 ;[3D] ;;;;K;;;; WORD 00 ;;;;K;;;; BYTE 0 ;[3E] ;;;;K;;;; WORD 00 ;;;;K;;;; BYTE 0 ;[3F] ; ;------------------------------------------------------------------------ ;- ＢＧ３特殊スクリーンデータ - ;------------------------------------------------------------------------ BG3_SP_SCR_DATA EQU $-1 ; +---------------- number of block [ 01-40 ( 00:end code,+80H:constant mode ) ] ; | +-------- start V pos [ 00-1F ] ; | | +---- scrooll type [ 0:SCCH1 2:SCCH2 4:SCCH3 6:SCCH4 ] ; V V V BG3_SP_SCR_00 EQU $ ;水中 BYTE (ESCCV1-ESCCV1)+2 ;V scroll flag( BG1 ) BYTE 10H+00H,000H,004H BYTE 10H+00H,000H,004H BYTE 10H+00H,000H,004H BYTE 10H+00H,000H,004H BYTE 10H+00H,000H,004H BYTE 10H+00H,000H,004H BYTE 10H+00H,000H,004H BYTE 12H+00H,010H,000H HEX 00 ;end code ; BG3_SP_SCR_01 EQU $ ;ジャングル BYTE (ESCCV3-ESCCV1)+2 ;V scroll flag( BG3 ) BYTE 0AH+80H,000H,004H BYTE 0AH+00H,000H,004H BYTE 16H+00H,00AH,006H HEX 00 ;end code ; BG3_SP_SCR_02 EQU $ ;フジ山 BYTE (ESCCV3-ESCCV1)+2 ;V scroll flag( BG3 ) BYTE 0AH+80H,000H,004H BYTE 09H+00H,000H,004H BYTE 17H+00H,009H,006H HEX 00 ;end code ; BG3_SP_SCR_03 EQU $ ;木の葉 BYTE (ESCCV3-ESCCV1)+2 ;V scroll flag( BG3 ) BYTE 10H+80H,000H,004H BYTE 06H+00H,00DH,004H BYTE 0CH+00H,013H,006H HEX 00 ;end code ; BG3_SP_SCR_04 EQU $ ;水上アスレチック BYTE (ESCCV3-ESCCV1)+2 ;V scroll flag( BG3 ) BYTE 75H+80H,000H,004H BYTE 01H+80H,001H,004H BYTE 09H+80H,002H,004H HEX 00 ;end code ; ; MEM8 IDX8 ; BG3_SCR_INIT EQU $ LDY #B3CL ;(Y) <-- ＢＧ３スクリーンクリアーデータＮｏ． LDA BG3TYP BEQ BG3_SCR_INIT_11 ;ＢＧ３スクリーン無し？ ( yes:BG3_SCR_INIT_11 ) ; ;-------------- ＢＧ３スクリーンデータセット ---------------------------- ASL A ADC !BG3TYP TAY M16 ; memory 16bit mode LDA !BG3_SCR_TBL,Y BEQ BG3_SCR_INIT_12 ;スクリーンデータセット？ ( no:BG3_SCR_INIT_12 ) ; ;;;;K;;;; MI16 I16 ; index 16bit mode ; ;;;;K;;;; AND #00FFH ;(A) <-- 圧縮データＮｏ． LDX #WOB7CHR ;(X) <-- 解凍先アドレス PHY ;(Y) save JSL >UNCOMPRES PLY ;(Y) load ; LDX BG3TYP CPX #16H BNE BG3_SCR_INIT_13 ;ＢＧ３ワンワン？ ( no:BG3_SCR_INIT_13 ) ; ;-------------- ＢＧ３ワンワンスクリーンＳＡＶＥ ---------------- LDX #CHRSVBF ;to memory address set STX DMA_M_M ;DMA "ON" ; M8 ; LDY #WNCL ;(Y) <-- ＢＧ３スクリーンクリアーデータＮｏ． ; ;-------------- ＢＧ３スクリーンクリアー -------------------------------- BG3_SCR_INIT_11 EQU $ STY VRFLG JSL >VMADSPL BG3_SCR_INIT_12 EQU $ M8 ; memory 8bit mode RTS ; MEM16 ; BG3_SCR_INIT_13 EQU $ ; I8 ; STA 4305H ;number of byte set STA DBL_TELE_PASS ; LDA BG3_SCR_INIT_14 TXA BPL BG3_SCR_INIT_16 ASL A CMP #BG3_SPECIAL BCS BG3_SCR_INIT_14 TAX JSR (BG3_SPL_ADR,X) BRA BG3_SCR_INIT_12 ; BG3_SCR_INIT_14 EQU $ LDA #00000100B ;ＢＧ３表示”ＯＦＦ” TRB MANSEL TRB SUBSEL RTS ; BG3_SCR_INIT_16 EQU $ LDA >BG3_SP_SCR_DATA,X STA BG3SPF ;BG3 spacial screen flag set !! ; PHB ;(DBR) save LDA #BANK BG3SCBF ;(DBR) set PHA PLB ; I16 ; LDY #00 ;(Y) <-- BG3 spacial screen buffer index STZ BG3_SP_SCR_DATA+1,X BEQ BG3_SCR_INIT_50 ;data end ? ( yes:BG3_SCR_INIT_50 ) ; STA BG3_SP_SCR_DATA+2,X AND #00FFH ASL A ASL A ASL A ASL A STA BG3_SP_SCR_DATA+3,X AND #00FFH STA VMADSPL ; PLA M16 ; memory 16bit mode AND #000FFH ASL A TAX ; LDA B3_WTRASL_ADR,X STA 2116H ;VRAM address set LDA #00800H SEC SBC B3_WTRASL_SUB,X STA 4305H ;number of byte set LDX #10000000B STX 2115H ;inc mode set LDA #00000001B+(18H*100H) STA 4300H ;DMA parameter & B bus address set LDX #BANK WOB7CHR STX 4304H ; " (B) set LDA #WOB7CHR STA 4302H ;A bus address(L,H) set LDX #00000001B STX 420BH ;DMA "ON" !! ; M8 ; memory 8bit mode RTS ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ ＢＧ３部分スクロール + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ BG3_SCR_DAT00 EQU $ ; 月 BYTE 000H WORD 00020H WORD 00100H*0+(10H*00H)+7 BYTE 000H WORD 00030H WORD 00100H*0+(10H*02H)+7 BYTE 000H WORD 00020H WORD 00100H*0+(10H*03H)+7 BYTE 000H WORD 0002EH WORD 00100H*0+(10H*05H)+7 BYTE 000H WORD 00020H WORD 00100H*0+(10H*06H)+7 BYTE 000H WORD 0002CH WORD 00100H*0+(10H*08H)+7 BYTE 000H WORD 00020H WORD 00100H*0+(10H*09H)+7 BYTE 000H WORD 0002AH WORD 00100H*0+(10H*0BH)+7 BYTE 000H WORD 00010H WORD 00100H*0+(10H*13H)+7 BYTE 000H WORD 00028H WORD 00100H*0+(10H*15H)+7 BYTE 000H WORD 00020H WORD 00100H*0+(10H*16H)+7 BYTE 000H WORD 00040H WORD 00100H*8 ;end line ; BG3_SCR_DAT01 EQU $ ;部分スクロール データ BYTE 000H WORD 0001AH WORD 00100H*6+(10H*01H)+7 BYTE 000H WORD 0002EH WORD 00100H*6+(10H*05H)+7 BYTE 000H WORD 00019H WORD 00100H*6+(10H*07H)+7 BYTE 000H WORD 0002CH WORD 00100H*6+(10H*0CH)+7 BYTE 000H WORD 00018H WORD 00100H*6+(10H*0DH)+7 BYTE 000H WORD 0002AH WORD 00100H*6+(10H*10H)+7 BYTE 000H WORD 00017H WORD 00100H*6+(10H*11H)+7 BYTE 000H WORD 00028H WORD 00100H*6+(10H*15H)+7 BYTE 000H WORD 00016H WORD 00100H*6+(10H*16H)+7 BYTE 000H WORD 000C0H WORD 00100H*6+(10H*1BH)+7 BYTE 000H WORD 00140H WORD 00100H*8 ;end line ; BG3_SCR_DAT02 EQU $ BYTE 000H WORD 00016H WORD 00100H*6+(10H*17H)+7 ; BYTE 002H+080H ; ラスタースクロール BYTE 000H WORD 00090H WORD 00100H*8 BYTE 0A0H ; 周期 ; BG3_SCR_DAT03 EQU $ BYTE 000H WORD 0002AH WORD 00100H*0+(10H*02H)+7 BYTE 000H WORD 0001AH WORD 00100H*0+(10H*05H)+7 BYTE 000H WORD 00028H WORD 00100H*0+(10H*08H)+7 BYTE 000H WORD 00018H WORD 00100H*0+(10H*0BH)+7 BYTE 000 WORD 00026H WORD 00100H*0+(10H*0EH)+7 BYTE 000H WORD 00016H WORD 00100H*0+(10H*10H)+7 BYTE 000H WORD 00012H WORD 00100H*0+(10H*12H)+7 ; BYTE 002H+080H ; ラスタースクロール BYTE 000H WORD 00010H WORD 00100H*0+(10H*16H)+7 BYTE 010H ; 周期 ; BYTE 080H BYTE 000H WORD 00020H WORD 00100H*0+(10H*18H)+7 BYTE 000H WORD 00030H WORD 00100H*8 ;end line ; BG3_SCR_DAT06 EQU $ ; 固定月 BYTE 000H WORD 00000H WORD 00100H*0+(10H*01H)+7 BYTE 000H WORD 00020H WORD 00100H*0+(10H*03H)+7 BYTE 000H WORD 00000H WORD 00100H*0+(10H*04H)+7 BYTE 000H WORD 00000H WORD 00100H*0+(10H*06H)+7 BYTE 000H WORD 0001CH WORD 00100H*0+(10H*09H)+7 BYTE 000H WORD 0001AH WORD 00100H*0+(10H*0CH)+7 BYTE 000H WORD 00000H WORD 00100H*0+(10H*0CH)+7 BYTE 000H WORD 00018H WORD 00100H*0+(10H*0EH)+7 BYTE 000H WORD 00000H WORD 00100H*0+(10H*16H)+7 BYTE 000H WORD 00040H WORD 00100H*8 ;end line ; BG3_SCR_DAT07 EQU $ ; 霧 BYTE 002H+080H ; ラスタースクロール BYTE 000H WORD 00100H WORD 00100H*8 BYTE 008H ; 周期 ; BG3_SCR_DAT_ADR EQU $-2 WORD BG3_SCR_DAT00,BG3_SCR_DAT01 WORD BG3_SCR_DAT02,BG3_SCR_DAT03 WORD 00000H ;dumy WORD BG3_SCR_DAT06,BG3_SCR_DAT07 ; ; MEM8 IDX8 POINT_SCRL30 EQU $ LDA #004 STA !BG3SPH_CT BRA POINT_SCRL00 ; POINT_SCRL10 EQU $ PHX LDX #DP_DT_00 JSR DISP_INIT_SET PLX ; POINT_SCRL00 EQU $ LDA #001H STA !BG3SPFH M16 ; memory 16bit mode LDA BG3_SCR_DAT_ADR,X STA !BG3SPFH_ADR ; MI8 ; memory , index 8bit mode RTS ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ 画面指定の制御 (イニシャル セット) + ;+ in + ;+ X : data read index + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DP_DATA_00 EQU $ HEX 011H,006H ; main , sub WORD 00100H*6+(10H*1BH)+7 HEX 015H,002H WORD 00100H*8 ; エンドライン ; DP_DATA_01 EQU $ HEX 022H,020H WORD 00100H*6+(10H*18H)+7 HEX 022H,062H WORD 00100H*8 ; エンドライン ; DP_DATA_02 EQU $ ; DP_INT_SCRL EQU $ BYTE SCCV3-SCCV1 BYTE SCCV3-SCCV1 ; DP_DT_00 EQU 00000 DP_DT_01 EQU DP_DT_00+1 DP_DT_02 EQU DP_DT_01+1 ; DP_INT_DAT EQU $ WORD DP_DATA_00,DP_DATA_01 ; HDMA_4341H_DAT EQU $ HEX 02CH,030H ; ; DISP_INIT_SET EQU $ LDA DP_INT_SCRL,X INC A STA !DSPCNTRLFG M16 ; memory 16bit mode TXA AND #000FFH TAY ASL A TAX LDA DP_INT_DAT,X STA !DISP_ADR M8 ; memory 8bit mode ; LDA #01000001B STA 4340H LDA HDMA_4341H_DAT,Y STA 4341H RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ ＢＧ３縦 ラスタースクロール イニシャル セット + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ BG3_V_rster_00 EQU $ ; 縦ラスタースクロール HEX 000H ; ラスター ＯＮ WORD 00100H*6+(10H*12H)+7+2 HEX 001H ; ラスター ＯＮ WORD 00100H*6+(10H*16H)+7-2 HEX 000H WORD 00100H*8 ;end line HEX 0FFH ; end code ; NUKI_GRDTN_DT00 EQU $ WORD 0000CH ; 元カラー WORD 0000CH ; 先カラー WORD 000E0H WORD 00019H WORD 0121FH WORD 00040H WORD 0121FH WORD 00019H WORD 00040H WORD 0000CH WORD 0000CH WORD 00050H WORD 0FFFFH ; end code ; NUKI_GRDTN_DT01 EQU $ WORD 05E2CH ; 元カラー WORD 05E2CH ; 先カラー WORD 000E0H WORD 06EEEH WORD 06EF8H WORD 00040H WORD 06EF8H WORD 06EEEH WORD 00040H WORD 05E2CH WORD 05E2CH WORD 00050H WORD 0FFFFH ; end code ; NUKI_GRDTN_DAT EQU $ WORD NUKI_GRDTN_DT00,NUKI_GRDTN_DT01 ; NK_GRDTN_00 EQU 000 NK_GRDTN_01 EQU NK_GRDTN_00+2 ; ; POINT_SCRL20 EQU $ JSR POINT_SCRL00 ; LDY #NK_GRDTN_00 LDA !BG3COL AND #001 ; 夕日グラデーション ? BEQ POINT_SCRL20_05 ; YES -> POINT_SCRL20_05 LDY #NK_GRDTN_01 POINT_SCRL20_05 EQU $ M16 ; memory 16bit mode LDA #BANK NUKI_GRDTN_DAT STA R0 LDA NUKI_GRDTN_DAT,Y STA R9 M_CHIP SPL_GRDTN ; LDA #NUKCOL_BF_B ;to memory address set STA DMA_M_M ;DMA "ON" ; LDA #BG3_V_rster_00 STA !BG3SPFV_ADR STZ !BG3SPV_CT STZ !BG2SPF STZ !BG2SPFV ; M8 ; memory 8bit mode LDA #012H STA 4341H ; INC !GRDTN_FLG LDA !HD420C ORA #00000110B STA !HD420C ; INC !BG3SPFV ; RTS ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ 画面の加算の制御 (イニシャル セット) + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISP_COL_SET EQU $ LDA #017H STA !MANSEL LDA #004H STA !SUBSEL LDX #DP_DT_01 JSR DISP_INIT_SET ; LDX #006H JSR POINT_SCRL00 RTS ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ 画面の加算 + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ DISP_COL_00 EQU $ LDA #0A0H STA !WIND30 LDA #064H STA !SUBADF RTS ; ; ;-------------------------------------------------------- ;- プレイヤーダウン メッセージ文字データアドレス - ;-------------------------------------------------------- DWNMOJI_DAT EQU $ WORD DWNMOJI_TMUP,DWNMOJI_PLDW ; ;-------------------------------------------------------- ;- タイム アップ メッセージ データ - ;-------------------------------------------------------- DWNMOJI_TMUP EQU $ BYTE 0FFH,020H BYTE 0BDH,0B2H,0B6H,0AEH,0D0H BYTE 0BEH,0B9H BYTE 0FDH ; end code ; ;-------------------------------------------------------- ;- プレイヤーダウン メッセージ データ - ;-------------------------------------------------------- DWNMOJI_PLDW EQU $ BYTE 0FFH,020H BYTE 0C2H,0B8H,0BEH,0D0H BYTE 0B5H,0B8H,0BCH,0BDH BYTE 0FDH ; end code ; ; ; ; ; ; ; END