***********************************************************************
*   CSECT-NAME:  BPXT4KFR
*
*   DESCRIPTIVE-NAME:  Free storage allocated by BPXT4KGT
*
*   Input: R1 - Parm list
*                 length of storage to free
*                 key for storage
*                 address of storage
***********************************************************************

BPXT4KFR CSECT
BPXT4KFR AMODE ANY
BPXT4KFR RMODE ANY
         ENTRY BPXT4KFR
         EDCPRLG
         L     R2,0(R1)          get addr of length
         L     R0,0(R2)          get length
         L     R2,4(R1)          get addr of key
         L     R2,0(R2)          get key
         SLL   R2,4              put in bits 24-27
         L     R1,8(R1)          get storage addr
         STORAGE RELEASE,LENGTH=(R0),ADDR=(R1),SP=229,KEY=(R2)
         EDCEPIL
*