*DECK SYMPL77 
      PROC SYMPL77; 
      BEGIN 
*CALL SYMPL00 
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   I F S Y N                          #
                                #                                      #
      XREF PROC CKDES;          # CHECKS FOR DESCRIBE ITEM IN AN IF # 
      XREF PROC CKFILL;         # CHECKS IMMEDIATE OR DEFERRED EVAL    #
      XREF PROC IFTEMP;         # EVALUATES *IF* ON TEMPORARY          #
      XREF PROC SETIFTBL;       # FLAGS TYPE OF THING IFFED            #
      XREF PROC SETNEXT;        # FLAG STAND-ALONE *IF*. SET TO ACCEPT #
                                # NEXT TRANMISSION AS PREDICATE        #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   S E T 4 0                          #
                                #                                      #
      XREF PROC ALGRPID;        # ALLOCATE GROUP-ID                    #
      XREF PROC SET40;          # INITIALIZE FOR FILE ACCESS COMMAND   #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
SWVECTR:                           # SWITCH OF PROC CALLS FOR STD.     #
*CALL SUB77 
      END 
      TERM
