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

   1 ;
   2 ; Ullrich von Bassewitz, 26.10.2000
   3 ;
   4 ; CC65 runtime: Push value in a onto the stack
   5 ;
   6
   7         .export         pushaysp, pusha
   8         .importzp       sp
   9
  10 ; Beware: The optimizer knows about this function!
  11
  12 pushaysp:
  13         lda     (sp),y
  14 pusha:  ldy     sp
  15         beq     @L1
  16         dec     sp
  17         ldy     #0
  18         sta     (sp),y
  19         rts
  20
  21 @L1:    dec     sp+1
  22         dec     sp
  23         sta     (sp),y
  24         rts
  25