*COMDECK PBLCBP 
_$J+  PAGE EJECT? 
_****************************** 
*                             * 
*            PBLCBP           * 
* LOOK FOR THE ADDRESS OF LCB * 
*                             * 
******************************? 
_$R-,G-,I+     NON-RECURSIVE
               NON-INTERRUPTABLE? 
_***********************************************************************
*                                                                      *
**OVERVIEW- PBLCBP CHECKS INDEX TO SEE WHETHER INDEX IS OUT OF         *
*           RANGE OR NOT.  IF INDEX IS WITHIN A RANGE GET THE          *
*           ADDRESS OF ITH LCB, OTHERWISE SET POINTER TO NIL.          *
*                                                                      *
**INPUT   - VALUE OF INDEX (I).                                        *
*                                                                      *
**OUTPUT  - ADDRESS OF ITH LCB OR NIL                                  *
*                                                                      *
**EXTERNAL SUBROUTINES USED -                                          *
*           NONE.                                                      *
*                                                                      *
***********************************************************************?
PROCEDURE PBLCBP(I : INTEGER; VAR LCBPTR : BZLCBP); 
VAR 
      LINENUM : B0LINO;                     _LINE NUMBER OVERLAY       ?
  
BEGIN 
  WITH  LINENUM  DO 
    BEGIN 
    BDLINO := I;                            _COPY ONTO THE OVERLAY     ?
                                            _ FIELD                    ?
    IF BDPORT @ C4LCBS                      _CHECK FOR OUT-FO-RANGE    ?
    THEN                                    _ ON THE PORT NUMBER       ?
      ADDR (CGLCBP'[BDPORT], LCBPTR)        _WITHIN A RANGE            ?
    ELSE                                    _OUT-OF-RANGE              ?
      LCBPTR := NIL;
    END;  _ WITH LINENUM ?
END;  _PBLCBP?
