.title strcmp ;+ ; integer function strcmp(str1, str2) ;- ap=%5 str1=2 str2=4 .psect $r.roi,con,ro,rel,lcl,i .enabl lsb strcmp:: mov str1(ap),r1 ; start of str1 mov str2(ap),r2 ; start of str2 clr r0 ; assume strings are equal 10$: cmpb (r1),(r2) ; characters equal? bne 20$ ; NO tstb (r1)+ ; at EOS? beq 100$ ; YES, return inc r2 ; bump to next character br 10$ ; try next character 20$: mov #-1,r0 ; assume str1 < str2 cmpb (r1),(r2) ; compare characters blt 100$ ; str1 < str2 mov #1,r0 ; return(+1) 100$: return .end