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, tmp1, tmp2
   9
  10 lsubeq0sp:
  11         ldy     #0
  12 lsubeqysp:
  13         sec
  14         sta     tmp1
  15         stx     tmp2
  16         lda     (sp),y
  17         sbc     tmp1
  18         sta     (sp),y
  19         pha
  20         iny
  21         lda     (sp),y
  22         sbc     tmp2
  23         sta     (sp),y
  24         tax
  25         iny
  26         lda     (sp),y
  27         sbc     sreg
  28         sta     (sp),y
  29         sta     sreg
  30         iny
  31         lda     (sp),y
  32         sbc     sreg+1
  33         sta     (sp),y
  34         sta     sreg+1
  35         pla
  36         rts
  37