*DECK DB$M10M                                                            JJJ0106
USETEXT MDDEFTX 
USETEXT MDBCMTX 
      PROC DB$M10M;          # MAIN FOR OVERLAY 1,0 OF DBMSTRD     #     JJJ0106
 #                                                                       JJJ0106
  *   DB$M10M - MAIN FOR 1,0 OVERLAY OF DBMSTRD  PAGE  1                 JJJ0106
  *   J. JAN JANIK                               DATE  01/06/76          JJJ0106
  *   A. W. LO                                   DATE  05/08/77 
  DC  PURPOSE                                                            JJJ0106
                                                                         JJJ0106
      TO INITIATE OR RESTART SYNTAX SCAN FOR DBMSTRD.                    JJJ0106
                                                                         JJJ0106
  DC  ENTRY CONDITIONS                                                   JJJ0106
                                                                         JJJ0106
      RSTSCAN = 0 IF INITIAL LOAD OF OVERLAY 1,0                         JJJ0106
                                                                         JJJ0106
  DC  EXIT CONDITIONS                                                    JJJ0106
                                                                         JJJ0106
      RETURN TO CALLER, DB$M10E AT END OF SET                            JJJ0106
                                                                         JJJ0106
  DC  CALLING ROUTINES                                                   JJJ0106
                                                                         JJJ0106
      DB$M10E - OVERLAY 1,0 TRANSFER ROUTINE                             JJJ0106
 #                                                                       JJJ0106
      BEGIN                                                              JJJ0106
                                                                         JJJ0106
                                                                         JJJ0106
                                                                         JJJ0106
      XREF                                                               JJJ0106
        BEGIN                                                            JJJ0106
 #                                                                       JJJ0106
                                                                         JJJ0106
  DC  CALLED ROUTINES                                                    JJJ0106
