DIRECTORY CoreCreate, PadFrame, PGA176;PGA176Impl: CEDAR PROGRAMIMPORTS PadFrameEXPORTS PGA176 = BEGIN OPEN CoreCreate, PGA176;SetPos: PUBLIC PROC [pga: PGADescr, pos: NAT] = {pga.globalPos _ pos};NextS: PROC [pga: PGADescr] = {pos: NAT _ pga.globalPos+1;WHILE pos<pga.nbPads AND pga.isPowerPad[pos] DOpos _ pos+1ENDLOOP;IF pos=pga.nbPads THEN ERROR;	-- ran off the edge of the worldpga.globalPos _ pos;};NextP: PROC [pga: PGADescr] = {pos: NAT _ pga.globalPos+1;WHILE pos<pga.nbPads+1 AND ~pga.isPowerPad[pos] DO pos _ pos+1 ENDLOOP;IF pos=pga.nbPads+1 THEN ERROR;	-- ran off the edge of the worldpga.globalPos _ pos;};AddPad: PROC [pga: PGADescr, public: WR, type: ATOM, pa1, pa2, pa3, pa4, pa5, pa6, pa7, pa8, pa9: PA _ []] ~ {pas: LIST OF PA _ NIL;IF pa9#[] THEN pas _ CONS [pa9, pas];IF pa8#[] THEN pas _ CONS [pa8, pas];IF pa7#[] THEN pas _ CONS [pa7, pas];IF pa6#[] THEN pas _ CONS [pa6, pas];IF pa5#[] THEN pas _ CONS [pa5, pas];IF pa4#[] THEN pas _ CONS [pa4, pas];IF pa3#[] THEN pas _ CONS [pa3, pas];IF pa2#[] THEN pas _ CONS [pa2, pas];IF pa1#[] THEN pas _ CONS [pa1, pas];pga.pads _ PadFrame.AddPadList[pga.pads, public, type, pga.globalPos, pas];};SPad: PUBLIC PROC [pga: PGADescr, public: WR, type: ATOM, pa1, pa2, pa3, pa4, pa5, pa6, pa7, pa8, pa9: PA _ []] ~ {NextS[pga];AddPad[pga, public, type, pa1, pa2, pa3, pa4, pa5, pa6, pa7, pa8, pa9];};AddPadOnNextP: PROC [pga: PGADescr, public: WR, type: ATOM, pa1, pa2, pa3, pa4, pa5, pa6, pa7, pa8, pa9: PA _ []] ~ {NextP[pga];AddPad[pga, public, type, pa1, pa2, pa3, pa4, pa5, pa6, pa7, pa8, pa9];};pga176: PUBLIC PGADescr _ NEW[PGADescrRec _ [left: 0,bottom: 49,right: 98,top: 147,size: 49,nbPads: 196,isPowerPad: IsPowerOnPGA176,name: "PGA176",doc: "Ibiden small PGA for EU and IFU; 36 signal and 12 power pads per side, plus corners"]];IsPowerOnPGA176: PROC [pos: NAT] RETURNS [is: BOOL] ~ {IF pos NOT IN [0..pga176.nbPads) THEN ERROR;	-- not a valid pad positionpos _ pos MOD pga176.size;	-- reduce to one side in [0..48) RETURN[pos=0 OR pos=1 OR pos=5 OR pos=8 OR pos=14 OR pos=17 OR pos=23 OR pos=26 OR pos=32 OR pos=35 OR pos=41 OR pos=44 OR pos=48];};MakePGA176: PUBLIC PROC RETURNS [pga: PGADescr] ~ {PutPowerPads: PROC [pga: PGADescr, corner: NAT] ~ {SetPos[pga, corner];	-- the corner padAddPadOnNextP[pga, "PadGnd", 	$PadGnd];AddPadOnNextP[pga, "PadVdd", 	$PadVdd];AddPadOnNextP[pga, "Vdd", 	$Vdd];AddPadOnNextP[pga, "PadGnd",	$PadGnd];AddPadOnNextP[pga, "Gnd", 	$Gnd];AddPadOnNextP[pga, "PadVdd", 	$PadVdd];AddPadOnNextP[pga, "Vdd", 	$Vdd];AddPadOnNextP[pga, "PadGnd", 	$PadGnd];AddPadOnNextP[pga, "Gnd", 	$Gnd];AddPadOnNextP[pga, "PadVdd", 	$PadVdd];AddPadOnNextP[pga, "Vdd", 	$Vdd];AddPadOnNextP[pga, "PadGnd", 	$PadGnd];	};pga _ pga176;pga.pads _ NIL;PutPowerPads[pga, pga176.left];PutPowerPads[pga, pga176.bottom];PutPowerPads[pga, pga176.right];PutPowerPads[pga, pga176.top];};END.    PGA176Impl.mesaCopyright Ó 1985, 1986, 1987 by Xerox Corporation.  All rights reserved.Louis Monier March 11, 1987 12:59:02 pm PSTLast Edited by: Louis Monier March 30, 1987 1:45:31 pm PST-- put the pad on globalPos-- set globalPos to the next signal pad position; put the pad on globalPos-- set globalPos to the next power pad position; put the pad on globalPos-- The following is a description of a padframe suited for a particular PGA-- Corners are power pads too-- Prepares the PGA with the power pads Ê.  –"cedar" style˜ codešœ™KšœH™HK™+K™:—K˜ KšÏk	œ˜'K˜ •StartOfExpansion[]šÏn
œœ˜Kšœ	˜Kšœ
˜Kšœœ˜—K˜ Kšžœœœ˜Fšžœœ˜Kšœœ˜šœœ˜/K˜Kšœ˜—KšœœœÏc ˜>Kšœ˜K˜—šžœœ˜Kšœœ˜Kšœœœœ˜GKšœœœŸ ˜@Kšœ˜K˜—Kšœ™š
žœœœœ/œ
˜nKšœœœœ˜Kšœœœ˜%Kšœœœ˜%Kšœœœ˜%Kšœœœ˜%Kšœœœ˜%Kšœœœ˜%Kšœœœ˜%Kšœœœ˜%Kšœœœ˜%KšœK˜KK˜—KšœJ™Jš
žœœœœ/œ
˜sKšœ˜KšœG˜GK˜—KšœI™Iš
žœœœœ/œ
˜uKšœ˜KšœG˜GK˜—K™ K™Kšœœœ˜-Kšœ˜Kšœ˜Kšœ
˜
Kšœ	˜	Kšœ	˜	Kšœ˜Kšœ˜Kšœ˜K˜ZKšœ˜—K™š
žœœœœœ˜7KšœœœœœŸ˜HKšœ
œŸ!˜<šœœœœœœœ˜FKšœœœœœœ	˜=—K˜—K™ K™'šž
œœœ˜3šžœœœ˜3KšœŸ˜&Kšœ'˜'Kšœ'˜'Kšœ!˜!Kšœ&˜&Kšœ!˜!Kšœ'˜'Kšœ!˜!Kšœ'˜'Kšœ!˜!Kšœ'˜'Kšœ!˜!Kšœ(˜(K˜—Kšœ˜Kšœœ˜Kšœ˜Kšœ!˜!Kšœ ˜ Kšœ˜K˜—K˜ Kšœ˜K˜ — …—    †  À  