home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / visionix / test / tbiosu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-12-23  |  1.5 KB  |  65 lines
  1. Program TBIOSu;
  2.  
  3. Uses
  4.  
  5.   VTypesu,
  6.   VGenu,
  7.   VBIOSu;
  8.  
  9. Var
  10.  
  11.   Z : INTEGER;
  12.  
  13. BEGIN
  14.  
  15.   WriteLn('VisionTools VBIOSu Tester; Version 1.0');
  16.  
  17.   WriteLn;
  18.  
  19.   WriteLn('Serial I/O Ports');
  20.  
  21.   For Z:=1 to 4 Do
  22.     WriteLn('  COM',Z,' ............ ',
  23.                             IntToHex( BiosMemMap^.ComAddr[Z] ) );
  24.  
  25.  
  26.   WriteLn;
  27.   WriteLn('Parallel I/O Ports');
  28.  
  29.   For Z:=1 to 4 Do
  30.     WriteLn('  LPT',Z,' ............ ',
  31.                             IntToHex( BiosMemMap^.LptAddr[Z] ) );
  32.  
  33.   WriteLn;
  34.   WriteLn('Equipment Word .... ', WordToHex( BiosMemMap^.Equip ) );
  35.  
  36.   WriteLn('Base Memory ....... ', BiosMemMap^.BaseMem, 'k');
  37.  
  38.  
  39.   WriteLn;
  40.   WriteLn('Keyboard');
  41.   WriteLn('  Buffer head ..... ', BiosMemMap^.KbdBufhead );
  42.   WriteLn('  Buffer tail ..... ', BiosMemMap^.KbdBuftail );
  43.  
  44.  
  45.   WriteLn;
  46.   WriteLn('Video');
  47.   WriteLn('  Current Mode .... ', BiosMemMap^.VidCurrMode );
  48.   WriteLn('  # of columns .... ', BiosMemMap^.VidCurrCol  );
  49.   WriteLn('  Page size ....... ', BiosMemMap^.VidPageSize );
  50.   WriteLn('  Curr Page Ofs ... ',
  51.                         WordToHex( BiosMemMap^.VidCurrPageAddr ) );
  52.  
  53.   WriteLn('  Curr Page Num ... ', BiosMemMap^.VidCurrPage );
  54.  
  55.   Writeln('  CRT I/O Port .... ',
  56.                         WordToHex( BiosMemMap^.VidCrtCtrlAddr ) );
  57.  
  58.  
  59.   WriteLn;
  60.   WriteLn('Timer');
  61.   WriteLn('  # ticks today ... ', BiosMemMap^.TimerTicksToday );
  62.   WriteLn('  # days .......... ', BiosMemMap^.TimerDaysSinceBoot );
  63.  
  64.  
  65. END.