Google
 
Trailing-Edge - PDP-10 Archives - BB-FB51A-RM - sna-ai/sources/saibls.l36
There are no other files named saibls.l36 in the archive.
'GTOPS-20 Bliss-36 4A(225)13-Feb-1985 13:31:32Wedne	


x$RETURNxAACCx$INITIALIZExlARADx.ARBDxAARECx4ARDExXACONx4AREJxVARCNx}AREMxtATRAxSALISx0ATERx$VASSIGNx$ASSIGNdDI&
XB`

d@H(P"` 	H@b)#`0
E)&
X@(J*)`z@

	$1@b)#`0
E)&
X@(J*)`z@X@J# b)#`0
E)&
X@(J*)`z@

	$1@8 pD	!Da@q)e)"E!>!y%`f
 d	!@0&$X`0$q*$	$D(PD	!DaA)e)"E!>!y%e-"H@1!d%`0 d>(e(/E)!%: X@)/$@1!d%
 vb!$")$'
Xp

$!Y6d	!e
*%/dy" R`(e(/E)!%e
*%/dy"@ pE
%Da@q)e)"E!>!y%`f
 e
%@0&$X`0$q*$	$D(PE
%DaA)e)"E!>!y%e-"H@1$"D%`0)$Q>(e(/E)!%: X@1$"D%`0)$Q>)$q&"d"%h`v$	>)$PPE
%DaX

	
*%`X@0

)$Q&eX

D)/D)(*Dq>!d!
.Hp`Y 'E!>'$i"@d))%y'( )%!*)Ey'(  pD'Da@q)e)"E!>!y%`f
 d'@0&$X`0$q*$	$D(PD'DaA)e)"E!>!y%e-"H@1'D%`0+e$D9> D).h`0

!dq&eX

$q("E*(y$$q"h`vD'Da-@i'Ey')>'$i
.h`0

!dq&eX

dy/dI$!$I(/D	" z#X

dy!Y6'e)e9)h`0vD'Da-@q'Ey'dy/$y" zcX

dy!Y6'e*dq&%h`@vD'Da-@A'Ey*)%: X@1'D%`0!dq> d
)ey $): X@1'D%`0!dq>*d)$/	(  zCX

dy!Y6'e)&"Ey 	>&$q*h`XvD'Da-@q'Ey&&%y*$
) z#X

%y'B@

dy!XR`Xp

dy!Y6d'e)y*$
) vb!$")$'
Xp

dy!Y6d'e
*%/dy" R`p"+e/%
 d	"D)&)(dI>!	'$`he)y*$
)$q"%y $( !%*%!>$A  e.'D  &d9'di" A &%y $( *d)$/D	"%)&"Ey 	> !$"e  *d)$/	( da
'e! $"eE*dq*&D)$ D)(*Dq>!d!
 t pE
!Da@q)e)"E!>!y%`f
 e
!@0&$X`0$q*$	$D(PE
!DaA)e)"E!>!y%e-"H@1$"d%`0)$>(e(/E)!%: X@1$"d%`0 )$>"%!/y')$.h`vE
!Da-@y$"ey 	>&$q*hp`0
 e
!
0

)$&bH` z@0

)$&eX

D)/d)"/E)!%:`X
p

D)!Y6E
!e.X \E
!Da-A$"ey 	>(dI*%:`Xp

D)!Y6e
!d!*%y"D9($ vb!$")$'
X

p

D)!Y6e
!e
*%/dy" R`0(e(/E)!%d!*%y"D9($"%!/y')$Q&"%y*$
))D)(*Dq>!d!
 h pE
&Da@q)e)"E!>!y%`f
 e
&@0&$X`0$q*$	$D(PE
&DaA)e)"E!>!y%e-"H@1$"$%`0)$i>(e(/E)!%: X@1$"$%`0)$i>"%!.h`0

)$i&eX

D)/	( da
'e!.h`v$	>)$hPE
&DaX \E
&Da-@q$"%y&"%y*$
) v#h@1$"$%`0

)$i>)h`z@0

)$i&eX

D)/	( da
'e!.X

	
*%`0X@0

)$i&eX

D)/D)(*Dq>!d!
.Hp

@Y 'E!>'$i"@	( da
'e!a 	>(dI*%E
(dq*&D)$$$)%!*)Ey'( ` pE"Da@q)e)"E!>!y%`f
 e"@0&$X`0$q*$	$D(PE"DaA)e)"E!>!y%e-"H@1$"$%`0))>(e(/E)!%: X@)/D!
