برنامه استپ موتور -چپگرد راست گرد

$regfile = "m32def.dat"
$crystal = 8000000
Config Portc = Output
Dim A As Byte , B As Byte , E As Byte , F As Byte , Q As Byte , T As Byte , Hg As Byte

Do
For A = 1 To 50

E = &B00001000
For B = 1 To 4
Rotate E , Left
Q = E And &B11110000
Portc = Q
Waitms 20
Next B
Next A
Wait 1
For A = 1 To 50
F = &B10001000
E = &B00001000
For B = 1 To 4
Rotate E , Right
T = E And &B11110000
Portc = T
Waitms 20
Rotate F , Right
If F = 24 Then F = 9

Hg = F And &B11110000

Portc = Hg
Waitms 20
Next B
Next A
Loop
End