Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0003/pasunv.unv
There are 5 other files named pasunv.unv in the archive. Click here to see a list.
x
,5.@P B@ CV= (z
	  adjsp A,B
	  adjspD@ F@ H@ J@ KJV,z h~
	  jump 16,A
	&djump L@PL*`PPL\XPPL7PPL<]PPLMj:PPLfLzPPL~	7P L]P L]P L]P LP M&d(2P M&d-3P M&d:P M&d;P 	M&d;8P M&d;ZP 
M&eMP&M&eh6P&M&fP&M&f M&f4)P M&f4)P M&f4*P 
M&f4+P 
M&f4+P M&f4HP M&f4HP 
M&f<P M&f=P M&f=
P M&f=
P M&fLzP M0,-3Q 
M0,[vP@M0,k2P@M0-rPQM0-H`PeM0-[rQuM0-|PaM0.K8PaM4,.:P M4,:P M4-LzP M4-X8P M4-m6P M4.)1P M4.MP M4.|RP N@ P@ W
	move a,filr99(b)
	pushj p,@A(a)	pushj p,@A(g/)0 h *
 ife A,<skipn filbad(b)>(
 ifn A,<skipn filbad(A)>
  g/|Z h "
 ife A,<skipe filbad(b)>(
 ifn A,<skipe filbad(A)>
KgJN=`@ gVl^P h@ it^P i?4(P m
	;call rouHtine via vector -h uses a, fcb in b
	move a,filr99((b)	;get dispatch Haddr
	jrst @A(a)r
	jrst @A(aS@P >}{woP