git.sur5r.net Git - cc65/blob - linc.s

   1 ;
   2 ; Ullrich von Bassewitz, 29.12.1999
   3 ;
   4 ; CC65 runtime: Increment eax by value in Y
   5 ;
   6
   7         .export         inceaxy
   8         .importzp       ptr4, sreg
   9
  10 inceaxy:
  11         sty     ptr4
  12         clc
  13         adc     ptr4
  14         bcc     inceax9
  15         inx
  16         bne     inceax9
  17         inc     sreg
  18         bne     inceax9
  19         inc     sreg+1
  20 inceax9:
  21         rts
  22