          EJECT
*         CTEXT  CTP$DFT PRESET PACKETS.
*
*         THIS DECK PROVIDES CONSOLE PRESET CODE.
 CCL      SPACE  4,10
**        CCL - CHECK CONSOLE LOGGING.
*
*         ENTRY  (A) = BUFFER CONTROL WORD FLAGS.
*                (CBWC) = BUFFER CONTROL WORD INDEX TO LOG.
*
*         EXIT   LOGGING INITIATED IF AN ENTRY WITH *BC.CL* SET IS FOUND.


 CCL      SUBR               ENTRY/EXIT
          LPBC   (BC.CL)
          ZJN    CCLX        IF *CONSOLE LOGGING* NOT SET
          LDML   CELCW
          NJN    CCLX        IF LOGGING ALREADY ACTIVE
          LDM    CBWC        INITIATE LOGGING
          STM    CELCW
          UJN    CCLX        RETURN

*         END    CTP$DFT PRESET PACKETS
