DIRECTORY
DeviceCleanup USING [Await, Item, Reason],
DLionInputOutput USING [IOPage],
TTYPortFace;


TTYPortHeadDLion: PROGRAM
IMPORTS DeviceCleanup, DLionInputOutput
EXPORTS TTYPortFace
~ BEGIN

TTY: LONG POINTER TO MACHINE DEPENDENT RECORD [
outData(0):		UNSPECIFIED,	-- Char or Parameter Record
outControl(1):	OutControl,
inData(2):		CHAR,
inControl(3):	InCharStatus,
unused(4:0..7):	[0..400B),
dataTerminalReady(4:8..8): BOOL,
unused1(4:9..12):	[0..20B),
requestToSend(4:13..13):	BOOLEAN,
rxRDY(4:14..14):	BOOLEAN,
txRDY(4:15..15):	BOOLEAN,
notifyMask(5):	WORD] = DLionInputOutput.IOPage + 121B;

OutControl: TYPE = MACHINE DEPENDENT {
(0),	-- outControl >= putChar means busy
putChar(100000B), -- setParameterCommand(100001B), -- getStatus(100002B),
on(100003B), off(100004B), setDSR(100401B), setCTS(101001B),
setCharLength(102001B), setParity(104001B), setStopBits(110001B),
setBaudRate(120001B), setAllParameters(137401B), (177777B)};

ParameterRecord: TYPE = MACHINE DEPENDENT RECORD [
onOff(0:0..3):	MACHINE DEPENDENT {on(0), off(1), (17B)}, -- (Head flag)
baudRate(0:4..7):	TTYPortFace.LineSpeed _ bps1200,
stopBits(0:8..9):	TTYPortFace.StopBits _ two,
parity(0:10..11):	ChipParity _ none,
charLength(0:12..13):	TTYPortFace.CharacterLength _ lengthIs8bits,
clearToSend(0:14..14):	BOOLEAN _ FALSE,
dataSetReady(0:15..15):	BOOLEAN _ FALSE];

ChipParity: TYPE = MACHINE DEPENDENT {none(0), odd(1), even(3)};
ConvertParity: ARRAY TTYPortFace.Parity OF ChipParity = [none: none, odd: odd, even: even];

InCharStatus: TYPE = MACHINE DEPENDENT RECORD [
state(0:0..0):		MACHINE DEPENDENT{empty(0), charPresent(1)},
unused(0:1..7):	[0..200B),
success(0:8..8):	BOOLEAN,
breakDetected(0:9..9):	BOOLEAN,
framingError(0:10..10):	BOOLEAN,
dataLost(0:11..11):	BOOLEAN,
parityError(0:12..12):	BOOLEAN,
unused1(0:13..14):	[0..4),
notReady(0:15..15):	BOOLEAN];

state: ParameterRecord _ [onOff: off];

GetCommand: PUBLIC PROC [CARDINAL] RETURNS [data: CHARACTER, stat: TTYPortFace.TransferStatus] = BEGIN
ttyInStatus: InCharStatus = TTY.inControl;
IF ttyInStatus.state = empty THEN RETURN[NULL, notReady];
data _ TTY.inData; TTY.inControl.state _ empty;
stat _ SELECT TRUE FROM
ttyInStatus.success => success,
ttyInStatus.breakDetected => breakDetected,
ttyInStatus.framingError => asynchFramingError,
ttyInStatus.dataLost => dataLost,
ttyInStatus.parityError => parityError,
ttyInStatus.notReady => notReady,
ENDCASE => success;
END;

GetLineCount: PUBLIC PROC RETURNS [CARDINAL] = {RETURN[1]};

GetStatus: PUBLIC PROC [CARDINAL] RETURNS [TTYPortFace.DeviceStatus] = BEGIN
RETURN[[readyToPut: TTY.outControl < putChar,
readyToGet: TTY.inControl.state = charPresent,
dataTerminalReady: TTY.dataTerminalReady,
requestToSend: TTY.requestToSend]];
END;

