Facebook
From Sweet Mockingjay, 1 Year ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 181
  1. Ddra = &B11111111
  2. Porta = &B00000000
  3. Ddrb = &B1011
  4. Portb = &B1000
  5.  
  6. Dim A As Byte
  7. A = 2
  8. Do
  9.    If A > 1 Then
  10.    Portb = &B1011
  11.    Porta = &B10000000
  12.    Waitms 75
  13.    Porta = &B11000000
  14.    Waitms 75
  15.    Porta = &B11100000
  16.    Waitms 75
  17.    Porta = &B11110000
  18.    Waitms 75
  19.    Porta = &B11111000
  20.    Waitms 75
  21.    Porta = &B11111100
  22.    Waitms 75
  23.    Porta = &B11111110
  24.    Waitms 75
  25.    Porta = &B11111111
  26.    Waitms 75
  27.    A = 0
  28.    Else
  29.    Portb = &B1011
  30.    Porta = &B11111111
  31.    Waitms 75
  32.    Porta = &B11111110
  33.    Waitms 75
  34.    Porta = &B11111100
  35.    Waitms 75
  36.    Porta = &B11111000
  37.    Waitms 75
  38.    Porta = &B11110000
  39.    Waitms 75
  40.    Porta = &B11100000
  41.    Waitms 75
  42.    Porta = &B11000000
  43.    Waitms 75
  44.    Porta = &B10000000
  45.    Waitms 75
  46.    Porta = &B00000000
  47.    Waitms 150
  48.    A = 2
  49.    End If
  50. Loop
  51.  
  52.  
  53. End