*         CTEXT  CTP$DFT_RESTORE_POINTER_WORD
*
*         THIS DECK WILL RESTORE THE BUFFER CONTROL WORD POINTER IN PP MEMORY.

 RPW      SUBR               ENTRY/EXIT
          LDN    VER4
          RJM    VCK         CHECK VERSION OF CM INTERFACE
          MJP    RPWX        IF LESS THAN VERSION 4
          LDN    BCWP
          RJM    IDA
          CRDL   BW          RESTORE POINTER WORD
          UJN    RPWX        RETURN

*         END    CTP$DFT_RESTORE_POINTER_WORD
