MACRO                                                          00050057
&LABEL   BLSUFRER &OPTION,&LV=,&A=                                      00100057
.********************************************************************** 00150057
.*BLSU MACRO TO SUBSTITUTE FOR FREEMAIN IN THOSE BLSU MODULES WHICH   * 00200057
.*ARE PASSED A BLSU TASK VARIABLE ADDRESS IN REGISTER 1.  THIS MACRO  * 00250057
.*GENERATES A CALL TO BLSUFREE WHICH WILL RETURN THE STORAGE TO A     * 00300057
.*POOL MAINTAINED IN SUBPOOL 1.                                       * 00350057
.********************************************************************** 00400057
         SPACE 2                                                        00450057
*********************************************************************** 00500057
* BLSUFRER--FREE AUTOMATIC STORAGE                                    * 00550057
*********************************************************************** 00600057
         SPACE                                                          00650057
&LABEL   L     R1,SAR1(0,RD)           ->ZZ2                            00700057
         L     RF,ZZ2FRE1P(0,R1)       ->BLSUFRE1                       00750057
         BALR  RE,RF                   CALL BLSUFRE1                    00800057
         MEND                                                           00850057