PutCommand: PUBLIC PROC [lineNumber: CARDINAL, data: CHARACTER] RETURNS [TTYPortFace.TransferStatus] = BEGIN
IF TTY.outControl >= putChar THEN RETURN[notReady];
TTY.outData _ data;  TTY.outControl _ putChar;
RETURN[success];
END;

SetParameter: PUBLIC PROC [lineNumber: CARDINAL, parameter: TTYPortFace.Parameter] = BEGIN
control: OutControl;
WITH parameter SELECT FROM
characterLength => {control _ setCharLength; state.charLength _ characterLength};
clearToSend => {control _ setCTS; state.clearToSend _ clearToSend};
dataSetReady => {control _ setDSR; state.dataSetReady _ dataSetReady};
lineSpeed => {control _ setBaudRate; state.baudRate _ lineSpeed};
parity => {control _ setParity; state.parity _ ConvertParity[parity]};
stopBits => {control _ setStopBits; state.stopBits _ stopBits};
ENDCASE => RETURN;
WHILE TTY.outControl >= putChar DO ENDLOOP;
TTY.outData _ state;
TTY.outControl _ control;
END;

-- should check to see if the out is busy???
On: PUBLIC PROC [lineNumber: CARDINAL, mask: UNSPECIFIED] = BEGIN
state _ [onOff: on];
TTY.notifyMask _ mask; TTY.inControl.state _ empty; 
TTY.outControl _ on;
END;

Off: PUBLIC PROC [CARDINAL] = BEGIN
WHILE TTY.outControl >= putChar DO ENDLOOP;
TTY.notifyMask _ 0;
TTY.outControl _ off;
state _ [onOff: off];
END;

InitializeCleanup: PROC = BEGIN
item: DeviceCleanup.Item;
mask: WORD;
DO
reason: DeviceCleanup.Reason = DeviceCleanup.Await[@item];
IF state.onOff=on THEN SELECT reason FROM
turnOff, kill => BEGIN
WHILE TTY.outControl >= putChar DO ENDLOOP;
mask _ TTY.notifyMask;
TTY.notifyMask _ 0;
TTY.outControl _ off;
WHILE TTY.outControl >= putChar DO ENDLOOP;
END;
turnOn => BEGIN
TTY.notifyMask _ mask;
TTY.outControl _ on;
WHILE TTY.outControl >= putChar DO ENDLOOP;
TTY.outData _ state;
TTY.outControl _ setAllParameters;
END;
disconnect => NULL;  -- turnOff was already called
ENDCASE;
ENDLOOP;
END;


InitializeCleanup[];

END.

-- TTYPortHeadDLion.mesa 
-- Copyright (C) 1980, 1982  by Xerox Corporation. All rights reserved.
-- Last edited:  26-Sep-84  0:17:24  By: Grundler
-- This head supports only ONE LINE
-- Tim Diebert: November 16, 1985 12:11:20 pm PST

DIRECTORY
  DeviceCleanup USING [Await, Item, Reason],
--  HeadStartChain,
  DLionInputOutput USING [IOPage -- , ttyCommandOffset, ttyInCSBOffset, ttyOutCSBOffset -- ],
  Process USING[MsecToTicks, Pause],
  TTYPortFace;

TTYPortHeadDLion: PROGRAM
  IMPORTS DeviceCleanup, DLionInputOutput, Process --, RemainingHeads: HeadStartChain
  EXPORTS -- HeadStartChain, -- TTYPortFace =
  BEGIN

  
TTYInCSB: LONG POINTER TO MACHINE DEPENDENT RECORD [
    inControl(0):              InCharStatus,
    inData(1:0..7):            CHARACTER,
    dataTerminalReady(1:8..8): BOOLEAN,
    unused1(1:9..12):          [0..20B),
    requestToSend(1:13..13):   BOOLEAN,
    rxRDY(1:14..14):           BOOLEAN,
    txRDY(1:15..15):           BOOLEAN] = DLionInputOutput.IOPage + 053H;
     --   DLionInputOutput.ttyInCSBOffset
         
