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

   1 ;
   2 ; Ullrich von Bassewitz, 25.10.2000
   3 ;
   4 ; CC65 runtime: Decrement the stackpointer by 7
   5 ;
   6
   7         .export         decsp7
   8         .importzp       sp
   9
  10 .proc   decsp7
  11
  12         lda     sp
  13         sec
  14         sbc     #7
  15         sta     sp
  16         bcc     @L1
  17         rts
  18
  19 @L1:    dec     sp+1
  20         rts
  21
  22 .endproc
  23
  24
  25