@1$"$%
 vCh@1$"$%`0))>"E) vch@1$"$%`0))>)	(" vh@1$"$%`0$))>"%!/%1$	&%h`(z@0

))&eX

D!
/$q("E*(y+$I Da
.X

	
*%`0X@0

))&eX

D!
/D)(*Dq>!d!
.Hp

@Y 'E!>'$i"@%$'@)&*%!
 	( d	, $a!( &$E!
)E) *d	, $a!( )%!*)Ey'( r pE"Da@q)e)"E!>!y%`f
 e"@0&$X`0$q*$	$D(PE"DaA)e)"E!>!y%e-"H@1$ %`0)$!>(e(/E)!%: X@1$ %`0)$!>"%!.h`0
 e"
0

)$!&bH`z@0

)$!&eX

D	/$)y&*%!*) vch@1$ %`0 )$!> Dy$*e
 dy.X \E"Da-@q$ y&"E
/dy" v#h@1$ %`0)$!>)	(" vCh@1$ %`0)$!>&$q*h@8H)%!*)B@\E"Da-@y$ y$")$'d"%hXy$*dq*&D)$a!e(/e!*%  Dy$*e
 dy d))%y'( 
)	("Da
'e! 	( e()e
*%/dy"J pE"Da@q)e)"E!>!y%`f
 e"@0&$X`0$q*$	$D(PE"DaA)e)"E!>!y%e-"H@1$!%`0)D!>(e(/E)!%: X@1$!%`0)D!>!$q/	(  zcX

%y$!@

D!XR`Xp

D!Y6e"d'y"D9($ vb!$")$'
Xp

D!Y6e"e
*%/dy" R` (e(/E)!%Da
'e!A 	>(e
*%/dy"8 pE'Da@q)e)"E!>!y%`f
 e'@0&$X`0$q*$	$D(PE'DaA)e)"E!>!y%e-"H@1$!D%`0)dq>(e(/E)!%: X@)/D@1$!D%
 vb!$")$'
Xp

D!Y6e'e
*%/dy" R`(e(/E)!%e
*%/dy"n pE!$ Da@q)e)"E!>!y%`f
 e!$ @0&$X`0$q*$	$D(PE!$ DaA)e)"E!>!y%e-"H@1()$%`0*D	>(e(/E)!%: X@1()$%`0*D	>"%!/I " zCX

!Y6e!$ d!*%y"D9($ z@X@1()$%`0 *D	>"%!/y')$.h` vE!$ Da-@q()%y&"%y*$
) z#X

!Y6E!$ e.h`0
 e!$ 
0

*D	&bH` z@0

*D	&eX

/	( e$E!
) vb!$")$'
Xp

!Y6e!$ e
*%/dy" R`8(e(/E)!%$!*%y(,(d!*%y"D9($"%!/y')$Q&"%y*$
))D)(*Dq>!d!
 @ pE!
)Da@q)e)"E!>!y%`f
 e!
)@0&$X`0$q*$	$D(PE!
)DaA)e)"E!>!y%e-"H@1("D%`0*%>(e(/E)!%: X@1("D%`0*%>)$q&"d"%h`v$	>*%PE!
)DaX

	
*%`X@0

*%&eX

)$/D)(*Dq>!d!
.Hp`Y 'E!>'$i"@d))%y'(e
*%/dy"j pDa)Da@q)e)"E!>!y%`f
 da)@0&$X`0$q*$	$D(PDa)DaA)e)"E!>!y%e-"H@1$d%`0+e$D9> D).h`0

&%&eX

$q("E*(y$$q"h`vDa)Da-@i$ey')>'$i
.h`0

&%&eX

I&/dI$!$I(/D	" z#X

I&!Y6da)d	!%&/D	" zCX

I&!Y6Da)e*dq*&D)$.h`0
 da)
0

&%&bH`z@0

&%&eX

I&/y$*dq*&D)$.X

	
*%`@X@0

&%&eX

I&/D)(*Dq>!d!
.Hp	.'DY> D)/$!)%&Y 'E!>'$i"@/dA'D)@ZI')>'$i
 dI$!$I(/D	"D	!%&Q&&%y*$
)e
*%/dy"