Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11i-bm_tops20_v7_0_atpch_1-22 - autopatch/dtree.c11
There are 2 other files named dtree.c11 in the archive. Click here to see a list.
 INS 4/2	;11C1
	;MJC	 4-Apr-85	[1573] Fix edit 1556. Add PD158A for cbl115 error
	;				on USE ...
	;JEH	22-MAR-85	[1564] Fix 'set condition-name' code.
 REP 22/4	;11C2
	$ PD117A,PA173.,0,0,0,<PD117B,PD158.,PD120.>
 WIT
	$ PD117A,PA173.,0,0,0,<PD117B,PD158A,PD120.>	;[1573]
 INS 41/5	;11C3
	$ PD158A,PCA7BA,PRIOD.,0,0,0	;[1573]
 REP 30/30	;11C4
	$ PD1023,PA233.,DATAN.,0,0,<PD158.,PD1025>
	$ PD1025,DE125.,0,0,0,PD158.
	$ PD1026,E.104,USERN.,0,0,<PD158.,PD1025>
 WIT
	$ PD1023,PA233.,DATAN.,0,0,<PD158A,PD1025>	;[1573]
	$ PD1025,DE125.,0,0,0,PD158A			;[1573]
	$ PD1026,E.104,USERN.,0,0,<PD158A,PD1025>	;[1573]
 REP 4/46	;11C5
	$ PD2000,PCA5.,CONDI.,0,0,<PD2000,PD2001,PD2003>
	$ PD2001,0,TO.,0,0,<PD2002,PD2004>
	$ PD2002,PA800.,TRUE.,0,0,PD172.
 WIT
	$ PD2000,PA2.HI,CONDI.,0,0,P2000A		;[1564] 
	$ P2000A,PD800A,0,1,0,P2000B			;[1564] Scan cond.-name(subs)
	$ P2000B,PA21.,0,0,0,<P2000C,PD2001,PD2003>	;[1564] Put operand in genfil
	$ P2000C,PCA98.,CONDI.,0,0,PD2000		;[1564] Put operator in genfil
	$ PD2001,0,TO.,0,0,<PD2002,PD2004>
	$ PD2002,PA800.,TRUE.,0,0,PD172.		;[1564] Put out op code
 SUM 236566