|
|
;[FC][最终任务mapper1切页程序]
9 v- K' h* ~8 t- J$ Q4 i .ORG $CD9B
. ?) d& I& k3 QBANK_START:
0 a. ~/ ~3 ]+ t4 q' {! \* c STA $70- V* o2 _- f1 N/ ?
TXA
, z7 j" M1 J: ], n) u" n0 Q ASL4 c& w. A: } @) C
TAX
5 d+ t, `7 r3 p9 t, s: R5 v: wPORT_SET:
; |' r; w* q1 i9 _7 E# X# {( D LDA BANK_DATA,X
6 H# j' e7 U. [* `- O' O3 j STA $6E
1 M# a- v+ X! {& M: v7 t LDA $CDB8,X
, H) O3 |* N" {5 ^1 M STA $6F& `# z& G# q" [
LDY #$008 I2 O m7 u: D: a9 W: c! ?/ X
LDX #$05
% w/ r% r7 c7 A" m LDA $70
0 r( e! h$ g+ r- [PORT_WRITE:
: m' T" \7 a4 |. O) [+ r STA ($6E),Y
" g, F8 s7 M& I LSR: {% r0 c5 @3 h
DEX
# l) r& Q! Z3 v B- I BNE PORT_WRITE0 p) T: T. e- }
RTS# }0 B8 ~) u. U- |$ c/ l! @3 `+ I* [
# m0 s7 S$ t7 M9 }
) e! G/ v" v( t3 {/ WBANK_DATA:
8 d4 K4 h. U" f' o( o: p( S4 s F .BYTE $00,$80,$FF,$BF,$00,$C0,$FF,$FF
5 Q) {: o1 ]7 a' E4 S+ E2 A1 F2 [
6 h. a# m# W% f4 @7 d3 o4 X2 D, f: A , o: [2 a- w( f) y. Z: `6 u# H; Z% y
;[FC][最终任务mapper1转mapper4切页程序]( K+ u2 [: W; G) O! T2 V! o6 a: ^
.ORG $BFD2 ;初始化跳转& @- U, _3 x) D2 h
JSR $FFC04 j3 e+ L) Y+ I6 H" m7 ]
" S5 }% x2 Y% n6 Y3 d/ p, O
, H( x5 Q4 f4 [ .ORG $FFC0 ;切页
3 }+ O0 G# `* @ P& n LDA #$06: G+ Z5 c7 k/ n2 j b# k' _) b
STA $8000
& i5 R r2 d- c A- L! M+ E LDA #$0E, ^" Q8 D: i, R5 l& z
STA $8001# ?0 L4 J; o1 z% s2 ]: y
JSR $8000
9 d- c' f! C& g5 ~& ?' d RTS
5 b- I( i M2 m # y- ^( v& T$ C' \
.ORG $8000 ;数据复制
& {: F+ o9 @2 J5 a/ Y LDA #$80
2 N8 f* ~ I; K( H3 ~- h STA $A001 ;启用SRAM2 U( A/ N. E% [- }* p5 e$ R1 ~
PHA
! R) V4 k+ ~: ] TXA
3 F+ x6 |. w5 W" s& _! Q PHA
8 {9 w( M! T3 v5 K5 U9 l LDX #$00; E, f8 G& ^2 r/ S$ M2 L
DATACOPY: ;数据复制( Q3 A1 U) k0 G* ]" a' D
LDA $8100,X8 K- p+ }3 W! r. z# }& \
STA $7200,X" j2 g! v1 c' A+ b: @* e% u
INX& W8 R4 _3 A2 T |( L: S0 I5 i
CPX #$00
1 x9 Y& W" K, _ k* C BNE DATACOPY
0 ?$ e3 i3 M9 c; Y+ T9 i8 V! p PLA
" v& E+ r$ b6 j/ T# _/ x TAX; N2 s) X" u% ?" ]( b
PLA3 B* W7 t4 Z( m' ~6 ^
RTS
: `) j5 b* J* K - X" d4 b8 r$ ^+ T7 s) [
.ORG $CD9B ;跳转到转换的切页程序
( x9 A6 \) [" M, x, X STA $70+ a* r+ H% m: S0 ]+ z# z3 Y+ ]
JSR $72003 o: u7 P) l/ J9 P
RTS" j4 j2 a2 B' e* x- E& g2 a
- e. T- u% w$ t8 F% `# M
.ORG $73000 A. F' Z- C6 X ?8 [9 D/ M
M1_TO_M4: ;切页程序1 l8 r6 Y: ~+ X" _+ J; t
CPX #$000 r$ b8 H8 e1 l, K) l
BEQ REG_SET
& X+ o" j# S2 R% w$ C% g CPX #$01& {/ o/ d6 \4 P- t a+ L( u1 v
BEQ PPU_BANK_0000
# Y2 ?" ]+ t; p8 B. ] CPX #$020 B6 u/ t# n9 `* C
BEQ PPU_BANK_1000+ M* T# ~2 W, h
CPX #$03/ u; A( p, a$ z- c) ^8 P
BEQ PRG_BANK
: t, _6 n6 q& CREG_SET:
; N. w* g8 i' B: l H7 n f STA $A000* w1 V3 h! j- w2 c
RTS: e4 u- ]: I7 S
.ORG $7320
' ^7 ]. i% p' a" c( K* ?& VPRG_BANK: ;PRG切页
) t$ Z) N, T9 v' u PHA* Q5 `' `( w4 \& Q# H& ~9 Z; w9 i
LDA #$06
+ J m' O9 |7 [+ [; c* X% x STA $8000
# L( t+ |- K7 S) e) T. T PLA3 a, |* L. _- x" e* c8 N6 m; m; s K8 J$ n
ASL
9 d- i T7 _* c7 D; s6 I4 z# d STA $8001- R3 b8 `6 M) z! b) `# ~
ORA #$01# s- c- l% v/ X# T* q9 _, D% X+ s2 r
PHA0 x0 V, N) r0 }( G& I7 o
LDA #$07( a2 s# S- y) y; U% L
STA $80005 k8 y# z$ }& ]- ?% ]
PLA I5 T# F6 Y. P
STA $8001
" I* `' D t* w, D; M RTS* p3 X! W, @( I
.ORG $7340) a, z" P8 a+ \8 N" @$ x$ I
PPU_BANK_0000: ;精灵切页
2 L' _# {- p, w PHA! U6 K! P0 Z4 |2 h
ASL2 y+ i+ A+ N3 D: k" v
ASL
: G; p j3 f" s4 {9 n PHA8 }3 _/ W' m) U" d @6 m5 D3 t; b
LDA #$00/ J, F0 E" [8 j1 K$ E
STA $80008 z m% L$ A( ^) F, K1 A
PLA
7 Y& H2 A9 p8 O( A3 T STA $8001
( r( o- D8 r7 ]4 n2 b ADC #$022 ]& f s9 o* D5 m
PHA* C! ^* K" u/ x
LDA #$01
- F- h' B% H1 u! l STA $8000
' \7 [1 a l) R5 n/ _; K1 _ PLA
& ?" O: ~3 L- U) W5 @8 h; M STA $8001' O" X# |. M" D2 E$ S- \7 d
PLA
" m" ^- A5 {* P# z0 g) w RTS% `8 g5 O. K6 _3 ?1 ?5 T
& y: x3 X; t7 X1 o O* q( w- C
.ORG $7360
0 O1 n+ x, n$ ^. q" @3 WPPU_BANK_1000: ;背景切页
; _( r0 v5 `% w0 I PHA
5 `3 I+ }7 D: `' {+ `2 z ASL" X6 M' O& I$ \) k2 m
ASL3 Z8 q: d! _6 `' u4 C
PHA# ^: a. t+ ?" Z3 k# u2 F
LDA #$021 b q' Z1 R6 D1 g& P
STA $8000
) C( I8 `6 b5 f PLA
( H: x: q% }/ n; K! d6 p STA $8001
7 b [9 Y; {9 b( e$ d" F6 x ADC #$01/ C7 r+ |0 u- f# |5 o, R
PHA/ ?5 O3 S2 m+ i1 c
LDA #$03
; a4 J/ \% L" x STA $8000
4 Z+ b" i1 N" L/ P w6 V PLA0 i5 y' q6 q! {/ a
STA $8001
% f1 }' }5 A' z5 z ADC #$01
9 p& V7 S; \) Q PHA- U. d4 l9 P; o8 s
LDA #$04
3 X x3 [# [4 | STA $8000
( ^3 N9 t s. F$ s: v PLA
# T4 R( C% E1 n' a+ Q( p" A STA $8001
$ E. a8 H& S5 x% R( t ADC #$013 z* ^) O9 t8 g! ]: P7 L
PHA
# F. z3 o5 S/ I2 g LDA #$058 D* H6 i* n+ \5 X, T0 r
STA $8000* l2 \2 [4 c3 A, e# _: r4 C- X
PLA
( K8 Z0 _+ g8 x r H STA $8001( S9 ]4 g0 N, a! q, u L
PLA
; N$ `# R: I. M3 z. t RTS! G. B; K' K) k4 N
$ h/ d |. f3 H1 s |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？立即注册
×
|
IP卡
狗仔卡
发表于 2017-5-20 21:24:33
提升卡
置顶卡
变色卡
显身卡