Google
 

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