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

   1 ;
   2 ; Ullrich von Bassewitz, 21.08.1998
   3 ;
   4 ; CC65 runtime: Load effective address with offset in A relative to SP and push it
   5 ;
   6
   7         .export         pleaasp
   8         .import         pushax
   9         .importzp       sp
  10
  11 .proc   pleaasp
  12
  13         ldx     sp+1            ; Get high byte
  14         clc
  15         adc     sp
  16         bcc     @L9
  17         inx
  18 @L9:    jmp     pushax
  19
  20 .endproc
  21
  22
  23