;******************* Final.asm ************************* extend ;----------------------------------------------------- include ../join/rp5c77 include ../join/buffer.def include ../join/rp5a22 include ../join/work.def include ../join/label.def include ../join/object.def ;----------------------------------------------------- ext Set_DMA,PPU_INT_SET,Rotate_mode7 ext KEY_CHECK ; glb Final_init,Final_main,Final_nmi glb OBJ_ERASE,X_inx,Y_iny ;----------------------------------------------------- addr equ 60h ;3byte Pose_counter equ 63h Pose_timer equ 65h Pose_flag equ 67h button_TG equ 6ah ;4byte Fight_counter equ 6eh ; Set_address equ 70h Scroll_X equ 72h ;3byte Center_X equ 75h Move_flag equ 77h Patern_counter equ 79h Cmp_check equ 7bh Angle_set equ 7dh Zoom_set equ 7fh ; Center_Y equ 81h ;3byte Scroll_Y equ 84h revolve_flag equ 86h Scroll_speed equ 88h MAKU_counter equ 8ah maku_flag equ 8ch Champgne_timer equ 8eh ; kage_flag equ 90h Maku_position equ 92h OBJ_check_flag equ 96h MAKU_move_flag equ 98h MAKU_speed_cmp equ 9ah V_pos_dec equ 9ch Patapata_speed equ 9eh ; X_cmp equ 198h Rom_offset equ 19ah Zannen_counter equ 19ch Zannen_timer equ 19eh ; Fight_timer equ 1a0h Explosion_count equ 1a2h Explosion_timer equ 1a4h Cork_place equ 1a6h Award_counter equ 1a8h KAO_counter equ 1aah Shock_flag equ 1ach kumo_flag equ 1aeh ; Message_counter equ 1b0h Message_timer equ 1b2h Message_position equ 1b4h yossy_flag equ 1b6h Color_timer equ 1b8h Paragraph_cmp equ 1bah Start_position equ 1bch Zannen_V_ram equ 1beh ; Set_color equ 1f0h Turu_counter equ 1f2h ;----------------------------------------------------- Hdma_data equ 180h oamdat equ 200h msbdat equ 400h Color_buffer equ 1c0h ; rotate_A equ 190h rotate_B equ 192h rotate_C equ 194h rotate_D equ 196h ; ;----------------------------------------------------- bankf sect rel ;(PBR=0f) ;=================================================================== ;******************************************************************* ; INITIAL ROUTINE ;******************************************************************* ;=================================================================== Final_init equ $ phb phk plb mem8 idx8 sep #00110000b ; stz >>>>>>>>>>>>>>>> JSR KEY_CHECK ;<<<<<<<<<<<<<<<< 表彰セット >>>>>>>>>>>>>>>>>>>>> JSR AWARD_SET ;<<<<<<<<<<<<<<<< ４位以上チェック >>>>>>>>>>>>>> JSR Rank_Check cpx #0006h bcc AWARD_routine ;<<<<<<<<<<<<<<<<< 残念セット >>>>>>>>>>>>>>>>>>>> JSR Message_set JSR Zannen_pose jmp owari_main ;<<<<<<<<<<<< 幕だしタイマーチェック >>>>>>>>>>>>> AWARD_routine lda >>>>>>>>>>>>>>>>>> Check_rank_set JSR Rank_Check jmp (!Select_rank,x) ;ランクインデックスジャンプ ;<<<<<<<<<<<<<<< ランク１ >>>>>>>>>>>>>>>>>>>>>>>> Rank_1 JSR Scroll_set JSR KAGE_move JMP owari_main ;<<<<<<<<<<<<<<< ランク2 >>>>>>>>>>>>>>>>>>>>>>>>> Rank_2 equ $ JSR Scroll_set1 JMP owari_main ;<<<<<<<<<<<<<<< ランク3 >>>>>>>>>>>>>>>>>>>>>>>>> Rank_3 equ $ JSR Patapata_walk ;<<<<<<<<<<<<<<< 雲スクロールセット >>>>>>>>>>>>>> owari_main JSR KUMO_move ; JSR Final_end_set plb RTL ;================================================================ ;*************************************************************** ; NMI wari komi. ;*************************************************************** ;================================================================ Final_nmi equ $ phb phk plb ; mem8 idx8 sep #00110000b ;<<<<<<<<<<<<<< スクロールセット >>>>>>>>>>>>>>>>>> lda >>>>>>>>>>>>> lda rotate_A sta Rotation_A lda rotate_A+1 sta Rotation_A ; lda rotate_B sta Rotation_B lda rotate_B+1 sta Rotation_B ; lda rotate_C sta Rotation_C lda rotate_C+1 sta Rotation_C ; lda rotate_D sta Rotation_D lda rotate_D+1 sta Rotation_D ;<<<<<<<<<<<<<<<< センターセット >>>>>>>>>>>>>>>>>>>> lda >>>>>>>>>>>>>>>> lda #06 sta DMA_synchronic ;<<<<<<<<<<<<<<<< ４位以上チェック >>>>>>>>>>>>>> mem16 idx16 JSR Rank_Check cpx #0006 bcs owari_nmi_set mem8 idx8 sep #00110000b ;<<<<<<<<<<<<<<<< カラー書き換えセット >>>>>>>>>>>>>> lda #20h sta Color_address ; ldx #0h color_change lda Color_buffer,x sta Color_write inx lda Color_buffer,x sta Color_write inx cpx #20h bne color_change ;<<<<<<<<<<<<< 幕出し、タイマーチェック >>>>>>>>>>>>> mem16 idx16 rep #00110000b lda >>>>>>>>>>>>>>>>>>>>>> JSR Rank_Check JMP (!Select_kakikae,x) ;<<<<<<<<<<<<<<<< 書き換え用 >>>>>>>>>>>>>>>>>>>>>>>> Pukupuku_nmi JSR Pukupuku_tensou ;１位 jmp owari_nmi_set ; Mant_nmi JSR Mant_tensou ;２位 jmp owari_nmi_set ; maku_nmi JSR MAKU_tensou ;３位 owari_nmi_set plb rtl ;<<<<<<<<<< ランクチェックサブルーチン >>>>>>>>>>>>>> Rank_Check equ $ mem16 idx16 rep #00110000b ldx #0 lda game_mode ;プレイヤーチェック beq Check_rank1 ; Check_rank lda point_rank,x ;一人用ランクセット cmp #1000h beq owari_rank_chk inx inx jmp Check_rank ; Check_rank1 lda point_rank,x ;二人用ランクセット cmp #1000h beq owari_rank_chk cmp #1100h beq owari_rank_chk inx inx jmp Check_rank1 owari_rank_chk rts ;=================================================================== ;****************************************************************** ; INITIAL SET ROUTINE ;****************************************************************** ;================================================================== ;****************************************************** ; PPU&WORK INITIAL SET ;****************************************************** Final_PPU equ $ ;<<<<<<<<<<<<<<< ゼロページクリアー >>>>>>>>>>>>>>>> mem8 idx8 ; ldx #0 lda #0 loop_GPZX sta >>>>>>>>>>>>>>>>>>>>>>>>> Set_PPU lda #0 sta Screen_bank ; lda #01100100b sta Screen_bank+1 ; lda #01100000b sta Screen_segment ; lda #10000000b sta Screen_step ; lda #00000010b sta Sprite_size ; lda #80h sta Screen_flip ; stz Rotation_A stz Rotation_B stz Rotation_C stz Rotation_D lda #01 sta Rotation_A sta Rotation_D stz Rotation_B stz Rotation_C ; lda #80h sta Rotation_X lda #01 sta Rotation_X sta Rotation_Y lda #60h sta Rotation_Y rts ;********************************************************** ; TENSOU SET ;********************************************************** Final_tensou equ $ ;<<<<<<<<<<<<<<<<<<<<< OBJ >>>>>>>>>>>>>>>>>>>>>>>>>> ldx #1ch jsr Set_DMA ;<<<<<<<<<<<<<<<<<<<< 文字ＣＧＸ >>>>>>>>>>>>>>>>>>>> ldx #22h jsr Set_DMA ; mem16 rep #00100000b lda #5800h sta Screen_address ; ldx #0 loop_number lda >7fa080h,x sta Screen_write inx inx cpx #00a0h bne loop_number ; ldx #0 lda #58b0h sta Screen_address loop_J lda >7fa260h,x sta Screen_write inx inx cpx #0020h bne loop_J ; ldx #0 lda #58c0h sta Screen_address loop_R lda >7fa360h,x sta Screen_write inx inx cpx #0020h bne loop_R ; mem8 sep #00100000b ;<<<<<<<<<<<<<<<<<<<<<< SC_2.CGX >>>>>>>>>>>>>>>>>>>> ldx #1eh jsr Set_DMA ;<<<<<<<<<<<<<<<<<<<<<< SC_2 >>>>>>>>>>>>>>>>>>>>>>>> ldx #20h jsr Set_DMA ;<<<<<<<<<< 上半身ＯＢＪキャラクターセット >>>>>>>>>> idx16 mem16 rep #00110000b ; lda #5400h ;マリオセット ldx #0 JSR Kart_set ; lda #5600h ;ルイージセット ldx #0003h JSR Kart_set lda #5440h ;クッパセット ldx #0006h JSR Kart_set ; lda #5480h ;ピーチセット ldx #0009h JSR Kart_set ; lda #54c0h ;コングセット ldx #000ch JSR Kart_set ; lda #5640h ;ノコノコセット ldx #000fh JSR Kart_set ; lda #5680h ;キノピヨセット ldx #0012h JSR Kart_set ; lda #56c0h ;ヨッシー ldx #0015h JSR Kart_set jmp CG_set ;<<<<<<<<< 上半身キャラクターセットサブルーチン >>>>>> Kart_set equ $ pha sta Screen_address ; JSR Rom_Set ; mem16 rep #00100000b ldy #0040h ;ノーマルポーズ上側 loop_kart JSR Set_Vram cpy #0080h bne loop_kart ; ldy #5900h ;Ｖポーズ上側 loop_kart1 JSR Set_Vram cpy #5940h bne loop_kart1 ; pla ;ＶＲＡＭアドレスセッ clc adc #100h sta Screen_address ; ldy #0240h loop_kart2 JSR Set_Vram ;ノーマルポーズ下側 cpy #0280h bne loop_kart2 ; ldy #5b00h ;Ｖポーズ下側 loop_kart3 JSR Set_Vram cpy #5b40h bne loop_kart3 rts ; Set_Vram equ $ ;ＶＲＡＭセット mem16 idx16 loop_kao lda [>>>>>>>>>>>>>>>>>>>>>>> CG_set mem8 sep #00100000b lda #00000000b sta Color_address ; ldx #0 loop_color lda >7f4800h,x sta Color_write inx lda >7f4800h,x sta Color_write inx cpx #200h bne loop_color ;<<<<<<<<<<<<<<<<< 順位チェック >>>>>>>>>>>>>>>>>>> JSR Rank_Check cpx #0006 bcs Set_mode7 ;<<<<<<<<<<<<<<<< カラー書き換えセット >>>>>>>>>>>> mem8 sep #00100000b lda #20h sta Color_address ; mem16 rep #00100000b ldy #0000 lda CG_Address,x tax mem8 sep #00100000b loop_change lda >7f0000h,x sta Color_write sta Color_buffer,y inx iny lda >7f0000h,x sta Color_write sta Color_buffer,y inx iny cpy #0020h bne loop_change ;<<<<<<<<<<<<< モード７キャラクター転送 >>>>>>>>>>> Set_mode7 mem8 sep #00100000b stz Screen_address stz Screen_address+1 ; ldx #0 loop_chra lda >7fc000h,x sta Screen_write+1 inx cpx #4000h bne loop_chra ;<<<<<<<<<<<<<< ＢＧ１ぬきセット >>>>>>>>>>>>>>>>> stz Screen_address stz Screen_address+1 ; lda #00000000b sta Screen_step ; ldx #0 lda #06fh loop_nuki sta Screen_write inx cpx #4000h bne loop_nuki ;;<<<<<<<<<<<<<<<< ＯＡＭセット >>>>>>>>>>>>>>>>>>> idx16 mem16 rep #00110000b ;--------(ビン セット)------------ lda #0b872h sta oamdat+28h lda #3ce0h sta oamdat+2ah ;----------(表彰用)------------ JSR Banzai_award ;----------(パタパタ、影)----------- ldx #0 Set_obj_1 lda OBJ_DATA,x cmp #0ffffh beq SET_MSB sta oamdat+158h,x inx inx jmp Set_obj_1 ;<<<<<<<<<<<<<<< ＭＳＢセット >>>>>>>>>>>>>>>>>>>>> SET_MSB ldx #0 loop_msb lda MSB_DATA,x sta msbdat,x inx cpx #0020h bne loop_msb ;<<<<<<<<<<<<<<<<< 順位チェック >>>>>>>>>>>>>>>>>>> JSR Rank_Check cpx #0006 bcs Zannen_kart JMP (!Select_screen,x) ;<<<<<<<<<<<< プクプク用スクリーンセット >>>>>>>>>> Pukupuku_screen mem16 idx16 lda #0100h ;プクプク用 sta >>>>>>>> Mant_screen mem16 idx16 lda #0070h ;マントガメ用 sta >>>>>>>>>>> Zannen_kart lda point_rank,x tax lda >>>>>>>>> Erase_pata ldx #0158h lda #0e0f8h loop_erase_set sta oamdat,x inx inx cpx #0188h bne loop_erase_set mem8 idx8 sep #00110000b ;<<<<<<<<<<<<<<<< Ｈ−ＤＭＡセット >>>>>>>>>>>>>>>>>>> Set_Hdma mem8 idx8 sep #00110000b ldx #0 loop_hdma lda TENSOU_DATA,x sta Hdma_data,x inx cpx #0eh bne loop_hdma ;----(H_DMA SET)-------- lda #0 ;1address set. sta DMA_1 ; lda #00000101b ;to 2105h sta DMA_1+1 ; lda #10000000b ;from 180h sta DMA_1+2 ; lda #00000001b sta DMA_1+3 ; lda #0 sta DMA_1+4 ; lda #0 sta DMA_1+5 sta DMA_1+6 lda #0fh sta DMA_1+7 ;;- - - - - - - - - - - - - - - - - - - - - - - - lda #0 ;1address set. sta DMA_2 ; lda #00101100b ;to 212ch sta DMA_2+1 ; lda #10000101b ;from 187h sta DMA_2+2 ; lda #00000001b sta DMA_2+3 ; lda #0 sta DMA_2+4 ; lda #0 sta DMA_2+5 sta DMA_2+6 lda #0fh sta DMA_2+7 owari_tensou rts ;<<<<<<<<<<<<<<<<< メッセージセット サブルーチン >>>>>>>>>>> Message_data_set mem16 idx16 loop_moji lda !0,x cmp #0ffffh beq message_owari sta oamdat+8ah,y JSR Y_iny inx inx jmp loop_moji message_owari rts ;=================================================================== ;******************************************************************* ; データー ;******************************************************************* ;=================================================================== ; ;<<<<<<<<<<<<< メインルーチンセレクトデーター >>>>>>>>>>>>> Select_rank DW Rank_1,Rank_2,Rank_3 ;<<<<<<<<<<<<< 書き換えセレクトデーター >>>>>>>>>>>>>>>>>>> Select_kakikae DW Pukupuku_nmi,Mant_nmi,owari_nmi_set ;<<<<<<<<<<<<<< スクリーンセレクトデーター >>>>>>>>>>>>>>>> Select_screen DW Pukupuku_screen,Mant_screen,Set_Hdma ;<<<<<<<<<<<<<<<<< ＨＤＭＡ用データー >>>>>>>>>>>>>>>>>>>>> TENSOU_DATA DB 80h,07h,21h,07h,60h,01h,00h DB 80h,11h,20h,11h,60h,12h,00h ;<<<<<<<<<<<<<<<<< 上半身用ＲＯＭデーター >>>>>>>>>>>>>>>>> OBJ_kart DL 04a000h,08a000h,05a000h,06a000h DL 07a000h,09a000h,0aa000h,0ba000h ;<<<<<<<<<<<<<<<< カラー書き換えアドレス >>>>>>>>>>>>>>>>>> CG_Address DW 4840h,4860h,4880h ;******************************************************** ; BG データー ;******************************************************** PATERN_DATA DW PUKUPUKU_DATA1,PUKUPUKU_DATA2,PUKUPUKU_DATA ; PATERN_DATA1 DW MANT_DATA,MANT_DATA1,MANT_DATA2 ;<<<<<<<<<<<<<<<<<<< プクプク用データー .>>>>>>>>>>>>>>>>>>> PUKUPUKU_DATA DB 88h,88h,00h,01h,02h,03h,04h,05h,06h,07h,0ffh DB 88h,88h,10h,11h,12h,13h,14h,15h,16h,17h,0ffh DB 08h,09h,0ah,0bh,0ch,0dh,0eh,0fh,20h,21h,0ffh DB 18h,19h,1ah,1bh,1ch,1dh,1eh,1fh,30h,31h,0ffh DB 22h,23h,24h,25h,26h,27h,28h,29h,0ffh DB 32h,33h,34h,35h,36h,37h,38h,39h,0ffh DB 2eh,2fh,40h,41h,42h,43h,44h,45h,0ffh DB 3eh,3fh,50h,51h,52h,53h,54h,55h,0ffh DB 4ah,4bh,4ch,4dh,4eh,4fh,60h,61h,0ffh DB 5ah,5bh,5ch,5dh,5eh,5fh,70h,71h,0ffh DB 88h,66h,67h,68h,69h,6ah,6bh,6ch,6dh,88h,0ffh DB 88h,76h,77h,78h,79h,7ah,7bh,7ch,7dh,88h,0ffh ; PUKUPUKU_DATA1 DB 2ah,2bh,2ch,2dh,0ffh DB 3ah,3bh,3ch,3dh,0ffh DB 46h,47h,48h,49h,0ffh DB 56h,57h,58h,59h,0ffh DB 62h,63h,64h,65h,0ffh DB 72h,73h,74h,75h,0ffh ; PUKUPUKU_DATA2 DB 2ah,2bh,6eh,6fh,0ffh DB 3ah,3bh,7eh,7fh,0ffh DB 80h,81h,82h,83h,0ffh DB 90h,91h,92h,93h,0ffh DB 84h,85h,86h,87h,0ffh DB 94h,95h,96h,97h,0ffh ;<<<<<<<<<<<<<<<<<< マントガメ用データー >>>>>>>>>>>>>>>>>>>>>>> MANT_DATA DB 0e4h,0e5h,0e6h,0e7h,0ffh DB 0f4h,0f5h,0f6h,0f7h,0ffh ; MANT_DATA1 DB 0e4h,0e5h,0e8h,0e9h,0ffh DB 0f4h,0f5h,0f8h,0f9h,0ffh ; MANT_DATA2 DB 0e0h,0ffh ;<<<<<<<<<<<<<<<<<<<<< 幕用データー >>>>>>>>>>>>>>>>>>>>>>>>>>>> MAKU_Set DW MAKU_data,MAKU_data1,MAKU_data2,MAKU_data3 ; MAKU_data DB 0a0h,0a1h,0ffh DB 0b0h,0b1h,0ffh ; MAKU_data1 DB 0a2h,0a3h,0ffh DB 0b2h,0b3h,0ffh ; MAKU_data2 DB 0a4h,0a5h,0ffh DB 0b4h,0b5h,0ffh ; MAKU_data3 DB 0a6h,0a7h,0a8h,0a9h,0aah,0abh,0ach,0ffh DB 0b6h,0b7h,0b8h,0b9h,0bah,0bbh,0bch,0ffh ; ;*********************************************************** ; OBJ データー ;*********************************************************** ; ;<<<<<<<<<<<<<<<<<<<< パタパタデーター >>>>>>>>>>>>>>>>>>>>>>>> OBJ_DATA DW 64fch,3ac2h,70f4h,3ac8h,60f4h,3ac6h DW 64ach,3ac2h,70a4h,3ac8h,60a4h,3ac6h DW 4484h,3ac2h,507ch,3ac8h,407ch,3ac6h DW 44d4h,3ac2h,50cch,3ac8h,40cch,3ac6h ;<<<<<<<<<<<<<<<<<<<<< 影データー >>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DW 0b0e0h,304ah,0b0f0h,304ch,0b000h,304eh DW 0b010h,704eh,0b020h,704ch,0b030h,704ah ;<<<<<<<<<<<<<<<<<<<<<< 森データー >>>>>>>>>>>>>>>>>>>>>>>>>>>>> DW 8180h,3d00h,8190h,7d00h,9110h,3d02h,9140h,3d04h DW 9150h,3d06h,9160h,3d08h,9170h,3d0ah,9180h,3d0ch DW 9190h,3d0eh,91a0h,3d20h,91b0h,3d22h,91d0h,3d24h DW 91e0h,3d26h,91f0h,3d28h ;<<<<<<<<<<<<<<<<<<<<<<< 雲データー >>>>>>>>>>>>>>>>>>>>>>>>>>>> DW 2020h,08cch,2030h,48cch,7010h,08cch,7020h,48cch DW 7060h,082ah,5070h,082ah,50a0h,08cch,50b0h,48cch DW 20a0h,083eh,40e8h,083eh,0ffffh ;<<<<<<<<<<<<<<< パタパタ書き換えようデーター >>>>>>>>>>>>>>>>>> PATAPATA_PATERN DW PATAPATA_DATA1,PATAPATA_DATA2 ; PATAPATA_DATA1 DW 3ac2h,3ac8h,0ffffh PATAPATA_DATA2 DW 3ac4h,3acah,0ffffh ;<<<<<<<<<<<<<<<<<<<<<<<< 爆発データー >>>>>>>>>>>>>>>>>>>>>>>>>> Explosion_set DW Explosion_data,Explosion_data1,Explosion_data2 ; Explosion_data DW 6034h,38aah,6044h,38ach DW 7034h,0f8ach,7044h,0f8aah DW 0ffffh ; Explosion_data1 DW 6034h,78ach,6044h,78aah DW 7034h,0b8aah,7044h,0b8ach DW 0ffffh ; Explosion_data2 DW 0f0e0h,78ach,0f0e0h,78aah DW 0f0e0h,0b8aah,0f0e0h,0b8ach DW 0ffffh ;<<<<<<<<<<<<<<<<<<< 残念ポーズデーター >>>>>>>>>>>>>>>>>>>>>>>>>> Zannen_position DW 0b0b8h,0b0c8h DW 0c0b8h,0c0c8h ; Zannen_pose_data DW Zannen_0,Zannen_1,Zannen_2,Zannen_3 ; Zannen_0 DW 30aeh,70aeh DW 30ceh,70ceh,0ffffh ; Zannen_1 DW 70c2h,70c0h DW 30ceh,70ceh,0ffffh ; Zannen_2 DW 70c6h,70c4h DW 30ceh,70ceh,0ffffh ; Zannen_3 DW 30aah,70aah DW 30cah,70cah,0ffffh ; Zannen_color DW 0200h,0400h,0000h,0600h DW 0600h,0400h,0200h,0000h ;<<<<<<<<<<<<<<<<<<<<<<< 文字データー >>>>>>>>>>>>>>>>>>>>>>>>>>> ;----------(文字ポジション用)--------- Position_select DW 6054h,6050h,6054h,604ch ; Usual_Start DW 703ch,703ch,703ch,703ch DW 7030h,703ch,703ch,703ch ; Usual_Paragraph DW 00c4h,00cch,00c4h,00c4h DW 00d8h,00cch,00cch,00cch ; Less_Start DW 5034h,5030h,5034h,5034h DW 5028h,5030h,5030h,5030h ; Less_Paragraph DW 00cch,00d0h,00cch,00cch DW 00d8h,00d0h,00d0h,00d0h ;------------(ワールド用)----------- World_select DW World_0,World_1,World_2,World_3,World_cup ; World_0 DW 0ffch,0fc6h,0fd8h,0fc9h,0ffffh World_1 DW 0ffch,0fdbh,0fe6h,0febh,0ffch,0ffffh World_2 DW 0ffch,0fcch,0fcfh,0ffch,0ffffh World_3 DW 0ffch,0fcch,0fdch,0f8fh,0fcbh,0ff8h,0fe8h,0ffffh World_cup DW 0fc5h,0ff7h,0fdbh,0f8fh,0fe9h,0ffch,0fcch,0ffch DW 0f8dh,0ffffh ;------------(名前用)------------ NAME_select DW MARIO_name,LUIZI_name,KUPPA_name,PEACH_name DW KONG_name,NOKO_name,KINOP_name,YOSSY_name ; MARIO_name DW 0fdeh,0fe7h,0fc4h,0ffffh LUIZI_name DW 0fe8h,0fc1h,0ffch,0fcbh,0f8eh,0ffffh KUPPA_name DW 0fc7h,0ff7h,0fd9h,0f8fh,0ffffh PEACH_name DW 0fdah,0f8fh,0ffch,0fd0h,0ffffh KONG_name DW 0fd3h,0f8eh,0fedh,0fc6h,0ffch,0fc9h,0fedh DW 0fc7h,0f8eh,0f8bh,0f8ch,0ffffh NOKO_name DW 0fd8h,0fc9h,0fd8h,0fc9h,0ffffh KINOP_name DW 0fc6h,0fd8h,0fdah,0f8fh,0fc4h,0ffffh YOSSY_name DW 0fe5h,0ff7h,0fcbh,0ffch,0ffffh ;------------(トロフィー用,通常メッセージ)------------ Cup_select DW Gold_cup,Silver_cup,Copper_cup,Cup_set ; Gold_cup DW 0fffh,0fc9h,0f8eh,0ffch,0fe8h,0fd3h,0f8eh,0ffffh Silver_cup DW 0fffh,0fcbh,0fe8h,0fd9h,0f8eh,0ffch,0ffffh Copper_cup DW 0fffh,0fdbh,0f8eh,0feah,0fedh,0fcch,0f8eh,0ffffh Cup_set DW 0fc5h,0ff7h,0fdbh,0f8fh,0f95h,0f8eh,0fffh DW 0f94h,0f97h,0fb6h,0fb9h,0faeh,0f9ch,0feeh DW 0fa1h,0f96h,0f8eh,0fa8h,0fe9h,0ffch,0fcch DW 0fb2h,0f95h,0f8eh,0fbdh,0fa9h,0f8eh,0ff1h DW 0fa2h,0f87h,0000h,0ffffh ;------------(順位用、残念メッセージ)------------------- Rank_select DW Rank_4,Rank_5,Rank_6,Rank_7,Rank_8,Rank_message DW zannen_message ; Rank_4 DW 0f80h,0ffffh Rank_5 DW 0f81h,0ffffh Rank_6 DW 0f82h,0ffffh Rank_7 DW 0f83h,0ffffh Rank_8 DW 0f84h,0ffffh Rank_message DW 0f91h,0fffh,0fa5h,0fa4h,0ff1h,0fa2h,0f9bh,0faeh,0f91h DW 0faeh,0f9bh,0f9fh,0feeh,0fa1h,0f96h,0f8eh,0fa8h DW 0fe9h,0ffch,0fcch,0fa2h,0f8eh,0fffh,0f95h,0f8eh,0fbdh DW 0fa9h,0f8eh,0ff1h,0fa2h,0f87h,0000h,0ffffh zannen_message DW 0f9ah,0f8eh,0fbdh,0fa7h,0fbdh,0f87h,0fffh,0ffffh ;-------------(スペシャルメッセージ)------------------- Special_data DW 0fafh,0f99h,0f8eh,0fa3h,0fffh,0f9ch,0fach,0f8eh DW 0fa2h,0fa8h,0fc5h,0ff7h,0fdbh,0f8fh,0fbch,0fffh DW 0f9dh,0f91h,0fa9h,0f9bh,0faeh,0f9bh,0f9fh DW 0f87h,0fffh,0f90h,0fa4h,0f9fh,0fa9h,0fffh,0fcch DW 0ffch,0fd9h,0f8fh,0ffch,0fdeh,0fe7h,0fc4h,0fc5h DW 0ffch,0fd3h,0fa8h,0fd0h,0ff8h,0fedh,0fdah DW 0f8fh,0fc4h,0fedh,0fa2h,0f8eh,0f9ch,0f87h,0000h,0ffffh ;<<<<<<<<<<<<<<<<<<<<<< ＭＳＢデーター >>>>>>>>>>>>>>>>>>>>>>>>>> MSB_DATA DB 0aah,000h,0a0h,000h,0aah,0aah,0aah,0aah DB 00ah,000h,000h,000h,000h,000h,000h,000h DB 0aah,0aah,0aah,0aah,0aah,0aah,0aah,0aah DB 0fah,0ffh,0aah,0aah,0aah,0aah,0aah,00ah ;<<<<<<<<<<<<<<<<<<<<< マリオポーズ >>>>>>>>>>>>>>>>>>>>>>>>>>>>> MARIO_POSE DW Mario_1,Mario_2 ; Mario_1 DW 0a770h,3340h,0a780h,7340h DW 0b770h,3200h,0b780h,7200h DW 0e0e0h,3248h,0ffffh ; Mario_2 DW 0a370h,3342h,0a380h,7342h DW 0b370h,3202h,0b380h,7202h DW 0b778h,3248h,0ffffh ; MARIO_Champgne DW Champgne_mario2,Champgne_mario3,Champgne_mario1 Champgne_mario1 DW 0b675h,03ce2h,0ffffh ; Champgne_mario2 DW 0b173h,03ce0h,0ffffh Champgne_mario3 DW 0a96eh,03ce6h,0ffffh ; MARIO_Shawer DW Shawer_mario1,Shawer_mario2,Shawer_mario3 DW Shawer_mario4,Shawer_mario5,Shawer_mario6 DW Shawer_mario7 Shawer_mario1 DW 0a06eh,03aaeh,0ffffh Shawer_mario2 DW 0926eh,07aaeh DW 0a16eh,03aeeh,0ffffh Shawer_mario3 DW 0996eh,03aeah DW 0a272h,03aebh DW 0a972h,0faebh,0ffffh Shawer_mario4 DW 0996eh,0bafah,09976h,0fafah DW 0a16fh,0bafbh,0a177h,0fafbh DW 0a96fh,0fafah,0a974h,0bafah,0ffffh Shawer_mario5 DW 09b6eh,0bafah,09b76h,0fafah DW 0a16fh,0bafbh,0a177h,0fafbh DW 0aa6fh,0fafah,0aa74h,0bafah,0ffffh Shawer_mario6 DW 09b6ch,0bafbh,09b77h,0fafbh DW 0a36dh,0bafbh,0a374h,0fafbh DW 0aa6eh,0fafbh,0aa74h,0bafbh,0ffffh Shawer_mario7 DW 0a56dh,07afbh,0a574h,03afbh DW 0ab6eh,0fafbh,0ab74h,07afbh,0ffffh ;<<<<<<<<<<<<<<<<<<<<<< クッパポーズ >>>>>>>>>>>>>>>>>>>>>>>>>>> KUPPA_POSE DW KUPPA_1,KUPPA_2 KUPPA_POSE1 DW KUPPA_2,KUPPA_3 ; KUPPA_1 DW 0a370h,3144h,0a380h,7144h DW 0b370h,300ch,0b380h,700ch DW 0c370h,302ch,0c380h,702ch,0ffffh ; KUPPA_2 DW 0a370h,3146h,0a380h,7146h DW 0b370h,300eh,0b380h,700eh DW 0c370h,302ch,0c380h,702ch,0ffffh ; KUPPA_3 DW 0a470h,3146h,0a480h,7146h DW 0b470h,300eh,0b480h,700eh DW 0c370h,302ch,0c380h,702ch,0ffffh ; KUPPA_Champgne DW Champgne_kuppa1,Champgne_kuppa2,Champgne_kuppa3 Champgne_kuppa1 DW 0a080h,0bce2h,0ffffh Champgne_kuppa2 DW 0a180h,0bce2h,0ffffh Champgne_kuppa3 DW 0ab78h,3ce2h,0ffffh ; KUPPA_shower DW Shower_kuppa_1,Shower_kuppa_2 Shower_kuppa_1 DW 0ad78h,3ac0h,0ffffh Shower_kuppa_2 DW 0ae78h,7ac0h,0ffffh ;<<<<<<<<<<<<<<<<<<<<<<<< ピーチポーズ >>>>>>>>>>>>>>>>>>>>>>>>> PEACH_POSE DW PEACH_1,PEACH_2,PEACH_3 ; PEACH_1 DW 0a370h,3748h,0a380h,7748h DW 0b370h,3608h,0b380h,7608h DW 0c370h,3628h,0c380h,7628h,0ffffh ; PEACH_2 DW 0a370h,374ah,0a380h,774ah DW 0b370h,360ah,0b380h,760ah DW 0c370h,3628h,0c380h,7628h,0ffffh ; PEACH_3 DW 0a87ch,36ceh,0ffffh ; PEACH_Champgne DW Champgne_peach1,Champgne_peach2 PEACH_Champgne1 DW Champgne_peach2,Champgne_peach3 ; Champgne_peach1 DW 0b077h,03ce2h,0ffffh Champgne_peach2 DW 0b078h,03ce4h,0ffffh Champgne_peach3 DW 0a478h,0bce6h,0ffffh ;<<<<<<<<<<<<<<<<<<<<<<<< コングポーズ >>>>>>>>>>>>>>>>>>>>>>>>> KONG_POSE DW KONG_1,KONG_2,KONG_3,KONG_4 DW KONG_5,KONG_6 ; KONG_1 DW 0a770h,374eh,0a780h,774eh DW 0b770h,3640h,0b780h,7640h,0ffffh ; KONG_2 DW 0a770h,374ch,0a780h,774ch DW 0b770h,3642h,0b780h,7642h,0ffffh ; KONG_3 DW 0a770h,374ch,0a680h,774eh DW 0b770h,3642h,0b780h,7640h,0ffffh ; KONG_4 DW 0a770h,374eh,0a880h,774ch DW 0b770h,3640h,0b780h,7642h,0ffffh ; KONG_5 DW 0ae7ch,36dfh,0ffffh ; KONG_6 DW 0b07ch,36cfh,0ffffh ; KONG_Champgne DW Champgne_kong1,Champgne_kong2 DW Champgne_kong3,Champgne_kong4 DW Champgne_kong5,Champgne_kong6 Champgne_kong1 DW 0b375h,03ce2h,0ffffh ; Champgne_kong2 DW 0a070h,0bce2h,0ffffh ; Champgne_kong3 DW 0a078h,0fce4h DW 0a070h,0bce2h,0ffffh ; Champgne_kong4 DW 0a080h,0fce2h DW 0a074h,0bce2h,0ffffh ; Champgne_kong5 DW 0a070h,0bce2h DW 0a880h,0bce4h,0ffffh ; Champgne_kong6 DW 0a870h,0bce4h DW 0a080h,0fce2h,0ffffh ;<<<<<<<<<<<<<<<<<<<<< ルイジポーズ >>>>>>>>>>>>>>>>>>>>>>>>>>> LUIZI_POSE DW LUIZI_1,LUIZI_2 ; LUIZI_1 DW 0a770h,3560h,0a780h,7560h DW 0b770h,3420h,0b780h,7420h DW 0e0e0h,3248h,0ffffh ; LUIZI_2 DW 0a370h,3562h,0a380h,7562h DW 0b370h,3422h,0b380h,7422h DW 0b778h,3248h,0ffffh ; LUIZI_Champgne DW Champgne_luizi1,Champgne_luizi2 DW Champgne_luizi3,Champgne_luizi4 DW Champgne_luizi5,Champgne_luizi6 DW Champgne_luizi7 Champgne_luizi1 DW 0b375h,03ce2h,0ffffh ; Champgne_luizi2 DW 0b270h,03ce4h DW 0b280h,03ce4h,0ffffh Champgne_luizi3 DW 0b270h,03ce2h DW 0b280h,07ce2h,0ffffh Champgne_luizi4 DW 0b370h,0bce2h DW 0b380h,0fce2h,0ffffh Champgne_luizi5 DW 0b270h,0bce4h DW 0b280h,0bce4h,0ffffh Champgne_luizi6 DW 0b270h,0fce2h DW 0b280h,0bce2h,0ffffh Champgne_luizi7 DW 0b370h,07ce2h DW 0b380h,03ce2h,0ffffh ; LUIZI_shower DW Shower_luizi_1 DW Shower_luizi_2,Shower_luizi_3 DW Shower_luizi_4,Shower_luizi_5 ; Shower_luizi_1 DW 0a370h,3aaeh DW 0a380h,3aaeh,0ffffh ; Shower_luizi_2 DW 0aa68h,3aeah DW 0aa88h,7aeah,0ffffh ; Shower_luizi_3 DW 0ac68h,3aebh,0ac6eh,3afah,0b368h,3afbh DW 0ac90h,7aebh,0ac8ah,7afah,0b392h,7afbh DW 0ffffh ; Shower_luizi_4 DW 0f0e0h,3aebh,0ac68h,3afah,0ac6eh,3afbh DW 0f0e0h,7aebh,0ac90h,7afah,0ac8ah,7afbh DW 0ffffh ; Shower_luizi_5 DW 0f0e0h,3aebh,0f0e0h,3afah,0b068h,3afbh DW 0f0e0h,7aebh,0f0e0h,7afah,0b08eh,7afbh DW 0ffffh ;<<<<<<<<<<<<<<<<<<<<<<< ノコノコポーズ >>>>>>>>>>>>>>>>>>>>>>>> NOKO_POSE DW NOKONOKO_1,NOKONOKO_2,NOKONOKO_3,NOKONOKO_4 ; NOKONOKO_1 DW 0a870h,3564h,0a880h,7564h DW 0b870h,3424h,0b880h,7424h DW 0e0e0h,3248h,0ffffh ; NOKONOKO_2 DW 0a470h,3566h,0a480h,7566h DW 0b470h,3426h,0b480h,7426h DW 0b778h,3248h,0ffffh ; NOKONOKO_3 DW 0a86fh,3564h,0a87fh,7564h DW 0b870h,3424h,0b880h,7424h DW 0e0e0h,3248h,0ffffh ; NOKONOKO_4 DW 0a871h,3564h,0a881h,7564h DW 0b870h,3424h,0b880h,7424h DW 0e0e0h,3248h,0ffffh ; NOKO_Champgne DW Champgne_noko1,Champgne_noko2 DW Champgne_noko3,Champgne_noko4 DW Champgne_noko5,Champgne_noko6 DW Champgne_noko7,Champgne_noko8 DW Champgne_noko9,Champgne_noko10 DW Champgne_noko11,Champgne_noko12 Champgne_noko1 DW 0b375h,03ce2h,0ffffh ; Champgne_noko2 DW 0bc76h,03ce2h,0ffffh Champgne_noko3 DW 0bc76h,03ce2h DW 0bc83h,03ce2h,0ffffh Champgne_noko4 DW 0bc78h,03ce0h DW 0bc85h,03ce2h,0ffffh Champgne_noko5 DW 0bc76h,03ce0h DW 0bc83h,03ce2h,0ffffh Champgne_noko6 DW 0bc72h,03ce4h DW 0bc7fh,03ce4h,0ffffh Champgne_noko7 DW 0bc78h,07ce2h DW 0bc72h,03ce4h,0ffffh Champgne_noko8 DW 0bc6eh,07ce2h DW 0bc7fh,03ce4h,0ffffh Champgne_noko9 DW 0bc6ch,07ce2h DW 0bc7dh,03ce4h,0ffffh Champgne_noko10 DW 0bc78h,03ce2h DW 0bc7dh,03ce4h,0ffffh ; Champgne_noko11 DW 0c476h,038fch,0ffffh Champgne_noko12 DW 0c481h,038fch,0ffffh ;<<<<<<<<<<<<<<<<<<<<< キノピヨポーズ >>>>>>>>>>>>>>>>>>>>>> KINOP_POSE DW KINOPYO_1,KINOPYO_2 ; KINOPYO_1 DW 0a970h,3368h,0a980h,7368h DW 0b970h,3204h,0b980h,7204h DW 0e0e0h,3248h,0ffffh ; KINOPYO_2 DW 0a570h,336ah,0a580h,736ah DW 0b570h,3206h,0b580h,7206h DW 0b778h,3248h,0ffffh ; KINOP_Champgne DW Champgne_kinop1,Champgne_kinop2 ; Champgne_kinop1 DW 0b375h,3ce2h,0ffffh Champgne_kinop2 DW 0b372h,3ce4h,0ffffh ; ;<<<<<<<<<<<<<<<<<<<<<<<< ヨッシーポーズ >>>>>>>>>>>>>>>>>>>>>> YOSSY_POSE DW YOSSY_1,YOSSY_2 ; YOSSY_1 DW 0a770h,316ch,0a780h,716ch DW 0b770h,3044h,0b780h,7044h,0ffffh ; YOSSY_2 DW 0a770h,316eh,0a780h,716eh DW 0b770h,3046h,0b780h,7046h,0ffffh ; YOSSY_Champgne DW Champgne_yossy1,Champgne_yossy2,Champgne_yossy3 DW Champgne_yossy4,Champgne_yossy5,Champgne_yossy6 DW Champgne_yossy7,Champgne_yossy8,Champgne_yossy9 DW Champgne_yossy10,Champgne_yossy11,Champgne_yossy12 DW Champgne_yossy13,Champgne_yossy14,Champgne_yossy15 DW Champgne_yossy16,Champgne_yossy17,Champgne_yossy18 Champgne_yossy1 DW 0b375h,03ce2h,0ffffh ; Champgne_yossy2 DW 0b070h,03ce4h,0ffffh Champgne_yossy3 DW 0af71h,03ce6h,0ffffh Champgne_yossy4 DW 0ae72h,03ce8h,0ffffh Champgne_yossy5 DW 0ad73h,0bce6h,0ffffh Champgne_yossy6 DW 0ac74h,0bce4h,0ffffh Champgne_yossy7 DW 0ab75h,0bce6h,0ffffh Champgne_yossy8 DW 0aa76h,03ce8h,0ffffh Champgne_yossy9 DW 0a977h,03ce6h,0ffffh Champgne_yossy10 DW 0a878h,03ce4h,0ffffh Champgne_yossy11 DW 0a979h,03ce6h,0ffffh Champgne_yossy12 DW 0aa7ah,03ce8h,0ffffh Champgne_yossy13 DW 0ab7bh,0bce6h,0ffffh Champgne_yossy14 DW 0ac7ch,0bce4h,0ffffh Champgne_yossy15 DW 0ad7dh,0bce6h,0ffffh Champgne_yossy16 DW 0ae7eh,03ce8h,0ffffh Champgne_yossy17 DW 0af7fh,03ce6h,0ffffh Champgne_yossy18 DW 0b080h,03ce4h,0ffffh ;========================================================================= ;*********************************************************************** ; MAIN ROUTINE ;*********************************************************************** ;======================================================================== ;------------(１位用メインルーチン)----------- ;************************************************************** ; プクプクスクロール,拡大縮小,回転セット ;************************************************************** Scroll_set equ $ mem16 idx16 ;<<<<<<<<<<<<<<< スクロールとセンターセット >>>>>>>>>>>>>>> Set_pukupuku lda >>>>>>>>>>>>>>>>>>>>> Set_revolv jmp Set_angle ;<<<<<<<<<<<<<<< プクプクが割れたときの処理 >>>>>>>>>>>>>>>> Set_burst JSR Set_explosion ; lda >>>>>>>>>>>>>>>>>> Set_explosion equ $ inc Explosion_timer lda Explosion_timer cmp #0003h bne owari_explosion stz Explosion_timer ; ldy #0 ldx Explosion_count lda Explosion_set,x tax loop_explosion lda !0,x cmp #0ffffh beq explosion_Count sta oamdat+148h,y iny iny inx inx jmp loop_explosion ; explosion_Count lda Explosion_count cmp #0004 beq owari_explosion inc Explosion_count inc Explosion_count owari_explosion rts ;******************************************************** ; 雲、動かしセット ;******************************************************** KUMO_move equ $ inc kumo_flag ;フラグセット lda kumo_flag cmp #0005 bne owari_kumo ; stz >>>>>>>>>>>>>>>>>> lda #0e0f8h loop_erase_kage sta oamdat,x JSR X_inx cpx #01a0h bne loop_erase_kage jmp owari_kage ;- - - - - - - -- - - - - -- - - - - - -- - - Set_kage inc >>>>>>>>>> inc Color_timer lda Color_timer cmp #0003 bne Center_set stz Color_timer ; ldx #0010h lda Color_buffer,x pha ; loop_color_set inx inx lda Color_buffer,x dex dex sta Color_buffer,x inx inx cpx #001eh bne loop_color_set ; pla sta Color_buffer,x ;<<<<<<<<<<<<<<< センターセット >>>>>>>>>>>>>>>>> Center_set lda #0084h sta >>>>>>>>>>>>>> lda #0004 sta >>>>>>>>>>>>>>>> stz >>>>>>>>>>>>>>>>>> lda >>>>>>>>>>>>>>> mem8 sep #00100000b ldx #0 Loop_msb stz msbdat+09h,x inx cpx #0011h bne Loop_msb mem16 rep #00100000b ;<<<<<<<<<<<<< イニシャルセット位置 >>>>>>>>>>>>>> lda world_number asl a tax lda Position_select,x sta Message_position ;<<<<<<<<<<< ＯＡＭブッファークリアー >>>>>>>>>>>> ldx #0 lda #0e0f8h loop_clare sta oamdat+90h,x inx inx cpx #0110h bne loop_clare ; lda #8000h sta Message_timer ; JSR MOJI_set ;<<<<<<<<<<<<<<<< タイマーセット >>>>>>>>>>>>>>>> Set_position inc Message_timer lda Message_timer and #00ffh cmp #0003h bne owari_message lda #8000h sta Message_timer ;<<<<<<<<<<<<<<<< ポジションセット >>>>>>>>>>>>> ldx Message_counter lda oamdat+8ah,x beq owari_message cmp #0f8fh beq Dakuten_set cmp #0f8eh beq Dakuten_set cmp #0f8dh beq Set_V_pos1 cmp #0fffh beq Space_set cmp #0feeh beq No_Paragraph cmp #0f87h beq No_Paragraph ; Set_Paragraph lda Message_position sta oamdat+88h,x ; Space_set lda Message_position clc adc #0008h sta Message_position ;-----(改行チェック)------ and #00ffh cmp Paragraph_cmp beq Set_V_pos ; Set_oam JSR X_inx stx Message_counter owari_message rts ;<<<<<<<<<<<<<<<<< 改行セット >>>>>>>>>>>>>>>>>> Set_V_pos lda Message_position and #0ff00h clc adc #1000h clc adc Start_position sta Message_position jmp Set_oam ; Set_V_pos1 lda Start_position sta Message_position and #00ffh sta Start_position jmp Set_oam ; No_Paragraph lda Message_position and #00ffh cmp Start_position bne Set_Paragraph ; ldx Message_counter dex dex dex dex lda oamdat+88h,x clc adc #0008 JSR X_inx sta oamdat+88h,x jmp Set_oam ;<<<<<<<<<<<<<<<< 濁点セット >>>>>>>>>>>>>>>>>> Dakuten_set lda Message_position sec sbc #0808h sta oamdat+88h,x jmp Set_oam ;<<<<<<<<<<<<<< 文字セット サブ >>>>>>>>>>>>>>> MOJI_set ldy #0 ;-----------(ワールドセット)---------- lda world_number asl a tax lda World_select,x tax JSR Message_data_set ; ldx #0008 lda World_select,x tax JSR Message_data_set ;-----------(順位チェック)------------ JSR Rank_Check cpx #0006 bcs Set_zannen ;---------(スペシャルチェック)-------- lda world_number cmp #0003 bne Set_usual cpx #0000 beq Special_set ;----------(通常メッセージ)----------- Set_usual phx JSR NAME_set ; lda #0fa5h sta oamdat+8ah,y JSR Y_iny lda #0fa9h sta oamdat+8ah,y JSR Y_iny ; plx lda Cup_select,x tax JSR Message_data_set ; ldx #0006 lda Cup_select,x tax JSR Message_data_set ; JSR Rank_Check lda point_rank,x tax lda >>>>>>>>>>>> ; lda #00e8h sta >>>>>>>>>>>>>>>>>>>>>>>>>>> Check_mant lda >>>>>>>>>>>>>>>>>>>>>>>>>> Zoom_mant lda >>>>>>>>>>>>>>>>>>>>>>>>>>>> revolve_mant lda >>>>>>>>>>>>>>>>>>>>>>> Stop_revolve lda #0004h ;フラグリセット sta >>>>>>>>>>>>>>>>>>>>> patapata_fly ldy #015ah ;パタパタ書き換えセット lda #0162h sta >>>>>>>>>>>>> PATAPATA_fly equ $ ldx >>>>>>>>>>>>>>>>>>>>>>> patapata_walk lda #0001 sta >>>>>>>>>>>>>>>>>>>>>> patapata_swing lda >>>>>>>>>>>>>>> Set_explosion2 equ $ lda Explosion_count cmp #0006h beq owari_bakuhatu ldx Explosion_count lda Atari_set,x sta oamdat+014ah inc Explosion_count inc Explosion_count owari_bakuhatu rts ; Atari_set DW 386eh,786eh,3838h ;---------------------(表彰セットメインルーチン)------------- ; ;************************************************************ ; 表彰セット ;************************************************************ AWARD_SET equ $ mem16 idx16 ; inc >>>>>>>>>>>>>>>>>>>> inc >>>>>>>>>>>>>>>>>>>>> JSR Banzai_award jmp Set_pose ; Banzai_award equ $ ldy #0040h ;ＯＡＭアドレスセット Set_Award ldx Award_counter ;順位カウンター cpx #0006 beq Banzai_owari lda point_rank,x tax lda >>>>>>>>>>>>>>>>> Set_pose stz Award_counter inc >>>>>>>>>>>>>>>>>> owari_award JSR Rank_Check cpx #0006h bcc Set_Fight rts ; Set_Fight ldy #0040h ldx #0 lda point_rank,x tax lda >>>>>>>>>>>> Reset_pose stz >>>>>>>>>>>>>>>>>>>>>>>>> phy ldx >>>>>>>>>>>>>>>>>>>>> ldx Award_counter lda MARIO_offset,x sta >>>>>>>>>>>>>>>>>> lda >>>>>>>>>>>>>>> Champne_mario lda >>>>>>>>>>>>>>>>>>>>>> MARIO_1 ldx #0 JSR Banz_stop_mario ldx #0004 JSR Set_up_mario JMP owari_mario ; MARIO_2 lda #0b273h sta oamdat+10h ldx #0 JSR Banz_stop_mario JSR Cork_set JMP owari_mario ; MARIO_count JSR Set_ERASE inc Fight_timer lda Fight_timer cmp #0004h beq MARIO_fight_set lda >>>>>>>>>>>>>>>>> Select_mario DW owari_mario,MARIO_1,MARIO_2 DW MARIO_count MARIO_fight DW MARIO_3,MARIO_4,MARIO_5 DW MARIO_6,MARIO_7,MARIO_8 DW MARIO_9,MARIO_10,MARIO_3 DW MARIO_3,MARIO_3,MARIO_3 DW MARIO_3,MARIO_3 ;<<<<<<<<<<<<<<< バンザイストップ >>>>>>>>>>>>>>>>>>>>> Banz_stop_mario ldy #0040h ;ＯＡＭアドレス JSR Set_MARIO_POSE rts ;<<<<<<<<<<<<<<< シャンペン傾けセット >>>>>>>>>>>>>>>>> Set_up_mario ldy #0028h ;ＯＡＭアドレス JSR Set_MARIO_Cham rts ;<<<<<<<<<<<<<<<<<< サブルーチン >>>>>>>>>>>>>>>>>>>>>> Set_MARIO_Cham equ $ lda MARIO_Champgne,x tax JSR AWARD_OAM_SET rts ; Set_MARIO_POSE equ $ lda MARIO_POSE,x tax JSR AWARD_OAM_SET rts ; Set_MARIO_Shaw equ $ lda MARIO_Shawer,x tax JSR AWARD_OAM_SET rts ;*********************************************************** ; クッパ ;*********************************************************** Set_KUPPA equ $ phy ldx >>>>>>>>>>>>>>>> lda >>>>>>>>>>>>> Champne_kuppa lda >>>>>>>>>>>>>>>>>>>> Chap_kuppa_1 JSR Set_lean_kuppa jmp Stop_kuppa ; Chap_kuppa_2 lda #0a874h sta oamdat+10h JSR Cork_set jmp Stop_kuppa ; Chap_kuppa_3 JSR Set_ERASE JSR Set_drink_kuppa jmp owari_kuppa Stop_kuppa JSR Banz_stop_kuppa owari_kuppa rts ; Select_kuppa DW owari_kuppa,Chap_kuppa_1 DW Chap_kuppa_2,Chap_kuppa_3 ;<<<<<<<<<<<<<<<<< バンザイストップ >>>>>>>>>>>>>>>> Banz_stop_kuppa ldy #0040h ldx #0 lda KUPPA_POSE,x tax JSR AWARD_OAM_SET rts ;<<<<<<<<<<<<<<<<<< シャンペン傾けセット >>>>>>>>>>> Set_lean_kuppa ldy #0028h ;ＯＡＭアドレス ldx #0004 JSR Set_KUPPA_Cham rts ;<<<<<<<<<<<<<<<< シャンペン飲みセット >>>>>>>>>>>>> Set_drink_kuppa equ $ ;--------シャンペンセット ldy #0028h ;ＯＡＭアドレス ldx >>>>>>>>>>>>>>>>>>> Set_KUPPA_Cham equ $ lda KUPPA_Champgne,x tax JSR AWARD_OAM_SET rts ;************************************************************* ; ピーチ ;************************************************************* Set_PEACH equ $ phy ldx >>>>>>>>>>>>>>>>>> lda >>>>>>>>>>>>>>> Champne_peach lda >>>>>>>>>>>>>>>>>>>> Chap_peach_1 JSR Set_lean_peach jmp Stop_peach ; Chap_peach_2 lda #0a874h sta oamdat+10h JSR Cork_set jmp Stop_peach ; Chap_peach_3 JSR Set_ERASE JSR Set_lean_peach jmp Stop_peach ; Chap_peach_4 JSR Set_drink_peach jmp owari_peach ; Stop_peach JSR Banz_stop_peach owari_peach rts ; Select_peach DW owari_peach,Chap_peach_1 DW Chap_peach_2,Chap_peach_3 DW Chap_peach_4 ;<<<<<<<<<<<<<<<<<< バンザイストップ >>>>>>>>>>>>>>>>>> Banz_stop_peach ldy #0040h ;ＯＡＭアドレス ldx #0 JSR Set_PEACH_Pose rts ;<<<<<<<<<<<<<<<<< シャンペン傾けセット >>>>>>>>>>>>>>> Set_lean_peach ldy #0028h ;ＯＡＭアドレス ldx #0000 lda PEACH_Champgne,x tax JSR AWARD_OAM_SET rts ;<<<<<<<<<<<<<<<<<< シャンペン飲みセット >>>>>>>>>>>>> Set_drink_peach equ $ inc Fight_timer lda Fight_timer cmp #0020h bne Set_drink stz Fight_timer ; inc >>>>>>>>>>>>>>>>>>>>>>> Set_PEACH_Pose equ $ lda PEACH_POSE,x tax JSR AWARD_OAM_SET rts ;********************************************************* ; コング ;********************************************************* Set_KONG equ $ phy ldx >>>>>>>>>>>>>>>> lda >>>>>>>>>>>> Champne_kong lda >>>>>>>>>>>>>>>>>>> Chap_kong_1 ldy #0028h ;ＯＡＭアドレス ldx #0000 JSR Set_KONG_Cham jmp Kong_pose_set ; Chap_kong_2 lda #0b273h sta oamdat+10h JSR Cork_set ; Kong_pose_set ldx #0 ldy #0040h ;ＯＡＭアドレス JSR Set_KONG_POSE jmp owari_kong ;------------------------------------------------ KONG_count JSR Set_ERASE inc Fight_timer lda Fight_timer cmp #000ch beq KONG_fight_set ; KONG_fight_set1 lda >>>>>>>>>>>>>>> Set_KONG_Cham equ $ lda KONG_Champgne,x tax JSR AWARD_OAM_SET rts ; Set_KONG_POSE equ $ lda KONG_POSE,x tax JSR AWARD_OAM_SET rts ;******************************************************** ; ルイジ ;******************************************************** Set_LUIZI equ $ phy ldx >>>>>>>>>>>>>> lda >>>>>>>>>> Champne_luizi lda >>>>>>>>>>>>>>>>> Chap_luizi_1 ldy #0028h ;ＯＡＭアドレス ldx #0000 jmp Luizi_cham_set ; Chap_luizi_2 lda #0b273h sta oamdat+10h JSR Cork_set jmp Luizi_cham_set ; Chap_luizi_3 JSR Set_ERASE ldy #0028h ;ＯＡＭアドレス ldx #0002 jmp Luizi_cham_set ; Luizi_count inc Fight_timer lda Fight_timer cmp #0008h beq Luizi_fight_set lda >>>>>>>>>>>>>>> Set_LUIZI_POSE equ $ lda LUIZI_POSE,x tax JSR AWARD_OAM_SET rts ;<<<<<<<<<<<<<<<< シャンペンサブルーチン >>>>>>>>>>>>> Set_LUIZI_Cham equ $ lda LUIZI_Champgne,x tax JSR AWARD_OAM_SET rts ;<<<<<<<<<<< シャンペンシャワーサブルーチン >>>>>>>>> Set_LUIZI_shaw equ $ lda LUIZI_shower,x tax JSR AWARD_OAM_SET rts ;<<<<<<<<<<<< ＯＡＭリセットサブルーチン >>>>>>>>>>>> Set_ERASE equ $ ldx #0 lda #0e0f8h loop_erase sta oamdat,x inx inx cpx #0040h bne loop_erase rts ;******************************************************** ; ノコノコ ;******************************************************** Set_NOKONOKO equ $ phy ldx >>>>>>>>>>>>>>>>>>>> lda >>>>>>>>>>>>>>>>> Set_NOKO_Cham equ $ lda NOKO_Champgne,x tax JSR AWARD_OAM_SET rts ; Set_NOKO_POSE equ $ lda NOKO_POSE,x tax JSR AWARD_OAM_SET rts ;*********************************************************** ; キノピヨ ;*********************************************************** Set_KINOPIYO equ $ phy ldx >>>>>>>>>>>>>>>>>>> lda >>>>>>>>>>>>>> Champne_kinop lda >>>>>>>>>>>>>>>>>>>> Chap_kinop_1 JSR Set_lean_kinop jmp banzai_stop ; Chap_kinop_2 lda #0b273h sta oamdat+10h JSR Cork_set jmp banzai_stop Chap_kinop_3 JSR Set_turu_0 JSR Set_up_kinop jmp banzai_stop ; Chap_kinop_4 JSR Set_turu_1 ; banzai_stop JSR Banz_stop_kinop owari_kinop rts ;<<<<<<<<<<<<<<<<<<<< セレクトデーター >>>>>>>>>>>>>>>>>> Select_kinop DW owari_kinop,Chap_kinop_1,Chap_kinop_2 DW Chap_kinop_3,Chap_kinop_4 ;<<<<<<<<<<<<<<<<<<<< バンザイストップ >>>>>>>>>>>>>>>>>> Banz_stop_kinop ldy #0040h ldx #0 lda KINOP_POSE,x tax JSR AWARD_OAM_SET rts ;<<<<<<<<<<<<<<<<<<< シャンペン傾けセット >>>>>>>>>>>>>>>> Set_lean_kinop ldy #0028h ;ＯＡＭアドレス ldx #0 JSR Set_KINOP_Cham rts ;<<<<<<<<<<<<<<<<<< シャンペン直立セット >>>>>>>>>>>>>>>>> Set_up_kinop ldy #0028h ;ＯＡＭアドレス ldx #0002 JSR Set_KINOP_Cham rts ;<<<<<<<<<<<<<<<<<< つるセット >>>>>>>>>>>>>>>>>>>>>>>> Set_turu_0 JSR Set_ERASE ;-------(つる　の先セット)-------- lda #0a472h sta oamdat+1c0h lda #3d2ah sta oamdat+1c2h ;-------(つるの葉セット)---------- ldx #0 lda #3d2ch loop_turu sta oamdat+1c6h,x JSR X_inx cpx #0014h bne loop_turu ; lda #0aaaah sta msbdat stz Turu_counter rts ;<<<<<<<<<<<<<<<<<< つるセット_1 >>>>>>>>>>>>>>>>>>>>>>>> Set_turu_1 equ $ ;-------(つるの先カウンター)----------- Set_counter lda >>>>>>>>>>>>>>> Set_KINOP_Cham equ $ lda KINOP_Champgne,x tax JSR AWARD_OAM_SET rts ;<<<<<<<<<<<<<<<<< コルク用サブルーチン >>>>>>>>>>>>>>>>>>> Cork_set equ $ lda Cork_place ;コルク軌道セット clc adc #0202h sta Cork_place lda oamdat+10h sec sbc Cork_place sta oamdat+10h ; lda #38deh ;コルクのキャラクターセット sta oamdat+12h ;- - - - - - - - - - - - - - - - - - - - - - lda Shock_flag cmp #000ah beq owari_cork ; ldx Shock_flag lda Cork_data,x ;フラシュコルクセット sta oamdat+12h ; lda Shock_flag ;最初のコルク発射チェック bne cork_jump ; lda oamdat+28h ;瓶ショックセット clc adc #0202h sta oamdat+28h cork_jump inc Shock_flag inc Shock_flag owari_cork rts ; Cork_data DW 38ech,3aedh,3aeah,3aebh,3afah,3afbh ;********************************************************** ; ヨッシー ;********************************************************** Set_YOSSY equ $ phy ldx >>>>>>>>>>>>>>>> lda >>>>>>>>>>>>>>> Champne_yossy lda >>>>>>>>>>>>>>>>>>>> YOSSY_set1 JSR Banz_stop_yossy JSR Set_up_yossy JMP owari_yossy ; YOSSY_set2 lda #0b273h sta oamdat+10h JSR Banz_stop_yossy JSR Cork_set JMP owari_yossy ; YOSSY_set3 JSR Set_fit_yossy owari_yossy rts ;<<<<<<<<<<<<<<<<<< インデックスデーター >>>>>>>>>>>>>>> Select_yossy DW owari_yossy,YOSSY_set1,YOSSY_set2 DW YOSSY_set3 ;<<<<<<<<<<<<<<<<<< バンザイストップ >>>>>>>>>>>>>>>>>>> Banz_stop_yossy ldx #0 ldy #0040h ;ＯＡＭアドレス JSR Set_YOSSY_POSE rts ;<<<<<<<<<<<<<<<<<< シャンペン傾けセット >>>>>>>>>>>>>>> Set_up_yossy ldy #0028h ;ＯＡＭアドレス ldx #0 JSR Set_YOSSY_Cham rts ;<<<<<<<<<<<<<<< シャンパンファイトセット >>>>>>>>>>>>>> Set_fit_yossy equ $ ;--------(ポーズセット用)-------------- ldx #0000 lda yossy_flag beq Set_yossy_pose ; ldx #0002 Set_yossy_pose ldy #0040h ;ＯＡＭアドレス JSR Set_YOSSY_POSE ;---------(シャンペン用)---------------- inc Fight_timer ;タイマーチェック lda Fight_timer and #000fh cmp #0004h bne owari_yossy_set ; lda Fight_timer ;ストップチェック and #0800h beq Fight_check ; lda Fight_timer ;ストップタイマーカウント and #8f00h sta Fight_timer lda Fight_timer clc adc #0100h sta Fight_timer ; and #0f00h ;ストップタイマーカウントチェック cmp #0900h bne owari_yossy_set ; inc yossy_flag ; lda Fight_timer ;ストップタイマーリセット and #8000h sta Fight_timer jmp All_reset ; Fight_check lda Fight_timer ;往復チェック and #8000h sta Fight_timer bne back_set ; inc >>>>>>>>>>>>>>>>>>>>>>>>> Set_YOSSY_Cham equ $ lda YOSSY_Champgne,x tax JSR AWARD_OAM_SET rts ; Set_YOSSY_POSE equ $ lda YOSSY_POSE,x tax JSR AWARD_OAM_SET rts ; Set_fight_yossy ldy #0028h ;ＯＡＭアドレス ldx >>>>>>>>>>>>>>> Scroll_routine equ $ mem16 idx16 lda >>>>>>>>>>>>>>> Revolve_routine equ $ mem16 idx16 lda Rotate_mode7 rts ;<<<<<<<<<<<<<<<<<<< ｘセット >>>>>>>>>>>>>>>>>>>>> X_inx equ $ inx inx inx inx rts ;<<<<<<<<<<<<<<<<<<< Yセット >>>>>>>>>>>>>>>>>>>>>> Y_iny equ $ iny iny iny iny rts ;<<<<<<<<<<<<< オブジェMSB用サブルーチン >>>>>>>>>>> OBJ_ERASE equ $ mem16 idx16 rep #00100000b phx txa and #000ch ;何個目のオブジェチェック lsr a lsr a tay ; txa ;何個目のMSBチェック lsr a lsr a lsr a lsr a tax ; mem8 sep #00100000b lda msbdat,x ;MSBセットチェック and MSB_data,y bne Set_MSB1 ; lda msbdat,x ;MSB裏画面セット ora MSB_data,y sta msbdat,x plx ; lda >>>>>>>>>>>>>>>>>>> AWARD_OAM_SET equ $ mem16 idx16 loop_OAM_set lda !0,x cmp #0ffffh beq owari_Set sta oamdat,y inx inx iny iny jmp loop_OAM_set owari_Set rts ;<<<<<<<<<<<<<<<<< 表彰Ｈポジションセット >>>>>>>>>>>>>>>>>> SET_Hposition equ $ mem8 loop_Hpos lda !0,x cmp #0ffh beq owari_Hpos sec sbc >>>>>>>>>>>>>>>>>> SET_Vposition equ $ loop_Vpos lda !1,x cmp #0ffh beq owari_Vpos sec sbc >>>>>>>>>>>> lda >>>>>>>>>>>>>>>>> mem16 rep #00100000b lda #12abh ;アドレスセット sta >>>>>>>>>>>>>>>>>>>>>>>>>>> lda #0002 ;書き換え回数セット sta >>>>>>>>>>>>>>>>>>>> inc >>>>>>>>>>>>>> Counter_set equ $ ldx >>>>>>>>>>>>>>>> KAKIKAE_set mem8 idx16 tax ; ldy #0 loop_character lda