6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-10 19:29:45 +00:00
Code Issues Projects Releases Wiki Activity

Replaced missing routine, fixed a bug

Browse Source 
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
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
libsrc/runtime/lruntime.s
View File

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