git.sur5r.net Git - cc65/blob - libsrc/runtime/subysp.s

   1 ;
   2 ; Piotr Fusik, 24.10.2003
   3 ; originally by Ullrich von Bassewitz
   4 ;
   5 ; CC65 runtime: Decrement the stackpointer by value in y
   6 ;
   7
   8         .export         subysp
   9         .importzp       sp
  10
  11 .proc   subysp
  12
  13         tya
  14         eor     #$ff
  15         sec
  16         adc     sp
  17         sta     sp
  18         bcs     @L1
  19         dec     sp+1
  20 @L1:    rts
  21
  22 .endproc
  23
  24