?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.  ifndef included_xdiv2
  2.  define included_xdiv2
  3.  
  4. xdiv2:
  5.   call pushpop
  6.   ld d,b
  7.   ld e,c
  8.   call mov10
  9.   ex de,hl
  10.   dec hl
  11.   ld a,(hl)
  12.   dec hl
  13.   and $7F
  14.   or (hl)
  15.   ret z   ;0/2->0, inf/2->inf, NaN/2->NaN,
  16.   ld a,(hl)
  17.   sub 1
  18.   ld (hl),a
  19.   ret nc
  20.   inc hl
  21.   dec (hl)
  22.   ret
  23.  endif
  24.