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

   1 ;
   2 ; Ullrich von Bassewitz, 31.08.1998
   3 ;
   4 ; CC65 runtime: Store eax at (sp),y
   5 ;
   6
   7         .export         steaxysp, steax0sp
   8         .importzp       sp, sreg
   9
  10 steax0sp:
  11         ldy     #0
  12 steaxysp:
  13         sta     (sp),y
  14         iny
  15         pha
  16         txa
  17         sta     (sp),y
  18         iny
  19         lda     sreg
  20         sta     (sp),y
  21         iny
  22         lda     sreg+1
  23         sta     (sp),y
  24         pla
  25         rts
  26
  27