Bug fixes from Maciej and Dirk

git-svn-id: svn://svn.cc65.org/cc65/trunk@235 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2000-07-30 09:28:54 +00:00
parent 47d9d11fc9
commit dcb557517e
3 changed files with 19 additions and 10 deletions

View file

@ -1,12 +1,12 @@
; ;
; Maciej 'YTM/Alliance' Witkowiak ; Maciej 'YTM/Elysium' Witkowiak
; ;
; 22.12.99 ; 22.12.99, 29.07.2000
; void CmpFString (char length, char *dest, char* source); ; void CmpFString (char length, char *dest, char* source);
.import DoubleSPop .import DoubleSPop, SetPtrXY
.import popa .import popa
.export _CmpFString .export _CmpFString
@ -15,4 +15,5 @@
_CmpFString: _CmpFString:
jsr DoubleSPop jsr DoubleSPop
jsr popa jsr popa
jsr SetPtrXY
jmp CmpFString jmp CmpFString

View file

@ -1,12 +1,12 @@
; ;
; Maciej 'YTM/Alliance' Witkowiak ; Maciej 'YTM/Elysium' Witkowiak
; ;
; 22.12.99 ; 22.12.99, 29.07.2000
; void CopyFString (char length, char *dest, char* source); ; void CopyFString (char length, char *dest, char* source);
.import DoubleSPop .import DoubleSPop, SetPtrXY
.import popa .import popa
.export _CopyFString .export _CopyFString
@ -15,4 +15,5 @@
_CopyFString: _CopyFString:
jsr DoubleSPop jsr DoubleSPop
jsr popa jsr popa
jsr SetPtrXY
jmp CopyFString jmp CopyFString

View file

@ -1,12 +1,13 @@
; ;
; Maciej 'YTM/Alliance' Witkowiak ; Maciej 'YTM/Elysium' Witkowiak
; ;
; 22.12.99 ; 22.12.99, 29.07.2000
.import popax .import popax
.importzp ptr3, ptr4 .importzp ptr3, ptr4
.export DoubleSPop .export DoubleSPop
.export SetPtrXY
.include "../inc/geossym.inc" .include "../inc/geossym.inc"
@ -16,6 +17,12 @@ DoubleSPop:
jsr popax jsr popax
sta ptr3 sta ptr3
stx ptr3+1 stx ptr3+1
lda #ptr4 ; rts
ldx #ptr3 ;
; SetPtrXY can be sometimes executed twice, but even this way it is few cycles
; faster...
SetPtrXY:
ldx #ptr4
ldy #ptr3
rts rts