ASMB
      HED "DCO" - FORTRAN INTERFACE TO .DCO . 
      NAM DCO,7 92069-16275 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-18275
*     RELOC:     92069-16275
* 
* 
*****************************************************************:
* 
* 
* 
* 
* 
* 
      ENT DCO 
      EXT .DCO,.ENTR
* 
*     DCO PROVIDES A FORTRAN-CALLABLE DOUBLE INTEGER COMPARE. 
* 
*     CALLING SEQUENCE: 
* 
*                   IF(DCO(X,Y)) S1,S2,S3 
* 
*     WHERE X & Y ARE DECLARED REAL BUT CONTAIN DOUBLE
*     INTEGER VALUES.  CONTROL IS TRANSFERRED TO STATEMENT
*     S1,S2 OR S3 IF X<Y,X=Y OR X>Y RESPECTIVELY. 
      SPC 3 
DCOA  DEF *-* 
DCOB  DEF *-* 
DCO   NOP 
      JSB .ENTR     COPY ADDRESSES. 
      DEF DCOA
      DLD DCOA,I    DO OPERATION. 
      JSB .DCO
      DEF DCOB,I
      JMP DCO1      = 
      JMP DCO2      < 
      DLD =F1.0     >, RETURN +1.0
      JMP DCO,I 
DCO1  CLA           =, RETURN 0.0 
      CLB 
      JMP DCO,I 
DCO2  LDA =B100000  <, RETURN -1.0
      CLB 
      JMP DCO,I 
      END 
                                                                                                    