;********************************************************************* ; mario kart backup record program ;********************************************************************* GLB REC_main,REC_init,REC_nmi ;---------------------------------------------------------------------- glb Save_laptime glb REC_test glb Check_backupRAM ext Message_sprite ;---------------------------------------------------------------------- ; INCLUDE ../../SFX/RP5C77 INCLUDE ../../SFX/RP5A22 INCLUDE ../../DSP/D77C25 INCLUDE ../../../kimura/join/work.def INCLUDE ../../../kimura/join/buffer.def INCLUDE ../DEF/object.def ;---------------------------------------------------------------------- Backup_RAM equ 700000h Backup_time equ Backup_RAM+660H ;---------------------------------------------------------------------- rec_buffer equ 1b00h backup_pointer equ 1bc0h ;---------------------------------------------------------------------- comn work ds 2 EXTEND objdata SECT REL mem16 idx16 ;********************************************************************* ; バックアップＲＡＭコントロール ;********************************************************************* REC_main REC_init REC_nmi RTL ;##################################################################### ; ; タイムアタック ; ;##################################################################### ;= INITIAL = = = = ;********************************************************************* ; サムチェックルーチン ;********************************************************************* ;タイムアタックのデータが有効かどうかチェック ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Check_backupRAM PHB PHK PLB lda #0 loop$ pha jsr check_timedata pla inc a cmp #20 bne loop$ plb rtl ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - check_timedata ora #1400h ;マップによるバッファアドレス算出 jsr ML_u8u8 tax jsr Checksum_map ;チェックサムＯＫか？ beq Init_backup cmp >Backup_time+0,x bne Init_backup rts ;-------------------------------------------------------------------- ; コースタイムのイニシャル ;-------------------------------------------------------------------- Init_backup ;- - - - - - - - - - - - - - - - - - - - - - - - - - ;ラップタイムトータルサム! lda #05e8h sta >Backup_time+0,x inx inx ;- - - - - - - - - - - - - - - - - - - - - - - - - - ;ラップタイム初期データセット! ldy #6 SEP #00100000B MEM8 loop$ lda #099h sta >Backup_time+0,x lda #059h sta >Backup_time+1,x lda #00ah sta >Backup_time+2,x inx inx inx dey bne loop$ REP #00100000B MEM16 ;- - - - - - - - - - - - - - - - - - - - - - - - - - rts ;-------------------------------------------------------------------- ;= = Display = = = = = = = = ;********************************************************************* ; レコードタイム表示ルーチン ;********************************************************************* ;レコード表示 pos_record equ 2020h record_1 equ 2068h record_2 equ 2068h+256*(0ch*1) record_3 equ 2068h+256*(0ch*2) record_4 equ 2068h+256*(0ch*3) record_5 equ 2068h+256*(0ch*4) pos_lap equ 2020h+256*(0ch*5+03h) lap_1 equ 2068h+256*(0ch*5+03h) ;-------------------------------------------------------------------- REC_test ;- - - バックアップのアドレス - - - - - lda !map_number ora #1400h jsr ML_u8u8 sta !backup_pointer ;- - - 順位同着チェック - - - - - jsr Check_bestrank ;- - - タイトル表示 - - - - - - lda #pos_record ldy #best_record ldx #04h jsr Message_sprite2 ;- - - ベストレコード - - - - ldy #rec_buffer+00h ; 1st jsr Disp_best ldx #04h lda !best_number cmp #0 bne s1 ldx #02h s1 lda #record_1 jsr Message_sprite2 ldy #rec_buffer+20h ; 2nd jsr Disp_best ldx #04h lda !best_number cmp #1 bne s2 ldx #02h s2 lda #record_2 jsr Message_sprite2 ldy #rec_buffer+40h ; 3rd jsr Disp_best ldx #04h lda !best_number cmp #2 bne s3 ldx #02h s3 lda #record_3 jsr Message_sprite2 ldy #rec_buffer+60h ; 4th jsr Disp_best ldx #04h lda !best_number cmp #3 bne s4 ldx #02h s4 lda #record_4 jsr Message_sprite2 ldy #rec_buffer+80h ; 5th jsr Disp_best ldx #04h lda !best_number cmp #4 bne s5 ldx #02h s5 lda #record_5 jsr Message_sprite2 ;- - - タイトル表示 - - - - - - ldy #best_lap lda #pos_lap ldx #06h jsr Message_sprite2 ;- - - ベストラップ - - - - ldy #rec_buffer+0a0h ; bestlap jsr Disp_best ldx #06h lda !best_flag and #0fh beq s6 ldx #02h s6 lda #lap_1 jmp Message_sprite2 ; include rec.src ; Message_sprite2 clc adc !best_Voffset jmp Message_sprite ;********************************************************************* ; 順位同着チェック ;********************************************************************* Check_bestrank lda #winner_data sta <0 ldy #rec_buffer+00h ldx !backup_pointer inx inx bra entry$ ;- - - - - - - - - - - - - - - - - - - - - - - - ; 同着チェック loop$ lda >Backup_time+0,x cmp >Backup_time+3,x bne next$ SEP #00100000B MEM8 lda >Backup_time+2,x cmp >Backup_time+5,x REP #00100000B MEM16 beq skip$ ;- - - - - - - - - - - - - - - - - - - - - - - - next$ inc <0 inc <0 skip$ inx inx inx entry$ lda (<0) sta !1,y ; laptime tya clc adc #20h tay cmp #rec_buffer+0a0h bne loop$ lda #2c2ch ; total sta !1,y ;- - - - - - - - - - - - - - - - - - - - - - - - rts winner_data dw 9001h,9502h,9603h,9b04h,9b05h ;********************************************************************* ; タイム表示ルーチン ;********************************************************************* ; ; バックアップタイムの表示 ; ; ; ; ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Disp_best phy ;>> ;- - - - - - - - - - - - - - - - - - - - - - - ;順位 index tya and #0f0h ; 00,20,40,60,80,a0 LSR A LSR A LSR A LSR A LSR A ora #0300h jsr ML_u8u8 clc adc !backup_pointer tax ; buffer index inx ; sum check inx ;- - - - - - - - - - - - - - - - - - - - - - - SEP #00100000B MEM8 lda #29h ; アトリビュート sta !0,y ;;; = = = = 1,y / 2,y = = = = ;;; lda #2ch sta !3,y lda >Backup_time+2,x ; 1 分 and #0fh cmp #0ah bcc skip$ jmp over_flow skip$ sta !4,y lda #28h sta !5,y lda >Backup_time+1,x ; 10 秒 pha LSR A LSR A LSR A LSR A sta !6,y pla and #0fh ; 1 秒 sta !7,y lda #29h sta !8,y lda >Backup_time+0,x ; 1/10 秒 pha LSR A LSR A LSR A LSR A sta !9,y pla and #0fh sta !10,y ;- - - - - - - - - - - - - - - - - - - - - - - lda #2ch ;スペース sta !11,y REP #00100000B MEM16 lda >Backup_time+2,x and #0f0h LSR A LSR A LSR A tax lda !time_player,x tax SEP #00100000B MEM8 loop$ lda !0,x ; キロク保持者 name sta !12,y cmp #0ffh beq exit$ inx iny bra loop$ exit$ REP #00100000B MEM16 ply ;<< rts ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - mem8 over_flow ldx #0 loop$ lda !over_data,x sta !1,y cmp #0ffh beq exit$ iny inx bra loop$ exit$ REP #00100000B MEM16 ply rts ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - over_data db 2ch,2ch,2ch db 9ch,28h,9ch,9ch,29h,9ch,9ch db 2ch,9ch,9ch,9ch,9ch,0ffh time_player dw mario,luige,kuppa,peach dw cong,kame,kinopio,yossy ;= = = = CALC ( data save ) = = = = = ;********************************************************************* ; ラップタイムのセーブチェック ;********************************************************************* time_min equ 0 time_sec equ 2 backup_index equ 4 temp equ 6 backup_name equ 8 backup_escape equ 10 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - _round equ 20h ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - Save_laptime lda > ldx Backup_time+13h,x ; best lap and #0fh cmp Backup_time+11h,x ; best lap cmp Backup_time+11h,x SEP #00100000B MEM8 lda Backup_time+13h,x REP #00100000B MEM16 exit$ plx ; << ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; レコードラップのテスト ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - lap_record lda <_round+0,x ; total time sta best_number cpx #5 beq return$ ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; レコードタイムの書き込み ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - iny iny iny copy$ lda best_flag+1 lda Backup_time+0,x adc > lda