ASMB
      HED  S/P ICMPD   21MX ONLY    28MAR79 M. NAKAMURA 
      NAM ICMPD,7 . 92080-1X055 REV.2026  800515 1235 
* 
*     SOURCE 92080-18055
* 
      SPC 2 
**************************************************************
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS    *
* RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
* PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
* OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
**************************************************************
      SPC 2 
      EXT .ENTR,.DCO
      ENT ICMPD 
      SUP 
* 
*   THIS FUNCTION COMPARES TWO DOUBLE PRECISION INTEGERS I1 AND I2. 
* 
*      I=ICMPD(I1,I2) 
* 
*   IF I1 = I2  THEN ICMPD IS SET TO -1 OR LOGICAL TRUE 
*   IF I1 < I2  THEN ICMPD IS SET TO 0  OR LOGICAL FALSE
*   IF I1 > I2  THEN ICMPD IS SET TO 1  OR LOGICAL FALSE
* 
.I1   BSS 1 
.I2   BSS 1 
* 
ICMPD NOP 
      JSB .ENTR 
      DEF .I1 
      LDA .I2 
      STA ICMP1 
      DLD .I1,I 
      JSB .DCO      COMPARE 
ICMP1 BSS 1 
      JMP EQUAL     I1=I2 
      JMP LT        I1<I2 
* 
GT    CLA,INA       I1>I2 
      JMP ICMPD,I 
* 
EQUAL CCA 
      JMP ICMPD,I 
* 
LT    CLA 
      JMP ICMPD,I 
      END 
 LT    CCA,INA  1 
                                                                                                                                                                                                                                                        