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 I1I2 JMP ICMPD,I * EQUAL CCA JMP ICMPD,I * LT CLA JMP ICMPD,I END LT CCA,INA 1