//Modified on December 16, 1977 11:18 AM to correct ChiptpPinPosX
//changed GetBoardPinsX to allow big dips and added LegalBlocX

get "sysdefs.d"
get "gob.defs"

external
[
BoardX
]


let BoardX() be //fake board which allows all n,alph, and disables routing
[
GetSVCoords = Nullfn
NetHasSVolt = Nullfn
SVoltReq = table [ 0; 0; 0; 0; 0 ]
noroute = true
LegalBloc = LegalBlocX
ChiptoPinPos = ChiptoPinPosX
GetEpinCoords = Nullfn
GetCpinCoords = Nullfn
GetICcoords = Nullfn
AddPotentialTerms = Nullfn
FindBestTerm = Nullfn
SetUpTerms = Nullfn
GetBoardPins = GetBoardPinsX
maxn = 99 //board locations 1-99
maxalph = 25 //a-y
TableZeroString = ""
]

and LegalBlocX(bl) = valof
[

resultis true

]

and ChiptoPinPosX(boardloc,chippin) = valof
[

resultis chippin

]

and GetBoardPinsX(boardloc) = valof
[

resultis 40

]