DEBUG EQU 0 ;********************************************************************* ; mario kart object initial scene ; Programed by H.Yajima ;********************************************************************* INCLUDE ../../SFX/RP5C77 INCLUDE ../../SFX/RP5A22 INCLUDE ../../DSP/D77C25 INCLUDE ../../../kimura/join/work.def INCLUDE ../../../kimura/join/buffer.def INCLUDE ../DEF/object.def include ../DEF/arch.def ;---------------------------------------------------------------------- ext sand_select ;---------------------------------------------------------------------- GLB Scene ;; GLB Set_BG_item GLB Set_VRAMextra GLB Copy_buffer,CLEAR_RAM,Clear_RAM,Execute_VRAM GLB Clear_VRAM GLB DMA_trans GLB CLEAR_SPRITE,Execute_TRANS GLB Set_DBnumber_B,Buffer_pause GLB Set_debugmap ;---------------------------------------------------------------------- EXT SE_trigger_1 EXT car_A,car_B,car_Ab,car_Ba EXT enemycar_A,enemycar_B,endcar_A,endcar_B EXT playercar_A,playercar_B ;- - - - - - - - - - - - - - - - - - - - - - - - EXT Mount_object EXT Mount_pipe,Mount_A,Mount_B EXT kart_Z ;---------------------------------------------------------------------- EXT pole,poleX EXT arch,archX EXT rogo,rogoX EXT tire,tireX ; EXT point,pointX ;(debug) ; EXT test_spriteA,test_spriteB ;(target point) ;---------------------------------------------------------------------- EXT item0,item0X EXT fire,fireX ;---------------------------------------------------------------------- EXT hammer,hammerX ;(BATTLE HUMMER) EXT option,optionX ;(BATTLE FUSEN) EXT ball,ballX ;(BATTLE FIRE) EXT gate ;(ARCH GATE) ;---------------------------------------------------------------------- EXT dokan,dokanX ;(CIRCUIT,SNOW) EXT bubble,bubbleX ;(CASTLE) EXT dossun,dossunX ; EXT wood,woodX ;(WOOD) EXT flower,flowerX ;(FLOWER) EXT poo,pooX ;(GRASS) EXT fish,fishX,move_fish ;(SAND) ;---------------------------------------------------------------------- EXT Decode_7F_X,Decode_7E_X ;---------------------------------------------------------------------- COMN work DS 2 addr DS 4 start_X work_addr DS 2 start_XADD counter DS 2 start_Y obj_A DS 2 start_YADD obj_B DS 2 data_pointer DS 2 data_XADD DS 2 ;---------------------------------------------------------------------- A_flag EQU 1CH ; = Ascreen sprite set ON/OFF flag B_flag EQU 1EH ; = Bscreen sprite set ON/OFF flag ;---------------------------------------------------------------------- EXTEND objdata SECT REL mem16 idx16 ;##################################################################### ; SPRITE SCENE ;##################################################################### ;********************************************************************* ; マップ別イニシャルデータメイン ;********************************************************************* scene_select DW circuit0 ; map 00 DW obake0 ; map 01 DW grass0 ; map 02 DW castle0 ; map 03 DW ice0 ; map 04 ;- - - DW rainbow ; map 05 DW sand0 ; map 06 DW circuit1 ; map 07 circuit 1 DW obake1 ; map 08 obake 1 DW castle1 ; map 09 ;- - - DW dart1 ; map 0A DW grass1 ; map 0B DW ice1 ; map 0C DW sand1 ; map 0D DW circuit2 ; map 0E ;- - - DW circuit3 ; map 0F DW obake2 ; map 10 DW castle2 ; map 11 DW dart2 ; map 12 DW grass2 ; map 13 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - DW battle0 ; map 14 DW battle1 ; map 15 DW battle2 ; map 16 DW battle3 ; map 17 DW battle4 ; map 18 ;--------------------------------------------------------------------- ; ;キノコカップ ;--------------------------------------------------------------------- grass2 DW grid_grass2 ; MAP 13 DW set_kart,set_dokan,0 ;--------------------------------------------------------------------- dart2 DW grid_dart2 ; MAP 12 DW set_kart,set_flower,0 ;--------------------------------------------------------------------- obake2 DW grid_obake2 ; MAP 10 DW set_kart,set_wood,0 ;--------------------------------------------------------------------- castle2 DW grid_castle2 ; MAP 11 DW set_kart,set_bubble,0 ;--------------------------------------------------------------------- circuit1 DW grid_circuit1 ; MAP 7 DW set_kart,set_dokan,0 ;--------------------------------------------------------------------- ; ;フラワーカップ ;--------------------------------------------------------------------- sand1 DW grid_sand1 ; MAP D DW set_kart,set_fish,0 ;--------------------------------------------------------------------- dart1 DW grid_dart1 ; MAP A DW set_kart,set_flower,0 ;--------------------------------------------------------------------- grass0 DW grid_grass0 ; MAP 2 DW set_kart,set_poo,0 ;--------------------------------------------------------------------- castle0 DW grid_castle0 ; MAP 3 DW set_kart,set_bubble,0 ;--------------------------------------------------------------------- circuit3 DW grid_circuit3 ; MAP F DW set_kart,set_dokan,0 ;--------------------------------------------------------------------- ; ;スターカップ ;--------------------------------------------------------------------- obake0 DW grid_obake0 ; MAP 1 DW set_kart,set_wood,0 ;--------------------------------------------------------------------- ice1 DW grid_ice1 ; MAP C DW set_kart,set_icedokan,0 ;--------------------------------------------------------------------- grass1 DW grid_grass1 ; MAP B DW set_kart,set_poo,0 ;--------------------------------------------------------------------- castle1 DW grid_castle1 ; MAP 9 DW set_kart,set_bubble,0 ;--------------------------------------------------------------------- circuit0 DW grid_circuit0 ; MAP 0 DW set_kart,set_dokan,0 ;--------------------------------------------------------------------- ; スペシャルカップ ;--------------------------------------------------------------------- ice0 DW grid_ice0 ; MAP 4 DW set_kart,set_icedokan,0 ;--------------------------------------------------------------------- sand0 DW grid_sand0 ; MAP 6 DW set_kart,set_fish,0 ;--------------------------------------------------------------------- ;dart0 DW grid_dart0 ; MAP 5 ; DW set_kart,set_flower,0 ;--------------------------------------------------------------------- rainbow DW grid_rainbow ; MAP 5 DW set_kart,set_rdossun,0 ;--------------------------------------------------------------------- obake1 DW grid_obake1 ; MAP 8 DW set_kart,set_wood,0 ;--------------------------------------------------------------------- circuit2 DW grid_circuit2 ; MAP E DW set_kart,set_dokan,0 ;--------------------------------------------------------------------- ;--------------------------------------------------------------------- ; バトルゲーム ;--------------------------------------------------------------------- battle0 DW grid_battle0 DW set_kart,set_ball,0 battle1 DW grid_battle1 DW set_kart,set_ball,0 battle2 DW grid_battle2 DW set_kart,set_ball,0 battle3 DW grid_battle3 DW set_kart,set_ball,0 battle4 DW grid_battle4 DW set_kart,set_ball,0 ;********************************************************************* ; コースタイプデータ ;********************************************************************* ; 00 ... おばけ type ; 02 ... サーキット type ; 04 ... 草原 type ; 06 ... ダート type ; 08 ... 氷 type ; 0A ... 海岸 type ; 0C ... クッパ城 type ; 0E ... バトル type ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - type_data db 02h,00h,04h,0ch,08h db 0ch,0ah,02h,00h,0ch db 06h,04h,08h,0ah,02h db 02h,00h,0ch,06h,04h db 0eh,0eh,0eh,0eh,0eh ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; ; 00 ... コース１ ; 02 ... コース２ ; 04 ... コース３ ; 06 ... コース４ ; ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - level_data db 04h,02h,02h,02h,02h db 06h,02h,00h,04h,04h db 02h,04h,00h,02h,06h db 02h,00h,00h,00h,00h db 00h,00h,00h,00h,00h ;********************************************************************* ; ;********************************************************************* pole_attr db 00h,00h,00h,06h db 00h,00h,00h,00h db 00h,06h,00h,00h db 00h,00h,00h,00h db 00h,06h,00h,04h db 00h,00h,00h,00h ;********************************************************************* ; タイプ別コイン書き戻しデータ ;********************************************************************* coin_erase_data db 05h,01h,01h,10h,08h,17h,04h,09h block_erase_data db 00h,08h,08h,08h,08h,08h,08h,09h ;********************************************************************* ; タイプ別 Ｚ座標 あたりチェックデータ ;********************************************************************* ; 障害物が ; data1 000h data2 400h Z= 0.00 - 4.00h で当たり ; data1 001h data2 1000h Z=0 以外で当たり ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - polehit_data1 dw 000h ; おばけ dw 000h ; サーキット ( どかん ) dw 001h ; 草原 ( チョロプー ) dw 000h ; ダート ( パックン ） dw 000h ; 氷 ( どかん ） dw 000h ; 海岸 ( プクプク ) dw 000h ; クッパ城 ( ドシン ) dw 000h ; レインボー polehit_data2 dw 100h ; おばけ dw 100h ; サーキット dw 1000h ; 草原 dw 100h ; ダート dw 100h ; 氷 dw 1000h ; 海岸 dw 0400h ; クッパ城 dw 100h ; レインボー ;********************************************************************* ; タイプ別ネット障害物オフセット position ;********************************************************************* netdata_data db 04h,04h,0ah,04h,04h,04h,04h,04h ;********************************************************************* ; タイプ別色加算プログラムindex ;********************************************************************* maptype_cgdata db 00h,00h,00h,00h,02h,04h,00h,00h ;********************************************************************* ; スタートグリッドセット ;********************************************************************* ;; DW *program ;; DW pole position X, pole positionY ;; DW pole addition X, pole additionY ;-------------------------------------------------------------------- grid_battle4 grid_battle3 grid_battle2 grid_battle1 dw Battle_grid dw 0200h,0188h dw 0200h,0278h grid_battle0 dw Battle_grid dw 0200h,018Ah dw 0200h,0278h ;--------------------------------------------------------------------- ; ;キノコカップ ;--------------------------------------------------------------------- grid_grass2 DW init_grid DW 0090H,0224H-8 ; map 13 DW -020H grid_dart2 DW init_grid DW 0370H,0244H+8 ; map 12 DW 0020H grid_obake2 DW init_grid DW 03B8H,0268H-8 ; map 10 DW 0020H grid_castle2 DW init_grid DW 0390H,02ACH ; map 11 DW 0020H grid_circuit1 DW init_grid DW 0398H,024CH ; map 7 DW 0020H ;--------------------------------------------------------------------- ; ;フラワーカップ ;--------------------------------------------------------------------- grid_sand1 DW init_grid DW 00B8H,0120H ; map D DW -020H grid_dart1 DW init_grid DW 006CH,02A4H+8 ; map A DW -018H grid_grass0 DW init_grid DW 0390H,0268H-8 ; map 2 DW 020H grid_castle0 DW init_grid DW 0050H,0180H ; map 3 DW -020H grid_circuit3 DW init_grid DW 0388H,01C4H ; map F DW 0020H ;--------------------------------------------------------------------- ; ;スターカップ ;--------------------------------------------------------------------- grid_obake0 DW init_grid DW 0068H,0150H-10h ; map 1 DW -020H grid_ice1 DW init_grid DW 00C0H,0224H+8 ; map C DW -020H grid_grass1 DW init_grid DW 0070H,0240H-10h ; map B DW 0028H grid_castle1 DW init_grid DW 0390H,0150H ; map 9 DW 0020H grid_0 grid_circuit0 DW init_grid DW 0060H,01CCH ; map 0 DW -020H ;--------------------------------------------------------------------- ; スペシャルカップ ;--------------------------------------------------------------------- grid_ice0 DW init_grid DW 0368H,021CH-8 ; map 4 DW 0020H grid_sand0 DW init_grid DW 02B8H,0150H-8 ; map 6 DW 0020H ;grid_dart0 DW init_grid ; DW 006CH,0294H+8 ; map 5 ; DW -018H grid_obake1 DW init_grid DW 0068H,0150H-10h ; map 8 DW -020H grid_circuit2 DW init_grid DW 0398H,024CH ; map E DW 0020H grid_rainbow DW init_grid DW 004CH,01D0H ; map 5 DW -018H ;********************************************************************* ; マップ別障害物セット ;********************************************************************* ;-------------------------------------------------------------------- ; 障害物なし！ ;-------------------------------------------------------------------- XX_XX dw mount_entry dw 0 ;-------------------------------------------------------------------- ; ドーナツへいやコース ;-------------------------------------------------------------------- set_poo dw mount_main dw poo_01 ; 障害物セット ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - poo_01 dw mount_obake db 4,4 dw init_poo dw poo,pooX ;-------------------------------------------------------------------- ; チョコレーとうコース ;-------------------------------------------------------------------- set_flower dw mount_main dw flower_01 ; 障害物セット ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - flower_01 dw mount_obake db 4,4 dw init_dokan dw flower,flowerX ;-------------------------------------------------------------------- ; おばけだにコース ;-------------------------------------------------------------------- set_wood dw mount_main dw wood_01 ; 障害物セット ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - wood_01 dw mount_obake db 4,4 dw init_dokan dw wood,woodX ;-------------------------------------------------------------------- ; クッパじょうコース ;-------------------------------------------------------------------- set_bubble dw mount_main dw bubble_01 ; 障害物セット ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - bubble_01 dw mount_obake db 4,4 dw init_dokan dw dossun,dossunX ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - set_rdossun dw mount_main dw rd_01 ; 障害物セット ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - rd_01 dw mount_obake db 4,4 dw init_dokan dw rainbow_dossun,rainbow_dossunX ext rainbow_dossun,rainbow_dossunX ;-------------------------------------------------------------------- ; バニラせつげんコース ;-------------------------------------------------------------------- set_icedokan dw mount_main dw icedokan_01 ; 障害物セット ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - icedokan_01 dw mount_obake db 4,4 dw init_dokan dw dokan,dokanX ;-------------------------------------------------------------------- ; ノコノコかいがんコース ;-------------------------------------------------------------------- set_fish dw mount_main dw fish_01 ; 障害物セット ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - fish_01 dw mount_obake db 4,4 dw init_fish dw fish,fishX ;-------------------------------------------------------------------- ; マリオサーキット ;-------------------------------------------------------------------- set_dokan dw mount_main dw dokan_01 ; 障害物セット ;- - - - - - - - - - - - - - - - - - - - - - - - dokan_01 dw mount_obake db 4,4 dw init_dokan dw dokan,dokanX ;-------------------------------------------------------------------- ; バトルコース ;-------------------------------------------------------------------- set_ball dw mount_main dw ball_00 dw ball_00 dw ball_00 ball_00 dw mount_entry ;- - - - - - - - - - - - - - - - - - - - - ;=== 風船アトリビュート === ; 0000 青 ; 0200 黄色 ; 0e00 赤 ;- - - - - - - - - - - - - - - - - - - - - dw clear_ball dw pole_r0 ; 1P のバリアオプション dw 0A000h,0 dw player_r0,0 dw ball,ballX dw pole_r1 ; 1P のバリアオプション dw 0A000h,0 dw player_r0,05000h dw ball,ballX dw pole_r2 ; 1P のバリアオプション dw 0A000h,0 dw player_r0,0a000h dw ball,ballX dw pole_r3 ; 2P のバリアオプション dw 0A000h,0e00h dw player_r1,0 dw ball,ballX dw pole_r4 ; 2P のバリアオプション dw 0A000h,0e00h dw player_r1,05000h dw ball,ballX dw pole_r5 ; 2P のバリアオプション dw 0A000h,0e00h dw player_r1,0a000h dw ball,ballX dw 0 ;- - - - - - - - - - - - - - - - - - - - - clear_ball tax ; data set lda !2,y sta <_status,x lda !4,y sta <_attribute,x lda !6,y sta <_option_owner,x lda !8,y sta <_option_Q,x tya ; counter inc clc adc #8 tay rts ;********************************************************************* ; kart data ;********************************************************************* set_kart DW mount_kart,SEQ_register DW nomal_kart ;(0)GP DW p1_kart ;(1)GP_1 DW p2_kart ;(2)GP_2 DW nomal_kart ;(3)VS DW p1_kart ;(4)TM_1 DW p2_kart ;(5)TM_2 DW nomal_kart ;(6)BT DW ending_kart1 ;(7) DW ending_kart2 ;(8) ;-------------------------------------------------------------------- p1_kart DW playercar_A,car_Ba ; player 1 DW enemycar_A,enemycar_B ; player 2 (enemy) DW enemycar_A,enemycar_B ; enemy ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - p2_kart DW enemycar_A,enemycar_B ; player 1 (enemy) DW car_Ab,playercar_B ; player 2 DW enemycar_A,enemycar_B ; enemy ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - nomal_kart DW playercar_A,car_B ; player 1 DW car_A,playercar_B ; player 2 DW enemycar_A,enemycar_B ; enemy ;-------------------------------------------------------------------- ending_kart1 ending_kart2 DW endcar_A,endcar_B ; enemy DW endcar_A,endcar_B ; enemy DW endcar_A,endcar_B ; enemy ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;playercar_A ; プレイヤーが操作するメインカート ;car_Ba ; メインカートの固定表示 ; ; メインカートの計算表示 ( マップ用　） ;car_B ; メインカートの計算表示 ;enemycar_A ; 敵カート(計算表示) ;********************************************************************* ; FLAG DATA ;********************************************************************* _on EQU 0FFH _off EQU 000H ;---------------------------------------------------------------------- camera_1p DW 5,1,1,3,3,3,3 camera_2p DW 6,2,2,4,4,4,4 ;---------------------------------------------------------------------- A_flag_data DB _on ;(0) VS DB _on ;(1) only 1p DB _on ;(2) only 2p DB _on ;(3) map 1p DB _off ;(4) map 2p DB _on ;(5) nothing_1p DB _off ;(6) nothing_2p B_flag_data DB _on ;(0) VS DB _on ;(1) only 1p DB _on ;(2) only 2p DB _off ;(3) map 1p DB _on ;(4) map 2p DB _off ;(5) nothing_1p DB _on ;(6) nothing_2p ;##################################################################### ;********************************************************************* ; SCENE INITIAL PROGRAM ;********************************************************************* UPscreen_player DW player_r0,player_r0,0C000H DW player_r0,player_r0,player_r0 DWscreen_player DW player_r1,0C000H,player_r1 DW player_r1,player_r1,player_r1 player_goal DW 0,1,1,0,0,0 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - system_data dw 0 ; GP dw 1 ; GP-1P dw 2 ; GP-2P dw 0 ; VS dw 1 ; TM-1P dw 2 ; TM-2P dw 0 ; BATTLE ;--------------------------------------------------------------------- Scene ;<< set system >> ;- - - - - - - - - - - - - - - - - - - - - - - - - lda #sand_select sta !sand_camera ;- - - - - - - - - - - - - - - - - - - - - - - - - LDX > STZ !battle_flag SEP #00100000B MEM8 LDA !A_flag_data,Y STA > lda #BANK SE_trigger_1 sta !screen_sound+2 ;- - - - - - - - - - - - - - - - - - - - - - - - - ;<< コースレベルのセット >> SEP #00110000B MEM8 IDX8 LDY !map_number LDA !level_data,Y STA !course_level+0 STZ !course_level+1 ;<< 障害アトリビュートのセット >> LDA !pole_attr,y STA !pole_attribute+1 ;<< コースタイプのセット >> LDA !type_data,Y STA !course_type+0 STZ !course_type+1 ;<< ダークマップのセット >> lda !map_type sta !dark_map lda !map_number cmp #5 ; レインボーロード？ bne dark_skip$ stz !dark_map dark_skip$ ;<< スピンアトリビュートのセット >> lda !map_type LSR A TAY ; Y= course type LDA !map_attr,Y STA !spin_attribute+0 ;<< コインクリアキャラのセット >> LDA !coin_erase_data,Y STA !coin_erase_char LDA !block_erase_data,Y STA !block_erase_char LDA !netdata_data,Y STA !netdata_offset+0 STZ !netdata_offset+1 ;<<マップによる色加算データ分岐index>> LDA !maptype_cgdata,Y STA !maptype_color+0 STZ !maptype_color+1 REP #00110000B MEM16 IDX16 ;<<障害物 Ｚ座標 あたりチェック用バッファ >> ldy #2 lda !map_number cmp #13h ; 1-1 だけはドカンでチェック beq skip$ ldy !course_type skip$ lda !polehit_data1,y sta !polehit_1 lda !polehit_data2,y sta !polehit_2 ;- - - - - - - - - - - - - - - - - - - - - - - - - ;<< ＯＡＭデータの展開 >> ldy #OFFSET ROM_oamdata lda #BANK ROM_oamdata ldx #OFFSET OAM_databuffer jsl >Decode_7E_X lda #0f000h sta >7e2d73h lda #00000h sta >7e2d96h SEP #00100000B MEM8 lda #00h sta >7e2dbdh sta >7e2daah REP #00100000B MEM16 ;--------------------------------------------------------------------- ; マップによる初期セット ;--------------------------------------------------------------------- scene_main LDA !map_number ASL A TAX LDY !scene_select,X scene_loop LDX !0,Y BEQ scene_exit PHY ;>> JSR (!0,X) ; << INITIAL SPRITE >> PLY ;<< INY INY BRA scene_loop scene_exit ;--------------------------------------------------------------------- ; モードによる初期セット ;--------------------------------------------------------------------- LDX > ２番グリッド LDA > ldy kart_Z ; Z position initial STA <_situationZH,X INY INY BRA grid_loop ;- - - - - - - - - - - - - - - - - - - - - - grid_exit RTS ;********************************************************************* ; カートＯＢＪコントロールブロックイニシャル ;********************************************************************* ; player_r0 １Ｐ用ワーク ; player_r1 ２Ｐ用ワーク ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - mount_kart STX > LDY Mount_A LDA !10,Y common_skip JSL >Mount_B next_data PLY ;<< INY INY BRA kart_loop ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - kart_exit RTS ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - set_player_r0 lda <_flag,x beq next_data LDA !0,Y JSL >Mount_A LDA !2,Y BRA common_skip set_player_r1 lda <_flag,x beq next_data LDA !4,Y JSL >Mount_A LDA !6,Y BRA common_skip ;********************************************************************* ; 障害物セットメイン ;********************************************************************* ; 障害セット ; dw mount_main ; dw *data_pointer :2 ; dw *xxxxx ;- - - - - - - - - - - - - - - - - - mount_main STX Mount_A INY INY LDA !2,Y ; Set screen B vector JSL >Mount_B INY INY BRA mount_loop mount_exit RTS ; ;********************************************************************* ; 固定ＯＢＪ (障害物) のマウント ;********************************************************************* sos equ 00 mount_index equ 04 mount_init equ 06 mount_objA equ 08 mount_objB equ 10 mount_posdata equ 12 ; 4byte mount_counter equ 16 mount_offsetX equ 18 mount_offsetY equ 20 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - IF 0 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - mount_12obj JSR Set_counter ;- - - - - - - - - - - - - - - - - - - - - - - LDA !map_number ; position backup address XBA LSR A LSR A TAY LDA #ROM_posdata STA > LDX #0 JSR (!mount_init,X) LDA Mount_A LDA Mount_B PLX ; << INX INX DEC Mount_pipe ;- - - - - - jsr clear_velocity stz <_situationZH,x stz <_attribute,x ;- - - - - - - - - - - - - - TXA CLC ADC #40H TAX ;- - - - - - - - - - - - - - LDA Mount_pipe ;- - - - - - jsr clear_velocity stz <_situationZH,x stz <_attribute,x ;- - - - - - - - - - - - - - PLX ; << INX INX DEC > AND #0007FH ASL A ASL A ASL A ADC > ;- - - - - - - - - - - - - - - - - - - - phx ; >> ldy #030h ; ワーク 0 クリア loop$ stz <40h,x ; 40h,50h,60h,70h,80h,90h inx inx dey bne loop$ plx ; << ;- - - - - - - - - - - - - - - - - - - - ldy <_status,x ; 強さセット lda !HP_data,y sta <_HP,x ;;; stz <_muteki_timer,x stz <_kart_handle,x ; ハンドルクリア lda Execute_VRAM PLB RTL ;--------------------------------------------------------------------- alpha_p2 DB 80H ; 1 Screen step DW VRAM_alpha+1000H ; 2 VRAM address DW 1801H ; 4 DMA parameter DL ISPK_buffer ; 6 A bus address DW COUNT_alpha ; 9 byte count ;--------------------------------------------------------------------- ext Init_round Set_VRAMextra ; jsr Init_round ;- - - - - - - - - - - - - - - - - - - ; リプレイ OBJ SET ;- - - - - - - - - - - - - - - - - - - ldx Set_over_char jsl >Open_gameover ldx #DMA_character jsl >Call_bank0 rts ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ext Set_over_char,Open_gameover ext DMA_character,Call_bank0 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; ; ; ; ; ; ; ; ; ; ; ;********************************************************************* ; リプレイメッセージセット ;********************************************************************* ext Message_sprite Init_repmes ldy #data_replay ldx #BFreplay jsr Buffer_pause ldx #vram_replay jsl >Execute_VRAM lda #200h sta special code data_replay db 87h,7bh,89h,61h,2fh db 2fh,2fh,2fh,2fh,00h ;- - - - - - - - - - - - - - - - - - - - - - - - - vram_replay db 80H ; 1 Screen step dw 5270h ; 2 VRAM address dw 1801H ; 4 DMA parameter dl BFreplay ; 6 A bus address dw 120h ; 9 byte count ;********************************************************************* ; 失格バッファセット ;********************************************************************* Init_outchar ;- - - - - - - - - - - - - - - - - - - - - - - - - lda Clear_RAM ldy #out_set_1 ldx #BFoutchar+000h jsr Buffer_pause ldy #out_set_2 ldx #BFoutchar+200h jsr Buffer_pause bra exit$ ;- - - - - - - - - - - - - - - - - - - - - - - - - skip$ ldx #BFendnext ; TM/BT/VS 用 ldy #endnext_set jsr Buffer_pause ;- - - - - - - - - - - - - - - - - - - - - - - - - exit$ ldy #pause_set_1 ldx #BFpausechar jmp Buffer_pause ;- - - - - - - - - - - - - - - - - - - - - - - - - out_set_1 db 3eh,4ah,51h,54h,92h,00h out_set_2 db 4bh,4dh,55h,57h,93h,00h out_clear DW 0000h DL BFoutchar DW 400h ;- - - - - - - - - - - - - - - - - - - - - - - - - pause_set_1 db 0e0h,0e1h,0e2h,0e3h,0e4h,0e5h,03bh,04eh db 03ch,035h,049h,031h,033h,053h,057h,044h db 0f0h,0f1h,0f2h,0f3h,0f4h,034h,05bh,058h db 02fh,087h,073h,086h,061h,03ch,05bh,058h db 00h ;- - - - - - - - - - - - - - - - - - - - - - - - - endnext_set db 087h,07bh,089h,061h,073h,0e5h,061h,079h db 069h,09ch,06ch,070h,08ch,08dh,06bh,02eh db 02fh,087h,073h,086h,061h,03ch,05bh,058h db 086h,034h db 00h ;- - - - - - - - - - - - - - - - - - - - - - - - - pasue_set_2 pause_clear dw 0 dl BFpausechar dw 400h ;##################################################################### ; UTILITY ;##################################################################### ;********************************************************************* ; ポーズキャラをバッファへセット ;********************************************************************* ; y = データポインタ ; x = ７Ｆバンクコピー先アドレス ; ;- - - - - - - - - - - - - - - - - - - Buffer_pause lda #BANK MOJI_buffer sta > tay jsr copy_data ply ; << iny bra loop$ exit$ rts ;= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = copy_data lda #10h sta 7f0000h,x iny iny inx inx dec 7F0000H,X ; read data STA !Screen_write+0 INX INX DEY BNE loop1$ RTS ;********************************************************************** ; １６進 --> １０進 変換テーブル ;********************************************************************** ;********************************************************************** ; アイテム自動作成ツール ;********************************************************************** Set_debugmap lda !rom_checker bra rom$ ; xx ROM READ ONLY xx ram$ lda !map_number xba lsr a adc #BGunit_buffer tax ldy #Question_buffer lda #80h-1 phb mvn #BGunit_buffer/65536,#Question_buffer/65536 plb rtl rom$ lda !map_number xba lsr a adc #BGunit_ROM tax ldy #Question_buffer lda #80h-1 phb mvn #BGunit_ROM/65536,#Question_buffer/65536 plb rtl ;********************************************************************** ; ベタキャラクターをつくる ;********************************************************************** ; | ; LDX #0EH*4 ;ベタパレット(*4) ; LDA #5200H ;ＶＲＡＭアドレス ; JSR Set_beta ; | ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Set_beta JSR set_beta ; 4x4 size beta ADC #10H JSR set_beta ADC #0F0H JSR set_beta ADC #10H ;- - - - - - - - - - - - - - - - - - - - - - - set_beta PHA ; 1x1 size beta LDY #80H STY !Screen_step STA !Screen_address LDY #8 LDA !beta_data+0,X loop1$ STA !Screen_write DEY BNE loop1$ LDY #8 LDA !beta_data+2,X loop2$ STA !Screen_write DEY BNE loop2$ PLA CLC RTS ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - beta_data DW 00000h,00000h ; 0 DW 000ffh,00000h ; 1 DW 0ff00h,00000h ; 2 DW 0ffffh,00000h ; 3 DW 00000h,000ffh ; 4 DW 000ffh,000ffh ; 5 DW 0ff00h,000ffh ; 6 DW 0ffffh,000ffh ; 7 DW 00000h,0ff00h ; 8 DW 000ffh,0ff00h ; 9 DW 0ff00h,0ff00h ; A DW 0ffffh,0ff00h ; B DW 00000h,0ffffh ; C DW 000ffh,0ffffh ; D DW 0ff00h,0ffffh ; E DW 0ffffh,0ffffh ; F ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;********************************************************************** ; sprite buffer clear ;********************************************************************** CLEAR_SPRITE PHB PHK PLB LDX #clear_sprite JSL >CLEAR_RAM PLB RTL ;----------------------------------------------------------------------- clear_sprite DW sprite_main,sprite_sub,oam_main,oam_sub,0 sprite_main DW 0E080H DL sprite_Abuffer+0 DW 200H sprite_sub DW 0 DL sprite_Abuffer+sprite_E DW 20H oam_main DW 0E080H DL sprite_Bbuffer+0 DW 200H oam_sub DW 0 DL sprite_Bbuffer+sprite_E DW 20H ;********************************************************************** ; Execute DMA ;********************************************************************** ;<> LDX #DP ; JSL >Execute_VRAM ;DP DB 80H ; 1 Screen step ; DW 7000H ; 2 VRAM address ; DW 1801H ; 4 DMA parameter ; DL 000000H ; 6 A bus address ; DW 0000H ; 9 byte count ;---------------------------------------------------------------------- Execute_VRAM LDA !3,X ;W DMA parameter STA !DMA_0+0 ;W LDA !5,X ;W DMA Abus address STA !DMA_0+2 ;W LDA !7,X ;W(B) DMA Abus bank STA !DMA_0+4 ;W(B) LDA !8,X ;W DMA byte count STA !DMA_0+5 ;W LDA !0,X ;W(B) STA !Screen_step ;W(B) VRAM inc LDA !1,X ;W STA !Screen_address ;W VRAM address SEP #00110000B MEM8 IDX8 LDA #00000001B ;B DMA channel 0 start STA !DMA_burst ;B REP #00110000B MEM16 IDX16 RTL ;---------------------------------------------------------------------- ; LDX #DP ; LDA #address ; JSL >Execute_TRANS ;DP DB 80H ; 0 Screen step ; DW 7000H ; 1 VRAM address ; DW 1801H ; 3 DMA parameter ; DB 00H ; 5 A bus bank ; DW 0000H ; 6 byte count ;---------------------------------------------------------------------- Execute_TRANS STA !DMA_0+2 ;W LDA !3,X ;W DMA parameter STA !DMA_0+0 ;W LDA !6,X ;W DMA byte count STA !DMA_0+5 ;W LDA !0,X ;W(B) STA !Screen_step ;W(B) VRAM inc LDA !1,X ;W STA !Screen_address ;W VRAM address SEP #00100000B MEM8 LDA !5,X ;B DMA Abus bank STA !DMA_0+4 ;B LDA #00000001B ;B DMA channel 0 start STA !DMA_burst ;B REP #00100000B MEM16 RTL ;---------------------------------------------------------------------- ; | ; LDX #ROMaddress ; LDA #data_count+ROMbank*100H ; LDY #vram_address ; JSL DMA_trans ; | ; data_count 1 = 10H ; 10H = 100H ;---------------------------------------------------------------------- DMA_trans PHA STX !DMA_0+DMA_address+0 ;W AND #00FFH ASL A ASL A ASL A ASL A STA !DMA_0+DMA_count+0 ;W PLA SEP #00100000B MEM8 XBA STA !DMA_0+DMA_address+2 ;B bank LDX #1801H ;W low,high 2byte STX !DMA_0+DMA_control ;W LDA #80H ;B STA !Screen_step ;B hi inc STY !Screen_address ;W LDA #00000001B ;B STA !DMA_burst ;B REP #00100000B MEM16 RTL ;********************************************************************* ; RAM clear ;********************************************************************* ;example ; LDX #PP ; JSL >CLEAR_RAM ;PP DW DP,DP,DP,0 ;------ ; LDX #DP ; JSL >Clear_RAM ;DP DW 0000H ( 2 byte clear patern ) ; DL 7F0000H ( RAM start address ) ; DW 4000H ( RAM clear count ) ; ; ldx #address ; lda #bank ; ldy #clear_count ; jsl >zero_ram ;--------------------------------------------------------------------- zero_ram CLEAR_RAM TXY loop_RAM LDX !0,Y ; read data BEQ exit_RAM JSL >Clear_RAM INY INY BRA loop_RAM exit_RAM RTL ;--------------------------------------------------------------------- Clear_RAM PHY ;>> SEP #00100000B MEM8 LDA !0,X ; Low ( Clear parameter ) STA !211BH LDA !1,X ; High STA !211BH LDA #1 STA !211CH STA !211CH ;---------------------------------------------------------------- LDY #3481H ; DMA parameter STY !DMA_0+0 LDY !2,X ; DMA Abus address STY !DMA_0+2 LDA !4,X ; DMA Abus bank STA !DMA_0+4 LDY !5,X ; DMA byte count STY !DMA_0+5 LDA #00000001B ; DMA channel 0 start STA !DMA_burst REP #00100000B MEM16 PLY ;<< RTL ;********************************************************************** ; VRAM clear ( DMA VRAM clear ) ;********************************************************************** ;example LDX #DP ; JSL >Clear_VRAM ;DP DW 0000H ( 2 byte clear patern ) ; DW 0000H ( VRAM start address ) ; DW 4000H ( VRAM clear count ) ;-------------------------------------------------------------------- Clear_VRAMlow PHY ;>> LDY !4,X ;W X=(low data)pointer JSR low_clear BRA VRAM_exit Clear_VRAM PHY ;>> LDY !4,X ;W X=(low_data)pointer JSR low_clear INX ;W X=(high_data)pointer JSR high_clear VRAM_exit PLY ;<< RTL ;---------------------------------------------------------------------- low_clear LDA !2,X ; write VRAM address low_clear_entry STZ !Screen_step ; low inc STA !Screen_address+0 LDA #1808H ; 2118H / 1 byte BRA VRAM_clear ; ;---------------------------------------------------------------------- high_clear LDA #80H ; hi inc STA !Screen_step LDA !1,X ; write VRAM address STA !Screen_address+0 LDA #1908H ; 2119H / 1 byte BRA VRAM_clear ; ;---------------------------------------------------------------------- VRAM_clear STA !DMA_0+0 STX !DMA_0+2 ; ROM address STY !DMA_0+5 ; byte count ;---------------------------------------------------------------------- SEP #00100000B MEM8 PHB ;> data bank read PLA ;< STA !DMA_0+4 ; ROM bank LDA #00000001B ; DMA start STA !DMA_burst REP #00100000B MEM16 RTS ;********************************************************************** ; ROM -> RAM ( nomal copy ) ;********************************************************************** ;<> ; LDX #DP ; JSR Copy_buffer ;<> ; DW 1000H ( data byte count ) ; DL 048000H ( input data address ) ; DL 001000H ( output data address ) ; DW 0 ( end code ) ;---------------------------------------------------------------------- input_addr EQU 0 output_addr EQU 4 ;---------------------------------------------------------------------- Copy_buffer LDY !0,X BEQ copy_exit LDA !2,X ;W address STA > ; ; X = Read RAM address ( 7F bank ) ; ( ＯＢＪキャラ ) ; Y = Write RAM address ( 7F bank ) ; ( モード７キャラ ) ; A(low) = character count ( 1 - 255 ) ; (high) = attribute ( 0 - F ) ; ; mem=16,idx=16 ; ; | ; JSL >Convert_m1m7 ; | ; ; mem=16,idx=16 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - workX EQU 0 work0 EQU workX+02 work1 EQU workX+04 work2 EQU workX+06 work3 EQU workX+08 buff_pointer EQU workX+10 loop_counter EQU workX+12 line_counter EQU workX+14 char_counter EQU workX+16 palet EQU workX+18 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - GLB Convert_m1m7 ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Convert_m1m7 PHB ;- - - - - - - - - - - - - - PHA ;>> TXA TYX ; X = write address TAY ; Y = read address ;- - - - - - - - - - - - - - PLA ;<< SEP #00100000B MEM8 STA 7f0000H,X INX DEC