;******************* Driver-point.asm ************************* ; extend ;----------------------------------------------------- include ../join/rp5c77 include ../join/buffer.def include ../join/rp5a22 include ../join/work.def include ../join/label.def include ../join/object.def ;----------------------------------------------------- glb DP_init,DP_main,DP_nmi ; ext PPU_INT_SET,Set_DMA ext Init_demokart,Set_demokart ext DMA_demokart,KEY_CHECK ext BGM_fade_out,OBJ_ERASE,Color_Set_sub ext X_inx,Y_iny,Trigger_sound_1,Rank_Check ext Zero_clear,Set_4bit_mode1 ;--------------------------------------------------- address equ 60h ;2byte address1 equ 62h ;2byte name_address equ 64h ;2byte Rank_counter equ 66h ;2byte Display_counter equ 68h ;2byte button_TG equ 6ah ;4byte Move_counter equ 6eh ;2byte ; Revolve_counter equ 70h ;2byte Xmove_counter equ 72h ;2byte Swing_counter equ 74h ;2byte Swing_flag equ 76h ;2byte Rank_number equ 78h ;2byte Check_rank equ 7ah ;2byte Scroll_2h equ 7eh ;2byte ; Driver_flag equ 80h ;2byte Flag_counter equ 82h ;2byte Flag_timer equ 84h ;2byte flag_speed equ 86h ;2byte Flash_timer equ 88h Player_1_rank equ 8ah Player_2_rank equ 8ch NO_display_flag equ 8eh ; Rank_index equ 90h Kart_Rank equ 92h OBJ_check_flag equ 96h No_count_flag equ 98h Point_counter equ 9ah Point_up_timer equ 9ch Ranking_select equ 9eh ;----------------------------------------------------- kart_set1 equ 180h ;名前バッファー kart_set equ 1a0h oamdat equ 200h msbdat equ 400h ; Flash_buffer_1p equ 1800h ;フラッシュバッファー Flash_buffer_2p equ 1840h Flash_buffer_1p_d equ 19c0h Flash_buffer_2p_d equ 19e0h ; NEW_rank_buffer equ 18c0h ;カートバッファー Ranking_number equ 18d0h ;ナンバーバッファー kart_point equ 1902h Fiash_flag equ 1904h New_rank_count equ 1906h Max_point equ 1908h NOW_rank equ 190ah Kart_index_set equ 190ch All_end_counter equ 1980h ;----------------------------------------------------- bank85 sect rel ;(PBR=85) ;================================================== ;************************************************** ; INITIAL ROUTINE ;************************************************** ;================================================== DP_init equ $ phb phk plb ; ldy #OBJ_data1 JSL >Init_demokart ; mem8 idx8 sep #00110000b ; JSL >PPU_INT_SET ;ppu&oam initial set. JSR DRIVER_PPU JSR Driver_tensou ; mem16 idx16 rep #00110000b ; plb RTL ;============================================================= ;************************************************************ ; MAINE ROUNTINE ;************************************************************ ;============================================================= DP_main equ $ phb phk plb ; JSR KEY_CHECK JSR Driver_SCROLL ;<<<<<<<<<<<< リザルトかランキングのチェック >>>>>>>>>>>> lda >>>>>>>>>>>>>>>>>>>> New_rank_select lda Set_demokart jmp owari_point ;<<<<<<<<<<<<<<<< リザルトメイン >>>>>>>>>>>>>>>>>>>>>> Result_Set lda #200h sta Set_demokart ; JSR Result_set JSR Result_end owari_point plb RTL ; Select_rank DW Old_rank_disp,Set_UP_point DW Rank_erase_set,NEW_rank_app Select_rank_NMI DW Set_old_rank,Point_UP_nmi DW RANK_erase_nmi,Rank_Change_nmi ;=========================================================== ;********************************************************** ; NMI wari komi. ;********************************************************** ;=========================================================== DP_nmi equ $ phb phk plb ;<<<<<<<< リザルトかランキングのチェック >>>>> lda >>>>>>> lda >>>> Ranking_Set lda Rank_Flashing jmp Set_Scroll ; RANK_erase_nmi; stz Rank_Flashing ; Set_Scroll mem8 sep #00100000b lda Scroll_1H lda Scroll_1H mem16 rep #00100000b JSL >DMA_demokart ; plb rtl ;=========================================================== ;********************************************************** ; INITIAL SET ROUTINE ;********************************************************** ;=========================================================== ;************************************************** ; PPU&WORK INITIAL SET ;************************************************** DRIVER_PPU equ $ ;<<<<<<<<<<<< ゼロページクリアー >>>>>>>>>>>>>> mem16 idx16 rep #00110000b ; JSR Nuki_set ;<<<<<<<<<<<<<<<<<< PPU SET >>>>>>>>>>>>>>>>>>>> JSL >Set_ppu rts ;******************************************************** ; TENSOU SET ;******************************************************** Driver_tensou equ $ mem8 idx8 ;<<<<<<<<<<<<<<<<<< SC_3 >>>>>>>>>>>>>>>>>>>>>>> ldx #18h jsr Set_DMA ; ldx #10h jsr Set_DMA ;<<<<<<<<<<<<<<<<<<< SC_2 >>>>>>>>>>>>>>>>>>>>>> ldx #04 jsr Set_DMA ;<<<<<<<<<<<<<<<<< SC_3.CGX >>>>>>>>>>>>>>>>>>>> ldx #12h jsr Set_DMA ; ldx #14h jsr Set_DMA ;<<<<<<<<<<<<<<<<<< SC_2.CGX >>>>>>>>>>>>>>>>>>> ldx #16h jsr Set_DMA ;<<<<<<<<<<<<<< ヌキ　セット　>>>>>>>>>>>>>>>>>> mem16 idx16 rep #00110000b lda #1c6ah sta Screen_address ; ldx #0 lda #2050h loop_nuki_set sta Screen_write inx cpx #0010h bne loop_nuki_set ; lda #1c8ah sta Screen_address ; ldx #0 lda #2050h loop_nuki_set1 sta Screen_write inx cpx #0010h bne loop_nuki_set1 ;<<<<<<<<< レース結果文字の上側セット >>>>>>>>>> lda #1c6ch sta Screen_address ; ldx #0 Set_vram lda Race_result,x cmp #0ffffh beq Set_low sta Screen_write inx inx jmp Set_vram ;<<<<<<<< レース結果文字の下側セット >>>>>>>>>>> Set_low lda #1c8ch sta Screen_address ; ldx #0 Set_vram1 lda Race_result1,x cmp #0ffffh beq Red_line_set Set_screen sta Screen_write inx inx jmp Set_vram1 ;<<<<<<<<<<<<<< ライン赤セット >>>>>>>>>>>>>>>>> Red_line_set lda #1cc2h sta Screen_address JSR Set_red ; lda #1d02h sta Screen_address JSR Set_red ;<<<<<<< クラス,カップ,ラウンド　セット >>>>>>>>> ;-------(-結果用)---------- ldy #0008 lda #1ce8h sta Screen_address JSR Cup_set ; Round_set lda #1cf6h sta Screen_address JSR Set_Round ; lda #1ce3h sta Screen_address JSR Class_set ;-------(ランキング用)----- Ranking_cup ldy #0014h lda #10e8h sta Screen_address JSR Cup_set ; Round_set_1 lda #10f6h sta Screen_address JSR Set_Round ; lda #10e3h sta Screen_address JSR Class_set ;<<<<<<<<<<<<<<< キャラクターセット >>>>>>>>>>>> lda #5000h sta Screen_address ; ldx #0400h JSL >Set_4bit_mode1 ;<<<<<<<<<<<<<< キャラクターOAMセット >>>>>>>>>> ldy #0 JSR Cup_character_set ;<<<<<<<<<<<<<<<< 旗のセット >>>>>>>>>>>>>>>>>>> Hata_set ldx #0 lda #00ffh sta msbdat+10h ; ldy #0 ldx #0 position_set lda Position_data,x cmp #0ffffh beq Set_character sta oamdat+100h,y inx inx JSR Y_iny jmp position_set ; Set_character ldx #0 JSR Flag_move ;<<<<<<<<<<<<<<<< CG_SET >>>>>>>>>>>>>>>>>>>>>>> CG_set mem8 sep #00100000b lda #0 sta Color_address ; ldy #0 ldx #4200h Drive_color JSR Color_Set_sub cpy #200h bne Drive_color ; idx8 mem8 sep #00110000b rts ;<<<<< 旗のキャラクターセットサブルーチン >>>>>> Flag_move equ $ mem16 idx16 ldy #0 lda Flag_name,x tax Flag_set lda !0,x cmp #0ffffh beq Flag_owari sta oamdat+102h,y inx inx JSR Y_iny jmp Flag_set Flag_owari rts ;<<<<<<<<<<<<<<<<<< ラインサブ >>>>>>>>>>>>>>> Set_red equ $ ldx #0 lda #289eh Set_vram2 sta Screen_write inx cpx #001ch bne Set_vram2 rts ;<<<<<<<<<<<<< カップセレクトサブ >>>>>>>>>>> Cup_set equ $ lda world_number asl a tax lda Cup_select,x tax JSR Set_V_ram rts ;<<<<<<<<<<<< ラウンドセレクトサブ >>>>>>>>>>> Set_Round equ $ lda map_pointer dec a asl a tax lda Round_select,x tax JSR Set_V_ram rts ;<<<<<<<<<<<<<< クラスセットサブ >>>>>>>>>>>>>> Class_set equ $ lda game_level tax lda Select_class,x tax JSR Set_V_ram rts ; Set_V_ram equ $ loop_round lda !0,x ora Color_data,y cmp #0ffffh beq owari_round sta Screen_write inx inx jmp loop_round owari_round rts ;<<<<<<<<<<< キャラオブジェサブセット >>>>>>>>> Cup_character_set lda #0aaaah sta msbdat+12h ; ldx #0 loop_position lda OAM_position,y sta oamdat+120h,x JSR X_inx iny iny cpx #0018h bne loop_position ; ldy #0 lda world_number cmp #0003h beq Special_set asl a tax lda OBJ_select,x loop_obj sta oamdat+122h,y JSR Y_iny cpy #0018h bne loop_obj rts ; Special_set ldx #0 ldy #0 loop_special lda OBJ_select,x sta oamdat+122h,y inx inx JSR Y_iny cpy #0018h bne loop_special rts ;------------------------------------------------ Race_result DW 3560h,3561h,3562h,3510h,3563h DW 3564h,3565h,0ffffh ; Race_result1 DW 3566h,3567h DW 3568h,3510h,3569h,356ah,356bh DW 0ffffh ; Flag_name DW Flag_data_1,Flag_data_2,Flag_data_3 ; Flag_data_1 DW 2000h,2004h,2002h,2006h,0ffffh ; Flag_data_2 DW 2008h,200ch,200ah,200eh,0ffffh ; Flag_data_3 DW 2020h,2024h,2022h,2026h,0ffffh ; Position_data DW 9830h,0a830h,9840h,0a840h,0ffffh ;(obj data set) OBJ_data1 DW player_r0,0130h,00c0h,0c000h DW player_r1,0130h,00c1h,0c000h DW player_r2,0130h,00c0h,0c000h DW player_r3,0130h,00c1h,0c000h DW player_r4,0130h,00c0h,0c000h DW player_r5,0130h,00c1h,0c000h DW player_r6,0130h,00c0h,0c000h DW player_r7,0130h,00c1h,0c000h DW 0 ; Point_inc DW 0009h,0006h,0003h,0001h DW 0000h,0000h,0000h,0000h ; Cup_select DW Kinoko_cup,flawer_cup DW star_cup,special_cup ; Kinoko_cup DW 2066h,2078h,2069h,2065h,2097h DW 207bh,0e02fh,0ffffh ; flawer_cup DW 207bh,2086h,208bh,209ch,2065h DW 2097h,207bh,0e02fh,0ffffh ; star_cup DW 206ch,206fh,209ch,2065h DW 2097h,207bh,0e02fh,0ffffh ; special_cup DW 206ch,2084h,206bh,2098h,2088h DW 2065h,2097h,207bh,0e02fh,0ffffh ; Round_select DW Round_1,Round_2,Round_3,Round_4,Final ; Round_1 DW 2086h,2062h,208dh,2073h,0e02eh,2050h,2001h,0ffffh Round_2 DW 2086h,2062h,208dh,2073h,0e02eh,2050h,2002h,0ffffh Round_3 DW 2086h,2062h,208dh,2073h,0e02eh,2050h,2003h,0ffffh Round_4 DW 2086h,2062h,208dh,2073h,0e02eh,2050h,2004h,0ffffh Final DW 207bh,2099h,2061h,2074h,2088h,0ffffh ; OAM_position DW 1820h,1830h,1840h,18a8h,18b8h,18c8h DW 1818h,1828h,1838h,18b8h,18c8h,18d8h OBJ_select DW 2b06h,290ah,2908h,2908h,290ah,2b06h ; Select_class DW Small_class,Big_class,special_class Small_class DW 2005h,2000h,202ah,0ffffh Big_class DW 2001h,2000h,2000h,202ah,0ffffh special_class DW 2001h,2005h,2000h,202ah,0ffffh ;============================================================= ;************************************************************ ; MAINE ROUTINE ;************************************************************ ;============================================================= ;********************************************************* ; ランキング用名前セット ;********************************************************* Driver_set equ $ Set_rank mem16 idx16 lda no_setrank stz >>>>>>>>>>>>>>>>>>>>>>>>> Set_result JSR Nuki_set ;<<<<<<<<<<<<<<<< V_RAM アドレスセット >>>>>>>>>>>>>>>>> ldx >>>>>>>>>>>>>>>>>>> Point_UP_set ldx >>>>>>>>>>>>>>>>>>>>> ldx >>>>>>>>>>>>>>>>>>>> ;---(割り算セット)------ ldx >>>>>>>>>>> Color_set_player lda rank_2player jmp Set_1p.color ; Check_2con ldx rank_2player ; Set_1p.color ldx #10h ;color change set. jsr Player_color ldx rank_set ; ldx rank_set ; ldx #12h jsr Player_color ldx >>>>>>>> ;rank_set ldx >>>>>>>>>> owari_rank_set; JSR Rank_set rts ; ;Player_1_set1 JSR Set_buffer_1p ; jmp owari_rank_set ; ;Player_2_set1 JSR Set_buffer_2p ; jmp owari_rank_set ;<<<<<<<<<<<<< カラー書き換え用サブルーチン >>>>>>>>>>>>> Player_color equ $ ldy #0 ;low side color change. loop_color lda kart_set1,y ora Color_data,x sta kart_set1,y iny iny cpy #0080h bne loop_color rts ;<<<<<<<<<<<<<<<<<< 獲得ポイント表示サブ >>>>>>>>>>>>>>> GET_point_set equ $ ;-------( リタイヤチェック)---------- ldx >>>>>>>>> lda >>>>>>>>>>>>>>>>>>> JSR Nuki_set ;<<<<<<<<<<<<<<<<< 表示カウントセット >>>>>>>>>>>>>>> lda >>>>>>>>>>>>>> tax lda point_rank,x sta >>>>>>>>>>>>>>>>>> ldx >>>>>>>>>>>>>>>>> ldx >>>>>>>>>>>>>>>>>>>> Result_check ldy #0 loop_result lda rank_index,y cmp >>>>>>>>>>>> Set_point_inc inc >>>>>>>>>>>>> Set_up ldx >>>>>>>>>>>>>> stz >>>>>>>>>>>>>>>>> Erase_set inc >>>>>>>>>>>>>> Pointup_display lda >>>>>>>>>>>>>>>>>> lda game_mode cmp #0004 bne SE_1con ; lda Trigger_sound_1 ;<<<<<<<<<<<<< ポイント表示　>>>>>>>>>>>>>>>>>>> NO_up_point JSR Point_UP_set JSR GET_point_set owari_up_set rts ;******************************************************* ; ランキングイレースセット ;******************************************************* Erase_Rank equ $ lda >>>>>>>>>>>> mem16 idx16 lda fade_control ;fade in check. beq Result_timer no_result rts ;<<<<<<<<<<<<<<< ディスプレータイマー >>>>>>>>>>>>>> Result_timer JSR Display_timer cmp #0009h bne no_result stz >>>>>>>>>>>>> lda >>>>>>>>>>>>>>>>>>>>>> Flash_result JSR Nuki_set ;<<<<<<<<<<<<<<<< V_RAM アドレスセット >>>>>>>>>>>>> ldx >>>>>>>>>>>>> ldx >>>>>>>>>>>>>>>>>>>>> ldx >>>>>>>>>>>>>>>>>>> Retire_kart ldx #0 Retire_set iny iny lda RETIRE,x cmp #0ffffh beq Color_set sta kart_set,y inx inx jmp Retire_set ;<<<<<<<<<<<<<<<<< カラーセット >>>>>>>>>>>>>>>>>>> Color_set ldx >>>>>>>> lda game_mode cmp #0004 bne Flash_1con ; ldx >>>>>>>>>>>>>>>>> owari_resultset JSR Rank_set rts ; Player_1_set JSR Set_buffer_1p jmp owari_resultset ; Player_2_set JSR Set_buffer_2p jmp owari_resultset ; ;****************************************************** ; サブルーチン集 ;****************************************************** ;<<<<<<<<<<<< ディスプレータイマー >>>>>>>>>>>>> Display_timer equ $ inc >>>>>>>>>>>>>>>> Nuki_set equ $ ldy #0 lda #2050h loop_nuki sta kart_set1,y ;buffer set. iny iny cpy #0080h bne loop_nuki rts ;<<<<<<<<<< Ｖ＿ＲＡＭアドレスセット >>>>>>>>>>>> V_ramset equ $ lda Address_data,x sta name_address ;v_ram address set. rts ;<<<<<<<<<<<<<<<<<< 名前セット >>>>>>>>>>>>>>>>>> Name_set equ $ lda Kart_data,x tax set_name lda !0,x cmp #0ffffh beq name_owari sta kart_set,y inx inx iny iny jmp set_name name_owari rts ; Dakuten_name equ $ lda Kart_data1,x tax set_dakuten lda !0,x cmp #0ffffh beq name_owari sta kart_set1,y inx inx iny iny jmp set_dakuten dakuten_owari rts ;<<<<<<<<<<<<<<<<<< 破線　セット >>>>>>>>>>>>>>>>> Hasen_set equ $ iny iny lda #20a4h sta kart_set,y rts ;<<<<<<<<<<<<<< ランクカウンター >>>>>>>>>>>>>>>>>> Rank_set equ $ inc >>>>>>>>>>>> Set_buffer_1p equ $ lda Address_data,x sta Player_1_rank ; ldx #0 ; loop_flash_ram11 lda kart_set1,x sta Flash_buffer_1p_d,x inx inx cpx #0020h bne loop_flash_ram11 ; ldx #0 loop_flash_ram lda kart_set,x sta Flash_buffer_1p,x inx inx cpx #0034h bne loop_flash_ram rts ; Set_buffer_2p equ $ lda Address_data,x sta Player_2_rank ldx #0 loop_flash_ram1 lda kart_set,x sta Flash_buffer_2p,x inx inx cpx #0034h bne loop_flash_ram1 ; ldx #0 loop_flash_ram12 lda kart_set1,x sta Flash_buffer_2p_d,x inx inx cpx #0020h bne loop_flash_ram12 rts ;<<<<<<<<<<<<< ランキングセットサブ >>>>>>>>>>>>>>>> RANKING_set equ $ ;------(イニシャルセット)--------- stz New_rank_count stz >>>>>>>>>>>>>>>>>> lda #0008 sta >>>>>>>>> revolve_count1 ldx stop_revolve1 stx >>>>>>>>>>>>>>>>>>>> idx16 mem16 tax lda Kart_select,x tax lda #0800h ;revolve speed set. clc adc <_poseQ,X sta <_poseQ,X rts ;<<<<<<<<<<<<<<<<< 走行用振動ｾｯﾄ >>>>>>>>>>>>>>>>>>> SWING_SET equ $ lda <_situationYH,x cmp #00c0h bne Set_down inc a jmp Set_Yposition Set_down dec a Set_Yposition sta <_situationYH,x ;-------(カウントアップ)--------- inc >>>>>>>>>>>>>>>>> MOVE_SET equ $ lda Kart_reset stx >>>>>>>>>>>>>>>>> Chibi_set_sub lda kart_status,x and #4000h beq end_Chibi_set_sub ; lda driver_number,x tax lda Kart_select,x tax lda #0002 sta <_demokart_size,x end_Chibi_set_sub rts ;****************************************************** ; スクロールセット ;****************************************************** Driver_SCROLL equ $ mem16 idx16 lda >>>>>>>>>>>>>>> lda >>>>>>>>>>>> Check_final_set lda map_pointer cmp #0005 bne Set_race ;<<<<<<<<<<<<<< ネキスト セット >>>>>>>>>>>>>>>>>>>> Set_final JSR Rank_Check cpx #0006h bcc Set_award lda #0001 sta Player_rank_flag Set_award lda #0018h ;ファイナルセット jmp Set_selecta ; Set_world lda #0008h ;ワールドセット jmp Set_selecta ; Set_race lda #0002h ;次のレースセット Set_selecta sta BGM_fade_out ; rts ; ;******************************************************** ; 結果、最終チェック ;******************************************************** Result_end equ $ ;<<<<<<<<<<<<<< フラグ　チェック >>>>>>>>>>>>>>>>> mem16 idx16 lda >>>>>>>>>>>>>>> lda >>>>>>>>>>>>>>>>>>> Set_point JSL >Zero_clear ;ゼロページクリアー mem16 idx16 rep #00110000b ldy #OBJ_data1 ;カートオブジェ再セット JSL >Init_demokart ; lda #0027h sta >>>>>>>>>>>>> ;---(アドレスセット)---- lda >>>>>>>>>>>>> Result_Flashing equ $ ;-------(タイマーチェック)-------- Flash_tensou inc >>>>>>>>>>>>> Rank_Flashing equ $ ;-------(タイマーチェック)-------- Flash_tensou1 inc