This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches.


git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/common/copydata.s

@@ -0,0 +1,53 @@
+;
+; Ullrich von Bassewitz, 07.12.1998
+;
+; Copy the data segment from the LOAD to the RUN location
+;
+
+	.export		copydata
+	.import		__DATA_LOAD__, __DATA_RUN__, __DATA_SIZE__
+	.importzp	ptr1, ptr2
+
+
+copydata:
+	lda    	#<__DATA_LOAD__	; Source pointer
+	sta	ptr1
+	lda	#>__DATA_LOAD__
+	sta	ptr1+1
+
+	lda	#<__DATA_RUN__	; Target pointer
+	sta	ptr2
+	lda	#>__DATA_RUN__
+	sta	ptr2+1
+
+	ldy	#$00
+	ldx	#>__DATA_SIZE__	; Get page count
+	beq	@L2 		; No full pages
+
+; Copy full pages
+
+@L1:	lda	(ptr1),y
+    	sta	(ptr2),y
+    	iny
+    	bne	@L1
+	inc	ptr1+1
+	inc	ptr2+2		; Bump pointers
+    	dex
+	bne	@L1
+
+; Copy last page (remember: y contains zero)
+
+@L2:	ldx	#<__DATA_SIZE__	; Get remaining bytes
+    	beq	@L4
+	   
+@L3:	lda	(ptr1),y
+    	sta	(ptr2),y
+    	iny
+    	dex
+    	bne	@L3
+
+; Done
+
+@L4:	rts
+
+