aboutsummaryrefslogtreecommitdiff
path: root/forth/elegoo.fs
blob: bc2065515880fd2272366ba6df13951be6d77db6 (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
-init
marker -init

: init ( -- )
  idle
  load+ ;

-pwm
marker -pwm

$2a constant ddrd
$44 constant tccr0a
$45 constant tccr0b
$47 constant ocr0a
$48 constant ocr0b

: timer0init
  #01100000 ddrd mset \ output PD6 PD5
  #10100011 tccr0a c! \ mode3: non-inverted pwm A and B
  #00000101 tccr0b c! \ prescale/1024
;

: setA ocr0a c! ;
: setB ocr0b c! ;

: go
  timer0init
  $1f setA
  $3f setB
;