TTYOutCSB: LONG POINTER TO MACHINE DEPENDENT RECORD [
    parameter(0):              ParameterRecord,
    notifyMask(1):             WORD] = DLionInputOutput.IOPage + 051H;
    --   DLionInputOutput.ttyOutCSBOffset
      
TTYOutCommand: LONG POINTER TO MACHINE DEPENDENT RECORD [
    command(0:0..7):		{(0), putChar(200B), abortPut(205B)},
    outData(0:8..15):		CHARACTER] = DLionInputOutput.IOPage 
    --   DLionInputOutput.ttyCommandOffset
    
TTYSetParameterCommand:  LONG POINTER TO MACHINE DEPENDENT RECORD [ 
    command:	{(0),  --setParameterCommand(100400B),
    setDSR(100401B), setCTS(100402B), 
    setCharLength(100404B), setParity(100410B), setStopBits(100420B),
    setBaudRate(100440B), setAllParameters(100477B), (177777B)}] = DLionInputOutput.IOPage -- + DLionInputOutput.ttyCommandOffset -- ;
   
  TTYCommand:  LONG POINTER TO MACHINE DEPENDENT RECORD [ 
  command: {(0), getStatus(101000B), on(101400B), off(102000B), --abortPut(102400B),--  breakOn(103000B), breakOff(103400B)}] = DLionInputOutput.IOPage --  + DLionInputOutput.ttyCommandOffset -- ;

  ChipParity: TYPE = MACHINE DEPENDENT {none(0), odd(1), even(3)};
  ConvertParity: ARRAY TTYPortFace.Parity OF ChipParity = [
    none: none, odd: odd, even: even];
   
  ParameterRecord: TYPE = MACHINE DEPENDENT RECORD [
    onOff(0:0..3):          MACHINE DEPENDENT {on(0), off(1), (17B)}, -- (Head flag)
    baudRate(0:4..7):       TTYPortFace.LineSpeed       _ bps1200,
    stopBits(0:8..9):       TTYPortFace.StopBits        _ two,
    parity(0:10..11):       ChipParity                  _ none,
    charLength(0:12..13):   TTYPortFace.CharacterLength _ lengthIs8bits,
    clearToSend(0:14..14):  BOOLEAN                     _ FALSE,
    dataSetReady(0:15..15): BOOLEAN                     _ FALSE];

  InCharStatus: TYPE = MACHINE DEPENDENT RECORD [
    state(0:0..0):          MACHINE DEPENDENT{empty(0), charPresent(1)},
    unused(0:1..7):         [0..200B),
    success(0:8..8):        BOOLEAN,
    breakDetected(0:9..9):  BOOLEAN,
    framingError(0:10..10): BOOLEAN,
    dataLost(0:11..11):     BOOLEAN,
    parityError(0:12..12):  BOOLEAN,
    unused1(0:13..14):      [0..4),
    notReady(0:15..15):     BOOLEAN];

  state: ParameterRecord _ [onOff: off];

  GetCommand: PUBLIC PROC [CARDINAL]
    RETURNS [data: CHARACTER, stat: TTYPortFace.TransferStatus] =
    BEGIN
    ttyInStatus: InCharStatus = TTYInCSB.inControl;
    IF ttyInStatus.state = empty THEN RETURN[NULL, notReady];
    data _ TTYInCSB.inData; TTYInCSB.inControl.state _ empty;
    stat _ SELECT TRUE FROM
      ttyInStatus.success => success,
      ttyInStatus.breakDetected => breakDetected,
      ttyInStatus.framingError => asynchFramingError,
      ttyInStatus.dataLost => dataLost,
      ttyInStatus.parityError => parityError,
      ttyInStatus.notReady => notReady,
      ENDCASE => success;
    END;

  GetLineCount: PUBLIC PROC RETURNS [CARDINAL] = {RETURN[1]};

  GetStatus: PUBLIC PROC [CARDINAL] RETURNS [TTYPortFace.DeviceStatus] =
    BEGIN
    RETURN[[
      readyToPut: TTYOutCommand.command < putChar,
      readyToGet: TTYInCSB.inControl.state = charPresent,
      dataTerminalReady: TTYInCSB.dataTerminalReady,
      requestToSend: TTYInCSB.requestToSend]];
    END;

  PutCommand: PUBLIC PROC [lineNumber: CARDINAL, data: CHARACTER]
    RETURNS [TTYPortFace.TransferStatus] =
    BEGIN
    IF TTYOutCommand.command >= putChar THEN RETURN[notReady];
    TTYOutCommand.outData _ data;  TTYOutCommand.command _ putChar;
    RETURN[success];
    END;

  SendBreak: PUBLIC PROC [lineNumber: CARDINAL] =
    BEGIN
    WHILE TTYOutCommand.command >= putChar DO ENDLOOP; --Wait for IOP to finish current command
    TTYCommand.command _ breakOn;
    Process.Pause[Process.MsecToTicks[190]];
    TTYCommand.command _ breakOff;
    END;

  SetParameter: PUBLIC PROC [lineNumber: CARDINAL, parameter: TTYPortFace.Parameter] =
    BEGIN
    WHILE TTYOutCommand.command >= putChar DO ENDLOOP; --Wait for IOP to finish current command
    WITH parameter SELECT FROM
      characterLength => {TTYOutCSB.parameter.charLength _ characterLength;	TTYSetParameterCommand.command _ setCharLength};
      clearToSend =>     {TTYOutCSB.parameter.clearToSend _ clearToSend;	TTYSetParameterCommand.command _ setCTS};
      dataSetReady =>    {TTYOutCSB.parameter.dataSetReady _ dataSetReady;	TTYSetParameterCommand.command _ setDSR};
      lineSpeed =>       {TTYOutCSB.parameter.baudRate _ lineSpeed;		TTYSetParameterCommand.command _ setBaudRate};
      stopBits =>        {TTYOutCSB.parameter.stopBits _ stopBits;		TTYSetParameterCommand.command _ setStopBits;   };
      parity =>          {TTYOutCSB.parameter.parity _ ConvertParity[parity];	TTYSetParameterCommand.command _ setParity};
      ENDCASE =>         RETURN;
    state _ TTYOutCSB.parameter; -- save state for inload
    END;

  -- should check to see if the out is busy???
  On: PUBLIC PROC [lineNumber: CARDINAL, mask: UNSPECIFIED] =
    BEGIN
    state _ [onOff: on];
    TTYOutCSB.notifyMask _ mask; TTYInCSB.inControl.state _ empty; 
    TTYInCSB.dataTerminalReady _ FALSE;
    TTYInCSB.requestToSend _ FALSE;
    TTYCommand.command _ on;
    -- set the defaults independent of what the IOP may think
    WHILE TTYOutCommand.command >= putChar DO ENDLOOP; -- Wait for IOP to process command
    TTYOutCSB.parameter _ state; TTYSetParameterCommand.command _ setAllParameters
    END;

  Off: PUBLIC PROC [CARDINAL] =
    BEGIN
    WHILE TTYOutCommand.command >= putChar DO ENDLOOP;
    TTYOutCSB.notifyMask _ 0;
    TTYCommand.command _ off;
    state _ [onOff: off];
    END;

  InitializeCleanup: PROC =
    BEGIN
    item: DeviceCleanup.Item;
    mask: WORD;
    DO
      reason: DeviceCleanup.Reason = DeviceCleanup.Await[@item];
      IF state.onOff=on THEN SELECT reason FROM
        turnOff, kill =>
          BEGIN
          THROUGH [0..LAST[CARDINAL]] WHILE TTYOutCommand.command >= putChar DO ENDLOOP;
          IF TTYOutCommand.command >= putChar  THEN {
	    TTYOutCommand.command _ abortPut; -- the printer is stuck
	    WHILE TTYOutCommand.command >= putChar DO ENDLOOP;
	    };
	  mask _ TTYOutCSB.notifyMask; TTYOutCSB.notifyMask _ 0; TTYCommand.command _ off;
          WHILE TTYOutCommand.command >= putChar DO ENDLOOP;
          END;
        turnOn =>
          BEGIN
          TTYOutCSB.notifyMask _ mask; TTYCommand.command _ on;
          WHILE TTYOutCommand.command >= putChar DO ENDLOOP;
          TTYOutCSB.parameter _ state; TTYSetParameterCommand.command _ setAllParameters;
          END;
        disconnect => NULL;  -- turnOff was already called
        ENDCASE;
      ENDLOOP;
    END;
  
  -- Start Chain
  -- Start: PUBLIC PROC = {RemainingHeads.Start[]};
  
  -- Mainline code
  InitializeCleanup[];

  END....




