?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.  ifndef included_xmul13
  2.  define included_xmul13
  3.  include "../../common/pushpop.asm"
  4.  include "../../common/mov.asm"
  5.  include "../routines/srl64.asm"
  6.  include "../routines/addmantissa0102.asm"
  7.  include "xmul3.asm"
  8.  
  9. xmul13:
  10.   call pushpop
  11.   push bc
  12.   call xmul13pp;+_
  13.   pop de
  14.   ld hl,xOP1
  15.   jp mov10
  16. xmul13pp;_:
  17.   ld de,xOP1
  18.   call mov10
  19.   ld hl,(xOP1+8)
  20.   ld a,h
  21.   or l
  22.   ret z
  23.   ld hl,xOP1
  24.   call mov8
  25.   call srlxOP2
  26.   call addmantissa0102
  27.   call srlxOP2
  28.   call srlxOP2
  29.   call addmantissa0102
  30.   ld hl,xOP1+8
  31.   ld a,(hl)
  32.   add a,3
  33.   ld (hl),a
  34.   ret nc
  35.   inc hl
  36.   ld a,(hl)
  37.   inc (hl)
  38.   xor (hl)
  39.   jp m,constmul_overflow
  40.   ret
  41.  endif
  42.