ASMB
      HED S/P IRANG  (21MX ONLY)    8/7/76   P. SENANT
      NAM IRANG,7 . 92903-16001 REV.1805  760708
* 
*     SOURCE 92903-18023
* 
      SPC 2 
**************************************************************
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  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 
      ENT IRANG 
* 
*    THIS SUBPROGRAM COMPARES TWO BUFFERS 
*    BUF1=BUF2 :  0 
*    BUF1<BUF2 : -1 
*    BUF1>BUF2 :  1 
* 
* 
BUF1  NOP 
BUF2  NOP 
NN    NOP 
* 
IRANG NOP 
      JSB .ENTR 
      DEF BUF1
      LDA BUF1
      LDB BUF2
      CMW NN,I
      JMP *+4 
      CCA,RSS 
      CLA,INA 
      JMP IRANG,I 
      CLA 
      JMP IRANG,I 
      END 
                                                              