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

   1 ;
   2 ; Ullrich von Bassewitz, 06.08.1998
   3 ;
   4 ; CC65 runtime: long push
   5 ;
   6
   7 ;
   8 ; push eax on stack
   9 ;
  10         .export         push0ax, pusheax
  11         .import         decsp4
  12         .importzp       sp, sreg
  13
  14 push0ax:
  15         ldy     #0
  16         sty     sreg
  17         sty     sreg+1
  18 pusheax:
  19         jsr     decsp4
  20         pha
  21         ldy     #0
  22         sta     (sp),y
  23         iny
  24         txa
  25         sta     (sp),y
  26         iny
  27         lda     sreg
  28         sta     (sp),y
  29         iny
  30         lda     sreg+1
  31         sta     (sp),y
  32         pla
  33         rts
  34