;********************************************************************* ; ; mario kart course select program ; ;********************************************************************* INCLUDE ../../SFX/RP5C77 INCLUDE ../../SFX/RP5A22 INCLUDE ../../DSP/D77C25 INCLUDE ../../../kimura/join/work.def INCLUDE ../../../kimura/join/buffer.def INCLUDE ../DEF/object.def ;---------------------------------------------------------------------- ext BGM_fade_out,sound_select,sound_set,sound_cancel GLB Calc_cursor ;- - - - - - - - - - - - - - - - - - - - - - - - GLB C_SL_main,C_SL_init,C_SL_nmi GLB Message_sprite ;---------------------------------------------------------------------- EXT Sprite_set EXT Set_back_01,Set_back_02 ;---------------------------------------------------------------------- EXT Call_bank0 EXT Clear_sprite,Clear_buffer,Init_work EXT WINDOW_INIT,WINDOW_CONTROL EXT Init_meter,DMA_meter EXT Execute_VRAM EXT param_screenA,param_screenB EXT Repeat_trigger ext Check_backupRAM ;---------------------------------------------------------------------- word_work EQU 1800H ;- - - - - - - - - - - - - - - - word_battle equ 1800h ; common word_world EQU 1800H ; common word_course00 EQU 1880H word_course10 EQU 1900H word_course20 EQU 1980H word_course30 EQU 1A00H ;- - - - - - - - - - - - - - - - ;;; equ 1b00h ; laptime use ;- - - - - - - - - - - - - - - - _next EQU 0 _disp EQU 2 _attr EQU 4 _addr EQU 6 ;- - - - - - - - - - - - - - - - cursor_battle equ 1d00h ; common cursor_world EQU 1D00H ; common cursor_course1 EQU 1D02H cursor_course2 EQU 1D04H cursor_course3 EQU 1D06H cursor_course4 EQU 1D08H cursor_yesno EQU 1D0AH trans_map EQU 1D0CH cursor_flag EQU 1D0EH ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - cursor_number EQU 1D10H ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - clear_course1 EQU 1D12H clear_course2 EQU 1D14H clear_course3 EQU 1D16H clear_course4 EQU 1D18H ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - csel_process EQU 1D20H frame_work EQU 1D22H camera_test EQU 1D24H csel_mode EQU 1D26H ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - EXTEND objdata SECT REL mem16 idx16 ;********************************************************************* ; コースセレクトの初期設定 ;********************************************************************* SEQ_select dw 0ch,00h ;- - - - - - - - - - - - - C_SL_init PHB PHK PLB ;- - - jsl >Check_backupRAM jsr Check_battle lda !SEQ_select,x sta Call_bank0 jsr Init_work ;; stz !best_flag ;ベストラップクリア ;; stz !best_Voffset lda #5 sta !best_number ;- - - ;- - - jsl >WINDOW_INIT ;ウィンドウ jsr Init_meter ;メータセット ldx #Clear_sprite ;ＯＡＭクリア jsl >Call_bank0 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; ＢＧ３をクリア LDA #7FH STA !meter_bank+0 STA !meter_bank+2 LDA #clear_screen_A STA !meter_address+0 LDA #clear_screen_B STA !meter_address+2 ;; JSL >DMA_meter ;; LDA #06H STA !window_index+0 LDA #06H STA !window_index+2 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - LDX #data_A JSL >Execute_VRAM LDX #data_B JSL >Execute_VRAM ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - STZ !cursor_flag STZ !cursor_yesno STZ !cursor_world STZ !cursor_course1 STZ !cursor_course2 STZ !cursor_course3 STZ !cursor_course4 STZ !trans_map STZ !csel_process ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;マップナンバーのセット jsr Check_battle bne skip$ lda !map_number cmp #14h bcs skip0$ lda #15h ;マップの初期 sta !map_number skip0$ sec sbc #14h tax lda !name_battle,x and #00ffh sta !cursor_battle bra exit$ ;- - - - - - - - - - - skip$ jsr Set_map_number lda !world_number sta cursor_world asl a tax lda !map_pointer sta !cursor_course1,x inc !csel_process exit$ ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - JSL >Init_word PLB RTL ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - data_A DB 080H DW 5000H DW 1801H DL MOJI_buffer DW 2000H data_B DB 080H DW 6000H DW 1801H DL MOJI_buffer DW 2000H ;********************************************************************* ; コースセレクトのメイン ;********************************************************************* EXT Set_map_number,Set_ROM_to_buffer EXT Set_changeBG EXT Color_transport EXT Call_back_scroll EXT Set_BGmove,DMA_BGmove ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - C_SL_main PHB PHK PLB ;- - - - - - - - - - - - - - - - - - - - - - - JSL >Repeat_trigger ; リピートトリガ ;- - - - - - - - - - - - - - - - - - - - - - - lda !csel_process asl a ldx !csel_mode jsr (!csel_game,x) jsr Move_back ;背景スクロール plb rtl ;- - - - - - - - - - - - - - - - - - - - - - - race_entry tax jmp (!csel_race,X) battle_entry tax jmp (!csel_battle,X) ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PLB RTL ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - csel_game dw race_entry,battle_entry ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - csel_race DW select_cup DW select_course DW map_read DW set_buffer DW vram_write_init DW vram_write DW map_yesno DW no_use ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - csel_battle dw select_battle dw battlemap_read dw set_buffer dw vram_write_init dw vram_write dw battle_yesno dw no_use ;------------------------------------------------------------------- ; 背景のスクロール ;------------------------------------------------------------------- Move_back LDX #0 LDA !camera_test CLC ADC #10H STA !camera_test JSL >Call_back_scroll JSR Set_BGmove LDX #player_r0 INC <_situationXH,X RTS ;------------------------------------------------------------------- no_use RTS ;********************************************************************* ; バトルモード ;********************************************************************* ;------------------------------------------------------------------- ; マップのセレクト ;------------------------------------------------------------------- select_battle jsl >WINDOW_CONTROL ;- - - - - - - - - - - - - - - - - - - - - - - - jsr Reset_cursor jsr Init_OBJ_B jsr Set_battlename jsr Init_OBJ_A jsr Select_battlemap ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - lda !trigger_common ; マップ決定チエック and #ST_button+B_button beq skip$ ;- - - - - - - - - - - - - - - - - - - - - - - - - inc !csel_process lda !cursor_battle ; アトリビュート ASL A ASL A ASL A ASL A ; の点滅 adc #word_battle tax lda #02H sta <_attr,X ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - skip$ jsr Disp_title jmp Disp_battlemap ;------------------------------------------------------------------- ; バトルマップの決定 ;------------------------------------------------------------------- map_battle db 15h,14h,16h,17h name_battle db 01h,00h,02h,03h ;- - - - - - - - - - - - - - - - - - - - - - - - - - - battlemap_read ldx !csel_process ldy !cursor_battle lda !map_battle,y and #00ffh cmp !map_number sta !map_number bne skip$ inx inx inx inx stx !csel_process rts skip$ inx stx !csel_process ;- - - - - - - - - - - - - - - - - - - - - - - - LDA #8 STA !window_index+0 STA !window_index+2 JSL >WINDOW_CONTROL JSR Init_OBJ_B JSR Set_battlename RTS ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; よろしですか　はい／いいえ ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - battle_yesno JSR Init_OBJ_B JSR Cursor_yesno JSR Disp_yesno exit$ RTS ;********************************************************************* ; レースモード ;********************************************************************* ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; よろしですか　はい／いいえ ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ext REC_test map_yesno JSR Init_OBJ_B JSR Cursor_yesno JSR Disp_yesno JSR Disp_grid lda WINDOW_CONTROL BRA next_process ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; マップのキャラクタ転送メイン ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - vram_write JSL >WINDOW_CONTROL LDA !trans_map BNE same_process LDA #0AH STA !window_index+0 STA !window_index+2 BRA next_process ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; マップナンバーのセット ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - map_read ;- - - - - - - - - - - - - - - - - - - - - - LDY #2 ;新しいマップｎｏをセット LDA !cursor_world CMP !world_number BNE skip$ DEY skip$ STA !world_number ASL A TAX LDA !cursor_course1,X CMP !map_pointer BNE skip1$ DEY skip1$ STA !map_pointer TYA BNE chenge$ ;- - - - - - - - - - - - - - - - - - - - - - LDA #6 STA !csel_process RTS ;- - - - - - - - - - - - - - - - - - - - - - chenge$ LDA #8 STA !window_index+0 STA !window_index+2 JSL >WINDOW_CONTROL JSR Init_OBJ_B JSR Set_name ;- - - - - - - - - - - - - - - - - - - - - - jsr Set_map_number next_process INC !csel_process same_process RTS ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; マップいれかえバッファセット ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - set_buffer jsr Set_ROM_to_buffer JSL >Set_changeBG inc !csel_process RTS ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; カーソル コースセレクト ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - select_course JSL >WINDOW_CONTROL JSR Init_OBJ_B JSR Set_name JSR Init_OBJ_A JSR Set_course RTS ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; カーソル カップセレクト ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - select_cup JSL >WINDOW_CONTROL JSR Init_OBJ_B JSR Set_name JSR Init_OBJ_A JSR Set_cup RTS ;********************************************************************* ; ＯＡＭ　初期設定 ;********************************************************************* Init_OBJ_A JSR param_screenA LDX #200H BRA init_obj_common Init_OBJ_B JSR param_screenB LDX #200H+220H init_obj_common STX color_buffer+100h+2,x sta >color_buffer+100h+4,x lda #0 sta >color_buffer+100h+6,x rts ;********************************************************************* ; コースセレクトのＮＭＩ処理 ;********************************************************************* C_SL_nmi PHB PHK PLB ;; LDA Frash_corsor LDX #Color_transport JSL >Call_bank0 JSL >DMA_map JSL >DMA_BGmove PLB RTL ;- - - - - - - - - - - - - - - - - - - - - - ;********************************************************************* ; コースセレクトのＮＭＩ処理 ;********************************************************************* DMA_map LDA !trans_map BEQ exit$ AND #7FFFH TAX CPX #10H BCS special$ SEP #00100000B MEM8 LSR A LSR A LSR A STZ !DMA_0+0 ; CLC ADC #18H ; 18h or 19h STA !DMA_0+1 ; TXA ASL A ASL A ASL A ASL A AND #80H STA !Screen_step ; STZ !DMA_0+2 TXA ASL A ASL A ASL A STA !DMA_0+3 AND #3FH ; start address STA !Screen_address+1 STZ !Screen_address+0 ; LDA #7FH ; bank STA !DMA_0+4 LDY #800H ; counter STY !DMA_0+5 LDA #01 ; dma start STA !DMA_burst ; TXA ; next parameter INC A skip$ STA !trans_map+0 REP #00100000B MEM16 exit$ RTL ;- - - - - - - - - - - - - - - - - - - special$ PHB PHK PLB REP #00100000B MEM16 CPX #10H BNE sss$ LDX #back_char ;背景キャラクターのセット JSL >Execute_VRAM BRA incdata$ ;- - - - - - - - - - - - - - - - - - - sss$ CPX #11H BNE sss2$ LDX #back_screen ;背景スクリーンのセット 1 JSL >Execute_VRAM BRA incdata$ ;- - - - - - - - - - - - - - - - - - - sss2$ jsr Set_back_02 ;背景スクリーンのセット 2 ;- - - - - - - - - - - - - - - - - - - incdata$ LDA !trans_map ; 転送カウンタのセット INC A CMP #8013H BNE skip2$ LDA #0 skip2$ STA !trans_map+0 PLB RTL ;- - - - - - - - - - - - - - - - - back_char db 80H dw 7000h dw 1801h dl 7FC800h dw 800h ;- - - - - - - - - - - - - - - - - back_screen db 80H dw 7800h dw 1801h dl 7FC000h dw 600h ;********************************************************************* ; 現在のコースネーム表示 ;********************************************************************* ;********************************************************************* ; コースセレクトの文字セット ;********************************************************************* Set_course JSR Select_course LDA !trigger_common AND #LF_button+X_button BEQ common_set AND #X_button BEQ skip$ JSR sound_cancel BRA skip0$ skip$ JSR sound_select skip0$ DEC !csel_process BRA common_set ;--------------------------------------------------------------------- Set_cup ;- - - - - - - - - - - - - - - - - - - - - - - セレクトモード JSR Select_world LDA !trigger_common AND #RT_button+B_button BEQ common_set JSR sound_set INC !csel_process ;- - - - - - - - - - - - - - - - - - - - - - - コースネーム表示 common_set JSR Disp_title JSR Disp_world JMP Disp_course ;********************************************************************* ; YES/NO セレクト（カーソル） ;********************************************************************* Cursor_yesno LDY #trigger_common+1 LDA #0101H LDX #cursor_yesno JSR Calc_cursor ;- - - - - - - - - - - - - - - - - - - - - - - - - - LDA !trigger_common ; cansel BIT #X_button BNE reset2$ BIT #B_button+ST_button BEQ exit$ LDA !cursor_yesno BNE reset1$ ;- - - - - - - - - - - - - - - - - - - - - - - - - - next$ ; ゲームスタート jsr Check_battle lda !init_select,x sta !race_init lda !jump_select,x sta BGM_fade_out INC !csel_process BRA sound$ ;- - - - - - - - - - - - - - - - - - - - - - - - - - reset2$ stz !csel_process ;選択しなおし jmp sound_cancel ;- - - - - - - - - - - - - - - - - - - - - - - - - - reset1$ stz !csel_process ;選択しなおし sound$ jsr sound_set exit$ RTS ;- - - - - - - - - - - - - - - - - - - - - - - - - - init_select dw 04h,0ah jump_select dw 0eh,02h ;********************************************************************* ; コースネームの表示 ;********************************************************************* ;********************************************************************* ; バトルマップネームの表示 ;********************************************************************* Set_battlename ;- - - - - - - - - - - - - - - - - - - ; mapnumber offset lda !map_number sec sbc #14h tax lda !name_battle,x and #00ffh ASL A ASL A ASL A ASL A ADC #word_battle TAX LDA <_disp,X ; H position read AND #000FFH ORA #00800H ; V position set LDY <_addr,X LDX #4 ; attr JMP Message_sprite ;********************************************************************* ; コースネームの表示 ;********************************************************************* Set_name2 LDA !map_pointer ASL A ASL A ASL A ASL A STA <0 LDA !world_number XBA LSR A ;CLC ADC #word_course00 ADC <0 TAX ;; LDA <_disp,X ; H position read ;; AND #00000H ;; ORA #00800H ; V position set lda #01058h LDY <_addr,X LDX #0 ; attr JMP Message_sprite Set_name LDA !world_number ASL A ASL A ASL A ASL A ADC #word_world TAX LDA <_disp,X ; H position read AND #000FFH ORA #00800H ; V position set LDY <_addr,X LDX #4 ; attr JSR Message_sprite ; LDA !map_pointer ASL A ASL A ASL A ASL A STA <0 LDA !world_number XBA LSR A ;CLC ADC #word_course00 ADC <0 TAX LDA <_disp,X ; H position read AND #000FFH ORA #00800H ; V position set LDY <_addr,X LDX #4 ; attr JMP Message_sprite ;********************************************************************* ; はい　いいえ　の表示 ;********************************************************************* Disp_yesno LDA #0840H ; message LDY #yesno_0 LDX #0 JSR Message_sprite LDA #0890H ; message LDY #yesno_1 LDX #0 JSR Message_sprite ; LDA #0886H ; cursor LDX !cursor_yesno BEQ skip$ LDA #0886H+0020H skip$ LDY #select_sign JMP Sprite_set ;********************************************************************* ; スターティンググリッド の表示 ;********************************************************************* Disp_grid LDA !cursor_world ; ASL A ;CLC TAX ; world 0,1,2,3 LSR A ORA #0500h ; 5*world number STA !4202h LDA !cursor_course1,X ; course 0,1,2,3,4 CLC ADC !Product ASL A TAX ; STA !cursor_number = map_number ; LDY #start_sign_1 LDA !start_sign_data,X XBA CMP #8000H BCC skip1$ LDY #start_sign_2 skip1$ XBA JMP Sprite_set ;********************************************************************* ; タイトルの表示 ;********************************************************************* Disp_title LDA #1058H ; title LDY #name_title2 LDX #0 JMP Message_sprite ;********************************************************************* ; ワールドの表示 ; バトルマップの表示 ;********************************************************************* Disp_battlemap Disp_world LDX #word_world next1$ LDA <_next,X ; status check BEQ exit1$ ; LDY <_addr,X ; data address PHX ;>> LDA <_attr,X ; attribute PHA ; >> LDA <_disp,X ; position X,Y PLX ; << JSR Message_sprite ; skip1$ PLA ;<< CLC ADC #10H TAX BRA next1$ exit1$ RTS ;********************************************************************* ; コースの表示 ;********************************************************************* Disp_course LDA !cursor_world XBA LSR A ;CLC ADC #word_course00 TAX ;- - - - - - - - - - - - - - - - - - - - - - - next2$ LDA <_next,X BEQ exit2$ LDY <_addr,X ; data address PHX ;>> LDA <_attr,X ; attribute PHA ; >> LDA <_disp,X ; position X,Y PLX ; << JSR Message_sprite ; skip2$ PLA ;<< CLC ADC #10H TAX BRA next2$ exit2$ RTS ;********************************************************************* ; バトルコースセレクト ;********************************************************************* ofs equ 48h pos_battle db 20h+0eh*0 db 20h+0eh*1 db 20h+0eh*2 db 20h+0eh*3 ;- - - - - - - - - - - - - - - - - - - - - - - - - - Select_battlemap LDY #trigger_common+1 LDA #0300H LDX #cursor_battle JSR Calc_cursor LDA <0,X AND #00FFH TAY LDA !pos_battle,Y XBA AND #0FF00H ORA #00016H+ofs LDY #select_sign JSR Sprite_set RTS ;********************************************************************* ; 汎用ルーチン ;********************************************************************* ;- - - - - - - - - - - - - - - - - - - - - - - - - - ;カーソル位置のイニシャル ;- - - - - - - - - - - - - - - - - - - - - - - - - - Reset_cursor STZ !cursor_course1 ;カーソル位置 STZ !cursor_course2 STZ !cursor_course3 STZ !cursor_course4 STZ !cursor_yesno ; はい にセット ;- - - - - - - - - - - - - - - - - - - - - - - - - - STZ !_attr+word_world+00H ;点滅ストップ STZ !_attr+word_world+10H ;(ワールド） STZ !_attr+word_world+20H STZ !_attr+word_world+30H ;- - - - - - - - - - - - - - - - - - - - - - - - - - LDX #word_course00 ;点滅ストップ LDY #8*4 ;(コース） loop$ STZ <_attr,X TXA CLC ADC #10H TAX DEY BNE loop$ STZ !cursor_course4 RTS ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;********************************************************************* ; ワールドセレクト（カーソル） ;********************************************************************* ; ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - pos_world db 20h+0eh*0 db 20h+0eh*1 db 20h+0eh*2 db 20h+0eh*3+4 ;- - - - - - - - - - - - - - - - - - - - - - - - - - Select_world JSR Reset_cursor ;- - - - - - - - - - - - - - - - - - - - - - - - - - ;ワールドマップカーソルの移動 ;- - - - - - - - - - - - - - - - - - - - - - - - - - LDY #trigger_common+1 LDA #0300H LDX #cursor_world JSR Calc_cursor LDA <0,X AND #00FFH TAY LDA !pos_world,Y XBA AND #0FF00H ORA #00016H LDY #select_sign JSR Sprite_set exit$ RTS ;********************************************************************* ; コースセレクト（カーソル） ;********************************************************************* pos_course db 20h+0eh*0 db 20h+0eh*1 db 20h+0eh*2 db 20h+0eh*3 db 20h+0eh*4 ;- - - - - - - - - - - - - - - - - - - - - - - - - - Select_course ; LDA !cursor_world ASL A ASL A ASL A ASL A ADC #word_world TAX LDA #02H STA <_attr,X ; ;- - - - - - - - - - - - - - - - - - - - - - - - - - ;- - - - - - - - - - - - - - - - - - - - - - - - - - LDY #trigger_common+1 LDA !cursor_world ASL A ;CLC ADC #cursor_course1 TAX ;- - - - - - - - - - - - - - - - - - - - - - - - - - LDA #0400H JSR Calc_cursor ;- - - - - - - - - - - - - - - - - - - - - - - - - - LDA <0,X AND #00FFH TAY LDA !pos_course,Y XBA AND #0FF00H ORA #00076H TAX ;- - - - - - - - - - - - - - - - - - - - - - - LDA !trigger_common+0 ;決定チエック AND #B_button+ST_button BEQ over$ JSR sound_set LDA !cursor_world ;決定したとき XBA LSR A ;CLC ADC #word_course00 STA <0 TYA ; 00,10,20,30,40 ASL A ASL A ASL A ASL A ADC <0 TAX LDA #02H STA <_attr,X INC !csel_process RTS ;- - - - - - - - - - - - - - - - - - - - - - - over$ TXA ;決定しないとき LDY #select_sign JSR Sprite_set exit$ RTS ;********************************************************************* ; ワールドポジションのイニシャル ;********************************************************************* Init_position LDX #player_r0 LDA #0FFC0H STA <_situationXH,X STA <_situationYH,X RTS ;********************************************************************* ; バトルモードチェック ;********************************************************************* Check_battle ldx #0 lda > SEC SBC #0E0H REP #00100000B MEM16 PHA ; >> AND #00FFH ASL A TAY LDA !common_message,Y TAY PLA ; << SEP #00100000B MEM8 JSR line_message PLY ;<< INY ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - line_message LDA !0,Y ; read data CMP #0E0H BCC entry$ CMP #0FFH BNE special_message RTS ;- - - - - - - - - - - - - - - - - - - - entry$ STA