Module split
git-svn-id: svn://svn.cc65.org/cc65/trunk@423 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
@@ -125,6 +125,7 @@ OBJS = add.o \
|
|||||||
ne.o \
|
ne.o \
|
||||||
neg.o \
|
neg.o \
|
||||||
or.o \
|
or.o \
|
||||||
|
pleasp.o \
|
||||||
popa.o \
|
popa.o \
|
||||||
popsreg.o \
|
popsreg.o \
|
||||||
push1.o \
|
push1.o \
|
||||||
|
|||||||
@@ -1,28 +1,20 @@
|
|||||||
;
|
;
|
||||||
; Ullrich von Bassewitz, 21.08.1998
|
; 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
|
.export leaasp
|
||||||
.import pushax
|
|
||||||
.importzp sp
|
.importzp sp
|
||||||
|
|
||||||
leaasp: ldx sp+1 ; Get high byte
|
.proc leaasp
|
||||||
|
|
||||||
|
ldx sp+1 ; Get high byte
|
||||||
clc
|
clc
|
||||||
adc sp
|
adc sp
|
||||||
bcc @L1
|
bcc @L9
|
||||||
inx
|
inx
|
||||||
@L1: rts
|
@L9: rts
|
||||||
|
|
||||||
|
|
||||||
pleaasp:
|
|
||||||
ldx sp+1 ; Get high byte
|
|
||||||
clc
|
|
||||||
adc sp
|
|
||||||
bcc L9
|
|
||||||
inx
|
|
||||||
L9: jmp pushax
|
|
||||||
|
|
||||||
|
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
|||||||
23
libsrc/runtime/pleasp.s
Normal file
23
libsrc/runtime/pleasp.s
Normal 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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Reference in New Issue
Block a user