
<<PGA300PinToDUTConfigPinImpl.mesa>>
<<Copyright (C) 1986 by Xerox Corporation.  All rights reserved.>>
<<Last Edited by: Gasbarro October 22, 1987 3:19:09 pm PDT>>
<<>>
    DIRECTORY
        ICTest, PGA300PinToDUTConfigPin;

    PGA300PinToDUTConfigPinImpl: CEDAR PROGRAM
    EXPORTS PGA300PinToDUTConfigPin
    ~ 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,   0, 203,   0, 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,  28,  23,  29,  32,  31,  30,  24,
     89,  88,  87,  86, 107, 106, 109, 108, 105, 104,
      0, 102,   0,  18,  45,  19,  22,  21,  20,   0,
    103, 101,   0,  46,   0,   0, 100,  98,   0,   0,
      0,  97, 136,   0,   0, 135,   0,   0, 134,   0, 
    133,   0,   0, 132, 131,   0,   0,   0, 130, 120,

     40,  35, 119, 128,  41,  44,  43,  42,  36,  85,
     84,  83,  82,  81,  90,  95,  94,  93,  92,  91,
    111, 110,  62,  57,  63,  34,  33,  64,  58, 121,
    160, 159, 158, 157, 156, 155, 154, 153, 148, 147,
    146, 145, 144, 143, 142, 141, 140, 139, 138, 137,
    113, 176, 175, 174, 173, 172, 171, 170, 169, 168,
    167, 166, 161, 162, 163, 164,  26,  25,  27,  60,
     61,  74,  75,  76,  77,  78, 123, 124, 125, 126,
    127, 165,  47,  48,  17,  37,  38,  39,  59,  49,
     50,  51, 112,  96,   0,  65,   0,  66,  67,  68,

    115, 116, 117,   0, 118, 150,   0, 151,   0,   0,
    152,  69,   0,   0,   0,  70,  71,   0,   0,  72,
      0,   0, 129,   0,  73,   0,   0,  99, 241,   0,
      0,   0, 243, 245,   0,   0, 246, 244,   0,   0,
      0, 247, 229,   0,   0, 230, 231,   0,   0,   0,
    232,   0,   0, 233, 234,   0,   0,   0, 235, 236,
      0,   0, 237,   0, 238, 208,   0, 239, 240,   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.