git.sur5r.net Git - cc65/blob - libsrc/runtime/leaysp.s

   1 ;
   2 ; Ullrich von Bassewitz, 21.08.1998
   3 ;
   4 ; CC65 runtime: Load effective address with offset in Y relative to SP
   5 ;
   6
   7         .export         lea0sp, leaysp, plea0sp, pleaysp
   8         .import         pushax
   9         .importzp       sp
  10
  11 lea0sp: ldy     #0              ; Load offset zero
  12 leaysp: tya
  13         ldx     sp+1            ; Get high byte
  14         clc
  15         adc     sp
  16         bcc     L8
  17         inx
  18 L8:     rts
  19
  20
  21 plea0sp:
  22         ldy     #0
  23 pleaysp:
  24         tya
  25         ldx     sp+1            ; Get high byte
  26         clc
  27         adc     sp
  28         bcc     L9
  29         inx
  30 L9:     jmp     pushax
  31
  32
  33