home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / util / misc / 011 / ifpextrn.pas < prev    next >
Pascal/Delphi Source File  |  1992-12-29  |  1KB  |  71 lines
  1. unit ifpextrn;
  2.  
  3. interface
  4.  
  5. uses Crt, Dos;
  6.  
  7. type
  8.   cpu_info_t = record
  9.     cpu_type : byte;
  10.     MSW : word;
  11.     GDT : array[1..6] of byte;
  12.     IDT : array[1..6] of byte;
  13.     intflag : boolean;
  14.     ndp_type : byte;
  15.     ndp_cw : word;
  16.     weitek: byte;
  17.     test_type: char
  18.   end;
  19.  
  20. procedure CPUID(var a: cpu_info_t);
  21.  
  22. function diskread(drive: byte; starting_sector: longint;
  23.   number_of_sectors: word; var buffer): word;
  24.  
  25. procedure longcall(addr: longint; var regs: registers);
  26.  
  27. function ATIinfo(data_in: byte; register: word): byte;
  28.  
  29. procedure AltIntr(intno: byte; var regs: registers);
  30.  
  31. procedure AltMsDos(var regs: registers);
  32.  
  33. function CTICK: byte;
  34.  
  35. function TsengCK: byte;
  36.  
  37. function ZyMOSCK: byte;
  38.  
  39. function CirrusCK: byte;
  40.  
  41. function bugtst: byte;
  42.  
  43. implementation
  44. {$L INFOPLUS}
  45.  
  46. {$F+}
  47.  
  48. procedure CPUID(var a: cpu_info_t); external;
  49.  
  50. function diskread(drive: byte; starting_sector: longint;
  51.   number_of_sectors: word; var buffer): word; external;
  52.  
  53. procedure longcall(addr: longint; var regs: registers); external;
  54.  
  55. function ATIinfo(data_in: byte; register: word): byte; external;
  56.  
  57. procedure AltIntr(intno: byte; var regs: registers); external;
  58.  
  59. procedure AltMsDos(var regs: registers); external;
  60.  
  61. function CTICK: byte; external;
  62.  
  63. function TsengCK: byte; external;
  64.  
  65. function ZyMOSCK: byte; external;
  66.  
  67. function CirrusCK: byte; external;
  68.  
  69. function bugtst: byte; external;
  70.  
  71. end.