'**************************************************************
'
'  Fish Robot Control Program for PPF-09
'
'    2002/7/8 by Koichi Hirata
'
'    ppf09h.bas
'
'**************************************************************
'
' for AT90S8535-8PC
' Futaba, T4VF, SKYSPORT4
'
'*********************
' Initial set
'*********************
'
'
Config Timer1 = Timer , Prescale = 1024                       'Timer1 Setup
Config Adc = Single , Prescaler = Auto                        'For A/D conv.
Config Pinb.0 = Output                                        'For Pulse Output
Dim Vv0 As Word
Dim Vv1 As Word
Dim Vv2 As Word
Dim Vv3 As Word
Dim V0 As Single
Dim V1 As Single
Dim V2 As Single
Dim V3 As Single
Dim I As Integer
'
'*********************
' Main Routine (Loop)
'*********************
'
Do
'
' Read A/D value
'
Start Timer1
Start Adc
   Vv0 = Getadc(0)
   V0 = Vv0 * 5
   V0 = V0 / 1024
   Vv1 = Getadc(1)
   V1 = Vv1 * 5
   V1 = V1 / 1024                                             'Voltage (V)
   Vv2 = Getadc(2)
   V2 = Vv2 * 5
   V2 = V2 / 1024                                             'Voltage (V)
   Vv3 = Getadc(3)
   V3 = Vv3 * 5
   V3 = V3 / 1024                                             'Voltage (V)
Stop Adc
Stop Timer1
'
' Output to LED
'
'Vv1 = Vv1 / 2
V1 = V1 * 50
Portb.0 = 0
For I = 0 To V1
  Waitus 200
Next I
Portb.0 = 1
For I = 0 To V1
  Waitus 200
Next I
Portb.0 = 0

Loop

End