aboutsummaryrefslogtreecommitdiff
path: root/forth/elegoo.fs
blob: f6d5391ea6cd804a0b6a0db45f9ec59b52f8cd0e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
-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
;