! ! ERCC QUAD HEIGHT BOARD 2000/00/08 ! %BOARDDEF RCC2008(%CHIPARRAY IC16(1:7/'ABCDXFG',1:16), & ! %CHIPARRAY IC40(5:5/'E',1:11), & ! %EDGEARRAY A1,A2,B1,B2,C1,C2,D1,D2(1:18/'ABCDEFHJKLMNPRSTUV') ! %EXTERNALREALFN DISTANCE(%STRING(8) NAM1,%INTEGER COL1,ROW1,PIN1, %C NOP1,%REAL X1,Y1,%STRING(8) NAM2,%INTEGER COL2,ROW2,PIN2,NOP2, %C %REAL X2,Y2) %RESULT=SQRT((X1-X2)**2+(Y1-Y2)**2) %END %EXTERNALROUTINE POSITION(%STRING(8) NAM,%INTEGER COL,ROW,PIN,NOP, %C %REALNAME X,Y) %CONSTREALARRAY IC16Y(1:7)=-1.1,-2.0,-3.1,-4.0,1,-5.1,-6.1 %CONSTREALARRAY ABCDX(1:16)=10.025,9.425,8.825,8.225,7.625,7.025, 6.425,5.825,4.725,4.125,3.525,2.925,2.325,1.725,1.125,0.525 %CONSTREALARRAY EFX(1:8)=9.425,8.525,7.625,6.725,4.125,3.225,2.325,1.425 %CONSTREALARRAY ABY(1:18)=-0.25,0,-0.25,0,-0.25,0,-0.25,0,-0.25,0,-0.25, 0,-0.25,0,-0.25,0,-0.25,0 %CONSTREALARRAY ABX(1:18)=2.25,2.0(2),1.75(2),1.5(2),1.25(2),1.0(2), 0.75(2),0.5(2),0.25(2),0 %IF NAM='IC16' %THEN %START %IF PIN<=NOP/2 %THEN %START Y=IC16Y(COL)+0.1*(1-PIN) %IF COL<=4 %THEN X=ABCDX(ROW) %ELSE X=EFX(ROW) %FINISH %ELSE %START Y=IC16Y(COL)+0.1*(PIN-NOP) %IF COL<=4 %THEN X=ABCDX(ROW)-0.3 %ELSE X=EFX(ROW)-0.3 %FINISH %RETURN %FINISH %IF NAM='IC40' %THEN %START %IF PIN<=NOP/2 %THEN Y=0.1*(1-PIN)-5.1 %AND X=0.9*(10-ROW)+1.125 %C %ELSE Y=0.1*(PIN-NOP)-5.1 %AND X=0.9*(10-ROW)+0.525 %IF ROW<=5 %THEN X=X+0.8 %IF ROW=11 %THEN %START ;! SPECIAL FOR JJ %IF PIN<=NOP/2 %THEN X=X+5.6 %ELSE X=X+5.1 %FINISH %RETURN %FINISH %IF NAM='A1' %THEN Y=ABY(COL)-0.5 %AND X=ABX(COL)+8.0 %AND %RETURN %IF NAM='A2' %THEN Y=ABY(COL) %AND X=ABX(COL)+8.0 %AND %RETURN %IF NAM='B1' %THEN Y=ABY(COL)-0.5 %AND X=ABX(COL)+5.25 %AND %RETURN %IF NAM='B2' %THEN Y=ABY(COL) %AND X=ABX(COL)+5.25 %AND %RETURN %IF NAM='C1' %THEN Y=ABY(COL)-0.5 %AND X=ABX(COL)+2.75 %AND %RETURN %IF NAM='C2' %THEN Y=ABY(COL) %AND X=ABX(COL)+2.75 %AND %RETURN %IF NAM='D1' %THEN Y=ABY(COL)-0.5 %AND X=ABX(COL) %AND %RETURN %IF NAM='D2' %THEN Y=ABY(COL) %AND X=ABX(COL) %AND %RETURN PRINT STRING('CHIP OR EDGE NAME '.NAM.' USED IN ''POSITION'' CALL') %STOP %END %ENDOFFILE