gfun2.bas

dds signal gerenrator with atmega8

          lcd "Sawtooth"
      endif
      locate 2,1
      delay
      lcd "Freq. "
      Txx1 = 1                        'index inizia da decine migliaia
      do
            Txx2 = "0" + Fdig(Txx1)   'converte il digit in ascii
            lcd chr(Txx2)
            incr Txx1
      loop until Txx1 > 5            'per tutti i digit
      lcd " Hz"
      Txx1 = Index + 6              'riposiziona cursore su digit da modificare
      locate 2,Txx1                ' N.B. Index inizia da 1
      delay
End sub
'
'
'attende rilascio tasto Run_stop
Sub Ril_Run
      do
         sound buzz,20,3000
      loop until Run_St = 1           'rilascio tasto
End sub
'
'
'esegue scansione tasti ritorna in Txx1 il codice del primo tasto trovato
'N.B.  un  solo tasto per volta deve essere premuto
Sub Scan_Button
      Txx1 = 0                         'valore ritorno
      Txx2 = 32                        'valore iniziale PortC
      do
        shift Txx1,left,1             'fa spazio per nuovo dato
        PortB = Txx2                   'seleziona uscita
        waitms 2
        Txx1.0 = in_Butt               'lettura tasto
        shift Txx2,right,1
      loop until Txx2 = 2             'da PortB.5 a PortB.2
End sub
'
'
'ritorna quando rileva un tasto premuto ritorna subito se premuto Run/stop
Sub  TastOn
         do
           call Detasti
           if Run_St = 0 then exit sub
         loop until Tasti > 0
         sound buzz,80,300
End Sub
'
'
'ritorna quando il tasto e rilasciato
Sub  TastOff
         do
           call Detasti
           sound buzz,20,5000
         loop until Tasti = 0
End Sub
'
'
'esegue debounce tasti & flash led
Sub Detasti
         do
            call  Scan_Button                   'prima scansione
            Tasti = Txx1                        'conserva copia
            call AD_Conv
            waitms 10                           'tempo debounce & flash led
            if T_Flash > 80 then T_Flash = 0    'periodo flash
            if T_Flash > 1 then                 'pulse width 2 cycles
               Led_F = LedOff
            else                                'spegne sempre
               Led_F = LedON
            endif
            incr T_Flash
            call  Scan_Button              'seconda scansione
         loop  until Tasti = Txx1        'finche le due scansioni sono uguali
End sub
'
'
Sub AD_Conv
           start Adc
           waitms 1
           Adv = Getadc(0)
           stop Adc
           if Adv < Lo_batt then
               cls
               delay
               Led_F = ledOn
               lcd "Low battery"
               sound buzz,1000,300
               waitms 50
               sound buzz,100,8000
               led_F = ledOFF
               waitms 200
           endif
