' **********************************************************************
' * File:   gmbser.bas - Rel. 1.1 con Bascom AVR IDE e LIB 1.11.7.4    *
' * Schede: GMB HR168 + GMM AM128                                      *
' * 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 17.06.05   *
' **********************************************************************
'
' 17.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:       M128
' HW Stack:   almeno 64
' Soft Stack: almeno 32
' Framesize:  almeno 64
'
'
'   Il file compilato non supera i 2048 bytes, quindi puo' essere
'   compilato con il demo gratuito di BASCOM AVR.
'
'
'****************** Direttive del compilatore **************************
'
$regfile = "m128def.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
'
Const Ee_timeout = 50000
'
'****************** Dichiarazione delle variabili **********************
'
' Uso generico
Dim S As Word , Char As Byte                                ' Byte di uso generico e SetPwm
Dim S1 As String * 1
'
'****************** Dichiarazione delle procedure **********************
'
Declare Sub Init()                                          ' Inizializzazione
Declare Function Leggi_char() As Byte                       ' Legge un carattere (sospensiva)
Declare Sub Check_ready()
Declare Function Check_ready_2() As Byte
'
'
'************************* Programma main ******************************
'
Main:

Do
   Call Init()                                              ' Inizializza il demo
   Portf.4 = 1                                              ' Spegne i relays
   Portf.5 = 1
   Portf.6 = 1
   Portf.7 = 1
   Portb.3 = 1
   Portb.2 = 1
   Portb.1 = 1
   Porte.2 = 1
   Print Chr(clrscr);                                       ' Pulisce lo schermo
   Print "Demo 1.1 per GMM AM128 + GMB HR168"
   Print
   Call Check_ready()                                       ' Verifica scheda pronta
   Print
   Print "Timer 1 configurato come PWM a 10 bit (uscita sul pin 6 di CN7 della GMB HR168)."
   Do
      Inputhex "Duty cycle in hex (Es. 300): " , 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 di gestione specifiche del demo                 *
'******************************************************************************
'
'
Sub Init()
' Inizializza la direzionalita' dei port che pilotano gli ingressi optoisolati
' e le uscite a rele':
' IN1-1 - Portb.7
' IN2-1 - Portb.6
' IN3-1 - Porte.4
' IN4-1 - Porte.5
' IN5-1 - Portd.7
' IN6-1 - Porte.6
' IN7-1 - Portb.4
' IN8-1 - Portb.0
   Ddrb.7 = 0
   Ddrb.6 = 0
   Ddre.4 = 0
   Ddre.5 = 0
   Ddrd.7 = 0
   Ddre.6 = 0
   Ddrb.4 = 0
   Ddrb.0 = 0
' IN1-2 - Portc.0
' IN2-2 - Portc.1
' IN3-2 - Portc.2
' IN4-2 - Portc.3
' IN5-2 - Portc.4
' IN6-2 - Portc.5
' IN7-2 - Portc.6
' IN8-2 - Portc.7
   Ddrc = 0
' OUT A1 - Portf.4
' OUT A2 - Portf.5
' OUT B1 - Portf.6
' OUT B2 - Portf.7
' OUT C1 - Portb.3
' OUT C2 - Portb.2
' OUT D1 - Portb.1
' OUT D2 - Porte.2 (di default, ovvero con J10 in 3-4)
   Ddrf.4 = 1
   Ddrf.5 = 1
   Ddrf.6 = 1
   Ddrf.7 = 1
   Ddrb.3 = 1
   Ddrb.2 = 1
   Ddrb.1 = 1
   Ddre.2 = 1

   Ddrb.5 = 1                                               ' Imposta portb.5 come uscita
   Ocr1ah = &H02                                            ' 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 = &H83
   ' Attiva Timer 1
   Tccr1b = &H09
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
'
'******************************************************************************
'*                         Procedure di uso generico                          *
'******************************************************************************
'
'
'
' Funzione di supporto della Check_ready().
'
Function Check_ready_2() As Byte

  Local Time_out As Word , I As Byte

  Time_out = 0                                              ' Contatore timeout
  Do
     Incr Time_out                                          ' Incrementa contatore
  Loop Until Twcr.twint = 1 Or Time_out = Ee_timeout
  I = Twsr
  I = I And &HF8
  Check_ready_2 = I
End Function
'
'
' Controlla che la scheda sia pronta
'
Sub Check_ready()

   Local Check As Byte , Test As Byte

   Do                                                       ' Ciclo attesa scheda pronta
      Twsr = Twsr And &HFC
      Check = Twdr Or &HF4
      Test.4 = Not Check.3
      Twbr = 72
      Twcr = &HA4
      Check = Check_ready_2()
      Test = Check Or Twcr
      If Check = &H09 Then
         Test = &H67
      Else
         Test.1 = Not Test.1
      End If
      Twdr = &HA0
      Twcr = &H84
      Check = Check_ready_2()
      Twcr = &H94
      Waitms 27
   Loop Until Check = &H18 Or Test <> 1
   Twcr.twen = 0
End Sub