cnc-club.ru

$regfile = "attiny13a.dat"
$crystal = 1200000
$hwstack = 10
$swstack = 20
$framesize = 30

Dim X As Integer
Dim Y As Integer

Config Adc = Free , Prescaler = 128 , Reference = Internal

Config Portb.0 = Output 'транзистор

L: '
X = 0
Y = 0

Start Adc

X = Getadc(3)
X = X * 4
If X < 500 Then
X = 500
End If

Portb.0 = 1
Waitms X

Start Adc
Y = Getadc(2)
Y = Y * 4
If Y < 200 Then
Y = 0
End If

Portb.0 = 0
Waitms Y

Goto L

End