COMPRLS 
COMMON
          CTEXT  COMPRLS - RELEASE STORAGE. 
          SPACE  4,10 
          IF     -DEF,QUAL$,1 
          QUAL   COMPRLS
          BASE   MIXED
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 RLS      SPACE  4,10 
***       COMPRLS - RELEASE STORAGE.
*         L. C. HAAS.        75/08/22.
 RLS      SPACE  4,10 
***              RLS RELEASES ALL STORAGE (CM AND ECS) ASSIGNED TO THE
*         CONTROL POINT.
* 
*         EXIT   (A) = 0. 
*                STORAGE RELEASED.
* 
*         USES   CM - CM+4. 
  
  
 RLS1     LDD    FL          CHECK FOR *FL* ASSIGNED
          ZJN    RLSX        IF NO *FL* ASSIGNED
          LDN    0           SET *CM* REQUEST TYPE
          STD    CM+2 
          STD    CM+1 
          MONITOR  RSTM      RELEASE *CM* 
  
 RLS      SUBR               ENTRY/EXIT 
          LDD    CP          READ *ECS* WORD
          ADN    ECSW 
          CRD    CM 
          LDD    CM+4        CHECK FOR ECS ASSIGNED 
          ZJN    RLS1        IF NO *ECS* ASSIGNED 
          LDN    1           SET TYPE ECS REQUEST 
          STD    CM+2 
          LDN    0
          STD    CM+1 
          MONITOR RSTM       RELEASE ECS
          UJN    RLS1        RELEASE *CM* STORAGE 
 RLS      SPACE  4,10 
          BASE   *
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 RLS      EQU    /COMPRLS/RLS 
 QUAL$    ENDIF 
          ENDX
