[FC][数据搬移程序]

yandagui

;[FC][任意数据搬移到$6000-$7FFF] BY FlameCyclone
1 {  V( B4 B1 S0 G- O, t ;2017.4.28
; L; k% G: N- k- @5 W, \ ;例子:双截龙3
% {8 |+ i8 L, t+ E" k$ [$ W# A: t .ORG $8100    ;定义程序开始地址
JMP Copy_Data_Start    ;跳转到复制程序

7 E, {; j- H" ~9 w. h% S$ j6 DAddr_To:    ;目的写入地址
.BYTE $00,$70    ;想要复制到的地方
Add_Begin:    ;源开始数据地址
.BYTE $00,$82    ;想要从何处开始复制
Addr_End:    ;源结束数据地址
.BYTE $EE,$91    ;想要从何处结束复制

- a5 i+ }, h! @) G2 ^, @4 T3 ]2 f& K+ jINT_Addr = $A0    ;中断地址
Flag_Over = $7FFF    ;完成标志地址
Data_Over = $7F      ;完成标志
% L. l5 A5 g( ?2 O3 H) S# k6 n2 J# ?
  D% T& L& ]2 _; B3 O
Addr_Data_TO = $A0    ;目的写入地址
: W3 s. E3 @7 B% E( Q, oAddr_From_Start = $A2    ;源开始读取地址
/ q, J6 W0 Q, D0 I, l) ^9 cAddr_From_End = $A4    ;源结束读取地址

Copy_Data_Start:
( l2 e# n0 Q) Q% r0 z+ d/ lData_Copy_Protect:    ;保护数据
PHA
9 k8 }6 D! A4 x* c! S TXA
PHA
TYA
- P$ G- n& f4 X( s* K PHA
JSR Off_INT    ;跳转到禁用软件中断
LDA Addr_Data_TO
* q4 P/ V& a+ [% M, G% k PHA
9 J0 @7 [( i; N, x8 H- j+ h2 E LDA Addr_Data_TO+1
PHA
LDA Addr_From_Start
) R% r; Q% e$ O3 _' ^5 d3 B  W PHA
3 }) w  _( K6 u- d, k, \1 N& ?  C0 [ LDA Addr_From_Start+1
PHA
LDA Addr_From_End
PHA
LDA Addr_From_End+1
PHA


* V; P4 W5 N. B  G5 @Set_Data_Addr_Start:    ;设置复制起始地址
LDA Add_Begin
STA Addr_From_Start    ;设置复制起始地址低位
- j1 u, J: }) n7 G+ Y0 c LDA Add_Begin+1
STA Addr_From_Start+1    ;设置复制起始地址高位

Set_Data_Addr_End:    ;设置复制结束地址
LDA Addr_End
. m9 y6 W. ~! y4 Q STA Addr_From_End    ;设置复制结束地址低位
$ U: N3 J% o. H5 c# e4 P LDA Addr_End+1
STA Addr_From_End+1    ;设置复制结束地址高位
. P  R5 f( j' _) ~3 }7 A% h! l0 l
Set_Data_Copy_Start:   ;设置目的起始地址
$ ~- ]+ H, ^. j1 H LDA Addr_To
. F5 ~/ A5 }; C STA Addr_Data_TO   ;设置目的起始地址低位
5 ]$ C1 N) x5 c. Y LDA Addr_To+1
2 [5 G- R: D3 i STA Addr_Data_TO+1   ;设置目的起始地址高位

) a0 g, v7 d$ p9 z. W% HOver_Copy_Cmp:    ;复制完成比较
2 \% L8 Y, ^) L! Y LDA Flag_Over
CMP #Data_Over    ;复制完成标志比较
BEQ Data_Copy_Exact

