[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音乐][播放器模板]& F1 X4 G, Q! ^5 i& V
;FlameCyclone 202307107 G1 R0 N4 f; [7 L2 ]- i
/ _) F4 w5 w) ^: G8 }$ e
;文件头
2 T& V! u1 v; ?; L0 F; k8 z3 M% A
;======================================================================. f1 z5 ~- Y( ]! R$ H1 B+ q6 B
.INESPRG 16 ;16KB PRG 数量1 \- f) Y2 n; R; T
.INESCHR 1 ;8KB CHR 数量
( C/ t, e" }: Q7 M7 H
.INESMAP 4 ;mapper 4& F+ F, j" I7 i" m2 M8 D
.INESMIR 1 ;命名表镜像 0水平 1垂直
7 f4 z( v$ p: |$ w1 E
0 {& }# u) C. @7 H, f! w Y* B" I
;==================================================
3 o, }- ~4 F& l; z3 u+ l8 f
SOUND_BAR_SHOW_ENABLE = 1( c/ g n: o* L E
;==================================================
7 Q2 F, a. t7 J& j2 E, y
BANK_DATA_MASK = $1F' @8 o8 Q% z4 t
CHR_RAM_ENABLE = 0
[! L0 O5 j! D# C
IRQ_SCANLINE = 1363 B- p& K1 Z( |- {
;==================================================7 r# y: W5 b. Q; [9 F* g
SOUND_DATA_BANK_00 = $005 N: v) I. `3 b4 s5 n
SOUND_DATA_BANK_01 = $01& v/ Y* N$ y) ]) i
SOUND_DATA_BANK_02 = $02
+ v1 N3 |$ @7 K1 a/ L3 N6 j4 s
SOUND_DATA_BANK_03 = $03; O1 B+ r! D! C E; b4 w
SOUND_DATA_BANK_04 = $04
( ^$ G n$ h ]; P" s9 c( G
SOUND_DATA_BANK_05 = $05$ V8 \/ G- P9 f9 n! y
SOUND_DATA_BANK_06 = $06
: n, m: [$ k8 H: \( }$ ]9 S
SOUND_DATA_BANK_07 = $07! m8 I8 I& Z1 U2 h- g0 H0 d
SOUND_DATA_BANK_08 = $085 _! s3 u; t1 w6 l+ r
SOUND_DATA_BANK_09 = $09
r4 g# b4 H6 f5 ?; Z1 m5 ]7 R
SOUND_DATA_BANK_0A = $0A2 X( F- ?, x' i; F
SOUND_DATA_BANK_0B = $0B
0 e) c$ X" R4 d: b
SOUND_DATA_BANK_0C = $0C
8 e8 N S+ z4 m2 h; g0 m R( V. f
SOUND_DATA_BANK_0D = $0D6 V" _# a6 o: `' }; [
SOUND_DATA_BANK_0E = $0E
' Q( o6 U( f! }! K! y
SOUND_DATA_BANK_0F = $0F' S6 Z" X1 b6 L8 }
1 N' S# Q- c# G4 _# Y* k7 c Q" h
SOUND_DATA_BANK_10 = $10
! F/ ~# h' V/ t0 h3 n$ l9 W
SOUND_DATA_BANK_11 = $11$ b9 @# W: m/ X& a- H% R% C
SOUND_DATA_BANK_12 = $12
' c6 W6 N7 F3 Z; e. }1 }
SOUND_DATA_BANK_13 = $13
0 @. o/ _3 C& O/ k" u
SOUND_DATA_BANK_14 = $14
: Q" z, ]& |8 i; m
SOUND_DATA_BANK_15 = $15
! }, }7 b: J9 [# u1 S% t8 [, k3 V
SOUND_DATA_BANK_16 = $16
6 A8 F& F7 C4 R- y7 G6 E
SOUND_DATA_BANK_17 = $17# Q& f x( } R) \* d* P S
SOUND_DATA_BANK_18 = $180 [' V5 e7 d: j2 N
SOUND_DATA_BANK_19 = $19
/ y2 A5 z+ i. T6 Z- W- W, W1 P" }
SOUND_DATA_BANK_1A = $1A; K& \5 q* W4 c# `6 H6 d) V; x- h
SOUND_DATA_BANK_1B = $1B& \- p& N) M* N9 k, w. u5 F
SOUND_DATA_BANK_1C = $1C' _- R+ H) [3 k
SOUND_DATA_BANK_1D = $1D, N- W* @7 Y5 e" t$ N- |
; t+ D) v2 w) h! b, P C7 b4 W
SOUND_DATA_BANK_C000 = $1E
# X0 |: d j6 W# G0 V# M
SOUND_DATA_BANK_E000 = $1F% ]5 A9 b. j0 k+ j# Q
;-------------------------------------------------
6 p- x s3 O. V& ?" W
CHR_DATA_BANK = $20/ f/ t* J, t, w. C9 I2 u$ q4 R
CHR_DATA_ADDR = $A000
) N. A1 ?6 E9 ]5 ~; \* D! R
;-------------------------------------------------" i: u* ?( c+ N: Z. |( B
PROGRAM_BANK = $00
3 [- l# _+ w0 L& v
PROGRAM_ADDR = $8000
+ d9 z+ t" y5 \& ^, \# R+ |
;-------------------------------------------------' W4 a L1 z% Z6 z* x
RESET_BANK = $1F6 {; H9 f. b4 u, q1 S d) i
RESET_ADDR = $FD00% y. q0 y0 ]6 P# N
( R$ c2 h3 _( E5 t5 u
;==================================================
' K' D" ~* L6 Z5 m5 B
ITEM_MAX_SIZE = 12 ;最大节目数! ~+ W" q7 n9 s0 }* i; l6 U5 L
ITEM_MAX_INDEX = ITEM_MAX_SIZE - 1 ;最大节目索引
8 i' ^. s! X. {- y( R
PAGE_SIZE = 5 ;每页节目数/ G" o1 y% i O- Q
) C% `( f+ `5 A! m S: P
;==================================================+ F+ |( L8 s7 T9 b6 Q( B- H& E
.IF ITEM_MAX_SIZE % PAGE_SIZE ;不能整除2 l A. @* R$ ?8 g
PAGE_TOTAL_SIZE = ITEM_MAX_SIZE/PAGE_SIZE + 1 ;页码总数+ ?# K6 _& L% N2 b
.ELSE z2 D+ o# V p/ U6 h1 X
PAGE_TOTAL_SIZE = ITEM_MAX_SIZE/PAGE_SIZE ;页码总数* x' u4 ^: ~/ ?
.ENDIF: l5 H6 [. \4 r# h9 J6 K7 v
) j* S2 P7 [3 z+ p4 T
PAGE_MAX_INDEX = (PAGE_TOTAL_SIZE - 1) * PAGE_SIZE;最大页索引
5 \3 o% z! X+ o8 `& V7 _
- |9 ^9 S) U, A* [5 B' E: ]& m
;==================================================; f- Q# B! |$ D% S! W: v( c! ^9 X
ITEM_SHOW_POS = $20A8 ;节目名位置4 G% V. |& L# A0 O
ARROW_X_OFFSET = (((ITEM_SHOW_POS & $1F) - 1) << 3) - 21 p' T/ M% t) `1 w: E( d. P
ARROW_Y_OFFSET = (((ITEM_SHOW_POS & $03FF) >> 5) << 3) - 1;
% K, F, y/ c0 A4 \* i5 ~6 Z
;==================================================
+ E/ q5 J+ r) F9 I0 y3 |4 b C
Caption_Text_Pos = $204D ;标题文本位置
1 B2 |" F; }% A6 q7 m3 `
Author_Text_Pos = $2324 ;作者文本位置3 T0 x% v9 R: j. A7 H; u7 c
Date_Text_Pos = $236B ;日期文本位置: p& n: p- A) e) v
;------------------------------5 m( O3 X/ v6 g, I9 W
;------------------------------
# ]5 s9 a7 `0 K
.IF SOUND_BAR_SHOW_ENABLE
$ E: F) }& z& N
. [0 L; M: Q! `- i+ G8 g; u7 C
Play_Index_Pos = $2273 ;当前曲目位置
& j3 n" |0 i6 W; X- n& p# s# o
Play_Time_Pos = $22B3 ;播放时间位置' f4 a6 \9 v7 O# v6 Q
Play_State_Pos = $22F3 ;播放状态位置% d$ q: C$ ]' t/ a. P# G3 I7 W. R+ u, w
! S- x: ?' x' s1 z" q* z/ S$ |
.ELSE& ^9 S) m- H W. x
4 z2 W8 R) o1 C+ _0 q. e
Play_Index_Pos = $226C ;当前曲目位置
9 Y( ?6 o3 R* q+ U
Play_Time_Pos = $22AC ;播放时间位置( e6 W2 }& @- P8 f7 v; L! T U
Play_State_Pos = $22EC ;播放状态位置9 B1 C+ }6 M' I1 \" S
9 X* P' z' b U
.ENDIF9 V& l4 o4 \6 {/ z, s/ b: U
;------------------------------
& y" I* p2 J P0 {6 }# S! N" k
Track_Name_Pos = $222B ;曲目文本位置6 m* h) a! L3 ^( J" e* v9 k% u6 i
;Track_Name_Pos = $00 ;曲目文本位置
h# l8 q I3 [
Sound_Track_Pos = $2265 ;声道文本位置, ~% X2 z6 V9 r8 _9 `
Sound_Bar_Pos = $2269 ;音乐条位置5 A: p T% U- K, K
;==================================================
6 K1 w3 Q! J3 F
Scroll_X = $00
: n$ d. \- p u- p
Scroll_Y = $00
+ t2 M- ~5 H+ V
;==================================================
! @6 F0 ^% R1 `7 t9 f
Sound_Ram_Addr_1 = $0100
4 K) v- M2 b! ~; b
Sound_Ram_Addr_1_Size = $80; t$ v, n: s! w7 q3 C
Sound_Ram_Addr_2 = $0090
4 @& M/ X- w- g6 p1 Y
Sound_Ram_Addr_2_Size = $705 e2 c0 x, t2 k! z! R! ^) a
Sound_Ram_Addr_3 = $07004 V) E3 {) m% s, u" O: E
Sound_Ram_Addr_3_Size = $00
8 x) {8 I3 ]4 X( g8 ~) Y
Sound_Ram_Addr_4 = $0400" G/ Y, x, Z4 K/ M( T, G2 I% Q
Sound_Ram_Addr_4_Size = $00
$ \, K9 ?9 ^( ?9 ~: U, e) }: P$ {
Sound_Ram_Addr_5 = $0500
& y8 A5 W+ m9 b" j1 s1 a' X
Sound_Ram_Addr_5_Size = $407 R! M% e/ x4 ]( H0 N
7 p/ {7 v7 v2 l
OAM_TEMP_ADDR = $0300
/ e8 _6 T, D7 ?* g! R" R3 F
1 O4 C- S. z* l/ R' Q6 {; @3 A
;==================================================8 p5 b/ o; v4 z% u: @ ^5 G
PPU_CTRL = $2000 ;PPU控制寄存器
9 B9 L6 ?* l. o4 V8 j& F4 [
PPU_MASK = $2001 ;PPU掩码寄存器
! ~. K( P1 K8 |3 i
PPU_STATUS = $2002 ;PPU状态寄存器：读取后PPU_SCROLL和PPU_ADDRESS被复位，下一个写到PPU_SCROLL的数据是水平的，写到PPU_ADDRESS的数据是高位
! v1 c5 v1 d: g# _, d/ l! D/ h
PPU_OAM_ADDR = $2003 ;精灵RAM地址：用来设置通过PPU_OAM_DATA访问的256字节精灵RAM地址。每次访问PPU_OAM_DATA后该地址增加1
# A6 x1 M1 {. }" w0 `, T6 w
PPU_OAM_DATA = $2004 ;精灵RAM数据：用来读/写精灵内存。地址通过PPU_OAM_ADDR来设置，每次访问后地址增加1
N- X+ Y/ ~' H0 ]$ F9 B( V2 J
PPU_SCROLL = $2005 ;屏幕滚动偏移：第一个写的值会进入垂直滚动寄存器（若>239，被忽略）。第二个值出现在水平滚动寄存器
) [+ F1 v% f" c' u0 ^7 P8 b
PPU_ADDRESS = $2006 ;VRAM地址：设置PPU_DATA访问的VRAM地址。第一个写地址的高6位。第二个写低8位。每次访问PPU_DATA后地址增加% }9 n7 c) I8 d P" m
PPU_DATA = $2007 ;VRAM数据：用来访问VRAM数据，通过PPU_ADDRESS设置的地址在每次访问之后会增加1或32
) V( }5 B( V6 J% R9 b% g K. A5 w
OAM_DMA = $4014 ;DMA访问精灵RAM：通过写一个值xx到这个端口，引起CPU内存地址为$xx00－$xxFF的区域传送到精灵内存- b+ s: ~6 g9 O F8 e. u4 G+ _ D
APU_STATUS = $4015 ;声音通道切换+ E. [( r( R0 g( d1 }8 Q
JOY1_FRAME = $4016 ;手柄1 + 选通4 G& _; W) z$ g. }( }# h( Y
JOY2_FRAME = $4017 ;手柄2 + 选通
k3 q5 o; X+ X0 o; N
;==================================================1 k6 s9 U3 J3 z7 \* g9 a& _
MMC3_BANK_CTRL = $8000) A6 k/ f [5 A5 b' W
MMC3_BANK_DATA = $8001: g/ U5 c9 j" v! r5 z/ p
MMC3_MIRRORING = $A000, l4 n6 M- g: @: m9 Z$ q% g" w b# q
MMC3_PRG_RAM_PROTECT = $A0014 k3 f3 |( a, b. ]: b6 ?: D
MMC3_IRQ_LATCH = $C000
( ]/ ?6 _" s/ o4 \- K G; ~
MMC3_IRQ_RELOAD = $C0016 }$ u6 W/ S4 X! }
MMC3_IRQ_DISABLE = $E000
' q9 L5 v7 q9 _
MMC3_IRQ_ENABLE = $E001
8 j' G8 i& ^9 x8 w" t0 y
- c5 c- Z; O- Q- _, f! v
;==================================================
: @' v9 Z. K% i( k
PPU_Addr = $02008 ]* ]2 l! S1 V! K8 D
Palette_Addr = $02C00 T3 _4 C6 P( N. ?, ~6 F- w; u. e
Sound_Bar = PPU_Addr+$E0" T% J5 q# x- e
;==================================================" q9 q$ w3 J6 d/ A) @
Bkg_Palette_Update_Addr = Palette_Addr+$0D4 P( M+ N5 I5 f- g" \; V1 R0 @8 z ?
Sprite_Palette_Update_Addr = Palette_Addr+$11
7 l% j$ a! R8 U- N2 L
PALETTE_UPDATE_MAX = $2C" U7 @4 h+ ?5 Y# v4 _5 W
PALETTE_UPDATE_MIN = $21
6 Y: y* }2 }! m1 X5 z8 J8 g
PALETTE_UPDATE_INTERVAL = 60' \8 N2 X! {) r5 l: y3 W
;==================================================
# `, u6 q9 i8 k( }# J
Sound_Bar_Cnt = PPU_Addr+$F0
4 {3 w0 T/ B4 [7 n6 I: I5 r* J6 ~
PPU_Cur = Sound_Bar_Cnt+$02
3 k F) Z9 E8 t: |/ t* i
PPU_Addr_H = PPU_Cur+$03' h$ d( i5 X+ {2 G8 ~- `
PPU_Addr_L = PPU_Addr_H+$04& t" {; n: J5 I
Screen_Ctrl = PPU_Addr_L+$01( U- t0 G! z. |
Screen_State = Screen_Ctrl+$01
( V b ?! |7 [8 U/ T
;==================================================/ H7 I( P: e' [8 J
Use_Ram_Begin = $50! y* w0 C% X" Z$ T7 J) [* Z: U
;==================================================
) L4 l+ P e5 d9 w0 [% z
JSR_Addr_Op = Use_Ram_Begin+ c, @( C q/ m* `
JSR_Addr_L = JSR_Addr_Op + $01
: S5 i0 x# n; r: j) w* O0 Z _! c
JSR_Addr_H = JSR_Addr_L + $01$ |( `9 u5 W& u% C
JSR_Addr_Rts = JSR_Addr_H + $01
L/ A6 W- c k B
Data_L = JSR_Addr_Rts + $01
4 ]) w& F* P( O% u6 S3 |4 {0 ^8 ~
Data_H = Data_L + $012 D( h& B# r+ I$ u5 l' b8 b( J
Data_Cnt = Data_H + $01
) P& B$ b1 v7 a$ z$ B
Data_Buf = Data_Cnt + $01! w* Z; M; {7 i9 ~. p# A
Nmi_Time_Count = Data_Buf + $01
& }7 f+ Q: V5 t, O9 T$ s
Time_Wait_Cnt = Nmi_Time_Count + $01$ |; s' E0 J2 w
Palette_Wait_Cnt = Time_Wait_Cnt + $01 f& F* c" t. C' a$ V
- V" a. a+ e/ A# W+ S }4 L
;调色板刷新标志
2 o( G& q0 H( i) J& S
Palette_Update_Flag = Palette_Wait_Cnt + $01
3 Q* c# R! ^: u1 w; U4 D: W
: F- v8 X) w: k7 L# e7 F1 h3 m$ h
;当前帧文本写入禁用标志: [6 f! H4 M( o {
Text_Disable_Flag = Palette_Update_Flag + $01
0 I/ P$ d; f! A% t% |0 J4 A
% t; [% v/ U+ v
;================================================== E. ]# f9 U0 L
;当前帧文本写入禁用标志, 防止缓冲过大导致画面跳动
7 U( I( s+ g: n3 f( ?1 [2 x; x
TEXT_DISABLE_BAR = %00000001 ;音乐条4 A+ j8 x( Y: |
TEXT_DISABLE_TIME = %00000010 ;播放时间0 B6 j3 S+ Q% T& z! I% ?! W
TEXT_DISABLE_ITEM = %00000100 ;播放时间; d, l9 b0 o! E7 A8 B: O6 b
TEXT_DISABLE_RAM = %00001000 ;播放时间6 r' V; y- V3 s# `
;==================================================
, C; n2 {3 R( U# r
Key_Keep = Text_Disable_Flag + 1
6 j3 q, p6 O# O$ N# N0 ~
Key_Once = Key_Keep + $01
5 N9 c9 R$ c4 o( k
Key_Kemp = Key_Once + $017 T& K2 h' \8 u, c$ U- r! E s" U
Key_Temp = Key_Kemp + $01* A, I5 c" _$ R3 X# h( I
Key_Getv = Key_Temp + $01
% f% }# S o3 E% \' {' M- H
;==================================================
6 t3 H$ }' X% v6 P# H
Music_Item_Cur = Key_Getv + $01 ;当前音乐集% ]* r8 R4 X+ z% ?: T
Music_Item_Last = Music_Item_Cur + $01# `5 y w% W3 Y/ Q8 P
Music_Total = Music_Item_Last + $01 ;当前音乐集( I2 [+ N/ ?; C V
Music_Cur = Music_Total + $01 ;当前曲目! H- F" l+ i/ |- F8 l, k$ c
Music_Last = Music_Cur + ITEM_MAX_SIZE ;上一个曲目$ o( U; F, l2 \, z3 }/ ~& S' R
Music_Stop_State = Music_Last + $01 ;播放停止状态
_3 {7 V7 u( m, N+ x
;==================================================
7 T5 [! ^5 T3 ? h$ E
HEX_Data = Music_Stop_State + $01
: ?3 ^( }3 F. o$ A
DEC_H = HEX_Data + $01
! H6 E+ j3 Q9 G+ z
DEC_T = DEC_H + $01+ }: _" ^* M0 x# b
DEC_L = DEC_T + $01 {- x5 |) t: S) |& r4 k( t
;==================================================. H! ~8 t) d4 V" {0 V. D! M
Time_S = DEC_L + $01% F, Q) G1 h% W) v, U8 a
Time_M = Time_S + $01
1 ~2 y9 |! ^6 ~2 i' i, f
Time_H = Time_M + $02
3 G' N/ P7 w0 d$ z7 F4 s
Time_Cnt = Time_H + $03
% f$ {, d) ^# ]' E
2 a W# d/ r* w/ \- ^& L- e
;==================================================$ E. n0 ]; l) R A
Music_Bank_8000 = Time_Cnt + 1) @, B3 w/ ]" B/ j
Music_Bank_A000 = Music_Bank_8000 + 1! t- s" e- j1 g6 o" f
;==================================================$ Y6 \5 j" G' t+ I8 ^& f
Scroll_H = Music_Bank_A000 + 1
+ i$ C& N2 M% Q9 O
Scroll_V = Scroll_H + 1
! {0 Q0 e5 b# R0 {) I
IRQ_Process_Index = Scroll_V + 1- @- B( j, Z ^
;--------------------------------------------------" k% z" A+ V: H
Page_Cur = IRQ_Process_Index + $01) A0 J2 h( ]9 P( K
Page_Cur_Index = Page_Cur + $01
+ p8 ]9 t6 |8 P; V: I0 _/ h
Page_Cur_Cnt = Page_Cur_Index + $011 {' A' M+ n* z. k; V
Page_Last = Page_Cur_Cnt + $017 C* {' K. q4 q8 i& a' l2 H+ G
Page_Last_Index = Page_Last + $013 n" N! z+ h6 {! E* d8 K! E8 S6 b
Page_Last_Cnt = Page_Last_Index + $01
4 a" k! ^9 i: _+ A
Use_Ram_End = Page_Last_Cnt + $01! ~4 E6 j& t8 ?- m' Z$ A2 ~9 L
;======================================================================3 o6 j! S3 Z4 u" J) ?
;音乐数据块9 _! g9 n6 q3 B1 H: z9 Z: q5 T
7 x3 S% @! S; I% e2 V
.IF SOUND_BAR_SHOW_ENABLE
* B7 P% i5 }2 e5 ^ Y
9 Q" ~' H1 t& D3 c. c- e- A
.BANK SOUND_DATA_BANK_00 & BANK_DATA_MASK) N7 K, R% s& y& k+ F( J
.ORG $90009 a: |0 Q4 A" p+ I* j( A
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_0_bar.bank"/ `7 Q; R, ~, _' l, L
* E' c% y- D% }7 n# Q3 S
.BANK SOUND_DATA_BANK_01 & BANK_DATA_MASK5 K* u$ |6 U' n. l" j: I
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_1.bank"3 N8 }5 f4 F0 M4 e$ ~& R- [
E3 s, h0 F/ E, ?4 a' H
.BANK SOUND_DATA_BANK_02 & BANK_DATA_MASK( H$ Z* F) [0 D9 W& Z
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_0_bar.bank"
/ y* y) `; ^* c" I2 c
* Q0 Y6 r7 P- ~9 M! J/ R ?
.BANK SOUND_DATA_BANK_03 & BANK_DATA_MASK. c5 n" M! [1 M$ g
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_1.bank"
6 e- h" ] P" T) R
' `( c2 l, j0 M, }
.BANK SOUND_DATA_BANK_04 & BANK_DATA_MASK$ v V5 W! p- X; \6 s/ {
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_0_bar.bank"
8 C G* _4 H: f1 H( Z
, Q. t& T# N+ ~1 E6 o; R8 A
.BANK SOUND_DATA_BANK_05 & BANK_DATA_MASK7 H! l5 Q1 V2 I) }, D$ A
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_1.bank"" Q' z4 x( _9 k1 }' m: m+ @; s
' }4 j* D. s; f' B0 t+ v
.BANK SOUND_DATA_BANK_06 & BANK_DATA_MASK
2 @) M# k7 o9 M+ G7 _3 s2 B
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_2.bank"4 t% A. H$ k' o8 w
. [" s) ?4 g8 h+ r1 {- P
.BANK SOUND_DATA_BANK_07 & BANK_DATA_MASK
' ^7 M2 k- }# n
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_0_bar.bank"
, s) R8 @4 {% @! H
$ z4 l6 y J8 A( B. R' r. r
.BANK SOUND_DATA_BANK_08 & BANK_DATA_MASK
. v. C+ j3 z4 m/ u
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_1.bank"
- I5 ~6 X/ z2 \; _; \' t
' E( t7 o3 j* v1 A
.BANK SOUND_DATA_BANK_09 & BANK_DATA_MASK
- R" @9 U, Z6 K- Y: @; {
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_2.bank"
$ ]; c/ J; y; H+ O
# \$ y6 `% q k8 T3 v+ f8 K0 C, y
.BANK SOUND_DATA_BANK_0A & BANK_DATA_MASK
4 o: d9 B9 @6 k6 C
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_0_bar.bank"! [+ W% h! G4 \- r; t, [
+ K' E1 f( a/ H: C3 M7 e
.BANK SOUND_DATA_BANK_0B & BANK_DATA_MASK) S5 K$ D1 m* m: i) b; s5 R
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_1.bank"
/ L6 F) j6 a8 l7 b z; `
" J0 Y4 W& x, i" L+ o+ p2 s C7 H
.BANK SOUND_DATA_BANK_0C & BANK_DATA_MASK4 S: b/ L; n' ~+ u8 [0 O
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_2.bank" \( y' L& o3 b$ D+ z- [
) {( a" e }+ ]7 E3 o
.BANK SOUND_DATA_BANK_0D & BANK_DATA_MASK
/ E0 D& i7 [, N' e" |! r; H! M
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_0_bar.bank"' q; \9 H Y6 H6 j
4 ?$ x1 N! \9 X3 [8 J
.BANK SOUND_DATA_BANK_0E & BANK_DATA_MASK. Z7 }0 Y! a. @+ g; X X# v( j. E
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_1.bank"* T9 R' { v r3 n' E3 e' f" X8 ^' q
# i4 y9 j% g% I- m0 e7 M; F
.BANK SOUND_DATA_BANK_0F & BANK_DATA_MASK
0 y8 l9 ^( c' E2 C& D
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_2.bank"
. ^6 U) O* D9 M+ H, W
9 |' }/ k7 B" y1 Q1 z; R
.BANK SOUND_DATA_BANK_10 & BANK_DATA_MASK
0 h B& a: Q: y& r' |
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_8000_bar.bank"' _+ ^& X7 i; k9 }6 {7 n3 z
8 m5 H% ~. u4 l5 z e8 N
.BANK SOUND_DATA_BANK_11 & BANK_DATA_MASK# G, E) \7 _1 J2 w
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_A000.bank"
. g6 F' b- z7 }$ e9 u" f% @" N j
: w& q/ a: e/ Q: A; ]3 l
.BANK SOUND_DATA_BANK_12 & BANK_DATA_MASK3 [2 I4 K7 O( [$ o6 K# u
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_8000_bar.bank"
' l2 Z% G# Q( g& G3 `7 c. ~9 p
2 K$ M. i6 J8 l' a
.BANK SOUND_DATA_BANK_13 & BANK_DATA_MASK
8 R) q" ^) O$ i2 ]2 d
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_A000.bank"
/ D; o% _' P( H$ z5 j6 J
& V- A" u- T' ?3 n" }( s. h% H
.BANK SOUND_DATA_BANK_14 & BANK_DATA_MASK
9 T" {1 @/ m( M* a; n
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_8000.bank"
3 |# Q- v" `2 c4 A
& B+ E; x& [+ {7 Q
.BANK SOUND_DATA_BANK_15 & BANK_DATA_MASK5 ^4 e/ F0 H8 ?) r _
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_A000_bar.bank"
& t6 b! R! `, k; F/ B9 G
' \* V6 z" l6 }$ D
.BANK SOUND_DATA_BANK_16 & BANK_DATA_MASK/ g2 K2 ?- F0 K P; {5 M
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_0_bar.bank"& R9 Y% f% N" c/ p+ ^0 r# R- l
& E; F! i+ S# G4 n2 f+ Z% R0 _
.BANK SOUND_DATA_BANK_17 & BANK_DATA_MASK0 {; V* c$ _3 b
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_1.bank"
6 s6 Q5 Z X9 @- r
) u5 u3 S& j, G% i3 B
.BANK SOUND_DATA_BANK_18 & BANK_DATA_MASK
( X6 r% b( R- j0 q- a; V. A
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_0_bar.bank"
' @% ]" B$ Z! b% @
; ]; x' @: \0 I2 t- n; M; i
.BANK SOUND_DATA_BANK_19 & BANK_DATA_MASK
3 T; u; f9 [. A
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_1.bank"
3 r; Y$ [0 j R- f7 C% k1 M
9 a1 C8 b m' \: S
.BANK SOUND_DATA_BANK_1A & BANK_DATA_MASK5 r" {* J3 H. L& ?0 Z1 ^. d6 V
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_0_bar.bank"3 W; ?2 `5 n; D' T) @
0 I8 g) X" b c" t8 M
.BANK SOUND_DATA_BANK_1B & BANK_DATA_MASK9 A2 a9 |0 ^! Y; K4 V9 `5 v
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_1.bank"
$ j/ W! p3 d- G& ^- c3 j' t* a
1 ~: }$ N( h4 V k- Q( a3 T
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK' l, G8 j9 [: T9 y( d
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_C000_dmc.bank"7 B! L; {( \7 X# t4 F2 X* _
. j0 X. F( C* ^4 G, p1 T! c9 g
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK, E9 @- Z. P2 d/ Q' q
.ORG $D4002 P) X" W% a: E1 ]. T
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_C000_dmc.bank"
1 D: n; W C- U' L) g6 T' T; }& P6 H
% e4 j, R/ N; k! y6 U
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
/ C' y% O8 |6 h5 j5 C
.ORG $D800
6 J% H: P7 e& s5 g. T
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_E000_dmc.bank"7 K0 l3 Y. Y$ R+ h
) U `% R. [, B) z4 |
$ n9 q# N$ J! I& ?
.ELSE
$ `+ B4 X) M0 C+ i) X @& O
* H+ L+ w, k' ?# k i" V
.BANK SOUND_DATA_BANK_00 & BANK_DATA_MASK
Y6 m0 {/ ^5 o: `, p! I6 Y
.ORG $9000 ?$ B0 Y; |, x- I7 f4 T* i! L
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_0.bank"9 A5 |. L( |7 }3 |
2 K2 q: D! j4 d* z* a
.BANK SOUND_DATA_BANK_01 & BANK_DATA_MASK
: j8 F5 `5 c9 s/ ^- i0 L7 M
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_1.bank"
! g. t( W/ l) Y$ q3 P- V
/ Y( n! c3 r$ U" l3 ?5 g; @
.BANK SOUND_DATA_BANK_02 & BANK_DATA_MASK4 q) z- m) C% r* @- N
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_0.bank"! \0 w3 J% r: ]6 r+ {
5 b, l+ T0 V4 S5 n( E( ~2 f- F& n1 [
.BANK SOUND_DATA_BANK_03 & BANK_DATA_MASK
6 f1 n9 z3 D h
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_1.bank"
- c8 G8 c0 m' b/ v" r
: F% [" a y3 {+ z' q
.BANK SOUND_DATA_BANK_04 & BANK_DATA_MASK
. _$ E6 x0 n8 u4 {6 }
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_0.bank"/ ^: Y. K+ l0 }; ?* [8 H
1 |( b' q4 s4 t( M
.BANK SOUND_DATA_BANK_05 & BANK_DATA_MASK
- q3 j$ M4 r: N6 y
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_1.bank"/ r( |7 b: t6 j* j# l3 [
: Q& t, K1 |6 M E, ?+ `: w# U8 r' \
.BANK SOUND_DATA_BANK_06 & BANK_DATA_MASK. l. r& ~6 O: n* V: z q' }
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_2.bank"( C- X4 ^% V6 S: M/ O o
8 _' y* }5 a( s) U1 i- g/ D
.BANK SOUND_DATA_BANK_07 & BANK_DATA_MASK5 u( o7 e* m. ?3 i
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_0.bank" `1 ~: h6 R$ Q. F: ~: Q6 M# \
* F! Z7 Q9 ]2 l+ Z
.BANK SOUND_DATA_BANK_08 & BANK_DATA_MASK
1 Q1 q7 ~ B' r( K8 b; R F
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_1.bank"
" [5 l& l/ `, ]0 h+ x
1 D) b4 w) A; A+ l1 ]' D
.BANK SOUND_DATA_BANK_09 & BANK_DATA_MASK
: `4 P6 }+ I) s4 l: O5 M
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_2.bank"
" W# h% X, T3 b: E F
# Y% \& o. c" g
.BANK SOUND_DATA_BANK_0A & BANK_DATA_MASK- B( f" P* {5 L
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_0.bank"/ f( V U+ t7 S$ j0 I
9 b9 `* _1 p4 b7 H( O$ I! p1 ]& i
.BANK SOUND_DATA_BANK_0B & BANK_DATA_MASK; C( [' T" W" e/ D4 M F
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_1.bank"" ?9 v! m, F4 a2 k: M) c& O8 N
: P. i# y Y1 ]4 A, g$ T
.BANK SOUND_DATA_BANK_0C & BANK_DATA_MASK
$ z3 s; O( o; m
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_2.bank"& k, {" p/ L D
! w" R- t& G" m- m6 g
.BANK SOUND_DATA_BANK_0D & BANK_DATA_MASK
4 ~& Y8 O5 o6 H; ^' h8 r1 ?2 A
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_0.bank"& {: H& C0 L8 y% L/ t; g' y
! W! J1 D) ?8 J, b0 r2 a
.BANK SOUND_DATA_BANK_0E & BANK_DATA_MASK9 q" L3 W9 H% h" U- i
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_1.bank"
3 O; N( w+ S8 h4 D' d: N/ U
5 o4 |0 d1 h) j& R3 V3 m
.BANK SOUND_DATA_BANK_0F & BANK_DATA_MASK. G" ]6 Q+ Z- Y* @ J" T
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_2.bank": E( n. l$ ^; J
! M, |, ~! }: L
.BANK SOUND_DATA_BANK_10 & BANK_DATA_MASK
! g+ V( L5 ?7 Z, o' o; i. w2 q
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_8000.bank"2 Q' Q$ \0 k+ Z$ y. x
' b$ h0 o" g& d) B. d; D( t
.BANK SOUND_DATA_BANK_11 & BANK_DATA_MASK8 G. J9 L- e" e. v$ l7 m& e& G
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_A000.bank"/ h! _* `. ^! B2 s
8 |, `/ J' i6 i9 o
.BANK SOUND_DATA_BANK_12 & BANK_DATA_MASK# ?$ Y9 b' s X7 e( p; T/ Y O
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_8000.bank"1 o! q6 Q; [% V9 ~/ C( `$ V
% U, H) z! E7 u8 U; p f
.BANK SOUND_DATA_BANK_13 & BANK_DATA_MASK$ O8 w8 I3 w0 a
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_A000.bank"
6 C2 ? }; u. g: E$ X/ o8 c5 s
: t' ]" b) j" H+ ~
.BANK SOUND_DATA_BANK_14 & BANK_DATA_MASK
1 B8 H2 g* E z/ F
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_8000.bank"
& X4 H2 l3 W ?# D- ~' l
# B' `" \5 n+ F+ _2 {) @% ?) c
.BANK SOUND_DATA_BANK_15 & BANK_DATA_MASK1 u# }* q0 |/ r( j
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_A000.bank"0 u7 f$ c7 u4 L! W! `2 J+ ]
! d! Z; Q, F1 e" F0 ]* g. E
.BANK SOUND_DATA_BANK_16 & BANK_DATA_MASK& k0 y. C4 t' w7 `
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_0.bank") j. @- b& C7 L' }4 Q$ m, F
/ h6 E9 x7 d+ g2 {( h3 @8 G# N
.BANK SOUND_DATA_BANK_17 & BANK_DATA_MASK
6 E4 e; q. ~8 M2 S, x8 g0 G
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_1.bank"
8 Y: p5 p: {+ C% W
X0 [) w/ b0 ^
.BANK SOUND_DATA_BANK_18 & BANK_DATA_MASK
5 G. u* B" h! ~, h( o5 \
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_0.bank"+ d0 Z9 s4 ^4 k# V. J" O0 f
1 Y# T9 v; G. W* x7 a0 w
.BANK SOUND_DATA_BANK_19 & BANK_DATA_MASK8 t# b5 X @2 |1 f
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_1.bank"0 c( [& s' ^: j5 N( x/ i
, e+ Z4 h; l$ e. t; ]
.BANK SOUND_DATA_BANK_1A & BANK_DATA_MASK
& c' |$ o: G& L( E+ m
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_0.bank"
7 ~6 T8 L8 m' ` m' x& Y/ e
; B: O2 ?- R0 p. B% [
.BANK SOUND_DATA_BANK_1B & BANK_DATA_MASK
5 Q* R$ S$ ], C0 l$ {* F# L
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_1.bank"
" q9 ]. U& `: O& `% Z1 e8 O
0 M: [+ P, U X3 L- `2 b& v7 W
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
0 U) N+ _- S l' N7 q% G
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_C000_dmc.bank"! V1 R( K2 J5 l" i/ d/ p
{2 B* H0 x' q" E5 h
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK+ ]' z' i: x! l7 X z
.ORG $D400
& u4 }( W2 l" g% |
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_C000_dmc.bank": {9 K+ k( n' {7 Y
7 ^, U0 o! O# Z: [# t; j$ G: j
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
5 R/ [( f1 H9 i8 d" X2 K4 b
.ORG $D800
& m8 W T& ~+ [$ @8 j
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_E000_dmc.bank". \5 X2 V5 h- i- {1 q5 @
) r, Y+ \! @* x. p% m3 x( g B' \
.ENDIF) j* K" O- H! f5 `3 r* ?) ]
9 ~5 B5 m0 l3 B' I
;CHR图形数据1 i! q d E% K5 i5 S
;======================================================================
( B! K) O" H9 ?/ H
.BANK CHR_DATA_BANK1 n# A, Q5 l$ E' G6 C3 m
.INCBIN "chr_bank/chr_data.chr"
' |8 c" R3 b# ^( O0 h" e
! v6 P- k& J3 b3 t" F5 M
;======================================================================5 |, P& U, x; K7 L3 l
.BANK PROGRAM_BANK & BANK_DATA_MASK: E r5 i; I" s$ \$ D% ]6 L
.ORG PROGRAM_ADDR
0 X) J/ |; e v2 C, \
' G0 H4 w4 O: t8 J
;==================================================0 _. T" I% }7 L& r3 f
NmiProcess% i: y0 f* C6 v0 Q: v- \
8 h( [ L2 y. u1 O+ f4 L5 a
;关闭屏幕控制
* i! |7 T$ x3 X" b- T. A) u
LDA #$00; }% d7 i' n+ A- h( ]1 [
STA PPU_CTRL
+ h% O* G! Z, Q$ k+ Y Q+ e
/ p7 |' l- E, i+ U
;没播放音乐就不需要触发IRQ4 ?2 O% A4 E! v3 i* ?4 H
LDA <Music_Stop_State
6 F7 b) c4 o3 s" _& B7 \& _
BNE NmiNormal% U$ Y4 J8 `' W4 x( `1 `
1 p8 [! y0 S' \( Q6 c/ j7 R
;重置IRQ索引
8 P0 I- ?' i# q! i7 h
LDA #$00
9 D' x s3 z* ^. ]
STA <IRQ_Process_Index
! }4 ^2 R' E3 g) @; p! ?
;时间秒数为空则跳过/ f' f$ v! y3 U7 Q, O/ O
LDA <Time_H t+ C+ |* Z# y& @2 T- G
ORA <Time_M- P+ q2 }7 d# J/ G, A" C4 }
ORA <Time_S- t" E, M9 _5 a8 n1 I6 u6 t
BEQ EnableFirstIrq
) _$ D6 x2 E! G* r/ F" H
' P' g* q( j. |& ~% H {8 d
INC <Scroll_H
/ P4 q% p6 @' [$ ~
R; K+ L0 D0 e6 Z7 W
EnableFirstIrq 7 }) E8 B- Z! ~* n
;80条扫描线后触发IRQ
! @3 p i, }. O6 Z
LDA #IRQ_SCANLINE& T) }* Y: ^% h D& y7 ?6 K6 O i$ t
STA MMC3_IRQ_LATCH8 i$ R; M% _; O8 i2 u
STA MMC3_IRQ_RELOAD2 [$ x# i0 e8 x
STA MMC3_IRQ_ENABLE+ B2 T2 z' v; o6 q. d; D/ b; }
CLI6 z3 c3 S& ?- V7 o! _" ^! g, J
: ?% P$ {, h+ ?0 I2 N' C S" O
NmiNormal2 _! n' E+ ^6 H- u- \8 k$ m6 i
/ E% q5 m+ r7 s5 v0 i7 e
;处理PPU图像2 U, n. ?5 ~ F: K. g
JSR PPU_Proc
- N; P4 l. f! Z3 K8 N0 O6 C
' }: P9 O" ]9 Q: M/ w( D% r, R
;写入精灵, 会占用516个CPU周期, 约4.53扫描线, 写入会导致1像素抖动(PPU处理徐优化)
1 ]: ~& f3 A d4 C' c9 g
LDA PPU_STATUS
5 n/ {- e7 j5 y* O
;LDA #$00- D: J% @, f6 u* o( P" x
;STA PPU_OAM_ADDR
S3 Z4 G- q2 [" s2 D& R9 c) V9 O
LDA #OAM_TEMP_ADDR / $0100( w. W, V8 V& R- R" F7 v; H' x
STA OAM_DMA, n& i+ p$ h8 H
8 t) {- I/ c* @( m2 `
;启用NMI中断
8 U ~7 [ _# h5 C( x
LDA Screen_Ctrl: v9 W" N5 b2 L8 u `' }9 ]7 D
STA PPU_CTRL' {8 p( |1 C9 X
2 G8 ?, v. w& `; E8 o
LDA <Text_Disable_Flag
6 f2 o9 e! Z5 N8 E+ ?, ~4 A3 l& H
AND #TEXT_DISABLE_RAM
3 l& K/ N6 E# l* `/ L
BNE Nmi_Sound_Play
" i7 n* A9 Q7 k" b% V
+ J' }! Z3 S: M$ f& P G1 K0 ]
;处理手柄输入
" O9 B' z( Z1 H \
JSR Key_Proc
# K1 K3 Q$ u- r% a& d& [! R
1 \- u$ u7 Q9 }3 X) n6 o" ?
;切换音乐(手柄触发)( c- X" D3 R/ E* r7 v7 Z0 B; x
LDA <Time_Wait_Cnt& {9 [" D" I' l! O- ^! Q% g! P6 g
BNE Nmi_Cursor_Arrow
, f) Z! p, D' i9 u) \8 {9 s/ F: O
JSR Change_Select_Item2 t8 [& N' D7 v& F; r
2 l; u0 M* u% D7 j: `# V
Nmi_Cursor_Arrow
" R( f1 Q; l6 ^8 P
* g( T) w+ y( Z$ b/ n
;处理光标箭头
6 V9 ~6 `8 x1 J, C. D
JSR Show_Arrow
/ ]8 S9 N) P, V2 o
, s7 w9 @+ G7 l+ a4 V0 M% [
;更新调色板* ~; P% [) f( c- A
JSR Update_Palette_Data5 u+ e$ ?* M2 V$ l
$ e9 h a" w5 g: T h: t
;显示时间(缓冲)
3 C ~2 j( u$ A* a$ t5 z
JSR Time_Show
' N1 z5 S- o; _
" {- Z/ v( A' U m* K8 R
;音乐显示(缓冲), O" K! k; i0 n9 A* ^6 E
.IF SOUND_BAR_SHOW_ENABLE1 ?+ P- G" o) D4 ?; A
JSR Music_Vision
, [8 m0 ^* u( H5 V- N; p/ a9 f
.ENDIF
8 [, ^, p {" |. q \: H$ r
+ S# L+ I0 H' \" v
Nmi_Sound_Play
+ }1 @, w+ k* a5 o9 |8 K( e
;播放声音" v S9 f4 Z; m+ o2 m! b; h' o! n
LDA <Music_Stop_State
5 P5 V$ ]. V: ^. d; c3 s6 ~6 K# W A
BNE Nmi_Time_Wait_Set% _0 N \9 @- D$ g( ]) r! T
JSR Sound_Play_Proc
6 y) Z4 k. ?: A, g5 s2 H
6 l+ P2 b- N' p
;播放计时0 f% Z' w2 e* R. \/ x
JSR Time_Count7 I9 S$ T* K$ `1 c0 a
+ E: t1 T ^+ f0 C
Nmi_Time_Wait_Set
! L: k. X$ M; A
LDA <Time_Wait_Cnt! `9 M5 J% S: }& Y+ u
BEQ NmiNormalProcessEnd; F$ y' R4 I+ J9 c6 ~
DEC <Time_Wait_Cnt
% ]( _% L D9 H5 M; ]1 P+ O: P2 r
NmiNormalProcessEnd& k# \+ z! w2 r- s6 Y, l2 r
B1 ?: z0 f! Q* i3 u( q" s" Q
INC <Nmi_Time_Count& O* U6 Y$ l' H7 B, h5 V
0 j- F! C) e* V, w! G0 q5 l6 g
RTS/ K/ l8 j% J) Z9 h5 Y! O
& d ?/ B$ t1 e" p' D B
;==================================================% |3 o& |5 ?; U. `) O2 F; J/ Z
Init_MMC3% b9 t* \8 A D) s; d
;==============================) J s* G& H8 T% L7 w& t% e
;禁用IRQ# W' H+ N: }) Z7 O
STA MMC3_IRQ_DISABLE
" G) T! w: B# l. A3 M+ j
2 z" p2 q, X; e" A3 W1 F
;水平镜像 o: ?. ]( G4 Z% }% E6 B- ]
LDA #$01
, G' Y$ [* ~* m: N: |: G
STA MMC3_MIRRORING
/ r5 D9 ^- g+ v# y
1 A# o9 B/ g6 L- E1 j
;初始化图形bank/ p$ k; w5 p @: w" F) u
JSR Init_MMC3_Chr_Bank0 R( I- J3 }7 P" B @
! A$ u& _ v+ o
RTS, T. o4 ]2 e; A
;==================================================# _7 B$ y4 C! m5 D" I
ProgramBegin;主程序0 G. N: q7 x. a$ p$ ~6 r
LDA #$00# x Q8 W* s2 x, ^
STA PPU_CTRL
; F0 _. ]; d* R' m/ ?- w
LDA #$00" v6 w7 ~) R8 `6 `( e
STA PPU_STATUS
8 c& d& |$ m0 c o& r9 D7 R
STA PPU_MASK
' _5 [3 }5 P& u- Z5 {# c
STA JOY2_FRAME& Q! s$ C8 A9 v1 h
9 |) A7 }" ^2 g- J
STA PPU_SCROLL
0 L9 G4 B% y; B M6 y5 V" A3 k- f
STA PPU_SCROLL
; T/ u3 M8 K) o2 I! N- D5 a3 r- P
N; J# o" g0 O4 Z% n; T$ N: s) j
;==================================================
& F5 l2 U, c$ m& |) A/ J
LDX #$FF
7 Y/ f+ i/ T2 {5 Y
TXS
3 ]3 ?' Y! I0 {; h( { C/ v
' S- h3 V! @4 s
JSR Init_MMC3
7 B- }7 v- U; e. D- Q
2 j8 u @8 ^" ]7 f. U( d
LDX #$02# B. Q Y* m) d; a+ `' K
Check1/ p ]; d* ~& ]- u; w" M
BIT PPU_STATUS4 ~2 l/ `) I1 x
BPL Check1
9 f' V" B! g6 f( l, n! _& D; W
Check2
2 R) D5 ?& ?+ Q& x8 `' Y
BIT PPU_STATUS5 |& B- ?) f) o' U; j: [& Q
BMI Check2
7 X% x0 @9 }# d4 D) i
/ U! O/ `8 X- f# M
LDA #$0F
- Z) Y$ j2 L, ?4 Z) v0 u2 e5 P( d
STA APU_STATUS
7 q# C. b- @8 ~# K$ O
LDA #$C0
) `9 n5 f+ v# x% x& p
STA JOY2_FRAME
& u5 o; {; M5 u( ], G
) h; W* w; N9 ^& Z! v
LDA PPU_STATUS
: v7 _( Z L2 J4 x
LDA #$10
k& A- E. p: W6 e% _* t, o
TAX
& C- N2 |) l% c+ a/ f; l6 Z
Check3
" R) b9 G! \8 Y3 A- U
STA PPU_ADDRESS. D$ Q( ~! v) B/ j S: t& A
STA PPU_ADDRESS/ \ |: [3 N6 ^5 g2 A
EOR #$00
, O x# d6 F+ z. G) w7 D5 U
DEX
6 W# [# R7 n5 y9 o$ b& M9 s% H( H
BNE Check3
6 \$ B* Y, N/ ~- p" A( R
;==============================
. l! P g2 k3 b4 s2 u% B: }* q
;调色板清空2 x! J" ]8 o; ?" w @7 G
LDA PPU_STATUS' S5 ?" ]" Y/ J! u6 I r; J
LDA #$3F
- }- T( P8 o7 x4 f
STA PPU_ADDRESS
$ }& N' T2 A! h) J- l Q4 d7 O
LDA #$00
: k3 X3 m0 H# L; n. [7 r) N
STA PPU_ADDRESS8 T7 ?. G) H- d2 c; Z( @
LDA #$0F8 V2 y8 @3 N1 `4 }
Palette_Clear% f! D/ X b' S3 x; J' m* }
STA PPU_DATA t, K; r- V9 K: w
INX
' [- K; z8 n, n7 O) U: l
CPX #$20
7 @$ a4 w1 ^, I0 j1 n
BCC Palette_Clear
/ c x7 [8 h/ B% O. ^3 P* \
LDA #$00- p- Q- z; m4 f' m+ X$ i, ~
STA APU_STATUS# {5 K+ T2 y/ X9 l4 I
( C# K" s0 f3 r1 l$ C
;==============================! ^; R! c0 N$ W4 r# K% ]. m
;RAM初始化* V5 Q# W! Z9 e0 a3 l4 ]
RAM_Clear_All( ?3 F1 f4 |) e" d8 L
LDY #$00
* L: `# b9 q% Z
LDX #$08
/ x; @5 t+ i: O; e" E# l& l, w
LDA #$00
/ p! l" e& w9 l
STA <$00
* W c! M; {' Y9 x# w
STA <$016 z8 E' `( K; t7 w m: M
RAM_Clear_All_Start) r) r7 Z& d+ @" E {4 N# v
STA [$00],Y
' Z1 V" m5 y! t5 }" U* M" p
INY
t. y ~5 ?, Z8 f! Z
BNE RAM_Clear_All_Start& z2 h6 S; P ^# C$ j, t$ d
INC <$010 B) L* n/ }; H- ?: P J
DEX
& {5 u; ?7 C! p. Y/ T: W# x2 H( N
BNE RAM_Clear_All_Start
- n! J |& P( i# d9 r' p0 x
! \% _0 {( y* j; I' j
JSR VramClear
$ ~; _7 X5 |2 L! D; H7 T
JSR VramInit
- v, r4 F6 a3 P9 U' [& [2 A
JSR OAM_Ram_Init
9 w; O0 k: T+ V0 [' e( ?9 j3 P) V0 b
JSR Init_Palette_Addr
) v) m! w( W1 g. | h# W4 A0 N
7 J) p, c+ c5 a! m
LDA #$FF
" O Z/ j: |& I6 r2 F
STA Use_Ram_End
! j( q# P) `0 w/ S
;==============================1 ~# q' t! f i V2 Y( m! G
;初始化背景调色板; _- Z: _; q7 y% I" S
JSR Set_Palette_Color l8 P8 q9 n1 V6 _/ h5 d& _! ]
JSR Set_NameTable_Attributes% o% v8 c$ z) R9 L' f6 b j
( f `6 f! o* Z/ k+ k
LDA #$00# N5 B0 b: O. @9 t, v
STA PPU_OAM_ADDR
5 ~( y o2 }0 f- q3 ^- X! u
LDA #OAM_TEMP_ADDR / $0100- V/ g3 l' Z; J
STA OAM_DMA
+ s9 c; c$ g8 O* x. ?) P; }1 K. z
2 X9 f) x+ r5 ^' U! p+ _( P
JSR Sound_Reset_Proc
( v: B; x4 g5 e D: h2 V
JSR Set_Sound_Total
% ~, G( Q! ^" g" E( y
0 X: `( C4 H7 Z3 \6 V" n
Init_Start_Music+ t0 m) i, x6 m& b
LDX #$009 d9 _1 B3 F; S7 Y% _- I+ V
Init_Start_Music_Write, a' M& r5 T$ R- d* w! B+ A ^) k
LDA Sound_Start_Port,X
0 L9 B' x) Q( Q4 v& ?" ~+ |
STA <Music_Cur,X
& w: N7 c; S# u; n! h
INX
H6 b# S: c3 @" K4 A1 y8 s
CPX #ITEM_MAX_SIZE' g& t5 ^( l/ l+ k0 A- C- W1 e
BCC Init_Start_Music_Write
& F% g- ?& `. |& h0 j
1 n1 c4 u( r, t" c7 w
JSR Show_Music_Text: |) ^/ v8 Y% e
* I) h2 u m6 p: n3 q: Z+ E4 H
.IF SOUND_BAR_SHOW_ENABLE3 L* u. u; |- { R3 E" a
JSR Sound_Bar_Text_Set
) j& e. v6 P' E' u7 l3 ~0 F$ |
.ENDIF( {4 O4 F6 H4 a7 U5 f) I. ?5 _
/ h/ D" P* c2 i' D2 b
.IF Track_Name_Pos6 s# {3 ?+ k$ ~) _7 `- o
JSR Show_Track_Info
' I+ o: o! m4 I) M0 e: ~
.ENDIF
* t9 B. S9 x" S1 f
3 l# Q( p+ @+ O5 f8 f. w
JSR PPU_Proc
! o, ?5 `& z3 @4 c* `5 r v$ }
! |$ C. \6 ?: r- h7 k
;==================================================# Z: W4 P/ ?) k/ }, q
;音乐bank初始化
5 M3 F Y8 u, l; R) p8 u K
JSR Init_Sound_Bank( o) }7 D1 C& s' G$ b
7 _* N% M' _5 u" `
JSR Music_Show
8 l8 t2 q7 i- n+ r" Y
JSR Time_Show
- P& @( C' R- }
JSR Music_State_Show
# i; P9 k6 ^9 T3 y3 Q6 q6 i$ [
JSR Time_Delay' T, r- r* M) d7 f6 s
2 m' o1 ~, |; k Q! ^: c
LDA #$01* e% p T: Z" A, s
STA <Music_Stop_State% U- t8 W/ \+ F: z2 m
3 C1 W$ B6 E8 K8 C- c
LDA #$88$ V( @& C& d4 e: F
STA Screen_Ctrl
1 P" s1 V* H9 e7 W
STA PPU_CTRL* b4 v: V* [4 B3 _* G4 B1 O/ ~) \
! W' f6 Z3 | ?' T2 s6 S( y
JSR Show_Page_Text
- Y, `% q) F M+ w- T7 s/ Y9 S
# l9 u7 @* `- y
LDA #$10
/ y B. r0 |) H Q1 S9 Y- w/ n
STA <Time_Wait_Cnt
* }! f4 t- T# A* g
: ?4 h' M; V0 B
Wait_Time_Over
9 F) o1 f) X2 d7 L9 u" G/ y) \
LDA <Time_Wait_Cnt
3 i4 v r9 K# J1 O: b. O& R( X3 I
BNE Wait_Time_Over
& x4 q- G. G8 E8 N4 P0 v4 d! r
% m. C7 V! _0 u% W( g$ n
JSR Show_Arrow
) f9 K" [5 K8 A" T6 |' f7 ~
LDA #OAM_TEMP_ADDR / $0100
6 S+ T; ^3 I2 b' W
STA OAM_DMA3 ~$ v/ y, j2 K- A5 l
2 O# I3 a9 f; [% @+ f
LDA #$1E
4 X1 c4 L( ?, o4 s/ y
STA Screen_State
: O3 l. P; W' x! U: B; ~2 s; d
; y J0 Q- Y, ~, V5 G3 f& Z
LDX <Music_Item_Cur
" S2 S: _4 u& y* s( V% R" E
LDA <Music_Cur,X+ h/ @" H0 z0 k( t' e
JSR Sound_Init_Proc
# M; s2 v/ _ e/ F6 `% i) q
. j8 f S1 k3 V& W8 o5 q
CLI; O9 Z" e, O( e2 |' J! J$ @9 |
JMP MainLoop5 A6 Y( s7 L1 K3 n+ T
: [2 u" G3 E m* N5 [% U2 d
;==============================8 y0 k1 T. S+ t# F0 s
Time_Delay;延时等待
" \8 g- ~; K/ T
LDA PPU_STATUS( q& Q0 X8 u3 P& ?2 J
BPL Time_Delay
" u6 Z0 k1 {8 ?0 j
RTS
* k/ a0 V4 ]/ ^5 J' r
* M" k4 r4 o7 A/ O3 `( ]5 G, J6 d
;==============================
! }, b9 j4 Q7 q9 l7 k
OAM_Ram_Init;初始化精灵内存
0 V8 V3 q) N& G3 Z
LDX #$00
/ |+ ~. }0 C9 A+ J
OAM_Ram_Init_Write0 }) @6 i9 I Q! C8 x
LDA #$F8+ W7 n$ [; R4 |; a* V4 ]
STA OAM_TEMP_ADDR,X
" }% ]% m( W2 ^* h1 x5 J3 l
INX5 f7 m( Y: O* w( h- v& @3 ~: j
LDA #$F8
" V& w" d/ {( @# V( C1 y6 T
STA OAM_TEMP_ADDR,X1 |& c( \- v0 r) [$ S. ~) j
INX0 Q! a j3 x& P+ M* Q+ X( m
LDA #$00: u F; c( Z! G B8 \
STA OAM_TEMP_ADDR,X' L! q R5 N, H9 G1 \; D
INX0 x: ^+ g: \6 e3 [+ L$ e1 v7 [
LDA #$F8
STA OAM_TEMP_ADDR,X
: B8 K+ P7 C/ B; N2 A o7 R
INX
. Z. ?/ L5 L8 g$ c: ]8 D
BNE OAM_Ram_Init_Write) ~, X1 {7 x0 I+ c
RTS5 |* c# U& g( i/ f6 O( w2 ~
0 h; W4 Z& Q6 `) V, H) B' c5 Y
;==============================- }' v$ N H5 N' [$ W
VramClear;初始化图形内存$ e) G( ]+ d: {0 i; _
LDA #$20
9 y1 J3 ?" L4 c$ S6 c* u; i: `
STA PPU_ADDRESS N. v2 B% N7 n% e
LDA #$00
/ }7 c" f2 N/ F8 O6 n% D/ {9 @
STA PPU_ADDRESS
$ ]1 T) M) F! {8 m& r" u
LDA #$007 i3 T' }5 Z# g# w2 u3 u
LDY #$00
: g- Q7 y; G0 {
LDX #$10
% }1 a0 Z6 y% U6 b5 J/ e7 E
VramClearWrite9 s1 ~ N) H2 n! N2 Q5 s* M
STA PPU_DATA
# J, z+ B/ x8 R, n9 d
INY6 E+ } j% k2 e" x: l; I
BNE VramClearWrite `: z* S7 }. a( d4 s
DEX
! t3 e: I8 W, W5 k8 K P% O
BNE VramClearWrite* f }& [2 ~: i4 j7 l& L" F! D
RTS5 Z( h8 `# F- _! ~# b$ \
7 b; c2 d0 \; ]' T i( {% A3 A
;==================================================
! q- {! M& N# i" ?6 O' F
;设置MMC3图像bank
! C4 e5 W' _- q2 K8 G% t5 q9 ?
Init_MMC3_Chr_Bank
' u9 x' g; ^% A) e
LDX #$05/ r# S% T: e9 s0 T
Init_MMC3_Chr_Bank_Write9 Q% C6 e" K4 L
STX MMC3_BANK_CTRL
+ R, Q/ }! l4 f/ j- }
LDA MMC3_Chr_Bank_Data,X. t5 [! ^& |1 `9 y$ P8 R
STA MMC3_BANK_DATA2 e. S& i9 k* Z1 D- R
DEX
" i+ o' C# g' F3 u7 {" w: Q$ c
BPL Init_MMC3_Chr_Bank_Write
9 }$ V3 L9 }6 V4 `8 L) r
RTS+ `7 O4 D/ N- y3 m7 j
;--------------------------------------------------
7 w ]* @; o5 w" X4 F/ {
MMC3_Chr_Bank_Data
/ d) ~# _+ _8 M9 [9 W0 S3 Z
.DB $00,$02,$04,$05,$06,$075 A1 T, Y% a6 v' l( ^# M( ], W# V9 t/ ^
8 {4 J8 q3 y0 B+ C! p! p
;==============================1 x- R( C( I' _3 @* z# C& y
VramInit;初始化图形内存
6 v+ D. x+ D/ y! o
.IF CHR_RAM_ENABLE
# I2 `% h, H/ X9 o
LDA #CHR_DATA_BANK
+ j4 Q2 F s1 ?7 z# C+ N
JSR Switch_Bank_A000
$ N9 X$ g6 o/ K# C4 f% W% ?/ S
LDA #LOW(CHR_DATA_ADDR)
9 ]% P# o) |4 Q x
STA <Data_L4 }/ e5 C( V% p% P) k2 H3 x
LDA #HIGH(CHR_DATA_ADDR)
2 I$ @+ u' Z+ y, f- r. S
STA <Data_H
% \8 u: T) h! M* K5 X/ S9 m9 }# I' F
LDY #$00
; o8 t( E6 {( p( O0 [
LDX #$20( F- X4 Y. Z: V' S( l' z' X
LDA #$00
9 H& Z/ |) n) n2 v) K; y1 `; [
STA PPU_ADDRESS* F( |( H g9 p, g: Z2 a R/ b7 W% B
STA PPU_ADDRESS
& v/ w {: v. O4 o
VramInitWrite
) ?" m# }$ l& }; K l# k% g
LDA [Data_L],Y
4 g+ {2 v& h4 [6 ]/ }- R
STA PPU_DATA
' S! a) t- G) y% ]0 t
INY1 d7 T% \8 g" J1 W+ _; Z1 {
BNE VramInitWrite( P- b4 ~/ b! |- L( W' H
INC <Data_H6 v3 i- W' S7 U' m
DEX5 g% j0 R, D% b0 W4 o5 I
BNE VramInitWrite
! U$ k* `$ m7 A$ p+ m$ h
.ENDIF
* w, l7 R/ o6 ^ I- S; q
RTS: ?8 p! }) R6 l& O% N+ ?9 ?
' ~2 Z+ l2 U) c+ Y) ^2 h7 G
;==============================2 b n, _0 [2 L: q! X
;音乐切换
) |1 x) s$ U+ T4 Z+ s
Music_Play_Change: c9 F3 `+ V6 |* F2 Q6 a
LDA <Key_Once% k" i5 J, _' w
AND #$FF
; @9 |' x3 E2 n# \4 U
BEQ Music_Play_Change_Check k2 t+ |& i- N6 ?
9 C8 S- `' |3 |3 w
;禁用音乐条刷新
% Y5 s3 H0 S: Z9 Q
LDA <Text_Disable_Flag2 Z3 b8 x2 Z6 Q% J" b! S; z' k
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME4 q; M0 }: z1 }$ E; d
STA <Text_Disable_Flag% L# ]$ y& V3 b3 D; F
1 l" h/ L& t o" { O
Music_Play_Change_Check
6 t7 K, M/ s$ V5 o
Music_arrow
: U- {/ |& }5 H) ~- f4 W: S; j
LDA <Key_Once
) Q1 \/ m* Y4 [: ]& x/ S- {' \
AND #$0F; g6 r5 \) e, e3 S1 [
BEQ Music_Play_Change_End
* P; @1 e9 g3 y4 M$ @( u
JSR Music_Track_Change
& I' M) R: R' K* o2 f0 y; z
JSR Sound_Reset_Proc
( T# H. c. {3 B& I% z# e, w
JSR Music_Show* ~+ e( z( b' I: c5 }- |4 X" p- K
Music_Play_Change_End
/ Q: z3 F1 C, @, A2 ~! ]. b. Q. A
RTS
f2 p' f: j z' A) l$ e2 g
: y0 { `4 \4 d; M! E' U
;==============================" b1 Y m' L1 R/ w4 D
;音乐曲目切换
, h! |* Y+ A0 `! G, o
Music_Track_Change% {8 b: m8 [( C6 h9 ]1 I) e! e
LDX <Music_Item_Cur( n& Q0 T" V2 B7 K$ k* K( l
LDA <Music_Cur,X4 s3 ?! G c. W9 g) e
STA <Music_Last
# B' x8 a7 F4 K
Music_Decrease5 g$ H X- S% K) Q! V! \
LDA <Key_Once% c3 a& m/ b* c. Q1 [! o
AND #$429 e2 c+ j2 n6 u* l
BEQ Music_Increase! E$ n1 {6 X) m* g/ z
LDA <Music_Cur,X
/ F2 p4 L/ m: o9 S
BEQ Music_Increase
6 M' o j' S4 z5 ? C: U
DEC <Music_Cur,X
, f" ?- W& h/ J+ }) w+ }7 ^; s
Music_Increase! u$ |, A: S. R& `
LDA <Key_Once
) G3 S/ K2 @" e8 M/ E. O, G0 ^
AND #$81
, F8 O( f/ r) `# {
BEQ Music_Decrease_10
) K- J8 p$ S/ O( @
JSR Set_Sound_Total9 ?1 s+ c5 F: _) G0 ?+ U
LDA <Music_Cur,X
- C5 c( ~$ L! ^- p3 u- `! T
CMP Music_Total& _- T1 a+ t7 z' G" N% g x
BCS * + 48 v0 j, {8 q; V r
INC <Music_Cur,X
' X0 O- c' j$ S( S; \# i
Music_Decrease_10
3 G" w9 ?9 f5 J3 a6 C* E
LDA <Key_Once2 v( T+ Z3 }5 ^ _6 G* T
CMP #$04
) g+ B7 x7 T4 i! r- p
BNE Music_Increase_10# B. H9 {& j* S+ {
LDA <Music_Cur,X2 m' X' ~; x( P7 M6 b
CMP #10
( m% @+ \' t9 C. j+ i; G5 J: K
BCC Music_Start_Song_Min7 ~8 p0 {. Z5 h1 u2 H' E6 V9 O' X
LDA <Music_Cur,X
8 b$ E5 k$ u, d. v
SEC1 S( h) ?9 W; Y3 P8 G
SBC #10; t' C8 x: C, t# s9 U
STA <Music_Cur,X
0 w/ ]. H' N8 `8 U5 C
LDA #$00" i! L& j( _% C0 g
BEQ Music_Increase_10- T, s& S/ J, W% j j! Y# k
Music_Start_Song_Min
+ A; z. F* ~6 M7 J8 k
LDA #$00. A6 L! Y* }6 c ]8 a3 T
STA <Music_Cur,X
, Z& C/ x$ U: W' b, n) ]
Music_Increase_10& y' ]+ }# l6 P5 _$ X: {
LDA <Key_Once S" J u$ Y9 u) w4 t. e
CMP #$08
/ y) k' ]- Z8 O Q( C: Z+ N1 O3 Y
BNE Music_Track_Change_End
1 C4 o: u# \- Y e M% j" u
LDA <Music_Cur,X
! a* P; Q" w- r% m
CLC
5 J, w: m: R& |! j a8 g
ADC #10
9 U1 b2 F% T" O! q
CMP Music_Total4 Q% S8 P. |' ^- v9 [
BCS Music_Start_Song_Max
) K" e( e, g9 ]7 @3 I
STA <Music_Cur,X& D# f0 a/ m# X0 m9 ?8 b m+ B
LDA #00" g- s" @6 ]3 D8 P6 {6 L
BEQ Music_Track_Change_End
) Z8 \3 Y- `1 n/ d1 `
Music_Start_Song_Max! D* S: {) N7 `' B- n6 h% `6 L
LDA Music_Total
# b3 ]4 S! M% ~8 y2 a0 W: u
STA <Music_Cur,X
( D! Y, T) a, j0 q% U! L
Music_Track_Change_End
* h2 B6 p! G; X) Z/ U% c5 E/ p# A! f
RTS7 p2 Z# K9 D) X/ w( J. \
3 E" Y% T6 N1 B5 x$ W
;==============================
# D- m2 X) _" P
;按键处理3 l. b# W. g0 }2 E2 V% J
Key_Proc
3 I, |0 j5 G$ S i% A; D! J7 z
JSR Key_Scan0 U- G" O5 i" B+ m8 I: _
LDA <Key_Keep
- `; a: ]/ j& i$ S/ X0 F/ p+ E0 o5 I
STA <Key_Temp
0 R& ~3 b K! A9 U, P
JSR Key_Scan9 _: y8 p' Z3 R3 g# [7 Z/ D6 }
LDA <Key_Keep- E; V* v& G; ~1 i+ ^8 {# Y
CMP <Key_Temp
7 \/ i/ `! j z/ K9 o% L0 h5 S3 y
BEQ Key_Get_Once5 }9 Y4 U4 x2 K/ E. |. w$ L3 Q
LDA <Key_Kemp
) m7 `! r9 C! b! l3 ^% r$ [* K' n
STA <Key_Keep( _5 M: _! G. u- ^
Key_Get_Once
' ]# v( A# q% t- p% E
TAY3 e* s8 ^9 `6 [
EOR Key_Kemp( J* u3 C. I# ~+ q' M
AND <Key_Keep0 G0 [$ n6 a- w+ I% D: ^$ K" _. y
STA <Key_Once
5 T, t. E7 d: A4 z9 x$ f! Z
STY <Key_Kemp
: O) n3 I0 D4 n- a$ m! E
RTS
) E# B4 K. g9 M' Z% @
;------------------------------
9 h2 ?) X, i2 W9 C' d
;按键扫描8 o, M" r" t2 e: m
Key_Scan
4 p6 H' M+ B9 ~* O2 l
LDX #$012 o( c8 z% R; K; V
STX JOY1_FRAME' P# s8 t0 q; O2 c! S( _ w
DEX
% R9 {+ c+ }; x4 A
STX JOY1_FRAME0 {/ h" [0 O& R* y8 N; x, U
LDX #$083 V& L$ B1 S! k4 `, i
Key_Value
7 n5 K' A- Q% K- _2 o2 Q
LDA JOY1_FRAME
$ Y* ]$ Z' E) @ i# L, T- ]
STA <Key_Getv
! [4 M- e# e) `6 b
LSR A( m* B+ `8 I& _" T7 E9 w \
ORA <Key_Getv7 A) c( u9 O. ?
LSR A3 |8 {- B. Y3 o) R7 \3 w
ROL <Key_Keep
( l. [5 w3 i: H! }/ B
DEX
( i; j- U+ j, [: ~
BNE Key_Value. E: d) N' g: w t2 t; w q
RTS
8 s" m" x& o$ N; b }
& y9 f) f k/ w, o$ Q) i
;==============================$ o3 j" v9 y, Q- X
.IF SOUND_BAR_SHOW_ENABLE
1 T2 s& z2 v' d4 M
;音乐条显示
5 U! O0 G& k( D; n/ A% H3 S
Music_Vision% Q1 C$ n4 U7 k9 l
LDA <Text_Disable_Flag
3 Q/ b, W# w. e% P
AND #TEXT_DISABLE_ITEM& x9 t5 f, z+ [, `0 ~
BNE Music_Vision_End% d" H3 B5 `3 t+ F, [- g+ W
AND #TEXT_DISABLE_BAR
, F1 w6 h D% Z8 K+ S$ U. B$ S7 G
BNE Music_Vision_Set
5 ^: e5 T7 ]4 Y' a$ S- Q
LDX PPU_Cur9 \8 ?7 a& X' G# J3 x( ~6 k
JSR Music_Animation' ]: ?. `7 |' j: l% v: O: h5 Q
STX PPU_Cur
' W# j& \8 H) ^; P8 V( Q
Music_Vision_Set
; P9 u7 \# b2 E" ]3 W- e
LDA <Text_Disable_Flag
$ w: v) ?- T$ M2 b- k
AND #TEXT_DISABLE_BAR ^ $FF; d' Q; N; A: y) d- E8 A0 \' p
STA <Text_Disable_Flag9 k1 o$ d5 A8 B% b
Music_Vision_End
* h+ m" e, w! p) W
RTS$ m; Q. P* T6 n6 \$ o! S# F2 Z( w
;------------------------------
2 }; w. i+ \, _
;音乐条显示处理2 D+ }$ x( z1 Y; L
Music_Animation& I3 u2 q1 U2 [( Z
LDA #PPU_MODE_CNT_LINE
4 i. g4 ~* y- T, S; |
STA PPU_Addr,X' P6 p# m* ^8 \' Q+ Q8 x
INX
' U, }+ R9 }( D5 H
LDA #HIGH(Sound_Bar_Pos)) Y9 m. j1 ~; r% P8 X' ?
STA PPU_Addr,X% T! y2 E1 D$ I. p# z' ^0 ~
INX" Y8 i" o" h& q7 ?9 z4 f: F; f
LDA #LOW(Sound_Bar_Pos)
. A; h3 P9 \4 j1 E+ \7 s! x
STA PPU_Addr,X
7 D/ \2 B1 {& _" Q
INX
8 a0 E: R" M# ~6 \
LDA #$08, j# y5 R2 L) G3 N2 L+ \1 J
STA PPU_Addr,X8 B: H& W# i* w' o
INX7 b$ a. v( S$ P: v
LDA Sound_Bar* [$ t2 G. i: U1 m$ f- ]' F+ L
JSR Volume_Convert, t( ?8 t; e7 X7 i, K7 p/ y! D: s
& _, b! G I8 B9 p& @4 k9 N0 B
JSR Volume_Set_Cnt
& J" y8 q( `, \1 u3 F$ i! S2 @) N
LDA Sound_Bar+$4
: x5 N1 A3 Z( Y) q" N% I& H# A; ^
JSR Volume_Convert
2 I( @ o, r" G6 {: D9 q/ Y
$ Y) ~; R3 ^+ V- h) v
JSR Volume_Set_Cnt9 r! Y5 R4 G- |" Q) V* q
LDA Sound_Bar+$82 }( H$ z G- w5 k8 c# G
JSR Volume_Convert0 f" \ L& v6 e3 N2 D
6 P" q/ s' {% c5 a
JSR Volume_Set_Cnt
0 d6 S2 j1 l- M+ v$ e6 Z; n
LDA Sound_Bar+$C
9 l' P2 R, I7 u
JSR Volume_Convert
+ P) X1 N4 _! u* n
0 f- l' [& ]4 R2 J" Q0 r
JSR Volume_Set_Cnt" Q1 @1 u! g1 T, h6 A
/ I7 p" b6 H) y9 {, Y, C3 @
LDY #$10
8 e; X3 Q+ z) a/ b2 L) W
LDA APU_STATUS
5 K) Z) S& ?; s* Y2 v
AND #$10: u1 @) b0 z4 X
BNE Volume_Count) b+ E! v# X5 {+ z
LDY #$00
6 i4 \6 Y+ u% T$ D9 Y
BEQ Volume_Count) w- F& c: H; O4 {- x( t
8 ]+ }, T4 x2 P* v# k
;------------------------------: P3 S4 U% U7 g
;音乐条处理; i: i/ y; F4 x$ G$ O+ T3 n Q3 j$ s
Volume_Convert! t' @3 D" a5 q2 n' m
AND #$0F
7 g- c) M9 w. m0 b. ?8 S8 ]: w
TAY5 q. e- E, L# ?) H3 t* G
Volume_Count
: X. d2 n: i! k9 i
LDA #$08
J$ T8 g3 j% ]' S: n* I
STA Sound_Bar_Cnt
( Z# t' `6 ^2 P
Volume_FILL: E: N% B5 u6 `3 b- b
DEY
6 n: W; x* }6 Y1 M T
BEQ Volume_Half
BMI Volume_Empty: |) H) a6 [7 i
DEY
; a' |1 g+ l( L5 Y$ ^
Volume_Full8 _5 j- i8 \- h) K7 B% R
LDA #$16! v0 U. l) j+ q5 J* y5 t3 r
BNE Volume_PPU
1 U, O/ B$ @. P( }, Q7 R
Volume_Half
l9 j( ]+ z. ]+ k' ?$ p
LDA #$15
6 l5 u, d& l7 @! c3 R% h g
BNE Volume_PPU; C$ e! ]: q/ [! k% B
Volume_Empty$ z. h4 F; m( g6 N# y% u
LDA #$14
$ s+ G7 a: u4 S9 [6 q5 A
Volume_PPU
6 u. |; T' U3 @( L; F6 l( H( K
STA PPU_Addr,X, N2 h# m; P) G, ^/ h# Q
INX& C2 R& s$ p# [2 X: u }$ H& F
DEC Sound_Bar_Cnt5 [% N: ]6 X- y% [* ? f: L/ t7 m
BNE Volume_FILL
1 J% M5 o" E. ^: Z( q2 ?. p# E
RTS- |3 Q! S/ v& K& g
9 ?; \& t( Z. E! @9 U O
Volume_Set_Cnt
' I+ P2 {2 _- |2 e. i9 D2 O* j
LDA #PPU_MODE_CNT_LINE_NEXT+ I! ]% a* Z( c& o3 ~/ o
STA PPU_Addr,X2 I& M4 N1 G( \8 H
INX
LDA #$08
7 M' R. ?% G( a! t- o0 ?
STA PPU_Addr,X% t {. @& _5 X: e4 [ H
INX8 r M8 d5 _ p3 q0 U
RTS1 W5 f6 e8 @+ h, y4 X
$ w$ o9 a7 v4 \/ r# _
.ENDIF' e$ r4 ?! F; m
6 ~+ m" h. N& _4 A( D5 E$ ^
;==============================
- p! j( Q% C0 T1 J8 _( ?# o! j
PPU_MODE_CNT_LINE = $FA ;行计数写入
; s. z. w U& V0 N5 w( ^
PPU_MODE_CNT_LINE_NEXT = $FB ;转下行计数模式
% x3 ` [% c& t% v' J2 ^. Z
PPU_MODE_CNT_CLEAR = $FC ;行计数清除
1 `. o" s2 a& G5 V1 S5 z0 P b
;------------------------------
1 o* E. L8 T0 z6 ^
;PPU处理
' g- c- |/ y- L6 k$ I, D! X7 `
PPU_Proc0 m8 E3 m; |2 T
LDX PPU_Cur! M9 b) Y' Q. A: g' J2 }& x( X4 o
LDA #$00
1 M$ f1 w0 t% E+ Z% Y M
STA PPU_Cur
# H! u! d+ f Y. l
STA PPU_Addr,X% e# @* n& @- x1 V" w
LDA PPU_Addr- s8 U6 ?$ v2 p: a+ x
BNE PPU_Proc_Beg! k) f) S0 G1 J2 [3 c
PPU_Proc_Ret
- X+ z- V( Z$ J0 {
RTS# M- y0 X, h7 u* N# s U
2 O/ Y/ V+ [, M* ^4 B
;------------------------------) ]: ]& J6 p# ]' G* w' I$ r1 J
PPU_Mode_Return_Cnt ;转下行模式
; U* B9 N7 o* k9 H& K
INX% V" ~* G0 D% ^# p* b: z
LDA PPU_Addr_L
. w$ U/ B+ j3 |6 R
CLC
E( L3 ~4 A9 X7 S) p
ADC #$20
% M2 m. ]. _3 ~$ S. E" b& t9 H
STA PPU_Addr_L
" p/ \( g1 x& D! S
BCC PPU_Mode_Return_Cnt_End
W$ \3 S9 p: i8 L5 F. n; W
INC PPU_Addr_H0 b* k0 a, ?/ R% P6 B9 e* T
PPU_Mode_Return_Cnt_End
1 ]! {0 D" _! ]: o
LDA PPU_Addr_H R5 h; b4 P3 w, U
STA PPU_ADDRESS: Y- G Z& Z% W% F
LDA PPU_Addr_L0 z! b0 Y0 R+ Y4 r! t R
STA PPU_ADDRESS* J2 s, E- ~5 O1 B8 c
LDA PPU_Addr,X( K% `4 a. B; H
TAY
$ l% J" F4 K6 ^3 D3 i
PPU_Mode_Return_Cnt_Write
/ f4 U, U y z4 e+ p, h( D6 v: w
INX
+ p: j+ D; b+ Z
LDA PPU_Addr,X
! K3 @4 _ x, Z$ V S
STA PPU_DATA% D/ E9 j9 S1 Z: p# _# w
DEY% x6 [0 |) S; ^1 m/ @' o
BNE PPU_Mode_Return_Cnt_Write
+ d( h; T) `' P
JMP PPU_Proc_End6 m0 E) H: i2 Q- d
+ a, p _6 @5 [/ M; ]: }- b
;------------------------------
) n1 \8 y! l1 N% I" |3 p9 f& C% i6 |
PPU_Proc_Beg ;处理开始
; o$ y/ ~* |2 Q/ C9 a
LDX #$00
/ H% b# N' f, Q
STX PPU_MASK/ h3 b0 [4 j# G& T
;------------------------------
( W4 g& n: }: A
PPU_Mode_Select ;模式选择
8 T' N$ R! O7 M$ D
LDA PPU_Addr,X
5 ?* @" N) p; M8 U8 [
CMP #PPU_MODE_CNT_CLEAR
) F5 q( s" {1 D. h
BEQ PPU_Proc_Clear4 e7 k( n( Z( G: M3 X. y. Z
CMP #PPU_MODE_CNT_LINE0 P- x. \2 Z; i9 K/ a
BEQ PPU_Proc_Cnt_Line
' x! I5 V0 ]6 Q0 X2 A+ A
CMP #PPU_MODE_CNT_LINE_NEXT" o9 v1 e6 [- P5 R" Z0 F/ u
BEQ PPU_Mode_Return_Cnt
4 ]& ?* P5 u: B( C5 E5 ~0 V
JMP PPU_Proc_End_Write. J, W, w+ I; E3 ^9 J5 A
;------------------------------ |0 Y) F2 w: _6 k# ?* }) k
PPU_Proc_End ;单行写入结束, ?" K8 l2 @! E2 J; r4 Y
INX6 B% P g; j: d
LDA PPU_Addr,X
( N- n: g; T/ d) u; D1 V( E9 y! g! M
BNE PPU_Mode_Select' E# a, m/ ]+ C, x$ X7 s3 V* k
STA PPU_Addr
( p0 F0 q/ P$ Z9 ?9 ?
JSR Update_Palette_Color1 N. k$ f" E$ r- h; N! H. ]
+ F8 k" A+ S0 S$ _! v2 e3 F# O
PPU_Proc_End_Write
" v( B3 r, |0 a
LDA #$00( N8 `0 \6 ] O0 X1 T; b2 J7 ?
STA PPU_ADDRESS
, E% M _$ v6 X C$ c0 ~! d
STA PPU_ADDRESS6 o! X- g, r* v$ V
LDA <Text_Disable_Flag
4 m: Z. X; C0 w" O8 W
AND #(TEXT_DISABLE_BAR | TEXT_DISABLE_TIME | TEXT_DISABLE_RAM) ^ $FF
: k9 W! w8 v' |. f. s
STA <Text_Disable_Flag
0 L, g6 |; ^( d( W) W. y5 d2 s
LDA #Scroll_X
0 N3 e }: v2 P( f! ~5 @
STA PPU_SCROLL
1 |5 \9 ~, ?/ s* W2 t+ B. R
LDA #Scroll_Y0 Q; @: }7 `" g$ z2 w' p0 b8 K8 E
STA PPU_SCROLL' S, p! s& m8 v7 _
LDA Screen_State
3 `5 Q/ |# `9 ~/ ]8 d" T
STA PPU_MASK
6 u* W6 t& ]) M5 h( B1 b5 c! m, d
RTS
8 l& [/ v) I+ r9 b0 w7 j
) U7 u/ E( @$ J- d4 [
PPU_Proc_Clear
- a( \! F( W" I; a
INX
# A+ Q* F+ D) O( m3 @
LDA PPU_Addr,X
% z8 w3 T0 C. R0 Z2 i
STA PPU_ADDRESS
* y: a s5 n' M4 o" P# W
INX- ]$ M& E; L5 T- D) A7 Q
LDA PPU_Addr,X
) C" u" s/ O4 w8 G: Y5 e
STA PPU_ADDRESS
: r! O/ C" y. |) c; E! w# H
INX
) i3 o( @% _1 h; B
LDY PPU_Addr,X! y) [! W8 `& K& y
LDA #$00
4 \) W) q7 I1 ^
PPU_Proc_Clear_Write" J3 U) V; D! b3 Y6 i1 A* b
STA PPU_DATA1 L2 Q- h0 \2 D: ~6 E
DEY
) |9 C* v& {$ Y/ W P" \3 Q
BNE PPU_Proc_Clear_Write6 b+ X1 _: r% Z% Q8 M) X* h/ A9 ?4 S9 K
JMP PPU_Proc_End
: q- R3 P" b: c9 X i/ `0 y
' g9 t; c" i$ b8 I& X
PPU_Proc_Cnt_Line
/ A# D9 I8 }5 d& @% ]) q1 w
INX/ T% w4 e# Q% | c0 r8 C4 l
LDA PPU_Addr,X
$ v5 |; w5 p5 s+ a W& \
STA PPU_Addr_H4 w( K$ ~9 w7 ] D8 |* k
STA PPU_ADDRESS( C; \( S+ D( A& z
INX* \' R" D" A- t& n" h" g9 j; [9 E
LDA PPU_Addr,X$ H+ x6 n6 w' ^4 `* H- Y
STA PPU_Addr_L
( ^. M# b! G; i2 Z' p3 \
STA PPU_ADDRESS
' o* G: @% ~# u+ ~8 q4 y4 P4 i
INX4 d1 w4 T9 S0 @* G
LDY PPU_Addr,X0 I' `: C3 J8 t4 Z, C" T$ N- f
PPU_Proc_Cnt_Line_Write0 T: b0 m% k: x p0 {; h/ ^
INX
4 F2 Q8 G( d) ~
LDA PPU_Addr,X" E" _ _* u; c3 C7 V, G
STA PPU_DATA
' B3 Y* v9 e* O5 q6 b! {' q
DEY
% {1 `. @! _! w1 C+ d5 i
BNE PPU_Proc_Cnt_Line_Write( a; K: `9 Z1 j% O, N# H7 [* R
JMP PPU_Proc_End
/ ]" s5 ]5 y7 C8 g' x
7 I- V6 Q0 v2 f- ^
;==============================$ W8 R; s9 |* ^, Z- @' o
HEX_To_Dec;十六进制转十进制
/ E% _# h% Y0 G9 X0 \; l5 C
STA <HEX_Data
6 g- m L9 ?6 B9 d
PHA
$ t2 a6 }1 a( n5 {) O( ~3 W# Y
TXA
\( g; X/ }4 n+ }7 K& ~
PHA
1 A9 L, k4 H# X$ ?( @6 n
LDX #$004 V# B3 f8 m/ T3 h
LDA #$00
8 |$ l! V2 z) ~2 v. @
HEX_Cln
! q& q4 n0 y0 s( ^9 u
STA <DEC_H,X3 Y; m9 c# J8 y1 f/ g! W
INX+ N2 D& j4 o$ j# v6 N
CPX #$03
# Z( r& U1 \1 j) A2 D, M
BCC HEX_Cln
5 v% E. ~- c S3 J, U$ p" @
LDA <HEX_Data- E- C c m5 I8 S; _9 Q3 L9 e: j# y
;------------------------------9 r$ [) h8 [5 T, `$ A- D- G
HEX_1008 K1 @# y3 |! A5 I5 q
CMP #100
9 {% y |. t5 ]' \ v
BCC HEX_10" {; x K( L t* R- ~
SEC
3 j8 ~; m8 i# C, J/ q' ]
SBC #100# f" p5 v$ ]7 X3 ~" l
INC <DEC_H
' ~: R. x! a2 d$ \, H( A4 p" l+ u
BNE HEX_100$ w' \" g G0 e* i( G
;------------------------------
+ y1 k$ F! e$ [! s2 {5 t
HEX_10
0 N) E1 S& C! g; B
CMP #10
1 @& [# d7 X0 D1 o
BCC HEX_1
* G/ _' b# E" x5 I+ \- _9 f- q
SEC0 b/ v1 k( v. k3 Y
SBC #10
$ N- t* _( _5 U! X7 y; ?
INC <DEC_T
+ F, Z0 D/ y {- n$ l& m9 C
BNE HEX_10
_* S, k/ z6 Y
;------------------------------# \$ ~1 Q. f2 b3 n; j9 H
HEX_1
, D6 n, W- l7 \ n6 I1 a b+ C
STA <DEC_L" l! X* j* `6 m) e
PLA
/ [* M6 x+ N) I8 {( D8 U8 \
TAX2 K& p$ f7 r% o/ Z
PLA$ _. U L2 b9 @9 M$ {) p" f9 N
RTS3 [8 @: D" U: X
4 |4 s' x9 k9 k! Y* a& b
;==============================
' h! o0 R& s( K7 s6 @$ L
;音乐曲目显示" t5 A( p& @+ R! } V H
Music_Show) u$ _+ D; v9 a9 X, l
LDX <Music_Item_Cur( c: B- c' \& ]
LDA <Music_Cur,X& y* n5 g E: W& T
CLC) K8 v* J: ?6 N. D
ADC #$01
P* I" T0 d) k9 `" {* R( T
JSR HEX_To_Dec4 I/ |5 g4 g. H+ u* q; Q$ f
LDX PPU_Cur C0 t" B8 u. ^ R" l
LDA #PPU_MODE_CNT_LINE
- T$ ]' ]! q: s% d9 M+ K
STA PPU_Addr,X
$ J6 c: W) E! v
INX
9 x# ~3 o1 |- s3 K
LDA #HIGH(Play_Index_Pos), d1 V: A3 x4 @ [
STA PPU_Addr,X1 t& w+ `; a: A4 x, r! d3 t
INX
- A J- |% u( ~/ {* z; ^5 f
LDA #LOW(Play_Index_Pos)3 E1 z6 A: U; h! m6 X9 q
STA PPU_Addr,X
4 K, k7 a* o ]; o
INX2 H. L' ^" E4 w4 m& {; ?, M& _
; q# k, C" k: k0 [+ l' r V" G
LDA #$07' ~6 O( o! ~9 A0 O2 V4 O' g
BNE Music_Show_Length4 U1 q5 D7 N2 h% K6 ^' p
3 T7 _7 \( @. M- Q3 ~9 n; y( ~
Music_Show_Length0 p c5 ]+ `5 s7 w! I+ s
STA PPU_Addr,X
' a$ X) N$ Q; ~& {8 X* q
INX3 S5 e7 `1 A) m5 ~
+ M) _2 e! d' }& Q
LDA <DEC_H- t7 l3 O$ E2 }) q# y1 K8 |
ORA #'0'
: I1 A* X9 @8 Q
STA PPU_Addr,X( L2 M1 k' I) W. N2 ?
INX
: I4 @+ v' p2 q9 ^9 A) D: C
' R6 e/ D" @" V6 e, M( K8 ?6 D
LDA <DEC_T* C* ]9 h: Q9 t" ]" [! \
ORA #'0'0 L1 n/ N7 G' x6 Z7 Z! R
STA PPU_Addr,X
2 J; l! {% E5 n/ V% N k+ e# K
INX# g7 K* ]0 D7 o) M# C8 {4 x
8 ]8 T' D4 Z' j# E
LDA <DEC_L4 ~, Q; c+ n& r) L. x
ORA #'0'
% H+ G! p# A. K& Q$ E% L+ O
STA PPU_Addr,X, V c" |: J5 j& I- f V4 o
INX3 H7 }$ \% M4 l* R3 \) I0 Z
. \2 t) j: c. Y; z% e6 T
LDA #'/'
7 N0 Y2 X! z) p% [" R+ b
STA PPU_Addr,X2 j* R- Z/ Y+ s$ s t
INX
2 v5 b2 } C1 p4 w1 Y; ~
Music_Show_Total" g! j- {6 z1 J5 l9 M8 m
LDA Music_Total8 y T+ x; |& I8 v( f
CLC
- n6 ]+ g4 b9 v) H- F2 B" \3 \
ADC #$01
+ \: q, z) K) p2 Z0 F$ E
JSR HEX_To_Dec
9 q0 I( K1 ^/ Z6 K( Y2 ]0 E; C
- k' R5 ?5 K& }8 S
LDA <DEC_H
3 B1 G' q' P, A7 f3 Q: o8 K
ORA #'0'
3 i. S# }; U) r: r8 m
STA PPU_Addr,X; p1 z# C0 e k! C i6 f
INX
4 c1 J/ e% J8 V; X5 N! e
y1 C9 _; f$ f F
LDA <DEC_T J8 d8 I! k0 S9 ~6 u
ORA #'0'
^1 i" x) R1 s( Y
STA PPU_Addr,X
h! I6 ~7 g$ B/ \- d/ x4 s/ S
INX' E, ?. ]" [" V/ A) _
+ p4 P1 j* ]; `
LDA <DEC_L
2 `9 ~& M! K A5 G" c" Z8 S
ORA #'0'6 D# h4 n4 X! [+ E- ?1 e8 B/ E
STA PPU_Addr,X) t# m' I+ [) @3 @# ]: _
INX& x6 [6 \) N! i9 C
8 m0 {# e: w, U1 U; S% [5 V
STX PPU_Cur `% _2 d/ f3 V) r
Music_Show_End' l1 o M- u: G6 L9 c) B- n
RTS
X, J( P) ?: _* x& n3 ?9 h0 Q
, q& P9 M T$ S+ m% w
;==============================
; @, ?& r% J: g- \5 j9 W
Time_Show;播放时间显示6 V5 Q, Y& q4 N8 n, Z
LDA <Text_Disable_Flag p$ Y: A5 X# p% l7 k0 i, z
AND #TEXT_DISABLE_ITEM
. p: r& I c I) z. Y
BNE Time_Show_End
! N6 B4 b9 f9 Y
AND #TEXT_DISABLE_TIME. j$ Y, f* b8 r
BNE Time_Show_Enable9 G3 v+ z/ K! r, P
$ K3 m7 @* M3 ~: i' H
LDX PPU_Cur9 W! V. H2 h% G9 ^' K
LDA #PPU_MODE_CNT_LINE( y' l' B5 [0 P
STA PPU_Addr,X
f: n7 |/ o+ \0 i3 j2 C) m
INX" x& w6 ]) a' r) H" a7 O
LDA #HIGH(Play_Time_Pos)7 l" H: A; ~9 u$ q5 y
STA PPU_Addr,X
) m& c% a9 B% O- z8 ] U' s
INX
) ~& Z/ y$ b, x
LDA #LOW(Play_Time_Pos)
+ ]5 s4 [5 _' B
STA PPU_Addr,X
. t y/ p5 n5 p9 D6 ~3 t* R
INX
) K+ Z, Z! a7 e" ^
LDA #$08" G: g4 A. j, A# j# `! U7 z, a7 f8 Z
STA PPU_Addr,X. l1 F p3 h4 o! [
INX( U- r- H$ @9 `( ?4 M
Time_Show_H" Q% i9 q) }, b0 S- ~. l
LDA <Time_H L, D; `* \$ g1 `
JSR HEX_To_Dec0 f5 {/ _, z9 V! L: {4 Z
JSR Time_Digit
2 P3 j& u$ ~3 l9 o$ x2 J( Z! p* r* Z
LDA #':', C0 g! V5 k# V; f( J6 Z1 U$ J
STA PPU_Addr,X
! e6 u7 Q! R$ f5 \% G' K
INX
. i+ }8 ~6 f# I) B& C) w2 Y+ h
Time_Show_M" J4 A7 N( |! j( u: I- C; R0 a J; B
LDA <Time_M" D% [" A4 w6 _( N4 V8 i: M- N
JSR HEX_To_Dec; O& D1 _/ g5 `- B, e% Z
JSR Time_Digit
( [( d( O' V' q: H1 e9 O7 }
LDA #':'; ?( @8 u/ e6 l0 a4 s: s/ S& `
STA PPU_Addr,X! u3 R( h6 L, Q
INX% ]# \0 K: K( C4 E' w
Time_Show_S( l& j+ I4 ]6 I- Z B
LDA <Time_S
/ v3 ^. k+ t7 K0 j/ k1 ?$ ]1 f2 d
JSR HEX_To_Dec
0 J7 l* S# O! s- b% h
JSR Time_Digit: j0 k2 }4 I! X3 a
STX PPU_Cur0 _4 _6 t$ v, ^3 Z4 C+ f
Time_Show_Enable
- K8 @) [3 n9 W+ H! c. @; \8 J2 W
LDA <Text_Disable_Flag% ]: V7 `! c/ P ]
AND #TEXT_DISABLE_TIME ^ $FF
% j) k r4 s+ Y4 {) F0 `6 X
STA <Text_Disable_Flag
4 Y! u/ P @' ?8 k/ T1 X: `; I. K6 Q
Time_Show_End
* x& {3 L" O# F6 W O* w3 Z
RTS
~6 n( |% J0 `9 H5 d5 s: F
& \ Y) q( k& `/ Q, @( V- k: ~
Time_Digit" g9 I, E I1 h0 ^! l; K
LDA <DEC_T6 b' F5 c5 f) l( C+ @/ B
ORA #'0'
- A+ Y9 w# t( S! i" J( G
STA PPU_Addr,X4 V5 q; J$ l. }
INX! [/ W4 z+ w7 [1 }
LDA <DEC_L
9 d) [3 K) c" @, _- q- G# U
ORA #'0'' D% p+ y+ S. C: U% b) _
STA PPU_Addr,X
9 n3 V+ p! q# w( H& ^+ U
INX* Y# E l: {0 ]) M' W7 o4 Q
RTS
" t# W" |4 k) V# U& N& b- ?$ Z7 u
" q% H b$ i. a4 v* X: I
;==============================' K8 l* y' U0 A5 z# F3 Y/ L
Time_Count;计时
# l5 N6 m2 ] v7 z7 j' _: N8 u( P
LDA <Music_Stop_State
+ ~% M' m1 @4 @; t/ A' d
ORA <Time_Wait_Cnt
8 Z% y9 @3 ~3 o1 m6 Z
BNE Time_Count_End9 Z: H# N9 b; j4 {% j
INC <Time_Cnt8 s: S/ v i I0 e& g1 @! r+ ^, J
LDA <Time_Cnt
' E' r% P# a) y3 Z& ]& I
CMP #60
' R6 ^* @" d' Z8 `2 S2 h6 ~
BCC Time_Count_End4 } s9 p; D$ u9 Z& c3 b
LDA #00! K- ?- X' z, {) r
STA <Time_Cnt* q% n0 q9 G; w( o$ H7 o7 F
INC <Time_S6 O) q4 W8 Y- N U* e: C. D5 y
/ B! }' t6 O7 Y% _* R+ G; b7 d# ^
Time_S_Cnt1 k) T! e* b' A
LDA <Time_S
* C. i! ]- P _7 {% F) ^( M/ L
CMP #60
$ L D/ h# G7 T
BCC Time_Count_End
6 p3 O/ F8 ~. ^! j. V5 X9 j
LDA #004 T X$ z( @! ~, H
STA <Time_S& Y1 t" K! v1 o# ]; K" ?0 ~
INC <Time_M
( i4 p, q) M( F" m8 D' K
* s, M0 e& M. R4 M- u
Time_M_Cnt/ v% h% { }& P7 A W+ V! m
LDA <Time_M
6 P1 u& }% Y; Q9 \
CMP #60* ~/ v1 h- J7 N. |
BCC Time_Count_End
5 o3 M2 e2 _; k) {) }) Y
LDA #000 i/ r! A+ C% K8 P8 w/ n
STA <Time_M& e1 F' x) v U
INC <Time_H l1 }3 X* P- f, y- ~( Y
1 v: X9 Y4 ]' B
Time_H_Cnt R) X; i; o8 l' q# m/ ?# G0 g
LDA <Time_H
3 Z7 V# c& Q4 a- |. V. q {
CMP #24
& l' F, y+ O; t9 f) {2 V
BCC Time_Count_End8 }7 o4 o& S/ S1 F v( w
LDA #00
E: r% }% ` l
STA <Time_H2 {2 f; Y F8 I# y
& S% l# U3 }$ V( L
Time_Count_End4 w" i/ J h3 `' S; {
RTS( j8 S/ l8 m7 y& X# a* q
7 j p8 [$ N* w4 F2 c3 F0 E
;==============================$ e3 i9 v& C( L
Time_ReSet;播放时间重置
' p) {7 k8 I; B7 N+ N* A1 H
LDA #$00; r; d T2 E. ?" W4 M% v9 [
STA <Time_S
+ S& Y; [: o" |% z1 R7 c- m
STA <Time_M , I8 z; \" E/ Q j
STA <Time_H( N! C7 |4 g# p% h6 W0 O
STA <Time_Cnt
6 j9 K1 |) ]; N; ^: P
RTS
" ?6 m+ [7 }% b/ X7 k$ t3 _
{4 Q0 L% I H# I: S9 u1 G
;==============================
- y% n, ^! y) b: J& Q( P0 e; v- x+ v
Music_Bar_ReSet;音乐条重置4 q+ b2 }$ C# @ f1 }% {
LDA #$00
3 o8 c$ k) J2 P# v3 {, }6 C2 e$ l
LDX #$00( L3 P0 T5 q. v, n& _4 d# W, c* O
Music_Bar_ReSet_Set
5 A. C" ?( E# `1 J$ x8 `6 q6 l E
STA Sound_Bar,X( _- C1 E: f' ^2 l1 T/ a- v/ p6 O
INX
9 v' Z z! }! y0 y1 y
CPX #$10
5 n. E: D; h8 h7 S! R9 ^6 c" h, y
BCC Music_Bar_ReSet_Set8 I+ v6 L% W @$ d5 o
RTS$ e$ V A& Z# |. L! ~# A- R. q9 l9 ?7 H
( k+ L- e( A/ R( F, s: ~! O
;==============================* Z/ K8 n. }1 |; O( @+ O
PPU_Data;PPU数据写入" i; v0 g/ _# M; `) g x) r
STY <Data_L
7 N2 C. {! J* L/ S/ W: @8 ]5 M4 V
STX <Data_H0 Z1 O# J+ v" c
LDY #$FF
* F- Q) t- K& w" [) {
LDX PPU_Cur! _/ M5 s( @0 I# _' [* }
DEX. P3 u( m: o, h5 q: B7 B+ A
PPU_Data_Beg
2 m4 [8 P3 | D# h9 ~$ e
INX
" N! }' S& V+ k
INY
6 ^) [9 i9 a( H* ?& U: s
LDA [Data_L],Y* |% y5 I4 }" }' u
STA PPU_Addr,X
0 J7 }3 I( f! [, T+ F
BNE PPU_Data_Beg
4 C" }$ g. k; p
STX PPU_Cur
' m' e1 t% H s: w, X4 p
PPU_Data_End
9 F- Z# C, N5 m5 r6 R' y
RTS
4 F( z' a8 n( D3 |7 b# V+ g
4 h$ w) e4 V j+ P" A
;==============================
; x7 A/ W" [2 e" B) a3 J) U+ p) K
Music_State_Show;播放状态显示6 a+ K5 d0 n& @4 d1 B. q5 q
LDA <Music_Stop_State
' f+ N: K \0 D
BEQ Music_State_Show_Play
y! W3 |' |5 X5 c( G
Music_State_Show_Stop
6 F* L$ W2 x4 R' c; j9 j9 K
LDY #LOW(Music_State_Stop). U. r/ f2 f, x @% Y
LDX #HIGH(Music_State_Stop)% \4 @- _2 m, r8 l6 v2 W
JSR PPU_Data
+ y7 O q( @2 L1 i, q
RTS2 K2 M) Y% f; p" D7 T
Music_State_Show_Play/ a+ c# [) Y7 K4 i4 w5 `$ ~
LDY #LOW(Music_State_Play)
) e8 o% {: |9 _3 C
LDX #HIGH(Music_State_Play)" P! R& ~ i7 w' d* Q N6 f
JSR PPU_Data
6 s2 g$ J, \* w* t/ S
RTS! \' [' G1 \7 D: @" e. ?, H% `1 ?
}9 y' M9 o1 K9 d/ y! o& s5 q
.IF SOUND_BAR_SHOW_ENABLE6 C8 I) u: C4 o$ P8 V/ K
;==============================6 p, l S1 [- `- o
Sound_Bar_Text_Set;标题与音乐条初始化 V# {% N3 [4 L. K$ p/ `7 k
LDY #LOW(Sound_Bar_Text_Data)
7 b: J9 Z/ X) `+ v4 `
LDX #HIGH(Sound_Bar_Text_Data)& i. _ C6 Q3 z. a' j
JSR PPU_Data" R3 {1 v* q5 y! q2 e2 S
RTS
# {% @4 D3 o) R( U$ q% X" Y
8 L. c% D; ^! a& `6 x0 B4 W8 I
.ENDIF1 ~2 k( {# ]3 i/ `4 U
# ~5 U" U3 m7 _) m8 H
;==============================$ F$ b: ^% C& Z |/ Y, ^
Set_NameTable_Attributes;设置命名表属性
+ }- H2 X) c5 j& t( G. X
BIT PPU_STATUS
4 E, g; F* ^# X% o4 {# V
LDA #$23
4 N) s1 _/ B4 L5 P6 n! J- }* H# _
STA PPU_ADDRESS) m6 W: w) i s$ R
LDA #$C0, }% z; }1 Q2 A; u# J
STA PPU_ADDRESS
/ J" P0 `* n" H: g" X+ b2 H
LDX #$00
1 L# M p. l$ C
Set_NameTable_Attributes_Write
8 ]$ R3 O6 \; F0 _
LDA Palette_Attributes,X( _ b0 Q+ O. R8 A, J/ Y( @# Y
STA PPU_DATA
3 k1 ^* ^2 f7 ^' H" F
INX
) x; D2 U7 V5 a9 @2 p
CPX #$40
1 T3 q% P, S# ?7 _7 [
BCC Set_NameTable_Attributes_Write- e+ \& Y* ?& d6 S. H( F
RTS
& ?$ t4 J6 {, m
, E9 G# P: Y4 `
;==============================4 F7 f8 H% v& ?7 J# a* t
Set_Palette_Color;设置调色板数据
4 [7 ]9 ?8 ]( S$ \0 f
BIT PPU_STATUS- Q' ~4 @& w9 {* h9 k
LDA #$3F
' A; d/ Q ?* h9 V! q6 o4 i
STA PPU_ADDRESS
+ ?5 y5 d R5 `8 c
LDA #$00
, d3 c: f( `) z) W2 F
STA PPU_ADDRESS
9 V! J5 o4 D0 o# @5 U! v% n
LDX #$00% \& @8 Y7 E* R' c/ S9 @
Set_Palette_Color_Write
$ I: [# ?$ q- C" X
LDA Palette_Data,X
% f9 U% z" {, A8 N. D5 }) l& n8 G
STA PPU_DATA: k' E2 [4 R' @$ Z& b8 M1 ?+ W; Q
INX+ |- e5 [* q9 C# \0 R* \
CPX #$202 g9 z6 ]' D- D j' K& j8 x, M' u: v
BCC Set_Palette_Color_Write! E- G5 ]$ Z3 K$ c: T$ H
RTS
f. A2 O; ]: q
5 I/ d: U1 Y- r0 i4 Z e/ H
;==============================
. }" w' R# s% \; w% r B
Init_Palette_Addr;初始化调色板数据
2 A' f& T1 |- f' k7 k- i2 Z* j; J; ^
LDX #$00. z8 y( V* j# j6 h. h. _
Init_Palette_Addr_Write3 y6 L. P6 t" J# C; O" p p
LDA Palette_Data,X9 V! _& P: w: _0 I/ s) \9 h4 S
STA Palette_Addr,X
: T0 t0 \6 p: w8 W: ?6 \
INX' D+ M3 d. V, Y
CPX #$20
% A2 Y/ t: |8 n* j, D* f" t
BCC Init_Palette_Addr_Write' l0 `6 a' S, Y. P
RTS
# |9 F" L3 W1 Z. c6 v; Z: p5 C
4 x9 \8 R! [* v# Z. r# f
;==============================: X, V8 V8 X% ~5 E- H. @
Update_Palette_Color;更新调色板颜色
$ w5 m7 }& U8 O7 U
LDA <Palette_Update_Flag7 u: K/ \3 }2 x/ p) D
BEQ Update_Palette_Color_End
, i% O5 }, m% D2 w- A7 F: j
LDA #$3F
$ `9 g1 x. C) ~4 Q7 e
STA PPU_ADDRESS! T, h% H Q& E+ d! q: l2 F
LDA #$0C
5 W O, |' y# M% E
STA PPU_ADDRESS
" s! b( A- ]2 R7 L
LDX #$0C
/ r4 c; l! A4 i9 v5 L
Update_Palette_Color_Write' ?; z; p; ?& @1 G7 `5 r. R3 g& \" R
LDA Palette_Addr,X
1 {$ u$ k0 A. N! ^* ~3 `9 P
STA PPU_DATA0 P. J8 }% v Z0 ]- @ u6 \
INX& `& [+ Q8 W6 D( m( I, r! W+ @
CPX #$14. V2 r$ G- L. l* e
BCC Update_Palette_Color_Write! g8 U' y9 j8 O/ M+ i: J' {
LDA #$00) y, m7 L6 F5 _ g/ Y g
STA <Palette_Update_Flag$ \/ f, a( y0 C5 D4 V
Update_Palette_Color_End. e( W4 @- v1 q- a
RTS4 ?& o1 C5 h! v. B; R, E
; e. T( ]* P8 C8 w
0 h# C k2 v8 F- }) g$ D9 h3 z
Update_Sprite_Palette_Data
i8 H* ]/ @" {/ R9 z& p) a6 m. E
.DB $21
* d! z) U$ G' x" L- R; r
.DB $21
$ T4 H) n1 d5 A3 a% ^
.DB $11
: j* L8 t2 \0 O$ J: q2 n6 O% k2 T/ ~
.DB $01
* s" M$ P) a9 Z3 h) p- b; t1 W. _
.DB $019 x( I4 W6 r* W: R) B: D4 h
.DB $11/ Q5 E! @( T7 {
.DB $21& n& Y2 [% E6 O7 G$ W
.DB $21
' l {+ X# b: B; h
.DB $11' Q9 v9 q& q l
.DB $01
4 E$ o- A% k( l" v+ D2 K* p+ A
.DB $11
6 E" d9 ?% l, r; F$ G) E; b
.DB $21
, [2 C D1 X* F' ?5 _( F
.DB $21/ F: ]5 c1 ?( z7 Z3 X" F2 b
.DB $11( x) g; a: H7 ?; ?& W
.DB $01! U# Q& v4 g" t1 l* m s+ U
.DB $11" X. h' ~- G4 N2 n+ P7 C' ]! P
;==============================
; v0 Z& `- j5 w# V" `
Update_Palette_Data;更新调色板数据
! E- g7 m3 W" ]0 A% d9 E
LDA Nmi_Time_Count
7 E9 N5 V5 Y9 x6 \. x" K
AND #$08* {: N$ x( M" _4 C- D6 y( U
CMP #$08* `5 `$ i% f( H( p" G4 t1 d6 i
BNE Update_Bkg_Palette_Data6 h& f; {" z9 z) q
1 d) m& s8 y+ `% G& B7 F& g7 u6 q
Update_Sprite_Palette_Data_Set
4 h, O1 H. J) a
LDA Nmi_Time_Count
- S3 f$ M3 p+ S# t2 J3 t8 L6 x0 g
LSR A4 j8 }3 l8 g2 `! ]& ?
LSR A
1 r- m( N6 y2 o& S. ]+ b; b- C7 `
LSR A7 s8 i2 i2 o5 [4 N
LSR A
4 F5 i) M2 u3 v5 d N
AND #$0F: [' ?: N* C8 j( p' p
TAX' }; K* p. }1 C+ g
LDA Update_Sprite_Palette_Data,X
& g5 |& u- k. O4 a' W" T' s* d _
STA Sprite_Palette_Update_Addr
# Z0 [% W5 M i% A! l
LDA #$01
$ s$ W" v, b8 \1 f7 G
STA <Palette_Update_Flag
0 ?. ]& z a6 }6 N$ ^+ P* }) K _
+ E/ i: C, J4 f: \ X4 j5 f
Update_Bkg_Palette_Data0 r) T0 X- k" h2 B Y
LDA <Text_Disable_Flag8 J: ~; D0 q9 c& Z9 ~7 H/ S2 [
AND #TEXT_DISABLE_RAM
8 ]: C* {3 b/ l$ N3 }
BNE Update_Palette_Data_End
. @; o$ b% J4 F5 C% P
LDA <Music_Stop_State
" H% m% Q- ]8 W8 T( O9 g! A, z
BNE Update_Palette_Data_End
/ {) T" d2 a% P( L$ r3 P
8 r0 f3 V `# S4 ]' @
Update_Palette_Data_Check
4 T# S; L- v- m7 Q4 K
LDA Palette_Wait_Cnt2 h/ x2 Y, o- u2 K) T
BPL Update_Palette_Data_Check_Over
$ r6 B/ C/ q" d$ h( [" ]
LDA #PALETTE_UPDATE_INTERVAL
# a2 u' r* e& `( {4 B
STA Palette_Wait_Cnt
! T6 w+ i0 j Z+ g2 l% O% B6 h+ i- _
Update_Palette_Data_Check_Over' @# q8 [& ^* Z
DEC Palette_Wait_Cnt* s& u% ?% p, H
BNE Update_Palette_Data_End" _, ~/ V" a1 J8 I) V6 H5 |
( i8 F- Q3 e4 D7 L5 m! p: q
LDA <Text_Disable_Flag
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME
1 e* l7 l9 X$ ~. _* B# }6 c
STA Text_Disable_Flag
- ^" C1 I3 L" ?# H8 A
INC Palette_Update_Flag
0 u+ y/ f2 H. x, I( e: f/ A
: ]( [2 J" s5 A" G& M
LDA #PALETTE_UPDATE_INTERVAL
4 q2 e0 c/ B% _
STA Palette_Wait_Cnt6 m- b) v; i) y4 a! Q: D4 O; Z
0 r3 ^ k D0 x5 z
LDA Bkg_Palette_Update_Addr
) \4 k, m% ^4 I/ E7 ]2 e" L3 K$ x
CMP #PALETTE_UPDATE_MAX
1 a) J) ]3 N$ P5 G
BNE Update_Bkg_Palette_Data_Set; u6 q& k- ~3 a" u
LDA #PALETTE_UPDATE_MIN - 1
' J$ P( z( t* b- T: v9 G: v) C, e
STA Bkg_Palette_Update_Addr
5 m q( t! y0 [1 u( [
Update_Bkg_Palette_Data_Set
5 R* a: i2 P7 h* J
INC Bkg_Palette_Update_Addr3 V- l2 c& [! D8 k$ z, i) j
- ]8 \% p* D. m/ V/ R
Update_Palette_Data_End) d$ Z; ^% ?, Q# E2 A
RTS2 o5 ^1 Z% a. [( Q
" @$ m& d) }* Z3 T
;==============================
, I: ~8 y p6 f: B) m
Show_Music_Text;显示静态文本
, j# l, w9 F% ?, ^* I4 G
LDX #$007 F+ ~) s7 @% `+ R
Show_Music_Text_Set, S' ` A& x. G
LDA Static_Text_Data,X
" O+ P1 q, i" m0 n! ^! v/ K
STA <Data_L: P/ o! R* Q! z" Q* T1 O
INX
+ p( b$ b. e& G' Q# z* \/ b; L
LDA Static_Text_Data,X
( F& Y) A0 T) r# v" U8 t/ H
STA <Data_H4 A6 M: a4 u4 M- h$ n- t0 D
INX& D; W( D% f; p; X* m' M9 B8 D- H
LDY #$00 N# I* E7 Z u# X9 f
LDA [Data_L],Y, k& R; s( p1 v g
STA <Data_Cnt) A) }8 a- e( h) f, u8 W6 Y$ _
DEX- \: X ^- m+ `: h9 J/ U; j0 k
DEX" \$ ~. ^8 A, A& ~
LDA Static_Text_Pos,X
) [! a4 C; q% |4 e1 ^6 K
STA PPU_ADDRESS
* v8 |9 R$ ?% t0 z+ A
INX+ ]5 y! I" W: G; N/ Z
LDA #$20
8 b6 D& K- @$ }( a# f
SEC
- s5 B6 i& Q: B
SBC <Data_Cnt) V% i: I) w1 h1 O
LSR A) G1 s( t, |* T# [
STA <Data_Buf
( J( K( p0 _% Q1 {2 K0 m
LDA Static_Text_Pos,X. x0 [8 t6 a9 [0 G$ J9 C6 O
AND #$E0) ~/ j9 E7 X7 p: @, V3 b6 l
CLC. P: C& S* q1 _ J4 ~3 F& d
ADC <Data_Buf3 k$ n+ y& \# ?: d
STA PPU_ADDRESS
1 r ~- T: A* L
INX& S$ S/ a/ \1 x# Z" d; o7 Y
Show_Music_Text_Set_Write* `, V! {4 Z4 c6 s1 M3 K; n5 o* U1 E
INY$ H) h! Q0 \3 m6 D
LDA [Data_L],Y1 m; S+ I* `# t$ B$ c
STA PPU_DATA& h! R& W, Z+ w; M# N
DEC <Data_Cnt$ g: c% ?/ L0 W5 t# ~! Z6 T# ?* s
BNE Show_Music_Text_Set_Write; [6 b( E9 A, D0 C4 H
CPX #Static_Text_Pos_End - Static_Text_Pos D3 C( p$ ?. `, C7 ?
BCC Show_Music_Text_Set
8 r- k1 L; r4 i
RTS8 b: }; h |8 n# F
/ W' d$ h- h U( n. S V
;==============================
; L5 p& R. D( |5 U
.IF Track_Name_Pos;显示曲目信息
7 v! q. z$ f$ d5 p' ^) ?
* e* @- }1 m/ A4 l. X
Clear_Track_Info- |7 W, b5 d2 }) h* c- H
PHA
4 S( M8 V' O6 j+ _2 t
LDX <Music_Item_Cur
# n1 l, S' ?, ~
LDA Track_Name_Addr_Flag,X/ r# o- \+ T8 [ i& X
BEQ Clear_Track_Info_End_Ex6 t; U3 P% Q3 \& N# o7 b5 |
PLA
$ r v) K" T* h, t
8 m! K7 X* s( M
LDX PPU_Cur
' Z" ~2 G! z- z6 y2 a* [" ]
PHA
0 l' y( I. M4 p) m3 [6 x
LDA #PPU_MODE_CNT_CLEAR D# V K' v! X
STA PPU_Addr,X
0 J9 {% z0 P: f; U- C
INX
. U' G# Z, l, `, q. g1 m
PLA
% C. L) w$ F5 f# V. M/ M" f' ?
JSR Show_Get_Track_Name_Center_Pos# J8 u) P8 Q: Y( p8 t
STX PPU_Cur
3 J0 ?& Y Y# A6 l
Clear_Track_Info_End H o1 R. _% ~, ]: K" |* I6 Y
RTS8 F* T+ b1 ^% Y% J. q6 D* x
Clear_Track_Info_End_Ex3 A! e6 R6 H7 E
PLA" e* }, U E9 }6 a
RTS' z4 b0 K4 a2 W& F
/ F+ v/ S5 D j8 v+ B
Write_Track_Info
2 b3 A2 U2 a! i
PHA8 F- o: W0 [9 e* g2 v# f( ]
LDX <Music_Item_Cur* J4 Q. x9 p$ J$ U
LDA Track_Name_Addr_Flag,X" \- }" J* t4 L! O" P& G
BEQ Write_Track_Info_End_Ex
2 e& ? U1 Y& x2 H& ^6 u4 r8 g
PLA1 Q8 S5 H2 @: B1 U' G# E% q" M
, d2 p V R: u3 l e$ e
PHA
7 `) {) e" T3 R( w
LDX PPU_Cur, ~/ m* S! K4 U0 j4 H3 M9 P
LDA #PPU_MODE_CNT_LINE
) y' E* ~2 K" A: ^% P( n
STA PPU_Addr,X- x$ c# L2 k5 }9 k5 }1 \
INX; G) ~% w5 M+ c0 n- d5 F
PLA& }* X6 H3 \& ~: K2 \/ ]& _
JSR Show_Get_Track_Name_Center_Pos* i& v4 Y: o# n" t
Write_Track_Info_Data- O4 j! O* M) T! h: O
INY4 x- y: n0 H) B3 z( u; Y3 x$ `
LDA [Data_L],Y
7 K, N& Q. l' ~% t$ X5 j
STA PPU_Addr,X; e$ W& j1 k8 Z7 h1 N9 \5 [
INX7 f) d Q- o9 u: F8 q/ d+ Y
DEC <Data_Cnt
6 t9 ?/ P( [" v& y# V1 i1 N
BNE Write_Track_Info_Data
/ M6 ~& u: R k, w: F% t/ e
STX PPU_Cur8 [$ Q3 L. T- W3 _
Write_Track_Info_End
' M2 i p8 x" @3 k* A q- @
RTS$ E. Y2 k8 `* W9 I) Z$ c
Write_Track_Info_End_Ex. X1 i) J/ w; O. @( \
PLA
( D8 B$ u9 J1 S( X
RTS
Y8 E4 u( ^' B* g2 Z6 I. Y
0 V b9 s' C8 D2 |7 K) c/ U# V0 {+ J
Show_Track_Info
, `7 V7 k1 e& E" ^9 Z- R/ G! O6 \7 n
Show_Track_Info_Clear
! }1 w# ?; M$ P# b4 @3 B
LDA <Music_Last9 S9 \+ C @' |! w& c
* g. J1 C% Z0 u! t
JSR Clear_Track_Info3 V& q, L v" A/ g u6 @. k
5 u3 ?* a' r' T: B1 `' r
LDX <Music_Item_Cur9 y: b" h5 v- R7 S1 `
LDA <Music_Cur,X& v( S- z, \+ M0 I3 U
JSR Write_Track_Info
5 y4 M0 J, N3 w
RTS
. G b* g5 q! s1 E6 M, V
5 q5 ^7 C* T2 w/ N M* r' i. @/ A
;==============================/ B" k) v1 @$ \
Show_Get_Track_Name_Center_Pos;获取中间位置
+ J) O: m# l7 S) e
* o r* R* M* J: s1 K
;取出集合名索引
' r/ ^: D) l% i8 E% d! ?
PHA. L, B8 C+ f5 e$ k3 |1 n e
* Q& ?# L4 H+ ]/ z% ]# A) X
LDA <Music_Item_Cur
, n- i+ j# z8 a
ASL A
0 I+ ^6 Z; n5 {6 B, m
TAY
+ e3 A/ [7 w: x5 O3 K6 `8 ~5 X" O: _
LDA Track_Name_Addr_Port,Y3 ~4 `6 }# }( `* s
PHA, { K+ B' H5 j
INY
% U1 ?, |0 |0 o" j6 _, L
LDA Track_Name_Addr_Port,Y" j$ b" ]1 `( M. @# [8 ]0 F
STA <Data_H* m# s; I: X/ u1 H/ W8 L# M5 F6 s7 m
PLA
5 |# X I$ x K4 q& ]
STA <Data_L
3 H7 t" t9 b$ f9 _2 T$ l9 M3 O5 F
7 D* O b. m* b, h
PLA K& `: w( D6 Y- ~; V
5 A, n/ I) E- [/ C* a
ASL A' \* K2 b. y* H3 L9 v
TAY1 ~$ h. ~: v, i+ y9 v! D
LDA [Data_L],Y
2 V0 t1 s) k: }) R4 c) U* T
PHA
0 v6 [& ?- j+ |, W' `0 y' h
INY
, R8 Y. D% N9 O6 F* v, D
LDA [Data_L],Y
3 V. h" @% }4 u! Z/ F6 s$ s( s
STA Data_H
; f8 K/ P! `, b- b( L. j8 s9 J* u- F
PLA' } X- t8 D/ {+ E/ E* A
STA Data_L
6 `, b! U: |+ F% [5 p: @0 \- _; P
/ e0 J ~4 R+ ~& S6 ]+ D
LDY #$00
: t' F8 V5 \5 x; y5 t# F
LDA [Data_L],Y3 y' x1 n& l1 G
STA <Data_Cnt
1 h V8 E& a6 I2 a' `1 i1 N9 s2 X
LDA #$20
, p) {8 ^& T( U. P k* ~
SEC
* J* ^! ?( T5 ?2 ?% o! z
SBC <Data_Cnt
( m+ {: h" x, z: t/ l
LSR A
' r4 S1 d; |% U
STA <Data_Buf1 y, P& ]/ H* { i: y8 V
LDA #HIGH(Track_Name_Pos)
/ v) e& w7 ?) z& d9 t
STA PPU_Addr,X
: C, f h( f: E. }( A: c
INX
' a& g: A X. x$ Y. x4 k0 C- g* b
LDA #LOW(Track_Name_Pos)9 c' q0 U6 J4 @' m( H
AND #$E0
& l% h- S* k1 w1 _$ h& q/ K
CLC2 S( l; y9 q2 ?
ADC <Data_Buf
2 I8 U* {5 a! O& P# }' s& c7 q
STA PPU_Addr,X* P9 W3 ~ N% i; ?; T+ S1 C4 W" W
INX$ Q2 S( B( d! g
LDA <Data_Cnt+ d4 @6 }6 Y1 G7 K$ k4 O7 W
STA PPU_Addr,X+ G6 E8 y5 X3 D. D; Q" V9 K
INX
1 E* l- n9 n2 j) G6 ]/ o& ^2 Z
Show_Get_Pos_Center_End" G& p) H2 c; h
RTS
6 R/ [3 R l4 P1 p1 t0 Y1 ]/ ]+ M# G
.ENDIF
2 @( L& M u/ ^& S& v, {5 F8 h9 p
' f: p6 d# E! N& w4 v0 v6 }8 c( B, L' F
;==============================
2 f/ S4 x* ]' M5 v
;音乐端口清除
3 J+ ? u5 f5 _; E
Sound_Data_Clear
& o/ y4 D" @* m; n
JSR Sound_Port_Clear9 \3 @& A2 R. d L c! S0 F
JSR Sound_Ram_Clear
3 |! o; x, V. @% Z6 N6 k# T
RTS
- G* }6 o3 J5 C: x/ {
6 b3 ~# {& F6 c& U- B
;==============================3 y. r+ T( Q' H/ g8 ?3 _1 x1 {
;音乐端口清除
/ U1 j+ j7 o6 n# I1 |- r. ]+ I2 w
Sound_Port_Clear! v1 l$ u) z2 q7 ^
LDA #$00
) m8 S, ]* p/ p7 g
STA APU_STATUS1 m4 x' U0 j1 T! D' X
LDX #$00' c. _& N0 X8 M; x/ K2 p
Sound_Port_Clear_Write
6 a* Q4 z$ j" j: U
STA $4000,X
$ W O# j0 c1 f( h* T! e
INX
1 b; p" q! b n
CPX #$14, K0 T+ _7 A1 } ]
BCC Sound_Port_Clear_Write
# Z- |4 Z; H- W( G
RTS2 }5 q% N, A. h4 t; }7 }
A# m% k1 N8 E( o' F
;==============================9 o, q/ R4 s& d" f8 z* }
Sound_Ram_Clear;RAM清除
, n5 p6 P$ L& }# {; w
LDX #$008 M* P+ Y u# d& b* D6 q+ s( [
LDA #$00, M" u! b) l8 d: c# B' y
Sound_Ram_Clear_1
% K3 f' O( _% _+ N2 F, G! D
STA Sound_Ram_Addr_1,X# R- {+ ]3 X0 s% g: {) K! i3 l8 R
INX* ^. s7 [# _* T8 z! L
CPX #Sound_Ram_Addr_1_Size. H* }- A- E# L9 b2 o* m
BNE Sound_Ram_Clear_1
1 g- y* {' d; E1 W) q% d: D
LDX #$00% j* \9 }3 g" W6 M
Sound_Ram_Clear_2$ D0 S, y6 p" Q4 L. C, O
STA Sound_Ram_Addr_2,X1 b/ F. e+ M3 I+ _
INX
& E: e- j# B" E$ o( `) f5 c
CPX #Sound_Ram_Addr_2_Size. m& O5 ~ S* E
BNE Sound_Ram_Clear_2
4 u I4 f# v* z' E9 ?
LDX #$00
) a( Y- w' F+ @) D D0 V
Sound_Ram_Clear_3
8 e) v1 ^! p Z
STA Sound_Ram_Addr_3,X
' L9 p R% N. B0 `* _
INX
. u4 z& k* J; {* b9 Q' j
CPX #Sound_Ram_Addr_3_Size: M( g+ j5 t M6 R, m# ^
BNE Sound_Ram_Clear_3
' x: Y5 n2 W0 g' ~1 M" t
LDX #$00
" |9 h. G% E9 X) f" Y7 u
Sound_Ram_Clear_4: G: }3 }/ s# ^* b
STA Sound_Ram_Addr_4,X; ]4 |$ u2 N- E" V% P
INX; q& t' K. B! ?+ m+ M
CPX #Sound_Ram_Addr_4_Size0 R0 O7 `* {' J3 Z
BNE Sound_Ram_Clear_4
2 ^& Y' }- L9 J8 Q" S6 ?: M
Sound_Ram_Clear_5
$ m; Z4 g8 ?' R n$ I
STA Sound_Ram_Addr_5,X
9 B/ D6 g4 H/ E5 T$ f+ A9 @' X2 J+ p
INX
( K! h; {2 i8 J
CPX #Sound_Ram_Addr_5_Size0 I. c) [$ @7 w! Y5 O% r
BNE Sound_Ram_Clear_53 P+ V1 Y6 p* o8 |) b
RTS4 P4 W) \' M+ M& z' A( f2 X. v
$ t3 X& \! B" ]8 P! y$ U
Get_Music_Collection_Name- i- ?, J& W( B8 Y: p4 C
PHA7 K: R* O( }: d' u$ ^
LDA <Music_Item_Cur
+ F8 P4 B5 w: y' E- \1 r4 w
ASL A4 L) Q% N4 L2 R' A" Q+ t
TAY
, G7 i% v7 Y2 S( C( C
LDA Music_Collection_Name,Y
9 U _; i V. K% d" L
STA <Data_L, m" m3 r. s' _6 L
INY
6 ~+ c. p' L/ V! C
LDA Music_Collection_Name,Y
, S' a6 I( U% m: X/ \$ q' L2 _+ i
STA <Data_H
$ t$ i+ c$ D/ A
PLA0 N& h9 O% j9 P! g) C9 n0 z
RTS
6 {0 Z/ j! R$ l4 C: X( q
/ a; Q$ l m E& a t$ U$ D7 n
Set_Sound_Total
, R. y6 x% ?, G5 O5 W0 [
LDY <Music_Item_Cur2 L; N; o) G# w8 b% e$ ^
LDA Sound_Total_Port,Y$ S1 H& @6 Q* {' I- p+ @2 r
SEC" o) X2 o. m' d" |# s0 U6 a
SBC #$01
' g6 ?9 k5 Q# ~, J- b2 |+ R G
STA <Music_Total
- g5 _# K2 S* n0 q* {5 }
RTS( n/ J1 t8 K3 Y2 a$ x7 A
6 }$ W; g+ X. L1 U- g( Y6 j4 x
Get_Sound_Start
1 x* F$ O& B7 y
LDY <Music_Item_Cur
0 U$ ?2 c- M- J" P& _6 U
LDA Sound_Start_Port,Y) L6 R9 Y5 I3 N5 Z/ J1 Z: r
RTS
/ j/ O! }8 Q7 p4 e$ c
! o, _% A+ W0 [
Set_Sound_Init_Port& m ~# r" W1 b% |5 _
PHA g( V6 x4 n' E1 T3 A: D" ?
LDA #$20
9 l: G( n2 {. M) W. M
STA <JSR_Addr_Op
3 z. v! Y* }) j# l/ n: Z
LDA <Music_Item_Cur
8 Q& ?# B: W0 A7 h6 n5 }, `8 x" ^
ASL A, x* M" [" R7 ^& }/ ^4 N
TAY6 j" h0 n9 E( ?" b
LDA Sound_Init_Port,Y' B, [& ^ @2 l. t- L
STA <JSR_Addr_L
; `0 r2 {$ `# P( a A& h
INY# `) V! j4 S) W. ^. g7 w' }6 n
LDA Sound_Init_Port,Y
2 O9 X: D4 l- Q- o
STA <JSR_Addr_H5 r i: [/ H( e: \% B
LDA #$60
: j3 z- }9 x4 j& X3 K0 e8 k) x4 V
STA <JSR_Addr_Rts& D3 F+ i2 N, a8 t' Y
PLA; Z. _; W% A( W) f- g
RTS
( k; E9 F: G) U/ X) [
6 H' R4 X4 v: G# l
Set_Sound_Play_Port
' V! h5 R* P# D$ x& U/ ] K
PHA
; d% f( @& L! e- K* ^/ G
LDA #$208 q5 v ?& y8 C
STA <JSR_Addr_Op0 I' A% S2 O- W# n {+ K& ^4 r
LDA <Music_Item_Cur
" A- P' K( d; m, C
ASL A0 m) R" f2 T4 D: g8 \3 H
TAY
9 n5 V1 r# i+ q8 g* n
LDA Sound_Play_Port,Y
: H) q+ f* D. R3 w2 E" x
STA <JSR_Addr_L
$ R2 A: h* O! J, }- s% P$ G, S
INY
6 X2 s2 F* w4 B# e" k6 C; s) t
LDA Sound_Play_Port,Y7 `/ k# W+ d3 V9 T/ m0 ]
STA <JSR_Addr_H
* k6 @0 t6 T0 \9 f9 y ~! Q0 w
LDA #$60! z+ k3 b) Q1 ^& _, s% u
STA <JSR_Addr_Rts8 c4 R0 J! M7 u+ J& D7 E( e7 ]
PLA
' H2 ]; O1 W& u
RTS
1 ?& I( U8 o7 @- }" Y
. x6 H- {, P$ {. ~8 h! A
Set_Sound_Reset_Port
: ?) @; d0 U3 H$ z% X) |- x& A3 G) y
PHA
, h" n* ]: q/ z W M
LDA #$20
B9 R9 X8 p' j# c5 k
STA <JSR_Addr_Op
G4 V# i/ V9 F$ R H
LDA <Music_Item_Cur
! r0 X0 Q1 E. e
ASL A1 ^2 v; c; j) B/ N+ n& m
TAY5 x! I1 O* A( N
LDA Sound_Reset_Port,Y9 R' r6 C; o; `- k8 s* M. k
STA <JSR_Addr_L* \6 X8 p8 m& k0 V
INY6 D; ^9 d% Y" i: v
LDA Sound_Reset_Port,Y
$ J! t3 N3 A7 _# ~5 r, a, Z2 w
STA <JSR_Addr_H$ K2 R7 u8 Y2 ~! j
LDA #$604 A8 a* E' ?2 L- }" x
STA <JSR_Addr_Rts
7 z0 _+ [3 `. Q! z: C$ q
PLA
& }( }+ s$ u: h6 {0 D+ P, [
RTS2 H' v4 w6 V7 |( }# t$ w
6 |! d7 o7 C ] R) f1 x
;初始化音乐bank- ?' g1 f8 e" [. S9 h8 v
Init_Sound_Bank
: \# \! p: L/ I+ Q1 w! c- w5 u* ^
LDY <Music_Item_Cur
+ N" b, z5 c, A. R2 ]+ w2 m
LDA Sound_Bank_8000,Y
4 Q# z1 B. r* I6 l. v
STA <Music_Bank_8000
! u0 {$ ]( Z5 k; o2 q8 R
LDY <Music_Item_Cur
6 B5 q j5 D$ O X
LDA Sound_Bank_A000,Y. c" ~- B! n9 t- X- S
STA <Music_Bank_A000) H/ w+ {8 L0 r2 Y) f2 K7 D! i/ b
RTS1 g" g+ J8 C& l2 R5 M, M4 k
+ t( Y" z z3 F% k8 \
;==================================================
5 N0 z+ C9 u' o
Sound_State_Reset;音乐状态重置
4 R. ~0 Q6 Q/ Z
JSR Music_Bar_ReSet ;重置音乐条
. i! M6 @: X# e/ x$ q
JSR Time_ReSet ;重置播放时间
! Y5 e s7 B1 B3 {6 `" t& X& [! L
0 T$ G v0 S$ b$ l f6 [
LDA #$00. p; C2 K2 e6 P' f% A+ Y' j0 G
STA <Music_Stop_State# y) j9 }: l" S! q: `
JSR Music_State_Show ;显示播放状态$ {! N4 M* ^/ m; X9 @
% M6 H2 S& i8 ]) ^$ _
.IF Track_Name_Pos
- ^9 e8 B# `4 e. h. w
JSR Show_Track_Info ;音乐曲目名显示, x7 ?# ~2 v6 O4 b+ {+ F
.ENDIF
+ B- J `- W% @; n' ?% k% A/ v C
0 [4 e( u. y& V
RTS
' ?4 e4 c6 X) K# M) k% i+ o9 Z0 b
% W) ^( \0 U7 U! m4 x. U* B
;==================================================
( f+ m/ y2 D8 b8 P
Sound_Init_Proc;音乐初始化处理6 h, B! J& _ J0 i, A- f5 X: a
PHA
! I7 |& P: |+ d: @. Q- |
JSR Set_Sound_Init_Port ;设置音乐初始化地址
( V# n" S$ L3 [
LDA #$00
3 z- w# M3 b: p, J" h* t
STA <Scroll_H ;重设水平滚动, E, y' u6 _: o
LDA #$0F$ _! h) Y4 G: U" n. y, h7 _$ l+ s
STA APU_STATUS, M) {) ?4 R: |; P' o2 W
PLA3 D* a& i/ S4 ?4 y1 V$ r/ e
JSR Sound_Init ;音乐初始化
% i R" w2 ^# m$ c" x
JSR Sound_State_Reset ;重置音乐播放状态
$ Y; m, f B5 {+ K4 K+ I
RTS% e, r; ?% G* z3 S! }* R
2 O% O: e% d" u k1 K
;==================================================
9 t6 D0 \+ U# Q1 V' f+ Y. ~) q1 l( c
Sound_Play_Proc;音乐播放处理
. B |/ t" ~/ m. d3 V
JSR Set_Sound_Play_Port ;设置音乐播放地址
7 T! a z, I' c% G4 ?1 p
JSR Sound_Play ;音乐播放
& x) V, O0 A* e9 H0 F6 A
RTS2 Y, _% E# w% Y2 t3 M7 ^1 ^
# S. v2 L% K* B1 g
;==================================================
8 {0 D* F! @; R: y* l
Sound_Reset_Proc;音乐重置处理1 {! U' R2 {6 S& g& W2 P
JSR Set_Sound_Reset_Port ;设置音乐重置地址4 u, V9 R* {, M5 Y
LDA <JSR_Addr_L. J3 u* ~" p/ t9 H# w
ORA <JSR_Addr_H' p" X7 u* g8 ~5 x! Z
BEQ Sound_Reset_Proc_Default
1 i% \( W/ W4 @- k2 a$ k2 }0 ]4 P
JSR Sound_Reset ;执行音乐重置
8 v9 L, @, R- f* B7 U
JMP Sound_Reset_Proc_Init_Sound
3 L9 u2 _- _% x8 _# n
9 d# N: s$ ^2 Y3 Z& x6 ~; l
Sound_Reset_Proc_Default ;默认音乐重置处理7 Z/ k0 z# T* S7 d* i% y8 U) E
) w B5 ?; Y* R0 e1 B/ ?; M5 d
;清理内存很耗费cpu周期, 这里禁用一下NMI中断1 D, p+ r& P0 \8 K5 D9 L; p5 o
LDA #$00
$ B5 `" _' [5 H- d* }* ^
STA PPU_CTRL b( |: z: U7 W' r' f1 H" M
+ K, B0 J: R" ?
JSR Sound_Data_Clear
/ I; u! T- a( x N; z% Q$ S \
! w3 [0 c6 \" M
Sound_Reset_Proc_Default_Wait
% ]: q# G( ^6 i2 U. h
LDA PPU_STATUS9 R- j; {9 c2 H* a7 b- W
BPL Sound_Reset_Proc_Default_Wait
( l. v2 ?' X' F' K I. P
5 j0 s; A* ?- L
LDA #$001 L" S1 O( T5 M3 ?3 W8 \
STA PPU_ADDRESS
$ {: c* _0 ?* q& g
STA PPU_ADDRESS
* E" U" r$ e! C: }4 y& ^7 n
STA PPU_SCROLL4 y2 g9 t; }# R7 f$ o" g
STA PPU_SCROLL
" A& G) }/ \+ O4 B5 W( N
5 y& `% H: [+ U; b: u
;恢复PPU控制
9 m, d; K: g/ X; u7 G
LDA Screen_Ctrl
. R; p$ N1 F( _+ z3 `2 H
STA PPU_CTRL
4 L3 n! f% v I6 @3 ]% j3 b
. q9 d0 m% b& a5 M7 z' w5 o
Sound_Reset_Proc_Init_Sound; |) K3 O/ @5 v* T2 x' O4 i
LDA <Music_Stop_State0 ?3 l1 E3 M- q
BNE Sound_Reset_Proc_End4 ?% A S) _ w4 h
LDX <Music_Item_Cur7 I5 B$ x& p% N$ t
LDA <Music_Cur,X# I1 h0 e) f7 N
JSR Sound_Init_Proc
1 j* \7 D% V0 j2 S2 O1 k
Sound_Reset_Proc_End
) l* c5 Z+ u F
RTS
$ C( ~: P5 s( r
8 q1 N8 j( S. r4 T% F' X4 Y9 y; i
;==================================================
9 }; m$ B3 I" k
Clear_Item_Text;清除页项目
8 W' R& F( r8 k& I7 G* e. [
LDX PPU_Cur
0 |$ l% E4 g6 ]: p, j
LDA #PPU_MODE_CNT_CLEAR5 O$ m1 {% O3 g9 Z2 s* s
STA PPU_Addr,X6 C7 Y$ V. X6 t9 @. D
INX$ u1 e# q! ~" Y4 A2 g, Q! H7 e
( I5 n! R% l% E6 u$ O
LDA <Page_Last
8 T& f6 u) |! ?& ]: O: s$ Z
SEC' w9 Y/ @. t* u1 [( Q
SBC <Page_Last_Index) l! W( v/ w6 S5 h F
ASL A
7 g" [# l; U+ ]& N
, p$ H2 \3 _4 l' x& Z$ m* x& C$ L6 ?
TAY
+ `& O0 B9 l2 K$ J6 h- G
LDA Item_Pos_Data,Y' A' q- y4 Z! q8 D. q
PHA1 V, \; {9 X7 N) M# M2 W+ p9 a
INY* L. B3 y/ O. g f/ t; Z6 \4 m
LDA Item_Pos_Data,Y* b; _/ G0 e2 F: W
STA PPU_Addr,X# @" Y: [1 O8 Q4 @/ y
INX
5 V. E/ X$ `2 h$ }# W
PLA
& z+ d! i$ s1 ?* J W
STA PPU_Addr,X: I6 |8 { v( Q/ i! L* v9 D; _, J
INX7 I8 `! J! X, B5 Q1 q9 p. g
/ _9 p; \* x" H3 q
LDA <Page_Last, ~7 E; f& F" P* ~0 L
ASL A
" }" N0 v8 ^* c* n
TAY( a3 P; @" C6 \
LDA Music_Collection_Name,Y7 j) k% f$ ? L) W
STA <Data_L
! Z8 p( l. N2 [! k* A! j9 b
INY% Y1 k, |! B, Y7 n, h- q, C+ p
LDA Music_Collection_Name,Y
0 t9 p$ p) v! N# M6 m6 E
STA <Data_H5 B+ Z+ x& y4 ^
7 J5 D7 J! p7 }7 S% F. i
LDY #$00
# P2 D* V! m, h: \ e8 p
LDA [Data_L],Y' Y9 J3 }/ _( M6 N4 Q
STA PPU_Addr,X T* s' m! u8 g, `) a* R, q4 e$ ?
INX
4 s5 g) s1 S% R7 P1 c, n7 V0 U- e
Clear_Item_Text_End
% M3 s! c" x' W
STX PPU_Cur7 q" A3 q2 o/ _. L
RTS
- ^6 y& W9 w' F5 b" V8 g- f% S
5 D8 U, [2 R% L) ` b
;==================================================
4 A4 O( v1 a( v% S6 |1 w% ]: n7 H
Show_Item_Text;显示页项目( e/ C6 t! Y! `7 r5 K
LDX PPU_Cur
F: F# v9 z8 s' @. L8 h T$ d
LDA #PPU_MODE_CNT_LINE
& A+ N& E' \5 ]6 C
STA PPU_Addr,X+ N5 ]4 Y3 O/ y' W
INX
* ]$ p2 `9 w- c6 V% o9 N, G1 F' \
LDA Page_Cur2 p5 c: [4 ?. y4 {
SEC' d' k- _& c: @
SBC <Page_Cur_Index
: I5 X# ^+ a8 T$ D+ b0 v2 x2 a% n
ASL A
- y- U/ @" I% O5 p) E
TAY" W& L# v' v! z' R4 f* W
LDA Item_Pos_Data,Y
& i8 c+ p9 t+ h1 F" p0 v& K4 D
PHA
- K9 g) s& H+ ^ y( i6 \
INY; F5 n. ^. e; v( b/ j
LDA Item_Pos_Data,Y
( I/ W' X) I* J( q! H
STA PPU_Addr,X" O% \% Y- d2 S/ |
INX3 Q/ J$ M8 }' _, u4 Z# C3 `
PLA- Y( z7 w, p; l- p
STA PPU_Addr,X8 _( m# ?8 }6 C7 P
INX
* {, {) A: ~4 [/ X5 p( ~$ L
- D/ S4 z8 H8 F! \6 j
LDA Page_Cur9 ?1 v( u4 b! v+ ?0 s
ASL A5 l p, l3 E/ m) Y( n8 m6 H: V
TAY
2 x$ E4 ]5 N, t6 K# {7 |! O
LDA Music_Collection_Name,Y
) q* ^& {8 q% c; u: F! Z& @
STA <Data_L
% N* Q$ Q- M6 l7 h
INY9 h* J+ f' ~/ Z- X
LDA Music_Collection_Name,Y1 L+ v! g% Y& M) s1 t: w
STA <Data_H: e, ]( J3 { ~( Z( ~5 [0 k/ y
: W5 t% D8 k/ L' |: S. U1 B6 q
LDY #$001 H3 q4 F" L7 \2 C
LDA [Data_L],Y
a1 H A: L; s5 V# H4 T1 T& u/ C
STA PPU_Addr,X" W- l r1 Y' ^8 w
STA Data_Cnt5 U I, m1 v" P3 A8 I, j: ^
INX- {; x) J. Y: H+ F) }2 J/ {; N4 W
r- j# e* v$ O4 e9 M. K
INY Z( l: ^5 U b1 U
Show_Item_Text_Write
+ V7 n. \3 h. ~; k% P
LDA [Data_L],Y
4 [3 X9 a2 x- j) r
STA PPU_Addr,X# r* v# U$ d1 C2 ]
INY. q, L' X* z! L, \/ L8 o6 P
INX/ u. i4 V" V1 m+ Y# T$ C
DEC Data_Cnt) ^( P3 Y% c2 s* W0 O3 ]
BNE Show_Item_Text_Write/ s4 H% \4 U$ [2 {) I3 L' v
7 d8 R- @$ A1 p) a, @
Show_Item_Text_End
- \% M, `2 T. L$ W& Y; _
STX PPU_Cur
; [! [0 f% N1 i# o0 f
RTS
) F6 I. z0 u% B, n
$ c8 g* D) S; {3 X' f1 v
;==================================================1 k: |* h) z) W5 `
Get_Page_Start_Index;获取当前页号起始与条目数量
) x8 `+ ~5 Q& X$ H3 w) b0 q) A6 ~
STA <Data_Buf: a8 k& L4 m$ B
LDA #$00. M% i) H( I8 _* r& _# I0 T
Get_Page_Index_Calc5 C9 x8 K, ?: D; ~' v% e
CLC
/ {4 b: l/ u8 m1 j- K. m
ADC #PAGE_SIZE1 Q( }4 ~, F- r5 [8 q/ z4 L
CMP <Data_Buf/ H1 Q7 r! u8 z7 z# E0 S
BCC Get_Page_Index_Calc7 h6 q! b+ O$ A( d* d# t
BEQ Get_Page_Index_Calc_End6 l- W3 b% N" s7 _6 m8 K% v& P' r
SEC& Q8 V1 D7 Z/ H% T! ]9 ^" }
SBC #PAGE_SIZE3 y. x0 [4 D0 Y+ U; ?& }
Get_Page_Index_Calc_End
2 k8 ?0 z' z8 H, i/ l+ o
STA <Data_Buf
1 {, L J- {! I. b3 L1 s
Get_Page_Index_Cnt
7 m% `& M; Y# g/ D1 }
LDA #PAGE_SIZE7 E( X/ l3 o1 B9 q$ a
STA Data_Cnt
3 {/ j8 Z/ u; V# ]# c* r
+ _$ c) r$ Q% i, B9 F
LDA <Data_Buf; v; W2 x. n: G, h/ T
CLC( k7 K/ F; x3 a! l
ADC #PAGE_SIZE; K! o; e+ C$ f& J3 u
CMP #ITEM_MAX_SIZE! r% P2 N; @: f1 z
BCC Get_Page_Index_Cnt_End
$ E8 ~1 }9 ]# ^# T. ?# S
! L: X8 ^7 V3 |! M, J
LDA #ITEM_MAX_SIZE
& q1 h2 C+ N4 D! S. M
SEC
) B# j1 f* d5 _$ M% G+ H2 V& T9 W
SBC <Data_Buf- F4 U; M: m( T" S
STA <Data_Cnt" n0 p7 k5 ^5 c6 ]& n# z
" y+ ^6 J" Y$ H8 h* A
Get_Page_Index_Cnt_End5 {! Z. m/ i4 `; g
RTS
q. i" y7 X3 S! i$ g# L
4 X N8 _4 s( v! t
;==================================================
: {0 ^$ E) i8 ~) h" Q k; s
Get_Last_Page_Start_Index: l# N3 D$ Z( G' Q: M0 l3 P7 i, a
LDA <Music_Item_Last0 Y# Z) P+ O- a2 h
JSR Get_Page_Start_Index
- o b% @% ~' Y7 Z
LDA Data_Buf
8 ]' c( @! _5 q D# s% x+ Q" g! Y
STA Page_Last; n" @/ x5 U, q/ U5 G1 p
STA Page_Last_Index
9 y4 A" ~5 k. r9 s/ V5 v: U. ^
LDA Data_Cnt1 z" P3 T! ^% d2 B+ e
STA Page_Last_Cnt
# B4 ~6 {" V( n
RTS" x4 g/ S2 |$ u. B5 O. Z# C
( g. j7 K( ?5 Q: l7 q1 P; B6 p6 S
;==================================================# k; Y5 A, Z! H% q) K
Get_Cur_Page_Start_Index
+ x5 c* X0 K0 K" o+ @* x$ X
LDA <Music_Item_Cur: q: M% H2 r) B' p3 C& I6 |' v
JSR Get_Page_Start_Index! \. O0 V, V( D/ v
LDA Data_Buf4 n" V8 C! w. \# ]0 F5 D) Y: z
STA Page_Cur% o: r' Q5 l" c4 C
STA Page_Cur_Index7 Q) B$ s. R" x. m0 }
LDA Data_Cnt+ [* m( }& |9 I: T
STA Page_Cur_Cnt9 ]! g p- }, { L
RTS
- V0 a& J+ I/ v: y; ]
, S( |$ y8 h8 j; ?' o3 v m2 \
;================================================== D' |9 g8 ~( U( r0 f
Show_Page_Text;显示页文本
& B& s# A, f7 y' _
LDA <Text_Disable_Flag# ^. d8 g, a9 w* R
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME | TEXT_DISABLE_ITEM! D/ F6 ?0 z+ f+ b4 H1 n% k+ j
STA <Text_Disable_Flag
0 W S5 Z+ Y4 {' F3 O! d
4 l u; `: I! r6 F
JSR Get_Last_Page_Start_Index
~! a( D# v# t. S) D% j: |# ^
JSR Get_Cur_Page_Start_Index
, R+ h: n4 V" f& p, ]6 a* c
5 |( K" \5 J, u7 f* G4 o% j8 M4 {/ e
Show_Page_Text_Set
( S# |- @4 Z! G+ O7 _5 b
~" ` D$ x! c
Clear_Page_Last_Item;清理上一页
" B5 |! z& Y/ D6 R0 j6 W) {! l
LDA Page_Last_Cnt
0 Z3 _2 P j4 U' w3 R
BEQ Clear_Page_Last_Item_End
* o7 z8 j% z5 F* W" z- T7 F" d$ |! W
JSR Clear_Item_Text( G& `+ b9 C6 g6 T
INC Page_Last
* C/ z1 E7 h( ^: F0 [6 T
DEC Page_Last_Cnt
" U0 L5 @1 _9 R l
Clear_Page_Last_Item_End+ P# _+ ]0 r9 c* A& w$ {/ E( i D
1 G6 P# R# \% }" ], D* P
Show_Page_Cur_Item;显示当前页
6 J5 P5 w' ]% b2 R j5 q% }# e
LDA Page_Cur_Cnt
0 y( N- ^$ b, X
BEQ Show_Page_Cur_Item_End
0 _; a; c$ Y! b5 U. e$ o, c, l' |
JSR Show_Item_Text
3 ^; A; _' p% ?" ^9 B/ V
INC Page_Cur5 U1 W! p# L S' K. @- W# i
DEC Page_Cur_Cnt3 s, z3 I+ t/ ]+ O, G
Show_Page_Cur_Item_End# C8 w( E. R5 ] N# S2 `1 s& ~
% t9 q: B7 m0 `: {9 O' a5 _6 W* a7 l
INC <Time_Wait_Cnt2 L7 W* x& r" w4 _: `& B
Show_Page_Text_Set_Wait;等待NMI完成PPU操作: D0 c5 f1 N$ A0 ]/ n: c0 P3 c
LDA <Time_Wait_Cnt
z d& l1 p$ I/ v, ]' [
BNE Show_Page_Text_Set_Wait) I) y% _8 ~8 X- I( c3 p
: `) y" }% b" Y7 Y
LDA Page_Last_Cnt
! W: |% V$ s0 M! C" i0 r4 n+ q
ORA Page_Cur_Cnt& W, ?" g2 B" l. j& k3 |
BNE Show_Page_Text_Set
% T: w% w9 q5 y8 g$ q% q z8 A1 y
LDA <Text_Disable_Flag
3 E2 b. H6 y% ?
AND #TEXT_DISABLE_ITEM ^ $FF% r6 j& g6 F9 ]7 G
STA <Text_Disable_Flag
) [; t# f3 D( s0 v$ W
RTS3 z$ v! ?3 o) X, c
4 Y* q# p5 j4 S
;==================================================. z1 K8 D3 r; f
Last_Item;上一项
9 y. E( t( Y3 H; u! m' p* e' a/ R
JSR Clear_Last_Track_Name
" [" O( {/ D8 A. F t7 E& r
JSR Disable_Text_Draw
% j- S7 d2 X, |; C; Y" v+ a {
+ M5 O( W ]8 n" u }& j
LDA <Music_Item_Cur5 D( L7 t$ {7 `6 k0 E2 Q
STA <Music_Item_Last) ?! H& _' e. L& z; s& S, `9 e
! S/ f' E/ f! f( P( J
JSR Get_Last_Page_Start_Index+ }1 B* Y! Q: A0 A
* j( B5 R. z9 q3 c+ w
LDA #$00# x8 b& Y/ Z; G$ `4 d
STA Data_Buf
# A' V. l( X1 `5 n( n& Z
* B- H. m3 @4 r, w, t
LDA <Page_Last# U g% z5 q; ~$ j& u; `
CMP <Music_Item_Cur
/ }" ~* D, Y0 t7 @4 y, x( q
BNE Last_Item_Begin
) h' v" V% F' c r2 U
1 u1 g: Y G e2 R6 a( o1 k
LDA #$01# v; j" b+ W" g6 K9 E R5 k
STA Data_Buf
$ m4 F4 m% G7 i
Last_Item_Begin
3 f4 T+ @; ^; x# T3 q) M
LDA <Music_Item_Cur7 A8 W9 @0 r5 E/ S, i5 d3 Y+ k
BNE Last_Item_Set( w: K" X, B! d4 E
LDA #ITEM_MAX_INDEX + 15 p+ K3 e3 D% f$ r9 }: r; X
STA <Music_Item_Cur
, [7 q4 X, X- M$ t6 K" n. U' X
6 o# z6 _5 f8 `0 a& c2 i9 y8 P
Last_Item_Set
% L2 s: B0 X' v7 n6 h0 J
DEC <Music_Item_Cur
5 t7 Z/ v3 V! H! b: i- k9 [# f, w
LDA <Music_Item_Cur, q- z! ]7 `* ~8 d& l
JSR Reset_Current_Music7 H1 R0 a1 M' }! _: A7 i& H
) i5 e& K9 s. h* |
Last_Item_Play: ^4 K1 Y( s! G% U+ {
LDA Data_Buf; d6 {7 I( v! q0 ~
BEQ Last_Item_End
- ?: ] L5 k C$ _# D/ J
JSR Show_Page_Text
7 I1 f3 \9 l( T3 R
Last_Item_End) o* ~4 B! t& o, `
RTS
9 x3 g% @' q. D: h8 V. R
8 e$ Y( O o9 L' q7 Y' x
;==================================================
* O* D7 |- }! Y* \; H0 P- l
Next_Item;下一项
, t' b q# y' q [; B' Y2 e
JSR Clear_Last_Track_Name5 }1 H/ d2 F/ Z) L4 O# g. \: z
JSR Disable_Text_Draw
6 Q: S% z; C% c
- f; H# U5 J, ^9 y
LDA <Music_Item_Cur0 @. a' K* x, v; @9 h. {" U: ~
STA <Music_Item_Last
; h5 h' z% Q p/ i
8 J3 C" W) q/ |# G7 V6 w
JSR Get_Last_Page_Start_Index
+ I; s0 U! N% V$ {* l2 l5 {
$ N) w$ ]7 ^7 ]) b6 a0 j7 ^
LDA #$00
9 v# j& @/ S% V$ h8 G
STA Data_Buf9 c. P5 z: }. i* O/ u
7 \/ S, P. k. M. f8 b+ Q( Z
LDA <Page_Last
) M7 F& q9 i8 y
CLC
' P; x$ P- r4 f+ p
ADC <Page_Last_Cnt* b3 Z3 C1 b( S
SEC+ [4 J, G* D1 R a1 c( K: I
SBC #$01" i z2 C! x1 b r: M' p
CMP <Music_Item_Cur
c2 x, K8 x q4 }- G6 h3 p+ k; ]
BNE Next_Item_Begin
% }- ` ~: |9 x. v, b! w
- Z4 d% s* x' M7 R, ^2 p$ D1 V
LDA #$01
" h: H: u5 B; e3 F' ]! q& y+ w" n% }
STA Data_Buf0 `2 z3 ^, ?6 v' w5 f# Z P
Next_Item_Begin
( q' Q0 ~) ^4 q
LDA <Music_Item_Cur! `8 s/ V" O; Z3 {) E6 G
CMP #ITEM_MAX_INDEX
. J: ~. ~ L- l' u c
BCC Next_Item_Set
+ I, q2 Z3 U6 h7 P9 y. @
LDA #$FF& B3 ?) A5 j0 a& j6 Y( m M2 R: l
STA <Music_Item_Cur4 T; z. `- n$ V- b) u% k' R
Next_Item_Set
9 f4 M2 ~9 j9 @2 s n6 T
INC <Music_Item_Cur
V' t# Q+ a1 q: Z8 Q' g" p
LDA <Music_Item_Cur6 G! }% E: `$ ?7 U6 q2 F
LDA <Music_Item_Cur1 T" x- h- Y0 w; b4 [1 S: F# N
JSR Reset_Current_Music0 K/ O! c# L! I3 v3 i& b
Next_Item_Play
- z; o8 ]9 u f) e8 l4 v5 G
LDA Data_Buf
, ?+ r# Z2 q( a/ J5 j7 B
BEQ Next_Item_End9 I0 V' f; V" a/ \1 [) w
JSR Show_Page_Text
2 ]% x% `5 b h
Next_Item_End% T. O6 l6 u$ q- ~; c2 w! h8 [
RTS
( { z& R4 u/ ^& Y5 K* N& X% |, M2 ?
( g7 W6 A) Y8 D$ }( F
;==================================================
9 R4 l( U+ F5 {
Last_Page;上一页5 M" r4 O q4 H+ h$ \! |
RTS% u5 G) `: x% h3 v- N6 y
1 Y! y1 U- V0 N) K
;==================================================: f- a$ ?0 s. n @0 g4 o( H g
Next_Page;下一页
! B: M) o1 e3 q: @4 u
LDA #PAGE_MAX_INDEX
$ _% D& f* Y, S5 K! L& ~( y. B0 H. s
CMP #$01
. d! w, ~ K$ m J# Q
BEQ Next_Page_End7 x8 B' n- A+ D& a4 T9 v. C
2 p% r, j& s$ y4 [# V. Y
LDA <Music_Item_Cur
& b+ Q' t6 l9 K0 f" L- q$ i
STA <Music_Item_Last
2 G* J; _. o" ~6 ^9 {
5 f8 `4 N/ {. h1 K- J' o3 J
JSR Get_Last_Page_Start_Index, E' s$ Q5 U# B. q
7 G1 P& @8 `% Q2 y5 i
LDA <Page_Last_Index8 l% _- z% ?; _8 x. Q8 N5 X
CMP #PAGE_MAX_INDEX0 W1 G P0 ^+ c! b+ |
BCS Next_Page_In_End_Page# R) r. |, z' F+ ` [; Y- C
6 b2 J6 x0 @7 r1 R, X0 R/ z# Y
Next_Page_Not_End_Page;不是在最后一页. }& N6 L. [7 Z3 E# {
LDA <Music_Item_Cur
& B% m9 }" e" C# S5 ~6 ~
CLC- q7 [0 q5 I0 F! p% C' v9 e
ADC #PAGE_SIZE
. L/ ~5 N8 @% D
CMP #ITEM_MAX_SIZE
7 u4 h; f2 B' d" L
BCC Next_Page_Not_End_Page_Less
LDA <Music_Item_Cur" i' v+ }7 O7 j" L" o
SEC
* M( n, ?, ]. P5 O% F ~
SBC <Page_Last_Index7 D( r/ A+ ?* [! b
CLC
- ?: f: O! Q, c7 M7 \
ADC #PAGE_MAX_INDEX$ n) B! X5 v1 D) B
CMP #ITEM_MAX_SIZE
( r9 r+ k; ~# B3 r" G
BCC Next_Page_Not_End_Page_Less; B* |8 s A ?3 X9 h
LDA #ITEM_MAX_INDEX+ c$ T, d! {* S. |
Next_Page_Not_End_Page_Less
9 A' `0 R2 Y2 Y" e1 ]7 V; W9 D
STA <Music_Item_Cur; }$ s" Y3 ?: q2 R- P0 l
JMP Next_Page_Reset
6 z5 }* V: R5 r& j
2 T$ m$ C t+ P* X8 q
Next_Page_In_End_Page;在最后一页
# P+ Z: i" g4 p8 i2 L
LDA <Music_Item_Cur
6 F& L. P( H& q+ @6 M
SEC
' t( @) Q3 ]0 y- O- p7 F
SBC <Page_Last_Index8 u: R* F( [1 C) H
STA <Music_Item_Cur1 X0 C/ {' K# ^/ |4 _
1 `/ ~1 q% s$ N9 O) e' x
Next_Page_Reset
( [& U' ^* H5 v* O9 i
LDA <Music_Item_Cur, x0 ^4 z: z0 _$ O4 ?6 R! v
JSR Reset_Current_Music4 b( v u) u2 w
JSR Show_Page_Text+ |$ M- o% k( n
Next_Page_End- d( Z8 B8 j4 @5 u8 C/ w R. t. \3 l
RTS
. Y, b, \/ Z" F' F7 w1 d2 r
* E0 `1 e/ K8 j
;==================================================
: `# G9 Z2 k% U1 }/ ]' J
Disable_Text_Draw;禁用音乐条刷新+ ?: T$ G/ @6 D' T" r
LDA <Text_Disable_Flag; J2 z7 k. i* O( ~( S' O+ r; y2 N
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME
) O R% R1 B4 l# [* t% _
STA <Text_Disable_Flag- y1 V$ W# [- x
RTS- n! Q- y3 G& O3 q* ~% r# H
6 D' q- Q$ q9 f2 Q
;==================================================
' B' a, I# N" u% l7 N
Clear_Last_Track_Name;清除上次曲目名
/ u' c# }+ U& e+ h: r
LDX <Music_Item_Cur; R' G" E$ W1 d
LDA <Music_Cur,X
) |1 w# {+ G9 f7 y1 I" O+ P" j9 }
.IF Track_Name_Pos& W& S8 U7 }7 M0 w! J+ M) A
JSR Clear_Track_Info
9 H: D$ h6 B- f& L
.ENDIF- M" a" d+ E8 u. D
RTS1 j0 ]$ x7 F3 W8 @
3 h# @" j$ G' E/ J E8 J
;==================================================3 M) H; J# e$ X# q9 i; W) I
Reset_Current_Music;重设当前曲目2 g( X7 t: p5 R o& p
, k/ P7 I/ y6 ~' }4 i
;写入当前总曲目1 R8 c$ b3 n4 Z! \+ `
JSR Set_Sound_Total
3 }- Z1 u% y8 b0 j+ l
LDX <Music_Item_Cur
8 `$ i }3 i, w! c/ r+ g& S$ Z. S
8 N/ d1 |% K# O A
LDA #$00
n% U5 S5 t3 E6 Y4 g% W' n
STA <Music_Last
B: `$ L9 |+ b+ u
; Y2 S; n# j. A; A2 D. l: }
JSR Sound_Reset_Proc( H2 @3 p5 K: R! m' C: \% ~
JSR Music_Show; K/ w7 ]+ u" X$ P; U
RTS
) l" _, N: Q) T7 w. N4 h
" N. n$ b+ B' Z" Q. ~2 V4 E
;==================================================
! C; H4 H1 v( A* Z( z
Music_Song_Stop;音乐停止, E7 g& x& R+ U7 j
LDA #$01+ M/ q& v* e7 l6 I
STA <Music_Stop_State
2 {+ ? w! H6 m6 [: X3 y
JSR Music_Bar_ReSet) C) h8 ?6 P) w, {. Y
JSR Time_ReSet
# [' C: J+ U% x5 _+ N$ _9 P( X
JSR Sound_Data_Clear
$ X* `* g* \6 s2 R7 S8 A {4 G+ P8 {
JSR Music_State_Show2 k( v% ^3 q9 f/ E! R! g
RTS
9 q' n6 \, j& g! W- |4 g
. X. Y6 S. C& X d1 c
;==================================================
& x7 u* b/ U4 \
Music_Song_Play;音乐播放% ?$ G6 H1 a" }/ m/ h
LDA #$00
. O4 q! ]# V# h
STA <Music_Stop_State
) p' R; a3 B5 L
LDX <Music_Item_Cur
2 B) C2 \5 w' h( m5 h
LDA <Music_Cur,X* u, ]$ |# h8 q1 t
JSR Sound_Init_Proc9 X+ S4 z1 r5 B
RTS
6 z- ^4 u' R( X# v5 v
" X+ n. P. E8 K$ Q: `
;==================================================- L- o# z5 {5 a* b" u9 [
Music_Song_Last_10;上10曲: s1 {" [3 w* r) t2 }$ M
JSR Clear_Last_Track_Name
' [# P* A( x# J
JSR Disable_Text_Draw
0 g% T/ y, P+ F2 U3 l( U
LDX <Music_Item_Cur' C% D0 q' {2 E5 X
JSR Set_Sound_Total
0 _0 ^" C' o+ D) x5 A
LDA <Music_Cur,X: y; J4 j, ^3 j% {( z) W7 N
SEC
6 O4 S) k9 ]& a0 z2 A6 F! Y; ^
SBC #10
2 W- _. k; \9 e/ G8 R0 z
BCS Music_Song_Last_10_Set
0 t9 W9 w$ o& U# V4 q
LDA #$00
4 F' \2 b; V( N7 O7 \9 _8 M
Music_Song_Last_10_Set
; F( C1 y7 H( I/ c" T/ {
STA <Music_Cur,X; U6 u* H5 T! C- V
JSR Sound_Reset_Proc
! V& @. y5 C0 S4 a2 W% h# \$ o
JSR Music_Show# r1 Y$ b2 o/ a* B
Music_Song_Last_10_End# w- h! k5 `7 z* Q M
RTS
. w2 T+ P4 x' A8 R" u* n5 T0 }0 k, \& _
% M8 V/ E4 m# j& C' z6 f. p0 P
;==================================================
' Q( h! G4 b- n" H. e. M
Music_Song_Next_10;下10曲
7 Y# M5 _5 Y5 g2 ?) `
JSR Clear_Last_Track_Name$ x& S6 _) Q9 n C! j y% r; D
JSR Disable_Text_Draw, j/ }1 g2 r! q5 t* w/ G
LDX <Music_Item_Cur
5 N4 N' ]5 l) _6 t' _! `2 u8 O3 k
JSR Set_Sound_Total* T' g) A) [: L! h. E8 L) x
LDA <Music_Cur,X4 Q5 h1 U7 o8 h* v1 h" u
CLC& S, Q" M/ ^; F" X. T: X( R# Y
ADC #10# o4 Y7 Y% v y% e+ E; O( O
CMP Music_Total3 y1 H3 v" L. Y, L! m
BCC Music_Song_Next_10_Set
, G( G4 f5 i* V C6 y2 Y" @
LDA Music_Total- n% G* e. @6 Y$ t$ l+ u
Music_Song_Next_10_Set: I! m: M) O# |8 a5 e2 w# k; C7 T/ \4 U
STA <Music_Cur,X) P% w6 K1 A, D0 }
JSR Sound_Reset_Proc
2 ^5 k3 T _. k$ Y& x
JSR Music_Show) j/ Z/ G! K3 Z2 W' i ?
Music_Song_Next_10_End7 z* A9 h2 a9 z( S
RTS
0 ~# u- s5 O# d W; h
% |3 C$ L# N7 @! b
;==================================================
' H5 Y8 k. B, z( a
Music_Song_Last;上一曲 u$ e2 w# w. e+ z
JSR Clear_Last_Track_Name% s& p1 ~" @3 Y6 V" Q2 `3 D
JSR Disable_Text_Draw2 t, e1 y' u3 C& i5 Y
LDX <Music_Item_Cur3 Y% i2 |5 d8 g# t( x9 E% P' j4 f
JSR Set_Sound_Total- q6 ?# i9 p3 ^: L# P! B4 R
LDA <Music_Cur,X
2 X4 T& ]( x7 I1 E, o) Y6 x5 |+ r$ A
BEQ Music_Song_Last_Set
5 f# q" E, a# C' P
DEC <Music_Cur,X
6 j& c! }2 i. w2 X& C
Music_Song_Last_Set
9 c$ |) y4 m7 O6 C4 d! a" D( v
JSR Sound_Reset_Proc
, U" c* T! w" p! k9 b8 Y3 X
JSR Music_Show
& F: R: {8 [9 I0 h" v
Music_Song_Last_End
" E: g p+ b" Z4 e9 s
RTS
4 z/ H* S0 @2 R- o) k- j8 B
; p6 b9 o/ i3 R/ a
;==================================================, s3 i0 i9 n$ Z; D# V/ H% C, S
Music_Song_Next;下一曲
; y1 a& B: ], N0 |- q! P& y
JSR Clear_Last_Track_Name
; v+ I4 n6 X0 H3 D) e; T! D
JSR Disable_Text_Draw
6 O& X: P3 {# P6 ]4 g
LDX <Music_Item_Cur' J" D" t# _2 D- X
JSR Set_Sound_Total' T6 \, ~( Q6 h$ Q; j5 ^' [5 m
LDA <Music_Cur,X
# z" c9 H. ~, P" o3 K; I1 X
CMP Music_Total( A7 g" Z3 O. K9 W: t% c
BCS Music_Song_Next_Set
% U2 R% }- }: D. Q$ D* h
INC <Music_Cur,X# H5 F; w! h3 A- z' A4 k. R
Music_Song_Next_Set
9 g6 R. u2 \0 x) H# y+ j
JSR Sound_Reset_Proc" U7 B0 l: F; n2 D7 f+ I" d
JSR Music_Show) g9 O* U$ D9 T% H9 }
Music_Song_Next_End% ~ [, {0 f2 {
RTS/ }" q5 g/ W( n+ ~7 C8 _
* G, C7 `' ~0 r/ ?8 V2 t
;==================================================" y9 l& ]$ R2 H q; l! L: a. r
Change_Select_Item;改变当前选择项
( H$ k/ A% R1 {; B
;-------------------------------------------------- f7 I& b6 k* b: D& Y- c
Change_Select_Stop_Play_Item;停止/播放
" E* M0 {/ m* Q) W, ~
LDA <Key_Once
5 j- N6 ]& N O! m' L4 h% j- k
CMP #$10
* j p: a Q) N3 V! o* ?
BNE Change_Select_Last_Item
5 _' ]4 r$ ]3 V$ l' a7 _9 F/ T% u( y
LDA <Music_Stop_State
, I7 q& i9 s. x' V8 o
BNE Change_Select_Play3 u6 ^' V: ~) ]1 ]
JSR Music_Song_Stop
+ C5 V9 V: R7 |, @7 O# g
LDA <Music_Stop_State- {% d' o. d3 I; o9 }0 ^) W
RTS
6 \0 E$ b' C( k" {- O2 Y
. W* h# i; T ?9 T$ @* S
Change_Select_Play% m6 s: L/ T7 ^! |* a
JSR Music_Song_Play
# m7 A( J" |, q9 t
RTS
% ^3 N% }( e, H9 j
5 v$ f E( O$ b, K. m* q( P
;--------------------------------------------------
y" |& j+ ]/ [+ s+ w3 r& b
Change_Select_Last_Item;上一个专辑
; }. f- ^ k7 T& U) X2 G
LDA <Text_Disable_Flag0 K: m; I: e D/ Y% R
AND #TEXT_DISABLE_ITEM5 }8 |; ^% }( y1 C
BNE Change_Select_Item_End
9 t( X. K% G9 o, c$ A
LDA <Key_Once- q/ x% Q6 S! b" k, p: L/ v
CMP #$08/ f( @7 i4 `& l& J2 y- k
BNE Change_Select_Next_Item
& }$ i' K1 a% w% R* b6 ?$ [
JSR Last_Item% F# D w$ F9 Q$ k' Q( P- K) Q: C
;--------------------------------------------------) h- b/ x. k. o
Change_Select_Next_Item;下一个专辑 ?7 H2 O8 s$ ]" @( O) I! X
LDA <Key_Once8 d/ U* @( t2 C8 S
CMP #$04
0 K% t" X2 B! s P
BNE Change_Select_Last_10
/ r7 h8 G. \4 W0 t% U) W; b
JSR Next_Item
/ E$ ?! r" [6 Y' ]9 ?* ~0 V
LDA <Music_Item_Cur
( V- y, G) C3 }2 S+ k' c V* x
JSR Get_Page_Start_Index6 f' Q. D& B: D7 Q& w
;--------------------------------------------------
: ^" f8 S9 w" Q# q' X
Change_Select_Last_10;前10曲! n9 A E. u8 u8 S. d7 m
LDA <Key_Once
8 t! a, Z3 E2 E# J/ N4 S; t
CMP #$40( d. T% i' [% r
BNE Change_Select_Next_10% |/ j' r4 d8 Q# }( p2 L
JSR Music_Song_Last_105 q- ^8 c* P. f0 G+ o
;--------------------------------------------------( f+ H9 ?! T, e O7 q
Change_Select_Next_10;后10曲4 o3 J% H) [* m7 {
LDA <Key_Once" }* Z0 w/ w/ [
CMP #$80, I$ P- X- W/ |2 J6 R
BNE Change_Select_Last
" E h6 X: R0 }- d! N, L* I
JSR Music_Song_Next_109 u/ F# W9 q6 Y
;--------------------------------------------------
2 z. B/ |- y0 I/ H& |3 G
Change_Select_Last;上一曲- |1 u; D- C7 I. { A4 V5 B
LDA <Key_Once$ {- @( S0 ^0 R3 u6 T
CMP #$02
8 G! R% W) L* h* ^' n, h( T- Z% P
BNE Change_Select_Next) P7 s% R) s) n E
JSR Music_Song_Last/ A, g) G, ~' h: h. k% H/ M- C9 Q
;--------------------------------------------------
4 S: i& l$ N9 P1 |. E6 F
Change_Select_Next;下一曲
* A! m6 \% F, R# x
LDA <Key_Once8 A9 x( P0 t' y6 m8 e5 n
CMP #$01
3 E+ E) B, B* i+ u( O) {" n( |& m
BNE Change_Page_Next6 D0 k2 ]* W. t/ T
JSR Music_Song_Next
* @/ g" `7 L7 O& C4 C- I& F
;--------------------------------------------------
$ B, Q/ V( j8 Q% P% e
Change_Page_Next;下一页$ A% U2 n5 J9 q6 j
LDA <Key_Once$ O, [; g; [& K4 a
CMP #$20
/ K! M" `- W' O1 _$ e H
BNE Change_Select_Item_End8 j$ _& w4 O N7 b- X
JSR Next_Page
2 t0 L5 ~$ z) H0 }, W" ^) a) n/ ~( N
;-------------------------------------------------- J9 j- @& K5 H! B! T/ {: ^* y
Change_Select_Item_End4 {2 @5 K0 Z5 U" f; S2 R
RTS$ f# Q+ Q! |9 u$ i' c
' B. l- k# }# ?, O% V9 C$ U, q
;==================================================
' e4 i: J3 ^' f, z6 u& |
Show_Arrow;显示箭头光标/ j0 d6 [. ?: H4 f; [; N' W( U
LDA <Music_Item_Cur+ ^# W' t& H' @! R% t
JSR Get_Page_Start_Index- \8 L6 p) {4 Z& Z% T8 B* n2 @
LDA #$00
0 v# A& m. }8 p1 d, d5 K4 R% z
STA PPU_OAM_ADDR/ o, C" P! K* c& x6 F
LDA <Music_Item_Cur8 G" L9 H" `. v+ B) k
SEC
, a3 u! ?1 E5 \$ R, R
SBC <Data_Buf, d/ h8 \# \2 K% g
ASL A x# x9 l8 l" g1 C
ASL A
5 R2 h A/ w! a' H) A7 |0 j
ASL A
% d. y0 b o$ U" `
ASL A
& d+ m7 g5 W5 T
CLC3 b5 a7 J# f/ b6 L4 V) q2 Y
ADC #ARROW_Y_OFFSET
! [' g5 L3 q9 o! B7 Q
STA OAM_TEMP_ADDR + $006 g6 Z9 s u8 b G. z
;STA PPU_OAM_DATA t! {/ `) \) E; b5 q# v! c& z
LDA #$1F; G) J0 V4 E) U& Z: V# C
STA OAM_TEMP_ADDR + $018 H- ]. K4 o, c" x6 t* V* {3 Y
;STA PPU_OAM_DATA
y/ S$ O% D. S) ^5 i; `
LDA #$00( s8 w2 U* [0 o& {
STA OAM_TEMP_ADDR + $02. H8 J0 s" _0 d0 k, b3 s t4 \
;STA PPU_OAM_DATA
0 _+ X# t }0 z- R1 ?4 x
LDA #ARROW_X_OFFSET: q6 l7 ^; D8 ]& q
STA OAM_TEMP_ADDR + $03
* U3 o6 S2 C1 s( @# @8 m2 X
;STA PPU_OAM_DATA
: h* O: D1 y# R/ O. a4 I4 Z0 V
RTS
3 W6 {7 N( `+ F; V& z3 R
/ ^# e; e' }+ d3 q1 b% a4 t2 w% m
;--------------------------------------------------" T k# W3 @& D4 K4 Z. I
;命名表数据
9 ^+ T' u# g% `. T; b" q
Palette_Attributes3 z' A1 m( t6 ]% e* [, x
.IF SOUND_BAR_SHOW_ENABLE q' K8 `/ Z# z
.DB $00,$00,$00,$00,$00,$00,$00,$00,$55,$55,$55,$55,$55,$55,$55,$55
- I `# ^: q" R9 g8 J& M
.DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
; ~! S3 U9 O; O! l9 m% t9 I7 ~
.DB $55,$F5,$F5,$F5,$F5,$F5,$F5,$55,$55,$FF,$FF,$FF,$FF,$FF,$FF,$75, z, B0 d2 b/ `& @
.DB $A5,$A5,$A5,$A5,$A5,$A5,$A5,$A5,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA% K' h8 R, h g( o9 ?8 N
.ELSE; b; a( Y' K3 k4 }6 A% Y: z
.DB $00,$00,$00,$00,$00,$00,$00,$00,$55,$55,$55,$55,$55,$55,$55,$55
, C! w8 D4 `/ J$ q4 X! |
.DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
+ J; m& Q8 t" o
.DB $55,$F5,$F5,$F5,$F5,$F5,$F5,$55,$55,$FF,$FF,$FF,$FF,$FF,$FF,$75
" {; @$ T4 j% b7 K
.DB $A5,$A5,$A5,$A5,$A5,$A5,$A5,$A5,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
6 S) N4 M. d* E( d2 N- |
.ENDIF
7 x7 _/ n2 k# I1 L% j
h3 e4 X. ^0 l3 n1 A) a7 f$ B) f! e
;--------------------------------------------------
7 m& B, w+ W2 M8 Z; V: b
;调色板数据- A4 L6 N% o/ [+ d. E/ c& J& s
Palette_Data$ ` M: d! A" t
.DB $0F,$27,$20,$0F,$0F,$23,$20,$0F,$0F,$21,$20,$0F,$0F,$24,$20,$0F0 I4 o+ d4 k% L K% f! s m% u4 M
.DB $0F,$21,$24,$25,$0F,$24,$20,$0F,$0F,$24,$20,$0F,$0F,$24,$20,$0F
0 D: R% f" [) V+ h9 t! ]
4 z* g9 H0 f. r6 _- w' t+ h
;--------------------------------------------------
7 d8 S# V& B1 ~7 o7 W2 j
Static_Text_Data
+ K* Q. d- m6 s3 I
.WORD Static_Text_Caption_Data3 y! c U3 r+ l% v% g
.WORD Static_Text_Author_Data; h/ I/ M: `! [' y2 a. O
.WORD Static_Text_Date_Data1 i% R* K4 N% \- V1 u' `
Static_Text_Data_End
+ Z/ i0 L! \$ |
8 H- W$ Y" Z$ l% R C
;--------------------------------------------------
2 [/ {2 a! z3 g% l% b$ ]4 b
Static_Text_Pos
$ M3 O, Y9 l. O* j3 d# J8 U3 C
.DB HIGH(Caption_Text_Pos),LOW(Caption_Text_Pos)" f' p. w }% }! K8 T. S. q5 o
.DB HIGH(Author_Text_Pos),LOW(Author_Text_Pos)! _" E- p8 W. c' r* [5 j1 z
.DB HIGH(Date_Text_Pos),LOW(Date_Text_Pos)
) v7 z+ f+ B+ c2 D- H
Static_Text_Pos_End
9 M5 S+ Q8 N- a; h; l# O
" _+ e! P, a* y; `
;--------------------------------------------------
, M$ s" }% I0 `
Music_State_Stop* v6 G% D8 Y- F, d H z. N& \% b
.IF SOUND_BAR_SHOW_ENABLE
3 [$ z( V) \: w$ P- }; P
.DB PPU_MODE_CNT_LINE,HIGH(Play_State_Pos),LOW(Play_State_Pos),$07,"STOPPED",$00
& z$ Q" e, z# `# O9 N4 r- [, g
ELSE
9 M+ A. X5 _. D; A, M( b
.DB PPU_MODE_CNT_LINE,HIGH(Play_State_Pos),LOW(Play_State_Pos),$07,"STOPPED",$00) A* g, h4 W9 G, V/ C, |+ S
.ENDIF' ^0 d8 F& X0 I# i& |4 y
Music_State_Play
; F, ]+ t, [/ Q# E2 c$ `4 B- Z9 S
.DB PPU_MODE_CNT_LINE,HIGH(Play_State_Pos),LOW(Play_State_Pos),$07,"PLAYING",$003 l, g/ x& T$ d3 o6 O! k! A2 r+ Y
9 V1 a% K+ {5 e/ W! {9 u
;--------------------------------------------------/ W2 K1 f U6 o/ @( `, w
Sound_Bar_Text_Data;声音类型文本
, Q0 u# M$ p7 R! j2 E3 e8 O
.DB PPU_MODE_CNT_LINE,HIGH(Sound_Track_Pos),LOW(Sound_Track_Pos),$04,"SQ1-"
' L" I) b" @2 k' o9 _# Z- o
.DB PPU_MODE_CNT_LINE_NEXT,$04,"SQ2-" X# T8 }6 Y) K* i
.DB PPU_MODE_CNT_LINE_NEXT,$04,"TRI-"* z8 I; ^% d/ [. Z
.DB PPU_MODE_CNT_LINE_NEXT,$04,"NOI-": }$ |* Z- [0 ?+ O9 u: V0 C
.DB PPU_MODE_CNT_LINE_NEXT,$04,"DMC-",$00
) T, |3 }; n# k' n8 I' F6 l, N
: V, i1 u! x( Q& K
.IF Track_Name_Pos5 g4 G3 T4 \- u0 B: _
; u8 [' b6 t$ U5 P& K
;--------------------------------------------------# d4 d2 G/ H. p6 ~5 M
Track_Name_Addr_00;曲目名地址索引# _. ~ c* f& a% Y3 z
.WORD Trackr_00_01
, c- t5 T2 O' R
# r9 }6 ?( @" K
Trackr_00_01 .DB 15,"RAF WORLD BGM 1"
: [$ D, U; t" ?5 d" d: N" G
Trackr_00_02 .DB 15,"RAF WORLD BGM 2"
0 `6 ^( x* G: v% d7 f9 j5 D
5 R* N# o3 E4 z" G' _
;--------------------------------------------------
^+ d5 W9 S0 [% t6 B- U6 K
Track_Name_Addr_01;曲目名地址索引
( Y6 k& o$ n4 N9 B! q- f
.WORD Trackr_01_01
6 O- l4 i& F. O' C7 a2 V" y
2 a' h1 w C5 K& T# O/ K* |0 H
;==================================================
9 A% U8 ~. @# ]6 X& g6 l
Trackr_01_01 .DB 19,"FINAL MISSION BGM 1"
3 u4 e$ W1 Y; t9 Z
Trackr_01_02 .DB 19,"FINAL MISSION BGM 2"3 l4 F' f- b6 T7 k& ]
9 m- i2 S! y$ W- G& V$ D
;==================================================0 k) C, x9 j7 t
Track_Name_Addr_Port ;曲目名地址间接索引1 ?& [& ^/ i* u" i
.WORD Track_Name_Addr_00
' k: }$ X/ K9 k/ y }
.WORD Track_Name_Addr_01 X& w% ?& S2 J9 g* S8 b" ~
.WORD Track_Name_Addr_01) l& b* {3 A1 U+ |. O0 M- _
7 i# a" J9 G& g- O' q8 Y# ^( o
.ENDIF0 ?9 f4 g" Z% A
( L& P- [% I$ I& A. C
;--------------------------------------------------
) R6 D2 ~# I) }. P* n7 _
Static_Text_Caption_Data;静态文本数据$ j. \$ E. F$ ? l9 l# ~3 Z6 j
.DB 16
% H j3 G+ s8 @
.DB "FC MUSIC 12 IN 1" Q7 M* @5 g, S( D$ ^ \
Static_Text_Author_Data7 [3 g1 {/ F3 S! K0 X9 l: |3 X1 m4 C
.DB 25
7 ~1 U, q# z2 I# r5 f E p* @1 E
.DB "EXTRACTED BY FLAMECYCLONE"3 m2 M0 n- g4 i" O% G" k M' I
Static_Text_Date_Data6 D+ |- i, `! T2 n" b" i9 ^
.DB 106 ^6 C/ p8 V$ n( A
.DB "2023.07.23"
% \1 ^* ]2 e; L: Q6 H. p1 r" d
4 k7 s2 _$ T7 s. o+ b
;==================================================
. N( l! K% l6 U) \
Music_Collection_Name ;专辑名间接索引
l9 Z5 ]$ W" ^8 \
.DW Music_Collection_Name_00
' K7 O% I' l. n0 x% k
.DW Music_Collection_Name_01& Z0 s2 ~. |2 i( C+ u: D. A Z% b
.DW Music_Collection_Name_02# N1 H' g# u7 q; V- y0 Q0 v4 J" _
.DW Music_Collection_Name_03, M- V4 y1 U5 G6 d5 N" Y1 v: K5 E
.DW Music_Collection_Name_041 W5 e: c' y' E
.DW Music_Collection_Name_05/ j& c- m! d |& I. n; N X. X6 e! ~8 B
.DW Music_Collection_Name_067 c' w! Y: w, C! k; \, w
.DW Music_Collection_Name_07
/ a& j, h5 D1 e4 I: t% N
.DW Music_Collection_Name_08
& t2 A6 m8 o8 I: @% @
.DW Music_Collection_Name_09; ]2 \. R3 I- G7 L+ _2 ~: {
.DW Music_Collection_Name_10
' Z8 O4 w B* y0 J: j" n1 p
.DW Music_Collection_Name_11/ ?( n6 \0 Z9 H
7 `% K5 ?4 _, q$ U
;==================================================
2 r0 X& m5 \$ \$ g( b: v; P1 a) ]/ z2 B
Music_Collection_Name_00 ;专辑名文本数据/ d0 A2 y9 y, P3 [
.DB 11,"1.RAF WORLD"- w$ g5 d# w9 J
Music_Collection_Name_01. @. _$ y1 K R5 d1 I/ B
.DB 15,"2.FINAL MISSION"
. k8 o! z% E2 L* i' _# J) g
Music_Collection_Name_02: d X2 w" N5 S% s6 i
.DB 06,"3.KAGE" }0 Y# Q8 Q _ K1 W$ G9 L
Music_Collection_Name_03
2 O" e4 P( t9 C6 l
.DB 16,"4.DOUBLE DRAGON"
8 ^; @, m; l9 W8 _. c: `/ b+ N
Music_Collection_Name_043 V% s5 T: T$ \- K* j0 i8 Z
.DB 17,"5.DOUBLE DRAGON 2"
5 M! g w) `9 x! ^3 k; {% n+ `
Music_Collection_Name_05
& [5 `* c; @& }0 M6 p) Y
.DB 17,"6.DOUBLE DRAGON 3"
) [0 ]4 j6 D9 p- P* k o/ s) H
Music_Collection_Name_06* B4 ^% j F4 ~) B8 E! c
.DB 09,"7.ROCKMAN"
# H" U: \( C. S/ X
Music_Collection_Name_07
! V0 C& W2 B% s1 Y/ w1 x
.DB 12,"8.ROCKMAN 2"# `: Y+ g8 J4 f) P( j- n
Music_Collection_Name_08/ F# i1 b) ~! w$ r3 \
.DB 12,"9.ROCKMAN 3"
. x6 |5 C- y# I: V! _! c( {) S
Music_Collection_Name_09$ {* J# d7 p. Y' V. f0 [6 u0 W* o: q
.DB 12,"10.ROCKMAN 4"
6 ^! ]1 g! u7 F* G8 V
Music_Collection_Name_10
7 _. W$ |) R( S4 ], q+ M* \
.DB 12,"11.ROCKMAN 5". C; t7 _% O2 t* u5 J
Music_Collection_Name_11' p, w1 F6 C$ G0 P' V
.DB 12,"12.ROCKMAN 6"; r- p1 ?/ c, i' _
- Z* `8 E* u) [9 j6 `8 I
;==================================================
5 r( X4 }' F" ~! m0 D6 u
Track_Name_Addr_Flag ;显示曲目名标记7 D* k/ ?( d3 l( ?: i
.DB 0,0,0,0,0,0,0,0,0,0,0,08 n* p9 j* a* J9 |- x: _( e- a. E+ _
3 E! I: p/ v6 P
;==================================================
! \% ?! [' a0 t' @& H
Item_Pos_Data ;光标箭头位置
9 N$ Q! s8 d7 A+ w
.WORD ITEM_SHOW_POS
/ |) m: C0 d* s7 H
.WORD ITEM_SHOW_POS + $0040
6 Y% x x3 B5 ?6 ?
.WORD ITEM_SHOW_POS + $0080) q2 O; o' ?! o& ^6 O
.WORD ITEM_SHOW_POS + $00C0# A3 ]( g j, |5 ~5 | O( v# i) ^9 ^6 c
.WORD ITEM_SHOW_POS + $0100
( k4 m; z9 b# _. E
.WORD ITEM_SHOW_POS + $0140$ C- C0 z, T1 n8 r
6 Y9 |& z) R! \% n& Q# Z, n
;==================================================
4 [6 N6 f3 i( L0 x
Sound_Init_Port ;音乐初始化入口地址
/ D" b2 F( } T; q" k; }; a
.DW $BFC8
* ]1 H& v! [6 e' Z2 t5 Q5 C
.DW $D7F0. W9 ?& m k6 Y n9 n
.DW $9FC0% f6 [9 N& ]9 v) P! b7 G
.DW $BF70/ {& x4 J" P1 c. f2 f% s1 q$ d
.DW $8003
; }* K1 u$ W; E; E* p. F) W
.DW $BF30
- j0 R3 ~% v0 |
.DW $9003
4 N1 d- s( `; H- k5 I% ?4 \
.DW $8003, c$ K a" x/ J# I- {" T2 b
.DW $8003
: h3 g6 W7 M; ~0 S3 p) l
.DW $8003
: l7 }$ n* w' E, Q3 |. \& b
.DW $8003
$ {- a) }2 s0 Y! @; ]
.DW $8003! b$ q; D( U) T6 B) ]! `0 X
. x0 d9 K" e3 d& K! }4 ^9 Y
;==================================================
' E" P& }- u* P: o/ D; }
Sound_Play_Port ;音乐播放入口地址) s3 b# [1 b2 l3 g5 @
.DW $8000; @) j: a4 Y+ H$ B3 S) \. K/ p
.DW $8001/ J7 P# U# j! M# M0 _. m9 }
.DW $A000& {3 i/ r0 F+ P0 c K$ j, h3 `
.DW $8003
+ N4 o- \! Z. e# i O8 A2 B
.DW $8000
" j- _ J, v9 E( x2 f: s
.DW $8003; S6 H* l& \$ B1 ]
.DW $90001 q' @. s* q' e. U6 l
.DW $80009 u) c+ J9 }6 U! c
.DW $8000) d4 k. I/ U& W8 x3 f
.DW $8000
g$ R; Y7 I3 K( Z& r5 {
.DW $8000
$ H( u* W3 D; s' E3 g0 C6 C
.DW $8000. K* l: P0 b* V, `' [" X
f! I$ A9 p$ I
;==================================================
/ K2 @( c8 X. w6 ]
Sound_Reset_Port ;音乐重置入口地址* |; j) t* Q. L8 e! n4 c% m
.DW $0000
3 M4 o) t4 B4 G. A) q2 f; [
.DW $0000. [2 b/ m0 E2 f# T8 j
.DW $0000
& S3 w. y$ [# ?# p
.DW $0000
9 x; U. Z" R: K H& k7 L& D3 ^
.DW $0000
5 k) _6 o2 D( g' V+ E
.DW $00008 [6 U' _5 s/ @0 {
.DW $0000
8 L, p: N; \+ V' _: G7 I
.DW $0000
2 x; C5 u+ k( g+ t$ I& u$ b
.DW $00001 M) |- F7 b# h! |: ~$ s3 ?
.DW $0000
. ]# G# h0 l% w- W
.DW $0000% \$ V( t* K) d" k
.DW $0000
. q( x% c/ K5 X
: W/ g, U! v2 c) M
;==================================================: L$ U, w0 E$ G k" b
Sound_Total_Port ;曲目总数
0 ]1 B. t% Q3 s# b- ~/ k u1 Y0 \
.DB 385 z8 A& \- g) q7 s
.DB 33
6 i5 ?* Q4 m: S' {: b
.DB 49
% z/ x; B' c+ d- E
.DB 412 K, F; P; m0 d j
.DB 83
; f# Q# Q" r9 S7 c. ^
.DB 70" @( s% j8 ^- ]1 o7 P
.DB 50, T! W/ U+ b e' }, [
.DB 67
8 q" c: {: j) I" o0 N4 _9 K
.DB 57
9 C4 N- M7 W, c+ S- }3 y
.DB 71
6 g9 I; F& }2 I/ T }
.DB 76! X7 ]) |6 @# t& p6 k( f
.DB 102
4 m8 `8 o( W3 L
) I& x* g( b& l% L+ @# S+ ^
;==================================================# u4 c# W7 ^4 G5 `# ^1 D- I
Sound_Start_Port ;起始播放曲目; B" r K! s# b3 l; r
.DB 008 }$ E: n$ D7 c W; x: M; r6 ?- w; I
.DB 00
. U/ F; m, V' U, ^5 n+ }
.DB 00
t3 v n' e* b I0 R; W, c8 A1 _
.DB 00
; f; j/ u) _* O0 e
.DB 00
[# J/ s2 _$ [) w) q8 L: y! s/ [2 i
.DB 00
$ l. _7 [/ t X0 ?5 q9 J
.DB 00; b1 _, t3 F9 Y) Q% X% \9 e9 i3 g
.DB 00. V+ }) `" }3 X) V& d
.DB 00
, A1 ^/ ~/ J$ ?7 f: ^) d8 z9 q
.DB 00
U, r8 L, @- `8 \. H8 v: \. _
.DB 003 `- I$ M$ `$ Q$ t) B0 A
.DB 00
/ f: l. i; X/ L
; `- C0 `3 t4 }0 a8 ` ]
;==================================================; U. _7 L" v" w) p4 D. i8 I
Sound_Bank_8000 ;专辑bank_80004 y% z9 i5 G! l- i1 A
.DB $10" N @( c" v) P# C o; W0 ]
.DB $12
7 b: ] p$ A& r$ G$ W. x# e
.DB $14
) S. L d2 ^1 K7 x) |
.DB $16
{& r% k; Q# {) G6 j
.DB $18" d- v7 C& k+ b; _" M7 q
.DB $1A
0 s+ _: p9 ?, w* d- D
1 G; a2 Z* \4 T$ I
.DB $00
& o% M* v: [" U. p; Z3 N4 ^) D: z
.DB $020 y( R- G$ R& k1 K: ? E
.DB $0D4 p% M9 F1 z! A0 l0 j2 Q
.DB $04; Y: _$ ]% C& |- ^
.DB $07
1 s9 m r+ t% J
.DB $0A
# N6 h9 ]5 N U( ?
8 \- s# _. _3 z, u# G
: k, o8 T) m- W* Z' W
;==================================================
3 O2 u- f7 f( F, v0 Z! h
Sound_Bank_A000 ;专辑bank_A000
. x$ E# _ ?- h. {
.DB $11
2 D+ ]$ R2 t1 i6 Z. f4 b0 ~; N
.DB $13' H5 @2 k! n! h3 ?2 b' M
.DB $15' Y! [0 X( ~/ G9 t/ |
.DB $17/ E4 o' h3 H* N8 f. d* M$ c' l
.DB $19 l, r: H) k2 \$ }0 k
.DB $1B: Z4 j' t; T6 A5 }
/ R& c# t! P# |* M F ^
.DB $01' j7 P* y% P* z; e2 h# J
.DB $03! Z6 E& M2 ~% _, N' S# [- h: `
.DB $0E# W1 {! N- ^3 ]# s/ }; G/ q
.DB $05
; h4 q$ t: c& X/ K& V3 [& i
.DB $08
& g6 I, a/ Z9 a6 Y- p; n
.DB $0B
) C* ]2 W/ L. K, w! l) I* _
6 v5 Z5 h# Z, f# [
6 T* Q( z/ x) ^* Q% R2 s
;==================================================) m8 Z2 q& U! |+ h$ U
.BANK RESET_BANK & BANK_DATA_MASK
2 W: ~9 \) q6 C- s# ?9 u% T
.ORG RESET_ADDR
/ Q9 w& o; U# Z2 L7 t9 `' b$ h
- F' w+ k3 e1 h
;==================================================
6 I; ?" q$ P% r3 m0 A9 p
Switch_Bank_8000;切换bank到8000-9FFF6 I, W$ B$ v. F% R
PHA& m0 a+ l6 Z. n+ X! v7 q: O* R+ ]
LDA #$06
# B3 P# d) r8 D- G, Y2 x: q
STA MMC3_BANK_CTRL
: g/ U2 p+ \6 J0 J" S* F2 Q
PLA5 V: S! _% S) T. m5 |( w
STA MMC3_BANK_DATA
4 W2 z$ e3 ]' Z; b
RTS
- x$ k6 h: h9 x, {# J9 n; C
4 n4 b: S9 Y1 j1 `2 H( p
;==================================================: h3 U% D3 Q7 ?
Switch_Bank_A000;切换bank到A000-BFFF
5 S# v: s2 k* P' D, s- g# v
PHA
4 X/ c/ d% Y1 {& W; r% P) t
LDA #$07
$ l- b0 q$ Y0 P( e% R) G' u3 K
STA MMC3_BANK_CTRL
6 V8 i# a) @; E& U* B6 e
PLA
9 Y: d9 D& g: [* {( e5 q) R7 ^; u9 [
STA MMC3_BANK_DATA
0 V$ E9 W) v9 x5 k$ [: ?2 H
RTS
' ?$ C4 @1 D8 f% q5 g& D6 r4 |
( P: M* s3 x: l( {) U
;==================================================
9 O& K* y$ t! q3 s8 b
Switch_Main_Bank;切到主程序bank
6 Q, j$ r- ~ q0 U' s* p
LDA #PROGRAM_BANK & BANK_DATA_MASK
) B7 G% {9 |: s; X& q% H
JSR Switch_Bank_8000 ;设置$8000地址bank
% a& i# M) s5 V- g' }) L9 y
RTS
/ f/ Q. |' H3 {) }
; _4 Y4 a5 E9 v4 C) ?( T
;==================================================% w8 [ F$ p# p4 D ]; U# Q
Sound_Reset;音乐重设(如果有的话)0 E/ n" N+ `6 n! G
JSR Switch_Music_Bank ;切换到音乐bank9 a: m5 Z9 z4 ~4 a
JSR JSR_Addr_Op ;执行音乐重置6 Z6 \# D4 E( i R- Z8 m) y% g
JSR Switch_Main_Bank ;切回主程序
: D) F4 }* ?9 @% g: B
RTS2 b, [6 B+ O8 W ^) r: ]2 _$ ?" K- V
* F" S# t" y0 l; [0 [5 F: p
;==================================================
- R8 ?+ X8 S! \& D9 e# N
Switch_Music_Bank;切换音乐bank
3 _8 m- @# G0 Y: B6 z+ |* R
JSR Init_Sound_Bank ;拿到音乐bank号4 E5 z2 q$ I$ d" _. A4 t
LDA <Music_Bank_8000' n/ s+ ]) E' b0 F+ C
JSR Switch_Bank_8000 ;设置$8000地址bank& M' z5 P6 P8 p0 T0 Q) ^8 j) V; d
LDA <Music_Bank_A000/ X) U* m, j+ E8 `9 v) R, W4 x
JSR Switch_Bank_A000 ;设置$A000地址bank, r" Q5 {9 G/ z* @& @$ K$ t0 W
RTS& g) N" o f% j
( L F! v. e- @6 {2 _( n
;==================================================
) n" s! i- z' n5 m. v0 {
Sound_Init;音乐初始化
0 a3 T4 H! W3 i
PHA
5 {$ @9 {" A. X( X: S
JSR Switch_Music_Bank ;切换到音乐bank# F2 V9 f9 h a g8 W5 F3 E4 c
PLA
6 R9 u( }* u2 ?. Y6 N
JSR JSR_Addr_Op ;执行音乐初始化9 D2 Y/ ?8 ]# p0 |( \* d* d
JSR Switch_Main_Bank ;切回主程序% x4 K" i) W6 R) x D1 j
RTS
B8 L n+ K5 W/ M# s
2 s0 W) a5 v+ s
;==================================================
9 v+ C& V- N [ M
Sound_Play;音乐播放0 n3 N7 a2 e' T3 N+ e; y: ~7 P
JSR Switch_Music_Bank ;切换到音乐bank/ e( g) f+ q/ W3 S0 ?, Y2 s1 D u' w
JSR JSR_Addr_Op ;执行音乐播放- R$ G6 A" O/ d8 f) `
JSR Switch_Main_Bank ;切回主程序
. r0 {. ?( ?# L# O* n: A ?
RTS
, O4 @& i; g9 r: S5 r
. I! t& [4 o8 J% ] m
;==================================================$ q8 B& [( c+ p( y) ~' P
MainLoop;死循环) d# y, i, t( P# L$ H4 P
JMP MainLoop
4 F% ~- h" A; }! [) Q
# s( _ H% F, I ]
IRQ_SUBPROCESS_JMP = 0$ l1 H2 h% I$ Q- i# L, h! [1 T
7 e" g, X& o. F# `8 K
.IF IRQ_SUBPROCESS_JMP
5 v! F* N' n+ M; K# t
;==================================================+ v+ o L1 @: ]0 w
IRQ_Process_0;IRQ处理过程0
3 e9 Q8 a2 L, \4 e. l, ]
) @% Z8 d: m& m" T1 P" v3 R7 B1 G
;15条扫描线后触发IRQ: ^/ @) J9 G' j# t4 _; K+ e2 w
LDA #15' P3 ]1 d" f6 v6 q9 e. o
STA MMC3_IRQ_LATCH& X, M: g$ q8 W% i! G
: j& B0 L& U$ k
;设置屏幕滚动, I4 l; i' _; C) v. N
LDA <Scroll_H
% _) O) `1 |# T$ H4 I
STA PPU_SCROLL
r0 R. T8 ~0 _3 L; y* A9 P
STA PPU_SCROLL: s- c) j! Z0 ]' C1 Q: b
- a2 B& v# d8 t2 o& H
IRQ_Process_0_End) X9 \$ t5 V' j, f) R$ ]. B
INC <IRQ_Process_Index
0 c( ~# {) k5 u' B3 S
JMP IrqProgramEnd
# _" p: ~) ~4 K) T, n
. h( p6 u; @6 _
;==================================================
1 p7 u; ^% I- k6 A; ?
IRQ_Process_1;IRQ处理过程1
/ _$ ^& D/ D! d. o/ ~3 t+ u/ }* e
4 {* H4 i: m1 Y( ?9 `3 J
LDA #550 ?* M3 O% i+ }$ x' [
STA MMC3_IRQ_LATCH
* o. I) b7 s+ ~# x6 Z: {6 e
0 r! ~' m3 o5 y9 i
;设置屏幕滚动; _+ J+ ^, t4 |4 y& l7 r' \! L
LDA #$00
% ^ m8 _9 o3 ?1 J4 ~& Y
STA PPU_SCROLL
. u( [, e& z6 a7 ?
STA PPU_SCROLL6 ?2 x0 k( ]7 \" J! X( e
4 U3 z* J# K! L( w* `0 g
INC <IRQ_Process_Index& h8 u# {) v1 x
JMP IrqProgramEnd( @+ K% ~: ~0 c. k0 ~1 C5 H3 J& s
& L- ?' o0 N; M! k
;==================================================
9 T+ C) Y2 }* P1 t) _ `4 f3 F! l
IRQ_Process_2;IRQ处理过程2$ o9 G) ^, j6 E- f
4 ~7 h2 ]3 T% B1 G/ C* G, c0 B5 ^
LDA #15
# M$ _2 G" k* |8 s' P
STA MMC3_IRQ_LATCH
H( N, q8 j+ i& a
, [$ b* C3 p9 ?' }6 @
;设置屏幕滚动' A/ ~% c: V% v* E; E- w
LDA #$00
! V9 s* v/ j! c/ V q& W
SEC! b, o& [1 l" @- J& M# q
SBC <Scroll_H
- X! p {: g& |) t/ y) N
STA PPU_SCROLL8 I9 U" Z. n. |) p. ?# g3 `
STA PPU_SCROLL
8 T/ Z) E4 G; z8 C0 O* Z" j
) K0 `, D7 f6 P8 Z8 y8 R y+ H) T
INC <IRQ_Process_Index& F F: ?+ e. k' Y
JMP IrqProgramEnd
/ w+ B9 T$ U/ a, F9 i9 ~* J1 u; `, {
* v. j7 S. \( v; Q) r* W
;==================================================/ T: c" \" U+ @3 `' P9 ]
IRQ_Process_3;IRQ处理过程3
2 T# l, B1 ?: u+ Q9 v7 ~' H
( V; s1 R( S# D [6 }
;设置屏幕滚动
; P: z5 N; z8 S1 y3 y2 I9 S
LDA <Scroll_H
8 [* a2 U7 q& l+ |9 ^9 `8 x
STA PPU_SCROLL. T& d8 Q% r; l& b1 U) j8 Z0 V8 z
STA PPU_SCROLL6 b, k3 t( l- j* W/ l9 E
& \6 s5 c% i7 e0 ~
;禁用IRQ! U0 Q% D; S3 N9 j' y2 L
STA MMC3_IRQ_DISABLE. _/ G6 F6 z* @+ o/ M5 h3 l2 f; Q
JMP IrqProgramEnd
+ ]( v# v, `+ R& U: i8 G" e7 x5 I
; i0 |; @8 ^! c2 M
IrqProcessAddr
' c! T8 I% r0 g
.DW IRQ_Process_0,IRQ_Process_1,IRQ_Process_2,IRQ_Process_3
+ i& ~$ r* B# V+ Q
7 g2 h- [& B2 F/ k2 ^7 L, k, g
.ENDIF7 c" `! g, w# S. x
$ e3 I, ?+ C# y, G5 D# J1 u7 [
;==================================================3 p8 v* f3 d, l, Y' J
;IRQ滚动模式常量
# N+ b/ `. i! ~% q& g% }
IRQ_SCROLL_MODE_ZERO = 0 ;不滚动
6 G4 p/ P4 @" @+ t& Y& Z; l/ ~
IRQ_SCROLL_MODE_LEFT = 1 ;向左滚动
" s! k% y2 W8 t3 V# i9 i
IRQ_SCROLL_MODE_RIGHT = 2 ;向右滚动
8 n3 ~$ x) a4 f& M+ Z4 {+ w
6 ?+ K& ]+ I, o
;IRQ扫描线数据
" d9 _- y( K( @- l' ~6 }- L3 I
IRQ_Scanline_Data
}) z& h; u2 V& i, }3 K
.DB 8
, S4 @8 X& G- S' ^$ a
.DB 547 b" V; {, T" w) |1 j! Q4 p
.DB 8
5 w% _! |, }( z9 x2 _
.DB 00 ;关闭IRQ' ^1 m* h. T; q- p6 D
) P' U% H# ?+ b2 ?- i
;IRQ滚动控制模式
. P9 h# r8 @4 F+ w9 u- d
IRQ_Scanline_Mode8 | B" P" R' b5 ]1 q
.DB IRQ_SCROLL_MODE_ZERO: V& F' |) p% j
.DB IRQ_SCROLL_MODE_ZERO
4 N% {" M% N; R+ L! A% _
.DB IRQ_SCROLL_MODE_RIGHT/ A' e" D: x' d( e
.DB IRQ_SCROLL_MODE_LEFT' W# F* K1 k% V# p) J- \ j
* E9 y! ^% t' a8 F- Q+ j
;================================================== S* o0 U3 ?# i3 q8 v( ~
;IRQ处理
# Q9 b* g- h7 a
IRQ_Process L) f) g- V2 e+ W( n: ?
LDX <IRQ_Process_Index
4 B7 C B6 [7 a% ?* w- I' G1 J
LDA IRQ_Scanline_Data,X6 u7 q3 X/ a4 ^0 w
BNE IRQ_Process_Latch
; E2 `0 s4 b% `
IRQ_Process_Disable;禁用IRQ! U9 l1 B9 f& ?$ f' D6 \
STA MMC3_IRQ_DISABLE
1 m1 k7 [! E4 P7 [, h- z& G
STA IRQ_Process_Index
6 Z j8 d7 b0 n* a0 l& x
BEQ IRQ_Process_Scroll
) a7 C% H9 v& i: B2 C
IRQ_Process_Latch;设置下次 IRQ 触发扫描线
, b) B" a$ S5 u! @7 ~0 S) H
STA MMC3_IRQ_LATCH% G1 p" z, a: q7 `; c
INC <IRQ_Process_Index
! j( T, T/ a# T( F6 s, |+ N" M5 A
IRQ_Process_Scroll;IRQ滚动控制
% i i; p- e7 s" J5 H9 [
LDA IRQ_Scanline_Mode,X
) i1 K/ T8 f! _0 a' U
CMP #IRQ_SCROLL_MODE_LEFT: z. [/ l: r' [* ~" s, Z7 V2 m
BEQ IRQ_Process_Scroll_Left, \$ e- f' `8 |1 W$ z' y: P9 i
CMP #IRQ_SCROLL_MODE_RIGHT8 x* z, |* f. U! `! r1 o' w8 b
BEQ IRQ_Process_Scroll_Right
/ {; G1 a( B6 }
IRQ_Process_Scroll_Zero;不滚动7 C; `0 b" a b) L5 B' c% q
LDA #$000 ~7 F! t) I0 @* N+ n# y
STA PPU_SCROLL) o- f; K' E8 F5 o
STA PPU_SCROLL/ ]& U3 N$ V7 W# y" a$ M1 t1 ]' M
RTS" m# a9 y3 P" U6 J/ _
IRQ_Process_Scroll_Left;向左滚动
0 R. e/ t( ~4 ~4 B$ N* s
LDA <Scroll_H
, ^; `& ^% S) B& a( m
STA PPU_SCROLL
! l* i0 E1 a) s# [8 z6 [
STA PPU_SCROLL
8 u) C8 L J' j. J; \' ]
RTS
; a7 D8 M8 |: ?* |1 `6 s0 N. q: F
IRQ_Process_Scroll_Right;向右滚动# k& `$ R: c7 u: q5 S5 ]
LDA #$00
4 v l( V1 k5 A
SEC6 d8 m& D4 X% M" |4 f
SBC <Scroll_H' Q2 H( x! N, {, }$ O0 U
STA PPU_SCROLL
" w' ?. _, K. q8 T
STA PPU_SCROLL
3 {' w1 A$ s; Y1 M0 F6 c
RTS
9 @3 i+ ]6 Y R8 i
3 e- [6 f, ?4 Y6 B2 D, p
;==================================================
/ b. i5 R+ f3 `5 V- G6 w
NmiProgram;Nmi中断处理+ ~8 M* h$ T3 h5 }) @9 C
PHA
, T. G( H; L7 o4 ^
TXA' E0 t( q, x) Q! M
PHA, L# T, t! V6 r& |, {2 t
TYA
1 Y% ?/ C* p! H( [ ^' q% V) t/ p
PHA& r z$ d- i. z$ r
l3 i0 B$ Y7 D3 t- @5 Z
;读取清除Vblank标志, 防止重复进入
2 a- U0 G9 D6 A7 b: K
BIT PPU_STATUS8 V: Q; D' d* ?( X2 G
: }2 I. B: `! k8 Y9 ?6 ?
;切换主程序bank
3 k% ~5 i# r @2 S
JSR Switch_Main_Bank
, i3 q0 Q& Q! a$ V# Q0 }. L; l
" U+ e( P/ I ^& o- h
;Nmi处理+ \) i, f1 f7 f0 c% L+ ^
JSR NmiProcess2 {6 Z' [9 O: ?; y$ m) a
7 O: N% \5 ^; {2 y( z: _' t+ }: ~
Nmi_Proc_End0 z6 Q* K. s6 k; C
PLA
; _* p$ w- }) d3 G- Q0 U, [
TAY
. J1 ~6 F. L3 b1 S, h
PLA
( H+ T& r1 x; o3 Y" h# `" A Q i
TAX
9 m6 [5 [7 y; O3 _9 Z Z) w% j
PLA+ d5 }. j6 y# z! Q( k; x/ h
RTI
& l- S$ P4 B* r1 x3 A& M$ Z
2 Q1 E' X2 L" f, b" I
;==================================================3 a! H9 }! [3 g
ResetProgram;重置中断处理: M5 k$ Y9 z) W8 u
SEI% |0 o/ \' m. u V+ X4 Y6 S+ [; b
CLD
4 z, p/ H" u; S# H/ z8 z T
LDA #$005 S! h0 L2 r/ S4 q
STA PPU_CTRL
! s7 x. Q; K5 y3 Z: Q8 O! ^
STA PPU_MASK3 A. k6 j& e/ F( i* z6 _* X9 y
, t) p" O4 ^6 f( }/ r+ H; [4 x
;切换主程序bank0 P3 P% h V* D2 O, C/ ^/ G& s
JSR Switch_Main_Bank$ \8 p2 k& Y1 E2 @' e
0 J0 k: I( r9 q( t/ m* C2 j: R+ z
;程序处理开始
) _2 Z8 X: x5 |- g6 b A
JMP ProgramBegin
+ q; \. ~+ a9 g
' W$ q/ Z' n( ~6 _' n- Y
;==================================================2 A9 Y1 X* {( t- F& W* l& b6 I3 E! ?
IrqProgram;Irq中断处理6 e5 {; I" M1 R& D' H7 l0 m
PHA6 u5 z4 J3 M' \
TXA: ]" I8 F2 K4 D9 G" B8 _2 [- u* {
PHA2 U' Q" F1 Y t( y, B
TYA. @% P9 p9 }# `7 P. k* O( N6 s
PHA
) L8 g3 m- m; T, g
3 w+ c9 O, O6 {3 Q7 Z4 a# u
;关闭IRQ' G3 Y: [* I) F% d
STA MMC3_IRQ_DISABLE
r2 [) i3 g) Y! l) |
* V6 r" I* o! _8 x' j
;允许下个IRQ触发
4 ^/ o4 D1 y* [3 m5 i
STA MMC3_IRQ_ENABLE; Z3 t7 q) J: ?5 g0 _) i) \# s
# S6 b. Z9 d6 F/ ?
.IF IRQ_SUBPROCESS_JMP/ l$ I a+ B/ }- q/ ]; I
) l \3 c4 H" P! @; e/ N% O: Q
;执行IRQ过程7 S# e7 k4 b1 |1 A8 j3 Z5 `
LDA <Data_L( Q! ^, i l6 p8 B0 O
PHA( n4 V% q5 U$ `- K
LDA <Data_H
6 v5 A4 s z) N: M$ l* |9 L
PHA
r2 y& {4 x# G* F
LDA <IRQ_Process_Index/ Z5 p& f7 p; k0 V5 k2 C, t1 ?
ASL A, F# G. e3 Y6 t1 W
TAY
4 [2 ?: G# O4 r6 r
LDA IrqProcessAddr,Y. m6 U" P. t2 I% E
STA <Data_L# t2 Q; |/ s0 z# h( B6 F
INY
: Q, U E+ X2 z' s3 V$ A
LDA IrqProcessAddr,Y+ w: X$ G- R1 W: \# d
STA <Data_H5 Z+ @3 _3 J9 p2 ?/ x
JMP [Data_L]
, c; @5 v: \" V
; W! P# i [3 h! o4 y
.ELSE
+ ~0 c. B+ f# {- g/ c) E; l
7 ]5 Z" ?, f6 H& o# |2 p4 N
JSR IRQ_Process% p- g3 [- D' y$ U# _5 `( r
6 W- H: I% ^6 A* ?
.ENDIF
2 [6 \- \9 C. ]' L0 b' h( M
6 v0 E* P6 w5 V" ?* i$ I. x9 \: {- W' Z
IrqProgramEnd0 Q+ g. K: x. J9 x1 \$ \
.IF IRQ_SUBPROCESS_JMP/ ?7 B$ s0 O4 u/ q
PLA+ ]- N/ {; p& `- {
STA <Data_H
5 R, x* N, {2 ^& ^% K5 F
PLA# k4 M! F1 Y' U) [. e1 D
STA <Data_L, O2 x& p$ i3 Y
.ENDIF! w9 j& T$ a8 l% o+ Z8 w! S
PLA
% A% T8 e* s( v. r8 W+ Q) B3 o
TAY* `$ M" C2 b( r8 b
PLA( w9 R1 @& q! k7 z/ K& [4 f
TAX" j# E J% n/ T1 d; f
PLA
0 r( v& Z2 n; _9 r# q+ d" U
RTI
; r0 n1 n- }$ l* y4 {" K* h
* r N; }# l; c
.ORG $FFFA: r# q8 D( Z" e! G" Z# `& H1 K: }
.WORD NmiProgram
; x% q/ X( d, x: m! L# e& L& o( |! v
.WORD ResetProgram- [/ M. V5 ~$ s
.WORD IrqProgram
9 a6 U; ~5 h: ]9 g% b
2 d9 n+ z/ p$ f
.BANK RESET_BANK & BANK_DATA_MASK& Z- a W5 I/ q- L- c6 y# e( u
.IF SOUND_BAR_SHOW_ENABLE$ G. @0 K0 a! n5 Q! V# \
; s- y4 T% P: u& H: B$ \
.ORG $FE008 ~/ j9 Q" \2 R
PHA5 k. n" p6 F) c( }. q# u5 E
STY $07BA
% }0 t9 z4 Z+ a4 d
LDA #$8D0 U& h6 T" M R$ N l* i- i/ M
STA $07BC
& ?1 E; T# U/ H/ t0 {" y
TYA" a; U4 M- S; N5 F0 E6 m
CLC& ]" R/ j5 p) \1 i, O6 M
ADC #LOW(Sound_Bar) d' s T; X7 l3 B: z
STA $07BD
$ s4 j* h8 E$ E4 P$ u
LDA #HIGH(Sound_Bar)6 W. a" z3 U5 c9 |& z, r! F
STA $07BE
- z7 H( A/ [* @
LDA #$60" P: o) R! [0 h/ E" ?& E
STA $07BF
/ M; I1 Q$ [) E2 t( f
PLA
2 o4 o/ C+ @ e# V
RTS
% z3 a9 S$ C# q! y0 F( G
_" y) R1 D4 ~& _- l& U4 X
.ORG $FE20
- E" R: R& F, I3 q% ?. K
STA $07BA
5 H. e, q6 F' F( W- ^, p. z: d
CLC. C2 S+ Y6 s3 c8 c- a# w
ADC #LOW(Sound_Bar)$ l0 Q0 Y2 [! W( `. Y) ^
STA $07BD
' x' n& j) i- X0 W5 G4 J
LDA #$8D; E2 O1 R4 U9 |4 i0 _( W( Q/ W# Z
STA $07BC: g7 u) T1 H* ?/ b. @, a
LDA #HIGH(Sound_Bar)8 R1 X9 C% v Q. b! Z
STA $07BE
, V, m" a& e+ w6 g
LDA #$60
0 m3 L0 A% n! k$ h& J: Y4 D3 u. ]; y
STA $07BF
+ B% e q$ Q5 D+ N: Q
RTS+ o2 l' p% ]( g- l1 K/ j9 D
4 F. W3 |6 `2 {' w
.ORG $FE40& D m5 q, D* g! y- p8 P
PHA
* n2 R; k( y k1 n% k! V8 ?
STY $07F11 ^0 c7 p8 X: k I
LDA #$8D |! D! P( [# D) v
STA $07F3( K$ P' n$ l/ }5 f
TYA
# \2 Y u; a: v6 } _% f
CLC+ v" `: Z6 R2 _
ADC #LOW(Sound_Bar)
$ \4 _1 \8 r- h
STA $07F4
0 J' T8 ^0 D. G' ]
LDA #HIGH(Sound_Bar)
0 z/ h: ^: v; z& t1 H) A, a
STA $07F5# E5 l! @& l& L6 C& Y) g/ T
LDA #$60
, C. Z) R$ _/ Z* ~
STA $07F64 Q) B) t) I5 s" H! k
PLA
) D# y; g7 h0 H. L
RTS
" w3 O1 K. F$ O8 }" T: C8 H, x
6 v7 B6 z3 i( Z) @3 J5 o& J
.ORG $FE603 U2 l5 d. S3 _8 [; h6 f, w" [3 ~
STA $07F16 {+ O" [% ~& M( ]+ |. k1 c' y
CLC
, q# d8 o m& `3 B& K8 R+ C
ADC #LOW(Sound_Bar)( T+ n; M! W( s# O: _# I
STA $07F4
+ A; w/ E; j9 D* h" ~. O* F
LDA #$8D
. O: w. \1 p9 U2 S4 A
STA $07F3: c! A+ n) |1 p4 K3 I/ O
LDA #HIGH(Sound_Bar)
3 q2 c) t* Z) M+ o+ R) h2 v
STA $07F5# U. B9 t ^0 D( \
LDA #$608 y# h- _% C% Z# h
STA $07F6
% \; d7 U7 W6 z6 c
RTS" H" q6 s, ~0 m. a
' ?6 c0 l2 }+ C7 {- u( c
.ORG $FF406 X" K1 ?* T; t8 P7 k( V
STA $4000. {" d; [4 W7 O' ]- o$ c
STA Sound_Bar + $00
/ w7 t* P+ l: |8 m2 d' m
RTS3 c5 `1 n8 J/ l/ C2 D7 U
9 ^4 b( E, Y: F' q
.ORG $FF488 @: L# Y5 `% e. k- u
STA $4004
0 v) Y( m( o+ b f! v# B0 r! M
STA Sound_Bar + $04
) T5 k+ _) r! D6 X
RTS
. Q- K( O3 e" n6 Z; c# x1 W& g
* i3 u6 T# H" F, p) }6 ^
.ORG $FF50% r: @# F+ s- w2 Q) X* s, M
STA $4008
- `6 h4 `% }8 C
STA Sound_Bar + $08" f5 R6 b2 {7 ?. X$ [2 N
RTS
* C, B: ?* t4 y. u9 j
& q# }. p6 \. s; Q# }$ ]$ M, f
.ORG $FF58
9 p3 S4 ~9 T1 d I7 @8 F
STA $400C
1 p* _2 ` e4 H' n( x
STA Sound_Bar + $0C) _9 X* }* O& a) z
RTS
) n3 s0 i) n7 D
( d% v- R; P. k R2 a2 y$ }5 U
.ORG $FF60) Q" R* k8 g+ n9 R9 W! x
STX $4000; q% d+ z! I9 t# V# O8 ]& w; X" t
STX Sound_Bar + $00
' T% C4 ~6 Z+ U( ^; v
RTS8 w" D& d# g5 G9 f) X2 }
4 q7 I; F4 j K5 P' a
.ORG $FF68
2 U% a" k1 o8 |# C! h6 P3 B% t9 ]
STX $4004
; J2 P! p! t2 E% j1 O
STX Sound_Bar + $04
1 X1 e. j. t8 M% J
RTS/ v9 t! h+ r% ?# N- {( i
" u# @! t. ^: r9 q. U0 M/ @
.ORG $FF70+ k3 Q+ _# |2 G, l" z( @
STX $4008
& n2 E0 C+ X, [4 a2 H- y
STX Sound_Bar + $08
1 j' \# ]8 P, M3 |% k
RTS J" N" K, k# x
4 z2 }" _& H" H' H/ ?
.ORG $FF78
4 ]5 W& S8 `6 x) [" H
STX $400C
- A% {& d$ K4 i' r0 D
STX Sound_Bar + $0C6 W0 C1 |* q0 |# l6 @+ p: {" c
RTS
# a* w6 W/ P7 ]: z e0 A5 G' q
" m9 l$ L' k2 U4 Z a1 }
.ORG $FF80
3 g ]7 }+ R2 V0 K
STY $4000
. b, ~) v8 Z+ [' @2 Q1 ? C
STY Sound_Bar + $00
' c* w# |7 q9 m. k2 c, u4 F
RTS
( x4 {# z$ Q, L: n2 o8 u6 j2 K1 I
0 J0 b9 x$ k2 u1 f4 a
.ORG $FF88
0 m; u; ?8 @ C! m: L
STY $40041 O8 \) _5 r& {3 s9 J# L
STY Sound_Bar + $04' |4 `! [0 k5 [1 @# B$ ~2 k( }
RTS
- Q$ c n& [0 |5 I v1 B! I
2 R5 v# O) G: k' |; u2 u3 H
.ORG $FF90" z( d! t2 h. z( w
STY $4008
: K$ [' D n. b: H
STY Sound_Bar + $084 T- `% z9 o" V- E2 K- C
RTS7 Z/ c3 m7 z5 M8 i9 i
R; A$ [! W! i% i5 F- z: P/ A
.ORG $FF982 j* {5 {6 w4 s# |$ ?/ n
STY $400C
; W: o! y$ ]; k, M: _1 ?2 w( b
STY Sound_Bar + $0C
* C; X+ Z/ N2 q" i/ k$ n
RTS
7 R0 S6 _% S( Z I
^$ h( k9 ~$ }7 \" a
.ORG $FFA0. }: n+ d8 ]+ Y2 s6 N
STA $4000,X
& i, }" m2 C. Y7 p2 h8 G/ Y
STA Sound_Bar + $00,X
/ z7 t: d: c$ w5 j
RTS
: e& @. j& q3 D" r( K7 {
1 P' S* }+ i; A- X
.ORG $FFA8
" d5 s* x; {' L9 b9 a! G8 V! b3 K C
STA $4000,Y
+ @$ W' @: Q& f" f( x
STA Sound_Bar + $00,Y
* h# ^# O) u" G' d \
RTS
9 C4 S& z" p/ w
0 u$ C! H- d4 v$ s! v
.ORG $FFB0. `% v* f. m4 t+ N- s5 T& Q/ p
STA $4004,X
1 p- @9 e7 T9 g, b+ w
STA Sound_Bar + $04,X
5 [- F9 j+ ]# l2 F1 J
RTS" E, _& b5 d1 G2 e& T$ l* m5 {$ E
" S' b8 |: i5 J% H, C8 U
.ORG $FFB80 T5 j* u3 r% n7 @1 h3 p! f
STA $4004,Y
0 O# z) [" [$ i: e. W; |% n
STA Sound_Bar + $04,Y9 O8 H+ Y! v% ]0 N! N
RTS
) Q2 ^, }1 s8 v/ g, c
9 l3 p& D# q9 u8 o' b7 o6 E0 b- O
.ORG $FFC0) A; e3 E, t* m( _) ?
STA $4008,X/ V z1 u0 H4 J: i7 l7 a
STA Sound_Bar + $08,X f* w$ }8 s F/ I1 d6 `+ L
RTS
- ~% H {+ E" P8 [! a
; X: f* A6 {1 C& E
.ORG $FFC80 L+ f- m/ i% W! |( ^
STA $4008,Y4 D% [3 ]( F% ]( T! C$ p
STA Sound_Bar + $08,Y. D R* M: S; N7 x0 J
RTS
; q( {2 L* d! U Y
5 ~0 ? ]# q1 ]$ O
.ORG $FFD0
+ d: g8 ~" B0 Z
STA $400C,X- D( L, O% ?! L- c# a$ R2 L
STA Sound_Bar + $0C,X
0 J: r8 h( c+ x
RTS8 A# A( y6 q& E8 V* a
6 t8 ~) ~1 a1 U: `
.ORG $FFD8
$ ~8 N; W5 j5 \( W {+ l
STA $400C,Y4 n+ j" [7 Z: e
STA Sound_Bar + $0C,Y, n+ Z: i6 m1 G
RTS5 ]6 `6 K! ]1 e1 H: B% X
) w3 Q2 b1 I3 `) x' ^- u# ^: ~
.ENDIF& o- ^1 b3 G3 l, o

复制代码

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

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

非常支持您

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

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

本帖子中包含更多资源