From a594179d2e1d58bcecec3f8e312c9d209ed1a596 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Thu, 13 Sep 2018 19:02:47 +0200 Subject: ... --- forth/main.fs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 ; -- cgit v1.2.3