[FC][音乐播放器][NES + 源码]

yandagui

* a; u- u$ b& w0 Z1 |% J1.魂斗罗
+ w  w3 C4 S! P2 @# {2.超级魂斗罗
! L; j# M- J# H% {: M9 s3.赤影战士
0 E; [" m- O8 p* m4.忍者龙剑传2
$ o/ V0 X. u! F4 m  p/ M7 m0 K
2 _+ H- S8 W2 x


9 c$ E2 h* _3 `# ^$ a源码:

1. ;[FC音乐][播放器模板]
   
2. ;FlameCyclone 20230710
   
3. 
   
4. ;文件头
   * P9 y& X7 x% X# w* C- C' F
5. ;======================================================================
   6 j/ g4 d6 `& V( a4 P
6. .INESPRG 4                                              ;16KB PRG 数量
   " ^3 P2 w6 U: N" t. v) O  g7 q
7. .INESCHR 0                                               ;8KB CHR 数量
   
8. .INESMAP 4                                                   ;mapper 4
   
9. .INESMIR 1                                   ;命名表镜像 0水平 1垂直
   
10. 
    
11. ;==================================================
    
12. SOUND_BAR_SHOW_ENABLE       = 1
    
13. ;==================================================
    8 t5 Z% L4 Y3 r# n# r/ s
14. BANK_DATA_MASK              = $07
    
15. ;==================================================
    : ?6 @8 ?; X5 ~7 U. b
16. SOUND_DATA_BANK_0           = $00
    
17. SOUND_DATA_BANK_1           = $01
    
18. SOUND_DATA_BANK_2           = $02
    
19. SOUND_DATA_BANK_C000        = $06
    6 k2 l) P, D$ i0 `8 ~# i: p. E
20. 
    6 c, ]' V/ s: i" B
21. ;-------------------------------------------------
    0 B# b$ C5 r1 P5 s4 F
22. CHR_DATA_BANK               = $04
    
23. CHR_DATA_ADDR               = $A000
    
24. ;-------------------------------------------------
    3 O8 b* M3 Q+ D$ J
25. PROGRAM_BANK                = $05
    % u& {% x2 a' X' V9 {& r
26. PROGRAM_ADDR                = $8000
    
27. ;-------------------------------------------------
    $ b1 s, V6 @$ |9 a
28. RESET_BANK                  = $07
    ( W  ?7 k5 c/ X3 W8 y: l% l
29. RESET_ADDR                  = $FE00
    
30. ;==================================================
    
31. Music_Init_Addr             = $DFF0 ;音乐初始化地址
    . f, B% V/ E8 |; `! c% U  h
32. Music_Play_Addr             = $813C ;音乐播放地址
    
33. Music_Reset_Addr            = $0000 ;音乐重设数据地址
    . `) B. m! e) U
34. ;==================================================
    
35. Music_Song_Total            = 039  ;全部曲目总数
    
36. Music_Start_Song            = 007  ;初始播放曲目
    + t5 }% a) }5 z0 \# C. g
37. ;==================================================
    
38. 
    
39. ;==================================================
    " w! k) E$ j* S+ |; A( o) m$ O5 r
40. Title_Text_Pos      = $210D ;标题文本位置
    ; m  ^$ `( ^7 a+ D) P+ W4 f( _
41. Author_Info_Pos     = $2284 ;作者文本位置
    1 O5 T$ u3 b; P7 j! H/ J: n
42. Date_Info_Pos       = $22CB ;日期文本位置
    
43. ;------------------------------
    
44. ;------------------------------
    
45. .IF SOUND_BAR_SHOW_ENABLE
    
46. Play_Index_Pos      = $21B3 ;当前曲目位置
    ! m* j; O5 z$ A# G; j; i$ s  W  V& j
47. Play_Time_Pos       = $21F3 ;播放时间位置
      ]. ]+ C% F5 o4 {& R* a
48. Play_State_Pos      = $2233 ;播放状态位置
    
49. .ELSE
    & E0 x7 J0 X: h' ?" ?( a
50. 
    , j2 l5 ~  ^" I, M$ L2 A
51. .IF Music_Song_Total > 99
    . c: r9 X- o: N+ ?7 d: i
52. Play_Index_Pos      = $21AC ;当前曲目位置
    
53. .ELSE
    
54. 
    
55. .IF Music_Song_Total > 9
    
56. Play_Index_Pos      = $21AD ;当前曲目位置
    
57. .ELSE
    % L- _* W9 q6 v! G( i" X# h& W
58. Play_Index_Pos      = $21AE ;当前曲目位置
    
59. .ENDIF
    . M1 T  k/ t& G# ^- B, O+ N
60. 
    
61. .ENDIF
    2 P$ ^$ l/ `' G8 J$ a. |
62. 
    ! h6 v# r/ W' m+ g% Z
63. 
    - `7 E+ j/ p# K9 m: S& p
64. Play_Time_Pos       = $21EC ;播放时间位置
    
65. Play_State_Pos      = $222C ;播放状态位置
    7 n6 t0 E1 p3 e7 x5 ?9 A, i* S& C
66. .ENDIF
    
67. ;------------------------------
    
68. Track_Name_Pos      = $216B ;曲目文本位置
    3 D0 |  M2 g1 A# b3 A6 E5 L
69. Sound_Track_Pos     = $21A5 ;声道文本位置
      E  e$ {/ H7 Z0 m
70. Sound_Bar_Pos       = $21A9 ;音乐条位置
    " D% F5 @% Q; j6 q: b; {
71. ;==================================================
    
72. Scroll_X = $00
    : u! }+ q: f3 O4 ~
73. Scroll_Y = $06
    : i4 t, M  c+ k2 ^" b
74. ;==================================================
    
75. RAM_Cln_1       = $0100
    
76. RAM_Cln_1_Size  = $80
    & |8 |& b' V( r7 o1 ?
77. RAM_Cln_2       = $00E0
    ( `7 h7 K8 Z: }& y, H1 a
78. RAM_Cln_2_Size  = $20
    
79. RAM_Cln_3       = $00E0
    
80. RAM_Cln_3_Size  = $20
    + e) [8 X- c1 N9 y$ D# `3 Z
81. 
    
82. ;==================================================
    
83. PPU_CTRL                =   $2000   ;PPU控制寄存器
    ; ^! ?. P2 Y* n, L
84. PPU_MASK                =   $2001   ;PPU掩码寄存器
    5 B! G0 u2 [# a4 b
85. PPU_STATUS              =   $2002   ;PPU状态寄存器：读取后PPU_SCROLL和PPU_ADDRESS被复位，下一个写到PPU_SCROLL的数据是水平的，写到PPU_ADDRESS的数据是高位
    ; G3 j0 o" c' O2 z- @# V* Q
86. PPU_OAM_ADDR            =   $2003   ;精灵RAM地址：用来设置通过PPU_OAM_DATA访问的256字节精灵RAM地址。每次访问PPU_OAM_DATA后该地址增加1
    2 I/ S0 k- w- n& H. ^
87. PPU_OAM_DATA            =   $2004   ;精灵RAM数据：用来读/写精灵内存。地址通过PPU_OAM_ADDR来设置，每次访问后地址增加1
    3 T3 x4 }: Z3 ^
88. PPU_SCROLL              =   $2005   ;屏幕滚动偏移：第一个写的值会进入垂直滚动寄存器（若>239，被忽略）。第二个值出现在水平滚动寄存器
    
89. PPU_ADDRESS             =   $2006   ;VRAM地址：设置PPU_DATA访问的VRAM地址。第一个写地址的高6位。第二个写低8位。每次访问PPU_DATA后地址增加
    
90. PPU_DATA                =   $2007   ;VRAM数据：用来访问VRAM数据，通过PPU_ADDRESS设置的地址在每次访问之后会增加1或32
    
91. OAM_DMA                 =   $4014   ;DMA访问精灵RAM：通过写一个值xx到这个端口，引起CPU内存地址为$xx00－$xxFF的区域传送到精灵内存
    
92. APU_STATUS              =   $4015   ;声音通道切换
    
93. JOY1_FRAME              =   $4016   ;手柄1 + 选通
    
94. JOY2_FRAME              =   $4017   ;手柄2 + 选通
    
95. ;==================================================
    
96. MMC3_BANK_CTRL          =   $8000
    5 @3 P: Z8 c+ A7 f3 i
97. MMC3_BANK_DATA          =   $8001
    8 x9 T1 E' c% N0 f
98. MMC3_MIRRORING          =   $A000
    % C% ]0 i1 C1 a+ r6 d
99. MMC3_PRG_RAM_PROTECT    =   $A001
    - ?4 _) z& }, ]; S/ i+ P( W* B
100. MMC3_IRQ_LATCH          =   $C000
     
101. MMC3_IRQ_RELOAD         =   $C001
     3 Z, G  |  ?* a: o/ h
102. MMC3_IRQ_DISABLE        =   $E000
     
103. MMC3_IRQ_ENABLE         =   $E001
     
104. 
     : d3 r# m  ?6 Q
105. ;音乐数据块
     # P* t, @0 x' L6 F) b$ f
106. 
     
107. ;======================================================================
     % V* ?2 g1 C: p9 `7 `3 Z
108. .IF SOUND_BAR_SHOW_ENABLE
     
109. .BANK SOUND_DATA_BANK_0 & BANK_DATA_MASK
     , F# U8 v+ g8 u! }* U
110. .INCBIN "sound_bank_bar/music_data_0.bank"
     
111. 
     
112. .BANK SOUND_DATA_BANK_1 & BANK_DATA_MASK
     ! P1 r2 K' A, t8 S! q
113. .INCBIN "sound_bank_bar/music_data_1.bank"
     ) k/ o/ V* n( i+ I/ `- ^6 d! i
114. 
     
115. .BANK SOUND_DATA_BANK_2 & BANK_DATA_MASK
     
116. .INCBIN "sound_bank_bar/music_data_2.bank"
     1 h# v6 O7 j3 n8 L$ u5 i* f$ w
117. 
     
118. .BANK SOUND_DATA_BANK_C000  & BANK_DATA_MASK
     
119. .INCBIN "sound_bank_bar/music_data_3.bank"
     
120. 
     4 M' d! H+ [/ x" W# f' p/ z
121. .ELSE
     ; d% b% a7 ?$ R1 |$ k
122. .BANK SOUND_DATA_BANK_0 & BANK_DATA_MASK
     & l& i8 S1 E* ^) c
123. .INCBIN "sound_bank/music_data_0.bank"
     4 d/ M! T- R. l9 |3 e
124. 
     
125. .BANK SOUND_DATA_BANK_1 & BANK_DATA_MASK
     
126. .INCBIN "sound_bank/music_data_1.bank"
     , P& j6 C: `/ T7 U: D% i! Y0 N
127. 
     
128. .BANK SOUND_DATA_BANK_2 & BANK_DATA_MASK
     
129. .INCBIN "sound_bank/music_data_2.bank"
     
130. 
     % l; z5 f6 g2 o- H
131. .BANK SOUND_DATA_BANK_C000  & BANK_DATA_MASK
     , K( O: z) Z8 M* A+ c
132. .INCBIN "sound_bank/music_data_3.bank"
     
133. .ENDIF
     
134. 
     
135. ;CHR图形数据
     
136. ;======================================================================
     
137. .BANK CHR_DATA_BANK
     + M6 R2 r/ b: ^. W
138. .INCBIN "chr_bank/chr_data.chr"
     
139. 
     
140. ;==================================================
     ' ^. I6 L; N7 U
141. PPU_Addr        = $0300
     
142. Palette_Addr    = $03C0
     
143. Sound_Bar       = PPU_Addr+$E0
     9 @% N/ T) ?# l# C4 |7 v
