home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / rettig / source / infinity.asm < prev    next >
Assembly Source File  |  1990-10-21  |  500b  |  24 lines
  1. ; INFINITY.ASM
  2. ;
  3. ; by Leonard Zerman
  4. ;
  5. ; Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  6. ;----------------------------------------------------------------
  7.  
  8.          INCLUDE EXTENDA.INC
  9.          DATASEG
  10.  
  11.          CLpublic <INFINITY>
  12.  
  13.          CLstatic <double INF 7FEFFFFFFFFFFFFFH>
  14.          ; 8087 bit pattern for infinity -1
  15.  
  16.          CLfunc double INFINITY 
  17.  
  18.          CLcode
  19.  
  20.          CLret INF
  21. ;**********************************************
  22.          END
  23.  
  24.