ASMB,L
      NAM MTCH,7 92425-16036 REV.1841 780927
* 
      ENT MTCH
      EXT .ENTR,GET,PUT 
* 
*     RETURN  -1 IF STRINGS MATCH 
*              0 IF STRINGS DO NOT MATCH
ASTR1 NOP 
ASTR2 NOP 
MTCH  NOP 
      JSB .ENTR 
      DEF ASTR1 
* 
      LDA ASTR1,I 
      CPA ASTR2,I 
      JMP TEST
      JMP NOTEQ     NOT EQUAL, SO RETURN ZERO 
* 
TEST  CLA 
      STA IC
LOOP  ISZ IC
      NOP 
      LDA IC
      LDB ASTR1 
      JSB GET 
      STA C1
      LDA IC
      LDB ASTR2 
      JSB GET 
      CPA C1
      JMP AGAIN     =,SO TRY NEXT CHARACTER 
      JMP NOTEQ        #, SO BAIL OUT 
AGAIN LDA IC
      CPA ASTR1,I 
      JMP EQUAL     =,SO RETURN ZERO
      JMP LOOP
* 
NOTEQ CLA 
      JMP MTCH,I
EQUAL LDA DM1 
      JMP MTCH,I
* 
DM1   DEC -1
IC    BSS 1 
C1    BSS 1 
      END 
* 
                                                                                                                                                                                  