|
|
本帖最后由 yandagui 于 2017-4-28 14:17 编辑 . W- `7 g: d9 d
+ c3 T& g9 Z+ o6 l$ f
;[FC][任意数据搬移到$6000-$7FFF] BY FlameCyclone& k3 u) p) N* l! t
;2017.4.28
) i, C4 l, q0 l: |6 V, g0 l8 Q3 } ;例子:双截龙3
# y7 u& W7 o/ S2 N .ORG $8100 ;定义程序开始地址
; y6 A; V Z6 y: M! ?0 U JMP Copy_Data_Start ;跳转到复制程序! {9 K. l' X# I# V- a9 y
" R7 J& E1 Y2 E" {Addr_To: ;目的写入地址' Q8 D. s2 E- F4 m& y/ H/ b
.BYTE $00,$70 ;想要复制到的地方* t) ^3 ?: Z9 N, v8 V, w+ f
Add_Begin: ;源开始数据地址
4 r3 @1 {! y4 |# d, c6 n# i9 G3 I .BYTE $00,$82 ;想要从何处开始复制2 ~2 D2 X* P8 q2 `
Addr_End: ;源结束数据地址
2 v, C2 S' `( u* H# }" { .BYTE $EE,$91 ;想要从何处结束复制
- s T) Z8 o5 B3 J' @. A3 K2 U. k! F+ Z( x3 h2 v7 p Y9 T1 M
INT_Addr = $A0 ;中断地址
, l/ B2 `0 ^/ a6 X; r- EFlag_Over = $7FFF ;完成标志地址
; f" s: k3 Q! }4 t, W) _" kData_Over = $7F ;完成标志
! C1 M7 ^! y! u4 c- @
6 @* u Q: f' g% c( @, M. J' R8 D* [/ |; l" ?
Addr_Data_TO = $A0 ;目的写入地址
' z, O+ X8 L3 V* U5 SAddr_From_Start = $A2 ;源开始读取地址3 D2 D& _) K+ g3 U9 X1 n
Addr_From_End = $A4 ;源结束读取地址
7 p4 m9 u' N" j0 [! d
! d. K" W9 t2 v! _$ `) n: \Copy_Data_Start:1 U! h- `3 `0 ?8 T6 t5 c$ c
Data_Copy_Protect: ;保护数据+ r' ], U$ N! v' J+ J
PHA
' I+ Y1 p( v, \ z1 W TXA2 n. x0 I0 u/ K0 j g; G6 T
PHA, N4 n2 C+ ?( {* m4 a7 i2 g. H6 p, z4 J
TYA
" z1 W' B7 K1 c PHA4 I+ w2 Y. v* d8 ^( c5 t
JSR Off_INT ;跳转到禁用软件中断
" |. O/ q1 Z0 m: O# E. D7 O- h9 N LDA Addr_Data_TO
- O4 ?7 }# |7 ?. f5 z5 f PHA
1 k8 i( B \6 L+ Y( i. }" S LDA Addr_Data_TO+17 L9 q5 X2 @0 d$ R+ [: W
PHA6 f( l- M6 [* D& B+ Y: Z$ v/ Z
LDA Addr_From_Start( a) \. ]3 M$ a; V8 E
PHA
4 k! _: K: X( }* |: V! O9 M LDA Addr_From_Start+12 g( n+ k x+ B
PHA
7 S& w0 _7 J4 r! m9 @$ r1 x8 Q" Q; D LDA Addr_From_End* z- o0 @3 ?, S) W! l0 s" ~4 ~
PHA
5 |# X% R+ n& z8 Y LDA Addr_From_End+1
- Q6 Z7 h5 \% \+ U! @, D' M, T" d PHA$ k) n9 X( g3 v% h; j: y
$ h+ \( T2 r& T \' } 9 E0 T1 R) i3 T
Set_Data_Addr_Start: ;设置复制起始地址
" {3 h' B9 j. E2 K, J LDA Add_Begin+ j# m% z0 X! w. ?) x& e- p r' \
STA Addr_From_Start ;设置复制起始地址低位
8 j$ V$ w7 G' w3 x& {# o LDA Add_Begin+1
1 {% r4 o6 N1 S% z STA Addr_From_Start+1 ;设置复制起始地址高位* C5 t$ W) [+ M5 R+ X8 b
! l# ?: b' s8 s' u1 H1 N- |$ H: L% M; I
Set_Data_Addr_End: ;设置复制结束地址+ H& U' H8 A8 N: _
LDA Addr_End
H- x2 l- f# ?6 n STA Addr_From_End ;设置复制结束地址低位6 r3 p- s, ]! T2 [2 E# a, s
LDA Addr_End+1
/ a$ P5 }9 v( ]$ Q- h STA Addr_From_End+1 ;设置复制结束地址高位
# f( `& H6 H- J9 L: B8 x8 Y
. I/ n, l3 T) c7 ^# F1 kSet_Data_Copy_Start: ;设置目的起始地址
4 v. Q% f t, S5 P0 w LDA Addr_To
% Q f; G, ?& s STA Addr_Data_TO ;设置目的起始地址低位
5 o, ~& O, M8 n4 \, a5 V1 t LDA Addr_To+1
/ v' e0 f$ ?1 [$ P4 a" v$ [& G STA Addr_Data_TO+1 ;设置目的起始地址高位- @; L/ a5 v( X0 M' B' P& `
$ I. \2 Y2 x. m K% b
Over_Copy_Cmp: ;复制完成比较: J" ?% w8 b8 e3 B$ m$ ]
LDA Flag_Over
; ]! Y( |3 m5 t- A m" B CMP #Data_Over ;复制完成标志比较5 p1 Q8 m& F- g: `: g4 o
BEQ Data_Copy_Exact- C9 a& w( _& p& c) v
z+ Q/ Y' {6 A. z0 n
INI_XY_Count: ;计数器初始化2 \8 H2 S) q9 [
LDX #$00
/ g4 G7 m8 e7 C* I LDY #$00
* z% H& k: ^% b! W1 V U4 @8 w 4 m2 g; X" R" V# }+ k. Y
Copy_Over_Cmp: ;地址比较
7 x- ~7 c% `, p8 T# KCmp_Addr_Data_TO: ;写入目的地址越界判断(向$6000前写入)2 g& _6 U, d9 K& D# ~& \( Z0 U
LDA Addr_Data_TO+1
! A7 w0 Q3 |7 F CMP #$60
4 x9 M/ X! b3 K. m6 u BCC Data_Copy_Exact ;写入目的地址小于$6000时结束复制0 v+ r3 p$ ?" B; D
Cmp_Addr_Data_TO_H: ;写入目的地址越界判断(向$7FFF后写入)* O+ u& o2 O/ F6 z
LDA Addr_Data_TO+1. j& Z: k. N+ }' Y+ ~ o; X
CMP #$80
* K0 g1 Y* r1 f/ D2 t2 v BEQ Data_Copy_Exact ;写入目的地址大于$7FFF时结束复制
S$ w) K \ _7 y2 ~& D* M
( g3 P3 j( p+ Z& k' {Cmp_Copy_FREE: ;源地址结束判断
6 I! n. a# x9 H0 O \: t5 c3 b LDA Addr_From_Start+ R" X! |" S% B3 y
CMP Addr_From_End# g1 b1 v/ y* P8 N5 y2 b* g4 T! B
BNE Copy_Start, r' m9 w9 n, Z# }% Y8 e
LDA Addr_From_Start+10 a2 M3 O" W: i: g4 e
CMP Addr_From_End+19 T0 T, M. k# i2 R( h
BEQ Copy_Over
% C* g4 c# O4 y$ M0 p# E3 O / j' x( C3 M6 Y0 C, s* F
Copy_Start: ;数据复制开始4 b: g3 R; l5 E# a6 o
LDA (Addr_From_Start),Y ;读取源地址# t+ Q' {" s8 M; x. q
STA (Addr_Data_TO),Y ;写入目的地址
# f+ l: C0 r I; m; G; TCopy_INC_From: ;源地址低位递增$ i( c- o: x# L
INC Addr_From_Start ;源地址低位递增7 q! F: B5 D0 S) j; I
BNE Copy_INC_TO% K2 v1 ^ e' e$ H
INC Addr_From_Start+1 ;源地址高位递增
9 E9 K2 u9 n1 v: @9 DCopy_INC_TO: ;源地址高位递增2 r( {. ]8 \) _' ~+ m1 X
INC Addr_Data_TO ;目的地址低位递增
4 \2 J$ }+ ^, x1 b2 b BNE Recopy3 i; j3 S. C9 n7 v# D- @" K
INC Addr_Data_TO+1 ;目的地址高位递增$ ~4 c& q/ w, I3 l( Z" Q7 m* g
Recopy:
. c) ?1 V+ Q% k9 O- \1 ^: u `/ F JMP Copy_JMP3 L2 f* ^$ Z) G* w
0 a, Q. C( h l* K% JCopy_JMP:
- R# A* q B6 o2 I" [: ~/ x JMP Copy_Over_Cmp
& g* O2 z3 i6 O8 g$ ]# y5 m# g+ W. i1 }* \; o, w; e
Copy_Over: ;复制完成
, `) Q+ h9 Y/ W1 w$ d7 U8 e! e4 C LDA #Data_Over. `; R2 y& P8 V K) i5 J
STA Flag_Over ;写入完成标志- P7 Q- r) \3 |8 x
FINAL_BYTE:; r+ A. z; z' H7 A
LDA (Addr_From_Start),Y ;读取最后一个字节; \* w: C& b5 E- e) y
STA (Addr_Data_TO),Y ;写入最后一个字节
& Q5 D! `2 \1 `2 V1 ^4 Y & j$ d2 l' z/ e% Y- c0 Q' M
Data_Copy_Exact: ;恢复数据
! K& w K8 W" e& A+ @. r6 @ PLA
]& ]7 \1 ^* A4 M STA Addr_From_End+1. a& ]7 r" w1 ~ B/ s
PLA9 k1 n% L. C3 p. w" l% a5 r* E% S
STA Addr_From_End
: Z" o- y" O5 j* e. L; N3 I; k PLA" J/ r5 a; h0 j' Y% _, }
STA Addr_From_Start+1
" j# g, M3 \3 V PLA/ s4 x- X1 d5 `6 @. D
STA Addr_From_Start# h9 J" T3 E- n6 q
PLA" \% W; E* _6 G( {0 e" H5 T
STA Addr_Data_TO+18 Q1 L4 J7 k2 |6 k9 W* m1 t6 d
PLA( }/ b8 V/ ~6 }% \) p
STA Addr_Data_TO
! R, h: J6 A. s+ [( {9 c PLA& O& u# z# W6 E* p, x& R4 a! F& Z
TAY. t7 e9 h: s. e. g
PLA. z! w$ j% G1 `
TAX
% N& ^0 `4 b, V$ f PLA
/ c! y U4 G B" U( e0 j* P: r4 c: B
7 W; H' F3 E' L EData_Copy_Return:! n3 f: e. R4 [$ H3 z8 C# G# a
JSR Rec_INT ;跳转到恢复软件中断数据
3 z c- V" ]& v+ g) Q2 ~4 c, ] RTS* l: }0 u( [& d# W$ a0 i
2 \6 t1 @1 ~, v% K' K9 ~; Z. ]Off_INT: ;禁用软件中断8 z) s& l5 e2 ~, i8 n* J
LDA INT_Addr
! o4 d2 U# {3 I# q$ P4 A AND #$7F
7 }6 J, S6 P) k9 z2 O2 P3 j STA 2000
$ r" b, \& m# ?" O RTS
; O6 ?' n! Q3 a
! G* B* C- a* P m( N+ W$ sRec_INT: ;恢复软件中断数据
$ H- \# G( H/ J$ z# m8 M LDA INT_Addr
$ v; W9 L" U/ [- S% R- R5 d# n+ i STA 2000! H, \$ K d7 u- `1 t
RTS |
|
IP卡
狗仔卡
发表于 2017-3-30 20:32:50
提升卡
置顶卡
变色卡
显身卡
楼主