aboutsummaryrefslogtreecommitdiff
path: root/forth
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2018-09-13 19:02:47 +0200
committerDimitri Sokolyuk <demon@dim13.org>2018-09-13 19:02:47 +0200
commita594179d2e1d58bcecec3f8e312c9d209ed1a596 (patch)
treefe016b5c035dd74064bb10c35154d2de1ee0d13d /forth
parent26098059775d947b25acafbb33160fc2e523a761 (diff)
...
Diffstat (limited to 'forth')
-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 ;