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

   1 ;
   2 ; Ullrich von Bassewitz, 29.12.1999
   3 ;
   4 ; CC65 runtime: long pop
   5 ;
   6
   7         .export         popeax
   8         .import         incsp4
   9         .importzp       sp, sreg
  10
  11
  12 popeax: ldy     #3
  13         lda     (sp),y
  14         sta     sreg+1
  15         dey
  16         lda     (sp),y
  17         sta     sreg
  18         dey
  19         lda     (sp),y
  20         tax
  21         dey
  22         lda     (sp),y
  23         jmp     incsp4
  24
  25