*DECK MOVE                                                              000870
          IDENT  MOVE                                                   000880
*CALL COMMOVE                                                           000890
