BEGIN                                                                   
                                   
         L     R1,0(R1)                               
         CLI    R3,0(,R1) BNE    R4,2(,R1)                           
         LTR   R3,R3                                         
         @PUT  FFILE,ADR=ZEILE