[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音乐][播放器模板]% ?6 `& }" i1 M+ _# ?0 G! }+ ?
;FlameCyclone 20230710
) N: f: S* Y/ G2 p, n3 _
9 l0 ]" {5 F2 k, ?' E. A
;文件头
# O' V" t* o6 T* O( ]4 [
;======================================================================$ c1 e% w; ]/ Z, g3 s( |# t' e( G
.INESPRG 16 ;16KB PRG 数量
+ z# H7 W' P3 |! Z( l; E% |
.INESCHR 1 ;8KB CHR 数量 }7 l- v: w4 `" D
.INESMAP 4 ;mapper 4
, h! \+ t, x; x: @ T5 U
.INESMIR 1 ;命名表镜像 0水平 1垂直
9 C8 z9 `! a* v' k' h. a d
& I {# `; J8 B1 e! f4 T( V
;==================================================
' g2 ?2 S$ a0 }
SOUND_BAR_SHOW_ENABLE = 1* L- y2 l9 v( ^ T( v
;==================================================0 g0 a) I$ K3 n' s6 L' c. q! W/ ]7 j
BANK_DATA_MASK = $1F
1 e8 P0 [) \7 b, {( _: f
CHR_RAM_ENABLE = 0
7 N0 J$ E3 D0 c& e
IRQ_SCANLINE = 136& R6 m! s8 o. N: b; | M
;==================================================9 k7 h9 Y, T% Y4 J1 Z% n, m
SOUND_DATA_BANK_00 = $00
% @) m# k0 U2 V1 ]7 L
SOUND_DATA_BANK_01 = $010 ~& C& z" B6 A3 N4 Q+ G
SOUND_DATA_BANK_02 = $02
0 w: ^0 [7 z! k3 T( M9 z
SOUND_DATA_BANK_03 = $03
8 m) p l s5 s$ M
SOUND_DATA_BANK_04 = $04
4 m: Y& i0 N: \
SOUND_DATA_BANK_05 = $05% ?' r" G+ H7 ? m* M7 D9 e E
SOUND_DATA_BANK_06 = $06
: ]8 W# C+ b+ I$ F
SOUND_DATA_BANK_07 = $07& X0 `- `% u7 x6 n" E0 R+ H+ u
SOUND_DATA_BANK_08 = $089 @. Z K4 w) T) |9 u
SOUND_DATA_BANK_09 = $09
3 j4 d- J: L1 C& p
SOUND_DATA_BANK_0A = $0A
& c/ ^, d i- D9 z! N* T
SOUND_DATA_BANK_0B = $0B
; ^6 \3 y/ Z8 p' b
SOUND_DATA_BANK_0C = $0C$ }4 U6 k2 w$ O4 l @+ i/ a: i
SOUND_DATA_BANK_0D = $0D
% f) t. K! N0 l0 V" O& V& s0 `# G- I
SOUND_DATA_BANK_0E = $0E
( H% L5 n) X# `
SOUND_DATA_BANK_0F = $0F" Y! C: v7 Q' H# E9 d& ~( r
7 @+ `$ E& x3 P( y) j+ v
SOUND_DATA_BANK_10 = $10 p& {$ T4 D( G1 t O. }6 t
SOUND_DATA_BANK_11 = $11
; Y. `0 b d) p, |, G% p; v
SOUND_DATA_BANK_12 = $12
0 k8 c/ a$ T% B
SOUND_DATA_BANK_13 = $13
, ~ Y4 D4 S& v- E) E/ _! p: v
SOUND_DATA_BANK_14 = $14
% t: X5 u- M* }5 n$ @4 N0 X1 \% q! Y
SOUND_DATA_BANK_15 = $15* _3 e: a t- |8 S0 A
SOUND_DATA_BANK_16 = $16
7 ^2 C3 Q N9 E! B; Z
SOUND_DATA_BANK_17 = $17
/ ~1 F& c: I# c0 ^
SOUND_DATA_BANK_18 = $18) V/ s% L' T- L* X9 D$ H' \
SOUND_DATA_BANK_19 = $19
* {2 [0 c' C0 w3 m' h
SOUND_DATA_BANK_1A = $1A
; S1 S+ p ` E6 k2 G1 |9 Y9 z% }
SOUND_DATA_BANK_1B = $1B
/ x3 r# K, U, M3 D
SOUND_DATA_BANK_1C = $1C
: s- C3 V2 U& B$ n0 y
SOUND_DATA_BANK_1D = $1D$ y' U0 o0 d7 ]- Y
8 t$ f& J/ \* }
SOUND_DATA_BANK_C000 = $1E
# {7 I2 K; O U0 J r0 b
SOUND_DATA_BANK_E000 = $1F
6 L( I. j( [* E
;-------------------------------------------------
! }2 p' P3 Q' p9 V
CHR_DATA_BANK = $208 J5 f3 K2 Q& A
CHR_DATA_ADDR = $A000
/ Q! K6 Q) e# S K* h6 O) U
;-------------------------------------------------# F' X' A, b" ]8 H
PROGRAM_BANK = $005 A B6 ?1 b/ P$ C3 ^0 ~! A, w
PROGRAM_ADDR = $8000 ~& V, Q, z6 e. T/ I
;-------------------------------------------------+ V; J' x" i: P% t/ C2 K
RESET_BANK = $1F6 F' S2 c! M0 R, T( V$ @+ T
RESET_ADDR = $FD00
! I. K. H0 e; B7 A3 ~4 B
5 _0 n: m* S& W' F
;==================================================) Z# N+ o- z ^. Y* I$ I
ITEM_MAX_SIZE = 12 ;最大节目数
1 s, r7 o6 p$ A, b! S/ k
ITEM_MAX_INDEX = ITEM_MAX_SIZE - 1 ;最大节目索引" w P$ a, a) n
PAGE_SIZE = 5 ;每页节目数
( Y; o8 v5 x2 P" o/ G
0 G! S& O1 m+ ~! c2 m
;==================================================
7 n2 \& o$ p' ~4 m1 v# X+ x
.IF ITEM_MAX_SIZE % PAGE_SIZE ;不能整除
- A! A' y" k2 j0 Y, A I" d1 Q
PAGE_TOTAL_SIZE = ITEM_MAX_SIZE/PAGE_SIZE + 1 ;页码总数
( M/ J' c0 R8 i6 S% T
.ELSE
: ~4 H( g% `9 Y( f( s' P, l2 f
PAGE_TOTAL_SIZE = ITEM_MAX_SIZE/PAGE_SIZE ;页码总数. r2 _( X, o+ T2 z! O
.ENDIF
, w8 L3 \% P! N# V& w1 P- p1 h
1 P w& ?0 O. W4 C2 b9 \
PAGE_MAX_INDEX = (PAGE_TOTAL_SIZE - 1) * PAGE_SIZE;最大页索引
4 N+ v- R c: ^' L; D& D
0 b) |+ V* l- d& h+ d
;==================================================
r& @* ^' K/ Q8 L; L* J$ e
ITEM_SHOW_POS = $20A8 ;节目名位置
4 S- e" r. e) Y! @: N
ARROW_X_OFFSET = (((ITEM_SHOW_POS & $1F) - 1) << 3) - 2: L# u* E, s7 s$ ?$ g4 f
ARROW_Y_OFFSET = (((ITEM_SHOW_POS & $03FF) >> 5) << 3) - 1;6 Q; i4 T% c3 W% D: i9 A
;==================================================0 n3 J& Z, n4 B& t8 w- Z' r5 s
Caption_Text_Pos = $204D ;标题文本位置
7 }7 G' T: u1 g/ Y7 o; o
Author_Text_Pos = $2324 ;作者文本位置0 w# o6 [9 w6 F0 m
Date_Text_Pos = $236B ;日期文本位置
) r) C8 R* S3 X
;------------------------------+ m% V0 L$ _) D) d. s% L+ X
;------------------------------5 Z4 a8 L1 N" \. \6 o" I) N' ^7 Q6 C
.IF SOUND_BAR_SHOW_ENABLE
% e/ a4 @: j2 A& H: c
* G9 n; p) R# L# d6 ^8 @% g
Play_Index_Pos = $2273 ;当前曲目位置8 M( ~, k) Q8 u) W+ B1 N/ [
Play_Time_Pos = $22B3 ;播放时间位置. w4 r; y: E) K( V6 S) \8 @
Play_State_Pos = $22F3 ;播放状态位置" m) D; |2 |9 L
4 c, v: \5 n1 S+ s7 e4 R1 b
.ELSE2 k- {1 m: j' ?. i: F& v+ @8 p
5 a, Y0 z" M. c' K4 ?( Z
Play_Index_Pos = $226C ;当前曲目位置8 J1 ?# s, u6 ?) ?, i( F
Play_Time_Pos = $22AC ;播放时间位置$ a0 }( i5 V8 F1 v& ?9 N4 w- y0 E
Play_State_Pos = $22EC ;播放状态位置* i7 D) t( b" K8 x
$ t9 w. W* U9 n1 u1 n) k2 D
.ENDIF% m2 A I; A5 @
;------------------------------1 I$ S2 W0 G* u' |
Track_Name_Pos = $222B ;曲目文本位置& D, ^9 s" q" X/ ?: A1 o7 _! l
;Track_Name_Pos = $00 ;曲目文本位置" F5 u/ {! C" K- _ ]$ j3 s
Sound_Track_Pos = $2265 ;声道文本位置, r q5 q/ G7 g4 n2 ~
Sound_Bar_Pos = $2269 ;音乐条位置
8 {0 |# Z: u* ~6 u/ X
;==================================================
9 t# O6 @3 ^& S
Scroll_X = $00" z7 g1 }1 i8 z$ n+ w
Scroll_Y = $00 _5 Z* ^# J2 b7 n2 r8 Y8 d
;==================================================
) I& W! J- p* e
Sound_Ram_Addr_1 = $0100" i8 L& d% ]: H
Sound_Ram_Addr_1_Size = $804 g( i2 A/ K. E7 X- T1 V( A& y
Sound_Ram_Addr_2 = $00906 X8 @& j0 L# i9 B9 ?6 D0 A
Sound_Ram_Addr_2_Size = $70
% a- n. s! q5 `1 k, L
Sound_Ram_Addr_3 = $07009 H4 { n l, @7 M/ G
Sound_Ram_Addr_3_Size = $00
, l2 v9 _! c0 F* i z
Sound_Ram_Addr_4 = $0400
7 O; y( _$ l9 \/ h: Y
Sound_Ram_Addr_4_Size = $00
. M9 l* N& Z5 l" C) T# i. k) V, n
Sound_Ram_Addr_5 = $0500/ E' D2 c; d7 ]8 q5 C, W7 x" `/ v
Sound_Ram_Addr_5_Size = $40$ E7 m! T# U& z" o+ v8 G/ }8 Z
2 S$ v6 H* K1 m8 n* T5 y5 A! K4 B
OAM_TEMP_ADDR = $0300" C3 D4 Q% b1 Z! m& P; q
! r+ M) v& W' _: ?8 l- v
;==================================================! h% |3 @: u. A
PPU_CTRL = $2000 ;PPU控制寄存器5 [$ N" x% A% q. V* p
PPU_MASK = $2001 ;PPU掩码寄存器+ N; d. I, @ q/ U
PPU_STATUS = $2002 ;PPU状态寄存器：读取后PPU_SCROLL和PPU_ADDRESS被复位，下一个写到PPU_SCROLL的数据是水平的，写到PPU_ADDRESS的数据是高位
1 j5 N4 Q0 E' g
PPU_OAM_ADDR = $2003 ;精灵RAM地址：用来设置通过PPU_OAM_DATA访问的256字节精灵RAM地址。每次访问PPU_OAM_DATA后该地址增加1
1 T0 d" }' N% k5 u
PPU_OAM_DATA = $2004 ;精灵RAM数据：用来读/写精灵内存。地址通过PPU_OAM_ADDR来设置，每次访问后地址增加1+ ?4 m2 K1 u; J- X9 p1 ^3 z
PPU_SCROLL = $2005 ;屏幕滚动偏移：第一个写的值会进入垂直滚动寄存器（若>239，被忽略）。第二个值出现在水平滚动寄存器
# S/ ^0 J2 ^" P, i
PPU_ADDRESS = $2006 ;VRAM地址：设置PPU_DATA访问的VRAM地址。第一个写地址的高6位。第二个写低8位。每次访问PPU_DATA后地址增加
$ O5 F! P: [5 j+ z8 b! W
PPU_DATA = $2007 ;VRAM数据：用来访问VRAM数据，通过PPU_ADDRESS设置的地址在每次访问之后会增加1或32
6 k* X0 f: C- B* R. {* `. Y7 Y2 J
OAM_DMA = $4014 ;DMA访问精灵RAM：通过写一个值xx到这个端口，引起CPU内存地址为$xx00－$xxFF的区域传送到精灵内存
, m0 B" F6 U+ m2 K" M9 G4 s
APU_STATUS = $4015 ;声音通道切换
, c+ G4 X7 Y5 {& A% O
JOY1_FRAME = $4016 ;手柄1 + 选通
; o0 i5 A9 d& K- ]0 j3 {: z7 z
JOY2_FRAME = $4017 ;手柄2 + 选通6 m' E* J3 w9 I6 U
;==================================================1 w0 b+ l" z3 d% r- f0 Z
MMC3_BANK_CTRL = $8000( x/ _5 ]- U- {8 }
MMC3_BANK_DATA = $8001( a! q$ x% U3 k# i0 O/ V/ n
MMC3_MIRRORING = $A000
4 V% `( T+ z! V0 O% Y
MMC3_PRG_RAM_PROTECT = $A001
: h, A" o0 u& p% J. q1 E; m3 {$ q
MMC3_IRQ_LATCH = $C000; Z0 n) I' H8 V: P% Z
MMC3_IRQ_RELOAD = $C001, g* k0 Q4 R& P$ J: s6 E* \
MMC3_IRQ_DISABLE = $E000
) K) H( L" b3 G
MMC3_IRQ_ENABLE = $E001
0 m0 v* W6 C7 b \+ L+ r
; K1 V) ?' s" }
;==================================================
. {' |. a7 |$ V7 c( W' j; B9 k
PPU_Addr = $0200
( C, ?5 X. \3 X' W# p
Palette_Addr = $02C0" ~; O0 O/ m* M& p
Sound_Bar = PPU_Addr+$E04 w2 _# l, y! Y3 u7 u2 `
;==================================================
2 m% b: Q* a* \' s8 T
Bkg_Palette_Update_Addr = Palette_Addr+$0D0 i% P6 ~+ L: t: f* o4 ]
Sprite_Palette_Update_Addr = Palette_Addr+$118 Q# W$ a4 A2 V# M3 u" [
PALETTE_UPDATE_MAX = $2C
( Q3 p }; e/ _8 Q" }, v: s0 W, k
PALETTE_UPDATE_MIN = $21
, m+ h) n' L* a) P5 g
PALETTE_UPDATE_INTERVAL = 60
) ~. z" A0 Z3 z7 e. j) N& g) G
;==================================================5 \! v1 r+ W, D# W8 F6 q" S2 U
Sound_Bar_Cnt = PPU_Addr+$F07 b' h1 F2 x$ Q* L; d0 r5 ~
PPU_Cur = Sound_Bar_Cnt+$02
- `$ F1 l& l# G0 D0 e# \
PPU_Addr_H = PPU_Cur+$03
2 H# G: ~+ p' C! w, g5 j
PPU_Addr_L = PPU_Addr_H+$04" v' l7 X7 {$ a0 G' b% d
Screen_Ctrl = PPU_Addr_L+$01
- U; }" |9 V: X/ q- k
Screen_State = Screen_Ctrl+$01. W$ n) r( E) D( ~( N0 o3 c5 Z
;==================================================
3 |4 S0 y6 c! J$ Z
Use_Ram_Begin = $50
; S, G6 m4 }0 L" E
;==================================================+ B( y; \* |- p9 ]* f
JSR_Addr_Op = Use_Ram_Begin( C3 U: H) w& O, {2 |% m
JSR_Addr_L = JSR_Addr_Op + $01
2 V, \- g9 I0 X* Q
JSR_Addr_H = JSR_Addr_L + $01
+ I0 \4 H! S' B: h/ e, X
JSR_Addr_Rts = JSR_Addr_H + $01
# X& k" z( l$ N% l) x% Q7 @
Data_L = JSR_Addr_Rts + $011 T4 x+ U. S% w9 y, _. M
Data_H = Data_L + $012 C* k I7 N. c Q
Data_Cnt = Data_H + $01
; e/ w4 z& U, a! j, q) i9 U
Data_Buf = Data_Cnt + $01
% l0 s1 h) S6 Z# @* h% Z# g
Nmi_Time_Count = Data_Buf + $01
" u! j. \8 g7 r% o4 R/ w1 X$ A
Time_Wait_Cnt = Nmi_Time_Count + $01
$ k" Y0 _( }8 c5 ^
Palette_Wait_Cnt = Time_Wait_Cnt + $01& m; f+ a4 `: ~7 k
5 B2 V# `# ?* E, S. Q
;调色板刷新标志
% D& t( l4 l4 @. y. Q E
Palette_Update_Flag = Palette_Wait_Cnt + $01
7 m! i5 u! I/ X5 `
3 X; u8 a# u/ ]8 w5 ?. H$ e$ m: v
;当前帧文本写入禁用标志9 a/ o0 I" z! }: l
Text_Disable_Flag = Palette_Update_Flag + $01' U) v/ S8 L) f& P( s
5 x0 c( E; o6 y0 N) Y/ O
;==================================================& m f$ f1 o8 Z* o8 H
;当前帧文本写入禁用标志, 防止缓冲过大导致画面跳动
u+ I( y5 D, V. h6 J
TEXT_DISABLE_BAR = %00000001 ;音乐条( g% }) c- q2 y5 Q
TEXT_DISABLE_TIME = %00000010 ;播放时间( t) H) P3 A1 t+ F! V) ~
TEXT_DISABLE_ITEM = %00000100 ;播放时间
6 O! T/ \/ }/ J7 Q
TEXT_DISABLE_RAM = %00001000 ;播放时间
. k- Z. `& s6 I1 C
;==================================================' J+ h1 @0 @. p G
Key_Keep = Text_Disable_Flag + 10 B. `: s( b, x
Key_Once = Key_Keep + $01
1 ?, G6 Y: p- i6 D2 S: B: h3 E) B
Key_Kemp = Key_Once + $01
8 \4 V# r" a# J- n7 F5 w$ Y, V* k* t
Key_Temp = Key_Kemp + $01$ V2 m9 U9 s% {$ b
Key_Getv = Key_Temp + $014 A; [+ u4 ^5 y0 I5 c- {2 Q7 [
;==================================================' \+ U. ~ L! K9 U; r
Music_Item_Cur = Key_Getv + $01 ;当前音乐集$ L8 f4 a+ J' ~" [- D9 R: ?
Music_Item_Last = Music_Item_Cur + $018 K- Y8 o' K+ L, |. Z8 T7 l
Music_Total = Music_Item_Last + $01 ;当前音乐集
; Q8 m5 u+ i4 G5 |1 ]% ^# J$ O
Music_Cur = Music_Total + $01 ;当前曲目/ w$ {; O. @# i4 {7 f7 h
Music_Last = Music_Cur + ITEM_MAX_SIZE ;上一个曲目# D5 ?1 o2 k! I- K/ z) X. q' M$ z
Music_Stop_State = Music_Last + $01 ;播放停止状态/ J/ ]1 q# P: w( q
;==================================================
9 t# u! o1 I! j7 x2 m* i1 W2 ?1 J
HEX_Data = Music_Stop_State + $01/ f& O; A+ ]4 n2 a% B- o& i+ v
DEC_H = HEX_Data + $01 i' w9 |# K1 B/ C
DEC_T = DEC_H + $01
6 X+ N2 H& v4 [8 q' J6 s
DEC_L = DEC_T + $019 M. r' H* [' Q& a+ s
;==================================================/ J( g* [4 c& m: y$ X2 p0 z
Time_S = DEC_L + $01
8 N# @& I8 ^& y# [
Time_M = Time_S + $015 t3 I6 n1 X* A, j4 S' g0 }
Time_H = Time_M + $02- }& Z$ v7 _, s$ V. q
Time_Cnt = Time_H + $03
! B. D- Y# ]% j3 O! M
t- L. I3 L, s1 u$ E' @" I
;==================================================" A/ g& o4 F0 _& O3 X+ v! g% ~4 g
Music_Bank_8000 = Time_Cnt + 1
- n) m. X) W2 h" r# p6 q7 v
Music_Bank_A000 = Music_Bank_8000 + 1) X& L1 m* j) H$ }9 T
;==================================================
& d) ]: q( [: l+ f. I" u
Scroll_H = Music_Bank_A000 + 1
) x! r1 R2 r4 z4 y$ b& Z# [
Scroll_V = Scroll_H + 1
% i3 V$ u3 r$ H5 q
IRQ_Process_Index = Scroll_V + 1% w, ?, q( U; ^ S# H) J% A
;--------------------------------------------------' y$ |! V% A( }" o
Page_Cur = IRQ_Process_Index + $019 p" ?8 {0 V# a7 J' f9 Z; }) X
Page_Cur_Index = Page_Cur + $01
: H. q6 W# R/ c( c' i, m
Page_Cur_Cnt = Page_Cur_Index + $01
5 f# x4 p2 L6 G( {" v- U- l
Page_Last = Page_Cur_Cnt + $01
, e+ J% q# u2 L
Page_Last_Index = Page_Last + $012 G m+ p2 Y0 p q7 w: B3 \$ G/ \& M& N5 t
Page_Last_Cnt = Page_Last_Index + $01
$ r6 V5 I( V- \: l8 l* V
Use_Ram_End = Page_Last_Cnt + $01
9 ^0 S! T3 a8 c: T! h5 q+ w
;======================================================================
8 C' S& i4 R6 S# |
;音乐数据块( J) n$ t" w" C
( S" i u" s& o1 ~. [
.IF SOUND_BAR_SHOW_ENABLE
! Z! R) G# H2 K4 f* q' T/ o
+ n7 q1 T% D8 @. r' y
.BANK SOUND_DATA_BANK_00 & BANK_DATA_MASK
# I+ k! X5 _* Z0 j" n: E: d6 p, q! F
.ORG $90006 A6 Y1 [8 H: N* W. J& W0 [
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_0_bar.bank"4 t5 d! j1 }7 y0 j+ @
: a0 Q+ Z: n' @* t2 V9 t, r
.BANK SOUND_DATA_BANK_01 & BANK_DATA_MASK |# z: k. B8 p+ l
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_1.bank"
' }' k! l! L7 f) w- u
5 v- u4 @1 X7 z4 `$ g
.BANK SOUND_DATA_BANK_02 & BANK_DATA_MASK. ?; @. L" l. K$ a8 O8 Y
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_0_bar.bank"
/ S7 j' ?; `0 W. S4 x7 D1 r
, Z$ J1 ~! x5 v* k4 C# {
.BANK SOUND_DATA_BANK_03 & BANK_DATA_MASK
' O2 E+ e( p" d4 w& B& `2 ?0 }
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_1.bank"
% T! p* ~; x% N7 A
. [! `5 V0 Z6 M! N: ~& s
.BANK SOUND_DATA_BANK_04 & BANK_DATA_MASK
* Q. t/ d9 o2 p2 _+ w6 I8 [
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_0_bar.bank"
, G9 Q) R# l0 x/ r2 L. W5 Z
, C7 [8 b3 p4 E% R/ G; T
.BANK SOUND_DATA_BANK_05 & BANK_DATA_MASK
# z# D! _' x4 h* \
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_1.bank"' R' X+ L0 T7 ~1 N# Q
3 H1 z' Z( W# ?/ f
.BANK SOUND_DATA_BANK_06 & BANK_DATA_MASK
3 m$ Y% n8 e/ J$ ^: j2 _
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_2.bank"
7 p! @' m+ e3 f! M+ M
" ~, h+ {/ e, K1 k! G6 F) c
.BANK SOUND_DATA_BANK_07 & BANK_DATA_MASK
x) E9 w Y( h ~
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_0_bar.bank" v w( p6 }3 P
' E" i6 ?. t7 A/ S1 R5 T1 ^
.BANK SOUND_DATA_BANK_08 & BANK_DATA_MASK
2 Z: t! f2 z m: m0 t
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_1.bank"8 q3 t; e8 d" ]; h" M" S
* p; g: r' l+ ^# h5 d: H
.BANK SOUND_DATA_BANK_09 & BANK_DATA_MASK
; {! v8 `' e& s
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_2.bank"1 u3 P1 r' ?/ U& o" q5 L, [1 @
1 j2 u9 E% ~$ ~5 m! a J3 B
.BANK SOUND_DATA_BANK_0A & BANK_DATA_MASK5 v/ k+ B/ ~& B. A! P4 q. o
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_0_bar.bank"
0 S' l* q; `1 ?' C9 j! X: @
% _" q3 Z) E6 N% u: H
.BANK SOUND_DATA_BANK_0B & BANK_DATA_MASK) @1 x: ?, J! a8 V) t
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_1.bank"( U4 c0 s- K" `6 {6 D. c+ i, `* {# O9 c
- l' S8 `, B m
.BANK SOUND_DATA_BANK_0C & BANK_DATA_MASK/ j* ]) g9 d9 y8 Y, U& y% W
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_2.bank"
) d1 h- P( I, Z* O. }
' N& g* F3 U" w6 e+ L
.BANK SOUND_DATA_BANK_0D & BANK_DATA_MASK
5 _& x$ k, O3 [5 e& s
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_0_bar.bank"
* O/ n; d. a3 ?( U: U% \' w. p
7 a6 y9 X; V% `& e! t8 d4 O
.BANK SOUND_DATA_BANK_0E & BANK_DATA_MASK" P3 L$ J7 Z! J' |3 z9 q! Y" Q" {
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_1.bank"
& K( |( X$ _4 q0 B; X
. j" ^6 t1 W: a1 G2 g
.BANK SOUND_DATA_BANK_0F & BANK_DATA_MASK+ n% I& I4 K0 X5 \* ?
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_2.bank"
$ S; |" }" |5 G& N- v2 S
9 a) j+ C1 L3 Y' C* B
.BANK SOUND_DATA_BANK_10 & BANK_DATA_MASK3 O7 ^. L0 D. }# q4 _$ ?8 k5 l* n
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_8000_bar.bank"
, n/ h4 d7 a2 Q; P, I! h, ^1 E& K
4 Q$ f9 g) {: w8 p) u& w9 ^) X
.BANK SOUND_DATA_BANK_11 & BANK_DATA_MASK3 b" [, q5 w9 {) i" U8 \3 o
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_A000.bank"' |! f5 X6 k2 |3 a8 l7 V9 l3 e
6 E7 }9 F3 U3 a! @& e
.BANK SOUND_DATA_BANK_12 & BANK_DATA_MASK
! k& C8 X$ C' q% r- V
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_8000_bar.bank"
3 O) D6 E! z) U5 j& [
3 C ]' q. v; ]1 L: o: F& Q) R6 Q
.BANK SOUND_DATA_BANK_13 & BANK_DATA_MASK
- ]& h; B, h: G& S9 d7 O! ]
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_A000.bank"8 i! K' r+ K5 w, J- o, s
4 [, W1 z# n# ~/ {- U
.BANK SOUND_DATA_BANK_14 & BANK_DATA_MASK
3 B2 a' P" J7 H4 f9 i# a
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_8000.bank"
6 m7 t- I% u3 X( ~; T$ c# z( Z
I( ^5 x8 }( j9 y/ K* c
.BANK SOUND_DATA_BANK_15 & BANK_DATA_MASK5 R% F" i, \: C* @: t) F6 \
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_A000_bar.bank"
3 U7 z! W8 y6 h- X3 |
3 r4 G4 H, v& @0 G% _
.BANK SOUND_DATA_BANK_16 & BANK_DATA_MASK* N8 @5 V/ S' m+ o9 e. F3 R
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_0_bar.bank"
6 R) M$ x" u5 y+ \+ Q- E1 d% J5 }; d
, b( K- k, \7 g$ F3 N) }" |( Y' g/ n
.BANK SOUND_DATA_BANK_17 & BANK_DATA_MASK
' f7 b+ E6 B/ \' `% Q+ g4 D* W, M
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_1.bank"7 H e* {+ g! K7 `& t
2 _% N6 M) h: c1 u& P. d
.BANK SOUND_DATA_BANK_18 & BANK_DATA_MASK! {/ P( M& f2 w0 u; V5 n) [
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_0_bar.bank"
% q0 p& ^' O( B8 g7 Q( t# M
. i6 {$ H+ l. n5 h
.BANK SOUND_DATA_BANK_19 & BANK_DATA_MASK
+ h9 h# z. T% m8 d* s" O k& j
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_1.bank"
3 ]7 \, [+ W, X4 x: R/ |$ A J
) h& y/ l) D2 z# g" r. k' m
.BANK SOUND_DATA_BANK_1A & BANK_DATA_MASK
. \0 ^# f- d$ q, E/ Y. k
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_0_bar.bank"/ B& K, c( d% f% }% a. `; p
. U, T1 k! W9 D7 q' y
.BANK SOUND_DATA_BANK_1B & BANK_DATA_MASK) {: I w/ c5 M# y/ s3 m
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_1.bank", u# t# M- M% V2 N- l3 t
6 e5 F6 A6 H8 C9 ~9 b' x
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
. R$ e9 @2 @ u8 F3 \9 ~
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_C000_dmc.bank"
+ e; ?( q, K; m U$ O. _. w
* I3 w4 O! H; \! v- n6 V0 H- z3 ^* C
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
+ |% R$ d* ?% v, S
.ORG $D400* z n7 _$ f! b$ s( U& R
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_C000_dmc.bank"* y: q+ \! z" I
1 t8 S/ t- \2 j. G L) W/ ?
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
3 l6 F) G# q* A9 v
.ORG $D800 b( |5 n" P1 R: m: K) A) ?
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_E000_dmc.bank"/ m1 H$ Q& j9 a Q& R& o* `! ]- k
' P& a$ e+ o/ H6 R& o5 z
9 W% e5 W5 }) z3 I* B/ q
.ELSE
$ P5 o" _9 a W1 k' I* t
. [; w! |" N1 M% i7 C
.BANK SOUND_DATA_BANK_00 & BANK_DATA_MASK, [4 j7 V) O9 ^" M) J0 N
.ORG $90001 ^2 |4 d( o' q7 _
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_0.bank"
" C" {4 g* x6 @
4 J0 E9 _' w: d! P7 Z- |3 l
.BANK SOUND_DATA_BANK_01 & BANK_DATA_MASK
' @. P* `$ @4 R3 o+ {: q; n
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_1_music_data_1.bank"! a' o! X I, Y# @5 c
5 }6 Y* @4 T9 v$ R/ g. s5 Y& @! _
.BANK SOUND_DATA_BANK_02 & BANK_DATA_MASK
; C0 a, }/ K6 g' @5 j! E" u8 d
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_0.bank"
0 [4 i$ b3 F: q2 d4 K0 W2 q
g4 w9 S) N1 e b
.BANK SOUND_DATA_BANK_03 & BANK_DATA_MASK
" }3 c% V s/ R
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_2_music_data_1.bank"
8 q8 i3 F' d' ]4 n. J2 f6 r
- D' x9 q9 o0 _7 i2 t0 S7 \
.BANK SOUND_DATA_BANK_04 & BANK_DATA_MASK
R8 b O1 v* K2 V
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_0.bank"" `9 _4 [) K* s$ C
9 c% ~+ }& X, G1 Q1 A' d7 ]6 n, o
.BANK SOUND_DATA_BANK_05 & BANK_DATA_MASK
$ V) c2 U- I- t- t
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_1.bank"
3 V6 ]. }% e& v: M) b: l
7 i5 P8 C2 R. ~& C; {" V" H/ M4 M
.BANK SOUND_DATA_BANK_06 & BANK_DATA_MASK2 u5 Y9 `) U# u& b" J
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_4_music_data_2.bank"! a1 k1 v4 v a/ {8 s3 V
. y1 a4 l _! b$ O; G: g
.BANK SOUND_DATA_BANK_07 & BANK_DATA_MASK0 {& f& F+ E+ U' ]) z
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_0.bank"
) E3 A# R* t3 \/ ?! h" u
% `+ u" s' Q5 V1 h" k# ?+ D$ a& h
.BANK SOUND_DATA_BANK_08 & BANK_DATA_MASK3 J8 O& x4 {# c2 H! p/ F( @( x, e
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_1.bank"
* a! v8 g( M& r" w) [7 v/ k& z5 E
1 v5 \+ L, L1 ]* O
.BANK SOUND_DATA_BANK_09 & BANK_DATA_MASK4 z( q9 l) o% Y9 [ |- Y% B$ B& h
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_5_music_data_2.bank"
, m0 B1 W+ F$ }% x
1 G2 N! a' k6 m. i2 s! }
.BANK SOUND_DATA_BANK_0A & BANK_DATA_MASK
) X' D& q5 d9 s
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_0.bank"& c: R( l/ k: v2 f ]5 Q2 u7 p! d
4 s: k4 R6 Y0 h7 D* o7 J4 w8 ?
.BANK SOUND_DATA_BANK_0B & BANK_DATA_MASK. W3 O* M. a* C# X3 ~
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_1.bank"5 U* X+ A. H- G
1 C' x2 e9 q' ^
.BANK SOUND_DATA_BANK_0C & BANK_DATA_MASK& z' k. y+ p4 x: k4 m. ^" j& s
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_6_music_data_2.bank"
& i! T! ?4 i4 ?3 `3 ~* \% r2 \
* p. g, @( l) ~; C% y9 P2 ^
.BANK SOUND_DATA_BANK_0D & BANK_DATA_MASK6 g# _% [$ k& {7 h+ k: F" X
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_0.bank"
0 P2 y' q) l# {6 O: ?
5 U. S! J. \5 T+ U% _* I9 [6 u
.BANK SOUND_DATA_BANK_0E & BANK_DATA_MASK1 S( @. A: d8 A7 v+ {- j" f0 k
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_1.bank". b$ V' J9 P) J. @% c
! g" w [8 \# O6 [
.BANK SOUND_DATA_BANK_0F & BANK_DATA_MASK7 [* f) M: Z7 X6 A0 f( R
.INCBIN "sound_bank/fc music(mapper 4)/rockman/rockman_3_music_data_2.bank"
" f% g) ~9 }( i9 ?
5 I8 @+ r0 \- o. B
.BANK SOUND_DATA_BANK_10 & BANK_DATA_MASK+ c! Y a' |. k% u9 R% E1 h
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_8000.bank"
0 t: R! r4 |# O4 G6 D2 ?
" H- _3 k* d/ ~& ~
.BANK SOUND_DATA_BANK_11 & BANK_DATA_MASK
0 ?% l( I8 ~3 v) N' X
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_A000.bank" x( J6 D, s# I, [0 |' _
5 F, ~" f8 o+ B
.BANK SOUND_DATA_BANK_12 & BANK_DATA_MASK' w+ m8 ]" y4 Z! W6 S& A3 A
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_8000.bank"
# W* A6 G6 N1 w
) l" I7 _- B* z$ j
.BANK SOUND_DATA_BANK_13 & BANK_DATA_MASK
0 H' @* C$ c: n O
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_A000.bank"
$ I3 U" a4 q% x2 T/ n6 S" k
0 H' w& Y2 z7 E0 ]7 d+ ]4 \ y, l
.BANK SOUND_DATA_BANK_14 & BANK_DATA_MASK( A8 f7 U7 r: y
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_8000.bank"
2 I4 s& s }: V
' m/ Q: j# `' r
.BANK SOUND_DATA_BANK_15 & BANK_DATA_MASK% d" I- g0 l8 W8 p @
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_A000.bank"% n: w+ u `& G% } l
) E6 S) [8 s' ?6 z8 J! P# e
.BANK SOUND_DATA_BANK_16 & BANK_DATA_MASK
) o& [1 ~0 M$ j* G! [( l! ~( _. p
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_0.bank"3 p; o% r: n/ j
7 R: ]5 g0 e- L: l# l$ @
.BANK SOUND_DATA_BANK_17 & BANK_DATA_MASK
( i: h9 X( d6 m1 R8 Y! t1 o: r1 W
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd1_music_data_1.bank"
. z, ~1 v2 ^: D- d! ?2 ]
" x$ `" f. Q* o" q3 `
.BANK SOUND_DATA_BANK_18 & BANK_DATA_MASK& ?% w% _7 e2 A5 ? }, |( R1 w/ P
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_0.bank"4 r: o5 P6 Y: |- I/ k: V9 K
1 u" p0 @* h9 w9 E2 b$ E* Z. W
.BANK SOUND_DATA_BANK_19 & BANK_DATA_MASK* d; i& \. _( g3 o3 i0 o
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd2_music_data_1.bank"
, N/ A. A( m5 H" u
0 T. i" ?/ M4 {8 C/ {
.BANK SOUND_DATA_BANK_1A & BANK_DATA_MASK `8 b" D4 _* j6 C
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_0.bank"
D4 q' r# d9 x7 [
2 d$ Q! z: z; G, {2 P$ v, c
.BANK SOUND_DATA_BANK_1B & BANK_DATA_MASK% M5 ^& E# V! r% ?) r+ Z v
.INCBIN "sound_bank/fc music(mapper 4)/double dragon/dd3_music_data_1.bank"
. I; M# }- S- T/ S8 A+ m% ]
$ ^7 K: Y( w0 x! `" B. I; z7 `: R e
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
: G" }2 t% `" F5 e/ }( t
.INCBIN "sound_bank/fc music(mapper 4)/raf world/raf_music_data_C000_dmc.bank"
6 g" T5 }8 F A9 d7 G _
& `6 J3 q/ e- t7 T# }' H
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK, a) W O( k, G5 M
.ORG $D4004 |4 m4 H- C, o! }
.INCBIN "sound_bank/fc music(mapper 4)/final mission/final_mission_music_data_C000_dmc.bank"- ^9 R! x) ?. a1 c
. L3 `$ ]. H2 X7 F/ S$ ?
.BANK SOUND_DATA_BANK_C000 & BANK_DATA_MASK
; h% @) x# W5 j6 w' V
.ORG $D800
4 w9 r$ I9 S( {; ]# f* \- _" @
.INCBIN "sound_bank/fc music(mapper 4)/kage/kage_music_data_E000_dmc.bank"! F8 T5 |# C9 ]* o2 r3 f
' @! l: z6 u- B. T: @2 a
.ENDIF
, \' P" D M5 G R* j
% c5 f. b. s+ o' D# ~; ?2 i
;CHR图形数据
! y$ x* ]7 i$ C5 S0 Y' m9 `
;======================================================================
3 A+ m8 Q9 e( `; }% K( q6 D. h) Z
.BANK CHR_DATA_BANK
/ ^- Z1 T- Y; u# e: s& ?
.INCBIN "chr_bank/chr_data.chr"& E' C5 a+ w& V9 J, q
4 c5 s1 y9 g2 N
;======================================================================" M+ `2 u' s p6 ?( N0 B1 ?
.BANK PROGRAM_BANK & BANK_DATA_MASK: {$ r- ^1 A" ^4 s* B8 x* w! x3 B
.ORG PROGRAM_ADDR Q( {4 t. y* ?' n4 j
/ {9 I& \) c1 I. U0 ]# x2 |& e9 v
;==================================================: q4 ^7 P, s& b. {3 {# j
NmiProcess
5 M, O( L/ l: W: Z
5 B' O5 d: B0 ]; b* Q/ y* q3 @
;关闭屏幕控制
3 T: n, \- N' q1 [, F* x
LDA #$00( L! g |# N/ N# R: U
STA PPU_CTRL
# y# C- F+ t& }8 E3 a: G7 J
6 o5 `+ \" v( d+ G5 Q
;没播放音乐就不需要触发IRQ2 l' \* S/ E8 n4 i3 r
LDA <Music_Stop_State
) S8 ~& L0 \( Z' d) b' w' C1 R
BNE NmiNormal
8 G$ l& J+ X a. a* Z
3 s, e6 l9 ^3 p6 _; s
;重置IRQ索引
5 N& P) T3 ]8 L8 b
LDA #$00/ _9 C% G5 |: J4 n
STA <IRQ_Process_Index
" y9 P3 i, G. c- ^2 {! h8 G: w9 n
" W- r% Y8 z6 ~
;时间秒数为空则跳过4 r0 u3 @, @6 c) m* [6 L; x
LDA <Time_H, ~- [& O, Z$ _; v2 J. V% C
ORA <Time_M+ [& S2 [; X: N! k6 g
ORA <Time_S
% ~4 T+ v7 e0 u! o8 D; U
BEQ EnableFirstIrq5 M+ `- y$ x! d) P5 f
+ A0 u# k: W3 C
INC <Scroll_H
9 Q7 ]: c5 ?* _* \' h. I9 e
`; {6 s! D; H. l) s& @) ]
EnableFirstIrq ' R) U+ E3 y/ Y) m+ W; v6 o
;80条扫描线后触发IRQ; E) _2 q: J. O- X) R8 V
LDA #IRQ_SCANLINE
1 B( ~: ^0 n3 c7 ~% _
STA MMC3_IRQ_LATCH
( w1 |' r/ k7 O8 I
STA MMC3_IRQ_RELOAD) B& `( I k) N/ A& l9 }) Y
STA MMC3_IRQ_ENABLE
9 R2 K9 k8 I7 Z
CLI$ r0 B" E. \* n. C
0 j) g4 G0 P( P% k8 ]
NmiNormal
0 V; o( }$ e) x0 f/ k- r. O% m
$ |+ K4 e/ f, @
;处理PPU图像
) e" B. o0 i9 _4 k
JSR PPU_Proc7 H- b# F( j% b+ N$ B) b
5 a2 N, u' u2 e7 _4 M K
;写入精灵, 会占用516个CPU周期, 约4.53扫描线, 写入会导致1像素抖动(PPU处理徐优化)* s7 K/ n8 v) A$ b. e2 {" R, F
LDA PPU_STATUS9 `; C4 R9 I, M: I# D5 @
;LDA #$00
$ w$ j7 K) o8 |$ s
;STA PPU_OAM_ADDR6 r8 F4 G( D- [/ v+ j: P
LDA #OAM_TEMP_ADDR / $0100! |+ J9 t6 O' g; Z/ f% q( e
STA OAM_DMA
, f5 b/ S. k5 P' X9 ^ i
, x z9 q) y3 l h1 @. I' v
;启用NMI中断+ I o5 \( v8 F4 s5 ]# {+ ?! ~
LDA Screen_Ctrl1 j( D! S# [5 A/ I6 m
STA PPU_CTRL. n1 l6 c0 l) p4 Y
5 x# v4 }* B; W7 K0 C
LDA <Text_Disable_Flag
& k& @! G7 u) ~
AND #TEXT_DISABLE_RAM
$ L# x3 R1 k* S" c+ ~
BNE Nmi_Sound_Play0 V# z5 @% r" q- d Y
6 u2 r% {6 d- n$ p- G' I
;处理手柄输入
' b/ M& w2 O! A- I
JSR Key_Proc& z0 Q/ C0 v Y8 W% _# k: V" k
v' }$ {& k9 G) `$ l% q
;切换音乐(手柄触发)( m0 Y: k( m7 w1 u
LDA <Time_Wait_Cnt
$ p6 h- F! B( d' _
BNE Nmi_Cursor_Arrow
7 n, N8 h0 ~$ L/ O
JSR Change_Select_Item
3 ?. [5 g' }/ Z
( [9 n; G( D0 ?3 F( t y& d
Nmi_Cursor_Arrow
" }+ }5 S' k& v" t4 l3 q
* {6 `8 n' H& q# Z4 @8 Q2 B! }9 A
;处理光标箭头
' v( ^, c+ U5 V( }8 n1 C
JSR Show_Arrow" z; {, S4 b6 O7 C% p/ A) l; W
; m0 C5 U0 U# E. T' b1 N
;更新调色板& N8 B! c t% Z: c+ K
JSR Update_Palette_Data
# i' ?& M0 }: ^+ W
;显示时间(缓冲)
; N% l+ L; I" `5 E
JSR Time_Show& g3 W, {+ S7 j2 v$ x$ B
8 a7 L) M# F5 R8 ]! q6 j6 Q; [0 ?
;音乐显示(缓冲)7 t2 U, Y& } c/ e% f
.IF SOUND_BAR_SHOW_ENABLE
( {( u; u' _1 ]" q$ |
JSR Music_Vision
# s6 W2 w% f% s* y
.ENDIF2 A( ^0 h6 c' I5 q2 E# J6 |
% e% ^2 m4 T2 U$ {4 @$ |9 [
Nmi_Sound_Play
# s; ]9 j# }- m5 ]& A; v4 h
;播放声音
0 G: H7 z& e6 R
LDA <Music_Stop_State; J7 M0 R( W1 r0 [: U& ^
BNE Nmi_Time_Wait_Set( u8 |5 o/ n2 g1 C7 `
JSR Sound_Play_Proc
2 r' [0 a, |. L8 H. x' D
) T; R$ c+ Z, x6 `, S0 O
;播放计时8 y9 e) h# Y, o1 w8 f. f3 @0 O
JSR Time_Count7 d: K }8 i0 [9 r- C$ o
# g t7 m3 A" X, F) z6 U L* l& Y
Nmi_Time_Wait_Set6 P5 Z+ Y8 i/ V
LDA <Time_Wait_Cnt
/ X3 F3 E: r9 o. l3 Z0 v+ ]
BEQ NmiNormalProcessEnd# R9 N9 F2 V, S: Q
DEC <Time_Wait_Cnt7 Z$ g5 J2 Y9 `% v
NmiNormalProcessEnd! F) F2 }% B# `0 F6 G
& }9 N3 \+ _# a% T: C, Y, s
INC <Nmi_Time_Count* ~1 ?8 _- B8 X. `( t* I
5 h# t+ B; a0 K- y& K
RTS" N$ k7 w4 t$ v
0 f' ^6 V4 r' q2 a' g
;==================================================
2 `% H; j0 v$ Z! E$ t
Init_MMC31 l/ a! `4 }2 e8 A
;==============================9 V4 a! N( t, G1 p
;禁用IRQ7 L! G+ p- G" V
STA MMC3_IRQ_DISABLE
9 F6 u7 ~( w5 J8 j
- s( x* f( T/ L, W
;水平镜像
7 d- v: _4 f) L% K- t; p
LDA #$01
7 o. U, d3 t0 S/ i% b
STA MMC3_MIRRORING6 ^! Y2 ?% L6 i
- z& |5 s: ?' z- \: W4 P }
;初始化图形bank
/ J( z q m, r; b" z2 [. [6 G
JSR Init_MMC3_Chr_Bank: J, t0 _6 l9 @& E7 P1 r
4 n0 [/ m: Z2 @8 j* L6 x
RTS
+ d+ [4 }' g' ^. f5 \, P
;==================================================9 U+ J6 ~& }3 q& {$ z$ E3 G
ProgramBegin;主程序
% c! K+ H: P0 h
LDA #$00" H3 K, J& f/ i3 j. T+ v' Y9 S; e
STA PPU_CTRL. F/ `& h; W# A) |5 j
LDA #$00
1 s7 E8 r% {& A- y& ]
STA PPU_STATUS
3 S8 W. a0 {2 b6 ]9 n
STA PPU_MASK
# [ O1 A! |+ F1 p# S+ z, J
STA JOY2_FRAME
8 F$ g+ E O: q" e/ k6 t
& ]% T% m) E1 y( j: N; f
STA PPU_SCROLL
: m1 V9 \) s9 p9 P. S, h0 q
STA PPU_SCROLL4 c P# `: o! u* |
, V5 }: ]" g5 H. J' H+ m
;==================================================1 v( M& A6 X1 _. h7 S, V/ i
LDX #$FF
1 j% ]8 i* A2 B8 \
TXS' l6 N* Y9 D. o4 S! I7 A
; i5 a% d1 e& B* K6 H1 Q# y& K
JSR Init_MMC3
+ \$ ?/ v0 w) m( h7 O+ r( y& I! t
' T6 h$ B2 ~' A5 J) e# K; s0 m
LDX #$02
( r- _ v, F" p3 d& j$ Q4 M3 o3 @2 A
Check1! s/ ~, S1 u4 T8 B& w( O; {
BIT PPU_STATUS
5 O' u; e2 ]2 }" ] S4 q
BPL Check17 A8 ^( w: Z1 W! \" o/ \% ^: A
Check2
/ r( F) m1 N' p; ^$ q
BIT PPU_STATUS. V1 X3 f" N7 D" t$ F8 Y5 M
BMI Check2
- d g1 n$ |, E' w& w5 U+ Q
' \3 z, A; Z# a2 N, q6 j
LDA #$0F
) S2 k+ A+ L( \# E& f* I
STA APU_STATUS
% q) x: G4 T& R
LDA #$C0
$ I, w# o+ Y, }4 D! e2 T- s
STA JOY2_FRAME
% u" d/ C- p2 u
7 F: S% p% v6 N7 }1 c
LDA PPU_STATUS3 ~- y9 v0 C3 X% E- d
LDA #$10
$ B: {2 n9 u/ a
TAX
0 L8 Q$ ~. A9 v& i
Check3
6 W9 b/ X3 H8 f7 C g H7 ^
STA PPU_ADDRESS
8 g! ~, v8 Z& e! I6 N& T/ \ {; W
STA PPU_ADDRESS
, V' c2 x$ ]0 M, q) @/ v) q) t( ]
EOR #$003 \- R2 u$ t6 f4 m( v% `
DEX
& \1 l I2 X# Y2 E
BNE Check3
8 h( c; C/ I* o2 X& W! |
;==============================$ b) |, Z5 O4 I9 w
;调色板清空
+ c1 w( K# X6 Q$ q1 j2 R
LDA PPU_STATUS7 R' f. R: m. F5 \0 _( K
LDA #$3F
: ]9 L4 k G u5 v9 n
STA PPU_ADDRESS4 `) d* R6 P/ [& f+ r6 N
LDA #$00% N' f* S2 m1 A( Z$ r$ Y1 t# y' S- z
STA PPU_ADDRESS6 e' v- s0 i) S! N( R+ j+ L
LDA #$0F8 k' u" _ B0 `* @5 @3 W
Palette_Clear
+ t/ F) ~% X2 N; t! [8 s5 a! Y: N
STA PPU_DATA2 @- {! b" j- L
INX
$ L, }2 r4 Q' W s
CPX #$206 \2 l! |/ ^! G- o8 E' O
BCC Palette_Clear* R* ~/ F. U3 N3 u
LDA #$00
' I7 k; Z5 _ j/ D
STA APU_STATUS, G" {) z5 T$ U0 q) E# E
6 w9 T% \ r3 W; a
;==============================
' K! H2 R2 A' d& X$ C
;RAM初始化3 G0 w- v& ]" ]9 i
RAM_Clear_All
9 k1 q' n" l; N1 q4 m
LDY #$00+ X8 k3 J6 \- Z7 |8 E- F
LDX #$087 D/ c& R1 j! w2 G& h
LDA #$001 h% u) h4 j4 D* X
STA <$00
- c) w7 I, C5 w: x
STA <$01
# I0 s. [/ I" F k
RAM_Clear_All_Start
% f# Z8 G" U: ^7 x8 R! ~5 u& b
STA [$00],Y
$ V& G! Z7 I+ H/ J: f+ j
INY7 n% ~2 \& k' n6 R' G) P
BNE RAM_Clear_All_Start6 L8 e7 s) N+ h4 S- x8 n
INC <$01
2 p: P+ V/ E/ }. \9 X
DEX Z \7 S$ D' ]5 W3 j3 w( K( Z
BNE RAM_Clear_All_Start# Z% R+ ^: C# g. `2 E7 Y8 \+ y2 Q; |
- h; Z( ] c5 m& h! [ e8 Q* H0 m
JSR VramClear
2 L" j7 ~( {3 ~+ U0 p( l
JSR VramInit
/ H, ]1 T. i/ Z" ]# [+ l2 B! f
JSR OAM_Ram_Init
- ^ Q# \6 b" I+ r7 V3 ?7 R. l/ Y
JSR Init_Palette_Addr
4 y2 `* @2 D0 K# n
0 _; [" [3 F( I
LDA #$FF
, G) j7 I& \4 e" t8 ]
STA Use_Ram_End7 N. M W) P+ }& Q4 I5 { f
;==============================/ j8 o# c& G: y) `3 G x2 Q* ^0 v
;初始化背景调色板
) ^0 `$ A, d, R& f0 l$ K. Y
JSR Set_Palette_Color' T* ^7 u% [0 q" Y8 S5 p9 D. S' G
JSR Set_NameTable_Attributes
: q2 P4 q- Y2 J7 y W
$ o. V9 b# [3 b3 f
LDA #$006 Z' _+ |; n4 h) D1 H. c. a6 v
STA PPU_OAM_ADDR& K% l' H7 Z9 G/ ?2 E/ }7 M8 V
LDA #OAM_TEMP_ADDR / $01003 H$ H6 c: E8 h9 Z4 S
STA OAM_DMA
4 ^1 o1 `+ ^- A" B& }2 ]& n* v
6 y2 ^/ l4 D0 ?8 r- O
JSR Sound_Reset_Proc
5 ^% z" ~: `9 `8 C4 R+ ?- {1 k
JSR Set_Sound_Total
& m8 Z3 [8 _- B: f7 ^0 k: u. w
5 a7 J% S4 O/ e/ J4 N. {
Init_Start_Music
LDX #$003 O. j. d! u* R& V8 r; G/ s( j
Init_Start_Music_Write9 r9 ~" o6 o2 v( Z
LDA Sound_Start_Port,X
! p* ~1 ]) X0 G9 d
STA <Music_Cur,X% J& f. N l8 Z2 ] B
INX
7 N- P& ` h& p- s) }; v- F
CPX #ITEM_MAX_SIZE
7 k9 _ f5 {% A3 S
BCC Init_Start_Music_Write' e1 N, T0 ?7 k/ b( ^- y- b0 O# v- ^+ P
& ~6 ~1 m& `$ z) P [
JSR Show_Music_Text
- G9 U ~5 p# U( h; q
9 ^- ?% \1 z( \, N+ I6 X8 P# D7 F. |* s
.IF SOUND_BAR_SHOW_ENABLE
- O) E$ T2 w/ q; d9 R6 m
JSR Sound_Bar_Text_Set- |* W+ n* g4 j1 x8 F. {
.ENDIF- p) {* L9 t/ w
, n8 _$ u9 Y* J* k% F% o) T
.IF Track_Name_Pos) T9 s6 ]3 ^! w( Y9 c
JSR Show_Track_Info
2 ^ ~. e0 D0 D, j1 {" z
.ENDIF
+ e7 E9 s3 S+ Y
B0 Q* r* }, d# L8 U
JSR PPU_Proc5 h! Y% D: j8 `2 X. u8 P
" V/ ?& X- N& {
;==================================================7 a @% R: Y/ n0 @
;音乐bank初始化 - K c/ ~% ^6 w5 u" [0 K
JSR Init_Sound_Bank5 V9 v$ ?3 D- _: Q- V2 V
9 f ]& U7 y$ m0 D2 ?/ @7 ^
JSR Music_Show0 A( N" J. i9 J. i
JSR Time_Show
0 l; D O% m* S' @! R5 b- T
JSR Music_State_Show( H _" F2 K. k0 b* @5 {3 @# P% N
JSR Time_Delay
% N6 q* E; E( z. m l
8 ]1 T+ h# `/ m( Z
LDA #$01
4 \+ R5 L6 ^) W# A
STA <Music_Stop_State2 W0 ~+ x( ]4 h( }
/ O" h: w& R( M
LDA #$88
5 K1 c! n( `' g9 A, X, Z' n* N
STA Screen_Ctrl
7 J% @, u4 i' Z a
STA PPU_CTRL
. F* c2 W, e0 Y7 x* v8 y' m+ p8 ]& n
% _# c! \2 D7 x! }( O" S9 Z6 ?
JSR Show_Page_Text- |9 z9 h }& o5 Z7 I* M
/ D6 Y5 a0 q2 f$ F) g5 B
LDA #$109 C. V# g3 d: n
STA <Time_Wait_Cnt1 ~2 S' _& q9 }7 Z! v, l
J a0 y) J. v/ G9 D
Wait_Time_Over0 N$ t) S/ W2 k4 |8 H( S& {* J
LDA <Time_Wait_Cnt7 W1 n- _4 q+ G4 O& T/ L1 `' X) f
BNE Wait_Time_Over8 r" ?2 i. g$ a. X2 K
/ D. J* c% T/ f
JSR Show_Arrow# Q1 d+ g" V! {* Z1 i
LDA #OAM_TEMP_ADDR / $01000 m# C3 o" J4 f" _1 \( W+ q/ ]
STA OAM_DMA) G* K+ { j8 {. n9 k+ t
$ x2 t2 Z8 a% R4 H' |8 m
LDA #$1E" j2 c9 z. p) }+ `
STA Screen_State
' w% f% d8 K' p" T2 R
0 \1 O- o' @8 q$ z# z( r
LDX <Music_Item_Cur: `% c5 C& l" a8 x5 \( Q2 D
LDA <Music_Cur,X
5 M T6 c7 m8 j/ ~
JSR Sound_Init_Proc
! e" L, I( a' y( n7 B' \ u) d W
6 t9 Z4 v3 ]) C( g* s/ M
CLI& \' U7 A- p9 _
JMP MainLoop
- J7 P1 T9 b9 F: Q0 S
* f5 D$ O* B7 W% u& X
;==============================
8 d( x Z3 f5 ]2 o4 n) r: d
Time_Delay;延时等待
* s1 B8 ^2 a$ |! S4 A
LDA PPU_STATUS
% p7 n, H: W5 ]7 _% Z$ V6 ~( J! Z3 ~# l
BPL Time_Delay
+ I+ ^) g1 l, b4 o: ?5 h. ]3 o
RTS: G8 F5 n* { r8 _' q9 \
) |9 \1 C3 T% ~0 }5 T! \0 u
;==============================
7 Z& G6 Q, B }
OAM_Ram_Init;初始化精灵内存
3 |9 W$ X4 x g; [
LDX #$00
# Q9 N/ n. H9 Y: A
OAM_Ram_Init_Write
+ \: ^! v4 C l1 u6 C
LDA #$F8( h s. j' f+ o. s9 X/ }
STA OAM_TEMP_ADDR,X
# b6 a: i) A1 B
INX
% M4 t" L1 m$ T0 T+ B# U
LDA #$F8
. [5 Q9 W3 U$ m/ y
STA OAM_TEMP_ADDR,X
5 U; Y x9 I2 O& `- C0 |0 P: r! K
INX
$ g. G, E7 \1 \7 `* M/ d
LDA #$00
4 C0 e% U. |$ x0 ?
STA OAM_TEMP_ADDR,X( a7 [! C1 u) }& z3 }/ W z/ P
INX1 d1 x( P, Q4 a" }
LDA #$F8
5 N$ h; z/ a, ?
STA OAM_TEMP_ADDR,X% d0 ? X% R" p7 ?
INX
8 Q. g' i4 w! {% m: \) @
BNE OAM_Ram_Init_Write7 f8 {& r9 f4 C8 z6 C
RTS
- a8 v/ [' l$ ^0 }- q& ]
( L& ?" [6 o6 h: e2 U/ n
;==============================6 Y( T ]! b+ [/ [/ `
VramClear;初始化图形内存
6 g# E' ^% h: e; w+ ^3 E
LDA #$20
4 s% G8 c6 I8 ~/ G8 V
STA PPU_ADDRESS- D/ k; h3 {% i e
LDA #$00
* T: n" z X8 ~& f5 O/ }# D
STA PPU_ADDRESS# _1 v8 l2 r6 j* K/ V8 f
LDA #$00
+ _) P) v! b' J( R; `
LDY #$00
1 B9 Q ~$ D' l
LDX #$103 R+ U: ]4 \4 C3 }2 \
VramClearWrite; M, D; g }& \( d
STA PPU_DATA
w) h4 H% Z0 a" {; l: r$ E5 E& i
INY
* ]7 C! L8 F7 O4 c+ w% C2 u6 F/ r# S
BNE VramClearWrite( a0 m: Z2 G; W) }1 d
DEX
/ K4 M+ a- ?% R; b8 j$ J
BNE VramClearWrite
1 c s# @# o7 A# y" S; V$ J3 B' C5 A
RTS
2 q4 u7 E' [" N6 d# R
! z0 U9 { p/ f1 y& a9 x) I+ e
;==================================================
8 w" i2 w% ~$ [. ?) W( n, ^
;设置MMC3图像bank( G4 `/ S0 y* n% k$ [
Init_MMC3_Chr_Bank
v4 e. p7 i3 i
LDX #$05
' f1 A$ m( E& w, V
Init_MMC3_Chr_Bank_Write
/ j3 j" Q7 O5 }
STX MMC3_BANK_CTRL
2 \, n y4 D* s( N( w4 Y
LDA MMC3_Chr_Bank_Data,X% _# f4 l: ]8 c+ h3 ~) Y
STA MMC3_BANK_DATA
& P6 m) A3 d7 t2 c3 ]
DEX
0 k" ?" s. _* Z3 _/ Y: f1 i; @, x+ r
BPL Init_MMC3_Chr_Bank_Write3 m6 u+ I% P- n4 [% L* W
RTS
1 T" M$ N8 V, n6 G; J1 P: b
;--------------------------------------------------- T1 ]. S Q- s% [/ T# p% x
MMC3_Chr_Bank_Data" M# c% F2 e* y. h2 M' a
.DB $00,$02,$04,$05,$06,$07* `, h; K- e( c$ E( i, R/ T! M
* ?( O: x6 ~$ k5 K. e- t
;==============================
* V6 z( i' W* C$ X! \/ H
VramInit;初始化图形内存6 l: d6 A" D S
.IF CHR_RAM_ENABLE0 k# Z# p8 L g
LDA #CHR_DATA_BANK* t" c! D* ^2 a) {
JSR Switch_Bank_A0005 ~ }* O! m E! C* T' s' r' j3 y: u
LDA #LOW(CHR_DATA_ADDR)
1 i& @# \" h' ~) Q- y! n
STA <Data_L9 O! o2 @* k9 s+ P- z/ V N
LDA #HIGH(CHR_DATA_ADDR)
4 f" \ c2 E- w8 N
STA <Data_H$ T/ J& F! l; K
LDY #$00
5 E* q g0 k3 }3 i; V
LDX #$20
$ t) p ~& t, C$ Y+ W3 Q
LDA #$00* D0 L- q& F8 K& q' n
STA PPU_ADDRESS
5 ]: P+ F* n8 }7 C
STA PPU_ADDRESS
8 B$ ]9 ~& x$ W+ z8 e
VramInitWrite6 `* o( O7 c% T5 \" y! k
LDA [Data_L],Y8 ^" m. M' t/ ]% a
STA PPU_DATA. Q. D* h+ v1 V( {* P- R! s: b. C3 l
INY+ U2 h" h8 w0 P- [+ P6 x3 i. B7 F
BNE VramInitWrite5 A! h4 S- n' d4 g& P& N+ T0 H! Y
INC <Data_H6 T- T$ Q4 e$ i8 P3 Z
DEX
0 D' o3 ]. @8 C t$ m' q$ p0 j$ A
BNE VramInitWrite8 @ b* r: G" A/ ]
.ENDIF) s3 K. |8 P% }6 N
RTS
1 ~& Y+ P1 m; i
* ?- \( P/ a" ]
;==============================% B3 Q1 Q" z0 ?
;音乐切换
' y4 V' a S. {* u7 }9 @6 o
Music_Play_Change
5 ?/ \) }/ e) f! ?8 J& d2 G
LDA <Key_Once
" c/ `: h. N6 a
AND #$FF. O1 d; P. A' A2 \/ x0 }
BEQ Music_Play_Change_Check9 o9 ~! U" r9 M
$ T) @1 P. c# E; P, a6 q
;禁用音乐条刷新 F, t5 S3 x' r
LDA <Text_Disable_Flag. E, Y6 [5 ~1 W# D: q: R0 H
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME
& }& d% O# P. B8 z; O
STA <Text_Disable_Flag
# a3 [6 c6 \; ?& B
7 l+ u$ i* `3 d8 T- s/ z$ L% ^
Music_Play_Change_Check
5 F& c8 q. z* w' \
Music_arrow
/ J0 C. u, ^* N% T6 F1 ~6 n% {
LDA <Key_Once$ d. d' A# y( Z0 A( l ~6 h4 {
AND #$0F
& j; X) \2 X# Y; P. O
BEQ Music_Play_Change_End
) A* h" ~' R; C& X4 Y6 d, {
JSR Music_Track_Change. c0 N7 O2 W- @3 {7 w
JSR Sound_Reset_Proc
/ D# o/ U1 P' p1 G( F
JSR Music_Show
5 e! T5 L& y2 V P, t
Music_Play_Change_End
& @( G2 X! U$ ~; ?$ F- j
RTS
L& A. G" x, s' Z8 [% c* o
: ^: B, V n& v s
;==============================# @5 t% ?) @' C+ O; t* A/ M$ s
;音乐曲目切换# K# R O' t+ z% S* C
Music_Track_Change
5 `. M9 @5 ~1 {. ?9 Z0 _- v
LDX <Music_Item_Cur( A; Q/ `, c4 e9 c `
LDA <Music_Cur,X& e* V9 j$ F) I( _2 {
STA <Music_Last
+ K! U5 V& K1 h7 C2 y. g! l3 s2 G' {: F
Music_Decrease
" h# A; M4 w I, M* l' \
LDA <Key_Once
: s: {9 _3 E9 u' r5 ?" d
AND #$42% Y1 i% }% {, M3 u- @% ~) L7 k ]
BEQ Music_Increase
* F" N( B1 f6 ?8 R1 b$ E
LDA <Music_Cur,X
) D. C' v( d# o7 |* N4 b
BEQ Music_Increase
- \, ~: t" n- y: n* G9 \
DEC <Music_Cur,X. p' h# ]2 k2 B5 A! u4 b B, L4 G
Music_Increase! ]3 l) n; ]# ~+ s
LDA <Key_Once
" ^7 Z v( Q+ g9 W
AND #$81
2 R! f; z, S$ ~# u% c1 J
BEQ Music_Decrease_104 ?: O k' M A, X0 B. H
JSR Set_Sound_Total
! i/ _8 x ]+ O
LDA <Music_Cur,X& k+ X9 I# J3 A. B a* A
CMP Music_Total/ q; [- d5 n5 d m: q% @
BCS * + 46 j, [/ z' d+ c! h, K) M
INC <Music_Cur,X0 Z& ~7 U6 @; v6 m1 e) f! z
Music_Decrease_10
+ g" @' k) X$ W! y- d6 y$ w
LDA <Key_Once
. U/ S! X3 D6 T' L5 C
CMP #$04' }" g5 \4 P/ ~
BNE Music_Increase_10
' a8 u" Y% t) V# }! ~% C+ }0 N
LDA <Music_Cur,X7 q: f! ~: C$ \2 O& ]9 p
CMP #10
BCC Music_Start_Song_Min
* ]- p: Q6 b. x5 n) w/ a7 B0 M7 k/ |
LDA <Music_Cur,X
2 a* G }% w0 k7 T' A
SEC5 t+ m* O) Z6 A! M9 U O/ s8 N
SBC #107 `. H5 B" @" j
STA <Music_Cur,X
5 e( I& h6 ]6 Q
LDA #$00
/ b! k0 M% ]6 J, O% s* p
BEQ Music_Increase_10* W: s" |3 Z# z
Music_Start_Song_Min
+ p+ U* Q$ J7 y( ^7 V6 Z; n
LDA #$00; `% M) X0 f# H4 T
STA <Music_Cur,X& [; i, ^8 |/ d2 i6 s% T" _
Music_Increase_106 f8 i, u/ _6 O. [
LDA <Key_Once
4 z0 Z9 y2 M& G
CMP #$082 E0 |! a% [) _6 t# x" O$ M' D, }
BNE Music_Track_Change_End$ A2 C* J; Z- H. ?2 ?1 w) o6 }4 i8 @
LDA <Music_Cur,X/ Y- ?4 y' Q _; j, v! H$ G) b
CLC
: ]- `$ w! L5 R# K2 U2 ?
ADC #10) v% J- W8 n, n n8 t4 {' i5 h
CMP Music_Total+ o/ F) F- [0 C( Q' y3 l) ` d% S' \
BCS Music_Start_Song_Max6 |- X; d. u. p- ]+ b# o3 f# s
STA <Music_Cur,X
/ f, G) [7 Q% h4 {/ J+ X4 f
LDA #00, w2 Y. m) c, d
BEQ Music_Track_Change_End
; r. u& V8 }( e ]: W6 a
Music_Start_Song_Max) H( Z" T+ h: }5 N; i1 K0 K8 P0 @
LDA Music_Total$ g" O6 i7 e3 a: N- L
STA <Music_Cur,X; s" `& |, f0 c: } M( _1 c
Music_Track_Change_End0 y" |; _# G7 z; R
RTS/ h, R" ]( N* c+ x8 i
# \2 G, {! R7 o `$ \0 c, x
;==============================+ V/ b# Q4 M$ N* Q1 g1 w$ S
;按键处理
+ Z7 R0 }) u: U+ O
Key_Proc8 |5 {% j4 c! U& @
JSR Key_Scan
$ Z) {1 w2 i5 Z
LDA <Key_Keep
. S3 P0 `6 Z0 x( }% N) ~ i5 R4 h8 U
STA <Key_Temp# h5 y+ p$ s9 x
JSR Key_Scan
0 R, d9 I( ^; T# e' L" Z& }
LDA <Key_Keep, w2 m, R' H; X8 a, a
CMP <Key_Temp
2 P/ z v# b* m6 s9 t, t
BEQ Key_Get_Once
. y5 ]# u6 v0 ~' r: N
LDA <Key_Kemp, v" ]& z8 Z3 u, o ?
STA <Key_Keep
( K# O% c) @4 k7 U* y
Key_Get_Once* t2 |( o$ ^4 U: B
TAY! C2 H& v! p& C$ Y3 ~
EOR Key_Kemp
3 Y6 ?$ a q3 i P3 }$ B
AND <Key_Keep
6 I/ O2 V; v+ r% e( r+ Y
STA <Key_Once p! i+ d7 }6 {, U% ? Z
STY <Key_Kemp5 g& m5 t+ K) A8 z8 L
RTS8 g( b# C$ X" o. _: ]' b- X: S; F
;------------------------------ p, y& ]' H: ?- Q$ c) B$ {
;按键扫描
' u, r5 _3 Z }& m r7 k
Key_Scan
% H9 O2 Y% w; |) E2 J8 e9 ?, B1 s
LDX #$01$ U' Y% y0 O* P5 Y2 l
STX JOY1_FRAME* _* C, S. t; T9 R+ R6 R
DEX# T0 u1 h% o0 V4 x/ { r
STX JOY1_FRAME- b4 e/ `2 g4 |/ u! l) @
LDX #$08& G, A9 y6 W$ Q2 g% T3 ~! d
Key_Value
f; ?( W4 d& y2 C: _* w/ s* ?7 A
LDA JOY1_FRAME6 u* o! n! B5 ?# e
STA <Key_Getv c; r7 \6 B% r; ]/ o( L
LSR A/ V( M' Y! G x& }4 V) ~/ m( o
ORA <Key_Getv1 z! b# U2 C* `, b( W2 r
LSR A
+ @ C7 ]7 a$ ]' F" P8 I% ]
ROL <Key_Keep
. ]* b$ w! T% n. P" E
DEX: l7 e: ? m% v* E; _/ t6 S5 d1 C
BNE Key_Value
2 B* Z, H a: m* A* S+ m
RTS0 {- K6 z& L( E0 `$ X* [% F
7 z+ w' p" q1 w) V
;==============================6 `$ ?" ~1 x& [4 x& v2 F
.IF SOUND_BAR_SHOW_ENABLE7 _3 Q# f) i6 L* s9 [% C6 g) G
;音乐条显示
, u _: }2 S; x! A: v1 y0 `' u
Music_Vision
6 m* |0 K; z J% `# q
LDA <Text_Disable_Flag0 o9 R' h& e. h1 i
AND #TEXT_DISABLE_ITEM4 K3 y* q% Y- w7 Q+ Z+ N
BNE Music_Vision_End9 |/ x5 e. E3 L, L3 `
AND #TEXT_DISABLE_BAR0 e9 y% D, Y# {- i$ J
BNE Music_Vision_Set
" ~3 e! g* q: j: @( ]; k/ Y
LDX PPU_Cur2 N8 a' ~( i1 e+ v) K
JSR Music_Animation# [- v) W: e% p0 v9 u- |0 K
STX PPU_Cur
) Y; z3 B0 Y# e* {
Music_Vision_Set
`6 A" A6 f5 u1 r# |
LDA <Text_Disable_Flag' Q, d% `4 l+ D
AND #TEXT_DISABLE_BAR ^ $FF' N! X) }1 D8 W: J6 u( u
STA <Text_Disable_Flag
0 D& ]2 l0 ` m. I4 ~5 K" f) y
Music_Vision_End
. n2 n* c* a0 f2 g1 {4 I, B
RTS
& k3 H; _4 M* g0 W1 h" S+ e
;------------------------------
/ c6 I/ D5 p h& `9 p- e) V& j
;音乐条显示处理+ y$ o: [( a4 Y# B' T; D
Music_Animation
, C+ l( X* h m3 R6 _
LDA #PPU_MODE_CNT_LINE
; E6 T0 L$ _; p) Y$ q/ R* _
STA PPU_Addr,X7 c# }+ Q( W, P: z$ b
INX
# P% ?/ {7 H5 m( r e- K6 F6 @
LDA #HIGH(Sound_Bar_Pos)9 Y/ ]7 n9 G8 `- Q6 ~6 N
STA PPU_Addr,X
, G R& s' L# \) u/ d g
INX
$ P5 M5 B" h( H8 Q; g
LDA #LOW(Sound_Bar_Pos)
t5 C3 S6 {7 Y1 } G1 |0 M: I+ F
STA PPU_Addr,X
7 |0 c8 u* e+ q, q$ o: |
INX# j7 r7 A5 }- g- N3 D1 E* I0 l: V
LDA #$08
* L. R2 V9 m1 D' }- }
STA PPU_Addr,X
& g" w& y* i* W" u8 @
INX7 K3 J+ y& B/ v- l {* p5 X+ D
LDA Sound_Bar
' K/ C8 y4 A2 l' @" m, ^
JSR Volume_Convert
) d9 m8 S' k, c2 \, p
' G: O7 c4 N" r% P- ]# q
JSR Volume_Set_Cnt
' B! E% ^. p, t# A. w0 R2 Q
LDA Sound_Bar+$4
6 e! Q; m' R: L2 C2 p. E/ \* ~
JSR Volume_Convert
4 t# z# \+ R0 M5 Q, s8 x
# B# m) n$ f9 z2 d$ z
JSR Volume_Set_Cnt) V: t) s6 G1 G' O8 ?$ t- z, I0 o# k
LDA Sound_Bar+$8
- {* s" ?1 U8 c9 [' }- o
JSR Volume_Convert
5 ^' S- h( h, @
JSR Volume_Set_Cnt: p8 V! k4 i) w* ^8 R2 k& ~
LDA Sound_Bar+$C
' t) p/ M$ X7 F) K# T1 g
JSR Volume_Convert( ~ E+ B/ S4 m+ K, @1 |: `! Z, F
) b( L B1 A1 ]; S9 R& h9 Z
JSR Volume_Set_Cnt. ^8 O3 `" t2 ?: o
+ z# ~9 C8 l& J" }$ V& @8 k/ D. A
LDY #$10
2 v5 T' Y! t. `: h' y
LDA APU_STATUS
9 x- z' U6 g4 d( s" J4 R7 S
AND #$10
* \: I5 H7 f( J) s# {9 O
BNE Volume_Count6 a/ _1 H. R7 r" j
LDY #$002 J9 ]) h! n: L- u2 W# K
BEQ Volume_Count$ U" J0 K, V7 T$ `
/ Z$ K8 [3 L( v; L' a( d8 q j
;------------------------------
9 v( S: y; y- j# \9 ]% F# A
;音乐条处理
9 g- y1 ^! D0 B5 N3 z
Volume_Convert6 E! b) h& q; \" T" m# K$ Y1 f) @
AND #$0F- K, M+ S: I L$ s- K3 p" C, q
TAY
8 M" H' r0 m% T& S2 F! s/ u2 K
Volume_Count* z# i/ A# m1 u9 @/ O
LDA #$08
: m% b; Q0 b) k+ `: u
STA Sound_Bar_Cnt
9 d2 q& O( X4 d/ ~) \4 |- W" a
Volume_FILL
" r0 u, ?. L4 R0 T B9 J
DEY8 A2 E* T" \' H% |
BEQ Volume_Half
6 S! o; p7 U3 o# W& b: \/ V* E
BMI Volume_Empty* r/ }/ k: I5 L4 m
DEY
& F$ t' S+ Z# a! j8 L9 L! R
Volume_Full7 f4 r9 W8 p; _- l6 \
LDA #$16; J# S4 t4 q, N, |* h) V8 Z
BNE Volume_PPU
2 K, m* H% G6 }" A, y5 Z
Volume_Half$ D4 L/ |7 }3 z$ j
LDA #$154 `6 M4 F" ]0 q% d$ C7 o: g
BNE Volume_PPU+ O: R/ d3 h7 N# J: M
Volume_Empty
# e2 b4 A6 B& S
LDA #$14! V1 v/ `( w: l' l
Volume_PPU$ j- `: E$ c0 z' U u
STA PPU_Addr,X( E6 g2 ^, i% U! }
INX
4 j7 t1 H9 n0 Y
DEC Sound_Bar_Cnt
* v5 x; V9 l% A
BNE Volume_FILL
3 N* ?5 K+ D' K. Y: s
RTS5 m0 B J# P+ G' j1 h( s4 ]" a
O6 U5 V1 y; n4 x9 y
Volume_Set_Cnt. c6 [' a) P0 \0 \+ v1 ?
LDA #PPU_MODE_CNT_LINE_NEXT
f. w% D- Y3 t8 \9 P* R
STA PPU_Addr,X- |% _# a+ F& _8 _2 @) _2 S# D4 u
INX
1 \, I# q6 V4 M9 T3 M4 ]" f
LDA #$08
9 t, x% G) m3 h* O
STA PPU_Addr,X
) l8 ~5 t' s+ F: w# F. _
INX7 @3 U5 s1 g' [/ V3 d7 }
RTS
; ], }: {) I. M( Q8 E. M5 `* c9 P
( V2 }5 R0 O. A- M% H& J
.ENDIF
1 [7 H- L! H: d
8 V& m) j3 t+ Z& W$ D" J
;==============================- C9 n" W8 v+ n }) R& B7 ^. P: R6 x
PPU_MODE_CNT_LINE = $FA ;行计数写入
; G* V; P1 W- i* i
PPU_MODE_CNT_LINE_NEXT = $FB ;转下行计数模式
. A' x) G* H3 n9 \/ u4 G! J" Z, A
PPU_MODE_CNT_CLEAR = $FC ;行计数清除
! A' [4 @9 R0 L8 L* {) ]0 K- w' a
;------------------------------
. A4 f" ~, v- r1 q
;PPU处理6 |; @0 U1 B/ B8 |
PPU_Proc! _6 K- ^8 y! T& L5 f$ i
LDX PPU_Cur
C7 ]% J( P( S/ u( }, |. T
LDA #$00$ ]& J3 Q- W3 m! \% H$ m5 w7 @% x' L2 X2 l
STA PPU_Cur k2 y$ j3 `" ?2 s2 \5 \, N
STA PPU_Addr,X
9 }, L1 r* S u5 j% K' M7 x
LDA PPU_Addr; w0 g- ~8 @. }( B9 Y
BNE PPU_Proc_Beg
% R/ I( k% q# r4 a$ p) [
PPU_Proc_Ret
8 p0 z% W/ h! q; V7 h! y
RTS1 P- p8 b6 Q1 k) a7 l
, }6 M9 A( ?( b d
;------------------------------/ k7 a4 F, [" l! N6 f5 K
PPU_Mode_Return_Cnt ;转下行模式: h! e- y3 Z2 G5 q$ F' i3 b
INX- c$ Y3 p8 U+ j7 i
LDA PPU_Addr_L* L9 F# |1 E( G/ {6 _
CLC
4 Y( {2 ?, ?5 s ^1 p
ADC #$20" a3 I* K# ]4 j) p( w1 x
STA PPU_Addr_L: c: j/ c5 y; C+ g
BCC PPU_Mode_Return_Cnt_End2 Q( h5 R8 w1 ?6 E; m O, [7 |! k" n
INC PPU_Addr_H
p' o7 M, ~1 f1 X. n* d
PPU_Mode_Return_Cnt_End, X7 `$ V4 F. T6 j) e3 r
LDA PPU_Addr_H- \; Q" h0 q5 Q; H7 f2 a) x3 @
STA PPU_ADDRESS
+ ^3 Y( U' E W `) F- _1 ^8 k
LDA PPU_Addr_L e0 ~" g8 B& y
STA PPU_ADDRESS$ D; f1 S3 L) ~; a
LDA PPU_Addr,X
& Z$ J6 l) h2 J& N
TAY/ W. _" q# F. B1 `; q
PPU_Mode_Return_Cnt_Write; q5 R* D3 G% p5 k% F' N/ P
INX a' P( n6 y' E7 S$ Z
LDA PPU_Addr,X0 C0 |, f" _/ b! o
STA PPU_DATA3 P l9 |0 y; l% o2 x& j$ U
DEY
" a0 o! H& l/ E( p
BNE PPU_Mode_Return_Cnt_Write" h6 q' u8 z" u; @3 [
JMP PPU_Proc_End
! Q6 L) t7 P! j i, x" A" d R [
/ `2 }' s- {8 d* W9 G8 [* v
;------------------------------
# F) _# ^- v4 S9 m4 ^8 j
PPU_Proc_Beg ;处理开始
( v4 l- h2 x. c& A+ N0 z
LDX #$00" n3 i: S( f, q. J
STX PPU_MASK' p3 C# }0 J; ]3 E& D& p7 F
;------------------------------: F- Z- d9 S: M
PPU_Mode_Select ;模式选择' a3 L) V" I! G0 A4 x5 |' n2 [3 }6 j; N
LDA PPU_Addr,X
4 ~# k4 E2 \* F5 c, Z
CMP #PPU_MODE_CNT_CLEAR" a7 X }7 m. d) z8 \( |7 A+ t
BEQ PPU_Proc_Clear
9 J. T$ i+ }8 y3 b! ^; V7 f
CMP #PPU_MODE_CNT_LINE
8 Q4 Q2 K# r0 ^. T) y5 w& Z
BEQ PPU_Proc_Cnt_Line
2 P. I9 Z' O) {$ M& v$ S0 R
CMP #PPU_MODE_CNT_LINE_NEXT
7 P7 {' n- Q, r8 b, D
BEQ PPU_Mode_Return_Cnt; l1 i* _2 j; N0 O7 Z- Y
JMP PPU_Proc_End_Write+ ^' F ]' N- l1 L& W2 k
;------------------------------
; V; }) }& |5 Q; T
PPU_Proc_End ;单行写入结束4 l9 i. S+ S; M- a; |
INX
7 Y: I H/ Y- h
LDA PPU_Addr,X
7 @) m' R; w0 l0 m* }4 @0 r$ R0 J
BNE PPU_Mode_Select' J' a8 K }; g8 p+ A8 D' u: l% ~
STA PPU_Addr) H8 q8 w5 w, @+ H) P
JSR Update_Palette_Color. E }/ C7 v: E+ \* [
+ M& O1 r9 p6 T9 r2 h+ G3 ?; Y
PPU_Proc_End_Write7 J7 H" z! q5 Z! q6 Q
LDA #$00
2 C8 S0 W$ n' \8 Y+ P {) o
STA PPU_ADDRESS
- i7 Y$ z5 u2 ?7 q8 o& w
STA PPU_ADDRESS7 B. M/ }9 j d/ n# D- P3 a
LDA <Text_Disable_Flag
/ U8 @6 z! J, h7 o; ]
AND #(TEXT_DISABLE_BAR | TEXT_DISABLE_TIME | TEXT_DISABLE_RAM) ^ $FF
* E- a6 e9 I: l7 Y
STA <Text_Disable_Flag
& _5 ^! j, q I) n
LDA #Scroll_X( v7 r' O6 z1 v$ `( L0 |
STA PPU_SCROLL6 i9 S A' L7 Y! _8 V ?
LDA #Scroll_Y' i# U- a @% J" p' w' `$ C' [" g- {
STA PPU_SCROLL
- T# F' b! U! j! f* e+ P) l
LDA Screen_State. J9 U5 I1 W K2 ?* \" Y/ r; W
STA PPU_MASK
$ K) ^/ z9 v& x1 j
RTS
7 o6 B S- K+ W, g
5 V& L; }1 X' O- n2 H6 r0 X& G- G! a
PPU_Proc_Clear7 F1 `' b+ `1 `4 `2 u @
INX
+ {, D! H: o; J1 ?' K. R' c/ Y
LDA PPU_Addr,X& f7 h( z! V8 _
STA PPU_ADDRESS
1 G8 g9 k( p- U3 @) d
INX. T# [) J+ I/ c' Z3 x0 P. X
LDA PPU_Addr,X& J6 N) M- }/ i; G
STA PPU_ADDRESS% O+ j [8 x" M& m/ H
INX
$ E B! y6 g$ k2 c
LDY PPU_Addr,X
5 Z8 j0 O- H: e; _4 x' N+ M3 [
LDA #$00
# z( f6 r/ X3 ^" a: _
PPU_Proc_Clear_Write
/ H" }+ ?0 F( d4 M+ Q" y. }
STA PPU_DATA# i9 B# a/ J8 m2 Q% K) m% S* z5 U
DEY+ _2 O* R4 a* y1 ]% K
BNE PPU_Proc_Clear_Write2 M- _8 R( L: ?7 u8 a6 R: \/ U
JMP PPU_Proc_End
" Z/ E( `& k: a
$ q7 Y7 P; p5 P% ~" c* L2 X
PPU_Proc_Cnt_Line* x. ?6 u5 i# u/ G8 B$ f/ M
INX
6 \% s6 J Y6 o$ x# p" c6 p' N
LDA PPU_Addr,X, K' x# t" j" M
STA PPU_Addr_H/ n: ^! h& n5 o5 ^0 Q
STA PPU_ADDRESS
+ H* R% ]- _6 b e
INX) q# H' X0 G$ \! f% L, {4 p
LDA PPU_Addr,X, L% y% ]5 e0 [- u4 U5 z
STA PPU_Addr_L* w' `. a1 [$ r5 l
STA PPU_ADDRESS
+ c' d: s \# J, _& Z @4 x
INX: T, C, d4 s2 f3 I5 M
LDY PPU_Addr,X0 |* u2 J6 s5 B) U4 h! f
PPU_Proc_Cnt_Line_Write
3 m" X0 d6 g5 \+ C/ S' M
INX/ L; \5 O) V) h. O$ W3 ^( o
LDA PPU_Addr,X. m1 x5 i; G' i; ?/ b" H$ k
STA PPU_DATA
. F( w8 ]" |, v
DEY$ V3 _7 E' P/ X0 m) @
BNE PPU_Proc_Cnt_Line_Write
0 n: _8 g) }- P* Z
JMP PPU_Proc_End, e$ v" U% x1 Z3 c) Y
. i( w/ a6 H1 J8 R" }" _! V
;==============================
% @) s& J A* z* D
HEX_To_Dec;十六进制转十进制* U$ U. z2 c# R' {3 }
STA <HEX_Data7 w+ t3 u0 K9 b6 y/ P
PHA
8 E( x |9 P4 }* Z+ z( \- y/ R
TXA
8 }* e6 [, j* ~0 j! `6 S) _5 i3 L
PHA
7 u0 X' `& [4 a* d1 d
LDX #$00
" h( I3 [4 z$ R/ W# z) R/ X
LDA #$00
2 g5 p' e7 ~; G @! R
HEX_Cln! D; h8 ^7 N5 ]! g' N4 ~& }" l
STA <DEC_H,X- Z$ O; e# }% m" r, [+ ~; J
INX9 {$ W( z: v8 \
CPX #$037 [8 E* E7 h8 d0 G& @, t
BCC HEX_Cln
0 C2 u3 C9 X1 U5 |0 {/ r
LDA <HEX_Data
) C7 P# r4 o3 Q3 p+ V
;------------------------------! @7 C1 |, `) c; y' v, H
HEX_1005 A/ F% @2 p) j0 t
CMP #100" m# v: u1 {$ `( Q2 y
BCC HEX_10* I! u, g8 U* u& E% L/ I
SEC8 M5 x' b/ K; E- ^
SBC #100
1 N% y0 U* X7 C, k! v
INC <DEC_H
! A8 o y9 k. e* Z; [- p+ G1 ~- m
BNE HEX_1001 o; ^# `3 C7 r$ h' t6 e( y4 a( {" d
;------------------------------
5 O8 f8 ?% d; G) X/ H( C4 [5 s
HEX_10" |3 q: r$ h) v
CMP #107 [1 P$ p c% H# L- s" d2 J
BCC HEX_19 }5 K4 q; I5 ]) k" n5 X, B
SEC
) l! q% g! I! o3 e9 Y( J% L* L
SBC #10
INC <DEC_T# x" b R$ v. b! ?
BNE HEX_10' D2 @+ M: U% m! g! Q9 ~
;------------------------------0 o* J# O3 U6 f9 h% u: D
HEX_1
+ l+ O$ _5 \% C# m7 J/ E' ^
STA <DEC_L) N0 B J2 `1 h5 ~; G* s
PLA
+ `9 \0 n) f' ?( Y" ^
TAX% {5 t" R# F. f" f& [' N
PLA
( H% k' E& j. d$ x( s P1 F
RTS9 |8 F) C) n& V, h7 h- b# n, |% @
5 r, b, f# S4 r- p) t
;==============================
, o3 C9 F6 z5 Z7 B( l
;音乐曲目显示) i0 M8 m& ]9 j8 g+ a5 t ~
Music_Show# x5 x! X$ g* H5 F/ Y! s) Q' y
LDX <Music_Item_Cur
9 m+ l1 a' ?6 P
LDA <Music_Cur,X9 }3 b c/ m \/ w# \; ?' q
CLC, E- W" |4 ~1 c2 {* n( q( A! l
ADC #$01
* `! ?& S: B) U8 _5 M r: W* I+ e
JSR HEX_To_Dec" E! h* p' r Q( R. |
LDX PPU_Cur6 ^7 U& S- u1 p/ @
LDA #PPU_MODE_CNT_LINE8 w8 P, D& L6 P. m5 w X% W
STA PPU_Addr,X% G( H" C+ p# ~# c/ D, d5 {
INX
$ g9 `- y& g) h5 m1 K/ O
LDA #HIGH(Play_Index_Pos)
+ m3 o: v( V/ O- o' a
STA PPU_Addr,X0 @: P7 \( A$ H1 E. m
INX
: o/ A; Y% C% [' n; I
LDA #LOW(Play_Index_Pos)0 i1 {8 Z5 J Y6 E& t
STA PPU_Addr,X8 P6 B% v' @% q
INX
; ^5 [8 p/ d5 n" M3 u0 [4 h. L1 b
2 g- q7 l5 d; _7 ~1 G, n
LDA #$07
& @8 J: m/ ^' a7 J7 |& o0 `+ C
BNE Music_Show_Length$ e2 [" V! d' J$ N) _! E5 c& [
9 c, t* O2 S( M* N F
Music_Show_Length
" l+ z k+ T3 y, L) H4 `
STA PPU_Addr,X
* F1 b. D* z; ` W, ?3 K
INX3 y: ?; ?& \% _
6 y; \1 y, v7 u, r. L7 k
LDA <DEC_H: k( y$ W/ z6 e: P% J% e% K. U j
ORA #'0'
j. L4 N8 z4 P! e5 t) i
STA PPU_Addr,X
" O8 B: ^5 N/ e- |& d* k5 B; m3 a' x/ m
INX
, O% m3 U9 R: a$ X! Q
; g N' E- X( O- H" q; Z
LDA <DEC_T5 |9 T+ o8 k8 q
ORA #'0'
3 P& d7 r1 M) \; j4 u
STA PPU_Addr,X
- c) b% b( _! B1 B5 b
INX$ }1 _ h: F4 B& W3 f4 |( R
( ~" V8 N+ M: ]$ i8 w
LDA <DEC_L
' m0 c+ G% K) X2 y0 P
ORA #'0'
4 K* }. K. F H9 L& }- I
STA PPU_Addr,X6 A1 x% t, H2 v$ w* v/ ]+ L
INX3 z6 E1 k% L$ H. `8 _# p: n
- ~ D6 V* D& F4 Z
LDA #'/'1 r* ?9 m4 r, @* m. g, L8 Q
STA PPU_Addr,X
! A5 c8 m% ?9 T* E# y+ U
INX l! E m& t6 @" Y1 w- |: Q" w, o
Music_Show_Total
% h0 n' Z" a4 e5 C
LDA Music_Total
; Z4 U+ w% g q
CLC
* F* X- r9 ~' g, _3 [, E/ `
ADC #$01/ j4 g9 I, F1 f, K7 v3 ]
JSR HEX_To_Dec
0 Z- B* X: W. k! A/ x. A# ^; a
' J! l% w$ _; D3 l6 c5 N' \
LDA <DEC_H
* J# R4 o4 Q' e; M2 T# u5 z. @& ^
ORA #'0'
1 i8 d# Y# J2 U) I( h
STA PPU_Addr,X5 V4 _. [+ T$ k1 @& j
INX0 v/ U; W* o T' y: r; ?
! Y/ Z; t& t3 d& `4 N5 l
LDA <DEC_T
0 d: F+ M2 y* C$ s% m# B, k
ORA #'0'
' |$ j# K1 Z4 L6 g2 X7 H, w
STA PPU_Addr,X& z6 P9 Q0 R7 N( t1 F
INX
% y5 J( e e) H, x
6 M& F$ ~- j$ |6 _" V8 [% d
LDA <DEC_L3 O3 t4 ~% |1 r) n3 ~0 d- C* M
ORA #'0'/ b2 d* m3 ] ]+ Z
STA PPU_Addr,X
0 r& ^; O! s' i5 s r- w ?
INX) j, L- h2 \& N& @- x3 G* V
6 H" G5 [9 h7 d7 Q) h: R) }9 z
STX PPU_Cur7 ~3 L+ `# z, x: _
Music_Show_End+ m) o; x$ ^$ h9 m) ~; m
RTS
/ O4 L3 L3 n3 G( ~5 b; m) a
! n; J: [5 q( {" `/ |
;==============================3 b# P2 U8 B8 K: x7 v/ G
Time_Show;播放时间显示
& h- U2 ~7 I2 |4 F
LDA <Text_Disable_Flag5 T+ ^0 B' {7 X6 W" a* j9 I" H+ D
AND #TEXT_DISABLE_ITEM( E, M7 K( j2 ~( [) p
BNE Time_Show_End
2 R5 u9 _& @* d$ J; A
AND #TEXT_DISABLE_TIME, f* H; g: A4 w% m5 X1 \/ O4 g
BNE Time_Show_Enable
+ [& \' r2 m( n. W- [ ?3 y
0 }! S. ~5 w3 e& Z0 @2 E5 Q
LDX PPU_Cur" `' i: L8 [$ E+ c+ v, P
LDA #PPU_MODE_CNT_LINE8 K* ?7 Z0 D- O1 |5 A& \& J! s
STA PPU_Addr,X" f9 [- N: @0 V
INX; p( U4 G# y* f. T8 a2 p( I" ^4 F# o
LDA #HIGH(Play_Time_Pos)( o. @. A6 |' p3 ]9 \9 f' m8 I% v
STA PPU_Addr,X7 B7 F( V8 l( p% G0 y' | a% N0 c- V" ^
INX
. x+ D1 s9 { T# f9 k
LDA #LOW(Play_Time_Pos)( G4 R8 g1 @* A N5 P/ `& ^
STA PPU_Addr,X
$ `) t u2 @. B/ ^2 o) s
INX
LDA #$08
$ P$ I) d$ s" x3 D' X! ` u( a6 ^
STA PPU_Addr,X
- z( m& }2 p* z" c1 W0 @# ^
INX4 H. q4 R0 C4 g9 [8 w3 X! {
Time_Show_H1 b3 I+ S# l5 R4 j# v
LDA <Time_H' r. S+ D' O9 b5 E1 O( H
JSR HEX_To_Dec# j- u, a3 V! j' r: g: [
JSR Time_Digit$ p- M7 ^) K( a
LDA #':' @6 T S( q7 ^6 T1 _0 b
STA PPU_Addr,X
2 }9 W3 l/ o" c" U
INX
/ r- q- k O9 B
Time_Show_M
- z: Q, t# X. `( Z* A
LDA <Time_M' Z! F3 p2 E5 r% d( k! [, N+ q3 T2 i
JSR HEX_To_Dec6 \4 ^9 w0 l% F2 t( b
JSR Time_Digit: D a4 Z: D. F5 d) l: P: E
LDA #':'
: W9 I% C3 n& z/ u
STA PPU_Addr,X! W( o3 T8 V& V
INX
. v w- g& u0 s( p9 d
Time_Show_S, d( M4 |0 U1 ?2 N) V) K2 C
LDA <Time_S
( H, |2 D- h# A: c. `9 m+ O# P& X
JSR HEX_To_Dec
" q9 g/ H7 V1 i0 A9 D8 [
JSR Time_Digit. R. f! F, @! S) ]. \; P& V
STX PPU_Cur0 v, c7 U6 Z) s0 f8 ]! Q$ o/ U/ q+ ?
Time_Show_Enable- U$ d) |/ \$ y3 F0 n' q
LDA <Text_Disable_Flag
, P" m8 ?, A2 O3 m3 m/ l( \2 P% A8 B
AND #TEXT_DISABLE_TIME ^ $FF5 J4 ^# k _5 W9 X- y+ {- T
STA <Text_Disable_Flag
" G2 d; O: I' W3 }" W
Time_Show_End2 h5 _( c( }" w, l9 s
RTS% z, y6 A) V. y3 D( U
' K0 u. Y- G% k l3 D
Time_Digit
! Y9 t! Z' H' U6 W" d* F
LDA <DEC_T
% \- F$ e9 O) L3 n
ORA #'0'7 F1 N( @3 ~2 {# |* D
STA PPU_Addr,X
0 M9 {- g" z$ y
INX, t- P8 {6 z3 k
LDA <DEC_L% X& S+ C5 T: Q0 e, W6 G
ORA #'0'. e' E1 p8 C z3 c4 M$ e
STA PPU_Addr,X/ s6 }4 C/ W, V1 J, T! |
INX: u* a" ~+ L! c/ R F
RTS
- {1 {) d6 ~ A; k
s8 E# U9 q' H f0 _
;==============================
5 p q. \+ e7 B5 [
Time_Count;计时
* ]5 M& b8 L: W' x, }& t+ x. a. f
LDA <Music_Stop_State
1 t/ {2 j3 _5 C9 R, r5 J4 D4 e
ORA <Time_Wait_Cnt; v% F9 ~2 x# M8 f
BNE Time_Count_End c* d/ c8 f- w+ a& S
INC <Time_Cnt b, h" H4 M% M0 w4 p5 ~
LDA <Time_Cnt2 r- k9 a Q2 p$ p) A' \$ l
CMP #60) l0 Q& m% G" H; p. [
BCC Time_Count_End0 Q# C) B0 _+ E8 O* }$ m
LDA #00) K. u b* j1 b# [
STA <Time_Cnt
' v& Z5 p: T# h" j8 ]# x
INC <Time_S/ U( v5 }% w" B1 g! _8 Z
. r _% c4 M. j4 c5 x
Time_S_Cnt0 x5 k4 H. w3 Y) \ s3 e
LDA <Time_S
- a, H& V* ~0 q3 i" [
CMP #60
- T9 ]" y* r0 a+ r* m( k
BCC Time_Count_End
' Q6 ^1 P0 ]3 o# W* N: g% R, F1 I
LDA #007 c/ o( X" z( C$ ?+ n% |0 J6 q- {
STA <Time_S2 x( |5 f# ^2 Y \+ g' Q, @* v# _) t
INC <Time_M2 q: y y4 Y. r% J+ o
* R1 a8 b9 q1 J% u4 ~
Time_M_Cnt. p$ S/ I* q4 V6 U2 U5 [+ }% W: G
LDA <Time_M( _1 l2 s' h% t. K6 @; K" W9 R0 D5 j
CMP #604 x( u. f' a$ Z4 w+ [( Y
BCC Time_Count_End
) Q: c3 {( ~" V4 C8 s$ S( s9 d- ^
LDA #001 B C2 n: ^7 J( _% F4 v, j& g
STA <Time_M
! B& N) Q& J/ V" B/ h
INC <Time_H
: t, \# j( t( `% M' _+ |7 I
, f1 r0 E+ _7 I
Time_H_Cnt
" {6 V% K+ j) n
LDA <Time_H2 s! M6 E+ v" b: H3 b% q
CMP #24
4 x, Z3 C0 T" ~5 }; x N
BCC Time_Count_End; |2 S, D5 ?7 y' O6 S
LDA #00# Z/ q# l+ d2 D' }# x* `
STA <Time_H/ g+ z( M5 ?" J. H! U4 L3 n3 t
# r/ Y6 O& E) m; W9 z
Time_Count_End
8 a, h& N: g- ~- O% Z8 `- P/ h
RTS: V- j: e- R; P* a+ C
$ }# w7 q& C5 J% `8 W% ]
;==============================
1 e4 S1 w: U9 X7 @( N, _
Time_ReSet;播放时间重置
; Q$ _5 d8 Y* R# Z! l9 J
LDA #$00
+ U. I9 |* I" f2 R1 K
STA <Time_S4 u3 t @1 _, I ]
STA <Time_M ! M' M" S/ c& I* ^
STA <Time_H9 [$ i- W1 ]0 B: j
STA <Time_Cnt
% d6 Y: n5 T& Y* o W. ]7 g) X5 W
RTS _" |( S! C+ G0 n/ j; H
9 [; Z% _0 f; ~) L5 G! O8 x6 |+ s; p
;==============================. q( P6 h' Q* B8 Z
Music_Bar_ReSet;音乐条重置
) K( ~" k5 T9 Y- s+ i
LDA #$00/ M! {: U" x0 [4 j
LDX #$001 Y- A6 `! [! _7 y
Music_Bar_ReSet_Set% Q$ e* }, x5 k8 i2 P8 g
STA Sound_Bar,X4 z% Z: _" z8 p) {+ O
INX6 B' v- H c% y; [, ^
CPX #$10
8 |* V/ D' B- Z1 Q# P; |0 `
BCC Music_Bar_ReSet_Set6 b6 b- {/ j% E' C* Y" ?6 w( B. s
RTS: K! O- U8 X0 w; f
$ N3 y% u$ Q0 K3 Q. w* P; ^
;==============================
+ K q/ J% O) Y% E4 C" g
PPU_Data;PPU数据写入0 i% X, V$ d5 b9 e( i
STY <Data_L
8 M7 P: P- j' M6 l
STX <Data_H) k$ Z6 ]2 I* `' R4 ^
LDY #$FF
6 D3 f4 o$ m Y
LDX PPU_Cur2 y: O9 p1 H( N% S8 u
DEX( v( i8 A0 C; T# d% {- S
PPU_Data_Beg
& O( J3 ]( F/ P( B3 n* H( V
INX8 b3 u% A H* Z8 j
INY# `$ r8 B/ g, p y4 m! ]( t" f
LDA [Data_L],Y! `* c- ]# s, ^
STA PPU_Addr,X
7 H% L: d1 i& z" } h7 x
BNE PPU_Data_Beg
- G# `2 @$ q8 s+ C4 F4 Z
STX PPU_Cur& c% F; {3 d$ p( S
PPU_Data_End
+ p5 v" o+ Q! G" R8 Z; V
RTS' V6 P) q9 n; r! L/ g9 R
) G" F! b8 @- l2 x* ~1 k
;==============================% @( ?. t0 U9 ?+ ]
Music_State_Show;播放状态显示7 {' c) [% ~. {) A7 M
LDA <Music_Stop_State
6 g/ D5 f9 e, D, E1 O5 q
BEQ Music_State_Show_Play( f( v3 `# [/ N: Y; e( S4 K" a
Music_State_Show_Stop
6 b% T, p; G+ I* e! p
LDY #LOW(Music_State_Stop)( w2 Z$ I# V) J& U; c N3 e) u2 @
LDX #HIGH(Music_State_Stop)8 a7 V7 V) K4 \( s
JSR PPU_Data# X9 M% u& D/ d% [/ z& [
RTS
% @2 y+ x | l$ q& S
Music_State_Show_Play
/ k$ O5 K: P' _5 R; C" A
LDY #LOW(Music_State_Play)+ }5 B, b! Y9 m. \0 a4 q0 X
LDX #HIGH(Music_State_Play)( M% [6 J' @/ Q: B. \3 Y. w* ^) o& J
JSR PPU_Data* T5 Y9 g* d- i% b8 x! a
RTS' z- g5 W1 Y9 d5 L
7 G* O* b( Y' u7 E% r9 O" d2 D
.IF SOUND_BAR_SHOW_ENABLE
0 {6 D1 I8 N# r* J
;==============================+ {+ s! {' @; c+ X" _# F: [0 h
Sound_Bar_Text_Set;标题与音乐条初始化% ]$ ]# P( W. _, ]9 f5 y
LDY #LOW(Sound_Bar_Text_Data)
7 n. i# K" A1 \7 X: ^- U
LDX #HIGH(Sound_Bar_Text_Data)0 |' L" l0 u( X8 \8 m2 R' N. ~
JSR PPU_Data
; `- [! V) h) D2 s4 p5 C$ P/ _( I
RTS6 w6 s% }) B; E7 t
& n% D* W; q2 N% x6 X( V
.ENDIF
, P4 [3 h: _1 S [" f5 i7 _/ Z' N
* q m9 H0 x9 U
;==============================
/ R9 C d9 T/ ~5 ~* |
Set_NameTable_Attributes;设置命名表属性
BIT PPU_STATUS
, y9 ]! B* u( r' z9 c" G
LDA #$23 M9 Z& _5 d6 ~$ M+ F1 U, U
STA PPU_ADDRESS" n8 o/ d8 a& {% C( I
LDA #$C0
) a% g* j7 ^, ^/ f$ [7 [3 l3 A
STA PPU_ADDRESS: f9 M. j4 {1 \0 H- } B
LDX #$00
+ e3 s4 b3 C9 a! }
Set_NameTable_Attributes_Write. `. C2 ^3 C }5 L- \+ N5 U2 ^3 k
LDA Palette_Attributes,X
- H8 P; y" p- G
STA PPU_DATA/ {0 x" J& U* S! l
INX1 Q; {; y, N3 \! r# W4 m& A0 L
CPX #$40
0 f7 f* x5 t8 j: w+ c2 S
BCC Set_NameTable_Attributes_Write
6 Q% z! o) R9 d$ |9 D* w+ i( @
RTS
8 @: C6 Z+ O9 b" J
. Y& g$ i' j% A4 Y) I
;==============================6 d& x0 q x( H1 h: I+ q
Set_Palette_Color;设置调色板数据
3 r7 p4 u. x. B% a7 t$ y F3 f
BIT PPU_STATUS
! k: I0 o7 i5 L4 ?; Q0 z
LDA #$3F
8 L% C3 }# x% i
STA PPU_ADDRESS
" ?( v: n8 B6 i/ r9 w1 U0 e1 p. E8 U
LDA #$004 A( O4 _$ N& ~% @, g" x- J
STA PPU_ADDRESS" Y4 C: e, _" K. m9 ]7 c0 X
LDX #$00
- r. `) W+ v k0 |) {
Set_Palette_Color_Write4 `9 V& G0 F M* O% S
LDA Palette_Data,X
6 Z# T( E" ~+ S9 S) V$ p) x
STA PPU_DATA- d4 y4 |# E& u: v$ \
INX
8 ^- t7 f! }2 ^6 K& H8 I% S7 G
CPX #$20
! N5 o7 [, m- A/ ?0 ~
BCC Set_Palette_Color_Write; W) b$ p6 H4 @9 d
RTS) K1 G) x* {5 `# m
3 G' {$ X# H* D; A: N
;==============================; j, h' _8 I$ g4 [6 P8 t7 q
Init_Palette_Addr;初始化调色板数据
7 |: b( r9 y9 K" Q
LDX #$00
- N4 ^4 H; M/ j! ~
Init_Palette_Addr_Write( X% H3 w& l ^8 w8 ?/ H7 ?
LDA Palette_Data,X+ Q+ n$ {1 s3 U8 R6 @1 Z) M1 m
STA Palette_Addr,X
( P$ Q0 T! L5 M: B% ^& S
INX
3 z# f# @: s1 [6 I- L/ |
CPX #$20
; i4 @+ A& g2 V. }7 C2 {
BCC Init_Palette_Addr_Write
9 A, [/ ?% E+ X
RTS
, ?$ ^, P6 r9 Z; a% t
5 r" Z' y- ^7 n. q. P
;==============================
8 x" c# I9 k7 c% h4 H
Update_Palette_Color;更新调色板颜色' `$ j" A5 E) v3 R/ I
LDA <Palette_Update_Flag0 t% g& X3 G k: f% ^1 o3 z
BEQ Update_Palette_Color_End' \5 g( P6 u6 ~- V$ u
LDA #$3F: O2 I3 u: {9 d/ D
STA PPU_ADDRESS* ]% u3 b. e% a( p9 ] k
LDA #$0C
; t8 n2 f6 S7 D7 O6 I; O; d4 w# K
STA PPU_ADDRESS
) k/ w! X/ T5 A
LDX #$0C1 _5 ~# E2 U* L5 D
Update_Palette_Color_Write
; q- j! f) b+ {2 V8 L$ l, i* y0 ~
LDA Palette_Addr,X" P$ k1 o; E, Y) t- W7 \
STA PPU_DATA% _# m! p6 H! P- _
INX
5 e1 B7 o+ h$ K8 Z
CPX #$14
0 Q+ e' }1 k- k# J& Z
BCC Update_Palette_Color_Write
4 w) K2 ]. b D0 e8 b! A6 F% J5 n9 |
LDA #$00
" O; k3 C# A9 C: ^" I. ?6 H
STA <Palette_Update_Flag1 E6 |7 S0 Y2 h
Update_Palette_Color_End
2 A6 {" Q/ p! f4 g7 Q
RTS
6 h: x( h; J2 Q) z* B/ b
! j5 o; Q! k4 K h& a+ a0 a: B
$ c5 w3 S- i: I- j2 H3 ]5 V: _$ ~
Update_Sprite_Palette_Data( M9 \, j) y1 @( T$ m
.DB $21
% e4 Y2 s c. ^
.DB $217 V9 m! A; U* I3 c- K) S3 W
.DB $11
2 y; f8 W1 {5 y! [
.DB $01
% P! c" C( V' ]# m- B1 v
.DB $01% s7 D0 X, B! L1 h1 ^! H' B
.DB $11
) Z; i1 U: H: Q
.DB $21; l1 h' v7 I$ |8 b$ M6 U
.DB $212 T2 ^5 C( V3 M) n: V
.DB $11
( r$ O' `% ^; b; S8 n7 U' d
.DB $01; P$ B$ e! F P/ N& n' R8 X/ h
.DB $11
: p! \" _( Z( r4 k. F: J# G( h% ~
.DB $21' I7 t$ |( R5 f3 y
.DB $21
2 ^" E( b# {1 _; O6 v5 [
.DB $110 X% m9 ~8 k T' |3 m8 c
.DB $01
- ~; M) v! A, p. A! I+ e( l6 `
.DB $11
0 a* R9 h9 u0 e; o! ~! d
;==============================
8 }8 W; P& [$ ~4 l$ A. y+ W2 j
Update_Palette_Data;更新调色板数据
5 x5 [4 \3 N' x, I9 A- h
LDA Nmi_Time_Count3 o2 L0 i' L! I% ]' }9 S9 U6 ?
AND #$08
+ W8 ]+ M& s2 _+ j% a: \
CMP #$08! o$ z4 {4 y( T
BNE Update_Bkg_Palette_Data9 _' ~, u( Y' u5 A& U, S: v& G) n: o
9 S8 y. D* I0 N8 i5 D
Update_Sprite_Palette_Data_Set
/ F6 r, C2 C! ^) w* m! @. G
LDA Nmi_Time_Count
" @1 n F9 @/ `0 {
LSR A
4 S2 J" D+ L8 A" T$ F# U i+ [% ?% ^
LSR A
/ {0 u7 A1 g+ G7 y8 T
LSR A( U) q$ p. e- [; M6 E% T3 }
LSR A6 {7 o5 u, E( T: Y) h8 \# b+ _9 Y
AND #$0F, g$ u% A: }! }4 z9 Q- N
TAX
2 I' G7 `; O: X/ k
LDA Update_Sprite_Palette_Data,X1 z a( _: j F( n
STA Sprite_Palette_Update_Addr
- c$ {: X Z0 H6 W7 R
LDA #$01
, `0 U2 R& l7 v7 k- x: K7 F
STA <Palette_Update_Flag
# }: V2 W: s- {) o% L
! h# J6 L2 N' n( ]& ~/ g
Update_Bkg_Palette_Data4 D: U) g* [0 _0 v
LDA <Text_Disable_Flag
4 v/ N+ v5 s& E; v
AND #TEXT_DISABLE_RAM9 g, y; s8 {; _4 B
BNE Update_Palette_Data_End
, D* {, f/ Q3 `! X& G' z
LDA <Music_Stop_State
9 r8 B! a N; ]$ [
BNE Update_Palette_Data_End1 l2 b; O& G% A% t; N3 T: p9 b
) P* e- I0 p6 \0 r9 q) h
Update_Palette_Data_Check8 s. J, D& M# {- ~; @7 w* |
LDA Palette_Wait_Cnt
, j! g# C$ a4 U' k
BPL Update_Palette_Data_Check_Over
$ q# r7 j C1 k; i3 h0 K o+ V
LDA #PALETTE_UPDATE_INTERVAL1 @* q3 i `& a
STA Palette_Wait_Cnt
5 f& Z; |2 J) D9 L/ s" \9 q
Update_Palette_Data_Check_Over
$ {4 t( a+ c) A3 }6 b6 L
DEC Palette_Wait_Cnt
$ V; |& ^2 F* Z( Y5 A+ D2 U
BNE Update_Palette_Data_End; H" K7 x$ S% v! w$ v% m" t% U
/ D8 q o, O( N# X% a' T& P; T
LDA <Text_Disable_Flag
; [- t/ F, U$ c* b, }
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME, D _7 k g" S( x# [6 k. k; V) N2 X5 u
STA Text_Disable_Flag
8 w& N5 X* M5 l/ F9 i+ T
INC Palette_Update_Flag
3 i% `; t+ m& t0 t" h9 E2 C
9 T1 s+ L# y- i; y; S) [$ W# S5 R
LDA #PALETTE_UPDATE_INTERVAL
+ Q( R$ H8 x7 U, D' U, a4 [/ h
STA Palette_Wait_Cnt
5 Q) r2 ^* R2 l9 S5 h/ \
! u0 d" Q2 r5 u
LDA Bkg_Palette_Update_Addr
# @) ?2 V/ K! j
CMP #PALETTE_UPDATE_MAX
" T3 _- o: n! g4 }4 \, P
BNE Update_Bkg_Palette_Data_Set
0 Y. ?: U9 Y7 ?. j$ G$ c
LDA #PALETTE_UPDATE_MIN - 1
. _/ B0 \& r9 P3 N( p# Z
STA Bkg_Palette_Update_Addr3 g7 l# J. n1 Y$ J! S {
Update_Bkg_Palette_Data_Set) ]" H: c' U( q1 h. p# T
INC Bkg_Palette_Update_Addr
4 Y4 \) o! i+ ?: b# Y" J2 T8 ~5 y
1 l, @! z7 r6 v# p: {1 w
Update_Palette_Data_End
0 S4 o) i* d0 U# Q7 L6 D
RTS3 y, f2 A8 R0 a
h" A8 Z1 n; l5 Y. K' o& p
;==============================; N8 s9 x% x. X: \) G8 I. ^
Show_Music_Text;显示静态文本+ J" C2 S6 N3 z# W
LDX #$00" m; N- i1 O6 t4 m ?8 T) y8 F' ~
Show_Music_Text_Set
7 x+ @* i+ V, N. p7 _! ^
LDA Static_Text_Data,X$ c: t% p+ p c- o$ K) P- v, P
STA <Data_L
4 Q2 s( U+ B. M* v$ q% c
INX
^% E% Z+ M9 M9 u
LDA Static_Text_Data,X4 \7 v+ e" @5 I& O, c" R0 b r
STA <Data_H; T/ b- ^8 u7 E ^. Y7 y
INX& p1 T" u8 \ i1 B; q' B5 r K# C& Z/ o
LDY #$00% {8 \% [6 ~' R7 C- G
LDA [Data_L],Y7 O! T: |! F' H/ X! A, w+ a' B
STA <Data_Cnt( ]4 {+ ^* h* ?
DEX& L! A* \* N0 W. Z6 U0 W. s2 e
DEX* |# g# V2 U6 S* C5 s* S
LDA Static_Text_Pos,X
1 V" u% V* |1 v& `1 r- X) ~, n
STA PPU_ADDRESS
& x: y8 z+ q$ H9 ^/ P1 x) f! d
INX) b. h, |5 B( r/ r) g0 K% y$ a
LDA #$20
5 i, O' C3 F* l$ F+ |: k
SEC
6 ~+ ]8 a2 x1 X! f2 C- ?! W" l
SBC <Data_Cnt
% v% s0 G( R( r1 s, {! g3 V6 Q
LSR A0 E6 g6 A/ r) _) `# h0 J
STA <Data_Buf4 F6 p. W4 f$ a* q# B$ K
LDA Static_Text_Pos,X
, _7 m+ ]- z# M# G
AND #$E0
$ J5 c9 N) m: q
CLC
/ k l2 C5 V0 p- a
ADC <Data_Buf
. g! Z) q+ w% H# W& O5 {; A
STA PPU_ADDRESS7 q- C) N, o* |
INX
X( t7 a" |7 f
Show_Music_Text_Set_Write
( W. b' d3 `+ K
INY
* Q/ e6 p; }7 T6 D
LDA [Data_L],Y
4 x+ P, ?" F$ `7 e
STA PPU_DATA$ h/ H% G% E( N
DEC <Data_Cnt
- S% B; R4 U2 D! k1 @, C5 r
BNE Show_Music_Text_Set_Write
6 a( e* X, [. ]4 k! L$ k* C$ W
CPX #Static_Text_Pos_End - Static_Text_Pos
" q! Q8 m# r) y4 g/ z
BCC Show_Music_Text_Set6 l& v7 V3 k% t) h$ B* ~% K5 `, _
RTS
' E5 z( F6 P" h& n2 Y) u a+ n
+ u a; O5 t% N$ t
;==============================) M7 q# C" g0 _6 a$ v: |
.IF Track_Name_Pos;显示曲目信息) y- S9 J. T' Z2 t* | {* {
& ]1 n; t1 E9 {7 a/ m) [
Clear_Track_Info- L8 X( n4 n; z) k, v
PHA$ N" q& F; p8 c
LDX <Music_Item_Cur3 _5 l. U% I. z
LDA Track_Name_Addr_Flag,X
6 B2 v# N. l: H5 U/ @9 E: H, j
BEQ Clear_Track_Info_End_Ex
& H3 m4 a8 _4 {+ y0 O2 B" |: K
PLA
1 h4 E* ]& Z ?
' B; I2 r9 b: R
LDX PPU_Cur
: m7 @, K) u0 o$ X4 K0 [& l% d' T. ?
PHA% T" k/ X% y, }% E1 L
LDA #PPU_MODE_CNT_CLEAR
1 T' } U5 E0 H5 k2 S# ^+ y
STA PPU_Addr,X
7 t9 P/ R8 D0 F8 \; t# u. ^) p
INX
$ [2 k$ {' D2 |5 [
PLA
& i' W0 d8 V6 v/ X7 N0 Y7 a& X
JSR Show_Get_Track_Name_Center_Pos4 y; L$ f( ]% ~- P6 ^, \1 r9 u& V
STX PPU_Cur
+ E# L8 ], H6 k' @) R
Clear_Track_Info_End& G: V4 d0 W3 t n. @- \
RTS; Y& @2 A8 Y* }1 P
Clear_Track_Info_End_Ex
; M8 k o, E2 E: ~) |
PLA
# v i4 i4 q, \8 e5 A) H+ ~
RTS
5 c/ h+ c4 _; T. t& `
5 t$ T! H- A! W: ^ O9 |" m) f8 m
Write_Track_Info
/ ~) `3 }. \2 t- D- [) k
PHA
5 s/ ]) Y# l& T. @) A
LDX <Music_Item_Cur# _, p4 @; S. v5 V5 a: s
LDA Track_Name_Addr_Flag,X; d+ h* j* p# A9 i8 L5 N
BEQ Write_Track_Info_End_Ex
( U4 h! \' F) g5 s
PLA6 d3 A+ h! N5 k1 Y# k
3 Y5 P/ I: h4 S
PHA$ y* E4 P) i: u3 w A# M
LDX PPU_Cur
) f5 {9 Y0 Q) \, @( e y: `* [
LDA #PPU_MODE_CNT_LINE, @( P6 z/ {* {
STA PPU_Addr,X2 @- S" T' Y: }+ m5 M: |( p/ }
INX1 h H: |* _' c3 I+ P" f4 P2 J
PLA( i$ g2 O6 M' l. s7 p& z
JSR Show_Get_Track_Name_Center_Pos
, W' i& j8 Y+ H k* b+ w( j
Write_Track_Info_Data
6 L! s0 W/ T5 W$ v0 |7 M( E3 J
INY
. c1 y! c, X2 F3 n
LDA [Data_L],Y
& p+ U' H; B$ v6 R
STA PPU_Addr,X) H" X* e/ } I7 A f: H0 `
INX: J! S3 T! C8 Z4 t; ?! R6 V O, M
DEC <Data_Cnt9 h6 Z- D7 K- s+ [5 W' Q
BNE Write_Track_Info_Data
- v T$ N8 B$ B* o# y+ j
STX PPU_Cur' X0 d" X3 w8 s7 b6 G8 X' z
Write_Track_Info_End
0 K0 q; O( N6 G: g; r) s
RTS
9 ^- a4 C0 x' i/ U( j( b2 N) g }
Write_Track_Info_End_Ex. B" o* i1 _1 P! ^" I- u) Y9 l3 F
PLA
# B- [' f8 m7 b
RTS
8 V$ F$ a, S" x. Q/ @/ ]6 W) E: N0 j
2 ~. t- z% P8 Z* f+ _) k/ q
Show_Track_Info6 c1 k% \2 I% y$ W7 d; e! z( \6 y
Show_Track_Info_Clear
: A$ \/ ^0 G$ P2 l$ z6 P2 @
LDA <Music_Last. e. E T8 `6 d$ P2 k5 s6 Y
8 N9 _' [: \ G4 G# i
JSR Clear_Track_Info, J3 ~0 s. X9 F7 s! N+ R" x
; y' S+ J" B$ s V' }, T" ]% m# r5 `
LDX <Music_Item_Cur) d1 i6 A0 S. g
LDA <Music_Cur,X6 _8 X+ r( w1 K+ Q* ^" V
JSR Write_Track_Info3 V5 Q/ ?$ b1 N& e8 b1 w
RTS6 H( f2 o; @; t/ W1 Y0 s
. w& l! Q4 [8 v r
;==============================
! X+ @2 o9 n9 F0 S$ l. H
Show_Get_Track_Name_Center_Pos;获取中间位置/ ?; T+ w$ Y) e6 Y6 h
" R8 d+ }& f$ O: s. o2 s
;取出集合名索引1 c0 `7 B: Q( X& X6 s2 W5 H
PHA
8 ?2 s: o1 w! l$ C4 E3 T5 d) ^
& D2 K/ L7 O0 j( h
LDA <Music_Item_Cur
! Z( Z0 e$ E) u4 m) `
ASL A
! ?+ Z4 T2 n1 T; @4 K
TAY
" j# @0 ~3 H8 n
LDA Track_Name_Addr_Port,Y; X" ?* ^6 u& {; n! R: v; o7 y
PHA
* ]9 Y& M( t, M9 Y' o/ _
INY, ], ^' q, d E" G: u0 R* ?' F. u
LDA Track_Name_Addr_Port,Y4 j6 w9 H) w! U4 w- b' a
STA <Data_H
/ ]( k3 Q( Q) ]3 n9 v& a
PLA
1 t6 R* E. [0 i8 [
STA <Data_L( R) o) z0 T5 L7 P$ M
" k! M: E9 J: S/ F- t1 E
PLA! j1 h9 }7 c5 `- b, q' g
& Q+ f# R c" S0 T( D J
ASL A7 G7 h" }! [. ]
TAY
% D: C* Q$ t# k: h; Y& A6 m4 r1 e7 @
LDA [Data_L],Y
1 ~( g/ H4 e" E. P
PHA1 [( m; P' i2 }' [4 ~( M
INY" Q8 L3 [ V% r+ a+ D2 s
LDA [Data_L],Y
. ?- g0 E" @/ r; s8 S1 l
STA Data_H
' a+ Q# O. j! V4 x4 P, v
PLA- ^9 c9 ?& \: F b" R+ B' V- o
STA Data_L
% W0 g; e, [* h9 i
: n+ D. V. G2 G- I
LDY #$00
LDA [Data_L],Y2 x" M) @% H& l0 H' Y
STA <Data_Cnt! r( D6 W+ h2 b6 k4 l
LDA #$20
* U$ `. O7 ?. y" i3 H: H% \
SEC
- A" D8 `) t. Z" l5 I
SBC <Data_Cnt
1 d7 G0 X* X1 u- m! i9 [
LSR A
6 S' H8 _% G ~% ?# j8 c# ^! r
STA <Data_Buf% ?: V; K" W2 Q8 D8 |! O5 W
LDA #HIGH(Track_Name_Pos)
9 l7 O1 ~1 Q" U+ d
STA PPU_Addr,X
6 l! F4 X' ~& x" U" k9 S
INX5 A9 U5 |3 v# r6 }. I
LDA #LOW(Track_Name_Pos)# d& l# m1 W7 ]/ Y9 o
AND #$E0
5 i) u2 C. r4 y- Y( m% V
CLC$ U8 s8 Q9 G( g
ADC <Data_Buf
' ]( y8 l/ F' T, _% E. C
STA PPU_Addr,X
1 E0 C/ T; r9 W9 h0 g9 ~
INX
) ~7 Q1 \' v8 c0 M6 ?& ~# A+ L
LDA <Data_Cnt+ P- s* l6 k* y4 Q6 ~
STA PPU_Addr,X
6 `* b2 N0 U# I( B/ d3 q
INX
0 A7 h( s" D7 H: M( [
Show_Get_Pos_Center_End4 \4 y7 y4 M* B; @
RTS9 {! P/ E3 b& T/ L
.ENDIF
% t: S* m4 z0 N* s! c6 Z
. q! @. `; N% X6 A ^0 I
;==============================
! r# F2 G1 T( L, E. Q( l# _5 o" x
;音乐端口清除- K6 w% } k1 X6 t
Sound_Data_Clear
* h3 x$ V! F; ^# B; V
JSR Sound_Port_Clear5 j8 C: {+ b3 W) y4 j4 p
JSR Sound_Ram_Clear+ v2 }- \' v& [$ W9 y9 X
RTS8 i8 |. q- D, S8 K$ q% b
* E" N% Q% j3 }: S1 E8 N
;==============================
$ f# |8 V" w" X
;音乐端口清除; f; _. [4 r3 M8 [6 r3 T. f! Z. D
Sound_Port_Clear+ S6 Z% r" C2 S- {) `3 P4 P! V
LDA #$00# X# r( ~; e1 G# `; e' ?! h F1 r7 K
STA APU_STATUS* ] z* m2 E1 A0 H% q# b
LDX #$00
0 |6 |* e" K& P* G
Sound_Port_Clear_Write
5 k$ O! S; g1 n- [# ?4 I
STA $4000,X7 z; B( s8 l, b2 X1 w4 X
INX
2 e$ [6 ^) | a2 n) O8 E, Q! Y
CPX #$145 ^% |" R; \1 |8 E M- \
BCC Sound_Port_Clear_Write
5 j1 o7 u3 s4 Z
RTS
/ O% S, f) ^. |. `' }7 [% L
2 V" r/ ]$ S, w" s1 e; z" H. e
;==============================" r; b+ f7 x' c6 b) S- Y
Sound_Ram_Clear;RAM清除
]5 Y3 W0 c9 U6 S
LDX #$00# x6 u0 {) L, W
LDA #$00
, n* e- @8 E* M2 v1 X
Sound_Ram_Clear_1
2 T8 n. K, W4 j
STA Sound_Ram_Addr_1,X2 b0 A4 k, ]4 Y9 L; ^8 D. S
INX4 M& |* d( n T. k l
CPX #Sound_Ram_Addr_1_Size" z* g \8 ^6 W$ K# H9 T
BNE Sound_Ram_Clear_18 Q) i% Q, U. u% R' p. c/ u
LDX #$00% v/ ~# \8 X& x+ q# `$ [; ?- \+ X
Sound_Ram_Clear_2! {1 Q/ ?' _7 ]; J- |
STA Sound_Ram_Addr_2,X2 T2 J, Z- Y9 Q
INX Z8 U1 k3 i& y* c: Y- A0 y
CPX #Sound_Ram_Addr_2_Size6 i8 M' P# }/ B4 U6 j. v8 B
BNE Sound_Ram_Clear_2" o( y) x. R6 T9 D9 q
LDX #$00! _: t8 u J! M9 C; X
Sound_Ram_Clear_3
2 M4 `3 E+ ~) i
STA Sound_Ram_Addr_3,X
0 W! n5 d# t* ^
INX
( u: @0 x. X# t
CPX #Sound_Ram_Addr_3_Size
+ P9 o4 c D- X- o1 q
BNE Sound_Ram_Clear_3
5 ~; a' a$ {1 L* N: k# K
LDX #$00
# F u. N6 p3 K; J; ~' T |
Sound_Ram_Clear_48 G0 t& f5 y+ N: z& Y: P1 C( h- ~
STA Sound_Ram_Addr_4,X% p% z) Q; T4 e, ?2 f
INX
6 |% R: J" ?' h q. ^) t
CPX #Sound_Ram_Addr_4_Size
4 b; ^1 o8 c4 E1 v5 ^
BNE Sound_Ram_Clear_4
1 u7 }% [, c' k5 }
Sound_Ram_Clear_5
2 \- k7 q; \" q- x/ C9 f! X! L$ w1 s
STA Sound_Ram_Addr_5,X
# ^4 i0 @: v" M1 r+ I- V3 t
INX5 p! N( B( ^* Z& N
CPX #Sound_Ram_Addr_5_Size
) g; F! w( S/ X8 C
BNE Sound_Ram_Clear_5) w5 L! g' _' P0 Q% T
RTS
* @ A3 K* }4 f, f4 D- y
2 V- I, A/ Q# B- F
Get_Music_Collection_Name
+ x" G( d" V6 |. G& |+ p
PHA
, s H* b2 x! ^# s, o
LDA <Music_Item_Cur
, G# v& t% ^$ k7 n
ASL A, _* j' ~& S$ v4 ]1 ?
TAY
5 Q# m/ g% x- v% z
LDA Music_Collection_Name,Y
% n( h2 ^% o- p! O
STA <Data_L4 F3 f4 p0 I4 X1 w4 ?3 K- ^
INY
6 }8 s2 s$ s& F- Z. f' M9 b' ?5 |
LDA Music_Collection_Name,Y3 I. A$ p) n6 X+ ~
STA <Data_H6 z7 x2 L5 t# P {/ X6 M& |' g* Y
PLA: H, L( z, b6 l% k) `
RTS
; p8 G9 B. w0 j8 A/ c |
" {, z7 h' {, V6 X
Set_Sound_Total, l! f1 z+ l4 j- Y
LDY <Music_Item_Cur$ w6 S/ X" {& A. \# m
LDA Sound_Total_Port,Y7 N; E/ n% z3 I9 a
SEC
: |3 F0 B! H, p2 T& \0 v2 {/ l
SBC #$019 y& `6 _; T; j) `) d! R1 M5 I
STA <Music_Total
- s# G* [5 x: L* t [
RTS
' u5 u: W- L! X. e7 d9 c4 f
2 B5 g* q. V3 j/ W
Get_Sound_Start
8 V% P+ V$ e/ L, e
LDY <Music_Item_Cur/ f/ ?9 i' }; b% m; a* U" C
LDA Sound_Start_Port,Y0 L4 [7 L0 W0 c! u% Z
RTS3 A8 p4 r3 f) Q
7 U: j# }/ D' q6 o7 ]# U0 Y2 J
Set_Sound_Init_Port8 Q* j- v4 ~8 j' t1 V& Y, Z
PHA
, s o2 ?; g+ L+ s
LDA #$20
: z& e1 @3 e/ U: A$ S
STA <JSR_Addr_Op
4 o8 Q) y6 P( N- p7 E* u) b2 Z* W
LDA <Music_Item_Cur
7 B+ g; {. t" C0 b. A
ASL A3 A- ~+ z: |5 D7 l3 |" Y! Z
TAY
, G7 O* {: y, U3 G
LDA Sound_Init_Port,Y3 |+ L9 ]! X ]' I. {; |3 Y
STA <JSR_Addr_L% O7 g* r. X/ P- u
INY
8 |1 ~5 F% G9 N8 S7 j, Z
LDA Sound_Init_Port,Y
; J" E$ P/ C, P; z
STA <JSR_Addr_H
3 R& l% j8 s+ `! l
LDA #$60
2 R0 V7 r4 R( w+ ~5 c
STA <JSR_Addr_Rts Y0 t5 }& t7 q. D0 P2 D+ P: c
PLA
1 G R% I6 c# s% P3 a/ }. h7 X
RTS
4 m3 f% F2 B2 r H; B! X7 s
- D0 k; q" [8 u& k3 `4 @1 V
Set_Sound_Play_Port
5 W$ W* P! F K* K
PHA% N- W% i5 {) A2 d Z
LDA #$20
0 s5 A" j7 Q0 U8 d8 H
STA <JSR_Addr_Op8 B8 k7 q, z% ~5 Y. H' p8 E
LDA <Music_Item_Cur
- R: b! z0 L/ x
ASL A
3 {" t: C% R# _8 ~6 P
TAY4 _( q) [6 i% X1 q( G! b* D
LDA Sound_Play_Port,Y4 t" c) n$ F9 R* a( @2 N& {
STA <JSR_Addr_L. g& D3 k7 P+ x1 j7 C s2 C0 c
INY
- k/ V) g1 `9 g3 d8 I
LDA Sound_Play_Port,Y! K7 x4 e+ \+ r1 c3 O! K D
STA <JSR_Addr_H
8 r) O4 z& B9 H4 [0 E
LDA #$605 W, n# B/ ?8 |
STA <JSR_Addr_Rts$ T* W5 w) u$ f1 ~" w4 ?
PLA
2 u" x r& g! I) Z2 |9 Q. f h
RTS+ D& ^ M* I, U
% E- i" p5 m# u
Set_Sound_Reset_Port$ U- [% |5 X1 i$ H
PHA
* P+ r: n3 o* L6 H
LDA #$20
( T0 i* K k7 _6 \$ L& L; O4 y# q8 ]
STA <JSR_Addr_Op% }0 D: L- r) ^! }
LDA <Music_Item_Cur
# A. l( Z8 e# ^0 }6 f2 i; {1 u
ASL A
! |* f+ `$ @5 X) G5 A% a
TAY. v+ F, S0 r9 P I: U% O. a
LDA Sound_Reset_Port,Y1 P# u$ O' U9 u# {/ H8 [% V
STA <JSR_Addr_L
' W$ T, A# f. l, o+ E z
INY
. |4 R( E9 L4 g# q. Z
LDA Sound_Reset_Port,Y
9 E3 o6 v1 l) p% ^( \ u" A
STA <JSR_Addr_H. _* B) I5 V" [
LDA #$60% n# h3 [" m% w8 ]$ V
STA <JSR_Addr_Rts0 @3 u4 l Q2 L/ w
PLA
4 F* E9 V4 P' |7 O9 g3 w
RTS
- }: y- L. K- V& \, B. I
' C% U# b! ~& t: \" |
;初始化音乐bank& y6 V# b2 r6 b% d5 c8 ~/ L4 }
Init_Sound_Bank
, E. o; u6 ]% y
LDY <Music_Item_Cur
& p1 o8 Z4 y" w1 X0 o4 D9 l" j" P
LDA Sound_Bank_8000,Y
0 v- o3 _5 `! ^& |0 T# B
STA <Music_Bank_8000
, H' T" D' k0 }$ Z& u! s+ H, J
LDY <Music_Item_Cur
: f% V3 i, Y5 W8 s
LDA Sound_Bank_A000,Y2 J1 N; z" q. `$ A V, l) E e
STA <Music_Bank_A000$ b: E- F' k# q* Y2 O4 a4 V8 W3 r
RTS
" A* K+ D* C3 C9 |. d1 B6 `" @. i
+ r0 n0 u+ P. i& k, {0 d
;==================================================: W) I' c% B9 j5 V7 u/ `0 ?
Sound_State_Reset;音乐状态重置
j" w- x+ H% c. ^/ U
JSR Music_Bar_ReSet ;重置音乐条$ z+ ]# v9 d9 ^
JSR Time_ReSet ;重置播放时间
4 h, x$ Q$ \4 {! W1 w. ]) _
- A) \4 F% X& p# b
LDA #$002 G2 B2 @2 @+ e
STA <Music_Stop_State
1 {0 `: t% H+ s: ^* m. |: P
JSR Music_State_Show ;显示播放状态+ K3 l9 {0 `0 I- r
/ x9 O) h! `5 A: Z, r
.IF Track_Name_Pos
4 @4 e" L' K. ^% y" o( f
JSR Show_Track_Info ;音乐曲目名显示
* X2 n# J& R, j- G) W9 H" @3 z& f
.ENDIF% [9 x7 C- ?7 d) O; l3 K6 E' B
4 t. H, p# s& i
RTS7 A; j- b/ E, C) @0 N# D7 _9 \
3 H; r5 U6 L* J2 w$ N+ y- g: b
;==================================================
' _1 j/ A" f0 G3 g6 I7 ^
Sound_Init_Proc;音乐初始化处理
) w3 ~) t! a) ?
PHA! P; q3 m0 i( W
JSR Set_Sound_Init_Port ;设置音乐初始化地址: `! R! X& C. m4 \ ?3 [
LDA #$00+ S# }# E/ J* H4 J) d; s( [/ u
STA <Scroll_H ;重设水平滚动: d* Q( t: C, g7 G3 g) H; V
LDA #$0F4 f$ u1 f3 m4 {: e* J8 L
STA APU_STATUS3 | {. V4 L, K; n6 T+ _
PLA
Z& u# @- ]6 ^ G) w. f/ j
JSR Sound_Init ;音乐初始化
6 e1 z$ j( {* p. o# |
JSR Sound_State_Reset ;重置音乐播放状态+ h& w3 ^! h7 q( e
RTS' i8 E/ H) H9 G" Q. b2 r
" ^' O( w2 a! Y) W* O( ?
;==================================================
, e/ F3 O9 e1 l5 ^
Sound_Play_Proc;音乐播放处理6 b8 o9 O2 S/ L1 V9 R0 r4 D
JSR Set_Sound_Play_Port ;设置音乐播放地址& c. X4 |3 P* Z; g- y" G1 p
JSR Sound_Play ;音乐播放% A$ E9 |: s& p* l
RTS
5 @# \7 F c3 [- Z d1 L6 t
3 ]) S: o* F, i5 z Q
;==================================================
1 m) p( M3 V' | w& Z
Sound_Reset_Proc;音乐重置处理9 ?. |+ P9 B+ p; K# T
JSR Set_Sound_Reset_Port ;设置音乐重置地址
' ^5 D3 W6 j8 V! q# N$ Z
LDA <JSR_Addr_L
% J8 q _' h% k0 @/ S8 c
ORA <JSR_Addr_H9 G' `: r( v. j5 L9 v; ~. U
BEQ Sound_Reset_Proc_Default
9 f; Y4 v4 }( q* V& b) }4 ?
JSR Sound_Reset ;执行音乐重置6 o1 Y/ S: U5 a k! _
JMP Sound_Reset_Proc_Init_Sound
m, v* q, G5 O" {# z- P' A. ]% @
% }/ v. d* B6 M+ N; Y7 W
Sound_Reset_Proc_Default ;默认音乐重置处理
1 N2 K O* D. n6 |! }
9 S2 ]; w1 }' Z6 w
;清理内存很耗费cpu周期, 这里禁用一下NMI中断
: L# g' [' ]2 t/ a+ \1 i) B7 s4 ^3 l
LDA #$00( X4 e' @: v/ l3 {% g6 y" `" e
STA PPU_CTRL; I- \, @0 p3 M; D( |4 M
5 N' O0 I. I- z" B
JSR Sound_Data_Clear
9 `: S g* z$ t/ A' O1 `+ c
I o5 U2 F9 E& J' Z- Z& M
Sound_Reset_Proc_Default_Wait1 t' ^4 u) t. b7 _% S
LDA PPU_STATUS
: S4 |( f4 k& i) P8 f, G
BPL Sound_Reset_Proc_Default_Wait
# _/ S( b% |" \' _& V
8 V! T, M0 l5 {, F) U5 ]
LDA #$00
" P1 W) W# D& e9 d. }% K
STA PPU_ADDRESS$ O; _3 e8 Q! ^+ W, ]( G+ d
STA PPU_ADDRESS
9 E j+ c3 ]( n, K
STA PPU_SCROLL( N, `0 X$ `( |
STA PPU_SCROLL
% h8 X7 B9 B4 Q# Q+ C5 p3 T
( c+ K7 j6 V6 `; V; O% j% j8 f5 i
;恢复PPU控制
$ m* p `" s0 c# y
LDA Screen_Ctrl# e' F' D# Q" o& d
STA PPU_CTRL
4 |0 [1 T, P5 U5 \1 R
' t" r! x+ e/ b* O
Sound_Reset_Proc_Init_Sound1 O- X+ e, u" |5 k
LDA <Music_Stop_State
, X5 c/ C U: u2 \5 C. o
BNE Sound_Reset_Proc_End
2 }* d8 r9 ?; A5 Y
LDX <Music_Item_Cur) J Z/ g7 }: ~( r8 V/ r
LDA <Music_Cur,X3 y2 B% ?; D4 T6 f; N- j7 c) s* k* Q( q
JSR Sound_Init_Proc
! w8 B# K# |: V
Sound_Reset_Proc_End, ` c: @, l! @8 [' L n q& V, Y
RTS0 } {( d0 @. l j4 P
% s$ s2 I! ], C8 ?# V
;==================================================6 u+ [1 q0 L- Q; F' E) M1 l
Clear_Item_Text;清除页项目
+ x! W0 s( f/ W, I; a( }! S+ S
LDX PPU_Cur) O9 a$ U) R U6 K
LDA #PPU_MODE_CNT_CLEAR
7 Q# Y( d- }, ?) F
STA PPU_Addr,X. l8 V& d4 [, {' Z4 `" L- ]8 u
INX y+ A8 S" t5 c0 N9 x% K
2 H& L+ }3 ?3 F- B
LDA <Page_Last
( r9 b" ?/ b5 R
SEC
" C d7 C5 ]* H+ z" z. [
SBC <Page_Last_Index
" [. r. N/ H$ ?$ y) P! D
ASL A
: F- i5 @ L3 O) S( C
, p( B1 I$ x4 j# i; d$ ]
TAY4 j8 g& H+ Z4 ]' r/ S0 I
LDA Item_Pos_Data,Y
; C, Y8 d7 a: T. ]) f0 k
PHA1 {9 O) V* K, i% m& i% L
INY$ A" ~4 `( Z; ~3 w2 t
LDA Item_Pos_Data,Y. x, B" p) t6 b5 L! C/ W
STA PPU_Addr,X
3 E4 c0 _' o1 |- I
INX' B' P; `: S8 g
PLA g e" S! O9 z
STA PPU_Addr,X* Q( v$ J) X% h9 q$ T3 S
INX$ A. |# l& V r/ Q& s
8 f! E2 r! L; _2 ~1 z$ `( V
LDA <Page_Last/ |. G r c. ^0 ~! v* h b
ASL A& ]/ x; s; t& ]" k N
TAY, n4 k# v- b' |, F
LDA Music_Collection_Name,Y
! m4 \' }/ a+ ~( Z D+ F4 i
STA <Data_L
0 v a+ @4 v. B S, ~5 ]
INY }+ b& v+ }2 e& c- V1 `% E/ j
LDA Music_Collection_Name,Y+ |+ P1 q; k) E, W( P
STA <Data_H
3 e7 k. N; o2 T' M, m
* M& {& s; B* r& F
LDY #$00, s: }* L6 x* X, |
LDA [Data_L],Y
! o B/ _$ M3 O
STA PPU_Addr,X" K& f* Z" O" D2 P5 o9 C& K
INX+ H* k/ E+ @$ j8 u& H3 p r" l) S; u6 K
Clear_Item_Text_End
6 U [1 v( H7 G ^ d y
STX PPU_Cur: g, @1 z8 w! ?1 |; s
RTS1 Z% y, p, ^4 A7 e) Z8 _) {1 ^: f
* T) g5 X$ e# N% g8 |
;==================================================6 j& D2 o& V( a& }. G
Show_Item_Text;显示页项目
/ p2 M0 a& k- U6 O5 v/ } D/ a
LDX PPU_Cur
* H. [- L# B, o
LDA #PPU_MODE_CNT_LINE
# h+ z; y# t. L7 E! l) B
STA PPU_Addr,X
: `1 U" l( F2 q2 b+ v8 M3 y
INX& I6 d) y/ `( Y! _" ]
LDA Page_Cur* d( w& u& Y7 T. \) ?) {: R$ b
SEC$ Q- u R3 s; l, Q0 O9 X
SBC <Page_Cur_Index
4 y' N/ v5 F) P( {2 t) ]
ASL A& L% G J3 S+ L4 A
TAY7 l# J" N+ L$ S2 H
LDA Item_Pos_Data,Y3 D/ c& Q, |5 p) y; u8 Q6 I8 U! T
PHA
7 l) Q9 U' D4 Z i6 z. G
INY
. c6 B/ I7 P% J6 D; Q! G
LDA Item_Pos_Data,Y# c4 }# O0 ]; [1 U" _( t
STA PPU_Addr,X
" Y( _: x3 c+ R$ H7 B
INX% ^' ]5 j2 x+ ~/ P6 Q
PLA
) s5 z6 U q4 [' j
STA PPU_Addr,X, p7 J' U2 h) q9 t) e- `
INX
2 f* t! G0 K! f
) r+ C: W1 z. ^/ J) S
LDA Page_Cur
2 i8 N$ c' ^8 d0 ^5 ^: ?1 |
ASL A
) F* t' v7 `; U6 e \* Z
TAY7 ]/ @# _# m& Z3 q8 M
LDA Music_Collection_Name,Y
/ j; }4 x* L% I2 f K
STA <Data_L3 A6 O$ S8 m. {
INY
6 X/ \; C; \* \) u
LDA Music_Collection_Name,Y
4 ], V( n6 Q& R- i* ]3 I% s
STA <Data_H
$ U7 a; T ~4 d2 N7 u0 F
% Q! Z' G0 i" \8 e$ ?: _; [
LDY #$00* }! R9 V) O3 m; _- q( ]3 U
LDA [Data_L],Y1 P0 } P* ~7 \" u$ x O f- {2 @
STA PPU_Addr,X
6 l6 ?: e; d; Y8 ]) E- J
STA Data_Cnt, X7 Q8 Y1 F( q* M4 q
INX
C7 Q8 h, `" y# P) p
- I2 A$ I5 `1 {% e8 R- V
INY* ]8 ~- p/ Q% C' r
Show_Item_Text_Write/ F8 I% V b# P3 @# H) `. G
LDA [Data_L],Y
% h2 q1 I; v0 m3 V; x
STA PPU_Addr,X8 S1 c& d/ V3 d ]% Z% R, U4 ?
INY
4 k& |! _ b4 t. v# y8 I- v
INX
% R- J! s$ U# h, T6 t$ w# ^% }
DEC Data_Cnt0 q3 w% E9 {, {- c. o8 _
BNE Show_Item_Text_Write% O# c1 H& i$ b; V( \
% E# J: s: } U! o
Show_Item_Text_End7 W" Z* @. q- }) P/ Z1 l
STX PPU_Cur* Z6 W, b% @4 w
RTS4 m2 Y3 ^8 z+ X# U0 \
; |( Y/ R6 U/ k: B5 K& E* p% V; C
;==================================================+ Z. F5 z8 E" D, Z
Get_Page_Start_Index;获取当前页号起始与条目数量
5 o8 Q8 @1 |& B( \6 G- j
STA <Data_Buf1 ~% J4 e" ~ i2 P4 N$ v, G# a/ {( z
LDA #$009 j! E2 h- y8 ?
Get_Page_Index_Calc
1 A2 f0 f& a! I' Q: Q
CLC1 ?/ I0 J- O, s3 v
ADC #PAGE_SIZE6 E+ I# U3 {1 O" o3 F
CMP <Data_Buf* e& R! T6 U; S w8 ]
BCC Get_Page_Index_Calc
9 o4 Z {+ e7 `% Q5 f- G
BEQ Get_Page_Index_Calc_End
' e6 d- B& W) E
SEC
4 }$ a* v' i' Q; z
SBC #PAGE_SIZE
% @' ?! O5 V1 P1 v
Get_Page_Index_Calc_End
: d4 r( M8 N0 D9 v- t
STA <Data_Buf
5 u/ _ ?: J+ l$ w) @ ^
Get_Page_Index_Cnt
0 _+ k+ a% H) x! r% x
LDA #PAGE_SIZE
6 H3 o2 V0 g k7 T/ Q
STA Data_Cnt
0 J. |8 w! r- B5 m
/ R7 L% r4 ?6 M0 ~* h }6 [: W
LDA <Data_Buf
6 q( a: s) Y4 R4 m
CLC8 P) t( }/ F! n) z
ADC #PAGE_SIZE
, ~; \3 I7 w" p& j; Q$ B3 z# W
CMP #ITEM_MAX_SIZE
) t/ `% E* U8 |& C
BCC Get_Page_Index_Cnt_End( W2 N# W; U9 g, f
9 _( ?; P7 l" v, S( D4 l# @$ J
LDA #ITEM_MAX_SIZE7 s+ @+ `% a2 ]* d" n. H
SEC
, A% m) T( D, V/ O: Y
SBC <Data_Buf4 \7 H. M, m5 I n9 x
STA <Data_Cnt
) P# n7 S6 U1 J/ x2 T
$ {. N1 M( L3 y9 n
Get_Page_Index_Cnt_End
$ t1 a( S- K$ r. e( l
RTS
8 t- D5 b9 u3 U4 F+ s" X
% T- S0 V8 J" P
;==================================================% K( f# F: |; N+ G' i% N
Get_Last_Page_Start_Index0 q& d4 g. b7 x
LDA <Music_Item_Last
5 X7 F2 D. m/ g* M5 V
JSR Get_Page_Start_Index
& T% ~8 P7 C2 r% e5 i2 O' b
LDA Data_Buf
: P) D* G# c2 h
STA Page_Last
6 g) E2 V0 R1 }3 i3 b
STA Page_Last_Index
. w! I/ f3 i2 P) S3 q& w7 z% f
LDA Data_Cnt
: {9 Y- d, k5 { W. T3 i
STA Page_Last_Cnt$ L9 w/ [+ }+ Q l; o& u, E
RTS7 V+ `' R, G, ]) F3 M$ x
# N4 d( r( X" l0 V( x" e# P
;==================================================# \1 D% m J2 d" G: C
Get_Cur_Page_Start_Index( j9 J {+ r0 {+ d
LDA <Music_Item_Cur
) Y) p: ^4 z+ Z8 e( B: D
JSR Get_Page_Start_Index7 h% H6 u& M, |0 ?( v8 D3 q
LDA Data_Buf
: m* B0 b- C; F
STA Page_Cur
; r' S# S% ]% n7 j2 I6 e
STA Page_Cur_Index n, o; e9 q F) E2 }8 S( @! ^
LDA Data_Cnt
! k$ E8 R8 z& q
STA Page_Cur_Cnt4 J4 _5 V( Y- U: Y6 Z* y8 H" g
RTS
[1 d9 @3 S4 t. Y
8 v; p( f5 C; E6 ^8 B
;==================================================/ g6 } R) h1 w1 u' P9 o, E: Q
Show_Page_Text;显示页文本
6 T7 u2 T, G* w' Z* L6 y! K
LDA <Text_Disable_Flag
7 |0 U4 S- ^3 z+ O
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME | TEXT_DISABLE_ITEM
3 U- F7 j# j( N* R/ @. d
STA <Text_Disable_Flag
+ h. N" ^4 t# h
; a8 _% P, w% G; d6 o: }
JSR Get_Last_Page_Start_Index
9 n7 c3 b |( Y/ z- d# ?8 I
JSR Get_Cur_Page_Start_Index
4 `( X! {9 q8 u3 i* O; O1 P9 H+ T
7 g5 r& I% l% t3 r% N1 y
Show_Page_Text_Set7 `$ [# s4 y( K6 V3 t
' W' w6 s& P# a, r8 }' u9 N
Clear_Page_Last_Item;清理上一页( g6 l" F) c/ y% n
LDA Page_Last_Cnt
, }1 {5 b7 E7 h2 t- o
BEQ Clear_Page_Last_Item_End ^, z4 b/ M4 i. Q' s: @
JSR Clear_Item_Text8 G& I J+ y a
INC Page_Last" Q" i3 ~& H9 l; b
DEC Page_Last_Cnt
. I' l, j, b4 d" W2 F1 `7 r* R% }- _
Clear_Page_Last_Item_End$ ]. P9 L0 R% l
! ^1 d( Q' ~ v2 Y) v
Show_Page_Cur_Item;显示当前页
5 g1 q- G' x/ P( |2 W2 N8 e
LDA Page_Cur_Cnt
& ~2 N+ N1 Q5 c% _
BEQ Show_Page_Cur_Item_End# g+ `9 V& { c" V, {: D5 q) V0 N
JSR Show_Item_Text
" Z( V* c) C3 v
INC Page_Cur
" J- E" N; _" E5 [: A
DEC Page_Cur_Cnt
4 p0 B2 t9 B1 B3 d/ }! E
Show_Page_Cur_Item_End0 q$ `* l) j" V* |# d
) j( r2 \: n6 C5 ~2 N$ D
INC <Time_Wait_Cnt0 |4 S6 X" h0 F4 N
Show_Page_Text_Set_Wait;等待NMI完成PPU操作
+ a+ r; l2 V- T* f! a% }; }
LDA <Time_Wait_Cnt2 @! i2 `. P$ i- D9 Y- N
BNE Show_Page_Text_Set_Wait
% r& B$ z. @4 S! ?: k: d$ {. ^' O
0 x' p6 Q! \$ A( t
LDA Page_Last_Cnt
( w- o( P3 M/ @) w
ORA Page_Cur_Cnt
4 ?" V$ @* Z, M" C3 t% U ~8 r9 B9 E
BNE Show_Page_Text_Set. Y. U; m3 d6 Z, b# Y) c
LDA <Text_Disable_Flag- y" x s; _* \; D/ j Z
AND #TEXT_DISABLE_ITEM ^ $FF
' x8 ^: {- A2 P
STA <Text_Disable_Flag
6 J( E4 H$ n# {" P) N" `3 }! C
RTS
0 q9 u7 l9 S6 I# v8 e
; E' X$ O7 w) q( N) B# O; N
;==================================================
4 V) J0 [9 J! ?$ `
Last_Item;上一项. R. n3 g$ g+ L7 d1 c; _, v3 f
JSR Clear_Last_Track_Name
* Y3 N( i2 s$ E' G Q1 y! p7 _
JSR Disable_Text_Draw
$ y4 [9 f+ b7 z: T
/ ]% f6 q$ c7 t; \0 ?3 q
LDA <Music_Item_Cur1 ]; c' }& I+ c `2 |) v& @
STA <Music_Item_Last+ M. v. C! r( m/ k, |
; F6 S$ c2 {+ M2 O+ V
JSR Get_Last_Page_Start_Index
+ P0 X5 e+ t7 D. a
( T4 Y( l- A! O' i( ?- |" d
LDA #$006 ^$ ]- z: W- d2 K4 e* G
STA Data_Buf* ]2 {5 X' Z. J1 v# d5 d9 A
* q4 y& C# K1 i3 f: S. ^
LDA <Page_Last( ~* }" d: [4 U ~
CMP <Music_Item_Cur! R6 U9 M/ ]8 B' U1 ~. J p
BNE Last_Item_Begin
- E9 L0 ]5 h) v) W8 U7 u
& i% J. n( T) M7 B
LDA #$01$ F+ k0 n I6 I8 |! f: i
STA Data_Buf
& o2 e5 Z& C) B1 d* N2 i6 V
Last_Item_Begin
7 o' F) C; D# {* T& Z1 F, J
LDA <Music_Item_Cur X2 @" b5 i" |; ^; F& {$ A3 H5 N
BNE Last_Item_Set
) n8 h% o2 b6 J
LDA #ITEM_MAX_INDEX + 1
" A% _$ D/ w# @& v" o
STA <Music_Item_Cur$ i- `" |2 D( D) s! H( S
- x3 m; ~7 ^, w/ K3 S
Last_Item_Set1 A) _5 v5 h* s4 {: \* W% b" T. b/ Q
DEC <Music_Item_Cur
I, W z" h" m
LDA <Music_Item_Cur
( j; i- r. @0 r- ?$ t
JSR Reset_Current_Music% p: j2 B7 f4 T, D8 w
$ l/ [# `8 l2 \% w& G$ x3 `
Last_Item_Play
LDA Data_Buf
+ H H+ o; O+ |* N+ g
BEQ Last_Item_End4 @7 V$ c9 l7 O( @0 W' R
JSR Show_Page_Text
- w2 T6 i3 \3 \8 I, x
Last_Item_End. c t2 w& w+ a: L+ `8 q6 ?# R
RTS$ z- x2 C) v, X* ^3 [! V. ~1 w
& E, ^: B% Y1 P, Z7 C' o/ y
;==================================================
3 ^! H6 L' T" P3 x* f: S
Next_Item;下一项& g4 A- Z) O K) M
JSR Clear_Last_Track_Name& h2 S+ A4 E+ n, s* V1 i2 u0 M' A
JSR Disable_Text_Draw# v9 O$ X! {) ^% n! T; `4 Z
6 ]$ b4 }7 ?4 N1 B
LDA <Music_Item_Cur0 \: q" S" i- g7 P" W
STA <Music_Item_Last$ ^) m6 j" a2 P. t" o7 g* k- P
8 O1 W* ^2 p f( K }; {; v# m
JSR Get_Last_Page_Start_Index
4 W$ R5 D+ q4 r# x9 i4 m
e) {' K2 D6 g1 D
LDA #$00, m' ]0 b" {- a/ A% F7 [, I% Q
STA Data_Buf
$ d4 I0 d; A4 Q- d3 L+ L
* M3 N% v; S) t. m3 u
LDA <Page_Last3 g2 H1 o u+ _' u
CLC
% E& R6 A3 q& r
ADC <Page_Last_Cnt
7 a& a% M' e4 M, }* W7 B
SEC5 S$ h+ T0 w* p' q2 v/ F+ |
SBC #$01
% n: ?4 X3 m7 R
CMP <Music_Item_Cur
% I5 _/ ?! m4 ^7 B" _! e
BNE Next_Item_Begin) _3 e4 z& [. |/ i5 J
) N0 g. i$ S. T s @/ b6 v" P
LDA #$01" T' K( w9 ?( y( d8 j! x( o# c+ S) b1 R
STA Data_Buf# S1 K; b; j4 t8 O8 ~
Next_Item_Begin
$ w% a2 W. L8 w7 q( E; T
LDA <Music_Item_Cur4 k! @' y- x9 H9 S" L( }: C7 {
CMP #ITEM_MAX_INDEX( B6 }5 c6 K% F% h! V* x0 j
BCC Next_Item_Set$ {& Q4 @3 r* Z8 v2 D: N
LDA #$FF5 \/ h& h/ j7 U; l
STA <Music_Item_Cur5 Q: P( q* I1 w h( A$ U$ H; n
Next_Item_Set# N/ O* P- W, s' y
INC <Music_Item_Cur% s/ `1 A! @3 D
LDA <Music_Item_Cur
2 q2 s" P4 @& T6 C4 U" V+ Y
LDA <Music_Item_Cur) B$ I- K; w! I, @" Q/ j0 [: k
JSR Reset_Current_Music
/ i2 F; w! ]' R
Next_Item_Play
4 u/ P( j$ ^4 {+ _
LDA Data_Buf# Z2 M' `7 Y- O" T: z
BEQ Next_Item_End" H0 e, r; d) `
JSR Show_Page_Text/ e% z# H1 T5 i }
Next_Item_End
) @ _ X/ y6 w" O7 F H! U% s' N
RTS4 z* q+ ]/ W# F' _& `
4 |: U$ w! C9 s+ q2 D: o& U
;==================================================0 \& V! c5 p! X& G8 {8 ^2 R
Last_Page;上一页5 r3 c' x; M1 s2 F6 l1 }- u9 n; y8 W
RTS( ~4 p1 O; ^! P) R5 Z$ f) z" l9 M* {
' E6 g' Z( y" N$ O) G
;==================================================" B# a) C0 h8 t m' x* Z
Next_Page;下一页& f/ m. z. l% v9 M, Y( v6 m
LDA #PAGE_MAX_INDEX
; i8 c9 x# A' o. H
CMP #$01$ K$ ?" h) r, G( a; |, U ]! j r5 G
BEQ Next_Page_End
6 V+ n' k7 E& y5 m3 k
9 a% {/ s# k* t7 j% K
LDA <Music_Item_Cur. t% Y) C6 G4 i5 `
STA <Music_Item_Last
3 r3 z! j( x8 h% W
8 H! Q+ N. n5 b8 F. X& w' L% {# }% {
JSR Get_Last_Page_Start_Index
0 i$ R) e r3 ]4 Z- H, F
+ n8 ?5 `3 i- `- L
LDA <Page_Last_Index
) |2 _, z6 p- h3 i
CMP #PAGE_MAX_INDEX$ j7 k! d/ M- m' P) S9 ]
BCS Next_Page_In_End_Page
& r# x9 m, W8 |
- ^3 x( i& [, |2 X2 o
Next_Page_Not_End_Page;不是在最后一页
8 m: I# y* A8 }: y$ R, {1 g
LDA <Music_Item_Cur# {- x6 O* L" z& o
CLC
" T+ Z/ y0 [( t1 b3 g+ @
ADC #PAGE_SIZE
d1 ]" k3 E$ r" W8 l5 Z ]
CMP #ITEM_MAX_SIZE. Q5 }+ K. u. v
BCC Next_Page_Not_End_Page_Less& v. K; r; ?5 R4 T7 m4 v
LDA <Music_Item_Cur
1 B& {. V, g0 R7 K
SEC3 H# U& D9 l/ @# |; D- Q: U
SBC <Page_Last_Index- G2 R: _2 V% |+ P# X( B
CLC
: d J( J* B( P0 L
ADC #PAGE_MAX_INDEX( D+ i# t+ t5 x, ]
CMP #ITEM_MAX_SIZE/ a! q% w& ?( M, ^$ R# \& a
BCC Next_Page_Not_End_Page_Less) b& W$ x- G4 U9 E* W
LDA #ITEM_MAX_INDEX
+ p' B" y& A4 R
Next_Page_Not_End_Page_Less' e- D* `9 Z3 H+ o5 m# r
STA <Music_Item_Cur0 Y8 N' ]0 W2 p1 P) g
JMP Next_Page_Reset
0 E* ^0 x" S3 X* ~7 m3 `. Z0 ^
$ j! o' X T; ?8 P
Next_Page_In_End_Page;在最后一页
- R, _/ j/ J0 D. o* c
LDA <Music_Item_Cur
k8 G! l! W# [& I7 i
SEC' Y {( Q$ h) w6 X( J) _8 k
SBC <Page_Last_Index
+ H8 P: H. A/ z( l9 \# r4 }
STA <Music_Item_Cur
& y5 d) V; w2 T x: w
# Y$ G* N1 w6 y J0 W
Next_Page_Reset
$ K6 X0 O0 v }3 d
LDA <Music_Item_Cur
& _5 V6 ~7 P9 i5 N8 z2 |0 I) H: x
JSR Reset_Current_Music
7 g8 @# z0 |, z- J& Y5 `
JSR Show_Page_Text
& Q2 ~7 q* W' _. r* U
Next_Page_End
8 Q" d) n/ r5 t7 H1 O) ]: `
RTS" c% Y3 A4 R5 O
. {( f ~+ v# ^/ O& d. ~0 n8 c- Q
;==================================================1 z* p, C# D! {, V3 T& D5 y4 ]
Disable_Text_Draw;禁用音乐条刷新9 c4 S- `; ~0 T& x$ i4 z1 Z; |: h
LDA <Text_Disable_Flag
' J2 l7 m+ m; f
ORA #TEXT_DISABLE_BAR | TEXT_DISABLE_TIME6 D! h- L# b4 _$ c* z
STA <Text_Disable_Flag
. l2 ~# w7 R+ {! n0 R8 W/ j% j5 i
RTS5 L. @, N) {# E( X) j
( H$ }9 n7 o+ @+ a% ?
;==================================================
! x' X0 E. K& ^: [% k
Clear_Last_Track_Name;清除上次曲目名1 }! c( {8 N, d" B- C/ j$ R
LDX <Music_Item_Cur8 V4 X4 j5 J8 S8 Z
LDA <Music_Cur,X
$ x) K2 Q: v0 i/ o% h+ i9 F( n$ N
.IF Track_Name_Pos; W5 ?7 s, f- g
JSR Clear_Track_Info
. _3 d. w' w" j, ^
.ENDIF. T5 n* s6 z) H5 o8 I8 H
RTS; ^* \# l9 s6 o# E
% A& n \- Z+ A7 v7 v0 Q, z
;==================================================
$ D# z% o6 K* o) M3 u
Reset_Current_Music;重设当前曲目 l9 b; ]2 C: F4 n/ Q
! z9 \! q1 N6 Y# E) Z
;写入当前总曲目
( b9 g2 v8 r+ u
JSR Set_Sound_Total
- c) ~$ Q/ n5 k3 E- \
LDX <Music_Item_Cur
# V) w6 O0 b: z$ E9 P
6 }( m! p! A; I l' |% w
LDA #$004 K5 C1 y4 n3 J( [
STA <Music_Last( i; [. q! c x t' i4 j% r
$ C I0 ?% P" _. g
JSR Sound_Reset_Proc4 C& k! [/ @, h H( n- @
JSR Music_Show
% H4 ^7 l( v- E: o6 G+ f- G4 P# Q4 M4 q
RTS M) t& J# E8 i( B* k- {
+ `. c2 {! H! q4 D: O# B
;==================================================, V# g3 P8 C. ^8 L" ]
Music_Song_Stop;音乐停止
1 o( l3 k2 N2 A% A. u8 @/ H0 e; e
LDA #$01
5 U H/ P5 a2 D' V$ ^
STA <Music_Stop_State
( p2 p, v4 f6 \4 _8 R5 D5 U; o& c
JSR Music_Bar_ReSet! D- z# L7 d9 E; P# E0 }5 G
JSR Time_ReSet
2 b% Q$ E: y4 T4 d, D9 s
JSR Sound_Data_Clear
. u" X. i4 X) e+ v
JSR Music_State_Show6 `5 a5 i6 I n' I6 |
RTS
. v! A: a7 h$ b. ?
3 Y5 @$ k8 ]5 ^; l8 I: W
;==================================================
: C+ {7 N* Q+ p# w1 w
Music_Song_Play;音乐播放6 u, Y1 Z" X7 V8 S
LDA #$00+ v B `. N0 F; j9 D
STA <Music_Stop_State
! e+ W6 f9 C7 f8 A/ } \+ v
LDX <Music_Item_Cur
3 _+ ~# j& [2 `! A! E" |
LDA <Music_Cur,X
" D3 _7 B! d& a
JSR Sound_Init_Proc+ d) x. ]8 C7 k0 B5 h$ l
RTS
7 {$ ?# \) h9 A) u/ H: r
5 T3 `: g+ f# a8 s4 o
;==================================================7 f7 p4 Y# V1 P$ y0 r- V3 T) Z
Music_Song_Last_10;上10曲
1 N8 R! M1 i- f L y d
JSR Clear_Last_Track_Name: x3 m) j' |7 d/ @
JSR Disable_Text_Draw1 g E6 J5 i+ E3 w" ], O2 S! h% B' t
LDX <Music_Item_Cur# Y2 w7 U) l# t4 v5 [" O5 ]
JSR Set_Sound_Total) C2 y: _/ _; n, X
LDA <Music_Cur,X
" R A9 F' Q( X/ q; X
SEC
& K! `$ d4 I$ \. S4 m
SBC #10- e7 I, o% T+ B& k0 C
BCS Music_Song_Last_10_Set
& Y9 b. T7 g9 c+ W
LDA #$00
. r4 l. m4 \4 n* m% A
Music_Song_Last_10_Set) O: o& J2 p1 c5 A' A u& |
STA <Music_Cur,X
7 z) S: W2 G8 n/ T
JSR Sound_Reset_Proc
9 N7 M' \1 u6 g4 I
JSR Music_Show# k* R% N& B! ]6 V) B
Music_Song_Last_10_End
; B! J6 \5 b$ H$ _2 t
RTS
4 }& a8 c1 z, [4 i2 n: @
# a! K) u+ u4 ]( w1 e
;==================================================" o o6 c9 O/ t. H/ j" g/ } H
Music_Song_Next_10;下10曲* c# i5 b7 M% f u: b. @3 ?
JSR Clear_Last_Track_Name
% f( R5 n/ m3 ~1 ?$ p& W
JSR Disable_Text_Draw
0 K5 `5 K) }$ [4 S/ {1 I; o
LDX <Music_Item_Cur* w' T$ P! f T
JSR Set_Sound_Total
/ R- f; l/ M" R- [5 |* E4 L
LDA <Music_Cur,X
: G% u2 c! h+ ^/ z5 i! N* u" E. a
CLC
, Q7 s- Y7 _5 Q% W
ADC #10
I; ?# H3 O& ?0 I/ m" E3 C7 ]
CMP Music_Total
, y% n9 q- J* I6 M2 ?% a
BCC Music_Song_Next_10_Set
- E: S# K9 a# V5 w
LDA Music_Total) K6 l/ l7 C1 `& L
Music_Song_Next_10_Set9 v7 p' D' J" R9 H; F; X6 ]
STA <Music_Cur,X
. P' m# J/ L3 }' t" P# z( o8 f7 d7 T
JSR Sound_Reset_Proc
, D( r h% H' q( S$ A% H
JSR Music_Show, S: @. @" t& u0 ?+ E @ G9 S
Music_Song_Next_10_End
T* c+ b( o! x3 M# B
RTS
& ?3 V+ M7 F( e0 z1 u
; s1 C) m5 w: @$ O9 V
;==================================================
. j3 G8 y9 R+ {, s. t* o3 x* } T$ y
Music_Song_Last;上一曲
& Q& H1 k }: M6 Z
JSR Clear_Last_Track_Name; A# L$ ^4 h) H! Q# ?
JSR Disable_Text_Draw/ e" O) C8 \6 G8 y1 r+ ?
LDX <Music_Item_Cur: d/ D) Q9 e9 _0 M4 j
JSR Set_Sound_Total
LDA <Music_Cur,X2 v; {$ c d& N: l* O3 R& o$ X
BEQ Music_Song_Last_Set
, G' G; d4 U! b: c
DEC <Music_Cur,X) d3 b: x0 }4 Y& m
Music_Song_Last_Set
" a' d0 l5 w5 z6 v3 C' ~! |' C
JSR Sound_Reset_Proc$ c3 e2 U2 F1 d+ m3 u; b
JSR Music_Show
8 K( y+ b/ A3 r5 o% E
Music_Song_Last_End
3 H8 _6 `: e; L/ C& X9 t# W' W
RTS
1 M3 C. g) K6 q+ N6 b
! C7 M/ F/ p- A {) ?
;==================================================1 S) d+ F+ W) X3 u# [
Music_Song_Next;下一曲
# I- Z) S8 U8 }& f) |% u0 [/ J
JSR Clear_Last_Track_Name/ _5 |% R. V! \0 i. [
JSR Disable_Text_Draw
3 y8 U: _0 a! _& D; d6 x# ~" Q
LDX <Music_Item_Cur) T8 ^2 M W* U) F5 U. [
JSR Set_Sound_Total1 |, m4 ?5 l9 U; M& ]* h
LDA <Music_Cur,X( L Y9 D/ ]: p) g: ?! E) b! D
CMP Music_Total
1 E+ s: O5 V' \
BCS Music_Song_Next_Set
8 x# g1 _/ k' [6 D: ^% ?
INC <Music_Cur,X
! p0 G! K2 W8 W( o
Music_Song_Next_Set5 N& m' E2 p5 d8 Y. Q, j3 y
JSR Sound_Reset_Proc( i6 v. C7 ?$ L' p4 i3 b' Q) |
JSR Music_Show0 M$ J7 c( z; l% k1 M# u9 S
Music_Song_Next_End
' l; b1 F# G% @3 e( ~3 h
RTS3 a1 a7 f8 [9 i8 m+ J( q% ? f `
2 J8 b! r. p8 r3 g# h
;==================================================; [8 j$ G) i: k) R* Q, \3 U5 `
Change_Select_Item;改变当前选择项
2 D) z. W' B0 h6 C+ g
;--------------------------------------------------
) G l5 \$ S* q4 y2 B& E
Change_Select_Stop_Play_Item;停止/播放
! ~/ E3 X9 w( m* [. N* V5 C! w
LDA <Key_Once% x7 C3 l! L! y; Y( z: E
CMP #$10, y2 r% P, B/ S4 C' g4 {. T: Y2 e
BNE Change_Select_Last_Item
6 Z$ D8 o$ p- w, A0 ^% ]/ q4 ~
LDA <Music_Stop_State
$ k+ g- r: ]9 ]( ^; u( }) F
BNE Change_Select_Play
4 v: d+ B& _) x1 E+ r
JSR Music_Song_Stop9 b7 ^4 O! H. W o5 h
LDA <Music_Stop_State
; _* H7 V# T5 M, G
RTS# o$ I/ U( @( `- m% `& }: w" F/ B
+ n- k/ g4 R; k' a
Change_Select_Play% E- P6 }0 e+ y# L G3 Z
JSR Music_Song_Play* M! Q6 }$ @+ {# t7 S. C
RTS
8 ?# ^, t$ Q. o C |; m
. s2 c9 K5 b8 U$ Y# p
;--------------------------------------------------
6 s1 G+ `2 A& x0 Z# K
Change_Select_Last_Item;上一个专辑
) O& k: h [ a; K( H$ h
LDA <Text_Disable_Flag
" [8 k$ f9 E# P5 [! s0 ^! I3 d) B
AND #TEXT_DISABLE_ITEM
- T, b- ^) Y3 K4 b8 q& W
BNE Change_Select_Item_End
0 U! b! W' C( Z' O+ J7 J0 w) F# [
LDA <Key_Once/ r/ l @. p* o+ [( H
CMP #$08( ~! C* h! e. P* |% {
BNE Change_Select_Next_Item
( l& O0 v! N; @. ]; H
JSR Last_Item
! w N$ d' J8 k/ ~; u$ s$ M. a6 v
;--------------------------------------------------
/ l8 `# N3 N+ y* D- n
Change_Select_Next_Item;下一个专辑
& A2 C4 A2 ^3 F" Z$ S
LDA <Key_Once4 l' l! h' `/ e& d+ ]; h# {6 N; P
CMP #$04
/ p7 Q: s* v) z6 m6 |
BNE Change_Select_Last_10
6 W2 j* k$ x% R# Z
JSR Next_Item! X3 `' `* g N( j& f2 p5 b! c
LDA <Music_Item_Cur$ R2 a; e7 u2 U S g4 u5 Z/ j
JSR Get_Page_Start_Index
4 J, N) D! }( M: y: \
;--------------------------------------------------
' j6 `6 k" r& F" w
Change_Select_Last_10;前10曲4 R; a$ \3 f& Y3 }2 w) n
LDA <Key_Once
. {4 o; t) k( t) i5 z9 x* u
CMP #$40' h }. Y2 d7 U, H1 d; c
BNE Change_Select_Next_10
% G" a5 S' K' h$ @ i: T4 w
JSR Music_Song_Last_10/ w/ G3 ~; K4 w/ M* H
;--------------------------------------------------
$ j) X. P5 w, Q H$ d
Change_Select_Next_10;后10曲
" v- m! O% w: v+ e4 y5 I
LDA <Key_Once- o! y# F, ?( w/ F J9 h' Y1 Y& d
CMP #$80
1 ^7 W2 l+ ?$ M- |
BNE Change_Select_Last
, S: x( g" B. t3 o7 I- \# j
JSR Music_Song_Next_10& i. B) W. C% J' A
;--------------------------------------------------* p2 w; V2 E5 J/ h3 u# E: w
Change_Select_Last;上一曲
; z- M, y2 @0 z$ z
LDA <Key_Once
5 o3 P E! s6 B @; p
CMP #$026 `5 G2 w" @9 w: Y
BNE Change_Select_Next1 P! N& D% Y H: I* `8 a* R' ^' }
JSR Music_Song_Last
( O' w z+ t7 d( M% E" _6 Y/ |
;--------------------------------------------------2 X" s! E3 g2 a% y, w2 x
Change_Select_Next;下一曲9 a( U8 Z0 a a/ w3 a
LDA <Key_Once0 o: {7 N, |* y( I7 l
CMP #$01
! v( o% D! K7 I: M
BNE Change_Page_Next9 c N0 P7 W! ^* J
JSR Music_Song_Next/ g. k$ G' R* c: T
;--------------------------------------------------2 G8 q% d7 p/ q% m ?! _) j
Change_Page_Next;下一页4 a/ ?# @' T4 [, ~1 T* A- X
LDA <Key_Once2 O. A$ K3 o. U9 F
CMP #$20
( j/ }9 n) K1 d$ m
BNE Change_Select_Item_End9 H: d7 w1 g% m; a
JSR Next_Page
- z* o4 X0 ]- S+ a. Y7 D
;--------------------------------------------------2 ?! W% G' a2 w7 ?& B6 d) E
Change_Select_Item_End
0 o M+ L2 X/ v4 I/ E
RTS0 W9 a/ L' B$ Q) g( T& I' m5 B% l
( w( X0 I4 E S+ e
;==================================================
% `( W. O0 ?# C4 f6 Y
Show_Arrow;显示箭头光标
# m1 G! F, \$ O) ]' p
LDA <Music_Item_Cur. s# i5 v, {/ E' M
JSR Get_Page_Start_Index6 d8 S, A# H! W! @5 Y
LDA #$00
5 {5 v. X4 j" g) I. b) W
STA PPU_OAM_ADDR) |, l2 @0 ~( P! I
LDA <Music_Item_Cur! j: w" H5 B' @: M" H8 \
SEC
, Z8 L% n( V- D2 K. e5 |* P J
SBC <Data_Buf
1 C8 _% K- V! X9 v
ASL A9 l" Z& p/ |+ D: j0 i
ASL A; W9 \+ |5 Y. M7 u; N8 T
ASL A) W& b8 \; W j2 p8 H8 Q: X: T, ]
ASL A% k' Y3 P1 Y/ L7 v% b
CLC$ n* V( f+ }3 l. ]: _. E$ }6 N
ADC #ARROW_Y_OFFSET
4 S9 ~" h- c- [/ T4 S& |8 `4 S
STA OAM_TEMP_ADDR + $006 H* k" S' l$ j; t' I6 w* o' e% m
;STA PPU_OAM_DATA/ ]- F/ I5 c. i \. r! A( V, u
LDA #$1F
& M0 j+ X* t3 r# g9 Q- c4 b
STA OAM_TEMP_ADDR + $01' ^5 B t P, \7 m9 H
;STA PPU_OAM_DATA6 A: K H) \. u2 F! y0 i
LDA #$00
- D- A: O$ W( g9 O+ v% {
STA OAM_TEMP_ADDR + $02+ I [& t+ H/ J; Q7 h. m
;STA PPU_OAM_DATA
_; Z0 V' T+ P+ K
LDA #ARROW_X_OFFSET
$ e" R- N$ }! L" R# o; J
STA OAM_TEMP_ADDR + $03* {( K3 @( R/ r5 k x
;STA PPU_OAM_DATA
; D3 J) T" |- c% a
RTS
7 E E! I. T5 g1 f; ^/ ?
; `" \: K2 ?3 J) ? A* m* u
;--------------------------------------------------
; y, [$ K, N D" Q7 S: a
;命名表数据' b* ]7 M4 L& n5 X6 M# f V& _
Palette_Attributes
3 r( p3 g+ ?% ?2 e3 B8 d9 w
.IF SOUND_BAR_SHOW_ENABLE4 W8 M6 j5 Y8 V/ W
.DB $00,$00,$00,$00,$00,$00,$00,$00,$55,$55,$55,$55,$55,$55,$55,$55
7 @3 O8 ]( O( z& R1 m9 _' m
.DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$550 X/ G6 L$ a, m. d# Y4 g. Q+ M& i H
.DB $55,$F5,$F5,$F5,$F5,$F5,$F5,$55,$55,$FF,$FF,$FF,$FF,$FF,$FF,$751 Q, ]& J2 L% W7 X7 H" Z, Z6 L
.DB $A5,$A5,$A5,$A5,$A5,$A5,$A5,$A5,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
+ {8 p3 p: G3 o
.ELSE
' l% ], [1 m5 `7 l$ F+ H8 g
.DB $00,$00,$00,$00,$00,$00,$00,$00,$55,$55,$55,$55,$55,$55,$55,$557 C7 ~/ R7 L7 [. Z% k: q* [' c2 {
.DB $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
7 V$ f% J) Q0 b( k5 F
.DB $55,$F5,$F5,$F5,$F5,$F5,$F5,$55,$55,$FF,$FF,$FF,$FF,$FF,$FF,$75* k2 B% K$ c" t" p: b( D$ |' V
.DB $A5,$A5,$A5,$A5,$A5,$A5,$A5,$A5,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA; ~* t) M: O2 z& H
.ENDIF' a$ E3 k0 {/ ]2 Q/ f7 M, v
, X: W' ? q/ |" R" W9 t- M1 V
;--------------------------------------------------
1 Q: s: @- S, {% B
;调色板数据
- T8 Z0 _8 c5 U/ n/ V; j' D& \/ g
Palette_Data& H2 {6 N1 T$ l. B. G3 f* _
.DB $0F,$27,$20,$0F,$0F,$23,$20,$0F,$0F,$21,$20,$0F,$0F,$24,$20,$0F
3 X8 f; B- {' D) T+ H
.DB $0F,$21,$24,$25,$0F,$24,$20,$0F,$0F,$24,$20,$0F,$0F,$24,$20,$0F
; B$ i" I2 g7 Q: Q; k
: ^% S3 e% e% v9 a7 ]
;--------------------------------------------------9 c& r5 R% q# R' ]% o1 v2 F
Static_Text_Data
/ {& ?7 B; B# k: D; X& {( z" R
.WORD Static_Text_Caption_Data
: J+ I4 {9 U% F+ `3 k
.WORD Static_Text_Author_Data
$ s: c- S1 u3 p z
.WORD Static_Text_Date_Data) I9 y4 j& U( U# b& Q# B; v& \
Static_Text_Data_End3 G+ N. O5 ?5 {8 J' L
7 J2 ` {6 T$ }/ c
;--------------------------------------------------/ w6 [. n; f* ^6 n% B
Static_Text_Pos
7 v. B# h; L2 v! M3 m: r
.DB HIGH(Caption_Text_Pos),LOW(Caption_Text_Pos)# m/ t( `2 e+ t2 F
.DB HIGH(Author_Text_Pos),LOW(Author_Text_Pos)! h. b% I p& G: P. u3 y2 C
.DB HIGH(Date_Text_Pos),LOW(Date_Text_Pos). U% T$ R! H1 Z. Z
Static_Text_Pos_End" K1 }: C# _4 c
- B N, {9 W9 @( r) w ]) V
;--------------------------------------------------
" D- X$ n1 P9 ]. e2 u/ x
Music_State_Stop5 }% } }5 W2 a6 V' {
.IF SOUND_BAR_SHOW_ENABLE; r) ^9 \0 C' l; J
.DB PPU_MODE_CNT_LINE,HIGH(Play_State_Pos),LOW(Play_State_Pos),$07,"STOPPED",$00
/ y8 r; }* v) s2 S
ELSE9 y+ j( l& y) W* T+ B
.DB PPU_MODE_CNT_LINE,HIGH(Play_State_Pos),LOW(Play_State_Pos),$07,"STOPPED",$00: x3 ~/ ?' y* I I$ d @
.ENDIF$ G: B9 ~5 p* U5 S5 G
Music_State_Play- t/ I6 ^+ y# ]6 {- l
.DB PPU_MODE_CNT_LINE,HIGH(Play_State_Pos),LOW(Play_State_Pos),$07,"PLAYING",$00
6 ?) t0 M' ]/ Z& d. o3 f
4 k# _6 ]/ q. a3 S3 ?( Z3 l$ o
;--------------------------------------------------5 M( I$ e$ J& |, ^# d$ _
Sound_Bar_Text_Data;声音类型文本 k4 h0 O* }! W8 l# m+ j
.DB PPU_MODE_CNT_LINE,HIGH(Sound_Track_Pos),LOW(Sound_Track_Pos),$04,"SQ1-"9 u; M9 l, Z" n
.DB PPU_MODE_CNT_LINE_NEXT,$04,"SQ2-"
' [) R$ W! v* w, d2 e& X4 @; s, h
.DB PPU_MODE_CNT_LINE_NEXT,$04,"TRI-"
0 C8 U* `* ?; w% o% F3 S: l9 e
.DB PPU_MODE_CNT_LINE_NEXT,$04,"NOI-"
) @7 T, |7 Q, F1 \
.DB PPU_MODE_CNT_LINE_NEXT,$04,"DMC-",$004 z! P& K% E Q
" L/ ~5 Z4 k; J9 F" H8 y
.IF Track_Name_Pos7 e- d* D8 `/ E+ l( d
2 g5 Z. u& R4 |
;--------------------------------------------------
- J* u* Q `2 `3 o- S
Track_Name_Addr_00;曲目名地址索引: l8 N3 S( H! ~: b2 G, E0 w& a6 b( t
.WORD Trackr_00_01
$ I4 y8 r4 f: ^& s" q9 Y
! s# }' v& f- I6 n
Trackr_00_01 .DB 15,"RAF WORLD BGM 1"* A9 ?& s. |# `) g% }
Trackr_00_02 .DB 15,"RAF WORLD BGM 2"
& s* v+ [; p5 V1 h, c! a0 Z; j
- z. J9 m# r' o9 _: A, c. U
;--------------------------------------------------
0 [* G. y" k0 a2 n7 w$ \
Track_Name_Addr_01;曲目名地址索引
0 g" n5 x5 J( f( ^
.WORD Trackr_01_013 j7 s1 `+ h5 F0 [; O8 R) M
0 j3 M8 \' r) @3 K
;==================================================; s; L' {6 p) T+ g! T5 Q
Trackr_01_01 .DB 19,"FINAL MISSION BGM 1"
$ |; G" V% O- h2 M
Trackr_01_02 .DB 19,"FINAL MISSION BGM 2"& Q* w s$ T! x- ?6 J
( g& k+ m/ W0 ?
;==================================================* Y( y( {# |- Z/ l+ ~" B4 B
Track_Name_Addr_Port ;曲目名地址间接索引
. @7 t3 t9 c8 K
.WORD Track_Name_Addr_00
* @, E4 V0 ?- C
.WORD Track_Name_Addr_01: z+ F- E$ a8 w1 d) N% C
.WORD Track_Name_Addr_01
! a& W/ T7 c5 q/ V0 {* _# F
$ G5 Q U3 u1 R. t x* |
.ENDIF+ P5 T5 `; F4 q+ K1 f
9 i0 ]/ c" M. D- U# E/ J% G
;--------------------------------------------------
9 o9 h) \6 q% F8 F. ~+ t& j
Static_Text_Caption_Data;静态文本数据' ^# ~7 L: }* i' J$ r# _
.DB 16* U' ^& F) ~: Y' h/ J4 N) ]6 w
.DB "FC MUSIC 12 IN 1"
. X* C! m/ _* R7 r- H
Static_Text_Author_Data `' I5 U% \) A/ l4 o0 v
.DB 25
% m2 p3 n" \: y0 c# J/ ?& ^
.DB "EXTRACTED BY FLAMECYCLONE"
6 i0 G8 }' ~; K7 a
Static_Text_Date_Data$ r3 s2 j* C* O
.DB 10
9 o* ?& d1 S, ?: o% Y, W5 a
.DB "2023.07.23" n: P: V P: |- P0 I6 W
/ {" r+ n# R. [! h# O9 ?
;==================================================
9 S. b# u# v. Z& M
Music_Collection_Name ;专辑名间接索引$ w9 u+ |$ c$ V9 M% {/ `6 ~1 @
.DW Music_Collection_Name_00
6 G0 g. Z- d) ^: w3 K2 i
.DW Music_Collection_Name_019 ]0 U1 N2 P1 T' i# v2 f, H U
.DW Music_Collection_Name_021 Y( M8 [7 F2 ]+ w0 f
.DW Music_Collection_Name_03
' S5 F) W& y- C3 \* C7 A8 s
.DW Music_Collection_Name_046 N& B8 J0 t; w" s0 _2 B, x8 @
.DW Music_Collection_Name_05$ @# W& D% ^9 K/ G$ g
.DW Music_Collection_Name_06
5 L( S5 c0 m* `+ m9 q$ j. d
.DW Music_Collection_Name_07
( w- j$ p f6 c+ B( @+ J' A! ~
.DW Music_Collection_Name_08
" H4 ]8 d5 |- w W1 a8 c
.DW Music_Collection_Name_09
! F" v$ Z4 w5 v/ T0 c; d" J2 z
.DW Music_Collection_Name_10& `/ m# L- n3 j/ Z8 T* M6 H& g$ l% L( i
.DW Music_Collection_Name_115 r& @$ u8 t$ V, [6 m F4 U
: ]5 `! [$ G, _5 L( p: V5 Q9 x
;==================================================
* Z" _5 w2 y0 w" O
Music_Collection_Name_00 ;专辑名文本数据
- {. p6 V* c7 ~2 o: O$ |% M! |
.DB 11,"1.RAF WORLD" {/ p/ c' m! ~. H c/ q
Music_Collection_Name_01
/ }' h) q( V/ |2 }2 l N
.DB 15,"2.FINAL MISSION"
- R+ O \9 S! X; t5 i9 R
Music_Collection_Name_02
) ?6 J' M& T8 t. v8 H- h
.DB 06,"3.KAGE"
! V) f4 Y6 m) @; C% q3 p. ~
Music_Collection_Name_030 V& {+ V6 I7 Z8 A8 a9 s
.DB 16,"4.DOUBLE DRAGON"
! Q4 @8 @3 F0 _) a/ e' F
Music_Collection_Name_049 H1 J3 I( }7 [6 q
.DB 17,"5.DOUBLE DRAGON 2"
5 e% B! s7 ]" | V5 k( B4 ^! q- [
Music_Collection_Name_051 n# t6 M: E2 m3 ?0 L9 O$ Z4 ]( _
.DB 17,"6.DOUBLE DRAGON 3"
+ ^: Z0 J( M6 l5 }/ u5 C
Music_Collection_Name_061 A6 j$ Z2 O4 M% G$ u
.DB 09,"7.ROCKMAN"
V2 |2 ~. e( s. E* L
Music_Collection_Name_07
! ~8 h' z$ g) [8 s0 U% B
.DB 12,"8.ROCKMAN 2"3 u& F1 ]) \& m: b5 R
Music_Collection_Name_08; R. Z" I9 X" }6 R9 }6 p
.DB 12,"9.ROCKMAN 3"
7 X3 F) X! r( C2 R# l3 e
Music_Collection_Name_09, g$ N& X' S0 v) p9 f
.DB 12,"10.ROCKMAN 4"
9 C" ]! z: F3 [2 t
Music_Collection_Name_104 H" o- r- t! j6 d+ Q& Y
.DB 12,"11.ROCKMAN 5". x9 w' Y3 _6 @7 b$ m
Music_Collection_Name_117 I' v8 i% w7 L1 o9 i8 H$ Q
.DB 12,"12.ROCKMAN 6"
7 N$ H2 t6 e/ p& b& R& |6 D
" T) E$ n7 ~; P0 T# ?
;==================================================
8 X" J+ l6 k4 x* e, h# \! D
Track_Name_Addr_Flag ;显示曲目名标记) u7 n+ m/ Z$ g- k7 r9 p
.DB 0,0,0,0,0,0,0,0,0,0,0,0 C1 a3 p7 V; l2 R$ {1 n
: ~$ j X! G) L5 W
;==================================================! M3 R) h( F) e/ r5 s$ u
Item_Pos_Data ;光标箭头位置% V5 M6 Q2 r( u4 x9 |
.WORD ITEM_SHOW_POS/ ?, Y( {# s7 N5 r4 o/ {; z
.WORD ITEM_SHOW_POS + $0040
* Z9 [& e0 ]9 @; g6 a3 o8 d, Q4 O; h
.WORD ITEM_SHOW_POS + $0080* n: U" |6 M) f$ b2 E! |8 i
.WORD ITEM_SHOW_POS + $00C0! g/ e* B% V) [) i
.WORD ITEM_SHOW_POS + $0100: F' B, U1 B* H0 L
.WORD ITEM_SHOW_POS + $0140
. R. c& I1 f4 g8 l
7 u$ r& E4 y8 b! v# x0 b$ y
;==================================================- a1 o0 L7 Q' C) N
Sound_Init_Port ;音乐初始化入口地址8 a2 v7 b7 v5 E' K; T# [& J
.DW $BFC83 R! F f7 |+ c" k/ W/ a
.DW $D7F0
; R! s: u, n' ?7 i
.DW $9FC0; t/ Z6 h9 t1 z( t3 F$ d( O9 B0 U
.DW $BF70
& c5 m. e9 Q( X& u! \: {
.DW $80037 R; ^3 c5 N9 B9 o7 u# ^4 h7 t
.DW $BF30. a- }) j9 Z* C5 X; s* Q7 P! T; T
.DW $9003- @; t4 g! j5 W6 w% G8 h$ s" H3 Z- @
.DW $80035 b, J$ v+ o3 ?' X, ~
.DW $8003
& u& D, j' {! ^: M' n! [+ ^
.DW $8003
! k/ h# l+ O4 v2 S) q
.DW $80039 t( g6 Y+ P, j! N/ f+ ^% i* k9 i
.DW $8003
9 A5 Z4 m9 N% y8 S+ `. W7 e' c, R
7 {2 L2 c$ ] ^# J3 B4 J$ b
;==================================================0 K: C* T& ]8 O, }6 ] ?
Sound_Play_Port ;音乐播放入口地址$ B5 [9 t4 p6 D( i2 X# n
.DW $80007 h+ L6 X1 _4 B. C2 E; z- l
.DW $8001
. m0 e4 }. X T4 p8 O
.DW $A000; V' T% A) p! i9 m9 v& ^/ H7 L1 W
.DW $8003& I3 R' }' x. t! \0 h# B# j: Z; {
.DW $8000
; L6 a3 i( j5 r2 E5 U
.DW $80035 Z" _& ], o. Y5 r5 P
.DW $9000+ a/ X8 I3 l3 C+ B* ?1 m
.DW $8000
# x; l! S+ U; h$ O+ ~& `
.DW $80009 q$ `) k8 q% c9 y+ P4 q$ f
.DW $8000
# I! O; Z$ t# m& l- F1 u
.DW $80009 B2 V0 ] T7 a( T; r3 u3 \
.DW $8000- p3 W" y' I' l" m2 o
2 ~7 @+ l3 z2 b; C
;==================================================( B! x8 O7 C/ j7 l
Sound_Reset_Port ;音乐重置入口地址$ ^; j5 B7 { y4 K. _
.DW $0000' ]8 n6 p' n9 N- `3 {! X( t7 D
.DW $0000, |. W# M" B+ x; d
.DW $00009 z! ^# K8 R* }3 ]8 l3 q1 |
.DW $0000( p; t. p3 I- }( g% l
.DW $00009 @ N# U4 c+ u/ A/ F' K! \; j0 I
.DW $0000
& p5 k& r# \; {- z
.DW $0000
, I7 r* n8 k2 v! k6 ~
.DW $0000
4 M, \+ e+ C' ]; T( V
.DW $0000
/ k }+ A/ D0 e) z( ]
.DW $0000
0 q- V" c8 Z6 x
.DW $0000. \4 ]- j! c: T) q1 \8 B
.DW $0000
5 q) ~* a* t1 u: A1 ~ n" W9 a6 Q
/ s; d1 c# q( j: K
;==================================================
: e0 Y2 \ O5 ~4 J0 f" T# _: ]
Sound_Total_Port ;曲目总数1 m% F' j# y+ G' S/ |
.DB 38 }, j- _. ?6 B7 p* f
.DB 330 A$ i. [' s& n1 C5 m! o: }/ o) S
.DB 49$ Z5 n4 x# e& s: H5 a& }5 c. E. ~
.DB 41
. z( n1 Y5 j7 @9 ~! Z. `+ q& l
.DB 83 z3 y3 a, f% i: A) b; ^5 e
.DB 70
' y; p. k0 r7 h
.DB 50! f" H4 k) g& A2 Y
.DB 67
# L4 K& \% L8 M; Z# b4 u1 i7 {0 ~# \
.DB 57 N! J, Z2 G& [$ Q9 d
.DB 71/ t5 z3 S6 L9 h; X
.DB 76
- d/ p* ?! P$ e1 x8 T' \
.DB 102
* E5 R+ S, d' e8 s g6 w
) r0 o: l. L5 B) `- m, f
;==================================================
4 Y3 j3 O! _# b9 Y
Sound_Start_Port ;起始播放曲目
/ u1 E, ?- F( ?2 }/ b( T) x
.DB 00 D, J* M& K) T) a9 ?' p
.DB 00
" [( c. J! K) q) w$ F
.DB 00
2 c1 l" w& K" v! }0 E+ A
.DB 00: c: z) e, a) r- F+ K6 j
.DB 00
+ |3 r& B/ R" x& {
.DB 00' m/ p5 o% x# m2 W2 R
.DB 00
& i5 ]$ `& }* d; x; O$ X7 {( O
.DB 00
3 H3 |& u6 {1 ^9 p7 t$ ]1 X
.DB 00( ~8 q- z( @ p& H& ~
.DB 000 i$ G; L! j9 q0 ?, e8 \5 V
.DB 00( p# D9 d9 _: i) e1 v# p, N
.DB 00
$ B1 W. \; e# X5 Z
5 H( G: b, ~) f: v
;==================================================
- E5 }' u. [ e
Sound_Bank_8000 ;专辑bank_8000! T. J/ m$ c0 N# j: v0 v: C3 W3 ~
.DB $10
4 _ u u5 z* E N- L6 i! E
.DB $12$ }& O$ O% s. F3 [3 t
.DB $149 K% j( H( |0 m5 ?& {* r; m
.DB $163 S8 }; z4 a( x6 d8 l. J7 K. C
.DB $18' N5 l4 ~# W _2 Q
.DB $1A" e: J2 i) z$ r
8 V% E$ }( l3 k; k, H+ b
.DB $00
% t3 }& Y0 G- H2 u7 G- c
.DB $02
3 f) ^. k" D& c+ y( h/ i
.DB $0D3 q6 A% P" ]4 U5 `# R! j7 \
.DB $04, U7 p+ X' W$ l4 [& D d
.DB $07
' K# r) q0 M; H' n! h v. m+ m+ H
.DB $0A% h6 L( c! s4 R# d8 L* X
Z; q; f/ M' J! j: L) n3 M
- H5 c5 D0 z, _1 B' c$ X
;==================================================
6 Y" {* h( P8 H; U
Sound_Bank_A000 ;专辑bank_A000
" Q" F: K/ p# {; s+ O- w& a1 r
.DB $110 r" r- S! H2 X; G; r* V
.DB $13
7 L+ I7 w( Q& p
.DB $151 z# N& t* L! ]
.DB $17
& W5 l0 Q% t6 }/ N
.DB $194 t- M, R. v4 x1 x( G, S; C9 Z, V
.DB $1B1 D& V1 q+ B2 o$ ^" B! \6 k
9 V: Y# ^, s% \6 v! M
.DB $017 p5 { w8 s+ i( h
.DB $03
0 }0 i( V8 i8 E& q
.DB $0E
3 J5 X% m* v: v4 W4 n
.DB $052 B1 v' @8 C) F: k3 q2 C
.DB $089 b! B6 j) m" o9 ]# M
.DB $0B
- Y% F4 h# l1 x. q" s3 a N
4 b& L# @# c( b! u3 x0 ^: U
! R& g4 |* l3 p( N
;==================================================
$ D7 C! P1 E& w: i6 q& K
.BANK RESET_BANK & BANK_DATA_MASK" Q3 Z% |$ u6 F7 a/ `! c" \. p8 w) o
.ORG RESET_ADDR
, w- l9 P% i' \7 X4 c' {
! D- N# m* G: s
;==================================================' ~5 m# z3 d: H
Switch_Bank_8000;切换bank到8000-9FFF
/ V" S, s' ~" c0 c+ \
PHA/ m4 T0 Q2 Z1 z; M! I6 u% i
LDA #$06
( f/ e' ]/ B4 q1 i
STA MMC3_BANK_CTRL
& d Q" B" Z* k+ L! v1 U
PLA! ?; H+ `8 e8 z1 k2 c
STA MMC3_BANK_DATA
0 d; ]. [( }# k& k
RTS3 |% K+ b2 j: P7 g
0 n/ ~# q8 l' R9 B1 k: \
;==================================================
) K, A6 P# _6 v. m f( q( Y" r8 }
Switch_Bank_A000;切换bank到A000-BFFF! K% g9 s1 N$ b" t* _; _- q
PHA
* i2 ]" C& R) f. L; s& k; V# f8 C
LDA #$07: g: J4 x/ m% @0 _
STA MMC3_BANK_CTRL5 f8 ]+ Q3 z, p' d+ Q6 V0 z
PLA
! k7 ]$ l* B5 v; Z
STA MMC3_BANK_DATA
1 c U C1 W# j; {
RTS
$ X% w. Y C( [: }1 h
) i5 Z/ \% X" \2 X
;==================================================
. H3 s% ?) q) A9 B* }# p. Q
Switch_Main_Bank;切到主程序bank
$ {6 g8 @8 h0 m0 e
LDA #PROGRAM_BANK & BANK_DATA_MASK
# u' Q Q# ^* ^! `; @
JSR Switch_Bank_8000 ;设置$8000地址bank4 k+ n. m/ v% P0 h" l
RTS5 L9 z; i9 e- A
- O# C( ?4 \0 U6 K/ c! [
;==================================================+ ]5 a/ Q6 \& n5 i8 W; n8 @' x& f
Sound_Reset;音乐重设(如果有的话)4 b* V1 ]" G3 t$ I( R1 A
JSR Switch_Music_Bank ;切换到音乐bank4 [* h/ P$ W! S
JSR JSR_Addr_Op ;执行音乐重置
0 M, d+ c& u7 N- X
JSR Switch_Main_Bank ;切回主程序' G4 k/ z( k; T# |
RTS
" x" |. B P1 l% @6 a/ W2 F" F" V
; O7 t3 x" d2 Z
;==================================================
0 W- d8 p M0 X& s. ~# @
Switch_Music_Bank;切换音乐bank
% d# V" _5 s. o9 E" }: f
JSR Init_Sound_Bank ;拿到音乐bank号. d j# o4 @1 q: f( r ]9 N* G
LDA <Music_Bank_80007 [7 _5 q& t1 W# ?( s8 k
JSR Switch_Bank_8000 ;设置$8000地址bank" l S! V6 \8 H* B
LDA <Music_Bank_A0006 z7 E' x) X% q0 A# p) L
JSR Switch_Bank_A000 ;设置$A000地址bank) ^- |$ Y1 Y. v2 D( M
RTS# q, V7 K$ |2 D
! J$ T0 P/ I6 V# m
;==================================================
0 z0 k# n- h7 k$ Y7 ~6 M/ {2 S
Sound_Init;音乐初始化
& E; V, `9 y( r7 m5 S( O
PHA
; d, G& t" a2 b! m/ M# J
JSR Switch_Music_Bank ;切换到音乐bank
" L% m" e& v0 p
PLA6 a. ?0 ?/ G& O, P. H
JSR JSR_Addr_Op ;执行音乐初始化
! I1 W+ M3 \/ h9 ?" S; u! P
JSR Switch_Main_Bank ;切回主程序
" v* a. Y9 S( p' a& v( E5 ]
RTS' r1 F) N2 C. I8 S9 j* g0 \
3 D7 C9 t% i5 z* `9 x2 C/ \! {
;==================================================* m" W& g- k' W# n) W2 n
Sound_Play;音乐播放
0 M- O& ?$ U' ^5 u4 S4 y0 k+ ]& k0 i
JSR Switch_Music_Bank ;切换到音乐bank
7 h! f5 \8 v; O# N
JSR JSR_Addr_Op ;执行音乐播放6 E. y) e4 E/ U, ]) S# q
JSR Switch_Main_Bank ;切回主程序
! F8 J$ _8 K2 @
RTS
8 L/ O+ y: Q$ S) t
, A: q0 ^: h/ M
;==================================================
! z+ y9 o1 j9 q5 q. A! g) a7 w5 v' M
MainLoop;死循环
9 M. _8 O1 [3 C, B& z
JMP MainLoop
/ k2 N, t9 e! D+ f
9 v8 m. ~! @; s _. i
IRQ_SUBPROCESS_JMP = 0+ z4 `6 l+ r0 X6 Q
5 b/ i5 ?( c+ c. y# f
.IF IRQ_SUBPROCESS_JMP/ U* K# k" l6 O. z; q
;==================================================
L" {( Y4 h+ y# ^$ L% N
IRQ_Process_0;IRQ处理过程0# z4 o$ d$ W" B
1 w2 O, G3 S$ J% y
;15条扫描线后触发IRQ
/ B' ~. r" _0 ^' A4 m
LDA #15
" B$ N' u, X8 K( a0 M: w m$ \# w
STA MMC3_IRQ_LATCH' B+ f- K0 ^ W! A& p
: `9 f; R5 v! K: `$ N. M
;设置屏幕滚动
# K8 k; n. S z' K& Z3 Y& c
LDA <Scroll_H
1 B0 q' c( k {+ d
STA PPU_SCROLL
3 |( H0 |) }1 k3 t
STA PPU_SCROLL
8 k: x% o6 v6 r
$ d8 l% [+ V. z. _
IRQ_Process_0_End1 @- _* j% D* \- p, b2 J
INC <IRQ_Process_Index: I9 b% @: X, a4 \
JMP IrqProgramEnd
: u2 T; _+ m5 h0 c7 l/ G& r" l# f
]1 g! I" n' y
;==================================================; V' s# ?3 O+ J% O& u9 E
IRQ_Process_1;IRQ处理过程1
- t$ ^+ b( m, n3 G8 E. l I
6 V e6 O$ b) V! M/ s
LDA #553 J7 L* }+ }, B
STA MMC3_IRQ_LATCH+ F) u- D/ {) D# [
# `7 h" S0 v7 K- f3 g" W4 o5 [7 r% ?
;设置屏幕滚动) `- \: h# _. Q
LDA #$00( @3 l5 R5 ^0 F4 R9 @8 S( T
STA PPU_SCROLL
8 P# y# ^+ b, G1 `1 s; o
STA PPU_SCROLL
* u( t8 b- y; N/ V% \/ O
' q* P+ Q: W2 @5 J% w+ N
INC <IRQ_Process_Index
S [) e# g5 G
JMP IrqProgramEnd
$ ^, }* [2 O/ Z k1 N9 C
5 o/ Q7 \4 Y8 `2 {# A$ W
;==================================================. v5 Y& x& v/ S: s' J1 o! K7 \
IRQ_Process_2;IRQ处理过程2" U% y/ T6 B, h5 |2 i7 O8 b
8 Q2 K/ ~! q# t
LDA #15" X- ^6 M* r8 Z5 L' n
STA MMC3_IRQ_LATCH/ a9 s( y: Q; q& J$ V2 c" Z( J
- G. M% Z) }( f2 O
;设置屏幕滚动/ N$ e; q# h g+ }1 i: o
LDA #$00
9 L) |, ~0 F. E' ?1 [9 b6 t
SEC
I2 ?# i7 ^# j
SBC <Scroll_H% `' H$ U+ [) j8 m# R
STA PPU_SCROLL
% u7 ^: D r4 b& U
STA PPU_SCROLL) D6 c' V6 f1 R# o0 O. o
* I' G G4 I3 V
INC <IRQ_Process_Index
/ E4 l6 P: f8 E; O: M
JMP IrqProgramEnd
' e, D; K& _+ Y9 B6 Z0 i
) F; s, l4 o r; Q4 s- O' g" Q
;==================================================
3 |( ?5 V- W& x
IRQ_Process_3;IRQ处理过程3
8 ?1 O( t) d! y, H" T
6 M" L& x- V/ Q6 a
;设置屏幕滚动
; S& O L2 f( C
LDA <Scroll_H
0 H1 M! E4 q: F
STA PPU_SCROLL2 H$ r( ?6 o4 m* |
STA PPU_SCROLL
: ]3 h6 N' K( G2 u2 v
0 G! O5 V( x, s& U6 H1 y
;禁用IRQ
, k/ w6 I; m" X z5 O& T3 n
STA MMC3_IRQ_DISABLE
9 y9 n* x1 q# \
JMP IrqProgramEnd4 c8 Z( r% `( I- u
, e4 k, v% M, x; z
IrqProcessAddr
6 r3 d# D2 A0 D7 J2 f3 {
.DW IRQ_Process_0,IRQ_Process_1,IRQ_Process_2,IRQ_Process_3$ v4 _$ a+ s6 w W* V U
7 w! r% L8 Q$ c/ { X7 r
.ENDIF6 h! n+ ]& Y( Z6 Q
* P: S7 m0 X+ N
;==================================================
$ L; _5 e# E6 e7 M7 I+ M
;IRQ滚动模式常量) Y9 {' V: }6 K- j( l' j, |. F7 m
IRQ_SCROLL_MODE_ZERO = 0 ;不滚动7 |) P8 R m9 h
IRQ_SCROLL_MODE_LEFT = 1 ;向左滚动
* r, G# Q# g. q2 P$ o0 B
IRQ_SCROLL_MODE_RIGHT = 2 ;向右滚动
( p V& A$ ~# a' H6 h. f
8 @) f0 k( f3 D7 w' B3 S1 C
;IRQ扫描线数据' ]# \4 w* V- h3 u1 {/ Z/ B
IRQ_Scanline_Data
+ a- d) I9 [. Y( G+ p. t
.DB 8, c- x- h- J8 w8 E1 C: p
.DB 546 J/ W1 A9 y- q: T2 j- z
.DB 8
: `2 C# m3 M) H4 E) T# B5 t
.DB 00 ;关闭IRQ
- r0 V9 @- \. X7 }) n
3 ?8 r" I: p' X* }
;IRQ滚动控制模式
* W. ?8 ?& r8 E
IRQ_Scanline_Mode& ?- n/ O! r p$ L; N
.DB IRQ_SCROLL_MODE_ZERO; b9 H# X# { V# P d5 o- h, H
.DB IRQ_SCROLL_MODE_ZERO
" e6 @2 m. x$ g/ E( E- o" |- Z
.DB IRQ_SCROLL_MODE_RIGHT1 |5 R: p9 I# P6 o, w$ `
.DB IRQ_SCROLL_MODE_LEFT% B) j% w6 y. [# i% x: F
" s! y, J7 y+ _; M' e P$ z* t
;==================================================/ L/ w7 J, x( a% k/ t" { V1 C
;IRQ处理
2 I6 ]1 L1 |$ b1 q0 D
IRQ_Process
n2 H/ Y9 N2 k: F& b, q; _
LDX <IRQ_Process_Index
5 c. C% ~' j) N+ g: ]
LDA IRQ_Scanline_Data,X
/ J( I4 T6 Y I8 L
BNE IRQ_Process_Latch
1 p0 p- R$ }" k% [" D% B6 i" `% x
IRQ_Process_Disable;禁用IRQ8 ]: X; m" T# W& y
STA MMC3_IRQ_DISABLE
' t/ \) `4 j+ `. N
STA IRQ_Process_Index8 c& g6 B$ r% V% u; M3 \
BEQ IRQ_Process_Scroll
# u/ ?& |; k. o% a
IRQ_Process_Latch;设置下次 IRQ 触发扫描线
# k: X( U+ T5 O. `6 [6 T
STA MMC3_IRQ_LATCH( t* o" l9 u* q3 D8 u
INC <IRQ_Process_Index9 B3 Z+ G, M5 m# s& w: S& t
IRQ_Process_Scroll;IRQ滚动控制% K t2 s# G4 r0 x2 ~& G! `
LDA IRQ_Scanline_Mode,X6 h2 U' f8 ~, A$ \4 C
CMP #IRQ_SCROLL_MODE_LEFT! B6 G% I# L/ z+ t) f* r$ v% I
BEQ IRQ_Process_Scroll_Left
I$ F% ^3 E; v7 w: P
CMP #IRQ_SCROLL_MODE_RIGHT6 T9 i, n5 x$ H4 r/ y2 C
BEQ IRQ_Process_Scroll_Right( b2 y/ R8 H3 s* ^7 z6 I4 d. G
IRQ_Process_Scroll_Zero;不滚动
. U; ^7 d3 W) b5 `* X
LDA #$00# d# n" \/ F& C/ o
STA PPU_SCROLL4 ?: F7 X q; [! u" X) d4 p& s2 T
STA PPU_SCROLL5 K! P; o0 L' F
RTS+ k; [: d, o% o1 M, S' d
IRQ_Process_Scroll_Left;向左滚动
1 |' H* {1 r+ k3 f" m& _
LDA <Scroll_H( d' b, g9 {: l* M( x0 O
STA PPU_SCROLL
) {" T' U$ |1 U O! H1 d! m
STA PPU_SCROLL0 S9 b# }% L$ e+ p9 l' j
RTS
2 F T( n9 M% S2 {$ D/ l
IRQ_Process_Scroll_Right;向右滚动
7 K D* B4 I) w, k
LDA #$00
: B0 l# J! T8 N# ]) O. m
SEC
* _( Y {# G& H
SBC <Scroll_H
+ g# F# u, m# a
STA PPU_SCROLL
, z: W- K: {! k
STA PPU_SCROLL
4 u; @. g7 v: I2 s/ B. N( I6 A
RTS
: T6 I; y' F4 [2 n+ [3 l
) A( b/ H! k7 k) a
;==================================================
* E) ^9 v8 b3 Q. a3 ~
NmiProgram;Nmi中断处理
7 J2 ?' O: c: y& ?
PHA# H9 s+ J* H4 w. `
TXA# `! S m& g/ P1 W3 v$ X3 X( R
PHA7 D8 Y; M" ?$ e2 |
TYA
4 N( S$ w3 i; |0 E: p
PHA- H' s& u' x! A3 l% q& E1 [' F2 f: A
, [/ h$ C# L" k/ r
;读取清除Vblank标志, 防止重复进入" N- S* g- j8 [7 p- G1 J! D
BIT PPU_STATUS" x5 `% }. p( F' w* z
, z0 @2 t) _. O% m% ^. q. w! q9 ^
;切换主程序bank
8 ?1 G* B3 u( u9 u" r
JSR Switch_Main_Bank. t- k& V9 Y8 y; ~! Q
( K, R. X' b! J' @; T" v3 v5 b
;Nmi处理
% ` d$ z. R( t% c- V
JSR NmiProcess. _& N _( q; y% V6 o! N1 c1 D' J h
5 G% q9 H; J Q% a( C# E7 X- _
Nmi_Proc_End# x. y. Y( u8 d' s7 T& Q
PLA
8 _$ C! q/ W% d
TAY7 Q; ]6 I- Q0 V- f4 N' Q ]
PLA
0 r& G" r; @, R Z4 S3 V. h
TAX
0 q6 V# O& ]1 c: L7 v9 p
PLA) Q2 r. u& {. w+ s
RTI- b; E, K) X4 b. F) q8 n( b" h
- N( k7 n C" ]' \# m" r9 H& w( \' P
;==================================================" D/ N& A/ d8 ^. w: R- F$ d
ResetProgram;重置中断处理# c/ h3 _ {; @: d
SEI
) E$ M- Y h' X' `
CLD9 ?% _( \; s$ w. D: l& H
LDA #$00
, V; F9 v) ]7 p- x; ?. A8 x9 o
STA PPU_CTRL
3 b5 G9 a5 T0 P6 a
STA PPU_MASK/ C- o! g% ~+ P" {( {" M
. _4 z# u- [0 y( _5 a
;切换主程序bank5 A5 G* H" ]' W) d/ z
JSR Switch_Main_Bank2 a4 f' I8 ]3 ]; p
& P ^3 a/ ^, H7 }
;程序处理开始
) G6 n9 A- \% s( ]+ K: E
JMP ProgramBegin+ A) s3 _% [9 z& ]8 l
) B! j3 r2 C5 c2 A1 t. x
;==================================================
$ I+ |3 x) t* w, {' a1 k! c
IrqProgram;Irq中断处理
2 L+ {5 v/ c: t
PHA
& @+ @# r, l: H
TXA
# ~4 j$ [6 H, P5 ]8 D
PHA3 t7 o6 Q M/ c0 ]* o: x
TYA
7 u8 J$ `( \' v+ A
PHA( L; N. _+ k/ X r$ i; D/ N
8 {' ^4 t% D. _3 |5 t5 X+ k; d
;关闭IRQ7 Q( M1 N$ X& P d# Y! M
STA MMC3_IRQ_DISABLE$ v& r6 L4 G$ c( o3 H+ v3 \% \
% j2 q, K3 f S: |
;允许下个IRQ触发
# X! v7 U- k; V+ M
STA MMC3_IRQ_ENABLE, C5 A" R8 z1 i) W
" Q/ T ~1 g1 l4 b
.IF IRQ_SUBPROCESS_JMP( N( G/ W% I; D
+ M; T" m7 H9 v+ w' G
;执行IRQ过程2 P6 v% C' e3 f1 i7 h4 v8 `. Q
LDA <Data_L
- \4 H; S$ \- b4 c
PHA
% F* ~2 Y/ B7 N% h- {* E: I
LDA <Data_H
, z+ D, B% e" v# A
PHA4 Z+ c* |8 K9 { Y9 v9 E
LDA <IRQ_Process_Index5 S _$ C3 x2 E0 J" L/ _1 H
ASL A
) }% s+ j7 n, S" b6 |3 N4 u" O4 Q' Q5 k
TAY, ^" z* G H# l- @
LDA IrqProcessAddr,Y
/ `! \3 c2 v. {4 z7 C
STA <Data_L
* R. b& k. {. Q1 h
INY. l9 H$ h5 L/ k. V( L
LDA IrqProcessAddr,Y
5 o& l. o( T# F8 {' Z2 {9 @
STA <Data_H
+ e3 J9 t- O+ Q0 ~) j2 [' c
JMP [Data_L]
+ d2 @+ e% m: O* T& m0 r
) t5 \5 F5 h, g4 Z7 ~2 ^
.ELSE5 r/ s3 b) H7 c$ @
7 O. h+ x4 \- s1 o1 l7 ?; B
JSR IRQ_Process% C8 A: C5 c+ K% N
5 ?7 Y/ }! C* t2 y* C& q! f
.ENDIF$ q' @+ c3 f! G
2 J7 Z0 v# S5 P- r- v: y
IrqProgramEnd
0 B. ^$ E0 I" ~9 }8 k
.IF IRQ_SUBPROCESS_JMP
1 u/ A# z7 }+ p* h3 T
PLA' a5 \4 u0 ~9 g& ~6 n2 n# {" m
STA <Data_H
; O3 I" V/ W4 `) ?2 ~5 g& P* W
PLA
! r5 w [: m p: O% `# V/ B
STA <Data_L% O* k- g2 h3 ]6 u! {/ s
.ENDIF
% E) o+ K" N+ R& \% U
PLA8 P4 B1 S' F/ w
TAY
7 \2 Y7 f) P/ W
PLA1 y3 R. u% { l* Z3 R0 n; J2 W
TAX
* T* M! K+ G, s0 m1 X3 ^
PLA
+ @% H. M4 n! |6 r. m* I
RTI7 |2 m: f$ q1 I4 \7 _) @9 b
9 W% N. M4 e' m P; ^7 x) C, j
.ORG $FFFA
, w- B% b# h- W1 O7 Y3 O4 G5 J' s/ a
.WORD NmiProgram
0 r/ y9 C# d2 y. E/ }
.WORD ResetProgram6 y1 M& y! E! T1 [2 q
.WORD IrqProgram
1 u# B b- P/ p2 U+ R) Z: A
' a1 e1 f( Z ?5 I( j
.BANK RESET_BANK & BANK_DATA_MASK
p7 h3 l2 h4 s% C/ P1 ?! B
.IF SOUND_BAR_SHOW_ENABLE* f- A$ ]! ~, }, _
+ b" w: p; ]; U! G: l$ b& \
.ORG $FE00
$ P4 K! I) w2 P% s: A4 I; ?4 q+ s" p
PHA
" u% H) L7 @! r! p0 _
STY $07BA
" C! Q% {% c% ?3 e# k8 d
LDA #$8D' U2 s' S5 O) q
STA $07BC; |* k1 D( M" e8 |( @
TYA
# o, ?+ A* N. Q; O& ~6 j
CLC
' u# d7 q' F7 o3 W
ADC #LOW(Sound_Bar)
4 n* b0 f6 H4 {" V% H
STA $07BD
/ `/ B. j0 C P2 `* @1 e
LDA #HIGH(Sound_Bar)
- Z7 Y2 i0 ]) v5 M- v0 B7 a
STA $07BE2 S# i+ k5 r4 q* }/ o& T3 K
LDA #$60" O' ]: i4 H! z5 N& r+ e4 N3 A
STA $07BF4 g" A5 f+ K3 d* ^' P0 k
PLA# [4 `: z; H; y/ J
RTS! }3 j Q2 a2 M! H: l7 @9 ~0 d
6 B; G& C# y3 \/ c/ M
.ORG $FE20: b, x2 C* e2 J; R; S& C
STA $07BA9 O0 q" a8 _; F a, l
CLC/ ]6 J! m) l1 K1 F6 d7 S/ f1 x
ADC #LOW(Sound_Bar)
) n, Y# L5 [% g
STA $07BD: z2 B( K G7 F7 I. Q+ u8 Z
LDA #$8D
4 R- @: U. {3 B1 b( \; }
STA $07BC
# M N R6 r8 Q. x% D6 J: S
LDA #HIGH(Sound_Bar)8 n1 r* ^% n) X" q
STA $07BE
4 O4 u$ h. t s+ l+ o
LDA #$60/ n2 s* X2 }) R5 _/ |
STA $07BF
' W G2 Z6 z1 A
RTS* y; Y; [! E5 Z
; t7 F: c2 P( @ u$ t
.ORG $FE40
9 x- p }, E4 V2 L2 t1 j a% Z% S
PHA3 N1 m$ H& V# A* |
STY $07F1$ w; k3 d* e" c
LDA #$8D
, x+ K! _) z3 Q5 g. |3 M
STA $07F3
. Q5 B; w6 ~) t$ ?
TYA& g, G& |7 D& Q6 W( P
CLC
9 s f5 Z+ w: Y5 z) z$ Y- }
ADC #LOW(Sound_Bar)+ ~9 e/ i' }, B
STA $07F4/ R5 ]+ ?$ [( m/ v8 Z
LDA #HIGH(Sound_Bar)* e+ E/ f0 w! ]2 |
STA $07F5
( Z; B3 d. J) D0 U$ U! M2 w- }" {
LDA #$609 Z* N3 B; O2 [4 Q7 T$ A) C, G5 U
STA $07F68 [ o, _: N. x& {
PLA8 B5 P" _" M" P! A
RTS* o+ L' h- J3 W o8 U
: M: [2 q. q* y4 `5 V2 W+ h
.ORG $FE60& N/ Y7 I+ C' l
STA $07F1$ T2 c( l! M4 L b
CLC; \- T; |7 @' ^7 n. p& ?
ADC #LOW(Sound_Bar) `, K) ^% v- F% `7 m/ F- o$ L
STA $07F4# U0 v+ ?, E, Q0 v: {2 q* P+ W% m
LDA #$8D4 v0 z9 w' y" S+ C. e5 [- B
STA $07F3/ Y: d6 T4 }. x$ W' J* t* s6 n1 ?( h
LDA #HIGH(Sound_Bar)! m8 ~0 X7 j1 w4 A
STA $07F54 ]( `& l& W1 s8 J$ r4 L$ [! X6 g
LDA #$606 A$ P: W2 C6 [) `5 m% ]8 s
STA $07F6
) o4 r2 l& F# K
RTS% m4 K( b& v1 [
9 F3 [9 f; V) h' ]' b* S
.ORG $FF40. Z$ S! v4 V, z: X" ^1 G' \
STA $4000& r6 i7 X" S7 ]# U5 V: j
STA Sound_Bar + $00
- {$ X* `* S. M# ~# {) e' P' g
RTS
8 ^* X) H5 M$ r8 J* C* @
( E1 N5 _! A/ F, S) x
.ORG $FF48
, N9 g3 H5 }- B& c: `
STA $4004( R" h/ U4 w& B/ I
STA Sound_Bar + $04
$ G }( ~! h" R5 J T& Q& ~
RTS6 v+ _7 p# k0 ]+ w* O2 j' O+ ~
9 h( P7 N2 b5 b
.ORG $FF50
' ^) h U* B/ W% J4 {* j9 z
STA $4008
) H1 C& a* c' L
STA Sound_Bar + $084 D5 R! ^/ r( Q, W1 S" U0 E
RTS9 _8 r/ z7 |$ }6 b9 g7 m; l
% `) \9 v3 r* M4 F* [/ [
.ORG $FF589 d3 C2 s& [* C
STA $400C
5 |# W/ V) T% ~! W" x6 M$ k& V i
STA Sound_Bar + $0C
4 ^) p9 B; p/ I* e
RTS
' s" r2 P" l) @3 n5 D
' G& ]6 W2 t# ~) j! ~$ h) d) P7 v
.ORG $FF60' {+ v5 d2 `2 J6 o
STX $4000
: G' Q4 l, ^7 {7 v
STX Sound_Bar + $00
4 J2 T2 r6 x1 y) H' z
RTS
3 L3 ?/ g4 z0 j" n
+ N- T2 i) T0 M' F4 C" ~
.ORG $FF68
+ D' I9 [; |! D& |' `5 _ B
STX $4004/ }- D3 l4 o; _
STX Sound_Bar + $04
& Z, ^" G- p* [5 f: [& {5 c% R
RTS
o0 r- e9 ?/ s ?( D V
! w& b4 y' |8 s' [/ d- x' }& [8 \# Q
.ORG $FF703 s* f7 K1 u- J; }. `" v
STX $4008
( {) K) [% T$ x$ c3 X
STX Sound_Bar + $08- r# ~7 _& e( P0 d) r% u z& b
RTS/ U1 V! V8 b) Z: {) Y1 f8 o8 D
C8 s& {5 v) _$ b' }/ y
.ORG $FF78
STX $400C$ G* _6 {" |) x/ p9 S2 v5 J
STX Sound_Bar + $0C% r+ N" h: t2 s9 K
RTS/ E+ s& q4 ~& ?
- ?& k; X8 E6 V. |' D. b
.ORG $FF80
% t; G j' g8 o
STY $4000# ?- T* V3 `* ~( @3 U( E. h
STY Sound_Bar + $00
9 L+ [% ~/ o$ O
RTS" K7 j' g1 w2 E: `9 g% u: E
$ A2 d4 n. Z$ g) @5 M
.ORG $FF88
5 ^7 a! x( {# r% A* C ]' Q
STY $4004; [* D$ H0 [0 { g4 e
STY Sound_Bar + $04
! O' x6 C1 ?6 R2 {2 D6 d
RTS
$ p1 D1 {3 l& R6 {* o# n
; _. p- f: g% u) B* P3 Z
.ORG $FF90 u! u0 q& E5 d
STY $40082 i; a' W. }) u2 C3 D& |
STY Sound_Bar + $08
- x0 ]/ B) o& G* _4 U h
RTS
6 z2 t; Y7 i$ g3 U8 p( f: C* J# ^
7 I: W! j, u$ Z8 x
.ORG $FF98# T+ x/ f. ]; }
STY $400C" R- U5 l# [' v1 i9 X$ |
STY Sound_Bar + $0C
+ k B! t3 D2 k) h! o9 f
RTS, Q6 m$ B* s5 w
* H% \) C" t$ o2 G- b
.ORG $FFA0
0 y. p! e R) T8 E4 H$ A; d* N
STA $4000,X/ _% X; Z/ ?, m, `, d- [- C9 I* ~7 k* ~
STA Sound_Bar + $00,X9 v( C9 F& R. R+ `) P
RTS8 _ c7 O& s- ]
! v' y q+ Z0 `
.ORG $FFA8
- p3 b$ K! E5 v2 @* h8 P D
STA $4000,Y
5 H% p, n% }0 C
STA Sound_Bar + $00,Y
7 I/ B1 y; X2 @4 p. H
RTS
2 Z. H0 c4 G$ y8 d, E
4 ^2 o" ^2 Q4 U( J f' p
.ORG $FFB0) m$ f- {( w# T. ?, J2 h
STA $4004,X
N1 ]! j- ~& T0 g O8 A& D
STA Sound_Bar + $04,X
( y8 }/ E) q `5 y# ^* ]5 Z$ ~
RTS
2 N+ S) L D& A- i1 g0 e
- |: P) h9 s) j
.ORG $FFB8
$ a7 @9 z* R5 o$ j+ F5 z I2 ]8 c
STA $4004,Y
c( N! Q- A+ `. g
STA Sound_Bar + $04,Y
: B4 M4 G7 \! Y& W
RTS
, T2 M. Z5 w/ p( s( G
+ r1 f6 M( S$ o6 U
.ORG $FFC0
3 [* L9 z0 k* U6 [0 D" L
STA $4008,X6 P3 h2 K' Z; x& H; F( C6 B" ?
STA Sound_Bar + $08,X
5 o' I" C- i8 Z) {0 U5 M
RTS
' v. M! M0 M' n5 V A
% m4 P0 H5 O, O* E" Y* x, E
.ORG $FFC8
$ v u' c; C3 r; Z: k5 B
STA $4008,Y6 N9 ~! U1 K) E
STA Sound_Bar + $08,Y
2 v n: e; e0 m
RTS
1 C3 X, }$ Y# n, D! u7 j
3 J O- A3 v- p" d5 Z4 \
.ORG $FFD0, O- U/ V1 _, f. V4 m# j
STA $400C,X
j. o" N& }' k
STA Sound_Bar + $0C,X8 V! G5 f* l; t8 p2 m7 m
RTS
) l' C1 S" {/ U( i# T" h' }
& \6 y! Q4 ]! l' m2 o
.ORG $FFD8$ H0 D! B/ U3 _
STA $400C,Y
5 o [" \2 y+ b+ f: l3 d0 F: x8 ~
STA Sound_Bar + $0C,Y
: v# M1 Z) C* e( o3 R! Y. X+ K
RTS
8 v' n0 g$ u" n9 c w
1 X9 @- q$ G& Q7 q
.ENDIF* z2 R' ?4 q, Y1 _% F8 Z

复制代码

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

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

非常支持您

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

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

本帖子中包含更多资源