*COMDECK PN5SRCH
_$J+? 
_****************************** 
*                             * 
*         PN5SRCH             * 
*                             * 
*    SEARCH LCD FOR LCCB      * 
*                             * 
******************************? 
_$R-,G-,I-     NON-RECURSIVE
               INTERRUPTABLE ?
_***********************************************************************
*                                                                      *
**OVERVIEW- PN5SRCH SEARCHES THE LOGICAL CHANNEL DIRECTORY (TYPE 2     *
*           TABLE) FOR THE MATCHING LOGICAL CHANNEL NUMBER, RETURNING  *
*           IF FOUND THE ADDRESS OF THE LCCB, OTHERWISE NIL.           *
*                                                                      *
**INPUT-    THE LINE NUMBER AND THE LOGICAL CHANNEL NUMBER             *
*                                                                      *
**OUTPUT-   THE LCCB ADDRESS IF FOUND, NIL IF NOT                      *
*                                                                      *
**EXTERNAL ROUTINES- PBLCBP  FIND LCB ADDRESS                          *
*                                                                      *
***********************************************************************?
PROCEDURE PN5SRCH (LINO:B0LINO; LCNID:B012BITS; VAR LCCBP:B0BUFPTR);
VAR   LCBP  : BZLCBP;                       _ADDRESS OF LCB            ?
      I,J,K : INTEGER;
BEGIN 
PBLCBP(LINO.BDLINO,LCBP);                   _GET ADDRESS OF LCB        ?
WITH LCBP'.BZSLCBPTR'.BZXSLCB DO            _WITH LCB ADDRESS          ?
  K := BZLSVC + BZLPVC; 
IF LCNID @ K                                _IF LCN VALID              ?
THEN                                        _THEN                      ?
  BEGIN 
  I := LCNID DIV 64;                        _INCREMENT INTO LCHGND     ?
  J := LCNID MOD 64;                        _INCREMENT INTO LCHND      ?
  LCCBP := LCBP'.BZSLCBPTR'.BZXSLCB.        _LCCB ADDRESS              ?
           BZLCDADR'.BCCHAINS[I+1]'.
           BCCHAINS[J+1]; 
  END 
ELSE                                        _ELSE                      ?
  LCCBP := NIL;                             _RETURN LCCB POINTER NIL   ?
END; _PN5SRCH?
