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

   1 ;
   2 ; Ullrich von Bassewitz, 08.10.1998
   3 ;
   4 ; CC65 runtime: += operator for ints on the stack
   5 ;
   6
   7         .export         addeq0sp, addeqysp
   8         .importzp       sp
   9
  10 addeq0sp:
  11         ldy     #0
  12 addeqysp:
  13         clc
  14         adc     (sp),y
  15         sta     (sp),y
  16         pha
  17         iny
  18         txa
  19         adc     (sp),y
  20         sta     (sp),y
  21         tax
  22         pla
  23         rts
  24