git.sur5r.net Git - cc65/blob - libsrc/atari/mul40.s

   1 ;
   2 ; Christian Groessler, June 2000
   3 ;
   4 ; mul40
   5 ; multiplies A by 40 and returns result in AX
   6 ; uses tmp4
   7
   8         .importzp       tmp4
   9         .export         mul40
  10
  11 .proc   mul40
  12
  13         ldx     #0
  14         stx     tmp4
  15         sta     loc_tmp
  16         asl     a
  17         rol     tmp4
  18         asl     a
  19         rol     tmp4            ; val * 4
  20         adc     loc_tmp
  21         bcc     L1
  22         inc     tmp4            ; val * 5
  23 L1:     asl     a
  24         rol     tmp4            ; val * 10
  25         asl     a
  26         rol     tmp4
  27         asl     a
  28         rol     tmp4            ; val * 40
  29         ldx     tmp4
  30         rts
  31
  32 .endproc
  33
  34         .bss
  35 loc_tmp:.res    1