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

   1 ;
   2 ; Piotr Fusik, 24.10.2003
   3 ; originally by Ullrich von Bassewitz
   4 ;
   5 ; CC65 runtime: Multiply the primary register by 6
   6 ;
   7
   8         .export         mulax6
   9         .importzp       ptr1
  10
  11 .proc   mulax6
  12
  13         sta     ptr1
  14         stx     ptr1+1
  15         asl     a
  16         rol     ptr1+1
  17         clc
  18         adc     ptr1
  19         sta     ptr1
  20         txa
  21         adc     ptr1+1
  22         asl     ptr1
  23         rol     a
  24         tax
  25         lda     ptr1
  26         rts
  27
  28 .endproc
  29
  30