git.sur5r.net Git - cc65/blob - libsrc/geos-common/memory/doublespop.s

   1 ;
   2 ; Maciej 'YTM/Elysium' Witkowiak
   3 ;
   4 ; 22.12.99, 29.07.2000
   5
   6             .import popax
   7             .importzp ptr3, ptr4
   8             .export DoubleSPop
   9             .export SetPtrXY
  10
  11             .include "geossym.inc"
  12
  13 DoubleSPop:
  14         sta ptr4
  15         stx ptr4+1
  16         jsr popax
  17         sta ptr3
  18         stx ptr3+1
  19 ;       rts
  20 ;
  21 ; SetPtrXY can be sometimes executed twice, but even this way it is few cycles
  22 ; faster...
  23
  24 SetPtrXY:
  25         ldx #ptr4
  26         ldy #ptr3
  27         rts