48x16 LED Matrix Code

'1 Pin 6 HC04 --> DATA next Modul
'2 Pin 5 HC08 --> Pin 14 HC191 (CLK)
'3 Pin 1 Hc04 --> Pin 1 HC164 Cascade (DATA)
'4 Pin 1 HC08 --> Pin 11 HC191 (LOAD)
'5 GND


$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 68
$swstack = 68
$framesize = 89

Config Portd = Output

191_load Alias Portd.2
164_data Alias Portd.3
164_clk Alias Portd.4

Dim Datenbyte As Byte
Dim Zeile As Byte
Dim A As Byte
Dim B As Byte

Datenbyte = &B11001100

Do
  Zeile = Zeile + 1
  If Zeile = 16 Then Zeile = 0
  191_load = 0
  For B = 1 To 6
    For A = 0 To 7
    164_clk = 0
    164_data = Datenbyte.a
    164_clk = 1
    Next A
  Next B
  For A = 0 To 7
    164_clk = 0
    164_data = Zeile.a
    164_clk = 1
  Next A
  191_load = 1
Loop

End