\ Very fast string comparison

code "= (s addr1 addr2 -- flag )
  sp )+ a0 amove  sp )+ a1  amove
  0 d0 moveq   a0 ) d0 bmove
  begin
      byte   a1 )+ a0 )+ cmpm   normal
  0<> d0 dbuntil 

  0<>  if    0 n# sp -) move
       else -1 n# sp -) move
       then
c;