home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / NDPTYP.ZIP / NDPINFO.PAS next >
Encoding:
Pascal/Delphi Source File  |  1988-02-01  |  662 b   |  20 lines
  1.  
  2. program NdpInfo;                             {demo for function NdpTyp}
  3.  
  4. {$L NDPTYP.OBJ}
  5. {$F+}
  6. function NdpType : integer; external;
  7.  
  8. { Turbo Pascal 4.0 function to check for math coprocessor presence and type
  9.   using Intel recommended techniques.  Returns 0 if coprocessor not present,
  10.   87, 287, or 387 if corresponding coprocessor present.
  11.  
  12.   Reference:  Which Math Coprocessor?, Ted Forgeron, PC Tech Journal, Aug 87.
  13.   Adapted for use with Turbo Pascal 4.0 by John Haluska, CIS 74000,1106   }
  14. {$F-}
  15.  
  16. begin
  17.   Writeln('Math Coprocessor types are 87, 287, 387; 0 if not present. ');
  18.   Writeln('This Math Coprocessor is: ',NdpType:3);
  19. end.
  20.