|
|
本帖最后由 yandagui 于 2017-4-28 14:17 编辑
& L6 Z* _# G3 ?/ z- D1 i* S
/ x8 ^+ d9 z0 r- i) F+ f3 e& M6 x ;[FC][任意数据搬移到$6000-$7FFF] BY FlameCyclone
! {$ e) }1 q5 u ;2017.4.280 k' {7 ]: h: A$ j0 L& R
;例子:双截龙3
4 I, d7 A0 h1 L: ^, c" y .ORG $8100 ;定义程序开始地址
9 t4 F- d# P$ O4 {) d9 J JMP Copy_Data_Start ;跳转到复制程序% F0 x, a" ?8 @, u/ L# w$ f
9 Q0 d* ]8 R. W1 B8 I6 @Addr_To: ;目的写入地址6 s; b# g7 R3 S3 ~/ |3 d& H1 u8 i5 O
.BYTE $00,$70 ;想要复制到的地方- |8 c% |4 x) r
Add_Begin: ;源开始数据地址
3 U% |. \0 M. f5 }& G .BYTE $00,$82 ;想要从何处开始复制
/ Q2 ]* V0 s3 L' f$ p4 zAddr_End: ;源结束数据地址& g0 Q1 m% L( c7 a1 M, b
.BYTE $EE,$91 ;想要从何处结束复制# @$ @! a; r+ y/ s5 k" V" G
0 T5 v/ B' B9 R' h1 ^$ i
INT_Addr = $A0 ;中断地址
% c I* J( q: L$ `Flag_Over = $7FFF ;完成标志地址! B% j& y4 l+ A- M! ~! H$ J. v
Data_Over = $7F ;完成标志% `$ G( j! ?% W! P
$ L+ W. e4 J8 Z& k& ?/ {0 h1 \, W5 g. S3 ^
Addr_Data_TO = $A0 ;目的写入地址/ k# y, H6 e" o+ j4 G
Addr_From_Start = $A2 ;源开始读取地址
& k& p# g7 P6 j8 g7 aAddr_From_End = $A4 ;源结束读取地址# _7 M& u K M+ |7 c! O
+ H: F: M4 C3 E. E7 X; q3 U" ?Copy_Data_Start:
; L6 r7 d6 u6 F) ^6 G5 _. }$ t8 QData_Copy_Protect: ;保护数据
( \+ n/ h, @& X, G4 U) c PHA4 H8 K( s$ b# q* ^
TXA
' [1 N. B8 E! X7 N PHA
0 o( u2 z% _& C TYA) L, O' C P( D0 l
PHA
* V. i# J) N4 u, L JSR Off_INT ;跳转到禁用软件中断( P0 C* f2 c- h
LDA Addr_Data_TO" ~8 V5 v* x; N/ V7 h
PHA
. }6 }2 V- [7 [2 P J LDA Addr_Data_TO+15 s% X* v E5 u; G: t1 E- z+ w
PHA4 ]$ i1 l7 O. k R5 ?
LDA Addr_From_Start
; y0 I) n- c/ @ PHA; f& J; v0 L( A! N# d* n
LDA Addr_From_Start+1, P% M$ [+ N- D2 ^* |7 ]) v
PHA
; H9 Q5 m/ f3 s9 \' B LDA Addr_From_End
5 u( R! X% [2 I8 e2 V" N y0 C PHA2 @( r- k6 [ w* M/ m2 v; y
LDA Addr_From_End+1
3 l# A+ _5 i% F/ H; k7 F/ W PHA: h4 c+ H, U2 ~7 p" O5 e3 O
+ L$ p" B1 e- y7 h% ]2 B $ ?2 {% U. w7 {+ m$ b8 |! i2 P$ P) S
Set_Data_Addr_Start: ;设置复制起始地址
) ^+ O9 v0 O/ t- m7 Y9 t3 \) V- h LDA Add_Begin
+ @1 L" n$ u, e STA Addr_From_Start ;设置复制起始地址低位
* ]- u0 b3 v6 E7 I LDA Add_Begin+14 k6 N- u1 V7 F3 s
STA Addr_From_Start+1 ;设置复制起始地址高位1 @# i1 [: C5 `0 i* v$ a- g {
Y$ h0 X6 M; @8 o1 LSet_Data_Addr_End: ;设置复制结束地址: [' H! u# ^; X4 Y/ G( M
LDA Addr_End
8 H) u: b2 _2 r! p4 x- P STA Addr_From_End ;设置复制结束地址低位" Q( c, Q4 X, B! d m& X4 L
LDA Addr_End+1
+ }! R( d5 b6 ] e STA Addr_From_End+1 ;设置复制结束地址高位6 ?0 `$ E! R. R2 A2 G. w) l
- y0 a, @: h% x9 Y' U rSet_Data_Copy_Start: ;设置目的起始地址- S1 ~4 m& u& g
LDA Addr_To5 V6 P$ M3 f2 x
STA Addr_Data_TO ;设置目的起始地址低位: U, f$ _2 ^, c- l' q R& a) ~6 n
LDA Addr_To+1
' D! ?) T+ [' S D STA Addr_Data_TO+1 ;设置目的起始地址高位
+ S. _+ ~9 o/ k) W) q7 `
5 v0 b7 P* U) @/ D9 W8 TOver_Copy_Cmp: ;复制完成比较7 F4 W% N* ~) T7 @" p2 `9 [
LDA Flag_Over' _: C2 q% X4 D0 v8 E5 G% P
CMP #Data_Over ;复制完成标志比较
6 u0 x) r# h r BEQ Data_Copy_Exact$ _ l- ]* Y5 F8 w
! z- l! ?7 [# A- K
INI_XY_Count: ;计数器初始化9 ^7 |& G: ~6 Z* r2 E
LDX #$00
4 d Z. V9 W) F, [' Z LDY #$009 ]( l7 x" c9 y& W
. @/ X: e- ?6 P& {; w( [: Q
Copy_Over_Cmp: ;地址比较
+ A) p* Q ^+ F: y2 K$ jCmp_Addr_Data_TO: ;写入目的地址越界判断(向$6000前写入)3 _2 O& T g) y2 u# l, i0 n1 X, A
LDA Addr_Data_TO+1/ l$ e0 H5 d( h6 `; m
CMP #$60, Q/ k9 d# X7 ~+ _( N
BCC Data_Copy_Exact ;写入目的地址小于$6000时结束复制
8 } c+ d6 Q$ e: F: e$ P `4 r) a4 yCmp_Addr_Data_TO_H: ;写入目的地址越界判断(向$7FFF后写入)
# A4 t. s0 j8 T- O( T, z LDA Addr_Data_TO+1
" h; Z- o6 k/ f( F( ?+ l0 f CMP #$80
$ {5 @& q0 N) a% t% l7 R9 l BEQ Data_Copy_Exact ;写入目的地址大于$7FFF时结束复制( M* c* Q; h- N, v' Z
5 \$ Y+ _- h* A" f
Cmp_Copy_FREE: ;源地址结束判断% M& ~0 s+ u r) W: u" M
LDA Addr_From_Start
( ]. _4 j' S9 F CMP Addr_From_End# X) W7 Z) @& |6 `+ V
BNE Copy_Start7 l& O, j- _% d
LDA Addr_From_Start+1: ~/ p$ o0 I, c: p, ?
CMP Addr_From_End+1) k8 p' ], |+ D" S7 E% S, b
BEQ Copy_Over0 R. t9 P6 {( Y8 k1 d
) N- u* b. i: oCopy_Start: ;数据复制开始
F, s" n6 Q- L. U# |$ s LDA (Addr_From_Start),Y ;读取源地址
) R, P: C4 Z- l' W STA (Addr_Data_TO),Y ;写入目的地址0 K) o/ S: T) j2 a. M: n
Copy_INC_From: ;源地址低位递增5 R, Z: H) v( }3 M1 E! P
INC Addr_From_Start ;源地址低位递增- b/ H, _ L4 R: j$ z/ h" q
BNE Copy_INC_TO9 m) ]# f3 m. y; S |1 [
INC Addr_From_Start+1 ;源地址高位递增) [- H# u# d7 T* V& z/ q. p) f' M
Copy_INC_TO: ;源地址高位递增; S" _6 t4 A! u& i$ ]
INC Addr_Data_TO ;目的地址低位递增$ p% J) p# X; x/ }, t! M
BNE Recopy
) o+ y& C( M& B& \! O7 T+ m INC Addr_Data_TO+1 ;目的地址高位递增; q9 [) D/ o+ v' M+ J0 i3 v
Recopy:
- y% b; _% r! M. U: V JMP Copy_JMP
- r. v% a$ H) e7 t+ D4 }' o. P
' e+ c; s. S: q) rCopy_JMP: 5 W% }) J- j/ J1 A8 e
JMP Copy_Over_Cmp
8 @6 u r0 B' e* [0 N% ?7 k7 V9 J* c' \: Q
Copy_Over: ;复制完成7 e0 j( n R, i% G/ d: I* s1 o8 e
LDA #Data_Over
' ~! n% R. E3 n4 U! m: J STA Flag_Over ;写入完成标志! z/ q+ G' n1 A0 W3 p/ i
FINAL_BYTE: ~* ~, U \: E* i$ x8 L
LDA (Addr_From_Start),Y ;读取最后一个字节
& a7 }4 b7 p6 n/ V% R2 E8 s STA (Addr_Data_TO),Y ;写入最后一个字节1 b. t/ F7 r( z5 L
# C5 _5 j* F1 O7 j8 C* m7 x( {# O9 O
Data_Copy_Exact: ;恢复数据7 B8 k! N& D; E$ `9 \0 M, V
PLA
4 H4 D0 g$ M" A4 [5 ~! J6 P STA Addr_From_End+1
/ x/ `- z, B2 f U1 a$ y! i6 K PLA
. N5 D; h5 u# P" i2 y; E* C: ~, I STA Addr_From_End
" t {5 \7 c3 P PLA3 H; S; T8 O( q# u/ D, @- y* F
STA Addr_From_Start+1& N( z4 \# C$ C3 W8 r
PLA( J: v7 c) U' S1 L) J3 L5 |
STA Addr_From_Start4 C/ \; r- p$ A
PLA
8 t' M5 k" w7 u: e/ o5 l STA Addr_Data_TO+11 u6 L9 [7 Q; m
PLA: \ \. x; f& M8 r
STA Addr_Data_TO
* ~( W9 y" J4 d& k& P6 b PLA
# c- d4 D6 ~+ G TAY
* p1 h/ [! x& M) c: D) D* d6 [ PLA* @0 G, w8 F- ]8 u2 }0 w$ h8 ]
TAX6 a+ e0 _+ _6 D
PLA
, f \' \* D6 I, n9 y) Q$ Y6 n : F- O0 T, Q, L6 T$ x. J
Data_Copy_Return:
* z C. w) ~9 b* w g, \ JSR Rec_INT ;跳转到恢复软件中断数据7 k; o$ Q4 h* h7 S
RTS- Y K7 q P# \# n! j* Q! C* f: d
# l2 V }1 }6 qOff_INT: ;禁用软件中断5 [# m4 `# ^, p9 E
LDA INT_Addr
0 u8 m: w# K+ h) ?4 H AND #$7F4 Z5 ~6 S( k2 M
STA 2000
; v9 r8 X9 [! ~; o: O RTS9 v! l4 t# E( [
4 X# D1 ^/ S) s" ~4 J# l" N g
Rec_INT: ;恢复软件中断数据9 t# _# g! M1 Y Y7 d
LDA INT_Addr
6 f( | s6 w7 C* Z STA 2000
& R. E/ T2 `3 l- m/ E! z RTS |
|
IP卡
狗仔卡
发表于 2017-3-30 20:32:50
提升卡
置顶卡
变色卡
显身卡
楼主