aboutsummaryrefslogtreecommitdiff
path: root/forth/main.fs
blob: 7551f7cf93099a232204af224ff2e58346ead261 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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 ;