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

   1 ;
   2 ; Ullrich von Bassewitz, 08.10.1998
   3 ;
   4 ; CC65 runtime: -= operator for ints on the stack
   5 ;
   6
   7         .export         subeq0sp, subeqysp
   8         .importzp       sp
   9
  10 subeq0sp:
  11         ldy     #0
  12 subeqysp:
  13         sec
  14         eor     #$FF
  15         adc     (sp),y
  16         sta     (sp),y
  17         pha                     ; Save low byte
  18         iny
  19         txa
  20         eor     #$FF
  21         adc     (sp),y
  22         sta     (sp),y
  23         tax
  24         pla                     ; Restore low byte
  25         rts
  26