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

    END.