Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/ctree.c16
There are 11 other files named ctree.c16 in the archive. Click here to see a list.
 REP 3/1	;16C1
	SUBTTL	DATA DIVISION SYNTAX TREE		W.NEELY/CAM/SEB
 WIT
	SUBTTL	DATA DIVISION SYNTAX TREE		W.NEELY/CAM/SEB/MEM
 REP 11/1	;16C2
	COPYRIGHT (C) 1974, 1983, 1986 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	COPYRIGHT (C) 1974, 1983, 1984, 1986 BY DIGITAL EQUIPMENT CORPORATION
 REP 26/1	;16C3
	;V13*****************
	;MJC	15-JAN-86	[1626] Loop on RECORD CONTAINS n <junk>.
	;JEH	28-MAR-85	[1570] Parse and process reference mod. fields
	;				for fields which may be subscripted.
 WIT
	;.VERSION 13
	;.EDIT	1641	USER name should be treated the same as a DATA name when
	;		parsing an index.
	;		MEM,6-JAN-87,SPR:20-21465
	;.EDIT	1637	Call DA64. when file name is seen instead of a report name
	;		so that RPWRDL is set up for when it is used at D27MCY+15.
	;		MEM,17-DEC-86,SPR:20-21481
	;		A:SRC CTREE,COBVER
	;
 REP 41/3	;16C4
	$ DD59E.,E.395,0,0,0,DD49.		;[1626]Improper clause
 WIT
	$ DD59E.,E.395,0,0,0,DD59.
 REP 24/7	;16C5
	$ DD205S,0,0,0,0,<DD206.,DD206E,DD207.>
	$ DD206.,DA64.,RPNAM.,0,0,<DD40.,DD209.>	;[174] REP-NAM: INIT RD
	$ DD206E,DA64E.,USERN.,0,0,DD206.
 WIT
	$ DD205S,0,0,0,0,<DD206.,DD206E,DD206F,DD207.>  ;[1637]
	$ DD206.,DA64.,RPNAM.,0,0,<DD40.,DD209.>	;[174] REP-NAM: INIT RD
	$ DD206E,DA64E.,USERN.,0,0,DD206.
	$ DD206F,DA64E.,FILEN.,0,0,DD206.		;[1637]
 REP 17/20	;16C6
	$ DD815.,DA225.,0,0,0,<DD810.,DD812.,DD816.,DD817I,DD814.>	;[1570]
 WIT
	$ DD815.,DA225.,0,0,0,<DD810.,DD812.,DD816.,DD814.>
 REP 25/20	;16C7
	$ DD817G,0,0,0,0,<DD810.,DD812.,DD816.,DD817H>
	$ DD817H,E.251,0,0,0,DD816.

	;[1570] scan reference modifiers
	$ DD817I,DA232.,COLON.,0,0,<DD817J,DD817K,DD817L>   ;[1570]stored offset as sub
	$ DD817J,DA233.,INTGR.,0,0,<DD817K,DD817L>	    ;[1570]found length
	$ DD817K,DA234.,RPREN.,0,0,DD512.		    ;[1570]end of modification 
	$ DD817L,E.849,0,0,0,DD801.			    ;[1570]unexpected format
 WIT
	$ DD817G,0,0,0,0,<DD810.,DD812.,DD816.,DD817I,DD817H> ;[1641]
	$ DD817H,E.251,0,0,0,DD816.
	$ DD817I,E.251,USERN.,0,0,DD817J	;[1641]
	$ DD817J,DA220.,0,0,0,DD817.		;[1641] USERN same as DATAN
 SUM 169557