设为首页收藏本站
切换到窄版

EMU618社区

 找回密码
 立即注册
搜索
EMU618社区»论坛 › 游戏周边 › 游戏修改交流区 › [FC][音乐播放器][NES + 源码]
返回列表 发新帖
查看: 431|回复: 2

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

[复制链接]
yandagui

签到天数: 39 天

[LV.5]常住居民I
发表于 2023-7-11 19:08:59 | 显示全部楼层 |阅读模式
本帖最后由 yandagui 于 2023-7-11 21:32 编辑 & O2 y4 ?3 \' E* O: T

1 t5 I# M3 U; S' w2 G$ M1.魂斗罗( A1 Z& A4 ~$ @) m" w
2.超级魂斗罗8 f  S2 ]9 {  s$ T* F2 T0 W; X) o
3.赤影战士, h: C% G2 N  Z4 {) }: E( u9 j
4.忍者龙剑传2- O7 _. H! I2 T; j" B, i

9 A% _( I0 E5 z+ J' i; L% T, m( a+ B% i5 P6 @4 l. ^& h# E& b/ ~
$ v' s3 C. t2 R8 F( `- `5 L
0 ]$ m8 W! q' _& U* A" Q
源码:6 g! ^; ~2 j3 Q. {) r# ^
  1. ;[FC音乐][播放器模板]1 t: ?5 f/ g" Q& Y7 e# I
  2. ;FlameCyclone 20230710
    8 @1 h1 v( S# Q$ G+ w

  3. 9 t$ K2 O% [: w4 S/ t# l
  4. ;文件头* }3 F" H; b. o% T, Q" y$ y
  5. ;======================================================================
    1 g' K5 T% O0 j5 J
  6. .INESPRG 4                                              ;16KB PRG 数量
    ! j: B  t; L* c+ _& z5 L
  7. .INESCHR 0                                               ;8KB CHR 数量. E3 m! D' R1 l- a1 F' [5 ~
  8. .INESMAP 4                                                   ;mapper 4
    ( D* Q% b, Q! l" Q2 g
  9. .INESMIR 1                                   ;命名表镜像 0水平 1垂直
    # h. n- |& H& Q: W

  10. , r( B8 o9 j" X+ O( _. C8 ?
  11. ;==================================================, M0 _- j4 H0 v: ^( q
  12. SOUND_BAR_SHOW_ENABLE       = 1* S) ^+ H7 U/ ]2 D9 B6 ^
  13. ;==================================================( D. l4 P4 C; E, L
  14. BANK_DATA_MASK              = $07
    4 Z; y( G+ D5 S5 m$ c1 R
  15. ;==================================================
    : _% z% i4 `, H1 |
  16. SOUND_DATA_BANK_0           = $00, V+ @3 R6 ?3 [' d+ }  e/ Z& b
  17. SOUND_DATA_BANK_1           = $01
    + y4 T9 k2 N/ d9 ?
  18. SOUND_DATA_BANK_2           = $02
    9 R. ~  S* o2 |
  19. SOUND_DATA_BANK_C000        = $06
    . p+ u# m* R1 z- J4 v  o# Y
  20. / ~1 F* |6 ]3 s6 l" K' o
  21. ;-------------------------------------------------
    * f& e+ u6 F# f, }. _, ]% g
  22. CHR_DATA_BANK               = $04
    ' h+ ^9 F2 L/ F/ f
  23. CHR_DATA_ADDR               = $A000
    # m, `% U% s) q+ C6 w, n8 V
  24. ;-------------------------------------------------4 ^2 y/ w  P0 \% \1 M: Z! J; i2 W
  25. PROGRAM_BANK                = $052 J; y6 x& s2 s+ V/ {/ a- O
  26. PROGRAM_ADDR                = $8000
    # H5 p2 G# k1 ?' D
  27. ;-------------------------------------------------
    - r; N; X0 ~# I
  28. RESET_BANK                  = $073 P7 A- }0 u% F2 W
  29. RESET_ADDR                  = $FE00
    1 R5 o+ s9 t: ?( `
  30. ;==================================================' b+ T" K8 s$ N( v! D: R1 M
  31. Music_Init_Addr             = $DFF0 ;音乐初始化地址3 q  n5 b5 L) g8 N2 b4 ]
  32. Music_Play_Addr             = $813C ;音乐播放地址
    , i; R% ?, ~& P0 i( e% S2 m8 q, w
  33. Music_Reset_Addr            = $0000 ;音乐重设数据地址8 \% J8 G9 M  Q, O; f0 }$ J. w
  34. ;==================================================9 {3 V- d2 v( k  S  M  ]' M" ?7 f% l
  35. Music_Song_Total            = 039  ;全部曲目总数, s& ?- U7 F- _, r' }2 |$ D
  36. Music_Start_Song            = 007  ;初始播放曲目! g' o$ j2 w/ G/ |" j
  37. ;==================================================) c2 t1 E' I% [, L  `. i

  38. / U- m9 }3 f8 [( R
  39. ;==================================================
    3 d2 o2 c. @9 b" F& c
  40. Title_Text_Pos      = $210D ;标题文本位置2 d; [/ J- H8 q+ C2 n, J* [! t
  41. Author_Info_Pos     = $2284 ;作者文本位置, L9 f; n" C9 Y4 Y
  42. Date_Info_Pos       = $22CB ;日期文本位置
    ; ?3 h9 S2 {- n& S
  43. ;------------------------------# h( g; q/ X0 W9 O+ _2 t
  44. ;------------------------------2 g7 ^$ B1 V: B* ?, m% o2 L
  45. .IF SOUND_BAR_SHOW_ENABLE% ^! U8 L% f( f+ V( U# K
  46. Play_Index_Pos      = $21B3 ;当前曲目位置5 U3 x& j" a$ Y) q* K# j. A; K2 ~
  47. Play_Time_Pos       = $21F3 ;播放时间位置$ }6 [3 ], X& X6 L3 L" F$ s% P
  48. Play_State_Pos      = $2233 ;播放状态位置- @* B3 i" t2 Q. c$ \. x
  49. .ELSE
    7 J! c  N" E4 j6 J4 j
  50. - ~* @. z/ M( `6 T- w4 o& O6 W
  51. .IF Music_Song_Total > 99
    - ~4 |8 l0 C  U; Z4 F
  52. Play_Index_Pos      = $21AC ;当前曲目位置  q8 v1 `( Q7 n& Y1 P2 f; w- E
  53. .ELSE* ~' n4 [/ [9 [- y" m

  54.   S' I! n* d6 r- f
  55. .IF Music_Song_Total > 94 `3 g- }' T! P7 J
  56. Play_Index_Pos      = $21AD ;当前曲目位置. ~: X# t# X: F9 |1 z
  57. .ELSE' ~- @% C" T5 o
  58. Play_Index_Pos      = $21AE ;当前曲目位置
    7 h" j6 \7 V$ {, U9 V
  59. .ENDIF
    ( R: z# p# H% F" Z/ R& H1 a$ `
  60. ! [( o; S( p, |1 E0 [; k
  61. .ENDIF
    2 ^/ ?1 b/ g5 t. j

  62. 8 c  V9 P0 i/ D( `% L2 `$ Z/ e' I
  63.   X# O& `7 g9 Z' R2 I, i
  64. Play_Time_Pos       = $21EC ;播放时间位置" V! [. j) \$ m
  65. Play_State_Pos      = $222C ;播放状态位置
    9 d; F& W1 p2 g
  66. .ENDIF/ |' t) }  N1 j4 U: w
  67. ;------------------------------" v! l' D6 [6 y/ x$ C! H
  68. Track_Name_Pos      = $216B ;曲目文本位置
    6 q2 y8 R  z) i' C/ J( M
  69. Sound_Track_Pos     = $21A5 ;声道文本位置. ~0 Q2 ?+ f1 p8 ^
  70. Sound_Bar_Pos       = $21A9 ;音乐条位置
    9 {/ @; F3 I% ?+ k# g& Z0 s
  71. ;==================================================" m8 v: B3 o2 J' P) ~' m1 t; h
  72. Scroll_X = $00
    % F8 e. x$ R6 P, D4 }$ n$ ]5 V
  73. Scroll_Y = $06
    : d5 ~0 g9 E; ~
  74. ;==================================================; C3 w  T9 o  z
  75. RAM_Cln_1       = $0100" {9 V$ _& T! X1 H1 M
  76. RAM_Cln_1_Size  = $806 V" s: R7 r5 @! e5 _7 L5 J) n
  77. RAM_Cln_2       = $00E09 @4 y8 P$ P3 i0 ?/ d
  78. RAM_Cln_2_Size  = $20
    9 |) F; M* a  g2 v9 b
  79. RAM_Cln_3       = $00E00 |' c3 Y) j( M& p- I1 e) Y
  80. RAM_Cln_3_Size  = $20
    , j6 G$ a6 F( s( G7 Z
  81. . s4 I  s% b9 l8 |: B
  82. ;==================================================
    * B( S5 V  D5 k0 c0 M
  83. PPU_CTRL                =   $2000   ;PPU控制寄存器
    , R' H, Q4 m( f. c; H" K+ Q
  84. PPU_MASK                =   $2001   ;PPU掩码寄存器( M( x$ g& O  i/ o/ v' @! k
  85. PPU_STATUS              =   $2002   ;PPU状态寄存器：读取后PPU_SCROLL和PPU_ADDRESS被复位，下一个写到PPU_SCROLL的数据是水平的，写到PPU_ADDRESS的数据是高位3 v& W) I/ W/ i1 C/ S- F8 j
  86. PPU_OAM_ADDR            =   $2003   ;精灵RAM地址：用来设置通过PPU_OAM_DATA访问的256字节精灵RAM地址。每次访问PPU_OAM_DATA后该地址增加1
      q2 N6 A9 F" N) x+ X2 f1 B
  87. PPU_OAM_DATA            =   $2004   ;精灵RAM数据：用来读/写精灵内存。地址通过PPU_OAM_ADDR来设置，每次访问后地址增加1; p; b" z: v' b9 W% j
  88. PPU_SCROLL              =   $2005   ;屏幕滚动偏移：第一个写的值会进入垂直滚动寄存器（若>239，被忽略）。第二个值出现在水平滚动寄存器
    - s: ^2 M( E5 d" J/ m6 [3 R" y
  89. PPU_ADDRESS             =   $2006   ;VRAM地址：设置PPU_DATA访问的VRAM地址。第一个写地址的高6位。第二个写低8位。每次访问PPU_DATA后地址增加
    . t6 e8 W3 ?8 Y# v2 d5 ~4 i9 T/ N
  90. PPU_DATA                =   $2007   ;VRAM数据：用来访问VRAM数据，通过PPU_ADDRESS设置的地址在每次访问之后会增加1或32 # l1 a; l) h3 t$ y0 Q: x" ]
  91. OAM_DMA                 =   $4014   ;DMA访问精灵RAM：通过写一个值xx到这个端口，引起CPU内存地址为$xx00－$xxFF的区域传送到精灵内存! R* X2 r9 |* b! `
  92. APU_STATUS              =   $4015   ;声音通道切换' z/ H: E( l0 _" A: ]
  93. JOY1_FRAME              =   $4016   ;手柄1 + 选通8 T, h$ K, N/ T  B7 @3 S
  94. JOY2_FRAME              =   $4017   ;手柄2 + 选通/ v" l! T( j8 H  J
  95. ;==================================================9 f& O0 l. e  j4 a5 H5 A
  96. MMC3_BANK_CTRL          =   $8000- V% {; ]3 I5 r+ x0 V
  97. MMC3_BANK_DATA          =   $8001
    0 A, ]/ Y6 F, [& z6 J; E+ w9 e
  98. MMC3_MIRRORING          =   $A000
    8 d, B8 n$ m: u6 _. C, b# m- c
  99. MMC3_PRG_RAM_PROTECT    =   $A001
    # ^3 {; ?& m2 @! W6 c, T6 \
  100. MMC3_IRQ_LATCH          =   $C000
    1 Y. f7 U0 Y! W5 v6 B
  101. MMC3_IRQ_RELOAD         =   $C0019 @- k! H5 Y9 e5 a/ ?8 U4 y
  102. MMC3_IRQ_DISABLE        =   $E000
    $ |9 c2 x7 z9 ]9 {* U
  103. MMC3_IRQ_ENABLE         =   $E0011 L3 G- S- a. D. ~! N0 Q9 T: t

  104. 8 z; n  x- F  @
  105. ;音乐数据块( L8 b# l3 N0 F" T
  106. ' J9 F- j; b7 ?! h! Y9 A# O% ?
  107. ;======================================================================5 g4 W5 h4 q; `  A
  108. .IF SOUND_BAR_SHOW_ENABLE" Q& Q& n& w2 A3 T1 _
  109. .BANK SOUND_DATA_BANK_0 & BANK_DATA_MASK
    9 F2 T9 r; _9 z3 x4 Y: }' ^: {
  110. .INCBIN "sound_bank_bar/music_data_0.bank"
    / H0 ~$ R& x( T3 L: S" b& @1 W
  111. 1 E8 o, e2 m! ^- A
  112. .BANK SOUND_DATA_BANK_1 & BANK_DATA_MASK+ U2 B# S' T: C, Z* ]
  113. .INCBIN "sound_bank_bar/music_data_1.bank"
    ( a# U& [0 V% b. L2 A9 T/ C0 U" T

  114. 2 S; q" L5 I: V! H3 z+ T" m" n
  115. .BANK SOUND_DATA_BANK_2 & BANK_DATA_MASK8 |+ i# l/ V  }/ C; A6 m
  116. .INCBIN "sound_bank_bar/music_data_2.bank"& Y, k: q7 w8 {" d1 X
  117. 6 ~! ?+ ]( \/ Z
  118. .BANK SOUND_DATA_BANK_C000  & BANK_DATA_MASK4 X3 y4 U7 ~+ Q/ k9 W1 [
  119. .INCBIN "sound_bank_bar/music_data_3.bank"( M7 P* o: b- L8 Y

  120. - g  l( d. t3 u, |7 X# s5 o; B
  121. .ELSE
    + h4 b$ {  ]) B3 N' W& i6 w! R
  122. .BANK SOUND_DATA_BANK_0 & BANK_DATA_MASK; _" G' D- T9 ~1 \0 F; g5 K# M
  123. .INCBIN "sound_bank/music_data_0.bank"+ F2 H% v& o0 ?2 u4 f

  124. 0 I! u6 ]9 H# h5 s/ Q4 X6 }
  125. .BANK SOUND_DATA_BANK_1 & BANK_DATA_MASK5 S0 d" a: G2 K2 L9 Z1 q  w
  126. .INCBIN "sound_bank/music_data_1.bank": B# J% d: _) I& ~1 {
  127. : s7 y3 R3 z! m' H" U0 A* \
  128. .BANK SOUND_DATA_BANK_2 & BANK_DATA_MASK$ i' ]1 a+ d% l9 [
  129. .INCBIN "sound_bank/music_data_2.bank"+ i: b* A/ V. }, ?5 w6 E0 [

  130. 7 y  `, k% `$ L* A8 ^6 }
  131. .BANK SOUND_DATA_BANK_C000  & BANK_DATA_MASK# s9 k* n8 m) ~
  132. .INCBIN "sound_bank/music_data_3.bank"
    % d5 {! @" d- C7 ^% m& K! F
  133. .ENDIF
    ) X; S" K0 w& q* o+ J

  134. , @7 L0 T8 d' v- D. W9 A0 a
  135. ;CHR图形数据/ J6 k4 b  o% d5 }6 D
  136. ;======================================================================
      [7 m2 G' f- s2 z" _! }$ {
  137. .BANK CHR_DATA_BANK: _" g$ M5 o* j; c$ G
  138. .INCBIN "chr_bank/chr_data.chr", D# M. T9 V, o5 o0 v
  139. , p/ ]/ m  R' S9 _: n/ t+ H
  140. ;==================================================2 _/ {/ ~. E- M# a+ c
  141. PPU_Addr        = $03000 T% Y' S+ r( F6 U/ r
  142. Palette_Addr    = $03C0- q3 z) q% q; H- f; j# v8 G
  143. Sound_Bar       = PPU_Addr+$E01 W3 F# h1 p$ ]$ w* C
  144. ;==================================================
    1 ]- h* t# y' u, u* }1 F0 q
  145. Palette_Update_Addr     = Palette_Addr+$0D
    % W: j. _) f9 ]* A' Y
  146. Palette_Update_Max      = $2C3 r1 {1 K8 u4 E8 n1 k0 j% \
  147. Palette_Update_Min      = $21
    / o* ]# s7 Q! }4 A" I
  148. Palette_Update_Interval = 601 \: u& P# D$ y' T% `# t# `# ^
  149. ;==================================================
    6 _9 l3 z( \4 W0 K
  150. Sound_Bar_Cnt       = PPU_Addr+$F0; l4 \) ]* G& ]* f: s3 L
  151. Screen_State        = Sound_Bar_Cnt+$01
    : w/ o; N% `; f! O
  152. PPU_Cur             = Sound_Bar_Cnt+$02
    ( U4 i9 m5 B' y: z  G0 S; s
  153. PPU_Addr_H          = Sound_Bar_Cnt+$03
    0 V- z& T- g. s3 x5 F. C
  154. PPU_Addr_L          = Sound_Bar_Cnt+$04* ^2 S1 z2 F4 V3 a3 ]
  155. ;==================================================* ?- b: z( K6 ?+ y# T+ Q  C
  156. Data_L              = $70
    9 a) e) e, o0 d: X2 s- S7 i/ n; }
  157. Data_H              = Data_L + $01
    : W$ u5 E* ]3 C2 ~. i7 G, s9 s
  158. Data_Cnt            = Data_L + $02
    & I3 ?( r8 c! o  A
  159. Data_Buf            = Data_L + $03. E9 a4 O% x$ o
  160. Time_Wait_Cnt       = Data_L + $04/ n% @5 o  u& u: Y( s# p$ y
  161. Palette_Wait_Cnt    = Data_L + $05: d- d0 u; n) @% R
  162. Palette_Update_Flag = Data_L + $06
    1 r& N* v3 j& b! h% b
  163. Show_Track_Name     = Data_L + $07
    . h3 a1 i: }+ R: n
  164. ;==================================================
    ; f: G9 N8 }" A* @; {7 g0 |
  165. Key_Keep            = Show_Track_Name + 1: M- d. I" H& t  E
  166. Key_Once            = Key_Keep+$01
    - Q+ U+ z  ^$ R3 k' b4 ?$ z
  167. Key_Kemp            = Key_Keep+$027 S- J" E$ C8 a" `' {
  168. Key_Temp            = Key_Keep+$03
      Y; T: [7 n# ^
  169. Key_Getv            = Key_Keep+$04  I. @& L& j9 D0 j3 X, S# B( q
  170. ;==================================================. ]6 i& p  }0 ~' U; D
  171. Music_Cur           = Key_Getv+$01# T, ^! O, H$ l1 ~( H$ {8 S
  172. Music_Last          = Music_Cur+$01
    3 q$ k; z( K* S
  173. Music_State         = Music_Cur+$02
    5 T" O+ T: v9 L2 @7 ^& K% [7 e3 ~
  174. ;==================================================
    & J+ s" m2 {4 @* p0 P& x$ z
  175. HEX_Data            = Music_State+$01' Y# y' n# _% f" P" h' q$ s
  176. DEC_H               = HEX_Data+$014 j0 l; ]) P6 O0 F; P' @
  177. DEC_T               = HEX_Data+$02" _1 S8 Y& u$ V% H) E' K: a4 X
  178. DEC_L               = HEX_Data+$03/ j9 p2 F( K4 ]7 {; f
  179. ;==================================================* y' W) a/ z2 X5 a/ _; p$ B, a+ U
  180. Time_S              = DEC_L+$01" s" m2 U4 o0 o; m
  181. Time_M              = Time_S+$01# N& `8 K1 w" a9 }# A( a) W
  182. Time_H              = Time_S+$024 U+ S" I3 W7 x% y! G6 ?: M# U
  183. Time_Cnt            = Time_S+$03
    + k  Z" i, d  _1 d' k  L6 O* p

  184. ( C, V# i& r+ \+ M! y5 v! U4 H
  185. ;==================================================6 L: F; R! t, j# A
  186. Music_Bank_8000 = Time_Cnt + 12 G  a2 k7 h% T0 ^
  187. Music_Bank_A000 = Music_Bank_8000 + 11 b; a+ `* F$ w5 r2 t$ ^
  188. ;==================================================. E* n( e+ P  ~+ `% j
  189. . o4 O; d; O3 J! G& }8 ]2 l
  190. ;======================================================================
    ) ^7 }, d( i6 Z( a
  191. .BANK PROGRAM_BANK; T) z2 j2 W1 w
  192. .ORG PROGRAM_ADDR6 u1 d* P" g) R

  193. + a& n" ^" S& B5 ]3 c1 W
  194. ;==================================================
    , ?9 F$ e+ v( D- U, D: H
  195. NmiProgramProcess;NMI中断程序处理
    : P& i* s" f. e- p- N* m
  196. ;处理PPU图像; a; a  @" ^2 c" c
  197. JSR PPU_Proc
    2 W% T' ^6 G) o/ c

  198. 5 h% d' R6 Z8 \  n6 b# p% `
  199. ;启用NMI中断
    ( N( n2 R7 {: E$ M# J
  200. LDA #$80" F( I9 ?$ P' y3 _
  201. STA PPU_CTRL5 i8 n) c8 `! ~( ]+ A
  202. 4 r& [8 v! @3 E, p; o
  203. ;更新调色板3 Q+ S$ W/ f, ^3 o9 K5 Q
  204. JSR Update_Palette_Data  o- U. J& N% o  n2 O+ n7 A, k

  205. 8 y" u9 R, }/ `: _; o, c( A+ w
  206. ;显示时间(缓冲). c  K+ X; s7 c, f  K9 t
  207. JSR Time_Show( [+ a* Q- |' ^* }( Z
  208. % d5 \2 U8 m$ d, I
  209. ;播放计时
    ' o# N8 r% _& w/ C0 G8 Z
  210. JSR Time_Count* O  x# s3 H4 T) R! F* D7 j) B6 F

  211. ! Y* l/ e8 @1 T7 L/ R9 V
  212. ;播放声音
    6 n  r' d4 K7 C
  213. JSR Sound_Play0 b, h4 @6 t$ V: Q3 a
  214. 5 F$ d5 T2 ~- r( K0 K; B0 N% t
  215. ;切换音乐(手柄触发), t  a' ?2 m# N$ |: t
  216. JSR Music_Switch
    6 D  j: w! A" D6 y& S
  217. 1 S; e/ F9 Y" C" X1 ~) J- d/ g
  218. ;音乐显示(缓冲)
    ( A% o! W* Z9 a
  219. .IF SOUND_BAR_SHOW_ENABLE8 R0 {8 c9 L/ ]3 E9 V% c5 o3 M
  220. JSR Music_Vision: w+ z" j) Y! ?& y1 v. j0 u
  221. .ENDIF7 i$ f2 [) `( m  I* o
  222. 1 A) ]9 ~+ z% ^5 g0 H
  223. LDA Time_Wait_Cnt4 H6 Z% N8 a+ n
  224. BEQ NmiProgramProcessEnd$ E8 @3 |. M  {# _
  225. DEC Time_Wait_Cnt5 E- q0 k9 I$ i' W8 `
  226. NmiProgramProcessEnd
    " p8 z' O; x& G; p" e* Y
  227. RTS6 o3 O. W9 n2 q+ ?* \) s. k9 C
  228. ! N/ z& Y+ n" S* T+ I
  229. ;==================================================
    $ R) ?; j: Z$ G$ k* r
  230. ProgramBegin;主程序
    ' d' t) o" X: F) C5 t8 n
  231. LDA #$00+ K6 d/ O0 c3 x' D) g: Y
  232. STA PPU_CTRL
      Z! @: Z+ m% x9 L2 n' e. G
  233. STA PPU_STATUS
    3 p# [: f& I; r- `( q) h
  234. STA PPU_MASK$ n! p# a. Y( F7 l6 ~% U4 D
  235. STA APU_STATUS, k+ r6 |! [8 m' k! v+ ?
  236. STA PPU_SCROLL3 a8 f: i- |* Z- D: c; L, d
  237. STA PPU_SCROLL# G0 x4 H7 N- b& W  _( [' T
  238. LDA #$C0
    ( J0 a& i- P6 J/ `3 x
  239. STA JOY2_FRAME
    / o! v. t$ [, C- E7 M) X
  240. ! {$ H) P, n% i; [9 m$ m2 a
  241. LDX #$FF9 P' U. `+ Y) ?# t
  242. TXS
    : K* `! Y7 A7 H) l% M, ?
  243. LDA #$00
    9 R) j! q0 [" V# f5 a: o9 m) p6 G
  244. STA PPU_CTRL! R" a9 j. l0 F, `
  245. STA PPU_MASK
    ( @1 ?. T, ^& j5 z/ H3 h
  246. STA MMC3_IRQ_DISABLE. L, Y! `4 a" C( ]
  247. 3 m# {& l/ H( |
  248. ;==============================8 `1 t$ U; F4 w* h+ [
  249. ;调色板清空" m4 u  u2 @* J# O  E. T* S
  250. LDA #$3F
    3 f, X2 y* e: G
  251. STA PPU_ADDRESS
    + C  M. Q3 e* W( \1 G+ H8 v
  252. LDA #$00
      y3 |) l( r+ y. p
  253. STA PPU_ADDRESS
    + M  p) Q& w7 r+ B7 {; X/ w4 o% m
  254. LDA #$0F1 ~7 a& Y. x1 |3 L( V4 R! x8 C- C
  255. Palette_Clear% u+ N! G  K9 t! A, ~# [* }
  256. STA PPU_DATA% B1 m# b# k) l$ h9 }/ C9 A
  257. INX* P: w% o& ^9 ~. k1 c5 k4 V: x
  258. CPX #$20
    9 z1 F6 ]0 y5 _/ \! w9 j
  259. BCC Palette_Clear# [! j0 {( B+ J! z
  260. LDA #$002 ~' ~, n* H% H# r& E
  261. STA APU_STATUS
    , G$ I/ h, I8 ~" v( h
  262. ;==============================2 c0 p- J5 f# ]0 [$ y/ v
  263. ;初始化背景调色板
    3 A2 R' F' e& g4 _& b# ?
  264. JSR Set_Palette_Color
    ) L) l% |' g/ a' i
  265. JSR Set_NameTable_Attributes
    $ s; b+ d0 s& K% [: ?  L

  266. # {) y7 X' v9 q4 Y; g/ I% B6 G6 U
  267. ;==============================
    - G& {1 _) N" ^. Z. N4 @
  268. ;RAM初始化
    . v/ t' F3 Z) M! ~. q. o4 ~3 s
  269. RAM_Clear_All' g: J5 q5 s3 A7 k
  270. LDX #$00
      {5 u* X3 O/ W1 `4 j5 ]' c
  271. LDA #$00
    & V9 t% @: a4 t2 w
  272. RAM_Clear_All_Start
    0 e9 y( c. D$ \8 \0 X# b
  273. STA $00,X
    * D5 v& R7 U( T- v7 @: u' N/ o8 h
  274. STA $0100,X3 {* Q9 g* h1 l0 q' E7 T6 G
  275. STA $0200,X
    7 V7 E2 F. `: a+ h! a/ U
  276. STA $0300,X
    , _: |, O8 s  n
  277. STA $0400,X: |% N. E: m% z4 }: S  c: M
  278. STA $0500,X2 M$ Q/ f+ {( _9 W& x
  279. STA $0600,X' V/ ]1 d0 D6 g
  280. STA $0700,X& ]9 H2 `) G7 M4 j# Y
  281. INX3 t( G* s0 j' P6 x
  282. BNE RAM_Clear_All_Start
    0 p/ D/ U6 r! P. C
  283. / J# i9 M) w* b" g& m
  284. JSR VramInit
    0 d3 S' H" ]1 _1 v0 y
  285. JSR Init_Palette_Addr
    . A9 ?7 j. M3 m" m/ H4 C
  286. % z6 @5 w  U# C- O  U5 G
  287. .IF Music_Reset_Addr
    # }  O) ~' ~4 V5 F# P) ^6 D! Z
  288. JSR Sound_Reset% d1 [" @" c  s3 [
  289. .Endif
    % \: V( D: ]5 F  D/ t6 ]' @

  290. # C4 n1 A, N! D4 b$ X0 x7 h1 C5 f
  291. LDA #Music_Start_Song-$01
    , c3 Z. ?4 J. J+ j9 F4 i0 H
  292. STA Music_Cur
    ! R8 K$ K( c6 c6 b5 e: F( L# N8 Y

  293. $ |/ ]0 h3 [, J2 a( s) l
  294. JSR Show_Music_Text  x5 r% \, B6 y* H+ r
  295.   D7 S0 M4 e- c' c
  296. .IF SOUND_BAR_SHOW_ENABLE
    * Z' x9 @9 P9 X) `
  297. JSR Sound_Bar_Text_Set( s5 w, X, d3 X% E6 v
  298. .ENDIF1 f0 Q& I( u1 w/ C2 z; F) z% w' q( c0 j

  299. 5 e+ w1 W% f7 \5 @
  300. .IF Track_Name_Pos
    % ^8 ?2 E! N3 b8 F3 z
  301. JSR Show_Track_Info
    ' v" r9 \) M( l$ I0 z# I
  302. .ENDIF
    ( S. G# y4 m# \- [6 D
  303. - N3 O0 s8 ~8 Q' A; h
  304. JSR PPU_Proc% e4 \& s5 F' k% l

  305. + A  N/ u, u$ u$ A" Z' s
  306. LDA #$0E
    & P1 T6 h0 W2 j% h  J+ `" O
  307. STA Screen_State: E# f# g, J  \; i7 C- C: A
  308. % \- y( W: [) v
  309. JSR Sund_Bank_Init
    6 G5 `) R# C) X# ]* O
  310.   h9 g& y! V$ P7 W- C2 r
  311. JSR Music_Show
    9 ~) L, s5 k0 {0 R9 b
  312. JSR Time_Show4 S8 T5 v! w9 [: |% v, a
  313. JSR Music_Stata_Show2 B' u& {1 G* ~. e
  314. JSR Time_Delay
    1 |5 W7 q% Z2 S) J$ A) \

  315. ; h" L6 v9 _+ m

  316. 7 t9 ?- r) r0 K' h0 p* S
  317. LDA #$80# _9 Y. V  B; ?# t$ n8 k# v  q5 F
  318. STA PPU_CTRL$ }. z# H' U7 \( R

  319. 1 w5 A  O  M% M6 X
  320. LDA #$201 ?/ ~; C( s9 R2 B5 a# }  t3 G
  321. STA Time_Wait_Cnt
    2 Y5 Q% _  i7 `- ^# v- X* W& f& E

  322. $ w" W7 V/ K; a# C3 G0 v
  323. Wait_Time_Over
    8 d5 {# k$ q% G+ P
  324. LDA Time_Wait_Cnt! D5 S5 ?/ T) ?: z6 v3 G2 B/ E
  325. BNE Wait_Time_Over
    : Z1 H! ^6 l: Q8 v, ?
  326. : O( }1 e# ?7 A/ ?# M6 v/ ~1 j. {
  327. LDA #$1F8 m. J! n; v8 E6 L- F+ w' \
  328. STA APU_STATUS
    1 f3 i4 }6 A9 n! O* m9 w- y, h
  329. LDA Music_Cur9 V/ D# u$ v6 T& z0 ?) v
  330. JSR Sound_Init
    + A' S$ i' Z5 x' X3 K1 n5 \1 C

  331. ; A  n( a8 ]; i5 x& c
  332. JMP MainLoop
    4 P9 l1 b3 C7 e8 q% u) T
  333. " l) m2 u* k9 A: @
  334. ;==============================1 B/ `- J/ I2 ?/ _
  335. Time_Delay;延时等待$ [; L9 p; q1 Q1 _7 I1 M9 `" G
  336. LDA PPU_STATUS" J/ h0 ]. i  r* G) Z; \" Q6 A
  337. BPL Time_Delay
      C, S6 d. W1 m
  338. RTS
    " I. S& t/ t3 W7 s, v; a

  339. : {) |- Q0 n6 H( O- @# T
  340. ;==============================
    8 |8 f! b- V; g- c$ ~' H. o
  341. VramInit;初始化图形内存7 n# [1 @9 g: d& J$ [
  342. LDA #CHR_DATA_BANK
    2 G# N* J8 v5 L- }# j6 r" `+ k
  343. JSR SwitchBankA000
    + M" T" W) F2 ?- q2 d0 }
  344. LDA #LOW(CHR_DATA_ADDR)- J/ X4 g: J6 z6 U$ |
  345. STA <Data_L
    6 a5 P  R8 S2 k* H& o& k
  346. LDA #HIGH(CHR_DATA_ADDR)
    4 _$ V& g% j% m- \
  347. STA <Data_H$ b2 ?7 q0 p) B9 @- p
  348. LDY #$00  r" @8 c% s, z7 @
  349. LDX #$20
    ) Q: z5 `' @  T6 _0 j2 r; \  _
  350. LDA #$00
    2 C0 S0 y2 P5 l  S* r4 y4 B% V$ L
  351. STA PPU_ADDRESS
    - F2 s0 r* W+ O# p2 V+ b" t7 K
  352. STA PPU_ADDRESS
    1 @& y5 q1 r" r7 r) ~
  353. VramInitWrite! {# C( p: Q% ^# Z6 _3 L
  354. LDA [Data_L],Y
    2 q$ C2 {* _* C$ f8 ^1 j, T* R
  355. STA PPU_DATA  t5 x& u  V  V, Z
  356. INY( i0 `6 u/ M2 O, S+ ~
  357. BNE VramInitWrite
    3 L7 h. U5 H; |" t8 Q9 h
  358. INC Data_H
    + h& l5 @; o3 D7 \8 w/ a+ E
  359. DEX8 a% F$ D7 S7 b) o- b
  360. BNE VramInitWrite
    . m6 S; e0 P7 ?$ N* M4 Q6 M
  361. RTS9 P- R- G+ r9 R9 {, c; N
  362. ) H  d& T4 u3 i2 Z  L( x: v) J
  363. ;==============================+ \) P# q: r' F# [
  364. RAM_Clear;RAM清除$ u+ F# C" x- B" T
  365. LDX #$00
    4 }5 |, C' O; D5 L
  366. LDA #$005 G: p2 \. Y* L- D* Y
  367. RAM_Clear_1
    % m/ Y: s  T; L$ f
  368. STA RAM_Cln_1,X
    5 E" b/ @( i  f" i1 f$ E
  369. INX
    ' Z7 [9 t3 G0 W  H0 a
  370. CPX #RAM_Cln_1_Size
    . C/ D, j! G& c. o
  371. BNE RAM_Clear_1! }% E- B" i7 l2 x
  372. LDX #$00' r7 v6 H7 A% m/ ]
  373. RAM_Clear_2
    9 h+ }  n& K1 e0 \3 [4 A
  374. STA RAM_Cln_2,X4 q& I: e. W- a' V  r
  375. INX
    # q8 g! H  W0 K4 b
  376. CPX #RAM_Cln_2_Size# ?0 `; X+ E) G
  377. BNE RAM_Clear_29 J; P/ |8 G) ]+ P3 `- N; I
  378. LDX #$004 C' R; B+ ~/ P! Y
  379. RAM_Clear_3/ B: I; u# l# j% v* {3 g( J: S
  380. STA RAM_Cln_3,X! E/ C! o# N/ k( ^& ?# e
  381. INX
    1 F* g, h( j7 \! u2 s2 G
  382. CPX #RAM_Cln_3_Size3 ^! N  N- z' K4 g0 D4 A8 I* a9 g
  383. BNE RAM_Clear_3
    $ D% U3 ^" X4 a$ V
  384. RTS
    $ O* p% Y/ H' e! H2 @
  385. 7 B$ O0 R/ u2 p# @5 g
  386. ;==============================& i- s1 ?+ y: G" C
  387. ;音乐切换
    % L" P7 |5 Q! t! W0 s
  388. Music_Switch# A9 I# _' N0 m1 r
  389. JSR Key_Proc* o& n* z! R6 K* B- g
  390. LDA Key_Once
    0 ^9 y- ?' \9 C+ T+ ^9 ^
  391. CMP #$10  H7 h3 m, i9 j3 Z9 R
  392. BNE Music_Start_SongStop
    6 q. c/ q: \7 I! m# x3 E
  393. JSR Music_ReSet
    : O3 r0 C7 _' O7 E5 |6 G% _
  394. ' D2 A. S2 o6 ~% [0 r4 |- b
  395. ;音乐停止
    / J' ~$ C9 E7 G# s, v/ b4 k. v
  396. Music_Start_SongStop- }  D; m$ J+ r" z9 t0 `
  397. LDA Key_Once
    5 u2 A( ~- ?. U, V$ A
  398. CMP #$20
    : h' d3 r% p4 J& V) O! o7 w" d  Z
  399. BNE Music_arrow- N3 j& g( T! V2 n8 c: H
  400. LDA #$01
    / G5 X$ J8 W- ^9 t. C0 G
  401. STA Music_State
    . q$ N- i: ]) Y) u( p7 f2 E
  402. JSR Music_Bar_ReSet" s' [( s5 H6 M
  403. JSR Time_ReSet
    ' d# {" |" e: `! D& o7 c
  404. JSR RAM_Clear
    : V9 k' L7 F: ]0 Q9 \' I
  405. JSR Sound_Clear# l; p6 u6 t9 f* L
  406. JSR Music_Stata_Show
    ' a9 e  U( M: K& r; g8 b
  407. Music_arrow5 E5 T; t5 C. {
  408. LDA Key_Once2 b8 D7 K3 k0 _4 n$ P# W
  409. AND #$CF
    8 i. `, f) z6 M# d0 l2 u
  410. BEQ Music_Switch_End
    # e1 b  p7 {/ [8 n6 g9 i6 s, b
  411. JSR Music_Number/ o) @/ e/ F' ?( x1 x( b3 Z, P9 O$ t
  412. JSR Music_ReSet0 {  x0 Y5 J8 g5 c5 {
  413. JSR Music_Show
    ; ^: [% D: x1 p, v  @% f1 r
  414. Music_Switch_End
    ' s& L7 P. O9 s+ U
  415. RTS, n4 z( x& P; V4 w- `8 B$ v# i

  416. & @* U. n+ ]4 Z3 V
  417. ;==============================
    1 q+ E' R" ^2 w/ ?
  418. ;音乐曲目切换4 F3 n/ W7 e: A3 v
  419. Music_Number! f" l5 e( z! _. N" a& E  {9 i
  420. LDA Music_Cur
      f# o* T( l9 Y1 Y; A
  421. STA Music_Last9 ?4 y# y/ Z, V5 Z
  422. Music_Decrease
    ( E0 u9 L& Y5 W  P! r2 r
  423. LDA Key_Once$ c* J% v5 {- O4 Y( I
  424. AND #$42
    . ^) @% Z# L  P9 S% ?
  425. BEQ Music_Increase( G! d$ t8 t+ ^, A
  426. LDA Music_Cur
    + Y# R4 I6 P/ q' q
  427. BEQ Music_Increase
    ' ]# k7 m/ q* r, x& L
  428. DEC Music_Cur. H" ?$ N0 }3 y" {1 L7 M- i
  429. Music_Increase
    % I# H7 k9 R' f7 i9 V
  430. LDA Key_Once, w& p" X" j7 d% K/ `9 ^
  431. AND #$81
    * }5 a5 L& S8 ~, P9 c
  432. BEQ Music_Decrease_10
    % q. }* `- M7 X) o5 a
  433. LDA Music_Cur
    0 k% k3 T+ Q3 @8 q; p# P1 R
  434. CMP #Music_Song_Total-01
    ( S  y1 o- o: @: g# G/ F6 l. A, z
  435. BCS Music_Decrease_10* v: k* e5 j$ j5 _' p  Q/ c* [
  436. INC Music_Cur* e: Q" e, T% O0 w
  437. Music_Decrease_102 T2 _/ p% e. n4 a/ n6 E
  438. LDA Key_Once
    ! O# ^% v% h' G; [+ ^0 N
  439. CMP #$04: I, M7 t. a' }* T4 G4 S8 J1 ~- f( C
  440. BNE Music_Increase_106 N8 r2 E3 {4 M( s+ \7 W/ ?2 l
  441. LDA Music_Cur% ?3 T( c4 `9 p* |- A% q4 N1 d
  442. CMP #10
    ! q9 ?& U( X, g. [/ p
  443. BCC Music_Start_Song_Min
    4 B5 I& W- j6 K' B4 x1 l- h
  444. LDA Music_Cur
    ' W' p4 z& y! g9 n4 p
  445. SEC
    9 E9 b  G( c% ]
  446. SBC #109 K# K' ]2 S0 D
  447. STA Music_Cur
    " V7 e7 G1 I; X7 ?! y; y4 R
  448. LDA #$00
    ( Q( \5 ~3 H3 b) x9 q
  449. BEQ Music_Increase_10
    4 z6 d2 ?1 O" s( K" D+ @7 t
  450. Music_Start_Song_Min
    / D6 Z: x0 R9 n8 M7 R6 J
  451. LDA #$003 F& L, Y' g  X3 y5 t% U& H
  452. STA Music_Cur
    $ A( r/ Q6 |- u  _( @+ d  z2 r
  453. Music_Increase_10# x: l, K/ D: S5 E& z- m
  454. LDA Key_Once
    9 A5 r: E" G" l. @' J
  455. CMP #$08; e/ @# V6 b  z$ X% w
  456. BNE Music_Number_End$ U2 z+ v# j9 E: _1 {8 h. X" f
  457. LDA Music_Cur- j6 }- Y) t# H; s
  458. CLC
      J2 w- d2 N. \8 A8 w+ u/ u1 Y
  459. ADC #10( K. N4 @( R9 s1 O2 I9 N. \
  460. CMP #Music_Song_Total-010 R1 b5 [; M! f/ [+ ?
  461. BCS Music_Start_Song_Max: S  T! M' {* e8 S+ Z7 r' q
  462. STA Music_Cur, w$ P+ c0 j2 F9 t
  463. LDA #00' ?$ S3 O# ?% \0 C! a/ @  \; `
  464. BEQ Music_Number_End/ c  V" o* C1 E& b( e' ~" j
  465. Music_Start_Song_Max
    3 u5 C' W4 k, L: r. }- _! B$ f
  466. LDA #Music_Song_Total-01
    * t" w* D5 V6 y' p4 l/ H: v
  467. STA Music_Cur
    ) W9 v* T5 \4 C5 t  o- L) W8 o
  468. Music_Number_End
    . a6 _: Q" X1 P" @* V$ O
  469. RTS
    $ Z" @1 L/ r4 O# s4 N  k
  470. 3 H/ S: _( k0 E, a7 M' M2 }" u( t7 ^8 C
  471. ;==============================! v3 O8 g- @( X$ r! Q! j
  472. ;音乐重设7 C: m  U- u9 i4 N5 a
  473. Music_ReSet: i3 S  t! {9 @9 k
  474. JSR RAM_Clear
    # `; y8 j& s" e7 l2 G1 P* t  r
  475. JSR Sound_Clear
    % J5 g* J, _" g0 ]( p
  476. LDA #$1F) Y( R+ k4 x( q6 p# z
  477. STA APU_STATUS2 B- V1 J% v3 W! v( x1 m
  478. LDA Music_Cur
    # p" U& R8 X. C+ |5 n1 S
  479. JSR Sound_Init  |/ b/ y: e: {2 i4 T& y
  480. RTS0 Q7 i" A) g& M7 \
  481. - Y+ ]+ y$ ?, t4 h9 S, V. N
  482. ;==============================
      t, F( G$ E/ z) A3 n0 M- D
  483. ;音乐端口清除
    . f8 L: f5 v* r. [
  484. Sound_Clear* b: z' T2 l8 s/ ^
  485. LDA #$00+ g3 B) \$ G/ B
  486. STA APU_STATUS- }: }, c! w9 p+ {2 `" f
  487. LDX #$00
    : v- [  T( x( Q+ p4 X1 L
  488. Sound_Clear_Start$ A* @2 K) `" w
  489. STA $4000,X
    9 o% d7 Q; f. M1 E' X, H
  490. INX  w2 E! Q4 c& R! N! Y, C
  491. CPX #$14
    8 N% q2 |2 X+ O( G3 c0 O
  492. BCC Sound_Clear_Start
    5 z, v9 a1 Y7 s; R" t
  493. RTS% [6 b8 ~7 ?! h- W! T: {' i

  494. % d7 M1 Q9 L7 H; `( d/ a
  495. ;==============================
    ' c8 h4 S7 b/ ^1 Y
  496. ;按键处理7 H4 I+ Q0 u6 U, r
  497. Key_Proc
    ( b) [: H0 y2 a. F' s
  498. JSR Key_Scan5 m6 `1 _6 Q, C: g0 y: |3 @
  499. LDA Key_Keep# ^) H% Z4 }$ @3 G1 z5 f# y9 Z
  500. STA Key_Temp
    : X' _# G( Q/ y: l% ~& S# Z" b# f! F
  501. JSR Key_Scan
    - i4 |! \& `& r. _' L  m/ Q$ J" Z
  502. LDA Key_Keep
    ! A0 c$ W! Z8 ?- S2 {
  503. CMP Key_Temp$ `* {8 W+ s7 I5 d, b
  504. BEQ Key_Get_Once. _# o( w3 D5 O3 `
  505. LDA Key_Kemp
    + p& Q+ _! n# Q6 t5 Q9 j; G
  506. STA Key_Keep6 I% l& K3 ]  e3 U, r
  507. Key_Get_Once4 [/ Z. O! T9 J) q
  508. TAY& _2 k' I3 ?, s6 r3 J- M
  509. EOR Key_Kemp
    1 J" j$ r. i8 c8 s" _
  510. AND Key_Keep
    + {; y+ I4 C! W$ P- p& c6 H
  511. STA Key_Once
    5 M  `, ~5 I$ I$ E5 ]% _
  512. STY Key_Kemp; a# I; G1 p6 `6 H+ K0 i8 _: b* I. _
  513. RTS$ a3 E) ]4 l9 T# x
  514. ;------------------------------
    1 A4 [) Y3 ?# j0 j* q4 G$ y& x
  515. ;按键扫描
    & ]. D- E% b# P: ~8 W/ L7 `0 Y
  516. Key_Scan! |8 Y5 F$ k" h1 J1 ^1 u: j3 @
  517. LDX #$01- `! \2 p- y0 ?' t1 c, ?
  518. STX JOY1_FRAME
    & R0 J5 D( |" B9 }8 c7 Z/ {1 Q+ [
  519. DEX
    & {9 S) a3 c' v4 `) k7 O- B3 k
  520. STX JOY1_FRAME# ?: o% F/ |/ z2 T
  521. LDX #$08( D/ Z- {7 x8 P
  522. Key_Value
    * E. x. k. w2 y
  523. LDA JOY1_FRAME2 Y. v( ~* e! W2 S: @- t7 B) `* _
  524. STA Key_Getv; ]) c4 {% ^" }7 L+ d  w
  525. LSR A
    $ P! {$ D/ \4 L# J2 p8 u
  526. ORA Key_Getv
    & A- A; g3 H6 T4 ?
  527. LSR A
      V  j1 ^6 n/ q% O* R' B, K2 ?7 u
  528. ROL Key_Keep0 L$ y4 E* R1 ]2 q/ u
  529. DEX) |" Q& R' R  l. x
  530. BNE Key_Value# c/ C0 Z$ h  B9 o( n- I; E/ n
  531. RTS
    $ `% Y! O# L8 r* m6 z
  532. . {: o8 O- Y# F9 b& I
  533. ;==============================
    # R9 b" x4 u% Y. D5 d2 j
  534. .IF SOUND_BAR_SHOW_ENABLE
    4 O7 ]) p4 e' K! o) H( ~. D' \* n' C
  535. ;音乐条显示
    * m# M" x/ \( Z& K3 G6 Z
  536. Music_Vision7 k/ B! y+ }1 D! c& v, Z: u
  537. JSR Music_Animation/ e3 p' a. M! e9 H% {1 c: T/ D0 v4 ?
  538. JSR PPU_End
    6 {5 I( ^$ T9 l  v. l9 ~9 K
  539. RTS2 _1 `: g# m( e
  540. ;------------------------------2 J2 ?& M0 B0 y$ `5 C8 u
  541. ;音乐条显示处理% @* I' a: r! G; {+ e$ P
  542. Music_Animation: X- J! z  {/ K9 r
  543. LDX PPU_Cur3 J, a) T1 f. q  V
  544. LDA #Mode_Line
    4 T, V1 E: z; `: s: B" u
  545. STA PPU_Addr,X
    + Y2 q, B6 ]2 W; y$ u1 f; p
  546. INX& R4 _$ u4 E  G" W7 R
  547. LDA #HIGH(Sound_Bar_Pos)
    $ e9 }6 D& s9 v7 ~+ [! S
  548. STA PPU_Addr,X* l  X' ^/ x) |2 x0 X
  549. INX
    : X% v. U; X5 n7 G' X: M, G
  550. LDA #LOW(Sound_Bar_Pos)0 P7 P9 h( W+ C% b
  551. STA PPU_Addr,X
    $ i1 [8 H; n9 w/ t( W
  552. INX; I. b! d2 R2 o3 Z: Z
  553. LDA Sound_Bar
    0 w. l% p+ c' H# i
  554. JSR Volume_Convert3 r" f# I' A5 e1 p4 A/ m
  555. JSR PPU_Return
    ( `5 w2 [" m8 {, ?
  556. LDA Sound_Bar+$4
    0 [1 D' T) `& j& ^+ Z! B7 h
  557. JSR Volume_Convert% S% v0 |: Y  _9 t* O; P9 g( L
  558. JSR PPU_Return
    1 H' v. ?8 F2 S. u4 a1 n) r
  559. LDA Sound_Bar+$8
    " `4 u) V" u; S4 G0 B1 U+ V
  560. JSR Volume_Convert_Ex
    * }# `7 [& N+ K& f
  561. JSR PPU_Return# m1 @& a% w' Y0 L2 {* [+ j
  562. LDA Sound_Bar+$C
    9 R2 P& j  p* ~6 ?- T" \5 \7 w: m  o
  563. JSR Volume_Convert0 a1 C- J) Q# ~3 ^: Q2 U; S
  564. JSR PPU_Return
    3 ?- j8 [: }$ `) m* h
  565. LDY #$10; n0 f+ ]6 h& x) T( Y8 ^, L
  566. LDA APU_STATUS. V% t9 a5 h( i3 g" j
  567. AND #$10. p6 h0 H3 }2 B2 N3 b5 U" J
  568. BNE Volume_Count
    . {% r* n* h& \
  569. LDY #$00
    . s/ L2 v+ u. Z# j
  570. BEQ Volume_Count
    + L8 n! I8 ~( e9 T3 f( ?1 u6 \- t
  571. ;------------------------------, |6 I! z9 I; {) R- p5 Z
  572. ;音乐条处理/ R+ a* S( b6 x, p# J. e9 a  x
  573. Volume_Convert_Ex! w' q# Y, T% _1 ]& `  s, a' G& }
  574. AND #$1F
    ' o" w2 f1 [% M4 ?2 w4 b
  575. TAY
    + m: J- n6 l' s; }) L
  576. BNE Volume_Count9 I; K# k* q( o* e  h" q2 E! z% M
  577. Volume_Convert- S! x: O  v4 L) \) S9 _" \" u
  578. AND #$0F
    % ?6 x3 Z8 q, J. I0 c
  579. TAY# l6 ^8 v6 i) q5 R' Z
  580. Volume_Count
    ' C: i3 Q$ \& C  {3 |" L
  581. LDA #$08
    & G0 Z/ P' h' I- k0 v8 |
  582. STA Sound_Bar_Cnt
    0 n% n" V3 i' J' G; i# F
  583. Volume_FILL  h4 A' W# W- k- g! i; D! h
  584. DEY1 C- [9 \. W. N; }# X# B2 @
  585. BEQ Volume_Half3 C1 D+ O: ?/ ~+ n
  586. BMI Volume_Empty
    $ q9 G- H1 k9 K' C) N
  587. DEY
    ( O3 n- w, E( F  D' \
  588. Volume_Full% G! }4 Y: I) D0 [( Y
  589. LDA #$16' H' T/ V# U8 h: G  l% p
  590. BNE Volume_PPU* o1 B1 J: A- A# p* m$ x$ r0 y6 d) z
  591. Volume_Half
    9 f1 m2 |% C6 R6 W1 Z3 W  O+ y) \
  592. LDA #$151 d( D/ p; }  D6 E( A4 g
  593. BNE Volume_PPU8 `+ y+ S8 N( R3 g: v+ Y
  594. Volume_Empty
    ' h( o' X1 d+ ]
  595. LDA #$14
    8 i+ e/ v; ]$ f
  596. Volume_PPU
    + ^2 E( u3 z. K/ t8 P' |
  597. STA PPU_Addr,X0 K9 v0 Y" D, y! ~  C) g
  598. INX0 d0 }3 m" C3 \( _6 t! u0 g% k
  599. DEC Sound_Bar_Cnt
    % p! V/ d" N0 K$ s. M+ |; M) ]
  600. BNE Volume_FILL
    1 \+ I' U# Y9 K4 Y
  601. RTS$ `4 i- x; {! _
  602. 7 A7 _: [, x8 i+ j2 _( m3 p; `
  603. .ENDIF
      G. t5 k2 r5 k! U7 M. A) U$ g4 f1 [  V

  604. 1 K* Q' I7 Y1 @/ x. U# X( G( g" h
  605. ;==============================7 V4 v' \$ p4 p# _9 F" d
  606. PPU_Addr_Set;PPU行开始
      \1 W& P) l4 m" x  c) J. {/ Z  c
  607. LDX PPU_Cur
    0 x0 J: Y4 s7 M8 F4 |
  608. LDA #Mode_Line
    : i1 p7 j( q5 ~, a; o
  609. STA PPU_Addr,X
    % P% s6 R/ R% N
  610. INX$ Y. V4 u  q" B6 i- n  h4 s+ S
  611. RTS
    # [  B, M/ I2 P+ ~0 c$ I3 _' |

  612. 4 U: T* r( {0 [# G& N) B1 y
  613. PPU_Return;PPU转行
    . q$ D( E# M7 J$ w& j7 b2 u
  614. LDA #Flag_Over" h" r+ f4 X7 W( ~. T: w
  615. STA PPU_Addr,X
    ! _& z9 G; k& [9 @9 h) j9 N
  616. INX
    , w8 O9 V- o& u$ F- M, I# P
  617. LDA #Mode_Return
    0 e. J) g. U: D
  618. STA PPU_Addr,X
    / o9 \; s+ e1 ?; m
  619. INX3 J% x, i0 s* c2 ^
  620. RTS6 d, b3 T& c  Y( E( e% c

  621. / D1 C9 D4 H! U* P  Q+ ?- h
  622. ;------------------------------2 M1 H6 r  C4 C3 R% J# F
  623. PPU_End;PPU结束$ V) ^( `* j' x, @+ X! i
  624. LDA #Flag_Over
    : R6 Y4 k1 L2 Q. }8 W9 Z$ k* c; K2 h
  625. STA PPU_Addr,X/ u: z4 D* T) Z0 l" ?: \/ N4 u* Z
  626. INX1 P6 e  d7 a0 `5 R! f
  627. STX PPU_Cur
    $ ?  I5 [: m& v6 Z  \
  628. RTS7 H: \# W8 ?, X* s
  629. ;==============================
    5 @% ^6 V1 k6 |  `% Q
  630. Mode_Line     = $FD    ;新起行模式0 c& J3 ^3 U; H8 [
  631. Mode_Return   = $FE    ;转下行模式& _. P  L* s5 J
  632. Mode_Clear    = $FC    ;行清除
    ; t& z8 x" V! b* b/ M: z8 X7 k$ E
  633. Mode_CntLine  = $FB    ;行计数写入
    ! m, N5 C9 P! A# ~8 e
  634. Flag_Over     = $FF    ;行结束标志
    * S4 j" l9 G8 U7 S/ `
  635. 1 t& u7 O7 }+ E" b6 z
  636. ;------------------------------+ H6 V1 |5 _: `$ @8 X6 @
  637. ;PPU处理0 K* M. P$ k( l
  638. PPU_Proc  O& K+ @$ W& \9 M5 g6 i- ?
  639. LDX PPU_Cur/ O7 d1 x: j  i0 X, s4 m7 `% }
  640. LDA #$00
    - f( E7 Z: m9 T. g3 L3 O
  641. STA PPU_Cur
    ' ^2 \* X$ C+ A
  642. STA PPU_Addr,X7 p; R1 A4 _5 X' I  O& {+ H4 v' o
  643. LDA PPU_Addr* t, A: ]" y: ^+ p7 q
  644. BNE PPU_Proc_Beg
    7 M- W1 ^& T3 h- P* V
  645. PPU_Proc_Ret
    3 U  x+ L6 S* I
  646. RTS
    4 ~; d. R5 U$ z: o: {
  647. ;------------------------------
    ' j! o' A+ \1 p7 h( ?3 F, \
  648. PPU_Proc_Beg  ;处理开始
    / {5 K; b( z4 a) F
  649. LDX #$007 J- ], t( r! x2 @0 {5 o
  650. STX PPU_MASK
    0 ^% R; |) S# g  I/ c4 ~6 i
  651. ;------------------------------
    # b. n* t* i4 A" ]# E
  652. PPU_Mode_Select  ;模式选择
    3 }: L( ~% |% v' A: D8 z: V
  653. LDA PPU_Addr,X! f6 L& r8 E9 I8 c; u
  654. CMP #Mode_Line7 P8 Q. S2 Z) K) E6 L
  655. BEQ PPU_Mode_Newline# R3 V" W- L7 B+ h$ @6 T2 _  j
  656. CMP #Mode_Return5 U( i$ B: Y) V7 E. b
  657. BEQ PPU_Mode_Return
    3 v( m  z/ N, R: \
  658. CMP #Mode_Clear' T0 Z. w  w+ Q- ]; E5 v
  659. BEQ PPU_Proc_Clear
    * ~3 Z8 {) m: n9 l
  660. CMP #Mode_CntLine
    ' v- e" O& l( \% ]4 W
  661. BEQ PPU_Proc_Cnt_Line
    ) A, d6 d, C0 G; o3 m4 c9 o
  662. RTS7 z6 j- k' N. f! A6 G
  663. ;------------------------------
    7 T4 s" h: e3 n
  664. PPU_Mode_Return  ;转下行模式' n$ c$ @  G* g- x
  665. LDA PPU_Addr_L
    2 n1 G7 z3 ^! V7 k
  666. CLC+ u" m8 y1 \+ Z# L: m. l
  667. ADC #$209 ?! v+ ~; r2 f
  668. STA PPU_Addr_L1 ], P" A- B8 l: W
  669. BCC PPU_Return_End( T8 r3 p' c1 R* ^, u& ]. F
  670. INC PPU_Addr_H
    - \) K- V7 x  o
  671. PPU_Return_End
    - U! B1 }! n; @
  672. JMP PPU_Set_Increaser
    8 x. M8 U4 C+ W( P6 g; f) r) n( E
  673. ;------------------------------
    ; y" }8 U* e* d, q2 B! _
  674. PPU_Mode_Newline  ;新起行模式, W6 z' z7 W) [% ]
  675. INX- N7 Y5 ~0 f3 F+ U  I
  676. LDA PPU_Addr,X
    ) v( l; j% j3 m1 D6 h9 ?7 U. b* s
  677. STA PPU_Addr_H
    - h# b# _! x% _( i& S8 r
  678. INX) Q0 C' l9 E9 X' d* j% R) E$ P
  679. LDA PPU_Addr,X
    4 o. S: `3 d/ _% ^0 o' Q
  680. STA PPU_Addr_L
    9 B' S& J, c! [+ I; B
  681. ;------------------------------
    5 D! X  I- N2 e
  682. PPU_Set_Increaser   ;设置写入地址3 _7 g" O) y# s# x
  683. LDA PPU_Addr_H9 Q6 Z5 C8 o& v1 s/ Y5 t) M& z( }& G
  684. STA PPU_ADDRESS
    $ Y3 C# D4 }% p
  685. LDA PPU_Addr_L( e8 [& ~  q6 z
  686. STA PPU_ADDRESS
    7 E" C# r9 U2 T5 t* J- W6 g
  687. ;------------------------------) N, t. t+ g/ `, B6 ~* T2 g0 W
  688. PPU_Write   ;写入数据
    3 Y# p: }9 {$ I4 c
  689. INX- _3 {2 j3 ]% T" V% D
  690. LDA PPU_Addr,X
    7 Y4 _/ l0 w0 c( k& y5 p% n4 S
  691. CMP #Flag_Over: l8 ^1 l9 [% H# @+ B
  692. BEQ PPU_Proc_End7 X2 B# s4 O4 D, w. U/ x
  693. STA PPU_DATA
      D+ V" {% D1 d* R7 i+ |
  694. JMP PPU_Write
    + X) N& y6 e: s! F& n& @7 F% A
  695. ;------------------------------
      V7 ]3 a3 U1 ~( \- K) v
  696. PPU_Proc_End  ;单行写入结束$ u! J1 [( R9 J6 E2 }1 H
  697. INX: i* B' P9 f! H+ Y9 ~, R
  698. LDA PPU_Addr,X9 T% V9 V# P( h: R- p  A# ~( D0 k
  699. BNE PPU_Mode_Select+ p* {, q9 ]: z
  700. STA PPU_Addr9 |* _" n% {1 i8 s  {
  701. JSR Update_Palette_Color" K# l8 @0 W" c9 |0 ]; x
  702. LDA #$00
    + L( i3 q+ u' `" B
  703. STA PPU_ADDRESS5 D# Z' x$ R8 ~5 F
  704. STA PPU_ADDRESS
    6 W. B0 m" Z# ~% k3 G
  705. STA Show_Track_Name
    - B1 E# |; z6 G" ~$ O) `3 A- u2 K
  706. LDA #Scroll_X
    ' A6 Q. R( e( Z! @
  707. STA PPU_SCROLL
    $ W  ?# @: Y" G. _: E: t
  708. LDA #Scroll_Y
    ! u- }" a: o1 _' _. f! W
  709. STA PPU_SCROLL9 N) F+ v8 ]6 ^
  710. LDA Screen_State" _8 z3 k; s1 s5 K7 W
  711. STA PPU_MASK
    ! I- }7 G) N4 o+ G& o7 V/ Z1 h
  712. RTS
    ) a6 Y$ n. B  @' d
  713. ) m4 w- e# B. v4 `. z" n/ l  ], R
  714. PPU_Proc_Clear4 x" [- Y) l5 {
  715. INX
    ; \% I" D# q# \
  716. LDA PPU_Addr,X
    6 l$ _6 ]) v  `+ n
  717. STA PPU_ADDRESS5 }; |3 f% [+ d; `9 F- |5 x
  718. INX& J4 |4 D! O: l1 h5 e- {( i
  719. LDA PPU_Addr,X  Y. q+ W. t: j. o9 }
  720. STA PPU_ADDRESS
    : c" M+ P- J1 E) x
  721. INX6 d+ V* p. Q0 {
  722. LDY PPU_Addr,X( E" S( Y4 v; F! g) }/ Q7 D
  723. LDA #$00
    0 {$ d. `5 F" e5 B+ [
  724. PPU_Proc_Clear_Write
    7 G: }8 p* q  V3 i
  725. STA PPU_DATA9 N8 F. R1 s2 l( V! F
  726. DEY
    " U. c% x& T2 o( W; H0 h0 E" ]0 Y
  727. BNE PPU_Proc_Clear_Write
    + r6 ^1 k  I( O* @, F5 h
  728. JMP PPU_Proc_End8 [' W1 M9 H2 c) ]
  729. , T* _) `0 H2 [$ z: v8 q
  730. PPU_Proc_Cnt_Line
    3 m+ U, m- e7 i0 m6 k) z$ h
  731. INX
    / c% T, R& g2 e% r: Z
  732. LDA PPU_Addr,X
    ! X, @' V7 i1 f1 E
  733. STA PPU_ADDRESS4 V1 D8 u  c. ^& [
  734. INX& W  e2 [: b4 c: J' Z; e+ k" y6 V
  735. LDA PPU_Addr,X+ J3 ~" N. D$ {
  736. STA PPU_ADDRESS/ Y/ s( T0 a6 ^( i
  737. INX! L" }7 N- q3 k! w
  738. LDY PPU_Addr,X+ Q0 L/ y0 u  e1 q4 a% r2 w8 S* V: x* g
  739. PPU_Proc_Cnt_Line_Write
    ' }9 [' d' g$ p) i, @9 g9 R
  740. INX
    $ [* z5 A% Y  o! ^
  741. LDA PPU_Addr,X
    - U' P. f+ `  \5 Y- _
  742. STA PPU_DATA4 h7 ?% U: _: p1 }5 {9 P
  743. DEY2 ~1 W3 R! t1 G
  744. BNE PPU_Proc_Cnt_Line_Write6 J  y3 e2 |. @! e
  745. JMP PPU_Proc_End
    : X' Y0 u; f  t; p4 x* G* n2 V

  746. 9 w, b( O0 q3 {6 O( B
  747. ;==============================
    / \0 A" I# w# A6 `6 E- \
  748. HEX_To_Dec;十六进制转十进制
    % B5 I8 F. C9 }4 C- _5 ?: L
  749. STA HEX_Data
    6 R3 I& ]* ?+ F1 P
  750. PHA
    8 u3 x9 I/ L: E8 W' O( ^4 S# k
  751. TXA- y9 n3 z7 d( u- N. s% a: @
  752. PHA1 T# `/ S6 @* g2 ^
  753. LDX #$00
    - N2 Z- F+ q: I3 \4 a+ b+ [
  754. LDA #$00( k. L! B1 y; s) o( ?
  755. HEX_Cln
    " c$ d5 B8 j; |, b9 g2 e7 ~3 k
  756. STA DEC_H,X
    & ]6 W8 `4 ]6 q) s( t+ f8 v# }) G
  757. INX
    ) l9 @7 x7 d+ v! C
  758. CPX #$03' n1 \1 ~1 v, R- C
  759. BCC HEX_Cln4 T! N' \2 H" E; ?2 l/ F
  760. LDA HEX_Data8 l" h# z' ~, c7 A- K
  761. ;------------------------------5 r' U5 I" N( M% B& r% z
  762. HEX_100# ~- m/ Q& T% Q+ z* D8 ]
  763. CMP #100( P5 e! D( j/ ]$ f0 l: s
  764. BCC HEX_10
    ( F9 U' Y( t; z+ T1 ]; ]
  765. SEC
    : a, R1 L0 _; q( J$ ^( F& [
  766. SBC #100  @8 S4 \' K+ V: N, t( |
  767. INC DEC_H
    & m  Q$ k1 Q. b9 F% e- {. \
  768. BNE HEX_100
    ; p3 ~- ^8 k. t, d6 V6 t
  769. ;------------------------------
    8 Q0 Q2 P/ `0 k+ Y; t( Z* c6 `: ?
  770. HEX_10
    9 q! @0 F0 m* K; Z9 ~' R' h
  771. CMP #10
    % V+ O5 D" h& e- N& W+ p( `
  772. BCC HEX_1$ F9 `2 _3 Y& p- D* k
  773. SEC7 n4 ?5 U0 }+ m# @! N! [. W
  774. SBC #10) _) t( P/ ]) c7 v* q
  775. INC DEC_T
    2 Q0 f/ O; d3 V
  776. BNE HEX_10/ v! N% [( Y6 s6 u" ?# J
  777. ;------------------------------- ]+ m; ]. o, c- v/ W
  778. HEX_1
    4 t/ i/ S! c# Y' Z: l, R
  779. STA DEC_L$ m9 M- {# W. L0 I! }
  780. PLA" u' L! x7 H3 |6 \, y; ~2 y8 z
  781. TAX+ e: d8 V& d- z2 t% a
  782. PLA. o% G: M' k2 P
  783. RTS4 Q# e0 G  W/ G* F* K( S

  784. 3 B; s4 t2 i4 ?
  785. ;==============================
    + Y# B3 b2 \$ q2 C( D- H
  786. ;音乐曲目显示# c8 k" u# ?! `/ c3 s
  787. Music_Show
    2 A. @/ Q% G1 ^1 Y% _! i* }$ W9 }# w
  788. LDA Music_Cur
    4 {" _+ M3 ^2 h
  789. CLC
    7 Z3 X- Q0 L' J6 H" G0 p
  790. ADC #$01
    ( z3 e! N8 T+ i5 K7 b: z% Y
  791. JSR HEX_To_Dec2 X" G8 _2 b3 [7 W6 J, D- y
  792. LDX PPU_Cur
    , W9 l& \1 b4 S6 a/ n
  793. LDA #$FD* \- ~( h* c+ E; L3 }1 H- `
  794. STA PPU_Addr,X$ U0 X8 c+ \% o# i
  795. INX- _% V$ J1 t5 f+ g
  796. LDA #HIGH(Play_Index_Pos)
      x* r" A( M) y& Z: Y
  797. STA PPU_Addr,X1 L, e; Y. p) ]" }( {9 O
  798. INX
    ! m" P0 V5 P) K% H
  799. LDA #LOW(Play_Index_Pos)6 N# j; `6 t/ A4 k8 |0 N/ L7 }
  800. STA PPU_Addr,X
    1 {! n3 X$ t# ]
  801. INX; H3 Z2 O# |7 }  K/ D" a4 ]
  802. ) y5 ?; o9 f2 ?& Z
  803. .IF Music_Song_Total > 99
    $ _9 W6 _5 M& z) \1 ~* |3 Y2 N( m
  804. LDA DEC_H
    * U/ \, L8 ]2 P
  805. ORA #$30
    ' ~3 N' i# ]4 k: g
  806. STA PPU_Addr,X; ~% v6 d& M, k, N# ~
  807. INX
    5 U& A$ n# U6 L1 q
  808. .ENDIF- o7 ~+ [/ m6 _8 \! ~

  809. 3 E2 s+ r( y$ e! Q) u
  810. .IF Music_Song_Total > 98 C! v: `* ]1 ]+ m- N5 |1 i$ \
  811. LDA DEC_T$ {: V+ y! O8 C9 j7 q
  812. ORA #$30# `* ?' G  ~9 I- ]/ y
  813. STA PPU_Addr,X2 _6 i; {  K( [  A' j
  814. INX
    0 \7 b5 E4 ~. F; U
  815. .ENDIF, f, w, T9 A( g) A3 N! ~
  816.   R( i2 d2 e9 i; X0 [& L  Y
  817. LDA DEC_L$ M; Q; k+ i2 t, U: N
  818. ORA #$30
    - u; l. ^- p' C6 E# p
  819. STA PPU_Addr,X
    ' |! G1 l' A" C
  820. INX
    0 b+ Y: [9 {9 J# l

  821. 6 h$ s/ Z9 b' ]) f7 Q6 |$ h
  822. LDA #'/'6 @% x8 ^+ Z6 H* d) H2 F3 t! W
  823. STA PPU_Addr,X
    3 W1 X. s6 l) P  O* ?
  824. INX
    + y3 P6 r* `0 }0 K( v* w0 s
  825. Music_Show_Total- E% Q' u8 |$ `4 n0 m# ?' J; D* u
  826. LDA #Music_Song_Total. ^/ Q  D; W$ ?% K3 t7 z! Z- G% @
  827. JSR HEX_To_Dec
    ! N! G  u1 j, O: E  _( @

  828. ' l* D# V* P9 B5 P
  829. .IF Music_Song_Total > 990 u' i* q* E$ D% r& d: Y' x" {6 y
  830. LDA DEC_H' e. S( t! H& d1 x
  831. ORA #$30
    6 F/ k4 O, H* _  ?& u- ~/ t. j+ K
  832. STA PPU_Addr,X- C6 n" u' i, ?1 L# j* O
  833. INX  K  O" D6 g& y4 Z
  834. .ENDIF  W' V' `7 A# v% N) C/ B: V
  835. # C4 i$ e" I! `/ ~  \1 w
  836. .IF Music_Song_Total > 95 j3 Q  F  `0 k1 |3 h
  837. LDA DEC_T
    3 `& [" {) P0 t2 V' K
  838. ORA #$30$ o& f5 e$ ?" C/ @
  839. STA PPU_Addr,X% |9 M5 u0 k# X* |( C4 X
  840. INX+ V4 ?/ b. m8 t
  841. .ENDIF+ P9 l6 j  z4 O+ J3 V
  842. 5 D7 d- O- Z/ r7 Q
  843. LDA DEC_L
    . l' m5 J8 Q' V- r
  844. ORA #$30
    - f9 ~6 q% [; |$ O+ Q& _
  845. STA PPU_Addr,X; G3 R. m) n1 V- g3 s
  846. INX9 H: L2 S6 {  Y# ^- I' X, S
  847. 0 r$ i# T! C# r+ d) W% ~
  848. JSR PPU_End+ V4 b$ b9 e6 G5 N: F
  849. Music_Show_End7 W+ Z; v. P9 K0 ?1 A# |9 h
  850. RTS2 x. Z/ U3 a; Y* y) S4 I

  851. , _& @" X5 p$ z% u4 @
  852. ;==============================  y' Y, D* @5 F" S
  853. Time_Show;播放时间显示3 D3 _& D+ S/ f1 N
  854. JSR PPU_Addr_Set6 y/ v! E, h. A
  855. LDA #HIGH(Play_Time_Pos)
    ( v$ N7 h6 ?% K* S- w
  856. STA PPU_Addr,X
    * L# z8 a1 F- \1 \
  857. INX
    ! {% W; d; Z& T# }+ o) F
  858. LDA #LOW(Play_Time_Pos)
    2 M/ b6 |# J0 L
  859. STA PPU_Addr,X
    : b$ G5 \3 R7 t' [+ c. l* h; C% q& K" x
  860. INX1 N% K4 J  n+ y6 l/ L
  861. Time_Show_H& C! C% [% B! Q
  862. LDA Time_H
    ! m! V0 |* R2 c9 b) P! g
  863. JSR HEX_To_Dec- w8 e% G; r4 w, y
  864. JSR Time_Digit
    " e* Q, A* @3 o! r+ j' v/ Y
  865. LDA #':'. v! J; T5 o& @- n( w  s; k
  866. STA PPU_Addr,X
    1 U; W' W2 [6 ^2 |4 w' s- P! E" r" Q
  867. INX! s* U( G- j6 q5 Y$ ^) r
  868. Time_Show_M2 z$ m& ]- h2 C& C0 r2 c
  869. LDA Time_M( D4 l$ w% M+ K4 w; k' U
  870. JSR HEX_To_Dec; p. w2 Y5 E. c
  871. JSR Time_Digit7 }. J: P9 a- g* p. `  X: f+ G- s
  872. LDA #':'  w( J2 t. Q* T$ t5 n0 @+ w
  873. STA PPU_Addr,X
    1 J7 G  N; v6 ~
  874. INX' _5 |% f1 J8 S% K; ?- a( p( F
  875. Time_Show_S
    . V7 ~) H# T2 N( H3 o
  876. LDA Time_S
    , f: B, c$ s6 _& N; X% f/ }
  877. JSR HEX_To_Dec
    5 ]8 a( r9 o% Y% O7 B* P5 S
  878. JSR Time_Digit
    ! m+ G; V9 x6 P9 ]( m' ~, {( @
  879. JSR PPU_End) T6 x  O% a) f% ?, F5 o( v
  880. Time_Show_End4 [  J9 o# X/ P  C
  881. RTS
      u2 _2 a2 d8 h( b4 O# p7 S) l
  882. 4 `+ B/ y5 V8 z8 _4 i2 ]% u
  883. Time_Digit
    2 M; r  O2 o0 q/ x9 {9 v; B
  884. LDA DEC_T
    7 J9 C% `7 l. Q& U
  885. ORA #$302 h" F0 ]5 T1 W6 X' P1 ?0 n0 B5 R& J8 ^
  886. STA PPU_Addr,X
    9 [# P' ?0 v" X) x) q
  887. INX
    3 d% O, P8 ?0 q
  888. LDA DEC_L
      Q2 s- n; j' @) u' H/ v1 I
  889. ORA #$30( d9 u' R8 S( q9 y9 L/ W
  890. STA PPU_Addr,X% G2 T/ r: ~$ Z5 k
  891. INX: G: x  h% N3 D: k
  892. RTS, Q8 [; w( t# D$ M+ `; R

  893. ) h( d$ V! c$ a& j
  894. ;==============================1 c2 H) j3 b$ S# {# Q7 D  p0 V
  895. Time_Count;计时7 z8 l8 |/ l9 C( t
  896. LDA Music_State7 a5 L# F: F2 E4 n( h
  897. ORA Time_Wait_Cnt' s# `# |8 f- g0 b
  898. BNE Time_Count_End
    + d. W+ Q  i! R1 j
  899. INC Time_Cnt1 t! C# C2 o' F. k8 {
  900. LDA Time_Cnt# T  r3 \" H0 T7 W; J4 D
  901. CMP #60
    + P! h0 E' V& u- ?. N3 w
  902. BCC Time_Count_End: S3 z# w- d( n5 O
  903. LDA #00' r( j/ Q8 [7 F6 d. `  v
  904. STA Time_Cnt
    % E8 [1 m* G4 V  r
  905. INC Time_S
    3 c7 X) G4 _$ n2 a; U; Y6 m

  906. 7 z3 H7 R* K7 N
  907. Time_S_Cnt* l" f" a0 d- P
  908. LDA Time_S
    ; f. i" M$ d9 o: y1 `; u7 U1 ^
  909. CMP #60' M. F0 p7 t* Y) P% _( V" |* g' O
  910. BCC Time_Count_End, F% P) R  A/ I: s; W# {4 q# |
  911. LDA #00
    % Z# ?2 U8 _9 B5 j
  912. STA Time_S
    % m, U% g' j+ @1 h/ a$ N; }+ W
  913. INC Time_M
    . @) `8 e- Q1 a. V3 T4 }7 d: f
  914. % M( y$ j, d5 q& C) ?+ ]1 g
  915. Time_M_Cnt; ]( q! K. J4 l
  916. LDA Time_M3 k+ g* F. j- c
  917. CMP #60( _; h+ }) u6 V/ n3 Z" m5 f. l% G6 R
  918. BCC Time_Count_End) \. A1 b1 |/ p- o% N1 Q
  919. LDA #004 i" g% N6 `3 Y& V5 m
  920. STA Time_M
    # M9 `" U: `' v; n
  921. INC Time_H
    2 ~5 K% t) p  Q: X
  922. ; \* Q9 f  J" @- [0 }& B
  923. Time_H_Cnt
    , Z* _2 c9 j" T: o
  924. LDA Time_H8 S  `/ f8 _( Y) L+ l  ]
  925. CMP #24
    9 c& H6 V( ]2 c0 L% z- |5 G% r
  926. BCC Time_Count_End
    % z' N4 Y% }2 v/ K$ U5 s2 {3 Z
  927. LDA #00( o, b" C; N! A8 t, V, Y' S
  928. STA Time_H
    # v/ ]% c2 A0 b0 ]% g
  929. / |' G' w  z5 R- y' X2 |
  930. Time_Count_End
    2 x3 Y4 A% G/ v! r
  931. RTS
    1 c) D( [* \# [& r  U( R
  932. 0 Z) Q6 K# u8 Q. W
  933. ;==============================
    3 b' U- i  H* r! A' i! n+ K# Q' B# v
  934. Time_ReSet;播放时间重置
    ; |, j0 o: O4 `- _
  935. LDA #$002 E: `( @# V0 W! z+ B
  936. STA Time_S
    " N0 A1 f5 {$ c, D, o
  937. STA Time_M 1 R3 I+ }% K3 k, G: W" D2 k0 p
  938. STA Time_H# }5 F- ?; v* s1 l- q: s
  939. STA Time_Cnt+ F' M% i" f, y8 p* `% ^
  940. RTS
    - s: E1 i4 J5 w( ^* i
  941.   B8 B( ]' G5 ]
  942. ;==============================# r1 e; B2 p# o3 _* N# D; s
  943. Music_Bar_ReSet;音乐条重置5 t0 d5 x* `6 N$ k8 i
  944. LDA #$00
    / _, S  e2 R0 \! r& ?% A! n
  945. LDX #$00
    2 y/ P  c5 R- S5 B0 K
  946. Music_Bar_ReSet_Set
    % H% I6 q9 f# p' a: g) f% S
  947. STA Sound_Bar,X
    7 X$ j, R* W' a1 L* C# |# N) p
  948. INX
    / j' [9 i! Y$ K, J* G' E7 U
  949. CPX #$10
    + A, e, k/ b7 a3 o; @
  950. BCC Music_Bar_ReSet_Set: M2 y- I  X  g% t' }" B9 z" j
  951. RTS: H# B# l4 `- n2 D2 J
  952. 2 Y9 j) U- w( d9 x# w8 m- b
  953. ;==============================
    6 \+ ^6 L7 Y: a7 I$ X7 x* X; w
  954. PPU_Data;PPU数据写入
    ; s3 W, o; N$ e$ C
  955. STY Data_L- z  f7 G$ v6 P6 w) D4 Z; V
  956. STX Data_H; o! I0 y2 e0 H. j2 Q! x
  957. LDY #$FF
    9 M6 K( [, m9 \  [1 e
  958. LDX PPU_Cur% _4 D; e! v- b5 m
  959. DEX( X$ J. H" e3 z9 j
  960. PPU_Data_Beg( f+ j% J7 ^) a. I# h* K' |
  961. INX1 k5 B3 Z' ], O) n+ l9 _* M& \% g
  962. INY
    5 M3 T& @5 ~: @7 {. B( x) r) C
  963. LDA [Data_L],Y
    % `# _- u+ @% F9 y( W0 c
  964. STA PPU_Addr,X: H( }8 S  H- j* U
  965. BNE PPU_Data_Beg- F  P2 E" A1 L- k4 n# ?7 K
  966. STX PPU_Cur
    5 R" K( W. `) k) m4 J" `
  967. PPU_Data_End- U3 H" U  t9 b: N  z. L6 @: Q
  968. RTS
    # N' K3 v. X& x( o
  969. $ I* ]4 M- Z6 B+ }
  970. ;==============================
    , A$ X6 l$ U1 u* f$ F
  971. Music_Stata_Show;播放状态显示
    # O$ ]" x9 B' F; k: S1 k
  972. LDA Music_State) }% V7 ]2 m! Z/ c3 e  h
  973. BEQ Music_Stata_Show_Play0 R; X; R5 `9 i
  974. Music_Stata_Show_Stop
    1 I8 v/ a0 F: f% ?$ M
  975. LDY #LOW(Music_State_Stop)/ _6 M. S) g0 w7 P2 h/ \3 w
  976. LDX #HIGH(Music_State_Stop)6 z4 q# D$ w$ O! R0 i2 ~
  977. JSR PPU_Data
    4 P# z( Y; F6 p9 Q: d+ u* `
  978. RTS2 [9 n/ F& b8 ~+ w  O; }- n
  979. Music_Stata_Show_Play% V" U# I: h1 |
  980. LDY #LOW(Music_State_Play)" s9 d7 L& b/ p3 M' R8 w
  981. LDX #HIGH(Music_State_Play)
    . s/ q# F- C: }7 Q' G, \
  982. JSR PPU_Data; k/ X5 J, o8 m9 ^* T$ Q- Z) v& D
  983. RTS
    , q5 ?0 F/ [& q( p! @$ e

  984. % o2 M; |, Z: M# t/ _" \# p6 y9 K
  985. .IF SOUND_BAR_SHOW_ENABLE
    . c- |& E9 I7 x2 B. \
  986. ;==============================
      R7 c; C8 I( S7 u+ y' o, p0 B( _5 A& }
  987. Sound_Bar_Text_Set;标题与音乐条初始化
    / u2 |6 c; i" z! K
  988. LDY #LOW(Sound_Bar_Text_Data)
    ( D- k4 m+ G. j3 O- ?. Q
  989. LDX #HIGH(Sound_Bar_Text_Data)
    3 q6 G% Q! a4 I; C! {# ~! h
  990. JSR PPU_Data
    : A8 T0 c6 }  v* J; N4 O
  991. RTS
    2 C* e  h0 V( x* e# x: l; x
  992. * p: q6 P4 w2 @
  993. .ENDIF" ~) p8 Y4 F% A! C2 H: Z+ J

  994. 4 _% m! ~0 U) ~6 D. j; W- m
  995. ;==============================! d: ~) s6 ?( U3 N* L4 z3 X8 _8 ?2 n
  996. Set_NameTable_Attributes;设置命名表属性
    % h. S$ O1 q: [. k4 q
  997. LDA PPU_STATUS* I* p, b# k0 F
  998. LDA #$23
    9 x! a  }( N7 a, g2 }3 _9 b: w
  999. STA PPU_ADDRESS' n& {1 c# {# W' n" a! V: ]4 e
  1000. LDA #$C0) R* Q2 T7 C- {! G9 g# c. w
  1001. STA PPU_ADDRESS6 ]( h+ H' Q4 P% t5 E3 g0 M* D
  1002. LDX #$008 D0 l+ A3 N5 u' E1 ?3 `
  1003. Set_NameTable_Attributes_Write: C' D8 w( d/ u- H" R( ~' I
  1004. LDA Palette_Attributes,X
    / @: U4 y0 a, V$ O
  1005. STA PPU_DATA
    - Y$ |! e; d/ y* q
  1006. INX& |2 y. Z( ^: {' x2 f% x! Q
  1007. CPX #$40
    ' e) T9 g+ ~/ c6 K: J& K4 F. Q9 \
  1008. BCC Set_NameTable_Attributes_Write
    * ]8 [+ y/ l5 R8 i! h& p+ H
  1009. RTS
    # j' }9 M  T. Q& b$ d1 K; z0 s8 T
  1010. ! e. e# t* r- {+ F! P
  1011. ;==============================
    9 \) I! k# {$ I6 `! m: `
  1012. Set_Palette_Color;设置调色板数据
    ; I0 Q3 y& w+ q* ]3 p. e3 }
  1013. LDA PPU_STATUS
      G* t- ~) J/ F! I
  1014. LDA #$3F( V: a  y) |5 ?% g8 r# q! R
  1015. STA PPU_ADDRESS4 Q% d' o. J& V8 {( s! P
  1016. LDA #$001 F5 u5 s7 p! t7 R. `0 E' a
  1017. STA PPU_ADDRESS; g$ a& p* ?7 R) j& q8 R
  1018. LDX #$00  y( K7 {! K# k& }
  1019. Set_Palette_Color_Write
    ' z# S, ~) Z2 }7 A+ u
  1020. LDA Palette_Data,X
    ; x8 h! w6 b6 P5 Q" ^' n  A/ N
  1021. STA PPU_DATA
    ! ]& |# P% s/ ~. F- t
  1022. INX
    ) O/ P7 u; ?1 h9 v6 _% N$ f6 y
  1023. CPX #$20) r6 i  B% O# s- q& K/ p$ r& ?  x
  1024. BCC Set_Palette_Color_Write
    ; D: V5 y0 }: i! m3 i% W9 x/ t% O
  1025. RTS+ \; f+ q) o2 f; p

  1026. ) F& o) K. g, M) [/ U" C, @9 I* b
  1027. ;==============================6 c3 [- A7 f3 c# {9 R' Y* k
  1028. Init_Palette_Addr;初始化调色板数据
    - d0 b) s- {0 l/ C7 A
  1029. LDX #$003 W3 j4 w7 R/ Y% I; F3 p
  1030. Init_Palette_Addr_Write/ p0 D8 k; s0 J
  1031. LDA Palette_Data,X& ]) l/ {& M& I- T
  1032. STA Palette_Addr,X
    : z7 _+ h& Z. Y( ]: p, S* f
  1033. INX1 G# p# x5 D" i/ K$ e* _: z
  1034. CPX #$20
    5 T. U( R9 }9 @  C% T: {6 B
  1035. BCC Init_Palette_Addr_Write+ H+ f" b7 E- c) v# e3 M4 p% A
  1036. RTS5 n5 ]: Q" l( K' s8 w& ]
  1037. 3 e5 T, M; F- |
  1038. ;==============================
    2 M: u% I* W1 _6 M$ f' W8 C
  1039. Update_Palette_Color;更新调色板颜色( D; `9 |' X3 L+ G
  1040. LDA Show_Track_Name
    + t8 s- v/ M4 N6 U; z, d9 i( a# y, k
  1041. BNE Update_Palette_Color_End1 Q1 F- |) I5 j1 {. @; s! V
  1042. LDA Palette_Update_Flag9 T  V9 }* r! J# i; F) D. F
  1043. BEQ Update_Palette_Color_End
    : V6 Q5 P/ x% C6 i! ?0 ~* Y4 S
  1044. LDA #$3F/ `* t! s, h: H. J: p
  1045. STA PPU_ADDRESS
    5 G( o" [  J: \2 [8 E2 |! O
  1046. LDA #$00
    , s# W4 ~! M/ n& N& W1 H: |
  1047. STA PPU_ADDRESS3 k+ z4 y7 ?) b5 l# H/ h
  1048. LDX #$00
    - A; r1 \6 W2 S0 c. N
  1049. Update_Palette_Color_Write% @' S. u$ d& c: ~9 h
  1050. LDA Palette_Addr,X
    5 a* ^0 a& M$ [( U1 e: \8 c1 c- \
  1051. STA PPU_DATA5 |7 W$ E. |, R' ?; p8 e5 E  X
  1052. INX
    3 t3 }* U& U5 S/ q$ Z: j: U
  1053. CPX #$201 O+ w0 z' d4 J5 W- h
  1054. BCC Update_Palette_Color_Write
    3 H& j. [7 M3 f( S4 e! G$ m
  1055. LDA #$00: ~/ b1 k" S" @/ P# O
  1056. STA Palette_Update_Flag, q6 J- S; j/ q$ C4 B  ^+ N( w
  1057. Update_Palette_Color_End1 r4 m$ a9 v4 N) _; N. @" i; P
  1058. RTS9 G+ C* Y' l, h' [
  1059. % s" E* i3 I! O5 d, h5 [
  1060. ;==============================# W) D) i( j/ z7 y8 d
  1061. Update_Palette_Data;更新调色板数据, Z  u4 w1 g6 c/ k& _
  1062. LDA Show_Track_Name
    6 z2 X0 {* |$ k$ F% d
  1063. BNE Update_Palette_Data_End# i2 }; E0 H  ~
  1064. LDA Music_State
    / I: j' V) H4 d0 I& z' }
  1065. BNE Update_Palette_Data_End" K) Y' K8 g( `! L3 V0 I9 Q
  1066. Update_Palette_Data_Check
    0 X7 J( B. D% z' o
  1067. LDA Palette_Wait_Cnt
    3 J0 |5 ]2 V- I; `3 o9 P& t
  1068. BPL Update_Palette_Data_Check_Over: B  v) x$ Y6 m+ o  a4 A
  1069. LDA #Palette_Update_Interval
    - H& M' ?% b" I" A
  1070. STA Palette_Wait_Cnt! ~' D  W7 h1 |6 G6 c( G" M: j% M
  1071. Update_Palette_Data_Check_Over
    8 S  \, P* m$ B. m/ g& j
  1072. DEC Palette_Wait_Cnt
    6 W& K0 O% Q0 \- E1 {/ r8 b5 }
  1073. BNE Update_Palette_Data_End
    9 N: S* q! [8 |* E( q7 G' R
  1074. INC Palette_Update_Flag, P& e9 g3 D: b" z# r# L* d
  1075. LDA #Palette_Update_Interval
    5 k& t( F! r6 ]
  1076. STA Palette_Wait_Cnt
    + s5 z2 S8 V9 Y: ?; M
  1077. LDA Palette_Update_Addr
    3 m6 i0 d6 |( Q8 \  ]. _% K
  1078. CMP #Palette_Update_Max$ A/ j5 r) i! ]. ]5 }2 s- C
  1079. BNE Update_Palette_Data_Set3 T+ U  ^3 c( y! r) i1 S6 m& N
  1080. LDA #Palette_Update_Min - 16 f) z% o% W9 w% o
  1081. STA Palette_Update_Addr
    5 @% F+ Q2 C  G6 N, R- i
  1082. Update_Palette_Data_Set/ m5 g) \; s& o+ l3 f
  1083. INC Palette_Update_Addr
    1 `( K# U4 z* r9 \2 }9 @( m/ Q
  1084. Update_Palette_Data_End
    ( v: _# A3 Q2 X
  1085. RTS, X0 i4 V! G1 \: M' X8 H' A
  1086. ' `& S+ y1 g4 G
  1087. ;==============================+ l1 @7 l9 m0 c1 f% s* n
  1088. Show_Music_Text;显示静态文本
    * h6 D/ I7 z: R/ m% i
  1089. LDX #$00' P' M" T5 d; C
  1090. Show_Music_Text_Set
    ; {) y' @, C( w; B4 _
  1091. LDA Static_Text_Data,X* _) D; ]* K3 f, L2 `1 @
  1092. STA Data_L
    & z  `, j. S( t$ P: W
  1093. INX
    8 {- T: ?& m, A1 J. I
  1094. LDA Static_Text_Data,X: |' {( H- B/ v* T* U6 ~8 [
  1095. STA Data_H+ `% S' d: {* h# F7 _% k
  1096. INX+ i1 g2 }1 }9 X7 X
  1097. LDY #$00
    . C3 g' [5 Q" a; i' b
  1098. LDA [Data_L],Y
    8 |9 A7 c$ n) _& M  o
  1099. STA Data_Cnt8 N* _5 Y: s. I: U
  1100. DEX
    1 t; m4 [9 s# D0 s4 B
  1101. DEX
    , ^0 |* }# \* i- k
  1102. LDA Static_Text_Pos,X
    * j# M# I! k; Y) m9 N. U
  1103. STA PPU_ADDRESS
      N# x) e+ ?* E# t
  1104. INX
    $ _/ G3 ~1 K! P
  1105. LDA #$204 ~$ l; O; G- i% ]8 }6 h# q
  1106. SEC
    ; w$ W' H+ q) N" ]4 S0 S; Y- e
  1107. SBC Data_Cnt3 t. |. N- @/ G5 y/ U! j* k2 z+ X
  1108. LSR A1 B4 X% C* ^  o3 i- R8 t
  1109. STA Data_Buf& j/ C, y/ y/ O8 q% a
  1110. LDA Static_Text_Pos,X
    $ Z6 w% M. T% K" O3 ?
  1111. AND #$E0* N8 v. M4 t6 r/ z
  1112. CLC& O* o' b% q  d8 ~2 A
  1113. ADC Data_Buf
    : ~5 |* H9 m0 K6 ?
  1114. STA PPU_ADDRESS4 C$ p$ w  ~5 V7 m# f
  1115. INX7 m. A6 R+ C& a, [  \$ a
  1116. Show_Music_Text_Set_Write
    # j8 k% L, L/ H4 B. ^& T# |
  1117. INY1 r3 D5 y: b! P9 M: ?: `1 a8 U
  1118. LDA [Data_L],Y$ I; \  F# ~0 \+ V
  1119. STA PPU_DATA
    : M1 H5 n. a3 y) \
  1120. DEC Data_Cnt3 j/ ^1 i/ ]2 d0 r, x8 D- K$ V# m& ~
  1121. BNE Show_Music_Text_Set_Write
    " d1 m3 s4 G0 S3 H4 {7 \& V
  1122. CPX #Static_Text_Pos_End - Static_Text_Pos
    : M% _$ A& J/ K* X; r" j
  1123. BCC Show_Music_Text_Set' j3 e0 F/ v+ W3 A
  1124. RTS( ]4 K! `1 G4 m- z2 {

  1125. ' h! r, r  e% @! G
  1126. ;==============================
    * w( n5 {0 E1 U! y- W$ I( h5 u
  1127. .IF Track_Name_Pos;显示曲目信息2 _1 k8 L- _2 a: z- |
  1128. Show_Track_Info: `. Z6 S1 f9 r! g
  1129. INC Show_Track_Name
    0 z9 F  L* a6 ]% W
  1130. Show_Track_Info_Clear! X& |% l) o1 E/ A7 r6 d
  1131. LDX PPU_Cur
    ; c" t0 c4 J9 f# J1 I: W
  1132. LDA #Mode_Clear& `) \2 T' z# V. T' K
  1133. STA PPU_Addr,X) H2 `" x3 y' O; Y. Q
  1134. INX
    * L  p% j6 ^5 G/ Y" j
  1135. $ t$ r# Q% d6 _! N
  1136. LDA Music_Last3 k8 s# n0 j- N1 @# p4 g7 l
  1137. JSR Show_Get_Track_Name_Center_Pos+ O; K1 ?; M* \- W( F2 J/ `
  1138. Show_Track_Info_Write_Cur0 T0 q+ q$ L, P4 z' |3 M0 G7 O
  1139. LDA #Mode_CntLine
    4 D* ^# f6 `* i3 I: A! {
  1140. STA PPU_Addr,X( u) }  s4 h# |% s! B* p
  1141. INX3 r% n! B+ |. I! }% d
  1142. 1 U7 N4 f* ]( U; M1 `3 D
  1143. LDA Music_Cur/ \) a; u1 v9 C" w/ m
  1144. JSR Show_Get_Track_Name_Center_Pos
    9 T. y# @' @6 X' C
  1145. 3 @/ V& T5 M2 ]: _3 t: T& C
  1146. Show_Track_Info_Write_Cur_Data2 ~) Q, b4 g# W6 V$ s, c
  1147. INY
    2 |, ~1 H5 Y8 i; u3 I( k1 u4 L# S6 @
  1148. LDA [Data_L],Y* n6 U4 f" N* B7 D! ^( @
  1149. STA PPU_Addr,X, G1 ]" C" ?& D
  1150. INX
    : o$ U' M) Y) {& Y  S* K
  1151. DEC Data_Cnt
    , P3 F2 j5 X2 `
  1152. BNE Show_Track_Info_Write_Cur_Data
      `/ U  P9 A: `
  1153. Show_Track_Info_End' F1 k3 C( W8 v* ], L
  1154. STX PPU_Cur
    8 _: i. t, |- O2 _5 O2 e; E9 E
  1155. RTS
    & t+ m% x4 b9 j) Y/ q+ ^

  1156. " F0 u% U  t, [0 X) v  t9 ~2 H) X
  1157. ;==============================9 D7 D8 O+ W; |: N
  1158. Show_Get_Track_Name_Center_Pos;获取中间位置
    3 c% }4 D0 w' m
  1159. ASL A
    ! K* K" `+ P" u( C6 ~) ^4 G9 t
  1160. TAY* s( ~2 f# j1 ^. R2 q" y' p
  1161. LDA Track_Name_Addr,Y
    6 M( v/ D$ e+ T2 H) b- H5 a8 b! s
  1162. STA Data_L4 h) C" W+ r. q5 x5 r- I8 }) u8 n
  1163. INY) |# N: y: J6 E" h; h# k7 O
  1164. LDA Track_Name_Addr,Y1 N6 ~: D% U) z; v
  1165. STA Data_H
    0 V4 C2 \6 k- M! M8 A4 p! n! G
  1166. LDY #$00; ]* I* }. n5 |. M% A6 z. O9 q: V& c3 _
  1167. LDA [Data_L],Y% ^* u, G2 f! K4 f" r7 x' E5 Y
  1168. STA Data_Cnt; i: s6 K* e1 [  B8 H) I  F  K
  1169. LDA #$20
    - e* T* @* s# n3 D2 g4 X
  1170. SEC1 W$ E+ [) H3 u( ]) j% ]
  1171. SBC Data_Cnt, P- R  U" g' P& A- n( v$ `6 q- f% Z
  1172. LSR A/ J. c( \& }: I0 `' O( ]
  1173. STA Data_Buf
    3 w$ h4 S0 t$ f3 R: {0 b
  1174. LDA #HIGH(Track_Name_Pos)
    4 Q7 C  M( G! C" z3 p5 b* `
  1175. STA PPU_Addr,X$ t" u+ }! {$ [$ t3 [/ k
  1176. INX
    2 S+ Z6 S1 l, j0 T; l# ^  s1 n" l; R
  1177. LDA #LOW(Track_Name_Pos)
    & i2 @- Y6 u% I8 u$ x  i" h4 V* m
  1178. AND #$E0
    * }, `% z; q% t' H8 O+ P
  1179. CLC2 i6 Z3 m$ a8 ^+ M$ }$ ?
  1180. ADC Data_Buf
    ) G- j- Y/ d  M1 J; w
  1181. STA PPU_Addr,X
    / B: w( B$ @' Z/ w
  1182. INX
    2 S+ R' o0 P4 Q! M
  1183. LDA Data_Cnt& Z; C% R8 E5 [# x0 @/ x
  1184. STA PPU_Addr,X6 s4 n0 ~+ H1 x7 @  \( n9 S
  1185. INX; r0 z; J7 U( r
  1186. Show_Get_Pos_Center_End
    ( j1 G1 ?+ z; s$ e% ]1 c
  1187. RTS* y  F! h' G+ U" n$ }
  1188. .ENDIF
    , g5 ~, ~% ]3 Q# x& m1 p1 ?3 L

  1189. , d2 O! s9 w" K& H4 p
  1190. ;------------------------------2 [8 K) h/ ^/ x6 D3 e+ C
  1191. ;命名表数据. y( q+ [* O$ g# M! p9 R! B2 L& D
  1192. Palette_Attributes7 K1 y1 e% c8 e/ E9 a' ~! }
  1193. .IF SOUND_BAR_SHOW_ENABLE
      u( t  n& D- C( d" z3 P3 _: B6 @
  1194. .DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$001 d% t4 E5 @7 G; W7 o- P
  1195. .DB $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$FF,$FF,$FF,$FF,$BB,$AA,$AA,$AA
    . M; ~0 F7 w0 `, U1 |! R! i/ l4 B/ v
  1196. .DB $0F,$0F,$0F,$0F,$0B,$0A,$0A,$0A,$55,$55,$55,$55,$55,$55,$55,$55
    $ ?6 X3 C2 F5 W2 T! m
  1197. .DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
    - ]; M8 I0 W7 I$ V. [+ }* s1 x
  1198. .ELSE5 n8 O; b% ]% [
  1199. .DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00$ K* I) k. S# h7 Y) ?. w2 v
  1200. .DB $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF! x. U6 z3 Q. F/ O% e
  1201. .DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$55,$55,$55,$55,$55,$55,$55,$55
    5 X; ?1 m9 I' Y/ C; j$ ^% z" d
  1202. .DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55; ^4 }9 E$ G, S6 ]
  1203. .ENDIF& S8 W" O6 q9 @  I

  1204. , a1 D5 s% O0 c1 T. s
  1205. ;------------------------------
    3 ^" F- a* v- }: a
  1206. ;调色板数据
    * R/ l# f4 Y9 }6 u* s" q0 L9 i
  1207. Palette_Data
    # D" n9 B. m5 t/ V( f+ ?
  1208. .DB $0F,$27,$20,$0F,$0F,$24,$20,$0F,$0F,$21,$20,$0F,$0F,$25,$20,$0F
    $ P  D, X& T4 c. \! w# K
  1209. .DB $0F,$24,$20,$0F,$0F,$24,$20,$0F,$0F,$24,$20,$0F,$0F,$24,$20,$0F
    ( J0 j3 `9 h$ C+ e

  1210. & m- ]+ x: r& g2 e+ |1 K5 A
  1211. ;------------------------------
    2 \" u: U1 x/ Q( v( c
  1212. Static_Text_Data
    1 _# U7 X3 p: }
  1213. .WORD Static_Text_Title_Data
    0 w; L" @( i% ?) }/ n$ b& d
  1214. .WORD Static_Text_Author_Data# Z9 y% J2 `- b$ r1 t0 v
  1215. .WORD Static_Text_Date_Data
    8 {, O$ g3 {& I, a% y
  1216. Static_Text_Data_End7 n0 H8 \( I( X8 o6 Z
  1217. ) S7 V. v. a4 M5 a3 C2 q
  1218. ;------------------------------
    1 ]3 v7 Z! y& S
  1219. Static_Text_Pos) }" Y3 j3 h5 z
  1220. .DB HIGH(Title_Text_Pos),LOW(Title_Text_Pos)' b* k9 m7 Z5 q# C2 z5 `( P" y9 ]
  1221. .DB HIGH(Author_Info_Pos),LOW(Author_Info_Pos)
    8 Y6 Y  v. V- f/ [
  1222. .DB HIGH(Date_Info_Pos),LOW(Date_Info_Pos)
    ! E0 U6 O. b% U; u1 A- Z: {% c
  1223. Static_Text_Pos_End
    8 H) b! }# d) V' P8 J8 A7 \+ j0 F

  1224.   K: ^2 {. q, g/ s* H) A# Q
  1225. ;------------------------------
      ?: e2 Y1 w4 M2 y
  1226. Music_State_Stop( W1 C4 O" G) B5 f# W5 U
  1227. .IF SOUND_BAR_SHOW_ENABLE. h4 Q3 C/ \. m
  1228. .DB $FD,HIGH(Play_State_Pos),LOW(Play_State_Pos),"STOPED ",$FF,$00% P# W$ i, i4 [4 d  \2 H' z. y' b
  1229. ELSE
    ; q0 k$ P2 `: D. g
  1230. .DB $FD,HIGH(Play_State_Pos),LOW(Play_State_Pos)," STOPED",$FF,$00; B8 B6 n4 @, `7 Z
  1231. .ENDIF
      G4 d$ f* n2 D, p0 j8 M
  1232. Music_State_Play: `1 g4 z4 k" g
  1233. .DB $FD,HIGH(Play_State_Pos),LOW(Play_State_Pos),"PLAYING",$FF,$00; {* ~- X# [) c2 e& I$ _

  1234. ! e+ M6 P2 Z' c5 H1 g  W
  1235. ;------------------------------
    ( ~" O4 W) p* s3 [/ }
  1236. Sound_Bar_Text_Data;声音类型文本
    ! \; g3 C- A% N, Q7 ?3 i
  1237. .DB $FD,HIGH(Sound_Track_Pos),LOW(Sound_Track_Pos)7 f: t3 d- i5 i3 _0 F% N0 I
  1238. .DB "SQ1-",$FF
    2 R( g- I6 T1 A! F
  1239. .DB $FE,"SQ2-",$FF
    , C# k7 c: [, W9 ^
  1240. .DB $FE,"TRI-",$FF' E$ t. Q0 C9 z' w9 g" E
  1241. .DB $FE,"NOI-",$FF
    4 t- w! F% o, }" c* ]; F  Y  Z
  1242. .DB $FE,"DMC-",$FF,$00
    * ^4 R$ U; u9 y$ t5 O1 {$ |

  1243. ' f9 L2 s0 W' e: C6 T
  1244. .IF Track_Name_Pos
    - Z1 ?  z2 k* B! X
  1245. ;------------------------------" U* v! a  ~+ \9 G. `4 l
  1246. Track_Name_Addr;曲目名地址索引
      B/ ^, W$ R# M$ k. t9 ~! x
  1247. .WORD Trackr_018 c& {1 n* _$ N/ M/ {, w4 w5 B7 X  b
  1248. .WORD Trackr_02
    - \) c: b4 x/ T8 f7 S# Y
  1249. .WORD Trackr_03
      U  n9 h, e" f1 _5 z' i
  1250. .WORD Trackr_04
    ) m$ @- {: @4 {
  1251. .WORD Trackr_05
    # y% x5 \# e: c
  1252. .WORD Trackr_06
    . E) f+ c( {/ A5 Y% K/ C0 l0 M7 L) b
  1253. .WORD Trackr_07; Y" u6 |! I2 k# L- ~9 L! c
  1254. .WORD Trackr_08- i( f/ P3 Z" Q
  1255. .WORD Trackr_09' v  ^& u! B9 c2 s7 L6 U1 v
  1256. .WORD Trackr_10; i3 J, Y1 A, w5 Q2 A6 W6 [/ R
  1257. .WORD Trackr_11
    ! p( |4 R+ K7 ?/ T/ B8 j2 @
  1258. .WORD Trackr_12
    . {9 t3 r0 A) H5 w) a1 G
  1259. .WORD Trackr_13
    7 Z& H; `+ r% F5 @: [. ~# O
  1260. .WORD Trackr_14+ S1 q4 m& e1 |3 A
  1261. .WORD Trackr_157 m( q! ?, t% I, }  I3 X( n7 f
  1262. .WORD Trackr_16
    $ e3 z" D3 K( |; U) p9 a2 }5 c2 k% x: A
  1263. .WORD Trackr_17
    ! Z$ e) V0 _& G+ V' V" |& N! L% e
  1264. .WORD Trackr_18  Q& Z' W) n. B' c# D
  1265. .WORD Trackr_19
    0 E1 {  [+ C/ d5 Q. b7 K5 [
  1266. .WORD Trackr_20
    , u; e6 W. O$ k0 C8 H
  1267. .WORD Trackr_21
    2 V3 b: ?1 r" |- [$ {
  1268. .WORD Trackr_222 o& ~1 M' V6 ^2 {
  1269. .WORD Trackr_23: C: S# u- v+ O  ^& O& U3 K
  1270. .WORD Trackr_24
    3 w5 E3 h/ t7 V! h
  1271. .WORD Trackr_25
    ! l" ~+ F: N8 F, ~6 f& l
  1272. .WORD Trackr_26
    : l8 [# ]  @( |! ^
  1273. .WORD Trackr_27
    & I* x0 K8 U  R! d8 |  v; t
  1274. .WORD Trackr_28, v6 D+ \: S1 ?5 Z- D5 d/ a) c
  1275. .WORD Trackr_29. h2 r% T' c1 u' H# k5 t8 o
  1276. .WORD Trackr_30
    4 _& h; J! `- f$ v+ X
  1277. .WORD Trackr_316 L% O( l" C) B' {; f  j3 I
  1278. .WORD Trackr_32
    : Q8 [9 X7 r; U2 K' m
  1279. .WORD Trackr_336 n4 f, q4 Q8 ?2 ]* Q- P
  1280. .WORD Trackr_34, S4 H) V3 C% H7 G" D7 o! {; C
  1281. .WORD Trackr_35
    0 A# i* p' \9 \1 s) U
  1282. .WORD Trackr_36
    : \+ N2 @; y# [% |  c9 D8 S) ?5 N; Y- o
  1283. .WORD Trackr_37
    ; X. [8 M6 M/ t
  1284. .WORD Trackr_38
    6 P% o( J6 \6 c' z# u. d( h( |, i; H
  1285. .WORD Trackr_39  A: n0 o4 b/ ^# \* e3 k+ I

  1286. 4 f; e/ R5 x5 B( c
  1287. ;------------------------------+ i6 v. q0 R8 [6 E! i9 U3 d% I
  1288. Trackr_Name_Data
    9 S% O. ?" B& Q# d) W
  1289. Trackr_01 .DB $05,"BGM 1"# v2 C0 J6 t# w1 U2 Q1 M
  1290. Trackr_02 .DB $05,"BGM 2"
    3 s6 _+ p( g% z; m
  1291. Trackr_03 .DB $05,"BGM 3"9 x. [3 X7 F4 Z8 s* w4 J
  1292. Trackr_04 .DB $05,"BGM 4"
      s+ j  _+ `1 T
  1293. Trackr_05 .DB $05,"BGM 5"
    , Q/ ?6 w& D+ s) n
  1294. Trackr_06 .DB $05,"BGM 6"9 J3 _( O, F, e8 ~
  1295. Trackr_07 .DB $05,"BGM 7"
    * j% m2 ]# ]0 R9 Y, I. L0 C1 M
  1296. Trackr_08 .DB $05,"GREAT"
    / O& b! a; {0 @3 @; l( A
  1297. Trackr_09 .DB $08,"BOSS BOM"0 C4 b$ q: T! E+ G! k  K
  1298. Trackr_10 .DB $08,"BOSS2BGM"
    0 l2 q  ]* f) b  L
  1299. Trackr_11 .DB $07,"P CLEAR"
      m7 {7 x1 g% \6 i0 C3 J& y( b, @' w
  1300. Trackr_12 .DB $07,"A CLEAR"" O6 f5 ~* l  D4 _% D
  1301. Trackr_13 .DB $04,"OVER"
      ~" h4 }6 c: D1 |& P! Y
  1302. Trackr_14 .DB $06,"ENDING"
    . V, c+ b7 [5 g1 _7 s: u, }
  1303. Trackr_15 .DB $04,"SUTA"
    . Q0 d' N  b: e1 c1 o
  1304. Trackr_16 .DB $07,"THUNDER"
    * e3 }6 B- q3 ~9 m# G
  1305. Trackr_17 .DB $04,"SHOT"6 Q6 O/ g( m  O1 Q7 i5 _, W, E
  1306. Trackr_18 .DB $05,"LASER"6 b- U5 r* Q' v. ?* {
  1307. Trackr_19 .DB $06,"SPREAD". a/ a) f/ `9 C* B; q# c
  1308. Trackr_20 .DB $04,"FIRE"
    * O& b! p( y# u
  1309. Trackr_21 .DB $06,"B SHOT"
    ! \4 u- {* @* y$ E$ y
  1310. Trackr_22 .DB $08,"T DAMEGE"; i" f- i) x) R# W$ x
  1311. Trackr_23 .DB $07,"HARETSU"8 m% `# I# H* d  t' s9 h
  1312. Trackr_24 .DB $05,"T OUT"
    / o; i8 j% J1 t) z8 l" g
  1313. Trackr_25 .DB $05,"Z OUT"$ H/ u. E, ~2 [! a* z7 N. q
  1314. Trackr_26 .DB $05,"A OUT"; w" |/ W6 ^; H# F* Q
  1315. Trackr_27 .DB $04,"ROLL"
    : T. U/ s/ f3 B7 D! y
  1316. Trackr_28 .DB $06,"APPEAR"! q, `4 P9 H3 ~; [
  1317. Trackr_29 .DB $05,"POWER"
    ' V: m- [$ [% X7 j5 _" B" E- o
  1318. Trackr_30 .DB $07,"BOKK BK"# B5 y2 W' h" O4 \1 O8 r
  1319. Trackr_31 .DB $08,"BAKUHA 1"
    - h. f% I7 m' i9 {3 j
  1320. Trackr_32 .DB $08,"BAKUHA 2"
    ; H+ O4 _: [" `0 z
  1321. Trackr_33 .DB $05,"ARUKU"
    / ^- w* R  N1 }% R/ i
  1322. Trackr_34 .DB $06,"JIWARE"
    0 F" T- _. r3 \5 P" E
  1323. Trackr_35 .DB $05,"SILEN"
    + D6 e* N) H/ m3 D- L
  1324. Trackr_36 .DB $05,"P 1UP"
    ) J/ N) f6 C$ h! P. L- z6 D4 R
  1325. Trackr_37 .DB $05,"P OUT"0 A* k5 e2 D' m8 C
  1326. Trackr_38 .DB $05,"B OUT"
    " }) k# |2 u1 Q
  1327. Trackr_39 .DB $05,"PAUSE"7 u2 o$ j9 S' ]  {. s; r7 H! x0 L

  1328. 7 X  h) z) ^  F: C/ Q6 b' A
  1329. .ENDIF
      S! K" X/ W; r% h$ ?/ ?& O

  1330. ( l- F+ v. N; M' s
  1331. ;------------------------------
    + g5 ~" n" \' ?, y' |' ?
  1332. Static_Text_Title_Data;静态文本数据
    + e8 b5 r: g/ u8 {9 h* p* D/ z# Q
  1333. .DB 121 q! i2 [3 A5 Y
  1334. .DB "SUPER CONTRA"2 C+ R+ L) x+ r9 ]
  1335. Static_Text_Author_Data
    4 L# h& G9 v( q+ Y* H) t
  1336. .DB 23
    * D6 X/ j+ g( `* X- G8 C% P, y" d& ^& U
  1337. .DB "EXTRACT BY FLAMECYCLONE"
    9 f( ^' V9 t9 [+ i$ X/ d: e1 n+ G* {
  1338. Static_Text_Date_Data
    2 n" W% l( P( N  K
  1339. .DB 10
    7 b. r: V* p& c2 p+ I
  1340. .DB "2023.07.11"2 K4 Q2 Y8 B# [# a* @; }" y

  1341.   J' _" M7 F2 c2 }# _% O* ^) b* o' N1 \
  1342. .BANK RESET_BANK & BANK_DATA_MASK* }6 O# v. C, k; E5 d7 y8 }9 ?$ v
  1343. .ORG RESET_ADDR3 Z4 a/ |* y8 z5 I- k
  1344. ; E- B2 c. a) L+ o6 l0 F

  1345. # F) O* O7 ], o' n( c
  1346. ;==================================================& Z* k$ G9 }5 W. q8 I
  1347. ;切到主程序bank
    ( V; b; P, I; @# F
  1348. SwitchMainBank# c$ {3 F# K( X2 X; u
  1349. LDA #PROGRAM_BANK & BANK_DATA_MASK, Q, x! f4 D; F3 e: \6 a
  1350. JSR SwitchBank8000( h- v7 \! o( L" v( d% Y7 i& a2 Z
  1351. RTS
    2 ~# i5 o6 E4 f! ?" o. t
  1352. - o; A* X8 K# Y7 H5 R- `% I
  1353. ;==================================================
    " J; t0 @, X. c$ t, w
  1354. SwitchBank8000;切换bank到8000-9FFF
    $ ^- T2 h& W8 |; S" W* x0 [
  1355. PHA
    * v4 z. e, x3 B/ f) J2 Z  K& b
  1356. LDA #$06
    7 V5 H& a, \/ s% I: _
  1357. STA MMC3_BANK_CTRL9 Y- q3 S/ u1 _7 A$ ~/ {
  1358. PLA
    # ]- c5 s5 E( Y4 |0 X2 R7 V$ o
  1359. STA MMC3_BANK_DATA9 c) f# [3 Z* h/ U& o# K
  1360. RTS
    5 A8 Y0 c# i! H+ s* q

  1361. $ K. Q2 |& R) g1 a1 s
  1362. ;==================================================! z! I2 N0 L$ y/ W* w
  1363. SwitchBankA000;切换bank到A000-BFFF
    + G$ K+ ]( S8 p' ~/ G* f  _
  1364. PHA9 E2 C# N) A6 F$ z6 T
  1365. LDA #$07
    ! s, l, L- _* l7 {
  1366. STA MMC3_BANK_CTRL( T2 h. F+ Q& B* H) z+ l- S
  1367. PLA, \; n2 r/ W+ q
  1368. STA MMC3_BANK_DATA; Y5 [5 N0 E1 D* k  I
  1369. RTS
    5 |( ^$ i7 x6 n" q6 \- `
  1370. 4 F, `6 L- C  v" ~" r
  1371. ;==================================================
    ' C: Z  D* ^1 i0 ~
  1372. Sund_Bank_Init;音乐bamk初始化
    ( C; z: c& B& |% H  Z
  1373. LDA #SOUND_DATA_BANK_0 & BANK_DATA_MASK9 V- ?) E. P$ Z9 Z2 Q% N
  1374. STA Music_Bank_8000% A  Q2 @" J6 v* g: m7 [8 q) P7 _
  1375. LDA #SOUND_DATA_BANK_1 & BANK_DATA_MASK$ o. b  f/ {/ r/ B. g
  1376. STA Music_Bank_A000
    + Y8 H1 ]% V- J1 k  f$ }+ N& o9 _
  1377. RTS' h3 V6 J( Y# d7 Z; p, }) c) \9 r
  1378. $ ~4 R0 O4 s; v" y1 w
  1379. ;==================================================
    8 g: n5 I5 ?+ }
  1380. Sund_Bank_Set;切换音乐bank
    4 @8 \0 g9 @( Y: N1 Q1 ~
  1381. LDA Music_Bank_8000( {9 o7 q3 D$ d( _7 A6 B
  1382. JSR SwitchBank8000* p4 e3 A. A. t
  1383. LDA Music_Bank_A000
    9 R" S& M/ }4 r% H
  1384. JSR SwitchBankA000: n4 {; y9 }0 v+ Q! ]0 b- P
  1385. RTS
    8 |2 t7 k+ t  u" B, e' T

  1386. 2 O; A8 E' Q7 R# l( I
  1387. ;==================================================5 U6 X/ w& G3 g# y
  1388. Sound_Init;音乐初始化  ]1 f8 N: ~  i2 K. k
  1389. PHA' Z. p# U7 v, C
  1390. JSR Sund_Bank_Set
    $ _) r2 w7 y, u+ P
  1391. PLA* W% v  M, S6 U
  1392. JSR Music_Init_Addr8 l& O5 D  T! B' J) s+ k0 |
  1393. JSR SwitchMainBank
    . V8 v. c: [) {# y

  1394. 6 X" \! t) o& A* [4 a. M
  1395. JSR Music_Bar_ReSet
    4 T: W/ w2 M% I
  1396. JSR Time_ReSet7 m5 I) C+ c" w1 u& r- k
  1397. LDA #$00
      f7 [" U% R" |" O. Q# v2 y
  1398. STA Music_State. C1 a- q2 ~: M
  1399. JSR Music_Stata_Show
    ! y. A2 o; S; W4 l
  1400. .IF Track_Name_Pos" K7 N# i! P* H8 S8 e
  1401. JSR Show_Track_Info
    ! y" G$ A3 z9 N/ Q
  1402. .ENDIF, ~) T3 Q5 q" O' c/ J5 A' x% u
  1403. % o7 u* y* o6 s" B
  1404. RTS& c6 P( F: q6 v# h2 h
  1405. 4 x- _( @2 B7 M1 }$ Z% L6 C& j
  1406. ;==================================================
    * {# |# d+ O1 U" A  d3 h
  1407. Sound_Play;音乐播放
    4 m5 s1 ~; E) |+ p
  1408. PHA4 D  {' c& O/ g  @5 `8 w# [% f
  1409. JSR Sund_Bank_Set
    * W# a$ p9 x- w. j9 \: S
  1410. PLA
    $ G8 C5 }$ ~9 e$ H+ L" v
  1411. LDA Music_State
    2 P* p& n& S8 X9 f9 o
  1412. BNE Sound_Play_End# \" l5 r! G: i$ P1 v& m
  1413. JSR Music_Play_Addr
    * q! h8 N% S* F. h, I  F3 l- R
  1414. Sound_Play_End/ X3 B* c5 m; R
  1415. JSR SwitchMainBank9 ~* H* l; g  ~$ O# u" ~
  1416. RTS
    + ~+ W' l  M* e6 L# ~9 `

  1417. & x  g% n0 q; f/ u6 Q
  1418. ;==================================================; K, T1 T) N4 J, }( T) B# E
  1419. .IF Music_Reset_Addr  e( e5 S3 ^4 |! ]9 Q! o3 T1 P1 K: w
  1420. Sound_Reset;音乐重设(如果有的话)
    / O4 q0 |9 V' y/ y& I+ C1 Q5 D0 s
  1421. JSR Sund_Bank_Set* _/ w+ a" A3 d  N2 F5 Z# d0 I4 [
  1422. JSR Music_Reset_Addr+ N: F$ g, p* Q0 n, l: p, e
  1423. JSR SwitchMainBank
    ( [- Q$ c8 t  _# y8 L) K) ~
  1424. RTS
    1 C$ J8 d6 N) p
  1425. .ENDIF
    " r* y3 v  a& Q7 ?3 ?, [; Y

  1426. & Y" p$ l3 Q, V+ l/ @: N0 O4 m* p# F
  1427. ;==================================================# T- _  [$ l" y' @1 o6 C& M- E
  1428. MainLoop;死循环
    9 [) M0 s, m% _# q' z4 x
  1429. JMP MainLoop
    2 k5 I0 }2 P# \! l$ [* N8 A4 ]
  1430. 1 j2 l1 z+ \4 i" c: \
  1431. ;==================================================4 @4 s/ S/ X9 k6 a
  1432. NmiProgram;Nmi中断处理
    4 x. o# W) g  z. z. `1 k
  1433. PHA% J- c7 Y! l5 q/ }
  1434. TXA" B- u( {1 x1 H# n! K
  1435. PHA8 n4 }$ f5 o+ e6 D& ^8 W' y: ^
  1436. TYA* ^. |: [. G$ ?7 _: x
  1437. PHA+ l1 u1 G8 ?! `- `3 w( j8 T

  1438. & q# S. R+ K3 h7 G9 S8 V
  1439. LDA PPU_STATUS4 [' J' x6 Y( X- D$ o
  1440. LDA #$00& ?% W' y$ h) h, g. e4 e
  1441. STA PPU_CTRL
    , |2 v$ S) y0 d1 Q, X

  1442. ; q: ?) J) I# K$ V
  1443. ;切换主程序bank
    7 h+ o' I4 o0 d/ Y2 [  @3 `: a
  1444. JSR SwitchMainBank$ A' ^& W% }& k, Q! Y+ O0 ?. ]: h
  1445. + z1 n4 {7 h' Z$ V2 F; A: Y9 {
  1446. ;NMI处理9 ?4 ]9 O3 `- x: J& ~
  1447. JSR NmiProgramProcess
    9 G0 n/ t- d/ A

  1448. ( F# I% h) t2 ?6 o, |! }0 v$ U
  1449. Nmi_Proc_End
    - b. E9 N0 q6 I+ }: D& }0 p
  1450. PLA' r7 U" ~# M4 C# q3 I* f: F7 O
  1451. TAY
    3 S1 x( c  y, Z1 O
  1452. PLA& S. D, f+ O/ D. k
  1453. TAX
    % a( I8 m# l0 ?; M% O
  1454. PLA9 G, }' f  `4 Z  L: D# F

  1455. . `7 T) U  m7 g  X. a& P. b) @
  1456. RTI$ R; F- W' T' t+ N/ u" \7 j
  1457. / E/ C$ K1 J. ?! q' j& }
  1458. ;==================================================
    ; m# z% a$ [& a9 J7 e/ v
  1459. ResetProgram;重置中断处理
    4 B8 D3 G# {8 m2 T! H0 a1 z0 J
  1460. SEI
    + p" C( _* Q( A! f
  1461. CLD4 ?  p, Q: Y: f
  1462. LDA #$00+ n" C6 e/ i2 u4 n, {
  1463. STA PPU_CTRL
    1 X* f/ R# ]  A7 D" T
  1464. STA PPU_MASK8 E% d+ T+ d! g
  1465. . }) v: ^3 g, v1 K
  1466. JSR SwitchMainBank
    3 C+ W* m! ~( V1 l) L7 Q! a1 I
  1467. JMP ProgramBegin) a- g, h; s. K
  1468. 3 [4 ~: w5 ]  e1 _
  1469. ;==================================================- l& h3 }; v7 j- O
  1470. IrqProgram;Irq中断处理& I7 ?' l% H- v
  1471. RTI$ v2 x5 H& \- E  E; k2 T6 p

  1472. # D3 {5 h/ S, Y$ a" h5 M. D: R
  1473. .IF SOUND_BAR_SHOW_ENABLE
    0 {) Q; k8 t8 O5 P. L' E0 J
  1474. .ORG $FF80
    8 I; ~) p5 u) _" s* X
  1475. STA $4000,X6 ]/ j# F7 A# D3 i' W5 c
  1476. STA Sound_Bar + $00,X8 E3 w, p- a( Q/ R) b3 X2 Q4 E/ ]
  1477. RTS. x# T' `8 \6 a' F" O

  1478. ) C4 _1 V- `/ u* v
  1479. .ORG $FF88
    : E6 k" S& O* q& y
  1480. STA $4000,Y
    6 Q; {0 D  M+ S, F2 E/ v
  1481. STA Sound_Bar + $00,Y
    % W* e: G8 {* Q% j: W0 b6 n
  1482. RTS( ?! c' x7 {/ J5 [# ?9 t7 v
  1483. 2 t6 L" a4 Q' H; S# T( `. g
  1484. .ORG $FF90
    " k3 [. t6 B% x2 a# Q+ g6 ]5 ~
  1485. STA $4004,X
    ' \6 \/ n. C4 m0 U; r$ r+ H, G' B1 I
  1486. STA Sound_Bar + $04,X
    + R# W' B% M9 [$ r
  1487. RTS6 l7 Q2 c1 h, I% m- E) m' s% A

  1488. ' O& u/ M8 B0 {' N$ K/ u; G
  1489. .ORG $FF98
    2 J: \: n2 _# [: w/ F) i; |7 q# F
  1490. STA $4004,Y9 ^- `4 f4 V# @9 n
  1491. STA Sound_Bar + $04,Y5 }( C: c* r! n9 {0 E( E: ?
  1492. RTS
    . q2 Q7 d5 C; v9 N" m; ?

  1493. * H! v, J' b9 M9 i+ S
  1494. .ORG $FFA06 N- T2 D* i3 _5 \8 |
  1495. STA $4008,X2 w  @& \5 S: T& j
  1496. STA Sound_Bar + $08,X
    * O, R4 e% d6 b* C" f2 @2 h
  1497. RTS
      X& j& o/ P' L$ Q* c0 [  G

  1498. ; D9 f' m# b4 ?" H
  1499. .ORG $FFA8
    - g$ X; {5 E9 n6 j* b( O9 B$ p
  1500. STA $4008,Y+ N4 ]. B% N5 }4 L7 d  r
  1501. STA Sound_Bar + $08,Y
    4 ?3 ?7 H- N4 u8 W8 A2 t6 v
  1502. RTS
    7 Z* q6 \+ [0 G. G0 E
  1503. - x2 C/ J8 ~: p6 J" ?7 k
  1504. .ORG $FFB0/ j  U% Q! V3 q& f7 W
  1505. STA $400C,X6 ?- M$ B: g& E# {( \* m8 k
  1506. STA Sound_Bar + $0C,X% z5 F! W" Y* J
  1507. RTS0 M/ _) `- I/ o* w

  1508. 3 w  v. n- C. n- f3 g
  1509. .ORG $FFB8
    ' w" e3 U- d. J* W- T, j
  1510. STA $400C,Y; M' n4 k0 K5 u: D6 ], _
  1511. STA Sound_Bar + $0C,Y% i& ]3 I2 a, w( v
  1512. RTS; `% b; r# r* m8 Q" W  u8 M

  1513. 7 ^; }; f. U  l$ }
  1514. .ORG $FFC0
    8 V# \9 e  ]% R9 Y
  1515. STA $4000
    2 Z; w# R3 _( n% _3 T4 R, N
  1516. STA Sound_Bar + $004 u3 Z' j# t7 K
  1517. RTS
    # R) U' J+ w; H, p
  1518. & H2 }0 c( m- _  N8 f
  1519. .ORG $FFC8
    . d6 _$ l3 ?0 B# B3 Z
  1520. STA $4004
    * l5 P- \( F  ~. \. a% n0 [
  1521. STA Sound_Bar + $045 a, [5 m8 H2 B
  1522. RTS
    ) H! R' h; W4 a0 L" A' w& y* C% V

  1523. / q  h( h0 A; T' f
  1524. .ORG $FFD0* v, [! x8 ^1 G$ s1 [
  1525. STA $4008
    ) x4 |+ A% g7 F; i' R( x" r2 }
  1526. STA Sound_Bar + $08( p7 o! t, P9 K- p  X  B
  1527. RTS. P! G* {3 X4 Q; D

  1528. ' d' q, N# |1 ~
  1529. .ORG $FFD8
    3 ]5 C* Z' C5 A: ~. }3 L4 k) k4 Z5 i
  1530. STA $400C, J7 f( z. ^0 E' h$ o+ k  b
  1531. STA Sound_Bar + $0C
    & o' Y" E: y7 l1 c& U/ y
  1532. RTS
    8 A% c3 d( K1 t8 J5 s* Z' X% E4 s

  1533. ) l& j" U+ S) E5 M2 w
  1534. .ENDIF) b0 x- r5 n6 Z  |/ X9 S# J

  1535. 4 `5 ~) y' H3 U0 Q$ Q* F
  1536. .ORG $FFFA5 `" w2 r4 r6 ^& T% f/ w% B0 `' w
  1537. .WORD NmiProgram5 B1 W! Y7 i8 v) ?# }% y; D
  1538. .WORD ResetProgram! }- W- E/ g8 @4 X9 }- |
  1539. .WORD IrqProgram
复制代码
6 {+ o" O5 C9 @: b0 y) F  h
5 j# D+ d  E' m  A
游客，如果您要查看本帖隐藏内容请回复

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？立即注册

x

评分

1

查看全部评分

回复

使用道具 举报

fragranse

签到天数: 1398 天

[LV.10]以坛为家III
发表于 2023-7-13 16:43:54 | 显示全部楼层
很赞啊！
[发帖际遇]: fragranse 在网吧通宵，花了 3 个 柠檬. 幸运榜 / 衰神榜
回复 支持 反对

使用道具 举报

leshui

签到天数: 3394 天

[LV.Master]伴坛终老
发表于 2023-8-5 12:44:16 | 显示全部楼层
必须支持
[发帖际遇]: leshui 在网吧通宵，花了 6 个 柠檬. 幸运榜 / 衰神榜
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|国治模拟精品屋 ( 沪ICP备15012945号-1 )

GMT+8, 2025-12-17 04:53 , Processed in 1.078125 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表