ASMB
      HED S/P CMPB   P. SENANT   (21MX ONLY)   25JUN77
      NAM CMPB,7 . 92080-1X008 REV.2026  800515 
* 
*     SOURCE 92080-18008
* 
      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 CMPB
      SUP 
* 
BUF1  NOP 
IOF1  NOP 
BUF2  NOP 
IOF2  NOP 
LEN   NOP 
* 
CMPB  NOP 
      JSB .ENTR 
      DEF BUF1
      LDA BUF1
      CLE,ELA 
      ADA DM1 
      ADA IOF1,I    /FIRST STRING 
      LDB BUF2
      CLE,ELB 
      ADB DM1 
      ADB IOF2,I    /2ND STRING 
      CBT LEN,I 
      JMP *+4 
      CLA,RSS 
      CLA 
      JMP CMPB,I
      CCA 
      JMP CMPB,I
* 
DM1   DEC -1
      END