*DECK XZFN                                                              001010
          IDENT  XZFN                                                   001020
*CALL COMXZFN                                                           001030
