CMNT Tests if two values are equal to within the resolution of the implementation CMNT Input: É ¥ arg1/arg2/É CMNT Output: É ¥ rslt/arg2/É CMNT If arg1=arg2 then rslt is true PRIM Stack/Dup down É ¥ arg1/arg2/arg2/É PRIM Value/Subtract É ¥ Æ/arg2/É PRIM Value/Absolute É ¥ |Æ|/arg2/É PRIM Value/Get resolution É ¥ limit/|Æ|/arg2/É PRIM Value/Compare É ¥ rslt/|Æ|/arg2/É PRIM Stack/Xdrop É ¥ rslt/arg2/É PRIM Ordinal/Test equal É ¥ rslt'/arg2/É