      BEGIN  # ICSZCOM #
                                               CONTROL FTNCALL;
      DEF MAX$MSG$LEN #3074#;
      DEF PAUS$CNT   #5#;
      DEF BUSY$CNT   #100#;
      DEF START      #1#;
      DEF CONTINUE   #2#;
      DEF TERMINATE  #3#;
      DEF MID$RECORD #1#;
      DEF SKIP$TO$EOR #1#;
      DEF NO$SKIP    #2#;
      DEF EOR        #2#;
      DEF EOP        #3#;
      DEF EOI        #4#;
      DEF NOT$OPENED #1#;
      DEF PARTNER$QUIT #2#;
      DEF SECOND$OPEN #1#;
      DEF BAD$OPEN   #1#;
      DEF CONTNOTMID #3#;
      DEF GETAFTEREOI #3#;

#  THE FOLLOWING SYMPL DEFINITION OF THE MEMORY LINK STATUS           #
#  RESPONSES MIRRORS THE COMPASS DEFINITION THAT IS FOUND             #
#  IN COMMON DECK COMSMLI                                             #

      DEF MLSOK      #0#;            # MLC$OK #
      DEF MLSRS      #1#;            # MLC$RECEIVER$NAME$SYNTAX$ERROR #
      DEF MLSSS      #2#;            # MLC$SENDER$NAME$SYNTAX$ERROR #
      DEF MLSRN      #3#;            # MLC$RECEIVER$NOT$SIGNED$ON #
      DEF MLSSM      #4#;            # MLC$SYSTEM$NAME$NO$MATCH #
      DEF MLSBI      #5#;            # MLC$BUSSY$INTERLOCK #
      DEF MLSDI      #6#;            # MLC$DUP$PERMIT$IGNORED #
      DEF MLSPF      #7#;            # MLC$PERMIT$LIST$FULL #
      DEF MLSSN      #8#;            # MLC$SENDER$NOT$SIGNED$ON #
      DEF MLSCI      #9#;            # MLC$C170$C170$ILLEGAL #
      DEF MLSSP      #10#;           # MLC$SENDER$NOT$PERMITTED #
      DEF MLSPN      #11#;           # MLC$PRIOR$MSG$NOT$RECEIVED #
      DEF MLSRF      #12#;           # MLC$RECEIVE$LIST$FULL #
      DEF MLSMQ      #13#;           # MLC$MSGS$FROM$SENDER$QUEUED #
      DEF MLSII      #14#;           # MLC$RECEIVE$LIST$INDEX$INVALID #
      DEF MLSMT      #15#;           # MLC$MESSAGE$TRUNCATED #
      DEF MLSSC      #16#;           # MLC$SIGNAL$TO$C170$IGNORED #
      DEF MLSTL      #17#;           # MLC$MESSAGE$TOO$LONG #
      DEF MLSBA      #18#;           # MLC$POOL$BUFFER$NOT$AVAIL #
      DEF MLSSF      #19#;           # MLC$SIGNAL$FAILED$IGNORED #
      DEF MLSQL      #20#;           # MLC$QUEUED$MSGS$LOST #
      DEF MLSSA      #21#;           # MLC$MAX$SIGNONS$THIS$APPL #
      DEF MLSML      #22#;           # MLC$MAX$MSGS$TOO$LARGE$ #
      DEF MLSAF      #23#;           # MLC$ANT$FULL #
      DEF MLSST      #24#;           # MLC$MAX$SIGNONS$THIS$TASK #
      DEF MLSIE      #25#;           # MLC$MLI$INTERNAL$ERROR #
      DEF MLSIF      #26#;           # MLC$ILLEGAL$FUNCTION #
      DEF MLSAE      #27#;           # MLC$BAD$C170$PARAMETER #
      DEF MLSND      #28#;           # MLC$NOSVE$NOT$UP #

      ARRAY ARB$INFO [0] S(1);
        BEGIN
        ITEM UNUSED$BITS U(0,50,6);
        ITEM AI$EOI     B(0,56,1);
        ITEM AI$EOP     B(0,57,1);
        ITEM FIRST$MSG  B(0,58,1);
        ITEM LAST$MSG   B(0,59,1);
        END

      COMMON ICF$FILE;
        BEGIN
        ITEM APPL$NAME  U = 0;
        ITEM PARTNER$NAME U = 0;
        ITEM POSITION   U = EOR;
        ITEM RECORD$LEN U = 0;
        ITEM OPENED     B = FALSE;
        ITEM ANY$PUTS   B = FALSE;

        END

      END  # ICSZCOM #

