Added mouse module from C64

[cc65] / libsrc / runtime / leasp.s

diff --git a/libsrc/runtime/leasp.s b/libsrc/runtime/leasp.s
index 4f9320881b2f4fc557d40e54895b27de309d6e88..5dcdc9d1491859f85c237068fccf49df716bc158 100644 (file)
--- a/libsrc/runtime/leasp.s
+++ b/libsrc/runtime/leasp.s
@@ -1,31 +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, plea0sp, pleaysp
-       .import         pushax
-       .importzp       sp
+       .export         leaasp
+       .importzp       sp
 
-leaasp:        ldx     sp+1            ; Get high byte
-       clc
-       adc     sp
-       bcc     @L1
-       inx
-@L1:   rts
-
-
-plea0sp:
-       ldy     #0
-pleaysp:
-       tya
-       ldx     sp+1            ; Get high byte
-       clc
-       adc     sp
-       bcc     L9
-       inx
-L9:    jmp     pushax
+.proc  leaasp
 
+       ldx     sp+1            ; Get high byte
+       clc
+       adc     sp
+       bcc     @L9
+       inx
+@L9:   rts
 
+.endproc