'******************************************************************************************
'  AVR Sample Program
'   Project      :
'   Program Name :
'   Programer    :
'   Create date  :  Version 1.0    H19.01.10
'   History      :
'   Laungage     :  BASCOM-AVR BASIC
'******************************************************************************************
'  (1)Description
'
'******************************************************************************************
' ==============================
' 1.Define Segment
' ==============================
$regfile = "2313def.dat"
$crystal = 10000000                                         'Used 10MHz OSC
Dim Lp As Integer
Dim Sdata As Byte

Config Portb = Output

Do
   Restore Webdat
   For Lp = 1 To 100 Step 1
      Read Sdata
      Sdata = Sdata / 4
      Sdata = Sdata + 2
      Portb = Sdata
      Waitus 200
   Next Lp
Loop

End
'******************************************************************************************
'   Function Name :
'   Title         : Sin Wave Data (Decimal)
'   Input         :
'   Output        :
'******************************************************************************************
Webdat:
Data 100 , 106 , 113 , 119 , 125 , 131 , 137 , 143 , 148 , 154       ' 0 - 9
Data 159 , 164 , 168 , 173 , 177 , 181 , 184 , 188 , 190 , 193       ' 10 - 19
Data 195 , 197 , 198 , 199 , 200 , 200 , 200 , 199 , 198 , 197       ' 20 - 29
Data 195 , 193 , 190 , 188 , 184 , 181 , 177 , 173 , 168 , 164       ' 30 - 39
Data 159 , 154 , 148 , 143 , 137 , 131 , 125 , 119 , 112 , 106       ' 40 - 49
Data 100 , 94 , 87 , 81 , 75 , 69 , 63 , 57 , 52 , 46       ' 50 - 59
Data 41 , 36 , 31 , 27 , 23 , 19 , 15 , 12 , 9 , 7          ' 60 - 69
Data 5 , 3 , 2 , 1 , 0 , 0 , 0 , 1 , 2 , 3                  ' 70 - 79
Data 5 , 7 , 10 , 12 , 16 , 19 , 23 , 27 , 32 , 36          ' 80 - 89
Data 41 , 47 , 52 , 58 , 63 , 69 , 75 , 81 , 88 , 94        ' 90 - 99
Data 100 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0                ' 100 -109