Google
 
Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_3_19910112 - pascal-demo/pasunv.unv
There are 5 other files named pasunv.unv in the archive. Click here to see a list.
x
,5>@P B@ CV=  1
	  adjsp A,B
	  adjspC0 
8 _
	irp	A,
X<
	 ifidn <A><0
x>,<0>	;leave zero alone
	 ifdif <8A><0>,<ifiw A>	X;instruction formxat (local) indirect word
>ndireD@ E'@@ F@ H@ J@ KJV,z X 5
	  jump 16,A
	  jump KK\s X w
	hrroi	ax,[asciz/A/]
	esout%
A/]
	esL@ L*`P L\XP L7P L<]P LMj:P LfLzP L~	7P L]P L]P L]P LP M&dP M&d(2P M&d(zP M&d)XP 
M&d)YP M&d)xP M&d*<P M&d+P M&d,P M&d-3P M&d8\P M&d:P M&d;P 	M&d;8P M&d;ZP 

M&eMP M&eh6P M&f3P 
M&fP&M&f M&f&,P 	M&f4(P 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&f=SP M&f=SP 

M&fI9P 
M&fLzP M0,-3Q 

M0,[vP M0,k2P M0-rP M0-H`P M0-[rQ M0-|P M0.K8P M4,.:P M4,:P M4-LzP M4-X8P M4-m6P M4.)1P M4.MP M4.|RP N@ P@ W
:9@\@]&`@r^@ a@.MQr@e@.{Qci`@ aP a
	move a,filr99(	xb)
	pushj p,@A(a)
ushjp,@A(g,-3P g/)0 
xifeiA,ilbad(b)>
 ifn A,<skipn filbad(A)>
  g/|Z 

X i
 ife A,

x<skipe filbad(b)>
 ifn A,<skipe filbad(A)>
Kg8,;rPCg8-X<PlgJN=`@igRX[YPcgVl^Puh@bit^P i?4(P m
	move a,filr99(b)	;get dispatch 8addr
	jrst @A(a)

	jrst @A(aB9QP B=YP B>P S@P c$[R x -
	intern	%PASXT		;make %PA8SXT internal for XLINK to catch errxors
	sall			;suppress macro expan8sions
	.direc	sfXcond		; and failixng conditionals
	.direc	flblst		;8 and multi-line bXinary
if1,<
ifex tops10,<
ifn %PASXT,<printx Exte8nded addressing (X2060) version>
ixfe %PASXT,<printx Single section (82020/2040) versioXn>
>;ife tops10
>;if1
tops10