*COMDECK /UNLPUT/ 
          F.RM      FOJP,X6 
          ZR        X6,ENDP 
          SX6       X6+=YRM$P1
          RJ        UNL            UNLOAD PUT$(FO)
.MD       IF        DEF,ZAPZOU     CODE VALID ONLY FOR CLSF$RM
          NZ      B4,UNLPR
          RJ        ZAPZOU
UNLPR     BSS       0 
.MD       ENDIF 
          F.RM      RTJP,X6 
          ZR        X6,ENDP 
          RJ        UNL            UNLOAD PUT$(RT)
          SX6       =YPUT$C 
          CI.SQ     UNLBTP
          SX6       =YPUT$K 
 UNLBTP   RJ        UNL            UNLOAD PUT$(BT)
 ENDP     SET.RM    PUTJ,0
* END /UNLPUT/
