// logic.asm:	WORD p_equal, '=',fasm

anchor:p_equal[]

=== Word: =

....
Data stack: ( v1 v2 -- 0/-1 )
....

"=" is a function word that replaces a pair of values with -1 of the
values are equal, and 0 otherwise.