Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
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