cmntnc.pas

pipe类 pipe类 pipe类 pipe类 pipe类

unit CmnTnC;

interface

uses Windows;

type
  DWord = LongWord;

  tMSR=packed record
     HiPart, LowPart: DWord;
  end;


const
  //AMD Athlon MSRs
  CLK_CTL_MSR_No = $C001001B;
  K6Mult_MSR_NO = $C0000087;
  HWCR_MSR_No = $C0010015;
  MANID_MSR_No = $C001001E;
  Fid_Vid_Status_No = $C0010042;

  //Intel P4 and Dothan MSs
  Intel_Mult_No = $0000002A;
  P4WilMult_No = $0000002A; //Yeah, I know this is a not real name of MSR :-)
  P4NorthMult_No = $0000002C; //This too
  DothanMult_No = $00000017;
  MSR_EBC_FREQUENCY_ID = $2C;
  IA32_TIME_STAMP_COUNTER = $10;
  IA32_MISC_ENABLE = $1A0;
  IA32_PERF_STAUS = $198;
  IA32_THERM_CONTROL_No = $19A;
  MSR_THERM2_CTL = $19D;

  MSR_BSU_ESCR0 = $3A0;
  MSR_BSU_ESCR1 = $3A1;
  MSR_FSB_ESCR0 = $3A2;
  MSR_FSB_ESCR1 = $3A3;
  MSR_MOB_ESCR0 = $3AA;
  MSR_MOB_ESCR1 = $3AB;
  MSR_PMH_ESCR0 = $3AC;
  MSR_PMH_ESCR1 = $3AD;
  MSR_BPU_ESCR0 = $3B2;
  MSR_BPU_ESCR1 = $3B3;
  MSR_IS_ESCR0 = $3B4;
  MSR_IS_ESCR1 = $3B5;
  MSR_ITLB_ESCR0 = $3B6;
  MSR_ITLB_ESCR1 = $3B7;
  MSR_IX_ESCR0 = $3C8;
  MSR_IX_ESCR1 = $3C9;
  MSR_MS_ESCR0 = $3C0;
  MSR_MS_ESCR1 = $3C1;
  MSR_TBPU_ESCR0 = $3C2;
  MSR_TBPU_ESCR1 = $3C3;
  MSR_TC_ESCR0 = $3C4;
  MSR_TC_ESCR1 = $3C5;

  MSR_BPU_COUNTER0 =$300;
  MSR_BPU_COUNTER1 =$301;
  MSR_BPU_COUNTER2 =$302;
  MSR_BPU_COUNTER3 =$303;

  DRIVER_NAME_X64='OSCI_DRVX64';
  FILE_NAME_X64='OSCI_DRVX64.sys';
  RES_NAME_X64='OSCI_DRVX64';

  DRIVER_NAME_NT='OSCI_DRVNT';
  FILE_NAME_NT='OSCI_DRVNT.sys';
  RES_NAME_NT='OSCI_DRVNT';

  DRIVER_NAME_9X='OMCdrv';
  FILE_NAME_9X='OMCdrv.vxd';
  RES_NAME_9X='OMCDRV9X';

  METHOD_BUFFERED = 0;
  METHOD_IN_DIRECT = 1;
  METHOD_OUT_DIRECT = 2;
  METHOD_NEITHER = 3;

  FILE_ANY_ACCESS = 0;
  FILE_READ_ACCESS = 1;
  FILE_WRITE_ACCESS = 2;

  MSR_TYPE=40000;
  PCI_TYPE=40000;

  Win95 = 0;
  Win98 = 1;
  WinNT3 = 2;
  WinNT4 = 3;
  WinMe = 4;
  Win2K = 5;
  WinXP = 6;
  Win2K3 = 7;
  WinVi32 = 8;
  WinX64 = 9;

var
  MSR: tmsr;
  isLoaddrv, IsNTfl:boolean;

function CTL_CODE(Device,Funct,Method,Access:word):DWord;

implementation

function CTL_CODE(Device,Funct,Method,Access:word):DWord;
begin
   result:=(Device SHL 16) or (access SHL 14) or (funct SHL 2) or method;
end;

end.