LOG
Time: September 9, 1980  2:19 PM By: Ken Yamanaka  Action: Created file
Time: September 11, 1980  10:30 PM By: Ken Yamanaka  Action: Many Changes
Time: September 25, 1980  11:27 PM By: Forrest  Action: maul Over
Time: October 16, 1980  11:42 AM By: Forrest  Action: Add device cleanup (sigh)
Time: October 20, 1980  5:24 PM By: Forrest  Action: redo setParameter and device cleanup
Time: 23-Jul-82 15:30:38 By: Jim Frandeen  Action: New IOPage format
Time: 18-Aug-82 13:52:27 By: Jim Frandeen  Action: Added SendBreak
Time: 16-Sep-82 10:11:34 By: Jim Frandeen  Action: Save parameters for inload.
Time:  6-Oct-82 15:04:22 By: Jim Frandeen  Action: Leave Break on for 190 msec. Initialize TTYInCSB in On command.
Time: 26-Sep-84  0:17:21	By: Grundler	Action: Added copyright notice and rebuild for 11.1 release.





úTTYPortHeadDLion.mesa
Copyright c 1985 by Xerox Corporation.  All rights reserved.
Tim Diebert: November 16, 1985 4:30:06 pm PST

Reconstructed from the Pilot 6.0 heads.
Start Chain
Start: PUBLIC PROC = {RemainingHeads.Start[]};
Mainline code
�Ê	ɘ™Icodešœ
Ïm
œ1™<K™-K™K™'—K˜š
Ïk	˜	Kšœžœ˜*Kšœžœ
˜ Kš
œ˜—K˜K˜KšÐlnœž˜Kšžœ ˜'Kšžœ˜šœž˜K˜šžœžœ
žœ
žœ
ž	œ
žœ˜/Kšœ
žœÏc˜5K˜Kšœžœ
˜K˜K˜Kšœžœ
˜ K˜Kšœžœ
˜!Kšœžœ
˜Kšœžœ
˜Kšœžœ#˜6—K˜šœžœžœ
ž	œ˜&Kšœ #˜(Kšœ  œ˜IK˜<K˜AK˜<—K˜š	œžœžœ
ž	œ
žœ˜2Kšœžœ
ž	œ ˜GKš
œ2˜2Kš
œ-˜-Kš
œ$˜$Kš
œB˜BKšœžœžœ
˜'Kšœžœžœ˜)—K˜Kšœžœžœ
ž	œ˜@Kšœžœžœ1˜[K˜š	œžœžœ
ž	œ
žœ˜/Kšœžœ
ž	œ˜<Kš
œ˜Kšœžœ
˜Kšœžœ
˜Kšœžœ
˜ Kšœžœ
˜Kšœžœ
˜Kš
œ˜Kšœžœ˜—K˜Kš
œ&˜&K˜š
Ïn
œžœ
žœžœžœž	œ%ž˜fKšœžœ˜*Kšžœžœ
žœ
žœ˜9Kšœžœ	žœ˜/šœžœ
žœ
ž˜Kš
œ˜Kš
œ+˜+Kš
œ/˜/Kš
œ!˜!Kš
œ'˜'Kš
œ!˜!Kšžœ˜—Kšžœ
˜—K˜Kš¡œžœ
žœ
žœžœžœ˜;K˜š¡	œžœ
žœžœžœž˜Lšžœžœ˜-Kšœžœ˜.Kšœžœ˜)Kšœžœ˜#—Kšžœ
˜—K˜š
¡
œžœ
žœžœž	œžœž˜lKšžœžœ
žœ˜3Kšžœžœ˜.Kšžœ
˜Kšžœ
˜—K˜š	¡œžœ
žœžœ&ž˜ZK˜šžœžœ
ž˜Kš
œQ˜QKš
œC˜CKš
œF˜FKš
œA˜AKš
œF˜FKš
œ?˜?Kšžœžœ
˜—Kšžœ
žœžœ
žœ
˜+Kšžœ˜Kšžœ˜Kšžœ
˜—K˜Kš
 ,˜,š¡œžœ
