//  NetDelaysBoard.bcpl 
//  last modified December 15, 1978

get "NetDelays.defs"


let DoBoardNets() be
	[
	Wss(screen,"*n*n")
	FindFirstNet(0)
	let nodestr = vec 20
	let net = vec Lnet
		[
		Zero(net,Lnet)
		let node = vec Lnode
		FindNet(net);  if Done then break
		ReadInNet(net,node,0,nodestr)	
		if (net>>net.inputs eq 0)%(net>>net.mufpins gr 1) then
			[ if Debug gr 0 then SendTab()
			Msg("   $S - skipped*n",lv net>>net.name)
			loop
			]
		if Debug ge 3 then Msg("$S,> ",nodestr)

		ComputeOnBdDelays(net)	
		TotalDelay = TotalDelay + net>>net.Dly
		TotalLength = TotalLength + net>>net.length.end/10
		Nets = Nets + 1

		if Debug gr 0 then SendTab()
		ListOnBdDelays(net)	
		test screenEn
			ifso unless Endofs(keys) do [ Gets(keys);if Gets(keys) eq DEL then Done=true ]
			ifnot Puts(screen,$!)			
		if Done then break
		] repeat 
	Closes(file)
    ]

and ReadInNet(net,node,Bd,nodestr) be	
	[ 
	nodestr>>str.length = 0
	file = fileVec!Bd
	node>>node.NewX = -1  //set node to "first node in net"
		[	//find all pins on net
		let type = FindNode(node,net,Bd,nodestr)
		if type eq true then break	//new net

		ProcessNode(node,net,type)	
		] repeat 

	if WLout then  if net>>net.edgechar do CopyToWLFile()
	printedDly=false
	if (net>>net.edgechar ne 0)&(EdgePins eq 0) then  //make edgepin an input or output
		test net>>net.outputs eq 0
			ifso  //make the edge pin an output
				[
				net>>net.outputs = 1
				test net>>net.edgefirst eq 0 
					ifso  //put edge pin at back of net
						[
						net>>net.length.Fout = net>>net.length.end
						net>>net.pins.Fout = net>>net.pins.end
						net>>net.length.Lout = net>>net.length.end
						net>>net.pins.Lout = net>>net.pins.end
						]
					ifnot  //put edge pin at front of net
						[
						net>>net.length.Fout = 0
						net>>net.pins.Fout = 1
						net>>net.length.Lout = 0
						net>>net.pins.Lout = 1
						]
				]
			ifnot  //make the edge pin an input
				[
				net>>net.inputs = net>>net.inputs + 1
				test net>>net.edgefirst eq 0  //put edge pin at back of net 
					ifso  //put edge pin at end of net
						[
						net>>net.length.Lin = net>>net.length.end
						net>>net.pins.Lin = net>>net.pins.end
						if net>>net.inputs eq 1 then  //this is the only input
							[
							net>>net.length.Fin = net>>net.length.end
							net>>net.pins.Fin = net>>net.pins.end
							]
						]
					ifnot  //put edge pin at front of net
						[
						net>>net.length.Fin = 0
						net>>net.pins.Fin = 1
						if net>>net.inputs eq 1 then  //this is the only input
							[
							net>>net.length.Lin = net>>net.length.end
							net>>net.pins.Lin = net>>net.pins.end
							]
						]
				]
	] 

and ProcessNode(node,net,type) be	
	[ 
	let NetLength = net>>net.length.end + node>>node.Distance
	net>>net.length.end = NetLength
	net>>net.pins.end = net>>net.pins.end + 1
	if net>>net.terms eq 0 then net>>net.stubl = node>>node.Distance
	if type eq $t then net>>net.terms = net>>net.terms + 1
	if type eq $m then net>>net.mufpins = net>>net.mufpins + 1
	if (type eq $e)%(type eq $c) then
		[
		net>>net.edgechar = type
		if net>>net.pins.end eq 1 then net>>net.edgefirst = true
		]
	if type eq $i then
		[
		if net>>net.pins.Fin eq 0 then
			[
			net>>net.length.Fin = NetLength
			net>>net.pins.Fin = net>>net.pins.end
			]
		net>>net.length.Lin = NetLength
		net>>net.pins.Lin = net>>net.pins.end
		net>>net.inputs = net>>net.inputs+1
		]
	if type eq $o then
		[
		if net>>net.pins.Fout eq 0 then
			[
			net>>net.length.Fout = NetLength
			net>>net.pins.Fout = net>>net.pins.end
			]
		net>>net.length.Lout = NetLength
		net>>net.pins.Lout = net>>net.pins.end
		net>>net.outputs = net>>net.outputs+1
		if node>>node.Chip eq SE then net>>net.clocknet = true
		]

	]

and ComputeOnBdDelays(net) be	
	[ 
	let L = net>>net.length.Lout - net>>net.length.Fout
	let P = (net>>net.pins.Lout - net>>net.pins.Fout) + 1
	let WOrDly = FindDelay(L, P,"w")
	L = net>>net.length.Lin - net>>net.length.Fout
	P = (net>>net.pins.Lin - net>>net.pins.Fout) + 1
	let Dly = FindDelay(L, P,"f")+WOrDly
	L = net>>net.length.Lout - net>>net.length.Fin
	P = (net>>net.pins.Lout - net>>net.pins.Fin) + 1
	let otherDly = FindDelay(L, P,"r")+WOrDly
	if otherDly gr Dly then Dly = otherDly  //use the greater
	net>>net.WOrDly = WOrDly
	net>>net.Dly = Dly
	]

