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

   1 ;
   2 ; Ullrich von Bassewitz, 22.06.1998
   3 ;
   4 ; CC65 runtime: Push a long from somewhere in the stack
   5 ;
   6
   7
   8         .export         pushlysp
   9         .import         pusheax
  10         .importzp       sreg, sp
  11
  12 .proc   pushlysp
  13
  14         iny
  15         iny
  16         lda     (sp),y
  17         iny
  18         sta     sreg
  19         lda     (sp),y
  20         sta     sreg+1
  21         dey
  22         dey
  23         lda     (sp),y
  24         dey
  25         tax
  26         lda     (sp),y
  27         jmp     pusheax
  28
  29 .endproc
  30
  31