          EJECT
*         CTEXT  CTP$DFT TEST DLD PATH.
*
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC. 1992
 TPD      SPACE  4,10
**        TPD - TEST PATH TO THE DEDICATED LOAD DEVICE.
*
*         CALLS  FHE, *PDE*, PFC, VCK.


          ROUTINE  TPD

          LDN    VER4
          RJM    VCK         CHECK VERSION
          MJP    TPD1        IF CM INTERFACE LESS THAN 4
          LDN    IOUID
          RJM    FHE         GET IOU0 ELEMENT DESCRIPTOR
          LDM    HBUF+CPRE+EM
          SHN    -4
          LMC    0#43
          ZJN    TPD0        IF MODEL 43 IOU
          LMN    0#44&0#43
          NJN    TPD1        IF IOU0 IS NOT MODEL 44
 TPD0     LDN    41B         TEST DEDICATED LOAD DEVICE PATH
          STM    CALB
          STM    RTP1
          CALL   PFC         PREPARE FOR *2AP* CALL
          LDML   CALB+1      CHECK FOR ERROR
          ZJN    TPD1        IF NO ERROR ON PATH TEST
          SBN    76+1
          PJN    TPD1        IF NO ERROR ON PATH TEST
          LDC    0#A000      RETURN / DO NOT SET STATUS / NON OS REQ / NO OFFSET
          STML   RTP2
          CALL   PDE         PROCESS DISK ERROR
 TPD1     LJM    TPDX        RETURN

*         ENDX   CTP$DFT TEST DLD PATH.

