;Z S= c-addr1 c-addr2 u -- n string compare ;Z n<0: s10: s1>s2 CODEHEADER(XT_SEQUAL,2,"s=") MOV @PSP+,W ; adrs2 MOV @PSP+,X ; adrs1 CMP #0,TOS JZ SEQU_X SEQU_1: CMP.B @W+,0(X) ; compare char1-char2 JNZ SMISMATCH ADD #1,X SUB #1,TOS JNZ SEQU_1 ; no mismatch found, strings are equal, TOS=0 JMP SEQU_X ; mismatch found, CY clear if borrow set (s1