Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' BEAM Roboter
- ' 2013 Paul Korn
- '
- regfile = "attiny13.dat"
- $crystal = 1000000
- Dim adc3 as word
- Dim adc2 as word
- PORTB = output
- Do
- Get adc2
- Get adc3
- If adc3 > adc2 then portb.1 = 1
- If adc2 > adc3 then PORTB.2 = 1
- waitms 10
- Loop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
