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

   1 ;
   2 ; Ullrich von Bassewitz, 31.08.1998
   3 ;
   4 ; CC65 runtime: Load a from offset in stack
   5 ;
   6
   7         .export         ldasp, ldaysp
   8         .importzp       sp
   9
  10 ldasp:  ldy     #0
  11 ldaysp: ldx     #0
  12         lda     (sp),y
  13         bpl     L9              ; Jump if positive
  14         dex
  15 L9:     rts
  16
  17