144. ;==================================================
     ; m* L3 f  I( A" V
145. Palette_Update_Addr     = Palette_Addr+$0D
     & B# J7 P* |. X. k' e+ e, T
146. Palette_Update_Max      = $2C
     * p0 N6 E3 a: C# M3 ^
147. Palette_Update_Min      = $21
     
148. Palette_Update_Interval = 60
     
149. ;==================================================
     6 v; }8 e- |7 ]+ ^! z. h
150. Sound_Bar_Cnt       = PPU_Addr+$F0
     
151. Screen_State        = Sound_Bar_Cnt+$01
     
152. PPU_Cur             = Sound_Bar_Cnt+$02
     3 o9 _7 k1 x* `+ g8 `/ F  c7 j# D
153. PPU_Addr_H          = Sound_Bar_Cnt+$03
       H  A7 v# r3 u( G
154. PPU_Addr_L          = Sound_Bar_Cnt+$04
     # j. [2 G8 }9 z) `
155. ;==================================================
     
156. Data_L              = $70
     
157. Data_H              = Data_L + $01
     ( U- S/ X/ B& x9 V4 A8 m( E; J  C5 ^" d
158. Data_Cnt            = Data_L + $02
     + l' B; X  M! n7 o+ O6 F! |
159. Data_Buf            = Data_L + $03
     
160. Time_Wait_Cnt       = Data_L + $04
     
161. Palette_Wait_Cnt    = Data_L + $05
     
162. Palette_Update_Flag = Data_L + $06
     
163. Show_Track_Name     = Data_L + $07
     
164. ;==================================================
     , r6 B' N8 U$ H% V  ]$ ]
165. Key_Keep            = Show_Track_Name + 1
     , [# g- w' [1 k9 u/ t
166. Key_Once            = Key_Keep+$01
     1 M9 c- O7 ^! l4 |! v3 L4 ]3 W
167. Key_Kemp            = Key_Keep+$02
     . O. I5 t0 c" W0 S
168. Key_Temp            = Key_Keep+$03
     + D3 a% ]7 ?! T7 j
169. Key_Getv            = Key_Keep+$04
     $ r( S! H0 j* M" ?& s  `! z
170. ;==================================================
     
171. Music_Cur           = Key_Getv+$01
     
172. Music_Last          = Music_Cur+$01
     
173. Music_State         = Music_Cur+$02
     5 v; U" S+ @* @, c; z; M: i
174. ;==================================================
     0 F+ M  i  h% W4 D- x- e
175. HEX_Data            = Music_State+$01
     # Y- L3 V2 `) M( G
176. DEC_H               = HEX_Data+$01
     , d+ J# y7 e' H! n- y; U
177. DEC_T               = HEX_Data+$02
     ' w. J3 b  |$ O3 y6 t
178. DEC_L               = HEX_Data+$03
     
179. ;==================================================
     
180. Time_S              = DEC_L+$01
     2 Z) n, {; U: Y0 ?
181. Time_M              = Time_S+$01
     
182. Time_H              = Time_S+$02
     
183. Time_Cnt            = Time_S+$03
     & g, C1 ^- e: z. l, J9 p
184. 
     
185. ;==================================================
     $ t1 T1 G4 `! @+ X* f; l
186. Music_Bank_8000 = Time_Cnt + 1
     
187. Music_Bank_A000 = Music_Bank_8000 + 1
     - E5 O- B, {" k) k8 o+ ?: B
188. ;==================================================
     
189. 
     
190. ;======================================================================
     
191. .BANK PROGRAM_BANK
     ' a7 s7 @" q7 ?1 `% K6 q; Z
192. .ORG PROGRAM_ADDR
     
193. 
     & |* p6 J: \$ q9 \
194. ;==================================================
     5 A" |) q# i8 W6 @5 o
195. NmiProgramProcess;NMI中断程序处理
     
196. ;处理PPU图像
     
197. JSR PPU_Proc
     ) S3 |" m' l8 }4 {* G" {0 N
198. 
     
199. ;启用NMI中断
     
200. LDA #$80
     / b& W7 A) d& a9 Q& A
201. STA PPU_CTRL
     
202. 
     
203. ;更新调色板
     
204. JSR Update_Palette_Data
     
205. 
     
206. ;显示时间(缓冲)
     / I6 \: g3 N# N9 P/ j
207. JSR Time_Show
     
208. 
     
209. ;播放计时
     
210. JSR Time_Count
     
211. 
     , n1 u) H# G  k" X. }# ?1 o8 _* R
212. ;播放声音
     
213. JSR Sound_Play
     
214. 
     % x  L. K2 [( f9 q* {" E6 x
215. ;切换音乐(手柄触发)
     
216. JSR Music_Switch
     
217. 
     0 i! z9 h/ e1 W6 D% @0 Q, H5 D
218. ;音乐显示(缓冲)
     ' a/ g8 X& i9 c. r. N! n! C% l2 ]% z
219. .IF SOUND_BAR_SHOW_ENABLE
     
220. JSR Music_Vision
     / x/ f. j+ E9 z' }9 D1 F" U
221. .ENDIF
     $ |$ G; y+ o2 m4 [9 X  `2 _
222. 
     
223. LDA Time_Wait_Cnt
     # ?) E1 X$ W+ @* J$ Y
224. BEQ NmiProgramProcessEnd
     9 P# c' G5 a) K' O3 h
225. DEC Time_Wait_Cnt
     : b  w$ _+ t* l* \1 {" }
226. NmiProgramProcessEnd
     
227. RTS
     ! A) e$ {2 z6 A* ]3 [3 m* I
228. 
     
229. ;==================================================
     
230. ProgramBegin;主程序
     
231. LDA #$00
     ) m) a' q; Q5 P# n  j
232. STA PPU_CTRL
     9 ]7 U; S0 O& e6 X5 i
233. STA PPU_STATUS
       g( `! {' g+ Q" N3 ^, w
234. STA PPU_MASK
     6 h8 d' a' K* @% C# O- B0 Q0 c; V
235. STA APU_STATUS
     
236. STA PPU_SCROLL
     
237. STA PPU_SCROLL
     / E. S  y2 i/ |4 ]
238. LDA #$C0
     ! H7 |9 d; R* v) ~
239. STA JOY2_FRAME
     # s4 E5 P% n3 G
240. 
     ) \# @9 R/ r# A4 ~) e; B; h. n
241. LDX #$FF
       B( Z6 J. R2 ?* w1 L& U5 h2 l/ W6 H
242. TXS
     % R) g% z- c* e( p- h
243. LDA #$00
     0 b1 f% s' u+ ~/ t2 m9 L9 j
244. STA PPU_CTRL
     ! y! n1 ^8 `0 X' q8 K
245. STA PPU_MASK
     - J. s) l7 h: [% B
246. STA MMC3_IRQ_DISABLE
     
247. 
     
248. ;==============================
     
249. ;调色板清空
     * u  m- ]# x3 A9 v
250. LDA #$3F
     
251. STA PPU_ADDRESS
     
252. LDA #$00
     ' U" T7 |9 r& R( z# u
253. STA PPU_ADDRESS
     ) {" Y3 h( k6 f1 b4 p5 N8 {
254. LDA #$0F
     1 G. k8 s3 F8 t- W% ^, q+ T6 D
255. Palette_Clear
     
256. STA PPU_DATA
     5 T) X& u0 A/ Q3 @  f
257. INX
     
258. CPX #$20
     
259. BCC Palette_Clear
     ) Z; ?. K. F2 h# [7 t
260. LDA #$00
     $ B* d) j: |3 g8 ]/ X
261. STA APU_STATUS
     # l9 D- ~  W: ?
262. ;==============================
     
263. ;初始化背景调色板
     
264. JSR Set_Palette_Color
     
265. JSR Set_NameTable_Attributes
     6 Q) W# Y+ p2 t0 D* B1 ?2 \
266. 
     
267. ;==============================
     % F' n  P9 X9 c
268. ;RAM初始化
     5 E! G% }- d6 P1 [
269. RAM_Clear_All
     
270. LDX #$00
     
271. LDA #$00
     - ~1 y: r7 [, }* P6 }: }+ E
272. RAM_Clear_All_Start
     6 Q0 n7 }- e: w9 t% {+ ~
273. STA $00,X
     ) J7 D1 A! e+ D( A) i4 H( P: u
274. STA $0100,X
     0 h( x/ x/ N$ k( h/ |6 ?
275. STA $0200,X
     
276. STA $0300,X
     
277. STA $0400,X
     1 D4 ~  p& G! s+ f9 j; L& @  b
278. STA $0500,X
     
279. STA $0600,X
     - u/ y/ {: j2 U- u' |8 J, i- d
280. STA $0700,X
     
281. INX
     
282. BNE RAM_Clear_All_Start
     
283. 
     # W* ~, B* Y4 g4 V/ z/ Y$ d
284. JSR VramInit
     
285. JSR Init_Palette_Addr
     7 |: ~- j4 _; `9 P- S, o
286. 
     " y  ?& Z' v6 N: H5 B: E. W7 {
287. .IF Music_Reset_Addr
     
288. JSR Sound_Reset
     0 `% z" f8 l& X2 `" h
289. .Endif
     
290. 
     4 p. {* M5 `# A9 h
291. LDA #Music_Start_Song-$01
     7 T; a1 J& O7 r8 F& C# f2 Z
292. STA Music_Cur
     
293. 
     , A9 H0 R8 u; Z1 k5 X/ m2 x
294. JSR Show_Music_Text
     ( D( ?4 O8 M/ N$ g
295. 
     + Q9 U* }6 E1 i
296. .IF SOUND_BAR_SHOW_ENABLE
     : H: i% Q/ Y, m+ j
297. JSR Sound_Bar_Text_Set
     
298. .ENDIF
     
299. 
     5 O% k5 X. W9 ^6 F$ U
300. .IF Track_Name_Pos
     4 B" c/ Y! W% P. _) a5 U
301. JSR Show_Track_Info
     0 k  Q& _0 X8 {' {# _# V2 c. I; o# T
302. .ENDIF
     
303. 
     
304. JSR PPU_Proc
     9 e( I# k6 [' a
305. 
     
306. LDA #$0E
     
307. STA Screen_State
     & ~6 [7 z) v% X7 m1 J
308. 
     " v. c6 _/ p" A, X. W+ W0 \" X
309. JSR Sund_Bank_Init
     
310. 
     
311. JSR Music_Show
     
312. JSR Time_Show
     
313. JSR Music_Stata_Show
     
314. JSR Time_Delay
     
315. 
     
316. 
     ) e; z( }1 x1 n) Q$ w
317. LDA #$80
     
318. STA PPU_CTRL
     
319. 
     
320. LDA #$20
     * K6 d2 s/ A2 e; c4 n: G$ G
321. STA Time_Wait_Cnt
     
322. 
     ! w" P! v5 ?7 v8 p+ ~) K2 B! q4 C
323. Wait_Time_Over
     3 d' h1 X# L6 D; ~. q
324. LDA Time_Wait_Cnt
     
325. BNE Wait_Time_Over
     * B( I- Q* Z% [4 @' F
326. 
     * T2 D4 i2 z5 O# W
327. LDA #$1F
     1 ]" a* a: n/ a% X, u0 l
328. STA APU_STATUS
     
329. LDA Music_Cur
     
330. JSR Sound_Init
     
331. 
     
332. JMP MainLoop
     5 z2 x& m  F7 y7 p+ }* I
333. 
     
334. ;==============================
     
335. Time_Delay;延时等待
     ) v$ G; D8 O4 ?8 Z1 a
336. LDA PPU_STATUS
     
337. BPL Time_Delay
     
338. RTS
     
339. 
     2 B6 n" N% x; L3 r# M+ O" w$ S
340. ;==============================
     * j: n) Z- b5 R
341. VramInit;初始化图形内存
     
342. LDA #CHR_DATA_BANK
     
343. JSR SwitchBankA000
     
344. LDA #LOW(CHR_DATA_ADDR)
     
345. STA <Data_L
       l. d4 L5 n' }) e. K0 S- t  e$ Q
346. LDA #HIGH(CHR_DATA_ADDR)
     5 T$ a& h) D7 i, Q) l4 p9 n, G
347. STA <Data_H
     ' @: @% p, b' G$ G5 [
348. LDY #$00
     ' g- H# u6 @$ O! Q& ~
349. LDX #$20
     
350. LDA #$00
     
351. STA PPU_ADDRESS
     
352. STA PPU_ADDRESS
     
353. VramInitWrite
     
354. LDA [Data_L],Y
     
355. STA PPU_DATA
     
356. INY
     
357. BNE VramInitWrite
     
358. INC Data_H
     3 l1 q, M! E4 i6 u9 {# Q* z
359. DEX
     
360. BNE VramInitWrite
     
361. RTS
     - J: [: K" }5 P, B* G7 |! g0 U; f$ `
362. 
     8 C; h9 ]* F+ b  v& Y* j
363. ;==============================
     , W7 c0 h6 T) ^2 P
364. RAM_Clear;RAM清除
     3 H& A. e# H4 N+ M
365. LDX #$00
     
366. LDA #$00
     
367. RAM_Clear_1
     
368. STA RAM_Cln_1,X
     
369. INX
     0 C  M+ F' R! e$ F/ K( W, I
370. CPX #RAM_Cln_1_Size
     1 l5 u; U$ c, o# I1 q4 ?
371. BNE RAM_Clear_1
     
372. LDX #$00
     
373. RAM_Clear_2
     
374. STA RAM_Cln_2,X
     
375. INX
     ! Q% s4 b4 T: _4 D9 \
376. CPX #RAM_Cln_2_Size
     
377. BNE RAM_Clear_2
     
378. LDX #$00
     8 r6 F# `$ [7 h$ a
379. RAM_Clear_3
     * k7 f1 k2 q/ G
380. STA RAM_Cln_3,X
     
381. INX
     , U3 p2 p6 D# v
382. CPX #RAM_Cln_3_Size
     5 E: f; K4 t. d6 x
383. BNE RAM_Clear_3
     
384. RTS
     
385. 
     
386. ;==============================
     
387. ;音乐切换
     
388. Music_Switch
     
389. JSR Key_Proc
     
390. LDA Key_Once
     
391. CMP #$10
     
392. BNE Music_Start_SongStop
     
393. JSR Music_ReSet
     & U8 c" [/ y7 n" b! ~
394. 
     
395. ;音乐停止
     
396. Music_Start_SongStop
     
397. LDA Key_Once
     8 Q8 a* g$ k  e6 E3 O
398. CMP #$20
     
399. BNE Music_arrow
       m. J+ }' K# W" ?
400. LDA #$01
     : u& }' o! M2 z8 ^3 Y! l$ ]. T
