added sleep() implementation

[cc65] / libsrc / runtime / leasp.s

diff --git a/libsrc/runtime/leasp.s b/libsrc/runtime/leasp.s
index bd3f3ff19217597d1bf6192ad8f8d23a0902f566..5dcdc9d1491859f85c237068fccf49df716bc158 100644 (file)
--- 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, pleaysp
-       .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