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

   1 ;
   2 ; Ullrich von Bassewitz, 29.12.1999
   3 ;
   4 ; CC65 runtime: Decrement eax by value in Y
   5 ;
   6
   7         .export         deceaxy
   8         .importzp       sreg, tmp1
   9
  10 deceaxy:
  11         sty     tmp1
  12         sec
  13         sbc     tmp1
  14         sta     tmp1
  15         txa
  16         sbc     #0
  17         tax
  18         lda     sreg
  19         sbc     #0
  20         sta     sreg
  21         lda     sreg+1
  22         sbc     #0
  23         sta     sreg+1
  24         lda     tmp1
  25         rts
  26