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

   1 ;
   2 ; Piotr Fusik, 07.03.2018
   3 ; originally by Ullrich von Bassewitz
   4 ;
   5 ; CC65 runtime: Decrement eax by value in Y
   6 ;
   7
   8         .export         deceaxy
   9         .importzp       sreg, tmp1
  10
  11 deceaxy:
  12         sty     tmp1
  13         sec
  14         sbc     tmp1
  15         bcs     @L9
  16 ; borrow from X
  17         dex
  18         cpx     #$ff
  19         bne     @L9
  20 ; X wrapped from zero to $ff, borrow from sreg
  21         dec     sreg
  22         cpx     sreg
  23         bne     @L9
  24 ; sreg wrapped from zero to $ff, borrow from sreg+1
  25         dec     sreg+1
  26 @L9:    rts
  27