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

yandagui

; S6 n. i1 l5 ^' G$ I1 f  G: t
1.魂斗罗
+ F- E! S' o  `6 ^+ z7 ?# \2.超级魂斗罗
+ ]! ~7 F& l- f3.赤影战士
6 c. U5 M( [/ i4 a4.忍者龙剑传2


) G( m' S1 j3 h* |( W8 [6 B6 B
6 f$ Y: b& w7 |) H) g. M
+ c+ ^; Y3 O4 |, c源码:

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

复制代码

. `* u3 m5 v) r
2 W2 @3 w" c6 J3 p

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

fragranse

很赞啊！

leshui

必须支持