' **********************************************************************
' ** Program name: S1DEB6.BAS -  Version : 1.1   -   03  June  1999   **
' ** Compiler : BASCOM LT, (IDE V.1.20, LIB V.1.27)                   **
' ** Board : GPC(r) 324 + ETI 324                                     **
' ** Firm:   grifo(r) ITALIAN TECHNOLOGY                              **
' ** Via Dell' Artigiano 8/6          40016 San Giorgio di Piano (BO) **
' ** Tel.+39 051 892 052     Fax +39 051 893 661                      **
' ** http://www.grifo.com    http://www.grifo.it                      **
' ** sales@grifo.it          tech@grifo.it          grifo@grifo.it    **
' **                                                                  **
' ** Written by:  Graziano Gaiba                                      **
' **********************************************************************
'
' This program shifts the lighting of a LED to one direction.
' To address correctly the ETI 324 board on ABACO(r) I/O Bus, you should
' configure the board to match the hex 80 address, to do this switch to OFF
' the switches from 1 to 4, switch to ON switch 5.
' To achieve the visualization of the lines, you should connect the CN3
' connector of GPC(r) 324 board to the CN15 connector of DEB(r) 01 board by
' a 20-pin flat cable.
'
'************************ Compiler Directives  *******************************
'
$romstart = &H8050                 ' start address of machine code
$ramstart = &HD000                 ' start address of data area
$ramsize = &H2800                  ' 10k of data area
$crystal = 22118400                ' clock of microcontroller
$baud = 19200                      ' RS-232 baud rate
$large                             ' 16 bit addressing mode
'
'************************** Constant declarations ****************************
'
Dim Pda As Const &HFF80            ' port A data register 
Dim Pdb As Const &HFF81            ' port B data register
Dim Pdc As Const &HFF82            ' port C data register
Dim Cnt As Const &HFF83            ' control register 
'
'************************** Variable declarations ****************************
'
Dim Shifter As Byte                ' Lighting shifter
Dim Porta As Bit                   ' If 1 shift the port A LEDs, else
                                   ' shift the port C LEDs.
Waitms 1                           ' Delay for signals settling

Out Cnt , &B10000010               ' Configures port B e C for input,
                                   ' port A for output
Porta = 1                          ' Selects port A as first
'
'***************************** Main Program **********************************
'
Print "    Demonstration program 6 for section 1 of DEB(r) 01 board"
Print : Print "    Shifts the lighting of a LED to one direction (from red LEDs to others)."
Print : Print "    Running..."
Print
Do
   Shifter = 1                     ' Starts shifting from LSB
   While Shifter <> 0
      Shifter = Not Shifter        ' To pilot LEDs in negated logic
      If Porta = 1 Then            ' If port A selected
          Out Pda , Shifter        ' Writes shifter value to port A
          Out Pdc , 255
      Else                         ' Else
          Out Pda , 255
          Out Pdc , Shifter        ' Writes shifter value to port C
      End If
      Shifter = Not Shifter        ' Restore normal value for rotation
      Rotate Shifter , Left        ' Next LED
      Waitms 255                   ' Delay to light few LEDs per second
   Wend
   Porta = Not Porta               ' Switches between port A and C
Loop

End
'
'*************************** End of Main program *****************************
'