End sub
'
'
'
Sine_table:
'
   Data &H80 , &H83 , &H86 , &H89 , &H8C , &H8F , &H92 , &H95
   Data &H98 , &H9C , &H9F , &HA2 , &HA5 , &HA8 , &HAB , &HAE
   Data &HB0 , &HB3 , &HB6 , &HB9 , &HBC , &HBF , &HC1 , &HC4
   Data &HC7 , &HC9 , &HCC , &HCE , &HD1 , &HD3 , &HD5 , &HD8
   Data &HDA , &HDC , &HDE , &HE0 , &HE2 , &HE4 , &HE6 , &HE8
   Data &HEA , &HEC , &HED , &HEF , &HF0 , &HF2 , &HF3 , &HF5
   Data &HF6 , &HF7 , &HF8 , &HF9 , &HFA , &HFB , &HFC , &HFC
   Data &HFD , &HFE , &HFE , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFE , &HFE
   Data &HFD , &HFC , &HFC , &HFB , &HFA , &HF9 , &HF8 , &HF7
   Data &HF6 , &HF5 , &HF3 , &HF2 , &HF0 , &HEF , &HED , &HEC
   Data &HEA , &HE8 , &HE6 , &HE4 , &HE2 , &HE0 , &HDE , &HDC
   Data &HDA , &HD8 , &HD5 , &HD3 , &HD1 , &HCE , &HCC , &HC9
   Data &HC7 , &HC4 , &HC1 , &HBF , &HBC , &HB9 , &HB6 , &HB3
   Data &HB0 , &HAE , &HAB , &HA8 , &HA5 , &HA2 , &H9F , &H9C
   Data &H98 , &H95 , &H92 , &H8F , &H8C , &H89 , &H86 , &H83
   Data &H80 , &H7C , &H79 , &H76 , &H73 , &H70 , &H6D , &H6A
   Data &H67 , &H63 , &H60 , &H5D , &H5A , &H57 , &H54 , &H51
   Data &H4F , &H4C , &H49 , &H46 , &H43 , &H40 , &H3E , &H3B
   Data &H38 , &H36 , &H33 , &H31 , &H2E , &H2C , &H2A , &H27
   Data &H25 , &H23 , &H21 , &H1F , &H1D , &H1B , &H19 , &H17
   Data &H15 , &H13 , &H12 , &H10 , &H0F , &H0D , &H0C , &H0A
   Data &H09 , &H08 , &H07 , &H06 , &H05 , &H04 , &H03 , &H03
   Data &H02 , &H01 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H01 , &H01
   Data &H02 , &H03 , &H03 , &H04 , &H05 , &H06 , &H07 , &H08
   Data &H09 , &H0A , &H0C , &H0D , &H0F , &H10 , &H12 , &H13
   Data &H15 , &H17 , &H19 , &H1B , &H1D , &H1F , &H21 , &H23
   Data &H25 , &H27 , &H2A , &H2C , &H2E , &H31 , &H33 , &H36
   Data &H38 , &H3B , &H3E , &H40 , &H43 , &H46 , &H49 , &H4C
   Data &H4F , &H51 , &H54 , &H57 , &H5A , &H5D , &H60 , &H63
   Data &H67 , &H6A , &H6D , &H70 , &H73 , &H76 , &H79 , &H7C
'
'
Square_table:
'
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF
'
'
Triangle_table:
'
   Data &H00 , &H02 , &H04 , &H06 , &H08 , &H0A , &H0C , &H0E
   Data &H10 , &H12 , &H14 , &H16 , &H18 , &H1A , &H1C , &H1E
   Data &H20 , &H22 , &H24 , &H26 , &H28 , &H2A , &H2C , &H2E
   Data &H30 , &H32 , &H34 , &H36 , &H38 , &H3A , &H3C , &H3E
   Data &H40 , &H42 , &H44 , &H46 , &H48 , &H4A , &H4C , &H4E
   Data &H50 , &H52 , &H54 , &H56 , &H58 , &H5A , &H5C , &H5E
   Data &H60 , &H62 , &H64 , &H66 , &H68 , &H6A , &H6C , &H6E
   Data &H70 , &H72 , &H74 , &H76 , &H78 , &H7A , &H7C , &H7E
   Data &H80 , &H82 , &H84 , &H86 , &H88 , &H8A , &H8C , &H8E
   Data &H90 , &H92 , &H94 , &H96 , &H98 , &H9A , &H9C , &H9E
   Data &HA0 , &HA2 , &HA4 , &HA6 , &HA8 , &HAA , &HAC , &HAE
   Data &HB0 , &HB2 , &HB4 , &HB6 , &HB8 , &HBA , &HBC , &HBE
   Data &HC0 , &HC2 , &HC4 , &HC6 , &HC8 , &HCA , &HCC , &HCE
   Data &HD0 , &HD2 , &HD4 , &HD6 , &HD8 , &HDA , &HDC , &HDE
   Data &HE0 , &HE2 , &HE4 , &HE6 , &HE8 , &HEA , &HEC , &HEE
   Data &HF0 , &HF2 , &HF4 , &HF6 , &HF8 , &HFA , &HFC , &HFE
   Data &HFF , &HFD , &HFB , &HF9 , &HF7 , &HF5 , &HF3 , &HF1
   Data &HEF , &HEF , &HEB , &HE9 , &HE7 , &HE5 , &HE3 , &HE1
   Data &HDF , &HDD , &HDB , &HD9 , &HD7 , &HD5 , &HD3 , &HD1
   Data &HCF , &HCF , &HCB , &HC9 , &HC7 , &HC5 , &HC3 , &HC1
   Data &HBF , &HBD , &HBB , &HB9 , &HB7 , &HB5 , &HB3 , &HB1
   Data &HAF , &HAF , &HAB , &HA9 , &HA7 , &HA5 , &HA3 , &HA1
   Data &H9F , &H9D , &H9B , &H99 , &H97 , &H95 , &H93 , &H91
   Data &H8F , &H8F , &H8B , &H89 , &H87 , &H85 , &H83 , &H81
   Data &H7F , &H7D , &H7B , &H79 , &H77 , &H75 , &H73 , &H71
   Data &H6F , &H6F , &H6B , &H69 , &H67 , &H65 , &H63 , &H61
   Data &H5F , &H5D , &H5B , &H59 , &H57 , &H55 , &H53 , &H51
   Data &H4F , &H4F , &H4B , &H49 , &H47 , &H45 , &H43 , &H41
   Data &H3F , &H3D , &H3B , &H39 , &H37 , &H35 , &H33 , &H31
   Data &H2F , &H2F , &H2B , &H29 , &H27 , &H25 , &H23 , &H21
   Data &H1F , &H1D , &H1B , &H19 , &H17 , &H15 , &H13 , &H11
   Data &H0F , &H0F , &H0B , &H09 , &H07 , &H05 , &H03 , &H01
