the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed an error and improved the code

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3317 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2004-11-30 18:47:25 +00:00
parent e506719f43
commit 08074a2ee3
1 changed files with 34 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
libsrc/common/_swap.s
View File

@@ -1,62 +1,55 @@
; ;
; Ullrich von Bassewitz, 09.12.1998 ; Ullrich von Bassewitz, 1998-12-09, 2004-11-30
; ;
; void __fastcall__ _swap (void* p, void* q, size_t size); ; void __fastcall__ _swap (void* p, void* q, size_t size);
; ;
.export __swap .export __swap
.import popax .import popax
.importzp ptr1, ptr2, ptr3 .importzp ptr1, ptr2, ptr3
__swap: sta ptr3 ; Save size __swap: eor #$FF
stx ptr3+1 sta ptr3
txa
eor #$FF
sta ptr3+1 ; Save -(size+1) into ptr3
jsr popax ; Get q jsr popax ; Get q
sta ptr2 sta ptr2
stx ptr2+1 stx ptr2+1
jsr popax ; Get p jsr popax ; Get p
sta ptr1 sta ptr1
stx ptr1+1 stx ptr1+1
; Prepare for swap ; Prepare for swap
ldy #$00 ldy #$00
; Swap 256 byte blocks ; Swap loop
ldx ptr3+1 @L1: inc ptr3 ; Bump counter low byte
beq @L2 beq @L3 ; Branch on overflow
@L1: lda (ptr1),y @L2: lda (ptr1),y
tax tax
lda (ptr2),y lda (ptr2),y
sta (ptr1),y sta (ptr1),y
txa txa
sta (ptr2),y sta (ptr2),y
iny iny
bne @L1 bne @L1
dec ptr3+1 inc ptr1+1
bne @L1 inc ptr2+1
bne @L1 ; Branch always (hopefully)
; Swap remaining bytes (Y is zero) ; Bump the high counter byte
@L2: ldx ptr3 @L3: inc ptr3+1
beq @L9 bne @L2
@L3: lda (ptr1),y
tax
lda (ptr2),y
sta (ptr1),y
txa
sta (ptr2),y
iny
dec ptr3
bne @L3
; Done ; Done
@L9: rts rts