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