Advertisement
Guest User

Untitled

a guest
Jun 22nd, 2017
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. $regfile = "2313def.dat"
  2. $crystal = 8000000
  3.  
  4. Config Portb = Output
  5. Config Portd = Output
  6. Config Timer0 = Timer , Prescale = 64                       'Konfiguriere Timer1
  7. Enable Timer0                                               'schalte den Timer1 ein
  8. On Timer0 Isr_von_timer0                                    'verzweige bei Timer1 überlauf zu   Isr_von_Timer1
  9. Enable Interrupts                                           'Timer1 soll schon von 34285 wegzählen
  10. Dim Spalten As Byte
  11. Dim Spaltenzahl As Byte
  12. Dim Spaltenzahl2 As Byte
  13. Dim Spaltenzahl3 As Byte
  14. Dim Spaltenzahl4 As Byte
  15. Dim Port As Byte
  16. Dim Port2 As Byte
  17. Dim Tabelle As Byte
  18. Dim Tabellenzaehler As Integer
  19. Port = 0
  20. Spaltenzahl = 0
  21. Spaltenzahl2 = 5
  22. Tabelle = 1
  23. Spaltenzahl3 = 0
  24. Spaltenzahl4 = 5
  25. Do
  26. Wait 4
  27. Port = 0
  28. Port2 = 0
  29. Spaltenzahl2 = Spaltenzahl2 + 5
  30. Spaltenzahl = Spaltenzahl2 - 5
  31. Tabelle = 1
  32. Spaltenzahl4 = Spaltenzahl4 + 5
  33. Spaltenzahl3 = Spaltenzahl4 - 5
  34. Tabellenzaehler = 0
  35.  
  36. Loop
  37. End
  38.  
  39. Isr_von_timer0:
  40. Timer0 = 128
  41.  
  42. If Tabelle = 1 Then
  43.  
  44. Portd = &B00000000
  45. Portd.port = 1
  46. Spalten = Lookup(spaltenzahl , 1)
  47. Portb = Spalten
  48. Incr Spaltenzahl
  49. Incr Port
  50. Incr Tabellenzaehler
  51. If Spaltenzahl = Spaltenzahl2 Then
  52. Spaltenzahl = Spaltenzahl - 5
  53. End If
  54. If Port = 5 Then
  55. Port = 0
  56. End If
  57. If Tabellenzaehler = 6 Then
  58. Tabellenzaehler = 0
  59. Tabelle = 2
  60. End If
  61. End If
  62.  
  63. If Tabelle = 2 Then
  64.  
  65. Portd = &B00000000
  66. Portd.port2 = 1
  67. Spalten = Lookup(spaltenzahl3 , 2)
  68. Portb = Spalten
  69. Incr Spaltenzahl3
  70. Incr Port2
  71. Incr Tabellenzaehler
  72. If Spaltenzahl3 = Spaltenzahl4 Then
  73. Spaltenzahl3 = Spaltenzahl3 - 5
  74. End If
  75. If Port2 = 5 Then
  76. Port2 = 0
  77. End If
  78. If Tabellenzaehler = 6 Then
  79. Tabellenzaehler = 0
  80. Tabelle = 1
  81.  
  82. End If
  83. End If
  84.  
  85.  
  86. Return
  87.  
  88. End
  89.  
  90. 1:
  91. Data &B00010000 , &B00010000 , &B00010000 , &B00010000 , &B00010000
  92. Data &B01110000 , &B00010000 , &B01110000 , &B01000000 , &B01110000
  93. Data &B01110000 , &B00010000 , &B01110000 , &B00010000 , &B01110000
  94. Data &B01010000 , &B01010000 , &B01110000 , &B00010000 , &B00010000
  95. Data &B01110000 , &B01000000 , &B01110000 , &B00010000 , &B01110000
  96. Data &B01110000 , &B01000000 , &B01110000 , &B01010000 , &B01110000
  97. Data &B01110000 , &B00010000 , &B00010000 , &B00010000 , &B00010000
  98. Data &B01110000 , &B01010000 , &B01110000 , &B01010000 , &B01110000
  99. Data &B01110000 , &B01010000 , &B01110000 , &B00010000 , &B01110000
  100. Data &B01110000 , &B01010000 , &B01010000 , &B01010000 , &B01110000
  101.  
  102. 2:
  103. Data &B00000001 , &B00000001 , &B00000001 , &B00000001 , &B00000001
  104. Data &B00000111 , &B00000001 , &B00000111 , &B00000100 , &B00000111
  105. Data &B00000111 , &B00000001 , &B00000111 , &B00000001 , &B00000111
  106. Data &B00000101 , &B00000101 , &B00000111 , &B00000001 , &B00000001
  107. Data &B00000111 , &B00000100 , &B00000111 , &B00000001 , &B00000111
  108. Data &B00000111 , &B00000100 , &B00000111 , &B00000101 , &B00000111
  109. Data &B00000111 , &B00000001 , &B00000001 , &B00000001 , &B00000001
  110. Data &B00000111 , &B00000101 , &B00000111 , &B00000101 , &B00000111
  111. Data &B00000111 , &B00000101 , &B00000111 , &B00000001 , &B00000111
  112. Data &B00000111 , &B00000101 , &B00000101 , &B00000101 , &B00000111
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement