*      INCLUDES  ZTR 00625                                              00050002
* /* START OF SPECIFICATIONS ****                                       00100002
*                                                                       00150002
*01*  MODULE-NAME = ENDMODE                                             00200002
*                                                                       00250002
*01*  DESCRIPTIVE-NAME = USER MACRO TO END SKELETEL DVT'S               00300002
*                                                                       00350002
*01*  COPYRIGHT = XXXX-XXX COPYRIGHT IBM CORP 1973                      00400002
*                                                                       00450002
*01*  STATUS = RELEASE 1                                                00500002
*                                                                       00550002
*01*  FUNCTION = IF USED MACRO RESTORES ASSEMBLY TO PREVIOUS CSECT NAME 00600002
*                                                                       00650002
*    MACRO INVOKED AS FOLLOWS:                                          00700002
*         ENDMODE                                                       00750002
*                                                                       00800002
*01*  NOTES = MACRO USAGE REQUIRED BY USER TO SET FUNCTION COUNT IN     00850002
*     FISRT DVT                                                         00900002
*                                                                       00950002
*     FOLLOWING IS MNOTE USED:                                          01000002
*        MNOTE *,'CSECT NAME NOT SAVED BY USING STRTMODE MACRO'         01050002
*                                                                       01100002
*02*    CHARACTER-CODE-DEPENDENCIES = NONE                              01150002
*                                                                       01200002
*02*    DEPENDENCIES = STRTMODE MACRO                                   01250002
*                                                                       01300002
*02*    RESTRICTIONS = NONE                                             01350002
*                                                                       01400002
*02*    REGISTER-CONVENTIONS = NONE                                     01450002
*                                                                       01500002
*02*    PATCH-LABEL = NONE                                              01550002
*                                                                       01600002
*01*  MODULE-TYPE = MACRO                                               01650002
*                                                                       01700002
*02*    PROCESSOR = ASSEMBLER                                           01750002
*                                                                       01800002
*02*    MACRO-SIZE = 12 STATEMENTS                                      01850002
*                                                                       01900002
*02*    ATTRIBUTES = LIST                                               01950002
*                                                                       02000002
*01*  ENTRY-POINT = NA                                                  02050002
*                                                                       02100002
*01*  EXIT-NORMAL = NA                                                  02150002
*                                                                       02200002
*01*  EXIT-ERROR = NA                                                   02250002
*                                                                       02300002
*01*  EXTERNAL-REFERENCES = NONE                                        02350002
*                                                                       02400002
*02*    DATA-SETS = NONE                                                02450002
*                                                                       02500002
*02*    DATA-AREA = NONE                                                02550002
*                                                                       02600002
*02*    CONTROL-BLOCKS-SYSTEM = NONE                                    02650002
*                                                                       02700002
*02*    CONTROL-BLOCKS-ATCAM = NONE                                     02750002
*                                                                       02800002
*01*  TABLES = NONE                                                     02850002
*                                                                       02900002
*01*  INNER-MACROS = NONE                                               02950002
*                                                                       03000002
*01*  SYSTEM-MACROS = NONE                                              03050002
*                                                                       03100002
*01*  CHANGE-ACTIVITY = DCR  1K0266                                     03150002
*                                                                       03200002
**** END OF SPECIFICATIONS ***/                                         03250002
         MACRO                                                          03300002
         ENDMODE                                                        03350002
         GBLA  &CNT                   FUNCTION COUNTER                  03400002
         GBLB  &B,&C,&M               DVT FUNCT AND MODE                03450002
         GBLC  &A                     CURRENT CSECT NAME                03500002
&B       SETB  0                      SET DVT USAGE BIT OFF             03550002
&C       SETB  0                      SET FUNCT OFF                     03600002
         ORG   *-(&CNT*28)+8                                            03650002
         DC    H'&CNT'                                                  03700002
         ORG   &SYSECT+(&CNT*28)                                        03750002
&CNT     SETA  0                     RESET FUNCTION COUNTER             03800002
         AIF   (&M EQ 1).A1                                             03850002
         MNOTE *,'CSECT NAME NOT SAVED BY USING STRTMODE MACRO'         03900002
         MEXIT                                                          03950002
.A1      AIF   ('&A' EQ '').A2                                          04000002
&A       CSECT                                                          04050002
.A2      ANOP                                                           04060002
         MEND                                                           04100002