*DECK     CCLDS 
          IDENT  CCLDS       DISPLAY AND SET MODULE 
          SST 
          COMMENT CYBER CONTROL LANGUAGE (L560) DISPLAY,SET 
          TITLE  CCL- CYBER CONTROL LANGUAGE - CCLDS - DISPLAY/SET
**        CCLDS - DISPLAY AND SET MODULE
* 
*         PROCESS DISPLAY AND SET VERBS 
* 
*         NOTE - SEE BEGINNING OF CCLBRWE FOR A COMPLETE DESCRIPTION
*                OF CCL MODULE PROCESSORS AND A LIST OF COMMON DECKS. 
* 
  
          USE    0
*CALL     CCL 
 PB.EXP   EQU    0           NO PROC BODY EXPRESSIONS 
*CALL     COMALL
*CALL     COMBLNK 
*CALL     MSGCSC
*CALL     MSGEXP
*CALL     MSGSTR
*CALL     CCLASV
*CALL     CCLCCF
*CALL     CCLCCN
*CALL     CCLCVT
*CALL     CCLEVX
*CALL     CCLGNP
*CALL     CCLPRS
*CALL     CCLSJC
*CALL     CCLSNV
          LIST   F,X
*CALL     CCLSPP
*CALL     CCLSSV
          LIST   *
*CALL     CCLXSS
*CALL     CSTRCCL 
*CALL     CIOCCL
*CALL     IOFIL 
          LIST   F,X
          TITLE  CCLDS - DISPLAY, SET MODULE
          USE    0
 OSNOSBE  IFNE   HOST,SC2 
          LDSET  EPT=DISPLAY/SET
*CALL     COMLDS
 OSNOSBE  ENDIF 
 VERBS    BSS 
          CON    0LDISPLAY+DIS1 
          CON    0LSET+SET1 
 VERBSL   EQU    *-VERBS
          ENTRY  DISPLAY
          ENTRY  SET
*CALL     COMENT
 DISPLAY  BSS 
 SET      BSS 
*CALL     COMINIT 
*CALL     DISPLAY 
*CALL     SET 
*CALL     EXIT
          END    DISPLAY
*WEOR 
