*DECK CMMSAFE 
          IDENT  CMMSAFE
  
*CALL CMMCOM
          COMMENT  "SUBSYS"DUMMY ROUTINE FOR SAFE VERSION.
          SPACE  4,10 
**        CMMSAFE - DUMMY ROUTINE TO SELECT SAFE VERSION. 
* 
* 
*              IF THE FAST VERSION IS THE DEFAULT VERSION, THE FOLLOWING
*         IS GENERATED FOR EACH OF THE CMM FUNCTIONS: 
* 
*                       LDSET(SUBST=$CMM.XXX$-$CMS.XXX$)
* 
*              OTHERWISE, NOTHING IS GENERATED. 
  
  
          ENTRY  CMMSAFE
 CMMSAFE  BSS    0
 A        IFEQ   DEFVER,0 
 SUB      MACRO  FUNCT
          LDSET  SUBST=CMM._FUNCT-CMS._FUNCT
 SUB      ENDM
  
          SUB    ALF
          SUB    FAF                                                     F182CMM
          SUB    FRF
          SUB    SFF
          SUB    GLF
          SUB    SLF
          SUB    CSF
          SUB    ALV
          SUB    FRV
          SUB    GFV
          SUB    GLV
          SUB    SFV
          SUB    SLV
          SUB    CSV
          SUB    SIV
          SUB    FWA
          SUB    LDV
          SUB    LOV
          SUB    MFL
          SUB    SDA
          SUB    SHA
          SUB    SUA
          SUB    DUA
          SUB    UNL
          SUB    POE
          SUB    DOE
          SUB    ROS
          SUB    COE
          SUB    AGR
          SUB    FGR
          SUB    GBI
          SUB    GFS
          SUB    GOS
          SUB    GSS
          SUB    OP1
          SUB    OP2
          SUB    OP3
          SUB    OP4
          SUB    OP5
          SUB    OP6
          SUB    OWN
  
*         THE FOLLOWING ARE FOR SPECIAL ENTRY POINTS IN SCOPE 2, BUT
*         THEY DO NO HARM IN THE OTHER SYSTEMS. 
  
          SUB    AL2
          SUB    GL2
          SUB    SD2
          SUB    UN2
 A        ENDIF 
  
          END 