401. STA Music_State
     
402. JSR Music_Bar_ReSet
     8 ]$ N' R* Y9 b$ w' y7 y
403. JSR Time_ReSet
     
404. JSR RAM_Clear
     2 V: D  U" X# h8 `
405. JSR Sound_Clear
     + a/ z7 w: b. S0 E6 h2 ^) u& x6 U
406. JSR Music_Stata_Show
     ) {/ H9 ~' {) N- X4 m6 O4 G2 V' `
407. Music_arrow
     ( \+ \, ?$ [- e  A
408. LDA Key_Once
     6 u# y# G1 q- T7 ]
409. AND #$CF
     
410. BEQ Music_Switch_End
     / s# x: G- X( g& C
411. JSR Music_Number
     8 m1 c3 C0 P+ R0 r/ z( p: A
412. JSR Music_ReSet
     
413. JSR Music_Show
     
414. Music_Switch_End
     
415. RTS
     
416. 
     
417. ;==============================
     " t5 H+ F1 Q( a
418. ;音乐曲目切换
     
419. Music_Number
     
420. LDA Music_Cur
     . g" Q8 x+ y$ M' A3 [/ u
421. STA Music_Last
     
422. Music_Decrease
     $ ?% y8 |0 R: R7 h4 A8 t9 |
423. LDA Key_Once
     
424. AND #$42
     
425. BEQ Music_Increase
     3 M! `6 c/ ^  `- g, T! Q
426. LDA Music_Cur
     
427. BEQ Music_Increase
     
428. DEC Music_Cur
     
429. Music_Increase
     
430. LDA Key_Once
     
431. AND #$81
     
432. BEQ Music_Decrease_10
     + ~2 Q4 K8 k! C: u
433. LDA Music_Cur
     
434. CMP #Music_Song_Total-01
     6 y9 z8 f8 w; g
435. BCS Music_Decrease_10
     & B- C$ J* N% ]6 j
436. INC Music_Cur
     
437. Music_Decrease_10
     4 r5 F6 z5 K1 J4 u8 `
438. LDA Key_Once
     
439. CMP #$04
     
440. BNE Music_Increase_10
     
441. LDA Music_Cur
     : f8 d. [7 ]# c
442. CMP #10
     
443. BCC Music_Start_Song_Min
     0 t' q% k6 N+ N. U5 y+ `( }0 y! m
444. LDA Music_Cur
     
445. SEC
     # Q" I0 S  l, e  ]% v- D8 B
446. SBC #10
     
447. STA Music_Cur
     
448. LDA #$00
     
449. BEQ Music_Increase_10
     2 C) E  k1 Y- P2 {
450. Music_Start_Song_Min
     5 Q9 z8 W  d! h# f
451. LDA #$00
     ; V3 O! X# F, v4 u% c" ^
452. STA Music_Cur
     
453. Music_Increase_10
     " j- q: v; T7 Y1 Q  G) |
454. LDA Key_Once
     
455. CMP #$08
     
456. BNE Music_Number_End
     
457. LDA Music_Cur
     
458. CLC
     / T% _+ |! e' W7 c; y- O. S
459. ADC #10
     
460. CMP #Music_Song_Total-01
     3 Q7 l; \# x& |- T8 o
461. BCS Music_Start_Song_Max
     
462. STA Music_Cur
     ! a: y; s$ C( y0 R, W! `- j3 w
463. LDA #00
     $ I1 U) W9 G; O, ]: m
464. BEQ Music_Number_End
     
465. Music_Start_Song_Max
     
466. LDA #Music_Song_Total-01
     
467. STA Music_Cur
     
468. Music_Number_End
     % G" |" S7 s; b2 @& j% F& Q) \
469. RTS
     
470. 
     + I" j, \" |: g( L+ r
471. ;==============================
     % v8 f: f5 Z  p: j3 S# I" R
472. ;音乐重设
     1 ~) K3 l$ D2 q& ?
473. Music_ReSet
     1 W: P; O0 d1 u: b' z
474. JSR RAM_Clear
     
475. JSR Sound_Clear
     
476. LDA #$1F
     $ w* [! S, D3 \4 {2 Z9 j
477. STA APU_STATUS
     
478. LDA Music_Cur
     
479. JSR Sound_Init
     
480. RTS
     / h$ p% Q/ X( h$ u; G
481. 
     " f$ `! ?+ x1 n2 {+ p+ y
482. ;==============================
     . `: \0 y/ U& h5 p. l, d2 i( i
483. ;音乐端口清除
     1 u  U1 y; q  N, p3 a4 f3 O$ w3 s, Y
484. Sound_Clear
     ! S2 q8 c2 p/ p1 r* J: R9 d
485. LDA #$00
     
486. STA APU_STATUS
     
487. LDX #$00
     
488. Sound_Clear_Start
       `/ C7 ?  n5 C: `
489. STA $4000,X
       A) g& Y! M% ~
490. INX
     
491. CPX #$14
     
492. BCC Sound_Clear_Start
     2 P# U- a6 m' t
493. RTS
     
494. 
     
495. ;==============================
     ) n; Z5 B; h, z9 @* l/ y2 d/ h
496. ;按键处理
     
497. Key_Proc
     
498. JSR Key_Scan
     
499. LDA Key_Keep
     ! p* s# n, {+ Q7 }5 ^) C
500. STA Key_Temp
       a% H4 ?. d  y" f0 R% I
501. JSR Key_Scan
     , C. n9 W% {, P' Q
502. LDA Key_Keep
     
503. CMP Key_Temp
     ; j0 \1 W) ^* B" K
504. BEQ Key_Get_Once
     - o5 J# Z  Y" ~: |& `+ x* m
505. LDA Key_Kemp
     7 D8 ]" A. U+ c2 {
506. STA Key_Keep
     
507. Key_Get_Once
     
508. TAY
     7 t& l- q5 H- }* p* ]$ B1 O6 x2 Q4 u
509. EOR Key_Kemp
     9 P9 |2 i; z  b& F
510. AND Key_Keep
     
511. STA Key_Once
     7 S% l% P  z; @  I2 z' F
512. STY Key_Kemp
     6 Z* M6 x7 O$ g9 E8 N. g  R' i
513. RTS
     6 n5 a8 K7 P. I) c* y8 D" _
514. ;------------------------------
     6 C( r; J, D; [2 m& w0 R/ M
515. ;按键扫描
     " @  ]3 l  ^4 p! ?9 p4 }
516. Key_Scan
     
517. LDX #$01
     
518. STX JOY1_FRAME
     
519. DEX
       F! B* s$ \+ a
520. STX JOY1_FRAME
     
521. LDX #$08
     8 p$ V6 U' Y0 [/ \
522. Key_Value
     ' u$ \& n+ A" q* Y% u
523. LDA JOY1_FRAME
     : A1 D9 }0 m& {5 U
524. STA Key_Getv
     
525. LSR A
     " ]1 R) L2 {- Y" }  [, ^
526. ORA Key_Getv
     
527. LSR A
     6 s5 j7 i: A' F9 |: A$ p2 q1 [
528. ROL Key_Keep
     
529. DEX
     5 @' G. _2 d2 s7 H# K5 Q# p9 S/ x
530. BNE Key_Value
     7 C( C8 K4 \, G" t0 a- n) S
531. RTS
     1 n# }, \' [: |
532. 
     
533. ;==============================
     
534. .IF SOUND_BAR_SHOW_ENABLE
     
535. ;音乐条显示
     & p# o* Z( I) |! e  w
536. Music_Vision
     
537. JSR Music_Animation
     - i4 ]4 [- ~" u
538. JSR PPU_End
     2 Z, m3 \- V3 t1 B$ V, |& q0 y
539. RTS
     0 s# S4 X# A1 ?
540. ;------------------------------
     
541. ;音乐条显示处理
     $ W$ ~9 F7 N' Q3 F9 B5 N& o
542. Music_Animation
     % q4 K' e7 O( z, j8 ?, L8 i
543. LDX PPU_Cur
     
544. LDA #Mode_Line
     9 W; e3 I9 N5 {4 Q+ A
545. STA PPU_Addr,X
     : H* z; }) O$ r, q! c% H! q
546. INX
     
547. LDA #HIGH(Sound_Bar_Pos)
     / k) j) G8 D8 q4 A" u: n
548. STA PPU_Addr,X
     
549. INX
     , R; R( v  U: Y8 N( h
550. LDA #LOW(Sound_Bar_Pos)
     
551. STA PPU_Addr,X
     - A# f. @$ F7 {4 _
552. INX
     ' C4 E" ]1 K# J
553. LDA Sound_Bar
     
554. JSR Volume_Convert
     : }$ j$ W$ `  e* q
555. JSR PPU_Return
     
556. LDA Sound_Bar+$4
     9 o8 b  R: ]: T8 K# W9 T. @0 L+ {
557. JSR Volume_Convert
     , C0 A3 G4 ]* r, G6 u5 {0 y
558. JSR PPU_Return
     
559. LDA Sound_Bar+$8
     
560. JSR Volume_Convert_Ex
     $ h8 o* g! H7 m  c/ P
561. JSR PPU_Return
     3 ?- _2 ~3 o! q! X; {) D; V
562. LDA Sound_Bar+$C
     
563. JSR Volume_Convert
     - Q3 j% i. S& N$ G9 ]
564. JSR PPU_Return
     
565. LDY #$10
     % o0 {2 a2 m8 [
566. LDA APU_STATUS
     
567. AND #$10
     - ]1 r8 k5 ^# W' K
568. BNE Volume_Count
     4 `' t' B" o/ H9 i* r% w) J; t
569. LDY #$00
     
570. BEQ Volume_Count
     
571. ;------------------------------
     
572. ;音乐条处理
     
573. Volume_Convert_Ex
     ; y9 |# U- i( B; \  n# x) f
574. AND #$1F
     7 H- c+ @' |/ i, ~. W# z+ n
575. TAY
     8 y  Q2 t! i! E- w. R: v
576. BNE Volume_Count
     
577. Volume_Convert
     8 _5 j* f4 f% B2 u
578. AND #$0F
     
579. TAY
     
580. Volume_Count
     
581. LDA #$08
     6 d9 t; w; W, T, S: {# f
582. STA Sound_Bar_Cnt
     - a3 }) ?% ^7 K. w
