git.sur5r.net Git - cc65/blob - libsrc/tgi/tgi_popxy.s

   1 ;
   2 ; Ullrich von Bassewitz, 02.10.2002
   3 ;
   4 ; Helper function for tgi functions. Pops X/Y from stack into ptr1/ptr2
   5 ;
   6
   7         .include        "tgi-kernel.inc"
   8
   9         .import         popax
  10         .importzp       ptr1, ptr2
  11
  12 tgi_popxy:
  13         sta     ptr2            ; Y
  14         stx     ptr2+1
  15         jsr     popax
  16         sta     ptr1            ; X
  17         stx     ptr1+1
  18         rts
  19
  20