Module split
git-svn-id: svn://svn.cc65.org/cc65/trunk@423 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
12026ee98a
commit
4680e36ad0
3 changed files with 32 additions and 16 deletions
|
@ -125,6 +125,7 @@ OBJS = add.o \
|
|||
ne.o \
|
||||
neg.o \
|
||||
or.o \
|
||||
pleasp.o \
|
||||
popa.o \
|
||||
popsreg.o \
|
||||
push1.o \
|
||||
|
|
|
@ -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
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
|
||||
|
||||
|
||||
|
Loading…
Add table
Reference in a new issue