|
|
;[FC][最终任务mapper1切页程序]
}3 e+ j( g7 @6 ^ .ORG $CD9B b- z* f& m: s
BANK_START:
/ V: S! ?; S6 g STA $70
5 C5 Y7 G; O( ^# w; ~ W TXA( q. a" G* e. ?; `7 F
ASL! z8 Z- P! p9 B3 u0 m
TAX
+ W- r1 v+ x8 \. VPORT_SET:1 s0 }9 R; z% s
LDA BANK_DATA,X
) C& Y/ X$ ?! B* F1 {" \ STA $6E* E; x0 A& y. q( ~
LDA $CDB8,X, K2 W/ E2 r5 I" T
STA $6F9 {, z2 q: {( v- C7 O% I. H" D
LDY #$00
" [7 S- Q3 F3 ]4 Y; s LDX #$05; N7 ]. j3 ]1 L# b/ |
LDA $70. {3 n. [8 E8 N
PORT_WRITE:
7 y0 d8 G" M5 L! j3 e2 c STA ($6E),Y
! d5 {$ {' V3 b e' Z$ ]- W LSR; V2 Q; F, x2 I" m% j: h
DEX2 Y) J# `7 G' t& m2 M- ^
BNE PORT_WRITE% H% U+ ]2 S2 Y+ C, c$ |" M
RTS8 [1 I. r0 O% U: a1 o _, l) }
, O/ X+ o. v7 H$ M' v
- M$ x; w4 F1 r+ ~2 Z; @; }BANK_DATA:0 g+ k8 K: q L- t. ~! @
.BYTE $00,$80,$FF,$BF,$00,$C0,$FF,$FF- w+ u3 \) t3 J; F/ k
( ?7 t7 E3 q+ c! Q4 f2 K
3 t3 H, A( E5 i& `;[FC][最终任务mapper1转mapper4切页程序]* }, p( l7 @2 _0 n# z: ~; |! M( S
.ORG $BFD2 ;初始化跳转
' E) i! a7 L) k, ^ JSR $FFC0) T4 C- w4 r- P( J7 t$ a
; x; O+ b+ M) T: `2 G* X/ _6 U9 W
8 h! \' s; }) v# a .ORG $FFC0 ;切页
; r' G1 M- R: m. S( k/ H& d* O5 p# y LDA #$06
/ L0 @/ l* Q3 ?! F) b STA $8000/ G% l% x s6 y1 {0 @$ J) i( O& E
LDA #$0E+ ?! d* s& L3 D) R$ @0 H7 U
STA $8001" B0 u5 d- A! w0 K/ |$ u# b z
JSR $8000
7 L0 ?; x6 {1 R. J6 W$ \ RTS ' O! L2 h: c8 ]2 K4 g; c2 c
2 j: I, N4 s @" Z9 S5 U
.ORG $8000 ;数据复制! U8 H, A2 Q p) q o) d) x" R
LDA #$80
, q: Z& R5 b" U8 ]) N; q: F: v- h STA $A001 ;启用SRAM5 y. B5 ]* `. p; s& M% t& E
PHA/ M& r: y- d- F! r+ X
TXA+ O7 N; e3 K' g; V
PHA
3 t# ?! [- r) L" h! o7 ^ LDX #$002 a- m$ }7 s7 R" {/ |6 j
DATACOPY: ;数据复制3 L$ N: K% ^8 z' g: w& F) @
LDA $8100,X
+ l. x+ t$ l$ A" O- F STA $7200,X8 }5 M1 e' J+ {# ?, j( o3 W
INX, Z' d: A- X4 \- u
CPX #$00
9 d0 o, O7 @1 S- c! _: w BNE DATACOPY
; f; h1 q/ j2 @3 q) U7 E- t PLA5 o- J5 B. ]4 j- d8 a+ F
TAX0 N5 Q3 V+ ]3 r' z
PLA2 n, U) n0 a* h0 ]! @/ Q8 ?
RTS3 {/ o) }2 ^- O# w2 A/ r C
3 O& K7 d5 ` G9 E2 j5 w5 \ .ORG $CD9B ;跳转到转换的切页程序
. R# x- s5 I5 H0 K) V7 X STA $70
' ^# [% y& S% @7 k+ H JSR $7200
* q8 g8 @# ~/ r# \ RTS
- L: l9 S: ^( ?) ^. F2 n
) W% v; z& y/ e' Y .ORG $73008 G8 ~# H# _5 [4 ~3 p+ \. f
M1_TO_M4: ;切页程序 |$ M' O* M6 h9 Z5 n8 P
CPX #$00
# |5 o1 ]) o: r3 g2 M BEQ REG_SET
F, V+ W* M% V: @ CPX #$01
/ M* z- I3 G0 Y BEQ PPU_BANK_0000) ?) N3 h, s, U4 F
CPX #$020 ^3 I% v4 e3 D& ]& ?
BEQ PPU_BANK_1000' N' o, T3 W# e
CPX #$03
$ V+ V$ W% o9 R/ } BEQ PRG_BANK
: L3 B; q5 H, xREG_SET:. [, W! s' ~* l% ~& E; l" A& K
STA $A000
& F3 p( G) D8 x1 S* p5 z" T9 B& V RTS
" ?# ?, I" D+ Z8 c( } .ORG $7320
9 ^6 F/ X( j$ }0 _1 z! W* LPRG_BANK: ;PRG切页0 \% p8 N5 P" y* \
PHA
6 T0 V3 p. w m, c2 A: s- \, C6 g' L LDA #$06. @) g" o' E, F/ l& X4 e2 V. H
STA $8000( f/ R3 l) h6 \/ E' r. `( ?
PLA
: u$ u$ ~$ v. r! R ASL0 ^" e, S8 q* ]" P/ T5 U0 I
STA $8001
3 x% H6 i7 \, t1 s k ORA #$01 ~- X) O1 p# |5 k. R# V
PHA
# h! d; Y% W3 d LDA #$07; b0 Y* p0 P" |3 r% I
STA $8000
# H* r1 ] r) c PLA
4 Q' j( H$ q2 c1 @$ Y STA $8001
6 m6 J; a& u$ I. C RTS
; Z( q- r+ n1 z7 h6 m* J .ORG $7340
, N6 X7 L6 E r8 S3 u9 WPPU_BANK_0000: ;精灵切页3 K- @: y7 {4 {) r# `, v/ ^
PHA W5 o& y& S. U5 E. a! g
ASL
9 M' h0 N6 G) P" i6 i ASL
% J X' }: R3 E3 S8 x- D; f" s. r PHA4 c6 B/ e9 Z2 b' \7 i. Z
LDA #$00; ?+ Z+ X; k7 h/ V& Y
STA $8000; R; w+ F/ k+ P; B0 q4 M. _0 j) Y% G
PLA
/ A) {. C" j! `2 x STA $8001
) e1 P [8 S3 i3 ?- G. o! Y ADC #$026 Z3 o- a8 B, O& L
PHA
- h0 }4 L9 h1 D/ L! P+ ^9 i LDA #$01
; \, h$ a$ R& }$ }; }9 R U+ `1 w STA $8000
! @' z; N) ~, J, l$ K8 ^8 E PLA7 W! Y4 P; V; }0 G) S- f1 l9 ]
STA $80013 w" g- }- g' C! |- j. [
PLA9 \1 h6 x1 Z4 z# `7 D# C! d& `7 z
RTS8 S2 q W4 P4 q9 N
% h( j9 b( @' E5 e/ v5 D
.ORG $7360
: k8 e1 s, f# W1 T( y/ XPPU_BANK_1000: ;背景切页
: a& v* N- h& i- s- j PHA
0 j/ m' b% {4 j( d: l; M ASL
$ w. z G) L8 B: d ASL. j! O: H9 c+ [ i3 a {1 u7 X
PHA
5 V% p/ v9 |6 c4 V! ?+ u LDA #$02
- O X5 r1 J' R STA $80001 n2 c n9 @, c8 X: ~
PLA7 Y4 B9 H+ Q7 Y0 l0 n4 W, q" W
STA $8001: j, U8 b2 h+ \% }' {8 C
ADC #$01
3 {* n3 o3 `. S# h5 B) m PHA% L1 y) Q7 p1 m: r6 y2 F1 G, ?
LDA #$039 Y* e ^ C1 T0 c- Y3 u
STA $8000
& V; g0 Y4 V2 f% q0 {5 q( P9 v PLA
: J/ A( _+ O! g3 z( c2 k, a. A STA $8001
" v; n& {4 o8 q! [ i) H' S ADC #$016 e2 N t8 X1 l" z7 J" j# |2 F
PHA
1 O5 x4 q$ d5 ^' _2 E* F LDA #$04' m0 }/ C2 h% P# m) |
STA $8000) l4 O( X' Y8 @5 i9 q
PLA0 \- F2 o" {5 N% r, b7 @" I
STA $8001
8 D( ]# C/ |/ d8 }$ ? ADC #$01
. q% m, v- T; o PHA6 F3 |9 a' `9 K5 b6 e
LDA #$059 q% ^+ |1 r$ ]1 o" O- M
STA $8000
8 W- P! |* v# | PLA
o& D2 J; c" b% G l5 E8 q6 q: [ STA $8001
! a7 G# E9 y. b+ @& M PLA0 v0 p/ f% Z, ?% w6 t6 |7 T" b
RTS
0 l# x, S- s/ g* X# [3 }7 k4 D7 k5 o. U( X
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？立即注册
×
|
IP卡
狗仔卡
发表于 2017-5-20 21:24:33
提升卡
置顶卡
变色卡
显身卡