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 .proc   tgi_popxy
  13
  14         sta     ptr2            ; Y
  15         stx     ptr2+1
  16         jsr     popax
  17         sta     ptr1            ; X
  18         stx     ptr1+1
  19         rts
  20
  21 .endproc
  22