-- Mouse.mesa
-- Written by Martin Haeberli
-- added Revs 5A, 6B, 7B info, R. Garner, March 29, 1982  9:51 PM
--     (Note:  the pattern order was changed to make the chip appear more regular!)

DIRECTORY
  Tester;

Mouse: DEFINITIONS IMPORTS Tester =
  {

  Pin: TYPE = MACHINE DEPENDENT{
    RedA(0), RedB, YellowA, YellowB, BlueA, BlueB, TestEnable, Gnd, YA, YB, XA,
    XB, TestData, TestClock, GateTest, Vdd, AnyGood, Jump};
  PhiLong: Pin = TestData;
  PhiShort: Pin = TestClock;

  Value: TYPE = Tester.Value;

  Pattern: TYPE = [0..30);

  PinMap: TYPE = ARRAY Pin OF Tester.Channel;

  ChipVersion: TYPE = MACHINE DEPENDENT {Rev3(3), Rev4, Rev5, Rev6A, Rev7A, Rev8, Rev9, Rev10, Rev11, Rev12, Rev13, Rev4A, Rev5A, Rev6B, Rev7B};


  EndRecordPat: PROCEDURE;

  GetPin: PROCEDURE [pin: Pin] RETURNS [value: Value];

  PlayPat: PROCEDURE [pat: Pattern];

  RecordPat: PROCEDURE [pat: Pattern];

  Reset: PROCEDURE;

  SetPin: PROCEDURE [pin: Pin, value: Value];

  SetPinMap: PROCEDURE [pinMap: PinMap];

  SetVersion: PROCEDURE [version: ChipVersion];
  }.

MPH   30-Sep-81 11:31:59
	created initially