ASMB
      HED "DDS" - FORTRAN INTERFACE TO .DDS . 
      NAM DDS,7 92069-16274 REV.1912 790320 
* 
* 
******************************************************************
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED 
* NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
* TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR
* WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
******************************************************************* 
* 
* 
*     SOURCE:    92069-18274
*     RELOC:     92069-16274
* 
* 
*****************************************************************:
* 
* 
* 
* 
* 
* 
      ENT DDS 
      EXT .DDS,.ENTR
* 
*     DDS PROVIDES A FORTRAN-CALLABLE DOUBLE INTEGER
*     DECREMENT AND TEST IF ZERO. 
* 
*     CALLING SEQUENCE: 
* 
*                   LOGICAL DDS 
*                       . 
*                       .                        -OR-    CALL DDS(X)
*                       . 
*                   IF(DDS(X)) <STATEMENT>
* 
*     WHERE X IS DECLARED REAL BUT CONTAINS A DOUBLE INTEGER VALUE. 
      SPC 3 
DDSA  DEF *-* 
DDS   NOP 
      JSB .ENTR     COPY ADDRESS. 
      DEF DDSA
      CCA           A WILL CONTAIN LOGICAL FALSE (0) OR TRUE (-1).
      JSB .DDS
      DEF DDSA,I
      CLA           NO SKIP. FALSE. 
      JMP DDS,I     EXIT. 
* 
      END 
                                                                                                                                                                  