-- Mouse.mesa
-- Written by Martin Haeberli

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, Rev6, Rev7};


  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