INI_XY_Count:   ;计数器初始化
( {  ?6 M: \/ e  R# O LDX #$00
! F' M$ N, U3 o" l! K) M LDY #$00

Copy_Over_Cmp:    ;地址比较
Cmp_Addr_Data_TO:    ;写入目的地址越界判断(向$6000前写入)
LDA Addr_Data_TO+1
CMP #$60
BCC Data_Copy_Exact    ;写入目的地址小于$6000时结束复制
Cmp_Addr_Data_TO_H:    ;写入目的地址越界判断(向$7FFF后写入)
  }& y+ D4 Z8 y( \ LDA Addr_Data_TO+1
0 r" k8 v8 @" C CMP #$80
BEQ Data_Copy_Exact    ;写入目的地址大于$7FFF时结束复制
6 r( T  n# P2 z- y9 o, G
+ M* o1 q4 l$ jCmp_Copy_FREE:     ;源地址结束判断
LDA Addr_From_Start
  v; C/ r7 D1 C( w CMP Addr_From_End
BNE Copy_Start
LDA Addr_From_Start+1
& O$ W1 G- S$ B* U& c+ n4 [ CMP Addr_From_End+1
BEQ Copy_Over

Copy_Start:    ;数据复制开始
' h: o9 \7 ]2 N& f: X0 p LDA (Addr_From_Start),Y    ;读取源地址
9 E0 ?" _0 X, y3 T7 R STA (Addr_Data_TO),Y    ;写入目的地址
$ N6 m* V  ?7 `  d' JCopy_INC_From:     ;源地址低位递增
4 F: w* S* h& Q5 K8 A! J3 _9 K8 A8 h INC Addr_From_Start   ;源地址低位递增
BNE Copy_INC_TO
INC Addr_From_Start+1   ;源地址高位递增
Copy_INC_TO:     ;源地址高位递增
INC Addr_Data_TO   ;目的地址低位递增
9 A* q! O% Z; y) M9 @- u' \ BNE Recopy
INC Addr_Data_TO+1   ;目的地址高位递增
$ e* S) V8 @0 p. K5 ]Recopy:
# D$ Q  T( O- a% G8 Z9 F7 J JMP Copy_JMP

" c) T. z3 ?9 Q0 wCopy_JMP:   
: T+ c. Z$ L/ s+ s# {* g JMP Copy_Over_Cmp

Copy_Over:    ;复制完成
LDA #Data_Over
STA Flag_Over    ;写入完成标志
6 _) S; c$ \' C& g7 |; [FINAL_BYTE:
5 z; N  m  N2 T- B3 N+ a( g2 P9 k LDA (Addr_From_Start),Y    ;读取最后一个字节
) w  `$ m) V6 k- z1 M( I STA (Addr_Data_TO),Y    ;写入最后一个字节

Data_Copy_Exact:    ;恢复数据
PLA
6 U1 F0 K$ M3 M STA Addr_From_End+1
PLA
STA Addr_From_End
( e/ D/ g5 B0 y PLA
& w( e' h( Z& r5 c3 j( ~# y STA Addr_From_Start+1
PLA
0 d% V8 i4 M, q: u, u. h* L& D STA Addr_From_Start
PLA
+ {, Z! {8 @/ D( W STA Addr_Data_TO+1
$ B4 e" h  K2 J# Z9 N6 d" N/ `' I PLA
STA Addr_Data_TO
4 x' h* x* @1 z- M4 Q PLA
TAY
7 k! m& `, k  t/ d PLA
TAX
PLA
& u0 b2 z) n' Z) `  a
( N) P" O6 T5 o+ X; L) @- }- t5 RData_Copy_Return:
0 g5 E, Y4 u2 D  o( s, ~2 i) y JSR Rec_INT    ;跳转到恢复软件中断数据
; x+ C3 P! A! K8 O* o; M RTS
3 `* t8 d; g9 z; ~
8 x7 R, A. {7 x  s+ @Off_INT:    ;禁用软件中断
LDA INT_Addr
AND #$7F
STA 2000
RTS

Rec_INT:    ;恢复软件中断数据
LDA INT_Addr
3 t0 `& ~' l0 a- E; C$ [1 w STA 2000
RTS

afti

感谢楼主分享教程！

曹的爽

谢谢楼主分享！

yandagui

程序更新