1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 04:30:10 +00:00

Replaced missing routine, fixed a bug

git-svn-id: svn://svn.cc65.org/cc65/trunk@426 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2000-10-31 19:17:01 +00:00
parent acdadf8695
commit 8f83a48602

View File

@ -6,8 +6,8 @@
; Runtime support for longs.
.import popax, pusheax, staspic
.importzp sp, sreg, tmp2, ptr1
.import popax, pusheax
.importzp sp, sreg, tmp1, tmp2, tmp3, ptr1
;
; leax (sp),y
@ -83,8 +83,15 @@ steaxspp:
.export steaxspidx
steaxspidx:
jsr staspic ; Get pointer, store a
pha
sta tmp1
stx tmp2
sty tmp3
jsr popax ; get the pointer
sta ptr1
stx ptr1+1
ldy tmp3
lda tmp1
sta (ptr1),y
iny
lda tmp2
sta (ptr1),y
@ -95,6 +102,6 @@ steaxspidx:
iny
lda sreg+1
sta (ptr1),y
pla
lda tmp1
rts