583. Volume_FILL
     ) r8 ?) K& y$ c5 m! [$ w
584. DEY
     
585. BEQ Volume_Half
     % R6 {+ Y3 s6 u8 ^
586. BMI Volume_Empty
     
587. DEY
     
588. Volume_Full
     
589. LDA #$16
     
590. BNE Volume_PPU
     
591. Volume_Half
     ( M- H0 m. ]; F, Q/ v( c/ K
592. LDA #$15
     6 [; n5 x3 e8 X' }$ j
593. BNE Volume_PPU
     
594. Volume_Empty
     & x( e$ d( ?0 s. ~( ]# y% t: \& _2 U
595. LDA #$14
     . Q" J' d7 Z5 p
596. Volume_PPU
     
597. STA PPU_Addr,X
     ! t7 J* b5 w  l+ E+ }+ e4 _
598. INX
     
599. DEC Sound_Bar_Cnt
     
600. BNE Volume_FILL
     
601. RTS
     
602. 
     
603. .ENDIF
     " p& {, r, ]2 x0 O+ a
604. 
     ( {! ]6 s" S7 j$ G; g# r
605. ;==============================
     1 g9 @  w- J% M* O6 x" x
606. PPU_Addr_Set;PPU行开始
     
607. LDX PPU_Cur
     & x8 k2 K8 P2 L
608. LDA #Mode_Line
     # j4 Y+ _: o' ^, p  N) ~
609. STA PPU_Addr,X
     + s/ G0 G0 L2 k# |
610. INX
     ) D) W6 `" x. |1 E: E. [" o
611. RTS
     
612. 
     
613. PPU_Return;PPU转行
     
614. LDA #Flag_Over
     ( F! J7 E5 v3 A. U
615. STA PPU_Addr,X
     
616. INX
     : ~4 i7 N/ u1 }" q0 t) G
617. LDA #Mode_Return
     + e( u8 Q7 Y4 F8 u! n4 ?& s, k
618. STA PPU_Addr,X
     & q0 ]/ E2 T; A" O/ o. q
619. INX
     # ^9 [  m/ E/ n4 q" A7 }5 D
620. RTS
     5 o) c. A8 X- k% W
621. 
     
622. ;------------------------------
     
623. PPU_End;PPU结束
     
624. LDA #Flag_Over
     # L" Q( Z, V( Y/ U" u: r
625. STA PPU_Addr,X
     3 M( `. F/ O5 w! n0 R
626. INX
     * y8 b5 E% [9 l! g3 x& b2 }9 q% p
627. STX PPU_Cur
     
628. RTS
     1 c5 ~* w1 D; r2 t7 I  h
629. ;==============================
     
630. Mode_Line     = $FD    ;新起行模式
     ; g  L: G, E; A" s% q
631. Mode_Return   = $FE    ;转下行模式
     
632. Mode_Clear    = $FC    ;行清除
     0 s1 a, p8 Y$ B( H
633. Mode_CntLine  = $FB    ;行计数写入
     
634. Flag_Over     = $FF    ;行结束标志
     
635. 
     9 p& ]7 }: x& }
636. ;------------------------------
     ; D8 Z' \- ~$ Y! v
637. ;PPU处理
     
638. PPU_Proc
     
639. LDX PPU_Cur
     
640. LDA #$00
     
641. STA PPU_Cur
     6 R7 o6 x# V  B$ D1 ?7 [# u
642. STA PPU_Addr,X
     
643. LDA PPU_Addr
     
644. BNE PPU_Proc_Beg
     8 S9 r9 N" u9 \, k" U2 G5 ^! v
645. PPU_Proc_Ret
     
646. RTS
     
647. ;------------------------------
     
648. PPU_Proc_Beg  ;处理开始
     . M7 y2 ]) J7 Y  ?( f+ h) \8 h
649. LDX #$00
     
650. STX PPU_MASK
     
651. ;------------------------------
     2 v- `; t5 L. i# p6 U5 d. L6 a% n
652. PPU_Mode_Select  ;模式选择
     / H3 M5 j9 k  h6 f- J+ z2 ~
653. LDA PPU_Addr,X
     
654. CMP #Mode_Line
     
655. BEQ PPU_Mode_Newline
     * s  l2 w$ e4 |* |% Z
656. CMP #Mode_Return
     ( l& M0 f+ p9 f& m
657. BEQ PPU_Mode_Return
     
658. CMP #Mode_Clear
     ' H1 k- H% y0 d* ?* }
659. BEQ PPU_Proc_Clear
     - j2 u3 o7 G( [& I4 q8 c* G" g4 L
660. CMP #Mode_CntLine
     9 e+ L, O6 `8 l$ F- r
661. BEQ PPU_Proc_Cnt_Line
     
662. RTS
     
663. ;------------------------------
     
664. PPU_Mode_Return  ;转下行模式
     
665. LDA PPU_Addr_L
     4 W+ R( P  `* x  t3 k
666. CLC
     " H/ x5 S+ n6 V
667. ADC #$20
     
668. STA PPU_Addr_L
     
669. BCC PPU_Return_End
     
670. INC PPU_Addr_H
     7 }& ]' ]! ^4 S$ `
671. PPU_Return_End
     + F3 G4 e/ w9 C" o! _8 @* y
672. JMP PPU_Set_Increaser
     
673. ;------------------------------
     1 V- |2 B. f6 E1 j
674. PPU_Mode_Newline  ;新起行模式
       ]! I4 H" d7 H% F* {: Z7 R
