aboutsummaryrefslogtreecommitdiff
path: root/forth/main.fs
diff options
context:
space:
mode:
Diffstat (limited to 'forth/main.fs')
-rw-r--r--forth/main.fs5
1 files changed, 4 insertions, 1 deletions
diff --git a/forth/main.fs b/forth/main.fs
index 0d7baea..e373256 100644
--- a/forth/main.fs
+++ b/forth/main.fs
@@ -27,5 +27,8 @@ $2b constant portd
#3 bv pind 2constant sl
#3 bv ddd mclr
+-main
+marker -main
+
: read ( mask port -- flag )
- c@ invert 0= swap drop ;
+ c@ invert and 0= nip ;