git.sur5r.net Git - cc65/blob - libsrc/runtime/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 .proc   inceaxy
  11
  12         sty     ptr4
  13         clc
  14         adc     ptr4
  15         bcc     @L9
  16         inx
  17         bne     @L9
  18         inc     sreg
  19         bne     @L9
  20         inc     sreg+1
  21 @L9:    rts
  22
  23 .endproc
  24