[FC][音乐12 IN 1][nes + 源码]

yandagui · 发表于 2023-7-23 20:06:50

本帖最后由 yandagui 于 2023-7-23 22:29 编辑

[FC][音乐12 IN 1]
时间: 2023.07.23
作者: FlameCyclone

收录音乐内容:
1.Raf世界
2.最终任务
3.赤影战士
4.双截龙
5.双截龙2
6.双截龙3
7.洛克人
8.洛克人2
9.洛克人3
10.洛克人4
11.洛克人5
12.洛克人6

操作:
上键:       上一个专辑
下键:       下一个专辑
左键:       上一曲
右键:       下一曲
B/A键:       前10曲/后10曲
选择键:    下一页
开始键:    停止/播放

http://flamecyclone.ysepan.com/

;[FC音乐][播放器模板]
+ `* j2 E" E V* Z% u2 G7 H
;FlameCyclone 20230710/ n( M9 ] P: n' ~$ p) n3 ?% P- ^
# o, L4 Y9 u8 {$ V: U/ y/ g
;文件头; S+ U3 }8 C( P$ d8 D8 W) p
;======================================================================1 x/ B1 b1 Z$ R+ b# s2 {3 [7 I4 v
.INESPRG 16 ;16KB PRG 数量! k0 j5 r: E1 l4 J6 t k0 i6 P; N& }
.INESCHR 1 ;8KB CHR 数量
6 h4 x/ y$ n- L3 l9 c
.INESMAP 4 ;mapper 4
2 f- S' r( W( w. M: A2 Z6 G3 j1 Q5 P
.INESMIR 1 ;命名表镜像 0水平 1垂直
7 r" C" @0 F! w
8 S1 | X0 X! X0 F
;==================================================
$ u* A+ V8 [+ j4 a" a% ]4 B# {
SOUND_BAR_SHOW_ENABLE = 1
H: X2 o- C! o
;==================================================
+ F8 G! D/ J/ T
BANK_DATA_MASK = $1F& s7 G: x7 [4 I) L0 W% H+ }
CHR_RAM_ENABLE = 0# i5 v$ E$ w* C
IRQ_SCANLINE = 136
7 s- D4 z, |6 D; W$ g8 |2 h
;==================================================6 L% s5 T, @7 W4 J8 }# b* p
SOUND_DATA_BANK_00 = $001 Z$ y5 w1 ^) x3 H
SOUND_DATA_BANK_01 = $01 p o- W' N* H! e9 r. i
SOUND_DATA_BANK_02 = $02
% r7 W2 R# L3 p% z4 ]4 R
SOUND_DATA_BANK_03 = $03
3 \: X1 u% f, p; p! T
SOUND_DATA_BANK_04 = $04
9 j* Q1 L, m6 O" g
SOUND_DATA_BANK_05 = $05 E! Q3 X, c |. S9 `2 `
SOUND_DATA_BANK_06 = $06) E3 s; k3 s b) k2 p8 l. y% T
SOUND_DATA_BANK_07 = $07
3 s/ y& J) w8 x3 W, \* d* i/ X
SOUND_DATA_BANK_08 = $08 l+ H4 F7 o3 w" B; d4 y$ d
SOUND_DATA_BANK_09 = $09' c4 r# z8 p+ d- j
SOUND_DATA_BANK_0A = $0A
. [# X9 N H) J! ]! e, I
SOUND_DATA_BANK_0B = $0B: t( B Z2 Q9 y% }0 W; ]
SOUND_DATA_BANK_0C = $0C6 l# b O/ W) Z4 Z- r
SOUND_DATA_BANK_0D = $0D
- c) A- b2 f. ?' q: Z$ E
SOUND_DATA_BANK_0E = $0E
/ H" o" G) E5 ]" K
SOUND_DATA_BANK_0F = $0F! [1 v- n' l/ U3 G3 T
3 N7 s5 a3 |: ]
SOUND_DATA_BANK_10 = $10
6 x7 W# I# {) y, I7 t& M2 k# g9 G r
SOUND_DATA_BANK_11 = $11
! u) {5 c. \8 K8 R" F7 L
SOUND_DATA_BANK_12 = $12
2 {1 t* G: y. ?+ O4 `& r
SOUND_DATA_BANK_13 = $137 o* K- S) u+ }' e: B8 U, L
SOUND_DATA_BANK_14 = $14+ |9 K; n r8 ~# b
SOUND_DATA_BANK_15 = $15
. y' T \+ e8 q
SOUND_DATA_BANK_16 = $16
# h2 Z0 g$ t% B5 y/ D' `
SOUND_DATA_BANK_17 = $17; p( g; [! L I( W
SOUND_DATA_BANK_18 = $18$ `2 A. ?! m0 C4 f. S$ D! }
SOUND_DATA_BANK_19 = $19
9 a3 ]4 _; y4 Y3 c* U) U+ G, E
SOUND_DATA_BANK_1A = $1A
! `3 C+ p* G" I
SOUND_DATA_BANK_1B = $1B
9 }- i# x- u# H- `. Q# ?3 k
SOUND_DATA_BANK_1C = $1C) p5 ^( v% t5 Y# i" T) L: u
SOUND_DATA_BANK_1D = $1D
9 a! _( p; q8 K2 T3 G+ X' d; v
( f, i0 J6 Q, }6 H) F2 ]" `' e
SOUND_DATA_BANK_C000 = $1E
' {6 b$ P; D* s
SOUND_DATA_BANK_E000 = $1F
+ b8 F1 S) [! }- J& Y2 p
;-------------------------------------------------
* h! A, k0 K' c8 [1 g1 \4 i
CHR_DATA_BANK = $201 \7 N0 Y" S! \6 q7 `$ t
CHR_DATA_ADDR = $A0000 E7 L( ?" {/ {" c. \4 r1 i
;-------------------------------------------------
4 M, ^7 t! W" Y0 i" S* D' V
PROGRAM_BANK = $00) u$ Y% K) N8 s6 ~' H$ b6 Z( c
PROGRAM_ADDR = $8000# Q: c3 ?$ a$ b3 \
;-------------------------------------------------; Y4 i! s$ ?! \, X" r. W( J' ~0 q" R
RESET_BANK = $1F; y4 R; Q" u$ U3 d6 o7 ^5 o( U# W' p
RESET_ADDR = $FD00 d9 l+ V2 M6 n/ M- Q. D: ^1 ]
+ ^, z Y, V7 C) R. u1 r3 D; R/ {+ J
;==================================================
) @4 Z9 @- c$ V# c* c* v
ITEM_MAX_SIZE = 12 ;最大节目数
" \8 H. @& B9 l, M
ITEM_MAX_INDEX = ITEM_MAX_SIZE - 1 ;最大节目索引
& Y% x7 q2 N' W: j, r
PAGE_SIZE = 5 ;每页节目数: y4 Y* n/ b, s3 l( U& `: `
8 g9 n6 U; G! R% f! p1 E
;==================================================
+ n+ h5 N7 U0 G) }2 I
.IF ITEM_MAX_SIZE % PAGE_SIZE ;不能整除
5 k ?' D7 |- Z. Z; h* \% q
PAGE_TOTAL_SIZE = ITEM_MAX_SIZE/PAGE_SIZE + 1 ;页码总数7 L9 c6 Y1 ]: I$ C0 ]6 p8 A' C6 t0 ^
.ELSE
7 X' c8 p( O* K! N) f0 {
PAGE_TOTAL_SIZE = ITEM_MAX_SIZE/PAGE_SIZE ;页码总数% ?( H# I- i# W6 { ~! v) B
.ENDIF
( K; K' u& X, m1 _5 x+ P
) n" r2 u' B7 `$ X J
PAGE_MAX_INDEX = (PAGE_TOTAL_SIZE - 1) * PAGE_SIZE;最大页索引1 Y( u& `' i. p1 u2 @4 ?# V
/ I ^" {" G6 w
;==================================================- b ?6 g2 P1 O8 v1 j. n. i
ITEM_SHOW_POS = $20A8 ;节目名位置
0 o8 x- `1 ^6 J D
ARROW_X_OFFSET = (((ITEM_SHOW_POS & $1F) - 1) << 3) - 2
1 [- x" P+ y* a1 o5 Z' w
ARROW_Y_OFFSET = (((ITEM_SHOW_POS & $03FF) >> 5) << 3) - 1;
" X# |$ A2 H# R/ F. c
;==================================================7 @. z; Q, S; m. o
Caption_Text_Pos = $204D ;标题文本位置
% P. ?( L. l7 K: ~0 |" C
Author_Text_Pos = $2324 ;作者文本位置
; j9 S# i) s8 |! ]* {
Date_Text_Pos = $236B ;日期文本位置6 e$ H* W5 a( }; j) b) F& f
;------------------------------ H& E, j& g0 `' s
;------------------------------# q5 ]( {. M2 y t2 S% M/ D
.IF SOUND_BAR_SHOW_ENABLE
* U: g+ y2 j. R4 R' e! j
; R9 _1 K0 {$ F: u9 Q
Play_Index_Pos = $2273 ;当前曲目位置
5 g! F' W7 ~ y/ P' K% t
Play_Time_Pos = $22B3 ;播放时间位置. a, ^' k" N \$ k% a
Play_State_Pos = $22F3 ;播放状态位置
0 ]4 ] W, o# N" ^1 \1 U3 [. e
, k f4 B I" [* L* I3 G
.ELSE. K6 H3 S2 g: x# K4 n6 j' o
% |5 ~$ S. w2 h! W
Play_Index_Pos = $226C ;当前曲目位置8 J4 u- i0 M3 g4 o, s
Play_Time_Pos = $22AC ;播放时间位置
5 Q# C5 a4 G) V* @ B
Play_State_Pos = $22EC ;播放状态位置, L! f3 u3 B7 G; a
/ C4 t0 n6 [- Y7 a1 \. w0 J
.ENDIF
, l' ~( ^6 w, P, ^# @
;------------------------------6 d& F# }9 s m2 o( l/ }( z3 ]
Track_Name_Pos = $222B ;曲目文本位置
9 y" j/ Y, j4 Q9 M s) o) [
;Track_Name_Pos = $00 ;曲目文本位置
5 I* U, H! c+ A0 ]! a
Sound_Track_Pos = $2265 ;声道文本位置6 J1 j6 V/ `" ~; ?6 h0 g7 \% D
Sound_Bar_Pos = $2269 ;音乐条位置
! M; B1 F/ C* `
;==================================================
3 ~0 @9 [! _5 U$ |8 X) j7 }
Scroll_X = $00! \8 G5 p9 C0 d. w- p
Scroll_Y = $00
/ W8 j: R8 g- e, ~
;==================================================/ S) p8 u2 X; g3 H1 ^. O7 T
Sound_Ram_Addr_1 = $0100
3 a# W. x2 B3 p( U6 I3 @- k
Sound_Ram_Addr_1_Size = $80
: i% o) H1 n0 L3 p$ r) k- B7 u6 L$ G3 _
Sound_Ram_Addr_2 = $0090
) o5 Y, x. v' z; j- ?; d2 h& b0 t8 {
Sound_Ram_Addr_2_Size = $70 W, P" @" B9 Q0 k
Sound_Ram_Addr_3 = $07000 h/ Z r, H8 g
Sound_Ram_Addr_3_Size = $00* l: W3 h- S/ q. ~0 r; K
Sound_Ram_Addr_4 = $04003 J: d- k/ p' B% D" v5 y
Sound_Ram_Addr_4_Size = $006 [! {; K4 X! ^3 H% ]: L
Sound_Ram_Addr_5 = $0500
7 P' O! A1 o# N: f P; k+ x1 v5 f* _
Sound_Ram_Addr_5_Size = $40
% e; l! O L* o) U# N4 L8 d; A
" g8 [" A% l* ^7 ]: ^; q
OAM_TEMP_ADDR = $03009 P' v$ D" m) V
# g% P& |4 i" f
;==================================================
1 T% V0 p! C0 S d, f8 a* I& n! U
PPU_CTRL = $2000 ;PPU控制寄存器
* e, K9 A8 ~9 T; S7 B: I
PPU_MASK = $2001 ;PPU掩码寄存器3 R( _/ K, r+ @6 g
PPU_STATUS = $2002 ;PPU状态寄存器：读取后PPU_SCROLL和PPU_ADDRESS被复位，下一个写到PPU_SCROLL的数据是水平的，写到PPU_ADDRESS的数据是高位
4 b/ s1 \. k& ~4 a4 ~: }2 z4 ^
PPU_OAM_ADDR = $2003 ;精灵RAM地址：用来设置通过PPU_OAM_DATA访问的256字节精灵RAM地址。每次访问PPU_OAM_DATA后该地址增加1( R2 \; E/ z- L* X
PPU_OAM_DATA = $2004 ;精灵RAM数据：用来读/写精灵内存。地址通过PPU_OAM_ADDR来设置，每次访问后地址增加1
, p( `+ ~2 f" v) a. s
PPU_SCROLL = $2005 ;屏幕滚动偏移：第一个写的值会进入垂直滚动寄存器（若>239，被忽略）。第二个值出现在水平滚动寄存器 4 f2 i* C# ]+ Y- ]( o+ E" }( }( @ l
PPU_ADDRESS = $2006 ;VRAM地址：设置PPU_DATA访问的VRAM地址。第一个写地址的高6位。第二个写低8位。每次访问PPU_DATA后地址增加/ z& W2 ]* V# N/ \+ O% c: n
PPU_DATA = $2007 ;VRAM数据：用来访问VRAM数据，通过PPU_ADDRESS设置的地址在每次访问之后会增加1或32
! ]" G% z' L7 i1 A
OAM_DMA = $4014 ;DMA访问精灵RAM：通过写一个值xx到这个端口，引起CPU内存地址为$xx00－$xxFF的区域传送到精灵内存
( H5 a, |: O4 @7 i1 Q# t0 ^: M
APU_STATUS = $4015 ;声音通道切换' d, B& U2 H- Z- `! Z, A
JOY1_FRAME = $4016 ;手柄1 + 选通. n$ S+ ]* l q+ T9 n
JOY2_FRAME = $4017 ;手柄2 + 选通; D4 c! G+ W) H
;==================================================
# T8 |+ P$ h2 l; g4 {
MMC3_BANK_CTRL = $80008 R4 F; j& z/ b9 I: |1 v8 Z
MMC3_BANK_DATA = $8001
u* Y O# e+ A% F3 A. a" I
MMC3_MIRRORING = $A0001 a( K: [8 N6 ?) `2 f9 j
MMC3_PRG_RAM_PROTECT = $A001
4 ]: `/ H2 ^2 b
MMC3_IRQ_LATCH = $C000, [$ S1 S, u" X9 {
MMC3_IRQ_RELOAD = $C001
: ]0 o5 X3 t. y: o& Q: E/ s+ P
MMC3_IRQ_DISABLE = $E000
* Y7 X/ n- u. A( U6 F$ m1 x1 I
MMC3_IRQ_ENABLE = $E0019 K( E( ?$ q+ r1 N% ~
4 ^3 w9 N+ I% B7 ?
;==================================================
- P Q! \& e% Q/ E2 C
PPU_Addr = $0200
: A! [; E4 F8 W% b" l
Palette_Addr = $02C0
' r9 n/ K2 k0 D5 ~* b
Sound_Bar = PPU_Addr+$E0 M Y" K! k, b6 H
;==================================================& p6 H0 Z `/ s" n" k- i+ S
Bkg_Palette_Update_Addr = Palette_Addr+$0D r, q+ t7 W) Z$ d
Sprite_Palette_Update_Addr = Palette_Addr+$110 N0 \, v1 I* K! k
PALETTE_UPDATE_MAX = $2C& L; a+ Q9 ]- l; U* C
PALETTE_UPDATE_MIN = $21, y1 b0 s" V, ~- k# u0 k
PALETTE_UPDATE_INTERVAL = 60, W. i7 R( F( W% I d8 w7 d+ ]
;==================================================, A! K: k ?; w- V" P6 M
Sound_Bar_Cnt = PPU_Addr+$F02 n/ F4 i, k. h E' r) m
PPU_Cur = Sound_Bar_Cnt+$02
8 M7 k) G2 @8 V% J8 [& ^/ l7 o# X, T
PPU_Addr_H = PPU_Cur+$03
4 S( P, N. F; y) t7 h2 g
PPU_Addr_L = PPU_Addr_H+$04
5 j* [$ M5 k( @+ Z+ H0 d
Screen_Ctrl = PPU_Addr_L+$01( n) o9 G C/ L% H
Screen_State = Screen_Ctrl+$01 H) W- `% j; k, @
;==================================================/ T* B1 O5 ]& M3 `
Use_Ram_Begin = $50. `) L; S& u6 V- Y
;==================================================
6 t. ?5 ^) q1 C
JSR_Addr_Op = Use_Ram_Begin
9 b6 K/ Z" R" R* f# ?) q1 w9 Z; v
JSR_Addr_L = JSR_Addr_Op + $01( a" x: V4 f" W
JSR_Addr_H = JSR_Addr_L + $01
$ k Z1 c8 [4 Z) ?! w% a
JSR_Addr_Rts = JSR_Addr_H + $01. r" r, m/ V S1 @ G
Data_L = JSR_Addr_Rts + $01
( O" Q& L/ ?0 J4 i; w& e$ _
Data_H = Data_L + $01
3 X7 \* I. s% _* V, n9 r
Data_Cnt = Data_H + $01, W$ Z7 ]' G2 n" h
Data_Buf = Data_Cnt + $01: m; ]" A( r( u9 T
Nmi_Time_Count = Data_Buf + $012 P; R# X# L0 y" [$ p
Time_Wait_Cnt = Nmi_Time_Count + $01& |) l) [5 r/ F7 v
Palette_Wait_Cnt = Time_Wait_Cnt + $01
6 b% @; A& K8 M: R# C
, R8 E* d+ F2 ?, K! @/ y; h' D
;调色板刷新标志( W! R* c7 ~ ?- \) @$ a/ K0 C
Palette_Update_Flag = Palette_Wait_Cnt + $01
3 S) e* J8 g( E
* f$ \# }5 _2 r* B2 \" p& v
;当前帧文本写入禁用标志
t! z$ ^: z1 f* e% z; V/ Z
Text_Disable_Flag = Palette_Update_Flag + $017 Y% k$ q' t% h% _
' h! Q4 z/ }5 b, b* e
;==================================================
' n. w8 [" V# }$ L( }" L2 P
;当前帧文本写入禁用标志, 防止缓冲过大导致画面跳动
( A9 a7 `& s! |+ J' \
TEXT_DISABLE_BAR = %00000001 ;音乐条' U9 x9 [/ P8 d. O5 w
TEXT_DISABLE_TIME = %00000010 ;播放时间
[+ {! a9 r8 P
TEXT_DISABLE_ITEM = %00000100 ;播放时间
# S8 [# b- h! a7 c. N! {
TEXT_DISABLE_RAM = %00001000 ;播放时间
% U- B- ~. [0 }/ u0 Y3 j) |2 S
;==================================================
) F5 j8 k' s# u$ e3 @
Key_Keep = Text_Disable_Flag + 1
) \6 k" N/ q- X# ^* i) m
Key_Once = Key_Keep + $01
; V0 R( @/ A# B" o8 I2 ]3 [
Key_Kemp = Key_Once + $01
: ^/ T) c2 x+ x2 b
Key_Temp = Key_Kemp + $01
; T* l' I- ^1 k6 R1 [$ L
Key_Getv = Key_Temp + $01
3 o4 a- U y3 Q8 R7 w' n3 ]
;==================================================7 v) Y4 s: O( [- ~# M
Music_Item_Cur = Key_Getv + $01 ;当前音乐集
* L. A* m) t3 p9 h) B
Music_Item_Last = Music_Item_Cur + $01
' T' R8 h4 j2 c# `3 H* P& j# j
Music_Total = Music_Item_Last + $01 ;当前音乐集
+ r, \# l7 ?' R' a
Music_Cur = Music_Total + $01 ;当前曲目( D( n" l9 m( u& m) o8 E0 A% }
Music_Last = Music_Cur + ITEM_MAX_SIZE ;上一个曲目
* b- A6 F9 n, u6 u
Music_Stop_State = Music_Last + $01 ;播放停止状态
* H+ t" Q' c% ~1 _8 H0 y
;==================================================
( G/ o4 E+ b: ~8 s7 J) F
HEX_Data = Music_Stop_State + $01* @8 X* y8 d- C; q
DEC_H = HEX_Data + $01% K0 e' t& R- j" Q- l2 r
DEC_T = DEC_H + $01
) e6 y. b. e: E" l" U J
DEC_L = DEC_T + $01
1 L2 @4 H! t1 t' W
;==================================================* P1 P! y9 P/ f" _+ @% }
Time_S = DEC_L + $01' M1 [' U+ _" e- E4 T9 O; O) g
Time_M = Time_S + $01
1 j3 \/ @# U0 |# H# s7 |! g1 P
Time_H = Time_M + $02
0 n8 o, T! u. {3 w+ O
Time_Cnt = Time_H + $03+ Z' Q* h! C" {/ Y7 j: j7 b1 t
) R/ H7 O9 s% G! t- E! V
;==================================================9 k! U& k1 e, K) W" E7 y+ w
Music_Bank_8000 = Time_Cnt + 1
7 d$ u) g3 c$ }
Music_Bank_A000 = Music_Bank_8000 + 1: z% E G. r* w" M' G3 ~, Z% }9 [
;==================================================
4 I* _4 M% W& c6 h4 ^
Scroll_H = Music_Bank_A000 + 1
8 [, g! y- n% }4 S9 `9 E, b
Scroll_V = Scroll_H + 1; h4 u6 C- S% p
IRQ_Process_Index = Scroll_V + 1# v' p$ ^" G4 i
;--------------------------------------------------
/ e) E* r8 u2 S4 J2 s
Page_Cur = IRQ_Process_Index + $01
+ D* x1 |% _# ^
Page_Cur_Index = Page_Cur + $01+ J I E* k' `9 d# y( J. ~
Page_Cur_Cnt = Page_Cur_Index + $01. n7 h5 d) b, }/ l8 w, c
Page_Last = Page_Cur_Cnt + $01
7 s" j3 W1 I6 `5 Q5 U( m* h6 `
Page_Last_Index = Page_Last + $01
' \7 } w! f/ f& f8 D7 V
Page_Last_Cnt = Page_Last_Index + $016 C* d( y* l" t" h: x$ t5 k; v$ @# H
Use_Ram_End = Page_Last_Cnt + $01! c0 u+ y4 A0 q |( }) Y/ s
;======================================================================$ z0 Q. ~# ~% Y8 B4 r) K5 ]$ u
;音乐数据块
$ W/ \5 d! {1 C
0 l( O+ g3 H4 c# C
.IF SOUND_BAR_SHOW_ENABLE/ ^: O5 b( U$ m* u2 n. Y
% h* }$ f1 I2 w* ^8 r" ^
.BANK SOUND_DATA_BANK_00 & BANK_DATA_MASK7 q7 J! ?" w$ s0 H# E
.ORG $90002 r( {/ T$ W& t/ m% z
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_0_bar.bank"
7 i! }% l8 Q& w* m
& F" m4 W7 X& [" [5 v7 @
.BANK SOUND_DATA_BANK_01 & BANK_DATA_MASK
$ C$ ^) k4 r0 y4 L/ u
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_1.bank"
" Q5 J+ O, d5 A& L4 H
) B" ^# W+ m! o2 P
.BANK SOUND_DATA_BANK_02 & BANK_DATA_MASK5 a7 [9 ]. R8 ]9 g: G. i' c% Z: H$ A
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_0_bar.bank"
6 Z, r" e3 i, q
6 N6 V# W4 k% E( D T% l, s
.BANK SOUND_DATA_BANK_03 & BANK_DATA_MASK
+ G1 T$ X0 o! R6 I* g2 ^" t
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_1.bank"
* p' W1 t. A p" b
7 Z& Y. s' ^; F# t
.BANK SOUND_DATA_BANK_04 & BANK_DATA_MASK4 U# I) ^; A- E3 p" ]. O9 t: z
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_0_bar.bank"
* ^8 A7 A7 D6 Z
, g3 ^3 z% @. [/ X' n
.BANK SOUND_DATA_BANK_05 & BANK_DATA_MASK0 Y: o% g: V; M n# p
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_1.bank": q. U z" j0 {& O9 F
9 F4 c/ r- c3 v/ s
.BANK SOUND_DATA_BANK_06 & BANK_DATA_MASK
! J! J9 _# |$ b' b# l
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_2.bank"
! P5 _) h, o0 }) G1 b) s1 B
2 @0 j! G8 y* E8 c$ K0 ?
.BANK SOUND_DATA_BANK_07 & BANK_DATA_MASK
/ e& e) J, Q3 H, r( P" Y$ A
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_0_bar.bank"" x+ T5 F7 Y$ D# J
3 [8 J5 U f" N% N' _) U
.BANK SOUND_DATA_BANK_08 & BANK_DATA_MASK/ r2 U Y u9 N# {% h8 @& M8 K* k
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_1.bank"! _# Z/ ] `, V: L. v3 q% G* ?
, G' r" W% } f" g
.BANK SOUND_DATA_BANK_09 & BANK_DATA_MASK
. B7 m! U2 i5 \ I( j/ d
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_2.bank", r! W$ n1 f1 t3 |% p
9 \ p. |$ [9 p
.BANK SOUND_DATA_BANK_0A & BANK_DATA_MASK8 q* c0 V2 h' L# D! Y7 X
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_0_bar.bank"
0 f/ Q1 e! z( ?! a% c
% p5 n: ?& s3 ~2 [ N+ z" O8 Q
.BANK SOUND_DATA_BANK_0B & BANK_DATA_MASK
1 }2 T3 } c: j; v g
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_1.bank"
& Y, S1 s. S' e5 ^- h) q9 J
9 p. U4 ^" r/ W( N# p: f. e6 L/ H
.BANK SOUND_DATA_BANK_0C & BANK_DATA_MASK
% i3 ~) y4 a0 e
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_2.bank"
& \4 R/ t6 N9 d" Y X2 K
1 U$ Y) k2 m4 Z$ {9 J
.BANK SOUND_DATA_BANK_0D & BANK_DATA_MASK' z7 G: y% @+ G: l. d
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_0_bar.bank"8 M* J: B1 _/ s- u+ Q9 j- [
: z( g- ? `2 j( ?! O/ F+ ~
.BANK SOUND_DATA_BANK_0E & BANK_DATA_MASK! K; h* E+ B4 l; H
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_1.bank"
; x+ Y: I+ w8 p9 o! N! P) {3 {
9 f: J7 k; w2 G
.BANK SOUND_DATA_BANK_0F & BANK_DATA_MASK
0 x t, z% t: X- i
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_2.bank"
: Z9 O, r6 }& ?* @+ o
2 ?: k* G. d. y# [3 H
.BANK SOUND_DATA_BANK_10 & BANK_DATA_MASK3 ~. E6 T6 Z% J+ u4 e6 g
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_8000_bar.bank"2 { O. y9 F* ~8 V- x
- I$ T# R" c6 t
.BANK SOUND_DATA_BANK_11 & BANK_DATA_MASK
: W+ i0 W1 P4 F4 v. T
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_A000.bank"7 F2 H! R0 D; a9 o3 {' b5 o3 Q3 N9 S
- ~. I+ o4 z- }; g6 Z0 f# N* `
.BANK SOUND_DATA_BANK_12 & BANK_DATA_MASK
& n0 k! |" \1 o3 o1 \
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_8000_bar.bank"# H: d+ g( O! }7 @ o! K
7 {" c6 b3 Q8 H
.BANK SOUND_DATA_BANK_13 & BANK_DATA_MASK; D- H+ ?4 R# r" T5 V
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_A000.bank"
) Z: H! a! q$ [, P z9 k! F' `
; ]) y* k/ j1 b$ Q
.BANK SOUND_DATA_BANK_14 & BANK_DATA_MASK6 J2 `$ ?% Y, x* V l
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_8000.bank"" m0 @3 \/ H) P7 Q% N8 A# c' W4 A
2 U0 E# B6 l3 N
.BANK SOUND_DATA_BANK_15 & BANK_DATA_MASK
/ Z2 R7 L# A, v( A- r
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_A000_bar.bank"
0 r6 j& X: Q* W# q
7 R2 g5 p# q3 [8 [0 r4 C5 U
.BANK SOUND_DATA_BANK_16 & BANK_DATA_MASK8 v2 [' k9 H; I3 Y3 {' D: u
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_0_bar.bank"
6 i2 \6 d8 L9 D5 c$ I e0 r9 M
~7 y( _7 D8 K) Z& n1 \
.BANK SOUND_DATA_BANK_17 & BANK_DATA_MASK t& F9 s6 j$ \( r5 W! ?; m& C
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_1.bank"/ y2 p' E$ a' w7 o& D+ r7 n( N
! B4 k2 Z9 F' u
.BANK SOUND_DATA_BANK_18 & BANK_DATA_MASK! h, _* d4 ~; c& h D- a" h" G6 Q# }
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_0_bar.bank"
, ]/ l) }) k! d- p
g$ w; n; ]: W# Z% j0 X2 O h. x
.BANK SOUND_DATA_BANK_19 & BANK_DATA_MASK5 X$ W5 W/ q2 }9 x3 U1 d
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_1.bank"% c. U& N5 a' Q0 ]. P- q" t1 k
0 D; c) G# |& i a0 a* Q/ I1 M
.BANK SOUND_DATA_BANK_1A & BANK_DATA_MASK: g9 B* e/ W2 w. L1 I
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_0_bar.bank"
/ @! K/ [' E. l0 b" K
3 _9 \2 U+ ?! K- L: \$ p' ?! r
.BANK SOUND_DATA_BANK_1B & BANK_DATA_MASK
7 j6 C: ]# m3 U6 T
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_1.bank"
+ \. D, c+ V+ l' E7 V
$ w: `% H! W0 q" Q6 N* t
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK" G, G t# a. a- j
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_C000_dmc.bank"
, t, i4 k9 v2 }! ?- h0 j$ D4 t: N: e
! c. c! T# L0 r& w
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK4 v" }; H, M2 G' X& J5 l* D0 `5 p( J
.ORG $D400( V0 f- m/ R% l5 z
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_C000_dmc.bank"
2 t# b- p- ]( F6 c
% x) d% Y4 K( U* p& l, l$ C) x
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
# n% o" F! g3 x' O" ~# T* T
.ORG $D800+ T; L# z/ A1 W2 V
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_E000_dmc.bank"# D( O1 r/ ]& c2 [# f
/ a0 [2 \+ x7 B* F
' y9 s% M' m3 n% X9 Z2 [( g
.ELSE
* N% y8 N: O7 e- r" r$ ?
' k8 g: w% Q6 V; c) A$ W7 ~
.BANK SOUND_DATA_BANK_00 & BANK_DATA_MASK
' _7 B5 c. N8 A6 Y& q4 i( c
.ORG $9000; s) I2 k* v' `( a6 c: x1 F8 q
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_0.bank"
5 X" s5 t7 i7 |# E+ I
+ \9 n; n# s% d, ]& f! S% [
.BANK SOUND_DATA_BANK_01 & BANK_DATA_MASK
( q+ H- u+ _7 t: I
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_1.bank"
7 ?: t1 \3 o; M! W; I
9 n9 I8 v" n4 O V/ g
.BANK SOUND_DATA_BANK_02 & BANK_DATA_MASK
( L+ z# e! h3 {) a9 N
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_0.bank"
+ f8 k, H6 V# d" J) y
N4 I5 O8 Q4 C+ p: _9 T
.BANK SOUND_DATA_BANK_03 & BANK_DATA_MASK# p/ t/ V. B8 { W2 y- T1 v
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_1.bank". t9 _. g$ s7 y% M
9 x2 A2 u# i5 X9 T$ u; o, y
.BANK SOUND_DATA_BANK_04 & BANK_DATA_MASK
O/ l" |1 Q' }. Q& U
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_0.bank". u! F& [; S5 ^3 l/ n
- N2 S$ a8 s4 c9 ?; D$ c/ m
.BANK SOUND_DATA_BANK_05 & BANK_DATA_MASK
; f" s/ I B+ B4 _; ]+ B( K* C! \$ y
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_1.bank"& x$ B$ Z: q8 X' j; e$ L6 k- Q
. c8 G, k0 {- V9 }
.BANK SOUND_DATA_BANK_06 & BANK_DATA_MASK3 z/ S* H5 v% Q3 \' t* W
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_2.bank"
" `! b, x) V/ o- i4 `: A7 F( @5 ]
+ @" n2 I7 i/ k) y7 E
.BANK SOUND_DATA_BANK_07 & BANK_DATA_MASK
0 P8 ?* z4 R) W9 _' a8 L
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_0.bank"! L4 D2 L9 P) v
5 M& ?9 {% j6 L, n" K
.BANK SOUND_DATA_BANK_08 & BANK_DATA_MASK0 B4 v# z+ `' z( h" y
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_1.bank"
! S/ C3 i! a f. o
. U6 `; k/ r0 h/ A: G
.BANK SOUND_DATA_BANK_09 & BANK_DATA_MASK
. y+ w. g7 j) w' A# X) U# v
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_2.bank"" W& u" A/ ]/ }( e1 T
% {6 t' v0 \4 Q3 [4 @4 \3 R; o' e
.BANK SOUND_DATA_BANK_0A & BANK_DATA_MASK c1 v5 t# P0 k9 X9 A4 c
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_0.bank"! g: X V$ f; v# u0 w5 F; Y M
9 C8 S* s9 H% S3 a# H3 d7 b5 a
.BANK SOUND_DATA_BANK_0B & BANK_DATA_MASK- b. \8 V8 S5 ^6 U0 }' h5 Q) s
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_1.bank"
# w: }& l! [& U, j" \
5 B1 {6 ^4 V) m4 X9 a# c# U
.BANK SOUND_DATA_BANK_0C & BANK_DATA_MASK1 q5 A c S! K7 K6 w& z
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_2.bank"2 H' {3 a& j: J8 Y! Y! Y0 ?4 m* w1 f
# G$ L- [, h; C" s) ~
.BANK SOUND_DATA_BANK_0D & BANK_DATA_MASK' y3 K* [& U& e7 x3 ]7 B% V
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_0.bank"3 E1 e& @; ^9 ]0 h
5 m9 d4 ]* t5 p8 K$ |
.BANK SOUND_DATA_BANK_0E & BANK_DATA_MASK
; k v% m1 Y0 r0 d C
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_1.bank"8 y; U) [ n, `% p0 n* x
5 y% J1 s2 Q' |$ B( N
.BANK SOUND_DATA_BANK_0F & BANK_DATA_MASK
f1 U# L1 N% G/ d2 G
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_2.bank"
0 m% [7 \) C0 H# P! D! l1 Y# z
5 h' E) F6 z" {! r3 a) [
.BANK SOUND_DATA_BANK_10 & BANK_DATA_MASK8 X5 v* j0 @" p) G+ _" o* O
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_8000.bank": P& |5 S1 b+ l
! ~5 k2 M4 {0 e* f0 ]9 b
.BANK SOUND_DATA_BANK_11 & BANK_DATA_MASK
* j1 [" i( Y6 Y, k) Z
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_A000.bank"
6 z, A% o% G# Q# R; n
3 X: k2 H. ]* C
.BANK SOUND_DATA_BANK_12 & BANK_DATA_MASK5 e @2 m0 B5 }3 G
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_8000.bank"
& v7 O9 L8 g8 Z9 O) G; [9 h& R
$ g# _& \! m& {! ~! m; i
.BANK SOUND_DATA_BANK_13 & BANK_DATA_MASK
5 G! w0 t6 n% k% _
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_A000.bank"
/ I; ~. b& {4 ^* {' K( u) J0 l
( u+ L: J5 a3 l: p: i( j+ a: J
.BANK SOUND_DATA_BANK_14 & BANK_DATA_MASK) B) P+ X5 O* L" G6 N
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_8000.bank"
% J. r( X, r0 d! ?' X6 m. t* m/ v! F
, e% u: `, F5 p& Q
.BANK SOUND_DATA_BANK_15 & BANK_DATA_MASK3 ~' z& q8 n2 s/ N
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_A000.bank"* B2 Y. n" o" J' N" c3 A0 {
% J2 T3 k: N4 u$ k1 x# d
.BANK SOUND_DATA_BANK_16 & BANK_DATA_MASK" g- [; L2 q* ^" y, T2 I! U0 f
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_0.bank"
+ `7 v/ E! r+ @, h2 a" c/ o
9 B, b3 N, w4 x( f
.BANK SOUND_DATA_BANK_17 & BANK_DATA_MASK
7 E7 G/ M7 |: |
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_1.bank"
0 i3 I4 T) S9 z; L8 R' x
- q: [$ l5 S% _. E- C% [
.BANK SOUND_DATA_BANK_18 & BANK_DATA_MASK+ w6 q7 W! u4 m6 P* l; N
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_0.bank"
7 Q: V/ E0 Y& c1 L% I, Z5 n
; X3 D" @) [- ]% @5 c% W: ]
.BANK SOUND_DATA_BANK_19 & BANK_DATA_MASK
' O5 o( K# V5 b3 r2 R+ H2 _* ?: e
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_1.bank"7 L# z7 b0 H. `/ G
' Z- @, f4 z2 L7 \/ p
.BANK SOUND_DATA_BANK_1A & BANK_DATA_MASK8 G0 ?! U2 E0 X4 C
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_0.bank"
$ S* c( B* S9 U0 S$ Y( o' W1 ~
4 V2 g; N( N) S* _
.BANK SOUND_DATA_BANK_1B & BANK_DATA_MASK
9 L( k* }$ @* X
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_1.bank"# G3 a0 t4 ]3 V# E3 H' L j0 X3 G
: x) A- Z& d6 P& ^
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
) t2 p) m2 _" L$ @' ~
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_C000_dmc.bank"
1 k/ x: ~# J. H9 H8 g
4 O4 N* Y3 S+ D) w7 w
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
1 C" b- e% \& P0 O T
.ORG $D400
# J2 ^& i/ x: v v' k
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_C000_dmc.bank"( [1 ^! m7 W: }
( u4 s8 T6 | z0 x9 z
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK) r5 q/ K5 M! Z3 p, i& X
.ORG $D800" C) {1 J$ q: H5 o- Q5 P' B. v1 o
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_E000_dmc.bank" }9 B+ Z" K" h. g
5 g, R6 R! [) R% ]
.ENDIF; s. Q" p% `, b" I9 b
: y8 U9 ~$ t, t* `* g
;CHR图形数据7 O4 A2 @# R0 g5 O6 B* H
;======================================================================
6 a l) z5 |% w l ?6 f c
.BANK CHR_DATA_BANK
7 T4 b0 m7 W* }
.INCBIN "chr_bank/chr_data.chr"5 t' y6 g. i: O x3 Y* m
3 m- l3 o! [2 C3 f% [
;======================================================================
. G; r. k) A K% Q1 ]0 Z
.BANK PROGRAM_BANK & BANK_DATA_MASK [7 m* }& Q! ]5 |$ Y( G4 B
.ORG PROGRAM_ADDR
2 [$ @: _+ U' l! L$ l
! H: F+ }6 ?# F* o- l- b
;==================================================
! t. ?% j* \& |
NmiProcess
% x" E( e: l; ]' b& V1 h) Z) I0 ]9 O
; y7 b( `9 L. Z) r
;关闭屏幕控制: k( k% V0 {( a+ P4 q, D" X
LDA #$00' g: w( V2 A1 Q( ? @ X& }
STA PPU_CTRL" P9 ?+ X4 O6 c
$ G8 a; q, v! Q% Q
;没播放音乐就不需要触发IRQ9 M3 q3 l$ W# G: ~1 V: Z
LDA <Music_Stop_State8 ^! J+ ~. g. [" V0 j6 j; a4 v
BNE NmiNormal
: B, o7 ^; P, F+ ^( B
- `0 b/ f$ h3 N0 Z3 ]
;重置IRQ索引
) s9 M) q* Q0 f' L
LDA #$00. [ |2 T- w8 A) S( b
STA <IRQ_Process_Index! U8 ?4 k# F5 U, G4 m+ }5 g
7 Y3 L3 I4 [4 K; b
;时间秒数为空则跳过& L) g8 ^4 S$ W8 X, `* j' u
LDA <Time_H
! m5 s) V+ f1 ]& g" b' e
ORA <Time_M* @. \! ]7 m2 W' B9 _7 E6 ]9 b
ORA <Time_S2 k! {4 R9 F, ?" {8 b) f* R$ c
BEQ EnableFirstIrq3 w0 Z6 \3 }+ q, l; ]
" Z( p8 u i( j9 q, H% u' o
INC <Scroll_H6 j* G0 J7 c; |6 {
: B/ y# I' r1 [
EnableFirstIrq , s7 R' g& ~# s2 b5 H4 F
;80条扫描线后触发IRQ; D4 h) y u6 `
LDA #IRQ_SCANLINE
2 d* v& L& q+ x+ s! Q) Z
STA MMC3_IRQ_LATCH
5 t# i. |) ^+ ?. W$ g* x9 q1 q' k
STA MMC3_IRQ_RELOAD8 D! _. T2 i, _
STA MMC3_IRQ_ENABLE" k1 f5 M; |7 b6 R8 m, y) t
CLI
, y1 \" _5 t+ S/ a0 O2 U* ?3 i% l
5 h) [# I( ~/ o) x
NmiNormal
) J3 u9 ^: P2 M1 y5 s' G/ {/ a
% b; B h1 q5 v
;处理PPU图像/ q3 X- ]9 C7 P4 K: k8 x
JSR PPU_Proc
5 h; j0 p0 B% V5 H6 e
6 G4 J0 W$ d0 z8 u$ P8 D3 \
;写入精灵, 会占用516个CPU周期, 约4.53扫描线, 写入会导致1像素抖动(PPU处理徐优化)
9 X& Y$ B' F3 Y5 {! x
LDA PPU_STATUS
6 |: h3 d$ e- \" Y3 h4 T& w4 B$ w/ E. x
;LDA #$00
$ m2 @6 M8 e# @2 S* W0 D- S
;STA PPU_OAM_ADDR
|5 r O3 J E4 R- x9 ?
LDA #OAM_TEMP_ADDR / $01004 S: s( i& Y1 d" s) F* [
STA OAM_DMA
$ r1 R* M% O( O2 ~7 N' o
9 R! j1 ~2 ^% L9 U" P9 s+ B
;启用NMI中断
3 P* c7 K& o+ h a5 i
LDA Screen_Ctrl; r* Q& C1 p( q3 w: S8 u
STA PPU_CTRL! M% o* i4 `# B0 X2 E
, x. r% ~! I# ^
LDA <Text_Disable_Flag& N% a+ t# k; Z# \
AND #TEXT_DISABLE_RAM% M. D0 ^" V) }+ u+ d' ~
BNE Nmi_Sound_Play* n: l, i9 n. M% R: |3 z
$ w h [# F' V' k% p# Q0 H
;处理手柄输入3 ]; ?8 b3 H( Q' C
JSR Key_Proc
! [- }+ Q& l6 a. ?4 s. v& N3 `
2 | N: s. Y+ T" a5 g& m, B' i
;切换音乐(手柄触发)6 H# e' _& X- i1 C" Z
LDA <Time_Wait_Cnt
* n$ t8 U. H5 {# P
BNE Nmi_Cursor_Arrow
0 ]( \ z0 x+ z9 Y! d$ G7 _6 I
JSR Change_Select_Item
! c$ W/ D3 c. N! y3 \. l
5 i2 w9 z) }% Z
Nmi_Cursor_Arrow
) v! C( Q$ J& a1 R9 i2 a) @
6 Y" \* ]& s0 q9 Q! w$ C
;处理光标箭头4 K c; Q) ?; N/ |3 C, [4 Q
JSR Show_Arrow; ^. w k; \9 }& t
p- k! K* k' p: e( S
;更新调色板: D" N( i. B5 r* `5 i& o x* t
JSR Update_Palette_Data7 |7 O+ J$ t$ P% p- J/ A. x8 b
, O A! e# |& s+ T q
;显示时间(缓冲)
b% A# l- v; H7 F9 b u
JSR Time_Show
" F0 @+ x6 H9 A. \& z; ^$ k& D# @. U
0 a0 u5 B' ?) D! U, w" f
;音乐显示(缓冲)# X" z* O6 V' f, n0 k
.IF SOUND_BAR_SHOW_ENABLE
4 R' E- ^- V- V! I$ B" i
JSR Music_Vision- ?5 A4 T9 Q# ~1 r& U5 \ `0 O$ H* ?* ~0 E
.ENDIF
F: Q0 g+ G+ Y8 b2 c
& j! {* K( }7 v9 }
Nmi_Sound_Play) v6 O* Q6 K9 Q2 }/ c
;播放声音* |, c2 R: B. m' ^( d6 {
LDA <Music_Stop_State
9 y( W% K2 @, x# \ w
BNE Nmi_Time_Wait_Set
% C) B9 Q2 |4 I: a! ?
JSR Sound_Play_Proc! q# M* W: f5 y
) z/ K" z" e5 t: C' ?' n
;播放计时
, i$ L. h" c2 _' x; s- h
JSR Time_Count1 A0 f h* B0 D$ J D5 u3 B, g( U
$ c7 d# d; c( j8 l; v: t+ z: f+ ]
Nmi_Time_Wait_Set
- g3 m, A" }2 D3 @4 S' X* ?3 L
LDA <Time_Wait_Cnt# ~% i; a+ z2 p+ b n& B
BEQ NmiNormalProcessEnd
I1 ~+ O) ~* f0 r# C
DEC <Time_Wait_Cnt7 a' ]8 Z: R6 K% M1 U8 U. X( `
NmiNormalProcessEnd
1 N2 p7 K1 B+ v7 u6 M3 e4 L( @
2 ]4 w' ]1 N# T
INC <Nmi_Time_Count
) Z; f$ | _ u9 {3 S
) Q* {2 e- }1 W8 a: D+ S/ g4 ~% K
RTS: L+ a3 F& k0 ~$ A
9 D& w" Y' E9 @# t- a7 P' ^
;==================================================
& @* C0 l9 s, e% Z4 \1 x* K/ d$ `
Init_MMC3
2 X! ~; O# z. O/ X" U# _
;==============================0 _; [9 L! \0 }/ Y& G" a
;禁用IRQ
9 O& ~, B2 r9 F5 K8 r
STA MMC3_IRQ_DISABLE
4 b5 ^; ?% w8 C& l
* P+ L8 v* D/ y/ ~# p
;水平镜像
/ N9 |# O: h$ S; k7 y2 h! f8 s' J+ O
LDA #$01 R; }! _ j) G+ L; M
STA MMC3_MIRRORING1 L9 h1 q& L5 k0 r# A" z, h% d
* {6 L, w5 f" ? I2 U8 W; z
;初始化图形bank
7 j# W7 W+ ?. u6 Y3 H- a
JSR Init_MMC3_Chr_Bank
) N5 K6 k; m% j% s+ P7 K7 I
. D- A( \8 T, a, p# c7 i
RTS
' z) ~: l1 q, v* X' _& k. r W+ K
;==================================================
& A% a9 q# z; T* @6 v! c0 L2 c
ProgramBegin;主程序
. z$ [2 c7 P: e8 w) F
LDA #$00
, k, J6 \$ j7 r* I
STA PPU_CTRL
7 b$ O$ ?/ s0 d
LDA #$00, S) d/ X2 _+ G1 }# N: O5 U+ J5 c
STA PPU_STATUS! ?* C# {. G# L5 D" s
STA PPU_MASK7 `2 e+ N% h3 o* e* [# E/ u
STA JOY2_FRAME5 t2 N# T, A0 s' l5 p6 o2 C
- h5 N0 G1 _/ s6 X/ F: ?
STA PPU_SCROLL
9 h# Q* f/ {: M4 r( s9 H1 R
STA PPU_SCROLL) D" |7 b. J5 ?& T
1 U' I" Z, b2 u7 a2 s9 P1 k6 A9 @
;==================================================8 E: h( R5 h- e8 v' `, f
LDX #$FF
3 h: I0 Y+ s8 u# c, U, d( f
TXS- S+ k8 w* D6 z. [+ `
; [( |/ C' j: A+ K& c0 s$ R: K
JSR Init_MMC3* {/ @ ]) o# ~0 U- y( R6 f0 M
D8 I, k) s6 Z# J$ q, w9 O
LDX #$02
9 `1 k( C: i+ w2 J2 j: W9 v6 D, Z/ C5 i
Check1# F. S3 O3 w Y& [2 m, ?
BIT PPU_STATUS& D" \6 d7 e5 M7 j$ e+ V- w5 S
BPL Check1
, z$ u$ T ?( x4 y0 H
Check2
; u9 G5 w# N7 T! k1 [! D3 G
BIT PPU_STATUS& \: w# L% b5 }" ~/ o1 d+ q/ G1 H
BMI Check29 P( n8 `; p8 l1 f F
j5 C, t& S/ t/ Q& ^6 ]
LDA #$0F
6 P. W1 t( M; j# \' L( K) ^
STA APU_STATUS
9 o( f9 W/ K5 F# u L. m# o; ?
LDA #$C0/ ~" ]. B( z% }- x1 F9 _+ k
STA JOY2_FRAME
/ z9 A! [ t( ~! ^7 K& i
8 Y# g/ z$ j9 u' \
LDA PPU_STATUS
$ i. y. J( D) z: H7 Z' D& m6 i: O: \) u
LDA #$106 R' H R2 ~7 o
TAX; I- h1 u# F6 L1 q" A
Check3- V% N& ?9 k; C
STA PPU_ADDRESS
) B' @3 J. k4 o$ N
STA PPU_ADDRESS& L1 R, U% X$ \0 o4 E+ a0 e
EOR #$00
; A1 m+ ^& P& P. b" ?$ e0 ]
DEX* n, j! Q5 j) N& ~7 {3 M5 U' g
BNE Check3
. f+ N; V( @9 `3 p
;==============================. F- K6 C4 \9 `) c+ d
;调色板清空
6 P; p" p6 j. G4 Z
LDA PPU_STATUS3 ]: Z+ F4 F6 J/ f/ B! K
LDA #$3F
0 O8 V& \2 Q8 l) {' l2 g8 r
STA PPU_ADDRESS, H% g* G8 k) R2 W, @5 Y
LDA #$00 x0 ]% y! q3 g! H- r# G O+ ~
STA PPU_ADDRESS) H V, ] J) f/ j( ]
LDA #$0F
1 n& [# H" D! @( O9 n4 I
Palette_Clear9 V3 k5 h) T E. D% O2 q, I
STA PPU_DATA% D8 G7 M9 [2 k9 ]* X
INX$ W: a' _7 M' ~( R1 `. c8 J4 b
CPX #$206 }7 B. l8 I' I# s
BCC Palette_Clear' x# T6 @' w; a- W3 ^/ T G) U
LDA #$009 I$ C1 Q# `( _, P. `+ B/ ]
STA APU_STATUS
( Y) m0 n! A" \9 J, d
) O4 X9 p2 Y2 g" l3 l
;==============================0 _$ F5 B) _. F) M" y1 \
;RAM初始化
* E9 d1 \ g! b) P
RAM_Clear_All( p& d9 y* E. ?3 n
LDY #$007 G$ b% W. M. s1 N1 X1 c
LDX #$08
3 ^6 h: D" V" z% i; a
LDA #$00+ T- H4 e; N, U
STA <$00& Q6 x2 V# Q, H4 ^' N: `' X& J
STA <$01
I* l. n; Z1 q3 |
RAM_Clear_All_Start- E! f' d$ ]; J9 S
STA [$00],Y a9 H- t" T+ T+ f- z1 ~
INY+ x: S Q" y1 Z+ L; `" V
BNE RAM_Clear_All_Start
: B) ]5 {. |) h
INC <$01( e$ B6 @4 w9 Q* Z6 `- K
DEX
* J3 P! S# |0 P- l
BNE RAM_Clear_All_Start
5 x( b0 U1 I. d2 x# c) i$ I
6 c6 h4 J5 p7 s8 E6 n% ?! e S, c
JSR VramClear9 [; t! O. L3 d. c9 ]+ h
JSR VramInit
" M2 O5 c0 P# [2 A. g
JSR OAM_Ram_Init
4 A5 l+ H% M& k3 Q" \. k( Z
JSR Init_Palette_Addr
, J9 J1 V3 n/ {
$ v7 j4 {" [* a' r& T+ J" w
LDA #$FF
% _8 G4 \( Y' p9 w l
STA Use_Ram_End0 h8 g7 S' J- j
;==============================
3 S8 M6 ^4 |( q7 w% u/ t( j
;初始化背景调色板5 z. l3 Q+ |0 O
JSR Set_Palette_Color
2 \8 P4 Z! Q$ O/ o
JSR Set_NameTable_Attributes3 |7 ?$ Z r" ^) `
7 U" o5 @+ N. e- f
LDA #$00' }2 I- Q1 }. ^. v
STA PPU_OAM_ADDR
5 D2 y Z/ n- g) I- b a/ R4 v# p
LDA #OAM_TEMP_ADDR / $0100
- K9 Q4 ~/ J3 y
STA OAM_DMA
; Z; g/ B4 }8 \) G
8 L% l5 J+ L; S/ n# T' m! d; j4 _
JSR Sound_Reset_Proc
9 d3 ~+ d8 @! J5 }1 ?5 D. Z, T
JSR Set_Sound_Total4 R, x/ t g0 T
- i7 D4 C; e5 p, B9 i
Init_Start_Music9 v3 K& z o7 Q! m: u- u3 n
LDX #$00, }+ H Z' [: ~' s h- [4 S- v) {% S0 l
Init_Start_Music_Write
$ E9 w0 m8 y1 L# T) M
LDA Sound_Start_Port,X
9 w4 P8 {' S9 p* K! e# U
STA <Music_Cur,X
. K+ r2 v2 X: U) z9 z4 J
INX- M5 a! U7 R7 U+ m
CPX #ITEM_MAX_SIZE
+ W/ X+ {; ]- k W: }" |0 s
BCC Init_Start_Music_Write
\8 [, S O7 r- l, Q( W9 I
, k$ ?0 [9 t& w/ V5 b
JSR Show_Music_Text
$ \; P: E! K# r9 U4 c; A
4 Z$ O8 A' O1 C, d: Y
.IF SOUND_BAR_SHOW_ENABLE/ c, c/ l0 [5 n6 Z" C7 ^/ N
JSR Sound_Bar_Text_Set
" ~, c* v$ U6 ^) A
.ENDIF) h% a& F) T, i' {
0 z- n+ E( `/ {" S/ B& \9 x
.IF Track_Name_Pos0 k- I4 f* J" N1 c& @
JSR Show_Track_Info5 i+ }3 T$ T$ A9 g
.ENDIF
: z& v$ F* U4 l6 u. i0 {% t6 X
% r/ H" s- p# T- E0 C, m3 M# i
JSR PPU_Proc$ o; ~2 n% z; u1 O
8 v, O8 Y1 m+ X2 g- t4 u
;==================================================
5 S4 X6 D% a. s- N8 b V" h0 K% }
;音乐bank初始化 8 J: f# d, b# m7 p w
JSR Init_Sound_Bank
) V- h2 o; ~9 Q4 a' ?; u
2 N; Y: P: u6 x1 T6 M6 o" v3 D9 J
JSR Music_Show
e) o6 h. t. z) q' ]
JSR Time_Show) A0 A3 j7 f& J/ B W. J
JSR Music_State_Show" E+ d+ y5 T; \
JSR Time_Delay
3 g" b, Y% S# L4 K$ J
2 X, w* U& D5 t) V M" |
LDA #$01
& d: t& C( Q& R P
STA <Music_Stop_State& @/ R( c& V; z' r# j( z. \/ w
/ O4 y; I8 p) `7 u
LDA #$88$ i. {) s% w1 j* j
STA Screen_Ctrl
1 ?& C! ~; t, z0 i4 T, t# A( E% |4 ^- a
STA PPU_CTRL, k( w9 z3 [8 ?
9 u$ l1 q5 U0 ~0 ]3 I8 F
JSR Show_Page_Text
' G( S( L) B9 i2 q+ k
9 L9 p. n0 o( z$ B) y! z- z
LDA #$10
6 t# P+ e1 p; J6 p# q7 p d
STA <Time_Wait_Cnt
% Z. {! i( g, m
* |, k$ p% s8 L: `
Wait_Time_Over
3 J( F) B9 r2 z S9 E: R
LDA <Time_Wait_Cnt5 p8 a3 Y7 \0 J9 R. F" A+ w$ j
BNE Wait_Time_Over" I( C1 e* k! S6 M& l& m& h2 [
" |/ T4 [; ~, Y- E
JSR Show_Arrow9 ]+ G2 V& ^: W+ f g
LDA #OAM_TEMP_ADDR / $0100/ X% j9 \ S; _) `9 |2 V9 b2 n, @
STA OAM_DMA* s% a+ J3 z$ }6 P
3 a/ r% r) v4 o9 O) ~( U( X
LDA #$1E
( ]) u3 w; N& t7 E4 m
STA Screen_State
' R( C2 Q2 _- `$ v9 q. b2 {) i
8 L r; L) P. P; b7 U
LDX <Music_Item_Cur/ i4 Q* x$ r+ C& C. O4 E
LDA <Music_Cur,X
% ^5 X/ M% h; Z; V
JSR Sound_Init_Proc
# R! C, m: o1 M9 l
I$ }( E3 t+ N4 c' D* @8 g* E
CLI
: l0 U' M P2 u
JMP MainLoop
5 o# _, h* s# N% L+ Y0 V
v* t, B. N4 D- ]+ B, Z9 ]* Z3 k
;==============================- r: T F+ o ?+ X# u" y/ f
Time_Delay;延时等待' V6 o, J% g; {. M1 I3 I
LDA PPU_STATUS$ {6 h0 _0 y) Z, f7 |! c, j/ C
BPL Time_Delay6 D" m) T# Z) O* j
RTS+ b4 `0 t: ~1 B# y3 \2 N
* h8 U; t$ j& a! w- o, }. D
;==============================. Q8 [# F8 P) S; c7 a
OAM_Ram_Init;初始化精灵内存
# d) x! H8 L% s# Z: G% r
LDX #$00
* X1 a' F6 a: w1 c# I
OAM_Ram_Init_Write
) n/ p2 H! n3 _& z
LDA #$F8
1 F; V& o+ i, j4 e
STA OAM_TEMP_ADDR,X* U# h# J9 v6 |+ z8 u+ k" D9 J6 U
INX
7 o# c7 J- G3 y( C1 P: p' @+ N
LDA #$F80 }' v- l9 V6 Z* d/ y/ e
STA OAM_TEMP_ADDR,X X% l4 Q* S2 q$ P! u2 ~7 Q0 V4 p
INX
4 f) H2 ^# @$ d* h/ X, X% {
LDA #$00
# A; L/ C0 ]- @5 r# _5 }. e
STA OAM_TEMP_ADDR,X
2 b$ X( x1 t/ I3 K P1 P9 @
INX
4 A1 k8 Y# q$ z4 i8 Y- X7 i
LDA #$F8
. |3 l' s' u, Q" c m X7 o
STA OAM_TEMP_ADDR,X
2 d: Z4 o$ ]6 w' i9 @
INX
0 p# W9 u$ ~9 b8 p% ]8 @
BNE OAM_Ram_Init_Write% F0 w/ u3 l- @! K+ z- E2 f
RTS% x, z( ]' H! i; L
! w4 |1 h+ { M- [, L( T4 j/ z
;==============================
$ B, L2 ~. c8 T7 W
VramClear;初始化图形内存2 l) m; N: j7 S' Q9 e
LDA #$20
5 M8 P( n; d L8 X- k
STA PPU_ADDRESS
$ ?; K2 j% j3 p' z$ b7 A
LDA #$00& E) E& p4 c9 ]( _2 P. H' l
STA PPU_ADDRESS. E! l8 z F: I
LDA #$00
: \9 w9 @9 ?3 S6 ~" G# R1 }# Q; y
LDY #$00
. r' m2 l* ^% `
LDX #$105 T- |3 U c4 k
VramClearWrite
/ R( p6 x/ Q# P6 {$ b
STA PPU_DATA2 E! A; U4 }+ a* G" V& `8 ~
INY
/ d$ G4 a z% s3 \# z8 O( i/ _
BNE VramClearWrite5 Y% i" ]: _+ i
DEX; C2 |& V& ~- V- J
BNE VramClearWrite
- o5 H$ A9 F6 R* i
RTS
5 `" \$ o* b$ g6 ~
! k/ Z$ d. b/ `1 v" T& L
;==================================================
/ D1 q) _- h& h& X7 T! ^7 U$ l
;设置MMC3图像bank
# l0 M( @* H& K$ _- G k% @1 b
Init_MMC3_Chr_Bank$ E+ I$ A# |( {6 k. b
LDX #$05
3 q8 K+ z" n/ U$ J( s# F5 J: o
Init_MMC3_Chr_Bank_Write1 B- E: k7 Y3 G6 L
STX MMC3_BANK_CTRL
' }9 N/ l" h0 {1 T' I7 L
LDA MMC3_Chr_Bank_Data,X
J; G( d9 e; C" i) O4 s
STA MMC3_BANK_DATA" ~. ~: P ?" B; h# ]8 u8 D5 y+ d
DEX0 H t; n; @7 c# |) `) p. {1 a
BPL Init_MMC3_Chr_Bank_Write k) p7 u2 o9 x( C0 \+ T% x
RTS& Z& K, ~: M$ u& W4 o
;--------------------------------------------------( p! R' i0 i* n, s" z, s9 c$ I
MMC3_Chr_Bank_Data' A: p0 P/ B8 C: L3 V
.DB $00,$02,$04,$05,$06,$07& l7 W3 o! q+ Q
5 ]# K0 [( m" Q! e# c5 |
;==============================5 U4 u' Y, T2 C; l! c: L! J% l$ @
VramInit;初始化图形内存2 K7 f" I( z" e* x3 `
.IF CHR_RAM_ENABLE, ?" r1 ~6 k8 A/ O: a. F
LDA #CHR_DATA_BANK S; ^. g8 y. f, g+ L6 L& h ]
JSR Switch_Bank_A0005 c0 d- [* G0 f8 [$ F9 s3 H7 A2 X/ @
LDA #LOW(CHR_DATA_ADDR)4 Y" [6 h% w& X
STA <Data_L$ ?7 F4 I# c1 [# O
LDA #HIGH(CHR_DATA_ADDR)( n4 ]6 u! k2 {2 }4 Q
STA <Data_H
% q1 C" U" e8 R- {% P9 s( U# x" r
LDY #$00
8 S/ c, [2 O+ a
LDX #$20
, z0 Q7 T7 @/ @: Q
LDA #$00* w6 i! W2 B A9 `3 s+ y5 \
STA PPU_ADDRESS) U5 n2 Q: p! \9 z) l5 }3 d. K
STA PPU_ADDRESS
9 D& S& J' T6 N% p; a( ?- h3 P
VramInitWrite
7 Z9 \ w1 i1 h' V% H% L1 D, z
LDA [Data_L],Y
$ ` v8 V* i5 r6 q/ z
STA PPU_DATA
; e8 h2 Z6 |# P+ ]2 d
INY+ W5 M n" w& s/ ^5 c
BNE VramInitWrite& x, Z: o- ]7 V$ m `9 [7 r0 H7 C
INC <Data_H/ [/ f S: J3 {. Y) ~: l; E
DEX
# j# N9 N# P. `* x4 e' f
BNE VramInitWrite
2 l5 }& v: U8 |* H( c
.ENDIF& \2 v( O* k* h! E0 g
RTS/ Z, @9 {" M/ s$ ~, G; U, q: v, s H* J
# y- }' |8 B4 m7 W
;==============================
5 Y' Z4 {1 y% X; |) c7 ^6 l
;音乐切换2 L7 u' v! W$ b5 l
Music_Play_Change
( M; x% t. q8 r% i3 ~& P2 U
LDA <Key_Once
6 Z$ [! n+ D: q0 p
AND #$FF# Y* T |; G- M. S
BEQ Music_Play_Change_Check% ?. C; K0 v8 B) [" y
, c; f f% _0 Q: \) h: o4 E% T) M
;禁用音乐条刷新) j, s# m/ s' t1 E" w" I4 g
LDA <Text_Disable_Flag
9 f# z3 n! |* |, y& J& o H' E
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME
9 \( r" }# `1 v6 u
STA <Text_Disable_Flag' G) y8 U* i, F% b+ G2 ~
1 {! s) D* D- Z: m# T/ o% @
Music_Play_Change_Check
! }4 S s, U6 n! q: w
Music_arrow; h! x& E8 T- |' X6 @
LDA <Key_Once! ]. B/ v( s' k+ i- |# E
AND #$0F
3 z# N! p8 I) e
BEQ Music_Play_Change_End
: G$ ? C/ |1 b; e4 s7 f: \% I; i
JSR Music_Track_Change, I8 D1 } r, a1 _: e
JSR Sound_Reset_Proc) k. f% F* j9 P
JSR Music_Show0 z! I7 x: c& P
Music_Play_Change_End
9 e8 t) {# U; x8 v: {
RTS
0 Q* m/ E! A/ Y, I
8 G( S, j4 V3 | D0 |+ H _
;==============================
& i3 X# r5 T& u% r
;音乐曲目切换- N5 f4 s: g' E c5 S) ~2 R
Music_Track_Change0 n [' f8 s; {9 _
LDX <Music_Item_Cur
7 n: g- F) O$ e% N
LDA <Music_Cur,X
# l7 W9 N2 {1 }1 l$ I
STA <Music_Last
0 Z" `9 x, b% i" d6 I5 R! V
Music_Decrease1 P, ^* v" q' f2 T# Y# I& X0 G
LDA <Key_Once
, y! k# o! X; n3 o
AND #$423 {5 T' w) m1 ?
BEQ Music_Increase
; r3 {/ b1 z. B2 Q% v5 r
LDA <Music_Cur,X( I U' v5 ]8 i* a
BEQ Music_Increase
: D0 P- k$ E; ?
DEC <Music_Cur,X
9 V7 [( v* {! r- M6 b! N1 D7 v) L5 N
Music_Increase2 a- L3 [$ N9 }* E
LDA <Key_Once6 s l# S/ J/ U8 f
AND #$81
: Z. \; O. Z3 F# R
BEQ Music_Decrease_10
) f, I0 K8 @2 y; b: t2 _/ N
JSR Set_Sound_Total
8 t. K' c8 A# E9 m# T
LDA <Music_Cur,X5 {& z; p2 o$ L+ ^# ]( m( b. X" Y
CMP Music_Total
8 Z7 s) M! X" X, t, [: t A: Z% u
BCS * + 4. E% k& S. d+ V3 [6 J
INC <Music_Cur,X9 d! r, D+ o' m$ G/ P+ U5 K0 J8 I
Music_Decrease_10
! e9 o5 [3 t' x$ x
LDA <Key_Once3 G: S& O' M$ o" c; ^" d2 j
CMP #$04* a+ O% W' v5 _0 a4 g) w. R3 }# I+ J2 T
BNE Music_Increase_108 m* P/ r7 a2 V6 K% `1 n2 j: O
LDA <Music_Cur,X
. ]) p. p+ b8 n
CMP #10
6 b4 i p. ?: U9 Q1 e
BCC Music_Start_Song_Min
5 h: }: \5 N/ a O0 N" v/ N
LDA <Music_Cur,X
: a& T' b2 r2 t. K/ b0 ?
SEC
5 a0 U) _' U4 y' z+ g5 l
SBC #101 g) E# _! |, p- G
STA <Music_Cur,X
+ e9 R, s7 r. x, b+ C
LDA #$00( C- c# T/ \' G+ U
BEQ Music_Increase_10
' v+ O- C5 U2 o/ U \8 q' I) I
Music_Start_Song_Min
- Q+ h' w! J! T2 C8 \& K* O( N: [6 }
LDA #$00" j2 {$ g% @3 i
STA <Music_Cur,X
% _) G! Y0 d2 t
Music_Increase_10
8 `* r, ~; [' n6 E, W
LDA <Key_Once. p# |- j% H+ x4 e/ h5 ~
CMP #$08
/ f9 c* G. ^. N& L- ?$ i# e h
BNE Music_Track_Change_End" K4 I* g+ R/ M- A, ]" B
LDA <Music_Cur,X
; G0 _- e8 h$ [; y% E% _2 t9 ]6 ^9 r
CLC! l: H/ f. G$ ^9 I3 `
ADC #103 b2 U% I8 f! F3 r7 F! M
CMP Music_Total- n$ E: e- Y( \# [
BCS Music_Start_Song_Max
STA <Music_Cur,X1 t7 G: g7 R+ V1 w- ^" Z9 R! J+ A+ ~
LDA #00$ p h B V9 ~. n1 d8 v
BEQ Music_Track_Change_End# q) U" Y" Y3 F) j
Music_Start_Song_Max
* S; ^1 O, v1 X$ I" f
LDA Music_Total
: j. [7 \8 o" C( w0 Y8 [
STA <Music_Cur,X* @$ v4 F0 h- R( [5 G
Music_Track_Change_End5 j9 T: K4 D5 k, y4 ~" e/ k
RTS2 c: n2 G2 N8 K# [6 L
& C k: r4 N6 \' q8 Q6 A
;==============================; b! g; c6 g" z" e
;按键处理: M( P9 |3 s) Z) _+ Y5 \
Key_Proc
# X1 J- F0 v* J; {$ ?) S
JSR Key_Scan. y" Y2 |( b" t+ i2 _" N0 k; P: J
LDA <Key_Keep
/ N; | z8 k2 E! H7 u0 I, h% g
STA <Key_Temp
9 _1 I% j( h) u8 t3 k* l
JSR Key_Scan8 ^+ d. j) Y9 @) }2 ]. `+ @. A4 @6 h
LDA <Key_Keep) j6 k/ V: t8 J6 g8 w1 L% r' [4 l
CMP <Key_Temp
- F) b1 e$ A1 \# z2 z' z
BEQ Key_Get_Once2 T: c! |! W o4 F
LDA <Key_Kemp
# y4 @9 v, F: F& o8 l& R i$ {% ?
STA <Key_Keep
+ b0 x. N9 j* D6 @8 c' {
Key_Get_Once
: m$ W+ ~- Y) L& Q" O! s
TAY; l4 X" r$ R8 M2 v5 n
EOR Key_Kemp' w' I& H6 {$ B1 t* j
AND <Key_Keep
7 z& O; A H i
STA <Key_Once" l6 ]6 l/ f8 h, s6 U
STY <Key_Kemp% b+ ^/ `4 p2 N8 o' |3 k
RTS% K- V2 y$ ?: u# \
;------------------------------
7 M2 F9 o) I$ u* ~
;按键扫描
" d( C5 e. g! ] _- T8 k0 H
Key_Scan
: }% r& w. V) h2 B( V m
LDX #$01' _% j( d7 ]3 M8 }
STX JOY1_FRAME
/ t7 q) [8 D# l; A
DEX9 c( L9 S# N( D/ Z
STX JOY1_FRAME
& u( N: ?& \# d L: d
LDX #$086 b% E0 }1 z& @5 H# v
Key_Value1 i" d. v1 G! e* n: c5 u/ a- ]2 w6 J. u
LDA JOY1_FRAME
4 x% I. q5 R& \$ a
STA <Key_Getv
0 \% a5 L" Z7 Z1 P9 T8 M
LSR A
6 ]/ Q6 T) m* b* S* Q* d" Q2 u
ORA <Key_Getv
, Y: P' y/ X$ f0 H9 Y& E) T
LSR A
# e1 a7 e' S) i3 d+ Y5 O+ v
ROL <Key_Keep$ d k- p, ?; @
DEX
3 C, }. X; Q! n. t
BNE Key_Value0 m* i3 ^5 e8 L( e
RTS
( Q4 b- \5 T6 i/ F$ c7 i
* G4 H$ m; |6 N& F
;==============================
6 o, j }$ M; C% e' W
.IF SOUND_BAR_SHOW_ENABLE1 p& a. ?2 y0 Q4 M+ s3 p& d% g
;音乐条显示) [1 C) j2 e) B) `2 Y" G, g: T
Music_Vision& n2 b" Z6 z! W# v1 b
LDA <Text_Disable_Flag
% V% ]6 |, }) f
AND #TEXT_DISABLE_ITEM
+ c+ l) [9 n7 I
BNE Music_Vision_End
9 l4 [+ j) Y& V+ Y! x+ F( L
AND #TEXT_DISABLE_BAR
# U& m9 R& ^+ X* K$ J0 W1 f/ }9 i5 j
BNE Music_Vision_Set
4 E7 f4 O1 V' E
LDX PPU_Cur1 h* z H9 m% G6 e: }
JSR Music_Animation0 d# [6 C. G$ {) l ^$ z2 V
STX PPU_Cur
* M, x |+ C$ z3 z0 x
Music_Vision_Set
) W* W2 x& z* T- i" {
LDA <Text_Disable_Flag) _4 p! U2 p+ c% t- D2 U" D. {
AND #TEXT_DISABLE_BAR ^ $FF
* X$ ^ Y; Q" f' {- f4 L: i ~3 k
STA <Text_Disable_Flag, `; T% ~# [. u6 x( |: j8 P6 Y
Music_Vision_End" s- l& y Y) |$ C) v: h) c
RTS+ B2 I+ J: W& @* |+ u
;------------------------------. |6 ]0 w/ i! c4 H! N
;音乐条显示处理# G$ e q+ e5 X3 k1 q
Music_Animation- V8 p# W6 m) [& [* c
LDA #PPU_MODE_CNT_LINE
* X# R+ L3 C6 h- t+ i0 a
STA PPU_Addr,X
9 a3 N& a p) v( c
INX) Z4 G+ `( f, Y3 c* [+ n) c
LDA #HIGH(Sound_Bar_Pos). q9 [6 T/ n9 g3 h% n
STA PPU_Addr,X
( n" w: @2 y& Z# |) D$ q ?
INX
$ c# n; x2 p |& \: J+ ?
LDA #LOW(Sound_Bar_Pos)
S8 M) u9 z4 G e7 \+ u* {4 O# p
STA PPU_Addr,X
& l5 y; q+ f% [% s' m8 `
INX
1 z; ~: {" J' m
LDA #$08
0 s, J- j$ E) I2 o0 c: e$ Q9 J& g
STA PPU_Addr,X* X5 K! W" O$ n
INX* u7 U; k5 Z- r+ A
LDA Sound_Bar \ U M; L: d) p' C; c, m
JSR Volume_Convert
* y! m: n9 i, K4 z
: x# P* W7 [ a& S8 Y; z
JSR Volume_Set_Cnt5 V# W# x% @& N' Q+ \& `: z( c1 l* k. F
LDA Sound_Bar+$45 W4 E! ~# y7 q0 |; p
JSR Volume_Convert+ B4 e# M+ `, J1 _
& K/ O- W; d* H! w# t" k0 ?$ O
JSR Volume_Set_Cnt% p: V/ E$ I6 h! _. q: Z7 G. K( {
LDA Sound_Bar+$8
& c" E/ C$ V( ^% T
JSR Volume_Convert
8 v1 o3 A% k4 V: a5 O5 o* ?- \
! ^1 H. Q$ e. g, U( t+ l
JSR Volume_Set_Cnt- \4 o0 b q, J
LDA Sound_Bar+$C
% z% X. m4 p( c7 y5 E6 n
JSR Volume_Convert
7 @3 q2 R7 j$ \% Y U2 e
& a B; N- n* a" q" U. B
JSR Volume_Set_Cnt
1 R; n% i8 I0 P3 y! P; `' O7 ?
" \% g: }9 K" m* X9 s7 Y1 k
LDY #$10
! B: M& j4 c8 h
LDA APU_STATUS
& J) G) i( ?, @
AND #$10
2 e1 v& H# q3 k1 n) d
BNE Volume_Count
7 |3 K5 `: l" d4 C( ]4 e
LDY #$00- ?9 L8 v! Q/ z6 b' v7 m" M
BEQ Volume_Count6 d7 X4 ]4 c+ f8 H$ c$ c1 x2 F# {
5 B7 m+ W" d9 g1 H* h: L7 K
;------------------------------5 ]0 ]! D$ G* M
;音乐条处理
) r, I5 v8 e* t6 Q \
Volume_Convert: Y0 \8 p4 k' Y( N" G, s
AND #$0F9 t6 S$ E8 u0 P, ?9 L
TAY
2 p) @1 N8 _/ m' n6 c* C+ q6 r
Volume_Count3 G/ Z2 P% ?% `+ ^9 M6 t7 x
LDA #$08
0 [. y- D" q, b. _9 ]8 [ x; P' T
STA Sound_Bar_Cnt
% `; _. x- S; G1 S( ^
Volume_FILL
" J# V; h5 @0 g" Q6 ?7 b7 k* t7 ~
DEY
; m: E5 U2 a% F$ \4 ^, j; P
BEQ Volume_Half
0 l9 r: X& z) p5 r
BMI Volume_Empty
) x( m3 z) x( Q! V# A. [8 c/ e, _; q
DEY4 O* t1 f; q( ^1 y0 G2 d
Volume_Full6 J% Y2 E5 r0 e, [* q# t4 \- `# ^
LDA #$16
8 c$ n9 z, V; L7 l4 g4 h
BNE Volume_PPU! G, m5 o& ~1 h9 Z* V
Volume_Half2 J- x* e9 \6 e7 C
LDA #$15
5 C6 I& [: M @5 j y/ o4 b. W
BNE Volume_PPU: @% R: {/ d! q9 u
Volume_Empty- h' N8 L4 L2 n/ K* N
LDA #$14. x3 C% }: A5 s0 R$ p
Volume_PPU, t f9 V% \" y2 G
STA PPU_Addr,X& S8 Z1 P, f* h& W; n
INX
. t1 [8 y9 ?9 j& o o) S
DEC Sound_Bar_Cnt; n& f( b# l; _$ S& c- O
BNE Volume_FILL
- T+ M' o4 U* D$ W# k, \; V# ^9 c8 A
RTS
0 A+ }, _ j" H* H, H& Z
& D. l" N1 T* y$ ?
Volume_Set_Cnt- {; f; V5 I$ D6 c
LDA #PPU_MODE_CNT_LINE_NEXT
H" y# [" x; ^- K5 x
STA PPU_Addr,X2 q9 c1 @1 H- ]! N) o( B. u4 Z% p. i
INX0 t. \ u! x# t
LDA #$08* }, S$ q L( }. t% }
STA PPU_Addr,X. G9 E: A: Z6 C: x S
INX
# _ a# L; J. B
RTS) A% x3 h3 O" Y5 N @6 C2 r
) H- ]! [* J* b" o: b& f
.ENDIF, ~' {; [4 p4 v+ ?/ [4 D" Y& Y: _
; k* O. N( G5 ~
;==============================
# N2 K5 H0 {' N: \6 _( Y# C
PPU_MODE_CNT_LINE = $FA ;行计数写入1 T8 L+ i. T2 G4 F3 }
PPU_MODE_CNT_LINE_NEXT = $FB ;转下行计数模式: ]. N) I! v; z- h
PPU_MODE_CNT_CLEAR = $FC ;行计数清除0 Z% n( X; v8 y; N- L; e/ l6 l% _
;------------------------------3 R0 H% |' V1 N6 E. p5 W
;PPU处理
) I8 t7 O' E( Q
PPU_Proc
0 {3 c. B' m5 M( Y2 J
LDX PPU_Cur2 Z( [5 Y- b$ t5 ]5 l0 r7 W3 N; M
LDA #$00
+ \7 l/ x6 u! v( ?* J, R
STA PPU_Cur- D& m9 x5 Z/ L9 d& _
STA PPU_Addr,X+ `' g/ D9 e0 @0 @- R* p
LDA PPU_Addr
3 D. ]# D1 R x" p7 ~
BNE PPU_Proc_Beg' x' L0 { f/ Y' f* J0 ]
PPU_Proc_Ret# n! E* O9 s7 N7 O. u% j
RTS! M/ r' t; u( ?( u* F! [
1 P9 u* U" z( c: ]
;------------------------------
* y3 E& @ B6 x/ g& C% s
PPU_Mode_Return_Cnt ;转下行模式+ @& w& v2 N6 {4 B- |( L1 L* m
INX
' U9 {5 W/ K a. T. H$ x h
LDA PPU_Addr_L
* i# K+ r: d1 v) b" p
CLC
/ @6 `) C! Z* Z9 C) r! o
ADC #$203 z6 X5 S E* t
STA PPU_Addr_L3 C0 `' ^5 a6 [2 j8 L- M' w1 {4 y, I# I
BCC PPU_Mode_Return_Cnt_End
6 V: U# F. t; L5 u0 r! Y& [
INC PPU_Addr_H
8 f8 {" C* \) d' }* W8 Q* [
PPU_Mode_Return_Cnt_End
3 }5 X/ Y* \* @1 M! {
LDA PPU_Addr_H, E6 x+ t! I% g3 j0 w2 t6 @
STA PPU_ADDRESS
- s0 s# i( Z$ g. Y& K- i. t0 |
LDA PPU_Addr_L
3 P$ j6 ^6 z- l, M
STA PPU_ADDRESS1 P& P7 _! B C, X9 E; a7 l
LDA PPU_Addr,X! Y0 b" {7 u; i
TAY
. O0 ~& m8 w! f/ d5 U
PPU_Mode_Return_Cnt_Write
0 t$ ]' G8 p7 R$ \$ r
INX' k4 A: V) L5 |: }/ J) M' B
LDA PPU_Addr,X0 @, i" ~8 D. {1 X' T' r
STA PPU_DATA
3 a1 I, s( r& s2 x) \/ M
DEY8 M! [& {& g; V+ l2 i0 _- `4 n
BNE PPU_Mode_Return_Cnt_Write$ u/ `/ Q& ~: u' M# B
JMP PPU_Proc_End* x' r8 {8 Q! r% D* `
* g D o2 c% j1 D4 [: r' R
;------------------------------% |1 l$ o8 w5 m5 o' i; q9 j
PPU_Proc_Beg ;处理开始- Q! w# R2 Y* `. E/ z- |* P8 Y. J2 z
LDX #$009 [ Y1 g# l7 w; x$ q e2 S
STX PPU_MASK
, R2 U) E0 }/ f* I( R4 l
;------------------------------
1 F* S3 `0 @1 L, q
PPU_Mode_Select ;模式选择; K5 @* q. R) ~9 a* b, o
LDA PPU_Addr,X' Z% x0 A, d4 O
CMP #PPU_MODE_CNT_CLEAR: o. V% k4 w1 N7 V
BEQ PPU_Proc_Clear5 h0 J0 x$ }- m+ \7 q* f
CMP #PPU_MODE_CNT_LINE
# R3 J& c: N" P! ^3 r& g7 m: i* W
BEQ PPU_Proc_Cnt_Line2 d. z* L& h7 ^! d p/ X8 j
CMP #PPU_MODE_CNT_LINE_NEXT
+ }' X* [" m3 R' \* F% T$ O7 [7 X. h
BEQ PPU_Mode_Return_Cnt( y3 w' u3 c7 [' q7 A
JMP PPU_Proc_End_Write" ? U1 _- Q9 s* ` @8 C1 k" z4 B
;------------------------------, C, X6 N- ~- |) m
PPU_Proc_End ;单行写入结束8 T1 d$ r+ I8 d
INX
/ w& A4 J& _) f
LDA PPU_Addr,X$ W7 X' y, m# V* o+ |
BNE PPU_Mode_Select& N ~3 x p8 l1 G q
STA PPU_Addr) H/ \; @1 N6 a6 a, F a
JSR Update_Palette_Color% e1 A. R4 ?! `% H0 s+ S, g. Y
2 ?2 h1 ^0 T, I, l7 I
PPU_Proc_End_Write% X8 x9 X2 p# B0 o+ A) W# K+ _
LDA #$00# @; x0 }9 t' f
STA PPU_ADDRESS
1 Y8 H9 y, e ]+ ?0 c
STA PPU_ADDRESS4 r+ c) q- J7 G
LDA <Text_Disable_Flag
! l- t$ q: H- B
AND #(TEXT_DISABLE_BAR | TEXT_DISABLE_TIME | TEXT_DISABLE_RAM) ^ $FF9 x" Q" Y* L+ l
STA <Text_Disable_Flag/ e. f. I& f. B- {) n# [! D( K9 j" ^
LDA #Scroll_X# ]! F$ t% b( ^& F. ?
STA PPU_SCROLL5 [7 U1 \: S9 H
LDA #Scroll_Y9 z0 Z, g) f9 H1 x$ ^ ?' C' h4 b
STA PPU_SCROLL
" C" Q. s. t" B( E
LDA Screen_State
0 w& E, W+ p9 I
STA PPU_MASK7 S( w4 ^5 E; ~
RTS
) F4 r" {/ W+ b8 d
" X2 s8 r' S+ M; s
PPU_Proc_Clear. w" E' H) `& C! ^* c' t# t1 }
INX
2 a R$ s/ N. u. s7 A
LDA PPU_Addr,X
, A) G* ~' P5 A# U
STA PPU_ADDRESS" X; O; [6 U) l1 J
INX
/ h* c' ^8 `% u8 P& L0 u. M
LDA PPU_Addr,X' G# j, N0 L% a' O$ ~- K
STA PPU_ADDRESS% Z. ~4 ]* A! t
INX. W$ t a" p+ n
LDY PPU_Addr,X* _0 p Z; Y, ?0 R6 o+ {. I4 a* G& s
LDA #$00! L' f, C' S; l n$ w* `
PPU_Proc_Clear_Write
% g! u$ t: i6 h; B& G6 P. f, x* a
STA PPU_DATA5 }& t- D# v3 s2 q( X& H4 u
DEY
6 h0 \" r1 ~- L9 R. J
BNE PPU_Proc_Clear_Write6 q! Y: P+ n1 v. W0 M. ]
JMP PPU_Proc_End. M6 Z* @3 b7 y3 y8 B
! U9 F7 l! g( a+ J
PPU_Proc_Cnt_Line& i& L3 Z& a% u
INX
. X( X/ ]+ F0 g
LDA PPU_Addr,X
0 ^' ~6 n) s! Q2 k
STA PPU_Addr_H3 m& l6 H* ]2 _
STA PPU_ADDRESS
9 I6 o. p/ e0 U
INX$ {& i7 H8 j \5 a
LDA PPU_Addr,X
1 {$ J! E! Y7 \$ S
STA PPU_Addr_L
) e5 E1 j2 U$ x# ]3 Z7 r. d1 a
STA PPU_ADDRESS8 U% [8 S1 Z2 ^# l9 @% N9 Y
INX
" I# @& c$ ]9 M& Y5 V
LDY PPU_Addr,X* `* \5 I& P1 ^! E. \: @$ u4 H
PPU_Proc_Cnt_Line_Write. s/ s" Q" s5 ]; l& D6 e
INX1 M" ~2 i N; w
LDA PPU_Addr,X
. c% I( W- N) H6 v9 `
STA PPU_DATA
* s- ]& S! L' c0 I' B: R- M, }+ r
DEY! {! u5 B7 x2 b+ A: C
BNE PPU_Proc_Cnt_Line_Write
* D: L) j) {6 w+ q6 T" A$ |( l
JMP PPU_Proc_End
4 b4 x! B7 @( [1 c6 z
1 `5 I! H+ V/ _5 e3 j
;==============================- z& k: n+ G) G2 q) X
HEX_To_Dec;十六进制转十进制
5 g( a$ E) C( o+ `$ E3 b; s0 A
STA <HEX_Data
1 @8 D! O0 q4 f s
PHA. x0 R1 F" E% B) e* i
TXA
8 j2 t+ D. X' h. ^ x0 S
PHA$ R5 G- ]' O6 ?/ S R' w
LDX #$003 [3 E D" \9 j7 W. C# R5 ~9 k1 x
LDA #$00
) G* r" L& h1 C+ O
HEX_Cln9 ?" h O3 l+ D: }: |
STA <DEC_H,X" q, z7 {% @* x2 K1 N) ]! {5 y
INX
, K' G/ W* c, ?4 J
CPX #$03
. F/ \% z( a; g( |2 f, I
BCC HEX_Cln
9 d- q2 t9 S) m X" Y2 h, j+ K6 G
LDA <HEX_Data
4 F/ ^! A: t6 @2 h7 s
;------------------------------
$ Z0 b% K$ q( @3 s
HEX_1005 ?+ Q% ^1 q' n
CMP #100
/ y. O; `' H8 C
BCC HEX_10# g( u. z4 z9 X
SEC+ |) y: i8 P5 T% Q
SBC #100% f I( r$ l* | T* T& T U5 R/ [- r
INC <DEC_H
7 B [& s" h+ d1 s1 {! {
BNE HEX_100
; Q. [9 b* r$ v3 o3 W3 E
;------------------------------! X9 w+ e# y; g" G4 K
HEX_10
4 X2 v9 t5 z$ Q% I3 d
CMP #10
( G. }) T0 C8 x+ a+ |/ F
BCC HEX_1
/ ? q M x! C% ^
SEC
4 a& l: ^1 [: C
SBC #108 ]' g6 Q, J5 x7 W! ?( S2 I
INC <DEC_T* w; B5 R' c7 r+ \ @3 T8 A% A
BNE HEX_10" w( ]/ ~, r; ]6 B1 }) \7 O k
;------------------------------/ @5 i! W7 N! G* y& Y7 B' U' L; h, r" {
HEX_1/ L3 h4 B% _) [7 J
STA <DEC_L
/ K( I5 _9 H" l3 h0 V% ]) m
PLA
$ l9 V$ R, K! }" m
TAX
6 P, d( u' d1 T) H+ N5 n+ V" L
PLA% h) D( f1 d8 v$ f4 P" _) M
RTS9 t7 h# J1 D& p( }$ y/ o5 {8 j
/ M- Z9 ~* k- Z& _/ u
;==============================
! ^, c9 s$ r" e5 `6 t0 P
;音乐曲目显示
" r0 }& _" e2 Y7 g
Music_Show
, E; J' u* X* P% P) |
LDX <Music_Item_Cur
) g* O; S3 w6 V" f
LDA <Music_Cur,X9 f4 G$ ]1 B7 |" [
CLC
- i$ P1 w) |. P9 l" }+ F0 _
ADC #$018 V1 K5 D, }5 l: H3 j1 V
JSR HEX_To_Dec" p; Y" C- \9 Y* K, M
LDX PPU_Cur6 y; a- t; {5 f6 A- ? i
LDA #PPU_MODE_CNT_LINE) S9 M; n* D" y8 u" {6 F/ l5 J
STA PPU_Addr,X( R! q! l8 Z. s6 G
INX: _+ @& w" R( E. I* Y
LDA #HIGH(Play_Index_Pos) m* d) z% P2 i6 b/ ~& P
STA PPU_Addr,X
+ }; I2 c+ s( c$ _6 {
INX% D) Y& o1 Q2 Q! V
LDA #LOW(Play_Index_Pos)
1 r1 r! j5 g1 R: _! A
STA PPU_Addr,X
9 v5 G( V" u& u! e
INX7 T8 O8 Z/ w# c
) v& V$ S7 v# v
LDA #$07
D( m( ^* Z# ]: A' w, N7 T( }
BNE Music_Show_Length/ I+ t1 p" x8 h/ k
3 ^( w7 X c- B
Music_Show_Length
4 K1 m$ m. Z6 X5 e" \" G% C& I4 t
STA PPU_Addr,X
% \% T, }8 r# Y3 e6 o2 T
INX
4 Q- C* j" G4 h! p; |) |# X
1 x/ s$ q m2 O+ I6 m0 X0 ~
LDA <DEC_H" D0 i* x+ s" S" c' H I
ORA #'0': N( n( }. ]5 Y. ?1 Z% x
STA PPU_Addr,X' P+ o: [6 x! i3 N; f w
INX
0 M7 Q' A8 D0 H" R/ l* ]
5 i- [% E; X/ p f9 e
LDA <DEC_T
\# @$ f; g, `# q. U
ORA #'0'3 @; S4 X* D1 l4 X1 b# _- Q3 s
STA PPU_Addr,X
/ C0 d4 k* u t+ `2 ?/ A
INX4 c' L" `- w; V
5 o! E" @) q; v( Y
LDA <DEC_L
# K. P% u' _' o% q! X
ORA #'0'+ T; {$ N. Q' s; Q0 x+ f* _/ L
STA PPU_Addr,X
( F9 f/ d. B% p. p! W8 V; K7 }
INX
* {7 j6 E, K) Z+ e8 `2 h- s
7 \2 E; W7 G I/ \( |/ }
LDA #'/'
- \) \' U6 I9 f
STA PPU_Addr,X
% a4 R1 N! J" P+ o- k5 E
INX4 ^& s$ m/ Y9 N8 H5 q( F' N1 d7 S9 {
Music_Show_Total8 u, B! F8 S! c, k( O: g' k' t9 L1 ?
LDA Music_Total4 I4 S8 k- T; Q+ y" D
CLC
# F" Y9 R, G9 s$ \' X
ADC #$01
/ x" R0 \4 x8 W; P# ~
JSR HEX_To_Dec
& V8 P( E7 [) T/ j2 d
9 s R. m! |* x
LDA <DEC_H5 C* \6 e7 w) _$ N% ]; d
ORA #'0'
2 [ B$ J% ^4 f/ Q9 V* \! ]
STA PPU_Addr,X- d6 R9 o6 Q H
INX' e* p: ]+ }, ~+ o
5 R8 q* X- A2 X5 g- ~: \2 @! e1 T; Y
LDA <DEC_T
/ }, g! ~6 u6 U+ ~) W: j. i
ORA #'0'
- Z2 `0 ?) g7 u
STA PPU_Addr,X4 x; e& v5 S- _, n
INX
1 U! a1 ^, d, I# f
. m4 J% `! o. U: z: D
LDA <DEC_L0 y$ ~# [9 _. F/ z9 V9 ]9 C6 ]
ORA #'0'
! |# D. K5 w# ]; A4 I
STA PPU_Addr,X9 |0 P6 ?% K+ R; d" N: ^. \2 C
INX4 ]5 I+ D3 g4 ?; d6 E
& S# _9 E' b& C7 |. X8 U
STX PPU_Cur
+ |! b' F% F: t
Music_Show_End
6 g6 y) N$ y* B! J/ ^
RTS
( c4 m0 o" O, B7 Z" p' ?) T, u
% e- X4 C& j7 \
;==============================
% `0 ^ q" A" K
Time_Show;播放时间显示
) F+ A. H3 s* K: R( s, [+ z
LDA <Text_Disable_Flag
8 n8 m, O0 O! U$ ]5 ^( `8 z, |4 v
AND #TEXT_DISABLE_ITEM
0 S n$ t8 h6 F7 {
BNE Time_Show_End' R Y: t4 d& C; J
AND #TEXT_DISABLE_TIME: F8 a, P, t$ j4 w8 y9 K0 f% g i
BNE Time_Show_Enable0 h0 p6 ]. T$ y1 _3 M- F7 \" {- I' l
" z4 H0 I# R. e7 x0 }
LDX PPU_Cur
* U7 D- O& {) m9 _6 d
LDA #PPU_MODE_CNT_LINE$ Q% {# ^; ]0 b% W
STA PPU_Addr,X; O, _ Q) n/ [6 l
INX
: N v& b/ s; j) Q8 @( @
LDA #HIGH(Play_Time_Pos); C: C& ?+ v7 Z
STA PPU_Addr,X
$ Q3 g, D' |5 w
INX/ I2 C' i+ A$ s$ }- i
LDA #LOW(Play_Time_Pos)
/ i+ T" d; L- A
STA PPU_Addr,X
( G6 k/ W, E4 B' Q+ Y7 i6 s. m
INX" C0 C7 K3 ?1 m7 X: Y C$ h
LDA #$08
) k- k2 s4 u! P9 h
STA PPU_Addr,X
9 J' ~' w. V6 }- q3 V% q
INX
' G1 i. k! K* j2 r( Y" r7 A% x
Time_Show_H
; u: ?$ m" v! s* l& a
LDA <Time_H
) i! ^- P8 m% f$ p2 q; h
JSR HEX_To_Dec4 F$ e; e5 b6 j
JSR Time_Digit) c. K S7 |7 d
LDA #':'
& c/ `+ k$ B. e
STA PPU_Addr,X' b( n+ H- X3 |4 b& D9 T% \
INX* i# L$ s. D7 {' M
Time_Show_M* x/ O! ]9 U6 {
LDA <Time_M
& O" K1 Q" @) b6 @3 l0 z
JSR HEX_To_Dec! ]# g- r5 d% A- E, f/ a
JSR Time_Digit
$ Y" z5 ^+ P# k% ^% r2 }
LDA #':'
: q% G7 j3 B. g( V( Z0 p
STA PPU_Addr,X
8 l. `- D, h; X3 ]8 Q
INX
4 U; o: S# J1 b4 c! ~, ^& G: C
Time_Show_S
% K7 w i2 T$ _& E* p. b Y
LDA <Time_S
$ T) n* Z! w( k! k/ m! o
JSR HEX_To_Dec+ I2 m" G8 u2 r! l2 W* [. J' {: X
JSR Time_Digit1 L7 H3 v+ d* p, b# T
STX PPU_Cur% T; h! w% H, y/ I
Time_Show_Enable. u8 j: e6 t1 y4 u3 u9 y
LDA <Text_Disable_Flag$ @. j2 m1 S9 T4 z
AND #TEXT_DISABLE_TIME ^ $FF
% u, v/ K2 c+ K9 U d
STA <Text_Disable_Flag
. k" q; S; V1 A4 A
Time_Show_End
% a! Z# _5 N/ e, I3 X6 s8 B/ `1 P% B' @
RTS
9 ?# Y& g0 B# X( U" R: {0 _
% D# L0 H+ U% `" N
Time_Digit
3 q0 n: a& A3 ~+ R
LDA <DEC_T
7 q, R9 [2 w0 p
ORA #'0'
5 S8 F) G1 h) m" N0 X* j' I
STA PPU_Addr,X
: y/ r, w7 K" y% ?
INX
; z9 E6 X- n6 h$ p5 c7 D' r" A4 P
LDA <DEC_L
& R+ A3 | o" A" p+ Q
ORA #'0'1 p1 F" A0 n" {* X
STA PPU_Addr,X, ?' |) w7 ^6 C
INX! C$ {# B4 {: b5 K- O0 H* w
RTS
, I0 Z! \% V" ?! O: [
# z7 A/ m1 y7 c, c
;==============================
7 D% Z" N6 P8 [9 _3 e7 @& Y) o
Time_Count;计时
8 s* v: V1 B# H$ A
LDA <Music_Stop_State
) W3 p9 Z2 g6 k- O& N
ORA <Time_Wait_Cnt/ ]- D9 Z/ ]) Q
BNE Time_Count_End
% @# n9 U2 d) ^" g: U7 D$ m- P0 w
INC <Time_Cnt
3 @5 A$ m7 o+ D$ S) m* ?) b
LDA <Time_Cnt
/ ~% R$ {( ^9 J: C7 s# o9 h+ G
CMP #601 K. C& |* P1 ~1 c' D1 @2 r' B
BCC Time_Count_End
& ?' V: o- w5 Z* |8 \ l( s1 m& K
LDA #00
8 o' b* _6 F1 F, l: x/ u( Y* M
STA <Time_Cnt1 i% ~6 I+ M1 q" v9 t x0 ^
INC <Time_S
1 j* i8 [7 w) ~' w& ^& g' ^
. V3 t8 c% Y6 S2 Q
Time_S_Cnt
8 U8 q. x0 Z b" s9 l$ E
LDA <Time_S
, K' C" N8 u$ w( B8 T& M: q& P
CMP #602 L( }4 [8 h& ]5 _2 l; J
BCC Time_Count_End& N: C! F; j4 t }; @/ D0 ]* H
LDA #00$ H& ?3 O7 c, c
STA <Time_S# A9 Q: Z& X$ w
INC <Time_M
0 I; Y3 a8 h! ?% K
/ _$ R" s g* }8 O, e
Time_M_Cnt" _3 U; D# {; R* m! m$ c. S
LDA <Time_M
5 I+ h$ b; |. }3 @' T: `6 W) o8 l
CMP #60* }9 Q3 ~; \9 b2 J0 }
BCC Time_Count_End, z% s/ t+ \4 C+ Z8 k" |) [
LDA #00
: J! U1 p0 v# p
STA <Time_M
, J+ z- [1 _; h# B$ K z+ [
INC <Time_H
$ c) u3 D/ M) C* w) y
+ N8 Y7 S' E7 @; i
Time_H_Cnt
# g9 ^( ?9 G6 M6 T
LDA <Time_H
$ S3 q4 N3 j' K2 }
CMP #24
: m7 ^/ n) m: p: j O
BCC Time_Count_End5 H9 I) N. g4 W: }( ^
LDA #00
8 S: {8 f8 G- X2 J. G& ~- z" j5 w7 R
STA <Time_H
3 b4 B, M0 N4 b! [8 ?: j
' N) h. x/ u: r; M4 _
Time_Count_End! v. g* B/ d+ C3 m8 h
RTS
; W0 l5 U2 X( \, ?. q1 f0 a
9 q& I% m; K; {7 k3 J' Q8 h2 E1 g
;==============================
) s3 Q; M* L) }% Q7 W
Time_ReSet;播放时间重置
7 K- [+ H. {7 G4 x& @" J
LDA #$00
7 s) q; w& D6 O& \
STA <Time_S
* h0 D- T& U: z2 R1 Y
STA <Time_M
5 H1 D( Q% `% ], I
STA <Time_H
" U5 ~, H( ~% v. @+ R5 j3 u
STA <Time_Cnt
% O4 V* W- V$ B+ G& r% W6 [
RTS2 R4 ]8 a) p% m% L/ n d' ~
5 w( p5 m A* V; m
;==============================
@% [+ A/ O- G) W" Y4 s
Music_Bar_ReSet;音乐条重置/ \- |, K, X' V( X- t
LDA #$00# ^/ Z) V. A& ^
LDX #$00
- u1 _$ H* x' Y6 I$ R/ L R
Music_Bar_ReSet_Set
% u! K8 p) z& [( Y9 o$ x. F
STA Sound_Bar,X8 P% B4 S& J8 W
INX
: h7 ]$ F% G) K8 H# G& C: M
CPX #$10
( y" t2 ]6 M: K, N0 Z" g
BCC Music_Bar_ReSet_Set( n9 b, E) J d- ]8 d
RTS) `+ o! w7 ~4 f& s# I
0 O5 i: L6 U! ~/ N, p/ K
;==============================6 Y( m: E- k# Z
PPU_Data;PPU数据写入* {! J& x: f4 M
STY <Data_L" c. x# e3 t0 I q# R
STX <Data_H/ a% Q m) c1 f. ~# [: j
LDY #$FF- k3 E3 ^' A! q/ q
LDX PPU_Cur
" ~3 j& ?3 ^! Y( v
DEX
! B7 ~" p8 z7 s7 h/ E$ h
PPU_Data_Beg
2 n' s& |0 Z/ a5 l3 S u, C
INX
8 d' t& K' n2 ]: i3 M9 ?
INY
+ B/ C3 D, B8 \& J. H6 W) v! c% V! O0 O
LDA [Data_L],Y2 i k, C: p' x: a. i. H; ^) A
STA PPU_Addr,X
2 [/ `% Y! Z9 p% r8 z
BNE PPU_Data_Beg6 o: m. A& ~( F* M1 Q; k
STX PPU_Cur
( N$ d# q" I! h
PPU_Data_End
/ W7 }5 L; ?+ _/ ]/ B* D" y( }
RTS+ c5 o# \. C7 a: n4 m7 b7 b6 ^' J; s
: L- f( s7 @# y& \1 Q+ Y- c
;==============================7 P* R) g9 W; e' c3 d
Music_State_Show;播放状态显示- C' o7 T% e' h/ k
LDA <Music_Stop_State; h' u" s1 o% z! f8 Q
BEQ Music_State_Show_Play- M/ t3 k. X( b) U# Y* b
Music_State_Show_Stop% ]2 L; S% c9 k; z
LDY #LOW(Music_State_Stop)( C- M4 E* H, U: ~4 `- d2 v! w
LDX #HIGH(Music_State_Stop) Q% w6 M* m( D7 l
JSR PPU_Data
/ f; K0 X6 Y- R) m; B8 L
RTS
, d4 Z% H v. a A
Music_State_Show_Play% |1 M: j% n3 i: g5 ~8 n1 ^% ^7 b
LDY #LOW(Music_State_Play)
Z# X# |& t3 k1 D0 n4 [: J8 r3 ^
LDX #HIGH(Music_State_Play)
2 c/ W- o- k5 V
JSR PPU_Data9 [+ Q9 j% L' e* o: \5 @. C& J
RTS' B3 d+ f# {" {
- K- X7 x% F) s' O/ f
.IF SOUND_BAR_SHOW_ENABLE( i2 |, K9 k$ T6 b6 G7 d
;==============================
4 j% K7 X. E7 u6 j5 q- d( e5 f
Sound_Bar_Text_Set;标题与音乐条初始化
& T7 e2 ?3 r: c8 `! K4 b
LDY #LOW(Sound_Bar_Text_Data)
7 y( ~! S2 ~0 }4 e2 L+ s) h& o
LDX #HIGH(Sound_Bar_Text_Data)" o' a& k& n D0 \2 [
JSR PPU_Data8 v6 O( C9 H4 S' K
RTS
# j5 S/ `7 E1 V: R- E
6 Q+ M6 L' [3 n# y: ~
.ENDIF
) D- z6 i! [$ m9 Y$ G; P$ [
- @( }* u0 ~/ H+ X. o
;==============================
: ^# Z- U& E' r+ R
Set_NameTable_Attributes;设置命名表属性
$ Y2 K0 X* k' Y% H" i+ J
BIT PPU_STATUS8 I8 l' k+ r; H+ _4 [, n
LDA #$23
' d2 h$ e8 e& ?- C7 q9 O
STA PPU_ADDRESS) I$ s& L2 v+ X0 y; |- s9 N
LDA #$C0 Z0 o! Q1 }6 h# r( j. v9 M
STA PPU_ADDRESS
: e6 m! k# `5 o, d y# T, f
LDX #$00
8 ^( d$ V1 R7 P3 I) ^
Set_NameTable_Attributes_Write
+ q4 ^2 @7 r g; d/ K6 S% ]* C5 c( x
LDA Palette_Attributes,X2 D0 N+ h" s0 V+ W
STA PPU_DATA3 j; Q) y. F( P) R3 |# u* _5 f, b
INX& n: P. H# [1 ~% f7 E7 M. s
CPX #$40# A4 V4 U/ K, q- }. v
BCC Set_NameTable_Attributes_Write
5 B+ d# d+ d+ e% r
RTS( D, N: |, H- E( @3 W- U$ K
' m) z1 R% A3 `6 x5 W0 f4 K- e
;==============================
3 T& \% n, f9 T
Set_Palette_Color;设置调色板数据% I( l D! x. a( L
BIT PPU_STATUS
) F5 p/ ?: p7 g. A
LDA #$3F: H3 v' H, m) S, H
STA PPU_ADDRESS( j0 n5 x+ B: U8 d8 d
LDA #$00$ I" [& X2 _, Q
STA PPU_ADDRESS
T5 S5 c, K8 K0 K( A" X& [
LDX #$005 K8 `$ S* t* r
Set_Palette_Color_Write
4 @$ C2 d; C# u0 H! B( @( e0 l
LDA Palette_Data,X8 W+ N8 _& b z- @+ m" {" r
STA PPU_DATA
' z/ \0 o5 t$ O. B y
INX+ m' E) B+ I4 `
CPX #$20$ k V/ k- d3 ~0 z$ h
BCC Set_Palette_Color_Write, J# I* \! {+ Q, y* A
RTS
+ d0 {; \' `3 |& D8 \$ R4 r* V; j o
E! F8 R! c1 S7 g2 b9 O! u
;==============================! w8 H( K6 z6 J. \, ?7 Z& ?
Init_Palette_Addr;初始化调色板数据+ a* m t [) f6 J3 s$ k3 y
LDX #$00
& m1 e! D% O& C2 I* u
Init_Palette_Addr_Write. y: r" O, {9 n* H2 x* ^
LDA Palette_Data,X$ [7 O) l( m+ N* |' Y
STA Palette_Addr,X8 m" _' w8 v* B. p- A R
INX
6 {+ Y: x9 r6 h. a& Q- V$ @
CPX #$20
$ @$ p: G* @; S2 C1 d
BCC Init_Palette_Addr_Write) I- |6 d6 v2 U# {
RTS$ s2 q) p" L+ M) I
3 i0 T. w6 d5 V, _+ }
;==============================9 C. t0 W. T& q) J, t6 r/ }' K( t, i
Update_Palette_Color;更新调色板颜色
. }$ z9 s9 d; U) A( [
LDA <Palette_Update_Flag
- g T) z$ E0 q7 A( q$ T
BEQ Update_Palette_Color_End
' A2 u# S7 u c+ i' ^$ ^# i
LDA #$3F
5 i9 ^. G: _7 L' \
STA PPU_ADDRESS. \8 Q# Q0 b8 T# A. O$ ^- C
LDA #$0C
6 u7 j2 b* @3 O5 @( P$ {
STA PPU_ADDRESS
' s/ d: t f3 Z$ S+ n: W. |; X
LDX #$0C2 F: R1 Z; I5 o& C4 `
Update_Palette_Color_Write: h v0 A" V, B d' E7 ]) e* |+ W+ r
LDA Palette_Addr,X
, [' { x5 W! Q8 M
STA PPU_DATA* G) ` o* F8 V' W* P: B/ Z
INX* M! [; A; a3 a) d; C6 t
CPX #$14+ O" Y2 m% i5 @
BCC Update_Palette_Color_Write
: B% H4 \" f: G# n3 c" v
LDA #$00: M7 i: \, s6 ]# B
STA <Palette_Update_Flag
% Z! Z6 q: g, X0 K, J
Update_Palette_Color_End
6 P1 _ W# \8 |9 {. U1 v7 H
RTS" i2 P ^! K/ M; i2 a, k- i
) W! [! U) w# C& O/ f+ ^1 O
) f' y9 {3 N! K6 b, c5 W4 ?
Update_Sprite_Palette_Data0 c1 x$ v) @0 V+ ~ Y5 l9 x
.DB $21
8 q' O; N2 v5 N( u- G; \, v
.DB $21; }+ d1 s) E: R
.DB $11* L) a. H$ C: @+ X! J
.DB $01
* l: f5 w2 A5 K, _, b$ U, F
.DB $01
9 o0 A7 {6 r0 v
.DB $115 S9 v, N3 ?$ S" L; f
.DB $21/ n* y; K) H2 k4 @4 w* `. s' b& i
.DB $21( k; V# i' M3 j* {9 M
.DB $119 \' I# b3 ~# [4 X; f4 H6 u
.DB $01- y) _. P4 @ T5 G
.DB $11
$ x5 D& d& L5 E6 t- Q. p
.DB $21
, L* @! x! }: F9 K
.DB $212 Y+ J' U8 X$ I- e8 i
.DB $118 }0 O6 b4 U9 Q; R
.DB $01% m# _$ U% O* I: _) R) L
.DB $11$ Y4 e) r1 D* U
;==============================
5 t: G& z2 V$ z O. e' T
Update_Palette_Data;更新调色板数据
) e9 k* `( _3 E7 f6 v2 H. z7 R
LDA Nmi_Time_Count
. ?( A% Z5 s: E6 X3 d% `& O; {
AND #$08
CMP #$08+ H0 [8 _8 {4 j$ g( {9 t
BNE Update_Bkg_Palette_Data
( Q7 @7 G+ `3 l" c
0 `# x! v( x7 @
Update_Sprite_Palette_Data_Set
% `( q- X& [+ n
LDA Nmi_Time_Count& \3 b3 r) f# Y4 R9 T
LSR A
' {$ W1 r# w# y' k9 C: M# y
LSR A
% a* |3 M$ ~ k0 f1 t
LSR A
7 x9 X$ l! Y7 K3 l+ R. ~" Z# P
LSR A
5 }1 L0 Z' o3 q& M" V5 j1 H% K
AND #$0F
1 _* W) z. J: N3 Y2 i
TAX
8 E9 s g2 K& `6 b1 s0 t
LDA Update_Sprite_Palette_Data,X
5 u) d: l3 T0 T8 B: V# w
STA Sprite_Palette_Update_Addr% {' o2 [8 K2 u( b
LDA #$01# Z% {5 w, p9 f
STA <Palette_Update_Flag
. i- R1 M* m. k( _3 N
$ \+ S! r7 s4 x/ e" t$ `" e
Update_Bkg_Palette_Data
, Y' N% D& y% f) t- U! ~" h3 E
LDA <Text_Disable_Flag
6 s* o) Z/ {+ R0 j
AND #TEXT_DISABLE_RAM
" P7 m5 E- H; f2 A9 f8 C
BNE Update_Palette_Data_End- ^( b% k- ~' Z E+ q
LDA <Music_Stop_State
* J! R9 k7 z- |0 V* |$ T
BNE Update_Palette_Data_End M5 L [8 ~0 `1 J" C6 d3 @
7 H' A' n/ W5 y* |+ w
Update_Palette_Data_Check3 S5 ^# v7 [- j; P' h5 A. ?! ]- _
LDA Palette_Wait_Cnt
|! V) X% {7 p
BPL Update_Palette_Data_Check_Over
) P( V+ A9 c' D- C% K+ y d
LDA #PALETTE_UPDATE_INTERVAL
. i% E3 \* K, v/ S
STA Palette_Wait_Cnt% p' w5 h+ T+ q% y. V2 O
Update_Palette_Data_Check_Over% R: F$ Q. V. p6 \1 ^
DEC Palette_Wait_Cnt% p1 n) f% m. s
BNE Update_Palette_Data_End g) D0 N9 e" _" \3 }/ C
! o& V; p$ P \; e
LDA <Text_Disable_Flag2 G9 G$ j$ d- C5 g$ M
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME! b( Q& p) M& S% i
STA Text_Disable_Flag% c% a. \/ p$ V7 z9 ?6 X2 ]
INC Palette_Update_Flag1 B9 q6 v% x5 {2 M
. i$ X) c$ E! `' w
LDA #PALETTE_UPDATE_INTERVAL6 ^0 d8 g1 v+ G! \
STA Palette_Wait_Cnt: ^9 f B2 b5 N
& F: X4 h" ^) Q; t
LDA Bkg_Palette_Update_Addr: I x. j5 I4 A4 T7 |7 y: ^0 Y
CMP #PALETTE_UPDATE_MAX- l. I- B, ]! C, Q0 F7 A8 t. B8 w) @
BNE Update_Bkg_Palette_Data_Set! d, O8 ^6 _/ R% P$ S% X! O
LDA #PALETTE_UPDATE_MIN - 1- S6 M' q4 [9 u1 A3 M. G9 s4 p
STA Bkg_Palette_Update_Addr
' P7 M- ~# J9 E
Update_Bkg_Palette_Data_Set5 p' E3 _# P( a8 C- E, y' e
INC Bkg_Palette_Update_Addr7 I8 h: ]9 v" j; T, J
8 |6 S2 r3 ?8 p
Update_Palette_Data_End3 ~2 }8 K/ g: n7 y3 E" |. U1 X9 h- N
RTS
; L4 n( ^ M7 ~% W H
E2 Z( Z" C0 u% `% P
;==============================. s% D$ x. F' A1 s6 J1 Q
Show_Music_Text;显示静态文本, v( u. M4 r( I- i' i- T! j
LDX #$00) y$ a# j4 t H+ B
Show_Music_Text_Set( K1 }7 t! ^7 s- s8 c! n2 l0 U
LDA Static_Text_Data,X
2 l O8 r: a7 g2 Z- \! _6 V" @( `
STA <Data_L1 ?/ m0 w! P l
INX* L0 ^6 v1 t. i
LDA Static_Text_Data,X K0 @9 d$ P& e3 P
STA <Data_H& g$ D. r% f: A8 t" t U; V) ~& R
INX
2 y( N9 V! N, E+ ~5 T
LDY #$002 e# x" M+ M$ S+ y2 D/ b% K
LDA [Data_L],Y
+ ~) l, {$ {1 M: q+ ^
STA <Data_Cnt
$ d# s# @/ [( Q8 }
DEX
) Q2 s8 P8 Q$ E# ?3 J$ _) y
DEX% v* B3 |+ Y4 f1 q; Q9 l% ~0 V
LDA Static_Text_Pos,X( b. `; x( y! D* \5 O
STA PPU_ADDRESS
) R8 ~7 q- q! O: |
INX# T% Z/ y( e# _
LDA #$20( C( o1 q5 X* {& C" S$ G% E
SEC
% C$ @" ~' ?* [- l0 B! m9 ?' [
SBC <Data_Cnt. Y! t% n4 T7 K4 \
LSR A
9 i; w1 x# O) K4 ]6 q0 `7 v" l
STA <Data_Buf
3 K/ l; o& F8 y; Y' {- Y1 i0 A
LDA Static_Text_Pos,X" Z8 B; ^0 ]+ p: `
AND #$E0
, R6 p+ V0 E# i( i- S, U1 I! y- C
CLC
, }" ?, F, q( U# {! ?9 i5 G
ADC <Data_Buf; Y6 C$ a6 ]1 i* Q
STA PPU_ADDRESS$ X5 l1 n& [5 B) b' h9 P, z
INX7 S3 Z* @# l! Y* a8 i1 N' i
Show_Music_Text_Set_Write
7 e* U+ J5 m4 T& n& [" x
INY
, [: e! {1 Y% E1 a8 O1 W, |
LDA [Data_L],Y4 u6 ?+ o2 J4 t
STA PPU_DATA
" ]! O4 c6 W; N' R: W2 Y4 y
DEC <Data_Cnt
& b4 M% L8 c6 e" `7 K1 p$ O
BNE Show_Music_Text_Set_Write2 H, |5 b/ D6 G1 |
CPX #Static_Text_Pos_End - Static_Text_Pos0 G7 A2 d4 y* X- V, J
BCC Show_Music_Text_Set c" j+ L6 e/ u+ \
RTS) d, }* k5 R6 P7 j
4 ?. [- J+ x# X8 l/ }; H
;==============================6 x9 `$ w- f A
.IF Track_Name_Pos;显示曲目信息+ N7 ~4 i: K; p, I
) W$ a3 L j3 N) z0 N& W
Clear_Track_Info
* J* x+ g& ]( ?) \1 j) z/ m
PHA2 T# M7 J0 X- |! ~- a( F% S
LDX <Music_Item_Cur
6 Q n+ n0 t6 n! I* S# t9 v1 g( S
LDA Track_Name_Addr_Flag,X
& v; p9 j" u2 a1 P, W% V
BEQ Clear_Track_Info_End_Ex0 l* f! j2 C6 B! h1 M# ^% O; Y
PLA
b, n P; X7 S0 [1 T9 r+ z
5 i( @# ~1 a, ^1 ]- R* s& e
LDX PPU_Cur' s z& p2 h/ k
PHA
C3 X' i+ x3 D) l! ~$ f
LDA #PPU_MODE_CNT_CLEAR- D) R0 ~. F: S
STA PPU_Addr,X& k/ ~" u: m: J! ^# {1 l
INX$ z6 _4 [, M4 n b6 s* g
PLA5 l2 T' R. Y+ T" j
JSR Show_Get_Track_Name_Center_Pos
* z1 b( y1 U" q' k1 I
STX PPU_Cur3 Y9 i ~& n; S2 {
Clear_Track_Info_End
) n1 |, y6 L! O# F
RTS
; H* J0 E7 y7 b5 W; Q
Clear_Track_Info_End_Ex9 ?& x& L3 K" X1 F( v |/ ^' ^
PLA% N+ L3 l+ J0 ^. M" Y) P# u
RTS' B1 N* B: _/ f- G
3 ?1 E- R/ m# J* |/ C! _
Write_Track_Info
( s; [/ ]' x6 z
PHA
' e; P \; ^# b
LDX <Music_Item_Cur0 Z4 n! F! t; c8 Q! n: u
LDA Track_Name_Addr_Flag,X
( j# u) F- S/ Q7 A( W* Y
BEQ Write_Track_Info_End_Ex, p# y! `6 f7 S
PLA
e0 u. u4 o$ C) a J
) X8 O1 e7 z- z6 w8 X
PHA
! ?5 l1 ~8 {+ n7 P7 B3 Z
LDX PPU_Cur, N8 T/ ^7 C7 ?
LDA #PPU_MODE_CNT_LINE
/ `7 }& {5 J: x$ F1 Y
STA PPU_Addr,X/ w4 U, O" k2 b/ V
INX+ E/ V& R g' k0 Z; _" r
PLA* h. _3 C; Y! W1 W5 Z% ~
JSR Show_Get_Track_Name_Center_Pos1 q4 j: z/ V8 j9 n
Write_Track_Info_Data1 y( W) d; x2 O+ q( A
INY, z( P" k o. H5 e1 k+ C8 b+ J
LDA [Data_L],Y
: x$ \' C3 C; o4 C
STA PPU_Addr,X
1 X2 i/ C+ C2 Z2 m X" R, ^" |+ T
INX9 {7 q5 H: ~* J _" i6 m
DEC <Data_Cnt- l( f' i( n: T$ \ M
BNE Write_Track_Info_Data
' a$ [6 w+ {9 T
STX PPU_Cur
9 i' [0 [5 ]/ G2 {
Write_Track_Info_End
! A$ _' l7 C$ Z; o5 ?( T7 n( n* Q1 U2 {
RTS5 w6 j- c( E Y! Q
Write_Track_Info_End_Ex
5 a1 ^0 O4 i8 z" ^9 ~0 L1 a2 L
PLA
1 s$ a0 a2 B5 T, q
RTS
; u4 ?: s' |) t, T L# w' N
" d/ Y9 }. g N9 o/ W
Show_Track_Info
$ i# |! `. x& D& D
Show_Track_Info_Clear
" r3 v2 Q y6 v, @5 r! l4 q
LDA <Music_Last
8 A6 i) G. O8 p$ @; D' J$ Z
) |& ^. m, a+ d; G$ D8 _
JSR Clear_Track_Info, T6 I {( o" v" ~5 ~5 E) b/ A2 k6 `
+ w% a; v9 {; y
LDX <Music_Item_Cur$ V* t4 I+ ^2 T' G+ L- c
LDA <Music_Cur,X
6 Y9 O- K/ g2 W( I9 b
JSR Write_Track_Info7 X4 i+ @, S3 z& u8 O* f
RTS
* s. F: I' y! E, {" `
) m& i) _0 W3 z9 u# e+ k
;==============================( L" p9 b1 i; H" [8 Z
Show_Get_Track_Name_Center_Pos;获取中间位置 x1 }! S8 J* j* g" ^* x/ E
0 l7 F7 E. }9 M& U; Q" n+ v
;取出集合名索引
. s) R; L5 Y" {! \1 V* v# J
PHA
4 _& n$ J# d2 G
7 h1 S$ V, J: Y' u9 h9 ]( C
LDA <Music_Item_Cur
+ `) S0 }8 A0 w
ASL A, p8 r8 ~3 L# z& m+ k) Z/ S
TAY3 a; M" ~+ E% r4 q4 q
LDA Track_Name_Addr_Port,Y
& Z$ J2 t3 E# u
PHA
' r* H7 J- v0 a3 U+ d" _) j" {% q
INY
8 s$ w0 ?3 Q# C5 v: J4 g
LDA Track_Name_Addr_Port,Y
6 T! t% Y3 W x7 z
STA <Data_H
3 B, X# z& m, [9 ^" z! W- P
PLA
; o, O G& O; V( I' t" ]; L
STA <Data_L
3 j0 N- z% d% G) Q
# c* k0 y* m# v% a6 f% j* k" X/ t
PLA( K& r/ o+ y) R! F z
' a; i& x) R4 o9 a
ASL A8 U R, H( t3 Y) ?8 }( \
TAY
( e& ]' X9 d# m' e! S, z- h% v
LDA [Data_L],Y
: w0 A! K6 m0 h, r* G
PHA; m) [% g6 ^; v9 ~1 w
INY
1 s! R- h, R5 `# c& b& p5 d
LDA [Data_L],Y" B$ ?: b# C; y6 ^
STA Data_H
PLA
6 p" o3 ^' D, ^! I
STA Data_L
/ h& D7 X! s' W" J
! A" ]+ E$ d% \( |: q' f! e
LDY #$00
I* m# O- z& X+ Z! u6 z
LDA [Data_L],Y& u2 p! }# W$ f1 i( F y
STA <Data_Cnt
1 {1 j! X7 S1 I% ^8 [% W
LDA #$20* V9 n2 f0 B4 G8 I6 w
SEC
" }1 K, H! A. s8 k2 z
SBC <Data_Cnt
4 u' l# Q/ P* z
LSR A
9 u- @& q6 j; \+ y5 ~/ X6 \. T8 V
STA <Data_Buf. _+ h# F7 X' ~! W3 a9 k# C
LDA #HIGH(Track_Name_Pos); L' Y" ]7 i; F
STA PPU_Addr,X) n) v# J. i6 K7 \# d& C0 O0 H& t
INX
, D7 M) Q" Z: Q( E# E. w
LDA #LOW(Track_Name_Pos)
% a6 n$ ^( u$ f) h
AND #$E0
$ d: \4 N5 ]' o7 x1 }
CLC
5 e) o* M' h# k0 t
ADC <Data_Buf* h, {' b" C- A1 f
STA PPU_Addr,X
& D! p5 E* @/ V7 |& U- w
INX& X6 R! ] D* ^$ u3 W
LDA <Data_Cnt) e7 |3 Y' c& C- C
STA PPU_Addr,X
9 \/ b8 @& p/ ]( j) [; {! a
INX
, z, r( ~: o* _5 H8 s
Show_Get_Pos_Center_End
8 \8 @6 Q6 X4 P! k
RTS, ^0 Z! _# x& W) y0 m
.ENDIF
! S5 ~/ e3 {) M- L" I
, y* k( j2 ?6 _' H+ Q5 J4 b
;==============================6 x/ w* I& N. d1 W4 Z
;音乐端口清除
$ y$ u- h* `2 f0 t* h. A( l
Sound_Data_Clear/ l" H! t8 s1 @) V/ R# L8 M
JSR Sound_Port_Clear
. ?) H+ b0 T9 {) v( |# C/ b- G, N
JSR Sound_Ram_Clear, o; L7 _0 {. O
RTS
* u( _. \ q* i& r# U0 Z
4 B3 t: Q7 A- ]0 W
;==============================
- u; ?' r9 O- H& s# g
;音乐端口清除5 F: @- A) l# F5 ^6 u
Sound_Port_Clear) w# y' Y, |- c$ s: N
LDA #$00
: f. A1 s2 Y" T1 X( J
STA APU_STATUS) O. b4 i. J% N3 M
LDX #$00
/ K: D6 U, J1 p! P6 }: t+ k
Sound_Port_Clear_Write5 X7 U4 [8 [2 B( o( E, u9 e
STA $4000,X' Q, d* G9 O$ W7 ~
INX$ G% }# C5 J' @7 w# d, c
CPX #$144 X& a( f( i0 W0 w& F7 K) R
BCC Sound_Port_Clear_Write
; e$ z6 i3 k! L; t' H3 `6 R' G7 b
RTS
! [3 F" b, t1 I2 c) |" W
% [! i/ W, i- V7 X
;==============================
! Q& p u9 j! l f* r
Sound_Ram_Clear;RAM清除
/ k g3 ?) r- F" f3 H
LDX #$00
# H% w) t' N f: i+ U0 n
LDA #$00
/ Y( }1 L+ V* F a: Y. V: U
Sound_Ram_Clear_17 U' j+ g' y" T/ s
STA Sound_Ram_Addr_1,X
INX$ W) [2 | _ ~9 ^! \+ ?
CPX #Sound_Ram_Addr_1_Size# T; I) S* ]7 E4 H
BNE Sound_Ram_Clear_1# {9 U. D, u0 V. s7 h1 r$ _
LDX #$00/ @9 _5 {: m; h- k
Sound_Ram_Clear_2* p V4 U+ q3 j! L, R+ c
STA Sound_Ram_Addr_2,X
$ g/ D7 d/ W# u3 X* v" d
INX" I* j8 A% h6 w
CPX #Sound_Ram_Addr_2_Size
8 x% o" g4 w/ R1 L( ?7 `7 f6 T/ p
BNE Sound_Ram_Clear_2( a5 ?- @6 a" W, F
LDX #$00# W5 O9 q4 a q9 Q) _6 c
Sound_Ram_Clear_3
' @/ F! m: K* G
STA Sound_Ram_Addr_3,X
% w6 L7 u* \+ [! [
INX
& [6 ~+ o, |& t5 A* w2 s
CPX #Sound_Ram_Addr_3_Size
% j ?8 e9 A# G# X3 O' D
BNE Sound_Ram_Clear_3
+ i0 `7 \& E! e- L
LDX #$00; Z- j" l6 s& \9 \+ c* o: T: {
Sound_Ram_Clear_4
: q+ h0 n4 S0 s5 e$ ~0 c( L
STA Sound_Ram_Addr_4,X$ ~6 _- I- a W1 ^
INX! Y: s' I/ ?2 k5 w
CPX #Sound_Ram_Addr_4_Size
; g- F( V% t" {) W2 A6 s/ v8 }. Z
BNE Sound_Ram_Clear_4) F" U; m5 O( T8 N$ o
Sound_Ram_Clear_5
0 c& H/ C7 F# {9 A* B+ M z
STA Sound_Ram_Addr_5,X
1 B w' {! E: x1 G; @4 z3 y
INX% z9 l9 O# s$ S) O H
CPX #Sound_Ram_Addr_5_Size
' V6 ^# d( E& v' R
BNE Sound_Ram_Clear_51 v/ B' p: P% y7 f4 d {, [5 c# ]
RTS; O+ Y2 Y, d1 c
' ^, c/ }8 q% e
Get_Music_Collection_Name
* V2 N* J" V8 T: ~- G
PHA
9 z; s. B9 }: N" u! m$ J7 N
LDA <Music_Item_Cur
3 H) z; ^# a8 o0 p+ z. K6 U. j( R+ v
ASL A! ?5 d- F5 F' X6 v$ O: R
TAY. q0 z0 R; ]7 }
LDA Music_Collection_Name,Y7 g2 t- H# N# u* s# T8 r; ]
STA <Data_L
( C/ c3 y3 {, }; x& y7 }) ~
INY
) {+ v! S6 s6 m4 K) B8 D/ n( @. L
LDA Music_Collection_Name,Y
' j: l( c6 K+ L8 s. o8 N' N
STA <Data_H
* m; Y( n5 V% Y
PLA( F$ l% U9 C4 y' @- }
RTS- c+ {, { W6 b& }
5 H1 p$ Q, S* s, i2 S
Set_Sound_Total
M/ r+ E; W: X+ P
LDY <Music_Item_Cur& x; t" u1 H8 g
LDA Sound_Total_Port,Y
0 w) D: N' n5 @( H% }
SEC
9 Y# u. W) q. _- m- s
SBC #$01/ n( l* G/ r; I3 H; h: i* M1 _# m
STA <Music_Total
; f* w1 N) D6 L p( c/ Z1 ?' C2 z
RTS
/ f/ D/ ]/ x2 ?
! P& Q' y/ F7 N6 E. G
Get_Sound_Start
9 I( g6 P, X, X7 ^! L" H
LDY <Music_Item_Cur
4 x* g; y( y; e& z) P
LDA Sound_Start_Port,Y
# X* k |" x- n4 N
RTS
' [; G7 `1 _% Y8 ]" C
( Q. l5 @* V |# H3 u) j
Set_Sound_Init_Port
- W A% d. H4 K3 } ]; t- v
PHA/ L) D1 L' Z1 ~
LDA #$20% t" r5 o" A1 z1 [- X9 N& L3 V
STA <JSR_Addr_Op
. m8 { S! ?: ?( \4 Y
LDA <Music_Item_Cur) W* d8 x! v/ j3 }) s
ASL A
# w2 L; Q; D9 l* _+ T
TAY
" p3 Z3 a" v! X8 _" ?- u5 i6 d; g
LDA Sound_Init_Port,Y
9 c' p I) N+ @& d6 h: O
STA <JSR_Addr_L
: A% P( s# D7 x
INY
) r- `+ C4 O* m1 n
LDA Sound_Init_Port,Y1 }0 z! z1 _0 j, L& r- A+ x
STA <JSR_Addr_H* q3 U" o% _" _! [
LDA #$608 m% ]# m( N/ ^$ _/ B7 ~; v2 r
STA <JSR_Addr_Rts; E M8 i7 w; a5 \
PLA# o! L. U1 I3 H& O4 r
RTS; W1 b9 L j* b! Q4 i
2 G' N* Z3 S7 I4 M! K; z# L5 l
Set_Sound_Play_Port& Y& U+ U* B3 \; Y& r) G
PHA* i/ @$ Z6 W0 x# U
LDA #$20
6 `. \8 d i- K- R% H+ H
STA <JSR_Addr_Op' e8 {- [) i5 X5 z' ]3 V+ M3 k" |
LDA <Music_Item_Cur
0 R: }" _( `; a
ASL A
0 |9 E. t2 l+ I/ ~1 q4 m- o: ?! U! e
TAY
! f" u: `' E& f. k0 V& O; k1 N
LDA Sound_Play_Port,Y- Q7 F) h" Y2 R% [9 _/ s
STA <JSR_Addr_L
1 Y# W+ J5 `! r- q1 J) C
INY( e$ y+ y* T2 e
LDA Sound_Play_Port,Y0 X5 G, x7 q( Y% m
STA <JSR_Addr_H
, ~/ s: s5 r& Q: W5 `5 o
LDA #$60
! {( l' P( L7 O8 H* [/ U6 D) B$ e* Y
STA <JSR_Addr_Rts+ j. \/ l% G% X+ s
PLA' o( n: D+ i: v) q8 E
RTS+ a: G7 K2 p( ? S- D+ z$ D
. Q' _* N6 g! i) {; V. K1 x1 K
Set_Sound_Reset_Port
8 v! T" t4 a- `( O& \2 d
PHA) Y6 ~& c' B; y5 m$ U; }
LDA #$20
STA <JSR_Addr_Op
8 s5 {, C; g) ~/ e( U
LDA <Music_Item_Cur
6 J, P: D) ]' i) o) m2 x
ASL A7 F' E, z" b$ {' Z2 T& M" ^7 J- o
TAY! g' \* Z7 K( I6 `/ R U/ I
LDA Sound_Reset_Port,Y
) Y0 S5 [1 `* x! T9 j
STA <JSR_Addr_L$ n' U8 B, {$ M0 A
INY
$ K0 Q6 ]* |2 B* ], w, ~
LDA Sound_Reset_Port,Y+ ^" C% N X! c
STA <JSR_Addr_H4 Q9 V1 X: J' Z- {2 S8 K
LDA #$60. b5 E$ i* I O( t
STA <JSR_Addr_Rts
* ]' R4 i) M- ?' g7 p8 t
PLA
, U" l% `/ U9 ]1 }! l6 u+ W8 S
RTS
, C! A1 Z: n1 _" U
! T5 g3 K; b2 N( l2 r1 P7 a
;初始化音乐bank
+ G5 j) m7 ~& l% V# K' \3 d
Init_Sound_Bank
+ ]( Y5 a8 f- H% f
LDY <Music_Item_Cur+ x* W) Q& O% f" x
LDA Sound_Bank_8000,Y. t. B' H, W3 F5 p7 [! B
STA <Music_Bank_8000
* G1 O7 H! i1 {- _$ c) X3 p
LDY <Music_Item_Cur
' u. ~' k2 \5 e1 Y
LDA Sound_Bank_A000,Y
2 I# M$ b) d$ T x0 Q
STA <Music_Bank_A000
) v- r' x- ~4 ?$ T0 S
RTS8 C( ` c4 I2 O
2 H8 _, E7 X y2 @) G/ V+ V9 j
;==================================================4 `7 P; r, T1 s6 B" x+ g
Sound_State_Reset;音乐状态重置3 l0 |' P# _1 \; m+ f8 S1 b% v9 C
JSR Music_Bar_ReSet ;重置音乐条
) b, W7 T4 w) c7 H, _
JSR Time_ReSet ;重置播放时间
5 ~" O r) |# Q% Z# F
. m. X) E9 s& f
LDA #$00' Y; V3 X. _, _) V
STA <Music_Stop_State
r' f$ m3 P% f+ _' L
JSR Music_State_Show ;显示播放状态) P: Q- \. l C- \$ t" s/ @
; ^- T! W6 I9 t3 Z1 O1 b0 N
.IF Track_Name_Pos
6 C3 _9 ~; o7 u B2 U" G% X
JSR Show_Track_Info ;音乐曲目名显示( U6 d3 f1 S6 b
.ENDIF
2 o3 z$ \2 i ~! A
. W* ?9 u0 O G
RTS7 }+ i, g/ Y( M
( S2 K: R/ @" Q, G
;==================================================
5 H+ M2 I# P5 V" c o5 [
Sound_Init_Proc;音乐初始化处理
1 Z& q& L' @* T0 M0 h
PHA6 p( e' M. R/ ?" V2 C4 z* u B
JSR Set_Sound_Init_Port ;设置音乐初始化地址7 b+ ^% H& I& d4 a4 }+ S
LDA #$00) Y- [6 w& S; X5 \) ` h* o
STA <Scroll_H ;重设水平滚动& k) t" N7 t g, M2 j
LDA #$0F
' x& ?) T7 q# i9 K0 D
STA APU_STATUS/ F9 i9 X; R z' f) ?$ z
PLA7 Z3 |* ^( }7 b; D' y' W2 g
JSR Sound_Init ;音乐初始化
" T$ N3 q1 Y' a1 H
JSR Sound_State_Reset ;重置音乐播放状态" v9 F8 v& _0 j7 U/ A* J( D' }
RTS
. b. c/ U; P2 k) S
. n4 n# x r* W
;==================================================9 V/ N; e) Z& |3 U2 }/ R
Sound_Play_Proc;音乐播放处理1 C; Z4 v( z( n) h
JSR Set_Sound_Play_Port ;设置音乐播放地址) w6 M5 f8 s: U3 {' u& `9 \
JSR Sound_Play ;音乐播放
: U6 ?- u2 b5 c
RTS
) @8 \, W* m" R; {
/ k" z, N, F. O3 E
;==================================================" l7 d- H. Q/ i+ |, v
Sound_Reset_Proc;音乐重置处理
& u1 r+ t1 c: Q! m( E. o
JSR Set_Sound_Reset_Port ;设置音乐重置地址: d$ z, G! B9 S4 `2 y% y5 b. Z' i" H
LDA <JSR_Addr_L1 v3 c0 }9 N1 h
ORA <JSR_Addr_H
) Q2 S4 h" O$ L0 ?" f
BEQ Sound_Reset_Proc_Default
$ Z. T; O$ S- d* x1 O
JSR Sound_Reset ;执行音乐重置
# h" f" }8 B; n9 M* o# E+ l+ i' e5 c/ L
JMP Sound_Reset_Proc_Init_Sound
- D9 p" ^ l! I0 q/ X! m% f/ c6 k
4 ~" a' ]+ L& _, M: Z
Sound_Reset_Proc_Default ;默认音乐重置处理
7 \: [7 v' x) J$ W7 B7 J* w* m
6 Q. u6 Y5 ^ B! ]
;清理内存很耗费cpu周期, 这里禁用一下NMI中断5 W+ K2 t: }) N8 E
LDA #$00
* g- w8 ~, R# X
STA PPU_CTRL
0 T E/ h% p+ n4 z6 c
. a: ^% r: [/ _4 o$ _7 ^+ ^. u
JSR Sound_Data_Clear; g# q+ V, ], F
m+ O$ `$ n6 K- F" y) u* Z; ]
Sound_Reset_Proc_Default_Wait5 z$ N7 C' E5 A
LDA PPU_STATUS
) B- \4 t$ Z& i+ a4 j3 a, ~
BPL Sound_Reset_Proc_Default_Wait
2 C# w# l; y0 x F* I
, X7 m U" v* O7 f
LDA #$00+ a% @8 q. N2 [5 ]& i% E# \' t
STA PPU_ADDRESS/ o4 l, ^0 L5 K1 Y9 y: W4 T2 z' l
STA PPU_ADDRESS
3 [0 M! @5 j- h( y, I: @0 G
STA PPU_SCROLL
5 @0 q- S; q1 s& Z! x! l8 n' r
STA PPU_SCROLL) |: `0 s0 p+ `" Q$ o
: j1 D1 {! [/ |
;恢复PPU控制
4 f; J) d/ Y6 ~$ c5 o
LDA Screen_Ctrl$ `! ^; U" F+ |+ `
STA PPU_CTRL
1 ~9 o+ \" q3 ]# o" h$ z
. G# G0 F" I$ x( |9 k# c
Sound_Reset_Proc_Init_Sound
! e8 R0 X% e+ r" h# H+ H# t
LDA <Music_Stop_State; P( r5 r h2 m" m3 w& t, ?
BNE Sound_Reset_Proc_End
Q- F' D, p) p& _5 q( b
LDX <Music_Item_Cur2 Q: T5 i) l" H* G" r
LDA <Music_Cur,X. n* h X1 i# X, i9 K) i+ H
JSR Sound_Init_Proc
: z m4 V$ ]. S$ k6 h5 w8 t3 P
Sound_Reset_Proc_End! L$ w ^' ]2 V6 |6 U3 r* v$ o1 U
RTS; Z( C: x( I, I
# r1 V9 M/ P. a7 a- M
;==================================================
5 b5 I- y& m& V" E
Clear_Item_Text;清除页项目
3 D: P) v [$ A" J, p4 O
LDX PPU_Cur
. D* P, {# y' _
LDA #PPU_MODE_CNT_CLEAR8 N* n: O6 }9 ~7 d
STA PPU_Addr,X
- c0 k9 b2 @6 n8 Z
INX0 v: u% s9 P! X5 B3 v6 l
, V; c5 E4 a6 m/ s( g
LDA <Page_Last
2 N/ X+ b' b1 O' r4 y& R6 A7 a" D
SEC
" A+ D; |. G d: V5 a
SBC <Page_Last_Index! A6 N, i' g, p$ |# X
ASL A
: d- I# a: l2 M N+ s0 ]: z
- |! T# o; P- S
TAY
9 j* u7 e5 [4 }6 Y
LDA Item_Pos_Data,Y
0 D* d6 ^% n D: c
PHA
8 P3 U: u0 |9 K G6 a: e
INY
0 T0 h, X. f: L9 y( L
LDA Item_Pos_Data,Y( E, J3 c! ]0 ?8 E# G# s
STA PPU_Addr,X
5 X' V& H" F9 ?/ [; F- q8 R8 o; {
INX
~5 ~ ?; R9 s- H
PLA" H4 J3 b) t, ^/ p7 q+ h! l
STA PPU_Addr,X+ |3 w2 y' z7 T
INX
9 M }/ Q+ k' P; B! u! ?
- n6 l2 T; T' `% e. J" F
LDA <Page_Last
# w! I0 L- W, N" ?
ASL A
! _* l8 {( w2 D7 h
TAY
# {+ o5 K% e% r% D! b) u
LDA Music_Collection_Name,Y' t2 r1 H* h6 V, u6 ~, Q+ l4 i/ j4 z
STA <Data_L
# S: P$ _$ t$ [. s/ H
INY
0 L: v8 j# D: f$ l7 J- r' R! |
LDA Music_Collection_Name,Y
' }5 {5 A! |% f
STA <Data_H+ V2 N* z: q8 F$ W4 U( l$ D
1 p1 o' n1 w' q
LDY #$00
( J" Q9 o6 `4 D9 A
LDA [Data_L],Y
, ~# g$ B. N" G/ p, S
STA PPU_Addr,X
& \. e' y$ \/ z% L
INX: f) @2 |1 C2 R4 M# T
Clear_Item_Text_End5 s# U! p9 a) t5 ^9 T9 {
STX PPU_Cur
" P- N; ]. f8 ?9 M# j; N9 D
RTS( M( e$ Q( s2 M! X, m8 }
( O' f9 N% y/ U; Z# n
;==================================================2 J' r: `0 H) S. d. P9 U. o
Show_Item_Text;显示页项目1 V# g. k |% K9 u- d+ `+ G, i
LDX PPU_Cur
( {: [# ^$ C% l3 S% u
LDA #PPU_MODE_CNT_LINE( d- P: B5 ~! [# J0 V
STA PPU_Addr,X
2 w# F6 p/ g3 z/ k' A- j$ c; [
INX
7 m* j! r p/ l; J
LDA Page_Cur" }7 x+ ? S- t* |6 P3 n1 v* y( R
SEC
+ [2 V# `" P+ C0 D. V0 c- e, y
SBC <Page_Cur_Index6 h9 e+ j9 x( X. M$ D% A
ASL A
/ S! X: c: ?3 d# e) b+ F' S0 D3 }4 |
TAY1 L# q. O! S; n" S9 G
LDA Item_Pos_Data,Y4 K! I# {; ]+ m% U: @" J
PHA, S& y1 I- l. ` ?8 |% C k+ z L
INY6 W7 ~9 l3 {; S8 u" _, n S3 ^
LDA Item_Pos_Data,Y8 i4 d$ V+ Z9 y O4 j
STA PPU_Addr,X
$ Q/ B6 _4 G6 K8 G$ b8 J
INX4 n; f* ^8 J& W( h% G
PLA/ D9 G4 u G- N, ?) `. ^ r; @
STA PPU_Addr,X+ A. U. E& A* w+ c" X, A4 c
INX
% M1 X1 Z( c% _4 y0 h+ H1 ?. ~" ^
/ l3 q- y! U2 ?8 N: {' T& m/ u
LDA Page_Cur' L- Y$ `3 _4 k3 i- `3 M' b! o# t/ L
ASL A
/ @4 X! p: n+ c# S1 E- M6 Y9 _. a
TAY
8 ]# F7 R% o8 Y, i: N: q6 _
LDA Music_Collection_Name,Y" u4 I, t' P. V# C: e0 h8 E
STA <Data_L
: J5 d: m* e- W1 B, Q
INY! V4 n9 H) I1 p: l4 n9 V% \) {
LDA Music_Collection_Name,Y5 n5 F b) q9 B. W( h! P: f9 ^
STA <Data_H- ^2 f2 [9 R2 q% R
" k2 P4 Z# w; v* l
LDY #$00
1 K, O5 Z& b, d8 y& w
LDA [Data_L],Y* N+ x+ k1 ~ E4 d0 _
STA PPU_Addr,X! t5 q7 h* A) b! S
STA Data_Cnt* L% w0 u4 O/ T, u
INX, E# B; `5 H: ?
% P% C" T) m* n7 t1 j
INY9 ^% u+ w% o7 z3 N
Show_Item_Text_Write
' H- x' [! E8 ?2 ]' H4 R0 |
LDA [Data_L],Y: s( @' O4 W% s: X$ i0 f ]' r/ I5 k" M
STA PPU_Addr,X& I9 \- _- g( Z& _) `' t. H
INY( D8 |+ w+ I$ ]2 B9 F0 o( N& ]3 c
INX
) j1 n A/ r& ~3 H
DEC Data_Cnt& l ]# g5 ^4 _" J0 w$ M% C6 z6 s
BNE Show_Item_Text_Write- V N2 Y& X: U' ?
9 V2 p5 e- d2 m& H
Show_Item_Text_End, P( V0 ~. i$ M+ g' U* f* F
STX PPU_Cur
& E) r9 q3 @& P
RTS7 y) B, \* a& C
- B) x9 M# n8 w. {5 z, B6 u
;==================================================
T- v# q3 A! o) c
Get_Page_Start_Index;获取当前页号起始与条目数量
8 A4 I% E5 P" F4 Q
STA <Data_Buf3 P0 I& p. z8 B; g7 n4 C, x4 A5 c
LDA #$003 w8 X: [5 u5 y
Get_Page_Index_Calc
4 c) c; p' w8 M" _6 a
CLC! N7 y, G" F( l0 {
ADC #PAGE_SIZE
1 t# C8 u7 X, w* }: K0 d
CMP <Data_Buf
( l; y( [! F7 x8 a6 ]; M; P
BCC Get_Page_Index_Calc
! L$ \$ Q; _3 o c4 [; P
BEQ Get_Page_Index_Calc_End
- \8 ]3 o# @/ Y; u3 O* k3 y
SEC% q" v8 z) ` m g: _1 m
SBC #PAGE_SIZE" @' s7 k# D4 I; e8 T) R- Y
Get_Page_Index_Calc_End
; [, h9 ~% m, e
STA <Data_Buf
) J/ n0 E" C4 H5 p, `
Get_Page_Index_Cnt0 Y7 V4 A; n2 q
LDA #PAGE_SIZE
- d8 [& Z3 B- ~, S5 W3 a: ~0 @( `" H
STA Data_Cnt/ C7 l; `. I& z8 U
* l, C* V" \1 h/ ]4 b
LDA <Data_Buf Z9 h' O5 T, I5 H, K5 O4 U
CLC
: n7 h0 s5 g3 w+ @- D& M
ADC #PAGE_SIZE
/ f: X. `) e* N u% X) g
CMP #ITEM_MAX_SIZE- u! B: F/ }- s1 l0 b4 K
BCC Get_Page_Index_Cnt_End* m/ ?) v) M& U
0 i8 I2 z$ P. z
LDA #ITEM_MAX_SIZE* y( E0 m2 v5 O$ z
SEC
" v: ^( [+ E% ]; X/ [6 X
SBC <Data_Buf
5 g8 Z7 K: B5 m. G
STA <Data_Cnt
! s# Z* R7 e [
7 m2 P* e D# `4 J5 q! d+ o B" U
Get_Page_Index_Cnt_End2 S- S! j: M1 A, Y" u; ~0 K
RTS
. W4 H/ Y' a$ ]* ]4 r
4 N8 ?. j& ]+ `5 ^8 B7 U
;==================================================
# F8 R9 {# F2 Q- m9 u: t+ e
Get_Last_Page_Start_Index
9 L" C' x {3 g% W
LDA <Music_Item_Last
' z. M9 e7 W4 ?* l
JSR Get_Page_Start_Index
% Y* Z! u, \$ a5 H* P
LDA Data_Buf! ^' m. t; u& K+ t2 Z
STA Page_Last' q- a$ }2 S- o% r, ]1 `9 p
STA Page_Last_Index
0 d; S1 M( a1 `
LDA Data_Cnt; c! E& S& }3 G+ V$ O5 [
STA Page_Last_Cnt1 q ?* s4 p" X% s1 b2 f( P! B/ N
RTS
! I2 H+ K9 q8 N- z" i2 s P
& g- a) i' N% P
;==================================================% m; s7 A# |6 v. z) a1 C2 f
Get_Cur_Page_Start_Index1 L z. M. P1 \; s5 i& S
LDA <Music_Item_Cur, n3 F% K6 b2 Y8 m$ [
JSR Get_Page_Start_Index; d) T/ M) C$ [1 T* r
LDA Data_Buf: N3 {; G: T4 |1 e4 M, O8 x
STA Page_Cur2 x/ q6 t) W& y K1 O) n1 v
STA Page_Cur_Index3 H' Z% O8 h9 L( |) n0 g
LDA Data_Cnt
, |+ B7 O+ k, n- E; E
STA Page_Cur_Cnt M5 ?$ X4 B1 n d! ^5 f- w W, k/ a
RTS& y# T" i0 p* e2 o
2 Z A, \( {/ G: w& ]2 p# n
;==================================================
% B% D7 B) R* r* S2 n( Q9 u
Show_Page_Text;显示页文本
( l ~& Y: |* W, A a
LDA <Text_Disable_Flag7 \0 Q% d# v! Z$ r3 M; u
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME | TEXT_DISABLE_ITEM
9 K6 ]; I x, q/ O! }
STA <Text_Disable_Flag
& S# x& }# m7 N1 F/ Y- V
2 s5 N* J5 K; L* v4 _! q. X' a' p
JSR Get_Last_Page_Start_Index
+ y+ g: y2 Z( J
JSR Get_Cur_Page_Start_Index. v( j+ o+ ]; X6 ?4 @# X, M
- X$ M' M8 W+ i- w
Show_Page_Text_Set
; U' B7 z4 t# u+ e
! r6 p) d9 `7 n9 F8 Z
Clear_Page_Last_Item;清理上一页
0 e+ X+ `- p( f$ W
LDA Page_Last_Cnt: N8 k) {( v) e- d' p
BEQ Clear_Page_Last_Item_End/ L& u% Q5 \5 v2 [
JSR Clear_Item_Text
7 h0 k! D* m8 y
INC Page_Last4 p0 W4 ^: }6 ~9 a, T( Q7 E: {
DEC Page_Last_Cnt o" V% s7 q0 p1 u' L; q6 E
Clear_Page_Last_Item_End+ @% X2 U% e, v5 j) p
) \# {5 X3 \# q. Z0 N( M
Show_Page_Cur_Item;显示当前页3 {; p8 D5 a- g- U
LDA Page_Cur_Cnt k3 q6 O" `/ J# M% |) j
BEQ Show_Page_Cur_Item_End ^, {( Q2 z2 v; @* I
JSR Show_Item_Text
- o0 X: F; h4 m3 u) K* Q
INC Page_Cur) N4 X. X% o \; h. m
DEC Page_Cur_Cnt3 F# y: u' i1 ^3 b7 K
Show_Page_Cur_Item_End
0 p/ h2 P) }/ X+ Y
; k5 p$ S- }5 a; s; Q
INC <Time_Wait_Cnt
% {& \- Q! Q! j
Show_Page_Text_Set_Wait;等待NMI完成PPU操作9 m' V7 X: }) z4 `' m, @$ L
LDA <Time_Wait_Cnt. |" L2 S: N/ |" Q$ W6 N9 a
BNE Show_Page_Text_Set_Wait! S7 e! s& Q0 F$ L+ `( ~
3 R+ x6 M+ D% R+ ~4 j# E9 v- w
LDA Page_Last_Cnt
1 e8 Y* f' s; {9 c4 v' F) ?
ORA Page_Cur_Cnt
' _: ?9 ?1 J1 z2 x0 g& W$ K% M1 W
BNE Show_Page_Text_Set) a+ @6 v' n) b1 \
LDA <Text_Disable_Flag
5 Y3 u$ E( l$ Y `: n9 R
AND #TEXT_DISABLE_ITEM ^ $FF$ P& a0 Y, O' X# }/ y7 S
STA <Text_Disable_Flag' A# p2 u4 J/ G6 D/ O3 d% V9 ^
RTS
1 @8 Q5 S: I( V% z6 y' F4 L
7 n. k2 ?* d' o4 C% d" ?6 J' I' {; e
;==================================================
- w6 t8 f* s4 y+ y
Last_Item;上一项
$ k1 K! P9 ~- N3 `( a: ?0 C* K
JSR Clear_Last_Track_Name
2 T* S7 R# F, Y" n
JSR Disable_Text_Draw
! q) S* h5 H Q q, N
. v4 ]# q9 G b% l0 w/ ~0 l, ^
LDA <Music_Item_Cur& x- O- m* p/ W/ X# R0 r
STA <Music_Item_Last
8 e. t, Y, s1 w' V
- x. ?3 H y, S+ v' \
JSR Get_Last_Page_Start_Index
8 I% `9 i- o4 B/ G' ?; `
4 F: P& Q& _7 g6 m/ u$ d2 o
LDA #$00
: D' B- L' n7 \- e: @, E& i1 P& W
STA Data_Buf1 }6 b; ?" u% ^+ p+ H
' ~) j/ F$ W" Q+ ?; L9 i
LDA <Page_Last7 {9 b, P. r/ i# @
CMP <Music_Item_Cur2 \" w( e. x" I8 B. Y6 ?0 X3 d# m
BNE Last_Item_Begin9 W6 Z6 T. V' J
' P* Q. p5 T0 i( O8 p! W, J' H
LDA #$01) D% T0 n8 }+ b' G) L A; d; m. H
STA Data_Buf
5 |& B* H0 {6 U1 x( g1 X9 o
Last_Item_Begin, X2 C; V. y+ ~% c# _% K
LDA <Music_Item_Cur5 f) t6 {5 @6 G
BNE Last_Item_Set0 u0 X1 o4 ?! K; g/ k1 v+ r
LDA #ITEM_MAX_INDEX + 1
- M" X, V. [1 s4 y" U
STA <Music_Item_Cur. c) H# C2 B% G! B9 n7 U# v
5 T' H1 l: ^( |7 P
Last_Item_Set0 O! H, n* w* _. o0 F) @
DEC <Music_Item_Cur5 `+ R3 }1 p c3 K( m) X- v
LDA <Music_Item_Cur
/ j& C, u% J: m' ?. P( U
JSR Reset_Current_Music [+ {: x. ]( Z) U. R! F& J; w
" B8 Y; m% S8 O
Last_Item_Play
: f* Q2 i/ u/ {3 @" ^: F: `
LDA Data_Buf+ q: ?6 A* a( f0 G# P
BEQ Last_Item_End$ I# [- V7 v) l3 R3 @6 Y
JSR Show_Page_Text, V% D2 |' j8 ~5 p
Last_Item_End
% \, T8 T, E. H. X5 j, \. u
RTS' A! Z1 F* s* Z/ i( D
; D: ~9 W) a* q9 @ U3 Q5 e8 `
;==================================================
3 O; x% d* q( ]$ x1 f
Next_Item;下一项
1 U) N5 m, a* p0 J
JSR Clear_Last_Track_Name2 Q: ]% {; n# w6 c, _
JSR Disable_Text_Draw
0 j# U. e* x8 {. E2 y
' ~$ K# i6 _( Z5 `% B+ z) c) h
LDA <Music_Item_Cur
: m: X# A( V$ v: T
STA <Music_Item_Last+ m/ P7 P, ~! R% F* I0 J
; q, }3 \! x: C
JSR Get_Last_Page_Start_Index( S4 y, ]# U" [+ f* h+ n: g
4 Y% s4 c7 u) K0 n% e
LDA #$00
8 M- B( H$ A8 b, l6 c
STA Data_Buf
8 I" I6 P! M9 _# u* M4 @5 G4 }
; h3 Y1 Y/ c3 Y
LDA <Page_Last
: P% l1 {! ?* |+ `5 F r, x5 L- n
CLC
5 @# N# U5 _( g+ w
ADC <Page_Last_Cnt9 a0 a9 X8 v; Z2 g( Z
SEC
7 F% [% O' q8 ?6 }& B1 v( {
SBC #$013 l& [, \0 a' ^/ v6 b d
CMP <Music_Item_Cur4 J1 [1 x3 V/ Y+ i- W# v
BNE Next_Item_Begin
; p1 w( N, q; k& X* p: K$ E" s
: S# N5 m8 @7 \
LDA #$01$ p0 x: X9 g& M9 T
STA Data_Buf6 `1 J( U+ n# D# g. ~( m
Next_Item_Begin$ b8 k& V1 m/ m& W# ]8 S7 d
LDA <Music_Item_Cur
% B6 e" \# v# a& D- p+ N
CMP #ITEM_MAX_INDEX
) S% \$ x3 V& u8 q/ H# S$ a/ t
BCC Next_Item_Set, g4 B- X) ^: w
LDA #$FF9 S$ A: ?* X9 B7 s* A$ _
STA <Music_Item_Cur6 {/ u. ^1 V0 X7 ]. u! p* Y N
Next_Item_Set
6 {3 U8 f# m/ y' e2 ] w
INC <Music_Item_Cur
2 D: ^# T1 P2 p
LDA <Music_Item_Cur
! `& k* T' z* m4 N* U! G; P* h' o" W
LDA <Music_Item_Cur& c" D, Q! m8 i" w L
JSR Reset_Current_Music
( o$ g, U8 Q# B% X; {
Next_Item_Play/ \1 K6 u c$ S2 l* d) R7 b. O
LDA Data_Buf
, V5 x# v9 h, q
BEQ Next_Item_End
; X1 n' R' |1 }
JSR Show_Page_Text
# y8 R8 u. c! b1 y
Next_Item_End/ r1 P& \* I+ A$ h$ t0 d
RTS" m5 b" L! O- g% t
6 I* L4 S& r) y9 |! T( g* G
;==================================================
+ L3 Z! f; G2 U/ [5 W% D
Last_Page;上一页& [: g# g$ A* @' H! N
RTS
( F5 {0 |( b+ s v6 _/ v I
h9 K6 M$ V; O7 y$ L8 W1 `( Y0 v
;==================================================
& [+ B) k' ]& Z% j% W4 O! K# U4 c
Next_Page;下一页
1 _: B' l& e. j0 l. E, q7 I' } o
LDA #PAGE_MAX_INDEX
$ g2 o1 W; u; m' I; M- X' H
CMP #$01
- k2 P, g2 Q! Q% Y1 f1 W
BEQ Next_Page_End
! }8 E( Q& A! U& Z/ A% f
. I# G+ z9 W( o! s- G/ `" R) G3 l# N
LDA <Music_Item_Cur
6 F4 X4 V' u2 S$ |" D
STA <Music_Item_Last
9 T' ~3 b' R: X2 y
+ a2 P: {4 T" A% R' {
JSR Get_Last_Page_Start_Index
, g: c8 I( i* @ A! ?! L
& z: G! f3 e9 i! Z3 o# ?/ F/ }
LDA <Page_Last_Index
- B# d, s1 Y1 _" G4 ]1 P) W
CMP #PAGE_MAX_INDEX% ?3 K. y1 X& `0 I
BCS Next_Page_In_End_Page
' u5 T8 d/ |5 @$ s! O4 @# _
( A3 d% I6 ?. I+ `3 f
Next_Page_Not_End_Page;不是在最后一页, M0 V" u9 Y r
LDA <Music_Item_Cur
! c# K. [9 `7 E( _" }
CLC
6 r8 z2 E7 Q9 F1 I4 ~$ e
ADC #PAGE_SIZE$ @9 X& J4 e' u
CMP #ITEM_MAX_SIZE9 m1 |) f! r/ E1 t
BCC Next_Page_Not_End_Page_Less$ L- c9 Y+ i9 o
LDA <Music_Item_Cur0 \! H* I# R! P' j
SEC! X T6 f' e' p. t1 p
SBC <Page_Last_Index* S1 ?' ^3 F, x, L' K: o9 ]) {
CLC
7 z0 S$ g: Y" B8 x
ADC #PAGE_MAX_INDEX3 Q" t! w+ l3 ]) v a% a- N
CMP #ITEM_MAX_SIZE+ p- Y% x, a c
BCC Next_Page_Not_End_Page_Less) H) {# ^7 x4 j" N4 j6 M4 k
LDA #ITEM_MAX_INDEX
: @. P9 S, [9 F3 A; M
Next_Page_Not_End_Page_Less
8 L1 U. w8 O0 J: J. Y& t
STA <Music_Item_Cur
+ J+ l" Z" D0 ^+ M
JMP Next_Page_Reset1 W0 _& Q; K9 s7 X# j. b
5 t1 t" x/ T! g* o
Next_Page_In_End_Page;在最后一页
( g0 n1 Y# S1 g0 W! X& `
LDA <Music_Item_Cur
6 D1 c6 _) S: ]" z; a
SEC
) m. g* {6 k8 x4 Y
SBC <Page_Last_Index
" ^/ O# x8 `( U% O9 ?
STA <Music_Item_Cur
6 q* `& i0 o/ m9 A' g
4 N: k" D+ n1 U- y4 S" `3 g$ }6 T
Next_Page_Reset" X8 |5 w/ k: t4 c
LDA <Music_Item_Cur
& K% R5 ?; K% b$ A" c
JSR Reset_Current_Music" }% n5 E2 P+ K8 X7 L* O
JSR Show_Page_Text+ ^2 R6 q6 s2 v* O) v
Next_Page_End% B1 h* }) c) H x, \+ F9 q1 r
RTS8 H+ N7 r. {9 H$ R
( a) U9 x" a7 X
;==================================================
$ j3 [9 I4 R0 D
Disable_Text_Draw;禁用音乐条刷新2 ~* @* t- z# c* U# Z# A; H
LDA <Text_Disable_Flag7 h1 S. u0 H8 K M* n$ j# r2 J
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME. R0 L+ c8 R+ @- P/ L/ \9 z F
STA <Text_Disable_Flag6 i3 l" f1 S- i6 H7 L6 x# ]
RTS
# q8 t7 e$ [% i6 x* `
4 E' F- J4 w: A. o C% `' A1 W
;==================================================8 G& c# _. ~0 t) `; Y
Clear_Last_Track_Name;清除上次曲目名: L: e5 Q( _) B& ^# x
LDX <Music_Item_Cur2 T& e/ J, E; R0 N# Y2 V; i
LDA <Music_Cur,X0 U; k3 |7 Z! o s2 U T! N; u, ?$ o
.IF Track_Name_Pos$ _* q- p! g% p; s L/ _' ~+ r" `
JSR Clear_Track_Info
% }9 y$ g- V6 f
.ENDIF" J& ]: A9 m1 [) N' {0 r0 E) D8 S; i
RTS
( e' K4 f6 j" y; H6 q* @/ S7 c
. s0 g5 {" h" p7 q
;==================================================0 d, l9 Y! H+ p. X) s2 ?6 t
Reset_Current_Music;重设当前曲目) ]7 V2 x$ C. m# V" V
! g Q) G. d, Y9 p" l/ v# C6 F# A2 z
;写入当前总曲目
+ ^( f- H0 i5 L. q
JSR Set_Sound_Total2 _0 _5 H* @2 v3 ?
LDX <Music_Item_Cur- d& R( j# W& w- m- c6 A- }: J
- c( J9 [* j+ @1 L4 O- Y Z& o$ ]
LDA #$00
- M( o! ]: h$ ~& B
STA <Music_Last1 d) x q% O0 x9 M; n
$ C" C& v `, n9 r" d, D7 |2 B
JSR Sound_Reset_Proc
6 ^! w! p. G4 Y6 ?' p$ y B8 ]
JSR Music_Show* E; M+ t+ ?4 c* N
RTS
& p- r9 y* ^: |/ w2 \. J. V* G w
+ ]* m H1 ^5 G, {. O
;==================================================! L0 T8 H- `; W( X( T
Music_Song_Stop;音乐停止
. E9 i* j8 `% D8 ~
LDA #$01
: e8 n( D' F& u5 x, a- V# c3 E
STA <Music_Stop_State
" Y5 F4 o8 L- P4 w9 j, M$ M
JSR Music_Bar_ReSet
( {/ F, Z' M( J* M
JSR Time_ReSet
: P6 N5 P, q0 a" g! U) u
JSR Sound_Data_Clear
, C9 J# E- {6 U; ]# A1 e6 z6 b6 v
JSR Music_State_Show% F S ~4 e2 V) d0 ^
RTS3 u7 y' y! | }# V5 g4 {: |' v
5 }" m& h5 c1 N
;==================================================+ M9 q9 w% R8 x6 _# F3 o0 H
Music_Song_Play;音乐播放
" O% s7 a x. F0 M, @: n. R" c
LDA #$00
: g4 a) S% _ ]* [) ~
STA <Music_Stop_State2 e% O' a4 Z, p3 Q% m& M
LDX <Music_Item_Cur
S4 R8 |4 j# w4 m
LDA <Music_Cur,X3 P! k, M, q) X! d' w. K' X* ^* p& b: _; ~
JSR Sound_Init_Proc6 ^* R- Q/ `6 _
RTS5 @* q( v- `$ z6 o' Z9 `
! c; m. z* \& l6 t O! @; T/ Q) s
;================================================== r/ k% Q; A% ^) V' C6 N
Music_Song_Last_10;上10曲5 x) ~' e4 P, S# E3 b+ q! l6 ~
JSR Clear_Last_Track_Name0 V0 S+ F' T( J% }3 ~
JSR Disable_Text_Draw
6 F' j2 f. m! M( n* B
LDX <Music_Item_Cur
" M7 J6 s/ T8 K! }, ]* J, F' g2 d
JSR Set_Sound_Total
1 W3 n. j: e, |+ _6 M4 V% _" ^7 G
LDA <Music_Cur,X4 i& l/ Q f/ w5 B4 v
SEC3 w8 O& B( B# r1 ? ^1 J
SBC #10
* H0 s) k3 ~; v% s" d* P! I
BCS Music_Song_Last_10_Set
1 b+ Y5 r* L4 Z7 G
LDA #$006 C2 y7 F7 z1 F3 f% [) `
Music_Song_Last_10_Set
! u) ^0 r& [- w) d4 _
STA <Music_Cur,X' m" ?3 g5 N8 F' b
JSR Sound_Reset_Proc
& J e5 G) r' b3 N& q c
JSR Music_Show
( W7 H$ p* Q' R! f
Music_Song_Last_10_End0 v0 n' Y# ]& M
RTS4 g: f/ g. F% t8 w6 N
( g/ {$ [ C I8 C! W. k3 ^
;==================================================
, Y2 f0 A D, X* K7 F5 b' Y# d
Music_Song_Next_10;下10曲
, d4 j9 A) [# ` f4 N) S" H
JSR Clear_Last_Track_Name
; ~& X* I( c0 c6 o$ X: k7 C
JSR Disable_Text_Draw
: _) m) F- w0 U( O; h
LDX <Music_Item_Cur
! B( `0 Q. h- J* p
JSR Set_Sound_Total# e2 p. s7 t1 z8 O9 z' k
LDA <Music_Cur,X
8 {: G6 t8 @" ^& {: F" d# c
CLC
]: B, T# Q7 {
ADC #10* H% g$ }6 C; k' [; D1 r& n B5 m& u
CMP Music_Total
: {9 S& i4 k2 Q' w" ^) E( Y$ C
BCC Music_Song_Next_10_Set
* k. C& f m, W# W, k
LDA Music_Total
& n- k' @+ H; p- U' U
Music_Song_Next_10_Set
+ S4 d) M- O/ j( K
STA <Music_Cur,X
, L- q' Y7 v8 p5 P" V: o
JSR Sound_Reset_Proc- o/ O& k1 ]/ N
JSR Music_Show% j& J7 G; ]1 _% N( M
Music_Song_Next_10_End0 h3 u( ?2 e2 `; @7 ?. L! ]- w
RTS
. K' ~ V; i( S
: q$ r' J6 O5 x* r9 k
;==================================================
( D @; o1 @1 X4 P" ^8 ^' `) m6 o
Music_Song_Last;上一曲
. F5 _8 C3 Q G. V
JSR Clear_Last_Track_Name
, J) s. @& j2 J- r" z; S
JSR Disable_Text_Draw
4 ?6 y: S4 z$ P0 v
LDX <Music_Item_Cur
# d& _% F8 y& ~, g* z: \8 m
JSR Set_Sound_Total
& o& y C h) s. }1 E3 W; d
LDA <Music_Cur,X
9 X: J5 }; r* [/ z% i
BEQ Music_Song_Last_Set
+ R* G2 Y% O2 t, J! s% g6 V1 ?
DEC <Music_Cur,X
# l! T5 J7 \. k1 x; F$ H
Music_Song_Last_Set" Z& ~$ \8 _& j
JSR Sound_Reset_Proc
7 i- T' {/ ]/ F' o
JSR Music_Show! ]; L4 x& a7 i2 ]3 h+ j. W% d( G2 p, @
Music_Song_Last_End/ n, p) D8 y" V2 b7 Z2 P
RTS
. f6 U$ Y2 w V: c$ ]& R
6 c8 g+ d* q9 T
;==================================================, O9 P% {# x3 p
Music_Song_Next;下一曲9 n0 I& g+ i: I/ O0 W; I
JSR Clear_Last_Track_Name
; y7 r5 {, v( l( [, R4 j" n* w
JSR Disable_Text_Draw
. m* n( M1 d8 |, S7 S
LDX <Music_Item_Cur8 Q/ V4 \9 K* C& i* u
JSR Set_Sound_Total
3 Y f( P2 t2 l, _( J8 M
LDA <Music_Cur,X
$ B8 w& b1 ^" e1 e$ l( @
CMP Music_Total6 k/ i' U& L. t: a6 v7 }% ~
BCS Music_Song_Next_Set
9 r" q$ p* m8 n( J2 _) V
INC <Music_Cur,X
4 p' L$ u- j6 f7 ^, O. j
Music_Song_Next_Set$ R5 z1 C u8 e$ w" a. @* e9 Z+ q
JSR Sound_Reset_Proc
: q( ?2 ?0 c6 F8 @/ l
JSR Music_Show( a `8 `8 K Q( |: m
Music_Song_Next_End
2 d l. h( Q& Q" t
RTS
7 M! w# X( y: \6 [
8 ^# S, X9 S: H x* e# C' H/ E( c
;==================================================2 H i4 J2 ^) F
Change_Select_Item;改变当前选择项* ?0 K: U" _8 E& [
;--------------------------------------------------
8 ?; @" D6 I! T% D4 m
Change_Select_Stop_Play_Item;停止/播放
P* X0 S V; J' S
LDA <Key_Once5 h6 F! R7 R4 ^& V6 |0 a/ X
CMP #$10
" w% g3 L& M7 E2 S8 U5 i. g
BNE Change_Select_Last_Item( O9 D# x# c" X/ a# c; t# N" r
LDA <Music_Stop_State. c2 m! C. x( O+ [
BNE Change_Select_Play
/ i" B4 O+ X6 y% q
JSR Music_Song_Stop
1 J; q2 \ J+ P/ G4 ] [; u
LDA <Music_Stop_State
9 H) ~# v' B) b+ T2 g7 [
RTS
7 b' n+ [8 N/ |5 \8 g
1 [9 b+ Y0 T- O4 |( C8 x
Change_Select_Play! J! U$ q3 P" z- ]6 C' Q/ C
JSR Music_Song_Play
) U" k6 S6 r9 j6 |! l k
RTS f$ c* f8 S1 l6 h2 e& L1 s/ M% R5 r
& Y" y, f1 s8 h; a" [
;--------------------------------------------------
0 u4 J, Q' c% a: E2 w, M
Change_Select_Last_Item;上一个专辑* S- j& E% c/ o
LDA <Text_Disable_Flag' |& |- ^, {; s; i
AND #TEXT_DISABLE_ITEM9 Z& u- i4 F( [8 j
BNE Change_Select_Item_End4 a% {, P$ p( ?8 }; f3 g
LDA <Key_Once
- ^- N) E, m5 A4 K
CMP #$08% z2 {' Z* t9 |. h0 _, N: e y$ h5 d. G
BNE Change_Select_Next_Item% u# I; R4 C0 B3 I# A/ D
JSR Last_Item0 [0 u' m; i1 t4 C7 Q- T0 \
;--------------------------------------------------
9 L2 a. m; s4 s3 H# A1 L
Change_Select_Next_Item;下一个专辑
* {, G# Y9 Z' A( _
LDA <Key_Once
! X$ v* G0 M& \- T* Z+ ^; G
CMP #$04
- z7 d$ {: u# V+ r# W) L
BNE Change_Select_Last_10. E2 @) X% v: j7 f! M, E: @
JSR Next_Item
& G. y# G& X# |2 Q$ y1 i5 E
LDA <Music_Item_Cur
" p* [, x( a5 p" E
JSR Get_Page_Start_Index+ t: o v4 D" u& U) R/ _# }
;--------------------------------------------------
/ }" F) U' a6 H" o
Change_Select_Last_10;前10曲
% E; \6 _* E! |& r
LDA <Key_Once
& m, x% w. Z. a; p7 Y2 t
CMP #$40- A" Y" b6 p: z8 F/ f- M3 Q
BNE Change_Select_Next_10 P* J. P. A/ A$ H" ^
JSR Music_Song_Last_100 `( u1 Y+ |+ N. r. F; L
;--------------------------------------------------, |/ r" C. x- V3 x* o
Change_Select_Next_10;后10曲9 f5 s1 r8 `( G+ C
LDA <Key_Once
* @, x. y6 l$ C4 R C( j6 N; X0 ^
CMP #$80: _ P: F: |4 Q
BNE Change_Select_Last
J1 L$ e/ l& h! I" e" g5 @
JSR Music_Song_Next_10
7 w8 r, G0 `$ e. q8 Q: C
;--------------------------------------------------
7 }+ v! y6 _% _5 i* S3 o$ d# k
Change_Select_Last;上一曲
+ h3 H; i- P& _5 B
LDA <Key_Once! A" W; l: W0 @1 p
CMP #$02
b) O+ h# x$ M% o2 f. E4 R3 d8 E
BNE Change_Select_Next3 y) l7 ^$ e; E V; w+ O2 W( D. F
JSR Music_Song_Last2 j# Z# d! G: m
;--------------------------------------------------
0 {& L: L0 d/ \+ h
Change_Select_Next;下一曲" W7 p9 I0 ]# z/ y
LDA <Key_Once
/ s7 C! O* I) z
CMP #$01
( \+ F6 k/ x. Y0 s
BNE Change_Page_Next# h9 ~( }' j% S& q! r3 M- G
JSR Music_Song_Next
6 R. ^9 p0 w% {4 k/ L0 l. i, {% I
;--------------------------------------------------
5 W' @ P' N3 t G* J) w4 B* L* U
Change_Page_Next;下一页# A5 n* _1 ^, a. X
LDA <Key_Once
! Z! s0 h$ ^9 w: \3 }, ~8 X
CMP #$20$ X% v ^9 p" U' p
BNE Change_Select_Item_End7 x( X+ r3 S" p; Q3 W' A" ]1 T i
JSR Next_Page* @: F \. \9 x7 R3 ?" q p
;--------------------------------------------------4 @6 T. E0 D) t0 w0 q
Change_Select_Item_End/ e3 |0 R+ r% d* p
RTS
% j2 b5 U' S3 @# U
3 ]$ T h4 s1 ?) c
;==================================================" e4 L% b8 V' V, z# T/ D1 E
Show_Arrow;显示箭头光标
3 X( S2 ^' r% n
LDA <Music_Item_Cur
/ C* w) }% U. E
JSR Get_Page_Start_Index6 x7 W" l+ I6 c/ R+ @( I6 r
LDA #$00# ]: Q; |8 x# c1 V4 k3 C6 {5 d$ x
STA PPU_OAM_ADDR
( Y: ^" u# b3 K8 y
LDA <Music_Item_Cur
# o* s6 h b+ _/ w
SEC
; @5 D: X0 S- s0 A
SBC <Data_Buf
+ n" V( U8 J5 I, c# f7 T
ASL A, i! n! d" O* N; P2 U7 r
ASL A9 U* T' F5 ` E; H; F- C5 d1 k
ASL A* W) X4 ?4 o- E# `/ b5 @) g
ASL A
* S O6 S! A2 W# B& s g2 ]
CLC; e* {/ z/ \6 K4 ]/ F, E: x+ O
ADC #ARROW_Y_OFFSET
5 T" K0 G; w" G6 g& N" }
STA OAM_TEMP_ADDR + $00
$ p6 @ U6 f, M
;STA PPU_OAM_DATA
% y# m; v! x4 l- ]' g
LDA #$1F
5 |+ q! Q0 ]+ P3 W! B) L
STA OAM_TEMP_ADDR + $01
# ?4 W7 |9 b: z) |' S
;STA PPU_OAM_DATA
! Z% E) m( Y: |8 f+ D8 n
LDA #$00
; @7 }% Y; O! C6 n$ X( p
STA OAM_TEMP_ADDR + $02) f& V9 X5 b# [: R& {
;STA PPU_OAM_DATA
! ? E+ T. W& A7 ?6 J7 H
LDA #ARROW_X_OFFSET
& V. }9 X+ T( h! i# j& n
STA OAM_TEMP_ADDR + $03
- T B1 ~3 [* ^8 y1 u, m. l6 m* N
;STA PPU_OAM_DATA" y% h# R; b5 C' g* G
RTS: J5 F. B8 i& c ~# W7 k
: x0 G' z/ m5 @
;--------------------------------------------------- J; q6 N) D$ v5 D
;命名表数据1 ]7 c Y. x& q; k4 z
Palette_Attributes
6 \2 D- g1 c4 Z, b
.IF SOUND_BAR_SHOW_ENABLE
# I; }2 [/ K$ j, e3 k* A
.DB $00,$00,$00,$00,$00,$00,$00,$00,$55,$55,$55,$55,$55,$55,$55,$55
0 ]9 z! z+ ?5 ~
.DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
2 \' @/ i; W4 U; D8 F) n0 v
.DB $55,$F5,$F5,$F5,$F5,$F5,$F5,$55,$55,$FF,$FF,$FF,$FF,$FF,$FF,$75
7 O6 ~8 \0 ~1 S) y3 Q
.DB $A5,$A5,$A5,$A5,$A5,$A5,$A5,$A5,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
2 S: J) }- u) M! A! w% J" V2 l
.ELSE, z* A9 ?, l$ y( ?& x i
.DB $00,$00,$00,$00,$00,$00,$00,$00,$55,$55,$55,$55,$55,$55,$55,$551 Q* O7 T! J J2 {" c/ H
.DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
& y/ u1 J" q0 ~8 s) S. E
.DB $55,$F5,$F5,$F5,$F5,$F5,$F5,$55,$55,$FF,$FF,$FF,$FF,$FF,$FF,$75! `5 Z5 U- R! O2 E- s
.DB $A5,$A5,$A5,$A5,$A5,$A5,$A5,$A5,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA4 t3 Z; x# `. z! r( @
.ENDIF
9 W3 f9 j# j$ N
! i3 k4 b9 a6 C( ?5 o
;--------------------------------------------------. L8 A- Z: z Q d2 M/ W+ j
;调色板数据
8 m# a0 [# P4 k
Palette_Data$ f* `2 ]7 @" g6 q9 F
.DB $0F,$27,$20,$0F,$0F,$23,$20,$0F,$0F,$21,$20,$0F,$0F,$24,$20,$0F
; q3 S' K9 q& g% u
.DB $0F,$21,$24,$25,$0F,$24,$20,$0F,$0F,$24,$20,$0F,$0F,$24,$20,$0F V- ]' @* M9 {. C% n
2 g& E0 S$ q2 m5 P3 V
;--------------------------------------------------
7 ?# j' G& _6 j. ]
Static_Text_Data/ j; ^$ c9 ?' A; S2 S3 `
.WORD Static_Text_Caption_Data
A; X) R8 G* L t) I0 [4 o( U* x
.WORD Static_Text_Author_Data+ i. p/ h3 E! b) h
.WORD Static_Text_Date_Data; J/ P. z/ w `" m
Static_Text_Data_End
6 K3 ?* i' x8 D) _
5 c* {8 _* b j
;--------------------------------------------------
7 ~; g$ i. ~0 {5 b0 U
Static_Text_Pos
% v6 e7 R% i. n9 p# i; B* d* o5 O
.DB HIGH(Caption_Text_Pos),LOW(Caption_Text_Pos)+ y/ E1 i- a' B" R* v% ^/ [! {
.DB HIGH(Author_Text_Pos),LOW(Author_Text_Pos)
. F8 V" e( X; b( e- O9 C1 h
.DB HIGH(Date_Text_Pos),LOW(Date_Text_Pos)
9 y! ]5 P* D, }, Q, P+ A
Static_Text_Pos_End6 q' I: U# `: f2 q* i2 R7 p( x
" K6 Y* Q# g9 [9 }
;--------------------------------------------------2 G; T% S% V. n3 e0 c
Music_State_Stop
, ~) p" T$ @$ ]2 |2 B! v b6 u
.IF SOUND_BAR_SHOW_ENABLE
# H% K% d5 P6 ]' M& a" u" P' S" b
.DB PPU_MODE_CNT_LINE,HIGH(Play_State_Pos),LOW(Play_State_Pos),$07,"STOPPED",$00. O- I5 M M! P Q# Y- `
ELSE
5 O2 C! J1 p) O: i6 f
.DB PPU_MODE_CNT_LINE,HIGH(Play_State_Pos),LOW(Play_State_Pos),$07,"STOPPED",$000 |9 L2 l8 H+ Q4 L
.ENDIF
' j/ c' D8 T6 {3 ^; K! G* [: f: t
Music_State_Play/ I6 B, H* P9 D2 K+ {/ Q3 L
.DB PPU_MODE_CNT_LINE,HIGH(Play_State_Pos),LOW(Play_State_Pos),$07,"PLAYING",$00
8 d: ~) N! h$ ~8 A. Z
- D/ A" T4 N+ ?* P2 [. Z p* [
;--------------------------------------------------7 a+ R: {5 b5 K2 R& o* L% q
Sound_Bar_Text_Data;声音类型文本& [2 W4 c0 O8 x* G8 C4 o
.DB PPU_MODE_CNT_LINE,HIGH(Sound_Track_Pos),LOW(Sound_Track_Pos),$04,"SQ1-"
0 N/ |+ e, _( C. Z1 Q1 b/ s
.DB PPU_MODE_CNT_LINE_NEXT,$04,"SQ2-"
, [) H2 m/ n/ ]3 Y& \) y# p
.DB PPU_MODE_CNT_LINE_NEXT,$04,"TRI-"6 J7 x9 h9 E0 h# P- g# m
.DB PPU_MODE_CNT_LINE_NEXT,$04,"NOI-"
) S+ ~( E! }7 Y/ z8 q
.DB PPU_MODE_CNT_LINE_NEXT,$04,"DMC-",$00* B' N7 d2 z, {) G0 ~% G
; S' Y7 D3 ?0 C1 C- G& |
.IF Track_Name_Pos
. l, S$ M+ M5 F" f3 s U1 t( Q
* @- G, j. L2 l, ]+ v$ L( B" z
;-------------------------------------------------- b2 {. J4 H5 x2 l
Track_Name_Addr_00;曲目名地址索引
) D: s- j9 s' U* G) A7 S, L1 v
.WORD Trackr_00_01
) f! L1 S' M# p
7 m9 Q& d3 X/ M5 q; [9 q
Trackr_00_01 .DB 15,"RAF WORLD BGM 1"7 N, ~( g) O3 g9 Y6 i' F" @
Trackr_00_02 .DB 15,"RAF WORLD BGM 2"+ P/ _# v: v, f3 G0 @9 w
, M$ j( q* g. J. ^
;--------------------------------------------------5 W* p5 t3 p2 K% R0 `
Track_Name_Addr_01;曲目名地址索引! C% b# z! L% G+ ~2 p
.WORD Trackr_01_01
$ G( t a- \! ]$ m9 I4 _
Y9 K( o$ u4 F1 ]% e
;==================================================
( w2 w. R7 r3 j4 S% Y% Q& p
Trackr_01_01 .DB 19,"FINAL MISSION BGM 1"( T6 P1 d# M( Y+ @
Trackr_01_02 .DB 19,"FINAL MISSION BGM 2"
Q! R: }$ k7 _9 Y4 k/ Z
/ M, |8 `/ O# ]1 c& t8 \
;==================================================! g/ S: O- |, B" J. v0 X: Z
Track_Name_Addr_Port ;曲目名地址间接索引" t8 V3 c5 ] } C, R0 W
.WORD Track_Name_Addr_00
# ]8 u8 A% P" _
.WORD Track_Name_Addr_01( R2 h! X2 f+ u# w. z
.WORD Track_Name_Addr_01( G% N4 x y0 T
# Z# q% r. G3 H
.ENDIF
) G, H, O! U! J) c
7 L( I* B2 ? B K n: X) ]: f
;--------------------------------------------------0 O: d A* g7 Q! C( D3 E) B
Static_Text_Caption_Data;静态文本数据
a1 Q5 A- k" H% `: k
.DB 16
4 \% f! C3 U/ }' q: m \* m- c* H
.DB "FC MUSIC 12 IN 1"
, x5 L. Q, e' }0 j- N
Static_Text_Author_Data
6 D5 s' o( P4 c0 Y. ^2 X
.DB 252 l; h- q6 f: \' x5 I
.DB "EXTRACTED BY FLAMECYCLONE"
4 S2 Y" F$ I; h, h' m# _5 i" s
Static_Text_Date_Data' O2 B) z% q) w6 q0 J, V0 Q
.DB 100 W, q. o! a, Q( v- N0 {: Q4 }
.DB "2023.07.23"2 A3 F" q _3 \! C; A' Z
; ^* R! R3 M6 ~, g/ n
;==================================================" j; B" V/ Y, v) R' u* f2 g
Music_Collection_Name ;专辑名间接索引6 K- _2 ?9 x6 k
.DW Music_Collection_Name_00" S/ k. B j& p3 d0 M' C
.DW Music_Collection_Name_01
5 I) v. @: ~% p5 d# w$ M% f x7 @
.DW Music_Collection_Name_02' t- M4 q8 f2 l D, D6 M1 S
.DW Music_Collection_Name_03( ^3 K) n$ Z, [9 w; a
.DW Music_Collection_Name_04( t, U! [" r9 @) s" W
.DW Music_Collection_Name_058 a1 \: e! G4 A) X9 p
.DW Music_Collection_Name_06
8 z ?/ V" l6 ?
.DW Music_Collection_Name_07
$ s" V. g) }, X+ r7 Z8 ]
.DW Music_Collection_Name_08
2 B1 E$ L# w- Q* H) k
.DW Music_Collection_Name_097 ]/ L) ^! U9 S; m4 m
.DW Music_Collection_Name_10+ |, a1 _; U. G1 t o. k
.DW Music_Collection_Name_11# M0 S4 Y5 [* J5 B2 a
/ y7 L c& L& d' {' f7 W
;==================================================
! p/ C. ~% M8 I9 M
Music_Collection_Name_00 ;专辑名文本数据) [' S- m; j4 Y, h# m$ M0 A
.DB 11,"1.RAF WORLD"
1 T, O5 k0 a. D5 m* o# @8 {
Music_Collection_Name_017 y7 Q7 q5 O# K! C
.DB 15,"2.FINAL MISSION"
; J$ Q. F! w4 _; Y. B" n( `2 S! [# ?
Music_Collection_Name_02
) d7 |# b2 O; f
.DB 06,"3.KAGE"
* p' S6 @2 ^# A% G9 k
Music_Collection_Name_03- s9 z; l6 g$ h& |$ S4 B+ |1 [. A
.DB 16,"4.DOUBLE DRAGON"
5 M2 [/ s$ ?% F' C3 _
Music_Collection_Name_049 f- Z3 X8 W: T7 ?4 h0 b' [
.DB 17,"5.DOUBLE DRAGON 2"2 n- p+ r& c+ E/ [6 ]: {( m, f
Music_Collection_Name_05, ^3 g4 T8 t' {4 q( W
.DB 17,"6.DOUBLE DRAGON 3"
4 J1 j" d' w1 ^( g9 R9 {8 h
Music_Collection_Name_06) j# w& k9 s, l" P0 K: c9 h
.DB 09,"7.ROCKMAN"
* q" P* O7 O! Q. E6 V! o3 d
Music_Collection_Name_07# i, L5 g6 I: E3 a
.DB 12,"8.ROCKMAN 2"* {/ S5 ^2 I4 i1 X; m. J
Music_Collection_Name_08
3 ]+ d: Z. u# D% h6 ~ W6 v: a& x
.DB 12,"9.ROCKMAN 3"- f" ^3 A( C9 g! V9 h
Music_Collection_Name_09+ J& X& W/ |/ i6 X$ v5 u" k
.DB 12,"10.ROCKMAN 4"
! T" [) X2 b- H$ G
Music_Collection_Name_10
8 S2 D5 {, T: a: E- N# q/ f) a3 P
.DB 12,"11.ROCKMAN 5"* G8 E, V3 O2 P+ n4 X
Music_Collection_Name_11
. ^* |6 X' c: g# a ~# @& w$ L" B
.DB 12,"12.ROCKMAN 6"1 P! C" l/ h3 |9 H p
) P, y: O3 g( O) ~- E
;==================================================$ @ H- m% L" C/ b
Track_Name_Addr_Flag ;显示曲目名标记8 z5 |, O2 L& G( |4 z' Y+ f4 \
.DB 0,0,0,0,0,0,0,0,0,0,0,0
4 N# Y6 U/ s( v" R
- A& e& [2 n; G6 S! ]! G
;==================================================
/ r4 N5 v O( r
Item_Pos_Data ;光标箭头位置
5 Q+ l. A1 f O- V
.WORD ITEM_SHOW_POS
' t' z" O1 a( h: u3 O G' f4 f4 h
.WORD ITEM_SHOW_POS + $0040) N6 M. b( c) G( \# v% N
.WORD ITEM_SHOW_POS + $00804 h; m) P& ]; S9 G4 K
.WORD ITEM_SHOW_POS + $00C0
3 o4 O( e$ j3 E* O; _& b* f
.WORD ITEM_SHOW_POS + $0100
/ o+ k* V9 A0 M
.WORD ITEM_SHOW_POS + $0140 p7 ]7 u0 C; z+ f2 \: o( c9 ?6 h$ v( _
& ~. D z% I/ S' |+ ? k {
;==================================================/ Z8 E O7 o6 M3 g8 I5 s7 X6 d: a
Sound_Init_Port ;音乐初始化入口地址* C' U; P5 \- l l# ^
.DW $BFC8
0 Q7 T- d! f; I& M; p* F
.DW $D7F06 e0 x# M* {) O: R0 ~
.DW $9FC0
( ]9 ]. Z9 J1 Y- c0 u' g
.DW $BF70- @6 T) B4 k- }- T0 E7 B0 O3 N
.DW $8003
4 T5 u! E% j3 l3 L, i# z, z
.DW $BF30
* g6 i0 Q& D7 n8 ?7 L
.DW $90033 J$ R: A3 V/ V1 \% w( k1 X5 n
.DW $80035 o1 x2 s: ?2 G8 d ?% w
.DW $8003/ ~$ q. N7 y- ~, }) D" d
.DW $8003
0 y$ _2 W3 ^$ }6 c6 C; B# R/ Y
.DW $8003
) Y! J6 ? k. G- X( n
.DW $8003
. Z; c* z# v1 t
" q* Y0 `( R( k' h% U4 E( F
;==================================================
% `- q2 K: I+ ?
Sound_Play_Port ;音乐播放入口地址/ u) @8 X! j( }. t" j
.DW $80008 z Y% i% K; {& M V% l, I
.DW $80018 o$ G }$ v( O( ^- w! E ]
.DW $A000
4 [' i: U* E6 m" z
.DW $8003
6 ?) I7 E- @$ l
.DW $8000
.DW $8003! w2 G) {7 P4 ?
.DW $9000
1 i8 {( ?# ~# X; G+ X( Z0 k! X
.DW $8000
4 W4 R. P9 L4 n+ _ D! ^
.DW $8000
+ n! b6 s" z. @: R) Q1 Y: L
.DW $8000* d5 n4 f. ]1 k8 f0 O# p
.DW $8000
9 y/ W) ?' ^5 m3 b/ o V
.DW $80008 F1 X; ?/ g5 Y# G: m
! ^1 n- g# e O& f. F
;==================================================4 J3 W( s! v! O
Sound_Reset_Port ;音乐重置入口地址3 ~, {9 \6 l) q
.DW $0000& F& ?/ q8 |" E2 @$ G$ h
.DW $0000
$ `2 A ?$ \2 h2 Q8 U% U4 X
.DW $0000
+ @6 W3 k8 F# A; M' h
.DW $0000
+ L) q2 R9 R H/ Y4 D+ ]1 K
.DW $0000
0 A9 H% I9 Z2 ~4 V: U6 v
.DW $00007 e& A q$ k d' V# c
.DW $0000
, `8 o$ M- y- G
.DW $0000
7 `- j N, X2 K1 G5 j. F
.DW $0000
+ {! q8 j% m. \+ L# C
.DW $00003 W R' N5 @7 T& |7 p- j
.DW $0000
* ^3 [, ^- J* x" D' X
.DW $0000; e. ~8 a( j% [
8 w' @ X7 `2 b
;==================================================+ Y, W( j7 n o) n1 k0 J6 s. }
Sound_Total_Port ;曲目总数
/ x0 \- G0 W5 z
.DB 38& J- }# u( B. G6 h* @
.DB 336 {' F0 u% ^$ c- I' b# X Y
.DB 49$ L+ ~* I% p' y* p* E# n5 w$ y
.DB 416 f' r" ~% i/ t: O8 R+ n
.DB 83
1 U. z7 ]- D7 t) M, T, w
.DB 70- q7 y ^; p8 _* I6 m
.DB 504 X: W# o6 q5 F/ g- A
.DB 67
4 O* _. S' ^, b" _, @, m6 B, j/ J
.DB 57( W1 r h/ K' T5 H4 ?' m) r
.DB 71) i3 F' d4 j- T( g, M0 o! F% ]
.DB 769 T3 H, y1 n. n9 c$ p
.DB 102
+ h. J& X3 d( b) u- b
2 Z+ E+ w+ c; j+ e1 E: h
;==================================================0 h) ~5 ?1 _" D" J+ s7 ]
Sound_Start_Port ;起始播放曲目6 G1 R* {0 N7 f+ v) r
.DB 00& A- Z% P5 u1 q$ N9 c
.DB 00, e, Z( C2 u6 x6 j
.DB 00
5 ]* z9 B, J3 B) I1 h+ m
.DB 00" z7 K' d- Y* x; ~% O
.DB 00
) o/ m8 ~3 C7 {4 G* y
.DB 008 N6 C5 ]3 E$ R8 J
.DB 00
3 H" s1 ?2 d0 @8 L: m8 q
.DB 00
+ R# U- U" [# m8 _" F' |5 Y
.DB 00
( c6 S: |- a, M7 _
.DB 00
, n* Y" O2 }, h$ o* A1 }) T- x
.DB 00
# h' `: R; K& O) {* p! h
.DB 00* d0 }( ~/ D1 Z d2 j7 Z
! n K; k8 ?1 k3 b+ y+ J
;==================================================
" _- ~8 w e4 Y# i" ^: X* V \ V
Sound_Bank_8000 ;专辑bank_80004 c3 U: x2 n% |+ L5 Z
.DB $10* A' `. g) O/ S* z+ A) o
.DB $12
" R, ]# F3 u0 H. U5 D2 t5 R
.DB $147 V. j# R& z$ Z" `& D6 R+ l
.DB $16, d+ ?5 X. e4 i: G, d3 D$ m
.DB $18
: y9 e' y. A+ f1 {/ f% @6 D: z
.DB $1A0 Q7 K7 H/ C$ S+ n8 ~
! Y/ c- S T- [7 u% X7 Q
.DB $003 w( Y) x) v4 f t. A8 ?, h
.DB $02
- D9 }8 r5 Q% t' S, I
.DB $0D% c ~; y6 P, H L
.DB $04
! w5 N4 K$ Q2 z1 ^0 H/ O
.DB $074 p# i6 Z" C0 k! e
.DB $0A2 z0 w0 q! V( T# t h+ X) }
3 D X; d# g/ G% f1 Z; R$ F
2 H; `! K9 w1 j0 o$ Y
;==================================================
! K! g/ {) ]3 w! ? ^2 g) W
Sound_Bank_A000 ;专辑bank_A0007 _1 T7 s& w5 k% T4 A
.DB $113 q9 ?6 s2 b# U4 ~* F! A
.DB $13
) T4 s9 {2 ]9 s) r/ s7 q: L2 q# a
.DB $15
# M1 v4 u* i$ j. x
.DB $17 C" m! m6 G8 h1 t, g
.DB $19
8 y4 d0 d& X1 N5 e; T
.DB $1B: D$ F3 u9 G, t+ R3 F* g2 s1 v
. H2 M x* |+ i: U" l2 P
.DB $01# p" \" B. }) {3 o
.DB $03# }: [* O; W* X. }: n4 V* f' R
.DB $0E, x9 b8 O; @8 z! H4 o' t( V" |
.DB $05 c d9 d$ D* \ ~
.DB $08
( l' G) D. E5 f3 @. C& f8 W1 E
.DB $0B$ a0 T3 z: X/ `- s/ t. U- i3 o
* w% V$ z7 {& `+ n; f, Q& W4 Y
, R; p7 l5 f+ m- e. d
;================================================== ^1 B( B5 I& Y4 x& f) ]
.BANK RESET_BANK & BANK_DATA_MASK
& I! n' u. |+ R" A8 w$ L
.ORG RESET_ADDR
5 Z$ G& \8 }; z1 o9 e6 `, C+ E+ v
/ T! ?3 K3 v, f& t% W, u
;==================================================" k6 u" v- F1 u$ @: f+ N* f9 R/ C
Switch_Bank_8000;切换bank到8000-9FFF
/ c" [, i5 C, K9 W' x
PHA
( k% r9 P5 V1 @" l
LDA #$06& x& M' q- m) E9 |( q& l
STA MMC3_BANK_CTRL% p( k& u/ D( |" Y; D' c% c
PLA* Y2 ^7 L: C7 I1 u
STA MMC3_BANK_DATA
3 ?9 v/ x0 q2 o' h m8 N7 A
RTS
) P9 z3 O8 _* m( ^
) V3 L- b" n# ~5 g4 L v" x. B
;==================================================# P6 ?- U% L" S, Q+ ?
Switch_Bank_A000;切换bank到A000-BFFF
: \; L; s/ c3 _9 y6 E S5 l
PHA$ u% ^* z! T$ W9 [/ B
LDA #$07& e8 A& p9 v8 K/ b8 U, V& b1 z e
STA MMC3_BANK_CTRL! @. W0 Z0 @( h" F
PLA. }8 U- `( w5 Q/ b' I% T
STA MMC3_BANK_DATA
2 u( F8 ^" E3 n: i
RTS
3 M8 ^( @% P" n9 s+ }
! W+ B/ g% [6 O4 N
;==================================================( l! o8 o& \, k: |6 @
Switch_Main_Bank;切到主程序bank/ f8 N5 B. Z2 C5 M! l" n1 t
LDA #PROGRAM_BANK & BANK_DATA_MASK
& d) G: ~; z! T4 \
JSR Switch_Bank_8000 ;设置$8000地址bank* J; R, j- i* D1 F5 T3 a
RTS- k0 q2 P/ ^- w/ D1 I# }
0 I+ F; H/ H V3 o
;==================================================
6 }. `2 y* a' l% R. V
Sound_Reset;音乐重设(如果有的话); }# }# F3 k5 ^* {
JSR Switch_Music_Bank ;切换到音乐bank
, `. v! B6 w( z7 v! o# o7 o; ~- w5 a
JSR JSR_Addr_Op ;执行音乐重置
\, k9 p( p. f
JSR Switch_Main_Bank ;切回主程序
' \) F8 n7 v3 F, J6 b9 }- N
RTS' D; [; r- {9 u. h8 p5 y; d
! C1 }* S! e2 N: C3 e2 z5 j) e [
;==================================================
/ p7 O6 v: h% n
Switch_Music_Bank;切换音乐bank8 C; F' ]" r1 Z6 e2 h
JSR Init_Sound_Bank ;拿到音乐bank号9 D1 C) @) j# i/ M m
LDA <Music_Bank_8000+ |+ S$ m7 n" {* V/ l8 A l$ g% R/ j
JSR Switch_Bank_8000 ;设置$8000地址bank1 J- _4 D/ K4 m! g; b% N
LDA <Music_Bank_A000
( F' J% _3 D2 \6 i8 q2 k3 C
JSR Switch_Bank_A000 ;设置$A000地址bank* W) t; t9 k6 O3 E5 D `$ \ T; j
RTS
" `; t$ g8 u5 A5 v- C9 X
) E# B4 b: ?( c2 E/ g; k6 \
;==================================================
9 C& v% _2 p9 b t( m
Sound_Init;音乐初始化 }, }! P" } X% B' {( ~4 y
PHA
% ]0 q- Q/ l3 B* X6 y
JSR Switch_Music_Bank ;切换到音乐bank" T1 |( m) L* A& } d" U. q6 x
PLA* \( ~) F t; y" j3 |( \
JSR JSR_Addr_Op ;执行音乐初始化
5 Q3 ]4 U- n0 P
JSR Switch_Main_Bank ;切回主程序
+ U# z+ [7 h- \) ?0 a5 e( U
RTS# e# x; L0 Y% `
2 s! r9 j% `+ h
;==================================================
0 `7 ~1 U; Y2 F1 H6 y
Sound_Play;音乐播放
* t. @0 A* |- ~) v" d ^
JSR Switch_Music_Bank ;切换到音乐bank
: U7 B+ I3 b+ \
JSR JSR_Addr_Op ;执行音乐播放% v0 m/ l& b0 W5 t, C9 Y6 W" c" J8 x% z
JSR Switch_Main_Bank ;切回主程序1 ^: e u, l0 E; W0 {
RTS
* o0 z( h9 z, c/ L; t
% F1 L4 z8 p5 S( n2 k6 P/ H% D4 Y2 _; g
;==================================================: E' M+ m$ I% ^: R& I: i
MainLoop;死循环
e( u( ^9 ?4 I
JMP MainLoop& J. k" O3 Y6 ?! N+ t# P$ o
- L& C6 v9 P3 ~* ]0 ^2 o7 f
IRQ_SUBPROCESS_JMP = 0
2 o, s2 X5 X q
$ ]- s# H$ B0 i5 b9 C$ N: D
.IF IRQ_SUBPROCESS_JMP
9 l+ x+ J" b) g! X2 ]
;==================================================2 ~" Q0 a& l8 f7 ~& s. Q: Q
IRQ_Process_0;IRQ处理过程0! x& O3 Y; D0 B. W* N
. m8 w1 R; t- J* B: Z) d2 R
;15条扫描线后触发IRQ( E: Q( D% L5 |
LDA #15/ f) E8 w' r: L# u
STA MMC3_IRQ_LATCH
% I! h$ w+ M* U- Q m
6 L, Y# d- a2 S5 L$ a0 q
;设置屏幕滚动) A6 g% r. o8 W& c' u% s ]% |; T2 h
LDA <Scroll_H1 Z! F3 `; E- R9 Z+ i8 b9 Z: |
STA PPU_SCROLL0 T1 U7 k1 t4 c I. O: W/ x1 i
STA PPU_SCROLL0 `8 F9 H8 d, {
+ T. C* D9 v6 h( \( c, H5 j
IRQ_Process_0_End$ a; B; K$ U; n
INC <IRQ_Process_Index% H/ I2 r# |4 [8 B# ~- J( A$ ^
JMP IrqProgramEnd4 A- w, y4 o: |; p
: W) ~/ e& ^' T
;==================================================8 _/ t k9 t7 E, B5 X# _8 f
IRQ_Process_1;IRQ处理过程1
' s( R5 k% t4 z) ^! v
2 Z5 Y5 t! A2 \) E
LDA #55
?+ ]7 y8 n% P+ h
STA MMC3_IRQ_LATCH
) q+ D6 x* C9 S4 L1 B
& u6 F5 R+ b; N, H# O6 m
;设置屏幕滚动* A& j( T2 g _5 O4 f2 _* g( a9 _
LDA #$00
* q4 Y& r" T2 X. e5 P7 a
STA PPU_SCROLL$ T) Q: y9 ]7 h: u
STA PPU_SCROLL
) G2 ]+ F2 b' D! z
! r7 n! r& a) |0 p+ u: e
INC <IRQ_Process_Index
9 c6 o; p0 i. g: d) l
JMP IrqProgramEnd
, o/ m: g" k3 L/ R% A; Z! F
h6 Y- t' z) s0 n, Z: \+ _1 i: s
;==================================================
0 L4 i7 W1 {. M$ }6 L# M
IRQ_Process_2;IRQ处理过程2
0 S+ b; }* f7 [9 {# m
7 m% y: L+ S( m
LDA #15
! o4 D: O3 V" L
STA MMC3_IRQ_LATCH
: N, ^1 x$ W+ {: W
+ O/ n# H6 h* X I( V
;设置屏幕滚动
1 X. \$ y, Q* H3 R2 R7 G
LDA #$00
6 V2 w0 A1 O( }% }
SEC, j% u# f, t [6 ^8 J
SBC <Scroll_H
* O# Y! l- B7 m3 @
STA PPU_SCROLL: E1 t6 |$ N0 d8 S
STA PPU_SCROLL* y' t$ p. X: z/ T9 n( T- S5 D/ s
Q# M$ j6 n% u. w f8 _$ Q
INC <IRQ_Process_Index0 J2 T* j# a2 t4 R" s
JMP IrqProgramEnd
8 `, }$ x! |+ [+ I' I. E
4 n( r$ v$ ?4 J, w: D
;==================================================
# i J! p& m' P% F$ [- b: s# I. n
IRQ_Process_3;IRQ处理过程3
( X4 v R( U. \1 E. a
, _7 u* v4 F" s' b7 N
;设置屏幕滚动8 O3 M* B4 D- t
LDA <Scroll_H
0 C8 X' z |) I1 t/ g5 f
STA PPU_SCROLL
* x3 ~4 z+ T7 J' f" Q; {4 x
STA PPU_SCROLL
* O2 i) ~& a) c6 t3 z* Y1 ]
. V7 {3 P3 |) L# n5 Q9 R4 D9 {6 S* y
;禁用IRQ, E' W9 K* o7 ?$ g& ?- D* l2 n
STA MMC3_IRQ_DISABLE
7 v5 j' O$ K0 L: C
JMP IrqProgramEnd
# z" R1 q$ R# k8 P6 m) n- l$ [5 e1 O
, x4 H$ s, \* \/ g' ^
IrqProcessAddr
1 T8 }: a8 r/ [% A" i! x# M
.DW IRQ_Process_0,IRQ_Process_1,IRQ_Process_2,IRQ_Process_3
; X) [5 E& b- J" f& d. |0 s
+ G0 T! O5 r+ f' u
.ENDIF% |' D0 U! t6 M! @6 z$ }6 K2 B, |8 |
( ^* f4 d6 @& ~/ i
;==================================================/ _) H) |( |2 l8 f) { y. @
;IRQ滚动模式常量
- x! i4 F/ v- n3 A0 _4 z2 D
IRQ_SCROLL_MODE_ZERO = 0 ;不滚动
" T+ t0 U$ D' P: N4 R P
IRQ_SCROLL_MODE_LEFT = 1 ;向左滚动0 m; r: n2 m% B- [7 Z8 U- E
IRQ_SCROLL_MODE_RIGHT = 2 ;向右滚动# C) [* _2 H4 D8 Q% ~4 P
P( j" H$ x6 B; C8 a
;IRQ扫描线数据% @. u% W( Z8 y6 r4 w
IRQ_Scanline_Data! e: H: C4 U$ q+ W
.DB 8
8 P7 B; N) z# R& _) T) S+ i) a
.DB 54
" f8 w! l0 O6 f1 m: ]3 s
.DB 8
1 z1 Q/ p1 J2 b, U, y
.DB 00 ;关闭IRQ7 w- C# P% K+ O7 g
1 k$ s# m/ D+ N+ }, V3 Z8 B
;IRQ滚动控制模式
7 b' Q* T- P& i+ `! h: r0 k" ^. h4 U2 q
IRQ_Scanline_Mode
0 v3 ~3 n! e+ O2 \' U9 f+ w
.DB IRQ_SCROLL_MODE_ZERO) M; C3 i% c* [ i3 q/ ]1 W
.DB IRQ_SCROLL_MODE_ZERO1 N& q( q2 c4 y( r) n
.DB IRQ_SCROLL_MODE_RIGHT
6 A- m- E; L5 I* K+ [% Z
.DB IRQ_SCROLL_MODE_LEFT
4 a( E% n: \ Y) ?7 M
8 s& Q) p9 R \# v, T
;==================================================1 Q! M1 ~4 @! `" @' [& s
;IRQ处理
0 {: [* J3 e: a3 k! Z% j
IRQ_Process
+ ]( |( N+ l( i5 D) ?
LDX <IRQ_Process_Index
% \ P) G6 P) h+ I9 L v
LDA IRQ_Scanline_Data,X J& c7 W; @" b6 d
BNE IRQ_Process_Latch
3 [, q" V4 G; I$ E6 |/ J4 J
IRQ_Process_Disable;禁用IRQ9 r. G" y- H2 A5 D7 m
STA MMC3_IRQ_DISABLE
6 I l9 \; m' r* ~2 y
STA IRQ_Process_Index7 P) c) V8 }4 r( o, ~3 G. N6 v
BEQ IRQ_Process_Scroll
5 U" V8 N5 {. ]- y7 \
IRQ_Process_Latch;设置下次 IRQ 触发扫描线
9 m' }" Y* ` [, K0 g
STA MMC3_IRQ_LATCH
0 X3 i# H# H' I8 B3 A# J z# C& D
INC <IRQ_Process_Index
" c _5 V1 M$ ^, ]6 Q, E) ^
IRQ_Process_Scroll;IRQ滚动控制- p/ u9 [7 S% w' h5 k
LDA IRQ_Scanline_Mode,X
6 q6 ?( c! @# M0 a! v" N
CMP #IRQ_SCROLL_MODE_LEFT
4 K0 j' v! {% x) W
BEQ IRQ_Process_Scroll_Left+ {" v6 U& A. }3 M
CMP #IRQ_SCROLL_MODE_RIGHT
7 ~, E# A7 w! z& y# d0 q& g) v
BEQ IRQ_Process_Scroll_Right! [% } P& ^* \0 {4 i1 P
IRQ_Process_Scroll_Zero;不滚动( w) v. F$ t! R2 b& `. F! D" ~" b
LDA #$00
7 I1 [6 s+ j& i& N- _% B, F
STA PPU_SCROLL
+ {4 z! `( I" V0 z* \% [9 Q
STA PPU_SCROLL
5 P" b& w! m8 [- U' g
RTS& b2 B, w4 f! i7 ?; K
IRQ_Process_Scroll_Left;向左滚动
1 P5 `( L. _: ?; _* z
LDA <Scroll_H
9 H; b" q( C1 T3 r! T' Z
STA PPU_SCROLL, Z( c) Q6 W5 h+ S8 e9 r
STA PPU_SCROLL
! Z9 a5 J: G n A! ]
RTS1 ^7 X% r A2 j6 m; Q4 Z. v0 }
IRQ_Process_Scroll_Right;向右滚动
+ ^6 u6 N/ c3 a; F) d
LDA #$000 w3 H9 G) p# t* N- ~9 n
SEC
5 \- X, z! o7 I& A
SBC <Scroll_H
# _6 e- [$ e3 x. \8 r% L" r4 Y
STA PPU_SCROLL
: r+ n0 J' u E# p
STA PPU_SCROLL. I! t# h8 T* e# s/ U1 Y
RTS
( B' f d: F7 a% _9 A$ R7 h0 O$ E
8 r k8 S2 z9 Y. ?9 k1 I
;==================================================
" x- W" p" \, y$ Y
NmiProgram;Nmi中断处理
" N+ R2 j7 {. H2 y o) k
PHA
, F9 Y7 k& X4 x) ^, z. |
TXA
% F! }9 g' I( B/ ?5 @4 s/ t; B
PHA" J: {; n! F6 K% B) `8 v. L. o6 y
TYA
* |" d0 M8 k2 l4 m! n
PHA
* z. U) c3 L8 M: L# y/ }" t1 v
2 }; X3 z* ^$ X9 |9 X! Q* A6 B
;读取清除Vblank标志, 防止重复进入
( C7 B$ C- R: D( G/ P* u
BIT PPU_STATUS$ o2 c! w% y8 b6 V3 W7 T. m8 C9 T
( k$ e! w$ S/ d% {) z" n
;切换主程序bank; d- b7 H5 `. J2 M
JSR Switch_Main_Bank' F( w0 K2 \; d% e6 A( X
I3 j+ O# k4 x3 ^% Y$ O" [' z
;Nmi处理
, b Q" N1 J" M* v4 x/ j, L
JSR NmiProcess
% D$ Z( M6 H% D- d6 B! D
1 t: e. Q/ R8 ?6 e3 a2 V( }# W
Nmi_Proc_End
1 w1 v) V! `$ i1 B2 l, x
PLA. Q5 ?5 C2 K# w) L- k, f& n( Q" M0 q
TAY
- f' M; U z5 z5 t: O1 ~' D" S
PLA6 I' M, B1 p5 v- O0 O6 M- y
TAX
% H C& t" o, U
PLA
: d" X$ e1 a: S! m( h- Y" Y0 z' Z6 j
RTI
$ \$ K Z" Q0 H, S$ F" f l
9 d! m/ o8 W9 j: F8 S0 x% S
;==================================================# e! {( H8 X, J7 i9 L' W: j7 `# m/ a# {2 S
ResetProgram;重置中断处理
% t$ _1 b# N" D
SEI
. I! s, G& }, w% @4 H
CLD: g; x; e9 A. f3 ~$ |! R
LDA #$00* Y* G6 h5 j+ H% W4 G% v
STA PPU_CTRL
- g& ^" {7 u, y/ m
STA PPU_MASK
2 h$ ?2 f/ J# I' q* b7 o6 G$ x* p
. g: V) m& D$ p/ N+ Y) E
;切换主程序bank
1 k: N3 R. k' a6 M
JSR Switch_Main_Bank2 L7 e, X- z, V" h1 L( ~4 Z" I
. p' M3 e( k2 A( U/ N) S8 V3 a
;程序处理开始2 T: j) h2 @8 ^8 h9 }
JMP ProgramBegin
: L6 F( w. H' p. I- ~: [
2 d B+ s# A/ A0 o& ~/ o% {
;==================================================
0 ^5 b% P/ `4 ~' `
IrqProgram;Irq中断处理
' k! v& ?* T* l6 k5 b" j5 |
PHA
( X5 O1 U+ O; l9 j* x \! h* Z
TXA& G9 p' _+ q& F, g# l, @, R. O
PHA1 b2 h; A5 S% ^
TYA
5 n$ D. V; k! Y( G3 w
PHA; V% [2 V Y1 i1 m0 b, u; B0 B: [: _
( N3 R1 K3 L- |6 e, H
;关闭IRQ7 r" r1 f2 Q% H; ~ O
STA MMC3_IRQ_DISABLE# K5 H8 z& \6 Z
) ]0 @- M2 x& O
;允许下个IRQ触发
3 o r& ~ P$ z: ]
STA MMC3_IRQ_ENABLE+ Z4 o. ~& r: s
4 D4 x, \( D% s w6 ~6 M" o9 {
.IF IRQ_SUBPROCESS_JMP
5 T! I |# ~( f# C
9 c4 |, B/ c6 c+ u) y" w
;执行IRQ过程# k1 j5 Y9 ?% z
LDA <Data_L% a3 C7 R7 d: V$ m
PHA
% i, |- p9 @% h* R7 q" v' t2 e$ y8 f
LDA <Data_H- b3 Y/ L/ D& m" r
PHA
; }" v2 k5 w+ A# `& j+ F
LDA <IRQ_Process_Index' t4 }" l# i" y; _ q) g. D
ASL A
! p$ p$ [1 o/ B3 @
TAY
# C6 T7 ^9 c5 ?9 H1 i7 o' T
LDA IrqProcessAddr,Y
! ?2 V6 K, E# i. O+ t* M
STA <Data_L
; D8 X O. q6 @7 M' w7 ~
INY
, j* H6 O } Y% _5 e* ?
LDA IrqProcessAddr,Y
( ]% {, `9 u& ?5 r6 F
STA <Data_H
1 j6 R6 s4 O) R/ D
JMP [Data_L]6 \2 r& j) H, F. @' d2 H8 X
9 n$ v/ `" h' o2 B+ p/ }; u
.ELSE: N' D6 i4 S8 q* [+ ]# d
; t& o) G4 [+ M& j' z/ _' ]: _
JSR IRQ_Process
& f, F8 H' y( P3 B' w* V% p# }
, U3 @* x7 a, t9 g% M
.ENDIF
5 c; \: Y$ r+ \
, V+ g9 u3 u6 G9 u
IrqProgramEnd
9 [2 V# ]8 c1 p* A
.IF IRQ_SUBPROCESS_JMP
- t% s! ]& o0 [# h5 `7 i
PLA
0 x4 Y) s: R: A/ X& L
STA <Data_H
; [0 ?9 _* f) y7 W& }" B
PLA$ R" l) T) {4 x3 N& G
STA <Data_L
* G* }, N& j& _
.ENDIF! F2 z" ^ ?+ D4 J; v
PLA% G& @. q7 g2 A. @
TAY
8 M* Q3 f0 Q. N0 E+ }% ~
PLA1 n8 X K. P$ h+ Q- m+ |
TAX4 s& V$ D* `5 K- d3 S
PLA
; i( J5 ^8 t9 u; O# y) V$ n
RTI9 K7 B/ c* B A% ?! ~0 b7 F
1 `% @ f) j/ o
.ORG $FFFA1 D0 u+ m0 \: x4 X6 e! ?! ~; G
.WORD NmiProgram& H0 o4 ~1 Z! E+ L
.WORD ResetProgram
7 h8 V" J' \4 c1 r% V
.WORD IrqProgram
3 j z, G% z2 g
8 L4 z( V4 |$ k: t! m7 b( ]- u
.BANK RESET_BANK & BANK_DATA_MASK
5 X/ ^2 t8 i* j, D6 p3 g2 u) A! z9 l
.IF SOUND_BAR_SHOW_ENABLE
: `. a, Q/ S6 |* {7 h
: |- e8 B8 P9 @# Q4 ^; Y
.ORG $FE00
% ?0 u, V6 X5 ^$ X% w
PHA7 g. H" _" i% s1 B% c
STY $07BA
1 k D. e* G1 N3 W
LDA #$8D
6 C8 r0 G& b2 y2 N7 J; M0 b, [/ H$ {
STA $07BC4 S1 U3 p5 Q& Q7 |1 w8 z
TYA3 A- o0 \7 B- C
CLC
6 d! c) a7 [. H4 N$ ^
ADC #LOW(Sound_Bar)
2 {& l' B: J' ~1 R
STA $07BD
/ ?- E1 ^1 o, Q! ]. P+ {* g
LDA #HIGH(Sound_Bar)8 h5 r& {9 f1 B7 O/ G9 J
STA $07BE8 \ _, h7 X/ ]) d
LDA #$60
0 h1 y4 G) y4 M4 T$ o, B% F% }0 L
STA $07BF
6 T/ i2 K5 c1 ^
PLA
4 W- Z% K% i3 }/ k" Q- `* v3 K+ z( l
RTS! Q. H. s4 y8 Y1 \0 p" R
: ~. f4 I! n- `& Y; j; b
.ORG $FE20
2 M$ d1 h0 k+ R3 ^
STA $07BA
" y% ` C2 y, }9 H( X6 d
CLC
, }% z* k2 I+ _6 [: j
ADC #LOW(Sound_Bar)) F! {9 \& ?9 [4 i) m
STA $07BD
5 R8 N- e! T. z3 p% ~. a
LDA #$8D$ L% O3 p# X& L8 `7 y; a% }, w0 e
STA $07BC G# C: @- O* {" z% W, @
LDA #HIGH(Sound_Bar)
3 D% [/ v$ \$ a9 p) C4 a& V* k
STA $07BE
: m% r) \$ f3 u; _7 {
LDA #$60
6 D7 U- A+ D4 y: W
STA $07BF9 q e( `, F7 Z1 T+ S" d
RTS; w9 D+ e' i/ t, k) Q$ v1 Y3 w
# m: ^" S, b) b% V I/ {
.ORG $FE402 [ m7 i" ^5 ?$ r2 q9 H- c
PHA4 I- @ w- N. u' U
STY $07F1
. o- N4 {4 V3 p8 O: W: P5 a
LDA #$8D1 L; r$ M, i+ ]" \
STA $07F3
! L7 h6 N8 I/ c, V
TYA
' d$ C" f! D' P" j$ A# Q! K
CLC
! w: R- { U$ H! T. C
ADC #LOW(Sound_Bar)
3 q. `8 O8 a$ J
STA $07F4
3 V( C0 d' b: ?# T( u) u; L1 P D
LDA #HIGH(Sound_Bar)5 y4 g( G+ A8 f! Z2 e: ^
STA $07F5( _, a* @' [( C$ F! @
LDA #$60
& n( p- ^" S% G8 @. q4 i
STA $07F69 F8 c1 l- t* I [
PLA
2 ^8 M( w8 u/ _' a& R& w S, B+ l
RTS# W4 v2 ?+ N7 x. \3 m
3 S3 S( @# T7 w/ o/ H
.ORG $FE60 \; |/ M+ I% Y! X# r2 u5 b9 X
STA $07F1
8 t0 F2 u6 X' Y6 M O0 w
CLC
4 K. B c' C8 G: }7 ]: F: G2 Y
ADC #LOW(Sound_Bar)/ e" M3 o. |- U
STA $07F4
/ y9 O7 C9 Y% G
LDA #$8D
9 Z; Y9 f) i% b( ]) C2 k3 X/ W
STA $07F3& J3 ^2 r8 @6 x4 ]& @
LDA #HIGH(Sound_Bar)
8 z$ z7 X7 f" ~0 \
STA $07F5
1 C4 O& ~0 ?6 c* ]/ X
LDA #$607 ^5 e. t8 z' G( Z! n h4 m" J
STA $07F6+ N5 o4 v5 V* ?+ ]6 N
RTS/ g- ]$ _. ~1 L0 ]
# R3 j; x8 `" D. r
.ORG $FF40
) J) ^9 ]( D& _7 e1 w6 U9 [: v& [
STA $4000
. n$ X N) z0 ]7 f7 ^7 ^- q4 Y
STA Sound_Bar + $00
; U8 R; J1 P" i3 z6 g% Y i4 d
RTS
- m# i. W& _/ ?8 q, _
) v7 B; G- y- y" m0 P4 g
.ORG $FF48
8 Z' }8 Y2 p, X! W) T* H. e: j
STA $4004
, U) G4 [2 M; ]9 x' l' R! T
STA Sound_Bar + $04' N' b! w p$ h& ]0 L" d
RTS
/ Q% @. \/ Y( q
& ^$ P' M. B8 K# M/ `5 ]
.ORG $FF502 v e6 B1 [) h0 N
STA $4008
( }' A8 Q) S2 G9 ~1 z B7 k
STA Sound_Bar + $08
8 W7 p8 i( M' m. \
RTS4 g( w4 d6 t8 g, ]
3 T8 \/ e( \! G& C: c/ |
.ORG $FF58
3 {4 T4 m' n( j# R' |2 ^
STA $400C
6 K* R3 O- b2 q' Z
STA Sound_Bar + $0C$ x7 r$ i0 r+ E; C, y3 L
RTS
9 `5 }! z; Z- j* }* _7 j. U
" j6 U8 x2 W; `+ H: [
.ORG $FF60
' L$ Z3 q1 J) v5 p- B- D* o! ]2 F, n
STX $4000+ J0 i1 N" N: O; z. ^, \
STX Sound_Bar + $00
0 t. S4 x- u' F/ Y |
RTS! K0 J2 a- _2 b3 F' O G; J2 v# R
. [* ~& |! O+ x: f
.ORG $FF685 T" T9 z- t3 `2 s
STX $4004
& E+ |/ C; `4 t
STX Sound_Bar + $04
* o3 v j% J1 r: V; W
RTS S: g& v; q u5 H) ^( K: N5 h
! A" ^2 S) |2 D, w2 C6 A2 s4 K
.ORG $FF70' \; h5 o/ v% C0 F- K* ]
STX $40087 ]: l/ u# V5 _
STX Sound_Bar + $08
9 f f8 k7 L5 K, ]" z
RTS
& n$ r; [5 d! y! k! g9 J
; R' S$ w0 {, p/ G. }0 Q9 ]1 T
.ORG $FF78) F$ r' B* j4 E6 f' W
STX $400C
( F- G' H. O- [# U! J+ J B/ B
STX Sound_Bar + $0C
) M* @ L6 }6 i" }$ r: S
RTS
9 X+ N, z7 c+ j% n4 ?: W) n
0 n) M. m) @: w
.ORG $FF80- E3 f9 E$ r8 x& r z
STY $4000
& o q0 l9 b% w/ e( V' A
STY Sound_Bar + $00, r8 K9 J: w' _$ J
RTS
4 }- R. S B2 W7 i% b% B
h& F% k3 M5 k
.ORG $FF88: o5 |3 Q7 ?9 t9 G# `
STY $4004
. k( B2 u, D9 I0 |/ U/ z7 }" y9 O
STY Sound_Bar + $048 @3 ^1 a1 ]& K3 L0 [; _
RTS
, p* \3 ~$ N% G$ m& z0 K
+ \2 l7 u7 }# a# b; h* h
.ORG $FF90
. X7 q) V* u3 G+ x& j. b, h
STY $4008
* Y- |9 l/ f6 U1 s* O. [- N) A6 {
STY Sound_Bar + $089 W, z3 i- ^4 V, B; D
RTS' V+ O4 N; W$ W, a! b, O1 B
: d& u0 O+ a5 z/ o1 F9 w+ t
.ORG $FF985 o. B6 I0 e6 |. b
STY $400C
9 k; u& v4 G2 a+ i
STY Sound_Bar + $0C, d3 W# |" z) } S
RTS
2 f+ t* X% N U$ k6 P
0 Z* u- Q _" c+ ?0 R+ s5 }
.ORG $FFA0
6 i. W$ M- Z7 h( e- q
STA $4000,X
3 d2 a$ o) ]5 |( {% q/ W( a, w
STA Sound_Bar + $00,X! L( k; @' I$ G
RTS
4 P: S6 _: g) \% E
" t- W6 ~* W7 n) a0 E' j* q
.ORG $FFA8
% O( h4 u+ N" i( L# r
STA $4000,Y" I6 y* ~8 O2 x- a0 M
STA Sound_Bar + $00,Y! B. } z K, V& d, `3 S
RTS
" E& z3 E1 J( j
" q& M/ t$ U' K" [; g- ]- h& o
.ORG $FFB0) A$ G) b$ V/ f# ^5 g; p
STA $4004,X6 u0 u- \8 @# L* x/ r& D9 r
STA Sound_Bar + $04,X
' A, x, G! j$ X$ f
RTS( L+ l: h4 X3 D9 [( k# t9 N0 q
4 t# ?& `( n/ @5 G; o; F
.ORG $FFB8
4 q& Y/ M3 }4 L+ _" c5 Y9 c7 n; M
STA $4004,Y
9 [# f3 ~* V$ c- v3 g6 j) H: I
STA Sound_Bar + $04,Y' V# Y: ~& ^5 g
RTS7 b, a/ L; j0 D) @
6 ^' t+ S* x/ x0 ]/ L6 C' ?
.ORG $FFC0
& s' }) Z: A" m, l! z/ a' L
STA $4008,X, A5 }$ E& @ d: i
STA Sound_Bar + $08,X# R" ~& B6 Q: x+ l
RTS' i S2 K; p; }4 {
4 u! C3 A: F4 E% g! D. l- K! _; h
.ORG $FFC8
0 j% v% u! q! `; A
STA $4008,Y
+ Q" C' H1 t+ F" K4 h- w- b
STA Sound_Bar + $08,Y: I, e- O1 I2 X) ^9 B5 [$ A
RTS
2 r1 B5 x0 q4 u* q+ V
r \7 n- f* {. ]3 g
.ORG $FFD0$ `: h+ q$ P; i7 k. g) x6 e4 j
STA $400C,X
2 N' R: J: k/ n7 K2 T- E& o
STA Sound_Bar + $0C,X
! L0 D4 d: c! h+ b( e/ a/ \4 f
RTS
" \0 u4 n7 L( ~2 h1 Q" V
! | e$ _, k/ |: b" T+ ]+ F8 `
.ORG $FFD8% ?- d2 H) K% C ?- J
STA $400C,Y( e4 K; i$ J, M; D$ X! h7 i
STA Sound_Bar + $0C,Y
! B' B+ w. }2 m. v6 X- R
RTS
- [) U$ Q# W5 }/ h, |9 |( ~6 G
; }) x9 b; u2 a% Z6 ~( B: _
.ENDIF
- n8 L9 A) q6 k1 f2 Y- E

复制代码

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

leshui · 发表于 2023-8-5 12:37:15

非常支持您

账号		自动登录	找回密码
密码			立即注册

[原创] [FC][音乐12 IN 1][nes + 源码]

本帖子中包含更多资源

浏览过的版块