home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / hardware.swg / 0007_LPT-ADDR.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  449 b   |  22 lines
  1. {
  2. Or better yet, the BIOS stores the addresses of the parallel Interfaces
  3. on the system at memory location $0040:$0008.  There are four Words
  4. here, allowing up to 4 parallel devices.
  5. -Brian Pape
  6. }
  7. Var
  8.   i : Byte;
  9.   par : Array[1..4] of Word;
  10. begin
  11.   For i := 1 to 4 do
  12.   begin
  13.     par[i] := Word(ptr($0040, $0008 + (i - 1) * 2)^);
  14.     If Par[i] = 0 then
  15.       Writeln('Not Found')
  16.     else
  17.       Writeln(Par[i]);
  18.   end;
  19. end.
  20.  
  21.  
  22.