*COMDECK,CMD$COM
  
# COMMAND CRACKER/COMMAND PROCESSOR INTERFACE # 
  
  
      DEF CIT$SIZE #30#;     # SIZE OF CIT$TABLE                       #
  
      STATUS IACOMMAND
        NOCOMMAND,
        ABORT,
        CANCEL, 
        CHANGE, 
        DISPLAY,
        DIVERT, 
        END,
        GO, 
        IAF,
        LOGIN,
        LOGOUT, 
        PURGE,
        RESTORE,
        RESUME, 
        RETURN, 
        REWIND, 
        SET,
        SKIP, 
        STOP, 
        SUPPRESS; 
  
      COMMON CMD$COM; 
      BEGIN # CMD$COM # 
  
      BASED ARRAY CIT$TABLE [1:1] S(1); 
  
          BEGIN 
          ITEM CIT$WORD      I(0,0,WL); 
          ITEM CIT$CMDTYPE   S:IACOMMAND(0,0,6); # COMMAND NUMBER # 
          ITEM CIT$FORMS     C(0,6,2);   # FORMS CODE # 
          ITEM CIT$NOCHARS   U(0,6,12);  # NUMBER OF CHARACTERS        #
                                         # CONVERTED                   #
          ITEM CIT$REP       U(0,18,5);  # REPEAT COUNT                #
          ITEM CIT$FLAGW     I(0,0,WL);  # FLAG WORD #
          ITEM CIT$FLAGS     I(0,23,23); # FLAGS FIELD #
          ITEM CIT$JOBFLAG   B(0,23,1);  # JOB FLAG # 
          ITEM CIT$DIS       U(0,23,10); # DISPLAY FLAGS #
          ITEM CIT$DEVFLAG   B(0,24,1);  # DEVICE FLAG #
          ITEM CIT$ALLQFLAG  B(0,25,1);  # ALL QUEUES FLAG #
          ITEM CIT$OUTQFLAG  B(0,26,1);  # OUTPUT QUEUES FLAG # 
          ITEM CIT$WIDFLAG   B(0,27,1);  # SCREEN WIDTH FLAG #
          ITEM CIT$QFLAGS    U(0,28,5);    # QUEUE FLAGS               #
      ITEM CIT$OQFLAGS   U (0,28,3) ; 
      ITEM CIT$PRFLAG    U (0,30,1) ; 
      ITEM CIT$PUFLAG    U (0,29,1) ; 
      ITEM CIT$PTFLAG    U (0,28,1) ; 
      ITEM CIT$EXFLAG    U (0,31,1) ; 
          ITEM CIT$INFLAG    B(0,32,1);  # INPUT QUEUE #
          ITEM CIT$ENDFLAG   B(0,33,1);  # END FLAG # 
          ITEM CIT$DFLFLAG   B(0,34,1);  # DAYFILE FLAG # 
          ITEM CIT$FMTFLAG   B(0,35,1);  # FORMAT FLAG #
          ITEM CIT$BANFLAG   B(0,36,1);  # BANNER FLAG #
          ITEM CIT$ACKFLAG   B(0,37,1);  # ACKNOWLEDGMENT # 
          ITEM CIT$REPFLAG   B(0,38,1);  # REPEAT FLAG #
          ITEM CIT$EXTFLAG   B(0,39,1);  # EXTENDED FLAG #
          ITEM CIT$RFRFLAG   B(0,40,1);  # REFRESH FLAG # 
          ITEM CIT$FMSFLAG   B(0,41,1);  # FORMS CODE FLAG #
          ITEM CIT$HSTFLAG   B(0,42,1);  # HOST FLAG #
          ITEM CIT$PRIFLAG   B(0,43,1);  # PRIORITY FLAG #
          ITEM CIT$BLKSIZ    B(0,44,1);  # BLOCK SIZE FLAG  # 
          ITEM CIT$TRFLAG    B(0,45,1);  # TRAIN TYPE                  #
          ITEM CIT$DEVT      U(0,46,6);  # DEVICE TYPE                 #
          ITEM CIT$ORD       I(0,52,8);  # DEVICE ORDINAL # 
          ITEM CIT$FAMNAME   C(1,0,7);   # FAMILY NAME #
          ITEM CIT$PRIVALUE  I(1,48,12); # PRIORITY VALUE # 
          ITEM CIT$SCVALUE   C(1,48,2);  # SERVICE CLASS VALUE #
          ITEM CIT$BLKVAL    U(1,48,12); # BLOCK SIZE VALUE # 
          ITEM CIT$IN        U(1,42,18); # IN POINTER FOR CONVERSION   #
          ITEM CIT$USERNUM   C(2,0,7);   # USER NUMBER #
          ITEM CIT$ZERO1     U(2,42,18);   # ZERO FIELD         # 
          ITEM CIT$SCFLAG    B(2,42,1);  # SERVICE CLASS FLAG  #
          ITEM CIT$WIDTH     I(2,51,9);  # SCREEN WIDTH # 
          ITEM CIT$JSN   C(3,0,04);        # JOB SEQUENCE NUMBER       #
          ITEM CIT$ZERO  U (3,24,18);      # ZERO FIELD                #
          ITEM CIT$OUT       U(2,42,18); # OUT POINTER FOR CONVERSION # 
          ITEM CIT$LIMIT     U(3,42,18); # LIMIT TO CONVERSION AREA # 
          ITEM CIT$TRAIN     U(3,42,6);  # OUTPUT TRAIN TYPE           #
          ITEM CIT$SKPVALUE  I(3,47,13); # SKIP COUNT # 
          ITEM CIT$MESSAGE   C(4,0,80);  # COMMAND LINE # 
          ITEM CIT$ERRMSG   C(4,0,40); # ERROR MESSAGE                 #
          END                # END OF CIT$TABLE ITEMS # 
  
      END   # CMD$COM # 
