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

yandagui

1.魂斗罗
2.超级魂斗罗
3.赤影战士
; U, N8 F1 G9 Z9 \4.忍者龙剑传2


# Z# L6 S, C& S3 Z

+ @% C$ I4 q1 B3 H$ ^源码:

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

复制代码

" d' m5 b+ ~% w/ c

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

fragranse

很赞啊！

leshui

必须支持