*DECK HELPSYN 
USETEXT TENVIRN 
USETEXT TXSTD 
      PROC HELPSYN; 
#----------------------------------------------------------------------#
#                                                                      #
#     H E L P S Y N                                                    #
#                                                                      #
# THIS PROC CONTAINS ALL THE SYNTAX PROCESSING ROUTINES FOR THE        #
# DIRECTIVES *DIAGNOSTICS* AND *HELP*.                                 #
#----------------------------------------------------------------------#
      BEGIN 
  
      XREF ITEM DIAGLEV;           # NZ IF DIAG FULL MODE              #
      XREF ITEM DIAGN;             # DIAGNOSTIC/HELP TEXT NUMBER       #
      XREF ITEM HELPFLG;           # 1 TO WRITE HELP TEXT              #
      XREF ITEM HELPLEX;           # *HELP* LEXICAL ID OR DIAG NUMBER  #
      XREF ITEM HELPOVL;           # ZERO TO LOAD A DIAGNOSTIC OVERLAY #
  
      XREF PROC PDT;               # PROCESS DIAGNOSTIC TEXT           #
  
  
#----------------------------------------------------------------------#
#                                                                      #
#     D I A F U L L                                                    #
#                                                                      #
#----------------------------------------------------------------------#
      XDEF PROC DIAFULL;
      PROC DIAFULL; 
      BEGIN 
      IF RECORDFLAG                # IF RECORDING                      #
      THEN
        BEGIN 
        STDNO;
        END 
  
      DIAGLEV = 1;                 # SET *FULL* MODE FOR DIAGNOSTICS   #
      STDNO;
      END 
#----------------------------------------------------------------------#
#                                                                      #
#     D I A P A R T                                                    #
#                                                                      #
#----------------------------------------------------------------------#
      XDEF PROC DIAPART;
      PROC DIAPART; 
      BEGIN 
      IF RECORDFLAG                # IF RECORDING                      #
      THEN
        BEGIN 
        STDNO;
        END 
  
      DIAGLEV = 0;                 # SET *PART* MODE FOR DIAGNOSTICS   #
      STDNO;
      END 
#----------------------------------------------------------------------#
#                                                                      #
#     H E L P                                                          #
#                                                                      #
# THIS PROC PROCESSES THE *HELP* DIRECTIVE.                            #
#----------------------------------------------------------------------#
      XDEF PROC HELP; 
      PROC HELP;
      BEGIN 
      DIAGN = HELPLEX;             # USE LEXICAL ID OR DIAG NUMBER     #
      HELPLEX = 0;                 # RESET FOR *HELP* W/O PARAMETERS   #
      HELPFLG = 1;                 # SEARCH FOR HELP TEXT ONLY         #
      IF DIAGN EQ 0                # IF NO PARAMETERS GIVEN FOR *HELP* #
      THEN
        BEGIN 
        HELPOVL = 1;               # TEXT IS IN HELP OVERLAY           #
        END 
      PDT;                         # PROCESS DIAGNOSTIC TEXT           #
      STDYES;                      # RETURN TO *STD* PROCESSOR         #
      END 
#----------------------------------------------------------------------#
#                                                                      #
#     P L U G D                                                        #
#                                                                      #
#----------------------------------------------------------------------#
      XDEF PROC PLUGD;
      PROC PLUGD; 
      BEGIN 
      HELPOVL = 0;                 # LOOK FOR THE TEXT IN A DIAG OVL   #
      HELPLEX = ICW[5];            # SAVE DIAGNOSTIC NUMBER            #
      STDNO;
      END 
#----------------------------------------------------------------------#
#                                                                      #
#     P L U G A R Y                                                    #
#                                                                      #
#----------------------------------------------------------------------#
      XDEF PROC PLUGARY;
      PROC PLUGARY; 
      BEGIN 
      HELPOVL = 1;                 # LOOK FOR THE TEXT IN A HELP OVL   #
      HELPLEX = B<6,9>CLXWRD[0];   # SAVE LEXICAL ID ONLY              #
      STDNO;
      END 
      END 
      TERM
