          EJECT
*         CTEXT  CTP$DFT NO TEST DLD PATH.
*
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC. 1992
 TPD      SPACE  4,10
**        TPD - TEST PATH TO THE DEDICATED LOAD DEVICE.
*
*         NOTE   THIS DECK IS INOPERATIVE.


          ROUTINE  TPD

          LJM    TPDX        RETURN

*         ENDX   CTP$DFT NO TEST DLD PATH.

