aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2018-09-21 22:50:57 +0200
committerDimitri Sokolyuk <demon@dim13.org>2018-09-21 22:50:57 +0200
commit110a6411bae421260476eacf6173897c1d1f4b8a (patch)
treeb7d18b55052bbf3d022f51a4ba6090393a446afc
parenta7ac30a16cb4e2338ded87235deb352c1055da16 (diff)
...
-rw-r--r--forth/core.fs19
-rw-r--r--forth/main.fs36
2 files changed, 2 insertions, 53 deletions
diff --git a/forth/core.fs b/forth/core.fs
index 511288d..1682aa6 100644
--- a/forth/core.fs
+++ b/forth/core.fs
@@ -427,24 +427,5 @@ $2b constant PORTD \ Port D Data Register
$2a constant DDRD \ Port D Data Direction Register
$29 constant PIND \ Port D Input Pins
-\ TIMER_COUNTER_0
-$48 constant OCR0B \ Timer/Counter0 Output Compare Register
-$47 constant OCR0A \ Timer/Counter0 Output Compare Register
-$46 constant TCNT0 \ Timer/Counter0
-$45 constant TCCR0B \ Timer/Counter Control Register B
-$44 constant TCCR0A \ Timer/Counter Control Register A
-$6e constant TIMSK0 \ Timer/Counter0 Interrupt Mask Register
-$35 constant TIFR0 \ Timer/Counter0 Interrupt Flag register
-
-\ EXTERNAL_INTERRUPT
-$69 constant EICRA \ External Interrupt Control Register
-$3d constant EIMSK \ External Interrupt Mask Register
-$3c constant EIFR \ External Interrupt Flag Register
-$68 constant PCICR \ Pin Change Interrupt Control Register
-$6d constant PCMSK2 \ Pin Change Mask Register 0x2
-$6c constant PCMSK1 \ Pin Change Mask Register 0x1
-$6b constant PCMSK0 \ Pin Change Mask Register 0x0
-$3b constant PCIFR \ Pin Change Interrupt Flag Register
-
-main
marker -main
diff --git a/forth/main.fs b/forth/main.fs
index bfbf81e..fbb279e 100644
--- a/forth/main.fs
+++ b/forth/main.fs
@@ -1,34 +1,2 @@
--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= ;
+-main
+marker -main