home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / drdobbs / 1991 / 08 / decconv.asc < prev    next >
Text File  |  1991-07-23  |  896b  |  44 lines
  1. _DECIMAL FRACTIONAL CONVERSION_
  2. by Don Morgan
  3.  
  4.  
  5. [EXAMPLE 1: Fractional Conversion Routine]
  6.  
  7.  
  8. mantissa    word    ?
  9. dec_frac    word    ?
  10. ;
  11. ; frac- conversion of decimal fractional part to hex
  12. ; enter with packed decimal word in ax
  13. ; returns with result in dx\
  14. ;DS is assumed to point into the Data Segment
  15. ; 
  16. frac    proc
  17.     mov cx,10h    ;number of bits in resulting mantissa
  18. cnvt:
  19.     add al,al     ;could add to self, we will see
  20.     daa
  21.     mov bl,al
  22.     mov al,ah
  23.     jnc nc1
  24.     add al,al     ;could add to self, we will see
  25.     daa
  26.     inc al
  27.     jmp short nc2
  28. nc1:
  29.     add al,al     ;could add to self, we will see
  30.     daa
  31. nc2:
  32.     mov ah,al
  33.     mov al,bl
  34.     rcl dx,1
  35.     loop    cnvt
  36.     sub ax,5000h
  37.     jc  end_frac
  38.     inc dx    ;for round off
  39. end_frac:
  40.     mov word ptr mantissa,dx
  41.     ret
  42. frac    end
  43.  
  44.