git.sur5r.net Git - cc65/blob - libsrc/common/umul16x8r32.s

   1 ;
   2 ; Ullrich von Bassewitz, 2011-07-10
   3 ;
   4 ; CC65 library: 16x8 => 32 unsigned multiplication
   5 ;
   6
   7         .export         _umul16x8r32
   8         .import         umul8x16r24, popax
   9
  10         .include        "zeropage.inc"
  11
  12
  13 ;---------------------------------------------------------------------------
  14 ; 16x8 => 32 unsigned multiplication routine. We use 8x16 => 24 and clear
  15 ; the high byte of the result
  16
  17 .proc   _umul16x8r32
  18
  19         sta     ptr1
  20         lda     #0
  21         sta     sreg+1                  ; Clear high byte of result
  22         jsr     popax
  23         jmp     umul8x16r24
  24
  25 .endproc
  26
  27