Google
 

Trailing-Edge - PDP-10 Archives - BB-H506D-SM_1983 - cobol/source/fndpop.mac
There are 5 other files named fndpop.mac in the archive. Click here to see a list.
TITLE	FNDPOP FOR COBOL V12B
SUBTTL	COMMON DATAB SUBROUTINES		W. NEELY/CAM



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1974, 1981 BY DIGITAL EQUIPMENT CORPORATION

	SEARCH	P
	%%P==:%%P

;EDITS
;V10*****************
;NAME	DATE		COMMENTS
;********************


TWOSEG
RELOC	400000

ENTRY	FNDPOP, FNDBRO

;ENTER WITH TB=RELATIVE DATAB ADDR
;EXIT TO CALL+1 IF NO FATHER
;EXIT TO CALL+2 WITH TB=REL DATAB ADDR OF FATHER

FNDPOP:	JUMPE	TB,CPOPJ
	LDB	TC,[POINT	3,TB,20]
	CAIE	TC,CD.DAT
CPOPJ:	POPJ	PP,		;NOT DATTAB ENTRY
POP.0:	HRRZM	TB,TBLOCK##+13
	HRRZ	TA,TB
	PUSHJ	PP,LNKSET##
	LDB	TB,DA.FAL##
	JUMPN	TB,POP.1
	HRRZ	TB,TBLOCK+13
	PUSHJ	PP,FNDBRO
	  POPJ	PP,
	JRST	POP.0

POP.1:	LDB	TB,DA.POP##
	JUMPE	TB,CPOPJ
	POP	PP,TA
	JRST	1(TA)


;ENTER WITH TB=RELATIVE DATAB ADDR
;EXIT TO CALL+1 IF NO BROTHER
;EXIT TO CALL+2 WITH TB=REL DATAB ADDR OF BROTHER

FNDBRO:	JUMPE	TB,CPOPJ
	LDB	TC,[POINT	3,TB,20]
	CAIE	TC,CD.DAT
	POPJ	PP,
	HRRZ	TA,TB
	PUSHJ	PP,LNKSET
	LDB	TC,DA.FAL
	JUMPN	TC,CPOPJ
BRO.1:	LDB	TB,DA.BRO##
	JUMPE	TB,CPOPJ
	POP	PP,TA
	JRST	1(TA)


	END