Article View: comp.sys.sun
Article #12863Re: LaserWriter II baud rate question
From: Ralph Finch
Date: Wed, 17 May 1989 14:46
Date: Wed, 17 May 1989 14:46
88 lines
2848 bytes
2848 bytes
In article <1875@kodak.UUCP>, drl@kodak.com (Daniel R Lance) writes:
. . .
> I have had my LaserWriterIINTX running reliably on /dev/ttya of a 3/260,
> OS 4.0.1, at 38,400 baud for the last week. It's easy to do:
I called Daniel on the phone and clarified some points:
> 1) Stop the line printer queue.
I.E. type:
lpc
disable lw
stop lw
quit
<substitute your printer name for lw above>
> 2) Send the following PostScript code to the printer. (using cat or
> kermit). This is documented in the LaserWriter IINTX manual from Apple.
. . .
Sort of documented. I used the following csh script file:
____cut here____
#
# set the Laserwriter IINTX baud rate
cat << EOF | lpr
%!
serverdict begin 0 exitserver
statusdict begin 25 38400 64 setsccbatch
EOF
____cut here____
Cut the above to a file by the name of, say, set_rate. Then type:
chmod +x set_rate
set_rate
> 3) Change the entry in /etc/termcap to read :br#38400:
/etc/printcap
> 4) Kill -HUP the lpd process.
Sometimes this was necessary, sometimes step 5) alone did the trick.
> 5) Restart the line printer queue.
I.E. type:
lpc
restart lw
enable lw
quit
If you used the kill -HUP <lpd process #> in step 4), to restart type:
/usr/lib/lpd
Here is a file to check your current settings (Postscript material
taken from the Apple LaserWriter IINTX guide, p. 123-124).
____cut here____
#
# get the current settings (status) of the LaserWriterIINTX.
cat << EOF | lpr
%!
/Helvetica findfont 14 scalefont setfont
/cr{show 182 currentpoint 20 sub exch pop moveto}def
/tb{show 300 currentpoint exch pop moveto}def
/Which{5 -1 roll 4 exch sub -1 roll cr
3{pop}repeat}def
statusdict begin 25 sccbatch end 182 650 moveto
exch (Baud :)tb 10 string cvs cr
(Parity:)tb dup 30 bitshift -30 bitshift
(none-space) (odd) (even) (none-mark) Which
(Handshake:)tb dup 27 bitshift -29 bitshift
(XON/XOFF) (DSR/DTR) (ETX/ACK) (bad value) Which
(Data bits:)tb dup 25 bitshift -30 bitshift
(standard)(7)(8)(bad value) Which
(Stop bits:)tb -7 bitshift 0 eq{(1)}{(2)}ifelse
show showpage
EOF
____cut here____
Treat this in a similar fashion as the set_rate program above.
Ralph Finch
...ucbvax!ucdavis!caldwr!rfinch
Technical Details
Message-ID:
<492@caldwr.UUCP>Path:
arc1-ca.pugleaf.net!utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!ncar!husc6!rice!sun-spots-requestReferences:
<8903301955.AA11904@porsche> <1492@auspex.auspex.com> <1875@kodak.UUCP>Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!ncar!husc6!rice!sun-spots-request From: rfinch@caldwr.UUCP (Ralph Finch) Newsgroups: comp.sys.sun Subject: Re: LaserWriter II baud rate question Keywords: Hardware Message-ID: <492@caldwr.UUCP> Date: 17 May 89 14:46:17 GMT References: <8903301955.AA11904@porsche> <1492@auspex.auspex.com> <1875@kodak.UUCP> Sender: usenet@rice.edu Organization: California Department of Water Resources Lines: 88 Approved: Sun-Spots@rice.edu Original-Date: 10 May 89 21:48:45 GMT X-Sun-Spots-Digest: Volume 7, Issue 290, message 2 of 13