aboutsummaryrefslogtreecommitdiff
path: root/forth/main.fs
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2018-09-21 21:59:17 +0200
committerDimitri Sokolyuk <demon@dim13.org>2018-09-21 21:59:17 +0200
commit2f83a0bea9da444e3d70569eba3d6847ca02be03 (patch)
tree20163bbd478f40679d22f5e964aef94c688639f0 /forth/main.fs
parent125127ee67891e1813164e20aa848a80b9d2f2a0 (diff)
...
Diffstat (limited to 'forth/main.fs')
-rw-r--r--forth/main.fs34
1 files changed, 0 insertions, 34 deletions
diff --git a/forth/main.fs b/forth/main.fs
deleted file mode 100644
index bfbf81e..0000000
--- a/forth/main.fs
+++ /dev/null
@@ -1,34 +0,0 @@
--io
-marker -io \ define ports
-
-$0023 constant PB
-$0023 constant pinb
-$0024 constant ddrb
-$0025 constant portb
-
-$0026 constant PC
-$0026 constant pinc
-$0027 constant ddrc
-$0028 constant portc
-
-$0029 constant PD
-$0029 constant pind
-$002a constant ddrd
-$002b constant portd
-
--init
-marker init
-
-: bv ( bit -- mask ) 1 swap lshift ;
-: pin ( bit base-addr -- ) bv swap 2dup 1+ mclr ;
-: port ( bit base-addr -- ) bv swap 1+ 2dup mset 1+ ;
-: set ( mask addr -- ) mset ;
-: clr ( mask addr -- ) mclr ;
-: init
- PB #3 port 2constant servo
- PB #5 port 2constant led
- PD #2 pin 2constant sr
- PD #3 pin 2constant sc
- PD #4 pin 2constant sl
-;
-: get ( mask addr -- bool ) c@ invert and 0= ;