Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/dtree.c10
There are 2 other files named dtree.c10 in the archive. Click here to see a list.
 REP 11/1	;10C1
	COPYRIGHT (C) 1974, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	COPYRIGHT (C) 1974, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION
 REP 3/2	;10C2

 WIT
	;V13*****************
	;MJC	22-Jan-85	[1556] Add nodes to shut off FPERWD after PD153.
	;MJC	 4-Jan-85	[1554] Let STOP RUN be followed by ENDXX.
	;MJC	 3-Dec-84	[1553] Make END-EVALUATE go back to PA823 when done.
	;				Make in-line PERFORM push a node.
	;				Flag dangling ELSE and WHEN with E.855
 REP 28/5	;10C3
	$ PD153.,PD156.,0,1,0,PD153A
	$ PD153A,PA193.,0,0,0,<PD9A.,PD154.,PD155.,PD154A,PD154B,PD133.,PD154C,PD153.>
 WIT
	$ PD153.,PD156.,0,1,0,<PD153B,PD153A>	;[1556] CHECK FOR PERIOD
	$ PD153A,PA193.,0,0,0,<PD9A.,PD154D,PD154.,PD155.,PD155A,PD154A,PD154B,PD133.,PD154C,PD153.> ;[1556][1553]
	$ PD153B,PA148A,PRIOD.,0,0,PD153A	;[1556] DON'T REGET A PERIOD
 REP 34/5	;10C4
	$ PD155.,PCA7C.,ENDIT.,0,0,0	;[1334] CHECK FOR UNCONDITIONAL GOTO IN LAST PARAGRAPH
	$ PD156.,0,0,0,0,PD157.
 WIT
	$ PD154D,0,PRIOD.,0,0,<PD154.,PD155.,PD155A,PD154A,PD154B,PD133.,PD154C,PD153.> ;[1556] IF THE LAST ONE ENDED WITH A PERIOD
	$ PD155.,PCA7C.,ENDIT.,0,0,0	;[1334] CHECK FOR UNCONDITIONAL GOTO IN LAST PARAGRAPH
	$ PD155A,PA823C,ENDXX.,0,0,<PD154A,PD154B,PD133.,PD154C,PD153.> ;[1553]
	$ PD156.,PCA7E.,0,0,0,PD157.	;[1553] Reset the EWFLG flag
 REP 46/5	;10C5
	$ PD160A,PCA7.,ELSE.,0,0
	$ PD160B,PCA7A.,WHEN.,0,0,0
 WIT
	$ PD160A,PCA7G.,ELSE.,0,0,0	;[1553] Set a flag before PCA7.
	$ PD160B,PCA7D.,WHEN.,0,0,0	;[1553] Set a flag before PCA7A.
 REP 9/6	;10C6
	$ PD161X,0,0,0,0,<PD2010,PD2011,PD2020,PD2050,PD164.,PD161E,PSU100,PD162.> ;[652] [714]

	$ PD161E,E.645,DATAN.,0,0,<PD163.,PD154.,PD154A,PD154B,PD155.,PD166.>	;GIVE BETTER DIAGNOSTIC TO USER
	$ PD162.,E.148,0,0,0,<PD163.,PD154.,PD154A,PD154B,PD155.,PD166.>
 WIT
	$ PD161X,0,0,0,0,<PD2010,PD2011,PD2020,PD2050,PD164.,PD161E,PSU100,PD163A,PD163B,PD162.> ;[652] [714] [1553]

	$ PD161E,E.645,DATAN.,0,0,<PD163.,PD154.,PD154A,PD154B,PD155.,PD166.>	;GIVE BETTER DIAGNOSTIC TO USER
	$ PD162.,PCA7F.,0,0,0,<PD163.,PD154.,PD154A,PD154B,PD155.,PD166.> ;[1553]
 INS 21/6	;10C7
	$ PD163A,E.855,ELSE.,0,0,PD166.	;[1553] Dangling ELSE
	$ PD163B,E.855,WHEN.,0,0,PD166.	;[1553] Dangling WHEN

 REP 4/18	;10C8
	$ PD513B,PA832.,TIMES.,0,0,PD172.	;In-line Perform n times
	$ PD513C,PA831.,0,0,0,PD514B		;Numeric paragraph
 WIT
	$ PD513B,PA832.,TIMES.,0,0,PD513D	;[1553]In-line Perform n times
	$ PD513C,PA831.,0,0,0,PD514B		;Numeric paragraph
	$ PD513D,PA22.,0,0,0,PD513E		;[1553]
	$ PD513E,PD156.,0,1,0,PD516.		;[1553]
 INS 15/18	;10C9
	$ PD516.,PA835.,0,0,0			;[1553]
 REP 21/18	;10C10
	$ PD520.,PA198.,UNTIL.,0,0,PD520A
 WIT
	$ PD520.,PA198.,UNTIL.,0,0,PD520F		;[1553]
 REP 26/18	;10C11
	$ PD520E,PA198.,0,0,0,PD520A
	$ PD521.,PA96.,VARYI.,0,0,PD536.
	$ PD521A,PA833.,VARYI.,0,0,PD521B		;In-line PERFORM VARYING
	$ PD521B,PA96.,0,0,0,PD536.
 WIT
	$ PD520E,PA198.,0,0,0,PD526.			;[1553]
	$ PD520F,PD520A,0,1,0,PD96.			;[1553]
	$ PD521.,PA96.,VARYI.,0,0,PD521C		;[1553]
	$ PD521A,PA833.,VARYI.,0,0,PD521B		;In-line PERFORM VARYING
	$ PD521B,PA96.,0,0,0,PD527.			;[1553]
	$ PD521C,PD536.,0,1,0,PD96.			;[1553]
 INS 42/18	;10C12
	$ PD526.,PD520A,0,1,0,PD513E			;[1553]
	$ PD527.,PD536.,0,1,0,PD513E			;[1553]
 REP 12/20	;10C13
	$ PD599C,0,0,0,0,<PD163.,PD599F,PD599G,PD599P,PD599Q,PD599R,PD599M>
 WIT
	$ PD599C,0,0,0,0,<PD163.,PD599F,PD599G,PD599P,PD599Q,PD599R,PD599S,PD599M> ;[1554]
 INS 24/20	;10C14
	$ PD599S,PCA7.,ENDXX.,0,0,0		;[1554] OK IF SCOPE TERM.
 REP 34/31	;10C15
	$ PD1048,PA244.,0,0,0,PD96.
 WIT
	$ PD1048,PA244.,0,0,0,<P1048A,PD96.>
	$ P1048A,PA24.,ENDXX.,0,0,PD96.	;[1553] shut off SWHEN if END-XXX
 REP 63/47	;10C16
	$ PD2099,0,ENDXX.,0,0,<PD2100,PD2101> ;Period, Default
 WIT
	$ PD2099,PCA97.,ENDXX.,0,0,<PD2100,PD2101> ;[1553] Period, Default
 SUM 116663