Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $regfile = "2313def.dat"
- $crystal = 8000000
- Config Portb = Output
- Config Portd = Output
- Config Timer0 = Timer , Prescale = 64 'Konfiguriere Timer1
- Enable Timer0 'schalte den Timer1 ein
- On Timer0 Isr_von_timer0 'verzweige bei Timer1 überlauf zu Isr_von_Timer1
- Enable Interrupts 'Timer1 soll schon von 34285 wegzählen
- Dim Spalten As Byte
- Dim Spaltenzahl As Byte
- Dim Spaltenzahl2 As Byte
- Dim Spaltenzahl3 As Byte
- Dim Spaltenzahl4 As Byte
- Dim Port As Byte
- Dim Port2 As Byte
- Dim Tabelle As Byte
- Dim Tabellenzaehler As Integer
- Port = 0
- Spaltenzahl = 0
- Spaltenzahl2 = 5
- Tabelle = 1
- Spaltenzahl3 = 0
- Spaltenzahl4 = 5
- Do
- Wait 4
- Port = 0
- Port2 = 0
- Spaltenzahl2 = Spaltenzahl2 + 5
- Spaltenzahl = Spaltenzahl2 - 5
- Tabelle = 1
- Spaltenzahl4 = Spaltenzahl4 + 5
- Spaltenzahl3 = Spaltenzahl4 - 5
- Tabellenzaehler = 0
- Loop
- End
- Isr_von_timer0:
- Timer0 = 128
- If Tabelle = 1 Then
- Portd = &B00000000
- Portd.port = 1
- Spalten = Lookup(spaltenzahl , 1)
- Portb = Spalten
- Incr Spaltenzahl
- Incr Port
- Incr Tabellenzaehler
- If Spaltenzahl = Spaltenzahl2 Then
- Spaltenzahl = Spaltenzahl - 5
- End If
- If Port = 5 Then
- Port = 0
- End If
- If Tabellenzaehler = 6 Then
- Tabellenzaehler = 0
- Tabelle = 2
- End If
- End If
- If Tabelle = 2 Then
- Portd = &B00000000
- Portd.port2 = 1
- Spalten = Lookup(spaltenzahl3 , 2)
- Portb = Spalten
- Incr Spaltenzahl3
- Incr Port2
- Incr Tabellenzaehler
- If Spaltenzahl3 = Spaltenzahl4 Then
- Spaltenzahl3 = Spaltenzahl3 - 5
- End If
- If Port2 = 5 Then
- Port2 = 0
- End If
- If Tabellenzaehler = 6 Then
- Tabellenzaehler = 0
- Tabelle = 1
- End If
- End If
- Return
- End
- 1:
- Data &B00010000 , &B00010000 , &B00010000 , &B00010000 , &B00010000
- Data &B01110000 , &B00010000 , &B01110000 , &B01000000 , &B01110000
- Data &B01110000 , &B00010000 , &B01110000 , &B00010000 , &B01110000
- Data &B01010000 , &B01010000 , &B01110000 , &B00010000 , &B00010000
- Data &B01110000 , &B01000000 , &B01110000 , &B00010000 , &B01110000
- Data &B01110000 , &B01000000 , &B01110000 , &B01010000 , &B01110000
- Data &B01110000 , &B00010000 , &B00010000 , &B00010000 , &B00010000
- Data &B01110000 , &B01010000 , &B01110000 , &B01010000 , &B01110000
- Data &B01110000 , &B01010000 , &B01110000 , &B00010000 , &B01110000
- Data &B01110000 , &B01010000 , &B01010000 , &B01010000 , &B01110000
- 2:
- Data &B00000001 , &B00000001 , &B00000001 , &B00000001 , &B00000001
- Data &B00000111 , &B00000001 , &B00000111 , &B00000100 , &B00000111
- Data &B00000111 , &B00000001 , &B00000111 , &B00000001 , &B00000111
- Data &B00000101 , &B00000101 , &B00000111 , &B00000001 , &B00000001
- Data &B00000111 , &B00000100 , &B00000111 , &B00000001 , &B00000111
- Data &B00000111 , &B00000100 , &B00000111 , &B00000101 , &B00000111
- Data &B00000111 , &B00000001 , &B00000001 , &B00000001 , &B00000001
- Data &B00000111 , &B00000101 , &B00000111 , &B00000101 , &B00000111
- Data &B00000111 , &B00000101 , &B00000111 , &B00000001 , &B00000111
- Data &B00000111 , &B00000101 , &B00000101 , &B00000101 , &B00000111
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement