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

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