'
'
Sawtooth_table:
'
Data &H00 , &H01 , &H02 , &H03 , &H04 , &H05 , &H06 , &H07
Data &H08 , &H09 , &H0A , &H0B , &H0C , &H0D , &H0E , &H0F
Data &H10 , &H11 , &H12 , &H13 , &H14 , &H15 , &H16 , &H17
Data &H18 , &H19 , &H1A , &H1B , &H1C , &H1D , &H1E , &H1F
Data &H20 , &H21 , &H22 , &H23 , &H24 , &H25 , &H26 , &H27
Data &H28 , &H29 , &H2A , &H2B , &H2C , &H2D , &H2E , &H2F
Data &H30 , &H31 , &H32 , &H33 , &H34 , &H35 , &H36 , &H37
Data &H38 , &H39 , &H3A , &H3B , &H3C , &H3D , &H3E , &H3F
Data &H40 , &H41 , &H42 , &H43 , &H44 , &H45 , &H46 , &H47
Data &H48 , &H49 , &H4A , &H4B , &H4C , &H4D , &H4E , &H4F
Data &H50 , &H51 , &H52 , &H53 , &H54 , &H55 , &H56 , &H57
Data &H58 , &H59 , &H5A , &H5B , &H5C , &H5D , &H5E , &H5F
Data &H60 , &H61 , &H62 , &H63 , &H64 , &H65 , &H66 , &H67
Data &H68 , &H69 , &H6A , &H6B , &H6C , &H6D , &H6E , &H6F
Data &H70 , &H71 , &H72 , &H73 , &H74 , &H75 , &H76 , &H77
Data &H78 , &H79 , &H7A , &H7B , &H7C , &H7D , &H7E , &H7F
Data &H80 , &H81 , &H82 , &H83 , &H84 , &H85 , &H86 , &H87
Data &H88 , &H89 , &H8A , &H8B , &H8C , &H8D , &H8E , &H8F
Data &H90 , &H91 , &H92 , &H93 , &H94 , &H95 , &H96 , &H97
Data &H98 , &H99 , &H9A , &H9B , &H9C , &H9D , &H9E , &H9F
Data &HA0 , &HA1 , &HA2 , &HA3 , &HA4 , &HA5 , &HA6 , &HA7
Data &HA8 , &HA9 , &HAA , &HAB , &HAC , &HAD , &HAE , &HAF
Data &HB0 , &HB1 , &HB2 , &HB3 , &HB4 , &HB5 , &HB6 , &HB7
Data &HB8 , &HB9 , &HBA , &HBB , &HBC , &HBD , &HBE , &HBF
Data &HC0 , &HC1 , &HC2 , &HC3 , &HC4 , &HC5 , &HC6 , &HC7
Data &HC8 , &HC9 , &HCA , &HCB , &HCC , &HCD , &HCE , &HCF
Data &HD0 , &HD1 , &HD2 , &HD3 , &HD4 , &HD5 , &HD6 , &HD7
Data &HD8 , &HD9 , &HDA , &HDB , &HDC , &HDD , &HDE , &HDF
Data &HE0 , &HE1 , &HE2 , &HE3 , &HE4 , &HE5 , &HE6 , &HE7
Data &HE8 , &HE9 , &HEA , &HEB , &HEC , &HED , &HEE , &HEF
Data &HF0 , &HF1 , &HF2 , &HF3 , &HF4 , &HF5 , &HF6 , &HF7
Data &HF8 , &HF9 , &HFA , &HFB , &HFC , &HFD , &HFE , &HFF
'
'