[FC][音乐12 IN 1][nes + 源码]

yandagui · 发表于 2023-7-23 20:06:50

本帖最后由 yandagui 于 2023-7-23 22:29 编辑

[FC][音乐12 IN 1]
时间: 2023.07.23
作者: FlameCyclone

收录音乐内容:
1.Raf世界
2.最终任务
3.赤影战士
4.双截龙
5.双截龙2
6.双截龙3
7.洛克人
8.洛克人2
9.洛克人3
10.洛克人4
11.洛克人5
12.洛克人6

操作:
上键:       上一个专辑
下键:       下一个专辑
左键:       上一曲
右键:       下一曲
B/A键:       前10曲/后10曲
选择键:    下一页
开始键:    停止/播放

http://flamecyclone.ysepan.com/

;[FC音乐][播放器模板]) h$ i; v: J+ g1 A& Q
;FlameCyclone 20230710# K. w* T: J5 h5 Z9 D5 B
0 e4 G" ?6 o& a8 V$ |
;文件头 {% d1 S! ]% A/ O
;======================================================================7 F2 u9 Z ?" l' X; M
.INESPRG 16 ;16KB PRG 数量
, C: x) r$ v! g7 X% J% ^3 m
.INESCHR 1 ;8KB CHR 数量: T: f+ E3 s* b: J; c5 n
.INESMAP 4 ;mapper 4/ l) G, H; {) Q* f6 K2 G" b1 n
.INESMIR 1 ;命名表镜像 0水平 1垂直
2 ]6 t# G/ Q$ K! q0 `+ n- N s
' {! w i1 `+ z+ L( j
;==================================================
* g8 I6 B) d& T9 o% I
SOUND_BAR_SHOW_ENABLE = 14 ^$ z9 T' m2 T1 c5 h# G
;==================================================
# t; b, i f0 N" I2 f
BANK_DATA_MASK = $1F% x2 P) I c& z6 l: `
CHR_RAM_ENABLE = 0
& v! J( x. G2 C9 s* J
IRQ_SCANLINE = 136
2 k5 @; S7 k+ {) H
;==================================================
( S* V0 t1 A7 t0 K- p n
SOUND_DATA_BANK_00 = $00/ ]3 v) ^2 f. t0 ^3 J
SOUND_DATA_BANK_01 = $01. s) H* {5 j' n1 l6 m
SOUND_DATA_BANK_02 = $02* M* M3 B O0 K# Y: `4 N* `& Z
SOUND_DATA_BANK_03 = $03
6 ~9 [2 P& ]9 |" A) R2 e, F+ Q
SOUND_DATA_BANK_04 = $04
6 J) x- _. }# O* X9 b
SOUND_DATA_BANK_05 = $055 M' h* }" x! f( z2 k2 f4 L. G$ x
SOUND_DATA_BANK_06 = $06
f6 L7 P% q9 x, ^
SOUND_DATA_BANK_07 = $07* O1 t- ?1 y8 ?, j9 k3 g- l
SOUND_DATA_BANK_08 = $08, m+ C' f3 O' t Z( [7 v4 m: K
SOUND_DATA_BANK_09 = $091 e. R& e% G, a& w% J& u# q
SOUND_DATA_BANK_0A = $0A
3 k4 {* Z3 o$ [4 S I
SOUND_DATA_BANK_0B = $0B0 U1 x# h4 a3 x/ e
SOUND_DATA_BANK_0C = $0C
$ _$ }# @. D1 c" r( V% `
SOUND_DATA_BANK_0D = $0D
F$ b. ~" ?" q& t! O
SOUND_DATA_BANK_0E = $0E
5 l# N- L% l" N7 F+ R
SOUND_DATA_BANK_0F = $0F) f( d2 y I7 c* G3 ^
) t* \- t9 O9 O
SOUND_DATA_BANK_10 = $10$ w7 ]( y# p* Y) v( s4 ~
SOUND_DATA_BANK_11 = $11
R; \0 K! s3 X2 Y4 ~) C9 y
SOUND_DATA_BANK_12 = $127 s3 x0 S% Y' G
SOUND_DATA_BANK_13 = $13
7 G* i2 k9 G4 {3 J: W/ C3 M- R s
SOUND_DATA_BANK_14 = $14
; n" D9 T2 z) q5 F) y- m9 v Q
SOUND_DATA_BANK_15 = $152 N1 ^1 [0 x8 o' b
SOUND_DATA_BANK_16 = $16
9 ~% w* t$ k! w5 ]6 C, A
SOUND_DATA_BANK_17 = $17: M9 m! u9 E$ j1 j
SOUND_DATA_BANK_18 = $18- [% |, E! R0 M. B: `- z# J
SOUND_DATA_BANK_19 = $19) k: t3 e0 a, j$ _2 `; R$ Q
SOUND_DATA_BANK_1A = $1A0 c. D6 |5 N1 E. L- d
SOUND_DATA_BANK_1B = $1B f) S5 s' z- {- f
SOUND_DATA_BANK_1C = $1C
0 ^- Q, ^( V, h
SOUND_DATA_BANK_1D = $1D
: v) T0 T1 J+ P I
# G; q& _2 E7 e. F- m+ ]" Y- w
SOUND_DATA_BANK_C000 = $1E
( @! F: ?) G$ w4 [
SOUND_DATA_BANK_E000 = $1F
3 F8 N+ e! Q/ W& ^
;-------------------------------------------------
: _7 x4 ~# Q5 o/ C- ~! B! F" X
CHR_DATA_BANK = $20
: y. L' c& B# ~# c. c: L
CHR_DATA_ADDR = $A000* W/ I P3 P, h' L% \
;-------------------------------------------------
0 [$ h+ i' g0 K0 A' |
PROGRAM_BANK = $002 m9 C5 M- e# b( t, i5 u9 |6 Q
PROGRAM_ADDR = $8000$ v {3 r7 s0 A2 Q: N6 H
;-------------------------------------------------
/ l8 b' Z. V$ I! X1 V
RESET_BANK = $1F C4 S5 f2 V3 t; Z& m4 f; P
RESET_ADDR = $FD00
# X/ S2 C) p* S( E7 _
, H1 p7 ~8 f, @6 i/ v+ k
;==================================================
& Y# q! r5 [+ Y/ B+ K
ITEM_MAX_SIZE = 12 ;最大节目数
) K8 x0 S5 j# F2 C/ H
ITEM_MAX_INDEX = ITEM_MAX_SIZE - 1 ;最大节目索引 h6 o0 c1 t, D4 j# {3 P
PAGE_SIZE = 5 ;每页节目数
6 r" }! n, \0 C* a6 J# u% J
# |, X0 r' j/ o3 f! A' q4 Y
;==================================================
0 T3 w3 ?; e @/ \" v8 }
.IF ITEM_MAX_SIZE % PAGE_SIZE ;不能整除
6 G! |+ [1 F; Z3 C
PAGE_TOTAL_SIZE = ITEM_MAX_SIZE/PAGE_SIZE + 1 ;页码总数
K9 m5 [* s. N/ W
.ELSE
, R" Z7 T0 [/ U! X
PAGE_TOTAL_SIZE = ITEM_MAX_SIZE/PAGE_SIZE ;页码总数5 n! H& `. \9 a5 S/ p0 p
.ENDIF1 k0 [: K V2 ?, H' r
; i; d5 |5 b! |
PAGE_MAX_INDEX = (PAGE_TOTAL_SIZE - 1) * PAGE_SIZE;最大页索引
$ N# y. G# C4 l9 j% T* j9 C) @; o
3 ^$ G& P- J& h; h( B
;==================================================8 i6 h2 [3 f# ^- F6 ~
ITEM_SHOW_POS = $20A8 ;节目名位置
4 `/ D8 \, v; e
ARROW_X_OFFSET = (((ITEM_SHOW_POS & $1F) - 1) << 3) - 2
/ d: E6 X( f- T8 Z: |7 a( ]% ?
ARROW_Y_OFFSET = (((ITEM_SHOW_POS & $03FF) >> 5) << 3) - 1;
, q+ [3 m8 Z& f* p. f
;==================================================
5 z, F9 |7 `0 @" I4 S. Z. q- f
Caption_Text_Pos = $204D ;标题文本位置
: k* ~+ S- u$ j& s
Author_Text_Pos = $2324 ;作者文本位置1 J* V$ c+ u) K5 t
Date_Text_Pos = $236B ;日期文本位置
& e6 B) E, ~* `' a! L& p+ \
;------------------------------
* j& E. o0 K5 L" n* F' @0 ?
;------------------------------/ B. B! N( Y3 R( M
.IF SOUND_BAR_SHOW_ENABLE9 F* M+ O5 s# A2 k4 t
0 w8 c4 }7 N' J3 f4 k: s
Play_Index_Pos = $2273 ;当前曲目位置/ y( l% h& F0 x5 A
Play_Time_Pos = $22B3 ;播放时间位置9 T$ M% P5 @5 q o' e
Play_State_Pos = $22F3 ;播放状态位置+ b8 @. d2 o6 ]' l$ w! Y
& V6 M2 V5 A" L: }) t# u! H
.ELSE
: n) F% W- A* ^* C" D' L7 l
. s( T L K2 B+ @
Play_Index_Pos = $226C ;当前曲目位置) \! O% @ n9 j$ c& L
Play_Time_Pos = $22AC ;播放时间位置
, {# P3 }9 ^/ x* J# S
Play_State_Pos = $22EC ;播放状态位置9 M( G) ]* D+ n6 @' K) {
( d0 J6 f6 i: F
.ENDIF
& b# A0 V8 b# |; Y+ c9 y, O
;------------------------------
/ V( ?$ _) M2 B! T( g1 ?6 O
Track_Name_Pos = $222B ;曲目文本位置
7 x0 b3 s7 L s9 L# @& x
;Track_Name_Pos = $00 ;曲目文本位置
5 L E1 u$ [( H6 `! x. {3 N: c/ N6 Y
Sound_Track_Pos = $2265 ;声道文本位置
* z7 M, H/ f8 v) H" M, Y$ \2 ]5 C
Sound_Bar_Pos = $2269 ;音乐条位置5 ^0 F" ]$ D, i: C+ R- n/ Q
;==================================================! V6 f: d, V8 Y+ w
Scroll_X = $00
5 i2 n% \3 \% a7 @% P* K. D3 i* H: H
Scroll_Y = $00
5 _$ }4 R8 a) I6 s2 c2 F& H0 E
;==================================================% a7 V5 F$ E- v( X
Sound_Ram_Addr_1 = $0100* d$ o2 b( I; j/ ?, }
Sound_Ram_Addr_1_Size = $80
5 v4 _3 X, F. b M9 @
Sound_Ram_Addr_2 = $0090" ]+ t& k, C9 o r" ]8 R, X* p
Sound_Ram_Addr_2_Size = $70
- |: @' w6 E3 x$ Q% n+ \( X+ ~
Sound_Ram_Addr_3 = $0700
: b2 e9 x# y. _8 a
Sound_Ram_Addr_3_Size = $00
. w* t; [+ y) @; |$ f
Sound_Ram_Addr_4 = $04004 E4 H3 ~" h9 `* m2 h( {! C
Sound_Ram_Addr_4_Size = $00: l! c9 p2 s$ Z/ h
Sound_Ram_Addr_5 = $0500( K8 W# Z" \0 r, i$ q* O! ]
Sound_Ram_Addr_5_Size = $40
" T' D4 z, d+ e1 x% z& e
4 Q2 n% ]! Z. g: c( Y0 |9 l8 J
OAM_TEMP_ADDR = $0300
' A1 [! N+ _& ^
: |- Y3 U- d# x& W* v
;==================================================; Y. g9 Y, N6 M
PPU_CTRL = $2000 ;PPU控制寄存器4 u4 j& i5 b4 v! v6 j3 m
PPU_MASK = $2001 ;PPU掩码寄存器. G) \7 H7 t5 ?0 y7 z+ l9 s8 |
PPU_STATUS = $2002 ;PPU状态寄存器：读取后PPU_SCROLL和PPU_ADDRESS被复位，下一个写到PPU_SCROLL的数据是水平的，写到PPU_ADDRESS的数据是高位0 ^# G) u8 b, K) ?2 i
PPU_OAM_ADDR = $2003 ;精灵RAM地址：用来设置通过PPU_OAM_DATA访问的256字节精灵RAM地址。每次访问PPU_OAM_DATA后该地址增加1
3 m" M9 ^( y" z: N
PPU_OAM_DATA = $2004 ;精灵RAM数据：用来读/写精灵内存。地址通过PPU_OAM_ADDR来设置，每次访问后地址增加1( p& m3 p/ I7 h+ y: [
PPU_SCROLL = $2005 ;屏幕滚动偏移：第一个写的值会进入垂直滚动寄存器（若>239，被忽略）。第二个值出现在水平滚动寄存器
$ r F4 u6 W1 |# _* p8 E3 |6 l
PPU_ADDRESS = $2006 ;VRAM地址：设置PPU_DATA访问的VRAM地址。第一个写地址的高6位。第二个写低8位。每次访问PPU_DATA后地址增加1 ^2 B) @- @ d5 H, p' `( G
PPU_DATA = $2007 ;VRAM数据：用来访问VRAM数据，通过PPU_ADDRESS设置的地址在每次访问之后会增加1或32 9 U' R: f9 \$ g8 b& T! s9 ?
OAM_DMA = $4014 ;DMA访问精灵RAM：通过写一个值xx到这个端口，引起CPU内存地址为$xx00－$xxFF的区域传送到精灵内存$ P) F9 B; |, W, W m$ w
APU_STATUS = $4015 ;声音通道切换
( l0 W7 e0 W; V; w6 Z
JOY1_FRAME = $4016 ;手柄1 + 选通
" W4 [0 p( p$ [9 n. G2 g3 |
JOY2_FRAME = $4017 ;手柄2 + 选通1 i& T* U# Q: \5 {! ?7 L! |5 X/ ~% O
;==================================================
* \, C# k0 d* I% J
MMC3_BANK_CTRL = $8000
* K' A8 E8 r( @* Y9 v% `: _1 g8 q
MMC3_BANK_DATA = $8001* d3 L, R& G4 i& R) x( l
MMC3_MIRRORING = $A000
4 P* y2 v( F4 {5 X( a
MMC3_PRG_RAM_PROTECT = $A001
4 y) q" P; k4 d% Y
MMC3_IRQ_LATCH = $C000, }! o7 A% T" f, M
MMC3_IRQ_RELOAD = $C001
$ g9 k }1 q+ P. v# P! J6 z2 w2 ^9 S
MMC3_IRQ_DISABLE = $E000! f, f1 d6 N' }/ o% V3 b; J
MMC3_IRQ_ENABLE = $E001
5 }) T$ ^# G2 E$ _, Y
$ O8 C5 Q5 k7 @, w6 a7 u! B- o
;==================================================
/ d# @/ c* A; K
PPU_Addr = $0200
. {4 l/ l9 K* u6 G2 m
Palette_Addr = $02C0
7 T4 c- m% ?, h/ P% o( T# }: ?9 n
Sound_Bar = PPU_Addr+$E0
1 i( z) V7 L+ o% ?4 f$ S: T7 {
;==================================================% x7 T0 k% X, X
Bkg_Palette_Update_Addr = Palette_Addr+$0D, A/ T# W5 d# c
Sprite_Palette_Update_Addr = Palette_Addr+$11
( f* b: m" @) V4 S; R0 I5 C
PALETTE_UPDATE_MAX = $2C
6 ^, N/ Y& e+ z& g& p0 i1 z* M
PALETTE_UPDATE_MIN = $21; v: R" @% O# w; ^ [. S# {
PALETTE_UPDATE_INTERVAL = 60
" J0 k: e7 e4 A3 d3 L0 p
;==================================================
# ~% w7 o; g, k* Y4 h. ]
Sound_Bar_Cnt = PPU_Addr+$F0
4 }* ?, | ^" P" C9 f
PPU_Cur = Sound_Bar_Cnt+$02$ @" A" V7 W' b7 o1 o& z
PPU_Addr_H = PPU_Cur+$03
8 s+ a h5 Q, G7 F5 ^2 d
PPU_Addr_L = PPU_Addr_H+$048 |; m4 ]2 t7 K: B! Q9 F3 @
Screen_Ctrl = PPU_Addr_L+$01/ r5 n8 F& F: P# t4 h
Screen_State = Screen_Ctrl+$011 S2 M! T6 s; }( b8 y# q6 |3 I
;==================================================
+ [ W* Q1 A! e8 w
Use_Ram_Begin = $50
. k# I) x* t0 z! S. {
;==================================================
$ d. C5 T5 @8 u8 D0 U# p9 Z
JSR_Addr_Op = Use_Ram_Begin# k- r1 \7 w6 p) s4 m6 N1 ]
JSR_Addr_L = JSR_Addr_Op + $01( ]) V2 {; R8 ]/ t3 _2 J+ R- h$ d
JSR_Addr_H = JSR_Addr_L + $01
7 y1 v; M4 N: E0 O. N
JSR_Addr_Rts = JSR_Addr_H + $01; N. B5 O4 w* k' q4 s! j
Data_L = JSR_Addr_Rts + $01
" O O; N! {- g6 g0 @+ B1 V) o* I1 T
Data_H = Data_L + $015 l1 U+ z4 }5 r6 [# g
Data_Cnt = Data_H + $01 s, t( {( O" U2 \5 P5 U" m
Data_Buf = Data_Cnt + $01& z! b) \7 K0 T, M/ v
Nmi_Time_Count = Data_Buf + $011 Q* m* x4 |; S8 i7 G4 n3 e
Time_Wait_Cnt = Nmi_Time_Count + $01
+ m% i! B, C( P- K' E9 O1 U0 m
Palette_Wait_Cnt = Time_Wait_Cnt + $015 W* A8 A7 {, a, s1 N' {
$ |% k, n0 @- [0 G
;调色板刷新标志5 o% F2 m4 K% U# g- D# g3 [6 E
Palette_Update_Flag = Palette_Wait_Cnt + $016 ^' x2 u9 ~3 F# p) x! g' D, T
/ K5 I( ^9 ]- l" _' ^/ t
;当前帧文本写入禁用标志
" \. T: X, }$ j
Text_Disable_Flag = Palette_Update_Flag + $01
# l( p7 I/ x- f: G$ j* W
! q w% ?2 P- Q/ ~* t
;==================================================
8 m+ g. [' z: k
;当前帧文本写入禁用标志, 防止缓冲过大导致画面跳动# E0 T* O7 U3 S2 ^9 m) M/ j4 z
TEXT_DISABLE_BAR = %00000001 ;音乐条
3 H/ t1 [" O+ q
TEXT_DISABLE_TIME = %00000010 ;播放时间+ u+ ^' [' f& O4 L
TEXT_DISABLE_ITEM = %00000100 ;播放时间7 o* }) n1 B( `. z2 K3 |* x
TEXT_DISABLE_RAM = %00001000 ;播放时间& ?; F- H ~0 |3 F( \1 F; W+ g$ @ B
;==================================================6 r, {) A0 ~/ p2 P
Key_Keep = Text_Disable_Flag + 1/ \ I3 C6 k$ G
Key_Once = Key_Keep + $01* v1 o! V% t& j- [* e
Key_Kemp = Key_Once + $01( F2 M2 q9 u K: [& y4 S+ c2 J
Key_Temp = Key_Kemp + $01
3 D2 l$ u4 B. N, x k
Key_Getv = Key_Temp + $01
M( Z& b: ~0 e) g5 W2 ~3 r
;==================================================! h+ d2 y0 D. G4 T5 I
Music_Item_Cur = Key_Getv + $01 ;当前音乐集5 {, a6 E9 d* D- o, p9 S% D
Music_Item_Last = Music_Item_Cur + $01
! S5 {) h$ n. } I% y7 J
Music_Total = Music_Item_Last + $01 ;当前音乐集% L/ @7 t7 x3 n1 e+ H9 q+ b
Music_Cur = Music_Total + $01 ;当前曲目
z% D- ~# m; {
Music_Last = Music_Cur + ITEM_MAX_SIZE ;上一个曲目
0 {7 w5 [7 N) E5 c
Music_Stop_State = Music_Last + $01 ;播放停止状态
. S6 P% d. p$ e Q6 C& Q7 G
;==================================================! r* Q7 \4 Q! d
HEX_Data = Music_Stop_State + $01
" H6 Y @& b$ o+ Y- \1 n/ [
DEC_H = HEX_Data + $01' n1 o1 V) M+ O% ^( j# X) W
DEC_T = DEC_H + $01
! C) B6 [ v2 @1 ^, v; ?" t) b
DEC_L = DEC_T + $01
$ `, p( N; ]$ {9 g# ^3 S
;==================================================) V9 @) d6 e! M) Q7 i
Time_S = DEC_L + $01
* r( y$ X+ H1 P7 s" Z
Time_M = Time_S + $01
" h& ~! p( I4 s( n B/ o
Time_H = Time_M + $022 n9 E2 n* [0 q6 D! u
Time_Cnt = Time_H + $039 A1 m9 Q. p) q7 I/ I
# [. v7 }9 A( U G
;==================================================' z5 ^, h- T2 m# ]* L5 n
Music_Bank_8000 = Time_Cnt + 1
5 }8 S" R6 Q% Z$ W# G* _" V
Music_Bank_A000 = Music_Bank_8000 + 1
! E$ J' ?0 Z1 |+ S# a9 \0 g
;==================================================6 n u2 k& O. G+ M
Scroll_H = Music_Bank_A000 + 1
: a, P! p. [) Y2 S8 r1 y
Scroll_V = Scroll_H + 1
+ i! ~$ a+ \+ n
IRQ_Process_Index = Scroll_V + 1$ P" E9 M+ B7 ]; C
;--------------------------------------------------' Z- w: H* r5 M% t: u j
Page_Cur = IRQ_Process_Index + $01( Z3 b! s* b7 E7 A* u
Page_Cur_Index = Page_Cur + $015 l$ ]: p* f) c1 O
Page_Cur_Cnt = Page_Cur_Index + $011 k# S# K! u! `& n1 w- G6 z5 k
Page_Last = Page_Cur_Cnt + $01
$ k/ B& ?/ H( `* X4 R" m ?/ T
Page_Last_Index = Page_Last + $01
+ G5 o- e& a6 E/ H; a
Page_Last_Cnt = Page_Last_Index + $016 _) x. G3 }. \
Use_Ram_End = Page_Last_Cnt + $01
/ r6 g4 a% U) M2 S( s" @
;======================================================================
1 W" b% h' z' ]8 G1 ~
;音乐数据块; B# p0 X" m2 n+ @+ }
4 K. [+ ]4 M- k. }
.IF SOUND_BAR_SHOW_ENABLE- H7 L3 a) {0 i0 |& Y; j% N9 z
! \+ t8 {( z( u0 E" ^' ^* Z
.BANK SOUND_DATA_BANK_00 & BANK_DATA_MASK
. q- q7 i$ O W2 U6 f
.ORG $9000
3 V% p) y* T. l$ V- J) y0 T/ H
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_0_bar.bank"
0 d$ [0 h: H( O% W
1 c8 s# `$ T+ U% I7 J' f* H- c
.BANK SOUND_DATA_BANK_01 & BANK_DATA_MASK2 g' Y+ A0 g: j& d7 Z- e* e L" n
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_1.bank"7 e* L2 ?3 x2 \' H" J
# D5 A6 p5 x6 [
.BANK SOUND_DATA_BANK_02 & BANK_DATA_MASK S7 g0 p( K+ p `' @
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_0_bar.bank"
! g- m- Z& A _9 m# O3 \
6 \& z+ i1 J8 h: S- e& Y
.BANK SOUND_DATA_BANK_03 & BANK_DATA_MASK
5 S2 E& } }8 v' k: S6 Q) v, C
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_1.bank"
& E7 c4 I7 ]6 i7 ]# O
6 `" R, H; o3 q+ e7 f
.BANK SOUND_DATA_BANK_04 & BANK_DATA_MASK: \$ ?1 S1 P- O
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_0_bar.bank"" q9 R# z4 ~) ?0 c' }; C3 s
6 g9 e! V& X- ^! K& W/ u
.BANK SOUND_DATA_BANK_05 & BANK_DATA_MASK
0 }: o5 t/ w5 \8 `% f
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_1.bank"
4 }5 S+ _1 {1 |2 J
+ n4 Z$ m2 G n9 | S
.BANK SOUND_DATA_BANK_06 & BANK_DATA_MASK1 k8 I! j0 [) e& U' [& Z
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_2.bank"6 F+ U( L1 b! K' I$ J3 b* c
; z6 F/ ?5 \/ S$ ]
.BANK SOUND_DATA_BANK_07 & BANK_DATA_MASK$ @7 i/ C; u) b" U
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_0_bar.bank" U4 s i0 V/ e" j
( r' I" a1 Y2 S" x
.BANK SOUND_DATA_BANK_08 & BANK_DATA_MASK$ _+ t' ^0 j; F3 S J6 [6 B
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_1.bank"
% N) `. V/ s" }
1 F" z2 P) n* T) b5 ]% ^
.BANK SOUND_DATA_BANK_09 & BANK_DATA_MASK$ J" c6 L+ ]6 ?4 e/ P" \
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_2.bank"
) q" B- Q/ ^2 ^: i1 a! ]
* N! [3 ~/ L- O6 ?( O2 A
.BANK SOUND_DATA_BANK_0A & BANK_DATA_MASK* i4 }) H7 V* _+ s/ q
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_0_bar.bank"
O6 E7 n: ]5 M6 _9 Z, w2 A0 u R
5 ?. A" r9 ~/ p( Q! S
.BANK SOUND_DATA_BANK_0B & BANK_DATA_MASK
9 d* ]% q; @- ^1 w: O3 i# s
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_1.bank"
7 ^' W6 V4 L3 \( R$ c9 h2 W
, f4 ^9 `! J7 W" m+ P; p) z! E: K
.BANK SOUND_DATA_BANK_0C & BANK_DATA_MASK
) r' D& O* z$ S. H o
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_2.bank"
6 I- h/ S4 O9 L/ w
! V8 O0 G. H# n" H9 k/ k" I1 l
.BANK SOUND_DATA_BANK_0D & BANK_DATA_MASK s. Y* n5 b$ B9 F6 x
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_0_bar.bank"
4 G f6 z% b& j$ i! G' |! ?4 q
5 T, ?$ o( x, E' J
.BANK SOUND_DATA_BANK_0E & BANK_DATA_MASK
1 L& a8 `4 i4 q$ n
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_1.bank"
& T' p w1 I2 _$ s$ `! }
- ~1 `) L, _; \" H+ y
.BANK SOUND_DATA_BANK_0F & BANK_DATA_MASK
4 c+ X; a6 B' P: }) M* `- Q$ k4 p
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_2.bank"# |! P! Y5 B2 F N; E& Z2 G) x0 G
3 ^/ X3 W$ P/ f, M
.BANK SOUND_DATA_BANK_10 & BANK_DATA_MASK
( ]$ K; z& n! ~( n# V
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_8000_bar.bank", I& i, L, o+ V9 b; p+ E% }
# U8 M# r- N) H' d+ @$ E' P0 _) ^
.BANK SOUND_DATA_BANK_11 & BANK_DATA_MASK
# n0 c2 t! O( p' p( M8 c! h
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_A000.bank"
+ K6 }! H6 D( J3 H/ m
3 ~, B Z. m I( f! L3 H0 k- T
.BANK SOUND_DATA_BANK_12 & BANK_DATA_MASK
; g7 F. x' g2 U9 e3 s3 i' r d
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_8000_bar.bank"
. R h2 s/ A: ^$ t7 b: d
$ y1 ~' N; Z3 w& r0 e; }
.BANK SOUND_DATA_BANK_13 & BANK_DATA_MASK A9 J/ A1 ?; z2 B& b7 i( O3 ?
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_A000.bank": Z% E( @, P$ w* y1 L j
: U4 I( ^- w2 G4 W9 n$ ]4 N
.BANK SOUND_DATA_BANK_14 & BANK_DATA_MASK `: l3 G5 L3 z3 o3 w; l+ A
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_8000.bank"
3 T- ^) g/ J9 s! f. `; r) J s( W
d) ^- }. K8 X# {* a( `5 k; V! t/ N
.BANK SOUND_DATA_BANK_15 & BANK_DATA_MASK4 |+ D3 Z- t% r* I" t& ~3 u1 M
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_A000_bar.bank"4 T4 i1 W* ?" F- D& q- F
5 m6 Q9 I4 {: Q3 s
.BANK SOUND_DATA_BANK_16 & BANK_DATA_MASK
$ e9 Y# F$ j2 |8 X% w& W
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_0_bar.bank"
: t( _" E5 `% ?. r. o' l) |# p
2 Y: P' C6 n1 s8 Y- k
.BANK SOUND_DATA_BANK_17 & BANK_DATA_MASK* ]* k9 R& j8 f2 Q' l
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_1.bank"6 p3 L& v7 ]' u* ?* s
7 f/ S1 C* M+ ^* b" i) a$ {* F
.BANK SOUND_DATA_BANK_18 & BANK_DATA_MASK' T! a8 M: Q& v4 Z
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_0_bar.bank"' K$ u7 C! q3 h' F
2 x7 }2 O, A0 r. |" N
.BANK SOUND_DATA_BANK_19 & BANK_DATA_MASK
5 m6 c! G+ n7 f# S @% b& {7 V
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_1.bank"
- s8 e; M6 z7 j& v A" T: m
" o/ j$ I5 X' |, T X9 c8 p1 u
.BANK SOUND_DATA_BANK_1A & BANK_DATA_MASK
( R( n$ w+ d' U! H7 I
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_0_bar.bank"2 B+ W& H. n5 L. T! q, C
" H9 x! J2 d2 s
.BANK SOUND_DATA_BANK_1B & BANK_DATA_MASK
* H4 {3 f3 ~" {' u* t$ s
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_1.bank"
8 L5 l7 _. `: ^, o
, o5 f, }- O3 y% z
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
, H0 Q/ ~- E7 a1 y+ y% l
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_C000_dmc.bank" b& ^; ?( H( F0 M
" [$ n/ c5 _2 E5 x
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
: E1 Y- b3 O; w9 A% h8 w# ?
.ORG $D400
' }1 Q* e0 G' J( @; K
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_C000_dmc.bank"
$ p$ D' s" K' h
$ Q: Q* I/ l m/ r2 u
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
4 i2 y2 ~/ \8 _2 I0 s( ?6 z/ Z* I
.ORG $D800
7 a3 a4 Y& P) h) e
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_E000_dmc.bank"" J$ j& o/ `3 H% T& E
- l0 G# b$ D2 q: w" P( H, X* \3 [& h, n
7 N% i; y+ p" b7 G% `; ^
.ELSE/ K9 R1 d6 u8 P
$ X, S! u2 y5 U: M6 R
.BANK SOUND_DATA_BANK_00 & BANK_DATA_MASK! r7 b6 J6 r( T
.ORG $90004 S7 s7 P3 K% ]$ X* x& _
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_0.bank"
, @; V0 X9 J+ _$ U# G8 \
/ ^5 C4 _8 L. u9 b0 B" m9 D
.BANK SOUND_DATA_BANK_01 & BANK_DATA_MASK- d' a1 f R$ U& l+ O$ g1 e
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_1.bank"
2 L. ^* `# w4 P5 H7 Y2 U2 r+ Y
/ p/ f9 [/ J, d( v& G$ {6 f
.BANK SOUND_DATA_BANK_02 & BANK_DATA_MASK! W- y3 J, c8 Z- A' M- d2 T
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_0.bank"
' v# F, B" R. @
& O [! p- B: }
.BANK SOUND_DATA_BANK_03 & BANK_DATA_MASK
+ x# K8 _6 h7 R
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_1.bank", f, t# b9 [7 T9 Z7 l0 Q6 q8 h3 s
2 }: l7 ^1 X# S. U
.BANK SOUND_DATA_BANK_04 & BANK_DATA_MASK* [ \/ v* {8 V
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_0.bank"
% |& T7 {5 Q# H- z4 n
$ V' i! A8 X3 a1 m
.BANK SOUND_DATA_BANK_05 & BANK_DATA_MASK
9 R$ f: U0 H0 i4 R
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_1.bank"
* m/ y3 B5 \% k7 I9 V+ c U% e
, h. x7 M4 ? u1 b3 l
.BANK SOUND_DATA_BANK_06 & BANK_DATA_MASK
]& o9 x5 C( w; x
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_2.bank"+ M4 a) ]! M7 B. h/ W
6 [; q3 D( I, |1 O) d! I7 I6 D
.BANK SOUND_DATA_BANK_07 & BANK_DATA_MASK
% E7 z" A0 l8 H" x1 X
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_0.bank"
4 J& f4 g+ \, B! ]
8 t+ h5 s4 ~+ H% _5 B% d
.BANK SOUND_DATA_BANK_08 & BANK_DATA_MASK
* S2 P: G1 I7 l7 g+ w) G& g8 D- d. q
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_1.bank"3 g0 l3 J; y9 w/ x% K0 y) l$ _
; V* o: q' W! t
.BANK SOUND_DATA_BANK_09 & BANK_DATA_MASK2 u @. H5 w6 I% y! O7 F
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_2.bank"
% j" I& t6 P% z& z9 Q
( \+ y" c9 a1 \6 u8 A! t
.BANK SOUND_DATA_BANK_0A & BANK_DATA_MASK
8 ]' {' W& o; \$ j9 Y
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_0.bank"
+ a7 z8 ]3 m% W- }; Z
' T2 l7 W" N U# b
.BANK SOUND_DATA_BANK_0B & BANK_DATA_MASK6 J) ?9 H8 J: D8 h( n3 z
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_1.bank"
; A* V9 @5 N" p
2 y. v% P: F5 W" T- Y: x
.BANK SOUND_DATA_BANK_0C & BANK_DATA_MASK# r _9 `3 n$ J& }6 n# _' v
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_2.bank"
( U+ A ?# {7 {: D/ r' x. m
/ K7 [6 b+ Y7 h2 u" G
.BANK SOUND_DATA_BANK_0D & BANK_DATA_MASK
( T6 l K6 h1 F- ?" q
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_0.bank"
" q3 a# w1 I7 I. |2 Y
; I/ g/ }3 V8 C2 v( O( H
.BANK SOUND_DATA_BANK_0E & BANK_DATA_MASK* _4 ^! f& Z. L, ^5 {4 L9 e
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_1.bank"
* ]6 w( \ n7 p1 j8 z. e, h7 Y
8 s( q, e* @) Q
.BANK SOUND_DATA_BANK_0F & BANK_DATA_MASK b0 O. T1 A' y" p8 o
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_2.bank"
/ ^& d% `. F% b
& t3 g+ s4 g) y% `+ a' V( b5 W
.BANK SOUND_DATA_BANK_10 & BANK_DATA_MASK7 R2 x# N4 z, [" e- y- o
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_8000.bank"
5 X. ]) K* O; |4 M" B. a
& t( [ |4 K2 `0 k9 c
.BANK SOUND_DATA_BANK_11 & BANK_DATA_MASK
# J! v" y& _+ q' j
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_A000.bank"
! Q% a$ n/ s2 |4 V5 r
( [& M6 [# D6 R* r
.BANK SOUND_DATA_BANK_12 & BANK_DATA_MASK
# @0 F" b) Y" K8 {
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_8000.bank"
5 R5 c: x+ S2 g& z
" v( ^8 G y2 n# S: c ?7 d1 x
.BANK SOUND_DATA_BANK_13 & BANK_DATA_MASK
# Z, W( I' \- M
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_A000.bank"3 k8 N0 h" m9 H8 |- E; @7 `8 ~
1 z5 c- M* Z: Z* R/ I- k' P o
.BANK SOUND_DATA_BANK_14 & BANK_DATA_MASK
/ R! O8 K& w3 d' L3 H
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_8000.bank"
8 l: O( t* O8 D a, Z+ e
* y& M% y+ D; M$ X
.BANK SOUND_DATA_BANK_15 & BANK_DATA_MASK
, p, X* Z8 t1 Q5 n0 X
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_A000.bank"
. S# G0 w/ ^3 [6 p* ]7 Y
: X( R( H9 `) R& h: E
.BANK SOUND_DATA_BANK_16 & BANK_DATA_MASK
- j+ w4 z6 |# s% i3 J; i, W6 S, J
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_0.bank". a# V. _2 ~# Y& ~4 O( `; O
' r( z6 Y" B. D0 P
.BANK SOUND_DATA_BANK_17 & BANK_DATA_MASK+ s3 v/ G. R9 A0 x8 w
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_1.bank"8 M7 H/ i, Y- ~3 _: {
% g% j) g K+ T/ D' }/ Z. ?3 e0 E
.BANK SOUND_DATA_BANK_18 & BANK_DATA_MASK
* M& Q7 n/ l8 `2 M
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_0.bank"
2 O: N9 q3 q3 A( r: P E6 T* _+ y
.BANK SOUND_DATA_BANK_19 & BANK_DATA_MASK4 B' e* }. ~+ O4 R+ Z8 Q2 z
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_1.bank"' B% p- z. T0 Y4 [/ E* e
- I* K1 S5 n/ L, u
.BANK SOUND_DATA_BANK_1A & BANK_DATA_MASK# a2 C. |/ U& }" G
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_0.bank"* @1 d( s. v" u4 ~+ _
7 S: `5 D( a( W' T" Q
.BANK SOUND_DATA_BANK_1B & BANK_DATA_MASK; V* F7 ]/ K0 L3 H. @ g
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_1.bank"3 a, c# \9 c* G; J0 ^/ L
. ?( l7 \, v% I+ p1 z
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
) x8 V, D# f: G# F
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_C000_dmc.bank"; }2 h9 C0 A" W% u7 l: e
4 Q3 g6 o$ W9 M+ `* W
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK# ~6 o# f5 e4 b. j# [! s T
.ORG $D400: J. P; G- F: A- D$ e* J& o
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_C000_dmc.bank"
. e& W6 B# n9 ?" Z; o
+ y! [4 M" }8 L) u# Q+ l
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK6 t3 T/ S/ F; ?" `4 c" ]3 Z% e" Z
.ORG $D800
2 f/ X. I$ R3 l, R5 I! }' Y
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_E000_dmc.bank"3 Z- K& v0 C2 }: D
; E7 n9 C: ?: x3 x: q
.ENDIF
/ b7 A1 m7 M/ ]. ~4 _
) H' d- W# d( X: \" _
;CHR图形数据' \7 r6 m% z+ {& M4 X) x
;======================================================================* G3 O( Z1 {5 u" K1 o7 L# g+ Q" I
.BANK CHR_DATA_BANK% x) T- k" q5 v7 i( a' u
.INCBIN "chr_bank/chr_data.chr". O; N) k1 f* {% z+ h
& x, H4 y# L" t2 l
;======================================================================* k+ s! x \5 j: b0 I; C+ q) p9 i
.BANK PROGRAM_BANK & BANK_DATA_MASK7 r4 r [ d. F
.ORG PROGRAM_ADDR
" q$ c% w ?0 f# a: n' N i
* K- i% d) J' [8 Y0 n
;==================================================
* |2 a% x1 {" f4 m( Z: f
NmiProcess' X* j/ h) e: X8 P) t. P
9 V+ B. K$ _5 [7 p
;关闭屏幕控制. w) ?6 C/ N, J- y
LDA #$00: H5 `6 Q: T# x! Q, g( V; l! _
STA PPU_CTRL
: J2 R0 G# @8 J8 t3 j$ Y5 U/ j; `
, A N' Z# b* ]6 K4 u3 o7 U
;没播放音乐就不需要触发IRQ+ K( {7 Y' R) r# d: J3 ]" i) ?
LDA <Music_Stop_State( Z Y# z; r. o; b h' g, _ S9 w
BNE NmiNormal- |- N+ c5 l! J W1 S1 Y, y7 m" ?
# G0 P/ Y2 l- ]! M4 x- n9 q
;重置IRQ索引
: F! _. u9 O( X( G* F6 p! B6 \
LDA #$006 ~7 e& \ J: R1 g- T0 L
STA <IRQ_Process_Index
/ E' E/ @+ n0 q7 T
# u; |+ y. D" N) V0 s
;时间秒数为空则跳过
+ ~3 `! A. t: g: l, S6 X) C
LDA <Time_H
+ x4 B1 h( a' }6 H; c Y' E! ~
ORA <Time_M
' L! a' m( D( G
ORA <Time_S7 P- v' i7 A8 _ T5 G' |/ I7 W
BEQ EnableFirstIrq
6 A2 e. _5 `4 O3 A0 p0 a
4 j. p1 K5 V5 a7 u5 B3 v+ X
INC <Scroll_H
+ u5 @6 c1 U: R: U; C+ K
0 K* }- r ~+ h; R3 C8 ?$ `" e6 H
EnableFirstIrq
! m+ h4 R, F4 B/ V8 i) q
;80条扫描线后触发IRQ9 ^+ r |- r A4 t1 n- Q6 x
LDA #IRQ_SCANLINE
4 F" o+ I3 \( Z6 z! i0 x
STA MMC3_IRQ_LATCH
6 A. |3 Y' u% ?! q; X
STA MMC3_IRQ_RELOAD
z) Y( E" R4 H, a$ z& `+ I2 [! k
STA MMC3_IRQ_ENABLE+ W+ C7 L$ m1 D6 p+ P4 v2 i
CLI
; u; R, H% Q% a0 l4 I' Z
! f( Y0 n* X3 c. C8 F' E
NmiNormal
( d; J. g ~& U; T. @
3 @ K+ {1 R7 \0 ^
;处理PPU图像
' ^* Y# p a. K* c
JSR PPU_Proc
' x; Y' J; M* ]# Q
' b3 e. b, J9 C0 h- |+ L, D1 \3 \# [
;写入精灵, 会占用516个CPU周期, 约4.53扫描线, 写入会导致1像素抖动(PPU处理徐优化)7 n" b K. U+ S# f5 F9 Y
LDA PPU_STATUS
1 X5 N" A: D# u4 p9 R# E3 F& J
;LDA #$00
B; v2 o8 K8 ^ [" b% J) A5 T# T
;STA PPU_OAM_ADDR
1 l9 P$ G! R# C# C7 e0 W: u
LDA #OAM_TEMP_ADDR / $0100; y0 B# Q* f7 W; g% @. N
STA OAM_DMA
9 x" O' m( N6 H: f
4 }: H. v5 }( F2 M, m
;启用NMI中断
* F) a- T8 f/ S/ c
LDA Screen_Ctrl1 \ q& r$ J, y- A2 l( x8 M
STA PPU_CTRL
( n- P8 s3 k* T# j5 \) V
F2 E5 V5 t: u8 q' Z
LDA <Text_Disable_Flag
* n. m9 I# ]1 m( n7 T" R. X0 d
AND #TEXT_DISABLE_RAM
7 x) ]2 ^- a& Y( I8 d: u3 S4 k8 J
BNE Nmi_Sound_Play
' \0 m2 j( n& b! E: \
: L6 E& f% w; E" A K
;处理手柄输入) ?. l" _# d" x& ^
JSR Key_Proc
$ `7 q+ \/ F$ R5 ~4 p+ f! r! g
, s8 a4 D5 D, Q8 t$ u; V
;切换音乐(手柄触发)/ H( @. H* M- B5 h# y/ \
LDA <Time_Wait_Cnt( ^: G: _: |5 c$ q \; J
BNE Nmi_Cursor_Arrow
# h6 C! B4 C2 M" m9 j* U. n
JSR Change_Select_Item/ Z, D$ x- Q- c1 f
3 w2 o8 M$ K( Q6 H- g4 Q
Nmi_Cursor_Arrow
% [( A. Q7 N m0 x' H3 I3 w
9 u& E/ d# q4 Z; Y5 h# T4 }; s
;处理光标箭头2 d7 O, C4 [0 s1 v" f
JSR Show_Arrow- D+ x& A* y- p
V, R, ^( c6 p+ p5 V9 ~! W
;更新调色板
/ A {3 ?% D0 B6 D m
JSR Update_Palette_Data
# F' b) ?9 S. }; L; K
- v. a5 j* n0 ?* e, v
;显示时间(缓冲)
- t5 l) J/ ~+ A- q* t1 ~
JSR Time_Show
7 U6 K% c' [6 F9 P
; P/ u: n8 y9 T8 e, g
;音乐显示(缓冲)
T. _' I" S: X9 T
.IF SOUND_BAR_SHOW_ENABLE1 j) |& n1 t6 R. @, L) t/ W5 x3 I% t
JSR Music_Vision% Z" H4 } X0 l0 ^0 U
.ENDIF1 N# C% i5 M: k4 s$ i
0 j- I; s* R" N2 P1 F5 Z
Nmi_Sound_Play
0 |8 M r/ a5 m" w; K
;播放声音: C. E7 S1 v U8 `! H/ J! j0 B3 r
LDA <Music_Stop_State
$ j! H! y" i$ H, ~* Z
BNE Nmi_Time_Wait_Set
# T/ d$ g/ {8 s9 `( m* L3 |
JSR Sound_Play_Proc, ]9 h- X/ B; R4 [2 d; a
) z8 e; C3 @5 J- o
;播放计时2 Y( @5 ?( b5 O8 }* n; q, y2 A
JSR Time_Count" O1 y( R+ E, ]% y
& N- K4 j5 Q0 v! ~* M U
Nmi_Time_Wait_Set; ]7 _( C7 Z* j* a; N
LDA <Time_Wait_Cnt( ?, }% Y8 J! a, `1 ?
BEQ NmiNormalProcessEnd
) d/ E" H/ H8 S/ d& K! z( R
DEC <Time_Wait_Cnt8 K+ }2 t- h* A O- y* ]8 p8 g
NmiNormalProcessEnd' h2 u/ G! U9 U8 m; i$ l
, F7 a, @3 L, d( J! y2 c
INC <Nmi_Time_Count
/ o6 F% H' E( h/ i/ _* U, a8 h
& p( ~" l1 i( w6 ^8 Z( b7 p9 x# a
RTS8 H8 X1 Q. P9 g: N
/ z7 C( g( B+ Y% o; s$ I
;==================================================
' I5 T( a, H7 f8 s
Init_MMC34 N' O3 ]; Q6 S/ h) i
;==============================7 M$ O4 x% W/ U7 F7 F6 j5 I
;禁用IRQ. X: z) R% \, k% K
STA MMC3_IRQ_DISABLE
2 r6 _( N- u4 e& i/ _
4 ]* `/ u: Z C4 P7 f
;水平镜像$ B$ A d8 U: D" n u8 \3 {1 u" G
LDA #$011 i+ ]4 J/ \/ v9 i' x. ^0 d
STA MMC3_MIRRORING
$ ~. P2 I" C( s+ O( j p
6 ^9 A, p* x$ v8 b( z* a, s5 o; Z4 ^: K
;初始化图形bank# T$ {. u- f0 v' H% G+ o
JSR Init_MMC3_Chr_Bank
3 Q) X1 u$ L% E" C9 f) B. M4 R
2 A3 Q, Z5 C, @4 c6 ~) p2 g+ C* e- v
RTS+ U9 r) ^' s+ c7 C5 u7 m M) _( u
;==================================================
. i) r3 `0 _" [3 p/ I5 x
ProgramBegin;主程序
6 a O# g: D8 A: Z
LDA #$00& S9 K, B. c ?
STA PPU_CTRL3 ?4 t+ ~( ~0 D+ z: l
LDA #$00
/ P4 r3 T3 W( W5 n+ `
STA PPU_STATUS
8 l. L6 E8 w: m: ^
STA PPU_MASK
5 ^- l* M* G' E0 H2 b0 W5 n
STA JOY2_FRAME
) V1 l7 A8 v* w
: `5 M1 f9 P2 R3 c; O
STA PPU_SCROLL9 l# D' S* h& o( X& r: a9 D$ w
STA PPU_SCROLL) ?* i0 a3 ~$ M! q4 h( ^
% G+ H) e, Z, z+ F
;==================================================6 S4 w( X2 q. Q% E) J+ R4 B
LDX #$FF& Y% U) W0 d, z' K: {
TXS
~, C0 M" _ E' U% ?& n
x2 A- M+ d, L8 y5 w4 ^3 F" D+ o
JSR Init_MMC3
9 O3 @! A! l4 T( X( ^
+ ^0 l$ z# C; J1 F: r3 h2 F: ~
LDX #$02
& p8 u8 F1 V7 ~ w
Check1: D5 v9 g* L5 Q9 X3 t( {# |1 u
BIT PPU_STATUS- T& @# g: k) t' S) X
BPL Check1
% }6 N8 L' Y! f' g
Check2( _9 I! ?: v5 c1 ^& [+ C0 t
BIT PPU_STATUS
, {" {$ ? R- l1 ]& K
BMI Check2
% i; c G8 u5 {9 P5 s
' u7 V; X+ J; h0 F2 a
LDA #$0F: G- g0 S( k+ o; S8 v0 L8 r; A
STA APU_STATUS7 D$ D" I/ X) d
LDA #$C0" |$ Y7 I9 X6 v3 f; {
STA JOY2_FRAME. T' a0 G+ |3 V+ M; v) ?, Y
- v; w) m2 _3 f1 d; J. E
LDA PPU_STATUS# P0 c+ G- \4 r( i' X0 \
LDA #$10
6 N: I% F% z4 ~3 g' ~% k4 F6 }/ I
TAX" Y7 w% b7 E6 W3 h( {. V
Check3
B: b# v' [7 e# D5 o1 ]+ E7 E
STA PPU_ADDRESS
H/ b: b- H8 M
STA PPU_ADDRESS
7 T2 f# n% l: J
EOR #$00
% x2 I" L- m3 k6 W' u+ y/ v% J
DEX7 @- X/ F! w" x4 L+ i
BNE Check3
/ Z. E/ `' x5 [' C/ L; K
;==============================
/ ?' R- N5 \* u
;调色板清空
r3 H; ~+ c2 L A2 f
LDA PPU_STATUS
9 g0 m5 O4 d+ U
LDA #$3F
/ G3 \' M4 { o0 l3 }6 q" H( @1 i
STA PPU_ADDRESS5 c7 h% T! S% v/ t5 b
LDA #$007 Q( k+ u# P% {
STA PPU_ADDRESS
1 P3 i4 Y2 m0 ^5 @$ N& l7 J
LDA #$0F
$ y1 q, p" b/ p; }3 J! w/ O
Palette_Clear
' w% }/ v( K/ i: v0 P
STA PPU_DATA
) `" r( p b. b/ ]
INX
! w1 a, u* M6 q
CPX #$20) W3 `3 K/ }9 A% k0 y" e
BCC Palette_Clear
% k4 n" z( S) U! b B
LDA #$00! @4 }! O6 E9 C9 q9 ~
STA APU_STATUS
$ k8 G9 l% ]: F
: v: C/ U9 N& u; H
;==============================5 b+ w2 L$ h; f, }
;RAM初始化/ F2 o0 l w2 K. b
RAM_Clear_All( Z! L' |7 k# _$ J. ^; a* m
LDY #$00% G- v/ l5 X$ G% f% f% W* H
LDX #$08
W4 m7 \1 _& R/ l% y U; \
LDA #$00
5 `. E" T! t, K. I: h( U5 c
STA <$00
; }) L* {6 x" ?( E9 \
STA <$01% B M: ~. |1 @1 o) Z8 O/ e
RAM_Clear_All_Start, J+ U; A; C7 G2 J
STA [$00],Y3 T' t, I' n7 `3 C( Q
INY7 m* ] @8 n0 L5 B, K
BNE RAM_Clear_All_Start. S* [- p) x0 W+ X u, Y7 f
INC <$01) Y, W9 R. v c2 l n# u
DEX
: d' _# W$ D) S' K- v
BNE RAM_Clear_All_Start( p- M% z: h V- j& o
i6 B. m! H: ]# j7 r
JSR VramClear" s% p* B$ m" V: X5 ` `* T
JSR VramInit- J/ {# d9 F% ?. T
JSR OAM_Ram_Init
R$ F4 V$ E Y3 J
JSR Init_Palette_Addr
2 Q8 `+ }: X# t. t! d/ r
, h% j$ n9 q: ~7 k( r
LDA #$FF4 h9 @# H7 G y2 N" u
STA Use_Ram_End" R8 F/ I( ~+ U
;==============================
, H3 n, `- Z5 R* J: c
;初始化背景调色板
+ I% D5 S! r1 S* g0 v" d4 t
JSR Set_Palette_Color
" S; C) f4 p6 T+ _' F
JSR Set_NameTable_Attributes
. m( ?( t `* n0 j
& f7 `- P$ t. a7 t. X
LDA #$00
6 Z% b8 N/ b$ ], S2 G3 _+ J) P/ P6 f
STA PPU_OAM_ADDR
; g' d# H6 A5 E2 E. B1 N) \
LDA #OAM_TEMP_ADDR / $01002 @2 Y8 o! N+ G, f
STA OAM_DMA
5 n! t8 j/ @4 y0 N8 I, P
' E7 ?3 u0 g d; _
JSR Sound_Reset_Proc
7 @! |" i' e/ h9 r- p' h) p/ w1 J! l
JSR Set_Sound_Total
# |. g: k( P8 n$ |
; J7 T" S4 _& w2 P$ T5 B+ A
Init_Start_Music
9 d# ?- A) `* u
LDX #$00
4 Z8 r/ K6 D6 W* W
Init_Start_Music_Write
7 Y, q' K6 I& b( F1 c
LDA Sound_Start_Port,X
- _( v1 R- S% Y) G' v
STA <Music_Cur,X
9 g7 n7 R9 U$ l1 i1 p6 R( T$ q
INX
5 }9 v% [0 n4 \% `
CPX #ITEM_MAX_SIZE
' p$ L" p7 a4 [( }& K, ^
BCC Init_Start_Music_Write7 ]% T& a) Z: {/ t' o6 z) y
+ I& y$ t6 F, [9 h8 M3 e
JSR Show_Music_Text
4 I4 L( M$ b2 A' C/ ], w7 U( L
. g& n! v9 y& u. W4 m7 [
.IF SOUND_BAR_SHOW_ENABLE
; ]6 m! H2 I3 M! s3 S2 Q- b: c
JSR Sound_Bar_Text_Set
0 f0 G! |8 i8 I4 a$ z
.ENDIF
! p( U+ y/ S8 s7 s- y0 E- G: {7 v
2 p2 G: W7 ^, S
.IF Track_Name_Pos
4 a& v) l; k9 I) {: W" `+ b5 ^5 u
JSR Show_Track_Info
- B: y, {2 c# {; p
.ENDIF0 ~* b, I& d4 G& v* r( q
5 Z" |1 `8 f3 S# f/ T
JSR PPU_Proc0 y) X5 e: r+ A5 Z
4 ]9 r% t" A5 C
;==================================================5 E1 M! u# H3 T$ r4 F
;音乐bank初始化
# O* p" Y. ~( F8 F- H
JSR Init_Sound_Bank/ g1 t6 V) b) `, |% t i
}7 @' X. B% a% Z+ ^
JSR Music_Show# K# W/ o( S. U& }% D" t
JSR Time_Show
; b/ |3 U0 u% ^3 L
JSR Music_State_Show
3 z1 ?% a0 b8 j2 Z; l0 p: y
JSR Time_Delay
) U4 f; R- O2 F
, F! K) n8 K8 b% c& U
LDA #$01
) R; m, {/ K% ^
STA <Music_Stop_State0 H P7 b9 D+ \/ y3 R
_0 i7 ]) F% x
LDA #$88
# K! h- z9 @+ h/ z" r, ~' H: @/ Q
STA Screen_Ctrl* b" Z9 E$ Z9 h: U0 c+ m
STA PPU_CTRL
$ L- U; {4 v( \0 x2 h/ r
, Q+ N: g( O( r: {$ y
JSR Show_Page_Text
$ p9 n' f: I3 R5 p+ t
8 Q2 T+ M' Q# l* b1 s
LDA #$105 W, d! f% h* B+ c
STA <Time_Wait_Cnt- X6 P9 t$ I% n: U
) u" g) z4 e* i2 S6 m! ^+ ~' _0 q
Wait_Time_Over1 r. d8 d1 [5 |+ }' M$ _
LDA <Time_Wait_Cnt
# u8 G/ X; ~/ h
BNE Wait_Time_Over9 H- f5 d+ _4 [4 w! e$ {7 E
" c5 C. x$ c% h& B$ [
JSR Show_Arrow& c! j6 ^8 o) X' O. ]9 Q% C8 b
LDA #OAM_TEMP_ADDR / $01003 N& A8 O. t! i0 l: \" }
STA OAM_DMA
# B3 m! I5 L* _, ?2 s) P! w% A
. m: R& w/ C+ x, B
LDA #$1E
. x. I+ j" v; @+ g9 _/ G
STA Screen_State
/ a5 G1 T& D2 @/ e' v$ v* p
1 z l o# U' p: T
LDX <Music_Item_Cur U8 `4 ^- ]; t2 U+ |3 k5 V8 @
LDA <Music_Cur,X
! Z; l) d9 |0 J% X8 s1 c/ _( V
JSR Sound_Init_Proc
8 d1 V! C1 T3 J6 i7 k" k
+ O- Y" ^6 a+ E& F+ c; ?! P
CLI5 v- z8 I& [3 m6 p
JMP MainLoop" T) v: k2 X3 q
. R& s* ?! _, H7 m% v
;============================== t: Y `# g' p& K# p
Time_Delay;延时等待: Z' E* ~4 S, y4 s2 w! }
LDA PPU_STATUS
% Z8 G3 m1 X2 e( ]
BPL Time_Delay
% n$ _, d$ t+ e# c1 D/ z6 Z* X
RTS
5 J' c/ p: j4 X6 m0 Z/ t+ i
5 v3 Z1 ^$ K" t+ A( m, ?% A
;============================== W* G: q. t2 p) \9 Y* `
OAM_Ram_Init;初始化精灵内存0 ?( y% s4 `& j) Y
LDX #$00
# N: }0 }6 h ~& I5 l2 U0 O2 o$ Y
OAM_Ram_Init_Write
1 H4 _+ m) f5 }0 W3 n
LDA #$F8. I o5 R, t! k+ g4 |
STA OAM_TEMP_ADDR,X
' _8 ?) S. ]& O" m0 v9 x! K+ T4 j! z
INX& L% a1 g6 a9 R
LDA #$F81 n: |/ v1 v0 }4 l* c8 _
STA OAM_TEMP_ADDR,X
3 ~; `% N- ^- K
INX4 s* z; @( o9 H- a9 {8 s% W
LDA #$00
2 M+ z+ h# [% I5 ^% q
STA OAM_TEMP_ADDR,X
# P9 L9 L( \- V8 u0 t" l/ ^" W
INX: L4 ^3 v) B. O
LDA #$F8
* \5 x9 C9 p5 P; k# k
STA OAM_TEMP_ADDR,X& V, N4 `7 _: E3 V
INX. b$ L' P% I. h: s
BNE OAM_Ram_Init_Write
3 c. Z. Y4 N. Q5 r# L$ f8 b/ {* n
RTS9 ^4 u( t/ E7 r# i* F: X
! I$ ^$ `/ {0 q! |6 I5 e: J
;==============================
/ N/ i8 h5 m `0 w6 }1 a
VramClear;初始化图形内存8 e# }6 f) q9 D
LDA #$20
+ m4 O2 h2 t8 A; H; }" f/ M
STA PPU_ADDRESS
* T, ]$ Q0 L: \# p' y
LDA #$002 b% r2 }" @$ V0 T) }' e
STA PPU_ADDRESS! V$ p6 o* R& i I. U
LDA #$000 Y; H% }; Y$ O# u$ P
LDY #$00' E/ f' T5 w# K, Y. W6 Q8 h% `
LDX #$10
1 H2 M! m+ N% V" H# u
VramClearWrite+ e5 \5 I; U4 ?) _( j
STA PPU_DATA
3 c v( W0 U* J V3 ]' ]
INY4 K" h0 C/ f$ \4 e5 ] Y
BNE VramClearWrite, f9 R- s4 _# P5 K
DEX
* m" f8 o x, W- R
BNE VramClearWrite
6 z6 P5 N; }3 T8 O/ U
RTS
. V2 f- h: u2 i
, L* L' B- O' X1 y( }
;==================================================, [) a3 ^' K& ?7 M( ~* a: W
;设置MMC3图像bank& |1 b3 J9 w& X$ E b
Init_MMC3_Chr_Bank, J6 d% _. h g, L; c2 K( B9 p
LDX #$05& _7 g! C' J$ u9 X
Init_MMC3_Chr_Bank_Write% [$ i: k! \5 ^. m7 U+ L
STX MMC3_BANK_CTRL m, b! Y8 ]: X. c* C
LDA MMC3_Chr_Bank_Data,X; X1 P. m) |$ q( _; f* x* J7 n
STA MMC3_BANK_DATA. Z( ]" ]7 M, W) I
DEX
1 |# c2 B7 n0 j
BPL Init_MMC3_Chr_Bank_Write3 n& c* }6 i" e% w& M0 @. z
RTS: {* q9 u# T5 k6 f% {( N
;--------------------------------------------------. {' O' r! Z) l
MMC3_Chr_Bank_Data
6 F# {5 u+ _) r) w8 @
.DB $00,$02,$04,$05,$06,$07
/ ]9 t3 V ~) J' z% U6 S6 j4 l
; l+ K9 ^, b5 { L: f* Q5 c
;==============================
3 T# b2 `4 F0 q
VramInit;初始化图形内存
, w- ~* w% F% f. ?; L' Y
.IF CHR_RAM_ENABLE
4 K2 }$ G! T9 G% p5 y9 a z" v
LDA #CHR_DATA_BANK
3 d& u/ I# q4 ~ H
JSR Switch_Bank_A000 z4 _8 V0 [6 `& q
LDA #LOW(CHR_DATA_ADDR)+ D9 E( U1 I! v" I
STA <Data_L
& S4 _0 Q# w8 x* T8 ]6 y7 c
LDA #HIGH(CHR_DATA_ADDR)
/ {) t6 A% S3 a6 | U' e
STA <Data_H# p; k( q' F* U# W
LDY #$00" k2 v+ `9 U* `8 d. [: C9 C8 ]' m+ w
LDX #$20
0 F6 s- q: G5 ~+ [1 e- I
LDA #$00
5 n7 K. X, m ~7 ^: u2 A; @( A6 M2 U
STA PPU_ADDRESS
. ~0 u/ [& Y0 p+ N+ {0 q! Y
STA PPU_ADDRESS6 y" Z) M& Z/ H9 ], w) r7 z5 t
VramInitWrite/ U$ l- }! X, n7 Z: |* `& X! \
LDA [Data_L],Y$ k/ A$ W8 l- ] @6 |# W2 k
STA PPU_DATA
/ s( F B9 l/ D; q; ~
INY6 G0 R: f8 ?9 u X! Y8 f* o% r: r
BNE VramInitWrite
' R6 v" h4 |9 r1 ^8 i& I
INC <Data_H6 S1 P& e8 d0 l
DEX
1 e- _4 C5 f) j7 z
BNE VramInitWrite( J( f# h3 x" h; I- ~1 F
.ENDIF
, E% U' s. m* D) d9 ?8 { S" Y& |$ s
RTS
' b* T- U9 f8 m* D1 }( Y! R5 y
0 M8 f4 _0 R9 A# ?( ]1 r- m8 f
;==============================
6 O& v) O. I( ~' |1 u* Z
;音乐切换
! h8 K6 t2 E- u; d
Music_Play_Change4 x+ {2 _0 U) P) c& E
LDA <Key_Once
" X$ ?7 L8 u; `# U
AND #$FF
9 L2 p8 T( o* G4 k% b
BEQ Music_Play_Change_Check% D& e7 l2 Y7 g
* P5 U# M* G8 j! d
;禁用音乐条刷新/ }0 x% W6 [2 R8 Z2 c$ S
LDA <Text_Disable_Flag- f$ _: _: w) x5 |
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME
" Y# V0 C: q' c5 x2 x( z
STA <Text_Disable_Flag( K5 P$ P f! d( d* m* U0 M; s
" w% ]" e w0 v6 x( ^. p
Music_Play_Change_Check
' p0 w( p. }6 h, x0 G$ z; a* m
Music_arrow9 k4 ?1 M0 D3 F. H! [5 G5 f& `
LDA <Key_Once+ ?5 L! C( w/ n
AND #$0F) l" F2 p0 |5 V. W. S/ `
BEQ Music_Play_Change_End
% \3 O! x }1 c d, P9 K6 f1 E
JSR Music_Track_Change. B4 c' A( U. h2 k% U0 S8 s8 R
JSR Sound_Reset_Proc! G1 d/ Z4 o( H+ h/ D0 u9 k
JSR Music_Show
( S7 W4 \) G0 r2 W% H$ q. Y
Music_Play_Change_End
/ E9 u' S1 P5 h5 n. S1 A) p
RTS
/ A' r1 h/ B# o5 i" Q; s4 H
" K7 X$ R0 I0 x/ o
;==============================% J: j. ]. n( ]! g
;音乐曲目切换+ d: V( Y1 g% S' Q8 \8 {8 W
Music_Track_Change: A/ S2 ]8 d2 o# C4 G# Z+ t
LDX <Music_Item_Cur
' i0 {; S) n0 r+ M5 M% d3 t
LDA <Music_Cur,X
: }; d8 ~7 J5 x# {9 P# y& O9 z
STA <Music_Last: B5 R* P# w- F9 ^$ z, V
Music_Decrease- T" G$ C7 b% W: g! W8 a, }
LDA <Key_Once
Y1 l' |" j' j
AND #$42. Z- a6 d# Y. V+ ~; m, X5 t
BEQ Music_Increase8 \1 R! G7 c* H# ?1 w
LDA <Music_Cur,X+ g( g% z8 G4 p6 A. C% g9 w
BEQ Music_Increase
: h8 L1 J& p) `, N h
DEC <Music_Cur,X% K; a$ g7 ^3 H( k
Music_Increase
/ [- F4 e& j m* G+ Q3 D& k$ J G
LDA <Key_Once
4 y6 a; x& ~ n+ |% Z. x6 l
AND #$81" v, T# F. D5 C2 j. H0 G
BEQ Music_Decrease_100 E/ _* {0 y& r
JSR Set_Sound_Total3 o8 B) z l( g: ]
LDA <Music_Cur,X
5 E& U: A6 Q, j" d
CMP Music_Total
9 ^1 f. `% S9 m4 s- t5 e t
BCS * + 4% G. \1 t8 S j$ X
INC <Music_Cur,X5 l& l, z& C6 P: U7 u1 |+ G: e
Music_Decrease_103 ` m9 x( a/ [5 \ K2 X, s
LDA <Key_Once) e* [7 j) v+ n+ e6 ] c; n3 d: F
CMP #$049 T% e: P5 ^2 \7 Z) g+ ~* _
BNE Music_Increase_10, \1 o# O" j- s9 A0 R+ e9 W8 m( L
LDA <Music_Cur,X
/ R( w" c# ?9 I$ q4 j
CMP #107 |! `! W; P2 F# d: X0 j% C
BCC Music_Start_Song_Min$ v; H' U" ]& ^1 j' V* D
LDA <Music_Cur,X% q$ E2 c, U8 @9 X, w
SEC
1 k3 z/ [% W4 h/ m
SBC #10
& V/ m, G/ x7 ?. x, D' i4 Z
STA <Music_Cur,X% k9 A) y2 P! p r P5 D% L
LDA #$00
" ?+ m. h$ I/ p6 Z1 H
BEQ Music_Increase_10
7 p/ ~8 r6 D2 n& t2 z( m& T
Music_Start_Song_Min) e* C; i; B! _! m
LDA #$00# t' j/ }3 c4 L- ?7 n
STA <Music_Cur,X$ t0 o$ ~) A3 q1 F6 |( E5 h
Music_Increase_10
. W! k! k8 a% `/ z$ B8 G
LDA <Key_Once
& ^2 Y( c3 K1 e
CMP #$08
* b; f( o/ w1 L4 I( w
BNE Music_Track_Change_End
, C+ O1 e# T. Z" `+ k
LDA <Music_Cur,X
' q4 {% v8 Q2 T; H' z" i
CLC/ ?; s( k- V- U' l& T" L
ADC #10
# h2 Z& t, W5 H& G
CMP Music_Total0 V# Y+ P/ f S# g9 v! X1 f
BCS Music_Start_Song_Max/ o% K5 V9 G8 [+ _9 |: D9 \) @
STA <Music_Cur,X- S$ K" ^ j8 T& Q/ z3 |% C
LDA #00
: U; V1 H& T& J A9 X
BEQ Music_Track_Change_End0 c' O0 Q; u3 _
Music_Start_Song_Max
6 v! y% l0 m8 j% F! A# C1 A8 Z
LDA Music_Total
; c" U' M5 \) F8 M5 O4 A
STA <Music_Cur,X( V5 X. s0 ?: D& c1 P
Music_Track_Change_End
1 q" i+ p- b# m
RTS& D; _$ `" V- l0 V- P3 D
- D; B) _! v/ J
;==============================; ^& |+ E' }7 X7 `& ]. i2 i
;按键处理
/ K# f/ }3 ~* R7 g
Key_Proc& {( y2 {, X- O3 X1 z
JSR Key_Scan
" d0 }9 E' S4 n8 P/ F- E
LDA <Key_Keep9 t1 a+ O8 b" n% g$ ^
STA <Key_Temp
- F) }; p& F9 u: n! V& b1 R0 P+ ?
JSR Key_Scan. r6 T9 d! V8 [# U
LDA <Key_Keep
2 E) }9 ~- F& `8 X: N
CMP <Key_Temp/ N( c5 p6 z; O; |. c3 ?2 G
BEQ Key_Get_Once
3 u5 \! K$ W3 ^6 V% ?0 p- O8 D
LDA <Key_Kemp+ X% Z' m- y. S* F0 L& b/ V6 x
STA <Key_Keep# x9 d+ T3 {7 N# d( t4 l
Key_Get_Once
' ?9 l! T1 y. p, O6 D
TAY
2 c+ \. C6 I! [) T( f- N
EOR Key_Kemp4 L* d# d% V5 K( A% Q4 F
AND <Key_Keep. L* Q- P' b: L V8 K
STA <Key_Once& G" \. s( `& f# f
STY <Key_Kemp d- H0 ?6 b; x- g
RTS
. o; R( g9 N* W3 M6 S9 \9 M
;------------------------------5 y# M8 t4 u7 S6 ^) C9 b
;按键扫描2 S: h- ]7 ]1 K, S
Key_Scan$ I0 ^: m, G' L1 s- {0 b
LDX #$015 I! k1 H( o4 ^7 l2 t/ Z+ n: Z
STX JOY1_FRAME
3 p: y4 l( v$ d8 ]# i" } T7 _2 x! F
DEX
J/ }' [3 ^" z& k
STX JOY1_FRAME' n$ Q; v7 c/ J9 R
LDX #$08
6 |# m7 y! b, {# \2 F+ @% w
Key_Value9 K# L; N: D% q6 g8 K$ @2 D6 V! \
LDA JOY1_FRAME
6 ]8 d" o9 H" s* Q( }$ |; J/ o F
STA <Key_Getv8 a" ?0 G; n O( p
LSR A4 E0 i4 _% Z. T/ J- Z% p
ORA <Key_Getv
# K4 h) o3 i. b7 Z1 j0 J
LSR A
1 j3 J% K# X* Z3 o% O' h3 f3 T+ F& x
ROL <Key_Keep
% |% `2 d; A' J
DEX
+ @& B; ]9 P/ u+ B u
BNE Key_Value
1 W- @' M7 [) v/ h
RTS
% U0 p5 ~8 }2 M" i+ P2 ^% M3 F! M
, O1 q& x. A3 ]1 r
;==============================( z5 W8 [, I# k9 g0 B3 m
.IF SOUND_BAR_SHOW_ENABLE
: y9 e0 A! k1 t" }
;音乐条显示: F- k( O( \, H0 L0 Q4 q
Music_Vision- H0 @# s% x- @' u: H: {- E% c5 ~
LDA <Text_Disable_Flag; ]& M6 K3 u, [' ~
AND #TEXT_DISABLE_ITEM/ J' l* y; ~$ h. V; H4 l
BNE Music_Vision_End k$ ~+ a$ J+ c
AND #TEXT_DISABLE_BAR, B- r. w# X) w7 k
BNE Music_Vision_Set
$ Z$ S) E$ L2 y7 p: S8 S
LDX PPU_Cur: f [, k2 P+ p" a9 f; S
JSR Music_Animation
: u2 n# N1 |- v; [3 R; Q f: }
STX PPU_Cur
, b T6 f W+ l$ z, w# b# a
Music_Vision_Set. W5 F! k9 ?2 |/ j+ i7 m
LDA <Text_Disable_Flag$ m+ o, K+ W# G8 W
AND #TEXT_DISABLE_BAR ^ $FF
$ Z' Y+ f, A1 ~: ^
STA <Text_Disable_Flag1 s: ]& x$ e" T
Music_Vision_End! n. p6 }0 J' Z" f4 m( T8 ? o
RTS
" Q9 r) q# B& n; ~6 k
;------------------------------
6 \( @2 \" M, c& f U/ }% r6 A0 X$ F
;音乐条显示处理
% Q% u/ }! \7 O: [. Z
Music_Animation- U- o1 F) f$ _7 a9 f( g1 I. U
LDA #PPU_MODE_CNT_LINE
1 G3 g4 t% N1 m$ a8 ?
STA PPU_Addr,X% [: s% e. w3 ^ u' \
INX1 z$ j+ n4 g5 @( j& u' |* V {% c1 V
LDA #HIGH(Sound_Bar_Pos)
. o/ G2 S( ]9 G; z* {% c
STA PPU_Addr,X
& q1 T: b; I* u8 j/ A+ C9 R! d! c
INX
6 D. V. |# K5 R
LDA #LOW(Sound_Bar_Pos)8 o% N9 [5 u" s3 u( ~
STA PPU_Addr,X
4 g, R7 }% n4 H! u
INX( g W, `; ?, m; T+ D' B
LDA #$08
4 I) s/ C% x; [( b3 n4 A
STA PPU_Addr,X
( q1 r8 o6 v1 L( g
INX
& o3 K0 I+ A1 v" m
LDA Sound_Bar
) q: |! L7 N" R+ P7 W3 [0 |
JSR Volume_Convert' A& Q) K) h$ o1 e" P* q& [7 S
) Z6 [3 T% K1 ]
JSR Volume_Set_Cnt7 _# w3 ^* Q" f/ @2 K8 o: L
LDA Sound_Bar+$4" X: f+ s1 ~" p0 M
JSR Volume_Convert
3 w8 v: X* ?; _7 n2 A, o7 T
$ X+ t! y3 C; S! P
JSR Volume_Set_Cnt6 W z0 I6 K. N' F: m: {
LDA Sound_Bar+$8( s5 u+ `% a) S! U% r2 t( j! P
JSR Volume_Convert8 R2 ~3 V9 L) d- B/ i
7 s* l. P. q( w. q+ |; Q
JSR Volume_Set_Cnt
; h5 w' ~$ g& `
LDA Sound_Bar+$C
. N7 P% g, N z3 F
JSR Volume_Convert
; e! R! x7 a' e5 {1 ]
8 J; s+ Q- [) \" q0 R9 t5 j1 S
JSR Volume_Set_Cnt
2 F& ^$ e# f# f6 T
0 G) P( q) G$ e: P1 z) O6 [- d( M% `
LDY #$10
) n! f( x5 |$ ]! P# y+ _% x
LDA APU_STATUS
* |6 V7 M7 N; y- V( T- u/ R; p
AND #$10( m/ _4 P' I% ?2 F$ q3 P
BNE Volume_Count
' a& i/ D5 {' w" z; x" O; a
LDY #$00
) I W7 U- K, d6 T: T
BEQ Volume_Count
& s! N. r/ \: v! T
2 u3 }9 m3 Y% s, |9 H# v9 I
;------------------------------
/ q! J0 ^$ G, z F3 K' I9 g: P5 h
;音乐条处理
$ ~7 s: S6 p; E, x% a6 H$ B" j% C
Volume_Convert
1 f& I2 a9 d. `' V" O; s
AND #$0F
. @! E' ?$ B% u5 c2 N" b
TAY7 Q5 r2 D; `) x2 M; W. E
Volume_Count" O ~0 T7 m: m
LDA #$08
. C& J) z2 Z/ L/ k% k4 d7 [
STA Sound_Bar_Cnt
. ~# \- z: t, s" r% ?
Volume_FILL
! l& Y: P& l/ f9 \" T
DEY
" u& p* X4 k" f* q* J' E* @
BEQ Volume_Half
4 I7 I5 A! @; b( }
BMI Volume_Empty% X, m1 N! y) d9 f5 v' }" x
DEY
. L E/ V, o' j/ }! K% R
Volume_Full
% L' t: U' ^1 ?/ H% I! F. [
LDA #$16* U/ r2 \! ?. N) |
BNE Volume_PPU
3 q! m% L; q$ P' t+ Y! x" D
Volume_Half, ]; w/ j7 |: ]% P* A
LDA #$151 `9 z! K& c; c3 t0 `
BNE Volume_PPU
, e% `* `% Z" b" r* x+ S; r
Volume_Empty
7 O' U# n3 k2 S& ]) f+ m$ A: @
LDA #$142 ~0 A8 T% L: ^& L3 E
Volume_PPU
# t- U* L5 P# S1 M
STA PPU_Addr,X
! s, @+ p p/ n6 `
INX
& P1 Z* T- r8 Z
DEC Sound_Bar_Cnt
0 A: n$ @: w0 ] m" h V" y- A W
BNE Volume_FILL2 u: v' w3 k8 e. S2 [3 b- K7 v
RTS
0 r4 h$ N Z' r3 b: y3 G% {4 n* k2 V
: {' }: D6 L- c5 F) {; x& j
Volume_Set_Cnt; } a4 q8 v9 e& N
LDA #PPU_MODE_CNT_LINE_NEXT4 H9 { G( N3 v/ b4 ?' w) b
STA PPU_Addr,X. h; @' G1 R- l
INX
! Q0 s! `; D; l- m! a) K
LDA #$084 Q5 n! S0 B H; h0 G
STA PPU_Addr,X8 q2 s( l2 d1 }( H3 q4 w& s0 f
INX9 {* H( k' ^1 P( q4 p: B1 f
RTS
1 g6 \7 S2 r# j8 L: p& t
% l* Z) N) {; k
.ENDIF
/ {% D; F* U0 O9 d! P8 E% [
9 V- U0 a. [: }, i- j$ S
;==============================/ ]7 e5 V, {1 W* R# k
PPU_MODE_CNT_LINE = $FA ;行计数写入" K; T% \; \; u4 z
PPU_MODE_CNT_LINE_NEXT = $FB ;转下行计数模式
+ Z: e* q& s( A6 L5 r5 h* }
PPU_MODE_CNT_CLEAR = $FC ;行计数清除, O) Q( {, k# W! i# j- b
;------------------------------. y2 {7 j. j/ p5 U+ S1 L
;PPU处理
6 k& z% h; N% f( Q8 ^5 ]& Q
PPU_Proc* v7 k; [1 K" z: j5 d. P/ x
LDX PPU_Cur
6 F% d5 P: }% Y4 L" u
LDA #$00( P v' j0 f m" N
STA PPU_Cur
1 i" D, X4 g+ {4 @) }
STA PPU_Addr,X, X; t q- p7 \" W
LDA PPU_Addr2 |: l. W K3 f5 W; E
BNE PPU_Proc_Beg: }/ a3 y5 M4 }6 v0 r: p
PPU_Proc_Ret
# O7 p8 Z# l6 K2 l) t* p b0 C8 {, i
RTS; O& p5 m5 ~* ^ \( J
" _+ u- ]) l6 T# }+ l7 O8 l
;------------------------------- S! l- R+ D( p/ i; \
PPU_Mode_Return_Cnt ;转下行模式. T2 D8 O) G$ O& G; j8 |
INX
" `6 v" g+ j h& m5 t+ v* b
LDA PPU_Addr_L
: x7 W6 o1 Z; w3 E
CLC
$ w k7 y% G8 U \2 j
ADC #$20) F% Y$ b/ Z) p* W w3 N
STA PPU_Addr_L
4 o3 f# @- X' `: a; H
BCC PPU_Mode_Return_Cnt_End/ _+ z9 \& }1 V6 N
INC PPU_Addr_H
- t0 S5 G3 H2 s Y5 y
PPU_Mode_Return_Cnt_End) i2 F* n/ A- u, A( \6 h9 H6 d
LDA PPU_Addr_H6 v! F4 z s1 ]# l
STA PPU_ADDRESS
4 \! d) ^: i1 Q
LDA PPU_Addr_L- K0 t) P5 e7 j) N/ h3 d* A; e* ] Y
STA PPU_ADDRESS8 v: x- d8 T A+ _; V: j7 `
LDA PPU_Addr,X
% G6 I. O- @& b+ h8 e
TAY# V1 R2 m7 G J1 d, _
PPU_Mode_Return_Cnt_Write
4 y0 U/ f5 g! U$ l* i1 L
INX' \5 s# I$ a1 l$ Y$ G! [& W
LDA PPU_Addr,X7 K- o# b& Y5 ]3 A& [
STA PPU_DATA! [' J# m @ a7 z, t! Z
DEY
8 e) A( ?3 ]& H5 T! }+ K
BNE PPU_Mode_Return_Cnt_Write
" {' Y9 a8 e2 j$ ^
JMP PPU_Proc_End
* f- `- N w& {% r2 P( P: W: Q8 G
$ T) \, F/ A) E
;------------------------------
3 c: a: e: O; g0 e/ V% m
PPU_Proc_Beg ;处理开始- \3 p5 x" |7 t
LDX #$00- b0 d8 g# B% l2 Y5 T9 w
STX PPU_MASK; j9 v: g+ g1 i7 z
;------------------------------# `: p. u' F8 z
PPU_Mode_Select ;模式选择
/ O: ]0 H& n X. g! o; m0 x
LDA PPU_Addr,X
, M$ ^) o. b/ L0 ?+ s
CMP #PPU_MODE_CNT_CLEAR. \& s' T% a: P4 }
BEQ PPU_Proc_Clear) N9 T' x* `5 c- r. m; C1 Z8 Q! b
CMP #PPU_MODE_CNT_LINE) Q1 S! x* M8 B7 W' B2 f
BEQ PPU_Proc_Cnt_Line$ q* P( G9 w) f* c
CMP #PPU_MODE_CNT_LINE_NEXT
2 [! Y" n1 n8 }9 W& u6 ~* b0 G
BEQ PPU_Mode_Return_Cnt1 a: @. u# A- X0 p
JMP PPU_Proc_End_Write
' @; @9 l6 n1 R0 i3 O! e
;------------------------------
8 \7 v& h9 J3 U# C2 C% u: l
PPU_Proc_End ;单行写入结束- R4 f! G M$ s. i+ f
INX
& J7 _( b3 G: B5 c. ^, ^
LDA PPU_Addr,X
]* ~* P# r6 |. f0 r
BNE PPU_Mode_Select
$ m+ L! G r# Y! d0 u0 ^9 y
STA PPU_Addr
% n+ M6 r a: C) e( L, F, b7 w8 d
JSR Update_Palette_Color
' `2 l" q; y6 B# c5 }% v
4 D+ T% Q' T9 Q
PPU_Proc_End_Write
2 p. d, h9 k+ p) \! p" J$ u
LDA #$004 X; W3 O) }; l6 a L( b3 n. r
STA PPU_ADDRESS; ]# @- i4 G" C& i7 ]$ l# C
STA PPU_ADDRESS
0 Y4 X' a" D- b$ Q$ E1 P
LDA <Text_Disable_Flag! Y7 b& ?6 u, {8 t. ?5 U) R( T6 \
AND #(TEXT_DISABLE_BAR | TEXT_DISABLE_TIME | TEXT_DISABLE_RAM) ^ $FF
5 V8 z- ^, [( F1 N
STA <Text_Disable_Flag
+ {9 W1 R, U5 x7 n' {/ Y) U
LDA #Scroll_X" L+ t9 f" m3 b1 }3 H
STA PPU_SCROLL
# ^% `8 \ z; o" K2 J+ s
LDA #Scroll_Y9 ?2 t" F& r$ O
STA PPU_SCROLL- r+ q" ^9 Y2 }% K5 S
LDA Screen_State; M, ~5 a* @# t% L
STA PPU_MASK8 y) C( H5 E9 n/ y4 l @6 m- ?
RTS
! f" q" U, _7 P' `% x5 H' F7 F
) l# `! `5 x! H
PPU_Proc_Clear1 B; Z1 R" A: U9 m/ k
INX9 _ E% i7 R% {- P
LDA PPU_Addr,X
1 o7 Z" ]% w0 _+ ~3 v- s
STA PPU_ADDRESS
% u) V9 R5 \+ j+ o2 V& B
INX
+ A; X2 F% K7 M1 V, E
LDA PPU_Addr,X/ y! D3 ^1 [8 x3 @
STA PPU_ADDRESS% Q! o' |# {7 @6 p
INX
7 R4 B7 D2 Z/ k( D; o
LDY PPU_Addr,X, \) A Z& l( n2 }# T
LDA #$00. H* H" T [5 l1 `
PPU_Proc_Clear_Write
) O! U$ z" r P1 f
STA PPU_DATA; |- ]* ^- @6 L- P" C7 \9 S2 G
DEY
8 L# [; N" P1 H
BNE PPU_Proc_Clear_Write# c% W/ V$ A6 i) r+ X2 O7 X
JMP PPU_Proc_End) V6 q5 D, I; C
8 C# {3 A8 o6 W5 j9 _8 T8 K- |
PPU_Proc_Cnt_Line) e W4 w# x# |& e( H1 {8 s
INX8 h8 D$ i2 \9 R1 \3 U
LDA PPU_Addr,X
( T7 O7 s3 R, l7 e7 n3 K
STA PPU_Addr_H9 ^% q3 X. }5 U, B! @% r
STA PPU_ADDRESS
9 E- A9 ~& [* X3 }
INX9 |5 f0 k- j' o
LDA PPU_Addr,X, q5 P7 c# n& j- w7 D% h. h- a- D
STA PPU_Addr_L7 A+ U2 O p1 }6 P. M. G+ H5 s
STA PPU_ADDRESS
) ?5 @' l5 u, F1 |, q5 u
INX9 @0 B9 f$ T3 T6 q( {- p
LDY PPU_Addr,X
" x! v+ A% J6 v F2 Z" H0 R
PPU_Proc_Cnt_Line_Write
% b" M' j8 e) z4 O7 J i' r
INX. w' c: s$ L* H9 F# Q: C
LDA PPU_Addr,X, n& x- r9 M. L& G* a
STA PPU_DATA
6 M9 E9 r5 Y' _0 _
DEY
, [+ _8 `' _2 _: i( n) y/ F, G1 J
BNE PPU_Proc_Cnt_Line_Write
JMP PPU_Proc_End
! K# e# o3 ^! \+ T2 H$ ?, I( [# d
# U4 D, Z+ I% A4 u" O7 V" x1 M# }
;==============================& Q& Q- b$ j* \ y& I& o3 K
HEX_To_Dec;十六进制转十进制 o' D( F6 y5 z; p, q* u
STA <HEX_Data
2 N: U$ j1 C; ?7 S6 A- O0 ~- H8 r/ ]
PHA! v u% o# u- O+ R- B- A. F6 G
TXA3 W' P0 ~& p( B" [
PHA
; C& ]- v, z3 _0 k% D' ?
LDX #$00
& J& G3 v+ @$ v* G. K" L
LDA #$00
! d. f) t# ^+ {, o# | Q0 d
HEX_Cln, s u3 X# |5 X0 `! K
STA <DEC_H,X
8 Q% v: y5 g5 |% k
INX
{2 ]# k) g4 z
CPX #$030 h$ p) j- p$ V4 H$ u1 u% _
BCC HEX_Cln3 j- P& `% i$ {; u/ f, Y* M% L
LDA <HEX_Data, C: z; v' q3 k9 {# [
;------------------------------
5 q1 T# ]0 ]( K4 U* j0 U- i
HEX_100: O+ t; W. @6 n; ~- k+ B
CMP #100
0 t+ q% [* F1 w. {+ s
BCC HEX_10
& k+ _6 Z7 t3 b6 P
SEC: D* ^0 J$ G8 X B
SBC #100* O8 C5 V8 H. _! Q( b
INC <DEC_H
8 r6 ~8 b4 O! N0 o; M
BNE HEX_1001 e, _ G% C7 \/ C4 F
;------------------------------* m M" H" f; U
HEX_10
; ^2 b0 K' {: u: o: V- A
CMP #10
7 n" S; y! e9 i7 v+ H& V* I
BCC HEX_1
& R6 H0 [/ B/ f' l5 N
SEC
) M9 R" j) Y% p3 Q
SBC #10
8 X; h* p0 n0 I" Z4 |) L2 B
INC <DEC_T. q ~0 z7 x1 l) I$ T+ U( H
BNE HEX_10( A: W% f5 f; i' M: P
;------------------------------! p0 f. t4 n2 S1 x
HEX_1
* Z' j( d) K r# {6 |! K
STA <DEC_L& R5 O4 u* v& d2 x" F" F
PLA
8 L; K% i2 Z0 n" _# V! ~/ v
TAX$ ^3 b2 H: z* u" r$ } Q3 @ z
PLA
7 X+ H$ q1 ?, M: q- i
RTS
s* u7 c2 ~2 F. F9 S$ d6 X
, P% B) `3 j) T- p! z' ^. r
;==============================. h8 D/ T* _; f3 D) @
;音乐曲目显示
D& K3 q; D. d- c
Music_Show! S7 a8 p; l: M$ `' [8 H8 N) `
LDX <Music_Item_Cur
- l* r; [& H7 _ {6 P- b
LDA <Music_Cur,X& H9 g% i. n" Y8 N; w! q
CLC$ X; b& j# q9 g. u' s
ADC #$011 {- H7 O* o7 v: T* z* Q. j
JSR HEX_To_Dec
" h6 e) k8 J+ c# ^- x+ H* _, x# v
LDX PPU_Cur
# E, v7 L: |, @* x, L( s
LDA #PPU_MODE_CNT_LINE. u% @9 _$ Q) ~
STA PPU_Addr,X) X( R6 A2 s( Y, S8 Z: o: p
INX
' E& e; c6 o6 l+ u1 n6 C2 d( V: U% c
LDA #HIGH(Play_Index_Pos)4 F( n8 ~) |' Q9 g' X# n
STA PPU_Addr,X3 O1 H/ [% V) l3 C$ O
INX
& D) q) m: A6 g- h
LDA #LOW(Play_Index_Pos)3 F+ G, D6 \0 N( C! d9 a( S
STA PPU_Addr,X8 Y' k, y8 F1 w6 J2 ?( e. _# Q7 o! i
INX N8 w {( L8 t3 x* `. O
. I9 y, @1 P: T; J; ~ J+ s
LDA #$073 h v V, G: G1 w" \
BNE Music_Show_Length# n0 i: W1 U) y- w3 @ O/ G# z0 Q
8 s! J |; j; k' {" s
Music_Show_Length+ S# f0 V ~/ f7 M! j; [9 D
STA PPU_Addr,X9 N$ R8 p/ N. Q% v1 w. B; g c# M+ Z0 Q
INX
6 x+ g5 | r0 B
5 V% ~# j" L' d/ y4 J2 W/ y
LDA <DEC_H
$ [+ u+ _3 D% o$ A% P
ORA #'0'" R3 b5 j. x/ |# O4 o1 A9 a
STA PPU_Addr,X. Z+ |$ Z v8 G7 E) S
INX4 r. U( V( ~& W& b7 a. Q
# {( A! S% S d T6 F
LDA <DEC_T
6 c) P* z& B! O) {' V5 u
ORA #'0'" b8 W: {1 {5 P
STA PPU_Addr,X
+ f7 V1 l0 e$ ~) U; `* ~3 |
INX2 H0 f& e: H( g: y5 c7 P
* e/ N- \. W. `9 s& g* d# ^, F
LDA <DEC_L& u$ ^1 Q& l8 }& J8 O9 G
ORA #'0'/ [; g, N& ^/ Z) y
STA PPU_Addr,X
. r' J+ Y& \8 i! p7 G# G
INX
- n- `/ f: o' J
7 ]4 q8 v' B/ D: ~2 e O
LDA #'/'
! F' P: e/ V5 E: n
STA PPU_Addr,X
: e2 e% R8 Z: f' I$ c2 o
INX
9 b( X1 ]4 i& y' g* Y+ {
Music_Show_Total8 P8 V! Y, @7 S' `9 I
LDA Music_Total6 q9 m# H/ C; @$ o
CLC+ ?7 y" V i( N5 Y
ADC #$01
3 {2 l% n* ?: ?- Q) c
JSR HEX_To_Dec
$ r e2 M0 ?" j; A
7 C# c3 U8 J& A ?- N- n( C
LDA <DEC_H( o" y9 ^6 o" G; q `# Y: t/ I
ORA #'0'' G& H, s/ [, Z$ J; g
STA PPU_Addr,X
! u; f5 u' v8 w* b2 X0 z
INX
' B+ b& }$ C+ p7 u% {8 y
+ E3 [4 B& L: v$ `- i
LDA <DEC_T
$ h! B5 H2 z+ [8 n! v( _
ORA #'0'
( Q2 B; X' C! s8 W
STA PPU_Addr,X
0 i& ~' I, c# a4 U+ D- x
INX- a' n8 Q! i2 B! X5 K
, X7 d# W! z+ k* f5 O' J/ W
LDA <DEC_L
' O' `& j7 S* | J
ORA #'0'
) g2 H9 N( Y" }% ~5 W: x
STA PPU_Addr,X
6 O [, y( w: @( k% ~9 P
INX! K. ^+ {7 q: U4 h
6 j2 `4 ^9 R" F- @9 k4 K! L" l2 v* e
STX PPU_Cur
3 x# ?- m% I, K- P9 z/ Y
Music_Show_End2 R1 L3 G0 J' {
RTS7 p4 u) p6 a& p4 R1 [% U
! q ^* f' G' n, O; G5 H
;==============================( R; ^" I" K$ r
Time_Show;播放时间显示1 X2 b% O& ^( d8 @
LDA <Text_Disable_Flag. v; \/ o% {9 l0 r3 _
AND #TEXT_DISABLE_ITEM% ?* U9 N; T) T6 X0 Z O9 b) }
BNE Time_Show_End
8 s2 i1 L6 K9 B% Q" ~1 S( U" f& E
AND #TEXT_DISABLE_TIME
6 ?9 s1 \, ~+ T- |
BNE Time_Show_Enable
G, j j0 C3 @
; [: [" J/ R- G# b% @- `
LDX PPU_Cur
# h. O- J+ Q& H% n4 e: _ ~$ \
LDA #PPU_MODE_CNT_LINE6 V |2 Q8 O" C3 c
STA PPU_Addr,X
# f( q) G8 J' R1 }9 Z
INX
2 h4 c- Y: u3 s/ ~; B* S
LDA #HIGH(Play_Time_Pos)
4 `' d! {: Y' H7 o9 |
STA PPU_Addr,X
$ p- O3 v6 J3 ~$ v* ~ c9 [+ ?5 i
INX6 D' D. c5 y& Y1 W6 c1 z! r% n. `
LDA #LOW(Play_Time_Pos)
; U! |1 s9 M$ d3 L& j9 L
STA PPU_Addr,X
( D- h, J( @' Z- ?7 A, u7 q- P
INX
0 n) t. _# J$ A& e* c3 E
LDA #$084 s+ ?) o% d: k# _; o+ r- Q' A1 R- s
STA PPU_Addr,X6 E: b7 P- Y" T$ r' \% M
INX0 u* y, s. P: Q! I: x: J
Time_Show_H
1 p% }* ^" t' P# c4 u: ^. z( d
LDA <Time_H
; A1 c4 W/ A% n$ @$ i
JSR HEX_To_Dec9 `4 b1 w6 k; U6 Y
JSR Time_Digit
2 \* |. a2 f, N
LDA #':'( C/ ` Y- @# d& [" g" H1 g1 I, P X- n
STA PPU_Addr,X" z; X5 F: X; P$ m
INX) u+ P8 ?; R5 V2 f7 I, N. R. T
Time_Show_M0 { f) Y7 B8 y/ P$ c% |: O4 f
LDA <Time_M
% T+ G) ]7 s P
JSR HEX_To_Dec- o6 i! t4 `: J! Q7 M. a' v: y5 b
JSR Time_Digit
% J8 k; ^1 q& a' C
LDA #':'
6 w1 J0 u* y3 k# n q
STA PPU_Addr,X" d& |" `7 H$ ^* ~. e3 y, _
INX
' y* q7 H; ?. r5 o& d
Time_Show_S* ]. J5 S8 e; K/ ^3 U
LDA <Time_S7 {* B% L0 G( q
JSR HEX_To_Dec
8 x+ C! f5 `1 H8 A) ~; \
JSR Time_Digit7 P6 g! I5 @: ~, N1 o
STX PPU_Cur. O" A0 e6 S: b0 N
Time_Show_Enable0 D u; c& {* e! R& W
LDA <Text_Disable_Flag
4 b" ^0 E' ]; ]6 o
AND #TEXT_DISABLE_TIME ^ $FF
5 o: C2 L) ?) Y7 p6 `5 c+ o
STA <Text_Disable_Flag
/ R/ P* v" }2 c7 t v
Time_Show_End
" ~! C9 B, m+ F0 ~
RTS
2 N) D, I9 G: ]/ b+ S$ }( Q
6 I+ s) H( m2 L, D- i% S' r
Time_Digit
; V8 {. E9 S `
LDA <DEC_T
- l- G q! a2 Q9 B6 [! b
ORA #'0'5 M+ y+ [7 O; P8 ?! R, o
STA PPU_Addr,X% K h; A1 R6 Q6 D
INX
. M$ C+ ^* R5 d0 K0 P! c
LDA <DEC_L
/ y3 A. T0 j% E" _: \( I3 l
ORA #'0'
4 H0 q9 Q9 ~, S) I" \
STA PPU_Addr,X' | ?9 M( O' x5 |3 |
INX
/ n% k4 y# ^0 n: @
RTS2 ?! ]+ ?9 h# C& ~6 `: K) R# v
6 @/ t: u- F$ ]3 x+ D
;==============================
. x- u" H/ j8 H
Time_Count;计时& a5 T" z2 f {4 K( f" K
LDA <Music_Stop_State
7 x+ `$ N# V# v1 l4 [2 T
ORA <Time_Wait_Cnt
1 {( J' z9 ]4 D5 P
BNE Time_Count_End$ R8 G ^- z$ C7 o3 o% L6 Y
INC <Time_Cnt
, M: |: Z T; {* K9 P u
LDA <Time_Cnt
. }7 X9 \: ~6 i
CMP #604 ^! M4 L( f. ?+ `& G
BCC Time_Count_End4 L1 C; Z9 }) Q7 G( P) l
LDA #001 r& a% J7 v$ |: b9 b$ \
STA <Time_Cnt
9 Z% p) B C* k
INC <Time_S' y% P4 W5 \; Q% h
5 c: z' n% X+ L- u- l ~: x
Time_S_Cnt
}/ L- V" k1 L: z& n+ j( T0 t* p
LDA <Time_S
CMP #60
, z; v; y/ c$ c& j( g) I
BCC Time_Count_End
& Z* N* Q" t+ P% ^3 H( J" Q( C7 ?
LDA #00
6 N. F2 d; u5 f' P( E" O3 Q/ A. b
STA <Time_S
2 o9 E; C1 O, r3 X
INC <Time_M# }3 [) x$ y. l5 Q( W( m% o! B/ R
' _3 b% |9 z2 `, R# L
Time_M_Cnt2 p, V* ~6 v# @% ]+ }6 E' z9 D( Z
LDA <Time_M
1 l7 \: W% M7 F' ~
CMP #60
W( r" N7 K4 ` {
BCC Time_Count_End3 _5 g9 h. I1 _0 [- c; X% x, p4 v
LDA #00" b( w# r% C/ b2 K4 G
STA <Time_M
- r8 e# @3 G' l1 b
INC <Time_H
x# m6 F: q* h3 x4 i W
7 H& I' d }# }* @* b# X
Time_H_Cnt
: k9 G6 {: N; ]$ G
LDA <Time_H
2 o& H' T% _# m6 O/ b" h- f4 n- }
CMP #24
6 g1 ]( C1 s4 \* Y- N9 {+ H$ J
BCC Time_Count_End
9 b8 g* D* T1 n9 m) i# u) z
LDA #00
; A2 T& n8 v- |5 ~) u9 t/ ^
STA <Time_H5 n1 R! t* v+ k6 c* B4 K5 k' `
( w/ E. v+ T3 Q4 | b5 r( {
Time_Count_End0 O. y+ S1 h+ K3 [
RTS. F8 o: |" r/ p! @" S; B
9 i5 D$ N6 G ~6 v u% o# Q
;==============================+ w" `/ a/ t4 d% Z3 D2 ], q
Time_ReSet;播放时间重置$ \0 W1 R1 _1 ]# t; s
LDA #$00
0 ^( N% X N. Q9 ~
STA <Time_S8 |8 p2 z4 r s" {5 [0 Z; q
STA <Time_M 5 \1 L& X4 Z) Q( N/ v
STA <Time_H J& |0 J- [2 X, h% y: l' n
STA <Time_Cnt0 i1 Q/ P/ |* Z/ t
RTS. J& _) R6 z8 J9 j- W
" F0 ?! a+ C: h+ a4 |7 g- z
;==============================
4 R. X' K, e+ Y+ h6 j9 |
Music_Bar_ReSet;音乐条重置& A) x. l1 ?1 l& [* e7 J$ Z
LDA #$00+ @5 k7 p8 G! ~! g& \
LDX #$00& T7 z, y& @, Y2 B
Music_Bar_ReSet_Set' ?8 \4 W; D; D K
STA Sound_Bar,X# y3 w+ F3 |/ K- R! @) R# j
INX0 O# R+ V& T, y8 p9 f' |- u- K
CPX #$10, M* b0 B+ G3 O1 h: ]
BCC Music_Bar_ReSet_Set9 N0 K+ t, k1 ]3 I: Z
RTS
5 W6 {9 e, b5 o: I+ X3 N
: {) H4 p+ s+ H7 b2 o$ h4 x
;==============================3 o+ r( q- Y# s+ t2 t5 o4 h
PPU_Data;PPU数据写入
# m: y0 E3 V3 r# N
STY <Data_L
! g+ ?" F6 Q z2 \/ O
STX <Data_H x' L* C/ j6 C" ~9 a2 w5 ~' u
LDY #$FF; j- ~4 ~: I& n7 i4 b0 j
LDX PPU_Cur2 d& G# [% x7 I5 r
DEX, P& p9 k; T& M A7 F1 `
PPU_Data_Beg2 j1 K( i5 y6 q+ g: B2 R2 V/ @
INX# s- N$ F3 c) L
INY& o6 ]+ B! O* M* F( g
LDA [Data_L],Y
& G5 Q x a @) R" q
STA PPU_Addr,X
+ r* O0 G- w+ ?. u; i$ T7 g
BNE PPU_Data_Beg5 \7 v% [% ]9 U4 X! c9 B
STX PPU_Cur3 Y7 z8 U G. l
PPU_Data_End1 G6 r+ P f0 Z+ O# E1 ~
RTS$ [, X2 D: m+ V/ }2 A1 l
5 `! d; H5 ~+ N; j* P, [
;==============================
* X' ~0 `, j1 |# ~* u
Music_State_Show;播放状态显示
" {4 [; t6 H; u d
LDA <Music_Stop_State2 {" N# n) C1 P" }+ z
BEQ Music_State_Show_Play
# `& W5 R7 J# ~
Music_State_Show_Stop
; w" @, V# P4 I3 N- k, [/ t
LDY #LOW(Music_State_Stop)% o; m# J) i& |$ ? @
LDX #HIGH(Music_State_Stop)0 X1 @1 [( g; W; K* r2 X
JSR PPU_Data. |1 c* {6 e! }5 p$ v: G7 W
RTS* H, u6 \2 _4 G) l2 _
Music_State_Show_Play
8 I& E$ O! ^( c' L6 [
LDY #LOW(Music_State_Play)
" i; u# w* x9 @; v
LDX #HIGH(Music_State_Play)
4 l7 s3 x+ M0 Y& n% ~( x( p
JSR PPU_Data
% R# T+ J7 _/ q! u3 Z4 T1 T
RTS( A8 |( m3 p4 \, W; o& M
4 D" F. w( _& w% T1 p& ~* |4 M& e2 v
.IF SOUND_BAR_SHOW_ENABLE& Q, K' i5 l$ M8 c. o
;==============================' D! a9 d# o6 i1 K. U
Sound_Bar_Text_Set;标题与音乐条初始化& d7 r+ e7 v5 j0 T R/ ]$ Z9 v
LDY #LOW(Sound_Bar_Text_Data)
/ r8 t' h J: @; F- ~5 {# P
LDX #HIGH(Sound_Bar_Text_Data); Q6 _4 p+ {; o4 K% H x8 M+ g
JSR PPU_Data
. k# ~# F, P$ W; ]+ M1 I, A4 z7 E
RTS: v3 d3 E# V# w K
- A, r1 O8 H0 T
.ENDIF' x# J: c' v1 J% K9 ^8 C
" |7 g. P' q4 s3 a" { P& i
;==============================6 T4 Q1 V; h+ I. r& v5 n; r7 l
Set_NameTable_Attributes;设置命名表属性3 W9 Z6 A- }# {
BIT PPU_STATUS3 I. N2 E' I' {8 l* g$ r, j
LDA #$23' E d2 s# @' F# F3 a5 B/ H
STA PPU_ADDRESS+ A, T# e- {% Z% a* s l
LDA #$C0
: ]9 n t# r) o! h
STA PPU_ADDRESS- ]( N- \; j( r
LDX #$00. Q1 M+ s9 O2 F' F5 q' W% D
Set_NameTable_Attributes_Write
3 h+ \/ s9 A7 j( I4 O! B
LDA Palette_Attributes,X' N5 r" B6 d, U
STA PPU_DATA2 @* C! V) l' W' e& ~* d: n
INX/ J4 c0 Z+ p1 ?+ J% |5 ^$ H8 E
CPX #$40& F8 ^; K% k0 x4 B
BCC Set_NameTable_Attributes_Write
# C+ ~7 y+ D6 g6 s
RTS
4 `% ]7 d" j5 ?9 E! }
8 a0 z0 S! F! E( Z8 p
;==============================+ h2 K5 s8 z u# g: w( b Q
Set_Palette_Color;设置调色板数据
" z4 C' B; \! z e$ s, q+ y" n- ?+ ]
BIT PPU_STATUS
1 }, ]5 n* h3 O- e# j
LDA #$3F b, Z. }9 |- }1 g/ q7 b3 @
STA PPU_ADDRESS$ q) y. b& | w. p0 x! H$ f
LDA #$00# Y( X# o) z* C \- q/ D- C
STA PPU_ADDRESS
& m/ V) n: y1 J; x( ]$ a" B" ?
LDX #$00+ ?" j/ f& h4 O* L. J
Set_Palette_Color_Write4 J2 K- v5 J7 C' }7 J
LDA Palette_Data,X8 E/ k4 y' X' }& v
STA PPU_DATA5 ~ p: u- c$ o) j4 \
INX' o& y3 c( O& f% e
CPX #$20
4 g4 o7 B. m6 U9 V3 s
BCC Set_Palette_Color_Write& Y1 r3 m6 @/ T5 E
RTS
( ]0 L2 ~8 l% l, T
% ^% q0 e1 x; d% s3 }
;==============================$ y1 Z- A' E p; Y3 ]
Init_Palette_Addr;初始化调色板数据) O( Y1 ?6 X4 |8 Z* V% r" \
LDX #$00- @+ C: @. X- Q% S! N
Init_Palette_Addr_Write) H4 t+ l$ m# R) Z% M+ h1 c
LDA Palette_Data,X4 J m- V0 V+ X" c) a
STA Palette_Addr,X6 }1 q: A; @" I% I: z
INX
5 ]+ V- q0 @* A5 U3 ^1 \
CPX #$20
% ~4 u' [' w* x" c$ y
BCC Init_Palette_Addr_Write
) ~9 p/ T. n( R
RTS
`1 e) L6 E! r( h7 n6 `
8 E7 z- i9 @5 `, f3 _
;==============================
+ `% g7 S' `) [0 t' f
Update_Palette_Color;更新调色板颜色; h" o% }$ {" M
LDA <Palette_Update_Flag0 [* a0 a7 P) m% _4 z( J: C
BEQ Update_Palette_Color_End
/ `. A; W9 G# K6 x/ z
LDA #$3F
! `- `7 _! b7 }$ S' k5 ~
STA PPU_ADDRESS
7 N8 T% u; Z3 w7 w! [' k5 k
LDA #$0C- v ]+ f X1 R3 G
STA PPU_ADDRESS
" w5 R1 s/ K/ C
LDX #$0C
1 J5 I' c- w6 G: M- I
Update_Palette_Color_Write! J- p7 |7 N) U
LDA Palette_Addr,X! x8 `9 @$ C! d, ?$ e6 n' z- v$ H
STA PPU_DATA
/ ~( `. T. C8 }. r1 @
INX
! C% T0 H" l$ v
CPX #$14
9 j; Z2 D; _4 K) L1 \* b ]1 r
BCC Update_Palette_Color_Write
3 g2 t% |! ~! Q- r# h& S
LDA #$00: ?! B) _) p9 `: X
STA <Palette_Update_Flag+ b* D) `& S" _/ `/ A2 C3 \
Update_Palette_Color_End
4 w: V$ q& N7 i4 l$ I
RTS+ [' F0 n. T0 }" h/ v
6 M" H- Q( R( ?
$ h' I! M s' N& x' \5 O8 i# ^
Update_Sprite_Palette_Data
- G$ t) _; o% {
.DB $219 T& c3 l4 y# q' R! y
.DB $21
! f9 B U X) {: x- }
.DB $11, J1 ]8 F/ N% w- I k4 }6 p8 Q. l2 C
.DB $019 K* D' ]# v+ L
.DB $01
" r6 R3 W+ H+ F! H( |# `4 k0 O9 [
.DB $11% m5 K$ U: i e) V$ @' j
.DB $218 @+ G6 P) J C. N7 Y/ G( D: d- x
.DB $21
$ X& m3 [3 q1 W7 [% `+ I
.DB $11# h# D7 H# ?' m& i) h
.DB $018 F7 S) ~- R. W# a1 v2 F2 T: N
.DB $11) q' o4 ?( x5 W
.DB $213 e4 M8 f2 T$ i. {* `
.DB $21
, z: C9 b; }$ D9 v3 S
.DB $11) ]( m# u$ S0 P* C/ q6 g! K: K" y3 u, O
.DB $016 n) l# b: L7 n
.DB $11- ?# ]9 D6 _* M7 j, t
;==============================8 e3 G! j# N) G9 r) w) S$ `
Update_Palette_Data;更新调色板数据
& O& t3 R+ S) j/ r; l
LDA Nmi_Time_Count
: {6 s6 W+ `5 T8 k% Y" l
AND #$08( r, \2 a8 [# j/ \$ L
CMP #$08
4 |, ?# B; k* {% _/ E9 S% h
BNE Update_Bkg_Palette_Data/ x" ` ?/ N* v z; L
6 e# R ^( z* t- I& y3 S% g' R. i
Update_Sprite_Palette_Data_Set
5 J: o3 n- w$ `( o l$ ]# v8 p
LDA Nmi_Time_Count
5 ~0 B* M# b7 R+ F0 }* M; V
LSR A7 _% M: X; b5 k' ~
LSR A
B- p; x% \- f# x' O
LSR A+ ^& i+ M6 L. x# A2 s* R
LSR A
. ]/ I, F8 w& J& b
AND #$0F6 E, ^& F0 y$ b6 r
TAX5 E+ r5 { j% z4 R+ M1 O8 L" k! g
LDA Update_Sprite_Palette_Data,X
$ ~( }7 U3 f5 ?( Q! f2 k! i
STA Sprite_Palette_Update_Addr
5 E) Z) O$ k" M2 |2 A- ?. F
LDA #$01+ @$ M# h: a0 m; @5 s' b
STA <Palette_Update_Flag0 F: n* @7 g7 O
/ Y1 g5 T( a$ C; Y* i2 J
Update_Bkg_Palette_Data
( I+ w2 X9 }8 [% e* I. S
LDA <Text_Disable_Flag2 v+ J3 Y8 K5 \- b5 b' X$ B! ]
AND #TEXT_DISABLE_RAM0 |/ r: W+ W# N" Z
BNE Update_Palette_Data_End. i% T5 X+ E4 [' u
LDA <Music_Stop_State0 J) u; o8 H) W' M! a; O5 W4 k
BNE Update_Palette_Data_End
; @- A5 a& s4 D" h9 F. F
" z0 U9 n& i9 `& L4 K. l% r3 x
Update_Palette_Data_Check. U5 l) r7 B6 X9 ~0 b; s2 ?8 A% m
LDA Palette_Wait_Cnt7 a5 C- ] g% N6 X0 N" K
BPL Update_Palette_Data_Check_Over& Z( R) ~& |/ O& n. I1 H0 o1 g
LDA #PALETTE_UPDATE_INTERVAL
( S* q8 l7 h- Y+ [# V
STA Palette_Wait_Cnt: Y* ?3 U( y; m: E$ @$ |) s+ t
Update_Palette_Data_Check_Over
2 q& Q4 a' a7 G2 E; C; m
DEC Palette_Wait_Cnt1 E4 G$ Z2 I% |9 l L# I& r4 W
BNE Update_Palette_Data_End2 l& v7 i6 l$ Q1 c2 _
% k: P: V5 ]6 D, l3 v
LDA <Text_Disable_Flag
8 C( R+ K- M* w9 V6 W8 \
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME
! N0 T# r5 o! \
STA Text_Disable_Flag& [9 b) L/ q, v0 I2 a: c
INC Palette_Update_Flag
9 \- u t* D. h( J* h
. o: @6 u+ T: o7 K4 b
LDA #PALETTE_UPDATE_INTERVAL( S7 T7 j$ P" r' j
STA Palette_Wait_Cnt
1 r- F) \. u5 x( C
/ F) K0 K1 I. B% ^' Y3 R/ ^
LDA Bkg_Palette_Update_Addr
j6 i z# A) N) w7 Z3 N* T
CMP #PALETTE_UPDATE_MAX' v! W2 u8 T+ b
BNE Update_Bkg_Palette_Data_Set1 B' @2 c/ q4 \) K, C
LDA #PALETTE_UPDATE_MIN - 1
& v' s3 ?; m. H
STA Bkg_Palette_Update_Addr) @$ c7 U: H# i. D5 {0 B, D6 f. ~' W
Update_Bkg_Palette_Data_Set
7 r3 B7 c. X) O+ e# r2 x& p
INC Bkg_Palette_Update_Addr5 o/ R; I3 o! ^% S% t% U4 m
/ v; }% u4 I, j& i2 q% c' O4 I/ X
Update_Palette_Data_End1 S. k" M: N2 X) T2 Z- M3 r
RTS, g! i. e/ k8 Q% c
9 ^; Y1 \5 {( C/ P7 G% C" B, p0 w
;==============================
- P& P6 v6 j3 h8 e/ Z
Show_Music_Text;显示静态文本" Q7 S; j5 g1 }9 J
LDX #$00
# Z% X7 C Q- t2 X& O
Show_Music_Text_Set: [# U$ ~4 D' i
LDA Static_Text_Data,X6 x* X Z2 d) @7 N8 `; P1 y
STA <Data_L
8 S$ a2 @$ y% I* N) a- H+ M+ F
INX
3 V- ~' c) {3 f
LDA Static_Text_Data,X
8 Q! \6 V7 E b8 u+ o, c8 y6 ^# G
STA <Data_H
8 b$ M, H c \1 c
INX+ f# \& r6 H+ r n6 V( `/ ?0 b
LDY #$008 N8 d) S1 `% ]4 i! R: Y, U
LDA [Data_L],Y
$ {1 y" ^6 X5 o) }( R) R% G
STA <Data_Cnt( M. U ~8 `. e1 D8 Q# x8 N
DEX
& H% W1 d. n3 t; H: u$ q
DEX ^& ]* X( f9 J
LDA Static_Text_Pos,X
9 j4 F) c% U/ w: G6 y( R" ?
STA PPU_ADDRESS5 |, y3 G- K# L6 f* I! m
INX( {% ^7 W7 p# k2 M" I3 o
LDA #$20, g3 v4 \8 { h+ [' o
SEC
8 D* Y9 M# O/ A, }% m, S
SBC <Data_Cnt% f4 z3 ]+ d o0 r3 C: W
LSR A
4 f7 g) H$ L6 B8 Y! s5 R
STA <Data_Buf
8 i! L8 A/ u- k# u8 e
LDA Static_Text_Pos,X+ m X" V9 m0 t: W0 w
AND #$E0& ]6 @* X& u1 \( [$ s+ [! [
CLC
4 b' a, E, M( k
ADC <Data_Buf7 N/ b0 O! M8 B
STA PPU_ADDRESS) P# K% R( t" s1 N# S
INX
7 U/ n! x3 y& U7 F* T
Show_Music_Text_Set_Write( O+ I$ W- B5 Q8 R* ]! C2 N- G
INY- ?# g9 h7 b0 U* z# l* h
LDA [Data_L],Y0 y& }/ M" D: S! l7 f
STA PPU_DATA0 j% _; P( ~. {; t% k
DEC <Data_Cnt
. _ t' c! e. @% w( b
BNE Show_Music_Text_Set_Write
" _1 ?2 b7 {/ Z3 ]
CPX #Static_Text_Pos_End - Static_Text_Pos( _. x/ U# t- D0 G2 C
BCC Show_Music_Text_Set+ L$ Y. a% J* l1 L. V; U; Y
RTS# K* S9 B( E% s) Q4 ^# P
% `# w# v' o( M; C# p) B0 Y
;==============================
) E; Y2 N' D! o) a+ }
.IF Track_Name_Pos;显示曲目信息1 Y' D7 D0 o( j7 ?! e& R- q# K
; x! A' P. ` a
Clear_Track_Info4 @5 q5 B! r9 J0 Y K2 i
PHA
: h0 z, Y8 M. I1 a, B, }! a! G5 Z* k
LDX <Music_Item_Cur
6 o" u5 e6 |0 Q
LDA Track_Name_Addr_Flag,X
+ e1 M0 q( ~/ o# {/ h4 ~
BEQ Clear_Track_Info_End_Ex4 r5 u& O9 | n
PLA
4 i3 o5 k0 [2 s; o% `8 s
m: T* ~( ]; S" a: P
LDX PPU_Cur
- G& `3 b% [ T# W3 C& r
PHA, d; l9 }& `; _. c& L
LDA #PPU_MODE_CNT_CLEAR
K- I6 P6 {6 h; K9 J
STA PPU_Addr,X0 e# [5 a2 v0 Z V8 T: ?, |
INX, b5 H, N6 J; T9 W2 D
PLA
- R: z' e" U" ^4 b
JSR Show_Get_Track_Name_Center_Pos
: x$ _, V1 B. J% ]* T9 ?/ x1 k
STX PPU_Cur
1 Y. l1 f9 c: C9 g
Clear_Track_Info_End
. f, k" d \: _4 C, N' j
RTS
! F! u1 `5 _! {& t1 M
Clear_Track_Info_End_Ex1 |0 O2 B/ c1 }9 a, K9 E
PLA
0 a. v" n; _5 X5 m8 Z1 w
RTS
3 n$ h5 j, b$ {; D3 B) }, t' S
6 g! b* j1 G+ Y+ x% N) c- A; f: ~
Write_Track_Info
! z7 a- [# _. I& R3 T
PHA
( h' R, p8 F9 |5 r2 B
LDX <Music_Item_Cur
% E5 x8 ]1 U8 f5 U% ]& z
LDA Track_Name_Addr_Flag,X
P/ o- c8 Y7 |4 Y
BEQ Write_Track_Info_End_Ex3 w+ J* V/ |: Q. Y
PLA
O. m' n* a. |% c
# ]7 \* a5 Z; j
PHA
: F5 { S0 J: [: m5 \: P
LDX PPU_Cur
/ E- d# Z; H) @% ~6 q2 W
LDA #PPU_MODE_CNT_LINE5 J& S$ s6 v4 m$ ]5 q( M! |# Z
STA PPU_Addr,X
1 N5 s6 S/ G3 _1 |+ `
INX! @5 _6 Y ^. o) V: M, x3 m9 G
PLA: x- v! N' W G( z
JSR Show_Get_Track_Name_Center_Pos
: @6 x8 q% b$ w; R. A, a
Write_Track_Info_Data
A: n0 [2 A) h5 f. e
INY+ v2 \& w" l: |- b1 B
LDA [Data_L],Y+ |6 f8 a& ?& S' {. z8 L0 W: x
STA PPU_Addr,X& e- V8 `7 o) V* M. y" J) M5 V
INX! D/ V# _) l3 e l4 ^4 W
DEC <Data_Cnt' s3 K( @! I V' }
BNE Write_Track_Info_Data* H9 d$ h2 b+ z) I4 A% x7 y8 h
STX PPU_Cur
- L; C& ]- U* W3 R* g2 I5 v* J
Write_Track_Info_End
+ Q/ n+ f8 N2 Q' @% c2 {: y) c' H6 S, Z
RTS
' a( B- X4 q* H @8 h: ~: T N
Write_Track_Info_End_Ex
) N7 U- P( ?! Z) P' G) E/ s* K, }
PLA0 P0 k1 a$ m; z$ T5 p# i. o
RTS
$ }$ k5 q/ s4 z6 B
- J' E/ `5 I, Q# R9 M
Show_Track_Info
' Q7 M, |6 m3 p5 @8 ]( n- v
Show_Track_Info_Clear
" U- T: ~. o4 |' m! O
LDA <Music_Last
2 B4 d2 H( L8 p1 i N; w1 |: K1 a; a
7 q8 ~% S2 Y- @+ `
JSR Clear_Track_Info1 L0 s) G; Y6 o# U( g" d
) R7 Q) L8 ^' Z1 c V( l* L; F
LDX <Music_Item_Cur
' E8 B/ ^2 N+ R# s
LDA <Music_Cur,X6 w( E. o* ?( q. X# d1 {4 y: G1 y
JSR Write_Track_Info
0 G+ l& h. _0 L$ h* l
RTS2 `/ {+ J7 _8 l' c# e
[" b; ]$ V0 A. o, A- |: d
;==============================
" z/ M2 {8 m+ U/ o; m$ T4 h# f
Show_Get_Track_Name_Center_Pos;获取中间位置
% g, Z, ]9 H5 ^4 x3 \$ N
% o4 g0 U" ] X
;取出集合名索引 i" t3 w; b7 \2 J2 ]" I
PHA
4 }: E% N" y0 W$ H5 `1 c) f
! u) F& X2 c) _
LDA <Music_Item_Cur! w& B4 }3 W# v, |" ?
ASL A) R o0 h& W2 M# v$ k
TAY
/ n0 [" o, i8 W1 z
LDA Track_Name_Addr_Port,Y5 h' T) }: z: n* u( @" Z% M9 ?; e1 u
PHA! s4 }* k' j# j% C7 H1 ]
INY
5 C3 T- T8 U$ `$ O. i: V" c
LDA Track_Name_Addr_Port,Y0 ?* \- Z0 d# I1 O- W0 ]- [7 q
STA <Data_H
( o9 g5 Q$ j, m- v
PLA S. ?! X2 I; g2 t- K D
STA <Data_L
5 J* V' y# B8 C0 {
/ l# a2 Z. Q) D" s
PLA
; n1 O9 u8 C& u; ~
) ^" I. O/ b5 T
ASL A3 T, a6 a6 n3 d% L/ @* z
TAY7 N. J3 R+ u. ?7 W
LDA [Data_L],Y9 R8 O0 l" A0 O' X
PHA
' D+ s5 _- U2 M# y$ Y# q: p- N$ S7 S
INY
' i J) ^ g* W3 ~# N! d* G
LDA [Data_L],Y* s2 r+ C4 s) \/ g" O
STA Data_H
P P4 W% k" ]& A! p3 L! \
PLA
% S6 U |6 U; D# n2 l( D( m
STA Data_L
: j- X6 V. D9 S
9 r- o o' C' w( i: j3 k" ?
LDY #$00
, v& Y2 x3 ~6 i9 X( c: L- E
LDA [Data_L],Y! y. J; |( I! b4 }+ k
STA <Data_Cnt* K2 |5 Q, R) ]- j! v4 j
LDA #$20! I) J7 h9 Y6 K7 x1 t
SEC
) G3 ?( M4 B9 M4 Z" l' s" q
SBC <Data_Cnt
, w7 z! }$ q V2 n5 Y
LSR A) ?4 K* o$ f+ }. f( s+ x: Z
STA <Data_Buf
4 Q1 {5 ?- N- a9 [/ A0 V
LDA #HIGH(Track_Name_Pos)# I) h5 T. e: _& B2 @+ s p
STA PPU_Addr,X
- k* R) X$ f, L
INX
8 b4 m; |9 |9 e" m0 f- F: q) ~% e
LDA #LOW(Track_Name_Pos)
8 D! B* c, J# f; w# w! ?2 j
AND #$E0
/ P2 f' Z- C+ N8 ~6 K1 i. P
CLC. s9 ]0 z# F. S: k y
ADC <Data_Buf0 i1 d+ W" p- X: u
STA PPU_Addr,X( [4 e1 u8 v- E8 J7 X
INX; ^, {. L/ q1 H' h
LDA <Data_Cnt
6 x+ h, @5 N9 ?9 L! m
STA PPU_Addr,X0 k, [6 o ?% Y# \) X/ V
INX
8 F+ N9 R! w6 }: ~) x* ~% F$ Z% ?
Show_Get_Pos_Center_End4 S L' R4 s t4 w6 ]# y! m: ]
RTS- c& [. ~) g* P; f; f9 F7 P+ R
.ENDIF+ }* P9 N* R* R
" |7 A& g; F* j
;==============================1 S0 {' y6 @" J* g% U3 m+ v
;音乐端口清除
& W7 ?# f0 f8 }; L- a# J1 A) w
Sound_Data_Clear0 e3 d( ~; c, O" o0 A7 r. H
JSR Sound_Port_Clear4 F0 g" p: ?) c- u8 P* r
JSR Sound_Ram_Clear
, ^" K- d( w+ K% T4 \+ w
RTS
5 h8 z( B3 W5 r$ L
# R- d2 ^ @, p( g9 C
;==============================& F8 c* _; P m
;音乐端口清除+ ~1 Q' s1 n# o2 W E# o
Sound_Port_Clear
& _; l( o- X$ p( F5 X4 w
LDA #$00
+ u8 r+ T, J2 o, k; m7 f# d' B
STA APU_STATUS2 o+ p. X0 z5 z* S
LDX #$00. \7 B# j% k, m/ [. t7 ^+ l- P2 i
Sound_Port_Clear_Write
' ?2 h4 R1 e# h# B0 X5 p" ]
STA $4000,X
; t3 I. }, r7 M# p
INX7 P# I+ M% ^; a# K' Z( X3 f
CPX #$14
7 n" i/ e' z3 _1 u6 i0 p' B
BCC Sound_Port_Clear_Write8 s) u& ?& Q& E; F# }
RTS% e- \1 J8 W3 o7 {+ r6 s2 n
! b( m0 }" i* r! o; f: `. t, {+ t
;==============================8 ~( e5 F/ P& \) x
Sound_Ram_Clear;RAM清除
& i1 k% O+ G G0 |. f* o) f' `
LDX #$00* Q. v, q- v& l- V b
LDA #$009 O" d( s% m& z a# e
Sound_Ram_Clear_1
# `7 Q y2 v% V! B) D, n" {4 t
STA Sound_Ram_Addr_1,X* r; s- y5 v$ i9 p
INX
) o" n7 ~6 v& _! W
CPX #Sound_Ram_Addr_1_Size
; |/ ^% `3 N; q l1 _
BNE Sound_Ram_Clear_1( R3 u1 C8 V- k% s' ?. d
LDX #$003 k2 g# B7 p; N- S6 y
Sound_Ram_Clear_2
$ \: b. k3 e% A
STA Sound_Ram_Addr_2,X9 S+ d; F' `% \8 z: e
INX
5 \9 |" r" v7 e [
CPX #Sound_Ram_Addr_2_Size
* k& |0 L+ ^. t2 B4 ?
BNE Sound_Ram_Clear_2
* n: {' s+ `9 i; c: Q
LDX #$00$ ]9 ?2 p4 E/ I9 z1 d5 J- b
Sound_Ram_Clear_3
6 U" x6 |- H* F* I0 L" l
STA Sound_Ram_Addr_3,X3 p* j% Z$ ~5 W4 @' d9 ` V
INX
) K o9 n( `* \3 @
CPX #Sound_Ram_Addr_3_Size
5 n; d& y5 c0 E* e+ V4 x" \* W
BNE Sound_Ram_Clear_36 o1 C2 G6 ]$ R- o# _
LDX #$00
7 D% b! k$ `9 C' F; [
Sound_Ram_Clear_4# U9 ^: d; R2 l' \. @
STA Sound_Ram_Addr_4,X
5 h/ X+ k+ n6 z0 i! C
INX! A% Z, x* p' N0 Z, P
CPX #Sound_Ram_Addr_4_Size
' R; u4 E' o, ^3 b& ?7 M
BNE Sound_Ram_Clear_4
; {! n: P/ Q; g: k6 M" e
Sound_Ram_Clear_5
! Y- v) g& |1 Q9 q4 D9 [" {3 b& z
STA Sound_Ram_Addr_5,X) Z8 }9 V4 [! @' g
INX
& [; g" d4 P9 b3 Q; a" x9 D5 z
CPX #Sound_Ram_Addr_5_Size
2 y4 }( b; d" W/ x1 U2 n/ \
BNE Sound_Ram_Clear_51 M- j! w& g6 [$ l9 w& V% Z5 Z& Q
RTS( e! B3 A- r# }8 d/ a' W- H
4 h3 C; h" d* x( y6 ^% u, t5 ]
Get_Music_Collection_Name4 R" E# M# X+ K7 _! [ e) c
PHA
4 Q4 L+ I) Q3 e4 g; h' V' E1 A. p
LDA <Music_Item_Cur9 i2 E6 O Q/ }0 l
ASL A
3 @4 a$ d0 W# U9 d, a/ P
TAY* u/ f4 J( g1 h, b- V: A
LDA Music_Collection_Name,Y& b+ W1 r l. V9 B5 S9 P$ G2 m
STA <Data_L1 E$ O: G1 q, o9 s j( D: U! O( e! @
INY' c0 f2 W2 v' j' t1 h
LDA Music_Collection_Name,Y8 b" a9 W! }: _* I8 S: K
STA <Data_H
. d; O* V! E" q" e
PLA
9 B8 R$ _1 w7 }8 J
RTS- o5 x0 i! [( g7 @# A7 r$ M0 E
$ Q" _' J( G: ~" [
Set_Sound_Total
; e8 {4 I- T8 V$ z6 h4 i
LDY <Music_Item_Cur; k: ^ u1 D6 P9 t( F; j9 N d
LDA Sound_Total_Port,Y' z: u) S! M2 M+ i. M: I9 c
SEC) _& h+ D& n. R3 z
SBC #$01( P! U. o- O! H7 y! ^5 q/ Z( @6 H
STA <Music_Total( P( v* p8 L4 D3 B& v) w$ ^
RTS
) E- e6 G) Z( M8 d
; c& t! w/ a: |, C5 m- j1 f
Get_Sound_Start
- ]. e/ i* D6 e' _& k
LDY <Music_Item_Cur) w* Y1 P. {# P' c/ L0 @
LDA Sound_Start_Port,Y' ~8 I4 E2 s) b' u
RTS* u: T6 F7 H5 l6 F6 z; m2 C. m; V _
% E( V! Q% ] }# I/ l, V( `
Set_Sound_Init_Port
- s, l c" X% i/ |
PHA! }4 L& S* q5 ]( d
LDA #$201 M; |0 |% \; R0 G$ W# y
STA <JSR_Addr_Op0 N/ r. k" b3 t) S
LDA <Music_Item_Cur6 z+ B$ a4 n3 ]
ASL A' Y/ h @# C& L9 w6 l7 _5 j
TAY- |8 `. n @- z5 h+ E
LDA Sound_Init_Port,Y
) W6 y, G0 c6 q* S' B8 f
STA <JSR_Addr_L
* I# z: b& {+ J1 }, w
INY7 S, x A ^6 X3 i" j8 B
LDA Sound_Init_Port,Y
0 p* R# @& w! ?0 X. \
STA <JSR_Addr_H+ h- Z6 R. F" L( |5 g. I
LDA #$60
9 c( a( E5 d$ P# B' G- k. b" F7 b
STA <JSR_Addr_Rts+ ~' Q, A3 l7 U1 ?4 D
PLA
( D" ]( F5 F$ `; q
RTS
% d: R( _1 t1 g% G; z
3 _: q- ?1 _7 c+ z
Set_Sound_Play_Port) t w5 H, v) I- T
PHA
. A# F A6 D6 W" n. [" E
LDA #$20
3 B h5 q+ A4 Z O, a
STA <JSR_Addr_Op# E: [8 m2 y* [# b" I
LDA <Music_Item_Cur
% Y( U' @6 G4 c* ]
ASL A4 ?2 f: T2 c( [4 A
TAY
; W/ U, r/ G! n9 r f
LDA Sound_Play_Port,Y
; B- i( o0 s+ U9 q0 {, V
STA <JSR_Addr_L
8 e5 m0 K1 _8 n% T' @2 Y
INY
. J, k9 A) v) _2 M7 E1 `6 N: @
LDA Sound_Play_Port,Y: Q1 E* r8 Q) d$ o/ Z7 ^- J) Z
STA <JSR_Addr_H
0 f! r( O* V, j7 F$ l
LDA #$60
' p. d2 x; \! w2 E
STA <JSR_Addr_Rts5 W K: }- @# u
PLA
: x& b0 u. R& |/ z9 C7 I1 y# [
RTS1 k! {) G: g5 t* P* k S0 ~
4 t. I- ?/ Q+ H9 w* s% {( G/ V
Set_Sound_Reset_Port
S9 ~- c7 `' K' N: Z
PHA
~4 a3 d0 I! c E* H! f# C
LDA #$209 ]5 f1 }" K4 a- N! W" g3 U
STA <JSR_Addr_Op) o" e0 d# p& _) U6 A: Z
LDA <Music_Item_Cur1 ~/ M0 W9 p$ K1 x
ASL A& h$ |; B& A& s& P4 ^7 h" t0 D9 Q
TAY
) L' [9 ^" B) i
LDA Sound_Reset_Port,Y! a- y+ c, N0 X: ?* T
STA <JSR_Addr_L
4 b: e) T- Y c i& {
INY5 Z% S6 a! Y0 n; S$ x$ h0 o0 I
LDA Sound_Reset_Port,Y
; L/ h B' c; u7 K- r
STA <JSR_Addr_H
" e; l# ?4 q/ L3 g( d4 p
LDA #$60
( I, s; n0 j1 |$ X! N# o E* l6 o" d
STA <JSR_Addr_Rts% _5 P& P; v+ ?. c7 I* g7 F
PLA( {/ m. L" {9 v
RTS
- V! g/ P# M, F; I$ _6 x0 x: \' T
2 O' H3 N$ w. Z
;初始化音乐bank6 `% J) H3 W2 u
Init_Sound_Bank
: q9 D4 i/ g( E# d6 L: d3 S
LDY <Music_Item_Cur+ L9 R. H/ n/ h
LDA Sound_Bank_8000,Y, j- u8 F% {, R& Z) s/ r
STA <Music_Bank_8000
( I* p8 ~" p1 Y2 X% L; L. n, H K
LDY <Music_Item_Cur
$ ?. f! l- O+ T& j2 I- R
LDA Sound_Bank_A000,Y
$ }4 g! X E6 r5 D* [, j( X
STA <Music_Bank_A000
! y" e" i2 S* M& ]
RTS' D- w: T( u2 G9 k' T* X
3 s& E" l% k9 w
;==================================================
# V2 q( U1 A- M
Sound_State_Reset;音乐状态重置
, x( `5 G* V; x& b& n
JSR Music_Bar_ReSet ;重置音乐条
- W( Q- i; p1 _8 z- q6 s' U
JSR Time_ReSet ;重置播放时间$ i/ o/ J* {/ s8 A
* u; k U y9 e3 l0 S& V
LDA #$00$ J$ h& k& [0 ]
STA <Music_Stop_State
( g. j5 Y' G6 I0 X; Z* g
JSR Music_State_Show ;显示播放状态( @; a$ q) u/ b8 F- B. H" Y& [' i
1 U0 B* v, k) G% c! Y+ C* H
.IF Track_Name_Pos) C. ~* W( u& m* M. u* t8 Q; U
JSR Show_Track_Info ;音乐曲目名显示
, J3 q# m o: V
.ENDIF" t3 A2 o5 P8 a& E6 t$ n
' j/ p: g, ^3 b9 _( \6 Q& A
RTS* e! D5 R6 a- G4 [
1 n( w5 n; l* i0 u0 }1 F
;==================================================7 Z5 {7 B! k. |) z
Sound_Init_Proc;音乐初始化处理
2 v( ]* U; L( A" i
PHA
, n. P# J: M" @
JSR Set_Sound_Init_Port ;设置音乐初始化地址& M( q! {/ t0 k8 F0 c! R5 }8 j
LDA #$00# ^( X' ~ {5 {" |
STA <Scroll_H ;重设水平滚动' W' o0 R6 d; h4 f8 v& z* i
LDA #$0F
- @' @/ U6 A8 c2 c9 f' G* Q3 C
STA APU_STATUS7 c% b. I3 [5 L9 \6 d
PLA: w X: J3 u. D$ L0 q+ l$ D: a1 X& Y
JSR Sound_Init ;音乐初始化
* f: k; a$ W# V; L* b
JSR Sound_State_Reset ;重置音乐播放状态9 S8 ~3 m# \2 n3 P R) h+ S6 r
RTS/ e) n8 l4 b+ w! C! w! r5 t& U1 P
. B& l G* v2 {8 h+ s2 @4 M2 H! \
;================================================== K6 V, w d' B
Sound_Play_Proc;音乐播放处理
; p* q( X2 D2 Z l5 N* I2 S. ?/ S
JSR Set_Sound_Play_Port ;设置音乐播放地址
$ K7 y7 O2 I8 s" M* K7 L1 m
JSR Sound_Play ;音乐播放# O; X( D5 q. \; T3 ]1 Q, z/ P
RTS
. Y5 l- C: t! J$ n- y" r3 ?2 o
, i8 m. q/ \+ r @
;==================================================
3 s. B& r f, z) u5 N, Q
Sound_Reset_Proc;音乐重置处理$ p/ g* `& r& X" t1 L5 S& X5 U) U
JSR Set_Sound_Reset_Port ;设置音乐重置地址
2 r: {3 l# { `' Z A% w0 j2 z
LDA <JSR_Addr_L6 u0 S6 o5 `* f+ Q& Z7 I$ i
ORA <JSR_Addr_H
: [( H* q/ }. J. @# Z+ n8 C5 K
BEQ Sound_Reset_Proc_Default) X$ `, Q; E( z$ V
JSR Sound_Reset ;执行音乐重置# f8 f% {, Y! E$ E" P
JMP Sound_Reset_Proc_Init_Sound
1 ~/ i$ H N& B L9 W' U- r \8 a
5 f$ B( K6 Q* Q3 e- O2 S; Z( p
Sound_Reset_Proc_Default ;默认音乐重置处理+ b {$ K8 s: i7 K5 a) d
' b. F8 {2 `1 p
;清理内存很耗费cpu周期, 这里禁用一下NMI中断$ g8 ^6 C$ I0 s6 M+ `0 y) }
LDA #$00/ @! B3 c9 k; C
STA PPU_CTRL
8 ~! p( [. _2 B- V
5 t c$ B3 ^8 U' t7 S! G9 J
JSR Sound_Data_Clear4 Z# ?% r0 [- ^9 R: o- R2 C: k
8 H5 P* F5 K8 T% [
Sound_Reset_Proc_Default_Wait1 q6 h3 }4 Q5 N& H/ ]% z7 ~3 {
LDA PPU_STATUS
& Q. t" X; u' Y5 Y8 R$ u7 V
BPL Sound_Reset_Proc_Default_Wait/ d+ o) G9 e$ t
4 L B) s4 H. \9 Q
LDA #$00; y- s4 g( M, e( B% i U- H
STA PPU_ADDRESS
, \3 X; b1 r3 C5 ^2 }& d% Q4 c
STA PPU_ADDRESS
; U' F# F$ m/ v, Y
STA PPU_SCROLL- ~% \0 b0 T/ b, s7 W' X6 r
STA PPU_SCROLL0 a5 j4 J5 B2 H- v6 D% A, j
, \& ~2 G% r) H n" G
;恢复PPU控制
2 y E; D2 D6 J1 \: B
LDA Screen_Ctrl
5 l8 i( L( D) N; h# v0 O8 s+ o. [
STA PPU_CTRL
$ U1 i1 Q1 K! O, m$ }
1 X) \7 ^, T2 R: C
Sound_Reset_Proc_Init_Sound
" ?' z; _, L. _& X1 s! O
LDA <Music_Stop_State ?# ?( N+ ~+ F, |. o$ k. G7 g
BNE Sound_Reset_Proc_End" k7 i; N# Y5 z: n/ t N
LDX <Music_Item_Cur
# c2 l' w$ e% U5 |6 g
LDA <Music_Cur,X
$ J6 x8 @& S- P" g) B- t# n j9 w
JSR Sound_Init_Proc5 } k3 y0 K9 ? L) ~
Sound_Reset_Proc_End
6 I, y3 h( c( U
RTS ?! o( g5 S) ^$ f
' R9 H/ l; h. l' J9 m
;==================================================. I1 p+ I" T+ e) \0 G/ t3 J
Clear_Item_Text;清除页项目
! R Q* R1 \2 ^
LDX PPU_Cur) Q5 _, ?' W y" G8 c
LDA #PPU_MODE_CNT_CLEAR1 s+ |. x2 F1 |9 ?" c% G& C3 z$ j
STA PPU_Addr,X
- V( t! j$ b6 B1 Z
INX
% p" ]: v" Z* k3 K3 G
5 F$ a, y- ~* R1 `7 L! K* B
LDA <Page_Last+ i/ g! k6 o. }9 Z6 {" X
SEC
1 w( H+ ^! X4 \, G( T2 D
SBC <Page_Last_Index
' N1 m, f& c. _( O; l/ i
ASL A* `6 K. V# @ x" V$ U
; U y9 }1 y4 i
TAY
2 b% q# ^& P( E2 A
LDA Item_Pos_Data,Y
( o& e" I( d% D6 b# B! w8 f) m) t F
PHA+ y r- q/ x& G4 |' g @
INY3 ^% L) e" w# }
LDA Item_Pos_Data,Y) \! X6 m0 w. v) u+ P
STA PPU_Addr,X+ b) X9 Y% {% K+ D* \' w2 _
INX0 K. y: B0 ]( [! H S+ y
PLA: e+ C2 C7 k) P( e: x
STA PPU_Addr,X. ]: _. \7 b( ]
INX" y' A. S' u/ B$ f0 Y8 N
/ r. a! n F3 a# b! j- S& A
LDA <Page_Last! `; d- O9 M) E. X0 g2 s7 n+ c; f
ASL A
" @+ y x: S% ?# T" m
TAY! c9 Z7 f' k& o+ n( Y: n
LDA Music_Collection_Name,Y0 x- D2 n3 J( O& b D1 L! j2 i
STA <Data_L0 U" R" K4 Z2 Q/ L
INY
( K2 j( o4 @: U% |/ X1 N
LDA Music_Collection_Name,Y4 r7 c4 ^2 q2 R8 C0 \
STA <Data_H- a0 q( l8 M* w. l2 @/ j
0 F4 K4 L; c, B! d* m5 W) ]
LDY #$002 a7 j0 N9 f3 F) x; b1 B+ j
LDA [Data_L],Y
) u) V6 u. V* k: I" h
STA PPU_Addr,X
0 m2 S' B, H- [0 b
INX+ f. u6 f, k v( K5 t: i
Clear_Item_Text_End Q i( @' z& G9 K: s5 Y
STX PPU_Cur; ~$ [7 o% w; d$ v% X5 |% ]7 A
RTS
* X6 p/ S/ q/ T1 h
' D' C% P$ }) Q: v
;==================================================
- W* l% M8 x! C* y6 h6 _% a
Show_Item_Text;显示页项目
# h3 Y3 z1 N$ i5 e1 j% w6 q0 T
LDX PPU_Cur
2 {9 |) I, v0 ?$ x- v" W+ I/ `
LDA #PPU_MODE_CNT_LINE
5 X5 s" ^: r9 k" Q' z4 o* A
STA PPU_Addr,X( h: _" |& a" H& C
INX
& n7 n0 |4 i5 {: u8 D, G9 W
LDA Page_Cur
u. ^9 W" w8 Q5 ]- }, L0 S
SEC% K& m: P7 M ?( X, A
SBC <Page_Cur_Index7 p$ L! A- K" ?4 |
ASL A
/ N) j$ H0 T9 s6 {
TAY' a% _! r2 l) ^
LDA Item_Pos_Data,Y
& N/ U% h5 c5 u
PHA
* e. J. T+ {+ I7 z
INY
( P6 g' z6 z$ I( i) x" B
LDA Item_Pos_Data,Y
1 M. b) m0 I. f- v
STA PPU_Addr,X
) q4 [7 o/ M: I' y3 w" z7 [9 r2 G
INX
5 s0 Y3 d+ T" h! ]
PLA
. _7 L. O2 K- m
STA PPU_Addr,X8 L; F% I6 i' K) `" x, b
INX9 o. g0 ?# o s* K/ |, T
" ]+ Q, z! ~& T$ c1 j$ k
LDA Page_Cur
u- }" H/ s! I W& L& w+ U( z
ASL A
! V9 ^+ z" z! l4 R8 l8 E" m$ ?
TAY( m/ @! g& t% T/ i: H9 q' x; Z K6 J
LDA Music_Collection_Name,Y% s: C2 t$ B/ g2 i
STA <Data_L, W" b+ p5 I( E3 z
INY
0 S. M+ r( P+ R
LDA Music_Collection_Name,Y! |0 y& v9 S1 e+ L0 a! d! {
STA <Data_H
. q# t s, |! W4 y% P
- |; {6 Z! i6 U5 ?
LDY #$00: v! ]3 ]2 f7 _
LDA [Data_L],Y
+ ]: K4 t$ F1 `: [
STA PPU_Addr,X$ X* q! z* k: G% B2 M ?1 [$ ]! f
STA Data_Cnt
) v ~% I* b$ g1 c0 `7 K
INX
2 o9 e$ M8 K5 o. e3 d% ]3 ]$ p# F5 w5 Z
% T3 r, ^$ y. a( f2 A1 E! D, ~9 [
INY; w/ h+ a; Y; w+ [" {4 s0 `
Show_Item_Text_Write
7 ]2 _, M5 Q, c( O
LDA [Data_L],Y
& S) B, h- Y9 R5 q2 F" G* y
STA PPU_Addr,X
9 Y" ` B6 h4 ~+ Z
INY
7 Q, k" V' m( |' ]: w5 p& n
INX( @% ]$ p: Q) @6 t# k# g( X
DEC Data_Cnt+ Y* O( Q, g! b T
BNE Show_Item_Text_Write
2 B* V; a9 G/ ]' Z' x4 |
4 ]; _+ C8 `8 Y V+ L- H% z" L4 W! D
Show_Item_Text_End
- Z$ N0 A; _ I$ h
STX PPU_Cur5 E% G( [# T8 A9 w
RTS
6 ^2 S+ D$ A7 z. A7 N+ P, ~: }
$ r# J: e; e+ g2 u6 T
;==================================================
5 [. l) l! T& f+ c7 F
Get_Page_Start_Index;获取当前页号起始与条目数量0 S# K1 _' J0 f" P2 ~
STA <Data_Buf/ @' O) ?) w4 g# [5 B( o
LDA #$00
" n1 ~/ G/ M' l! P) d- @
Get_Page_Index_Calc
* ~0 l' J O( I5 K- J2 b7 m
CLC
- ?( g* q) C/ n+ U( s& A, i
ADC #PAGE_SIZE' e$ C/ o4 Y- Y. r0 ]3 E8 g* k9 q
CMP <Data_Buf' Y/ D) }$ f/ k- B+ u9 T- ?# z
BCC Get_Page_Index_Calc
" B O" Z1 M% ^5 Y0 o# c/ E- [
BEQ Get_Page_Index_Calc_End
/ R+ g& s$ R" a) P: [ J
SEC* B4 f" a9 ^$ a3 H
SBC #PAGE_SIZE" w4 K1 \1 V( N0 }5 u# S- ]& E0 P2 N4 [
Get_Page_Index_Calc_End4 K2 B4 ]! K8 f2 p L
STA <Data_Buf
9 z5 G% o6 X* n: v0 d
Get_Page_Index_Cnt( ^! P, c0 P) z
LDA #PAGE_SIZE! N' d8 o8 Z" I3 f4 _( l
STA Data_Cnt
' x$ g" q: |$ }# Q8 s; R
& ?1 M: j4 s+ Y+ A Y: s
LDA <Data_Buf+ B& x% z5 R( e' Y0 Z) M
CLC
* m+ b- A; d$ J
ADC #PAGE_SIZE4 x' }8 w& u) B7 p
CMP #ITEM_MAX_SIZE
; s& U( x7 \1 U7 f
BCC Get_Page_Index_Cnt_End5 d8 [- B( z( X$ _
# h: w3 f' k6 J
LDA #ITEM_MAX_SIZE% B G) i5 B0 T+ P4 k# v
SEC
( u$ I8 h5 j( ?
SBC <Data_Buf9 M1 b6 S5 n( B# Z" {9 g t9 K+ @# N$ P
STA <Data_Cnt
" o& d/ Y/ z* Z* ?5 ]
/ E$ {& [2 H' F8 ^; g7 T" R
Get_Page_Index_Cnt_End
% a" o; S( N! K. z! I* K, R" |( C
RTS8 @2 Q z$ P+ k4 y) F, [
; `8 |: k. L1 {: {- H
;==================================================
~. T7 C0 h n$ i
Get_Last_Page_Start_Index
, P+ P/ \: o. W7 m' P1 a
LDA <Music_Item_Last
) \- m7 q; R. k4 a5 t$ y
JSR Get_Page_Start_Index( l- F9 W L# N+ G6 O0 k/ z
LDA Data_Buf
' g4 \+ U+ O3 c2 p" j, C
STA Page_Last4 l% M9 g4 p9 M% o R, h
STA Page_Last_Index N/ L4 s2 p3 l$ ~8 v
LDA Data_Cnt0 u0 ?% ?/ ?5 S b
STA Page_Last_Cnt1 T3 q' K, _) b8 D
RTS2 N9 F. ?% u3 u S
# a5 |/ `: t1 ?
;==================================================
* Z4 o1 P+ ]) n$ G" s
Get_Cur_Page_Start_Index
( r9 L3 W5 u& j0 ], s
LDA <Music_Item_Cur( [, K( I7 j/ `6 [' K3 y
JSR Get_Page_Start_Index/ c5 N$ g: r% S# }. K( L" ~
LDA Data_Buf# S2 N/ B/ B5 j" i7 Z! R4 N8 f' N
STA Page_Cur8 w" d% j* c/ v1 M; V- S9 F
STA Page_Cur_Index) p4 s4 ]5 A6 V, z! ~
LDA Data_Cnt
( {5 R# U3 C! Q4 S
STA Page_Cur_Cnt
6 ^4 S! N$ X$ [7 x2 Q3 ?
RTS `: b* B* ^7 _5 r* q/ P
; t0 p+ y; e$ E
;==================================================
: C/ \ |, q {
Show_Page_Text;显示页文本0 U, k% Y5 t* ?7 G- ?3 S' N
LDA <Text_Disable_Flag+ o6 R( E( d, b8 F6 c; j$ @& F
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME | TEXT_DISABLE_ITEM
& m3 g7 R" |, ]
STA <Text_Disable_Flag
) q+ a2 M$ G- t0 `: s
H% d s6 c2 `
JSR Get_Last_Page_Start_Index
5 }5 Y/ Z' w# N/ k. H' n
JSR Get_Cur_Page_Start_Index. W# j2 H% i; M( q: B4 a
6 F- J+ n k6 p7 z" c& p
Show_Page_Text_Set/ J4 q& U$ }. i- C
1 y+ D! ~) c* k3 w+ C
Clear_Page_Last_Item;清理上一页
( u- A) H I3 i# E/ B9 G( G% e& C
LDA Page_Last_Cnt
/ \8 j# |. p1 j8 U- f
BEQ Clear_Page_Last_Item_End
' ]5 y; E& I5 b/ d
JSR Clear_Item_Text6 g8 F" d0 o% q# j1 [; v
INC Page_Last
& z. b# R0 u+ ?$ K" p$ U# l
DEC Page_Last_Cnt+ \7 b* w5 q/ W7 D
Clear_Page_Last_Item_End# s: }' `+ {* @5 E( U2 _) B
, I* ~% P( C- v
Show_Page_Cur_Item;显示当前页
$ O$ p8 c" U: o1 U% L( l' O
LDA Page_Cur_Cnt
. H: B2 C8 ?/ W4 \5 t) z9 y) G
BEQ Show_Page_Cur_Item_End! a' w( } v& y6 L+ @
JSR Show_Item_Text
/ O, C5 M" L& M2 U
INC Page_Cur
! w6 e' N1 ?" U( r' @, y4 R+ E" i
DEC Page_Cur_Cnt% K/ e4 K- X' p/ ^" f
Show_Page_Cur_Item_End
8 e5 b* u# @( |7 }
7 {0 o4 G* F ?; T0 f6 v
INC <Time_Wait_Cnt
3 D' E* c. V9 O0 ^9 v. i
Show_Page_Text_Set_Wait;等待NMI完成PPU操作; b4 S! l/ ^7 a0 X e
LDA <Time_Wait_Cnt
4 v6 i- U4 s# b7 ^
BNE Show_Page_Text_Set_Wait& m2 T5 A! ]3 o8 N
8 a" @7 g) b- S- K6 f: j; x
LDA Page_Last_Cnt& r5 b0 U y$ l, Y' B8 J
ORA Page_Cur_Cnt
( ?0 [! m% f# W: i
BNE Show_Page_Text_Set1 g. K% J, d$ [/ o" p, a( y3 `7 R. I
LDA <Text_Disable_Flag
- m; R" d# V: R: N, A
AND #TEXT_DISABLE_ITEM ^ $FF5 A6 ^# M! h& K0 v' D! e6 ?
STA <Text_Disable_Flag
( Q6 h$ @/ Y+ D; ]
RTS4 z& I4 E& y& g9 u
2 F& `5 k+ e3 _1 F) |- D# v
;==================================================; c9 G A1 s! W0 R& w6 a) t A
Last_Item;上一项
8 K' x9 `# {1 J8 ^
JSR Clear_Last_Track_Name
( U; R6 B+ V6 y. y/ J( W2 c2 c
JSR Disable_Text_Draw
& p# V _! H* B z) G7 l/ ^
0 q4 A' `* s8 U6 B
LDA <Music_Item_Cur
7 V. K$ e+ ?& X; V# U
STA <Music_Item_Last
- u/ G y+ F, ~. X( X7 q
& f- e! i; a; }5 Q; x' I0 X" ^
JSR Get_Last_Page_Start_Index
4 {2 W) D3 e: y. x+ W1 ^
1 g/ [. f/ s% [2 W* T) h
LDA #$00
' S7 d# T5 }+ u2 ~
STA Data_Buf
8 T. F+ y2 L$ r4 S* d$ A* s* Z9 P) N' d
+ W2 a: l" \( D! B7 y8 R% G
LDA <Page_Last0 ]8 E9 R6 N7 ]/ h$ q8 U
CMP <Music_Item_Cur
) ~) \, }+ }3 |/ s: I! U1 G3 D7 U
BNE Last_Item_Begin G. h$ |6 Z" w8 b/ v! M
4 ^% R+ w/ t8 d5 T/ ^
LDA #$01) l- S8 F/ G) e0 T1 |) i4 _+ `3 R
STA Data_Buf7 @4 ]/ w5 v) \: d0 N8 O3 U
Last_Item_Begin4 F& [2 l/ e h* ?# Q7 j
LDA <Music_Item_Cur9 ?" S E1 r# f) n' a# L5 R
BNE Last_Item_Set, ~" B% h* J: W/ p) n$ W- Y
LDA #ITEM_MAX_INDEX + 1* a) D( \# _. ?! c, m- o) E3 O7 i
STA <Music_Item_Cur
- x2 ]; A$ q. ]* F% I7 O0 }
Last_Item_Set, Q u! m C3 `* _# i6 F
DEC <Music_Item_Cur
5 @' s' r* T$ _2 |3 G3 z$ Z3 i" f
LDA <Music_Item_Cur- f3 K7 \. w2 B" f
JSR Reset_Current_Music
3 m. e% f7 V& ^ G2 _
3 i/ B; @( C7 Q/ ^, u
Last_Item_Play" y2 k4 Y9 @+ W
LDA Data_Buf }& _: G( v# O0 q" ~
BEQ Last_Item_End
- h) s9 h% ?6 |; z$ I$ o
JSR Show_Page_Text1 v" X+ d- c/ F( {
Last_Item_End/ d0 Z3 U& `" T2 F% r+ b8 R, P
RTS
* u/ E3 L) N1 X, s
4 G0 \* E d V& r& J/ @
;==================================================
" q( ] T' H x0 d, n" r
Next_Item;下一项
7 p, ~2 q$ i0 G# W
JSR Clear_Last_Track_Name
3 X9 w8 W: `. V
JSR Disable_Text_Draw
% \2 X4 D9 _1 K/ g: ^/ m9 t
! p$ S; ~9 Y. F3 u! o, y; o$ h
LDA <Music_Item_Cur0 Q+ c: b+ P* N
STA <Music_Item_Last
- b' `. R, g1 P+ s3 ], Z
4 F, m A4 o1 q4 J2 |- W4 ?
JSR Get_Last_Page_Start_Index/ }8 q" `2 Z _0 c& @9 _4 g3 X3 j
" |' K$ U1 b: H3 C Y
LDA #$00( }7 J0 \4 H% j1 n$ |0 {
STA Data_Buf6 j6 A* i- A" C
3 p" T9 g; J" \2 u3 S$ O* r
LDA <Page_Last- K/ y1 s" E5 G4 J5 F
CLC
4 ]; P$ u" F! D F' j& G
ADC <Page_Last_Cnt7 q# i5 E4 t4 T$ p
SEC) P# Y! p; f5 [
SBC #$01" q1 h9 Y1 I3 ~
CMP <Music_Item_Cur. M) U, C- h2 O- y& F
BNE Next_Item_Begin U/ m. o- z6 D6 O8 C! k. c
8 E( k5 h6 X8 l9 D0 r; _3 a
LDA #$017 [/ [ g+ |' ]3 L2 `7 W
STA Data_Buf
, E2 X3 d1 ^( c9 t) w, f
Next_Item_Begin7 G! o# c$ _/ l3 P, |1 e
LDA <Music_Item_Cur
8 j8 S; |# w/ t4 d) [1 ?8 c
CMP #ITEM_MAX_INDEX
$ L3 P/ V1 j6 X' s
BCC Next_Item_Set
8 z; v3 g6 v c( x" b3 J
LDA #$FF7 Y4 R6 r" B& t5 @
STA <Music_Item_Cur. h6 p& P/ U( K. W2 s, P* H4 j# M
Next_Item_Set
1 I7 C, C* ^% ]. ], f" ~% l' j7 `
INC <Music_Item_Cur [" w0 K) Q, V1 H
LDA <Music_Item_Cur
4 K# x4 `% P9 ~5 m/ B: }
LDA <Music_Item_Cur; }' Y+ x) d$ l/ Z
JSR Reset_Current_Music7 A1 [/ U. X6 F+ e. A% X+ B
Next_Item_Play
4 f0 w# Y' _, z) z, M, [+ H d2 Y
LDA Data_Buf
* V5 B" i% ?8 J0 X0 s
BEQ Next_Item_End! V0 _2 f- @2 c% S* ?
JSR Show_Page_Text
( n; A* m1 s' v
Next_Item_End
; y: [% k% S' Z
RTS
. Q8 e, l# W3 n2 i) K+ p
5 D4 c0 p; I2 v& F
;==================================================
6 c) H/ n9 ?3 s" G4 W& @
Last_Page;上一页# b" P% U/ `! w1 W0 K
RTS* u2 T: L7 q _7 N, N+ s# p8 d( o
* g# f* @$ t& O) D' F; N
;==================================================7 ^2 R# n! b3 Y3 ]: Y
Next_Page;下一页
. Z( K3 |- u/ {& L2 o
LDA #PAGE_MAX_INDEX( G" c. \& [* [& |# C
CMP #$01
2 g" d+ @* i; h9 P6 l! ~9 D+ E
BEQ Next_Page_End
4 `: J0 i, q E' y5 D4 n5 B
: h2 C# s- c8 t+ N) D+ I7 s
LDA <Music_Item_Cur
3 `- ?& [) \- A; U7 h7 |4 g
STA <Music_Item_Last
( n+ b+ D Q* y$ T! J% _: [0 H
, ~% V, ]. T, |! d# w# T
JSR Get_Last_Page_Start_Index
1 m! Z6 U6 Q- x' B9 U
. m( ]- i* z* n
LDA <Page_Last_Index( N& u, j1 N) L1 n
CMP #PAGE_MAX_INDEX
0 |, ~, L: U+ y
BCS Next_Page_In_End_Page
; z1 j6 l4 Y# m1 a3 t/ K
5 w( l+ B2 w* o0 \- M
Next_Page_Not_End_Page;不是在最后一页
$ h, b1 j# C6 y* l/ L
LDA <Music_Item_Cur
3 [- C$ @( T4 l% f$ V; m& B
CLC
( g4 p& p0 b3 O$ z
ADC #PAGE_SIZE- F- @, R' U! H. |/ `
CMP #ITEM_MAX_SIZE
4 y+ v( I+ |3 w; w. V
BCC Next_Page_Not_End_Page_Less4 r ~1 q4 {2 s0 C4 W
LDA <Music_Item_Cur" v! f3 ]/ @4 U }7 Q! w6 m( ?
SEC7 o+ m9 r( z) l4 v* u) M4 J/ t
SBC <Page_Last_Index B5 ~ C2 d& f' O
CLC
; W' ]) x, O2 ]; T
ADC #PAGE_MAX_INDEX, l- ~( Q8 I$ @4 d5 |3 f. V
CMP #ITEM_MAX_SIZE
+ B$ o9 h2 f: N* e
BCC Next_Page_Not_End_Page_Less' p1 S, H2 q4 b4 N8 Q' M$ C
LDA #ITEM_MAX_INDEX) v) L9 E) Z# }$ P0 T3 O) m
Next_Page_Not_End_Page_Less. H) K" g' K4 M2 m7 w& S. x
STA <Music_Item_Cur
- u+ q& K" J; w3 ]- D9 D
JMP Next_Page_Reset8 P2 z( @% X! I8 v6 [2 W( O% C3 p& K
. t1 a/ [6 g$ D: H
Next_Page_In_End_Page;在最后一页
- w; P* {6 {# c% r
LDA <Music_Item_Cur4 p$ @3 y/ l4 ]" l
SEC
6 w; T- C) O1 d, G
SBC <Page_Last_Index
+ Z/ U5 A+ J7 B
STA <Music_Item_Cur" S# d* |$ R, t8 c8 t
, ]; Z" r; A' ]4 _6 N
Next_Page_Reset
1 l0 o3 ]: N/ }2 `7 b
LDA <Music_Item_Cur
7 L6 }' f, p" t& D1 k8 z
JSR Reset_Current_Music
' z: e2 b8 F# C0 ~
JSR Show_Page_Text+ ^* U3 }1 w& u$ @+ ?
Next_Page_End
. e+ g m( A/ I
RTS
9 w% e8 I3 q$ c# `
5 b0 V q3 }; F# X9 C! f0 q5 E
;==================================================
, e# H& V* D6 H2 }
Disable_Text_Draw;禁用音乐条刷新( Y) U0 M- i- d/ P6 Y
LDA <Text_Disable_Flag9 z4 n9 C( q% s$ z; c' I7 r
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME& U J, V5 x" }5 X
STA <Text_Disable_Flag& q, n/ M$ W1 n6 K A. B
RTS) b0 Z' j, E: P+ k
2 x/ W' x7 k. k* n- d0 D
;==================================================5 e v1 p% F8 K
Clear_Last_Track_Name;清除上次曲目名! l# x _* E5 ^7 v# m
LDX <Music_Item_Cur4 J1 X1 w' X' t: u. K# ?; t( s
LDA <Music_Cur,X
# W" i, q9 h. o' C( C
.IF Track_Name_Pos
' f9 q" f- `5 H0 r
JSR Clear_Track_Info
& y/ C/ \0 E. |- \4 k7 x4 j
.ENDIF
' C7 N+ a; r- Y* l- ^' R0 A4 k/ \
RTS: k8 @9 `; t5 f' S1 U5 R
3 B! R, V8 J; D7 B& T
;==================================================
5 ?+ @, L" b3 w& q2 A+ _6 c( H
Reset_Current_Music;重设当前曲目3 P" l% T! s. @
3 L+ [. }$ c3 W* j2 w7 E0 G0 a [
;写入当前总曲目
" b/ X% W1 z, }; Y0 C7 p! Y& P3 V
JSR Set_Sound_Total) Y% f$ v7 H& k( }/ z" D( S
LDX <Music_Item_Cur* ~* L, h' i( q( z& ~+ o
1 u$ A" m& I( B; a3 {
LDA #$00) b+ L9 c3 }5 s m0 {* B
STA <Music_Last
8 S4 u% d+ y$ u( w5 q7 b+ E
# y. F& m. ] |7 f
JSR Sound_Reset_Proc
9 j! r6 }8 h$ t/ ]2 V4 ?1 z d* T
JSR Music_Show2 p8 t) O/ A4 p/ V4 {+ y1 z9 O
RTS$ X% l8 }7 A+ {8 j- I
/ k1 I" z9 M- w `' A% E
;==================================================
1 E1 a+ l: s2 I2 ^" z* r: h2 {- Z
Music_Song_Stop;音乐停止
: S& R/ u! A; F$ T8 g
LDA #$01
3 e1 O+ C: u" o- q$ t O
STA <Music_Stop_State
! j4 C5 a4 A% f+ t3 c
JSR Music_Bar_ReSet. R' J& Z0 |5 i2 V- t
JSR Time_ReSet
; K. t- q" Y2 G; f+ J
JSR Sound_Data_Clear
! l: [7 k7 G( R2 g$ Y" e( M0 U# B
JSR Music_State_Show
! o# B* J! W% K8 P
RTS
" [7 ]0 x" ?& E: A
& f1 L" Y+ W6 G+ \) m) ]2 a
;==================================================
# Y1 s# o/ R/ W- o, Z' i) }
Music_Song_Play;音乐播放% x* S- N! x' j1 W( O8 |+ V8 F/ v
LDA #$00( i! I K% R8 @6 d2 k6 e
STA <Music_Stop_State( K, j- [4 y$ t' @
LDX <Music_Item_Cur
: C s/ ]" I# b
LDA <Music_Cur,X
8 t4 T2 e* w( y& n, ^% x
JSR Sound_Init_Proc' b, }- h" p6 I
RTS) V7 t4 O# _2 r4 z1 f
7 Y$ z6 q4 F/ |) ~4 @
;==================================================
: s: c6 Y- Q1 O* [, ?/ I+ g$ R' ^$ L
Music_Song_Last_10;上10曲; p' V6 R1 Q8 `* J
JSR Clear_Last_Track_Name6 K' T1 c2 O( q U8 Y
JSR Disable_Text_Draw4 Z$ l) H* Y1 w$ a: a3 I
LDX <Music_Item_Cur+ G8 X9 f( c+ |& ^% D" I8 s
JSR Set_Sound_Total
/ ]1 t2 B4 e4 k
LDA <Music_Cur,X Y5 f1 g) Z6 l/ V: i
SEC
1 a/ ~! m. z# H8 W
SBC #109 [$ J8 O3 t1 W+ O/ B- }* D8 ]
BCS Music_Song_Last_10_Set5 r; {: K* [8 z7 a
LDA #$00
4 g! d5 k% u3 ~2 R$ V* M
Music_Song_Last_10_Set
8 ^( p- q9 z1 u1 @' K. J4 }9 ^
STA <Music_Cur,X* X( p& A+ U& b0 G: g ?1 t
JSR Sound_Reset_Proc
5 x! o0 r4 ^, W5 c" e" {. e
JSR Music_Show: u) v3 h' d: U- ^3 E
Music_Song_Last_10_End9 q/ w' H8 k$ p. B$ v+ s' H
RTS
" ?3 g. k; w7 F0 D
! w, A4 C$ n8 j! v7 v' s: U
;==================================================7 [# [1 E2 o6 i) b+ M/ g
Music_Song_Next_10;下10曲, g* }% ~2 o# K
JSR Clear_Last_Track_Name
& {# a1 i Z5 l- Q& H
JSR Disable_Text_Draw" h; A" q6 `9 Y, O3 z
LDX <Music_Item_Cur
: o( W' A3 f q0 g R
JSR Set_Sound_Total+ s4 q& l P" l* ^" ` ?2 S
LDA <Music_Cur,X8 e5 _* g" H" {3 A1 l
CLC
: S8 r' K8 ]4 H" Z' Y2 x: O
ADC #10
8 m6 \6 ~ a5 {, m+ x
CMP Music_Total. ?& H' L( y! N4 ?
BCC Music_Song_Next_10_Set3 u8 p7 ~8 \$ o5 j4 z
LDA Music_Total
" i0 `; z* Z7 Y( z. n; C0 y
Music_Song_Next_10_Set1 G5 Q O& K; C i+ v
STA <Music_Cur,X0 C% f* _, o3 c0 g/ B0 X
JSR Sound_Reset_Proc2 ]- {2 B$ \9 Y8 ~. G
JSR Music_Show
E7 ]) f8 S; E1 j$ u* i
Music_Song_Next_10_End
- F0 }; A: ]5 H6 Z `5 l6 g7 ?& L
RTS3 I: r/ O' D0 z: I4 |& @3 x' s5 M
; l! |/ T: s* C3 }% f( D
;==================================================" W4 V1 x7 ]% I5 _, b: b
Music_Song_Last;上一曲; c3 L9 d% v$ ]/ \4 n( j: t
JSR Clear_Last_Track_Name! u. m: O) Y9 S D
JSR Disable_Text_Draw
( T; r- z" ]$ Y1 R$ K. L/ A
LDX <Music_Item_Cur/ q, D; Z+ S2 G% U8 X) l; H
JSR Set_Sound_Total$ a5 b5 c* \- P6 t/ y
LDA <Music_Cur,X3 z) x% [- {# Q4 N- Z) y) }7 _" ]' g
BEQ Music_Song_Last_Set8 Q9 c% q! m' o. O
DEC <Music_Cur,X; g& x2 i; ] h/ W
Music_Song_Last_Set; ]' \$ }2 D# n1 ^( ^9 F
JSR Sound_Reset_Proc2 F/ e2 z! z& ]3 T( u, D3 s
JSR Music_Show# X+ h4 T6 y& \9 m
Music_Song_Last_End
, I2 ]. Z# b! A% Y& E$ [# T
RTS
( X3 N1 f# L, V1 Y, E. E
2 G1 Y4 v: D" c2 V
;==================================================
. @$ v J6 s; w- k
Music_Song_Next;下一曲
! d: b* {# m r* M
JSR Clear_Last_Track_Name5 h6 \- u1 X! p1 d: N9 P9 M
JSR Disable_Text_Draw
& j% T( q8 A% ?( t a
LDX <Music_Item_Cur( V1 S' k5 w2 l" z/ z6 i* z# ?' D0 p
JSR Set_Sound_Total5 ^; N% b& ~0 n Y1 R2 p% m7 `
LDA <Music_Cur,X+ m$ Y" v" `% p) z8 C: ~) ^
CMP Music_Total
/ p9 J1 O- A, W/ k+ @- a' G
BCS Music_Song_Next_Set2 @6 i, u- {# C" D3 ~
INC <Music_Cur,X5 P, q4 S' A$ B4 ^+ x1 H- M
Music_Song_Next_Set1 }( E1 ]2 L) `$ v
JSR Sound_Reset_Proc; |3 Y/ s+ F+ V, j7 A
JSR Music_Show
2 K$ t! A* {/ U
Music_Song_Next_End( `: {$ }% d- f0 K" y# K& X n+ z
RTS
% @/ Q6 |4 c# s6 W2 t
$ p' H& y2 A; Y" r
;==================================================$ L$ }# s0 j5 b7 N
Change_Select_Item;改变当前选择项8 O! I2 K, g9 f- |* [
;--------------------------------------------------
- l5 X3 F* x4 F M- Q4 @; G
Change_Select_Stop_Play_Item;停止/播放" h2 b+ I% x2 o& ~' w6 W
LDA <Key_Once
* Z) L% r1 g8 _$ i3 h
CMP #$102 Z6 ]5 g) V0 y5 [
BNE Change_Select_Last_Item
! k! u2 |- U. k; f0 R( S
LDA <Music_Stop_State
8 k$ O' e& U- ~4 y) X0 ^, K
BNE Change_Select_Play% U3 @% F5 _7 O/ b
JSR Music_Song_Stop
8 l9 G6 [8 V. W+ c0 M, v" u
LDA <Music_Stop_State
; {8 j% j* ]2 l$ h! D/ O! V
RTS
1 L7 _% p' q0 N8 ~# }) S
( F: u5 ]* y4 q2 n# s
Change_Select_Play
4 {/ ~) ?( v+ ~4 G2 o. O- V
JSR Music_Song_Play
; V3 i6 b% B: W3 r5 Z
RTS7 h. Q8 ~& |; {
- M% Q; {9 m+ R" R& ~. I
;--------------------------------------------------
% n/ N0 y1 B( h6 D3 h
Change_Select_Last_Item;上一个专辑' a4 z3 {1 F" }) S
LDA <Text_Disable_Flag; b6 G7 o: l/ B0 _5 |
AND #TEXT_DISABLE_ITEM! o) x& q6 N3 t$ c
BNE Change_Select_Item_End
9 \+ D& ^7 Q$ l; d
LDA <Key_Once
: ]' R1 c* q; c; ~3 L# `+ d5 ~
CMP #$080 z: L& N& M6 I
BNE Change_Select_Next_Item
; ~4 {( i. N3 I# N" S$ a
JSR Last_Item" | n! k" N( c( u( G1 l4 v
;--------------------------------------------------6 f4 P1 H3 m5 r* j* W/ R {
Change_Select_Next_Item;下一个专辑: u2 [+ U0 E6 c- ~+ w2 k
LDA <Key_Once
5 q l5 w/ X( y
CMP #$04/ }9 z8 T- }* e% z4 z* e8 w' F- {% g
BNE Change_Select_Last_10
/ |: `. e2 L8 [2 Z7 V5 m" R$ x5 \- B
JSR Next_Item7 R3 m0 `% W5 C5 g6 n
LDA <Music_Item_Cur/ @. Q3 S9 ^0 i9 E
JSR Get_Page_Start_Index
8 g+ N$ _; _: Y" z4 l
;--------------------------------------------------3 ]$ _# N$ I& _# b6 E
Change_Select_Last_10;前10曲
. q7 ?' e3 {! _4 t5 y
LDA <Key_Once! A2 e I/ a/ t; C
CMP #$40
R" ?9 l4 y' E" ~. B, ~
BNE Change_Select_Next_10
. ~7 ?. \+ |! M) Q; s6 R$ D: s" Y
JSR Music_Song_Last_10
& A8 N7 p" c; T0 G
;--------------------------------------------------* R8 R& b: o v; F. b
Change_Select_Next_10;后10曲
( |5 u8 Q( l; w. ~
LDA <Key_Once
6 T2 @8 |) Z6 c9 k
CMP #$80
+ @! k# g' C6 z& b; Z5 _
BNE Change_Select_Last. p2 s1 s9 X- H8 G8 F* i
JSR Music_Song_Next_10
+ B. I% C O V+ J( ~
;--------------------------------------------------
/ L1 ^2 h0 x) @
Change_Select_Last;上一曲
$ A/ A4 ?' q$ F
LDA <Key_Once
9 ^6 z" p( |4 I8 G, _
CMP #$02. Q* |8 D f4 m7 N, Z2 O9 k8 s
BNE Change_Select_Next
* E8 w/ D5 g3 _/ G8 Y
JSR Music_Song_Last7 e" v4 L' c8 D, i
;--------------------------------------------------! r6 v! D M! h2 Z; g
Change_Select_Next;下一曲
, l% [1 s t7 r8 n
LDA <Key_Once
3 ~% t; c# A8 T. J3 }7 W/ I
CMP #$01& K) H, l4 s3 m
BNE Change_Page_Next
4 J# x0 m: U( N. r. q
JSR Music_Song_Next
" m. x. D% b. ~) h+ a+ }
;--------------------------------------------------
# s$ z! b2 ~3 n% \ N% o2 V+ P) f
Change_Page_Next;下一页
8 r' ]1 b3 \$ a q2 @; @+ Y, Z/ ]
LDA <Key_Once5 `0 U( f9 g# r' \ G! h/ H C
CMP #$20! y7 c; v0 y/ E
BNE Change_Select_Item_End7 L& Q1 D$ u" _) y; C" }4 n! y2 ~
JSR Next_Page# H9 Y- \( Z9 Z9 @
;--------------------------------------------------
/ r' ] u# u! [& B5 y$ _
Change_Select_Item_End+ p" @3 J9 }1 Y
RTS
1 a( I# z" \$ f; m N+ M) i
$ K# H4 p) C% }- f
;==================================================0 a7 R' K6 E: t/ A7 d/ k7 r
Show_Arrow;显示箭头光标
2 `8 @8 {. H! u6 F' R) K* w; `
LDA <Music_Item_Cur
3 E* a% K G" W6 V
JSR Get_Page_Start_Index K$ u- w7 P5 U4 [, [
LDA #$00& ?4 ]9 M6 N) {; I$ S2 e
STA PPU_OAM_ADDR" a* c: W4 T O, Z$ t% o
LDA <Music_Item_Cur
$ s) F) x; i5 a& e. m. v& f! @
SEC
( s- T: c2 O+ A _ T
SBC <Data_Buf
8 G" L8 I) n- T) C: ^. m
ASL A& l' t; H W6 P: g3 ~8 w: m: k/ g$ b
ASL A
) w/ \+ f$ }9 k6 W* \; j5 ]* _
ASL A3 |7 ~, t4 [+ L
ASL A
* [. I6 S) z: A% W1 \
CLC- t0 E8 h1 u( ]. B5 ~2 M; U
ADC #ARROW_Y_OFFSET
: o6 `+ `0 k8 a( c5 b
STA OAM_TEMP_ADDR + $00
" g) R6 h" R! V! l) l$ Q$ L( c
;STA PPU_OAM_DATA0 e9 k2 C3 ?* x( y3 O7 T5 K. S
LDA #$1F
+ l: d+ G' A0 f& N
STA OAM_TEMP_ADDR + $01: M* l6 P* x2 [5 p9 Y. d4 C
;STA PPU_OAM_DATA1 Z1 O. C0 f0 r% y3 {: p% W
LDA #$00
# R' C9 Z, D/ O7 X* j
STA OAM_TEMP_ADDR + $02
( e1 V1 D4 S) I. }. C: y% [
;STA PPU_OAM_DATA
7 q4 s. p. R$ @6 V9 x& d6 b9 U$ b, [
LDA #ARROW_X_OFFSET% a$ L$ R" p! @% _" L$ n* R
STA OAM_TEMP_ADDR + $03
1 b F# T. ^' J1 _& E
;STA PPU_OAM_DATA3 } J/ ?8 O, ^7 \; @
RTS! p1 J& m( W& B3 Z
) ~9 h" O' c/ r+ i0 |, X" @
;--------------------------------------------------
- _5 K' w+ n0 V3 S! ? p) r
;命名表数据
" A6 f2 A/ [. u' E3 a0 P7 b1 W
Palette_Attributes; O Z6 d J& h9 p/ M& U
.IF SOUND_BAR_SHOW_ENABLE* _0 B5 B& a) {: m; k% I
.DB $00,$00,$00,$00,$00,$00,$00,$00,$55,$55,$55,$55,$55,$55,$55,$55, s0 W2 d$ z2 X2 y0 D; [6 N
.DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
+ t& Y1 ]& z& v
.DB $55,$F5,$F5,$F5,$F5,$F5,$F5,$55,$55,$FF,$FF,$FF,$FF,$FF,$FF,$75
4 {6 x+ h& p4 M' E2 z
.DB $A5,$A5,$A5,$A5,$A5,$A5,$A5,$A5,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
; }' Z6 l, v8 u8 x" c
.ELSE/ U7 ]9 C7 H9 G8 c. D" I4 k1 A) ^
.DB $00,$00,$00,$00,$00,$00,$00,$00,$55,$55,$55,$55,$55,$55,$55,$55 D" U1 m0 _6 J: h
.DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$557 Z. D; p; |* Z0 @3 S
.DB $55,$F5,$F5,$F5,$F5,$F5,$F5,$55,$55,$FF,$FF,$FF,$FF,$FF,$FF,$75
! k# ]" f* F: V# r$ C% n" C
.DB $A5,$A5,$A5,$A5,$A5,$A5,$A5,$A5,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
5 J* [4 E8 H2 o! k! l. x7 N. D. D
.ENDIF2 ?0 v$ [7 s/ F- {% ?8 E
3 l* Q9 q( l/ k4 p; F9 a% {
;--------------------------------------------------% p7 Q2 R$ N! X6 r+ _/ c7 Q0 @; e: \
;调色板数据) q! Y6 x$ p6 d5 P3 {+ u( C
Palette_Data
% Z0 V8 B" @* x; H7 f
.DB $0F,$27,$20,$0F,$0F,$23,$20,$0F,$0F,$21,$20,$0F,$0F,$24,$20,$0F
. |* J; \ f- D/ h$ n& T" E
.DB $0F,$21,$24,$25,$0F,$24,$20,$0F,$0F,$24,$20,$0F,$0F,$24,$20,$0F/ Y. Q0 S$ _+ m4 r2 U1 D
) R# a+ Z- O4 S! U# b
;--------------------------------------------------+ U, H+ B+ ~4 f, V+ T- [8 Q
Static_Text_Data0 C( _" A! n) G3 L3 b
.WORD Static_Text_Caption_Data6 Y6 r) G9 P- i* c
.WORD Static_Text_Author_Data5 v, |% d2 i f( P2 _+ s
.WORD Static_Text_Date_Data4 ?4 m4 [& \6 c* H
Static_Text_Data_End
7 v/ s% e8 \! d7 s0 V! N
" c+ b! S6 S1 a8 d' i- `
;--------------------------------------------------1 R* P$ s# ?* I. h( o. h6 ^2 w* Z. b
Static_Text_Pos( b2 `, L( Z4 e7 d3 L4 d
.DB HIGH(Caption_Text_Pos),LOW(Caption_Text_Pos)
8 O/ ~8 m; ]7 U
.DB HIGH(Author_Text_Pos),LOW(Author_Text_Pos)6 J& k! U4 |# X
.DB HIGH(Date_Text_Pos),LOW(Date_Text_Pos)# G# R& n4 m! C4 d
Static_Text_Pos_End2 n9 r" \/ V6 w5 I/ M
! f' {( l! H% M: y3 ~6 G" m
;--------------------------------------------------
2 u6 D- c- N/ b9 `" d
Music_State_Stop4 B, V$ s0 ?: z/ x0 I$ d- X
.IF SOUND_BAR_SHOW_ENABLE
, N3 ^0 Q8 |& B9 n E; c4 B
.DB PPU_MODE_CNT_LINE,HIGH(Play_State_Pos),LOW(Play_State_Pos),$07,"STOPPED",$00
: \8 {6 D+ D: M9 F9 B; b# h3 R
ELSE
& Q4 [9 W; s$ a7 i2 U0 C3 M
.DB PPU_MODE_CNT_LINE,HIGH(Play_State_Pos),LOW(Play_State_Pos),$07,"STOPPED",$008 @" I" w. T7 J7 O9 \
.ENDIF
; Z* z. ^4 V' b6 \8 E1 I+ _3 G
Music_State_Play, m8 y9 c- }8 ]/ V, z# i# c
.DB PPU_MODE_CNT_LINE,HIGH(Play_State_Pos),LOW(Play_State_Pos),$07,"PLAYING",$00
. W7 h$ b W+ W3 S T l! v+ @
+ u0 x1 O; g& s9 s* k2 N7 W
;--------------------------------------------------: ?# o( |! Z8 X) F
Sound_Bar_Text_Data;声音类型文本8 ~2 s! [( c1 ?/ [
.DB PPU_MODE_CNT_LINE,HIGH(Sound_Track_Pos),LOW(Sound_Track_Pos),$04,"SQ1-") n6 ` D+ y/ D" s: q6 i
.DB PPU_MODE_CNT_LINE_NEXT,$04,"SQ2-"
) |% ^# t# F0 R
.DB PPU_MODE_CNT_LINE_NEXT,$04,"TRI-"5 W* ]" w8 S% O6 M8 t* k6 t5 U
.DB PPU_MODE_CNT_LINE_NEXT,$04,"NOI-"
6 C& @: g8 S+ A7 ]' U# G, K
.DB PPU_MODE_CNT_LINE_NEXT,$04,"DMC-",$00
: `2 \) {( `* ?
- a* f( r1 X' l) _( I
.IF Track_Name_Pos; N: y1 m5 L! d( r
; H+ I, h* f. G- o
;--------------------------------------------------
5 |$ \# E& A; k
Track_Name_Addr_00;曲目名地址索引
$ `7 T1 T6 K( T7 Z7 c, b
.WORD Trackr_00_019 m2 s1 o( f3 B
: y% L9 B* A2 `% R8 \; ]3 v0 Q7 G* l
Trackr_00_01 .DB 15,"RAF WORLD BGM 1"( V/ M) Y W1 q- H
Trackr_00_02 .DB 15,"RAF WORLD BGM 2"
; U; F$ H- h% x. B/ [ q. Y
/ ]' W- l3 e; k. a
;--------------------------------------------------) U5 {* J0 q! m
Track_Name_Addr_01;曲目名地址索引' @0 E% u/ t9 j0 X8 H9 m8 I' R( r, R
.WORD Trackr_01_01
$ @1 s- v! D* K& |/ J
3 @$ _0 p( u" a5 Q% `) [2 z, V( ~
;==================================================7 A- E) e& X1 v- M2 u# ~
Trackr_01_01 .DB 19,"FINAL MISSION BGM 1"
' i- k$ v; r; a A; X+ i3 z# N( x- t
Trackr_01_02 .DB 19,"FINAL MISSION BGM 2"
2 g( S. b2 m: h/ N" W1 ?" Z
8 }7 I' G8 W% \7 F: A
;==================================================1 q. J. p/ k% ^% G2 Y% a
Track_Name_Addr_Port ;曲目名地址间接索引7 [5 t F# Z' ?( @% ?
.WORD Track_Name_Addr_004 M4 {' T" ?+ Z+ E9 c; w
.WORD Track_Name_Addr_01
5 r# T: P U' a
.WORD Track_Name_Addr_01$ |7 a$ V1 r8 Z. S* P1 U
0 k0 D4 Z; C b7 k) C! |
.ENDIF0 Q: s! ^" v. z }/ `8 I
6 V( v# Q8 V4 h6 h. z5 u3 ? o
;--------------------------------------------------
- \& @# E; k. O* D3 Q
Static_Text_Caption_Data;静态文本数据
6 ]9 r( ?! l, v% }; o/ D R# D
.DB 16# d6 e, Y, M2 T1 n# R
.DB "FC MUSIC 12 IN 1"
: |8 [- w% K$ [' a! r% [
Static_Text_Author_Data. ~, ~# y, o1 {- o" x
.DB 25
5 f* Q8 h' D8 x% `$ U$ E7 Z
.DB "EXTRACTED BY FLAMECYCLONE"6 n/ @4 s5 `# U# N
Static_Text_Date_Data
; Y+ W6 D& m2 Q4 [& O
.DB 10% y2 y* V1 B/ V) r
.DB "2023.07.23"! j q U$ c; q3 B
& A8 `1 o" [& y' S, f
;==================================================/ m+ ^+ O( G9 @
Music_Collection_Name ;专辑名间接索引
8 M) G9 s0 h5 `' u( G6 A/ e+ ^
.DW Music_Collection_Name_00* g1 X: u6 C# n3 q9 P5 P
.DW Music_Collection_Name_01
* E# j: q" D( |
.DW Music_Collection_Name_02
3 \. I3 w+ u: n2 L' B& h3 {; E5 B
.DW Music_Collection_Name_03
8 d+ @0 A m$ s$ Z2 x" m. |
.DW Music_Collection_Name_04- e$ d" T' @8 e& X- T' t
.DW Music_Collection_Name_05
+ N) P' h1 p0 Q' T: i, b' s
.DW Music_Collection_Name_06
d. a9 H% G. _& [
.DW Music_Collection_Name_076 v, g9 K9 C, S$ _( {
.DW Music_Collection_Name_08' A" i7 x7 v0 \* a+ Z
.DW Music_Collection_Name_09
5 U5 x# A( v) d: U) j
.DW Music_Collection_Name_10; M# A' E# n& x! _6 Z. p
.DW Music_Collection_Name_11
' N3 s: o( `- B
2 `8 `+ I5 _5 X4 b! l
;==================================================# F, l" b& F! T* o" X9 y
Music_Collection_Name_00 ;专辑名文本数据 R# ]; u4 D7 ] n, q
.DB 11,"1.RAF WORLD"
% ?9 w! b9 g7 H; u0 z9 q
Music_Collection_Name_01* S* h4 x" V6 P1 ^: z
.DB 15,"2.FINAL MISSION"
+ N9 A: [1 G: F9 ?% l
Music_Collection_Name_02
; V7 Y a, g: w7 g
.DB 06,"3.KAGE"
" G1 D+ u: R! l4 J, k8 ]
Music_Collection_Name_03
+ O% J+ n* R8 C2 M
.DB 16,"4.DOUBLE DRAGON"
" F4 D: \1 J8 R
Music_Collection_Name_04 U) z7 X& v# J5 g
.DB 17,"5.DOUBLE DRAGON 2"9 b/ p7 r% b8 O. h1 W5 {( \
Music_Collection_Name_05' Q6 u) w' d9 k; @* O7 A
.DB 17,"6.DOUBLE DRAGON 3"* k# f& n6 U) x8 W! U
Music_Collection_Name_06' Y$ z; d3 Y4 I
.DB 09,"7.ROCKMAN"/ p0 M2 ]8 W: D' [ {
Music_Collection_Name_07
& w! L( Y2 e3 E- Y# j' E3 W
.DB 12,"8.ROCKMAN 2"8 B1 m: T# X; P3 c
Music_Collection_Name_08: e2 @. }6 h5 z/ R) x! u& D3 e
.DB 12,"9.ROCKMAN 3"
4 |* d# Y% ~/ K
Music_Collection_Name_09
% F# @( ?- {+ i' N' U/ m' Q
.DB 12,"10.ROCKMAN 4"
8 P( j! C& e6 y( e
Music_Collection_Name_10+ o8 \0 {% M6 A+ Q/ E3 ~! V$ A
.DB 12,"11.ROCKMAN 5"9 r0 D/ W4 G4 c2 N$ @( u
Music_Collection_Name_113 a% o/ v% ?( n3 l7 n
.DB 12,"12.ROCKMAN 6"7 m( V# ~$ A/ O' f* t9 }2 S
: n5 B0 X7 F8 N6 D
;==================================================6 m- l' ?' j( m+ o
Track_Name_Addr_Flag ;显示曲目名标记- P4 g3 `5 X; d) I/ b) Z
.DB 0,0,0,0,0,0,0,0,0,0,0,0
# x7 C+ k0 u- I9 u% j: g
+ x- E' @* D7 G
;==================================================, e# Q+ J/ a# z. k
Item_Pos_Data ;光标箭头位置, c4 d- B' z" I
.WORD ITEM_SHOW_POS
$ g; m! H. q1 _- L# |" G
.WORD ITEM_SHOW_POS + $0040
' P* e4 E/ q9 \) G& o5 r5 c9 F# r
.WORD ITEM_SHOW_POS + $0080
- t* I( O3 L4 \6 p
.WORD ITEM_SHOW_POS + $00C0
( C* C1 }' G% _4 V5 w
.WORD ITEM_SHOW_POS + $0100
5 w9 g5 _- M8 M1 H
.WORD ITEM_SHOW_POS + $0140
0 W6 {, b* X6 h- j8 l, V* X
" D+ z M; e1 y2 c& ]% f+ I/ S
;================================================== O: I7 H$ M6 A0 O0 u% u
Sound_Init_Port ;音乐初始化入口地址
7 D) G, S8 Z6 Y3 x1 G7 O* |3 e# t
.DW $BFC8
N' f" G$ q. p2 ?. W
.DW $D7F0! W3 O' V1 M7 L. k- J
.DW $9FC0) O; n0 {; @; W' d4 @
.DW $BF702 g% h* y4 w! I# `8 a6 a
.DW $80032 M. L# u* {; R8 X% ~0 P/ h, g
.DW $BF30
' f! A |3 p7 `
.DW $9003: {# X4 r7 ~: t' e! v) p
.DW $8003
8 F4 }( h8 Y6 t) o
.DW $8003
% `: u8 _( x, M
.DW $8003
, s! x6 _# @, }4 g+ P
.DW $8003
5 }; e2 f. w, K4 k
.DW $8003
) z8 {' B) w# ^) y1 p
4 g& D- }5 E0 d1 T
;==================================================7 @ f) T$ `# Z! _
Sound_Play_Port ;音乐播放入口地址
. h( B3 T( Z/ I
.DW $8000
) B! m$ \! S- O- ?) C$ ^0 X
.DW $8001. [, j5 v v* c3 j; I q
.DW $A000
" ~0 M* p/ f% N
.DW $80031 t3 b, I& k5 I: l o' w5 T) b
.DW $8000& ~! H# `) \0 e# o
.DW $8003
% \% n I+ \1 v( S& B
.DW $9000
& v1 Y8 p" s; N' k& i& {9 C
.DW $80009 x* r e$ U+ r* i
.DW $80008 T. T4 W0 ?; d
.DW $8000
$ y+ m0 e! `+ |/ u; x
.DW $8000( i/ y/ F+ M# e7 ^5 R4 \; |
.DW $8000
1 X9 T1 S, _- p0 G! Y* X" Y
- K! l3 n1 R; J+ x0 c9 E
;==================================================8 M( n) C3 V! `& U! _8 i+ A3 }
Sound_Reset_Port ;音乐重置入口地址
' _9 J9 c; S( i4 m- F- o/ {, V
.DW $0000/ A" U J1 A8 u
.DW $0000
4 k/ G' ?+ a" k) _! w
.DW $0000, l1 Z- Z7 _! k! Y; v
.DW $0000
/ ` O6 t" E- K
.DW $0000
s: @2 k& ?8 I/ V, Q
.DW $0000
9 R5 t) d. \5 r/ x. I% _. j; C! D* r
.DW $0000
[: Z- K- e/ ]4 \& v
.DW $0000
' s: A9 w& ] k- K; f
.DW $00003 \7 `) ^1 v9 D; h
.DW $0000
3 M% }4 O# ~4 ?* \
.DW $0000
1 o( y; B7 }! s! U
.DW $00001 C/ {# Z! V; }7 b' a6 A
6 o: ~9 U) F) t0 m: a
;==================================================* S4 q9 ^) D7 s- F
Sound_Total_Port ;曲目总数
6 `/ \0 D7 Q/ r: O
.DB 38" `, {- R' C M
.DB 33
, w- S. ]. S2 \
.DB 49
6 T, h1 ?2 q4 P6 P! s8 Z+ t
.DB 41
3 w1 o) s: n( j! L4 Z" [
.DB 838 }9 v0 j. ]! c6 a2 x" Y
.DB 709 A9 s2 e. m5 E# h2 I3 b! V- |
.DB 504 [8 k( X5 {, l; V9 P/ [; ]
.DB 67
! D% w( X: c n2 ~/ j/ I
.DB 57 C# W0 O6 J9 }2 a& u
.DB 71
9 b: z: \* R" d6 d# d
.DB 76
& m8 ^( p: }" L2 W
.DB 102
1 H; ]. Y; g8 \3 E; a B- R# ?
- k( O! m$ @: u5 M
;==================================================9 T) d7 }( Y* e$ ?/ R7 A3 t
Sound_Start_Port ;起始播放曲目
3 m- N. x- J, S* ~" J. K3 i( h S
.DB 00
$ v- W1 T/ l; C+ S$ l% Z
.DB 00
0 O$ ~# g( ~2 I* o. R
.DB 00+ `7 p% A& M4 G7 J) _* c( T
.DB 00+ t. a* P$ i9 _5 k" W7 ~
.DB 00
1 B- ]+ N8 g7 t* U6 Q
.DB 00: [* z! t- F X7 Z- l$ _2 g
.DB 00
9 o0 t9 m, c1 Y
.DB 00$ [0 R; z1 d) Y. X% u% F
.DB 00; n3 i" f9 k, v3 q
.DB 00
( n, a K! ]6 I/ d% _) _* ]9 r# u
.DB 00
' @/ D8 S. Q; k" P/ d1 K2 A, t( I
.DB 00
+ g6 h4 s( {" ]
% J$ I! {2 e4 ]. Z
;==================================================
1 U( g n/ F3 }) v; _
Sound_Bank_8000 ;专辑bank_8000: |. a; S9 _$ b+ I4 n
.DB $10
# ^% ~% l9 r% N8 y! H' j
.DB $126 J8 u% [- W5 ]
.DB $142 J6 }+ d. R" l1 R5 E3 v
.DB $16
5 D5 {. L. F# Z+ v
.DB $18
& @% C$ {7 d! p8 b, ^+ h5 [
.DB $1A1 y0 G4 d0 K6 S0 j ]- b
( `, b! W! F; D5 x
.DB $00
" Z1 F& q% l, v7 ^2 E
.DB $02
" y' M7 ~6 N" Y' N( E/ X
.DB $0D9 v0 ?9 ?& ~5 x- |
.DB $04% a8 ?/ w: E8 U1 Z6 t
.DB $07
! t" c9 V* ~, o( q! H
.DB $0A
' n2 Y+ k( u; }% O- d; {
; {+ k$ G, d4 @" C3 j3 P
- f9 s0 z9 j, q) J
;==================================================
6 n0 P& v3 j! z7 k7 }8 Z2 ]0 s
Sound_Bank_A000 ;专辑bank_A000- i( o/ j% |1 Y( t* f$ |
.DB $11, O6 f! j U- u# `* }
.DB $13. ^8 G" C3 X2 W$ G! H
.DB $159 y. X6 D9 P* z; V' a0 n7 ]
.DB $17
' n- M' o) m+ }
.DB $19
2 C) h4 o; `6 j5 g& C* K) M z
.DB $1B1 Z) ~4 C* i# H' U/ o
9 X2 r% B# Z5 I, q: e
.DB $01
3 x" s" d) g% J
.DB $03
) h' W9 E0 r- O, F3 J+ p
.DB $0E
" \ [# o) o; S T9 D/ B
.DB $05
: N+ o# S7 O7 u3 r/ w+ j) s
.DB $08
& y- E: V' H# G* v9 v* p: x
.DB $0B
$ v/ a% G( e+ I$ O: K- y. Z$ k
2 }% J$ h- L) Q% k
2 b' _* ~. {- r N$ v
;==================================================
! Y4 Q! y+ {4 N
.BANK RESET_BANK & BANK_DATA_MASK
) E; e- k( q. T5 A. C
.ORG RESET_ADDR3 P7 B5 ]) }6 ]; y6 B3 L% G
. S1 D; C8 R/ r! L- T9 |! ^! a
;==================================================/ v/ S, I' g6 F9 W) n! i9 i& P
Switch_Bank_8000;切换bank到8000-9FFF
( f/ U% m5 a X) p) M- ^
PHA
) j, M% o- B7 e. d
LDA #$06
+ ^& G- H4 R. ?8 G/ [7 O2 O
STA MMC3_BANK_CTRL
" l, o) y; Q8 J9 K2 g9 c0 ^) D3 a
PLA
* y; n6 h+ l# I! r: z% w1 g
STA MMC3_BANK_DATA
6 s7 z2 E O6 H; u; B
RTS
6 n8 `+ S" O; {& {9 ^4 s3 q( B
' R1 ^( l( T9 b
;==================================================+ u8 `; F1 \( p- ^2 I( [
Switch_Bank_A000;切换bank到A000-BFFF% U! N8 f3 E, l7 w, L1 q+ K, t1 m
PHA& [5 B4 E, p E7 A/ W% [
LDA #$07/ `- n# k, a: h, i. L3 D' d
STA MMC3_BANK_CTRL+ U: S) o& b8 j0 U1 k
PLA. H! D+ W2 M8 g8 K' U5 o
STA MMC3_BANK_DATA
$ i8 i4 ?8 S8 B* [, ?8 d2 l
RTS X7 L( I4 o5 T( k6 k) F
, i2 ?5 j( s2 d- J$ [
;==================================================5 l/ z; v. d& U+ w& t8 O1 Q& M
Switch_Main_Bank;切到主程序bank7 k% W& t8 Z1 n" F$ t4 {
LDA #PROGRAM_BANK & BANK_DATA_MASK( ~6 x Y, D2 j$ u% c c! R
JSR Switch_Bank_8000 ;设置$8000地址bank
$ ]0 x( g4 I+ ]+ Q: t7 B* V
RTS
9 @1 }' q, {0 u6 v6 ?
: @9 x1 Z& ?) c1 i
;================================================== W j3 q" g- b& e' g
Sound_Reset;音乐重设(如果有的话)! e8 U' K+ V- Q" u; k
JSR Switch_Music_Bank ;切换到音乐bank
" X1 ~- O, t+ R9 ^% H; f* q5 I
JSR JSR_Addr_Op ;执行音乐重置
* p: K' e2 o& ^
JSR Switch_Main_Bank ;切回主程序
( r( g9 J. L! e8 b+ V% n7 O
RTS
5 Y& m0 d; N% z3 d7 Y9 w( E
3 {0 T$ S- I a! ^& E. @
;==================================================
- I' W, D; P+ I1 w' C! Z
Switch_Music_Bank;切换音乐bank( L$ [' ~* h1 I% C/ Q& [
JSR Init_Sound_Bank ;拿到音乐bank号
, ]& F) u x1 h4 G) E
LDA <Music_Bank_8000' ~" G. D8 c% ]/ u
JSR Switch_Bank_8000 ;设置$8000地址bank) K+ W9 Q4 M+ X9 v0 H
LDA <Music_Bank_A000
% \$ ^% }$ V# l8 h0 s
JSR Switch_Bank_A000 ;设置$A000地址bank7 j4 x/ l; ?/ o' C0 O
RTS
0 s2 P2 \; z; k# k9 y0 C1 }! t
# d, ^; E* @& o) _8 O
;==================================================
: z# V6 G; B1 @0 J5 F6 e* p
Sound_Init;音乐初始化
( l( C" I7 J* x. x C
PHA
/ D) u3 n1 S# k
JSR Switch_Music_Bank ;切换到音乐bank4 E' v& U" `6 \
PLA
% `6 v k2 C8 v' M3 D$ ~" y
JSR JSR_Addr_Op ;执行音乐初始化
7 Q8 |" N1 X- ~0 p
JSR Switch_Main_Bank ;切回主程序
( X- p/ ?' L9 p. Z: H) |) q
RTS
* j7 B2 ?9 `; V- a+ l7 w: x
/ D+ y5 a. v {, [
;==================================================4 @ y! k, T( @/ I9 Z+ T
Sound_Play;音乐播放( c% z& y8 ~6 {
JSR Switch_Music_Bank ;切换到音乐bank
# _8 \/ ~6 G3 L4 K' }$ c' I4 g6 W
JSR JSR_Addr_Op ;执行音乐播放/ Z0 h% v, p* Q. i
JSR Switch_Main_Bank ;切回主程序
" K4 u* j9 x3 x- _3 |6 {5 x- Y
RTS5 W/ K% O3 y) c, ^* a& |, P! T2 ~2 e
. H/ M, A- {+ U
;==================================================; l, y; v( t, r8 m0 d
MainLoop;死循环$ Z: T: \% I; `# r
JMP MainLoop& Q T) I0 i& x9 J# y
% g' Y7 L2 C* A; d& W/ V
IRQ_SUBPROCESS_JMP = 09 ^" f% c- k. \( f3 h5 t! `6 O
1 u. x6 c4 s8 e, k4 m* V7 m
.IF IRQ_SUBPROCESS_JMP
% U& d& {0 F! }' S( x/ R# O+ s
;==================================================0 T1 C. J0 Z% F2 y) Z
IRQ_Process_0;IRQ处理过程0
$ j: r3 _% H0 |* I1 ~- M
' p" J0 Q7 z1 D4 G; M. R: V9 J
;15条扫描线后触发IRQ
( {" f/ X/ |+ Z
LDA #15
4 n, f1 a: J2 {" n; v
STA MMC3_IRQ_LATCH
# c! f' J3 J$ m& Q# N+ m7 m
4 q$ w- |" D4 i
;设置屏幕滚动
" }* E8 C$ g$ t% j9 {
LDA <Scroll_H# n _) V6 S5 B/ q. m! x5 N& r
STA PPU_SCROLL0 J. O+ D5 D4 S, \
STA PPU_SCROLL
% d: D0 P: D/ B. k; H5 j! l4 w" H
# G( @" { o- q* Y& |# x$ [2 u
IRQ_Process_0_End( s0 b2 w+ Y! `. Y6 O& O
INC <IRQ_Process_Index
" [. l: ~3 ~# ~2 H
JMP IrqProgramEnd0 [/ O( O9 l8 D
/ V) ]5 z* b" E- K0 k
;==================================================
$ v' S$ J0 u$ B- N
IRQ_Process_1;IRQ处理过程1) l8 e$ k; C' K9 _- K" c. X
7 A4 _0 W7 g' @' c" f! Z. A" S
LDA #55
7 m" {4 ]9 n3 q
STA MMC3_IRQ_LATCH: ]2 ~: g' {& z& B
- g F" D1 u9 U) V5 R7 X: L9 e
;设置屏幕滚动
' [9 p/ Q! [+ ]- B& T5 R: e9 ?3 `
LDA #$00
+ W* Q5 X- B1 K
STA PPU_SCROLL; U: t- g3 c6 j: h0 t
STA PPU_SCROLL* X7 s9 C5 ?4 o/ a
/ b% } } F! ?' t) n
INC <IRQ_Process_Index
* B* {+ }! C E4 S& v5 v
JMP IrqProgramEnd
: v8 |+ }6 G# X8 J5 z* f
( e" C; [2 Q2 J4 {/ V* K$ F" S. m
;==================================================! D. c* ^ h% _
IRQ_Process_2;IRQ处理过程2
+ s, s; ?6 S( T& O% x2 x# S
$ x& @5 f; C! L2 X% \/ i
LDA #15+ L! m& D4 L6 }: z
STA MMC3_IRQ_LATCH( f/ u% u9 _5 {2 P; X
* M% H2 W1 S3 M' I
;设置屏幕滚动
+ M7 }" B% P! ]7 ^2 P k
LDA #$00* T: v/ r* m% O( \$ ?6 g
SEC
! l0 X4 i6 W! y( R0 \8 W
SBC <Scroll_H% D% R$ i# d2 n( L- a+ E
STA PPU_SCROLL
^; Y, T! c) y9 J+ k+ w
STA PPU_SCROLL
" ^& o, t6 `8 U- {- V
7 p7 h+ E) C Q( R0 p" e0 s+ z
INC <IRQ_Process_Index
* j- G( s7 s- j8 W2 @' F
JMP IrqProgramEnd
( n0 R& R5 y7 U. V, k
p* p4 ^7 K9 {% s
;==================================================# k! y6 H6 o& O6 _# ]
IRQ_Process_3;IRQ处理过程3
% X1 G: a) x2 K8 C4 r f5 l& _
, @0 j. n6 S0 B4 v
;设置屏幕滚动5 B/ R" e( h2 X* Z' f t1 v' C
LDA <Scroll_H, s7 L! B1 |- T& H6 u/ o, o( ]
STA PPU_SCROLL
3 e( T3 @; I6 R% h# a
STA PPU_SCROLL5 R/ M6 t- E) B, u' h1 Q8 U! }) G! u
- v( b1 z+ T+ n; W3 a+ C; Y# H
;禁用IRQ
$ j1 a' o9 D3 s# M, V
STA MMC3_IRQ_DISABLE
JMP IrqProgramEnd# x- Q3 r+ D; q8 M6 G+ _
4 D! {3 [ p6 s- P$ s' R
IrqProcessAddr* b" u( [8 H, p% B" R- g% A# O) Q3 \
.DW IRQ_Process_0,IRQ_Process_1,IRQ_Process_2,IRQ_Process_3
4 ]/ w. H0 Z2 ~9 n! D
9 y4 W5 E& R; W- \1 D
.ENDIF
* B( G3 X+ a1 f5 S$ z
( c' z& ^ j( [2 _
;==================================================# \& `2 l1 I; f% Z% o; N) p
;IRQ滚动模式常量
6 v6 ]: U; j- B/ _* `, ^, t' t4 j3 J
IRQ_SCROLL_MODE_ZERO = 0 ;不滚动& l0 R3 _ a" E! n7 l
IRQ_SCROLL_MODE_LEFT = 1 ;向左滚动
2 A( B/ w5 { n# x& a9 R" n: M. X
IRQ_SCROLL_MODE_RIGHT = 2 ;向右滚动0 x) w8 Q; [, m* k
# ]: f4 }# P* K8 \! B7 y
;IRQ扫描线数据
- D2 o. \9 }5 X& X9 h+ q" D, d
IRQ_Scanline_Data
$ X9 u; |) }. W: ]# R
.DB 86 C+ ~3 M4 Y' i9 [1 U
.DB 54
! D2 Y) y) D+ [4 O @
.DB 8
% _) U; d H& }* x2 T" |, A4 s, Y" T
.DB 00 ;关闭IRQ
~3 h6 i+ M+ c# X$ \2 B T& N
9 P/ ~0 {6 e; N
;IRQ滚动控制模式
& U7 |' m+ r2 n; L3 |$ H; T
IRQ_Scanline_Mode( D( f6 l1 }9 M# {* G" \
.DB IRQ_SCROLL_MODE_ZERO
5 h: @/ k+ j: Z9 {* g- d
.DB IRQ_SCROLL_MODE_ZERO
( g9 H* h+ F8 ]: e
.DB IRQ_SCROLL_MODE_RIGHT
6 I$ K0 ?3 x! I# S
.DB IRQ_SCROLL_MODE_LEFT
; Z, n; }) A& K
# e# d# P7 j" ~. W' {7 X0 P4 D9 o
;==================================================/ i: k+ \" k7 I. z" S% u( g+ n3 I
;IRQ处理; c0 ]7 [6 ^: E( D' [, g, c# R
IRQ_Process
; {- e. W1 r; L$ @ j s
LDX <IRQ_Process_Index. m2 d* w" o* z, O" L
LDA IRQ_Scanline_Data,X6 y( k7 V7 E$ T- G$ ]* }7 {( R
BNE IRQ_Process_Latch; Z2 x; K# C# T; W- e! V) [
IRQ_Process_Disable;禁用IRQ& m W: E3 k/ F* y" Z
STA MMC3_IRQ_DISABLE7 j4 i: g/ \1 ^: Q6 q) \. @9 v- r
STA IRQ_Process_Index
0 w4 G6 Z' Z8 Z# L5 r: R( l
BEQ IRQ_Process_Scroll
! J; w. ~2 u+ [: R% u4 Y' J
IRQ_Process_Latch;设置下次 IRQ 触发扫描线% _( _) W$ T( I0 y
STA MMC3_IRQ_LATCH7 i1 y3 p% ` u: M$ e4 I3 x
INC <IRQ_Process_Index: _5 `: p- A6 n8 ]. o( L! C
IRQ_Process_Scroll;IRQ滚动控制: y d6 b7 a: Y9 g# A; |$ `3 X" g, F1 f
LDA IRQ_Scanline_Mode,X
% \* V. W# ^( U1 r% ^# G
CMP #IRQ_SCROLL_MODE_LEFT
0 W! z& _5 \2 W4 ?4 b
BEQ IRQ_Process_Scroll_Left" y% _+ W( E$ m$ o! I2 |
CMP #IRQ_SCROLL_MODE_RIGHT
) c0 V! U3 g9 _7 V" k
BEQ IRQ_Process_Scroll_Right& h* C: M2 k3 @4 c9 h+ z
IRQ_Process_Scroll_Zero;不滚动
5 {8 E0 R" Y# c" G# o
LDA #$00
STA PPU_SCROLL
* G0 o" B2 ?+ e F& T
STA PPU_SCROLL
( |( `+ m# G- Z: R
RTS
: e2 `0 R& B! Z' ]% G0 I' {
IRQ_Process_Scroll_Left;向左滚动
3 f$ ~9 m6 B& t& D
LDA <Scroll_H- Z0 r6 }* F: a% J- u, R
STA PPU_SCROLL. k1 W/ R7 R4 `# R: V
STA PPU_SCROLL
& R9 y) A* H I8 i+ g8 l2 q
RTS
3 V* ?4 Y& @2 U; e& v
IRQ_Process_Scroll_Right;向右滚动! N' R4 T K. z, X. J0 x
LDA #$00
. ~+ F; d8 M3 g& R2 N
SEC
+ I" e! E2 X. i
SBC <Scroll_H7 Y1 i6 m6 @; j0 K: c4 A
STA PPU_SCROLL, w7 q* W0 `7 q8 ?! a
STA PPU_SCROLL4 b0 I; b* o' w$ j
RTS
) ^! }! I8 L) ?2 r( ?# E
6 y8 \, w5 K! Z' x/ L
;==================================================
( r4 P# l' N8 H: f8 i6 e
NmiProgram;Nmi中断处理& o5 s" O' Q4 k% o3 V4 W
PHA
" ?& C6 u" c; ]$ p! M$ X
TXA' ]0 u$ Z1 c% B4 R) ~5 e7 O
PHA; D) d0 N8 }8 \
TYA" O# U# r$ P# w/ y, F* y
PHA
0 d' p k) ?5 d- g9 e
6 }2 K3 ^; w* n, |5 G) F* M* `- \
;读取清除Vblank标志, 防止重复进入8 @- C: x4 e) J ]
BIT PPU_STATUS. t7 ]% d" q# n! Q
( A. I* @1 {% E" g- i: @9 a5 o0 T
;切换主程序bank# e5 ?, W" n$ {2 d# x0 `. n3 x
JSR Switch_Main_Bank
7 j h3 ]( F7 U
) k0 v) [" i3 ^% t* X3 v+ f+ E' F
;Nmi处理
0 ~; p( T! q9 ^# e( R
JSR NmiProcess7 {9 Q+ H6 e7 q( T8 M
( h6 H( z' O, n/ p
Nmi_Proc_End
/ I. y! v9 w2 l1 V% `9 S6 E+ J
PLA `6 s |& G3 B: c7 f$ [, o1 ?
TAY6 u% H- e' ?% W" B
PLA5 A% K4 x+ |- V* R' d) \
TAX
; X5 r- @' r E
PLA/ ?) x( s& j2 Q( p3 _
RTI
4 g% @7 o: O# c, V+ q# E K
& {6 v) @3 f+ m, o, T; }
;==================================================* Y# B' j/ _" m: n" g) ]
ResetProgram;重置中断处理
% l9 O9 W1 l6 w+ a
SEI
( I) ~* t* e0 V, }# j2 a/ U# K
CLD" \$ z: T" X0 ]* Q1 n0 f+ l* w2 z
LDA #$009 X+ d5 x. L' U p" @% D; |
STA PPU_CTRL
' ]; {+ L" C1 i) O# t9 C/ \/ N3 u4 C
STA PPU_MASK
" P5 V1 ?- }9 [
9 q! k: ?3 M/ Y [3 R. b3 P
;切换主程序bank
3 {7 D. k- p* u# ^; ]
JSR Switch_Main_Bank
) s* p/ L8 {, b* n P
' h8 [6 a4 X0 V% m2 _# M$ Q4 G% O
;程序处理开始$ q$ D& b. q) G+ L: U6 Z6 i
JMP ProgramBegin
, Z5 ~1 D& Y) h
0 s7 O$ \6 V1 B* ^ v, i
;==================================================. T, T9 `4 F7 r$ w# Y: M0 h) W
IrqProgram;Irq中断处理
2 a, u: F8 g6 P& ~$ S/ c- f
PHA
# E7 ?' j- `% X& w8 d
TXA
( j; ]0 Q+ H/ a# ~
PHA7 \' X6 I& \! Y: {& ~+ S8 i
TYA
+ p [" v6 D4 j% L+ E# }1 ?
PHA
5 f2 ^* \ l+ K; P. |2 f9 G
* u5 [; O$ o, ?- Z* E2 g
;关闭IRQ3 ]! f- z% ?/ J, c5 l# k
STA MMC3_IRQ_DISABLE
' }" r. G( v$ N Z/ M
( H: r" x. E @& c8 b) r) j
;允许下个IRQ触发8 b# [" J' I6 `6 W8 m4 T; f. N
STA MMC3_IRQ_ENABLE
# `. o+ J/ l4 ]! X. |
$ g) J ^/ T$ G) P% ?
.IF IRQ_SUBPROCESS_JMP$ G! l* L3 ?* ]
( I2 I! q; ^5 N8 ^) ^
;执行IRQ过程
: O0 S6 }" U. A# Z. Z4 b; P4 ^
LDA <Data_L
. o- E! x1 H4 I v" l
PHA
6 v+ U0 v, H( E+ j" e4 X
LDA <Data_H
% B! L* x/ L: S) ~: J7 e
PHA
5 J; r' Y6 o5 B' i5 k# v7 ?; N
LDA <IRQ_Process_Index# }" I; f( V$ x* A I/ a
ASL A4 y- t. u4 e, G' X- q
TAY. D: y, W; ^/ B
LDA IrqProcessAddr,Y
3 @0 Z& \7 I/ n: \2 V/ W# c. k& V
STA <Data_L
& Q+ {6 b. j* V$ T: G4 ]7 e
INY, G; x- X7 X! f; }! X3 Z
LDA IrqProcessAddr,Y
G9 e2 R( E2 T7 i
STA <Data_H
2 L" J5 n$ A& m, s
JMP [Data_L]$ N9 m3 c( z$ o% m4 |3 } s; q9 i1 r
1 L- J8 J& Z- S8 n" R, R
.ELSE
_( L J7 D3 `, R
% {; f+ }6 v/ S0 C- \3 d
JSR IRQ_Process
+ p3 W' N, n6 c, J
4 h5 e8 h5 M2 w( S
.ENDIF
3 i% U" A# t4 u6 y9 X" `! c
, g$ {% O1 Z/ |
IrqProgramEnd
! A( j2 s" w+ R' p: w. a2 j8 m
.IF IRQ_SUBPROCESS_JMP
6 w' q% `/ \( P& D3 N# s3 y
PLA
' l/ \0 n# r0 S1 P% y8 g
STA <Data_H3 Y: |% a) o3 ?$ `! o) d
PLA
: X1 d' z9 j9 R) X# I% \9 ]6 n H
STA <Data_L+ l. x+ j3 h" h3 f% M
.ENDIF
3 V- p9 W( c- q" W2 V! u
PLA F) E0 b8 @# E% ]6 i
TAY0 l5 r: v2 E, Z: S8 w; m [7 F
PLA1 T$ L7 Q# f- }& r
TAX2 |0 K; g( Z0 u) U& h
PLA
: m' V, g- `; |3 A N5 Q M
RTI
8 v8 D) z2 ]5 L' a. W
- a0 ?% p) E2 l' p
.ORG $FFFA
) X; T3 W& A1 e+ |' V% a
.WORD NmiProgram
& g: ~2 y3 j5 @
.WORD ResetProgram* \" q1 O+ L% {1 X# C0 g
.WORD IrqProgram5 H2 b+ o* y7 s$ r5 z$ X
/ u& L- x8 G7 J) r0 _
.BANK RESET_BANK & BANK_DATA_MASK" V) Q; V6 R( m0 ^8 b: N4 _) C
.IF SOUND_BAR_SHOW_ENABLE
. b! m# A+ A& F
. Z& A# _. F% d1 O3 I
.ORG $FE00
- e& E0 l3 c# y" a' b* n
PHA
% y6 X+ j6 V5 W6 L& a/ M
STY $07BA8 n# _' j# E) P6 O5 p. o2 [
LDA #$8D
9 a5 t, d9 o* d3 g$ [3 M9 V6 e
STA $07BC
0 P3 M$ Z+ a$ F- S
TYA
@# ?# h' |0 F
CLC
( h* o0 z& ~/ ?& F
ADC #LOW(Sound_Bar)
$ u) \& E4 z0 N- @* z$ d
STA $07BD9 w: U" t) {. g& r; J7 M1 q5 ]" }3 u
LDA #HIGH(Sound_Bar)* p' F0 d- [" w
STA $07BE2 Z1 ]6 m$ j" s! M5 n
LDA #$60
0 o+ j X; N0 {0 r# v. g$ Q, g. Q
STA $07BF
% I; E; I8 E& |+ x+ s
PLA
9 F }: T, M$ ~8 f5 F) `
RTS% C$ V# i/ X! E/ R. x
% h0 i' B& r9 f
.ORG $FE20
) ~* x% t% {$ K4 q
STA $07BA. M- `4 M4 S% G$ S
CLC% i$ m; T5 |5 a# r
ADC #LOW(Sound_Bar)
6 D: g! K' j/ R, g9 D4 E) y
STA $07BD
5 r! ?! r- `1 K6 L* U& H8 N
LDA #$8D
\( a. s% ~9 j: s5 @
STA $07BC
. K$ h' S# P" N# ?+ A; |" s
LDA #HIGH(Sound_Bar)' c8 D6 q+ s0 p/ c4 Q8 |! \
STA $07BE3 B5 s. j3 ^" i6 R o, Y
LDA #$60
+ u9 x5 Z$ E5 t- d+ z" }
STA $07BF
9 M2 L# Q8 W" p
RTS6 ] M& e8 z) `* c2 D; ] W
( e/ j! G {5 i; F9 k
.ORG $FE40
" b6 n7 i. }/ y; t* Z1 l: h
PHA" i" v! S w4 H7 s
STY $07F1) e8 p- o$ w9 R/ [$ C6 _& ?1 e
LDA #$8D
( p) g; u) i5 y2 @* V4 G
STA $07F3( k I/ r+ @1 d: n
TYA
8 s, ?+ m1 T5 d' l0 p+ G' |
CLC
, ^" [. @- K+ m
ADC #LOW(Sound_Bar)
' Z7 {& |8 q# w$ P, Y! p
STA $07F4) ~' Y# @0 J3 P: ` I
LDA #HIGH(Sound_Bar)
: }+ c7 ~, Z& r4 o% u
STA $07F5+ o5 D( S0 x) T, f$ _" w+ b
LDA #$60
+ F8 w; [8 c) r' k; N% N+ T3 l' `9 F+ L
STA $07F6+ i( ], C$ r: i: L
PLA
" W" N5 O7 Q9 @, d) P) y0 U
RTS/ B( Q) Y+ |/ D% a/ c. F; R
4 {2 z, ~4 g' s6 e, p! b) z
.ORG $FE60; o3 g: l E! v: W% C
STA $07F1( u! z3 T( J! u- w, A' F
CLC
3 @ e0 C! Q( X% [
ADC #LOW(Sound_Bar)
/ e& Y2 d) |. \& H F% j
STA $07F4
& M3 b4 C9 Q5 `: u9 A0 a( T9 m
LDA #$8D
' t9 f- i5 U7 a& M
STA $07F3
a* O$ c% e5 `* Y6 I2 C
LDA #HIGH(Sound_Bar)
7 F- _; i' B9 h8 V D) c
STA $07F5
2 }2 F4 j" h, }8 M- y
LDA #$60( y: P$ C* \! k" a; j& s
STA $07F6, ^7 [9 H8 H7 i
RTS
9 x8 D& g0 C9 ]9 K* }
8 l2 }) z, L7 |2 y6 l- c2 {$ Z
.ORG $FF40
- V8 w% r( n- M! {1 Q
STA $40004 l/ `2 ]# L( G4 B4 c
STA Sound_Bar + $00: B7 Z4 Z- U8 @4 M$ u* Z; P0 F; f
RTS
$ \2 h, _! k8 ~
5 T) W5 Y0 W1 k7 U* j
.ORG $FF48 J6 O. x1 D+ k4 ~6 n% D
STA $40047 |9 ]) H4 m T/ {' N
STA Sound_Bar + $04$ o& B- s7 o" T- L( F3 j; l0 e8 w! F
RTS
$ b1 t% s+ S% P6 L* ^9 ` u
6 m# m0 ~- a- p8 x
.ORG $FF50! ?/ c- e z u; J; X' z
STA $40081 B+ x3 j% F1 z5 z6 Q$ q) i/ E
STA Sound_Bar + $08
4 W3 \+ ^( W6 w$ n
RTS
% ?, E6 ~* y; ~3 E5 |% F/ P
$ h4 e; [* j5 W' j6 ~. ?) a
.ORG $FF58
8 E" N7 k I/ R# b! p* j3 F
STA $400C
5 I2 m3 _3 ?5 `! x4 Z7 a
STA Sound_Bar + $0C& o) }0 Z: c9 ]1 ~" g+ w- T7 _% K; |
RTS
( U: o+ ^# v. `* E
6 O* r0 Y/ W# f4 |
.ORG $FF603 R; p( N6 ]; |
STX $40001 E# U4 p$ R i l
STX Sound_Bar + $00
1 Y3 Q: X1 r3 a. Q/ U( D
RTS
7 e' m* h1 W; ^( b$ w7 g
/ ^: S4 s; \5 d
.ORG $FF68$ z/ O2 X+ O& E4 I- b
STX $4004# `4 Z; S( ^# ~1 B& R
STX Sound_Bar + $04
+ z: ?$ t. v1 ~) U
RTS l2 T. Q0 E; g" `
5 m/ J/ _2 I% L; A
.ORG $FF70
+ N+ @- f. Y, @8 h! g, U# z
STX $40082 y8 T- P* U; a p# l
STX Sound_Bar + $08# q( O- x: I' L, T+ ?0 r1 Z9 L: F
RTS3 m) p7 X& f# j( r: o
& b( [0 D/ F4 e% Y8 P; |8 P
.ORG $FF78) _( U* `. C: u: c0 j: Y
STX $400C
* Q$ H) m% o& ]0 }7 M
STX Sound_Bar + $0C6 n. \/ D9 e1 v: B5 J
RTS% S- X6 T9 n& G; F7 M7 ~/ K# s/ q
* @+ ?8 V3 N( K7 c6 @
.ORG $FF80+ H& k9 j n9 j. |9 E5 H" E: D7 v
STY $4000
& g( e# ]0 x8 p8 D b. t! c1 e
STY Sound_Bar + $00+ D4 t) c% w7 i& i6 ~3 \
RTS* D2 A$ c& _5 ~
6 X, g, g1 G: |! _4 n" |
.ORG $FF88. Z1 e8 B$ v* Z1 n% ?, `
STY $4004
9 M* j! l3 d+ Y: W5 ]3 E& E$ K
STY Sound_Bar + $04( z0 z; }# I3 F, S& x- r3 A- j
RTS" S; w" H$ T# U) C2 k3 {2 K
$ E* X6 K/ s9 e
.ORG $FF90
4 u7 K: X4 c F& C2 z4 `
STY $4008% ?1 |$ A/ O" T* J
STY Sound_Bar + $08: E+ ^0 m+ U8 T4 O4 b1 d: K$ {6 ^: L' f
RTS) H" ?; F" |/ a( T& \+ a
' C. H& Q+ A2 h6 ^* L7 j4 b9 r' L! {
.ORG $FF98
0 o8 r" e) a/ \& W
STY $400C% W& d: ~, M% @* l8 D" s
STY Sound_Bar + $0C
, \- G% t6 V8 o, W% f) y$ g: _
RTS
9 W1 o0 [5 M3 g" e' e' ~9 L# m
( V4 i3 v2 J7 D
.ORG $FFA0
STA $4000,X
& L1 L4 v" o" t& U0 r; S
STA Sound_Bar + $00,X
/ d0 _/ T! N$ ?. i7 \* E
RTS
3 x" d9 D, N* |! s! U( W# e3 k
; s# J/ Y9 t0 ]3 M
.ORG $FFA8' A3 f' L% b( t% v4 Z$ m. `! u
STA $4000,Y* v- @4 P7 ^" m, L2 X( k
STA Sound_Bar + $00,Y
$ a8 i; C- f d* t+ F( u
RTS
, ~+ u1 x5 n. I1 y9 y. x
7 d4 ^' q6 Y- Y( h2 _# o& @" O
.ORG $FFB03 H3 ~3 Y( X7 S& G! d+ q" i, |
STA $4004,X7 x7 L7 I, g# g' o3 v' P( |8 t
STA Sound_Bar + $04,X% `$ m$ a( I; O% N4 y7 N# T
RTS
3 `4 |; k0 {- m1 g9 ]% d
$ D* L7 O% M( R; Z: E" \
.ORG $FFB87 \' h& B% ~- s, x c
STA $4004,Y& q# L( Y9 _! Z% @3 N' w
STA Sound_Bar + $04,Y
9 s! f( T/ g! e7 F
RTS
. ]# V4 I# e+ p: A r
# V6 f9 P v: Q: j
.ORG $FFC03 s& d* u! c/ L R
STA $4008,X
7 Q! L& ]& c1 C8 H) o4 e3 H
STA Sound_Bar + $08,X2 e- ^7 q, ^+ z7 x% O3 E( v4 U
RTS1 P- v( l$ N8 D0 T3 X/ e: \' e
( k! R. m- d& b! E& L( o1 e8 I+ }; M
.ORG $FFC8
, U3 r5 q$ v3 r
STA $4008,Y
& ?( G# @- b7 V, s2 a
STA Sound_Bar + $08,Y
8 a" ^: |2 {3 E
RTS
' M. _0 i. k+ U' p
1 b( J& u6 p1 |% M
.ORG $FFD0/ E$ w$ s7 k C! B
STA $400C,X
) y; }" B. r" [( y
STA Sound_Bar + $0C,X# ?6 U7 M+ ^* m* M# |% @- M
RTS
( C4 b2 K) t& _! z1 ?3 ^
& f' L# j( ?$ k& \. H- v5 R
.ORG $FFD8* C' i: x I' z: Q8 Y3 w# Q; u6 |
STA $400C,Y
7 W( Z+ H) y' `6 [
STA Sound_Bar + $0C,Y0 I% L8 [& O1 Z0 T: N
RTS3 T; n% t8 T; T" b+ W
. E7 l: ?& R5 o
.ENDIF1 `& N, B$ c( u& I: j1 U0 h

复制代码

游客，如果您要查看本帖隐藏内容请回复

leshui · 发表于 2023-8-5 12:37:15

非常支持您

账号		自动登录	找回密码
密码			立即注册

[原创] [FC][音乐12 IN 1][nes + 源码]

本帖子中包含更多资源