Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cleanc.c05
There are 2 other files named cleanc.c05 in the archive. Click here to see a list.
 INS 20/1	;05C1
	;SMI	27-OCT-82	[1427] 68274 Gives warning SHOULD BE UNSIGNED INTEGER
	;				when data item is an unsigned integer.
	;SMI	15-OCT-82	[1417] FIX 68274 CONVERSION OF WRITE
	;DMN	12-MAR-82	[1340] 68274 converter does not flag JUSTIFIED clause
	;				in VALUE
	;JEH	02-FEB-82	[1335] Declare DATAB entries for all indexes if 
	;			REPORT SECTION is scanned for their use by REPORT
	;			WRITER stmts
 INS 62/1	;05C2
	ENTRY	CLNHLD		;[1335]
 INS 4/2	;05C3
		PUSH	PP,TA		;[1417]
		MOVE	TA,FILLOC	;[1417] GET LOCATION OF FILE ENTRY
		CAMN	TA,FILNXT	;[1417] ANY FILTAB ENTRIES ?
		JRST	CLNAC2		;[1417] NO
		HRRZI	TA,SZ.DEV	;[1417] SET UP ABSOLUTE ADDRESS TO FILTAB
		ADDM	TA,FILTBL##	;[1417]
		HRRZI	TA,CD.FIL*1B20+1	;[1417]
	CLNACC:	HRLZM	TA,CURFIL	;[1417]
		PUSHJ	PP,LNKSET	;[1417]
		HRRM	TA,CURFIL	;[1417]
		LDB	TB,FI.ACC	;[1417] GET FILE ACCESS MODE
		CAIE	TB,%%ACC	;[1417] ACCESS SPECIFIED ?
		JRST	CLNAC1		;[1417] YES
		HRRZI	TB,%ACC.S	;[1417] NO, ASSUME SEQUENTIAL
		DPB	TB,FI.ACC	;[1417] STORE ACCESS MODE
	CLNAC1:	LDB	TA,FI.NXT	;[1417] GET NEXT FILTAB ENTRY
		JUMPN	TA,CLNACC	;[1417] FINISHED ?
	CLNAC2:	POP	PP,TA		;[1417] YES
 REP 32/2	;05C4
		JRST	[ SKIPN	RPTRPT	; [415]  END OF HLDTAB ANY REPORT CF TO DO?
 WIT
		JRST	[SKIPE	BLDIX##	;[1335] IF JUST BUILDING INDEXES,
			POPJ	PP,	;[1335]  EXIT
		        SKIPN	RPTRPT	; [415]  END OF HLDTAB ANY REPORT CF TO DO?
 INS 39/2	;05C5
		SKIPE	BLDIX		;[1335] IF JUST BUILDING INDEXES, 
		JRST 	CLNHLL		;[1335]  LOOP BACK
 INS 86/12	;05C6
	IFN FT68274,<			;[1427]
		PUSHJ	PP,CLHSUB	;[1427] GET USAGE OF DATA ITEM
	>				;[1427]
 INS 11/35	;05C7
	IFN FT68274,<
		LDB	TC,DA.JST	;[1340]
		MOVEI	DW,E.768	;[1340]
		SKIPE	TC		;[1340] SKIP IF NO "JUSTIFIED" CLAUSE
		PUSHJ	PP,WARN		;[1340] OTHERWISE WARN USER OF DIFFERENCE
	>
 SUM 74386