675. INX
     , u$ H/ c! K6 y, _- M3 M0 {
676. LDA PPU_Addr,X
     4 e4 t2 @: Y. p- y
677. STA PPU_Addr_H
     
678. INX
     
679. LDA PPU_Addr,X
     % Z: K# ^8 C' z
680. STA PPU_Addr_L
     - f- A7 V2 h! I/ r5 _. |0 Z
681. ;------------------------------
     
682. PPU_Set_Increaser   ;设置写入地址
     
683. LDA PPU_Addr_H
     
684. STA PPU_ADDRESS
     1 m' ^' T- O. J$ x4 M
685. LDA PPU_Addr_L
     
686. STA PPU_ADDRESS
     
687. ;------------------------------
     
688. PPU_Write   ;写入数据
     7 w1 K# b0 _3 z" f: W9 B+ [
689. INX
     1 h4 F8 h" W, X2 \. I( b
690. LDA PPU_Addr,X
     
691. CMP #Flag_Over
     
692. BEQ PPU_Proc_End
       x4 u4 z7 J7 C( g
693. STA PPU_DATA
     
694. JMP PPU_Write
     3 P4 n* A3 @0 G- b6 c/ M
695. ;------------------------------
     
696. PPU_Proc_End  ;单行写入结束
     ! F5 V/ m' x* P' _
697. INX
     
698. LDA PPU_Addr,X
     ; v4 G+ G& x- y5 H( {
699. BNE PPU_Mode_Select
     
700. STA PPU_Addr
     
701. JSR Update_Palette_Color
     
702. LDA #$00
     & r: O. S4 S( u$ [( O
703. STA PPU_ADDRESS
     , w8 ?1 q8 Y0 @/ B9 C0 a1 L) U
704. STA PPU_ADDRESS
     ( e$ L2 b+ W; d
705. STA Show_Track_Name
     
706. LDA #Scroll_X
     7 p2 f. \+ L+ u. K$ g
707. STA PPU_SCROLL
     
708. LDA #Scroll_Y
     
709. STA PPU_SCROLL
       h$ K# g1 [2 n& [
710. LDA Screen_State
     4 @; J8 b3 j- |3 ?1 x4 D) L
711. STA PPU_MASK
     & l, w  b  O' S6 t
712. RTS
     0 D/ j  @+ |* V7 t# a3 |, l
713. 
     
714. PPU_Proc_Clear
     0 P9 `4 G7 \/ p2 ~5 F
715. INX
     
716. LDA PPU_Addr,X
     ! Q" s4 W2 c* X# S2 L3 F
717. STA PPU_ADDRESS
     : P# L8 \5 w" h0 R: r# J# Y
718. INX
     9 l2 d7 _4 s, h, ]8 R
719. LDA PPU_Addr,X
     
720. STA PPU_ADDRESS
     
721. INX
     4 Q3 S2 z+ w7 N% ]
722. LDY PPU_Addr,X
     
723. LDA #$00
     8 G# A7 w  [/ R% J
724. PPU_Proc_Clear_Write
     
725. STA PPU_DATA
     
726. DEY
     % Q' J: V7 @2 z% J
727. BNE PPU_Proc_Clear_Write
     / x# ]/ c2 K5 S2 @7 t- s
728. JMP PPU_Proc_End
     $ E# c; o( a6 Y6 }. a  [0 ~
729. 
     
730. PPU_Proc_Cnt_Line
     
731. INX
       M* c, T, q# J
732. LDA PPU_Addr,X
     
733. STA PPU_ADDRESS
     / F4 _" N( F. n+ x% U
734. INX
     
735. LDA PPU_Addr,X
     
736. STA PPU_ADDRESS
     + u) C  p- `/ D
737. INX
     
738. LDY PPU_Addr,X
     
739. PPU_Proc_Cnt_Line_Write
     
740. INX
     8 ?. }+ P  O& t" x+ b2 I9 f9 h, \. y
741. LDA PPU_Addr,X
     
742. STA PPU_DATA
     
743. DEY
     
744. BNE PPU_Proc_Cnt_Line_Write
     , `- ~' m5 d. o
745. JMP PPU_Proc_End
     6 Y8 x. R3 d( @2 W; N. D
746. 
     
747. ;==============================
     ) y* g2 {+ e/ q5 _2 n# q' s# Q% N) `! p
748. HEX_To_Dec;十六进制转十进制
     
749. STA HEX_Data
     
750. PHA
     
751. TXA
     
752. PHA
     
753. LDX #$00
     
754. LDA #$00
     : E* |5 d  t1 U& n3 ?0 c
755. HEX_Cln
     ; I# w% Q0 n' |* k, }( ~
756. STA DEC_H,X
     / @' U( I3 ]  L) h6 i* m7 g
757. INX
     
758. CPX #$03
     & B( n: a4 O3 p# r8 o" W; k& ~
759. BCC HEX_Cln
     
760. LDA HEX_Data
     
761. ;------------------------------
     * c4 ~) L5 Y0 k+ C+ Q1 n% x8 D+ T
762. HEX_100
     
763. CMP #100
     
764. BCC HEX_10
     
765. SEC
     
766. SBC #100
     
767. INC DEC_H
     ( ]0 j2 |  O; g+ B$ x3 n
768. BNE HEX_100
     : i( P: q6 _" i2 }/ t4 c, c
769. ;------------------------------
     7 v6 M$ m& G7 f- Q- Y. _
770. HEX_10
     8 D: @5 X/ n# ~5 L2 l  f! i
771. CMP #10
     
772. BCC HEX_1
     
773. SEC
     
774. SBC #10
     
775. INC DEC_T
     
776. BNE HEX_10
     / J4 v! z( ^$ W5 L
777. ;------------------------------
     " t$ g& \1 t6 d  |
778. HEX_1
     
779. STA DEC_L
     4 \& \  p# b% {6 y) i
780. PLA
     + o$ L9 A4 @/ C. R# S; U/ o( Q
781. TAX
     
782. PLA
     
783. RTS
     
784. 
     2 E0 ]* P' W( ]& z: n
785. ;==============================
     2 ]& S/ n0 m( K; I# G
786. ;音乐曲目显示
     
787. Music_Show
     ) y- T  S5 D/ `  }% S
788. LDA Music_Cur
     
789. CLC
     5 ]5 }* a; f2 c' {
790. ADC #$01
     
791. JSR HEX_To_Dec
     ' T; K3 i2 Y$ O- D# j' L2 w; M
792. LDX PPU_Cur
     
793. LDA #$FD
     
794. STA PPU_Addr,X
     
795. INX
     
796. LDA #HIGH(Play_Index_Pos)
     # z/ j! G0 A- ^6 a5 s6 |1 F
797. STA PPU_Addr,X
     / v. i2 Q) }* f  ]. s3 Y. O
798. INX
     " u, [4 ]  S/ v: s$ b( q
799. LDA #LOW(Play_Index_Pos)
     & b/ K, |) c+ v7 A( p6 i
800. STA PPU_Addr,X
     
801. INX
     ' A. a/ k6 s; T" z; _, g
802. 
       w1 G4 }! ~0 g
803. .IF Music_Song_Total > 99
     
804. LDA DEC_H
     
805. ORA #$30
     
806. STA PPU_Addr,X
     * i6 D& W- E2 v) H: v9 U; W) W
807. INX
     
808. .ENDIF
     . \1 Y9 N* x( y( O9 V
809. 
     4 E2 h5 j. A: L0 g, A
810. .IF Music_Song_Total > 9
     , n% z/ z* J! f( M6 y1 {( ]2 w5 H
811. LDA DEC_T
     ) s, s: X; B+ O
812. ORA #$30
     8 ?# y' U2 N1 `% P$ n3 q% r& H8 a
813. STA PPU_Addr,X
     
814. INX
     6 E2 E: k* j6 ~. |
815. .ENDIF
     % {: k) `2 a4 S
816. 
     
817. LDA DEC_L
     
818. ORA #$30
     
819. STA PPU_Addr,X
     2 a8 _, N, R6 h( _" r/ A
820. INX
     % X* q, D+ ]. h; w/ Z$ B& i
821. 
     8 _3 K; n; B, u: z$ Q
822. LDA #'/'
     2 g( l/ j4 N8 T
823. STA PPU_Addr,X
     
824. INX
     
825. Music_Show_Total
     
826. LDA #Music_Song_Total
     
827. JSR HEX_To_Dec
     - h+ z% \: Y9 N0 A9 h( {5 \0 M
828. 
     3 _6 s: F7 ^. e
829. .IF Music_Song_Total > 99
     * R! _1 `* a' w% R) `
830. LDA DEC_H
     $ ?4 Y( \* u/ s+ G; b
831. ORA #$30
     
832. STA PPU_Addr,X
     
833. INX
     ' m( T  R$ }$ s  X7 S; X; y
834. .ENDIF
     3 C+ w; _- l+ _  W7 W. _, d( R
835. 
     
836. .IF Music_Song_Total > 9
     9 e" z0 j/ t. C$ N# c
837. LDA DEC_T
     
838. ORA #$30
     7 [& f8 u  T  i/ X4 h% z! w
839. STA PPU_Addr,X
     ( G/ x. Q& l9 \
840. INX
     # e! K6 p. s: z$ ]+ t( A
841. .ENDIF
     
842. 
     9 b" \& p! S* B& f" E
843. LDA DEC_L
     
844. ORA #$30
     
845. STA PPU_Addr,X
     ; V4 A) Q: {) x5 x9 ^' G% `  {4 @
846. INX
     2 v8 E) r, s6 ]- Z- ]. f  B
847. 
     
848. JSR PPU_End
     
849. Music_Show_End
     : _5 y% Y5 ?. L( a. U1 s
850. RTS
     8 n' f: ~" [" ^+ \2 t5 E2 H
851. 
     
852. ;==============================
     
853. Time_Show;播放时间显示
     1 V3 S. T0 o+ p4 ^9 [$ X% N" s% j1 S
854. JSR PPU_Addr_Set
     1 b: V% {) Y& j7 M/ F- ]  M$ x
855. LDA #HIGH(Play_Time_Pos)
     % E9 `2 a& t% g: M0 n
856. STA PPU_Addr,X
     
857. INX
     3 M* y% q0 T2 O1 o9 z. N2 J& k& L6 D
858. LDA #LOW(Play_Time_Pos)
     
859. STA PPU_Addr,X
     + @) q$ T; B) C7 _! j+ r
860. INX
     7 i4 U3 I! |$ n0 _3 E2 O2 }6 W; ?' }
861. Time_Show_H
     
862. LDA Time_H
     
863. JSR HEX_To_Dec
     
864. JSR Time_Digit
     
865. LDA #':'
     
866. STA PPU_Addr,X
     + O4 h$ Q4 @9 |5 V5 W) C3 J
867. INX
     " q: Z( K2 v+ B0 J" L; Z
868. Time_Show_M
     
869. LDA Time_M
     $ }! I. d) W- C- T- z  @
870. JSR HEX_To_Dec
     
871. JSR Time_Digit
     9 [. p, U1 g; o" f8 Y5 Y0 s- h7 N
872. LDA #':'
     
873. STA PPU_Addr,X
     $ o7 {* n& e, A" x( D$ z
874. INX
     7 [. t/ ?+ B/ t1 ], w" G9 ?
875. Time_Show_S
     
876. LDA Time_S
     
877. JSR HEX_To_Dec
     
878. JSR Time_Digit
     
879. JSR PPU_End
     , m/ @1 q! Z, Q2 P8 v
880. Time_Show_End
     ) F, I; y! A: j9 j4 V0 x
881. RTS
     
882. 
     
883. Time_Digit
     / a# I. O' c. X  u
884. LDA DEC_T
       T$ p) X  o) Q# z2 S2 u0 N; h6 ^
885. ORA #$30
     
886. STA PPU_Addr,X
     
887. INX
     
888. LDA DEC_L
     
889. ORA #$30
     
890. STA PPU_Addr,X
     
891. INX
     1 Y& }7 f' V! x7 Z& j
892. RTS
     
893. 
     4 O. B* r7 \- N
894. ;==============================
     
895. Time_Count;计时
       w. b: i% C. w$ ^0 E3 Q
896. LDA Music_State
     * {( z( B  C: u
897. ORA Time_Wait_Cnt
     
898. BNE Time_Count_End
     ; p+ J- L/ @6 i/ z& G' e2 c
899. INC Time_Cnt
     
900. LDA Time_Cnt
     
901. CMP #60
     7 a9 F: a+ V" J" `2 R
902. BCC Time_Count_End
     
903. LDA #00
     
904. STA Time_Cnt
     
905. INC Time_S
     
906. 
     
907. Time_S_Cnt
       S' K1 i$ r1 X9 [) p4 R
908. LDA Time_S
     
909. CMP #60
     
910. BCC Time_Count_End
     
911. LDA #00
     
912. STA Time_S
     
913. INC Time_M
     $ ^8 h3 I% o$ V. a; c4 r6 P1 ^+ E8 ~* w
914. 
     6 V9 J& e# {2 s3 v, o
915. Time_M_Cnt
     5 e; y- @; {& C2 b# Z! x7 ]
916. LDA Time_M
     3 A, M* y. M4 t* Q/ m( J
917. CMP #60
       L. d/ C7 g6 [- Y* v" M
918. BCC Time_Count_End
     ' d- x! K8 h! {" N. n4 X7 Q& n
919. LDA #00
     
920. STA Time_M
     3 f" @% P& V" ^6 N" t1 ?$ d4 T1 _
921. INC Time_H
     
922. 
     + ?8 R+ W" {6 x7 @. e) f
923. Time_H_Cnt
     
924. LDA Time_H
     : W$ A. I) m2 v& `
925. CMP #24
     ! e6 J3 Z5 ?* W
926. BCC Time_Count_End
     
927. LDA #00
     3 a8 p! A. x* g
928. STA Time_H
     
929. 
     
930. Time_Count_End
     
931. RTS
     - a* e! p! J  r' d2 W( H3 i
932. 
     5 |( s' u4 s# d* Q
933. ;==============================
     
934. Time_ReSet;播放时间重置
     
935. LDA #$00
     
936. STA Time_S
     4 c- ~; X! I- e8 n, A) P
937. STA Time_M
     ) A% n1 d5 Y% Q
938. STA Time_H
     0 R; u3 x  r1 R; v/ @
939. STA Time_Cnt
     
940. RTS
     
941. 
     : G4 Q) H4 ~6 L  N
942. ;==============================
     
943. Music_Bar_ReSet;音乐条重置
     . |, N9 G6 T7 K: n* l2 T
944. LDA #$00
     ! Q* g/ P) Z3 k1 ]4 R
945. LDX #$00
     
946. Music_Bar_ReSet_Set
     5 C. u+ [: f) r2 F- T- k8 ?7 ^6 r5 m
947. STA Sound_Bar,X
     
948. INX
     
949. CPX #$10
     
950. BCC Music_Bar_ReSet_Set
     
951. RTS
     
952. 
     9 Z: {: [" I# o
953. ;==============================
     ) w# N; z& h+ s! G* E3 H
954. PPU_Data;PPU数据写入
     0 Z8 B* J" s0 \) A4 A! o# S( e7 o
955. STY Data_L
     
956. STX Data_H
     * Q& O5 f; _) T: p/ n) X4 t( H! J
957. LDY #$FF
     3 K$ ?, P9 ~/ @+ I% ~' R
958. LDX PPU_Cur
     : r/ |# B4 K! ?. t7 D
959. DEX
     / `7 t! d& Q3 O; u
960. PPU_Data_Beg
     / y& ]1 t# c- a! [& Z# T7 K
961. INX
     2 G3 v; ^  z% q$ \- e3 j
962. INY
     + g2 O  Z% u. v  u! q: u" x% H- L
963. LDA [Data_L],Y
     ' B" F0 |8 F' q& |
964. STA PPU_Addr,X
     
965. BNE PPU_Data_Beg
     ) e6 }8 O4 c/ ?) h: E; j
966. STX PPU_Cur
     
967. PPU_Data_End
     ! U3 S/ ]. A, A* S) e
968. RTS
     
969. 
     ; t$ i$ I1 L4 |4 ]: ~
970. ;==============================
     / u2 _" q( B9 T/ V- v: {
971. Music_Stata_Show;播放状态显示
     
972. LDA Music_State
     6 O7 ~/ W6 u, Q& s( W
973. BEQ Music_Stata_Show_Play
     * k! d2 @5 Q* I' T" U
974. Music_Stata_Show_Stop
     & J! Z: v! Q& g6 B' @' X( H6 u
975. LDY #LOW(Music_State_Stop)
     6 D6 u: |+ G) G
976. LDX #HIGH(Music_State_Stop)
     
977. JSR PPU_Data
     
978. RTS
     , `6 K" w% Q8 e
979. Music_Stata_Show_Play
     
980. LDY #LOW(Music_State_Play)
     , b2 J$ `( V, L& b5 ^3 Y
981. LDX #HIGH(Music_State_Play)
     - ^7 v" }& o* t
982. JSR PPU_Data
     2 w2 K, A, N$ Y& e
983. RTS
     
984. 
     
985. .IF SOUND_BAR_SHOW_ENABLE
     & L* e' r2 I4 w6 P) ]) n
986. ;==============================
     
987. Sound_Bar_Text_Set;标题与音乐条初始化
     
988. LDY #LOW(Sound_Bar_Text_Data)
     # U. W+ y& ?) ^1 j, T, l& u
989. LDX #HIGH(Sound_Bar_Text_Data)
     8 W2 e/ o" R- L- T
990. JSR PPU_Data
     5 e. b3 v+ X2 w, G) Q
991. RTS
     3 m2 Y" d+ t! Q5 ?  {- f
992. 
     
993. .ENDIF
     
994. 
     2 b" X% C7 K8 v  O1 _
995. ;==============================
     * g4 {  w' @- w+ B8 H+ V8 T' F$ c
996. Set_NameTable_Attributes;设置命名表属性
     
997. LDA PPU_STATUS
     0 `& g  C4 i; V2 u- ?( A- r
998. LDA #$23
     
999. STA PPU_ADDRESS
     
1000. LDA #$C0
      
1001. STA PPU_ADDRESS
      
1002. LDX #$00
      ; }' c+ Q! ]: k9 w# t) ]1 w5 C2 j
1003. Set_NameTable_Attributes_Write
      
1004. LDA Palette_Attributes,X
      : O. s/ l, M4 v! Z
1005. STA PPU_DATA
      
1006. INX
      
1007. CPX #$40
      7 n0 Z6 ~5 \) G: [; J: Z1 [) a6 Y
1008. BCC Set_NameTable_Attributes_Write
      
1009. RTS
      0 Y( d  G! i* l
1010. 
      
1011. ;==============================
      ; M8 |( T- }! I- u: V! o2 Q
1012. Set_Palette_Color;设置调色板数据
      2 b# W( l4 c( y* Z( h3 c% j
1013. LDA PPU_STATUS
      
1014. LDA #$3F
      % w! q4 M; u4 n! h
1015. STA PPU_ADDRESS
      ; f% e# C7 w; y- G9 f
1016. LDA #$00
      0 Z1 V& k4 f# _, G2 I
1017. STA PPU_ADDRESS
      
1018. LDX #$00
      
1019. Set_Palette_Color_Write
      
1020. LDA Palette_Data,X
      # \4 Q9 `* c/ A  I) O2 x2 B* T
1021. STA PPU_DATA
      
1022. INX
      
1023. CPX #$20
      
1024. BCC Set_Palette_Color_Write
      " `, F: J& d9 O! ^4 m6 D
1025. RTS
      . d- j2 {% F" ~& A& Y1 k
1026. 
      ) q2 v( B0 g8 T4 w' v* t' D9 N
1027. ;==============================
      - D" n4 h* L; |! G$ _' }6 \4 t4 Y
1028. Init_Palette_Addr;初始化调色板数据
      ( C' D/ R# [; j- q3 V0 K5 T
1029. LDX #$00
      
1030. Init_Palette_Addr_Write
      ' Y# m# E- e0 R" C5 p- \8 ~0 R
1031. LDA Palette_Data,X
      
1032. STA Palette_Addr,X
      
1033. INX
      
1034. CPX #$20
      % P8 M3 D9 B4 X. w( I6 T$ }
1035. BCC Init_Palette_Addr_Write
      
1036. RTS
      
1037. 
      9 l. _" B4 Z" H4 o  s! H) o
1038. ;==============================
      
1039. Update_Palette_Color;更新调色板颜色
      
1040. LDA Show_Track_Name
      
1041. BNE Update_Palette_Color_End
      
1042. LDA Palette_Update_Flag
      
1043. BEQ Update_Palette_Color_End
      # N7 _5 e( C5 d3 V! h
1044. LDA #$3F
      
1045. STA PPU_ADDRESS
      ' t; A3 C" y' m
1046. LDA #$00
      
1047. STA PPU_ADDRESS
      . @) h* g+ S5 D2 B, ?
1048. LDX #$00
      
1049. Update_Palette_Color_Write
      . Z# v' A/ t: |+ x( o
1050. LDA Palette_Addr,X
      
1051. STA PPU_DATA
      
1052. INX
      7 Q  X' U; W* x4 V* G# G" z
1053. CPX #$20
      
1054. BCC Update_Palette_Color_Write
      / K0 b  Y. ?# P. o2 A# u
1055. LDA #$00
      , ^: \$ T" G) G- ?: \6 V9 j
1056. STA Palette_Update_Flag
      ; N, Y  n+ _9 V: O
1057. Update_Palette_Color_End
      * m$ b: j5 t1 B2 n' ?- q* ]/ U9 c) f
1058. RTS
      1 N' S+ i1 x; a2 k$ F
1059. 
      
1060. ;==============================
      & s7 `- b6 D  g8 ^2 Y. ^9 O
1061. Update_Palette_Data;更新调色板数据
      
1062. LDA Show_Track_Name
      
1063. BNE Update_Palette_Data_End
      
1064. LDA Music_State
      
1065. BNE Update_Palette_Data_End
      + p, W+ ~' b" q' T
1066. Update_Palette_Data_Check
      
1067. LDA Palette_Wait_Cnt
      
1068. BPL Update_Palette_Data_Check_Over
      / M! D! B( A+ K
1069. LDA #Palette_Update_Interval
      
1070. STA Palette_Wait_Cnt
      
1071. Update_Palette_Data_Check_Over
      : [5 h2 Q6 a5 \. Z1 q3 |& ^
1072. DEC Palette_Wait_Cnt
      & u' \& h0 Y9 F
1073. BNE Update_Palette_Data_End
      
1074. INC Palette_Update_Flag
      
1075. LDA #Palette_Update_Interval
      
1076. STA Palette_Wait_Cnt
      
1077. LDA Palette_Update_Addr
      & }& G! H/ q8 ?3 I9 j( |% H
1078. CMP #Palette_Update_Max
      
1079. BNE Update_Palette_Data_Set
      # R) |8 r2 r; A5 m. ~" e  j
1080. LDA #Palette_Update_Min - 1
      ! e  `+ T2 j* y- H6 l" Q# \# _
1081. STA Palette_Update_Addr
      
1082. Update_Palette_Data_Set
      0 m, ]" L3 m1 Q) L$ G1 ^; K
1083. INC Palette_Update_Addr
      
1084. Update_Palette_Data_End
      ' W9 L8 D' S0 a
1085. RTS
      
1086. 
      
1087. ;==============================
      6 `* y7 T8 ~! b4 o
1088. Show_Music_Text;显示静态文本
      
1089. LDX #$00
      
1090. Show_Music_Text_Set
      5 P3 Z& O  M, }3 C% K6 @3 z/ l
1091. LDA Static_Text_Data,X
      3 z' q2 |% k6 K1 ^% E% N- p7 I
1092. STA Data_L
      8 K4 Q% ~" p& x; [2 Q
1093. INX
      ; t$ P9 n. U- t3 I; f; o$ W+ z
1094. LDA Static_Text_Data,X
      4 x3 Q2 L1 i3 r# F3 d; X2 T' E
1095. STA Data_H
      $ G5 O* K/ g% ^" B
1096. INX
      . e) H# O0 K, Z
1097. LDY #$00
      
1098. LDA [Data_L],Y
      
1099. STA Data_Cnt
      
1100. DEX
      9 B: z' q+ F* D! m  ^5 w. n: v. B- C5 n
1101. DEX
      
1102. LDA Static_Text_Pos,X
      / F; d; j3 b, V
1103. STA PPU_ADDRESS
      
1104. INX
      
1105. LDA #$20
      
1106. SEC
      # g. m7 D" _' i- T+ B6 ^" v+ U! u
1107. SBC Data_Cnt
      
1108. LSR A
      ; M5 W# l' v" p# x* ^
1109. STA Data_Buf
      ) q0 }, M1 `6 W' }
1110. LDA Static_Text_Pos,X
      " A- W  e" t3 R3 X9 G
1111. AND #$E0
      
1112. CLC
      
1113. ADC Data_Buf
      . C; `* w7 q9 {7 f1 j* @
1114. STA PPU_ADDRESS
      
1115. INX
      0 [, E4 u, g* _% @+ G& K
1116. Show_Music_Text_Set_Write
      ) j; V1 k% B0 c, z
1117. INY
      7 r" L  W  _# I! N! w& Z! t
1118. LDA [Data_L],Y
      
1119. STA PPU_DATA
      
1120. DEC Data_Cnt
      2 C- ?% M4 a7 l4 r% J* A: u$ k
1121. BNE Show_Music_Text_Set_Write
      2 \: @! S4 M1 E0 ~  Y; ^! [
1122. CPX #Static_Text_Pos_End - Static_Text_Pos
      9 d! Z. B3 Q9 v+ o  C4 z9 |3 Q! T; N
1123. BCC Show_Music_Text_Set
      
1124. RTS
      
1125. 
      4 j6 k6 M6 W# R: H* G3 G: }" f
1126. ;==============================
      # P9 x, l4 b7 d# T$ U
1127. .IF Track_Name_Pos;显示曲目信息
      0 l! ~9 a, ?) U% `9 k9 b
1128. Show_Track_Info
      
1129. INC Show_Track_Name
      
1130. Show_Track_Info_Clear
      
1131. LDX PPU_Cur
      " p3 t+ `: S9 H2 E% d" b
1132. LDA #Mode_Clear
      
1133. STA PPU_Addr,X
      
1134. INX
      8 Q( [, y  Q  D" S# h$ z
1135. 
      
1136. LDA Music_Last
      , W/ m" l4 z% i, @7 n6 D, W+ i
1137. JSR Show_Get_Track_Name_Center_Pos
      9 l0 Y$ \1 z5 H, _, B  a0 H
1138. Show_Track_Info_Write_Cur
      ) Q# I. ?' B1 X) b$ F4 h7 T8 U
1139. LDA #Mode_CntLine
      & e1 ?0 {  A9 b; M9 u+ w
1140. STA PPU_Addr,X
      - H. z9 D" C& x3 G' z2 J6 U* e
1141. INX
      
1142. 
      ! E; [4 |. ?2 {9 S) S( l7 D7 B: }/ d
1143. LDA Music_Cur
      
1144. JSR Show_Get_Track_Name_Center_Pos
      
1145. 
      
1146. Show_Track_Info_Write_Cur_Data
      
1147. INY
      
1148. LDA [Data_L],Y
      
1149. STA PPU_Addr,X
      
1150. INX
        N% y0 ]% O! s# h. q! Q  ^- u+ y
1151. DEC Data_Cnt
      0 d2 `9 h. }+ q" [2 t" @# o
1152. BNE Show_Track_Info_Write_Cur_Data
      / C3 h  |# y2 T) S3 f
1153. Show_Track_Info_End
      ' a7 ^& w8 x- o5 ~# V3 S( ^* J  ~
1154. STX PPU_Cur
      
1155. RTS
      
1156. 
      * `3 [, }' W# o5 z& @2 L
1157. ;==============================
      : _! h1 L( h! ~. x+ n
1158. Show_Get_Track_Name_Center_Pos;获取中间位置
      ' A7 j6 W- l* q4 [. A1 q9 i9 s
1159. ASL A
      
1160. TAY
      
1161. LDA Track_Name_Addr,Y
      
1162. STA Data_L
      
1163. INY
      
1164. LDA Track_Name_Addr,Y
      
1165. STA Data_H
      ; Y( M# B- C; G2 O2 Y! w
1166. LDY #$00
      , k7 \% p' H: y! i
1167. LDA [Data_L],Y
      
1168. STA Data_Cnt
      
1169. LDA #$20
      4 t6 U6 {5 d! G8 X. C. w5 R
1170. SEC
      ' u  U0 ~5 B& M  I/ O. k- U
1171. SBC Data_Cnt
      , Y# x; k/ V8 h; d2 c3 ^
1172. LSR A
      " V, q! {6 N/ Z0 Z
1173. STA Data_Buf
      ! W4 p9 \0 F  d& O2 N
1174. LDA #HIGH(Track_Name_Pos)
      
1175. STA PPU_Addr,X
      
1176. INX
      $ p, z3 W* ]4 V3 l3 a
1177. LDA #LOW(Track_Name_Pos)
      
1178. AND #$E0
      
1179. CLC
      - n  j% }) t1 g0 N6 ?
1180. ADC Data_Buf
      
1181. STA PPU_Addr,X
      2 v' C- U3 B9 `0 t/ b3 P
1182. INX
      7 H  i+ P7 a! F9 |2 A% N
1183. LDA Data_Cnt
      6 P7 h! h! E2 }1 V" U: B; D
1184. STA PPU_Addr,X
      6 Q: I1 w- P0 k) H6 Q" l8 g, Z& a& h
1185. INX
      ; z7 \. |- ?+ {# v2 u6 i3 ^
1186. Show_Get_Pos_Center_End
      
1187. RTS
      * S; @4 m! J" B* ~4 J/ [
1188. .ENDIF
      
1189. 
      1 d! J; n* ^% j4 B0 u7 `" w5 g% V" s
1190. ;------------------------------
      
1191. ;命名表数据
      
1192. Palette_Attributes
      
1193. .IF SOUND_BAR_SHOW_ENABLE
      
1194. .DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
      / O* a& t9 z5 I) L+ Q* Z* J" w
1195. .DB $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$FF,$FF,$FF,$FF,$BB,$AA,$AA,$AA
      5 X0 t' C; A% i- j4 g. c
1196. .DB $0F,$0F,$0F,$0F,$0B,$0A,$0A,$0A,$55,$55,$55,$55,$55,$55,$55,$55
      1 s/ e' G! ~; N
1197. .DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
      
1198. .ELSE
      
1199. .DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
      
1200. .DB $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
      9 |; C! o7 a2 ~  g3 z5 s
1201. .DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$55,$55,$55,$55,$55,$55,$55,$55
      ' U& N+ V' m  n) n
1202. .DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
      6 d' p: N2 r* e
1203. .ENDIF
      
1204. 
      ) ]2 p# F7 n1 C" B8 g7 q
1205. ;------------------------------
      
1206. ;调色板数据
      & F8 _" g4 Z6 h2 G+ a4 `" ^
1207. Palette_Data
      
1208. .DB $0F,$27,$20,$0F,$0F,$24,$20,$0F,$0F,$21,$20,$0F,$0F,$25,$20,$0F
      
1209. .DB $0F,$24,$20,$0F,$0F,$24,$20,$0F,$0F,$24,$20,$0F,$0F,$24,$20,$0F
      . F2 }1 g1 W8 _2 S( U
1210. 
      
1211. ;------------------------------
      3 r& ]" V$ Q' h2 `. x
1212. Static_Text_Data
      
1213. .WORD Static_Text_Title_Data
      
1214. .WORD Static_Text_Author_Data
      
1215. .WORD Static_Text_Date_Data
      ) e+ n+ w/ V) `6 e, Z, d1 [* S
1216. Static_Text_Data_End
      
1217. 
      
1218. ;------------------------------
        K: c5 G% H- J$ J  @2 ]+ E8 S
1219. Static_Text_Pos
      
1220. .DB HIGH(Title_Text_Pos),LOW(Title_Text_Pos)
      $ b5 M3 w( ]+ i% d3 F( x
1221. .DB HIGH(Author_Info_Pos),LOW(Author_Info_Pos)
      3 E/ J% L& H( ?; b' k4 g
1222. .DB HIGH(Date_Info_Pos),LOW(Date_Info_Pos)
      % k/ G1 n. |* h9 U1 n
1223. Static_Text_Pos_End
      
1224. 
      * Z- i# @* H4 r- E& T9 ]" |% U) g
1225. ;------------------------------
      
1226. Music_State_Stop
      4 q1 S6 U5 U  b( b: ~' m  ]2 k
1227. .IF SOUND_BAR_SHOW_ENABLE
      * s+ Z/ v+ ~. g# G* ]1 [
1228. .DB $FD,HIGH(Play_State_Pos),LOW(Play_State_Pos),"STOPED ",$FF,$00
      
1229. ELSE
      
1230. .DB $FD,HIGH(Play_State_Pos),LOW(Play_State_Pos)," STOPED",$FF,$00
      0 t% j: X4 ^& f8 }! o! H% [
1231. .ENDIF
      
1232. Music_State_Play
      & ]/ `: P4 I! o9 e6 K- I, `% ]
1233. .DB $FD,HIGH(Play_State_Pos),LOW(Play_State_Pos),"PLAYING",$FF,$00
      
1234. 
      
1235. ;------------------------------
      
1236. Sound_Bar_Text_Data;声音类型文本
      
1237. .DB $FD,HIGH(Sound_Track_Pos),LOW(Sound_Track_Pos)
      
1238. .DB "SQ1-",$FF
      
1239. .DB $FE,"SQ2-",$FF
      
1240. .DB $FE,"TRI-",$FF
      
1241. .DB $FE,"NOI-",$FF
      
1242. .DB $FE,"DMC-",$FF,$00
      
1243. 
      
1244. .IF Track_Name_Pos
      
1245. ;------------------------------
      7 U+ `0 p% G2 I2 c
