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

   1 ;
   2 ; Ullrich von Bassewitz, 2010-11-03
   3 ;
   4 ; CC65 library: 16x16 => 32 signed multiplication
   5 ;
   6
   7         .export         _cc65_imul16x16r32
   8         .import         imul16x16r32, popax
   9         .importzp       ptr1
  10
  11
  12 ;---------------------------------------------------------------------------
  13 ; 16x16 => 32 signed multiplication routine.
  14
  15
  16 .proc   _cc65_imul16x16r32
  17
  18         sta     ptr1
  19         stx     ptr1+1
  20         jsr     popax
  21         jmp     imul16x16r32
  22
  23 .endproc
  24