;************************************************************************ ;* * ;* title name : "yossy" * ;* proccess : system main * ;* file name : ys_main * ;* * ;************************************************************************ ; ; SALL ; include ys_header.inc include ys_unit.h include ../sound/ys_sound.h ; XALL ; ; ;------------------------------------------------------------------------ ;- global symbol - ;------------------------------------------------------------------------ GLB system_pause ; GLB BLNKON,BLNKOFF,DMA_M_M,DMA_D_M,RAMCLR,URAMCLR,VRAMCL GLB VRAMCL2,OAMCLR,OAMDXCLR,OAMCHG,JSRSUB,JSLSUB GLB RANDAM,FADEST_SUB GLB SOUND_TR,SOUND_TR_2 GLB SOUND_3_ON ; GLB VCLDAT ; GLB GMIN,GMFD,GMPL,MPIN,TMUP,DMIN,D_00,D_01,SFCSTP GLB HMPIN,HMPPL,HMPDM,BNSGM,BNSMV,MINPL,MINIT GLB HMPHIDM,BS_SCRE,HMPWDCRDM,INT_GM,HF_STAT,KEYSTP GLB GM_OVR,AGAIN,BNSIN,HMPFAD,GM_CTN ; GLB TITLE_SOUND,W1_0_SOUND,MAP_SOUND,END_SOUND ; IF PAL ;**** PAL 対応 [1995/7/20] ***************************** GLB LNGGSL ENDIF ;**** PAL 対応 [1995/7/20] ***************************** ;------------------------------------------------------------------------ ;- extern symbol - ;------------------------------------------------------------------------ ; ;-------------< ys_save >------------------------------------------------ EXT SVRMCK_INT ; ;-------------< ys_rpro >------------------------------------------------ EXT RPRO_ROM EXT NMISUB,IRQSUB,CHIPON EXT VMADSPL,OBJDMA ; EXT VTCL ; ;-------------< ys_title >----------------------------------------------- EXT MODINC,MODINC2 EXT TLINIT,TLPLAY,KEYINCHK EXT SFC_STOP,KEYCHK_DSP ; ;-------------< ys_mini >------------------------------------------------- EXT MINIPLAY,MINIINIT ; ;-------------< ys_map >------------------------------------------------- EXT MAPINIT,MAPPLAY ; ;-------------< ys_game >------------------------------------------------ EXT GMINIT,GMPLAY,GMFADE,GMGOAL EXT BOSCLR_SCORE,HALF_INIT,HALF_SLCT EXT COS_AGAIN_INT,CORS_AGAIN,AGAIN_WAIT_SET ; ;-------------< ys_bgsc >------------------------------------------------ EXT GMBGIN,TIMEUP ; ;-------------< ys_demo >------------------------------------------------ EXT DEMO_00_IN,DEMO_00_MV EXT DEMO_01_IN,DEMO_01_MV ; ;-------------< ys_demo >------------------------------------------------ EXT BONUSIT,BONUSMV ; ;-------------< ys_start >----------------------------------------------- EXT START_INIT,START_PLAY ; IF PAL ;**** PAL 対応 [1995/7/20] ***************************** ; ;-------------< ys_lngsl >----------------------------------------------- EXT LNG_SLCT_INT,LNG_SELECT ENDIF ;**** PAL 対応 [1995/7/20] ***************************** ; ; ;-------------< ys_ending >---------------------------------------------- EXT ENDING_MAP_IN EXT ENDING1_IN,ENDING1_PL,ENDING_START EXT GAME_OVER_INT,GAME_OVER ; ;-------------< ys_hmap >------------------------------------------------ EXT HMAPINIT,HMAPPLAY,HMAPDEMO EXT HMAPHIDEMO,HMPWLDCLRDEMO ; ; ;------------------------------------------------------------------------ ;- define symbol - ;------------------------------------------------------------------------ ; ; ; ;************************************************************************ ;* * ;* 日付 * ;* * ;************************************************************************ ; ORG 0FFA0H ; include ys_date.inc ; ; ;************************************************************************ ;* * ;* interrupt vector * ;* * ;************************************************************************ ; ORG 0FFE0H ; ;------------------------------------------------------------------------ ;- NATIVE - ;------------------------------------------------------------------------ WORD RTISUB WORD RTISUB WORD COPSUB ;COP WORD RTISUB WORD RTISUB WORD 00108H ;NMI WORD RTISUB WORD 0010CH ;IRQ ; ;------------------------------------------------------------------------ ;- EMULATION - ;------------------------------------------------------------------------ WORD RTISUB WORD RTISUB WORD RTISUB WORD RTISUB WORD RTISUB WORD RTISUB WORD RESET ;reset WORD RTISUB ; ; ;************************************************************************ ;* * ;* program start * ;* * ;************************************************************************ ; ; EXTEND ; ; MEM8 IDX8 ; Group_0 GROUP Main_pro Main_pro SECT REL ; ;************************************************************************ ;* reset * ;************************************************************************ ; RESET EQU $ SEI ;IRQ disable REP #00001001B XCE ; MI8 ; LDA #00 ;(DBR) <-- 0 PHA PLB PHA ;(D) <-- 0 PHA PLD ; ;-------------- PPU Reg initial clear ----------------------------------- STZ 4200H ;NMI disable STZ 4016H LDA #10001111B ;blanking "ON" STA 2100H ; LDA #00000001B ;B-RAM enable STA 3033H STZ 2106H ;mozaiku flag reset STZ 2140H ;sound port reset STZ 2141H ; " STZ 2142H ; " STZ 2143H ; " ; LDA #0FFH ;I/O port reset STA 4201H STZ 4207H ;H counter reset STZ 4208H STZ 4209H ;V " STZ 420AH STZ 420BH ;M-DMA switch reset STZ 420CH ;H- " STZ 420DH ;memory access cycle reset (2.68MHz) ; M16 ; LDA #8000H ;OAM rotation reset STA 2102H ; ;-------------- stack pointer set --------------------------------------- LDA #01FFH ;(SP) set TCS ; M8 JSL >RAMCLR ;all RAM clear !! ; ; ;-------------- サウンドプログラム転送（メイン） ------------------------ ; LDX #TITLE_SOUND ;(X) <-- サウンドプログラム転送テーブルＮｏ． JSL >SOUND_TR_2 ; M16 ; ; ;-------------- RAM vecter set ------------------------------------------ LDX #(RMVCTTBLE-RMVCTTBL)-1 RESET010 EQU $ LDA !RMVCTTBL,X STA RAMVCT,X DEX DEX BPL RESET010 ; ;-------------- RAM program set ----------------------------------------- LDA #RPRO_RAM ;to memory address set STA DMA_M_M ;DMA "ON" ; M8 I16 ; ;-------------- system RAM initial clear -------------------------------- LDX #STACK-SYSRAM-1 RESET020 EQU $ STZ SYSRAM,X DEX BPL RESET020 ; I8 ; ;-------------- マリオチップ初期セット ---------------------------------- LDA #00000001B ;M-chip 21MHz mode set STA 3039H LDA #10100000B ;M-chip config set ( IRQ disable , mult speed up ) STA 3037H LDA #016H ;M-chip screen base initial set STA CIPSCB LDA #00111101B ; " size mode set STA CIPSCR ; IF BUG00 ;******************************************************[1995/8/8] M16 ; memory 16bit mode STZ !TITL_SND STZ !WLD6_FLG ; LDX #BANK CHIPINIT LDA #CHIPINIT JSL >CHIPON ; M8 ; memory 8bit mode ELSE ;******************************************************[1995/8/8] ENDIF ;******************************************************[1995/8/8] ; LDA >SLCT_FILE_NO+1 BNE SV_CLS_000 LDA >SLCT_FILE_NO CMP #003 BCC SV_CLS_900 SV_CLS_000 EQU $ M16 ; memory 16bit mode LDA #000 STA >SLCT_FILE_NO STA >RAMCHK0 STA >RAMCHK1 STA >RAMCHK2 STA >RAMCHK0_BAK STA >RAMCHK1_BAK STA >RAMCHK2_BAK JSL >SVRMCK_INT M8 ; memory 8bit mode SV_CLS_900 EQU $ ; IF BUG00 ;******************************************************[1995/8/8] ELSE ;******************************************************[1995/8/8] M16 ; memory 16bit mode STZ !TITL_SND STZ !WLD6_FLG ; LDX #BANK CHIPINIT LDA #CHIPINIT JSL >CHIPON ; M8 ; memory 8bit mode ENDIF ;******************************************************[1995/8/8] ; CLI ;IRQ enable ; ;************************************************************************ ;* game main * ;************************************************************************ ; GSTART EQU $ LDA NMIFLG BMI GSTART ; system_pause equ $ bra GST040 ; ; ; ; ; ;-------------- pause check ----------------------------- LDA KEYB2 AND #00010000B BEQ GST010 LDA PAUSE EOR #01 STA PAUSE GST010 EQU $ LDA PAUSE BEQ GST040 ; LDY #20H LDA KEYB2L AND #00010000B BNE GST032 ; LDA KEYB1L AND #00110000B BNE GST020 ; STZ PASTM BRA GST050 ; GST020 EQU $ LDA PASTM BEQ GST030 DEC PASTM BRA GST050 ; GST030 EQU $ LDY #04H GST032 EQU $ STY PASTM ; ;-------------------------------------------------------- ; ; ; ; ; GST040 EQU $ ; M16 ; INC MODESEL ;game mode select ; GST050 EQU $ DEC NMIFLG BRA GSTART ; ; ;************************************************************************ ; RAM vecter data * ;************************************************************************ RMVCTTBL EQU $ RTI ;[100] NOP NOP NOP ; RTI ;[104] COP NOP NOP NOP ; JMP >NMISUB ;[108] NMI ; JMP >IRQSUB ;[10C] IRQ ; RMVCTTBLE EQU $ ; ;************************************************************************ ; cop * ;************************************************************************ COPSUB EQU $ ;;;; JMP >CHIPCALL ; ;************************************************************************ ; interrapt return * ;************************************************************************ RTISUB EQU $ RTI ; ; ; ;************************************************************************ ; game mode select * ;************************************************************************ ; MODESEL EQU $ LDA MODENO ASL A ;;;; CLC ADC MODENO TAX PHB ;(DBR) save LDA !MODETBL+2,X PHA PHA PLB ;(DBR) <-- (PBR) LDA >MODETBL+1,X PHA LDA >MODETBL,X PHA RTL ; IF PAL ;**** PAL 対応 [1995/7/20] ***************************** ; ;-------------- game mode program address table ----------------- MODETBL EQU $ TTLIN LWORD TLINIT-1 ;title initial LWORD KEYINCHK-1 ;キーチェック LWORD FADEST2-1 ;fade "in/out" ( timer type ) set LWORD TLPLAY-1 ;title play LNGG_SLCT LWORD FADEST-1 ;fade "in/out" set LWORD LNG_SLCT_INT-1 ;言語セレクト初期セット LWORD FADEST-1 ;fade "in/out" set LWORD LNG_SELECT-1 ;言語セレクト DM_01 LWORD FADEST-1 ;fade "in/out" set LWORD DEMO_01_IN-1 ;ミュージカル初期セット LWORD FADEST-1 ;fade "in/out" set LWORD DEMO_01_MV-1 ;ミュージカルデモ MPINT LWORD FADEST2-1 ;fade "in/out" set LWORD MAPINIT-1 ;map test initial LWORD MAPPLAY-1 ; " play GMINT LWORD FADEST-1 ;fade "in/out" set LWORD GMINIT-1 ;game initial GMFAD LWORD GMFADE-1 ; " fade "in/out" set GM_CATEN LWORD GMBGIN-1 ; " initial course BG write GMPLY LWORD GMPLAY-1 ; " play LWORD GMGOAL-1 ; " goal in TIMUP LWORD TIMEUP-1 ;タイムアップデモ ; DM_00 LWORD FADEST-1 ;fade "in/out" set LWORD DEMO_00_IN-1 ;死神デモ初期セット LWORD FADEST-1 ;fade "in/out" set LWORD DEMO_00_MV-1 ;死神デモ ; DEMIN LWORD FADEST3-1 ;エンディング LWORD ENDING_MAP_IN-1 LWORD MAPINIT-1 LWORD MAPPLAY-1 LWORD FADEST-1 ;fade "in/out" set LWORD ENDING1_IN-1 LWORD ENDING_START-1 LWORD ENDING1_PL-1 ; HMAP_FADE LWORD HMAPFADE-1 HMPINT LWORD FADEST2-1 HMAP_SB LWORD HMAPINIT-1 ;横スクロール マップ HMPPLY LWORD FADEST-1 LWORD HMAPPLAY-1 HMPDEM LWORD FADEST-1 LWORD HMAPDEMO-1 HMPHIDEM LWORD FADEST-1 LWORD HMAPHIDEMO-1 HMPWDCRDEM LWORD FADEST-1 LWORD HMPWLDCLRDEMO-1 ; BONUSGM LWORD FADEST2-1 ;ボーナス ゲーム BONUSIN LWORD BONUSIT-1 LWORD FADEST-1 BONUS_MD LWORD BONUSMV-1 ; MININT LWORD FADEST-1 ;ミニ ゲーム LWORD MINIINIT-1 MINIPL LWORD FADEST-1 LWORD MINIPLAY-1 ; BSCR_SCRE LWORD BOSCLR_SCORE-1 ;ボスクリア後のスコア精算 ; HALF_STAT LWORD FADEST-1 ; 中間ゲート 再スタートセレクト LWORD HALF_INIT-1 LWORD FADEST-1 LWORD HALF_SLCT-1 LWORD AGAIN_WAIT_SET-1 ; INT_GAME LWORD FADEST2-1 ; イニシャル コースイン デモ LWORD START_INIT-1 LWORD START_PLAY-1 ; AGAIN_STAT LWORD FADEST-1 ; 今のコースの 再スタートセレクト LWORD COS_AGAIN_INT-1 LWORD FADEST-1 LWORD CORS_AGAIN-1 LWORD AGAIN_WAIT_SET-1 ; GM_OVER LWORD GAME_OVER_INT-1 ; ＧＡＭＥ ＯＶＥＲ LWORD GAME_OVER-1 ; KEYSTOP LWORD FADEST-1 LWORD KEYCHK_DSP-1 ;キーチェックによるゲーム ストップ ; SFCSTOP LWORD FADEST-1 LWORD SFC_STOP-1 ;ゲーム ストップ !! ; ; ; TLIN EQU (TTLIN-MODETBL)/3 LNGGSL EQU (LNGG_SLCT-MODETBL)/3 MPIN EQU (MPINT-MODETBL)/3 GMIN EQU (GMINT-MODETBL)/3 GMFD EQU (GMFAD-MODETBL)/3 GM_CTN EQU (GM_CATEN-MODETBL)/3 GMPL EQU (GMPLY-MODETBL)/3 TMUP EQU (TIMUP-MODETBL)/3 ; D_00 EQU (DM_00-MODETBL)/3 D_01 EQU (DM_01-MODETBL)/3 ; DMIN EQU (DEMIN-MODETBL)/3 ; HMPFAD EQU (HMAP_FADE-MODETBL)/3 HMPIN EQU (HMPINT-MODETBL)/3 HMPSB EQU (HMAP_SB-MODETBL)/3 HMPPL EQU (HMPPLY-MODETBL)/3 HMPDM EQU (HMPDEM-MODETBL)/3 HMPHIDM EQU (HMPHIDEM-MODETBL)/3 HMPWDCRDM EQU (HMPWDCRDEM-MODETBL)/3 ; BNSGM EQU (BONUSGM-MODETBL)/3 BNSIN EQU (BONUSIN-MODETBL)/3 BNSMV EQU (BONUS_MD-MODETBL)/3 ; MINIT EQU (MININT-MODETBL)/3 MINPL EQU (MINIPL-MODETBL)/3 ; BS_SCRE EQU (BSCR_SCRE-MODETBL)/3 ; HF_STAT EQU (HALF_STAT-MODETBL)/3 ; INT_GM EQU (INT_GAME-MODETBL)/3 GM_OVR EQU (GM_OVER-MODETBL)/3 AGAIN EQU (AGAIN_STAT-MODETBL)/3 ; KEYSTP EQU (KEYSTOP-MODETBL)/3 SFCSTP EQU (SFCSTOP-MODETBL)/3 ENDIF ;**** PAL 対応 [1995/7/20] ***************************** ; ; IF JPN | NES ;**** 日本 or NES 対応 [1995/6/30] **************** ; ;-------------- game mode program address table ----------------- MODETBL EQU $ TTLIN LWORD TLINIT-1 ;title initial LWORD KEYINCHK-1 ;キーチェック LWORD FADEST2-1 ;fade "in/out" ( timer type ) set LWORD TLPLAY-1 ;title play DM_01 LWORD FADEST-1 ;fade "in/out" set LWORD DEMO_01_IN-1 ;ミュージカル初期セット LWORD FADEST-1 ;fade "in/out" set LWORD DEMO_01_MV-1 ;ミュージカルデモ MPINT LWORD FADEST2-1 ;fade "in/out" set LWORD MAPINIT-1 ;map test initial LWORD MAPPLAY-1 ; " play GMINT LWORD FADEST-1 ;fade "in/out" set LWORD GMINIT-1 ;game initial GMFAD LWORD GMFADE-1 ; " fade "in/out" set GM_CATEN LWORD GMBGIN-1 ; " initial course BG write GMPLY LWORD GMPLAY-1 ; " play LWORD GMGOAL-1 ; " goal in TIMUP LWORD TIMEUP-1 ;タイムアップデモ ; DM_00 LWORD FADEST-1 ;fade "in/out" set LWORD DEMO_00_IN-1 ;死神デモ初期セット LWORD FADEST-1 ;fade "in/out" set LWORD DEMO_00_MV-1 ;死神デモ ; DEMIN LWORD FADEST3-1 ;エンディング LWORD ENDING_MAP_IN-1 LWORD MAPINIT-1 LWORD MAPPLAY-1 LWORD FADEST-1 ;fade "in/out" set LWORD ENDING1_IN-1 LWORD ENDING_START-1 LWORD ENDING1_PL-1 ; HMAP_FADE LWORD HMAPFADE-1 HMPINT LWORD FADEST2-1 HMAP_SB LWORD HMAPINIT-1 ;横スクロール マップ HMPPLY LWORD FADEST-1 LWORD HMAPPLAY-1 HMPDEM LWORD FADEST-1 LWORD HMAPDEMO-1 HMPHIDEM LWORD FADEST-1 LWORD HMAPHIDEMO-1 HMPWDCRDEM LWORD FADEST-1 LWORD HMPWLDCLRDEMO-1 ; BONUSGM LWORD FADEST2-1 ;ボーナス ゲーム BONUSIN LWORD BONUSIT-1 LWORD FADEST-1 BONUS_MD LWORD BONUSMV-1 ; MININT LWORD FADEST-1 ;ミニ ゲーム LWORD MINIINIT-1 MINIPL LWORD FADEST-1 LWORD MINIPLAY-1 ; BSCR_SCRE LWORD BOSCLR_SCORE-1 ;ボスクリア後のスコア精算 ; HALF_STAT LWORD FADEST-1 ; 中間ゲート 再スタートセレクト LWORD HALF_INIT-1 LWORD FADEST-1 LWORD HALF_SLCT-1 LWORD AGAIN_WAIT_SET-1 ; INT_GAME LWORD FADEST2-1 ; イニシャル コースイン デモ LWORD START_INIT-1 LWORD START_PLAY-1 ; AGAIN_STAT LWORD FADEST-1 ; 今のコースの 再スタートセレクト LWORD COS_AGAIN_INT-1 LWORD FADEST-1 LWORD CORS_AGAIN-1 LWORD AGAIN_WAIT_SET-1 ; GM_OVER LWORD GAME_OVER_INT-1 ; ＧＡＭＥ ＯＶＥＲ LWORD GAME_OVER-1 ; KEYSTOP LWORD FADEST-1 LWORD KEYCHK_DSP-1 ;キーチェックによるゲーム ストップ ; SFCSTOP LWORD FADEST-1 LWORD SFC_STOP-1 ;ゲーム ストップ !! ; ; ; TLIN EQU (TTLIN-MODETBL)/3 MPIN EQU (MPINT-MODETBL)/3 GMIN EQU (GMINT-MODETBL)/3 GMFD EQU (GMFAD-MODETBL)/3 GM_CTN EQU (GM_CATEN-MODETBL)/3 GMPL EQU (GMPLY-MODETBL)/3 TMUP EQU (TIMUP-MODETBL)/3 ; D_00 EQU (DM_00-MODETBL)/3 D_01 EQU (DM_01-MODETBL)/3 ; DMIN EQU (DEMIN-MODETBL)/3 ; HMPFAD EQU (HMAP_FADE-MODETBL)/3 HMPIN EQU (HMPINT-MODETBL)/3 HMPSB EQU (HMAP_SB-MODETBL)/3 HMPPL EQU (HMPPLY-MODETBL)/3 HMPDM EQU (HMPDEM-MODETBL)/3 HMPHIDM EQU (HMPHIDEM-MODETBL)/3 HMPWDCRDM EQU (HMPWDCRDEM-MODETBL)/3 ; BNSGM EQU (BONUSGM-MODETBL)/3 BNSIN EQU (BONUSIN-MODETBL)/3 BNSMV EQU (BONUS_MD-MODETBL)/3 ; MINIT EQU (MININT-MODETBL)/3 MINPL EQU (MINIPL-MODETBL)/3 ; BS_SCRE EQU (BSCR_SCRE-MODETBL)/3 ; HF_STAT EQU (HALF_STAT-MODETBL)/3 ; INT_GM EQU (INT_GAME-MODETBL)/3 GM_OVR EQU (GM_OVER-MODETBL)/3 AGAIN EQU (AGAIN_STAT-MODETBL)/3 ; KEYSTP EQU (KEYSTOP-MODETBL)/3 SFCSTP EQU (SFCSTOP-MODETBL)/3 ENDIF ;**** 日本 or NES 対応 [1995/6/30] **************** ; ;************************************************************************ ;* blanking "ON" * ;************************************************************************ BLNKON EQU $ STZ 4200H ;NMI disable STZ 420CH ;H-DMA "OFF" LDA #10001111B ;blanking "ON" STA 2100H RTL ; ;************************************************************************ ;* blanking "OFF" * ;************************************************************************ BLNKOFF EQU $ LDA #10000001B ;NMI enable STA 4200H RTL ; ;************************************************************************ ;* OAM clear * ;************************************************************************ OAMCLR EQU $ ; M16 ; LDX #BANK OAM_CLR LDA #OAM_CLR JSL >CHIPON ; M8 ; RTL ; ;************************************************************************ ;* OAM clear ( to game mode ) * ;************************************************************************ OAMDXCLR EQU $ ; M16 ; LDX #BANK OAM_DXCLR LDA #OAM_DXCLR JSL >CHIPON ; M8 ; RTL ; ;************************************************************************ ;* OAM convert & change * ;************************************************************************ OAMCHG EQU $ ; M16 ; LDX #BANK OAMCHG2 LDA #OAMCHG2 JSL >CHIPON ; M8 ; RTL ; ;************************************************************************ ;* VRAM clear * ;* in : (A) <-- VRAM clear data table pointer * ;************************************************************************ VCLDAT EQU $ ;screen all clear data !! WORD 0FFFFH ; VRAMCL EQU $ LDA #VTCL VRAMCL2 EQU $ STA VRFLG ;VRAM clear data table pointer ; JSL >BLNKON ; ;-------------- OAM intial -------------------------------------- JSL >OAMCLR ;OAM clear ; ;-------------- VRAM clear -------------------------------------- JMP >VMADSPL ; ;************************************************************************ ;* memory DMA ( block transfer ) * ;* in : (WK20,21,22) <-- to memory address * ;* (WK23,24,25) <-- from " * ;* (A) <-- number of byte * ;************************************************************************ ; MEM16 IDX8 ; DMA_M_M EQU $ STA 4305H ;number of byte set ; LDA BLNKON ;blanking "ON" ; M16 ; LDY #00 ;(Y) <-- 0 clear data ; ;-------------< 000H - 0FFH >-------------------------------------------- STZ DMA_D_M ;DMA "ON" ; ;-------------< 7E0200H - 7EBFFFH >-------------------------------------- LDA #0200H ;to memory address set STA DMA_D_M ;DMA "ON" ; ;-------------< 7F0000H - 7FFFFFH >-------------------------------------- STZ DMA_D_M ;DMA "ON" ; ;-------------< 700000H - 707BFFH >-------------------------------------- LDX #070H ;to memory address set STX DMA_D_M ;DMA "ON" ; ;-------------< initial RAM set >---------------------------------------- LDA #0FFFFH ;BG write( VRAMD ) end code set STA >VRAMD+2 LDA #VRAMDX+2 ; " ( VRAMDX ) " STA >VRAMDX ; M8 ; RTL ; ;************************************************************************ ;* clear area RAM clear * ;************************************************************************ URAMCLR EQU $ ; M16 ; LDY #00 ;(Y) <-- 0 clear data ; ;-------------- SFC --------------------------------------------- STZ DMA_D_M ;DMA "ON" ; LDA #CLRRM1_S STA DMA_D_M ;DMA "ON" ; ;-------------- M-chip ------------------------------------------ LDA #MCLRRM0_S STA DMA_D_M ;DMA "ON" ; LDA #MCLRRM1_S STA DMA_D_M ;DMA "ON" ; LDA #MCLRRM2_S STA DMA_D_M ;DMA "ON" ; M8 ; RTL ; ;************************************************************************ ;* call subroutine * ;* in : (A) <- call no. * ;************************************************************************ ; JSRSUB EQU $ STY FAD010 TXA ;fade muki set EOR #01H AND #01H STA !FADMK ; ;-------------- go to next mode --------------------------------- LDA #HMPSB STA !MODENO BRA FAD020 ; ;************************************************************************ ;* fade in/out * ;************************************************************************ FADADD EQU $ HEX 01,FF FADCMP EQU $ HEX 0F,00 ; FADEST_SUB EQU $ PHB LDA #BANK FADEST PHA PLB ; FADEST EQU $ LDX !FADMK LDA !FADNO AND #00FH CMP FADCMP,X ; フェード おわり ? BNE FAD010 ; NO -> FAD010 TXA ;fade muki set EOR #01H AND #01H STA !FADMK ; ;-------------- go to next mode --------------------------------- INC !MODENO BRA FAD020 ; FAD010 EQU $ CLC ADC FADADD,X STA !FADNO ; FAD020 EQU $ PLB RTL ; ;************************************************************************ ;* fade in/out ( timer type ) * ;************************************************************************ ; FADEST2 EQU $ DEC FADTM BPL FAD020 ;wait ? ( yes:FAD010 ) ; LDA #02H ;wait timer set STA FADTM BRA FADEST ; ;************************************************************************ ;* fade in/out ( long timer type ) * ;************************************************************************ ; FADEST3 EQU $ DEC FADTM BPL FAD020 ;wait ? ( yes:FAD010 ) ; LDA #08H ;wait timer set STA FADTM BRA FADEST ; ;************************************************************************ ;* 乱数発生 * ;* 戻り値 （Ａ）：乱数 * ;************************************************************************ ; RANDAM EQU $ PHP ; M8 ; LDA 2137H LDA 213FH ; M16 ; LDA 213CH CLC ADC RANDM0 STA RANDM0 ; PLP RTL ; ; ; ; ; ;************************************************************************ ;* * ;* サウンドプログラムブート * ;* * ;************************************************************************ ; ;------------------------------------------------- APU_port0 EQU 02140H APU_port1 EQU 02141H APU_port2 EQU 02142H APU_port3 EQU 02143H address EQU 00000H address2 EQU address+3 address3 EQU address2+3 address4 EQU address3+3 next_flag EQU address4+3 pointer EQU next_flag+2 ;------------------------------------------------- ; Boot_APU EQU $ PHP ; MI16 ; LDY #00 LDA #0BBAAH boot_initial EQU $ CMP APU_port0 ;m16 BNE boot_initial ; M8 ; LDA #0CCH BRA boot_entry1 ; boot_repeat EQU $ LDA [ ; M16 ; LDA [ [0] [1] [2] [3] TITLE_TR_DATA BYTE ystitle_P, 0FFH, 0FFH, 0FFH ;[タイトル] W1_0_DM_TR_DATA BYTE ysse_P, ysor_P, yslets_P, 0FFH ;[１Ｗ−０デモ] MAP_TR_DATA BYTE ysse_P, ysor_P, ysmap_P, 0FFH ;[マップ] OHANA_TR_DATA BYTE ysse_P, yshn_P, ysgame1_P, 0FFH ;[お花畑] CHIJYO_TR_DATA BYTE ysse_P, ysgm_P, ysgame0_P, 0FFH ;[地上] CHIKA_TR_DATA BYTE ysse_P, ysgm_P, yschika_P, 0FFH ;[地下] OSHIRO_TR_DATA BYTE ysse_P, ysor_P, ysshiro_P, 0FFH ;[お城] BOSS_TR_DATA BYTE ysse_P, ysgm_P, ysboss_P, 0FFH ;[ボス] BONUS_TR_DATA BYTE ysse_P, yshn_P, ysbonus_P, 0FFH ;[ボーナス] OOBOSS_TR_DATA BYTE ysse_P, yshn_P, ysoobs_P, 0FFH ;[大ボス] ATHRE_TR_DATA BYTE ysse_P, ysat_P, ysathre_P, 0FFH ;[アスレチック] KUPPA_TR_DATA BYTE yskp_P, yskuppa_P, 0FFH, 0FFH ;[大クッパ] ENDING_TR_DATA BYTE ysed_P, ysend_P, 0FFH, 0FFH ;[エンディング] ; TITLE_TR EQU TITLE_TR_DATA-SOUND_TR_DATA W1_0_DM_TR EQU W1_0_DM_TR_DATA-SOUND_TR_DATA MAP_TR EQU MAP_TR_DATA-SOUND_TR_DATA OHANA_TR EQU OHANA_TR_DATA-SOUND_TR_DATA CHIJYO_TR EQU CHIJYO_TR_DATA-SOUND_TR_DATA CHIKA_TR EQU CHIKA_TR_DATA-SOUND_TR_DATA OSHIRO_TR EQU OSHIRO_TR_DATA-SOUND_TR_DATA BOSS_TR EQU BOSS_TR_DATA-SOUND_TR_DATA BONUS_TR EQU BONUS_TR_DATA-SOUND_TR_DATA OOBOSS_TR EQU OOBOSS_TR_DATA-SOUND_TR_DATA ATHRE_TR EQU ATHRE_TR_DATA-SOUND_TR_DATA KUPPA_TR EQU KUPPA_TR_DATA-SOUND_TR_DATA ENDING_TR EQU ENDING_TR_DATA-SOUND_TR_DATA ; ;------------------------------------------------------------------------ ;- サウンドプログラム転送テーブル - ;------------------------------------------------------------------------ ITEM_STOP_SW EQU $ HEX 0 ;[0] お花畑 HEX 0 ;[1] 地上 HEX 0 ;[2] お城 HEX 1 ;[3] ボス HEX 0 ;[4] 地下 HEX 1 ;[5] ボス（いきなりボスＢＧＭ） HEX 0 ;[6] ボーナスゲーム HEX 1 ;[7] 大ボス HEX 1 ;[8] 大ボス（いきなりボスＢＧＭ） HEX 1 ;[9] 大ボス（カチカチ用いきなりボスＢＧＭ） HEX 0 ;[A] アスレチック HEX 0 ;[B] 無敵マリオ HEX 1 ;[C] 大クッパ HEX 0 ;[D] スペシャル４ HEX 0 ;[E] HEX 0 ;[F] ; HEX FF ;[10] タイトル HEX 0 ;[11] １Ｗ−０デモ HEX FF ;[12] マップ ; GAME_TR_ADRS EQU $-1 BYTE OHANA_TR ;[0] お花畑 BYTE CHIJYO_TR ;[1] 地上 BYTE OSHIRO_TR ;[2] お城 BYTE BOSS_TR ;[3] ボス BYTE CHIKA_TR ;[4] 地下 BYTE BOSS_TR ;[5] ボス（いきなりボスＢＧＭ） BYTE BONUS_TR ;[6] ボーナスゲーム BYTE OOBOSS_TR ;[7] 大ボス BYTE OOBOSS_TR ;[8] 大ボス（いきなりボスＢＧＭ） BYTE OOBOSS_TR ;[9] 大ボス（カチカチ用いきなりボスＢＧＭ） BYTE ATHRE_TR ;[A] アスレチック BYTE ATHRE_TR ;[B] 無敵マリオ BYTE KUPPA_TR ;[C] 大クッパ BYTE BOSS_TR ;[D] スペシャル４ BYTE 0 ;[E] BYTE 0 ;[F] ; TITLE_SOUND_ADR BYTE TITLE_TR ;[10] タイトル W1_0_SOUND_ADR BYTE W1_0_DM_TR ;[11] １Ｗ−０デモ MAP_SOUND_ADR BYTE MAP_TR ;[12] マップ END_SOUND_ADR BYTE ENDING_TR ;[13] マップ ; TITLE_SOUND EQU TITLE_SOUND_ADR-GAME_TR_ADRS-1 W1_0_SOUND EQU W1_0_SOUND_ADR-GAME_TR_ADRS-1 MAP_SOUND EQU MAP_SOUND_ADR-GAME_TR_ADRS-1 END_SOUND EQU END_SOUND_ADR-GAME_TR_ADRS-1 ; SOUND_TR_2 EQU $ STX BGM_NO SOUND_TR EQU $ ; ;------------------------------------------------------------------------ ;- サウンドプログラム転送チェック - ;------------------------------------------------------------------------ LDX BGM_NO LDA >ITEM_STOP_SW,X ;アイテム使用禁止フラグセット BMI SOUND_TR_0010 ;アイテム使用禁止フラグセットＯＫ？ ( no:SOUND_TR_0010 ) ; STA ITEM_STOP ; SOUND_TR_0010 EQU $ INX CPX GM_BGM_NO BNE SOUND_TR_0020 ;ＢＧＭ変更？ ( yes:SOUND_TR_0020 ) RTL ; SOUND_TR_0020 EQU $ STX GM_BGM_NO STZ GM_SOUND_0 LDA >GAME_TR_ADRS,X TAX ;(X) <-- 転送タイプ ; ;------------------------------------------------------------------------ ;- サウンドプログラム転送情報チェック - ;------------------------------------------------------------------------ STZ SOUND_TR_DATA,X CMP SOUND_AR_0,Y BEQ SOUND_TR_0100 ;転送済？ ( yes:SOUND_TR_0100 ) ; STA SOUND_AR_0,Y CMP #0FFH BEQ SOUND_TR_0100 ;転送？ ( no:SOUND_TR_0100 ) ; INC SOUND_TR_ADRS-1,X STA address,Y LDA >SOUND_TR_ADRS-1+1,X STA address+1,Y LDA >SOUND_TR_ADRS-1+2,X STA address+2,Y INY INY INY STY