//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
[(635)\f1
resultis truel3840\f1
]\f1

and ChiptoPinPosX(boardloc,chippin) = valof
[\f1
resultis chippinl3840\f1
]

and GetBoardPinsX(boardloc) = valof
[\f1
resultis 40l3840\f1
]
\f1