         SYSTEM   PSTD
         SYSTEM   BPM
         REF      PSETUP,PUNIT,UNITAD,PDCBADR,PRET,ARG
         DEF      RELEASE
RELEASE  BAL,R2   PSETUP
         LW,R2    *ARG+1
         STW,R2   PUNIT
         BAL,D4   UNITAD
         M:CLOSE  *PDCBADR,(REL)
         B        *PRET
         END

