Fixed formatting and two import issues.
This commit is contained in:
parent
c95ed4b8b5
commit
911b86de67
3 changed files with 9 additions and 15 deletions
|
@ -5,7 +5,7 @@
|
||||||
;
|
;
|
||||||
|
|
||||||
.export _memchr
|
.export _memchr
|
||||||
.import popax, popptr1 return0
|
.import popax, popptr1, return0
|
||||||
.importzp ptr1, ptr2
|
.importzp ptr1, ptr2
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -5,7 +5,7 @@
|
||||||
;
|
;
|
||||||
|
|
||||||
.export _strncpy
|
.export _strncpy
|
||||||
.import popptr1
|
.import popax, popptr1
|
||||||
.importzp ptr1, ptr2, tmp1, tmp2, tmp3
|
.importzp ptr1, ptr2, tmp1, tmp2, tmp3
|
||||||
|
|
||||||
.proc _strncpy
|
.proc _strncpy
|
||||||
|
|
|
@ -5,25 +5,19 @@
|
||||||
; X is untouched, low byte in A, Y is defined to be 0!
|
; X is untouched, low byte in A, Y is defined to be 0!
|
||||||
|
|
||||||
.export popptr1
|
.export popptr1
|
||||||
.import incsp2
|
.import incsp2
|
||||||
.importzp sp, ptr1
|
.importzp sp, ptr1
|
||||||
|
|
||||||
.macpack cpu
|
.macpack cpu
|
||||||
|
|
||||||
.proc popptr1 ; 14 bytes,
|
|
||||||
|
|
||||||
|
.proc popptr1 ; 14 bytes (four usages = at least 2 bytes saved)
|
||||||
ldy #1
|
ldy #1
|
||||||
lda (sp),y ; get hi byte
|
lda (sp),y ; get hi byte
|
||||||
sta ptr+1 ; into ptr hi
|
sta ptr1+1 ; into ptr hi
|
||||||
dey ; note: apply even for 65C02 to have Y=0 at exit!
|
dey ; no optimization for 65C02 here to have Y=0 at exit!
|
||||||
.if (.cpu .bitand ::CPU_ISET_65SC02)
|
|
||||||
lda (sp) ; get lo byte
|
|
||||||
.else
|
|
||||||
lda (sp),y ; get lo byte
|
lda (sp),y ; get lo byte
|
||||||
.endif
|
sta ptr1 ; to ptr lo
|
||||||
sta ptr1 ; to ptr lo
|
jmp incsp2
|
||||||
|
|
||||||
jmp incsp2
|
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue