*TITLEFRESP1 -- FREE ALL MEMORY IN SUBPOOL 1                            00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
*A    AUTHOR       RALPH MCMILLAN                                       00020000
*A    DESIGNER     RALPH MCMILLAN                                       00030000
*A    LANGUAGE     ASSEMBLER                                            00040000
*A    SYSTEM       IBM (SEE CRAY)                                       00050000
*A    WRITTEN      04-14-88                                             00060000
*     REVISED                                                           00070000
*A                                                                      00080000
*A                                                                      00090000
*A    CALL FRESP1                                                       00100000
*A                                                                      00110000
*A                                                                      00120000
*A    FRESP1 ISSUES A FREEMAIN MACRO TO FREE UP THE ENTIRE MEMORY IN    00130000
*A    SUBPOOL 1.  NO ARGUMENTS ARE USED BECAUSE THERE IS NOTHING THAT   00140000
*A    CAN BE DONE, EVEN IF AN ERROR OCCURS.                             00150000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00160000
*                                                                     * 00170000
*        REGISTER EQUATES                                             * 00180000
*                                                                     * 00190000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00200000
R0       EQU   0                                                        00210000
R1       EQU   1                                                        00220000
R2       EQU   2                                                        00230000
R3       EQU   3                                                        00240000
R4       EQU   4                                                        00250000
R5       EQU   5                                                        00260000
R6       EQU   6                                                        00270000
R7       EQU   7                                                        00280000
R8       EQU   8                                                        00290000
R9       EQU   9                                                        00300000
R10      EQU   10                                                       00310000
R11      EQU   11                                                       00320000
R12      EQU   12                                                       00330000
R13      EQU   13                                                       00340000
R14      EQU   14                                                       00350000
R15      EQU   15                                                       00360000
         EJECT                                                          00370000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00380000
*                                                                     * 00390000
*        R12 = BASE REGISTER                                          * 00400000
*                                                                     * 00410000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00420000
FRESP1   CSECT                                                          00430000
         SAVE  (14,12),,*              SAVE REGISTERS IN CALLING        00440000
*                                         PROGRAMS SAVE AREA            00450000
         LR    R12,R15                                                  00460000
         USING FRESP1,R12                ESTABLISH BASE REGISTER        00470000
         ST    R13,SAVEAREA+4            SAVE ADDRESS OF CALLING        00480000
*                                         PROGRAM SAVE AREA             00490000
         LR    R2,R13                                                   00500000
         LA    R13,SAVEAREA              SET UP REG 13 TO POINT TO      00510000
*                                         MY SAVE AREA                  00520000
         ST    R13,8(R2)                 CHAIN CALLING PROGRAM TO MY    00530000
*                                         SAVE AREA                     00540000
*                                                                       00550000
         FREEMAIN RC,SP=1                FREE IT UP                     00560000
*                                                                       00570000
RETURN   EQU   *                                                        00580000
         L     R13,SAVEAREA+4            RESTORE R13                    00590000
         LM    R14,R12,12(R13)           RESTORE REGISTERS              00600000
         BR    R14                       RETURN                         00610000
*                                                                       00620000
SAVEAREA DC    18F'0'                                                   00630000
         END                                                            00640000