*COMDECK SUB00
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   C T L                              #
                                #                                      #
          STOPEXEC            ; # TERMINATE QU EXECUTION               #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #       C U M F U N C                  #
                                #                                      #
          CUMFUN              ; # SAVE CUMULATIVE FUNCTION CODE        #
          CUMFUPM             ; # BUILD CUMULATIVE FUNCTION PARAMETERS #
                                #                                      #
                                #--------------------------------------#
  
  
                                                                         QU3A334
                                #--------------------------------------# QU3A334
                                #                                      # QU3A334
                                # FOLLOWING ROUTINES ARE CONTAINED IN  # QU3A334
                                #                                      # QU3A334
                                #     C U R T T                        # QU3A334
                                #                                      # QU3A334
          CURTT               ; # FETCH ATTRIBUTES OF CURRENT REGISTERS# QU3A334
                                #                                      # QU3A334
                                #--------------------------------------# QU3A334
                                                                         QU3A334
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   D A T A N A M                      #
                                #                                      #
          CHKDLUP             ; # GO TO STDNO IF CALLED FROM DEL-UP-SYN#
          FIGSUBS             ; # ANALYZES USE OF FIGURATIVE SUBSCRIPT.#
          GETAREANAME         ; # GETS NAME GIVEN IN UPDATE AREANAME   #
          GETNAME             ; # CHECKS CURWORD AGAINST DEF-DESC LISTS#
          INTSUBS             ; # STORE INTEGER ITEM SUBSCRIPT         #
          ITMNAM              ; # STORE ITEM NAME IN FIELDNAME TABLE   #
          NEWATTRIB           ; # SETS FLAGS FOR RENAMING BY -AS-      #
          RESETNAM            ; # RESET FIELDNAME TABLE                #
          STORLIT             ; # STORES LIT AND RETURNS DESCRIPTION.  #
          SUBSCRIPT           ; # ANALYZES USE OF NUMERIC SUBSCRIPT.   #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   E X P A N A L                      #
                                #                                      #
          CHKLOGOPFLAG        ; # DUPLICATE MISSING PARTS OF A RELATION#
          CONDINIT            ; # INITIALIZES FOR CONDITION ANALYSIS.  #
          ENDABEXPR           ; # COMPLETES ARITH/BOOL EXPR ANALYSIS.  #
          ENDCOND             ; # COMPLETES CONDITION ANALYSIS.        #
          ENDEXPRESS          ; # COMPLETES EXPRESSION ANALYSIS.       #
          EXPRESSDATA         ; # STACKS DATA ENTRY ON DATA STACK.     #
          EXPRINIT            ; # INITIALIZES FOR EXPRESSION ANALYSIS. #
          FUNCPARAM           ; # ANALYZES PARAMETER USE IN FUNCTIONS. #
          FUNCTION            ; # STACKS FUNCTION OR REGISTER OP       #
          IFSAME              ; # FETCHES PROGRAMSTACK OF PREVIOUS *IF*#
          LOGOP               ; # STACKS LOGICAL OP ON OP STACK.       #
          NOTOP               ; # STACKS "NOT" OPERATOR ON OP STACK.   #
          OPENPAREN           ; # STACKS ( ON OPERATOR STACK.          #
          OPERAND             ; # COMPLETES STACK ENTRIES FOR FUNCTION.#
          OPERATOR            ; # MANAGES OPERATOR STACK BY PRECEDENCE.#
          RECSAME             ; # *NO* IF RECORDING THE *SAME*         #
          RELOP               ; # STACKS RELATIONAL OP ON OP STACK.    #
          STKOPNDSAVED        ; # DUPLICATE MISSING HALF OF A RELATION.#
          UNARYOP             ; # STACKS UNARY MINUS ON OPERATOR STACK.#
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   H E L P S Y N                      #
                                #                                      #
          DIAFULL             ; # *DIAG,FULL* SEMANTICS                #
          DIAPART             ; # *DIAG,PART* SEMANTICS                #
          HELP                ; # CALLS *PDT* TO PROCESS DIAGNOSTIC    #
          PLUGARY             ; # SAVE LEXICAL ID FOR *HELP*           #
          PLUGD               ; # SAVE DIAGNOSTIC NUMBER FOR *HELP*    #
                                # (HELP) TEXT.                         #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #       P E R E X E C                  #
                                #                                      #
          PERBEGIN            ; # BEGIN OR CONTINUE A *PERFORM*        #
          PERCKDM             ; # CHECK IF DUMMY *PERFORM*             #
          PEREND              ; # ERROR - ERASE ALL -PERFORM- SESSIONS #
          PERINIT             ; # INITIALIZE -PERFORM- BUFFERS         #
          PERNEXT             ; # GET NEXT SESSION  FOR -PERFORM-      #
          TSVETO              ; # PERFORM - WRITE OUT VETO MSG/REPLY   #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   R P T E X I T                      #
                                #                                      #
          RPTCLR              ; # CLEARS *RPTFLAG*, STDNO.             #
          RPTEXIT             ; # CALLS *PRINTPS* FOR A *COMPILE*.     #
                                # CLEARS RPTFLAG (END OF BUILDING TBLS)#
                                # DETECTS EMPTY REPORT (RETURN TO STDNO#
                                # AFTER FREEING SPACE ALLOCATED).      #
                                # SETS PRIMARY OVERLAY LEVEL FOR THE   #
                                # OVERLAY THAT WILL USE THE TABLES.    #
                                # SETS SECONDARY OVERLAY LEVEL FOR     #
                                # RE-ENTRY TO SYNTAX IN (1,1) IN CASE  #
                                # OF MULTIPLE REPORTS.                 #
                                # CALLS *EXIT10* TO LOAD THE OVERLAY   #
          RPTSET              ; # SETS *RPTFLAG*, STDNO.               #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   S T D                              #
                                #                                      #
          STD$RETURN          ; # RETURN TO CALLER OF *STD$START*      #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   S T K O U T                        #
                                #                                      #
          STKOUT              ; # TO RECORD DIRECTIVE ON CATALOG       #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   S T X 0 0                          #
                                #                                      #
          CHKTEMP             ; # *NO* IF OLDTYPE = 7777B, ELSE *YES*  #
          CHK40               ; # EOT PROCESSING + OVL SELECTION       #
          ENDBASC             ; # *NO* IF BASIC FILEPASS DIRECTIVE WAS #
                                # RECEIVED.                            #
          RLSBASC             ; # RELEASE MEMORY OF BASIC TABLES       #
          UPDMODE             ; # TESTS IF READ-ONLY MODE IS ON.       #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   S Y N T A X                        #
                                #                                      #
          CALLIO              ; # READ NEXT TRANSMISSION FROM THE      #
                                # APPROPRIATE SOURCE.                  #
          CHKIFLG             ; # *YES* IF CURRENT XMISSN PRECEDED BY  #
                                # FALSE *IF* CONDITION                 #
          CHKLFN              ; # *YES* IF LEGAL LFN, ELSE *NO*        #
          CHKNAME             ; # *YES* IF NEXT WORD IS A DATANAME     #
          CHKNOTE             ; # SAME AS $NOTE EXCEPT SUCCESS DOES NOT#
                                # ADVANCE NEXWORD TO CURWORD           #
  
          CHKNXID             ; # TEST IF NEXT WORD IS A  DIRECTIVE    #
          CLRFLGS             ; # CLEAR FUNCTION AND REGISTER FLAGS    #
          CLRNEXT             ; # CLEAR FLAGS FOR FALSE *IF* AND STAND-#
                                # ALONE *IF*                           #
          CLRPARM             ; # CLEAR FUNCTION PARAMETER FLAG        #
          CRECFLG             ; # *NO* IF RECORDING, ELSE *YES*        #
          IFRPTD              ; # *YES* IF THIS DIRECTIVE WAS A REPORT #
                                # DIRECTIVE, ELSE *NO*.                #
          INCREM              ; # STORES VALUE OF INCREMENT FOR        #
                                # *RECORDING/DUPLICATE*                #
          ISIT77              ; # CHECK FOR USER DIRECTIVE *WHERE* OR  #
                                # INTERNAL DIRECTIVE                   #
          LOAD1X              ; # LOAD THE (1,X) OVERLAY FOR THIS DIR  #
          RPTSYN              ; # STDYES IF *RPTFLAG* SET, ELSE STDNO  #
          SAMEOVL             ; # *NO* IF *KEYTEST*, ELSE SET IT TRUE  #
                                # AND *YES*                            #
          SAVCP1A             ; # SAVES PART OF THE CURRENT P1 IN      #
                                # LFNINDEX AND *NO*                    #
          SETDIRX             ; # PICK UP TYPEALOW, LEXID FOR DIRECTIVE#
          SETPARM             ; # FLAG THAT DATANAME IS FUNCTION PARAM #
          SPLACFG             ; # SET *PLACEFLAG* TO 77B INDICATING A  #
                                # NON-RECORDABLE DIRECTIVE             #
          STKINIT             ; # TO INITIALIZE DIRECTIVE STACKING     #
          WRDIRT              ; # LIST ERRONEOUS DIRECTIVE FOR USER    #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
