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

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