Google
 
Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - decus/20-0143/struct.unv
There is 1 other file named struct.unv in the archive. Click here to see a list.
x
,5
@P C}i  3

	AD	B0,C
	JRST	F
	JRST	E	T	F
	JE2&>6 p 7
AB== .
			
AB== .G>t@ 0 -

..CCNT==P 0
	IRP	A,< ..CpCNT== ..CCNT+1 >
	IFE	..CCNT-4,<
	  ACOND	(A,B,PC)  >
	IFE	..CCpNT-2,<
	  ..CC== 0
	  IRP	A,<
0	  ..CC== ..CC+1
	pIFE	..CC-2,<
	    COND (A,C,B) > > >
	IFE	0..CCNT-3,<
	  ..PCC== 0
	  IRP	Ap,<
	  ..CC== ..CC+1
	  IFE	..CC-01,<
	    COND (PA,d,e) >
	  IFpE	..CC-2,<
	    IFIDN <A><AND>,<0
e:	JRST	C
dP:	>
	    IFIDN <pA><OR>,<
d:	JRST	B
e:	>
	 >0
	  IFE	..CC-3,<P
	    COND (A,B,C) > > > A,_J>>6 0 ;
	.ORG	AB
				.ORG	A9  0!i
	IFNDEF	P.CLVL,<.CLVL== 0>p
	JRST	a
	BLDSYM	(.CBO,\.CLVL)
	BLOCK	1
	BLDSYPM	(.CNX,\.CLVL)
pb:	BLOCK	1
a:	JRST	@b
.CLVL== .CLVL+1
			==f9  	p i
	IFNDEF	
.ILVL,<PRINTX "AT
0TEMPTED %ELSE W/O
P %IF">
	.ILVL== 
p.ILVL-1
	IFL	.ILVL,<PRINTX "ATTEM0PTED %ELSE W/O %IPF">
	IFGE	.ILVL,p<
	JRST	@b
	OR

GSYM	(.IF,\.ILVL)

0
	EXP	a
	.ORG

P
	BLDSYM	(.IF,\.I

pLVL)
b:	BLOCK	1
a:
	.ILVL== .ILVL+1
			>  .tHp "P"/
	IFNDEF	"p.CLVL,<PRINTX "AT#TEMPTED %ENDCASE #0W/O %CASE">
.CLV#PL==	.CLVL-1
	IFL#p	.CLVL,<PRINTX "A$TTEMPTED %ENDCASE$0 W/O %CASE">
	IF$PGE	.CLVL,<
a==	$p.
	ORGSYM	(.CBO,%\.CLVL)
	EXP	a
	.ORG
	ORGSYM	(%P.CNX,\.CLVL)
	EX%pP	a
	.ORG
			> a
	.ORG
			>tJ3 
	IFNDEF	RINTX "ATTEMPTED %ENDIF W/0O %IF">
	.ILVL==P .ILVL-1
	IFL	.IpLVL,<PRINTX "ATTEMPTED %ENDIF W/O 0%IF">
	IFGE	.ILVPL,<
a:
	ORGSYMp	(.IF,\.ILVL)
	EXP	a
	.ORG
			> a
	.ORG
			tK +"q
	IFNDEF	+0.LLVL,<PRINTX "%E+PNDLOOP W/O %LOOP"+p>
	.LLVL== .LLVL,-1
	IFL	.LLVL,<P,0RINTX "%ENDLOOP W,P/O %LOOP">
	IFGE,p	.LLVL,<
	ORGSYM-	(.LT,\.LLVL)
a-0== .
	.ORG
	JRS-PT	a
b:
	ORGSY-pM	(.LB,\.LLVL)
	.EXP	b
	.ORG
			> b
	.ORG
		tMt p!1
	IFNDEF	.WLVL,<PRINTX "AT0TEMPTED %ENDWHILEP W/O %WHILE">
	.pWLVL== .WLVL-1
	IFL	.WLVL,<PRINTX0 "ATTEMPTED %ENDWPHILE W/O %WHILE">p
	IFGE	.WLVL,<
	ORGSYM	(.WTO,\.W0LVL)
a== .
	.OPRG
	JRST	a
b=p=	.
	ORGSYM	(.WLV,\.WLVL)
	EXP	b
	.ORG		> P	E 'P"U
	IFNDEF	'p.LLVL,<PRINTX "%E(XITIF W/O %LOOP">(0
	.LLVL== .LLVL-(P1
	IFL	.LLVL,<PR(pINTX "%EXITIF W/O) %LOOP">
	IFGE	.)0LLVL,<
	COND	(<)PA>,b,c)
b:	JR)pST	@d
	BLDSYM	(*.LB,\.LLVL)
d:	*0BLOCK	1
c:
	.L*PLVL== .LLVL+1
			>  .LLVL+1
		&0 p K
	IFNDEF	.ILVL,<.ILVL== 0>0
	COND	(<A>,b,Pc)
c:	JRST	@.+p1
	BLDSYM	(.IF,\	.ILVL)
	BLOCK	1
b:
	.ILVL== .ILVL+1
			== .I2}| &0"9
	IFNDEF	&P.LLVL,<.LLVL== 0>&p
	BLDSYM	(.LT,\.'LLVL)
	.LLVL== .LLVL+1
			== .J.	0 P!;
	IFNDEF	p.RLVL,<.RLVL== 0>
	BLDSYM	(.RTO,\0.RLVL)
.RLVL== .RLVL+1		LVL== .VvJ6 p!W
	IFNDEF	.RLVL,<PRINTX "AT0TEMPTED %UNTIL W/PO %REPEAT">
.RLVpL==	.RLVL-1
	IFL	.RLVL,<PRINTX "A0TTEMPTED %UNTIL WP/O %REPEAT">
	IFpGE	.RLVL,<
	COND	(<A>,b,c)
	O0RGSYM	(.RTO,\.RLVPL)
d==	.
	.ORGp
c:	JRST	d
b:			> ST	d
b^D[@ P"

	IFNDEF	p.CLVL,<PRINTX "ATTEMPTED %WHEN W/O0 %CASE">
.CLVL==P	.CLVL-1
	IFL	.CpLVL,<PRINTX "ATTEMPTED %WHEN W/O %0CASE">
	IFGE	.CLPVL,<
	ORGSYM	(.CpBO,\.CLVL)
d==	 .
	.ORG
	JRST	@ 0d
f==	.
	ORGS PYM	(.CNX,\.CLVL)
	EXP	f
	.ORG
!	COND	(<A>,b,c!0)
c:	JRST	@e
!P	BLDSYM	(.CNX,\.C!pLVL)
e:	BLOCK	1"
b:
.CLVL== .CLVL+1
			>  .C^E P!
	IFNDEF	p.WLVL,<.WLVL== 0>
	BLDSYM	(.WTO,\0.WLVL)
	COND	(<PA>,b,c)
c:	JRpST	@.+1
	BLDSYM	(.WLV,\.WLVL)
	B0LOCK	1
b:
.WLVL==	.WLVL+1		LVS@P >}{woP