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

   1 ;
   2 ; Ullrich von Bassewitz, 08.10.1998
   3 ;
   4 ; CC65 runtime: -= operator for longs on the stack
   5 ;
   6
   7         .export         lsubeq0sp, lsubeqysp
   8         .importzp       sp, sreg
   9
  10 lsubeq0sp:
  11         ldy     #0
  12 lsubeqysp:
  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         iny
  25         lda     (sp),y
  26         sbc     sreg
  27         sta     (sp),y
  28         sta     sreg
  29         iny
  30         lda     (sp),y
  31         sbc     sreg+1
  32         sta     (sp),y
  33         sta     sreg+1
  34         pla
  35         rts
  36