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