' **********************************************************************
' * File:  gmbda.bas  -  Rel. 1.1 con Bascom AVR IDE e LIB 1.11.7.4    *
' * Schede: GMB HR168 + GMM AM32                                       *
' * GRIFO(R)   via Dell'Artigiano 8/6   40016 S. Giorgio di Piano (BO) *
' *     Tel. +39 051 892052                      Fax. +39 051 893661   *
' *     http://www.grifo.com                     http://www.grifo.it   *
' *     by Graziano Gaiba                               del 10.06.05   *
' **********************************************************************
'
' 10.06.05 - Rel 1.1 By Graziano Gaiba
' Il demo utilizza il timer 2 del Mini Modulo per generare, su CN7,
' un segnale PWM di frequenza prestabilita, con duty cycle programmabile in
' percentuale da console. Tale segnale, collegato ad una opportuna circuiteria
' integratrice (rete RC, amplificatore operazionale con capacita' su ramo di
' retroazione, ecc.) permette di ottenere un segnale analogico analogo a quello
' di un D/A. L'esecuzione del demo e' subordinata al Mini Modulo utilizzato e
' alla configurazione della linea seriale.
'
' Chip:       M32
' HW Stack:   almeno 64
' Soft Stack: almeno 32
' Framesize:  almeno 64

'****************** Direttive del compilatore **************************
'
$regfile = "m32def.dat"
$crystal = 7372800
$baud = 19200
'
'****************** Dichiarazione delle costanti ***********************
'
Const Cret = 13                                             ' Codice di ritorno di carrello
Const Nl = 10                                               ' Codice nuova linea
Const Clrscr = 12                                           ' codice di clear screen
Const Bell = 7                                              ' codice di Bell
'
'****************** Dichiarazione delle variabili **********************
'
' Uso generico
Dim S As Word , Char As Byte                                ' Byte di uso generico e SetPwm
Dim S1 As String * 1
Dim A As Eram Byte At 1023
'
'****************** Dichiarazione delle procedure **********************
'
Declare Sub Init()                                          ' Inizializzazione
Declare Function Leggi_char() As Byte                       ' Legge un carattere (sospensiva)
Declare Sub Check_ready()
'
'
'************************* Programma main ******************************
'
Main:

Do
   Call Init()
   Print Chr(clrscr)                                        ' Pulisce lo schermo
   Print "Demo 1.1 per GMM AM32 + GMB HR168"
   Print
   Call Check_ready()                                       ' Verifica scheda pronta
   Print
   Print "Timer 1 configurato come PWM a 8 bit (uscita sul pin 6 di CN7 della GMB HR168)."
   Do
      Inputhex "Duty cycle in hex (Es. 0F00): " , S
      Ocr1ah = High(s)                                      ' Reimposta il duty cycle
      Ocr1al = Low(s)
      Print "F per uscire o altro tasto per ripetere"
      Char = Leggi_char()
   Loop Until Char = "F"
   Tccr1b = 0                                               ' Ferma Timer 1
Loop
End
'
'************************ Fine del programma ***************************
'
'
'**************************** Procedure ********************************
'
Sub Init()
   Ddrd.5 = 1                                               ' Imposta portd.5 come uscita
   Ocr1ah = &H80                                            ' Duty Cycle 50%
   Ocr1al = &H00

   Tcnt1h = 0                                               ' Azzera il timer
   Tcnt1l = 0
   ' Modalita' Fast PWM, Nessun Prescaler, Pone ad 1 il pin 6 di CN7 ad
   ' ogni corrispondenza tra i registri OCR1A e contatore del timer, non usa
   ' OCR1B
   Tccr1a.7 = 0
   Tccr1a.6 = 1
   Tccr1a.5 = 0
   Tccr1a.4 = 1
   Tccr1a.3 = 0
   Tccr1a.2 = 0
   Tccr1a.1 = 1
   Tccr1a.0 = 1
   ' Attiva Timer 1
   Tccr1b = &H19
End Sub
'
' Legge un carattere dalla seriale in maniera sospensiva, lo stampa e lo
' converte in maiuscolo.
'
Function Leggi_char() As Byte
   Local C As Byte

   C = Waitkey()
   Print Chr(c)
   C = C And &HDF                                           ' Converte un carattere ASCII in maiuscolo

   Leggi_char = C
End Function
'
'
' Controlla che la scheda sia pronta
'
Sub Check_ready()
Test:
   If A = &H55 Then
      Goto L2
   Else
      Goto Test
   End If
L2:
End Sub