1246. Track_Name_Addr;曲目名地址索引
      
1247. .WORD Trackr_01
      & {/ W1 X7 ~7 X, h! v
1248. .WORD Trackr_02
      
1249. .WORD Trackr_03
      4 I- T) L( F8 A
1250. .WORD Trackr_04
      
1251. .WORD Trackr_05
      
1252. .WORD Trackr_06
      3 J6 f  y' }8 F) _! \5 F
1253. .WORD Trackr_07
      
1254. .WORD Trackr_08
      
1255. .WORD Trackr_09
      . o6 o$ ~! Y" a- u3 s1 A0 w% |% ?
1256. .WORD Trackr_10
      
1257. .WORD Trackr_11
      
1258. .WORD Trackr_12
      3 S9 }( F0 F4 f5 D
1259. .WORD Trackr_13
      
1260. .WORD Trackr_14
      
1261. .WORD Trackr_15
      / O) L# z- I# T# R" j
1262. .WORD Trackr_16
      
1263. .WORD Trackr_17
      - C- g6 K9 h' |0 \' Z
1264. .WORD Trackr_18
      * D9 e& E. m  b! N- @0 l. `
1265. .WORD Trackr_19
      
1266. .WORD Trackr_20
      
1267. .WORD Trackr_21
      7 r! U2 u/ Y4 K/ G
1268. .WORD Trackr_22
      . S5 e; q0 K' U/ n6 A
1269. .WORD Trackr_23
      # Z" z" l& K- J6 [! y
1270. .WORD Trackr_24
      
1271. .WORD Trackr_25
      + k3 v7 e, T" a/ D4 a' e5 @8 P
1272. .WORD Trackr_26
      $ T. I4 J7 x% T/ O
1273. .WORD Trackr_27
      / A) v" [: F9 f1 G7 E( k
1274. .WORD Trackr_28
      
1275. .WORD Trackr_29
      ) h; Z5 P, ~8 ]/ @$ O$ i( v
1276. .WORD Trackr_30
      
1277. .WORD Trackr_31
      
1278. .WORD Trackr_32
      9 D5 g6 Y; l5 f- u6 f
1279. .WORD Trackr_33
      ( [/ Y1 d7 h$ _4 n1 g
1280. .WORD Trackr_34
      . v- {8 m5 l3 S3 c) q. U
1281. .WORD Trackr_35
      7 h4 L* F4 i) y  D5 @
1282. .WORD Trackr_36
      - c5 ]7 Y: {" W- l* N7 W$ @
1283. .WORD Trackr_37
      : _1 c9 k' D) L
1284. .WORD Trackr_38
      ; q% F. T; T$ e( Y! ^+ w" R. X( D
1285. .WORD Trackr_39
      
1286. 
      5 r: j. o; k. p) e
1287. ;------------------------------
      
1288. Trackr_Name_Data
      ) ]3 @) H2 w# K# p8 a( a5 Q6 r2 p7 t
1289. Trackr_01 .DB $05,"BGM 1"
      
1290. Trackr_02 .DB $05,"BGM 2"
      
1291. Trackr_03 .DB $05,"BGM 3"
      2 t4 \7 e, V# ^
1292. Trackr_04 .DB $05,"BGM 4"
      . i! g. U  R9 z
1293. Trackr_05 .DB $05,"BGM 5"
      4 {' g9 A; i: z8 P6 |5 p! ?
1294. Trackr_06 .DB $05,"BGM 6"
      $ J7 j2 h/ h1 C2 K; ^
1295. Trackr_07 .DB $05,"BGM 7"
      
1296. Trackr_08 .DB $05,"GREAT"
      
1297. Trackr_09 .DB $08,"BOSS BOM"
      
1298. Trackr_10 .DB $08,"BOSS2BGM"
      
1299. Trackr_11 .DB $07,"P CLEAR"
      
1300. Trackr_12 .DB $07,"A CLEAR"
      
1301. Trackr_13 .DB $04,"OVER"
      
1302. Trackr_14 .DB $06,"ENDING"
      
1303. Trackr_15 .DB $04,"SUTA"
      , z% P4 d  M8 p9 o0 F0 W5 V
1304. Trackr_16 .DB $07,"THUNDER"
      
1305. Trackr_17 .DB $04,"SHOT"
      4 Y" O' h0 n' X* [/ Q! _' [
1306. Trackr_18 .DB $05,"LASER"
      
1307. Trackr_19 .DB $06,"SPREAD"
      7 E  \8 j- b5 N9 F/ ~/ T
1308. Trackr_20 .DB $04,"FIRE"
      * R* ?1 i3 x6 a5 p
1309. Trackr_21 .DB $06,"B SHOT"
      ! ?, K' u1 f) v# ~  ?) r, T
1310. Trackr_22 .DB $08,"T DAMEGE"
      
1311. Trackr_23 .DB $07,"HARETSU"
      ! q5 a3 V' t, K6 O: b. D3 E/ H! j% R
1312. Trackr_24 .DB $05,"T OUT"
      6 K3 J' S( X3 ]: l
1313. Trackr_25 .DB $05,"Z OUT"
      9 w: r2 P+ N2 V3 x  I' j
1314. Trackr_26 .DB $05,"A OUT"
      
1315. Trackr_27 .DB $04,"ROLL"
      
1316. Trackr_28 .DB $06,"APPEAR"
      
1317. Trackr_29 .DB $05,"POWER"
      ' V; o, ]% ^' F$ u( Y$ Y' J6 O7 s  H
1318. Trackr_30 .DB $07,"BOKK BK"
      
1319. Trackr_31 .DB $08,"BAKUHA 1"
      # u8 c) @6 s! B+ @" }" `
