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

   1 ;
   2 ; Ullrich von Bassewitz, 25.10.2000
   3 ;
   4 ; CC65 runtime: Decrement the stackpointer by 1
   5 ;
   6
   7         .export         decsp1
   8         .importzp       sp
   9
  10 .proc   decsp1
  11
  12         ldy     sp
  13         bne     @L1
  14         dec     sp+1
  15 @L1:    dec     sp
  16         rts
  17
  18 .endproc
  19
  20
  21
  22
  23