home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BORLAND / JNFB88.ARC / COMINC.ARC / WHATCPU.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-10-15  |  926 b   |  35 lines
  1. ' WHATCPU.BAS   --  By Bruce Tonkin
  2. '
  3. ' Determines and displays the Intel CPU type on the host machine
  4. ' This version includes the machine code as INLINE statements.
  5. '
  6. ' For TURBO TECHNIX V1#2
  7. ' Last modified 10/15/87
  8. '
  9. ' Requires Juan Jiminez's GETCPU assembly language
  10. '   routine modified to run with Turbo Basic.
  11. '
  12. X%=0
  13. CALL GETCPU(X%)
  14. X$=MID$(STR$(X%),2)
  15. PRINT"Your CPU is an [80";X$;
  16.     IF X%=86 THEN PRINT"/88";
  17. PRINT"]"
  18. END
  19.  
  20. SUB GETCPU INLINE
  21. $INLINE &H55,&H8B,&HEC,&HC4,&H7E
  22. $INLINE &H6,&H9C,&H33,&HC0,&H50
  23. $INLINE &H9D,&H9C,&H58,&H25,&H0
  24. $INLINE &H80,&H3D,&H0,&H80,&H74
  25. $INLINE &H18,&HB8,&H0,&H70,&H50
  26. $INLINE &H9D,&H9C,&H58,&H25,&H0
  27. $INLINE &H70,&H74,&H6,&HB8,&H82
  28. $INLINE &H1,&HEB,&H19,&H90,&HB8
  29. $INLINE &H1E,&H1,&HEB,&H13,&H90
  30. $INLINE &HB8,&HFF,&HFF,&HB1,&H21
  31. $INLINE &HD3,&HE0,&H75,&H6,&HB8
  32. $INLINE &H56,&H0,&HEB,&H4,&H90
  33. $INLINE &HB8,&HBA,&H0,&H9D,&HFC
  34. $INLINE &HAB,&H5D
  35. END SUB