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

   1 ;
   2 ; Ullrich von Bassewitz, 05.08.1998
   3 ;
   4 ; CC65 runtime: Increment ax by constant or value in Y
   5 ;
   6
   7         .export         incaxy
   8         .export         incax8, incax7, incax6, incax5
   9         .export         incax4, incax3, incax2, incax1
  10         .importzp       tmp1
  11
  12
  13 incax8: ldy     #8
  14         bne     incaxy
  15
  16 incax7: ldy     #7
  17         bne     incaxy
  18
  19 incax6: ldy     #6
  20         bne     incaxy
  21
  22 incax5: ldy     #5
  23         bne     incaxy
  24
  25 incax4: ldy     #4
  26         bne     incaxy
  27
  28 incax3: ldy     #3
  29 ;       bne     incaxy
  30 incaxy: sty     tmp1
  31         clc
  32         adc     tmp1
  33         bcc     *+3
  34         inx
  35         rts
  36
  37 incax2: clc
  38         adc     #2
  39         bcc     *+3
  40         inx
  41         rts
  42
  43 incax1: clc
  44         adc     #1
  45         bcc     *+3
  46         inx
  47         rts
  48