'multiple MAX 7219 8 DIGIT DISPLAY



$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 100
$swstack = 100
$framesize = 100
Config Portc.0 = Output                                     'PORT = OUTPUT
Config Portc.1 = Output                                     'PORT = OUTPUT
Config Portc.2 = Output                                     'PORT = OUTPUT


Declare Sub Displ_write(byval Pos As Byte , Byval Info As Byte , Byval Disnum As Byte)
Declare Sub No_op(byval T As Byte)
Declare Sub Max7219_setup
Declare Sub Buff_out(byval Disno As Byte)

' ---- USE PORT C
Cs_enable Alias Portc.2                                     ' chip-select 7219
Ser_clk Alias Portc.1                                       ' clk  7219
Ser_data Alias Portc.0                                      ' data  7219

Dim Seg_buff(6 , 9) As Byte                                 'enough for 6 x 7219s  9th byte for brightness

 '*** CONFIGURATION OF REGISTERS  7219
Call Max7219_setup






Seg_buff(1 , 8) = 14 + 128                                  'P.    ADD 128 TO TURN ON DECIMAL POINT
Seg_buff(1 , 7) = 13                                        'L
Seg_buff(1 , 6) = 11                                        'E
Seg_buff(1 , 5) = 12                                        'H
Seg_buff(1 , 4) = 10                                        '-
Seg_buff(1 , 3) = 3                                         '3
Seg_buff(1 , 2) = 2                                         '2
Seg_buff(1 , 1) = 1                                         '1

Call Buff_out(1)

Seg_buff(2 , 8) = 1                                         '1
Seg_buff(2 , 7) = 2                                         '2
Seg_buff(2 , 6) = 3                                         '3
Seg_buff(2 , 5) = 10                                        '-
Seg_buff(2 , 4) = 12                                        'H
Seg_buff(2 , 3) = 11                                        'E
Seg_buff(2 , 2) = 13                                        'L
Seg_buff(2 , 1) = 14                                        'P

Call Buff_out(2)

Seg_buff(3 , 8) = 1                                         '1
Seg_buff(3 , 7) = 2                                         '2
Seg_buff(3 , 6) = 3                                         '3
Seg_buff(3 , 5) = 4                                         '4
Seg_buff(3 , 4) = 5                                         '5
Seg_buff(3 , 3) = 6                                         '6
Seg_buff(3 , 2) = 7                                         '7
Seg_buff(3 , 1) = 8                                         '8

Call Buff_out(3)

Seg_buff(4 , 8) = 9                                         '9
Seg_buff(4 , 7) = 8                                         '8
Seg_buff(4 , 6) = 7                                         '7
Seg_buff(4 , 5) = 6                                         '6
Seg_buff(4 , 4) = 5                                         '5
Seg_buff(4 , 3) = 4                                         '4
Seg_buff(4 , 2) = 3                                         '3
Seg_buff(4 , 1) = 2                                         '2

Call Buff_out(4)



End









Sub Displ_write(byval Pos As Byte , Byval Info As Byte , Byval Disnum As Byte)
'Disable Interrupts
Reset Ser_data
Reset Ser_clk
Reset Cs_enable
   '===We need to send no operation to other 7219s
   '===so here we work out when to send
  Select Case Disnum

    Case 1                                                  'display 1
       Call No_op(5)
       Shiftout Ser_data , Ser_clk , Pos , 1 , 8 , 10
       Shiftout Ser_data , Ser_clk , Info , 1 , 8 , 10

    Case 2                                                  'display 2
       Call No_op(4)
       Shiftout Ser_data , Ser_clk , Pos , 1 , 8 , 10
       Shiftout Ser_data , Ser_clk , Info , 1 , 8 , 10
       Call No_op(1)

    Case 3                                                  'display 3
       Call No_op(3)
       Shiftout Ser_data , Ser_clk , Pos , 1 , 8 , 10
       Shiftout Ser_data , Ser_clk , Info , 1 , 8 , 10
       Call No_op(2)

    Case 4                                                  'display 4
       Call No_op(2)
       Shiftout Ser_data , Ser_clk , Pos , 1 , 8 , 10
       Shiftout Ser_data , Ser_clk , Info , 1 , 8 , 10
       Call No_op(3)

    Case 5                                                  'display 5
       Call No_op(1)
       Shiftout Ser_data , Ser_clk , Pos , 1 , 8 , 10
       Shiftout Ser_data , Ser_clk , Info , 1 , 8 , 10
       Call No_op(4)

    Case 6                                                  'display 6

       Shiftout Ser_data , Ser_clk , Pos , 1 , 8 , 10
       Shiftout Ser_data , Ser_clk , Info , 1 , 8 , 10
       Call No_op(5)

  End Select

Set Cs_enable
'Enable Interrupts

End Sub

Sub No_op(byval T As Byte)
 Local C As Byte
 Local H As Word
 H = 0
 For C = 1 To T
  Shiftout Ser_data , Ser_clk , H , 1 , 16 , 10
 Next C


End Sub


Sub Buff_out(byval Disno As Byte)

For Digit8 = 1 To 8

Call Displ_write(digit8 , Seg_buff(disno , Digit8) , Disno)

Next
End Sub




'*** CONFIGURATION OF REGISTERS  7219

Sub Max7219_setup
   Local A As Byte
 For A = 1 To 6
Call Displ_write(12 , 0 , A)                                ' SHUTDOWN

Call Displ_write(9 , 255 , A)                               ' NO Decode "B" For 1st 7

Call Displ_write(10 , 1 , A)                                ' MAXIMUM BRIGHTNESS

Call Displ_write(11 , 7 , A)                                'DISPLAY 8 DIGITS

Call Displ_write(15 , 0 , A)                                ' TEST OFF

    'blank all display digits
For Digit8 = 1 To 8

Call Displ_write(digit8 , 15 , A)
Next


Call Displ_write(12 , 1 , A)                                ' TURN ON
Waitms 100
 Next

 End Sub