//routeip2.bcpl
// Board-specific Route routines for the Image Processing ECL Logic Board

// Part 2 of 2, last modified by S. Tom Chang, April 1, 1978  1:51 PM
// all co-ordinates are described with respect to the bottom or
// wiring side of the board. LevelTransform fixes these as necessary.

get "route.defs"

static [ boardInterfaceVersion = interfaceVersion ]

external [ Pin1of8 ] // defined here

let FindCoordFromString(s, px, py, vop1, hop1; numargs na) = valof
[ // vop1 is the "vertical offset" from pin 1, that is, the offset along the 0.1"
// spacing; hop1 is the "horizontal offset" from pin 1. In a standard 16-pin
// DIP, for pin 2 vop1=4 and hop1=0, and for pin 16, vop1=0 and hop1=12. For
// this board, vop1 grows in the -x direction, and hop1 grows in the +y direction.

// s can be of the form <lower-case letter><number> or
//	<number> s (meaning vertically offset <number>*0.1") or
//	^<number> s (meaning vertically offset <number>*0.1") or
// _<number> s (meaning horizontally offset <number>*0.1") or
// # s
// a special form "Z-s" is for ZeroTable point
(635)
DefaultArgs(lv na, 3, 0, 0)

let zchar = s>>str.char^1
let letter = s>>str.char^3
let znum = s>>str.char^4
if (zchar eq $Z)&((letter eq $E)%(letter eq $V)%(letter eq $j)) then
	[
	 @px = (letter eq $E?(znum eq $3?400,8),(letter eq $j?8,400))
	 @py = letter eq $E?500,16
	 resultis absolute
	]
let bpVOffset, bpHOffset = 0,0
let i=0
let c = $#
let offsetIsVertical = nil

while i le s>>str.length & (c ls $a % c gr $z) do
[l4269
if c eq $^ % c eq $_ % c eq $# then
[l5539
offsetIsVertical = not (c eq $_)
i=i+1
c = s>>str.char^i
loopl6809
]

if c ge $0 & c le $9 then
[l5539
let bpOffset = 0
while i le s>>str.length & c ge $0 & c le $9 do
[l6809
bpOffset = 10*bpOffset+c-$0
i = i+1
c = s>>str.char^il8079
]
@(offsetIsVertical? lv bpVOffset, lv bpHOffset) = bpOffset
offsetIsVertical = true
loopl6809
]

resultis illegall5539
]

vop1 = vop1+4*bpVOffset
hop1 = hop1+4*bpHOffset

// IC position of the form <letter><number>

if i gr s>>str.length % c ls $a % c gr $z then resultis illegal
let alph = c
l4256
let num = 0
while i ls s>>str.length do
[l4256
i = i + 1
let c = s>>str.char^i
if (c ls $0) % (c gr $9) then resultis illegal
num = 10*num+(c-$0)l5248
]

if (num ge 1)&(num le 22)&(alph ge $a)&(alph le $j) then
[l4256
unless OffsetLegal(vop1, 4, 0, 7)&OffsetLegal(hop1, 12, 0, 1) do resultis illegal
unless Pin1of3W(num, alph-$a, px, py) do resultis illegal
@px=@px-vop1
@py = @py+hop1
resultis absolutel5248
]

if (num ge 51)&(num le 53)&(alph ge $b)&(alph le $i) then // 24 pins
[l4256
if (hop1 eq 12)%(alph eq $d)%(alph eq $g) then resultis illegal
unless OffsetLegal(vop1, 4, 0, 11)&OffsetLegal(hop1, 12, 0, 2) do resultis illegal
let col = selecton alph into
[l5248
case $b: 6
case $c: 5
case $e: 4
case $f: 3
case $h: 2
case $i: 1
default: -1l6368
]
unless Pin1of6W(num-50, col, px, py) do resultis illegal
@px=@px-vop1
@py=@py+hop1
resultis absolutel5248
]

if (num ge 31)&(num le 42)&(alph ge $a)&(alph le $j) then// Term 
[l4256
unless OffsetLegal(vop1, 4, 0, 7)&(hop1 eq 0) do resultis illegal
unless Pin1of8(num-31, alph-$a, px, py) do resultis illegal
@px=@px-vop1
@py = @py+hop1
resultis absolutel5248
]

resultis illegall4256
]

