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

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