*DECK EXECDAK                                                            EXECDAK
          IDENT  EXEC$AK                                                 EXECDAK
          LIST   -L                THE FOLLOWING IS A CALL TO AAMCOMCMP  EXECDAK
*CALL AAMCOMCMP                                                          EXECDAK
          LIST   L                                                       EXECDAK
 XI       MACRO  A,B                                                     EXECDAK
          RJ     =Y_A_$AK                                                EXECDAK
-         VFD    30/B                                                    EXECDAK
          ENDM                                                           EXECDAK
*#                                                                       EXECDAK
* *   EXEC$AK                                    PAGE  1                 EXECDAK
* *   THE AK EXECUTIVE                                                   EXECDAK
* *   R.P.NG.                                    DATE.                   EXECDAK
* 1CD     EXEC$AK                                                        EXECDAK
*         THIS IS THE A.K. EXECUTIVE                                     EXECDAK
* 0CD     ENTRY CONDITIONS                                               EXECDAK
*         FITSAV IN GCOM HAS USER FIT ADDRESS.                           EXECDAK
*         A0 IS POINTING TO USER FIT ALSO.                               EXECDAK
*         COP FIELD OF FIT HAS OP CODE.                                  EXECDAK
* 0CD     EXIT CONDITIONS.                                               EXECDAK
*         REQUEST SERVICED IF NO ERROR.                                  EXECDAK
* OCD     ERROR CONDITIONS.                                              EXECDAK
*         INVALID OP SUPPLIED - FATAL SYSTEM ERROR.                      EXECDAK
* 0CD     CALLED ROUTINES.                                               EXECDAK
*         ALL FUNCTION PROCESSORS OF A.K. (SUCH AS PUT$AK)               EXECDAK
* 0CD     NON-LOCAL VARIABLES USED.                                      EXECDAK
*         MKEYLNG SET TO MKL IN FIT (MAJOR KEY PROCESSING FOR MIP)       EXECDAK
*         MKL IN FIT IS CLEARED.                                         EXECDAK
* 0CD     DESCRIPTION                                                    EXECDAK
*         ON ENTRY, B4 IS SET TO COP IN FIT.  A RANGE CHECK IS MADE TO   EXECDAK
*         ENSURE THAT THE OP VALUE IS VALID.  B4 IS THEN USED AS THE     EXECDAK
*         JUMP INDEX TO THE JUMP TABLE TO TRANSFER CONTROL TO THE PROPER EXECDAK
*         PROCESSOR.  THE CELL MKEYLNG IN GCOM IS SET TO MKL, TO ALLOW   EXECDAK
*         FOR MAJOR KEY PROCESSING IN MIP, AND MKL IS CLEARED.           EXECDAK
*#                                                                       EXECDAK
          SST                                                            EXECDAK
          LDSET  OMIT=CMM$ALF/CMM$FRF                                    EXECDAK
          LDSET  EPT=EXEC$AK/GET$AK/GETN$AK                              EXECDAK
          LDSET  EPT=GTNR$AK/REW$AK/SEEK$AK 
          LDSET  EPT=SKFL$AK/SKBL$AK/STRT$AK
 EXEC$AK  CAP.RM                                                         GAG0807
          ENTRY  SKFL$AK,SKBL$AK,STRT$AK
SKFL$AK   BSS    0           DUMMIES FOR LDSET USE= 
SKBL$AK   BSS    0           IN STATIC LOADING
STRT$AK   BSS    0
*CALL /EXECOM/                                                           EXECDAK
          END                                                            EXECDAK
