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

   1 ;
   2 ; Ullrich von Bassewitz, 25.10.2000
   3 ;
   4 ; CC65 runtime: Decrement the stackpointer by value in y
   5 ;
   6
   7         .export         subysp
   8         .importzp       sp, tmp1
   9
  10 .proc   subysp
  11
  12         sty     tmp1            ; Save the value
  13         lda     sp              ; Get lo byte
  14         sec
  15         sbc     tmp1            ; Subtract y value
  16         sta     sp              ; Put result back
  17         bcs     @L1
  18         dec     sp+1
  19 @L1:    rts                     ; Done
  20
  21 .endproc
  22
  23
  24
  25
  26