[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音乐][播放器模板]
' G$ G+ p( Q" [+ B2 o! e
;FlameCyclone 202307105 {( `$ ^/ y% W9 Y
% d0 R% _9 g8 D8 v9 ~1 k1 x
;文件头
) ]2 g; c- ~: i0 i, u
;======================================================================
9 u8 H4 x z# ^
.INESPRG 16 ;16KB PRG 数量9 c; N- x$ @7 Y1 [
.INESCHR 1 ;8KB CHR 数量
9 ?$ B, Y0 m0 v9 y/ \* t2 S
.INESMAP 4 ;mapper 4
e9 X2 A/ k) i9 v& R
.INESMIR 1 ;命名表镜像 0水平 1垂直
4 X. @3 `; \9 c4 C$ w
, t1 k, J4 t$ v. E1 A1 |# @" Q
;==================================================1 l/ b. @5 T+ x3 s' E
SOUND_BAR_SHOW_ENABLE = 1
* F9 S6 G3 [* J+ [ l W$ @1 o ^
;==================================================
$ l* p# q! f5 W" E
BANK_DATA_MASK = $1F
" d! @+ H" b6 E; {; l+ E
CHR_RAM_ENABLE = 0
6 z9 U- V# [% n' |/ s! `& @1 ^
IRQ_SCANLINE = 136( C. T! I3 G6 O6 C6 X, M
;==================================================# A Y4 b7 |- c, ^
SOUND_DATA_BANK_00 = $00
4 H% o. Y9 A8 Z7 C
SOUND_DATA_BANK_01 = $01" f9 {$ ]# y, S7 E: A
SOUND_DATA_BANK_02 = $02. K8 c. c5 u2 R' n- F
SOUND_DATA_BANK_03 = $03 o- Z; v# {: U: f
SOUND_DATA_BANK_04 = $04
! k/ O: S. k* Q
SOUND_DATA_BANK_05 = $051 Y, X$ \6 T, I- b0 z% R
SOUND_DATA_BANK_06 = $06
% A3 V% F* _' `! v. `
SOUND_DATA_BANK_07 = $07
! U: ]2 w2 U& R8 p
SOUND_DATA_BANK_08 = $08
2 z0 a3 ]: [( @# w8 X0 m
SOUND_DATA_BANK_09 = $09/ m$ b3 @5 x- g* u$ D
SOUND_DATA_BANK_0A = $0A
! b, f5 ?& n2 [
SOUND_DATA_BANK_0B = $0B
2 a' ~1 @% Z/ `" W
SOUND_DATA_BANK_0C = $0C
5 \0 ~" ]3 a/ C: v
SOUND_DATA_BANK_0D = $0D
: F* c0 _- _7 k" H8 s2 W; Q, I4 A
SOUND_DATA_BANK_0E = $0E' t3 D8 R! d4 K4 ]) }& a
SOUND_DATA_BANK_0F = $0F
& o! c- n; L5 g
# }: E! K: T: u( o! ^
SOUND_DATA_BANK_10 = $10
/ o! y3 {0 s) T
SOUND_DATA_BANK_11 = $11
+ W7 E% z! a! e9 L! E# O" e5 u9 X
SOUND_DATA_BANK_12 = $12
' S7 M5 C4 F$ P4 ]# H/ a
SOUND_DATA_BANK_13 = $13
( A4 R" [2 Q$ K, D* b0 C* A) o
SOUND_DATA_BANK_14 = $14
. M+ |1 U) D" E" o4 H
SOUND_DATA_BANK_15 = $15
% t y0 c0 F" y5 I
SOUND_DATA_BANK_16 = $16
3 H8 ?8 N3 [3 E! j5 r$ V- K
SOUND_DATA_BANK_17 = $17
8 I, v( U' S7 ?1 `( v: C
SOUND_DATA_BANK_18 = $183 H: _# u$ w4 w. m% g- u
SOUND_DATA_BANK_19 = $19
/ ^/ L( ]. F& k- K9 a; B
SOUND_DATA_BANK_1A = $1A( |( Y* i2 [1 r- F3 }8 ~
SOUND_DATA_BANK_1B = $1B0 L/ V* P) o! d4 _4 |) ^
SOUND_DATA_BANK_1C = $1C
) C+ A2 d+ l9 K$ n, W/ a! A! }
SOUND_DATA_BANK_1D = $1D, \! {! _) O8 q. O
2 G2 g; v: K) ^- {' L
SOUND_DATA_BANK_C000 = $1E
( J( x/ D5 m' `" H2 g) t
SOUND_DATA_BANK_E000 = $1F% @6 R) M) W3 h8 q
;-------------------------------------------------
3 Q& k& A5 D% j1 T# U
CHR_DATA_BANK = $20
( B7 b8 R5 y% x' N* ~- ]6 T
CHR_DATA_ADDR = $A000/ r, n# I' z% Z2 k$ I" A
;-------------------------------------------------
, [3 {# w( L. ^- K' X; C, \
PROGRAM_BANK = $00
P0 b- O2 I8 T" K7 L
PROGRAM_ADDR = $80003 H: E. E* x: E+ V( _5 F/ v
;-------------------------------------------------
8 ]" B( I+ R1 v$ f! z
RESET_BANK = $1F
9 f- U! ~3 ~; s: `
RESET_ADDR = $FD00
, c Z! b5 G4 {& n0 n/ }+ d
9 C- v4 @! X' T T; Q: @7 q1 g3 p
;==================================================$ U( s$ m( N. A- s' X4 _1 b
ITEM_MAX_SIZE = 12 ;最大节目数
! W! ^7 [: O1 P0 W
ITEM_MAX_INDEX = ITEM_MAX_SIZE - 1 ;最大节目索引) p" w; s; t- n' S
PAGE_SIZE = 5 ;每页节目数8 w2 y# N W3 I i: W5 y4 r# u. R
0 B6 Q7 P+ r- Q* M* U z
;==================================================
# w& d; W2 A1 T1 F) Y1 @
.IF ITEM_MAX_SIZE % PAGE_SIZE ;不能整除 Y! T n+ \7 f
PAGE_TOTAL_SIZE = ITEM_MAX_SIZE/PAGE_SIZE + 1 ;页码总数
o& G ^6 d+ A
.ELSE
7 }- C2 l% T# q0 ?. p" F( ?
PAGE_TOTAL_SIZE = ITEM_MAX_SIZE/PAGE_SIZE ;页码总数3 {( T8 l0 L1 D! y( U% r( A" ?
.ENDIF
- }# V0 |8 x; l
/ B' K" F9 ^& D% H
PAGE_MAX_INDEX = (PAGE_TOTAL_SIZE - 1) * PAGE_SIZE;最大页索引6 ?% ?! k; z! J7 g5 z e/ M( c& l
, B Y# D J8 O6 a) c" t- R
;==================================================& l# P1 A- ]4 D ^ b
ITEM_SHOW_POS = $20A8 ;节目名位置% B, h. b8 ]* p. n& `
ARROW_X_OFFSET = (((ITEM_SHOW_POS & $1F) - 1) << 3) - 21 ~% \2 R1 F- q E/ k v0 M
ARROW_Y_OFFSET = (((ITEM_SHOW_POS & $03FF) >> 5) << 3) - 1;
9 _& h% R6 T4 S- j
;==================================================. Q9 a& x& Y& _ G; e7 u
Caption_Text_Pos = $204D ;标题文本位置, c2 ]/ [2 w# c; `3 q f
Author_Text_Pos = $2324 ;作者文本位置
3 y" a, G1 ?$ ]- H( L, N _1 r* \9 {
Date_Text_Pos = $236B ;日期文本位置
9 R, u# i! |3 z g/ j! g# i: H
;------------------------------
6 k1 ]1 h2 t" n
;------------------------------
: [. J# ~* o- w. s7 p
.IF SOUND_BAR_SHOW_ENABLE
5 K. Z- H' p" ~" d% J# T
. M- w' ]! I% m" R! }2 \7 V
Play_Index_Pos = $2273 ;当前曲目位置+ ^& ` O0 e# z! J3 [( K
Play_Time_Pos = $22B3 ;播放时间位置
8 f9 p6 H: E Y' _) M0 G
Play_State_Pos = $22F3 ;播放状态位置+ l- Y$ G- d8 S# G
4 ~( Q, L7 b( h, g
.ELSE
/ j" x2 Z. O: Q9 l& F/ Z: s
: T% ^+ s J# o1 Q
Play_Index_Pos = $226C ;当前曲目位置
1 Q5 m x* R$ m# A, q
Play_Time_Pos = $22AC ;播放时间位置. W' t! F* W/ ?
Play_State_Pos = $22EC ;播放状态位置
2 }5 x/ d/ T Z* q# \
8 H9 L8 z0 n/ J+ t
.ENDIF; [" C/ Z2 q1 q8 l: b2 a/ Z( w: h) i
;------------------------------* v q0 Z# V" q. p* p- k/ r
Track_Name_Pos = $222B ;曲目文本位置
; ?$ @' ~$ S2 x- J
;Track_Name_Pos = $00 ;曲目文本位置
( ^' I7 Y, W' {! E" i m7 f) F) B
Sound_Track_Pos = $2265 ;声道文本位置* M! |, M n' q( q$ \- C/ f6 Z8 U
Sound_Bar_Pos = $2269 ;音乐条位置
/ ^4 v: L0 T" ~4 q5 X: d
;==================================================
" {8 h4 r; T9 V' i
Scroll_X = $002 j$ h. _/ G6 Z* q* I) n8 f
Scroll_Y = $00
' f3 f" @( z R5 L; D" a
;==================================================4 w7 e* E8 l) [' ?
Sound_Ram_Addr_1 = $0100
, s, ]! w |" |
Sound_Ram_Addr_1_Size = $80* s$ \& p; K) ^ Q- A7 Z' a
Sound_Ram_Addr_2 = $0090
) ]: W9 M+ K6 ]' `! ~: Z2 V
Sound_Ram_Addr_2_Size = $70: u& w) b$ S x! I4 W1 s% V' @% o
Sound_Ram_Addr_3 = $0700
$ X. Z" J. i' k" f) G
Sound_Ram_Addr_3_Size = $00' F5 ~, @) j. K' X* b
Sound_Ram_Addr_4 = $04009 ^0 d8 Q: R" m% Q* \
Sound_Ram_Addr_4_Size = $00
2 N+ S+ y; @" O) K1 l8 \( I2 ~
Sound_Ram_Addr_5 = $0500) C) j5 Q W& t5 R, R- X- I
Sound_Ram_Addr_5_Size = $40
+ V* P4 N3 y! T& B' Y
" {) `0 |& f1 H
OAM_TEMP_ADDR = $0300
! y! Z2 `4 P- v& v$ b( r0 X
# e, a0 t5 X5 H: R0 U) G
;==================================================
! C. Y$ R& J" e C) b9 P
PPU_CTRL = $2000 ;PPU控制寄存器
- ^) O9 f; X" H* o- Q6 e
PPU_MASK = $2001 ;PPU掩码寄存器
6 }- N/ i: m* E- N
PPU_STATUS = $2002 ;PPU状态寄存器：读取后PPU_SCROLL和PPU_ADDRESS被复位，下一个写到PPU_SCROLL的数据是水平的，写到PPU_ADDRESS的数据是高位
: I" B) m0 {/ R( u/ ~$ _- e
PPU_OAM_ADDR = $2003 ;精灵RAM地址：用来设置通过PPU_OAM_DATA访问的256字节精灵RAM地址。每次访问PPU_OAM_DATA后该地址增加12 q# X/ ~0 W! X9 J1 }! f( {% u- X
PPU_OAM_DATA = $2004 ;精灵RAM数据：用来读/写精灵内存。地址通过PPU_OAM_ADDR来设置，每次访问后地址增加1 ^& @- g7 S+ H3 `9 B3 S! i% ~
PPU_SCROLL = $2005 ;屏幕滚动偏移：第一个写的值会进入垂直滚动寄存器（若>239，被忽略）。第二个值出现在水平滚动寄存器 7 Y0 a0 C0 g4 u. ]# R D C4 K" f$ ^6 s
PPU_ADDRESS = $2006 ;VRAM地址：设置PPU_DATA访问的VRAM地址。第一个写地址的高6位。第二个写低8位。每次访问PPU_DATA后地址增加' Y7 @1 F4 q( S, V: ^
PPU_DATA = $2007 ;VRAM数据：用来访问VRAM数据，通过PPU_ADDRESS设置的地址在每次访问之后会增加1或32
( X5 L+ s6 h3 K
OAM_DMA = $4014 ;DMA访问精灵RAM：通过写一个值xx到这个端口，引起CPU内存地址为$xx00－$xxFF的区域传送到精灵内存
! |/ e- B' U" w- ~
APU_STATUS = $4015 ;声音通道切换
4 w0 e) s7 T. X$ v1 k$ W2 h
JOY1_FRAME = $4016 ;手柄1 + 选通
! z. |% ~' d+ \$ P. P% G- a7 Z
JOY2_FRAME = $4017 ;手柄2 + 选通4 Z6 d& h* h2 O/ s5 S" \2 m
;==================================================2 G8 {+ Q% A v; \
MMC3_BANK_CTRL = $8000! @) h! @- J3 b% @
MMC3_BANK_DATA = $8001
4 U% Z( x$ P& Q- G2 `
MMC3_MIRRORING = $A000
+ c! m0 h$ v5 n( b" C' p1 `' F
MMC3_PRG_RAM_PROTECT = $A001
1 U0 F7 P+ X* v4 p5 K3 \, Z) u
MMC3_IRQ_LATCH = $C0002 [5 T% [4 n5 d. N( Q; X, }
MMC3_IRQ_RELOAD = $C001
6 H$ v( ?: _! u. {: j' x
MMC3_IRQ_DISABLE = $E000' e# w1 J# E0 U) @
MMC3_IRQ_ENABLE = $E001: l+ a+ z$ R0 i: t. l
- v- v' G' A$ b1 X9 d" R2 l
;==================================================
! \& Q$ h0 V, ?6 Q* O" y0 z. d
PPU_Addr = $02001 g1 |9 m3 t5 T# m& c/ d, M P# `
Palette_Addr = $02C0/ M8 I8 H* J" O& _
Sound_Bar = PPU_Addr+$E0
& y6 F: @6 _/ O
;==================================================
# f* P: M1 E4 [% Y
Bkg_Palette_Update_Addr = Palette_Addr+$0D
- A0 g2 C4 @. k8 j& h9 O
Sprite_Palette_Update_Addr = Palette_Addr+$11
7 s7 z9 e" Q, ~& R
PALETTE_UPDATE_MAX = $2C5 J7 |$ w2 `, E2 ]
PALETTE_UPDATE_MIN = $21
6 c0 R v5 G1 Y/ M* `
PALETTE_UPDATE_INTERVAL = 60
& D8 @: t% W0 y7 f$ B
;==================================================! F6 n& ~$ Q" o# j9 h d* T
Sound_Bar_Cnt = PPU_Addr+$F0. W! g1 ]$ [" {- P0 h# i
PPU_Cur = Sound_Bar_Cnt+$02& E$ l8 P' Q4 b% H d. A2 ~
PPU_Addr_H = PPU_Cur+$03' Q" [% Y4 `- d, [9 f. i
PPU_Addr_L = PPU_Addr_H+$04
`& z( f. H- u3 S7 }" X& ^2 y
Screen_Ctrl = PPU_Addr_L+$01
4 Y( P O- q5 [. d% A
Screen_State = Screen_Ctrl+$01
/ L+ _, ^7 w; C/ V6 o" |- J
;==================================================2 U/ f7 H$ s2 K* G8 ^ [
Use_Ram_Begin = $50' C+ q. d! Y5 `8 G4 c2 k
;==================================================' f4 m( o* V% H' y) q' Q/ ?7 m9 s
JSR_Addr_Op = Use_Ram_Begin
7 y: \( k1 a& W% ^3 s1 F$ j
JSR_Addr_L = JSR_Addr_Op + $01- W5 s1 K1 E) Y% J9 d4 }, T
JSR_Addr_H = JSR_Addr_L + $01
- N- w9 K. O: R$ [
JSR_Addr_Rts = JSR_Addr_H + $01. A) r; E3 `1 V. N6 z: ~
Data_L = JSR_Addr_Rts + $01
( b. K, Y8 y( v
Data_H = Data_L + $01
% P3 ]+ F7 P3 r5 K8 w5 X
Data_Cnt = Data_H + $01: J( i4 d6 m) m) D
Data_Buf = Data_Cnt + $01$ x; {( ^+ ]8 i+ ] W
Nmi_Time_Count = Data_Buf + $01
0 @7 V: h h6 C7 l7 E( o
Time_Wait_Cnt = Nmi_Time_Count + $01$ t% U0 F+ c1 J( n$ w! v- F
Palette_Wait_Cnt = Time_Wait_Cnt + $01
- y) S. c( x, @" y: D5 H2 A
+ G$ f. M* V1 h; }5 l! F
;调色板刷新标志. @. U; w% l9 f0 W% ^9 E
Palette_Update_Flag = Palette_Wait_Cnt + $01
" ]& N: n/ d6 B" j
3 {9 ^4 u" S4 P/ l
;当前帧文本写入禁用标志$ R2 L, R! `, R& K$ R$ I' `8 B
Text_Disable_Flag = Palette_Update_Flag + $01. ?. _; W- }5 b$ P+ \ B; w: \
4 e' u. P6 o/ E u4 d- T8 K% [6 y! @
;==================================================( ?1 T4 ^$ s& L2 [! g) r' v
;当前帧文本写入禁用标志, 防止缓冲过大导致画面跳动
6 _7 [- a# w1 I+ h, s
TEXT_DISABLE_BAR = %00000001 ;音乐条$ j0 [' w/ p* v9 c# f, ]7 M& i
TEXT_DISABLE_TIME = %00000010 ;播放时间3 L. P& z' F8 N6 n# N0 J6 Q4 ]
TEXT_DISABLE_ITEM = %00000100 ;播放时间
. l+ z+ x% L4 M. }6 \
TEXT_DISABLE_RAM = %00001000 ;播放时间; Q' }# y$ c$ ^
;==================================================
, o* {' _6 E. V2 R% Q1 A5 _
Key_Keep = Text_Disable_Flag + 1
, }, F, K8 Q* W* W* x6 G) z2 `) d
Key_Once = Key_Keep + $01
% ?* s: V% G% W0 r" X$ _" s" q
Key_Kemp = Key_Once + $01; Q; D* y' R" ^1 C4 W
Key_Temp = Key_Kemp + $01
j( d+ j2 P n# ^# [& ?9 [
Key_Getv = Key_Temp + $015 J2 K0 H5 C( f
;==================================================
# j9 c$ o* K* x9 n7 a
Music_Item_Cur = Key_Getv + $01 ;当前音乐集
: {/ s0 F% n- l( e
Music_Item_Last = Music_Item_Cur + $014 t' G. u+ `5 h/ z( p
Music_Total = Music_Item_Last + $01 ;当前音乐集9 L" m, F# z. {/ N. x: B0 |8 ?4 E
Music_Cur = Music_Total + $01 ;当前曲目. G. K, t. o, h `2 x j1 u$ H
Music_Last = Music_Cur + ITEM_MAX_SIZE ;上一个曲目1 z; E& u, y8 e7 z S& D A
Music_Stop_State = Music_Last + $01 ;播放停止状态
/ }& e6 Z. }2 ^
;==================================================, ]; o5 X( U& X; `' q4 q
HEX_Data = Music_Stop_State + $01
* X+ x! g% r9 _
DEC_H = HEX_Data + $01
6 [6 E7 r1 u |: U
DEC_T = DEC_H + $01
7 U( |( ^2 Z4 ^% Q
DEC_L = DEC_T + $01
* q6 @% z: ]- U, k
;==================================================
' V2 D& H& ^: x/ {( n
Time_S = DEC_L + $01$ U5 p1 _( P4 ~7 u Z
Time_M = Time_S + $013 y+ _1 V5 o" |. a9 D5 I! ?
Time_H = Time_M + $02, R0 u W+ w% [+ e+ _; Z: C+ {
Time_Cnt = Time_H + $03
# U8 o. }, M+ C
6 `0 V9 e5 J2 k7 p/ o' G; E" ?
;==================================================
& Z1 R: v, n( k4 t) e( j" H- u
Music_Bank_8000 = Time_Cnt + 1
+ Y; ?+ Q3 T- ^
Music_Bank_A000 = Music_Bank_8000 + 1
6 N* i3 z- A7 _4 y
;==================================================3 V0 V/ r5 Y+ S% K
Scroll_H = Music_Bank_A000 + 11 B7 i2 z. \( t/ F# T$ g
Scroll_V = Scroll_H + 1/ \- K/ A7 f& o3 p \7 t! Y4 T
IRQ_Process_Index = Scroll_V + 1
2 D- j+ I* ]. R& _3 F
;--------------------------------------------------9 ?3 n- J4 _) a. ]4 H, p1 g
Page_Cur = IRQ_Process_Index + $01
' q5 w) @' i1 ?! T
Page_Cur_Index = Page_Cur + $01
3 }0 v1 \6 L; p) q/ Z
Page_Cur_Cnt = Page_Cur_Index + $01
8 `0 u' `1 s: a4 C4 i3 v. F! ?1 G
Page_Last = Page_Cur_Cnt + $01
+ s7 S2 @, |7 e* [4 C
Page_Last_Index = Page_Last + $01' U$ ?; W. v# J. F& _% D6 j
Page_Last_Cnt = Page_Last_Index + $01! ~% X) V8 `1 P9 s2 E- i
Use_Ram_End = Page_Last_Cnt + $01
1 E& B; n/ z8 G4 d/ u
;======================================================================; [0 q6 p$ }1 u" ~8 J* S
;音乐数据块, U' \9 A* W* `2 i6 ~0 B, e4 S
3 a) I" S) }# c$ a2 P+ P" v
.IF SOUND_BAR_SHOW_ENABLE4 n. D' K! v) b
9 n) t7 J0 e8 _5 U
.BANK SOUND_DATA_BANK_00 & BANK_DATA_MASK
1 G* L- V5 h+ R5 a: o4 N z
.ORG $9000
! s' D4 L. B: h
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_0_bar.bank"* D' g& Q0 X6 y+ a% R% G0 L5 k
% P- o5 j1 p5 t6 p
.BANK SOUND_DATA_BANK_01 & BANK_DATA_MASK* B$ u3 c5 w" z
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_1.bank"/ ~8 l& X7 E Z, O ~' `) O
" c1 M# q* Y& b! n# Y
.BANK SOUND_DATA_BANK_02 & BANK_DATA_MASK
1 |! J/ l- z0 Q9 R9 M
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_0_bar.bank"
3 s+ c5 q9 Y. k: X
0 Q- K' a* `/ I+ h8 g
.BANK SOUND_DATA_BANK_03 & BANK_DATA_MASK, m4 ]8 D6 i; c6 n8 I, |
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_1.bank"
0 I+ O2 l$ k- {& N3 _5 @/ s% |
4 V& @8 W- E2 t. W" T
.BANK SOUND_DATA_BANK_04 & BANK_DATA_MASK) d4 \% D% T% x9 m, F
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_0_bar.bank"( _6 V4 G& P( ]' b
9 `1 l3 u8 _1 E5 J9 o& n) O8 L& P) w
.BANK SOUND_DATA_BANK_05 & BANK_DATA_MASK
/ O" D1 @: o& z! n5 e) ?1 H
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_1.bank"
I& y- p. C1 a* \: {) Z
: Q! b; }8 v& N! Z" R
.BANK SOUND_DATA_BANK_06 & BANK_DATA_MASK$ k" |/ g6 \, p$ {7 R
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_2.bank"
5 U7 w r6 j8 [% \2 W1 v$ W
* U5 h, [8 f& Z1 g& O' Q% K) r4 h( U9 y) B
.BANK SOUND_DATA_BANK_07 & BANK_DATA_MASK' a7 k- V- Y' |$ Q
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_0_bar.bank"! M& z R; X# m5 v5 v
6 E& q- S# Q. h
.BANK SOUND_DATA_BANK_08 & BANK_DATA_MASK" I( Q9 K1 V, B. a
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_1.bank"7 o; Q9 F' ?' a7 I' s
2 z% d; l3 s: E5 `1 v) f5 G( l
.BANK SOUND_DATA_BANK_09 & BANK_DATA_MASK1 l) ]7 k4 w, k( U$ u
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_2.bank"
+ L1 y \" g' ~5 V
|. l5 S8 I) T/ K7 l4 R0 \
.BANK SOUND_DATA_BANK_0A & BANK_DATA_MASK
& g+ q4 v3 _* _+ x& U3 a) F
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_0_bar.bank"
+ \" M, I0 F5 t" B& r3 h2 y' f! B5 N
( {! K+ P4 O; m$ s3 y- ^
.BANK SOUND_DATA_BANK_0B & BANK_DATA_MASK/ @% h, p" A W2 H0 H
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_1.bank"$ F# ]0 _- v) l/ s; e3 j3 X$ D( k
) H6 Q0 r. B7 k% H: U/ \3 n
.BANK SOUND_DATA_BANK_0C & BANK_DATA_MASK
8 Y6 \/ @9 K8 P, ?. ^- f0 [* m
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_2.bank"
2 o/ L p, B, X) |9 P
5 k( S9 x0 X! O) q( S6 T% {
.BANK SOUND_DATA_BANK_0D & BANK_DATA_MASK# G5 K9 H/ F# l% R r) I! R5 \+ k
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_0_bar.bank"- ] \- D. D: b6 w4 {
. A6 `$ F5 |4 e8 W: x. q' V
.BANK SOUND_DATA_BANK_0E & BANK_DATA_MASK8 a# T( j" J# I4 P H+ J
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_1.bank"$ s* d) g( \5 R9 ]5 u0 a4 Y0 S
! l7 x [( @8 g0 ?
.BANK SOUND_DATA_BANK_0F & BANK_DATA_MASK
, Y( }8 o1 }" i4 X9 s
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_2.bank"
m1 C9 Z( h& |! q
+ \* S! [2 \- ~; i: t6 Z& q
.BANK SOUND_DATA_BANK_10 & BANK_DATA_MASK9 J2 W* h. ?" u3 a& A: n X
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_8000_bar.bank"
% D* L0 D$ K& G7 Q" n
6 D% M( j# G0 L
.BANK SOUND_DATA_BANK_11 & BANK_DATA_MASK; ]0 D1 c; V4 Q- m7 @: A
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_A000.bank"
- z, a- M( w: U6 i4 S
. |" W0 v' b4 j& K) ?
.BANK SOUND_DATA_BANK_12 & BANK_DATA_MASK8 Z/ D1 V! N% {0 `. m T
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_8000_bar.bank"
# X* {! y O; K3 E9 l! m; P7 ~
* [& L; [+ h' [! l0 Q! v/ R) A
.BANK SOUND_DATA_BANK_13 & BANK_DATA_MASK0 Q9 w3 s2 C3 q f3 n5 K
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_A000.bank"
% j& P3 j a9 `; n4 G8 U
+ m: D- g8 \3 o2 d* C: F: t3 r
.BANK SOUND_DATA_BANK_14 & BANK_DATA_MASK( u7 o6 [7 N! c" _6 x6 b- z8 k
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_8000.bank"
' X& }+ ?* l% s# z* Y4 m0 ?& |; @
% M* W% b' r! ]) s' M( N' ^ n+ H
.BANK SOUND_DATA_BANK_15 & BANK_DATA_MASK
0 {4 U( k3 B* b7 w* q0 m4 T
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_A000_bar.bank"
) ?' t$ C. J! y& A- |& S) [
7 `# j$ s' g6 F5 e) a8 d: @) @2 l& }
.BANK SOUND_DATA_BANK_16 & BANK_DATA_MASK9 O8 Z- t' |. n( N% ] N
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_0_bar.bank"
F5 E! Q2 l; S; s7 ^
1 L: Y [3 j8 A$ ]4 ` ^( s
.BANK SOUND_DATA_BANK_17 & BANK_DATA_MASK
8 U' E+ H2 M- h9 d' _
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_1.bank"( C2 c& o/ S. w
7 J. e# X1 r# B* t/ f
.BANK SOUND_DATA_BANK_18 & BANK_DATA_MASK
+ W; ?1 l7 g" G6 q
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_0_bar.bank"9 X& e/ ?6 A; U! H% r3 h
$ ?1 }0 x8 u( Q) ~/ s) y
.BANK SOUND_DATA_BANK_19 & BANK_DATA_MASK
/ a6 S% V. X' J& B/ l* i5 k- m! Y+ S
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_1.bank"& `. M* g, N0 O( s5 u& y: ^0 F3 v
" ~( Q2 Z3 m3 ~& u" R8 |% Q3 B
.BANK SOUND_DATA_BANK_1A & BANK_DATA_MASK
7 y0 Z9 x5 V6 x/ n% m+ w* O
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_0_bar.bank"
0 |! B" M3 y! p9 z. S
7 W' m! |0 r- V7 G) I" }
.BANK SOUND_DATA_BANK_1B & BANK_DATA_MASK
2 d# `) }4 w& h
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_1.bank"
# S! e6 [6 X% \9 n, Z' s
$ P5 G( x" o$ K1 C* }9 G
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
& a+ }8 l$ W; `8 P( D- c
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_C000_dmc.bank"$ J n G I3 ?; i
' N2 X0 s' i. }" Z9 R' _
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK! W* B/ P# H" \' K6 @4 D
.ORG $D400( k& o- p! K+ R$ p* w
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_C000_dmc.bank"( e) e( J: z7 q# H( z3 L
- g. C) c/ V& S& ?! |$ J6 t4 q
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK# @' j- R- h; H' l
.ORG $D800, {$ o& o8 q1 k8 ~' R$ Q# Z9 d
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_E000_dmc.bank" Y _2 ?" |9 k F
0 t& P, b* R/ y& h& {9 E' g0 ]
. H1 y: X- L& I: k! N
.ELSE8 X# M1 M+ D0 }' h r
2 f+ b8 j" s' A5 y" [$ y! y
.BANK SOUND_DATA_BANK_00 & BANK_DATA_MASK
7 H" N& H6 Q: a1 K
.ORG $90000 W; n9 f, F( m6 H) L) A3 ~* S
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_0.bank"
" V% p, I: e: a7 s6 A) N
5 q: J& G1 \; [* l
.BANK SOUND_DATA_BANK_01 & BANK_DATA_MASK$ W, b4 U5 K+ {9 n @
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_1.bank"2 Z! F9 p* G- D9 m L1 g3 L& Y; W/ W
( F$ H! I( r+ F( u/ t2 B1 A
.BANK SOUND_DATA_BANK_02 & BANK_DATA_MASK- m1 Y' g# r ]
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_0.bank"
0 Q: J) I( w( F/ v- o3 C: T$ r7 j5 Z
: P; i( i5 q/ ^5 `4 s1 {
.BANK SOUND_DATA_BANK_03 & BANK_DATA_MASK' g/ [; S6 G, {& {/ O5 m* [
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_1.bank"
& w2 b3 U$ S7 s. z4 x& E
# v' Y, { G5 J
.BANK SOUND_DATA_BANK_04 & BANK_DATA_MASK" @4 T1 ~$ }# h- q& J
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_0.bank"
6 H4 Z- M% W: \# X
7 G' q( ]6 l* K8 r' D! ]) K* K
.BANK SOUND_DATA_BANK_05 & BANK_DATA_MASK
$ E7 {4 w/ S, r" Z! h$ w
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_1.bank"8 F# `7 D+ D" j- y
/ z5 V% s7 c6 p# h. v
.BANK SOUND_DATA_BANK_06 & BANK_DATA_MASK6 W/ K5 h9 e7 R% P: a
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_2.bank"+ Z# X# ~: b) `: D3 x' H. }/ G7 v
$ m5 [! Z% C9 R. x) J! R4 Q
.BANK SOUND_DATA_BANK_07 & BANK_DATA_MASK. I3 M- b6 m# W! x0 N8 E' \
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_0.bank"
* f8 h X/ k# Z2 E' k: V
2 O' z+ S- [/ h
.BANK SOUND_DATA_BANK_08 & BANK_DATA_MASK
5 S K* S. ?. [* P: C
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_1.bank"
* K9 K, D3 {& s9 Q+ Y% }
" e' l: W3 m j. [6 C" ?
.BANK SOUND_DATA_BANK_09 & BANK_DATA_MASK) ^! P3 s! l7 Z$ h+ ^2 Y7 F
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_2.bank"# I+ h3 U2 V& v' _
5 d3 `- o8 g7 j j
.BANK SOUND_DATA_BANK_0A & BANK_DATA_MASK
5 q# ?7 [2 v. K4 L |7 O- n3 ~
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_0.bank" d% h, T( j! X1 r# ^3 u
% B+ C3 [& A& j+ v$ w; I6 n
.BANK SOUND_DATA_BANK_0B & BANK_DATA_MASK
/ H0 x4 J6 l6 O7 ~0 Z, T6 T+ ]' x. K2 \
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_1.bank"6 N) c; w1 ]3 w7 `2 m& T
- r' B5 {% s8 a! z7 _, J: Z
.BANK SOUND_DATA_BANK_0C & BANK_DATA_MASK
* o) Q: {/ N6 z7 ?
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_2.bank". t) w- l1 z! S6 @6 ~+ v
. [6 z/ P* }' ~* @
.BANK SOUND_DATA_BANK_0D & BANK_DATA_MASK; I2 k$ G+ Q. X' U$ G9 I( h
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_0.bank"! T$ K! t, M/ d
" [& W0 _- R" }; N8 Z7 f3 z
.BANK SOUND_DATA_BANK_0E & BANK_DATA_MASK4 I9 N ~ _! Z5 J
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_1.bank"9 p8 p; p. }2 H- P4 J, G1 m) C
2 ?7 X' h* g% a+ g! `/ N2 c
.BANK SOUND_DATA_BANK_0F & BANK_DATA_MASK9 ?5 l: D3 k2 I5 W% N( k2 T& m
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_2.bank"
) c; I1 O( W, d' I+ S0 p
- K% s) J) V+ f5 {
.BANK SOUND_DATA_BANK_10 & BANK_DATA_MASK
1 R& b. G0 ? d5 M
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_8000.bank"
5 ?& }& {$ e5 z: K: R% c, a0 o
# o5 e6 N: ~3 m* c [4 I
.BANK SOUND_DATA_BANK_11 & BANK_DATA_MASK
: l6 c5 B2 ] i# n `
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_A000.bank"
) W- e3 m+ {: S L% P
$ R, ]( Z4 Z* g l+ u7 n
.BANK SOUND_DATA_BANK_12 & BANK_DATA_MASK& x' }2 e7 W) f% a% R& D9 o
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_8000.bank") Y, |; r8 }0 @2 ?: c+ b
3 O" k% a; ~$ w8 Y% f
.BANK SOUND_DATA_BANK_13 & BANK_DATA_MASK
2 M7 i8 g" X6 ?/ {& l
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_A000.bank"
( R& V+ N$ x; i4 H
- T4 P$ k2 a) b V3 z5 d
.BANK SOUND_DATA_BANK_14 & BANK_DATA_MASK
+ ~8 J0 O! K/ q. X2 X# p
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_8000.bank"
6 ^& j+ ~' J( j3 M1 K- y( g) Z% p! E
( O6 k( Z" z3 I% Y
.BANK SOUND_DATA_BANK_15 & BANK_DATA_MASK
J- f( ?7 S& F/ _- s
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_A000.bank"
9 @( E) y) j5 ?; w0 k$ I! W
- u. R" i" v# f2 S
.BANK SOUND_DATA_BANK_16 & BANK_DATA_MASK
6 }1 H4 M4 y. u) j: z3 J
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_0.bank": ^6 p- M0 r9 s! U; ^: x( c* x* b
+ \/ l% t6 u+ n0 e8 e' T
.BANK SOUND_DATA_BANK_17 & BANK_DATA_MASK
. r2 z# v. ^5 u( ?9 [+ p
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_1.bank"
) r# e5 `: k* x9 f& i! C) B! O6 n
0 K. z; \, x. R3 n: i8 Z
.BANK SOUND_DATA_BANK_18 & BANK_DATA_MASK- a. Y. v6 _0 z$ {$ W
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_0.bank"& |3 M; `, Q& O( J( e' \5 e; _/ V
# R8 H( Q# c2 g
.BANK SOUND_DATA_BANK_19 & BANK_DATA_MASK9 B: e2 T* U* x; p% b( k8 _1 Y' z
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_1.bank"
; l+ _" a. T& I+ l
% h" d. Y$ k, y- u' `$ i3 J8 y
.BANK SOUND_DATA_BANK_1A & BANK_DATA_MASK$ ]# v6 j, M. X. o
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_0.bank"
" ~2 B4 v' h! K+ u" E1 \5 _7 L
/ ^2 ?$ U7 c6 F6 _* q5 F c
.BANK SOUND_DATA_BANK_1B & BANK_DATA_MASK
" e! n/ T, t7 B) y) @5 j/ U
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_1.bank": h1 l% S$ E% H8 L) K3 D
1 N$ q( v: P9 \6 v
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK* [' K. O: ~: K( x! [+ Q
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_C000_dmc.bank"
) Y1 n9 |& n0 T
4 ]: C6 o8 Y0 K7 C9 o; y
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK% l+ c# k( H$ k" ?( w
.ORG $D4001 n: q9 D% q# Q6 u, Q+ ~9 h- ^! a
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_C000_dmc.bank"$ g- V1 ]$ E9 u) k# P; R# [4 J( e
* E2 H" K1 G9 ~
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK V/ ?& v* `2 A3 E. X
.ORG $D800
( U. ]/ N; q% `, V
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_E000_dmc.bank"
5 s- R q2 n3 u7 v
# `( C) K+ s# L! e% t
.ENDIF( g, g7 m. l. u N
/ k, f( y' m$ U, h: j" l& E
;CHR图形数据, t0 ]3 J1 W5 x% p/ N
;======================================================================! y! ^7 L; `& k/ T! P" m
.BANK CHR_DATA_BANK! o0 [& T* Z6 S1 D6 m) M& ]
.INCBIN "chr_bank/chr_data.chr"
% T1 l% d Z4 l) V
* f8 }& P: e$ |% s( o
;======================================================================
/ t. `. L+ F8 C3 z+ ^# M
.BANK PROGRAM_BANK & BANK_DATA_MASK& v* P5 l+ H, L& K6 A8 ?! C
.ORG PROGRAM_ADDR
8 ^8 k# Y D' ]0 D6 ]5 D3 o4 x' Q
( G# n- T/ |. E4 O* T% U# m1 b. ~; J4 c
;==================================================* u5 a: I/ ]$ O3 ^: g8 I. ^
NmiProcess
% `4 t" W/ s% O! ^
5 b" [3 w' Y4 j- n
;关闭屏幕控制' a8 L8 ?4 F# o2 p6 s# ^. h$ b
LDA #$00$ `; A! O: z$ e3 K5 G+ q% w
STA PPU_CTRL7 b8 Y4 [7 Q' v' d9 _" W' {
# Y5 C8 ^8 {4 n
;没播放音乐就不需要触发IRQ
: l0 V, y' c# ]+ F
LDA <Music_Stop_State( I3 l8 w# m4 ?4 O8 t3 P+ h
BNE NmiNormal
! f# q2 u9 y% i/ `; f# E! l( v( I
) P; H- C" V$ P, M1 W2 i
;重置IRQ索引. j O( E% u B, a- [% b- h
LDA #$00
3 I4 C' G; I/ v
STA <IRQ_Process_Index" c& H# c+ u" t
0 v; i6 u1 m- b1 v
;时间秒数为空则跳过
; ^: j# X& q) m9 Y, ?
LDA <Time_H
9 G* ?7 }' r2 Z# P' m& t
ORA <Time_M
4 k$ m* Z$ a% d7 x" {
ORA <Time_S' v' O% r; w: x
BEQ EnableFirstIrq
- T7 ~2 a' h o) F2 O/ B1 ^. L! J
2 M+ [$ n5 ]4 f2 U3 e3 A
INC <Scroll_H
7 K3 c+ d# T8 Q6 }
% K. n `8 D. P, B z# s
EnableFirstIrq
( q3 Y5 j4 X: o8 @
;80条扫描线后触发IRQ
6 i6 @# |6 C8 x4 V5 l2 I3 L8 z
LDA #IRQ_SCANLINE
' Y/ H" T7 |# G: @& b. o/ a- b
STA MMC3_IRQ_LATCH
y# z5 E* P% Q
STA MMC3_IRQ_RELOAD
( Z; ~# t8 K e( Q) V
STA MMC3_IRQ_ENABLE
- }6 j* @ z* G7 j3 M
CLI* ^- m% m( w) |3 w; u1 w, O
# w( b$ A5 S' D' F
NmiNormal
) A, ?$ O2 x+ z$ }4 K. I
9 ^3 M: {( O! n# y9 t- i/ P
;处理PPU图像4 T" P, x9 `* u2 [0 y
JSR PPU_Proc
1 ~# C; l6 W, U( U4 k
9 r; K; e0 |% b2 o7 L
;写入精灵, 会占用516个CPU周期, 约4.53扫描线, 写入会导致1像素抖动(PPU处理徐优化)
) n8 g0 ^/ G: d' c- N
LDA PPU_STATUS
C/ ]0 C! I. V8 Z, f6 }
;LDA #$00: k" |; G. {$ Q: N5 [% l
;STA PPU_OAM_ADDR5 Z2 x4 F/ e$ k5 C& ^
LDA #OAM_TEMP_ADDR / $0100
! j& ^& s0 B1 t; R
STA OAM_DMA
" D# b* R+ A6 N" _4 c& C
* V8 ~! r; |' n
;启用NMI中断
) Y$ E, O" U- Y: P7 @
LDA Screen_Ctrl
/ ~+ K* Y& Y7 O* T& v O+ k
STA PPU_CTRL
0 Z+ H, F% b/ Y. k
( Z* H0 _# Q+ |) l+ j$ Z9 ]# f
LDA <Text_Disable_Flag) b7 ] B/ H5 B" U( ]
AND #TEXT_DISABLE_RAM
: D( M `/ a, ]% k0 |
BNE Nmi_Sound_Play( }+ J) p- W1 G- D% }) ~" B g
* L+ A1 F5 s' q" `1 r, Z- U' _
;处理手柄输入8 z" G; [7 X" E9 g
JSR Key_Proc! z5 y" }0 a" g
: Y+ W4 h. \3 g8 V6 U, r5 i
;切换音乐(手柄触发)% B0 u8 A2 ?- X7 g: l
LDA <Time_Wait_Cnt
! c7 F3 ]* V+ S2 r' `+ z
BNE Nmi_Cursor_Arrow
$ H6 M5 @4 z7 }- Y* I
JSR Change_Select_Item
1 j& q8 B$ R' ~& F$ f& K! t- H8 Z
7 f8 C+ W! y" S( g. ] Y
Nmi_Cursor_Arrow2 L& ~9 N# Z7 z m
5 a0 }! l1 p# b
;处理光标箭头" a' ^' z' L- [. i V$ v- r% D6 }
JSR Show_Arrow% D3 A& O& R: W! c1 |- y
( n( K, R! j$ `$ k
;更新调色板
: J' Y' Q+ U9 S. C P$ J' Q
JSR Update_Palette_Data3 Y2 c* f, W% c e3 `" E' Y4 r: X3 F
# I0 _9 a7 l' i
;显示时间(缓冲)
1 C% `' M; D% m8 E9 _
JSR Time_Show" U- ^- i0 x9 R
6 H6 c& Y" p+ H% O
;音乐显示(缓冲)6 O7 } z# i; P
.IF SOUND_BAR_SHOW_ENABLE/ [0 d4 A4 ]5 O2 t3 q
JSR Music_Vision0 j7 y+ q( }2 ^$ h; b7 p5 v3 Q
.ENDIF" m( w- P& B+ k* D K1 h
# k$ b, G$ w+ F3 c
Nmi_Sound_Play/ O% X7 o% f6 l% J0 |6 l$ o1 {
;播放声音
2 a0 y$ g) X7 z; \, l* B4 P9 W- R
LDA <Music_Stop_State0 m( I* T- O0 U5 }6 y
BNE Nmi_Time_Wait_Set
! Z8 G# a9 O* d8 x9 z. {8 L
JSR Sound_Play_Proc
* F) D5 V2 Q) l9 F$ G$ P
: Y& G& _' J+ j, Z( R+ M; a( L8 Z
;播放计时: K1 r, |/ f, R' z0 A# }% V" S- T
JSR Time_Count
0 V4 o0 M) S: M7 N9 J+ D
& v. {% V y& g8 b" \
Nmi_Time_Wait_Set' s$ b" Q, W7 h. x- i4 A
LDA <Time_Wait_Cnt
! C! a6 v* c- X% x. ^
BEQ NmiNormalProcessEnd! s, \8 j+ |, @5 R1 } B ~0 S
DEC <Time_Wait_Cnt( E6 O& x6 _7 G0 T6 Q
NmiNormalProcessEnd% X+ T" F: @; |! i5 J6 S- N' C
/ q# ^! K. D( Z( t3 S" m7 w
INC <Nmi_Time_Count7 \! B C- K8 P7 {+ v" `! F( }# r2 Y
0 U$ G: p V/ B9 Z3 x3 G( g+ L
RTS( ]1 ^& E' w$ D6 R
3 C3 q, d' W/ {: @" [7 Q: A
;==================================================
9 X9 c1 Q( \- V& B! n6 u, |
Init_MMC3
4 N& U' _; z9 N- x. N3 ?
;==============================
/ g ]$ m" O% I( {% l
;禁用IRQ- c! L5 d# p% f( s! n/ p. r
STA MMC3_IRQ_DISABLE
0 n0 ^. E% `' y' }3 O" x6 z
3 r# M0 C' D% M- I& Y
;水平镜像1 Y" S; ?! h! d) i9 H9 `
LDA #$01: P4 s$ L# y% U. e, J% x% e
STA MMC3_MIRRORING/ e. x$ S* h) E1 b1 P9 L# Q- f$ T
) i) u# Q* z8 w! _4 K2 l/ a
;初始化图形bank
! c, K8 b4 k* [
JSR Init_MMC3_Chr_Bank
" E: \" R) e8 g" u) G9 z
" a8 o& q; E& }* C* w2 o
RTS
6 j) J: D+ g; P: Q
;==================================================
- H3 W% o6 s' T. m% F1 T: d# b( p
ProgramBegin;主程序; \. f. [" X4 x# Y, `
LDA #$00' \, x0 D+ ^; Y, d" ~) M9 X) K
STA PPU_CTRL
) r, m) d$ G5 G& Q# E
LDA #$00
6 X) }' e# p; o; g" Z5 g3 g& A. e7 P
STA PPU_STATUS$ {. I+ T- U! V- o/ t- H
STA PPU_MASK
7 f5 ~. G2 A6 k
STA JOY2_FRAME/ E% @3 c! ?8 [! |5 h
9 o [# s5 W. |6 P! B
STA PPU_SCROLL
+ r1 D, _7 D- p
STA PPU_SCROLL8 g5 J" U2 h3 d+ c! S: F! ^' [! S
) g0 U. G" _. T7 H2 d( V% a
;==================================================
9 p5 Q: I6 `2 }1 _' M# b7 x: [. \
LDX #$FF( f' p" n2 [) S) _" s
TXS
/ \2 e8 G9 [$ n7 f& g
+ A4 g& U( w* g2 N/ Y0 f9 A) K; p
JSR Init_MMC3
& m& P9 [; M; l, ^
/ w7 L1 U( n0 i7 r
LDX #$02
6 j5 ?$ z5 o# h4 a; K
Check1
1 S+ p& z9 ?+ v, w; Q
BIT PPU_STATUS
& c$ Y$ o. a3 H/ i
BPL Check1* g$ o. l( w, C2 l. ]+ n& d8 }
Check2) ]/ E( d& j# x3 q0 C9 o
BIT PPU_STATUS. B+ g8 G: x/ j$ T) M @' R$ q
BMI Check2$ L3 N2 c) M2 C, o% I! d: \" J
^9 H8 Y! P1 a0 f/ z0 G
LDA #$0F
! v, @# x' t# c4 q0 l1 O. t& O
STA APU_STATUS
2 e% f% d$ p9 `/ ]4 S7 p* v3 i
LDA #$C0
3 I9 D4 R7 Z7 c7 G
STA JOY2_FRAME9 @: K9 b g7 b! ] b3 T0 e
$ w; w4 M0 d1 d- Q) O: A" o4 ?5 k
LDA PPU_STATUS2 B2 o, G1 \5 ~7 x, z# }0 O
LDA #$107 k: F, R& a1 y# |9 ?
TAX& f5 v0 a* c% G. `+ {: r
Check3
3 R( E4 z+ |7 @3 z
STA PPU_ADDRESS
8 D8 _& N. B5 Z
STA PPU_ADDRESS& u: ]' X: ]! h5 f2 i
EOR #$00# f: _5 K. z) b4 Z# f6 [) c
DEX$ H% Q* b& W3 _
BNE Check3
. y9 N1 |# t) t, d+ T( a% R4 b
;==============================
6 K0 ^- B/ \3 [& @ E4 C$ W
;调色板清空8 m% o/ y( m7 u5 O3 H
LDA PPU_STATUS+ y0 _. j4 b/ E5 V9 A
LDA #$3F
1 [) v# s6 I: H9 U
STA PPU_ADDRESS% Z7 B$ w) F- ?4 Y( f9 o$ ?7 r
LDA #$00' x6 N* ~0 r/ W) F; m1 F1 K
STA PPU_ADDRESS, p* O" K( E2 y) A$ T1 \: L- M
LDA #$0F
5 ]% r: z, ]* y
Palette_Clear
! F9 U2 B4 B* L
STA PPU_DATA8 J% z1 m6 Q7 k1 d) J) p! A4 l
INX
8 e9 q$ z5 `; e( T; u3 {! s
CPX #$20
% a o8 I9 ?) i% B: }
BCC Palette_Clear) C4 o/ z! j, c/ i+ `/ b
LDA #$00
& b% m/ V9 i9 d* f
STA APU_STATUS* i( Y6 p! q1 _' u4 f, E7 ^
% C$ \& @# h$ A; L
;==============================1 O7 A9 K: \7 Y# y
;RAM初始化6 J: _8 e/ j( t% l$ B$ X
RAM_Clear_All
3 L+ F# W, ^" y: H; D
LDY #$00
2 K6 j m: [$ a3 U. N
LDX #$08
/ e, W# T2 q* z# z; B
LDA #$00
* g# V$ _, a/ o" d1 X. K6 J( \
STA <$00# B7 a% ~) D! b" g! `/ P) w9 a8 K1 N
STA <$01
/ ^( y2 g# H! K0 m0 X
RAM_Clear_All_Start
! B4 o' o; E& ^$ P: t* }% d7 O
STA [$00],Y( t$ ~$ N7 H" B
INY
~1 ~( m) s! G5 k) [
BNE RAM_Clear_All_Start6 a1 h6 ~# S" ]; ^0 Z
INC <$016 O1 B& \3 S* i0 [9 k' z
DEX$ t7 [" `) S# s' C4 P
BNE RAM_Clear_All_Start
& q; Q1 e! w. G2 f8 _
0 s3 m1 ]4 \+ p- U7 _/ Q" w0 i
JSR VramClear: }- U0 P2 q0 C
JSR VramInit }7 X4 O2 M( d7 z
JSR OAM_Ram_Init1 O$ v, q" i8 o: b: r1 w- a
JSR Init_Palette_Addr5 d) f$ v, r: n
. U! r7 m# ]+ B5 J
LDA #$FF9 N: j% L+ O. F( @: T- c" |/ h( H8 W
STA Use_Ram_End
( V- X! q% x% J" g6 Q# S) H
;==============================
3 s$ R3 y, Q. @' p/ @
;初始化背景调色板/ T% d8 F) I& X# R5 m( T* z
JSR Set_Palette_Color
' o b& Y' ^8 t& B$ h7 l
JSR Set_NameTable_Attributes) F, c# [$ j9 b. y f
! x E# v& x4 k
LDA #$00
/ \; P9 c) Y& Q; S' V8 D
STA PPU_OAM_ADDR8 [7 p8 `1 k* m0 Y$ h
LDA #OAM_TEMP_ADDR / $01006 a9 j0 E' k8 j3 Q( }
STA OAM_DMA
2 C1 c% b9 F/ H2 D1 ]
: {5 u1 z* e+ D2 L( K! x) B! \
JSR Sound_Reset_Proc2 o Y1 K( O9 `9 X# k( Q
JSR Set_Sound_Total
: F' R# B% A+ z# X/ ~
1 A2 M8 \" {8 I: L
Init_Start_Music
* L1 b, P: V# V% t7 ~- U
LDX #$00$ D. v \+ M% X: y
Init_Start_Music_Write# A9 E# h5 V5 k* s T: P
LDA Sound_Start_Port,X) {( V' a3 X1 f& Z* G. @
STA <Music_Cur,X* \! l% Q2 K) i$ g2 J) P i% c8 T% o0 V% \
INX& w, i4 I2 p6 i/ R! u
CPX #ITEM_MAX_SIZE- N& y0 D: b& R: D4 s
BCC Init_Start_Music_Write$ ^1 b+ p# R. g. C9 H- c
9 T7 M5 Z/ A6 M# i+ U! i* n
JSR Show_Music_Text+ x ?0 c& }9 P8 K
6 F2 ~2 g7 o, _3 h
.IF SOUND_BAR_SHOW_ENABLE, f: ^* F0 _+ c' Q5 N: J( T
JSR Sound_Bar_Text_Set
0 I( C0 F# `5 _: m
.ENDIF
0 [- @* K3 L" V# t$ p
! t! }! i! Q6 \' e4 L# y
.IF Track_Name_Pos5 R" W& J6 x9 o3 Q3 ^! R
JSR Show_Track_Info
5 z. u% w, Y1 U N M
.ENDIF
4 u6 I3 i. M4 w6 f2 k. p) d& m
; G. W- A2 R7 k8 H/ D
JSR PPU_Proc+ S% p3 H8 E( Q
$ g f" }: W, C! _! U' g( K! g
;==================================================
: k$ b& h& p# ?" h* ?* h6 g/ f/ W
;音乐bank初始化 2 W' `' I8 M$ |) X$ F/ M: l
JSR Init_Sound_Bank
7 {* b y/ L5 R" G8 N9 C
7 ^; @1 ^: d- H
JSR Music_Show
+ ~+ a( `& O* \/ P+ t; m
JSR Time_Show
% g# H$ A- k. i) K# Q7 S
JSR Music_State_Show( q) f% H) B3 o8 v: x' B; O% @
JSR Time_Delay
! c5 t: X u/ D' J2 E
- [) e3 o' s: }! i6 K0 c, R, d
LDA #$01
' H3 [7 F1 `8 b2 y7 q3 Z
STA <Music_Stop_State5 m1 @" N) E7 ^- _
3 s% E! R. }7 |# w1 t+ d6 f8 b
LDA #$88! c$ y. d5 h, y* s& }; m$ e# Z
STA Screen_Ctrl
- T \" R( H4 C" I6 x, I
STA PPU_CTRL
. E) w# r2 y9 G) ^, u% t
% @6 R; [( I$ z% ?5 p
JSR Show_Page_Text$ j6 P" i' l" E; K8 X
# a1 L' k8 f) I; p. h \9 y
LDA #$10
7 {. S( z. K" b8 u- L) x8 c
STA <Time_Wait_Cnt
% d) S3 |2 Y/ T& h9 k" q4 a
5 {+ E' k# k" F
Wait_Time_Over+ e+ b0 R! C2 [; D1 h9 |( u: }( ?
LDA <Time_Wait_Cnt
+ s, K4 a: p+ c2 `
BNE Wait_Time_Over; i+ ^7 ^0 X0 b& B; O r% ?
/ X& g6 y" P/ v, m
JSR Show_Arrow( f6 D5 G/ o: s1 t" q, h
LDA #OAM_TEMP_ADDR / $01003 y# }3 A; b* C( Q/ m% P
STA OAM_DMA
. i7 k. J) \. I2 {1 a0 c! Y
5 a. A' ^ P! n$ J
LDA #$1E
$ U! f$ ]3 H9 g" N! ^
STA Screen_State
4 U" z, j: J! N/ B: j P
/ K; N8 M6 T3 u0 k {
LDX <Music_Item_Cur' m6 I+ G: `$ V* ^
LDA <Music_Cur,X
% ]; ?$ `; V! I1 r: B2 @: K" s. P c
JSR Sound_Init_Proc
" }$ T8 S4 W c- k1 l
: z4 u9 n- t9 ~% A" a0 }
CLI
7 E6 h0 t W) g% |" u N- ?
JMP MainLoop$ f9 ^# o% d- Q
, P1 T: h/ u4 Z% L- H; d0 H) k
;==============================
$ K* ?- M6 G) [& x% H$ @) H9 Y- C
Time_Delay;延时等待: g# Y! }- \ ~2 L" n W
LDA PPU_STATUS3 Q7 y- ~. k6 p9 X% b7 R
BPL Time_Delay
$ P! }+ U' `/ W( `# R
RTS* [3 C; u. b* b% i/ G( u
0 q7 V7 @5 Q: h7 s8 V G W- a
;==============================. y! U0 D0 _% E( Q" U! T* c
OAM_Ram_Init;初始化精灵内存5 B, Y4 C& n2 v% H- V% |
LDX #$00# e- V" n, @9 {- V1 J4 `& O; c
OAM_Ram_Init_Write: G) n7 q/ q: p+ {0 o0 R
LDA #$F8
: z+ s$ t% D4 G" ?
STA OAM_TEMP_ADDR,X% X/ l4 L! W( C( h9 ^* n
INX
; {% D* b% `. U
LDA #$F8 Y; k- J+ n( H+ C0 R) P- w% N
STA OAM_TEMP_ADDR,X
7 A! Y; w% S+ m- S" {' x
INX: J1 g- ~% l& L4 h
LDA #$00
; O( c6 H' a$ r
STA OAM_TEMP_ADDR,X* B6 e, P% |, F8 g0 T0 Q
INX5 V, v8 ^$ }/ Y: S4 K6 V
LDA #$F8
6 `, f' Q. b6 e @+ \* |
STA OAM_TEMP_ADDR,X
4 F7 P) ^4 ]* K& L' {
INX
6 Z& a% m- }5 Q0 L
BNE OAM_Ram_Init_Write8 d, p4 i2 w- k9 a- y ^& s7 B5 u
RTS5 b3 Y% @+ e/ r: ?& X. l6 ^7 q
8 ~ V5 x9 m e2 L) e
;==============================% v7 ~- w5 [, Y
VramClear;初始化图形内存
4 i! h! @, e" F9 v8 E! A5 r( ], K
LDA #$202 M& b' t$ j" |4 N- M0 t5 a
STA PPU_ADDRESS# F% v. k* i9 ^1 i' {( s
LDA #$00+ U/ q5 k4 F8 P1 {9 J
STA PPU_ADDRESS
4 r4 p" Z4 s8 ^ ]* d3 O
LDA #$00
7 w3 G7 x; m) P; Z& y9 T
LDY #$00
& f2 L& A4 B: l" ~5 \5 d
LDX #$104 ^1 P+ F. T5 M4 G9 R1 v- S
VramClearWrite9 [2 K; M3 c1 B
STA PPU_DATA* n. e' @- @7 J
INY) ^! Y7 ]3 g) T; F5 V h
BNE VramClearWrite) R3 V1 G2 Z$ t. l' _- O E
DEX7 C$ h; S1 b# I$ j/ L7 n/ H+ F% o% N
BNE VramClearWrite
7 U+ V! o* Z6 a7 U) Q" `* \
RTS
3 }# P' F' g' {# f! L- n5 {- {
) {2 f' b3 u. @) n) W3 c7 M
;==================================================* V8 ]5 ~; o) H
;设置MMC3图像bank
/ N$ U3 q9 p; M8 m2 \ G& m+ C
Init_MMC3_Chr_Bank
& ~& j9 W4 E3 G+ ]9 [
LDX #$05# k! s. D+ `" G* o
Init_MMC3_Chr_Bank_Write
+ ~% c7 \$ @" y
STX MMC3_BANK_CTRL
$ ^# o0 u& y5 Z
LDA MMC3_Chr_Bank_Data,X9 T0 h0 r* w& \4 {) ^4 C* @ t
STA MMC3_BANK_DATA( w, G) f t1 _' b, Z- d6 P' P _% }
DEX% U5 `/ K$ u# z8 x* s9 X A* D
BPL Init_MMC3_Chr_Bank_Write$ M3 k3 l: ~+ D
RTS. U1 e( e! Q6 s& S+ d& T, M- m% ^
;--------------------------------------------------- M0 V" M: {) C" K% h$ }- Z; b
MMC3_Chr_Bank_Data3 c: K" ]. E+ T$ X# F: l
.DB $00,$02,$04,$05,$06,$07$ H% Z# Q2 `' X
6 ?7 j' W: M O0 `8 R9 b% t
;==============================/ d" B2 m+ D7 _
VramInit;初始化图形内存
8 ?% J8 l7 l+ c/ o0 q% E) E
.IF CHR_RAM_ENABLE$ t1 }+ t( `8 [
LDA #CHR_DATA_BANK
+ f' c: D# K- c: d5 f7 T: v
JSR Switch_Bank_A0009 P1 e2 t( [; f
LDA #LOW(CHR_DATA_ADDR)
3 O; C3 T W; ?+ `2 k9 ?2 P
STA <Data_L
( ^6 D! p- `$ O2 R
LDA #HIGH(CHR_DATA_ADDR)3 r8 y* Z- A/ i$ y: ]' e
STA <Data_H
% B) ?1 s# i; s0 d3 g
LDY #$00
* J- N3 r" a H& q& c" S
LDX #$20
" U- @- N* q- d" v
LDA #$00( p8 p- y, l$ P2 r
STA PPU_ADDRESS% u( v" l _: y) Q$ `3 q8 o
STA PPU_ADDRESS R0 j1 V! X* ~# f8 W( A. c) O
VramInitWrite1 [4 `7 @& g- P
LDA [Data_L],Y
6 j: x0 v3 E3 u% O9 t/ T
STA PPU_DATA6 D$ P/ v/ A9 g( d3 l- D- W
INY
3 F& n! D/ ]( l2 L2 r& D' G% j. s
BNE VramInitWrite2 o" b }* ?7 l' S+ C
INC <Data_H3 I1 H2 G- J' _' O0 |% q! E
DEX) T4 `3 _8 d6 y2 z0 P
BNE VramInitWrite
- B2 X J8 s/ I# y) s9 g/ c
.ENDIF
7 {) h2 M# g+ D3 F
RTS0 Q$ l1 [" B1 l- Y5 f! o
2 I$ _9 R7 T/ C& h
;==============================
" [& b" t& w# P4 \1 t& G
;音乐切换 o& P% W0 ~& d* L0 ^) K
Music_Play_Change$ j' W( p+ q) l' G. t+ a
LDA <Key_Once; v4 s! g+ S% \2 k( q% W
AND #$FF
8 Y8 |3 s/ [7 M; g& \& f
BEQ Music_Play_Change_Check. Z- {& a7 m7 o7 Z: S7 ?- J
2 @ p! _5 S. |/ l$ y) A. `) r' v
;禁用音乐条刷新
% |# y" D8 U5 Q& |
LDA <Text_Disable_Flag
2 p# G* v" k. I. |4 Z7 o5 B- \
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME
0 b7 c' B" F/ X6 J5 l D* c4 _
STA <Text_Disable_Flag
S0 V8 s- @3 o- M, D; z
+ Z3 ^* Q' c) B* S9 m) u# q2 g' u
Music_Play_Change_Check
+ d- J6 {& E5 s
Music_arrow0 A, n/ U5 c" J% ]/ s
LDA <Key_Once" I. k" C) q5 P: a* c9 r
AND #$0F9 I+ Z" h3 v9 P' f9 o
BEQ Music_Play_Change_End6 V& C' [2 F3 R
JSR Music_Track_Change7 z! z! n0 z5 Z* C3 G3 E
JSR Sound_Reset_Proc
" n6 y: b. i- W5 \
JSR Music_Show0 C( N. g6 e% F8 H2 `( R( c
Music_Play_Change_End
' ]( }- |/ h: S `( c6 d" i
RTS+ p+ n r* v9 h% E- E% K! G0 P
4 p" I o* l$ L7 i9 ]+ H
;==============================4 k; j+ M: I5 u& o8 J! x3 C
;音乐曲目切换
& ~% _0 I4 B2 C3 D. R }
Music_Track_Change; y" p5 F! o1 C! l9 _0 ^6 ?
LDX <Music_Item_Cur5 t/ \* |; e5 _( E p
LDA <Music_Cur,X. ~+ h2 i0 a8 @6 [. N W
STA <Music_Last+ G" T5 E/ A: r0 o/ d
Music_Decrease
1 V! f" o- L' i3 r
LDA <Key_Once: z& G; {4 n! @1 n6 S. x" p
AND #$42/ \6 _2 r/ S1 N
BEQ Music_Increase
/ k- c$ O4 A( Y. P" G+ c2 p0 _9 u) v
LDA <Music_Cur,X
! X% i, |0 T0 P( x( y4 I p$ R
BEQ Music_Increase
) V* K( z5 q. m$ W9 |7 e$ @
DEC <Music_Cur,X
; r3 v- E0 c, u6 _* a
Music_Increase
) e( ~4 q2 d+ X4 X1 N8 G6 v6 N. X
LDA <Key_Once8 X- w+ N7 o6 I. e* z3 }
AND #$81
7 R2 v! V, h* H T% U2 |/ b
BEQ Music_Decrease_10, H/ r$ w6 {& O- B+ a7 H/ q3 e
JSR Set_Sound_Total
: x& q. @8 Y7 X6 ?2 h v
LDA <Music_Cur,X
: q9 ]* @+ a1 ]( F/ s
CMP Music_Total
5 ^4 g' n/ R% j* S
BCS * + 4- N( s/ W' A* j d8 f
INC <Music_Cur,X& f# M* k& ? O& o, {
Music_Decrease_101 j2 {% Y% r- D+ l4 p- z
LDA <Key_Once/ f& x5 K( }6 s* i L8 V: e
CMP #$04
( m) s: C! r1 I) t: Q2 m
BNE Music_Increase_10
3 x, R( @. h$ \! f
LDA <Music_Cur,X4 _$ V6 i4 {2 H
CMP #10
& H/ s4 i6 {" @. M+ C3 ]- P
BCC Music_Start_Song_Min
. d+ l( [) ^( x# u! i% y" h v
LDA <Music_Cur,X
. m/ }0 t2 U7 Q
SEC
7 L& S, M. [( c) [" W6 ~5 d- c. |0 E
SBC #10- D3 z1 {3 c$ g
STA <Music_Cur,X0 U O+ L, X/ I, c/ Y) b* Z( ~
LDA #$00+ ^/ u8 J4 G3 M+ e' a+ L5 _6 O
BEQ Music_Increase_10
- T# q6 r5 p2 n. k
Music_Start_Song_Min- \8 J7 Q* e7 ]: r
LDA #$00! o2 P/ t/ W i) ^; I
STA <Music_Cur,X4 `4 C. F6 p2 d2 v. b" \
Music_Increase_105 b, n' b- E+ C% P. _
LDA <Key_Once/ w6 U1 `2 m( \0 q: P" j
CMP #$08
- }. H Q/ Y% m5 t, r5 P$ z
BNE Music_Track_Change_End5 k3 d( }$ f) |& Q1 p
LDA <Music_Cur,X; B: J5 f2 F5 n
CLC& M7 a2 u7 l q7 [" h
ADC #10
6 X) l. s3 v$ n& e' S+ L! v
CMP Music_Total0 \/ C2 ]4 f6 Y6 m9 l
BCS Music_Start_Song_Max
- `% ^5 A6 R% E% @, q
STA <Music_Cur,X* G2 j6 R( D0 Y( G( ^+ G1 h
LDA #00; E/ M, ^* R3 Y, i" k
BEQ Music_Track_Change_End( j% \& a- i' f" }- s# I
Music_Start_Song_Max
) Q. F. H1 u3 V2 c+ ?3 e; {: e
LDA Music_Total3 t& d- A$ I) q3 m. i4 h2 o
STA <Music_Cur,X* P# r9 P+ |4 |& }% q/ S2 I7 H
Music_Track_Change_End
v" _) m f- q. |7 U/ J5 ^
RTS* C1 j# C9 l& @( M, a
# p, ^4 [, F3 b- y
;==============================# W9 B8 A2 H0 W. R. O
;按键处理
( v0 F8 x! }( U) X
Key_Proc+ A" @) ^$ P8 i1 |, I+ R
JSR Key_Scan! J; s6 J" `. E) p! H; T5 L
LDA <Key_Keep( L# R+ b/ Y8 Z: i) t
STA <Key_Temp# e; |8 j- Q+ R# K; q! w4 F4 u5 q, a! O7 |
JSR Key_Scan; ? X8 ~- p" m/ Q- k
LDA <Key_Keep; k0 A5 \' a! z( E, o
CMP <Key_Temp
. A9 H+ f+ c$ D- W, ~4 F7 e! W
BEQ Key_Get_Once
& Y% Z) D+ n; s0 E8 ~+ j
LDA <Key_Kemp" s5 p f) ~5 D' z& ^* w
STA <Key_Keep( `) ]+ K+ p2 y+ I/ o9 S/ N' o
Key_Get_Once
! `* ?$ J7 J, f8 o
TAY m( s: ]7 C1 O0 d$ b- _) |' M
EOR Key_Kemp
! K2 d/ N$ P7 R/ |
AND <Key_Keep
/ L" Q0 f7 ~2 a2 S. K
STA <Key_Once- a9 X1 K" `6 U" T5 k
STY <Key_Kemp
% k6 F c2 J/ u) c5 r+ y
RTS$ q. i I( @0 q) m+ Y6 L
;------------------------------% D) w; h3 h) m& c# M3 Y
;按键扫描! B0 n' B& O' Z6 e; h
Key_Scan
/ ~: f; \8 {; i5 N
LDX #$013 L8 m0 W) I I7 U% ]8 q0 W G
STX JOY1_FRAME: {# H" ]9 s6 O
DEX
7 R/ n1 ~! b5 u1 S7 e
STX JOY1_FRAME
7 g4 v- k0 l/ q: w
LDX #$08( v- @ {" U+ h( k$ H& O
Key_Value
( V4 L. Y: a$ X
LDA JOY1_FRAME$ H9 }9 a+ {& Z+ \
STA <Key_Getv
$ M: z+ i& l* ^" e% f
LSR A c! h& ~ l5 G9 w4 R0 `6 Q
ORA <Key_Getv
/ t) e$ z; p1 g' R5 l& x; K
LSR A
3 I3 M* N1 U# \) D
ROL <Key_Keep J4 R m2 K: q; `! ]8 G7 p
DEX
) X7 c* `/ G. d4 ~# {( x$ | ], n
BNE Key_Value
5 R* \- r: e% L( p2 @ U
RTS, F5 i/ _. R$ d& j6 P( B
/ O1 m5 a2 e6 ]4 x. p1 ?' Z7 W8 j
;==============================% t- w' H+ W7 i w5 F
.IF SOUND_BAR_SHOW_ENABLE' q( s' x9 M) K3 [- D% p$ m
;音乐条显示6 _- w' \7 J5 `3 x: n! _) \$ S1 ^
Music_Vision5 d9 P; k) ?: s' e. V: ^' X
LDA <Text_Disable_Flag
2 t* {# d7 H+ o$ G% B% W p0 C
AND #TEXT_DISABLE_ITEM& p) m7 ]8 U, r
BNE Music_Vision_End
# A4 R: [/ ]9 F1 C
AND #TEXT_DISABLE_BAR
, a' E# X+ S: b8 F/ Y8 b) P
BNE Music_Vision_Set0 a" J7 _' e+ _% `
LDX PPU_Cur
+ [. o# G+ @$ ^: r% E5 Q# {% d
JSR Music_Animation" |& a7 [3 z" `
STX PPU_Cur2 S0 ~' |+ t4 ^1 c. V
Music_Vision_Set
8 z% X) }# U. [6 ~& h
LDA <Text_Disable_Flag
+ m. Q0 D2 ^# a2 C6 d$ e) A
AND #TEXT_DISABLE_BAR ^ $FF
! U: [4 G. Z" @* [" `
STA <Text_Disable_Flag* X) x$ o$ m& _( v. F& W
Music_Vision_End3 h) K, K0 t. q) {9 ~) `- t/ V/ M
RTS
1 _/ ~& ^& K t* ]) k
;------------------------------
/ u& J# M" Q I; D* Y
;音乐条显示处理8 D9 @! B1 m6 U8 z7 {
Music_Animation: [8 R l: @- o/ i& l
LDA #PPU_MODE_CNT_LINE
1 x) Q# I6 M9 E7 y4 Q
STA PPU_Addr,X7 K$ g7 x) |/ x% r5 m
INX
: c# L6 s" ?" q! \1 }) l% X5 S
LDA #HIGH(Sound_Bar_Pos)
% k+ R0 h9 ], Y- F6 i6 ~
STA PPU_Addr,X Y* s' N9 { x$ Q: H
INX7 ?/ l, H. Q: ~) @# v" Q" k, W+ \$ p
LDA #LOW(Sound_Bar_Pos)
2 {6 N" Z: j7 r* {+ e s$ n0 t0 p
STA PPU_Addr,X
: l+ R" i U6 E3 |* L- z* F
INX
" f# I/ a8 Q3 F3 m! H
LDA #$08' E6 M: J |3 _3 ?' O v9 O# W
STA PPU_Addr,X
) b! h* ^8 H4 `* i
INX
+ n+ ]( Q) S( L) q% `6 M" F
LDA Sound_Bar' {( r. u4 |* z& u7 Y6 c" ?
JSR Volume_Convert- Y' ]8 x- J& }# e8 ^3 e2 A3 m
" m6 r3 X$ N" P) A* O+ X! c, d
JSR Volume_Set_Cnt
: v, I4 d3 l* B; A
LDA Sound_Bar+$4
8 U7 e+ P4 w0 E, P$ L# g! A5 t
JSR Volume_Convert
" {$ a% f3 F8 ?6 @: e
$ b" d8 H: c. H/ V( d( j3 u" P
JSR Volume_Set_Cnt# T9 }+ \6 J& P1 D
LDA Sound_Bar+$8
1 E9 E1 n5 @0 S- F4 @) w* V, {+ T
JSR Volume_Convert2 r# d: j( Z: f, a
+ G( `) v+ J( v0 L
JSR Volume_Set_Cnt+ o/ F, C# d$ h" o- R& r
LDA Sound_Bar+$C% I8 Z, z& [% F! q1 t
JSR Volume_Convert0 H& q4 k* V" } t* B" O3 S
; F$ k6 M; ^4 T8 m) j% F" V* @" C. m! U
JSR Volume_Set_Cnt
9 [7 F' @+ h( t5 i
6 s3 u" C [% w
LDY #$102 C' L) X( c7 m1 h: A
LDA APU_STATUS( s% z' I# t# B4 T% [
AND #$10/ b) ?: G& [! X! I% L1 }4 H
BNE Volume_Count- @2 u0 g+ n R, d' T$ C+ x
LDY #$000 J6 }) F: g4 ?+ e
BEQ Volume_Count
2 i$ W& F5 ~+ X; b9 E9 j
8 t2 G e3 B/ x6 `$ S) y- e4 R' J
;------------------------------% a3 p8 u5 d' V1 S
;音乐条处理5 j; S! {& s0 s+ R- {: \; y7 |
Volume_Convert- T+ T& L( S# _" G9 b& Q) y+ L) d# w
AND #$0F
- [. M {9 f/ P+ ^7 i p' m
TAY+ @5 z$ J9 Y5 h7 ?2 h3 T1 b
Volume_Count7 a4 u' j, \5 {0 P2 A2 Q
LDA #$08# ^$ S9 R+ A7 l W
STA Sound_Bar_Cnt) x6 Y! D' e! @* C+ I+ U' m
Volume_FILL
4 y% W% K5 ]" }- l9 K
DEY; \/ d" E& G& ~" f+ G, y: c" D; v. z
BEQ Volume_Half
* M4 x( F% e& b; l6 z7 [) c
BMI Volume_Empty
1 k: {. ^) e- ~! w1 k i
DEY- V! I' _; V3 ?5 i; _8 r
Volume_Full
/ V( ]' @: P a8 Y1 S; I
LDA #$16' j+ v+ H& M* K
BNE Volume_PPU
6 W: \/ i8 |' C
Volume_Half3 c- G+ {# u. V0 G
LDA #$15$ H3 R7 H* i6 K3 z7 o/ v
BNE Volume_PPU
7 ~" Q) ?( v6 c# \- A
Volume_Empty
8 A# |8 q n5 K% u3 G
LDA #$14$ P1 f( }/ r3 g: F+ Y, `1 N. O- @$ n
Volume_PPU
7 s, [5 @8 }8 L8 x1 w, U+ ]9 o" g2 a
STA PPU_Addr,X0 q6 d% G8 u$ G
INX0 k# s+ s8 M) L2 S3 z3 _: ~7 {0 @
DEC Sound_Bar_Cnt
- [6 }/ k5 n* C, E. ?
BNE Volume_FILL; M$ @, X( `7 A+ _2 u
RTS2 b2 F- g1 t6 g. l! V, E
* n0 K# \ A* o& Z- U! N" |! j
Volume_Set_Cnt* P* [4 k" l( V* ?; R
LDA #PPU_MODE_CNT_LINE_NEXT
+ \. e! Z! Y$ | V" W+ v
STA PPU_Addr,X9 X( |3 A9 a1 V2 L c/ R8 O
INX4 F6 }2 i. W* e4 H; o8 H$ V$ W% f. h. @
LDA #$08
7 `8 u# E9 F1 [1 u" I: v* ?6 _) f
STA PPU_Addr,X$ b" w: I( @$ R; {
INX
! s: |3 ?/ {3 X+ ~
RTS2 E B3 {) U3 Z* [
+ I* N9 V* F" _$ t6 C( a& _
.ENDIF
1 q! P( l4 f7 v
$ F2 x2 ]0 B! J9 H+ a& `. t
;==============================
2 J2 f5 c6 x0 A! F- d1 X
PPU_MODE_CNT_LINE = $FA ;行计数写入: Y: v3 Y8 {) L# m2 m3 w9 @
PPU_MODE_CNT_LINE_NEXT = $FB ;转下行计数模式
R m6 }' z: a' u5 \6 B+ G9 r
PPU_MODE_CNT_CLEAR = $FC ;行计数清除' @6 y- h& k$ r1 ?
;------------------------------3 i/ t2 } j' \0 g* d" K
;PPU处理: I n; c4 E6 ~1 m$ D) b2 m0 C+ f, M
PPU_Proc
! V: X" O6 U6 j2 X
LDX PPU_Cur. n5 }# S* y3 h) y G4 J
LDA #$00
}+ l: ?1 R) s6 \, ]
STA PPU_Cur
+ }- Z8 M" Y" d! c+ N0 [2 g( q& |$ Y
STA PPU_Addr,X
: e& p* V$ K& f4 e" Y" j6 a9 o
LDA PPU_Addr
% f/ _6 p, O) Y- \1 Y" w( ?7 R6 T
BNE PPU_Proc_Beg7 r2 ^8 l, U6 T- X8 A
PPU_Proc_Ret
4 I0 [0 G7 T& S+ L
RTS
Y! N* S3 A% x! \7 b2 @2 h7 Y
+ \8 s$ i c5 s9 U
;------------------------------
2 X- g1 E0 w* p! X5 \
PPU_Mode_Return_Cnt ;转下行模式$ h; q/ J; v8 [ h2 r2 v
INX
- `) W0 f4 Y' c& I
LDA PPU_Addr_L0 M: ]* R7 l) n+ f9 @% d( G Z1 u! T' G- {
CLC
( m$ G/ `9 k+ A
ADC #$20; X) ?' |; r, `
STA PPU_Addr_L
9 c' h9 x$ M. H: E
BCC PPU_Mode_Return_Cnt_End. L3 s1 @) A4 u* ]
INC PPU_Addr_H& {* v- O$ w% F
PPU_Mode_Return_Cnt_End
8 h) I; |" h, K) S9 d5 ^+ ^
LDA PPU_Addr_H
/ Z2 b" h- ]. M' _$ D
STA PPU_ADDRESS# J8 t% u& w+ D/ C* I) j% P# u
LDA PPU_Addr_L
1 S% ]& s6 O) Y" B- F1 ?3 _1 ]
STA PPU_ADDRESS
( |2 V# V6 A [0 n+ O
LDA PPU_Addr,X; Y+ w9 T2 x0 S6 F) B' O$ R
TAY
( S6 I, H0 t7 T; K. B# h! ^
PPU_Mode_Return_Cnt_Write
7 T( i5 x6 f g* h6 p' R* W6 O0 u
INX
' y/ O5 z5 _: u4 p0 r
LDA PPU_Addr,X( p, C. {0 {& |; J2 O ?" z0 T
STA PPU_DATA
* C" b& V) y1 l S
DEY
/ \& `6 z7 K, T* R
BNE PPU_Mode_Return_Cnt_Write
2 x4 |: L% R6 c8 Z
JMP PPU_Proc_End+ E* h9 V$ i: @+ `9 |; u
( ]5 x- V/ {; u w5 K; ^2 f
;------------------------------" w F% M3 x! W3 s0 b/ @
PPU_Proc_Beg ;处理开始2 W: u o" o& O/ q. \
LDX #$00
% @2 O. R6 V/ X4 Z; W8 T+ z. K Y
STX PPU_MASK
6 T; C/ {& l1 o+ K N+ ?# W
;------------------------------
% U# J" c5 p, h
PPU_Mode_Select ;模式选择
* O) e o P* n( b% f
LDA PPU_Addr,X
+ P9 X3 g) n& s! c0 }
CMP #PPU_MODE_CNT_CLEAR8 f) r$ [% t5 O4 ?7 b9 B$ L" I
BEQ PPU_Proc_Clear
+ \+ B' Z5 f) J9 J# S$ G1 J* x6 C
CMP #PPU_MODE_CNT_LINE
1 c, [+ D1 B3 _
BEQ PPU_Proc_Cnt_Line
' N1 [7 V3 @6 x5 p6 O
CMP #PPU_MODE_CNT_LINE_NEXT5 o9 C" C7 G6 E A. o
BEQ PPU_Mode_Return_Cnt
& D: ]1 W# ]/ {/ e. }* [! U
JMP PPU_Proc_End_Write) h9 Y% L8 i7 H: D$ B
;------------------------------
1 B" N+ H5 H b' @! u: ^
PPU_Proc_End ;单行写入结束- o0 x! r+ ?! L: a
INX! x. R( Y. H& E( h, t" E+ S
LDA PPU_Addr,X
. |1 t& O) u i4 H$ S
BNE PPU_Mode_Select
6 s5 t$ o1 w( B
STA PPU_Addr
& Y7 C! r; D# I9 ]! Z0 s
JSR Update_Palette_Color
( M) }0 o! g' B' `$ V
' ] s v4 t3 A, _1 J+ f5 m+ O
PPU_Proc_End_Write
# }" Q+ G: @$ d& T4 {; ^* o/ K
LDA #$00
) _/ o0 o/ ~$ v. ?
STA PPU_ADDRESS
1 I- E* n- r$ N
STA PPU_ADDRESS& ^9 F$ U y6 f' t5 Y# a) P
LDA <Text_Disable_Flag
; n) w) c* Z! V! z7 l+ O6 p
AND #(TEXT_DISABLE_BAR | TEXT_DISABLE_TIME | TEXT_DISABLE_RAM) ^ $FF+ g# M! ]* q# ?! b. ~- u
STA <Text_Disable_Flag
9 { `% W9 d) S/ T/ w9 a. d( ]
LDA #Scroll_X
# \9 D; x) N0 d$ f
STA PPU_SCROLL
3 c0 w6 V3 u7 G( z6 L$ h; I# [
LDA #Scroll_Y/ \" d8 f+ {/ a1 J. t( I* ^/ t
STA PPU_SCROLL
3 p/ ~( d, B& w' N) Q, U0 _
LDA Screen_State
5 w* M" J$ x& g
STA PPU_MASK4 R4 X- e/ T3 ^
RTS% T# J( H& {, \0 [, M
, G+ q, x, e: T0 \6 C
PPU_Proc_Clear- i% a! ]; @' n C$ w8 p
INX( S) Q, c/ M5 e( P+ l2 d, v
LDA PPU_Addr,X0 R( v: J/ U4 F+ D3 M4 J
STA PPU_ADDRESS9 {9 Q+ x) T' _2 U' ]
INX
: \; t8 T! P Y/ T; K
LDA PPU_Addr,X
( [# L- {7 l% ^6 h, Y. \$ L' b" e
STA PPU_ADDRESS* S( k. M. X3 C3 H. K2 Z1 M7 D
INX
7 q: c! z2 Y2 P$ _$ `
LDY PPU_Addr,X
- P! R o+ Z& l
LDA #$00
" r/ t8 z# y; ^, d J D2 v. _
PPU_Proc_Clear_Write. q9 E9 j$ v3 [! L" T7 o9 ^
STA PPU_DATA [/ ?0 B$ D* e! ?/ N' h
DEY
( `& T/ V3 G$ a
BNE PPU_Proc_Clear_Write
$ o: W P! q0 p
JMP PPU_Proc_End
4 e; |) I b2 ~' O4 R
2 F1 }+ O) _0 q0 |& U6 J
PPU_Proc_Cnt_Line
! ~- g+ I9 c- Q/ m
INX
; C! m% ]# N l5 P
LDA PPU_Addr,X. [" U- P9 A$ P4 B+ \1 x, s! T
STA PPU_Addr_H
! g# u3 P3 a- T5 ~
STA PPU_ADDRESS
6 \0 I( f$ @9 ^: `- M
INX
7 w$ P9 t" l' G) A# }7 t
LDA PPU_Addr,X
/ N0 p" Y0 c, z. l& J, I# N0 K& g
STA PPU_Addr_L# ?* X# V* a+ W, y/ t, p+ I( p( p( m
STA PPU_ADDRESS8 v0 G7 H) ?! m1 Z
INX5 Y) T/ F* M/ V2 @1 @" e) _ Z
LDY PPU_Addr,X
5 i& I1 k; ]6 p
PPU_Proc_Cnt_Line_Write
1 N% L. f, s4 T8 k `! C
INX9 Z* }7 d; n" K# C. u- A
LDA PPU_Addr,X
9 {! v- P2 D2 E
STA PPU_DATA
$ V1 ~8 \ Y% f
DEY
5 q7 K. @' O& R6 ?3 q* ~2 x' ^
BNE PPU_Proc_Cnt_Line_Write9 V6 I$ o; X9 M2 P. }' n. P
JMP PPU_Proc_End5 |, K; G+ c( A
* E# X f9 N q t+ @+ _4 b
;==============================
- ~( X9 B- r; X: P
HEX_To_Dec;十六进制转十进制
' w! {0 k5 R* Y5 I4 [2 V
STA <HEX_Data
- b) Z: F! \0 {5 ~2 J
PHA
5 @8 _4 K2 ?) K* c) f! u
TXA
' ^$ v6 u8 h# Z% J' j. r
PHA8 K; v2 d" B, |1 d
LDX #$00
$ M: X2 O6 B1 p7 g6 d" k9 g- J7 k. r
LDA #$00
9 R+ d- T$ H0 T
HEX_Cln* B3 C. n- x" e" d8 c0 n
STA <DEC_H,X
1 [- ~$ Z- H$ M4 D- M I
INX
9 e8 Y2 Q7 _ s5 [* _2 `: T+ K2 d" Z
CPX #$03! e3 I z5 Q! a" P" v
BCC HEX_Cln; M& m! b' B6 T
LDA <HEX_Data
& w% P. h0 A- `- u& [. F' Y
;------------------------------
4 i6 e* q+ j7 d' u3 y
HEX_100* u0 p% L" L# @ O* g- A
CMP #100
/ \3 m& V5 Q- ~% C+ w
BCC HEX_10
. V# G. `; v( ]9 s7 q7 {: h, z
SEC
1 l$ ?9 H9 u, V# c: M
SBC #100
! T3 h f' Q2 H
INC <DEC_H* }- A6 o) ~! u$ ^! J) J8 V
BNE HEX_1002 o3 N/ R+ p+ G) t i, i3 L
;------------------------------
. g# R" C- {/ M# n) t
HEX_10' q# n% \& e8 J0 V0 O! v
CMP #10; Z5 m) a) _. R0 Q# Z* t
BCC HEX_10 Q- r8 f) ~. B8 C
SEC; n0 X1 f& B3 Q- o3 A" i6 T8 u1 c9 Z0 Y
SBC #10
: B8 @, B' [6 r& N t2 ?2 H
INC <DEC_T
0 Q- g* r, M- A+ V5 S
BNE HEX_10' H8 I8 }7 y i8 P6 c) ^! s& {$ _
;------------------------------% H& Q- A4 _* \/ r, @
HEX_1: J( p; m$ f } ^3 c; b- X
STA <DEC_L: x# l: k! h4 D
PLA
: a3 \+ X- a- y0 k ?5 U1 y
TAX
; C: H8 y9 ?0 M) H# j2 ?8 Y
PLA
% a/ r9 g$ q/ h2 S r c
RTS
& |7 n* b: M1 B1 j5 U1 E% o
7 I! S5 n$ J( S6 w
;==============================
" K! F; X2 P% u4 F7 K! J
;音乐曲目显示
1 G) k* s# U/ `4 z! _! g/ {5 I
Music_Show
0 O& V/ _9 K: n* J
LDX <Music_Item_Cur& K( ^( h; u3 p2 F: h4 O3 n; j) \
LDA <Music_Cur,X. u/ @# Z m. ~- ~# w& T
CLC
. `3 e% i; _. U% \3 ]7 b5 r
ADC #$01
! d/ k/ z3 w/ ?, s: f3 U0 T
JSR HEX_To_Dec
/ c" D4 c6 c# }6 U" [% o* A4 G
LDX PPU_Cur
# _% P# D+ k- j& a0 q+ j
LDA #PPU_MODE_CNT_LINE$ N; Q! {+ |( j0 D0 e
STA PPU_Addr,X9 I* J9 w* t, W
INX
5 g/ a2 x% ]5 M% B5 X
LDA #HIGH(Play_Index_Pos)+ Q- c5 t5 }8 x6 j- d
STA PPU_Addr,X
8 i) L5 `" o. N/ ]7 I8 R8 q
INX/ V2 f9 L, `- l3 \; _4 c
LDA #LOW(Play_Index_Pos)3 ]. ~' e' i0 y
STA PPU_Addr,X
. B1 _% Z6 m5 } U& r& Z/ B
INX) m4 I( n* c1 z
2 Y1 {* q) h0 T3 P( P. r
LDA #$07
- d4 R4 V5 q; l+ W$ Z
BNE Music_Show_Length7 z: ?. p; O: G3 a9 K* I7 U
0 z' v! T, m5 Y: p
Music_Show_Length1 C% H! {: k+ g9 i6 F
STA PPU_Addr,X2 C) F) b3 f/ F. E! z3 B/ c6 u, S/ o
INX8 m2 B6 t% J9 f- ?
% v2 `6 g- [2 M& n% u% m% W$ U3 A
LDA <DEC_H' f6 ?$ ?# R* g' y* |
ORA #'0'
7 V& G& @2 i: J9 C% f% \& M
STA PPU_Addr,X/ m3 C1 S6 d! q: v1 c% B4 c1 a
INX
0 n/ `' e$ x; R# V
. Y3 r' U, t( H5 Q- e% q7 u
LDA <DEC_T3 p0 ]1 l$ ]7 M! z# U' r. Z. @/ B+ N' O
ORA #'0'5 K/ X! s j T& w/ e) k
STA PPU_Addr,X
5 ]9 l" A" Q3 z/ B- Q4 j
INX
5 f. w' x: j6 S" [ i. L
o% _$ l) _6 S% R
LDA <DEC_L) `9 k% p9 `- \7 c' o( C; D
ORA #'0'* b5 h" K2 K: ~1 T
STA PPU_Addr,X( N, c: m4 k# q2 K! ~( O: b
INX
+ R8 j' D: F% |5 }+ k
+ B9 X* C; k5 F5 Z" R' B
LDA #'/'
$ p$ ^5 [: G+ j' \# E3 \
STA PPU_Addr,X
( T! s7 U1 J1 N" m9 p9 v: S8 X
INX
" ]2 m2 a/ O4 V
Music_Show_Total
6 y2 q4 p$ @2 g8 v5 O5 b
LDA Music_Total
0 F/ N# s+ O5 E: {
CLC* O( @4 g, V6 h8 ~
ADC #$01# T& W, S# S, @; ^5 @* P, n' `; f7 u
JSR HEX_To_Dec
4 T% n, v: d$ g; T) T9 Z' r+ Z
# l8 R0 |8 s7 l- s0 A* v3 a; h
LDA <DEC_H
" d/ @: ^) H* q, {9 w# u) U5 L
ORA #'0'1 N6 }3 A! A; S& Y( R. c
STA PPU_Addr,X3 [ H# H1 N8 q6 m w
INX2 C7 W1 i5 o, Z/ E' u' G8 @
$ g# |/ M: W7 P$ s
LDA <DEC_T
! f, j6 g; U p1 g5 e
ORA #'0'% C+ t; L3 F: e- U
STA PPU_Addr,X
7 v0 p$ i5 {8 f% ?
INX8 w; e* O+ x b$ F, M6 v
) G! p# T) H( H6 r- ~. I) @0 w% W
LDA <DEC_L
5 y6 Y2 t7 `4 b5 a& P
ORA #'0'$ M4 U' K+ N* F/ n4 |
STA PPU_Addr,X6 ?. N- C7 R! S+ t- c" B
INX
$ _: A' T2 [0 f. x e- j6 A
% E$ b- R L8 R2 i* ?* z
STX PPU_Cur
' ~* |( t% z9 e1 L6 d
Music_Show_End( n# Z: x* n) u* }4 L U0 L* K
RTS
8 D! h6 v; b7 B" x
" n, y+ y! e6 ]1 K5 G+ N) M
;==============================: P3 o0 ]7 w: e0 g
Time_Show;播放时间显示6 O; x o. ~) x7 u- ^8 L% f
LDA <Text_Disable_Flag1 x3 T8 T0 L2 ^7 u, n
AND #TEXT_DISABLE_ITEM
' z) K% S' V1 R
BNE Time_Show_End
: ?1 r# s& m% g
AND #TEXT_DISABLE_TIME s5 Y0 [9 O6 f# r9 r+ d
BNE Time_Show_Enable
$ R2 F$ _% d* h( Y" [
& p+ ^7 ~: O { ]$ i
LDX PPU_Cur2 I) I2 ~8 J) I% V# Y' t3 `1 O8 c) J6 U
LDA #PPU_MODE_CNT_LINE
$ q R# {! X/ N5 d: x! Y7 W/ z
STA PPU_Addr,X
% a* w# v1 W- V) Q, r5 [
INX y, t. a3 e* w* t! A. Q) f
LDA #HIGH(Play_Time_Pos)
; v; t$ E0 `3 [# R5 ~ A8 @! o
STA PPU_Addr,X
& {- a0 F) v; ?, H2 N k& _8 i
INX
* @$ f ~# V) p8 L' ^; z& M
LDA #LOW(Play_Time_Pos)& @1 |/ Q6 ]$ J' K# ?3 V
STA PPU_Addr,X
6 F& a2 i$ o0 i) O7 q9 I3 a
INX
/ N" c+ \+ \0 v& U
LDA #$08& {- E1 G+ t: ?
STA PPU_Addr,X
( V1 C. d' P+ u1 ^6 v( h% n5 G2 o
INX
$ A$ k+ R8 `9 v0 Y; N2 Q
Time_Show_H
: O# a) O) U0 b3 w" U/ R
LDA <Time_H, |& l1 \9 _7 J
JSR HEX_To_Dec& Q6 D2 c' L' ~
JSR Time_Digit
7 B9 Q* ^4 ?4 o+ }9 f. O- e+ I
LDA #':'
" O* o& ?8 {2 V* \9 M$ z
STA PPU_Addr,X
' H) E6 X& C. Z5 ^; O3 Z8 U% z
INX1 S6 T& T1 g5 o; Z- J/ m+ a
Time_Show_M
' B! T* u/ K$ ?3 ]: y
LDA <Time_M
3 B# g8 {" g, E6 \
JSR HEX_To_Dec
T6 y Q6 f) Y( e9 x( h9 @
JSR Time_Digit7 T$ ?- T7 q3 `. u3 s
LDA #':'" k' o8 g- q0 [; D& G; y
STA PPU_Addr,X( X, T- P, c( t7 Y
INX
3 o; m! A, x+ X$ v/ t5 J
Time_Show_S' Q1 |3 U4 }% q& H0 B
LDA <Time_S0 L! w$ w5 i* f f' d
JSR HEX_To_Dec
) Q! D* k8 \! ]0 w) i, c6 N6 N
JSR Time_Digit. R& }2 ~" \4 U0 E- f
STX PPU_Cur, ~2 ~3 k7 d2 `2 R2 n
Time_Show_Enable) f U1 u/ T* w* H" S
LDA <Text_Disable_Flag
/ x' Z% O3 K! y8 c
AND #TEXT_DISABLE_TIME ^ $FF* @( R& _; i8 h: D5 L, _1 T0 O
STA <Text_Disable_Flag
1 o) J' z* P! e D- r8 S
Time_Show_End
6 z& o0 F$ _3 y$ R+ C5 \6 _
RTS0 |* O" _! c7 a7 R
1 ]: X4 w( F6 H2 f& t3 A
Time_Digit
+ Z( N a% U* ^
LDA <DEC_T5 \; W2 N" L: U1 H, @+ D
ORA #'0'% N' H, n6 u# j5 O6 h0 Y5 y4 b
STA PPU_Addr,X
! u! _' j3 B3 x- o' W4 f
INX
1 n* C7 u6 I7 X% D9 s" I4 D" u; v) C
LDA <DEC_L. F0 F5 Y/ e& S9 |3 g4 x( x
ORA #'0'% |* w2 O9 H! I( L5 G
STA PPU_Addr,X
; m+ }: N4 v( E+ U% s
INX
: x+ s: r' I: u( F( o1 v3 C# j
RTS
7 m; _. L4 [; L- G* d/ y; o
0 Q2 m) R8 W* V4 C( [: C2 E7 N
;==============================& }2 W: T% z. Q: d, i& u+ Z
Time_Count;计时
' N( g7 i+ e3 p) l
LDA <Music_Stop_State
9 a' G$ Y7 Z4 B: _1 _
ORA <Time_Wait_Cnt0 |+ j. H8 ~, D" \$ x F; s1 ] o0 f
BNE Time_Count_End
- b: V: Q. f: Z' S( Q
INC <Time_Cnt
" C$ T T; C6 h ^+ h
LDA <Time_Cnt O3 r9 ^4 k6 x
CMP #60
! b# E( C) U* \ U% G
BCC Time_Count_End- a+ L7 G, g" h7 X& p
LDA #00
6 ]* F8 f- A" Q7 w, v' O
STA <Time_Cnt% X+ J7 n S, p& l; b* u6 q+ w! W
INC <Time_S
w! A* R$ T# r0 L* Z
9 l8 b: H; A" v
Time_S_Cnt
! u* p. [! ^) `+ R6 |0 O6 T8 O6 W
LDA <Time_S, {0 C( {3 v- \4 }2 t% h
CMP #60' X1 O0 @5 t1 R
BCC Time_Count_End" m; D- e' {3 x
LDA #001 @" K. K- K2 ?
STA <Time_S2 K* |8 c& L2 s: F ?$ A" F5 [
INC <Time_M& _0 J/ @0 d. E1 ?& G, P! T
% m8 @/ b+ v/ o l1 U
Time_M_Cnt
- ?3 u+ A4 ?1 m* D `+ @5 I: x
LDA <Time_M
t/ b) O, ~+ g5 w5 ^8 S! b5 {$ m
CMP #60
3 p% [7 Z! Y1 ~
BCC Time_Count_End) e8 q Q8 A1 N6 u1 H: e* o
LDA #00
! M+ ~+ P+ ~6 z
STA <Time_M+ s" U4 j, T7 C/ s9 f9 G7 Z$ X
INC <Time_H
5 m# ~% z- k' |/ T# l, m# _
" b+ n! }" R6 p- m) r( Y
Time_H_Cnt
6 q! T! c3 [" k+ ]! C
LDA <Time_H. S; I6 Z) |, c0 x7 ^: W
CMP #24% N3 ]/ g5 e% V! `6 A3 C1 W
BCC Time_Count_End
7 V/ Z# d/ _; B$ b# ?$ R- n& p, m
LDA #00
* q6 p' t0 i% j! s" n
STA <Time_H/ a6 C2 K$ b1 y8 K, l" a
2 q! \ x: v/ H8 t6 ]8 Y% I J2 G
Time_Count_End
0 }. t0 y7 k7 ~% P' N
RTS" o' X, o& Z+ q+ y
* Z5 k, @! B% L e8 V
;==============================) x2 S$ d, k, ^
Time_ReSet;播放时间重置5 q1 i0 R4 Z# _& | K# k
LDA #$00: _+ J% p0 `5 t! c6 C
STA <Time_S* B& `1 I, }& @1 L: K& U
STA <Time_M
! `1 V1 m. s; N
STA <Time_H
, f& I; d: }" `1 x+ V5 \$ v
STA <Time_Cnt
- ]/ e4 H+ P- g0 f( D4 t4 Z( I
RTS8 E7 j- X$ H w% n( m% K% u, p( ]
4 T& D" J3 G" H1 J0 d1 h" `/ A
;==============================, j1 O0 w& i: n& ~0 \, O3 h4 ^ Z
Music_Bar_ReSet;音乐条重置( W0 @, ]3 |% p
LDA #$00' ]2 X2 m5 o4 l& W e
LDX #$008 t4 z' S$ t8 @0 d
Music_Bar_ReSet_Set) G+ D, B l- C9 l1 B- u
STA Sound_Bar,X0 K( y2 p/ R( v/ D
INX
$ u$ `0 [, X# f3 c: H3 g
CPX #$10* k/ u. J Q$ ^2 h3 z: R8 w
BCC Music_Bar_ReSet_Set
! p* Y1 b# G% @: s$ ~
RTS3 k+ r. |/ t/ q$ D+ w: k: j& u
6 V% `7 k6 e1 N3 c9 u6 K% ^
;==============================& m: ^2 W9 X8 z' }
PPU_Data;PPU数据写入
# \: ~3 H2 @) H, u* ~5 O, l1 s
STY <Data_L
! Y! V' e+ y* E9 P7 @
STX <Data_H# i2 H G5 N! t7 j
LDY #$FF6 m1 k! e/ j7 C% F/ |' c1 b
LDX PPU_Cur" d7 z' b: x Z0 |3 @8 p0 L, i7 [
DEX( g8 F2 Y. D; \& S6 p
PPU_Data_Beg
$ I, u# n ?% Q# d. q$ l
INX7 f( V' S6 ^3 Q/ i& {3 P
INY2 Z4 Q1 _) v# b, C2 }. f6 \5 X
LDA [Data_L],Y
9 b8 V) C% N. B/ U; C
STA PPU_Addr,X' m% m( u/ c }! x: ?' y2 T
BNE PPU_Data_Beg
2 P( P* w4 _5 p2 @& ^
STX PPU_Cur
5 m3 B9 N. F2 h+ n2 q
PPU_Data_End
5 T H. D& R2 i5 u8 J. S" K$ s+ |
RTS D; |9 `9 w; K
' _3 ^5 M# R% F/ w, i/ @8 ^
;==============================
: M+ c6 o/ b7 X8 d0 C
Music_State_Show;播放状态显示
& f q7 Z5 c$ [0 C/ H) @+ E
LDA <Music_Stop_State6 ~3 M+ J0 }. U2 ^
BEQ Music_State_Show_Play$ o' o* R F* v7 i, t" g, I6 N
Music_State_Show_Stop; R1 y: A+ y4 @7 O
LDY #LOW(Music_State_Stop)
) _4 x# }- V* _! [# |# }. G9 S
LDX #HIGH(Music_State_Stop)2 @* m% `* a& o L
JSR PPU_Data
) R4 q' `. g6 H! y/ D
RTS7 L" v4 o! w, M1 ?9 y
Music_State_Show_Play3 r8 R5 A& _. G: o7 [
LDY #LOW(Music_State_Play)% | C* i$ ?! m( [4 A
LDX #HIGH(Music_State_Play)
/ T) p3 U4 W% H: h# ~3 p5 [
JSR PPU_Data
. E7 [: p& i4 `
RTS
: D$ V/ Z) o5 J' T L: E! i" i( N
6 S/ w W' }/ \% [ v0 k: E
.IF SOUND_BAR_SHOW_ENABLE
d2 J1 k$ _& C- o9 h' J# q
;==============================
& ?, G- b9 Q# }4 w+ D
Sound_Bar_Text_Set;标题与音乐条初始化
6 a8 _+ o/ {% a l1 ~4 f
LDY #LOW(Sound_Bar_Text_Data)! C ?8 n2 U7 o3 K' w$ L8 I! q
LDX #HIGH(Sound_Bar_Text_Data)
/ S0 g$ s. G8 j" t
JSR PPU_Data
, v9 C& O; a# W: J! v
RTS$ w" e8 i$ z- J' [
! ~: }6 ]- C$ j/ l
.ENDIF
1 O, ?% w6 S: ?
0 c; [9 ]0 C0 m4 H7 N
;==============================
9 M4 O% w) c4 [! S& N0 E
Set_NameTable_Attributes;设置命名表属性
; t- A" x" O1 L# ~% L3 h/ O& N f
BIT PPU_STATUS) F$ T4 i, w/ c# a2 _
LDA #$23
/ }; w5 Z( G4 g3 I/ @
STA PPU_ADDRESS
) I8 V% _- e" K6 y# H
LDA #$C0
$ p6 p0 Z" b% m% G) J
STA PPU_ADDRESS% j5 x8 H2 K1 s0 ]# A& f( i6 q' G- ?
LDX #$00
4 g2 |2 c! E/ r- O0 y3 L' ^
Set_NameTable_Attributes_Write( y& k; u; `4 `9 n$ _
LDA Palette_Attributes,X
0 k6 D+ g6 D/ }& W3 B+ t+ ~
STA PPU_DATA
4 E- x" c; C3 {% J% s4 ^
INX
# L6 c( b& F" Z+ n1 P& [
CPX #$40
, `" ?4 D' q& Y4 b) I! P% o6 _
BCC Set_NameTable_Attributes_Write& v! s: u6 o9 A Z! e
RTS
4 G* o# z! {8 J+ D
. P+ L: O6 _# H5 o/ D
;==============================
7 Q$ A" B" J- o: H! K% y, y
Set_Palette_Color;设置调色板数据
5 ]/ K# e5 v: q
BIT PPU_STATUS
" W- e8 Q2 e, s1 ?5 z1 Z5 A* S
LDA #$3F
) K `) X9 T& B$ z. V
STA PPU_ADDRESS
% }6 E$ m3 S) e# E6 P- C
LDA #$00
V' w5 m. [3 k- v: ~
STA PPU_ADDRESS6 i* N% z1 m1 P1 F, b# G
LDX #$00
8 K W& S0 {( Y
Set_Palette_Color_Write1 a+ ]- V& @8 X- V8 j
LDA Palette_Data,X
, a. }" A' a6 y& R0 U2 R& x. J% x
STA PPU_DATA
6 u) n+ J. ]: y& S; l
INX
2 @0 C8 _, B; i1 ^4 l
CPX #$20
8 i) D' l1 q: [; D6 E0 J' H
BCC Set_Palette_Color_Write3 |. n, X0 H+ J- c) c
RTS
( H5 q% F- O9 x: n0 F! O' ]
& c# ` A# ^! V) U. v* F9 ^; m- M
;==============================
+ e# b( {9 f5 a' `% m" Y
Init_Palette_Addr;初始化调色板数据9 F7 W: e& i2 D4 g5 T
LDX #$008 ?- e5 H# S# {) M9 F8 ?- S4 B+ C
Init_Palette_Addr_Write
9 X. u$ T+ `5 y& |
LDA Palette_Data,X
; z u0 Y. ~- s h" K6 T
STA Palette_Addr,X* A" d' F8 H+ ]7 v j# X
INX" E$ {9 A7 |# T6 r" `: d: {
CPX #$20
8 p% Q" ^+ N6 x1 m' C( K& P
BCC Init_Palette_Addr_Write
RTS( {) |, U6 D2 j8 y" v5 |9 g {
" O# K% n; v: \$ c4 S$ b
;==============================
) G' D+ U6 o' E# ~- x( q$ r- L
Update_Palette_Color;更新调色板颜色3 f. d6 T1 g1 G9 W0 g# i. _
LDA <Palette_Update_Flag
& s9 [/ h! K9 _. [) Q/ _- j" M
BEQ Update_Palette_Color_End
* O* l/ N2 S# b4 p
LDA #$3F6 Z0 E" H# R! m! h2 U2 Q# C3 r; W
STA PPU_ADDRESS
0 @9 E* ^! ` ?! e4 [
LDA #$0C& F, W! _+ a7 c5 z" O
STA PPU_ADDRESS
: {6 c) f( V) w1 o r% M9 z: p" H
LDX #$0C) J" @3 ^+ ~4 j: t8 I$ Q
Update_Palette_Color_Write6 G" F, l6 \: a& a3 [' b: K
LDA Palette_Addr,X* A8 E* t K6 \- x+ n' J
STA PPU_DATA* z# Y+ ^4 x$ Z
INX
5 F1 t/ z& Q5 z% V; H
CPX #$14
; W0 y* x3 G6 K8 L- f
BCC Update_Palette_Color_Write
$ J/ V# G: I+ n8 S7 O- j% {7 h
LDA #$00
5 S' L/ N5 G' s) u* }0 K9 e( q3 a
STA <Palette_Update_Flag+ r# n4 \. q4 z& k4 ^: N' @
Update_Palette_Color_End
6 t+ H! g5 Z6 t/ m% p# K- T- ]
RTS
* J* \' H* i0 q1 I1 y* K
U' p. a6 j: b/ X2 n# ~
m- {2 S2 G3 |1 B" m' N
Update_Sprite_Palette_Data
* Z* T- b$ y f* I; b* ?, G2 e6 \
.DB $21
# [ `! t/ l/ u5 @
.DB $21$ c" D5 {0 G8 }
.DB $11
& W4 {' b. A ?6 J3 N
.DB $01$ H6 u% c' Y2 ~5 r
.DB $012 B& o4 @8 [ V9 A u
.DB $11) Y2 n% y( ?, i2 w
.DB $21) l7 n8 B: W" t6 H
.DB $21
1 [$ X( m: i: i
.DB $11, ^7 ~, k" ?9 K4 |. L7 {0 }1 N; F
.DB $01
* w7 L0 X8 V6 b; y* @$ u. z
.DB $11
9 w, E* a2 C8 ~! g
.DB $21* ^( F4 {9 C9 n' Q, J
.DB $21
n3 A" L$ C" `* `9 m$ H5 D/ ~3 Q4 u
.DB $11
0 c* i& v0 Y9 l# \/ u. N. B
.DB $01: A4 A# a# I! W, d# y9 t
.DB $11
) C2 {' D2 ^3 g* L8 @8 W; K
;==============================
: q7 e! A) ]3 o
Update_Palette_Data;更新调色板数据% i- k# i' G E1 ~, i, Q
LDA Nmi_Time_Count
7 _6 c" s& @5 D3 k2 P# g) J* x
AND #$08: F4 j1 I/ f2 x- S3 ^& R! n
CMP #$083 i: d T/ r$ j" R
BNE Update_Bkg_Palette_Data- W( Q/ n$ H5 S- E/ g, U" k6 g
9 ~( z7 L. J Z7 ?- O
Update_Sprite_Palette_Data_Set! l9 ?# D' R: J9 ]! ?8 `$ g
LDA Nmi_Time_Count
$ ?( C) V) w+ a% T( O
LSR A
+ z8 m# l0 P. u" O
LSR A
) _1 Z/ a! o# f/ f$ p. V. G* A
LSR A$ X, t' T0 O6 c5 v7 G
LSR A
6 x6 Z" D# o. T! s
AND #$0F
# _' l* u4 Y" C9 H( C; u0 Q
TAX# N& x: Y, [; v- \( X2 f
LDA Update_Sprite_Palette_Data,X
3 `+ o( p& x7 `* [6 A5 u
STA Sprite_Palette_Update_Addr3 A* x/ Y" `6 l
LDA #$01
% \3 w J6 C+ J8 n8 {6 p& v
STA <Palette_Update_Flag3 o9 C) u2 C+ d z, X8 f, \5 H' F
2 p r0 B4 R$ g: Q2 W
Update_Bkg_Palette_Data
! K% y: M6 Y" M. D5 C" }" C4 o. o
LDA <Text_Disable_Flag
% ]5 K/ }* h& y' [
AND #TEXT_DISABLE_RAM" H. z6 Z1 [: O4 n
BNE Update_Palette_Data_End
5 h, t: v2 f& q% S1 i& N
LDA <Music_Stop_State
* P! {. J; V: u
BNE Update_Palette_Data_End7 ?5 P/ K9 H2 x& K+ L( o/ W8 Q
# \& @6 l% Y: R! B0 H
Update_Palette_Data_Check
' J O2 z8 Z! F6 D2 u6 \
LDA Palette_Wait_Cnt
/ O, A6 g4 ]# q! p% f3 D8 A
BPL Update_Palette_Data_Check_Over6 R; _: u' @5 l- s* R
LDA #PALETTE_UPDATE_INTERVAL5 y2 T" E' B( @( f; q
STA Palette_Wait_Cnt
) o- n. a" C6 \2 V8 G3 C" d" A& g4 g
Update_Palette_Data_Check_Over
' ^/ r5 Y2 [! y% R+ B9 V0 W
DEC Palette_Wait_Cnt
5 \% b8 y7 \: }) w/ x5 S
BNE Update_Palette_Data_End
! m! o) T3 I) r/ [: o) K4 c1 ?$ k
6 `; m4 R# k# y" M' R! N
LDA <Text_Disable_Flag7 [5 b# D9 t$ y( S' u
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME: l8 z" d, B" `! H3 G, x2 P& |
STA Text_Disable_Flag
' S4 M: u' `) I @) N4 B9 u; W
INC Palette_Update_Flag( O+ r6 s7 A5 l2 P- y
9 I }: b8 d$ w# L( z E
LDA #PALETTE_UPDATE_INTERVAL
6 s0 L R! B, Y% O0 f3 e
STA Palette_Wait_Cnt( [- h; J( S0 g8 k0 ^
( U/ X6 [6 ~: U0 i
LDA Bkg_Palette_Update_Addr& T U3 ]% `0 E; w) |" F' }* ]; b( A
CMP #PALETTE_UPDATE_MAX6 U) t- K+ g0 R* A
BNE Update_Bkg_Palette_Data_Set
/ |* h0 [( S9 q2 o. P
LDA #PALETTE_UPDATE_MIN - 1
$ M/ C4 m' X) K _( L; I
STA Bkg_Palette_Update_Addr
! ~, d6 C g" v& z1 \! B2 Z
Update_Bkg_Palette_Data_Set
( G% o! L4 T1 ^( }9 V* l
INC Bkg_Palette_Update_Addr+ K1 W* F; t* s# X% i8 e7 _9 I
. L3 C2 D5 h/ ^; @" _
Update_Palette_Data_End
6 \0 a( \: P( W
RTS. \( o c; D1 I5 L( Q1 N
5 h+ [0 [2 e5 |9 u* v
;==============================
+ I- W) b5 Z0 W: ~4 y0 {% `4 H1 `
Show_Music_Text;显示静态文本0 ]& W$ R9 V9 l, z% } p
LDX #$00
2 V- R) a9 Z1 b6 y1 W/ j/ A) I5 a, a8 w
Show_Music_Text_Set
/ o, ?1 z7 L, k5 n
LDA Static_Text_Data,X0 f( h' F% U7 K& m
STA <Data_L
# ^, g) J* x+ O" k" H( V
INX% {( a8 e' ]3 n2 b6 K7 h
LDA Static_Text_Data,X& w2 K# x, I- g) ~/ g( q# T! b1 ~/ q+ G
STA <Data_H% H8 Y7 { q3 U
INX
; T2 C1 W" x: n' I3 h% H3 u; u5 z
LDY #$00" W/ }" P, Z% d" q Z) h
LDA [Data_L],Y
; p1 N# b! Z2 l+ r
STA <Data_Cnt j1 K% l1 d1 J# R
DEX
# j4 o: i+ {& q) b0 _3 W M4 H
DEX' Y; T. F" A1 [) b) s, O
LDA Static_Text_Pos,X
2 w' V' e3 j3 ]& V2 i9 s9 y2 W
STA PPU_ADDRESS
. ?2 u+ I, U, j8 M1 k0 \
INX) q1 U+ A* _! P: q1 M
LDA #$20
! |! X& n- s* M4 j: G0 f
SEC
4 h. K" z$ I% _# j2 A+ P
SBC <Data_Cnt
+ s# I4 `. P5 f8 |$ \. z# _9 t$ K
LSR A8 }1 A& v0 f O+ w$ U, B0 ^- {
STA <Data_Buf
: d$ G. g5 Y: ~5 P; l
LDA Static_Text_Pos,X! Q- `: q" V% s' D( S% y: V6 v
AND #$E0
; Z( [- I* L* I
CLC8 G; W) S+ q" S0 p5 n# C
ADC <Data_Buf
0 k; @; I; r& Z& j a
STA PPU_ADDRESS( O t/ Y+ s( A% d y( ~+ B
INX2 w$ E: |6 `* L& `3 u! |0 c
Show_Music_Text_Set_Write5 Z, Y9 E; @ m) R
INY
7 ^; S/ ^3 @8 x( O
LDA [Data_L],Y
# l+ P$ f2 e! e& V7 \4 h3 }; H1 j; K
STA PPU_DATA
. N, ?6 @7 C4 x' F0 L
DEC <Data_Cnt
3 h& _: Q2 F, i5 w* x
BNE Show_Music_Text_Set_Write9 ~8 }- j0 a$ \# c
CPX #Static_Text_Pos_End - Static_Text_Pos" ~/ N$ C9 a) {0 H
BCC Show_Music_Text_Set# z+ U8 @& P9 P0 s
RTS
' I; o, ?$ i1 f2 O: g# c) Y2 k5 ]
( a9 }8 Q I! D3 G; W
;==============================
6 w0 F6 O; Q6 ?# i8 `
.IF Track_Name_Pos;显示曲目信息* D/ |! }5 \6 U
! ~/ P6 W5 P6 D" g
Clear_Track_Info) j: R* K& [. l8 a! \7 C, P
PHA+ G8 P, q% I# }+ h
LDX <Music_Item_Cur
4 b" z! j/ E8 w: I1 p+ ?
LDA Track_Name_Addr_Flag,X& E" i$ R( X3 k7 c2 a L
BEQ Clear_Track_Info_End_Ex
, e! I- n* H+ H0 M* U! Z
PLA
) Y9 y3 a) S0 V8 U1 S/ B ~
9 k1 q! B, D* A# P$ O' V% Z
LDX PPU_Cur
' z5 g- Q7 V$ y8 I& s
PHA
$ u, Y# j8 I+ G/ S" r) o, G
LDA #PPU_MODE_CNT_CLEAR
, x, y: Z: i& N. }: h$ }. j0 i# p
STA PPU_Addr,X
9 [) T; S) X1 j$ C8 P8 |4 W
INX/ [! |, Y+ i. q3 W
PLA" `7 ~6 a4 I I: X6 a
JSR Show_Get_Track_Name_Center_Pos
2 U" g2 H# N3 \" ?
STX PPU_Cur. I: F7 x, R4 ?0 H! e5 T0 u
Clear_Track_Info_End$ R( P! g" G4 D9 a( q
RTS
. B3 j7 @. n$ I; T- E" a- B
Clear_Track_Info_End_Ex
+ y0 \0 q7 h$ G7 s9 M ~
PLA
4 ]8 ?# [: s2 V, l
RTS
! d" [, P5 I! k# r' p, ]& ?
4 U( J& @* s/ I
Write_Track_Info
, | \1 T' j/ B% j j# P9 [# I
PHA
+ J5 g# t q2 n- m/ j& }. r
LDX <Music_Item_Cur
! R8 @+ W! H$ F4 `; [
LDA Track_Name_Addr_Flag,X
# C' [! ?( J" N+ o% w
BEQ Write_Track_Info_End_Ex6 [$ n/ ]2 |$ ?. w
PLA) @3 P3 }: y8 Z% n' D4 n( e
% J' ^( k& \* N2 d- s
PHA: _4 Q" O$ h) s9 S
LDX PPU_Cur7 }- N* i" \9 B" Q) m- v- t
LDA #PPU_MODE_CNT_LINE
t2 H8 a& E9 g% Y* G& z9 e
STA PPU_Addr,X: F% [3 G& @) ]! m' _% u
INX
/ L, T. E, ~- j8 q% C& q
PLA
4 b& `3 {8 b0 W! g9 r2 L. w
JSR Show_Get_Track_Name_Center_Pos6 ^' i( q, ^7 ?: }0 W
Write_Track_Info_Data
m0 ]- c, v5 S7 e
INY$ [7 O1 L2 C7 |8 c% a: s2 n3 C
LDA [Data_L],Y" Z C, j: f! s
STA PPU_Addr,X2 X3 U5 P" c3 I6 S5 l: @8 s
INX
3 [0 U' `' ~ F: {* S
DEC <Data_Cnt
9 z) l h5 `8 t5 B$ B! n; ?
BNE Write_Track_Info_Data
# F- p/ a0 [, l1 q! h& o& ^- n
STX PPU_Cur
' s+ M# }, ? Y/ f
Write_Track_Info_End! W$ M% u( A( ~2 v5 f! a
RTS
6 G: ~& {- g2 u3 Z
Write_Track_Info_End_Ex; b- `$ f, A, `9 I7 D
PLA
% }8 j. P! `% Y4 e
RTS
2 h5 q3 |3 {$ a/ a! R# [
$ {* [" I$ S, @4 D
Show_Track_Info
' O6 `( ^; t5 K
Show_Track_Info_Clear T2 L! `: X; D2 a0 Q% a
LDA <Music_Last
8 o* k" u3 `( E/ b, M H
1 X2 B1 M) b3 _
JSR Clear_Track_Info
' V4 w. a# I/ s. S* |
# W; o6 f, F& n& O! O6 g
LDX <Music_Item_Cur
! C8 z. F7 ~- n4 {7 ~- h
LDA <Music_Cur,X
, z. c& U) r/ t+ l) E
JSR Write_Track_Info
2 r7 \# i2 \/ q- l: S# z7 X
RTS
" t K4 A- _. b' t% t) x+ u
* V' V; i8 e8 @9 e
;==============================
" r& [( X& T" ^, ?
Show_Get_Track_Name_Center_Pos;获取中间位置8 m5 P4 L9 f: w% ] A: h
) c/ Q0 ~3 T. y" S$ c! \
;取出集合名索引
$ ~7 T3 E; `( g* X6 `6 ^
PHA1 o3 I0 L( _6 X; _3 E
! |/ x6 b" A1 W& Q' e: q F
LDA <Music_Item_Cur
( ]' g2 [9 D2 R0 }; `" X
ASL A8 A, ]- d, j6 J0 A! t% u% i4 z/ a' E( V
TAY% @' C g+ u1 ~" ~
LDA Track_Name_Addr_Port,Y
# |( n. Q" b# R5 _' i
PHA
8 d" s& e8 B8 V9 G
INY
/ i* j( |" X: V" v. {4 H
LDA Track_Name_Addr_Port,Y) {( s5 e6 v! e$ H+ c3 O+ Z( S/ G! s/ L
STA <Data_H% ^' c% X, ~& W9 v( h3 ^' I. E8 {
PLA
0 p+ e: U7 A# h6 L
STA <Data_L7 p8 ^8 N% h2 L$ F
* p* y0 n0 T: o
PLA
: L! l& q( P5 E
, r `5 r) |5 p# r# L; |
ASL A
4 r0 F) T2 Y" N
TAY. b3 W: A- h2 z$ c2 I7 e2 i, y& w/ _
LDA [Data_L],Y) d9 t" I4 V6 D1 G) q; D" {2 ~* B
PHA
1 c" t. h6 O3 W3 R, S* O0 [0 `0 g2 I6 y
INY
( [' e9 R3 l0 a2 h8 |
LDA [Data_L],Y
5 x, R# I8 L" K+ e: b
STA Data_H
, t6 K6 C! }( @ {! u! x/ w0 p( \: N
PLA0 z1 U7 B& k7 `
STA Data_L8 }! u1 `% d: u8 W9 R
' r. u5 y, u" g, }3 g. O! ^4 c
LDY #$008 {8 X( A# W1 v$ Q0 P
LDA [Data_L],Y
1 [2 G: L" y, C1 I
STA <Data_Cnt! w7 s' w* h* o9 }2 {6 @) {* X+ t
LDA #$201 I0 V" ~; ]% h+ `, a0 Y1 T
SEC* W, y0 Q4 `- S x
SBC <Data_Cnt
7 A; M: p) ]4 I
LSR A
; \- v3 [4 o) A5 V1 y4 O
STA <Data_Buf# z& d1 p- _6 g5 t7 Y* F
LDA #HIGH(Track_Name_Pos)& x* C" B! l _0 c( Z
STA PPU_Addr,X2 k/ P5 ?2 N+ l
INX3 U- Z, D3 ^! }8 B1 X. `
LDA #LOW(Track_Name_Pos)- T* W# Z, k: Q* a& n! Z
AND #$E0
: X& }' d w5 \! ^
CLC
# Z' k* k, L2 o# f* A
ADC <Data_Buf& U! ?8 ^1 k9 D' r" {
STA PPU_Addr,X" F' \* L2 c9 B5 W! i
INX
( m3 v! E" [. A8 ^" Z' F
LDA <Data_Cnt
1 @" o+ H7 O) [; E
STA PPU_Addr,X3 [* C/ M; Q, D: ^5 t1 E
INX
( ?3 t) B' Q& y7 ~+ O% k$ ~9 N
Show_Get_Pos_Center_End* H/ n. A, K; ], D
RTS" E2 c* ?: I0 w( t7 a4 i" Z: ]
.ENDIF7 b# j( o0 ?% V: |* b
$ N5 S% c3 ], S, Z3 @4 y1 \ p
;==============================5 T- ^% c" [4 E5 w% N7 @* c; v
;音乐端口清除
( Y- P3 h1 Z! {) W B: o
Sound_Data_Clear
# t0 e/ r- ]5 ?% Q* E
JSR Sound_Port_Clear. V1 N, Z. M% N
JSR Sound_Ram_Clear
. W7 g) x- A/ b& q2 R& C
RTS
j0 ?' l* S' V2 v
r7 M% S' ~4 A! V) V- K# y9 B
;==============================+ H2 u8 g# `+ N+ u( _( E' J
;音乐端口清除
' v0 g; z. z3 R# W% d
Sound_Port_Clear
" V$ F( `# [" V! W# c, z o
LDA #$00
) F1 Q/ N! e' `( [* O& E1 |: Y2 {8 Z
STA APU_STATUS
$ T! X( m. @7 C# E
LDX #$00" O1 Q2 D8 h5 ^* s6 c# ^; q6 S
Sound_Port_Clear_Write: K; C7 H5 m/ I
STA $4000,X) H2 y7 D) y ^; v' V
INX( E7 a2 ]- Z$ U: c' J
CPX #$14, `9 _; @- X: l. i" g# Z7 J! B
BCC Sound_Port_Clear_Write
8 @1 C6 F" w, U) ~ ^% Y4 A* `
RTS! e- d3 H* ?' g8 n% k# H( P2 D1 n
( } o& j3 O" t/ Z5 L a. N
;==============================, Y7 U" } D* v6 N
Sound_Ram_Clear;RAM清除
Z0 h# K8 @: J1 b
LDX #$00
. g$ F5 E9 L1 |+ o
LDA #$001 q1 ?& r, `( F$ ~
Sound_Ram_Clear_1
7 q0 r$ M+ q8 w! n) f. v( k A4 R) i
STA Sound_Ram_Addr_1,X) s/ z/ i' s- c* V; z. ]- a: |
INX1 z* v+ T& [% C- @7 C* p
CPX #Sound_Ram_Addr_1_Size
; }, B0 l; i+ U; v. v. o6 B0 u
BNE Sound_Ram_Clear_1
! U& p; p6 ?9 g
LDX #$00
$ ]* Z$ ~2 f, c4 |8 U4 H
Sound_Ram_Clear_2; X; H+ P0 u/ [
STA Sound_Ram_Addr_2,X
) j( f6 t; I7 N
INX. E; }* }1 z0 z+ F9 B s% _
CPX #Sound_Ram_Addr_2_Size- p/ V+ w/ G4 z1 {% n" n
BNE Sound_Ram_Clear_28 c4 L+ d4 r& B$ E9 |( E7 f
LDX #$00
9 N8 Z# t8 H& K- U! R
Sound_Ram_Clear_3* w& s/ k3 [9 e* D ]
STA Sound_Ram_Addr_3,X; M6 }8 L+ }3 v% M$ a7 ]
INX7 X: N' L( I. u
CPX #Sound_Ram_Addr_3_Size% F' { r2 I5 W7 z( B
BNE Sound_Ram_Clear_3% w& g3 }4 K8 J7 c
LDX #$00
5 R; w p7 N6 x2 Z
Sound_Ram_Clear_4
7 \3 Y$ |* `/ L/ P' y& M2 N
STA Sound_Ram_Addr_4,X, e0 m# C+ q* s9 g- O
INX. t' x, A4 z+ l- d; X
CPX #Sound_Ram_Addr_4_Size
6 ~ Y" G: l8 a- t* Z# V A
BNE Sound_Ram_Clear_4
% c; I8 v- _ [, _3 ?. S
Sound_Ram_Clear_5
; N, B& }8 m7 p, K" k' _3 J
STA Sound_Ram_Addr_5,X
* u& Z. L6 }' u3 h8 U9 ]
INX$ i+ K1 \8 d, Q; u3 g" j! Y
CPX #Sound_Ram_Addr_5_Size
( N+ s% A& ?, A# ~, s! Q
BNE Sound_Ram_Clear_5
M! U( a% Y- V* s) y
RTS
7 O, ^1 ?$ e0 T& ]& Q! Y
! G$ B1 R6 c( e' K$ e* f' V
Get_Music_Collection_Name
1 ^! S/ ~- m; F5 U; O8 S8 N0 O2 K) x
PHA$ h' {$ u3 ~' F) Z. k
LDA <Music_Item_Cur( I* x& h0 N( K$ V2 p( s
ASL A
, p9 z5 `3 p% J
TAY1 y7 z% q% u! `7 H# \3 q" Y3 {
LDA Music_Collection_Name,Y
9 w& m6 H# X4 @
STA <Data_L( G2 d/ k& q# V% R
INY
/ \% f, L2 I3 k, |4 O T
LDA Music_Collection_Name,Y
. w) g( a1 \ N
STA <Data_H
( J/ \' ^# c$ a( Y9 M
PLA2 T( O" |+ l$ r0 O3 o, |
RTS/ c2 N" d3 N! Z/ r; G/ t
. `6 ?/ L3 i$ _2 {
Set_Sound_Total
& D) S! m" q4 R& V# u
LDY <Music_Item_Cur% f! ]. V9 s# L; ]
LDA Sound_Total_Port,Y
7 s. b! s3 H: H
SEC3 Z5 I# z- V0 b+ O6 u
SBC #$01
K# L$ v% i. k: I; G& e
STA <Music_Total6 o0 C9 {- u" k! v; A. V: `0 P
RTS
. N" l, S, V4 r; A& P2 M
7 S% C/ Q6 x6 M6 S1 Q
Get_Sound_Start6 o* R) W* ~/ w/ @! s
LDY <Music_Item_Cur
/ T& p6 ]& d( K1 }3 ~) A
LDA Sound_Start_Port,Y4 m+ t/ A, v9 ]) e
RTS
5 { _- ?: _( S3 \
( ~1 D/ K/ ]* n1 s- I
Set_Sound_Init_Port
5 ]' P% V9 M/ }% ]
PHA1 d: n3 K/ p2 @( H R4 G# |0 f) o6 O
LDA #$20
; }# N5 w& K1 ?
STA <JSR_Addr_Op
. i: \/ i; h' A, U% W
LDA <Music_Item_Cur
4 v8 x' c4 N& T8 p5 g5 v
ASL A3 f7 d. A7 g J2 Y s( V8 q
TAY
/ ^6 _5 A9 P A
LDA Sound_Init_Port,Y* S: ~& M( \5 A. _
STA <JSR_Addr_L8 ]% A, w( _$ t3 F3 _5 X+ [
INY
. e7 n9 s x; d' j" E
LDA Sound_Init_Port,Y0 b2 U0 v6 s9 \6 f: J8 ~
STA <JSR_Addr_H" k6 l6 h4 O- G5 @- Q' d: i( G
LDA #$606 P9 D6 L- C# w7 A9 e' i
STA <JSR_Addr_Rts
$ _1 d: o8 d9 O0 d
PLA
2 o. o0 F2 |; u: T6 e
RTS: N9 h: _; d7 _1 M% Y& d
! P, O6 e' d: A1 S
Set_Sound_Play_Port
8 C0 Y- O# z1 j
PHA
, R7 O7 m5 G1 P" j7 F0 [$ }8 J& B4 |
LDA #$205 a- W& Q C& p
STA <JSR_Addr_Op
; M( U4 |% a, f% K
LDA <Music_Item_Cur
1 `( b% q0 @7 _, K8 H% V0 A
ASL A% s K3 Y# Q5 X! U) I& Y
TAY' |" I4 {* ~1 h4 \' K
LDA Sound_Play_Port,Y9 |6 x* U8 V# R1 L
STA <JSR_Addr_L
3 ^6 B: ~* P3 `
INY
" N; W+ {6 X+ }3 R: @% x% w
LDA Sound_Play_Port,Y# n% t/ s: U& @+ k
STA <JSR_Addr_H, f# N1 K, i- o/ O; s4 ?
LDA #$60) N9 C# m* n; z
STA <JSR_Addr_Rts6 X0 q% \4 S9 k# [7 a) ` a1 d
PLA0 d/ A+ d6 W7 }2 S% m: N4 m& H
RTS, t9 M q) U5 u, `) F! z
0 C, w2 J. k, R7 q6 Z3 d
Set_Sound_Reset_Port
9 D1 _$ u. W8 I5 U" T4 N
PHA
v2 G. F+ _8 M. S+ A( Z
LDA #$20
9 P1 ~" n- Y q9 Q' r
STA <JSR_Addr_Op# a) z2 m) Q, V+ T
LDA <Music_Item_Cur
9 B# J" W- T7 Q' K2 V0 Q% U5 t
ASL A- K Y, @* t' c1 l4 |! S' S
TAY' \/ o6 C% a! h
LDA Sound_Reset_Port,Y6 n6 f8 J! d' h+ D
STA <JSR_Addr_L
" q* V0 ]6 s$ p d( f: I# v
INY( Z/ O0 D6 V" z) X! u; d$ f
LDA Sound_Reset_Port,Y
6 }8 G9 B' C; a* {. n
STA <JSR_Addr_H
2 k$ Q& X! K% T& W7 `' H/ B# j j
LDA #$60; p% L- u' _' B" N. M
STA <JSR_Addr_Rts
+ e7 V: B9 y, p# e% e: a( C
PLA
! x. [# _0 v2 d$ d5 j$ k X
RTS
& t$ a8 n( p2 i
5 d4 x3 D7 k! H1 y& F4 B. D
;初始化音乐bank
8 Z7 r( e2 e; f3 \" ?- d
Init_Sound_Bank; _; A. E$ E/ y, b, R+ c
LDY <Music_Item_Cur$ h. e5 a i& {2 Q8 I
LDA Sound_Bank_8000,Y2 z# [! ]! H6 @6 |9 B2 O
STA <Music_Bank_8000& V: P- Z6 U5 Y* Y4 q( l
LDY <Music_Item_Cur
3 E( M0 v% E7 N0 k+ Y2 n5 K
LDA Sound_Bank_A000,Y9 j8 y. B1 Z/ q7 X% q2 ]
STA <Music_Bank_A0003 _ r* Q2 A; E" n: n- G) l. G
RTS) \+ p% i- b- o! u7 u
- e- d( E! |5 ?
;==================================================) W$ n q4 {8 z/ S+ g4 @
Sound_State_Reset;音乐状态重置
7 o& I" S0 {: ^$ |- V8 E7 ]
JSR Music_Bar_ReSet ;重置音乐条 z* ~; z5 T- |% s+ }" n2 \
JSR Time_ReSet ;重置播放时间
- w' s& s7 j4 x! c: A; V* n
! [& ]2 l9 L8 z+ M; {& a
LDA #$00
STA <Music_Stop_State
- r7 u9 o K) p& z2 b, G. v
JSR Music_State_Show ;显示播放状态
8 [. t' w- g" J3 ^) R/ }
8 }# b1 M7 r3 o: y) @9 k2 W" O
.IF Track_Name_Pos
7 N$ F. A* ^5 u
JSR Show_Track_Info ;音乐曲目名显示
' P8 \ ^7 Z+ n; e2 R0 t9 m
.ENDIF
- @" T6 B& K0 T1 P: `* p, k
% y" x( j+ ?/ [7 w2 @
RTS6 r0 n; V( ~2 O# r" e
8 ~! M* i% w7 e: B- D
;==================================================3 S6 x0 _) C: X
Sound_Init_Proc;音乐初始化处理) x1 N2 S7 D3 }
PHA& V$ b" F/ } T* k8 b! G# q
JSR Set_Sound_Init_Port ;设置音乐初始化地址
* R9 g8 [& l" C8 A7 k: i" u* O8 I
LDA #$00
5 d9 p2 `. \+ Q3 y
STA <Scroll_H ;重设水平滚动
7 X5 i; B1 q' a3 ~$ ~
LDA #$0F! w" U( V4 I0 O
STA APU_STATUS
# \/ i( D {* |9 v
PLA
9 v6 I6 ~; {0 ~& L+ [. f
JSR Sound_Init ;音乐初始化6 `7 t5 ?: N4 n% @: u- ]/ @+ z
JSR Sound_State_Reset ;重置音乐播放状态8 D+ D+ Q) x- m, U
RTS
- {5 I) ?' H6 A
3 {* R: U5 x2 s7 [$ x$ y1 b
;==================================================
. }% U: x! t. C ?! J
Sound_Play_Proc;音乐播放处理
* S3 T+ x% D- W, X
JSR Set_Sound_Play_Port ;设置音乐播放地址. D' J% a1 a1 ]' W, k8 @
JSR Sound_Play ;音乐播放* A4 S E: Y* B) a% J0 [
RTS
( k" S: Y2 S$ r; n/ s. z$ w7 B
$ t: r% K& p1 O- ]7 v+ j& Q
;==================================================( |9 [( g, I, a; ?! n3 S
Sound_Reset_Proc;音乐重置处理
& F5 i4 J! f; z5 T) M
JSR Set_Sound_Reset_Port ;设置音乐重置地址/ m* a2 g# O$ I1 [* W
LDA <JSR_Addr_L
" O' m$ b4 [" q- M2 g, \
ORA <JSR_Addr_H
* y( @8 E5 c1 U
BEQ Sound_Reset_Proc_Default# {. A! \6 ^& n: m& g
JSR Sound_Reset ;执行音乐重置
8 G- c. x; p3 E# \1 q0 l5 |
JMP Sound_Reset_Proc_Init_Sound* v: t- n4 p- l! X1 ]
4 u( J7 `2 [& T* M
Sound_Reset_Proc_Default ;默认音乐重置处理
/ Q7 }0 f9 f0 Q2 F3 z4 G
" V. H( @& Y0 I$ i
;清理内存很耗费cpu周期, 这里禁用一下NMI中断
4 R+ u. R8 ^7 } k( B) @
LDA #$00
, p4 U$ Z, q7 Q K% v$ G$ j$ f5 }
STA PPU_CTRL
* V/ W& @4 V4 T2 k! F+ w
& c# T6 K! B a9 ^
JSR Sound_Data_Clear
' D6 c% l9 S# I3 | Q5 u9 G. v
2 T8 v+ r; l, q6 W& K
Sound_Reset_Proc_Default_Wait
8 H: f ^3 X: c& P2 l" B( ^) M; I
LDA PPU_STATUS
BPL Sound_Reset_Proc_Default_Wait; ?5 m% X* u9 ^3 G3 C
: b+ ]5 ^# E' ^1 Q$ n7 F
LDA #$00% q' @. j1 W/ T8 }3 c
STA PPU_ADDRESS
, ?! ]+ c* k) E. H- \4 W' [
STA PPU_ADDRESS
2 G) Q7 ~! e( T1 E* w
STA PPU_SCROLL
; K+ x1 z% G/ w, m$ d7 z6 ~- `
STA PPU_SCROLL
, T0 H1 A* G2 U) P
4 L2 a4 f! ]0 n1 W
;恢复PPU控制2 U6 I# K+ q! Z# |; ?
LDA Screen_Ctrl% J1 h8 ^0 A& s' E+ _/ f
STA PPU_CTRL0 \9 |" _& }; F) X5 M' k' c
! j1 B" N+ ? o8 J# [% w5 e
Sound_Reset_Proc_Init_Sound* O3 m5 Z# L$ x, y
LDA <Music_Stop_State, G% L4 n3 ~/ B* k0 J* N5 w
BNE Sound_Reset_Proc_End% ]' E$ g0 h; T8 {4 l
LDX <Music_Item_Cur
- o2 F+ o7 Q1 D5 t8 `9 g- S
LDA <Music_Cur,X
: a; Q7 _' b h% T
JSR Sound_Init_Proc
" B( p4 F4 J# V
Sound_Reset_Proc_End# d. q& d, _' a9 Z+ j0 Z5 _
RTS5 {* y0 d9 H5 h
- x1 v% `! i" [- e* E1 V. h/ g/ |) M( }
;==================================================: G( n" k0 t4 ]4 L) ?
Clear_Item_Text;清除页项目7 g2 Y3 \2 H; D: P
LDX PPU_Cur" K5 e+ t3 ]" s! @
LDA #PPU_MODE_CNT_CLEAR
& k' R9 k- v# R% d2 G) l
STA PPU_Addr,X
9 d6 N$ [# r4 j K
INX
+ e; J, f Z0 _7 G" Z, \% G
7 j. _" x# I0 [$ q5 r. u# x
LDA <Page_Last
. z1 q' Q+ P3 [! Y
SEC4 [5 e( p7 k( B' t- H# y
SBC <Page_Last_Index
2 J" \$ K7 S2 `
ASL A- c4 N: s, d6 N& F
5 v# R# ?# d* y
TAY3 s6 e8 G5 F* G$ @0 M9 b
LDA Item_Pos_Data,Y
) c+ \0 b5 V. B
PHA* x4 {) s' n* o0 G% c: W Q. P
INY
b4 f; c# V3 J
LDA Item_Pos_Data,Y
* I' S+ r; Y8 q5 R9 s, [* v) z% Q
STA PPU_Addr,X0 o+ n8 n. c Q
INX
" D6 L A' f3 v) j: `) b
PLA
) v. Z* }+ o2 B4 \
STA PPU_Addr,X
! K4 v+ r! ^) h0 ~
INX
$ g9 Q" K0 ]+ G' }" O
- u6 [% T! a$ o: G# `
LDA <Page_Last
/ M& o7 ]( u9 ~4 E8 z* e- o
ASL A
% x% k% N d7 d' Z* x0 ]
TAY
$ l4 }0 t0 s+ T
LDA Music_Collection_Name,Y
~/ B% P6 Q# g# U' A! G( _5 u
STA <Data_L
* b+ R; |1 W- O1 r
INY
5 N* k# _. Y1 G) ?
LDA Music_Collection_Name,Y, s+ i, b8 j. O, D" X( s
STA <Data_H
) _: u5 o/ K6 F9 S7 s0 a
1 J) A2 E1 V7 |) b' Z
LDY #$00
4 z) r5 A) w+ D* a: h7 K
LDA [Data_L],Y
, g* B( E/ m2 l; R- [
STA PPU_Addr,X' G# n0 G# Q, T3 L, x. R
INX
6 N P* U/ @3 `( M9 N
Clear_Item_Text_End2 w$ g% ?7 A# c5 w. D" F" A
STX PPU_Cur0 h0 D$ [/ B% {2 W# M" C# k
RTS2 ?+ _9 a5 I6 U6 ]
1 e q8 y- t+ M! Z
;==================================================
( U, q/ Q- x. S3 |
Show_Item_Text;显示页项目
: U, @ y. |, }% ~7 u- V
LDX PPU_Cur! p( Z) S- R" T6 m
LDA #PPU_MODE_CNT_LINE
3 U, @) k/ x% k* P' T* X$ `
STA PPU_Addr,X; }' ^6 t& z( {+ o' S% ~
INX& L. ]. a: i: k; b: \ p! O
LDA Page_Cur0 t3 c' D, D& i, X" T
SEC$ }9 E6 S9 Z6 l; W I
SBC <Page_Cur_Index7 e: m! r& l/ _
ASL A
4 G1 M R$ L$ d; L! k5 K2 @
TAY( S3 j7 p' \& r9 q
LDA Item_Pos_Data,Y3 P3 E9 S: f, Z& Y
PHA
9 Y, L6 M/ J3 E" k
INY* {1 O1 d9 j' @' E3 | ?1 P0 i! s) y: U
LDA Item_Pos_Data,Y
( [9 k( M8 z! r$ {
STA PPU_Addr,X
) ~" {9 w' @* d( W: X$ o1 v
INX5 X& B5 i' E/ W X$ o2 b# Q/ t8 ]
PLA
& Z T$ E: x# M% h( @% S
STA PPU_Addr,X
; a! o3 C5 L, h) T( ?2 N, n
INX
; L) x6 |: R) B' G5 g- s {2 S
" A+ @' K2 ~+ k4 D( g$ S
LDA Page_Cur
^+ A4 n0 |1 d% Z4 L
ASL A0 z( d7 r+ v0 A# c8 R$ B6 ?
TAY6 B% G1 |6 W# @: f/ j
LDA Music_Collection_Name,Y" e/ Y0 z/ ?* k5 d2 ~
STA <Data_L! L% N5 `& z8 j+ f4 y2 | ]( C
INY
7 c' d0 F7 U; r5 ]
LDA Music_Collection_Name,Y
+ Y, f" e0 l& N# o) V
STA <Data_H
. D4 X- @3 b$ h8 R+ C
: h) g) o ]4 L* x9 p: \
LDY #$00
3 H) w) k" H0 a6 S O7 Q% f
LDA [Data_L],Y
+ _$ W1 O" [2 y* v5 h1 q( s/ q
STA PPU_Addr,X9 o. d+ E! h+ P7 I! \
STA Data_Cnt i, E, {5 Q g2 c d
INX9 a9 U/ {" K$ R. W. u. {# k
|- e2 |# _2 n' W; F$ n+ O
INY
) b$ ~8 r6 f, \' C& @. L+ T
Show_Item_Text_Write
* j" C1 P1 k l s/ {0 o' C
LDA [Data_L],Y+ O F+ Z$ R$ u# f% f
STA PPU_Addr,X
/ {1 s& m {0 M* A) H. L
INY( K& e4 d m: ?5 ?. ^0 \8 A
INX* H' K) l0 A- w, v5 c
DEC Data_Cnt- Y8 k3 @; t% \
BNE Show_Item_Text_Write
8 v4 ?3 N+ b: Y6 G
0 T! `$ r0 M% |/ C3 ~1 i( }
Show_Item_Text_End: f: T: K" V0 u8 j" N' Z
STX PPU_Cur
/ E. g2 s9 \. L3 r v
RTS
" V: G3 n" }0 O; L8 U7 H2 |
% G9 j. M2 E7 X9 d- j) A* R
;==================================================( n; K( ^- M' F V( @
Get_Page_Start_Index;获取当前页号起始与条目数量' H& @, M2 ^! \2 J3 R% |" c
STA <Data_Buf
8 F* d- U# i, L8 v X& i, g
LDA #$00
8 g4 F7 n1 R9 [# f
Get_Page_Index_Calc
+ b# o2 ?$ a" T! p- s
CLC
, R8 {# Y8 c2 V
ADC #PAGE_SIZE
" f& Y7 K: L- `: X7 a9 I/ t9 m1 w9 D
CMP <Data_Buf/ G4 E& ^6 _0 Z1 Q5 W
BCC Get_Page_Index_Calc
: R$ v9 }7 \+ U& E0 O
BEQ Get_Page_Index_Calc_End
$ L) r0 _7 W7 }* e
SEC
! _- H% w' t8 V' y
SBC #PAGE_SIZE% o1 O; v. @0 n+ L% X
Get_Page_Index_Calc_End8 J W) m& Y# H2 C1 ~. i- s/ m
STA <Data_Buf
4 ]6 W. \+ X. b$ N7 f6 A
Get_Page_Index_Cnt
# m* m3 i# m# \8 a# u* y' U _. y
LDA #PAGE_SIZE' R1 S) [, M3 B
STA Data_Cnt( R u2 S$ W H7 F: {( s/ ~
9 i2 e6 @# m9 t, R& h# x7 }
LDA <Data_Buf. T3 z: ?8 m+ G
CLC
6 V* _( u, a6 q5 i* `& U6 k% z( W
ADC #PAGE_SIZE
7 D3 k/ ~2 d% h. u: F1 H
CMP #ITEM_MAX_SIZE' F f2 T. F( K8 {" b6 I- M+ f
BCC Get_Page_Index_Cnt_End& ] o, r' U$ M& X3 V% P
4 ]$ I/ H4 D( j: ~
LDA #ITEM_MAX_SIZE
) w, g. M7 g* H& H `% U
SEC) ^# T5 Q; `1 B! ? P
SBC <Data_Buf+ }7 p- j* i, P! h" u4 Z5 E
STA <Data_Cnt& _) w3 x5 ]3 Q# }3 y
H; n8 q8 G+ L+ l% _
Get_Page_Index_Cnt_End* b( Q) `) a) m; d, v0 S6 r
RTS2 |9 d9 D, X6 T1 H* O' ?6 @8 S. Q
: N+ {. x/ B7 t& o6 D( n
;==================================================8 |, I( d0 a/ L" I. n4 I
Get_Last_Page_Start_Index
& m# u; Q6 x0 L: V) u; m# j) a
LDA <Music_Item_Last( p9 \( F8 J: _' C- f. C" y
JSR Get_Page_Start_Index' O8 g( X/ g2 T
LDA Data_Buf7 ^. l* X- o. X2 f, C
STA Page_Last6 [) P/ v o3 ^; A
STA Page_Last_Index- y: o4 i+ d0 T/ n7 p7 d+ q. C3 c
LDA Data_Cnt$ T c. o( \$ W* K) N
STA Page_Last_Cnt
' b& {" I) `2 b' D
RTS
# Z2 s- j: Z1 B& v4 ?
* w6 t5 ?7 D( o
;==================================================
! n- V) O3 X7 ]; k1 d
Get_Cur_Page_Start_Index' l; j- I4 }6 q5 |2 c% E! r
LDA <Music_Item_Cur E+ y i4 u' q7 n6 W4 A% I
JSR Get_Page_Start_Index
1 e: w0 a, U+ @. s* C, G$ O
LDA Data_Buf
5 y- a. N: L; @- E# Z# C/ \4 D) S1 I
STA Page_Cur1 }" d& C8 ?, q
STA Page_Cur_Index3 K1 ]' q S/ N* q" g
LDA Data_Cnt
$ d( ~! k3 y( }
STA Page_Cur_Cnt2 B, w, f" K" p* i% c- R! [
RTS
; M# h3 V2 C! j# Y( v" t; G
+ |! K, G8 G! e6 y
;==================================================' Y i$ Q$ M$ ^ j
Show_Page_Text;显示页文本7 N8 _) ~ j7 _( C. H* Y
LDA <Text_Disable_Flag
0 R/ F& t- Q5 J' i) ]! w
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME | TEXT_DISABLE_ITEM ?5 s1 @2 b3 `. W
STA <Text_Disable_Flag
2 f0 n4 l4 S0 d0 a
0 r. S& ]& i( [% f
JSR Get_Last_Page_Start_Index8 S8 X8 H6 J% q. _2 S; Y
JSR Get_Cur_Page_Start_Index) G2 v: n6 C) b, H6 U4 S9 r2 X
5 s' s8 J/ I) D% K
Show_Page_Text_Set
5 A, x7 h, [! x
6 h* r3 |6 \1 Z) a
Clear_Page_Last_Item;清理上一页. P+ L4 t4 p0 W& j1 T: A
LDA Page_Last_Cnt# r: _/ B% \# O# v& m; h+ J
BEQ Clear_Page_Last_Item_End! N" \" l6 F! r) @
JSR Clear_Item_Text
8 Y% z1 k5 U+ g; v) f
INC Page_Last
! n: c! J) R# |5 L
DEC Page_Last_Cnt
/ `) h* h3 W6 L% s" U) ^# c, s
Clear_Page_Last_Item_End, c8 k k6 }( ^4 `; I7 e: S
) ~+ U; H+ [; ~' v/ P$ ]7 t
Show_Page_Cur_Item;显示当前页
* \ g$ {5 i9 i3 ~) U
LDA Page_Cur_Cnt1 p! @0 G- h$ W: m
BEQ Show_Page_Cur_Item_End1 L+ {! F* U t3 |- w' q
JSR Show_Item_Text
& c; f O/ J/ Z/ x1 S0 O
INC Page_Cur
! f, r" y9 W; ]. C: p' R
DEC Page_Cur_Cnt2 p8 G( t& m, s) c6 K2 I: U% b
Show_Page_Cur_Item_End
4 J7 F( g) [& m6 l: U7 g. Y
5 l! W0 M$ }+ P1 n/ D
INC <Time_Wait_Cnt1 p' k4 a ~, c" w! a- W. g* \- |
Show_Page_Text_Set_Wait;等待NMI完成PPU操作- e. n2 ?# l! Y
LDA <Time_Wait_Cnt
8 b$ P8 S) d7 w2 l5 B( M x
BNE Show_Page_Text_Set_Wait
7 S7 ?2 N3 Q$ ]0 N8 d3 A- C
6 V) F6 h" M5 @' X- c+ j
LDA Page_Last_Cnt
. S8 Z1 i$ o* x2 V+ F4 T( f/ v$ i
ORA Page_Cur_Cnt
& B) W: Q( w6 s7 w L \4 @- y
BNE Show_Page_Text_Set# o7 T. P2 U6 E" n
LDA <Text_Disable_Flag
! | A6 [! s5 S& i' s6 q
AND #TEXT_DISABLE_ITEM ^ $FF
# M N4 A P# X1 J
STA <Text_Disable_Flag: Y* U7 o8 q* V# @/ ~4 S9 l5 ?
RTS; I4 [$ D' A m. a2 A n E7 t2 H
! {$ w. T A% G* n: R; M
;==================================================4 b1 Q) ]* ^4 i7 b; t) s
Last_Item;上一项
9 ~& v1 E, K+ u
JSR Clear_Last_Track_Name
- ^: x& Q7 o) ?+ x" |) H$ C
JSR Disable_Text_Draw
2 q8 C" b# z: R; s# \; k _: [
" q% a9 J: ^+ A4 P6 J( c9 L- t
LDA <Music_Item_Cur
. t6 {+ {: Y, L3 P4 h1 u; D
STA <Music_Item_Last
( |, ^2 q9 I" W: ^
! R1 s. E& _+ A5 x7 S% R
JSR Get_Last_Page_Start_Index
, M. D& A4 q' T: E( O O
" S( a5 i! e4 i+ p, u4 G5 F! T2 l
LDA #$00
9 g! O; Z& ]- s3 H, {+ t6 f
STA Data_Buf
# j( X( u U# O+ _8 K9 S* L
. y' Z( g4 }, n2 o
LDA <Page_Last
9 N6 a/ [; I( e) _7 S- ~7 L
CMP <Music_Item_Cur
$ X' l. H0 q7 O4 }0 q; l
BNE Last_Item_Begin4 \: z Z7 Z0 Z4 u( q1 w/ ^
; s) [0 Z y& p( a' e5 R# e
LDA #$015 F6 P! o% @: z" Z" U2 s
STA Data_Buf; ^$ J/ C$ g: j; K1 ?* ~" F
Last_Item_Begin
; ^) ^9 @: E# @: Z4 S' P2 T
LDA <Music_Item_Cur/ G$ J, J$ R+ J) |. Z
BNE Last_Item_Set
3 k) y& g) m3 Q9 \
LDA #ITEM_MAX_INDEX + 1
% O7 M0 E/ n2 R8 U3 u m
STA <Music_Item_Cur; c* U5 p! j0 n: z0 V8 m9 m+ U
5 R" j8 h, }5 ~7 f% w3 |
Last_Item_Set s& z" ] H1 F
DEC <Music_Item_Cur3 U' \$ z9 I+ }7 D+ T
LDA <Music_Item_Cur
7 l# q1 X" Y- a8 O
JSR Reset_Current_Music
6 d: g8 C; n: o: Q
# |) K* H' ?, m; A+ _# R
Last_Item_Play( ]' P7 D" {7 E3 t5 ]- C7 I# \
LDA Data_Buf
* {5 J# T+ l8 ^9 N% Z, k- u( ~
BEQ Last_Item_End
! }& D( ?4 x4 ^# l! d
JSR Show_Page_Text
6 ~; H" x2 @/ M" h, p% Y0 n
Last_Item_End
; P* h( M' h0 x% S" v7 S$ d$ l
RTS
0 v* q& B( E3 @/ k% a
$ ? T. [3 \& |5 R! J
;==================================================
4 n3 t, K, b) `" Y7 t; j7 p u
Next_Item;下一项
* w* Q* F: b% X' I. v# D
JSR Clear_Last_Track_Name
1 n N0 b2 v' [6 Y6 ]& x8 U8 `1 E
JSR Disable_Text_Draw4 l3 N$ o4 H1 R/ O0 @9 Y
6 y! s4 ^ E, U$ f8 ]
LDA <Music_Item_Cur6 ^6 ?" H/ q; A
STA <Music_Item_Last
9 y7 V9 o$ i/ y5 m9 B+ X
8 h2 K/ V; m0 f7 r! I8 g
JSR Get_Last_Page_Start_Index+ {7 n' h8 K# ~- W, @5 S+ n
: O5 z& ^2 Q" i `8 d4 l
LDA #$00
( d, n9 Y+ W: X5 i1 Y
STA Data_Buf7 g X& ? t# C
3 H* _6 Y2 [% R1 K7 E
LDA <Page_Last
% W, k7 ? H2 U: S( W
CLC
3 W p% h8 N) R
ADC <Page_Last_Cnt
0 y: d3 `' k' p; @# h3 ]
SEC
* G8 c+ c; b- w4 |
SBC #$01
1 ^% ?$ f# u: O! _' v# j' y0 \
CMP <Music_Item_Cur
4 _- x m, ~% @
BNE Next_Item_Begin
6 l* D: V* C: C: o6 `) T
$ i# ?7 d. A8 C" N
LDA #$019 V- J: j3 t7 t, C# Q* G0 Y
STA Data_Buf
" E5 ~8 W4 Z" x
Next_Item_Begin& F9 T+ U, f! T
LDA <Music_Item_Cur
0 `+ \- s, V+ p% _/ ^' [- J
CMP #ITEM_MAX_INDEX
. C" Z+ K" r0 @1 R( @
BCC Next_Item_Set
% P/ x. I9 _( o9 y. k
LDA #$FF
, C' ]# K! _6 Y8 m. j
STA <Music_Item_Cur" O. \, |7 I5 H( e) o
Next_Item_Set
INC <Music_Item_Cur2 f7 x5 o/ x' f
LDA <Music_Item_Cur
" i2 d7 p! g/ D# L+ [) R6 P
LDA <Music_Item_Cur; W/ v+ Y; E; E: E
JSR Reset_Current_Music- a3 }& J. t' d" |7 o8 U5 y! n. A
Next_Item_Play, [ N* c6 i" X o- c; Z
LDA Data_Buf
: \" M1 D9 p$ a# i/ J3 C3 B
BEQ Next_Item_End2 W5 J+ j3 g% b! \7 D: j
JSR Show_Page_Text
/ M) W# i6 R q* ^! y7 G& y
Next_Item_End
1 `- S+ r1 `, w; B
RTS
8 s) D) i& Y( F0 M! X
* q3 x& I. F8 C. k* V
;==================================================
* Y# r. \9 w9 ^/ m
Last_Page;上一页2 e+ H9 G0 y1 M( P O$ V
RTS
" h! L% y' H% A% }7 F$ V1 U. I" d
$ X& @, E$ e6 A
;==================================================
s% [( O6 Z7 G
Next_Page;下一页, o) K8 x: [& D1 s& j
LDA #PAGE_MAX_INDEX
2 z" _9 }( n5 V7 u, I( _
CMP #$01# Z4 A$ R1 a8 c; U: X8 L( W& i7 P
BEQ Next_Page_End
4 w3 O; {+ p% H* o9 B' Q0 a
, }. w# y5 _$ a6 y
LDA <Music_Item_Cur( ^, i D: Y: G/ f, Y' [
STA <Music_Item_Last+ H' _+ H: V9 j; j; e
$ R! ~) ]0 T% y) e5 X/ |3 F
JSR Get_Last_Page_Start_Index" I# h( s7 v6 f) S) I/ R
! A* k' y) x3 F/ T
LDA <Page_Last_Index9 p, g* d3 l" m( s2 c
CMP #PAGE_MAX_INDEX
! _/ L. X! X/ O+ k. y+ J" Z. u9 S
BCS Next_Page_In_End_Page$ j) G2 {# C/ f8 l# m# u
7 J! c/ |' f8 L- _: P
Next_Page_Not_End_Page;不是在最后一页
6 z$ z6 h0 \( H2 M& k$ ^( L+ F
LDA <Music_Item_Cur$ P+ ?* _4 Z$ ?: V. q1 H
CLC
& i8 t- Y! R( X! |/ I5 m
ADC #PAGE_SIZE
9 h6 ?* R9 q' {" G, H j6 \/ f
CMP #ITEM_MAX_SIZE% K( Z/ U/ H% w# F8 f$ b% O( y
BCC Next_Page_Not_End_Page_Less
- K# d4 O3 M1 ?% W0 a3 b, J1 f
LDA <Music_Item_Cur3 r5 S# S; m6 D% s8 k
SEC
0 ]- {4 [0 @, T n
SBC <Page_Last_Index
; m) O/ H; Q" z' I2 `
CLC% s; I- x. }0 z8 \* ^ h4 p; u
ADC #PAGE_MAX_INDEX. x8 u, o& ?' Q- `% Z2 v# n
CMP #ITEM_MAX_SIZE
: U5 P1 K, E" y* }5 {0 v3 f
BCC Next_Page_Not_End_Page_Less
# h4 J% H( h& {( u4 e- V
LDA #ITEM_MAX_INDEX9 l0 h- ?$ ^; X6 l" O$ @
Next_Page_Not_End_Page_Less
4 R2 y1 D6 |2 w( U+ u
STA <Music_Item_Cur6 f! Z9 n: K [) o
JMP Next_Page_Reset. v* T$ l! P7 J: [! P) u2 U
6 H# T7 W) G# c
Next_Page_In_End_Page;在最后一页' d& ?: L+ m; A9 ]' j
LDA <Music_Item_Cur
& [. n m/ G/ J# k1 P/ q6 B
SEC' z5 K; z2 B- d: t& U8 z: }/ w
SBC <Page_Last_Index
2 a- J5 X+ Q3 r$ j, l \
STA <Music_Item_Cur" S2 G( B" r3 f3 a* P/ M
9 ^) K$ ^8 e( S Z3 |! f+ k e3 _1 b
Next_Page_Reset
; q: p& V p% a5 P, ]) M# l, z
LDA <Music_Item_Cur
9 |0 }( q/ G5 C$ G% U( n, ?1 F+ n7 M
JSR Reset_Current_Music
/ U+ {/ a# A1 M% [* h: C9 o: @
JSR Show_Page_Text
b4 v M" I" j0 H& _% n) x
Next_Page_End$ S1 U3 A4 _+ S* W" d, i* I8 f
RTS7 F" S+ c- |4 m4 A3 s1 ?( y
0 V& C& J. y& ?8 V9 C* N; v
;==================================================
) n8 m+ I% x$ K; t, v0 r! c4 L. M$ ^
Disable_Text_Draw;禁用音乐条刷新
# h; \; Z1 u( z) Z: Z/ M: c
LDA <Text_Disable_Flag
- z7 z& C8 V- f$ k
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME" H7 ?% u, V* f4 W
STA <Text_Disable_Flag0 s6 _3 m" @: I) A6 j
RTS+ F; [# e {2 w$ B: `6 j8 t) U
. @* b& h! R. v! M
;==================================================
" p2 h7 W# |8 Q6 ?$ Y. Y) X
Clear_Last_Track_Name;清除上次曲目名
x3 b( @0 H, o, y L% a3 Z
LDX <Music_Item_Cur8 Z1 Z2 z7 n4 M6 l Q6 |
LDA <Music_Cur,X
! ^/ J' N$ X. k. {' `$ h+ a! I! b
.IF Track_Name_Pos+ C+ \8 e+ b4 n7 n7 H
JSR Clear_Track_Info
% U, J" e% K- C% }6 W) g G7 l
.ENDIF
9 @, w; r! T' E4 c% @
RTS
1 N8 z# b8 U) O" t# |
2 \ |; F7 _8 a2 _0 k
;==================================================, ]3 e- f6 T: k+ i+ i- K7 s
Reset_Current_Music;重设当前曲目8 \, P3 j' N8 A2 \0 H
3 L. A$ D E: b0 S+ s; s4 ~5 L
;写入当前总曲目# W! K& h6 N' E) s
JSR Set_Sound_Total
8 Z7 F& S. t% u
LDX <Music_Item_Cur
8 a& ]) I, K4 `. b8 q! W
, F: b7 v% C6 n; ^/ g+ @
LDA #$00
5 p# H) }4 J2 h' Q6 f" e3 _
STA <Music_Last
5 l4 M6 F: f+ p. n9 ~
6 J( n, u5 f2 g5 i% m, x
JSR Sound_Reset_Proc8 Z: i5 y4 m1 c) u: C$ ?. o
JSR Music_Show% c; i* D/ N9 K
RTS
% E$ |- h3 S5 `+ E6 T' m
; J3 g, U3 \% d, T( Q6 I
;==================================================3 _6 d4 K& I0 |8 x5 g P
Music_Song_Stop;音乐停止
* b( Z7 j# i: {, H' v% b
LDA #$01
3 }/ e/ J. n8 A1 k, t+ b
STA <Music_Stop_State( h: s q) G" a8 l" i# w1 ?. q
JSR Music_Bar_ReSet
7 t( j, v# L' k8 g% v3 E5 \- o
JSR Time_ReSet
) i, o6 R) Q5 O9 D$ m! ?* G
JSR Sound_Data_Clear: \0 t* Q& V7 P' ~6 ^4 ^
JSR Music_State_Show ]- p; y, L+ ~
RTS
! M# S+ k. ?, ~) {2 g8 ~3 I
9 O2 e I( v! G( h) a2 d
;==================================================% m2 o, e3 o/ m5 T
Music_Song_Play;音乐播放% ~# o0 S' f+ G% D0 Q2 w; s8 Z( \
LDA #$00" ]3 t, j8 e% d
STA <Music_Stop_State
8 ^3 J3 T# T8 p0 ^# i
LDX <Music_Item_Cur
4 o$ X& z, L# `. \6 F4 E2 g; v
LDA <Music_Cur,X
/ l" Q! L2 d* |* d
JSR Sound_Init_Proc" [. m3 h& g7 U. B, P
RTS
' o% J( ^# D5 E+ Y" t! M2 g
+ f3 W; }' G: h, Y; C( c* E0 \$ x
;==================================================
% c& A5 G4 o1 c( i* ]
Music_Song_Last_10;上10曲
5 y7 a R; Q4 x1 D, _) O
JSR Clear_Last_Track_Name. \8 O+ g/ O9 r/ \5 L. @
JSR Disable_Text_Draw1 t6 o# d, O$ R) l* E2 t8 z2 c/ g
LDX <Music_Item_Cur% e# v9 g! f, G
JSR Set_Sound_Total. D9 D! I; s, P% w0 L5 ]1 e3 R
LDA <Music_Cur,X
$ _! P9 @2 }+ p; ]
SEC
4 [6 g' ~9 E6 E' e
SBC #109 O+ ^1 h2 O; j, r- f! s. f
BCS Music_Song_Last_10_Set9 D7 k1 y8 k! _. a
LDA #$007 I$ w$ P4 ]* Z' `+ P+ O
Music_Song_Last_10_Set
4 X7 v7 p+ h" J& L' d j% z T3 \
STA <Music_Cur,X V# X$ c, S! w- e/ n# N
JSR Sound_Reset_Proc f" i7 m, N; O' D7 Z
JSR Music_Show& l, O) d* A3 [% c* l/ Q
Music_Song_Last_10_End* Z( y i- N6 v1 ?+ p+ B3 ~
RTS
( I. L9 z* E0 B
2 T, g8 ^* a. j6 L- l9 \: A3 f
;==================================================5 g3 V' I# d. ]
Music_Song_Next_10;下10曲0 K$ o5 k5 f+ D* a0 ]4 K
JSR Clear_Last_Track_Name
7 g7 ~( s+ m- P! ?( w8 O/ o2 ?8 Y
JSR Disable_Text_Draw
, t. H# P3 Y2 O9 [8 h
LDX <Music_Item_Cur( V4 A$ y Z' W0 [9 k0 ^ I
JSR Set_Sound_Total/ p. Q5 k9 H8 S; v i( u q
LDA <Music_Cur,X
+ p/ b7 V7 f2 t/ b2 D
CLC1 O' K6 c' h7 @/ o( S
ADC #103 W+ I; m8 Q' ` K, S
CMP Music_Total
6 u% a# y$ i+ {. k3 j, L9 \8 d
BCC Music_Song_Next_10_Set5 q5 W. V0 T" x
LDA Music_Total0 i4 v9 A8 Y: k' T) L' D
Music_Song_Next_10_Set
5 |# J. r8 U" D) f
STA <Music_Cur,X' g' J7 L* J1 O; M$ @6 A, ~0 n
JSR Sound_Reset_Proc: E" _7 G8 F) |+ j
JSR Music_Show
( z* y5 G K5 _; j
Music_Song_Next_10_End% j4 x* Z) Z" r2 J* K. \
RTS
9 B3 r! f2 h' W6 x8 G
2 G; C, i9 q* H3 i& W* o* B
;==================================================! u1 b d0 o" f+ B8 }; V+ h
Music_Song_Last;上一曲
' e" ^3 B3 y/ l# s4 j, C
JSR Clear_Last_Track_Name
$ D( @2 Y1 w% j0 L$ _+ u
JSR Disable_Text_Draw0 |* t( _: Z/ {; v) p7 V( n- X& x
LDX <Music_Item_Cur
: `# z: p8 f/ n' o2 O: `* M- N
JSR Set_Sound_Total" t+ m7 ` ]# C4 j* @4 j2 G% G& ]
LDA <Music_Cur,X' T* q; d0 Y0 z S" z0 P/ Q1 Y
BEQ Music_Song_Last_Set
" O9 e/ \/ |1 `
DEC <Music_Cur,X
N0 y# A, W( E- |2 d( u3 v0 d
Music_Song_Last_Set: F7 K, P) K5 o/ ~ R) x: j% q3 Q9 l
JSR Sound_Reset_Proc
0 F7 _- k7 e& s$ b
JSR Music_Show, U8 N* M. ~3 l3 U# }3 v$ ^0 K
Music_Song_Last_End; s G0 `: e! n4 Q: g+ T; |
RTS
4 L, |" j) V- U! D1 N& ~
& T! ?6 E. S( i8 ]. h1 C$ P6 G$ R! `
;==================================================* ]) O2 d# S t
Music_Song_Next;下一曲+ z3 E5 q1 w. ^- `6 R$ \8 R
JSR Clear_Last_Track_Name
# Q" F2 h+ e; K% [
JSR Disable_Text_Draw5 z+ P; n9 P. D) |8 O& J/ x- t7 v
LDX <Music_Item_Cur& E$ \- A: K4 b. y; h
JSR Set_Sound_Total4 r+ Y: K3 d0 c! g* j
LDA <Music_Cur,X
: \, e; g/ r4 ?2 v: U% m# w
CMP Music_Total
) `/ f7 M; T+ \5 `" B( t q2 S
BCS Music_Song_Next_Set. @+ r7 Q9 J( b# j% D8 s. a8 {" x5 D! b
INC <Music_Cur,X
3 a h) ]4 g, ^! a) m
Music_Song_Next_Set
8 I9 M1 S" }4 B, m" ], T
JSR Sound_Reset_Proc
* e0 _/ l9 E$ R
JSR Music_Show) ?3 g4 @" \) O; k0 }
Music_Song_Next_End
1 Z& f" k* @, Y; m) c: X6 n; T
RTS0 a! y, G; ^) v4 |) h& z1 a* T
+ k3 @0 h: r% k2 h" p- S
;==================================================
% {; w3 I% z: i0 O8 U; J* L
Change_Select_Item;改变当前选择项0 x0 ]( U+ _0 D- H4 b7 F
;--------------------------------------------------! G' f% J# V! r0 [/ r1 D
Change_Select_Stop_Play_Item;停止/播放 N2 j- J9 E5 E% w" \
LDA <Key_Once1 x+ p( {& U) z
CMP #$10
1 S/ M2 W; [' U4 ^2 n* y
BNE Change_Select_Last_Item1 _$ t, w' M1 ^( L9 H
LDA <Music_Stop_State5 G/ h$ G6 [/ u8 o5 V
BNE Change_Select_Play
2 d8 M+ W2 n) _; f6 H. ~6 P! O* n
JSR Music_Song_Stop
u5 y/ V) `. I: K
LDA <Music_Stop_State2 ? }8 G' ]( q3 ~5 C! t
RTS
$ }7 c1 u; ]' L# N
9 c6 C( N* u( E" w) b7 \
Change_Select_Play- S2 P# l/ q) j- c
JSR Music_Song_Play
5 f z4 d5 Z# S/ y3 F
RTS- ?) x4 K. Z0 G# L0 ]* L
* L2 K5 r: A- F. `! L$ l5 c% \- u
;--------------------------------------------------
/ v' K9 X- `$ s" f: l# }
Change_Select_Last_Item;上一个专辑
) ?: O4 Y! W' w
LDA <Text_Disable_Flag
' _) ?4 c5 t6 j. L- M
AND #TEXT_DISABLE_ITEM
. `5 ^; N% W& L
BNE Change_Select_Item_End
2 U v1 L/ J5 m' r+ k% V6 h( m
LDA <Key_Once
& H+ K0 X' `& [5 j
CMP #$087 W9 x1 _$ s, O7 U6 W" Q7 q
BNE Change_Select_Next_Item
+ G) D/ m$ r" z1 x0 `, {
JSR Last_Item
L& n0 R3 J- S! T1 e: m$ x
;--------------------------------------------------
4 x% `' X, {' o, M
Change_Select_Next_Item;下一个专辑
6 a% o J2 L% A9 g
LDA <Key_Once3 s; q$ R8 N9 d; j# U
CMP #$04 b6 |% a2 p6 k, [. u& A+ w1 \1 p9 p
BNE Change_Select_Last_10
- L6 V, \: u ^- F' c
JSR Next_Item/ a. a k" m. ~+ e7 ^
LDA <Music_Item_Cur# x1 s: S7 ~( b6 A. b
JSR Get_Page_Start_Index
, o. }7 _" A( O$ ?6 {
;--------------------------------------------------0 C7 _& @, {0 |" b* E' r3 q$ B
Change_Select_Last_10;前10曲
1 k6 G9 K# v! o( T& R$ k5 O4 X$ {( \
LDA <Key_Once
0 y) F: E- D% p% h9 {8 ?# U/ C
CMP #$40
1 l2 ~$ b" f5 ]9 k) \4 f4 e- K
BNE Change_Select_Next_10/ D0 u% }* a5 y. e& Z
JSR Music_Song_Last_10
7 v! `7 C9 f- b* C$ V8 t, M& E4 U' Y
;--------------------------------------------------
" w" F ^. W! v# E6 X8 w
Change_Select_Next_10;后10曲
# Z, f( W: ^( ]6 U R
LDA <Key_Once
( R, \7 ?+ j5 n& p! U
CMP #$80
2 k) Y& `: T' h9 l& n( Y, [
BNE Change_Select_Last
/ p2 L; ?+ \1 f5 p0 B! v, G( b
JSR Music_Song_Next_10
. U7 ^& }( L5 T. u3 {: ^4 H5 g
;--------------------------------------------------1 C% a- \" G" Y% P% S- u$ N
Change_Select_Last;上一曲
2 v. {* Q- z. z; J
LDA <Key_Once
$ E: y; c1 u7 f2 y, _( K( L7 S
CMP #$02
2 S% W) q7 p" _9 Q5 k
BNE Change_Select_Next# X! |4 L( q: ~# p+ d
JSR Music_Song_Last
$ G. N: ?$ f6 o$ x: i
;--------------------------------------------------
' ^0 r% A4 m3 l. n- C- u
Change_Select_Next;下一曲+ o5 B6 S$ }: O5 P+ L$ ]7 ?
LDA <Key_Once; }2 ~- Z4 l1 I9 C
CMP #$01
+ K. s$ }' Z" S6 A# Q
BNE Change_Page_Next
( l3 r n6 Z% |5 T( C) t$ ]9 ?
JSR Music_Song_Next
+ x" K+ y* ~; `! ?4 V0 {1 S( h& i
;--------------------------------------------------
9 g1 q' x0 n% l5 Y% ^# \1 V9 A# w
Change_Page_Next;下一页
& ], O& g4 Y- H/ F/ b( |/ T
LDA <Key_Once( k; B% B- k( ?8 v8 Y& H" @
CMP #$20
C1 C. t7 F S; _4 B+ v1 ^, `
BNE Change_Select_Item_End; {) T6 ~% l- a" q
JSR Next_Page. m3 W# P) ]% [& g- e& a0 l. f
;--------------------------------------------------( j- k- a4 a' F2 n
Change_Select_Item_End
, Q' s: v" y) h# s0 e, x6 s& I- R
RTS
8 T( @) N" b) S' }& K9 N. X8 a
, }% K$ y- X9 ]: w; N
;==================================================
; @, Z$ p/ z7 s6 m" X! G% f
Show_Arrow;显示箭头光标 x8 Z" G9 J1 a$ \% T3 q8 t
LDA <Music_Item_Cur
1 A Y H& E3 X) g) }
JSR Get_Page_Start_Index
- V' P, [/ J; C# H! Y
LDA #$00
7 F) T+ S, p- j8 C+ e/ R1 ~, w
STA PPU_OAM_ADDR
3 U, d2 G( _0 v# w( D' R. O
LDA <Music_Item_Cur4 r- {5 m! F8 ?( i. F
SEC
& A$ F! L" V' M/ _4 H' x
SBC <Data_Buf1 ?5 e: E8 b" b4 E* g; U
ASL A
/ @1 n+ _7 u U+ y! L7 Y
ASL A L- a) B l3 t/ b) m
ASL A3 `6 p7 _( @: g' n0 b3 u- v6 l+ p
ASL A0 c: W S( j7 S8 L; @
CLC( g+ j# x5 D1 M& U1 a
ADC #ARROW_Y_OFFSET5 d8 _$ y- {8 M9 Z6 Z
STA OAM_TEMP_ADDR + $00
) q% ~, d2 K1 r% ~9 H7 J
;STA PPU_OAM_DATA
2 y: m$ j1 \& O) Q$ y
LDA #$1F
) @) Y+ N3 a: L% k8 m8 J) O
STA OAM_TEMP_ADDR + $01/ x2 f3 T% F! \2 r- N1 u3 S8 t0 q' ?
;STA PPU_OAM_DATA3 J# `0 g' X$ {4 w* u
LDA #$00
% A6 G) \2 h# Q' u3 Q
STA OAM_TEMP_ADDR + $02
. f! ~2 e) n/ C# G8 U" _1 W
;STA PPU_OAM_DATA9 ~/ a3 e! ^& O; ^
LDA #ARROW_X_OFFSET# a! j' l4 u9 ] n) |0 Q, f
STA OAM_TEMP_ADDR + $03$ k* {# L: L# ~
;STA PPU_OAM_DATA5 _9 Q3 l5 t9 ]' z+ z5 \! b
RTS
0 @) ]3 |1 Y- m
7 g. P! O# L) ^* S& p. F9 v
;--------------------------------------------------
3 Y J5 z; u3 t9 H" h) V
;命名表数据
Z' \6 L' B$ u6 n9 j6 T9 D
Palette_Attributes7 J9 A- q" J, Z. s& K
.IF SOUND_BAR_SHOW_ENABLE% [9 s' f# v# r: t, L# S
.DB $00,$00,$00,$00,$00,$00,$00,$00,$55,$55,$55,$55,$55,$55,$55,$55
; Y8 C% K, ~2 r: d$ r
.DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$551 q o- U* R7 @, @% V
.DB $55,$F5,$F5,$F5,$F5,$F5,$F5,$55,$55,$FF,$FF,$FF,$FF,$FF,$FF,$75+ Z& K$ r6 F8 N7 q- |7 q
.DB $A5,$A5,$A5,$A5,$A5,$A5,$A5,$A5,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA% r2 K% l5 M; C: n* z) ]
.ELSE' f f" `1 w1 l3 x0 Q. r/ x
.DB $00,$00,$00,$00,$00,$00,$00,$00,$55,$55,$55,$55,$55,$55,$55,$55
7 r, n+ ~6 ~9 B6 }& j6 Z
.DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
5 E% [+ b4 k+ Z. B* [
.DB $55,$F5,$F5,$F5,$F5,$F5,$F5,$55,$55,$FF,$FF,$FF,$FF,$FF,$FF,$75
+ N/ r! b7 s/ i6 D% |, D; i- N
.DB $A5,$A5,$A5,$A5,$A5,$A5,$A5,$A5,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA( X' S7 F( _5 ?
.ENDIF: ]" |& P$ |+ z8 Q( `
1 g$ |( ?- v. P0 t3 i
;--------------------------------------------------
* g; d0 N4 ?9 F: C7 Y: o7 s7 `
;调色板数据
* ^2 @9 @% ~2 ^! z% F
Palette_Data
2 f/ G6 \7 z0 m
.DB $0F,$27,$20,$0F,$0F,$23,$20,$0F,$0F,$21,$20,$0F,$0F,$24,$20,$0F
5 e, t% m" \" I1 n
.DB $0F,$21,$24,$25,$0F,$24,$20,$0F,$0F,$24,$20,$0F,$0F,$24,$20,$0F
! L6 k* G9 B. G
: P V- m# ]$ O5 D- R) h6 u
;--------------------------------------------------
6 W: I) O. x( p5 I( `/ f
Static_Text_Data$ b8 t* [+ r/ o# |8 H$ r z
.WORD Static_Text_Caption_Data
8 i( w- O1 x2 W* _2 y( |* I
.WORD Static_Text_Author_Data
% V' ?7 V( {: g
.WORD Static_Text_Date_Data
9 j! N* T# R9 I/ [" _
Static_Text_Data_End) a6 m/ }' H1 m% ^& u( ]$ o
1 t7 S, X- K# I* S5 K: K
;--------------------------------------------------
5 t. ]. a3 A* A! ^5 V+ [* c
Static_Text_Pos. i4 x4 U, `/ O1 `
.DB HIGH(Caption_Text_Pos),LOW(Caption_Text_Pos)/ i8 K8 j+ j: T- [; a( w8 g
.DB HIGH(Author_Text_Pos),LOW(Author_Text_Pos) h4 N; r( y8 z2 [/ v% O+ @9 J
.DB HIGH(Date_Text_Pos),LOW(Date_Text_Pos)
; R) w0 Z9 d, }& I5 e
Static_Text_Pos_End
+ A: Y6 m5 h; @8 q, b' C: j
1 R; T, h/ q2 Q! F0 c% t; I
;--------------------------------------------------
" _6 K4 U0 f& o
Music_State_Stop3 N+ O9 G( c% e5 ~
.IF SOUND_BAR_SHOW_ENABLE5 _- j9 Z5 h/ l2 v4 I& d$ V
.DB PPU_MODE_CNT_LINE,HIGH(Play_State_Pos),LOW(Play_State_Pos),$07,"STOPPED",$00
1 r% s, g) B/ |, d" P2 `4 X
ELSE Y" f! u- W: u" `
.DB PPU_MODE_CNT_LINE,HIGH(Play_State_Pos),LOW(Play_State_Pos),$07,"STOPPED",$00
. q1 u3 |; `- Z$ u
.ENDIF
, m& {$ ]1 |9 w: d' O
Music_State_Play
. t3 c' B8 ^. K% s1 w& H
.DB PPU_MODE_CNT_LINE,HIGH(Play_State_Pos),LOW(Play_State_Pos),$07,"PLAYING",$00
, k: i5 k. ^' c, U4 l; p
5 y( n+ w& i+ C& d7 ]
;--------------------------------------------------
" U" m: @* d- j: f J2 t3 P3 R0 E
Sound_Bar_Text_Data;声音类型文本5 H( \0 S1 U; |, o4 G. w3 ~) n
.DB PPU_MODE_CNT_LINE,HIGH(Sound_Track_Pos),LOW(Sound_Track_Pos),$04,"SQ1-"
3 a6 `) J. l5 N% o
.DB PPU_MODE_CNT_LINE_NEXT,$04,"SQ2-"# J0 x2 e b a/ i m
.DB PPU_MODE_CNT_LINE_NEXT,$04,"TRI-": o* ` d# j4 P |
.DB PPU_MODE_CNT_LINE_NEXT,$04,"NOI-"
0 X9 G4 a' i# m2 T u
.DB PPU_MODE_CNT_LINE_NEXT,$04,"DMC-",$00
. I, l! D8 h$ g
8 g5 ~; i0 ~5 Y- M* W' B; P
.IF Track_Name_Pos
# z( P# f$ h) Y% U! m) }
" h- j7 c+ k* ~' s' g# I0 w
;--------------------------------------------------' l/ w, B6 T$ P. L
Track_Name_Addr_00;曲目名地址索引3 ~7 @! l* F* Z; x
.WORD Trackr_00_01
/ A% m0 j" d$ F) V2 A
X j5 ?& R2 O! {
Trackr_00_01 .DB 15,"RAF WORLD BGM 1"
" i% B( X& t! t4 k" C1 A% A) O
Trackr_00_02 .DB 15,"RAF WORLD BGM 2"
- P% H. A) O- v Z! d9 _
$ u) j/ t! y7 i; [
;--------------------------------------------------8 m7 m6 z" O8 F7 s
Track_Name_Addr_01;曲目名地址索引
8 ? L* e; F1 F0 k( X
.WORD Trackr_01_018 i) L8 x/ ]0 ~) C- R
4 Q+ n" j) R) }" Q
;==================================================7 T+ F' ~) f& I6 N7 z$ c
Trackr_01_01 .DB 19,"FINAL MISSION BGM 1"/ x% m( B, N6 t
Trackr_01_02 .DB 19,"FINAL MISSION BGM 2"
# g" z7 j9 j& y+ R+ _
7 f1 W6 X# e/ i* `
;==================================================4 m3 t6 U3 D/ d( Q4 ?
Track_Name_Addr_Port ;曲目名地址间接索引6 Y: ^2 W9 L; h. G) v
.WORD Track_Name_Addr_003 C/ `( D% }3 E: F
.WORD Track_Name_Addr_01
$ X. e1 X" y; T& i$ S3 F
.WORD Track_Name_Addr_018 J5 e- f: \1 Z8 U& V
7 p' s; Z1 g7 Y* {, P
.ENDIF. U9 o9 I, H9 M3 M' j1 d# j
( ~7 G1 m/ U3 h$ ?
;--------------------------------------------------$ W% c! c* ~: D; a' \$ m
Static_Text_Caption_Data;静态文本数据
0 s# ~6 B. O- A) F9 ?
.DB 16
3 P" _; r' U. R
.DB "FC MUSIC 12 IN 1"
9 p" V0 b5 P) P3 E
Static_Text_Author_Data5 J& p G+ }5 o" a3 Q
.DB 25
2 w. a3 i: ~" C2 Q. Z# F' [9 l& w; ~6 |
.DB "EXTRACTED BY FLAMECYCLONE"
7 S$ y& N" l+ p0 h9 c) D
Static_Text_Date_Data- L/ T/ O2 }4 a& A/ _
.DB 10. K/ @5 R: W0 l- Z5 K1 u
.DB "2023.07.23"3 b3 C* ], v: D: x
, i( L8 m, z. L+ X' u" K b
;==================================================2 t$ A7 s- N3 O: [$ J
Music_Collection_Name ;专辑名间接索引
& `* R5 Q2 t0 z5 M" Z) H
.DW Music_Collection_Name_006 d: y7 x) ^/ ]$ F1 T* U
.DW Music_Collection_Name_01( ~( E. D5 ?% n( f( |) x6 V
.DW Music_Collection_Name_02- }( V$ ^" @2 ~: O" C. v
.DW Music_Collection_Name_033 H) q" w7 X) t+ ]" G6 C, L$ E
.DW Music_Collection_Name_04
+ r6 ]- y# j6 Q0 z1 n
.DW Music_Collection_Name_053 R8 \0 C6 o4 l3 E% } s
.DW Music_Collection_Name_06
1 d5 ?: ?: q( b0 c: L
.DW Music_Collection_Name_07
4 h. j5 r: j: T% `; o' ]
.DW Music_Collection_Name_080 M% c" B1 |- G* h+ w T3 H+ v& _
.DW Music_Collection_Name_09
( _) h* l! c& x) l
.DW Music_Collection_Name_10
! [2 c" j3 i# F/ v* b' ]" d
.DW Music_Collection_Name_11! K) v( o, |0 q9 x+ z- m7 l8 Q& @
# ^9 |: _' p+ u
;==================================================
' o! D; a0 Q9 O/ U0 G1 \5 m2 m
Music_Collection_Name_00 ;专辑名文本数据
+ u) s! |+ x" Z* h v
.DB 11,"1.RAF WORLD"6 v" L2 q( G* e; H
Music_Collection_Name_01
9 V: T) B2 f, h7 o* h! V. C7 @
.DB 15,"2.FINAL MISSION"# p! l! B" S$ t! I% v) f" U
Music_Collection_Name_02
! G* Z8 Y% ?% _$ u# U/ J! H
.DB 06,"3.KAGE"
: ~4 c- p/ m+ L' Z6 w. z( C/ | q
Music_Collection_Name_03
* b/ Z, \8 e i" X
.DB 16,"4.DOUBLE DRAGON"5 b/ x4 K8 k$ N0 F) i
Music_Collection_Name_04
9 i: ~: C/ J9 ` c
.DB 17,"5.DOUBLE DRAGON 2"
4 ~3 R5 P3 n; v: \9 r+ l3 a
Music_Collection_Name_05# I K9 ?5 L' g/ a
.DB 17,"6.DOUBLE DRAGON 3"
6 h* b& y$ g: F, C* J' L
Music_Collection_Name_06
/ g: `' Y0 l9 E$ q! J
.DB 09,"7.ROCKMAN"
' y" `5 [7 G% @' g) x9 b C3 ?2 Q
Music_Collection_Name_07
0 E- l k& B+ \2 h
.DB 12,"8.ROCKMAN 2"
/ R7 x- L' k( w! } H+ L1 Q
Music_Collection_Name_08
, Z8 a3 I) p! A/ y L+ v1 _
.DB 12,"9.ROCKMAN 3"
5 P2 w4 D7 p, G& l8 z% Z
Music_Collection_Name_09
6 H( ~+ s" h; a7 X7 R4 I
.DB 12,"10.ROCKMAN 4"
1 Y! ?# `( T" M0 H: F6 G% R7 w
Music_Collection_Name_10
0 F" U! q( a: f
.DB 12,"11.ROCKMAN 5"
, f- k+ ~% H1 k. K
Music_Collection_Name_114 ~( y( V% x' Y* {3 u
.DB 12,"12.ROCKMAN 6"; p* n' O0 M$ o2 G# M$ X' y$ P
& \: P( E7 D# m a
;==================================================2 w6 K+ w9 c6 D1 {
Track_Name_Addr_Flag ;显示曲目名标记# o* I) I8 [7 V3 P9 q4 c% T6 f& L
.DB 0,0,0,0,0,0,0,0,0,0,0,01 u9 W! B4 [( S4 Q
a& r, ?7 T9 M! A' p9 V+ M4 j
;==================================================
# H9 C/ m+ v. u* S4 B2 R
Item_Pos_Data ;光标箭头位置 c, ^; Q+ U: [
.WORD ITEM_SHOW_POS
1 P- n4 y3 }# I: Q( {5 c1 f
.WORD ITEM_SHOW_POS + $0040
& S& ]1 f$ ` ?( |
.WORD ITEM_SHOW_POS + $00806 \5 T0 @6 \' s
.WORD ITEM_SHOW_POS + $00C0( ~, B3 }7 Y' g: A- C9 h% a* B
.WORD ITEM_SHOW_POS + $01001 F$ Y4 x0 C2 v- M' ~+ B: F. V1 _
.WORD ITEM_SHOW_POS + $0140
( B+ E% C% w: d6 o& ]& T" _1 U1 z
- i3 v& p a* y7 C$ k
;==================================================
- o4 [! [" \" O9 @: e. H8 A# d# Z
Sound_Init_Port ;音乐初始化入口地址0 @2 s4 z$ A' q* B- I
.DW $BFC89 w& p( P3 `8 V7 I
.DW $D7F0
$ v- f7 l& U4 i$ A) J
.DW $9FC0
: Y8 G) i3 Q7 j# l( L7 Q) Q
.DW $BF70
( ~; ]9 U, Z/ S6 W: O1 ~4 O) `
.DW $8003# S( v. B# }/ I; [2 c
.DW $BF30
0 v. R3 S3 T' F0 y
.DW $9003' m0 Q+ b3 ^- M5 E
.DW $8003- J6 T4 U* v; B' L% n
.DW $80032 b$ p3 b$ s5 p1 b- @& k
.DW $8003
* H- X6 s3 p3 I7 \+ \
.DW $8003* X+ Q% I3 m/ g' @. ^
.DW $8003. }* v: q8 o) h: l* P2 U
_ h0 v2 R; U0 B& ^3 z- Z
;==================================================
% n+ m& @1 O5 n6 y' [- J/ I+ [
Sound_Play_Port ;音乐播放入口地址
6 s- H/ R) |4 h$ E {% o- s( y
.DW $8000
, V* Y$ t$ j2 }2 d
.DW $8001
9 Y4 ]6 L: F& ]
.DW $A0004 i; s* {# E8 ^; J8 [' j3 a
.DW $8003! Y4 a. R) m1 N6 i$ u: v% A
.DW $8000
5 u/ l; \# a) N3 |7 {6 x
.DW $80039 K- k/ T- M' h
.DW $90006 L9 z/ ~% B- X& A) @2 ~! L
.DW $8000
1 h5 @8 t5 f( l& q) t7 J
.DW $8000
8 Q4 d+ V- a2 p7 D4 f9 p; H3 B8 A
.DW $8000- R, J6 A% C# F0 L9 X$ g) ]
.DW $8000
) W% @8 l& C& |9 j3 }1 G
.DW $8000
+ x. X' e- f, ~ C$ g% Y3 R
7 r+ z/ o" _7 w; Z% l
;==================================================- B1 C8 R" q! A7 E+ y
Sound_Reset_Port ;音乐重置入口地址; z) X: t6 @& v% O" T# n
.DW $0000
+ X' h* k9 V$ x5 s; B
.DW $0000
+ w* U8 o: ?# c/ A5 N2 ]4 h
.DW $00003 \ f1 Y! h8 W" }: i) `; b; f
.DW $0000
1 V. m1 @ n) {# J( W3 `: a
.DW $00009 b$ c. f- X" k6 {3 o
.DW $00001 `9 e" v4 ^* z; i: s+ Q( Q& o
.DW $0000& H% W( K, s' s- ^1 ~; s
.DW $0000
2 O) O1 R6 [; D; [2 t
.DW $0000. o0 b6 S4 t6 a2 `$ [2 [) c( ^
.DW $0000
) m) @6 X" a' ^2 C( }/ @9 H7 h
.DW $00000 q6 y' q4 n/ {) N, ]
.DW $0000
5 D( }7 V, K& J: p. q1 |+ |
7 [1 H( B9 r( n
;==================================================$ j6 R% N$ Y. `3 }( n
Sound_Total_Port ;曲目总数
- T9 l8 h2 b" _0 v
.DB 38& Z2 w) y+ i& i, Z0 w$ f
.DB 33
( q" y- Z/ C: l, X
.DB 49
: ~7 U" y, y, E5 A) A
.DB 413 n0 q. W, ]$ _# K2 s
.DB 83
2 y9 ^3 j" O7 E! L6 X. A- W
.DB 702 x6 P; F& {1 A2 S
.DB 50% }: e2 a8 J* s( J) _' H
.DB 678 O5 J- c4 B# w& x; d) }
.DB 57
! m& d2 _, Z3 X( Q
.DB 71+ v' s, w) X6 L8 Z1 {( U
.DB 768 O7 a' e0 ]) q4 J: e7 r
.DB 102
$ K8 s# h) K) R+ f
$ |& V- L( f' H: u7 {
;==================================================
Sound_Start_Port ;起始播放曲目9 h7 t! p$ g, R- F0 `; |# L( s2 c
.DB 005 w- l: _, l# L/ t8 L8 K2 d
.DB 00% U1 V; ~1 m! K1 z+ z8 p) M
.DB 00
$ z9 _" l* z4 w( ^7 ~8 ]0 u: t4 ^
.DB 00
S! R7 N1 l/ Q% a
.DB 00/ Y2 o; A5 e4 b
.DB 00
4 `- {6 P3 g, I, W6 L/ V; @
.DB 00
; |: T7 D1 W. e6 j Y% T2 i5 J
.DB 00- o" i0 c% h+ a$ A$ i
.DB 000 x0 O" {# V* X) N' x& P- i5 B
.DB 008 `, ^/ E6 r3 @6 v
.DB 003 n9 J6 w5 I0 f
.DB 00- ~; ^( {# s9 T" \+ H) ?7 N$ S
7 U. f% [1 G, d" r8 E Z" q
;==================================================
6 N( M& \' w4 m! M& b% R! p' g
Sound_Bank_8000 ;专辑bank_8000
8 q' m4 j9 g# n( ]( }, c. G0 H
.DB $10
1 m9 x0 n5 V6 p9 m8 R. s6 q) W
.DB $12
( y( y f+ j9 }) Q$ ?
.DB $145 O5 o' |0 `/ h# b& i
.DB $163 T1 k# l! f8 m) p8 k
.DB $18* D6 w" u4 N& C2 w* T
.DB $1A) t' ^. D7 a' B
9 |5 a/ W4 y* ^' M9 m6 p
.DB $00
! n! v3 t) ^( V% f! |0 z" S
.DB $02
1 I2 e+ ^0 ]6 Y& k
.DB $0D
; N( Q& n3 n. F3 k$ i$ X$ R3 `
.DB $04+ T- _. ^: \4 v+ f; p
.DB $070 v4 g& L' k: L3 B
.DB $0A+ M" A8 O9 U0 v
1 ]$ J6 ^& N* q9 \4 \1 c' r
+ X w; L1 W9 o) m3 Y
;==================================================
' I& b% W* Y! Y/ X# k
Sound_Bank_A000 ;专辑bank_A000; W7 }/ P) S. Y0 A* N
.DB $110 ]& q) O& W9 f) D+ g( w
.DB $13
& E+ l( y1 H* z1 c& C9 v
.DB $15
1 s1 M7 c5 Q* F3 A0 u
.DB $17
) J; o) B3 I& Q& P0 m
.DB $19
B6 T, U3 |: s3 T& [
.DB $1B
3 p2 t+ d1 j1 k5 f5 H5 d) q
! _9 s% t$ o) B* ?, t* v( Y' B) z
.DB $01
; }2 @4 Q: g% k* g: [5 [& r; e$ q6 z
.DB $032 X, v+ m7 p4 ^; H* e8 w1 L
.DB $0E) a7 A% ]) Z% E; v6 f
.DB $05
* q; ^9 m2 W/ x6 S) O4 _/ C" A
.DB $086 a3 z- n. W2 U
.DB $0B
7 J1 E! s R( F* F. m
! \: Z8 u8 K, ]
( E/ c7 j1 G1 Z; f! i2 M% ^" ]
;==================================================- Q) a. C) t' B. p
.BANK RESET_BANK & BANK_DATA_MASK/ k( Z3 L( h' h7 Y1 L3 Z, E3 b
.ORG RESET_ADDR7 J/ V# [5 K' T& m! u/ l$ G
" `+ b' Y# d1 v5 d2 c9 u# e3 s
;==================================================3 G9 v p: i, F, Z
Switch_Bank_8000;切换bank到8000-9FFF
# Z5 ?: D8 A$ n l% o
PHA
0 g( l i2 n2 `( l' o) W
LDA #$06
% j% v* }$ Q: X, C7 J' c
STA MMC3_BANK_CTRL
# Y" v4 S: J% ^- S% ~6 m( E
PLA0 v' @9 y% K1 `6 V. ]2 w8 V6 p2 w. h8 d# z
STA MMC3_BANK_DATA0 i$ ]9 s u4 G% B" H" ]$ ~
RTS
# B" t9 ?0 s T n% |" e/ k! [
" ~' p6 }% v7 F
;==================================================3 l( [# {1 S: V4 L
Switch_Bank_A000;切换bank到A000-BFFF
4 l3 E1 y; S5 R/ p
PHA
+ d, ~0 o u! u3 x! F/ p! b
LDA #$07& g. Y9 r0 v" ?+ @( K& y# y
STA MMC3_BANK_CTRL
5 O9 f- h" s$ C8 X) j
PLA
2 [' I, ~, Q' o z
STA MMC3_BANK_DATA
: Q7 d: r6 A+ A) V# V# a" c
RTS4 [+ J& }4 ]& [0 [2 H/ m
! I. n9 k( X. t& [' o& P
;==================================================
) h" j# U2 r) t9 c
Switch_Main_Bank;切到主程序bank
! Y0 ^1 q9 ]" Z0 O0 D) T
LDA #PROGRAM_BANK & BANK_DATA_MASK4 T/ m) _/ s7 J1 g a
JSR Switch_Bank_8000 ;设置$8000地址bank
$ x2 x. Q7 s, a6 X$ Y' F3 I
RTS
$ z5 v0 } ]9 p7 v: p
3 S8 {+ M# C& L1 U( t# j7 T: h
;==================================================
9 n- f3 n" ?* R: N4 T$ R
Sound_Reset;音乐重设(如果有的话)
9 G/ t% X' K% r
JSR Switch_Music_Bank ;切换到音乐bank+ a0 t$ W, w1 j/ k/ k9 _
JSR JSR_Addr_Op ;执行音乐重置3 a% U2 R6 n7 }* m
JSR Switch_Main_Bank ;切回主程序" s0 c5 b* D& I
RTS
4 ^3 K. P/ | C
9 O7 L7 h' U3 @1 w# S* Q/ D$ T
;==================================================
9 I& g" ?7 D4 S! F8 E5 Z7 `
Switch_Music_Bank;切换音乐bank
, [4 {7 J1 N( H& Z
JSR Init_Sound_Bank ;拿到音乐bank号; |5 d# p$ }6 n4 C
LDA <Music_Bank_80006 B4 _$ h9 r2 p+ C9 V
JSR Switch_Bank_8000 ;设置$8000地址bank
* d3 j5 j% Y# B/ T- M( t
LDA <Music_Bank_A000" p* S; e/ M! U
JSR Switch_Bank_A000 ;设置$A000地址bank# e0 b$ v2 x; [$ X3 T
RTS
6 ^$ }7 t6 J8 P
: O6 R: l" h U! m* \9 _3 u/ U
;==================================================( h Y) ^+ I. m
Sound_Init;音乐初始化
) m6 p9 g" w6 W* ~$ A x
PHA X( M" @$ G' ?" F7 \$ h# |2 _+ E3 U. f. \
JSR Switch_Music_Bank ;切换到音乐bank
. B2 K. j0 Y$ L$ P, t# e% L
PLA
4 w! Y( ~* j3 K" D/ R
JSR JSR_Addr_Op ;执行音乐初始化% G$ S: V P. e4 | {' Q9 x, w3 L
JSR Switch_Main_Bank ;切回主程序6 t h/ I9 ^0 b s% ?# I
RTS* ~' D% w3 z0 T% S( [; {
, V: v5 ]: F, R& R, d
;==================================================" D# M7 {' A8 n+ z/ x
Sound_Play;音乐播放 e: v ~! a% {/ Y6 e
JSR Switch_Music_Bank ;切换到音乐bank! e" F6 x5 \/ t: F
JSR JSR_Addr_Op ;执行音乐播放' @3 _7 _( H' u9 z2 S9 o
JSR Switch_Main_Bank ;切回主程序2 Y* o$ J/ m ? b9 U5 ~
RTS# @+ u) t4 C- \$ T8 [+ E1 g
1 e3 h( E" A) C
;==================================================
2 C0 n1 x2 I" s# v
MainLoop;死循环
: d) ?7 ^$ N, W6 o1 k' y
JMP MainLoop
0 ]) x$ H: S) B. {$ S) S/ A9 T! R
8 t6 c1 N$ T( T9 N5 M Q4 R
IRQ_SUBPROCESS_JMP = 0; d0 Y/ |0 O9 {3 p
9 f4 \, d# [/ U+ p' f
.IF IRQ_SUBPROCESS_JMP
2 {: j: n. i) @# L' l
;==================================================
) l8 D I3 s: @5 J
IRQ_Process_0;IRQ处理过程0; m1 T6 {. G0 M6 Y! T! U4 i* r
6 P6 x8 A% K: `1 e2 F5 Z& V
;15条扫描线后触发IRQ
# @ G F, C R1 ^0 q B
LDA #156 m& R3 {/ o5 T( r+ w. Y
STA MMC3_IRQ_LATCH
* S0 ^* y& S6 o& e( h) F
( a: ~1 {5 v! Y4 m
;设置屏幕滚动
0 U3 F6 m2 c! O9 g3 ~
LDA <Scroll_H
& i" I/ ~/ c- W3 r0 y( v( _/ W" a. _
STA PPU_SCROLL: c3 `! H) K- N. h* Z
STA PPU_SCROLL$ x) M, c9 o+ E; u4 t y+ Z0 I1 X
& P; Q& o, ^1 S1 \& [3 V9 x
IRQ_Process_0_End
, _9 A; K2 {. |# ~4 Z" z& A* e2 ?/ n
INC <IRQ_Process_Index8 v- b( \& K$ h) ~3 o4 |' n' |
JMP IrqProgramEnd
, G. |& O4 r O" U0 r+ [
+ s5 Q4 L+ \# O: Y/ v
;==================================================
/ h2 w" @& P8 z {
IRQ_Process_1;IRQ处理过程1
" F' O3 z6 Z2 g' W* M( \8 Z: ^
2 o- i( U6 H6 g6 |2 r
LDA #55* j% D$ r) p( j; J% ?$ K( v
STA MMC3_IRQ_LATCH
7 [( g$ q5 i: q, ^; A
$ P. B+ S9 o* i$ ^5 O G
;设置屏幕滚动" C+ g# `6 j. ]
LDA #$00
3 T+ V8 p1 ~5 o2 j) Y" O1 ]6 D
STA PPU_SCROLL
3 P# X$ Z% j6 H$ ^5 R; f; }/ P
STA PPU_SCROLL. ~( v: W3 A- \: b& d4 j
0 l9 q+ ]2 Y H, M( f
INC <IRQ_Process_Index
4 p( w! V7 m( S: Z- }
JMP IrqProgramEnd3 L$ M5 d& s( l# l6 E
% n* A8 w4 z; [0 U1 e
;==================================================
9 ^# x7 P( W4 X' n/ G; \3 d, Q) ]
IRQ_Process_2;IRQ处理过程2% J0 A8 u" Q' W* I
4 a( D9 F5 E9 f
LDA #15
: ~, N! c* l+ m+ Z3 [6 x% A
STA MMC3_IRQ_LATCH
# t o+ B, S/ ^; e
0 k7 N% D: u& J) n: g
;设置屏幕滚动
4 A8 m3 t0 ]0 O, Y* N0 H6 x5 e4 u
LDA #$006 X/ _" v- ?* P5 O. r
SEC
& j) }7 ^+ o \1 Q
SBC <Scroll_H
# D& Q! e5 Y. O: k" e/ N9 T
STA PPU_SCROLL
7 C3 ~ j7 g8 H/ h
STA PPU_SCROLL
) {4 a6 w) e2 C& G7 f8 t) J- f( H
1 U/ d" J" |$ `# a2 C- h8 s
INC <IRQ_Process_Index9 N- a9 v" K& J2 V/ k e
JMP IrqProgramEnd5 m' H: a5 \) y! N5 [5 K9 q
0 \6 m l- T! h9 v
;==================================================' r6 b$ D. ?; p- l9 A3 f9 _9 ~
IRQ_Process_3;IRQ处理过程3& j/ d3 k. y6 {9 s% N
# z3 b: ~0 S) h
;设置屏幕滚动
: q+ c$ S' Z8 k7 G! I. N3 o4 W1 ]
LDA <Scroll_H
+ r u; |- r; M* r% u: T' O
STA PPU_SCROLL* j8 ^. M/ a- R) j: U; J* c
STA PPU_SCROLL
( d5 G- V4 ?6 O/ Y& Q3 ]
' ?0 O" O. b. q# W8 A8 d# g
;禁用IRQ8 l' Q( w: J5 f
STA MMC3_IRQ_DISABLE
- B4 I% V8 c: E
JMP IrqProgramEnd
. U2 Z# Q6 J% U& Z& r
+ ~7 ?9 V6 y o( A# j" ^
IrqProcessAddr! |: R& F1 X! U: e0 |6 ]2 a
.DW IRQ_Process_0,IRQ_Process_1,IRQ_Process_2,IRQ_Process_3' _8 I& ^' Q# {2 Y! Y6 T2 k
8 m8 o4 I7 P' `# j/ Q0 m) j a+ Q
.ENDIF" U5 r' O1 p1 S$ C2 @, {9 W
( M7 Q0 P' D& [# j- z$ {
;==================================================0 Y% }0 S; r4 }$ K2 E( @
;IRQ滚动模式常量
/ A) S0 h! | p9 |$ T& B; r
IRQ_SCROLL_MODE_ZERO = 0 ;不滚动
+ ~* X' `! ~7 y: X' T/ ^
IRQ_SCROLL_MODE_LEFT = 1 ;向左滚动
. e( D7 s; Q' J' S
IRQ_SCROLL_MODE_RIGHT = 2 ;向右滚动
8 f! K) g: I3 A- D5 K, H& j: d7 Z% B
- z! [3 G8 T7 G
;IRQ扫描线数据
9 L; @5 p" w' c8 K x0 z" ?2 A& Y
IRQ_Scanline_Data
& t' ?' f, C* b3 J7 A' j
.DB 8
. X1 i7 y9 E! A: G
.DB 54
2 m# d* P7 W: J1 A6 Q! ]# P8 ]
.DB 84 c! D1 \ k4 t# a
.DB 00 ;关闭IRQ- |+ m6 ^0 f: Q+ S) E: {7 Z
# y8 e7 H9 y- u) [/ I" j4 S
;IRQ滚动控制模式
* p& ?! O3 A& N- o0 V" y
IRQ_Scanline_Mode/ g- |; ^3 I O+ O( _
.DB IRQ_SCROLL_MODE_ZERO" ~' r: k8 K O* \: J. P
.DB IRQ_SCROLL_MODE_ZERO, z1 @2 A7 ?8 t8 P p: v
.DB IRQ_SCROLL_MODE_RIGHT
# i+ h; F5 Q: f, h9 }7 T7 ?( D+ N7 d
.DB IRQ_SCROLL_MODE_LEFT. o8 `3 l- Z7 D$ K
0 L4 v, H! E- f* G# c
;==================================================- G+ `. e; h& |5 ~7 {) \% D
;IRQ处理
" t z0 e6 h Y9 _/ G/ q( U
IRQ_Process
2 P2 q, N& l4 B0 O S
LDX <IRQ_Process_Index
5 M; V9 P1 [. m5 O9 H
LDA IRQ_Scanline_Data,X
3 i# }, x" W0 [" h X2 n% s+ J
BNE IRQ_Process_Latch! F2 |' D& d D6 c) c% ?; L, X; x6 F
IRQ_Process_Disable;禁用IRQ9 z7 U/ M0 H# B8 g3 w% C/ J$ s5 t- G
STA MMC3_IRQ_DISABLE) S% p/ G0 o8 s D9 }4 J
STA IRQ_Process_Index
6 [/ c8 e) R/ |7 U7 |8 e
BEQ IRQ_Process_Scroll' H6 g0 v* e0 e# c6 y
IRQ_Process_Latch;设置下次 IRQ 触发扫描线
; u( ]0 F; V, g d/ m9 F
STA MMC3_IRQ_LATCH
& l U: l. S5 Z- M9 s% [
INC <IRQ_Process_Index
' E( _) l7 x7 c
IRQ_Process_Scroll;IRQ滚动控制
" o) O. Y/ b" Z( q1 m
LDA IRQ_Scanline_Mode,X, g) l" C' c7 p
CMP #IRQ_SCROLL_MODE_LEFT
" t7 a2 B$ M5 ~, W
BEQ IRQ_Process_Scroll_Left! J |- ^. e6 y1 i3 n& b
CMP #IRQ_SCROLL_MODE_RIGHT4 L" Q! I+ G- q" R' R
BEQ IRQ_Process_Scroll_Right
. ~. s$ }+ |: w) A
IRQ_Process_Scroll_Zero;不滚动- N# H2 m2 `+ w: D" Q
LDA #$00
+ ]+ Z) l3 k5 W6 i9 u& C6 _
STA PPU_SCROLL# R) Z, Y. _2 S. @* J& A7 G: v
STA PPU_SCROLL) n: f/ x/ f; }: p
RTS
7 b" m3 i, N/ a+ E
IRQ_Process_Scroll_Left;向左滚动
8 \% P3 H# W' f2 F7 V
LDA <Scroll_H
E" X y& ^$ p; E8 T* U0 x5 p
STA PPU_SCROLL
+ Q$ o3 ]. H0 ]/ }% E' \
STA PPU_SCROLL/ k E4 X" p7 |. o
RTS: Z: r5 V1 V) Z
IRQ_Process_Scroll_Right;向右滚动0 M7 c }7 _; [( J9 j
LDA #$00
( G! ~ a1 @! ~# z. V
SEC; Z) @. o. K% ~/ ^! `# N
SBC <Scroll_H0 A! O7 r' ], G- V
STA PPU_SCROLL
1 Y3 G7 N! S4 l2 [8 u9 U9 ]5 q* z' f
STA PPU_SCROLL
' u4 u5 P) n1 _, [/ b+ ^
RTS
2 f9 a# P9 E' q7 A6 P
0 G5 V. Q5 ^; f7 @
;==================================================% k/ e% k9 T) v" e# }
NmiProgram;Nmi中断处理
+ o( _ s* F5 ^# `2 r; I+ G
PHA* i% I+ Q- @! |
TXA/ u1 ]! V& a' j2 V8 V8 X: l
PHA
+ m; t4 e6 f; X+ ?
TYA, C. S2 s3 j$ p7 K$ C5 R" G& N$ W
PHA# @7 M% Q0 M* f8 v; {* M+ x! c3 p
8 P; b8 R) i% r6 u8 y" ]
;读取清除Vblank标志, 防止重复进入9 y7 c4 Z( h% `
BIT PPU_STATUS4 k, r' l y- L j( g% n
& q( \$ Y) E6 O
;切换主程序bank% m$ D/ {. w4 n$ k- z. `0 b6 v
JSR Switch_Main_Bank
7 f# P! ~( O5 h4 I' t p I6 y
' m1 L7 u3 r3 C. i1 n
;Nmi处理9 ]3 Y6 J( \ ?
JSR NmiProcess/ w) ^: j7 G) d) n$ g& P
2 N6 a5 E* o6 X5 y, \
Nmi_Proc_End: g( u& N% P: a: z+ S% f: u/ c0 z1 G
PLA
( ~. H7 R) z' x4 x# R& t
TAY
$ g. [+ [8 l% `3 m% B' [
PLA; D0 l# S, x0 f0 U9 \
TAX
1 u$ o+ z2 j" S2 `: d
PLA
% R' v5 W+ P& u ^" l- P
RTI
& x1 Y5 B# l: P; C
7 y- O' R2 A/ ~/ \
;==================================================5 m& l3 V0 T7 E% \ L6 D1 _
ResetProgram;重置中断处理
6 J' G$ r4 p! K9 h. n) I
SEI
6 |3 G1 }- Z" F; N! z+ F% Y/ B$ k' m
CLD
8 c3 x6 x: K6 v) j7 ~0 ?4 m
LDA #$00
+ Q: G, r! A9 S; V4 i
STA PPU_CTRL
3 }5 k6 Z* q: d7 N+ A0 x
STA PPU_MASK) m. L/ C. I' w7 X6 s+ d
, ~* f/ i# }% G7 R8 O6 m9 K$ q4 S
;切换主程序bank
1 A5 @3 [) F# w! Y8 n1 Q
JSR Switch_Main_Bank+ o' F: p) A4 G
4 \% T. W) \" J: s7 ^
;程序处理开始% y% ^* N9 f) }% N5 L6 K2 [
JMP ProgramBegin* p1 r: c# g* W5 I
* H- b' A' _0 v( m) v
;==================================================
$ T \2 \6 @% }5 j; G
IrqProgram;Irq中断处理0 a* t, B. g5 r" N
PHA# z& a! {( ?3 f3 f0 ]( ?, |
TXA
1 u1 `, j: n3 B
PHA' L8 e, @8 x( [2 N% X& n, |- F8 r* p0 X, Q
TYA
: D9 q8 P3 X) L+ @) d
PHA* m; i7 u5 e c7 |5 g
/ o0 z) Q4 P2 ]6 n1 T; E
;关闭IRQ* [3 C" [9 F% _, p
STA MMC3_IRQ_DISABLE2 a/ W% F, q9 M; @8 P V
% [' ~# f l4 J) x* O
;允许下个IRQ触发/ P ]' B# n* S! K2 R7 ?
STA MMC3_IRQ_ENABLE
7 f7 V+ }( m8 Z# g
8 J) {* u1 {' u1 C! S; v
.IF IRQ_SUBPROCESS_JMP
6 t0 ?" D( `0 g, G
% A5 S# H/ G. V' H# y! a4 R* l$ {
;执行IRQ过程
* Q) g/ D& V* Z ^
LDA <Data_L0 O) n( z: I/ c2 t: q
PHA; a e/ b* g$ I- O
LDA <Data_H
' l+ V* }, D! v$ \+ n
PHA
! |* |, y) g0 o* b5 K* H: q& O
LDA <IRQ_Process_Index
$ h5 ?( N/ w5 Q8 v0 L5 w
ASL A5 o9 W6 e6 f/ I
TAY
2 }! n" M w4 G1 F O% u- W
LDA IrqProcessAddr,Y
; {, V1 ~/ h; {) }( k
STA <Data_L
4 ^( A4 a3 ]3 y# V# l# ]" C
INY
+ A. p }, s8 Q1 x: v
LDA IrqProcessAddr,Y* |. s$ g$ w/ t- c
STA <Data_H# @$ i, m6 e2 G, _
JMP [Data_L]& {1 @+ G7 h8 X* y* ?; F; B
. m& s& @- t* z- ]5 V1 k2 @ {( N
.ELSE" Z6 n$ o" V* o. o& `, _1 K5 P
! w/ X# B2 d# V% B- O1 t+ @3 H5 c
JSR IRQ_Process
: `! n6 b4 x, D3 o! c3 u
) r/ ]7 A1 B9 e/ w
.ENDIF
2 \& u5 |. ]0 f# B" o, k/ }
IrqProgramEnd
% ?: b$ \( H, k' C. B
.IF IRQ_SUBPROCESS_JMP; Y+ i8 F' f) O; h1 F5 Y
PLA
+ B6 ^2 t- i$ y8 R @- X; I
STA <Data_H
9 B8 ] n! g D; S% W0 h' W
PLA
8 C6 U, n" x! |; q2 I/ d1 P4 `
STA <Data_L
4 C% ~0 C$ C. G+ V
.ENDIF F" t6 `$ l# D/ j5 C4 w: X
PLA
) a4 R' m7 M% G. G/ c5 `4 X; v+ F
TAY, V. ]/ _* G$ I) D" \8 i g, z
PLA
! q7 Z& N5 c i; E2 F2 I1 f
TAX
1 H6 b5 p) s5 j
PLA
( G( B: c9 O+ |- A6 W
RTI
! A+ P/ {) j: u! |
% R0 ]7 x$ [; ~) h% n& f
.ORG $FFFA
2 R2 }" y, j, Y6 e
.WORD NmiProgram
4 B; k N0 [" r- @
.WORD ResetProgram
) \& l3 g' a2 t% d
.WORD IrqProgram: p1 G% f' C6 r
9 e2 x& t7 k7 z7 T, c/ V" K/ W6 n
.BANK RESET_BANK & BANK_DATA_MASK
, V% U* e! U4 [: y! P6 J
.IF SOUND_BAR_SHOW_ENABLE
8 }; i4 w& K0 K% ^
m6 N4 m7 U; F
.ORG $FE00
8 L1 ~1 {4 O/ Y: G) d, o
PHA/ W0 q3 f3 n! D! e; ^
STY $07BA
/ j5 a% D5 m4 m3 {
LDA #$8D
/ f3 J! v6 F4 e' j, L1 g
STA $07BC4 U+ h! z% J, O3 E8 [) X
TYA4 K5 ^( V5 h4 i
CLC. Z/ Q5 `! D0 O6 d8 R
ADC #LOW(Sound_Bar)
7 q; s! }" v: F y
STA $07BD* M. A+ ^! v* X6 ^
LDA #HIGH(Sound_Bar)9 E5 x$ Y+ {9 |6 I
STA $07BE `( T1 G `, C' ]- v; d
LDA #$608 O" I1 X8 e8 z5 y' R- A0 G
STA $07BF5 m* ~5 ~# R* F# p6 y* @' B7 |
PLA; O+ [8 A0 m0 V) q9 t9 W
RTS- g; W0 `0 V; R0 n" E; C9 n0 j
. G$ M3 d5 f* l& ^6 w7 ^$ ~5 Y
.ORG $FE203 A# M) l& a$ J$ l) K
STA $07BA
q" `/ L; R: |2 R
CLC; ]4 T2 H$ D/ I5 s( T
ADC #LOW(Sound_Bar)" k: i7 w4 o$ O+ U4 ?. J
STA $07BD' ?" B2 F/ w7 S9 P; i/ ]: _, ~( `
LDA #$8D; z9 E1 I4 F% Z, Q
STA $07BC, Z! k. E: ^! ^
LDA #HIGH(Sound_Bar)4 c& ^, n: x* E
STA $07BE
/ E: p) T) T2 N* N6 H, f
LDA #$60 g( {$ A. g5 s0 \6 ^
STA $07BF
4 P/ w0 i# U& E# \
RTS3 W& t( v% |: {. }0 `1 S7 S5 k- o$ n
8 G6 o. ~3 {& {! E; K9 J
.ORG $FE403 Y: a" S6 l$ K% o9 c
PHA
: i) t! V# b+ X1 q8 A2 f
STY $07F1
( y' o) D: @. b& c& n
LDA #$8D
7 h- @ V* N5 M2 |& e7 D% K; U
STA $07F3
6 K( ?/ X/ r' E8 g
TYA
9 M) Q. G7 l8 T* r7 v9 s
CLC
: L4 z* O* c- O% W1 J( A
ADC #LOW(Sound_Bar), S" s/ N* |2 d! g2 o
STA $07F4, v: {: S% s4 z' m/ {/ I
LDA #HIGH(Sound_Bar)
' s. R- G3 C5 u4 R! `. Q
STA $07F5
' }2 Y: e& n$ g) o
LDA #$608 U F$ N+ U1 Q/ L5 F
STA $07F6, l( o6 ]( z' R1 j
PLA
7 O' V& a* T" ^
RTS! a6 O5 b" l4 d# j# |: s- ^
. [( B, \8 e: k! Q2 j' Q
.ORG $FE60* d. M" q7 ?& W6 E% q* g: Y5 J; {
STA $07F10 C% E8 I" r" s- u
CLC: B5 Y4 C6 A# I3 v% _
ADC #LOW(Sound_Bar)
$ V2 e0 Q' p. `/ ~, j; t+ {; b
STA $07F44 @% o' h- N, z. R1 `+ i
LDA #$8D
- ~7 u( V& `$ c
STA $07F3
( I# v" b2 m" Y: ~/ `4 b
LDA #HIGH(Sound_Bar)4 V) M2 t Z, a& k) a( H H/ W& Z, N
STA $07F55 B! H O5 M( ^* ~ {% `+ N1 }8 k& Q
LDA #$60' V7 o- j3 k0 R8 F( Z
STA $07F6
3 _( o) y5 U8 G+ S
RTS
0 e3 ~; l* z' T% A8 x$ S
$ ?- D. r- z- S2 h
.ORG $FF40
' p+ |6 l" f5 p% v3 N1 t/ y
STA $40000 _( Z$ r" D$ [( M
STA Sound_Bar + $003 H$ V; H! n( j; N3 B
RTS( Z9 l9 G3 t' G0 @& K( j
% @& f, m( U2 l# o0 I. [, J* C
.ORG $FF48
; H2 V7 j2 E6 ~4 Y- o8 g
STA $4004( B5 q$ o' U) ?; J. D) q
STA Sound_Bar + $04- v) Q/ [. w! l* |
RTS
( Z* y! p i, J A6 ~; K# V8 N! h
" m! D1 D7 i( u s* U
.ORG $FF50% {' b/ A# ? R) J5 i! ?
STA $40085 M8 t' ]9 j$ W3 _
STA Sound_Bar + $08
8 R. Z+ N% g* g" K }
RTS, H8 m+ O- s( [4 f% y T& f- d
, r- R7 }5 Q9 |
.ORG $FF58
0 l+ J5 Y- O* S7 e8 A) S2 }
STA $400C
STA Sound_Bar + $0C& w# b j8 U' c. G- ^# ]
RTS5 S# @. }$ u( c( p
$ r [3 j" {8 q& P
.ORG $FF60: f9 }6 ?3 z' t3 S4 v) t
STX $4000: h& n8 e* Q( h8 v% q8 F+ z8 C
STX Sound_Bar + $00, f) D- c2 F4 x N8 ^1 h
RTS' ` n/ {2 u( a: {( R
' {* s2 i" N2 N& y( o# {
.ORG $FF68
5 m, ^* v1 F* G2 o3 R
STX $4004
4 M% d/ K L; o- g/ A+ }
STX Sound_Bar + $04
' o. U( W/ S& F* U7 [
RTS
) r: a. l0 E: \0 K6 |8 @
5 q8 J3 A- r/ |
.ORG $FF70/ {, W" B, N3 Z. o' K! H+ {
STX $4008' l0 N& G" Z3 R" j" D* @& I- i
STX Sound_Bar + $08- Y8 ^4 K5 ^7 P9 e
RTS
4 R& U- j8 F: r! Q2 g% V+ X
\5 J; y7 H; P2 E9 [" y) s8 q3 L# b
.ORG $FF78( O& q8 e, D" A: c; F5 ?( Y$ k8 @
STX $400C# l' @ t3 M+ S! M
STX Sound_Bar + $0C6 \# Z/ F; K3 \3 Z; y4 i0 }
RTS
, O: n5 J9 q9 \
; W$ B0 C/ a( O4 ]7 U! T
.ORG $FF80
% p7 t8 n8 W. ?- Y( n
STY $4000
% K7 ^$ z# ~- R# t7 h
STY Sound_Bar + $00% a0 A, n3 c+ M& {
RTS) ~( S# _# b0 t K' U+ |
+ R* [6 a c# }" ~0 v3 B# X
.ORG $FF88
" w' K8 h( F/ F9 n2 }8 a" l# d! Z
STY $4004
8 O! ]: B) w" Q S( @
STY Sound_Bar + $04
2 T! L2 E$ ?: Y8 K3 G% G4 z
RTS
4 W! Z% C6 ~9 |: T+ P9 {
* W0 ~& V7 D1 j( z
.ORG $FF90
1 A: i" E1 w5 K+ a$ t& W8 g
STY $4008
. f. J, a5 k5 ^+ q% _$ l8 y
STY Sound_Bar + $08
# k+ N6 w# C2 Y8 j; H
RTS
8 u+ u! s( R' F1 [( _6 F
8 K8 P% D+ _# b5 U/ g3 H; j: ~
.ORG $FF98/ W- V8 ^/ L# J' l+ Z9 \) p# g6 K
STY $400C
1 ~, B5 g& k, C, c: c8 a H' y% X
STY Sound_Bar + $0C- R% ` r2 o% o a9 i* @
RTS
( w7 t! I) v6 p% ]# y+ x! R0 T
) ?% o6 T1 h9 w
.ORG $FFA0( y3 f6 I6 C' @( B& z/ b
STA $4000,X, F4 e9 ~' j) O6 x
STA Sound_Bar + $00,X+ X, c: \" S6 P* C, S% A
RTS
0 `& I: ~& i3 G/ ^* J0 P
" B& _: F1 `9 d" U$ C# K
.ORG $FFA88 a8 |: c6 q, I( _
STA $4000,Y2 [6 q+ \( D% f+ \
STA Sound_Bar + $00,Y1 A; A5 J& v3 } M" l( w S) _
RTS" P' |2 v. F" j4 N6 l
% ~* _6 L: ^: k' [3 Y/ ~+ O4 q
.ORG $FFB0% _0 ?$ D6 T( r. X+ Z' U
STA $4004,X
) \5 f7 n) s* A4 Z! j) W9 s2 P
STA Sound_Bar + $04,X
. i( r2 O \& Z, H. g8 Y
RTS5 y+ y/ H( z* W( T* `, b1 W
* ~" |0 P: V& p( _; G
.ORG $FFB8. ~9 v$ l& Z" L- D- i2 ]
STA $4004,Y6 c* |/ _! Q& i- I, d5 [& y
STA Sound_Bar + $04,Y R1 j4 U( O/ ]4 t1 |: p4 {
RTS
t! W) C3 O* D) m& A, d; q
6 Y8 w3 W5 ]9 @6 U7 z" c
.ORG $FFC0
+ C$ R- \: o1 \+ \# N
STA $4008,X
; t; w3 S" t' I" w" _
STA Sound_Bar + $08,X
0 P6 L/ u+ @! \- _3 }/ ]4 [# ]
RTS E9 E) K! @9 ?6 ^5 f
4 \2 z0 z5 h2 L9 \( D
.ORG $FFC8# d2 p" y% ]2 s: n. E1 [
STA $4008,Y& p- {- }5 h# I4 W: ]% g. j# N
STA Sound_Bar + $08,Y+ U- B+ [. L" V+ v& K
RTS
9 V5 L) b/ J8 _- i* N$ B
3 Q! `6 t, Z9 t% k* N
.ORG $FFD0
6 N8 S: r, s3 X
STA $400C,X
& Y& S, v( D4 ]3 H( G
STA Sound_Bar + $0C,X
1 P/ I% N8 ~1 x- a( D
RTS
; Y/ n% K) r5 {1 q: j7 x7 n6 ?: j5 I
% z5 ]% b$ t3 J; E( w. Z
.ORG $FFD83 U. j, }8 \1 ?) L
STA $400C,Y
$ @, G" r0 l# m" N
STA Sound_Bar + $0C,Y3 i+ t% @$ ~- q- [' h2 k; w
RTS
; L; e3 R- \) W
% s* D1 _% P; q" T
.ENDIF
# _5 E+ O/ z9 K9 H% ]

复制代码

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

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

非常支持您

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

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

本帖子中包含更多资源

浏览过的版块