*DECK,EXECDDA                                                              EXECDDA
          IDENT  EXEC$DA                                                 EXECDDA
          LIST   -L          NEXT LINE IS *CALL AAMCOMCMP                EXECDDA
*CALL AAMCOMCMP                                                          EXECDDA
          LIST   L                                                       EXECDDA
*                                                                        EXECDDA
          SST                                                            EXECDDA
*                                                                        EXECDDA
          LDSET  OMIT=CMM$ALF/CMM$FRF                                    EXECDDA
          LDSET  EPT=SASH$DA                                             GAG1025
          LDSET  EPT=EXEC$DA/GET$DA/GETN$DA/GTNR$DA/STRT$DA 
          LDSET  EPT=REW$DA/SEEK$DA/SKFL$DA 
 EXEC$DA  CAP.RM                                                         GAG0807
          ENTRY  SKFL$DA,STRT$DA
SKFL$DA   BSS    0           DUMMIES FOR LDSET USE= 
STRT$DA   BSS    0           IN STATIC LOADING
*                                                                        EXECDDA
XI        MACRO  A,B                                                     EXECDDA
REPL      IFC    EQ,*A*REPL*                                             EXECDDA
          RJ     =YPUT$DA                                                EXECDDA
REPL      ELSE                                                           EXECDDA
          RJ     =Y_A_$DA                                                EXECDDA
REPL      ENDIF                                                          EXECDDA
-         VFD    30/B                                                    EXECDDA
          ENDM                                                           EXECDDA
*                                                                        EXECDDA
*CALL /EXECOM/                                                           EXECDDA
*                                                                        EXECDDA
          ENTRY  SASH$DA                                                 EXECDDA
SASH$DA   DATA   0           STANDARD HASH ROUTINE                       EXECDDA
          SB1    1                                                       EXECDDA
          SB5    10                                                      EXECDDA
          SA2    A1+B1                                                   EXECDDA
          SX3    A2+B1                                                   EXECDDA
          SA4    X3+B1                                                   EXECDDA
          SA1    X1                                                      EXECDDA
          SA2    X2                                                      EXECDDA
          SX3    B0                                                      EXECDDA
          SB2    X1          KL                                          EXECDDA
          LE     B2,B5,SA                                                EXECDDA
SB        IX3    X3+X2                                                   EXECDDA
          SA2    A2+B1                                                   EXECDDA
          SB2    B2-B5                                                   EXECDDA
          GT     B2,B5,SB                                                EXECDDA
SA        IX6    X3+X2                                                   AFB1121
          MX5    40                                                      EXECDDA
          LX5    48                                                      EXECDDA
          BX5    X5*X6                                                   EXECDDA
          ZR     X5,SC                                                   EXECDDA
          PX5    B1,X6                                                   EXECDDA
          AX6    10                                                      EXECDDA
          AX5    1                                                       EXECDDA
          PX6    B1,X6                                                   EXECDDA
          AX6    1                                                       EXECDDA
          FX6    X5/X6                                                   EXECDDA
          IX5    X5-X6                                                   EXECDDA
          LX5    29                                                      EXECDDA
          IX6    X5+X6                                                   EXECDDA
SC        SA6    X4                                                      EXECDDA
          EQ     SASH$DA                                                 EXECDDA
*                                                                        EXECDDA
          END                                                            EXECDDA
