home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / diagnose / ifp1s155.arj / IFPGLOBL.PAS < prev    next >
Pascal/Delphi Source File  |  1992-04-21  |  2KB  |  86 lines
  1. unit ifpglobl;
  2.  
  3. interface
  4.   uses dos;
  5.  
  6. const
  7.   qversion = 'Version 1.55';
  8.   qdate = 'April 21, 1992';
  9.   vernum = '1.55';
  10.   helpversion = 155;
  11.   BIOSdseg = $0040;
  12.   pgmax = 21;
  13.   pchar = [' '..'~'];
  14.   secsiz = 2048;
  15.   tick1 = 1193180;
  16.   pgnames: array [0..pgmax] of string[32] = (
  17.              'Table of Contents',
  18.              'Machine & ROM Identification',
  19.              'CPU Identification',
  20.              'RAM Identification',
  21.              'Memory Block Listing',
  22.              'Video Identification',
  23.              'Video Information',
  24.              'Keyboard & Mouse Information',
  25.              'Parallel/Serial/Sound Ports',
  26.              'DOS Information',
  27.          {10}'Multiplex Programs',
  28.              'Environment Variables',
  29.              'Device Drivers',
  30.              'DOS Drive Information',
  31.              'BIOS Drive Information',
  32.              'Partition Table Listing',
  33.              'Boot & DOS drive parameters',
  34.              'CMOS information',
  35.              'TSR''s and Drivers',
  36.              'Alternate Multiplex',
  37.          {20}'Memory Managers',
  38.              'Thanks');
  39. type
  40.   char2 = string[2];
  41.   directions = (none, up, down, updown);
  42.  
  43. var
  44.   attrsave : byte;
  45.   country : array[0..33] of byte;
  46.   currdrv : byte;
  47.   devofs : word;
  48.   devseg : word;
  49.   dirsep : set of char;
  50.   DOScofs : word;
  51.   DOScseg : word;
  52.   DOSmem : longint;
  53.   equip : word;
  54.   graphdriver : integer;
  55.   i : word;
  56.   intvec : array[$00..$FF] of pointer;
  57.   lastdrv : byte;
  58.   osmajor : byte;
  59.   osminor : byte;
  60.   pg : 0..pgmax;
  61.   regs : registers;
  62.   switchar : char;
  63.   tlength : byte;
  64.   twidth : byte;
  65.   vidpg : byte;
  66.   x1 : byte;
  67.   x2 : byte;
  68.   xbool1 : boolean;
  69.   xbool2 : boolean;
  70.   xchar1 : char;
  71.   xchar2 : char;
  72.   xword : word;
  73.   gotcountry: boolean;
  74.   c2: char2;
  75.   quiet, endit: boolean;
  76.   ccode: word;
  77.   vidmode: word;
  78.   decimal: char;
  79.   mono: boolean;
  80.   resetvideo: boolean;
  81.   novgacheck: boolean;
  82.  
  83. implementation
  84.  
  85. end.
  86.