1320. Trackr_32 .DB $08,"BAKUHA 2"
      / A5 S5 J& X) [
1321. Trackr_33 .DB $05,"ARUKU"
      
1322. Trackr_34 .DB $06,"JIWARE"
      
1323. Trackr_35 .DB $05,"SILEN"
      $ X: t  `8 C6 b5 P# E1 X$ J
1324. Trackr_36 .DB $05,"P 1UP"
      4 [6 S9 ^1 j8 D0 {
1325. Trackr_37 .DB $05,"P OUT"
      $ ?( p) z8 T( d8 U8 W5 K( u
1326. Trackr_38 .DB $05,"B OUT"
      
1327. Trackr_39 .DB $05,"PAUSE"
      
1328. 
        X. W% X8 }9 H4 k& S- ~
1329. .ENDIF
      . v7 C- a0 T4 L+ Y5 j- r! H
1330. 
      
1331. ;------------------------------
      
1332. Static_Text_Title_Data;静态文本数据
      
1333. .DB 12
      8 j* A( `+ b$ E3 b1 `
1334. .DB "SUPER CONTRA"
      
1335. Static_Text_Author_Data
      # a) ^7 m" L( `! D9 h$ ^8 s
1336. .DB 23
      7 Y' I" a  H  i: @0 F
1337. .DB "EXTRACT BY FLAMECYCLONE"
      9 z1 C/ T, R* f  o1 ?) a
