Common COMPRLS

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comprls +++|          CTEXT  COMPRLS - RELEASE STORAGE.
00002  M01S00002.comprls +++|          SPACE  4,10
00003  M01S00003.comprls +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comprls +++|          QUAL   COMPRLS
00005  M01S00005.comprls +++|          BASE   MIXED

Line S00006 Modification History
`M01` (Added by)	`comprls`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1975.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comprls +++| RLS      SPACE  4,10
00009  M01S00008.comprls +++|***       COMPRLS - RELEASE STORAGE.
00010  M01S00009.comprls +++|*         L. C. HAAS.        75/08/22.
00011  M01S00010.comprls +++| RLS      SPACE  4,10
00012  M01S00011.comprls +++|***              RLS RELEASES ALL STORAGE (CM AND ECS) ASSIGNED TO THE
00013  M01S00012.comprls +++|*         CONTROL POINT.
00014  M01S00013.comprls +++|*

Line S00014 Modification History
`M01` (Added by)	`comprls`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00015  M02S00014.242l642 ---|*         EXIT   STORAGE RELEASED.
00016  M01S00001.242l642 +++|*         EXIT   (A) = 0.
00017  M01S00002.242l642 +++|*                STORAGE RELEASED.
00018  M01S00015.comprls +++|*
00019  M01S00016.comprls +++|*         USES   CM - CM+4.
00020  M01S00017.comprls +++|
00021  M01S00018.comprls +++|
00022  M01S00019.comprls +++| RLS1     LDD    FL          CHECK FOR *FL* ASSIGNED
00023  M01S00020.comprls +++|          ZJN    RLSX        IF NO *FL* ASSIGNED
00024  M01S00021.comprls +++|          LDN    0           SET *CM* REQUEST TYPE
00025  M01S00022.comprls +++|          STD    CM+2
00026  M01S00023.comprls +++|          STD    CM+1
00027  M01S00024.comprls +++|          MONITOR  RSTM      RELEASE *CM*
00028  M01S00025.comprls +++|
00029  M01S00026.comprls +++| RLS      SUBR               ENTRY/EXIT
00030  M01S00027.comprls +++|          LDD    CP          READ *ECS* WORD
00031  M01S00028.comprls +++|          ADN    ECSW
00032  M01S00029.comprls +++|          CRD    CM
00033  M01S00030.comprls +++|          LDD    CM+4        CHECK FOR ECS ASSIGNED
00034  M01S00031.comprls +++|          ZJN    RLS1        IF NO *ECS* ASSIGNED
00035  M01S00032.comprls +++|          LDN    1           SET TYPE ECS REQUEST
00036  M01S00033.comprls +++|          STD    CM+2
00037  M01S00034.comprls +++|          LDN    0
00038  M01S00035.comprls +++|          STD    CM+1
00039  M01S00036.comprls +++|          MONITOR RSTM       RELEASE ECS
00040  M01S00037.comprls +++|          UJN    RLS1        RELEASE *CM* STORAGE
00041  M01S00038.comprls +++| RLS      SPACE  4,10
00042  M01S00039.comprls +++|          BASE   *
00043  M01S00040.comprls +++| QUAL$    IF     -DEF,QUAL$
00044  M01S00041.comprls +++|          QUAL   *
00045  M01S00042.comprls +++| RLS      EQU    /COMPRLS/RLS
00046  M01S00043.comprls +++| QUAL$    ENDIF
00047  M01S00044.comprls +++|          ENDX