Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - cpylib.c07
There is 1 other file named cpylib.c07 in the archive. Click here to see a list.
 REP 33/1	;07C1
	CPYEDT==3		;CURRENT EDIT LEVEL
 WIT
	CPYEDT==7		;CURRENT EDIT LEVEL
 INS 24/2	;07C2
	;.AUTOPATCH 6
	;.NOEDIT
	;.ENDA
	;
	;.AUTOPATCH 7
	;
	;.EDIT	4	CPYLIB doesn't read in last entry from fine table if
	;;		it is a multiple of 64.
	;		RLF,27-MAY-83,SPR:20-19243
	;		A:SRC CPYLIB
	;
	;.EDIT	5	Shut off /S bit in rough table entries and
	;;		store 7th and 8th char of module name
	;		JEH,14-JUN-83,SPR:20-19259
	;		A:SRC CPYLIB
	;
	;.EDIT	6	Use TX instead of TL in edit 5 to set F%%SEQ.
	;		JEH,29-SEP-83,SPR:20-19259
	;		A:SRC CPYLIB
	;
	;.EDIT	7	Use default path in all FILOP blocks unless other
	;;		path stated, backup files are not being handled
	;;		correctly
	;		JEH,09-DEC-83,SPR:10-34260
	;		A:SRC CPYLIB, IOTMP
	;
	;.ENDA
 INS 44/3	;07C3
	;.EDIT	7	Use default path in all FILOP blocks unless other
	;;		path stated, backup files are not being handled
	;;		correctly
	;		JEH,09-DEC-83,SPR:10-34260
	;		A:SRC CPYLIB, IOTMP
	;
 REP 37/70	;07C4
		 POPJ	P,		;NO, DONE
 WIT
		 JRST	SETFL1		;[7] No, then fill in default
 INS 44/70	;07C5
	SETFL1:	HRLI	T1,PTHBLK+.PTPPN		;[7] Get default path
		HRRI	T1,.FPIPB+.PTPPN(P2)		;[7]  and put in xxxFLP
		BLT	T1,.FPIPB+.PTSFD+MXSFD-1(P2)	;[7]
		POPJ	P,				;[7]
 REP 79/87	;07C6
		SOJG	P3,RDDIR4	;LOOP AS LONG AS THERE IS ROOM
 WIT
		SOJGE	P3,RDDIR4	;[4] LOOP AS LONG AS THERE IS ROOM
 INS 32/93	;07C7
		MOVEI	T1,INPFLP+.FPIPB	;[7] Put address of Path block
		MOVEM	T1,INPFLP+.FPLKP+3	;[7]  into Lookup block
		MOVEM	T1,INPFLP+.FPRNM+3	;[7]  and Rename block
 REP 43/93	;07C8
		MOVE	T1,[INPFLP+.FPRPB,,OUTFLP+.FPIPB]
		BLT	T1,OUTFLP+.FPIPB+.PTMAX-1
 WIT
		HRLZI	T1,INPFLP+.FPIPB		;[7]
		HRRI	T1,OUTFLP+.FPIPB		;[7]
		BLT	T1,OUTFLP+.FPIPB+.PTMAX-1	;[7]
 REP 37/101	;07C9
		MOVEI	T5,(T4)		;[1]SAVE T4
 WIT
		MOVE	T5,T2		;[5] GET SECOND WORD OF FINE TABLE ENTRY
 REP 42/101	;07C10
		MOVEM	T5,RUFTBO-1(T4)	;[1]AND HERE
 WIT
		TXZ	T5,F%%SEQ	;[6][5] TURN OFF /SEQUENCE BIT
		MOVEM	T5,RUFTBO-1(T4)	;[5] STORE SECOND WORD OF ROUGH TABLE ENTRY
 SUM 224707