1338. Static_Text_Date_Data
      
1339. .DB 10
      8 K3 F1 H5 `( k4 K/ t
1340. .DB "2023.07.11"
      
1341. 
      
1342. .BANK RESET_BANK & BANK_DATA_MASK
      
1343. .ORG RESET_ADDR
      
1344. 
      
1345. 
      
1346. ;==================================================
      ; |5 x/ h" L# c
1347. ;切到主程序bank
      & B5 ^- h/ K) P/ P4 W4 l7 y
1348. SwitchMainBank
      9 p! `5 X" @, [3 T2 g" f
1349. LDA #PROGRAM_BANK & BANK_DATA_MASK
      
1350. JSR SwitchBank8000
      
1351. RTS
      7 `+ P+ y, Y' r/ @
1352. 
      
1353. ;==================================================
      
1354. SwitchBank8000;切换bank到8000-9FFF
      * z: w! W# o  Q- F7 l5 N
1355. PHA
      3 X/ S' O7 `3 t6 W
1356. LDA #$06
      
1357. STA MMC3_BANK_CTRL
      
1358. PLA
      
1359. STA MMC3_BANK_DATA
      
1360. RTS
      
1361. 
      ( {8 g2 O6 X( _, f/ m: ^
1362. ;==================================================
      9 p) U, C' i1 }2 @
1363. SwitchBankA000;切换bank到A000-BFFF
      # F$ v! u* U; m" U* K
1364. PHA
      $ z7 `# q, P. J
1365. LDA #$07
        f( ?/ k" @3 M$ R: c. V
1366. STA MMC3_BANK_CTRL
      
1367. PLA
      
1368. STA MMC3_BANK_DATA
        s5 B5 @) Q( C# A
1369. RTS
      
1370. 
      
1371. ;==================================================
      
1372. Sund_Bank_Init;音乐bamk初始化
      0 p3 E* z2 z3 \0 p& x& e0 A
1373. LDA #SOUND_DATA_BANK_0 & BANK_DATA_MASK
      
1374. STA Music_Bank_8000
      ) [9 Q( N- p% |1 z
1375. LDA #SOUND_DATA_BANK_1 & BANK_DATA_MASK
      
1376. STA Music_Bank_A000
      ' I6 P% C, M2 U1 M8 C
1377. RTS
      5 V1 a. O$ _" v0 m
1378. 
      
1379. ;==================================================
      # e/ u) }' s" }7 F  ]9 ?# G
1380. Sund_Bank_Set;切换音乐bank
      
1381. LDA Music_Bank_8000
      
1382. JSR SwitchBank8000
      ! t( z- T+ ?% D1 v2 M1 s( h
1383. LDA Music_Bank_A000
      - G: U0 [, n$ r9 B8 m; S, W) \
1384. JSR SwitchBankA000
      
1385. RTS
      
1386. 
      
1387. ;==================================================
      
1388. Sound_Init;音乐初始化
      4 B( E+ X. Y+ C' Q9 N: f
1389. PHA
      3 d4 |) c) p1 \$ v
1390. JSR Sund_Bank_Set
        ?8 W, ]' @" F9 g; w7 p6 i7 g
1391. PLA
      ! h$ j) V3 r! \& E: h: q
1392. JSR Music_Init_Addr
      
1393. JSR SwitchMainBank
      
1394. 
      / K+ B$ `7 L8 u/ H/ K" h! h
1395. JSR Music_Bar_ReSet
      
1396. JSR Time_ReSet
      ; K* @0 ^9 |# p+ ^
1397. LDA #$00
      
1398. STA Music_State
      
1399. JSR Music_Stata_Show
      
1400. .IF Track_Name_Pos
      6 ^9 M" K5 `$ L
1401. JSR Show_Track_Info
      
1402. .ENDIF
      + Z8 R4 E$ @( O. }: i
1403. 
      
1404. RTS
      $ |7 h# q% l7 y- D& l/ ^- I% e
1405. 
      
1406. ;==================================================
      4 \4 S! \$ l- L4 I" ^9 k4 [
1407. Sound_Play;音乐播放
      
1408. PHA
      8 j- p  b! l/ i5 x0 J; t
1409. JSR Sund_Bank_Set
      
1410. PLA
      
1411. LDA Music_State
      
1412. BNE Sound_Play_End
      ( f; z% L: G$ u
1413. JSR Music_Play_Addr
      
1414. Sound_Play_End
      0 r# R6 j/ T$ G
1415. JSR SwitchMainBank
      7 T; l) O" H% d' i# `0 }
1416. RTS
      / A8 C% m( R; ~' K5 }! B1 Q
1417. 
      * |" K+ {4 \; K
1418. ;==================================================
      # u0 D& J7 y$ O5 ^1 e5 c
1419. .IF Music_Reset_Addr
      : S) {7 S+ A, k, X
1420. Sound_Reset;音乐重设(如果有的话)
      + |' n" s+ `. }/ ^( O
1421. JSR Sund_Bank_Set
      
1422. JSR Music_Reset_Addr
      + X: `$ C3 u, u+ B" f8 n- V7 w
1423. JSR SwitchMainBank
      * l  `: i+ V! l( `3 Z+ X
1424. RTS
      # H( D' K  m! y" A
1425. .ENDIF
      
1426. 
      : y5 K  Y' V/ r) v+ g1 O
1427. ;==================================================
      
1428. MainLoop;死循环
      . k( t+ K6 G1 n
1429. JMP MainLoop
      . @" d! S; D' _4 N5 n/ n$ ]
1430. 
      
1431. ;==================================================
      & e" E/ X6 U9 }. I1 @
1432. NmiProgram;Nmi中断处理
      
1433. PHA
      
1434. TXA
      0 L) u- B3 x/ E. h5 j  p
1435. PHA
      
1436. TYA
      
1437. PHA
      3 e+ Q+ m8 M8 q6 b1 J+ t% L0 l
1438. 
      & [- m* D2 R$ {
1439. LDA PPU_STATUS
      9 O, \3 O  u7 N8 w
1440. LDA #$00
      + l: n2 S6 K. `7 J/ T
1441. STA PPU_CTRL
      4 v2 G0 r4 x& I8 h/ L3 s! ^/ y
1442. 
      # Q, a# r' J: F8 C5 \* ]
1443. ;切换主程序bank
      & z2 K0 D) F4 h4 ^
1444. JSR SwitchMainBank
      & E9 O" m7 g, _* T$ n' }
1445. 
      7 X8 L# Z+ q3 l; p" N4 w$ n5 _5 R
1446. ;NMI处理
      & d  O& I/ b, w- S+ I4 j
1447. JSR NmiProgramProcess
      
1448. 
      
1449. Nmi_Proc_End
      
1450. PLA
      7 g& P7 N3 h6 b4 d% f
1451. TAY
      ( K) ~3 W$ c" U& E3 p- C1 ^
1452. PLA
      / b+ M$ M9 O, E! Z1 B5 t4 T
1453. TAX
      . A: O6 j! U1 X8 u
1454. PLA
      % V# `+ \# X5 |5 B9 H, s% W" V
1455. 
      % `. Q- _  E: X
1456. RTI
      
1457. 
      5 X% Z8 `4 N* x4 k8 q$ A$ M0 l
1458. ;==================================================
      
1459. ResetProgram;重置中断处理
      2 j3 L6 A1 q! s3 s* j+ m  m1 G% k
1460. SEI
      ; A0 u# D1 _. |
1461. CLD
      
1462. LDA #$00
      
1463. STA PPU_CTRL
      
1464. STA PPU_MASK
      
1465. 
      2 K8 P' S0 E( t
1466. JSR SwitchMainBank
      : s8 f& b5 q3 X0 p. s- \
1467. JMP ProgramBegin
      
1468. 
      
1469. ;==================================================
      
1470. IrqProgram;Irq中断处理
      8 o( B: Y; @5 |+ }- i$ p9 X! H1 {
1471. RTI
      
1472. 
      
1473. .IF SOUND_BAR_SHOW_ENABLE
      
1474. .ORG $FF80
      5 z, }& P$ Z  W, p7 }
1475. STA $4000,X
      
1476. STA Sound_Bar + $00,X
      
1477. RTS
      3 l; f1 p: d! q" M9 y  E/ L
1478. 
      & k# S# h2 {! S4 O! _
1479. .ORG $FF88
      9 [4 W! i$ @- g$ Q" {- K9 X* e
1480. STA $4000,Y
      
1481. STA Sound_Bar + $00,Y
      ! S+ d4 K& L  y- P. D/ a8 R
1482. RTS
      ' F5 ~7 T; b& d7 c" \& @# {* x  j1 \
1483. 
      
1484. .ORG $FF90
      
1485. STA $4004,X
      
1486. STA Sound_Bar + $04,X
      
1487. RTS
      
1488. 
      # ]( ]7 N* [- v  v( D& z
1489. .ORG $FF98
      ) b! M) O: s, |+ N! U9 k
1490. STA $4004,Y
      
1491. STA Sound_Bar + $04,Y
      
1492. RTS
      
1493. 
      8 v/ A  Z* \  l: U+ E# k- {' f) D0 F, S
1494. .ORG $FFA0
      9 I$ z0 s* _: D, Z! A0 s3 {; B2 @* y
1495. STA $4008,X
      
1496. STA Sound_Bar + $08,X
      " j4 S$ h" g$ z) c4 E
1497. RTS
      
1498. 
      $ n- ^8 b1 f  ^8 G7 H3 a1 m& W
1499. .ORG $FFA8
      
1500. STA $4008,Y
      
1501. STA Sound_Bar + $08,Y
      $ X  Y2 B1 b1 h* t0 a
1502. RTS
      
1503. 
      3 p& u$ ?! O- A3 A6 J' z: Y
1504. .ORG $FFB0
      ; L5 M. Z/ u  v$ o. M& t( }7 t
1505. STA $400C,X
      
1506. STA Sound_Bar + $0C,X
      / T- h) Z4 I9 w0 ~( C& L5 r2 v
1507. RTS
      
1508. 
      
1509. .ORG $FFB8
      , b8 N* J! L9 [( i8 b6 r3 Q+ p
1510. STA $400C,Y
      
1511. STA Sound_Bar + $0C,Y
      
1512. RTS
      7 Y' H- l9 P/ P2 I2 A, {
1513. 
      - n5 r1 x; m: g8 H: S. l, O
1514. .ORG $FFC0
      0 l. A9 U7 W4 `  u, O' v0 w
1515. STA $4000
      3 D' T8 i+ k  n( K8 I( V9 y2 t
1516. STA Sound_Bar + $00
      9 c1 j: E8 p+ |/ Y9 H! q
1517. RTS
      
1518. 
      
1519. .ORG $FFC8
      
1520. STA $4004
      
1521. STA Sound_Bar + $04
      " z( E2 D  ^( p" R% U
1522. RTS
      % l$ U3 y% Y. }' }( U
1523. 
      
1524. .ORG $FFD0
      
1525. STA $4008
      
1526. STA Sound_Bar + $08
      $ |& A1 i0 D0 V& o( N
1527. RTS
      8 o( X$ L0 }3 C6 F
1528. 
      & F6 u( j# M2 \0 C& A/ z9 ?3 b
1529. .ORG $FFD8
      
1530. STA $400C
      
1531. STA Sound_Bar + $0C
      / I+ n9 {7 J% }+ l% B# K7 |2 v$ O
1532. RTS
      $ c# h1 `1 b* r2 B
1533. 
      
1534. .ENDIF
      % n: p, F7 k- W( e8 D0 R0 G) C( J
1535. 
      
1536. .ORG $FFFA
      
1537. .WORD NmiProgram
      
1538. .WORD ResetProgram
      
1539. .WORD IrqProgram

复制代码

/ ^8 w5 F" W# j! M) N

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

fragranse

很赞啊！

leshui

必须支持