home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / cpu / cpu_id / cpu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-04-24  |  809 b   |  37 lines
  1. {$A+,B-,D+,E+,F-,G-,I+,L+,N+,O-,P-,Q-,R-,S+,T-,V+,X+,Y+}
  2. {$M 16384,0,655360}
  3. PROGRAM CPUTest;
  4.  
  5. USES CPUID;
  6.  
  7. VAR
  8.  CPU, FPU  : INTEGER;
  9.  CPUs, FPUs: STRING;
  10.  
  11. BEGIN
  12.   CPUFPUID(CPU, FPU);
  13.   CASE CPU OF
  14.    -3: CPUs := '80386SX';
  15.     1: CPUs := '8088/8086/80186';
  16.     2: CPUs := '80286';
  17.     3: CPUs := '80386';
  18.     4: IF FPU = 0 THEN CPUs := '80486SX'
  19.                   ELSE CPUs := '80486';
  20.   ELSE CPUs := '80x86';
  21.   END;
  22.   CASE FPU OF
  23.    -3: FPUs := '80387SX';
  24.     1: FPUs := '8087/8087/80187';
  25.     2: FPUs := '80287';
  26.     3: FPUs := '80387';
  27.     4: FPUs := '80487';
  28.   ELSE FPUs := 'no';
  29.   END;
  30.  
  31.   Write('This system has a ', CPUs , ' microprocessor');
  32.   IF FPU = 0 THEN
  33.     Write(' without coprocessor')
  34.   ELSE
  35.     Write(' and a ', FPUs, ' coprocessor');
  36.   WriteLn('.');
  37. END.