Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
dtree.c05
There are 2 other files named dtree.c05 in the archive. Click here to see a list.
REP 3/2 ;05C1
WIT
;SMI 06-DEC-82 [1437] Give error message for all undefined errors on a
; line.
;RLF 17-SEP-82 [1405] GIVES FATAL IF NEXT SENTENCE AFTER ELSE DOESN'T
; HAVE PERIOD
;SMI 25-AUG-82 [1401] GENERATE ERROR WHEN STATEMENTS IN EXIT PARAGRAPH
;RJD 10-AUG-82 [1400] CHECK FOR SPECIFIC FILE NAME IN LABEL USE
; PROCEDURE
;DMN 07-APR-82 [1350] 68274 CONVERTER DOES NOT FLAG DISPLAY OR STOP SIGNED INTEGER.
;DMN 05-MAR-82 [1343] 68274 CONVERTER DOES NOT CONVERT NOTE INTO A COMMENT
;RJD 29-JAN-82 [1334] SUPERSEDES EDITS 1322 AND 1326
;DMN 08-OCT-81 [1321] ALLOW MULTIPLE FILES IN OPEN USE PROCEDURE
;WTK 08-OCT-81 [1322] CHECK FOR UNCOND. GOTO IN LAST PARA. OF PROG.
;JSM 30-Sep-81 [1313] FIX PROBLEM - IF cond <CRLF> PARA-NAME.
REP 95/4 ;05C2
$ PD111.,0,PROC.,0,0,<PD113.,PD114.,PD115.,PD116.,PD116A,PD117.,PD118.>
$ PD112.,E.147,0,0,0,<PD113.,PD114.,PD115.,PD116.,PD116A,PD117.,PD118.>
$ PD113.,0,ON.,0,0,<PD114.,PD115.,PD116.,PD116A,PD117.,PD118.>
WIT
$68 PD111.,0,PROC.,0,0,<<PD113.,PD114.,PD115.,PD116.,PD116A,PD116B,PD117.,PD118.>> ;[1400]
$74 PD111.,0,PROC.,0,0,<<PD113.,PD114.,PD115.,PD116.,PD116A,PD117.,PD118.>> ;[1400]
$68 PD112.,E.147,0,0,0,<<PD113.,PD114.,PD115.,PD116.,PD116A,PD116B,PD117.,PD118.>> ;[1400]
$74 PD112.,E.147,0,0,0,<<PD113.,PD114.,PD115.,PD116.,PD116A,PD117.,PD118.>> ;[1400]
$68 PD113.,0,ON.,0,0,<<PD114.,PD115.,PD116.,PD116A,PD116B,PD117.,PD118.>> ;[1400]
$74 PD113.,0,ON.,0,0,<<PD114.,PD115.,PD116.,PD116A,PD117.,PD118.>> ;[1400]
INS 102/4 ;05C3
$68 PD116B,PA20Y.,FILEN.,0,0,<<PD117.>> ;[1400] SET FILE SPECIFIC BIT
REP 109/4 ;05C4
$ PD119E,PA14.,OPEN.,0,0,<PD119.,PD120.>
WIT
$ PD119E,PA14.,OPEN.,0,0,<PD119.,PD117A> ;[1321] ALLOW MULTIPLY FILE-NAMES
REP 114/4 ;05C5
$68 PD123.,PA23.,NOTE.,0,0,PD96.
WIT
$68 PD123.,PA23N.,NOTE.,0,0,PD96. ;[1343]
REP 122/4 ;05C6
$74 PD129B,0,PRIOD.,0,0,<<PD154.,PD154B,PD154A,PD155.,PD154C,PD136.>>
$68 PD129.,0,PRIOD.,0,0,<<PD154.,PD154B,PD154A,PD133.,PD134.,PD155.,PD154C,PD136.>>
$74 PD129.,0,PRIOD.,0,0,<<PD154.,PD154B,PD154A,PD133.,PD155.,PD154C,PD136.>>
WIT
$74 PD129B,0,PRIOD.,0,0,<<PD154.,PD154B,PD154A,PD155.,PD154C,PD136A>> ;[1401]
$68 PD129.,0,PRIOD.,0,0,<<PD154.,PD154B,PD154A,PD133.,PD134.,PD155.,PD154C,PD136.>>
$74 PD129.,0,PRIOD.,0,0,<<PD154.,PD154B,PD154A,PD133.,PD155.,PD154C,PD136A>> ;[1401]
REP 128/4 ;05C7
$68 PD134.,PA23.,NOTE.,0,0,PD138.
$68 PD136.,E.141,0,0,0,PD137.
$74 PD136.,PCA7.,0,0,0
$68 PD137.,PA23.,0,0,0,PD96.
WIT
$68 PD134.,PA23N.,NOTE.,0,0,PD138. ;[1343]
$68 PD136.,E.141,0,0,0,PD137.
$74 PD136.,PCA7.,0,0,0
$74 PD136A,E.141,0,0,0,PD137. ;[1401]
$ PD137.,PA23.,0,0,0,PD96. ;[1401]
REP 3/5 ;05C8
$68 PD149.,PA23.,NOTE.,0,0,PD147A
WIT
$68 PD149.,PA23N.,NOTE.,0,0,PD147A ;[1343]
REP 13/5 ;05C9
$ PD154.,PCA7.,USERN.,0,1,0
WIT
$ PD154.,PCA7X.,USERN.,0,1,0 ;[1313] CHECK FOR CONDITIONAL STILL ACTIVE
REP 17/5 ;05C10
$ PD155.,PCA7.,ENDIT.,0,0,0
WIT
$ PD155.,PCA7C.,ENDIT.,0,0,0 ;[1334] CHECK FOR UNCOND. GOTO IN LAST PARA
REP 104/6 ;05C11
$ PD286.,PA55.,DISPL.,0,0,<PD287.,PD288.,PD288A,PD288D,PD288E,PD288F,PD169.>
$ PD287.,PA2.,DATAN.,0,0,PD287C
WIT
$ PD286.,PA55.,DISPL.,0,0,<PD287.,PD287A,PD288.,PD288A,PD288D,PD288E,PD288F,PD169.> ;[1437]
$ PD287.,PA2.,DATAN.,0,0,PD287C
$ PD287A,DE111.,USERN.,0,0,<PD287.,PD287A,PD288.,PD288A,PD288D,PD288E,PD288F,PD170.> ;[1437]
REP 111/6 ;05C12
$68 PD288D,PCA5.,NLIT.,0,0,PD290A
$74 PD288D,PCA5A.,NLIT.,0,0,PD290A
$68 PD288E,PCA5.,INTGR.,0,0,PD290A
WIT
IFE FT68274,< ;[1350]
$68 PD288D,PCA5.,NLIT.,0,0,PD290A
> ;[1350]
IFN FT68274,< ;[1350]
$68 PD288D,PCA5A.,NLIT.,0,0,PD290A ;[1350]
> ;[1350]
$74 PD288D,PCA5A.,NLIT.,0,0,PD290A
IFE FT68274,< ;[1350]
$68 PD288E,PCA5.,INTGR.,0,0,PD290A
> ;[1350]
IFN FT68274,< ;[1350]
$68 PD288E,PCA5A.,INTGR.,0,0,PD290A ;[1350]
> ;[1350]
REP 180/8 ;05C13
$ PD436A,0,SENT.,0,0,<PD436B,PD436C,PD436C>
WIT
$ PD436A,0,SENT.,0,0,<PD436B,PD436C,PD423.> ;[1405]
REP 398/8 ;05C14
$68 PD598C,PCA19.,NLIT.,0,0
$74 PD598C,PCA19A,NLIT.,0,0
$ PD598D,E.186,0,0,0,PD599B
$68 PD598E,PCA19.,INTGR.,0,0
WIT
IFE FT68274,< ;[1350]
$68 PD598C,PCA19.,NLIT.,0,0
> ;[1350]
IFN FT68274,< ;[1350]
$68 PD598C,PCA19A,NLIT.,0,0 ;[1350]
> ;[1350]
$74 PD598C,PCA19A,NLIT.,0,0
$ PD598D,E.186,0,0,0,PD599B
IFE FT68274,< ;[1350]
$68 PD598E,PCA19.,INTGR.,0,0
> ;[1350]
IFN FT68274,< ;[1350]
$68 PD598E,PCA19A,INTGR.,0,0 ;[1350]
> ;[1350]
SUM 256843