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 XY 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