Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/dtree.c12
There are 2 other files named dtree.c12 in the archive. Click here to see a list.
 INS 4/2	;12C1
	;MJC	29-Oct-85	[1611] Fix edit 1602 END-IF crash at PD424.
	;MJC	15-Jul-85	[1602] Fix NEXT SENTENCE broken by edit 1541
	;MJC	21-Jun-85	[1600] Put a count of REPLACING subs in genfil
 REP 3/14	;12C2
	$ PD416.,PD656.,0,1,0,<PD417.,PD420.,PD433.>
	$ PD417.,0,NEXT.,0,0,<PD418.,PD419.>
	$ PD418.,0,SENT.,0,0,<PD421.,PD422.,PD423.>
	$ PD419.,E.153,0,0,0,PD170.
	$ PD420.,TST.8,THEN.,0,0,<PD417.,PD433.>
	$ PD421.,PA192.,ELSE.,0,0,<PD426.,PD437.>
	$ PD422.,E.160,PRIOD.,0,0,PD436C
	$ PD423.,E.152,0,0,0,PD170.
	$ PD425.,PCA13.,0,0,0
	$ PD426.,0,NEXT.,0,0,<PD427.,PD419.>
	$ PD427.,E.160,SENT.,0,0,<PD436C,PD429.>
	$ PD429.,DE125.,0,0,0,PD434.
	$ PD433.,PA524.,0,0,0,PD433C	;If error in condition, go pop up a node
	$ PD433C,PD156.,0,1,0,PD433A	;OK so far, go parse statements
	$ PD433A,PA24.,0,0,0,<PD434A,PD433B>		;[244]
	$ PD433B,0,0,0,0,<PD435.,PD435A,PD435W,PD434A>	;[244]
 WIT
	$ PD416.,PD656.,0,1,0,PD416A			;[1602]
	$ PD416A,PD416B,0,1,0,PD433A		 	;[1602]
	$ PD416B,0,0,0,0,<PD417.,PD420.,PD433.>  	;[1602]
	$ PD417.,0,NEXT.,0,0,<PD418.,PD419.>
	$ PD418.,PA103N,SENT.,0,0,<PD421.,PD422.,PD424.,PD423.>	;[1602]
	$ PD419.,E.153,0,0,0,PD170.
	$ PD420.,TST.8,THEN.,0,0,<PD417.,PD433.>
	$ PD421.,PCA7.,ELSE.,0,0		     ;[1602]
	$ PD422.,PCA7.,PRIOD.,0,0		     ;[1602]
	$ PD423.,E.152,0,0,0,PD170.
	$ PD424.,PCA61.,ENDXX.,0,0		;[1611][1602] could be an END-IF
	$ PD425.,PA192.,ELSE.,0,0,PD437.	;[1602]
	$ PD433.,PA524.,0,0,0,PD433C	;If error in condition, go pop up a node
	$ PD433C,0,0,0,0,PD156.		;[1602]OK so far, go parse statements
	$ PD433A,PA24.,0,0,0,<PD425.,PD424.,PD434A,PD433B>	;[1602][244]
	$ PD433B,0,0,0,0,<PD435A,PD435W,PD434A>		;[1602][244]
 REP 23/14	;12C3
	$ PD435W,PA37.,WHEN.,0,0,PD160B
	$ PD436.,0,NEXT.,0,0,<PD436A,PD434.>
	$ PD436A,0,SENT.,0,0,<PD436B,PD436C,PD423.>	;[1405]
	$ PD436B,PA103.,ELSE.,0,0,PD436C
	$ PD436C,PCA61.,PRIOD.,0,0
	$ PD437.,PD156.,0,1,0,<PD437A,PD435W,PD434.>
	$ PD437A,PCA61.,ELSE.,0,0 			;[244]
 WIT
	$ PD435B,PCA61.,ENDXX.,0,0,0		;[1602]
	$ PD435W,PA37.,WHEN.,0,0,PD160B
	$ PD436.,0,NEXT.,0,0,<PD436A,PD434.>
	$ PD436A,PA103N,SENT.,0,0,<PD421.,PD422.,PD424.,PD423.>	;[1602][1405]
	$ PD437.,PD438.,0,1,0,<PD437A,PD435W,PD434.,PD435A,PD435B>	;[1602]
	$ PD437A,PCA61.,ELSE.,0,0 			;[244]
	$ PD438.,0,0,0,0,<PD436.,PD433C>				;[1602]
 REP 47/46	;12C4
	$ PD2036,PCA5.,LITER.,0,0,PD172.		;literal
	$ PD2037,PCA5.,NLIT.,0,0,PD172.		;numeric literal
	$ PD2038,PCA5.,INTGR.,0,0,PD172.		;integer
	$ PD2039,PCA5.,FIGCN.,0,0,PD172.		;figurative constant
	$ PD2040,PCA5.,SYCHN.,0,0,PD172.		;symbolic-character
	$ PD2041,PD800A,0,1,0,PD2042			;qualification
	$ PD2042,PA21.,0,0,0,PD172.
	$ PD2043,E.818,0,0,0,PD170.			;something expected
 WIT
	$ PD2036,PCA5.,LITER.,0,0,PD2044		;[1600]literal
	$ PD2037,PCA5.,NLIT.,0,0,PD2044			;[1600]numeric literal
	$ PD2038,PCA5.,INTGR.,0,0,PD2044		;[1600]integer
	$ PD2039,PCA5.,FIGCN.,0,0,PD2044		;[1600]figurative constant
	$ PD2040,PCA5.,SYCHN.,0,0,PD2044		;[1600]symbolic-character
	$ PD2041,PD800A,0,1,0,PD2042			;qualification
	$ PD2042,PA21.,0,0,0,PD2044			;[1600]
	$ PD2043,E.818,0,0,0,PD170.			;something expected
	$ PD2044,PA817.,0,0,0,PD172.			;[1600]genfil subscr count
 SUM 54410