Google
 

Trailing-Edge - PDP-10 Archives - BB-L014E-BM - autopatch/ctree.c05
There are 2 other files named ctree.c05 in the archive. Click here to see a list.
 REP 10/1	;05C1
	;COPYRIGHT (C) 1974, 1981 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1974, 1981, 1982 BY DIGITAL EQUIPMENT CORPORATION
 INS 21/1	;05C2
	;V12B*******************
	;SMI	03-DEC-82	[1436] 68274 Fix PA1050 ill. inst. when in COMM. SEC. 
	;RJD	24-MAY-82	[1356] Allow qualification in DATA RECORDS ARE clause
 REP 46/3	;05C3
	$ DD70.,DA18.,USERN.,0,0,<DD72.,DD70.,DD40.,DD42.>
	$ DD71.,E.17,0,0,0,DD39.
	$ DD70C.,DA18.,DATAN.,0,0,<DD72.,DD70.,DD40.,DD42.>
 WIT
	$ DD70.,DA18.,USERN.,0,0,<DD70D.,DD72.,DD70.,DD70C.,DD40.,DD42.>	;[1356] Insert node for OF
	$ DD71.,E.17,0,0,0,DD39.
	$ DD70C.,DA18.,DATAN.,0,0,<DD70D.,DD72.,DD70.,DD40.,DD42.>	;[1356] Check for OF or IN
	$ DD70D.,0,OF.,0,0,<DD70E.,DD70F.>				;[1356] Here if 0F or IN
	$ DD70E.,DA18A.,FILEN.,0,0,<DD72.,DD70.,DD40.,DD42.>		;[1356] Current filename used?
	$ DD70F.,E.13,0,0,0,DD39.					;[1356] No filename given
 REP 44/16	;05C4
	$68 DD422.,DA124.,DEPTH.,0,0,DD439.
 WIT
	$68 DD422.,DA124B,DEPTH.,0,0,DD439.	;[1436]
 SUM 25003