P$IRCB*    PROC
BRFTI$*   EQU       01000               . READ FILE TABLE INDEX
BRPFET$*  EQU       01001               . READ ELEMENT TABLE
BRPFAPT$* EQU       01002               . READ ASSEMBLY PROC TABLE
BRPFCPT$* EQU       01003               . READ COBOL PROC TABLE
BRPFFPT$* EQU       01004               . READ FORTRAN PROC TABLE
BRPFEPT$* EQU       01005               . READ ENTRY POINT TABLE
BETIS$*   EQU       01006               . SEARCH ELEMENT TABLE FOR REQUESTED
BAPTIS$*  EQU       01007               . SEARCH ASSEMBLY PROC TABLE FOR REQUEST
BCPTIS$*  EQU       01010               . SEARCH COBOL PROC TABLE FOR REQUESTED
BFPTIS$*  EQU       01011               . SEARCH FORTRAN PROC TABLE FOR REQUESTE
BEPTIS$*  EQU       01012               . SEARCH ENTRY POINT TABLE FOR REQUESTED
.
.                   DELETE ITEM FROM REQUESTED TABLE
.
BETID$*   EQU       01013               . ELEMENT TABLE
BAPTID$*  EQU       01014               . ASSEMBLY PROC TABLE
BCPTID$*  EQU       01015               . COBOL PROC TABLE
BFPTID$*  EQU       01016               . FORTRAN PROC TABLE
BEPTID$*  EQU       01017               . ENTRY POINT TABLE
.
.                   ENTRY LOOKUP BY NUMBER
.
BETNL$*   EQU       01020               . ELEMENT TABLE
BAPTNL$*  EQU       01021               . ASSEMBLY PROC TABLE
BCPTNL$*  EQU       01022               . COBOL PROC TABLE
BFPTNL$*  EQU       01023               . FORTRAN PROC TABLE
BEPTNL$*  EQU       01024               . ENTRY POINT TABLE
.
. ADD ITEM TO REQUESTED TABLE
.
BETIA$*   EQU       01025               . ELEMENT TABLE
BAPTIA$*  EQU       01026               . ASSEMBLY PROC TABLE
BCPTIA$*  EQU       01027               .COBOL PROC TABLE
BFPTIA$*  EQU       01030               . FORTRAN PROC TABLE
BEPTIA$*  EQU       01031               . ENTRY POINT TABLE
.
. WRITE LAST ITEM REFERENCED
.
BPTEWT$*  EQU       01032               . ELEMENT TABLE
BPTATWT$* EQU       01033               . ASSEMBLY PROC TABLE
BPTCTWT$* EQU       01034               . COBOL PROC TABLE
BPTFTWT$* EQU       01035               . FORTRAN PROC TABLE
BPTETWT$* EQU       01036               . ENTRY POINT TABLE
.
.                   WRITE PROGRAM FILE TABLE
.
BWPFET$*  EQU       01037               . ELEMENT TABLE
BWPFAPT$* EQU       01040               . ASSEMBLY PROC TABLE
BWPFCPT$* EQU       01041               . COBOL PROC TABLE
BWPFFPT$* EQU       01042               . FORTRAN PROC TABLE
BWPFEPT$* EQU       01043               . ENTRY POINT TABLE
.
.                    WRITE FILE TABLE INDEX
.
BWFTI$*   EQU       01044
.
. SDFI COMMON BANK ENTRY POINTS
.
BSDFI$*   EQU       01045
BSDFIO$*  EQU       01046
BSDFIOA$* EQU       01047
BSDFIC$*  EQU       01050
.
. SDFO COMMON BANK ENTRY POINTS FOR SDFO
.
BSDFO$*   EQU       01051
BSDFOO$*  EQU       01052
BSDFOC$*  EQU       01053
.
. COMMON BANK ENTRY POINTS FOR FDASC AND ASCFD
.
BFDASC$*  EQU       01054
BASCFD$*  EQU       01055
.
.  COMMON BANK ENTRY POINTS FOR  SIR$ (SIRASM)
.   WHEN USING ANY ENTRY POINT IN SIR$ X10 MUST BE LOADED
.   WITH THE LOCATION OF A DATA BANK FOR SIR$ IN USERS DBANK
.   THIS AREA MUST BE 1160 DECIMAL WORDS LONG
.  IN ADDITION WHEN EITHER BOPNSR$ OR BINISR$ ARE REFERENCED
.  A5  MUST CONTAIN LOCATION OF PARTBL IN USERS AREA
BOPNSR$*  EQU       01056               . OPEN INPUT OLD WAY
BINISR$*  EQU       01057               . OPEN INPUT A4 DEFINES CONTROL IMAGES T
BGETSR$*  EQU       01060               . GET NEXT IMAGE IN FIELDATA
BGETAS$*  EQU       01061               . GET NEXT IMAGE IN ASCII
BGETNM$*  EQU       01062               . GET NEXT IMAGE AS IS
BCLOSR$*  EQU       01063               . CLOSE OUTPUT
          END