Path: 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

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