PodToTesterConfigPinImpl.mesa
Copyright (C) 1986 by Xerox Corporation. All rights reserved.
Last Edited by: Gasbarro April 25, 1986 2:38:26 pm PST
DIRECTORY
PodToTesterConfigPin, ICTest, IMSTester;
PodToTesterConfigPinImpl: CEDAR PROGRAM
EXPORTS PodToTesterConfigPin
~ BEGIN
a: ARRAY ICTest.LoadBoardSide OF ARRAY ICTest.PodPair OF ARRAY IMSTester.PodChannel OF ICTest.TesterHeader;
Map: PUBLIC PROC [s: ICTest.LoadBoardSide, p: ICTest.PodPair, c: IMSTester.PodChannel] RETURNS [ICTest.TesterHeader] ~ {
RETURN[a[s][p][c]];
};
ReverseMap: PUBLIC PROC [t: ICTest.TesterHeader] RETURNS [s: ICTest.LoadBoardSide, p: ICTest.PodPair, c: IMSTester.PodChannel] ~ {
FOR s IN ICTest.LoadBoardSide DO
FOR p IN ICTest.PodPair DO
FOR c IN IMSTester.PodChannel DO
IF a[s][p][c]=t THEN RETURN[s, p, c];
ENDLOOP;
ENDLOOP;
ENDLOOP;
RETURN[s, p, c];
};
a ← [
[--right--
[ 25, 26, 27, 28, 29, 30, 31, 32, 126, 17, 18, 19, 20, 21, 22, 23, 24, 25],--AB
[ 41, 42, 43, 44, 45, 46, 47, 48, 125, 33, 34, 35, 36, 37, 38, 39, 40, 8],--CD
[ 57, 58, 59, 60, 61, 62, 63, 64, 128, 56, 55, 54, 53, 52, 51, 50, 49, 9],--EF
[185, 186, 187, 188, 189, 190, 191, 192, 127, 177, 178, 179, 180, 181, 182, 183, 184, 10],--GH
[201, 202, 203, 204, 205, 206, 207, 208, 251, 217, 218, 219, 220, 221, 222, 223, 224, 253],--IJ
[193, 194, 195, 196, 197, 198, 199, 200, 252, 209, 210, 211, 212, 213, 214, 215, 216, 254] --KL
],
[--left--
[153, 154, 155, 156, 157, 158, 159, 160, 123, 145, 146, 147, 148, 149, 150, 151, 152, 124],--AB
[169, 170, 171, 172, 173, 174, 175, 176, 122, 161, 162, 163, 164, 165, 166, 167, 168, 121],--CD
[129, 130, 131, 132, 133, 134, 135, 136, 120, 137, 138, 139, 140, 141, 142, 143, 144, 119],--EF
[ 97, 98, 99, 100, 101, 102, 103, 104, 113, 105, 106, 107, 108, 109, 110, 111, 112, 118],--GH
[ 89, 90, 91, 92, 93, 94, 95, 96, 115, 73, 74, 75, 76, 77, 78, 79, 80, 117],--IJ
[ 81, 82, 83, 84, 85, 86, 87, 88, 114, 65, 66, 67, 68, 69, 70, 71, 72, 116] --KL
]
];
END.