ProbePinToDUTConfigPinImpl.mesa
Copyright (C) 1986 by Xerox Corporation. All rights reserved.
Last Edited by: Gasbarro October 23, 1987 11:40:42 am PDT
DIRECTORY
ProbePinToDUTConfigPin, ICTest;
ProbePinToDUTConfigPinImpl: CEDAR PROGRAM
EXPORTS ProbePinToDUTConfigPin
~
BEGIN
a: ARRAY ICTest.ProbeCardPin OF ICTest.DUTHeader;
Map:
PUBLIC PROC [p: ICTest.ProbeCardPin]
RETURNS [ICTest.DUTHeader] ~ {
RETURN[a[p]];
};
ReverseMap:
PUBLIC PROC [d: ICTest.DUTHeader]
RETURNS [ICTest.ProbeCardPin] ~ {
FOR i: NAT
IN ICTest.ProbeCardPin
DO
IF a[i]=d THEN RETURN[i];
ENDLOOP;
RETURN[240];
};
a ← [
207, 206, 205, 204, 203, 202, 201, 200, 199,
198, 213, 197, 196, 180, 195, 179, 194, 178, 193,
177, 224, 223, 222, 221, 220, 219, 218, 217, 216,
215, 214, 228, 227, 212, 122, 211, 226, 210, 225,
209, 240, 239, 208, 238, 237, 236, 235, 234, 233,
232, 231, 230, 229, 247, 244, 246, 245, 243, 242,
241, 99, 73, 129, 72, 71, 70, 69, 152, 151,
150, 149, 256, 255, 254, 253, 252, 251, 250, 249,
248, 118, 117, 116, 115, 68, 67, 66, 65, 96,
112, 51, 50, 49, 59, 39, 38, 37, 17, 48,
47, 165, 127, 126, 125, 124, 123, 78, 77, 76,
75, 74, 61, 60, 27, 25, 26, 164, 163, 162,
161, 144, 143, 142, 141, 140, 139, 138, 137, 13,
176, 175, 174, 173, 172, 171, 170, 169, 168, 167,
166, 52, 79, 53, 56, 55, 54, 80, 114, 192,
191, 190, 189, 188, 187, 186, 185, 184, 183, 182,
181, 62, 57, 63, 34, 33, 64, 58, 121, 160,
159, 158, 157, 156, 155, 154, 153, 148, 147, 146,
145, 40, 35, 41, 44, 43, 42, 36, 85, 84,
83, 82, 81, 90, 95, 94, 93, 92, 91, 111,
110, 18, 45, 19, 22, 21, 20, 46, 100, 98,
97, 136, 135, 134, 133, 132, 131, 130, 120, 119,
128, 28, 23, 29, 32, 31, 30, 24, 89, 88,
87, 86, 107, 106, 109, 108, 105, 104, 103, 102,
101, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0
];
END.