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

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