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

   1 ;
   2 ; Ullrich von Bassewitz, 06.08.1998
   3 ;
   4 ; CC65 runtime: swap ax with TOS
   5 ;
   6
   7         .export         swapstk
   8         .importzp       sp, ptr4
   9
  10 swapstk:
  11         sta     ptr4
  12         stx     ptr4+1
  13         ldy     #1              ; index
  14         lda     (sp),y
  15         tax
  16         lda     ptr4+1
  17         sta     (sp),y
  18         dey
  19         lda     (sp),y
  20         pha
  21         lda     ptr4
  22         sta     (sp),y
  23         pla
  24         rts                     ; whew!
  25