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       ptr4, sreg
   9
  10 deceaxy:
  11         sty     ptr4
  12         sec
  13         sbc     ptr4
  14         sta     ptr4
  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     ptr4
  25         rts
  26