icompare
compares string in RAM with string in flash
Stackeffects
( r-addr r-len f-addr f-len -- f )R( -- )
Definition
: icompare
>r over r> <>
(?branch) PFA_ICOMPARE_SAMELEN
drop drop drop 0 exit swap 0 (?do) over @ over i@ dup >< (literal) $100 <
(?branch) PFA_ICOMPARE_LASTCELL
swap (literal) $00FF and <>
(?branch) PFA_ICOMPARE_NEXTLOOP
drop drop 0 unloop exit 1+ swap cell+ swap (literal) 2
(+loop) PFA_ICOMPARE_LOOP
drop drop (literal) -1
;