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 *