?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1.  ifndef included_addmantissa0102
  2.  define included_addmantissa0102
  3.  include "add64.asm"
  4.  include "rr64.asm"
  5.  include "../mul/xmul3.asm"
  6.  
  7. addmantissa0102:
  8.   ld hl,xOP2
  9.   ld de,xOP1
  10.   call adc64
  11.   ret nc
  12.   ex de,hl
  13.   call rr64
  14.   ex de,hl
  15.   call srl64
  16.  if ((xOP1+8)>>8)==(xOP1>>8)
  17.   ld l,(xOP1+8)&255
  18.  else
  19.   ld hl,xOP1+8
  20.  endif
  21.   inc (hl)
  22.   ret nz
  23.   inc_hl_opt (xOP1+8)
  24.   ld a,(hl)
  25.   inc (hl)
  26.   xor (hl)
  27.   ret p
  28.   jp constmul_overflow
  29.  endif
  30.