-- File: Keys.mesa  Modified by:
-- Karlton, May 10, 1980 1:53 PM

DIRECTORY
  KeyStations: FROM "KeyStations";

Keys: DEFINITIONS =
  BEGIN

  DownUp: TYPE = KeyStations.DownUp;
  Bit: TYPE = KeyStations.Bit;
  KeyBits: TYPE = PACKED ARRAY KeyName OF DownUp;

  KeyName: TYPE = MACHINE DEPENDENT{
    Keyset1(KeyStations.KS1), Keyset2(KeyStations.KS2), Keyset3(KeyStations.KS3),
    Keyset4(KeyStations.KS4), Keyset5(KeyStations.KS5), Red(KeyStations.M1),
    Blue(KeyStations.M3), Yellow(KeyStations.M2), Five(KeyStations.k16),
    Four(KeyStations.k12), Six(KeyStations.k20), E(KeyStations.k10),
    Seven(KeyStations.k24), D(KeyStations.k11), U(KeyStations.k26),
    V(KeyStations.k17), Zero(KeyStations.k36), K(KeyStations.k31),
    Dash(KeyStations.k40), P(KeyStations.k38), Slash(KeyStations.k41),
    BackSlash(KeyStations.T9), LF(KeyStations.L6), BS(KeyStations.A2),
    Three(KeyStations.k8), Two(KeyStations.k4), W(KeyStations.k6),
    Q(KeyStations.k2), S(KeyStations.k7), A(KeyStations.k3),
    Nine(KeyStations.k32), I(KeyStations.k30), X(KeyStations.k9),
    O(KeyStations.k34), L(KeyStations.k35), Comma(KeyStations.k33),
    Quote(KeyStations.k43), RightBracket(KeyStations.k45),
    Spare2(KeyStations.R11), Spare1(KeyStations.R6), One(KeyStations.k1),
    ESC(KeyStations.T2), TAB(KeyStations.A1), F(KeyStations.k15),
    Ctrl(KeyStations.L11), C(KeyStations.k13), J(KeyStations.k27),
    B(KeyStations.k21), Z(KeyStations.k5), LeftShift(KeyStations.A5),
    Period(KeyStations.k37), SemiColon(KeyStations.k39), Return(KeyStations.A4),
    Arrow(KeyStations.k46), DEL(KeyStations.L3), FL3(KeyStations.L9),
    R(KeyStations.k14), T(KeyStations.k18), G(KeyStations.k19),
    Y(KeyStations.k22), H(KeyStations.k23), Eight(KeyStations.k28),
    N(KeyStations.k25), M(KeyStations.k29), Lock(KeyStations.A3),
    Space(KeyStations.A7), LeftBracket(KeyStations.k42), Equal(KeyStations.k44),
    RightShift(KeyStations.A6), Spare3(KeyStations.R12), FL4(KeyStations.L12),
    FR5(KeyStations.R1), R5(KeyStations.R5), R9(KeyStations.R9),
    L10(KeyStations.L10), L7(KeyStations.L7), L4(KeyStations.L4),
    L1(KeyStations.L1), A9(KeyStations.A9), R10(KeyStations.R10),
    A8(KeyStations.A8), L8(KeyStations.L8), L5(KeyStations.L5),
    L2(KeyStations.L2), R2(KeyStations.R2), R7(KeyStations.R7),
    R4(KeyStations.R4), D2(KeyStations.D2), D1(KeyStations.D1),
    Key48(KeyStations.k48), T1(KeyStations.T1), T3(KeyStations.T3),
    T4(KeyStations.T4), T5(KeyStations.T5), T6(KeyStations.T6),
    T7(KeyStations.T7), T8(KeyStations.T8), T10(KeyStations.T10),
    R3(KeyStations.R3), Key47(KeyStations.k47), A10(KeyStations.A10),
    R8(KeyStations.R8)};

  -- Alto II names for some keys can be different

  FL1: KeyName = DEL;
  FL2: KeyName = LF;
  BW: KeyName = Spare1;
  FR1: KeyName = Spare3;
  Swat: KeyName = FR1;
  FR2: KeyName = BackSlash;
  FR3: KeyName = Arrow;
  FR4: KeyName = Spare2;

  END.