PDP-10 Archive: decus/20-0062/meta2c.rel from decuslib20-02

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0062/meta2c.rel

There are 2 other files named meta2c.rel in the archive. Click here to see a list.

<F6OeF6Oe0#SHMETA2:	N	[--,
4<),5<",	,PUSHJ	(AD,	,P,%GEN,
,	,DEC,	,,
4<)	"DA
"l<5<),!	,#PUSHJ,$	,&P,%COPYI,'
5<4<,	"D@"+CL#5<2,(	,,PUSHJ,-	,.P,%CLEVL+1,/
4<,*	"D@"3C#5<;,1	,4PUSHJ,5	,7P,%BLOCK+1,8
4<,	O	*E<5<<4<,3BL#5<E,:	,>PUSHJ,?	,AP,%BLEVL+1,B	"ED
4<,=B#5<M,D	,GPUSHJ,H	,IP,%BLOCK,J
	* DM4<,ES#5<U,L	,OPUSHJ,P	,QP,%SYMB,R
4<	(UU,MN#5<b,5<),T	,XPUSHJ,Y	,ZP,%CALND,[
	(D(Q(^,]	,^DEC,_	, ,`
4<,U^(5<v,W5<W,	(Uf,c,5<e,5<g,f)5<h,,a	,kPUSHJ,l		(E
o,nP,%GET,o
,p	,qDEC,r	,a,s
4<,i^	*Q"w5<,d5<j,u	,yPUSHJ,z	,{P,%POP,|
,~		(E
",DEC,	,t,
4<,v+%(5<,	,TLO,		("U,F,SCATEN,
4<5<x,e,,5<	*EA,5<,)5<,j,
	,PUSHJ,	,P,%PUT	(D"E
,
,	,DEC,	,,
4<,+%5<&,		(DQ*",!TLO,"	,#F,SCATEN,$
4<(,%5<(5<4,*PUSHJ,+	,,P,%PUSH,-
,/	,0DEC,1		*(D 3,,2
4<,'+#(5<<,3	,6TLO,7	,8F,SCATEN,9	"E**;
4<>,5#(5<>5<Y,)5<),,<,5<?,5<A,@)	(QAD5<B,5<D,?,,;	,GPUSHJ,H	,JP,%PUT	(D"L,K
,L	,MXWD,N	,O-1,^D,3,P
,F,R	"(Q"U	,TASCIZ,U	,R,W
4<,C+#5<a,X	,[TLO	(A
(],\	,]F,SCATEN,^
4<c,Z#5<c5<z,>5<E,E,D	*f5<d,d,S,`	,hPUSHJ,i	,kP,%PUSH,l
	(D Qn,m	,nXWD,o	,p-1,^D,X,q
,g,s	,u	 E
 wASCIZ,v	,s,x
4<,a-5<,y	,|PUSHJ,}	""	,P,%COPYL,
,	,BYTE,	,(7) 011,0,
	*Q"4<,e5<,	,	PUSHJ,
	,

P,%COPYL,
,		( (,ASCIZ,	,y,
,~Q\x.<,{.OUT5<4,(5<f	(A,	,PUSHJ,	,P,%COPYL,
,	,BYTE, 	"(Q"!	,!(7) 011,0,"
,

4<$l<5<,)5<&,#	,(PUSHJ	""*,)	,*P,%COPYL,+
,-	,.BYTE,/	,0(7) 015,01	"

22,0,1
4<,&.LABEL5<I,4(5<;,

4<8l<5<',6)	*U;5<94<=,

5<=5<;,3	,=PUSHJ,>	,@P,%COPYL,A
	(AEC,B	,CASCIZ,D	,F/:/,G
4<,:.RESET5<Q,H	" E
L	,KPUSHJ,L	,NP,%SETRE,O
4<,I.N$*5<Y,P		((T,SPUSHJ,T	,VP,%CPYDC,W
4<,R.N$S5<b,X	,[	 D*]PUSHJ,\	,^P,%CPYDC+1,_
4<,Z.*5<{,c5<=,a	"e	,eHLRZ,f	,gT,(P),h
,i	,jADDI,k	,l	"D"nT,^D,,m
,o	,pPUSH,q	,rP,T,s
,t	,u	 DQ
vPUSHJ,v	,wP,%PUTNM,x
4<,b:5<,5<d,f	(U
",{[5<},d5<,]5<,z	,PUSHJ,	,P,%MA	"EKND,
,	,	XWD,
	,^D,n,t,

,,,
4<,.TYPE5<,5<,	,PUSHJ,	,	 D E
P,%TYPE,
,	,ASCIZ,	,,
4<,^(	*Q
Q"!5<3,5<,~,U,5<",5<$,#)5<%,
,-	,.DEC,/	,	(Q*"2,0
4<,&^5<@,!5<',2	,6PUSHJ,7	,8P,%PO	"Q":P,9
,;	,<DEC,=	,1,>
4<,3+%(5<H,?	"*C	,BTLO,C	,DF,SCATEN,E
4<J,A%(5<J5<\,55<5	(E(QK,",H,5<K,5<M,L)5<N,',G	,QPUSHJ	(AD(T,R	,TP,%PUT,U
,V	,WDEC,X	,?,Y
4<	(QA
\,O+%5<c,[	,^TLO,_	,`F,SCATEN,a
4<e,\%	*T De5<e5<q,J5<P,b	,gPUSHJ,h	,iP,%PUSH,j
,l	""Em	,mDEC,n	,Z,o
4<,d+#(5<y,p	,sTLO,t	"(U"v	,uF,SCATEN,v
4<{,r#(5<{5<,f5<f,K,y,	*Q*~5<|,5<~,})5<,5<,|,P,x	,PUSHJ	(AD ,	,P,%PUT,
,		,
XWD,	,

-1,^D,p	(D E
,
,,	,ASCIZ,	,,
4<,+#	*"5<,	,TLO,	,F,SCATEN,
4< ,#5< 5<7	*E" ,{5<,,5<!,!,,	,%PUSHJ,&		(D
),(P,%PUSH,)
,*	,+XWD,,	,--1,^D,,.
	(DQ 1,$,0	,2ASCIZ,3	,0,5
4<,.BEGIN5<@	(A":,6	,:PUSHJ,;	,<P,%BEGIN,=
4<,8.END5<H,?	" E*B	,BPUSHJ,C	,DP,%END,E
4<,	O5<I4<,@.SETS	"DAKCAN5<W,G	,LPUSHJ,M	,NP,%SCAN,O
,Q	,R	"
SDEC,S	,T0,U
4<,J.ENTER5<m,V	,YPUSHJ	(AQ\,Z	,\P,%LOOK,]
,C5<f,^	,aDEC,b	,c	""d-1,d
4<ll<5<l,e	,gDEC,h	,i2,j
5<#	*(Am4<,W.CLEAR5<{, 5<l,k	,pPUSHJ,q	,sP,%CLEAR	(D"E
u,t
,u	,vDEC,w	,6,x
4<,m.SET5<,o5<p	(A~,z	,~PUSHJ,	,P,%SET,
,	,DEC,	"@Q	,y,
,~Q\x.<,{.ID5<,	,PUSHJ,

		(*A",P,%ID,
4<p,
5<4<p,
.TREE5<,	,PUSHJ	""E(,	,P,%DMPTR,
4<p,.N#5<),}5<},	,	 DD" PUSHJ,	,!P,%CALND,"
,#	,$DEC,%	,,&	"A"(
4<p,.EMPTY5<1,(	,+TLO,,	,-F,SUCCES,.
	*14<p,).STRING5<9,0	,3PUSHJ,4	,6P,%STR,7
	*94<p,1.NUMBER5<B,8	,<PUSHJ,=	,>P,%NUM,?
	*(AB4<p,:.CHECK5<Z,5<,A	,EPUSHJ,F	,HP,%CHECK	(D"D*J,I
,J	,KDEC,L	,',M
,BSET5<Q4<Y,PCLEAR	"D"*S5<Y,O	,TTLC,U	,VF,SUCCES,W
5<E4<p,R.UNTI	"T D[L5<h,"5<Y,X	,]PUSHJ,^	,`P,%UNTIL,a
,b	"(Q"d	,cASCIZ,d	,N,f
4<p,Z-.ID5<p,g	,jPUSHJ	""A"l,k	,mP,%ID+1,n
4<p,i-.STRING5<y,o	,sPUSHJ	""A"u,t	,uP,%STR+1,v
4<p,q-.NUMBER5<,x	,{PUSHJ	""E(},|	,~P,%NUM+1,
4<p,y-5<,\5<],	,	 DDPUSHJ,	,P,%TST+1,
,		,
ASCIZ,	,g	(U
,
4<p,}5<,	,PUSHJ,	,P,,,
	*Q"4<p,5<#,	,PUSHJ,	,P,%TST,
,		("A",ASCIZ,	,,!
4<p,.NODE5<n,$(5<,"	"(	,'MOVE,(	,)T,%MARK,*
,,	,-TLO,.	,/	 D"0F,SUCCES,0
,1	,2IF1,3	,4<,,5=1>,7	"9
,8	,9MOVE,:	,;T+1,1(T),<
,>	,?CAIE,@	"D A	,AT+1,,6,B
,D	,ETLZ,F	,GF,SUCCES,H	""J
,I	,JJUMPGE,K	,MF,,C,N
,P	,Q	""Q"RADD,R	,ST,1(T),T
,&,5<i,U	,YJUMPG	"D"[E,Z	,[F,,O,\
,^	,_IF1,`	,a<	(D"
c,],b=,c,d+1>,f
,Wl<5<i,W)	* Ql5<j,e,g:4<p,k.SCAN5<|,m	,qPUSHJ,r		(D"t,sP,%SCAN,t
,v	,wDEC,x	,y1,z
4<p,o	 Q }.LOOK5<,{	,~PUSHJ,	,P,%LOOK,
,C	*D(5<,	,DEC,	,0,	
4<l<5<,
	,

	"
E
DEC,,
5<l4<p,|.NOT5<),(5<,		(DT(,TLO,	,F,NDELET,
,	5<,)5<,	,	""TLC,	,F,SUCCES, 
,"	,#TLZ,$	,%F,BACKUP+N	 EE'DELET,&
4<p,.PEEK5<[,*(5<,(	,-TLO,.	"*"0	,/F,NDELET,0
,	5<:,2	,4JUMPGE,5	,6F,	(E*Q8,l,7
4<<,5<<5<-,	5<D,9	,=JUMPGE,>		(D*EA,@F,,8,A
4<E,5<E4<<l<5<<,B,C:,H	""I	,ITLZ,J	,KF,NDELET,L
,,)5<F,M	,PTLNN	(AD R,Q	,RF,SUCCES,S
,T	,UTLZ,V	,WF,BACKUP,X	"E(T(Z
4<p,N(5<_,	@5<O,[)5<]4<p,^*5<p,G,Z	"Qc:,	5<_,b	,dJUMPL,e	,gF,,a,h
,j	"*k	,kTLO,l	,mF,SUCCES,n
,~Q\x.<,	5<y,o		(E(t,sJUMPGE,t	,uF,,i,v
4<,5<,x	,{	""T |TLO,|	,}F,SUCCES,~
5<,	,JUMPGE,	"*E	,F,%ERROR,
4<	,5<	4<l<5<d,w,:,~	 T D

	,SKIPLE,	,T+1,1(T),
,	" 	,CAILE,	,T+1,777777,
,	,JRST,	"D	,.+3,
, 	,!MOVE,"	,#T+1,(T+1),$
,%	"
'	,&CAIE,'	,(T+1,,",)
,+	,,TLZ,-	,.	 D(A/F,SUCCES,/
,`(5<	,0	,3JUMPGE,4	,5F,,	"D"8,6+1,8
,9	,:PUSH,;	,<P,T,=
,>		(DD"@,?MOVE,@	,AT,1(T),B
,D	,EIF1,F	,G<	(D"I,7,H=1>,J
,K	,LMOVE,M	,NT+1,1(T),O
	(D"Q,P	,QCAIE,R	,ST+1,,I,T
,V	,WTLZ,X	"""Z	,YF,SUCCES,Z
,\	,]JUMPGE,^	,_F,,U	(D"*b,`
,b	,cADD,d	,eT,1(T),f
,
,1,	*"k5<|,h	,kJUMPGE,l	,nF,,a,o
,q	,r	"D"sIF1,s	,t<,p,u=,v,w+1>,y
,	(Q"|4<jl<5<{,j)5<},x,z:,		,	POP,		,		"*"	P,T,	
4<	l<5<	5<~4<	:,}*5<	 ,		,	
MOVE,			(D

T+1,1(T),	
,		,	TLNE,		,	T+1,777777,	
	(D D"	,		,	SOJA,		,	T,.+3,	
,		,	TLZ,			("P
	,	F,SUCCES,	
4<	:,	-5<	%,D5<	,"`x,4<	&,	"5<	&	*"	&5<	9,		,	'MOVE,	(	,	)T+1,[DEC ,*,	*],	,
,	-		(DD"	/,	.CAME,	/	,	0T+1,1(T),	1
,	2	,	3TLZ,	4	,	5F,SUC	"(D"	7CES,	6
4<	:l<5<	:5<	@,	8	,	;SOJ,	<	,	=T,,	>
	 
"	@,~Q\x.<,q5<	O,	!/5<	K,	?	,	DJUMPL,	E	,	FF,	(E"D	H,,	G
,q5<	#4<	Bl<5<	K,	H,	I:,~Q\x.<,	B	"E
Q"	Q[5<
,	P*5<	],	R:=5<	L,5<	T,	S]5<	U,	N	,	WPUSHJ	""E
	Y,	X	,	ZP,%PUTNM,	[
4<
,	VN$5<	n,	^:=5<	W,5<	`	(QD"	b,	_]5<	a,	\	,	cPOP,	d	,	eP,T,	f
,	g	,	hPUSH	(A
Q
	j,	i	,	jSTK1,T,	k
4<
,5<
,#,	b(5<
,5<	c	(Q*"	s,	p)5<	r,	s:=5<	t,5<	u,	t]5<	v,	m	,	xPOP,	y		(D""	{,	zP,T,	{
,	|	,	}POP,	~	,	P,T+1,

,
		(P"
,
MOVEM,
	,
T,,1,	+,
-1(T+1),
	
4<
,	w	"T(D"

:=5<
,5<	x,

]5<
,

	,
POP,
	,
P,,
	**
,
,

5<
5<
,~Q\x.<,
.IF5<
4,
(5<
,
55<
,
	"D"
)5<
,
	,
POP,
	,
 P,T,
!
,
"	,
#TLO,
$	"" 
&	,
%F,SUCCES,
&
,
(	,
)JUMPN,
*	,
+T,.+2,
,	"
.
,
.	,
/TLZ,
0	,
1F,SUCCES,
2
,~Q\x.<,
F5<
E	(UD"
7,
.OR.5<
D,
F5<
,
3	,
9POP,
:	,
;P,T,
<
,
=		(DD
?,
>ORM,
?	,
@T,(P),
A
4<
7l<5<
9,~Q\x.<,
W5<
W	("
H,
7.AND.5<
U,
W5<
E,
C	,
KPOP,
L	,
MP,T,
N
,
O	"
P	,
PANDM,
Q	,
RT,(P),
S
4<
Hl<5<
J,~Q\x.<,
H	 U
Y.NOT.5<
a,
W5<
V,
T	,
[SETCMM,
\	,
^(P),
_
4<	*U"
a,5<,5<
[,5<
c,
`	,
dPOP,
e	,
fP,T+1,
g
	(D"
j,
i	,
jPOP,
k	,
lP,T,
m
,
n	,
oPUSH,
p	,
q	 D" 
rP,[0],
r
,
s	,
tCAM,
,
,
u	,
xT,T+1,
y	""
{
,
z	,
{SETCMM,
|	,
~(P),

,~Q\x.<,
X.EQ.	*

5<,	oxN4<,.NE.5<	,xE4<,.LT.5<

,x	"EE

GE4<,	.LE.5<,xG4<,.GE.5<,xL,~Q\x.<,;5<;,+5<&,;5<
d,		(D",POP,	,P,T,
, 	,!ADDM,"	,#T,(P)	(Q*%,$
4<9,-5<9,;5<,%	,)POP,*	,+P,T,,	".
,-	,.EXCH,/	,0T,(P),1
,3	,4SUBM,5	""(6	,6T,(P),7
4<l<5<),~Q\x.<,y5<y,'*5<K	*D"?,y5<:,8	,@POP,A	,BP,T,C
,D	,EIMULM	(A
"G,F	,GT,(P),H
4<w,=/5<^,y5<?,J	,NPOP	(D"P,O	,PP,T,Q
,R	,SEXCH,T	,UT,(P),V
	(A"X,W	,XIDIVM,Y	,[T,(P),\
4<w,KREM5<w,y	*D"a5<M,]	,aPOP,b	,cP,T,d
,e	,fEXCH,g		(Di,hT,(P),i
,k	,lIDIV,m	,nT,(P),o
,p	" D r	,qMOVEM,r	,tT+1,(P),u
4<=l<5<a,~Q\x.<	*D"z,	%5<

,v	,{PUSH,|	,}P,[DEC ,
w,~],

4<

	(U
E(

,_(5<

,5<x,

)5<

4<

-5<

,y5<

D"E

MOVNS,

(P),

4<

*L5<

PUSHJ	(A

P,%XLEN,

4<

*5<

PUSHJ,

"(U

P,%GETNM,

4<

SL#5<

-,z5<

"PUSHJ	(AD(

%,

#	,

%P,%LEVEL,

&
,

'	,

(DEC,

)	,

*
4<

(Q"

-,

 S#5<

5,

,	,

/PUSHJ,

0	,

1P,%XSYMB,

2
4<

-	"DA

6CL#5<

=,

4	,

7PUSHJ,

8	,

9P,%CLEVL,

:
4<

5BL#	*"(

>5<

E,

<	,

?PUSHJ,

@	,

AP,%BLEVL,

B
4<

=B#5<

M	(A"

G,

D	,

GPUSHJ,

H	,

IP,%XBLK,

J
4<

EC#5<

U,

L	" E

O	,

OPUSHJ,

P	,

QP,%XBLK+1,

R
4<

MN#5<

d,

!5<

"	(A

X,

T	,

XPUSHJ,

Y	,

ZP,%CALND,

[
,

]	,

^XWD,

_	"
Q"

`	,

`-1,^D,

+,

a
4<

,	n5<

U(5<

w,,5<

W	(QD"

i,

e)5<

h,

c	,

jPOP,

k	,

lP,T,

m
,

n	,

oPUSH	(D(

q,

p	,

qP,,
v,

b,

r-1(T),

u
4<

~l<5<

~,

v		(D(@

z,

yPUSH,

z	,

{P,,

t,

|
5<

j,~Q\x.<,

i.INTEGER5<

~,5<.<,

d5<

},

}	""D

W5<5<
	,,
	(E
4<5<,
5<Qx@*,
,	(D"E
I,
,	@4<(D"P
4<Q\x.<,*
,05<("
,1,
Z,
,,	(D" 
,,,
,2,

g,D"
,

s4<A
l<5<,
,,	"""	,%RESET+2,
,	,PUSHJ,	,P,,

,
	,JUMPGE,

	,,
,	,JRST	(D(Q",	,%FIN,
,l<5<	,END	(A
*,	,%META2,
4</,.SUBSYNTAX5</,TITLE,$	,	,%
,05<",,.END5<*	(DD,,'	,,END,-
,~Q\x.<,.	,1EXTERN,2	,3	 A5%ID,%NUM,%STR,%GEN,%PUSH,%POP,%ERROR,%LEN,4
l<,9	,;EXTERN	(@"=,<	,=%UNTIL,%TST,%COPYL,%COPYI,%TYPE,%RESET,>
,C	,DEXTER	""FN,E	,F%BEGIN,%END,%BLOCK,%LIST,%LOOK,%SET,%CHECK,G
,L		(N,MEXTERN,N	,P%CLEAR,%SCAN,%GETNM,%PUTNM,%XLEN,%XBLK,Q
,U	" W	,VEXTERN,W	,Y%GET,%PUT,%LEVEL,%SYMB,%XSYMB,%BLEVL,%FIN,Z	""_
,_	,`EXTERN,a	,b%CLEVL,%MAKND,%SETRE,%CPYDC,%CALND,%DMPT	 D D"hR,%MARK,c
,i	,jSTK1=,k	,l4,m
,n		(D"p,oP=,p	,q17,r
,s	,tF=,u	,v16,w	"""y
,x	,ySUCCES=,z	,|400000,}
,~	,NDELE	"""T=,	,200000,
,	,BACKUP=,	,10000	""
0,	
,
	,SCATEN=,

	,040000,
,		(D"*,T=,	,1,
,,

5<4<,5<4<,5<,,0,"5<,		(""#,"ENTRY,#	,&,%
,,5</,!5<",&	,*ENTRY	""P*,,+	,&,,
4<'l<5<)4<B,'.EXTERNAL5<B,)5<0,.	"(E(4	,4EXTERN,5	,-,6
,1,5<@,35<3,8	,; E@=EXTERN,<	,7,>
4<9l<5<;,~	"o=+qj4O}
54OV
W4O#
FM	O-*

c		@	@"c	qc
	Z4
&Kw209

u^c;	u^t#x690SKC	D" |R7	9 |RL	& |R]	% |SY	& ~D	: ~"
	O ~"

	O~&y	B`}	D" ~'	K ~'!	Ka
 ~.$
 ~.L
 ~35	] ~4l	n	D" ~@4
 ~@o
 ~@q
 ~MY
!	
4!
4fy
E!'*
E	D"!'?
7!'e
D!'g
DJ("!3j
W!3l
W!4
H!4'
U!4)
U	D"!@,!@=
a!F5!W!Y!)	!y

!!!q	D"!!!"$;!"5;!"J!'99!'J&!.9!:iy!:zy	D"!;=!;5w!;7K!FY^nJ4s7(!	Dws9&!R

	D"!T

!!]

!"/

!('

!.

!/

-!:9

5tU(!;U

=	D"!A:

E!_

M!l

U!	Q

d!,

!*

~!,

w!U

~!'u!'w

Y!	E
,/	D"!2<!!u	D"!
!
!
.j!
/!
/!
/M!
/y!qBB!qD0	D"!w'!w)/!w:/!}EB!~,9!

*@!

,@Qzuc	D"waUcb,J/4)mJmt:t<4zo$	D"JIJ=L;a81=n* N5Q OBY U'b	D" [

{J5?2 gr t
 zR3!U@J6L;"H]\"HrJ	D""HtH"NYJ"V*q"[e"[c"\5e"gl"h{"hy	D""mw{J<1<"{17"{U "{Wn))#< J<lE$J

@	D"$OqHn:$UeI$VW$\Wm$b)l$b:f$hlJBQM	D"$n*{$tr${up${w&=&=W&C<)&J1&Oi9	D"JHEU&U]B&VjZ&awY&ayQ&b4Y&h?h&op&tly	D"&uy(7-JN*b(=u(CZ#(Jn(cW(c5i(c7i	D"(od|*1j*7<*7M*=2*C=)JTrv*OW[*Pd<	D"*Pu:*V\<*W<*\E*\D*]5E*iu_,*_p,2

	D",6u
,7

y,8*,>,>5	,>7,D	,J'	@	D",J)	@,JM	:,JO	,]		,]	g?ZS(g?hkg?hZ.g@!'	"[email protected]g@6+J[email protected]g@<b?g@<b?g@?~gA}&`LwGgA^{A	@"`L}`MX	M`M[gBau+	#`vc:`M!xgEhP7`g3`

	"gF.5`/F6OeF6Oe	F6S	`M0w[gJ5w`MP`!2`MV9`#ogK9G
8 	( B