home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / A / ARC20.ARC / ARCMACS.ARC / LONGREAL.MAC < prev    next >
Text File  |  1989-10-17  |  554b  |  34 lines
  1. ; 32-Bit-Integer zu Real Konversion f}r Turbo
  2. ; 151089 Tilmann Reh
  3.     .z80
  4.  
  5.     extrn    lw
  6.  
  7.     ld    hl,(lw)        ; Zeiger auf Langwort
  8.     ld    e,(hl)
  9.     inc    hl
  10.     ld    d,(hl)
  11.     inc    hl
  12.     ld    c,(hl)
  13.     inc    hl
  14.     ld    b,(hl)        ; Langwort nach BCDE
  15.     ld    hl,0
  16.     ld    a,b
  17.     or    c
  18.     or    d
  19.     or    e
  20.     ret    z        ; Langwort 0 : Real auch 0
  21.     ld    l,0A0h        ; L=Exponent
  22. loop:    bit    7,b
  23.     jr    nz,exit        ; h|chstes Bit Mantisse gesetzt: ok
  24.     sla    e
  25.     rl    d
  26.     rl    c
  27.     rl    b        ; sonst 1 Bit schieben
  28.     dec    l        ; Exponent -1
  29.     jr    loop        ; weiter bis B7 gesetzt
  30. exit:    res    7,b        ; Vorzeichen: positiv
  31.     ret
  32.  
  33.     end
  34.