EXAMPLE 01 : Flowing Water LED

EXAMPLE_01.bas

$regfile = "89s8252.dat"
$crystal = 12000000

Do
'=====================
 P0 = &B11111110
 Waitms 100
 P0 = &B11111101
 Waitms 100
 P0 = &B11111011
 Waitms 100
 P0 = &B11110111
 Waitms 100
 P0 = &B11101111
 Waitms 100
 P0 = &B11011111
 Waitms 100
 P0 = &B10111111
 Waitms 100
 P0 = &B01111111
 Waitms 100
'==========================
 P0 = &B10111111
 Waitms 100
 P0 = &B11011111
 Waitms 100
 P0 = &B11101111
 Waitms 100
 P0 = &B11110111
 Waitms 100
 P0 = &B11111011
 Waitms 100
 P0 = &B11111101
 Waitms 100
Loop

End 



EXAMPLE_01a.bas 

$regfile = "89s8252.dat"
$crystal = 12000000
Dim A As Byte
Dim I As Byte

A = &B11111110

Do
 For I = 1 To 7
  P0 = A
  Wait 1
  Rotate A , Left , 1
Next

 For I = 1 To 7
  P0 = A
  Wait 1
  Rotate A , Right , 1
 next
Loop

End