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)) * * 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