DIRECTORY ChipTest; ChipTestMapImpl: CEDAR PROGRAM EXPORTS ChipTest = BEGIN OPEN ChipTest; DIP: PUBLIC PROC [pin: [1..120], size: [1..120] _ 120, pin1: [1..60] _ 1] RETURNS [Channel] = BEGIN realPin: [1..120] = pin+(IF 2*pin<=size THEN pin1-1 ELSE 121-pin1-size); side: [0..1] = IF realPin<=60 THEN 0 ELSE 1; index: [1..60] = IF side=0 THEN realPin ELSE 121-realPin; RETURN[ (SELECT index FROM <7 => index-1+6*side, <55 => 5+index+8*((index-7)/8)+8*side, ENDCASE => 53+index+6*side) ]; END; StaggeredDIP64: PUBLIC PROC [pin: [1..64]] RETURNS [Channel] = {RETURN[0]}; Leadless84: PUBLIC PROC [pin: [1..84]] RETURNS [Channel] = {RETURN[0]}; PinGridArray132: PUBLIC PROC [pin: [1..132]] RETURNS [Channel] = {RETURN[0]}; END. †ChipTestMapImpl.mesa - Petit Dolphin chip tester - Tester-to-socket mapping last edited by McCreight, January 10, 1984 9:49 am Ęd˜JšœL™LJ˜Jšœ2™2Jšœ˜šĎk ˜ Jšœ ˜ —J˜šœœœ ˜1Jšœœ ˜˜J˜—šœœœ:œ ˜]Jš˜Jšœœ œœ˜HJšœœ œœ˜,Jšœœœ œ ˜9šœ˜šœœ˜Jšœ˜Jšœ&˜&Jšœ˜—Jšœ˜—Jšœ˜J˜—šĎnœ œœ ˜>Jšœ ˜ J˜—šž œ œœ ˜:Jšœ ˜ J˜—šžœ œœ ˜@Jšœ ˜ J˜—J˜Jšœ˜—J˜—…—ŕĘ