[Amforth] lib/bitnames.frt

[Enoch <ix...@ho...>]

Hi,

Isn't the following more sensible?

 : is_low? ( pinmask portaddr -- f)
-    c@ invert and
+    c@ and 0=
 ;
 
 : is_high? ( pinmask portaddr -- f)
-    c@ and
+    c@ and 0>
 ;

Thanks, Enoch.

1) the writeup says they return "true if..." which means return -1 and
not a bitmask.

2) true/false values are also more convenient when analyzing multiple
port inputs.