From 110a6411bae421260476eacf6173897c1d1f4b8a Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Fri, 21 Sep 2018 22:50:57 +0200 Subject: ... --- forth/core.fs | 19 ------------------- forth/main.fs | 36 ++---------------------------------- 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 -- cgit v1.2.3