and Pin1of3W(row, col, px, py) = valof
[
unless OffsetLegal(row, 1, 1, 22)&OffsetLegal(col, 1, $a-$a, $j-$a) do resultis false
let RowGp = (row - 1)/2
let RowR = (row - 1) rem 2
@px = (10 - col)*36 + ((col le $d-$a)?28,0)
@px = @px + ((col le $g-$a)?4,0) + ((col eq $a-$a)?4,0)
@py = RowGp*42 + 16 + (RowR eq 1?24,0)
resultis truel4256
]

and Pin1of8(row, col, px, py) = valof
[
unless OffsetLegal(row, 1, 0, 10)&OffsetLegal(col, 1, $a-$a, $j-$a) do resultis false
@px = (10 - col)*36 + ((col le $d-$a)?28,0)
@px = @px + ((col le $g-$a)?4,0) + ((col eq $a-$a)?4,0)
@py = row*42 + 34
resultis truel4256
]

and Pin1of6W(row, col, px, py) = valof
[
unless OffsetLegal(row, 1, 1, 3)&OffsetLegal(col, 1, 1, 6) do resultis false
@px = col*52 + 2 + (col ge 3?8,0) + (col ge 5?32,0)
@py = row*126 - 20
resultis truel4256
]

and FindIndexFromCoord(x, y, picclass, pPinNo; numargs na) = valof
[
static [ hotIndex = -1; firstUnusedPin = 0 ]

DefaultArgs(lv na, -2, lv na, lv na)

if firstUnusedPin eq 0 then firstUnusedPin = FIFC(-1,-1)
let result = FIFC(x, y, picclass, pPinNo)
if result ls 0 % result gr firstUnusedPin then CallSwat("Illegal index..")
if result eq hotIndex then CallSwat("Hot index computed...")
resultis resultl4269
]

