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

EMU618社区

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

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

[复制链接]
yandagui

签到天数: 39 天

[LV.5]常住居民I
发表于 2023-7-11 19:08:59 | 显示全部楼层 |阅读模式
本帖最后由 yandagui 于 2023-7-11 21:32 编辑 : K) `+ x% H7 |- M8 D3 \8 S  b" g1 z

! k% ?7 _/ ^$ @& l6 F0 G- R1.魂斗罗
2 Z3 g$ G/ U0 r% c8 h2.超级魂斗罗( V# t( p5 X8 Z7 Y+ p
3.赤影战士
+ |) H- Y; `* o9 U4.忍者龙剑传2  d2 {2 O' G& x: e

" i( D* @/ h: h2 l3 l
+ Q* n% f3 S. m) q! ?$ q: E  J1 C5 ~/ ?# i* C
' {9 K: f4 I! S  `, m; O
源码:
8 ~; {0 i5 z( r
  1. ;[FC音乐][播放器模板]
    , \: ~0 x( P$ b% m+ V- w6 F/ C
  2. ;FlameCyclone 20230710
    ) ]  c; W1 k6 \5 g8 m

  3. 2 ^: v8 n/ \3 c! {( `6 @2 C( O& z7 K
  4. ;文件头
    $ j! E: X1 g; y. |* M+ U" O
  5. ;======================================================================/ V( L4 _7 ~' W' ?. t# I
  6. .INESPRG 4                                              ;16KB PRG 数量' D' l* H% j8 b7 n
  7. .INESCHR 0                                               ;8KB CHR 数量) u' e$ O) i' }' }
  8. .INESMAP 4                                                   ;mapper 4- M1 o# {' J) o. J2 f
  9. .INESMIR 1                                   ;命名表镜像 0水平 1垂直2 ^' |  b) O$ ~) H0 R

  10. ; W: N3 T6 ^3 H2 Q9 z8 X9 Y* K0 T: @
  11. ;==================================================
    % k1 p2 ?5 h% A( g6 ]! h
  12. SOUND_BAR_SHOW_ENABLE       = 1# w: M4 A# {$ m: M4 r1 W1 x
  13. ;==================================================
    " w' U5 _1 j8 d' L6 X
  14. BANK_DATA_MASK              = $07# ?6 S! b: v' v
  15. ;==================================================
    * f& z- `5 Z  \; U9 g0 |( d0 \
  16. SOUND_DATA_BANK_0           = $00; R, y8 \: w- D
  17. SOUND_DATA_BANK_1           = $01# T3 E8 j  [# f" f5 Q4 N
  18. SOUND_DATA_BANK_2           = $02
      C* M' O3 b' J3 U8 J
  19. SOUND_DATA_BANK_C000        = $06
    % K* ?2 N( b, z% f
  20. 2 l$ q6 e7 ]0 N1 u/ Q
  21. ;-------------------------------------------------
    4 T' t4 l4 \( ]1 h( {) v. w
  22. CHR_DATA_BANK               = $04) r* h& b; o$ ]
  23. CHR_DATA_ADDR               = $A000
    1 E- r+ o6 F9 U4 q5 ?
  24. ;-------------------------------------------------  C8 H) U) R6 N1 K  W8 B. o. q7 X
  25. PROGRAM_BANK                = $055 I; N# I  z: `% U. n
  26. PROGRAM_ADDR                = $80001 @8 c4 S* e4 n2 u. r
  27. ;-------------------------------------------------: Q+ g% r1 s5 A4 B2 x: [
  28. RESET_BANK                  = $07
    ; i( c5 P; }" K4 k0 j' G7 e
  29. RESET_ADDR                  = $FE006 B8 L. e+ T) x/ n0 a! }
  30. ;==================================================
    : b5 n6 X6 v6 W1 K0 S4 y
  31. Music_Init_Addr             = $DFF0 ;音乐初始化地址/ S# D2 H5 E4 L# B: {
  32. Music_Play_Addr             = $813C ;音乐播放地址. }8 G. u" R& s' ]
  33. Music_Reset_Addr            = $0000 ;音乐重设数据地址7 C6 D5 T' w# ?6 q6 ?' r( G* a
  34. ;==================================================. v2 x5 [; R1 a) ~6 [9 U* m
  35. Music_Song_Total            = 039  ;全部曲目总数
    4 f/ X  H7 f$ X! z% H1 ^; w$ ]' ^
  36. Music_Start_Song            = 007  ;初始播放曲目' }# ]1 `4 Y  ?/ D  a* o7 t" N' s
  37. ;==================================================
    0 B- m' Y) p$ B& h# W

  38. 3 x" C+ @! O1 X$ l# c
  39. ;==================================================
    9 N' }$ c1 M3 w/ E7 H
  40. Title_Text_Pos      = $210D ;标题文本位置
    & z8 g0 U* _- w, R9 p  A! i; L5 e
  41. Author_Info_Pos     = $2284 ;作者文本位置& V2 Z* Y1 w9 D7 d" B
  42. Date_Info_Pos       = $22CB ;日期文本位置+ v3 W. t' N8 o+ U' H
  43. ;------------------------------
      I9 P- w" R2 v9 [& K( T2 b
  44. ;------------------------------6 I" Y* M: {0 A. P& S, r
  45. .IF SOUND_BAR_SHOW_ENABLE
    6 U; n5 s3 |/ }- ?, [) L
  46. Play_Index_Pos      = $21B3 ;当前曲目位置. x& @8 z9 t( X6 Z6 {
  47. Play_Time_Pos       = $21F3 ;播放时间位置
    - l4 Y3 `9 ?2 R, [
  48. Play_State_Pos      = $2233 ;播放状态位置0 ?1 J9 ]+ @: g
  49. .ELSE3 n& f/ ]6 l, m/ F

  50. , c3 C/ R& {7 j
  51. .IF Music_Song_Total > 99
    0 f* [( X  ?0 E8 c% U5 ?
  52. Play_Index_Pos      = $21AC ;当前曲目位置
    * ^6 x6 C: J' @% Y2 K$ X8 s+ ?
  53. .ELSE/ p* f* i% Y# c; B2 a
  54. 5 ]* F- c" Y7 v+ K; q- [1 n( R! I
  55. .IF Music_Song_Total > 9
    - V1 H0 Z% f: }( [/ e
  56. Play_Index_Pos      = $21AD ;当前曲目位置4 G. \; p: H; T2 N+ f+ V
  57. .ELSE
    4 q3 ?( e' S7 i
  58. Play_Index_Pos      = $21AE ;当前曲目位置
    * o/ I# b/ [6 X% ~8 H+ s
  59. .ENDIF
    & q$ \. D8 r3 k3 m( V1 e/ L' x3 U

  60. 4 q$ W0 I* s5 Y
  61. .ENDIF, j$ C# r# }& n3 s0 c, Y# L

  62. $ v/ f  H+ @4 b& S9 Q# E

  63. 6 h0 V* D# X% W  x4 V
  64. Play_Time_Pos       = $21EC ;播放时间位置, d5 v. _: J& }1 Q1 z- O
  65. Play_State_Pos      = $222C ;播放状态位置  y& r5 d8 K2 s6 J! o5 V& N( k& a
  66. .ENDIF
    5 b( E, {' }% Z
  67. ;------------------------------
    3 G7 _7 w- M8 y- Q3 s
  68. Track_Name_Pos      = $216B ;曲目文本位置" r- d5 e/ ~% C+ v* U
  69. Sound_Track_Pos     = $21A5 ;声道文本位置  [* q; C/ z7 R( g
  70. Sound_Bar_Pos       = $21A9 ;音乐条位置
    ! m- i: v3 \, a$ R, B1 Q6 H
  71. ;==================================================
    6 }% l  e' T0 w$ N9 K! ~
  72. Scroll_X = $005 c0 s# E  |# h$ `. |
  73. Scroll_Y = $068 Z: K6 i5 u  _6 t
  74. ;==================================================
    ( E6 L8 z+ D6 l
  75. RAM_Cln_1       = $0100
    / Q* U: V; w2 _& f" B+ ]; t
  76. RAM_Cln_1_Size  = $80
    # a% z+ S! J( y9 b1 e
  77. RAM_Cln_2       = $00E0
    7 k) N  ]/ w9 j( R+ d
  78. RAM_Cln_2_Size  = $20
    ! o2 e7 C6 l" a- E- _, ~: F) B
  79. RAM_Cln_3       = $00E0
    * D6 G; I. z! b& S  }# f: b
  80. RAM_Cln_3_Size  = $20$ q3 W8 C3 o+ B5 ]

  81. 5 @: j, e: Y3 f# U
  82. ;==================================================4 ^% V- \% Q) o$ m  z8 d, ^
  83. PPU_CTRL                =   $2000   ;PPU控制寄存器
    1 `& n2 J, @, q( d
  84. PPU_MASK                =   $2001   ;PPU掩码寄存器$ S6 Y' F# M3 _
  85. PPU_STATUS              =   $2002   ;PPU状态寄存器：读取后PPU_SCROLL和PPU_ADDRESS被复位，下一个写到PPU_SCROLL的数据是水平的，写到PPU_ADDRESS的数据是高位6 _! o5 Q0 {' z. g( S" _6 n
  86. PPU_OAM_ADDR            =   $2003   ;精灵RAM地址：用来设置通过PPU_OAM_DATA访问的256字节精灵RAM地址。每次访问PPU_OAM_DATA后该地址增加17 `# O8 H( Q4 X5 J# X
  87. PPU_OAM_DATA            =   $2004   ;精灵RAM数据：用来读/写精灵内存。地址通过PPU_OAM_ADDR来设置，每次访问后地址增加1
    3 c. B" R/ f8 Y" ^0 Q" B6 A
  88. PPU_SCROLL              =   $2005   ;屏幕滚动偏移：第一个写的值会进入垂直滚动寄存器（若>239，被忽略）。第二个值出现在水平滚动寄存器
    3 F6 j' S$ J$ G2 o- g- Z
  89. PPU_ADDRESS             =   $2006   ;VRAM地址：设置PPU_DATA访问的VRAM地址。第一个写地址的高6位。第二个写低8位。每次访问PPU_DATA后地址增加* v& ?5 L. \7 i3 i3 y  ^$ N, P
  90. PPU_DATA                =   $2007   ;VRAM数据：用来访问VRAM数据，通过PPU_ADDRESS设置的地址在每次访问之后会增加1或32
    6 F9 M( @  K  p( N$ d
  91. OAM_DMA                 =   $4014   ;DMA访问精灵RAM：通过写一个值xx到这个端口，引起CPU内存地址为$xx00－$xxFF的区域传送到精灵内存0 m& u- v5 `4 [$ b. x' ~
  92. APU_STATUS              =   $4015   ;声音通道切换% C- f# s+ |, Q( S; o
  93. JOY1_FRAME              =   $4016   ;手柄1 + 选通
    0 q! i7 i$ u4 G5 n9 _# y2 q# \
  94. JOY2_FRAME              =   $4017   ;手柄2 + 选通
    5 ~! Q4 S7 g" u$ f2 e) F
  95. ;==================================================( p. Q% ~9 i5 Q6 I+ x. d7 G
  96. MMC3_BANK_CTRL          =   $8000
    ; ]  i& L1 I$ l( n4 Z
  97. MMC3_BANK_DATA          =   $8001
    4 O/ N4 f# d9 V2 @
  98. MMC3_MIRRORING          =   $A000) N" ~! _7 ?3 }
  99. MMC3_PRG_RAM_PROTECT    =   $A001) m( j8 K# w: g
  100. MMC3_IRQ_LATCH          =   $C000
    6 F( N8 p+ S3 h9 d9 l4 U; G. s
  101. MMC3_IRQ_RELOAD         =   $C001
    0 ?4 [8 w2 r0 t. Q
  102. MMC3_IRQ_DISABLE        =   $E000
    * _# f2 s  O  q' f
  103. MMC3_IRQ_ENABLE         =   $E0012 o* G( O$ H3 R8 f( T$ C

  104. 2 f% p; w  M! f2 @# \
  105. ;音乐数据块
    2 z6 i3 m/ v+ A3 q6 K1 i

  106. / H4 B1 q3 K( N; k
  107. ;======================================================================
    ) M) W7 _; h5 C  F
  108. .IF SOUND_BAR_SHOW_ENABLE* v4 t) v) K% _* \
  109. .BANK SOUND_DATA_BANK_0 & BANK_DATA_MASK4 Z: U1 D1 }% B& |$ K
  110. .INCBIN "sound_bank_bar/music_data_0.bank"5 W( G5 t8 b3 R* I# E- W% l. v

  111. ' }, [2 Y3 R/ W
  112. .BANK SOUND_DATA_BANK_1 & BANK_DATA_MASK
    7 G7 ]! ], e8 K' U) g& B$ p$ g
  113. .INCBIN "sound_bank_bar/music_data_1.bank"
    , X$ L% {1 Y% Y; `. v: f( z" G% X
  114. 6 D6 W* P2 a: H' c8 p" R  A2 x0 R
  115. .BANK SOUND_DATA_BANK_2 & BANK_DATA_MASK
    6 Q( C" s& E) i  ?2 X
  116. .INCBIN "sound_bank_bar/music_data_2.bank"/ `, Q, i  {4 P! H9 k" i: q

  117. 5 }, K3 M" Y8 J4 y5 [/ j
  118. .BANK SOUND_DATA_BANK_C000  & BANK_DATA_MASK
    ) k) m$ {0 r) i" q8 j9 {
  119. .INCBIN "sound_bank_bar/music_data_3.bank"
    + J' j0 z5 v2 X" d) ]7 \
  120. 7 Y- z  r$ j; r# T/ e
  121. .ELSE
    5 y6 W7 b6 Y" S6 n& r
  122. .BANK SOUND_DATA_BANK_0 & BANK_DATA_MASK
    3 ^2 O8 J) x( [; k- L
  123. .INCBIN "sound_bank/music_data_0.bank"* Z/ a( B) Y# ]* y  F
  124. 9 D/ S2 O3 F. x2 }
  125. .BANK SOUND_DATA_BANK_1 & BANK_DATA_MASK
    ( C8 J9 I& v" ^) c
  126. .INCBIN "sound_bank/music_data_1.bank"1 M* L- @; \' b7 Z

  127. 9 x# ?0 o7 @& I7 r0 j% Z4 n
  128. .BANK SOUND_DATA_BANK_2 & BANK_DATA_MASK
    ( K  k" S6 G8 N5 Z9 K
  129. .INCBIN "sound_bank/music_data_2.bank"
    3 y2 ^$ M# k; v
  130. 5 ~: }; V: g7 _8 t9 ?# Z9 w
  131. .BANK SOUND_DATA_BANK_C000  & BANK_DATA_MASK
    8 Y3 C0 k& o9 H' i9 T6 k2 z
  132. .INCBIN "sound_bank/music_data_3.bank"
    0 [  x0 t; k4 G0 j8 x( s1 d( ]: O1 S
  133. .ENDIF" g( ~' r: A0 m: ^! {; P) X" F
  134. $ V# M* l2 k' j1 w& T
  135. ;CHR图形数据
      l6 d1 l2 N: z* m, H3 E. E
  136. ;======================================================================
    - m0 c7 G, F4 Y
  137. .BANK CHR_DATA_BANK3 ]6 L# U9 ~; M2 H6 ^
  138. .INCBIN "chr_bank/chr_data.chr"8 e4 x) ^- p2 [" G

  139. 6 n6 e5 [& A, O& C% ?6 k
  140. ;==================================================1 t; [% k8 ?. V: q
  141. PPU_Addr        = $03009 l( D1 ?3 L1 d5 s# W
  142. Palette_Addr    = $03C0
    ; E6 O& l  l8 Z- V5 K) }9 a
  143. Sound_Bar       = PPU_Addr+$E0
    + G) U4 E  k  J- f4 z; ~
  144. ;==================================================
    . e; F! C7 u$ B4 ^9 r6 @% T( b( j
  145. Palette_Update_Addr     = Palette_Addr+$0D
    7 @. o+ m% K/ B; q" v. I
  146. Palette_Update_Max      = $2C
    4 t8 K; g" b$ C& }( ]
  147. Palette_Update_Min      = $21- k. T, K+ N/ ?' b
  148. Palette_Update_Interval = 60
    ! l  G% Q$ c! r7 a
  149. ;==================================================8 r8 w+ b/ p6 o+ y! j+ _
  150. Sound_Bar_Cnt       = PPU_Addr+$F0
    , d' r/ }; A  Y5 `( [
  151. Screen_State        = Sound_Bar_Cnt+$018 l, o; @  E2 L1 k3 a
  152. PPU_Cur             = Sound_Bar_Cnt+$02" y8 Q8 ]* z2 x$ ^, q
  153. PPU_Addr_H          = Sound_Bar_Cnt+$03
    6 `8 X2 I" t3 n* S& ]  s
  154. PPU_Addr_L          = Sound_Bar_Cnt+$04
    9 G* D% ?8 r8 L3 _5 Y$ b1 d
  155. ;==================================================1 B5 d1 b# ^3 Y# A# L
  156. Data_L              = $70
    0 y' F# c3 y2 Z' _$ Q
  157. Data_H              = Data_L + $01! B8 g( L/ o) T
  158. Data_Cnt            = Data_L + $022 \5 o# C6 k; s$ e, A1 a) C! N
  159. Data_Buf            = Data_L + $032 O+ B, v6 o9 B  y
  160. Time_Wait_Cnt       = Data_L + $044 P# _" }' T" R1 \. [- |0 t
  161. Palette_Wait_Cnt    = Data_L + $05: N: x. J# m3 m
  162. Palette_Update_Flag = Data_L + $06. y  G$ }; j; ]5 O
  163. Show_Track_Name     = Data_L + $07) e8 N" N/ p, A, ]" {/ ]% M( i
  164. ;==================================================0 A& E% g, Z2 L5 Q
  165. Key_Keep            = Show_Track_Name + 1+ I  }$ b) C3 i( x9 r, H
  166. Key_Once            = Key_Keep+$01
    ) |% |. U) ~4 U: e0 E" X
  167. Key_Kemp            = Key_Keep+$02
    : X) F1 E  H5 Q& z3 g
  168. Key_Temp            = Key_Keep+$03
    * T$ C8 L1 C+ @; L5 @
  169. Key_Getv            = Key_Keep+$04; ^0 N# z- F) [/ z8 J
  170. ;==================================================
    $ |2 e4 h% }8 d( W# c# B
  171. Music_Cur           = Key_Getv+$01
    1 `( X" h2 v  U6 `  Z
  172. Music_Last          = Music_Cur+$01
    1 H$ ]* ]& N& o0 J
  173. Music_State         = Music_Cur+$02, `" O& s! a& j8 y8 a* ^2 M
  174. ;==================================================. `2 e3 |4 a6 o+ u
  175. HEX_Data            = Music_State+$01
    , J5 F# h; g9 Q& s6 b
  176. DEC_H               = HEX_Data+$01
    ; j, N. C  X: c' m2 ]' z
  177. DEC_T               = HEX_Data+$024 v( q7 J) W7 H- I5 ^
  178. DEC_L               = HEX_Data+$03
    9 O+ L% g0 c  t" }4 [" P
  179. ;==================================================
    : Y% ]3 ~4 K+ E8 K
  180. Time_S              = DEC_L+$01
    & T& E) B6 ^% [& B
  181. Time_M              = Time_S+$01
    ( c* b* v* f* `* D
  182. Time_H              = Time_S+$02$ w+ n  i  d4 V$ q8 J% v
  183. Time_Cnt            = Time_S+$03
    + L* g: |" h% @0 u9 w, [
  184. 8 y) S. d. f0 c, m4 T- c; D! z
  185. ;==================================================
    ; f4 {; ?6 Y, i
  186. Music_Bank_8000 = Time_Cnt + 19 X5 Z& U9 x2 c6 I6 V1 K9 g" M1 Z
  187. Music_Bank_A000 = Music_Bank_8000 + 1
    , ~/ y0 p; D5 C1 o1 n
  188. ;==================================================
    5 @' L& f; B, b6 H
  189. 5 h# z- _- M( z1 I2 D4 c( N. ]
  190. ;======================================================================. v& r5 [! e) s3 P+ G3 {
  191. .BANK PROGRAM_BANK0 ~  d* h& [/ k# ]' G# m& d6 X
  192. .ORG PROGRAM_ADDR
    - S2 V. y7 }" h1 Z% M5 O

  193. 6 M# F+ F2 l) N$ h* q% L; i
  194. ;==================================================
    2 T4 C; \9 ~! }/ |& c7 R& F* n
  195. NmiProgramProcess;NMI中断程序处理1 x; `3 D3 j; Y4 \( H' p
  196. ;处理PPU图像
    - b" I. U' d5 X1 O, Y0 J) v% P0 J
  197. JSR PPU_Proc2 D+ ^4 {/ B7 P( ]% N( L

  198. 4 x% X0 z. T5 l( D2 {
  199. ;启用NMI中断6 _* w6 P/ T% C: }. ~* C. n5 a' b$ J
  200. LDA #$80
    ; W3 E( d. C  R2 F
  201. STA PPU_CTRL
    ' F* X8 h0 O6 T( R; d

  202. : q0 [6 y: o! E" K0 ~
  203. ;更新调色板
    0 `- G$ ]0 _' l( L8 f* Y8 T9 a
  204. JSR Update_Palette_Data
    8 K5 }& V( i" s6 |) ?( _
  205. 7 M- ]4 C, n; n: g
  206. ;显示时间(缓冲)+ W: F, A" W( N, [! E
  207. JSR Time_Show7 Y6 |: J& {& w% \1 g( H) d# B

  208. : O& {: ~" \" U, c; o7 M
  209. ;播放计时$ V3 ^) K1 f3 o; ?4 F8 T
  210. JSR Time_Count
    6 J0 {6 U8 T0 ]
  211. ; T) F5 t6 L. l6 p- E2 D
  212. ;播放声音6 P) c' a) F4 s6 {+ `$ U# a6 v2 ]
  213. JSR Sound_Play
      f# T* f& x8 @  L6 U
  214. 4 I  d& @) M' R
  215. ;切换音乐(手柄触发)# E6 B* G5 X# \* e$ h; \7 ]' j
  216. JSR Music_Switch# D, ?9 ?4 [0 t
  217. 8 n0 t: r& c; s
  218. ;音乐显示(缓冲)
    ( v. m' u" ~) _3 x& [
  219. .IF SOUND_BAR_SHOW_ENABLE- G4 {9 ^+ p3 k/ p) @
  220. JSR Music_Vision
    * @: P6 G* V" X1 K
  221. .ENDIF
    ' J2 l- D0 Z4 t& ~+ M  I
  222. 8 S. O7 T% p: N  N0 d6 D
  223. LDA Time_Wait_Cnt' K9 G# Z7 E) i  q, }5 h
  224. BEQ NmiProgramProcessEnd; q) i( O$ t  d9 y* u) G# l
  225. DEC Time_Wait_Cnt
      F( C2 x# w1 s: p- t% U" Q1 k
  226. NmiProgramProcessEnd
    8 ?$ n/ f; T% y" _
  227. RTS
    $ V; j" H( U  E
  228. ! N' K7 R) {6 \
  229. ;==================================================: ~2 G7 M  ]$ w5 a' `, T" g
  230. ProgramBegin;主程序
    $ [) D& w1 {7 Q1 z' K# C' ^- S# F6 @
  231. LDA #$00
    . X2 e  q" E4 u8 p
  232. STA PPU_CTRL
    0 r  [0 A' t+ q
  233. STA PPU_STATUS
      r6 v4 R0 I' u& P( ^- I
  234. STA PPU_MASK
    & E& T3 l+ r: |. s& K
  235. STA APU_STATUS
    ' ]! o  Z7 N( ], a: g4 n
  236. STA PPU_SCROLL! ?% J! [8 I* ~7 P
  237. STA PPU_SCROLL, s: m5 p% d+ h# J0 e4 C
  238. LDA #$C0
      ?$ |+ b4 ]. ]' O4 b5 A) P. e: G
  239. STA JOY2_FRAME
    . l5 X" C* e- e( [  x

  240. + O( R2 }: y- [
  241. LDX #$FF
    . M* |* }9 y4 S7 @
  242. TXS
    0 U* o4 [! j% `! u: L0 o
  243. LDA #$00
    - F" f$ R  b# n3 K1 b& g6 ^% w$ _
  244. STA PPU_CTRL8 ]3 |: U4 i8 w
  245. STA PPU_MASK
    & @4 V4 F! J: S# T
  246. STA MMC3_IRQ_DISABLE
    / j7 N+ w5 L& z- y, q2 ~) f
  247. 4 x' E: q* P2 e0 s3 u& E
  248. ;==============================
    0 V* \9 G. _. A9 u4 |
  249. ;调色板清空
    6 j, W# u8 \3 p# z; ]' P  |
  250. LDA #$3F1 {9 f0 w8 W9 s
  251. STA PPU_ADDRESS
    ' e9 A" m( h. l6 \
  252. LDA #$00
    1 j" Y' O; P( h' F4 w0 I
  253. STA PPU_ADDRESS+ ?4 r( `% H' y4 D* J. i2 I
  254. LDA #$0F8 `+ r" j! i) @3 _1 t
  255. Palette_Clear# q5 \6 q- E) s
  256. STA PPU_DATA
    5 z1 ~" p2 y: J: U" r" u
  257. INX' Z" U: }" a5 @( m, j# a
  258. CPX #$20
    * N1 V; J$ h* W" O3 j. m  `
  259. BCC Palette_Clear
    2 F. m) s$ i# C) k2 X) S* B
  260. LDA #$00
    ; i1 |: [. U& ~
  261. STA APU_STATUS& R) A2 q  ]  s& ~: ?$ M  }
  262. ;==============================
    9 S% W' f& l: d9 L5 X# Q; x6 ?
  263. ;初始化背景调色板8 _4 R" _: t/ m4 o$ r+ ?6 }* Z, R
  264. JSR Set_Palette_Color+ l. N9 o* I2 b# D5 x7 t* @9 h
  265. JSR Set_NameTable_Attributes
    1 \" C( D: ~6 B& [' f
  266. / Q" ^. _5 i' ]: D5 a& F" v2 c
  267. ;==============================
    / }+ \% {0 x! v, K
  268. ;RAM初始化7 E; F2 R; p) m$ U+ l
  269. RAM_Clear_All
    $ h0 X  e; T% |9 }( a3 R, O
  270. LDX #$00
    1 `" U! E7 s# @0 @+ n+ l  f, E
  271. LDA #$00: c/ v9 b  ?3 K- \
  272. RAM_Clear_All_Start. {% A  s6 a& k; Q& d* F# f
  273. STA $00,X
    3 `$ O5 V! k+ C* C) P
  274. STA $0100,X
      H; t9 H* ]  e% i
  275. STA $0200,X
    # {; a! G5 m% r: K/ p& k& f$ P2 l
  276. STA $0300,X; j' W( G( z$ R, ]  n
  277. STA $0400,X  u% e6 D3 q& N% d6 p' \1 R
  278. STA $0500,X7 z/ z9 S! F* S. j# r$ [) ?
  279. STA $0600,X
    / p9 C  H6 h% s' H. ], q
  280. STA $0700,X
    - B+ `% w9 ?1 y  k7 J" [8 Q
  281. INX  R" A# ^  j/ {- o$ O: s4 n, ?
  282. BNE RAM_Clear_All_Start4 E( d7 M3 s3 P' a+ l

  283. - `: D4 l8 S( @( c% Z  j; \
  284. JSR VramInit
    - n$ i+ @6 H+ u$ ?: P0 n( L
  285. JSR Init_Palette_Addr
    0 j5 q7 K. M1 I. [

  286. * ^" k3 s+ A6 p" X5 ]0 p2 X% a2 q
  287. .IF Music_Reset_Addr" K& t1 [  H1 R6 e' Q
  288. JSR Sound_Reset* e9 C" N8 S. }6 j" S: `
  289. .Endif
    2 [, A* z) v3 u

  290. " v" o- I/ ^" s2 x1 Z$ `- h; H, ~
  291. LDA #Music_Start_Song-$01
    / T. y* G; q5 Z/ ~
  292. STA Music_Cur1 x+ F6 \5 q- R  j8 j

  293. 9 C: i$ ?' i3 M3 h
  294. JSR Show_Music_Text. Y1 r9 B- ~; p0 w* e
  295. 9 Q3 _! i; g1 Z7 z! ], i1 l# U2 ]3 S
  296. .IF SOUND_BAR_SHOW_ENABLE3 k% P& z; P% k0 m8 p
  297. JSR Sound_Bar_Text_Set! r5 [3 t+ q4 |0 ?# ^2 A
  298. .ENDIF
    8 o5 |* k3 m. l: n5 `; u
  299. - l% Y  q/ o+ P: E) A; M
  300. .IF Track_Name_Pos( O7 p, k8 J, l' T* H
  301. JSR Show_Track_Info8 i* V9 x5 j6 B- I( B- T
  302. .ENDIF
    ; F. G$ g5 p3 G" o: ]' \
  303. ) N' v2 T! U: D" n
  304. JSR PPU_Proc" F  [3 n& H7 @0 `0 N3 p: A9 d

  305. 5 t' n: F8 c' j; B# [8 ^1 p$ j
  306. LDA #$0E
    ( [5 t/ ]/ Y3 L) n& {6 U
  307. STA Screen_State
    / p" H9 y$ f3 q

  308. 8 Z' n" Z8 A8 c5 A' D6 ~
  309. JSR Sund_Bank_Init
    3 x0 A6 o$ E* G# p3 W$ z* Q
  310. 2 I7 q0 T: ^) O+ B
  311. JSR Music_Show
    : D; v( u  r9 t* L
  312. JSR Time_Show. R# ]6 m4 m" l9 v1 V* L$ r
  313. JSR Music_Stata_Show
    , J3 X: P3 k* v+ n; m( S5 l* m: c
  314. JSR Time_Delay
    9 Y. I8 T( h- A2 T
  315. 4 o2 B$ f  _  p  X! h

  316.   H7 K' @; L, ]
  317. LDA #$803 W" [0 q/ K" Y
  318. STA PPU_CTRL
    8 G+ n/ I4 m+ t4 j

  319. - o6 T; Z, g% H, _
  320. LDA #$20- D& \0 y7 `* t% b
  321. STA Time_Wait_Cnt
    + v! C6 y3 M* [
  322. 6 [% `$ u# X- G
  323. Wait_Time_Over
    0 h8 D2 q- v" I0 `5 o' M
  324. LDA Time_Wait_Cnt' a1 Q. ]" i( H: \
  325. BNE Wait_Time_Over
    1 O. u: `& U' P' _( J

  326. ) F; v. {, I2 m$ x# x5 E
  327. LDA #$1F
    + T* ^6 o8 l" C. j2 P
  328. STA APU_STATUS3 k0 y, {$ n( r" X3 H3 m- q, H
  329. LDA Music_Cur
    ! D; _8 k* h* H& q# V  c
  330. JSR Sound_Init2 ~4 z  e# E+ t; l; B, I
  331. ( {: V# e- k; Z0 j- I9 B
  332. JMP MainLoop
    ) q7 R/ F/ b: {; K
  333. ! Z  g# a" b& {: i
  334. ;==============================% E+ i2 S$ f; c# P# @$ o1 D
  335. Time_Delay;延时等待
    ( s! h! e. ?2 m! I+ c
  336. LDA PPU_STATUS  s# F# d' x) {
  337. BPL Time_Delay
    , v- m1 I8 L  \# m0 c% Z
  338. RTS* W( @; b* b6 w( i" `

  339.   D& \! M* Z& e9 c- j1 h
  340. ;==============================0 f" {9 v/ ^0 U
  341. VramInit;初始化图形内存: ~! P( p6 U/ A) Q6 U7 n
  342. LDA #CHR_DATA_BANK$ {8 j3 [2 Z5 Q
  343. JSR SwitchBankA000  z, Z$ |( u6 ?
  344. LDA #LOW(CHR_DATA_ADDR)8 ~+ v+ Z  C1 Y5 p9 K
  345. STA <Data_L
    ! m' k9 l3 D# Y) e9 E; f: X
  346. LDA #HIGH(CHR_DATA_ADDR)
    : ^* C5 R( Q2 j( f  A9 z
  347. STA <Data_H
    ) `- L& b3 r4 Y
  348. LDY #$00* q6 S9 ^+ y, ?  w
  349. LDX #$20
    : Y) G1 w7 R0 w! j
  350. LDA #$00
    % b4 @: S- j/ V# L- p8 U
  351. STA PPU_ADDRESS
    1 B% U' j  `( V. Z" L0 d
  352. STA PPU_ADDRESS
    : C( y! V& z2 N+ {9 O
  353. VramInitWrite0 d# J9 k. k* ?2 V; e/ q6 A
  354. LDA [Data_L],Y
    7 P2 Y( C' a( {: H# d9 w& S$ s
  355. STA PPU_DATA& W& z) ^) R1 c3 {0 X
  356. INY/ p" ^. P* I  N& i
  357. BNE VramInitWrite. C) P, P9 M& _# H$ }
  358. INC Data_H$ v) ~5 h# e6 ^8 G
  359. DEX' Q0 o7 ]: N, z( J
  360. BNE VramInitWrite6 J+ q" P: R1 A  O& J4 D
  361. RTS& L# s2 e2 Z+ ~* g3 e: |' ^$ {
  362. * o- \6 d4 {# t7 P2 q- W
  363. ;==============================
    / m) U4 }) g/ v. F9 n$ L
  364. RAM_Clear;RAM清除: L7 u7 B; `0 E- O6 I
  365. LDX #$00
    1 Q) ^& h/ [- s1 F% R7 g# Q
  366. LDA #$00! J  j- ^1 k/ I3 F8 J3 u
  367. RAM_Clear_1- w" ?1 w9 `9 B. G% U
  368. STA RAM_Cln_1,X- y/ y% J& m9 g6 `5 J. Q0 r
  369. INX& M  P  k+ Q8 S
  370. CPX #RAM_Cln_1_Size, Y2 _! j' y" Z8 ], }3 e
  371. BNE RAM_Clear_1
    4 G) B# O) |9 @
  372. LDX #$00
    / q, R& W+ W- G8 f' q: }
  373. RAM_Clear_2' e2 w8 \# W3 f
  374. STA RAM_Cln_2,X6 i& F8 O3 H* j, j* z# f; Y5 w4 E
  375. INX9 f9 S) w  \2 z7 ^, f
  376. CPX #RAM_Cln_2_Size4 V( K9 u: x2 |' h8 O
  377. BNE RAM_Clear_2, D3 }( N3 ]" X) I# u# b
  378. LDX #$00+ N. w) g- u- ^1 H, ^
  379. RAM_Clear_3( h. E. S* Z* Q
  380. STA RAM_Cln_3,X& j$ ^' S0 b+ q  U
  381. INX/ M  @4 _; F, Y# P0 ~2 j2 t7 E0 `
  382. CPX #RAM_Cln_3_Size' H- E6 H, J1 X5 D+ o- ?( Z8 L
  383. BNE RAM_Clear_3
    ; M4 n3 Q8 P; N$ }$ z8 K
  384. RTS4 {3 w, ^: j- w: n$ p: q  p$ F+ z# J

  385. ! o' C8 T5 M, V) s- s/ Z7 r, V
  386. ;==============================
    , s; ~# Z4 _7 f- m) N& {
  387. ;音乐切换
    7 F' f: I" D- L3 G. m5 c
  388. Music_Switch
    + O, c4 d3 O* C; H
  389. JSR Key_Proc( m" g# e. Q+ Q# M5 \( c
  390. LDA Key_Once/ S# V  A/ I2 Q; _$ w
  391. CMP #$10
    3 L7 k3 t3 w0 `! m* |8 M5 _
  392. BNE Music_Start_SongStop2 v, o5 h! [! j' r; t* F
  393. JSR Music_ReSet2 Z2 Z0 d7 F+ x# F
  394. 2 B! G" b0 ~  I
  395. ;音乐停止
    4 ]- {) j7 s! b- n
  396. Music_Start_SongStop8 d7 h' q3 ]4 p1 o  v
  397. LDA Key_Once
    6 p, T! }+ q/ H
  398. CMP #$201 k5 `+ t) U# i& J5 j3 b
  399. BNE Music_arrow
    * I/ r/ ?1 S- U! W' b' b2 N
  400. LDA #$01
    0 c, [3 e6 u2 x/ x! _8 |
  401. STA Music_State
    8 V7 B8 u8 t; C9 T/ r0 b
  402. JSR Music_Bar_ReSet
    . c4 h8 D+ \  I  i. [1 Q1 m, b
  403. JSR Time_ReSet
    ; K. f4 {8 j; O
  404. JSR RAM_Clear. X$ u7 y! h$ S* r3 C0 u
  405. JSR Sound_Clear
    ) ?! C/ Y! O9 ^3 X5 q( L! _
  406. JSR Music_Stata_Show% g& d% N- f- ?: T! L: v( q
  407. Music_arrow
    " a3 D' F7 G5 u! W
  408. LDA Key_Once
    6 W* G# x9 Z5 R0 [+ e! i
  409. AND #$CF
    6 O, n7 M) }6 h& J$ J, B& }
  410. BEQ Music_Switch_End3 l) D5 R9 M8 B7 o0 j5 h
  411. JSR Music_Number' P- U' L$ l4 d' E$ @
  412. JSR Music_ReSet
    ) B+ o1 F7 @8 L( J" \
  413. JSR Music_Show: Q7 \$ T" |; f1 [2 p$ A9 R( W
  414. Music_Switch_End) I& T+ F3 X3 O. V) v" F
  415. RTS$ n7 \1 t% D( b  m: x1 h8 r
  416. ' _5 e) n5 }1 a8 c) {9 x
  417. ;==============================$ w; x) P( u( ]# ^: A% G2 j
  418. ;音乐曲目切换
    * f! u6 H  r4 ?, G# L3 j% L
  419. Music_Number; Y) U9 T9 O, b* o; d5 e% M) W$ U; [' S
  420. LDA Music_Cur
    , S; Y4 e) y) {: {) X
  421. STA Music_Last* v1 \  Q8 [+ Q, @2 q5 U& z
  422. Music_Decrease
    + H7 Y7 \! w1 C' m8 ^0 o# e1 o( Q* v
  423. LDA Key_Once
    : k- W$ I; L( Z& r
  424. AND #$42
    : K; X, P9 I2 ~: ^
  425. BEQ Music_Increase9 o  R* O$ a. O
  426. LDA Music_Cur
    . ]& P. e# n% d" f
  427. BEQ Music_Increase
    ( V5 P  X/ o, D0 D- \
  428. DEC Music_Cur3 z% V0 Q0 a9 E# I. y3 @
  429. Music_Increase: i/ {% |1 W5 z
  430. LDA Key_Once) Q; J2 q: x! {2 J- y
  431. AND #$81
    ' ^6 t& j1 W( a5 d2 P# X  d
  432. BEQ Music_Decrease_10
    + m' V6 r* x: @0 |  `6 p
  433. LDA Music_Cur* ]. a7 x1 |- a* H  @  C: F5 @5 ^
  434. CMP #Music_Song_Total-01
    2 A! J1 \9 }) g2 i3 P
  435. BCS Music_Decrease_10! h  v& H# W1 z8 U& G
  436. INC Music_Cur# a  z/ D  F+ a- k! J  l" ]( _8 l
  437. Music_Decrease_10+ Z. Q3 C% D6 s; ^
  438. LDA Key_Once
    ( O8 N1 H" a! p9 j5 D5 F( q  P
  439. CMP #$045 N# j& v6 r5 _) T6 s0 g9 O
  440. BNE Music_Increase_104 B3 c. |  l" s2 c2 [* D
  441. LDA Music_Cur$ p4 p; U, G: z$ ~
  442. CMP #10
    0 U4 S, ^8 }+ i3 c6 j
  443. BCC Music_Start_Song_Min
    / ]% P- z; v) C/ F0 f
  444. LDA Music_Cur
    8 O3 z( r$ d: N2 B* \. B. Y6 P9 J( y
  445. SEC$ h8 h1 K; [* P/ G. k1 Z# D4 ~
  446. SBC #10
    8 C9 ?) C) L; D+ \; r4 a% B8 Z
  447. STA Music_Cur/ N) _* P9 @( u5 L
  448. LDA #$006 q5 F7 ~# R2 U7 P0 U
  449. BEQ Music_Increase_10- N  f5 K0 M0 h: ?; _" P
  450. Music_Start_Song_Min9 F; N8 \$ _  v  d& M2 L& u# {
  451. LDA #$00, }1 w" ?0 a  @) l: y# d
  452. STA Music_Cur1 |' \0 x! e) {7 \
  453. Music_Increase_10: Q( A3 C. I, j) s: d3 e+ ^
  454. LDA Key_Once
    * `1 h0 g  l7 R; w
  455. CMP #$088 v8 `0 r8 G( i4 l, W7 ]8 K; M
  456. BNE Music_Number_End8 [/ q! e# n6 ~/ A3 I  a& `
  457. LDA Music_Cur4 @/ g) B, J# d
  458. CLC' r/ H9 w) b8 X( r) f
  459. ADC #10$ g* \/ H  j- |# w* j
  460. CMP #Music_Song_Total-01
    & j  R9 B8 c" D  t6 }
  461. BCS Music_Start_Song_Max9 y0 a4 p/ r$ i1 p( X% ~& d
  462. STA Music_Cur
    # K6 o! J+ ~* A& D
  463. LDA #00) H. ~! n' S/ ]' \0 z
  464. BEQ Music_Number_End
    8 V; l$ ^. f# M  s3 z( P2 L# o
  465. Music_Start_Song_Max
    0 G, s: L7 A( ]; z9 I8 ^
  466. LDA #Music_Song_Total-018 k6 ~3 c. ~! W: s' m+ |% c8 u
  467. STA Music_Cur: s0 _0 D! S0 d7 r! `6 B* B# [1 ^
  468. Music_Number_End* c5 ]" R9 S5 k0 D) r- z" n
  469. RTS
    , N% W5 F7 w9 _: M7 ^
  470. ) h1 l0 N! D; H  H: z- @. j
  471. ;==============================
    / ]  {0 K1 ]) S! B0 |2 H( W: R
  472. ;音乐重设- c) F/ ]% `' [: F- E) ]
  473. Music_ReSet' E4 T  b8 `  Z8 v2 W3 H$ I4 F- X
  474. JSR RAM_Clear
    ' ~6 k% n/ g4 v
  475. JSR Sound_Clear* X, t8 V( Q% s$ g/ a5 v# ?
  476. LDA #$1F: I' x2 H! t' ?7 G) k& h
  477. STA APU_STATUS
    9 p# u) Y+ ]) A2 I5 r& C
  478. LDA Music_Cur5 ], P8 M, [: i4 e3 T8 `5 e
  479. JSR Sound_Init/ k$ l' u. `+ z6 }; H  \
  480. RTS; |, o! E; W( Y4 {2 T: h% }
  481. " B8 p0 _6 x/ t  v4 w! k( k, O+ t
  482. ;==============================
    8 }; F. R. L1 T' a9 a) O
  483. ;音乐端口清除
      A) v) Y2 K- g( l: I4 J5 X5 C$ k4 W
  484. Sound_Clear2 K$ {, n' L2 k5 q, o0 @
  485. LDA #$00
    ' T, m8 J2 q: o0 p2 t5 D
  486. STA APU_STATUS
    % {4 d4 k9 l- T8 l
  487. LDX #$009 [! i$ g5 Y4 W
  488. Sound_Clear_Start- ^- c( p  a: _: D
  489. STA $4000,X" k! L& S, m+ `7 p0 g7 l
  490. INX
    , d: s9 w0 E& {* g+ ~( g9 \/ ?
  491. CPX #$148 G8 i4 h9 p, T) [
  492. BCC Sound_Clear_Start# R8 X$ h/ g. `+ H# D$ v, w) J
  493. RTS* E. q' C7 ^$ Q  @5 t

  494. 1 O. t. }, w+ G6 U) ]" V
  495. ;==============================# b8 b* n" `, a* ^2 K+ X% w, M( S: U
  496. ;按键处理: w+ U4 j; J8 N9 M
  497. Key_Proc! W% z& v; V3 m0 }% P! b* ~
  498. JSR Key_Scan, A& ^0 V" ]) U8 J* X& V9 O* J! A
  499. LDA Key_Keep
    : q3 E1 U; V, n$ X/ ^$ ~. n7 n
  500. STA Key_Temp& P7 q0 |7 [& B
  501. JSR Key_Scan- q' G! u$ J+ i9 z# l
  502. LDA Key_Keep: i' g( h8 `. U& m  W
  503. CMP Key_Temp/ R  h% B2 z0 N! [% W
  504. BEQ Key_Get_Once* Y9 j7 N; H1 _
  505. LDA Key_Kemp
    9 Y: c" d$ R# S0 C" ^0 x
  506. STA Key_Keep
    - S; O0 ~  X. m! h- x( x
  507. Key_Get_Once
    3 z& v/ v) q8 _, {$ d3 y
  508. TAY
    . Z( y! h- i) R% u$ \+ M
  509. EOR Key_Kemp& N9 b+ _' {- n, n+ u
  510. AND Key_Keep
    4 d2 _) \3 A4 D- o# \  `
  511. STA Key_Once' N3 V* h# c, ~$ R; I
  512. STY Key_Kemp
    4 i: T9 x! o) }  |4 M& U. D, S
  513. RTS; U& d9 N4 b6 a6 a, u
  514. ;------------------------------
    + J: A( I, f) ^! i! F
  515. ;按键扫描
    6 Z# a- G# o* Q# C
  516. Key_Scan
    3 k/ t: O$ h) t2 l2 ~, h" X
  517. LDX #$019 y! q) _+ r# t; e' |
  518. STX JOY1_FRAME
    : T% X* M3 q$ b" `1 X" m
  519. DEX
    2 r. `* I# z/ p- S% j, B
  520. STX JOY1_FRAME
    . o. p! `" k1 O4 N
  521. LDX #$08- n4 r3 j8 F2 I  o" y) Q
  522. Key_Value# x$ T& b! d% p6 c
  523. LDA JOY1_FRAME
    . d: ]+ n! d/ @) j2 o4 J0 G
  524. STA Key_Getv& W0 |# `% K, z! n# \: l1 q
  525. LSR A
    ; _6 _3 `$ Y: T! A) ?
  526. ORA Key_Getv
    + l! ?& D! e' [4 ~( B, D7 y5 h  h
  527. LSR A
    " ]1 `0 H) v5 F  U
  528. ROL Key_Keep
    " \9 x3 Y$ D6 `) v3 r0 m/ y- U8 D
  529. DEX
    * _' z) W0 I3 c; E; U
  530. BNE Key_Value
    / W: g* v2 k. }. M, J; _( O. c
  531. RTS
      ^. l# _# m- j8 l$ |$ G. I* H; T  k
  532. 3 R! R2 n- o7 o4 ~% t
  533. ;==============================- }7 v1 u' W3 n
  534. .IF SOUND_BAR_SHOW_ENABLE
    6 G! @+ R) I! I: D7 n
  535. ;音乐条显示
    ( _" H$ ?: Z% Y/ O: ?: @) u9 j1 p- S
  536. Music_Vision9 o6 T5 O8 R& y$ C; Q& }# }3 E
  537. JSR Music_Animation* \# _+ @/ ^$ I- J# q; s
  538. JSR PPU_End3 c# E$ F) Y' c: H4 l7 M% t7 {2 e
  539. RTS' U0 ?! E( z# c1 ^; v) H
  540. ;------------------------------0 _% M9 ~, E7 v) ~2 S- E
  541. ;音乐条显示处理* L0 e1 w. X/ v* f# |0 L/ n
  542. Music_Animation
    4 t$ j, S( q4 g
  543. LDX PPU_Cur/ T  t' X: S* s& h4 V
  544. LDA #Mode_Line
    5 z0 u$ F( w$ P8 n. |! C4 T" J8 r" D2 A
  545. STA PPU_Addr,X2 d$ M1 j6 \' A& D: Y
  546. INX& J2 A6 n2 e, j$ D/ w: T' z5 B
  547. LDA #HIGH(Sound_Bar_Pos)
    1 G) P0 I9 B% n" C* c: t
  548. STA PPU_Addr,X& C# g8 X# h. b2 X  T& q
  549. INX
    ; c3 J6 l0 F7 N7 m& n3 f
  550. LDA #LOW(Sound_Bar_Pos)
    4 t1 w: A: w9 `) M
  551. STA PPU_Addr,X& I6 g+ q5 J3 H# D( j. y
  552. INX
    3 ]% i/ k- U) F2 ?: z
  553. LDA Sound_Bar
    5 S1 @2 V% [9 u) @3 {1 l3 g2 B* n
  554. JSR Volume_Convert; W; o" u2 S# p! S' |
  555. JSR PPU_Return" g; d4 @$ W+ l+ a
  556. LDA Sound_Bar+$4% i) Z) C  u9 L1 m2 D
  557. JSR Volume_Convert2 P' T& v) y  R  r
  558. JSR PPU_Return
    8 @, N) n% `$ {* T4 ]) v" ]
  559. LDA Sound_Bar+$8# i2 z- I8 b+ n& i
  560. JSR Volume_Convert_Ex
    8 k; [+ K. C5 T
  561. JSR PPU_Return0 ]- h1 k& q0 F
  562. LDA Sound_Bar+$C
      \& Q! W) F% C+ |* A% W- K) b
  563. JSR Volume_Convert( i% w' ?1 I" j- v, m
  564. JSR PPU_Return
    / O. K/ [% U, \8 v1 P/ F! W
  565. LDY #$10. x) L( J: s3 u* ?# D8 x5 @) I
  566. LDA APU_STATUS( f5 _6 {) D9 ~, X
  567. AND #$10
    . V0 e1 L) \( y; [) h1 V: r
  568. BNE Volume_Count0 K+ Y- W, {! }
  569. LDY #$00+ n% {3 q0 n* @4 [1 ?$ @1 I& |
  570. BEQ Volume_Count
    1 v1 @: l/ r+ S. t
  571. ;------------------------------
    . G) ]7 d+ ~% z$ N" H
  572. ;音乐条处理+ d# g! \. x1 d# r. K5 [
  573. Volume_Convert_Ex
    + f# p( [6 c; ~9 J0 j8 i+ G4 C. {
  574. AND #$1F
    ; |, q; {, b, Z$ `* a- ~. e
  575. TAY, R+ X9 x9 u8 ^4 J% E$ F5 H
  576. BNE Volume_Count
    7 ^9 F  E, S" C0 R" Q
  577. Volume_Convert2 N$ p& Q* Q0 k0 T9 x/ X
  578. AND #$0F
    & D' ~9 O( d& k1 k7 w  _" z8 L# ^
  579. TAY, k* V7 w% m1 ~" e5 }
  580. Volume_Count
    $ G. _% Z% b6 D: O
  581. LDA #$08  d1 |2 a6 M4 ?4 p7 ]5 H1 _& F
  582. STA Sound_Bar_Cnt
    % }, e7 W3 @3 W4 j( {5 A3 k6 S; H, m  |- N
  583. Volume_FILL3 O( {6 Q+ N) [0 N; _, ~4 X6 G
  584. DEY7 W$ G  n, v0 ^0 `2 d3 c" B) y; x
  585. BEQ Volume_Half+ F' M/ s$ L; I) H& U+ x7 e2 V
  586. BMI Volume_Empty
    ; @! K3 \7 ?$ e
  587. DEY. u6 P' y/ y: k. F6 n4 B! B; w
  588. Volume_Full+ f- g* {4 n( n9 A* O+ _! H
  589. LDA #$16! g4 H% u/ G) e  S4 M# B
  590. BNE Volume_PPU4 b5 ~4 N' ]4 ~. k; `: c
  591. Volume_Half
    0 x- K9 u3 W2 K' D
  592. LDA #$15
    9 Y  N# l9 d6 J3 O6 K
  593. BNE Volume_PPU
    & V" {) t. r6 n  z
  594. Volume_Empty
    , K- ~: p5 @1 v. _: b6 D2 j
  595. LDA #$143 ?/ l4 U, B' U  \6 g0 `
  596. Volume_PPU
    9 e& ]5 C% k# r4 a+ X
  597. STA PPU_Addr,X
    9 @" E4 B6 B5 y+ b
  598. INX
    # x0 A4 i  t3 y4 A: f0 S! H0 ~! Y
  599. DEC Sound_Bar_Cnt
      C3 e' s3 p0 K9 X# F# T& i+ w
  600. BNE Volume_FILL
    $ g8 `2 [) u1 B. a: z  \
  601. RTS+ m) s% `# e- [. M, [8 j4 \/ ?, R

  602.   a7 ?5 l* J3 L% U
  603. .ENDIF8 h; M6 m: p, `) x& {! k3 o! j! k9 o

  604. , `8 t7 ^1 b: k+ c5 l/ B- F; ~
  605. ;==============================" }* m2 \+ [" j9 U8 `
  606. PPU_Addr_Set;PPU行开始4 y3 U5 T: E. y* G; |, Y- j
  607. LDX PPU_Cur$ y! K' t: J3 D( e- X
  608. LDA #Mode_Line
    . K0 o+ i" r2 a2 K/ |) S
  609. STA PPU_Addr,X* o& d. S5 E, k4 j
  610. INX
    & p# T* t+ L/ k& M6 Q) e- s
  611. RTS
    ( ~! L0 e( p* y  @" ~
  612. ; F, ^1 n) H4 e/ d  m* ^. {9 S
  613. PPU_Return;PPU转行- N) u! c8 G: Q  w; F
  614. LDA #Flag_Over
    0 B7 ^/ ~) I* F; j  x* p7 D2 O. j
  615. STA PPU_Addr,X5 g/ P6 I6 J# R! O# B
  616. INX
    6 D$ D6 Z3 L; L  ~9 X
  617. LDA #Mode_Return  M% r, s3 l" V% Q
  618. STA PPU_Addr,X
    " c9 {) R# G, w& Z1 O
  619. INX% }* g3 Z7 d( E. p
  620. RTS
    & q" R) m6 t$ I8 {
  621. 9 w* E  Y  p6 G+ H6 [
  622. ;------------------------------
    8 g9 `# q. n) _; j! C
  623. PPU_End;PPU结束4 ]: B# v( ]2 J- a7 P5 C
  624. LDA #Flag_Over
    5 s3 T/ e4 @% o: q* o+ Z
  625. STA PPU_Addr,X1 q2 J, M3 V' _+ ]& o3 W6 {
  626. INX, Q6 |1 K  \& ^; [" h
  627. STX PPU_Cur
    8 A+ ~% y$ w# Y9 a) K; M/ Q! ?
  628. RTS
    ) f/ j& @# m2 X2 g' y; ~
  629. ;==============================* O2 {1 |0 O7 R% ^" h
  630. Mode_Line     = $FD    ;新起行模式: }; K6 w: o" S: G) p" X" ]
  631. Mode_Return   = $FE    ;转下行模式2 k! j  v1 o% S1 |# q: H, e
  632. Mode_Clear    = $FC    ;行清除+ ~5 ]2 B& y2 u2 T, h& V8 x& k
  633. Mode_CntLine  = $FB    ;行计数写入5 b8 G' I! @: o- J
  634. Flag_Over     = $FF    ;行结束标志2 T# p/ W7 ?1 R$ J

  635. % C' B) ?6 C- L6 M2 m
  636. ;------------------------------
    - a. a' N5 Q" ?  i* U- d
  637. ;PPU处理
      z$ C& ~, l4 {6 `; \0 E
  638. PPU_Proc
    . g0 o$ g/ Y! j) S
  639. LDX PPU_Cur! `; j! y' h* u) V' _. S
  640. LDA #$00) Y* s) ^/ p5 u
  641. STA PPU_Cur) Z. ~" b  L9 w4 T( ~6 K
  642. STA PPU_Addr,X
      F  }; T3 g. Z5 ~
  643. LDA PPU_Addr! H! [4 l9 Y, D# N  Q3 h* D
  644. BNE PPU_Proc_Beg
    * X! R5 q; @( O6 r- X
  645. PPU_Proc_Ret( f2 ~3 D/ a7 i9 s# a
  646. RTS
    6 C, }5 n4 G5 I* {
  647. ;------------------------------/ G- s" y5 R! m5 @& f
  648. PPU_Proc_Beg  ;处理开始* ]; i) q2 E  C4 R7 I. a# |
  649. LDX #$00
    8 U7 {# U+ M1 D# s
  650. STX PPU_MASK& F: O3 W" n4 }/ o
  651. ;------------------------------
    / ^+ j; ~( b  Z
  652. PPU_Mode_Select  ;模式选择
    7 o0 g  N, Q; B/ v" q' D, }9 o
  653. LDA PPU_Addr,X
    $ |/ E% Q0 M( h. f! S' {, |
  654. CMP #Mode_Line
    + Y; {1 ^2 R) m( W0 V# X+ y* n
  655. BEQ PPU_Mode_Newline
    ( |- |" Q( u' h+ d
  656. CMP #Mode_Return
    2 y% G$ r' E' H. l" W; B/ w6 V
  657. BEQ PPU_Mode_Return
      E% D4 r1 @9 b% E
  658. CMP #Mode_Clear
    ) ]! u1 U6 |# A0 C/ g
  659. BEQ PPU_Proc_Clear
    - E# {9 t& t5 `8 Z
  660. CMP #Mode_CntLine
    1 G7 d( |, \) S1 |% n6 W; m% t. W$ ?
  661. BEQ PPU_Proc_Cnt_Line
    9 }8 _( k( P4 _1 T$ k
  662. RTS) r* ?% p6 ?) t1 D
  663. ;------------------------------
    - T& U6 t  ?- i& ~$ i* G8 `5 P
  664. PPU_Mode_Return  ;转下行模式5 Q# h+ ~7 Z7 k8 \; t; B
  665. LDA PPU_Addr_L
    7 \0 z9 T, m  |" u
  666. CLC
    & X- c, m; ~. {1 |* D0 ~/ e, h
  667. ADC #$20
    / D( W8 i/ Q0 N. R. t
  668. STA PPU_Addr_L
    5 [; T- O# c, ^" W! S1 N5 Y' N- M
  669. BCC PPU_Return_End9 o& i+ d( s4 q" _
  670. INC PPU_Addr_H. g5 M  `8 n9 c& R3 ]* D
  671. PPU_Return_End
    $ z0 ]4 m1 Q7 [/ v4 b0 V! ?
  672. JMP PPU_Set_Increaser
    ( Y9 [# _. B5 I* ]( Z8 H" @" L
  673. ;------------------------------  I% l: s6 H' c% g8 H
  674. PPU_Mode_Newline  ;新起行模式
    2 r/ z7 W% d) z7 x. t: Y& K2 v6 Z
  675. INX
    0 v2 V9 `( H6 t" N2 R6 s
  676. LDA PPU_Addr,X
    5 G- Z7 K9 d6 H$ [
  677. STA PPU_Addr_H
    & ]6 h# C3 @0 @
  678. INX6 C8 e) m2 K7 W. _
  679. LDA PPU_Addr,X
    9 w# f  [8 B6 T" p. I! x
  680. STA PPU_Addr_L
    9 _, z% h: V. S9 @5 b0 u
  681. ;------------------------------
    " r# c( r$ R7 X
  682. PPU_Set_Increaser   ;设置写入地址
    , L  |; q- _" s9 b% r8 ?
  683. LDA PPU_Addr_H3 M/ i/ p1 T, j9 A6 e" o6 l7 i% A% R
  684. STA PPU_ADDRESS. }2 ^- M# m! l1 A( o  o- u- ?; n
  685. LDA PPU_Addr_L; v0 a. a; z# J6 N! `
  686. STA PPU_ADDRESS
    * U2 v7 F! f0 X- F+ u
  687. ;------------------------------
    : k4 [/ ]* y( Q! j+ w
  688. PPU_Write   ;写入数据% ]9 f; b6 Z+ o
  689. INX
    : B. _3 v" s2 ^+ I  V
  690. LDA PPU_Addr,X1 _/ q5 `6 m8 V! i
  691. CMP #Flag_Over
    3 m" |( b8 B  x  Q- {9 c1 I
  692. BEQ PPU_Proc_End
    + h8 d: t3 B, o
  693. STA PPU_DATA
    3 b/ ^' K! ?4 F- u; [( R4 c4 R4 A* ~
  694. JMP PPU_Write
    $ Y6 V; N+ K( W3 A
  695. ;------------------------------
    . w# P7 x3 [* Z7 E
  696. PPU_Proc_End  ;单行写入结束7 D4 K+ P8 S& r3 |9 ^. H
  697. INX
    5 R' ?: ?# _; e% m6 q! M, b" |
  698. LDA PPU_Addr,X
    0 ^) j1 T9 @2 C' n) }6 x) z  C/ p; z
  699. BNE PPU_Mode_Select5 N; O. ?3 h! V& L3 f5 G1 S5 L5 m( f
  700. STA PPU_Addr. u: [8 \+ S$ M- S/ @. b5 l# C
  701. JSR Update_Palette_Color4 W. ?# Z. U+ L
  702. LDA #$00
    4 |0 w* k! q& m
  703. STA PPU_ADDRESS
    6 `2 W# S' d2 O6 B& O9 t
  704. STA PPU_ADDRESS
    ' C% P1 I. q- A4 f; |
  705. STA Show_Track_Name# Q* }) l4 W) [# {/ e, l
  706. LDA #Scroll_X6 ~/ U. F& |+ h: {
  707. STA PPU_SCROLL; C% i  Y5 l0 m
  708. LDA #Scroll_Y5 H, w3 R) A. W& l1 a
  709. STA PPU_SCROLL$ S% V) R' [: z8 r  ~$ v: x
  710. LDA Screen_State
    0 I& Y# P+ D% c" Q
  711. STA PPU_MASK; q" ^' e. x& F& V' X& T
  712. RTS. l$ Q* R5 P5 z6 B. a
  713. / R$ p9 b7 o4 ~- q9 A4 m' b
  714. PPU_Proc_Clear
    . X# D- Q: S* q: Y6 g9 L0 T
  715. INX
    1 s* C" _* e$ x1 a8 S0 L$ b
  716. LDA PPU_Addr,X  h2 b; b% f2 x( @5 n% u( w
  717. STA PPU_ADDRESS
    9 L" ~( r/ W; U& Y
  718. INX; k6 K0 z0 V3 z8 E2 |% Y
  719. LDA PPU_Addr,X
    0 \* o" G5 ?1 E( u
  720. STA PPU_ADDRESS
    * Q/ B7 L2 _2 z5 x: p* c
  721. INX
    ( Z; `- ?8 S! q  E
  722. LDY PPU_Addr,X/ L- p0 X3 H; t4 j+ n
  723. LDA #$00
    # C4 ~$ I! H6 P
  724. PPU_Proc_Clear_Write
    ; F. p7 i0 Y) h, Y! L; z& {
  725. STA PPU_DATA
    - N/ k' u  _8 u0 ?
  726. DEY  f/ w* C: N: L# A* A# @. \7 b
  727. BNE PPU_Proc_Clear_Write- B8 r) Y' I0 j6 R$ I4 E
  728. JMP PPU_Proc_End
    ( I7 D7 b/ F  N- |; g5 d, k- t4 j5 k

  729. ! g; M5 Q& E# t) d' c! @: |$ G& \
  730. PPU_Proc_Cnt_Line
    7 F3 w7 e- _% p% n  j1 y
  731. INX3 w' `1 u+ I$ n% x
  732. LDA PPU_Addr,X
    1 |! Z2 B! A- E( b3 B8 U( u/ {
  733. STA PPU_ADDRESS) ?  w- w* x* T6 T  V
  734. INX+ l, L6 I/ x" u2 Y+ w; c  }1 f
  735. LDA PPU_Addr,X
    & ~$ S) t6 j- B- j
  736. STA PPU_ADDRESS" [" e8 j% c$ N
  737. INX/ R) o, g( e2 h6 b
  738. LDY PPU_Addr,X8 h9 g5 m2 Q- E& L
  739. PPU_Proc_Cnt_Line_Write5 u% i  F% `& |# o9 W$ D4 u
  740. INX
    ) ]4 B+ q2 D4 f8 t
  741. LDA PPU_Addr,X
    % e) r; b9 H3 K% M8 C
  742. STA PPU_DATA& z( v  o% ~  D, H; ]
  743. DEY' j; P! |/ o$ {
  744. BNE PPU_Proc_Cnt_Line_Write
    - T% a7 z3 H. n; `
  745. JMP PPU_Proc_End) t6 f( \8 _" Z

  746. " @8 }! m3 a; K3 o
  747. ;==============================
    / S# J6 E+ U. N$ ~" u1 v
  748. HEX_To_Dec;十六进制转十进制
    + k! r6 o- ?: _/ T% O: ]4 Y5 r
  749. STA HEX_Data4 I+ z: {4 Z4 D" u+ _" o3 Z5 Y
  750. PHA
      v! N. K6 z$ D
  751. TXA
    , j0 ]( d7 X# S* `* W
  752. PHA5 V7 v! x' [6 Y! g' E* j
  753. LDX #$00  G9 K7 m& W. p8 h; y: H, X
  754. LDA #$00
    / B  ^0 e7 _) I  s7 k* B! k
  755. HEX_Cln" g! ]" r" U5 H
  756. STA DEC_H,X
    : @8 Z, ?3 T) c. f
  757. INX
    ( ?) F3 b% k# u* j" b
  758. CPX #$03& ^* x3 [; C8 c* u4 |
  759. BCC HEX_Cln4 w( ~4 h8 u- |
  760. LDA HEX_Data
    , f& H% W& @5 E- G- w% M- q
  761. ;------------------------------. x( `9 r" k% n3 {% w" g3 O9 T
  762. HEX_100# V0 V- Q, w2 w
  763. CMP #100# B/ [# i3 |7 Y( L0 p/ w, O1 K6 M. e
  764. BCC HEX_10
    ( Z/ y7 O; g3 ^0 Y0 \$ |  F) j
  765. SEC
    5 t( E  ~6 p) S% ]
  766. SBC #100  c- B$ f. B8 r$ I
  767. INC DEC_H0 P9 [- x0 t+ _) u+ q- D
  768. BNE HEX_1000 I. v0 k- H9 O7 d5 W
  769. ;------------------------------
    5 N8 [6 S( n9 D
  770. HEX_10
    " A' x/ f( E' `& H5 @  @, h
  771. CMP #10$ ], n8 M# Y; p2 B: ]' Q
  772. BCC HEX_1( g8 U* ?% j9 o6 s3 q3 e& J
  773. SEC6 x: f1 ]; ^" |' _2 Y' f
  774. SBC #10& e  p3 g0 B3 M: g) X
  775. INC DEC_T
    : d4 @7 Y# m6 _9 x3 @: j/ J. H& M
  776. BNE HEX_10
    0 w2 I* ~9 W1 z, M" ^* `
  777. ;------------------------------
    0 F/ ~0 c" i" `
  778. HEX_1
    * N# e( A  M' a4 L+ h8 y' M
  779. STA DEC_L# q9 V* z# {- \( j- I0 R% V& l
  780. PLA
    - P3 D% @0 @  x7 l# f! T, L. f
  781. TAX
    9 ^( K) y$ ^% Q! Y2 h
  782. PLA8 q) Z$ u4 D* c, t" i7 [
  783. RTS- l% g  c/ g+ i

  784. 1 _9 G3 a# \' @; U! ^# a7 I. V
  785. ;==============================' }2 ^; ~* k0 x) q
  786. ;音乐曲目显示
    ' t' B3 \9 @  h
  787. Music_Show
    0 S2 k" }: w$ s3 G6 P3 }
  788. LDA Music_Cur, Q, Z3 _: s: h' w' {  n6 I
  789. CLC* D- w0 a5 a' q
  790. ADC #$01
    4 B4 b$ f% I+ `7 X. G- E' A
  791. JSR HEX_To_Dec
    - P1 U. y5 K2 P1 C
  792. LDX PPU_Cur
    3 d" k8 f0 f: s7 x+ \2 S: F
  793. LDA #$FD
    5 Z( S) p' w0 Z2 \* f7 r
  794. STA PPU_Addr,X+ O6 o4 Z* F( q( h6 E
  795. INX
    ! P' |% v4 Z2 H& T* k
  796. LDA #HIGH(Play_Index_Pos)
    5 O) c/ c; P$ i" S- h' i
  797. STA PPU_Addr,X
    & z6 a5 }, d; ?: }1 O3 Z) d  W/ H4 }
  798. INX, j! Y( m9 u; j9 f6 s. g
  799. LDA #LOW(Play_Index_Pos)/ H% `' p+ \  R( E4 Y
  800. STA PPU_Addr,X
    + c. i$ ?- U: f$ E4 f1 I
  801. INX1 I# M; ?& }" R% n$ z- f$ `
  802. 8 v  `9 \% i1 n1 p
  803. .IF Music_Song_Total > 99* X) H' ~4 F: k% b  v$ b
  804. LDA DEC_H
    * L/ }* ~! K) ^- J/ R7 K
  805. ORA #$30
    0 o& Z6 {7 w% g8 g+ z
  806. STA PPU_Addr,X. Q6 M& I$ L) p9 n9 q
  807. INX
    6 {8 \0 n8 D. R  O" \
  808. .ENDIF0 Q# S8 A1 t1 ?# B

  809. , H1 l; I0 a$ D, c7 W/ I
  810. .IF Music_Song_Total > 99 i- @. G5 k% N) d; Z' F! J
  811. LDA DEC_T' _& j6 _' c$ e  Y
  812. ORA #$30
      t  @! r5 A( l9 x0 D
  813. STA PPU_Addr,X
    3 D4 T" F; T. }" @* B( x1 J8 r4 f
  814. INX; E- V+ O; }/ a0 ~
  815. .ENDIF. [) `3 _* A) r3 d8 s0 E* v
  816. 4 b0 U# N! S( @% r! Q* \* I, V
  817. LDA DEC_L
    3 D& P8 Z, Z$ {4 |4 ]
  818. ORA #$30: n, ^& V( D. i9 o. ^, _* L7 c: y" s
  819. STA PPU_Addr,X
    : y* l, n; Q7 _! @4 F# n6 U, w
  820. INX
    . I) d8 v9 p8 N# I2 J* i9 Y

  821. ) O0 w2 v; c4 t2 g
  822. LDA #'/'" `1 O  t& a3 D3 ]! K% t( l/ R
  823. STA PPU_Addr,X
    ( W8 Q7 Q# ~! g$ K! h: G  }* e  V
  824. INX$ _( ]1 J4 e& o: g* n, S
  825. Music_Show_Total
    ( X% m* I4 n( a* r! b+ x+ D. L
  826. LDA #Music_Song_Total- x8 N4 o3 i9 y( r" K
  827. JSR HEX_To_Dec
      }( U5 r7 c1 R9 f1 A' A, q- Q8 a! L

  828. - `( R% p5 @  I
  829. .IF Music_Song_Total > 99
    6 g, F# r/ q/ \* O0 j4 ?
  830. LDA DEC_H
    9 }9 e8 m+ _# D: C9 \  a" Q2 }% H
  831. ORA #$30
    : M6 ^! v& n. R) S- O
  832. STA PPU_Addr,X* o$ T- L4 q5 |0 U' v
  833. INX
    1 Y3 ^  F' k) U" {- N
  834. .ENDIF! k8 b7 w+ [0 `& Z0 a

  835. : {: l) C4 @* g
  836. .IF Music_Song_Total > 9+ b& p4 T0 v* F8 j( P% S- D
  837. LDA DEC_T
    " l3 L0 w4 v8 q$ i8 m
  838. ORA #$30
      k% W/ F. y! c6 \  n. b0 |0 ]* R
  839. STA PPU_Addr,X
    ! {& s1 n' B, \' Z
  840. INX
    % b6 K7 y: ^) W: f* _
  841. .ENDIF& {3 j2 M; w# o! m' M
  842. 9 M& \5 h- T* {& p; A
  843. LDA DEC_L
    # w$ M  c. j8 x! j; B3 r
  844. ORA #$30( z* o; r8 O; d6 o8 C5 S* I
  845. STA PPU_Addr,X6 K. T4 p; c$ }4 d( @
  846. INX! _4 l$ c0 u4 T$ `- Y- h
  847.   X' |5 _" Z* B& U% H4 @  P4 {' f
  848. JSR PPU_End
    ( g. h  j/ }& b3 ]" D
  849. Music_Show_End; A2 q# n* B+ R
  850. RTS
    * u0 [' l* L9 s# i; H& S3 C' `( O
  851. ! d& _2 W0 B7 b1 @
  852. ;==============================( D0 d, \5 b+ h1 B# y! @
  853. Time_Show;播放时间显示
    & u" X* w! U  ]( T! y! I; E
  854. JSR PPU_Addr_Set
    9 e9 |1 C; V" O
  855. LDA #HIGH(Play_Time_Pos)
    8 ^! V7 B; `! R2 d2 {: O: D7 C
  856. STA PPU_Addr,X( R# H+ \6 D/ h$ R
  857. INX6 @+ e9 e1 r" S) V# t
  858. LDA #LOW(Play_Time_Pos)
    * g( H+ p- y% S/ [
  859. STA PPU_Addr,X* B2 i8 e  N# G! U/ F
  860. INX
    , V6 y3 l: H/ E! O& s
  861. Time_Show_H1 B/ G& T( Q! ^/ y
  862. LDA Time_H, \9 E  q  c5 p# y+ \; ?" J
  863. JSR HEX_To_Dec- I: ^! v- u) t0 U; Q$ d
  864. JSR Time_Digit$ F; l' z, B; m0 b6 ^" J1 b+ Y( J
  865. LDA #':'
    3 E+ _2 S6 C4 T3 X/ a
  866. STA PPU_Addr,X
    5 v& z5 \: M2 [
  867. INX
    4 _/ W* Z0 z" \  a! E1 B. g
  868. Time_Show_M4 [% g" _% ~# L+ W4 l& J# m
  869. LDA Time_M) j8 @' e( n8 J8 ], s# @6 h
  870. JSR HEX_To_Dec
      N  C8 j/ x2 o5 B- T( i$ q
  871. JSR Time_Digit  G, Y  x( d* Z5 |* \! @8 b9 ?
  872. LDA #':'
    # j( I# x$ `  F. F
  873. STA PPU_Addr,X9 n& x' f1 j$ W1 V- r2 |- }* b
  874. INX5 C" x) q, v+ l
  875. Time_Show_S
    5 g5 Y, A; z4 q
  876. LDA Time_S
    4 r# W1 d0 ~& \8 H6 z0 C
  877. JSR HEX_To_Dec
    9 w1 M; L/ j/ `
  878. JSR Time_Digit4 K8 b4 l9 I- W" |
  879. JSR PPU_End
    1 ]! _' w1 N& F4 W& e6 D/ L
  880. Time_Show_End# z7 `$ K: }- z# P! Y- J
  881. RTS
    1 H2 `7 v8 c8 L% l
  882. . a4 l" Y$ T7 F
  883. Time_Digit) x  m4 i% V; X; K7 E5 m" }4 e' E
  884. LDA DEC_T8 q5 C# c* x( W/ N) O
  885. ORA #$30, E* Z( n$ a2 c, P* p8 I% r
  886. STA PPU_Addr,X
    ( F9 M( L% ]# O. K' i6 M4 P
  887. INX6 v2 V; {5 t) W; u7 e
  888. LDA DEC_L, x; U! {. N( \  G
  889. ORA #$30
    ) D) W9 X% P& [
  890. STA PPU_Addr,X3 o$ i8 d3 C) O( d
  891. INX
    6 Z- z! t' l9 n, ~
  892. RTS$ b" f* g5 L  L5 o) B
  893. % B# G# @, C7 Q3 A$ W2 \
  894. ;==============================" m# j7 W+ D; R
  895. Time_Count;计时5 G0 z4 o  ^& ^
  896. LDA Music_State& R2 S! M7 G( w: l
  897. ORA Time_Wait_Cnt
    # I: R+ y( J2 _. t3 i
  898. BNE Time_Count_End+ X9 T, u; h* Y
  899. INC Time_Cnt
    ( S+ S9 v. O7 |0 w' F$ k9 N
  900. LDA Time_Cnt  m6 I/ X5 H3 L( Z8 V
  901. CMP #60
    $ d( M% ~1 }$ R# _" _% _
  902. BCC Time_Count_End
    ( F2 {( f4 J3 \) F) N
  903. LDA #00
    6 O7 b) J. L( P1 @) G) j
  904. STA Time_Cnt: F# D7 e6 T5 O; B( H
  905. INC Time_S5 X! D% y7 n/ x6 }+ l/ }- W
  906. 1 U+ r3 S+ Z0 }# d! c/ [) S4 C3 H
  907. Time_S_Cnt; s& H7 a% W5 o3 T
  908. LDA Time_S
    : y3 J9 F7 d/ C
  909. CMP #60
    0 p. @" D2 X. C, ?) E4 E2 o+ |
  910. BCC Time_Count_End+ R4 e+ m" o+ U( K8 Q7 {
  911. LDA #00/ ^5 {' O3 N: v3 ?
  912. STA Time_S
    7 |* m+ c! \& V3 _5 e9 T1 v
  913. INC Time_M
    $ H* I, w. Q6 b- p: p; \
  914. 3 U$ G4 {1 K- U1 w% T
  915. Time_M_Cnt. [, f4 ~0 v$ c# \- X: y, ^7 ~9 j$ |
  916. LDA Time_M; R( l5 }/ s# I5 }, y8 e3 w2 E7 S; j
  917. CMP #605 c2 v" t: n2 q
  918. BCC Time_Count_End$ G3 A/ p# k, W  `; ^
  919. LDA #00) r- M6 q4 o' Q$ C
  920. STA Time_M3 j' t5 l) A& v6 _( E
  921. INC Time_H
    8 v+ b$ j" C2 L* R" D
  922.   M$ G: s6 N. s1 E# _
  923. Time_H_Cnt
    8 C7 M1 X* q) j4 d' Y; O& c1 M1 V0 K
  924. LDA Time_H
    3 Y+ D- Q) J' ?! y$ e, ]% I3 ]
  925. CMP #24% s: R9 A9 ?1 Y. P1 f+ z" x
  926. BCC Time_Count_End+ O) K  s4 D' F9 n
  927. LDA #00& p2 `) i( _& O
  928. STA Time_H
    " L  E& d9 P& Q4 V% T: W+ F

  929. % z4 M1 o, g& W9 D
  930. Time_Count_End+ c- Q+ z$ @/ P. b
  931. RTS6 |  l% n+ q' U
  932. % P" I. S' {( D& D7 ?- {6 }
  933. ;==============================4 B3 O) i3 x; m2 |4 \
  934. Time_ReSet;播放时间重置
    / b' x5 @% |5 D: m- R
  935. LDA #$002 E- M. s; A, ?' }6 R! i
  936. STA Time_S
    ; G' k, k" l" P  ]8 O9 _
  937. STA Time_M / D3 v: \4 h* u1 }
  938. STA Time_H
    ! w: h& C$ g) ?4 A( k9 \# U5 j
  939. STA Time_Cnt. k. P" |# l; ^7 a4 |0 p( `
  940. RTS/ K. P8 I- V; `( k) O" P7 ^

  941. : l/ k8 P/ P& W  N
  942. ;==============================! [, F6 C4 J. R/ m# P) s
  943. Music_Bar_ReSet;音乐条重置# v4 B7 S9 d8 o( N# n" V9 o) H
  944. LDA #$00
    / K8 ?: S7 m, `$ }' X* ?1 N
  945. LDX #$00
    * l/ b% E/ O! V- d8 I5 C0 K
  946. Music_Bar_ReSet_Set) q3 j1 H% m7 i
  947. STA Sound_Bar,X* H7 {) z8 O' g4 k) L* V
  948. INX
    + ]# s  Z  y& t4 K) [9 c
  949. CPX #$10: e+ D. `2 L) D  l
  950. BCC Music_Bar_ReSet_Set
    4 ?2 e; h" _% ~: S; o) |  m9 A
  951. RTS) W0 R/ |7 x9 K; [$ o" @
  952. ) R( ^% T6 M: S1 h' f6 e
  953. ;==============================
    ; r  X5 G0 T+ y8 \
  954. PPU_Data;PPU数据写入" E- N; Y8 Z6 `4 ]+ R1 m$ @/ v
  955. STY Data_L) y$ t8 N1 C2 {5 k
  956. STX Data_H6 X% v+ @$ l* j* o' Z
  957. LDY #$FF
    * a7 t$ b: Q# E6 D0 g+ j* B0 M) @
  958. LDX PPU_Cur
    * l9 ]1 L) ?4 P3 l+ [. r
  959. DEX
    3 p5 p2 z& I' R6 b9 _7 O
  960. PPU_Data_Beg& B. ?0 U7 @/ v8 J% x
  961. INX
    . a) R* F& v3 j) A, H0 `) D  M
  962. INY) g' i1 u* c* v+ s, w# }0 P! f
  963. LDA [Data_L],Y
    $ V( l! [% S; j- l' O, t& e
  964. STA PPU_Addr,X
    ) h8 e, T) \, A" S( V% A
  965. BNE PPU_Data_Beg$ j% U5 d9 C/ |3 g4 L  ]* n
  966. STX PPU_Cur3 @. g8 ?$ d6 `
  967. PPU_Data_End$ p1 m5 r- K! g
  968. RTS- M  c8 Q  z- C

  969. ! ]' u+ m/ a# J- A3 ?* D% ~
  970. ;==============================
    9 p2 V  [1 c- y6 [
  971. Music_Stata_Show;播放状态显示( T3 D4 w  p& ?) [2 G) q5 h
  972. LDA Music_State) w: z% y$ ~# _7 N8 Z0 z
  973. BEQ Music_Stata_Show_Play
    4 m1 r" H" s) Q
  974. Music_Stata_Show_Stop
    # K; e2 d5 l& s& ?: q
  975. LDY #LOW(Music_State_Stop)
    - w' g! K8 {! c
  976. LDX #HIGH(Music_State_Stop)
    5 w# m9 m8 x6 z( _/ {9 [
  977. JSR PPU_Data
    ) x- N/ m6 L* d* A8 w$ F
  978. RTS) M' X" a9 _  Z! Z
  979. Music_Stata_Show_Play
    ; n0 q0 ~  u! n. J; c1 v/ S! o
  980. LDY #LOW(Music_State_Play)
    * o1 g" Y; A) r# B1 C  {. Z# v
  981. LDX #HIGH(Music_State_Play)" ^# w$ P4 }& n1 e3 F( Q
  982. JSR PPU_Data5 X- o; K+ P% G( y* _
  983. RTS. t4 `0 N2 V( C8 @8 T

  984. 5 h( }$ p" @1 ~
  985. .IF SOUND_BAR_SHOW_ENABLE
    % r  D5 X+ j) t9 @4 y! L
  986. ;==============================5 m( X+ f8 i# Z, F
  987. Sound_Bar_Text_Set;标题与音乐条初始化8 @0 N! P' }- N2 }
  988. LDY #LOW(Sound_Bar_Text_Data)% ]3 n: ~8 O1 V+ m1 p$ M
  989. LDX #HIGH(Sound_Bar_Text_Data)! t0 d, ~. ]! r6 n( Z7 b, f6 J
  990. JSR PPU_Data
    . A* B, L$ B" M/ t/ p
  991. RTS
    ! u. e* k6 s$ T. c/ a: f

  992. " P/ B3 _! y/ |/ Q  @' t
  993. .ENDIF  _8 \2 Q; q( i( V9 A7 e7 }
  994. 8 v4 k* f% s  u. ^4 A5 ?
  995. ;==============================3 C  d& I! d0 _& D
  996. Set_NameTable_Attributes;设置命名表属性- }5 h5 `8 t( Y
  997. LDA PPU_STATUS2 f# `1 D+ K7 M4 b& b
  998. LDA #$23
    : b; [, D4 M0 m3 [
  999. STA PPU_ADDRESS
    1 p3 {" r. m# D* j( v
  1000. LDA #$C0# b. N( B4 b; T( B6 [$ e
  1001. STA PPU_ADDRESS
    5 C3 M" [7 g6 z2 @  s$ D
  1002. LDX #$00
    5 [" D# H" }- G8 C1 N4 Y7 u+ x
  1003. Set_NameTable_Attributes_Write
    / W4 y2 H) i* [# w
  1004. LDA Palette_Attributes,X' F8 J* B4 R) s6 v' ?2 P
  1005. STA PPU_DATA4 c& v4 o' E" n/ `. D+ S
  1006. INX
    & A! i8 x0 m# n
  1007. CPX #$40" R; K, n& N% A- A, B+ H* i  s3 v
  1008. BCC Set_NameTable_Attributes_Write
    . e/ o; G2 A& x# Z1 Z* h& z6 I
  1009. RTS
    ) s: {  ~. L% x7 k) p# U, t# `
  1010. " s8 |6 I" D. Q% l
  1011. ;==============================
    ! t  J2 p5 U, Z+ d- c& O
  1012. Set_Palette_Color;设置调色板数据
    5 t8 l4 z4 i8 k
  1013. LDA PPU_STATUS
    ) t2 z" t5 f2 I7 {; A+ l
  1014. LDA #$3F6 Z. K0 d6 ?5 q# E/ y. o4 b
  1015. STA PPU_ADDRESS
    ( E) K$ x  {. j8 c8 \! n. w
  1016. LDA #$00
    % W& z/ _( |6 e
  1017. STA PPU_ADDRESS
    " e) V4 t  W/ _8 K% U1 Z5 |
  1018. LDX #$003 k; g) F+ l. E4 M
  1019. Set_Palette_Color_Write
    / S' m5 R% s+ z7 a, N
  1020. LDA Palette_Data,X* w+ B! [4 U; ]
  1021. STA PPU_DATA: H  j1 J4 f: R# A" s1 G4 n: h# y
  1022. INX
    & G3 z; \9 l- Q/ z5 d' f& ^; f% S
  1023. CPX #$20
    7 I3 Q0 _3 c4 `: E( e
  1024. BCC Set_Palette_Color_Write
    2 ~& f9 @/ {7 Z. J- h
  1025. RTS" F5 |! R; M- i9 o9 t9 a

  1026. * r: Z& p4 w: H/ `
  1027. ;==============================, n' `+ k6 i" H5 Y- J
  1028. Init_Palette_Addr;初始化调色板数据' M* j4 Y  |; n$ Y0 O  N
  1029. LDX #$00
      O3 h8 R! h! s8 _# T; e' w
  1030. Init_Palette_Addr_Write; t+ j4 [+ R4 Y& }) r
  1031. LDA Palette_Data,X8 X! r* u) d: d# v7 a
  1032. STA Palette_Addr,X
    8 C  _4 l& [% c1 o2 K
  1033. INX7 @+ {& [, T+ M6 T* R9 g
  1034. CPX #$20% B8 ]* [6 O2 v" K/ P5 ^
  1035. BCC Init_Palette_Addr_Write
    3 i3 |( n! l6 W1 o' t8 q$ B
  1036. RTS2 Y1 Z; ~& L1 K
  1037. 0 Y$ ~: q0 ]' U4 d8 `9 Z* f
  1038. ;==============================* X2 b4 A; G3 b
  1039. Update_Palette_Color;更新调色板颜色8 `- ]; L/ m/ v: e& H
  1040. LDA Show_Track_Name6 A7 ?0 y9 E& f# `+ T
  1041. BNE Update_Palette_Color_End
    * s) ?4 R" B& X9 y# U) ]7 p
  1042. LDA Palette_Update_Flag
    ' L' P3 C* u1 h# j% l8 ]  B( I
  1043. BEQ Update_Palette_Color_End9 W. b4 ^% \2 K6 u% |
  1044. LDA #$3F
    * M. w- d$ b, V1 J2 A5 O
  1045. STA PPU_ADDRESS
    # D# N1 ]- c; U) o) }+ o4 p
  1046. LDA #$006 v5 |' ^4 e# s" K8 B/ J6 r
  1047. STA PPU_ADDRESS
    3 @  P3 H" i4 V' V3 V; E# B
  1048. LDX #$00! }! R( c& Y  v; [# N
  1049. Update_Palette_Color_Write
    0 E2 x% s& O# S! `0 c
  1050. LDA Palette_Addr,X
    ; J' O+ ~0 J7 M1 _0 O  D9 c, \
  1051. STA PPU_DATA9 {9 i# W0 O) u0 J4 e' v. [1 a
  1052. INX
    8 N4 a' a2 m. Z8 O$ L+ d
  1053. CPX #$20/ C1 _+ N1 [$ V& c6 C" P
  1054. BCC Update_Palette_Color_Write& Z4 G8 n& Z, C
  1055. LDA #$003 G3 l0 Y! q8 ]& Q: V
  1056. STA Palette_Update_Flag2 i5 B! {" E# A& ~/ g4 I% T0 @% q
  1057. Update_Palette_Color_End
    , ~- Z4 y7 ~# v' w# q' P7 a) v, k4 p
  1058. RTS
    " j5 V. U& g9 k# N/ d1 K) O+ X
  1059. $ \% }! P' F: g2 }, S  k" u+ V$ k
  1060. ;==============================# \$ z( x$ J: \0 n
  1061. Update_Palette_Data;更新调色板数据
    * @' F5 \6 c+ o/ o
  1062. LDA Show_Track_Name
    4 W. N' s5 |& s
  1063. BNE Update_Palette_Data_End
    1 g; b; L+ p$ ?2 ]! Z
  1064. LDA Music_State9 i! H+ l3 p% O0 g! |$ M6 I
  1065. BNE Update_Palette_Data_End! s2 ]4 P1 U9 M
  1066. Update_Palette_Data_Check
    3 h0 w/ e* r0 N" k0 F  X0 ~
  1067. LDA Palette_Wait_Cnt7 u, E- i7 I# u) _$ c7 N
  1068. BPL Update_Palette_Data_Check_Over
    2 o  i8 p$ j# H3 {( f3 o/ O. P
  1069. LDA #Palette_Update_Interval
    ( Z; F0 Y0 f# X3 ?
  1070. STA Palette_Wait_Cnt7 A3 F6 Q; }1 B5 r3 F
  1071. Update_Palette_Data_Check_Over
    % t0 r' G' M( B- }& ?
  1072. DEC Palette_Wait_Cnt
    1 g5 \+ }) |- e. D! w
  1073. BNE Update_Palette_Data_End( g; ^" F* w  ?8 x/ h
  1074. INC Palette_Update_Flag9 ]- \& h+ b; a; V7 ^
  1075. LDA #Palette_Update_Interval
    & ~* q, p* l6 Y8 I1 d$ ]
  1076. STA Palette_Wait_Cnt  t5 L2 h9 V6 ]8 N" b: |
  1077. LDA Palette_Update_Addr
    8 B: e% B" \9 _5 ?  A8 w- [* x4 F
  1078. CMP #Palette_Update_Max
    9 C  A+ ]* Z$ a2 d$ B" o& W
  1079. BNE Update_Palette_Data_Set2 x2 O5 S9 X7 ]1 c" }4 B$ z  b
  1080. LDA #Palette_Update_Min - 17 e. I! F' F6 T; ~3 R! |
  1081. STA Palette_Update_Addr
    6 j' ~2 O# h8 x/ \  K8 p; M$ d
  1082. Update_Palette_Data_Set+ \/ B3 ]4 n$ ~* i( d& A
  1083. INC Palette_Update_Addr
    ) b& ~# y$ k9 s4 W0 C- ~
  1084. Update_Palette_Data_End2 `/ z+ Z5 Z4 s! \) X8 ^3 S  o
  1085. RTS
    ) K) n/ m1 ?: M/ g2 e+ {4 E  g8 T

  1086. 5 u7 o  F1 |, F: X3 e  @9 C
  1087. ;==============================
    0 l) ?% d& J$ O$ }- K8 D
  1088. Show_Music_Text;显示静态文本9 f4 h$ r( s. j5 A5 a
  1089. LDX #$00; P& g8 S; j1 j; Z: l, d
  1090. Show_Music_Text_Set
    ; C. F: v! E+ {/ a# `' ]  f) l
  1091. LDA Static_Text_Data,X
    ) y4 e4 y4 S0 p6 |3 C7 b1 J
  1092. STA Data_L
    2 _3 w9 z! a! }' v
  1093. INX: ^; V7 l7 m, h' b( Y6 e3 X
  1094. LDA Static_Text_Data,X
    # f+ j  {- j' B8 \6 W# W
  1095. STA Data_H& S4 t7 m" s! S5 i
  1096. INX
    4 A8 H8 E" P( \' ]8 r+ P
  1097. LDY #$00
    ; x9 X& N$ t! {8 w. ~0 ~3 E, d4 u
  1098. LDA [Data_L],Y# \7 I7 [+ `, y+ n' Q
  1099. STA Data_Cnt, O' m1 a3 P+ ?( Y# Q. i
  1100. DEX
    * K5 Q/ r& Y, c$ Z) `" G, x+ h# m
  1101. DEX, S1 F2 @$ w" e7 ]5 L0 I
  1102. LDA Static_Text_Pos,X
    . n# X2 r- l* w, E/ o2 V# H
  1103. STA PPU_ADDRESS
    * A, W# C7 B' z6 B% |2 h. h
  1104. INX3 G8 ]) |; r* b5 P- x# s' }
  1105. LDA #$20
    6 w# q3 @$ @6 m0 R+ L& @
  1106. SEC
    6 Q3 D0 [; o9 n' ~* {
  1107. SBC Data_Cnt/ f( {$ |# [5 y6 q$ u( ]' D
  1108. LSR A
    , g1 }$ @4 B& ?3 j% Y3 P$ m# a
  1109. STA Data_Buf
    $ f& @4 M+ I! [8 L7 S1 f- Q  l
  1110. LDA Static_Text_Pos,X
    & l; E% r! F: H5 S4 T
  1111. AND #$E0
    $ Z: l  m3 K, D: m; H% V1 E  M& V8 o
  1112. CLC
    9 \' j7 O( @! \# z/ ]% J
  1113. ADC Data_Buf# i% m: m# {% }( a9 A# {3 f
  1114. STA PPU_ADDRESS$ D( X, N( i# ~3 F$ g' R0 X
  1115. INX$ T% y0 [% ~1 N$ u0 F
  1116. Show_Music_Text_Set_Write
    + Z5 k/ |9 J+ F, J5 V4 `
  1117. INY$ v* y; o  u9 B0 d
  1118. LDA [Data_L],Y
    ! l7 e4 p9 W) J5 ?3 z& j+ R
  1119. STA PPU_DATA
    # `( m' N, z- W5 G  u$ h) W
  1120. DEC Data_Cnt# i9 j& T1 E/ L2 v( i
  1121. BNE Show_Music_Text_Set_Write
    # d. |4 e* L  x0 H- r& X
  1122. CPX #Static_Text_Pos_End - Static_Text_Pos$ V9 W- g- z& ]) }+ r
  1123. BCC Show_Music_Text_Set- G$ P) H7 u+ \1 G. j) X2 I
  1124. RTS
    + s3 @' U: G1 t2 J  [$ q

  1125. 6 R/ Y! [* }5 W$ b, `9 h% d7 j, j
  1126. ;==============================4 x7 |* d' P" {( d3 n
  1127. .IF Track_Name_Pos;显示曲目信息. G3 f: m' y8 q
  1128. Show_Track_Info/ H" H  J! U8 |3 d  o( v5 U9 h
  1129. INC Show_Track_Name) f) P+ r2 S# H! t5 i+ V
  1130. Show_Track_Info_Clear& l& r# e. V7 @+ t% i. o7 a
  1131. LDX PPU_Cur
    # `- r9 z# T( b# w2 q
  1132. LDA #Mode_Clear, z- T4 J$ E+ t) m  e9 D! s, K
  1133. STA PPU_Addr,X
    * A3 k* }% C; s5 k/ l& {8 {
  1134. INX
    9 n0 A5 N8 ]% P9 j) ]9 E2 ^. ]

  1135. 9 Y; Q% z1 Y& Q/ [7 e
  1136. LDA Music_Last- t9 e& h- o4 s: e
  1137. JSR Show_Get_Track_Name_Center_Pos, q% {# I- s' C! ~1 f# f* e  d: ^
  1138. Show_Track_Info_Write_Cur4 A0 K) C/ m& C
  1139. LDA #Mode_CntLine5 B, T" Y) _, B1 C4 N
  1140. STA PPU_Addr,X
    ) U3 X  I6 y3 P* E
  1141. INX
    / C, j) W0 W6 q

  1142. 7 q4 p0 R8 i+ U
  1143. LDA Music_Cur' R; f$ l5 A- j1 ?
  1144. JSR Show_Get_Track_Name_Center_Pos2 {; C) K- f( }6 I4 t
  1145. " E4 S, X9 D# [$ y
  1146. Show_Track_Info_Write_Cur_Data
    1 Q7 v1 @5 `6 P0 }# N8 H0 }
  1147. INY
    & i% [9 r, O5 T9 N4 Z" A9 E
  1148. LDA [Data_L],Y
    2 M9 M, c: S' L
  1149. STA PPU_Addr,X
    $ {% {  @) N7 C# z) d) o$ p+ t
  1150. INX
    - Z& B5 D: l0 z# O# s2 O
  1151. DEC Data_Cnt
    8 k6 u5 h1 j" G# H: _% V
  1152. BNE Show_Track_Info_Write_Cur_Data7 n( I  i' ?+ R% c
  1153. Show_Track_Info_End$ |$ f$ Z: Q2 ]* V5 r' O
  1154. STX PPU_Cur7 Y  Q: h# ^+ g  F& {
  1155. RTS- ?$ |( v: J* n; Y; w4 j# q

  1156. + ^5 n. J! s' ~7 f7 u
  1157. ;==============================
    ) J8 Z! V- p" z) y4 ?2 u8 P
  1158. Show_Get_Track_Name_Center_Pos;获取中间位置
    ! P- U' J& }$ t) `5 z& X/ E& \" [
  1159. ASL A
    / ]8 v2 _, J: e8 f3 i
  1160. TAY- B* Y; Q3 r% G. _
  1161. LDA Track_Name_Addr,Y
    * a; U& \. A" N
  1162. STA Data_L
    # u2 l5 o( l$ x* H0 J1 B4 U; Y" D
  1163. INY
    % a2 X( @- `* S$ m- S
  1164. LDA Track_Name_Addr,Y9 i' ~$ T. j. b. P9 }* m* O+ ?
  1165. STA Data_H
    ( E$ w+ l, I3 x0 w- z
  1166. LDY #$00
    / R! T; e  i9 N& J8 G4 N
  1167. LDA [Data_L],Y
    7 a: }& O: l0 I6 c
  1168. STA Data_Cnt+ X; x6 {: R% Q% k
  1169. LDA #$20$ [& G1 V* b! n. f& Q6 Q- a+ O
  1170. SEC
    . P0 J3 k, s7 o$ ?: Z/ N: e; D' ~
  1171. SBC Data_Cnt
    9 M  w" q- P' r1 ^) M
  1172. LSR A
    # x5 ?( z1 O" u2 Q$ E* c
  1173. STA Data_Buf
    : y% u& j, g: L& v' C% z, n2 Y& `
  1174. LDA #HIGH(Track_Name_Pos)
    5 s3 }: f9 t! }* B; b1 w0 y; G  T
  1175. STA PPU_Addr,X5 z$ V9 u& R( q1 u
  1176. INX
    $ X( K0 e* a4 j
  1177. LDA #LOW(Track_Name_Pos)
    8 W1 Z- I8 k& E! X3 Z+ t& Z& ~
  1178. AND #$E0
    " j  h* V% Y; a2 O( |: n
  1179. CLC
    3 R& Y+ g- X7 g2 {3 n
  1180. ADC Data_Buf' g3 `. w3 g& l% h' ~# A
  1181. STA PPU_Addr,X
    ) v. H- y) R( ?% j8 @! u* E* I
  1182. INX/ U* x2 ~! q: |! X. v
  1183. LDA Data_Cnt
    9 e9 P. T& f3 D
  1184. STA PPU_Addr,X0 M. [% L$ a: Z! H" U9 x
  1185. INX8 P1 G; g0 W' F$ E
  1186. Show_Get_Pos_Center_End1 x8 F4 e' g3 w/ i5 D
  1187. RTS
    5 F3 m; W" i  I% [  o$ `; J: x( L: l
  1188. .ENDIF. W8 D( J2 t+ j
  1189. 4 y$ l' C& @$ |' B( o
  1190. ;------------------------------
    % A6 s$ v. z$ ^0 O$ J1 ~
  1191. ;命名表数据* y4 E& \5 Y9 a3 ?
  1192. Palette_Attributes
    ) B! v! x/ B" \8 M. S! _4 @
  1193. .IF SOUND_BAR_SHOW_ENABLE5 y: F0 u, J7 g1 m
  1194. .DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$007 H- r) g: n" g1 f3 B( w  {/ A3 X
  1195. .DB $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$FF,$FF,$FF,$FF,$BB,$AA,$AA,$AA/ a( m3 [7 p# }1 V2 A$ i' i, T
  1196. .DB $0F,$0F,$0F,$0F,$0B,$0A,$0A,$0A,$55,$55,$55,$55,$55,$55,$55,$55
    , k! K' m) i, L, Y* j3 ~( \/ r( N
  1197. .DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55/ L( Y+ d- O$ a4 }+ z; s4 J" m
  1198. .ELSE9 K( d" g2 n# K0 f
  1199. .DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
    : J( a& H- _9 A: Q
  1200. .DB $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF$ Z9 d9 p; @* }
  1201. .DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$55,$55,$55,$55,$55,$55,$55,$55; D/ ^/ N' P1 o- s9 G& [
  1202. .DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
    8 N. p3 w; S0 ]3 a$ p+ E
  1203. .ENDIF
    ! d4 B* Z' H& U; r) i& ?

  1204. % P; f1 h3 g6 D* R' u$ C) K
  1205. ;------------------------------
    + D4 L; D5 u1 @
  1206. ;调色板数据
    9 S+ C: m5 M" [6 i: v
  1207. Palette_Data
    & ^$ u' y5 p& f6 u
  1208. .DB $0F,$27,$20,$0F,$0F,$24,$20,$0F,$0F,$21,$20,$0F,$0F,$25,$20,$0F! U/ I7 `0 f! t2 F' y
  1209. .DB $0F,$24,$20,$0F,$0F,$24,$20,$0F,$0F,$24,$20,$0F,$0F,$24,$20,$0F! X) r, x$ q  N" y

  1210. + l* Q: C3 F4 i% @
  1211. ;------------------------------8 e- _) k; z* P/ _9 o  q2 X
  1212. Static_Text_Data
    3 M6 h3 e4 P$ I  a6 G8 C& }3 C( N0 Y
  1213. .WORD Static_Text_Title_Data  ]1 M& W) n9 b  M+ I
  1214. .WORD Static_Text_Author_Data
    3 f* J( v9 u/ w7 ?+ _+ h5 T
  1215. .WORD Static_Text_Date_Data
    ; {0 o  N; ~9 F/ N
  1216. Static_Text_Data_End% \  S% @1 D1 ?9 x
  1217. ) {- m8 a- x, D8 M9 }1 @2 {" `& [
  1218. ;------------------------------1 S% v/ Q+ y  ^! Z
  1219. Static_Text_Pos- N, I- g7 W( n5 ]
  1220. .DB HIGH(Title_Text_Pos),LOW(Title_Text_Pos)  g' H. e* Z6 i$ l
  1221. .DB HIGH(Author_Info_Pos),LOW(Author_Info_Pos)
    7 j" `. q: X: e* c
  1222. .DB HIGH(Date_Info_Pos),LOW(Date_Info_Pos)+ ?2 i- }  |" Z2 e& \0 s- U
  1223. Static_Text_Pos_End: W" ~" P7 \7 b4 \. R) X

  1224. + d6 h  d9 S* Z( g: C
  1225. ;------------------------------
    % g* f+ @( H0 M) b" |
  1226. Music_State_Stop) A8 d7 _& H4 F6 t+ M, N
  1227. .IF SOUND_BAR_SHOW_ENABLE# \% }+ {% `( v3 ^% M6 Y
  1228. .DB $FD,HIGH(Play_State_Pos),LOW(Play_State_Pos),"STOPED ",$FF,$00" S3 P5 K, W3 U- ]9 r* L
  1229. ELSE- s" D6 _( N* l, s: o& N$ f) w
  1230. .DB $FD,HIGH(Play_State_Pos),LOW(Play_State_Pos)," STOPED",$FF,$00, g' _- x2 ~0 l9 P! z' a+ Q! x: D
  1231. .ENDIF* A6 y6 p5 k3 j. l! y* f) _
  1232. Music_State_Play
    7 y' `6 u1 `; G" {; y* x. U
  1233. .DB $FD,HIGH(Play_State_Pos),LOW(Play_State_Pos),"PLAYING",$FF,$00) F- ^! X+ H7 _7 M
  1234. ! K' B; ~0 n( P' _2 L6 k& h
  1235. ;------------------------------+ R- m# ]  C& M# g, O
  1236. Sound_Bar_Text_Data;声音类型文本) m. |; ~' D. h2 K9 p
  1237. .DB $FD,HIGH(Sound_Track_Pos),LOW(Sound_Track_Pos)  U) p5 f( ^8 |( ~
  1238. .DB "SQ1-",$FF7 t. n" P3 z, k6 Z, k7 |
  1239. .DB $FE,"SQ2-",$FF
    ! L# y* {' `1 T
  1240. .DB $FE,"TRI-",$FF
    8 Q3 ~8 ~  A7 [4 P
  1241. .DB $FE,"NOI-",$FF; e8 V5 l$ a- V$ p9 T
  1242. .DB $FE,"DMC-",$FF,$00
    $ q; Y6 y+ E9 ]3 B- l/ G5 {
  1243. 4 O8 @* u5 E- q8 W4 u( Y2 W
  1244. .IF Track_Name_Pos
    / Q: [2 T" k6 @2 o1 {1 n' E/ N- K
  1245. ;------------------------------4 J6 I7 x0 }' E2 e8 B
  1246. Track_Name_Addr;曲目名地址索引
    1 g+ L$ V0 a" Q5 D6 j
  1247. .WORD Trackr_01% N, f& X4 s- y1 K% M( F
  1248. .WORD Trackr_02: N" {2 T6 u; @8 I0 x
  1249. .WORD Trackr_03
    + J# v3 T" e: s# z) e  B# [& R
  1250. .WORD Trackr_04
    9 N; C4 ]; C1 ?1 m7 o
  1251. .WORD Trackr_050 L) p6 c' _5 T4 \
  1252. .WORD Trackr_06( n0 }, \. Q0 [+ g3 I- W
  1253. .WORD Trackr_07
    1 C  Y3 c9 ~, X" q/ A; p
  1254. .WORD Trackr_08
    - f3 W$ O# B/ O2 U0 o2 y& g
  1255. .WORD Trackr_09
    + @( g. j8 `0 {# S$ z% `$ Y
  1256. .WORD Trackr_10
    : c, k* c3 E& ?
  1257. .WORD Trackr_11
    # J6 Q. ?8 h( Z7 P
  1258. .WORD Trackr_12
    5 q& p6 K+ X5 S& q
  1259. .WORD Trackr_131 P# b/ ~+ g: m# k4 o4 |  a  L
  1260. .WORD Trackr_14
    * X- b6 Y# ^% ?  G4 d
  1261. .WORD Trackr_15) Q7 y) c2 x4 r8 B8 t& Z. D
  1262. .WORD Trackr_16
    " Q, T$ M/ `0 o4 N7 g
  1263. .WORD Trackr_17
    ' }+ W) W# h7 i8 H
  1264. .WORD Trackr_189 D" y# O7 }' c9 q" Q7 l3 N
  1265. .WORD Trackr_19- S, p) `0 _" r# d
  1266. .WORD Trackr_20
    ; a& ^3 m# n: s% B4 u% m
  1267. .WORD Trackr_21
    9 a( N7 d) X& K3 Z$ v# p& i
  1268. .WORD Trackr_22
    % I5 L& ?. ~0 ~# u. h# y. h' ?
  1269. .WORD Trackr_23# l, L/ c1 H2 C7 H6 P
  1270. .WORD Trackr_24, |6 f3 S3 Z3 M" w1 w8 x  U
  1271. .WORD Trackr_258 B  `& ^4 v' z3 o' T0 m9 Z" ?
  1272. .WORD Trackr_26
    ( r+ A' q4 Z+ ^1 s  Y
  1273. .WORD Trackr_27
    9 I+ P4 K$ D4 D, ?
  1274. .WORD Trackr_28
    , A/ G, N( J3 U2 d3 r
  1275. .WORD Trackr_29' E9 z% O6 N+ @, R
  1276. .WORD Trackr_30* e- ~+ n+ g1 N" n/ N3 H
  1277. .WORD Trackr_31
    ' z) z2 c( K3 W- K4 }* _
  1278. .WORD Trackr_32- Z# r- t1 z) ^
  1279. .WORD Trackr_339 H0 y0 @2 m3 O4 u" q
  1280. .WORD Trackr_343 E# Q! g4 A* U* ~8 O
  1281. .WORD Trackr_35
    " T: h: \" c; `+ g1 ?1 ~# d
  1282. .WORD Trackr_36
    ; `* V7 K) ?* z4 M5 S3 i& _: @' \  ~
  1283. .WORD Trackr_37
    3 N$ _2 L. P! e4 |
  1284. .WORD Trackr_38
    9 i' c" v3 n7 q8 P" p+ X
  1285. .WORD Trackr_39( X: p# M( L8 t8 }
  1286. + N5 e  t; u: ~
  1287. ;------------------------------! K& u# K' G; L1 A' R8 d" C
  1288. Trackr_Name_Data
    " F. l. _/ z6 J3 E2 @) y
  1289. Trackr_01 .DB $05,"BGM 1", F2 W" t8 G" A2 A+ n
  1290. Trackr_02 .DB $05,"BGM 2"
    % \% `1 u6 r/ S. u- O  Q
  1291. Trackr_03 .DB $05,"BGM 3"
    $ S  H. S9 a* j$ m3 n. b6 {' d4 a
  1292. Trackr_04 .DB $05,"BGM 4": d/ H  D+ c& R8 ~/ g( L8 y# [3 K
  1293. Trackr_05 .DB $05,"BGM 5"
    9 k+ n7 U" b3 Y+ n: D! r! Z! B0 E4 D# G
  1294. Trackr_06 .DB $05,"BGM 6"
    ! F. r% n: S+ }1 g' ^
  1295. Trackr_07 .DB $05,"BGM 7"
    + E% r0 _4 F- b( w/ ?
  1296. Trackr_08 .DB $05,"GREAT"5 E, ?# U8 F" Y( D3 k
  1297. Trackr_09 .DB $08,"BOSS BOM"9 D/ q( J" S8 P0 B5 k# K6 w
  1298. Trackr_10 .DB $08,"BOSS2BGM"; u5 n+ R) k, S6 j3 B
  1299. Trackr_11 .DB $07,"P CLEAR"$ @: H) |! j3 x8 X  j; F  R( S
  1300. Trackr_12 .DB $07,"A CLEAR"
    " R1 d4 G0 C; i# E
  1301. Trackr_13 .DB $04,"OVER"6 R: x- g, S8 s
  1302. Trackr_14 .DB $06,"ENDING"
    4 v1 L4 h1 W* h
  1303. Trackr_15 .DB $04,"SUTA"/ G9 ^# }" ?* }4 g+ G6 B5 j
  1304. Trackr_16 .DB $07,"THUNDER"
    9 @* A2 U9 d6 l! x9 ]
  1305. Trackr_17 .DB $04,"SHOT"9 q, `2 e! V  U0 ?4 e) L) B9 r
  1306. Trackr_18 .DB $05,"LASER"
    5 \6 K* `7 x6 V6 y- |
  1307. Trackr_19 .DB $06,"SPREAD"2 h6 h4 _4 e& M5 q" a% U& M: w+ R
  1308. Trackr_20 .DB $04,"FIRE"8 N3 O6 n4 k/ M; P
  1309. Trackr_21 .DB $06,"B SHOT"
    - P2 F" z2 d( i
  1310. Trackr_22 .DB $08,"T DAMEGE"# M# u* z. \* e' w3 c6 n& n- U
  1311. Trackr_23 .DB $07,"HARETSU"
    # x' @% l' p3 G, v) A. u- n
  1312. Trackr_24 .DB $05,"T OUT"0 t; _. b5 h" W; {. i
  1313. Trackr_25 .DB $05,"Z OUT"1 V' P5 S2 x6 ?  G9 m# h9 h
  1314. Trackr_26 .DB $05,"A OUT"2 R* [9 x$ B1 A3 B+ ~0 _) y+ q6 w
  1315. Trackr_27 .DB $04,"ROLL"
    . t3 y  U* v3 P1 y$ ^, b
  1316. Trackr_28 .DB $06,"APPEAR"
    2 v/ U# j* \( g
  1317. Trackr_29 .DB $05,"POWER"
    - }. a& G1 S# ], H: N* R
  1318. Trackr_30 .DB $07,"BOKK BK"0 r) T6 z% _: N/ Q/ m3 W$ v
  1319. Trackr_31 .DB $08,"BAKUHA 1"# s  q9 P3 h! D1 r/ w% M
  1320. Trackr_32 .DB $08,"BAKUHA 2"
    & a- H7 K, p8 o3 e, J
  1321. Trackr_33 .DB $05,"ARUKU"
    : O6 D1 ]3 m" E% I! {9 F$ x' E
  1322. Trackr_34 .DB $06,"JIWARE"
    $ i/ N2 Z4 U; n- R- `
  1323. Trackr_35 .DB $05,"SILEN"5 i' C* y* s+ A  n# B
  1324. Trackr_36 .DB $05,"P 1UP"
    ; s( z. A) d5 S, _6 {- ~: m3 {9 M
  1325. Trackr_37 .DB $05,"P OUT"
    / L7 R3 D/ ~: q3 J! z8 c$ d$ h, _8 z) s
  1326. Trackr_38 .DB $05,"B OUT"
    3 {2 n1 ^8 j% ]9 J2 \2 R; |4 F  ?, q
  1327. Trackr_39 .DB $05,"PAUSE") ]& o6 l8 k2 Q* L5 B

  1328. 4 }+ a* O& P1 t7 Q% y
  1329. .ENDIF* X3 L5 w* h' l2 T1 R
  1330. 2 Z0 i7 f$ ^! m' r. |% O, ~
  1331. ;------------------------------
    & R6 i2 d  E# W1 h+ i* k
  1332. Static_Text_Title_Data;静态文本数据/ X- n6 j* w$ [5 [
  1333. .DB 12% ]  \$ {2 z) U4 O  b- d  s, Q
  1334. .DB "SUPER CONTRA". Z9 v5 j. F- \( p" P- N% U8 m
  1335. Static_Text_Author_Data8 c3 N$ @0 G5 D! r- b, b0 j3 o+ l
  1336. .DB 233 O* l. R: f5 ]6 q/ q
  1337. .DB "EXTRACT BY FLAMECYCLONE"
    ( F; Q& s" R7 z" J7 P: G1 g+ J
  1338. Static_Text_Date_Data5 b; X" c: }4 l; d& G$ o* ?' d
  1339. .DB 10* i9 {4 Z; f& N, D; X8 j7 t
  1340. .DB "2023.07.11"
    + X4 ^# I0 h. c  p9 h
  1341. 9 `$ J) p" Y- M8 l( k0 i
  1342. .BANK RESET_BANK & BANK_DATA_MASK1 ?0 q/ d' W8 D# g6 m- @
  1343. .ORG RESET_ADDR' e! {$ @8 Z: N
  1344. # F+ B/ a2 o' o7 v0 L+ A: [
  1345. 5 a) U2 ]  D1 ~* @$ T7 T2 r
  1346. ;==================================================( {3 u8 s3 I* _" c7 `
  1347. ;切到主程序bank1 d% H* D2 v1 V0 x4 f& _! l1 F# g, }
  1348. SwitchMainBank
    % B4 v- M9 s# d) C5 t$ Y
  1349. LDA #PROGRAM_BANK & BANK_DATA_MASK" x. D6 I5 {7 j2 V5 b) P* S
  1350. JSR SwitchBank8000* t9 G$ D7 |  u7 a! a+ g
  1351. RTS
    % u4 V7 g, y  e% d+ J# C- C
  1352.   R8 t2 x. O0 P0 R; W
  1353. ;==================================================
    3 ?3 K3 s/ p( [6 t+ v
  1354. SwitchBank8000;切换bank到8000-9FFF
    : E3 Q- v% S- A. q
  1355. PHA" F( `2 q: ?# K4 r) W
  1356. LDA #$069 L. Y* i+ D0 D# [$ W+ T
  1357. STA MMC3_BANK_CTRL7 V9 f, v2 \0 p: q4 ~
  1358. PLA8 O4 N. |4 Z* m
  1359. STA MMC3_BANK_DATA
    $ Q, L9 N- H1 ]* R
  1360. RTS, }4 @5 O. y' N
  1361. # B# L# c5 l& ^
  1362. ;==================================================" P0 G$ q" |7 V1 Q' F' h+ C2 W
  1363. SwitchBankA000;切换bank到A000-BFFF
    + {- w* T' Z; w# f$ |
  1364. PHA
    . `: B0 O4 H  D0 p) S
  1365. LDA #$07
    , s6 W, @' s# F9 Q
  1366. STA MMC3_BANK_CTRL% M4 N7 ]$ j. }9 v# }( Q
  1367. PLA
    / l( C" e' n0 P$ v
  1368. STA MMC3_BANK_DATA) G5 i: g8 B! ]  n6 o
  1369. RTS
    / Q5 j# z) i8 S! u1 \' j. m
  1370. 7 ]. ]9 u2 c: ~! _0 r5 ^
  1371. ;==================================================
    + w1 _* l; \# O6 M
  1372. Sund_Bank_Init;音乐bamk初始化0 P3 B  `9 U# Q" u/ O( N1 S
  1373. LDA #SOUND_DATA_BANK_0 & BANK_DATA_MASK
      N: r) ?% c6 Q& f: b2 ~' ^
  1374. STA Music_Bank_8000
    * j/ T- F6 @/ M% D& z; s
  1375. LDA #SOUND_DATA_BANK_1 & BANK_DATA_MASK9 b1 v) W( V1 @
  1376. STA Music_Bank_A000
      t" S9 p* [; E  Y: D
  1377. RTS9 E+ [* R: Q% {2 D; @
  1378. * F. Q; y8 f/ ?. e3 h+ j7 U
  1379. ;==================================================! |  F+ i. f* Y; N- U1 r
  1380. Sund_Bank_Set;切换音乐bank
    1 x& m! b- k7 A. Q( m
  1381. LDA Music_Bank_80003 y# s! n# H9 D) Q$ J
  1382. JSR SwitchBank8000% T! C! a( A8 H8 |9 e
  1383. LDA Music_Bank_A000" t( M3 ?/ V6 \! Q$ j$ m0 `4 o) w
  1384. JSR SwitchBankA000
    6 b- @  n- i# D
  1385. RTS1 V3 [" N6 Z3 R& [) W  B9 G6 E/ T
  1386. ( X1 z* \3 X) d% L+ Y
  1387. ;==================================================
    5 M9 r& @3 Y4 H
  1388. Sound_Init;音乐初始化
    9 x/ W# n8 s" S" k- i
  1389. PHA" z" I) B1 K9 y4 j: f+ I8 Y
  1390. JSR Sund_Bank_Set" |" {0 ^& A3 g1 U6 d# ^& J5 `: M9 D
  1391. PLA
    % a% Y: y! I, G* w7 e3 m  @# o
  1392. JSR Music_Init_Addr  ]8 M! R- z1 ^% {
  1393. JSR SwitchMainBank. I. ?/ P( e( B, P4 \; {8 E, y! o
  1394. ; M6 K7 t9 Q6 b7 ]9 W7 r% Z; @9 b
  1395. JSR Music_Bar_ReSet
    - @8 B/ R. @1 B
  1396. JSR Time_ReSet6 v/ S/ z( e. A! ?8 a! h4 w7 H7 R
  1397. LDA #$000 o# }# D4 U9 Y6 |
  1398. STA Music_State* P- K1 q: s. X) p0 X% F% P( R4 j
  1399. JSR Music_Stata_Show
    3 [7 }( X- X- i9 j7 l
  1400. .IF Track_Name_Pos: u, q, U4 b; s4 z8 E3 ?/ H* d
  1401. JSR Show_Track_Info$ j: j; B! }7 D9 |* p" L8 R0 d
  1402. .ENDIF
    / y0 E! x6 U6 |6 t4 Y1 M/ v5 d
  1403. * y8 G% F" l9 m) k# D- z
  1404. RTS1 Q# a8 E6 b% ^' S! p  L

  1405. 8 x& E3 X  ?4 u, Q$ ^3 i* M
  1406. ;==================================================5 Z9 X6 E" g! d5 X
  1407. Sound_Play;音乐播放& L0 D/ e% }0 f. A
  1408. PHA
      [, B1 E6 v; _' U
  1409. JSR Sund_Bank_Set
    1 a+ l% \( Z3 W% y
  1410. PLA; B2 k$ [) p5 q- s
  1411. LDA Music_State
    , f1 J3 X* N9 |  S7 C5 n
  1412. BNE Sound_Play_End
    & N$ @7 k3 N$ t6 m5 i
  1413. JSR Music_Play_Addr" K% z+ ~/ {" M5 a) s! F; i
  1414. Sound_Play_End* X0 y, s- k( M# b+ z# y
  1415. JSR SwitchMainBank
    3 T! U/ a) `4 s( I/ Z, ~+ b& R8 g
  1416. RTS
    . G) d- u) \) J+ ^4 X. r* A

  1417. 6 S, V, v5 r2 p: H
  1418. ;==================================================" [0 z7 ]9 J7 R7 D8 j! h
  1419. .IF Music_Reset_Addr
    5 W9 H" A' X$ e, b# Q( r, N4 h2 S
  1420. Sound_Reset;音乐重设(如果有的话)
    " B5 f& l) m" o: K6 I2 g1 X
  1421. JSR Sund_Bank_Set4 j/ Q% d* I; a7 ^
  1422. JSR Music_Reset_Addr  F* h6 I- p  Q# p7 @# H$ v& K9 ^4 J
  1423. JSR SwitchMainBank
    0 f3 ]1 {, w' g, a  P+ c. z) ~5 d
  1424. RTS8 x6 [( e+ J; L) X
  1425. .ENDIF
    5 y7 |+ }9 ^0 G1 y8 Z
  1426. ! n/ G2 |+ s' [
  1427. ;==================================================
    % J! z) I) ^# q9 ^/ ~
  1428. MainLoop;死循环* X0 b  P1 T4 G( o, H, Q
  1429. JMP MainLoop
      D3 [+ p+ x$ H- i, ?
  1430. . k$ ~7 O! a! r7 R: U3 O
  1431. ;==================================================
    9 R9 R: V( s, V5 W* j$ T% w+ h( @% u
  1432. NmiProgram;Nmi中断处理
    6 C: w7 a& C) O) T2 P" N! [( T1 l% ~
  1433. PHA
    . ?# V0 Z0 |# e; A
  1434. TXA
    2 I" @% b/ l+ _
  1435. PHA
    : x/ {7 [" H. c7 A- [/ ^9 d, _
  1436. TYA
    ( V4 V# F3 z. k% I, n
  1437. PHA; }7 s/ a# z0 T" R! E
  1438. $ e0 S2 P; d) P9 I+ Z
  1439. LDA PPU_STATUS
    ; |: q. x: t: H" p
  1440. LDA #$00$ ]( A; D' @6 g- z
  1441. STA PPU_CTRL
      k+ e% b3 z! t+ b
  1442.   ~* L5 v7 B9 R" R6 l- v* Y& Z
  1443. ;切换主程序bank
    2 d  P" l& Q$ ^/ c6 I* H) Y0 ?
  1444. JSR SwitchMainBank% B! [' Q1 a# o  F, m" u

  1445. * h' }4 C3 }) ^
  1446. ;NMI处理, r" p- x  F( [$ x+ V
  1447. JSR NmiProgramProcess) h* z: x2 q1 c6 P7 R+ i

  1448. 9 V2 s/ o# j4 N
  1449. Nmi_Proc_End7 _; `0 S* A0 z8 s! q! [( }
  1450. PLA  U& J4 L1 i# i2 R4 y
  1451. TAY
    $ l# a) c% S6 f+ }$ Y' S
  1452. PLA. Q6 }8 Z4 |  ?, |3 s
  1453. TAX
    9 }+ b6 N% d8 O0 ~( t2 [4 w3 E
  1454. PLA% x3 f. _5 ]4 }5 O& J

  1455. % o5 }9 i! x: G3 U3 W
  1456. RTI
    7 j( k. k! t3 W' a( ]
  1457. ( I" P' z8 S% b+ Q( O$ [$ m
  1458. ;==================================================+ ?% i0 g9 ^5 C: @
  1459. ResetProgram;重置中断处理
    6 J/ V6 m3 [" B6 V8 }3 _
  1460. SEI
    3 G1 o; q( f) j/ a1 N+ D  v
  1461. CLD/ L/ F, X1 h& J/ _6 u
  1462. LDA #$00
      g1 v  k/ Y7 Q6 D# C
  1463. STA PPU_CTRL
    : f" s5 h% p! w
  1464. STA PPU_MASK8 |( a$ K8 W0 d# C

  1465. 1 G) f7 r. `0 q; Z+ ~
  1466. JSR SwitchMainBank3 u4 M: g9 b" g6 `1 n$ L- V; L7 o
  1467. JMP ProgramBegin
    - E& b" y# `9 V& _  `/ k0 i! ~

  1468. , N; L. J+ V, V0 n. Z
  1469. ;==================================================7 x: q2 m6 V1 Q4 n' V5 n
  1470. IrqProgram;Irq中断处理+ D# j- L; e0 g1 y7 q
  1471. RTI
    2 m6 s, t5 g# @: _

  1472. " }- s2 S: J+ i! Y. a0 O. h
  1473. .IF SOUND_BAR_SHOW_ENABLE
    7 z% X+ d' g# b* J0 M# ?
  1474. .ORG $FF80
    . j. [" t/ d2 ]# {
  1475. STA $4000,X+ |2 J; S9 V% i$ ?
  1476. STA Sound_Bar + $00,X6 @) z2 U# r$ v* F
  1477. RTS
    . V6 v6 \; E, W5 F
  1478.   B" d" K% k: D7 _, I0 g1 {2 w
  1479. .ORG $FF884 b- J9 F+ [( w: k0 K- h8 \& a
  1480. STA $4000,Y# t0 z* k/ O. C
  1481. STA Sound_Bar + $00,Y% @7 }. H1 r; A) [
  1482. RTS
    , G" A/ b# _- V- X9 \6 ^

  1483. # R& c" t5 R* b; m/ f
  1484. .ORG $FF908 L* M- i9 L: w1 C$ r
  1485. STA $4004,X
    3 b5 A1 m3 i6 N* ^5 Y2 E+ o. N
  1486. STA Sound_Bar + $04,X- b. D2 G; J/ j  U1 w* |
  1487. RTS
    + e; r2 ^: N8 n: u
  1488.   Z8 b4 h' Q  W7 G
  1489. .ORG $FF98% _1 A, b' {6 k% [* k6 A% O  W/ X
  1490. STA $4004,Y
    ( z" \8 w; _' T; z# ]+ A0 \
  1491. STA Sound_Bar + $04,Y
    4 g' g3 x" q8 o, w- ?
  1492. RTS+ l. C6 ]0 W  f# w, N- f

  1493. * N+ p+ n4 @6 }0 q' }* F2 k
  1494. .ORG $FFA0
    5 C4 I1 v; e. ?2 d9 h3 T1 g6 S
  1495. STA $4008,X
    ( H# Y) |  t3 a% {% D/ {( E4 m$ n
  1496. STA Sound_Bar + $08,X$ r/ S' X9 `$ R$ L- [$ {" M, Y
  1497. RTS
    $ Y+ O# K" e# E' O# Z: A+ I' Y
  1498. : S  K3 K# S% ]0 g1 i* k
  1499. .ORG $FFA8( p; j& i4 d2 C1 I# M) [7 k
  1500. STA $4008,Y
    3 T& f2 X( g/ i% _& [2 F$ z* K
  1501. STA Sound_Bar + $08,Y
    0 W$ q" [2 e( |) ?7 W- m
  1502. RTS. R+ F' u, r' E* B* ?3 e+ ^; _, D
  1503. 0 b# D2 S  S1 c2 n
  1504. .ORG $FFB0- }7 k  o. K" ?
  1505. STA $400C,X
    : {; o5 f5 T; F& G% G
  1506. STA Sound_Bar + $0C,X
    8 o7 [: a! K+ i8 n$ [: ^* ^# E
  1507. RTS
      ]% f( Z1 [' w* s- g* Z6 l

  1508. + g9 ?5 A" g6 C: @* b' ?! c
  1509. .ORG $FFB8
    7 T3 }, E9 o; z+ ]$ D  F- O9 V
  1510. STA $400C,Y
    1 s* a: P/ ?- n5 E" E$ Z
  1511. STA Sound_Bar + $0C,Y1 ^! \7 ~! i1 ]: h  {, P
  1512. RTS/ O7 v  e3 u2 Q, q6 o+ J6 N: b

  1513. 7 ^1 ~7 W: N& o3 y2 F
  1514. .ORG $FFC0
    % a% `* _6 j# @, r5 [& A
  1515. STA $40009 \0 ~/ [. U" a* a
  1516. STA Sound_Bar + $00  j0 g, U" l! C3 C5 x
  1517. RTS
      Z4 C0 @+ A2 Q: N* Z

  1518. * ~1 M2 H! Z$ `0 J- e/ D0 @7 P9 q
  1519. .ORG $FFC8
    4 p; ]6 K1 I+ {# I7 C! r' u
  1520. STA $4004! }  l, o$ |7 b$ \
  1521. STA Sound_Bar + $04
    4 o8 T% j/ v4 x8 f. U$ Q; b
  1522. RTS
    # r5 E/ D9 ]9 u" q& V3 k
  1523. 4 B; m$ n# k5 \4 b
  1524. .ORG $FFD0! E) ]2 D. u6 x8 ]7 E
  1525. STA $4008$ [2 }2 H% D1 }5 s* i
  1526. STA Sound_Bar + $086 y) W& q* ]  v) S8 s" a
  1527. RTS
    " r" {, s7 m: `8 e9 u2 d
  1528. . K3 x0 T! J4 D9 C
  1529. .ORG $FFD8
    0 ~7 V/ A! @  b" s2 X6 F& ^
  1530. STA $400C0 c/ F  r# Y. \& y
  1531. STA Sound_Bar + $0C
      ^1 h; y# V, W7 e) B8 d
  1532. RTS4 B  g% w- e. s

  1533. , g- k7 l1 I) b' K
  1534. .ENDIF1 l! ]! v! D% q) s  l1 P3 k$ J
  1535. # w; b' k; ?& i
  1536. .ORG $FFFA
    ( M7 @, e3 v! C4 B' N3 D, f
  1537. .WORD NmiProgram, Y5 l9 z) ?; C6 V
  1538. .WORD ResetProgram
    / q- p4 l5 s/ l, l8 ?5 G
  1539. .WORD IrqProgram
复制代码

) n* E# [$ i+ A, r
& a* s' ^4 H% U  g1 ^
游客，如果您要查看本帖隐藏内容请回复

本帖子中包含更多资源

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

x

评分

1

查看全部评分

回复

使用道具 举报

fragranse

签到天数: 1373 天

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

使用道具 举报

leshui

签到天数: 3366 天

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-11-18 20:53 , Processed in 1.073242 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

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