eng_offset equ 0 ; 各カップのオフセット eng_yesno equ 0 ; OK ? eng_name equ 0 ; ベストラップ用 コース表示 ;---------------------------------------------------------------------- pos_BTtitle equ 1058h ; BT title の表示 pos_VStitle equ 1058h ; VS title の表示 pos_erasetitle equ 0820h ; ERASE OK? の初期位置 pos_yesnotitle equ 0828h ;********************************************************************* ; ; 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 Trigger_sound_1 ext BGM_fade_out,sound_select,sound_set,sound_cancel GLB Calc_cursor,Calc_cursor2,DMA_map ;- - - - - - - - - - - - - - - - - - - - - - - - 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,DMA_meter_init EXT Execute_VRAM EXT param_screenA,param_screenB EXT Repeat_trigger ext Check_backupRAM,Erase_timeRAM ext Check_replay ext Trigger_sound_1 ;---------------------------------------------------------------------- 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 _savedata EQU 8 ;- - - - - - - - - - - - - - - - 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 ; work.def で定義済 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 world_lock EQU 1D28H csel_timer EQU 1D2AH csel_command EQU 1D2CH load_ONghost EQU 1D2EH ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - EXTEND objdata SECT REL mem16 idx16 ;********************************************************************* ; リプレイモードありなしチェック ;********************************************************************* check_replay lda Check_replay bcs skip$ ;; SEP #00100000B MEM8 lda >keySRAM_world ; world pointer ASL A ASL A ASL A adc >keySRAM_map ; map pointer REP #00100000B MEM16 and #00ffh ASL A ASL A ASL A ASL A adc #word_course00 tax lda #06h sta <_savedata,x ;; skip$ rts ;********************************************************************* ; バッファ待避 ;********************************************************************* backup_replay lda !ghost_flag ; バッファ使用中？ bpl exit$ lda #1000h ; 待避セット ON ! tsb !ghost_flag ;- - - - -- - - - - - - - - - - - - - - - ldx #keycode_start ldy #8000h ; lda #0C00h-1 phb mvn #keycode_start/65536,#7fh plb exit$ rts ;- - - - -- - - - - - - - - - - - - - - - loadck_replay lda #0E000H ; バックアップロード ora !map_number sta !ghost_flag+0 lda #0ffffh ; ゴーストカートセット sta !g_kart_flag exit$ rts ;********************************************************************* ; コースセレクトの初期設定 ;********************************************************************* SEQ_select dw 0ch,00h ;- - - - - - - - - - - - - C_SL_init PHB PHK PLB ;- - - jsl >Check_backupRAM stz !record_mode ; モードリセット stz !replay_flag ; リプレイリセット jsr Check_battle lda !SEQ_select,x sta Call_bank0 jsr Init_work ;; stz !best_flag ; ベストラップクリア ;; stz !best_Voffset lda #5 sta !best_number ;- - - - - - - - - - - - - - - - - - - ; replay check jsr backup_replay jsr check_replay ;- - - - - - - - - - - - - - - - - - - ; replay check lda !map_pointer cmp #05h bne init$ stz !map_pointer stz !world_number lda #07 sta !map_number init$ ;- - - - - - - - - - - - - - - - - - - - - - - - - jsl >WINDOW_INIT ;ウィンドウの初期設定 lda #06H ; 初期セット sta !window_index+0 sta !window_index+2 lda #00e0e0h ; 色加算データ初期セット sta !red_color sta !green_color sta !blue_color jsl >WINDOW_CONTROL ;- - - - - - - - - - - - - - - - - - - - - - - - - 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_init ;; ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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 STZ !csel_command STZ !load_ONghost ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;マップナンバーのセット jsr Check_battle bne skip$ lda !map_number cmp #14h bcs skip0$ lda #16h ;マップの初期 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 ;- - - - - - - - - - - - - - - - - - - - - - - SEP #00100000B MEM8 lda !fade_data+1 cmp #0fh REP #00100000B MEM16 bne C_SL_skip ;- - - - - - - - - - - - - - - - - - - - - - - JSL >Repeat_trigger ; リピートトリガ ;- - - - - - - - - - - - - - - - - - - - - - - C_SL_skip 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) ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C_SL_exit PLB RTL ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - csel_game dw race_entry,battle_entry ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - csel_race DW select_cup ; 0 DW select_course ; 1 DW map_read ; 2 DW set_buffer ; 3 DW vram_write_init ; 4 DW vram_write ; 5 DW map_yesno ; 6 DW no_use ; 7 DW erase_check1 ; 8 DW erase_check2 ; 9 DW erase_wait ; 10 DW disp_ghostcheck ; 11 DW wait_ghostcheck ; 12 DW map_yesno_2 ; 13 DW no_use ; 14 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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 JSL >Set_BGmove LDX #player_r0 INC <_situationXH,X lda #80c0h ; カメラのむきをかえる！ sta 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$ ;- - - - - - - - - - - - - - - - - - - - - - - - - jsl >sound_set inc !csel_process lda !cursor_battle ; アトリビュート ASL A ASL A ASL A ASL A ; の点滅 adc #word_battle tax lda #02H sta <_attr,X jsr Battlemap_OK ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - skip$ jsr Disp_title_BT jmp Disp_battlemap ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Battlemap_OK ldy #4 ldx #word_battle loop$ lda <_attr,x bne skip$ lda #08h skip$ sta <_attr,x txa clc adc #10h tax dey bne loop$ rts ;------------------------------------------------------------------- ; バトルマップの決定 ;------------------------------------------------------------------- map_battle db 16h,17h,14h,15h ;- - - - - - - - - - - -14h,15h,16h,17h - - - name_battle db 02h,03h,00h,01h ;- - - - - - - - - - - - - - - - - - - - - - - - - - - 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 ;********************************************************************* ; レースモード ;********************************************************************* erase_wait JSR Init_OBJ_A jsr REC_test jsr Set_name2 dec !csel_timer bne exit$ stz !csel_process exit$ rts ;- - - - - - - - - - - - - - - - - - - - - - - erase_check2 erase_check1 ;- - - - - - - - - - - - - - - - - - - - - - - LDY #button_trigger+1 LDA #0101H LDX #cursor_yesno JSR Calc_cursor2 ;- - - - - - - - - - - - - - - - - - - - - - - lda !button_trigger bit #X_button bne reset$ bit #B_button+ST_button beq skip_1$ lda !cursor_yesno beq clear$ reset$ stz !csel_process bra skip_1$ clear$ jsl >Erase_timeRAM ; タイムクリア bcs skip_2$ lda #9 sta !csel_process skip_2$ inc !csel_process ; +10 lda #29H ; SE_ballon jsl >Trigger_sound_1 lda #60 sta !csel_timer skip_1$ ;- - - - - - - - - - - - - - - - - - - - - - - JSR Init_OBJ_B LDA #pos_erasetitle LDY #erase_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+eng_yesno skip$ LDY #select_sign JSR Sprite_set ;- - - - - - - - - - - - - - - - - - - - JSR Init_OBJ_A jsr REC_test jmp Set_name2 ;- - - - - - - - - - - - - - - - - - - - - - - ;- - - - - - - - - - - - - - - - - - - - - - - ;********************************************************************* ; ゴーストチェックディスプレイ ;********************************************************************* disp_ghostcheck jsr Init_OBJ_B ;- - - - - - - - - - - - - - - - - - - - - - - - - - LDY #trigger_common+1 LDA #0101H LDX #cursor_yesno JSR Calc_cursor2 ;- - - - - - - - - - - - - - - - - - - - - - - - - - LDA !trigger_common ; cansel BIT #B_button+ST_button BEQ exit$ ;- - - - - - - - - - - - - - - - - - - - - - - - - - lda #30 sta !csel_timer inc !csel_process lda !cursor_yesno bne reset$ entry$ dec !load_ONghost ; FLAG ON lda #20h jsl >Trigger_sound_1 bra exit$ reset$ jsl >sound_set ;- - - - - - - - - - - - - - - - - - - - - - - - - - exit$ jsr Disp_yesghost jsr Disp_grid jsr Init_OBJ_A jsr REC_test jmp Set_name2 ;---------------------------------------------------------------------- wait_ghostcheck dec !csel_timer bne exit$ inc !csel_process stz !cursor_yesno exit$ rts ;********************************************************************* ; レースモード ;********************************************************************* ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; よろしですか　はい／いいえ ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ext REC_test map_yesno 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 <_savedata,x ; リプレイは,はいっている？ BEQ map_yesno_2 lda #11 sta !csel_process jmp disp_ghostcheck map_yesno_2 JSR Init_OBJ_B JSR Cursor_yesno JSR Disp_yesno JSR Disp_grid lda sound_set lda #8 sta !csel_process lda #1 sta !cursor_yesno skip$ jsr Init_OBJ_A jsr REC_test jsr Set_name2 exit$ RTS ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; マップのキャラクタ転送イニシャル ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - vram_write_init LDA #8000H STA !trans_map JSL >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 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 STZ !load_ONghost JSL >WINDOW_CONTROL JSR Ura_special ; 裏コマンド！ JSR Init_OBJ_B JSR Set_name JSR Init_OBJ_A JSR Set_cup RTS ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; 新しいマップｎｏをチェック ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - samemap_check 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 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 BRA common_set ;--------------------------------------------------------------------- Set_cup ;- - - - - - - - - - - - - - - - - - - - - - - セレクトモード JSR Select_world LDA !trigger_common AND #RT_button+B_button+ST_button BEQ common_set JSL >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_cursor2 ;- - - - - - - - - - - - - - - - - - - - - - - - - - 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 ;- - - - - - - - - - - - - - - - - - - - - - - - LDA !ghost_flag ; マップがかわったら BPL skip$ ; ゴースト終了 AND #00ffh CMP !map_number BEQ skip$ STZ !ghost_flag ; バッファリセット STZ !g_kart_flag ; ゴーストカート消滅 ;- - - - - - - - - - - - - - - - - - - - - - - - skip$ lda !load_ONghost beq sound$ jsr loadck_replay jsl >sound_set ;; lda #20h ;; jsl >Trigger_sound_1 rts ;- - - - - - - - - - - - - - - - - - - - - - - - - - reset2$ stz !csel_process ;選択しなおし jsl >sound_cancel rts ;- - - - - - - - - - - - - - - - - - - - - - - - - - reset1$ stz !csel_process ;選択しなおし sound$ jsl >sound_set rts 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-eng_name 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_yesghost LDA #pos_yesnotitle-8 LDX #0 LDY #ghostcheck JSR Message_sprite LDA #1490H ; message LDY #yesno_1 LDX #0 JSR Message_sprite ; LDA #1486H ; cursor LDX !cursor_yesno BEQ skip$ LDA #1486H+0020H+eng_yesno skip$ LDY #select_sign JMP Sprite_set ;********************************************************************* ; はい　いいえ　の表示 ;********************************************************************* Disp_yesno LDA #pos_yesnotitle LDX > 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 40h 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_cursor2 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 STZ !_attr+word_world+40H ;- - - - - - - - - - - - - - - - - - - - - - - - - - LDX #word_course00 ;点滅ストップ LDY #8*4 ;(コース） loop$ LDA <_savedata,x BNE skip$ LDA #08h skip$ STA <_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 !world_lock LDX #cursor_world JSR Calc_cursor2 LDA <0,X AND #00FFH TAY LDA !pos_world,Y XBA AND #0FF00H ORA #0001eH-eng_offset 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 #08H STA !_attr+word_world+00H ; 減算モード STA !_attr+word_world+10H ; (ワールド） STA !_attr+word_world+20H STA !_attr+word_world+30H STA !_attr+word_world+40H LDX #word_course00 ;点滅ストップ LDY #8*4 ;(コース） loop$ LDA <_savedata,x BNE skip$ LDA #00h skip$ STA <_attr,X TXA CLC ADC #10H TAX DEY BNE loop$ ;- - - - - - - - - - - - - - - - - - - - - - - - - - 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_cursor2 ;- - - - - - - - - - - - - - - - - - - - - - - - - - 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$ JSL >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 JSR Select_OK INC !csel_process ;- - - - - - - - - - - - - - - - - - - - - - - JSR samemap_check BNE exit$ LDA #6 ; process jump STA !csel_process LDA sound_cancel DEC !csel_process exit$ RTS ;- - - - - - - - - - - - - - - - - - - - - - - - - - - ; コースセレクトのアトリビュートチェック ;- - - - - - - - - - - - - - - - - - - - - - - - - - - Select_OK LDX #word_course00 ; LDY #8*4 ; (コース） loop$ LDA <_attr,x BNE skip$ LDA #08h skip$ STA <_attr,X TXA CLC ADC #10H TAX DEY BNE loop$ RTS ;- - - - - - - - - - - - - - - - - - - - - - - - - - - ;********************************************************************* ; ワールドポジションのイニシャル ;********************************************************************* Init_position LDX #player_r0 LDA #0FFC0H STA <_situationXH,X STA <_situationYH,X RTS ;********************************************************************* ; バトルモードチェック ;********************************************************************* Check_battle ldx #0 lda SRAM_race+0,x and #03h ; 下位２ビットが１００ｃｃ dec a bne exit$ dex bpl loop$ ok$ REP #00100000B MEM16 ; SEC -> クリアしている！ lda #0300h bra skip$ exit$ REP #00100001B MEM16 ; CLC -> クリアしてない！ lda #0200h skip$ sta !world_lock rts ;- - - - - - - - - - - - - - - - - - - - - - - ;裏コマンド (スペシャルカップをだす！） Ura_special ldx !csel_command SEP #00100000B MEM8 lda Trigger_sound_1 SEP #00100000B MEM8 ;- - - - - - - - - - - - - - - - - - - - ; clear$ stz !csel_command skip$ REP #00100000B MEM16 rts ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - command_data db L_button,R_button,L_button,R_button db L_button,L_button,R_button,R_button db A_button ;********************************************************************* ; 汎用ルーチン ;********************************************************************* wk0 EQU 0 wk1 EQU 2 wk2 EQU 4 wk3 EQU 6 ;********************************************************************* ; メッセージブロックのマウント ;********************************************************************* ; ; <_disp,X .... 表示座標 ; <_addr,X .... メッセージのアドレス ; <_next,X .... 0 .終了 1.継続 ; <_attr,X .... アトリビュート(色チェンジ用） ; ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Mount_message loop$ LDA !0,Y BEQ exit$ STA <_disp,X LDA !2,Y STA <_addr,X LDA <_savedata,X BEQ skip$ LDA #06h ; セーブデータあり！ skip$ STA <_attr,X LDA #01H STA <_next,X TXA CLC ADC #10H TAX TYA ADC #4 TAY BRA loop$ exit$ STZ <_next,X RTS ;********************************************************************* ; ＯＡＭのクリア ;********************************************************************* clear_oam LDA #0E0H STA <0,X TXY INY LDA #200H-2 PHB MVN #dbank_00,#dbank_00 PLB RTS ;********************************************************************** ; メッセージスプライト ;********************************************************************** ; １行にメッセージを表示するルーチンです ; ; ; ; ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - ; LDA #4040H ; LDY #data_message ; ldx attr ; JSR Message_sprite ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - Message_sprite STX > 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 sound_select SEP #00100000B MEM8 skip$ LDA (sound_select exit$ REP #00100000B MEM16 RTS ;---------------------------------------------------------------------- ; セレクトキー対応バージョン ;- - - - - - - - - - - - - - - - - - - Calc_cursor2 STA sound_select RTS next$ LDA