*COMDECK NTSTMUX
_$J+  PAGE EJECT? 
  
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*             NTS TRANSPARENT TIP MUX LEVEL ENTRY POINT               * 
*                                                                     * 
*                         PNTS2MUX                                    * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
_$R-,G-,I-    NON-RECURSIVE 
              INTERRUPTABLE?
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
** OVERVIEW:                                                          * 
*              MAKE A WORKLIST ENTRY TO THE NTS OPS LEVEL FOR         * 
*              THE INDICATION OF THE OUTPUT BUFFER TRANSMITTED.       * 
*                                                                     * 
** INPUT:                                                             * 
*              WORKLIST ENTRY      - BWWLENTRY[MUX2].B0EWLQ           * 
*                                                                     * 
** OUTPUT:                                                            * 
*              OBT WORKLIST ENTRY  - INDICATION OF THE OUTPUT BUFFER  * 
*                                    TRANSMITTED WORKCODE (MMOBUX)    * 
*                                                                     * 
** CALLING PROGRAM:                                                   * 
*                                                                     * 
*              FIRMWARE                                               * 
*                                                                     * 
** EXTERNAL SUBROUTINE:                                               * 
*                                                                     * 
*              PBLSPUT             - QUEUE A WORKLIST ENTRY           * 
*                                                                     * 
** NOTE:                                                              * 
*                                                                     * 
*                                                                     * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
PROCEDURE PNTS2MUX; 
  
TYPE
  
*CALL NTSXTYP1
  
VAR 
      NTSOWLE  : N0WLE;                     _WORKLIST TO THE NTS       ?
                                            _ OPS LEVEL                ?
      NTSLINE  : INTEGER;                   _LINE NUMBER               ?
  
BEGIN 
  
WITH  NTSOWLE,                              _NTS TIP INTERNAL WLE      ?
      BWWLENTRY[MUX2].B0EWLQ  DO            _MUX LEVEL INCOMING WLE    ?
  BEGIN 
  
  IF MMWKCOD = MMOBUX                       _OUTPUT BUFFER WAS XMITTED ?
  THEN
    BEGIN 
    NAWC          := MMOBUX;                _NTS INTERNAL WORKCODE     ?
    NTSLINE       := MMLINO;                _SAVE LINE NUMBER          ?
    NADATAPTR     := NIL;                   _CLEAR DATA BUFFER POINTER ?
    NALINO.BDLINO := MMLINO;                _COPY LINE NUMBER TO NTS   ?
                                            _ INTERNAL WORKLIST        ?
_ 
* * * *  SEND A WORKLIST TO NTS OPS LEVEL 
? 
    PBLSPUT (NAWORKLIST, BYWLCB[B0XPTNTS]); 
  
    END;  _ IF MMWKCOD = MMOBUX ? 
  END;  _ WITH NTSOWLE AND BWWLENTRY ?
END;  _ PROCEDURE PNTS2MUX                                             ?
