*COMDECK CET
# 
************ C O U P L E R   E Q U I P M E N T   T A B L E *************
# 
COMMON CETPTR;
 BEGIN
 BASED ARRAY CET[0:0] P(1);     # COUPLER EQUIPMENT TABLE              #
   BEGIN
# 
   THE FOLLOWING ITEMS ARE IN THE CET HEADER WORDS
# 
   ITEM CETID       U(0,0,6);   # CET ENTRY BLOCK ID                   #
   ITEM CETBS       I(0,6,AL);  # CET ENTRY SIZE                       #
   ITEM CETNON      U(0,24,6);  # NUMBER OF ON NP/NQ IN CET            #
   ITEM CETNOFF     U(0,30,6);  # NUMBER OF OFF NP/NQ IN CET           #
# 
   IN HEADER SECOND WORD
# 
   ITEM CETBZ       B(0,57,1);  # SCAN EST PIP BUSY FLAG               #
   ITEM CETC1       B(0,58,1);  # GLOBAL CHANGE FLAG                   #
   ITEM CETC        B(0,59,1);  # COMPLETION BIT. SET BY PIP AT DONE   #
# 
   THE FOLLOWING ITEMS ARE IN EACH ENTRY IN THE CET 
# 
   ITEM CETFLG      B(0,0,1);   # TURE IF INITALLY ON                  #
   ITEM CETEST      U(0,3,9);   # EST ORDINAL OF NP/NQ ENTRY           #
   ITEM CETCH       U(0,12,6);  # CHANNEL NUMBER OF COUPLER            #
   ITEM CETPIP      U(0,20,4);  # PIP NUMBER                           #
   ITEM CETEQ       U(0,24,3);  # EQUIPMENT NUMBER                     #
   ITEM CETHN       U(0,28,8);  # COUPLER HOST NODE NUMBER             #
   ITEM CETOFF      B(0,36,1);  # OFF COUPLER. INITIALLY SET.          #
   ITEM CETET       C(0,36,2);  # EQUIPMENT MNEMONICS (NP OR NQ)       #
   ITEM CETTN       U(0,49,8);  # CDCNET FRONT END TERMINAL NODE NUMBER#
   ITEM CETSAM      B(0,58,1);  # SET IF NPU HAS SAM MODULE            #
   ITEM CETC2       B(0,59,1);  # INDIVIDUAL CHANGE FLAG               #
   ITEM CETWORD     U(0,0,WL);  # ENTRY WORD                           #
   END
 END
# 
************************************************************************
# 
