*         CTEXT  CTP$DFT_VALIDATE_DFT_STRUCTURE

 VDS      SPACE  4,10
**        VDS - VALIDATE DFT STRUCTURE.
*
*         EXIT   (A) < 0 STRUCTURE NOT VALIDATED.
*                (A) = 0 STRUCTURE VALIDATED.
*
*         CALLS  IDA, VCK.


 VDS0     LCN    0           MINUS EXIT CONDITION
 VDS      SUBR               ENTRY/EXIT
          LDN    HDRP
          RJM    IDA         INCREMENT DFT ADDRESS
          CRDL   CM
          LDDL   CM+DHFLG
          SHN    21-DH.FV
          PJN    VDS0        IF VERIFIED BIT NOT SET
          LDN    VER5
          RJM    VCK         CHECK VERSION
          PJN    VDS2        IF VERSION 5 OR GREATER
 VDS1     LDN    0
          UJN    VDSX        RETURN

 VDS2     LDDL   CM
          SHN    -10
          LPN    0#F
          STD    T7          SAVE NUMBER OF POINTER WORDS
          RJM    IDA         INCREMENT DFT POINTER ADDRESS
          CRDL   W0
          LDDL   W3
          ADDL   W0
          ADC    RR+1
          CRDL   CM
          LDDL   CM
          LMC    0#4446
          NJP    VDS0        IF NO MATCH
          LDDL   CM+1
          LMC    0#5453
          NJP    VDS0        IF NO MATCH
          SOD    T7
          ZJP    VDS1        IF AT END OF POINTERS
          UJP    VDS2

*         END    CTP$DFT_VALIDATE_DFT_STRUCTURE
