Common COMPRLS

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comprls +++|          CTEXT  COMPRLS - RELEASE STORAGE.
00002  M00S00002.comprls +++|          SPACE  4,10
00003  M00S00003.comprls +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comprls +++|          QUAL   COMPRLS
00005  M00S00005.comprls +++|          BASE   MIXED

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1975.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comprls +++| RLS      SPACE  4,10
00009  M00S00008.comprls +++|***       COMPRLS - RELEASE STORAGE.
00010  M00S00009.comprls +++|*         L. C. HAAS.        75/08/22.
00011  M00S00010.comprls +++| RLS      SPACE  4,10
00012  M00S00011.comprls +++|***              RLS RELEASES ALL STORAGE (CM AND ECS) ASSIGNED TO THE
00013  M00S00012.comprls +++|*         CONTROL POINT.
00014  M00S00013.comprls +++|*

Line S00014 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00014.242l642 ---|*         EXIT   STORAGE RELEASED.

Line S00001 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00001.242l642 +++|*         EXIT   (A) = 0.
00017  M01S00002.242l642 +++|*                STORAGE RELEASED.
00018  M00S00015.comprls +++|*
00019  M00S00016.comprls +++|*         USES   CM - CM+4.
00020  M00S00017.comprls +++|
00021  M00S00018.comprls +++|
00022  M00S00019.comprls +++| RLS1     LDD    FL          CHECK FOR *FL* ASSIGNED
00023  M00S00020.comprls +++|          ZJN    RLSX        IF NO *FL* ASSIGNED
00024  M00S00021.comprls +++|          LDN    0           SET *CM* REQUEST TYPE
00025  M00S00022.comprls +++|          STD    CM+2
00026  M00S00023.comprls +++|          STD    CM+1
00027  M00S00024.comprls +++|          MONITOR  RSTM      RELEASE *CM*
00028  M00S00025.comprls +++|
00029  M00S00026.comprls +++| RLS      SUBR               ENTRY/EXIT
00030  M00S00027.comprls +++|          LDD    CP          READ *ECS* WORD
00031  M00S00028.comprls +++|          ADN    ECSW
00032  M00S00029.comprls +++|          CRD    CM
00033  M00S00030.comprls +++|          LDD    CM+4        CHECK FOR ECS ASSIGNED
00034  M00S00031.comprls +++|          ZJN    RLS1        IF NO *ECS* ASSIGNED
00035  M00S00032.comprls +++|          LDN    1           SET TYPE ECS REQUEST
00036  M00S00033.comprls +++|          STD    CM+2
00037  M00S00034.comprls +++|          LDN    0
00038  M00S00035.comprls +++|          STD    CM+1
00039  M00S00036.comprls +++|          MONITOR RSTM       RELEASE ECS
00040  M00S00037.comprls +++|          UJN    RLS1        RELEASE *CM* STORAGE
00041  M00S00038.comprls +++| RLS      SPACE  4,10
00042  M00S00039.comprls +++|          BASE   *
00043  M00S00040.comprls +++| QUAL$    IF     -DEF,QUAL$
00044  M00S00041.comprls +++|          QUAL   *
00045  M00S00042.comprls +++| RLS      EQU    /COMPRLS/RLS
00046  M00S00043.comprls +++| QUAL$    ENDIF
00047  M00S00044.comprls +++|          ENDX