#                                                                        JJJ0106
        PROC DB$MINI;        # INITIALIZE SCANNER                      # JJJ0106
        PROC DB$STD;         # SYNTAX TABLE DRIVER MAIN                # JJJ0106
 #                                                                     #
        PROC DB$SR01;                                                    JJJ0107
        PROC DB$SR02;                                                    JJJ0107
        PROC DB$SR03;                                                    JJJ0107
        PROC DB$SR04;                                                    JJJ0107
        PROC DB$SR05;                                                    JJJ0107
        PROC DB$SR06;                                                    JJJ0107
        PROC DB$SR07;                                                    JJJ0107
        PROC DB$SR08;                                                    JJJ0107
        PROC DB$SR09;                                                    JJJ0107
        PROC DB$SR10;                                                    JJJ0107
        PROC DB$SR11;                                                    JJJ0107
        PROC DB$SR12;                                                    JJJ0107
        PROC DB$SR13;                                                    JJJ0107
        PROC DB$SR14;                                                    JJJ0107
        PROC DB$SR15;                                                    JJJ0107
        PROC DB$SR16;                                                    JJJ0107
        PROC DB$SR17;                                                    JJJ0107
        PROC DB$SR18;                                                    JJJ0107
        PROC DB$SR19;                                                    JJJ0107
        PROC DB$SR20;                                                    JJJ0107
        PROC DB$SR21;                                                    JJJ0107
        PROC DB$SR22;                                                    JJJ0107
        PROC DB$SR23;                                                    JJJ0107
        PROC DB$SR24;                                                    JJJ0107
        PROC DB$SR25;                                                    JJJ0107
        PROC DB$SR26;                                                    JJJ0107
        PROC DB$SR27;                                                    JJJ0107
        PROC DB$SR28;                                                    JJJ0107
        PROC DB$SR29;                                                    JJJ0107
        PROC DB$SR30;                                                    JJJ0107
        PROC DB$SR31;                                                    JJJ0107
        PROC DB$SR32;                                                    JJJ0107
        PROC DB$SR33;                                                    JJJ0107
        PROC DB$SR34;                                                    JJJ0107
        PROC DB$SR35;                                                    JJJ0107
        PROC DB$SR36;                                                    JJJ0107
        PROC DB$SR37;                                                    JJJ0107
        PROC DB$SR38;                                                    JJJ0107
        PROC DB$SR39;                                                    JJJ0107
        PROC DB$SR40;                                                    JJJ0107
        PROC DB$SR41;                                                    JJJ0107
        PROC DB$SR42;                                                    JJJ0107
        PROC DB$SR43;                                                    JJJ0107
        PROC DB$SR44;                                                    JJJ0107
        PROC DB$SR45;                                                    JJJ0107
        PROC DB$SR46;                                                    JJJ0107
        PROC DB$SR47;                                                    JJJ0107
        PROC DB$SR48;                                                    JJJ0107
        PROC DB$SR49;                                                    JJJ0107
        PROC DB$SR50;                                                    JJJ0107
        PROC DB$SR51;                                                    JJJ0107
        PROC DB$SR52;                                                    JJJ0107
        PROC DB$SR53; 
        PROC DB$SR54; 
        PROC DB$SR55; 
        PROC DB$SR56; 
        PROC DB$SR57; 
        PROC DB$SR58; 
        PROC DB$SR59; 
        PROC DB$SR60; 
        PROC DB$SR61; 
        PROC DB$SR62; 
        PROC DB$SR63; 
        PROC DB$SR64; 
        PROC DB$SR65; 
        PROC DB$SR66; 
        PROC DB$SR67; 
        PROC DB$SR68; 
        PROC DB$SR69; 
        PROC DB$SR70; 
        PROC DB$SR71; 
        PROC DB$SR72; 
        PROC DB$SR73; 
        PROC DB$SR74; 
        PROC DB$SR75; 
        PROC DB$SR76; 
        PROC DB$SR77; 
        PROC DB$SR78; 
        PROC DB$SR79; 
        PROC DB$SR80; 
        PROC DB$SR81; 
        PROC DB$SR82; 
        PROC DB$SR83; 
        PROC DB$SR84; 
        PROC DB$SR85; 
        PROC DB$SR86; 
        PROC DB$SR87; 
        PROC DB$SR88; 
        PROC DB$SR89; 
        PROC DB$SR90; 
        PROC DB$SR91; 
        PROC DB$SR92; 
        PROC DB$SR93; 
        PROC DB$SR94; 
        PROC DB$SR95; 
        PROC DB$SR96; 
        PROC DB$SR97; 
        PROC DB$SR98; 
        PROC DB$SR99; 
        PROC DB$SR1A; 
        PROC DB$SR1B; 
        PROC DB$SR1C; 
        PROC DB$SR1D; 
        PROC DB$SR1E; 
        PROC DB$SR1F; 
        PROC DB$SR1G; 
        PROC DB$SR1H; 
        PROC DB$SR1I; 
        PROC DB$SR1J; 
        PROC DB$SR1K; 
        PROC DB$SR1M; 
        PROC DB$SR1N; 
        PROC DB$SR1O; 
        PROC DB$SR1P; 
        PROC DB$SR1Q; 
        END                                                              JJJ0106
      CONTROL EJECT;                                                     JJJ0107
 #                                                                       JJJ0106
                                                                         JJJ0106
  DC  DESCRIPTION                                                        JJJ0106
                                                                         JJJ0106
      START OF EXECUTABLE CODE FOR DB$M10M.                              JJJ0106
      TEST RSTSCAN AND, IF ZERO CALL DB$MINI.                            JJJ0106
 #                                                                       JJJ0106
      IF RSTSCAN EQ 0  THEN DB$MINI;                                     JJJ0106
 #                                                                       JJJ0106
      START SYNTAX TABLE DRIVER.                                         JJJ0106
 #                                                                       JJJ0106
      DB$STD(DB$SYSW);
                                                                         JJJ0106
      RETURN;                                                            JJJ0106
 #                                                                       JJJ0106
      THE SEMANTIC ROUTINE JUMP TABLE IS INCLUDED IN THIS ROUTINE.       JJJ0106
 #                                                                       JJJ0106
DB$SYSW:                     # THE NEXT CARD IS  *CALL SEMJPDCLS #       JJJ0106
*CALL SEMJPDCLS                                                          JJJ0106
      END                                                                JJJ0106
      TERM                                                               JJJ0106