and FIFC(x, y, picclass, pPinNo; numargs na) = valof
[
manifest
[l4269
firstEPin = 1
firstCPin = firstEPin + 200
first6WPin = firstCPin+100
firstVCCPin = first6WPin+432
firstSipPin = firstVCCPin+154
first3WPin = firstSipPin+880
firstUnusedPin = first3WPin+3520l5539
]

if x eq -1 & y eq -1 then resultis firstUnusedPin

DefaultArgs(lv na, -2, lv na, lv na)
@picclass = empty

unless OffsetLegal(x, 1, 4, 408)&OffsetLegal(y, 1, 0, 500) do resultis 0

let xoff = 0
let yoff = 0
let xcd = x
if y eq 0 % y eq 4 then // ..cable pin
[l4269
if (x-84) rem 4 ne 0 then resultis 0
xoff = (x-84)/4
if xoff ls 1 % ((xoff gr 25)&(xoff ls 37)) % xoff gr 61 then resultis 0
if xoff eq 9 % xoff eq 17 % xoff eq 45 % xoff eq 54 then resultis 0
if (y eq 4) & (xoff eq 8 % xoff eq 53) then resultis 0
if xoff ge 37 then xoff = xoff + 14
resultis xoff + (y eq 4?25,0)l5539
]

if y eq 496 % y eq 500 then //...edge pin
[l4269
if x rem 4 ne 0 then resultis 0
xoff = x/4
if xoff ls 0 % ((xoff gr 46)&(xoff ls 54)) % xoff gr 102 then resultis 0
if xoff ge 53 then xoff = xoff - 5
if ((xoff + 2) rem 10) eq 0 then resultis 0 // GND Pins
resultis 98 - xoff + (y eq 500?0,100)l5539
]
if (x gr 228)&(x ls 248) then resultis 0
if x ge 248 then xcd = x - 28
if x ge 116 then xcd = xcd - 4 - (x ge 364?4,0)
if ((y + 8) rem 42) eq 0 then // ..Sip socketl4269
[l4269
unless OffsetLegal(x, 4, 2, 99) do resultis 0
yoff = (y + 8)/42
if (xcd rem 36) eq 0 then // VTT pins
[l5539
@picclass = MustFindNamee("VTT", typeIcclass)
@pPinNo = yoff*10 - (xcd/36) + 1l6496
]
xoff = (xcd - 4)/4
if (xoff rem 9) eq 0 then resultis 0
resultis firstSipPin + yoff*80 - (xoff/9)*8 - (xoff rem 9)l5539
]

let ygp = 0
let hop = 0
if (((y + 20) rem 126) eq 0)%(((y - 4) rem 126) eq 0) then // ..6W socketl4269
[l4269
if (xcd ls 10)%(xcd gr 322) then resultis 0
if xcd ge 118 then xcd = xcd - 4
if xcd ge 222 then xcd = xcd - 4
unless OffsetLegal(xcd-6, 4, 1, 77) do resultis 0
xoff = (xcd - 6)/4
ygp = (y ge 232?1,0) + (y ge 358?1,0)
if (((y - 4) rem 126) eq 0) then hop = 1
if ((xoff rem 13) eq 1)&(hop eq 0) then // VEE pin
[l5539
@picclass = MustFindNamee("VEE", typeIcclass)
@pPinNo = 226 + ygp*6 - (xoff/13)l6496
]
if ((xoff rem 13) eq 12) then // GND pin
[l5539
@picclass = MustFindNamee("GND", typeIcclass)
@pPinNo = 446 + ygp*12 + hop*6 - (xoff/13)l6496
]
if (xoff rem 13) eq 0 then resultis 0
resultis (first6WPin+ygp*144+hop*72+72-(xoff/13)*12-(xoff rem 13))l5539
]
if (((y - 16) rem 42) eq 0)%(((y - 28) rem 42) eq 0) then hop = 1
if (((y - 40) rem 42) eq 0)%(((y - 52) rem 42) eq 0) then hop = 1
if hop eq 1 then // ..3W socketl4269
[l4269
if (x ls 8)%(x gr 400) then resultis 0
unless OffsetLegal(x-4, 4, 1, 99) do resultis 0
xcd = x - (x gr 228?16,0)
xoff = (xcd - 4)/4
if (xoff eq 27)%(xoff eq 28)%(xoff eq 55)%(xoff eq 56) then resultis 0
if (xoff eq 57)%(xoff eq 58)%(xoff eq 85)%(xoff eq 86) then resultis 0
ygp = (y - 16)/42
yoff = ((y - 16) rem 42)/12
let vpin = 0
if (xoff eq 9)%(xoff eq 18)%(xoff eq 37)%(xoff eq 46) then vpin = 1
if (xoff eq 67)%(xoff eq 76)%(xoff eq 95) then vpin = 1
if (vpin eq 1)&((yoff eq 1)%(yoff eq 2)) then resultis 0
if xoff ge 28 then xoff = xoff - 1
if xoff ge 56 then xoff = xoff - 3
if xoff ge 83 then xoff = xoff - 1
if (vpin eq 1)&((yoff eq 0)%(yoff eq 3)) then // VCC pin
[l5539
@picclass = MustFindNamee("VCC", typeIcclass)
if ((xoff/9) eq 1)%((xoff/9) eq 2) then vpin = 8 - (xoff/9)
if ((xoff/9) eq 4)%((xoff/9) eq 5) then vpin = 9 - (xoff/9)
if ((xoff/9) eq 7)%((xoff/9) eq 8) then vpin = 10 - (xoff/9)
@pPinNo = ygp*14 + (yoff eq 3?7,0) + vpin
resultis (firstVCCPin + ygp*14 + (yoff eq 3?7,0) + vpin - 1)l6496
]
if ((xoff rem 9) eq 1)&((yoff eq 0)%(yoff eq 2)) then // VEE pin
[l5539
@picclass = MustFindNamee("VEE", typeIcclass)
@pPinNo = ygp*20 + (yoff eq 2?10,0) + 10 - (xoff/9)l6496
]
if ((xoff rem 9) eq 8) then // GND pin
[l5539
@picclass = MustFindNamee("GND", typeIcclass)
@pPinNo = ygp*40 + yoff*10 + 10 - (xoff/9)l6496
]
resultis (first3WPin + ygp*320 + yoff*80 +80-(xoff/9)*8-(xoff rem 9))l5539
]
resultis 0l4256

]