*COMDECK PBPUTYP                                                              31
_$J+?                                                                    31OCT75
_*****************************                                           31OCT75
*                            *                                           31OCT75
*         PBPUTYP            *                                           31OCT75
*  MAKE WL ENTRY BY LINE NO  *                                           31OCT75
*                            *                                           31OCT75
*****************************?                                           31OCT75
_$R-,G-,I+     NON-RECURSIVE                                             31OCT75
               NON-INTERRUPTABLE ?                                       31OCT75
_*********************************************************************** 31OCT75
*                                                                      * 31OCT75
**OVERVIEW- PBPUTYP MAKES A WL ENTRY AFTER CALCULATING THE WL          * 31OCT75
*           INDEX FROM THE LINE NO.  THE ACTUAL WL ENTRY IS            * 31OCT75
*           MADE BY FIRMWARE.                                          * 31OCT75
*                                                                      * 31OCT75
**INPUT- THE ENTRY TO MAKE, EITHER IN THE INTERMEDIATE ARRAY OR        * 31OCT75
*           FROM A LOCAL SAVE AREA.                                    * 31OCT75
*                                                                      * 31OCT75
*                                                                      * 31OCT75
**OUTPUT- THE WL ENTRY IS PUT INTO THE PROPER LIST.                    * 31OCT75
*                                                                      * 31OCT75
**EXTERNAL SUBROUTINES-                                                * 31OCT75
*              1) PBDLPUT          MAKE WL ENTRY W/O DIST INT ARRAY    * 31OCT75
*                                                                      * 31OCT75
**NOTE- THE 2ND WORD OF THE WL ENTRY MUST ALWAYS BE A LINE NUMBER.     * 31OCT75
***********************************************************************? 31OCT75
PROCEDURE PBPUTYP(VAR ENTRY : BWWORKLIST);                               31OCT75
VAR LCB : BZLCBP;                                                        31OCT75
BEGIN                                                                    31OCT75
  WITH ENTRY.CMSMLEY.CMLINO DO                                           31OCT75
  BEGIN                                                                  31OCT75
    ADDR(CGLCBP'[BDPORT], LCB);             _ GET LCB ADDRESS          ?
    WITH LCB' DO                                                         31OCT75
    IF BZLINO.BDPORT = 0                    _ IS THIS A SUBPORT LINE   ?
    THEN ADDR(BZSUB1PTR'[BDSUBPORT],LCB);                                31OCT75
  END;                                                                   31OCT75
  PBLSPUT(ENTRY,BYWLCB[BJTIPTYPT[LCB'.      _ MAKE WORKLIST ENTRY BASED?
                 BZTIPTYP].BJLISTIX]);      _ ON TIP TYPE              ?
END; _PBPUTYP?                                                           31OCT75
