wizard@greylady.uoregon.edu (KevinS) (03/01/91)
I am having trouble setting the serial port parameters on a LaserWriter
(not a plus, or II, just a plain old LaserWriter).
I have a short postscript program that will set the parameters, but I
don't have the magic number to use in a LaserWriter. I have the number
to use in a LaserWriter II, but they don't seem to work in the LaserWriter.
Attached below is the postscript code that does the changes. Anyone out
there have the proper codes to set the LaserWriter to 8-N-1?
-Kevins
Note that this should set the LaserWriter to 9600 baud, 8-N-1
---- cut here ----
%% First change the settings
statusdict begin 25 sccbatch exch pop
71 eq (stop) if
serverdict begin 0 exitserver
statusdict begin 25 9600 71 setsccbatch
%% to print out the settings
/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/SOFF)(DSR/DTR)(EXT/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
--- end ---
--
--------------------------------------------------------------------------
Kevin D Smolkowski. J.D.
Also available at a machine near you!
Kevins@ori.org Kevins@cie.uoregon.edu wizard@chemstor.uoregon.edu
"A conclusion is the place where you got tired of thinking."
--------------------------------------------------------------------------