Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - fndpop.c05
There are 2 other files named fndpop.c05 in the archive. Click here to see a list.
 INS 15/1	;05C1
	;
	;V12B****************
	;NAME	DATE		COMMENTS
	;JEH	18-NOV-82	[1424] ADD FNDFIL ROUTINE FOR PHASE C USE
 REP 23/1	;05C2
	ENTRY	FNDPOP, FNDBRO
 WIT
	ENTRY	FNDPOP, FNDBRO, FNDFIL	;[1424]
 INS 66/1	;05C3
	;[1424] THIS ROUTINE FINDS  THE FILE WHICH CONTAINS THE GIVEN DATAB ITEM

	FNDFIL:	JUMPE	TB,CPOPJ	; [1424] NONE - ERROR
		LDB	TC,[POINT 3,TB,20]; [1424] GET TYPE OF ITEM
		CAIN	TC,CD.FIL	; [1424] IS IT A FILE-NAME?
		JRST	FIL.F		; [1424] YES GO IT
		CAIN	TC,CD.DAT	; [1424] IS ITEM A DATA-NAME?
	FIL.A:	PUSHJ	PP,FNDPOP	; [1424] GET FATHER OF DATA-ITEM
		  POPJ	PP,		; [1424] NONE- DATA ITEM NOT IN A FILE-ERROR RETURN
		LDB	TC,[POINT 3,TB,20]; [1424] GET TYPE OF FATHER
		CAIN	TC,CD.DAT	; [1424] IF FATHER IS A DATA NAME
		JRST	FIL.A		; [1424] THEN LOOP TO GET NEXT FATHER
		CAIE	TC,CD.FIL	; [1424] IS FATHER A FILE-NAME
		POPJ	PP,		; [1424] NO NOT A FILE OR DATA NAME- ERROR EXIT
	FIL.F:	HRRZI	TA,(TB)		; [1424] NOW GET ITS REAL
		PUSHJ	PP,LNKSET	; [1424] ADDRESS
		POP	PP,TC		; [1424] FIND RETURN ADDRESS
		JRST	1(TC)		; [1424] RETURN +2

 SUM 91675