|
|
;[FC][最终任务mapper1切页程序]
3 T7 Z: n' }/ k: g8 c1 E$ z .ORG $CD9B7 l* w2 R# ]* B3 y+ v
BANK_START:9 z$ h# a( g \ p( h
STA $70
. }$ C6 p0 H0 Z7 k: C$ Z/ h TXA
* C F1 l6 p( P8 B, Q ASL ~7 \# x4 F+ F4 k
TAX
% |3 T* A: B. WPORT_SET:
; U+ o4 o! z/ k; ]. p2 H1 Y) Y LDA BANK_DATA,X4 ~$ w+ y: G* l! Z- z
STA $6E) o& ^3 t6 k0 l! m
LDA $CDB8,X
' s& F G" c( g, c) |) E& r. b STA $6F
* W- O v1 S4 H, } LDY #$00# u |. Z4 M! X$ X3 w. z7 P( o8 ]6 L5 g" T
LDX #$05! v7 H3 `$ [2 c
LDA $70
- I$ c$ A* W- \$ P: K% APORT_WRITE:
# W; F. S x+ l+ t! x! Q STA ($6E),Y
% e8 a3 C. |6 ?0 p$ \ LSR
7 p4 L4 A4 [, t2 T- |3 U+ j DEX
6 q8 C: n. f3 x3 l* w BNE PORT_WRITE4 p: x- Y6 l, f, {0 o& P
RTS3 A% A) \: Q2 m9 |- A
" {9 t8 V; q, D' M9 @
/ D) D; }" g# h; ?1 S$ }0 jBANK_DATA:. e+ }# j' v3 _7 Y3 Z
.BYTE $00,$80,$FF,$BF,$00,$C0,$FF,$FF
/ w" v: u% o. ^ }& l2 e
6 F, T2 [, A8 J" ~6 Y" I . J/ |: V. d, r- {8 I, K
;[FC][最终任务mapper1转mapper4切页程序]
* s: N% E9 V* H& |8 ] .ORG $BFD2 ;初始化跳转
/ X$ E7 h/ Z$ s1 D- ^# |( _9 i JSR $FFC0
- J4 p3 N+ Q7 h+ k3 z% Y) e9 J5 l3 ?5 e& e, D9 r* }
( L+ P0 R# I6 y. |
.ORG $FFC0 ;切页' x% l+ B4 h: P; t- A+ n( b J" Y
LDA #$06
, U/ w" {8 e. \6 L STA $8000! w; w- i; y8 s- Q) k' I8 E: [1 g
LDA #$0E
1 G) X# z& K9 b8 S6 O" J! Z; ~" j STA $8001# n& E3 d. D0 }+ z
JSR $8000* M& L+ x; p% \( C
RTS 2 v# h( O6 ?# s6 }4 B5 |( m9 u7 Z
& _% N9 W, r& m( `& p" H% b
.ORG $8000 ;数据复制5 U# f/ D, y; c
LDA #$800 k; a% A' ^' I, G2 d
STA $A001 ;启用SRAM( s0 e; j& h0 N8 L( d
PHA4 k% l; o, M* Z& ^" v
TXA" r6 g1 x9 j' Y$ P
PHA7 t" r6 E% V( O" {! _7 p6 F
LDX #$00
' s3 f* X. W5 `) v; zDATACOPY: ;数据复制7 M) V4 u/ j) K u
LDA $8100,X
( j/ m: M" E$ J) e STA $7200,X
5 Q6 z& @. x) O: ~0 f INX
2 _/ j1 H. A% @' G CPX #$001 x; o' T+ z- g. a$ b
BNE DATACOPY
0 s: E7 P$ T! _* u: V* J" s PLA
9 @9 a5 D0 S) Y4 A, q5 |- q TAX3 P- b/ H" `' U3 l+ A
PLA
% q* b9 Q# Y0 c2 J( w M: m0 q- ^- a RTS) e9 E7 p& ], M; Y; W4 `
# R( O" S y0 w8 Q& ?
.ORG $CD9B ;跳转到转换的切页程序
7 q( U+ Z$ k1 [( \, s% {: q STA $70' W* p" C9 b" H( Z, P s" E
JSR $7200; D J5 X5 n9 P
RTS
~. y9 q, E+ L+ k1 @5 V' r5 D# { , W0 s: s v8 }/ e" U$ ?
.ORG $7300
) ~ \2 w# H8 t" g$ WM1_TO_M4: ;切页程序
6 K! d7 A% `/ V9 P" d4 j1 L, f$ X CPX #$00
5 i: S3 g' x, R9 D: D4 ] BEQ REG_SET; P' a% N( Z9 p( G: {* M6 x
CPX #$01
7 h4 R4 [7 {, Y5 Y: s$ M6 ` BEQ PPU_BANK_0000
% j) P8 Q! F/ r# b CPX #$029 A5 E- D8 f" N( O" \4 [
BEQ PPU_BANK_1000
3 E9 b9 I" b6 w5 D CPX #$03& z5 [( _3 j# u+ ?1 R V
BEQ PRG_BANK$ n# y; ]: N2 R" {& E0 h" ^& S
REG_SET:8 A/ @" U4 d" g( g$ I% V; U: |
STA $A000
" H' D4 H. l/ L1 l/ c* q RTS6 ~0 }: m1 D6 n' Y3 m8 h6 M
.ORG $7320+ x6 T# S* e) y" U0 ?
PRG_BANK: ;PRG切页
0 \( z0 f/ I: f& n! v PHA
5 \) g! z) l& \* I8 M7 x: } LDA #$06
& N( Y% |& g0 X STA $8000) q, z# u% U% }) z k/ Y) K' Z
PLA
6 J1 i( r- T- Y2 x ASL1 \9 F4 h0 p1 m( l4 A
STA $8001 ~5 A. l5 v( j! F2 b1 r
ORA #$01 G O' I. l |3 x
PHA
+ i! w9 G" A1 ^+ p7 e LDA #$07
5 L, d# U5 V$ T9 l5 r STA $8000
, I. {3 M3 K* A9 g PLA' Q- W* d) H/ L3 H. z0 V
STA $8001
+ g' A! L: ]* }! @ RTS2 E6 G9 s6 z$ H* b# ^
.ORG $73405 O Z: d2 v4 i
PPU_BANK_0000: ;精灵切页
2 o! k7 S* W8 R PHA4 B( e: j' q$ I' I+ c
ASL& l: J( D5 ?5 U N: N F- p
ASL) M! w2 Y$ m( g8 g
PHA
' }$ F6 T/ D1 @ j- Q C LDA #$00
3 E: e/ K5 e( y STA $8000
$ [1 l5 P. L" l( h; ~$ v3 q4 | PLA
, J# g; w1 b' ~$ m- i% V$ B STA $80011 ~/ H o0 {4 @- d
ADC #$023 n7 ^% { \5 o% e$ R, d
PHA1 L) r$ t* E2 x
LDA #$01
( h: @/ b+ A. m6 _. J STA $8000
- H6 W( ?0 q1 P# [* V! ^5 u5 F PLA$ A8 e# N; c3 O0 E! y
STA $8001
* A& b9 c9 V! o) b7 _0 L PLA9 }2 U6 ]( o0 Q" h" U
RTS
! t7 H7 {3 n9 N }8 Z/ L
/ Y/ D. u7 e3 @% E; b2 l+ [0 E/ v3 M .ORG $7360" }3 e, Y9 k4 u: x& T) x
PPU_BANK_1000: ;背景切页; g2 G8 M$ ]' z
PHA! t& X3 N. B C5 M1 M
ASL1 x) I% E' p D4 J6 w2 l8 t
ASL L; c. X& @7 `! _
PHA6 v* X7 K6 k( @! }: | h
LDA #$02: p& K% @) m# A
STA $8000+ ^0 o @3 R' P' [
PLA# }' T3 z. f6 W2 r! P
STA $8001! {, C" L' \( x( ?; l
ADC #$018 A* j. m- D" w. c5 F% K
PHA
1 i# }/ Q! ^3 K! P$ e+ K7 d LDA #$03; y( b0 L. y- Z1 V
STA $80005 E- ^+ G- E3 M2 g- T. _. o" R
PLA- y4 L4 g1 [% }. I+ B4 A: k
STA $8001! ]# {) y; z ]* ^) e; |
ADC #$01- f- V l: O! D- d) F6 l
PHA
/ V* j& _1 I9 S3 q9 D LDA #$04
; R3 p# u7 G9 w STA $80001 U& I# T5 D+ G" a/ [% P9 u7 z6 `
PLA
; \9 x) N4 O+ T- ]3 G4 z7 {; A STA $8001" U" y7 K+ M6 C( v
ADC #$01
0 j* L# M9 R/ K2 N8 g4 Z PHA$ F3 T1 n z \6 O9 h
LDA #$05 b3 M# L# n+ Y
STA $80006 R, _( E' s: c) v
PLA
, o7 @6 W3 h/ X/ x STA $8001 d6 |1 @4 I. n9 Q6 x' s
PLA5 G* S( X a) R% }8 Z1 \
RTS
7 N8 S0 t) ]" w/ }% q! o8 U4 _& g. e- J4 i
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？立即注册
×
|
IP卡
狗仔卡
发表于 2017-5-20 21:24:33
提升卡
置顶卡
变色卡
显身卡