Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!elroy.jpl.nasa.gov!ames!dftsrv!nssdcb.gsfc.nasa.gov!lanmaint
From: lanmaint@nssdcb.gsfc.nasa.gov (Dave Yoest)
Newsgroups: comp.lang.pascal
Subject: Re: Redirecting LPT1 from Turbo
Keywords: LPT1 Turbo
Message-ID: <4350@dftsrv.gsfc.nasa.gov>
Date: 18 Feb 91 13:44:06 GMT
References: <1991Feb17.232711.13289@uvm.edu>
Sender: news@dftsrv.gsfc.nasa.gov
Reply-To: lanmaint@nssdcb.gsfc.nasa.gov
Organization: NASA - Goddard Space Flight Center
Lines: 37
News-Software: VAX/VMS VNEWS 1.3-4

In article <1991Feb17.232711.13289@uvm.edu>, opergb@uvm.edu (Gary Bushey) writes...
>this is not a programming question but a Trubo environment question.  I need
>to redirect the CTRL-K CTRL-P print so that it goes to lpt2 instead of lpt1.
>Anyone know how to do this?
> 
>Gary Bushey
>opergb@uvm.edu

Here's a little kludge to swap lpt1 and lpt2. This sould work for any 
application that either uses bios to print or gets the printer port
addresses from the bios tables at 0x0040:xxxx.


---------------------------cut here-----------------------------------
program testlptswap;

procedure swaplpt;

 var
  lpt1_port_addr    : word absolute $0040:$0008;
  lpt2_port_addr    : word absolute $0040:$000A;
  temp              : word;

 begin
  temp := lpt1_port_addr;
  lpt1_port_addr := lpt2_port_addr;
  lpt2_port_addr := temp;
 end;


begin
 swaplpt;
end.


------------------------------------------------------
Simple, but it works