ASMB
      HED "DIS" - FORTRAN INTERFACE TO .DIS . 
      NAM DIS,7 92069-16273 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-18273
*     RELOC:     92069-16273
* 
* 
*****************************************************************:
* 
* 
* 
* 
* 
* 
      ENT DIS 
      EXT .DIS,.ENTR
* 
*     DIS PROVIDES A FORTRAN-CALLABLE DOUBLE INTEGER
*     INCREMENT AND TEST IF ZERO. 
* 
*     CALLING SEQUENCE: 
* 
*                   LOGICAL DIS 
*                       . 
*                       .                        -OR-    CALL DIS(X)
*                       . 
*                   IF(DIS(X)) <STATEMENT>
* 
*     WHERE X IS DECLARED REAL BUT CONTAINS A DOUBLE INTEGER VALUE. 
      SPC 3 
DISA  DEF *-* 
DIS   NOP 
      JSB .ENTR     COPY ADDRESS. 
      DEF DISA
      CCA           A WILL CONTAIN LOGICAL FALSE (0) OR TRUE (-1).
      JSB .DIS
      DEF DISA,I
      CLA           NO SKIP. FALSE. 
      JMP DIS,I     EXIT. 
* 
      END 
                                                                                                                                                                  