and ListOnBdDelays(net) be	
	[ 
	let DlyInt, DlyFraction = net>>net.Dly/10, net>>net.Dly rem 10
	let WOrInt, WOrFraction = net>>net.WOrDly/5, (net>>net.WOrDly*2) rem 10//2*WOrDly
	DlyTable!DlyInt = DlyTable!DlyInt+1
	let Fok = true
	if Fok then if (net>>net.clocknet) & (WOrInt ge 1) then [ Msg("$Dwc", WOrInt); Fok=0 ]
	if Fok then if WOrInt ge 3 then [ Msg("$Dw ", WOrInt); Fok=0 ]
	if Fok then if (net>>net.clocknet) & (DlyInt ge 2) then [ Msg("$Ddc", DlyInt); Fok=0 ]
	if Fok then if DlyInt ge 5 then [ Msg("$Dd ", DlyInt); Fok=0 ]
	if Fok then Msg("   ")
	Msg("$S($D)",lv net>>net.name,net>>net.number); SendTab()
	Msg ("Dly=$D.$D; ",DlyInt, DlyFraction)  
	Msg ("L=$D; ",net>>net.inputs + net>>net.mufpins)  
	Msg ("T=$D",net>>net.terms)  
	if net>>net.outputs gr 1 then Msg ("; WO=$D.$D",WOrInt, WOrFraction)
	Msg("*n")  
	]

and FindNet(net) be 
	[
	FilePos(file,Fposn)
	let str = lv net>>net.name
	str>>str.length = 0
		[ let char = Char()
		if char eq $: then break
		if char ne $*n then AppendC(lv net>>net.name,char)
		if Done then return
		] repeat
	if StEq(str,"CALIBRATE") % StEq(str,"DISCARD") % StEq(str,"DISCONNECT") % StEq(str,"GND") % StEq(str,"VCC") % StEq(str,"VEE") % StEq(str,"VTT") % StEq(str,"VDD") % StEq(str,"VBB") then
		[
		[ FindChar($*n); if Char() eq $*n then break ] repeat
		if Debug ge 3 then [ SendTab(); Msg("   $S - skipped*n",str) ]
		loop
		]
	FindChar($<)
	let num = GetNum()
	FindChar($*n)
	net>>net.number = num
	return
	] repeat


and FindNode(node,net,BdNum,nodestr) = valof
	[ let newLine = false; let alpha = nil; let type = 0
		[
		alpha = Char()
		if alpha eq $E then [ type = $e; break ]
		if alpha eq $C then [ type = $c; break ]
		if (alpha ge $a) & (alpha le $z) then break
		if alpha eq $*n then newLine = newLine+1; if newLine ge 2 then resultis -1
		] repeat
	let num = GetNum()
	if (type ne $e)&(type ne $c) then
		[
		[ type = Char(); if (type eq $i) % (type eq $o) then break; if type le #40 then resultis -1 ] repeat
		node>>node.Chip = WhatICtype(alpha,num,BdNum) 
		if node>>node.Chip eq Term then type = $t
		if node>>node.Chip eq MU then type = $m
		]
	//append the node type such that a backpanel terminator is 
	//before the first last pin or after the last edge pin
	if net>>net.pins.end ne 0 then AppendC(nodestr,type)
	if EdgePins do
		if ((type eq $e)%(type eq $c)) & EdgePinTermination(type,num,BdNum) then
			[ net>>net.terms=net>>net.terms+1; AppendC(nodestr,$t) ]  //backpanel terminator
	if net>>net.pins.end eq 0 then AppendC(nodestr,type)
		
	FindChar(${)
	node>>node.OldX = node>>node.NewX; node>>node.OldY = node>>node.NewY
	node>>node.NewX = GetNum(); node>>node.NewY = GetNum()
	FindDistance(node)
	resultis type
	]


(635)\109f1 37f0 22f1 19f0 1f1 3f0 1f1 16f0 1f1 22f0 1f1 35f0 1f1 32f0 1f1 56f0 1f1 33f0 1f1 44f0 1f1 7f0 1f1 4f0 1f1 42f0 1f1 25f0 1f1 40f0 1f1 52f0 1f1 18f0 1f1 30f0 1f1 22f0 1f1 15f0 1f1 61f0 3f1 17f0 1f1 27f0 1f1 20f0 1f1 11f0 1f1 14f0 7f1 325f0 8f1 318f0 8f1 15f0 8f1 39f0 6f1 18f0 8f1 15f0 8f1 39f0 6f1 77f0 8f1 52f0 8f1 266f0 8f1 14f0 8f1 38f0 6f1 89f0 8f1 14f0 8f1 39f0 6f1 86f0 8f1 121f0 8f1 14f0 8f1 39f0 6f1 438f0 8f1 50f0 9f1 49f0 6f1 30f0 8f1 27f0 6f1 39f0 8f1 26f0 6f1 103f0 6f1 31f0 8f1 28f0 6f1 40f0 8f1 27f0 6f1 183f0 8f1 15f0 8f1 23f0 6f1 15f0 6f1 57f0 8f1 14f0 8f1 19f0 6f1 14f0 6f1 61f0 8f1 15f0 8f1 18f0 6f1 15f0 6f1 993f0 1f1