Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 1/1	;13C1
		TITLE	BACKRS -- MODULE TO DO THE WORK FOR BACKUP -- %4A(527)
		SUBTTL	FRANK NATOLI/FJN/PFC/KCM/JEF/MEB/CLRH/VLR/CGN/WMG/DC/BPK/MS/BAH/EDS	14-Aug-85
 WIT
		TITLE	BACKRS -- MODULE TO DO THE WORK FOR BACKUP -- %4A(530)
		SUBTTL	FRANK NATOLI/FJN/PFC/KCM/JEF/MEB/CLRH/VLR/CGN/WMG/DC/BPK/MS/BAH/EDS	29-Oct-85
 REP 6/1	;13C2
	DECEVR==527		;EDIT NUMBER
 WIT
	DECEVR==530		;EDIT NUMBER
 INS 102/10	;13C3
	EXLUF1:	BLOCK	NRIB	;[530] PRESERVE UFD LOOKUP BLOCK FOR USAGE
 REP 83/27	;13C4
		RENAME	UFD,EXLUFD	;[413] RENAME FOR ACCOUNTING PURPOSES
 WIT
		RENAME	UFD,EXLUF1	;[530][413] RENAME FOR ACCOUNTING PURPOSES
 INS 50/28	;13C5
			 SKIPN	LVL	;[530] IS THIS A UFD LOOKUP?
			 PUSHJ	P,UFDCOP;[530] YES. SAVE EXLUFD FOR RENAME IN GOTUFD
 REP 53/28	;13C6
		SKIPE	S.USG##		;WANT USAGE ENTRIES
		PUSHJ	P,USGNDI##	;YES, CALL ACCOUNTING PACKAGE
 WIT
		SKIPN	S.USG##		;[530] WANT USAGE ENTRIES
		JRST	SETFI1		;[530] NO.
		PUSHJ	P,USGNDI##	;YES, CALL ACCOUNTING PACKAGE
		SKIPN	LVL		;[530] IS THIS A UFD LOOKUP?
		PUSHJ	P,UFDCOP	;[530] YES. SAVE EXLUFD FOR RENAME IN GOTUFD
	SETFI1:
 INS 38/32	;13C7


	;USGCOP - Routine to preserve the LOOKUP block of the UFD if doing /USAGE
	;	accounting so that the RENAME in GOTUFD does the correct thing instead
	;	of renaming the last SFD looked up.

	UFDCOP:	MOVE	T1,[EXLUFD,,EXLUF1];[530] SET UP THE BLT
		BLT	T1,EXLUF1+NRIB-1;[530]
		POPJ	P,		;[530]
 SUM 6694