[comp.lang.pascal] Redirecting LPT1 from Turbo

opergb@uvm.edu (Gary Bushey) (02/18/91)

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

lanmaint@nssdcb.gsfc.nasa.gov (Dave Yoest) (02/18/91)

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