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
  10         .include        "zeropage.inc"
  11
  12
  13 ;---------------------------------------------------------------------------
  14 ; 16x16 => 32 signed multiplication routine.
  15
  16
  17 .proc   _cc65_imul16x16r32
  18
  19         sta     ptr1
  20         stx     ptr1+1
  21         jsr     popax
  22         jmp     imul16x16r32
  23
  24 .endproc
  25