žœžœžœž˜AKš
œ˜Kšžœžœ˜4Kšžœ˜Kšžœ
˜—K˜š	¡œžœ
žœžœž˜#Kšžœ
žœžœ
žœ
˜+Kš
œ˜Kš
œ˜Kš
œ˜Kšžœ
˜—K˜š¡œžœž˜Kš
œ˜Kšœžœ
˜š
ž˜Kš
œ:˜:šžœžœ
žœž˜)šœž˜Kšžœ
žœžœ
žœ
˜+Kšœžœ˜Kšžœ˜Kšžœ˜Kšžœ
žœžœ
žœ
˜+Kšžœ
˜—šœ	ž˜Kšžœ˜Kšžœ˜Kšžœ
žœžœ
žœ
˜+Kšžœ˜Kšžœ˜"Kšžœ
˜—Kšœžœ ˜2Kšžœ
˜—Kšžœ
˜—Kšžœ
˜K˜——š
 ™Kš¡œžœ
žœ™.—K˜š
 
™
Kš
œ˜—K˜Kšžœ
˜K˜Jš¾ ê
œ
ž	œžœ œžœ	 9œžœ8žœžœ* #œžœ
 œžœžœ
žœ
žœ
žœ
ž	œ
žœOž	œ!žœJžœ!žœ!žœ) %œžœ
žœ
žœ
žœ
ž	œ
žœRžœ( %œžœ
žœ
žœ
žœ
ž	œ
žœVž	œ! &œžœ
žœ
žœ
žœ
ž	œ
žœ  œÈ
 )œžœ
