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