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

   1 ;
   2 ; Ullrich von Bassewitz, 25.10.2000
   3 ;
   4 ; CC65 runtime: Store a indirect into address at top of stack
   5 ;
   6
   7         .export         staspp
   8         .import         incsp2
   9         .importzp       sp, ptr1
  10
  11 .proc   staspp
  12
  13         ldy     #1
  14         pha
  15         lda     (sp),y
  16         sta     ptr1+1
  17         dey
  18         lda     (sp),y
  19         sta     ptr1
  20         pla
  21         sta     (ptr1),y
  22         jmp     incsp2          ; Drop address
  23
  24 .endproc
  25
  26