6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 04:30:10 +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.
.import popax, pusheax, staspic
.importzp sp, sreg, tmp2, ptr1
.import popax, pusheax
.importzp sp, sreg, tmp1, tmp2, tmp3, ptr1
;
; leax (sp),y
@ -53,7 +53,7 @@ pushlysp:
;
; eax --> ((sp)); pop
;
.export steaxspp
.export steaxspp
steaxspp:
pha
@ -80,11 +80,18 @@ steaxspp:
;
; eax --> ((sp)),y
;
.export steaxspidx
.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