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