žœ
žœ
žœ
ž	œ
žœD œB *œžœžœ
ž	œ.žœžœNžœžœ
ž	œ
žœžœ
ž	œ œ§žœžœžœžœžœžœ
ž	œ
žœžœ
ž	œ_žœžœžœžœžœBžœ0¡
œžœ
žœžœžœž	œ*žœ9žœžœ
žœ
žœVžœ
žœ
žœ“žœžœ¡œžœ
žœ
žœžœžœ	¡	œžœ
žœžœžœ"žœžœØ
žœ¡
œžœ
žœžœž	œžœ$žœžœ"žœ
žœTžœžœ¡	œžœ
žœžœžœžœ"žœ
žœ )œvžœ¡œžœ
žœžœ*žœžœ"žœ
žœ )œžœžœ
žœÒžœžœ# œžœ -œ¡œžœ
žœžœžœžœžœžœ# :œžœ"žœ
žœ #œWžœ¡œžœ
žœžœžœžœ"žœ
žœ\žœ¡œžœžœ)žœžœHžœžœ
žœžœ$žœžœžœ
žœžœ"žœ
žœžœ#žœ* œžœ"žœ
žœhžœ"žœ
žœžœžœKžœ"žœ
žœfžœžœ œžœžœžœ œ 2œ œžœ	žœžœHžœHžœ>žœMžœë˜ÄCK˜—…—3æ>©