aboutsummaryrefslogtreecommitdiff
path: root/forth/main.fs
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2018-09-12 02:07:41 +0200
committerDimitri Sokolyuk <demon@dim13.org>2018-09-12 02:07:41 +0200
commit6e1b8105f5da1411470dbaac3f18bf2d244106c6 (patch)
treec189c7850dfe626819d67ec24765212f86e8e4d1 /forth/main.fs
parent91299174c2003a2f284bc84767dfe738774b055a (diff)
cleanup wiring
Diffstat (limited to 'forth/main.fs')
-rw-r--r--forth/main.fs31
1 files changed, 31 insertions, 0 deletions
diff --git a/forth/main.fs b/forth/main.fs
new file mode 100644
index 0000000..7551f7c
--- /dev/null
+++ b/forth/main.fs
@@ -0,0 +1,31 @@
+-io
+marker -io \ define ports
+
+$23 constant pinb
+$24 constant ddrb
+$25 constant portb
+
+$26 constant pinc
+$27 constant ddrc
+$28 constant portc
+
+$29 constant pind
+$2a constant ddrd
+$2b constant portd
+
+: bv ( bit -- mask ) 1 swap lshift ;
+
+#5 bv portb 2constant led
+#5 bv ddrb mset
+
+#2 bv pind 2constant sr
+#2 bv ddrd mclr
+
+#4 bv pind 2constant sc
+#4 bv ddrd mclr
+
+#3 bv pind 2constant sl
+#3 bv ddrd mclr
+
+: read ( mask port -- flag )
+ c@ invert 0= swap drop ;