|
|
;[FC][最终任务mapper1切页程序]
, X C3 E3 p; W5 f( G .ORG $CD9B0 N- J: f, R" |
BANK_START:) o& d" a% ~0 g- c* A+ Y5 R
STA $70
c) u1 r! V0 F9 ~: \ TXA
' U; X: R5 Y/ t/ M2 m( S ASL& s( E) w' N4 {- D- T; @+ ~
TAX3 m2 x; @- C6 s" r3 r
PORT_SET:: r' m& V2 z# Q7 L# w
LDA BANK_DATA,X0 j! G6 n- ~3 B$ L) c: j' c
STA $6E* M/ N$ A/ w; n: z: q
LDA $CDB8,X. a2 F/ B7 k- D" O( _; [; }$ S
STA $6F/ X7 S: O! `! p' A# H6 }
LDY #$00
2 v; Q* d! p8 x9 y LDX #$05
6 f. A! Q( c' [ LDA $70
6 o5 g Z1 [9 r" d( Y$ f% zPORT_WRITE:
! r/ r' l0 v5 R% p9 r( L STA ($6E),Y
- | U' K3 E3 G. X' L. e! p4 c LSR0 F# O6 o( h9 |: H% Z" E& Y: G
DEX& N D" e2 B' ~# t
BNE PORT_WRITE( F, {4 W) w7 ~
RTS
) ?. Q+ @4 i5 j 2 z1 T7 `; v; ?1 u8 Q: a
4 Y3 o2 x. ^, h/ P' {
BANK_DATA:' A) G# ]8 X/ h2 u
.BYTE $00,$80,$FF,$BF,$00,$C0,$FF,$FF
. K6 D$ P. [: k/ w# N* A5 A1 O- W: q
5 a* B ]5 Z8 h: F) x
5 p% A- w' u* [) F) \* e;[FC][最终任务mapper1转mapper4切页程序]. Z0 P, r- E9 W# o
.ORG $BFD2 ;初始化跳转0 D7 O% f5 t8 c- H9 M/ `- d
JSR $FFC0
* @0 v9 f' W0 c% I/ G/ k9 `, u' v0 Q; P8 m9 \& b. b3 ]6 U q
- ?1 Q1 @$ \9 U .ORG $FFC0 ;切页
, M/ S% k& f( s/ F' g" n LDA #$066 C5 S/ c$ L5 H7 B0 U* C+ S
STA $8000" p5 j" ~" K# D! `
LDA #$0E
" z+ _6 e: x2 } STA $8001
+ ?& C/ O9 {' c4 W1 }8 w! S" ? JSR $8000
; g# O# p- a8 }3 h2 H5 e. L# F& ^ RTS
+ `0 _1 a- V( X. d
S3 J- W. q5 l. u .ORG $8000 ;数据复制
2 ?- [' d( g; z) r; [+ o. d LDA #$80 b" [# V- y# g, M
STA $A001 ;启用SRAM
2 ?$ D3 I' D: C PHA3 O- |. X4 U8 ]5 ?0 V
TXA
7 {4 [* h, F1 x. g PHA% S0 e3 S/ P, J) }8 @% y
LDX #$00
8 S+ A+ f) p- y: o' F& N5 ^; @DATACOPY: ;数据复制
4 O* v/ d7 S5 X LDA $8100,X
+ z7 Z2 E. o. q6 G" L STA $7200,X' p+ Q* k- v! E
INX
3 X" Y/ }( f" ^ CPX #$00! R+ B) I e* f1 S7 F7 b
BNE DATACOPY6 o2 o& u* Q0 ]/ _
PLA
/ g$ X5 G' L+ z TAX
) w, E( D, m, B PLA, _( O% M2 _: H& m2 _+ ~/ j6 Y
RTS
& p ]2 \" }" [' k( n
3 x( A. J# ?: F, L- t; f .ORG $CD9B ;跳转到转换的切页程序: V/ ?# \* m% Q D! H* N
STA $70
) w z6 u/ G( Q) r$ l* N% Z JSR $7200
9 j# M: }) l2 @ RTS
! e3 l2 p s1 N \7 b3 \ ; v- ?: e0 [6 P8 P! @4 N
.ORG $7300- S7 v# Q1 C% k2 Z9 M& `. Q
M1_TO_M4: ;切页程序
" ^' R$ C1 [: Z5 P0 W* @ CPX #$00
3 E% e1 }# Y, _ BEQ REG_SET
4 ?2 ?2 B$ Q( `2 S9 h CPX #$01' u0 y* q; F2 J5 M3 a3 Q4 J5 }
BEQ PPU_BANK_0000
" h; B/ x2 P+ N: q3 _( w CPX #$02
- E6 D7 W4 a$ u7 k" h) t BEQ PPU_BANK_10005 K% m9 q$ U6 f0 i
CPX #$03
. n9 F& S; u/ r" p4 E$ G+ u6 Y BEQ PRG_BANK
, m. I- h6 |4 z2 W' O: zREG_SET:9 Q1 o6 A6 i7 I: Y
STA $A000
0 _. C) W A; y! ^* L6 H7 W1 ^4 D RTS
% z3 |: |8 F# y) ?5 ~ z .ORG $7320% b; q- d% y4 ~
PRG_BANK: ;PRG切页7 S4 y! E4 \3 {! U
PHA' j1 S5 D7 k3 _# Y) _0 |
LDA #$06
: P+ p6 W! U4 k/ T) H- | STA $8000
+ S! g4 P$ [' r6 ^0 O4 I: f PLA
& a6 O1 |6 |/ O ASL1 C( U0 M9 p) Z. v) b* q, t; M
STA $8001
$ e K7 s+ \1 @3 n# B ORA #$01
8 p: j) ]# r6 o# `) A! m PHA
K# T: V) ^5 D( B: E LDA #$07
" L$ c7 l/ `' V8 Q0 |9 O4 a STA $8000! O5 |* {( O# ~0 T
PLA4 t9 ?5 l) ^' Z1 j
STA $8001" _5 x% l: J5 ]3 e' t
RTS
, |7 n1 H, ^2 w2 b. k9 Q- o .ORG $7340* Y2 p2 ^) R# k3 R; H
PPU_BANK_0000: ;精灵切页* C& h3 z: I) [
PHA
/ B* Q0 n3 b( V$ k8 f1 u ASL1 w( f4 E: X/ H
ASL# D& U$ N! I3 O4 @- m
PHA$ Y ?. g- X: C" z/ L
LDA #$00' g6 ?6 D+ V/ i$ y# ?4 Q. g
STA $80000 \/ {2 ]' E" \/ D0 d" ^4 ?
PLA: {- e% z0 C% c K3 t1 g
STA $8001! P2 e( d0 T% a" q* ^9 z4 o6 h; \
ADC #$02
' J! z; [7 l7 T) M8 } PHA/ q; w( a3 x! X4 e5 R3 C
LDA #$01
j$ @% k% @2 D+ C! w" {' f STA $8000
% o; ]1 W4 W6 F- v. e) I* U$ U PLA" `& }* R3 {& \6 N4 T# u
STA $8001% ]8 Z8 k+ d, k* k, ~ {. E( r+ t
PLA+ F7 p/ P- t, ^8 R6 ^* N6 r. L, T
RTS3 ]9 a1 i; I* v& z! _. Z3 Z3 B. V
6 V& _* K- d, A* m; k
.ORG $7360' @6 o. Z* X' t+ b
PPU_BANK_1000: ;背景切页8 m2 @7 Y L6 F* K
PHA
/ E# j* Y! [; z ASL
/ o% M/ R2 Q* H# a7 h- f ASL
1 S& T6 H) O4 q& T! m: W% F PHA
; H: a5 y' ~# n, P& P) X LDA #$02
4 D8 z1 x2 S7 V0 P" @ STA $80002 V$ z2 _$ e. ]. q8 D4 j# N6 H
PLA* O% x3 M8 |; Q, W3 B- s! n
STA $80013 A/ u# F, t& o% X
ADC #$01
# K! u; Z$ a# c9 m( L4 a( f3 X9 T PHA! C F. ?4 H. ^ F
LDA #$03
' x% \ f- w" e" c! E8 m* { STA $8000
* D" D/ J: G: a1 [& J PLA) N6 z. b( i2 L4 Q0 [8 O
STA $8001
1 u$ n7 s9 p& F! E* ? ADC #$01) U, I+ c0 g. {+ ?
PHA
1 {' l; ^7 _0 @) m$ i( ]' A LDA #$04% \$ [* o) K5 h* G6 `. U2 `
STA $8000
* l; Z7 n4 U# ~/ @ PLA# }% F6 F3 t f6 R% d- r: a5 H
STA $8001& j% W5 J. a: T' L: D( f
ADC #$01
4 g- n9 K- g! A8 k5 A7 M PHA$ e1 y. ?0 n# C/ J' t" d5 @& B4 @
LDA #$050 S+ z: K7 \2 C2 f
STA $8000
" H2 Y! G2 t) D1 j3 s/ o PLA
+ v% Z4 P3 ~! l1 j2 b STA $8001
3 @2 E, x- t: w" t4 ?3 W& W PLA* [8 H% `+ \& _# W7 h) ?
RTS
L c" [6 k8 \
m: ]- F- u k |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？立即注册
×
|
IP卡
狗仔卡
发表于 2017-5-20 21:24:33
提升卡
置顶卡
变色卡
显身卡