|
|
;[FC][最终任务mapper1切页程序]
" Z0 b9 o2 Q% _, T5 T .ORG $CD9B
! t4 N1 r9 |5 I0 K) B, \BANK_START:
; m+ p7 ^) Q' k4 D STA $70' a& m1 D7 M0 y& A. {4 u
TXA
9 [3 v3 K" }1 c. v" ? ASL
! O) {1 ?- p3 k" Y- @2 A TAX
! V) s9 z1 {2 D1 C9 xPORT_SET:
# h! T; a& B- E Y2 I+ G LDA BANK_DATA,X& D( B: d6 x- n7 e+ g6 O- c2 @% T
STA $6E- z. R) }1 j, [" [" u
LDA $CDB8,X+ i* g; Z* ?% ]
STA $6F
* w- a) @5 o# H& h LDY #$00
9 t! V9 ^8 t; c j/ g LDX #$054 l' w' E$ L9 ~' M! U) f
LDA $708 l. d' U+ `/ u5 Y
PORT_WRITE:1 m! j. z+ x9 {; v T
STA ($6E),Y& q8 _, P" x: @; S2 J; P, A
LSR
6 }( K, H; N0 Z6 p DEX4 \' h: Q" t$ |
BNE PORT_WRITE1 g4 ?" G9 M) d, n( b, a
RTS( N) p& q/ C' O7 a% a, c
3 O: \( {, Y" H/ }: C# U8 G7 F
) V( t. L' q' C
BANK_DATA:
% w. q7 q; p7 x0 ^* \- K9 c2 G# F .BYTE $00,$80,$FF,$BF,$00,$C0,$FF,$FF
' y% N9 \. S( e2 F
: u2 D# [( @9 b+ A: p3 v 1 x8 d' X2 ^* W! C! n k" p
;[FC][最终任务mapper1转mapper4切页程序]% B$ b% X% A; r
.ORG $BFD2 ;初始化跳转$ i" Z8 U: D5 z
JSR $FFC0
4 Q2 }( U! j' j% r$ Y* S5 k3 F% F T9 n% n/ Z
4 q: @9 [6 }' V! b7 W .ORG $FFC0 ;切页
& Q5 t5 [% ^8 O: N, r LDA #$06
" X6 B# Q9 f+ E0 p+ g STA $8000+ M" T! M" U8 g; @: D1 G
LDA #$0E
2 n& f: }5 B8 H1 K j3 n5 c STA $80016 M; K, X- w5 X+ k2 E
JSR $80003 Q* r5 f2 N5 S( [: j1 L0 I
RTS 8 V: z" }$ d& w" a4 Y
7 D2 L, x7 _ e0 j2 o .ORG $8000 ;数据复制$ I6 O3 P& P8 d' g+ g) Q
LDA #$80
$ W& D7 w c$ M6 c8 b6 X& e8 Y! E+ e STA $A001 ;启用SRAM
9 ~- k* \8 }: u/ `0 b PHA% G5 Q# H1 i! c1 M5 I
TXA: P/ [& c3 g7 l! P3 g# f T K! o
PHA
6 Q8 L, O$ D" k( {& y LDX #$00
$ h$ l O3 z) w6 w" u; {DATACOPY: ;数据复制
' r. [& U4 M( U. m0 q* B LDA $8100,X) v# }. j5 u5 k& i4 T
STA $7200,X2 M; D8 o/ {' O. b/ _6 v
INX
5 L3 ]' Q. w2 i, M0 @ CPX #$00. r1 X' m8 q7 z
BNE DATACOPY, R- e' I$ \* ]( a' @; Y; I
PLA, I: W% v) f$ ~) Q8 C
TAX
- j+ }) T) e1 g( s5 W PLA
' f# j$ Q' Y1 `! ` RTS
8 _, u/ p1 N5 K+ \
6 p7 ?& R/ `; U' U .ORG $CD9B ;跳转到转换的切页程序
+ q* q( [3 f# n+ g% Z. Y: ` STA $70
* C' f4 U: K4 ? x JSR $7200
* i" v4 U& ]: j Z! E+ a4 v1 y RTS
. W& Q: ]8 D0 N( Y
7 J9 I |! B/ @ .ORG $7300
! V) L4 b0 u5 \8 |1 M3 ZM1_TO_M4: ;切页程序6 r" c8 {" ?; c" y
CPX #$009 A( \' e/ `) o+ W
BEQ REG_SET4 b% [" }9 a* [4 z
CPX #$01
# z* {9 N/ N j5 o7 c BEQ PPU_BANK_00002 B3 L8 S' B7 a( y! i
CPX #$02% k3 I5 U% N6 S# y
BEQ PPU_BANK_10004 m7 i$ F' r7 O/ f0 g" F0 N
CPX #$03* l; D4 i+ J3 } [# C
BEQ PRG_BANK- f' E2 `: D: v* r0 N
REG_SET:. c) h+ i, ~* Q: a
STA $A000
/ U; [! B1 a8 }( _( [' | RTS$ U6 [5 o5 N3 N3 {; I6 l
.ORG $7320! f8 q+ v8 h+ D# ]+ c% s R7 l
PRG_BANK: ;PRG切页" T: T2 N' \- Q& D9 K$ v* A
PHA
/ `7 a$ k! R7 `. m3 [* I M. |% q LDA #$06
( {, V1 P r" l STA $8000
# \' d& X1 R/ u5 O PLA5 r* G: H- m5 k. _
ASL- _" d ]2 _& b$ \- o O, J" a$ H
STA $8001
# v" y6 H; D3 f9 O: N/ ^0 D ORA #$01
9 K6 a% I7 R- z PHA
. t9 _# C+ W; \1 |$ S$ J LDA #$07
$ X9 u6 l/ i8 V2 o" z0 ~9 T2 | STA $8000# t4 c4 \- |( F& K1 c6 B
PLA0 x* ?1 \2 O0 I) N, K; }
STA $8001
! @/ g: m, i3 s$ A% S RTS2 E& z: l# y1 q ~2 B7 g! K4 ^( S X
.ORG $7340! G# R: C% {" R+ h
PPU_BANK_0000: ;精灵切页! a! g' r! r2 D! ^! h
PHA
A" `5 X/ ^& ~$ X ASL+ B0 [! ~- d* K& z5 a6 r4 \) c
ASL
t) w6 ^- I8 K- h# M' b; V; e PHA
1 i7 _6 k/ D. e+ g LDA #$00) w0 [+ ]6 i0 H$ K
STA $8000& p; B0 C1 M. s' ]' |
PLA( v5 i8 M' S9 P2 z% y4 A+ t
STA $8001
' ?/ T* `" Y% J) o0 p ADC #$02
& l) q6 H8 q: O- l, H1 R( z PHA4 S+ `6 D! `7 i- |7 A
LDA #$012 W5 Q G! Z6 C" p7 d7 o9 B: I
STA $8000
# Y$ ]0 V* i+ P8 o% s7 F0 s3 n% s PLA6 R5 H3 H9 r2 S6 J- g3 F% U0 R
STA $8001
6 x% {1 y- [' ] PLA7 y6 {( {; k$ z8 V# v
RTS# Y* Q+ I& o! ?4 P6 K9 H( {
* N+ E$ C- n$ ^ .ORG $7360$ f: _9 t. A# N
PPU_BANK_1000: ;背景切页
* n: G! \1 E0 F; U0 m/ _; @9 x* S5 U PHA4 U* ?7 e/ ^- H: ?3 [" G
ASL6 g# F' p$ ~2 F
ASL3 J$ `5 S0 ]9 N; t: F* _& u
PHA$ u" t# d7 m: U! |
LDA #$02
$ e% ?. B0 @+ q W STA $80006 |) j: Z3 t( y% N
PLA! b" ^$ |/ r# E! w
STA $8001% m& C( |& K @8 N2 U" c
ADC #$01- ~2 ?4 y% S O8 D* Z6 c
PHA
* I. R& A6 ^ Q. D7 f LDA #$03
+ L* H# C; n* f- j( Q- c STA $80001 W8 |3 I) f- m- L
PLA
! H& X0 P% B3 Z3 S- d* ?2 [' I STA $80015 `" X, y5 W8 Y$ N# f# l
ADC #$01! f/ O+ l* q* E4 |- {
PHA1 \1 T2 b) D( D. U- ^2 x
LDA #$04 N" q1 K# }" g& [$ z* [# Z- B
STA $8000
# |2 f$ l. E* ] PLA" ]$ r3 G4 ^2 }$ @
STA $8001
4 C2 [; n& T# `' y! { ADC #$01
' v0 F9 N# {% g( D PHA$ j* R* u0 [2 T4 X/ T
LDA #$05
. G2 H9 y+ P$ C: t5 _. h% P STA $8000- _. P9 s7 l/ t' M) X% V) z) A
PLA' v% ?* k: Q) {/ P
STA $80017 ~8 \# r( C; j
PLA7 {; X7 J$ j1 x( D% I
RTS; W+ u! l2 Y& r: O4 b
& Y2 U! J- S2 t% k1 i! _ |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？立即注册
×
|
IP卡
狗仔卡
发表于 2017-5-20 21:24:33
提升卡
置顶卡
变色卡
显身卡