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

   1 ;
   2 ; Ullrich von Bassewitz, 25.10.2000
   3 ;
   4 ; CC65 runtime: Decrement the stackpointer by 2
   5 ;
   6
   7         .export         decsp2
   8         .importzp       sp
   9
  10 .proc   decsp2
  11
  12         ldy     sp
  13         beq     @L1
  14         dey
  15         beq     @L2
  16         dey
  17         sty     sp
  18         rts
  19
  20 @L1:    dey
  21 @L2:    dey
  22         sty     sp
  23         dec     sp+1
  24         rts
  25
  26 .endproc
  27
  28
  29
  30
  31