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

   1 ;
   2 ; Ullrich von Bassewitz, 04.10.2001
   3 ;
   4 ; CC65 runtime: Multiply the primary register by 3
   5 ;
   6 ; Don't touch the Y-register here, the optimizer relies on it!
   7
   8         .export         mulax3
   9         .importzp       ptr1
  10
  11 .proc   mulax3
  12
  13         sta     ptr1
  14         stx     ptr1+1
  15         asl     a
  16         rol     ptr1+1
  17         clc
  18         adc     ptr1
  19         pha
  20         txa
  21         adc     ptr1+1
  22         tax
  23         pla
  24         rts
  25
  26 .endproc
  27
  28