From 4680e36ad0673f492d273a23c2eac76fb6642539 Mon Sep 17 00:00:00 2001 From: cuz Date: Tue, 31 Oct 2000 18:57:00 +0000 Subject: [PATCH] Module split git-svn-id: svn://svn.cc65.org/cc65/trunk@423 b7a2c559-68d2-44c3-8de9-860c34a00d81 --- libsrc/runtime/Makefile | 1 + libsrc/runtime/leasp.s | 24 ++++++++---------------- libsrc/runtime/pleasp.s | 23 +++++++++++++++++++++++ 3 files changed, 32 insertions(+), 16 deletions(-) create mode 100644 libsrc/runtime/pleasp.s diff --git a/libsrc/runtime/Makefile b/libsrc/runtime/Makefile index 7ed299804..98f703160 100644 --- a/libsrc/runtime/Makefile +++ b/libsrc/runtime/Makefile @@ -125,6 +125,7 @@ OBJS = add.o \ ne.o \ neg.o \ or.o \ + pleasp.o \ popa.o \ popsreg.o \ push1.o \ diff --git a/libsrc/runtime/leasp.s b/libsrc/runtime/leasp.s index 5ec86d3ef..5dcdc9d14 100644 --- a/libsrc/runtime/leasp.s +++ b/libsrc/runtime/leasp.s @@ -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 diff --git a/libsrc/runtime/pleasp.s b/libsrc/runtime/pleasp.s new file mode 100644 index 000000000..183ce21fe --- /dev/null +++ b/libsrc/runtime/pleasp.s @@ -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 + + + -- 2.39.5