|
|
;[FC][最终任务mapper1切页程序]
# n b1 Q" i3 u0 k9 H! B5 Z .ORG $CD9B- \$ _$ \& C8 r$ e6 F6 p' g- {* w1 k: u
BANK_START:
* w/ D- k- w9 G9 e8 A7 y% } STA $70
: E7 X: c) T. \3 d' K+ w6 E9 B TXA5 l* k0 O0 J# M1 q# y
ASL
% `# k6 N! K0 z; U) x) s TAX0 d8 \2 Z" p0 z. h
PORT_SET:% J. O9 l3 k4 } f O0 \/ Q
LDA BANK_DATA,X0 C2 ~. E3 u3 h
STA $6E, s- u' x l7 d# P
LDA $CDB8,X1 K- T u% A$ p+ e2 M+ r; Q
STA $6F
1 K7 D# `" ?5 j, @$ m LDY #$00
+ y% I. Z' `/ g5 E0 Q/ w LDX #$05
8 c9 A" p, ^8 b: Z/ X LDA $70
7 Y8 q# \! d: Y$ E, x7 hPORT_WRITE:
0 C8 }' X" j+ J$ m# w, M2 i STA ($6E),Y
. t* r) _3 `6 { LSR8 `( N8 w8 B# D% I& c% a, P
DEX5 [! g3 x' i& ~8 g1 |4 U" s# u
BNE PORT_WRITE
; b6 w. h0 S1 v% Z w. q. u RTS. y0 }5 G* Y/ M
" I/ N5 W. I+ f
2 m' {% P% T D% U
BANK_DATA:
& \/ h2 A3 o( a* q5 [9 } .BYTE $00,$80,$FF,$BF,$00,$C0,$FF,$FF
! Z B. r$ O4 E- d# o& @
8 ?& C/ }* N# o: s- r' J- f 6 Z# u5 i! o/ i" J! _" V# v
;[FC][最终任务mapper1转mapper4切页程序]
) \9 t4 k" [0 ]7 ?% a .ORG $BFD2 ;初始化跳转
" ^% B6 _4 F( x) Q4 Q JSR $FFC0# Z3 _/ o; ~+ w J" e- y2 l1 z# ?
6 X+ A- v1 ?- D. r) [, a8 A/ X) t7 P8 f* j$ o
.ORG $FFC0 ;切页; i* N+ ~& \! ^2 y! l
LDA #$06
0 C J7 y n5 Q4 \+ V. O' k STA $8000
% d$ b6 Y6 B% I( d5 K LDA #$0E9 x" c I) r1 m) d8 R
STA $8001+ a) \7 R, k/ L
JSR $8000
6 o6 R/ C* H* I0 w RTS
* W; l* k8 e. d8 H1 e8 Z- Y0 P
# E& `( P* w" K% [ .ORG $8000 ;数据复制
) {- [2 C3 T. v0 J7 t LDA #$80
( n6 J5 G, E L STA $A001 ;启用SRAM5 R# o$ Z5 F- S9 v- T
PHA' z' W6 L) Y! n
TXA: H. a3 l; ?- A2 X: g- X+ y
PHA
$ U" {0 ?7 F) r3 J0 C; C LDX #$00 A7 ]' [1 p. C# I: r
DATACOPY: ;数据复制
5 s3 }: @- [/ z" z: \ LDA $8100,X* d% n% [9 M A1 C, S- K1 R
STA $7200,X
1 e0 O$ b3 i: o2 B6 f7 g INX
' R1 q" |" w8 S4 M; @0 ~4 b CPX #$00; G- {/ ]/ ~7 S
BNE DATACOPY1 d; S5 P7 w# o' Q. g( h% R
PLA6 c$ ], i9 z. a7 r
TAX
& d, X# G: `. ` PLA
9 \4 T6 E, G% D# t8 o8 @( r RTS* Z; ^% q, F, ]: z0 H; x: Q
# X6 W% T9 W! @: E6 W% n
.ORG $CD9B ;跳转到转换的切页程序& P. [/ H- J$ c& w& q# O4 o
STA $70
/ e2 ^( \5 G$ y' a0 ^9 f JSR $7200
' S. Z7 l+ d) q1 [ T0 S RTS' I4 i% S, `+ f# L0 A9 s g
& o, k$ X8 m. n .ORG $7300
- q8 G& [5 G0 t8 r5 N i; ~8 [M1_TO_M4: ;切页程序# B' o. d2 Q6 ? y) u
CPX #$00: K! K) n$ n% _! r5 b$ t
BEQ REG_SET
8 I$ X8 ?8 F7 _, P" r! R+ r CPX #$01
, F' {1 M# X8 j& E) D BEQ PPU_BANK_0000
# y. r2 T& j# O8 [ CPX #$02
9 p7 _# |/ i6 R: S) m) o4 T BEQ PPU_BANK_1000; M) [' F- U L. I0 v
CPX #$03/ l0 U$ ~$ @7 [6 D
BEQ PRG_BANK
, v2 I# H- a/ `6 a" E: y9 c0 @REG_SET:" M. A* `. ~) _; k% J6 g5 b4 Y
STA $A000; d4 Y2 [. R S5 i' c, n) r. _3 g
RTS
6 N2 k. y0 s4 ^; ]' i z6 t( [ .ORG $7320
6 h6 e6 e$ X }% Y: e$ aPRG_BANK: ;PRG切页
+ {0 P) `9 X: }) [- u. `( M8 U PHA; |/ o. K" d) s, [* D3 C. q- s
LDA #$06
" L) d i! l$ W STA $8000% J6 k, o! b V/ N3 |1 [" f3 @
PLA0 W3 t6 {( O) u# b
ASL
" _; B# ^; b, K& f, D STA $8001
- T" K3 i6 S6 P$ |. {3 s% w' o ORA #$017 l, x* a" @, X/ K* j
PHA
4 o, f7 K: v. B+ W3 J+ [ LDA #$07; @: }% c- s# M! _1 k% N
STA $80005 I& c+ J V5 V& K1 p2 K# i) F' S
PLA
3 ~$ N# q# y# y; N STA $8001
$ Q. ]8 N$ G6 r3 \1 x4 Q RTS
- f& @7 m1 F& b) A5 B0 ^- Q: X7 c .ORG $73403 }8 h) S; w: j# ~; {" K
PPU_BANK_0000: ;精灵切页
2 C3 i6 s; v$ W/ t9 Z PHA
& o$ |9 R" ?, c$ O6 u% p: `$ O ASL( H$ X$ a* }. z. [: | r0 k4 D
ASL! V7 `/ u; F" p
PHA
# {7 z$ f' H$ Q' t" M* b9 E8 {2 Y LDA #$00" Q) }0 F% G" r; y
STA $8000) y* _% q- P' _
PLA
% ?: z/ U2 m+ }# L; Q) _& q/ [ STA $8001! ?) T' E% }3 u& }$ w% M( u2 s, G
ADC #$020 Q% e) N) w/ D5 t7 Y
PHA8 K# P1 T3 b% q" X( z9 ?$ C. t1 x
LDA #$01& b8 F/ y2 Q$ g8 ~/ j9 L
STA $8000
9 {% u2 C3 i% x( Q" f4 l8 i PLA% H6 R& i& y% Q9 i( e/ a6 q
STA $8001
# D7 J/ A2 w% Z PLA) {/ U( {+ N. g- L
RTS# p5 e# e# \8 x* y1 A" f
+ w; T* x; q+ [7 G( X2 E) }& O- T .ORG $73600 g9 U: X$ |9 l. v' M
PPU_BANK_1000: ;背景切页
' G9 R' T$ Y( Q1 w. D PHA5 T, ?+ ? R5 q+ n8 U4 l' T
ASL
5 Y# e `5 N& w. J2 F N: c8 v5 u ASL
/ u9 i1 r* t4 K: D! s5 S( a PHA
/ Q, \% i: y4 l LDA #$02. U+ ?; c& V* c6 a9 U
STA $8000- P6 O7 ]! f& o! c& {
PLA4 Q6 I$ r. {& I. z
STA $8001
* X/ r( E$ g4 n# b ADC #$01# Y: z! p% f+ E, ^' ?1 S/ |
PHA1 G" M3 K3 {0 i, E" m1 u8 b$ f- q
LDA #$03% a& M: c( X& F7 K4 r
STA $8000
& l) {: S0 Q4 W3 ~( K# w+ X PLA4 I1 e' |% S, n; c! |7 q- l( E$ x
STA $80010 {7 v0 @9 [% S6 ?6 l7 T2 v; ]
ADC #$01/ ]! N+ r4 f5 J; j5 h" v
PHA+ m- g" l/ j6 J% u5 X
LDA #$04
. e# a" W5 b7 n, ], r6 z, f1 h STA $8000
1 ? V7 R; j# p, u3 j8 j$ E PLA7 }/ K% f# c3 k
STA $8001
$ b) y' k) f5 n1 n7 Q2 U2 T |: H9 | ADC #$01
# I3 _3 H0 @' s$ H PHA) R7 k9 f# y! ^8 J: F* h
LDA #$05
- A2 e9 h7 |* b, _) @& J2 f STA $8000. n* d; g$ | i8 r
PLA t# t( Y! |' |4 ^0 _
STA $8001# L4 x3 P, }! c5 p2 v
PLA( e) S& k" n( [- _1 A% V
RTS8 ~5 j$ K! t: l w& N4 ?
: c, Y7 I/ n' {6 Z: p
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？立即注册
×
|
IP卡
狗仔卡
发表于 2017-5-20 21:24:33
提升卡
置顶卡
变色卡
显身卡