08852f7b55
* WHERE-IS library doc * Gather keyboard files, add VIRTUAL.TEDIT * add UNIXCOMM.TEDIT * rest of TEdit library files * save table of contents index for reworking * Don't move around VIRTUALKEYBOARDS files; will move in separate commit * Add MATMULT from Envos/Medley
26 lines
6.1 KiB
Plaintext
26 lines
6.1 KiB
Plaintext
1
|
||
|
||
Lisp Library Modules, Medley Release 1.0, CENTRONICS
|
||
1
|
||
|
||
Lisp Library Modules, Medley Release 1.0, CENTRONICS
|
||
CENTRONICS
|
||
1
|
||
|
||
CENTRONICS
|
||
1
|
||
|
||
|
||
CENTRONICS
|
||
6
|
||
|
||
The Centronics(CENTRONICS NIL Centronics NIL NIL 17) module implements a stream interface to an industry-standard Centronics printer port. This port is designed to drive Centronics-compatible devices, typically printers. The module allows you to send bytes over the parallel port, and notifies you of any device error conditions.
|
||
Requirements
|
||
1
|
||
|
||
The Centronics port is found on the Xerox 1109, which is an 1108 equipped with the Extended Processor board(EXTENDED% PROCESSOR% BOARD NIL Extended% Processor% board NIL NIL 17) (marked CPE FP(CPE% FP NIL NIL NIL NIL 17)). It is the upper of the two connectors on the board.
|
||
The Centronics cable(CENTRONICS% CABLE NIL Centronics% cable NIL NIL 17) from the port to the printer should be wired as shown in the Introduction of this manual.
|
||
CENTRONICS.LCOM implements a general byte output stream. It is typically used in conjunction with a printer driver module, such as 4045XLPStream, though it can also run by itself.
|
||
Installation
|
||
1
|
||
|
||
Load CENTRONICS.LCOM from the library.
|
||
User Interface
|
||
1
|
||
|
||
Functions
|
||
(CENTRONICS.RESET(CENTRONICS.RESET (function) NIL NIL NIL 17)) [Function]
|
||
The only user-callable function in the module, it initializes the parallel port and any attached device. It should be called after the printer is powered on.
|
||
Opening a Centronics Stream(OPENING% A% CENTRONICS% STREAM NIL Opening% a% Centronics% Stream NIL NIL 17)
|
||
To open a stream to the Centronics port, evaluate a form similar to the following:
|
||
(SETQ CENTRONICS.STREAM (OPENSTREAM '{CENTRONICS} 'OUTPUT))
|
||
All bytes BOUTed to CENTRONICS.STREAM are sent to the attached printer. You may only have one stream open to the parallel port at one time; attempts to open others yield an error.
|
||
Device Errors(DEVICE% ERRORS NIL Device% Errors NIL NIL 17)
|
||
When a device error is detected (e.g., printer offline, out of paper, etc.), a break window will pop up.
|
||
After resetting the device, type RETURN (the word, not the key) to continue. Type STOP to abort.
|
||
Limitations
|
||
1
|
||
|
||
The port is available on Xerox 1109 workstations only.
|
||
[This page intentionally left blank]
|
||
|
||
(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "") STARTINGPAGE# 17) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (TEXT NIL NIL (54 54 504 702) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD LEFT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (54 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGV) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE VERSOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE RECTOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL))))) 5 H H<01>
|
||
` <01> - <01> T , <01> , $ $<01> - <01> T , l l<01>
|
||
2 H H<01>
|
||
<01> , H H<01> , H H<01>
|
||
, H H<01> - T - <01> <00><01> T F <01> <01> PAGEHEADING VERSOHEAD F <01> <01> PAGEHEADING RECTOHEAD E <01> <01> PAGEHEADING FOOTINGV E <01> <01> PAGEHEADING FOOTINGR
|
||
HELVETICA HELVETICA
|
||
CLASSIC
|
||
TITAN
|
||
TITAN
|
||
CLASSIC
|
||
HELVETICA HELVETICA MODERN
|
||
MODERN MODERN MODERN MODERN
|
||
HRULE.GETFN MODERN
|
||
5 HRULE.GETFN MODERN
|
||
5 HRULE.GETFN MODERN
|
||
|
||
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
& IM.INDEX.GETFN
|
||
HRULE.GETFN MODERN
|
||
k F IM.INDEX.GETFN IM.INDEX.GETFN 8 4 IM.INDEX.GETFN [ <00>
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
|
||
, IM.INDEX.GETFN MODERN
|
||
<00> N IM.INDEX.GETFN S =
|
||
|
||
|
||
<00>
|
||
. IM.INDEX.GETFN k ! ,
|
||
|
||
HRULE.GETFN MODERN
|
||
7 % <08> tz<74> |