ASMB
      HED  S/P CMPW    21MX ONLY    4SEPT76 P. SENANT 
      NAM CMPW,7 . 92080-1X009 REV.2026  800515 
* 
*     SOURCE 92080-18009
* 
      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 CMPW
      SUP 
* 
*   THIS S/P COMPARES TWO BUFFERS 
* 
*   IF BUF1 = BUF2   THEN  CMPW IS TRUE 
*   IF BUF1 # BUF2   THEN  CMPW IS FALSE
* 
IB1   NOP 
IB2   NOP 
NN    NOP 
* 
CMPW  NOP 
      JSB .ENTR 
      DEF IB1 
      LDA IB1 
      LDB IB2 
      CMW NN,I
      JMP *+4 
      CLA,RSS 
      CLA 
      JMP CMPW,I
      CCA 
      JMP CMPW,I
      END 
                                                  