Module split

git-svn-id: svn://svn.cc65.org/cc65/trunk@423 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2000-10-31 18:57:00 +00:00
parent 12026ee98a
commit 4680e36ad0
3 changed files with 32 additions and 16 deletions

View file

@ -125,6 +125,7 @@ OBJS = add.o \
ne.o \
neg.o \
or.o \
pleasp.o \
popa.o \
popsreg.o \
push1.o \

View file

@ -1,28 +1,20 @@
;
; Ullrich von Bassewitz, 21.08.1998
;
; CC65 runtime: Load effective address with offset in Y relative to SP
; CC65 runtime: Load effective address with offset in A relative to SP
;
.export leaasp, pleaasp
.import pushax
.export leaasp
.importzp sp
leaasp: ldx sp+1 ; Get high byte
.proc leaasp
ldx sp+1 ; Get high byte
clc
adc sp
bcc @L1
bcc @L9
inx
@L1: rts
pleaasp:
ldx sp+1 ; Get high byte
clc
adc sp
bcc L9
inx
L9: jmp pushax
@L9: rts
.endproc

23
libsrc/runtime/pleasp.s Normal file
View file

@ -0,0 +1,23 @@
;
; Ullrich von Bassewitz, 21.08.1998
;
; CC65 runtime: Load effective address with offset in A relative to SP and pus it
;
.export pleaasp
.import pushax
.importzp sp
.proc pleaasp
ldx sp+1 ; Get high byte
clc
adc sp
bcc @L9
inx
@L9: jmp pushax
.endproc