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